{S2[a1_, a2_, a3_, a4_, a5_, a6_, n_] :> 
  S2[a1, a2, a3, n]*S2[a4, a5, a6, n] + S2[SP[a1, a4], SP[a2, a5], 
     SP[a3, a6], n] + S2[a5, a6, n]*S2[a1, a2, a3, a4, n] - 
    S2[a1, a2, SP[a3, a5], SP[a4, a6], n] - S2[a1, a4, SP[a2, a5], 
     SP[a3, a6], n] - S2[a1, SP[a2, a4], a5, SP[a3, a6], n] - 
    S2[a1, SP[a2, a4], SP[a3, a5], a6, n] - S2[a1, SP[a2, a5], a3, 
     SP[a4, a6], n] - S2[a1, SP[a2, a5], SP[a3, a6], a4, n] + 
    S2[a1, a2, n]*S2[a3, a4, a5, a6, n] + S2[a1, a2, n]*
     S2[a3, a4, a6, a5, n] - S2[a3, a4, SP[a1, a5], SP[a2, a6], n] - 
    S2[a3, a4, SP[a1, a6], SP[a2, a5], n] + S2[a1, a2, n]*
     S2[a3, a6, a4, a5, n] + S2[a1, a2, n]*S2[a3, a6, a5, a4, n] - 
    S2[a3, a6, SP[a1, a4], SP[a2, a5], n] - S2[a3, a6, SP[a1, a5], 
     SP[a2, a4], n] - S2[a3, SP[a1, a4], a5, SP[a2, a6], n] - 
    S2[a3, SP[a1, a4], a6, SP[a2, a5], n] - S2[a3, SP[a1, a4], SP[a2, a5], 
     a6, n] - S2[a3, SP[a1, a4], SP[a2, a6], a5, n] - 
    S2[a3, SP[a1, a6], a4, SP[a2, a5], n] - S2[a3, SP[a1, a6], a5, 
     SP[a2, a4], n] - S2[a3, SP[a1, a6], SP[a2, a4], a5, n] - 
    S2[a3, SP[a1, a6], SP[a2, a5], a4, n] - S2[a4, a1, SP[a2, a5], 
     SP[a3, a6], n] - S2[a4, SP[a1, a5], a2, SP[a3, a6], n] - 
    S2[a4, SP[a1, a5], SP[a2, a6], a3, n] - S2[a1, a2, n]*
     S2[a5, a6, a3, a4, n] + S2[a5, a6, SP[a1, a3], SP[a2, a4], n] + 
    S2[a5, SP[a1, a6], a3, SP[a2, a4], n] + S2[a5, SP[a1, a6], SP[a2, a3], 
     a4, n] - S2[SP[a1, a3], a4, a5, SP[a2, a6], n] - 
    S2[SP[a1, a3], a4, a6, SP[a2, a5], n] - S2[SP[a1, a3], a4, SP[a2, a5], 
     a6, n] - S2[SP[a1, a3], a4, SP[a2, a6], a5, n] - 
    S2[SP[a1, a3], a6, a4, SP[a2, a5], n] - S2[SP[a1, a3], a6, a5, 
     SP[a2, a4], n] - S2[SP[a1, a3], a6, SP[a2, a4], a5, n] - 
    S2[SP[a1, a3], a6, SP[a2, a5], a4, n] - S2[SP[a1, a3], SP[a2, a4], a5, 
     a6, n] - S2[SP[a1, a3], SP[a2, a4], a6, a5, n] - 
    S2[SP[a1, a3], SP[a2, a6], a4, a5, n] - S2[SP[a1, a3], SP[a2, a6], a5, 
     a4, n] - S2[SP[a1, a4], a2, a5, SP[a3, a6], n] - 
    S2[SP[a1, a4], a2, SP[a3, a5], a6, n] - S2[SP[a1, a4], a5, a2, 
     SP[a3, a6], n] - S2[SP[a1, a4], a5, SP[a2, a6], a3, n] - 
    S2[SP[a1, a4], SP[a2, a5], a3, a6, n] - S2[SP[a1, a4], SP[a2, a5], a6, 
     a3, n] - S2[SP[a1, a5], a2, a3, SP[a4, a6], n] - 
    S2[SP[a1, a5], a2, SP[a3, a6], a4, n] + S2[SP[a1, a5], a6, a3, 
     SP[a2, a4], n] + S2[SP[a1, a5], a6, SP[a2, a3], a4, n] + 
    S2[a6, n]*S2[a1, a2, a3, a4, a5, n] - 
    S2[a5, n]*S2[a1, a2, a3, a4, a6, n] + 
    S2[a6, n]*S2[a1, a2, a3, a5, a4, n] - 
    S2[a4, n]*S2[a1, a2, a3, a5, a6, n] + S2[a1, a2, a3, a5, SP[a4, a6], n] - 
    S2[a5, n]*S2[a1, a2, a3, a6, a4, n] - S2[a1, a2, a3, a6, SP[a4, a5], n] - 
    S2[a1, a2, a3, SP[a4, a5], a6, n] + S2[a1, a2, a3, SP[a4, a6], a5, n] + 
    S2[a6, n]*S2[a1, a2, a4, a3, a5, n] + S2[a1, a2, a4, a3, SP[a5, a6], n] + 
    S2[a6, n]*S2[a1, a2, a4, a5, a3, n] - 
    S2[a3, n]*S2[a1, a2, a4, a5, a6, n] + S2[a1, a2, a4, a5, SP[a3, a6], n] - 
    S2[a3, n]*S2[a1, a2, a4, a6, a5, n] - S2[a1, a2, a4, a6, SP[a3, a5], n] + 
    S2[a1, a2, a4, SP[a5, a6], a3, n] + S2[a6, n]*S2[a1, a2, a5, a3, a4, n] - 
    S2[a4, n]*S2[a1, a2, a5, a3, a6, n] + S2[a1, a2, a5, a3, SP[a4, a6], n] + 
    S2[a6, n]*S2[a1, a2, a5, a4, a3, n] + S2[a1, a2, a5, a4, SP[a3, a6], n] - 
    S2[a4, n]*S2[a1, a2, a5, a6, a3, n] - S2[a1, a2, a5, a6, SP[a3, a4], n] - 
    S2[a1, a2, a5, SP[a3, a4], a6, n] + 2*S2[a1, a2, a5, SP[a3, a6], a4, n] - 
    S2[a3, n]*S2[a1, a2, a6, a4, a5, n] - S2[a1, a2, a6, a4, SP[a3, a5], n] - 
    S2[a3, n]*S2[a1, a2, a6, a5, a4, n] - S2[a1, a2, a6, a5, SP[a3, a4], n] - 
    S2[a1, a2, a6, SP[a3, a4], a5, n] - S2[a1, a2, a6, SP[a3, a5], a4, n] - 
    S2[a1, a2, SP[a3, a4], a5, a6, n] - S2[a1, a2, SP[a3, a4], a6, a5, n] - 
    S2[a1, a2, SP[a4, a5], a3, a6, n] - S2[a1, a2, SP[a4, a5], a6, a3, n] + 
    S2[a1, a2, SP[a4, a6], a3, a5, n] + S2[a1, a2, SP[a4, a6], a5, a3, n] + 
    S2[a1, a2, SP[a5, a6], a3, a4, n] + S2[a1, a2, SP[a5, a6], a4, a3, n] + 
    S2[a1, a3, a4, a5, SP[a2, a6], n] + S2[a1, a3, a4, a6, SP[a2, a5], n] + 
    S2[a1, a3, a4, SP[a2, a5], a6, n] + S2[a1, a3, a4, SP[a2, a6], a5, n] + 
    S2[a1, a3, a6, a4, SP[a2, a5], n] + S2[a1, a3, a6, a5, SP[a2, a4], n] + 
    S2[a1, a3, a6, SP[a2, a4], a5, n] + S2[a1, a3, a6, SP[a2, a5], a4, n] + 
    S2[a1, a3, SP[a2, a4], a5, a6, n] + S2[a1, a3, SP[a2, a4], a6, a5, n] + 
    S2[a1, a3, SP[a2, a6], a4, a5, n] + S2[a1, a3, SP[a2, a6], a5, a4, n] + 
    S2[a6, n]*S2[a1, a4, a2, a3, a5, n] + S2[a1, a4, a2, a3, SP[a5, a6], n] + 
    S2[a6, n]*S2[a1, a4, a2, a5, a3, n] - 
    S2[a3, n]*S2[a1, a4, a2, a5, a6, n] + S2[a1, a4, a2, a5, SP[a3, a6], n] - 
    S2[a3, n]*S2[a1, a4, a2, a6, a5, n] - S2[a1, a4, a2, a6, SP[a3, a5], n] + 
    S2[a1, a4, a2, SP[a5, a6], a3, n] + S2[a6, n]*S2[a1, a4, a3, a2, a5, n] + 
    S2[a1, a4, a3, a2, SP[a5, a6], n] + S2[a6, n]*S2[a1, a4, a3, a5, a2, n] + 
    S2[a1, a4, a3, a5, SP[a2, a6], n] + S2[a1, a4, a3, SP[a2, a6], a5, n] + 
    S2[a1, a4, a3, SP[a5, a6], a2, n] + S2[a6, n]*S2[a1, a4, a5, a2, a3, n] - 
    S2[a3, n]*S2[a1, a4, a5, a2, a6, n] + S2[a1, a4, a5, a2, SP[a3, a6], n] + 
    S2[a6, n]*S2[a1, a4, a5, a3, a2, n] + S2[a1, a4, a5, a3, SP[a2, a6], n] - 
    S2[a3, n]*S2[a1, a4, a5, a6, a2, n] - S2[a1, a4, a5, a6, SP[a2, a3], n] - 
    S2[a1, a4, a5, SP[a2, a3], a6, n] + 2*S2[a1, a4, a5, SP[a2, a6], a3, n] - 
    S2[a3, n]*S2[a1, a4, a6, a2, a5, n] - S2[a1, a4, a6, a2, SP[a3, a5], n] - 
    S2[a3, n]*S2[a1, a4, a6, a5, a2, n] - S2[a1, a4, a6, a5, SP[a2, a3], n] - 
    S2[a1, a4, a6, SP[a2, a3], a5, n] - S2[a1, a4, a6, SP[a3, a5], a2, n] - 
    S2[a1, a4, SP[a2, a3], a5, a6, n] - S2[a1, a4, SP[a2, a3], a6, a5, n] + 
    S2[a1, a4, SP[a2, a5], a3, a6, n] + S2[a1, a4, SP[a2, a5], a6, a3, n] + 
    S2[a1, a4, SP[a2, a6], a3, a5, n] + S2[a1, a4, SP[a2, a6], a5, a3, n] - 
    S2[a1, a4, SP[a3, a5], a2, a6, n] - S2[a1, a4, SP[a3, a5], a6, a2, n] + 
    S2[a1, a4, SP[a5, a6], a2, a3, n] + S2[a1, a4, SP[a5, a6], a3, a2, n] + 
    S2[a6, n]*S2[a1, a5, a2, a3, a4, n] - 
    S2[a4, n]*S2[a1, a5, a2, a3, a6, n] + S2[a1, a5, a2, a3, SP[a4, a6], n] + 
    S2[a6, n]*S2[a1, a5, a2, a4, a3, n] + S2[a1, a5, a2, a4, SP[a3, a6], n] - 
    S2[a4, n]*S2[a1, a5, a2, a6, a3, n] - S2[a1, a5, a2, a6, SP[a3, a4], n] - 
    S2[a1, a5, a2, SP[a3, a4], a6, n] + 2*S2[a1, a5, a2, SP[a3, a6], a4, n] + 
    S2[a6, n]*S2[a1, a5, a4, a2, a3, n] + S2[a1, a5, a4, a2, SP[a3, a6], n] + 
    S2[a1, a5, a4, SP[a2, a6], a3, n] - S2[a4, n]*S2[a1, a5, a6, a2, a3, n] - 
    S2[a1, a5, a6, a2, SP[a3, a4], n] - S2[a1, a5, a6, a3, SP[a2, a4], n] - 
    S2[a1, a5, a6, SP[a2, a3], a4, n] - S2[a1, a5, a6, SP[a2, a4], a3, n] - 
    S2[a1, a5, SP[a2, a4], a3, a6, n] - S2[a1, a5, SP[a2, a4], a6, a3, n] + 
    S2[a1, a5, SP[a2, a6], a3, a4, n] + S2[a1, a5, SP[a2, a6], a4, a3, n] - 
    S2[a3, n]*S2[a1, a6, a2, a4, a5, n] - S2[a1, a6, a2, a4, SP[a3, a5], n] - 
    S2[a3, n]*S2[a1, a6, a2, a5, a4, n] - S2[a1, a6, a2, a5, SP[a3, a4], n] - 
    S2[a1, a6, a2, SP[a3, a4], a5, n] - S2[a1, a6, a2, SP[a3, a5], a4, n] + 
    S2[a5, n]*S2[a1, a6, a3, a2, a4, n] + S2[a1, a6, a3, a2, SP[a4, a5], n] + 
    S2[a5, n]*S2[a1, a6, a3, a4, a2, n] + S2[a1, a6, a3, a4, SP[a2, a5], n] + 
    S2[a1, a6, a3, SP[a2, a5], a4, n] + S2[a1, a6, a3, SP[a4, a5], a2, n] - 
    S2[a3, n]*S2[a1, a6, a4, a2, a5, n] - S2[a1, a6, a4, a2, SP[a3, a5], n] - 
    S2[a3, n]*S2[a1, a6, a4, a5, a2, n] - S2[a1, a6, a4, a5, SP[a2, a3], n] - 
    S2[a1, a6, a4, SP[a2, a3], a5, n] - S2[a1, a6, a4, SP[a3, a5], a2, n] - 
    S2[a3, n]*S2[a1, a6, a5, a2, a4, n] - S2[a1, a6, a5, a2, SP[a3, a4], n] - 
    S2[a3, n]*S2[a1, a6, a5, a4, a2, n] - S2[a1, a6, a5, a4, SP[a2, a3], n] - 
    S2[a1, a6, a5, SP[a2, a3], a4, n] - S2[a1, a6, a5, SP[a3, a4], a2, n] - 
    S2[a1, a6, SP[a2, a3], a4, a5, n] - S2[a1, a6, SP[a2, a3], a5, a4, n] - 
    S2[a1, a6, SP[a3, a4], a2, a5, n] - S2[a1, a6, SP[a3, a4], a5, a2, n] + 
    S2[a1, SP[a2, a6], a3, a4, a5, n] + S2[a1, SP[a2, a6], a3, a5, a4, n] + 
    S2[a1, SP[a2, a6], a4, a3, a5, n] + S2[a1, SP[a2, a6], a4, a5, a3, n] + 
    S2[a1, SP[a2, a6], a5, a3, a4, n] + S2[a1, SP[a2, a6], a5, a4, a3, n] - 
    S2[a1, SP[a3, a4], a2, a5, a6, n] - S2[a1, SP[a3, a4], a2, a6, a5, n] - 
    S2[a1, SP[a3, a4], a5, a2, a6, n] - S2[a1, SP[a3, a4], a5, a6, a2, n] - 
    S2[a1, SP[a3, a4], a6, a2, a5, n] - S2[a1, SP[a3, a4], a6, a5, a2, n] - 
    S2[a1, SP[a3, a6], a2, a4, a5, n] - S2[a1, SP[a3, a6], a2, a5, a4, n] - 
    S2[a1, SP[a3, a6], a4, a2, a5, n] - S2[a1, SP[a3, a6], a4, a5, a2, n] - 
    S2[a1, SP[a3, a6], a5, a2, a4, n] - S2[a1, SP[a3, a6], a5, a4, a2, n] - 
    S2[a1, SP[a4, a5], a2, a3, a6, n] - S2[a1, SP[a4, a5], a2, a6, a3, n] - 
    S2[a1, SP[a4, a5], a6, a2, a3, n] + S2[a1, SP[a4, a6], a2, a3, a5, n] + 
    S2[a1, SP[a4, a6], a2, a5, a3, n] + S2[a1, SP[a4, a6], a3, a2, a5, n] + 
    S2[a1, SP[a4, a6], a3, a5, a2, n] + S2[a1, SP[a4, a6], a5, a2, a3, n] + 
    S2[a1, SP[a4, a6], a5, a3, a2, n] + S2[a1, SP[a5, a6], a2, a3, a4, n] + 
    S2[a1, SP[a5, a6], a2, a4, a3, n] + S2[a1, SP[a5, a6], a3, a2, a4, n] + 
    S2[a1, SP[a5, a6], a3, a4, a2, n] + S2[a1, SP[a5, a6], a4, a2, a3, n] + 
    S2[a3, a1, a4, a5, SP[a2, a6], n] + S2[a3, a1, a4, a6, SP[a2, a5], n] + 
    S2[a3, a1, a4, SP[a2, a5], a6, n] + S2[a3, a1, a4, SP[a2, a6], a5, n] + 
    S2[a3, a1, a6, a4, SP[a2, a5], n] + S2[a3, a1, a6, a5, SP[a2, a4], n] + 
    S2[a3, a1, a6, SP[a2, a4], a5, n] + S2[a3, a1, a6, SP[a2, a5], a4, n] + 
    S2[a3, a1, SP[a2, a4], a5, a6, n] + S2[a3, a1, SP[a2, a4], a6, a5, n] + 
    S2[a3, a1, SP[a2, a6], a4, a5, n] + S2[a3, a1, SP[a2, a6], a5, a4, n] - 
    S2[a6, n]*S2[a3, a4, a1, a2, a5, n] - S2[a3, a4, a1, a2, SP[a5, a6], n] - 
    S2[a6, n]*S2[a3, a4, a1, a5, a2, n] + S2[a3, a4, a1, a6, SP[a2, a5], n] + 
    S2[a3, a4, a1, SP[a2, a5], a6, n] - S2[a3, a4, a1, SP[a5, a6], a2, n] - 
    S2[a6, n]*S2[a3, a4, a5, a1, a2, n] + S2[a3, a4, a6, a1, SP[a2, a5], n] + 
    S2[a3, a4, a6, SP[a1, a5], a2, n] + S2[a3, a4, SP[a1, a5], a2, a6, n] + 
    S2[a3, a4, SP[a1, a5], a6, a2, n] - S2[a3, a4, SP[a5, a6], a1, a2, n] - 
    S2[a5, n]*S2[a3, a6, a1, a2, a4, n] - S2[a3, a6, a1, a2, SP[a4, a5], n] - 
    S2[a5, n]*S2[a3, a6, a1, a4, a2, n] + S2[a3, a6, a1, a5, SP[a2, a4], n] + 
    S2[a3, a6, a1, SP[a2, a4], a5, n] - S2[a3, a6, a1, SP[a4, a5], a2, n] + 
    S2[a3, a6, a4, a1, SP[a2, a5], n] + S2[a3, a6, a4, SP[a1, a5], a2, n] + 
    S2[a3, a6, a5, a1, SP[a2, a4], n] + S2[a3, a6, a5, SP[a1, a4], a2, n] + 
    S2[a3, a6, SP[a1, a4], a2, a5, n] + S2[a3, a6, SP[a1, a4], a5, a2, n] + 
    S2[a3, SP[a1, a4], a2, a5, a6, n] + S2[a3, SP[a1, a4], a2, a6, a5, n] + 
    S2[a3, SP[a1, a4], a5, a2, a6, n] + S2[a3, SP[a1, a4], a5, a6, a2, n] + 
    S2[a3, SP[a1, a4], a6, a2, a5, n] + S2[a3, SP[a1, a4], a6, a5, a2, n] + 
    S2[a3, SP[a1, a6], a2, a4, a5, n] + S2[a3, SP[a1, a6], a2, a5, a4, n] + 
    S2[a3, SP[a1, a6], a4, a2, a5, n] + S2[a3, SP[a1, a6], a4, a5, a2, n] + 
    S2[a3, SP[a1, a6], a5, a2, a4, n] + S2[a3, SP[a1, a6], a5, a4, a2, n] - 
    S2[a3, SP[a4, a6], a1, a2, a5, n] - S2[a3, SP[a4, a6], a1, a5, a2, n] - 
    S2[a3, SP[a4, a6], a5, a1, a2, n] - S2[a3, SP[a5, a6], a1, a2, a4, n] - 
    S2[a3, SP[a5, a6], a1, a4, a2, n] + S2[a4, a1, a2, a5, SP[a3, a6], n] + 
    S2[a4, a1, a2, SP[a3, a5], a6, n] + S2[a4, a1, a5, a2, SP[a3, a6], n] + 
    S2[a4, a1, a5, SP[a2, a6], a3, n] + S2[a4, a1, SP[a2, a5], a3, a6, n] + 
    S2[a4, a1, SP[a2, a5], a6, a3, n] - S2[a6, n]*S2[a4, a5, a1, a2, a3, n] + 
    S2[a4, SP[a1, a5], a2, a3, a6, n] + S2[a4, SP[a1, a5], a2, a6, a3, n] + 
    S2[a4, SP[a1, a5], a6, a2, a3, n] - S2[a4, SP[a5, a6], a1, a2, a3, n] + 
    S2[a5, a1, a2, a3, SP[a4, a6], n] + S2[a5, a1, a2, SP[a3, a6], a4, n] - 
    S2[a5, a1, a6, a3, SP[a2, a4], n] - S2[a5, a1, a6, SP[a2, a3], a4, n] + 
    S2[a3, n]*S2[a5, a6, a1, a2, a4, n] + S2[a5, a6, a1, a2, SP[a3, a4], n] - 
    S2[a5, a6, a1, a3, SP[a2, a4], n] + S2[a3, n]*S2[a5, a6, a1, a4, a2, n] + 
    S2[a5, a6, a1, a4, SP[a2, a3], n] + S2[a5, a6, a1, SP[a3, a4], a2, n] - 
    S2[a5, a6, a3, a1, SP[a2, a4], n] - S2[a5, a6, a3, SP[a1, a4], a2, n] - 
    S2[a5, SP[a1, a6], a3, a2, a4, n] - S2[a5, SP[a1, a6], a3, a4, a2, n] + 
    S2[a5, SP[a3, a6], a1, a2, a4, n] + S2[a5, SP[a3, a6], a1, a4, a2, n] - 
    S2[a5, n]*S2[a6, a1, a2, a3, a4, n] - S2[a6, a1, a2, a3, SP[a4, a5], n] - 
    S2[a5, n]*S2[a6, a1, a2, a4, a3, n] - S2[a6, a1, a2, a4, SP[a3, a5], n] - 
    S2[a6, a1, a2, SP[a3, a5], a4, n] - S2[a6, a1, a2, SP[a4, a5], a3, n] - 
    S2[a5, n]*S2[a6, a1, a4, a2, a3, n] - S2[a6, a1, a4, a2, SP[a3, a5], n] - 
    S2[a5, n]*S2[a6, a1, a4, a3, a2, n] - S2[a6, a1, a4, a3, SP[a2, a5], n] - 
    S2[a6, a1, a4, SP[a2, a5], a3, n] - S2[a6, a1, a4, SP[a3, a5], a2, n] - 
    S2[a6, a1, SP[a2, a5], a3, a4, n] - S2[a6, a1, SP[a2, a5], a4, a3, n] - 
    S2[a6, a1, SP[a4, a5], a2, a3, n] - S2[a6, a1, SP[a4, a5], a3, a2, n] + 
    S2[a5, n]*S2[a6, a3, a4, a1, a2, n] + S2[a6, a3, a4, a1, SP[a2, a5], n] + 
    S2[a6, a3, a4, SP[a1, a5], a2, n] + S2[a6, a3, SP[a4, a5], a1, a2, n] + 
    S2[a4, n]*S2[a6, a5, a1, a2, a3, n] + S2[a6, a5, a1, a2, SP[a3, a4], n] + 
    S2[a6, a5, a1, SP[a2, a4], a3, n] - S2[a3, n]*S2[a6, a5, a4, a1, a2, n] - 
    S2[a6, a5, a4, a1, SP[a2, a3], n] + S2[a1, n]*S2[a6, a5, a4, a3, a2, n] + 
    S2[a6, a5, a4, a3, SP[a1, a2], n] + S2[a6, a5, SP[a1, a4], a2, a3, n] + 
    S2[a6, a5, SP[a1, a4], a3, a2, n] - S2[a6, a5, SP[a3, a4], a1, a2, n] - 
    S2[a6, SP[a1, a5], a2, a3, a4, n] - S2[a6, SP[a1, a5], a2, a4, a3, n] - 
    S2[a6, SP[a1, a5], a4, a2, a3, n] + S2[a6, SP[a4, a5], a1, a2, a3, n] + 
    S2[SP[a1, a6], a2, a3, a4, a5, n] + S2[SP[a1, a6], a2, a3, a5, a4, n] + 
    S2[SP[a1, a6], a2, a4, a3, a5, n] + S2[SP[a1, a6], a2, a4, a5, a3, n] + 
    S2[SP[a1, a6], a2, a5, a3, a4, n] + S2[SP[a1, a6], a2, a5, a4, a3, n] + 
    S2[SP[a1, a6], a4, a2, a3, a5, n] + S2[SP[a1, a6], a4, a2, a5, a3, n] + 
    S2[SP[a1, a6], a4, a3, a2, a5, n] + S2[SP[a1, a6], a4, a3, a5, a2, n] + 
    S2[SP[a1, a6], a4, a5, a2, a3, n] + S2[SP[a1, a6], a4, a5, a3, a2, n] + 
    S2[SP[a1, a6], a5, a2, a3, a4, n] + S2[SP[a1, a6], a5, a2, a4, a3, n] + 
    S2[SP[a1, a6], a5, a4, a2, a3, n] + S2[SP[a1, a6], a5, a4, a3, a2, n] - 
    S2[SP[a3, a6], a4, a1, a2, a5, n] - S2[SP[a3, a6], a4, a1, a5, a2, n] - 
    S2[SP[a3, a6], a4, a5, a1, a2, n] - S2[SP[a3, a6], a5, a4, a1, a2, n] - 
    S2[SP[a5, a6], a1, a2, a3, a4, n] - S2[SP[a5, a6], a1, a2, a4, a3, n] - 
    S2[SP[a5, a6], a1, a4, a2, a3, n] - S2[SP[a5, a6], a1, a4, a3, a2, n] + 
    S2[SP[a5, a6], a3, a4, a1, a2, n] - S2[a6, a5, a4, a3, a2, a1, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a1_, a2_, a3_, a4_, a6_, a5_, n_] :> 
  S2[a1, a2, a3, n]*S2[a4, a6, a5, n] + S2[SP[a1, a4], SP[a2, a6], 
     SP[a3, a5], n] - S2[a5, a6, n]*S2[a1, a2, a3, a4, n] + 
    S2[a1, a2, SP[a3, a5], SP[a4, a6], n] - S2[a1, a4, SP[a2, a6], 
     SP[a3, a5], n] - S2[a1, SP[a2, a4], a6, SP[a3, a5], n] - 
    S2[a1, SP[a2, a4], SP[a3, a6], a5, n] + S2[a1, SP[a2, a5], a3, 
     SP[a4, a6], n] + S2[a1, SP[a2, a5], SP[a3, a6], a4, n] - 
    S2[a1, a2, n]*S2[a3, a6, a4, a5, n] - S2[a1, a2, n]*
     S2[a3, a6, a5, a4, n] + S2[a3, a6, SP[a1, a4], SP[a2, a5], n] + 
    S2[a3, a6, SP[a1, a5], SP[a2, a4], n] + S2[a3, SP[a1, a6], a4, 
     SP[a2, a5], n] + S2[a3, SP[a1, a6], a5, SP[a2, a4], n] + 
    S2[a3, SP[a1, a6], SP[a2, a4], a5, n] + S2[a3, SP[a1, a6], SP[a2, a5], 
     a4, n] - S2[a4, a1, SP[a2, a6], SP[a3, a5], n] - 
    S2[a4, SP[a1, a6], a2, SP[a3, a5], n] - S2[a4, SP[a1, a6], SP[a2, a5], 
     a3, n] + S2[a1, a2, n]*S2[a5, a6, a3, a4, n] - 
    S2[a5, a6, SP[a1, a3], SP[a2, a4], n] - S2[a5, SP[a1, a6], a3, 
     SP[a2, a4], n] - S2[a5, SP[a1, a6], SP[a2, a3], a4, n] + 
    S2[SP[a1, a3], a6, a4, SP[a2, a5], n] + S2[SP[a1, a3], a6, a5, 
     SP[a2, a4], n] + S2[SP[a1, a3], a6, SP[a2, a4], a5, n] + 
    S2[SP[a1, a3], a6, SP[a2, a5], a4, n] + S2[SP[a1, a3], SP[a2, a6], a4, 
     a5, n] + S2[SP[a1, a3], SP[a2, a6], a5, a4, n] - 
    S2[SP[a1, a4], a2, a6, SP[a3, a5], n] - S2[SP[a1, a4], a2, SP[a3, a6], 
     a5, n] - S2[SP[a1, a4], a6, a2, SP[a3, a5], n] - 
    S2[SP[a1, a4], a6, SP[a2, a5], a3, n] - S2[SP[a1, a4], SP[a2, a6], a3, 
     a5, n] - S2[SP[a1, a4], SP[a2, a6], a5, a3, n] + 
    S2[SP[a1, a5], a2, a3, SP[a4, a6], n] + S2[SP[a1, a5], a2, SP[a3, a6], 
     a4, n] - S2[SP[a1, a5], a6, a3, SP[a2, a4], n] - 
    S2[SP[a1, a5], a6, SP[a2, a3], a4, n] + 
    S2[a5, n]*S2[a1, a2, a3, a4, a6, n] + S2[a1, a2, a3, a4, SP[a5, a6], n] - 
    S2[a1, a2, a3, a5, SP[a4, a6], n] + S2[a5, n]*S2[a1, a2, a3, a6, a4, n] - 
    S2[a4, n]*S2[a1, a2, a3, a6, a5, n] - S2[a1, a2, a3, SP[a4, a6], a5, n] + 
    S2[a1, a2, a3, SP[a5, a6], a4, n] + S2[a1, a2, a4, a6, SP[a3, a5], n] + 
    S2[a1, a2, a4, SP[a3, a6], a5, n] - S2[a1, a2, a5, a3, SP[a4, a6], n] - 
    S2[a1, a2, a5, SP[a3, a6], a4, n] - S2[a4, n]*S2[a1, a2, a6, a3, a5, n] - 
    S2[a1, a2, a6, a3, SP[a4, a5], n] + S2[a3, n]*S2[a1, a2, a6, a4, a5, n] + 
    S2[a1, a2, a6, a4, SP[a3, a5], n] - S2[a4, n]*S2[a1, a2, a6, a5, a3, n] + 
    S2[a3, n]*S2[a1, a2, a6, a5, a4, n] + S2[a1, a2, a6, SP[a3, a5], a4, n] - 
    S2[a1, a2, a6, SP[a4, a5], a3, n] + S2[a1, a2, SP[a3, a6], a4, a5, n] + 
    S2[a1, a2, SP[a3, a6], a5, a4, n] - S2[a1, a2, SP[a4, a6], a3, a5, n] - 
    S2[a1, a2, SP[a4, a6], a5, a3, n] - S2[a1, a3, a6, a4, SP[a2, a5], n] - 
    S2[a1, a3, a6, a5, SP[a2, a4], n] - S2[a1, a3, a6, SP[a2, a4], a5, n] - 
    S2[a1, a3, a6, SP[a2, a5], a4, n] - S2[a1, a3, SP[a2, a6], a4, a5, n] - 
    S2[a1, a3, SP[a2, a6], a5, a4, n] + S2[a1, a4, a2, a6, SP[a3, a5], n] + 
    S2[a1, a4, a2, SP[a3, a6], a5, n] + S2[a1, a4, a6, a2, SP[a3, a5], n] + 
    S2[a1, a4, a6, SP[a2, a5], a3, n] + S2[a1, a4, SP[a2, a6], a3, a5, n] + 
    S2[a1, a4, SP[a2, a6], a5, a3, n] - S2[a1, a5, a2, a3, SP[a4, a6], n] - 
    S2[a1, a5, a2, SP[a3, a6], a4, n] + S2[a1, a5, a6, a3, SP[a2, a4], n] + 
    S2[a1, a5, a6, SP[a2, a3], a4, n] - S2[a4, n]*S2[a1, a6, a2, a3, a5, n] - 
    S2[a1, a6, a2, a3, SP[a4, a5], n] + S2[a3, n]*S2[a1, a6, a2, a4, a5, n] + 
    S2[a1, a6, a2, a4, SP[a3, a5], n] - S2[a4, n]*S2[a1, a6, a2, a5, a3, n] + 
    S2[a3, n]*S2[a1, a6, a2, a5, a4, n] + S2[a1, a6, a2, SP[a3, a5], a4, n] - 
    S2[a1, a6, a2, SP[a4, a5], a3, n] - S2[a5, n]*S2[a1, a6, a3, a2, a4, n] - 
    S2[a1, a6, a3, a2, SP[a4, a5], n] - S2[a5, n]*S2[a1, a6, a3, a4, a2, n] - 
    S2[a1, a6, a3, a4, SP[a2, a5], n] - S2[a1, a6, a3, SP[a2, a5], a4, n] - 
    S2[a1, a6, a3, SP[a4, a5], a2, n] + S2[a3, n]*S2[a1, a6, a4, a2, a5, n] + 
    S2[a1, a6, a4, a2, SP[a3, a5], n] + S2[a3, n]*S2[a1, a6, a4, a5, a2, n] + 
    S2[a1, a6, a4, a5, SP[a2, a3], n] + S2[a1, a6, a4, SP[a2, a3], a5, n] + 
    S2[a1, a6, a4, SP[a3, a5], a2, n] - S2[a4, n]*S2[a1, a6, a5, a2, a3, n] + 
    S2[a3, n]*S2[a1, a6, a5, a2, a4, n] + 
    S2[a3, n]*S2[a1, a6, a5, a4, a2, n] + S2[a1, a6, a5, a4, SP[a2, a3], n] + 
    S2[a1, a6, a5, SP[a2, a3], a4, n] - S2[a1, a6, a5, SP[a2, a4], a3, n] + 
    S2[a1, a6, a5, SP[a3, a4], a2, n] + S2[a1, a6, SP[a2, a3], a4, a5, n] + 
    S2[a1, a6, SP[a2, a3], a5, a4, n] - S2[a1, a6, SP[a2, a4], a3, a5, n] - 
    S2[a1, a6, SP[a2, a4], a5, a3, n] + S2[a1, a6, SP[a3, a4], a2, a5, n] + 
    S2[a1, a6, SP[a3, a4], a5, a2, n] - S2[a1, a6, SP[a4, a5], a2, a3, n] + 
    S2[a1, SP[a3, a6], a2, a4, a5, n] + S2[a1, SP[a3, a6], a2, a5, a4, n] + 
    S2[a1, SP[a3, a6], a4, a2, a5, n] + S2[a1, SP[a3, a6], a4, a5, a2, n] + 
    S2[a1, SP[a3, a6], a5, a2, a4, n] + S2[a1, SP[a3, a6], a5, a4, a2, n] - 
    S2[a1, SP[a4, a6], a2, a3, a5, n] - S2[a1, SP[a4, a6], a2, a5, a3, n] - 
    S2[a1, SP[a4, a6], a5, a2, a3, n] - S2[a1, SP[a5, a6], a3, a2, a4, n] - 
    S2[a1, SP[a5, a6], a3, a4, a2, n] - S2[a3, a1, a6, a4, SP[a2, a5], n] - 
    S2[a3, a1, a6, a5, SP[a2, a4], n] - S2[a3, a1, a6, SP[a2, a4], a5, n] - 
    S2[a3, a1, a6, SP[a2, a5], a4, n] - S2[a3, a1, SP[a2, a6], a4, a5, n] - 
    S2[a3, a1, SP[a2, a6], a5, a4, n] + S2[a5, n]*S2[a3, a6, a1, a2, a4, n] + 
    S2[a3, a6, a1, a2, SP[a4, a5], n] + S2[a5, n]*S2[a3, a6, a1, a4, a2, n] - 
    S2[a3, a6, a1, a5, SP[a2, a4], n] - S2[a3, a6, a1, SP[a2, a4], a5, n] + 
    S2[a3, a6, a1, SP[a4, a5], a2, n] - S2[a3, a6, a4, a1, SP[a2, a5], n] - 
    S2[a3, a6, a4, SP[a1, a5], a2, n] - S2[a3, a6, a5, a1, SP[a2, a4], n] - 
    S2[a3, a6, a5, SP[a1, a4], a2, n] - S2[a3, a6, SP[a1, a4], a2, a5, n] - 
    S2[a3, a6, SP[a1, a4], a5, a2, n] - S2[a3, SP[a1, a6], a2, a4, a5, n] - 
    S2[a3, SP[a1, a6], a2, a5, a4, n] - S2[a3, SP[a1, a6], a4, a2, a5, n] - 
    S2[a3, SP[a1, a6], a4, a5, a2, n] - S2[a3, SP[a1, a6], a5, a2, a4, n] - 
    S2[a3, SP[a1, a6], a5, a4, a2, n] + S2[a3, SP[a5, a6], a1, a2, a4, n] + 
    S2[a3, SP[a5, a6], a1, a4, a2, n] + S2[a4, a1, a2, a6, SP[a3, a5], n] + 
    S2[a4, a1, a2, SP[a3, a6], a5, n] + S2[a4, a1, a6, a2, SP[a3, a5], n] + 
    S2[a4, a1, a6, SP[a2, a5], a3, n] + S2[a4, a1, SP[a2, a6], a3, a5, n] + 
    S2[a4, a1, SP[a2, a6], a5, a3, n] + S2[a4, a6, a1, a2, SP[a3, a5], n] + 
    S2[a4, a6, a1, SP[a2, a5], a3, n] + S2[a4, a6, SP[a1, a5], a2, a3, n] + 
    S2[a4, SP[a1, a6], a2, a3, a5, n] + S2[a4, SP[a1, a6], a2, a5, a3, n] + 
    S2[a4, SP[a1, a6], a5, a2, a3, n] - S2[a5, a1, a2, a3, SP[a4, a6], n] - 
    S2[a5, a1, a2, SP[a3, a6], a4, n] + S2[a5, a1, a6, a3, SP[a2, a4], n] + 
    S2[a5, a1, a6, SP[a2, a3], a4, n] - S2[a3, n]*S2[a5, a6, a1, a2, a4, n] - 
    S2[a5, a6, a1, a2, SP[a3, a4], n] + S2[a5, a6, a1, a3, SP[a2, a4], n] - 
    S2[a3, n]*S2[a5, a6, a1, a4, a2, n] - S2[a5, a6, a1, a4, SP[a2, a3], n] - 
    S2[a5, a6, a1, SP[a3, a4], a2, n] + S2[a5, a6, a3, a1, SP[a2, a4], n] + 
    S2[a5, a6, a3, SP[a1, a4], a2, n] + S2[a5, SP[a1, a6], a3, a2, a4, n] + 
    S2[a5, SP[a1, a6], a3, a4, a2, n] - S2[a5, SP[a3, a6], a1, a2, a4, n] - 
    S2[a5, SP[a3, a6], a1, a4, a2, n] + S2[a5, n]*S2[a6, a1, a2, a3, a4, n] - 
    S2[a4, n]*S2[a6, a1, a2, a3, a5, n] + 
    S2[a5, n]*S2[a6, a1, a2, a4, a3, n] + S2[a6, a1, a2, a4, SP[a3, a5], n] - 
    S2[a4, n]*S2[a6, a1, a2, a5, a3, n] - S2[a6, a1, a2, a5, SP[a3, a4], n] - 
    S2[a6, a1, a2, SP[a3, a4], a5, n] + S2[a6, a1, a2, SP[a3, a5], a4, n] + 
    S2[a5, n]*S2[a6, a1, a4, a2, a3, n] + S2[a6, a1, a4, a2, SP[a3, a5], n] + 
    S2[a5, n]*S2[a6, a1, a4, a3, a2, n] + S2[a6, a1, a4, a3, SP[a2, a5], n] + 
    S2[a6, a1, a4, SP[a2, a5], a3, n] + S2[a6, a1, a4, SP[a3, a5], a2, n] - 
    S2[a4, n]*S2[a6, a1, a5, a2, a3, n] - S2[a6, a1, a5, a2, SP[a3, a4], n] - 
    S2[a6, a1, a5, SP[a2, a4], a3, n] - S2[a6, a1, SP[a2, a4], a3, a5, n] - 
    S2[a6, a1, SP[a2, a4], a5, a3, n] + S2[a6, a1, SP[a2, a5], a3, a4, n] + 
    S2[a6, a1, SP[a2, a5], a4, a3, n] + S2[a6, a1, SP[a4, a5], a3, a2, n] - 
    S2[a5, n]*S2[a6, a3, a4, a1, a2, n] - S2[a6, a3, a4, a1, SP[a2, a5], n] - 
    S2[a6, a3, a4, SP[a1, a5], a2, n] - S2[a6, a3, SP[a4, a5], a1, a2, n] + 
    S2[a3, n]*S2[a6, a4, a1, a2, a5, n] + S2[a6, a4, a1, a2, SP[a3, a5], n] + 
    S2[a3, n]*S2[a6, a4, a1, a5, a2, n] + S2[a6, a4, a1, a5, SP[a2, a3], n] + 
    S2[a6, a4, a1, SP[a2, a3], a5, n] + S2[a6, a4, a1, SP[a3, a5], a2, n] - 
    S2[a1, n]*S2[a6, a4, a3, a2, a5, n] - S2[a6, a4, a3, a2, SP[a1, a5], n] - 
    S2[a1, n]*S2[a6, a4, a3, a5, a2, n] - S2[a6, a4, a3, a5, SP[a1, a2], n] - 
    S2[a6, a4, a3, SP[a1, a2], a5, n] - S2[a6, a4, a3, SP[a1, a5], a2, n] + 
    S2[a3, n]*S2[a6, a4, a5, a1, a2, n] + S2[a6, a4, a5, a1, SP[a2, a3], n] - 
    S2[a1, n]*S2[a6, a4, a5, a3, a2, n] - S2[a6, a4, a5, a3, SP[a1, a2], n] - 
    S2[a6, a4, SP[a1, a5], a3, a2, n] + S2[a6, a4, SP[a3, a5], a1, a2, n] - 
    S2[a4, n]*S2[a6, a5, a1, a2, a3, n] - S2[a6, a5, a1, a2, SP[a3, a4], n] - 
    S2[a6, a5, a1, SP[a2, a4], a3, n] + S2[a3, n]*S2[a6, a5, a4, a1, a2, n] + 
    S2[a6, a5, a4, a1, SP[a2, a3], n] - S2[a1, n]*S2[a6, a5, a4, a3, a2, n] - 
    S2[a6, a5, a4, a3, SP[a1, a2], n] - S2[a6, a5, SP[a1, a4], a2, a3, n] - 
    S2[a6, a5, SP[a1, a4], a3, a2, n] + S2[a6, a5, SP[a3, a4], a1, a2, n] - 
    S2[a6, SP[a1, a4], a2, a3, a5, n] - S2[a6, SP[a1, a4], a2, a5, a3, n] - 
    S2[a6, SP[a1, a4], a3, a2, a5, n] - S2[a6, SP[a1, a4], a3, a5, a2, n] - 
    S2[a6, SP[a1, a4], a5, a2, a3, n] - S2[a6, SP[a1, a4], a5, a3, a2, n] + 
    S2[a6, SP[a1, a5], a2, a3, a4, n] + S2[a6, SP[a1, a5], a2, a4, a3, n] + 
    S2[a6, SP[a1, a5], a4, a2, a3, n] + S2[a6, SP[a3, a4], a1, a2, a5, n] + 
    S2[a6, SP[a3, a4], a1, a5, a2, n] + S2[a6, SP[a3, a4], a5, a1, a2, n] - 
    S2[a6, SP[a4, a5], a1, a2, a3, n] - S2[SP[a1, a6], a4, a3, a2, a5, n] - 
    S2[SP[a1, a6], a4, a3, a5, a2, n] - S2[SP[a1, a6], a4, a5, a3, a2, n] - 
    S2[SP[a1, a6], a5, a4, a3, a2, n] + S2[SP[a3, a6], a4, a1, a2, a5, n] + 
    S2[SP[a3, a6], a4, a1, a5, a2, n] + S2[SP[a3, a6], a4, a5, a1, a2, n] + 
    S2[SP[a3, a6], a5, a4, a1, a2, n] - S2[SP[a4, a6], a1, a2, a3, a5, n] - 
    S2[SP[a4, a6], a1, a2, a5, a3, n] - S2[SP[a4, a6], a1, a5, a2, a3, n] - 
    S2[SP[a4, a6], a5, a1, a2, a3, n] + S2[SP[a5, a6], a1, a2, a3, a4, n] + 
    S2[SP[a5, a6], a1, a2, a4, a3, n] + S2[SP[a5, a6], a1, a4, a2, a3, n] + 
    S2[SP[a5, a6], a1, a4, a3, a2, n] - S2[SP[a5, a6], a3, a4, a1, a2, n] + 
    S2[a6, a4, a3, a2, a1, a5, n] + S2[a6, a4, a3, a2, a5, a1, n] + 
    S2[a6, a4, a3, a5, a2, a1, n] + S2[a6, a4, a5, a3, a2, a1, n] + 
    S2[a6, a5, a4, a3, a2, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a1_, a2_, a3_, a5_, a4_, a6_, n_] :> 
  -(S2[a1, a2, a3, n]*S2[a4, a5, a6, n]) - S2[a1, a2, a3, n]*
     S2[a4, a6, a5, n] - S2[SP[a1, a4], SP[a2, a5], SP[a3, a6], n] - 
    S2[SP[a1, a4], SP[a2, a6], SP[a3, a5], n] + 
    S2[a4, a6, n]*S2[a1, a2, a3, a5, n] - S2[a1, a2, SP[a3, a4], SP[a5, a6], 
     n] + S2[a1, a4, SP[a2, a5], SP[a3, a6], n] + S2[a1, a4, SP[a2, a6], 
     SP[a3, a5], n] - S2[a1, SP[a2, a4], a3, SP[a5, a6], n] + 
    S2[a1, SP[a2, a4], a5, SP[a3, a6], n] + S2[a1, SP[a2, a4], a6, 
     SP[a3, a5], n] + S2[a1, SP[a2, a4], SP[a3, a5], a6, n] + 
    S2[a1, a2, n]*S2[a3, a5, a4, a6, n] + S2[a1, a2, n]*
     S2[a3, a5, a6, a4, n] - S2[a3, a5, SP[a1, a4], SP[a2, a6], n] - 
    S2[a3, a5, SP[a1, a6], SP[a2, a4], n] + S2[a1, a2, n]*
     S2[a3, a6, a4, a5, n] + S2[a1, a2, n]*S2[a3, a6, a5, a4, n] - 
    S2[a3, a6, SP[a1, a4], SP[a2, a5], n] - S2[a3, a6, SP[a1, a5], 
     SP[a2, a4], n] - S2[a3, SP[a1, a5], a4, SP[a2, a6], n] - 
    S2[a3, SP[a1, a5], a6, SP[a2, a4], n] - S2[a3, SP[a1, a5], SP[a2, a4], 
     a6, n] - S2[a3, SP[a1, a5], SP[a2, a6], a4, n] - 
    S2[a3, SP[a1, a6], a4, SP[a2, a5], n] - S2[a3, SP[a1, a6], a5, 
     SP[a2, a4], n] - S2[a3, SP[a1, a6], SP[a2, a4], a5, n] - 
    S2[a3, SP[a1, a6], SP[a2, a5], a4, n] + S2[a4, a1, SP[a2, a5], 
     SP[a3, a6], n] + S2[a4, a1, SP[a2, a6], SP[a3, a5], n] - 
    S2[a1, a2, n]*S2[a4, a6, a3, a5, n] + S2[a4, a6, SP[a1, a3], SP[a2, a5], 
     n] + S2[a4, SP[a1, a5], a2, SP[a3, a6], n] + 
    S2[a4, SP[a1, a5], SP[a2, a6], a3, n] + S2[a4, SP[a1, a6], a2, 
     SP[a3, a5], n] + S2[a4, SP[a1, a6], a3, SP[a2, a5], n] + 
    S2[a4, SP[a1, a6], SP[a2, a3], a5, n] + S2[a4, SP[a1, a6], SP[a2, a5], 
     a3, n] - S2[SP[a1, a3], a5, a4, SP[a2, a6], n] - 
    S2[SP[a1, a3], a5, a6, SP[a2, a4], n] - S2[SP[a1, a3], a5, SP[a2, a4], 
     a6, n] - S2[SP[a1, a3], a5, SP[a2, a6], a4, n] - 
    S2[SP[a1, a3], a6, a4, SP[a2, a5], n] - S2[SP[a1, a3], a6, a5, 
     SP[a2, a4], n] - S2[SP[a1, a3], a6, SP[a2, a4], a5, n] - 
    S2[SP[a1, a3], a6, SP[a2, a5], a4, n] - S2[SP[a1, a3], SP[a2, a5], a4, 
     a6, n] - S2[SP[a1, a3], SP[a2, a5], a6, a4, n] - 
    S2[SP[a1, a3], SP[a2, a6], a4, a5, n] - S2[SP[a1, a3], SP[a2, a6], a5, 
     a4, n] - S2[SP[a1, a4], a2, a3, SP[a5, a6], n] + 
    S2[SP[a1, a4], a2, a5, SP[a3, a6], n] + S2[SP[a1, a4], a2, a6, 
     SP[a3, a5], n] + S2[SP[a1, a4], a2, SP[a3, a5], a6, n] + 
    S2[SP[a1, a4], a5, a2, SP[a3, a6], n] + S2[SP[a1, a4], a5, SP[a2, a6], 
     a3, n] + S2[SP[a1, a4], a6, a2, SP[a3, a5], n] + 
    S2[SP[a1, a4], a6, a3, SP[a2, a5], n] + S2[SP[a1, a4], a6, SP[a2, a3], 
     a5, n] + S2[SP[a1, a4], a6, SP[a2, a5], a3, n] + 
    S2[SP[a1, a4], SP[a2, a5], a3, a6, n] + S2[SP[a1, a4], SP[a2, a5], a6, 
     a3, n] + S2[SP[a1, a4], SP[a2, a6], a3, a5, n] + 
    S2[SP[a1, a4], SP[a2, a6], a5, a3, n] + S2[a1, a2, a3, a4, SP[a5, a6], 
     n] + S2[a1, a2, a3, SP[a4, a5], a6, n] + S2[a1, a2, a4, a3, SP[a5, a6], 
     n] - S2[a1, a2, a4, a5, SP[a3, a6], n] - S2[a1, a2, a4, a6, SP[a3, a5], 
     n] - S2[a1, a2, a4, SP[a3, a5], a6, n] + 
    S2[a4, n]*S2[a1, a2, a5, a3, a6, n] + S2[a1, a2, a5, a3, SP[a4, a6], n] - 
    S2[a3, n]*S2[a1, a2, a5, a4, a6, n] - S2[a1, a2, a5, a4, SP[a3, a6], n] + 
    S2[a4, n]*S2[a1, a2, a5, a6, a3, n] - 
    S2[a3, n]*S2[a1, a2, a5, a6, a4, n] - S2[a1, a2, a5, SP[a3, a6], a4, n] + 
    S2[a1, a2, a5, SP[a4, a6], a3, n] + S2[a4, n]*S2[a1, a2, a6, a3, a5, n] + 
    S2[a1, a2, a6, a3, SP[a4, a5], n] - S2[a3, n]*S2[a1, a2, a6, a4, a5, n] - 
    S2[a1, a2, a6, a4, SP[a3, a5], n] + S2[a4, n]*S2[a1, a2, a6, a5, a3, n] - 
    S2[a3, n]*S2[a1, a2, a6, a5, a4, n] - S2[a1, a2, a6, SP[a3, a5], a4, n] + 
    S2[a1, a2, a6, SP[a4, a5], a3, n] - S2[a1, a2, SP[a3, a5], a4, a6, n] - 
    S2[a1, a2, SP[a3, a5], a6, a4, n] - S2[a1, a2, SP[a3, a6], a4, a5, n] - 
    S2[a1, a2, SP[a3, a6], a5, a4, n] + S2[a1, a2, SP[a4, a5], a3, a6, n] + 
    S2[a1, a2, SP[a4, a5], a6, a3, n] + S2[a1, a2, SP[a4, a6], a3, a5, n] + 
    S2[a1, a2, SP[a4, a6], a5, a3, n] + S2[a1, a3, a5, a4, SP[a2, a6], n] + 
    S2[a1, a3, a5, a6, SP[a2, a4], n] + S2[a1, a3, a5, SP[a2, a4], a6, n] + 
    S2[a1, a3, a5, SP[a2, a6], a4, n] + S2[a1, a3, a6, a4, SP[a2, a5], n] + 
    S2[a1, a3, a6, a5, SP[a2, a4], n] + S2[a1, a3, a6, SP[a2, a4], a5, n] + 
    S2[a1, a3, a6, SP[a2, a5], a4, n] + S2[a1, a3, SP[a2, a5], a4, a6, n] + 
    S2[a1, a3, SP[a2, a5], a6, a4, n] + S2[a1, a3, SP[a2, a6], a4, a5, n] + 
    S2[a1, a3, SP[a2, a6], a5, a4, n] + S2[a1, a4, a2, a3, SP[a5, a6], n] - 
    S2[a1, a4, a2, a5, SP[a3, a6], n] - S2[a1, a4, a2, a6, SP[a3, a5], n] - 
    S2[a1, a4, a2, SP[a3, a5], a6, n] - S2[a1, a4, a5, a2, SP[a3, a6], n] - 
    S2[a1, a4, a5, SP[a2, a6], a3, n] - S2[a1, a4, a6, a2, SP[a3, a5], n] - 
    S2[a1, a4, a6, a3, SP[a2, a5], n] - S2[a1, a4, a6, SP[a2, a3], a5, n] - 
    S2[a1, a4, a6, SP[a2, a5], a3, n] - S2[a1, a4, SP[a2, a5], a3, a6, n] - 
    S2[a1, a4, SP[a2, a5], a6, a3, n] - S2[a1, a4, SP[a2, a6], a3, a5, n] - 
    S2[a1, a4, SP[a2, a6], a5, a3, n] + S2[a4, n]*S2[a1, a5, a2, a3, a6, n] + 
    S2[a1, a5, a2, a3, SP[a4, a6], n] - S2[a3, n]*S2[a1, a5, a2, a4, a6, n] - 
    S2[a1, a5, a2, a4, SP[a3, a6], n] + S2[a4, n]*S2[a1, a5, a2, a6, a3, n] - 
    S2[a3, n]*S2[a1, a5, a2, a6, a4, n] - S2[a1, a5, a2, SP[a3, a6], a4, n] + 
    S2[a1, a5, a2, SP[a4, a6], a3, n] + S2[a6, n]*S2[a1, a5, a3, a2, a4, n] + 
    S2[a1, a5, a3, a2, SP[a4, a6], n] + S2[a6, n]*S2[a1, a5, a3, a4, a2, n] + 
    S2[a1, a5, a3, a4, SP[a2, a6], n] + S2[a1, a5, a3, SP[a2, a6], a4, n] + 
    S2[a1, a5, a3, SP[a4, a6], a2, n] - S2[a3, n]*S2[a1, a5, a4, a2, a6, n] - 
    S2[a1, a5, a4, a2, SP[a3, a6], n] + S2[a6, n]*S2[a1, a5, a4, a3, a2, n] + 
    S2[a1, a5, a4, a3, SP[a2, a6], n] - S2[a3, n]*S2[a1, a5, a4, a6, a2, n] - 
    S2[a1, a5, a4, a6, SP[a2, a3], n] - S2[a1, a5, a4, SP[a2, a3], a6, n] + 
    S2[a4, n]*S2[a1, a5, a6, a2, a3, n] - 
    S2[a3, n]*S2[a1, a5, a6, a2, a4, n] - 
    S2[a3, n]*S2[a1, a5, a6, a4, a2, n] - S2[a1, a5, a6, a4, SP[a2, a3], n] - 
    S2[a1, a5, a6, SP[a2, a3], a4, n] + S2[a1, a5, a6, SP[a2, a4], a3, n] - 
    S2[a1, a5, a6, SP[a3, a4], a2, n] - S2[a1, a5, SP[a2, a3], a4, a6, n] - 
    S2[a1, a5, SP[a2, a3], a6, a4, n] + S2[a1, a5, SP[a2, a4], a3, a6, n] + 
    S2[a1, a5, SP[a2, a4], a6, a3, n] - S2[a1, a5, SP[a3, a4], a2, a6, n] - 
    S2[a1, a5, SP[a3, a4], a6, a2, n] + S2[a1, a5, SP[a4, a6], a2, a3, n] + 
    S2[a1, a5, SP[a4, a6], a3, a2, n] + S2[a4, n]*S2[a1, a6, a2, a3, a5, n] + 
    S2[a1, a6, a2, a3, SP[a4, a5], n] - S2[a3, n]*S2[a1, a6, a2, a4, a5, n] - 
    S2[a1, a6, a2, a4, SP[a3, a5], n] + S2[a4, n]*S2[a1, a6, a2, a5, a3, n] - 
    S2[a3, n]*S2[a1, a6, a2, a5, a4, n] - S2[a1, a6, a2, SP[a3, a5], a4, n] + 
    S2[a1, a6, a2, SP[a4, a5], a3, n] + S2[a4, n]*S2[a1, a6, a3, a2, a5, n] + 
    S2[a1, a6, a3, a2, SP[a4, a5], n] + S2[a4, n]*S2[a1, a6, a3, a5, a2, n] + 
    S2[a1, a6, a3, a5, SP[a2, a4], n] + S2[a1, a6, a3, SP[a2, a4], a5, n] + 
    S2[a1, a6, a3, SP[a4, a5], a2, n] - S2[a3, n]*S2[a1, a6, a4, a2, a5, n] - 
    S2[a1, a6, a4, a2, SP[a3, a5], n] - S2[a3, n]*S2[a1, a6, a4, a5, a2, n] - 
    S2[a1, a6, a4, a5, SP[a2, a3], n] - S2[a1, a6, a4, SP[a2, a3], a5, n] - 
    S2[a1, a6, a4, SP[a3, a5], a2, n] + S2[a4, n]*S2[a1, a6, a5, a2, a3, n] - 
    S2[a3, n]*S2[a1, a6, a5, a2, a4, n] - 
    S2[a3, n]*S2[a1, a6, a5, a4, a2, n] - S2[a1, a6, a5, a4, SP[a2, a3], n] - 
    S2[a1, a6, a5, SP[a2, a3], a4, n] + S2[a1, a6, a5, SP[a2, a4], a3, n] - 
    S2[a1, a6, a5, SP[a3, a4], a2, n] - S2[a1, a6, SP[a2, a3], a4, a5, n] - 
    S2[a1, a6, SP[a2, a3], a5, a4, n] + S2[a1, a6, SP[a2, a4], a3, a5, n] + 
    S2[a1, a6, SP[a2, a4], a5, a3, n] - S2[a1, a6, SP[a3, a5], a2, a4, n] - 
    S2[a1, a6, SP[a3, a5], a4, a2, n] + S2[a1, a6, SP[a4, a5], a2, a3, n] - 
    S2[a1, SP[a3, a5], a2, a4, a6, n] - S2[a1, SP[a3, a5], a2, a6, a4, n] - 
    S2[a1, SP[a3, a5], a4, a2, a6, n] - S2[a1, SP[a3, a5], a4, a6, a2, n] - 
    S2[a1, SP[a3, a5], a6, a2, a4, n] - S2[a1, SP[a3, a5], a6, a4, a2, n] - 
    S2[a1, SP[a3, a6], a2, a4, a5, n] - S2[a1, SP[a3, a6], a2, a5, a4, n] - 
    S2[a1, SP[a3, a6], a4, a2, a5, n] - S2[a1, SP[a3, a6], a4, a5, a2, n] - 
    S2[a1, SP[a3, a6], a5, a2, a4, n] - S2[a1, SP[a3, a6], a5, a4, a2, n] + 
    S2[a1, SP[a4, a5], a2, a3, a6, n] + S2[a1, SP[a4, a5], a2, a6, a3, n] + 
    S2[a1, SP[a4, a5], a6, a2, a3, n] + S2[a1, SP[a4, a6], a2, a3, a5, n] + 
    S2[a1, SP[a4, a6], a2, a5, a3, n] + S2[a1, SP[a4, a6], a3, a2, a5, n] + 
    S2[a1, SP[a4, a6], a3, a5, a2, n] + S2[a1, SP[a4, a6], a5, a2, a3, n] + 
    S2[a1, SP[a5, a6], a3, a2, a4, n] + S2[a1, SP[a5, a6], a3, a4, a2, n] + 
    S2[a1, SP[a5, a6], a4, a3, a2, n] + S2[a3, a1, a5, a4, SP[a2, a6], n] + 
    S2[a3, a1, a5, a6, SP[a2, a4], n] + S2[a3, a1, a5, SP[a2, a4], a6, n] + 
    S2[a3, a1, a5, SP[a2, a6], a4, n] + S2[a3, a1, a6, a4, SP[a2, a5], n] + 
    S2[a3, a1, a6, a5, SP[a2, a4], n] + S2[a3, a1, a6, SP[a2, a4], a5, n] + 
    S2[a3, a1, a6, SP[a2, a5], a4, n] + S2[a3, a1, SP[a2, a5], a4, a6, n] + 
    S2[a3, a1, SP[a2, a5], a6, a4, n] + S2[a3, a1, SP[a2, a6], a4, a5, n] + 
    S2[a3, a1, SP[a2, a6], a5, a4, n] - S2[a6, n]*S2[a3, a5, a1, a2, a4, n] - 
    S2[a3, a5, a1, a2, SP[a4, a6], n] - S2[a6, n]*S2[a3, a5, a1, a4, a2, n] + 
    S2[a3, a5, a1, a6, SP[a2, a4], n] + S2[a3, a5, a1, SP[a2, a4], a6, n] - 
    S2[a3, a5, a1, SP[a4, a6], a2, n] - S2[a6, n]*S2[a3, a5, a4, a1, a2, n] + 
    S2[a3, a5, a6, a1, SP[a2, a4], n] + S2[a3, a5, a6, SP[a1, a4], a2, n] + 
    S2[a3, a5, SP[a1, a4], a2, a6, n] + S2[a3, a5, SP[a1, a4], a6, a2, n] - 
    S2[a3, a5, SP[a4, a6], a1, a2, n] - S2[a4, n]*S2[a3, a6, a1, a2, a5, n] - 
    S2[a3, a6, a1, a2, SP[a4, a5], n] + S2[a3, a6, a1, a4, SP[a2, a5], n] - 
    S2[a4, n]*S2[a3, a6, a1, a5, a2, n] + S2[a3, a6, a1, SP[a2, a5], a4, n] - 
    S2[a3, a6, a1, SP[a4, a5], a2, n] + S2[a3, a6, a4, a1, SP[a2, a5], n] + 
    S2[a3, a6, a4, SP[a1, a5], a2, n] + S2[a3, a6, a5, a1, SP[a2, a4], n] + 
    S2[a3, a6, a5, SP[a1, a4], a2, n] + S2[a3, a6, SP[a1, a5], a2, a4, n] + 
    S2[a3, a6, SP[a1, a5], a4, a2, n] + S2[a3, SP[a1, a5], a2, a4, a6, n] + 
    S2[a3, SP[a1, a5], a2, a6, a4, n] + S2[a3, SP[a1, a5], a4, a2, a6, n] + 
    S2[a3, SP[a1, a5], a4, a6, a2, n] + S2[a3, SP[a1, a5], a6, a2, a4, n] + 
    S2[a3, SP[a1, a5], a6, a4, a2, n] + S2[a3, SP[a1, a6], a2, a4, a5, n] + 
    S2[a3, SP[a1, a6], a2, a5, a4, n] + S2[a3, SP[a1, a6], a4, a2, a5, n] + 
    S2[a3, SP[a1, a6], a4, a5, a2, n] + S2[a3, SP[a1, a6], a5, a2, a4, n] + 
    S2[a3, SP[a1, a6], a5, a4, a2, n] - S2[a3, SP[a4, a6], a1, a2, a5, n] - 
    S2[a3, SP[a4, a6], a1, a5, a2, n] - S2[a3, SP[a5, a6], a1, a2, a4, n] - 
    S2[a3, SP[a5, a6], a1, a4, a2, n] - S2[a3, SP[a5, a6], a4, a1, a2, n] + 
    S2[a4, a1, a2, a3, SP[a5, a6], n] - S2[a4, a1, a2, a5, SP[a3, a6], n] - 
    S2[a4, a1, a2, a6, SP[a3, a5], n] - S2[a4, a1, a2, SP[a3, a5], a6, n] - 
    S2[a4, a1, a5, a2, SP[a3, a6], n] - S2[a4, a1, a5, SP[a2, a6], a3, n] - 
    S2[a4, a1, a6, a2, SP[a3, a5], n] - S2[a4, a1, a6, a3, SP[a2, a5], n] - 
    S2[a4, a1, a6, SP[a2, a3], a5, n] - S2[a4, a1, a6, SP[a2, a5], a3, n] - 
    S2[a4, a1, SP[a2, a5], a3, a6, n] - S2[a4, a1, SP[a2, a5], a6, a3, n] - 
    S2[a4, a1, SP[a2, a6], a3, a5, n] - S2[a4, a1, SP[a2, a6], a5, a3, n] + 
    S2[a6, n]*S2[a4, a5, a1, a2, a3, n] + 
    S2[a3, n]*S2[a4, a6, a1, a2, a5, n] - S2[a4, a6, a1, a3, SP[a2, a5], n] + 
    S2[a3, n]*S2[a4, a6, a1, a5, a2, n] + S2[a4, a6, a1, a5, SP[a2, a3], n] - 
    S2[a4, a6, a1, SP[a2, a5], a3, n] + S2[a4, a6, a1, SP[a3, a5], a2, n] - 
    S2[a4, a6, a3, a1, SP[a2, a5], n] - S2[a4, a6, a3, SP[a1, a5], a2, n] - 
    S2[a4, a6, SP[a1, a5], a2, a3, n] - S2[a4, SP[a1, a5], a2, a3, a6, n] - 
    S2[a4, SP[a1, a5], a2, a6, a3, n] - S2[a4, SP[a1, a5], a6, a2, a3, n] - 
    S2[a4, SP[a1, a6], a2, a3, a5, n] - S2[a4, SP[a1, a6], a2, a5, a3, n] - 
    S2[a4, SP[a1, a6], a3, a2, a5, n] - S2[a4, SP[a1, a6], a3, a5, a2, n] - 
    S2[a4, SP[a1, a6], a5, a2, a3, n] + S2[a4, SP[a3, a6], a1, a2, a5, n] + 
    S2[a4, SP[a3, a6], a1, a5, a2, n] + S2[a4, SP[a5, a6], a1, a2, a3, n] - 
    S2[a4, n]*S2[a6, a1, a5, a3, a2, n] - S2[a6, a1, a5, a3, SP[a2, a4], n] - 
    S2[a6, a1, a5, SP[a3, a4], a2, n] - S2[a6, a1, SP[a4, a5], a3, a2, n] + 
    S2[a4, n]*S2[a6, a3, a5, a1, a2, n] + S2[a6, a3, a5, a1, SP[a2, a4], n] + 
    S2[a6, a3, a5, SP[a1, a4], a2, n] + S2[a6, a3, SP[a4, a5], a1, a2, n] - 
    S2[a3, n]*S2[a6, a4, a5, a1, a2, n] - S2[a6, a4, a5, a1, SP[a2, a3], n] + 
    S2[a1, n]*S2[a6, a4, a5, a3, a2, n] + S2[a6, a4, a5, a3, SP[a1, a2], n] + 
    S2[a6, a4, SP[a1, a5], a3, a2, n] - S2[a6, a4, SP[a3, a5], a1, a2, n] + 
    S2[SP[a1, a6], a4, a5, a3, a2, n] + S2[SP[a1, a6], a5, a3, a2, a4, n] + 
    S2[SP[a1, a6], a5, a3, a4, a2, n] + S2[SP[a1, a6], a5, a4, a3, a2, n] - 
    S2[SP[a3, a6], a4, a5, a1, a2, n] - S2[SP[a3, a6], a5, a1, a2, a4, n] - 
    S2[SP[a3, a6], a5, a1, a4, a2, n] - S2[SP[a3, a6], a5, a4, a1, a2, n] - 
    S2[SP[a4, a6], a1, a5, a3, a2, n] + S2[SP[a4, a6], a3, a5, a1, a2, n] + 
    S2[SP[a4, a6], a5, a1, a2, a3, n] - S2[a6, a4, a5, a3, a2, a1, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a1_, a2_, a3_, a5_, a6_, a4_, n_] :> 
  S2[a1, a2, a3, n]*S2[a4, a6, a5, n] + S2[SP[a1, a4], SP[a2, a6], 
     SP[a3, a5], n] - S2[a4, a6, n]*S2[a1, a2, a3, a5, n] + 
    S2[a1, a2, SP[a3, a4], SP[a5, a6], n] - S2[a1, a4, SP[a2, a6], 
     SP[a3, a5], n] + S2[a1, SP[a2, a4], a3, SP[a5, a6], n] - 
    S2[a1, SP[a2, a4], a6, SP[a3, a5], n] - S2[a1, a2, n]*
     S2[a3, a6, a4, a5, n] - S2[a1, a2, n]*S2[a3, a6, a5, a4, n] + 
    S2[a3, a6, SP[a1, a4], SP[a2, a5], n] + S2[a3, a6, SP[a1, a5], 
     SP[a2, a4], n] + S2[a3, SP[a1, a6], a4, SP[a2, a5], n] + 
    S2[a3, SP[a1, a6], a5, SP[a2, a4], n] + S2[a3, SP[a1, a6], SP[a2, a4], 
     a5, n] + S2[a3, SP[a1, a6], SP[a2, a5], a4, n] - 
    S2[a4, a1, SP[a2, a6], SP[a3, a5], n] + S2[a1, a2, n]*
     S2[a4, a6, a3, a5, n] - S2[a4, a6, SP[a1, a3], SP[a2, a5], n] - 
    S2[a4, SP[a1, a6], a2, SP[a3, a5], n] - S2[a4, SP[a1, a6], a3, 
     SP[a2, a5], n] - S2[a4, SP[a1, a6], SP[a2, a3], a5, n] - 
    S2[a4, SP[a1, a6], SP[a2, a5], a3, n] + S2[SP[a1, a3], a6, a4, 
     SP[a2, a5], n] + S2[SP[a1, a3], a6, a5, SP[a2, a4], n] + 
    S2[SP[a1, a3], a6, SP[a2, a4], a5, n] + S2[SP[a1, a3], a6, SP[a2, a5], 
     a4, n] + S2[SP[a1, a3], SP[a2, a6], a4, a5, n] + 
    S2[SP[a1, a3], SP[a2, a6], a5, a4, n] + S2[SP[a1, a4], a2, a3, 
     SP[a5, a6], n] - S2[SP[a1, a4], a2, a6, SP[a3, a5], n] - 
    S2[SP[a1, a4], a6, a2, SP[a3, a5], n] - S2[SP[a1, a4], a6, a3, 
     SP[a2, a5], n] - S2[SP[a1, a4], a6, SP[a2, a3], a5, n] - 
    S2[SP[a1, a4], a6, SP[a2, a5], a3, n] - S2[SP[a1, a4], SP[a2, a6], a3, 
     a5, n] - S2[SP[a1, a4], SP[a2, a6], a5, a3, n] - 
    S2[a1, a2, a3, a4, SP[a5, a6], n] + S2[a4, n]*S2[a1, a2, a3, a5, a6, n] + 
    S2[a1, a2, a3, a5, SP[a4, a6], n] - S2[a1, a2, a4, a3, SP[a5, a6], n] + 
    S2[a1, a2, a4, a6, SP[a3, a5], n] - S2[a4, n]*S2[a1, a2, a6, a3, a5, n] - 
    S2[a1, a2, a6, a3, SP[a4, a5], n] + S2[a3, n]*S2[a1, a2, a6, a4, a5, n] + 
    S2[a1, a2, a6, a4, SP[a3, a5], n] - S2[a4, n]*S2[a1, a2, a6, a5, a3, n] + 
    S2[a3, n]*S2[a1, a2, a6, a5, a4, n] + S2[a1, a2, a6, SP[a3, a5], a4, n] - 
    S2[a1, a2, a6, SP[a4, a5], a3, n] + S2[a1, a2, SP[a3, a6], a4, a5, n] + 
    S2[a1, a2, SP[a3, a6], a5, a4, n] - S2[a1, a2, SP[a4, a6], a3, a5, n] - 
    S2[a1, a2, SP[a4, a6], a5, a3, n] - S2[a1, a3, a6, a4, SP[a2, a5], n] - 
    S2[a1, a3, a6, a5, SP[a2, a4], n] - S2[a1, a3, a6, SP[a2, a4], a5, n] - 
    S2[a1, a3, a6, SP[a2, a5], a4, n] - S2[a1, a3, SP[a2, a6], a4, a5, n] - 
    S2[a1, a3, SP[a2, a6], a5, a4, n] - S2[a1, a4, a2, a3, SP[a5, a6], n] + 
    S2[a1, a4, a2, a6, SP[a3, a5], n] + S2[a1, a4, a6, a2, SP[a3, a5], n] + 
    S2[a1, a4, a6, a3, SP[a2, a5], n] + S2[a1, a4, a6, SP[a2, a3], a5, n] + 
    S2[a1, a4, a6, SP[a2, a5], a3, n] + S2[a1, a4, SP[a2, a6], a3, a5, n] + 
    S2[a1, a4, SP[a2, a6], a5, a3, n] - S2[a4, n]*S2[a1, a6, a2, a3, a5, n] - 
    S2[a1, a6, a2, a3, SP[a4, a5], n] + S2[a3, n]*S2[a1, a6, a2, a4, a5, n] + 
    S2[a1, a6, a2, a4, SP[a3, a5], n] - S2[a4, n]*S2[a1, a6, a2, a5, a3, n] + 
    S2[a3, n]*S2[a1, a6, a2, a5, a4, n] + S2[a1, a6, a2, SP[a3, a5], a4, n] - 
    S2[a1, a6, a2, SP[a4, a5], a3, n] - S2[a4, n]*S2[a1, a6, a3, a2, a5, n] - 
    S2[a1, a6, a3, a2, SP[a4, a5], n] - S2[a4, n]*S2[a1, a6, a3, a5, a2, n] - 
    S2[a1, a6, a3, a5, SP[a2, a4], n] - S2[a1, a6, a3, SP[a2, a4], a5, n] - 
    S2[a1, a6, a3, SP[a4, a5], a2, n] + S2[a3, n]*S2[a1, a6, a4, a2, a5, n] + 
    S2[a1, a6, a4, a2, SP[a3, a5], n] + S2[a3, n]*S2[a1, a6, a4, a5, a2, n] + 
    S2[a1, a6, a4, a5, SP[a2, a3], n] + S2[a1, a6, a4, SP[a2, a3], a5, n] + 
    S2[a1, a6, a4, SP[a3, a5], a2, n] - S2[a4, n]*S2[a1, a6, a5, a2, a3, n] + 
    S2[a3, n]*S2[a1, a6, a5, a2, a4, n] + 
    S2[a3, n]*S2[a1, a6, a5, a4, a2, n] + S2[a1, a6, a5, a4, SP[a2, a3], n] + 
    S2[a1, a6, a5, SP[a2, a3], a4, n] - S2[a1, a6, a5, SP[a2, a4], a3, n] + 
    S2[a1, a6, a5, SP[a3, a4], a2, n] + S2[a1, a6, SP[a2, a3], a4, a5, n] + 
    S2[a1, a6, SP[a2, a3], a5, a4, n] - S2[a1, a6, SP[a2, a4], a3, a5, n] - 
    S2[a1, a6, SP[a2, a4], a5, a3, n] + S2[a1, a6, SP[a3, a5], a2, a4, n] + 
    S2[a1, a6, SP[a3, a5], a4, a2, n] - S2[a1, a6, SP[a4, a5], a2, a3, n] + 
    S2[a1, SP[a3, a6], a2, a4, a5, n] + S2[a1, SP[a3, a6], a2, a5, a4, n] + 
    S2[a1, SP[a3, a6], a4, a2, a5, n] + S2[a1, SP[a3, a6], a4, a5, a2, n] + 
    S2[a1, SP[a3, a6], a5, a2, a4, n] + S2[a1, SP[a3, a6], a5, a4, a2, n] - 
    S2[a1, SP[a4, a6], a2, a3, a5, n] - S2[a1, SP[a4, a6], a2, a5, a3, n] - 
    S2[a1, SP[a4, a6], a3, a2, a5, n] - S2[a1, SP[a4, a6], a3, a5, a2, n] - 
    S2[a1, SP[a4, a6], a5, a2, a3, n] - S2[a3, a1, a6, a4, SP[a2, a5], n] - 
    S2[a3, a1, a6, a5, SP[a2, a4], n] - S2[a3, a1, a6, SP[a2, a4], a5, n] - 
    S2[a3, a1, a6, SP[a2, a5], a4, n] - S2[a3, a1, SP[a2, a6], a4, a5, n] - 
    S2[a3, a1, SP[a2, a6], a5, a4, n] + S2[a4, n]*S2[a3, a6, a1, a2, a5, n] + 
    S2[a3, a6, a1, a2, SP[a4, a5], n] - S2[a3, a6, a1, a4, SP[a2, a5], n] + 
    S2[a4, n]*S2[a3, a6, a1, a5, a2, n] - S2[a3, a6, a1, SP[a2, a5], a4, n] + 
    S2[a3, a6, a1, SP[a4, a5], a2, n] - S2[a3, a6, a4, a1, SP[a2, a5], n] - 
    S2[a3, a6, a4, SP[a1, a5], a2, n] - S2[a3, a6, a5, a1, SP[a2, a4], n] - 
    S2[a3, a6, a5, SP[a1, a4], a2, n] - S2[a3, a6, SP[a1, a5], a2, a4, n] - 
    S2[a3, a6, SP[a1, a5], a4, a2, n] - S2[a3, SP[a1, a6], a2, a4, a5, n] - 
    S2[a3, SP[a1, a6], a2, a5, a4, n] - S2[a3, SP[a1, a6], a4, a2, a5, n] - 
    S2[a3, SP[a1, a6], a4, a5, a2, n] - S2[a3, SP[a1, a6], a5, a2, a4, n] - 
    S2[a3, SP[a1, a6], a5, a4, a2, n] + S2[a3, SP[a4, a6], a1, a2, a5, n] + 
    S2[a3, SP[a4, a6], a1, a5, a2, n] - S2[a4, a1, a2, a3, SP[a5, a6], n] + 
    S2[a4, a1, a2, a6, SP[a3, a5], n] + S2[a4, a1, a6, a2, SP[a3, a5], n] + 
    S2[a4, a1, a6, a3, SP[a2, a5], n] + S2[a4, a1, a6, SP[a2, a3], a5, n] + 
    S2[a4, a1, a6, SP[a2, a5], a3, n] + S2[a4, a1, SP[a2, a6], a3, a5, n] + 
    S2[a4, a1, SP[a2, a6], a5, a3, n] - S2[a3, n]*S2[a4, a6, a1, a2, a5, n] + 
    S2[a4, a6, a1, a3, SP[a2, a5], n] - S2[a3, n]*S2[a4, a6, a1, a5, a2, n] - 
    S2[a4, a6, a1, a5, SP[a2, a3], n] + S2[a4, a6, a1, SP[a2, a5], a3, n] - 
    S2[a4, a6, a1, SP[a3, a5], a2, n] + S2[a4, a6, a3, a1, SP[a2, a5], n] + 
    S2[a4, a6, a3, SP[a1, a5], a2, n] + S2[a4, a6, SP[a1, a5], a2, a3, n] + 
    S2[a4, SP[a1, a6], a2, a3, a5, n] + S2[a4, SP[a1, a6], a2, a5, a3, n] + 
    S2[a4, SP[a1, a6], a3, a2, a5, n] + S2[a4, SP[a1, a6], a3, a5, a2, n] + 
    S2[a4, SP[a1, a6], a5, a2, a3, n] - S2[a4, SP[a3, a6], a1, a2, a5, n] - 
    S2[a4, SP[a3, a6], a1, a5, a2, n] + S2[a4, n]*S2[a6, a1, a5, a3, a2, n] + 
    S2[a6, a1, a5, a3, SP[a2, a4], n] + S2[a6, a1, a5, SP[a3, a4], a2, n] + 
    S2[a6, a1, SP[a4, a5], a3, a2, n] - S2[a4, n]*S2[a6, a3, a5, a1, a2, n] - 
    S2[a6, a3, a5, a1, SP[a2, a4], n] - S2[a6, a3, a5, SP[a1, a4], a2, n] - 
    S2[a6, a3, SP[a4, a5], a1, a2, n] + S2[a3, n]*S2[a6, a4, a5, a1, a2, n] + 
    S2[a6, a4, a5, a1, SP[a2, a3], n] - S2[a1, n]*S2[a6, a4, a5, a3, a2, n] - 
    S2[a6, a4, a5, a3, SP[a1, a2], n] - S2[a6, a4, SP[a1, a5], a3, a2, n] + 
    S2[a6, a4, SP[a3, a5], a1, a2, n] - S2[a4, n]*S2[a6, a5, a1, a2, a3, n] + 
    S2[a3, n]*S2[a6, a5, a1, a2, a4, n] + 
    S2[a3, n]*S2[a6, a5, a1, a4, a2, n] + S2[a6, a5, a1, a4, SP[a2, a3], n] + 
    S2[a6, a5, a1, SP[a2, a3], a4, n] - S2[a6, a5, a1, SP[a2, a4], a3, n] + 
    S2[a6, a5, a1, SP[a3, a4], a2, n] - S2[a1, n]*S2[a6, a5, a3, a2, a4, n] - 
    S2[a6, a5, a3, a2, SP[a1, a4], n] - S2[a1, n]*S2[a6, a5, a3, a4, a2, n] - 
    S2[a6, a5, a3, a4, SP[a1, a2], n] - S2[a6, a5, a3, SP[a1, a2], a4, n] - 
    S2[a6, a5, a3, SP[a1, a4], a2, n] + S2[a3, n]*S2[a6, a5, a4, a1, a2, n] + 
    S2[a6, a5, a4, a1, SP[a2, a3], n] - S2[a1, n]*S2[a6, a5, a4, a3, a2, n] - 
    S2[a6, a5, a4, a3, SP[a1, a2], n] - S2[a6, a5, SP[a1, a4], a2, a3, n] - 
    S2[a6, a5, SP[a1, a4], a3, a2, n] + S2[a6, a5, SP[a3, a4], a1, a2, n] - 
    S2[a6, SP[a1, a5], a3, a2, a4, n] - S2[a6, SP[a1, a5], a3, a4, a2, n] - 
    S2[a6, SP[a1, a5], a4, a3, a2, n] + S2[a6, SP[a3, a5], a1, a2, a4, n] + 
    S2[a6, SP[a3, a5], a1, a4, a2, n] + S2[a6, SP[a3, a5], a4, a1, a2, n] - 
    S2[a6, SP[a4, a5], a1, a2, a3, n] - S2[SP[a1, a6], a4, a5, a3, a2, n] - 
    S2[SP[a1, a6], a5, a3, a2, a4, n] - S2[SP[a1, a6], a5, a3, a4, a2, n] - 
    S2[SP[a1, a6], a5, a4, a3, a2, n] + S2[SP[a3, a6], a4, a5, a1, a2, n] + 
    S2[SP[a3, a6], a5, a1, a2, a4, n] + S2[SP[a3, a6], a5, a1, a4, a2, n] + 
    S2[SP[a3, a6], a5, a4, a1, a2, n] + S2[SP[a4, a6], a1, a5, a3, a2, n] - 
    S2[SP[a4, a6], a3, a5, a1, a2, n] - S2[SP[a4, a6], a5, a1, a2, a3, n] + 
    S2[a6, a4, a5, a3, a2, a1, n] + S2[a6, a5, a3, a2, a1, a4, n] + 
    S2[a6, a5, a3, a2, a4, a1, n] + S2[a6, a5, a3, a4, a2, a1, n] + 
    S2[a6, a5, a4, a3, a2, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a1_, a2_, a3_, a6_, a4_, a5_, n_] :> 
  -(S2[a1, a2, a3, n]*S2[a4, a5, a6, n]) - S2[a1, a2, a3, n]*
     S2[a4, a6, a5, n] - S2[SP[a1, a4], SP[a2, a5], SP[a3, a6], n] - 
    S2[SP[a1, a4], SP[a2, a6], SP[a3, a5], n] + S2[a1, a4, SP[a2, a5], 
     SP[a3, a6], n] + S2[a1, a4, SP[a2, a6], SP[a3, a5], n] + 
    S2[a1, SP[a2, a4], a5, SP[a3, a6], n] + S2[a1, SP[a2, a4], a6, 
     SP[a3, a5], n] + S2[a1, SP[a2, a4], SP[a3, a5], a6, n] + 
    S2[a1, SP[a2, a4], SP[a3, a6], a5, n] + S2[a1, a2, n]*
     S2[a3, a6, a4, a5, n] - S2[a3, a6, SP[a1, a4], SP[a2, a5], n] - 
    S2[a3, SP[a1, a6], a4, SP[a2, a5], n] - S2[a3, SP[a1, a6], SP[a2, a4], 
     a5, n] + S2[a4, a1, SP[a2, a5], SP[a3, a6], n] + 
    S2[a4, a1, SP[a2, a6], SP[a3, a5], n] + S2[a4, SP[a1, a5], a2, 
     SP[a3, a6], n] + S2[a4, SP[a1, a5], SP[a2, a6], a3, n] + 
    S2[a4, SP[a1, a6], a2, SP[a3, a5], n] + S2[a4, SP[a1, a6], SP[a2, a5], 
     a3, n] - S2[SP[a1, a3], a6, a4, SP[a2, a5], n] - 
    S2[SP[a1, a3], a6, SP[a2, a4], a5, n] - S2[SP[a1, a3], SP[a2, a6], a4, 
     a5, n] + S2[SP[a1, a4], a2, a5, SP[a3, a6], n] + 
    S2[SP[a1, a4], a2, a6, SP[a3, a5], n] + S2[SP[a1, a4], a2, SP[a3, a5], 
     a6, n] + S2[SP[a1, a4], a2, SP[a3, a6], a5, n] + 
    S2[SP[a1, a4], a5, a2, SP[a3, a6], n] + S2[SP[a1, a4], a5, SP[a2, a6], 
     a3, n] + S2[SP[a1, a4], a6, a2, SP[a3, a5], n] + 
    S2[SP[a1, a4], a6, SP[a2, a5], a3, n] + S2[SP[a1, a4], SP[a2, a5], a3, 
     a6, n] + S2[SP[a1, a4], SP[a2, a5], a6, a3, n] + 
    S2[SP[a1, a4], SP[a2, a6], a3, a5, n] + S2[SP[a1, a4], SP[a2, a6], a5, 
     a3, n] - S2[a6, n]*S2[a1, a2, a3, a5, a4, n] + 
    S2[a4, n]*S2[a1, a2, a3, a5, a6, n] + 
    S2[a4, n]*S2[a1, a2, a3, a6, a5, n] + S2[a1, a2, a3, a6, SP[a4, a5], n] + 
    S2[a1, a2, a3, SP[a4, a5], a6, n] + S2[a1, a2, a3, SP[a4, a6], a5, n] - 
    S2[a1, a2, a3, SP[a5, a6], a4, n] - S2[a1, a2, a4, a5, SP[a3, a6], n] - 
    S2[a1, a2, a4, a6, SP[a3, a5], n] - S2[a1, a2, a4, SP[a3, a5], a6, n] - 
    S2[a1, a2, a4, SP[a3, a6], a5, n] - S2[a6, n]*S2[a1, a2, a5, a3, a4, n] + 
    S2[a4, n]*S2[a1, a2, a5, a3, a6, n] - 
    S2[a6, n]*S2[a1, a2, a5, a4, a3, n] - S2[a1, a2, a5, a4, SP[a3, a6], n] + 
    S2[a4, n]*S2[a1, a2, a5, a6, a3, n] + S2[a1, a2, a5, a6, SP[a3, a4], n] + 
    S2[a1, a2, a5, SP[a3, a4], a6, n] - S2[a1, a2, a5, SP[a3, a6], a4, n] + 
    S2[a4, n]*S2[a1, a2, a6, a3, a5, n] + S2[a1, a2, a6, a3, SP[a4, a5], n] - 
    S2[a3, n]*S2[a1, a2, a6, a4, a5, n] - S2[a1, a2, a6, a4, SP[a3, a5], n] + 
    S2[a4, n]*S2[a1, a2, a6, a5, a3, n] + S2[a1, a2, a6, a5, SP[a3, a4], n] + 
    S2[a1, a2, a6, SP[a4, a5], a3, n] - S2[a1, a2, SP[a3, a6], a4, a5, n] - 
    S2[a1, a2, SP[a3, a6], a5, a4, n] + S2[a1, a2, SP[a4, a5], a3, a6, n] + 
    S2[a1, a2, SP[a4, a5], a6, a3, n] + S2[a1, a2, SP[a4, a6], a3, a5, n] + 
    S2[a1, a2, SP[a4, a6], a5, a3, n] - S2[a1, a2, SP[a5, a6], a3, a4, n] - 
    S2[a1, a2, SP[a5, a6], a4, a3, n] + S2[a1, a3, a6, a4, SP[a2, a5], n] + 
    S2[a1, a3, a6, SP[a2, a4], a5, n] + S2[a1, a3, SP[a2, a6], a4, a5, n] - 
    S2[a1, a4, a2, a5, SP[a3, a6], n] - S2[a1, a4, a2, a6, SP[a3, a5], n] - 
    S2[a1, a4, a2, SP[a3, a5], a6, n] - S2[a1, a4, a2, SP[a3, a6], a5, n] - 
    S2[a1, a4, a5, a2, SP[a3, a6], n] - S2[a1, a4, a5, SP[a2, a6], a3, n] - 
    S2[a1, a4, a6, a2, SP[a3, a5], n] - S2[a1, a4, a6, SP[a2, a5], a3, n] - 
    S2[a1, a4, SP[a2, a5], a3, a6, n] - S2[a1, a4, SP[a2, a5], a6, a3, n] - 
    S2[a1, a4, SP[a2, a6], a3, a5, n] - S2[a1, a4, SP[a2, a6], a5, a3, n] - 
    S2[a6, n]*S2[a1, a5, a2, a3, a4, n] + 
    S2[a4, n]*S2[a1, a5, a2, a3, a6, n] - 
    S2[a6, n]*S2[a1, a5, a2, a4, a3, n] - S2[a1, a5, a2, a4, SP[a3, a6], n] + 
    S2[a4, n]*S2[a1, a5, a2, a6, a3, n] + S2[a1, a5, a2, a6, SP[a3, a4], n] + 
    S2[a1, a5, a2, SP[a3, a4], a6, n] - S2[a1, a5, a2, SP[a3, a6], a4, n] - 
    S2[a6, n]*S2[a1, a5, a4, a2, a3, n] - S2[a1, a5, a4, a2, SP[a3, a6], n] - 
    S2[a1, a5, a4, SP[a2, a6], a3, n] + S2[a4, n]*S2[a1, a5, a6, a2, a3, n] + 
    S2[a1, a5, a6, a2, SP[a3, a4], n] + S2[a1, a5, a6, SP[a2, a4], a3, n] + 
    S2[a1, a5, SP[a2, a4], a3, a6, n] + S2[a1, a5, SP[a2, a4], a6, a3, n] - 
    S2[a1, a5, SP[a2, a6], a3, a4, n] - S2[a1, a5, SP[a2, a6], a4, a3, n] + 
    S2[a4, n]*S2[a1, a6, a2, a3, a5, n] + S2[a1, a6, a2, a3, SP[a4, a5], n] - 
    S2[a3, n]*S2[a1, a6, a2, a4, a5, n] - S2[a1, a6, a2, a4, SP[a3, a5], n] + 
    S2[a4, n]*S2[a1, a6, a2, a5, a3, n] + S2[a1, a6, a2, a5, SP[a3, a4], n] + 
    S2[a1, a6, a2, SP[a4, a5], a3, n] - S2[a3, n]*S2[a1, a6, a4, a2, a5, n] - 
    S2[a1, a6, a4, a2, SP[a3, a5], n] - S2[a3, n]*S2[a1, a6, a4, a5, a2, n] - 
    S2[a1, a6, a4, a5, SP[a2, a3], n] - S2[a1, a6, a4, SP[a2, a3], a5, n] - 
    S2[a1, a6, a4, SP[a3, a5], a2, n] + S2[a4, n]*S2[a1, a6, a5, a2, a3, n] + 
    S2[a1, a6, a5, a2, SP[a3, a4], n] + S2[a1, a6, a5, SP[a2, a4], a3, n] - 
    S2[a1, a6, SP[a2, a3], a4, a5, n] + S2[a1, a6, SP[a2, a4], a3, a5, n] + 
    S2[a1, a6, SP[a2, a4], a5, a3, n] - S2[a1, a6, SP[a3, a4], a2, a5, n] - 
    S2[a1, a6, SP[a3, a4], a5, a2, n] + S2[a1, a6, SP[a4, a5], a2, a3, n] - 
    S2[a1, SP[a2, a6], a3, a5, a4, n] - S2[a1, SP[a2, a6], a5, a3, a4, n] - 
    S2[a1, SP[a2, a6], a5, a4, a3, n] - S2[a1, SP[a3, a6], a2, a4, a5, n] - 
    S2[a1, SP[a3, a6], a4, a2, a5, n] - S2[a1, SP[a3, a6], a4, a5, a2, n] + 
    S2[a1, SP[a4, a5], a2, a3, a6, n] + S2[a1, SP[a4, a5], a2, a6, a3, n] + 
    S2[a1, SP[a4, a5], a6, a2, a3, n] + S2[a1, SP[a4, a6], a2, a3, a5, n] + 
    S2[a1, SP[a4, a6], a2, a5, a3, n] + S2[a1, SP[a4, a6], a5, a2, a3, n] - 
    S2[a1, SP[a5, a6], a2, a3, a4, n] - S2[a1, SP[a5, a6], a2, a4, a3, n] - 
    S2[a1, SP[a5, a6], a4, a2, a3, n] + S2[a3, a1, a6, a4, SP[a2, a5], n] + 
    S2[a3, a1, a6, SP[a2, a4], a5, n] + S2[a3, a1, SP[a2, a6], a4, a5, n] + 
    S2[a3, a6, a1, a4, SP[a2, a5], n] + S2[a3, a6, a1, SP[a2, a4], a5, n] + 
    S2[a3, a6, a4, a1, SP[a2, a5], n] + S2[a3, a6, a4, SP[a1, a5], a2, n] + 
    S2[a3, a6, SP[a1, a4], a2, a5, n] + S2[a3, a6, SP[a1, a4], a5, a2, n] + 
    S2[a3, SP[a1, a6], a2, a4, a5, n] + S2[a3, SP[a1, a6], a4, a2, a5, n] + 
    S2[a3, SP[a1, a6], a4, a5, a2, n] - S2[a4, a1, a2, a5, SP[a3, a6], n] - 
    S2[a4, a1, a2, a6, SP[a3, a5], n] - S2[a4, a1, a2, SP[a3, a5], a6, n] - 
    S2[a4, a1, a2, SP[a3, a6], a5, n] - S2[a4, a1, a5, a2, SP[a3, a6], n] - 
    S2[a4, a1, a5, SP[a2, a6], a3, n] - S2[a4, a1, a6, a2, SP[a3, a5], n] - 
    S2[a4, a1, a6, SP[a2, a5], a3, n] - S2[a4, a1, SP[a2, a5], a3, a6, n] - 
    S2[a4, a1, SP[a2, a5], a6, a3, n] - S2[a4, a1, SP[a2, a6], a3, a5, n] - 
    S2[a4, a1, SP[a2, a6], a5, a3, n] + S2[a6, n]*S2[a4, a5, a1, a2, a3, n] - 
    S2[a4, a6, a1, a2, SP[a3, a5], n] - S2[a4, a6, a1, SP[a2, a5], a3, n] - 
    S2[a4, a6, SP[a1, a5], a2, a3, n] - S2[a4, SP[a1, a5], a2, a3, a6, n] - 
    S2[a4, SP[a1, a5], a2, a6, a3, n] - S2[a4, SP[a1, a5], a6, a2, a3, n] - 
    S2[a4, SP[a1, a6], a2, a3, a5, n] - S2[a4, SP[a1, a6], a2, a5, a3, n] - 
    S2[a4, SP[a1, a6], a5, a2, a3, n] + S2[a4, SP[a5, a6], a1, a2, a3, n] + 
    S2[a4, n]*S2[a6, a1, a2, a3, a5, n] + S2[a6, a1, a2, a3, SP[a4, a5], n] - 
    S2[a3, n]*S2[a6, a1, a2, a4, a5, n] - S2[a6, a1, a2, a4, SP[a3, a5], n] + 
    S2[a4, n]*S2[a6, a1, a2, a5, a3, n] + S2[a6, a1, a2, a5, SP[a3, a4], n] + 
    S2[a6, a1, a2, SP[a4, a5], a3, n] - S2[a3, n]*S2[a6, a1, a4, a2, a5, n] - 
    S2[a6, a1, a4, a2, SP[a3, a5], n] - S2[a3, n]*S2[a6, a1, a4, a5, a2, n] - 
    S2[a6, a1, a4, a5, SP[a2, a3], n] - S2[a6, a1, a4, SP[a2, a3], a5, n] - 
    S2[a6, a1, a4, SP[a3, a5], a2, n] + S2[a4, n]*S2[a6, a1, a5, a2, a3, n] + 
    S2[a6, a1, a5, a2, SP[a3, a4], n] + S2[a6, a1, a5, SP[a2, a4], a3, n] - 
    S2[a6, a1, SP[a2, a3], a4, a5, n] + S2[a6, a1, SP[a2, a4], a3, a5, n] + 
    S2[a6, a1, SP[a2, a4], a5, a3, n] - S2[a6, a1, SP[a3, a4], a2, a5, n] - 
    S2[a6, a1, SP[a3, a4], a5, a2, n] + S2[a6, a1, SP[a4, a5], a2, a3, n] + 
    S2[a1, n]*S2[a6, a3, a2, a4, a5, n] + S2[a6, a3, a2, a4, SP[a1, a5], n] + 
    S2[a6, a3, a2, SP[a1, a4], a5, n] + S2[a1, n]*S2[a6, a3, a4, a2, a5, n] + 
    S2[a6, a3, a4, a2, SP[a1, a5], n] + S2[a1, n]*S2[a6, a3, a4, a5, a2, n] + 
    S2[a6, a3, a4, a5, SP[a1, a2], n] + S2[a6, a3, a4, SP[a1, a2], a5, n] + 
    S2[a6, a3, a4, SP[a1, a5], a2, n] + S2[a6, a3, SP[a1, a2], a4, a5, n] + 
    S2[a6, a3, SP[a1, a4], a2, a5, n] + S2[a6, a3, SP[a1, a4], a5, a2, n] - 
    S2[a3, n]*S2[a6, a4, a1, a2, a5, n] - S2[a6, a4, a1, a2, SP[a3, a5], n] - 
    S2[a3, n]*S2[a6, a4, a1, a5, a2, n] - S2[a6, a4, a1, a5, SP[a2, a3], n] - 
    S2[a6, a4, a1, SP[a2, a3], a5, n] - S2[a6, a4, a1, SP[a3, a5], a2, n] + 
    S2[a1, n]*S2[a6, a4, a3, a2, a5, n] + S2[a6, a4, a3, a2, SP[a1, a5], n] + 
    S2[a1, n]*S2[a6, a4, a3, a5, a2, n] + S2[a6, a4, a3, a5, SP[a1, a2], n] + 
    S2[a6, a4, a3, SP[a1, a2], a5, n] + S2[a6, a4, a3, SP[a1, a5], a2, n] - 
    S2[a3, n]*S2[a6, a4, a5, a1, a2, n] - S2[a6, a4, a5, a1, SP[a2, a3], n] + 
    S2[a1, n]*S2[a6, a4, a5, a3, a2, n] + S2[a6, a4, a5, a3, SP[a1, a2], n] + 
    S2[a6, a4, SP[a1, a5], a3, a2, n] - S2[a6, a4, SP[a3, a5], a1, a2, n] + 
    S2[a6, SP[a1, a4], a2, a3, a5, n] + S2[a6, SP[a1, a4], a2, a5, a3, n] + 
    S2[a6, SP[a1, a4], a3, a2, a5, n] + S2[a6, SP[a1, a4], a3, a5, a2, n] + 
    S2[a6, SP[a1, a4], a5, a2, a3, n] + S2[a6, SP[a1, a4], a5, a3, a2, n] - 
    S2[a6, SP[a3, a4], a1, a2, a5, n] - S2[a6, SP[a3, a4], a1, a5, a2, n] - 
    S2[a6, SP[a3, a4], a5, a1, a2, n] - S2[SP[a1, a6], a2, a3, a5, a4, n] - 
    S2[SP[a1, a6], a2, a5, a3, a4, n] - S2[SP[a1, a6], a2, a5, a4, a3, n] + 
    S2[SP[a1, a6], a3, a2, a4, a5, n] + S2[SP[a1, a6], a3, a4, a2, a5, n] + 
    S2[SP[a1, a6], a3, a4, a5, a2, n] + S2[SP[a1, a6], a4, a3, a2, a5, n] + 
    S2[SP[a1, a6], a4, a3, a5, a2, n] + S2[SP[a1, a6], a4, a5, a3, a2, n] - 
    S2[SP[a1, a6], a5, a2, a3, a4, n] - S2[SP[a1, a6], a5, a2, a4, a3, n] - 
    S2[SP[a1, a6], a5, a4, a2, a3, n] - S2[SP[a3, a6], a1, a2, a4, a5, n] - 
    S2[SP[a3, a6], a1, a4, a2, a5, n] - S2[SP[a3, a6], a1, a4, a5, a2, n] - 
    S2[SP[a3, a6], a4, a1, a2, a5, n] - S2[SP[a3, a6], a4, a1, a5, a2, n] - 
    S2[SP[a3, a6], a4, a5, a1, a2, n] + S2[SP[a4, a6], a1, a2, a3, a5, n] + 
    S2[SP[a4, a6], a1, a2, a5, a3, n] + S2[SP[a4, a6], a1, a5, a2, a3, n] + 
    S2[SP[a4, a6], a5, a1, a2, a3, n] - S2[a6, a3, a2, a1, a4, a5, n] - 
    S2[a6, a3, a2, a4, a1, a5, n] - S2[a6, a3, a2, a4, a5, a1, n] - 
    S2[a6, a3, a4, a2, a1, a5, n] - S2[a6, a3, a4, a2, a5, a1, n] - 
    S2[a6, a3, a4, a5, a2, a1, n] - S2[a6, a4, a3, a2, a1, a5, n] - 
    S2[a6, a4, a3, a2, a5, a1, n] - S2[a6, a4, a3, a5, a2, a1, n] - 
    S2[a6, a4, a5, a3, a2, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a1_, a2_, a3_, a6_, a5_, a4_, n_] :> 
  S2[a1, a2, a3, n]*S2[a4, a5, a6, n] + S2[SP[a1, a4], SP[a2, a5], 
     SP[a3, a6], n] - S2[a1, a4, SP[a2, a5], SP[a3, a6], n] - 
    S2[a1, SP[a2, a4], a5, SP[a3, a6], n] - S2[a1, SP[a2, a4], SP[a3, a5], 
     a6, n] + S2[a1, a2, n]*S2[a3, a6, a5, a4, n] - 
    S2[a3, a6, SP[a1, a5], SP[a2, a4], n] - S2[a3, SP[a1, a6], a5, 
     SP[a2, a4], n] - S2[a3, SP[a1, a6], SP[a2, a5], a4, n] - 
    S2[a4, a1, SP[a2, a5], SP[a3, a6], n] - S2[a4, SP[a1, a5], a2, 
     SP[a3, a6], n] - S2[a4, SP[a1, a5], SP[a2, a6], a3, n] - 
    S2[SP[a1, a3], a6, a5, SP[a2, a4], n] - S2[SP[a1, a3], a6, SP[a2, a5], 
     a4, n] - S2[SP[a1, a3], SP[a2, a6], a5, a4, n] - 
    S2[SP[a1, a4], a2, a5, SP[a3, a6], n] - S2[SP[a1, a4], a2, SP[a3, a5], 
     a6, n] - S2[SP[a1, a4], a5, a2, SP[a3, a6], n] - 
    S2[SP[a1, a4], a5, SP[a2, a6], a3, n] - S2[SP[a1, a4], SP[a2, a5], a3, 
     a6, n] - S2[SP[a1, a4], SP[a2, a5], a6, a3, n] + 
    S2[a6, n]*S2[a1, a2, a3, a5, a4, n] - 
    S2[a4, n]*S2[a1, a2, a3, a5, a6, n] - S2[a1, a2, a3, SP[a4, a5], a6, n] + 
    S2[a1, a2, a3, SP[a5, a6], a4, n] + S2[a1, a2, a4, a5, SP[a3, a6], n] + 
    S2[a1, a2, a4, SP[a3, a5], a6, n] + S2[a6, n]*S2[a1, a2, a5, a3, a4, n] - 
    S2[a4, n]*S2[a1, a2, a5, a3, a6, n] + 
    S2[a6, n]*S2[a1, a2, a5, a4, a3, n] + S2[a1, a2, a5, a4, SP[a3, a6], n] - 
    S2[a4, n]*S2[a1, a2, a5, a6, a3, n] - S2[a1, a2, a5, a6, SP[a3, a4], n] - 
    S2[a1, a2, a5, SP[a3, a4], a6, n] + S2[a1, a2, a5, SP[a3, a6], a4, n] - 
    S2[a3, n]*S2[a1, a2, a6, a5, a4, n] - S2[a1, a2, a6, a5, SP[a3, a4], n] - 
    S2[a1, a2, a6, SP[a3, a5], a4, n] - S2[a1, a2, SP[a4, a5], a3, a6, n] - 
    S2[a1, a2, SP[a4, a5], a6, a3, n] + S2[a1, a2, SP[a5, a6], a3, a4, n] + 
    S2[a1, a2, SP[a5, a6], a4, a3, n] + S2[a1, a3, a6, a5, SP[a2, a4], n] + 
    S2[a1, a3, a6, SP[a2, a5], a4, n] + S2[a1, a3, SP[a2, a6], a5, a4, n] + 
    S2[a1, a4, a2, a5, SP[a3, a6], n] + S2[a1, a4, a2, SP[a3, a5], a6, n] + 
    S2[a1, a4, a5, a2, SP[a3, a6], n] + S2[a1, a4, a5, SP[a2, a6], a3, n] + 
    S2[a1, a4, SP[a2, a5], a3, a6, n] + S2[a1, a4, SP[a2, a5], a6, a3, n] + 
    S2[a6, n]*S2[a1, a5, a2, a3, a4, n] - 
    S2[a4, n]*S2[a1, a5, a2, a3, a6, n] + 
    S2[a6, n]*S2[a1, a5, a2, a4, a3, n] + S2[a1, a5, a2, a4, SP[a3, a6], n] - 
    S2[a4, n]*S2[a1, a5, a2, a6, a3, n] - S2[a1, a5, a2, a6, SP[a3, a4], n] - 
    S2[a1, a5, a2, SP[a3, a4], a6, n] + S2[a1, a5, a2, SP[a3, a6], a4, n] + 
    S2[a6, n]*S2[a1, a5, a4, a2, a3, n] + S2[a1, a5, a4, a2, SP[a3, a6], n] + 
    S2[a1, a5, a4, SP[a2, a6], a3, n] - S2[a4, n]*S2[a1, a5, a6, a2, a3, n] - 
    S2[a1, a5, a6, a2, SP[a3, a4], n] - S2[a1, a5, a6, SP[a2, a4], a3, n] - 
    S2[a1, a5, SP[a2, a4], a3, a6, n] - S2[a1, a5, SP[a2, a4], a6, a3, n] + 
    S2[a1, a5, SP[a2, a6], a3, a4, n] + S2[a1, a5, SP[a2, a6], a4, a3, n] - 
    S2[a3, n]*S2[a1, a6, a2, a5, a4, n] - S2[a1, a6, a2, a5, SP[a3, a4], n] - 
    S2[a1, a6, a2, SP[a3, a5], a4, n] - S2[a3, n]*S2[a1, a6, a5, a2, a4, n] - 
    S2[a1, a6, a5, a2, SP[a3, a4], n] - S2[a3, n]*S2[a1, a6, a5, a4, a2, n] - 
    S2[a1, a6, a5, a4, SP[a2, a3], n] - S2[a1, a6, a5, SP[a2, a3], a4, n] - 
    S2[a1, a6, a5, SP[a3, a4], a2, n] - S2[a1, a6, SP[a2, a3], a5, a4, n] - 
    S2[a1, a6, SP[a3, a5], a2, a4, n] - S2[a1, a6, SP[a3, a5], a4, a2, n] + 
    S2[a1, SP[a2, a6], a3, a5, a4, n] + S2[a1, SP[a2, a6], a5, a3, a4, n] + 
    S2[a1, SP[a2, a6], a5, a4, a3, n] - S2[a1, SP[a3, a6], a2, a5, a4, n] - 
    S2[a1, SP[a3, a6], a5, a2, a4, n] - S2[a1, SP[a3, a6], a5, a4, a2, n] - 
    S2[a1, SP[a4, a5], a2, a3, a6, n] - S2[a1, SP[a4, a5], a2, a6, a3, n] - 
    S2[a1, SP[a4, a5], a6, a2, a3, n] + S2[a1, SP[a5, a6], a2, a3, a4, n] + 
    S2[a1, SP[a5, a6], a2, a4, a3, n] + S2[a1, SP[a5, a6], a4, a2, a3, n] + 
    S2[a3, a1, a6, a5, SP[a2, a4], n] + S2[a3, a1, a6, SP[a2, a5], a4, n] + 
    S2[a3, a1, SP[a2, a6], a5, a4, n] + S2[a3, a6, a1, a5, SP[a2, a4], n] + 
    S2[a3, a6, a1, SP[a2, a5], a4, n] + S2[a3, a6, a5, a1, SP[a2, a4], n] + 
    S2[a3, a6, a5, SP[a1, a4], a2, n] + S2[a3, a6, SP[a1, a5], a2, a4, n] + 
    S2[a3, a6, SP[a1, a5], a4, a2, n] + S2[a3, SP[a1, a6], a2, a5, a4, n] + 
    S2[a3, SP[a1, a6], a5, a2, a4, n] + S2[a3, SP[a1, a6], a5, a4, a2, n] + 
    S2[a4, a1, a2, a5, SP[a3, a6], n] + S2[a4, a1, a2, SP[a3, a5], a6, n] + 
    S2[a4, a1, a5, a2, SP[a3, a6], n] + S2[a4, a1, a5, SP[a2, a6], a3, n] + 
    S2[a4, a1, SP[a2, a5], a3, a6, n] + S2[a4, a1, SP[a2, a5], a6, a3, n] - 
    S2[a6, n]*S2[a4, a5, a1, a2, a3, n] + S2[a4, SP[a1, a5], a2, a3, a6, n] + 
    S2[a4, SP[a1, a5], a2, a6, a3, n] + S2[a4, SP[a1, a5], a6, a2, a3, n] - 
    S2[a4, SP[a5, a6], a1, a2, a3, n] - S2[a3, n]*S2[a6, a1, a2, a5, a4, n] - 
    S2[a6, a1, a2, a5, SP[a3, a4], n] - S2[a6, a1, a2, SP[a3, a5], a4, n] - 
    S2[a3, n]*S2[a6, a1, a5, a2, a4, n] - S2[a6, a1, a5, a2, SP[a3, a4], n] - 
    S2[a3, n]*S2[a6, a1, a5, a4, a2, n] - S2[a6, a1, a5, a4, SP[a2, a3], n] - 
    S2[a6, a1, a5, SP[a2, a3], a4, n] - S2[a6, a1, a5, SP[a3, a4], a2, n] - 
    S2[a6, a1, SP[a2, a3], a5, a4, n] - S2[a6, a1, SP[a3, a5], a2, a4, n] - 
    S2[a6, a1, SP[a3, a5], a4, a2, n] + S2[a1, n]*S2[a6, a3, a2, a5, a4, n] + 
    S2[a6, a3, a2, a5, SP[a1, a4], n] + S2[a6, a3, a2, SP[a1, a5], a4, n] + 
    S2[a1, n]*S2[a6, a3, a5, a2, a4, n] + S2[a6, a3, a5, a2, SP[a1, a4], n] + 
    S2[a1, n]*S2[a6, a3, a5, a4, a2, n] + S2[a6, a3, a5, a4, SP[a1, a2], n] + 
    S2[a6, a3, a5, SP[a1, a2], a4, n] + S2[a6, a3, a5, SP[a1, a4], a2, n] + 
    S2[a6, a3, SP[a1, a2], a5, a4, n] + S2[a6, a3, SP[a1, a5], a2, a4, n] + 
    S2[a6, a3, SP[a1, a5], a4, a2, n] + S2[a4, n]*S2[a6, a5, a1, a2, a3, n] - 
    S2[a3, n]*S2[a6, a5, a1, a2, a4, n] - 
    S2[a3, n]*S2[a6, a5, a1, a4, a2, n] - S2[a6, a5, a1, a4, SP[a2, a3], n] - 
    S2[a6, a5, a1, SP[a2, a3], a4, n] + S2[a6, a5, a1, SP[a2, a4], a3, n] - 
    S2[a6, a5, a1, SP[a3, a4], a2, n] + S2[a1, n]*S2[a6, a5, a3, a2, a4, n] + 
    S2[a6, a5, a3, a2, SP[a1, a4], n] + S2[a1, n]*S2[a6, a5, a3, a4, a2, n] + 
    S2[a6, a5, a3, a4, SP[a1, a2], n] + S2[a6, a5, a3, SP[a1, a2], a4, n] + 
    S2[a6, a5, a3, SP[a1, a4], a2, n] - S2[a3, n]*S2[a6, a5, a4, a1, a2, n] - 
    S2[a6, a5, a4, a1, SP[a2, a3], n] + S2[a1, n]*S2[a6, a5, a4, a3, a2, n] + 
    S2[a6, a5, a4, a3, SP[a1, a2], n] + S2[a6, a5, SP[a1, a4], a2, a3, n] + 
    S2[a6, a5, SP[a1, a4], a3, a2, n] - S2[a6, a5, SP[a3, a4], a1, a2, n] + 
    S2[a6, SP[a1, a5], a3, a2, a4, n] + S2[a6, SP[a1, a5], a3, a4, a2, n] + 
    S2[a6, SP[a1, a5], a4, a3, a2, n] - S2[a6, SP[a3, a5], a1, a2, a4, n] - 
    S2[a6, SP[a3, a5], a1, a4, a2, n] - S2[a6, SP[a3, a5], a4, a1, a2, n] + 
    S2[a6, SP[a4, a5], a1, a2, a3, n] + S2[SP[a1, a6], a2, a3, a5, a4, n] + 
    S2[SP[a1, a6], a2, a5, a3, a4, n] + S2[SP[a1, a6], a2, a5, a4, a3, n] + 
    S2[SP[a1, a6], a3, a2, a5, a4, n] + S2[SP[a1, a6], a3, a5, a2, a4, n] + 
    S2[SP[a1, a6], a3, a5, a4, a2, n] + S2[SP[a1, a6], a5, a2, a3, a4, n] + 
    S2[SP[a1, a6], a5, a2, a4, a3, n] + S2[SP[a1, a6], a5, a3, a2, a4, n] + 
    S2[SP[a1, a6], a5, a3, a4, a2, n] + S2[SP[a1, a6], a5, a4, a2, a3, n] + 
    S2[SP[a1, a6], a5, a4, a3, a2, n] - S2[SP[a3, a6], a1, a2, a5, a4, n] - 
    S2[SP[a3, a6], a1, a5, a2, a4, n] - S2[SP[a3, a6], a1, a5, a4, a2, n] - 
    S2[SP[a3, a6], a5, a1, a2, a4, n] - S2[SP[a3, a6], a5, a1, a4, a2, n] - 
    S2[SP[a3, a6], a5, a4, a1, a2, n] - S2[a6, a3, a2, a1, a5, a4, n] - 
    S2[a6, a3, a2, a5, a1, a4, n] - S2[a6, a3, a2, a5, a4, a1, n] - 
    S2[a6, a3, a5, a2, a1, a4, n] - S2[a6, a3, a5, a2, a4, a1, n] - 
    S2[a6, a3, a5, a4, a2, a1, n] - S2[a6, a5, a3, a2, a1, a4, n] - 
    S2[a6, a5, a3, a2, a4, a1, n] - S2[a6, a5, a3, a4, a2, a1, n] - 
    S2[a6, a5, a4, a3, a2, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a1_, a2_, a4_, a3_, a5_, a6_, n_] :> 
  S2[a1, a2, a4, n]*S2[a3, a5, a6, n] + S2[SP[a1, a3], SP[a2, a5], 
     SP[a4, a6], n] + S2[a5, a6, n]*S2[a1, a2, a4, a3, n] - 
    S2[a1, a2, SP[a4, a5], SP[a3, a6], n] - S2[a1, a3, SP[a2, a5], 
     SP[a4, a6], n] - S2[a1, SP[a2, a3], a5, SP[a4, a6], n] - 
    S2[a1, SP[a2, a3], SP[a4, a5], a6, n] - S2[a1, SP[a2, a5], a4, 
     SP[a3, a6], n] - S2[a1, SP[a2, a5], SP[a4, a6], a3, n] - 
    S2[a3, a1, SP[a2, a5], SP[a4, a6], n] - S2[a1, a2, n]*
     S2[a3, a4, a5, a6, n] - S2[a1, a2, n]*S2[a3, a4, a6, a5, n] + 
    S2[a3, a4, SP[a1, a5], SP[a2, a6], n] + S2[a3, a4, SP[a1, a6], 
     SP[a2, a5], n] - S2[a1, a2, n]*S2[a3, a5, a4, a6, n] - 
    S2[a1, a2, n]*S2[a3, a5, a6, a4, n] + S2[a3, a5, SP[a1, a4], SP[a2, a6], 
     n] + S2[a3, a5, SP[a1, a6], SP[a2, a4], n] - 
    S2[a1, a2, n]*S2[a3, a6, a4, a5, n] - S2[a1, a2, n]*
     S2[a3, a6, a5, a4, n] + S2[a3, a6, SP[a1, a4], SP[a2, a5], n] + 
    S2[a3, a6, SP[a1, a5], SP[a2, a4], n] + S2[a3, SP[a1, a4], a5, 
     SP[a2, a6], n] + S2[a3, SP[a1, a4], a6, SP[a2, a5], n] + 
    S2[a3, SP[a1, a4], SP[a2, a5], a6, n] + S2[a3, SP[a1, a4], SP[a2, a6], 
     a5, n] - S2[a3, SP[a1, a5], a2, SP[a4, a6], n] + 
    S2[a3, SP[a1, a5], a4, SP[a2, a6], n] + S2[a3, SP[a1, a5], a6, 
     SP[a2, a4], n] + S2[a3, SP[a1, a5], SP[a2, a4], a6, n] + 
    S2[a3, SP[a1, a6], a4, SP[a2, a5], n] + S2[a3, SP[a1, a6], a5, 
     SP[a2, a4], n] + S2[a3, SP[a1, a6], SP[a2, a4], a5, n] + 
    S2[a3, SP[a1, a6], SP[a2, a5], a4, n] + S2[a1, a2, n]*
     S2[a5, a6, a3, a4, n] - S2[a5, a6, SP[a1, a3], SP[a2, a4], n] - 
    S2[a5, SP[a1, a6], a3, SP[a2, a4], n] - S2[a5, SP[a1, a6], SP[a2, a3], 
     a4, n] - S2[SP[a1, a3], a2, a5, SP[a4, a6], n] - 
    S2[SP[a1, a3], a2, SP[a4, a5], a6, n] + S2[SP[a1, a3], a4, a5, 
     SP[a2, a6], n] + S2[SP[a1, a3], a4, a6, SP[a2, a5], n] + 
    S2[SP[a1, a3], a4, SP[a2, a5], a6, n] + S2[SP[a1, a3], a4, SP[a2, a6], 
     a5, n] - S2[SP[a1, a3], a5, a2, SP[a4, a6], n] + 
    S2[SP[a1, a3], a5, a4, SP[a2, a6], n] + S2[SP[a1, a3], a5, a6, 
     SP[a2, a4], n] + S2[SP[a1, a3], a5, SP[a2, a4], a6, n] + 
    S2[SP[a1, a3], a6, a4, SP[a2, a5], n] + S2[SP[a1, a3], a6, a5, 
     SP[a2, a4], n] + S2[SP[a1, a3], a6, SP[a2, a4], a5, n] + 
    S2[SP[a1, a3], a6, SP[a2, a5], a4, n] + S2[SP[a1, a3], SP[a2, a4], a5, 
     a6, n] + S2[SP[a1, a3], SP[a2, a4], a6, a5, n] + 
    S2[SP[a1, a3], SP[a2, a6], a4, a5, n] + S2[SP[a1, a3], SP[a2, a6], a5, 
     a4, n] - S2[SP[a1, a5], a2, a4, SP[a3, a6], n] - 
    S2[SP[a1, a5], a2, SP[a4, a6], a3, n] - S2[SP[a1, a5], a6, a3, 
     SP[a2, a4], n] - S2[SP[a1, a5], a6, SP[a2, a3], a4, n] - 
    S2[SP[a1, a5], SP[a2, a6], a3, a4, n] - S2[SP[a1, a5], SP[a2, a6], a4, 
     a3, n] + S2[a1, a2, a3, a5, SP[a4, a6], n] + S2[a1, a2, a3, SP[a4, a5], 
     a6, n] - S2[a5, n]*S2[a1, a2, a4, a3, a6, n] - 
    S2[a1, a2, a4, a3, SP[a5, a6], n] + S2[a1, a2, a4, a5, SP[a3, a6], n] - 
    S2[a5, n]*S2[a1, a2, a4, a6, a3, n] + 
    S2[a3, n]*S2[a1, a2, a4, a6, a5, n] + S2[a1, a2, a4, SP[a3, a6], a5, n] - 
    S2[a1, a2, a4, SP[a5, a6], a3, n] + S2[a1, a2, a5, a4, SP[a3, a6], n] + 
    S2[a1, a2, a5, SP[a4, a6], a3, n] - S2[a5, n]*S2[a1, a2, a6, a3, a4, n] - 
    S2[a1, a2, a6, a3, SP[a4, a5], n] - S2[a5, n]*S2[a1, a2, a6, a4, a3, n] + 
    S2[a3, n]*S2[a1, a2, a6, a4, a5, n] + 
    S2[a3, n]*S2[a1, a2, a6, a5, a4, n] + S2[a1, a2, a6, a5, SP[a3, a4], n] + 
    S2[a1, a2, a6, SP[a3, a4], a5, n] - S2[a1, a2, a6, SP[a4, a5], a3, n] + 
    S2[a1, a2, SP[a3, a4], a5, a6, n] + S2[a1, a2, SP[a3, a4], a6, a5, n] + 
    S2[a1, a2, SP[a3, a6], a4, a5, n] + S2[a1, a2, SP[a3, a6], a5, a4, n] - 
    S2[a1, a2, SP[a5, a6], a3, a4, n] - S2[a1, a2, SP[a5, a6], a4, a3, n] + 
    S2[a1, a3, a2, a5, SP[a4, a6], n] + S2[a1, a3, a2, SP[a4, a5], a6, n] - 
    S2[a1, a3, a4, a5, SP[a2, a6], n] - S2[a1, a3, a4, a6, SP[a2, a5], n] - 
    S2[a1, a3, a4, SP[a2, a5], a6, n] - S2[a1, a3, a4, SP[a2, a6], a5, n] + 
    S2[a1, a3, a5, a2, SP[a4, a6], n] - S2[a1, a3, a5, a4, SP[a2, a6], n] - 
    S2[a1, a3, a5, a6, SP[a2, a4], n] - S2[a1, a3, a5, SP[a2, a4], a6, n] - 
    S2[a1, a3, a6, a4, SP[a2, a5], n] - S2[a1, a3, a6, a5, SP[a2, a4], n] - 
    S2[a1, a3, a6, SP[a2, a4], a5, n] - S2[a1, a3, a6, SP[a2, a5], a4, n] - 
    S2[a1, a3, SP[a2, a4], a5, a6, n] - S2[a1, a3, SP[a2, a4], a6, a5, n] - 
    S2[a1, a3, SP[a2, a6], a4, a5, n] - S2[a1, a3, SP[a2, a6], a5, a4, n] - 
    S2[a6, n]*S2[a1, a4, a2, a3, a5, n] - S2[a1, a4, a2, a3, SP[a5, a6], n] - 
    S2[a6, n]*S2[a1, a4, a2, a5, a3, n] + 
    S2[a3, n]*S2[a1, a4, a2, a5, a6, n] + 
    S2[a3, n]*S2[a1, a4, a2, a6, a5, n] + S2[a1, a4, a2, a6, SP[a3, a5], n] + 
    S2[a1, a4, a2, SP[a3, a5], a6, n] - S2[a1, a4, a2, SP[a5, a6], a3, n] - 
    S2[a6, n]*S2[a1, a4, a3, a2, a5, n] - S2[a1, a4, a3, a2, SP[a5, a6], n] - 
    S2[a6, n]*S2[a1, a4, a3, a5, a2, n] - S2[a1, a4, a3, a5, SP[a2, a6], n] - 
    S2[a1, a4, a3, SP[a2, a6], a5, n] - S2[a1, a4, a3, SP[a5, a6], a2, n] - 
    S2[a6, n]*S2[a1, a4, a5, a2, a3, n] + 
    S2[a3, n]*S2[a1, a4, a5, a2, a6, n] - 
    S2[a6, n]*S2[a1, a4, a5, a3, a2, n] - S2[a1, a4, a5, a3, SP[a2, a6], n] + 
    S2[a3, n]*S2[a1, a4, a5, a6, a2, n] + S2[a1, a4, a5, a6, SP[a2, a3], n] + 
    S2[a1, a4, a5, SP[a2, a3], a6, n] - S2[a1, a4, a5, SP[a2, a6], a3, n] + 
    S2[a3, n]*S2[a1, a4, a6, a2, a5, n] + S2[a1, a4, a6, a2, SP[a3, a5], n] + 
    S2[a3, n]*S2[a1, a4, a6, a5, a2, n] + S2[a1, a4, a6, a5, SP[a2, a3], n] + 
    S2[a1, a4, a6, SP[a2, a3], a5, n] + S2[a1, a4, a6, SP[a3, a5], a2, n] + 
    S2[a1, a4, SP[a2, a3], a5, a6, n] + S2[a1, a4, SP[a2, a3], a6, a5, n] - 
    S2[a1, a4, SP[a2, a6], a3, a5, n] - S2[a1, a4, SP[a2, a6], a5, a3, n] + 
    S2[a1, a4, SP[a3, a5], a2, a6, n] + S2[a1, a4, SP[a3, a5], a6, a2, n] - 
    S2[a1, a4, SP[a5, a6], a2, a3, n] - S2[a1, a4, SP[a5, a6], a3, a2, n] + 
    S2[a1, a5, a2, a4, SP[a3, a6], n] + S2[a1, a5, a2, SP[a4, a6], a3, n] - 
    S2[a6, n]*S2[a1, a5, a3, a4, a2, n] - S2[a1, a5, a3, a4, SP[a2, a6], n] - 
    S2[a1, a5, a3, SP[a4, a6], a2, n] - S2[a6, n]*S2[a1, a5, a4, a2, a3, n] + 
    S2[a3, n]*S2[a1, a5, a4, a2, a6, n] - 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] - S2[a1, a5, a4, a3, SP[a2, a6], n] + 
    S2[a3, n]*S2[a1, a5, a4, a6, a2, n] + S2[a1, a5, a4, a6, SP[a2, a3], n] + 
    S2[a1, a5, a4, SP[a2, a3], a6, n] - S2[a1, a5, a4, SP[a2, a6], a3, n] + 
    S2[a1, a5, a6, a3, SP[a2, a4], n] + S2[a3, n]*S2[a1, a5, a6, a4, a2, n] + 
    S2[a1, a5, a6, a4, SP[a2, a3], n] + S2[a1, a5, a6, SP[a2, a3], a4, n] + 
    S2[a1, a5, a6, SP[a3, a4], a2, n] + S2[a1, a5, SP[a2, a6], a3, a4, n] + 
    S2[a1, a5, SP[a2, a6], a4, a3, n] + S2[a1, a5, SP[a3, a4], a2, a6, n] + 
    S2[a1, a5, SP[a3, a4], a6, a2, n] - S2[a1, a5, SP[a4, a6], a2, a3, n] - 
    S2[a1, a5, SP[a4, a6], a3, a2, n] - S2[a5, n]*S2[a1, a6, a2, a3, a4, n] - 
    S2[a1, a6, a2, a3, SP[a4, a5], n] - S2[a5, n]*S2[a1, a6, a2, a4, a3, n] + 
    S2[a3, n]*S2[a1, a6, a2, a4, a5, n] + 
    S2[a3, n]*S2[a1, a6, a2, a5, a4, n] + S2[a1, a6, a2, a5, SP[a3, a4], n] + 
    S2[a1, a6, a2, SP[a3, a4], a5, n] - S2[a1, a6, a2, SP[a4, a5], a3, n] - 
    S2[a5, n]*S2[a1, a6, a3, a2, a4, n] - S2[a1, a6, a3, a2, SP[a4, a5], n] - 
    S2[a5, n]*S2[a1, a6, a3, a4, a2, n] - S2[a1, a6, a3, a4, SP[a2, a5], n] - 
    S2[a1, a6, a3, SP[a2, a5], a4, n] - S2[a1, a6, a3, SP[a4, a5], a2, n] + 
    S2[a3, n]*S2[a1, a6, a4, a2, a5, n] + S2[a1, a6, a4, a2, SP[a3, a5], n] + 
    S2[a3, n]*S2[a1, a6, a4, a5, a2, n] + S2[a1, a6, a4, a5, SP[a2, a3], n] + 
    S2[a1, a6, a4, SP[a2, a3], a5, n] + S2[a1, a6, a4, SP[a3, a5], a2, n] + 
    S2[a3, n]*S2[a1, a6, a5, a2, a4, n] + S2[a1, a6, a5, a2, SP[a3, a4], n] + 
    S2[a3, n]*S2[a1, a6, a5, a4, a2, n] + S2[a1, a6, a5, a4, SP[a2, a3], n] + 
    S2[a1, a6, a5, SP[a2, a3], a4, n] + S2[a1, a6, a5, SP[a3, a4], a2, n] + 
    S2[a1, a6, SP[a2, a3], a4, a5, n] + S2[a1, a6, SP[a2, a3], a5, a4, n] - 
    S2[a1, a6, SP[a2, a5], a3, a4, n] - S2[a1, a6, SP[a2, a5], a4, a3, n] + 
    S2[a1, a6, SP[a3, a4], a2, a5, n] + S2[a1, a6, SP[a3, a4], a5, a2, n] + 
    S2[a1, SP[a3, a4], a2, a5, a6, n] + S2[a1, SP[a3, a4], a2, a6, a5, n] + 
    S2[a1, SP[a3, a4], a5, a2, a6, n] + S2[a1, SP[a3, a4], a5, a6, a2, n] + 
    S2[a1, SP[a3, a4], a6, a2, a5, n] + S2[a1, SP[a3, a4], a6, a5, a2, n] + 
    S2[a1, SP[a3, a5], a4, a2, a6, n] + S2[a1, SP[a3, a5], a4, a6, a2, n] + 
    S2[a1, SP[a3, a5], a6, a4, a2, n] + S2[a1, SP[a3, a6], a2, a4, a5, n] + 
    S2[a1, SP[a3, a6], a2, a5, a4, n] + S2[a1, SP[a3, a6], a4, a2, a5, n] + 
    S2[a1, SP[a3, a6], a4, a5, a2, n] + S2[a1, SP[a3, a6], a5, a2, a4, n] + 
    S2[a1, SP[a3, a6], a5, a4, a2, n] - S2[a1, SP[a4, a6], a2, a3, a5, n] - 
    S2[a1, SP[a4, a6], a2, a5, a3, n] - S2[a1, SP[a4, a6], a3, a2, a5, n] - 
    S2[a1, SP[a4, a6], a3, a5, a2, n] - S2[a1, SP[a4, a6], a5, a2, a3, n] - 
    S2[a1, SP[a4, a6], a5, a3, a2, n] - S2[a1, SP[a5, a6], a2, a3, a4, n] - 
    S2[a1, SP[a5, a6], a2, a4, a3, n] - S2[a1, SP[a5, a6], a3, a2, a4, n] - 
    2*S2[a1, SP[a5, a6], a3, a4, a2, n] - S2[a1, SP[a5, a6], a4, a2, a3, n] - 
    S2[a1, SP[a5, a6], a4, a3, a2, n] + S2[a3, a1, a2, a5, SP[a4, a6], n] + 
    S2[a3, a1, a2, SP[a4, a5], a6, n] - S2[a3, a1, a4, a5, SP[a2, a6], n] - 
    S2[a3, a1, a4, a6, SP[a2, a5], n] - S2[a3, a1, a4, SP[a2, a5], a6, n] - 
    S2[a3, a1, a4, SP[a2, a6], a5, n] + S2[a3, a1, a5, a2, SP[a4, a6], n] - 
    S2[a3, a1, a5, a4, SP[a2, a6], n] - S2[a3, a1, a5, a6, SP[a2, a4], n] - 
    S2[a3, a1, a5, SP[a2, a4], a6, n] - S2[a3, a1, a6, a4, SP[a2, a5], n] - 
    S2[a3, a1, a6, a5, SP[a2, a4], n] - S2[a3, a1, a6, SP[a2, a4], a5, n] - 
    S2[a3, a1, a6, SP[a2, a5], a4, n] - S2[a3, a1, SP[a2, a4], a5, a6, n] - 
    S2[a3, a1, SP[a2, a4], a6, a5, n] - S2[a3, a1, SP[a2, a6], a4, a5, n] - 
    S2[a3, a1, SP[a2, a6], a5, a4, n] + S2[a6, n]*S2[a3, a4, a1, a2, a5, n] + 
    S2[a3, a4, a1, a2, SP[a5, a6], n] + S2[a6, n]*S2[a3, a4, a1, a5, a2, n] - 
    S2[a3, a4, a1, a6, SP[a2, a5], n] - S2[a3, a4, a1, SP[a2, a5], a6, n] + 
    S2[a3, a4, a1, SP[a5, a6], a2, n] + S2[a6, n]*S2[a3, a4, a5, a1, a2, n] - 
    S2[a3, a4, a6, a1, SP[a2, a5], n] - S2[a3, a4, a6, SP[a1, a5], a2, n] - 
    S2[a3, a4, SP[a1, a5], a2, a6, n] - S2[a3, a4, SP[a1, a5], a6, a2, n] + 
    S2[a3, a4, SP[a5, a6], a1, a2, n] + S2[a3, a5, a1, a2, SP[a4, a6], n] + 
    S2[a6, n]*S2[a3, a5, a1, a4, a2, n] - S2[a3, a5, a1, a6, SP[a2, a4], n] - 
    S2[a3, a5, a1, SP[a2, a4], a6, n] + S2[a3, a5, a1, SP[a4, a6], a2, n] + 
    S2[a6, n]*S2[a3, a5, a4, a1, a2, n] - S2[a3, a5, a6, a1, SP[a2, a4], n] - 
    S2[a3, a5, a6, SP[a1, a4], a2, n] - S2[a3, a5, SP[a1, a4], a2, a6, n] - 
    S2[a3, a5, SP[a1, a4], a6, a2, n] + S2[a3, a5, SP[a4, a6], a1, a2, n] + 
    S2[a5, n]*S2[a3, a6, a1, a2, a4, n] + S2[a3, a6, a1, a2, SP[a4, a5], n] + 
    S2[a5, n]*S2[a3, a6, a1, a4, a2, n] - S2[a3, a6, a1, a5, SP[a2, a4], n] - 
    S2[a3, a6, a1, SP[a2, a4], a5, n] + S2[a3, a6, a1, SP[a4, a5], a2, n] - 
    S2[a3, a6, a4, a1, SP[a2, a5], n] - S2[a3, a6, a4, SP[a1, a5], a2, n] - 
    S2[a3, a6, a5, a1, SP[a2, a4], n] - S2[a3, a6, a5, SP[a1, a4], a2, n] - 
    S2[a3, a6, SP[a1, a4], a2, a5, n] - S2[a3, a6, SP[a1, a4], a5, a2, n] - 
    S2[a3, SP[a1, a4], a2, a5, a6, n] - S2[a3, SP[a1, a4], a2, a6, a5, n] - 
    S2[a3, SP[a1, a4], a5, a2, a6, n] - S2[a3, SP[a1, a4], a5, a6, a2, n] - 
    S2[a3, SP[a1, a4], a6, a2, a5, n] - S2[a3, SP[a1, a4], a6, a5, a2, n] - 
    S2[a3, SP[a1, a5], a4, a2, a6, n] - S2[a3, SP[a1, a5], a4, a6, a2, n] - 
    S2[a3, SP[a1, a5], a6, a4, a2, n] - S2[a3, SP[a1, a6], a2, a4, a5, n] - 
    S2[a3, SP[a1, a6], a2, a5, a4, n] - S2[a3, SP[a1, a6], a4, a2, a5, n] - 
    S2[a3, SP[a1, a6], a4, a5, a2, n] - S2[a3, SP[a1, a6], a5, a2, a4, n] - 
    S2[a3, SP[a1, a6], a5, a4, a2, n] + S2[a3, SP[a4, a6], a1, a2, a5, n] + 
    S2[a3, SP[a4, a6], a1, a5, a2, n] + S2[a3, SP[a4, a6], a5, a1, a2, n] + 
    S2[a3, SP[a5, a6], a1, a2, a4, n] + 2*S2[a3, SP[a5, a6], a1, a4, a2, n] + 
    S2[a3, SP[a5, a6], a4, a1, a2, n] + S2[a5, a1, a2, a4, SP[a3, a6], n] + 
    S2[a5, a1, a2, SP[a4, a6], a3, n] + S2[a5, a1, a6, a3, SP[a2, a4], n] + 
    S2[a5, a1, a6, SP[a2, a3], a4, n] + S2[a5, a1, SP[a2, a6], a3, a4, n] + 
    S2[a5, a1, SP[a2, a6], a4, a3, n] - S2[a3, n]*S2[a5, a6, a1, a2, a4, n] - 
    S2[a5, a6, a1, a2, SP[a3, a4], n] + S2[a5, a6, a1, a3, SP[a2, a4], n] - 
    S2[a3, n]*S2[a5, a6, a1, a4, a2, n] - S2[a5, a6, a1, a4, SP[a2, a3], n] - 
    S2[a5, a6, a1, SP[a3, a4], a2, n] + S2[a5, a6, a3, a1, SP[a2, a4], n] + 
    S2[a5, a6, a3, SP[a1, a4], a2, n] + S2[a5, SP[a1, a6], a2, a3, a4, n] + 
    S2[a5, SP[a1, a6], a2, a4, a3, n] + S2[a5, SP[a1, a6], a3, a2, a4, n] + 
    S2[a5, SP[a1, a6], a3, a4, a2, n] - S2[a5, SP[a3, a6], a1, a2, a4, n] - 
    S2[a5, SP[a3, a6], a1, a4, a2, n] + S2[a5, n]*S2[a6, a1, a4, a2, a3, n] + 
    S2[a6, a1, a4, a2, SP[a3, a5], n] + S2[a5, n]*S2[a6, a1, a4, a3, a2, n] + 
    S2[a6, a1, a4, a3, SP[a2, a5], n] + S2[a6, a1, a4, SP[a2, a5], a3, n] + 
    S2[a6, a1, a4, SP[a3, a5], a2, n] + S2[a6, a1, SP[a4, a5], a2, a3, n] + 
    S2[a6, a1, SP[a4, a5], a3, a2, n] - S2[a5, n]*S2[a6, a3, a4, a1, a2, n] - 
    S2[a6, a3, a4, a1, SP[a2, a5], n] - S2[a6, a3, a4, SP[a1, a5], a2, n] - 
    S2[a6, a3, SP[a4, a5], a1, a2, n] - S2[a3, n]*S2[a6, a5, a1, a4, a2, n] - 
    S2[a6, a5, a1, a4, SP[a2, a3], n] - S2[a6, a5, a1, SP[a3, a4], a2, n] + 
    S2[a1, n]*S2[a6, a5, a3, a4, a2, n] + S2[a6, a5, a3, a4, SP[a1, a2], n] + 
    S2[a6, a5, a3, SP[a1, a4], a2, n] + S2[a6, SP[a1, a5], a3, a4, a2, n] + 
    S2[a6, SP[a1, a5], a4, a2, a3, n] + S2[a6, SP[a1, a5], a4, a3, a2, n] - 
    S2[a6, SP[a3, a5], a1, a4, a2, n] - S2[a6, SP[a3, a5], a4, a1, a2, n] - 
    S2[SP[a1, a6], a4, a2, a3, a5, n] - S2[SP[a1, a6], a4, a2, a5, a3, n] - 
    S2[SP[a1, a6], a4, a3, a2, a5, n] - S2[SP[a1, a6], a4, a3, a5, a2, n] - 
    S2[SP[a1, a6], a4, a5, a2, a3, n] - S2[SP[a1, a6], a4, a5, a3, a2, n] - 
    S2[SP[a1, a6], a5, a4, a2, a3, n] - S2[SP[a1, a6], a5, a4, a3, a2, n] + 
    S2[SP[a3, a6], a4, a1, a2, a5, n] + S2[SP[a3, a6], a4, a1, a5, a2, n] + 
    S2[SP[a3, a6], a4, a5, a1, a2, n] + S2[SP[a3, a6], a5, a4, a1, a2, n] + 
    S2[SP[a5, a6], a1, a4, a2, a3, n] + S2[SP[a5, a6], a1, a4, a3, a2, n] - 
    S2[SP[a5, a6], a3, a4, a1, a2, n] - S2[a6, a5, a3, a4, a2, a1, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a1_, a2_, a4_, a3_, a6_, a5_, n_] :> 
  S2[a1, a2, a4, n]*S2[a3, a6, a5, n] + S2[SP[a1, a3], SP[a2, a6], 
     SP[a4, a5], n] - S2[a5, a6, n]*S2[a1, a2, a4, a3, n] + 
    S2[a1, a2, SP[a4, a5], SP[a3, a6], n] - S2[a1, a3, SP[a2, a6], 
     SP[a4, a5], n] - S2[a1, SP[a2, a3], a6, SP[a4, a5], n] - 
    S2[a1, SP[a2, a3], SP[a4, a6], a5, n] + S2[a1, SP[a2, a5], a4, 
     SP[a3, a6], n] + S2[a1, SP[a2, a5], SP[a4, a6], a3, n] - 
    S2[a3, a1, SP[a2, a6], SP[a4, a5], n] - S2[a3, SP[a1, a6], a2, 
     SP[a4, a5], n] - S2[a3, SP[a1, a6], SP[a2, a5], a4, n] - 
    S2[a1, a2, n]*S2[a5, a6, a3, a4, n] + S2[a5, a6, SP[a1, a3], SP[a2, a4], 
     n] + S2[a5, SP[a1, a6], a3, SP[a2, a4], n] + 
    S2[a5, SP[a1, a6], SP[a2, a3], a4, n] - S2[SP[a1, a3], a2, a6, 
     SP[a4, a5], n] - S2[SP[a1, a3], a2, SP[a4, a6], a5, n] - 
    S2[SP[a1, a3], a6, a2, SP[a4, a5], n] - S2[SP[a1, a3], a6, SP[a2, a5], 
     a4, n] - S2[SP[a1, a3], SP[a2, a6], a4, a5, n] - 
    S2[SP[a1, a3], SP[a2, a6], a5, a4, n] + S2[SP[a1, a5], a2, a4, 
     SP[a3, a6], n] + S2[SP[a1, a5], a2, SP[a4, a6], a3, n] + 
    S2[SP[a1, a5], a6, a3, SP[a2, a4], n] + S2[SP[a1, a5], a6, SP[a2, a3], 
     a4, n] + S2[SP[a1, a5], SP[a2, a6], a3, a4, n] + 
    S2[SP[a1, a5], SP[a2, a6], a4, a3, n] + S2[a1, a2, a3, a6, SP[a4, a5], 
     n] + S2[a1, a2, a3, SP[a4, a6], a5, n] + 
    S2[a5, n]*S2[a1, a2, a4, a3, a6, n] + S2[a1, a2, a4, a3, SP[a5, a6], n] - 
    S2[a1, a2, a4, a5, SP[a3, a6], n] + S2[a5, n]*S2[a1, a2, a4, a6, a3, n] - 
    S2[a3, n]*S2[a1, a2, a4, a6, a5, n] - S2[a1, a2, a4, SP[a3, a6], a5, n] + 
    S2[a1, a2, a4, SP[a5, a6], a3, n] - S2[a1, a2, a5, a4, SP[a3, a6], n] - 
    S2[a1, a2, a5, SP[a4, a6], a3, n] + S2[a5, n]*S2[a1, a2, a6, a3, a4, n] + 
    S2[a1, a2, a6, a3, SP[a4, a5], n] + S2[a5, n]*S2[a1, a2, a6, a4, a3, n] - 
    S2[a3, n]*S2[a1, a2, a6, a4, a5, n] - 
    S2[a3, n]*S2[a1, a2, a6, a5, a4, n] - S2[a1, a2, a6, a5, SP[a3, a4], n] - 
    S2[a1, a2, a6, SP[a3, a4], a5, n] + S2[a1, a2, a6, SP[a4, a5], a3, n] - 
    S2[a1, a2, SP[a3, a6], a4, a5, n] - S2[a1, a2, SP[a3, a6], a5, a4, n] + 
    S2[a1, a2, SP[a5, a6], a3, a4, n] + S2[a1, a2, SP[a5, a6], a4, a3, n] + 
    S2[a1, a3, a2, a6, SP[a4, a5], n] + S2[a1, a3, a2, SP[a4, a6], a5, n] + 
    S2[a1, a3, a6, a2, SP[a4, a5], n] + S2[a1, a3, a6, SP[a2, a5], a4, n] + 
    S2[a1, a3, SP[a2, a6], a4, a5, n] + S2[a1, a3, SP[a2, a6], a5, a4, n] - 
    S2[a1, a5, a2, a4, SP[a3, a6], n] - S2[a1, a5, a2, SP[a4, a6], a3, n] - 
    S2[a1, a5, a6, a3, SP[a2, a4], n] - S2[a1, a5, a6, SP[a2, a3], a4, n] - 
    S2[a1, a5, SP[a2, a6], a3, a4, n] - S2[a1, a5, SP[a2, a6], a4, a3, n] + 
    S2[a5, n]*S2[a1, a6, a2, a3, a4, n] + S2[a1, a6, a2, a3, SP[a4, a5], n] + 
    S2[a5, n]*S2[a1, a6, a2, a4, a3, n] - 
    S2[a3, n]*S2[a1, a6, a2, a4, a5, n] - 
    S2[a3, n]*S2[a1, a6, a2, a5, a4, n] - S2[a1, a6, a2, a5, SP[a3, a4], n] - 
    S2[a1, a6, a2, SP[a3, a4], a5, n] + S2[a1, a6, a2, SP[a4, a5], a3, n] + 
    S2[a5, n]*S2[a1, a6, a3, a2, a4, n] + S2[a1, a6, a3, a2, SP[a4, a5], n] + 
    S2[a5, n]*S2[a1, a6, a3, a4, a2, n] + S2[a1, a6, a3, a4, SP[a2, a5], n] + 
    S2[a1, a6, a3, SP[a2, a5], a4, n] + S2[a1, a6, a3, SP[a4, a5], a2, n] - 
    S2[a3, n]*S2[a1, a6, a5, a2, a4, n] - S2[a1, a6, a5, a2, SP[a3, a4], n] - 
    S2[a1, a6, a5, SP[a2, a3], a4, n] - S2[a1, a6, SP[a2, a3], a4, a5, n] - 
    S2[a1, a6, SP[a2, a3], a5, a4, n] + S2[a1, a6, SP[a2, a5], a3, a4, n] + 
    S2[a1, a6, SP[a2, a5], a4, a3, n] + S2[a1, a6, SP[a3, a5], a4, a2, n] - 
    S2[a1, SP[a3, a6], a2, a4, a5, n] - S2[a1, SP[a3, a6], a2, a5, a4, n] - 
    S2[a1, SP[a3, a6], a5, a2, a4, n] + S2[a1, SP[a5, a6], a2, a3, a4, n] + 
    S2[a1, SP[a5, a6], a2, a4, a3, n] + S2[a1, SP[a5, a6], a3, a2, a4, n] + 
    S2[a1, SP[a5, a6], a3, a4, a2, n] + S2[a3, a1, a2, a6, SP[a4, a5], n] + 
    S2[a3, a1, a2, SP[a4, a6], a5, n] + S2[a3, a1, a6, a2, SP[a4, a5], n] + 
    S2[a3, a1, a6, SP[a2, a5], a4, n] + S2[a3, a1, SP[a2, a6], a4, a5, n] + 
    S2[a3, a1, SP[a2, a6], a5, a4, n] - S2[a5, n]*S2[a3, a6, a1, a2, a4, n] - 
    S2[a5, n]*S2[a3, a6, a1, a4, a2, n] - S2[a3, a6, a1, a4, SP[a2, a5], n] - 
    S2[a3, a6, a1, SP[a4, a5], a2, n] - S2[a3, a6, SP[a1, a5], a4, a2, n] + 
    S2[a3, SP[a1, a6], a2, a4, a5, n] + S2[a3, SP[a1, a6], a2, a5, a4, n] + 
    S2[a3, SP[a1, a6], a5, a2, a4, n] - S2[a3, SP[a5, a6], a1, a2, a4, n] - 
    S2[a3, SP[a5, a6], a1, a4, a2, n] - S2[a5, a1, a2, a4, SP[a3, a6], n] - 
    S2[a5, a1, a2, SP[a4, a6], a3, n] - S2[a5, a1, a6, a3, SP[a2, a4], n] - 
    S2[a5, a1, a6, SP[a2, a3], a4, n] - S2[a5, a1, SP[a2, a6], a3, a4, n] - 
    S2[a5, a1, SP[a2, a6], a4, a3, n] + S2[a3, n]*S2[a5, a6, a1, a2, a4, n] + 
    S2[a5, a6, a1, a2, SP[a3, a4], n] - S2[a5, a6, a1, a3, SP[a2, a4], n] + 
    S2[a3, n]*S2[a5, a6, a1, a4, a2, n] + S2[a5, a6, a1, a4, SP[a2, a3], n] + 
    S2[a5, a6, a1, SP[a3, a4], a2, n] - S2[a5, a6, a3, a1, SP[a2, a4], n] - 
    S2[a5, a6, a3, SP[a1, a4], a2, n] - S2[a5, SP[a1, a6], a2, a3, a4, n] - 
    S2[a5, SP[a1, a6], a2, a4, a3, n] - S2[a5, SP[a1, a6], a3, a2, a4, n] - 
    S2[a5, SP[a1, a6], a3, a4, a2, n] + S2[a5, SP[a3, a6], a1, a2, a4, n] + 
    S2[a5, SP[a3, a6], a1, a4, a2, n] - S2[a5, n]*S2[a6, a1, a4, a2, a3, n] + 
    S2[a3, n]*S2[a6, a1, a4, a2, a5, n] - 
    S2[a5, n]*S2[a6, a1, a4, a3, a2, n] - S2[a6, a1, a4, a3, SP[a2, a5], n] + 
    S2[a3, n]*S2[a6, a1, a4, a5, a2, n] + S2[a6, a1, a4, a5, SP[a2, a3], n] + 
    S2[a6, a1, a4, SP[a2, a3], a5, n] - S2[a6, a1, a4, SP[a2, a5], a3, n] + 
    S2[a3, n]*S2[a6, a1, a5, a4, a2, n] + S2[a6, a1, a5, a4, SP[a2, a3], n] + 
    S2[a6, a1, a5, SP[a3, a4], a2, n] + S2[a6, a1, SP[a3, a4], a2, a5, n] + 
    S2[a6, a1, SP[a3, a4], a5, a2, n] + S2[a6, a1, SP[a3, a5], a4, a2, n] - 
    S2[a6, a1, SP[a4, a5], a2, a3, n] - S2[a6, a1, SP[a4, a5], a3, a2, n] + 
    S2[a5, n]*S2[a6, a3, a4, a1, a2, n] + S2[a6, a3, a4, a1, SP[a2, a5], n] - 
    S2[a1, n]*S2[a6, a3, a4, a2, a5, n] - S2[a6, a3, a4, a2, SP[a1, a5], n] - 
    S2[a1, n]*S2[a6, a3, a4, a5, a2, n] - S2[a6, a3, a4, a5, SP[a1, a2], n] - 
    S2[a6, a3, a4, SP[a1, a2], a5, n] - S2[a1, n]*S2[a6, a3, a5, a4, a2, n] - 
    S2[a6, a3, a5, a4, SP[a1, a2], n] - S2[a6, a3, a5, SP[a1, a4], a2, n] - 
    S2[a6, a3, SP[a1, a4], a2, a5, n] - S2[a6, a3, SP[a1, a4], a5, a2, n] - 
    S2[a6, a3, SP[a1, a5], a4, a2, n] + S2[a6, a3, SP[a4, a5], a1, a2, n] + 
    S2[a3, n]*S2[a6, a5, a1, a4, a2, n] + S2[a6, a5, a1, a4, SP[a2, a3], n] + 
    S2[a6, a5, a1, SP[a3, a4], a2, n] - S2[a1, n]*S2[a6, a5, a3, a4, a2, n] - 
    S2[a6, a5, a3, a4, SP[a1, a2], n] - S2[a6, a5, a3, SP[a1, a4], a2, n] - 
    S2[a6, SP[a1, a5], a3, a4, a2, n] - S2[a6, SP[a1, a5], a4, a2, a3, n] - 
    S2[a6, SP[a1, a5], a4, a3, a2, n] + S2[a6, SP[a3, a5], a1, a4, a2, n] + 
    S2[a6, SP[a3, a5], a4, a1, a2, n] - S2[SP[a1, a6], a3, a4, a2, a5, n] - 
    S2[SP[a1, a6], a3, a4, a5, a2, n] - S2[SP[a1, a6], a3, a5, a4, a2, n] - 
    S2[SP[a1, a6], a5, a3, a4, a2, n] + S2[SP[a3, a6], a1, a4, a2, a5, n] + 
    S2[SP[a3, a6], a1, a4, a5, a2, n] + S2[SP[a3, a6], a1, a5, a4, a2, n] + 
    S2[SP[a3, a6], a5, a1, a4, a2, n] - S2[SP[a5, a6], a1, a4, a2, a3, n] - 
    S2[SP[a5, a6], a1, a4, a3, a2, n] + S2[SP[a5, a6], a3, a4, a1, a2, n] + 
    S2[a6, a3, a4, a2, a1, a5, n] + S2[a6, a3, a4, a2, a5, a1, n] + 
    S2[a6, a3, a4, a5, a2, a1, n] + S2[a6, a3, a5, a4, a2, a1, n] + 
    S2[a6, a5, a3, a4, a2, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a1_, a2_, a4_, a5_, a3_, a6_, n_] :> 
  -(S2[a1, a2, a4, n]*S2[a3, a5, a6, n]) - S2[a1, a2, a4, n]*
     S2[a3, a6, a5, n] - S2[SP[a1, a3], SP[a2, a5], SP[a4, a6], n] - 
    S2[SP[a1, a3], SP[a2, a6], SP[a4, a5], n] + 
    S2[a3, a6, n]*S2[a1, a2, a4, a5, n] - S2[a1, a2, SP[a3, a4], SP[a5, a6], 
     n] + S2[a1, a3, SP[a2, a5], SP[a4, a6], n] + S2[a1, a3, SP[a2, a6], 
     SP[a4, a5], n] - S2[a1, SP[a2, a3], a4, SP[a5, a6], n] + 
    S2[a1, SP[a2, a3], a5, SP[a4, a6], n] + S2[a1, SP[a2, a3], a6, 
     SP[a4, a5], n] + S2[a1, SP[a2, a3], SP[a4, a5], a6, n] + 
    S2[a3, a1, SP[a2, a5], SP[a4, a6], n] + S2[a3, a1, SP[a2, a6], 
     SP[a4, a5], n] + S2[a1, a2, n]*S2[a3, a5, a4, a6, n] + 
    S2[a1, a2, n]*S2[a3, a5, a6, a4, n] - S2[a3, a5, SP[a1, a4], SP[a2, a6], 
     n] - S2[a3, a5, SP[a1, a6], SP[a2, a4], n] + 
    S2[a1, a2, n]*S2[a3, a6, a5, a4, n] - S2[a3, a6, SP[a1, a5], SP[a2, a4], 
     n] + S2[a3, SP[a1, a5], a2, SP[a4, a6], n] - S2[a3, SP[a1, a5], a4, 
     SP[a2, a6], n] - S2[a3, SP[a1, a5], a6, SP[a2, a4], n] - 
    S2[a3, SP[a1, a5], SP[a2, a4], a6, n] + S2[a3, SP[a1, a6], a2, 
     SP[a4, a5], n] - S2[a3, SP[a1, a6], a5, SP[a2, a4], n] - 
    S2[SP[a1, a3], a2, a4, SP[a5, a6], n] + S2[SP[a1, a3], a2, a5, 
     SP[a4, a6], n] + S2[SP[a1, a3], a2, a6, SP[a4, a5], n] + 
    S2[SP[a1, a3], a2, SP[a4, a5], a6, n] + S2[SP[a1, a3], a5, a2, 
     SP[a4, a6], n] - S2[SP[a1, a3], a5, a4, SP[a2, a6], n] - 
    S2[SP[a1, a3], a5, a6, SP[a2, a4], n] - S2[SP[a1, a3], a5, SP[a2, a4], 
     a6, n] + S2[SP[a1, a3], a6, a2, SP[a4, a5], n] - 
    S2[SP[a1, a3], a6, a5, SP[a2, a4], n] + S2[a1, a2, a3, a4, SP[a5, a6], 
     n] - S2[a1, a2, a3, a5, SP[a4, a6], n] - S2[a1, a2, a3, a6, SP[a4, a5], 
     n] - S2[a1, a2, a3, SP[a4, a5], a6, n] + S2[a1, a2, a4, a3, SP[a5, a6], 
     n] + S2[a1, a2, a4, SP[a3, a5], a6, n] + S2[a1, a3, a2, a4, SP[a5, a6], 
     n] - S2[a1, a3, a2, a5, SP[a4, a6], n] - S2[a1, a3, a2, a6, SP[a4, a5], 
     n] - S2[a1, a3, a2, SP[a4, a5], a6, n] - S2[a1, a3, a5, a2, SP[a4, a6], 
     n] + S2[a1, a3, a5, a4, SP[a2, a6], n] + S2[a1, a3, a5, a6, SP[a2, a4], 
     n] + S2[a1, a3, a5, SP[a2, a4], a6, n] - S2[a1, a3, a6, a2, SP[a4, a5], 
     n] + S2[a1, a3, a6, a5, SP[a2, a4], n] + 
    S2[a6, n]*S2[a1, a5, a3, a4, a2, n] + S2[a1, a5, a3, a4, SP[a2, a6], n] + 
    S2[a1, a5, a3, SP[a4, a6], a2, n] + S2[a6, n]*S2[a1, a5, a4, a2, a3, n] - 
    S2[a3, n]*S2[a1, a5, a4, a2, a6, n] + 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] + S2[a1, a5, a4, a3, SP[a2, a6], n] - 
    S2[a3, n]*S2[a1, a5, a4, a6, a2, n] - S2[a1, a5, a4, a6, SP[a2, a3], n] - 
    S2[a1, a5, a4, SP[a2, a3], a6, n] + S2[a1, a5, a4, SP[a2, a6], a3, n] - 
    S2[a3, n]*S2[a1, a5, a6, a4, a2, n] - S2[a1, a5, a6, a4, SP[a2, a3], n] - 
    S2[a1, a5, a6, SP[a3, a4], a2, n] - S2[a1, a5, SP[a3, a4], a2, a6, n] - 
    S2[a1, a5, SP[a3, a4], a6, a2, n] + S2[a1, a5, SP[a4, a6], a2, a3, n] + 
    S2[a1, a5, SP[a4, a6], a3, a2, n] - S2[a3, n]*S2[a1, a6, a5, a4, a2, n] - 
    S2[a1, a6, a5, a4, SP[a2, a3], n] - S2[a1, a6, a5, SP[a3, a4], a2, n] - 
    S2[a1, a6, SP[a3, a5], a4, a2, n] - S2[a1, SP[a3, a5], a4, a2, a6, n] - 
    S2[a1, SP[a3, a5], a4, a6, a2, n] - S2[a1, SP[a3, a5], a6, a4, a2, n] - 
    S2[a1, SP[a3, a6], a5, a4, a2, n] + S2[a1, SP[a5, a6], a3, a4, a2, n] + 
    S2[a1, SP[a5, a6], a4, a2, a3, n] + S2[a1, SP[a5, a6], a4, a3, a2, n] + 
    S2[a3, a1, a2, a4, SP[a5, a6], n] - S2[a3, a1, a2, a5, SP[a4, a6], n] - 
    S2[a3, a1, a2, a6, SP[a4, a5], n] - S2[a3, a1, a2, SP[a4, a5], a6, n] - 
    S2[a3, a1, a5, a2, SP[a4, a6], n] + S2[a3, a1, a5, a4, SP[a2, a6], n] + 
    S2[a3, a1, a5, a6, SP[a2, a4], n] + S2[a3, a1, a5, SP[a2, a4], a6, n] - 
    S2[a3, a1, a6, a2, SP[a4, a5], n] + S2[a3, a1, a6, a5, SP[a2, a4], n] - 
    S2[a3, a5, a1, a2, SP[a4, a6], n] - S2[a6, n]*S2[a3, a5, a1, a4, a2, n] + 
    S2[a3, a5, a1, a6, SP[a2, a4], n] + S2[a3, a5, a1, SP[a2, a4], a6, n] - 
    S2[a3, a5, a1, SP[a4, a6], a2, n] - S2[a6, n]*S2[a3, a5, a4, a1, a2, n] + 
    S2[a3, a5, a6, a1, SP[a2, a4], n] + S2[a3, a5, a6, SP[a1, a4], a2, n] + 
    S2[a3, a5, SP[a1, a4], a2, a6, n] + S2[a3, a5, SP[a1, a4], a6, a2, n] - 
    S2[a3, a5, SP[a4, a6], a1, a2, n] - S2[a3, a6, a1, a2, SP[a4, a5], n] + 
    S2[a3, a6, a1, a5, SP[a2, a4], n] + S2[a3, a6, a5, a1, SP[a2, a4], n] + 
    S2[a3, a6, a5, SP[a1, a4], a2, n] + S2[a3, a6, SP[a1, a5], a4, a2, n] + 
    S2[a3, SP[a1, a5], a4, a2, a6, n] + S2[a3, SP[a1, a5], a4, a6, a2, n] + 
    S2[a3, SP[a1, a5], a6, a4, a2, n] + S2[a3, SP[a1, a6], a5, a4, a2, n] - 
    S2[a3, SP[a5, a6], a1, a4, a2, n] - S2[a3, SP[a5, a6], a4, a1, a2, n] - 
    S2[a3, n]*S2[a6, a1, a5, a4, a2, n] - S2[a6, a1, a5, a4, SP[a2, a3], n] - 
    S2[a6, a1, a5, SP[a3, a4], a2, n] - S2[a6, a1, SP[a3, a5], a4, a2, n] + 
    S2[a1, n]*S2[a6, a3, a5, a4, a2, n] + S2[a6, a3, a5, a4, SP[a1, a2], n] + 
    S2[a6, a3, a5, SP[a1, a4], a2, n] + S2[a6, a3, SP[a1, a5], a4, a2, n] + 
    S2[SP[a1, a6], a3, a5, a4, a2, n] + S2[SP[a1, a6], a5, a3, a4, a2, n] + 
    S2[SP[a1, a6], a5, a4, a2, a3, n] + S2[SP[a1, a6], a5, a4, a3, a2, n] - 
    S2[SP[a3, a6], a1, a5, a4, a2, n] - S2[SP[a3, a6], a5, a1, a4, a2, n] - 
    S2[SP[a3, a6], a5, a4, a1, a2, n] - S2[a6, a3, a5, a4, a2, a1, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a1_, a2_, a4_, a5_, a6_, a3_, n_] :> 
  S2[a1, a2, a4, n]*S2[a3, a6, a5, n] + S2[SP[a1, a3], SP[a2, a6], 
     SP[a4, a5], n] - S2[a3, a6, n]*S2[a1, a2, a4, a5, n] + 
    S2[a1, a2, SP[a3, a4], SP[a5, a6], n] - S2[a1, a3, SP[a2, a6], 
     SP[a4, a5], n] + S2[a1, SP[a2, a3], a4, SP[a5, a6], n] - 
    S2[a1, SP[a2, a3], a6, SP[a4, a5], n] - S2[a3, a1, SP[a2, a6], 
     SP[a4, a5], n] - S2[a1, a2, n]*S2[a3, a6, a5, a4, n] + 
    S2[a3, a6, SP[a1, a5], SP[a2, a4], n] - S2[a3, SP[a1, a6], a2, 
     SP[a4, a5], n] + S2[a3, SP[a1, a6], a5, SP[a2, a4], n] + 
    S2[SP[a1, a3], a2, a4, SP[a5, a6], n] - S2[SP[a1, a3], a2, a6, 
     SP[a4, a5], n] - S2[SP[a1, a3], a6, a2, SP[a4, a5], n] + 
    S2[SP[a1, a3], a6, a5, SP[a2, a4], n] - S2[a1, a2, a3, a4, SP[a5, a6], 
     n] + S2[a1, a2, a3, a6, SP[a4, a5], n] - S2[a1, a2, a4, a3, SP[a5, a6], 
     n] + S2[a3, n]*S2[a1, a2, a4, a5, a6, n] + S2[a1, a2, a4, a5, 
     SP[a3, a6], n] - S2[a1, a3, a2, a4, SP[a5, a6], n] + 
    S2[a1, a3, a2, a6, SP[a4, a5], n] + S2[a1, a3, a6, a2, SP[a4, a5], n] - 
    S2[a1, a3, a6, a5, SP[a2, a4], n] + S2[a3, n]*S2[a1, a6, a5, a4, a2, n] + 
    S2[a1, a6, a5, a4, SP[a2, a3], n] + S2[a1, a6, a5, SP[a3, a4], a2, n] + 
    S2[a1, a6, SP[a3, a5], a4, a2, n] + S2[a1, SP[a3, a6], a5, a4, a2, n] - 
    S2[a3, a1, a2, a4, SP[a5, a6], n] + S2[a3, a1, a2, a6, SP[a4, a5], n] + 
    S2[a3, a1, a6, a2, SP[a4, a5], n] - S2[a3, a1, a6, a5, SP[a2, a4], n] + 
    S2[a3, a6, a1, a2, SP[a4, a5], n] - S2[a3, a6, a1, a5, SP[a2, a4], n] - 
    S2[a3, a6, a5, a1, SP[a2, a4], n] - S2[a3, a6, a5, SP[a1, a4], a2, n] - 
    S2[a3, a6, SP[a1, a5], a4, a2, n] - S2[a3, SP[a1, a6], a5, a4, a2, n] + 
    S2[a3, n]*S2[a6, a1, a5, a4, a2, n] + S2[a6, a1, a5, a4, SP[a2, a3], n] + 
    S2[a6, a1, a5, SP[a3, a4], a2, n] + S2[a6, a1, SP[a3, a5], a4, a2, n] - 
    S2[a1, n]*S2[a6, a3, a5, a4, a2, n] - S2[a6, a3, a5, a4, SP[a1, a2], n] - 
    S2[a6, a3, a5, SP[a1, a4], a2, n] - S2[a6, a3, SP[a1, a5], a4, a2, n] + 
    S2[a3, n]*S2[a6, a5, a1, a4, a2, n] + S2[a6, a5, a1, a4, SP[a2, a3], n] + 
    S2[a6, a5, a1, SP[a3, a4], a2, n] - S2[a1, n]*S2[a6, a5, a3, a4, a2, n] - 
    S2[a6, a5, a3, a4, SP[a1, a2], n] - S2[a6, a5, a3, SP[a1, a4], a2, n] + 
    S2[a3, n]*S2[a6, a5, a4, a1, a2, n] + S2[a6, a5, a4, a1, SP[a2, a3], n] - 
    S2[a1, n]*S2[a6, a5, a4, a2, a3, n] - S2[a6, a5, a4, a2, SP[a1, a3], n] - 
    S2[a1, n]*S2[a6, a5, a4, a3, a2, n] - S2[a6, a5, a4, a3, SP[a1, a2], n] - 
    S2[a6, a5, a4, SP[a1, a2], a3, n] - S2[a6, a5, SP[a1, a4], a2, a3, n] - 
    S2[a6, a5, SP[a1, a4], a3, a2, n] + S2[a6, a5, SP[a3, a4], a1, a2, n] - 
    S2[a6, SP[a1, a5], a3, a4, a2, n] - S2[a6, SP[a1, a5], a4, a2, a3, n] - 
    S2[a6, SP[a1, a5], a4, a3, a2, n] + S2[a6, SP[a3, a5], a1, a4, a2, n] + 
    S2[a6, SP[a3, a5], a4, a1, a2, n] - S2[SP[a1, a6], a3, a5, a4, a2, n] - 
    S2[SP[a1, a6], a5, a3, a4, a2, n] - S2[SP[a1, a6], a5, a4, a2, a3, n] - 
    S2[SP[a1, a6], a5, a4, a3, a2, n] + S2[SP[a3, a6], a1, a5, a4, a2, n] + 
    S2[SP[a3, a6], a5, a1, a4, a2, n] + S2[SP[a3, a6], a5, a4, a1, a2, n] + 
    S2[a6, a3, a5, a4, a2, a1, n] + S2[a6, a5, a3, a4, a2, a1, n] + 
    S2[a6, a5, a4, a2, a1, a3, n] + S2[a6, a5, a4, a2, a3, a1, n] + 
    S2[a6, a5, a4, a3, a2, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a1_, a2_, a4_, a6_, a3_, a5_, n_] :> 
  -(S2[a1, a2, a4, n]*S2[a3, a5, a6, n]) - S2[a1, a2, a4, n]*
     S2[a3, a6, a5, n] - S2[SP[a1, a3], SP[a2, a5], SP[a4, a6], n] - 
    S2[SP[a1, a3], SP[a2, a6], SP[a4, a5], n] + S2[a1, a3, SP[a2, a5], 
     SP[a4, a6], n] + S2[a1, a3, SP[a2, a6], SP[a4, a5], n] + 
    S2[a1, SP[a2, a3], a5, SP[a4, a6], n] + S2[a1, SP[a2, a3], a6, 
     SP[a4, a5], n] + S2[a1, SP[a2, a3], SP[a4, a5], a6, n] + 
    S2[a1, SP[a2, a3], SP[a4, a6], a5, n] + S2[a3, a1, SP[a2, a5], 
     SP[a4, a6], n] + S2[a3, a1, SP[a2, a6], SP[a4, a5], n] + 
    S2[a3, SP[a1, a5], a2, SP[a4, a6], n] + S2[a3, SP[a1, a5], SP[a2, a6], 
     a4, n] + S2[a3, SP[a1, a6], a2, SP[a4, a5], n] + 
    S2[a3, SP[a1, a6], SP[a2, a5], a4, n] + S2[a1, a2, n]*
     S2[a4, a6, a3, a5, n] - S2[a4, a6, SP[a1, a3], SP[a2, a5], n] - 
    S2[a4, SP[a1, a6], a3, SP[a2, a5], n] - S2[a4, SP[a1, a6], SP[a2, a3], 
     a5, n] + S2[SP[a1, a3], a2, a5, SP[a4, a6], n] + 
    S2[SP[a1, a3], a2, a6, SP[a4, a5], n] + S2[SP[a1, a3], a2, SP[a4, a5], 
     a6, n] + S2[SP[a1, a3], a2, SP[a4, a6], a5, n] + 
    S2[SP[a1, a3], a5, a2, SP[a4, a6], n] + S2[SP[a1, a3], a5, SP[a2, a6], 
     a4, n] + S2[SP[a1, a3], a6, a2, SP[a4, a5], n] + 
    S2[SP[a1, a3], a6, SP[a2, a5], a4, n] + S2[SP[a1, a3], SP[a2, a5], a4, 
     a6, n] + S2[SP[a1, a3], SP[a2, a5], a6, a4, n] + 
    S2[SP[a1, a3], SP[a2, a6], a4, a5, n] + S2[SP[a1, a3], SP[a2, a6], a5, 
     a4, n] - S2[SP[a1, a4], a6, a3, SP[a2, a5], n] - 
    S2[SP[a1, a4], a6, SP[a2, a3], a5, n] - S2[SP[a1, a4], SP[a2, a6], a3, 
     a5, n] - S2[a1, a2, a3, a5, SP[a4, a6], n] - 
    S2[a1, a2, a3, a6, SP[a4, a5], n] - S2[a1, a2, a3, SP[a4, a5], a6, n] - 
    S2[a1, a2, a3, SP[a4, a6], a5, n] - S2[a6, n]*S2[a1, a2, a4, a5, a3, n] + 
    S2[a3, n]*S2[a1, a2, a4, a5, a6, n] + 
    S2[a3, n]*S2[a1, a2, a4, a6, a5, n] + S2[a1, a2, a4, a6, SP[a3, a5], n] + 
    S2[a1, a2, a4, SP[a3, a5], a6, n] + S2[a1, a2, a4, SP[a3, a6], a5, n] - 
    S2[a1, a2, a4, SP[a5, a6], a3, n] - S2[a6, n]*S2[a1, a2, a5, a3, a4, n] - 
    S2[a1, a2, a5, a3, SP[a4, a6], n] - S2[a6, n]*S2[a1, a2, a5, a4, a3, n] + 
    S2[a3, n]*S2[a1, a2, a5, a4, a6, n] + 
    S2[a3, n]*S2[a1, a2, a5, a6, a4, n] + S2[a1, a2, a5, a6, SP[a3, a4], n] + 
    S2[a1, a2, a5, SP[a3, a4], a6, n] - S2[a1, a2, a5, SP[a4, a6], a3, n] - 
    S2[a4, n]*S2[a1, a2, a6, a3, a5, n] - S2[a1, a2, a6, a3, SP[a4, a5], n] + 
    S2[a3, n]*S2[a1, a2, a6, a4, a5, n] + S2[a1, a2, a6, a4, SP[a3, a5], n] + 
    S2[a3, n]*S2[a1, a2, a6, a5, a4, n] + S2[a1, a2, a6, a5, SP[a3, a4], n] + 
    S2[a1, a2, a6, SP[a3, a5], a4, n] + S2[a1, a2, SP[a3, a5], a4, a6, n] + 
    S2[a1, a2, SP[a3, a5], a6, a4, n] + S2[a1, a2, SP[a3, a6], a4, a5, n] + 
    S2[a1, a2, SP[a3, a6], a5, a4, n] - S2[a1, a2, SP[a4, a6], a3, a5, n] - 
    S2[a1, a2, SP[a4, a6], a5, a3, n] - S2[a1, a2, SP[a5, a6], a3, a4, n] - 
    S2[a1, a2, SP[a5, a6], a4, a3, n] - S2[a1, a3, a2, a5, SP[a4, a6], n] - 
    S2[a1, a3, a2, a6, SP[a4, a5], n] - S2[a1, a3, a2, SP[a4, a5], a6, n] - 
    S2[a1, a3, a2, SP[a4, a6], a5, n] - S2[a1, a3, a5, a2, SP[a4, a6], n] - 
    S2[a1, a3, a5, SP[a2, a6], a4, n] - S2[a1, a3, a6, a2, SP[a4, a5], n] - 
    S2[a1, a3, a6, SP[a2, a5], a4, n] - S2[a1, a3, SP[a2, a5], a4, a6, n] - 
    S2[a1, a3, SP[a2, a5], a6, a4, n] - S2[a1, a3, SP[a2, a6], a4, a5, n] - 
    S2[a1, a3, SP[a2, a6], a5, a4, n] + S2[a1, a4, a6, a3, SP[a2, a5], n] + 
    S2[a1, a4, a6, SP[a2, a3], a5, n] + S2[a1, a4, SP[a2, a6], a3, a5, n] - 
    S2[a6, n]*S2[a1, a5, a2, a3, a4, n] - S2[a1, a5, a2, a3, SP[a4, a6], n] - 
    S2[a6, n]*S2[a1, a5, a2, a4, a3, n] + 
    S2[a3, n]*S2[a1, a5, a2, a4, a6, n] + 
    S2[a3, n]*S2[a1, a5, a2, a6, a4, n] + S2[a1, a5, a2, a6, SP[a3, a4], n] + 
    S2[a1, a5, a2, SP[a3, a4], a6, n] - S2[a1, a5, a2, SP[a4, a6], a3, n] - 
    S2[a6, n]*S2[a1, a5, a3, a2, a4, n] - S2[a1, a5, a3, a2, SP[a4, a6], n] - 
    S2[a1, a5, a3, SP[a2, a6], a4, n] + S2[a3, n]*S2[a1, a5, a6, a2, a4, n] + 
    S2[a1, a5, a6, a2, SP[a3, a4], n] + S2[a1, a5, a6, SP[a2, a3], a4, n] + 
    S2[a1, a5, SP[a2, a3], a4, a6, n] + S2[a1, a5, SP[a2, a3], a6, a4, n] - 
    S2[a1, a5, SP[a2, a6], a3, a4, n] - S2[a1, a5, SP[a2, a6], a4, a3, n] - 
    S2[a4, n]*S2[a1, a6, a2, a3, a5, n] - S2[a1, a6, a2, a3, SP[a4, a5], n] + 
    S2[a3, n]*S2[a1, a6, a2, a4, a5, n] + S2[a1, a6, a2, a4, SP[a3, a5], n] + 
    S2[a3, n]*S2[a1, a6, a2, a5, a4, n] + S2[a1, a6, a2, a5, SP[a3, a4], n] + 
    S2[a1, a6, a2, SP[a3, a5], a4, n] - S2[a4, n]*S2[a1, a6, a3, a2, a5, n] - 
    S2[a1, a6, a3, a2, SP[a4, a5], n] - S2[a4, n]*S2[a1, a6, a3, a5, a2, n] - 
    S2[a1, a6, a3, a5, SP[a2, a4], n] - S2[a1, a6, a3, SP[a2, a4], a5, n] - 
    S2[a1, a6, a3, SP[a4, a5], a2, n] + S2[a3, n]*S2[a1, a6, a5, a2, a4, n] + 
    S2[a1, a6, a5, a2, SP[a3, a4], n] + S2[a1, a6, a5, SP[a2, a3], a4, n] + 
    S2[a1, a6, SP[a2, a3], a4, a5, n] + S2[a1, a6, SP[a2, a3], a5, a4, n] - 
    S2[a1, a6, SP[a2, a4], a3, a5, n] - S2[a1, a6, SP[a3, a4], a2, a5, n] - 
    S2[a1, a6, SP[a3, a4], a5, a2, n] + S2[a1, a6, SP[a3, a5], a2, a4, n] - 
    S2[a1, SP[a2, a6], a4, a5, a3, n] - S2[a1, SP[a2, a6], a5, a3, a4, n] - 
    S2[a1, SP[a2, a6], a5, a4, a3, n] + S2[a1, SP[a3, a5], a2, a4, a6, n] + 
    S2[a1, SP[a3, a5], a2, a6, a4, n] + S2[a1, SP[a3, a5], a6, a2, a4, n] + 
    S2[a1, SP[a3, a6], a2, a4, a5, n] + S2[a1, SP[a3, a6], a2, a5, a4, n] + 
    S2[a1, SP[a3, a6], a5, a2, a4, n] - S2[a1, SP[a4, a6], a2, a3, a5, n] - 
    S2[a1, SP[a4, a6], a3, a2, a5, n] - S2[a1, SP[a4, a6], a3, a5, a2, n] - 
    S2[a1, SP[a5, a6], a2, a3, a4, n] - S2[a1, SP[a5, a6], a2, a4, a3, n] - 
    S2[a1, SP[a5, a6], a3, a2, a4, n] - S2[a3, a1, a2, a5, SP[a4, a6], n] - 
    S2[a3, a1, a2, a6, SP[a4, a5], n] - S2[a3, a1, a2, SP[a4, a5], a6, n] - 
    S2[a3, a1, a2, SP[a4, a6], a5, n] - S2[a3, a1, a5, a2, SP[a4, a6], n] - 
    S2[a3, a1, a5, SP[a2, a6], a4, n] - S2[a3, a1, a6, a2, SP[a4, a5], n] - 
    S2[a3, a1, a6, SP[a2, a5], a4, n] - S2[a3, a1, SP[a2, a5], a4, a6, n] - 
    S2[a3, a1, SP[a2, a5], a6, a4, n] - S2[a3, a1, SP[a2, a6], a4, a5, n] - 
    S2[a3, a1, SP[a2, a6], a5, a4, n] + S2[a6, n]*S2[a3, a5, a1, a2, a4, n] + 
    S2[a4, n]*S2[a3, a6, a1, a2, a5, n] + 
    S2[a4, n]*S2[a3, a6, a1, a5, a2, n] + S2[a3, a6, a1, a5, SP[a2, a4], n] + 
    S2[a3, a6, a1, SP[a2, a4], a5, n] - S2[a3, a6, a1, SP[a2, a5], a4, n] + 
    S2[a3, a6, a1, SP[a4, a5], a2, n] + S2[a3, a6, SP[a1, a4], a2, a5, n] + 
    S2[a3, a6, SP[a1, a4], a5, a2, n] - S2[a3, a6, SP[a1, a5], a2, a4, n] - 
    S2[a3, SP[a1, a5], a2, a4, a6, n] - S2[a3, SP[a1, a5], a2, a6, a4, n] - 
    S2[a3, SP[a1, a5], a6, a2, a4, n] - S2[a3, SP[a1, a6], a2, a4, a5, n] - 
    S2[a3, SP[a1, a6], a2, a5, a4, n] - S2[a3, SP[a1, a6], a5, a2, a4, n] + 
    S2[a3, SP[a4, a6], a1, a2, a5, n] + S2[a3, SP[a4, a6], a1, a5, a2, n] + 
    S2[a3, SP[a5, a6], a1, a2, a4, n] + S2[a4, a1, a6, a3, SP[a2, a5], n] + 
    S2[a4, a1, a6, SP[a2, a3], a5, n] + S2[a4, a1, SP[a2, a6], a3, a5, n] - 
    S2[a3, n]*S2[a4, a6, a1, a2, a5, n] - S2[a4, a6, a1, a2, SP[a3, a5], n] + 
    S2[a4, a6, a1, a3, SP[a2, a5], n] - S2[a3, n]*S2[a4, a6, a1, a5, a2, n] - 
    S2[a4, a6, a1, a5, SP[a2, a3], n] - S2[a4, a6, a1, SP[a3, a5], a2, n] + 
    S2[a4, a6, a3, a1, SP[a2, a5], n] + S2[a4, a6, a3, SP[a1, a5], a2, n] + 
    S2[a4, SP[a1, a6], a2, a3, a5, n] + S2[a4, SP[a1, a6], a3, a2, a5, n] + 
    S2[a4, SP[a1, a6], a3, a5, a2, n] - S2[a4, SP[a3, a6], a1, a2, a5, n] - 
    S2[a4, SP[a3, a6], a1, a5, a2, n] + S2[a4, n]*S2[a6, a1, a2, a5, a3, n] + 
    S2[a6, a1, a2, a5, SP[a3, a4], n] + S2[a6, a1, a2, SP[a4, a5], a3, n] - 
    S2[a3, n]*S2[a6, a1, a4, a2, a5, n] - S2[a6, a1, a4, a2, SP[a3, a5], n] - 
    S2[a3, n]*S2[a6, a1, a4, a5, a2, n] - S2[a6, a1, a4, a5, SP[a2, a3], n] - 
    S2[a6, a1, a4, SP[a2, a3], a5, n] - S2[a6, a1, a4, SP[a3, a5], a2, n] + 
    S2[a4, n]*S2[a6, a1, a5, a2, a3, n] + S2[a6, a1, a5, a2, SP[a3, a4], n] + 
    S2[a4, n]*S2[a6, a1, a5, a3, a2, n] + S2[a6, a1, a5, a3, SP[a2, a4], n] - 
    S2[a3, n]*S2[a6, a1, a5, a4, a2, n] - S2[a6, a1, a5, a4, SP[a2, a3], n] + 
    S2[a6, a1, a5, SP[a2, a4], a3, n] + S2[a6, a1, SP[a2, a4], a5, a3, n] - 
    S2[a6, a1, SP[a3, a4], a2, a5, n] - S2[a6, a1, SP[a3, a4], a5, a2, n] - 
    S2[a6, a1, SP[a3, a5], a4, a2, n] + S2[a6, a1, SP[a4, a5], a2, a3, n] + 
    S2[a6, a1, SP[a4, a5], a3, a2, n] + S2[a1, n]*S2[a6, a3, a4, a2, a5, n] + 
    S2[a6, a3, a4, a2, SP[a1, a5], n] + S2[a1, n]*S2[a6, a3, a4, a5, a2, n] + 
    S2[a6, a3, a4, a5, SP[a1, a2], n] + S2[a6, a3, a4, SP[a1, a2], a5, n] + 
    S2[a6, a3, a4, SP[a1, a5], a2, n] - S2[a4, n]*S2[a6, a3, a5, a1, a2, n] - 
    S2[a6, a3, a5, a1, SP[a2, a4], n] + S2[a1, n]*S2[a6, a3, a5, a4, a2, n] + 
    S2[a6, a3, a5, a4, SP[a1, a2], n] + S2[a6, a3, SP[a1, a4], a2, a5, n] + 
    S2[a6, a3, SP[a1, a4], a5, a2, n] + S2[a6, a3, SP[a1, a5], a4, a2, n] - 
    S2[a6, a3, SP[a4, a5], a1, a2, n] - S2[a3, n]*S2[a6, a4, a1, a2, a5, n] - 
    S2[a6, a4, a1, a2, SP[a3, a5], n] - S2[a3, n]*S2[a6, a4, a1, a5, a2, n] - 
    S2[a6, a4, a1, a5, SP[a2, a3], n] - S2[a6, a4, a1, SP[a2, a3], a5, n] - 
    S2[a6, a4, a1, SP[a3, a5], a2, n] + S2[a1, n]*S2[a6, a4, a2, a3, a5, n] + 
    S2[a6, a4, a2, a3, SP[a1, a5], n] + S2[a6, a4, a2, SP[a1, a3], a5, n] + 
    S2[a1, n]*S2[a6, a4, a3, a2, a5, n] + S2[a6, a4, a3, a2, SP[a1, a5], n] + 
    S2[a1, n]*S2[a6, a4, a3, a5, a2, n] + S2[a6, a4, a3, a5, SP[a1, a2], n] + 
    S2[a6, a4, a3, SP[a1, a2], a5, n] + S2[a6, a4, a3, SP[a1, a5], a2, n] + 
    S2[a6, a4, SP[a1, a2], a3, a5, n] + S2[a6, SP[a1, a4], a2, a3, a5, n] + 
    S2[a6, SP[a1, a4], a2, a5, a3, n] + S2[a6, SP[a1, a4], a3, a2, a5, n] + 
    S2[a6, SP[a1, a4], a3, a5, a2, n] + S2[a6, SP[a1, a4], a5, a2, a3, n] + 
    S2[a6, SP[a1, a4], a5, a3, a2, n] - S2[a6, SP[a3, a4], a1, a2, a5, n] - 
    S2[a6, SP[a3, a4], a1, a5, a2, n] - S2[a6, SP[a3, a4], a5, a1, a2, n] - 
    S2[SP[a1, a6], a2, a4, a5, a3, n] - S2[SP[a1, a6], a2, a5, a3, a4, n] - 
    S2[SP[a1, a6], a2, a5, a4, a3, n] + S2[SP[a1, a6], a3, a4, a2, a5, n] + 
    S2[SP[a1, a6], a3, a4, a5, a2, n] + S2[SP[a1, a6], a3, a5, a4, a2, n] + 
    S2[SP[a1, a6], a4, a2, a3, a5, n] + S2[SP[a1, a6], a4, a3, a2, a5, n] + 
    S2[SP[a1, a6], a4, a3, a5, a2, n] - S2[SP[a1, a6], a5, a2, a3, a4, n] - 
    S2[SP[a1, a6], a5, a2, a4, a3, n] - S2[SP[a1, a6], a5, a3, a2, a4, n] - 
    S2[SP[a3, a6], a1, a4, a2, a5, n] - S2[SP[a3, a6], a1, a4, a5, a2, n] - 
    S2[SP[a3, a6], a1, a5, a4, a2, n] - S2[SP[a3, a6], a4, a1, a2, a5, n] - 
    S2[SP[a3, a6], a4, a1, a5, a2, n] + S2[SP[a3, a6], a5, a1, a2, a4, n] + 
    S2[SP[a4, a6], a1, a2, a5, a3, n] + S2[SP[a4, a6], a1, a5, a2, a3, n] + 
    S2[SP[a4, a6], a1, a5, a3, a2, n] - S2[SP[a4, a6], a3, a5, a1, a2, n] - 
    S2[a6, a3, a4, a2, a1, a5, n] - S2[a6, a3, a4, a2, a5, a1, n] - 
    S2[a6, a3, a4, a5, a2, a1, n] - S2[a6, a3, a5, a4, a2, a1, n] - 
    S2[a6, a4, a2, a1, a3, a5, n] - S2[a6, a4, a2, a3, a1, a5, n] - 
    S2[a6, a4, a2, a3, a5, a1, n] - S2[a6, a4, a3, a2, a1, a5, n] - 
    S2[a6, a4, a3, a2, a5, a1, n] - S2[a6, a4, a3, a5, a2, a1, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a1_, a2_, a4_, a6_, a5_, a3_, n_] :> 
  S2[a1, a2, a4, n]*S2[a3, a5, a6, n] + S2[SP[a1, a3], SP[a2, a5], 
     SP[a4, a6], n] - S2[a1, a3, SP[a2, a5], SP[a4, a6], n] - 
    S2[a1, SP[a2, a3], a5, SP[a4, a6], n] - S2[a1, SP[a2, a3], SP[a4, a5], 
     a6, n] - S2[a3, a1, SP[a2, a5], SP[a4, a6], n] + 
    S2[a1, a2, n]*S2[a3, a6, a4, a5, n] + S2[a1, a2, n]*
     S2[a3, a6, a5, a4, n] - S2[a3, a6, SP[a1, a4], SP[a2, a5], n] - 
    S2[a3, a6, SP[a1, a5], SP[a2, a4], n] - S2[a3, SP[a1, a5], a2, 
     SP[a4, a6], n] - S2[a3, SP[a1, a5], SP[a2, a6], a4, n] - 
    S2[a3, SP[a1, a6], a4, SP[a2, a5], n] - S2[a3, SP[a1, a6], a5, 
     SP[a2, a4], n] - S2[a3, SP[a1, a6], SP[a2, a4], a5, n] - 
    S2[a3, SP[a1, a6], SP[a2, a5], a4, n] - S2[a1, a2, n]*
     S2[a4, a6, a3, a5, n] + S2[a4, a6, SP[a1, a3], SP[a2, a5], n] + 
    S2[a4, SP[a1, a6], a3, SP[a2, a5], n] + S2[a4, SP[a1, a6], SP[a2, a3], 
     a5, n] - S2[SP[a1, a3], a2, a5, SP[a4, a6], n] - 
    S2[SP[a1, a3], a2, SP[a4, a5], a6, n] - S2[SP[a1, a3], a5, a2, 
     SP[a4, a6], n] - S2[SP[a1, a3], a5, SP[a2, a6], a4, n] - 
    S2[SP[a1, a3], a6, a4, SP[a2, a5], n] - S2[SP[a1, a3], a6, a5, 
     SP[a2, a4], n] - S2[SP[a1, a3], a6, SP[a2, a4], a5, n] - 
    S2[SP[a1, a3], a6, SP[a2, a5], a4, n] - S2[SP[a1, a3], SP[a2, a5], a4, 
     a6, n] - S2[SP[a1, a3], SP[a2, a5], a6, a4, n] - 
    S2[SP[a1, a3], SP[a2, a6], a4, a5, n] - S2[SP[a1, a3], SP[a2, a6], a5, 
     a4, n] + S2[SP[a1, a4], a6, a3, SP[a2, a5], n] + 
    S2[SP[a1, a4], a6, SP[a2, a3], a5, n] + S2[SP[a1, a4], SP[a2, a6], a3, 
     a5, n] + S2[a1, a2, a3, a5, SP[a4, a6], n] + S2[a1, a2, a3, SP[a4, a5], 
     a6, n] + S2[a6, n]*S2[a1, a2, a4, a5, a3, n] - 
    S2[a3, n]*S2[a1, a2, a4, a5, a6, n] - S2[a1, a2, a4, SP[a3, a5], a6, n] + 
    S2[a1, a2, a4, SP[a5, a6], a3, n] + S2[a6, n]*S2[a1, a2, a5, a3, a4, n] + 
    S2[a1, a2, a5, a3, SP[a4, a6], n] + S2[a6, n]*S2[a1, a2, a5, a4, a3, n] - 
    S2[a3, n]*S2[a1, a2, a5, a4, a6, n] - 
    S2[a3, n]*S2[a1, a2, a5, a6, a4, n] - S2[a1, a2, a5, a6, SP[a3, a4], n] - 
    S2[a1, a2, a5, SP[a3, a4], a6, n] + S2[a1, a2, a5, SP[a4, a6], a3, n] + 
    S2[a4, n]*S2[a1, a2, a6, a3, a5, n] + S2[a1, a2, a6, a3, SP[a4, a5], n] - 
    S2[a3, n]*S2[a1, a2, a6, a4, a5, n] - S2[a1, a2, a6, a4, SP[a3, a5], n] - 
    S2[a3, n]*S2[a1, a2, a6, a5, a4, n] - S2[a1, a2, a6, a5, SP[a3, a4], n] - 
    S2[a1, a2, a6, SP[a3, a5], a4, n] - S2[a1, a2, SP[a3, a5], a4, a6, n] - 
    S2[a1, a2, SP[a3, a5], a6, a4, n] - S2[a1, a2, SP[a3, a6], a4, a5, n] - 
    S2[a1, a2, SP[a3, a6], a5, a4, n] + S2[a1, a2, SP[a4, a6], a3, a5, n] + 
    S2[a1, a2, SP[a4, a6], a5, a3, n] + S2[a1, a2, SP[a5, a6], a3, a4, n] + 
    S2[a1, a2, SP[a5, a6], a4, a3, n] + S2[a1, a3, a2, a5, SP[a4, a6], n] + 
    S2[a1, a3, a2, SP[a4, a5], a6, n] + S2[a1, a3, a5, a2, SP[a4, a6], n] + 
    S2[a1, a3, a5, SP[a2, a6], a4, n] + S2[a1, a3, a6, a4, SP[a2, a5], n] + 
    S2[a1, a3, a6, a5, SP[a2, a4], n] + S2[a1, a3, a6, SP[a2, a4], a5, n] + 
    S2[a1, a3, a6, SP[a2, a5], a4, n] + S2[a1, a3, SP[a2, a5], a4, a6, n] + 
    S2[a1, a3, SP[a2, a5], a6, a4, n] + S2[a1, a3, SP[a2, a6], a4, a5, n] + 
    S2[a1, a3, SP[a2, a6], a5, a4, n] - S2[a1, a4, a6, a3, SP[a2, a5], n] - 
    S2[a1, a4, a6, SP[a2, a3], a5, n] - S2[a1, a4, SP[a2, a6], a3, a5, n] + 
    S2[a6, n]*S2[a1, a5, a2, a3, a4, n] + S2[a1, a5, a2, a3, SP[a4, a6], n] + 
    S2[a6, n]*S2[a1, a5, a2, a4, a3, n] - 
    S2[a3, n]*S2[a1, a5, a2, a4, a6, n] - 
    S2[a3, n]*S2[a1, a5, a2, a6, a4, n] - S2[a1, a5, a2, a6, SP[a3, a4], n] - 
    S2[a1, a5, a2, SP[a3, a4], a6, n] + S2[a1, a5, a2, SP[a4, a6], a3, n] + 
    S2[a6, n]*S2[a1, a5, a3, a2, a4, n] + S2[a1, a5, a3, a2, SP[a4, a6], n] + 
    S2[a1, a5, a3, SP[a2, a6], a4, n] - S2[a3, n]*S2[a1, a5, a6, a2, a4, n] - 
    S2[a1, a5, a6, a2, SP[a3, a4], n] - S2[a1, a5, a6, SP[a2, a3], a4, n] - 
    S2[a1, a5, SP[a2, a3], a4, a6, n] - S2[a1, a5, SP[a2, a3], a6, a4, n] + 
    S2[a1, a5, SP[a2, a6], a3, a4, n] + S2[a1, a5, SP[a2, a6], a4, a3, n] + 
    S2[a4, n]*S2[a1, a6, a2, a3, a5, n] + S2[a1, a6, a2, a3, SP[a4, a5], n] - 
    S2[a3, n]*S2[a1, a6, a2, a4, a5, n] - S2[a1, a6, a2, a4, SP[a3, a5], n] - 
    S2[a3, n]*S2[a1, a6, a2, a5, a4, n] - S2[a1, a6, a2, a5, SP[a3, a4], n] - 
    S2[a1, a6, a2, SP[a3, a5], a4, n] + S2[a4, n]*S2[a1, a6, a3, a2, a5, n] + 
    S2[a1, a6, a3, a2, SP[a4, a5], n] + S2[a4, n]*S2[a1, a6, a3, a5, a2, n] + 
    S2[a1, a6, a3, a5, SP[a2, a4], n] + S2[a1, a6, a3, SP[a2, a4], a5, n] + 
    S2[a1, a6, a3, SP[a4, a5], a2, n] - S2[a3, n]*S2[a1, a6, a4, a2, a5, n] - 
    S2[a1, a6, a4, a2, SP[a3, a5], n] - S2[a3, n]*S2[a1, a6, a4, a5, a2, n] - 
    S2[a1, a6, a4, a5, SP[a2, a3], n] - S2[a1, a6, a4, SP[a2, a3], a5, n] - 
    S2[a1, a6, a4, SP[a3, a5], a2, n] - S2[a3, n]*S2[a1, a6, a5, a2, a4, n] - 
    S2[a1, a6, a5, a2, SP[a3, a4], n] - S2[a3, n]*S2[a1, a6, a5, a4, a2, n] - 
    S2[a1, a6, a5, a4, SP[a2, a3], n] - S2[a1, a6, a5, SP[a2, a3], a4, n] - 
    S2[a1, a6, a5, SP[a3, a4], a2, n] - S2[a1, a6, SP[a2, a3], a4, a5, n] - 
    S2[a1, a6, SP[a2, a3], a5, a4, n] + S2[a1, a6, SP[a2, a4], a3, a5, n] - 
    S2[a1, a6, SP[a3, a5], a2, a4, n] - S2[a1, a6, SP[a3, a5], a4, a2, n] + 
    S2[a1, SP[a2, a6], a4, a5, a3, n] + S2[a1, SP[a2, a6], a5, a3, a4, n] + 
    S2[a1, SP[a2, a6], a5, a4, a3, n] - S2[a1, SP[a3, a5], a2, a4, a6, n] - 
    S2[a1, SP[a3, a5], a2, a6, a4, n] - S2[a1, SP[a3, a5], a6, a2, a4, n] - 
    S2[a1, SP[a3, a6], a2, a4, a5, n] - S2[a1, SP[a3, a6], a2, a5, a4, n] - 
    S2[a1, SP[a3, a6], a4, a2, a5, n] - S2[a1, SP[a3, a6], a4, a5, a2, n] - 
    S2[a1, SP[a3, a6], a5, a2, a4, n] - S2[a1, SP[a3, a6], a5, a4, a2, n] + 
    S2[a1, SP[a4, a6], a2, a3, a5, n] + S2[a1, SP[a4, a6], a3, a2, a5, n] + 
    S2[a1, SP[a4, a6], a3, a5, a2, n] + S2[a1, SP[a5, a6], a2, a3, a4, n] + 
    S2[a1, SP[a5, a6], a2, a4, a3, n] + S2[a1, SP[a5, a6], a3, a2, a4, n] + 
    S2[a3, a1, a2, a5, SP[a4, a6], n] + S2[a3, a1, a2, SP[a4, a5], a6, n] + 
    S2[a3, a1, a5, a2, SP[a4, a6], n] + S2[a3, a1, a5, SP[a2, a6], a4, n] + 
    S2[a3, a1, a6, a4, SP[a2, a5], n] + S2[a3, a1, a6, a5, SP[a2, a4], n] + 
    S2[a3, a1, a6, SP[a2, a4], a5, n] + S2[a3, a1, a6, SP[a2, a5], a4, n] + 
    S2[a3, a1, SP[a2, a5], a4, a6, n] + S2[a3, a1, SP[a2, a5], a6, a4, n] + 
    S2[a3, a1, SP[a2, a6], a4, a5, n] + S2[a3, a1, SP[a2, a6], a5, a4, n] - 
    S2[a6, n]*S2[a3, a5, a1, a2, a4, n] - 
    S2[a4, n]*S2[a3, a6, a1, a2, a5, n] - S2[a3, a6, a1, a2, SP[a4, a5], n] + 
    S2[a3, a6, a1, a4, SP[a2, a5], n] - S2[a4, n]*S2[a3, a6, a1, a5, a2, n] + 
    S2[a3, a6, a1, SP[a2, a5], a4, n] - S2[a3, a6, a1, SP[a4, a5], a2, n] + 
    S2[a3, a6, a4, a1, SP[a2, a5], n] + S2[a3, a6, a4, SP[a1, a5], a2, n] + 
    S2[a3, a6, a5, a1, SP[a2, a4], n] + S2[a3, a6, a5, SP[a1, a4], a2, n] + 
    S2[a3, a6, SP[a1, a5], a2, a4, n] + S2[a3, a6, SP[a1, a5], a4, a2, n] + 
    S2[a3, SP[a1, a5], a2, a4, a6, n] + S2[a3, SP[a1, a5], a2, a6, a4, n] + 
    S2[a3, SP[a1, a5], a6, a2, a4, n] + S2[a3, SP[a1, a6], a2, a4, a5, n] + 
    S2[a3, SP[a1, a6], a2, a5, a4, n] + S2[a3, SP[a1, a6], a4, a2, a5, n] + 
    S2[a3, SP[a1, a6], a4, a5, a2, n] + S2[a3, SP[a1, a6], a5, a2, a4, n] + 
    S2[a3, SP[a1, a6], a5, a4, a2, n] - S2[a3, SP[a4, a6], a1, a2, a5, n] - 
    S2[a3, SP[a4, a6], a1, a5, a2, n] - S2[a3, SP[a5, a6], a1, a2, a4, n] - 
    S2[a4, a1, a6, a3, SP[a2, a5], n] - S2[a4, a1, a6, SP[a2, a3], a5, n] - 
    S2[a4, a1, SP[a2, a6], a3, a5, n] + S2[a3, n]*S2[a4, a6, a1, a2, a5, n] + 
    S2[a4, a6, a1, a2, SP[a3, a5], n] - S2[a4, a6, a1, a3, SP[a2, a5], n] + 
    S2[a3, n]*S2[a4, a6, a1, a5, a2, n] + S2[a4, a6, a1, a5, SP[a2, a3], n] + 
    S2[a4, a6, a1, SP[a3, a5], a2, n] - S2[a4, a6, a3, a1, SP[a2, a5], n] - 
    S2[a4, a6, a3, SP[a1, a5], a2, n] - S2[a4, SP[a1, a6], a2, a3, a5, n] - 
    S2[a4, SP[a1, a6], a3, a2, a5, n] - S2[a4, SP[a1, a6], a3, a5, a2, n] + 
    S2[a4, SP[a3, a6], a1, a2, a5, n] + S2[a4, SP[a3, a6], a1, a5, a2, n] - 
    S2[a4, n]*S2[a6, a1, a2, a5, a3, n] - S2[a6, a1, a2, a5, SP[a3, a4], n] - 
    S2[a6, a1, a2, SP[a4, a5], a3, n] - S2[a4, n]*S2[a6, a1, a5, a2, a3, n] - 
    S2[a6, a1, a5, a2, SP[a3, a4], n] - S2[a4, n]*S2[a6, a1, a5, a3, a2, n] - 
    S2[a6, a1, a5, a3, SP[a2, a4], n] - S2[a6, a1, a5, SP[a2, a4], a3, n] - 
    S2[a6, a1, a5, SP[a3, a4], a2, n] - S2[a6, a1, SP[a2, a4], a5, a3, n] - 
    S2[a6, a1, SP[a4, a5], a2, a3, n] - S2[a6, a1, SP[a4, a5], a3, a2, n] + 
    S2[a4, n]*S2[a6, a3, a5, a1, a2, n] + S2[a6, a3, a5, a1, SP[a2, a4], n] + 
    S2[a6, a3, a5, SP[a1, a4], a2, n] + S2[a6, a3, SP[a4, a5], a1, a2, n] + 
    S2[a1, n]*S2[a6, a4, a2, a5, a3, n] + S2[a6, a4, a2, a5, SP[a1, a3], n] + 
    S2[a6, a4, a2, SP[a1, a5], a3, n] - S2[a3, n]*S2[a6, a4, a5, a1, a2, n] - 
    S2[a6, a4, a5, a1, SP[a2, a3], n] + S2[a1, n]*S2[a6, a4, a5, a2, a3, n] + 
    S2[a6, a4, a5, a2, SP[a1, a3], n] + S2[a1, n]*S2[a6, a4, a5, a3, a2, n] + 
    S2[a6, a4, a5, a3, SP[a1, a2], n] + S2[a6, a4, a5, SP[a1, a2], a3, n] + 
    S2[a6, a4, SP[a1, a2], a5, a3, n] + S2[a6, a4, SP[a1, a5], a2, a3, n] + 
    S2[a6, a4, SP[a1, a5], a3, a2, n] - S2[a6, a4, SP[a3, a5], a1, a2, n] - 
    S2[a3, n]*S2[a6, a5, a1, a4, a2, n] - S2[a6, a5, a1, a4, SP[a2, a3], n] - 
    S2[a6, a5, a1, SP[a3, a4], a2, n] + S2[a1, n]*S2[a6, a5, a3, a4, a2, n] + 
    S2[a6, a5, a3, a4, SP[a1, a2], n] + S2[a6, a5, a3, SP[a1, a4], a2, n] - 
    S2[a3, n]*S2[a6, a5, a4, a1, a2, n] - S2[a6, a5, a4, a1, SP[a2, a3], n] + 
    S2[a1, n]*S2[a6, a5, a4, a2, a3, n] + S2[a6, a5, a4, a2, SP[a1, a3], n] + 
    S2[a1, n]*S2[a6, a5, a4, a3, a2, n] + S2[a6, a5, a4, a3, SP[a1, a2], n] + 
    S2[a6, a5, a4, SP[a1, a2], a3, n] + S2[a6, a5, SP[a1, a4], a2, a3, n] + 
    S2[a6, a5, SP[a1, a4], a3, a2, n] - S2[a6, a5, SP[a3, a4], a1, a2, n] + 
    S2[a6, SP[a1, a5], a3, a4, a2, n] + S2[a6, SP[a1, a5], a4, a2, a3, n] + 
    S2[a6, SP[a1, a5], a4, a3, a2, n] - S2[a6, SP[a3, a5], a1, a4, a2, n] - 
    S2[a6, SP[a3, a5], a4, a1, a2, n] + S2[SP[a1, a6], a2, a4, a5, a3, n] + 
    S2[SP[a1, a6], a2, a5, a3, a4, n] + S2[SP[a1, a6], a2, a5, a4, a3, n] + 
    S2[SP[a1, a6], a4, a2, a5, a3, n] + S2[SP[a1, a6], a4, a5, a2, a3, n] + 
    S2[SP[a1, a6], a4, a5, a3, a2, n] + S2[SP[a1, a6], a5, a2, a3, a4, n] + 
    S2[SP[a1, a6], a5, a2, a4, a3, n] + S2[SP[a1, a6], a5, a3, a2, a4, n] + 
    S2[SP[a1, a6], a5, a3, a4, a2, n] + S2[SP[a1, a6], a5, a4, a2, a3, n] + 
    S2[SP[a1, a6], a5, a4, a3, a2, n] - S2[SP[a3, a6], a4, a5, a1, a2, n] - 
    S2[SP[a3, a6], a5, a1, a2, a4, n] - S2[SP[a3, a6], a5, a1, a4, a2, n] - 
    S2[SP[a3, a6], a5, a4, a1, a2, n] - S2[SP[a4, a6], a1, a2, a5, a3, n] - 
    S2[SP[a4, a6], a1, a5, a2, a3, n] - S2[SP[a4, a6], a1, a5, a3, a2, n] + 
    S2[SP[a4, a6], a3, a5, a1, a2, n] - S2[a6, a4, a2, a1, a5, a3, n] - 
    S2[a6, a4, a2, a5, a1, a3, n] - S2[a6, a4, a2, a5, a3, a1, n] - 
    S2[a6, a4, a5, a2, a1, a3, n] - S2[a6, a4, a5, a2, a3, a1, n] - 
    S2[a6, a4, a5, a3, a2, a1, n] - S2[a6, a5, a3, a4, a2, a1, n] - 
    S2[a6, a5, a4, a2, a1, a3, n] - S2[a6, a5, a4, a2, a3, a1, n] - 
    S2[a6, a5, a4, a3, a2, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a1_, a2_, a5_, a3_, a4_, a6_, n_] :> 
  S2[a1, a2, a5, n]*S2[a3, a4, a6, n] + S2[SP[a1, a3], SP[a2, a4], 
     SP[a5, a6], n] + S2[a4, a6, n]*S2[a1, a2, a5, a3, n] - 
    S2[a1, a2, SP[a4, a5], SP[a3, a6], n] - S2[a1, a3, SP[a2, a4], 
     SP[a5, a6], n] - S2[a1, SP[a2, a3], a4, SP[a5, a6], n] - 
    S2[a1, SP[a2, a3], SP[a4, a5], a6, n] - S2[a1, SP[a2, a4], a5, 
     SP[a3, a6], n] - S2[a1, SP[a2, a4], SP[a5, a6], a3, n] - 
    S2[a3, a1, SP[a2, a4], SP[a5, a6], n] - S2[a1, a2, n]*
     S2[a3, a4, a5, a6, n] - S2[a1, a2, n]*S2[a3, a4, a6, a5, n] + 
    S2[a3, a4, SP[a1, a5], SP[a2, a6], n] + S2[a3, a4, SP[a1, a6], 
     SP[a2, a5], n] - S2[a1, a2, n]*S2[a3, a5, a4, a6, n] - 
    S2[a1, a2, n]*S2[a3, a5, a6, a4, n] + S2[a3, a5, SP[a1, a4], SP[a2, a6], 
     n] + S2[a3, a5, SP[a1, a6], SP[a2, a4], n] - 
    S2[a1, a2, n]*S2[a3, a6, a4, a5, n] - S2[a1, a2, n]*
     S2[a3, a6, a5, a4, n] + S2[a3, a6, SP[a1, a4], SP[a2, a5], n] + 
    S2[a3, a6, SP[a1, a5], SP[a2, a4], n] - S2[a3, SP[a1, a4], a2, 
     SP[a5, a6], n] + S2[a3, SP[a1, a4], a5, SP[a2, a6], n] + 
    S2[a3, SP[a1, a4], a6, SP[a2, a5], n] + S2[a3, SP[a1, a4], SP[a2, a5], 
     a6, n] + S2[a3, SP[a1, a5], a4, SP[a2, a6], n] + 
    S2[a3, SP[a1, a5], a6, SP[a2, a4], n] + S2[a3, SP[a1, a5], SP[a2, a4], 
     a6, n] + S2[a3, SP[a1, a5], SP[a2, a6], a4, n] + 
    S2[a3, SP[a1, a6], a4, SP[a2, a5], n] + S2[a3, SP[a1, a6], a5, 
     SP[a2, a4], n] + S2[a3, SP[a1, a6], SP[a2, a4], a5, n] + 
    S2[a3, SP[a1, a6], SP[a2, a5], a4, n] + S2[a1, a2, n]*
     S2[a4, a6, a3, a5, n] - S2[a4, a6, SP[a1, a3], SP[a2, a5], n] - 
    S2[a4, SP[a1, a6], a3, SP[a2, a5], n] - S2[a4, SP[a1, a6], SP[a2, a3], 
     a5, n] - S2[SP[a1, a3], a2, a4, SP[a5, a6], n] - 
    S2[SP[a1, a3], a2, SP[a4, a5], a6, n] - S2[SP[a1, a3], a4, a2, 
     SP[a5, a6], n] + S2[SP[a1, a3], a4, a5, SP[a2, a6], n] + 
    S2[SP[a1, a3], a4, a6, SP[a2, a5], n] + S2[SP[a1, a3], a4, SP[a2, a5], 
     a6, n] + S2[SP[a1, a3], a5, a4, SP[a2, a6], n] + 
    S2[SP[a1, a3], a5, a6, SP[a2, a4], n] + S2[SP[a1, a3], a5, SP[a2, a4], 
     a6, n] + S2[SP[a1, a3], a5, SP[a2, a6], a4, n] + 
    S2[SP[a1, a3], a6, a4, SP[a2, a5], n] + S2[SP[a1, a3], a6, a5, 
     SP[a2, a4], n] + S2[SP[a1, a3], a6, SP[a2, a4], a5, n] + 
    S2[SP[a1, a3], a6, SP[a2, a5], a4, n] + S2[SP[a1, a3], SP[a2, a5], a4, 
     a6, n] + S2[SP[a1, a3], SP[a2, a5], a6, a4, n] + 
    S2[SP[a1, a3], SP[a2, a6], a4, a5, n] + S2[SP[a1, a3], SP[a2, a6], a5, 
     a4, n] - S2[SP[a1, a4], a2, a5, SP[a3, a6], n] - 
    S2[SP[a1, a4], a2, SP[a5, a6], a3, n] - S2[SP[a1, a4], a6, a3, 
     SP[a2, a5], n] - S2[SP[a1, a4], a6, SP[a2, a3], a5, n] - 
    S2[SP[a1, a4], SP[a2, a6], a3, a5, n] - S2[SP[a1, a4], SP[a2, a6], a5, 
     a3, n] + S2[a1, a2, a3, a4, SP[a5, a6], n] + S2[a1, a2, a3, SP[a4, a5], 
     a6, n] + S2[a1, a2, a4, a5, SP[a3, a6], n] + S2[a1, a2, a4, SP[a5, a6], 
     a3, n] - S2[a4, n]*S2[a1, a2, a5, a3, a6, n] - 
    S2[a1, a2, a5, a3, SP[a4, a6], n] + S2[a1, a2, a5, a4, SP[a3, a6], n] - 
    S2[a4, n]*S2[a1, a2, a5, a6, a3, n] + 
    S2[a3, n]*S2[a1, a2, a5, a6, a4, n] + S2[a1, a2, a5, SP[a3, a6], a4, n] - 
    S2[a1, a2, a5, SP[a4, a6], a3, n] - S2[a4, n]*S2[a1, a2, a6, a3, a5, n] - 
    S2[a1, a2, a6, a3, SP[a4, a5], n] + S2[a3, n]*S2[a1, a2, a6, a4, a5, n] + 
    S2[a1, a2, a6, a4, SP[a3, a5], n] - S2[a4, n]*S2[a1, a2, a6, a5, a3, n] + 
    S2[a3, n]*S2[a1, a2, a6, a5, a4, n] + S2[a1, a2, a6, SP[a3, a5], a4, n] - 
    S2[a1, a2, a6, SP[a4, a5], a3, n] + S2[a1, a2, SP[a3, a5], a4, a6, n] + 
    S2[a1, a2, SP[a3, a5], a6, a4, n] + S2[a1, a2, SP[a3, a6], a4, a5, n] + 
    S2[a1, a2, SP[a3, a6], a5, a4, n] - S2[a1, a2, SP[a4, a6], a3, a5, n] - 
    S2[a1, a2, SP[a4, a6], a5, a3, n] + S2[a1, a3, a2, a4, SP[a5, a6], n] + 
    S2[a1, a3, a2, SP[a4, a5], a6, n] + S2[a1, a3, a4, a2, SP[a5, a6], n] - 
    S2[a1, a3, a4, a5, SP[a2, a6], n] - S2[a1, a3, a4, a6, SP[a2, a5], n] - 
    S2[a1, a3, a4, SP[a2, a5], a6, n] - S2[a1, a3, a5, a4, SP[a2, a6], n] - 
    S2[a1, a3, a5, a6, SP[a2, a4], n] - S2[a1, a3, a5, SP[a2, a4], a6, n] - 
    S2[a1, a3, a5, SP[a2, a6], a4, n] - S2[a1, a3, a6, a4, SP[a2, a5], n] - 
    S2[a1, a3, a6, a5, SP[a2, a4], n] - S2[a1, a3, a6, SP[a2, a4], a5, n] - 
    S2[a1, a3, a6, SP[a2, a5], a4, n] - S2[a1, a3, SP[a2, a5], a4, a6, n] - 
    S2[a1, a3, SP[a2, a5], a6, a4, n] - S2[a1, a3, SP[a2, a6], a4, a5, n] - 
    S2[a1, a3, SP[a2, a6], a5, a4, n] + S2[a1, a4, a2, a5, SP[a3, a6], n] + 
    S2[a1, a4, a2, SP[a5, a6], a3, n] - S2[a6, n]*S2[a1, a4, a3, a5, a2, n] - 
    S2[a1, a4, a3, a5, SP[a2, a6], n] - S2[a1, a4, a3, SP[a5, a6], a2, n] - 
    S2[a6, n]*S2[a1, a4, a5, a2, a3, n] + 
    S2[a3, n]*S2[a1, a4, a5, a2, a6, n] - 
    S2[a6, n]*S2[a1, a4, a5, a3, a2, n] - S2[a1, a4, a5, a3, SP[a2, a6], n] + 
    S2[a3, n]*S2[a1, a4, a5, a6, a2, n] + S2[a1, a4, a5, a6, SP[a2, a3], n] + 
    S2[a1, a4, a5, SP[a2, a3], a6, n] - S2[a1, a4, a5, SP[a2, a6], a3, n] + 
    S2[a1, a4, a6, a3, SP[a2, a5], n] + S2[a3, n]*S2[a1, a4, a6, a5, a2, n] + 
    S2[a1, a4, a6, a5, SP[a2, a3], n] + S2[a1, a4, a6, SP[a2, a3], a5, n] + 
    S2[a1, a4, a6, SP[a3, a5], a2, n] + S2[a1, a4, SP[a2, a6], a3, a5, n] + 
    S2[a1, a4, SP[a2, a6], a5, a3, n] + S2[a1, a4, SP[a3, a5], a2, a6, n] + 
    S2[a1, a4, SP[a3, a5], a6, a2, n] - S2[a1, a4, SP[a5, a6], a2, a3, n] - 
    S2[a1, a4, SP[a5, a6], a3, a2, n] - S2[a6, n]*S2[a1, a5, a2, a3, a4, n] - 
    S2[a1, a5, a2, a3, SP[a4, a6], n] - S2[a6, n]*S2[a1, a5, a2, a4, a3, n] + 
    S2[a3, n]*S2[a1, a5, a2, a4, a6, n] + 
    S2[a3, n]*S2[a1, a5, a2, a6, a4, n] + S2[a1, a5, a2, a6, SP[a3, a4], n] + 
    S2[a1, a5, a2, SP[a3, a4], a6, n] - S2[a1, a5, a2, SP[a4, a6], a3, n] - 
    S2[a6, n]*S2[a1, a5, a3, a2, a4, n] - S2[a1, a5, a3, a2, SP[a4, a6], n] - 
    S2[a6, n]*S2[a1, a5, a3, a4, a2, n] - S2[a1, a5, a3, a4, SP[a2, a6], n] - 
    S2[a1, a5, a3, SP[a2, a6], a4, n] - S2[a1, a5, a3, SP[a4, a6], a2, n] - 
    S2[a6, n]*S2[a1, a5, a4, a2, a3, n] + 
    S2[a3, n]*S2[a1, a5, a4, a2, a6, n] - 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] - S2[a1, a5, a4, a3, SP[a2, a6], n] + 
    S2[a3, n]*S2[a1, a5, a4, a6, a2, n] + S2[a1, a5, a4, a6, SP[a2, a3], n] + 
    S2[a1, a5, a4, SP[a2, a3], a6, n] - S2[a1, a5, a4, SP[a2, a6], a3, n] + 
    S2[a3, n]*S2[a1, a5, a6, a2, a4, n] + S2[a1, a5, a6, a2, SP[a3, a4], n] + 
    S2[a3, n]*S2[a1, a5, a6, a4, a2, n] + S2[a1, a5, a6, a4, SP[a2, a3], n] + 
    S2[a1, a5, a6, SP[a2, a3], a4, n] + S2[a1, a5, a6, SP[a3, a4], a2, n] + 
    S2[a1, a5, SP[a2, a3], a4, a6, n] + S2[a1, a5, SP[a2, a3], a6, a4, n] - 
    S2[a1, a5, SP[a2, a6], a3, a4, n] - S2[a1, a5, SP[a2, a6], a4, a3, n] + 
    S2[a1, a5, SP[a3, a4], a2, a6, n] + S2[a1, a5, SP[a3, a4], a6, a2, n] - 
    S2[a1, a5, SP[a4, a6], a2, a3, n] - S2[a1, a5, SP[a4, a6], a3, a2, n] - 
    S2[a4, n]*S2[a1, a6, a2, a3, a5, n] - S2[a1, a6, a2, a3, SP[a4, a5], n] + 
    S2[a3, n]*S2[a1, a6, a2, a4, a5, n] + S2[a1, a6, a2, a4, SP[a3, a5], n] - 
    S2[a4, n]*S2[a1, a6, a2, a5, a3, n] + 
    S2[a3, n]*S2[a1, a6, a2, a5, a4, n] + S2[a1, a6, a2, SP[a3, a5], a4, n] - 
    S2[a1, a6, a2, SP[a4, a5], a3, n] - S2[a4, n]*S2[a1, a6, a3, a2, a5, n] - 
    S2[a1, a6, a3, a2, SP[a4, a5], n] - S2[a4, n]*S2[a1, a6, a3, a5, a2, n] - 
    S2[a1, a6, a3, a5, SP[a2, a4], n] - S2[a1, a6, a3, SP[a2, a4], a5, n] - 
    S2[a1, a6, a3, SP[a4, a5], a2, n] + S2[a3, n]*S2[a1, a6, a4, a2, a5, n] + 
    S2[a1, a6, a4, a2, SP[a3, a5], n] + S2[a3, n]*S2[a1, a6, a4, a5, a2, n] + 
    S2[a1, a6, a4, a5, SP[a2, a3], n] + S2[a1, a6, a4, SP[a2, a3], a5, n] + 
    S2[a1, a6, a4, SP[a3, a5], a2, n] + S2[a3, n]*S2[a1, a6, a5, a2, a4, n] + 
    S2[a1, a6, a5, a2, SP[a3, a4], n] + S2[a3, n]*S2[a1, a6, a5, a4, a2, n] + 
    S2[a1, a6, a5, a4, SP[a2, a3], n] + S2[a1, a6, a5, SP[a2, a3], a4, n] + 
    S2[a1, a6, a5, SP[a3, a4], a2, n] + S2[a1, a6, SP[a2, a3], a4, a5, n] + 
    S2[a1, a6, SP[a2, a3], a5, a4, n] - S2[a1, a6, SP[a2, a4], a3, a5, n] - 
    S2[a1, a6, SP[a2, a4], a5, a3, n] + S2[a1, a6, SP[a3, a5], a2, a4, n] + 
    S2[a1, a6, SP[a3, a5], a4, a2, n] + S2[a1, SP[a3, a4], a5, a2, a6, n] + 
    S2[a1, SP[a3, a4], a5, a6, a2, n] + S2[a1, SP[a3, a4], a6, a5, a2, n] + 
    S2[a1, SP[a3, a5], a2, a4, a6, n] + S2[a1, SP[a3, a5], a2, a6, a4, n] + 
    S2[a1, SP[a3, a5], a4, a2, a6, n] + S2[a1, SP[a3, a5], a4, a6, a2, n] + 
    S2[a1, SP[a3, a5], a6, a2, a4, n] + S2[a1, SP[a3, a5], a6, a4, a2, n] + 
    S2[a1, SP[a3, a6], a2, a4, a5, n] + S2[a1, SP[a3, a6], a2, a5, a4, n] + 
    S2[a1, SP[a3, a6], a4, a2, a5, n] + S2[a1, SP[a3, a6], a4, a5, a2, n] + 
    S2[a1, SP[a3, a6], a5, a2, a4, n] + S2[a1, SP[a3, a6], a5, a4, a2, n] - 
    S2[a1, SP[a4, a6], a2, a3, a5, n] - S2[a1, SP[a4, a6], a2, a5, a3, n] - 
    S2[a1, SP[a4, a6], a3, a2, a5, n] - 2*S2[a1, SP[a4, a6], a3, a5, a2, n] - 
    S2[a1, SP[a4, a6], a5, a2, a3, n] - S2[a1, SP[a4, a6], a5, a3, a2, n] - 
    S2[a1, SP[a5, a6], a2, a3, a4, n] - S2[a1, SP[a5, a6], a2, a4, a3, n] - 
    S2[a1, SP[a5, a6], a3, a2, a4, n] - S2[a1, SP[a5, a6], a3, a4, a2, n] - 
    S2[a1, SP[a5, a6], a4, a2, a3, n] - S2[a1, SP[a5, a6], a4, a3, a2, n] + 
    S2[a3, a1, a2, a4, SP[a5, a6], n] + S2[a3, a1, a2, SP[a4, a5], a6, n] + 
    S2[a3, a1, a4, a2, SP[a5, a6], n] - S2[a3, a1, a4, a5, SP[a2, a6], n] - 
    S2[a3, a1, a4, a6, SP[a2, a5], n] - S2[a3, a1, a4, SP[a2, a5], a6, n] - 
    S2[a3, a1, a5, a4, SP[a2, a6], n] - S2[a3, a1, a5, a6, SP[a2, a4], n] - 
    S2[a3, a1, a5, SP[a2, a4], a6, n] - S2[a3, a1, a5, SP[a2, a6], a4, n] - 
    S2[a3, a1, a6, a4, SP[a2, a5], n] - S2[a3, a1, a6, a5, SP[a2, a4], n] - 
    S2[a3, a1, a6, SP[a2, a4], a5, n] - S2[a3, a1, a6, SP[a2, a5], a4, n] - 
    S2[a3, a1, SP[a2, a5], a4, a6, n] - S2[a3, a1, SP[a2, a5], a6, a4, n] - 
    S2[a3, a1, SP[a2, a6], a4, a5, n] - S2[a3, a1, SP[a2, a6], a5, a4, n] + 
    S2[a3, a4, a1, a2, SP[a5, a6], n] + S2[a6, n]*S2[a3, a4, a1, a5, a2, n] - 
    S2[a3, a4, a1, a6, SP[a2, a5], n] - S2[a3, a4, a1, SP[a2, a5], a6, n] + 
    S2[a3, a4, a1, SP[a5, a6], a2, n] + S2[a6, n]*S2[a3, a4, a5, a1, a2, n] - 
    S2[a3, a4, a6, a1, SP[a2, a5], n] - S2[a3, a4, a6, SP[a1, a5], a2, n] - 
    S2[a3, a4, SP[a1, a5], a2, a6, n] - S2[a3, a4, SP[a1, a5], a6, a2, n] + 
    S2[a3, a4, SP[a5, a6], a1, a2, n] + S2[a6, n]*S2[a3, a5, a1, a2, a4, n] + 
    S2[a3, a5, a1, a2, SP[a4, a6], n] + S2[a6, n]*S2[a3, a5, a1, a4, a2, n] - 
    S2[a3, a5, a1, a6, SP[a2, a4], n] - S2[a3, a5, a1, SP[a2, a4], a6, n] + 
    S2[a3, a5, a1, SP[a4, a6], a2, n] + S2[a6, n]*S2[a3, a5, a4, a1, a2, n] - 
    S2[a3, a5, a6, a1, SP[a2, a4], n] - S2[a3, a5, a6, SP[a1, a4], a2, n] - 
    S2[a3, a5, SP[a1, a4], a2, a6, n] - S2[a3, a5, SP[a1, a4], a6, a2, n] + 
    S2[a3, a5, SP[a4, a6], a1, a2, n] + S2[a4, n]*S2[a3, a6, a1, a2, a5, n] + 
    S2[a3, a6, a1, a2, SP[a4, a5], n] - S2[a3, a6, a1, a4, SP[a2, a5], n] + 
    S2[a4, n]*S2[a3, a6, a1, a5, a2, n] - S2[a3, a6, a1, SP[a2, a5], a4, n] + 
    S2[a3, a6, a1, SP[a4, a5], a2, n] - S2[a3, a6, a4, a1, SP[a2, a5], n] - 
    S2[a3, a6, a4, SP[a1, a5], a2, n] - S2[a3, a6, a5, a1, SP[a2, a4], n] - 
    S2[a3, a6, a5, SP[a1, a4], a2, n] - S2[a3, a6, SP[a1, a5], a2, a4, n] - 
    S2[a3, a6, SP[a1, a5], a4, a2, n] - S2[a3, SP[a1, a4], a5, a2, a6, n] - 
    S2[a3, SP[a1, a4], a5, a6, a2, n] - S2[a3, SP[a1, a4], a6, a5, a2, n] - 
    S2[a3, SP[a1, a5], a2, a4, a6, n] - S2[a3, SP[a1, a5], a2, a6, a4, n] - 
    S2[a3, SP[a1, a5], a4, a2, a6, n] - S2[a3, SP[a1, a5], a4, a6, a2, n] - 
    S2[a3, SP[a1, a5], a6, a2, a4, n] - S2[a3, SP[a1, a5], a6, a4, a2, n] - 
    S2[a3, SP[a1, a6], a2, a4, a5, n] - S2[a3, SP[a1, a6], a2, a5, a4, n] - 
    S2[a3, SP[a1, a6], a4, a2, a5, n] - S2[a3, SP[a1, a6], a4, a5, a2, n] - 
    S2[a3, SP[a1, a6], a5, a2, a4, n] - S2[a3, SP[a1, a6], a5, a4, a2, n] + 
    S2[a3, SP[a4, a6], a1, a2, a5, n] + 2*S2[a3, SP[a4, a6], a1, a5, a2, n] + 
    S2[a3, SP[a4, a6], a5, a1, a2, n] + S2[a3, SP[a5, a6], a1, a2, a4, n] + 
    S2[a3, SP[a5, a6], a1, a4, a2, n] + S2[a3, SP[a5, a6], a4, a1, a2, n] + 
    S2[a4, a1, a2, a5, SP[a3, a6], n] + S2[a4, a1, a2, SP[a5, a6], a3, n] + 
    S2[a4, a1, a6, a3, SP[a2, a5], n] + S2[a4, a1, a6, SP[a2, a3], a5, n] + 
    S2[a4, a1, SP[a2, a6], a3, a5, n] + S2[a4, a1, SP[a2, a6], a5, a3, n] - 
    S2[a3, n]*S2[a4, a6, a1, a2, a5, n] - S2[a4, a6, a1, a2, SP[a3, a5], n] + 
    S2[a4, a6, a1, a3, SP[a2, a5], n] - S2[a3, n]*S2[a4, a6, a1, a5, a2, n] - 
    S2[a4, a6, a1, a5, SP[a2, a3], n] - S2[a4, a6, a1, SP[a3, a5], a2, n] + 
    S2[a4, a6, a3, a1, SP[a2, a5], n] + S2[a4, a6, a3, SP[a1, a5], a2, n] + 
    S2[a4, SP[a1, a6], a2, a3, a5, n] + S2[a4, SP[a1, a6], a2, a5, a3, n] + 
    S2[a4, SP[a1, a6], a3, a2, a5, n] + S2[a4, SP[a1, a6], a3, a5, a2, n] - 
    S2[a4, SP[a3, a6], a1, a2, a5, n] - S2[a4, SP[a3, a6], a1, a5, a2, n] + 
    S2[a4, n]*S2[a6, a1, a5, a2, a3, n] + S2[a6, a1, a5, a2, SP[a3, a4], n] + 
    S2[a4, n]*S2[a6, a1, a5, a3, a2, n] + S2[a6, a1, a5, a3, SP[a2, a4], n] + 
    S2[a6, a1, a5, SP[a2, a4], a3, n] + S2[a6, a1, a5, SP[a3, a4], a2, n] + 
    S2[a6, a1, SP[a4, a5], a2, a3, n] + S2[a6, a1, SP[a4, a5], a3, a2, n] - 
    S2[a4, n]*S2[a6, a3, a5, a1, a2, n] - S2[a6, a3, a5, a1, SP[a2, a4], n] - 
    S2[a6, a3, a5, SP[a1, a4], a2, n] - S2[a6, a3, SP[a4, a5], a1, a2, n] - 
    S2[a3, n]*S2[a6, a4, a1, a5, a2, n] - S2[a6, a4, a1, a5, SP[a2, a3], n] - 
    S2[a6, a4, a1, SP[a3, a5], a2, n] + S2[a1, n]*S2[a6, a4, a3, a5, a2, n] + 
    S2[a6, a4, a3, a5, SP[a1, a2], n] + S2[a6, a4, a3, SP[a1, a5], a2, n] + 
    S2[a6, SP[a1, a4], a3, a5, a2, n] + S2[a6, SP[a1, a4], a5, a2, a3, n] + 
    S2[a6, SP[a1, a4], a5, a3, a2, n] - S2[a6, SP[a3, a4], a1, a5, a2, n] - 
    S2[a6, SP[a3, a4], a5, a1, a2, n] - S2[SP[a1, a6], a4, a5, a2, a3, n] - 
    S2[SP[a1, a6], a4, a5, a3, a2, n] - S2[SP[a1, a6], a5, a2, a3, a4, n] - 
    S2[SP[a1, a6], a5, a2, a4, a3, n] - S2[SP[a1, a6], a5, a3, a2, a4, n] - 
    S2[SP[a1, a6], a5, a3, a4, a2, n] - S2[SP[a1, a6], a5, a4, a2, a3, n] - 
    S2[SP[a1, a6], a5, a4, a3, a2, n] + S2[SP[a3, a6], a4, a5, a1, a2, n] + 
    S2[SP[a3, a6], a5, a1, a2, a4, n] + S2[SP[a3, a6], a5, a1, a4, a2, n] + 
    S2[SP[a3, a6], a5, a4, a1, a2, n] + S2[SP[a4, a6], a1, a5, a2, a3, n] + 
    S2[SP[a4, a6], a1, a5, a3, a2, n] - S2[SP[a4, a6], a3, a5, a1, a2, n] - 
    S2[a6, a4, a3, a5, a2, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a1_, a2_, a5_, a3_, a6_, a4_, n_] :> 
  S2[a1, a2, a5, n]*S2[a3, a6, a4, n] + S2[SP[a1, a3], SP[a2, a6], 
     SP[a4, a5], n] - S2[a4, a6, n]*S2[a1, a2, a5, a3, n] + 
    S2[a1, a2, SP[a4, a5], SP[a3, a6], n] - S2[a1, a3, SP[a2, a6], 
     SP[a4, a5], n] - S2[a1, SP[a2, a3], a6, SP[a4, a5], n] - 
    S2[a1, SP[a2, a3], SP[a5, a6], a4, n] + S2[a1, SP[a2, a4], a5, 
     SP[a3, a6], n] + S2[a1, SP[a2, a4], SP[a5, a6], a3, n] - 
    S2[a3, a1, SP[a2, a6], SP[a4, a5], n] - S2[a3, SP[a1, a6], a2, 
     SP[a4, a5], n] - S2[a3, SP[a1, a6], SP[a2, a4], a5, n] - 
    S2[a1, a2, n]*S2[a4, a6, a3, a5, n] + S2[a4, a6, SP[a1, a3], SP[a2, a5], 
     n] + S2[a4, SP[a1, a6], a3, SP[a2, a5], n] + 
    S2[a4, SP[a1, a6], SP[a2, a3], a5, n] - S2[SP[a1, a3], a2, a6, 
     SP[a4, a5], n] - S2[SP[a1, a3], a2, SP[a5, a6], a4, n] - 
    S2[SP[a1, a3], a6, a2, SP[a4, a5], n] - S2[SP[a1, a3], a6, SP[a2, a4], 
     a5, n] - S2[SP[a1, a3], SP[a2, a6], a4, a5, n] - 
    S2[SP[a1, a3], SP[a2, a6], a5, a4, n] + S2[SP[a1, a4], a2, a5, 
     SP[a3, a6], n] + S2[SP[a1, a4], a2, SP[a5, a6], a3, n] + 
    S2[SP[a1, a4], a6, a3, SP[a2, a5], n] + S2[SP[a1, a4], a6, SP[a2, a3], 
     a5, n] + S2[SP[a1, a4], SP[a2, a6], a3, a5, n] + 
    S2[SP[a1, a4], SP[a2, a6], a5, a3, n] + S2[a1, a2, a3, a6, SP[a4, a5], 
     n] + S2[a1, a2, a3, SP[a5, a6], a4, n] - S2[a1, a2, a4, a5, SP[a3, a6], 
     n] - S2[a1, a2, a4, SP[a5, a6], a3, n] + 
    S2[a4, n]*S2[a1, a2, a5, a3, a6, n] + S2[a1, a2, a5, a3, SP[a4, a6], n] - 
    S2[a1, a2, a5, a4, SP[a3, a6], n] + S2[a4, n]*S2[a1, a2, a5, a6, a3, n] - 
    S2[a3, n]*S2[a1, a2, a5, a6, a4, n] - S2[a1, a2, a5, SP[a3, a6], a4, n] + 
    S2[a1, a2, a5, SP[a4, a6], a3, n] + S2[a4, n]*S2[a1, a2, a6, a3, a5, n] + 
    S2[a1, a2, a6, a3, SP[a4, a5], n] - S2[a3, n]*S2[a1, a2, a6, a4, a5, n] - 
    S2[a1, a2, a6, a4, SP[a3, a5], n] + S2[a4, n]*S2[a1, a2, a6, a5, a3, n] - 
    S2[a3, n]*S2[a1, a2, a6, a5, a4, n] - S2[a1, a2, a6, SP[a3, a5], a4, n] + 
    S2[a1, a2, a6, SP[a4, a5], a3, n] - S2[a1, a2, SP[a3, a6], a4, a5, n] - 
    S2[a1, a2, SP[a3, a6], a5, a4, n] + S2[a1, a2, SP[a4, a6], a3, a5, n] + 
    S2[a1, a2, SP[a4, a6], a5, a3, n] + S2[a1, a3, a2, a6, SP[a4, a5], n] + 
    S2[a1, a3, a2, SP[a5, a6], a4, n] + S2[a1, a3, a6, a2, SP[a4, a5], n] + 
    S2[a1, a3, a6, SP[a2, a4], a5, n] + S2[a1, a3, SP[a2, a6], a4, a5, n] + 
    S2[a1, a3, SP[a2, a6], a5, a4, n] - S2[a1, a4, a2, a5, SP[a3, a6], n] - 
    S2[a1, a4, a2, SP[a5, a6], a3, n] - S2[a1, a4, a6, a3, SP[a2, a5], n] - 
    S2[a1, a4, a6, SP[a2, a3], a5, n] - S2[a1, a4, SP[a2, a6], a3, a5, n] - 
    S2[a1, a4, SP[a2, a6], a5, a3, n] + S2[a4, n]*S2[a1, a6, a2, a3, a5, n] + 
    S2[a1, a6, a2, a3, SP[a4, a5], n] - S2[a3, n]*S2[a1, a6, a2, a4, a5, n] - 
    S2[a1, a6, a2, a4, SP[a3, a5], n] + S2[a4, n]*S2[a1, a6, a2, a5, a3, n] - 
    S2[a3, n]*S2[a1, a6, a2, a5, a4, n] - S2[a1, a6, a2, SP[a3, a5], a4, n] + 
    S2[a1, a6, a2, SP[a4, a5], a3, n] + S2[a4, n]*S2[a1, a6, a3, a2, a5, n] + 
    S2[a1, a6, a3, a2, SP[a4, a5], n] + S2[a4, n]*S2[a1, a6, a3, a5, a2, n] + 
    S2[a1, a6, a3, a5, SP[a2, a4], n] + S2[a1, a6, a3, SP[a2, a4], a5, n] + 
    S2[a1, a6, a3, SP[a4, a5], a2, n] - S2[a3, n]*S2[a1, a6, a4, a2, a5, n] - 
    S2[a1, a6, a4, a2, SP[a3, a5], n] - S2[a1, a6, a4, SP[a2, a3], a5, n] - 
    S2[a1, a6, SP[a2, a3], a4, a5, n] - S2[a1, a6, SP[a2, a3], a5, a4, n] + 
    S2[a1, a6, SP[a2, a4], a3, a5, n] + S2[a1, a6, SP[a2, a4], a5, a3, n] + 
    S2[a1, a6, SP[a3, a4], a5, a2, n] - S2[a1, SP[a3, a6], a2, a4, a5, n] - 
    S2[a1, SP[a3, a6], a2, a5, a4, n] - S2[a1, SP[a3, a6], a4, a2, a5, n] + 
    S2[a1, SP[a4, a6], a2, a3, a5, n] + S2[a1, SP[a4, a6], a2, a5, a3, n] + 
    S2[a1, SP[a4, a6], a3, a2, a5, n] + S2[a1, SP[a4, a6], a3, a5, a2, n] + 
    S2[a3, a1, a2, a6, SP[a4, a5], n] + S2[a3, a1, a2, SP[a5, a6], a4, n] + 
    S2[a3, a1, a6, a2, SP[a4, a5], n] + S2[a3, a1, a6, SP[a2, a4], a5, n] + 
    S2[a3, a1, SP[a2, a6], a4, a5, n] + S2[a3, a1, SP[a2, a6], a5, a4, n] - 
    S2[a4, n]*S2[a3, a6, a1, a2, a5, n] - 
    S2[a4, n]*S2[a3, a6, a1, a5, a2, n] - S2[a3, a6, a1, a5, SP[a2, a4], n] - 
    S2[a3, a6, a1, SP[a4, a5], a2, n] - S2[a3, a6, SP[a1, a4], a5, a2, n] + 
    S2[a3, SP[a1, a6], a2, a4, a5, n] + S2[a3, SP[a1, a6], a2, a5, a4, n] + 
    S2[a3, SP[a1, a6], a4, a2, a5, n] - S2[a3, SP[a4, a6], a1, a2, a5, n] - 
    S2[a3, SP[a4, a6], a1, a5, a2, n] - S2[a4, a1, a2, a5, SP[a3, a6], n] - 
    S2[a4, a1, a2, SP[a5, a6], a3, n] - S2[a4, a1, a6, a3, SP[a2, a5], n] - 
    S2[a4, a1, a6, SP[a2, a3], a5, n] - S2[a4, a1, SP[a2, a6], a3, a5, n] - 
    S2[a4, a1, SP[a2, a6], a5, a3, n] + S2[a3, n]*S2[a4, a6, a1, a2, a5, n] + 
    S2[a4, a6, a1, a2, SP[a3, a5], n] - S2[a4, a6, a1, a3, SP[a2, a5], n] + 
    S2[a3, n]*S2[a4, a6, a1, a5, a2, n] + S2[a4, a6, a1, a5, SP[a2, a3], n] + 
    S2[a4, a6, a1, SP[a3, a5], a2, n] - S2[a4, a6, a3, a1, SP[a2, a5], n] - 
    S2[a4, a6, a3, SP[a1, a5], a2, n] - S2[a4, SP[a1, a6], a2, a3, a5, n] - 
    S2[a4, SP[a1, a6], a2, a5, a3, n] - S2[a4, SP[a1, a6], a3, a2, a5, n] - 
    S2[a4, SP[a1, a6], a3, a5, a2, n] + S2[a4, SP[a3, a6], a1, a2, a5, n] + 
    S2[a4, SP[a3, a6], a1, a5, a2, n] + S2[a3, n]*S2[a6, a1, a4, a5, a2, n] + 
    S2[a6, a1, a4, a5, SP[a2, a3], n] + S2[a6, a1, a4, SP[a3, a5], a2, n] - 
    S2[a4, n]*S2[a6, a1, a5, a2, a3, n] + 
    S2[a3, n]*S2[a6, a1, a5, a2, a4, n] - 
    S2[a4, n]*S2[a6, a1, a5, a3, a2, n] - S2[a6, a1, a5, a3, SP[a2, a4], n] + 
    S2[a3, n]*S2[a6, a1, a5, a4, a2, n] + S2[a6, a1, a5, a4, SP[a2, a3], n] + 
    S2[a6, a1, a5, SP[a2, a3], a4, n] - S2[a6, a1, a5, SP[a2, a4], a3, n] + 
    S2[a6, a1, SP[a3, a4], a5, a2, n] + S2[a6, a1, SP[a3, a5], a2, a4, n] + 
    S2[a6, a1, SP[a3, a5], a4, a2, n] - S2[a6, a1, SP[a4, a5], a2, a3, n] - 
    S2[a6, a1, SP[a4, a5], a3, a2, n] - S2[a1, n]*S2[a6, a3, a4, a5, a2, n] - 
    S2[a6, a3, a4, a5, SP[a1, a2], n] - S2[a6, a3, a4, SP[a1, a5], a2, n] + 
    S2[a4, n]*S2[a6, a3, a5, a1, a2, n] + S2[a6, a3, a5, a1, SP[a2, a4], n] - 
    S2[a1, n]*S2[a6, a3, a5, a2, a4, n] - S2[a6, a3, a5, a2, SP[a1, a4], n] - 
    S2[a1, n]*S2[a6, a3, a5, a4, a2, n] - S2[a6, a3, a5, a4, SP[a1, a2], n] - 
    S2[a6, a3, a5, SP[a1, a2], a4, n] - S2[a6, a3, SP[a1, a4], a5, a2, n] - 
    S2[a6, a3, SP[a1, a5], a2, a4, n] - S2[a6, a3, SP[a1, a5], a4, a2, n] + 
    S2[a6, a3, SP[a4, a5], a1, a2, n] + S2[a3, n]*S2[a6, a4, a1, a5, a2, n] + 
    S2[a6, a4, a1, a5, SP[a2, a3], n] + S2[a6, a4, a1, SP[a3, a5], a2, n] - 
    S2[a1, n]*S2[a6, a4, a3, a5, a2, n] - S2[a6, a4, a3, a5, SP[a1, a2], n] - 
    S2[a6, a4, a3, SP[a1, a5], a2, n] - S2[a6, SP[a1, a4], a3, a5, a2, n] - 
    S2[a6, SP[a1, a4], a5, a2, a3, n] - S2[a6, SP[a1, a4], a5, a3, a2, n] + 
    S2[a6, SP[a3, a4], a1, a5, a2, n] + S2[a6, SP[a3, a4], a5, a1, a2, n] - 
    S2[SP[a1, a6], a3, a4, a5, a2, n] - S2[SP[a1, a6], a3, a5, a2, a4, n] - 
    S2[SP[a1, a6], a3, a5, a4, a2, n] - S2[SP[a1, a6], a4, a3, a5, a2, n] + 
    S2[SP[a3, a6], a1, a4, a5, a2, n] + S2[SP[a3, a6], a1, a5, a2, a4, n] + 
    S2[SP[a3, a6], a1, a5, a4, a2, n] + S2[SP[a3, a6], a4, a1, a5, a2, n] - 
    S2[SP[a4, a6], a1, a5, a2, a3, n] - S2[SP[a4, a6], a1, a5, a3, a2, n] + 
    S2[SP[a4, a6], a3, a5, a1, a2, n] + S2[a6, a3, a4, a5, a2, a1, n] + 
    S2[a6, a3, a5, a2, a1, a4, n] + S2[a6, a3, a5, a2, a4, a1, n] + 
    S2[a6, a3, a5, a4, a2, a1, n] + S2[a6, a4, a3, a5, a2, a1, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a1_, a2_, a5_, a4_, a3_, a6_, n_] :> 
  -(S2[a1, a2, a5, n]*S2[a3, a4, a6, n]) - S2[a1, a2, a5, n]*
     S2[a3, a6, a4, n] - S2[SP[a1, a3], SP[a2, a4], SP[a5, a6], n] - 
    S2[SP[a1, a3], SP[a2, a6], SP[a4, a5], n] + 
    S2[a3, a6, n]*S2[a1, a2, a5, a4, n] - S2[a1, a2, SP[a3, a5], SP[a4, a6], 
     n] + S2[a1, a3, SP[a2, a4], SP[a5, a6], n] + S2[a1, a3, SP[a2, a6], 
     SP[a4, a5], n] + S2[a1, SP[a2, a3], a4, SP[a5, a6], n] - 
    S2[a1, SP[a2, a3], a5, SP[a4, a6], n] + S2[a1, SP[a2, a3], a6, 
     SP[a4, a5], n] + S2[a1, SP[a2, a3], SP[a4, a5], a6, n] + 
    S2[a3, a1, SP[a2, a4], SP[a5, a6], n] + S2[a3, a1, SP[a2, a6], 
     SP[a4, a5], n] + S2[a1, a2, n]*S2[a3, a4, a5, a6, n] + 
    S2[a1, a2, n]*S2[a3, a4, a6, a5, n] - S2[a3, a4, SP[a1, a5], SP[a2, a6], 
     n] - S2[a3, a4, SP[a1, a6], SP[a2, a5], n] + 
    S2[a1, a2, n]*S2[a3, a6, a4, a5, n] - S2[a3, a6, SP[a1, a4], SP[a2, a5], 
     n] + S2[a3, SP[a1, a4], a2, SP[a5, a6], n] - S2[a3, SP[a1, a4], a5, 
     SP[a2, a6], n] - S2[a3, SP[a1, a4], a6, SP[a2, a5], n] - 
    S2[a3, SP[a1, a4], SP[a2, a5], a6, n] + S2[a3, SP[a1, a6], a2, 
     SP[a4, a5], n] - S2[a3, SP[a1, a6], a4, SP[a2, a5], n] + 
    S2[SP[a1, a3], a2, a4, SP[a5, a6], n] - S2[SP[a1, a3], a2, a5, 
     SP[a4, a6], n] + S2[SP[a1, a3], a2, a6, SP[a4, a5], n] + 
    S2[SP[a1, a3], a2, SP[a4, a5], a6, n] + S2[SP[a1, a3], a4, a2, 
     SP[a5, a6], n] - S2[SP[a1, a3], a4, a5, SP[a2, a6], n] - 
    S2[SP[a1, a3], a4, a6, SP[a2, a5], n] - S2[SP[a1, a3], a4, SP[a2, a5], 
     a6, n] + S2[SP[a1, a3], a6, a2, SP[a4, a5], n] - 
    S2[SP[a1, a3], a6, a4, SP[a2, a5], n] - S2[a1, a2, a3, a4, SP[a5, a6], 
     n] + S2[a1, a2, a3, a5, SP[a4, a6], n] - S2[a1, a2, a3, a6, SP[a4, a5], 
     n] - S2[a1, a2, a3, SP[a4, a5], a6, n] + S2[a1, a2, a5, a3, SP[a4, a6], 
     n] + S2[a1, a2, a5, SP[a3, a4], a6, n] - S2[a1, a3, a2, a4, SP[a5, a6], 
     n] + S2[a1, a3, a2, a5, SP[a4, a6], n] - S2[a1, a3, a2, a6, SP[a4, a5], 
     n] - S2[a1, a3, a2, SP[a4, a5], a6, n] - S2[a1, a3, a4, a2, SP[a5, a6], 
     n] + S2[a1, a3, a4, a5, SP[a2, a6], n] + S2[a1, a3, a4, a6, SP[a2, a5], 
     n] + S2[a1, a3, a4, SP[a2, a5], a6, n] - S2[a1, a3, a6, a2, SP[a4, a5], 
     n] + S2[a1, a3, a6, a4, SP[a2, a5], n] + 
    S2[a6, n]*S2[a1, a4, a3, a5, a2, n] + S2[a1, a4, a3, a5, SP[a2, a6], n] + 
    S2[a1, a4, a3, SP[a5, a6], a2, n] + S2[a6, n]*S2[a1, a4, a5, a2, a3, n] - 
    S2[a3, n]*S2[a1, a4, a5, a2, a6, n] + 
    S2[a6, n]*S2[a1, a4, a5, a3, a2, n] + S2[a1, a4, a5, a3, SP[a2, a6], n] - 
    S2[a3, n]*S2[a1, a4, a5, a6, a2, n] - S2[a1, a4, a5, a6, SP[a2, a3], n] - 
    S2[a1, a4, a5, SP[a2, a3], a6, n] + S2[a1, a4, a5, SP[a2, a6], a3, n] - 
    S2[a3, n]*S2[a1, a4, a6, a5, a2, n] - S2[a1, a4, a6, a5, SP[a2, a3], n] - 
    S2[a1, a4, a6, SP[a3, a5], a2, n] - S2[a1, a4, SP[a3, a5], a2, a6, n] - 
    S2[a1, a4, SP[a3, a5], a6, a2, n] + S2[a1, a4, SP[a5, a6], a2, a3, n] + 
    S2[a1, a4, SP[a5, a6], a3, a2, n] - S2[a3, n]*S2[a1, a6, a4, a5, a2, n] - 
    S2[a1, a6, a4, a5, SP[a2, a3], n] - S2[a1, a6, a4, SP[a3, a5], a2, n] - 
    S2[a1, a6, SP[a3, a4], a5, a2, n] - S2[a1, SP[a3, a4], a5, a2, a6, n] - 
    S2[a1, SP[a3, a4], a5, a6, a2, n] - S2[a1, SP[a3, a4], a6, a5, a2, n] - 
    S2[a1, SP[a3, a6], a4, a5, a2, n] + S2[a1, SP[a4, a6], a3, a5, a2, n] + 
    S2[a1, SP[a4, a6], a5, a2, a3, n] + S2[a1, SP[a4, a6], a5, a3, a2, n] - 
    S2[a3, a1, a2, a4, SP[a5, a6], n] + S2[a3, a1, a2, a5, SP[a4, a6], n] - 
    S2[a3, a1, a2, a6, SP[a4, a5], n] - S2[a3, a1, a2, SP[a4, a5], a6, n] - 
    S2[a3, a1, a4, a2, SP[a5, a6], n] + S2[a3, a1, a4, a5, SP[a2, a6], n] + 
    S2[a3, a1, a4, a6, SP[a2, a5], n] + S2[a3, a1, a4, SP[a2, a5], a6, n] - 
    S2[a3, a1, a6, a2, SP[a4, a5], n] + S2[a3, a1, a6, a4, SP[a2, a5], n] - 
    S2[a3, a4, a1, a2, SP[a5, a6], n] - S2[a6, n]*S2[a3, a4, a1, a5, a2, n] + 
    S2[a3, a4, a1, a6, SP[a2, a5], n] + S2[a3, a4, a1, SP[a2, a5], a6, n] - 
    S2[a3, a4, a1, SP[a5, a6], a2, n] - S2[a6, n]*S2[a3, a4, a5, a1, a2, n] + 
    S2[a3, a4, a6, a1, SP[a2, a5], n] + S2[a3, a4, a6, SP[a1, a5], a2, n] + 
    S2[a3, a4, SP[a1, a5], a2, a6, n] + S2[a3, a4, SP[a1, a5], a6, a2, n] - 
    S2[a3, a4, SP[a5, a6], a1, a2, n] - S2[a3, a6, a1, a2, SP[a4, a5], n] + 
    S2[a3, a6, a1, a4, SP[a2, a5], n] + S2[a3, a6, a4, a1, SP[a2, a5], n] + 
    S2[a3, a6, a4, SP[a1, a5], a2, n] + S2[a3, a6, SP[a1, a4], a5, a2, n] + 
    S2[a3, SP[a1, a4], a5, a2, a6, n] + S2[a3, SP[a1, a4], a5, a6, a2, n] + 
    S2[a3, SP[a1, a4], a6, a5, a2, n] + S2[a3, SP[a1, a6], a4, a5, a2, n] - 
    S2[a3, SP[a4, a6], a1, a5, a2, n] - S2[a3, SP[a4, a6], a5, a1, a2, n] - 
    S2[a3, n]*S2[a6, a1, a4, a5, a2, n] - S2[a6, a1, a4, a5, SP[a2, a3], n] - 
    S2[a6, a1, a4, SP[a3, a5], a2, n] - S2[a6, a1, SP[a3, a4], a5, a2, n] + 
    S2[a1, n]*S2[a6, a3, a4, a5, a2, n] + S2[a6, a3, a4, a5, SP[a1, a2], n] + 
    S2[a6, a3, a4, SP[a1, a5], a2, n] + S2[a6, a3, SP[a1, a4], a5, a2, n] + 
    S2[SP[a1, a6], a3, a4, a5, a2, n] + S2[SP[a1, a6], a4, a3, a5, a2, n] + 
    S2[SP[a1, a6], a4, a5, a2, a3, n] + S2[SP[a1, a6], a4, a5, a3, a2, n] - 
    S2[SP[a3, a6], a1, a4, a5, a2, n] - S2[SP[a3, a6], a4, a1, a5, a2, n] - 
    S2[SP[a3, a6], a4, a5, a1, a2, n] - S2[a6, a3, a4, a5, a2, a1, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a1_, a2_, a5_, a4_, a6_, a3_, n_] :> 
  S2[a1, a2, a5, n]*S2[a3, a6, a4, n] + S2[SP[a1, a3], SP[a2, a6], 
     SP[a4, a5], n] - S2[a3, a6, n]*S2[a1, a2, a5, a4, n] + 
    S2[a1, a2, SP[a3, a5], SP[a4, a6], n] - S2[a1, a3, SP[a2, a6], 
     SP[a4, a5], n] + S2[a1, SP[a2, a3], a5, SP[a4, a6], n] - 
    S2[a1, SP[a2, a3], a6, SP[a4, a5], n] - S2[a3, a1, SP[a2, a6], 
     SP[a4, a5], n] - S2[a1, a2, n]*S2[a3, a6, a4, a5, n] + 
    S2[a3, a6, SP[a1, a4], SP[a2, a5], n] - S2[a3, SP[a1, a6], a2, 
     SP[a4, a5], n] + S2[a3, SP[a1, a6], a4, SP[a2, a5], n] + 
    S2[SP[a1, a3], a2, a5, SP[a4, a6], n] - S2[SP[a1, a3], a2, a6, 
     SP[a4, a5], n] - S2[SP[a1, a3], a6, a2, SP[a4, a5], n] + 
    S2[SP[a1, a3], a6, a4, SP[a2, a5], n] - S2[a1, a2, a3, a5, SP[a4, a6], 
     n] + S2[a1, a2, a3, a6, SP[a4, a5], n] - S2[a1, a2, a5, a3, SP[a4, a6], 
     n] + S2[a3, n]*S2[a1, a2, a5, a4, a6, n] + S2[a1, a2, a5, a4, 
     SP[a3, a6], n] - S2[a1, a3, a2, a5, SP[a4, a6], n] + 
    S2[a1, a3, a2, a6, SP[a4, a5], n] + S2[a1, a3, a6, a2, SP[a4, a5], n] - 
    S2[a1, a3, a6, a4, SP[a2, a5], n] + S2[a3, n]*S2[a1, a6, a4, a5, a2, n] + 
    S2[a1, a6, a4, a5, SP[a2, a3], n] + S2[a1, a6, a4, SP[a3, a5], a2, n] + 
    S2[a1, a6, SP[a3, a4], a5, a2, n] + S2[a1, SP[a3, a6], a4, a5, a2, n] - 
    S2[a3, a1, a2, a5, SP[a4, a6], n] + S2[a3, a1, a2, a6, SP[a4, a5], n] + 
    S2[a3, a1, a6, a2, SP[a4, a5], n] - S2[a3, a1, a6, a4, SP[a2, a5], n] + 
    S2[a3, a6, a1, a2, SP[a4, a5], n] - S2[a3, a6, a1, a4, SP[a2, a5], n] - 
    S2[a3, a6, a4, a1, SP[a2, a5], n] - S2[a3, a6, a4, SP[a1, a5], a2, n] - 
    S2[a3, a6, SP[a1, a4], a5, a2, n] - S2[a3, SP[a1, a6], a4, a5, a2, n] + 
    S2[a3, n]*S2[a6, a1, a4, a5, a2, n] + S2[a6, a1, a4, a5, SP[a2, a3], n] + 
    S2[a6, a1, a4, SP[a3, a5], a2, n] + S2[a6, a1, SP[a3, a4], a5, a2, n] - 
    S2[a1, n]*S2[a6, a3, a4, a5, a2, n] - S2[a6, a3, a4, a5, SP[a1, a2], n] - 
    S2[a6, a3, a4, SP[a1, a5], a2, n] - S2[a6, a3, SP[a1, a4], a5, a2, n] + 
    S2[a3, n]*S2[a6, a4, a1, a5, a2, n] + S2[a6, a4, a1, a5, SP[a2, a3], n] + 
    S2[a6, a4, a1, SP[a3, a5], a2, n] - S2[a1, n]*S2[a6, a4, a3, a5, a2, n] - 
    S2[a6, a4, a3, a5, SP[a1, a2], n] - S2[a6, a4, a3, SP[a1, a5], a2, n] + 
    S2[a3, n]*S2[a6, a4, a5, a1, a2, n] + S2[a6, a4, a5, a1, SP[a2, a3], n] - 
    S2[a1, n]*S2[a6, a4, a5, a2, a3, n] - S2[a6, a4, a5, a2, SP[a1, a3], n] - 
    S2[a1, n]*S2[a6, a4, a5, a3, a2, n] - S2[a6, a4, a5, a3, SP[a1, a2], n] - 
    S2[a6, a4, a5, SP[a1, a2], a3, n] - S2[a6, a4, SP[a1, a5], a2, a3, n] - 
    S2[a6, a4, SP[a1, a5], a3, a2, n] + S2[a6, a4, SP[a3, a5], a1, a2, n] - 
    S2[a6, SP[a1, a4], a3, a5, a2, n] - S2[a6, SP[a1, a4], a5, a2, a3, n] - 
    S2[a6, SP[a1, a4], a5, a3, a2, n] + S2[a6, SP[a3, a4], a1, a5, a2, n] + 
    S2[a6, SP[a3, a4], a5, a1, a2, n] - S2[SP[a1, a6], a3, a4, a5, a2, n] - 
    S2[SP[a1, a6], a4, a3, a5, a2, n] - S2[SP[a1, a6], a4, a5, a2, a3, n] - 
    S2[SP[a1, a6], a4, a5, a3, a2, n] + S2[SP[a3, a6], a1, a4, a5, a2, n] + 
    S2[SP[a3, a6], a4, a1, a5, a2, n] + S2[SP[a3, a6], a4, a5, a1, a2, n] + 
    S2[a6, a3, a4, a5, a2, a1, n] + S2[a6, a4, a3, a5, a2, a1, n] + 
    S2[a6, a4, a5, a2, a1, a3, n] + S2[a6, a4, a5, a2, a3, a1, n] + 
    S2[a6, a4, a5, a3, a2, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a1_, a2_, a5_, a6_, a3_, a4_, n_] :> 
  -(S2[a1, a2, a5, n]*S2[a3, a4, a6, n]) - S2[a1, a2, a5, n]*
     S2[a3, a6, a4, n] - S2[SP[a1, a3], SP[a2, a4], SP[a5, a6], n] - 
    S2[SP[a1, a3], SP[a2, a6], SP[a4, a5], n] + S2[a1, a3, SP[a2, a4], 
     SP[a5, a6], n] + S2[a1, a3, SP[a2, a6], SP[a4, a5], n] + 
    S2[a1, SP[a2, a3], a4, SP[a5, a6], n] + S2[a1, SP[a2, a3], a6, 
     SP[a4, a5], n] + S2[a1, SP[a2, a3], SP[a4, a5], a6, n] + 
    S2[a1, SP[a2, a3], SP[a5, a6], a4, n] + S2[a3, a1, SP[a2, a4], 
     SP[a5, a6], n] + S2[a3, a1, SP[a2, a6], SP[a4, a5], n] + 
    S2[a3, SP[a1, a4], a2, SP[a5, a6], n] + S2[a3, SP[a1, a4], SP[a2, a6], 
     a5, n] + S2[a3, SP[a1, a6], a2, SP[a4, a5], n] + 
    S2[a3, SP[a1, a6], SP[a2, a4], a5, n] + S2[a1, a2, n]*
     S2[a5, a6, a3, a4, n] - S2[a5, a6, SP[a1, a3], SP[a2, a4], n] - 
    S2[a5, SP[a1, a6], a3, SP[a2, a4], n] - S2[a5, SP[a1, a6], SP[a2, a3], 
     a4, n] + S2[SP[a1, a3], a2, a4, SP[a5, a6], n] + 
    S2[SP[a1, a3], a2, a6, SP[a4, a5], n] + S2[SP[a1, a3], a2, SP[a4, a5], 
     a6, n] + S2[SP[a1, a3], a2, SP[a5, a6], a4, n] + 
    S2[SP[a1, a3], a4, a2, SP[a5, a6], n] + S2[SP[a1, a3], a4, SP[a2, a6], 
     a5, n] + S2[SP[a1, a3], a6, a2, SP[a4, a5], n] + 
    S2[SP[a1, a3], a6, SP[a2, a4], a5, n] + S2[SP[a1, a3], SP[a2, a4], a5, 
     a6, n] + S2[SP[a1, a3], SP[a2, a4], a6, a5, n] + 
    S2[SP[a1, a3], SP[a2, a6], a4, a5, n] + S2[SP[a1, a3], SP[a2, a6], a5, 
     a4, n] - S2[SP[a1, a5], a6, a3, SP[a2, a4], n] - 
    S2[SP[a1, a5], a6, SP[a2, a3], a4, n] - S2[SP[a1, a5], SP[a2, a6], a3, 
     a4, n] - S2[a1, a2, a3, a4, SP[a5, a6], n] - 
    S2[a1, a2, a3, a6, SP[a4, a5], n] - S2[a1, a2, a3, SP[a4, a5], a6, n] - 
    S2[a1, a2, a3, SP[a5, a6], a4, n] - S2[a6, n]*S2[a1, a2, a4, a3, a5, n] - 
    S2[a1, a2, a4, a3, SP[a5, a6], n] - S2[a6, n]*S2[a1, a2, a4, a5, a3, n] + 
    S2[a3, n]*S2[a1, a2, a4, a5, a6, n] + 
    S2[a3, n]*S2[a1, a2, a4, a6, a5, n] + S2[a1, a2, a4, a6, SP[a3, a5], n] + 
    S2[a1, a2, a4, SP[a3, a5], a6, n] - S2[a1, a2, a4, SP[a5, a6], a3, n] - 
    S2[a6, n]*S2[a1, a2, a5, a4, a3, n] + 
    S2[a3, n]*S2[a1, a2, a5, a4, a6, n] + 
    S2[a3, n]*S2[a1, a2, a5, a6, a4, n] + S2[a1, a2, a5, a6, SP[a3, a4], n] + 
    S2[a1, a2, a5, SP[a3, a4], a6, n] + S2[a1, a2, a5, SP[a3, a6], a4, n] - 
    S2[a1, a2, a5, SP[a4, a6], a3, n] - S2[a5, n]*S2[a1, a2, a6, a3, a4, n] - 
    S2[a1, a2, a6, a3, SP[a4, a5], n] + S2[a3, n]*S2[a1, a2, a6, a4, a5, n] + 
    S2[a1, a2, a6, a4, SP[a3, a5], n] + S2[a3, n]*S2[a1, a2, a6, a5, a4, n] + 
    S2[a1, a2, a6, a5, SP[a3, a4], n] + S2[a1, a2, a6, SP[a3, a4], a5, n] + 
    S2[a1, a2, SP[a3, a4], a5, a6, n] + S2[a1, a2, SP[a3, a4], a6, a5, n] + 
    S2[a1, a2, SP[a3, a6], a4, a5, n] + S2[a1, a2, SP[a3, a6], a5, a4, n] - 
    S2[a1, a2, SP[a4, a6], a3, a5, n] - S2[a1, a2, SP[a4, a6], a5, a3, n] - 
    S2[a1, a2, SP[a5, a6], a3, a4, n] - S2[a1, a2, SP[a5, a6], a4, a3, n] - 
    S2[a1, a3, a2, a4, SP[a5, a6], n] - S2[a1, a3, a2, a6, SP[a4, a5], n] - 
    S2[a1, a3, a2, SP[a4, a5], a6, n] - S2[a1, a3, a2, SP[a5, a6], a4, n] - 
    S2[a1, a3, a4, a2, SP[a5, a6], n] - S2[a1, a3, a4, SP[a2, a6], a5, n] - 
    S2[a1, a3, a6, a2, SP[a4, a5], n] - S2[a1, a3, a6, SP[a2, a4], a5, n] - 
    S2[a1, a3, SP[a2, a4], a5, a6, n] - S2[a1, a3, SP[a2, a4], a6, a5, n] - 
    S2[a1, a3, SP[a2, a6], a4, a5, n] - S2[a1, a3, SP[a2, a6], a5, a4, n] - 
    S2[a6, n]*S2[a1, a4, a2, a3, a5, n] - S2[a1, a4, a2, a3, SP[a5, a6], n] - 
    S2[a6, n]*S2[a1, a4, a2, a5, a3, n] + 
    S2[a3, n]*S2[a1, a4, a2, a5, a6, n] + 
    S2[a3, n]*S2[a1, a4, a2, a6, a5, n] + S2[a1, a4, a2, a6, SP[a3, a5], n] + 
    S2[a1, a4, a2, SP[a3, a5], a6, n] - S2[a1, a4, a2, SP[a5, a6], a3, n] - 
    S2[a6, n]*S2[a1, a4, a3, a2, a5, n] - S2[a1, a4, a3, a2, SP[a5, a6], n] - 
    S2[a1, a4, a3, SP[a2, a6], a5, n] + S2[a3, n]*S2[a1, a4, a6, a2, a5, n] + 
    S2[a1, a4, a6, a2, SP[a3, a5], n] + S2[a1, a4, a6, SP[a2, a3], a5, n] + 
    S2[a1, a4, SP[a2, a3], a5, a6, n] + S2[a1, a4, SP[a2, a3], a6, a5, n] - 
    S2[a1, a4, SP[a2, a6], a3, a5, n] - S2[a1, a4, SP[a2, a6], a5, a3, n] + 
    S2[a1, a5, a6, a3, SP[a2, a4], n] + S2[a1, a5, a6, SP[a2, a3], a4, n] + 
    S2[a1, a5, SP[a2, a6], a3, a4, n] - S2[a5, n]*S2[a1, a6, a2, a3, a4, n] - 
    S2[a1, a6, a2, a3, SP[a4, a5], n] + S2[a3, n]*S2[a1, a6, a2, a4, a5, n] + 
    S2[a1, a6, a2, a4, SP[a3, a5], n] + S2[a3, n]*S2[a1, a6, a2, a5, a4, n] + 
    S2[a1, a6, a2, a5, SP[a3, a4], n] + S2[a1, a6, a2, SP[a3, a4], a5, n] - 
    S2[a5, n]*S2[a1, a6, a3, a2, a4, n] - S2[a1, a6, a3, a2, SP[a4, a5], n] - 
    S2[a5, n]*S2[a1, a6, a3, a4, a2, n] - S2[a1, a6, a3, a4, SP[a2, a5], n] - 
    S2[a1, a6, a3, SP[a2, a5], a4, n] - S2[a1, a6, a3, SP[a4, a5], a2, n] + 
    S2[a3, n]*S2[a1, a6, a4, a2, a5, n] + S2[a1, a6, a4, a2, SP[a3, a5], n] + 
    S2[a1, a6, a4, SP[a2, a3], a5, n] + S2[a1, a6, SP[a2, a3], a4, a5, n] + 
    S2[a1, a6, SP[a2, a3], a5, a4, n] - S2[a1, a6, SP[a2, a5], a3, a4, n] + 
    S2[a1, a6, SP[a3, a4], a2, a5, n] - S2[a1, a6, SP[a3, a5], a2, a4, n] - 
    S2[a1, a6, SP[a3, a5], a4, a2, n] - S2[a1, SP[a2, a6], a4, a3, a5, n] - 
    S2[a1, SP[a2, a6], a4, a5, a3, n] - S2[a1, SP[a2, a6], a5, a4, a3, n] + 
    S2[a1, SP[a3, a4], a2, a5, a6, n] + S2[a1, SP[a3, a4], a2, a6, a5, n] + 
    S2[a1, SP[a3, a4], a6, a2, a5, n] + S2[a1, SP[a3, a6], a2, a4, a5, n] + 
    S2[a1, SP[a3, a6], a2, a5, a4, n] + S2[a1, SP[a3, a6], a4, a2, a5, n] - 
    S2[a1, SP[a4, a6], a2, a3, a5, n] - S2[a1, SP[a4, a6], a2, a5, a3, n] - 
    S2[a1, SP[a4, a6], a3, a2, a5, n] - S2[a1, SP[a5, a6], a2, a3, a4, n] - 
    S2[a1, SP[a5, a6], a3, a2, a4, n] - S2[a1, SP[a5, a6], a3, a4, a2, n] - 
    S2[a3, a1, a2, a4, SP[a5, a6], n] - S2[a3, a1, a2, a6, SP[a4, a5], n] - 
    S2[a3, a1, a2, SP[a4, a5], a6, n] - S2[a3, a1, a2, SP[a5, a6], a4, n] - 
    S2[a3, a1, a4, a2, SP[a5, a6], n] - S2[a3, a1, a4, SP[a2, a6], a5, n] - 
    S2[a3, a1, a6, a2, SP[a4, a5], n] - S2[a3, a1, a6, SP[a2, a4], a5, n] - 
    S2[a3, a1, SP[a2, a4], a5, a6, n] - S2[a3, a1, SP[a2, a4], a6, a5, n] - 
    S2[a3, a1, SP[a2, a6], a4, a5, n] - S2[a3, a1, SP[a2, a6], a5, a4, n] + 
    S2[a6, n]*S2[a3, a4, a1, a2, a5, n] + 
    S2[a5, n]*S2[a3, a6, a1, a2, a4, n] + 
    S2[a5, n]*S2[a3, a6, a1, a4, a2, n] + S2[a3, a6, a1, a4, SP[a2, a5], n] - 
    S2[a3, a6, a1, SP[a2, a4], a5, n] + S2[a3, a6, a1, SP[a2, a5], a4, n] + 
    S2[a3, a6, a1, SP[a4, a5], a2, n] - S2[a3, a6, SP[a1, a4], a2, a5, n] + 
    S2[a3, a6, SP[a1, a5], a2, a4, n] + S2[a3, a6, SP[a1, a5], a4, a2, n] - 
    S2[a3, SP[a1, a4], a2, a5, a6, n] - S2[a3, SP[a1, a4], a2, a6, a5, n] - 
    S2[a3, SP[a1, a4], a6, a2, a5, n] - S2[a3, SP[a1, a6], a2, a4, a5, n] - 
    S2[a3, SP[a1, a6], a2, a5, a4, n] - S2[a3, SP[a1, a6], a4, a2, a5, n] + 
    S2[a3, SP[a4, a6], a1, a2, a5, n] + S2[a3, SP[a5, a6], a1, a2, a4, n] + 
    S2[a3, SP[a5, a6], a1, a4, a2, n] + S2[a5, a1, a6, a3, SP[a2, a4], n] + 
    S2[a5, a1, a6, SP[a2, a3], a4, n] + S2[a5, a1, SP[a2, a6], a3, a4, n] - 
    S2[a3, n]*S2[a5, a6, a1, a2, a4, n] - S2[a5, a6, a1, a2, SP[a3, a4], n] + 
    S2[a5, a6, a1, a3, SP[a2, a4], n] - S2[a3, n]*S2[a5, a6, a1, a4, a2, n] - 
    S2[a5, a6, a1, a4, SP[a2, a3], n] - S2[a5, a6, a1, SP[a3, a4], a2, n] + 
    S2[a5, a6, a3, a1, SP[a2, a4], n] + S2[a5, a6, a3, SP[a1, a4], a2, n] + 
    S2[a5, SP[a1, a6], a2, a3, a4, n] + S2[a5, SP[a1, a6], a3, a2, a4, n] + 
    S2[a5, SP[a1, a6], a3, a4, a2, n] - S2[a5, SP[a3, a6], a1, a2, a4, n] - 
    S2[a5, SP[a3, a6], a1, a4, a2, n] + S2[a5, n]*S2[a6, a1, a2, a4, a3, n] + 
    S2[a6, a1, a2, a4, SP[a3, a5], n] + S2[a6, a1, a2, SP[a4, a5], a3, n] + 
    S2[a5, n]*S2[a6, a1, a4, a2, a3, n] + S2[a6, a1, a4, a2, SP[a3, a5], n] + 
    S2[a5, n]*S2[a6, a1, a4, a3, a2, n] + S2[a6, a1, a4, a3, SP[a2, a5], n] - 
    S2[a3, n]*S2[a6, a1, a4, a5, a2, n] - S2[a6, a1, a4, a5, SP[a2, a3], n] + 
    S2[a6, a1, a4, SP[a2, a5], a3, n] - S2[a3, n]*S2[a6, a1, a5, a2, a4, n] - 
    S2[a6, a1, a5, a2, SP[a3, a4], n] - S2[a3, n]*S2[a6, a1, a5, a4, a2, n] - 
    S2[a6, a1, a5, a4, SP[a2, a3], n] - S2[a6, a1, a5, SP[a2, a3], a4, n] - 
    S2[a6, a1, a5, SP[a3, a4], a2, n] + S2[a6, a1, SP[a2, a5], a4, a3, n] - 
    S2[a6, a1, SP[a3, a4], a5, a2, n] - S2[a6, a1, SP[a3, a5], a2, a4, n] - 
    S2[a6, a1, SP[a3, a5], a4, a2, n] + S2[a6, a1, SP[a4, a5], a2, a3, n] + 
    S2[a6, a1, SP[a4, a5], a3, a2, n] - S2[a5, n]*S2[a6, a3, a4, a1, a2, n] - 
    S2[a6, a3, a4, a1, SP[a2, a5], n] + S2[a1, n]*S2[a6, a3, a4, a5, a2, n] + 
    S2[a6, a3, a4, a5, SP[a1, a2], n] + S2[a1, n]*S2[a6, a3, a5, a2, a4, n] + 
    S2[a6, a3, a5, a2, SP[a1, a4], n] + S2[a1, n]*S2[a6, a3, a5, a4, a2, n] + 
    S2[a6, a3, a5, a4, SP[a1, a2], n] + S2[a6, a3, a5, SP[a1, a2], a4, n] + 
    S2[a6, a3, a5, SP[a1, a4], a2, n] + S2[a6, a3, SP[a1, a4], a5, a2, n] + 
    S2[a6, a3, SP[a1, a5], a2, a4, n] + S2[a6, a3, SP[a1, a5], a4, a2, n] - 
    S2[a6, a3, SP[a4, a5], a1, a2, n] - S2[a3, n]*S2[a6, a5, a1, a2, a4, n] - 
    S2[a6, a5, a1, a2, SP[a3, a4], n] - S2[a3, n]*S2[a6, a5, a1, a4, a2, n] - 
    S2[a6, a5, a1, a4, SP[a2, a3], n] - S2[a6, a5, a1, SP[a2, a3], a4, n] - 
    S2[a6, a5, a1, SP[a3, a4], a2, n] + S2[a1, n]*S2[a6, a5, a2, a3, a4, n] + 
    S2[a6, a5, a2, a3, SP[a1, a4], n] + S2[a6, a5, a2, SP[a1, a3], a4, n] + 
    S2[a1, n]*S2[a6, a5, a3, a2, a4, n] + S2[a6, a5, a3, a2, SP[a1, a4], n] + 
    S2[a1, n]*S2[a6, a5, a3, a4, a2, n] + S2[a6, a5, a3, a4, SP[a1, a2], n] + 
    S2[a6, a5, a3, SP[a1, a2], a4, n] + S2[a6, a5, a3, SP[a1, a4], a2, n] + 
    S2[a6, a5, SP[a1, a2], a3, a4, n] + S2[a6, SP[a1, a5], a2, a3, a4, n] + 
    S2[a6, SP[a1, a5], a2, a4, a3, n] + S2[a6, SP[a1, a5], a3, a2, a4, n] + 
    S2[a6, SP[a1, a5], a3, a4, a2, n] + S2[a6, SP[a1, a5], a4, a2, a3, n] + 
    S2[a6, SP[a1, a5], a4, a3, a2, n] - S2[a6, SP[a3, a5], a1, a2, a4, n] - 
    S2[a6, SP[a3, a5], a1, a4, a2, n] - S2[a6, SP[a3, a5], a4, a1, a2, n] - 
    S2[SP[a1, a6], a2, a4, a3, a5, n] - S2[SP[a1, a6], a2, a4, a5, a3, n] - 
    S2[SP[a1, a6], a2, a5, a4, a3, n] + S2[SP[a1, a6], a3, a4, a5, a2, n] + 
    S2[SP[a1, a6], a3, a5, a2, a4, n] + S2[SP[a1, a6], a3, a5, a4, a2, n] - 
    S2[SP[a1, a6], a4, a2, a3, a5, n] - S2[SP[a1, a6], a4, a2, a5, a3, n] - 
    S2[SP[a1, a6], a4, a3, a2, a5, n] + S2[SP[a1, a6], a5, a2, a3, a4, n] + 
    S2[SP[a1, a6], a5, a3, a2, a4, n] + S2[SP[a1, a6], a5, a3, a4, a2, n] - 
    S2[SP[a3, a6], a1, a4, a5, a2, n] - S2[SP[a3, a6], a1, a5, a2, a4, n] - 
    S2[SP[a3, a6], a1, a5, a4, a2, n] + S2[SP[a3, a6], a4, a1, a2, a5, n] - 
    S2[SP[a3, a6], a5, a1, a2, a4, n] - S2[SP[a3, a6], a5, a1, a4, a2, n] + 
    S2[SP[a5, a6], a1, a2, a4, a3, n] + S2[SP[a5, a6], a1, a4, a2, a3, n] + 
    S2[SP[a5, a6], a1, a4, a3, a2, n] - S2[SP[a5, a6], a3, a4, a1, a2, n] - 
    S2[a6, a3, a4, a5, a2, a1, n] - S2[a6, a3, a5, a2, a1, a4, n] - 
    S2[a6, a3, a5, a2, a4, a1, n] - S2[a6, a3, a5, a4, a2, a1, n] - 
    S2[a6, a5, a2, a1, a3, a4, n] - S2[a6, a5, a2, a3, a1, a4, n] - 
    S2[a6, a5, a2, a3, a4, a1, n] - S2[a6, a5, a3, a2, a1, a4, n] - 
    S2[a6, a5, a3, a2, a4, a1, n] - S2[a6, a5, a3, a4, a2, a1, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a1_, a2_, a5_, a6_, a4_, a3_, n_] :> 
  S2[a1, a2, a5, n]*S2[a3, a4, a6, n] + S2[SP[a1, a3], SP[a2, a4], 
     SP[a5, a6], n] - S2[a1, a3, SP[a2, a4], SP[a5, a6], n] - 
    S2[a1, SP[a2, a3], a4, SP[a5, a6], n] - S2[a1, SP[a2, a3], SP[a4, a5], 
     a6, n] - S2[a3, a1, SP[a2, a4], SP[a5, a6], n] + 
    S2[a1, a2, n]*S2[a3, a6, a4, a5, n] + S2[a1, a2, n]*
     S2[a3, a6, a5, a4, n] - S2[a3, a6, SP[a1, a4], SP[a2, a5], n] - 
    S2[a3, a6, SP[a1, a5], SP[a2, a4], n] - S2[a3, SP[a1, a4], a2, 
     SP[a5, a6], n] - S2[a3, SP[a1, a4], SP[a2, a6], a5, n] - 
    S2[a3, SP[a1, a6], a4, SP[a2, a5], n] - S2[a3, SP[a1, a6], a5, 
     SP[a2, a4], n] - S2[a3, SP[a1, a6], SP[a2, a4], a5, n] - 
    S2[a3, SP[a1, a6], SP[a2, a5], a4, n] - S2[a1, a2, n]*
     S2[a5, a6, a3, a4, n] + S2[a5, a6, SP[a1, a3], SP[a2, a4], n] + 
    S2[a5, SP[a1, a6], a3, SP[a2, a4], n] + S2[a5, SP[a1, a6], SP[a2, a3], 
     a4, n] - S2[SP[a1, a3], a2, a4, SP[a5, a6], n] - 
    S2[SP[a1, a3], a2, SP[a4, a5], a6, n] - S2[SP[a1, a3], a4, a2, 
     SP[a5, a6], n] - S2[SP[a1, a3], a4, SP[a2, a6], a5, n] - 
    S2[SP[a1, a3], a6, a4, SP[a2, a5], n] - S2[SP[a1, a3], a6, a5, 
     SP[a2, a4], n] - S2[SP[a1, a3], a6, SP[a2, a4], a5, n] - 
    S2[SP[a1, a3], a6, SP[a2, a5], a4, n] - S2[SP[a1, a3], SP[a2, a4], a5, 
     a6, n] - S2[SP[a1, a3], SP[a2, a4], a6, a5, n] - 
    S2[SP[a1, a3], SP[a2, a6], a4, a5, n] - S2[SP[a1, a3], SP[a2, a6], a5, 
     a4, n] + S2[SP[a1, a5], a6, a3, SP[a2, a4], n] + 
    S2[SP[a1, a5], a6, SP[a2, a3], a4, n] + S2[SP[a1, a5], SP[a2, a6], a3, 
     a4, n] + S2[a1, a2, a3, a4, SP[a5, a6], n] + S2[a1, a2, a3, SP[a4, a5], 
     a6, n] + S2[a6, n]*S2[a1, a2, a4, a3, a5, n] + 
    S2[a1, a2, a4, a3, SP[a5, a6], n] + S2[a6, n]*S2[a1, a2, a4, a5, a3, n] - 
    S2[a3, n]*S2[a1, a2, a4, a5, a6, n] - 
    S2[a3, n]*S2[a1, a2, a4, a6, a5, n] - S2[a1, a2, a4, a6, SP[a3, a5], n] - 
    S2[a1, a2, a4, SP[a3, a5], a6, n] + S2[a1, a2, a4, SP[a5, a6], a3, n] + 
    S2[a6, n]*S2[a1, a2, a5, a4, a3, n] - 
    S2[a3, n]*S2[a1, a2, a5, a4, a6, n] - S2[a1, a2, a5, SP[a3, a4], a6, n] + 
    S2[a1, a2, a5, SP[a4, a6], a3, n] + S2[a5, n]*S2[a1, a2, a6, a3, a4, n] + 
    S2[a1, a2, a6, a3, SP[a4, a5], n] - S2[a3, n]*S2[a1, a2, a6, a4, a5, n] - 
    S2[a1, a2, a6, a4, SP[a3, a5], n] - S2[a3, n]*S2[a1, a2, a6, a5, a4, n] - 
    S2[a1, a2, a6, a5, SP[a3, a4], n] - S2[a1, a2, a6, SP[a3, a4], a5, n] - 
    S2[a1, a2, SP[a3, a4], a5, a6, n] - S2[a1, a2, SP[a3, a4], a6, a5, n] - 
    S2[a1, a2, SP[a3, a6], a4, a5, n] - S2[a1, a2, SP[a3, a6], a5, a4, n] + 
    S2[a1, a2, SP[a4, a6], a3, a5, n] + S2[a1, a2, SP[a4, a6], a5, a3, n] + 
    S2[a1, a2, SP[a5, a6], a3, a4, n] + S2[a1, a2, SP[a5, a6], a4, a3, n] + 
    S2[a1, a3, a2, a4, SP[a5, a6], n] + S2[a1, a3, a2, SP[a4, a5], a6, n] + 
    S2[a1, a3, a4, a2, SP[a5, a6], n] + S2[a1, a3, a4, SP[a2, a6], a5, n] + 
    S2[a1, a3, a6, a4, SP[a2, a5], n] + S2[a1, a3, a6, a5, SP[a2, a4], n] + 
    S2[a1, a3, a6, SP[a2, a4], a5, n] + S2[a1, a3, a6, SP[a2, a5], a4, n] + 
    S2[a1, a3, SP[a2, a4], a5, a6, n] + S2[a1, a3, SP[a2, a4], a6, a5, n] + 
    S2[a1, a3, SP[a2, a6], a4, a5, n] + S2[a1, a3, SP[a2, a6], a5, a4, n] + 
    S2[a6, n]*S2[a1, a4, a2, a3, a5, n] + S2[a1, a4, a2, a3, SP[a5, a6], n] + 
    S2[a6, n]*S2[a1, a4, a2, a5, a3, n] - 
    S2[a3, n]*S2[a1, a4, a2, a5, a6, n] - 
    S2[a3, n]*S2[a1, a4, a2, a6, a5, n] - S2[a1, a4, a2, a6, SP[a3, a5], n] - 
    S2[a1, a4, a2, SP[a3, a5], a6, n] + S2[a1, a4, a2, SP[a5, a6], a3, n] + 
    S2[a6, n]*S2[a1, a4, a3, a2, a5, n] + S2[a1, a4, a3, a2, SP[a5, a6], n] + 
    S2[a1, a4, a3, SP[a2, a6], a5, n] - S2[a3, n]*S2[a1, a4, a6, a2, a5, n] - 
    S2[a1, a4, a6, a2, SP[a3, a5], n] - S2[a1, a4, a6, SP[a2, a3], a5, n] - 
    S2[a1, a4, SP[a2, a3], a5, a6, n] - S2[a1, a4, SP[a2, a3], a6, a5, n] + 
    S2[a1, a4, SP[a2, a6], a3, a5, n] + S2[a1, a4, SP[a2, a6], a5, a3, n] - 
    S2[a1, a5, a6, a3, SP[a2, a4], n] - S2[a1, a5, a6, SP[a2, a3], a4, n] - 
    S2[a1, a5, SP[a2, a6], a3, a4, n] + S2[a5, n]*S2[a1, a6, a2, a3, a4, n] + 
    S2[a1, a6, a2, a3, SP[a4, a5], n] - S2[a3, n]*S2[a1, a6, a2, a4, a5, n] - 
    S2[a1, a6, a2, a4, SP[a3, a5], n] - S2[a3, n]*S2[a1, a6, a2, a5, a4, n] - 
    S2[a1, a6, a2, a5, SP[a3, a4], n] - S2[a1, a6, a2, SP[a3, a4], a5, n] + 
    S2[a5, n]*S2[a1, a6, a3, a2, a4, n] + S2[a1, a6, a3, a2, SP[a4, a5], n] + 
    S2[a5, n]*S2[a1, a6, a3, a4, a2, n] + S2[a1, a6, a3, a4, SP[a2, a5], n] + 
    S2[a1, a6, a3, SP[a2, a5], a4, n] + S2[a1, a6, a3, SP[a4, a5], a2, n] - 
    S2[a3, n]*S2[a1, a6, a4, a2, a5, n] - S2[a1, a6, a4, a2, SP[a3, a5], n] - 
    S2[a3, n]*S2[a1, a6, a4, a5, a2, n] - S2[a1, a6, a4, a5, SP[a2, a3], n] - 
    S2[a1, a6, a4, SP[a2, a3], a5, n] - S2[a1, a6, a4, SP[a3, a5], a2, n] - 
    S2[a3, n]*S2[a1, a6, a5, a2, a4, n] - S2[a1, a6, a5, a2, SP[a3, a4], n] - 
    S2[a3, n]*S2[a1, a6, a5, a4, a2, n] - S2[a1, a6, a5, a4, SP[a2, a3], n] - 
    S2[a1, a6, a5, SP[a2, a3], a4, n] - S2[a1, a6, a5, SP[a3, a4], a2, n] - 
    S2[a1, a6, SP[a2, a3], a4, a5, n] - S2[a1, a6, SP[a2, a3], a5, a4, n] + 
    S2[a1, a6, SP[a2, a5], a3, a4, n] - S2[a1, a6, SP[a3, a4], a2, a5, n] - 
    S2[a1, a6, SP[a3, a4], a5, a2, n] + S2[a1, SP[a2, a6], a4, a3, a5, n] + 
    S2[a1, SP[a2, a6], a4, a5, a3, n] + S2[a1, SP[a2, a6], a5, a4, a3, n] - 
    S2[a1, SP[a3, a4], a2, a5, a6, n] - S2[a1, SP[a3, a4], a2, a6, a5, n] - 
    S2[a1, SP[a3, a4], a6, a2, a5, n] - S2[a1, SP[a3, a6], a2, a4, a5, n] - 
    S2[a1, SP[a3, a6], a2, a5, a4, n] - S2[a1, SP[a3, a6], a4, a2, a5, n] - 
    S2[a1, SP[a3, a6], a4, a5, a2, n] - S2[a1, SP[a3, a6], a5, a2, a4, n] - 
    S2[a1, SP[a3, a6], a5, a4, a2, n] + S2[a1, SP[a4, a6], a2, a3, a5, n] + 
    S2[a1, SP[a4, a6], a2, a5, a3, n] + S2[a1, SP[a4, a6], a3, a2, a5, n] + 
    S2[a1, SP[a5, a6], a2, a3, a4, n] + S2[a1, SP[a5, a6], a3, a2, a4, n] + 
    S2[a1, SP[a5, a6], a3, a4, a2, n] + S2[a3, a1, a2, a4, SP[a5, a6], n] + 
    S2[a3, a1, a2, SP[a4, a5], a6, n] + S2[a3, a1, a4, a2, SP[a5, a6], n] + 
    S2[a3, a1, a4, SP[a2, a6], a5, n] + S2[a3, a1, a6, a4, SP[a2, a5], n] + 
    S2[a3, a1, a6, a5, SP[a2, a4], n] + S2[a3, a1, a6, SP[a2, a4], a5, n] + 
    S2[a3, a1, a6, SP[a2, a5], a4, n] + S2[a3, a1, SP[a2, a4], a5, a6, n] + 
    S2[a3, a1, SP[a2, a4], a6, a5, n] + S2[a3, a1, SP[a2, a6], a4, a5, n] + 
    S2[a3, a1, SP[a2, a6], a5, a4, n] - S2[a6, n]*S2[a3, a4, a1, a2, a5, n] - 
    S2[a5, n]*S2[a3, a6, a1, a2, a4, n] - S2[a3, a6, a1, a2, SP[a4, a5], n] - 
    S2[a5, n]*S2[a3, a6, a1, a4, a2, n] + S2[a3, a6, a1, a5, SP[a2, a4], n] + 
    S2[a3, a6, a1, SP[a2, a4], a5, n] - S2[a3, a6, a1, SP[a4, a5], a2, n] + 
    S2[a3, a6, a4, a1, SP[a2, a5], n] + S2[a3, a6, a4, SP[a1, a5], a2, n] + 
    S2[a3, a6, a5, a1, SP[a2, a4], n] + S2[a3, a6, a5, SP[a1, a4], a2, n] + 
    S2[a3, a6, SP[a1, a4], a2, a5, n] + S2[a3, a6, SP[a1, a4], a5, a2, n] + 
    S2[a3, SP[a1, a4], a2, a5, a6, n] + S2[a3, SP[a1, a4], a2, a6, a5, n] + 
    S2[a3, SP[a1, a4], a6, a2, a5, n] + S2[a3, SP[a1, a6], a2, a4, a5, n] + 
    S2[a3, SP[a1, a6], a2, a5, a4, n] + S2[a3, SP[a1, a6], a4, a2, a5, n] + 
    S2[a3, SP[a1, a6], a4, a5, a2, n] + S2[a3, SP[a1, a6], a5, a2, a4, n] + 
    S2[a3, SP[a1, a6], a5, a4, a2, n] - S2[a3, SP[a4, a6], a1, a2, a5, n] - 
    S2[a3, SP[a5, a6], a1, a2, a4, n] - S2[a3, SP[a5, a6], a1, a4, a2, n] - 
    S2[a5, a1, a6, a3, SP[a2, a4], n] - S2[a5, a1, a6, SP[a2, a3], a4, n] - 
    S2[a5, a1, SP[a2, a6], a3, a4, n] + S2[a3, n]*S2[a5, a6, a1, a2, a4, n] + 
    S2[a5, a6, a1, a2, SP[a3, a4], n] - S2[a5, a6, a1, a3, SP[a2, a4], n] + 
    S2[a3, n]*S2[a5, a6, a1, a4, a2, n] + S2[a5, a6, a1, a4, SP[a2, a3], n] + 
    S2[a5, a6, a1, SP[a3, a4], a2, n] - S2[a5, a6, a3, a1, SP[a2, a4], n] - 
    S2[a5, a6, a3, SP[a1, a4], a2, n] - S2[a5, SP[a1, a6], a2, a3, a4, n] - 
    S2[a5, SP[a1, a6], a3, a2, a4, n] - S2[a5, SP[a1, a6], a3, a4, a2, n] + 
    S2[a5, SP[a3, a6], a1, a2, a4, n] + S2[a5, SP[a3, a6], a1, a4, a2, n] - 
    S2[a5, n]*S2[a6, a1, a2, a4, a3, n] - S2[a6, a1, a2, a4, SP[a3, a5], n] - 
    S2[a6, a1, a2, SP[a4, a5], a3, n] - S2[a5, n]*S2[a6, a1, a4, a2, a3, n] - 
    S2[a6, a1, a4, a2, SP[a3, a5], n] - S2[a5, n]*S2[a6, a1, a4, a3, a2, n] - 
    S2[a6, a1, a4, a3, SP[a2, a5], n] - S2[a6, a1, a4, SP[a2, a5], a3, n] - 
    S2[a6, a1, a4, SP[a3, a5], a2, n] - S2[a6, a1, SP[a2, a5], a4, a3, n] - 
    S2[a6, a1, SP[a4, a5], a2, a3, n] - S2[a6, a1, SP[a4, a5], a3, a2, n] + 
    S2[a5, n]*S2[a6, a3, a4, a1, a2, n] + S2[a6, a3, a4, a1, SP[a2, a5], n] + 
    S2[a6, a3, a4, SP[a1, a5], a2, n] + S2[a6, a3, SP[a4, a5], a1, a2, n] - 
    S2[a3, n]*S2[a6, a4, a1, a5, a2, n] - S2[a6, a4, a1, a5, SP[a2, a3], n] - 
    S2[a6, a4, a1, SP[a3, a5], a2, n] + S2[a1, n]*S2[a6, a4, a3, a5, a2, n] + 
    S2[a6, a4, a3, a5, SP[a1, a2], n] + S2[a6, a4, a3, SP[a1, a5], a2, n] - 
    S2[a3, n]*S2[a6, a4, a5, a1, a2, n] - S2[a6, a4, a5, a1, SP[a2, a3], n] + 
    S2[a1, n]*S2[a6, a4, a5, a2, a3, n] + S2[a6, a4, a5, a2, SP[a1, a3], n] + 
    S2[a1, n]*S2[a6, a4, a5, a3, a2, n] + S2[a6, a4, a5, a3, SP[a1, a2], n] + 
    S2[a6, a4, a5, SP[a1, a2], a3, n] + S2[a6, a4, SP[a1, a5], a2, a3, n] + 
    S2[a6, a4, SP[a1, a5], a3, a2, n] - S2[a6, a4, SP[a3, a5], a1, a2, n] + 
    S2[a1, n]*S2[a6, a5, a2, a4, a3, n] + S2[a6, a5, a2, a4, SP[a1, a3], n] + 
    S2[a6, a5, a2, SP[a1, a4], a3, n] - S2[a3, n]*S2[a6, a5, a4, a1, a2, n] - 
    S2[a6, a5, a4, a1, SP[a2, a3], n] + S2[a1, n]*S2[a6, a5, a4, a2, a3, n] + 
    S2[a6, a5, a4, a2, SP[a1, a3], n] + S2[a1, n]*S2[a6, a5, a4, a3, a2, n] + 
    S2[a6, a5, a4, a3, SP[a1, a2], n] + S2[a6, a5, a4, SP[a1, a2], a3, n] + 
    S2[a6, a5, SP[a1, a2], a4, a3, n] + S2[a6, a5, SP[a1, a4], a2, a3, n] + 
    S2[a6, a5, SP[a1, a4], a3, a2, n] - S2[a6, a5, SP[a3, a4], a1, a2, n] + 
    S2[a6, SP[a1, a4], a3, a5, a2, n] + S2[a6, SP[a1, a4], a5, a2, a3, n] + 
    S2[a6, SP[a1, a4], a5, a3, a2, n] - S2[a6, SP[a3, a4], a1, a5, a2, n] - 
    S2[a6, SP[a3, a4], a5, a1, a2, n] + S2[SP[a1, a6], a2, a4, a3, a5, n] + 
    S2[SP[a1, a6], a2, a4, a5, a3, n] + S2[SP[a1, a6], a2, a5, a4, a3, n] + 
    S2[SP[a1, a6], a4, a2, a3, a5, n] + S2[SP[a1, a6], a4, a2, a5, a3, n] + 
    S2[SP[a1, a6], a4, a3, a2, a5, n] + S2[SP[a1, a6], a4, a3, a5, a2, n] + 
    S2[SP[a1, a6], a4, a5, a2, a3, n] + S2[SP[a1, a6], a4, a5, a3, a2, n] + 
    S2[SP[a1, a6], a5, a2, a4, a3, n] + S2[SP[a1, a6], a5, a4, a2, a3, n] + 
    S2[SP[a1, a6], a5, a4, a3, a2, n] - S2[SP[a3, a6], a4, a1, a2, a5, n] - 
    S2[SP[a3, a6], a4, a1, a5, a2, n] - S2[SP[a3, a6], a4, a5, a1, a2, n] - 
    S2[SP[a3, a6], a5, a4, a1, a2, n] - S2[SP[a5, a6], a1, a2, a4, a3, n] - 
    S2[SP[a5, a6], a1, a4, a2, a3, n] - S2[SP[a5, a6], a1, a4, a3, a2, n] + 
    S2[SP[a5, a6], a3, a4, a1, a2, n] - S2[a6, a4, a3, a5, a2, a1, n] - 
    S2[a6, a4, a5, a2, a1, a3, n] - S2[a6, a4, a5, a2, a3, a1, n] - 
    S2[a6, a4, a5, a3, a2, a1, n] - S2[a6, a5, a2, a1, a4, a3, n] - 
    S2[a6, a5, a2, a4, a1, a3, n] - S2[a6, a5, a2, a4, a3, a1, n] - 
    S2[a6, a5, a4, a2, a1, a3, n] - S2[a6, a5, a4, a2, a3, a1, n] - 
    S2[a6, a5, a4, a3, a2, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a1_, a2_, a6_, a3_, a4_, a5_, n_] :> 
  -(S2[a1, a2, n]*S2[a3, a4, a5, a6, n]) - S2[a1, a2, n]*
     S2[a3, a4, a6, a5, n] + S2[a3, a4, SP[a1, a5], SP[a2, a6], n] + 
    S2[a3, a4, SP[a1, a6], SP[a2, a5], n] - S2[a1, a2, n]*
     S2[a3, a6, a4, a5, n] + S2[a3, a6, SP[a1, a4], SP[a2, a5], n] + 
    S2[a3, SP[a1, a4], a5, SP[a2, a6], n] + S2[a3, SP[a1, a4], a6, 
     SP[a2, a5], n] + S2[a3, SP[a1, a4], SP[a2, a5], a6, n] + 
    S2[a3, SP[a1, a4], SP[a2, a6], a5, n] + S2[a3, SP[a1, a6], a4, 
     SP[a2, a5], n] + S2[a3, SP[a1, a6], SP[a2, a4], a5, n] + 
    S2[SP[a1, a3], a4, a5, SP[a2, a6], n] + S2[SP[a1, a3], a4, a6, 
     SP[a2, a5], n] + S2[SP[a1, a3], a4, SP[a2, a5], a6, n] + 
    S2[SP[a1, a3], a4, SP[a2, a6], a5, n] + S2[SP[a1, a3], a6, a4, 
     SP[a2, a5], n] + S2[SP[a1, a3], a6, SP[a2, a4], a5, n] + 
    S2[SP[a1, a3], SP[a2, a4], a5, a6, n] + S2[SP[a1, a3], SP[a2, a4], a6, 
     a5, n] + S2[SP[a1, a3], SP[a2, a6], a4, a5, n] - 
    S2[a6, n]*S2[a1, a2, a4, a3, a5, n] - S2[a1, a2, a4, a3, SP[a5, a6], n] - 
    S2[a6, n]*S2[a1, a2, a4, a5, a3, n] + 
    S2[a3, n]*S2[a1, a2, a4, a5, a6, n] + 
    S2[a3, n]*S2[a1, a2, a4, a6, a5, n] + S2[a1, a2, a4, a6, SP[a3, a5], n] + 
    S2[a1, a2, a4, SP[a3, a5], a6, n] - S2[a1, a2, a4, SP[a5, a6], a3, n] + 
    S2[a3, n]*S2[a1, a2, a6, a4, a5, n] + S2[a1, a2, a6, a4, SP[a3, a5], n] + 
    S2[a1, a2, a6, SP[a3, a4], a5, n] + S2[a1, a2, SP[a3, a4], a5, a6, n] + 
    S2[a1, a2, SP[a3, a4], a6, a5, n] + S2[a1, a2, SP[a3, a6], a4, a5, n] - 
    S2[a1, a2, SP[a4, a6], a3, a5, n] - S2[a1, a2, SP[a4, a6], a5, a3, n] - 
    S2[a1, a3, a4, a5, SP[a2, a6], n] - S2[a1, a3, a4, a6, SP[a2, a5], n] - 
    S2[a1, a3, a4, SP[a2, a5], a6, n] - S2[a1, a3, a4, SP[a2, a6], a5, n] - 
    S2[a1, a3, a6, a4, SP[a2, a5], n] - S2[a1, a3, a6, SP[a2, a4], a5, n] - 
    S2[a1, a3, SP[a2, a4], a5, a6, n] - S2[a1, a3, SP[a2, a4], a6, a5, n] - 
    S2[a1, a3, SP[a2, a6], a4, a5, n] - S2[a6, n]*S2[a1, a4, a2, a3, a5, n] - 
    S2[a1, a4, a2, a3, SP[a5, a6], n] - S2[a6, n]*S2[a1, a4, a2, a5, a3, n] + 
    S2[a3, n]*S2[a1, a4, a2, a5, a6, n] + 
    S2[a3, n]*S2[a1, a4, a2, a6, a5, n] + S2[a1, a4, a2, a6, SP[a3, a5], n] + 
    S2[a1, a4, a2, SP[a3, a5], a6, n] - S2[a1, a4, a2, SP[a5, a6], a3, n] - 
    S2[a6, n]*S2[a1, a4, a3, a2, a5, n] - S2[a1, a4, a3, a2, SP[a5, a6], n] - 
    S2[a6, n]*S2[a1, a4, a3, a5, a2, n] - S2[a1, a4, a3, a5, SP[a2, a6], n] - 
    S2[a1, a4, a3, SP[a2, a6], a5, n] - S2[a1, a4, a3, SP[a5, a6], a2, n] - 
    S2[a6, n]*S2[a1, a4, a5, a2, a3, n] + 
    S2[a3, n]*S2[a1, a4, a5, a2, a6, n] - 
    S2[a6, n]*S2[a1, a4, a5, a3, a2, n] - S2[a1, a4, a5, a3, SP[a2, a6], n] + 
    S2[a3, n]*S2[a1, a4, a5, a6, a2, n] + S2[a1, a4, a5, a6, SP[a2, a3], n] + 
    S2[a1, a4, a5, SP[a2, a3], a6, n] - S2[a1, a4, a5, SP[a2, a6], a3, n] + 
    S2[a3, n]*S2[a1, a4, a6, a2, a5, n] + S2[a1, a4, a6, a2, SP[a3, a5], n] + 
    S2[a3, n]*S2[a1, a4, a6, a5, a2, n] + S2[a1, a4, a6, a5, SP[a2, a3], n] + 
    S2[a1, a4, a6, SP[a2, a3], a5, n] + S2[a1, a4, a6, SP[a3, a5], a2, n] + 
    S2[a1, a4, SP[a2, a3], a5, a6, n] + S2[a1, a4, SP[a2, a3], a6, a5, n] - 
    S2[a1, a4, SP[a2, a6], a3, a5, n] - S2[a1, a4, SP[a2, a6], a5, a3, n] + 
    S2[a1, a4, SP[a3, a5], a2, a6, n] + S2[a1, a4, SP[a3, a5], a6, a2, n] - 
    S2[a1, a4, SP[a5, a6], a2, a3, n] - S2[a1, a4, SP[a5, a6], a3, a2, n] + 
    S2[a3, n]*S2[a1, a6, a2, a4, a5, n] + S2[a1, a6, a2, a4, SP[a3, a5], n] + 
    S2[a1, a6, a2, SP[a3, a4], a5, n] + S2[a3, n]*S2[a1, a6, a4, a2, a5, n] + 
    S2[a1, a6, a4, a2, SP[a3, a5], n] + S2[a3, n]*S2[a1, a6, a4, a5, a2, n] + 
    S2[a1, a6, a4, a5, SP[a2, a3], n] + S2[a1, a6, a4, SP[a2, a3], a5, n] + 
    S2[a1, a6, a4, SP[a3, a5], a2, n] + S2[a1, a6, SP[a2, a3], a4, a5, n] + 
    S2[a1, a6, SP[a3, a4], a2, a5, n] + S2[a1, a6, SP[a3, a4], a5, a2, n] - 
    S2[a1, SP[a2, a6], a4, a3, a5, n] - S2[a1, SP[a2, a6], a4, a5, a3, n] + 
    S2[a1, SP[a3, a4], a2, a5, a6, n] + S2[a1, SP[a3, a4], a2, a6, a5, n] + 
    S2[a1, SP[a3, a4], a5, a2, a6, n] + S2[a1, SP[a3, a4], a5, a6, a2, n] + 
    S2[a1, SP[a3, a4], a6, a2, a5, n] + S2[a1, SP[a3, a4], a6, a5, a2, n] + 
    S2[a1, SP[a3, a6], a2, a4, a5, n] + S2[a1, SP[a3, a6], a4, a2, a5, n] + 
    S2[a1, SP[a3, a6], a4, a5, a2, n] - S2[a1, SP[a4, a6], a2, a3, a5, n] - 
    S2[a1, SP[a4, a6], a2, a5, a3, n] - S2[a1, SP[a4, a6], a3, a2, a5, n] - 
    S2[a1, SP[a4, a6], a3, a5, a2, n] - S2[a1, SP[a4, a6], a5, a2, a3, n] - 
    S2[a1, SP[a4, a6], a5, a3, a2, n] - S2[a3, a1, a4, a5, SP[a2, a6], n] - 
    S2[a3, a1, a4, a6, SP[a2, a5], n] - S2[a3, a1, a4, SP[a2, a5], a6, n] - 
    S2[a3, a1, a4, SP[a2, a6], a5, n] - S2[a3, a1, a6, a4, SP[a2, a5], n] - 
    S2[a3, a1, a6, SP[a2, a4], a5, n] - S2[a3, a1, SP[a2, a4], a5, a6, n] - 
    S2[a3, a1, SP[a2, a4], a6, a5, n] - S2[a3, a1, SP[a2, a6], a4, a5, n] + 
    S2[a6, n]*S2[a3, a4, a1, a2, a5, n] + S2[a3, a4, a1, a2, SP[a5, a6], n] + 
    S2[a6, n]*S2[a3, a4, a1, a5, a2, n] - S2[a3, a4, a1, a6, SP[a2, a5], n] - 
    S2[a3, a4, a1, SP[a2, a5], a6, n] + S2[a3, a4, a1, SP[a5, a6], a2, n] + 
    S2[a6, n]*S2[a3, a4, a5, a1, a2, n] - S2[a3, a4, a6, a1, SP[a2, a5], n] - 
    S2[a3, a4, a6, SP[a1, a5], a2, n] - S2[a3, a4, SP[a1, a5], a2, a6, n] - 
    S2[a3, a4, SP[a1, a5], a6, a2, n] + S2[a3, a4, SP[a5, a6], a1, a2, n] - 
    S2[a3, a6, a1, a4, SP[a2, a5], n] - S2[a3, a6, a1, SP[a2, a4], a5, n] - 
    S2[a3, a6, a4, a1, SP[a2, a5], n] - S2[a3, a6, a4, SP[a1, a5], a2, n] - 
    S2[a3, a6, SP[a1, a4], a2, a5, n] - S2[a3, a6, SP[a1, a4], a5, a2, n] - 
    S2[a3, SP[a1, a4], a2, a5, a6, n] - S2[a3, SP[a1, a4], a2, a6, a5, n] - 
    S2[a3, SP[a1, a4], a5, a2, a6, n] - S2[a3, SP[a1, a4], a5, a6, a2, n] - 
    S2[a3, SP[a1, a4], a6, a2, a5, n] - S2[a3, SP[a1, a4], a6, a5, a2, n] - 
    S2[a3, SP[a1, a6], a2, a4, a5, n] - S2[a3, SP[a1, a6], a4, a2, a5, n] - 
    S2[a3, SP[a1, a6], a4, a5, a2, n] + S2[a3, SP[a4, a6], a1, a2, a5, n] + 
    S2[a3, SP[a4, a6], a1, a5, a2, n] + S2[a3, SP[a4, a6], a5, a1, a2, n] + 
    S2[a3, n]*S2[a6, a1, a2, a4, a5, n] + S2[a6, a1, a2, a4, SP[a3, a5], n] + 
    S2[a6, a1, a2, SP[a3, a4], a5, n] + S2[a3, n]*S2[a6, a1, a4, a2, a5, n] + 
    S2[a6, a1, a4, a2, SP[a3, a5], n] + S2[a3, n]*S2[a6, a1, a4, a5, a2, n] + 
    S2[a6, a1, a4, a5, SP[a2, a3], n] + S2[a6, a1, a4, SP[a2, a3], a5, n] + 
    S2[a6, a1, a4, SP[a3, a5], a2, n] + S2[a6, a1, SP[a2, a3], a4, a5, n] + 
    S2[a6, a1, SP[a3, a4], a2, a5, n] + S2[a6, a1, SP[a3, a4], a5, a2, n] - 
    S2[a1, n]*S2[a6, a2, a3, a4, a5, n] - S2[a6, a2, a3, a4, SP[a1, a5], n] - 
    S2[a6, a2, a3, SP[a1, a4], a5, n] - S2[a6, a2, SP[a1, a3], a4, a5, n] - 
    S2[a1, n]*S2[a6, a3, a2, a4, a5, n] - S2[a6, a3, a2, a4, SP[a1, a5], n] - 
    S2[a6, a3, a2, SP[a1, a4], a5, n] - S2[a1, n]*S2[a6, a3, a4, a2, a5, n] - 
    S2[a6, a3, a4, a2, SP[a1, a5], n] - S2[a1, n]*S2[a6, a3, a4, a5, a2, n] - 
    S2[a6, a3, a4, a5, SP[a1, a2], n] - S2[a6, a3, a4, SP[a1, a2], a5, n] - 
    S2[a6, a3, a4, SP[a1, a5], a2, n] - S2[a6, a3, SP[a1, a2], a4, a5, n] - 
    S2[a6, a3, SP[a1, a4], a2, a5, n] - S2[a6, a3, SP[a1, a4], a5, a2, n] - 
    S2[a6, SP[a1, a2], a3, a4, a5, n] - S2[SP[a1, a6], a2, a3, a4, a5, n] - 
    S2[SP[a1, a6], a2, a4, a3, a5, n] - S2[SP[a1, a6], a2, a4, a5, a3, n] - 
    S2[SP[a1, a6], a3, a2, a4, a5, n] - S2[SP[a1, a6], a3, a4, a2, a5, n] - 
    S2[SP[a1, a6], a3, a4, a5, a2, n] - S2[SP[a1, a6], a4, a2, a3, a5, n] - 
    S2[SP[a1, a6], a4, a2, a5, a3, n] - S2[SP[a1, a6], a4, a3, a2, a5, n] - 
    S2[SP[a1, a6], a4, a3, a5, a2, n] - S2[SP[a1, a6], a4, a5, a2, a3, n] - 
    S2[SP[a1, a6], a4, a5, a3, a2, n] + S2[SP[a3, a6], a1, a2, a4, a5, n] + 
    S2[SP[a3, a6], a1, a4, a2, a5, n] + S2[SP[a3, a6], a1, a4, a5, a2, n] + 
    S2[SP[a3, a6], a4, a1, a2, a5, n] + S2[SP[a3, a6], a4, a1, a5, a2, n] + 
    S2[SP[a3, a6], a4, a5, a1, a2, n] + S2[a6, a2, a1, a3, a4, a5, n] + 
    S2[a6, a2, a3, a1, a4, a5, n] + S2[a6, a2, a3, a4, a1, a5, n] + 
    S2[a6, a2, a3, a4, a5, a1, n] + S2[a6, a3, a2, a1, a4, a5, n] + 
    S2[a6, a3, a2, a4, a1, a5, n] + S2[a6, a3, a2, a4, a5, a1, n] + 
    S2[a6, a3, a4, a2, a1, a5, n] + S2[a6, a3, a4, a2, a5, a1, n] + 
    S2[a6, a3, a4, a5, a2, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a1_, a2_, a6_, a3_, a5_, a4_, n_] :> 
  -(S2[a1, a2, n]*S2[a3, a5, a4, a6, n]) - S2[a1, a2, n]*
     S2[a3, a5, a6, a4, n] + S2[a3, a5, SP[a1, a4], SP[a2, a6], n] + 
    S2[a3, a5, SP[a1, a6], SP[a2, a4], n] - S2[a1, a2, n]*
     S2[a3, a6, a5, a4, n] + S2[a3, a6, SP[a1, a5], SP[a2, a4], n] + 
    S2[a3, SP[a1, a5], a4, SP[a2, a6], n] + S2[a3, SP[a1, a5], a6, 
     SP[a2, a4], n] + S2[a3, SP[a1, a5], SP[a2, a4], a6, n] + 
    S2[a3, SP[a1, a5], SP[a2, a6], a4, n] + S2[a3, SP[a1, a6], a5, 
     SP[a2, a4], n] + S2[a3, SP[a1, a6], SP[a2, a5], a4, n] + 
    S2[SP[a1, a3], a5, a4, SP[a2, a6], n] + S2[SP[a1, a3], a5, a6, 
     SP[a2, a4], n] + S2[SP[a1, a3], a5, SP[a2, a4], a6, n] + 
    S2[SP[a1, a3], a5, SP[a2, a6], a4, n] + S2[SP[a1, a3], a6, a5, 
     SP[a2, a4], n] + S2[SP[a1, a3], a6, SP[a2, a5], a4, n] + 
    S2[SP[a1, a3], SP[a2, a5], a4, a6, n] + S2[SP[a1, a3], SP[a2, a5], a6, 
     a4, n] + S2[SP[a1, a3], SP[a2, a6], a5, a4, n] - 
    S2[a6, n]*S2[a1, a2, a5, a3, a4, n] - S2[a1, a2, a5, a3, SP[a4, a6], n] - 
    S2[a6, n]*S2[a1, a2, a5, a4, a3, n] + 
    S2[a3, n]*S2[a1, a2, a5, a4, a6, n] + 
    S2[a3, n]*S2[a1, a2, a5, a6, a4, n] + S2[a1, a2, a5, a6, SP[a3, a4], n] + 
    S2[a1, a2, a5, SP[a3, a4], a6, n] - S2[a1, a2, a5, SP[a4, a6], a3, n] + 
    S2[a3, n]*S2[a1, a2, a6, a5, a4, n] + S2[a1, a2, a6, a5, SP[a3, a4], n] + 
    S2[a1, a2, a6, SP[a3, a5], a4, n] + S2[a1, a2, SP[a3, a5], a4, a6, n] + 
    S2[a1, a2, SP[a3, a5], a6, a4, n] + S2[a1, a2, SP[a3, a6], a5, a4, n] - 
    S2[a1, a2, SP[a5, a6], a3, a4, n] - S2[a1, a2, SP[a5, a6], a4, a3, n] - 
    S2[a1, a3, a5, a4, SP[a2, a6], n] - S2[a1, a3, a5, a6, SP[a2, a4], n] - 
    S2[a1, a3, a5, SP[a2, a4], a6, n] - S2[a1, a3, a5, SP[a2, a6], a4, n] - 
    S2[a1, a3, a6, a5, SP[a2, a4], n] - S2[a1, a3, a6, SP[a2, a5], a4, n] - 
    S2[a1, a3, SP[a2, a5], a4, a6, n] - S2[a1, a3, SP[a2, a5], a6, a4, n] - 
    S2[a1, a3, SP[a2, a6], a5, a4, n] - S2[a6, n]*S2[a1, a5, a2, a3, a4, n] - 
    S2[a1, a5, a2, a3, SP[a4, a6], n] - S2[a6, n]*S2[a1, a5, a2, a4, a3, n] + 
    S2[a3, n]*S2[a1, a5, a2, a4, a6, n] + 
    S2[a3, n]*S2[a1, a5, a2, a6, a4, n] + S2[a1, a5, a2, a6, SP[a3, a4], n] + 
    S2[a1, a5, a2, SP[a3, a4], a6, n] - S2[a1, a5, a2, SP[a4, a6], a3, n] - 
    S2[a6, n]*S2[a1, a5, a3, a2, a4, n] - S2[a1, a5, a3, a2, SP[a4, a6], n] - 
    S2[a6, n]*S2[a1, a5, a3, a4, a2, n] - S2[a1, a5, a3, a4, SP[a2, a6], n] - 
    S2[a1, a5, a3, SP[a2, a6], a4, n] - S2[a1, a5, a3, SP[a4, a6], a2, n] - 
    S2[a6, n]*S2[a1, a5, a4, a2, a3, n] + 
    S2[a3, n]*S2[a1, a5, a4, a2, a6, n] - 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] - S2[a1, a5, a4, a3, SP[a2, a6], n] + 
    S2[a3, n]*S2[a1, a5, a4, a6, a2, n] + S2[a1, a5, a4, a6, SP[a2, a3], n] + 
    S2[a1, a5, a4, SP[a2, a3], a6, n] - S2[a1, a5, a4, SP[a2, a6], a3, n] + 
    S2[a3, n]*S2[a1, a5, a6, a2, a4, n] + S2[a1, a5, a6, a2, SP[a3, a4], n] + 
    S2[a3, n]*S2[a1, a5, a6, a4, a2, n] + S2[a1, a5, a6, a4, SP[a2, a3], n] + 
    S2[a1, a5, a6, SP[a2, a3], a4, n] + S2[a1, a5, a6, SP[a3, a4], a2, n] + 
    S2[a1, a5, SP[a2, a3], a4, a6, n] + S2[a1, a5, SP[a2, a3], a6, a4, n] - 
    S2[a1, a5, SP[a2, a6], a3, a4, n] - S2[a1, a5, SP[a2, a6], a4, a3, n] + 
    S2[a1, a5, SP[a3, a4], a2, a6, n] + S2[a1, a5, SP[a3, a4], a6, a2, n] - 
    S2[a1, a5, SP[a4, a6], a2, a3, n] - S2[a1, a5, SP[a4, a6], a3, a2, n] + 
    S2[a3, n]*S2[a1, a6, a2, a5, a4, n] + S2[a1, a6, a2, a5, SP[a3, a4], n] + 
    S2[a1, a6, a2, SP[a3, a5], a4, n] + S2[a3, n]*S2[a1, a6, a5, a2, a4, n] + 
    S2[a1, a6, a5, a2, SP[a3, a4], n] + S2[a3, n]*S2[a1, a6, a5, a4, a2, n] + 
    S2[a1, a6, a5, a4, SP[a2, a3], n] + S2[a1, a6, a5, SP[a2, a3], a4, n] + 
    S2[a1, a6, a5, SP[a3, a4], a2, n] + S2[a1, a6, SP[a2, a3], a5, a4, n] + 
    S2[a1, a6, SP[a3, a5], a2, a4, n] + S2[a1, a6, SP[a3, a5], a4, a2, n] - 
    S2[a1, SP[a2, a6], a5, a3, a4, n] - S2[a1, SP[a2, a6], a5, a4, a3, n] + 
    S2[a1, SP[a3, a5], a2, a4, a6, n] + S2[a1, SP[a3, a5], a2, a6, a4, n] + 
    S2[a1, SP[a3, a5], a4, a2, a6, n] + S2[a1, SP[a3, a5], a4, a6, a2, n] + 
    S2[a1, SP[a3, a5], a6, a2, a4, n] + S2[a1, SP[a3, a5], a6, a4, a2, n] + 
    S2[a1, SP[a3, a6], a2, a5, a4, n] + S2[a1, SP[a3, a6], a5, a2, a4, n] + 
    S2[a1, SP[a3, a6], a5, a4, a2, n] - S2[a1, SP[a5, a6], a2, a3, a4, n] - 
    S2[a1, SP[a5, a6], a2, a4, a3, n] - S2[a1, SP[a5, a6], a3, a2, a4, n] - 
    S2[a1, SP[a5, a6], a3, a4, a2, n] - S2[a1, SP[a5, a6], a4, a2, a3, n] - 
    S2[a1, SP[a5, a6], a4, a3, a2, n] - S2[a3, a1, a5, a4, SP[a2, a6], n] - 
    S2[a3, a1, a5, a6, SP[a2, a4], n] - S2[a3, a1, a5, SP[a2, a4], a6, n] - 
    S2[a3, a1, a5, SP[a2, a6], a4, n] - S2[a3, a1, a6, a5, SP[a2, a4], n] - 
    S2[a3, a1, a6, SP[a2, a5], a4, n] - S2[a3, a1, SP[a2, a5], a4, a6, n] - 
    S2[a3, a1, SP[a2, a5], a6, a4, n] - S2[a3, a1, SP[a2, a6], a5, a4, n] + 
    S2[a6, n]*S2[a3, a5, a1, a2, a4, n] + S2[a3, a5, a1, a2, SP[a4, a6], n] + 
    S2[a6, n]*S2[a3, a5, a1, a4, a2, n] - S2[a3, a5, a1, a6, SP[a2, a4], n] - 
    S2[a3, a5, a1, SP[a2, a4], a6, n] + S2[a3, a5, a1, SP[a4, a6], a2, n] + 
    S2[a6, n]*S2[a3, a5, a4, a1, a2, n] - S2[a3, a5, a6, a1, SP[a2, a4], n] - 
    S2[a3, a5, a6, SP[a1, a4], a2, n] - S2[a3, a5, SP[a1, a4], a2, a6, n] - 
    S2[a3, a5, SP[a1, a4], a6, a2, n] + S2[a3, a5, SP[a4, a6], a1, a2, n] - 
    S2[a3, a6, a1, a5, SP[a2, a4], n] - S2[a3, a6, a1, SP[a2, a5], a4, n] - 
    S2[a3, a6, a5, a1, SP[a2, a4], n] - S2[a3, a6, a5, SP[a1, a4], a2, n] - 
    S2[a3, a6, SP[a1, a5], a2, a4, n] - S2[a3, a6, SP[a1, a5], a4, a2, n] - 
    S2[a3, SP[a1, a5], a2, a4, a6, n] - S2[a3, SP[a1, a5], a2, a6, a4, n] - 
    S2[a3, SP[a1, a5], a4, a2, a6, n] - S2[a3, SP[a1, a5], a4, a6, a2, n] - 
    S2[a3, SP[a1, a5], a6, a2, a4, n] - S2[a3, SP[a1, a5], a6, a4, a2, n] - 
    S2[a3, SP[a1, a6], a2, a5, a4, n] - S2[a3, SP[a1, a6], a5, a2, a4, n] - 
    S2[a3, SP[a1, a6], a5, a4, a2, n] + S2[a3, SP[a5, a6], a1, a2, a4, n] + 
    S2[a3, SP[a5, a6], a1, a4, a2, n] + S2[a3, SP[a5, a6], a4, a1, a2, n] + 
    S2[a3, n]*S2[a6, a1, a2, a5, a4, n] + S2[a6, a1, a2, a5, SP[a3, a4], n] + 
    S2[a6, a1, a2, SP[a3, a5], a4, n] + S2[a3, n]*S2[a6, a1, a5, a2, a4, n] + 
    S2[a6, a1, a5, a2, SP[a3, a4], n] + S2[a3, n]*S2[a6, a1, a5, a4, a2, n] + 
    S2[a6, a1, a5, a4, SP[a2, a3], n] + S2[a6, a1, a5, SP[a2, a3], a4, n] + 
    S2[a6, a1, a5, SP[a3, a4], a2, n] + S2[a6, a1, SP[a2, a3], a5, a4, n] + 
    S2[a6, a1, SP[a3, a5], a2, a4, n] + S2[a6, a1, SP[a3, a5], a4, a2, n] - 
    S2[a1, n]*S2[a6, a2, a3, a5, a4, n] - S2[a6, a2, a3, a5, SP[a1, a4], n] - 
    S2[a6, a2, a3, SP[a1, a5], a4, n] - S2[a6, a2, SP[a1, a3], a5, a4, n] - 
    S2[a1, n]*S2[a6, a3, a2, a5, a4, n] - S2[a6, a3, a2, a5, SP[a1, a4], n] - 
    S2[a6, a3, a2, SP[a1, a5], a4, n] - S2[a1, n]*S2[a6, a3, a5, a2, a4, n] - 
    S2[a6, a3, a5, a2, SP[a1, a4], n] - S2[a1, n]*S2[a6, a3, a5, a4, a2, n] - 
    S2[a6, a3, a5, a4, SP[a1, a2], n] - S2[a6, a3, a5, SP[a1, a2], a4, n] - 
    S2[a6, a3, a5, SP[a1, a4], a2, n] - S2[a6, a3, SP[a1, a2], a5, a4, n] - 
    S2[a6, a3, SP[a1, a5], a2, a4, n] - S2[a6, a3, SP[a1, a5], a4, a2, n] - 
    S2[a6, SP[a1, a2], a3, a5, a4, n] - S2[SP[a1, a6], a2, a3, a5, a4, n] - 
    S2[SP[a1, a6], a2, a5, a3, a4, n] - S2[SP[a1, a6], a2, a5, a4, a3, n] - 
    S2[SP[a1, a6], a3, a2, a5, a4, n] - S2[SP[a1, a6], a3, a5, a2, a4, n] - 
    S2[SP[a1, a6], a3, a5, a4, a2, n] - S2[SP[a1, a6], a5, a2, a3, a4, n] - 
    S2[SP[a1, a6], a5, a2, a4, a3, n] - S2[SP[a1, a6], a5, a3, a2, a4, n] - 
    S2[SP[a1, a6], a5, a3, a4, a2, n] - S2[SP[a1, a6], a5, a4, a2, a3, n] - 
    S2[SP[a1, a6], a5, a4, a3, a2, n] + S2[SP[a3, a6], a1, a2, a5, a4, n] + 
    S2[SP[a3, a6], a1, a5, a2, a4, n] + S2[SP[a3, a6], a1, a5, a4, a2, n] + 
    S2[SP[a3, a6], a5, a1, a2, a4, n] + S2[SP[a3, a6], a5, a1, a4, a2, n] + 
    S2[SP[a3, a6], a5, a4, a1, a2, n] + S2[a6, a2, a1, a3, a5, a4, n] + 
    S2[a6, a2, a3, a1, a5, a4, n] + S2[a6, a2, a3, a5, a1, a4, n] + 
    S2[a6, a2, a3, a5, a4, a1, n] + S2[a6, a3, a2, a1, a5, a4, n] + 
    S2[a6, a3, a2, a5, a1, a4, n] + S2[a6, a3, a2, a5, a4, a1, n] + 
    S2[a6, a3, a5, a2, a1, a4, n] + S2[a6, a3, a5, a2, a4, a1, n] + 
    S2[a6, a3, a5, a4, a2, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a1_, a2_, a6_, a4_, a3_, a5_, n_] :> 
  S2[a1, a2, n]*S2[a3, a4, a5, a6, n] + S2[a1, a2, n]*S2[a3, a4, a6, a5, n] - 
    S2[a3, a4, SP[a1, a5], SP[a2, a6], n] - S2[a3, a4, SP[a1, a6], 
     SP[a2, a5], n] + S2[a1, a2, n]*S2[a3, a5, a4, a6, n] + 
    S2[a1, a2, n]*S2[a3, a5, a6, a4, n] - S2[a3, a5, SP[a1, a4], SP[a2, a6], 
     n] - S2[a3, a5, SP[a1, a6], SP[a2, a4], n] + 
    S2[a1, a2, n]*S2[a3, a6, a4, a5, n] + S2[a1, a2, n]*
     S2[a3, a6, a5, a4, n] - S2[a3, a6, SP[a1, a4], SP[a2, a5], n] - 
    S2[a3, a6, SP[a1, a5], SP[a2, a4], n] - S2[a3, SP[a1, a4], a5, 
     SP[a2, a6], n] - S2[a3, SP[a1, a4], a6, SP[a2, a5], n] - 
    S2[a3, SP[a1, a4], SP[a2, a5], a6, n] - S2[a3, SP[a1, a4], SP[a2, a6], 
     a5, n] - S2[a3, SP[a1, a5], a4, SP[a2, a6], n] - 
    S2[a3, SP[a1, a5], a6, SP[a2, a4], n] - S2[a3, SP[a1, a5], SP[a2, a4], 
     a6, n] - S2[a3, SP[a1, a5], SP[a2, a6], a4, n] - 
    S2[a3, SP[a1, a6], a4, SP[a2, a5], n] - S2[a3, SP[a1, a6], a5, 
     SP[a2, a4], n] - S2[a3, SP[a1, a6], SP[a2, a4], a5, n] - 
    S2[a3, SP[a1, a6], SP[a2, a5], a4, n] - S2[a1, a2, n]*
     S2[a4, a6, a3, a5, n] + S2[a4, a6, SP[a1, a3], SP[a2, a5], n] + 
    S2[a4, SP[a1, a6], a3, SP[a2, a5], n] + S2[a4, SP[a1, a6], SP[a2, a3], 
     a5, n] - S2[SP[a1, a3], a4, a5, SP[a2, a6], n] - 
    S2[SP[a1, a3], a4, a6, SP[a2, a5], n] - S2[SP[a1, a3], a4, SP[a2, a5], 
     a6, n] - S2[SP[a1, a3], a4, SP[a2, a6], a5, n] - 
    S2[SP[a1, a3], a5, a4, SP[a2, a6], n] - S2[SP[a1, a3], a5, a6, 
     SP[a2, a4], n] - S2[SP[a1, a3], a5, SP[a2, a4], a6, n] - 
    S2[SP[a1, a3], a5, SP[a2, a6], a4, n] - S2[SP[a1, a3], a6, a4, 
     SP[a2, a5], n] - S2[SP[a1, a3], a6, a5, SP[a2, a4], n] - 
    S2[SP[a1, a3], a6, SP[a2, a4], a5, n] - S2[SP[a1, a3], a6, SP[a2, a5], 
     a4, n] - S2[SP[a1, a3], SP[a2, a4], a5, a6, n] - 
    S2[SP[a1, a3], SP[a2, a4], a6, a5, n] - S2[SP[a1, a3], SP[a2, a5], a4, 
     a6, n] - S2[SP[a1, a3], SP[a2, a5], a6, a4, n] - 
    S2[SP[a1, a3], SP[a2, a6], a4, a5, n] - S2[SP[a1, a3], SP[a2, a6], a5, 
     a4, n] + S2[SP[a1, a4], a6, a3, SP[a2, a5], n] + 
    S2[SP[a1, a4], a6, SP[a2, a3], a5, n] + S2[SP[a1, a4], SP[a2, a6], a3, 
     a5, n] + S2[a6, n]*S2[a1, a2, a4, a3, a5, n] + 
    S2[a1, a2, a4, a3, SP[a5, a6], n] + S2[a6, n]*S2[a1, a2, a4, a5, a3, n] - 
    S2[a3, n]*S2[a1, a2, a4, a5, a6, n] - 
    S2[a3, n]*S2[a1, a2, a4, a6, a5, n] - S2[a1, a2, a4, a6, SP[a3, a5], n] - 
    S2[a1, a2, a4, SP[a3, a5], a6, n] + S2[a1, a2, a4, SP[a5, a6], a3, n] + 
    S2[a6, n]*S2[a1, a2, a5, a3, a4, n] + S2[a1, a2, a5, a3, SP[a4, a6], n] + 
    S2[a6, n]*S2[a1, a2, a5, a4, a3, n] - 
    S2[a3, n]*S2[a1, a2, a5, a4, a6, n] - 
    S2[a3, n]*S2[a1, a2, a5, a6, a4, n] - S2[a1, a2, a5, a6, SP[a3, a4], n] - 
    S2[a1, a2, a5, SP[a3, a4], a6, n] + S2[a1, a2, a5, SP[a4, a6], a3, n] + 
    S2[a4, n]*S2[a1, a2, a6, a3, a5, n] + S2[a1, a2, a6, a3, SP[a4, a5], n] - 
    S2[a3, n]*S2[a1, a2, a6, a4, a5, n] - S2[a1, a2, a6, a4, SP[a3, a5], n] - 
    S2[a3, n]*S2[a1, a2, a6, a5, a4, n] - S2[a1, a2, a6, a5, SP[a3, a4], n] - 
    S2[a1, a2, a6, SP[a3, a5], a4, n] - S2[a1, a2, SP[a3, a4], a5, a6, n] - 
    S2[a1, a2, SP[a3, a4], a6, a5, n] - S2[a1, a2, SP[a3, a5], a4, a6, n] - 
    S2[a1, a2, SP[a3, a5], a6, a4, n] - S2[a1, a2, SP[a3, a6], a4, a5, n] - 
    S2[a1, a2, SP[a3, a6], a5, a4, n] + 2*S2[a1, a2, SP[a4, a6], a3, a5, n] + 
    S2[a1, a2, SP[a4, a6], a5, a3, n] + S2[a1, a2, SP[a5, a6], a3, a4, n] + 
    S2[a1, a2, SP[a5, a6], a4, a3, n] + S2[a1, a3, a4, a5, SP[a2, a6], n] + 
    S2[a1, a3, a4, a6, SP[a2, a5], n] + S2[a1, a3, a4, SP[a2, a5], a6, n] + 
    S2[a1, a3, a4, SP[a2, a6], a5, n] + S2[a1, a3, a5, a4, SP[a2, a6], n] + 
    S2[a1, a3, a5, a6, SP[a2, a4], n] + S2[a1, a3, a5, SP[a2, a4], a6, n] + 
    S2[a1, a3, a5, SP[a2, a6], a4, n] + S2[a1, a3, a6, a4, SP[a2, a5], n] + 
    S2[a1, a3, a6, a5, SP[a2, a4], n] + S2[a1, a3, a6, SP[a2, a4], a5, n] + 
    S2[a1, a3, a6, SP[a2, a5], a4, n] + S2[a1, a3, SP[a2, a4], a5, a6, n] + 
    S2[a1, a3, SP[a2, a4], a6, a5, n] + S2[a1, a3, SP[a2, a5], a4, a6, n] + 
    S2[a1, a3, SP[a2, a5], a6, a4, n] + S2[a1, a3, SP[a2, a6], a4, a5, n] + 
    S2[a1, a3, SP[a2, a6], a5, a4, n] + S2[a6, n]*S2[a1, a4, a2, a3, a5, n] + 
    S2[a1, a4, a2, a3, SP[a5, a6], n] + S2[a6, n]*S2[a1, a4, a2, a5, a3, n] - 
    S2[a3, n]*S2[a1, a4, a2, a5, a6, n] - 
    S2[a3, n]*S2[a1, a4, a2, a6, a5, n] - S2[a1, a4, a2, a6, SP[a3, a5], n] - 
    S2[a1, a4, a2, SP[a3, a5], a6, n] + S2[a1, a4, a2, SP[a5, a6], a3, n] + 
    S2[a6, n]*S2[a1, a4, a3, a2, a5, n] + S2[a1, a4, a3, a2, SP[a5, a6], n] + 
    S2[a6, n]*S2[a1, a4, a3, a5, a2, n] + S2[a1, a4, a3, a5, SP[a2, a6], n] + 
    S2[a1, a4, a3, SP[a2, a6], a5, n] + S2[a1, a4, a3, SP[a5, a6], a2, n] + 
    S2[a6, n]*S2[a1, a4, a5, a2, a3, n] - 
    S2[a3, n]*S2[a1, a4, a5, a2, a6, n] + 
    S2[a6, n]*S2[a1, a4, a5, a3, a2, n] + S2[a1, a4, a5, a3, SP[a2, a6], n] - 
    S2[a3, n]*S2[a1, a4, a5, a6, a2, n] - S2[a1, a4, a5, a6, SP[a2, a3], n] - 
    S2[a1, a4, a5, SP[a2, a3], a6, n] + S2[a1, a4, a5, SP[a2, a6], a3, n] - 
    S2[a3, n]*S2[a1, a4, a6, a2, a5, n] - S2[a1, a4, a6, a2, SP[a3, a5], n] - 
    S2[a1, a4, a6, a3, SP[a2, a5], n] - S2[a3, n]*S2[a1, a4, a6, a5, a2, n] - 
    S2[a1, a4, a6, a5, SP[a2, a3], n] - 2*S2[a1, a4, a6, SP[a2, a3], a5, n] - 
    S2[a1, a4, a6, SP[a3, a5], a2, n] - S2[a1, a4, SP[a2, a3], a5, a6, n] - 
    S2[a1, a4, SP[a2, a3], a6, a5, n] + S2[a1, a4, SP[a2, a6], a5, a3, n] - 
    S2[a1, a4, SP[a3, a5], a2, a6, n] - S2[a1, a4, SP[a3, a5], a6, a2, n] + 
    S2[a1, a4, SP[a5, a6], a2, a3, n] + S2[a1, a4, SP[a5, a6], a3, a2, n] + 
    S2[a6, n]*S2[a1, a5, a2, a3, a4, n] + S2[a1, a5, a2, a3, SP[a4, a6], n] + 
    S2[a6, n]*S2[a1, a5, a2, a4, a3, n] - 
    S2[a3, n]*S2[a1, a5, a2, a4, a6, n] - 
    S2[a3, n]*S2[a1, a5, a2, a6, a4, n] - S2[a1, a5, a2, a6, SP[a3, a4], n] - 
    S2[a1, a5, a2, SP[a3, a4], a6, n] + S2[a1, a5, a2, SP[a4, a6], a3, n] + 
    S2[a6, n]*S2[a1, a5, a3, a2, a4, n] + S2[a1, a5, a3, a2, SP[a4, a6], n] + 
    S2[a6, n]*S2[a1, a5, a3, a4, a2, n] + S2[a1, a5, a3, a4, SP[a2, a6], n] + 
    S2[a1, a5, a3, SP[a2, a6], a4, n] + S2[a1, a5, a3, SP[a4, a6], a2, n] + 
    S2[a6, n]*S2[a1, a5, a4, a2, a3, n] - 
    S2[a3, n]*S2[a1, a5, a4, a2, a6, n] + 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] + S2[a1, a5, a4, a3, SP[a2, a6], n] - 
    S2[a3, n]*S2[a1, a5, a4, a6, a2, n] - S2[a1, a5, a4, a6, SP[a2, a3], n] - 
    S2[a1, a5, a4, SP[a2, a3], a6, n] + S2[a1, a5, a4, SP[a2, a6], a3, n] - 
    S2[a3, n]*S2[a1, a5, a6, a2, a4, n] - S2[a1, a5, a6, a2, SP[a3, a4], n] - 
    S2[a3, n]*S2[a1, a5, a6, a4, a2, n] - S2[a1, a5, a6, a4, SP[a2, a3], n] - 
    S2[a1, a5, a6, SP[a2, a3], a4, n] - S2[a1, a5, a6, SP[a3, a4], a2, n] - 
    S2[a1, a5, SP[a2, a3], a4, a6, n] - S2[a1, a5, SP[a2, a3], a6, a4, n] + 
    S2[a1, a5, SP[a2, a6], a3, a4, n] + S2[a1, a5, SP[a2, a6], a4, a3, n] - 
    S2[a1, a5, SP[a3, a4], a2, a6, n] - S2[a1, a5, SP[a3, a4], a6, a2, n] + 
    S2[a1, a5, SP[a4, a6], a2, a3, n] + S2[a1, a5, SP[a4, a6], a3, a2, n] + 
    S2[a4, n]*S2[a1, a6, a2, a3, a5, n] + S2[a1, a6, a2, a3, SP[a4, a5], n] - 
    S2[a3, n]*S2[a1, a6, a2, a4, a5, n] - S2[a1, a6, a2, a4, SP[a3, a5], n] - 
    S2[a3, n]*S2[a1, a6, a2, a5, a4, n] - S2[a1, a6, a2, a5, SP[a3, a4], n] - 
    S2[a1, a6, a2, SP[a3, a5], a4, n] + S2[a4, n]*S2[a1, a6, a3, a2, a5, n] + 
    S2[a1, a6, a3, a2, SP[a4, a5], n] + S2[a4, n]*S2[a1, a6, a3, a5, a2, n] + 
    S2[a1, a6, a3, a5, SP[a2, a4], n] + S2[a1, a6, a3, SP[a2, a4], a5, n] + 
    S2[a1, a6, a3, SP[a4, a5], a2, n] - S2[a3, n]*S2[a1, a6, a4, a2, a5, n] - 
    S2[a1, a6, a4, a2, SP[a3, a5], n] - S2[a3, n]*S2[a1, a6, a4, a5, a2, n] - 
    S2[a1, a6, a4, a5, SP[a2, a3], n] - S2[a1, a6, a4, SP[a2, a3], a5, n] - 
    S2[a1, a6, a4, SP[a3, a5], a2, n] - S2[a3, n]*S2[a1, a6, a5, a2, a4, n] - 
    S2[a1, a6, a5, a2, SP[a3, a4], n] - S2[a3, n]*S2[a1, a6, a5, a4, a2, n] - 
    S2[a1, a6, a5, a4, SP[a2, a3], n] - S2[a1, a6, a5, SP[a2, a3], a4, n] - 
    S2[a1, a6, a5, SP[a3, a4], a2, n] - S2[a1, a6, SP[a2, a3], a4, a5, n] - 
    S2[a1, a6, SP[a2, a3], a5, a4, n] + S2[a1, a6, SP[a2, a4], a3, a5, n] - 
    S2[a1, a6, SP[a3, a5], a2, a4, n] - S2[a1, a6, SP[a3, a5], a4, a2, n] + 
    S2[a1, SP[a2, a6], a4, a3, a5, n] + S2[a1, SP[a2, a6], a4, a5, a3, n] + 
    S2[a1, SP[a2, a6], a5, a3, a4, n] + S2[a1, SP[a2, a6], a5, a4, a3, n] - 
    S2[a1, SP[a3, a4], a2, a5, a6, n] - S2[a1, SP[a3, a4], a2, a6, a5, n] - 
    S2[a1, SP[a3, a4], a5, a2, a6, n] - S2[a1, SP[a3, a4], a5, a6, a2, n] - 
    S2[a1, SP[a3, a4], a6, a2, a5, n] - S2[a1, SP[a3, a4], a6, a5, a2, n] - 
    S2[a1, SP[a3, a5], a2, a4, a6, n] - S2[a1, SP[a3, a5], a2, a6, a4, n] - 
    S2[a1, SP[a3, a5], a4, a2, a6, n] - S2[a1, SP[a3, a5], a4, a6, a2, n] - 
    S2[a1, SP[a3, a5], a6, a2, a4, n] - S2[a1, SP[a3, a5], a6, a4, a2, n] - 
    S2[a1, SP[a3, a6], a2, a4, a5, n] - S2[a1, SP[a3, a6], a2, a5, a4, n] - 
    S2[a1, SP[a3, a6], a4, a2, a5, n] - S2[a1, SP[a3, a6], a4, a5, a2, n] - 
    S2[a1, SP[a3, a6], a5, a2, a4, n] - S2[a1, SP[a3, a6], a5, a4, a2, n] + 
    2*S2[a1, SP[a4, a6], a2, a3, a5, n] + S2[a1, SP[a4, a6], a2, a5, a3, n] + 
    2*S2[a1, SP[a4, a6], a3, a2, a5, n] + 
    2*S2[a1, SP[a4, a6], a3, a5, a2, n] + S2[a1, SP[a4, a6], a5, a2, a3, n] + 
    S2[a1, SP[a4, a6], a5, a3, a2, n] + S2[a1, SP[a5, a6], a2, a3, a4, n] + 
    S2[a1, SP[a5, a6], a2, a4, a3, n] + S2[a1, SP[a5, a6], a3, a2, a4, n] + 
    S2[a1, SP[a5, a6], a3, a4, a2, n] + S2[a1, SP[a5, a6], a4, a2, a3, n] + 
    S2[a1, SP[a5, a6], a4, a3, a2, n] + S2[a3, a1, a4, a5, SP[a2, a6], n] + 
    S2[a3, a1, a4, a6, SP[a2, a5], n] + S2[a3, a1, a4, SP[a2, a5], a6, n] + 
    S2[a3, a1, a4, SP[a2, a6], a5, n] + S2[a3, a1, a5, a4, SP[a2, a6], n] + 
    S2[a3, a1, a5, a6, SP[a2, a4], n] + S2[a3, a1, a5, SP[a2, a4], a6, n] + 
    S2[a3, a1, a5, SP[a2, a6], a4, n] + S2[a3, a1, a6, a4, SP[a2, a5], n] + 
    S2[a3, a1, a6, a5, SP[a2, a4], n] + S2[a3, a1, a6, SP[a2, a4], a5, n] + 
    S2[a3, a1, a6, SP[a2, a5], a4, n] + S2[a3, a1, SP[a2, a4], a5, a6, n] + 
    S2[a3, a1, SP[a2, a4], a6, a5, n] + S2[a3, a1, SP[a2, a5], a4, a6, n] + 
    S2[a3, a1, SP[a2, a5], a6, a4, n] + S2[a3, a1, SP[a2, a6], a4, a5, n] + 
    S2[a3, a1, SP[a2, a6], a5, a4, n] - S2[a6, n]*S2[a3, a4, a1, a2, a5, n] - 
    S2[a3, a4, a1, a2, SP[a5, a6], n] - S2[a6, n]*S2[a3, a4, a1, a5, a2, n] + 
    S2[a3, a4, a1, a6, SP[a2, a5], n] + S2[a3, a4, a1, SP[a2, a5], a6, n] - 
    S2[a3, a4, a1, SP[a5, a6], a2, n] - S2[a6, n]*S2[a3, a4, a5, a1, a2, n] + 
    S2[a3, a4, a6, a1, SP[a2, a5], n] + S2[a3, a4, a6, SP[a1, a5], a2, n] + 
    S2[a3, a4, SP[a1, a5], a2, a6, n] + S2[a3, a4, SP[a1, a5], a6, a2, n] - 
    S2[a3, a4, SP[a5, a6], a1, a2, n] - S2[a6, n]*S2[a3, a5, a1, a2, a4, n] - 
    S2[a3, a5, a1, a2, SP[a4, a6], n] - S2[a6, n]*S2[a3, a5, a1, a4, a2, n] + 
    S2[a3, a5, a1, a6, SP[a2, a4], n] + S2[a3, a5, a1, SP[a2, a4], a6, n] - 
    S2[a3, a5, a1, SP[a4, a6], a2, n] - S2[a6, n]*S2[a3, a5, a4, a1, a2, n] + 
    S2[a3, a5, a6, a1, SP[a2, a4], n] + S2[a3, a5, a6, SP[a1, a4], a2, n] + 
    S2[a3, a5, SP[a1, a4], a2, a6, n] + S2[a3, a5, SP[a1, a4], a6, a2, n] - 
    S2[a3, a5, SP[a4, a6], a1, a2, n] - S2[a4, n]*S2[a3, a6, a1, a2, a5, n] - 
    S2[a3, a6, a1, a2, SP[a4, a5], n] + S2[a3, a6, a1, a4, SP[a2, a5], n] - 
    S2[a4, n]*S2[a3, a6, a1, a5, a2, n] + S2[a3, a6, a1, SP[a2, a5], a4, n] - 
    S2[a3, a6, a1, SP[a4, a5], a2, n] + S2[a3, a6, a4, a1, SP[a2, a5], n] + 
    S2[a3, a6, a4, SP[a1, a5], a2, n] + S2[a3, a6, a5, a1, SP[a2, a4], n] + 
    S2[a3, a6, a5, SP[a1, a4], a2, n] + S2[a3, a6, SP[a1, a5], a2, a4, n] + 
    S2[a3, a6, SP[a1, a5], a4, a2, n] + S2[a3, SP[a1, a4], a2, a5, a6, n] + 
    S2[a3, SP[a1, a4], a2, a6, a5, n] + S2[a3, SP[a1, a4], a5, a2, a6, n] + 
    S2[a3, SP[a1, a4], a5, a6, a2, n] + S2[a3, SP[a1, a4], a6, a2, a5, n] + 
    S2[a3, SP[a1, a4], a6, a5, a2, n] + S2[a3, SP[a1, a5], a2, a4, a6, n] + 
    S2[a3, SP[a1, a5], a2, a6, a4, n] + S2[a3, SP[a1, a5], a4, a2, a6, n] + 
    S2[a3, SP[a1, a5], a4, a6, a2, n] + S2[a3, SP[a1, a5], a6, a2, a4, n] + 
    S2[a3, SP[a1, a5], a6, a4, a2, n] + S2[a3, SP[a1, a6], a2, a4, a5, n] + 
    S2[a3, SP[a1, a6], a2, a5, a4, n] + S2[a3, SP[a1, a6], a4, a2, a5, n] + 
    S2[a3, SP[a1, a6], a4, a5, a2, n] + S2[a3, SP[a1, a6], a5, a2, a4, n] + 
    S2[a3, SP[a1, a6], a5, a4, a2, n] - 2*S2[a3, SP[a4, a6], a1, a2, a5, n] - 
    2*S2[a3, SP[a4, a6], a1, a5, a2, n] - S2[a3, SP[a4, a6], a5, a1, a2, n] - 
    S2[a3, SP[a5, a6], a1, a2, a4, n] - S2[a3, SP[a5, a6], a1, a4, a2, n] - 
    S2[a3, SP[a5, a6], a4, a1, a2, n] - S2[a4, a1, a6, a3, SP[a2, a5], n] - 
    S2[a4, a1, a6, SP[a2, a3], a5, n] - S2[a4, a1, SP[a2, a6], a3, a5, n] + 
    S2[a3, n]*S2[a4, a6, a1, a2, a5, n] + S2[a4, a6, a1, a2, SP[a3, a5], n] - 
    S2[a4, a6, a1, a3, SP[a2, a5], n] + S2[a3, n]*S2[a4, a6, a1, a5, a2, n] + 
    S2[a4, a6, a1, a5, SP[a2, a3], n] + S2[a4, a6, a1, SP[a3, a5], a2, n] - 
    S2[a4, a6, a3, a1, SP[a2, a5], n] - S2[a4, a6, a3, SP[a1, a5], a2, n] - 
    S2[a4, SP[a1, a6], a2, a3, a5, n] - S2[a4, SP[a1, a6], a3, a2, a5, n] - 
    S2[a4, SP[a1, a6], a3, a5, a2, n] + S2[a4, SP[a3, a6], a1, a2, a5, n] + 
    S2[a4, SP[a3, a6], a1, a5, a2, n] - S2[a4, n]*S2[a6, a1, a2, a5, a3, n] - 
    S2[a6, a1, a2, a5, SP[a3, a4], n] - S2[a6, a1, a2, SP[a4, a5], a3, n] - 
    S2[a4, n]*S2[a6, a1, a5, a2, a3, n] - S2[a6, a1, a5, a2, SP[a3, a4], n] - 
    S2[a4, n]*S2[a6, a1, a5, a3, a2, n] - S2[a6, a1, a5, a3, SP[a2, a4], n] - 
    S2[a6, a1, a5, SP[a2, a4], a3, n] - S2[a6, a1, a5, SP[a3, a4], a2, n] - 
    S2[a6, a1, SP[a2, a4], a5, a3, n] - S2[a6, a1, SP[a4, a5], a2, a3, n] - 
    S2[a6, a1, SP[a4, a5], a3, a2, n] - S2[a1, n]*S2[a6, a2, a4, a3, a5, n] - 
    S2[a6, a2, a4, a3, SP[a1, a5], n] - S2[a6, a2, a4, SP[a1, a3], a5, n] - 
    S2[a6, a2, SP[a1, a4], a3, a5, n] + S2[a4, n]*S2[a6, a3, a5, a1, a2, n] + 
    S2[a6, a3, a5, a1, SP[a2, a4], n] + S2[a6, a3, a5, SP[a1, a4], a2, n] + 
    S2[a6, a3, SP[a4, a5], a1, a2, n] + S2[a3, n]*S2[a6, a4, a1, a2, a5, n] + 
    S2[a6, a4, a1, a2, SP[a3, a5], n] + S2[a3, n]*S2[a6, a4, a1, a5, a2, n] + 
    S2[a6, a4, a1, a5, SP[a2, a3], n] + S2[a6, a4, a1, SP[a2, a3], a5, n] + 
    S2[a6, a4, a1, SP[a3, a5], a2, n] - S2[a1, n]*S2[a6, a4, a2, a3, a5, n] - 
    S2[a6, a4, a2, a3, SP[a1, a5], n] - S2[a6, a4, a2, SP[a1, a3], a5, n] - 
    S2[a1, n]*S2[a6, a4, a3, a2, a5, n] - S2[a6, a4, a3, a2, SP[a1, a5], n] - 
    S2[a1, n]*S2[a6, a4, a3, a5, a2, n] - S2[a6, a4, a3, a5, SP[a1, a2], n] - 
    S2[a6, a4, a3, SP[a1, a2], a5, n] - S2[a6, a4, a3, SP[a1, a5], a2, n] - 
    S2[a6, a4, SP[a1, a2], a3, a5, n] - S2[a6, SP[a1, a2], a4, a3, a5, n] - 
    S2[a6, SP[a1, a4], a2, a3, a5, n] - S2[a6, SP[a1, a4], a2, a5, a3, n] - 
    S2[a6, SP[a1, a4], a3, a2, a5, n] - S2[a6, SP[a1, a4], a3, a5, a2, n] - 
    S2[a6, SP[a1, a4], a5, a2, a3, n] - S2[a6, SP[a1, a4], a5, a3, a2, n] + 
    S2[a6, SP[a3, a4], a1, a2, a5, n] + S2[a6, SP[a3, a4], a1, a5, a2, n] + 
    S2[a6, SP[a3, a4], a5, a1, a2, n] + S2[SP[a1, a6], a2, a4, a5, a3, n] + 
    S2[SP[a1, a6], a2, a5, a3, a4, n] + S2[SP[a1, a6], a2, a5, a4, a3, n] + 
    S2[SP[a1, a6], a4, a2, a5, a3, n] + S2[SP[a1, a6], a4, a5, a2, a3, n] + 
    S2[SP[a1, a6], a4, a5, a3, a2, n] + S2[SP[a1, a6], a5, a2, a3, a4, n] + 
    S2[SP[a1, a6], a5, a2, a4, a3, n] + S2[SP[a1, a6], a5, a3, a2, a4, n] + 
    S2[SP[a1, a6], a5, a3, a4, a2, n] + S2[SP[a1, a6], a5, a4, a2, a3, n] + 
    S2[SP[a1, a6], a5, a4, a3, a2, n] - S2[SP[a3, a6], a4, a5, a1, a2, n] - 
    S2[SP[a3, a6], a5, a1, a2, a4, n] - S2[SP[a3, a6], a5, a1, a4, a2, n] - 
    S2[SP[a3, a6], a5, a4, a1, a2, n] - S2[SP[a4, a6], a1, a2, a5, a3, n] - 
    S2[SP[a4, a6], a1, a5, a2, a3, n] - S2[SP[a4, a6], a1, a5, a3, a2, n] + 
    S2[SP[a4, a6], a3, a5, a1, a2, n] + S2[a6, a2, a1, a4, a3, a5, n] + 
    S2[a6, a2, a4, a1, a3, a5, n] + S2[a6, a2, a4, a3, a1, a5, n] + 
    S2[a6, a2, a4, a3, a5, a1, n] + S2[a6, a4, a2, a1, a3, a5, n] + 
    S2[a6, a4, a2, a3, a1, a5, n] + S2[a6, a4, a2, a3, a5, a1, n] + 
    S2[a6, a4, a3, a2, a1, a5, n] + S2[a6, a4, a3, a2, a5, a1, n] + 
    S2[a6, a4, a3, a5, a2, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a1_, a2_, a6_, a4_, a5_, a3_, n_] :> 
  -(S2[a1, a2, n]*S2[a3, a5, a4, a6, n]) - S2[a1, a2, n]*
     S2[a3, a5, a6, a4, n] + S2[a3, a5, SP[a1, a4], SP[a2, a6], n] + 
    S2[a3, a5, SP[a1, a6], SP[a2, a4], n] - S2[a1, a2, n]*
     S2[a3, a6, a4, a5, n] - S2[a1, a2, n]*S2[a3, a6, a5, a4, n] + 
    S2[a3, a6, SP[a1, a4], SP[a2, a5], n] + S2[a3, a6, SP[a1, a5], 
     SP[a2, a4], n] + S2[a3, SP[a1, a5], a4, SP[a2, a6], n] + 
    S2[a3, SP[a1, a5], a6, SP[a2, a4], n] + S2[a3, SP[a1, a5], SP[a2, a4], 
     a6, n] + S2[a3, SP[a1, a5], SP[a2, a6], a4, n] + 
    S2[a3, SP[a1, a6], a4, SP[a2, a5], n] + S2[a3, SP[a1, a6], a5, 
     SP[a2, a4], n] + S2[a3, SP[a1, a6], SP[a2, a4], a5, n] + 
    S2[a3, SP[a1, a6], SP[a2, a5], a4, n] + S2[a1, a2, n]*
     S2[a4, a6, a3, a5, n] - S2[a4, a6, SP[a1, a3], SP[a2, a5], n] - 
    S2[a4, SP[a1, a6], a3, SP[a2, a5], n] - S2[a4, SP[a1, a6], SP[a2, a3], 
     a5, n] + S2[SP[a1, a3], a5, a4, SP[a2, a6], n] + 
    S2[SP[a1, a3], a5, a6, SP[a2, a4], n] + S2[SP[a1, a3], a5, SP[a2, a4], 
     a6, n] + S2[SP[a1, a3], a5, SP[a2, a6], a4, n] + 
    S2[SP[a1, a3], a6, a4, SP[a2, a5], n] + S2[SP[a1, a3], a6, a5, 
     SP[a2, a4], n] + S2[SP[a1, a3], a6, SP[a2, a4], a5, n] + 
    S2[SP[a1, a3], a6, SP[a2, a5], a4, n] + S2[SP[a1, a3], SP[a2, a5], a4, 
     a6, n] + S2[SP[a1, a3], SP[a2, a5], a6, a4, n] + 
    S2[SP[a1, a3], SP[a2, a6], a4, a5, n] + S2[SP[a1, a3], SP[a2, a6], a5, 
     a4, n] - S2[SP[a1, a4], a6, a3, SP[a2, a5], n] - 
    S2[SP[a1, a4], a6, SP[a2, a3], a5, n] - S2[SP[a1, a4], SP[a2, a6], a3, 
     a5, n] - S2[a6, n]*S2[a1, a2, a5, a3, a4, n] - 
    S2[a1, a2, a5, a3, SP[a4, a6], n] - S2[a6, n]*S2[a1, a2, a5, a4, a3, n] + 
    S2[a3, n]*S2[a1, a2, a5, a4, a6, n] + 
    S2[a3, n]*S2[a1, a2, a5, a6, a4, n] + S2[a1, a2, a5, a6, SP[a3, a4], n] + 
    S2[a1, a2, a5, SP[a3, a4], a6, n] - S2[a1, a2, a5, SP[a4, a6], a3, n] - 
    S2[a4, n]*S2[a1, a2, a6, a3, a5, n] - S2[a1, a2, a6, a3, SP[a4, a5], n] + 
    S2[a3, n]*S2[a1, a2, a6, a4, a5, n] + S2[a1, a2, a6, a4, SP[a3, a5], n] + 
    S2[a3, n]*S2[a1, a2, a6, a5, a4, n] + S2[a1, a2, a6, a5, SP[a3, a4], n] + 
    S2[a1, a2, a6, SP[a3, a5], a4, n] + S2[a1, a2, SP[a3, a5], a4, a6, n] + 
    S2[a1, a2, SP[a3, a5], a6, a4, n] + S2[a1, a2, SP[a3, a6], a4, a5, n] + 
    S2[a1, a2, SP[a3, a6], a5, a4, n] - S2[a1, a2, SP[a4, a6], a3, a5, n] - 
    S2[a1, a2, SP[a5, a6], a3, a4, n] - S2[a1, a2, SP[a5, a6], a4, a3, n] - 
    S2[a1, a3, a5, a4, SP[a2, a6], n] - S2[a1, a3, a5, a6, SP[a2, a4], n] - 
    S2[a1, a3, a5, SP[a2, a4], a6, n] - S2[a1, a3, a5, SP[a2, a6], a4, n] - 
    S2[a1, a3, a6, a4, SP[a2, a5], n] - S2[a1, a3, a6, a5, SP[a2, a4], n] - 
    S2[a1, a3, a6, SP[a2, a4], a5, n] - S2[a1, a3, a6, SP[a2, a5], a4, n] - 
    S2[a1, a3, SP[a2, a5], a4, a6, n] - S2[a1, a3, SP[a2, a5], a6, a4, n] - 
    S2[a1, a3, SP[a2, a6], a4, a5, n] - S2[a1, a3, SP[a2, a6], a5, a4, n] + 
    S2[a1, a4, a6, a3, SP[a2, a5], n] + S2[a1, a4, a6, SP[a2, a3], a5, n] + 
    S2[a1, a4, SP[a2, a6], a3, a5, n] - S2[a6, n]*S2[a1, a5, a2, a3, a4, n] - 
    S2[a1, a5, a2, a3, SP[a4, a6], n] - S2[a6, n]*S2[a1, a5, a2, a4, a3, n] + 
    S2[a3, n]*S2[a1, a5, a2, a4, a6, n] + 
    S2[a3, n]*S2[a1, a5, a2, a6, a4, n] + S2[a1, a5, a2, a6, SP[a3, a4], n] + 
    S2[a1, a5, a2, SP[a3, a4], a6, n] - S2[a1, a5, a2, SP[a4, a6], a3, n] - 
    S2[a6, n]*S2[a1, a5, a3, a2, a4, n] - S2[a1, a5, a3, a2, SP[a4, a6], n] - 
    S2[a6, n]*S2[a1, a5, a3, a4, a2, n] - S2[a1, a5, a3, a4, SP[a2, a6], n] - 
    S2[a1, a5, a3, SP[a2, a6], a4, n] - S2[a1, a5, a3, SP[a4, a6], a2, n] - 
    S2[a6, n]*S2[a1, a5, a4, a2, a3, n] + 
    S2[a3, n]*S2[a1, a5, a4, a2, a6, n] - 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] - S2[a1, a5, a4, a3, SP[a2, a6], n] + 
    S2[a3, n]*S2[a1, a5, a4, a6, a2, n] + S2[a1, a5, a4, a6, SP[a2, a3], n] + 
    S2[a1, a5, a4, SP[a2, a3], a6, n] - S2[a1, a5, a4, SP[a2, a6], a3, n] + 
    S2[a3, n]*S2[a1, a5, a6, a2, a4, n] + S2[a1, a5, a6, a2, SP[a3, a4], n] + 
    S2[a3, n]*S2[a1, a5, a6, a4, a2, n] + S2[a1, a5, a6, a4, SP[a2, a3], n] + 
    S2[a1, a5, a6, SP[a2, a3], a4, n] + S2[a1, a5, a6, SP[a3, a4], a2, n] + 
    S2[a1, a5, SP[a2, a3], a4, a6, n] + S2[a1, a5, SP[a2, a3], a6, a4, n] - 
    S2[a1, a5, SP[a2, a6], a3, a4, n] - S2[a1, a5, SP[a2, a6], a4, a3, n] + 
    S2[a1, a5, SP[a3, a4], a2, a6, n] + S2[a1, a5, SP[a3, a4], a6, a2, n] - 
    S2[a1, a5, SP[a4, a6], a2, a3, n] - S2[a1, a5, SP[a4, a6], a3, a2, n] - 
    S2[a4, n]*S2[a1, a6, a2, a3, a5, n] - S2[a1, a6, a2, a3, SP[a4, a5], n] + 
    S2[a3, n]*S2[a1, a6, a2, a4, a5, n] + S2[a1, a6, a2, a4, SP[a3, a5], n] + 
    S2[a3, n]*S2[a1, a6, a2, a5, a4, n] + S2[a1, a6, a2, a5, SP[a3, a4], n] + 
    S2[a1, a6, a2, SP[a3, a5], a4, n] - S2[a4, n]*S2[a1, a6, a3, a2, a5, n] - 
    S2[a1, a6, a3, a2, SP[a4, a5], n] - S2[a4, n]*S2[a1, a6, a3, a5, a2, n] - 
    S2[a1, a6, a3, a5, SP[a2, a4], n] - S2[a1, a6, a3, SP[a2, a4], a5, n] - 
    S2[a1, a6, a3, SP[a4, a5], a2, n] + S2[a3, n]*S2[a1, a6, a4, a2, a5, n] + 
    S2[a1, a6, a4, a2, SP[a3, a5], n] + S2[a3, n]*S2[a1, a6, a4, a5, a2, n] + 
    S2[a1, a6, a4, a5, SP[a2, a3], n] + S2[a1, a6, a4, SP[a2, a3], a5, n] + 
    S2[a1, a6, a4, SP[a3, a5], a2, n] + S2[a3, n]*S2[a1, a6, a5, a2, a4, n] + 
    S2[a1, a6, a5, a2, SP[a3, a4], n] + S2[a3, n]*S2[a1, a6, a5, a4, a2, n] + 
    S2[a1, a6, a5, a4, SP[a2, a3], n] + S2[a1, a6, a5, SP[a2, a3], a4, n] + 
    S2[a1, a6, a5, SP[a3, a4], a2, n] + S2[a1, a6, SP[a2, a3], a4, a5, n] + 
    S2[a1, a6, SP[a2, a3], a5, a4, n] - S2[a1, a6, SP[a2, a4], a3, a5, n] + 
    S2[a1, a6, SP[a3, a5], a2, a4, n] + S2[a1, a6, SP[a3, a5], a4, a2, n] - 
    S2[a1, SP[a2, a6], a5, a3, a4, n] - S2[a1, SP[a2, a6], a5, a4, a3, n] + 
    S2[a1, SP[a3, a5], a2, a4, a6, n] + S2[a1, SP[a3, a5], a2, a6, a4, n] + 
    S2[a1, SP[a3, a5], a4, a2, a6, n] + S2[a1, SP[a3, a5], a4, a6, a2, n] + 
    S2[a1, SP[a3, a5], a6, a2, a4, n] + S2[a1, SP[a3, a5], a6, a4, a2, n] + 
    S2[a1, SP[a3, a6], a2, a4, a5, n] + S2[a1, SP[a3, a6], a2, a5, a4, n] + 
    S2[a1, SP[a3, a6], a4, a2, a5, n] + S2[a1, SP[a3, a6], a4, a5, a2, n] + 
    S2[a1, SP[a3, a6], a5, a2, a4, n] + S2[a1, SP[a3, a6], a5, a4, a2, n] - 
    S2[a1, SP[a4, a6], a2, a3, a5, n] - S2[a1, SP[a4, a6], a3, a2, a5, n] - 
    S2[a1, SP[a4, a6], a3, a5, a2, n] - S2[a1, SP[a5, a6], a2, a3, a4, n] - 
    S2[a1, SP[a5, a6], a2, a4, a3, n] - S2[a1, SP[a5, a6], a3, a2, a4, n] - 
    S2[a1, SP[a5, a6], a3, a4, a2, n] - S2[a1, SP[a5, a6], a4, a2, a3, n] - 
    S2[a1, SP[a5, a6], a4, a3, a2, n] - S2[a3, a1, a5, a4, SP[a2, a6], n] - 
    S2[a3, a1, a5, a6, SP[a2, a4], n] - S2[a3, a1, a5, SP[a2, a4], a6, n] - 
    S2[a3, a1, a5, SP[a2, a6], a4, n] - S2[a3, a1, a6, a4, SP[a2, a5], n] - 
    S2[a3, a1, a6, a5, SP[a2, a4], n] - S2[a3, a1, a6, SP[a2, a4], a5, n] - 
    S2[a3, a1, a6, SP[a2, a5], a4, n] - S2[a3, a1, SP[a2, a5], a4, a6, n] - 
    S2[a3, a1, SP[a2, a5], a6, a4, n] - S2[a3, a1, SP[a2, a6], a4, a5, n] - 
    S2[a3, a1, SP[a2, a6], a5, a4, n] + S2[a6, n]*S2[a3, a5, a1, a2, a4, n] + 
    S2[a3, a5, a1, a2, SP[a4, a6], n] + S2[a6, n]*S2[a3, a5, a1, a4, a2, n] - 
    S2[a3, a5, a1, a6, SP[a2, a4], n] - S2[a3, a5, a1, SP[a2, a4], a6, n] + 
    S2[a3, a5, a1, SP[a4, a6], a2, n] + S2[a6, n]*S2[a3, a5, a4, a1, a2, n] - 
    S2[a3, a5, a6, a1, SP[a2, a4], n] - S2[a3, a5, a6, SP[a1, a4], a2, n] - 
    S2[a3, a5, SP[a1, a4], a2, a6, n] - S2[a3, a5, SP[a1, a4], a6, a2, n] + 
    S2[a3, a5, SP[a4, a6], a1, a2, n] + S2[a4, n]*S2[a3, a6, a1, a2, a5, n] + 
    S2[a3, a6, a1, a2, SP[a4, a5], n] - S2[a3, a6, a1, a4, SP[a2, a5], n] + 
    S2[a4, n]*S2[a3, a6, a1, a5, a2, n] - S2[a3, a6, a1, SP[a2, a5], a4, n] + 
    S2[a3, a6, a1, SP[a4, a5], a2, n] - S2[a3, a6, a4, a1, SP[a2, a5], n] - 
    S2[a3, a6, a4, SP[a1, a5], a2, n] - S2[a3, a6, a5, a1, SP[a2, a4], n] - 
    S2[a3, a6, a5, SP[a1, a4], a2, n] - S2[a3, a6, SP[a1, a5], a2, a4, n] - 
    S2[a3, a6, SP[a1, a5], a4, a2, n] - S2[a3, SP[a1, a5], a2, a4, a6, n] - 
    S2[a3, SP[a1, a5], a2, a6, a4, n] - S2[a3, SP[a1, a5], a4, a2, a6, n] - 
    S2[a3, SP[a1, a5], a4, a6, a2, n] - S2[a3, SP[a1, a5], a6, a2, a4, n] - 
    S2[a3, SP[a1, a5], a6, a4, a2, n] - S2[a3, SP[a1, a6], a2, a4, a5, n] - 
    S2[a3, SP[a1, a6], a2, a5, a4, n] - S2[a3, SP[a1, a6], a4, a2, a5, n] - 
    S2[a3, SP[a1, a6], a4, a5, a2, n] - S2[a3, SP[a1, a6], a5, a2, a4, n] - 
    S2[a3, SP[a1, a6], a5, a4, a2, n] + S2[a3, SP[a4, a6], a1, a2, a5, n] + 
    S2[a3, SP[a4, a6], a1, a5, a2, n] + S2[a3, SP[a5, a6], a1, a2, a4, n] + 
    S2[a3, SP[a5, a6], a1, a4, a2, n] + S2[a3, SP[a5, a6], a4, a1, a2, n] + 
    S2[a4, a1, a6, a3, SP[a2, a5], n] + S2[a4, a1, a6, SP[a2, a3], a5, n] + 
    S2[a4, a1, SP[a2, a6], a3, a5, n] - S2[a3, n]*S2[a4, a6, a1, a2, a5, n] - 
    S2[a4, a6, a1, a2, SP[a3, a5], n] + S2[a4, a6, a1, a3, SP[a2, a5], n] - 
    S2[a3, n]*S2[a4, a6, a1, a5, a2, n] - S2[a4, a6, a1, a5, SP[a2, a3], n] - 
    S2[a4, a6, a1, SP[a3, a5], a2, n] + S2[a4, a6, a3, a1, SP[a2, a5], n] + 
    S2[a4, a6, a3, SP[a1, a5], a2, n] + S2[a4, SP[a1, a6], a2, a3, a5, n] + 
    S2[a4, SP[a1, a6], a3, a2, a5, n] + S2[a4, SP[a1, a6], a3, a5, a2, n] - 
    S2[a4, SP[a3, a6], a1, a2, a5, n] - S2[a4, SP[a3, a6], a1, a5, a2, n] + 
    S2[a4, n]*S2[a6, a1, a2, a5, a3, n] + S2[a6, a1, a2, a5, SP[a3, a4], n] + 
    S2[a6, a1, a2, SP[a4, a5], a3, n] + S2[a4, n]*S2[a6, a1, a5, a2, a3, n] + 
    S2[a6, a1, a5, a2, SP[a3, a4], n] + S2[a4, n]*S2[a6, a1, a5, a3, a2, n] + 
    S2[a6, a1, a5, a3, SP[a2, a4], n] + S2[a6, a1, a5, SP[a2, a4], a3, n] + 
    S2[a6, a1, a5, SP[a3, a4], a2, n] + S2[a6, a1, SP[a2, a4], a5, a3, n] + 
    S2[a6, a1, SP[a4, a5], a2, a3, n] + S2[a6, a1, SP[a4, a5], a3, a2, n] - 
    S2[a1, n]*S2[a6, a2, a4, a5, a3, n] - S2[a6, a2, a4, a5, SP[a1, a3], n] - 
    S2[a6, a2, a4, SP[a1, a5], a3, n] - S2[a6, a2, SP[a1, a4], a5, a3, n] - 
    S2[a4, n]*S2[a6, a3, a5, a1, a2, n] - S2[a6, a3, a5, a1, SP[a2, a4], n] - 
    S2[a6, a3, a5, SP[a1, a4], a2, n] - S2[a6, a3, SP[a4, a5], a1, a2, n] - 
    S2[a1, n]*S2[a6, a4, a2, a5, a3, n] - S2[a6, a4, a2, a5, SP[a1, a3], n] - 
    S2[a6, a4, a2, SP[a1, a5], a3, n] + S2[a3, n]*S2[a6, a4, a5, a1, a2, n] + 
    S2[a6, a4, a5, a1, SP[a2, a3], n] - S2[a1, n]*S2[a6, a4, a5, a2, a3, n] - 
    S2[a6, a4, a5, a2, SP[a1, a3], n] - S2[a1, n]*S2[a6, a4, a5, a3, a2, n] - 
    S2[a6, a4, a5, a3, SP[a1, a2], n] - S2[a6, a4, a5, SP[a1, a2], a3, n] - 
    S2[a6, a4, SP[a1, a2], a5, a3, n] - S2[a6, a4, SP[a1, a5], a2, a3, n] - 
    S2[a6, a4, SP[a1, a5], a3, a2, n] + S2[a6, a4, SP[a3, a5], a1, a2, n] - 
    S2[a6, SP[a1, a2], a4, a5, a3, n] - S2[SP[a1, a6], a2, a4, a5, a3, n] - 
    S2[SP[a1, a6], a2, a5, a3, a4, n] - S2[SP[a1, a6], a2, a5, a4, a3, n] - 
    S2[SP[a1, a6], a4, a2, a5, a3, n] - S2[SP[a1, a6], a4, a5, a2, a3, n] - 
    S2[SP[a1, a6], a4, a5, a3, a2, n] - S2[SP[a1, a6], a5, a2, a3, a4, n] - 
    S2[SP[a1, a6], a5, a2, a4, a3, n] - S2[SP[a1, a6], a5, a3, a2, a4, n] - 
    S2[SP[a1, a6], a5, a3, a4, a2, n] - S2[SP[a1, a6], a5, a4, a2, a3, n] - 
    S2[SP[a1, a6], a5, a4, a3, a2, n] + S2[SP[a3, a6], a4, a5, a1, a2, n] + 
    S2[SP[a3, a6], a5, a1, a2, a4, n] + S2[SP[a3, a6], a5, a1, a4, a2, n] + 
    S2[SP[a3, a6], a5, a4, a1, a2, n] + S2[SP[a4, a6], a1, a2, a5, a3, n] + 
    S2[SP[a4, a6], a1, a5, a2, a3, n] + S2[SP[a4, a6], a1, a5, a3, a2, n] - 
    S2[SP[a4, a6], a3, a5, a1, a2, n] + S2[a6, a2, a1, a4, a5, a3, n] + 
    S2[a6, a2, a4, a1, a5, a3, n] + S2[a6, a2, a4, a5, a1, a3, n] + 
    S2[a6, a2, a4, a5, a3, a1, n] + S2[a6, a4, a2, a1, a5, a3, n] + 
    S2[a6, a4, a2, a5, a1, a3, n] + S2[a6, a4, a2, a5, a3, a1, n] + 
    S2[a6, a4, a5, a2, a1, a3, n] + S2[a6, a4, a5, a2, a3, a1, n] + 
    S2[a6, a4, a5, a3, a2, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a1_, a2_, a6_, a5_, a3_, a4_, n_] :> 
  S2[a1, a2, n]*S2[a3, a4, a5, a6, n] + S2[a1, a2, n]*S2[a3, a4, a6, a5, n] - 
    S2[a3, a4, SP[a1, a5], SP[a2, a6], n] - S2[a3, a4, SP[a1, a6], 
     SP[a2, a5], n] + S2[a1, a2, n]*S2[a3, a5, a4, a6, n] + 
    S2[a1, a2, n]*S2[a3, a5, a6, a4, n] - S2[a3, a5, SP[a1, a4], SP[a2, a6], 
     n] - S2[a3, a5, SP[a1, a6], SP[a2, a4], n] + 
    S2[a1, a2, n]*S2[a3, a6, a4, a5, n] + S2[a1, a2, n]*
     S2[a3, a6, a5, a4, n] - S2[a3, a6, SP[a1, a4], SP[a2, a5], n] - 
    S2[a3, a6, SP[a1, a5], SP[a2, a4], n] - S2[a3, SP[a1, a4], a5, 
     SP[a2, a6], n] - S2[a3, SP[a1, a4], a6, SP[a2, a5], n] - 
    S2[a3, SP[a1, a4], SP[a2, a5], a6, n] - S2[a3, SP[a1, a4], SP[a2, a6], 
     a5, n] - S2[a3, SP[a1, a5], a4, SP[a2, a6], n] - 
    S2[a3, SP[a1, a5], a6, SP[a2, a4], n] - S2[a3, SP[a1, a5], SP[a2, a4], 
     a6, n] - S2[a3, SP[a1, a5], SP[a2, a6], a4, n] - 
    S2[a3, SP[a1, a6], a4, SP[a2, a5], n] - S2[a3, SP[a1, a6], a5, 
     SP[a2, a4], n] - S2[a3, SP[a1, a6], SP[a2, a4], a5, n] - 
    S2[a3, SP[a1, a6], SP[a2, a5], a4, n] - S2[a1, a2, n]*
     S2[a5, a6, a3, a4, n] + S2[a5, a6, SP[a1, a3], SP[a2, a4], n] + 
    S2[a5, SP[a1, a6], a3, SP[a2, a4], n] + S2[a5, SP[a1, a6], SP[a2, a3], 
     a4, n] - S2[SP[a1, a3], a4, a5, SP[a2, a6], n] - 
    S2[SP[a1, a3], a4, a6, SP[a2, a5], n] - S2[SP[a1, a3], a4, SP[a2, a5], 
     a6, n] - S2[SP[a1, a3], a4, SP[a2, a6], a5, n] - 
    S2[SP[a1, a3], a5, a4, SP[a2, a6], n] - S2[SP[a1, a3], a5, a6, 
     SP[a2, a4], n] - S2[SP[a1, a3], a5, SP[a2, a4], a6, n] - 
    S2[SP[a1, a3], a5, SP[a2, a6], a4, n] - S2[SP[a1, a3], a6, a4, 
     SP[a2, a5], n] - S2[SP[a1, a3], a6, a5, SP[a2, a4], n] - 
    S2[SP[a1, a3], a6, SP[a2, a4], a5, n] - S2[SP[a1, a3], a6, SP[a2, a5], 
     a4, n] - S2[SP[a1, a3], SP[a2, a4], a5, a6, n] - 
    S2[SP[a1, a3], SP[a2, a4], a6, a5, n] - S2[SP[a1, a3], SP[a2, a5], a4, 
     a6, n] - S2[SP[a1, a3], SP[a2, a5], a6, a4, n] - 
    S2[SP[a1, a3], SP[a2, a6], a4, a5, n] - S2[SP[a1, a3], SP[a2, a6], a5, 
     a4, n] + S2[SP[a1, a5], a6, a3, SP[a2, a4], n] + 
    S2[SP[a1, a5], a6, SP[a2, a3], a4, n] + S2[SP[a1, a5], SP[a2, a6], a3, 
     a4, n] + S2[a6, n]*S2[a1, a2, a4, a3, a5, n] + 
    S2[a1, a2, a4, a3, SP[a5, a6], n] + S2[a6, n]*S2[a1, a2, a4, a5, a3, n] - 
    S2[a3, n]*S2[a1, a2, a4, a5, a6, n] - 
    S2[a3, n]*S2[a1, a2, a4, a6, a5, n] - S2[a1, a2, a4, a6, SP[a3, a5], n] - 
    S2[a1, a2, a4, SP[a3, a5], a6, n] + S2[a1, a2, a4, SP[a5, a6], a3, n] + 
    S2[a6, n]*S2[a1, a2, a5, a3, a4, n] + S2[a1, a2, a5, a3, SP[a4, a6], n] + 
    S2[a6, n]*S2[a1, a2, a5, a4, a3, n] - 
    S2[a3, n]*S2[a1, a2, a5, a4, a6, n] - 
    S2[a3, n]*S2[a1, a2, a5, a6, a4, n] - S2[a1, a2, a5, a6, SP[a3, a4], n] - 
    S2[a1, a2, a5, SP[a3, a4], a6, n] + S2[a1, a2, a5, SP[a4, a6], a3, n] + 
    S2[a5, n]*S2[a1, a2, a6, a3, a4, n] + S2[a1, a2, a6, a3, SP[a4, a5], n] - 
    S2[a3, n]*S2[a1, a2, a6, a4, a5, n] - S2[a1, a2, a6, a4, SP[a3, a5], n] - 
    S2[a3, n]*S2[a1, a2, a6, a5, a4, n] - S2[a1, a2, a6, a5, SP[a3, a4], n] - 
    S2[a1, a2, a6, SP[a3, a4], a5, n] - S2[a1, a2, SP[a3, a4], a5, a6, n] - 
    S2[a1, a2, SP[a3, a4], a6, a5, n] - S2[a1, a2, SP[a3, a5], a4, a6, n] - 
    S2[a1, a2, SP[a3, a5], a6, a4, n] - S2[a1, a2, SP[a3, a6], a4, a5, n] - 
    S2[a1, a2, SP[a3, a6], a5, a4, n] + S2[a1, a2, SP[a4, a6], a3, a5, n] + 
    S2[a1, a2, SP[a4, a6], a5, a3, n] + 2*S2[a1, a2, SP[a5, a6], a3, a4, n] + 
    S2[a1, a2, SP[a5, a6], a4, a3, n] + S2[a1, a3, a4, a5, SP[a2, a6], n] + 
    S2[a1, a3, a4, a6, SP[a2, a5], n] + S2[a1, a3, a4, SP[a2, a5], a6, n] + 
    S2[a1, a3, a4, SP[a2, a6], a5, n] + S2[a1, a3, a5, a4, SP[a2, a6], n] + 
    S2[a1, a3, a5, a6, SP[a2, a4], n] + S2[a1, a3, a5, SP[a2, a4], a6, n] + 
    S2[a1, a3, a5, SP[a2, a6], a4, n] + S2[a1, a3, a6, a4, SP[a2, a5], n] + 
    S2[a1, a3, a6, a5, SP[a2, a4], n] + S2[a1, a3, a6, SP[a2, a4], a5, n] + 
    S2[a1, a3, a6, SP[a2, a5], a4, n] + S2[a1, a3, SP[a2, a4], a5, a6, n] + 
    S2[a1, a3, SP[a2, a4], a6, a5, n] + S2[a1, a3, SP[a2, a5], a4, a6, n] + 
    S2[a1, a3, SP[a2, a5], a6, a4, n] + S2[a1, a3, SP[a2, a6], a4, a5, n] + 
    S2[a1, a3, SP[a2, a6], a5, a4, n] + S2[a6, n]*S2[a1, a4, a2, a3, a5, n] + 
    S2[a1, a4, a2, a3, SP[a5, a6], n] + S2[a6, n]*S2[a1, a4, a2, a5, a3, n] - 
    S2[a3, n]*S2[a1, a4, a2, a5, a6, n] - 
    S2[a3, n]*S2[a1, a4, a2, a6, a5, n] - S2[a1, a4, a2, a6, SP[a3, a5], n] - 
    S2[a1, a4, a2, SP[a3, a5], a6, n] + S2[a1, a4, a2, SP[a5, a6], a3, n] + 
    S2[a6, n]*S2[a1, a4, a3, a2, a5, n] + S2[a1, a4, a3, a2, SP[a5, a6], n] + 
    S2[a6, n]*S2[a1, a4, a3, a5, a2, n] + S2[a1, a4, a3, a5, SP[a2, a6], n] + 
    S2[a1, a4, a3, SP[a2, a6], a5, n] + S2[a1, a4, a3, SP[a5, a6], a2, n] + 
    S2[a6, n]*S2[a1, a4, a5, a2, a3, n] - 
    S2[a3, n]*S2[a1, a4, a5, a2, a6, n] + 
    S2[a6, n]*S2[a1, a4, a5, a3, a2, n] + S2[a1, a4, a5, a3, SP[a2, a6], n] - 
    S2[a3, n]*S2[a1, a4, a5, a6, a2, n] - S2[a1, a4, a5, a6, SP[a2, a3], n] - 
    S2[a1, a4, a5, SP[a2, a3], a6, n] + S2[a1, a4, a5, SP[a2, a6], a3, n] - 
    S2[a3, n]*S2[a1, a4, a6, a2, a5, n] - S2[a1, a4, a6, a2, SP[a3, a5], n] - 
    S2[a3, n]*S2[a1, a4, a6, a5, a2, n] - S2[a1, a4, a6, a5, SP[a2, a3], n] - 
    S2[a1, a4, a6, SP[a2, a3], a5, n] - S2[a1, a4, a6, SP[a3, a5], a2, n] - 
    S2[a1, a4, SP[a2, a3], a5, a6, n] - S2[a1, a4, SP[a2, a3], a6, a5, n] + 
    S2[a1, a4, SP[a2, a6], a3, a5, n] + S2[a1, a4, SP[a2, a6], a5, a3, n] - 
    S2[a1, a4, SP[a3, a5], a2, a6, n] - S2[a1, a4, SP[a3, a5], a6, a2, n] + 
    S2[a1, a4, SP[a5, a6], a2, a3, n] + S2[a1, a4, SP[a5, a6], a3, a2, n] + 
    S2[a6, n]*S2[a1, a5, a2, a3, a4, n] + S2[a1, a5, a2, a3, SP[a4, a6], n] + 
    S2[a6, n]*S2[a1, a5, a2, a4, a3, n] - 
    S2[a3, n]*S2[a1, a5, a2, a4, a6, n] - 
    S2[a3, n]*S2[a1, a5, a2, a6, a4, n] - S2[a1, a5, a2, a6, SP[a3, a4], n] - 
    S2[a1, a5, a2, SP[a3, a4], a6, n] + S2[a1, a5, a2, SP[a4, a6], a3, n] + 
    S2[a6, n]*S2[a1, a5, a3, a2, a4, n] + S2[a1, a5, a3, a2, SP[a4, a6], n] + 
    S2[a6, n]*S2[a1, a5, a3, a4, a2, n] + S2[a1, a5, a3, a4, SP[a2, a6], n] + 
    S2[a1, a5, a3, SP[a2, a6], a4, n] + S2[a1, a5, a3, SP[a4, a6], a2, n] + 
    S2[a6, n]*S2[a1, a5, a4, a2, a3, n] - 
    S2[a3, n]*S2[a1, a5, a4, a2, a6, n] + 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] + S2[a1, a5, a4, a3, SP[a2, a6], n] - 
    S2[a3, n]*S2[a1, a5, a4, a6, a2, n] - S2[a1, a5, a4, a6, SP[a2, a3], n] - 
    S2[a1, a5, a4, SP[a2, a3], a6, n] + S2[a1, a5, a4, SP[a2, a6], a3, n] - 
    S2[a3, n]*S2[a1, a5, a6, a2, a4, n] - S2[a1, a5, a6, a2, SP[a3, a4], n] - 
    S2[a1, a5, a6, a3, SP[a2, a4], n] - S2[a3, n]*S2[a1, a5, a6, a4, a2, n] - 
    S2[a1, a5, a6, a4, SP[a2, a3], n] - 2*S2[a1, a5, a6, SP[a2, a3], a4, n] - 
    S2[a1, a5, a6, SP[a3, a4], a2, n] - S2[a1, a5, SP[a2, a3], a4, a6, n] - 
    S2[a1, a5, SP[a2, a3], a6, a4, n] + S2[a1, a5, SP[a2, a6], a4, a3, n] - 
    S2[a1, a5, SP[a3, a4], a2, a6, n] - S2[a1, a5, SP[a3, a4], a6, a2, n] + 
    S2[a1, a5, SP[a4, a6], a2, a3, n] + S2[a1, a5, SP[a4, a6], a3, a2, n] + 
    S2[a5, n]*S2[a1, a6, a2, a3, a4, n] + S2[a1, a6, a2, a3, SP[a4, a5], n] - 
    S2[a3, n]*S2[a1, a6, a2, a4, a5, n] - S2[a1, a6, a2, a4, SP[a3, a5], n] - 
    S2[a3, n]*S2[a1, a6, a2, a5, a4, n] - S2[a1, a6, a2, a5, SP[a3, a4], n] - 
    S2[a1, a6, a2, SP[a3, a4], a5, n] + S2[a5, n]*S2[a1, a6, a3, a2, a4, n] + 
    S2[a1, a6, a3, a2, SP[a4, a5], n] + S2[a5, n]*S2[a1, a6, a3, a4, a2, n] + 
    S2[a1, a6, a3, a4, SP[a2, a5], n] + S2[a1, a6, a3, SP[a2, a5], a4, n] + 
    S2[a1, a6, a3, SP[a4, a5], a2, n] - S2[a3, n]*S2[a1, a6, a4, a2, a5, n] - 
    S2[a1, a6, a4, a2, SP[a3, a5], n] - S2[a3, n]*S2[a1, a6, a4, a5, a2, n] - 
    S2[a1, a6, a4, a5, SP[a2, a3], n] - S2[a1, a6, a4, SP[a2, a3], a5, n] - 
    S2[a1, a6, a4, SP[a3, a5], a2, n] - S2[a3, n]*S2[a1, a6, a5, a2, a4, n] - 
    S2[a1, a6, a5, a2, SP[a3, a4], n] - S2[a3, n]*S2[a1, a6, a5, a4, a2, n] - 
    S2[a1, a6, a5, a4, SP[a2, a3], n] - S2[a1, a6, a5, SP[a2, a3], a4, n] - 
    S2[a1, a6, a5, SP[a3, a4], a2, n] - S2[a1, a6, SP[a2, a3], a4, a5, n] - 
    S2[a1, a6, SP[a2, a3], a5, a4, n] + S2[a1, a6, SP[a2, a5], a3, a4, n] - 
    S2[a1, a6, SP[a3, a4], a2, a5, n] - S2[a1, a6, SP[a3, a4], a5, a2, n] + 
    S2[a1, SP[a2, a6], a4, a3, a5, n] + S2[a1, SP[a2, a6], a4, a5, a3, n] + 
    S2[a1, SP[a2, a6], a5, a3, a4, n] + S2[a1, SP[a2, a6], a5, a4, a3, n] - 
    S2[a1, SP[a3, a4], a2, a5, a6, n] - S2[a1, SP[a3, a4], a2, a6, a5, n] - 
    S2[a1, SP[a3, a4], a5, a2, a6, n] - S2[a1, SP[a3, a4], a5, a6, a2, n] - 
    S2[a1, SP[a3, a4], a6, a2, a5, n] - S2[a1, SP[a3, a4], a6, a5, a2, n] - 
    S2[a1, SP[a3, a5], a2, a4, a6, n] - S2[a1, SP[a3, a5], a2, a6, a4, n] - 
    S2[a1, SP[a3, a5], a4, a2, a6, n] - S2[a1, SP[a3, a5], a4, a6, a2, n] - 
    S2[a1, SP[a3, a5], a6, a2, a4, n] - S2[a1, SP[a3, a5], a6, a4, a2, n] - 
    S2[a1, SP[a3, a6], a2, a4, a5, n] - S2[a1, SP[a3, a6], a2, a5, a4, n] - 
    S2[a1, SP[a3, a6], a4, a2, a5, n] - S2[a1, SP[a3, a6], a4, a5, a2, n] - 
    S2[a1, SP[a3, a6], a5, a2, a4, n] - S2[a1, SP[a3, a6], a5, a4, a2, n] + 
    S2[a1, SP[a4, a6], a2, a3, a5, n] + S2[a1, SP[a4, a6], a2, a5, a3, n] + 
    S2[a1, SP[a4, a6], a3, a2, a5, n] + S2[a1, SP[a4, a6], a3, a5, a2, n] + 
    S2[a1, SP[a4, a6], a5, a2, a3, n] + S2[a1, SP[a4, a6], a5, a3, a2, n] + 
    2*S2[a1, SP[a5, a6], a2, a3, a4, n] + S2[a1, SP[a5, a6], a2, a4, a3, n] + 
    2*S2[a1, SP[a5, a6], a3, a2, a4, n] + 
    2*S2[a1, SP[a5, a6], a3, a4, a2, n] + S2[a1, SP[a5, a6], a4, a2, a3, n] + 
    S2[a1, SP[a5, a6], a4, a3, a2, n] + S2[a3, a1, a4, a5, SP[a2, a6], n] + 
    S2[a3, a1, a4, a6, SP[a2, a5], n] + S2[a3, a1, a4, SP[a2, a5], a6, n] + 
    S2[a3, a1, a4, SP[a2, a6], a5, n] + S2[a3, a1, a5, a4, SP[a2, a6], n] + 
    S2[a3, a1, a5, a6, SP[a2, a4], n] + S2[a3, a1, a5, SP[a2, a4], a6, n] + 
    S2[a3, a1, a5, SP[a2, a6], a4, n] + S2[a3, a1, a6, a4, SP[a2, a5], n] + 
    S2[a3, a1, a6, a5, SP[a2, a4], n] + S2[a3, a1, a6, SP[a2, a4], a5, n] + 
    S2[a3, a1, a6, SP[a2, a5], a4, n] + S2[a3, a1, SP[a2, a4], a5, a6, n] + 
    S2[a3, a1, SP[a2, a4], a6, a5, n] + S2[a3, a1, SP[a2, a5], a4, a6, n] + 
    S2[a3, a1, SP[a2, a5], a6, a4, n] + S2[a3, a1, SP[a2, a6], a4, a5, n] + 
    S2[a3, a1, SP[a2, a6], a5, a4, n] - S2[a6, n]*S2[a3, a4, a1, a2, a5, n] - 
    S2[a3, a4, a1, a2, SP[a5, a6], n] - S2[a6, n]*S2[a3, a4, a1, a5, a2, n] + 
    S2[a3, a4, a1, a6, SP[a2, a5], n] + S2[a3, a4, a1, SP[a2, a5], a6, n] - 
    S2[a3, a4, a1, SP[a5, a6], a2, n] - S2[a6, n]*S2[a3, a4, a5, a1, a2, n] + 
    S2[a3, a4, a6, a1, SP[a2, a5], n] + S2[a3, a4, a6, SP[a1, a5], a2, n] + 
    S2[a3, a4, SP[a1, a5], a2, a6, n] + S2[a3, a4, SP[a1, a5], a6, a2, n] - 
    S2[a3, a4, SP[a5, a6], a1, a2, n] - S2[a6, n]*S2[a3, a5, a1, a2, a4, n] - 
    S2[a3, a5, a1, a2, SP[a4, a6], n] - S2[a6, n]*S2[a3, a5, a1, a4, a2, n] + 
    S2[a3, a5, a1, a6, SP[a2, a4], n] + S2[a3, a5, a1, SP[a2, a4], a6, n] - 
    S2[a3, a5, a1, SP[a4, a6], a2, n] - S2[a6, n]*S2[a3, a5, a4, a1, a2, n] + 
    S2[a3, a5, a6, a1, SP[a2, a4], n] + S2[a3, a5, a6, SP[a1, a4], a2, n] + 
    S2[a3, a5, SP[a1, a4], a2, a6, n] + S2[a3, a5, SP[a1, a4], a6, a2, n] - 
    S2[a3, a5, SP[a4, a6], a1, a2, n] - S2[a5, n]*S2[a3, a6, a1, a2, a4, n] - 
    S2[a3, a6, a1, a2, SP[a4, a5], n] - S2[a5, n]*S2[a3, a6, a1, a4, a2, n] + 
    S2[a3, a6, a1, a5, SP[a2, a4], n] + S2[a3, a6, a1, SP[a2, a4], a5, n] - 
    S2[a3, a6, a1, SP[a4, a5], a2, n] + S2[a3, a6, a4, a1, SP[a2, a5], n] + 
    S2[a3, a6, a4, SP[a1, a5], a2, n] + S2[a3, a6, a5, a1, SP[a2, a4], n] + 
    S2[a3, a6, a5, SP[a1, a4], a2, n] + S2[a3, a6, SP[a1, a4], a2, a5, n] + 
    S2[a3, a6, SP[a1, a4], a5, a2, n] + S2[a3, SP[a1, a4], a2, a5, a6, n] + 
    S2[a3, SP[a1, a4], a2, a6, a5, n] + S2[a3, SP[a1, a4], a5, a2, a6, n] + 
    S2[a3, SP[a1, a4], a5, a6, a2, n] + S2[a3, SP[a1, a4], a6, a2, a5, n] + 
    S2[a3, SP[a1, a4], a6, a5, a2, n] + S2[a3, SP[a1, a5], a2, a4, a6, n] + 
    S2[a3, SP[a1, a5], a2, a6, a4, n] + S2[a3, SP[a1, a5], a4, a2, a6, n] + 
    S2[a3, SP[a1, a5], a4, a6, a2, n] + S2[a3, SP[a1, a5], a6, a2, a4, n] + 
    S2[a3, SP[a1, a5], a6, a4, a2, n] + S2[a3, SP[a1, a6], a2, a4, a5, n] + 
    S2[a3, SP[a1, a6], a2, a5, a4, n] + S2[a3, SP[a1, a6], a4, a2, a5, n] + 
    S2[a3, SP[a1, a6], a4, a5, a2, n] + S2[a3, SP[a1, a6], a5, a2, a4, n] + 
    S2[a3, SP[a1, a6], a5, a4, a2, n] - S2[a3, SP[a4, a6], a1, a2, a5, n] - 
    S2[a3, SP[a4, a6], a1, a5, a2, n] - S2[a3, SP[a4, a6], a5, a1, a2, n] - 
    2*S2[a3, SP[a5, a6], a1, a2, a4, n] - 
    2*S2[a3, SP[a5, a6], a1, a4, a2, n] - S2[a3, SP[a5, a6], a4, a1, a2, n] - 
    S2[a5, a1, a6, a3, SP[a2, a4], n] - S2[a5, a1, a6, SP[a2, a3], a4, n] - 
    S2[a5, a1, SP[a2, a6], a3, a4, n] + S2[a3, n]*S2[a5, a6, a1, a2, a4, n] + 
    S2[a5, a6, a1, a2, SP[a3, a4], n] - S2[a5, a6, a1, a3, SP[a2, a4], n] + 
    S2[a3, n]*S2[a5, a6, a1, a4, a2, n] + S2[a5, a6, a1, a4, SP[a2, a3], n] + 
    S2[a5, a6, a1, SP[a3, a4], a2, n] - S2[a5, a6, a3, a1, SP[a2, a4], n] - 
    S2[a5, a6, a3, SP[a1, a4], a2, n] - S2[a5, SP[a1, a6], a2, a3, a4, n] - 
    S2[a5, SP[a1, a6], a3, a2, a4, n] - S2[a5, SP[a1, a6], a3, a4, a2, n] + 
    S2[a5, SP[a3, a6], a1, a2, a4, n] + S2[a5, SP[a3, a6], a1, a4, a2, n] - 
    S2[a5, n]*S2[a6, a1, a2, a4, a3, n] - S2[a6, a1, a2, a4, SP[a3, a5], n] - 
    S2[a6, a1, a2, SP[a4, a5], a3, n] - S2[a5, n]*S2[a6, a1, a4, a2, a3, n] - 
    S2[a6, a1, a4, a2, SP[a3, a5], n] - S2[a5, n]*S2[a6, a1, a4, a3, a2, n] - 
    S2[a6, a1, a4, a3, SP[a2, a5], n] - S2[a6, a1, a4, SP[a2, a5], a3, n] - 
    S2[a6, a1, a4, SP[a3, a5], a2, n] - S2[a6, a1, SP[a2, a5], a4, a3, n] - 
    S2[a6, a1, SP[a4, a5], a2, a3, n] - S2[a6, a1, SP[a4, a5], a3, a2, n] - 
    S2[a1, n]*S2[a6, a2, a5, a3, a4, n] - S2[a6, a2, a5, a3, SP[a1, a4], n] - 
    S2[a6, a2, a5, SP[a1, a3], a4, n] - S2[a6, a2, SP[a1, a5], a3, a4, n] + 
    S2[a5, n]*S2[a6, a3, a4, a1, a2, n] + S2[a6, a3, a4, a1, SP[a2, a5], n] + 
    S2[a6, a3, a4, SP[a1, a5], a2, n] + S2[a6, a3, SP[a4, a5], a1, a2, n] + 
    S2[a3, n]*S2[a6, a5, a1, a2, a4, n] + S2[a6, a5, a1, a2, SP[a3, a4], n] + 
    S2[a3, n]*S2[a6, a5, a1, a4, a2, n] + S2[a6, a5, a1, a4, SP[a2, a3], n] + 
    S2[a6, a5, a1, SP[a2, a3], a4, n] + S2[a6, a5, a1, SP[a3, a4], a2, n] - 
    S2[a1, n]*S2[a6, a5, a2, a3, a4, n] - S2[a6, a5, a2, a3, SP[a1, a4], n] - 
    S2[a6, a5, a2, SP[a1, a3], a4, n] - S2[a1, n]*S2[a6, a5, a3, a2, a4, n] - 
    S2[a6, a5, a3, a2, SP[a1, a4], n] - S2[a1, n]*S2[a6, a5, a3, a4, a2, n] - 
    S2[a6, a5, a3, a4, SP[a1, a2], n] - S2[a6, a5, a3, SP[a1, a2], a4, n] - 
    S2[a6, a5, a3, SP[a1, a4], a2, n] - S2[a6, a5, SP[a1, a2], a3, a4, n] - 
    S2[a6, SP[a1, a2], a5, a3, a4, n] - S2[a6, SP[a1, a5], a2, a3, a4, n] - 
    S2[a6, SP[a1, a5], a2, a4, a3, n] - S2[a6, SP[a1, a5], a3, a2, a4, n] - 
    S2[a6, SP[a1, a5], a3, a4, a2, n] - S2[a6, SP[a1, a5], a4, a2, a3, n] - 
    S2[a6, SP[a1, a5], a4, a3, a2, n] + S2[a6, SP[a3, a5], a1, a2, a4, n] + 
    S2[a6, SP[a3, a5], a1, a4, a2, n] + S2[a6, SP[a3, a5], a4, a1, a2, n] + 
    S2[SP[a1, a6], a2, a4, a3, a5, n] + S2[SP[a1, a6], a2, a4, a5, a3, n] + 
    S2[SP[a1, a6], a2, a5, a4, a3, n] + S2[SP[a1, a6], a4, a2, a3, a5, n] + 
    S2[SP[a1, a6], a4, a2, a5, a3, n] + S2[SP[a1, a6], a4, a3, a2, a5, n] + 
    S2[SP[a1, a6], a4, a3, a5, a2, n] + S2[SP[a1, a6], a4, a5, a2, a3, n] + 
    S2[SP[a1, a6], a4, a5, a3, a2, n] + S2[SP[a1, a6], a5, a2, a4, a3, n] + 
    S2[SP[a1, a6], a5, a4, a2, a3, n] + S2[SP[a1, a6], a5, a4, a3, a2, n] - 
    S2[SP[a3, a6], a4, a1, a2, a5, n] - S2[SP[a3, a6], a4, a1, a5, a2, n] - 
    S2[SP[a3, a6], a4, a5, a1, a2, n] - S2[SP[a3, a6], a5, a4, a1, a2, n] - 
    S2[SP[a5, a6], a1, a2, a4, a3, n] - S2[SP[a5, a6], a1, a4, a2, a3, n] - 
    S2[SP[a5, a6], a1, a4, a3, a2, n] + S2[SP[a5, a6], a3, a4, a1, a2, n] + 
    S2[a6, a2, a1, a5, a3, a4, n] + S2[a6, a2, a5, a1, a3, a4, n] + 
    S2[a6, a2, a5, a3, a1, a4, n] + S2[a6, a2, a5, a3, a4, a1, n] + 
    S2[a6, a5, a2, a1, a3, a4, n] + S2[a6, a5, a2, a3, a1, a4, n] + 
    S2[a6, a5, a2, a3, a4, a1, n] + S2[a6, a5, a3, a2, a1, a4, n] + 
    S2[a6, a5, a3, a2, a4, a1, n] + S2[a6, a5, a3, a4, a2, a1, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a1_, a2_, a6_, a5_, a4_, a3_, n_] :> 
  -(S2[a1, a2, n]*S2[a3, a4, a5, a6, n]) - S2[a1, a2, n]*
     S2[a3, a4, a6, a5, n] + S2[a3, a4, SP[a1, a5], SP[a2, a6], n] + 
    S2[a3, a4, SP[a1, a6], SP[a2, a5], n] - S2[a1, a2, n]*
     S2[a3, a6, a4, a5, n] - S2[a1, a2, n]*S2[a3, a6, a5, a4, n] + 
    S2[a3, a6, SP[a1, a4], SP[a2, a5], n] + S2[a3, a6, SP[a1, a5], 
     SP[a2, a4], n] + S2[a3, SP[a1, a4], a5, SP[a2, a6], n] + 
    S2[a3, SP[a1, a4], a6, SP[a2, a5], n] + S2[a3, SP[a1, a4], SP[a2, a5], 
     a6, n] + S2[a3, SP[a1, a4], SP[a2, a6], a5, n] + 
    S2[a3, SP[a1, a6], a4, SP[a2, a5], n] + S2[a3, SP[a1, a6], a5, 
     SP[a2, a4], n] + S2[a3, SP[a1, a6], SP[a2, a4], a5, n] + 
    S2[a3, SP[a1, a6], SP[a2, a5], a4, n] + S2[a1, a2, n]*
     S2[a5, a6, a3, a4, n] - S2[a5, a6, SP[a1, a3], SP[a2, a4], n] - 
    S2[a5, SP[a1, a6], a3, SP[a2, a4], n] - S2[a5, SP[a1, a6], SP[a2, a3], 
     a4, n] + S2[SP[a1, a3], a4, a5, SP[a2, a6], n] + 
    S2[SP[a1, a3], a4, a6, SP[a2, a5], n] + S2[SP[a1, a3], a4, SP[a2, a5], 
     a6, n] + S2[SP[a1, a3], a4, SP[a2, a6], a5, n] + 
    S2[SP[a1, a3], a6, a4, SP[a2, a5], n] + S2[SP[a1, a3], a6, a5, 
     SP[a2, a4], n] + S2[SP[a1, a3], a6, SP[a2, a4], a5, n] + 
    S2[SP[a1, a3], a6, SP[a2, a5], a4, n] + S2[SP[a1, a3], SP[a2, a4], a5, 
     a6, n] + S2[SP[a1, a3], SP[a2, a4], a6, a5, n] + 
    S2[SP[a1, a3], SP[a2, a6], a4, a5, n] + S2[SP[a1, a3], SP[a2, a6], a5, 
     a4, n] - S2[SP[a1, a5], a6, a3, SP[a2, a4], n] - 
    S2[SP[a1, a5], a6, SP[a2, a3], a4, n] - S2[SP[a1, a5], SP[a2, a6], a3, 
     a4, n] - S2[a6, n]*S2[a1, a2, a4, a3, a5, n] - 
    S2[a1, a2, a4, a3, SP[a5, a6], n] - S2[a6, n]*S2[a1, a2, a4, a5, a3, n] + 
    S2[a3, n]*S2[a1, a2, a4, a5, a6, n] + 
    S2[a3, n]*S2[a1, a2, a4, a6, a5, n] + S2[a1, a2, a4, a6, SP[a3, a5], n] + 
    S2[a1, a2, a4, SP[a3, a5], a6, n] - S2[a1, a2, a4, SP[a5, a6], a3, n] - 
    S2[a5, n]*S2[a1, a2, a6, a3, a4, n] - S2[a1, a2, a6, a3, SP[a4, a5], n] + 
    S2[a3, n]*S2[a1, a2, a6, a4, a5, n] + S2[a1, a2, a6, a4, SP[a3, a5], n] + 
    S2[a3, n]*S2[a1, a2, a6, a5, a4, n] + S2[a1, a2, a6, a5, SP[a3, a4], n] + 
    S2[a1, a2, a6, SP[a3, a4], a5, n] + S2[a1, a2, SP[a3, a4], a5, a6, n] + 
    S2[a1, a2, SP[a3, a4], a6, a5, n] + S2[a1, a2, SP[a3, a6], a4, a5, n] + 
    S2[a1, a2, SP[a3, a6], a5, a4, n] - S2[a1, a2, SP[a4, a6], a3, a5, n] - 
    S2[a1, a2, SP[a4, a6], a5, a3, n] - S2[a1, a2, SP[a5, a6], a3, a4, n] - 
    S2[a1, a3, a4, a5, SP[a2, a6], n] - S2[a1, a3, a4, a6, SP[a2, a5], n] - 
    S2[a1, a3, a4, SP[a2, a5], a6, n] - S2[a1, a3, a4, SP[a2, a6], a5, n] - 
    S2[a1, a3, a6, a4, SP[a2, a5], n] - S2[a1, a3, a6, a5, SP[a2, a4], n] - 
    S2[a1, a3, a6, SP[a2, a4], a5, n] - S2[a1, a3, a6, SP[a2, a5], a4, n] - 
    S2[a1, a3, SP[a2, a4], a5, a6, n] - S2[a1, a3, SP[a2, a4], a6, a5, n] - 
    S2[a1, a3, SP[a2, a6], a4, a5, n] - S2[a1, a3, SP[a2, a6], a5, a4, n] - 
    S2[a6, n]*S2[a1, a4, a2, a3, a5, n] - S2[a1, a4, a2, a3, SP[a5, a6], n] - 
    S2[a6, n]*S2[a1, a4, a2, a5, a3, n] + 
    S2[a3, n]*S2[a1, a4, a2, a5, a6, n] + 
    S2[a3, n]*S2[a1, a4, a2, a6, a5, n] + S2[a1, a4, a2, a6, SP[a3, a5], n] + 
    S2[a1, a4, a2, SP[a3, a5], a6, n] - S2[a1, a4, a2, SP[a5, a6], a3, n] - 
    S2[a6, n]*S2[a1, a4, a3, a2, a5, n] - S2[a1, a4, a3, a2, SP[a5, a6], n] - 
    S2[a6, n]*S2[a1, a4, a3, a5, a2, n] - S2[a1, a4, a3, a5, SP[a2, a6], n] - 
    S2[a1, a4, a3, SP[a2, a6], a5, n] - S2[a1, a4, a3, SP[a5, a6], a2, n] - 
    S2[a6, n]*S2[a1, a4, a5, a2, a3, n] + 
    S2[a3, n]*S2[a1, a4, a5, a2, a6, n] - 
    S2[a6, n]*S2[a1, a4, a5, a3, a2, n] - S2[a1, a4, a5, a3, SP[a2, a6], n] + 
    S2[a3, n]*S2[a1, a4, a5, a6, a2, n] + S2[a1, a4, a5, a6, SP[a2, a3], n] + 
    S2[a1, a4, a5, SP[a2, a3], a6, n] - S2[a1, a4, a5, SP[a2, a6], a3, n] + 
    S2[a3, n]*S2[a1, a4, a6, a2, a5, n] + S2[a1, a4, a6, a2, SP[a3, a5], n] + 
    S2[a3, n]*S2[a1, a4, a6, a5, a2, n] + S2[a1, a4, a6, a5, SP[a2, a3], n] + 
    S2[a1, a4, a6, SP[a2, a3], a5, n] + S2[a1, a4, a6, SP[a3, a5], a2, n] + 
    S2[a1, a4, SP[a2, a3], a5, a6, n] + S2[a1, a4, SP[a2, a3], a6, a5, n] - 
    S2[a1, a4, SP[a2, a6], a3, a5, n] - S2[a1, a4, SP[a2, a6], a5, a3, n] + 
    S2[a1, a4, SP[a3, a5], a2, a6, n] + S2[a1, a4, SP[a3, a5], a6, a2, n] - 
    S2[a1, a4, SP[a5, a6], a2, a3, n] - S2[a1, a4, SP[a5, a6], a3, a2, n] + 
    S2[a1, a5, a6, a3, SP[a2, a4], n] + S2[a1, a5, a6, SP[a2, a3], a4, n] + 
    S2[a1, a5, SP[a2, a6], a3, a4, n] - S2[a5, n]*S2[a1, a6, a2, a3, a4, n] - 
    S2[a1, a6, a2, a3, SP[a4, a5], n] + S2[a3, n]*S2[a1, a6, a2, a4, a5, n] + 
    S2[a1, a6, a2, a4, SP[a3, a5], n] + S2[a3, n]*S2[a1, a6, a2, a5, a4, n] + 
    S2[a1, a6, a2, a5, SP[a3, a4], n] + S2[a1, a6, a2, SP[a3, a4], a5, n] - 
    S2[a5, n]*S2[a1, a6, a3, a2, a4, n] - S2[a1, a6, a3, a2, SP[a4, a5], n] - 
    S2[a5, n]*S2[a1, a6, a3, a4, a2, n] - S2[a1, a6, a3, a4, SP[a2, a5], n] - 
    S2[a1, a6, a3, SP[a2, a5], a4, n] - S2[a1, a6, a3, SP[a4, a5], a2, n] + 
    S2[a3, n]*S2[a1, a6, a4, a2, a5, n] + S2[a1, a6, a4, a2, SP[a3, a5], n] + 
    S2[a3, n]*S2[a1, a6, a4, a5, a2, n] + S2[a1, a6, a4, a5, SP[a2, a3], n] + 
    S2[a1, a6, a4, SP[a2, a3], a5, n] + S2[a1, a6, a4, SP[a3, a5], a2, n] + 
    S2[a3, n]*S2[a1, a6, a5, a2, a4, n] + S2[a1, a6, a5, a2, SP[a3, a4], n] + 
    S2[a3, n]*S2[a1, a6, a5, a4, a2, n] + S2[a1, a6, a5, a4, SP[a2, a3], n] + 
    S2[a1, a6, a5, SP[a2, a3], a4, n] + S2[a1, a6, a5, SP[a3, a4], a2, n] + 
    S2[a1, a6, SP[a2, a3], a4, a5, n] + S2[a1, a6, SP[a2, a3], a5, a4, n] - 
    S2[a1, a6, SP[a2, a5], a3, a4, n] + S2[a1, a6, SP[a3, a4], a2, a5, n] + 
    S2[a1, a6, SP[a3, a4], a5, a2, n] - S2[a1, SP[a2, a6], a4, a3, a5, n] - 
    S2[a1, SP[a2, a6], a4, a5, a3, n] + S2[a1, SP[a3, a4], a2, a5, a6, n] + 
    S2[a1, SP[a3, a4], a2, a6, a5, n] + S2[a1, SP[a3, a4], a5, a2, a6, n] + 
    S2[a1, SP[a3, a4], a5, a6, a2, n] + S2[a1, SP[a3, a4], a6, a2, a5, n] + 
    S2[a1, SP[a3, a4], a6, a5, a2, n] + S2[a1, SP[a3, a6], a2, a4, a5, n] + 
    S2[a1, SP[a3, a6], a2, a5, a4, n] + S2[a1, SP[a3, a6], a4, a2, a5, n] + 
    S2[a1, SP[a3, a6], a4, a5, a2, n] + S2[a1, SP[a3, a6], a5, a2, a4, n] + 
    S2[a1, SP[a3, a6], a5, a4, a2, n] - S2[a1, SP[a4, a6], a2, a3, a5, n] - 
    S2[a1, SP[a4, a6], a2, a5, a3, n] - S2[a1, SP[a4, a6], a3, a2, a5, n] - 
    S2[a1, SP[a4, a6], a3, a5, a2, n] - S2[a1, SP[a4, a6], a5, a2, a3, n] - 
    S2[a1, SP[a4, a6], a5, a3, a2, n] - S2[a1, SP[a5, a6], a2, a3, a4, n] - 
    S2[a1, SP[a5, a6], a3, a2, a4, n] - S2[a1, SP[a5, a6], a3, a4, a2, n] - 
    S2[a3, a1, a4, a5, SP[a2, a6], n] - S2[a3, a1, a4, a6, SP[a2, a5], n] - 
    S2[a3, a1, a4, SP[a2, a5], a6, n] - S2[a3, a1, a4, SP[a2, a6], a5, n] - 
    S2[a3, a1, a6, a4, SP[a2, a5], n] - S2[a3, a1, a6, a5, SP[a2, a4], n] - 
    S2[a3, a1, a6, SP[a2, a4], a5, n] - S2[a3, a1, a6, SP[a2, a5], a4, n] - 
    S2[a3, a1, SP[a2, a4], a5, a6, n] - S2[a3, a1, SP[a2, a4], a6, a5, n] - 
    S2[a3, a1, SP[a2, a6], a4, a5, n] - S2[a3, a1, SP[a2, a6], a5, a4, n] + 
    S2[a6, n]*S2[a3, a4, a1, a2, a5, n] + S2[a3, a4, a1, a2, SP[a5, a6], n] + 
    S2[a6, n]*S2[a3, a4, a1, a5, a2, n] - S2[a3, a4, a1, a6, SP[a2, a5], n] - 
    S2[a3, a4, a1, SP[a2, a5], a6, n] + S2[a3, a4, a1, SP[a5, a6], a2, n] + 
    S2[a6, n]*S2[a3, a4, a5, a1, a2, n] - S2[a3, a4, a6, a1, SP[a2, a5], n] - 
    S2[a3, a4, a6, SP[a1, a5], a2, n] - S2[a3, a4, SP[a1, a5], a2, a6, n] - 
    S2[a3, a4, SP[a1, a5], a6, a2, n] + S2[a3, a4, SP[a5, a6], a1, a2, n] + 
    S2[a5, n]*S2[a3, a6, a1, a2, a4, n] + S2[a3, a6, a1, a2, SP[a4, a5], n] + 
    S2[a5, n]*S2[a3, a6, a1, a4, a2, n] - S2[a3, a6, a1, a5, SP[a2, a4], n] - 
    S2[a3, a6, a1, SP[a2, a4], a5, n] + S2[a3, a6, a1, SP[a4, a5], a2, n] - 
    S2[a3, a6, a4, a1, SP[a2, a5], n] - S2[a3, a6, a4, SP[a1, a5], a2, n] - 
    S2[a3, a6, a5, a1, SP[a2, a4], n] - S2[a3, a6, a5, SP[a1, a4], a2, n] - 
    S2[a3, a6, SP[a1, a4], a2, a5, n] - S2[a3, a6, SP[a1, a4], a5, a2, n] - 
    S2[a3, SP[a1, a4], a2, a5, a6, n] - S2[a3, SP[a1, a4], a2, a6, a5, n] - 
    S2[a3, SP[a1, a4], a5, a2, a6, n] - S2[a3, SP[a1, a4], a5, a6, a2, n] - 
    S2[a3, SP[a1, a4], a6, a2, a5, n] - S2[a3, SP[a1, a4], a6, a5, a2, n] - 
    S2[a3, SP[a1, a6], a2, a4, a5, n] - S2[a3, SP[a1, a6], a2, a5, a4, n] - 
    S2[a3, SP[a1, a6], a4, a2, a5, n] - S2[a3, SP[a1, a6], a4, a5, a2, n] - 
    S2[a3, SP[a1, a6], a5, a2, a4, n] - S2[a3, SP[a1, a6], a5, a4, a2, n] + 
    S2[a3, SP[a4, a6], a1, a2, a5, n] + S2[a3, SP[a4, a6], a1, a5, a2, n] + 
    S2[a3, SP[a4, a6], a5, a1, a2, n] + S2[a3, SP[a5, a6], a1, a2, a4, n] + 
    S2[a3, SP[a5, a6], a1, a4, a2, n] + S2[a5, a1, a6, a3, SP[a2, a4], n] + 
    S2[a5, a1, a6, SP[a2, a3], a4, n] + S2[a5, a1, SP[a2, a6], a3, a4, n] - 
    S2[a3, n]*S2[a5, a6, a1, a2, a4, n] - S2[a5, a6, a1, a2, SP[a3, a4], n] + 
    S2[a5, a6, a1, a3, SP[a2, a4], n] - S2[a3, n]*S2[a5, a6, a1, a4, a2, n] - 
    S2[a5, a6, a1, a4, SP[a2, a3], n] - S2[a5, a6, a1, SP[a3, a4], a2, n] + 
    S2[a5, a6, a3, a1, SP[a2, a4], n] + S2[a5, a6, a3, SP[a1, a4], a2, n] + 
    S2[a5, SP[a1, a6], a2, a3, a4, n] + S2[a5, SP[a1, a6], a3, a2, a4, n] + 
    S2[a5, SP[a1, a6], a3, a4, a2, n] - S2[a5, SP[a3, a6], a1, a2, a4, n] - 
    S2[a5, SP[a3, a6], a1, a4, a2, n] + S2[a5, n]*S2[a6, a1, a2, a4, a3, n] + 
    S2[a6, a1, a2, a4, SP[a3, a5], n] + S2[a6, a1, a2, SP[a4, a5], a3, n] + 
    S2[a5, n]*S2[a6, a1, a4, a2, a3, n] + S2[a6, a1, a4, a2, SP[a3, a5], n] + 
    S2[a5, n]*S2[a6, a1, a4, a3, a2, n] + S2[a6, a1, a4, a3, SP[a2, a5], n] + 
    S2[a6, a1, a4, SP[a2, a5], a3, n] + S2[a6, a1, a4, SP[a3, a5], a2, n] + 
    S2[a6, a1, SP[a2, a5], a4, a3, n] + S2[a6, a1, SP[a4, a5], a2, a3, n] + 
    S2[a6, a1, SP[a4, a5], a3, a2, n] - S2[a1, n]*S2[a6, a2, a5, a4, a3, n] - 
    S2[a6, a2, a5, a4, SP[a1, a3], n] - S2[a6, a2, a5, SP[a1, a4], a3, n] - 
    S2[a6, a2, SP[a1, a5], a4, a3, n] - S2[a5, n]*S2[a6, a3, a4, a1, a2, n] - 
    S2[a6, a3, a4, a1, SP[a2, a5], n] - S2[a6, a3, a4, SP[a1, a5], a2, n] - 
    S2[a6, a3, SP[a4, a5], a1, a2, n] - S2[a1, n]*S2[a6, a5, a2, a4, a3, n] - 
    S2[a6, a5, a2, a4, SP[a1, a3], n] - S2[a6, a5, a2, SP[a1, a4], a3, n] + 
    S2[a3, n]*S2[a6, a5, a4, a1, a2, n] + S2[a6, a5, a4, a1, SP[a2, a3], n] - 
    S2[a1, n]*S2[a6, a5, a4, a2, a3, n] - S2[a6, a5, a4, a2, SP[a1, a3], n] - 
    S2[a1, n]*S2[a6, a5, a4, a3, a2, n] - S2[a6, a5, a4, a3, SP[a1, a2], n] - 
    S2[a6, a5, a4, SP[a1, a2], a3, n] - S2[a6, a5, SP[a1, a2], a4, a3, n] - 
    S2[a6, a5, SP[a1, a4], a2, a3, n] - S2[a6, a5, SP[a1, a4], a3, a2, n] + 
    S2[a6, a5, SP[a3, a4], a1, a2, n] - S2[a6, SP[a1, a2], a5, a4, a3, n] - 
    S2[SP[a1, a6], a2, a4, a3, a5, n] - S2[SP[a1, a6], a2, a4, a5, a3, n] - 
    S2[SP[a1, a6], a2, a5, a4, a3, n] - S2[SP[a1, a6], a4, a2, a3, a5, n] - 
    S2[SP[a1, a6], a4, a2, a5, a3, n] - S2[SP[a1, a6], a4, a3, a2, a5, n] - 
    S2[SP[a1, a6], a4, a3, a5, a2, n] - S2[SP[a1, a6], a4, a5, a2, a3, n] - 
    S2[SP[a1, a6], a4, a5, a3, a2, n] - S2[SP[a1, a6], a5, a2, a4, a3, n] - 
    S2[SP[a1, a6], a5, a4, a2, a3, n] - S2[SP[a1, a6], a5, a4, a3, a2, n] + 
    S2[SP[a3, a6], a4, a1, a2, a5, n] + S2[SP[a3, a6], a4, a1, a5, a2, n] + 
    S2[SP[a3, a6], a4, a5, a1, a2, n] + S2[SP[a3, a6], a5, a4, a1, a2, n] + 
    S2[SP[a5, a6], a1, a2, a4, a3, n] + S2[SP[a5, a6], a1, a4, a2, a3, n] + 
    S2[SP[a5, a6], a1, a4, a3, a2, n] - S2[SP[a5, a6], a3, a4, a1, a2, n] + 
    S2[a6, a2, a1, a5, a4, a3, n] + S2[a6, a2, a5, a1, a4, a3, n] + 
    S2[a6, a2, a5, a4, a1, a3, n] + S2[a6, a2, a5, a4, a3, a1, n] + 
    S2[a6, a5, a2, a1, a4, a3, n] + S2[a6, a5, a2, a4, a1, a3, n] + 
    S2[a6, a5, a2, a4, a3, a1, n] + S2[a6, a5, a4, a2, a1, a3, n] + 
    S2[a6, a5, a4, a2, a3, a1, n] + S2[a6, a5, a4, a3, a2, a1, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a1_, a3_, a2_, a4_, a5_, a6_, n_] :> 
  S2[a1, a3, a2, n]*S2[a4, a5, a6, n] + S2[SP[a1, a4], SP[a3, a5], 
     SP[a2, a6], n] + S2[a5, a6, n]*S2[a1, a3, a2, a4, n] - 
    S2[a1, a3, SP[a2, a5], SP[a4, a6], n] - S2[a1, a4, SP[a3, a5], 
     SP[a2, a6], n] - S2[a1, SP[a3, a4], a5, SP[a2, a6], n] - 
    S2[a1, SP[a3, a4], SP[a2, a5], a6, n] - S2[a1, SP[a3, a5], a2, 
     SP[a4, a6], n] - S2[a1, SP[a3, a5], SP[a2, a6], a4, n] + 
    S2[a1, a3, n]*S2[a2, a4, a5, a6, n] + S2[a1, a3, n]*
     S2[a2, a4, a6, a5, n] - S2[a2, a4, SP[a1, a5], SP[a3, a6], n] - 
    S2[a2, a4, SP[a1, a6], SP[a3, a5], n] + S2[a1, a3, n]*
     S2[a2, a6, a4, a5, n] + S2[a1, a3, n]*S2[a2, a6, a5, a4, n] - 
    S2[a2, a6, SP[a1, a4], SP[a3, a5], n] - S2[a2, a6, SP[a1, a5], 
     SP[a3, a4], n] - S2[a2, SP[a1, a4], a5, SP[a3, a6], n] - 
    S2[a2, SP[a1, a4], a6, SP[a3, a5], n] - S2[a2, SP[a1, a4], SP[a3, a5], 
     a6, n] - S2[a2, SP[a1, a4], SP[a3, a6], a5, n] - 
    S2[a2, SP[a1, a6], a4, SP[a3, a5], n] - S2[a2, SP[a1, a6], a5, 
     SP[a3, a4], n] - S2[a2, SP[a1, a6], SP[a3, a4], a5, n] - 
    S2[a2, SP[a1, a6], SP[a3, a5], a4, n] - S2[a4, a1, SP[a3, a5], 
     SP[a2, a6], n] - S2[a4, SP[a1, a5], a3, SP[a2, a6], n] - 
    S2[a4, SP[a1, a5], SP[a3, a6], a2, n] - S2[a1, a3, n]*
     S2[a5, a6, a2, a4, n] + S2[a5, a6, SP[a1, a2], SP[a3, a4], n] + 
    S2[a5, SP[a1, a6], a2, SP[a3, a4], n] + S2[a5, SP[a1, a6], SP[a2, a3], 
     a4, n] - S2[SP[a1, a2], a4, a5, SP[a3, a6], n] - 
    S2[SP[a1, a2], a4, a6, SP[a3, a5], n] - S2[SP[a1, a2], a4, SP[a3, a5], 
     a6, n] - S2[SP[a1, a2], a4, SP[a3, a6], a5, n] - 
    S2[SP[a1, a2], a6, a4, SP[a3, a5], n] - S2[SP[a1, a2], a6, a5, 
     SP[a3, a4], n] - S2[SP[a1, a2], a6, SP[a3, a4], a5, n] - 
    S2[SP[a1, a2], a6, SP[a3, a5], a4, n] - S2[SP[a1, a2], SP[a3, a4], a5, 
     a6, n] - S2[SP[a1, a2], SP[a3, a4], a6, a5, n] - 
    S2[SP[a1, a2], SP[a3, a6], a4, a5, n] - S2[SP[a1, a2], SP[a3, a6], a5, 
     a4, n] - S2[SP[a1, a4], a3, a5, SP[a2, a6], n] - 
    S2[SP[a1, a4], a3, SP[a2, a5], a6, n] - S2[SP[a1, a4], a5, a3, 
     SP[a2, a6], n] - S2[SP[a1, a4], a5, SP[a3, a6], a2, n] - 
    S2[SP[a1, a4], SP[a3, a5], a2, a6, n] - S2[SP[a1, a4], SP[a3, a5], a6, 
     a2, n] - S2[SP[a1, a5], a3, a2, SP[a4, a6], n] - 
    S2[SP[a1, a5], a3, SP[a2, a6], a4, n] + S2[SP[a1, a5], a6, a2, 
     SP[a3, a4], n] + S2[SP[a1, a5], a6, SP[a2, a3], a4, n] + 
    S2[a1, a2, a4, a5, SP[a3, a6], n] + S2[a1, a2, a4, a6, SP[a3, a5], n] + 
    S2[a1, a2, a4, SP[a3, a5], a6, n] + S2[a1, a2, a4, SP[a3, a6], a5, n] + 
    S2[a1, a2, a6, a4, SP[a3, a5], n] + S2[a1, a2, a6, a5, SP[a3, a4], n] + 
    S2[a1, a2, a6, SP[a3, a4], a5, n] + S2[a1, a2, a6, SP[a3, a5], a4, n] + 
    S2[a1, a2, SP[a3, a4], a5, a6, n] + S2[a1, a2, SP[a3, a4], a6, a5, n] + 
    S2[a1, a2, SP[a3, a6], a4, a5, n] + S2[a1, a2, SP[a3, a6], a5, a4, n] + 
    S2[a6, n]*S2[a1, a3, a2, a4, a5, n] - 
    S2[a5, n]*S2[a1, a3, a2, a4, a6, n] + 
    S2[a6, n]*S2[a1, a3, a2, a5, a4, n] - 
    S2[a4, n]*S2[a1, a3, a2, a5, a6, n] + S2[a1, a3, a2, a5, SP[a4, a6], n] - 
    S2[a5, n]*S2[a1, a3, a2, a6, a4, n] - S2[a1, a3, a2, a6, SP[a4, a5], n] - 
    S2[a1, a3, a2, SP[a4, a5], a6, n] + S2[a1, a3, a2, SP[a4, a6], a5, n] + 
    S2[a6, n]*S2[a1, a3, a4, a2, a5, n] + S2[a1, a3, a4, a2, SP[a5, a6], n] + 
    S2[a6, n]*S2[a1, a3, a4, a5, a2, n] - 
    S2[a2, n]*S2[a1, a3, a4, a5, a6, n] + S2[a1, a3, a4, a5, SP[a2, a6], n] - 
    S2[a2, n]*S2[a1, a3, a4, a6, a5, n] - S2[a1, a3, a4, a6, SP[a2, a5], n] + 
    S2[a1, a3, a4, SP[a5, a6], a2, n] + S2[a6, n]*S2[a1, a3, a5, a2, a4, n] - 
    S2[a4, n]*S2[a1, a3, a5, a2, a6, n] + S2[a1, a3, a5, a2, SP[a4, a6], n] + 
    S2[a6, n]*S2[a1, a3, a5, a4, a2, n] + S2[a1, a3, a5, a4, SP[a2, a6], n] - 
    S2[a4, n]*S2[a1, a3, a5, a6, a2, n] - S2[a1, a3, a5, a6, SP[a2, a4], n] - 
    S2[a1, a3, a5, SP[a2, a4], a6, n] + 2*S2[a1, a3, a5, SP[a2, a6], a4, n] - 
    S2[a2, n]*S2[a1, a3, a6, a4, a5, n] - S2[a1, a3, a6, a4, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a3, a6, a5, a4, n] - S2[a1, a3, a6, a5, SP[a2, a4], n] - 
    S2[a1, a3, a6, SP[a2, a4], a5, n] - S2[a1, a3, a6, SP[a2, a5], a4, n] - 
    S2[a1, a3, SP[a2, a4], a5, a6, n] - S2[a1, a3, SP[a2, a4], a6, a5, n] - 
    S2[a1, a3, SP[a4, a5], a2, a6, n] - S2[a1, a3, SP[a4, a5], a6, a2, n] + 
    S2[a1, a3, SP[a4, a6], a2, a5, n] + S2[a1, a3, SP[a4, a6], a5, a2, n] + 
    S2[a1, a3, SP[a5, a6], a2, a4, n] + S2[a1, a3, SP[a5, a6], a4, a2, n] + 
    S2[a6, n]*S2[a1, a4, a2, a3, a5, n] + S2[a1, a4, a2, a3, SP[a5, a6], n] + 
    S2[a6, n]*S2[a1, a4, a2, a5, a3, n] + S2[a1, a4, a2, a5, SP[a3, a6], n] + 
    S2[a1, a4, a2, SP[a3, a6], a5, n] + S2[a1, a4, a2, SP[a5, a6], a3, n] + 
    S2[a6, n]*S2[a1, a4, a3, a2, a5, n] + S2[a1, a4, a3, a2, SP[a5, a6], n] + 
    S2[a6, n]*S2[a1, a4, a3, a5, a2, n] - 
    S2[a2, n]*S2[a1, a4, a3, a5, a6, n] + S2[a1, a4, a3, a5, SP[a2, a6], n] - 
    S2[a2, n]*S2[a1, a4, a3, a6, a5, n] - S2[a1, a4, a3, a6, SP[a2, a5], n] + 
    S2[a1, a4, a3, SP[a5, a6], a2, n] + S2[a6, n]*S2[a1, a4, a5, a2, a3, n] + 
    S2[a1, a4, a5, a2, SP[a3, a6], n] + S2[a6, n]*S2[a1, a4, a5, a3, a2, n] - 
    S2[a2, n]*S2[a1, a4, a5, a3, a6, n] + S2[a1, a4, a5, a3, SP[a2, a6], n] - 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] - S2[a1, a4, a5, a6, SP[a2, a3], n] - 
    S2[a1, a4, a5, SP[a2, a3], a6, n] + 2*S2[a1, a4, a5, SP[a3, a6], a2, n] - 
    S2[a2, n]*S2[a1, a4, a6, a3, a5, n] - S2[a1, a4, a6, a3, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a4, a6, a5, a3, n] - S2[a1, a4, a6, a5, SP[a2, a3], n] - 
    S2[a1, a4, a6, SP[a2, a3], a5, n] - S2[a1, a4, a6, SP[a2, a5], a3, n] - 
    S2[a1, a4, SP[a2, a3], a5, a6, n] - S2[a1, a4, SP[a2, a3], a6, a5, n] - 
    S2[a1, a4, SP[a2, a5], a3, a6, n] - S2[a1, a4, SP[a2, a5], a6, a3, n] + 
    S2[a1, a4, SP[a3, a5], a2, a6, n] + S2[a1, a4, SP[a3, a5], a6, a2, n] + 
    S2[a1, a4, SP[a3, a6], a2, a5, n] + S2[a1, a4, SP[a3, a6], a5, a2, n] + 
    S2[a1, a4, SP[a5, a6], a2, a3, n] + S2[a1, a4, SP[a5, a6], a3, a2, n] + 
    S2[a6, n]*S2[a1, a5, a3, a2, a4, n] - 
    S2[a4, n]*S2[a1, a5, a3, a2, a6, n] + S2[a1, a5, a3, a2, SP[a4, a6], n] + 
    S2[a6, n]*S2[a1, a5, a3, a4, a2, n] + S2[a1, a5, a3, a4, SP[a2, a6], n] - 
    S2[a4, n]*S2[a1, a5, a3, a6, a2, n] - S2[a1, a5, a3, a6, SP[a2, a4], n] - 
    S2[a1, a5, a3, SP[a2, a4], a6, n] + 2*S2[a1, a5, a3, SP[a2, a6], a4, n] + 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] + S2[a1, a5, a4, a3, SP[a2, a6], n] + 
    S2[a1, a5, a4, SP[a3, a6], a2, n] - S2[a1, a5, a6, a2, SP[a3, a4], n] - 
    S2[a4, n]*S2[a1, a5, a6, a3, a2, n] - S2[a1, a5, a6, a3, SP[a2, a4], n] - 
    S2[a1, a5, a6, SP[a2, a3], a4, n] - S2[a1, a5, a6, SP[a3, a4], a2, n] - 
    S2[a1, a5, SP[a3, a4], a2, a6, n] - S2[a1, a5, SP[a3, a4], a6, a2, n] + 
    S2[a1, a5, SP[a3, a6], a2, a4, n] + S2[a1, a5, SP[a3, a6], a4, a2, n] + 
    S2[a5, n]*S2[a1, a6, a2, a3, a4, n] + S2[a1, a6, a2, a3, SP[a4, a5], n] + 
    S2[a5, n]*S2[a1, a6, a2, a4, a3, n] + S2[a1, a6, a2, a4, SP[a3, a5], n] + 
    S2[a1, a6, a2, SP[a3, a5], a4, n] + S2[a1, a6, a2, SP[a4, a5], a3, n] - 
    S2[a2, n]*S2[a1, a6, a3, a4, a5, n] - S2[a1, a6, a3, a4, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a6, a3, a5, a4, n] - S2[a1, a6, a3, a5, SP[a2, a4], n] - 
    S2[a1, a6, a3, SP[a2, a4], a5, n] - S2[a1, a6, a3, SP[a2, a5], a4, n] - 
    S2[a2, n]*S2[a1, a6, a4, a3, a5, n] - S2[a1, a6, a4, a3, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a6, a4, a5, a3, n] - S2[a1, a6, a4, a5, SP[a2, a3], n] - 
    S2[a1, a6, a4, SP[a2, a3], a5, n] - S2[a1, a6, a4, SP[a2, a5], a3, n] - 
    S2[a2, n]*S2[a1, a6, a5, a3, a4, n] - S2[a1, a6, a5, a3, SP[a2, a4], n] - 
    S2[a2, n]*S2[a1, a6, a5, a4, a3, n] - S2[a1, a6, a5, a4, SP[a2, a3], n] - 
    S2[a1, a6, a5, SP[a2, a3], a4, n] - S2[a1, a6, a5, SP[a2, a4], a3, n] - 
    S2[a1, a6, SP[a2, a3], a4, a5, n] - S2[a1, a6, SP[a2, a3], a5, a4, n] - 
    S2[a1, a6, SP[a2, a4], a3, a5, n] - S2[a1, a6, SP[a2, a4], a5, a3, n] - 
    S2[a1, SP[a2, a4], a3, a5, a6, n] - S2[a1, SP[a2, a4], a3, a6, a5, n] - 
    S2[a1, SP[a2, a4], a5, a3, a6, n] - S2[a1, SP[a2, a4], a5, a6, a3, n] - 
    S2[a1, SP[a2, a4], a6, a3, a5, n] - S2[a1, SP[a2, a4], a6, a5, a3, n] - 
    S2[a1, SP[a2, a6], a3, a4, a5, n] - S2[a1, SP[a2, a6], a3, a5, a4, n] - 
    S2[a1, SP[a2, a6], a4, a3, a5, n] - S2[a1, SP[a2, a6], a4, a5, a3, n] - 
    S2[a1, SP[a2, a6], a5, a3, a4, n] - S2[a1, SP[a2, a6], a5, a4, a3, n] + 
    S2[a1, SP[a3, a6], a2, a4, a5, n] + S2[a1, SP[a3, a6], a2, a5, a4, n] + 
    S2[a1, SP[a3, a6], a4, a2, a5, n] + S2[a1, SP[a3, a6], a4, a5, a2, n] + 
    S2[a1, SP[a3, a6], a5, a2, a4, n] + S2[a1, SP[a3, a6], a5, a4, a2, n] - 
    S2[a1, SP[a4, a5], a3, a2, a6, n] - S2[a1, SP[a4, a5], a3, a6, a2, n] - 
    S2[a1, SP[a4, a5], a6, a3, a2, n] + S2[a1, SP[a4, a6], a2, a3, a5, n] + 
    S2[a1, SP[a4, a6], a2, a5, a3, n] + S2[a1, SP[a4, a6], a3, a2, a5, n] + 
    S2[a1, SP[a4, a6], a3, a5, a2, n] + S2[a1, SP[a4, a6], a5, a2, a3, n] + 
    S2[a1, SP[a4, a6], a5, a3, a2, n] + S2[a1, SP[a5, a6], a2, a3, a4, n] + 
    S2[a1, SP[a5, a6], a2, a4, a3, n] + S2[a1, SP[a5, a6], a3, a2, a4, n] + 
    S2[a1, SP[a5, a6], a3, a4, a2, n] + S2[a1, SP[a5, a6], a4, a3, a2, n] + 
    S2[a2, a1, a4, a5, SP[a3, a6], n] + S2[a2, a1, a4, a6, SP[a3, a5], n] + 
    S2[a2, a1, a4, SP[a3, a5], a6, n] + S2[a2, a1, a4, SP[a3, a6], a5, n] + 
    S2[a2, a1, a6, a4, SP[a3, a5], n] + S2[a2, a1, a6, a5, SP[a3, a4], n] + 
    S2[a2, a1, a6, SP[a3, a4], a5, n] + S2[a2, a1, a6, SP[a3, a5], a4, n] + 
    S2[a2, a1, SP[a3, a4], a5, a6, n] + S2[a2, a1, SP[a3, a4], a6, a5, n] + 
    S2[a2, a1, SP[a3, a6], a4, a5, n] + S2[a2, a1, SP[a3, a6], a5, a4, n] - 
    S2[a6, n]*S2[a2, a4, a1, a3, a5, n] - S2[a2, a4, a1, a3, SP[a5, a6], n] - 
    S2[a6, n]*S2[a2, a4, a1, a5, a3, n] + S2[a2, a4, a1, a6, SP[a3, a5], n] + 
    S2[a2, a4, a1, SP[a3, a5], a6, n] - S2[a2, a4, a1, SP[a5, a6], a3, n] - 
    S2[a6, n]*S2[a2, a4, a5, a1, a3, n] + S2[a2, a4, a6, a1, SP[a3, a5], n] + 
    S2[a2, a4, a6, SP[a1, a5], a3, n] + S2[a2, a4, SP[a1, a5], a3, a6, n] + 
    S2[a2, a4, SP[a1, a5], a6, a3, n] - S2[a2, a4, SP[a5, a6], a1, a3, n] - 
    S2[a5, n]*S2[a2, a6, a1, a3, a4, n] - S2[a2, a6, a1, a3, SP[a4, a5], n] - 
    S2[a5, n]*S2[a2, a6, a1, a4, a3, n] + S2[a2, a6, a1, a5, SP[a3, a4], n] + 
    S2[a2, a6, a1, SP[a3, a4], a5, n] - S2[a2, a6, a1, SP[a4, a5], a3, n] + 
    S2[a2, a6, a4, a1, SP[a3, a5], n] + S2[a2, a6, a4, SP[a1, a5], a3, n] + 
    S2[a2, a6, a5, a1, SP[a3, a4], n] + S2[a2, a6, a5, SP[a1, a4], a3, n] + 
    S2[a2, a6, SP[a1, a4], a3, a5, n] + S2[a2, a6, SP[a1, a4], a5, a3, n] + 
    S2[a2, SP[a1, a4], a3, a5, a6, n] + S2[a2, SP[a1, a4], a3, a6, a5, n] + 
    S2[a2, SP[a1, a4], a5, a3, a6, n] + S2[a2, SP[a1, a4], a5, a6, a3, n] + 
    S2[a2, SP[a1, a4], a6, a3, a5, n] + S2[a2, SP[a1, a4], a6, a5, a3, n] + 
    S2[a2, SP[a1, a6], a3, a4, a5, n] + S2[a2, SP[a1, a6], a3, a5, a4, n] + 
    S2[a2, SP[a1, a6], a4, a3, a5, n] + S2[a2, SP[a1, a6], a4, a5, a3, n] + 
    S2[a2, SP[a1, a6], a5, a3, a4, n] + S2[a2, SP[a1, a6], a5, a4, a3, n] - 
    S2[a2, SP[a4, a6], a1, a3, a5, n] - S2[a2, SP[a4, a6], a1, a5, a3, n] - 
    S2[a2, SP[a4, a6], a5, a1, a3, n] - S2[a2, SP[a5, a6], a1, a3, a4, n] - 
    S2[a2, SP[a5, a6], a1, a4, a3, n] + S2[a4, a1, a3, a5, SP[a2, a6], n] + 
    S2[a4, a1, a3, SP[a2, a5], a6, n] + S2[a4, a1, a5, a3, SP[a2, a6], n] + 
    S2[a4, a1, a5, SP[a3, a6], a2, n] + S2[a4, a1, SP[a3, a5], a2, a6, n] + 
    S2[a4, a1, SP[a3, a5], a6, a2, n] - S2[a6, n]*S2[a4, a5, a1, a3, a2, n] + 
    S2[a4, SP[a1, a5], a3, a2, a6, n] + S2[a4, SP[a1, a5], a3, a6, a2, n] + 
    S2[a4, SP[a1, a5], a6, a3, a2, n] - S2[a4, SP[a5, a6], a1, a3, a2, n] + 
    S2[a5, a1, a3, a2, SP[a4, a6], n] + S2[a5, a1, a3, SP[a2, a6], a4, n] - 
    S2[a5, a1, a6, a2, SP[a3, a4], n] - S2[a5, a1, a6, SP[a2, a3], a4, n] - 
    S2[a5, a6, a1, a2, SP[a3, a4], n] + S2[a2, n]*S2[a5, a6, a1, a3, a4, n] + 
    S2[a5, a6, a1, a3, SP[a2, a4], n] + S2[a2, n]*S2[a5, a6, a1, a4, a3, n] + 
    S2[a5, a6, a1, a4, SP[a2, a3], n] + S2[a5, a6, a1, SP[a2, a4], a3, n] - 
    S2[a5, a6, a2, a1, SP[a3, a4], n] - S2[a5, a6, a2, SP[a1, a4], a3, n] - 
    S2[a5, SP[a1, a6], a2, a3, a4, n] - S2[a5, SP[a1, a6], a2, a4, a3, n] + 
    S2[a5, SP[a2, a6], a1, a3, a4, n] + S2[a5, SP[a2, a6], a1, a4, a3, n] - 
    S2[a5, n]*S2[a6, a1, a3, a2, a4, n] - S2[a6, a1, a3, a2, SP[a4, a5], n] - 
    S2[a5, n]*S2[a6, a1, a3, a4, a2, n] - S2[a6, a1, a3, a4, SP[a2, a5], n] - 
    S2[a6, a1, a3, SP[a2, a5], a4, n] - S2[a6, a1, a3, SP[a4, a5], a2, n] - 
    S2[a5, n]*S2[a6, a1, a4, a2, a3, n] - S2[a6, a1, a4, a2, SP[a3, a5], n] - 
    S2[a5, n]*S2[a6, a1, a4, a3, a2, n] - S2[a6, a1, a4, a3, SP[a2, a5], n] - 
    S2[a6, a1, a4, SP[a2, a5], a3, n] - S2[a6, a1, a4, SP[a3, a5], a2, n] - 
    S2[a6, a1, SP[a3, a5], a2, a4, n] - S2[a6, a1, SP[a3, a5], a4, a2, n] - 
    S2[a6, a1, SP[a4, a5], a2, a3, n] - S2[a6, a1, SP[a4, a5], a3, a2, n] + 
    S2[a5, n]*S2[a6, a2, a4, a1, a3, n] + S2[a6, a2, a4, a1, SP[a3, a5], n] + 
    S2[a6, a2, a4, SP[a1, a5], a3, n] + S2[a6, a2, SP[a4, a5], a1, a3, n] + 
    S2[a4, n]*S2[a6, a5, a1, a3, a2, n] + S2[a6, a5, a1, a3, SP[a2, a4], n] + 
    S2[a6, a5, a1, SP[a3, a4], a2, n] - S2[a2, n]*S2[a6, a5, a4, a1, a3, n] - 
    S2[a6, a5, a4, a1, SP[a2, a3], n] + S2[a1, n]*S2[a6, a5, a4, a2, a3, n] + 
    S2[a6, a5, a4, a2, SP[a1, a3], n] + S2[a6, a5, SP[a1, a4], a2, a3, n] + 
    S2[a6, a5, SP[a1, a4], a3, a2, n] - S2[a6, a5, SP[a2, a4], a1, a3, n] - 
    S2[a6, SP[a1, a5], a3, a2, a4, n] - S2[a6, SP[a1, a5], a3, a4, a2, n] - 
    S2[a6, SP[a1, a5], a4, a3, a2, n] + S2[a6, SP[a4, a5], a1, a3, a2, n] + 
    S2[SP[a1, a6], a3, a2, a4, a5, n] + S2[SP[a1, a6], a3, a2, a5, a4, n] + 
    S2[SP[a1, a6], a3, a4, a2, a5, n] + S2[SP[a1, a6], a3, a4, a5, a2, n] + 
    S2[SP[a1, a6], a3, a5, a2, a4, n] + S2[SP[a1, a6], a3, a5, a4, a2, n] + 
    S2[SP[a1, a6], a4, a2, a3, a5, n] + S2[SP[a1, a6], a4, a2, a5, a3, n] + 
    S2[SP[a1, a6], a4, a3, a2, a5, n] + S2[SP[a1, a6], a4, a3, a5, a2, n] + 
    S2[SP[a1, a6], a4, a5, a2, a3, n] + S2[SP[a1, a6], a4, a5, a3, a2, n] + 
    S2[SP[a1, a6], a5, a3, a2, a4, n] + S2[SP[a1, a6], a5, a3, a4, a2, n] + 
    S2[SP[a1, a6], a5, a4, a2, a3, n] + S2[SP[a1, a6], a5, a4, a3, a2, n] - 
    S2[SP[a2, a6], a4, a1, a3, a5, n] - S2[SP[a2, a6], a4, a1, a5, a3, n] - 
    S2[SP[a2, a6], a4, a5, a1, a3, n] - S2[SP[a2, a6], a5, a4, a1, a3, n] - 
    S2[SP[a5, a6], a1, a3, a2, a4, n] - S2[SP[a5, a6], a1, a3, a4, a2, n] - 
    S2[SP[a5, a6], a1, a4, a2, a3, n] - S2[SP[a5, a6], a1, a4, a3, a2, n] + 
    S2[SP[a5, a6], a2, a4, a1, a3, n] - S2[a6, a5, a4, a2, a3, a1, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a1_, a3_, a2_, a4_, a6_, a5_, n_] :> 
  S2[a1, a3, a2, n]*S2[a4, a6, a5, n] + S2[SP[a1, a4], SP[a3, a6], 
     SP[a2, a5], n] - S2[a5, a6, n]*S2[a1, a3, a2, a4, n] + 
    S2[a1, a3, SP[a2, a5], SP[a4, a6], n] - S2[a1, a4, SP[a3, a6], 
     SP[a2, a5], n] - S2[a1, SP[a3, a4], a6, SP[a2, a5], n] - 
    S2[a1, SP[a3, a4], SP[a2, a6], a5, n] + S2[a1, SP[a3, a5], a2, 
     SP[a4, a6], n] + S2[a1, SP[a3, a5], SP[a2, a6], a4, n] - 
    S2[a1, a3, n]*S2[a2, a6, a4, a5, n] - S2[a1, a3, n]*
     S2[a2, a6, a5, a4, n] + S2[a2, a6, SP[a1, a4], SP[a3, a5], n] + 
    S2[a2, a6, SP[a1, a5], SP[a3, a4], n] + S2[a2, SP[a1, a6], a4, 
     SP[a3, a5], n] + S2[a2, SP[a1, a6], a5, SP[a3, a4], n] + 
    S2[a2, SP[a1, a6], SP[a3, a4], a5, n] + S2[a2, SP[a1, a6], SP[a3, a5], 
     a4, n] - S2[a4, a1, SP[a3, a6], SP[a2, a5], n] - 
    S2[a4, SP[a1, a6], a3, SP[a2, a5], n] - S2[a4, SP[a1, a6], SP[a3, a5], 
     a2, n] + S2[a1, a3, n]*S2[a5, a6, a2, a4, n] - 
    S2[a5, a6, SP[a1, a2], SP[a3, a4], n] - S2[a5, SP[a1, a6], a2, 
     SP[a3, a4], n] - S2[a5, SP[a1, a6], SP[a2, a3], a4, n] + 
    S2[SP[a1, a2], a6, a4, SP[a3, a5], n] + S2[SP[a1, a2], a6, a5, 
     SP[a3, a4], n] + S2[SP[a1, a2], a6, SP[a3, a4], a5, n] + 
    S2[SP[a1, a2], a6, SP[a3, a5], a4, n] + S2[SP[a1, a2], SP[a3, a6], a4, 
     a5, n] + S2[SP[a1, a2], SP[a3, a6], a5, a4, n] - 
    S2[SP[a1, a4], a3, a6, SP[a2, a5], n] - S2[SP[a1, a4], a3, SP[a2, a6], 
     a5, n] - S2[SP[a1, a4], a6, a3, SP[a2, a5], n] - 
    S2[SP[a1, a4], a6, SP[a3, a5], a2, n] - S2[SP[a1, a4], SP[a3, a6], a2, 
     a5, n] - S2[SP[a1, a4], SP[a3, a6], a5, a2, n] + 
    S2[SP[a1, a5], a3, a2, SP[a4, a6], n] + S2[SP[a1, a5], a3, SP[a2, a6], 
     a4, n] - S2[SP[a1, a5], a6, a2, SP[a3, a4], n] - 
    S2[SP[a1, a5], a6, SP[a2, a3], a4, n] - S2[a1, a2, a6, a4, SP[a3, a5], 
     n] - S2[a1, a2, a6, a5, SP[a3, a4], n] - S2[a1, a2, a6, SP[a3, a4], a5, 
     n] - S2[a1, a2, a6, SP[a3, a5], a4, n] - S2[a1, a2, SP[a3, a6], a4, a5, 
     n] - S2[a1, a2, SP[a3, a6], a5, a4, n] + 
    S2[a5, n]*S2[a1, a3, a2, a4, a6, n] + S2[a1, a3, a2, a4, SP[a5, a6], n] - 
    S2[a1, a3, a2, a5, SP[a4, a6], n] + S2[a5, n]*S2[a1, a3, a2, a6, a4, n] - 
    S2[a4, n]*S2[a1, a3, a2, a6, a5, n] - S2[a1, a3, a2, SP[a4, a6], a5, n] + 
    S2[a1, a3, a2, SP[a5, a6], a4, n] + S2[a1, a3, a4, a6, SP[a2, a5], n] + 
    S2[a1, a3, a4, SP[a2, a6], a5, n] - S2[a1, a3, a5, a2, SP[a4, a6], n] - 
    S2[a1, a3, a5, SP[a2, a6], a4, n] - S2[a4, n]*S2[a1, a3, a6, a2, a5, n] - 
    S2[a1, a3, a6, a2, SP[a4, a5], n] + S2[a2, n]*S2[a1, a3, a6, a4, a5, n] + 
    S2[a1, a3, a6, a4, SP[a2, a5], n] - S2[a4, n]*S2[a1, a3, a6, a5, a2, n] + 
    S2[a2, n]*S2[a1, a3, a6, a5, a4, n] + S2[a1, a3, a6, SP[a2, a5], a4, n] - 
    S2[a1, a3, a6, SP[a4, a5], a2, n] + S2[a1, a3, SP[a2, a6], a4, a5, n] + 
    S2[a1, a3, SP[a2, a6], a5, a4, n] - S2[a1, a3, SP[a4, a6], a2, a5, n] - 
    S2[a1, a3, SP[a4, a6], a5, a2, n] + S2[a1, a4, a3, a6, SP[a2, a5], n] + 
    S2[a1, a4, a3, SP[a2, a6], a5, n] + S2[a1, a4, a6, a3, SP[a2, a5], n] + 
    S2[a1, a4, a6, SP[a3, a5], a2, n] + S2[a1, a4, SP[a3, a6], a2, a5, n] + 
    S2[a1, a4, SP[a3, a6], a5, a2, n] - S2[a1, a5, a3, a2, SP[a4, a6], n] - 
    S2[a1, a5, a3, SP[a2, a6], a4, n] + S2[a1, a5, a6, a2, SP[a3, a4], n] + 
    S2[a1, a5, a6, SP[a2, a3], a4, n] - S2[a5, n]*S2[a1, a6, a2, a3, a4, n] - 
    S2[a1, a6, a2, a3, SP[a4, a5], n] - S2[a5, n]*S2[a1, a6, a2, a4, a3, n] - 
    S2[a1, a6, a2, a4, SP[a3, a5], n] - S2[a1, a6, a2, SP[a3, a5], a4, n] - 
    S2[a1, a6, a2, SP[a4, a5], a3, n] - S2[a4, n]*S2[a1, a6, a3, a2, a5, n] - 
    S2[a1, a6, a3, a2, SP[a4, a5], n] + S2[a2, n]*S2[a1, a6, a3, a4, a5, n] + 
    S2[a1, a6, a3, a4, SP[a2, a5], n] - S2[a4, n]*S2[a1, a6, a3, a5, a2, n] + 
    S2[a2, n]*S2[a1, a6, a3, a5, a4, n] + S2[a1, a6, a3, SP[a2, a5], a4, n] - 
    S2[a1, a6, a3, SP[a4, a5], a2, n] + S2[a2, n]*S2[a1, a6, a4, a3, a5, n] + 
    S2[a1, a6, a4, a3, SP[a2, a5], n] + S2[a2, n]*S2[a1, a6, a4, a5, a3, n] + 
    S2[a1, a6, a4, a5, SP[a2, a3], n] + S2[a1, a6, a4, SP[a2, a3], a5, n] + 
    S2[a1, a6, a4, SP[a2, a5], a3, n] - S2[a4, n]*S2[a1, a6, a5, a3, a2, n] + 
    S2[a2, n]*S2[a1, a6, a5, a3, a4, n] + 
    S2[a2, n]*S2[a1, a6, a5, a4, a3, n] + S2[a1, a6, a5, a4, SP[a2, a3], n] + 
    S2[a1, a6, a5, SP[a2, a3], a4, n] + S2[a1, a6, a5, SP[a2, a4], a3, n] - 
    S2[a1, a6, a5, SP[a3, a4], a2, n] + S2[a1, a6, SP[a2, a3], a4, a5, n] + 
    S2[a1, a6, SP[a2, a3], a5, a4, n] + S2[a1, a6, SP[a2, a4], a3, a5, n] + 
    S2[a1, a6, SP[a2, a4], a5, a3, n] - S2[a1, a6, SP[a3, a4], a2, a5, n] - 
    S2[a1, a6, SP[a3, a4], a5, a2, n] - S2[a1, a6, SP[a4, a5], a3, a2, n] + 
    S2[a1, SP[a2, a6], a3, a4, a5, n] + S2[a1, SP[a2, a6], a3, a5, a4, n] + 
    S2[a1, SP[a2, a6], a4, a3, a5, n] + S2[a1, SP[a2, a6], a4, a5, a3, n] + 
    S2[a1, SP[a2, a6], a5, a3, a4, n] + S2[a1, SP[a2, a6], a5, a4, a3, n] - 
    S2[a1, SP[a4, a6], a3, a2, a5, n] - S2[a1, SP[a4, a6], a3, a5, a2, n] - 
    S2[a1, SP[a4, a6], a5, a3, a2, n] - S2[a1, SP[a5, a6], a2, a3, a4, n] - 
    S2[a1, SP[a5, a6], a2, a4, a3, n] - S2[a2, a1, a6, a4, SP[a3, a5], n] - 
    S2[a2, a1, a6, a5, SP[a3, a4], n] - S2[a2, a1, a6, SP[a3, a4], a5, n] - 
    S2[a2, a1, a6, SP[a3, a5], a4, n] - S2[a2, a1, SP[a3, a6], a4, a5, n] - 
    S2[a2, a1, SP[a3, a6], a5, a4, n] + S2[a5, n]*S2[a2, a6, a1, a3, a4, n] + 
    S2[a2, a6, a1, a3, SP[a4, a5], n] + S2[a5, n]*S2[a2, a6, a1, a4, a3, n] - 
    S2[a2, a6, a1, a5, SP[a3, a4], n] - S2[a2, a6, a1, SP[a3, a4], a5, n] + 
    S2[a2, a6, a1, SP[a4, a5], a3, n] - S2[a2, a6, a4, a1, SP[a3, a5], n] - 
    S2[a2, a6, a4, SP[a1, a5], a3, n] - S2[a2, a6, a5, a1, SP[a3, a4], n] - 
    S2[a2, a6, a5, SP[a1, a4], a3, n] - S2[a2, a6, SP[a1, a4], a3, a5, n] - 
    S2[a2, a6, SP[a1, a4], a5, a3, n] - S2[a2, SP[a1, a6], a3, a4, a5, n] - 
    S2[a2, SP[a1, a6], a3, a5, a4, n] - S2[a2, SP[a1, a6], a4, a3, a5, n] - 
    S2[a2, SP[a1, a6], a4, a5, a3, n] - S2[a2, SP[a1, a6], a5, a3, a4, n] - 
    S2[a2, SP[a1, a6], a5, a4, a3, n] + S2[a2, SP[a5, a6], a1, a3, a4, n] + 
    S2[a2, SP[a5, a6], a1, a4, a3, n] + S2[a4, a1, a3, a6, SP[a2, a5], n] + 
    S2[a4, a1, a3, SP[a2, a6], a5, n] + S2[a4, a1, a6, a3, SP[a2, a5], n] + 
    S2[a4, a1, a6, SP[a3, a5], a2, n] + S2[a4, a1, SP[a3, a6], a2, a5, n] + 
    S2[a4, a1, SP[a3, a6], a5, a2, n] + S2[a4, a6, a1, a3, SP[a2, a5], n] + 
    S2[a4, a6, a1, SP[a3, a5], a2, n] + S2[a4, a6, SP[a1, a5], a3, a2, n] + 
    S2[a4, SP[a1, a6], a3, a2, a5, n] + S2[a4, SP[a1, a6], a3, a5, a2, n] + 
    S2[a4, SP[a1, a6], a5, a3, a2, n] - S2[a5, a1, a3, a2, SP[a4, a6], n] - 
    S2[a5, a1, a3, SP[a2, a6], a4, n] + S2[a5, a1, a6, a2, SP[a3, a4], n] + 
    S2[a5, a1, a6, SP[a2, a3], a4, n] + S2[a5, a6, a1, a2, SP[a3, a4], n] - 
    S2[a2, n]*S2[a5, a6, a1, a3, a4, n] - S2[a5, a6, a1, a3, SP[a2, a4], n] - 
    S2[a2, n]*S2[a5, a6, a1, a4, a3, n] - S2[a5, a6, a1, a4, SP[a2, a3], n] - 
    S2[a5, a6, a1, SP[a2, a4], a3, n] + S2[a5, a6, a2, a1, SP[a3, a4], n] + 
    S2[a5, a6, a2, SP[a1, a4], a3, n] + S2[a5, SP[a1, a6], a2, a3, a4, n] + 
    S2[a5, SP[a1, a6], a2, a4, a3, n] - S2[a5, SP[a2, a6], a1, a3, a4, n] - 
    S2[a5, SP[a2, a6], a1, a4, a3, n] + S2[a5, n]*S2[a6, a1, a3, a2, a4, n] - 
    S2[a4, n]*S2[a6, a1, a3, a2, a5, n] + 
    S2[a5, n]*S2[a6, a1, a3, a4, a2, n] + S2[a6, a1, a3, a4, SP[a2, a5], n] - 
    S2[a4, n]*S2[a6, a1, a3, a5, a2, n] - S2[a6, a1, a3, a5, SP[a2, a4], n] - 
    S2[a6, a1, a3, SP[a2, a4], a5, n] + S2[a6, a1, a3, SP[a2, a5], a4, n] + 
    S2[a5, n]*S2[a6, a1, a4, a2, a3, n] + S2[a6, a1, a4, a2, SP[a3, a5], n] + 
    S2[a5, n]*S2[a6, a1, a4, a3, a2, n] + S2[a6, a1, a4, a3, SP[a2, a5], n] + 
    S2[a6, a1, a4, SP[a2, a5], a3, n] + S2[a6, a1, a4, SP[a3, a5], a2, n] - 
    S2[a4, n]*S2[a6, a1, a5, a3, a2, n] - S2[a6, a1, a5, a3, SP[a2, a4], n] - 
    S2[a6, a1, a5, SP[a3, a4], a2, n] - S2[a6, a1, SP[a3, a4], a2, a5, n] - 
    S2[a6, a1, SP[a3, a4], a5, a2, n] + S2[a6, a1, SP[a3, a5], a2, a4, n] + 
    S2[a6, a1, SP[a3, a5], a4, a2, n] + S2[a6, a1, SP[a4, a5], a2, a3, n] - 
    S2[a5, n]*S2[a6, a2, a4, a1, a3, n] - S2[a6, a2, a4, a1, SP[a3, a5], n] - 
    S2[a6, a2, a4, SP[a1, a5], a3, n] - S2[a6, a2, SP[a4, a5], a1, a3, n] + 
    S2[a2, n]*S2[a6, a4, a1, a3, a5, n] + S2[a6, a4, a1, a3, SP[a2, a5], n] + 
    S2[a2, n]*S2[a6, a4, a1, a5, a3, n] + S2[a6, a4, a1, a5, SP[a2, a3], n] + 
    S2[a6, a4, a1, SP[a2, a3], a5, n] + S2[a6, a4, a1, SP[a2, a5], a3, n] - 
    S2[a1, n]*S2[a6, a4, a2, a3, a5, n] - S2[a6, a4, a2, a3, SP[a1, a5], n] - 
    S2[a1, n]*S2[a6, a4, a2, a5, a3, n] - S2[a6, a4, a2, a5, SP[a1, a3], n] - 
    S2[a6, a4, a2, SP[a1, a3], a5, n] - S2[a6, a4, a2, SP[a1, a5], a3, n] + 
    S2[a2, n]*S2[a6, a4, a5, a1, a3, n] + S2[a6, a4, a5, a1, SP[a2, a3], n] - 
    S2[a1, n]*S2[a6, a4, a5, a2, a3, n] - S2[a6, a4, a5, a2, SP[a1, a3], n] - 
    S2[a6, a4, SP[a1, a5], a2, a3, n] + S2[a6, a4, SP[a2, a5], a1, a3, n] - 
    S2[a4, n]*S2[a6, a5, a1, a3, a2, n] - S2[a6, a5, a1, a3, SP[a2, a4], n] - 
    S2[a6, a5, a1, SP[a3, a4], a2, n] + S2[a2, n]*S2[a6, a5, a4, a1, a3, n] + 
    S2[a6, a5, a4, a1, SP[a2, a3], n] - S2[a1, n]*S2[a6, a5, a4, a2, a3, n] - 
    S2[a6, a5, a4, a2, SP[a1, a3], n] - S2[a6, a5, SP[a1, a4], a2, a3, n] - 
    S2[a6, a5, SP[a1, a4], a3, a2, n] + S2[a6, a5, SP[a2, a4], a1, a3, n] - 
    S2[a6, SP[a1, a4], a2, a3, a5, n] - S2[a6, SP[a1, a4], a2, a5, a3, n] - 
    S2[a6, SP[a1, a4], a3, a2, a5, n] - S2[a6, SP[a1, a4], a3, a5, a2, n] - 
    S2[a6, SP[a1, a4], a5, a2, a3, n] - S2[a6, SP[a1, a4], a5, a3, a2, n] + 
    S2[a6, SP[a1, a5], a3, a2, a4, n] + S2[a6, SP[a1, a5], a3, a4, a2, n] + 
    S2[a6, SP[a1, a5], a4, a3, a2, n] + S2[a6, SP[a2, a4], a1, a3, a5, n] + 
    S2[a6, SP[a2, a4], a1, a5, a3, n] + S2[a6, SP[a2, a4], a5, a1, a3, n] - 
    S2[a6, SP[a4, a5], a1, a3, a2, n] - S2[SP[a1, a6], a4, a2, a3, a5, n] - 
    S2[SP[a1, a6], a4, a2, a5, a3, n] - S2[SP[a1, a6], a4, a5, a2, a3, n] - 
    S2[SP[a1, a6], a5, a4, a2, a3, n] + S2[SP[a2, a6], a4, a1, a3, a5, n] + 
    S2[SP[a2, a6], a4, a1, a5, a3, n] + S2[SP[a2, a6], a4, a5, a1, a3, n] + 
    S2[SP[a2, a6], a5, a4, a1, a3, n] - S2[SP[a4, a6], a1, a3, a2, a5, n] - 
    S2[SP[a4, a6], a1, a3, a5, a2, n] - S2[SP[a4, a6], a1, a5, a3, a2, n] - 
    S2[SP[a4, a6], a5, a1, a3, a2, n] + S2[SP[a5, a6], a1, a3, a2, a4, n] + 
    S2[SP[a5, a6], a1, a3, a4, a2, n] + S2[SP[a5, a6], a1, a4, a2, a3, n] + 
    S2[SP[a5, a6], a1, a4, a3, a2, n] - S2[SP[a5, a6], a2, a4, a1, a3, n] + 
    S2[a6, a4, a2, a3, a1, a5, n] + S2[a6, a4, a2, a3, a5, a1, n] + 
    S2[a6, a4, a2, a5, a3, a1, n] + S2[a6, a4, a5, a2, a3, a1, n] + 
    S2[a6, a5, a4, a2, a3, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a1_, a3_, a2_, a5_, a4_, a6_, n_] :> 
  -(S2[a1, a3, a2, n]*S2[a4, a5, a6, n]) - S2[a1, a3, a2, n]*
     S2[a4, a6, a5, n] - S2[SP[a1, a4], SP[a3, a5], SP[a2, a6], n] - 
    S2[SP[a1, a4], SP[a3, a6], SP[a2, a5], n] + 
    S2[a4, a6, n]*S2[a1, a3, a2, a5, n] - S2[a1, a3, SP[a2, a4], SP[a5, a6], 
     n] + S2[a1, a4, SP[a3, a5], SP[a2, a6], n] + S2[a1, a4, SP[a3, a6], 
     SP[a2, a5], n] - S2[a1, SP[a3, a4], a2, SP[a5, a6], n] + 
    S2[a1, SP[a3, a4], a5, SP[a2, a6], n] + S2[a1, SP[a3, a4], a6, 
     SP[a2, a5], n] + S2[a1, SP[a3, a4], SP[a2, a5], a6, n] + 
    S2[a1, a3, n]*S2[a2, a5, a4, a6, n] + S2[a1, a3, n]*
     S2[a2, a5, a6, a4, n] - S2[a2, a5, SP[a1, a4], SP[a3, a6], n] - 
    S2[a2, a5, SP[a1, a6], SP[a3, a4], n] + S2[a1, a3, n]*
     S2[a2, a6, a4, a5, n] + S2[a1, a3, n]*S2[a2, a6, a5, a4, n] - 
    S2[a2, a6, SP[a1, a4], SP[a3, a5], n] - S2[a2, a6, SP[a1, a5], 
     SP[a3, a4], n] - S2[a2, SP[a1, a5], a4, SP[a3, a6], n] - 
    S2[a2, SP[a1, a5], a6, SP[a3, a4], n] - S2[a2, SP[a1, a5], SP[a3, a4], 
     a6, n] - S2[a2, SP[a1, a5], SP[a3, a6], a4, n] - 
    S2[a2, SP[a1, a6], a4, SP[a3, a5], n] - S2[a2, SP[a1, a6], a5, 
     SP[a3, a4], n] - S2[a2, SP[a1, a6], SP[a3, a4], a5, n] - 
    S2[a2, SP[a1, a6], SP[a3, a5], a4, n] + S2[a4, a1, SP[a3, a5], 
     SP[a2, a6], n] + S2[a4, a1, SP[a3, a6], SP[a2, a5], n] - 
    S2[a1, a3, n]*S2[a4, a6, a2, a5, n] + S2[a4, a6, SP[a1, a2], SP[a3, a5], 
     n] + S2[a4, SP[a1, a5], a3, SP[a2, a6], n] + 
    S2[a4, SP[a1, a5], SP[a3, a6], a2, n] + S2[a4, SP[a1, a6], a2, 
     SP[a3, a5], n] + S2[a4, SP[a1, a6], a3, SP[a2, a5], n] + 
    S2[a4, SP[a1, a6], SP[a2, a3], a5, n] + S2[a4, SP[a1, a6], SP[a3, a5], 
     a2, n] - S2[SP[a1, a2], a5, a4, SP[a3, a6], n] - 
    S2[SP[a1, a2], a5, a6, SP[a3, a4], n] - S2[SP[a1, a2], a5, SP[a3, a4], 
     a6, n] - S2[SP[a1, a2], a5, SP[a3, a6], a4, n] - 
    S2[SP[a1, a2], a6, a4, SP[a3, a5], n] - S2[SP[a1, a2], a6, a5, 
     SP[a3, a4], n] - S2[SP[a1, a2], a6, SP[a3, a4], a5, n] - 
    S2[SP[a1, a2], a6, SP[a3, a5], a4, n] - S2[SP[a1, a2], SP[a3, a5], a4, 
     a6, n] - S2[SP[a1, a2], SP[a3, a5], a6, a4, n] - 
    S2[SP[a1, a2], SP[a3, a6], a4, a5, n] - S2[SP[a1, a2], SP[a3, a6], a5, 
     a4, n] - S2[SP[a1, a4], a3, a2, SP[a5, a6], n] + 
    S2[SP[a1, a4], a3, a5, SP[a2, a6], n] + S2[SP[a1, a4], a3, a6, 
     SP[a2, a5], n] + S2[SP[a1, a4], a3, SP[a2, a5], a6, n] + 
    S2[SP[a1, a4], a5, a3, SP[a2, a6], n] + S2[SP[a1, a4], a5, SP[a3, a6], 
     a2, n] + S2[SP[a1, a4], a6, a2, SP[a3, a5], n] + 
    S2[SP[a1, a4], a6, a3, SP[a2, a5], n] + S2[SP[a1, a4], a6, SP[a2, a3], 
     a5, n] + S2[SP[a1, a4], a6, SP[a3, a5], a2, n] + 
    S2[SP[a1, a4], SP[a3, a5], a2, a6, n] + S2[SP[a1, a4], SP[a3, a5], a6, 
     a2, n] + S2[SP[a1, a4], SP[a3, a6], a2, a5, n] + 
    S2[SP[a1, a4], SP[a3, a6], a5, a2, n] + S2[a1, a2, a5, a4, SP[a3, a6], 
     n] + S2[a1, a2, a5, a6, SP[a3, a4], n] + S2[a1, a2, a5, SP[a3, a4], a6, 
     n] + S2[a1, a2, a5, SP[a3, a6], a4, n] + S2[a1, a2, a6, a4, SP[a3, a5], 
     n] + S2[a1, a2, a6, a5, SP[a3, a4], n] + S2[a1, a2, a6, SP[a3, a4], a5, 
     n] + S2[a1, a2, a6, SP[a3, a5], a4, n] + S2[a1, a2, SP[a3, a5], a4, a6, 
     n] + S2[a1, a2, SP[a3, a5], a6, a4, n] + S2[a1, a2, SP[a3, a6], a4, a5, 
     n] + S2[a1, a2, SP[a3, a6], a5, a4, n] + S2[a1, a3, a2, a4, SP[a5, a6], 
     n] + S2[a1, a3, a2, SP[a4, a5], a6, n] + S2[a1, a3, a4, a2, SP[a5, a6], 
     n] - S2[a1, a3, a4, a5, SP[a2, a6], n] - S2[a1, a3, a4, a6, SP[a2, a5], 
     n] - S2[a1, a3, a4, SP[a2, a5], a6, n] + 
    S2[a4, n]*S2[a1, a3, a5, a2, a6, n] + S2[a1, a3, a5, a2, SP[a4, a6], n] - 
    S2[a2, n]*S2[a1, a3, a5, a4, a6, n] - S2[a1, a3, a5, a4, SP[a2, a6], n] + 
    S2[a4, n]*S2[a1, a3, a5, a6, a2, n] - 
    S2[a2, n]*S2[a1, a3, a5, a6, a4, n] - S2[a1, a3, a5, SP[a2, a6], a4, n] + 
    S2[a1, a3, a5, SP[a4, a6], a2, n] + S2[a4, n]*S2[a1, a3, a6, a2, a5, n] + 
    S2[a1, a3, a6, a2, SP[a4, a5], n] - S2[a2, n]*S2[a1, a3, a6, a4, a5, n] - 
    S2[a1, a3, a6, a4, SP[a2, a5], n] + S2[a4, n]*S2[a1, a3, a6, a5, a2, n] - 
    S2[a2, n]*S2[a1, a3, a6, a5, a4, n] - S2[a1, a3, a6, SP[a2, a5], a4, n] + 
    S2[a1, a3, a6, SP[a4, a5], a2, n] - S2[a1, a3, SP[a2, a5], a4, a6, n] - 
    S2[a1, a3, SP[a2, a5], a6, a4, n] - S2[a1, a3, SP[a2, a6], a4, a5, n] - 
    S2[a1, a3, SP[a2, a6], a5, a4, n] + S2[a1, a3, SP[a4, a5], a2, a6, n] + 
    S2[a1, a3, SP[a4, a5], a6, a2, n] + S2[a1, a3, SP[a4, a6], a2, a5, n] + 
    S2[a1, a3, SP[a4, a6], a5, a2, n] + S2[a1, a4, a3, a2, SP[a5, a6], n] - 
    S2[a1, a4, a3, a5, SP[a2, a6], n] - S2[a1, a4, a3, a6, SP[a2, a5], n] - 
    S2[a1, a4, a3, SP[a2, a5], a6, n] - S2[a1, a4, a5, a3, SP[a2, a6], n] - 
    S2[a1, a4, a5, SP[a3, a6], a2, n] - S2[a1, a4, a6, a2, SP[a3, a5], n] - 
    S2[a1, a4, a6, a3, SP[a2, a5], n] - S2[a1, a4, a6, SP[a2, a3], a5, n] - 
    S2[a1, a4, a6, SP[a3, a5], a2, n] - S2[a1, a4, SP[a3, a5], a2, a6, n] - 
    S2[a1, a4, SP[a3, a5], a6, a2, n] - S2[a1, a4, SP[a3, a6], a2, a5, n] - 
    S2[a1, a4, SP[a3, a6], a5, a2, n] + S2[a6, n]*S2[a1, a5, a2, a3, a4, n] + 
    S2[a1, a5, a2, a3, SP[a4, a6], n] + S2[a6, n]*S2[a1, a5, a2, a4, a3, n] + 
    S2[a1, a5, a2, a4, SP[a3, a6], n] + S2[a1, a5, a2, SP[a3, a6], a4, n] + 
    S2[a1, a5, a2, SP[a4, a6], a3, n] + S2[a4, n]*S2[a1, a5, a3, a2, a6, n] + 
    S2[a1, a5, a3, a2, SP[a4, a6], n] - S2[a2, n]*S2[a1, a5, a3, a4, a6, n] - 
    S2[a1, a5, a3, a4, SP[a2, a6], n] + S2[a4, n]*S2[a1, a5, a3, a6, a2, n] - 
    S2[a2, n]*S2[a1, a5, a3, a6, a4, n] - S2[a1, a5, a3, SP[a2, a6], a4, n] + 
    S2[a1, a5, a3, SP[a4, a6], a2, n] + S2[a6, n]*S2[a1, a5, a4, a2, a3, n] + 
    S2[a1, a5, a4, a2, SP[a3, a6], n] - S2[a2, n]*S2[a1, a5, a4, a3, a6, n] - 
    S2[a1, a5, a4, a3, SP[a2, a6], n] - S2[a2, n]*S2[a1, a5, a4, a6, a3, n] - 
    S2[a1, a5, a4, a6, SP[a2, a3], n] - S2[a1, a5, a4, SP[a2, a3], a6, n] + 
    S2[a4, n]*S2[a1, a5, a6, a3, a2, n] - 
    S2[a2, n]*S2[a1, a5, a6, a3, a4, n] - 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] - S2[a1, a5, a6, a4, SP[a2, a3], n] - 
    S2[a1, a5, a6, SP[a2, a3], a4, n] - S2[a1, a5, a6, SP[a2, a4], a3, n] + 
    S2[a1, a5, a6, SP[a3, a4], a2, n] - S2[a1, a5, SP[a2, a3], a4, a6, n] - 
    S2[a1, a5, SP[a2, a3], a6, a4, n] - S2[a1, a5, SP[a2, a4], a3, a6, n] - 
    S2[a1, a5, SP[a2, a4], a6, a3, n] + S2[a1, a5, SP[a3, a4], a2, a6, n] + 
    S2[a1, a5, SP[a3, a4], a6, a2, n] + S2[a1, a5, SP[a4, a6], a2, a3, n] + 
    S2[a1, a5, SP[a4, a6], a3, a2, n] + S2[a4, n]*S2[a1, a6, a2, a3, a5, n] + 
    S2[a1, a6, a2, a3, SP[a4, a5], n] + S2[a4, n]*S2[a1, a6, a2, a5, a3, n] + 
    S2[a1, a6, a2, a5, SP[a3, a4], n] + S2[a1, a6, a2, SP[a3, a4], a5, n] + 
    S2[a1, a6, a2, SP[a4, a5], a3, n] + S2[a4, n]*S2[a1, a6, a3, a2, a5, n] + 
    S2[a1, a6, a3, a2, SP[a4, a5], n] - S2[a2, n]*S2[a1, a6, a3, a4, a5, n] - 
    S2[a1, a6, a3, a4, SP[a2, a5], n] + S2[a4, n]*S2[a1, a6, a3, a5, a2, n] - 
    S2[a2, n]*S2[a1, a6, a3, a5, a4, n] - S2[a1, a6, a3, SP[a2, a5], a4, n] + 
    S2[a1, a6, a3, SP[a4, a5], a2, n] - S2[a2, n]*S2[a1, a6, a4, a3, a5, n] - 
    S2[a1, a6, a4, a3, SP[a2, a5], n] - S2[a2, n]*S2[a1, a6, a4, a5, a3, n] - 
    S2[a1, a6, a4, a5, SP[a2, a3], n] - S2[a1, a6, a4, SP[a2, a3], a5, n] - 
    S2[a1, a6, a4, SP[a2, a5], a3, n] + S2[a4, n]*S2[a1, a6, a5, a3, a2, n] - 
    S2[a2, n]*S2[a1, a6, a5, a3, a4, n] - 
    S2[a2, n]*S2[a1, a6, a5, a4, a3, n] - S2[a1, a6, a5, a4, SP[a2, a3], n] - 
    S2[a1, a6, a5, SP[a2, a3], a4, n] - S2[a1, a6, a5, SP[a2, a4], a3, n] + 
    S2[a1, a6, a5, SP[a3, a4], a2, n] - S2[a1, a6, SP[a2, a3], a4, a5, n] - 
    S2[a1, a6, SP[a2, a3], a5, a4, n] - S2[a1, a6, SP[a2, a5], a3, a4, n] - 
    S2[a1, a6, SP[a2, a5], a4, a3, n] + S2[a1, a6, SP[a3, a4], a2, a5, n] + 
    S2[a1, a6, SP[a3, a4], a5, a2, n] + S2[a1, a6, SP[a4, a5], a3, a2, n] - 
    S2[a1, SP[a2, a5], a3, a4, a6, n] - S2[a1, SP[a2, a5], a3, a6, a4, n] - 
    S2[a1, SP[a2, a5], a4, a3, a6, n] - S2[a1, SP[a2, a5], a4, a6, a3, n] - 
    S2[a1, SP[a2, a5], a6, a3, a4, n] - S2[a1, SP[a2, a5], a6, a4, a3, n] - 
    S2[a1, SP[a2, a6], a3, a4, a5, n] - S2[a1, SP[a2, a6], a3, a5, a4, n] - 
    S2[a1, SP[a2, a6], a4, a3, a5, n] - S2[a1, SP[a2, a6], a4, a5, a3, n] - 
    S2[a1, SP[a2, a6], a5, a3, a4, n] - S2[a1, SP[a2, a6], a5, a4, a3, n] + 
    S2[a1, SP[a4, a5], a3, a2, a6, n] + S2[a1, SP[a4, a5], a3, a6, a2, n] + 
    S2[a1, SP[a4, a5], a6, a3, a2, n] + S2[a1, SP[a4, a6], a2, a3, a5, n] + 
    S2[a1, SP[a4, a6], a2, a5, a3, n] + S2[a1, SP[a4, a6], a3, a2, a5, n] + 
    S2[a1, SP[a4, a6], a3, a5, a2, n] + S2[a1, SP[a4, a6], a5, a3, a2, n] + 
    S2[a1, SP[a5, a6], a2, a3, a4, n] + S2[a1, SP[a5, a6], a2, a4, a3, n] + 
    S2[a1, SP[a5, a6], a4, a2, a3, n] + S2[a2, a1, a5, a4, SP[a3, a6], n] + 
    S2[a2, a1, a5, a6, SP[a3, a4], n] + S2[a2, a1, a5, SP[a3, a4], a6, n] + 
    S2[a2, a1, a5, SP[a3, a6], a4, n] + S2[a2, a1, a6, a4, SP[a3, a5], n] + 
    S2[a2, a1, a6, a5, SP[a3, a4], n] + S2[a2, a1, a6, SP[a3, a4], a5, n] + 
    S2[a2, a1, a6, SP[a3, a5], a4, n] + S2[a2, a1, SP[a3, a5], a4, a6, n] + 
    S2[a2, a1, SP[a3, a5], a6, a4, n] + S2[a2, a1, SP[a3, a6], a4, a5, n] + 
    S2[a2, a1, SP[a3, a6], a5, a4, n] - S2[a6, n]*S2[a2, a5, a1, a3, a4, n] - 
    S2[a2, a5, a1, a3, SP[a4, a6], n] - S2[a6, n]*S2[a2, a5, a1, a4, a3, n] + 
    S2[a2, a5, a1, a6, SP[a3, a4], n] + S2[a2, a5, a1, SP[a3, a4], a6, n] - 
    S2[a2, a5, a1, SP[a4, a6], a3, n] - S2[a6, n]*S2[a2, a5, a4, a1, a3, n] + 
    S2[a2, a5, a6, a1, SP[a3, a4], n] + S2[a2, a5, a6, SP[a1, a4], a3, n] + 
    S2[a2, a5, SP[a1, a4], a3, a6, n] + S2[a2, a5, SP[a1, a4], a6, a3, n] - 
    S2[a2, a5, SP[a4, a6], a1, a3, n] - S2[a4, n]*S2[a2, a6, a1, a3, a5, n] - 
    S2[a2, a6, a1, a3, SP[a4, a5], n] + S2[a2, a6, a1, a4, SP[a3, a5], n] - 
    S2[a4, n]*S2[a2, a6, a1, a5, a3, n] + S2[a2, a6, a1, SP[a3, a5], a4, n] - 
    S2[a2, a6, a1, SP[a4, a5], a3, n] + S2[a2, a6, a4, a1, SP[a3, a5], n] + 
    S2[a2, a6, a4, SP[a1, a5], a3, n] + S2[a2, a6, a5, a1, SP[a3, a4], n] + 
    S2[a2, a6, a5, SP[a1, a4], a3, n] + S2[a2, a6, SP[a1, a5], a3, a4, n] + 
    S2[a2, a6, SP[a1, a5], a4, a3, n] + S2[a2, SP[a1, a5], a3, a4, a6, n] + 
    S2[a2, SP[a1, a5], a3, a6, a4, n] + S2[a2, SP[a1, a5], a4, a3, a6, n] + 
    S2[a2, SP[a1, a5], a4, a6, a3, n] + S2[a2, SP[a1, a5], a6, a3, a4, n] + 
    S2[a2, SP[a1, a5], a6, a4, a3, n] + S2[a2, SP[a1, a6], a3, a4, a5, n] + 
    S2[a2, SP[a1, a6], a3, a5, a4, n] + S2[a2, SP[a1, a6], a4, a3, a5, n] + 
    S2[a2, SP[a1, a6], a4, a5, a3, n] + S2[a2, SP[a1, a6], a5, a3, a4, n] + 
    S2[a2, SP[a1, a6], a5, a4, a3, n] - S2[a2, SP[a4, a6], a1, a3, a5, n] - 
    S2[a2, SP[a4, a6], a1, a5, a3, n] - S2[a2, SP[a5, a6], a1, a3, a4, n] - 
    S2[a2, SP[a5, a6], a1, a4, a3, n] - S2[a2, SP[a5, a6], a4, a1, a3, n] + 
    S2[a4, a1, a3, a2, SP[a5, a6], n] - S2[a4, a1, a3, a5, SP[a2, a6], n] - 
    S2[a4, a1, a3, a6, SP[a2, a5], n] - S2[a4, a1, a3, SP[a2, a5], a6, n] - 
    S2[a4, a1, a5, a3, SP[a2, a6], n] - S2[a4, a1, a5, SP[a3, a6], a2, n] - 
    S2[a4, a1, a6, a2, SP[a3, a5], n] - S2[a4, a1, a6, a3, SP[a2, a5], n] - 
    S2[a4, a1, a6, SP[a2, a3], a5, n] - S2[a4, a1, a6, SP[a3, a5], a2, n] - 
    S2[a4, a1, SP[a3, a5], a2, a6, n] - S2[a4, a1, SP[a3, a5], a6, a2, n] - 
    S2[a4, a1, SP[a3, a6], a2, a5, n] - S2[a4, a1, SP[a3, a6], a5, a2, n] + 
    S2[a6, n]*S2[a4, a5, a1, a3, a2, n] - S2[a4, a6, a1, a2, SP[a3, a5], n] + 
    S2[a2, n]*S2[a4, a6, a1, a3, a5, n] + 
    S2[a2, n]*S2[a4, a6, a1, a5, a3, n] + S2[a4, a6, a1, a5, SP[a2, a3], n] + 
    S2[a4, a6, a1, SP[a2, a5], a3, n] - S2[a4, a6, a1, SP[a3, a5], a2, n] - 
    S2[a4, a6, a2, a1, SP[a3, a5], n] - S2[a4, a6, a2, SP[a1, a5], a3, n] - 
    S2[a4, a6, SP[a1, a5], a3, a2, n] - S2[a4, SP[a1, a5], a3, a2, a6, n] - 
    S2[a4, SP[a1, a5], a3, a6, a2, n] - S2[a4, SP[a1, a5], a6, a3, a2, n] - 
    S2[a4, SP[a1, a6], a2, a3, a5, n] - S2[a4, SP[a1, a6], a2, a5, a3, n] - 
    S2[a4, SP[a1, a6], a3, a2, a5, n] - S2[a4, SP[a1, a6], a3, a5, a2, n] - 
    S2[a4, SP[a1, a6], a5, a3, a2, n] + S2[a4, SP[a2, a6], a1, a3, a5, n] + 
    S2[a4, SP[a2, a6], a1, a5, a3, n] + S2[a4, SP[a5, a6], a1, a3, a2, n] - 
    S2[a4, n]*S2[a6, a1, a5, a2, a3, n] - S2[a6, a1, a5, a2, SP[a3, a4], n] - 
    S2[a6, a1, a5, SP[a2, a4], a3, n] - S2[a6, a1, SP[a4, a5], a2, a3, n] + 
    S2[a4, n]*S2[a6, a2, a5, a1, a3, n] + S2[a6, a2, a5, a1, SP[a3, a4], n] + 
    S2[a6, a2, a5, SP[a1, a4], a3, n] + S2[a6, a2, SP[a4, a5], a1, a3, n] - 
    S2[a2, n]*S2[a6, a4, a5, a1, a3, n] - S2[a6, a4, a5, a1, SP[a2, a3], n] + 
    S2[a1, n]*S2[a6, a4, a5, a2, a3, n] + S2[a6, a4, a5, a2, SP[a1, a3], n] + 
    S2[a6, a4, SP[a1, a5], a2, a3, n] - S2[a6, a4, SP[a2, a5], a1, a3, n] + 
    S2[SP[a1, a6], a4, a5, a2, a3, n] + S2[SP[a1, a6], a5, a2, a3, a4, n] + 
    S2[SP[a1, a6], a5, a2, a4, a3, n] + S2[SP[a1, a6], a5, a4, a2, a3, n] - 
    S2[SP[a2, a6], a4, a5, a1, a3, n] - S2[SP[a2, a6], a5, a1, a3, a4, n] - 
    S2[SP[a2, a6], a5, a1, a4, a3, n] - S2[SP[a2, a6], a5, a4, a1, a3, n] - 
    S2[SP[a4, a6], a1, a5, a2, a3, n] + S2[SP[a4, a6], a2, a5, a1, a3, n] + 
    S2[SP[a4, a6], a5, a1, a3, a2, n] - S2[a6, a4, a5, a2, a3, a1, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a1_, a3_, a2_, a5_, a6_, a4_, n_] :> 
  S2[a1, a3, a2, n]*S2[a4, a6, a5, n] + S2[SP[a1, a4], SP[a3, a6], 
     SP[a2, a5], n] - S2[a4, a6, n]*S2[a1, a3, a2, a5, n] + 
    S2[a1, a3, SP[a2, a4], SP[a5, a6], n] - S2[a1, a4, SP[a3, a6], 
     SP[a2, a5], n] + S2[a1, SP[a3, a4], a2, SP[a5, a6], n] - 
    S2[a1, SP[a3, a4], a6, SP[a2, a5], n] - S2[a1, a3, n]*
     S2[a2, a6, a4, a5, n] - S2[a1, a3, n]*S2[a2, a6, a5, a4, n] + 
    S2[a2, a6, SP[a1, a4], SP[a3, a5], n] + S2[a2, a6, SP[a1, a5], 
     SP[a3, a4], n] + S2[a2, SP[a1, a6], a4, SP[a3, a5], n] + 
    S2[a2, SP[a1, a6], a5, SP[a3, a4], n] + S2[a2, SP[a1, a6], SP[a3, a4], 
     a5, n] + S2[a2, SP[a1, a6], SP[a3, a5], a4, n] - 
    S2[a4, a1, SP[a3, a6], SP[a2, a5], n] + S2[a1, a3, n]*
     S2[a4, a6, a2, a5, n] - S2[a4, a6, SP[a1, a2], SP[a3, a5], n] - 
    S2[a4, SP[a1, a6], a2, SP[a3, a5], n] - S2[a4, SP[a1, a6], a3, 
     SP[a2, a5], n] - S2[a4, SP[a1, a6], SP[a2, a3], a5, n] - 
    S2[a4, SP[a1, a6], SP[a3, a5], a2, n] + S2[SP[a1, a2], a6, a4, 
     SP[a3, a5], n] + S2[SP[a1, a2], a6, a5, SP[a3, a4], n] + 
    S2[SP[a1, a2], a6, SP[a3, a4], a5, n] + S2[SP[a1, a2], a6, SP[a3, a5], 
     a4, n] + S2[SP[a1, a2], SP[a3, a6], a4, a5, n] + 
    S2[SP[a1, a2], SP[a3, a6], a5, a4, n] + S2[SP[a1, a4], a3, a2, 
     SP[a5, a6], n] - S2[SP[a1, a4], a3, a6, SP[a2, a5], n] - 
    S2[SP[a1, a4], a6, a2, SP[a3, a5], n] - S2[SP[a1, a4], a6, a3, 
     SP[a2, a5], n] - S2[SP[a1, a4], a6, SP[a2, a3], a5, n] - 
    S2[SP[a1, a4], a6, SP[a3, a5], a2, n] - S2[SP[a1, a4], SP[a3, a6], a2, 
     a5, n] - S2[SP[a1, a4], SP[a3, a6], a5, a2, n] - 
    S2[a1, a2, a6, a4, SP[a3, a5], n] - S2[a1, a2, a6, a5, SP[a3, a4], n] - 
    S2[a1, a2, a6, SP[a3, a4], a5, n] - S2[a1, a2, a6, SP[a3, a5], a4, n] - 
    S2[a1, a2, SP[a3, a6], a4, a5, n] - S2[a1, a2, SP[a3, a6], a5, a4, n] - 
    S2[a1, a3, a2, a4, SP[a5, a6], n] + S2[a4, n]*S2[a1, a3, a2, a5, a6, n] + 
    S2[a1, a3, a2, a5, SP[a4, a6], n] - S2[a1, a3, a4, a2, SP[a5, a6], n] + 
    S2[a1, a3, a4, a6, SP[a2, a5], n] - S2[a4, n]*S2[a1, a3, a6, a2, a5, n] - 
    S2[a1, a3, a6, a2, SP[a4, a5], n] + S2[a2, n]*S2[a1, a3, a6, a4, a5, n] + 
    S2[a1, a3, a6, a4, SP[a2, a5], n] - S2[a4, n]*S2[a1, a3, a6, a5, a2, n] + 
    S2[a2, n]*S2[a1, a3, a6, a5, a4, n] + S2[a1, a3, a6, SP[a2, a5], a4, n] - 
    S2[a1, a3, a6, SP[a4, a5], a2, n] + S2[a1, a3, SP[a2, a6], a4, a5, n] + 
    S2[a1, a3, SP[a2, a6], a5, a4, n] - S2[a1, a3, SP[a4, a6], a2, a5, n] - 
    S2[a1, a3, SP[a4, a6], a5, a2, n] - S2[a1, a4, a3, a2, SP[a5, a6], n] + 
    S2[a1, a4, a3, a6, SP[a2, a5], n] + S2[a1, a4, a6, a2, SP[a3, a5], n] + 
    S2[a1, a4, a6, a3, SP[a2, a5], n] + S2[a1, a4, a6, SP[a2, a3], a5, n] + 
    S2[a1, a4, a6, SP[a3, a5], a2, n] + S2[a1, a4, SP[a3, a6], a2, a5, n] + 
    S2[a1, a4, SP[a3, a6], a5, a2, n] - S2[a4, n]*S2[a1, a6, a2, a3, a5, n] - 
    S2[a1, a6, a2, a3, SP[a4, a5], n] - S2[a4, n]*S2[a1, a6, a2, a5, a3, n] - 
    S2[a1, a6, a2, a5, SP[a3, a4], n] - S2[a1, a6, a2, SP[a3, a4], a5, n] - 
    S2[a1, a6, a2, SP[a4, a5], a3, n] - S2[a4, n]*S2[a1, a6, a3, a2, a5, n] - 
    S2[a1, a6, a3, a2, SP[a4, a5], n] + S2[a2, n]*S2[a1, a6, a3, a4, a5, n] + 
    S2[a1, a6, a3, a4, SP[a2, a5], n] - S2[a4, n]*S2[a1, a6, a3, a5, a2, n] + 
    S2[a2, n]*S2[a1, a6, a3, a5, a4, n] + S2[a1, a6, a3, SP[a2, a5], a4, n] - 
    S2[a1, a6, a3, SP[a4, a5], a2, n] + S2[a2, n]*S2[a1, a6, a4, a3, a5, n] + 
    S2[a1, a6, a4, a3, SP[a2, a5], n] + S2[a2, n]*S2[a1, a6, a4, a5, a3, n] + 
    S2[a1, a6, a4, a5, SP[a2, a3], n] + S2[a1, a6, a4, SP[a2, a3], a5, n] + 
    S2[a1, a6, a4, SP[a2, a5], a3, n] - S2[a4, n]*S2[a1, a6, a5, a3, a2, n] + 
    S2[a2, n]*S2[a1, a6, a5, a3, a4, n] + 
    S2[a2, n]*S2[a1, a6, a5, a4, a3, n] + S2[a1, a6, a5, a4, SP[a2, a3], n] + 
    S2[a1, a6, a5, SP[a2, a3], a4, n] + S2[a1, a6, a5, SP[a2, a4], a3, n] - 
    S2[a1, a6, a5, SP[a3, a4], a2, n] + S2[a1, a6, SP[a2, a3], a4, a5, n] + 
    S2[a1, a6, SP[a2, a3], a5, a4, n] + S2[a1, a6, SP[a2, a5], a3, a4, n] + 
    S2[a1, a6, SP[a2, a5], a4, a3, n] - S2[a1, a6, SP[a3, a4], a2, a5, n] - 
    S2[a1, a6, SP[a3, a4], a5, a2, n] - S2[a1, a6, SP[a4, a5], a3, a2, n] + 
    S2[a1, SP[a2, a6], a3, a4, a5, n] + S2[a1, SP[a2, a6], a3, a5, a4, n] + 
    S2[a1, SP[a2, a6], a4, a3, a5, n] + S2[a1, SP[a2, a6], a4, a5, a3, n] + 
    S2[a1, SP[a2, a6], a5, a3, a4, n] + S2[a1, SP[a2, a6], a5, a4, a3, n] - 
    S2[a1, SP[a4, a6], a2, a3, a5, n] - S2[a1, SP[a4, a6], a2, a5, a3, n] - 
    S2[a1, SP[a4, a6], a3, a2, a5, n] - S2[a1, SP[a4, a6], a3, a5, a2, n] - 
    S2[a1, SP[a4, a6], a5, a3, a2, n] - S2[a2, a1, a6, a4, SP[a3, a5], n] - 
    S2[a2, a1, a6, a5, SP[a3, a4], n] - S2[a2, a1, a6, SP[a3, a4], a5, n] - 
    S2[a2, a1, a6, SP[a3, a5], a4, n] - S2[a2, a1, SP[a3, a6], a4, a5, n] - 
    S2[a2, a1, SP[a3, a6], a5, a4, n] + S2[a4, n]*S2[a2, a6, a1, a3, a5, n] + 
    S2[a2, a6, a1, a3, SP[a4, a5], n] - S2[a2, a6, a1, a4, SP[a3, a5], n] + 
    S2[a4, n]*S2[a2, a6, a1, a5, a3, n] - S2[a2, a6, a1, SP[a3, a5], a4, n] + 
    S2[a2, a6, a1, SP[a4, a5], a3, n] - S2[a2, a6, a4, a1, SP[a3, a5], n] - 
    S2[a2, a6, a4, SP[a1, a5], a3, n] - S2[a2, a6, a5, a1, SP[a3, a4], n] - 
    S2[a2, a6, a5, SP[a1, a4], a3, n] - S2[a2, a6, SP[a1, a5], a3, a4, n] - 
    S2[a2, a6, SP[a1, a5], a4, a3, n] - S2[a2, SP[a1, a6], a3, a4, a5, n] - 
    S2[a2, SP[a1, a6], a3, a5, a4, n] - S2[a2, SP[a1, a6], a4, a3, a5, n] - 
    S2[a2, SP[a1, a6], a4, a5, a3, n] - S2[a2, SP[a1, a6], a5, a3, a4, n] - 
    S2[a2, SP[a1, a6], a5, a4, a3, n] + S2[a2, SP[a4, a6], a1, a3, a5, n] + 
    S2[a2, SP[a4, a6], a1, a5, a3, n] - S2[a4, a1, a3, a2, SP[a5, a6], n] + 
    S2[a4, a1, a3, a6, SP[a2, a5], n] + S2[a4, a1, a6, a2, SP[a3, a5], n] + 
    S2[a4, a1, a6, a3, SP[a2, a5], n] + S2[a4, a1, a6, SP[a2, a3], a5, n] + 
    S2[a4, a1, a6, SP[a3, a5], a2, n] + S2[a4, a1, SP[a3, a6], a2, a5, n] + 
    S2[a4, a1, SP[a3, a6], a5, a2, n] + S2[a4, a6, a1, a2, SP[a3, a5], n] - 
    S2[a2, n]*S2[a4, a6, a1, a3, a5, n] - 
    S2[a2, n]*S2[a4, a6, a1, a5, a3, n] - S2[a4, a6, a1, a5, SP[a2, a3], n] - 
    S2[a4, a6, a1, SP[a2, a5], a3, n] + S2[a4, a6, a1, SP[a3, a5], a2, n] + 
    S2[a4, a6, a2, a1, SP[a3, a5], n] + S2[a4, a6, a2, SP[a1, a5], a3, n] + 
    S2[a4, a6, SP[a1, a5], a3, a2, n] + S2[a4, SP[a1, a6], a2, a3, a5, n] + 
    S2[a4, SP[a1, a6], a2, a5, a3, n] + S2[a4, SP[a1, a6], a3, a2, a5, n] + 
    S2[a4, SP[a1, a6], a3, a5, a2, n] + S2[a4, SP[a1, a6], a5, a3, a2, n] - 
    S2[a4, SP[a2, a6], a1, a3, a5, n] - S2[a4, SP[a2, a6], a1, a5, a3, n] + 
    S2[a4, n]*S2[a6, a1, a5, a2, a3, n] + S2[a6, a1, a5, a2, SP[a3, a4], n] + 
    S2[a6, a1, a5, SP[a2, a4], a3, n] + S2[a6, a1, SP[a4, a5], a2, a3, n] - 
    S2[a4, n]*S2[a6, a2, a5, a1, a3, n] - S2[a6, a2, a5, a1, SP[a3, a4], n] - 
    S2[a6, a2, a5, SP[a1, a4], a3, n] - S2[a6, a2, SP[a4, a5], a1, a3, n] + 
    S2[a2, n]*S2[a6, a4, a5, a1, a3, n] + S2[a6, a4, a5, a1, SP[a2, a3], n] - 
    S2[a1, n]*S2[a6, a4, a5, a2, a3, n] - S2[a6, a4, a5, a2, SP[a1, a3], n] - 
    S2[a6, a4, SP[a1, a5], a2, a3, n] + S2[a6, a4, SP[a2, a5], a1, a3, n] - 
    S2[a4, n]*S2[a6, a5, a1, a3, a2, n] + 
    S2[a2, n]*S2[a6, a5, a1, a3, a4, n] + 
    S2[a2, n]*S2[a6, a5, a1, a4, a3, n] + S2[a6, a5, a1, a4, SP[a2, a3], n] + 
    S2[a6, a5, a1, SP[a2, a3], a4, n] + S2[a6, a5, a1, SP[a2, a4], a3, n] - 
    S2[a6, a5, a1, SP[a3, a4], a2, n] - S2[a1, n]*S2[a6, a5, a2, a3, a4, n] - 
    S2[a6, a5, a2, a3, SP[a1, a4], n] - S2[a1, n]*S2[a6, a5, a2, a4, a3, n] - 
    S2[a6, a5, a2, a4, SP[a1, a3], n] - S2[a6, a5, a2, SP[a1, a3], a4, n] - 
    S2[a6, a5, a2, SP[a1, a4], a3, n] + S2[a2, n]*S2[a6, a5, a4, a1, a3, n] + 
    S2[a6, a5, a4, a1, SP[a2, a3], n] - S2[a1, n]*S2[a6, a5, a4, a2, a3, n] - 
    S2[a6, a5, a4, a2, SP[a1, a3], n] - S2[a6, a5, SP[a1, a4], a2, a3, n] - 
    S2[a6, a5, SP[a1, a4], a3, a2, n] + S2[a6, a5, SP[a2, a4], a1, a3, n] - 
    S2[a6, SP[a1, a5], a2, a3, a4, n] - S2[a6, SP[a1, a5], a2, a4, a3, n] - 
    S2[a6, SP[a1, a5], a4, a2, a3, n] + S2[a6, SP[a2, a5], a1, a3, a4, n] + 
    S2[a6, SP[a2, a5], a1, a4, a3, n] + S2[a6, SP[a2, a5], a4, a1, a3, n] - 
    S2[a6, SP[a4, a5], a1, a3, a2, n] - S2[SP[a1, a6], a4, a5, a2, a3, n] - 
    S2[SP[a1, a6], a5, a2, a3, a4, n] - S2[SP[a1, a6], a5, a2, a4, a3, n] - 
    S2[SP[a1, a6], a5, a4, a2, a3, n] + S2[SP[a2, a6], a4, a5, a1, a3, n] + 
    S2[SP[a2, a6], a5, a1, a3, a4, n] + S2[SP[a2, a6], a5, a1, a4, a3, n] + 
    S2[SP[a2, a6], a5, a4, a1, a3, n] + S2[SP[a4, a6], a1, a5, a2, a3, n] - 
    S2[SP[a4, a6], a2, a5, a1, a3, n] - S2[SP[a4, a6], a5, a1, a3, a2, n] + 
    S2[a6, a4, a5, a2, a3, a1, n] + S2[a6, a5, a2, a3, a1, a4, n] + 
    S2[a6, a5, a2, a3, a4, a1, n] + S2[a6, a5, a2, a4, a3, a1, n] + 
    S2[a6, a5, a4, a2, a3, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a1_, a3_, a2_, a6_, a4_, a5_, n_] :> 
  -(S2[a1, a3, a2, n]*S2[a4, a5, a6, n]) - S2[a1, a3, a2, n]*
     S2[a4, a6, a5, n] - S2[SP[a1, a4], SP[a3, a5], SP[a2, a6], n] - 
    S2[SP[a1, a4], SP[a3, a6], SP[a2, a5], n] + S2[a1, a4, SP[a3, a5], 
     SP[a2, a6], n] + S2[a1, a4, SP[a3, a6], SP[a2, a5], n] + 
    S2[a1, SP[a3, a4], a5, SP[a2, a6], n] + S2[a1, SP[a3, a4], a6, 
     SP[a2, a5], n] + S2[a1, SP[a3, a4], SP[a2, a5], a6, n] + 
    S2[a1, SP[a3, a4], SP[a2, a6], a5, n] + S2[a1, a3, n]*
     S2[a2, a6, a4, a5, n] - S2[a2, a6, SP[a1, a4], SP[a3, a5], n] - 
    S2[a2, SP[a1, a6], a4, SP[a3, a5], n] - S2[a2, SP[a1, a6], SP[a3, a4], 
     a5, n] + S2[a4, a1, SP[a3, a5], SP[a2, a6], n] + 
    S2[a4, a1, SP[a3, a6], SP[a2, a5], n] + S2[a4, SP[a1, a5], a3, 
     SP[a2, a6], n] + S2[a4, SP[a1, a5], SP[a3, a6], a2, n] + 
    S2[a4, SP[a1, a6], a3, SP[a2, a5], n] + S2[a4, SP[a1, a6], SP[a3, a5], 
     a2, n] - S2[SP[a1, a2], a6, a4, SP[a3, a5], n] - 
    S2[SP[a1, a2], a6, SP[a3, a4], a5, n] - S2[SP[a1, a2], SP[a3, a6], a4, 
     a5, n] + S2[SP[a1, a4], a3, a5, SP[a2, a6], n] + 
    S2[SP[a1, a4], a3, a6, SP[a2, a5], n] + S2[SP[a1, a4], a3, SP[a2, a5], 
     a6, n] + S2[SP[a1, a4], a3, SP[a2, a6], a5, n] + 
    S2[SP[a1, a4], a5, a3, SP[a2, a6], n] + S2[SP[a1, a4], a5, SP[a3, a6], 
     a2, n] + S2[SP[a1, a4], a6, a3, SP[a2, a5], n] + 
    S2[SP[a1, a4], a6, SP[a3, a5], a2, n] + S2[SP[a1, a4], SP[a3, a5], a2, 
     a6, n] + S2[SP[a1, a4], SP[a3, a5], a6, a2, n] + 
    S2[SP[a1, a4], SP[a3, a6], a2, a5, n] + S2[SP[a1, a4], SP[a3, a6], a5, 
     a2, n] + S2[a1, a2, a6, a4, SP[a3, a5], n] + S2[a1, a2, a6, SP[a3, a4], 
     a5, n] + S2[a1, a2, SP[a3, a6], a4, a5, n] - 
    S2[a6, n]*S2[a1, a3, a2, a5, a4, n] + 
    S2[a4, n]*S2[a1, a3, a2, a5, a6, n] + 
    S2[a4, n]*S2[a1, a3, a2, a6, a5, n] + S2[a1, a3, a2, a6, SP[a4, a5], n] + 
    S2[a1, a3, a2, SP[a4, a5], a6, n] + S2[a1, a3, a2, SP[a4, a6], a5, n] - 
    S2[a1, a3, a2, SP[a5, a6], a4, n] - S2[a1, a3, a4, a5, SP[a2, a6], n] - 
    S2[a1, a3, a4, a6, SP[a2, a5], n] - S2[a1, a3, a4, SP[a2, a5], a6, n] - 
    S2[a1, a3, a4, SP[a2, a6], a5, n] - S2[a6, n]*S2[a1, a3, a5, a2, a4, n] + 
    S2[a4, n]*S2[a1, a3, a5, a2, a6, n] - 
    S2[a6, n]*S2[a1, a3, a5, a4, a2, n] - S2[a1, a3, a5, a4, SP[a2, a6], n] + 
    S2[a4, n]*S2[a1, a3, a5, a6, a2, n] + S2[a1, a3, a5, a6, SP[a2, a4], n] + 
    S2[a1, a3, a5, SP[a2, a4], a6, n] - S2[a1, a3, a5, SP[a2, a6], a4, n] + 
    S2[a4, n]*S2[a1, a3, a6, a2, a5, n] + S2[a1, a3, a6, a2, SP[a4, a5], n] - 
    S2[a2, n]*S2[a1, a3, a6, a4, a5, n] - S2[a1, a3, a6, a4, SP[a2, a5], n] + 
    S2[a4, n]*S2[a1, a3, a6, a5, a2, n] + S2[a1, a3, a6, a5, SP[a2, a4], n] + 
    S2[a1, a3, a6, SP[a4, a5], a2, n] - S2[a1, a3, SP[a2, a6], a4, a5, n] - 
    S2[a1, a3, SP[a2, a6], a5, a4, n] + S2[a1, a3, SP[a4, a5], a2, a6, n] + 
    S2[a1, a3, SP[a4, a5], a6, a2, n] + S2[a1, a3, SP[a4, a6], a2, a5, n] + 
    S2[a1, a3, SP[a4, a6], a5, a2, n] - S2[a1, a3, SP[a5, a6], a2, a4, n] - 
    S2[a1, a3, SP[a5, a6], a4, a2, n] - S2[a1, a4, a3, a5, SP[a2, a6], n] - 
    S2[a1, a4, a3, a6, SP[a2, a5], n] - S2[a1, a4, a3, SP[a2, a5], a6, n] - 
    S2[a1, a4, a3, SP[a2, a6], a5, n] - S2[a1, a4, a5, a3, SP[a2, a6], n] - 
    S2[a1, a4, a5, SP[a3, a6], a2, n] - S2[a1, a4, a6, a3, SP[a2, a5], n] - 
    S2[a1, a4, a6, SP[a3, a5], a2, n] - S2[a1, a4, SP[a3, a5], a2, a6, n] - 
    S2[a1, a4, SP[a3, a5], a6, a2, n] - S2[a1, a4, SP[a3, a6], a2, a5, n] - 
    S2[a1, a4, SP[a3, a6], a5, a2, n] - S2[a6, n]*S2[a1, a5, a3, a2, a4, n] + 
    S2[a4, n]*S2[a1, a5, a3, a2, a6, n] - 
    S2[a6, n]*S2[a1, a5, a3, a4, a2, n] - S2[a1, a5, a3, a4, SP[a2, a6], n] + 
    S2[a4, n]*S2[a1, a5, a3, a6, a2, n] + S2[a1, a5, a3, a6, SP[a2, a4], n] + 
    S2[a1, a5, a3, SP[a2, a4], a6, n] - S2[a1, a5, a3, SP[a2, a6], a4, n] - 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] - S2[a1, a5, a4, a3, SP[a2, a6], n] - 
    S2[a1, a5, a4, SP[a3, a6], a2, n] + S2[a4, n]*S2[a1, a5, a6, a3, a2, n] + 
    S2[a1, a5, a6, a3, SP[a2, a4], n] + S2[a1, a5, a6, SP[a3, a4], a2, n] + 
    S2[a1, a5, SP[a3, a4], a2, a6, n] + S2[a1, a5, SP[a3, a4], a6, a2, n] - 
    S2[a1, a5, SP[a3, a6], a2, a4, n] - S2[a1, a5, SP[a3, a6], a4, a2, n] + 
    S2[a4, n]*S2[a1, a6, a3, a2, a5, n] + S2[a1, a6, a3, a2, SP[a4, a5], n] - 
    S2[a2, n]*S2[a1, a6, a3, a4, a5, n] - S2[a1, a6, a3, a4, SP[a2, a5], n] + 
    S2[a4, n]*S2[a1, a6, a3, a5, a2, n] + S2[a1, a6, a3, a5, SP[a2, a4], n] + 
    S2[a1, a6, a3, SP[a4, a5], a2, n] - S2[a2, n]*S2[a1, a6, a4, a3, a5, n] - 
    S2[a1, a6, a4, a3, SP[a2, a5], n] - S2[a2, n]*S2[a1, a6, a4, a5, a3, n] - 
    S2[a1, a6, a4, a5, SP[a2, a3], n] - S2[a1, a6, a4, SP[a2, a3], a5, n] - 
    S2[a1, a6, a4, SP[a2, a5], a3, n] + S2[a4, n]*S2[a1, a6, a5, a3, a2, n] + 
    S2[a1, a6, a5, a3, SP[a2, a4], n] + S2[a1, a6, a5, SP[a3, a4], a2, n] - 
    S2[a1, a6, SP[a2, a3], a4, a5, n] - S2[a1, a6, SP[a2, a4], a3, a5, n] - 
    S2[a1, a6, SP[a2, a4], a5, a3, n] + S2[a1, a6, SP[a3, a4], a2, a5, n] + 
    S2[a1, a6, SP[a3, a4], a5, a2, n] + S2[a1, a6, SP[a4, a5], a3, a2, n] - 
    S2[a1, SP[a2, a6], a3, a4, a5, n] - S2[a1, SP[a2, a6], a4, a3, a5, n] - 
    S2[a1, SP[a2, a6], a4, a5, a3, n] - S2[a1, SP[a3, a6], a2, a5, a4, n] - 
    S2[a1, SP[a3, a6], a5, a2, a4, n] - S2[a1, SP[a3, a6], a5, a4, a2, n] + 
    S2[a1, SP[a4, a5], a3, a2, a6, n] + S2[a1, SP[a4, a5], a3, a6, a2, n] + 
    S2[a1, SP[a4, a5], a6, a3, a2, n] + S2[a1, SP[a4, a6], a3, a2, a5, n] + 
    S2[a1, SP[a4, a6], a3, a5, a2, n] + S2[a1, SP[a4, a6], a5, a3, a2, n] - 
    S2[a1, SP[a5, a6], a3, a2, a4, n] - S2[a1, SP[a5, a6], a3, a4, a2, n] - 
    S2[a1, SP[a5, a6], a4, a3, a2, n] + S2[a2, a1, a6, a4, SP[a3, a5], n] + 
    S2[a2, a1, a6, SP[a3, a4], a5, n] + S2[a2, a1, SP[a3, a6], a4, a5, n] + 
    S2[a2, a6, a1, a4, SP[a3, a5], n] + S2[a2, a6, a1, SP[a3, a4], a5, n] + 
    S2[a2, a6, a4, a1, SP[a3, a5], n] + S2[a2, a6, a4, SP[a1, a5], a3, n] + 
    S2[a2, a6, SP[a1, a4], a3, a5, n] + S2[a2, a6, SP[a1, a4], a5, a3, n] + 
    S2[a2, SP[a1, a6], a3, a4, a5, n] + S2[a2, SP[a1, a6], a4, a3, a5, n] + 
    S2[a2, SP[a1, a6], a4, a5, a3, n] - S2[a4, a1, a3, a5, SP[a2, a6], n] - 
    S2[a4, a1, a3, a6, SP[a2, a5], n] - S2[a4, a1, a3, SP[a2, a5], a6, n] - 
    S2[a4, a1, a3, SP[a2, a6], a5, n] - S2[a4, a1, a5, a3, SP[a2, a6], n] - 
    S2[a4, a1, a5, SP[a3, a6], a2, n] - S2[a4, a1, a6, a3, SP[a2, a5], n] - 
    S2[a4, a1, a6, SP[a3, a5], a2, n] - S2[a4, a1, SP[a3, a5], a2, a6, n] - 
    S2[a4, a1, SP[a3, a5], a6, a2, n] - S2[a4, a1, SP[a3, a6], a2, a5, n] - 
    S2[a4, a1, SP[a3, a6], a5, a2, n] + S2[a6, n]*S2[a4, a5, a1, a3, a2, n] - 
    S2[a4, a6, a1, a3, SP[a2, a5], n] - S2[a4, a6, a1, SP[a3, a5], a2, n] - 
    S2[a4, a6, SP[a1, a5], a3, a2, n] - S2[a4, SP[a1, a5], a3, a2, a6, n] - 
    S2[a4, SP[a1, a5], a3, a6, a2, n] - S2[a4, SP[a1, a5], a6, a3, a2, n] - 
    S2[a4, SP[a1, a6], a3, a2, a5, n] - S2[a4, SP[a1, a6], a3, a5, a2, n] - 
    S2[a4, SP[a1, a6], a5, a3, a2, n] + S2[a4, SP[a5, a6], a1, a3, a2, n] + 
    S2[a4, n]*S2[a6, a1, a3, a2, a5, n] + S2[a6, a1, a3, a2, SP[a4, a5], n] - 
    S2[a2, n]*S2[a6, a1, a3, a4, a5, n] - S2[a6, a1, a3, a4, SP[a2, a5], n] + 
    S2[a4, n]*S2[a6, a1, a3, a5, a2, n] + S2[a6, a1, a3, a5, SP[a2, a4], n] + 
    S2[a6, a1, a3, SP[a4, a5], a2, n] - S2[a2, n]*S2[a6, a1, a4, a3, a5, n] - 
    S2[a6, a1, a4, a3, SP[a2, a5], n] - S2[a2, n]*S2[a6, a1, a4, a5, a3, n] - 
    S2[a6, a1, a4, a5, SP[a2, a3], n] - S2[a6, a1, a4, SP[a2, a3], a5, n] - 
    S2[a6, a1, a4, SP[a2, a5], a3, n] + S2[a4, n]*S2[a6, a1, a5, a3, a2, n] + 
    S2[a6, a1, a5, a3, SP[a2, a4], n] + S2[a6, a1, a5, SP[a3, a4], a2, n] - 
    S2[a6, a1, SP[a2, a3], a4, a5, n] - S2[a6, a1, SP[a2, a4], a3, a5, n] - 
    S2[a6, a1, SP[a2, a4], a5, a3, n] + S2[a6, a1, SP[a3, a4], a2, a5, n] + 
    S2[a6, a1, SP[a3, a4], a5, a2, n] + S2[a6, a1, SP[a4, a5], a3, a2, n] + 
    S2[a1, n]*S2[a6, a2, a3, a4, a5, n] + S2[a6, a2, a3, a4, SP[a1, a5], n] + 
    S2[a6, a2, a3, SP[a1, a4], a5, n] + S2[a1, n]*S2[a6, a2, a4, a3, a5, n] + 
    S2[a6, a2, a4, a3, SP[a1, a5], n] + S2[a1, n]*S2[a6, a2, a4, a5, a3, n] + 
    S2[a6, a2, a4, a5, SP[a1, a3], n] + S2[a6, a2, a4, SP[a1, a3], a5, n] + 
    S2[a6, a2, a4, SP[a1, a5], a3, n] + S2[a6, a2, SP[a1, a3], a4, a5, n] + 
    S2[a6, a2, SP[a1, a4], a3, a5, n] + S2[a6, a2, SP[a1, a4], a5, a3, n] - 
    S2[a2, n]*S2[a6, a4, a1, a3, a5, n] - S2[a6, a4, a1, a3, SP[a2, a5], n] - 
    S2[a2, n]*S2[a6, a4, a1, a5, a3, n] - S2[a6, a4, a1, a5, SP[a2, a3], n] - 
    S2[a6, a4, a1, SP[a2, a3], a5, n] - S2[a6, a4, a1, SP[a2, a5], a3, n] + 
    S2[a1, n]*S2[a6, a4, a2, a3, a5, n] + S2[a6, a4, a2, a3, SP[a1, a5], n] + 
    S2[a1, n]*S2[a6, a4, a2, a5, a3, n] + S2[a6, a4, a2, a5, SP[a1, a3], n] + 
    S2[a6, a4, a2, SP[a1, a3], a5, n] + S2[a6, a4, a2, SP[a1, a5], a3, n] - 
    S2[a2, n]*S2[a6, a4, a5, a1, a3, n] - S2[a6, a4, a5, a1, SP[a2, a3], n] + 
    S2[a1, n]*S2[a6, a4, a5, a2, a3, n] + S2[a6, a4, a5, a2, SP[a1, a3], n] + 
    S2[a6, a4, SP[a1, a5], a2, a3, n] - S2[a6, a4, SP[a2, a5], a1, a3, n] + 
    S2[a6, SP[a1, a4], a2, a3, a5, n] + S2[a6, SP[a1, a4], a2, a5, a3, n] + 
    S2[a6, SP[a1, a4], a3, a2, a5, n] + S2[a6, SP[a1, a4], a3, a5, a2, n] + 
    S2[a6, SP[a1, a4], a5, a2, a3, n] + S2[a6, SP[a1, a4], a5, a3, a2, n] - 
    S2[a6, SP[a2, a4], a1, a3, a5, n] - S2[a6, SP[a2, a4], a1, a5, a3, n] - 
    S2[a6, SP[a2, a4], a5, a1, a3, n] + S2[SP[a1, a6], a2, a3, a4, a5, n] + 
    S2[SP[a1, a6], a2, a4, a3, a5, n] + S2[SP[a1, a6], a2, a4, a5, a3, n] - 
    S2[SP[a1, a6], a3, a2, a5, a4, n] - S2[SP[a1, a6], a3, a5, a2, a4, n] - 
    S2[SP[a1, a6], a3, a5, a4, a2, n] + S2[SP[a1, a6], a4, a2, a3, a5, n] + 
    S2[SP[a1, a6], a4, a2, a5, a3, n] + S2[SP[a1, a6], a4, a5, a2, a3, n] - 
    S2[SP[a1, a6], a5, a3, a2, a4, n] - S2[SP[a1, a6], a5, a3, a4, a2, n] - 
    S2[SP[a1, a6], a5, a4, a3, a2, n] - S2[SP[a2, a6], a1, a3, a4, a5, n] - 
    S2[SP[a2, a6], a1, a4, a3, a5, n] - S2[SP[a2, a6], a1, a4, a5, a3, n] - 
    S2[SP[a2, a6], a4, a1, a3, a5, n] - S2[SP[a2, a6], a4, a1, a5, a3, n] - 
    S2[SP[a2, a6], a4, a5, a1, a3, n] + S2[SP[a4, a6], a1, a3, a2, a5, n] + 
    S2[SP[a4, a6], a1, a3, a5, a2, n] + S2[SP[a4, a6], a1, a5, a3, a2, n] + 
    S2[SP[a4, a6], a5, a1, a3, a2, n] - S2[a6, a2, a3, a1, a4, a5, n] - 
    S2[a6, a2, a3, a4, a1, a5, n] - S2[a6, a2, a3, a4, a5, a1, n] - 
    S2[a6, a2, a4, a3, a1, a5, n] - S2[a6, a2, a4, a3, a5, a1, n] - 
    S2[a6, a2, a4, a5, a3, a1, n] - S2[a6, a4, a2, a3, a1, a5, n] - 
    S2[a6, a4, a2, a3, a5, a1, n] - S2[a6, a4, a2, a5, a3, a1, n] - 
    S2[a6, a4, a5, a2, a3, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a1_, a3_, a2_, a6_, a5_, a4_, n_] :> 
  S2[a1, a3, a2, n]*S2[a4, a5, a6, n] + S2[SP[a1, a4], SP[a3, a5], 
     SP[a2, a6], n] - S2[a1, a4, SP[a3, a5], SP[a2, a6], n] - 
    S2[a1, SP[a3, a4], a5, SP[a2, a6], n] - S2[a1, SP[a3, a4], SP[a2, a5], 
     a6, n] + S2[a1, a3, n]*S2[a2, a6, a5, a4, n] - 
    S2[a2, a6, SP[a1, a5], SP[a3, a4], n] - S2[a2, SP[a1, a6], a5, 
     SP[a3, a4], n] - S2[a2, SP[a1, a6], SP[a3, a5], a4, n] - 
    S2[a4, a1, SP[a3, a5], SP[a2, a6], n] - S2[a4, SP[a1, a5], a3, 
     SP[a2, a6], n] - S2[a4, SP[a1, a5], SP[a3, a6], a2, n] - 
    S2[SP[a1, a2], a6, a5, SP[a3, a4], n] - S2[SP[a1, a2], a6, SP[a3, a5], 
     a4, n] - S2[SP[a1, a2], SP[a3, a6], a5, a4, n] - 
    S2[SP[a1, a4], a3, a5, SP[a2, a6], n] - S2[SP[a1, a4], a3, SP[a2, a5], 
     a6, n] - S2[SP[a1, a4], a5, a3, SP[a2, a6], n] - 
    S2[SP[a1, a4], a5, SP[a3, a6], a2, n] - S2[SP[a1, a4], SP[a3, a5], a2, 
     a6, n] - S2[SP[a1, a4], SP[a3, a5], a6, a2, n] + 
    S2[a1, a2, a6, a5, SP[a3, a4], n] + S2[a1, a2, a6, SP[a3, a5], a4, n] + 
    S2[a1, a2, SP[a3, a6], a5, a4, n] + S2[a6, n]*S2[a1, a3, a2, a5, a4, n] - 
    S2[a4, n]*S2[a1, a3, a2, a5, a6, n] - S2[a1, a3, a2, SP[a4, a5], a6, n] + 
    S2[a1, a3, a2, SP[a5, a6], a4, n] + S2[a1, a3, a4, a5, SP[a2, a6], n] + 
    S2[a1, a3, a4, SP[a2, a5], a6, n] + S2[a6, n]*S2[a1, a3, a5, a2, a4, n] - 
    S2[a4, n]*S2[a1, a3, a5, a2, a6, n] + 
    S2[a6, n]*S2[a1, a3, a5, a4, a2, n] + S2[a1, a3, a5, a4, SP[a2, a6], n] - 
    S2[a4, n]*S2[a1, a3, a5, a6, a2, n] - S2[a1, a3, a5, a6, SP[a2, a4], n] - 
    S2[a1, a3, a5, SP[a2, a4], a6, n] + S2[a1, a3, a5, SP[a2, a6], a4, n] - 
    S2[a2, n]*S2[a1, a3, a6, a5, a4, n] - S2[a1, a3, a6, a5, SP[a2, a4], n] - 
    S2[a1, a3, a6, SP[a2, a5], a4, n] - S2[a1, a3, SP[a4, a5], a2, a6, n] - 
    S2[a1, a3, SP[a4, a5], a6, a2, n] + S2[a1, a3, SP[a5, a6], a2, a4, n] + 
    S2[a1, a3, SP[a5, a6], a4, a2, n] + S2[a1, a4, a3, a5, SP[a2, a6], n] + 
    S2[a1, a4, a3, SP[a2, a5], a6, n] + S2[a1, a4, a5, a3, SP[a2, a6], n] + 
    S2[a1, a4, a5, SP[a3, a6], a2, n] + S2[a1, a4, SP[a3, a5], a2, a6, n] + 
    S2[a1, a4, SP[a3, a5], a6, a2, n] + S2[a6, n]*S2[a1, a5, a3, a2, a4, n] - 
    S2[a4, n]*S2[a1, a5, a3, a2, a6, n] + 
    S2[a6, n]*S2[a1, a5, a3, a4, a2, n] + S2[a1, a5, a3, a4, SP[a2, a6], n] - 
    S2[a4, n]*S2[a1, a5, a3, a6, a2, n] - S2[a1, a5, a3, a6, SP[a2, a4], n] - 
    S2[a1, a5, a3, SP[a2, a4], a6, n] + S2[a1, a5, a3, SP[a2, a6], a4, n] + 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] + S2[a1, a5, a4, a3, SP[a2, a6], n] + 
    S2[a1, a5, a4, SP[a3, a6], a2, n] - S2[a4, n]*S2[a1, a5, a6, a3, a2, n] - 
    S2[a1, a5, a6, a3, SP[a2, a4], n] - S2[a1, a5, a6, SP[a3, a4], a2, n] - 
    S2[a1, a5, SP[a3, a4], a2, a6, n] - S2[a1, a5, SP[a3, a4], a6, a2, n] + 
    S2[a1, a5, SP[a3, a6], a2, a4, n] + S2[a1, a5, SP[a3, a6], a4, a2, n] - 
    S2[a2, n]*S2[a1, a6, a3, a5, a4, n] - S2[a1, a6, a3, a5, SP[a2, a4], n] - 
    S2[a1, a6, a3, SP[a2, a5], a4, n] - S2[a2, n]*S2[a1, a6, a5, a3, a4, n] - 
    S2[a1, a6, a5, a3, SP[a2, a4], n] - S2[a2, n]*S2[a1, a6, a5, a4, a3, n] - 
    S2[a1, a6, a5, a4, SP[a2, a3], n] - S2[a1, a6, a5, SP[a2, a3], a4, n] - 
    S2[a1, a6, a5, SP[a2, a4], a3, n] - S2[a1, a6, SP[a2, a3], a5, a4, n] - 
    S2[a1, a6, SP[a2, a5], a3, a4, n] - S2[a1, a6, SP[a2, a5], a4, a3, n] - 
    S2[a1, SP[a2, a6], a3, a5, a4, n] - S2[a1, SP[a2, a6], a5, a3, a4, n] - 
    S2[a1, SP[a2, a6], a5, a4, a3, n] + S2[a1, SP[a3, a6], a2, a5, a4, n] + 
    S2[a1, SP[a3, a6], a5, a2, a4, n] + S2[a1, SP[a3, a6], a5, a4, a2, n] - 
    S2[a1, SP[a4, a5], a3, a2, a6, n] - S2[a1, SP[a4, a5], a3, a6, a2, n] - 
    S2[a1, SP[a4, a5], a6, a3, a2, n] + S2[a1, SP[a5, a6], a3, a2, a4, n] + 
    S2[a1, SP[a5, a6], a3, a4, a2, n] + S2[a1, SP[a5, a6], a4, a3, a2, n] + 
    S2[a2, a1, a6, a5, SP[a3, a4], n] + S2[a2, a1, a6, SP[a3, a5], a4, n] + 
    S2[a2, a1, SP[a3, a6], a5, a4, n] + S2[a2, a6, a1, a5, SP[a3, a4], n] + 
    S2[a2, a6, a1, SP[a3, a5], a4, n] + S2[a2, a6, a5, a1, SP[a3, a4], n] + 
    S2[a2, a6, a5, SP[a1, a4], a3, n] + S2[a2, a6, SP[a1, a5], a3, a4, n] + 
    S2[a2, a6, SP[a1, a5], a4, a3, n] + S2[a2, SP[a1, a6], a3, a5, a4, n] + 
    S2[a2, SP[a1, a6], a5, a3, a4, n] + S2[a2, SP[a1, a6], a5, a4, a3, n] + 
    S2[a4, a1, a3, a5, SP[a2, a6], n] + S2[a4, a1, a3, SP[a2, a5], a6, n] + 
    S2[a4, a1, a5, a3, SP[a2, a6], n] + S2[a4, a1, a5, SP[a3, a6], a2, n] + 
    S2[a4, a1, SP[a3, a5], a2, a6, n] + S2[a4, a1, SP[a3, a5], a6, a2, n] - 
    S2[a6, n]*S2[a4, a5, a1, a3, a2, n] + S2[a4, SP[a1, a5], a3, a2, a6, n] + 
    S2[a4, SP[a1, a5], a3, a6, a2, n] + S2[a4, SP[a1, a5], a6, a3, a2, n] - 
    S2[a4, SP[a5, a6], a1, a3, a2, n] - S2[a2, n]*S2[a6, a1, a3, a5, a4, n] - 
    S2[a6, a1, a3, a5, SP[a2, a4], n] - S2[a6, a1, a3, SP[a2, a5], a4, n] - 
    S2[a2, n]*S2[a6, a1, a5, a3, a4, n] - S2[a6, a1, a5, a3, SP[a2, a4], n] - 
    S2[a2, n]*S2[a6, a1, a5, a4, a3, n] - S2[a6, a1, a5, a4, SP[a2, a3], n] - 
    S2[a6, a1, a5, SP[a2, a3], a4, n] - S2[a6, a1, a5, SP[a2, a4], a3, n] - 
    S2[a6, a1, SP[a2, a3], a5, a4, n] - S2[a6, a1, SP[a2, a5], a3, a4, n] - 
    S2[a6, a1, SP[a2, a5], a4, a3, n] + S2[a1, n]*S2[a6, a2, a3, a5, a4, n] + 
    S2[a6, a2, a3, a5, SP[a1, a4], n] + S2[a6, a2, a3, SP[a1, a5], a4, n] + 
    S2[a1, n]*S2[a6, a2, a5, a3, a4, n] + S2[a6, a2, a5, a3, SP[a1, a4], n] + 
    S2[a1, n]*S2[a6, a2, a5, a4, a3, n] + S2[a6, a2, a5, a4, SP[a1, a3], n] + 
    S2[a6, a2, a5, SP[a1, a3], a4, n] + S2[a6, a2, a5, SP[a1, a4], a3, n] + 
    S2[a6, a2, SP[a1, a3], a5, a4, n] + S2[a6, a2, SP[a1, a5], a3, a4, n] + 
    S2[a6, a2, SP[a1, a5], a4, a3, n] + S2[a4, n]*S2[a6, a5, a1, a3, a2, n] - 
    S2[a2, n]*S2[a6, a5, a1, a3, a4, n] - 
    S2[a2, n]*S2[a6, a5, a1, a4, a3, n] - S2[a6, a5, a1, a4, SP[a2, a3], n] - 
    S2[a6, a5, a1, SP[a2, a3], a4, n] - S2[a6, a5, a1, SP[a2, a4], a3, n] + 
    S2[a6, a5, a1, SP[a3, a4], a2, n] + S2[a1, n]*S2[a6, a5, a2, a3, a4, n] + 
    S2[a6, a5, a2, a3, SP[a1, a4], n] + S2[a1, n]*S2[a6, a5, a2, a4, a3, n] + 
    S2[a6, a5, a2, a4, SP[a1, a3], n] + S2[a6, a5, a2, SP[a1, a3], a4, n] + 
    S2[a6, a5, a2, SP[a1, a4], a3, n] - S2[a2, n]*S2[a6, a5, a4, a1, a3, n] - 
    S2[a6, a5, a4, a1, SP[a2, a3], n] + S2[a1, n]*S2[a6, a5, a4, a2, a3, n] + 
    S2[a6, a5, a4, a2, SP[a1, a3], n] + S2[a6, a5, SP[a1, a4], a2, a3, n] + 
    S2[a6, a5, SP[a1, a4], a3, a2, n] - S2[a6, a5, SP[a2, a4], a1, a3, n] + 
    S2[a6, SP[a1, a5], a2, a3, a4, n] + S2[a6, SP[a1, a5], a2, a4, a3, n] + 
    S2[a6, SP[a1, a5], a4, a2, a3, n] - S2[a6, SP[a2, a5], a1, a3, a4, n] - 
    S2[a6, SP[a2, a5], a1, a4, a3, n] - S2[a6, SP[a2, a5], a4, a1, a3, n] + 
    S2[a6, SP[a4, a5], a1, a3, a2, n] + S2[SP[a1, a6], a2, a3, a5, a4, n] + 
    S2[SP[a1, a6], a2, a5, a3, a4, n] + S2[SP[a1, a6], a2, a5, a4, a3, n] + 
    S2[SP[a1, a6], a3, a2, a5, a4, n] + S2[SP[a1, a6], a3, a5, a2, a4, n] + 
    S2[SP[a1, a6], a3, a5, a4, a2, n] + S2[SP[a1, a6], a5, a2, a3, a4, n] + 
    S2[SP[a1, a6], a5, a2, a4, a3, n] + S2[SP[a1, a6], a5, a3, a2, a4, n] + 
    S2[SP[a1, a6], a5, a3, a4, a2, n] + S2[SP[a1, a6], a5, a4, a2, a3, n] + 
    S2[SP[a1, a6], a5, a4, a3, a2, n] - S2[SP[a2, a6], a1, a3, a5, a4, n] - 
    S2[SP[a2, a6], a1, a5, a3, a4, n] - S2[SP[a2, a6], a1, a5, a4, a3, n] - 
    S2[SP[a2, a6], a5, a1, a3, a4, n] - S2[SP[a2, a6], a5, a1, a4, a3, n] - 
    S2[SP[a2, a6], a5, a4, a1, a3, n] - S2[a6, a2, a3, a1, a5, a4, n] - 
    S2[a6, a2, a3, a5, a1, a4, n] - S2[a6, a2, a3, a5, a4, a1, n] - 
    S2[a6, a2, a5, a3, a1, a4, n] - S2[a6, a2, a5, a3, a4, a1, n] - 
    S2[a6, a2, a5, a4, a3, a1, n] - S2[a6, a5, a2, a3, a1, a4, n] - 
    S2[a6, a5, a2, a3, a4, a1, n] - S2[a6, a5, a2, a4, a3, a1, n] - 
    S2[a6, a5, a4, a2, a3, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a1_, a3_, a4_, a2_, a5_, a6_, n_] :> 
  S2[a1, a3, a4, n]*S2[a2, a5, a6, n] + S2[SP[a1, a2], SP[a3, a5], 
     SP[a4, a6], n] - S2[a1, a2, SP[a3, a5], SP[a4, a6], n] + 
    S2[a5, a6, n]*S2[a1, a3, a4, a2, n] - S2[a1, a3, SP[a4, a5], SP[a2, a6], 
     n] - S2[a1, SP[a2, a3], a5, SP[a4, a6], n] - 
    S2[a1, SP[a2, a3], SP[a4, a5], a6, n] - S2[a1, SP[a3, a5], a4, 
     SP[a2, a6], n] - S2[a1, SP[a3, a5], SP[a4, a6], a2, n] - 
    S2[a2, a1, SP[a3, a5], SP[a4, a6], n] - S2[a1, a3, n]*
     S2[a2, a4, a5, a6, n] - S2[a1, a3, n]*S2[a2, a4, a6, a5, n] + 
    S2[a2, a4, SP[a1, a5], SP[a3, a6], n] + S2[a2, a4, SP[a1, a6], 
     SP[a3, a5], n] - S2[a1, a3, n]*S2[a2, a5, a4, a6, n] - 
    S2[a1, a3, n]*S2[a2, a5, a6, a4, n] + S2[a2, a5, SP[a1, a4], SP[a3, a6], 
     n] + S2[a2, a5, SP[a1, a6], SP[a3, a4], n] - 
    S2[a1, a3, n]*S2[a2, a6, a4, a5, n] - S2[a1, a3, n]*
     S2[a2, a6, a5, a4, n] + S2[a2, a6, SP[a1, a4], SP[a3, a5], n] + 
    S2[a2, a6, SP[a1, a5], SP[a3, a4], n] + S2[a2, SP[a1, a4], a5, 
     SP[a3, a6], n] + S2[a2, SP[a1, a4], a6, SP[a3, a5], n] + 
    S2[a2, SP[a1, a4], SP[a3, a5], a6, n] + S2[a2, SP[a1, a4], SP[a3, a6], 
     a5, n] - S2[a2, SP[a1, a5], a3, SP[a4, a6], n] + 
    S2[a2, SP[a1, a5], a4, SP[a3, a6], n] + S2[a2, SP[a1, a5], a6, 
     SP[a3, a4], n] + S2[a2, SP[a1, a5], SP[a3, a4], a6, n] + 
    S2[a2, SP[a1, a6], a4, SP[a3, a5], n] + S2[a2, SP[a1, a6], a5, 
     SP[a3, a4], n] + S2[a2, SP[a1, a6], SP[a3, a4], a5, n] + 
    S2[a2, SP[a1, a6], SP[a3, a5], a4, n] + S2[a1, a3, n]*
     S2[a5, a6, a2, a4, n] - S2[a5, a6, SP[a1, a2], SP[a3, a4], n] - 
    S2[a5, SP[a1, a6], a2, SP[a3, a4], n] - S2[a5, SP[a1, a6], SP[a2, a3], 
     a4, n] - S2[SP[a1, a2], a3, a5, SP[a4, a6], n] - 
    S2[SP[a1, a2], a3, SP[a4, a5], a6, n] + S2[SP[a1, a2], a4, a5, 
     SP[a3, a6], n] + S2[SP[a1, a2], a4, a6, SP[a3, a5], n] + 
    S2[SP[a1, a2], a4, SP[a3, a5], a6, n] + S2[SP[a1, a2], a4, SP[a3, a6], 
     a5, n] - S2[SP[a1, a2], a5, a3, SP[a4, a6], n] + 
    S2[SP[a1, a2], a5, a4, SP[a3, a6], n] + S2[SP[a1, a2], a5, a6, 
     SP[a3, a4], n] + S2[SP[a1, a2], a5, SP[a3, a4], a6, n] + 
    S2[SP[a1, a2], a6, a4, SP[a3, a5], n] + S2[SP[a1, a2], a6, a5, 
     SP[a3, a4], n] + S2[SP[a1, a2], a6, SP[a3, a4], a5, n] + 
    S2[SP[a1, a2], a6, SP[a3, a5], a4, n] + S2[SP[a1, a2], SP[a3, a4], a5, 
     a6, n] + S2[SP[a1, a2], SP[a3, a4], a6, a5, n] + 
    S2[SP[a1, a2], SP[a3, a6], a4, a5, n] + S2[SP[a1, a2], SP[a3, a6], a5, 
     a4, n] - S2[SP[a1, a5], a3, a4, SP[a2, a6], n] - 
    S2[SP[a1, a5], a3, SP[a4, a6], a2, n] - S2[SP[a1, a5], a6, a2, 
     SP[a3, a4], n] - S2[SP[a1, a5], a6, SP[a2, a3], a4, n] - 
    S2[SP[a1, a5], SP[a3, a6], a2, a4, n] - S2[SP[a1, a5], SP[a3, a6], a4, 
     a2, n] + S2[a1, a2, a3, a5, SP[a4, a6], n] + S2[a1, a2, a3, SP[a4, a5], 
     a6, n] - S2[a1, a2, a4, a5, SP[a3, a6], n] - 
    S2[a1, a2, a4, a6, SP[a3, a5], n] - S2[a1, a2, a4, SP[a3, a5], a6, n] - 
    S2[a1, a2, a4, SP[a3, a6], a5, n] + S2[a1, a2, a5, a3, SP[a4, a6], n] - 
    S2[a1, a2, a5, a4, SP[a3, a6], n] - S2[a1, a2, a5, a6, SP[a3, a4], n] - 
    S2[a1, a2, a5, SP[a3, a4], a6, n] - S2[a1, a2, a6, a4, SP[a3, a5], n] - 
    S2[a1, a2, a6, a5, SP[a3, a4], n] - S2[a1, a2, a6, SP[a3, a4], a5, n] - 
    S2[a1, a2, a6, SP[a3, a5], a4, n] - S2[a1, a2, SP[a3, a4], a5, a6, n] - 
    S2[a1, a2, SP[a3, a4], a6, a5, n] - S2[a1, a2, SP[a3, a6], a4, a5, n] - 
    S2[a1, a2, SP[a3, a6], a5, a4, n] + S2[a1, a3, a2, a5, SP[a4, a6], n] + 
    S2[a1, a3, a2, SP[a4, a5], a6, n] - S2[a5, n]*S2[a1, a3, a4, a2, a6, n] - 
    S2[a1, a3, a4, a2, SP[a5, a6], n] + S2[a1, a3, a4, a5, SP[a2, a6], n] - 
    S2[a5, n]*S2[a1, a3, a4, a6, a2, n] + 
    S2[a2, n]*S2[a1, a3, a4, a6, a5, n] + S2[a1, a3, a4, SP[a2, a6], a5, n] - 
    S2[a1, a3, a4, SP[a5, a6], a2, n] + S2[a1, a3, a5, a4, SP[a2, a6], n] + 
    S2[a1, a3, a5, SP[a4, a6], a2, n] - S2[a5, n]*S2[a1, a3, a6, a2, a4, n] - 
    S2[a1, a3, a6, a2, SP[a4, a5], n] - S2[a5, n]*S2[a1, a3, a6, a4, a2, n] + 
    S2[a2, n]*S2[a1, a3, a6, a4, a5, n] + 
    S2[a2, n]*S2[a1, a3, a6, a5, a4, n] + S2[a1, a3, a6, a5, SP[a2, a4], n] + 
    S2[a1, a3, a6, SP[a2, a4], a5, n] - S2[a1, a3, a6, SP[a4, a5], a2, n] + 
    S2[a1, a3, SP[a2, a4], a5, a6, n] + S2[a1, a3, SP[a2, a4], a6, a5, n] + 
    S2[a1, a3, SP[a2, a6], a4, a5, n] + S2[a1, a3, SP[a2, a6], a5, a4, n] - 
    S2[a1, a3, SP[a5, a6], a2, a4, n] - S2[a1, a3, SP[a5, a6], a4, a2, n] - 
    S2[a6, n]*S2[a1, a4, a2, a3, a5, n] - S2[a1, a4, a2, a3, SP[a5, a6], n] - 
    S2[a6, n]*S2[a1, a4, a2, a5, a3, n] - S2[a1, a4, a2, a5, SP[a3, a6], n] - 
    S2[a1, a4, a2, SP[a3, a6], a5, n] - S2[a1, a4, a2, SP[a5, a6], a3, n] - 
    S2[a6, n]*S2[a1, a4, a3, a2, a5, n] - S2[a1, a4, a3, a2, SP[a5, a6], n] - 
    S2[a6, n]*S2[a1, a4, a3, a5, a2, n] + 
    S2[a2, n]*S2[a1, a4, a3, a5, a6, n] + 
    S2[a2, n]*S2[a1, a4, a3, a6, a5, n] + S2[a1, a4, a3, a6, SP[a2, a5], n] + 
    S2[a1, a4, a3, SP[a2, a5], a6, n] - S2[a1, a4, a3, SP[a5, a6], a2, n] - 
    S2[a6, n]*S2[a1, a4, a5, a2, a3, n] - S2[a1, a4, a5, a2, SP[a3, a6], n] - 
    S2[a6, n]*S2[a1, a4, a5, a3, a2, n] + 
    S2[a2, n]*S2[a1, a4, a5, a3, a6, n] + 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] + S2[a1, a4, a5, a6, SP[a2, a3], n] + 
    S2[a1, a4, a5, SP[a2, a3], a6, n] - S2[a1, a4, a5, SP[a3, a6], a2, n] + 
    S2[a2, n]*S2[a1, a4, a6, a3, a5, n] + S2[a1, a4, a6, a3, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a4, a6, a5, a3, n] + S2[a1, a4, a6, a5, SP[a2, a3], n] + 
    S2[a1, a4, a6, SP[a2, a3], a5, n] + S2[a1, a4, a6, SP[a2, a5], a3, n] + 
    S2[a1, a4, SP[a2, a3], a5, a6, n] + S2[a1, a4, SP[a2, a3], a6, a5, n] + 
    S2[a1, a4, SP[a2, a5], a3, a6, n] + S2[a1, a4, SP[a2, a5], a6, a3, n] - 
    S2[a1, a4, SP[a3, a6], a2, a5, n] - S2[a1, a4, SP[a3, a6], a5, a2, n] - 
    S2[a1, a4, SP[a5, a6], a2, a3, n] - S2[a1, a4, SP[a5, a6], a3, a2, n] - 
    S2[a6, n]*S2[a1, a5, a2, a4, a3, n] - S2[a1, a5, a2, a4, SP[a3, a6], n] - 
    S2[a1, a5, a2, SP[a4, a6], a3, n] + S2[a1, a5, a3, a4, SP[a2, a6], n] + 
    S2[a1, a5, a3, SP[a4, a6], a2, n] - S2[a6, n]*S2[a1, a5, a4, a2, a3, n] - 
    S2[a1, a5, a4, a2, SP[a3, a6], n] - S2[a6, n]*S2[a1, a5, a4, a3, a2, n] + 
    S2[a2, n]*S2[a1, a5, a4, a3, a6, n] + 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] + S2[a1, a5, a4, a6, SP[a2, a3], n] + 
    S2[a1, a5, a4, SP[a2, a3], a6, n] - S2[a1, a5, a4, SP[a3, a6], a2, n] + 
    S2[a1, a5, a6, a2, SP[a3, a4], n] + S2[a2, n]*S2[a1, a5, a6, a4, a3, n] + 
    S2[a1, a5, a6, a4, SP[a2, a3], n] + S2[a1, a5, a6, SP[a2, a3], a4, n] + 
    S2[a1, a5, a6, SP[a2, a4], a3, n] + S2[a1, a5, SP[a2, a4], a3, a6, n] + 
    S2[a1, a5, SP[a2, a4], a6, a3, n] + S2[a1, a5, SP[a3, a6], a2, a4, n] + 
    S2[a1, a5, SP[a3, a6], a4, a2, n] - S2[a1, a5, SP[a4, a6], a2, a3, n] - 
    S2[a1, a5, SP[a4, a6], a3, a2, n] - S2[a5, n]*S2[a1, a6, a2, a3, a4, n] - 
    S2[a1, a6, a2, a3, SP[a4, a5], n] - S2[a5, n]*S2[a1, a6, a2, a4, a3, n] - 
    S2[a1, a6, a2, a4, SP[a3, a5], n] - S2[a1, a6, a2, SP[a3, a5], a4, n] - 
    S2[a1, a6, a2, SP[a4, a5], a3, n] - S2[a5, n]*S2[a1, a6, a3, a2, a4, n] - 
    S2[a1, a6, a3, a2, SP[a4, a5], n] - S2[a5, n]*S2[a1, a6, a3, a4, a2, n] + 
    S2[a2, n]*S2[a1, a6, a3, a4, a5, n] + 
    S2[a2, n]*S2[a1, a6, a3, a5, a4, n] + S2[a1, a6, a3, a5, SP[a2, a4], n] + 
    S2[a1, a6, a3, SP[a2, a4], a5, n] - S2[a1, a6, a3, SP[a4, a5], a2, n] + 
    S2[a2, n]*S2[a1, a6, a4, a3, a5, n] + S2[a1, a6, a4, a3, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a6, a4, a5, a3, n] + S2[a1, a6, a4, a5, SP[a2, a3], n] + 
    S2[a1, a6, a4, SP[a2, a3], a5, n] + S2[a1, a6, a4, SP[a2, a5], a3, n] + 
    S2[a2, n]*S2[a1, a6, a5, a3, a4, n] + S2[a1, a6, a5, a3, SP[a2, a4], n] + 
    S2[a2, n]*S2[a1, a6, a5, a4, a3, n] + S2[a1, a6, a5, a4, SP[a2, a3], n] + 
    S2[a1, a6, a5, SP[a2, a3], a4, n] + S2[a1, a6, a5, SP[a2, a4], a3, n] + 
    S2[a1, a6, SP[a2, a3], a4, a5, n] + S2[a1, a6, SP[a2, a3], a5, a4, n] + 
    S2[a1, a6, SP[a2, a4], a3, a5, n] + S2[a1, a6, SP[a2, a4], a5, a3, n] - 
    S2[a1, a6, SP[a3, a5], a2, a4, n] - S2[a1, a6, SP[a3, a5], a4, a2, n] + 
    S2[a1, SP[a2, a4], a3, a5, a6, n] + S2[a1, SP[a2, a4], a3, a6, a5, n] + 
    S2[a1, SP[a2, a4], a5, a3, a6, n] + S2[a1, SP[a2, a4], a5, a6, a3, n] + 
    S2[a1, SP[a2, a4], a6, a3, a5, n] + S2[a1, SP[a2, a4], a6, a5, a3, n] + 
    S2[a1, SP[a2, a5], a4, a3, a6, n] + S2[a1, SP[a2, a5], a4, a6, a3, n] + 
    S2[a1, SP[a2, a5], a6, a4, a3, n] + S2[a1, SP[a2, a6], a3, a4, a5, n] + 
    S2[a1, SP[a2, a6], a3, a5, a4, n] + S2[a1, SP[a2, a6], a4, a3, a5, n] + 
    S2[a1, SP[a2, a6], a4, a5, a3, n] + S2[a1, SP[a2, a6], a5, a3, a4, n] + 
    S2[a1, SP[a2, a6], a5, a4, a3, n] - S2[a1, SP[a4, a6], a2, a3, a5, n] - 
    S2[a1, SP[a4, a6], a2, a5, a3, n] - S2[a1, SP[a4, a6], a3, a2, a5, n] - 
    S2[a1, SP[a4, a6], a3, a5, a2, n] - S2[a1, SP[a4, a6], a5, a2, a3, n] - 
    S2[a1, SP[a4, a6], a5, a3, a2, n] - S2[a1, SP[a5, a6], a2, a3, a4, n] - 
    2*S2[a1, SP[a5, a6], a2, a4, a3, n] - S2[a1, SP[a5, a6], a3, a2, a4, n] - 
    S2[a1, SP[a5, a6], a3, a4, a2, n] - S2[a1, SP[a5, a6], a4, a2, a3, n] - 
    S2[a1, SP[a5, a6], a4, a3, a2, n] + S2[a2, a1, a3, a5, SP[a4, a6], n] + 
    S2[a2, a1, a3, SP[a4, a5], a6, n] - S2[a2, a1, a4, a5, SP[a3, a6], n] - 
    S2[a2, a1, a4, a6, SP[a3, a5], n] - S2[a2, a1, a4, SP[a3, a5], a6, n] - 
    S2[a2, a1, a4, SP[a3, a6], a5, n] + S2[a2, a1, a5, a3, SP[a4, a6], n] - 
    S2[a2, a1, a5, a4, SP[a3, a6], n] - S2[a2, a1, a5, a6, SP[a3, a4], n] - 
    S2[a2, a1, a5, SP[a3, a4], a6, n] - S2[a2, a1, a6, a4, SP[a3, a5], n] - 
    S2[a2, a1, a6, a5, SP[a3, a4], n] - S2[a2, a1, a6, SP[a3, a4], a5, n] - 
    S2[a2, a1, a6, SP[a3, a5], a4, n] - S2[a2, a1, SP[a3, a4], a5, a6, n] - 
    S2[a2, a1, SP[a3, a4], a6, a5, n] - S2[a2, a1, SP[a3, a6], a4, a5, n] - 
    S2[a2, a1, SP[a3, a6], a5, a4, n] + S2[a6, n]*S2[a2, a4, a1, a3, a5, n] + 
    S2[a2, a4, a1, a3, SP[a5, a6], n] + S2[a6, n]*S2[a2, a4, a1, a5, a3, n] - 
    S2[a2, a4, a1, a6, SP[a3, a5], n] - S2[a2, a4, a1, SP[a3, a5], a6, n] + 
    S2[a2, a4, a1, SP[a5, a6], a3, n] + S2[a6, n]*S2[a2, a4, a5, a1, a3, n] - 
    S2[a2, a4, a6, a1, SP[a3, a5], n] - S2[a2, a4, a6, SP[a1, a5], a3, n] - 
    S2[a2, a4, SP[a1, a5], a3, a6, n] - S2[a2, a4, SP[a1, a5], a6, a3, n] + 
    S2[a2, a4, SP[a5, a6], a1, a3, n] + S2[a2, a5, a1, a3, SP[a4, a6], n] + 
    S2[a6, n]*S2[a2, a5, a1, a4, a3, n] - S2[a2, a5, a1, a6, SP[a3, a4], n] - 
    S2[a2, a5, a1, SP[a3, a4], a6, n] + S2[a2, a5, a1, SP[a4, a6], a3, n] + 
    S2[a6, n]*S2[a2, a5, a4, a1, a3, n] - S2[a2, a5, a6, a1, SP[a3, a4], n] - 
    S2[a2, a5, a6, SP[a1, a4], a3, n] - S2[a2, a5, SP[a1, a4], a3, a6, n] - 
    S2[a2, a5, SP[a1, a4], a6, a3, n] + S2[a2, a5, SP[a4, a6], a1, a3, n] + 
    S2[a5, n]*S2[a2, a6, a1, a3, a4, n] + S2[a2, a6, a1, a3, SP[a4, a5], n] + 
    S2[a5, n]*S2[a2, a6, a1, a4, a3, n] - S2[a2, a6, a1, a5, SP[a3, a4], n] - 
    S2[a2, a6, a1, SP[a3, a4], a5, n] + S2[a2, a6, a1, SP[a4, a5], a3, n] - 
    S2[a2, a6, a4, a1, SP[a3, a5], n] - S2[a2, a6, a4, SP[a1, a5], a3, n] - 
    S2[a2, a6, a5, a1, SP[a3, a4], n] - S2[a2, a6, a5, SP[a1, a4], a3, n] - 
    S2[a2, a6, SP[a1, a4], a3, a5, n] - S2[a2, a6, SP[a1, a4], a5, a3, n] - 
    S2[a2, SP[a1, a4], a3, a5, a6, n] - S2[a2, SP[a1, a4], a3, a6, a5, n] - 
    S2[a2, SP[a1, a4], a5, a3, a6, n] - S2[a2, SP[a1, a4], a5, a6, a3, n] - 
    S2[a2, SP[a1, a4], a6, a3, a5, n] - S2[a2, SP[a1, a4], a6, a5, a3, n] - 
    S2[a2, SP[a1, a5], a4, a3, a6, n] - S2[a2, SP[a1, a5], a4, a6, a3, n] - 
    S2[a2, SP[a1, a5], a6, a4, a3, n] - S2[a2, SP[a1, a6], a3, a4, a5, n] - 
    S2[a2, SP[a1, a6], a3, a5, a4, n] - S2[a2, SP[a1, a6], a4, a3, a5, n] - 
    S2[a2, SP[a1, a6], a4, a5, a3, n] - S2[a2, SP[a1, a6], a5, a3, a4, n] - 
    S2[a2, SP[a1, a6], a5, a4, a3, n] + S2[a2, SP[a4, a6], a1, a3, a5, n] + 
    S2[a2, SP[a4, a6], a1, a5, a3, n] + S2[a2, SP[a4, a6], a5, a1, a3, n] + 
    S2[a2, SP[a5, a6], a1, a3, a4, n] + 2*S2[a2, SP[a5, a6], a1, a4, a3, n] + 
    S2[a2, SP[a5, a6], a4, a1, a3, n] + S2[a5, a1, a3, a4, SP[a2, a6], n] + 
    S2[a5, a1, a3, SP[a4, a6], a2, n] + S2[a5, a1, a6, a2, SP[a3, a4], n] + 
    S2[a5, a1, a6, SP[a2, a3], a4, n] + S2[a5, a1, SP[a3, a6], a2, a4, n] + 
    S2[a5, a1, SP[a3, a6], a4, a2, n] + S2[a5, a6, a1, a2, SP[a3, a4], n] - 
    S2[a2, n]*S2[a5, a6, a1, a3, a4, n] - S2[a5, a6, a1, a3, SP[a2, a4], n] - 
    S2[a2, n]*S2[a5, a6, a1, a4, a3, n] - S2[a5, a6, a1, a4, SP[a2, a3], n] - 
    S2[a5, a6, a1, SP[a2, a4], a3, n] + S2[a5, a6, a2, a1, SP[a3, a4], n] + 
    S2[a5, a6, a2, SP[a1, a4], a3, n] + S2[a5, SP[a1, a6], a2, a3, a4, n] + 
    S2[a5, SP[a1, a6], a2, a4, a3, n] + S2[a5, SP[a1, a6], a3, a2, a4, n] + 
    S2[a5, SP[a1, a6], a3, a4, a2, n] - S2[a5, SP[a2, a6], a1, a3, a4, n] - 
    S2[a5, SP[a2, a6], a1, a4, a3, n] + S2[a5, n]*S2[a6, a1, a4, a2, a3, n] + 
    S2[a6, a1, a4, a2, SP[a3, a5], n] + S2[a5, n]*S2[a6, a1, a4, a3, a2, n] + 
    S2[a6, a1, a4, a3, SP[a2, a5], n] + S2[a6, a1, a4, SP[a2, a5], a3, n] + 
    S2[a6, a1, a4, SP[a3, a5], a2, n] + S2[a6, a1, SP[a4, a5], a2, a3, n] + 
    S2[a6, a1, SP[a4, a5], a3, a2, n] - S2[a5, n]*S2[a6, a2, a4, a1, a3, n] - 
    S2[a6, a2, a4, a1, SP[a3, a5], n] - S2[a6, a2, a4, SP[a1, a5], a3, n] - 
    S2[a6, a2, SP[a4, a5], a1, a3, n] - S2[a2, n]*S2[a6, a5, a1, a4, a3, n] - 
    S2[a6, a5, a1, a4, SP[a2, a3], n] - S2[a6, a5, a1, SP[a2, a4], a3, n] + 
    S2[a1, n]*S2[a6, a5, a2, a4, a3, n] + S2[a6, a5, a2, a4, SP[a1, a3], n] + 
    S2[a6, a5, a2, SP[a1, a4], a3, n] + S2[a6, SP[a1, a5], a2, a4, a3, n] + 
    S2[a6, SP[a1, a5], a4, a2, a3, n] + S2[a6, SP[a1, a5], a4, a3, a2, n] - 
    S2[a6, SP[a2, a5], a1, a4, a3, n] - S2[a6, SP[a2, a5], a4, a1, a3, n] - 
    S2[SP[a1, a6], a4, a2, a3, a5, n] - S2[SP[a1, a6], a4, a2, a5, a3, n] - 
    S2[SP[a1, a6], a4, a3, a2, a5, n] - S2[SP[a1, a6], a4, a3, a5, a2, n] - 
    S2[SP[a1, a6], a4, a5, a2, a3, n] - S2[SP[a1, a6], a4, a5, a3, a2, n] - 
    S2[SP[a1, a6], a5, a4, a2, a3, n] - S2[SP[a1, a6], a5, a4, a3, a2, n] + 
    S2[SP[a2, a6], a4, a1, a3, a5, n] + S2[SP[a2, a6], a4, a1, a5, a3, n] + 
    S2[SP[a2, a6], a4, a5, a1, a3, n] + S2[SP[a2, a6], a5, a4, a1, a3, n] + 
    S2[SP[a5, a6], a1, a4, a2, a3, n] + S2[SP[a5, a6], a1, a4, a3, a2, n] - 
    S2[SP[a5, a6], a2, a4, a1, a3, n] - S2[a6, a5, a2, a4, a3, a1, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a1_, a3_, a4_, a2_, a6_, a5_, n_] :> 
  S2[a1, a3, a4, n]*S2[a2, a6, a5, n] + S2[SP[a1, a2], SP[a3, a6], 
     SP[a4, a5], n] - S2[a1, a2, SP[a3, a6], SP[a4, a5], n] - 
    S2[a5, a6, n]*S2[a1, a3, a4, a2, n] + S2[a1, a3, SP[a4, a5], SP[a2, a6], 
     n] - S2[a1, SP[a2, a3], a6, SP[a4, a5], n] - 
    S2[a1, SP[a2, a3], SP[a4, a6], a5, n] + S2[a1, SP[a3, a5], a4, 
     SP[a2, a6], n] + S2[a1, SP[a3, a5], SP[a4, a6], a2, n] - 
    S2[a2, a1, SP[a3, a6], SP[a4, a5], n] - S2[a2, SP[a1, a6], a3, 
     SP[a4, a5], n] - S2[a2, SP[a1, a6], SP[a3, a5], a4, n] - 
    S2[a1, a3, n]*S2[a5, a6, a2, a4, n] + S2[a5, a6, SP[a1, a2], SP[a3, a4], 
     n] + S2[a5, SP[a1, a6], a2, SP[a3, a4], n] + 
    S2[a5, SP[a1, a6], SP[a2, a3], a4, n] - S2[SP[a1, a2], a3, a6, 
     SP[a4, a5], n] - S2[SP[a1, a2], a3, SP[a4, a6], a5, n] - 
    S2[SP[a1, a2], a6, a3, SP[a4, a5], n] - S2[SP[a1, a2], a6, SP[a3, a5], 
     a4, n] - S2[SP[a1, a2], SP[a3, a6], a4, a5, n] - 
    S2[SP[a1, a2], SP[a3, a6], a5, a4, n] + S2[SP[a1, a5], a3, a4, 
     SP[a2, a6], n] + S2[SP[a1, a5], a3, SP[a4, a6], a2, n] + 
    S2[SP[a1, a5], a6, a2, SP[a3, a4], n] + S2[SP[a1, a5], a6, SP[a2, a3], 
     a4, n] + S2[SP[a1, a5], SP[a3, a6], a2, a4, n] + 
    S2[SP[a1, a5], SP[a3, a6], a4, a2, n] + S2[a1, a2, a3, a6, SP[a4, a5], 
     n] + S2[a1, a2, a3, SP[a4, a6], a5, n] + S2[a1, a2, a6, a3, SP[a4, a5], 
     n] + S2[a1, a2, a6, SP[a3, a5], a4, n] + S2[a1, a2, SP[a3, a6], a4, a5, 
     n] + S2[a1, a2, SP[a3, a6], a5, a4, n] + S2[a1, a3, a2, a6, SP[a4, a5], 
     n] + S2[a1, a3, a2, SP[a4, a6], a5, n] + 
    S2[a5, n]*S2[a1, a3, a4, a2, a6, n] + S2[a1, a3, a4, a2, SP[a5, a6], n] - 
    S2[a1, a3, a4, a5, SP[a2, a6], n] + S2[a5, n]*S2[a1, a3, a4, a6, a2, n] - 
    S2[a2, n]*S2[a1, a3, a4, a6, a5, n] - S2[a1, a3, a4, SP[a2, a6], a5, n] + 
    S2[a1, a3, a4, SP[a5, a6], a2, n] - S2[a1, a3, a5, a4, SP[a2, a6], n] - 
    S2[a1, a3, a5, SP[a4, a6], a2, n] + S2[a5, n]*S2[a1, a3, a6, a2, a4, n] + 
    S2[a1, a3, a6, a2, SP[a4, a5], n] + S2[a5, n]*S2[a1, a3, a6, a4, a2, n] - 
    S2[a2, n]*S2[a1, a3, a6, a4, a5, n] - 
    S2[a2, n]*S2[a1, a3, a6, a5, a4, n] - S2[a1, a3, a6, a5, SP[a2, a4], n] - 
    S2[a1, a3, a6, SP[a2, a4], a5, n] + S2[a1, a3, a6, SP[a4, a5], a2, n] - 
    S2[a1, a3, SP[a2, a6], a4, a5, n] - S2[a1, a3, SP[a2, a6], a5, a4, n] + 
    S2[a1, a3, SP[a5, a6], a2, a4, n] + S2[a1, a3, SP[a5, a6], a4, a2, n] - 
    S2[a1, a5, a3, a4, SP[a2, a6], n] - S2[a1, a5, a3, SP[a4, a6], a2, n] - 
    S2[a1, a5, a6, a2, SP[a3, a4], n] - S2[a1, a5, a6, SP[a2, a3], a4, n] - 
    S2[a1, a5, SP[a3, a6], a2, a4, n] - S2[a1, a5, SP[a3, a6], a4, a2, n] + 
    S2[a5, n]*S2[a1, a6, a2, a3, a4, n] + S2[a1, a6, a2, a3, SP[a4, a5], n] + 
    S2[a5, n]*S2[a1, a6, a2, a4, a3, n] + S2[a1, a6, a2, a4, SP[a3, a5], n] + 
    S2[a1, a6, a2, SP[a3, a5], a4, n] + S2[a1, a6, a2, SP[a4, a5], a3, n] + 
    S2[a5, n]*S2[a1, a6, a3, a2, a4, n] + S2[a1, a6, a3, a2, SP[a4, a5], n] + 
    S2[a5, n]*S2[a1, a6, a3, a4, a2, n] - 
    S2[a2, n]*S2[a1, a6, a3, a4, a5, n] - 
    S2[a2, n]*S2[a1, a6, a3, a5, a4, n] - S2[a1, a6, a3, a5, SP[a2, a4], n] - 
    S2[a1, a6, a3, SP[a2, a4], a5, n] + S2[a1, a6, a3, SP[a4, a5], a2, n] - 
    S2[a2, n]*S2[a1, a6, a5, a3, a4, n] - S2[a1, a6, a5, a3, SP[a2, a4], n] - 
    S2[a1, a6, a5, SP[a2, a3], a4, n] - S2[a1, a6, SP[a2, a3], a4, a5, n] - 
    S2[a1, a6, SP[a2, a3], a5, a4, n] + S2[a1, a6, SP[a2, a5], a4, a3, n] + 
    S2[a1, a6, SP[a3, a5], a2, a4, n] + S2[a1, a6, SP[a3, a5], a4, a2, n] - 
    S2[a1, SP[a2, a6], a3, a4, a5, n] - S2[a1, SP[a2, a6], a3, a5, a4, n] - 
    S2[a1, SP[a2, a6], a5, a3, a4, n] + S2[a1, SP[a5, a6], a2, a3, a4, n] + 
    S2[a1, SP[a5, a6], a2, a4, a3, n] + S2[a1, SP[a5, a6], a3, a2, a4, n] + 
    S2[a1, SP[a5, a6], a3, a4, a2, n] + S2[a2, a1, a3, a6, SP[a4, a5], n] + 
    S2[a2, a1, a3, SP[a4, a6], a5, n] + S2[a2, a1, a6, a3, SP[a4, a5], n] + 
    S2[a2, a1, a6, SP[a3, a5], a4, n] + S2[a2, a1, SP[a3, a6], a4, a5, n] + 
    S2[a2, a1, SP[a3, a6], a5, a4, n] - S2[a5, n]*S2[a2, a6, a1, a3, a4, n] - 
    S2[a5, n]*S2[a2, a6, a1, a4, a3, n] - S2[a2, a6, a1, a4, SP[a3, a5], n] - 
    S2[a2, a6, a1, SP[a4, a5], a3, n] - S2[a2, a6, SP[a1, a5], a4, a3, n] + 
    S2[a2, SP[a1, a6], a3, a4, a5, n] + S2[a2, SP[a1, a6], a3, a5, a4, n] + 
    S2[a2, SP[a1, a6], a5, a3, a4, n] - S2[a2, SP[a5, a6], a1, a3, a4, n] - 
    S2[a2, SP[a5, a6], a1, a4, a3, n] - S2[a5, a1, a3, a4, SP[a2, a6], n] - 
    S2[a5, a1, a3, SP[a4, a6], a2, n] - S2[a5, a1, a6, a2, SP[a3, a4], n] - 
    S2[a5, a1, a6, SP[a2, a3], a4, n] - S2[a5, a1, SP[a3, a6], a2, a4, n] - 
    S2[a5, a1, SP[a3, a6], a4, a2, n] - S2[a5, a6, a1, a2, SP[a3, a4], n] + 
    S2[a2, n]*S2[a5, a6, a1, a3, a4, n] + S2[a5, a6, a1, a3, SP[a2, a4], n] + 
    S2[a2, n]*S2[a5, a6, a1, a4, a3, n] + S2[a5, a6, a1, a4, SP[a2, a3], n] + 
    S2[a5, a6, a1, SP[a2, a4], a3, n] - S2[a5, a6, a2, a1, SP[a3, a4], n] - 
    S2[a5, a6, a2, SP[a1, a4], a3, n] - S2[a5, SP[a1, a6], a2, a3, a4, n] - 
    S2[a5, SP[a1, a6], a2, a4, a3, n] - S2[a5, SP[a1, a6], a3, a2, a4, n] - 
    S2[a5, SP[a1, a6], a3, a4, a2, n] + S2[a5, SP[a2, a6], a1, a3, a4, n] + 
    S2[a5, SP[a2, a6], a1, a4, a3, n] - S2[a5, n]*S2[a6, a1, a4, a2, a3, n] - 
    S2[a6, a1, a4, a2, SP[a3, a5], n] - S2[a5, n]*S2[a6, a1, a4, a3, a2, n] + 
    S2[a2, n]*S2[a6, a1, a4, a3, a5, n] + 
    S2[a2, n]*S2[a6, a1, a4, a5, a3, n] + S2[a6, a1, a4, a5, SP[a2, a3], n] + 
    S2[a6, a1, a4, SP[a2, a3], a5, n] - S2[a6, a1, a4, SP[a3, a5], a2, n] + 
    S2[a2, n]*S2[a6, a1, a5, a4, a3, n] + S2[a6, a1, a5, a4, SP[a2, a3], n] + 
    S2[a6, a1, a5, SP[a2, a4], a3, n] + S2[a6, a1, SP[a2, a4], a3, a5, n] + 
    S2[a6, a1, SP[a2, a4], a5, a3, n] + S2[a6, a1, SP[a2, a5], a4, a3, n] - 
    S2[a6, a1, SP[a4, a5], a2, a3, n] - S2[a6, a1, SP[a4, a5], a3, a2, n] + 
    S2[a5, n]*S2[a6, a2, a4, a1, a3, n] + S2[a6, a2, a4, a1, SP[a3, a5], n] - 
    S2[a1, n]*S2[a6, a2, a4, a3, a5, n] - S2[a6, a2, a4, a3, SP[a1, a5], n] - 
    S2[a1, n]*S2[a6, a2, a4, a5, a3, n] - S2[a6, a2, a4, a5, SP[a1, a3], n] - 
    S2[a6, a2, a4, SP[a1, a3], a5, n] - S2[a1, n]*S2[a6, a2, a5, a4, a3, n] - 
    S2[a6, a2, a5, a4, SP[a1, a3], n] - S2[a6, a2, a5, SP[a1, a4], a3, n] - 
    S2[a6, a2, SP[a1, a4], a3, a5, n] - S2[a6, a2, SP[a1, a4], a5, a3, n] - 
    S2[a6, a2, SP[a1, a5], a4, a3, n] + S2[a6, a2, SP[a4, a5], a1, a3, n] + 
    S2[a2, n]*S2[a6, a5, a1, a4, a3, n] + S2[a6, a5, a1, a4, SP[a2, a3], n] + 
    S2[a6, a5, a1, SP[a2, a4], a3, n] - S2[a1, n]*S2[a6, a5, a2, a4, a3, n] - 
    S2[a6, a5, a2, a4, SP[a1, a3], n] - S2[a6, a5, a2, SP[a1, a4], a3, n] - 
    S2[a6, SP[a1, a5], a2, a4, a3, n] - S2[a6, SP[a1, a5], a4, a2, a3, n] - 
    S2[a6, SP[a1, a5], a4, a3, a2, n] + S2[a6, SP[a2, a5], a1, a4, a3, n] + 
    S2[a6, SP[a2, a5], a4, a1, a3, n] - S2[SP[a1, a6], a2, a4, a3, a5, n] - 
    S2[SP[a1, a6], a2, a4, a5, a3, n] - S2[SP[a1, a6], a2, a5, a4, a3, n] - 
    S2[SP[a1, a6], a5, a2, a4, a3, n] + S2[SP[a2, a6], a1, a4, a3, a5, n] + 
    S2[SP[a2, a6], a1, a4, a5, a3, n] + S2[SP[a2, a6], a1, a5, a4, a3, n] + 
    S2[SP[a2, a6], a5, a1, a4, a3, n] - S2[SP[a5, a6], a1, a4, a2, a3, n] - 
    S2[SP[a5, a6], a1, a4, a3, a2, n] + S2[SP[a5, a6], a2, a4, a1, a3, n] + 
    S2[a6, a2, a4, a3, a1, a5, n] + S2[a6, a2, a4, a3, a5, a1, n] + 
    S2[a6, a2, a4, a5, a3, a1, n] + S2[a6, a2, a5, a4, a3, a1, n] + 
    S2[a6, a5, a2, a4, a3, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a1_, a3_, a4_, a5_, a2_, a6_, n_] :> 
  -(S2[a1, a3, a4, n]*S2[a2, a5, a6, n]) - S2[a1, a3, a4, n]*
     S2[a2, a6, a5, n] - S2[SP[a1, a2], SP[a3, a5], SP[a4, a6], n] - 
    S2[SP[a1, a2], SP[a3, a6], SP[a4, a5], n] + S2[a1, a2, SP[a3, a5], 
     SP[a4, a6], n] + S2[a1, a2, SP[a3, a6], SP[a4, a5], n] + 
    S2[a2, a6, n]*S2[a1, a3, a4, a5, n] - S2[a1, a3, SP[a2, a4], SP[a5, a6], 
     n] - S2[a1, SP[a2, a3], a4, SP[a5, a6], n] + S2[a1, SP[a2, a3], a5, 
     SP[a4, a6], n] + S2[a1, SP[a2, a3], a6, SP[a4, a5], n] + 
    S2[a1, SP[a2, a3], SP[a4, a5], a6, n] + S2[a2, a1, SP[a3, a5], 
     SP[a4, a6], n] + S2[a2, a1, SP[a3, a6], SP[a4, a5], n] + 
    S2[a1, a3, n]*S2[a2, a5, a4, a6, n] + S2[a1, a3, n]*
     S2[a2, a5, a6, a4, n] - S2[a2, a5, SP[a1, a4], SP[a3, a6], n] - 
    S2[a2, a5, SP[a1, a6], SP[a3, a4], n] + S2[a1, a3, n]*
     S2[a2, a6, a5, a4, n] - S2[a2, a6, SP[a1, a5], SP[a3, a4], n] + 
    S2[a2, SP[a1, a5], a3, SP[a4, a6], n] - S2[a2, SP[a1, a5], a4, 
     SP[a3, a6], n] - S2[a2, SP[a1, a5], a6, SP[a3, a4], n] - 
    S2[a2, SP[a1, a5], SP[a3, a4], a6, n] + S2[a2, SP[a1, a6], a3, 
     SP[a4, a5], n] - S2[a2, SP[a1, a6], a5, SP[a3, a4], n] - 
    S2[SP[a1, a2], a3, a4, SP[a5, a6], n] + S2[SP[a1, a2], a3, a5, 
     SP[a4, a6], n] + S2[SP[a1, a2], a3, a6, SP[a4, a5], n] + 
    S2[SP[a1, a2], a3, SP[a4, a5], a6, n] + S2[SP[a1, a2], a5, a3, 
     SP[a4, a6], n] - S2[SP[a1, a2], a5, a4, SP[a3, a6], n] - 
    S2[SP[a1, a2], a5, a6, SP[a3, a4], n] - S2[SP[a1, a2], a5, SP[a3, a4], 
     a6, n] + S2[SP[a1, a2], a6, a3, SP[a4, a5], n] - 
    S2[SP[a1, a2], a6, a5, SP[a3, a4], n] + S2[a1, a2, a3, a4, SP[a5, a6], 
     n] - S2[a1, a2, a3, a5, SP[a4, a6], n] - S2[a1, a2, a3, a6, SP[a4, a5], 
     n] - S2[a1, a2, a3, SP[a4, a5], a6, n] - S2[a1, a2, a5, a3, SP[a4, a6], 
     n] + S2[a1, a2, a5, a4, SP[a3, a6], n] + S2[a1, a2, a5, a6, SP[a3, a4], 
     n] + S2[a1, a2, a5, SP[a3, a4], a6, n] - S2[a1, a2, a6, a3, SP[a4, a5], 
     n] + S2[a1, a2, a6, a5, SP[a3, a4], n] + S2[a1, a3, a2, a4, SP[a5, a6], 
     n] - S2[a1, a3, a2, a5, SP[a4, a6], n] - S2[a1, a3, a2, a6, SP[a4, a5], 
     n] - S2[a1, a3, a2, SP[a4, a5], a6, n] + S2[a1, a3, a4, a2, SP[a5, a6], 
     n] + S2[a1, a3, a4, SP[a2, a5], a6, n] + 
    S2[a6, n]*S2[a1, a5, a2, a4, a3, n] + S2[a1, a5, a2, a4, SP[a3, a6], n] + 
    S2[a1, a5, a2, SP[a4, a6], a3, n] + S2[a6, n]*S2[a1, a5, a4, a2, a3, n] + 
    S2[a1, a5, a4, a2, SP[a3, a6], n] + S2[a6, n]*S2[a1, a5, a4, a3, a2, n] - 
    S2[a2, n]*S2[a1, a5, a4, a3, a6, n] - 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] - S2[a1, a5, a4, a6, SP[a2, a3], n] - 
    S2[a1, a5, a4, SP[a2, a3], a6, n] + S2[a1, a5, a4, SP[a3, a6], a2, n] - 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] - S2[a1, a5, a6, a4, SP[a2, a3], n] - 
    S2[a1, a5, a6, SP[a2, a4], a3, n] - S2[a1, a5, SP[a2, a4], a3, a6, n] - 
    S2[a1, a5, SP[a2, a4], a6, a3, n] + S2[a1, a5, SP[a4, a6], a2, a3, n] + 
    S2[a1, a5, SP[a4, a6], a3, a2, n] - S2[a2, n]*S2[a1, a6, a5, a4, a3, n] - 
    S2[a1, a6, a5, a4, SP[a2, a3], n] - S2[a1, a6, a5, SP[a2, a4], a3, n] - 
    S2[a1, a6, SP[a2, a5], a4, a3, n] - S2[a1, SP[a2, a5], a4, a3, a6, n] - 
    S2[a1, SP[a2, a5], a4, a6, a3, n] - S2[a1, SP[a2, a5], a6, a4, a3, n] - 
    S2[a1, SP[a2, a6], a5, a4, a3, n] + S2[a1, SP[a5, a6], a2, a4, a3, n] + 
    S2[a1, SP[a5, a6], a4, a2, a3, n] + S2[a1, SP[a5, a6], a4, a3, a2, n] + 
    S2[a2, a1, a3, a4, SP[a5, a6], n] - S2[a2, a1, a3, a5, SP[a4, a6], n] - 
    S2[a2, a1, a3, a6, SP[a4, a5], n] - S2[a2, a1, a3, SP[a4, a5], a6, n] - 
    S2[a2, a1, a5, a3, SP[a4, a6], n] + S2[a2, a1, a5, a4, SP[a3, a6], n] + 
    S2[a2, a1, a5, a6, SP[a3, a4], n] + S2[a2, a1, a5, SP[a3, a4], a6, n] - 
    S2[a2, a1, a6, a3, SP[a4, a5], n] + S2[a2, a1, a6, a5, SP[a3, a4], n] - 
    S2[a2, a5, a1, a3, SP[a4, a6], n] - S2[a6, n]*S2[a2, a5, a1, a4, a3, n] + 
    S2[a2, a5, a1, a6, SP[a3, a4], n] + S2[a2, a5, a1, SP[a3, a4], a6, n] - 
    S2[a2, a5, a1, SP[a4, a6], a3, n] - S2[a6, n]*S2[a2, a5, a4, a1, a3, n] + 
    S2[a2, a5, a6, a1, SP[a3, a4], n] + S2[a2, a5, a6, SP[a1, a4], a3, n] + 
    S2[a2, a5, SP[a1, a4], a3, a6, n] + S2[a2, a5, SP[a1, a4], a6, a3, n] - 
    S2[a2, a5, SP[a4, a6], a1, a3, n] - S2[a2, a6, a1, a3, SP[a4, a5], n] + 
    S2[a2, a6, a1, a5, SP[a3, a4], n] + S2[a2, a6, a5, a1, SP[a3, a4], n] + 
    S2[a2, a6, a5, SP[a1, a4], a3, n] + S2[a2, a6, SP[a1, a5], a4, a3, n] + 
    S2[a2, SP[a1, a5], a4, a3, a6, n] + S2[a2, SP[a1, a5], a4, a6, a3, n] + 
    S2[a2, SP[a1, a5], a6, a4, a3, n] + S2[a2, SP[a1, a6], a5, a4, a3, n] - 
    S2[a2, SP[a5, a6], a1, a4, a3, n] - S2[a2, SP[a5, a6], a4, a1, a3, n] - 
    S2[a2, n]*S2[a6, a1, a5, a4, a3, n] - S2[a6, a1, a5, a4, SP[a2, a3], n] - 
    S2[a6, a1, a5, SP[a2, a4], a3, n] - S2[a6, a1, SP[a2, a5], a4, a3, n] + 
    S2[a1, n]*S2[a6, a2, a5, a4, a3, n] + S2[a6, a2, a5, a4, SP[a1, a3], n] + 
    S2[a6, a2, a5, SP[a1, a4], a3, n] + S2[a6, a2, SP[a1, a5], a4, a3, n] + 
    S2[SP[a1, a6], a2, a5, a4, a3, n] + S2[SP[a1, a6], a5, a2, a4, a3, n] + 
    S2[SP[a1, a6], a5, a4, a2, a3, n] + S2[SP[a1, a6], a5, a4, a3, a2, n] - 
    S2[SP[a2, a6], a1, a5, a4, a3, n] - S2[SP[a2, a6], a5, a1, a4, a3, n] - 
    S2[SP[a2, a6], a5, a4, a1, a3, n] - S2[a6, a2, a5, a4, a3, a1, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a1_, a3_, a4_, a5_, a6_, a2_, n_] :> 
  S2[a1, a3, a4, n]*S2[a2, a6, a5, n] + S2[SP[a1, a2], SP[a3, a6], 
     SP[a4, a5], n] - S2[a1, a2, SP[a3, a6], SP[a4, a5], n] - 
    S2[a2, a6, n]*S2[a1, a3, a4, a5, n] + S2[a1, a3, SP[a2, a4], SP[a5, a6], 
     n] + S2[a1, SP[a2, a3], a4, SP[a5, a6], n] - S2[a1, SP[a2, a3], a6, 
     SP[a4, a5], n] - S2[a2, a1, SP[a3, a6], SP[a4, a5], n] - 
    S2[a1, a3, n]*S2[a2, a6, a5, a4, n] + S2[a2, a6, SP[a1, a5], SP[a3, a4], 
     n] - S2[a2, SP[a1, a6], a3, SP[a4, a5], n] + S2[a2, SP[a1, a6], a5, 
     SP[a3, a4], n] + S2[SP[a1, a2], a3, a4, SP[a5, a6], n] - 
    S2[SP[a1, a2], a3, a6, SP[a4, a5], n] - S2[SP[a1, a2], a6, a3, 
     SP[a4, a5], n] + S2[SP[a1, a2], a6, a5, SP[a3, a4], n] - 
    S2[a1, a2, a3, a4, SP[a5, a6], n] + S2[a1, a2, a3, a6, SP[a4, a5], n] + 
    S2[a1, a2, a6, a3, SP[a4, a5], n] - S2[a1, a2, a6, a5, SP[a3, a4], n] - 
    S2[a1, a3, a2, a4, SP[a5, a6], n] + S2[a1, a3, a2, a6, SP[a4, a5], n] - 
    S2[a1, a3, a4, a2, SP[a5, a6], n] + S2[a2, n]*S2[a1, a3, a4, a5, a6, n] + 
    S2[a1, a3, a4, a5, SP[a2, a6], n] + S2[a2, n]*S2[a1, a6, a5, a4, a3, n] + 
    S2[a1, a6, a5, a4, SP[a2, a3], n] + S2[a1, a6, a5, SP[a2, a4], a3, n] + 
    S2[a1, a6, SP[a2, a5], a4, a3, n] + S2[a1, SP[a2, a6], a5, a4, a3, n] - 
    S2[a2, a1, a3, a4, SP[a5, a6], n] + S2[a2, a1, a3, a6, SP[a4, a5], n] + 
    S2[a2, a1, a6, a3, SP[a4, a5], n] - S2[a2, a1, a6, a5, SP[a3, a4], n] + 
    S2[a2, a6, a1, a3, SP[a4, a5], n] - S2[a2, a6, a1, a5, SP[a3, a4], n] - 
    S2[a2, a6, a5, a1, SP[a3, a4], n] - S2[a2, a6, a5, SP[a1, a4], a3, n] - 
    S2[a2, a6, SP[a1, a5], a4, a3, n] - S2[a2, SP[a1, a6], a5, a4, a3, n] + 
    S2[a2, n]*S2[a6, a1, a5, a4, a3, n] + S2[a6, a1, a5, a4, SP[a2, a3], n] + 
    S2[a6, a1, a5, SP[a2, a4], a3, n] + S2[a6, a1, SP[a2, a5], a4, a3, n] - 
    S2[a1, n]*S2[a6, a2, a5, a4, a3, n] - S2[a6, a2, a5, a4, SP[a1, a3], n] - 
    S2[a6, a2, a5, SP[a1, a4], a3, n] - S2[a6, a2, SP[a1, a5], a4, a3, n] + 
    S2[a2, n]*S2[a6, a5, a1, a4, a3, n] + S2[a6, a5, a1, a4, SP[a2, a3], n] + 
    S2[a6, a5, a1, SP[a2, a4], a3, n] - S2[a1, n]*S2[a6, a5, a2, a4, a3, n] - 
    S2[a6, a5, a2, a4, SP[a1, a3], n] - S2[a6, a5, a2, SP[a1, a4], a3, n] + 
    S2[a2, n]*S2[a6, a5, a4, a1, a3, n] + S2[a6, a5, a4, a1, SP[a2, a3], n] - 
    S2[a1, n]*S2[a6, a5, a4, a2, a3, n] - S2[a6, a5, a4, a2, SP[a1, a3], n] - 
    S2[a1, n]*S2[a6, a5, a4, a3, a2, n] - S2[a6, a5, a4, a3, SP[a1, a2], n] - 
    S2[a6, a5, a4, SP[a1, a3], a2, n] - S2[a6, a5, SP[a1, a4], a2, a3, n] - 
    S2[a6, a5, SP[a1, a4], a3, a2, n] + S2[a6, a5, SP[a2, a4], a1, a3, n] - 
    S2[a6, SP[a1, a5], a2, a4, a3, n] - S2[a6, SP[a1, a5], a4, a2, a3, n] - 
    S2[a6, SP[a1, a5], a4, a3, a2, n] + S2[a6, SP[a2, a5], a1, a4, a3, n] + 
    S2[a6, SP[a2, a5], a4, a1, a3, n] - S2[SP[a1, a6], a2, a5, a4, a3, n] - 
    S2[SP[a1, a6], a5, a2, a4, a3, n] - S2[SP[a1, a6], a5, a4, a2, a3, n] - 
    S2[SP[a1, a6], a5, a4, a3, a2, n] + S2[SP[a2, a6], a1, a5, a4, a3, n] + 
    S2[SP[a2, a6], a5, a1, a4, a3, n] + S2[SP[a2, a6], a5, a4, a1, a3, n] + 
    S2[a6, a2, a5, a4, a3, a1, n] + S2[a6, a5, a2, a4, a3, a1, n] + 
    S2[a6, a5, a4, a2, a3, a1, n] + S2[a6, a5, a4, a3, a1, a2, n] + 
    S2[a6, a5, a4, a3, a2, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a1_, a3_, a4_, a6_, a2_, a5_, n_] :> 
  -(S2[a1, a3, a4, n]*S2[a2, a5, a6, n]) - S2[a1, a3, a4, n]*
     S2[a2, a6, a5, n] - S2[SP[a1, a2], SP[a3, a5], SP[a4, a6], n] - 
    S2[SP[a1, a2], SP[a3, a6], SP[a4, a5], n] + S2[a1, a2, SP[a3, a5], 
     SP[a4, a6], n] + S2[a1, a2, SP[a3, a6], SP[a4, a5], n] + 
    S2[a1, SP[a2, a3], a5, SP[a4, a6], n] + S2[a1, SP[a2, a3], a6, 
     SP[a4, a5], n] + S2[a1, SP[a2, a3], SP[a4, a5], a6, n] + 
    S2[a1, SP[a2, a3], SP[a4, a6], a5, n] + S2[a2, a1, SP[a3, a5], 
     SP[a4, a6], n] + S2[a2, a1, SP[a3, a6], SP[a4, a5], n] + 
    S2[a2, SP[a1, a5], a3, SP[a4, a6], n] + S2[a2, SP[a1, a5], SP[a3, a6], 
     a4, n] + S2[a2, SP[a1, a6], a3, SP[a4, a5], n] + 
    S2[a2, SP[a1, a6], SP[a3, a5], a4, n] + S2[a1, a3, n]*
     S2[a4, a6, a2, a5, n] - S2[a4, a6, SP[a1, a2], SP[a3, a5], n] - 
    S2[a4, SP[a1, a6], a2, SP[a3, a5], n] - S2[a4, SP[a1, a6], SP[a2, a3], 
     a5, n] + S2[SP[a1, a2], a3, a5, SP[a4, a6], n] + 
    S2[SP[a1, a2], a3, a6, SP[a4, a5], n] + S2[SP[a1, a2], a3, SP[a4, a5], 
     a6, n] + S2[SP[a1, a2], a3, SP[a4, a6], a5, n] + 
    S2[SP[a1, a2], a5, a3, SP[a4, a6], n] + S2[SP[a1, a2], a5, SP[a3, a6], 
     a4, n] + S2[SP[a1, a2], a6, a3, SP[a4, a5], n] + 
    S2[SP[a1, a2], a6, SP[a3, a5], a4, n] + S2[SP[a1, a2], SP[a3, a5], a4, 
     a6, n] + S2[SP[a1, a2], SP[a3, a5], a6, a4, n] + 
    S2[SP[a1, a2], SP[a3, a6], a4, a5, n] + S2[SP[a1, a2], SP[a3, a6], a5, 
     a4, n] - S2[SP[a1, a4], a6, a2, SP[a3, a5], n] - 
    S2[SP[a1, a4], a6, SP[a2, a3], a5, n] - S2[SP[a1, a4], SP[a3, a6], a2, 
     a5, n] - S2[a1, a2, a3, a5, SP[a4, a6], n] - 
    S2[a1, a2, a3, a6, SP[a4, a5], n] - S2[a1, a2, a3, SP[a4, a5], a6, n] - 
    S2[a1, a2, a3, SP[a4, a6], a5, n] - S2[a1, a2, a5, a3, SP[a4, a6], n] - 
    S2[a1, a2, a5, SP[a3, a6], a4, n] - S2[a1, a2, a6, a3, SP[a4, a5], n] - 
    S2[a1, a2, a6, SP[a3, a5], a4, n] - S2[a1, a2, SP[a3, a5], a4, a6, n] - 
    S2[a1, a2, SP[a3, a5], a6, a4, n] - S2[a1, a2, SP[a3, a6], a4, a5, n] - 
    S2[a1, a2, SP[a3, a6], a5, a4, n] - S2[a1, a3, a2, a5, SP[a4, a6], n] - 
    S2[a1, a3, a2, a6, SP[a4, a5], n] - S2[a1, a3, a2, SP[a4, a5], a6, n] - 
    S2[a1, a3, a2, SP[a4, a6], a5, n] - S2[a6, n]*S2[a1, a3, a4, a5, a2, n] + 
    S2[a2, n]*S2[a1, a3, a4, a5, a6, n] + 
    S2[a2, n]*S2[a1, a3, a4, a6, a5, n] + S2[a1, a3, a4, a6, SP[a2, a5], n] + 
    S2[a1, a3, a4, SP[a2, a5], a6, n] + S2[a1, a3, a4, SP[a2, a6], a5, n] - 
    S2[a1, a3, a4, SP[a5, a6], a2, n] - S2[a6, n]*S2[a1, a3, a5, a2, a4, n] - 
    S2[a1, a3, a5, a2, SP[a4, a6], n] - S2[a6, n]*S2[a1, a3, a5, a4, a2, n] + 
    S2[a2, n]*S2[a1, a3, a5, a4, a6, n] + 
    S2[a2, n]*S2[a1, a3, a5, a6, a4, n] + S2[a1, a3, a5, a6, SP[a2, a4], n] + 
    S2[a1, a3, a5, SP[a2, a4], a6, n] - S2[a1, a3, a5, SP[a4, a6], a2, n] - 
    S2[a4, n]*S2[a1, a3, a6, a2, a5, n] - S2[a1, a3, a6, a2, SP[a4, a5], n] + 
    S2[a2, n]*S2[a1, a3, a6, a4, a5, n] + S2[a1, a3, a6, a4, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a3, a6, a5, a4, n] + S2[a1, a3, a6, a5, SP[a2, a4], n] + 
    S2[a1, a3, a6, SP[a2, a5], a4, n] + S2[a1, a3, SP[a2, a5], a4, a6, n] + 
    S2[a1, a3, SP[a2, a5], a6, a4, n] + S2[a1, a3, SP[a2, a6], a4, a5, n] + 
    S2[a1, a3, SP[a2, a6], a5, a4, n] - S2[a1, a3, SP[a4, a6], a2, a5, n] - 
    S2[a1, a3, SP[a4, a6], a5, a2, n] - S2[a1, a3, SP[a5, a6], a2, a4, n] - 
    S2[a1, a3, SP[a5, a6], a4, a2, n] + S2[a1, a4, a6, a2, SP[a3, a5], n] + 
    S2[a1, a4, a6, SP[a2, a3], a5, n] + S2[a1, a4, SP[a3, a6], a2, a5, n] - 
    S2[a6, n]*S2[a1, a5, a2, a3, a4, n] - S2[a1, a5, a2, a3, SP[a4, a6], n] - 
    S2[a1, a5, a2, SP[a3, a6], a4, n] - S2[a6, n]*S2[a1, a5, a3, a2, a4, n] - 
    S2[a1, a5, a3, a2, SP[a4, a6], n] - S2[a6, n]*S2[a1, a5, a3, a4, a2, n] + 
    S2[a2, n]*S2[a1, a5, a3, a4, a6, n] + 
    S2[a2, n]*S2[a1, a5, a3, a6, a4, n] + S2[a1, a5, a3, a6, SP[a2, a4], n] + 
    S2[a1, a5, a3, SP[a2, a4], a6, n] - S2[a1, a5, a3, SP[a4, a6], a2, n] + 
    S2[a2, n]*S2[a1, a5, a6, a3, a4, n] + S2[a1, a5, a6, a3, SP[a2, a4], n] + 
    S2[a1, a5, a6, SP[a2, a3], a4, n] + S2[a1, a5, SP[a2, a3], a4, a6, n] + 
    S2[a1, a5, SP[a2, a3], a6, a4, n] - S2[a1, a5, SP[a3, a6], a2, a4, n] - 
    S2[a1, a5, SP[a3, a6], a4, a2, n] - S2[a4, n]*S2[a1, a6, a2, a3, a5, n] - 
    S2[a1, a6, a2, a3, SP[a4, a5], n] - S2[a4, n]*S2[a1, a6, a2, a5, a3, n] - 
    S2[a1, a6, a2, a5, SP[a3, a4], n] - S2[a1, a6, a2, SP[a3, a4], a5, n] - 
    S2[a1, a6, a2, SP[a4, a5], a3, n] - S2[a4, n]*S2[a1, a6, a3, a2, a5, n] - 
    S2[a1, a6, a3, a2, SP[a4, a5], n] + S2[a2, n]*S2[a1, a6, a3, a4, a5, n] + 
    S2[a1, a6, a3, a4, SP[a2, a5], n] + S2[a2, n]*S2[a1, a6, a3, a5, a4, n] + 
    S2[a1, a6, a3, a5, SP[a2, a4], n] + S2[a1, a6, a3, SP[a2, a5], a4, n] + 
    S2[a2, n]*S2[a1, a6, a5, a3, a4, n] + S2[a1, a6, a5, a3, SP[a2, a4], n] + 
    S2[a1, a6, a5, SP[a2, a3], a4, n] + S2[a1, a6, SP[a2, a3], a4, a5, n] + 
    S2[a1, a6, SP[a2, a3], a5, a4, n] - S2[a1, a6, SP[a2, a4], a3, a5, n] - 
    S2[a1, a6, SP[a2, a4], a5, a3, n] + S2[a1, a6, SP[a2, a5], a3, a4, n] - 
    S2[a1, a6, SP[a3, a4], a2, a5, n] + S2[a1, SP[a2, a5], a3, a4, a6, n] + 
    S2[a1, SP[a2, a5], a3, a6, a4, n] + S2[a1, SP[a2, a5], a6, a3, a4, n] + 
    S2[a1, SP[a2, a6], a3, a4, a5, n] + S2[a1, SP[a2, a6], a3, a5, a4, n] + 
    S2[a1, SP[a2, a6], a5, a3, a4, n] - S2[a1, SP[a3, a6], a4, a5, a2, n] - 
    S2[a1, SP[a3, a6], a5, a2, a4, n] - S2[a1, SP[a3, a6], a5, a4, a2, n] - 
    S2[a1, SP[a4, a6], a2, a3, a5, n] - S2[a1, SP[a4, a6], a2, a5, a3, n] - 
    S2[a1, SP[a4, a6], a3, a2, a5, n] - S2[a1, SP[a5, a6], a2, a3, a4, n] - 
    S2[a1, SP[a5, a6], a3, a2, a4, n] - S2[a1, SP[a5, a6], a3, a4, a2, n] - 
    S2[a2, a1, a3, a5, SP[a4, a6], n] - S2[a2, a1, a3, a6, SP[a4, a5], n] - 
    S2[a2, a1, a3, SP[a4, a5], a6, n] - S2[a2, a1, a3, SP[a4, a6], a5, n] - 
    S2[a2, a1, a5, a3, SP[a4, a6], n] - S2[a2, a1, a5, SP[a3, a6], a4, n] - 
    S2[a2, a1, a6, a3, SP[a4, a5], n] - S2[a2, a1, a6, SP[a3, a5], a4, n] - 
    S2[a2, a1, SP[a3, a5], a4, a6, n] - S2[a2, a1, SP[a3, a5], a6, a4, n] - 
    S2[a2, a1, SP[a3, a6], a4, a5, n] - S2[a2, a1, SP[a3, a6], a5, a4, n] + 
    S2[a6, n]*S2[a2, a5, a1, a3, a4, n] + 
    S2[a4, n]*S2[a2, a6, a1, a3, a5, n] + 
    S2[a4, n]*S2[a2, a6, a1, a5, a3, n] + S2[a2, a6, a1, a5, SP[a3, a4], n] + 
    S2[a2, a6, a1, SP[a3, a4], a5, n] - S2[a2, a6, a1, SP[a3, a5], a4, n] + 
    S2[a2, a6, a1, SP[a4, a5], a3, n] + S2[a2, a6, SP[a1, a4], a3, a5, n] + 
    S2[a2, a6, SP[a1, a4], a5, a3, n] - S2[a2, a6, SP[a1, a5], a3, a4, n] - 
    S2[a2, SP[a1, a5], a3, a4, a6, n] - S2[a2, SP[a1, a5], a3, a6, a4, n] - 
    S2[a2, SP[a1, a5], a6, a3, a4, n] - S2[a2, SP[a1, a6], a3, a4, a5, n] - 
    S2[a2, SP[a1, a6], a3, a5, a4, n] - S2[a2, SP[a1, a6], a5, a3, a4, n] + 
    S2[a2, SP[a4, a6], a1, a3, a5, n] + S2[a2, SP[a4, a6], a1, a5, a3, n] + 
    S2[a2, SP[a5, a6], a1, a3, a4, n] + S2[a4, a1, a6, a2, SP[a3, a5], n] + 
    S2[a4, a1, a6, SP[a2, a3], a5, n] + S2[a4, a1, SP[a3, a6], a2, a5, n] + 
    S2[a4, a6, a1, a2, SP[a3, a5], n] - S2[a2, n]*S2[a4, a6, a1, a3, a5, n] - 
    S2[a4, a6, a1, a3, SP[a2, a5], n] - S2[a2, n]*S2[a4, a6, a1, a5, a3, n] - 
    S2[a4, a6, a1, a5, SP[a2, a3], n] - S2[a4, a6, a1, SP[a2, a5], a3, n] + 
    S2[a4, a6, a2, a1, SP[a3, a5], n] + S2[a4, a6, a2, SP[a1, a5], a3, n] + 
    S2[a4, SP[a1, a6], a2, a3, a5, n] + S2[a4, SP[a1, a6], a2, a5, a3, n] + 
    S2[a4, SP[a1, a6], a3, a2, a5, n] - S2[a4, SP[a2, a6], a1, a3, a5, n] - 
    S2[a4, SP[a2, a6], a1, a5, a3, n] + S2[a4, n]*S2[a6, a1, a3, a5, a2, n] + 
    S2[a6, a1, a3, a5, SP[a2, a4], n] + S2[a6, a1, a3, SP[a4, a5], a2, n] - 
    S2[a2, n]*S2[a6, a1, a4, a3, a5, n] - S2[a6, a1, a4, a3, SP[a2, a5], n] - 
    S2[a2, n]*S2[a6, a1, a4, a5, a3, n] - S2[a6, a1, a4, a5, SP[a2, a3], n] - 
    S2[a6, a1, a4, SP[a2, a3], a5, n] - S2[a6, a1, a4, SP[a2, a5], a3, n] + 
    S2[a4, n]*S2[a6, a1, a5, a2, a3, n] + S2[a6, a1, a5, a2, SP[a3, a4], n] + 
    S2[a4, n]*S2[a6, a1, a5, a3, a2, n] + S2[a6, a1, a5, a3, SP[a2, a4], n] - 
    S2[a2, n]*S2[a6, a1, a5, a4, a3, n] - S2[a6, a1, a5, a4, SP[a2, a3], n] + 
    S2[a6, a1, a5, SP[a3, a4], a2, n] - S2[a6, a1, SP[a2, a4], a3, a5, n] - 
    S2[a6, a1, SP[a2, a4], a5, a3, n] - S2[a6, a1, SP[a2, a5], a4, a3, n] + 
    S2[a6, a1, SP[a3, a4], a5, a2, n] + S2[a6, a1, SP[a4, a5], a2, a3, n] + 
    S2[a6, a1, SP[a4, a5], a3, a2, n] + S2[a1, n]*S2[a6, a2, a4, a3, a5, n] + 
    S2[a6, a2, a4, a3, SP[a1, a5], n] + S2[a1, n]*S2[a6, a2, a4, a5, a3, n] + 
    S2[a6, a2, a4, a5, SP[a1, a3], n] + S2[a6, a2, a4, SP[a1, a3], a5, n] + 
    S2[a6, a2, a4, SP[a1, a5], a3, n] - S2[a4, n]*S2[a6, a2, a5, a1, a3, n] - 
    S2[a6, a2, a5, a1, SP[a3, a4], n] + S2[a1, n]*S2[a6, a2, a5, a4, a3, n] + 
    S2[a6, a2, a5, a4, SP[a1, a3], n] + S2[a6, a2, SP[a1, a4], a3, a5, n] + 
    S2[a6, a2, SP[a1, a4], a5, a3, n] + S2[a6, a2, SP[a1, a5], a4, a3, n] - 
    S2[a6, a2, SP[a4, a5], a1, a3, n] - S2[a2, n]*S2[a6, a4, a1, a3, a5, n] - 
    S2[a6, a4, a1, a3, SP[a2, a5], n] - S2[a2, n]*S2[a6, a4, a1, a5, a3, n] - 
    S2[a6, a4, a1, a5, SP[a2, a3], n] - S2[a6, a4, a1, SP[a2, a3], a5, n] - 
    S2[a6, a4, a1, SP[a2, a5], a3, n] + S2[a1, n]*S2[a6, a4, a2, a3, a5, n] + 
    S2[a6, a4, a2, a3, SP[a1, a5], n] + S2[a1, n]*S2[a6, a4, a2, a5, a3, n] + 
    S2[a6, a4, a2, a5, SP[a1, a3], n] + S2[a6, a4, a2, SP[a1, a3], a5, n] + 
    S2[a6, a4, a2, SP[a1, a5], a3, n] + S2[a1, n]*S2[a6, a4, a3, a2, a5, n] + 
    S2[a6, a4, a3, a2, SP[a1, a5], n] + S2[a6, a4, a3, SP[a1, a2], a5, n] + 
    S2[a6, a4, SP[a1, a3], a2, a5, n] + S2[a6, SP[a1, a4], a2, a3, a5, n] + 
    S2[a6, SP[a1, a4], a2, a5, a3, n] + S2[a6, SP[a1, a4], a3, a2, a5, n] + 
    S2[a6, SP[a1, a4], a3, a5, a2, n] + S2[a6, SP[a1, a4], a5, a2, a3, n] + 
    S2[a6, SP[a1, a4], a5, a3, a2, n] - S2[a6, SP[a2, a4], a1, a3, a5, n] - 
    S2[a6, SP[a2, a4], a1, a5, a3, n] - S2[a6, SP[a2, a4], a5, a1, a3, n] + 
    S2[SP[a1, a6], a2, a4, a3, a5, n] + S2[SP[a1, a6], a2, a4, a5, a3, n] + 
    S2[SP[a1, a6], a2, a5, a4, a3, n] - S2[SP[a1, a6], a3, a4, a5, a2, n] - 
    S2[SP[a1, a6], a3, a5, a2, a4, n] - S2[SP[a1, a6], a3, a5, a4, a2, n] + 
    S2[SP[a1, a6], a4, a2, a3, a5, n] + S2[SP[a1, a6], a4, a2, a5, a3, n] + 
    S2[SP[a1, a6], a4, a3, a2, a5, n] - S2[SP[a1, a6], a5, a2, a3, a4, n] - 
    S2[SP[a1, a6], a5, a3, a2, a4, n] - S2[SP[a1, a6], a5, a3, a4, a2, n] - 
    S2[SP[a2, a6], a1, a4, a3, a5, n] - S2[SP[a2, a6], a1, a4, a5, a3, n] - 
    S2[SP[a2, a6], a1, a5, a4, a3, n] - S2[SP[a2, a6], a4, a1, a3, a5, n] - 
    S2[SP[a2, a6], a4, a1, a5, a3, n] + S2[SP[a2, a6], a5, a1, a3, a4, n] + 
    S2[SP[a4, a6], a1, a3, a5, a2, n] + S2[SP[a4, a6], a1, a5, a2, a3, n] + 
    S2[SP[a4, a6], a1, a5, a3, a2, n] - S2[SP[a4, a6], a2, a5, a1, a3, n] - 
    S2[a6, a2, a4, a3, a1, a5, n] - S2[a6, a2, a4, a3, a5, a1, n] - 
    S2[a6, a2, a4, a5, a3, a1, n] - S2[a6, a2, a5, a4, a3, a1, n] - 
    S2[a6, a4, a2, a3, a1, a5, n] - S2[a6, a4, a2, a3, a5, a1, n] - 
    S2[a6, a4, a2, a5, a3, a1, n] - S2[a6, a4, a3, a1, a2, a5, n] - 
    S2[a6, a4, a3, a2, a1, a5, n] - S2[a6, a4, a3, a2, a5, a1, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a1_, a3_, a4_, a6_, a5_, a2_, n_] :> 
  S2[a1, a3, a4, n]*S2[a2, a5, a6, n] + S2[SP[a1, a2], SP[a3, a5], 
     SP[a4, a6], n] - S2[a1, a2, SP[a3, a5], SP[a4, a6], n] - 
    S2[a1, SP[a2, a3], a5, SP[a4, a6], n] - S2[a1, SP[a2, a3], SP[a4, a5], 
     a6, n] - S2[a2, a1, SP[a3, a5], SP[a4, a6], n] + 
    S2[a1, a3, n]*S2[a2, a6, a4, a5, n] + S2[a1, a3, n]*
     S2[a2, a6, a5, a4, n] - S2[a2, a6, SP[a1, a4], SP[a3, a5], n] - 
    S2[a2, a6, SP[a1, a5], SP[a3, a4], n] - S2[a2, SP[a1, a5], a3, 
     SP[a4, a6], n] - S2[a2, SP[a1, a5], SP[a3, a6], a4, n] - 
    S2[a2, SP[a1, a6], a4, SP[a3, a5], n] - S2[a2, SP[a1, a6], a5, 
     SP[a3, a4], n] - S2[a2, SP[a1, a6], SP[a3, a4], a5, n] - 
    S2[a2, SP[a1, a6], SP[a3, a5], a4, n] - S2[a1, a3, n]*
     S2[a4, a6, a2, a5, n] + S2[a4, a6, SP[a1, a2], SP[a3, a5], n] + 
    S2[a4, SP[a1, a6], a2, SP[a3, a5], n] + S2[a4, SP[a1, a6], SP[a2, a3], 
     a5, n] - S2[SP[a1, a2], a3, a5, SP[a4, a6], n] - 
    S2[SP[a1, a2], a3, SP[a4, a5], a6, n] - S2[SP[a1, a2], a5, a3, 
     SP[a4, a6], n] - S2[SP[a1, a2], a5, SP[a3, a6], a4, n] - 
    S2[SP[a1, a2], a6, a4, SP[a3, a5], n] - S2[SP[a1, a2], a6, a5, 
     SP[a3, a4], n] - S2[SP[a1, a2], a6, SP[a3, a4], a5, n] - 
    S2[SP[a1, a2], a6, SP[a3, a5], a4, n] - S2[SP[a1, a2], SP[a3, a5], a4, 
     a6, n] - S2[SP[a1, a2], SP[a3, a5], a6, a4, n] - 
    S2[SP[a1, a2], SP[a3, a6], a4, a5, n] - S2[SP[a1, a2], SP[a3, a6], a5, 
     a4, n] + S2[SP[a1, a4], a6, a2, SP[a3, a5], n] + 
    S2[SP[a1, a4], a6, SP[a2, a3], a5, n] + S2[SP[a1, a4], SP[a3, a6], a2, 
     a5, n] + S2[a1, a2, a3, a5, SP[a4, a6], n] + S2[a1, a2, a3, SP[a4, a5], 
     a6, n] + S2[a1, a2, a5, a3, SP[a4, a6], n] + S2[a1, a2, a5, SP[a3, a6], 
     a4, n] + S2[a1, a2, a6, a4, SP[a3, a5], n] + 
    S2[a1, a2, a6, a5, SP[a3, a4], n] + S2[a1, a2, a6, SP[a3, a4], a5, n] + 
    S2[a1, a2, a6, SP[a3, a5], a4, n] + S2[a1, a2, SP[a3, a5], a4, a6, n] + 
    S2[a1, a2, SP[a3, a5], a6, a4, n] + S2[a1, a2, SP[a3, a6], a4, a5, n] + 
    S2[a1, a2, SP[a3, a6], a5, a4, n] + S2[a1, a3, a2, a5, SP[a4, a6], n] + 
    S2[a1, a3, a2, SP[a4, a5], a6, n] + S2[a6, n]*S2[a1, a3, a4, a5, a2, n] - 
    S2[a2, n]*S2[a1, a3, a4, a5, a6, n] - S2[a1, a3, a4, SP[a2, a5], a6, n] + 
    S2[a1, a3, a4, SP[a5, a6], a2, n] + S2[a6, n]*S2[a1, a3, a5, a2, a4, n] + 
    S2[a1, a3, a5, a2, SP[a4, a6], n] + S2[a6, n]*S2[a1, a3, a5, a4, a2, n] - 
    S2[a2, n]*S2[a1, a3, a5, a4, a6, n] - 
    S2[a2, n]*S2[a1, a3, a5, a6, a4, n] - S2[a1, a3, a5, a6, SP[a2, a4], n] - 
    S2[a1, a3, a5, SP[a2, a4], a6, n] + S2[a1, a3, a5, SP[a4, a6], a2, n] + 
    S2[a4, n]*S2[a1, a3, a6, a2, a5, n] + S2[a1, a3, a6, a2, SP[a4, a5], n] - 
    S2[a2, n]*S2[a1, a3, a6, a4, a5, n] - S2[a1, a3, a6, a4, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a3, a6, a5, a4, n] - S2[a1, a3, a6, a5, SP[a2, a4], n] - 
    S2[a1, a3, a6, SP[a2, a5], a4, n] - S2[a1, a3, SP[a2, a5], a4, a6, n] - 
    S2[a1, a3, SP[a2, a5], a6, a4, n] - S2[a1, a3, SP[a2, a6], a4, a5, n] - 
    S2[a1, a3, SP[a2, a6], a5, a4, n] + S2[a1, a3, SP[a4, a6], a2, a5, n] + 
    S2[a1, a3, SP[a4, a6], a5, a2, n] + S2[a1, a3, SP[a5, a6], a2, a4, n] + 
    S2[a1, a3, SP[a5, a6], a4, a2, n] - S2[a1, a4, a6, a2, SP[a3, a5], n] - 
    S2[a1, a4, a6, SP[a2, a3], a5, n] - S2[a1, a4, SP[a3, a6], a2, a5, n] + 
    S2[a6, n]*S2[a1, a5, a2, a3, a4, n] + S2[a1, a5, a2, a3, SP[a4, a6], n] + 
    S2[a1, a5, a2, SP[a3, a6], a4, n] + S2[a6, n]*S2[a1, a5, a3, a2, a4, n] + 
    S2[a1, a5, a3, a2, SP[a4, a6], n] + S2[a6, n]*S2[a1, a5, a3, a4, a2, n] - 
    S2[a2, n]*S2[a1, a5, a3, a4, a6, n] - 
    S2[a2, n]*S2[a1, a5, a3, a6, a4, n] - S2[a1, a5, a3, a6, SP[a2, a4], n] - 
    S2[a1, a5, a3, SP[a2, a4], a6, n] + S2[a1, a5, a3, SP[a4, a6], a2, n] - 
    S2[a2, n]*S2[a1, a5, a6, a3, a4, n] - S2[a1, a5, a6, a3, SP[a2, a4], n] - 
    S2[a1, a5, a6, SP[a2, a3], a4, n] - S2[a1, a5, SP[a2, a3], a4, a6, n] - 
    S2[a1, a5, SP[a2, a3], a6, a4, n] + S2[a1, a5, SP[a3, a6], a2, a4, n] + 
    S2[a1, a5, SP[a3, a6], a4, a2, n] + S2[a4, n]*S2[a1, a6, a2, a3, a5, n] + 
    S2[a1, a6, a2, a3, SP[a4, a5], n] + S2[a4, n]*S2[a1, a6, a2, a5, a3, n] + 
    S2[a1, a6, a2, a5, SP[a3, a4], n] + S2[a1, a6, a2, SP[a3, a4], a5, n] + 
    S2[a1, a6, a2, SP[a4, a5], a3, n] + S2[a4, n]*S2[a1, a6, a3, a2, a5, n] + 
    S2[a1, a6, a3, a2, SP[a4, a5], n] - S2[a2, n]*S2[a1, a6, a3, a4, a5, n] - 
    S2[a1, a6, a3, a4, SP[a2, a5], n] - S2[a2, n]*S2[a1, a6, a3, a5, a4, n] - 
    S2[a1, a6, a3, a5, SP[a2, a4], n] - S2[a1, a6, a3, SP[a2, a5], a4, n] - 
    S2[a2, n]*S2[a1, a6, a4, a3, a5, n] - S2[a1, a6, a4, a3, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a6, a4, a5, a3, n] - S2[a1, a6, a4, a5, SP[a2, a3], n] - 
    S2[a1, a6, a4, SP[a2, a3], a5, n] - S2[a1, a6, a4, SP[a2, a5], a3, n] - 
    S2[a2, n]*S2[a1, a6, a5, a3, a4, n] - S2[a1, a6, a5, a3, SP[a2, a4], n] - 
    S2[a2, n]*S2[a1, a6, a5, a4, a3, n] - S2[a1, a6, a5, a4, SP[a2, a3], n] - 
    S2[a1, a6, a5, SP[a2, a3], a4, n] - S2[a1, a6, a5, SP[a2, a4], a3, n] - 
    S2[a1, a6, SP[a2, a3], a4, a5, n] - S2[a1, a6, SP[a2, a3], a5, a4, n] - 
    S2[a1, a6, SP[a2, a5], a3, a4, n] - S2[a1, a6, SP[a2, a5], a4, a3, n] + 
    S2[a1, a6, SP[a3, a4], a2, a5, n] - S2[a1, SP[a2, a5], a3, a4, a6, n] - 
    S2[a1, SP[a2, a5], a3, a6, a4, n] - S2[a1, SP[a2, a5], a6, a3, a4, n] - 
    S2[a1, SP[a2, a6], a3, a4, a5, n] - S2[a1, SP[a2, a6], a3, a5, a4, n] - 
    S2[a1, SP[a2, a6], a4, a3, a5, n] - S2[a1, SP[a2, a6], a4, a5, a3, n] - 
    S2[a1, SP[a2, a6], a5, a3, a4, n] - S2[a1, SP[a2, a6], a5, a4, a3, n] + 
    S2[a1, SP[a3, a6], a4, a5, a2, n] + S2[a1, SP[a3, a6], a5, a2, a4, n] + 
    S2[a1, SP[a3, a6], a5, a4, a2, n] + S2[a1, SP[a4, a6], a2, a3, a5, n] + 
    S2[a1, SP[a4, a6], a2, a5, a3, n] + S2[a1, SP[a4, a6], a3, a2, a5, n] + 
    S2[a1, SP[a5, a6], a2, a3, a4, n] + S2[a1, SP[a5, a6], a3, a2, a4, n] + 
    S2[a1, SP[a5, a6], a3, a4, a2, n] + S2[a2, a1, a3, a5, SP[a4, a6], n] + 
    S2[a2, a1, a3, SP[a4, a5], a6, n] + S2[a2, a1, a5, a3, SP[a4, a6], n] + 
    S2[a2, a1, a5, SP[a3, a6], a4, n] + S2[a2, a1, a6, a4, SP[a3, a5], n] + 
    S2[a2, a1, a6, a5, SP[a3, a4], n] + S2[a2, a1, a6, SP[a3, a4], a5, n] + 
    S2[a2, a1, a6, SP[a3, a5], a4, n] + S2[a2, a1, SP[a3, a5], a4, a6, n] + 
    S2[a2, a1, SP[a3, a5], a6, a4, n] + S2[a2, a1, SP[a3, a6], a4, a5, n] + 
    S2[a2, a1, SP[a3, a6], a5, a4, n] - S2[a6, n]*S2[a2, a5, a1, a3, a4, n] - 
    S2[a4, n]*S2[a2, a6, a1, a3, a5, n] - S2[a2, a6, a1, a3, SP[a4, a5], n] + 
    S2[a2, a6, a1, a4, SP[a3, a5], n] - S2[a4, n]*S2[a2, a6, a1, a5, a3, n] + 
    S2[a2, a6, a1, SP[a3, a5], a4, n] - S2[a2, a6, a1, SP[a4, a5], a3, n] + 
    S2[a2, a6, a4, a1, SP[a3, a5], n] + S2[a2, a6, a4, SP[a1, a5], a3, n] + 
    S2[a2, a6, a5, a1, SP[a3, a4], n] + S2[a2, a6, a5, SP[a1, a4], a3, n] + 
    S2[a2, a6, SP[a1, a5], a3, a4, n] + S2[a2, a6, SP[a1, a5], a4, a3, n] + 
    S2[a2, SP[a1, a5], a3, a4, a6, n] + S2[a2, SP[a1, a5], a3, a6, a4, n] + 
    S2[a2, SP[a1, a5], a6, a3, a4, n] + S2[a2, SP[a1, a6], a3, a4, a5, n] + 
    S2[a2, SP[a1, a6], a3, a5, a4, n] + S2[a2, SP[a1, a6], a4, a3, a5, n] + 
    S2[a2, SP[a1, a6], a4, a5, a3, n] + S2[a2, SP[a1, a6], a5, a3, a4, n] + 
    S2[a2, SP[a1, a6], a5, a4, a3, n] - S2[a2, SP[a4, a6], a1, a3, a5, n] - 
    S2[a2, SP[a4, a6], a1, a5, a3, n] - S2[a2, SP[a5, a6], a1, a3, a4, n] - 
    S2[a4, a1, a6, a2, SP[a3, a5], n] - S2[a4, a1, a6, SP[a2, a3], a5, n] - 
    S2[a4, a1, SP[a3, a6], a2, a5, n] - S2[a4, a6, a1, a2, SP[a3, a5], n] + 
    S2[a2, n]*S2[a4, a6, a1, a3, a5, n] + S2[a4, a6, a1, a3, SP[a2, a5], n] + 
    S2[a2, n]*S2[a4, a6, a1, a5, a3, n] + S2[a4, a6, a1, a5, SP[a2, a3], n] + 
    S2[a4, a6, a1, SP[a2, a5], a3, n] - S2[a4, a6, a2, a1, SP[a3, a5], n] - 
    S2[a4, a6, a2, SP[a1, a5], a3, n] - S2[a4, SP[a1, a6], a2, a3, a5, n] - 
    S2[a4, SP[a1, a6], a2, a5, a3, n] - S2[a4, SP[a1, a6], a3, a2, a5, n] + 
    S2[a4, SP[a2, a6], a1, a3, a5, n] + S2[a4, SP[a2, a6], a1, a5, a3, n] - 
    S2[a4, n]*S2[a6, a1, a3, a5, a2, n] - S2[a6, a1, a3, a5, SP[a2, a4], n] - 
    S2[a6, a1, a3, SP[a4, a5], a2, n] - S2[a4, n]*S2[a6, a1, a5, a2, a3, n] - 
    S2[a6, a1, a5, a2, SP[a3, a4], n] - S2[a4, n]*S2[a6, a1, a5, a3, a2, n] - 
    S2[a6, a1, a5, a3, SP[a2, a4], n] - S2[a6, a1, a5, SP[a2, a4], a3, n] - 
    S2[a6, a1, a5, SP[a3, a4], a2, n] - S2[a6, a1, SP[a3, a4], a5, a2, n] - 
    S2[a6, a1, SP[a4, a5], a2, a3, n] - S2[a6, a1, SP[a4, a5], a3, a2, n] + 
    S2[a4, n]*S2[a6, a2, a5, a1, a3, n] + S2[a6, a2, a5, a1, SP[a3, a4], n] + 
    S2[a6, a2, a5, SP[a1, a4], a3, n] + S2[a6, a2, SP[a4, a5], a1, a3, n] + 
    S2[a1, n]*S2[a6, a4, a3, a5, a2, n] + S2[a6, a4, a3, a5, SP[a1, a2], n] + 
    S2[a6, a4, a3, SP[a1, a5], a2, n] - S2[a2, n]*S2[a6, a4, a5, a1, a3, n] - 
    S2[a6, a4, a5, a1, SP[a2, a3], n] + S2[a1, n]*S2[a6, a4, a5, a2, a3, n] + 
    S2[a6, a4, a5, a2, SP[a1, a3], n] + S2[a1, n]*S2[a6, a4, a5, a3, a2, n] + 
    S2[a6, a4, a5, a3, SP[a1, a2], n] + S2[a6, a4, a5, SP[a1, a3], a2, n] + 
    S2[a6, a4, SP[a1, a3], a5, a2, n] + S2[a6, a4, SP[a1, a5], a2, a3, n] + 
    S2[a6, a4, SP[a1, a5], a3, a2, n] - S2[a6, a4, SP[a2, a5], a1, a3, n] - 
    S2[a2, n]*S2[a6, a5, a1, a4, a3, n] - S2[a6, a5, a1, a4, SP[a2, a3], n] - 
    S2[a6, a5, a1, SP[a2, a4], a3, n] + S2[a1, n]*S2[a6, a5, a2, a4, a3, n] + 
    S2[a6, a5, a2, a4, SP[a1, a3], n] + S2[a6, a5, a2, SP[a1, a4], a3, n] - 
    S2[a2, n]*S2[a6, a5, a4, a1, a3, n] - S2[a6, a5, a4, a1, SP[a2, a3], n] + 
    S2[a1, n]*S2[a6, a5, a4, a2, a3, n] + S2[a6, a5, a4, a2, SP[a1, a3], n] + 
    S2[a1, n]*S2[a6, a5, a4, a3, a2, n] + S2[a6, a5, a4, a3, SP[a1, a2], n] + 
    S2[a6, a5, a4, SP[a1, a3], a2, n] + S2[a6, a5, SP[a1, a4], a2, a3, n] + 
    S2[a6, a5, SP[a1, a4], a3, a2, n] - S2[a6, a5, SP[a2, a4], a1, a3, n] + 
    S2[a6, SP[a1, a5], a2, a4, a3, n] + S2[a6, SP[a1, a5], a4, a2, a3, n] + 
    S2[a6, SP[a1, a5], a4, a3, a2, n] - S2[a6, SP[a2, a5], a1, a4, a3, n] - 
    S2[a6, SP[a2, a5], a4, a1, a3, n] + S2[SP[a1, a6], a3, a4, a5, a2, n] + 
    S2[SP[a1, a6], a3, a5, a2, a4, n] + S2[SP[a1, a6], a3, a5, a4, a2, n] + 
    S2[SP[a1, a6], a4, a3, a5, a2, n] + S2[SP[a1, a6], a4, a5, a2, a3, n] + 
    S2[SP[a1, a6], a4, a5, a3, a2, n] + S2[SP[a1, a6], a5, a2, a3, a4, n] + 
    S2[SP[a1, a6], a5, a2, a4, a3, n] + S2[SP[a1, a6], a5, a3, a2, a4, n] + 
    S2[SP[a1, a6], a5, a3, a4, a2, n] + S2[SP[a1, a6], a5, a4, a2, a3, n] + 
    S2[SP[a1, a6], a5, a4, a3, a2, n] - S2[SP[a2, a6], a4, a5, a1, a3, n] - 
    S2[SP[a2, a6], a5, a1, a3, a4, n] - S2[SP[a2, a6], a5, a1, a4, a3, n] - 
    S2[SP[a2, a6], a5, a4, a1, a3, n] - S2[SP[a4, a6], a1, a3, a5, a2, n] - 
    S2[SP[a4, a6], a1, a5, a2, a3, n] - S2[SP[a4, a6], a1, a5, a3, a2, n] + 
    S2[SP[a4, a6], a2, a5, a1, a3, n] - S2[a6, a4, a3, a1, a5, a2, n] - 
    S2[a6, a4, a3, a5, a1, a2, n] - S2[a6, a4, a3, a5, a2, a1, n] - 
    S2[a6, a4, a5, a2, a3, a1, n] - S2[a6, a4, a5, a3, a1, a2, n] - 
    S2[a6, a4, a5, a3, a2, a1, n] - S2[a6, a5, a2, a4, a3, a1, n] - 
    S2[a6, a5, a4, a2, a3, a1, n] - S2[a6, a5, a4, a3, a1, a2, n] - 
    S2[a6, a5, a4, a3, a2, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a1_, a3_, a5_, a2_, a4_, a6_, n_] :> 
  S2[a1, a3, a5, n]*S2[a2, a4, a6, n] + S2[SP[a1, a2], SP[a3, a4], 
     SP[a5, a6], n] - S2[a1, a2, SP[a3, a4], SP[a5, a6], n] + 
    S2[a4, a6, n]*S2[a1, a3, a5, a2, n] - S2[a1, a3, SP[a4, a5], SP[a2, a6], 
     n] - S2[a1, SP[a2, a3], a4, SP[a5, a6], n] - 
    S2[a1, SP[a2, a3], SP[a4, a5], a6, n] - S2[a1, SP[a3, a4], a5, 
     SP[a2, a6], n] - S2[a1, SP[a3, a4], SP[a5, a6], a2, n] - 
    S2[a2, a1, SP[a3, a4], SP[a5, a6], n] - S2[a1, a3, n]*
     S2[a2, a4, a5, a6, n] - S2[a1, a3, n]*S2[a2, a4, a6, a5, n] + 
    S2[a2, a4, SP[a1, a5], SP[a3, a6], n] + S2[a2, a4, SP[a1, a6], 
     SP[a3, a5], n] - S2[a1, a3, n]*S2[a2, a5, a4, a6, n] - 
    S2[a1, a3, n]*S2[a2, a5, a6, a4, n] + S2[a2, a5, SP[a1, a4], SP[a3, a6], 
     n] + S2[a2, a5, SP[a1, a6], SP[a3, a4], n] - 
    S2[a1, a3, n]*S2[a2, a6, a4, a5, n] - S2[a1, a3, n]*
     S2[a2, a6, a5, a4, n] + S2[a2, a6, SP[a1, a4], SP[a3, a5], n] + 
    S2[a2, a6, SP[a1, a5], SP[a3, a4], n] - S2[a2, SP[a1, a4], a3, 
     SP[a5, a6], n] + S2[a2, SP[a1, a4], a5, SP[a3, a6], n] + 
    S2[a2, SP[a1, a4], a6, SP[a3, a5], n] + S2[a2, SP[a1, a4], SP[a3, a5], 
     a6, n] + S2[a2, SP[a1, a5], a4, SP[a3, a6], n] + 
    S2[a2, SP[a1, a5], a6, SP[a3, a4], n] + S2[a2, SP[a1, a5], SP[a3, a4], 
     a6, n] + S2[a2, SP[a1, a5], SP[a3, a6], a4, n] + 
    S2[a2, SP[a1, a6], a4, SP[a3, a5], n] + S2[a2, SP[a1, a6], a5, 
     SP[a3, a4], n] + S2[a2, SP[a1, a6], SP[a3, a4], a5, n] + 
    S2[a2, SP[a1, a6], SP[a3, a5], a4, n] + S2[a1, a3, n]*
     S2[a4, a6, a2, a5, n] - S2[a4, a6, SP[a1, a2], SP[a3, a5], n] - 
    S2[a4, SP[a1, a6], a2, SP[a3, a5], n] - S2[a4, SP[a1, a6], SP[a2, a3], 
     a5, n] - S2[SP[a1, a2], a3, a4, SP[a5, a6], n] - 
    S2[SP[a1, a2], a3, SP[a4, a5], a6, n] - S2[SP[a1, a2], a4, a3, 
     SP[a5, a6], n] + S2[SP[a1, a2], a4, a5, SP[a3, a6], n] + 
    S2[SP[a1, a2], a4, a6, SP[a3, a5], n] + S2[SP[a1, a2], a4, SP[a3, a5], 
     a6, n] + S2[SP[a1, a2], a5, a4, SP[a3, a6], n] + 
    S2[SP[a1, a2], a5, a6, SP[a3, a4], n] + S2[SP[a1, a2], a5, SP[a3, a4], 
     a6, n] + S2[SP[a1, a2], a5, SP[a3, a6], a4, n] + 
    S2[SP[a1, a2], a6, a4, SP[a3, a5], n] + S2[SP[a1, a2], a6, a5, 
     SP[a3, a4], n] + S2[SP[a1, a2], a6, SP[a3, a4], a5, n] + 
    S2[SP[a1, a2], a6, SP[a3, a5], a4, n] + S2[SP[a1, a2], SP[a3, a5], a4, 
     a6, n] + S2[SP[a1, a2], SP[a3, a5], a6, a4, n] + 
    S2[SP[a1, a2], SP[a3, a6], a4, a5, n] + S2[SP[a1, a2], SP[a3, a6], a5, 
     a4, n] - S2[SP[a1, a4], a3, a5, SP[a2, a6], n] - 
    S2[SP[a1, a4], a3, SP[a5, a6], a2, n] - S2[SP[a1, a4], a6, a2, 
     SP[a3, a5], n] - S2[SP[a1, a4], a6, SP[a2, a3], a5, n] - 
    S2[SP[a1, a4], SP[a3, a6], a2, a5, n] - S2[SP[a1, a4], SP[a3, a6], a5, 
     a2, n] + S2[a1, a2, a3, a4, SP[a5, a6], n] + S2[a1, a2, a3, SP[a4, a5], 
     a6, n] + S2[a1, a2, a4, a3, SP[a5, a6], n] - 
    S2[a1, a2, a4, a5, SP[a3, a6], n] - S2[a1, a2, a4, a6, SP[a3, a5], n] - 
    S2[a1, a2, a4, SP[a3, a5], a6, n] - S2[a1, a2, a5, a4, SP[a3, a6], n] - 
    S2[a1, a2, a5, a6, SP[a3, a4], n] - S2[a1, a2, a5, SP[a3, a4], a6, n] - 
    S2[a1, a2, a5, SP[a3, a6], a4, n] - S2[a1, a2, a6, a4, SP[a3, a5], n] - 
    S2[a1, a2, a6, a5, SP[a3, a4], n] - S2[a1, a2, a6, SP[a3, a4], a5, n] - 
    S2[a1, a2, a6, SP[a3, a5], a4, n] - S2[a1, a2, SP[a3, a5], a4, a6, n] - 
    S2[a1, a2, SP[a3, a5], a6, a4, n] - S2[a1, a2, SP[a3, a6], a4, a5, n] - 
    S2[a1, a2, SP[a3, a6], a5, a4, n] + S2[a1, a3, a2, a4, SP[a5, a6], n] + 
    S2[a1, a3, a2, SP[a4, a5], a6, n] + S2[a1, a3, a4, a5, SP[a2, a6], n] + 
    S2[a1, a3, a4, SP[a5, a6], a2, n] - S2[a4, n]*S2[a1, a3, a5, a2, a6, n] - 
    S2[a1, a3, a5, a2, SP[a4, a6], n] + S2[a1, a3, a5, a4, SP[a2, a6], n] - 
    S2[a4, n]*S2[a1, a3, a5, a6, a2, n] + 
    S2[a2, n]*S2[a1, a3, a5, a6, a4, n] + S2[a1, a3, a5, SP[a2, a6], a4, n] - 
    S2[a1, a3, a5, SP[a4, a6], a2, n] - S2[a4, n]*S2[a1, a3, a6, a2, a5, n] - 
    S2[a1, a3, a6, a2, SP[a4, a5], n] + S2[a2, n]*S2[a1, a3, a6, a4, a5, n] + 
    S2[a1, a3, a6, a4, SP[a2, a5], n] - S2[a4, n]*S2[a1, a3, a6, a5, a2, n] + 
    S2[a2, n]*S2[a1, a3, a6, a5, a4, n] + S2[a1, a3, a6, SP[a2, a5], a4, n] - 
    S2[a1, a3, a6, SP[a4, a5], a2, n] + S2[a1, a3, SP[a2, a5], a4, a6, n] + 
    S2[a1, a3, SP[a2, a5], a6, a4, n] + S2[a1, a3, SP[a2, a6], a4, a5, n] + 
    S2[a1, a3, SP[a2, a6], a5, a4, n] - S2[a1, a3, SP[a4, a6], a2, a5, n] - 
    S2[a1, a3, SP[a4, a6], a5, a2, n] - S2[a6, n]*S2[a1, a4, a2, a5, a3, n] - 
    S2[a1, a4, a2, a5, SP[a3, a6], n] - S2[a1, a4, a2, SP[a5, a6], a3, n] + 
    S2[a1, a4, a3, a5, SP[a2, a6], n] + S2[a1, a4, a3, SP[a5, a6], a2, n] - 
    S2[a6, n]*S2[a1, a4, a5, a2, a3, n] - S2[a1, a4, a5, a2, SP[a3, a6], n] - 
    S2[a6, n]*S2[a1, a4, a5, a3, a2, n] + 
    S2[a2, n]*S2[a1, a4, a5, a3, a6, n] + 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] + S2[a1, a4, a5, a6, SP[a2, a3], n] + 
    S2[a1, a4, a5, SP[a2, a3], a6, n] - S2[a1, a4, a5, SP[a3, a6], a2, n] + 
    S2[a1, a4, a6, a2, SP[a3, a5], n] + S2[a2, n]*S2[a1, a4, a6, a5, a3, n] + 
    S2[a1, a4, a6, a5, SP[a2, a3], n] + S2[a1, a4, a6, SP[a2, a3], a5, n] + 
    S2[a1, a4, a6, SP[a2, a5], a3, n] + S2[a1, a4, SP[a2, a5], a3, a6, n] + 
    S2[a1, a4, SP[a2, a5], a6, a3, n] + S2[a1, a4, SP[a3, a6], a2, a5, n] + 
    S2[a1, a4, SP[a3, a6], a5, a2, n] - S2[a1, a4, SP[a5, a6], a2, a3, n] - 
    S2[a1, a4, SP[a5, a6], a3, a2, n] - S2[a6, n]*S2[a1, a5, a2, a3, a4, n] - 
    S2[a1, a5, a2, a3, SP[a4, a6], n] - S2[a6, n]*S2[a1, a5, a2, a4, a3, n] - 
    S2[a1, a5, a2, a4, SP[a3, a6], n] - S2[a1, a5, a2, SP[a3, a6], a4, n] - 
    S2[a1, a5, a2, SP[a4, a6], a3, n] - S2[a6, n]*S2[a1, a5, a3, a2, a4, n] - 
    S2[a1, a5, a3, a2, SP[a4, a6], n] - S2[a6, n]*S2[a1, a5, a3, a4, a2, n] + 
    S2[a2, n]*S2[a1, a5, a3, a4, a6, n] + 
    S2[a2, n]*S2[a1, a5, a3, a6, a4, n] + S2[a1, a5, a3, a6, SP[a2, a4], n] + 
    S2[a1, a5, a3, SP[a2, a4], a6, n] - S2[a1, a5, a3, SP[a4, a6], a2, n] - 
    S2[a6, n]*S2[a1, a5, a4, a2, a3, n] - S2[a1, a5, a4, a2, SP[a3, a6], n] - 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] + 
    S2[a2, n]*S2[a1, a5, a4, a3, a6, n] + 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] + S2[a1, a5, a4, a6, SP[a2, a3], n] + 
    S2[a1, a5, a4, SP[a2, a3], a6, n] - S2[a1, a5, a4, SP[a3, a6], a2, n] + 
    S2[a2, n]*S2[a1, a5, a6, a3, a4, n] + S2[a1, a5, a6, a3, SP[a2, a4], n] + 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] + S2[a1, a5, a6, a4, SP[a2, a3], n] + 
    S2[a1, a5, a6, SP[a2, a3], a4, n] + S2[a1, a5, a6, SP[a2, a4], a3, n] + 
    S2[a1, a5, SP[a2, a3], a4, a6, n] + S2[a1, a5, SP[a2, a3], a6, a4, n] + 
    S2[a1, a5, SP[a2, a4], a3, a6, n] + S2[a1, a5, SP[a2, a4], a6, a3, n] - 
    S2[a1, a5, SP[a3, a6], a2, a4, n] - S2[a1, a5, SP[a3, a6], a4, a2, n] - 
    S2[a1, a5, SP[a4, a6], a2, a3, n] - S2[a1, a5, SP[a4, a6], a3, a2, n] - 
    S2[a4, n]*S2[a1, a6, a2, a3, a5, n] - S2[a1, a6, a2, a3, SP[a4, a5], n] - 
    S2[a4, n]*S2[a1, a6, a2, a5, a3, n] - S2[a1, a6, a2, a5, SP[a3, a4], n] - 
    S2[a1, a6, a2, SP[a3, a4], a5, n] - S2[a1, a6, a2, SP[a4, a5], a3, n] - 
    S2[a4, n]*S2[a1, a6, a3, a2, a5, n] - S2[a1, a6, a3, a2, SP[a4, a5], n] + 
    S2[a2, n]*S2[a1, a6, a3, a4, a5, n] + S2[a1, a6, a3, a4, SP[a2, a5], n] - 
    S2[a4, n]*S2[a1, a6, a3, a5, a2, n] + 
    S2[a2, n]*S2[a1, a6, a3, a5, a4, n] + S2[a1, a6, a3, SP[a2, a5], a4, n] - 
    S2[a1, a6, a3, SP[a4, a5], a2, n] + S2[a2, n]*S2[a1, a6, a4, a3, a5, n] + 
    S2[a1, a6, a4, a3, SP[a2, a5], n] + S2[a2, n]*S2[a1, a6, a4, a5, a3, n] + 
    S2[a1, a6, a4, a5, SP[a2, a3], n] + S2[a1, a6, a4, SP[a2, a3], a5, n] + 
    S2[a1, a6, a4, SP[a2, a5], a3, n] + S2[a2, n]*S2[a1, a6, a5, a3, a4, n] + 
    S2[a1, a6, a5, a3, SP[a2, a4], n] + S2[a2, n]*S2[a1, a6, a5, a4, a3, n] + 
    S2[a1, a6, a5, a4, SP[a2, a3], n] + S2[a1, a6, a5, SP[a2, a3], a4, n] + 
    S2[a1, a6, a5, SP[a2, a4], a3, n] + S2[a1, a6, SP[a2, a3], a4, a5, n] + 
    S2[a1, a6, SP[a2, a3], a5, a4, n] + S2[a1, a6, SP[a2, a5], a3, a4, n] + 
    S2[a1, a6, SP[a2, a5], a4, a3, n] - S2[a1, a6, SP[a3, a4], a2, a5, n] - 
    S2[a1, a6, SP[a3, a4], a5, a2, n] + S2[a1, SP[a2, a4], a5, a3, a6, n] + 
    S2[a1, SP[a2, a4], a5, a6, a3, n] + S2[a1, SP[a2, a4], a6, a5, a3, n] + 
    S2[a1, SP[a2, a5], a3, a4, a6, n] + S2[a1, SP[a2, a5], a3, a6, a4, n] + 
    S2[a1, SP[a2, a5], a4, a3, a6, n] + S2[a1, SP[a2, a5], a4, a6, a3, n] + 
    S2[a1, SP[a2, a5], a6, a3, a4, n] + S2[a1, SP[a2, a5], a6, a4, a3, n] + 
    S2[a1, SP[a2, a6], a3, a4, a5, n] + S2[a1, SP[a2, a6], a3, a5, a4, n] + 
    S2[a1, SP[a2, a6], a4, a3, a5, n] + S2[a1, SP[a2, a6], a4, a5, a3, n] + 
    S2[a1, SP[a2, a6], a5, a3, a4, n] + S2[a1, SP[a2, a6], a5, a4, a3, n] - 
    S2[a1, SP[a4, a6], a2, a3, a5, n] - 2*S2[a1, SP[a4, a6], a2, a5, a3, n] - 
    S2[a1, SP[a4, a6], a3, a2, a5, n] - S2[a1, SP[a4, a6], a3, a5, a2, n] - 
    S2[a1, SP[a4, a6], a5, a2, a3, n] - S2[a1, SP[a4, a6], a5, a3, a2, n] - 
    S2[a1, SP[a5, a6], a2, a3, a4, n] - S2[a1, SP[a5, a6], a2, a4, a3, n] - 
    S2[a1, SP[a5, a6], a3, a2, a4, n] - S2[a1, SP[a5, a6], a3, a4, a2, n] - 
    S2[a1, SP[a5, a6], a4, a2, a3, n] - S2[a1, SP[a5, a6], a4, a3, a2, n] + 
    S2[a2, a1, a3, a4, SP[a5, a6], n] + S2[a2, a1, a3, SP[a4, a5], a6, n] + 
    S2[a2, a1, a4, a3, SP[a5, a6], n] - S2[a2, a1, a4, a5, SP[a3, a6], n] - 
    S2[a2, a1, a4, a6, SP[a3, a5], n] - S2[a2, a1, a4, SP[a3, a5], a6, n] - 
    S2[a2, a1, a5, a4, SP[a3, a6], n] - S2[a2, a1, a5, a6, SP[a3, a4], n] - 
    S2[a2, a1, a5, SP[a3, a4], a6, n] - S2[a2, a1, a5, SP[a3, a6], a4, n] - 
    S2[a2, a1, a6, a4, SP[a3, a5], n] - S2[a2, a1, a6, a5, SP[a3, a4], n] - 
    S2[a2, a1, a6, SP[a3, a4], a5, n] - S2[a2, a1, a6, SP[a3, a5], a4, n] - 
    S2[a2, a1, SP[a3, a5], a4, a6, n] - S2[a2, a1, SP[a3, a5], a6, a4, n] - 
    S2[a2, a1, SP[a3, a6], a4, a5, n] - S2[a2, a1, SP[a3, a6], a5, a4, n] + 
    S2[a2, a4, a1, a3, SP[a5, a6], n] + S2[a6, n]*S2[a2, a4, a1, a5, a3, n] - 
    S2[a2, a4, a1, a6, SP[a3, a5], n] - S2[a2, a4, a1, SP[a3, a5], a6, n] + 
    S2[a2, a4, a1, SP[a5, a6], a3, n] + S2[a6, n]*S2[a2, a4, a5, a1, a3, n] - 
    S2[a2, a4, a6, a1, SP[a3, a5], n] - S2[a2, a4, a6, SP[a1, a5], a3, n] - 
    S2[a2, a4, SP[a1, a5], a3, a6, n] - S2[a2, a4, SP[a1, a5], a6, a3, n] + 
    S2[a2, a4, SP[a5, a6], a1, a3, n] + S2[a6, n]*S2[a2, a5, a1, a3, a4, n] + 
    S2[a2, a5, a1, a3, SP[a4, a6], n] + S2[a6, n]*S2[a2, a5, a1, a4, a3, n] - 
    S2[a2, a5, a1, a6, SP[a3, a4], n] - S2[a2, a5, a1, SP[a3, a4], a6, n] + 
    S2[a2, a5, a1, SP[a4, a6], a3, n] + S2[a6, n]*S2[a2, a5, a4, a1, a3, n] - 
    S2[a2, a5, a6, a1, SP[a3, a4], n] - S2[a2, a5, a6, SP[a1, a4], a3, n] - 
    S2[a2, a5, SP[a1, a4], a3, a6, n] - S2[a2, a5, SP[a1, a4], a6, a3, n] + 
    S2[a2, a5, SP[a4, a6], a1, a3, n] + S2[a4, n]*S2[a2, a6, a1, a3, a5, n] + 
    S2[a2, a6, a1, a3, SP[a4, a5], n] - S2[a2, a6, a1, a4, SP[a3, a5], n] + 
    S2[a4, n]*S2[a2, a6, a1, a5, a3, n] - S2[a2, a6, a1, SP[a3, a5], a4, n] + 
    S2[a2, a6, a1, SP[a4, a5], a3, n] - S2[a2, a6, a4, a1, SP[a3, a5], n] - 
    S2[a2, a6, a4, SP[a1, a5], a3, n] - S2[a2, a6, a5, a1, SP[a3, a4], n] - 
    S2[a2, a6, a5, SP[a1, a4], a3, n] - S2[a2, a6, SP[a1, a5], a3, a4, n] - 
    S2[a2, a6, SP[a1, a5], a4, a3, n] - S2[a2, SP[a1, a4], a5, a3, a6, n] - 
    S2[a2, SP[a1, a4], a5, a6, a3, n] - S2[a2, SP[a1, a4], a6, a5, a3, n] - 
    S2[a2, SP[a1, a5], a3, a4, a6, n] - S2[a2, SP[a1, a5], a3, a6, a4, n] - 
    S2[a2, SP[a1, a5], a4, a3, a6, n] - S2[a2, SP[a1, a5], a4, a6, a3, n] - 
    S2[a2, SP[a1, a5], a6, a3, a4, n] - S2[a2, SP[a1, a5], a6, a4, a3, n] - 
    S2[a2, SP[a1, a6], a3, a4, a5, n] - S2[a2, SP[a1, a6], a3, a5, a4, n] - 
    S2[a2, SP[a1, a6], a4, a3, a5, n] - S2[a2, SP[a1, a6], a4, a5, a3, n] - 
    S2[a2, SP[a1, a6], a5, a3, a4, n] - S2[a2, SP[a1, a6], a5, a4, a3, n] + 
    S2[a2, SP[a4, a6], a1, a3, a5, n] + 2*S2[a2, SP[a4, a6], a1, a5, a3, n] + 
    S2[a2, SP[a4, a6], a5, a1, a3, n] + S2[a2, SP[a5, a6], a1, a3, a4, n] + 
    S2[a2, SP[a5, a6], a1, a4, a3, n] + S2[a2, SP[a5, a6], a4, a1, a3, n] + 
    S2[a4, a1, a3, a5, SP[a2, a6], n] + S2[a4, a1, a3, SP[a5, a6], a2, n] + 
    S2[a4, a1, a6, a2, SP[a3, a5], n] + S2[a4, a1, a6, SP[a2, a3], a5, n] + 
    S2[a4, a1, SP[a3, a6], a2, a5, n] + S2[a4, a1, SP[a3, a6], a5, a2, n] + 
    S2[a4, a6, a1, a2, SP[a3, a5], n] - S2[a2, n]*S2[a4, a6, a1, a3, a5, n] - 
    S2[a4, a6, a1, a3, SP[a2, a5], n] - S2[a2, n]*S2[a4, a6, a1, a5, a3, n] - 
    S2[a4, a6, a1, a5, SP[a2, a3], n] - S2[a4, a6, a1, SP[a2, a5], a3, n] + 
    S2[a4, a6, a2, a1, SP[a3, a5], n] + S2[a4, a6, a2, SP[a1, a5], a3, n] + 
    S2[a4, SP[a1, a6], a2, a3, a5, n] + S2[a4, SP[a1, a6], a2, a5, a3, n] + 
    S2[a4, SP[a1, a6], a3, a2, a5, n] + S2[a4, SP[a1, a6], a3, a5, a2, n] - 
    S2[a4, SP[a2, a6], a1, a3, a5, n] - S2[a4, SP[a2, a6], a1, a5, a3, n] + 
    S2[a4, n]*S2[a6, a1, a5, a2, a3, n] + S2[a6, a1, a5, a2, SP[a3, a4], n] + 
    S2[a4, n]*S2[a6, a1, a5, a3, a2, n] + S2[a6, a1, a5, a3, SP[a2, a4], n] + 
    S2[a6, a1, a5, SP[a2, a4], a3, n] + S2[a6, a1, a5, SP[a3, a4], a2, n] + 
    S2[a6, a1, SP[a4, a5], a2, a3, n] + S2[a6, a1, SP[a4, a5], a3, a2, n] - 
    S2[a4, n]*S2[a6, a2, a5, a1, a3, n] - S2[a6, a2, a5, a1, SP[a3, a4], n] - 
    S2[a6, a2, a5, SP[a1, a4], a3, n] - S2[a6, a2, SP[a4, a5], a1, a3, n] - 
    S2[a2, n]*S2[a6, a4, a1, a5, a3, n] - S2[a6, a4, a1, a5, SP[a2, a3], n] - 
    S2[a6, a4, a1, SP[a2, a5], a3, n] + S2[a1, n]*S2[a6, a4, a2, a5, a3, n] + 
    S2[a6, a4, a2, a5, SP[a1, a3], n] + S2[a6, a4, a2, SP[a1, a5], a3, n] + 
    S2[a6, SP[a1, a4], a2, a5, a3, n] + S2[a6, SP[a1, a4], a5, a2, a3, n] + 
    S2[a6, SP[a1, a4], a5, a3, a2, n] - S2[a6, SP[a2, a4], a1, a5, a3, n] - 
    S2[a6, SP[a2, a4], a5, a1, a3, n] - S2[SP[a1, a6], a4, a5, a2, a3, n] - 
    S2[SP[a1, a6], a4, a5, a3, a2, n] - S2[SP[a1, a6], a5, a2, a3, a4, n] - 
    S2[SP[a1, a6], a5, a2, a4, a3, n] - S2[SP[a1, a6], a5, a3, a2, a4, n] - 
    S2[SP[a1, a6], a5, a3, a4, a2, n] - S2[SP[a1, a6], a5, a4, a2, a3, n] - 
    S2[SP[a1, a6], a5, a4, a3, a2, n] + S2[SP[a2, a6], a4, a5, a1, a3, n] + 
    S2[SP[a2, a6], a5, a1, a3, a4, n] + S2[SP[a2, a6], a5, a1, a4, a3, n] + 
    S2[SP[a2, a6], a5, a4, a1, a3, n] + S2[SP[a4, a6], a1, a5, a2, a3, n] + 
    S2[SP[a4, a6], a1, a5, a3, a2, n] - S2[SP[a4, a6], a2, a5, a1, a3, n] - 
    S2[a6, a4, a2, a5, a3, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a1_, a3_, a5_, a2_, a6_, a4_, n_] :> 
  S2[a1, a3, a5, n]*S2[a2, a6, a4, n] + S2[SP[a1, a2], SP[a3, a6], 
     SP[a4, a5], n] - S2[a1, a2, SP[a3, a6], SP[a4, a5], n] - 
    S2[a4, a6, n]*S2[a1, a3, a5, a2, n] + S2[a1, a3, SP[a4, a5], SP[a2, a6], 
     n] - S2[a1, SP[a2, a3], a6, SP[a4, a5], n] - 
    S2[a1, SP[a2, a3], SP[a5, a6], a4, n] + S2[a1, SP[a3, a4], a5, 
     SP[a2, a6], n] + S2[a1, SP[a3, a4], SP[a5, a6], a2, n] - 
    S2[a2, a1, SP[a3, a6], SP[a4, a5], n] - S2[a2, SP[a1, a6], a3, 
     SP[a4, a5], n] - S2[a2, SP[a1, a6], SP[a3, a4], a5, n] - 
    S2[a1, a3, n]*S2[a4, a6, a2, a5, n] + S2[a4, a6, SP[a1, a2], SP[a3, a5], 
     n] + S2[a4, SP[a1, a6], a2, SP[a3, a5], n] + 
    S2[a4, SP[a1, a6], SP[a2, a3], a5, n] - S2[SP[a1, a2], a3, a6, 
     SP[a4, a5], n] - S2[SP[a1, a2], a3, SP[a5, a6], a4, n] - 
    S2[SP[a1, a2], a6, a3, SP[a4, a5], n] - S2[SP[a1, a2], a6, SP[a3, a4], 
     a5, n] - S2[SP[a1, a2], SP[a3, a6], a4, a5, n] - 
    S2[SP[a1, a2], SP[a3, a6], a5, a4, n] + S2[SP[a1, a4], a3, a5, 
     SP[a2, a6], n] + S2[SP[a1, a4], a3, SP[a5, a6], a2, n] + 
    S2[SP[a1, a4], a6, a2, SP[a3, a5], n] + S2[SP[a1, a4], a6, SP[a2, a3], 
     a5, n] + S2[SP[a1, a4], SP[a3, a6], a2, a5, n] + 
    S2[SP[a1, a4], SP[a3, a6], a5, a2, n] + S2[a1, a2, a3, a6, SP[a4, a5], 
     n] + S2[a1, a2, a3, SP[a5, a6], a4, n] + S2[a1, a2, a6, a3, SP[a4, a5], 
     n] + S2[a1, a2, a6, SP[a3, a4], a5, n] + S2[a1, a2, SP[a3, a6], a4, a5, 
     n] + S2[a1, a2, SP[a3, a6], a5, a4, n] + S2[a1, a3, a2, a6, SP[a4, a5], 
     n] + S2[a1, a3, a2, SP[a5, a6], a4, n] - S2[a1, a3, a4, a5, SP[a2, a6], 
     n] - S2[a1, a3, a4, SP[a5, a6], a2, n] + 
    S2[a4, n]*S2[a1, a3, a5, a2, a6, n] + S2[a1, a3, a5, a2, SP[a4, a6], n] - 
    S2[a1, a3, a5, a4, SP[a2, a6], n] + S2[a4, n]*S2[a1, a3, a5, a6, a2, n] - 
    S2[a2, n]*S2[a1, a3, a5, a6, a4, n] - S2[a1, a3, a5, SP[a2, a6], a4, n] + 
    S2[a1, a3, a5, SP[a4, a6], a2, n] + S2[a4, n]*S2[a1, a3, a6, a2, a5, n] + 
    S2[a1, a3, a6, a2, SP[a4, a5], n] - S2[a2, n]*S2[a1, a3, a6, a4, a5, n] - 
    S2[a1, a3, a6, a4, SP[a2, a5], n] + S2[a4, n]*S2[a1, a3, a6, a5, a2, n] - 
    S2[a2, n]*S2[a1, a3, a6, a5, a4, n] - S2[a1, a3, a6, SP[a2, a5], a4, n] + 
    S2[a1, a3, a6, SP[a4, a5], a2, n] - S2[a1, a3, SP[a2, a6], a4, a5, n] - 
    S2[a1, a3, SP[a2, a6], a5, a4, n] + S2[a1, a3, SP[a4, a6], a2, a5, n] + 
    S2[a1, a3, SP[a4, a6], a5, a2, n] - S2[a1, a4, a3, a5, SP[a2, a6], n] - 
    S2[a1, a4, a3, SP[a5, a6], a2, n] - S2[a1, a4, a6, a2, SP[a3, a5], n] - 
    S2[a1, a4, a6, SP[a2, a3], a5, n] - S2[a1, a4, SP[a3, a6], a2, a5, n] - 
    S2[a1, a4, SP[a3, a6], a5, a2, n] + S2[a4, n]*S2[a1, a6, a2, a3, a5, n] + 
    S2[a1, a6, a2, a3, SP[a4, a5], n] + S2[a4, n]*S2[a1, a6, a2, a5, a3, n] + 
    S2[a1, a6, a2, a5, SP[a3, a4], n] + S2[a1, a6, a2, SP[a3, a4], a5, n] + 
    S2[a1, a6, a2, SP[a4, a5], a3, n] + S2[a4, n]*S2[a1, a6, a3, a2, a5, n] + 
    S2[a1, a6, a3, a2, SP[a4, a5], n] - S2[a2, n]*S2[a1, a6, a3, a4, a5, n] - 
    S2[a1, a6, a3, a4, SP[a2, a5], n] + S2[a4, n]*S2[a1, a6, a3, a5, a2, n] - 
    S2[a2, n]*S2[a1, a6, a3, a5, a4, n] - S2[a1, a6, a3, SP[a2, a5], a4, n] + 
    S2[a1, a6, a3, SP[a4, a5], a2, n] - S2[a2, n]*S2[a1, a6, a4, a3, a5, n] - 
    S2[a1, a6, a4, a3, SP[a2, a5], n] - S2[a1, a6, a4, SP[a2, a3], a5, n] - 
    S2[a1, a6, SP[a2, a3], a4, a5, n] - S2[a1, a6, SP[a2, a3], a5, a4, n] + 
    S2[a1, a6, SP[a2, a4], a5, a3, n] + S2[a1, a6, SP[a3, a4], a2, a5, n] + 
    S2[a1, a6, SP[a3, a4], a5, a2, n] - S2[a1, SP[a2, a6], a3, a4, a5, n] - 
    S2[a1, SP[a2, a6], a3, a5, a4, n] - S2[a1, SP[a2, a6], a4, a3, a5, n] + 
    S2[a1, SP[a4, a6], a2, a3, a5, n] + S2[a1, SP[a4, a6], a2, a5, a3, n] + 
    S2[a1, SP[a4, a6], a3, a2, a5, n] + S2[a1, SP[a4, a6], a3, a5, a2, n] + 
    S2[a2, a1, a3, a6, SP[a4, a5], n] + S2[a2, a1, a3, SP[a5, a6], a4, n] + 
    S2[a2, a1, a6, a3, SP[a4, a5], n] + S2[a2, a1, a6, SP[a3, a4], a5, n] + 
    S2[a2, a1, SP[a3, a6], a4, a5, n] + S2[a2, a1, SP[a3, a6], a5, a4, n] - 
    S2[a4, n]*S2[a2, a6, a1, a3, a5, n] - 
    S2[a4, n]*S2[a2, a6, a1, a5, a3, n] - S2[a2, a6, a1, a5, SP[a3, a4], n] - 
    S2[a2, a6, a1, SP[a4, a5], a3, n] - S2[a2, a6, SP[a1, a4], a5, a3, n] + 
    S2[a2, SP[a1, a6], a3, a4, a5, n] + S2[a2, SP[a1, a6], a3, a5, a4, n] + 
    S2[a2, SP[a1, a6], a4, a3, a5, n] - S2[a2, SP[a4, a6], a1, a3, a5, n] - 
    S2[a2, SP[a4, a6], a1, a5, a3, n] - S2[a4, a1, a3, a5, SP[a2, a6], n] - 
    S2[a4, a1, a3, SP[a5, a6], a2, n] - S2[a4, a1, a6, a2, SP[a3, a5], n] - 
    S2[a4, a1, a6, SP[a2, a3], a5, n] - S2[a4, a1, SP[a3, a6], a2, a5, n] - 
    S2[a4, a1, SP[a3, a6], a5, a2, n] - S2[a4, a6, a1, a2, SP[a3, a5], n] + 
    S2[a2, n]*S2[a4, a6, a1, a3, a5, n] + S2[a4, a6, a1, a3, SP[a2, a5], n] + 
    S2[a2, n]*S2[a4, a6, a1, a5, a3, n] + S2[a4, a6, a1, a5, SP[a2, a3], n] + 
    S2[a4, a6, a1, SP[a2, a5], a3, n] - S2[a4, a6, a2, a1, SP[a3, a5], n] - 
    S2[a4, a6, a2, SP[a1, a5], a3, n] - S2[a4, SP[a1, a6], a2, a3, a5, n] - 
    S2[a4, SP[a1, a6], a2, a5, a3, n] - S2[a4, SP[a1, a6], a3, a2, a5, n] - 
    S2[a4, SP[a1, a6], a3, a5, a2, n] + S2[a4, SP[a2, a6], a1, a3, a5, n] + 
    S2[a4, SP[a2, a6], a1, a5, a3, n] + S2[a2, n]*S2[a6, a1, a4, a5, a3, n] + 
    S2[a6, a1, a4, a5, SP[a2, a3], n] + S2[a6, a1, a4, SP[a2, a5], a3, n] - 
    S2[a4, n]*S2[a6, a1, a5, a2, a3, n] - S2[a6, a1, a5, a2, SP[a3, a4], n] - 
    S2[a4, n]*S2[a6, a1, a5, a3, a2, n] + 
    S2[a2, n]*S2[a6, a1, a5, a3, a4, n] + 
    S2[a2, n]*S2[a6, a1, a5, a4, a3, n] + S2[a6, a1, a5, a4, SP[a2, a3], n] + 
    S2[a6, a1, a5, SP[a2, a3], a4, n] - S2[a6, a1, a5, SP[a3, a4], a2, n] + 
    S2[a6, a1, SP[a2, a4], a5, a3, n] + S2[a6, a1, SP[a2, a5], a3, a4, n] + 
    S2[a6, a1, SP[a2, a5], a4, a3, n] - S2[a6, a1, SP[a4, a5], a2, a3, n] - 
    S2[a6, a1, SP[a4, a5], a3, a2, n] - S2[a1, n]*S2[a6, a2, a4, a5, a3, n] - 
    S2[a6, a2, a4, a5, SP[a1, a3], n] - S2[a6, a2, a4, SP[a1, a5], a3, n] + 
    S2[a4, n]*S2[a6, a2, a5, a1, a3, n] + S2[a6, a2, a5, a1, SP[a3, a4], n] - 
    S2[a1, n]*S2[a6, a2, a5, a3, a4, n] - S2[a6, a2, a5, a3, SP[a1, a4], n] - 
    S2[a1, n]*S2[a6, a2, a5, a4, a3, n] - S2[a6, a2, a5, a4, SP[a1, a3], n] - 
    S2[a6, a2, a5, SP[a1, a3], a4, n] - S2[a6, a2, SP[a1, a4], a5, a3, n] - 
    S2[a6, a2, SP[a1, a5], a3, a4, n] - S2[a6, a2, SP[a1, a5], a4, a3, n] + 
    S2[a6, a2, SP[a4, a5], a1, a3, n] + S2[a2, n]*S2[a6, a4, a1, a5, a3, n] + 
    S2[a6, a4, a1, a5, SP[a2, a3], n] + S2[a6, a4, a1, SP[a2, a5], a3, n] - 
    S2[a1, n]*S2[a6, a4, a2, a5, a3, n] - S2[a6, a4, a2, a5, SP[a1, a3], n] - 
    S2[a6, a4, a2, SP[a1, a5], a3, n] - S2[a6, SP[a1, a4], a2, a5, a3, n] - 
    S2[a6, SP[a1, a4], a5, a2, a3, n] - S2[a6, SP[a1, a4], a5, a3, a2, n] + 
    S2[a6, SP[a2, a4], a1, a5, a3, n] + S2[a6, SP[a2, a4], a5, a1, a3, n] - 
    S2[SP[a1, a6], a2, a4, a5, a3, n] - S2[SP[a1, a6], a2, a5, a3, a4, n] - 
    S2[SP[a1, a6], a2, a5, a4, a3, n] - S2[SP[a1, a6], a4, a2, a5, a3, n] + 
    S2[SP[a2, a6], a1, a4, a5, a3, n] + S2[SP[a2, a6], a1, a5, a3, a4, n] + 
    S2[SP[a2, a6], a1, a5, a4, a3, n] + S2[SP[a2, a6], a4, a1, a5, a3, n] - 
    S2[SP[a4, a6], a1, a5, a2, a3, n] - S2[SP[a4, a6], a1, a5, a3, a2, n] + 
    S2[SP[a4, a6], a2, a5, a1, a3, n] + S2[a6, a2, a4, a5, a3, a1, n] + 
    S2[a6, a2, a5, a3, a1, a4, n] + S2[a6, a2, a5, a3, a4, a1, n] + 
    S2[a6, a2, a5, a4, a3, a1, n] + S2[a6, a4, a2, a5, a3, a1, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a1_, a3_, a5_, a4_, a2_, a6_, n_] :> 
  -(S2[a1, a3, a5, n]*S2[a2, a4, a6, n]) - S2[a1, a3, a5, n]*
     S2[a2, a6, a4, n] - S2[SP[a1, a2], SP[a3, a4], SP[a5, a6], n] - 
    S2[SP[a1, a2], SP[a3, a6], SP[a4, a5], n] + S2[a1, a2, SP[a3, a4], 
     SP[a5, a6], n] + S2[a1, a2, SP[a3, a6], SP[a4, a5], n] + 
    S2[a2, a6, n]*S2[a1, a3, a5, a4, n] - S2[a1, a3, SP[a2, a5], SP[a4, a6], 
     n] + S2[a1, SP[a2, a3], a4, SP[a5, a6], n] - S2[a1, SP[a2, a3], a5, 
     SP[a4, a6], n] + S2[a1, SP[a2, a3], a6, SP[a4, a5], n] + 
    S2[a1, SP[a2, a3], SP[a4, a5], a6, n] + S2[a2, a1, SP[a3, a4], 
     SP[a5, a6], n] + S2[a2, a1, SP[a3, a6], SP[a4, a5], n] + 
    S2[a1, a3, n]*S2[a2, a4, a5, a6, n] + S2[a1, a3, n]*
     S2[a2, a4, a6, a5, n] - S2[a2, a4, SP[a1, a5], SP[a3, a6], n] - 
    S2[a2, a4, SP[a1, a6], SP[a3, a5], n] + S2[a1, a3, n]*
     S2[a2, a6, a4, a5, n] - S2[a2, a6, SP[a1, a4], SP[a3, a5], n] + 
    S2[a2, SP[a1, a4], a3, SP[a5, a6], n] - S2[a2, SP[a1, a4], a5, 
     SP[a3, a6], n] - S2[a2, SP[a1, a4], a6, SP[a3, a5], n] - 
    S2[a2, SP[a1, a4], SP[a3, a5], a6, n] + S2[a2, SP[a1, a6], a3, 
     SP[a4, a5], n] - S2[a2, SP[a1, a6], a4, SP[a3, a5], n] + 
    S2[SP[a1, a2], a3, a4, SP[a5, a6], n] - S2[SP[a1, a2], a3, a5, 
     SP[a4, a6], n] + S2[SP[a1, a2], a3, a6, SP[a4, a5], n] + 
    S2[SP[a1, a2], a3, SP[a4, a5], a6, n] + S2[SP[a1, a2], a4, a3, 
     SP[a5, a6], n] - S2[SP[a1, a2], a4, a5, SP[a3, a6], n] - 
    S2[SP[a1, a2], a4, a6, SP[a3, a5], n] - S2[SP[a1, a2], a4, SP[a3, a5], 
     a6, n] + S2[SP[a1, a2], a6, a3, SP[a4, a5], n] - 
    S2[SP[a1, a2], a6, a4, SP[a3, a5], n] - S2[a1, a2, a3, a4, SP[a5, a6], 
     n] + S2[a1, a2, a3, a5, SP[a4, a6], n] - S2[a1, a2, a3, a6, SP[a4, a5], 
     n] - S2[a1, a2, a3, SP[a4, a5], a6, n] - S2[a1, a2, a4, a3, SP[a5, a6], 
     n] + S2[a1, a2, a4, a5, SP[a3, a6], n] + S2[a1, a2, a4, a6, SP[a3, a5], 
     n] + S2[a1, a2, a4, SP[a3, a5], a6, n] - S2[a1, a2, a6, a3, SP[a4, a5], 
     n] + S2[a1, a2, a6, a4, SP[a3, a5], n] - S2[a1, a3, a2, a4, SP[a5, a6], 
     n] + S2[a1, a3, a2, a5, SP[a4, a6], n] - S2[a1, a3, a2, a6, SP[a4, a5], 
     n] - S2[a1, a3, a2, SP[a4, a5], a6, n] + S2[a1, a3, a5, a2, SP[a4, a6], 
     n] + S2[a1, a3, a5, SP[a2, a4], a6, n] + 
    S2[a6, n]*S2[a1, a4, a2, a5, a3, n] + S2[a1, a4, a2, a5, SP[a3, a6], n] + 
    S2[a1, a4, a2, SP[a5, a6], a3, n] + S2[a6, n]*S2[a1, a4, a5, a2, a3, n] + 
    S2[a1, a4, a5, a2, SP[a3, a6], n] + S2[a6, n]*S2[a1, a4, a5, a3, a2, n] - 
    S2[a2, n]*S2[a1, a4, a5, a3, a6, n] - 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] - S2[a1, a4, a5, a6, SP[a2, a3], n] - 
    S2[a1, a4, a5, SP[a2, a3], a6, n] + S2[a1, a4, a5, SP[a3, a6], a2, n] - 
    S2[a2, n]*S2[a1, a4, a6, a5, a3, n] - S2[a1, a4, a6, a5, SP[a2, a3], n] - 
    S2[a1, a4, a6, SP[a2, a5], a3, n] - S2[a1, a4, SP[a2, a5], a3, a6, n] - 
    S2[a1, a4, SP[a2, a5], a6, a3, n] + S2[a1, a4, SP[a5, a6], a2, a3, n] + 
    S2[a1, a4, SP[a5, a6], a3, a2, n] - S2[a2, n]*S2[a1, a6, a4, a5, a3, n] - 
    S2[a1, a6, a4, a5, SP[a2, a3], n] - S2[a1, a6, a4, SP[a2, a5], a3, n] - 
    S2[a1, a6, SP[a2, a4], a5, a3, n] - S2[a1, SP[a2, a4], a5, a3, a6, n] - 
    S2[a1, SP[a2, a4], a5, a6, a3, n] - S2[a1, SP[a2, a4], a6, a5, a3, n] - 
    S2[a1, SP[a2, a6], a4, a5, a3, n] + S2[a1, SP[a4, a6], a2, a5, a3, n] + 
    S2[a1, SP[a4, a6], a5, a2, a3, n] + S2[a1, SP[a4, a6], a5, a3, a2, n] - 
    S2[a2, a1, a3, a4, SP[a5, a6], n] + S2[a2, a1, a3, a5, SP[a4, a6], n] - 
    S2[a2, a1, a3, a6, SP[a4, a5], n] - S2[a2, a1, a3, SP[a4, a5], a6, n] - 
    S2[a2, a1, a4, a3, SP[a5, a6], n] + S2[a2, a1, a4, a5, SP[a3, a6], n] + 
    S2[a2, a1, a4, a6, SP[a3, a5], n] + S2[a2, a1, a4, SP[a3, a5], a6, n] - 
    S2[a2, a1, a6, a3, SP[a4, a5], n] + S2[a2, a1, a6, a4, SP[a3, a5], n] - 
    S2[a2, a4, a1, a3, SP[a5, a6], n] - S2[a6, n]*S2[a2, a4, a1, a5, a3, n] + 
    S2[a2, a4, a1, a6, SP[a3, a5], n] + S2[a2, a4, a1, SP[a3, a5], a6, n] - 
    S2[a2, a4, a1, SP[a5, a6], a3, n] - S2[a6, n]*S2[a2, a4, a5, a1, a3, n] + 
    S2[a2, a4, a6, a1, SP[a3, a5], n] + S2[a2, a4, a6, SP[a1, a5], a3, n] + 
    S2[a2, a4, SP[a1, a5], a3, a6, n] + S2[a2, a4, SP[a1, a5], a6, a3, n] - 
    S2[a2, a4, SP[a5, a6], a1, a3, n] - S2[a2, a6, a1, a3, SP[a4, a5], n] + 
    S2[a2, a6, a1, a4, SP[a3, a5], n] + S2[a2, a6, a4, a1, SP[a3, a5], n] + 
    S2[a2, a6, a4, SP[a1, a5], a3, n] + S2[a2, a6, SP[a1, a4], a5, a3, n] + 
    S2[a2, SP[a1, a4], a5, a3, a6, n] + S2[a2, SP[a1, a4], a5, a6, a3, n] + 
    S2[a2, SP[a1, a4], a6, a5, a3, n] + S2[a2, SP[a1, a6], a4, a5, a3, n] - 
    S2[a2, SP[a4, a6], a1, a5, a3, n] - S2[a2, SP[a4, a6], a5, a1, a3, n] - 
    S2[a2, n]*S2[a6, a1, a4, a5, a3, n] - S2[a6, a1, a4, a5, SP[a2, a3], n] - 
    S2[a6, a1, a4, SP[a2, a5], a3, n] - S2[a6, a1, SP[a2, a4], a5, a3, n] + 
    S2[a1, n]*S2[a6, a2, a4, a5, a3, n] + S2[a6, a2, a4, a5, SP[a1, a3], n] + 
    S2[a6, a2, a4, SP[a1, a5], a3, n] + S2[a6, a2, SP[a1, a4], a5, a3, n] + 
    S2[SP[a1, a6], a2, a4, a5, a3, n] + S2[SP[a1, a6], a4, a2, a5, a3, n] + 
    S2[SP[a1, a6], a4, a5, a2, a3, n] + S2[SP[a1, a6], a4, a5, a3, a2, n] - 
    S2[SP[a2, a6], a1, a4, a5, a3, n] - S2[SP[a2, a6], a4, a1, a5, a3, n] - 
    S2[SP[a2, a6], a4, a5, a1, a3, n] - S2[a6, a2, a4, a5, a3, a1, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a1_, a3_, a5_, a4_, a6_, a2_, n_] :> 
  S2[a1, a3, a5, n]*S2[a2, a6, a4, n] + S2[SP[a1, a2], SP[a3, a6], 
     SP[a4, a5], n] - S2[a1, a2, SP[a3, a6], SP[a4, a5], n] - 
    S2[a2, a6, n]*S2[a1, a3, a5, a4, n] + S2[a1, a3, SP[a2, a5], SP[a4, a6], 
     n] + S2[a1, SP[a2, a3], a5, SP[a4, a6], n] - S2[a1, SP[a2, a3], a6, 
     SP[a4, a5], n] - S2[a2, a1, SP[a3, a6], SP[a4, a5], n] - 
    S2[a1, a3, n]*S2[a2, a6, a4, a5, n] + S2[a2, a6, SP[a1, a4], SP[a3, a5], 
     n] - S2[a2, SP[a1, a6], a3, SP[a4, a5], n] + S2[a2, SP[a1, a6], a4, 
     SP[a3, a5], n] + S2[SP[a1, a2], a3, a5, SP[a4, a6], n] - 
    S2[SP[a1, a2], a3, a6, SP[a4, a5], n] - S2[SP[a1, a2], a6, a3, 
     SP[a4, a5], n] + S2[SP[a1, a2], a6, a4, SP[a3, a5], n] - 
    S2[a1, a2, a3, a5, SP[a4, a6], n] + S2[a1, a2, a3, a6, SP[a4, a5], n] + 
    S2[a1, a2, a6, a3, SP[a4, a5], n] - S2[a1, a2, a6, a4, SP[a3, a5], n] - 
    S2[a1, a3, a2, a5, SP[a4, a6], n] + S2[a1, a3, a2, a6, SP[a4, a5], n] - 
    S2[a1, a3, a5, a2, SP[a4, a6], n] + S2[a2, n]*S2[a1, a3, a5, a4, a6, n] + 
    S2[a1, a3, a5, a4, SP[a2, a6], n] + S2[a2, n]*S2[a1, a6, a4, a5, a3, n] + 
    S2[a1, a6, a4, a5, SP[a2, a3], n] + S2[a1, a6, a4, SP[a2, a5], a3, n] + 
    S2[a1, a6, SP[a2, a4], a5, a3, n] + S2[a1, SP[a2, a6], a4, a5, a3, n] - 
    S2[a2, a1, a3, a5, SP[a4, a6], n] + S2[a2, a1, a3, a6, SP[a4, a5], n] + 
    S2[a2, a1, a6, a3, SP[a4, a5], n] - S2[a2, a1, a6, a4, SP[a3, a5], n] + 
    S2[a2, a6, a1, a3, SP[a4, a5], n] - S2[a2, a6, a1, a4, SP[a3, a5], n] - 
    S2[a2, a6, a4, a1, SP[a3, a5], n] - S2[a2, a6, a4, SP[a1, a5], a3, n] - 
    S2[a2, a6, SP[a1, a4], a5, a3, n] - S2[a2, SP[a1, a6], a4, a5, a3, n] + 
    S2[a2, n]*S2[a6, a1, a4, a5, a3, n] + S2[a6, a1, a4, a5, SP[a2, a3], n] + 
    S2[a6, a1, a4, SP[a2, a5], a3, n] + S2[a6, a1, SP[a2, a4], a5, a3, n] - 
    S2[a1, n]*S2[a6, a2, a4, a5, a3, n] - S2[a6, a2, a4, a5, SP[a1, a3], n] - 
    S2[a6, a2, a4, SP[a1, a5], a3, n] - S2[a6, a2, SP[a1, a4], a5, a3, n] + 
    S2[a2, n]*S2[a6, a4, a1, a5, a3, n] + S2[a6, a4, a1, a5, SP[a2, a3], n] + 
    S2[a6, a4, a1, SP[a2, a5], a3, n] - S2[a1, n]*S2[a6, a4, a2, a5, a3, n] - 
    S2[a6, a4, a2, a5, SP[a1, a3], n] - S2[a6, a4, a2, SP[a1, a5], a3, n] + 
    S2[a2, n]*S2[a6, a4, a5, a1, a3, n] + S2[a6, a4, a5, a1, SP[a2, a3], n] - 
    S2[a1, n]*S2[a6, a4, a5, a2, a3, n] - S2[a6, a4, a5, a2, SP[a1, a3], n] - 
    S2[a1, n]*S2[a6, a4, a5, a3, a2, n] - S2[a6, a4, a5, a3, SP[a1, a2], n] - 
    S2[a6, a4, a5, SP[a1, a3], a2, n] - S2[a6, a4, SP[a1, a5], a2, a3, n] - 
    S2[a6, a4, SP[a1, a5], a3, a2, n] + S2[a6, a4, SP[a2, a5], a1, a3, n] - 
    S2[a6, SP[a1, a4], a2, a5, a3, n] - S2[a6, SP[a1, a4], a5, a2, a3, n] - 
    S2[a6, SP[a1, a4], a5, a3, a2, n] + S2[a6, SP[a2, a4], a1, a5, a3, n] + 
    S2[a6, SP[a2, a4], a5, a1, a3, n] - S2[SP[a1, a6], a2, a4, a5, a3, n] - 
    S2[SP[a1, a6], a4, a2, a5, a3, n] - S2[SP[a1, a6], a4, a5, a2, a3, n] - 
    S2[SP[a1, a6], a4, a5, a3, a2, n] + S2[SP[a2, a6], a1, a4, a5, a3, n] + 
    S2[SP[a2, a6], a4, a1, a5, a3, n] + S2[SP[a2, a6], a4, a5, a1, a3, n] + 
    S2[a6, a2, a4, a5, a3, a1, n] + S2[a6, a4, a2, a5, a3, a1, n] + 
    S2[a6, a4, a5, a2, a3, a1, n] + S2[a6, a4, a5, a3, a1, a2, n] + 
    S2[a6, a4, a5, a3, a2, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a1_, a3_, a5_, a6_, a2_, a4_, n_] :> 
  -(S2[a1, a3, a5, n]*S2[a2, a4, a6, n]) - S2[a1, a3, a5, n]*
     S2[a2, a6, a4, n] - S2[SP[a1, a2], SP[a3, a4], SP[a5, a6], n] - 
    S2[SP[a1, a2], SP[a3, a6], SP[a4, a5], n] + S2[a1, a2, SP[a3, a4], 
     SP[a5, a6], n] + S2[a1, a2, SP[a3, a6], SP[a4, a5], n] + 
    S2[a1, SP[a2, a3], a4, SP[a5, a6], n] + S2[a1, SP[a2, a3], a6, 
     SP[a4, a5], n] + S2[a1, SP[a2, a3], SP[a4, a5], a6, n] + 
    S2[a1, SP[a2, a3], SP[a5, a6], a4, n] + S2[a2, a1, SP[a3, a4], 
     SP[a5, a6], n] + S2[a2, a1, SP[a3, a6], SP[a4, a5], n] + 
    S2[a2, SP[a1, a4], a3, SP[a5, a6], n] + S2[a2, SP[a1, a4], SP[a3, a6], 
     a5, n] + S2[a2, SP[a1, a6], a3, SP[a4, a5], n] + 
    S2[a2, SP[a1, a6], SP[a3, a4], a5, n] + S2[a1, a3, n]*
     S2[a5, a6, a2, a4, n] - S2[a5, a6, SP[a1, a2], SP[a3, a4], n] - 
    S2[a5, SP[a1, a6], a2, SP[a3, a4], n] - S2[a5, SP[a1, a6], SP[a2, a3], 
     a4, n] + S2[SP[a1, a2], a3, a4, SP[a5, a6], n] + 
    S2[SP[a1, a2], a3, a6, SP[a4, a5], n] + S2[SP[a1, a2], a3, SP[a4, a5], 
     a6, n] + S2[SP[a1, a2], a3, SP[a5, a6], a4, n] + 
    S2[SP[a1, a2], a4, a3, SP[a5, a6], n] + S2[SP[a1, a2], a4, SP[a3, a6], 
     a5, n] + S2[SP[a1, a2], a6, a3, SP[a4, a5], n] + 
    S2[SP[a1, a2], a6, SP[a3, a4], a5, n] + S2[SP[a1, a2], SP[a3, a4], a5, 
     a6, n] + S2[SP[a1, a2], SP[a3, a4], a6, a5, n] + 
    S2[SP[a1, a2], SP[a3, a6], a4, a5, n] + S2[SP[a1, a2], SP[a3, a6], a5, 
     a4, n] - S2[SP[a1, a5], a6, a2, SP[a3, a4], n] - 
    S2[SP[a1, a5], a6, SP[a2, a3], a4, n] - S2[SP[a1, a5], SP[a3, a6], a2, 
     a4, n] - S2[a1, a2, a3, a4, SP[a5, a6], n] - 
    S2[a1, a2, a3, a6, SP[a4, a5], n] - S2[a1, a2, a3, SP[a4, a5], a6, n] - 
    S2[a1, a2, a3, SP[a5, a6], a4, n] - S2[a1, a2, a4, a3, SP[a5, a6], n] - 
    S2[a1, a2, a4, SP[a3, a6], a5, n] - S2[a1, a2, a6, a3, SP[a4, a5], n] - 
    S2[a1, a2, a6, SP[a3, a4], a5, n] - S2[a1, a2, SP[a3, a4], a5, a6, n] - 
    S2[a1, a2, SP[a3, a4], a6, a5, n] - S2[a1, a2, SP[a3, a6], a4, a5, n] - 
    S2[a1, a2, SP[a3, a6], a5, a4, n] - S2[a1, a3, a2, a4, SP[a5, a6], n] - 
    S2[a1, a3, a2, a6, SP[a4, a5], n] - S2[a1, a3, a2, SP[a4, a5], a6, n] - 
    S2[a1, a3, a2, SP[a5, a6], a4, n] - S2[a6, n]*S2[a1, a3, a4, a2, a5, n] - 
    S2[a1, a3, a4, a2, SP[a5, a6], n] - S2[a6, n]*S2[a1, a3, a4, a5, a2, n] + 
    S2[a2, n]*S2[a1, a3, a4, a5, a6, n] + 
    S2[a2, n]*S2[a1, a3, a4, a6, a5, n] + S2[a1, a3, a4, a6, SP[a2, a5], n] + 
    S2[a1, a3, a4, SP[a2, a5], a6, n] - S2[a1, a3, a4, SP[a5, a6], a2, n] - 
    S2[a6, n]*S2[a1, a3, a5, a4, a2, n] + 
    S2[a2, n]*S2[a1, a3, a5, a4, a6, n] + 
    S2[a2, n]*S2[a1, a3, a5, a6, a4, n] + S2[a1, a3, a5, a6, SP[a2, a4], n] + 
    S2[a1, a3, a5, SP[a2, a4], a6, n] + S2[a1, a3, a5, SP[a2, a6], a4, n] - 
    S2[a1, a3, a5, SP[a4, a6], a2, n] - S2[a5, n]*S2[a1, a3, a6, a2, a4, n] - 
    S2[a1, a3, a6, a2, SP[a4, a5], n] + S2[a2, n]*S2[a1, a3, a6, a4, a5, n] + 
    S2[a1, a3, a6, a4, SP[a2, a5], n] + S2[a2, n]*S2[a1, a3, a6, a5, a4, n] + 
    S2[a1, a3, a6, a5, SP[a2, a4], n] + S2[a1, a3, a6, SP[a2, a4], a5, n] + 
    S2[a1, a3, SP[a2, a4], a5, a6, n] + S2[a1, a3, SP[a2, a4], a6, a5, n] + 
    S2[a1, a3, SP[a2, a6], a4, a5, n] + S2[a1, a3, SP[a2, a6], a5, a4, n] - 
    S2[a1, a3, SP[a4, a6], a2, a5, n] - S2[a1, a3, SP[a4, a6], a5, a2, n] - 
    S2[a1, a3, SP[a5, a6], a2, a4, n] - S2[a1, a3, SP[a5, a6], a4, a2, n] - 
    S2[a6, n]*S2[a1, a4, a2, a3, a5, n] - S2[a1, a4, a2, a3, SP[a5, a6], n] - 
    S2[a1, a4, a2, SP[a3, a6], a5, n] - S2[a6, n]*S2[a1, a4, a3, a2, a5, n] - 
    S2[a1, a4, a3, a2, SP[a5, a6], n] - S2[a6, n]*S2[a1, a4, a3, a5, a2, n] + 
    S2[a2, n]*S2[a1, a4, a3, a5, a6, n] + 
    S2[a2, n]*S2[a1, a4, a3, a6, a5, n] + S2[a1, a4, a3, a6, SP[a2, a5], n] + 
    S2[a1, a4, a3, SP[a2, a5], a6, n] - S2[a1, a4, a3, SP[a5, a6], a2, n] + 
    S2[a2, n]*S2[a1, a4, a6, a3, a5, n] + S2[a1, a4, a6, a3, SP[a2, a5], n] + 
    S2[a1, a4, a6, SP[a2, a3], a5, n] + S2[a1, a4, SP[a2, a3], a5, a6, n] + 
    S2[a1, a4, SP[a2, a3], a6, a5, n] - S2[a1, a4, SP[a3, a6], a2, a5, n] - 
    S2[a1, a4, SP[a3, a6], a5, a2, n] + S2[a1, a5, a6, a2, SP[a3, a4], n] + 
    S2[a1, a5, a6, SP[a2, a3], a4, n] + S2[a1, a5, SP[a3, a6], a2, a4, n] - 
    S2[a5, n]*S2[a1, a6, a2, a3, a4, n] - S2[a1, a6, a2, a3, SP[a4, a5], n] - 
    S2[a5, n]*S2[a1, a6, a2, a4, a3, n] - S2[a1, a6, a2, a4, SP[a3, a5], n] - 
    S2[a1, a6, a2, SP[a3, a5], a4, n] - S2[a1, a6, a2, SP[a4, a5], a3, n] - 
    S2[a5, n]*S2[a1, a6, a3, a2, a4, n] - S2[a1, a6, a3, a2, SP[a4, a5], n] + 
    S2[a2, n]*S2[a1, a6, a3, a4, a5, n] + S2[a1, a6, a3, a4, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a6, a3, a5, a4, n] + S2[a1, a6, a3, a5, SP[a2, a4], n] + 
    S2[a1, a6, a3, SP[a2, a4], a5, n] + S2[a2, n]*S2[a1, a6, a4, a3, a5, n] + 
    S2[a1, a6, a4, a3, SP[a2, a5], n] + S2[a1, a6, a4, SP[a2, a3], a5, n] + 
    S2[a1, a6, SP[a2, a3], a4, a5, n] + S2[a1, a6, SP[a2, a3], a5, a4, n] + 
    S2[a1, a6, SP[a2, a4], a3, a5, n] - S2[a1, a6, SP[a2, a5], a3, a4, n] - 
    S2[a1, a6, SP[a2, a5], a4, a3, n] - S2[a1, a6, SP[a3, a5], a2, a4, n] + 
    S2[a1, SP[a2, a4], a3, a5, a6, n] + S2[a1, SP[a2, a4], a3, a6, a5, n] + 
    S2[a1, SP[a2, a4], a6, a3, a5, n] + S2[a1, SP[a2, a6], a3, a4, a5, n] + 
    S2[a1, SP[a2, a6], a3, a5, a4, n] + S2[a1, SP[a2, a6], a4, a3, a5, n] - 
    S2[a1, SP[a3, a6], a4, a2, a5, n] - S2[a1, SP[a3, a6], a4, a5, a2, n] - 
    S2[a1, SP[a3, a6], a5, a4, a2, n] - S2[a1, SP[a4, a6], a2, a3, a5, n] - 
    S2[a1, SP[a4, a6], a3, a2, a5, n] - S2[a1, SP[a4, a6], a3, a5, a2, n] - 
    S2[a1, SP[a5, a6], a2, a3, a4, n] - S2[a1, SP[a5, a6], a2, a4, a3, n] - 
    S2[a1, SP[a5, a6], a3, a2, a4, n] - S2[a2, a1, a3, a4, SP[a5, a6], n] - 
    S2[a2, a1, a3, a6, SP[a4, a5], n] - S2[a2, a1, a3, SP[a4, a5], a6, n] - 
    S2[a2, a1, a3, SP[a5, a6], a4, n] - S2[a2, a1, a4, a3, SP[a5, a6], n] - 
    S2[a2, a1, a4, SP[a3, a6], a5, n] - S2[a2, a1, a6, a3, SP[a4, a5], n] - 
    S2[a2, a1, a6, SP[a3, a4], a5, n] - S2[a2, a1, SP[a3, a4], a5, a6, n] - 
    S2[a2, a1, SP[a3, a4], a6, a5, n] - S2[a2, a1, SP[a3, a6], a4, a5, n] - 
    S2[a2, a1, SP[a3, a6], a5, a4, n] + S2[a6, n]*S2[a2, a4, a1, a3, a5, n] + 
    S2[a5, n]*S2[a2, a6, a1, a3, a4, n] + 
    S2[a5, n]*S2[a2, a6, a1, a4, a3, n] + S2[a2, a6, a1, a4, SP[a3, a5], n] - 
    S2[a2, a6, a1, SP[a3, a4], a5, n] + S2[a2, a6, a1, SP[a3, a5], a4, n] + 
    S2[a2, a6, a1, SP[a4, a5], a3, n] - S2[a2, a6, SP[a1, a4], a3, a5, n] + 
    S2[a2, a6, SP[a1, a5], a3, a4, n] + S2[a2, a6, SP[a1, a5], a4, a3, n] - 
    S2[a2, SP[a1, a4], a3, a5, a6, n] - S2[a2, SP[a1, a4], a3, a6, a5, n] - 
    S2[a2, SP[a1, a4], a6, a3, a5, n] - S2[a2, SP[a1, a6], a3, a4, a5, n] - 
    S2[a2, SP[a1, a6], a3, a5, a4, n] - S2[a2, SP[a1, a6], a4, a3, a5, n] + 
    S2[a2, SP[a4, a6], a1, a3, a5, n] + S2[a2, SP[a5, a6], a1, a3, a4, n] + 
    S2[a2, SP[a5, a6], a1, a4, a3, n] + S2[a5, a1, a6, a2, SP[a3, a4], n] + 
    S2[a5, a1, a6, SP[a2, a3], a4, n] + S2[a5, a1, SP[a3, a6], a2, a4, n] + 
    S2[a5, a6, a1, a2, SP[a3, a4], n] - S2[a2, n]*S2[a5, a6, a1, a3, a4, n] - 
    S2[a5, a6, a1, a3, SP[a2, a4], n] - S2[a2, n]*S2[a5, a6, a1, a4, a3, n] - 
    S2[a5, a6, a1, a4, SP[a2, a3], n] - S2[a5, a6, a1, SP[a2, a4], a3, n] + 
    S2[a5, a6, a2, a1, SP[a3, a4], n] + S2[a5, a6, a2, SP[a1, a4], a3, n] + 
    S2[a5, SP[a1, a6], a2, a3, a4, n] + S2[a5, SP[a1, a6], a2, a4, a3, n] + 
    S2[a5, SP[a1, a6], a3, a2, a4, n] - S2[a5, SP[a2, a6], a1, a3, a4, n] - 
    S2[a5, SP[a2, a6], a1, a4, a3, n] + S2[a5, n]*S2[a6, a1, a3, a4, a2, n] + 
    S2[a6, a1, a3, a4, SP[a2, a5], n] + S2[a6, a1, a3, SP[a4, a5], a2, n] + 
    S2[a5, n]*S2[a6, a1, a4, a2, a3, n] + S2[a6, a1, a4, a2, SP[a3, a5], n] + 
    S2[a5, n]*S2[a6, a1, a4, a3, a2, n] + S2[a6, a1, a4, a3, SP[a2, a5], n] - 
    S2[a2, n]*S2[a6, a1, a4, a5, a3, n] - S2[a6, a1, a4, a5, SP[a2, a3], n] + 
    S2[a6, a1, a4, SP[a3, a5], a2, n] - S2[a2, n]*S2[a6, a1, a5, a3, a4, n] - 
    S2[a6, a1, a5, a3, SP[a2, a4], n] - S2[a2, n]*S2[a6, a1, a5, a4, a3, n] - 
    S2[a6, a1, a5, a4, SP[a2, a3], n] - S2[a6, a1, a5, SP[a2, a3], a4, n] - 
    S2[a6, a1, a5, SP[a2, a4], a3, n] - S2[a6, a1, SP[a2, a4], a5, a3, n] - 
    S2[a6, a1, SP[a2, a5], a3, a4, n] - S2[a6, a1, SP[a2, a5], a4, a3, n] + 
    S2[a6, a1, SP[a3, a5], a4, a2, n] + S2[a6, a1, SP[a4, a5], a2, a3, n] + 
    S2[a6, a1, SP[a4, a5], a3, a2, n] - S2[a5, n]*S2[a6, a2, a4, a1, a3, n] - 
    S2[a6, a2, a4, a1, SP[a3, a5], n] + S2[a1, n]*S2[a6, a2, a4, a5, a3, n] + 
    S2[a6, a2, a4, a5, SP[a1, a3], n] + S2[a1, n]*S2[a6, a2, a5, a3, a4, n] + 
    S2[a6, a2, a5, a3, SP[a1, a4], n] + S2[a1, n]*S2[a6, a2, a5, a4, a3, n] + 
    S2[a6, a2, a5, a4, SP[a1, a3], n] + S2[a6, a2, a5, SP[a1, a3], a4, n] + 
    S2[a6, a2, a5, SP[a1, a4], a3, n] + S2[a6, a2, SP[a1, a4], a5, a3, n] + 
    S2[a6, a2, SP[a1, a5], a3, a4, n] + S2[a6, a2, SP[a1, a5], a4, a3, n] - 
    S2[a6, a2, SP[a4, a5], a1, a3, n] - S2[a2, n]*S2[a6, a5, a1, a3, a4, n] - 
    S2[a6, a5, a1, a3, SP[a2, a4], n] - S2[a2, n]*S2[a6, a5, a1, a4, a3, n] - 
    S2[a6, a5, a1, a4, SP[a2, a3], n] - S2[a6, a5, a1, SP[a2, a3], a4, n] - 
    S2[a6, a5, a1, SP[a2, a4], a3, n] + S2[a1, n]*S2[a6, a5, a2, a3, a4, n] + 
    S2[a6, a5, a2, a3, SP[a1, a4], n] + S2[a1, n]*S2[a6, a5, a2, a4, a3, n] + 
    S2[a6, a5, a2, a4, SP[a1, a3], n] + S2[a6, a5, a2, SP[a1, a3], a4, n] + 
    S2[a6, a5, a2, SP[a1, a4], a3, n] + S2[a1, n]*S2[a6, a5, a3, a2, a4, n] + 
    S2[a6, a5, a3, a2, SP[a1, a4], n] + S2[a6, a5, a3, SP[a1, a2], a4, n] + 
    S2[a6, a5, SP[a1, a3], a2, a4, n] + S2[a6, SP[a1, a5], a2, a3, a4, n] + 
    S2[a6, SP[a1, a5], a2, a4, a3, n] + S2[a6, SP[a1, a5], a3, a2, a4, n] + 
    S2[a6, SP[a1, a5], a3, a4, a2, n] + S2[a6, SP[a1, a5], a4, a2, a3, n] + 
    S2[a6, SP[a1, a5], a4, a3, a2, n] - S2[a6, SP[a2, a5], a1, a3, a4, n] - 
    S2[a6, SP[a2, a5], a1, a4, a3, n] - S2[a6, SP[a2, a5], a4, a1, a3, n] + 
    S2[SP[a1, a6], a2, a4, a5, a3, n] + S2[SP[a1, a6], a2, a5, a3, a4, n] + 
    S2[SP[a1, a6], a2, a5, a4, a3, n] - S2[SP[a1, a6], a3, a4, a2, a5, n] - 
    S2[SP[a1, a6], a3, a4, a5, a2, n] - S2[SP[a1, a6], a3, a5, a4, a2, n] - 
    S2[SP[a1, a6], a4, a2, a3, a5, n] - S2[SP[a1, a6], a4, a3, a2, a5, n] - 
    S2[SP[a1, a6], a4, a3, a5, a2, n] + S2[SP[a1, a6], a5, a2, a3, a4, n] + 
    S2[SP[a1, a6], a5, a2, a4, a3, n] + S2[SP[a1, a6], a5, a3, a2, a4, n] - 
    S2[SP[a2, a6], a1, a4, a5, a3, n] - S2[SP[a2, a6], a1, a5, a3, a4, n] - 
    S2[SP[a2, a6], a1, a5, a4, a3, n] + S2[SP[a2, a6], a4, a1, a3, a5, n] - 
    S2[SP[a2, a6], a5, a1, a3, a4, n] - S2[SP[a2, a6], a5, a1, a4, a3, n] + 
    S2[SP[a5, a6], a1, a3, a4, a2, n] + S2[SP[a5, a6], a1, a4, a2, a3, n] + 
    S2[SP[a5, a6], a1, a4, a3, a2, n] - S2[SP[a5, a6], a2, a4, a1, a3, n] - 
    S2[a6, a2, a4, a5, a3, a1, n] - S2[a6, a2, a5, a3, a1, a4, n] - 
    S2[a6, a2, a5, a3, a4, a1, n] - S2[a6, a2, a5, a4, a3, a1, n] - 
    S2[a6, a5, a2, a3, a1, a4, n] - S2[a6, a5, a2, a3, a4, a1, n] - 
    S2[a6, a5, a2, a4, a3, a1, n] - S2[a6, a5, a3, a1, a2, a4, n] - 
    S2[a6, a5, a3, a2, a1, a4, n] - S2[a6, a5, a3, a2, a4, a1, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a1_, a3_, a5_, a6_, a4_, a2_, n_] :> 
  S2[a1, a3, a5, n]*S2[a2, a4, a6, n] + S2[SP[a1, a2], SP[a3, a4], 
     SP[a5, a6], n] - S2[a1, a2, SP[a3, a4], SP[a5, a6], n] - 
    S2[a1, SP[a2, a3], a4, SP[a5, a6], n] - S2[a1, SP[a2, a3], SP[a4, a5], 
     a6, n] - S2[a2, a1, SP[a3, a4], SP[a5, a6], n] + 
    S2[a1, a3, n]*S2[a2, a6, a4, a5, n] + S2[a1, a3, n]*
     S2[a2, a6, a5, a4, n] - S2[a2, a6, SP[a1, a4], SP[a3, a5], n] - 
    S2[a2, a6, SP[a1, a5], SP[a3, a4], n] - S2[a2, SP[a1, a4], a3, 
     SP[a5, a6], n] - S2[a2, SP[a1, a4], SP[a3, a6], a5, n] - 
    S2[a2, SP[a1, a6], a4, SP[a3, a5], n] - S2[a2, SP[a1, a6], a5, 
     SP[a3, a4], n] - S2[a2, SP[a1, a6], SP[a3, a4], a5, n] - 
    S2[a2, SP[a1, a6], SP[a3, a5], a4, n] - S2[a1, a3, n]*
     S2[a5, a6, a2, a4, n] + S2[a5, a6, SP[a1, a2], SP[a3, a4], n] + 
    S2[a5, SP[a1, a6], a2, SP[a3, a4], n] + S2[a5, SP[a1, a6], SP[a2, a3], 
     a4, n] - S2[SP[a1, a2], a3, a4, SP[a5, a6], n] - 
    S2[SP[a1, a2], a3, SP[a4, a5], a6, n] - S2[SP[a1, a2], a4, a3, 
     SP[a5, a6], n] - S2[SP[a1, a2], a4, SP[a3, a6], a5, n] - 
    S2[SP[a1, a2], a6, a4, SP[a3, a5], n] - S2[SP[a1, a2], a6, a5, 
     SP[a3, a4], n] - S2[SP[a1, a2], a6, SP[a3, a4], a5, n] - 
    S2[SP[a1, a2], a6, SP[a3, a5], a4, n] - S2[SP[a1, a2], SP[a3, a4], a5, 
     a6, n] - S2[SP[a1, a2], SP[a3, a4], a6, a5, n] - 
    S2[SP[a1, a2], SP[a3, a6], a4, a5, n] - S2[SP[a1, a2], SP[a3, a6], a5, 
     a4, n] + S2[SP[a1, a5], a6, a2, SP[a3, a4], n] + 
    S2[SP[a1, a5], a6, SP[a2, a3], a4, n] + S2[SP[a1, a5], SP[a3, a6], a2, 
     a4, n] + S2[a1, a2, a3, a4, SP[a5, a6], n] + S2[a1, a2, a3, SP[a4, a5], 
     a6, n] + S2[a1, a2, a4, a3, SP[a5, a6], n] + S2[a1, a2, a4, SP[a3, a6], 
     a5, n] + S2[a1, a2, a6, a4, SP[a3, a5], n] + 
    S2[a1, a2, a6, a5, SP[a3, a4], n] + S2[a1, a2, a6, SP[a3, a4], a5, n] + 
    S2[a1, a2, a6, SP[a3, a5], a4, n] + S2[a1, a2, SP[a3, a4], a5, a6, n] + 
    S2[a1, a2, SP[a3, a4], a6, a5, n] + S2[a1, a2, SP[a3, a6], a4, a5, n] + 
    S2[a1, a2, SP[a3, a6], a5, a4, n] + S2[a1, a3, a2, a4, SP[a5, a6], n] + 
    S2[a1, a3, a2, SP[a4, a5], a6, n] + S2[a6, n]*S2[a1, a3, a4, a2, a5, n] + 
    S2[a1, a3, a4, a2, SP[a5, a6], n] + S2[a6, n]*S2[a1, a3, a4, a5, a2, n] - 
    S2[a2, n]*S2[a1, a3, a4, a5, a6, n] - 
    S2[a2, n]*S2[a1, a3, a4, a6, a5, n] - S2[a1, a3, a4, a6, SP[a2, a5], n] - 
    S2[a1, a3, a4, SP[a2, a5], a6, n] + S2[a1, a3, a4, SP[a5, a6], a2, n] + 
    S2[a6, n]*S2[a1, a3, a5, a4, a2, n] - 
    S2[a2, n]*S2[a1, a3, a5, a4, a6, n] - S2[a1, a3, a5, SP[a2, a4], a6, n] + 
    S2[a1, a3, a5, SP[a4, a6], a2, n] + S2[a5, n]*S2[a1, a3, a6, a2, a4, n] + 
    S2[a1, a3, a6, a2, SP[a4, a5], n] - S2[a2, n]*S2[a1, a3, a6, a4, a5, n] - 
    S2[a1, a3, a6, a4, SP[a2, a5], n] - S2[a2, n]*S2[a1, a3, a6, a5, a4, n] - 
    S2[a1, a3, a6, a5, SP[a2, a4], n] - S2[a1, a3, a6, SP[a2, a4], a5, n] - 
    S2[a1, a3, SP[a2, a4], a5, a6, n] - S2[a1, a3, SP[a2, a4], a6, a5, n] - 
    S2[a1, a3, SP[a2, a6], a4, a5, n] - S2[a1, a3, SP[a2, a6], a5, a4, n] + 
    S2[a1, a3, SP[a4, a6], a2, a5, n] + S2[a1, a3, SP[a4, a6], a5, a2, n] + 
    S2[a1, a3, SP[a5, a6], a2, a4, n] + S2[a1, a3, SP[a5, a6], a4, a2, n] + 
    S2[a6, n]*S2[a1, a4, a2, a3, a5, n] + S2[a1, a4, a2, a3, SP[a5, a6], n] + 
    S2[a1, a4, a2, SP[a3, a6], a5, n] + S2[a6, n]*S2[a1, a4, a3, a2, a5, n] + 
    S2[a1, a4, a3, a2, SP[a5, a6], n] + S2[a6, n]*S2[a1, a4, a3, a5, a2, n] - 
    S2[a2, n]*S2[a1, a4, a3, a5, a6, n] - 
    S2[a2, n]*S2[a1, a4, a3, a6, a5, n] - S2[a1, a4, a3, a6, SP[a2, a5], n] - 
    S2[a1, a4, a3, SP[a2, a5], a6, n] + S2[a1, a4, a3, SP[a5, a6], a2, n] - 
    S2[a2, n]*S2[a1, a4, a6, a3, a5, n] - S2[a1, a4, a6, a3, SP[a2, a5], n] - 
    S2[a1, a4, a6, SP[a2, a3], a5, n] - S2[a1, a4, SP[a2, a3], a5, a6, n] - 
    S2[a1, a4, SP[a2, a3], a6, a5, n] + S2[a1, a4, SP[a3, a6], a2, a5, n] + 
    S2[a1, a4, SP[a3, a6], a5, a2, n] - S2[a1, a5, a6, a2, SP[a3, a4], n] - 
    S2[a1, a5, a6, SP[a2, a3], a4, n] - S2[a1, a5, SP[a3, a6], a2, a4, n] + 
    S2[a5, n]*S2[a1, a6, a2, a3, a4, n] + S2[a1, a6, a2, a3, SP[a4, a5], n] + 
    S2[a5, n]*S2[a1, a6, a2, a4, a3, n] + S2[a1, a6, a2, a4, SP[a3, a5], n] + 
    S2[a1, a6, a2, SP[a3, a5], a4, n] + S2[a1, a6, a2, SP[a4, a5], a3, n] + 
    S2[a5, n]*S2[a1, a6, a3, a2, a4, n] + S2[a1, a6, a3, a2, SP[a4, a5], n] - 
    S2[a2, n]*S2[a1, a6, a3, a4, a5, n] - S2[a1, a6, a3, a4, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a6, a3, a5, a4, n] - S2[a1, a6, a3, a5, SP[a2, a4], n] - 
    S2[a1, a6, a3, SP[a2, a4], a5, n] - S2[a2, n]*S2[a1, a6, a4, a3, a5, n] - 
    S2[a1, a6, a4, a3, SP[a2, a5], n] - S2[a2, n]*S2[a1, a6, a4, a5, a3, n] - 
    S2[a1, a6, a4, a5, SP[a2, a3], n] - S2[a1, a6, a4, SP[a2, a3], a5, n] - 
    S2[a1, a6, a4, SP[a2, a5], a3, n] - S2[a2, n]*S2[a1, a6, a5, a3, a4, n] - 
    S2[a1, a6, a5, a3, SP[a2, a4], n] - S2[a2, n]*S2[a1, a6, a5, a4, a3, n] - 
    S2[a1, a6, a5, a4, SP[a2, a3], n] - S2[a1, a6, a5, SP[a2, a3], a4, n] - 
    S2[a1, a6, a5, SP[a2, a4], a3, n] - S2[a1, a6, SP[a2, a3], a4, a5, n] - 
    S2[a1, a6, SP[a2, a3], a5, a4, n] - S2[a1, a6, SP[a2, a4], a3, a5, n] - 
    S2[a1, a6, SP[a2, a4], a5, a3, n] + S2[a1, a6, SP[a3, a5], a2, a4, n] - 
    S2[a1, SP[a2, a4], a3, a5, a6, n] - S2[a1, SP[a2, a4], a3, a6, a5, n] - 
    S2[a1, SP[a2, a4], a6, a3, a5, n] - S2[a1, SP[a2, a6], a3, a4, a5, n] - 
    S2[a1, SP[a2, a6], a3, a5, a4, n] - S2[a1, SP[a2, a6], a4, a3, a5, n] - 
    S2[a1, SP[a2, a6], a4, a5, a3, n] - S2[a1, SP[a2, a6], a5, a3, a4, n] - 
    S2[a1, SP[a2, a6], a5, a4, a3, n] + S2[a1, SP[a3, a6], a4, a2, a5, n] + 
    S2[a1, SP[a3, a6], a4, a5, a2, n] + S2[a1, SP[a3, a6], a5, a4, a2, n] + 
    S2[a1, SP[a4, a6], a2, a3, a5, n] + S2[a1, SP[a4, a6], a3, a2, a5, n] + 
    S2[a1, SP[a4, a6], a3, a5, a2, n] + S2[a1, SP[a5, a6], a2, a3, a4, n] + 
    S2[a1, SP[a5, a6], a2, a4, a3, n] + S2[a1, SP[a5, a6], a3, a2, a4, n] + 
    S2[a2, a1, a3, a4, SP[a5, a6], n] + S2[a2, a1, a3, SP[a4, a5], a6, n] + 
    S2[a2, a1, a4, a3, SP[a5, a6], n] + S2[a2, a1, a4, SP[a3, a6], a5, n] + 
    S2[a2, a1, a6, a4, SP[a3, a5], n] + S2[a2, a1, a6, a5, SP[a3, a4], n] + 
    S2[a2, a1, a6, SP[a3, a4], a5, n] + S2[a2, a1, a6, SP[a3, a5], a4, n] + 
    S2[a2, a1, SP[a3, a4], a5, a6, n] + S2[a2, a1, SP[a3, a4], a6, a5, n] + 
    S2[a2, a1, SP[a3, a6], a4, a5, n] + S2[a2, a1, SP[a3, a6], a5, a4, n] - 
    S2[a6, n]*S2[a2, a4, a1, a3, a5, n] - 
    S2[a5, n]*S2[a2, a6, a1, a3, a4, n] - S2[a2, a6, a1, a3, SP[a4, a5], n] - 
    S2[a5, n]*S2[a2, a6, a1, a4, a3, n] + S2[a2, a6, a1, a5, SP[a3, a4], n] + 
    S2[a2, a6, a1, SP[a3, a4], a5, n] - S2[a2, a6, a1, SP[a4, a5], a3, n] + 
    S2[a2, a6, a4, a1, SP[a3, a5], n] + S2[a2, a6, a4, SP[a1, a5], a3, n] + 
    S2[a2, a6, a5, a1, SP[a3, a4], n] + S2[a2, a6, a5, SP[a1, a4], a3, n] + 
    S2[a2, a6, SP[a1, a4], a3, a5, n] + S2[a2, a6, SP[a1, a4], a5, a3, n] + 
    S2[a2, SP[a1, a4], a3, a5, a6, n] + S2[a2, SP[a1, a4], a3, a6, a5, n] + 
    S2[a2, SP[a1, a4], a6, a3, a5, n] + S2[a2, SP[a1, a6], a3, a4, a5, n] + 
    S2[a2, SP[a1, a6], a3, a5, a4, n] + S2[a2, SP[a1, a6], a4, a3, a5, n] + 
    S2[a2, SP[a1, a6], a4, a5, a3, n] + S2[a2, SP[a1, a6], a5, a3, a4, n] + 
    S2[a2, SP[a1, a6], a5, a4, a3, n] - S2[a2, SP[a4, a6], a1, a3, a5, n] - 
    S2[a2, SP[a5, a6], a1, a3, a4, n] - S2[a2, SP[a5, a6], a1, a4, a3, n] - 
    S2[a5, a1, a6, a2, SP[a3, a4], n] - S2[a5, a1, a6, SP[a2, a3], a4, n] - 
    S2[a5, a1, SP[a3, a6], a2, a4, n] - S2[a5, a6, a1, a2, SP[a3, a4], n] + 
    S2[a2, n]*S2[a5, a6, a1, a3, a4, n] + S2[a5, a6, a1, a3, SP[a2, a4], n] + 
    S2[a2, n]*S2[a5, a6, a1, a4, a3, n] + S2[a5, a6, a1, a4, SP[a2, a3], n] + 
    S2[a5, a6, a1, SP[a2, a4], a3, n] - S2[a5, a6, a2, a1, SP[a3, a4], n] - 
    S2[a5, a6, a2, SP[a1, a4], a3, n] - S2[a5, SP[a1, a6], a2, a3, a4, n] - 
    S2[a5, SP[a1, a6], a2, a4, a3, n] - S2[a5, SP[a1, a6], a3, a2, a4, n] + 
    S2[a5, SP[a2, a6], a1, a3, a4, n] + S2[a5, SP[a2, a6], a1, a4, a3, n] - 
    S2[a5, n]*S2[a6, a1, a3, a4, a2, n] - S2[a6, a1, a3, a4, SP[a2, a5], n] - 
    S2[a6, a1, a3, SP[a4, a5], a2, n] - S2[a5, n]*S2[a6, a1, a4, a2, a3, n] - 
    S2[a6, a1, a4, a2, SP[a3, a5], n] - S2[a5, n]*S2[a6, a1, a4, a3, a2, n] - 
    S2[a6, a1, a4, a3, SP[a2, a5], n] - S2[a6, a1, a4, SP[a2, a5], a3, n] - 
    S2[a6, a1, a4, SP[a3, a5], a2, n] - S2[a6, a1, SP[a3, a5], a4, a2, n] - 
    S2[a6, a1, SP[a4, a5], a2, a3, n] - S2[a6, a1, SP[a4, a5], a3, a2, n] + 
    S2[a5, n]*S2[a6, a2, a4, a1, a3, n] + S2[a6, a2, a4, a1, SP[a3, a5], n] + 
    S2[a6, a2, a4, SP[a1, a5], a3, n] + S2[a6, a2, SP[a4, a5], a1, a3, n] - 
    S2[a2, n]*S2[a6, a4, a1, a5, a3, n] - S2[a6, a4, a1, a5, SP[a2, a3], n] - 
    S2[a6, a4, a1, SP[a2, a5], a3, n] + S2[a1, n]*S2[a6, a4, a2, a5, a3, n] + 
    S2[a6, a4, a2, a5, SP[a1, a3], n] + S2[a6, a4, a2, SP[a1, a5], a3, n] - 
    S2[a2, n]*S2[a6, a4, a5, a1, a3, n] - S2[a6, a4, a5, a1, SP[a2, a3], n] + 
    S2[a1, n]*S2[a6, a4, a5, a2, a3, n] + S2[a6, a4, a5, a2, SP[a1, a3], n] + 
    S2[a1, n]*S2[a6, a4, a5, a3, a2, n] + S2[a6, a4, a5, a3, SP[a1, a2], n] + 
    S2[a6, a4, a5, SP[a1, a3], a2, n] + S2[a6, a4, SP[a1, a5], a2, a3, n] + 
    S2[a6, a4, SP[a1, a5], a3, a2, n] - S2[a6, a4, SP[a2, a5], a1, a3, n] + 
    S2[a1, n]*S2[a6, a5, a3, a4, a2, n] + S2[a6, a5, a3, a4, SP[a1, a2], n] + 
    S2[a6, a5, a3, SP[a1, a4], a2, n] - S2[a2, n]*S2[a6, a5, a4, a1, a3, n] - 
    S2[a6, a5, a4, a1, SP[a2, a3], n] + S2[a1, n]*S2[a6, a5, a4, a2, a3, n] + 
    S2[a6, a5, a4, a2, SP[a1, a3], n] + S2[a1, n]*S2[a6, a5, a4, a3, a2, n] + 
    S2[a6, a5, a4, a3, SP[a1, a2], n] + S2[a6, a5, a4, SP[a1, a3], a2, n] + 
    S2[a6, a5, SP[a1, a3], a4, a2, n] + S2[a6, a5, SP[a1, a4], a2, a3, n] + 
    S2[a6, a5, SP[a1, a4], a3, a2, n] - S2[a6, a5, SP[a2, a4], a1, a3, n] + 
    S2[a6, SP[a1, a4], a2, a5, a3, n] + S2[a6, SP[a1, a4], a5, a2, a3, n] + 
    S2[a6, SP[a1, a4], a5, a3, a2, n] - S2[a6, SP[a2, a4], a1, a5, a3, n] - 
    S2[a6, SP[a2, a4], a5, a1, a3, n] + S2[SP[a1, a6], a3, a4, a2, a5, n] + 
    S2[SP[a1, a6], a3, a4, a5, a2, n] + S2[SP[a1, a6], a3, a5, a4, a2, n] + 
    S2[SP[a1, a6], a4, a2, a3, a5, n] + S2[SP[a1, a6], a4, a2, a5, a3, n] + 
    S2[SP[a1, a6], a4, a3, a2, a5, n] + S2[SP[a1, a6], a4, a3, a5, a2, n] + 
    S2[SP[a1, a6], a4, a5, a2, a3, n] + S2[SP[a1, a6], a4, a5, a3, a2, n] + 
    S2[SP[a1, a6], a5, a3, a4, a2, n] + S2[SP[a1, a6], a5, a4, a2, a3, n] + 
    S2[SP[a1, a6], a5, a4, a3, a2, n] - S2[SP[a2, a6], a4, a1, a3, a5, n] - 
    S2[SP[a2, a6], a4, a1, a5, a3, n] - S2[SP[a2, a6], a4, a5, a1, a3, n] - 
    S2[SP[a2, a6], a5, a4, a1, a3, n] - S2[SP[a5, a6], a1, a3, a4, a2, n] - 
    S2[SP[a5, a6], a1, a4, a2, a3, n] - S2[SP[a5, a6], a1, a4, a3, a2, n] + 
    S2[SP[a5, a6], a2, a4, a1, a3, n] - S2[a6, a4, a2, a5, a3, a1, n] - 
    S2[a6, a4, a5, a2, a3, a1, n] - S2[a6, a4, a5, a3, a1, a2, n] - 
    S2[a6, a4, a5, a3, a2, a1, n] - S2[a6, a5, a3, a1, a4, a2, n] - 
    S2[a6, a5, a3, a4, a1, a2, n] - S2[a6, a5, a3, a4, a2, a1, n] - 
    S2[a6, a5, a4, a2, a3, a1, n] - S2[a6, a5, a4, a3, a1, a2, n] - 
    S2[a6, a5, a4, a3, a2, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a1_, a3_, a6_, a2_, a4_, a5_, n_] :> 
  -(S2[a1, a3, n]*S2[a2, a4, a5, a6, n]) - S2[a1, a3, n]*
     S2[a2, a4, a6, a5, n] + S2[a2, a4, SP[a1, a5], SP[a3, a6], n] + 
    S2[a2, a4, SP[a1, a6], SP[a3, a5], n] - S2[a1, a3, n]*
     S2[a2, a6, a4, a5, n] + S2[a2, a6, SP[a1, a4], SP[a3, a5], n] + 
    S2[a2, SP[a1, a4], a5, SP[a3, a6], n] + S2[a2, SP[a1, a4], a6, 
     SP[a3, a5], n] + S2[a2, SP[a1, a4], SP[a3, a5], a6, n] + 
    S2[a2, SP[a1, a4], SP[a3, a6], a5, n] + S2[a2, SP[a1, a6], a4, 
     SP[a3, a5], n] + S2[a2, SP[a1, a6], SP[a3, a4], a5, n] + 
    S2[SP[a1, a2], a4, a5, SP[a3, a6], n] + S2[SP[a1, a2], a4, a6, 
     SP[a3, a5], n] + S2[SP[a1, a2], a4, SP[a3, a5], a6, n] + 
    S2[SP[a1, a2], a4, SP[a3, a6], a5, n] + S2[SP[a1, a2], a6, a4, 
     SP[a3, a5], n] + S2[SP[a1, a2], a6, SP[a3, a4], a5, n] + 
    S2[SP[a1, a2], SP[a3, a4], a5, a6, n] + S2[SP[a1, a2], SP[a3, a4], a6, 
     a5, n] + S2[SP[a1, a2], SP[a3, a6], a4, a5, n] - 
    S2[a1, a2, a4, a5, SP[a3, a6], n] - S2[a1, a2, a4, a6, SP[a3, a5], n] - 
    S2[a1, a2, a4, SP[a3, a5], a6, n] - S2[a1, a2, a4, SP[a3, a6], a5, n] - 
    S2[a1, a2, a6, a4, SP[a3, a5], n] - S2[a1, a2, a6, SP[a3, a4], a5, n] - 
    S2[a1, a2, SP[a3, a4], a5, a6, n] - S2[a1, a2, SP[a3, a4], a6, a5, n] - 
    S2[a1, a2, SP[a3, a6], a4, a5, n] - S2[a6, n]*S2[a1, a3, a4, a2, a5, n] - 
    S2[a1, a3, a4, a2, SP[a5, a6], n] - S2[a6, n]*S2[a1, a3, a4, a5, a2, n] + 
    S2[a2, n]*S2[a1, a3, a4, a5, a6, n] + 
    S2[a2, n]*S2[a1, a3, a4, a6, a5, n] + S2[a1, a3, a4, a6, SP[a2, a5], n] + 
    S2[a1, a3, a4, SP[a2, a5], a6, n] - S2[a1, a3, a4, SP[a5, a6], a2, n] + 
    S2[a2, n]*S2[a1, a3, a6, a4, a5, n] + S2[a1, a3, a6, a4, SP[a2, a5], n] + 
    S2[a1, a3, a6, SP[a2, a4], a5, n] + S2[a1, a3, SP[a2, a4], a5, a6, n] + 
    S2[a1, a3, SP[a2, a4], a6, a5, n] + S2[a1, a3, SP[a2, a6], a4, a5, n] - 
    S2[a1, a3, SP[a4, a6], a2, a5, n] - S2[a1, a3, SP[a4, a6], a5, a2, n] - 
    S2[a6, n]*S2[a1, a4, a2, a3, a5, n] - S2[a1, a4, a2, a3, SP[a5, a6], n] - 
    S2[a6, n]*S2[a1, a4, a2, a5, a3, n] - S2[a1, a4, a2, a5, SP[a3, a6], n] - 
    S2[a1, a4, a2, SP[a3, a6], a5, n] - S2[a1, a4, a2, SP[a5, a6], a3, n] - 
    S2[a6, n]*S2[a1, a4, a3, a2, a5, n] - S2[a1, a4, a3, a2, SP[a5, a6], n] - 
    S2[a6, n]*S2[a1, a4, a3, a5, a2, n] + 
    S2[a2, n]*S2[a1, a4, a3, a5, a6, n] + 
    S2[a2, n]*S2[a1, a4, a3, a6, a5, n] + S2[a1, a4, a3, a6, SP[a2, a5], n] + 
    S2[a1, a4, a3, SP[a2, a5], a6, n] - S2[a1, a4, a3, SP[a5, a6], a2, n] - 
    S2[a6, n]*S2[a1, a4, a5, a2, a3, n] - S2[a1, a4, a5, a2, SP[a3, a6], n] - 
    S2[a6, n]*S2[a1, a4, a5, a3, a2, n] + 
    S2[a2, n]*S2[a1, a4, a5, a3, a6, n] + 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] + S2[a1, a4, a5, a6, SP[a2, a3], n] + 
    S2[a1, a4, a5, SP[a2, a3], a6, n] - S2[a1, a4, a5, SP[a3, a6], a2, n] + 
    S2[a2, n]*S2[a1, a4, a6, a3, a5, n] + S2[a1, a4, a6, a3, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a4, a6, a5, a3, n] + S2[a1, a4, a6, a5, SP[a2, a3], n] + 
    S2[a1, a4, a6, SP[a2, a3], a5, n] + S2[a1, a4, a6, SP[a2, a5], a3, n] + 
    S2[a1, a4, SP[a2, a3], a5, a6, n] + S2[a1, a4, SP[a2, a3], a6, a5, n] + 
    S2[a1, a4, SP[a2, a5], a3, a6, n] + S2[a1, a4, SP[a2, a5], a6, a3, n] - 
    S2[a1, a4, SP[a3, a6], a2, a5, n] - S2[a1, a4, SP[a3, a6], a5, a2, n] - 
    S2[a1, a4, SP[a5, a6], a2, a3, n] - S2[a1, a4, SP[a5, a6], a3, a2, n] + 
    S2[a2, n]*S2[a1, a6, a3, a4, a5, n] + S2[a1, a6, a3, a4, SP[a2, a5], n] + 
    S2[a1, a6, a3, SP[a2, a4], a5, n] + S2[a2, n]*S2[a1, a6, a4, a3, a5, n] + 
    S2[a1, a6, a4, a3, SP[a2, a5], n] + S2[a2, n]*S2[a1, a6, a4, a5, a3, n] + 
    S2[a1, a6, a4, a5, SP[a2, a3], n] + S2[a1, a6, a4, SP[a2, a3], a5, n] + 
    S2[a1, a6, a4, SP[a2, a5], a3, n] + S2[a1, a6, SP[a2, a3], a4, a5, n] + 
    S2[a1, a6, SP[a2, a4], a3, a5, n] + S2[a1, a6, SP[a2, a4], a5, a3, n] + 
    S2[a1, SP[a2, a4], a3, a5, a6, n] + S2[a1, SP[a2, a4], a3, a6, a5, n] + 
    S2[a1, SP[a2, a4], a5, a3, a6, n] + S2[a1, SP[a2, a4], a5, a6, a3, n] + 
    S2[a1, SP[a2, a4], a6, a3, a5, n] + S2[a1, SP[a2, a4], a6, a5, a3, n] + 
    S2[a1, SP[a2, a6], a3, a4, a5, n] + S2[a1, SP[a2, a6], a4, a3, a5, n] + 
    S2[a1, SP[a2, a6], a4, a5, a3, n] - S2[a1, SP[a3, a6], a4, a2, a5, n] - 
    S2[a1, SP[a3, a6], a4, a5, a2, n] - S2[a1, SP[a4, a6], a2, a3, a5, n] - 
    S2[a1, SP[a4, a6], a2, a5, a3, n] - S2[a1, SP[a4, a6], a3, a2, a5, n] - 
    S2[a1, SP[a4, a6], a3, a5, a2, n] - S2[a1, SP[a4, a6], a5, a2, a3, n] - 
    S2[a1, SP[a4, a6], a5, a3, a2, n] - S2[a2, a1, a4, a5, SP[a3, a6], n] - 
    S2[a2, a1, a4, a6, SP[a3, a5], n] - S2[a2, a1, a4, SP[a3, a5], a6, n] - 
    S2[a2, a1, a4, SP[a3, a6], a5, n] - S2[a2, a1, a6, a4, SP[a3, a5], n] - 
    S2[a2, a1, a6, SP[a3, a4], a5, n] - S2[a2, a1, SP[a3, a4], a5, a6, n] - 
    S2[a2, a1, SP[a3, a4], a6, a5, n] - S2[a2, a1, SP[a3, a6], a4, a5, n] + 
    S2[a6, n]*S2[a2, a4, a1, a3, a5, n] + S2[a2, a4, a1, a3, SP[a5, a6], n] + 
    S2[a6, n]*S2[a2, a4, a1, a5, a3, n] - S2[a2, a4, a1, a6, SP[a3, a5], n] - 
    S2[a2, a4, a1, SP[a3, a5], a6, n] + S2[a2, a4, a1, SP[a5, a6], a3, n] + 
    S2[a6, n]*S2[a2, a4, a5, a1, a3, n] - S2[a2, a4, a6, a1, SP[a3, a5], n] - 
    S2[a2, a4, a6, SP[a1, a5], a3, n] - S2[a2, a4, SP[a1, a5], a3, a6, n] - 
    S2[a2, a4, SP[a1, a5], a6, a3, n] + S2[a2, a4, SP[a5, a6], a1, a3, n] - 
    S2[a2, a6, a1, a4, SP[a3, a5], n] - S2[a2, a6, a1, SP[a3, a4], a5, n] - 
    S2[a2, a6, a4, a1, SP[a3, a5], n] - S2[a2, a6, a4, SP[a1, a5], a3, n] - 
    S2[a2, a6, SP[a1, a4], a3, a5, n] - S2[a2, a6, SP[a1, a4], a5, a3, n] - 
    S2[a2, SP[a1, a4], a3, a5, a6, n] - S2[a2, SP[a1, a4], a3, a6, a5, n] - 
    S2[a2, SP[a1, a4], a5, a3, a6, n] - S2[a2, SP[a1, a4], a5, a6, a3, n] - 
    S2[a2, SP[a1, a4], a6, a3, a5, n] - S2[a2, SP[a1, a4], a6, a5, a3, n] - 
    S2[a2, SP[a1, a6], a3, a4, a5, n] - S2[a2, SP[a1, a6], a4, a3, a5, n] - 
    S2[a2, SP[a1, a6], a4, a5, a3, n] + S2[a2, SP[a4, a6], a1, a3, a5, n] + 
    S2[a2, SP[a4, a6], a1, a5, a3, n] + S2[a2, SP[a4, a6], a5, a1, a3, n] + 
    S2[a2, n]*S2[a6, a1, a3, a4, a5, n] + S2[a6, a1, a3, a4, SP[a2, a5], n] + 
    S2[a6, a1, a3, SP[a2, a4], a5, n] + S2[a2, n]*S2[a6, a1, a4, a3, a5, n] + 
    S2[a6, a1, a4, a3, SP[a2, a5], n] + S2[a2, n]*S2[a6, a1, a4, a5, a3, n] + 
    S2[a6, a1, a4, a5, SP[a2, a3], n] + S2[a6, a1, a4, SP[a2, a3], a5, n] + 
    S2[a6, a1, a4, SP[a2, a5], a3, n] + S2[a6, a1, SP[a2, a3], a4, a5, n] + 
    S2[a6, a1, SP[a2, a4], a3, a5, n] + S2[a6, a1, SP[a2, a4], a5, a3, n] - 
    S2[a1, n]*S2[a6, a2, a3, a4, a5, n] - S2[a6, a2, a3, a4, SP[a1, a5], n] - 
    S2[a6, a2, a3, SP[a1, a4], a5, n] - S2[a1, n]*S2[a6, a2, a4, a3, a5, n] - 
    S2[a6, a2, a4, a3, SP[a1, a5], n] - S2[a1, n]*S2[a6, a2, a4, a5, a3, n] - 
    S2[a6, a2, a4, a5, SP[a1, a3], n] - S2[a6, a2, a4, SP[a1, a3], a5, n] - 
    S2[a6, a2, a4, SP[a1, a5], a3, n] - S2[a6, a2, SP[a1, a3], a4, a5, n] - 
    S2[a6, a2, SP[a1, a4], a3, a5, n] - S2[a6, a2, SP[a1, a4], a5, a3, n] - 
    S2[a1, n]*S2[a6, a3, a2, a4, a5, n] - S2[a6, a3, a2, a4, SP[a1, a5], n] - 
    S2[a6, a3, a2, SP[a1, a4], a5, n] - S2[a6, a3, SP[a1, a2], a4, a5, n] - 
    S2[a6, SP[a1, a3], a2, a4, a5, n] - S2[SP[a1, a6], a2, a3, a4, a5, n] - 
    S2[SP[a1, a6], a2, a4, a3, a5, n] - S2[SP[a1, a6], a2, a4, a5, a3, n] - 
    S2[SP[a1, a6], a3, a2, a4, a5, n] - S2[SP[a1, a6], a3, a4, a2, a5, n] - 
    S2[SP[a1, a6], a3, a4, a5, a2, n] - S2[SP[a1, a6], a4, a2, a3, a5, n] - 
    S2[SP[a1, a6], a4, a2, a5, a3, n] - S2[SP[a1, a6], a4, a3, a2, a5, n] - 
    S2[SP[a1, a6], a4, a3, a5, a2, n] - S2[SP[a1, a6], a4, a5, a2, a3, n] - 
    S2[SP[a1, a6], a4, a5, a3, a2, n] + S2[SP[a2, a6], a1, a3, a4, a5, n] + 
    S2[SP[a2, a6], a1, a4, a3, a5, n] + S2[SP[a2, a6], a1, a4, a5, a3, n] + 
    S2[SP[a2, a6], a4, a1, a3, a5, n] + S2[SP[a2, a6], a4, a1, a5, a3, n] + 
    S2[SP[a2, a6], a4, a5, a1, a3, n] + S2[a6, a2, a3, a1, a4, a5, n] + 
    S2[a6, a2, a3, a4, a1, a5, n] + S2[a6, a2, a3, a4, a5, a1, n] + 
    S2[a6, a2, a4, a3, a1, a5, n] + S2[a6, a2, a4, a3, a5, a1, n] + 
    S2[a6, a2, a4, a5, a3, a1, n] + S2[a6, a3, a1, a2, a4, a5, n] + 
    S2[a6, a3, a2, a1, a4, a5, n] + S2[a6, a3, a2, a4, a1, a5, n] + 
    S2[a6, a3, a2, a4, a5, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a1_, a3_, a6_, a2_, a5_, a4_, n_] :> 
  -(S2[a1, a3, n]*S2[a2, a5, a4, a6, n]) - S2[a1, a3, n]*
     S2[a2, a5, a6, a4, n] + S2[a2, a5, SP[a1, a4], SP[a3, a6], n] + 
    S2[a2, a5, SP[a1, a6], SP[a3, a4], n] - S2[a1, a3, n]*
     S2[a2, a6, a5, a4, n] + S2[a2, a6, SP[a1, a5], SP[a3, a4], n] + 
    S2[a2, SP[a1, a5], a4, SP[a3, a6], n] + S2[a2, SP[a1, a5], a6, 
     SP[a3, a4], n] + S2[a2, SP[a1, a5], SP[a3, a4], a6, n] + 
    S2[a2, SP[a1, a5], SP[a3, a6], a4, n] + S2[a2, SP[a1, a6], a5, 
     SP[a3, a4], n] + S2[a2, SP[a1, a6], SP[a3, a5], a4, n] + 
    S2[SP[a1, a2], a5, a4, SP[a3, a6], n] + S2[SP[a1, a2], a5, a6, 
     SP[a3, a4], n] + S2[SP[a1, a2], a5, SP[a3, a4], a6, n] + 
    S2[SP[a1, a2], a5, SP[a3, a6], a4, n] + S2[SP[a1, a2], a6, a5, 
     SP[a3, a4], n] + S2[SP[a1, a2], a6, SP[a3, a5], a4, n] + 
    S2[SP[a1, a2], SP[a3, a5], a4, a6, n] + S2[SP[a1, a2], SP[a3, a5], a6, 
     a4, n] + S2[SP[a1, a2], SP[a3, a6], a5, a4, n] - 
    S2[a1, a2, a5, a4, SP[a3, a6], n] - S2[a1, a2, a5, a6, SP[a3, a4], n] - 
    S2[a1, a2, a5, SP[a3, a4], a6, n] - S2[a1, a2, a5, SP[a3, a6], a4, n] - 
    S2[a1, a2, a6, a5, SP[a3, a4], n] - S2[a1, a2, a6, SP[a3, a5], a4, n] - 
    S2[a1, a2, SP[a3, a5], a4, a6, n] - S2[a1, a2, SP[a3, a5], a6, a4, n] - 
    S2[a1, a2, SP[a3, a6], a5, a4, n] - S2[a6, n]*S2[a1, a3, a5, a2, a4, n] - 
    S2[a1, a3, a5, a2, SP[a4, a6], n] - S2[a6, n]*S2[a1, a3, a5, a4, a2, n] + 
    S2[a2, n]*S2[a1, a3, a5, a4, a6, n] + 
    S2[a2, n]*S2[a1, a3, a5, a6, a4, n] + S2[a1, a3, a5, a6, SP[a2, a4], n] + 
    S2[a1, a3, a5, SP[a2, a4], a6, n] - S2[a1, a3, a5, SP[a4, a6], a2, n] + 
    S2[a2, n]*S2[a1, a3, a6, a5, a4, n] + S2[a1, a3, a6, a5, SP[a2, a4], n] + 
    S2[a1, a3, a6, SP[a2, a5], a4, n] + S2[a1, a3, SP[a2, a5], a4, a6, n] + 
    S2[a1, a3, SP[a2, a5], a6, a4, n] + S2[a1, a3, SP[a2, a6], a5, a4, n] - 
    S2[a1, a3, SP[a5, a6], a2, a4, n] - S2[a1, a3, SP[a5, a6], a4, a2, n] - 
    S2[a6, n]*S2[a1, a5, a2, a3, a4, n] - S2[a1, a5, a2, a3, SP[a4, a6], n] - 
    S2[a6, n]*S2[a1, a5, a2, a4, a3, n] - S2[a1, a5, a2, a4, SP[a3, a6], n] - 
    S2[a1, a5, a2, SP[a3, a6], a4, n] - S2[a1, a5, a2, SP[a4, a6], a3, n] - 
    S2[a6, n]*S2[a1, a5, a3, a2, a4, n] - S2[a1, a5, a3, a2, SP[a4, a6], n] - 
    S2[a6, n]*S2[a1, a5, a3, a4, a2, n] + 
    S2[a2, n]*S2[a1, a5, a3, a4, a6, n] + 
    S2[a2, n]*S2[a1, a5, a3, a6, a4, n] + S2[a1, a5, a3, a6, SP[a2, a4], n] + 
    S2[a1, a5, a3, SP[a2, a4], a6, n] - S2[a1, a5, a3, SP[a4, a6], a2, n] - 
    S2[a6, n]*S2[a1, a5, a4, a2, a3, n] - S2[a1, a5, a4, a2, SP[a3, a6], n] - 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] + 
    S2[a2, n]*S2[a1, a5, a4, a3, a6, n] + 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] + S2[a1, a5, a4, a6, SP[a2, a3], n] + 
    S2[a1, a5, a4, SP[a2, a3], a6, n] - S2[a1, a5, a4, SP[a3, a6], a2, n] + 
    S2[a2, n]*S2[a1, a5, a6, a3, a4, n] + S2[a1, a5, a6, a3, SP[a2, a4], n] + 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] + S2[a1, a5, a6, a4, SP[a2, a3], n] + 
    S2[a1, a5, a6, SP[a2, a3], a4, n] + S2[a1, a5, a6, SP[a2, a4], a3, n] + 
    S2[a1, a5, SP[a2, a3], a4, a6, n] + S2[a1, a5, SP[a2, a3], a6, a4, n] + 
    S2[a1, a5, SP[a2, a4], a3, a6, n] + S2[a1, a5, SP[a2, a4], a6, a3, n] - 
    S2[a1, a5, SP[a3, a6], a2, a4, n] - S2[a1, a5, SP[a3, a6], a4, a2, n] - 
    S2[a1, a5, SP[a4, a6], a2, a3, n] - S2[a1, a5, SP[a4, a6], a3, a2, n] + 
    S2[a2, n]*S2[a1, a6, a3, a5, a4, n] + S2[a1, a6, a3, a5, SP[a2, a4], n] + 
    S2[a1, a6, a3, SP[a2, a5], a4, n] + S2[a2, n]*S2[a1, a6, a5, a3, a4, n] + 
    S2[a1, a6, a5, a3, SP[a2, a4], n] + S2[a2, n]*S2[a1, a6, a5, a4, a3, n] + 
    S2[a1, a6, a5, a4, SP[a2, a3], n] + S2[a1, a6, a5, SP[a2, a3], a4, n] + 
    S2[a1, a6, a5, SP[a2, a4], a3, n] + S2[a1, a6, SP[a2, a3], a5, a4, n] + 
    S2[a1, a6, SP[a2, a5], a3, a4, n] + S2[a1, a6, SP[a2, a5], a4, a3, n] + 
    S2[a1, SP[a2, a5], a3, a4, a6, n] + S2[a1, SP[a2, a5], a3, a6, a4, n] + 
    S2[a1, SP[a2, a5], a4, a3, a6, n] + S2[a1, SP[a2, a5], a4, a6, a3, n] + 
    S2[a1, SP[a2, a5], a6, a3, a4, n] + S2[a1, SP[a2, a5], a6, a4, a3, n] + 
    S2[a1, SP[a2, a6], a3, a5, a4, n] + S2[a1, SP[a2, a6], a5, a3, a4, n] + 
    S2[a1, SP[a2, a6], a5, a4, a3, n] - S2[a1, SP[a3, a6], a5, a2, a4, n] - 
    S2[a1, SP[a3, a6], a5, a4, a2, n] - S2[a1, SP[a5, a6], a2, a3, a4, n] - 
    S2[a1, SP[a5, a6], a2, a4, a3, n] - S2[a1, SP[a5, a6], a3, a2, a4, n] - 
    S2[a1, SP[a5, a6], a3, a4, a2, n] - S2[a1, SP[a5, a6], a4, a2, a3, n] - 
    S2[a1, SP[a5, a6], a4, a3, a2, n] - S2[a2, a1, a5, a4, SP[a3, a6], n] - 
    S2[a2, a1, a5, a6, SP[a3, a4], n] - S2[a2, a1, a5, SP[a3, a4], a6, n] - 
    S2[a2, a1, a5, SP[a3, a6], a4, n] - S2[a2, a1, a6, a5, SP[a3, a4], n] - 
    S2[a2, a1, a6, SP[a3, a5], a4, n] - S2[a2, a1, SP[a3, a5], a4, a6, n] - 
    S2[a2, a1, SP[a3, a5], a6, a4, n] - S2[a2, a1, SP[a3, a6], a5, a4, n] + 
    S2[a6, n]*S2[a2, a5, a1, a3, a4, n] + S2[a2, a5, a1, a3, SP[a4, a6], n] + 
    S2[a6, n]*S2[a2, a5, a1, a4, a3, n] - S2[a2, a5, a1, a6, SP[a3, a4], n] - 
    S2[a2, a5, a1, SP[a3, a4], a6, n] + S2[a2, a5, a1, SP[a4, a6], a3, n] + 
    S2[a6, n]*S2[a2, a5, a4, a1, a3, n] - S2[a2, a5, a6, a1, SP[a3, a4], n] - 
    S2[a2, a5, a6, SP[a1, a4], a3, n] - S2[a2, a5, SP[a1, a4], a3, a6, n] - 
    S2[a2, a5, SP[a1, a4], a6, a3, n] + S2[a2, a5, SP[a4, a6], a1, a3, n] - 
    S2[a2, a6, a1, a5, SP[a3, a4], n] - S2[a2, a6, a1, SP[a3, a5], a4, n] - 
    S2[a2, a6, a5, a1, SP[a3, a4], n] - S2[a2, a6, a5, SP[a1, a4], a3, n] - 
    S2[a2, a6, SP[a1, a5], a3, a4, n] - S2[a2, a6, SP[a1, a5], a4, a3, n] - 
    S2[a2, SP[a1, a5], a3, a4, a6, n] - S2[a2, SP[a1, a5], a3, a6, a4, n] - 
    S2[a2, SP[a1, a5], a4, a3, a6, n] - S2[a2, SP[a1, a5], a4, a6, a3, n] - 
    S2[a2, SP[a1, a5], a6, a3, a4, n] - S2[a2, SP[a1, a5], a6, a4, a3, n] - 
    S2[a2, SP[a1, a6], a3, a5, a4, n] - S2[a2, SP[a1, a6], a5, a3, a4, n] - 
    S2[a2, SP[a1, a6], a5, a4, a3, n] + S2[a2, SP[a5, a6], a1, a3, a4, n] + 
    S2[a2, SP[a5, a6], a1, a4, a3, n] + S2[a2, SP[a5, a6], a4, a1, a3, n] + 
    S2[a2, n]*S2[a6, a1, a3, a5, a4, n] + S2[a6, a1, a3, a5, SP[a2, a4], n] + 
    S2[a6, a1, a3, SP[a2, a5], a4, n] + S2[a2, n]*S2[a6, a1, a5, a3, a4, n] + 
    S2[a6, a1, a5, a3, SP[a2, a4], n] + S2[a2, n]*S2[a6, a1, a5, a4, a3, n] + 
    S2[a6, a1, a5, a4, SP[a2, a3], n] + S2[a6, a1, a5, SP[a2, a3], a4, n] + 
    S2[a6, a1, a5, SP[a2, a4], a3, n] + S2[a6, a1, SP[a2, a3], a5, a4, n] + 
    S2[a6, a1, SP[a2, a5], a3, a4, n] + S2[a6, a1, SP[a2, a5], a4, a3, n] - 
    S2[a1, n]*S2[a6, a2, a3, a5, a4, n] - S2[a6, a2, a3, a5, SP[a1, a4], n] - 
    S2[a6, a2, a3, SP[a1, a5], a4, n] - S2[a1, n]*S2[a6, a2, a5, a3, a4, n] - 
    S2[a6, a2, a5, a3, SP[a1, a4], n] - S2[a1, n]*S2[a6, a2, a5, a4, a3, n] - 
    S2[a6, a2, a5, a4, SP[a1, a3], n] - S2[a6, a2, a5, SP[a1, a3], a4, n] - 
    S2[a6, a2, a5, SP[a1, a4], a3, n] - S2[a6, a2, SP[a1, a3], a5, a4, n] - 
    S2[a6, a2, SP[a1, a5], a3, a4, n] - S2[a6, a2, SP[a1, a5], a4, a3, n] - 
    S2[a1, n]*S2[a6, a3, a2, a5, a4, n] - S2[a6, a3, a2, a5, SP[a1, a4], n] - 
    S2[a6, a3, a2, SP[a1, a5], a4, n] - S2[a6, a3, SP[a1, a2], a5, a4, n] - 
    S2[a6, SP[a1, a3], a2, a5, a4, n] - S2[SP[a1, a6], a2, a3, a5, a4, n] - 
    S2[SP[a1, a6], a2, a5, a3, a4, n] - S2[SP[a1, a6], a2, a5, a4, a3, n] - 
    S2[SP[a1, a6], a3, a2, a5, a4, n] - S2[SP[a1, a6], a3, a5, a2, a4, n] - 
    S2[SP[a1, a6], a3, a5, a4, a2, n] - S2[SP[a1, a6], a5, a2, a3, a4, n] - 
    S2[SP[a1, a6], a5, a2, a4, a3, n] - S2[SP[a1, a6], a5, a3, a2, a4, n] - 
    S2[SP[a1, a6], a5, a3, a4, a2, n] - S2[SP[a1, a6], a5, a4, a2, a3, n] - 
    S2[SP[a1, a6], a5, a4, a3, a2, n] + S2[SP[a2, a6], a1, a3, a5, a4, n] + 
    S2[SP[a2, a6], a1, a5, a3, a4, n] + S2[SP[a2, a6], a1, a5, a4, a3, n] + 
    S2[SP[a2, a6], a5, a1, a3, a4, n] + S2[SP[a2, a6], a5, a1, a4, a3, n] + 
    S2[SP[a2, a6], a5, a4, a1, a3, n] + S2[a6, a2, a3, a1, a5, a4, n] + 
    S2[a6, a2, a3, a5, a1, a4, n] + S2[a6, a2, a3, a5, a4, a1, n] + 
    S2[a6, a2, a5, a3, a1, a4, n] + S2[a6, a2, a5, a3, a4, a1, n] + 
    S2[a6, a2, a5, a4, a3, a1, n] + S2[a6, a3, a1, a2, a5, a4, n] + 
    S2[a6, a3, a2, a1, a5, a4, n] + S2[a6, a3, a2, a5, a1, a4, n] + 
    S2[a6, a3, a2, a5, a4, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a1_, a3_, a6_, a4_, a2_, a5_, n_] :> 
  S2[a1, a3, n]*S2[a2, a4, a5, a6, n] + S2[a1, a3, n]*S2[a2, a4, a6, a5, n] - 
    S2[a2, a4, SP[a1, a5], SP[a3, a6], n] - S2[a2, a4, SP[a1, a6], 
     SP[a3, a5], n] + S2[a1, a3, n]*S2[a2, a5, a4, a6, n] + 
    S2[a1, a3, n]*S2[a2, a5, a6, a4, n] - S2[a2, a5, SP[a1, a4], SP[a3, a6], 
     n] - S2[a2, a5, SP[a1, a6], SP[a3, a4], n] + 
    S2[a1, a3, n]*S2[a2, a6, a4, a5, n] + S2[a1, a3, n]*
     S2[a2, a6, a5, a4, n] - S2[a2, a6, SP[a1, a4], SP[a3, a5], n] - 
    S2[a2, a6, SP[a1, a5], SP[a3, a4], n] - S2[a2, SP[a1, a4], a5, 
     SP[a3, a6], n] - S2[a2, SP[a1, a4], a6, SP[a3, a5], n] - 
    S2[a2, SP[a1, a4], SP[a3, a5], a6, n] - S2[a2, SP[a1, a4], SP[a3, a6], 
     a5, n] - S2[a2, SP[a1, a5], a4, SP[a3, a6], n] - 
    S2[a2, SP[a1, a5], a6, SP[a3, a4], n] - S2[a2, SP[a1, a5], SP[a3, a4], 
     a6, n] - S2[a2, SP[a1, a5], SP[a3, a6], a4, n] - 
    S2[a2, SP[a1, a6], a4, SP[a3, a5], n] - S2[a2, SP[a1, a6], a5, 
     SP[a3, a4], n] - S2[a2, SP[a1, a6], SP[a3, a4], a5, n] - 
    S2[a2, SP[a1, a6], SP[a3, a5], a4, n] - S2[a1, a3, n]*
     S2[a4, a6, a2, a5, n] + S2[a4, a6, SP[a1, a2], SP[a3, a5], n] + 
    S2[a4, SP[a1, a6], a2, SP[a3, a5], n] + S2[a4, SP[a1, a6], SP[a2, a3], 
     a5, n] - S2[SP[a1, a2], a4, a5, SP[a3, a6], n] - 
    S2[SP[a1, a2], a4, a6, SP[a3, a5], n] - S2[SP[a1, a2], a4, SP[a3, a5], 
     a6, n] - S2[SP[a1, a2], a4, SP[a3, a6], a5, n] - 
    S2[SP[a1, a2], a5, a4, SP[a3, a6], n] - S2[SP[a1, a2], a5, a6, 
     SP[a3, a4], n] - S2[SP[a1, a2], a5, SP[a3, a4], a6, n] - 
    S2[SP[a1, a2], a5, SP[a3, a6], a4, n] - S2[SP[a1, a2], a6, a4, 
     SP[a3, a5], n] - S2[SP[a1, a2], a6, a5, SP[a3, a4], n] - 
    S2[SP[a1, a2], a6, SP[a3, a4], a5, n] - S2[SP[a1, a2], a6, SP[a3, a5], 
     a4, n] - S2[SP[a1, a2], SP[a3, a4], a5, a6, n] - 
    S2[SP[a1, a2], SP[a3, a4], a6, a5, n] - S2[SP[a1, a2], SP[a3, a5], a4, 
     a6, n] - S2[SP[a1, a2], SP[a3, a5], a6, a4, n] - 
    S2[SP[a1, a2], SP[a3, a6], a4, a5, n] - S2[SP[a1, a2], SP[a3, a6], a5, 
     a4, n] + S2[SP[a1, a4], a6, a2, SP[a3, a5], n] + 
    S2[SP[a1, a4], a6, SP[a2, a3], a5, n] + S2[SP[a1, a4], SP[a3, a6], a2, 
     a5, n] + S2[a1, a2, a4, a5, SP[a3, a6], n] + 
    S2[a1, a2, a4, a6, SP[a3, a5], n] + S2[a1, a2, a4, SP[a3, a5], a6, n] + 
    S2[a1, a2, a4, SP[a3, a6], a5, n] + S2[a1, a2, a5, a4, SP[a3, a6], n] + 
    S2[a1, a2, a5, a6, SP[a3, a4], n] + S2[a1, a2, a5, SP[a3, a4], a6, n] + 
    S2[a1, a2, a5, SP[a3, a6], a4, n] + S2[a1, a2, a6, a4, SP[a3, a5], n] + 
    S2[a1, a2, a6, a5, SP[a3, a4], n] + S2[a1, a2, a6, SP[a3, a4], a5, n] + 
    S2[a1, a2, a6, SP[a3, a5], a4, n] + S2[a1, a2, SP[a3, a4], a5, a6, n] + 
    S2[a1, a2, SP[a3, a4], a6, a5, n] + S2[a1, a2, SP[a3, a5], a4, a6, n] + 
    S2[a1, a2, SP[a3, a5], a6, a4, n] + S2[a1, a2, SP[a3, a6], a4, a5, n] + 
    S2[a1, a2, SP[a3, a6], a5, a4, n] + S2[a6, n]*S2[a1, a3, a4, a2, a5, n] + 
    S2[a1, a3, a4, a2, SP[a5, a6], n] + S2[a6, n]*S2[a1, a3, a4, a5, a2, n] - 
    S2[a2, n]*S2[a1, a3, a4, a5, a6, n] - 
    S2[a2, n]*S2[a1, a3, a4, a6, a5, n] - S2[a1, a3, a4, a6, SP[a2, a5], n] - 
    S2[a1, a3, a4, SP[a2, a5], a6, n] + S2[a1, a3, a4, SP[a5, a6], a2, n] + 
    S2[a6, n]*S2[a1, a3, a5, a2, a4, n] + S2[a1, a3, a5, a2, SP[a4, a6], n] + 
    S2[a6, n]*S2[a1, a3, a5, a4, a2, n] - 
    S2[a2, n]*S2[a1, a3, a5, a4, a6, n] - 
    S2[a2, n]*S2[a1, a3, a5, a6, a4, n] - S2[a1, a3, a5, a6, SP[a2, a4], n] - 
    S2[a1, a3, a5, SP[a2, a4], a6, n] + S2[a1, a3, a5, SP[a4, a6], a2, n] + 
    S2[a4, n]*S2[a1, a3, a6, a2, a5, n] + S2[a1, a3, a6, a2, SP[a4, a5], n] - 
    S2[a2, n]*S2[a1, a3, a6, a4, a5, n] - S2[a1, a3, a6, a4, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a3, a6, a5, a4, n] - S2[a1, a3, a6, a5, SP[a2, a4], n] - 
    S2[a1, a3, a6, SP[a2, a5], a4, n] - S2[a1, a3, SP[a2, a4], a5, a6, n] - 
    S2[a1, a3, SP[a2, a4], a6, a5, n] - S2[a1, a3, SP[a2, a5], a4, a6, n] - 
    S2[a1, a3, SP[a2, a5], a6, a4, n] - S2[a1, a3, SP[a2, a6], a4, a5, n] - 
    S2[a1, a3, SP[a2, a6], a5, a4, n] + 2*S2[a1, a3, SP[a4, a6], a2, a5, n] + 
    S2[a1, a3, SP[a4, a6], a5, a2, n] + S2[a1, a3, SP[a5, a6], a2, a4, n] + 
    S2[a1, a3, SP[a5, a6], a4, a2, n] + S2[a6, n]*S2[a1, a4, a2, a3, a5, n] + 
    S2[a1, a4, a2, a3, SP[a5, a6], n] + S2[a6, n]*S2[a1, a4, a2, a5, a3, n] + 
    S2[a1, a4, a2, a5, SP[a3, a6], n] + S2[a1, a4, a2, SP[a3, a6], a5, n] + 
    S2[a1, a4, a2, SP[a5, a6], a3, n] + S2[a6, n]*S2[a1, a4, a3, a2, a5, n] + 
    S2[a1, a4, a3, a2, SP[a5, a6], n] + S2[a6, n]*S2[a1, a4, a3, a5, a2, n] - 
    S2[a2, n]*S2[a1, a4, a3, a5, a6, n] - 
    S2[a2, n]*S2[a1, a4, a3, a6, a5, n] - S2[a1, a4, a3, a6, SP[a2, a5], n] - 
    S2[a1, a4, a3, SP[a2, a5], a6, n] + S2[a1, a4, a3, SP[a5, a6], a2, n] + 
    S2[a6, n]*S2[a1, a4, a5, a2, a3, n] + S2[a1, a4, a5, a2, SP[a3, a6], n] + 
    S2[a6, n]*S2[a1, a4, a5, a3, a2, n] - 
    S2[a2, n]*S2[a1, a4, a5, a3, a6, n] - 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] - S2[a1, a4, a5, a6, SP[a2, a3], n] - 
    S2[a1, a4, a5, SP[a2, a3], a6, n] + S2[a1, a4, a5, SP[a3, a6], a2, n] - 
    S2[a1, a4, a6, a2, SP[a3, a5], n] - S2[a2, n]*S2[a1, a4, a6, a3, a5, n] - 
    S2[a1, a4, a6, a3, SP[a2, a5], n] - S2[a2, n]*S2[a1, a4, a6, a5, a3, n] - 
    S2[a1, a4, a6, a5, SP[a2, a3], n] - 2*S2[a1, a4, a6, SP[a2, a3], a5, n] - 
    S2[a1, a4, a6, SP[a2, a5], a3, n] - S2[a1, a4, SP[a2, a3], a5, a6, n] - 
    S2[a1, a4, SP[a2, a3], a6, a5, n] - S2[a1, a4, SP[a2, a5], a3, a6, n] - 
    S2[a1, a4, SP[a2, a5], a6, a3, n] + S2[a1, a4, SP[a3, a6], a5, a2, n] + 
    S2[a1, a4, SP[a5, a6], a2, a3, n] + S2[a1, a4, SP[a5, a6], a3, a2, n] + 
    S2[a6, n]*S2[a1, a5, a2, a3, a4, n] + S2[a1, a5, a2, a3, SP[a4, a6], n] + 
    S2[a6, n]*S2[a1, a5, a2, a4, a3, n] + S2[a1, a5, a2, a4, SP[a3, a6], n] + 
    S2[a1, a5, a2, SP[a3, a6], a4, n] + S2[a1, a5, a2, SP[a4, a6], a3, n] + 
    S2[a6, n]*S2[a1, a5, a3, a2, a4, n] + S2[a1, a5, a3, a2, SP[a4, a6], n] + 
    S2[a6, n]*S2[a1, a5, a3, a4, a2, n] - 
    S2[a2, n]*S2[a1, a5, a3, a4, a6, n] - 
    S2[a2, n]*S2[a1, a5, a3, a6, a4, n] - S2[a1, a5, a3, a6, SP[a2, a4], n] - 
    S2[a1, a5, a3, SP[a2, a4], a6, n] + S2[a1, a5, a3, SP[a4, a6], a2, n] + 
    S2[a6, n]*S2[a1, a5, a4, a2, a3, n] + S2[a1, a5, a4, a2, SP[a3, a6], n] + 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] - 
    S2[a2, n]*S2[a1, a5, a4, a3, a6, n] - 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] - S2[a1, a5, a4, a6, SP[a2, a3], n] - 
    S2[a1, a5, a4, SP[a2, a3], a6, n] + S2[a1, a5, a4, SP[a3, a6], a2, n] - 
    S2[a2, n]*S2[a1, a5, a6, a3, a4, n] - S2[a1, a5, a6, a3, SP[a2, a4], n] - 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] - S2[a1, a5, a6, a4, SP[a2, a3], n] - 
    S2[a1, a5, a6, SP[a2, a3], a4, n] - S2[a1, a5, a6, SP[a2, a4], a3, n] - 
    S2[a1, a5, SP[a2, a3], a4, a6, n] - S2[a1, a5, SP[a2, a3], a6, a4, n] - 
    S2[a1, a5, SP[a2, a4], a3, a6, n] - S2[a1, a5, SP[a2, a4], a6, a3, n] + 
    S2[a1, a5, SP[a3, a6], a2, a4, n] + S2[a1, a5, SP[a3, a6], a4, a2, n] + 
    S2[a1, a5, SP[a4, a6], a2, a3, n] + S2[a1, a5, SP[a4, a6], a3, a2, n] + 
    S2[a4, n]*S2[a1, a6, a2, a3, a5, n] + S2[a1, a6, a2, a3, SP[a4, a5], n] + 
    S2[a4, n]*S2[a1, a6, a2, a5, a3, n] + S2[a1, a6, a2, a5, SP[a3, a4], n] + 
    S2[a1, a6, a2, SP[a3, a4], a5, n] + S2[a1, a6, a2, SP[a4, a5], a3, n] + 
    S2[a4, n]*S2[a1, a6, a3, a2, a5, n] + S2[a1, a6, a3, a2, SP[a4, a5], n] - 
    S2[a2, n]*S2[a1, a6, a3, a4, a5, n] - S2[a1, a6, a3, a4, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a6, a3, a5, a4, n] - S2[a1, a6, a3, a5, SP[a2, a4], n] - 
    S2[a1, a6, a3, SP[a2, a5], a4, n] - S2[a2, n]*S2[a1, a6, a4, a3, a5, n] - 
    S2[a1, a6, a4, a3, SP[a2, a5], n] - S2[a2, n]*S2[a1, a6, a4, a5, a3, n] - 
    S2[a1, a6, a4, a5, SP[a2, a3], n] - S2[a1, a6, a4, SP[a2, a3], a5, n] - 
    S2[a1, a6, a4, SP[a2, a5], a3, n] - S2[a2, n]*S2[a1, a6, a5, a3, a4, n] - 
    S2[a1, a6, a5, a3, SP[a2, a4], n] - S2[a2, n]*S2[a1, a6, a5, a4, a3, n] - 
    S2[a1, a6, a5, a4, SP[a2, a3], n] - S2[a1, a6, a5, SP[a2, a3], a4, n] - 
    S2[a1, a6, a5, SP[a2, a4], a3, n] - S2[a1, a6, SP[a2, a3], a4, a5, n] - 
    S2[a1, a6, SP[a2, a3], a5, a4, n] - S2[a1, a6, SP[a2, a5], a3, a4, n] - 
    S2[a1, a6, SP[a2, a5], a4, a3, n] + S2[a1, a6, SP[a3, a4], a2, a5, n] - 
    S2[a1, SP[a2, a4], a3, a5, a6, n] - S2[a1, SP[a2, a4], a3, a6, a5, n] - 
    S2[a1, SP[a2, a4], a5, a3, a6, n] - S2[a1, SP[a2, a4], a5, a6, a3, n] - 
    S2[a1, SP[a2, a4], a6, a3, a5, n] - S2[a1, SP[a2, a4], a6, a5, a3, n] - 
    S2[a1, SP[a2, a5], a3, a4, a6, n] - S2[a1, SP[a2, a5], a3, a6, a4, n] - 
    S2[a1, SP[a2, a5], a4, a3, a6, n] - S2[a1, SP[a2, a5], a4, a6, a3, n] - 
    S2[a1, SP[a2, a5], a6, a3, a4, n] - S2[a1, SP[a2, a5], a6, a4, a3, n] - 
    S2[a1, SP[a2, a6], a3, a4, a5, n] - S2[a1, SP[a2, a6], a3, a5, a4, n] - 
    S2[a1, SP[a2, a6], a4, a3, a5, n] - S2[a1, SP[a2, a6], a4, a5, a3, n] - 
    S2[a1, SP[a2, a6], a5, a3, a4, n] - S2[a1, SP[a2, a6], a5, a4, a3, n] + 
    S2[a1, SP[a3, a6], a4, a2, a5, n] + S2[a1, SP[a3, a6], a4, a5, a2, n] + 
    S2[a1, SP[a3, a6], a5, a2, a4, n] + S2[a1, SP[a3, a6], a5, a4, a2, n] + 
    2*S2[a1, SP[a4, a6], a2, a3, a5, n] + 
    2*S2[a1, SP[a4, a6], a2, a5, a3, n] + 
    2*S2[a1, SP[a4, a6], a3, a2, a5, n] + S2[a1, SP[a4, a6], a3, a5, a2, n] + 
    S2[a1, SP[a4, a6], a5, a2, a3, n] + S2[a1, SP[a4, a6], a5, a3, a2, n] + 
    S2[a1, SP[a5, a6], a2, a3, a4, n] + S2[a1, SP[a5, a6], a2, a4, a3, n] + 
    S2[a1, SP[a5, a6], a3, a2, a4, n] + S2[a1, SP[a5, a6], a3, a4, a2, n] + 
    S2[a1, SP[a5, a6], a4, a2, a3, n] + S2[a1, SP[a5, a6], a4, a3, a2, n] + 
    S2[a2, a1, a4, a5, SP[a3, a6], n] + S2[a2, a1, a4, a6, SP[a3, a5], n] + 
    S2[a2, a1, a4, SP[a3, a5], a6, n] + S2[a2, a1, a4, SP[a3, a6], a5, n] + 
    S2[a2, a1, a5, a4, SP[a3, a6], n] + S2[a2, a1, a5, a6, SP[a3, a4], n] + 
    S2[a2, a1, a5, SP[a3, a4], a6, n] + S2[a2, a1, a5, SP[a3, a6], a4, n] + 
    S2[a2, a1, a6, a4, SP[a3, a5], n] + S2[a2, a1, a6, a5, SP[a3, a4], n] + 
    S2[a2, a1, a6, SP[a3, a4], a5, n] + S2[a2, a1, a6, SP[a3, a5], a4, n] + 
    S2[a2, a1, SP[a3, a4], a5, a6, n] + S2[a2, a1, SP[a3, a4], a6, a5, n] + 
    S2[a2, a1, SP[a3, a5], a4, a6, n] + S2[a2, a1, SP[a3, a5], a6, a4, n] + 
    S2[a2, a1, SP[a3, a6], a4, a5, n] + S2[a2, a1, SP[a3, a6], a5, a4, n] - 
    S2[a6, n]*S2[a2, a4, a1, a3, a5, n] - S2[a2, a4, a1, a3, SP[a5, a6], n] - 
    S2[a6, n]*S2[a2, a4, a1, a5, a3, n] + S2[a2, a4, a1, a6, SP[a3, a5], n] + 
    S2[a2, a4, a1, SP[a3, a5], a6, n] - S2[a2, a4, a1, SP[a5, a6], a3, n] - 
    S2[a6, n]*S2[a2, a4, a5, a1, a3, n] + S2[a2, a4, a6, a1, SP[a3, a5], n] + 
    S2[a2, a4, a6, SP[a1, a5], a3, n] + S2[a2, a4, SP[a1, a5], a3, a6, n] + 
    S2[a2, a4, SP[a1, a5], a6, a3, n] - S2[a2, a4, SP[a5, a6], a1, a3, n] - 
    S2[a6, n]*S2[a2, a5, a1, a3, a4, n] - S2[a2, a5, a1, a3, SP[a4, a6], n] - 
    S2[a6, n]*S2[a2, a5, a1, a4, a3, n] + S2[a2, a5, a1, a6, SP[a3, a4], n] + 
    S2[a2, a5, a1, SP[a3, a4], a6, n] - S2[a2, a5, a1, SP[a4, a6], a3, n] - 
    S2[a6, n]*S2[a2, a5, a4, a1, a3, n] + S2[a2, a5, a6, a1, SP[a3, a4], n] + 
    S2[a2, a5, a6, SP[a1, a4], a3, n] + S2[a2, a5, SP[a1, a4], a3, a6, n] + 
    S2[a2, a5, SP[a1, a4], a6, a3, n] - S2[a2, a5, SP[a4, a6], a1, a3, n] - 
    S2[a4, n]*S2[a2, a6, a1, a3, a5, n] - S2[a2, a6, a1, a3, SP[a4, a5], n] + 
    S2[a2, a6, a1, a4, SP[a3, a5], n] - S2[a4, n]*S2[a2, a6, a1, a5, a3, n] + 
    S2[a2, a6, a1, SP[a3, a5], a4, n] - S2[a2, a6, a1, SP[a4, a5], a3, n] + 
    S2[a2, a6, a4, a1, SP[a3, a5], n] + S2[a2, a6, a4, SP[a1, a5], a3, n] + 
    S2[a2, a6, a5, a1, SP[a3, a4], n] + S2[a2, a6, a5, SP[a1, a4], a3, n] + 
    S2[a2, a6, SP[a1, a5], a3, a4, n] + S2[a2, a6, SP[a1, a5], a4, a3, n] + 
    S2[a2, SP[a1, a4], a3, a5, a6, n] + S2[a2, SP[a1, a4], a3, a6, a5, n] + 
    S2[a2, SP[a1, a4], a5, a3, a6, n] + S2[a2, SP[a1, a4], a5, a6, a3, n] + 
    S2[a2, SP[a1, a4], a6, a3, a5, n] + S2[a2, SP[a1, a4], a6, a5, a3, n] + 
    S2[a2, SP[a1, a5], a3, a4, a6, n] + S2[a2, SP[a1, a5], a3, a6, a4, n] + 
    S2[a2, SP[a1, a5], a4, a3, a6, n] + S2[a2, SP[a1, a5], a4, a6, a3, n] + 
    S2[a2, SP[a1, a5], a6, a3, a4, n] + S2[a2, SP[a1, a5], a6, a4, a3, n] + 
    S2[a2, SP[a1, a6], a3, a4, a5, n] + S2[a2, SP[a1, a6], a3, a5, a4, n] + 
    S2[a2, SP[a1, a6], a4, a3, a5, n] + S2[a2, SP[a1, a6], a4, a5, a3, n] + 
    S2[a2, SP[a1, a6], a5, a3, a4, n] + S2[a2, SP[a1, a6], a5, a4, a3, n] - 
    2*S2[a2, SP[a4, a6], a1, a3, a5, n] - 
    2*S2[a2, SP[a4, a6], a1, a5, a3, n] - S2[a2, SP[a4, a6], a5, a1, a3, n] - 
    S2[a2, SP[a5, a6], a1, a3, a4, n] - S2[a2, SP[a5, a6], a1, a4, a3, n] - 
    S2[a2, SP[a5, a6], a4, a1, a3, n] - S2[a4, a1, a6, a2, SP[a3, a5], n] - 
    S2[a4, a1, a6, SP[a2, a3], a5, n] - S2[a4, a1, SP[a3, a6], a2, a5, n] - 
    S2[a4, a6, a1, a2, SP[a3, a5], n] + S2[a2, n]*S2[a4, a6, a1, a3, a5, n] + 
    S2[a4, a6, a1, a3, SP[a2, a5], n] + S2[a2, n]*S2[a4, a6, a1, a5, a3, n] + 
    S2[a4, a6, a1, a5, SP[a2, a3], n] + S2[a4, a6, a1, SP[a2, a5], a3, n] - 
    S2[a4, a6, a2, a1, SP[a3, a5], n] - S2[a4, a6, a2, SP[a1, a5], a3, n] - 
    S2[a4, SP[a1, a6], a2, a3, a5, n] - S2[a4, SP[a1, a6], a2, a5, a3, n] - 
    S2[a4, SP[a1, a6], a3, a2, a5, n] + S2[a4, SP[a2, a6], a1, a3, a5, n] + 
    S2[a4, SP[a2, a6], a1, a5, a3, n] - S2[a4, n]*S2[a6, a1, a3, a5, a2, n] - 
    S2[a6, a1, a3, a5, SP[a2, a4], n] - S2[a6, a1, a3, SP[a4, a5], a2, n] - 
    S2[a4, n]*S2[a6, a1, a5, a2, a3, n] - S2[a6, a1, a5, a2, SP[a3, a4], n] - 
    S2[a4, n]*S2[a6, a1, a5, a3, a2, n] - S2[a6, a1, a5, a3, SP[a2, a4], n] - 
    S2[a6, a1, a5, SP[a2, a4], a3, n] - S2[a6, a1, a5, SP[a3, a4], a2, n] - 
    S2[a6, a1, SP[a3, a4], a5, a2, n] - S2[a6, a1, SP[a4, a5], a2, a3, n] - 
    S2[a6, a1, SP[a4, a5], a3, a2, n] + S2[a4, n]*S2[a6, a2, a5, a1, a3, n] + 
    S2[a6, a2, a5, a1, SP[a3, a4], n] + S2[a6, a2, a5, SP[a1, a4], a3, n] + 
    S2[a6, a2, SP[a4, a5], a1, a3, n] - S2[a1, n]*S2[a6, a3, a4, a2, a5, n] - 
    S2[a6, a3, a4, a2, SP[a1, a5], n] - S2[a6, a3, a4, SP[a1, a2], a5, n] - 
    S2[a6, a3, SP[a1, a4], a2, a5, n] + S2[a2, n]*S2[a6, a4, a1, a3, a5, n] + 
    S2[a6, a4, a1, a3, SP[a2, a5], n] + S2[a2, n]*S2[a6, a4, a1, a5, a3, n] + 
    S2[a6, a4, a1, a5, SP[a2, a3], n] + S2[a6, a4, a1, SP[a2, a3], a5, n] + 
    S2[a6, a4, a1, SP[a2, a5], a3, n] - S2[a1, n]*S2[a6, a4, a2, a3, a5, n] - 
    S2[a6, a4, a2, a3, SP[a1, a5], n] - S2[a1, n]*S2[a6, a4, a2, a5, a3, n] - 
    S2[a6, a4, a2, a5, SP[a1, a3], n] - S2[a6, a4, a2, SP[a1, a3], a5, n] - 
    S2[a6, a4, a2, SP[a1, a5], a3, n] - S2[a1, n]*S2[a6, a4, a3, a2, a5, n] - 
    S2[a6, a4, a3, a2, SP[a1, a5], n] - S2[a6, a4, a3, SP[a1, a2], a5, n] - 
    S2[a6, a4, SP[a1, a3], a2, a5, n] - S2[a6, SP[a1, a3], a4, a2, a5, n] - 
    S2[a6, SP[a1, a4], a2, a3, a5, n] - S2[a6, SP[a1, a4], a2, a5, a3, n] - 
    S2[a6, SP[a1, a4], a3, a2, a5, n] - S2[a6, SP[a1, a4], a3, a5, a2, n] - 
    S2[a6, SP[a1, a4], a5, a2, a3, n] - S2[a6, SP[a1, a4], a5, a3, a2, n] + 
    S2[a6, SP[a2, a4], a1, a3, a5, n] + S2[a6, SP[a2, a4], a1, a5, a3, n] + 
    S2[a6, SP[a2, a4], a5, a1, a3, n] + S2[SP[a1, a6], a3, a4, a5, a2, n] + 
    S2[SP[a1, a6], a3, a5, a2, a4, n] + S2[SP[a1, a6], a3, a5, a4, a2, n] + 
    S2[SP[a1, a6], a4, a3, a5, a2, n] + S2[SP[a1, a6], a4, a5, a2, a3, n] + 
    S2[SP[a1, a6], a4, a5, a3, a2, n] + S2[SP[a1, a6], a5, a2, a3, a4, n] + 
    S2[SP[a1, a6], a5, a2, a4, a3, n] + S2[SP[a1, a6], a5, a3, a2, a4, n] + 
    S2[SP[a1, a6], a5, a3, a4, a2, n] + S2[SP[a1, a6], a5, a4, a2, a3, n] + 
    S2[SP[a1, a6], a5, a4, a3, a2, n] - S2[SP[a2, a6], a4, a5, a1, a3, n] - 
    S2[SP[a2, a6], a5, a1, a3, a4, n] - S2[SP[a2, a6], a5, a1, a4, a3, n] - 
    S2[SP[a2, a6], a5, a4, a1, a3, n] - S2[SP[a4, a6], a1, a3, a5, a2, n] - 
    S2[SP[a4, a6], a1, a5, a2, a3, n] - S2[SP[a4, a6], a1, a5, a3, a2, n] + 
    S2[SP[a4, a6], a2, a5, a1, a3, n] + S2[a6, a3, a1, a4, a2, a5, n] + 
    S2[a6, a3, a4, a1, a2, a5, n] + S2[a6, a3, a4, a2, a1, a5, n] + 
    S2[a6, a3, a4, a2, a5, a1, n] + S2[a6, a4, a2, a3, a1, a5, n] + 
    S2[a6, a4, a2, a3, a5, a1, n] + S2[a6, a4, a2, a5, a3, a1, n] + 
    S2[a6, a4, a3, a1, a2, a5, n] + S2[a6, a4, a3, a2, a1, a5, n] + 
    S2[a6, a4, a3, a2, a5, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a1_, a3_, a6_, a4_, a5_, a2_, n_] :> 
  -(S2[a1, a3, n]*S2[a2, a5, a4, a6, n]) - S2[a1, a3, n]*
     S2[a2, a5, a6, a4, n] + S2[a2, a5, SP[a1, a4], SP[a3, a6], n] + 
    S2[a2, a5, SP[a1, a6], SP[a3, a4], n] - S2[a1, a3, n]*
     S2[a2, a6, a4, a5, n] - S2[a1, a3, n]*S2[a2, a6, a5, a4, n] + 
    S2[a2, a6, SP[a1, a4], SP[a3, a5], n] + S2[a2, a6, SP[a1, a5], 
     SP[a3, a4], n] + S2[a2, SP[a1, a5], a4, SP[a3, a6], n] + 
    S2[a2, SP[a1, a5], a6, SP[a3, a4], n] + S2[a2, SP[a1, a5], SP[a3, a4], 
     a6, n] + S2[a2, SP[a1, a5], SP[a3, a6], a4, n] + 
    S2[a2, SP[a1, a6], a4, SP[a3, a5], n] + S2[a2, SP[a1, a6], a5, 
     SP[a3, a4], n] + S2[a2, SP[a1, a6], SP[a3, a4], a5, n] + 
    S2[a2, SP[a1, a6], SP[a3, a5], a4, n] + S2[a1, a3, n]*
     S2[a4, a6, a2, a5, n] - S2[a4, a6, SP[a1, a2], SP[a3, a5], n] - 
    S2[a4, SP[a1, a6], a2, SP[a3, a5], n] - S2[a4, SP[a1, a6], SP[a2, a3], 
     a5, n] + S2[SP[a1, a2], a5, a4, SP[a3, a6], n] + 
    S2[SP[a1, a2], a5, a6, SP[a3, a4], n] + S2[SP[a1, a2], a5, SP[a3, a4], 
     a6, n] + S2[SP[a1, a2], a5, SP[a3, a6], a4, n] + 
    S2[SP[a1, a2], a6, a4, SP[a3, a5], n] + S2[SP[a1, a2], a6, a5, 
     SP[a3, a4], n] + S2[SP[a1, a2], a6, SP[a3, a4], a5, n] + 
    S2[SP[a1, a2], a6, SP[a3, a5], a4, n] + S2[SP[a1, a2], SP[a3, a5], a4, 
     a6, n] + S2[SP[a1, a2], SP[a3, a5], a6, a4, n] + 
    S2[SP[a1, a2], SP[a3, a6], a4, a5, n] + S2[SP[a1, a2], SP[a3, a6], a5, 
     a4, n] - S2[SP[a1, a4], a6, a2, SP[a3, a5], n] - 
    S2[SP[a1, a4], a6, SP[a2, a3], a5, n] - S2[SP[a1, a4], SP[a3, a6], a2, 
     a5, n] - S2[a1, a2, a5, a4, SP[a3, a6], n] - 
    S2[a1, a2, a5, a6, SP[a3, a4], n] - S2[a1, a2, a5, SP[a3, a4], a6, n] - 
    S2[a1, a2, a5, SP[a3, a6], a4, n] - S2[a1, a2, a6, a4, SP[a3, a5], n] - 
    S2[a1, a2, a6, a5, SP[a3, a4], n] - S2[a1, a2, a6, SP[a3, a4], a5, n] - 
    S2[a1, a2, a6, SP[a3, a5], a4, n] - S2[a1, a2, SP[a3, a5], a4, a6, n] - 
    S2[a1, a2, SP[a3, a5], a6, a4, n] - S2[a1, a2, SP[a3, a6], a4, a5, n] - 
    S2[a1, a2, SP[a3, a6], a5, a4, n] - S2[a6, n]*S2[a1, a3, a5, a2, a4, n] - 
    S2[a1, a3, a5, a2, SP[a4, a6], n] - S2[a6, n]*S2[a1, a3, a5, a4, a2, n] + 
    S2[a2, n]*S2[a1, a3, a5, a4, a6, n] + 
    S2[a2, n]*S2[a1, a3, a5, a6, a4, n] + S2[a1, a3, a5, a6, SP[a2, a4], n] + 
    S2[a1, a3, a5, SP[a2, a4], a6, n] - S2[a1, a3, a5, SP[a4, a6], a2, n] - 
    S2[a4, n]*S2[a1, a3, a6, a2, a5, n] - S2[a1, a3, a6, a2, SP[a4, a5], n] + 
    S2[a2, n]*S2[a1, a3, a6, a4, a5, n] + S2[a1, a3, a6, a4, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a3, a6, a5, a4, n] + S2[a1, a3, a6, a5, SP[a2, a4], n] + 
    S2[a1, a3, a6, SP[a2, a5], a4, n] + S2[a1, a3, SP[a2, a5], a4, a6, n] + 
    S2[a1, a3, SP[a2, a5], a6, a4, n] + S2[a1, a3, SP[a2, a6], a4, a5, n] + 
    S2[a1, a3, SP[a2, a6], a5, a4, n] - S2[a1, a3, SP[a4, a6], a2, a5, n] - 
    S2[a1, a3, SP[a5, a6], a2, a4, n] - S2[a1, a3, SP[a5, a6], a4, a2, n] + 
    S2[a1, a4, a6, a2, SP[a3, a5], n] + S2[a1, a4, a6, SP[a2, a3], a5, n] + 
    S2[a1, a4, SP[a3, a6], a2, a5, n] - S2[a6, n]*S2[a1, a5, a2, a3, a4, n] - 
    S2[a1, a5, a2, a3, SP[a4, a6], n] - S2[a6, n]*S2[a1, a5, a2, a4, a3, n] - 
    S2[a1, a5, a2, a4, SP[a3, a6], n] - S2[a1, a5, a2, SP[a3, a6], a4, n] - 
    S2[a1, a5, a2, SP[a4, a6], a3, n] - S2[a6, n]*S2[a1, a5, a3, a2, a4, n] - 
    S2[a1, a5, a3, a2, SP[a4, a6], n] - S2[a6, n]*S2[a1, a5, a3, a4, a2, n] + 
    S2[a2, n]*S2[a1, a5, a3, a4, a6, n] + 
    S2[a2, n]*S2[a1, a5, a3, a6, a4, n] + S2[a1, a5, a3, a6, SP[a2, a4], n] + 
    S2[a1, a5, a3, SP[a2, a4], a6, n] - S2[a1, a5, a3, SP[a4, a6], a2, n] - 
    S2[a6, n]*S2[a1, a5, a4, a2, a3, n] - S2[a1, a5, a4, a2, SP[a3, a6], n] - 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] + 
    S2[a2, n]*S2[a1, a5, a4, a3, a6, n] + 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] + S2[a1, a5, a4, a6, SP[a2, a3], n] + 
    S2[a1, a5, a4, SP[a2, a3], a6, n] - S2[a1, a5, a4, SP[a3, a6], a2, n] + 
    S2[a2, n]*S2[a1, a5, a6, a3, a4, n] + S2[a1, a5, a6, a3, SP[a2, a4], n] + 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] + S2[a1, a5, a6, a4, SP[a2, a3], n] + 
    S2[a1, a5, a6, SP[a2, a3], a4, n] + S2[a1, a5, a6, SP[a2, a4], a3, n] + 
    S2[a1, a5, SP[a2, a3], a4, a6, n] + S2[a1, a5, SP[a2, a3], a6, a4, n] + 
    S2[a1, a5, SP[a2, a4], a3, a6, n] + S2[a1, a5, SP[a2, a4], a6, a3, n] - 
    S2[a1, a5, SP[a3, a6], a2, a4, n] - S2[a1, a5, SP[a3, a6], a4, a2, n] - 
    S2[a1, a5, SP[a4, a6], a2, a3, n] - S2[a1, a5, SP[a4, a6], a3, a2, n] - 
    S2[a4, n]*S2[a1, a6, a2, a3, a5, n] - S2[a1, a6, a2, a3, SP[a4, a5], n] - 
    S2[a4, n]*S2[a1, a6, a2, a5, a3, n] - S2[a1, a6, a2, a5, SP[a3, a4], n] - 
    S2[a1, a6, a2, SP[a3, a4], a5, n] - S2[a1, a6, a2, SP[a4, a5], a3, n] - 
    S2[a4, n]*S2[a1, a6, a3, a2, a5, n] - S2[a1, a6, a3, a2, SP[a4, a5], n] + 
    S2[a2, n]*S2[a1, a6, a3, a4, a5, n] + S2[a1, a6, a3, a4, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a6, a3, a5, a4, n] + S2[a1, a6, a3, a5, SP[a2, a4], n] + 
    S2[a1, a6, a3, SP[a2, a5], a4, n] + S2[a2, n]*S2[a1, a6, a4, a3, a5, n] + 
    S2[a1, a6, a4, a3, SP[a2, a5], n] + S2[a2, n]*S2[a1, a6, a4, a5, a3, n] + 
    S2[a1, a6, a4, a5, SP[a2, a3], n] + S2[a1, a6, a4, SP[a2, a3], a5, n] + 
    S2[a1, a6, a4, SP[a2, a5], a3, n] + S2[a2, n]*S2[a1, a6, a5, a3, a4, n] + 
    S2[a1, a6, a5, a3, SP[a2, a4], n] + S2[a2, n]*S2[a1, a6, a5, a4, a3, n] + 
    S2[a1, a6, a5, a4, SP[a2, a3], n] + S2[a1, a6, a5, SP[a2, a3], a4, n] + 
    S2[a1, a6, a5, SP[a2, a4], a3, n] + S2[a1, a6, SP[a2, a3], a4, a5, n] + 
    S2[a1, a6, SP[a2, a3], a5, a4, n] + S2[a1, a6, SP[a2, a5], a3, a4, n] + 
    S2[a1, a6, SP[a2, a5], a4, a3, n] - S2[a1, a6, SP[a3, a4], a2, a5, n] + 
    S2[a1, SP[a2, a5], a3, a4, a6, n] + S2[a1, SP[a2, a5], a3, a6, a4, n] + 
    S2[a1, SP[a2, a5], a4, a3, a6, n] + S2[a1, SP[a2, a5], a4, a6, a3, n] + 
    S2[a1, SP[a2, a5], a6, a3, a4, n] + S2[a1, SP[a2, a5], a6, a4, a3, n] + 
    S2[a1, SP[a2, a6], a3, a4, a5, n] + S2[a1, SP[a2, a6], a3, a5, a4, n] + 
    S2[a1, SP[a2, a6], a4, a3, a5, n] + S2[a1, SP[a2, a6], a4, a5, a3, n] + 
    S2[a1, SP[a2, a6], a5, a3, a4, n] + S2[a1, SP[a2, a6], a5, a4, a3, n] - 
    S2[a1, SP[a3, a6], a5, a2, a4, n] - S2[a1, SP[a3, a6], a5, a4, a2, n] - 
    S2[a1, SP[a4, a6], a2, a3, a5, n] - S2[a1, SP[a4, a6], a2, a5, a3, n] - 
    S2[a1, SP[a4, a6], a3, a2, a5, n] - S2[a1, SP[a5, a6], a2, a3, a4, n] - 
    S2[a1, SP[a5, a6], a2, a4, a3, n] - S2[a1, SP[a5, a6], a3, a2, a4, n] - 
    S2[a1, SP[a5, a6], a3, a4, a2, n] - S2[a1, SP[a5, a6], a4, a2, a3, n] - 
    S2[a1, SP[a5, a6], a4, a3, a2, n] - S2[a2, a1, a5, a4, SP[a3, a6], n] - 
    S2[a2, a1, a5, a6, SP[a3, a4], n] - S2[a2, a1, a5, SP[a3, a4], a6, n] - 
    S2[a2, a1, a5, SP[a3, a6], a4, n] - S2[a2, a1, a6, a4, SP[a3, a5], n] - 
    S2[a2, a1, a6, a5, SP[a3, a4], n] - S2[a2, a1, a6, SP[a3, a4], a5, n] - 
    S2[a2, a1, a6, SP[a3, a5], a4, n] - S2[a2, a1, SP[a3, a5], a4, a6, n] - 
    S2[a2, a1, SP[a3, a5], a6, a4, n] - S2[a2, a1, SP[a3, a6], a4, a5, n] - 
    S2[a2, a1, SP[a3, a6], a5, a4, n] + S2[a6, n]*S2[a2, a5, a1, a3, a4, n] + 
    S2[a2, a5, a1, a3, SP[a4, a6], n] + S2[a6, n]*S2[a2, a5, a1, a4, a3, n] - 
    S2[a2, a5, a1, a6, SP[a3, a4], n] - S2[a2, a5, a1, SP[a3, a4], a6, n] + 
    S2[a2, a5, a1, SP[a4, a6], a3, n] + S2[a6, n]*S2[a2, a5, a4, a1, a3, n] - 
    S2[a2, a5, a6, a1, SP[a3, a4], n] - S2[a2, a5, a6, SP[a1, a4], a3, n] - 
    S2[a2, a5, SP[a1, a4], a3, a6, n] - S2[a2, a5, SP[a1, a4], a6, a3, n] + 
    S2[a2, a5, SP[a4, a6], a1, a3, n] + S2[a4, n]*S2[a2, a6, a1, a3, a5, n] + 
    S2[a2, a6, a1, a3, SP[a4, a5], n] - S2[a2, a6, a1, a4, SP[a3, a5], n] + 
    S2[a4, n]*S2[a2, a6, a1, a5, a3, n] - S2[a2, a6, a1, SP[a3, a5], a4, n] + 
    S2[a2, a6, a1, SP[a4, a5], a3, n] - S2[a2, a6, a4, a1, SP[a3, a5], n] - 
    S2[a2, a6, a4, SP[a1, a5], a3, n] - S2[a2, a6, a5, a1, SP[a3, a4], n] - 
    S2[a2, a6, a5, SP[a1, a4], a3, n] - S2[a2, a6, SP[a1, a5], a3, a4, n] - 
    S2[a2, a6, SP[a1, a5], a4, a3, n] - S2[a2, SP[a1, a5], a3, a4, a6, n] - 
    S2[a2, SP[a1, a5], a3, a6, a4, n] - S2[a2, SP[a1, a5], a4, a3, a6, n] - 
    S2[a2, SP[a1, a5], a4, a6, a3, n] - S2[a2, SP[a1, a5], a6, a3, a4, n] - 
    S2[a2, SP[a1, a5], a6, a4, a3, n] - S2[a2, SP[a1, a6], a3, a4, a5, n] - 
    S2[a2, SP[a1, a6], a3, a5, a4, n] - S2[a2, SP[a1, a6], a4, a3, a5, n] - 
    S2[a2, SP[a1, a6], a4, a5, a3, n] - S2[a2, SP[a1, a6], a5, a3, a4, n] - 
    S2[a2, SP[a1, a6], a5, a4, a3, n] + S2[a2, SP[a4, a6], a1, a3, a5, n] + 
    S2[a2, SP[a4, a6], a1, a5, a3, n] + S2[a2, SP[a5, a6], a1, a3, a4, n] + 
    S2[a2, SP[a5, a6], a1, a4, a3, n] + S2[a2, SP[a5, a6], a4, a1, a3, n] + 
    S2[a4, a1, a6, a2, SP[a3, a5], n] + S2[a4, a1, a6, SP[a2, a3], a5, n] + 
    S2[a4, a1, SP[a3, a6], a2, a5, n] + S2[a4, a6, a1, a2, SP[a3, a5], n] - 
    S2[a2, n]*S2[a4, a6, a1, a3, a5, n] - S2[a4, a6, a1, a3, SP[a2, a5], n] - 
    S2[a2, n]*S2[a4, a6, a1, a5, a3, n] - S2[a4, a6, a1, a5, SP[a2, a3], n] - 
    S2[a4, a6, a1, SP[a2, a5], a3, n] + S2[a4, a6, a2, a1, SP[a3, a5], n] + 
    S2[a4, a6, a2, SP[a1, a5], a3, n] + S2[a4, SP[a1, a6], a2, a3, a5, n] + 
    S2[a4, SP[a1, a6], a2, a5, a3, n] + S2[a4, SP[a1, a6], a3, a2, a5, n] - 
    S2[a4, SP[a2, a6], a1, a3, a5, n] - S2[a4, SP[a2, a6], a1, a5, a3, n] + 
    S2[a4, n]*S2[a6, a1, a3, a5, a2, n] + S2[a6, a1, a3, a5, SP[a2, a4], n] + 
    S2[a6, a1, a3, SP[a4, a5], a2, n] + S2[a4, n]*S2[a6, a1, a5, a2, a3, n] + 
    S2[a6, a1, a5, a2, SP[a3, a4], n] + S2[a4, n]*S2[a6, a1, a5, a3, a2, n] + 
    S2[a6, a1, a5, a3, SP[a2, a4], n] + S2[a6, a1, a5, SP[a2, a4], a3, n] + 
    S2[a6, a1, a5, SP[a3, a4], a2, n] + S2[a6, a1, SP[a3, a4], a5, a2, n] + 
    S2[a6, a1, SP[a4, a5], a2, a3, n] + S2[a6, a1, SP[a4, a5], a3, a2, n] - 
    S2[a4, n]*S2[a6, a2, a5, a1, a3, n] - S2[a6, a2, a5, a1, SP[a3, a4], n] - 
    S2[a6, a2, a5, SP[a1, a4], a3, n] - S2[a6, a2, SP[a4, a5], a1, a3, n] - 
    S2[a1, n]*S2[a6, a3, a4, a5, a2, n] - S2[a6, a3, a4, a5, SP[a1, a2], n] - 
    S2[a6, a3, a4, SP[a1, a5], a2, n] - S2[a6, a3, SP[a1, a4], a5, a2, n] - 
    S2[a1, n]*S2[a6, a4, a3, a5, a2, n] - S2[a6, a4, a3, a5, SP[a1, a2], n] - 
    S2[a6, a4, a3, SP[a1, a5], a2, n] + S2[a2, n]*S2[a6, a4, a5, a1, a3, n] + 
    S2[a6, a4, a5, a1, SP[a2, a3], n] - S2[a1, n]*S2[a6, a4, a5, a2, a3, n] - 
    S2[a6, a4, a5, a2, SP[a1, a3], n] - S2[a1, n]*S2[a6, a4, a5, a3, a2, n] - 
    S2[a6, a4, a5, a3, SP[a1, a2], n] - S2[a6, a4, a5, SP[a1, a3], a2, n] - 
    S2[a6, a4, SP[a1, a3], a5, a2, n] - S2[a6, a4, SP[a1, a5], a2, a3, n] - 
    S2[a6, a4, SP[a1, a5], a3, a2, n] + S2[a6, a4, SP[a2, a5], a1, a3, n] - 
    S2[a6, SP[a1, a3], a4, a5, a2, n] - S2[SP[a1, a6], a3, a4, a5, a2, n] - 
    S2[SP[a1, a6], a3, a5, a2, a4, n] - S2[SP[a1, a6], a3, a5, a4, a2, n] - 
    S2[SP[a1, a6], a4, a3, a5, a2, n] - S2[SP[a1, a6], a4, a5, a2, a3, n] - 
    S2[SP[a1, a6], a4, a5, a3, a2, n] - S2[SP[a1, a6], a5, a2, a3, a4, n] - 
    S2[SP[a1, a6], a5, a2, a4, a3, n] - S2[SP[a1, a6], a5, a3, a2, a4, n] - 
    S2[SP[a1, a6], a5, a3, a4, a2, n] - S2[SP[a1, a6], a5, a4, a2, a3, n] - 
    S2[SP[a1, a6], a5, a4, a3, a2, n] + S2[SP[a2, a6], a4, a5, a1, a3, n] + 
    S2[SP[a2, a6], a5, a1, a3, a4, n] + S2[SP[a2, a6], a5, a1, a4, a3, n] + 
    S2[SP[a2, a6], a5, a4, a1, a3, n] + S2[SP[a4, a6], a1, a3, a5, a2, n] + 
    S2[SP[a4, a6], a1, a5, a2, a3, n] + S2[SP[a4, a6], a1, a5, a3, a2, n] - 
    S2[SP[a4, a6], a2, a5, a1, a3, n] + S2[a6, a3, a1, a4, a5, a2, n] + 
    S2[a6, a3, a4, a1, a5, a2, n] + S2[a6, a3, a4, a5, a1, a2, n] + 
    S2[a6, a3, a4, a5, a2, a1, n] + S2[a6, a4, a3, a1, a5, a2, n] + 
    S2[a6, a4, a3, a5, a1, a2, n] + S2[a6, a4, a3, a5, a2, a1, n] + 
    S2[a6, a4, a5, a2, a3, a1, n] + S2[a6, a4, a5, a3, a1, a2, n] + 
    S2[a6, a4, a5, a3, a2, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a1_, a3_, a6_, a5_, a2_, a4_, n_] :> 
  S2[a1, a3, n]*S2[a2, a4, a5, a6, n] + S2[a1, a3, n]*S2[a2, a4, a6, a5, n] - 
    S2[a2, a4, SP[a1, a5], SP[a3, a6], n] - S2[a2, a4, SP[a1, a6], 
     SP[a3, a5], n] + S2[a1, a3, n]*S2[a2, a5, a4, a6, n] + 
    S2[a1, a3, n]*S2[a2, a5, a6, a4, n] - S2[a2, a5, SP[a1, a4], SP[a3, a6], 
     n] - S2[a2, a5, SP[a1, a6], SP[a3, a4], n] + 
    S2[a1, a3, n]*S2[a2, a6, a4, a5, n] + S2[a1, a3, n]*
     S2[a2, a6, a5, a4, n] - S2[a2, a6, SP[a1, a4], SP[a3, a5], n] - 
    S2[a2, a6, SP[a1, a5], SP[a3, a4], n] - S2[a2, SP[a1, a4], a5, 
     SP[a3, a6], n] - S2[a2, SP[a1, a4], a6, SP[a3, a5], n] - 
    S2[a2, SP[a1, a4], SP[a3, a5], a6, n] - S2[a2, SP[a1, a4], SP[a3, a6], 
     a5, n] - S2[a2, SP[a1, a5], a4, SP[a3, a6], n] - 
    S2[a2, SP[a1, a5], a6, SP[a3, a4], n] - S2[a2, SP[a1, a5], SP[a3, a4], 
     a6, n] - S2[a2, SP[a1, a5], SP[a3, a6], a4, n] - 
    S2[a2, SP[a1, a6], a4, SP[a3, a5], n] - S2[a2, SP[a1, a6], a5, 
     SP[a3, a4], n] - S2[a2, SP[a1, a6], SP[a3, a4], a5, n] - 
    S2[a2, SP[a1, a6], SP[a3, a5], a4, n] - S2[a1, a3, n]*
     S2[a5, a6, a2, a4, n] + S2[a5, a6, SP[a1, a2], SP[a3, a4], n] + 
    S2[a5, SP[a1, a6], a2, SP[a3, a4], n] + S2[a5, SP[a1, a6], SP[a2, a3], 
     a4, n] - S2[SP[a1, a2], a4, a5, SP[a3, a6], n] - 
    S2[SP[a1, a2], a4, a6, SP[a3, a5], n] - S2[SP[a1, a2], a4, SP[a3, a5], 
     a6, n] - S2[SP[a1, a2], a4, SP[a3, a6], a5, n] - 
    S2[SP[a1, a2], a5, a4, SP[a3, a6], n] - S2[SP[a1, a2], a5, a6, 
     SP[a3, a4], n] - S2[SP[a1, a2], a5, SP[a3, a4], a6, n] - 
    S2[SP[a1, a2], a5, SP[a3, a6], a4, n] - S2[SP[a1, a2], a6, a4, 
     SP[a3, a5], n] - S2[SP[a1, a2], a6, a5, SP[a3, a4], n] - 
    S2[SP[a1, a2], a6, SP[a3, a4], a5, n] - S2[SP[a1, a2], a6, SP[a3, a5], 
     a4, n] - S2[SP[a1, a2], SP[a3, a4], a5, a6, n] - 
    S2[SP[a1, a2], SP[a3, a4], a6, a5, n] - S2[SP[a1, a2], SP[a3, a5], a4, 
     a6, n] - S2[SP[a1, a2], SP[a3, a5], a6, a4, n] - 
    S2[SP[a1, a2], SP[a3, a6], a4, a5, n] - S2[SP[a1, a2], SP[a3, a6], a5, 
     a4, n] + S2[SP[a1, a5], a6, a2, SP[a3, a4], n] + 
    S2[SP[a1, a5], a6, SP[a2, a3], a4, n] + S2[SP[a1, a5], SP[a3, a6], a2, 
     a4, n] + S2[a1, a2, a4, a5, SP[a3, a6], n] + 
    S2[a1, a2, a4, a6, SP[a3, a5], n] + S2[a1, a2, a4, SP[a3, a5], a6, n] + 
    S2[a1, a2, a4, SP[a3, a6], a5, n] + S2[a1, a2, a5, a4, SP[a3, a6], n] + 
    S2[a1, a2, a5, a6, SP[a3, a4], n] + S2[a1, a2, a5, SP[a3, a4], a6, n] + 
    S2[a1, a2, a5, SP[a3, a6], a4, n] + S2[a1, a2, a6, a4, SP[a3, a5], n] + 
    S2[a1, a2, a6, a5, SP[a3, a4], n] + S2[a1, a2, a6, SP[a3, a4], a5, n] + 
    S2[a1, a2, a6, SP[a3, a5], a4, n] + S2[a1, a2, SP[a3, a4], a5, a6, n] + 
    S2[a1, a2, SP[a3, a4], a6, a5, n] + S2[a1, a2, SP[a3, a5], a4, a6, n] + 
    S2[a1, a2, SP[a3, a5], a6, a4, n] + S2[a1, a2, SP[a3, a6], a4, a5, n] + 
    S2[a1, a2, SP[a3, a6], a5, a4, n] + S2[a6, n]*S2[a1, a3, a4, a2, a5, n] + 
    S2[a1, a3, a4, a2, SP[a5, a6], n] + S2[a6, n]*S2[a1, a3, a4, a5, a2, n] - 
    S2[a2, n]*S2[a1, a3, a4, a5, a6, n] - 
    S2[a2, n]*S2[a1, a3, a4, a6, a5, n] - S2[a1, a3, a4, a6, SP[a2, a5], n] - 
    S2[a1, a3, a4, SP[a2, a5], a6, n] + S2[a1, a3, a4, SP[a5, a6], a2, n] + 
    S2[a6, n]*S2[a1, a3, a5, a2, a4, n] + S2[a1, a3, a5, a2, SP[a4, a6], n] + 
    S2[a6, n]*S2[a1, a3, a5, a4, a2, n] - 
    S2[a2, n]*S2[a1, a3, a5, a4, a6, n] - 
    S2[a2, n]*S2[a1, a3, a5, a6, a4, n] - S2[a1, a3, a5, a6, SP[a2, a4], n] - 
    S2[a1, a3, a5, SP[a2, a4], a6, n] + S2[a1, a3, a5, SP[a4, a6], a2, n] + 
    S2[a5, n]*S2[a1, a3, a6, a2, a4, n] + S2[a1, a3, a6, a2, SP[a4, a5], n] - 
    S2[a2, n]*S2[a1, a3, a6, a4, a5, n] - S2[a1, a3, a6, a4, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a3, a6, a5, a4, n] - S2[a1, a3, a6, a5, SP[a2, a4], n] - 
    S2[a1, a3, a6, SP[a2, a4], a5, n] - S2[a1, a3, SP[a2, a4], a5, a6, n] - 
    S2[a1, a3, SP[a2, a4], a6, a5, n] - S2[a1, a3, SP[a2, a5], a4, a6, n] - 
    S2[a1, a3, SP[a2, a5], a6, a4, n] - S2[a1, a3, SP[a2, a6], a4, a5, n] - 
    S2[a1, a3, SP[a2, a6], a5, a4, n] + S2[a1, a3, SP[a4, a6], a2, a5, n] + 
    S2[a1, a3, SP[a4, a6], a5, a2, n] + 2*S2[a1, a3, SP[a5, a6], a2, a4, n] + 
    S2[a1, a3, SP[a5, a6], a4, a2, n] + S2[a6, n]*S2[a1, a4, a2, a3, a5, n] + 
    S2[a1, a4, a2, a3, SP[a5, a6], n] + S2[a6, n]*S2[a1, a4, a2, a5, a3, n] + 
    S2[a1, a4, a2, a5, SP[a3, a6], n] + S2[a1, a4, a2, SP[a3, a6], a5, n] + 
    S2[a1, a4, a2, SP[a5, a6], a3, n] + S2[a6, n]*S2[a1, a4, a3, a2, a5, n] + 
    S2[a1, a4, a3, a2, SP[a5, a6], n] + S2[a6, n]*S2[a1, a4, a3, a5, a2, n] - 
    S2[a2, n]*S2[a1, a4, a3, a5, a6, n] - 
    S2[a2, n]*S2[a1, a4, a3, a6, a5, n] - S2[a1, a4, a3, a6, SP[a2, a5], n] - 
    S2[a1, a4, a3, SP[a2, a5], a6, n] + S2[a1, a4, a3, SP[a5, a6], a2, n] + 
    S2[a6, n]*S2[a1, a4, a5, a2, a3, n] + S2[a1, a4, a5, a2, SP[a3, a6], n] + 
    S2[a6, n]*S2[a1, a4, a5, a3, a2, n] - 
    S2[a2, n]*S2[a1, a4, a5, a3, a6, n] - 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] - S2[a1, a4, a5, a6, SP[a2, a3], n] - 
    S2[a1, a4, a5, SP[a2, a3], a6, n] + S2[a1, a4, a5, SP[a3, a6], a2, n] - 
    S2[a2, n]*S2[a1, a4, a6, a3, a5, n] - S2[a1, a4, a6, a3, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a4, a6, a5, a3, n] - S2[a1, a4, a6, a5, SP[a2, a3], n] - 
    S2[a1, a4, a6, SP[a2, a3], a5, n] - S2[a1, a4, a6, SP[a2, a5], a3, n] - 
    S2[a1, a4, SP[a2, a3], a5, a6, n] - S2[a1, a4, SP[a2, a3], a6, a5, n] - 
    S2[a1, a4, SP[a2, a5], a3, a6, n] - S2[a1, a4, SP[a2, a5], a6, a3, n] + 
    S2[a1, a4, SP[a3, a6], a2, a5, n] + S2[a1, a4, SP[a3, a6], a5, a2, n] + 
    S2[a1, a4, SP[a5, a6], a2, a3, n] + S2[a1, a4, SP[a5, a6], a3, a2, n] + 
    S2[a6, n]*S2[a1, a5, a2, a3, a4, n] + S2[a1, a5, a2, a3, SP[a4, a6], n] + 
    S2[a6, n]*S2[a1, a5, a2, a4, a3, n] + S2[a1, a5, a2, a4, SP[a3, a6], n] + 
    S2[a1, a5, a2, SP[a3, a6], a4, n] + S2[a1, a5, a2, SP[a4, a6], a3, n] + 
    S2[a6, n]*S2[a1, a5, a3, a2, a4, n] + S2[a1, a5, a3, a2, SP[a4, a6], n] + 
    S2[a6, n]*S2[a1, a5, a3, a4, a2, n] - 
    S2[a2, n]*S2[a1, a5, a3, a4, a6, n] - 
    S2[a2, n]*S2[a1, a5, a3, a6, a4, n] - S2[a1, a5, a3, a6, SP[a2, a4], n] - 
    S2[a1, a5, a3, SP[a2, a4], a6, n] + S2[a1, a5, a3, SP[a4, a6], a2, n] + 
    S2[a6, n]*S2[a1, a5, a4, a2, a3, n] + S2[a1, a5, a4, a2, SP[a3, a6], n] + 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] - 
    S2[a2, n]*S2[a1, a5, a4, a3, a6, n] - 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] - S2[a1, a5, a4, a6, SP[a2, a3], n] - 
    S2[a1, a5, a4, SP[a2, a3], a6, n] + S2[a1, a5, a4, SP[a3, a6], a2, n] - 
    S2[a1, a5, a6, a2, SP[a3, a4], n] - S2[a2, n]*S2[a1, a5, a6, a3, a4, n] - 
    S2[a1, a5, a6, a3, SP[a2, a4], n] - S2[a2, n]*S2[a1, a5, a6, a4, a3, n] - 
    S2[a1, a5, a6, a4, SP[a2, a3], n] - 2*S2[a1, a5, a6, SP[a2, a3], a4, n] - 
    S2[a1, a5, a6, SP[a2, a4], a3, n] - S2[a1, a5, SP[a2, a3], a4, a6, n] - 
    S2[a1, a5, SP[a2, a3], a6, a4, n] - S2[a1, a5, SP[a2, a4], a3, a6, n] - 
    S2[a1, a5, SP[a2, a4], a6, a3, n] + S2[a1, a5, SP[a3, a6], a4, a2, n] + 
    S2[a1, a5, SP[a4, a6], a2, a3, n] + S2[a1, a5, SP[a4, a6], a3, a2, n] + 
    S2[a5, n]*S2[a1, a6, a2, a3, a4, n] + S2[a1, a6, a2, a3, SP[a4, a5], n] + 
    S2[a5, n]*S2[a1, a6, a2, a4, a3, n] + S2[a1, a6, a2, a4, SP[a3, a5], n] + 
    S2[a1, a6, a2, SP[a3, a5], a4, n] + S2[a1, a6, a2, SP[a4, a5], a3, n] + 
    S2[a5, n]*S2[a1, a6, a3, a2, a4, n] + S2[a1, a6, a3, a2, SP[a4, a5], n] - 
    S2[a2, n]*S2[a1, a6, a3, a4, a5, n] - S2[a1, a6, a3, a4, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a6, a3, a5, a4, n] - S2[a1, a6, a3, a5, SP[a2, a4], n] - 
    S2[a1, a6, a3, SP[a2, a4], a5, n] - S2[a2, n]*S2[a1, a6, a4, a3, a5, n] - 
    S2[a1, a6, a4, a3, SP[a2, a5], n] - S2[a2, n]*S2[a1, a6, a4, a5, a3, n] - 
    S2[a1, a6, a4, a5, SP[a2, a3], n] - S2[a1, a6, a4, SP[a2, a3], a5, n] - 
    S2[a1, a6, a4, SP[a2, a5], a3, n] - S2[a2, n]*S2[a1, a6, a5, a3, a4, n] - 
    S2[a1, a6, a5, a3, SP[a2, a4], n] - S2[a2, n]*S2[a1, a6, a5, a4, a3, n] - 
    S2[a1, a6, a5, a4, SP[a2, a3], n] - S2[a1, a6, a5, SP[a2, a3], a4, n] - 
    S2[a1, a6, a5, SP[a2, a4], a3, n] - S2[a1, a6, SP[a2, a3], a4, a5, n] - 
    S2[a1, a6, SP[a2, a3], a5, a4, n] - S2[a1, a6, SP[a2, a4], a3, a5, n] - 
    S2[a1, a6, SP[a2, a4], a5, a3, n] + S2[a1, a6, SP[a3, a5], a2, a4, n] - 
    S2[a1, SP[a2, a4], a3, a5, a6, n] - S2[a1, SP[a2, a4], a3, a6, a5, n] - 
    S2[a1, SP[a2, a4], a5, a3, a6, n] - S2[a1, SP[a2, a4], a5, a6, a3, n] - 
    S2[a1, SP[a2, a4], a6, a3, a5, n] - S2[a1, SP[a2, a4], a6, a5, a3, n] - 
    S2[a1, SP[a2, a5], a3, a4, a6, n] - S2[a1, SP[a2, a5], a3, a6, a4, n] - 
    S2[a1, SP[a2, a5], a4, a3, a6, n] - S2[a1, SP[a2, a5], a4, a6, a3, n] - 
    S2[a1, SP[a2, a5], a6, a3, a4, n] - S2[a1, SP[a2, a5], a6, a4, a3, n] - 
    S2[a1, SP[a2, a6], a3, a4, a5, n] - S2[a1, SP[a2, a6], a3, a5, a4, n] - 
    S2[a1, SP[a2, a6], a4, a3, a5, n] - S2[a1, SP[a2, a6], a4, a5, a3, n] - 
    S2[a1, SP[a2, a6], a5, a3, a4, n] - S2[a1, SP[a2, a6], a5, a4, a3, n] + 
    S2[a1, SP[a3, a6], a4, a2, a5, n] + S2[a1, SP[a3, a6], a4, a5, a2, n] + 
    S2[a1, SP[a3, a6], a5, a2, a4, n] + S2[a1, SP[a3, a6], a5, a4, a2, n] + 
    S2[a1, SP[a4, a6], a2, a3, a5, n] + S2[a1, SP[a4, a6], a2, a5, a3, n] + 
    S2[a1, SP[a4, a6], a3, a2, a5, n] + S2[a1, SP[a4, a6], a3, a5, a2, n] + 
    S2[a1, SP[a4, a6], a5, a2, a3, n] + S2[a1, SP[a4, a6], a5, a3, a2, n] + 
    2*S2[a1, SP[a5, a6], a2, a3, a4, n] + 
    2*S2[a1, SP[a5, a6], a2, a4, a3, n] + 
    2*S2[a1, SP[a5, a6], a3, a2, a4, n] + S2[a1, SP[a5, a6], a3, a4, a2, n] + 
    S2[a1, SP[a5, a6], a4, a2, a3, n] + S2[a1, SP[a5, a6], a4, a3, a2, n] + 
    S2[a2, a1, a4, a5, SP[a3, a6], n] + S2[a2, a1, a4, a6, SP[a3, a5], n] + 
    S2[a2, a1, a4, SP[a3, a5], a6, n] + S2[a2, a1, a4, SP[a3, a6], a5, n] + 
    S2[a2, a1, a5, a4, SP[a3, a6], n] + S2[a2, a1, a5, a6, SP[a3, a4], n] + 
    S2[a2, a1, a5, SP[a3, a4], a6, n] + S2[a2, a1, a5, SP[a3, a6], a4, n] + 
    S2[a2, a1, a6, a4, SP[a3, a5], n] + S2[a2, a1, a6, a5, SP[a3, a4], n] + 
    S2[a2, a1, a6, SP[a3, a4], a5, n] + S2[a2, a1, a6, SP[a3, a5], a4, n] + 
    S2[a2, a1, SP[a3, a4], a5, a6, n] + S2[a2, a1, SP[a3, a4], a6, a5, n] + 
    S2[a2, a1, SP[a3, a5], a4, a6, n] + S2[a2, a1, SP[a3, a5], a6, a4, n] + 
    S2[a2, a1, SP[a3, a6], a4, a5, n] + S2[a2, a1, SP[a3, a6], a5, a4, n] - 
    S2[a6, n]*S2[a2, a4, a1, a3, a5, n] - S2[a2, a4, a1, a3, SP[a5, a6], n] - 
    S2[a6, n]*S2[a2, a4, a1, a5, a3, n] + S2[a2, a4, a1, a6, SP[a3, a5], n] + 
    S2[a2, a4, a1, SP[a3, a5], a6, n] - S2[a2, a4, a1, SP[a5, a6], a3, n] - 
    S2[a6, n]*S2[a2, a4, a5, a1, a3, n] + S2[a2, a4, a6, a1, SP[a3, a5], n] + 
    S2[a2, a4, a6, SP[a1, a5], a3, n] + S2[a2, a4, SP[a1, a5], a3, a6, n] + 
    S2[a2, a4, SP[a1, a5], a6, a3, n] - S2[a2, a4, SP[a5, a6], a1, a3, n] - 
    S2[a6, n]*S2[a2, a5, a1, a3, a4, n] - S2[a2, a5, a1, a3, SP[a4, a6], n] - 
    S2[a6, n]*S2[a2, a5, a1, a4, a3, n] + S2[a2, a5, a1, a6, SP[a3, a4], n] + 
    S2[a2, a5, a1, SP[a3, a4], a6, n] - S2[a2, a5, a1, SP[a4, a6], a3, n] - 
    S2[a6, n]*S2[a2, a5, a4, a1, a3, n] + S2[a2, a5, a6, a1, SP[a3, a4], n] + 
    S2[a2, a5, a6, SP[a1, a4], a3, n] + S2[a2, a5, SP[a1, a4], a3, a6, n] + 
    S2[a2, a5, SP[a1, a4], a6, a3, n] - S2[a2, a5, SP[a4, a6], a1, a3, n] - 
    S2[a5, n]*S2[a2, a6, a1, a3, a4, n] - S2[a2, a6, a1, a3, SP[a4, a5], n] - 
    S2[a5, n]*S2[a2, a6, a1, a4, a3, n] + S2[a2, a6, a1, a5, SP[a3, a4], n] + 
    S2[a2, a6, a1, SP[a3, a4], a5, n] - S2[a2, a6, a1, SP[a4, a5], a3, n] + 
    S2[a2, a6, a4, a1, SP[a3, a5], n] + S2[a2, a6, a4, SP[a1, a5], a3, n] + 
    S2[a2, a6, a5, a1, SP[a3, a4], n] + S2[a2, a6, a5, SP[a1, a4], a3, n] + 
    S2[a2, a6, SP[a1, a4], a3, a5, n] + S2[a2, a6, SP[a1, a4], a5, a3, n] + 
    S2[a2, SP[a1, a4], a3, a5, a6, n] + S2[a2, SP[a1, a4], a3, a6, a5, n] + 
    S2[a2, SP[a1, a4], a5, a3, a6, n] + S2[a2, SP[a1, a4], a5, a6, a3, n] + 
    S2[a2, SP[a1, a4], a6, a3, a5, n] + S2[a2, SP[a1, a4], a6, a5, a3, n] + 
    S2[a2, SP[a1, a5], a3, a4, a6, n] + S2[a2, SP[a1, a5], a3, a6, a4, n] + 
    S2[a2, SP[a1, a5], a4, a3, a6, n] + S2[a2, SP[a1, a5], a4, a6, a3, n] + 
    S2[a2, SP[a1, a5], a6, a3, a4, n] + S2[a2, SP[a1, a5], a6, a4, a3, n] + 
    S2[a2, SP[a1, a6], a3, a4, a5, n] + S2[a2, SP[a1, a6], a3, a5, a4, n] + 
    S2[a2, SP[a1, a6], a4, a3, a5, n] + S2[a2, SP[a1, a6], a4, a5, a3, n] + 
    S2[a2, SP[a1, a6], a5, a3, a4, n] + S2[a2, SP[a1, a6], a5, a4, a3, n] - 
    S2[a2, SP[a4, a6], a1, a3, a5, n] - S2[a2, SP[a4, a6], a1, a5, a3, n] - 
    S2[a2, SP[a4, a6], a5, a1, a3, n] - 2*S2[a2, SP[a5, a6], a1, a3, a4, n] - 
    2*S2[a2, SP[a5, a6], a1, a4, a3, n] - S2[a2, SP[a5, a6], a4, a1, a3, n] - 
    S2[a5, a1, a6, a2, SP[a3, a4], n] - S2[a5, a1, a6, SP[a2, a3], a4, n] - 
    S2[a5, a1, SP[a3, a6], a2, a4, n] - S2[a5, a6, a1, a2, SP[a3, a4], n] + 
    S2[a2, n]*S2[a5, a6, a1, a3, a4, n] + S2[a5, a6, a1, a3, SP[a2, a4], n] + 
    S2[a2, n]*S2[a5, a6, a1, a4, a3, n] + S2[a5, a6, a1, a4, SP[a2, a3], n] + 
    S2[a5, a6, a1, SP[a2, a4], a3, n] - S2[a5, a6, a2, a1, SP[a3, a4], n] - 
    S2[a5, a6, a2, SP[a1, a4], a3, n] - S2[a5, SP[a1, a6], a2, a3, a4, n] - 
    S2[a5, SP[a1, a6], a2, a4, a3, n] - S2[a5, SP[a1, a6], a3, a2, a4, n] + 
    S2[a5, SP[a2, a6], a1, a3, a4, n] + S2[a5, SP[a2, a6], a1, a4, a3, n] - 
    S2[a5, n]*S2[a6, a1, a3, a4, a2, n] - S2[a6, a1, a3, a4, SP[a2, a5], n] - 
    S2[a6, a1, a3, SP[a4, a5], a2, n] - S2[a5, n]*S2[a6, a1, a4, a2, a3, n] - 
    S2[a6, a1, a4, a2, SP[a3, a5], n] - S2[a5, n]*S2[a6, a1, a4, a3, a2, n] - 
    S2[a6, a1, a4, a3, SP[a2, a5], n] - S2[a6, a1, a4, SP[a2, a5], a3, n] - 
    S2[a6, a1, a4, SP[a3, a5], a2, n] - S2[a6, a1, SP[a3, a5], a4, a2, n] - 
    S2[a6, a1, SP[a4, a5], a2, a3, n] - S2[a6, a1, SP[a4, a5], a3, a2, n] + 
    S2[a5, n]*S2[a6, a2, a4, a1, a3, n] + S2[a6, a2, a4, a1, SP[a3, a5], n] + 
    S2[a6, a2, a4, SP[a1, a5], a3, n] + S2[a6, a2, SP[a4, a5], a1, a3, n] - 
    S2[a1, n]*S2[a6, a3, a5, a2, a4, n] - S2[a6, a3, a5, a2, SP[a1, a4], n] - 
    S2[a6, a3, a5, SP[a1, a2], a4, n] - S2[a6, a3, SP[a1, a5], a2, a4, n] + 
    S2[a2, n]*S2[a6, a5, a1, a3, a4, n] + S2[a6, a5, a1, a3, SP[a2, a4], n] + 
    S2[a2, n]*S2[a6, a5, a1, a4, a3, n] + S2[a6, a5, a1, a4, SP[a2, a3], n] + 
    S2[a6, a5, a1, SP[a2, a3], a4, n] + S2[a6, a5, a1, SP[a2, a4], a3, n] - 
    S2[a1, n]*S2[a6, a5, a2, a3, a4, n] - S2[a6, a5, a2, a3, SP[a1, a4], n] - 
    S2[a1, n]*S2[a6, a5, a2, a4, a3, n] - S2[a6, a5, a2, a4, SP[a1, a3], n] - 
    S2[a6, a5, a2, SP[a1, a3], a4, n] - S2[a6, a5, a2, SP[a1, a4], a3, n] - 
    S2[a1, n]*S2[a6, a5, a3, a2, a4, n] - S2[a6, a5, a3, a2, SP[a1, a4], n] - 
    S2[a6, a5, a3, SP[a1, a2], a4, n] - S2[a6, a5, SP[a1, a3], a2, a4, n] - 
    S2[a6, SP[a1, a3], a5, a2, a4, n] - S2[a6, SP[a1, a5], a2, a3, a4, n] - 
    S2[a6, SP[a1, a5], a2, a4, a3, n] - S2[a6, SP[a1, a5], a3, a2, a4, n] - 
    S2[a6, SP[a1, a5], a3, a4, a2, n] - S2[a6, SP[a1, a5], a4, a2, a3, n] - 
    S2[a6, SP[a1, a5], a4, a3, a2, n] + S2[a6, SP[a2, a5], a1, a3, a4, n] + 
    S2[a6, SP[a2, a5], a1, a4, a3, n] + S2[a6, SP[a2, a5], a4, a1, a3, n] + 
    S2[SP[a1, a6], a3, a4, a2, a5, n] + S2[SP[a1, a6], a3, a4, a5, a2, n] + 
    S2[SP[a1, a6], a3, a5, a4, a2, n] + S2[SP[a1, a6], a4, a2, a3, a5, n] + 
    S2[SP[a1, a6], a4, a2, a5, a3, n] + S2[SP[a1, a6], a4, a3, a2, a5, n] + 
    S2[SP[a1, a6], a4, a3, a5, a2, n] + S2[SP[a1, a6], a4, a5, a2, a3, n] + 
    S2[SP[a1, a6], a4, a5, a3, a2, n] + S2[SP[a1, a6], a5, a3, a4, a2, n] + 
    S2[SP[a1, a6], a5, a4, a2, a3, n] + S2[SP[a1, a6], a5, a4, a3, a2, n] - 
    S2[SP[a2, a6], a4, a1, a3, a5, n] - S2[SP[a2, a6], a4, a1, a5, a3, n] - 
    S2[SP[a2, a6], a4, a5, a1, a3, n] - S2[SP[a2, a6], a5, a4, a1, a3, n] - 
    S2[SP[a5, a6], a1, a3, a4, a2, n] - S2[SP[a5, a6], a1, a4, a2, a3, n] - 
    S2[SP[a5, a6], a1, a4, a3, a2, n] + S2[SP[a5, a6], a2, a4, a1, a3, n] + 
    S2[a6, a3, a1, a5, a2, a4, n] + S2[a6, a3, a5, a1, a2, a4, n] + 
    S2[a6, a3, a5, a2, a1, a4, n] + S2[a6, a3, a5, a2, a4, a1, n] + 
    S2[a6, a5, a2, a3, a1, a4, n] + S2[a6, a5, a2, a3, a4, a1, n] + 
    S2[a6, a5, a2, a4, a3, a1, n] + S2[a6, a5, a3, a1, a2, a4, n] + 
    S2[a6, a5, a3, a2, a1, a4, n] + S2[a6, a5, a3, a2, a4, a1, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a1_, a3_, a6_, a5_, a4_, a2_, n_] :> 
  -(S2[a1, a3, n]*S2[a2, a4, a5, a6, n]) - S2[a1, a3, n]*
     S2[a2, a4, a6, a5, n] + S2[a2, a4, SP[a1, a5], SP[a3, a6], n] + 
    S2[a2, a4, SP[a1, a6], SP[a3, a5], n] - S2[a1, a3, n]*
     S2[a2, a6, a4, a5, n] - S2[a1, a3, n]*S2[a2, a6, a5, a4, n] + 
    S2[a2, a6, SP[a1, a4], SP[a3, a5], n] + S2[a2, a6, SP[a1, a5], 
     SP[a3, a4], n] + S2[a2, SP[a1, a4], a5, SP[a3, a6], n] + 
    S2[a2, SP[a1, a4], a6, SP[a3, a5], n] + S2[a2, SP[a1, a4], SP[a3, a5], 
     a6, n] + S2[a2, SP[a1, a4], SP[a3, a6], a5, n] + 
    S2[a2, SP[a1, a6], a4, SP[a3, a5], n] + S2[a2, SP[a1, a6], a5, 
     SP[a3, a4], n] + S2[a2, SP[a1, a6], SP[a3, a4], a5, n] + 
    S2[a2, SP[a1, a6], SP[a3, a5], a4, n] + S2[a1, a3, n]*
     S2[a5, a6, a2, a4, n] - S2[a5, a6, SP[a1, a2], SP[a3, a4], n] - 
    S2[a5, SP[a1, a6], a2, SP[a3, a4], n] - S2[a5, SP[a1, a6], SP[a2, a3], 
     a4, n] + S2[SP[a1, a2], a4, a5, SP[a3, a6], n] + 
    S2[SP[a1, a2], a4, a6, SP[a3, a5], n] + S2[SP[a1, a2], a4, SP[a3, a5], 
     a6, n] + S2[SP[a1, a2], a4, SP[a3, a6], a5, n] + 
    S2[SP[a1, a2], a6, a4, SP[a3, a5], n] + S2[SP[a1, a2], a6, a5, 
     SP[a3, a4], n] + S2[SP[a1, a2], a6, SP[a3, a4], a5, n] + 
    S2[SP[a1, a2], a6, SP[a3, a5], a4, n] + S2[SP[a1, a2], SP[a3, a4], a5, 
     a6, n] + S2[SP[a1, a2], SP[a3, a4], a6, a5, n] + 
    S2[SP[a1, a2], SP[a3, a6], a4, a5, n] + S2[SP[a1, a2], SP[a3, a6], a5, 
     a4, n] - S2[SP[a1, a5], a6, a2, SP[a3, a4], n] - 
    S2[SP[a1, a5], a6, SP[a2, a3], a4, n] - S2[SP[a1, a5], SP[a3, a6], a2, 
     a4, n] - S2[a1, a2, a4, a5, SP[a3, a6], n] - 
    S2[a1, a2, a4, a6, SP[a3, a5], n] - S2[a1, a2, a4, SP[a3, a5], a6, n] - 
    S2[a1, a2, a4, SP[a3, a6], a5, n] - S2[a1, a2, a6, a4, SP[a3, a5], n] - 
    S2[a1, a2, a6, a5, SP[a3, a4], n] - S2[a1, a2, a6, SP[a3, a4], a5, n] - 
    S2[a1, a2, a6, SP[a3, a5], a4, n] - S2[a1, a2, SP[a3, a4], a5, a6, n] - 
    S2[a1, a2, SP[a3, a4], a6, a5, n] - S2[a1, a2, SP[a3, a6], a4, a5, n] - 
    S2[a1, a2, SP[a3, a6], a5, a4, n] - S2[a6, n]*S2[a1, a3, a4, a2, a5, n] - 
    S2[a1, a3, a4, a2, SP[a5, a6], n] - S2[a6, n]*S2[a1, a3, a4, a5, a2, n] + 
    S2[a2, n]*S2[a1, a3, a4, a5, a6, n] + 
    S2[a2, n]*S2[a1, a3, a4, a6, a5, n] + S2[a1, a3, a4, a6, SP[a2, a5], n] + 
    S2[a1, a3, a4, SP[a2, a5], a6, n] - S2[a1, a3, a4, SP[a5, a6], a2, n] - 
    S2[a5, n]*S2[a1, a3, a6, a2, a4, n] - S2[a1, a3, a6, a2, SP[a4, a5], n] + 
    S2[a2, n]*S2[a1, a3, a6, a4, a5, n] + S2[a1, a3, a6, a4, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a3, a6, a5, a4, n] + S2[a1, a3, a6, a5, SP[a2, a4], n] + 
    S2[a1, a3, a6, SP[a2, a4], a5, n] + S2[a1, a3, SP[a2, a4], a5, a6, n] + 
    S2[a1, a3, SP[a2, a4], a6, a5, n] + S2[a1, a3, SP[a2, a6], a4, a5, n] + 
    S2[a1, a3, SP[a2, a6], a5, a4, n] - S2[a1, a3, SP[a4, a6], a2, a5, n] - 
    S2[a1, a3, SP[a4, a6], a5, a2, n] - S2[a1, a3, SP[a5, a6], a2, a4, n] - 
    S2[a6, n]*S2[a1, a4, a2, a3, a5, n] - S2[a1, a4, a2, a3, SP[a5, a6], n] - 
    S2[a6, n]*S2[a1, a4, a2, a5, a3, n] - S2[a1, a4, a2, a5, SP[a3, a6], n] - 
    S2[a1, a4, a2, SP[a3, a6], a5, n] - S2[a1, a4, a2, SP[a5, a6], a3, n] - 
    S2[a6, n]*S2[a1, a4, a3, a2, a5, n] - S2[a1, a4, a3, a2, SP[a5, a6], n] - 
    S2[a6, n]*S2[a1, a4, a3, a5, a2, n] + 
    S2[a2, n]*S2[a1, a4, a3, a5, a6, n] + 
    S2[a2, n]*S2[a1, a4, a3, a6, a5, n] + S2[a1, a4, a3, a6, SP[a2, a5], n] + 
    S2[a1, a4, a3, SP[a2, a5], a6, n] - S2[a1, a4, a3, SP[a5, a6], a2, n] - 
    S2[a6, n]*S2[a1, a4, a5, a2, a3, n] - S2[a1, a4, a5, a2, SP[a3, a6], n] - 
    S2[a6, n]*S2[a1, a4, a5, a3, a2, n] + 
    S2[a2, n]*S2[a1, a4, a5, a3, a6, n] + 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] + S2[a1, a4, a5, a6, SP[a2, a3], n] + 
    S2[a1, a4, a5, SP[a2, a3], a6, n] - S2[a1, a4, a5, SP[a3, a6], a2, n] + 
    S2[a2, n]*S2[a1, a4, a6, a3, a5, n] + S2[a1, a4, a6, a3, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a4, a6, a5, a3, n] + S2[a1, a4, a6, a5, SP[a2, a3], n] + 
    S2[a1, a4, a6, SP[a2, a3], a5, n] + S2[a1, a4, a6, SP[a2, a5], a3, n] + 
    S2[a1, a4, SP[a2, a3], a5, a6, n] + S2[a1, a4, SP[a2, a3], a6, a5, n] + 
    S2[a1, a4, SP[a2, a5], a3, a6, n] + S2[a1, a4, SP[a2, a5], a6, a3, n] - 
    S2[a1, a4, SP[a3, a6], a2, a5, n] - S2[a1, a4, SP[a3, a6], a5, a2, n] - 
    S2[a1, a4, SP[a5, a6], a2, a3, n] - S2[a1, a4, SP[a5, a6], a3, a2, n] + 
    S2[a1, a5, a6, a2, SP[a3, a4], n] + S2[a1, a5, a6, SP[a2, a3], a4, n] + 
    S2[a1, a5, SP[a3, a6], a2, a4, n] - S2[a5, n]*S2[a1, a6, a2, a3, a4, n] - 
    S2[a1, a6, a2, a3, SP[a4, a5], n] - S2[a5, n]*S2[a1, a6, a2, a4, a3, n] - 
    S2[a1, a6, a2, a4, SP[a3, a5], n] - S2[a1, a6, a2, SP[a3, a5], a4, n] - 
    S2[a1, a6, a2, SP[a4, a5], a3, n] - S2[a5, n]*S2[a1, a6, a3, a2, a4, n] - 
    S2[a1, a6, a3, a2, SP[a4, a5], n] + S2[a2, n]*S2[a1, a6, a3, a4, a5, n] + 
    S2[a1, a6, a3, a4, SP[a2, a5], n] + S2[a2, n]*S2[a1, a6, a3, a5, a4, n] + 
    S2[a1, a6, a3, a5, SP[a2, a4], n] + S2[a1, a6, a3, SP[a2, a4], a5, n] + 
    S2[a2, n]*S2[a1, a6, a4, a3, a5, n] + S2[a1, a6, a4, a3, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a6, a4, a5, a3, n] + S2[a1, a6, a4, a5, SP[a2, a3], n] + 
    S2[a1, a6, a4, SP[a2, a3], a5, n] + S2[a1, a6, a4, SP[a2, a5], a3, n] + 
    S2[a2, n]*S2[a1, a6, a5, a3, a4, n] + S2[a1, a6, a5, a3, SP[a2, a4], n] + 
    S2[a2, n]*S2[a1, a6, a5, a4, a3, n] + S2[a1, a6, a5, a4, SP[a2, a3], n] + 
    S2[a1, a6, a5, SP[a2, a3], a4, n] + S2[a1, a6, a5, SP[a2, a4], a3, n] + 
    S2[a1, a6, SP[a2, a3], a4, a5, n] + S2[a1, a6, SP[a2, a3], a5, a4, n] + 
    S2[a1, a6, SP[a2, a4], a3, a5, n] + S2[a1, a6, SP[a2, a4], a5, a3, n] - 
    S2[a1, a6, SP[a3, a5], a2, a4, n] + S2[a1, SP[a2, a4], a3, a5, a6, n] + 
    S2[a1, SP[a2, a4], a3, a6, a5, n] + S2[a1, SP[a2, a4], a5, a3, a6, n] + 
    S2[a1, SP[a2, a4], a5, a6, a3, n] + S2[a1, SP[a2, a4], a6, a3, a5, n] + 
    S2[a1, SP[a2, a4], a6, a5, a3, n] + S2[a1, SP[a2, a6], a3, a4, a5, n] + 
    S2[a1, SP[a2, a6], a3, a5, a4, n] + S2[a1, SP[a2, a6], a4, a3, a5, n] + 
    S2[a1, SP[a2, a6], a4, a5, a3, n] + S2[a1, SP[a2, a6], a5, a3, a4, n] + 
    S2[a1, SP[a2, a6], a5, a4, a3, n] - S2[a1, SP[a3, a6], a4, a2, a5, n] - 
    S2[a1, SP[a3, a6], a4, a5, a2, n] - S2[a1, SP[a4, a6], a2, a3, a5, n] - 
    S2[a1, SP[a4, a6], a2, a5, a3, n] - S2[a1, SP[a4, a6], a3, a2, a5, n] - 
    S2[a1, SP[a4, a6], a3, a5, a2, n] - S2[a1, SP[a4, a6], a5, a2, a3, n] - 
    S2[a1, SP[a4, a6], a5, a3, a2, n] - S2[a1, SP[a5, a6], a2, a3, a4, n] - 
    S2[a1, SP[a5, a6], a2, a4, a3, n] - S2[a1, SP[a5, a6], a3, a2, a4, n] - 
    S2[a2, a1, a4, a5, SP[a3, a6], n] - S2[a2, a1, a4, a6, SP[a3, a5], n] - 
    S2[a2, a1, a4, SP[a3, a5], a6, n] - S2[a2, a1, a4, SP[a3, a6], a5, n] - 
    S2[a2, a1, a6, a4, SP[a3, a5], n] - S2[a2, a1, a6, a5, SP[a3, a4], n] - 
    S2[a2, a1, a6, SP[a3, a4], a5, n] - S2[a2, a1, a6, SP[a3, a5], a4, n] - 
    S2[a2, a1, SP[a3, a4], a5, a6, n] - S2[a2, a1, SP[a3, a4], a6, a5, n] - 
    S2[a2, a1, SP[a3, a6], a4, a5, n] - S2[a2, a1, SP[a3, a6], a5, a4, n] + 
    S2[a6, n]*S2[a2, a4, a1, a3, a5, n] + S2[a2, a4, a1, a3, SP[a5, a6], n] + 
    S2[a6, n]*S2[a2, a4, a1, a5, a3, n] - S2[a2, a4, a1, a6, SP[a3, a5], n] - 
    S2[a2, a4, a1, SP[a3, a5], a6, n] + S2[a2, a4, a1, SP[a5, a6], a3, n] + 
    S2[a6, n]*S2[a2, a4, a5, a1, a3, n] - S2[a2, a4, a6, a1, SP[a3, a5], n] - 
    S2[a2, a4, a6, SP[a1, a5], a3, n] - S2[a2, a4, SP[a1, a5], a3, a6, n] - 
    S2[a2, a4, SP[a1, a5], a6, a3, n] + S2[a2, a4, SP[a5, a6], a1, a3, n] + 
    S2[a5, n]*S2[a2, a6, a1, a3, a4, n] + S2[a2, a6, a1, a3, SP[a4, a5], n] + 
    S2[a5, n]*S2[a2, a6, a1, a4, a3, n] - S2[a2, a6, a1, a5, SP[a3, a4], n] - 
    S2[a2, a6, a1, SP[a3, a4], a5, n] + S2[a2, a6, a1, SP[a4, a5], a3, n] - 
    S2[a2, a6, a4, a1, SP[a3, a5], n] - S2[a2, a6, a4, SP[a1, a5], a3, n] - 
    S2[a2, a6, a5, a1, SP[a3, a4], n] - S2[a2, a6, a5, SP[a1, a4], a3, n] - 
    S2[a2, a6, SP[a1, a4], a3, a5, n] - S2[a2, a6, SP[a1, a4], a5, a3, n] - 
    S2[a2, SP[a1, a4], a3, a5, a6, n] - S2[a2, SP[a1, a4], a3, a6, a5, n] - 
    S2[a2, SP[a1, a4], a5, a3, a6, n] - S2[a2, SP[a1, a4], a5, a6, a3, n] - 
    S2[a2, SP[a1, a4], a6, a3, a5, n] - S2[a2, SP[a1, a4], a6, a5, a3, n] - 
    S2[a2, SP[a1, a6], a3, a4, a5, n] - S2[a2, SP[a1, a6], a3, a5, a4, n] - 
    S2[a2, SP[a1, a6], a4, a3, a5, n] - S2[a2, SP[a1, a6], a4, a5, a3, n] - 
    S2[a2, SP[a1, a6], a5, a3, a4, n] - S2[a2, SP[a1, a6], a5, a4, a3, n] + 
    S2[a2, SP[a4, a6], a1, a3, a5, n] + S2[a2, SP[a4, a6], a1, a5, a3, n] + 
    S2[a2, SP[a4, a6], a5, a1, a3, n] + S2[a2, SP[a5, a6], a1, a3, a4, n] + 
    S2[a2, SP[a5, a6], a1, a4, a3, n] + S2[a5, a1, a6, a2, SP[a3, a4], n] + 
    S2[a5, a1, a6, SP[a2, a3], a4, n] + S2[a5, a1, SP[a3, a6], a2, a4, n] + 
    S2[a5, a6, a1, a2, SP[a3, a4], n] - S2[a2, n]*S2[a5, a6, a1, a3, a4, n] - 
    S2[a5, a6, a1, a3, SP[a2, a4], n] - S2[a2, n]*S2[a5, a6, a1, a4, a3, n] - 
    S2[a5, a6, a1, a4, SP[a2, a3], n] - S2[a5, a6, a1, SP[a2, a4], a3, n] + 
    S2[a5, a6, a2, a1, SP[a3, a4], n] + S2[a5, a6, a2, SP[a1, a4], a3, n] + 
    S2[a5, SP[a1, a6], a2, a3, a4, n] + S2[a5, SP[a1, a6], a2, a4, a3, n] + 
    S2[a5, SP[a1, a6], a3, a2, a4, n] - S2[a5, SP[a2, a6], a1, a3, a4, n] - 
    S2[a5, SP[a2, a6], a1, a4, a3, n] + S2[a5, n]*S2[a6, a1, a3, a4, a2, n] + 
    S2[a6, a1, a3, a4, SP[a2, a5], n] + S2[a6, a1, a3, SP[a4, a5], a2, n] + 
    S2[a5, n]*S2[a6, a1, a4, a2, a3, n] + S2[a6, a1, a4, a2, SP[a3, a5], n] + 
    S2[a5, n]*S2[a6, a1, a4, a3, a2, n] + S2[a6, a1, a4, a3, SP[a2, a5], n] + 
    S2[a6, a1, a4, SP[a2, a5], a3, n] + S2[a6, a1, a4, SP[a3, a5], a2, n] + 
    S2[a6, a1, SP[a3, a5], a4, a2, n] + S2[a6, a1, SP[a4, a5], a2, a3, n] + 
    S2[a6, a1, SP[a4, a5], a3, a2, n] - S2[a5, n]*S2[a6, a2, a4, a1, a3, n] - 
    S2[a6, a2, a4, a1, SP[a3, a5], n] - S2[a6, a2, a4, SP[a1, a5], a3, n] - 
    S2[a6, a2, SP[a4, a5], a1, a3, n] - S2[a1, n]*S2[a6, a3, a5, a4, a2, n] - 
    S2[a6, a3, a5, a4, SP[a1, a2], n] - S2[a6, a3, a5, SP[a1, a4], a2, n] - 
    S2[a6, a3, SP[a1, a5], a4, a2, n] - S2[a1, n]*S2[a6, a5, a3, a4, a2, n] - 
    S2[a6, a5, a3, a4, SP[a1, a2], n] - S2[a6, a5, a3, SP[a1, a4], a2, n] + 
    S2[a2, n]*S2[a6, a5, a4, a1, a3, n] + S2[a6, a5, a4, a1, SP[a2, a3], n] - 
    S2[a1, n]*S2[a6, a5, a4, a2, a3, n] - S2[a6, a5, a4, a2, SP[a1, a3], n] - 
    S2[a1, n]*S2[a6, a5, a4, a3, a2, n] - S2[a6, a5, a4, a3, SP[a1, a2], n] - 
    S2[a6, a5, a4, SP[a1, a3], a2, n] - S2[a6, a5, SP[a1, a3], a4, a2, n] - 
    S2[a6, a5, SP[a1, a4], a2, a3, n] - S2[a6, a5, SP[a1, a4], a3, a2, n] + 
    S2[a6, a5, SP[a2, a4], a1, a3, n] - S2[a6, SP[a1, a3], a5, a4, a2, n] - 
    S2[SP[a1, a6], a3, a4, a2, a5, n] - S2[SP[a1, a6], a3, a4, a5, a2, n] - 
    S2[SP[a1, a6], a3, a5, a4, a2, n] - S2[SP[a1, a6], a4, a2, a3, a5, n] - 
    S2[SP[a1, a6], a4, a2, a5, a3, n] - S2[SP[a1, a6], a4, a3, a2, a5, n] - 
    S2[SP[a1, a6], a4, a3, a5, a2, n] - S2[SP[a1, a6], a4, a5, a2, a3, n] - 
    S2[SP[a1, a6], a4, a5, a3, a2, n] - S2[SP[a1, a6], a5, a3, a4, a2, n] - 
    S2[SP[a1, a6], a5, a4, a2, a3, n] - S2[SP[a1, a6], a5, a4, a3, a2, n] + 
    S2[SP[a2, a6], a4, a1, a3, a5, n] + S2[SP[a2, a6], a4, a1, a5, a3, n] + 
    S2[SP[a2, a6], a4, a5, a1, a3, n] + S2[SP[a2, a6], a5, a4, a1, a3, n] + 
    S2[SP[a5, a6], a1, a3, a4, a2, n] + S2[SP[a5, a6], a1, a4, a2, a3, n] + 
    S2[SP[a5, a6], a1, a4, a3, a2, n] - S2[SP[a5, a6], a2, a4, a1, a3, n] + 
    S2[a6, a3, a1, a5, a4, a2, n] + S2[a6, a3, a5, a1, a4, a2, n] + 
    S2[a6, a3, a5, a4, a1, a2, n] + S2[a6, a3, a5, a4, a2, a1, n] + 
    S2[a6, a5, a3, a1, a4, a2, n] + S2[a6, a5, a3, a4, a1, a2, n] + 
    S2[a6, a5, a3, a4, a2, a1, n] + S2[a6, a5, a4, a2, a3, a1, n] + 
    S2[a6, a5, a4, a3, a1, a2, n] + S2[a6, a5, a4, a3, a2, a1, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a1_, a4_, a2_, a3_, a5_, a6_, n_] :> 
  S2[a1, a4, a2, n]*S2[a3, a5, a6, n] + S2[SP[a1, a3], SP[a4, a5], 
     SP[a2, a6], n] - S2[a1, a3, SP[a4, a5], SP[a2, a6], n] + 
    S2[a5, a6, n]*S2[a1, a4, a2, a3, n] - S2[a1, a4, SP[a2, a5], SP[a3, a6], 
     n] - S2[a1, SP[a3, a4], a5, SP[a2, a6], n] - 
    S2[a1, SP[a3, a4], SP[a2, a5], a6, n] - S2[a1, SP[a4, a5], a2, 
     SP[a3, a6], n] - S2[a1, SP[a4, a5], SP[a2, a6], a3, n] + 
    S2[a1, a4, n]*S2[a2, a3, a5, a6, n] + S2[a1, a4, n]*
     S2[a2, a3, a6, a5, n] - S2[a2, a3, SP[a1, a5], SP[a4, a6], n] - 
    S2[a2, a3, SP[a1, a6], SP[a4, a5], n] + S2[a1, a4, n]*
     S2[a2, a6, a3, a5, n] + S2[a1, a4, n]*S2[a2, a6, a5, a3, n] - 
    S2[a2, a6, SP[a1, a3], SP[a4, a5], n] - S2[a2, a6, SP[a1, a5], 
     SP[a3, a4], n] - S2[a2, SP[a1, a3], a5, SP[a4, a6], n] - 
    S2[a2, SP[a1, a3], a6, SP[a4, a5], n] - S2[a2, SP[a1, a3], SP[a4, a5], 
     a6, n] - S2[a2, SP[a1, a3], SP[a4, a6], a5, n] - 
    S2[a2, SP[a1, a6], a3, SP[a4, a5], n] - S2[a2, SP[a1, a6], a5, 
     SP[a3, a4], n] - S2[a2, SP[a1, a6], SP[a3, a4], a5, n] - 
    S2[a2, SP[a1, a6], SP[a4, a5], a3, n] - S2[a3, a1, SP[a4, a5], 
     SP[a2, a6], n] - S2[a3, SP[a1, a5], a4, SP[a2, a6], n] - 
    S2[a3, SP[a1, a5], SP[a4, a6], a2, n] - S2[a1, a4, n]*
     S2[a5, a6, a2, a3, n] + S2[a5, a6, SP[a1, a2], SP[a3, a4], n] + 
    S2[a5, SP[a1, a6], a2, SP[a3, a4], n] + S2[a5, SP[a1, a6], SP[a2, a4], 
     a3, n] - S2[SP[a1, a2], a3, a5, SP[a4, a6], n] - 
    S2[SP[a1, a2], a3, a6, SP[a4, a5], n] - S2[SP[a1, a2], a3, SP[a4, a5], 
     a6, n] - S2[SP[a1, a2], a3, SP[a4, a6], a5, n] - 
    S2[SP[a1, a2], a6, a3, SP[a4, a5], n] - S2[SP[a1, a2], a6, a5, 
     SP[a3, a4], n] - S2[SP[a1, a2], a6, SP[a3, a4], a5, n] - 
    S2[SP[a1, a2], a6, SP[a4, a5], a3, n] - S2[SP[a1, a2], SP[a3, a4], a5, 
     a6, n] - S2[SP[a1, a2], SP[a3, a4], a6, a5, n] - 
    S2[SP[a1, a2], SP[a4, a6], a3, a5, n] - S2[SP[a1, a2], SP[a4, a6], a5, 
     a3, n] - S2[SP[a1, a3], a4, a5, SP[a2, a6], n] - 
    S2[SP[a1, a3], a4, SP[a2, a5], a6, n] - S2[SP[a1, a3], a5, a4, 
     SP[a2, a6], n] - S2[SP[a1, a3], a5, SP[a4, a6], a2, n] - 
    S2[SP[a1, a3], SP[a4, a5], a2, a6, n] - S2[SP[a1, a3], SP[a4, a5], a6, 
     a2, n] - S2[SP[a1, a5], a4, a2, SP[a3, a6], n] - 
    S2[SP[a1, a5], a4, SP[a2, a6], a3, n] + S2[SP[a1, a5], a6, a2, 
     SP[a3, a4], n] + S2[SP[a1, a5], a6, SP[a2, a4], a3, n] + 
    S2[a1, a2, a3, a5, SP[a4, a6], n] + S2[a1, a2, a3, a6, SP[a4, a5], n] + 
    S2[a1, a2, a3, SP[a4, a5], a6, n] + S2[a1, a2, a3, SP[a4, a6], a5, n] + 
    S2[a1, a2, a6, a3, SP[a4, a5], n] + S2[a1, a2, a6, a5, SP[a3, a4], n] + 
    S2[a1, a2, a6, SP[a3, a4], a5, n] + S2[a1, a2, a6, SP[a4, a5], a3, n] + 
    S2[a1, a2, SP[a3, a4], a5, a6, n] + S2[a1, a2, SP[a3, a4], a6, a5, n] + 
    S2[a1, a2, SP[a4, a6], a3, a5, n] + S2[a1, a2, SP[a4, a6], a5, a3, n] + 
    S2[a6, n]*S2[a1, a3, a2, a4, a5, n] + S2[a1, a3, a2, a4, SP[a5, a6], n] + 
    S2[a6, n]*S2[a1, a3, a2, a5, a4, n] + S2[a1, a3, a2, a5, SP[a4, a6], n] + 
    S2[a1, a3, a2, SP[a4, a6], a5, n] + S2[a1, a3, a2, SP[a5, a6], a4, n] + 
    S2[a6, n]*S2[a1, a3, a4, a2, a5, n] + S2[a1, a3, a4, a2, SP[a5, a6], n] + 
    S2[a6, n]*S2[a1, a3, a4, a5, a2, n] - 
    S2[a2, n]*S2[a1, a3, a4, a5, a6, n] + S2[a1, a3, a4, a5, SP[a2, a6], n] - 
    S2[a2, n]*S2[a1, a3, a4, a6, a5, n] - S2[a1, a3, a4, a6, SP[a2, a5], n] + 
    S2[a1, a3, a4, SP[a5, a6], a2, n] + S2[a6, n]*S2[a1, a3, a5, a2, a4, n] + 
    S2[a1, a3, a5, a2, SP[a4, a6], n] + S2[a6, n]*S2[a1, a3, a5, a4, a2, n] - 
    S2[a2, n]*S2[a1, a3, a5, a4, a6, n] + S2[a1, a3, a5, a4, SP[a2, a6], n] - 
    S2[a2, n]*S2[a1, a3, a5, a6, a4, n] - S2[a1, a3, a5, a6, SP[a2, a4], n] - 
    S2[a1, a3, a5, SP[a2, a4], a6, n] + 2*S2[a1, a3, a5, SP[a4, a6], a2, n] - 
    S2[a2, n]*S2[a1, a3, a6, a4, a5, n] - S2[a1, a3, a6, a4, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a3, a6, a5, a4, n] - S2[a1, a3, a6, a5, SP[a2, a4], n] - 
    S2[a1, a3, a6, SP[a2, a4], a5, n] - S2[a1, a3, a6, SP[a2, a5], a4, n] - 
    S2[a1, a3, SP[a2, a4], a5, a6, n] - S2[a1, a3, SP[a2, a4], a6, a5, n] - 
    S2[a1, a3, SP[a2, a5], a4, a6, n] - S2[a1, a3, SP[a2, a5], a6, a4, n] + 
    S2[a1, a3, SP[a4, a5], a2, a6, n] + S2[a1, a3, SP[a4, a5], a6, a2, n] + 
    S2[a1, a3, SP[a4, a6], a2, a5, n] + S2[a1, a3, SP[a4, a6], a5, a2, n] + 
    S2[a1, a3, SP[a5, a6], a2, a4, n] + S2[a1, a3, SP[a5, a6], a4, a2, n] + 
    S2[a6, n]*S2[a1, a4, a2, a3, a5, n] - 
    S2[a5, n]*S2[a1, a4, a2, a3, a6, n] + 
    S2[a6, n]*S2[a1, a4, a2, a5, a3, n] - 
    S2[a3, n]*S2[a1, a4, a2, a5, a6, n] + S2[a1, a4, a2, a5, SP[a3, a6], n] - 
    S2[a5, n]*S2[a1, a4, a2, a6, a3, n] - S2[a1, a4, a2, a6, SP[a3, a5], n] - 
    S2[a1, a4, a2, SP[a3, a5], a6, n] + S2[a1, a4, a2, SP[a3, a6], a5, n] + 
    S2[a6, n]*S2[a1, a4, a3, a2, a5, n] + S2[a1, a4, a3, a2, SP[a5, a6], n] + 
    S2[a6, n]*S2[a1, a4, a3, a5, a2, n] - 
    S2[a2, n]*S2[a1, a4, a3, a5, a6, n] + S2[a1, a4, a3, a5, SP[a2, a6], n] - 
    S2[a2, n]*S2[a1, a4, a3, a6, a5, n] - S2[a1, a4, a3, a6, SP[a2, a5], n] + 
    S2[a1, a4, a3, SP[a5, a6], a2, n] + S2[a6, n]*S2[a1, a4, a5, a2, a3, n] - 
    S2[a3, n]*S2[a1, a4, a5, a2, a6, n] + S2[a1, a4, a5, a2, SP[a3, a6], n] + 
    S2[a6, n]*S2[a1, a4, a5, a3, a2, n] + S2[a1, a4, a5, a3, SP[a2, a6], n] - 
    S2[a3, n]*S2[a1, a4, a5, a6, a2, n] - S2[a1, a4, a5, a6, SP[a2, a3], n] - 
    S2[a1, a4, a5, SP[a2, a3], a6, n] + 2*S2[a1, a4, a5, SP[a2, a6], a3, n] - 
    S2[a2, n]*S2[a1, a4, a6, a3, a5, n] - S2[a1, a4, a6, a3, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a4, a6, a5, a3, n] - S2[a1, a4, a6, a5, SP[a2, a3], n] - 
    S2[a1, a4, a6, SP[a2, a3], a5, n] - S2[a1, a4, a6, SP[a2, a5], a3, n] - 
    S2[a1, a4, SP[a2, a3], a5, a6, n] - S2[a1, a4, SP[a2, a3], a6, a5, n] - 
    S2[a1, a4, SP[a3, a5], a2, a6, n] - S2[a1, a4, SP[a3, a5], a6, a2, n] + 
    S2[a1, a4, SP[a3, a6], a2, a5, n] + S2[a1, a4, SP[a3, a6], a5, a2, n] + 
    S2[a1, a4, SP[a5, a6], a2, a3, n] + S2[a1, a4, SP[a5, a6], a3, a2, n] + 
    S2[a6, n]*S2[a1, a5, a3, a4, a2, n] + S2[a1, a5, a3, a4, SP[a2, a6], n] + 
    S2[a1, a5, a3, SP[a4, a6], a2, n] + S2[a6, n]*S2[a1, a5, a4, a2, a3, n] - 
    S2[a3, n]*S2[a1, a5, a4, a2, a6, n] + S2[a1, a5, a4, a2, SP[a3, a6], n] + 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] + S2[a1, a5, a4, a3, SP[a2, a6], n] - 
    S2[a3, n]*S2[a1, a5, a4, a6, a2, n] - S2[a1, a5, a4, a6, SP[a2, a3], n] - 
    S2[a1, a5, a4, SP[a2, a3], a6, n] + 2*S2[a1, a5, a4, SP[a2, a6], a3, n] - 
    S2[a1, a5, a6, a2, SP[a3, a4], n] - S2[a3, n]*S2[a1, a5, a6, a4, a2, n] - 
    S2[a1, a5, a6, a4, SP[a2, a3], n] - S2[a1, a5, a6, SP[a2, a4], a3, n] - 
    S2[a1, a5, a6, SP[a3, a4], a2, n] - S2[a1, a5, SP[a3, a4], a2, a6, n] - 
    S2[a1, a5, SP[a3, a4], a6, a2, n] + S2[a1, a5, SP[a4, a6], a2, a3, n] + 
    S2[a1, a5, SP[a4, a6], a3, a2, n] + S2[a5, n]*S2[a1, a6, a2, a3, a4, n] + 
    S2[a1, a6, a2, a3, SP[a4, a5], n] + S2[a5, n]*S2[a1, a6, a2, a4, a3, n] + 
    S2[a1, a6, a2, a4, SP[a3, a5], n] + S2[a1, a6, a2, SP[a3, a5], a4, n] + 
    S2[a1, a6, a2, SP[a4, a5], a3, n] - S2[a2, n]*S2[a1, a6, a3, a4, a5, n] - 
    S2[a1, a6, a3, a4, SP[a2, a5], n] - S2[a2, n]*S2[a1, a6, a3, a5, a4, n] - 
    S2[a1, a6, a3, a5, SP[a2, a4], n] - S2[a1, a6, a3, SP[a2, a4], a5, n] - 
    S2[a1, a6, a3, SP[a2, a5], a4, n] - S2[a2, n]*S2[a1, a6, a4, a3, a5, n] - 
    S2[a1, a6, a4, a3, SP[a2, a5], n] - S2[a2, n]*S2[a1, a6, a4, a5, a3, n] - 
    S2[a1, a6, a4, a5, SP[a2, a3], n] - S2[a1, a6, a4, SP[a2, a3], a5, n] - 
    S2[a1, a6, a4, SP[a2, a5], a3, n] - S2[a2, n]*S2[a1, a6, a5, a3, a4, n] - 
    S2[a1, a6, a5, a3, SP[a2, a4], n] - S2[a2, n]*S2[a1, a6, a5, a4, a3, n] - 
    S2[a1, a6, a5, a4, SP[a2, a3], n] - S2[a1, a6, a5, SP[a2, a3], a4, n] - 
    S2[a1, a6, a5, SP[a2, a4], a3, n] - S2[a1, a6, SP[a2, a3], a4, a5, n] - 
    S2[a1, a6, SP[a2, a3], a5, a4, n] - S2[a1, a6, SP[a2, a4], a3, a5, n] - 
    S2[a1, a6, SP[a2, a4], a5, a3, n] - S2[a1, SP[a2, a3], a4, a5, a6, n] - 
    S2[a1, SP[a2, a3], a4, a6, a5, n] - S2[a1, SP[a2, a3], a5, a4, a6, n] - 
    S2[a1, SP[a2, a3], a5, a6, a4, n] - S2[a1, SP[a2, a3], a6, a4, a5, n] - 
    S2[a1, SP[a2, a3], a6, a5, a4, n] - S2[a1, SP[a2, a6], a3, a4, a5, n] - 
    S2[a1, SP[a2, a6], a3, a5, a4, n] - S2[a1, SP[a2, a6], a4, a3, a5, n] - 
    S2[a1, SP[a2, a6], a4, a5, a3, n] - S2[a1, SP[a2, a6], a5, a3, a4, n] - 
    S2[a1, SP[a2, a6], a5, a4, a3, n] - S2[a1, SP[a3, a5], a4, a2, a6, n] - 
    S2[a1, SP[a3, a5], a4, a6, a2, n] - S2[a1, SP[a3, a5], a6, a4, a2, n] + 
    S2[a1, SP[a3, a6], a2, a4, a5, n] + S2[a1, SP[a3, a6], a2, a5, a4, n] + 
    S2[a1, SP[a3, a6], a4, a2, a5, n] + S2[a1, SP[a3, a6], a4, a5, a2, n] + 
    S2[a1, SP[a3, a6], a5, a2, a4, n] + S2[a1, SP[a3, a6], a5, a4, a2, n] + 
    S2[a1, SP[a4, a6], a2, a3, a5, n] + S2[a1, SP[a4, a6], a2, a5, a3, n] + 
    S2[a1, SP[a4, a6], a3, a2, a5, n] + S2[a1, SP[a4, a6], a3, a5, a2, n] + 
    S2[a1, SP[a4, a6], a5, a2, a3, n] + S2[a1, SP[a4, a6], a5, a3, a2, n] + 
    S2[a1, SP[a5, a6], a2, a3, a4, n] + S2[a1, SP[a5, a6], a2, a4, a3, n] + 
    S2[a1, SP[a5, a6], a3, a4, a2, n] + S2[a1, SP[a5, a6], a4, a2, a3, n] + 
    S2[a1, SP[a5, a6], a4, a3, a2, n] + S2[a2, a1, a3, a5, SP[a4, a6], n] + 
    S2[a2, a1, a3, a6, SP[a4, a5], n] + S2[a2, a1, a3, SP[a4, a5], a6, n] + 
    S2[a2, a1, a3, SP[a4, a6], a5, n] + S2[a2, a1, a6, a3, SP[a4, a5], n] + 
    S2[a2, a1, a6, a5, SP[a3, a4], n] + S2[a2, a1, a6, SP[a3, a4], a5, n] + 
    S2[a2, a1, a6, SP[a4, a5], a3, n] + S2[a2, a1, SP[a3, a4], a5, a6, n] + 
    S2[a2, a1, SP[a3, a4], a6, a5, n] + S2[a2, a1, SP[a4, a6], a3, a5, n] + 
    S2[a2, a1, SP[a4, a6], a5, a3, n] - S2[a6, n]*S2[a2, a3, a1, a4, a5, n] - 
    S2[a2, a3, a1, a4, SP[a5, a6], n] - S2[a6, n]*S2[a2, a3, a1, a5, a4, n] + 
    S2[a2, a3, a1, a6, SP[a4, a5], n] + S2[a2, a3, a1, SP[a4, a5], a6, n] - 
    S2[a2, a3, a1, SP[a5, a6], a4, n] - S2[a6, n]*S2[a2, a3, a5, a1, a4, n] + 
    S2[a2, a3, a6, a1, SP[a4, a5], n] + S2[a2, a3, a6, SP[a1, a5], a4, n] + 
    S2[a2, a3, SP[a1, a5], a4, a6, n] + S2[a2, a3, SP[a1, a5], a6, a4, n] - 
    S2[a2, a3, SP[a5, a6], a1, a4, n] - S2[a5, n]*S2[a2, a6, a1, a3, a4, n] - 
    S2[a5, n]*S2[a2, a6, a1, a4, a3, n] - S2[a2, a6, a1, a4, SP[a3, a5], n] + 
    S2[a2, a6, a1, a5, SP[a3, a4], n] + S2[a2, a6, a1, SP[a3, a4], a5, n] - 
    S2[a2, a6, a1, SP[a3, a5], a4, n] + S2[a2, a6, a3, a1, SP[a4, a5], n] + 
    S2[a2, a6, a3, SP[a1, a5], a4, n] + S2[a2, a6, a5, a1, SP[a3, a4], n] + 
    S2[a2, a6, a5, SP[a1, a3], a4, n] + S2[a2, a6, SP[a1, a3], a4, a5, n] + 
    S2[a2, a6, SP[a1, a3], a5, a4, n] + S2[a2, SP[a1, a3], a4, a5, a6, n] + 
    S2[a2, SP[a1, a3], a4, a6, a5, n] + S2[a2, SP[a1, a3], a5, a4, a6, n] + 
    S2[a2, SP[a1, a3], a5, a6, a4, n] + S2[a2, SP[a1, a3], a6, a4, a5, n] + 
    S2[a2, SP[a1, a3], a6, a5, a4, n] + S2[a2, SP[a1, a6], a3, a4, a5, n] + 
    S2[a2, SP[a1, a6], a3, a5, a4, n] + S2[a2, SP[a1, a6], a4, a3, a5, n] + 
    S2[a2, SP[a1, a6], a4, a5, a3, n] + S2[a2, SP[a1, a6], a5, a3, a4, n] + 
    S2[a2, SP[a1, a6], a5, a4, a3, n] - S2[a2, SP[a3, a6], a1, a4, a5, n] - 
    S2[a2, SP[a3, a6], a1, a5, a4, n] - S2[a2, SP[a3, a6], a5, a1, a4, n] - 
    S2[a2, SP[a5, a6], a1, a3, a4, n] - S2[a2, SP[a5, a6], a1, a4, a3, n] + 
    S2[a3, a1, a4, a5, SP[a2, a6], n] + S2[a3, a1, a4, SP[a2, a5], a6, n] + 
    S2[a3, a1, a5, a4, SP[a2, a6], n] + S2[a3, a1, a5, SP[a4, a6], a2, n] + 
    S2[a3, a1, SP[a4, a5], a2, a6, n] + S2[a3, a1, SP[a4, a5], a6, a2, n] - 
    S2[a6, n]*S2[a3, a5, a1, a4, a2, n] + S2[a3, SP[a1, a5], a4, a2, a6, n] + 
    S2[a3, SP[a1, a5], a4, a6, a2, n] + S2[a3, SP[a1, a5], a6, a4, a2, n] - 
    S2[a3, SP[a5, a6], a1, a4, a2, n] + S2[a5, a1, a4, a2, SP[a3, a6], n] + 
    S2[a5, a1, a4, SP[a2, a6], a3, n] - S2[a5, a1, a6, a2, SP[a3, a4], n] - 
    S2[a5, a1, a6, SP[a2, a4], a3, n] - S2[a5, a6, a1, a2, SP[a3, a4], n] + 
    S2[a2, n]*S2[a5, a6, a1, a3, a4, n] + S2[a5, a6, a1, a3, SP[a2, a4], n] + 
    S2[a2, n]*S2[a5, a6, a1, a4, a3, n] + S2[a5, a6, a1, a4, SP[a2, a3], n] + 
    S2[a5, a6, a1, SP[a2, a3], a4, n] - S2[a5, a6, a2, a1, SP[a3, a4], n] - 
    S2[a5, a6, a2, SP[a1, a3], a4, n] - S2[a5, SP[a1, a6], a2, a3, a4, n] - 
    S2[a5, SP[a1, a6], a2, a4, a3, n] + S2[a5, SP[a2, a6], a1, a3, a4, n] + 
    S2[a5, SP[a2, a6], a1, a4, a3, n] - S2[a5, n]*S2[a6, a1, a3, a2, a4, n] - 
    S2[a6, a1, a3, a2, SP[a4, a5], n] - S2[a5, n]*S2[a6, a1, a3, a4, a2, n] - 
    S2[a6, a1, a3, a4, SP[a2, a5], n] - S2[a6, a1, a3, SP[a2, a5], a4, n] - 
    S2[a6, a1, a3, SP[a4, a5], a2, n] - S2[a5, n]*S2[a6, a1, a4, a2, a3, n] - 
    S2[a6, a1, a4, a2, SP[a3, a5], n] - S2[a5, n]*S2[a6, a1, a4, a3, a2, n] - 
    S2[a6, a1, a4, a3, SP[a2, a5], n] - S2[a6, a1, a4, SP[a2, a5], a3, n] - 
    S2[a6, a1, a4, SP[a3, a5], a2, n] - S2[a6, a1, SP[a3, a5], a2, a4, n] - 
    S2[a6, a1, SP[a3, a5], a4, a2, n] - S2[a6, a1, SP[a4, a5], a2, a3, n] - 
    S2[a6, a1, SP[a4, a5], a3, a2, n] + S2[a5, n]*S2[a6, a2, a3, a1, a4, n] + 
    S2[a6, a2, a3, a1, SP[a4, a5], n] + S2[a6, a2, a3, SP[a1, a5], a4, n] + 
    S2[a6, a2, SP[a3, a5], a1, a4, n] + S2[a3, n]*S2[a6, a5, a1, a4, a2, n] + 
    S2[a6, a5, a1, a4, SP[a2, a3], n] + S2[a6, a5, a1, SP[a3, a4], a2, n] - 
    S2[a2, n]*S2[a6, a5, a3, a1, a4, n] - S2[a6, a5, a3, a1, SP[a2, a4], n] + 
    S2[a1, n]*S2[a6, a5, a3, a2, a4, n] + S2[a6, a5, a3, a2, SP[a1, a4], n] + 
    S2[a6, a5, SP[a1, a3], a2, a4, n] + S2[a6, a5, SP[a1, a3], a4, a2, n] - 
    S2[a6, a5, SP[a2, a3], a1, a4, n] - S2[a6, SP[a1, a5], a3, a4, a2, n] - 
    S2[a6, SP[a1, a5], a4, a2, a3, n] - S2[a6, SP[a1, a5], a4, a3, a2, n] + 
    S2[a6, SP[a3, a5], a1, a4, a2, n] + S2[SP[a1, a6], a3, a2, a4, a5, n] + 
    S2[SP[a1, a6], a3, a2, a5, a4, n] + S2[SP[a1, a6], a3, a4, a2, a5, n] + 
    S2[SP[a1, a6], a3, a4, a5, a2, n] + S2[SP[a1, a6], a3, a5, a2, a4, n] + 
    S2[SP[a1, a6], a3, a5, a4, a2, n] + S2[SP[a1, a6], a4, a2, a3, a5, n] + 
    S2[SP[a1, a6], a4, a2, a5, a3, n] + S2[SP[a1, a6], a4, a3, a2, a5, n] + 
    S2[SP[a1, a6], a4, a3, a5, a2, n] + S2[SP[a1, a6], a4, a5, a2, a3, n] + 
    S2[SP[a1, a6], a4, a5, a3, a2, n] + S2[SP[a1, a6], a5, a3, a2, a4, n] + 
    S2[SP[a1, a6], a5, a3, a4, a2, n] + S2[SP[a1, a6], a5, a4, a2, a3, n] + 
    S2[SP[a1, a6], a5, a4, a3, a2, n] - S2[SP[a2, a6], a3, a1, a4, a5, n] - 
    S2[SP[a2, a6], a3, a1, a5, a4, n] - S2[SP[a2, a6], a3, a5, a1, a4, n] - 
    S2[SP[a2, a6], a5, a3, a1, a4, n] - S2[SP[a5, a6], a1, a3, a2, a4, n] - 
    S2[SP[a5, a6], a1, a3, a4, a2, n] - S2[SP[a5, a6], a1, a4, a2, a3, n] - 
    S2[SP[a5, a6], a1, a4, a3, a2, n] + S2[SP[a5, a6], a2, a3, a1, a4, n] - 
    S2[a6, a5, a3, a2, a4, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a1_, a4_, a2_, a3_, a6_, a5_, n_] :> 
  S2[a1, a4, a2, n]*S2[a3, a6, a5, n] + S2[SP[a1, a3], SP[a4, a6], 
     SP[a2, a5], n] - S2[a1, a3, SP[a4, a6], SP[a2, a5], n] - 
    S2[a5, a6, n]*S2[a1, a4, a2, a3, n] + S2[a1, a4, SP[a2, a5], SP[a3, a6], 
     n] - S2[a1, SP[a3, a4], a6, SP[a2, a5], n] - 
    S2[a1, SP[a3, a4], SP[a2, a6], a5, n] + S2[a1, SP[a4, a5], a2, 
     SP[a3, a6], n] + S2[a1, SP[a4, a5], SP[a2, a6], a3, n] - 
    S2[a1, a4, n]*S2[a2, a6, a3, a5, n] - S2[a1, a4, n]*
     S2[a2, a6, a5, a3, n] + S2[a2, a6, SP[a1, a3], SP[a4, a5], n] + 
    S2[a2, a6, SP[a1, a5], SP[a3, a4], n] + S2[a2, SP[a1, a6], a3, 
     SP[a4, a5], n] + S2[a2, SP[a1, a6], a5, SP[a3, a4], n] + 
    S2[a2, SP[a1, a6], SP[a3, a4], a5, n] + S2[a2, SP[a1, a6], SP[a4, a5], 
     a3, n] - S2[a3, a1, SP[a4, a6], SP[a2, a5], n] - 
    S2[a3, SP[a1, a6], a4, SP[a2, a5], n] - S2[a3, SP[a1, a6], SP[a4, a5], 
     a2, n] + S2[a1, a4, n]*S2[a5, a6, a2, a3, n] - 
    S2[a5, a6, SP[a1, a2], SP[a3, a4], n] - S2[a5, SP[a1, a6], a2, 
     SP[a3, a4], n] - S2[a5, SP[a1, a6], SP[a2, a4], a3, n] + 
    S2[SP[a1, a2], a6, a3, SP[a4, a5], n] + S2[SP[a1, a2], a6, a5, 
     SP[a3, a4], n] + S2[SP[a1, a2], a6, SP[a3, a4], a5, n] + 
    S2[SP[a1, a2], a6, SP[a4, a5], a3, n] + S2[SP[a1, a2], SP[a4, a6], a3, 
     a5, n] + S2[SP[a1, a2], SP[a4, a6], a5, a3, n] - 
    S2[SP[a1, a3], a4, a6, SP[a2, a5], n] - S2[SP[a1, a3], a4, SP[a2, a6], 
     a5, n] - S2[SP[a1, a3], a6, a4, SP[a2, a5], n] - 
    S2[SP[a1, a3], a6, SP[a4, a5], a2, n] - S2[SP[a1, a3], SP[a4, a6], a2, 
     a5, n] - S2[SP[a1, a3], SP[a4, a6], a5, a2, n] + 
    S2[SP[a1, a5], a4, a2, SP[a3, a6], n] + S2[SP[a1, a5], a4, SP[a2, a6], 
     a3, n] - S2[SP[a1, a5], a6, a2, SP[a3, a4], n] - 
    S2[SP[a1, a5], a6, SP[a2, a4], a3, n] - S2[a1, a2, a6, a3, SP[a4, a5], 
     n] - S2[a1, a2, a6, a5, SP[a3, a4], n] - S2[a1, a2, a6, SP[a3, a4], a5, 
     n] - S2[a1, a2, a6, SP[a4, a5], a3, n] - S2[a1, a2, SP[a4, a6], a3, a5, 
     n] - S2[a1, a2, SP[a4, a6], a5, a3, n] + S2[a1, a3, a4, a6, SP[a2, a5], 
     n] + S2[a1, a3, a4, SP[a2, a6], a5, n] + S2[a1, a3, a6, a4, SP[a2, a5], 
     n] + S2[a1, a3, a6, SP[a4, a5], a2, n] + S2[a1, a3, SP[a4, a6], a2, a5, 
     n] + S2[a1, a3, SP[a4, a6], a5, a2, n] + 
    S2[a5, n]*S2[a1, a4, a2, a3, a6, n] + S2[a1, a4, a2, a3, SP[a5, a6], n] - 
    S2[a1, a4, a2, a5, SP[a3, a6], n] + S2[a5, n]*S2[a1, a4, a2, a6, a3, n] - 
    S2[a3, n]*S2[a1, a4, a2, a6, a5, n] - S2[a1, a4, a2, SP[a3, a6], a5, n] + 
    S2[a1, a4, a2, SP[a5, a6], a3, n] + S2[a1, a4, a3, a6, SP[a2, a5], n] + 
    S2[a1, a4, a3, SP[a2, a6], a5, n] - S2[a1, a4, a5, a2, SP[a3, a6], n] - 
    S2[a1, a4, a5, SP[a2, a6], a3, n] - S2[a3, n]*S2[a1, a4, a6, a2, a5, n] - 
    S2[a1, a4, a6, a2, SP[a3, a5], n] + S2[a2, n]*S2[a1, a4, a6, a3, a5, n] + 
    S2[a1, a4, a6, a3, SP[a2, a5], n] - S2[a3, n]*S2[a1, a4, a6, a5, a2, n] + 
    S2[a2, n]*S2[a1, a4, a6, a5, a3, n] + S2[a1, a4, a6, SP[a2, a5], a3, n] - 
    S2[a1, a4, a6, SP[a3, a5], a2, n] + S2[a1, a4, SP[a2, a6], a3, a5, n] + 
    S2[a1, a4, SP[a2, a6], a5, a3, n] - S2[a1, a4, SP[a3, a6], a2, a5, n] - 
    S2[a1, a4, SP[a3, a6], a5, a2, n] - S2[a1, a5, a4, a2, SP[a3, a6], n] - 
    S2[a1, a5, a4, SP[a2, a6], a3, n] + S2[a1, a5, a6, a2, SP[a3, a4], n] + 
    S2[a1, a5, a6, SP[a2, a4], a3, n] - S2[a5, n]*S2[a1, a6, a2, a3, a4, n] - 
    S2[a1, a6, a2, a3, SP[a4, a5], n] - S2[a5, n]*S2[a1, a6, a2, a4, a3, n] - 
    S2[a1, a6, a2, a4, SP[a3, a5], n] - S2[a1, a6, a2, SP[a3, a5], a4, n] - 
    S2[a1, a6, a2, SP[a4, a5], a3, n] + S2[a2, n]*S2[a1, a6, a3, a4, a5, n] + 
    S2[a1, a6, a3, a4, SP[a2, a5], n] + S2[a2, n]*S2[a1, a6, a3, a5, a4, n] + 
    S2[a1, a6, a3, a5, SP[a2, a4], n] + S2[a1, a6, a3, SP[a2, a4], a5, n] + 
    S2[a1, a6, a3, SP[a2, a5], a4, n] - S2[a3, n]*S2[a1, a6, a4, a2, a5, n] - 
    S2[a1, a6, a4, a2, SP[a3, a5], n] + S2[a2, n]*S2[a1, a6, a4, a3, a5, n] + 
    S2[a1, a6, a4, a3, SP[a2, a5], n] - S2[a3, n]*S2[a1, a6, a4, a5, a2, n] + 
    S2[a2, n]*S2[a1, a6, a4, a5, a3, n] + S2[a1, a6, a4, SP[a2, a5], a3, n] - 
    S2[a1, a6, a4, SP[a3, a5], a2, n] + S2[a2, n]*S2[a1, a6, a5, a3, a4, n] + 
    S2[a1, a6, a5, a3, SP[a2, a4], n] - S2[a3, n]*S2[a1, a6, a5, a4, a2, n] + 
    S2[a2, n]*S2[a1, a6, a5, a4, a3, n] + S2[a1, a6, a5, SP[a2, a3], a4, n] + 
    S2[a1, a6, a5, SP[a2, a4], a3, n] - S2[a1, a6, a5, SP[a3, a4], a2, n] + 
    S2[a1, a6, SP[a2, a3], a4, a5, n] + S2[a1, a6, SP[a2, a3], a5, a4, n] + 
    S2[a1, a6, SP[a2, a4], a3, a5, n] + S2[a1, a6, SP[a2, a4], a5, a3, n] - 
    S2[a1, a6, SP[a3, a4], a2, a5, n] - S2[a1, a6, SP[a3, a4], a5, a2, n] - 
    S2[a1, a6, SP[a3, a5], a4, a2, n] + S2[a1, SP[a2, a6], a3, a4, a5, n] + 
    S2[a1, SP[a2, a6], a3, a5, a4, n] + S2[a1, SP[a2, a6], a4, a3, a5, n] + 
    S2[a1, SP[a2, a6], a4, a5, a3, n] + S2[a1, SP[a2, a6], a5, a3, a4, n] + 
    S2[a1, SP[a2, a6], a5, a4, a3, n] - S2[a1, SP[a3, a6], a4, a2, a5, n] - 
    S2[a1, SP[a3, a6], a4, a5, a2, n] - S2[a1, SP[a3, a6], a5, a4, a2, n] - 
    S2[a1, SP[a5, a6], a2, a3, a4, n] - S2[a1, SP[a5, a6], a2, a4, a3, n] - 
    S2[a2, a1, a6, a3, SP[a4, a5], n] - S2[a2, a1, a6, a5, SP[a3, a4], n] - 
    S2[a2, a1, a6, SP[a3, a4], a5, n] - S2[a2, a1, a6, SP[a4, a5], a3, n] - 
    S2[a2, a1, SP[a4, a6], a3, a5, n] - S2[a2, a1, SP[a4, a6], a5, a3, n] + 
    S2[a5, n]*S2[a2, a6, a1, a3, a4, n] + 
    S2[a5, n]*S2[a2, a6, a1, a4, a3, n] + S2[a2, a6, a1, a4, SP[a3, a5], n] - 
    S2[a2, a6, a1, a5, SP[a3, a4], n] - S2[a2, a6, a1, SP[a3, a4], a5, n] + 
    S2[a2, a6, a1, SP[a3, a5], a4, n] - S2[a2, a6, a3, a1, SP[a4, a5], n] - 
    S2[a2, a6, a3, SP[a1, a5], a4, n] - S2[a2, a6, a5, a1, SP[a3, a4], n] - 
    S2[a2, a6, a5, SP[a1, a3], a4, n] - S2[a2, a6, SP[a1, a3], a4, a5, n] - 
    S2[a2, a6, SP[a1, a3], a5, a4, n] - S2[a2, SP[a1, a6], a3, a4, a5, n] - 
    S2[a2, SP[a1, a6], a3, a5, a4, n] - S2[a2, SP[a1, a6], a4, a3, a5, n] - 
    S2[a2, SP[a1, a6], a4, a5, a3, n] - S2[a2, SP[a1, a6], a5, a3, a4, n] - 
    S2[a2, SP[a1, a6], a5, a4, a3, n] + S2[a2, SP[a5, a6], a1, a3, a4, n] + 
    S2[a2, SP[a5, a6], a1, a4, a3, n] + S2[a3, a1, a4, a6, SP[a2, a5], n] + 
    S2[a3, a1, a4, SP[a2, a6], a5, n] + S2[a3, a1, a6, a4, SP[a2, a5], n] + 
    S2[a3, a1, a6, SP[a4, a5], a2, n] + S2[a3, a1, SP[a4, a6], a2, a5, n] + 
    S2[a3, a1, SP[a4, a6], a5, a2, n] + S2[a3, a6, a1, a4, SP[a2, a5], n] + 
    S2[a3, a6, a1, SP[a4, a5], a2, n] + S2[a3, a6, SP[a1, a5], a4, a2, n] + 
    S2[a3, SP[a1, a6], a4, a2, a5, n] + S2[a3, SP[a1, a6], a4, a5, a2, n] + 
    S2[a3, SP[a1, a6], a5, a4, a2, n] - S2[a5, a1, a4, a2, SP[a3, a6], n] - 
    S2[a5, a1, a4, SP[a2, a6], a3, n] + S2[a5, a1, a6, a2, SP[a3, a4], n] + 
    S2[a5, a1, a6, SP[a2, a4], a3, n] + S2[a5, a6, a1, a2, SP[a3, a4], n] - 
    S2[a2, n]*S2[a5, a6, a1, a3, a4, n] - S2[a5, a6, a1, a3, SP[a2, a4], n] - 
    S2[a2, n]*S2[a5, a6, a1, a4, a3, n] - S2[a5, a6, a1, a4, SP[a2, a3], n] - 
    S2[a5, a6, a1, SP[a2, a3], a4, n] + S2[a5, a6, a2, a1, SP[a3, a4], n] + 
    S2[a5, a6, a2, SP[a1, a3], a4, n] + S2[a5, SP[a1, a6], a2, a3, a4, n] + 
    S2[a5, SP[a1, a6], a2, a4, a3, n] - S2[a5, SP[a2, a6], a1, a3, a4, n] - 
    S2[a5, SP[a2, a6], a1, a4, a3, n] + S2[a5, n]*S2[a6, a1, a3, a2, a4, n] + 
    S2[a6, a1, a3, a2, SP[a4, a5], n] + S2[a5, n]*S2[a6, a1, a3, a4, a2, n] + 
    S2[a6, a1, a3, a4, SP[a2, a5], n] + S2[a6, a1, a3, SP[a2, a5], a4, n] + 
    S2[a6, a1, a3, SP[a4, a5], a2, n] + S2[a5, n]*S2[a6, a1, a4, a2, a3, n] - 
    S2[a3, n]*S2[a6, a1, a4, a2, a5, n] + 
    S2[a5, n]*S2[a6, a1, a4, a3, a2, n] + S2[a6, a1, a4, a3, SP[a2, a5], n] - 
    S2[a3, n]*S2[a6, a1, a4, a5, a2, n] - S2[a6, a1, a4, a5, SP[a2, a3], n] - 
    S2[a6, a1, a4, SP[a2, a3], a5, n] + S2[a6, a1, a4, SP[a2, a5], a3, n] - 
    S2[a3, n]*S2[a6, a1, a5, a4, a2, n] - S2[a6, a1, a5, a4, SP[a2, a3], n] - 
    S2[a6, a1, a5, SP[a3, a4], a2, n] - S2[a6, a1, SP[a3, a4], a2, a5, n] - 
    S2[a6, a1, SP[a3, a4], a5, a2, n] + S2[a6, a1, SP[a3, a5], a2, a4, n] + 
    S2[a6, a1, SP[a4, a5], a2, a3, n] + S2[a6, a1, SP[a4, a5], a3, a2, n] - 
    S2[a5, n]*S2[a6, a2, a3, a1, a4, n] - S2[a6, a2, a3, a1, SP[a4, a5], n] - 
    S2[a6, a2, a3, SP[a1, a5], a4, n] - S2[a6, a2, SP[a3, a5], a1, a4, n] + 
    S2[a2, n]*S2[a6, a3, a1, a4, a5, n] + S2[a6, a3, a1, a4, SP[a2, a5], n] + 
    S2[a2, n]*S2[a6, a3, a1, a5, a4, n] + S2[a6, a3, a1, a5, SP[a2, a4], n] + 
    S2[a6, a3, a1, SP[a2, a4], a5, n] + S2[a6, a3, a1, SP[a2, a5], a4, n] - 
    S2[a1, n]*S2[a6, a3, a2, a4, a5, n] - S2[a6, a3, a2, a4, SP[a1, a5], n] - 
    S2[a1, n]*S2[a6, a3, a2, a5, a4, n] - S2[a6, a3, a2, a5, SP[a1, a4], n] - 
    S2[a6, a3, a2, SP[a1, a4], a5, n] - S2[a6, a3, a2, SP[a1, a5], a4, n] + 
    S2[a2, n]*S2[a6, a3, a5, a1, a4, n] + S2[a6, a3, a5, a1, SP[a2, a4], n] - 
    S2[a1, n]*S2[a6, a3, a5, a2, a4, n] - S2[a6, a3, a5, a2, SP[a1, a4], n] - 
    S2[a6, a3, SP[a1, a5], a2, a4, n] + S2[a6, a3, SP[a2, a5], a1, a4, n] - 
    S2[a3, n]*S2[a6, a5, a1, a4, a2, n] - S2[a6, a5, a1, a4, SP[a2, a3], n] - 
    S2[a6, a5, a1, SP[a3, a4], a2, n] + S2[a2, n]*S2[a6, a5, a3, a1, a4, n] + 
    S2[a6, a5, a3, a1, SP[a2, a4], n] - S2[a1, n]*S2[a6, a5, a3, a2, a4, n] - 
    S2[a6, a5, a3, a2, SP[a1, a4], n] - S2[a6, a5, SP[a1, a3], a2, a4, n] - 
    S2[a6, a5, SP[a1, a3], a4, a2, n] + S2[a6, a5, SP[a2, a3], a1, a4, n] - 
    S2[a6, SP[a1, a3], a2, a4, a5, n] - S2[a6, SP[a1, a3], a2, a5, a4, n] - 
    S2[a6, SP[a1, a3], a4, a2, a5, n] - S2[a6, SP[a1, a3], a4, a5, a2, n] - 
    S2[a6, SP[a1, a3], a5, a2, a4, n] - S2[a6, SP[a1, a3], a5, a4, a2, n] + 
    S2[a6, SP[a1, a5], a3, a4, a2, n] + S2[a6, SP[a1, a5], a4, a2, a3, n] + 
    S2[a6, SP[a1, a5], a4, a3, a2, n] + S2[a6, SP[a2, a3], a1, a4, a5, n] + 
    S2[a6, SP[a2, a3], a1, a5, a4, n] + S2[a6, SP[a2, a3], a5, a1, a4, n] - 
    S2[a6, SP[a3, a5], a1, a4, a2, n] - S2[SP[a1, a6], a3, a2, a4, a5, n] - 
    S2[SP[a1, a6], a3, a2, a5, a4, n] - S2[SP[a1, a6], a3, a5, a2, a4, n] - 
    S2[SP[a1, a6], a5, a3, a2, a4, n] + S2[SP[a2, a6], a3, a1, a4, a5, n] + 
    S2[SP[a2, a6], a3, a1, a5, a4, n] + S2[SP[a2, a6], a3, a5, a1, a4, n] + 
    S2[SP[a2, a6], a5, a3, a1, a4, n] - S2[SP[a3, a6], a1, a4, a2, a5, n] - 
    S2[SP[a3, a6], a1, a4, a5, a2, n] - S2[SP[a3, a6], a1, a5, a4, a2, n] - 
    S2[SP[a3, a6], a5, a1, a4, a2, n] + S2[SP[a5, a6], a1, a3, a2, a4, n] + 
    S2[SP[a5, a6], a1, a3, a4, a2, n] + S2[SP[a5, a6], a1, a4, a2, a3, n] + 
    S2[SP[a5, a6], a1, a4, a3, a2, n] - S2[SP[a5, a6], a2, a3, a1, a4, n] + 
    S2[a6, a3, a2, a4, a1, a5, n] + S2[a6, a3, a2, a4, a5, a1, n] + 
    S2[a6, a3, a2, a5, a4, a1, n] + S2[a6, a3, a5, a2, a4, a1, n] + 
    S2[a6, a5, a3, a2, a4, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a1_, a4_, a2_, a5_, a3_, a6_, n_] :> 
  -(S2[a1, a4, a2, n]*S2[a3, a5, a6, n]) - S2[a1, a4, a2, n]*
     S2[a3, a6, a5, n] - S2[SP[a1, a3], SP[a4, a5], SP[a2, a6], n] - 
    S2[SP[a1, a3], SP[a4, a6], SP[a2, a5], n] + S2[a1, a3, SP[a4, a5], 
     SP[a2, a6], n] + S2[a1, a3, SP[a4, a6], SP[a2, a5], n] + 
    S2[a3, a6, n]*S2[a1, a4, a2, a5, n] - S2[a1, a4, SP[a2, a3], SP[a5, a6], 
     n] - S2[a1, SP[a3, a4], a2, SP[a5, a6], n] + S2[a1, SP[a3, a4], a5, 
     SP[a2, a6], n] + S2[a1, SP[a3, a4], a6, SP[a2, a5], n] + 
    S2[a1, SP[a3, a4], SP[a2, a5], a6, n] + S2[a1, a4, n]*
     S2[a2, a5, a3, a6, n] + S2[a1, a4, n]*S2[a2, a5, a6, a3, n] - 
    S2[a2, a5, SP[a1, a3], SP[a4, a6], n] - S2[a2, a5, SP[a1, a6], 
     SP[a3, a4], n] + S2[a1, a4, n]*S2[a2, a6, a3, a5, n] + 
    S2[a1, a4, n]*S2[a2, a6, a5, a3, n] - S2[a2, a6, SP[a1, a3], SP[a4, a5], 
     n] - S2[a2, a6, SP[a1, a5], SP[a3, a4], n] - S2[a2, SP[a1, a5], a3, 
     SP[a4, a6], n] - S2[a2, SP[a1, a5], a6, SP[a3, a4], n] - 
    S2[a2, SP[a1, a5], SP[a3, a4], a6, n] - S2[a2, SP[a1, a5], SP[a4, a6], 
     a3, n] - S2[a2, SP[a1, a6], a3, SP[a4, a5], n] - 
    S2[a2, SP[a1, a6], a5, SP[a3, a4], n] - S2[a2, SP[a1, a6], SP[a3, a4], 
     a5, n] - S2[a2, SP[a1, a6], SP[a4, a5], a3, n] + 
    S2[a3, a1, SP[a4, a5], SP[a2, a6], n] + S2[a3, a1, SP[a4, a6], 
     SP[a2, a5], n] - S2[a1, a4, n]*S2[a3, a6, a2, a5, n] + 
    S2[a3, a6, SP[a1, a2], SP[a4, a5], n] + S2[a3, SP[a1, a5], a4, 
     SP[a2, a6], n] + S2[a3, SP[a1, a5], SP[a4, a6], a2, n] + 
    S2[a3, SP[a1, a6], a2, SP[a4, a5], n] + S2[a3, SP[a1, a6], a4, 
     SP[a2, a5], n] + S2[a3, SP[a1, a6], SP[a2, a4], a5, n] + 
    S2[a3, SP[a1, a6], SP[a4, a5], a2, n] - S2[SP[a1, a2], a5, a3, 
     SP[a4, a6], n] - S2[SP[a1, a2], a5, a6, SP[a3, a4], n] - 
    S2[SP[a1, a2], a5, SP[a3, a4], a6, n] - S2[SP[a1, a2], a5, SP[a4, a6], 
     a3, n] - S2[SP[a1, a2], a6, a3, SP[a4, a5], n] - 
    S2[SP[a1, a2], a6, a5, SP[a3, a4], n] - S2[SP[a1, a2], a6, SP[a3, a4], 
     a5, n] - S2[SP[a1, a2], a6, SP[a4, a5], a3, n] - 
    S2[SP[a1, a2], SP[a4, a5], a3, a6, n] - S2[SP[a1, a2], SP[a4, a5], a6, 
     a3, n] - S2[SP[a1, a2], SP[a4, a6], a3, a5, n] - 
    S2[SP[a1, a2], SP[a4, a6], a5, a3, n] - S2[SP[a1, a3], a4, a2, 
     SP[a5, a6], n] + S2[SP[a1, a3], a4, a5, SP[a2, a6], n] + 
    S2[SP[a1, a3], a4, a6, SP[a2, a5], n] + S2[SP[a1, a3], a4, SP[a2, a5], 
     a6, n] + S2[SP[a1, a3], a5, a4, SP[a2, a6], n] + 
    S2[SP[a1, a3], a5, SP[a4, a6], a2, n] + S2[SP[a1, a3], a6, a2, 
     SP[a4, a5], n] + S2[SP[a1, a3], a6, a4, SP[a2, a5], n] + 
    S2[SP[a1, a3], a6, SP[a2, a4], a5, n] + S2[SP[a1, a3], a6, SP[a4, a5], 
     a2, n] + S2[SP[a1, a3], SP[a4, a5], a2, a6, n] + 
    S2[SP[a1, a3], SP[a4, a5], a6, a2, n] + S2[SP[a1, a3], SP[a4, a6], a2, 
     a5, n] + S2[SP[a1, a3], SP[a4, a6], a5, a2, n] + 
    S2[a1, a2, a5, a3, SP[a4, a6], n] + S2[a1, a2, a5, a6, SP[a3, a4], n] + 
    S2[a1, a2, a5, SP[a3, a4], a6, n] + S2[a1, a2, a5, SP[a4, a6], a3, n] + 
    S2[a1, a2, a6, a3, SP[a4, a5], n] + S2[a1, a2, a6, a5, SP[a3, a4], n] + 
    S2[a1, a2, a6, SP[a3, a4], a5, n] + S2[a1, a2, a6, SP[a4, a5], a3, n] + 
    S2[a1, a2, SP[a4, a5], a3, a6, n] + S2[a1, a2, SP[a4, a5], a6, a3, n] + 
    S2[a1, a2, SP[a4, a6], a3, a5, n] + S2[a1, a2, SP[a4, a6], a5, a3, n] + 
    S2[a1, a3, a4, a2, SP[a5, a6], n] - S2[a1, a3, a4, a5, SP[a2, a6], n] - 
    S2[a1, a3, a4, a6, SP[a2, a5], n] - S2[a1, a3, a4, SP[a2, a5], a6, n] - 
    S2[a1, a3, a5, a4, SP[a2, a6], n] - S2[a1, a3, a5, SP[a4, a6], a2, n] - 
    S2[a1, a3, a6, a2, SP[a4, a5], n] - S2[a1, a3, a6, a4, SP[a2, a5], n] - 
    S2[a1, a3, a6, SP[a2, a4], a5, n] - S2[a1, a3, a6, SP[a4, a5], a2, n] - 
    S2[a1, a3, SP[a4, a5], a2, a6, n] - S2[a1, a3, SP[a4, a5], a6, a2, n] - 
    S2[a1, a3, SP[a4, a6], a2, a5, n] - S2[a1, a3, SP[a4, a6], a5, a2, n] + 
    S2[a1, a4, a2, a3, SP[a5, a6], n] + S2[a1, a4, a2, SP[a3, a5], a6, n] + 
    S2[a1, a4, a3, a2, SP[a5, a6], n] - S2[a1, a4, a3, a5, SP[a2, a6], n] - 
    S2[a1, a4, a3, a6, SP[a2, a5], n] - S2[a1, a4, a3, SP[a2, a5], a6, n] + 
    S2[a3, n]*S2[a1, a4, a5, a2, a6, n] + S2[a1, a4, a5, a2, SP[a3, a6], n] - 
    S2[a2, n]*S2[a1, a4, a5, a3, a6, n] - S2[a1, a4, a5, a3, SP[a2, a6], n] + 
    S2[a3, n]*S2[a1, a4, a5, a6, a2, n] - 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] - S2[a1, a4, a5, SP[a2, a6], a3, n] + 
    S2[a1, a4, a5, SP[a3, a6], a2, n] + S2[a3, n]*S2[a1, a4, a6, a2, a5, n] + 
    S2[a1, a4, a6, a2, SP[a3, a5], n] - S2[a2, n]*S2[a1, a4, a6, a3, a5, n] - 
    S2[a1, a4, a6, a3, SP[a2, a5], n] + S2[a3, n]*S2[a1, a4, a6, a5, a2, n] - 
    S2[a2, n]*S2[a1, a4, a6, a5, a3, n] - S2[a1, a4, a6, SP[a2, a5], a3, n] + 
    S2[a1, a4, a6, SP[a3, a5], a2, n] - S2[a1, a4, SP[a2, a5], a3, a6, n] - 
    S2[a1, a4, SP[a2, a5], a6, a3, n] - S2[a1, a4, SP[a2, a6], a3, a5, n] - 
    S2[a1, a4, SP[a2, a6], a5, a3, n] + S2[a1, a4, SP[a3, a5], a2, a6, n] + 
    S2[a1, a4, SP[a3, a5], a6, a2, n] + S2[a1, a4, SP[a3, a6], a2, a5, n] + 
    S2[a1, a4, SP[a3, a6], a5, a2, n] + S2[a6, n]*S2[a1, a5, a2, a3, a4, n] + 
    S2[a1, a5, a2, a3, SP[a4, a6], n] + S2[a6, n]*S2[a1, a5, a2, a4, a3, n] + 
    S2[a1, a5, a2, a4, SP[a3, a6], n] + S2[a1, a5, a2, SP[a3, a6], a4, n] + 
    S2[a1, a5, a2, SP[a4, a6], a3, n] + S2[a6, n]*S2[a1, a5, a3, a2, a4, n] + 
    S2[a1, a5, a3, a2, SP[a4, a6], n] - S2[a2, n]*S2[a1, a5, a3, a4, a6, n] - 
    S2[a1, a5, a3, a4, SP[a2, a6], n] - S2[a2, n]*S2[a1, a5, a3, a6, a4, n] - 
    S2[a1, a5, a3, a6, SP[a2, a4], n] - S2[a1, a5, a3, SP[a2, a4], a6, n] + 
    S2[a3, n]*S2[a1, a5, a4, a2, a6, n] + S2[a1, a5, a4, a2, SP[a3, a6], n] - 
    S2[a2, n]*S2[a1, a5, a4, a3, a6, n] - S2[a1, a5, a4, a3, SP[a2, a6], n] + 
    S2[a3, n]*S2[a1, a5, a4, a6, a2, n] - 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] - S2[a1, a5, a4, SP[a2, a6], a3, n] + 
    S2[a1, a5, a4, SP[a3, a6], a2, n] - S2[a2, n]*S2[a1, a5, a6, a3, a4, n] - 
    S2[a1, a5, a6, a3, SP[a2, a4], n] + S2[a3, n]*S2[a1, a5, a6, a4, a2, n] - 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] - S2[a1, a5, a6, SP[a2, a3], a4, n] - 
    S2[a1, a5, a6, SP[a2, a4], a3, n] + S2[a1, a5, a6, SP[a3, a4], a2, n] - 
    S2[a1, a5, SP[a2, a3], a4, a6, n] - S2[a1, a5, SP[a2, a3], a6, a4, n] - 
    S2[a1, a5, SP[a2, a4], a3, a6, n] - S2[a1, a5, SP[a2, a4], a6, a3, n] + 
    S2[a1, a5, SP[a3, a4], a2, a6, n] + S2[a1, a5, SP[a3, a4], a6, a2, n] + 
    S2[a1, a5, SP[a3, a6], a2, a4, n] + S2[a1, a5, SP[a3, a6], a4, a2, n] + 
    S2[a3, n]*S2[a1, a6, a2, a4, a5, n] + S2[a1, a6, a2, a4, SP[a3, a5], n] + 
    S2[a3, n]*S2[a1, a6, a2, a5, a4, n] + S2[a1, a6, a2, a5, SP[a3, a4], n] + 
    S2[a1, a6, a2, SP[a3, a4], a5, n] + S2[a1, a6, a2, SP[a3, a5], a4, n] - 
    S2[a2, n]*S2[a1, a6, a3, a4, a5, n] - S2[a1, a6, a3, a4, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a6, a3, a5, a4, n] - S2[a1, a6, a3, a5, SP[a2, a4], n] - 
    S2[a1, a6, a3, SP[a2, a4], a5, n] - S2[a1, a6, a3, SP[a2, a5], a4, n] + 
    S2[a3, n]*S2[a1, a6, a4, a2, a5, n] + S2[a1, a6, a4, a2, SP[a3, a5], n] - 
    S2[a2, n]*S2[a1, a6, a4, a3, a5, n] - S2[a1, a6, a4, a3, SP[a2, a5], n] + 
    S2[a3, n]*S2[a1, a6, a4, a5, a2, n] - 
    S2[a2, n]*S2[a1, a6, a4, a5, a3, n] - S2[a1, a6, a4, SP[a2, a5], a3, n] + 
    S2[a1, a6, a4, SP[a3, a5], a2, n] - S2[a2, n]*S2[a1, a6, a5, a3, a4, n] - 
    S2[a1, a6, a5, a3, SP[a2, a4], n] + S2[a3, n]*S2[a1, a6, a5, a4, a2, n] - 
    S2[a2, n]*S2[a1, a6, a5, a4, a3, n] - S2[a1, a6, a5, SP[a2, a3], a4, n] - 
    S2[a1, a6, a5, SP[a2, a4], a3, n] + S2[a1, a6, a5, SP[a3, a4], a2, n] - 
    S2[a1, a6, SP[a2, a4], a3, a5, n] - S2[a1, a6, SP[a2, a4], a5, a3, n] - 
    S2[a1, a6, SP[a2, a5], a3, a4, n] - S2[a1, a6, SP[a2, a5], a4, a3, n] + 
    S2[a1, a6, SP[a3, a4], a2, a5, n] + S2[a1, a6, SP[a3, a4], a5, a2, n] + 
    S2[a1, a6, SP[a3, a5], a4, a2, n] - S2[a1, SP[a2, a5], a3, a4, a6, n] - 
    S2[a1, SP[a2, a5], a3, a6, a4, n] - S2[a1, SP[a2, a5], a4, a3, a6, n] - 
    S2[a1, SP[a2, a5], a4, a6, a3, n] - S2[a1, SP[a2, a5], a6, a3, a4, n] - 
    S2[a1, SP[a2, a5], a6, a4, a3, n] - S2[a1, SP[a2, a6], a3, a4, a5, n] - 
    S2[a1, SP[a2, a6], a3, a5, a4, n] - S2[a1, SP[a2, a6], a4, a3, a5, n] - 
    S2[a1, SP[a2, a6], a4, a5, a3, n] - S2[a1, SP[a2, a6], a5, a3, a4, n] - 
    S2[a1, SP[a2, a6], a5, a4, a3, n] + S2[a1, SP[a3, a5], a4, a2, a6, n] + 
    S2[a1, SP[a3, a5], a4, a6, a2, n] + S2[a1, SP[a3, a5], a6, a4, a2, n] + 
    S2[a1, SP[a3, a6], a2, a4, a5, n] + S2[a1, SP[a3, a6], a2, a5, a4, n] + 
    S2[a1, SP[a3, a6], a4, a2, a5, n] + S2[a1, SP[a3, a6], a4, a5, a2, n] + 
    S2[a1, SP[a3, a6], a5, a4, a2, n] + S2[a1, SP[a5, a6], a2, a3, a4, n] + 
    S2[a1, SP[a5, a6], a2, a4, a3, n] + S2[a1, SP[a5, a6], a3, a2, a4, n] + 
    S2[a2, a1, a5, a3, SP[a4, a6], n] + S2[a2, a1, a5, a6, SP[a3, a4], n] + 
    S2[a2, a1, a5, SP[a3, a4], a6, n] + S2[a2, a1, a5, SP[a4, a6], a3, n] + 
    S2[a2, a1, a6, a3, SP[a4, a5], n] + S2[a2, a1, a6, a5, SP[a3, a4], n] + 
    S2[a2, a1, a6, SP[a3, a4], a5, n] + S2[a2, a1, a6, SP[a4, a5], a3, n] + 
    S2[a2, a1, SP[a4, a5], a3, a6, n] + S2[a2, a1, SP[a4, a5], a6, a3, n] + 
    S2[a2, a1, SP[a4, a6], a3, a5, n] + S2[a2, a1, SP[a4, a6], a5, a3, n] - 
    S2[a6, n]*S2[a2, a5, a1, a3, a4, n] - 
    S2[a6, n]*S2[a2, a5, a1, a4, a3, n] - S2[a2, a5, a1, a4, SP[a3, a6], n] + 
    S2[a2, a5, a1, a6, SP[a3, a4], n] + S2[a2, a5, a1, SP[a3, a4], a6, n] - 
    S2[a2, a5, a1, SP[a3, a6], a4, n] - S2[a6, n]*S2[a2, a5, a3, a1, a4, n] + 
    S2[a2, a5, a6, a1, SP[a3, a4], n] + S2[a2, a5, a6, SP[a1, a3], a4, n] + 
    S2[a2, a5, SP[a1, a3], a4, a6, n] + S2[a2, a5, SP[a1, a3], a6, a4, n] - 
    S2[a2, a5, SP[a3, a6], a1, a4, n] + S2[a2, a6, a1, a3, SP[a4, a5], n] - 
    S2[a3, n]*S2[a2, a6, a1, a4, a5, n] - S2[a2, a6, a1, a4, SP[a3, a5], n] - 
    S2[a3, n]*S2[a2, a6, a1, a5, a4, n] - S2[a2, a6, a1, SP[a3, a5], a4, n] + 
    S2[a2, a6, a1, SP[a4, a5], a3, n] + S2[a2, a6, a3, a1, SP[a4, a5], n] + 
    S2[a2, a6, a3, SP[a1, a5], a4, n] + S2[a2, a6, a5, a1, SP[a3, a4], n] + 
    S2[a2, a6, a5, SP[a1, a3], a4, n] + S2[a2, a6, SP[a1, a5], a3, a4, n] + 
    S2[a2, a6, SP[a1, a5], a4, a3, n] + S2[a2, SP[a1, a5], a3, a4, a6, n] + 
    S2[a2, SP[a1, a5], a3, a6, a4, n] + S2[a2, SP[a1, a5], a4, a3, a6, n] + 
    S2[a2, SP[a1, a5], a4, a6, a3, n] + S2[a2, SP[a1, a5], a6, a3, a4, n] + 
    S2[a2, SP[a1, a5], a6, a4, a3, n] + S2[a2, SP[a1, a6], a3, a4, a5, n] + 
    S2[a2, SP[a1, a6], a3, a5, a4, n] + S2[a2, SP[a1, a6], a4, a3, a5, n] + 
    S2[a2, SP[a1, a6], a4, a5, a3, n] + S2[a2, SP[a1, a6], a5, a3, a4, n] + 
    S2[a2, SP[a1, a6], a5, a4, a3, n] - S2[a2, SP[a3, a6], a1, a4, a5, n] - 
    S2[a2, SP[a3, a6], a1, a5, a4, n] - S2[a2, SP[a5, a6], a1, a3, a4, n] - 
    S2[a2, SP[a5, a6], a1, a4, a3, n] - S2[a2, SP[a5, a6], a3, a1, a4, n] + 
    S2[a3, a1, a4, a2, SP[a5, a6], n] - S2[a3, a1, a4, a5, SP[a2, a6], n] - 
    S2[a3, a1, a4, a6, SP[a2, a5], n] - S2[a3, a1, a4, SP[a2, a5], a6, n] - 
    S2[a3, a1, a5, a4, SP[a2, a6], n] - S2[a3, a1, a5, SP[a4, a6], a2, n] - 
    S2[a3, a1, a6, a2, SP[a4, a5], n] - S2[a3, a1, a6, a4, SP[a2, a5], n] - 
    S2[a3, a1, a6, SP[a2, a4], a5, n] - S2[a3, a1, a6, SP[a4, a5], a2, n] - 
    S2[a3, a1, SP[a4, a5], a2, a6, n] - S2[a3, a1, SP[a4, a5], a6, a2, n] - 
    S2[a3, a1, SP[a4, a6], a2, a5, n] - S2[a3, a1, SP[a4, a6], a5, a2, n] + 
    S2[a6, n]*S2[a3, a5, a1, a4, a2, n] - S2[a3, a6, a1, a2, SP[a4, a5], n] + 
    S2[a2, n]*S2[a3, a6, a1, a4, a5, n] + 
    S2[a2, n]*S2[a3, a6, a1, a5, a4, n] + S2[a3, a6, a1, a5, SP[a2, a4], n] + 
    S2[a3, a6, a1, SP[a2, a5], a4, n] - S2[a3, a6, a1, SP[a4, a5], a2, n] - 
    S2[a3, a6, a2, a1, SP[a4, a5], n] - S2[a3, a6, a2, SP[a1, a5], a4, n] - 
    S2[a3, a6, SP[a1, a5], a4, a2, n] - S2[a3, SP[a1, a5], a4, a2, a6, n] - 
    S2[a3, SP[a1, a5], a4, a6, a2, n] - S2[a3, SP[a1, a5], a6, a4, a2, n] - 
    S2[a3, SP[a1, a6], a2, a4, a5, n] - S2[a3, SP[a1, a6], a2, a5, a4, n] - 
    S2[a3, SP[a1, a6], a4, a2, a5, n] - S2[a3, SP[a1, a6], a4, a5, a2, n] - 
    S2[a3, SP[a1, a6], a5, a4, a2, n] + S2[a3, SP[a2, a6], a1, a4, a5, n] + 
    S2[a3, SP[a2, a6], a1, a5, a4, n] + S2[a3, SP[a5, a6], a1, a4, a2, n] - 
    S2[a3, n]*S2[a6, a1, a5, a2, a4, n] - S2[a6, a1, a5, a2, SP[a3, a4], n] - 
    S2[a6, a1, a5, SP[a2, a3], a4, n] - S2[a6, a1, SP[a3, a5], a2, a4, n] + 
    S2[a3, n]*S2[a6, a2, a5, a1, a4, n] + S2[a6, a2, a5, a1, SP[a3, a4], n] + 
    S2[a6, a2, a5, SP[a1, a3], a4, n] + S2[a6, a2, SP[a3, a5], a1, a4, n] - 
    S2[a2, n]*S2[a6, a3, a5, a1, a4, n] - S2[a6, a3, a5, a1, SP[a2, a4], n] + 
    S2[a1, n]*S2[a6, a3, a5, a2, a4, n] + S2[a6, a3, a5, a2, SP[a1, a4], n] + 
    S2[a6, a3, SP[a1, a5], a2, a4, n] - S2[a6, a3, SP[a2, a5], a1, a4, n] + 
    S2[SP[a1, a6], a3, a5, a2, a4, n] + S2[SP[a1, a6], a5, a2, a3, a4, n] + 
    S2[SP[a1, a6], a5, a2, a4, a3, n] + S2[SP[a1, a6], a5, a3, a2, a4, n] - 
    S2[SP[a2, a6], a3, a5, a1, a4, n] - S2[SP[a2, a6], a5, a1, a3, a4, n] - 
    S2[SP[a2, a6], a5, a1, a4, a3, n] - S2[SP[a2, a6], a5, a3, a1, a4, n] - 
    S2[SP[a3, a6], a1, a5, a2, a4, n] + S2[SP[a3, a6], a2, a5, a1, a4, n] + 
    S2[SP[a3, a6], a5, a1, a4, a2, n] - S2[a6, a3, a5, a2, a4, a1, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a1_, a4_, a2_, a5_, a6_, a3_, n_] :> 
  S2[a1, a4, a2, n]*S2[a3, a6, a5, n] + S2[SP[a1, a3], SP[a4, a6], 
     SP[a2, a5], n] - S2[a1, a3, SP[a4, a6], SP[a2, a5], n] - 
    S2[a3, a6, n]*S2[a1, a4, a2, a5, n] + S2[a1, a4, SP[a2, a3], SP[a5, a6], 
     n] + S2[a1, SP[a3, a4], a2, SP[a5, a6], n] - S2[a1, SP[a3, a4], a6, 
     SP[a2, a5], n] - S2[a1, a4, n]*S2[a2, a6, a3, a5, n] - 
    S2[a1, a4, n]*S2[a2, a6, a5, a3, n] + S2[a2, a6, SP[a1, a3], SP[a4, a5], 
     n] + S2[a2, a6, SP[a1, a5], SP[a3, a4], n] + S2[a2, SP[a1, a6], a3, 
     SP[a4, a5], n] + S2[a2, SP[a1, a6], a5, SP[a3, a4], n] + 
    S2[a2, SP[a1, a6], SP[a3, a4], a5, n] + S2[a2, SP[a1, a6], SP[a4, a5], 
     a3, n] - S2[a3, a1, SP[a4, a6], SP[a2, a5], n] + 
    S2[a1, a4, n]*S2[a3, a6, a2, a5, n] - S2[a3, a6, SP[a1, a2], SP[a4, a5], 
     n] - S2[a3, SP[a1, a6], a2, SP[a4, a5], n] - S2[a3, SP[a1, a6], a4, 
     SP[a2, a5], n] - S2[a3, SP[a1, a6], SP[a2, a4], a5, n] - 
    S2[a3, SP[a1, a6], SP[a4, a5], a2, n] + S2[SP[a1, a2], a6, a3, 
     SP[a4, a5], n] + S2[SP[a1, a2], a6, a5, SP[a3, a4], n] + 
    S2[SP[a1, a2], a6, SP[a3, a4], a5, n] + S2[SP[a1, a2], a6, SP[a4, a5], 
     a3, n] + S2[SP[a1, a2], SP[a4, a6], a3, a5, n] + 
    S2[SP[a1, a2], SP[a4, a6], a5, a3, n] + S2[SP[a1, a3], a4, a2, 
     SP[a5, a6], n] - S2[SP[a1, a3], a4, a6, SP[a2, a5], n] - 
    S2[SP[a1, a3], a6, a2, SP[a4, a5], n] - S2[SP[a1, a3], a6, a4, 
     SP[a2, a5], n] - S2[SP[a1, a3], a6, SP[a2, a4], a5, n] - 
    S2[SP[a1, a3], a6, SP[a4, a5], a2, n] - S2[SP[a1, a3], SP[a4, a6], a2, 
     a5, n] - S2[SP[a1, a3], SP[a4, a6], a5, a2, n] - 
    S2[a1, a2, a6, a3, SP[a4, a5], n] - S2[a1, a2, a6, a5, SP[a3, a4], n] - 
    S2[a1, a2, a6, SP[a3, a4], a5, n] - S2[a1, a2, a6, SP[a4, a5], a3, n] - 
    S2[a1, a2, SP[a4, a6], a3, a5, n] - S2[a1, a2, SP[a4, a6], a5, a3, n] - 
    S2[a1, a3, a4, a2, SP[a5, a6], n] + S2[a1, a3, a4, a6, SP[a2, a5], n] + 
    S2[a1, a3, a6, a2, SP[a4, a5], n] + S2[a1, a3, a6, a4, SP[a2, a5], n] + 
    S2[a1, a3, a6, SP[a2, a4], a5, n] + S2[a1, a3, a6, SP[a4, a5], a2, n] + 
    S2[a1, a3, SP[a4, a6], a2, a5, n] + S2[a1, a3, SP[a4, a6], a5, a2, n] - 
    S2[a1, a4, a2, a3, SP[a5, a6], n] + S2[a3, n]*S2[a1, a4, a2, a5, a6, n] + 
    S2[a1, a4, a2, a5, SP[a3, a6], n] - S2[a1, a4, a3, a2, SP[a5, a6], n] + 
    S2[a1, a4, a3, a6, SP[a2, a5], n] - S2[a3, n]*S2[a1, a4, a6, a2, a5, n] - 
    S2[a1, a4, a6, a2, SP[a3, a5], n] + S2[a2, n]*S2[a1, a4, a6, a3, a5, n] + 
    S2[a1, a4, a6, a3, SP[a2, a5], n] - S2[a3, n]*S2[a1, a4, a6, a5, a2, n] + 
    S2[a2, n]*S2[a1, a4, a6, a5, a3, n] + S2[a1, a4, a6, SP[a2, a5], a3, n] - 
    S2[a1, a4, a6, SP[a3, a5], a2, n] + S2[a1, a4, SP[a2, a6], a3, a5, n] + 
    S2[a1, a4, SP[a2, a6], a5, a3, n] - S2[a1, a4, SP[a3, a6], a2, a5, n] - 
    S2[a1, a4, SP[a3, a6], a5, a2, n] - S2[a3, n]*S2[a1, a6, a2, a4, a5, n] - 
    S2[a1, a6, a2, a4, SP[a3, a5], n] - S2[a3, n]*S2[a1, a6, a2, a5, a4, n] - 
    S2[a1, a6, a2, a5, SP[a3, a4], n] - S2[a1, a6, a2, SP[a3, a4], a5, n] - 
    S2[a1, a6, a2, SP[a3, a5], a4, n] + S2[a2, n]*S2[a1, a6, a3, a4, a5, n] + 
    S2[a1, a6, a3, a4, SP[a2, a5], n] + S2[a2, n]*S2[a1, a6, a3, a5, a4, n] + 
    S2[a1, a6, a3, a5, SP[a2, a4], n] + S2[a1, a6, a3, SP[a2, a4], a5, n] + 
    S2[a1, a6, a3, SP[a2, a5], a4, n] - S2[a3, n]*S2[a1, a6, a4, a2, a5, n] - 
    S2[a1, a6, a4, a2, SP[a3, a5], n] + S2[a2, n]*S2[a1, a6, a4, a3, a5, n] + 
    S2[a1, a6, a4, a3, SP[a2, a5], n] - S2[a3, n]*S2[a1, a6, a4, a5, a2, n] + 
    S2[a2, n]*S2[a1, a6, a4, a5, a3, n] + S2[a1, a6, a4, SP[a2, a5], a3, n] - 
    S2[a1, a6, a4, SP[a3, a5], a2, n] + S2[a2, n]*S2[a1, a6, a5, a3, a4, n] + 
    S2[a1, a6, a5, a3, SP[a2, a4], n] - S2[a3, n]*S2[a1, a6, a5, a4, a2, n] + 
    S2[a2, n]*S2[a1, a6, a5, a4, a3, n] + S2[a1, a6, a5, SP[a2, a3], a4, n] + 
    S2[a1, a6, a5, SP[a2, a4], a3, n] - S2[a1, a6, a5, SP[a3, a4], a2, n] + 
    S2[a1, a6, SP[a2, a4], a3, a5, n] + S2[a1, a6, SP[a2, a4], a5, a3, n] + 
    S2[a1, a6, SP[a2, a5], a3, a4, n] + S2[a1, a6, SP[a2, a5], a4, a3, n] - 
    S2[a1, a6, SP[a3, a4], a2, a5, n] - S2[a1, a6, SP[a3, a4], a5, a2, n] - 
    S2[a1, a6, SP[a3, a5], a4, a2, n] + S2[a1, SP[a2, a6], a3, a4, a5, n] + 
    S2[a1, SP[a2, a6], a3, a5, a4, n] + S2[a1, SP[a2, a6], a4, a3, a5, n] + 
    S2[a1, SP[a2, a6], a4, a5, a3, n] + S2[a1, SP[a2, a6], a5, a3, a4, n] + 
    S2[a1, SP[a2, a6], a5, a4, a3, n] - S2[a1, SP[a3, a6], a2, a4, a5, n] - 
    S2[a1, SP[a3, a6], a2, a5, a4, n] - S2[a1, SP[a3, a6], a4, a2, a5, n] - 
    S2[a1, SP[a3, a6], a4, a5, a2, n] - S2[a1, SP[a3, a6], a5, a4, a2, n] - 
    S2[a2, a1, a6, a3, SP[a4, a5], n] - S2[a2, a1, a6, a5, SP[a3, a4], n] - 
    S2[a2, a1, a6, SP[a3, a4], a5, n] - S2[a2, a1, a6, SP[a4, a5], a3, n] - 
    S2[a2, a1, SP[a4, a6], a3, a5, n] - S2[a2, a1, SP[a4, a6], a5, a3, n] - 
    S2[a2, a6, a1, a3, SP[a4, a5], n] + S2[a3, n]*S2[a2, a6, a1, a4, a5, n] + 
    S2[a2, a6, a1, a4, SP[a3, a5], n] + S2[a3, n]*S2[a2, a6, a1, a5, a4, n] + 
    S2[a2, a6, a1, SP[a3, a5], a4, n] - S2[a2, a6, a1, SP[a4, a5], a3, n] - 
    S2[a2, a6, a3, a1, SP[a4, a5], n] - S2[a2, a6, a3, SP[a1, a5], a4, n] - 
    S2[a2, a6, a5, a1, SP[a3, a4], n] - S2[a2, a6, a5, SP[a1, a3], a4, n] - 
    S2[a2, a6, SP[a1, a5], a3, a4, n] - S2[a2, a6, SP[a1, a5], a4, a3, n] - 
    S2[a2, SP[a1, a6], a3, a4, a5, n] - S2[a2, SP[a1, a6], a3, a5, a4, n] - 
    S2[a2, SP[a1, a6], a4, a3, a5, n] - S2[a2, SP[a1, a6], a4, a5, a3, n] - 
    S2[a2, SP[a1, a6], a5, a3, a4, n] - S2[a2, SP[a1, a6], a5, a4, a3, n] + 
    S2[a2, SP[a3, a6], a1, a4, a5, n] + S2[a2, SP[a3, a6], a1, a5, a4, n] - 
    S2[a3, a1, a4, a2, SP[a5, a6], n] + S2[a3, a1, a4, a6, SP[a2, a5], n] + 
    S2[a3, a1, a6, a2, SP[a4, a5], n] + S2[a3, a1, a6, a4, SP[a2, a5], n] + 
    S2[a3, a1, a6, SP[a2, a4], a5, n] + S2[a3, a1, a6, SP[a4, a5], a2, n] + 
    S2[a3, a1, SP[a4, a6], a2, a5, n] + S2[a3, a1, SP[a4, a6], a5, a2, n] + 
    S2[a3, a6, a1, a2, SP[a4, a5], n] - S2[a2, n]*S2[a3, a6, a1, a4, a5, n] - 
    S2[a2, n]*S2[a3, a6, a1, a5, a4, n] - S2[a3, a6, a1, a5, SP[a2, a4], n] - 
    S2[a3, a6, a1, SP[a2, a5], a4, n] + S2[a3, a6, a1, SP[a4, a5], a2, n] + 
    S2[a3, a6, a2, a1, SP[a4, a5], n] + S2[a3, a6, a2, SP[a1, a5], a4, n] + 
    S2[a3, a6, SP[a1, a5], a4, a2, n] + S2[a3, SP[a1, a6], a2, a4, a5, n] + 
    S2[a3, SP[a1, a6], a2, a5, a4, n] + S2[a3, SP[a1, a6], a4, a2, a5, n] + 
    S2[a3, SP[a1, a6], a4, a5, a2, n] + S2[a3, SP[a1, a6], a5, a4, a2, n] - 
    S2[a3, SP[a2, a6], a1, a4, a5, n] - S2[a3, SP[a2, a6], a1, a5, a4, n] + 
    S2[a3, n]*S2[a6, a1, a5, a2, a4, n] + S2[a6, a1, a5, a2, SP[a3, a4], n] + 
    S2[a6, a1, a5, SP[a2, a3], a4, n] + S2[a6, a1, SP[a3, a5], a2, a4, n] - 
    S2[a3, n]*S2[a6, a2, a5, a1, a4, n] - S2[a6, a2, a5, a1, SP[a3, a4], n] - 
    S2[a6, a2, a5, SP[a1, a3], a4, n] - S2[a6, a2, SP[a3, a5], a1, a4, n] + 
    S2[a2, n]*S2[a6, a3, a5, a1, a4, n] + S2[a6, a3, a5, a1, SP[a2, a4], n] - 
    S2[a1, n]*S2[a6, a3, a5, a2, a4, n] - S2[a6, a3, a5, a2, SP[a1, a4], n] - 
    S2[a6, a3, SP[a1, a5], a2, a4, n] + S2[a6, a3, SP[a2, a5], a1, a4, n] + 
    S2[a2, n]*S2[a6, a5, a1, a3, a4, n] + S2[a6, a5, a1, a3, SP[a2, a4], n] - 
    S2[a3, n]*S2[a6, a5, a1, a4, a2, n] + 
    S2[a2, n]*S2[a6, a5, a1, a4, a3, n] + S2[a6, a5, a1, SP[a2, a3], a4, n] + 
    S2[a6, a5, a1, SP[a2, a4], a3, n] - S2[a6, a5, a1, SP[a3, a4], a2, n] - 
    S2[a1, n]*S2[a6, a5, a2, a3, a4, n] - S2[a6, a5, a2, a3, SP[a1, a4], n] - 
    S2[a1, n]*S2[a6, a5, a2, a4, a3, n] - S2[a6, a5, a2, a4, SP[a1, a3], n] - 
    S2[a6, a5, a2, SP[a1, a3], a4, n] - S2[a6, a5, a2, SP[a1, a4], a3, n] + 
    S2[a2, n]*S2[a6, a5, a3, a1, a4, n] + S2[a6, a5, a3, a1, SP[a2, a4], n] - 
    S2[a1, n]*S2[a6, a5, a3, a2, a4, n] - S2[a6, a5, a3, a2, SP[a1, a4], n] - 
    S2[a6, a5, SP[a1, a3], a2, a4, n] - S2[a6, a5, SP[a1, a3], a4, a2, n] + 
    S2[a6, a5, SP[a2, a3], a1, a4, n] - S2[a6, SP[a1, a5], a2, a3, a4, n] - 
    S2[a6, SP[a1, a5], a2, a4, a3, n] - S2[a6, SP[a1, a5], a3, a2, a4, n] + 
    S2[a6, SP[a2, a5], a1, a3, a4, n] + S2[a6, SP[a2, a5], a1, a4, a3, n] + 
    S2[a6, SP[a2, a5], a3, a1, a4, n] - S2[a6, SP[a3, a5], a1, a4, a2, n] - 
    S2[SP[a1, a6], a3, a5, a2, a4, n] - S2[SP[a1, a6], a5, a2, a3, a4, n] - 
    S2[SP[a1, a6], a5, a2, a4, a3, n] - S2[SP[a1, a6], a5, a3, a2, a4, n] + 
    S2[SP[a2, a6], a3, a5, a1, a4, n] + S2[SP[a2, a6], a5, a1, a3, a4, n] + 
    S2[SP[a2, a6], a5, a1, a4, a3, n] + S2[SP[a2, a6], a5, a3, a1, a4, n] + 
    S2[SP[a3, a6], a1, a5, a2, a4, n] - S2[SP[a3, a6], a2, a5, a1, a4, n] - 
    S2[SP[a3, a6], a5, a1, a4, a2, n] + S2[a6, a3, a5, a2, a4, a1, n] + 
    S2[a6, a5, a2, a3, a4, a1, n] + S2[a6, a5, a2, a4, a1, a3, n] + 
    S2[a6, a5, a2, a4, a3, a1, n] + S2[a6, a5, a3, a2, a4, a1, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a1_, a4_, a2_, a6_, a3_, a5_, n_] :> 
  -(S2[a1, a4, a2, n]*S2[a3, a5, a6, n]) - S2[a1, a4, a2, n]*
     S2[a3, a6, a5, n] - S2[SP[a1, a3], SP[a4, a5], SP[a2, a6], n] - 
    S2[SP[a1, a3], SP[a4, a6], SP[a2, a5], n] + S2[a1, a3, SP[a4, a5], 
     SP[a2, a6], n] + S2[a1, a3, SP[a4, a6], SP[a2, a5], n] + 
    S2[a1, SP[a3, a4], a5, SP[a2, a6], n] + S2[a1, SP[a3, a4], a6, 
     SP[a2, a5], n] + S2[a1, SP[a3, a4], SP[a2, a5], a6, n] + 
    S2[a1, SP[a3, a4], SP[a2, a6], a5, n] + S2[a1, a4, n]*
     S2[a2, a6, a3, a5, n] - S2[a2, a6, SP[a1, a3], SP[a4, a5], n] - 
    S2[a2, SP[a1, a6], a3, SP[a4, a5], n] - S2[a2, SP[a1, a6], SP[a3, a4], 
     a5, n] + S2[a3, a1, SP[a4, a5], SP[a2, a6], n] + 
    S2[a3, a1, SP[a4, a6], SP[a2, a5], n] + S2[a3, SP[a1, a5], a4, 
     SP[a2, a6], n] + S2[a3, SP[a1, a5], SP[a4, a6], a2, n] + 
    S2[a3, SP[a1, a6], a4, SP[a2, a5], n] + S2[a3, SP[a1, a6], SP[a4, a5], 
     a2, n] - S2[SP[a1, a2], a6, a3, SP[a4, a5], n] - 
    S2[SP[a1, a2], a6, SP[a3, a4], a5, n] - S2[SP[a1, a2], SP[a4, a6], a3, 
     a5, n] + S2[SP[a1, a3], a4, a5, SP[a2, a6], n] + 
    S2[SP[a1, a3], a4, a6, SP[a2, a5], n] + S2[SP[a1, a3], a4, SP[a2, a5], 
     a6, n] + S2[SP[a1, a3], a4, SP[a2, a6], a5, n] + 
    S2[SP[a1, a3], a5, a4, SP[a2, a6], n] + S2[SP[a1, a3], a5, SP[a4, a6], 
     a2, n] + S2[SP[a1, a3], a6, a4, SP[a2, a5], n] + 
    S2[SP[a1, a3], a6, SP[a4, a5], a2, n] + S2[SP[a1, a3], SP[a4, a5], a2, 
     a6, n] + S2[SP[a1, a3], SP[a4, a5], a6, a2, n] + 
    S2[SP[a1, a3], SP[a4, a6], a2, a5, n] + S2[SP[a1, a3], SP[a4, a6], a5, 
     a2, n] + S2[a1, a2, a6, a3, SP[a4, a5], n] + S2[a1, a2, a6, SP[a3, a4], 
     a5, n] + S2[a1, a2, SP[a4, a6], a3, a5, n] - 
    S2[a1, a3, a4, a5, SP[a2, a6], n] - S2[a1, a3, a4, a6, SP[a2, a5], n] - 
    S2[a1, a3, a4, SP[a2, a5], a6, n] - S2[a1, a3, a4, SP[a2, a6], a5, n] - 
    S2[a1, a3, a5, a4, SP[a2, a6], n] - S2[a1, a3, a5, SP[a4, a6], a2, n] - 
    S2[a1, a3, a6, a4, SP[a2, a5], n] - S2[a1, a3, a6, SP[a4, a5], a2, n] - 
    S2[a1, a3, SP[a4, a5], a2, a6, n] - S2[a1, a3, SP[a4, a5], a6, a2, n] - 
    S2[a1, a3, SP[a4, a6], a2, a5, n] - S2[a1, a3, SP[a4, a6], a5, a2, n] - 
    S2[a6, n]*S2[a1, a4, a2, a5, a3, n] + 
    S2[a3, n]*S2[a1, a4, a2, a5, a6, n] + 
    S2[a3, n]*S2[a1, a4, a2, a6, a5, n] + S2[a1, a4, a2, a6, SP[a3, a5], n] + 
    S2[a1, a4, a2, SP[a3, a5], a6, n] + S2[a1, a4, a2, SP[a3, a6], a5, n] - 
    S2[a1, a4, a2, SP[a5, a6], a3, n] - S2[a1, a4, a3, a5, SP[a2, a6], n] - 
    S2[a1, a4, a3, a6, SP[a2, a5], n] - S2[a1, a4, a3, SP[a2, a5], a6, n] - 
    S2[a1, a4, a3, SP[a2, a6], a5, n] - S2[a6, n]*S2[a1, a4, a5, a2, a3, n] + 
    S2[a3, n]*S2[a1, a4, a5, a2, a6, n] - 
    S2[a6, n]*S2[a1, a4, a5, a3, a2, n] - S2[a1, a4, a5, a3, SP[a2, a6], n] + 
    S2[a3, n]*S2[a1, a4, a5, a6, a2, n] + S2[a1, a4, a5, a6, SP[a2, a3], n] + 
    S2[a1, a4, a5, SP[a2, a3], a6, n] - S2[a1, a4, a5, SP[a2, a6], a3, n] + 
    S2[a3, n]*S2[a1, a4, a6, a2, a5, n] + S2[a1, a4, a6, a2, SP[a3, a5], n] - 
    S2[a2, n]*S2[a1, a4, a6, a3, a5, n] - S2[a1, a4, a6, a3, SP[a2, a5], n] + 
    S2[a3, n]*S2[a1, a4, a6, a5, a2, n] + S2[a1, a4, a6, a5, SP[a2, a3], n] + 
    S2[a1, a4, a6, SP[a3, a5], a2, n] - S2[a1, a4, SP[a2, a6], a3, a5, n] - 
    S2[a1, a4, SP[a2, a6], a5, a3, n] + S2[a1, a4, SP[a3, a5], a2, a6, n] + 
    S2[a1, a4, SP[a3, a5], a6, a2, n] + S2[a1, a4, SP[a3, a6], a2, a5, n] + 
    S2[a1, a4, SP[a3, a6], a5, a2, n] - S2[a1, a4, SP[a5, a6], a2, a3, n] - 
    S2[a1, a4, SP[a5, a6], a3, a2, n] - S2[a6, n]*S2[a1, a5, a3, a4, a2, n] - 
    S2[a1, a5, a3, a4, SP[a2, a6], n] - S2[a1, a5, a3, SP[a4, a6], a2, n] - 
    S2[a6, n]*S2[a1, a5, a4, a2, a3, n] + 
    S2[a3, n]*S2[a1, a5, a4, a2, a6, n] - 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] - S2[a1, a5, a4, a3, SP[a2, a6], n] + 
    S2[a3, n]*S2[a1, a5, a4, a6, a2, n] + S2[a1, a5, a4, a6, SP[a2, a3], n] + 
    S2[a1, a5, a4, SP[a2, a3], a6, n] - S2[a1, a5, a4, SP[a2, a6], a3, n] + 
    S2[a3, n]*S2[a1, a5, a6, a4, a2, n] + S2[a1, a5, a6, a4, SP[a2, a3], n] + 
    S2[a1, a5, a6, SP[a3, a4], a2, n] + S2[a1, a5, SP[a3, a4], a2, a6, n] + 
    S2[a1, a5, SP[a3, a4], a6, a2, n] - S2[a1, a5, SP[a4, a6], a2, a3, n] - 
    S2[a1, a5, SP[a4, a6], a3, a2, n] - S2[a2, n]*S2[a1, a6, a3, a4, a5, n] - 
    S2[a1, a6, a3, a4, SP[a2, a5], n] - S2[a2, n]*S2[a1, a6, a3, a5, a4, n] - 
    S2[a1, a6, a3, a5, SP[a2, a4], n] - S2[a1, a6, a3, SP[a2, a4], a5, n] - 
    S2[a1, a6, a3, SP[a2, a5], a4, n] + S2[a3, n]*S2[a1, a6, a4, a2, a5, n] + 
    S2[a1, a6, a4, a2, SP[a3, a5], n] - S2[a2, n]*S2[a1, a6, a4, a3, a5, n] - 
    S2[a1, a6, a4, a3, SP[a2, a5], n] + S2[a3, n]*S2[a1, a6, a4, a5, a2, n] + 
    S2[a1, a6, a4, a5, SP[a2, a3], n] + S2[a1, a6, a4, SP[a3, a5], a2, n] + 
    S2[a3, n]*S2[a1, a6, a5, a4, a2, n] + S2[a1, a6, a5, a4, SP[a2, a3], n] + 
    S2[a1, a6, a5, SP[a3, a4], a2, n] - S2[a1, a6, SP[a2, a3], a4, a5, n] - 
    S2[a1, a6, SP[a2, a3], a5, a4, n] - S2[a1, a6, SP[a2, a4], a3, a5, n] + 
    S2[a1, a6, SP[a3, a4], a2, a5, n] + S2[a1, a6, SP[a3, a4], a5, a2, n] + 
    S2[a1, a6, SP[a3, a5], a4, a2, n] - S2[a1, SP[a2, a6], a3, a4, a5, n] - 
    S2[a1, SP[a2, a6], a3, a5, a4, n] - S2[a1, SP[a2, a6], a4, a3, a5, n] + 
    S2[a1, SP[a3, a5], a4, a2, a6, n] + S2[a1, SP[a3, a5], a4, a6, a2, n] + 
    S2[a1, SP[a3, a5], a6, a4, a2, n] + S2[a1, SP[a3, a6], a4, a2, a5, n] + 
    S2[a1, SP[a3, a6], a4, a5, a2, n] + S2[a1, SP[a3, a6], a5, a4, a2, n] - 
    S2[a1, SP[a4, a6], a2, a5, a3, n] - S2[a1, SP[a4, a6], a5, a2, a3, n] - 
    S2[a1, SP[a4, a6], a5, a3, a2, n] - S2[a1, SP[a5, a6], a3, a4, a2, n] - 
    S2[a1, SP[a5, a6], a4, a2, a3, n] - S2[a1, SP[a5, a6], a4, a3, a2, n] + 
    S2[a2, a1, a6, a3, SP[a4, a5], n] + S2[a2, a1, a6, SP[a3, a4], a5, n] + 
    S2[a2, a1, SP[a4, a6], a3, a5, n] + S2[a2, a6, a1, a3, SP[a4, a5], n] + 
    S2[a2, a6, a1, SP[a3, a4], a5, n] + S2[a2, a6, a3, a1, SP[a4, a5], n] + 
    S2[a2, a6, a3, SP[a1, a5], a4, n] + S2[a2, a6, SP[a1, a3], a4, a5, n] + 
    S2[a2, a6, SP[a1, a3], a5, a4, n] + S2[a2, SP[a1, a6], a3, a4, a5, n] + 
    S2[a2, SP[a1, a6], a3, a5, a4, n] + S2[a2, SP[a1, a6], a4, a3, a5, n] - 
    S2[a3, a1, a4, a5, SP[a2, a6], n] - S2[a3, a1, a4, a6, SP[a2, a5], n] - 
    S2[a3, a1, a4, SP[a2, a5], a6, n] - S2[a3, a1, a4, SP[a2, a6], a5, n] - 
    S2[a3, a1, a5, a4, SP[a2, a6], n] - S2[a3, a1, a5, SP[a4, a6], a2, n] - 
    S2[a3, a1, a6, a4, SP[a2, a5], n] - S2[a3, a1, a6, SP[a4, a5], a2, n] - 
    S2[a3, a1, SP[a4, a5], a2, a6, n] - S2[a3, a1, SP[a4, a5], a6, a2, n] - 
    S2[a3, a1, SP[a4, a6], a2, a5, n] - S2[a3, a1, SP[a4, a6], a5, a2, n] + 
    S2[a6, n]*S2[a3, a5, a1, a4, a2, n] - S2[a3, a6, a1, a4, SP[a2, a5], n] - 
    S2[a3, a6, a1, SP[a4, a5], a2, n] - S2[a3, a6, SP[a1, a5], a4, a2, n] - 
    S2[a3, SP[a1, a5], a4, a2, a6, n] - S2[a3, SP[a1, a5], a4, a6, a2, n] - 
    S2[a3, SP[a1, a5], a6, a4, a2, n] - S2[a3, SP[a1, a6], a4, a2, a5, n] - 
    S2[a3, SP[a1, a6], a4, a5, a2, n] - S2[a3, SP[a1, a6], a5, a4, a2, n] + 
    S2[a3, SP[a5, a6], a1, a4, a2, n] - S2[a2, n]*S2[a6, a1, a3, a4, a5, n] - 
    S2[a6, a1, a3, a4, SP[a2, a5], n] - S2[a2, n]*S2[a6, a1, a3, a5, a4, n] - 
    S2[a6, a1, a3, a5, SP[a2, a4], n] - S2[a6, a1, a3, SP[a2, a4], a5, n] - 
    S2[a6, a1, a3, SP[a2, a5], a4, n] + S2[a3, n]*S2[a6, a1, a4, a2, a5, n] + 
    S2[a6, a1, a4, a2, SP[a3, a5], n] - S2[a2, n]*S2[a6, a1, a4, a3, a5, n] - 
    S2[a6, a1, a4, a3, SP[a2, a5], n] + S2[a3, n]*S2[a6, a1, a4, a5, a2, n] + 
    S2[a6, a1, a4, a5, SP[a2, a3], n] + S2[a6, a1, a4, SP[a3, a5], a2, n] + 
    S2[a3, n]*S2[a6, a1, a5, a4, a2, n] + S2[a6, a1, a5, a4, SP[a2, a3], n] + 
    S2[a6, a1, a5, SP[a3, a4], a2, n] - S2[a6, a1, SP[a2, a3], a4, a5, n] - 
    S2[a6, a1, SP[a2, a3], a5, a4, n] - S2[a6, a1, SP[a2, a4], a3, a5, n] + 
    S2[a6, a1, SP[a3, a4], a2, a5, n] + S2[a6, a1, SP[a3, a4], a5, a2, n] + 
    S2[a6, a1, SP[a3, a5], a4, a2, n] + S2[a1, n]*S2[a6, a2, a3, a4, a5, n] + 
    S2[a6, a2, a3, a4, SP[a1, a5], n] + S2[a1, n]*S2[a6, a2, a3, a5, a4, n] + 
    S2[a6, a2, a3, a5, SP[a1, a4], n] + S2[a6, a2, a3, SP[a1, a4], a5, n] + 
    S2[a6, a2, a3, SP[a1, a5], a4, n] + S2[a1, n]*S2[a6, a2, a4, a3, a5, n] + 
    S2[a6, a2, a4, a3, SP[a1, a5], n] + S2[a6, a2, a4, SP[a1, a3], a5, n] + 
    S2[a6, a2, SP[a1, a3], a4, a5, n] + S2[a6, a2, SP[a1, a3], a5, a4, n] + 
    S2[a6, a2, SP[a1, a4], a3, a5, n] - S2[a2, n]*S2[a6, a3, a1, a4, a5, n] - 
    S2[a6, a3, a1, a4, SP[a2, a5], n] - S2[a2, n]*S2[a6, a3, a1, a5, a4, n] - 
    S2[a6, a3, a1, a5, SP[a2, a4], n] - S2[a6, a3, a1, SP[a2, a4], a5, n] - 
    S2[a6, a3, a1, SP[a2, a5], a4, n] + S2[a1, n]*S2[a6, a3, a2, a4, a5, n] + 
    S2[a6, a3, a2, a4, SP[a1, a5], n] + S2[a1, n]*S2[a6, a3, a2, a5, a4, n] + 
    S2[a6, a3, a2, a5, SP[a1, a4], n] + S2[a6, a3, a2, SP[a1, a4], a5, n] + 
    S2[a6, a3, a2, SP[a1, a5], a4, n] - S2[a2, n]*S2[a6, a3, a5, a1, a4, n] - 
    S2[a6, a3, a5, a1, SP[a2, a4], n] + S2[a1, n]*S2[a6, a3, a5, a2, a4, n] + 
    S2[a6, a3, a5, a2, SP[a1, a4], n] + S2[a6, a3, SP[a1, a5], a2, a4, n] - 
    S2[a6, a3, SP[a2, a5], a1, a4, n] + S2[a6, SP[a1, a3], a2, a4, a5, n] + 
    S2[a6, SP[a1, a3], a2, a5, a4, n] + S2[a6, SP[a1, a3], a4, a2, a5, n] + 
    S2[a6, SP[a1, a3], a4, a5, a2, n] + S2[a6, SP[a1, a3], a5, a2, a4, n] + 
    S2[a6, SP[a1, a3], a5, a4, a2, n] - S2[a6, SP[a2, a3], a1, a4, a5, n] - 
    S2[a6, SP[a2, a3], a1, a5, a4, n] - S2[a6, SP[a2, a3], a5, a1, a4, n] + 
    S2[SP[a1, a6], a2, a3, a4, a5, n] + S2[SP[a1, a6], a2, a3, a5, a4, n] + 
    S2[SP[a1, a6], a2, a4, a3, a5, n] + S2[SP[a1, a6], a3, a2, a4, a5, n] + 
    S2[SP[a1, a6], a3, a2, a5, a4, n] + S2[SP[a1, a6], a3, a5, a2, a4, n] - 
    S2[SP[a1, a6], a4, a2, a5, a3, n] - S2[SP[a1, a6], a4, a5, a2, a3, n] - 
    S2[SP[a1, a6], a4, a5, a3, a2, n] - S2[SP[a1, a6], a5, a3, a4, a2, n] - 
    S2[SP[a1, a6], a5, a4, a2, a3, n] - S2[SP[a1, a6], a5, a4, a3, a2, n] - 
    S2[SP[a2, a6], a1, a3, a4, a5, n] - S2[SP[a2, a6], a1, a3, a5, a4, n] - 
    S2[SP[a2, a6], a1, a4, a3, a5, n] - S2[SP[a2, a6], a3, a1, a4, a5, n] - 
    S2[SP[a2, a6], a3, a1, a5, a4, n] - S2[SP[a2, a6], a3, a5, a1, a4, n] + 
    S2[SP[a3, a6], a1, a4, a2, a5, n] + S2[SP[a3, a6], a1, a4, a5, a2, n] + 
    S2[SP[a3, a6], a1, a5, a4, a2, n] + S2[SP[a3, a6], a5, a1, a4, a2, n] - 
    S2[a6, a2, a3, a4, a1, a5, n] - S2[a6, a2, a3, a4, a5, a1, n] - 
    S2[a6, a2, a3, a5, a4, a1, n] - S2[a6, a2, a4, a1, a3, a5, n] - 
    S2[a6, a2, a4, a3, a1, a5, n] - S2[a6, a2, a4, a3, a5, a1, n] - 
    S2[a6, a3, a2, a4, a1, a5, n] - S2[a6, a3, a2, a4, a5, a1, n] - 
    S2[a6, a3, a2, a5, a4, a1, n] - S2[a6, a3, a5, a2, a4, a1, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a1_, a4_, a2_, a6_, a5_, a3_, n_] :> 
  S2[a1, a4, a2, n]*S2[a3, a5, a6, n] + S2[SP[a1, a3], SP[a4, a5], 
     SP[a2, a6], n] - S2[a1, a3, SP[a4, a5], SP[a2, a6], n] - 
    S2[a1, SP[a3, a4], a5, SP[a2, a6], n] - S2[a1, SP[a3, a4], SP[a2, a5], 
     a6, n] + S2[a1, a4, n]*S2[a2, a6, a5, a3, n] - 
    S2[a2, a6, SP[a1, a5], SP[a3, a4], n] - S2[a2, SP[a1, a6], a5, 
     SP[a3, a4], n] - S2[a2, SP[a1, a6], SP[a4, a5], a3, n] - 
    S2[a3, a1, SP[a4, a5], SP[a2, a6], n] - S2[a3, SP[a1, a5], a4, 
     SP[a2, a6], n] - S2[a3, SP[a1, a5], SP[a4, a6], a2, n] - 
    S2[SP[a1, a2], a6, a5, SP[a3, a4], n] - S2[SP[a1, a2], a6, SP[a4, a5], 
     a3, n] - S2[SP[a1, a2], SP[a4, a6], a5, a3, n] - 
    S2[SP[a1, a3], a4, a5, SP[a2, a6], n] - S2[SP[a1, a3], a4, SP[a2, a5], 
     a6, n] - S2[SP[a1, a3], a5, a4, SP[a2, a6], n] - 
    S2[SP[a1, a3], a5, SP[a4, a6], a2, n] - S2[SP[a1, a3], SP[a4, a5], a2, 
     a6, n] - S2[SP[a1, a3], SP[a4, a5], a6, a2, n] + 
    S2[a1, a2, a6, a5, SP[a3, a4], n] + S2[a1, a2, a6, SP[a4, a5], a3, n] + 
    S2[a1, a2, SP[a4, a6], a5, a3, n] + S2[a1, a3, a4, a5, SP[a2, a6], n] + 
    S2[a1, a3, a4, SP[a2, a5], a6, n] + S2[a1, a3, a5, a4, SP[a2, a6], n] + 
    S2[a1, a3, a5, SP[a4, a6], a2, n] + S2[a1, a3, SP[a4, a5], a2, a6, n] + 
    S2[a1, a3, SP[a4, a5], a6, a2, n] + S2[a6, n]*S2[a1, a4, a2, a5, a3, n] - 
    S2[a3, n]*S2[a1, a4, a2, a5, a6, n] - S2[a1, a4, a2, SP[a3, a5], a6, n] + 
    S2[a1, a4, a2, SP[a5, a6], a3, n] + S2[a1, a4, a3, a5, SP[a2, a6], n] + 
    S2[a1, a4, a3, SP[a2, a5], a6, n] + S2[a6, n]*S2[a1, a4, a5, a2, a3, n] - 
    S2[a3, n]*S2[a1, a4, a5, a2, a6, n] + 
    S2[a6, n]*S2[a1, a4, a5, a3, a2, n] + S2[a1, a4, a5, a3, SP[a2, a6], n] - 
    S2[a3, n]*S2[a1, a4, a5, a6, a2, n] - S2[a1, a4, a5, a6, SP[a2, a3], n] - 
    S2[a1, a4, a5, SP[a2, a3], a6, n] + S2[a1, a4, a5, SP[a2, a6], a3, n] - 
    S2[a2, n]*S2[a1, a4, a6, a5, a3, n] - S2[a1, a4, a6, a5, SP[a2, a3], n] - 
    S2[a1, a4, a6, SP[a2, a5], a3, n] - S2[a1, a4, SP[a3, a5], a2, a6, n] - 
    S2[a1, a4, SP[a3, a5], a6, a2, n] + S2[a1, a4, SP[a5, a6], a2, a3, n] + 
    S2[a1, a4, SP[a5, a6], a3, a2, n] + S2[a6, n]*S2[a1, a5, a3, a4, a2, n] + 
    S2[a1, a5, a3, a4, SP[a2, a6], n] + S2[a1, a5, a3, SP[a4, a6], a2, n] + 
    S2[a6, n]*S2[a1, a5, a4, a2, a3, n] - 
    S2[a3, n]*S2[a1, a5, a4, a2, a6, n] + 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] + S2[a1, a5, a4, a3, SP[a2, a6], n] - 
    S2[a3, n]*S2[a1, a5, a4, a6, a2, n] - S2[a1, a5, a4, a6, SP[a2, a3], n] - 
    S2[a1, a5, a4, SP[a2, a3], a6, n] + S2[a1, a5, a4, SP[a2, a6], a3, n] - 
    S2[a3, n]*S2[a1, a5, a6, a4, a2, n] - S2[a1, a5, a6, a4, SP[a2, a3], n] - 
    S2[a1, a5, a6, SP[a3, a4], a2, n] - S2[a1, a5, SP[a3, a4], a2, a6, n] - 
    S2[a1, a5, SP[a3, a4], a6, a2, n] + S2[a1, a5, SP[a4, a6], a2, a3, n] + 
    S2[a1, a5, SP[a4, a6], a3, a2, n] - S2[a2, n]*S2[a1, a6, a4, a5, a3, n] - 
    S2[a1, a6, a4, a5, SP[a2, a3], n] - S2[a1, a6, a4, SP[a2, a5], a3, n] - 
    S2[a2, n]*S2[a1, a6, a5, a3, a4, n] - S2[a1, a6, a5, a3, SP[a2, a4], n] - 
    S2[a2, n]*S2[a1, a6, a5, a4, a3, n] - S2[a1, a6, a5, a4, SP[a2, a3], n] - 
    S2[a1, a6, a5, SP[a2, a3], a4, n] - S2[a1, a6, a5, SP[a2, a4], a3, n] - 
    S2[a1, a6, SP[a2, a4], a5, a3, n] - S2[a1, a6, SP[a2, a5], a3, a4, n] - 
    S2[a1, a6, SP[a2, a5], a4, a3, n] - S2[a1, SP[a2, a6], a4, a5, a3, n] - 
    S2[a1, SP[a2, a6], a5, a3, a4, n] - S2[a1, SP[a2, a6], a5, a4, a3, n] - 
    S2[a1, SP[a3, a5], a4, a2, a6, n] - S2[a1, SP[a3, a5], a4, a6, a2, n] - 
    S2[a1, SP[a3, a5], a6, a4, a2, n] + S2[a1, SP[a4, a6], a2, a5, a3, n] + 
    S2[a1, SP[a4, a6], a5, a2, a3, n] + S2[a1, SP[a4, a6], a5, a3, a2, n] + 
    S2[a1, SP[a5, a6], a3, a4, a2, n] + S2[a1, SP[a5, a6], a4, a2, a3, n] + 
    S2[a1, SP[a5, a6], a4, a3, a2, n] + S2[a2, a1, a6, a5, SP[a3, a4], n] + 
    S2[a2, a1, a6, SP[a4, a5], a3, n] + S2[a2, a1, SP[a4, a6], a5, a3, n] + 
    S2[a2, a6, a1, a5, SP[a3, a4], n] + S2[a2, a6, a1, SP[a4, a5], a3, n] + 
    S2[a2, a6, a5, a1, SP[a3, a4], n] + S2[a2, a6, a5, SP[a1, a3], a4, n] + 
    S2[a2, a6, SP[a1, a5], a3, a4, n] + S2[a2, a6, SP[a1, a5], a4, a3, n] + 
    S2[a2, SP[a1, a6], a4, a5, a3, n] + S2[a2, SP[a1, a6], a5, a3, a4, n] + 
    S2[a2, SP[a1, a6], a5, a4, a3, n] + S2[a3, a1, a4, a5, SP[a2, a6], n] + 
    S2[a3, a1, a4, SP[a2, a5], a6, n] + S2[a3, a1, a5, a4, SP[a2, a6], n] + 
    S2[a3, a1, a5, SP[a4, a6], a2, n] + S2[a3, a1, SP[a4, a5], a2, a6, n] + 
    S2[a3, a1, SP[a4, a5], a6, a2, n] - S2[a6, n]*S2[a3, a5, a1, a4, a2, n] + 
    S2[a3, SP[a1, a5], a4, a2, a6, n] + S2[a3, SP[a1, a5], a4, a6, a2, n] + 
    S2[a3, SP[a1, a5], a6, a4, a2, n] - S2[a3, SP[a5, a6], a1, a4, a2, n] - 
    S2[a2, n]*S2[a6, a1, a4, a5, a3, n] - S2[a6, a1, a4, a5, SP[a2, a3], n] - 
    S2[a6, a1, a4, SP[a2, a5], a3, n] - S2[a2, n]*S2[a6, a1, a5, a3, a4, n] - 
    S2[a6, a1, a5, a3, SP[a2, a4], n] - S2[a2, n]*S2[a6, a1, a5, a4, a3, n] - 
    S2[a6, a1, a5, a4, SP[a2, a3], n] - S2[a6, a1, a5, SP[a2, a3], a4, n] - 
    S2[a6, a1, a5, SP[a2, a4], a3, n] - S2[a6, a1, SP[a2, a4], a5, a3, n] - 
    S2[a6, a1, SP[a2, a5], a3, a4, n] - S2[a6, a1, SP[a2, a5], a4, a3, n] + 
    S2[a1, n]*S2[a6, a2, a4, a5, a3, n] + S2[a6, a2, a4, a5, SP[a1, a3], n] + 
    S2[a6, a2, a4, SP[a1, a5], a3, n] + S2[a1, n]*S2[a6, a2, a5, a3, a4, n] + 
    S2[a6, a2, a5, a3, SP[a1, a4], n] + S2[a1, n]*S2[a6, a2, a5, a4, a3, n] + 
    S2[a6, a2, a5, a4, SP[a1, a3], n] + S2[a6, a2, a5, SP[a1, a3], a4, n] + 
    S2[a6, a2, a5, SP[a1, a4], a3, n] + S2[a6, a2, SP[a1, a4], a5, a3, n] + 
    S2[a6, a2, SP[a1, a5], a3, a4, n] + S2[a6, a2, SP[a1, a5], a4, a3, n] - 
    S2[a2, n]*S2[a6, a5, a1, a3, a4, n] - S2[a6, a5, a1, a3, SP[a2, a4], n] + 
    S2[a3, n]*S2[a6, a5, a1, a4, a2, n] - 
    S2[a2, n]*S2[a6, a5, a1, a4, a3, n] - S2[a6, a5, a1, SP[a2, a3], a4, n] - 
    S2[a6, a5, a1, SP[a2, a4], a3, n] + S2[a6, a5, a1, SP[a3, a4], a2, n] + 
    S2[a1, n]*S2[a6, a5, a2, a3, a4, n] + S2[a6, a5, a2, a3, SP[a1, a4], n] + 
    S2[a1, n]*S2[a6, a5, a2, a4, a3, n] + S2[a6, a5, a2, a4, SP[a1, a3], n] + 
    S2[a6, a5, a2, SP[a1, a3], a4, n] + S2[a6, a5, a2, SP[a1, a4], a3, n] - 
    S2[a2, n]*S2[a6, a5, a3, a1, a4, n] - S2[a6, a5, a3, a1, SP[a2, a4], n] + 
    S2[a1, n]*S2[a6, a5, a3, a2, a4, n] + S2[a6, a5, a3, a2, SP[a1, a4], n] + 
    S2[a6, a5, SP[a1, a3], a2, a4, n] + S2[a6, a5, SP[a1, a3], a4, a2, n] - 
    S2[a6, a5, SP[a2, a3], a1, a4, n] + S2[a6, SP[a1, a5], a2, a3, a4, n] + 
    S2[a6, SP[a1, a5], a2, a4, a3, n] + S2[a6, SP[a1, a5], a3, a2, a4, n] - 
    S2[a6, SP[a2, a5], a1, a3, a4, n] - S2[a6, SP[a2, a5], a1, a4, a3, n] - 
    S2[a6, SP[a2, a5], a3, a1, a4, n] + S2[a6, SP[a3, a5], a1, a4, a2, n] + 
    S2[SP[a1, a6], a2, a4, a5, a3, n] + S2[SP[a1, a6], a2, a5, a3, a4, n] + 
    S2[SP[a1, a6], a2, a5, a4, a3, n] + S2[SP[a1, a6], a4, a2, a5, a3, n] + 
    S2[SP[a1, a6], a4, a5, a2, a3, n] + S2[SP[a1, a6], a4, a5, a3, a2, n] + 
    S2[SP[a1, a6], a5, a2, a3, a4, n] + S2[SP[a1, a6], a5, a2, a4, a3, n] + 
    S2[SP[a1, a6], a5, a3, a2, a4, n] + S2[SP[a1, a6], a5, a3, a4, a2, n] + 
    S2[SP[a1, a6], a5, a4, a2, a3, n] + S2[SP[a1, a6], a5, a4, a3, a2, n] - 
    S2[SP[a2, a6], a1, a4, a5, a3, n] - S2[SP[a2, a6], a1, a5, a3, a4, n] - 
    S2[SP[a2, a6], a1, a5, a4, a3, n] - S2[SP[a2, a6], a5, a1, a3, a4, n] - 
    S2[SP[a2, a6], a5, a1, a4, a3, n] - S2[SP[a2, a6], a5, a3, a1, a4, n] - 
    S2[a6, a2, a4, a1, a5, a3, n] - S2[a6, a2, a4, a5, a1, a3, n] - 
    S2[a6, a2, a4, a5, a3, a1, n] - S2[a6, a2, a5, a3, a4, a1, n] - 
    S2[a6, a2, a5, a4, a1, a3, n] - S2[a6, a2, a5, a4, a3, a1, n] - 
    S2[a6, a5, a2, a3, a4, a1, n] - S2[a6, a5, a2, a4, a1, a3, n] - 
    S2[a6, a5, a2, a4, a3, a1, n] - S2[a6, a5, a3, a2, a4, a1, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a1_, a4_, a3_, a2_, a5_, a6_, n_] :> 
  S2[a1, a4, a3, n]*S2[a2, a5, a6, n] + S2[SP[a1, a2], SP[a4, a5], 
     SP[a3, a6], n] - S2[a1, a2, SP[a4, a5], SP[a3, a6], n] + 
    S2[a5, a6, n]*S2[a1, a4, a3, a2, n] - S2[a1, a4, SP[a3, a5], SP[a2, a6], 
     n] - S2[a1, SP[a2, a4], a5, SP[a3, a6], n] - 
    S2[a1, SP[a2, a4], SP[a3, a5], a6, n] - S2[a1, SP[a4, a5], a3, 
     SP[a2, a6], n] - S2[a1, SP[a4, a5], SP[a3, a6], a2, n] - 
    S2[a2, a1, SP[a4, a5], SP[a3, a6], n] - S2[a1, a4, n]*
     S2[a2, a3, a5, a6, n] - S2[a1, a4, n]*S2[a2, a3, a6, a5, n] + 
    S2[a2, a3, SP[a1, a5], SP[a4, a6], n] + S2[a2, a3, SP[a1, a6], 
     SP[a4, a5], n] - S2[a1, a4, n]*S2[a2, a5, a3, a6, n] - 
    S2[a1, a4, n]*S2[a2, a5, a6, a3, n] + S2[a2, a5, SP[a1, a3], SP[a4, a6], 
     n] + S2[a2, a5, SP[a1, a6], SP[a3, a4], n] - 
    S2[a1, a4, n]*S2[a2, a6, a3, a5, n] - S2[a1, a4, n]*
     S2[a2, a6, a5, a3, n] + S2[a2, a6, SP[a1, a3], SP[a4, a5], n] + 
    S2[a2, a6, SP[a1, a5], SP[a3, a4], n] + S2[a2, SP[a1, a3], a5, 
     SP[a4, a6], n] + S2[a2, SP[a1, a3], a6, SP[a4, a5], n] + 
    S2[a2, SP[a1, a3], SP[a4, a5], a6, n] + S2[a2, SP[a1, a3], SP[a4, a6], 
     a5, n] + S2[a2, SP[a1, a5], a3, SP[a4, a6], n] - 
    S2[a2, SP[a1, a5], a4, SP[a3, a6], n] + S2[a2, SP[a1, a5], a6, 
     SP[a3, a4], n] + S2[a2, SP[a1, a5], SP[a3, a4], a6, n] + 
    S2[a2, SP[a1, a6], a3, SP[a4, a5], n] + S2[a2, SP[a1, a6], a5, 
     SP[a3, a4], n] + S2[a2, SP[a1, a6], SP[a3, a4], a5, n] + 
    S2[a2, SP[a1, a6], SP[a4, a5], a3, n] + S2[a1, a4, n]*
     S2[a5, a6, a2, a3, n] - S2[a5, a6, SP[a1, a2], SP[a3, a4], n] - 
    S2[a5, SP[a1, a6], a2, SP[a3, a4], n] - S2[a5, SP[a1, a6], SP[a2, a4], 
     a3, n] + S2[SP[a1, a2], a3, a5, SP[a4, a6], n] + 
    S2[SP[a1, a2], a3, a6, SP[a4, a5], n] + S2[SP[a1, a2], a3, SP[a4, a5], 
     a6, n] + S2[SP[a1, a2], a3, SP[a4, a6], a5, n] - 
    S2[SP[a1, a2], a4, a5, SP[a3, a6], n] - S2[SP[a1, a2], a4, SP[a3, a5], 
     a6, n] + S2[SP[a1, a2], a5, a3, SP[a4, a6], n] - 
    S2[SP[a1, a2], a5, a4, SP[a3, a6], n] + S2[SP[a1, a2], a5, a6, 
     SP[a3, a4], n] + S2[SP[a1, a2], a5, SP[a3, a4], a6, n] + 
    S2[SP[a1, a2], a6, a3, SP[a4, a5], n] + S2[SP[a1, a2], a6, a5, 
     SP[a3, a4], n] + S2[SP[a1, a2], a6, SP[a3, a4], a5, n] + 
    S2[SP[a1, a2], a6, SP[a4, a5], a3, n] + S2[SP[a1, a2], SP[a3, a4], a5, 
     a6, n] + S2[SP[a1, a2], SP[a3, a4], a6, a5, n] + 
    S2[SP[a1, a2], SP[a4, a6], a3, a5, n] + S2[SP[a1, a2], SP[a4, a6], a5, 
     a3, n] - S2[SP[a1, a5], a4, a3, SP[a2, a6], n] - 
    S2[SP[a1, a5], a4, SP[a3, a6], a2, n] - S2[SP[a1, a5], a6, a2, 
     SP[a3, a4], n] - S2[SP[a1, a5], a6, SP[a2, a4], a3, n] - 
    S2[SP[a1, a5], SP[a4, a6], a2, a3, n] - S2[SP[a1, a5], SP[a4, a6], a3, 
     a2, n] - S2[a1, a2, a3, a5, SP[a4, a6], n] - 
    S2[a1, a2, a3, a6, SP[a4, a5], n] - S2[a1, a2, a3, SP[a4, a5], a6, n] - 
    S2[a1, a2, a3, SP[a4, a6], a5, n] + S2[a1, a2, a4, a5, SP[a3, a6], n] + 
    S2[a1, a2, a4, SP[a3, a5], a6, n] - S2[a1, a2, a5, a3, SP[a4, a6], n] + 
    S2[a1, a2, a5, a4, SP[a3, a6], n] - S2[a1, a2, a5, a6, SP[a3, a4], n] - 
    S2[a1, a2, a5, SP[a3, a4], a6, n] - S2[a1, a2, a6, a3, SP[a4, a5], n] - 
    S2[a1, a2, a6, a5, SP[a3, a4], n] - S2[a1, a2, a6, SP[a3, a4], a5, n] - 
    S2[a1, a2, a6, SP[a4, a5], a3, n] - S2[a1, a2, SP[a3, a4], a5, a6, n] - 
    S2[a1, a2, SP[a3, a4], a6, a5, n] - S2[a1, a2, SP[a4, a6], a3, a5, n] - 
    S2[a1, a2, SP[a4, a6], a5, a3, n] - S2[a6, n]*S2[a1, a3, a2, a4, a5, n] - 
    S2[a1, a3, a2, a4, SP[a5, a6], n] - S2[a6, n]*S2[a1, a3, a2, a5, a4, n] - 
    S2[a1, a3, a2, a5, SP[a4, a6], n] - S2[a1, a3, a2, SP[a4, a6], a5, n] - 
    S2[a1, a3, a2, SP[a5, a6], a4, n] - S2[a6, n]*S2[a1, a3, a4, a2, a5, n] - 
    S2[a1, a3, a4, a2, SP[a5, a6], n] - S2[a6, n]*S2[a1, a3, a4, a5, a2, n] + 
    S2[a2, n]*S2[a1, a3, a4, a5, a6, n] + 
    S2[a2, n]*S2[a1, a3, a4, a6, a5, n] + S2[a1, a3, a4, a6, SP[a2, a5], n] + 
    S2[a1, a3, a4, SP[a2, a5], a6, n] - S2[a1, a3, a4, SP[a5, a6], a2, n] - 
    S2[a6, n]*S2[a1, a3, a5, a2, a4, n] - S2[a1, a3, a5, a2, SP[a4, a6], n] - 
    S2[a6, n]*S2[a1, a3, a5, a4, a2, n] + 
    S2[a2, n]*S2[a1, a3, a5, a4, a6, n] + 
    S2[a2, n]*S2[a1, a3, a5, a6, a4, n] + S2[a1, a3, a5, a6, SP[a2, a4], n] + 
    S2[a1, a3, a5, SP[a2, a4], a6, n] - S2[a1, a3, a5, SP[a4, a6], a2, n] + 
    S2[a2, n]*S2[a1, a3, a6, a4, a5, n] + S2[a1, a3, a6, a4, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a3, a6, a5, a4, n] + S2[a1, a3, a6, a5, SP[a2, a4], n] + 
    S2[a1, a3, a6, SP[a2, a4], a5, n] + S2[a1, a3, a6, SP[a2, a5], a4, n] + 
    S2[a1, a3, SP[a2, a4], a5, a6, n] + S2[a1, a3, SP[a2, a4], a6, a5, n] + 
    S2[a1, a3, SP[a2, a5], a4, a6, n] + S2[a1, a3, SP[a2, a5], a6, a4, n] - 
    S2[a1, a3, SP[a4, a6], a2, a5, n] - S2[a1, a3, SP[a4, a6], a5, a2, n] - 
    S2[a1, a3, SP[a5, a6], a2, a4, n] - S2[a1, a3, SP[a5, a6], a4, a2, n] + 
    S2[a1, a4, a2, a5, SP[a3, a6], n] + S2[a1, a4, a2, SP[a3, a5], a6, n] - 
    S2[a5, n]*S2[a1, a4, a3, a2, a6, n] - S2[a1, a4, a3, a2, SP[a5, a6], n] + 
    S2[a1, a4, a3, a5, SP[a2, a6], n] - S2[a5, n]*S2[a1, a4, a3, a6, a2, n] + 
    S2[a2, n]*S2[a1, a4, a3, a6, a5, n] + S2[a1, a4, a3, SP[a2, a6], a5, n] - 
    S2[a1, a4, a3, SP[a5, a6], a2, n] + S2[a1, a4, a5, a3, SP[a2, a6], n] + 
    S2[a1, a4, a5, SP[a3, a6], a2, n] - S2[a5, n]*S2[a1, a4, a6, a2, a3, n] - 
    S2[a1, a4, a6, a2, SP[a3, a5], n] - S2[a5, n]*S2[a1, a4, a6, a3, a2, n] + 
    S2[a2, n]*S2[a1, a4, a6, a3, a5, n] + 
    S2[a2, n]*S2[a1, a4, a6, a5, a3, n] + S2[a1, a4, a6, a5, SP[a2, a3], n] + 
    S2[a1, a4, a6, SP[a2, a3], a5, n] - S2[a1, a4, a6, SP[a3, a5], a2, n] + 
    S2[a1, a4, SP[a2, a3], a5, a6, n] + S2[a1, a4, SP[a2, a3], a6, a5, n] + 
    S2[a1, a4, SP[a2, a6], a3, a5, n] + S2[a1, a4, SP[a2, a6], a5, a3, n] - 
    S2[a1, a4, SP[a5, a6], a2, a3, n] - S2[a1, a4, SP[a5, a6], a3, a2, n] - 
    S2[a6, n]*S2[a1, a5, a2, a3, a4, n] - S2[a1, a5, a2, a3, SP[a4, a6], n] - 
    S2[a1, a5, a2, SP[a3, a6], a4, n] - S2[a6, n]*S2[a1, a5, a3, a2, a4, n] - 
    S2[a1, a5, a3, a2, SP[a4, a6], n] - S2[a6, n]*S2[a1, a5, a3, a4, a2, n] + 
    S2[a2, n]*S2[a1, a5, a3, a4, a6, n] + 
    S2[a2, n]*S2[a1, a5, a3, a6, a4, n] + S2[a1, a5, a3, a6, SP[a2, a4], n] + 
    S2[a1, a5, a3, SP[a2, a4], a6, n] - S2[a1, a5, a3, SP[a4, a6], a2, n] + 
    S2[a1, a5, a4, a3, SP[a2, a6], n] + S2[a1, a5, a4, SP[a3, a6], a2, n] + 
    S2[a1, a5, a6, a2, SP[a3, a4], n] + S2[a2, n]*S2[a1, a5, a6, a3, a4, n] + 
    S2[a1, a5, a6, a3, SP[a2, a4], n] + S2[a1, a5, a6, SP[a2, a3], a4, n] + 
    S2[a1, a5, a6, SP[a2, a4], a3, n] + S2[a1, a5, SP[a2, a3], a4, a6, n] + 
    S2[a1, a5, SP[a2, a3], a6, a4, n] - S2[a1, a5, SP[a3, a6], a2, a4, n] - 
    S2[a1, a5, SP[a3, a6], a4, a2, n] + S2[a1, a5, SP[a4, a6], a2, a3, n] + 
    S2[a1, a5, SP[a4, a6], a3, a2, n] - S2[a5, n]*S2[a1, a6, a2, a3, a4, n] - 
    S2[a1, a6, a2, a3, SP[a4, a5], n] - S2[a5, n]*S2[a1, a6, a2, a4, a3, n] - 
    S2[a1, a6, a2, a4, SP[a3, a5], n] - S2[a1, a6, a2, SP[a3, a5], a4, n] - 
    S2[a1, a6, a2, SP[a4, a5], a3, n] + S2[a2, n]*S2[a1, a6, a3, a4, a5, n] + 
    S2[a1, a6, a3, a4, SP[a2, a5], n] + S2[a2, n]*S2[a1, a6, a3, a5, a4, n] + 
    S2[a1, a6, a3, a5, SP[a2, a4], n] + S2[a1, a6, a3, SP[a2, a4], a5, n] + 
    S2[a1, a6, a3, SP[a2, a5], a4, n] - S2[a5, n]*S2[a1, a6, a4, a2, a3, n] - 
    S2[a1, a6, a4, a2, SP[a3, a5], n] - S2[a5, n]*S2[a1, a6, a4, a3, a2, n] + 
    S2[a2, n]*S2[a1, a6, a4, a3, a5, n] + 
    S2[a2, n]*S2[a1, a6, a4, a5, a3, n] + S2[a1, a6, a4, a5, SP[a2, a3], n] + 
    S2[a1, a6, a4, SP[a2, a3], a5, n] - S2[a1, a6, a4, SP[a3, a5], a2, n] + 
    S2[a2, n]*S2[a1, a6, a5, a3, a4, n] + S2[a1, a6, a5, a3, SP[a2, a4], n] + 
    S2[a2, n]*S2[a1, a6, a5, a4, a3, n] + S2[a1, a6, a5, a4, SP[a2, a3], n] + 
    S2[a1, a6, a5, SP[a2, a3], a4, n] + S2[a1, a6, a5, SP[a2, a4], a3, n] + 
    S2[a1, a6, SP[a2, a3], a4, a5, n] + S2[a1, a6, SP[a2, a3], a5, a4, n] + 
    S2[a1, a6, SP[a2, a4], a3, a5, n] + S2[a1, a6, SP[a2, a4], a5, a3, n] - 
    S2[a1, a6, SP[a4, a5], a2, a3, n] - S2[a1, a6, SP[a4, a5], a3, a2, n] + 
    S2[a1, SP[a2, a3], a4, a5, a6, n] + S2[a1, SP[a2, a3], a4, a6, a5, n] + 
    S2[a1, SP[a2, a3], a5, a4, a6, n] + S2[a1, SP[a2, a3], a5, a6, a4, n] + 
    S2[a1, SP[a2, a3], a6, a4, a5, n] + S2[a1, SP[a2, a3], a6, a5, a4, n] + 
    S2[a1, SP[a2, a5], a3, a4, a6, n] + S2[a1, SP[a2, a5], a3, a6, a4, n] + 
    S2[a1, SP[a2, a5], a6, a3, a4, n] + S2[a1, SP[a2, a6], a3, a4, a5, n] + 
    S2[a1, SP[a2, a6], a3, a5, a4, n] + S2[a1, SP[a2, a6], a4, a3, a5, n] + 
    S2[a1, SP[a2, a6], a4, a5, a3, n] + S2[a1, SP[a2, a6], a5, a3, a4, n] + 
    S2[a1, SP[a2, a6], a5, a4, a3, n] - S2[a1, SP[a3, a6], a2, a4, a5, n] - 
    S2[a1, SP[a3, a6], a2, a5, a4, n] - S2[a1, SP[a3, a6], a4, a2, a5, n] - 
    S2[a1, SP[a3, a6], a4, a5, a2, n] - S2[a1, SP[a3, a6], a5, a2, a4, n] - 
    S2[a1, SP[a3, a6], a5, a4, a2, n] - 2*S2[a1, SP[a5, a6], a2, a3, a4, n] - 
    S2[a1, SP[a5, a6], a2, a4, a3, n] - S2[a1, SP[a5, a6], a3, a2, a4, n] - 
    S2[a1, SP[a5, a6], a3, a4, a2, n] - S2[a1, SP[a5, a6], a4, a2, a3, n] - 
    S2[a1, SP[a5, a6], a4, a3, a2, n] - S2[a2, a1, a3, a5, SP[a4, a6], n] - 
    S2[a2, a1, a3, a6, SP[a4, a5], n] - S2[a2, a1, a3, SP[a4, a5], a6, n] - 
    S2[a2, a1, a3, SP[a4, a6], a5, n] + S2[a2, a1, a4, a5, SP[a3, a6], n] + 
    S2[a2, a1, a4, SP[a3, a5], a6, n] - S2[a2, a1, a5, a3, SP[a4, a6], n] + 
    S2[a2, a1, a5, a4, SP[a3, a6], n] - S2[a2, a1, a5, a6, SP[a3, a4], n] - 
    S2[a2, a1, a5, SP[a3, a4], a6, n] - S2[a2, a1, a6, a3, SP[a4, a5], n] - 
    S2[a2, a1, a6, a5, SP[a3, a4], n] - S2[a2, a1, a6, SP[a3, a4], a5, n] - 
    S2[a2, a1, a6, SP[a4, a5], a3, n] - S2[a2, a1, SP[a3, a4], a5, a6, n] - 
    S2[a2, a1, SP[a3, a4], a6, a5, n] - S2[a2, a1, SP[a4, a6], a3, a5, n] - 
    S2[a2, a1, SP[a4, a6], a5, a3, n] + S2[a6, n]*S2[a2, a3, a1, a4, a5, n] + 
    S2[a2, a3, a1, a4, SP[a5, a6], n] + S2[a6, n]*S2[a2, a3, a1, a5, a4, n] - 
    S2[a2, a3, a1, a6, SP[a4, a5], n] - S2[a2, a3, a1, SP[a4, a5], a6, n] + 
    S2[a2, a3, a1, SP[a5, a6], a4, n] + S2[a6, n]*S2[a2, a3, a5, a1, a4, n] - 
    S2[a2, a3, a6, a1, SP[a4, a5], n] - S2[a2, a3, a6, SP[a1, a5], a4, n] - 
    S2[a2, a3, SP[a1, a5], a4, a6, n] - S2[a2, a3, SP[a1, a5], a6, a4, n] + 
    S2[a2, a3, SP[a5, a6], a1, a4, n] + S2[a6, n]*S2[a2, a5, a1, a3, a4, n] + 
    S2[a2, a5, a1, a4, SP[a3, a6], n] - S2[a2, a5, a1, a6, SP[a3, a4], n] - 
    S2[a2, a5, a1, SP[a3, a4], a6, n] + S2[a2, a5, a1, SP[a3, a6], a4, n] + 
    S2[a6, n]*S2[a2, a5, a3, a1, a4, n] - S2[a2, a5, a6, a1, SP[a3, a4], n] - 
    S2[a2, a5, a6, SP[a1, a3], a4, n] - S2[a2, a5, SP[a1, a3], a4, a6, n] - 
    S2[a2, a5, SP[a1, a3], a6, a4, n] + S2[a2, a5, SP[a3, a6], a1, a4, n] + 
    S2[a5, n]*S2[a2, a6, a1, a3, a4, n] + 
    S2[a5, n]*S2[a2, a6, a1, a4, a3, n] + S2[a2, a6, a1, a4, SP[a3, a5], n] - 
    S2[a2, a6, a1, a5, SP[a3, a4], n] - S2[a2, a6, a1, SP[a3, a4], a5, n] + 
    S2[a2, a6, a1, SP[a3, a5], a4, n] - S2[a2, a6, a3, a1, SP[a4, a5], n] - 
    S2[a2, a6, a3, SP[a1, a5], a4, n] - S2[a2, a6, a5, a1, SP[a3, a4], n] - 
    S2[a2, a6, a5, SP[a1, a3], a4, n] - S2[a2, a6, SP[a1, a3], a4, a5, n] - 
    S2[a2, a6, SP[a1, a3], a5, a4, n] - S2[a2, SP[a1, a3], a4, a5, a6, n] - 
    S2[a2, SP[a1, a3], a4, a6, a5, n] - S2[a2, SP[a1, a3], a5, a4, a6, n] - 
    S2[a2, SP[a1, a3], a5, a6, a4, n] - S2[a2, SP[a1, a3], a6, a4, a5, n] - 
    S2[a2, SP[a1, a3], a6, a5, a4, n] - S2[a2, SP[a1, a5], a3, a4, a6, n] - 
    S2[a2, SP[a1, a5], a3, a6, a4, n] - S2[a2, SP[a1, a5], a6, a3, a4, n] - 
    S2[a2, SP[a1, a6], a3, a4, a5, n] - S2[a2, SP[a1, a6], a3, a5, a4, n] - 
    S2[a2, SP[a1, a6], a4, a3, a5, n] - S2[a2, SP[a1, a6], a4, a5, a3, n] - 
    S2[a2, SP[a1, a6], a5, a3, a4, n] - S2[a2, SP[a1, a6], a5, a4, a3, n] + 
    S2[a2, SP[a3, a6], a1, a4, a5, n] + S2[a2, SP[a3, a6], a1, a5, a4, n] + 
    S2[a2, SP[a3, a6], a5, a1, a4, n] + 2*S2[a2, SP[a5, a6], a1, a3, a4, n] + 
    S2[a2, SP[a5, a6], a1, a4, a3, n] + S2[a2, SP[a5, a6], a3, a1, a4, n] + 
    S2[a5, a1, a4, a3, SP[a2, a6], n] + S2[a5, a1, a4, SP[a3, a6], a2, n] + 
    S2[a5, a1, a6, a2, SP[a3, a4], n] + S2[a5, a1, a6, SP[a2, a4], a3, n] + 
    S2[a5, a1, SP[a4, a6], a2, a3, n] + S2[a5, a1, SP[a4, a6], a3, a2, n] + 
    S2[a5, a6, a1, a2, SP[a3, a4], n] - S2[a2, n]*S2[a5, a6, a1, a3, a4, n] - 
    S2[a5, a6, a1, a3, SP[a2, a4], n] - S2[a2, n]*S2[a5, a6, a1, a4, a3, n] - 
    S2[a5, a6, a1, a4, SP[a2, a3], n] - S2[a5, a6, a1, SP[a2, a3], a4, n] + 
    S2[a5, a6, a2, a1, SP[a3, a4], n] + S2[a5, a6, a2, SP[a1, a3], a4, n] + 
    S2[a5, SP[a1, a6], a2, a3, a4, n] + S2[a5, SP[a1, a6], a2, a4, a3, n] + 
    S2[a5, SP[a1, a6], a4, a2, a3, n] + S2[a5, SP[a1, a6], a4, a3, a2, n] - 
    S2[a5, SP[a2, a6], a1, a3, a4, n] - S2[a5, SP[a2, a6], a1, a4, a3, n] + 
    S2[a5, n]*S2[a6, a1, a3, a2, a4, n] + S2[a6, a1, a3, a2, SP[a4, a5], n] + 
    S2[a5, n]*S2[a6, a1, a3, a4, a2, n] + S2[a6, a1, a3, a4, SP[a2, a5], n] + 
    S2[a6, a1, a3, SP[a2, a5], a4, n] + S2[a6, a1, a3, SP[a4, a5], a2, n] + 
    S2[a6, a1, SP[a3, a5], a2, a4, n] + S2[a6, a1, SP[a3, a5], a4, a2, n] - 
    S2[a5, n]*S2[a6, a2, a3, a1, a4, n] - S2[a6, a2, a3, a1, SP[a4, a5], n] - 
    S2[a6, a2, a3, SP[a1, a5], a4, n] - S2[a6, a2, SP[a3, a5], a1, a4, n] - 
    S2[a2, n]*S2[a6, a5, a1, a3, a4, n] - S2[a6, a5, a1, a3, SP[a2, a4], n] - 
    S2[a6, a5, a1, SP[a2, a3], a4, n] + S2[a1, n]*S2[a6, a5, a2, a3, a4, n] + 
    S2[a6, a5, a2, a3, SP[a1, a4], n] + S2[a6, a5, a2, SP[a1, a3], a4, n] + 
    S2[a6, SP[a1, a5], a2, a3, a4, n] + S2[a6, SP[a1, a5], a3, a2, a4, n] + 
    S2[a6, SP[a1, a5], a3, a4, a2, n] - S2[a6, SP[a2, a5], a1, a3, a4, n] - 
    S2[a6, SP[a2, a5], a3, a1, a4, n] - S2[SP[a1, a6], a3, a2, a4, a5, n] - 
    S2[SP[a1, a6], a3, a2, a5, a4, n] - S2[SP[a1, a6], a3, a4, a2, a5, n] - 
    S2[SP[a1, a6], a3, a4, a5, a2, n] - S2[SP[a1, a6], a3, a5, a2, a4, n] - 
    S2[SP[a1, a6], a3, a5, a4, a2, n] - S2[SP[a1, a6], a5, a3, a2, a4, n] - 
    S2[SP[a1, a6], a5, a3, a4, a2, n] + S2[SP[a2, a6], a3, a1, a4, a5, n] + 
    S2[SP[a2, a6], a3, a1, a5, a4, n] + S2[SP[a2, a6], a3, a5, a1, a4, n] + 
    S2[SP[a2, a6], a5, a3, a1, a4, n] + S2[SP[a5, a6], a1, a3, a2, a4, n] + 
    S2[SP[a5, a6], a1, a3, a4, a2, n] - S2[SP[a5, a6], a2, a3, a1, a4, n] - 
    S2[a6, a5, a2, a3, a4, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a1_, a4_, a3_, a2_, a6_, a5_, n_] :> 
  S2[a1, a4, a3, n]*S2[a2, a6, a5, n] + S2[SP[a1, a2], SP[a4, a6], 
     SP[a3, a5], n] - S2[a1, a2, SP[a4, a6], SP[a3, a5], n] - 
    S2[a5, a6, n]*S2[a1, a4, a3, a2, n] + S2[a1, a4, SP[a3, a5], SP[a2, a6], 
     n] - S2[a1, SP[a2, a4], a6, SP[a3, a5], n] - 
    S2[a1, SP[a2, a4], SP[a3, a6], a5, n] + S2[a1, SP[a4, a5], a3, 
     SP[a2, a6], n] + S2[a1, SP[a4, a5], SP[a3, a6], a2, n] - 
    S2[a2, a1, SP[a4, a6], SP[a3, a5], n] - S2[a2, SP[a1, a6], a4, 
     SP[a3, a5], n] - S2[a2, SP[a1, a6], SP[a4, a5], a3, n] - 
    S2[a1, a4, n]*S2[a5, a6, a2, a3, n] + S2[a5, a6, SP[a1, a2], SP[a3, a4], 
     n] + S2[a5, SP[a1, a6], a2, SP[a3, a4], n] + 
    S2[a5, SP[a1, a6], SP[a2, a4], a3, n] - S2[SP[a1, a2], a4, a6, 
     SP[a3, a5], n] - S2[SP[a1, a2], a4, SP[a3, a6], a5, n] - 
    S2[SP[a1, a2], a6, a4, SP[a3, a5], n] - S2[SP[a1, a2], a6, SP[a4, a5], 
     a3, n] - S2[SP[a1, a2], SP[a4, a6], a3, a5, n] - 
    S2[SP[a1, a2], SP[a4, a6], a5, a3, n] + S2[SP[a1, a5], a4, a3, 
     SP[a2, a6], n] + S2[SP[a1, a5], a4, SP[a3, a6], a2, n] + 
    S2[SP[a1, a5], a6, a2, SP[a3, a4], n] + S2[SP[a1, a5], a6, SP[a2, a4], 
     a3, n] + S2[SP[a1, a5], SP[a4, a6], a2, a3, n] + 
    S2[SP[a1, a5], SP[a4, a6], a3, a2, n] + S2[a1, a2, a4, a6, SP[a3, a5], 
     n] + S2[a1, a2, a4, SP[a3, a6], a5, n] + S2[a1, a2, a6, a4, SP[a3, a5], 
     n] + S2[a1, a2, a6, SP[a4, a5], a3, n] + S2[a1, a2, SP[a4, a6], a3, a5, 
     n] + S2[a1, a2, SP[a4, a6], a5, a3, n] + S2[a1, a4, a2, a6, SP[a3, a5], 
     n] + S2[a1, a4, a2, SP[a3, a6], a5, n] + 
    S2[a5, n]*S2[a1, a4, a3, a2, a6, n] + S2[a1, a4, a3, a2, SP[a5, a6], n] - 
    S2[a1, a4, a3, a5, SP[a2, a6], n] + S2[a5, n]*S2[a1, a4, a3, a6, a2, n] - 
    S2[a2, n]*S2[a1, a4, a3, a6, a5, n] - S2[a1, a4, a3, SP[a2, a6], a5, n] + 
    S2[a1, a4, a3, SP[a5, a6], a2, n] - S2[a1, a4, a5, a3, SP[a2, a6], n] - 
    S2[a1, a4, a5, SP[a3, a6], a2, n] + S2[a5, n]*S2[a1, a4, a6, a2, a3, n] + 
    S2[a1, a4, a6, a2, SP[a3, a5], n] + S2[a5, n]*S2[a1, a4, a6, a3, a2, n] - 
    S2[a2, n]*S2[a1, a4, a6, a3, a5, n] - 
    S2[a2, n]*S2[a1, a4, a6, a5, a3, n] - S2[a1, a4, a6, a5, SP[a2, a3], n] - 
    S2[a1, a4, a6, SP[a2, a3], a5, n] + S2[a1, a4, a6, SP[a3, a5], a2, n] - 
    S2[a1, a4, SP[a2, a6], a3, a5, n] - S2[a1, a4, SP[a2, a6], a5, a3, n] + 
    S2[a1, a4, SP[a5, a6], a2, a3, n] + S2[a1, a4, SP[a5, a6], a3, a2, n] - 
    S2[a1, a5, a4, a3, SP[a2, a6], n] - S2[a1, a5, a4, SP[a3, a6], a2, n] - 
    S2[a1, a5, a6, a2, SP[a3, a4], n] - S2[a1, a5, a6, SP[a2, a4], a3, n] - 
    S2[a1, a5, SP[a4, a6], a2, a3, n] - S2[a1, a5, SP[a4, a6], a3, a2, n] + 
    S2[a5, n]*S2[a1, a6, a2, a3, a4, n] + S2[a1, a6, a2, a3, SP[a4, a5], n] + 
    S2[a5, n]*S2[a1, a6, a2, a4, a3, n] + S2[a1, a6, a2, a4, SP[a3, a5], n] + 
    S2[a1, a6, a2, SP[a3, a5], a4, n] + S2[a1, a6, a2, SP[a4, a5], a3, n] + 
    S2[a5, n]*S2[a1, a6, a4, a2, a3, n] + S2[a1, a6, a4, a2, SP[a3, a5], n] + 
    S2[a5, n]*S2[a1, a6, a4, a3, a2, n] - 
    S2[a2, n]*S2[a1, a6, a4, a3, a5, n] - 
    S2[a2, n]*S2[a1, a6, a4, a5, a3, n] - S2[a1, a6, a4, a5, SP[a2, a3], n] - 
    S2[a1, a6, a4, SP[a2, a3], a5, n] + S2[a1, a6, a4, SP[a3, a5], a2, n] - 
    S2[a2, n]*S2[a1, a6, a5, a4, a3, n] - S2[a1, a6, a5, a4, SP[a2, a3], n] - 
    S2[a1, a6, a5, SP[a2, a4], a3, n] - S2[a1, a6, SP[a2, a4], a3, a5, n] - 
    S2[a1, a6, SP[a2, a4], a5, a3, n] + S2[a1, a6, SP[a2, a5], a3, a4, n] + 
    S2[a1, a6, SP[a4, a5], a2, a3, n] + S2[a1, a6, SP[a4, a5], a3, a2, n] - 
    S2[a1, SP[a2, a6], a4, a3, a5, n] - S2[a1, SP[a2, a6], a4, a5, a3, n] - 
    S2[a1, SP[a2, a6], a5, a4, a3, n] + S2[a1, SP[a5, a6], a2, a3, a4, n] + 
    S2[a1, SP[a5, a6], a2, a4, a3, n] + S2[a1, SP[a5, a6], a4, a2, a3, n] + 
    S2[a1, SP[a5, a6], a4, a3, a2, n] + S2[a2, a1, a4, a6, SP[a3, a5], n] + 
    S2[a2, a1, a4, SP[a3, a6], a5, n] + S2[a2, a1, a6, a4, SP[a3, a5], n] + 
    S2[a2, a1, a6, SP[a4, a5], a3, n] + S2[a2, a1, SP[a4, a6], a3, a5, n] + 
    S2[a2, a1, SP[a4, a6], a5, a3, n] - S2[a5, n]*S2[a2, a6, a1, a3, a4, n] - 
    S2[a2, a6, a1, a3, SP[a4, a5], n] - S2[a5, n]*S2[a2, a6, a1, a4, a3, n] - 
    S2[a2, a6, a1, SP[a3, a5], a4, n] - S2[a2, a6, SP[a1, a5], a3, a4, n] + 
    S2[a2, SP[a1, a6], a4, a3, a5, n] + S2[a2, SP[a1, a6], a4, a5, a3, n] + 
    S2[a2, SP[a1, a6], a5, a4, a3, n] - S2[a2, SP[a5, a6], a1, a3, a4, n] - 
    S2[a2, SP[a5, a6], a1, a4, a3, n] - S2[a5, a1, a4, a3, SP[a2, a6], n] - 
    S2[a5, a1, a4, SP[a3, a6], a2, n] - S2[a5, a1, a6, a2, SP[a3, a4], n] - 
    S2[a5, a1, a6, SP[a2, a4], a3, n] - S2[a5, a1, SP[a4, a6], a2, a3, n] - 
    S2[a5, a1, SP[a4, a6], a3, a2, n] - S2[a5, a6, a1, a2, SP[a3, a4], n] + 
    S2[a2, n]*S2[a5, a6, a1, a3, a4, n] + S2[a5, a6, a1, a3, SP[a2, a4], n] + 
    S2[a2, n]*S2[a5, a6, a1, a4, a3, n] + S2[a5, a6, a1, a4, SP[a2, a3], n] + 
    S2[a5, a6, a1, SP[a2, a3], a4, n] - S2[a5, a6, a2, a1, SP[a3, a4], n] - 
    S2[a5, a6, a2, SP[a1, a3], a4, n] - S2[a5, SP[a1, a6], a2, a3, a4, n] - 
    S2[a5, SP[a1, a6], a2, a4, a3, n] - S2[a5, SP[a1, a6], a4, a2, a3, n] - 
    S2[a5, SP[a1, a6], a4, a3, a2, n] + S2[a5, SP[a2, a6], a1, a3, a4, n] + 
    S2[a5, SP[a2, a6], a1, a4, a3, n] - S2[a5, n]*S2[a6, a1, a3, a2, a4, n] - 
    S2[a6, a1, a3, a2, SP[a4, a5], n] - S2[a5, n]*S2[a6, a1, a3, a4, a2, n] + 
    S2[a2, n]*S2[a6, a1, a3, a4, a5, n] + 
    S2[a2, n]*S2[a6, a1, a3, a5, a4, n] + S2[a6, a1, a3, a5, SP[a2, a4], n] + 
    S2[a6, a1, a3, SP[a2, a4], a5, n] - S2[a6, a1, a3, SP[a4, a5], a2, n] + 
    S2[a2, n]*S2[a6, a1, a5, a3, a4, n] + S2[a6, a1, a5, a3, SP[a2, a4], n] + 
    S2[a6, a1, a5, SP[a2, a3], a4, n] + S2[a6, a1, SP[a2, a3], a4, a5, n] + 
    S2[a6, a1, SP[a2, a3], a5, a4, n] + S2[a6, a1, SP[a2, a5], a3, a4, n] - 
    S2[a6, a1, SP[a3, a5], a2, a4, n] - S2[a6, a1, SP[a3, a5], a4, a2, n] + 
    S2[a5, n]*S2[a6, a2, a3, a1, a4, n] + S2[a6, a2, a3, a1, SP[a4, a5], n] - 
    S2[a1, n]*S2[a6, a2, a3, a4, a5, n] - S2[a6, a2, a3, a4, SP[a1, a5], n] - 
    S2[a1, n]*S2[a6, a2, a3, a5, a4, n] - S2[a6, a2, a3, a5, SP[a1, a4], n] - 
    S2[a6, a2, a3, SP[a1, a4], a5, n] - S2[a1, n]*S2[a6, a2, a5, a3, a4, n] - 
    S2[a6, a2, a5, a3, SP[a1, a4], n] - S2[a6, a2, a5, SP[a1, a3], a4, n] - 
    S2[a6, a2, SP[a1, a3], a4, a5, n] - S2[a6, a2, SP[a1, a3], a5, a4, n] - 
    S2[a6, a2, SP[a1, a5], a3, a4, n] + S2[a6, a2, SP[a3, a5], a1, a4, n] + 
    S2[a2, n]*S2[a6, a5, a1, a3, a4, n] + S2[a6, a5, a1, a3, SP[a2, a4], n] + 
    S2[a6, a5, a1, SP[a2, a3], a4, n] - S2[a1, n]*S2[a6, a5, a2, a3, a4, n] - 
    S2[a6, a5, a2, a3, SP[a1, a4], n] - S2[a6, a5, a2, SP[a1, a3], a4, n] - 
    S2[a6, SP[a1, a5], a2, a3, a4, n] - S2[a6, SP[a1, a5], a3, a2, a4, n] - 
    S2[a6, SP[a1, a5], a3, a4, a2, n] + S2[a6, SP[a2, a5], a1, a3, a4, n] + 
    S2[a6, SP[a2, a5], a3, a1, a4, n] - S2[SP[a1, a6], a2, a3, a4, a5, n] - 
    S2[SP[a1, a6], a2, a3, a5, a4, n] - S2[SP[a1, a6], a2, a5, a3, a4, n] - 
    S2[SP[a1, a6], a5, a2, a3, a4, n] + S2[SP[a2, a6], a1, a3, a4, a5, n] + 
    S2[SP[a2, a6], a1, a3, a5, a4, n] + S2[SP[a2, a6], a1, a5, a3, a4, n] + 
    S2[SP[a2, a6], a5, a1, a3, a4, n] - S2[SP[a5, a6], a1, a3, a2, a4, n] - 
    S2[SP[a5, a6], a1, a3, a4, a2, n] + S2[SP[a5, a6], a2, a3, a1, a4, n] + 
    S2[a6, a2, a3, a4, a1, a5, n] + S2[a6, a2, a3, a4, a5, a1, n] + 
    S2[a6, a2, a3, a5, a4, a1, n] + S2[a6, a2, a5, a3, a4, a1, n] + 
    S2[a6, a5, a2, a3, a4, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a1_, a4_, a3_, a5_, a2_, a6_, n_] :> 
  -(S2[a1, a4, a3, n]*S2[a2, a5, a6, n]) - S2[a1, a4, a3, n]*
     S2[a2, a6, a5, n] - S2[SP[a1, a2], SP[a4, a5], SP[a3, a6], n] - 
    S2[SP[a1, a2], SP[a4, a6], SP[a3, a5], n] + S2[a1, a2, SP[a4, a5], 
     SP[a3, a6], n] + S2[a1, a2, SP[a4, a6], SP[a3, a5], n] + 
    S2[a2, a6, n]*S2[a1, a4, a3, a5, n] - S2[a1, a4, SP[a2, a3], SP[a5, a6], 
     n] - S2[a1, SP[a2, a4], a3, SP[a5, a6], n] + S2[a1, SP[a2, a4], a5, 
     SP[a3, a6], n] + S2[a1, SP[a2, a4], a6, SP[a3, a5], n] + 
    S2[a1, SP[a2, a4], SP[a3, a5], a6, n] + S2[a2, a1, SP[a4, a5], 
     SP[a3, a6], n] + S2[a2, a1, SP[a4, a6], SP[a3, a5], n] + 
    S2[a1, a4, n]*S2[a2, a5, a3, a6, n] + S2[a1, a4, n]*
     S2[a2, a5, a6, a3, n] - S2[a2, a5, SP[a1, a3], SP[a4, a6], n] - 
    S2[a2, a5, SP[a1, a6], SP[a3, a4], n] + S2[a1, a4, n]*
     S2[a2, a6, a5, a3, n] - S2[a2, a6, SP[a1, a5], SP[a3, a4], n] - 
    S2[a2, SP[a1, a5], a3, SP[a4, a6], n] + S2[a2, SP[a1, a5], a4, 
     SP[a3, a6], n] - S2[a2, SP[a1, a5], a6, SP[a3, a4], n] - 
    S2[a2, SP[a1, a5], SP[a3, a4], a6, n] + S2[a2, SP[a1, a6], a4, 
     SP[a3, a5], n] - S2[a2, SP[a1, a6], a5, SP[a3, a4], n] - 
    S2[SP[a1, a2], a4, a3, SP[a5, a6], n] + S2[SP[a1, a2], a4, a5, 
     SP[a3, a6], n] + S2[SP[a1, a2], a4, a6, SP[a3, a5], n] + 
    S2[SP[a1, a2], a4, SP[a3, a5], a6, n] - S2[SP[a1, a2], a5, a3, 
     SP[a4, a6], n] + S2[SP[a1, a2], a5, a4, SP[a3, a6], n] - 
    S2[SP[a1, a2], a5, a6, SP[a3, a4], n] - S2[SP[a1, a2], a5, SP[a3, a4], 
     a6, n] + S2[SP[a1, a2], a6, a4, SP[a3, a5], n] - 
    S2[SP[a1, a2], a6, a5, SP[a3, a4], n] + S2[a1, a2, a4, a3, SP[a5, a6], 
     n] - S2[a1, a2, a4, a5, SP[a3, a6], n] - S2[a1, a2, a4, a6, SP[a3, a5], 
     n] - S2[a1, a2, a4, SP[a3, a5], a6, n] + S2[a1, a2, a5, a3, SP[a4, a6], 
     n] - S2[a1, a2, a5, a4, SP[a3, a6], n] + S2[a1, a2, a5, a6, SP[a3, a4], 
     n] + S2[a1, a2, a5, SP[a3, a4], a6, n] - S2[a1, a2, a6, a4, SP[a3, a5], 
     n] + S2[a1, a2, a6, a5, SP[a3, a4], n] + S2[a1, a4, a2, a3, SP[a5, a6], 
     n] - S2[a1, a4, a2, a5, SP[a3, a6], n] - S2[a1, a4, a2, a6, SP[a3, a5], 
     n] - S2[a1, a4, a2, SP[a3, a5], a6, n] + S2[a1, a4, a3, a2, SP[a5, a6], 
     n] + S2[a1, a4, a3, SP[a2, a5], a6, n] + 
    S2[a6, n]*S2[a1, a5, a2, a3, a4, n] + S2[a1, a5, a2, a3, SP[a4, a6], n] + 
    S2[a1, a5, a2, SP[a3, a6], a4, n] + S2[a6, n]*S2[a1, a5, a3, a2, a4, n] + 
    S2[a1, a5, a3, a2, SP[a4, a6], n] + S2[a6, n]*S2[a1, a5, a3, a4, a2, n] - 
    S2[a2, n]*S2[a1, a5, a3, a4, a6, n] - 
    S2[a2, n]*S2[a1, a5, a3, a6, a4, n] - S2[a1, a5, a3, a6, SP[a2, a4], n] - 
    S2[a1, a5, a3, SP[a2, a4], a6, n] + S2[a1, a5, a3, SP[a4, a6], a2, n] - 
    S2[a2, n]*S2[a1, a5, a6, a3, a4, n] - S2[a1, a5, a6, a3, SP[a2, a4], n] - 
    S2[a1, a5, a6, SP[a2, a3], a4, n] - S2[a1, a5, SP[a2, a3], a4, a6, n] - 
    S2[a1, a5, SP[a2, a3], a6, a4, n] + S2[a1, a5, SP[a3, a6], a2, a4, n] + 
    S2[a1, a5, SP[a3, a6], a4, a2, n] - S2[a2, n]*S2[a1, a6, a5, a3, a4, n] - 
    S2[a1, a6, a5, a3, SP[a2, a4], n] - S2[a1, a6, a5, SP[a2, a3], a4, n] - 
    S2[a1, a6, SP[a2, a5], a3, a4, n] - S2[a1, SP[a2, a5], a3, a4, a6, n] - 
    S2[a1, SP[a2, a5], a3, a6, a4, n] - S2[a1, SP[a2, a5], a6, a3, a4, n] - 
    S2[a1, SP[a2, a6], a5, a3, a4, n] + S2[a1, SP[a5, a6], a2, a3, a4, n] + 
    S2[a1, SP[a5, a6], a3, a2, a4, n] + S2[a1, SP[a5, a6], a3, a4, a2, n] + 
    S2[a2, a1, a4, a3, SP[a5, a6], n] - S2[a2, a1, a4, a5, SP[a3, a6], n] - 
    S2[a2, a1, a4, a6, SP[a3, a5], n] - S2[a2, a1, a4, SP[a3, a5], a6, n] + 
    S2[a2, a1, a5, a3, SP[a4, a6], n] - S2[a2, a1, a5, a4, SP[a3, a6], n] + 
    S2[a2, a1, a5, a6, SP[a3, a4], n] + S2[a2, a1, a5, SP[a3, a4], a6, n] - 
    S2[a2, a1, a6, a4, SP[a3, a5], n] + S2[a2, a1, a6, a5, SP[a3, a4], n] - 
    S2[a6, n]*S2[a2, a5, a1, a3, a4, n] - S2[a2, a5, a1, a4, SP[a3, a6], n] + 
    S2[a2, a5, a1, a6, SP[a3, a4], n] + S2[a2, a5, a1, SP[a3, a4], a6, n] - 
    S2[a2, a5, a1, SP[a3, a6], a4, n] - S2[a6, n]*S2[a2, a5, a3, a1, a4, n] + 
    S2[a2, a5, a6, a1, SP[a3, a4], n] + S2[a2, a5, a6, SP[a1, a3], a4, n] + 
    S2[a2, a5, SP[a1, a3], a4, a6, n] + S2[a2, a5, SP[a1, a3], a6, a4, n] - 
    S2[a2, a5, SP[a3, a6], a1, a4, n] - S2[a2, a6, a1, a4, SP[a3, a5], n] + 
    S2[a2, a6, a1, a5, SP[a3, a4], n] + S2[a2, a6, a5, a1, SP[a3, a4], n] + 
    S2[a2, a6, a5, SP[a1, a3], a4, n] + S2[a2, a6, SP[a1, a5], a3, a4, n] + 
    S2[a2, SP[a1, a5], a3, a4, a6, n] + S2[a2, SP[a1, a5], a3, a6, a4, n] + 
    S2[a2, SP[a1, a5], a6, a3, a4, n] + S2[a2, SP[a1, a6], a5, a3, a4, n] - 
    S2[a2, SP[a5, a6], a1, a3, a4, n] - S2[a2, SP[a5, a6], a3, a1, a4, n] - 
    S2[a2, n]*S2[a6, a1, a5, a3, a4, n] - S2[a6, a1, a5, a3, SP[a2, a4], n] - 
    S2[a6, a1, a5, SP[a2, a3], a4, n] - S2[a6, a1, SP[a2, a5], a3, a4, n] + 
    S2[a1, n]*S2[a6, a2, a5, a3, a4, n] + S2[a6, a2, a5, a3, SP[a1, a4], n] + 
    S2[a6, a2, a5, SP[a1, a3], a4, n] + S2[a6, a2, SP[a1, a5], a3, a4, n] + 
    S2[SP[a1, a6], a2, a5, a3, a4, n] + S2[SP[a1, a6], a5, a2, a3, a4, n] + 
    S2[SP[a1, a6], a5, a3, a2, a4, n] + S2[SP[a1, a6], a5, a3, a4, a2, n] - 
    S2[SP[a2, a6], a1, a5, a3, a4, n] - S2[SP[a2, a6], a5, a1, a3, a4, n] - 
    S2[SP[a2, a6], a5, a3, a1, a4, n] - S2[a6, a2, a5, a3, a4, a1, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a1_, a4_, a3_, a5_, a6_, a2_, n_] :> 
  S2[a1, a4, a3, n]*S2[a2, a6, a5, n] + S2[SP[a1, a2], SP[a4, a6], 
     SP[a3, a5], n] - S2[a1, a2, SP[a4, a6], SP[a3, a5], n] - 
    S2[a2, a6, n]*S2[a1, a4, a3, a5, n] + S2[a1, a4, SP[a2, a3], SP[a5, a6], 
     n] + S2[a1, SP[a2, a4], a3, SP[a5, a6], n] - S2[a1, SP[a2, a4], a6, 
     SP[a3, a5], n] - S2[a2, a1, SP[a4, a6], SP[a3, a5], n] - 
    S2[a1, a4, n]*S2[a2, a6, a5, a3, n] + S2[a2, a6, SP[a1, a5], SP[a3, a4], 
     n] - S2[a2, SP[a1, a6], a4, SP[a3, a5], n] + S2[a2, SP[a1, a6], a5, 
     SP[a3, a4], n] + S2[SP[a1, a2], a4, a3, SP[a5, a6], n] - 
    S2[SP[a1, a2], a4, a6, SP[a3, a5], n] - S2[SP[a1, a2], a6, a4, 
     SP[a3, a5], n] + S2[SP[a1, a2], a6, a5, SP[a3, a4], n] - 
    S2[a1, a2, a4, a3, SP[a5, a6], n] + S2[a1, a2, a4, a6, SP[a3, a5], n] + 
    S2[a1, a2, a6, a4, SP[a3, a5], n] - S2[a1, a2, a6, a5, SP[a3, a4], n] - 
    S2[a1, a4, a2, a3, SP[a5, a6], n] + S2[a1, a4, a2, a6, SP[a3, a5], n] - 
    S2[a1, a4, a3, a2, SP[a5, a6], n] + S2[a2, n]*S2[a1, a4, a3, a5, a6, n] + 
    S2[a1, a4, a3, a5, SP[a2, a6], n] + S2[a2, n]*S2[a1, a6, a5, a3, a4, n] + 
    S2[a1, a6, a5, a3, SP[a2, a4], n] + S2[a1, a6, a5, SP[a2, a3], a4, n] + 
    S2[a1, a6, SP[a2, a5], a3, a4, n] + S2[a1, SP[a2, a6], a5, a3, a4, n] - 
    S2[a2, a1, a4, a3, SP[a5, a6], n] + S2[a2, a1, a4, a6, SP[a3, a5], n] + 
    S2[a2, a1, a6, a4, SP[a3, a5], n] - S2[a2, a1, a6, a5, SP[a3, a4], n] + 
    S2[a2, a6, a1, a4, SP[a3, a5], n] - S2[a2, a6, a1, a5, SP[a3, a4], n] - 
    S2[a2, a6, a5, a1, SP[a3, a4], n] - S2[a2, a6, a5, SP[a1, a3], a4, n] - 
    S2[a2, a6, SP[a1, a5], a3, a4, n] - S2[a2, SP[a1, a6], a5, a3, a4, n] + 
    S2[a2, n]*S2[a6, a1, a5, a3, a4, n] + S2[a6, a1, a5, a3, SP[a2, a4], n] + 
    S2[a6, a1, a5, SP[a2, a3], a4, n] + S2[a6, a1, SP[a2, a5], a3, a4, n] - 
    S2[a1, n]*S2[a6, a2, a5, a3, a4, n] - S2[a6, a2, a5, a3, SP[a1, a4], n] - 
    S2[a6, a2, a5, SP[a1, a3], a4, n] - S2[a6, a2, SP[a1, a5], a3, a4, n] + 
    S2[a2, n]*S2[a6, a5, a1, a3, a4, n] + S2[a6, a5, a1, a3, SP[a2, a4], n] + 
    S2[a6, a5, a1, SP[a2, a3], a4, n] - S2[a1, n]*S2[a6, a5, a2, a3, a4, n] - 
    S2[a6, a5, a2, a3, SP[a1, a4], n] - S2[a6, a5, a2, SP[a1, a3], a4, n] + 
    S2[a2, n]*S2[a6, a5, a3, a1, a4, n] + S2[a6, a5, a3, a1, SP[a2, a4], n] - 
    S2[a1, n]*S2[a6, a5, a3, a2, a4, n] - S2[a6, a5, a3, a2, SP[a1, a4], n] - 
    S2[a1, n]*S2[a6, a5, a3, a4, a2, n] - S2[a6, a5, a3, a4, SP[a1, a2], n] - 
    S2[a6, a5, a3, SP[a1, a4], a2, n] - S2[a6, a5, SP[a1, a3], a2, a4, n] - 
    S2[a6, a5, SP[a1, a3], a4, a2, n] + S2[a6, a5, SP[a2, a3], a1, a4, n] - 
    S2[a6, SP[a1, a5], a2, a3, a4, n] - S2[a6, SP[a1, a5], a3, a2, a4, n] - 
    S2[a6, SP[a1, a5], a3, a4, a2, n] + S2[a6, SP[a2, a5], a1, a3, a4, n] + 
    S2[a6, SP[a2, a5], a3, a1, a4, n] - S2[SP[a1, a6], a2, a5, a3, a4, n] - 
    S2[SP[a1, a6], a5, a2, a3, a4, n] - S2[SP[a1, a6], a5, a3, a2, a4, n] - 
    S2[SP[a1, a6], a5, a3, a4, a2, n] + S2[SP[a2, a6], a1, a5, a3, a4, n] + 
    S2[SP[a2, a6], a5, a1, a3, a4, n] + S2[SP[a2, a6], a5, a3, a1, a4, n] + 
    S2[a6, a2, a5, a3, a4, a1, n] + S2[a6, a5, a2, a3, a4, a1, n] + 
    S2[a6, a5, a3, a2, a4, a1, n] + S2[a6, a5, a3, a4, a1, a2, n] + 
    S2[a6, a5, a3, a4, a2, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a1_, a4_, a3_, a6_, a2_, a5_, n_] :> 
  -(S2[a1, a4, a3, n]*S2[a2, a5, a6, n]) - S2[a1, a4, a3, n]*
     S2[a2, a6, a5, n] - S2[SP[a1, a2], SP[a4, a5], SP[a3, a6], n] - 
    S2[SP[a1, a2], SP[a4, a6], SP[a3, a5], n] + S2[a1, a2, SP[a4, a5], 
     SP[a3, a6], n] + S2[a1, a2, SP[a4, a6], SP[a3, a5], n] + 
    S2[a1, SP[a2, a4], a5, SP[a3, a6], n] + S2[a1, SP[a2, a4], a6, 
     SP[a3, a5], n] + S2[a1, SP[a2, a4], SP[a3, a5], a6, n] + 
    S2[a1, SP[a2, a4], SP[a3, a6], a5, n] + S2[a2, a1, SP[a4, a5], 
     SP[a3, a6], n] + S2[a2, a1, SP[a4, a6], SP[a3, a5], n] + 
    S2[a2, SP[a1, a5], a4, SP[a3, a6], n] + S2[a2, SP[a1, a5], SP[a4, a6], 
     a3, n] + S2[a2, SP[a1, a6], a4, SP[a3, a5], n] + 
    S2[a2, SP[a1, a6], SP[a4, a5], a3, n] + S2[a1, a4, n]*
     S2[a3, a6, a2, a5, n] - S2[a3, a6, SP[a1, a2], SP[a4, a5], n] - 
    S2[a3, SP[a1, a6], a2, SP[a4, a5], n] - S2[a3, SP[a1, a6], SP[a2, a4], 
     a5, n] + S2[SP[a1, a2], a4, a5, SP[a3, a6], n] + 
    S2[SP[a1, a2], a4, a6, SP[a3, a5], n] + S2[SP[a1, a2], a4, SP[a3, a5], 
     a6, n] + S2[SP[a1, a2], a4, SP[a3, a6], a5, n] + 
    S2[SP[a1, a2], a5, a4, SP[a3, a6], n] + S2[SP[a1, a2], a5, SP[a4, a6], 
     a3, n] + S2[SP[a1, a2], a6, a4, SP[a3, a5], n] + 
    S2[SP[a1, a2], a6, SP[a4, a5], a3, n] + S2[SP[a1, a2], SP[a4, a5], a3, 
     a6, n] + S2[SP[a1, a2], SP[a4, a5], a6, a3, n] + 
    S2[SP[a1, a2], SP[a4, a6], a3, a5, n] + S2[SP[a1, a2], SP[a4, a6], a5, 
     a3, n] - S2[SP[a1, a3], a6, a2, SP[a4, a5], n] - 
    S2[SP[a1, a3], a6, SP[a2, a4], a5, n] - S2[SP[a1, a3], SP[a4, a6], a2, 
     a5, n] - S2[a1, a2, a4, a5, SP[a3, a6], n] - 
    S2[a1, a2, a4, a6, SP[a3, a5], n] - S2[a1, a2, a4, SP[a3, a5], a6, n] - 
    S2[a1, a2, a4, SP[a3, a6], a5, n] - S2[a1, a2, a5, a4, SP[a3, a6], n] - 
    S2[a1, a2, a5, SP[a4, a6], a3, n] - S2[a1, a2, a6, a4, SP[a3, a5], n] - 
    S2[a1, a2, a6, SP[a4, a5], a3, n] - S2[a1, a2, SP[a4, a5], a3, a6, n] - 
    S2[a1, a2, SP[a4, a5], a6, a3, n] - S2[a1, a2, SP[a4, a6], a3, a5, n] - 
    S2[a1, a2, SP[a4, a6], a5, a3, n] + S2[a1, a3, a6, a2, SP[a4, a5], n] + 
    S2[a1, a3, a6, SP[a2, a4], a5, n] + S2[a1, a3, SP[a4, a6], a2, a5, n] - 
    S2[a1, a4, a2, a5, SP[a3, a6], n] - S2[a1, a4, a2, a6, SP[a3, a5], n] - 
    S2[a1, a4, a2, SP[a3, a5], a6, n] - S2[a1, a4, a2, SP[a3, a6], a5, n] - 
    S2[a6, n]*S2[a1, a4, a3, a5, a2, n] + 
    S2[a2, n]*S2[a1, a4, a3, a5, a6, n] + 
    S2[a2, n]*S2[a1, a4, a3, a6, a5, n] + S2[a1, a4, a3, a6, SP[a2, a5], n] + 
    S2[a1, a4, a3, SP[a2, a5], a6, n] + S2[a1, a4, a3, SP[a2, a6], a5, n] - 
    S2[a1, a4, a3, SP[a5, a6], a2, n] - S2[a6, n]*S2[a1, a4, a5, a2, a3, n] - 
    S2[a1, a4, a5, a2, SP[a3, a6], n] - S2[a6, n]*S2[a1, a4, a5, a3, a2, n] + 
    S2[a2, n]*S2[a1, a4, a5, a3, a6, n] + 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] + S2[a1, a4, a5, a6, SP[a2, a3], n] + 
    S2[a1, a4, a5, SP[a2, a3], a6, n] - S2[a1, a4, a5, SP[a3, a6], a2, n] - 
    S2[a3, n]*S2[a1, a4, a6, a2, a5, n] - S2[a1, a4, a6, a2, SP[a3, a5], n] + 
    S2[a2, n]*S2[a1, a4, a6, a3, a5, n] + S2[a1, a4, a6, a3, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a4, a6, a5, a3, n] + S2[a1, a4, a6, a5, SP[a2, a3], n] + 
    S2[a1, a4, a6, SP[a2, a5], a3, n] + S2[a1, a4, SP[a2, a5], a3, a6, n] + 
    S2[a1, a4, SP[a2, a5], a6, a3, n] + S2[a1, a4, SP[a2, a6], a3, a5, n] + 
    S2[a1, a4, SP[a2, a6], a5, a3, n] - S2[a1, a4, SP[a3, a6], a2, a5, n] - 
    S2[a1, a4, SP[a3, a6], a5, a2, n] - S2[a1, a4, SP[a5, a6], a2, a3, n] - 
    S2[a1, a4, SP[a5, a6], a3, a2, n] - S2[a6, n]*S2[a1, a5, a2, a4, a3, n] - 
    S2[a1, a5, a2, a4, SP[a3, a6], n] - S2[a1, a5, a2, SP[a4, a6], a3, n] - 
    S2[a6, n]*S2[a1, a5, a4, a2, a3, n] - S2[a1, a5, a4, a2, SP[a3, a6], n] - 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] + 
    S2[a2, n]*S2[a1, a5, a4, a3, a6, n] + 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] + S2[a1, a5, a4, a6, SP[a2, a3], n] + 
    S2[a1, a5, a4, SP[a2, a3], a6, n] - S2[a1, a5, a4, SP[a3, a6], a2, n] + 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] + S2[a1, a5, a6, a4, SP[a2, a3], n] + 
    S2[a1, a5, a6, SP[a2, a4], a3, n] + S2[a1, a5, SP[a2, a4], a3, a6, n] + 
    S2[a1, a5, SP[a2, a4], a6, a3, n] - S2[a1, a5, SP[a4, a6], a2, a3, n] - 
    S2[a1, a5, SP[a4, a6], a3, a2, n] - S2[a3, n]*S2[a1, a6, a2, a4, a5, n] - 
    S2[a1, a6, a2, a4, SP[a3, a5], n] - S2[a3, n]*S2[a1, a6, a2, a5, a4, n] - 
    S2[a1, a6, a2, a5, SP[a3, a4], n] - S2[a1, a6, a2, SP[a3, a4], a5, n] - 
    S2[a1, a6, a2, SP[a3, a5], a4, n] - S2[a3, n]*S2[a1, a6, a4, a2, a5, n] - 
    S2[a1, a6, a4, a2, SP[a3, a5], n] + S2[a2, n]*S2[a1, a6, a4, a3, a5, n] + 
    S2[a1, a6, a4, a3, SP[a2, a5], n] + S2[a2, n]*S2[a1, a6, a4, a5, a3, n] + 
    S2[a1, a6, a4, a5, SP[a2, a3], n] + S2[a1, a6, a4, SP[a2, a5], a3, n] + 
    S2[a2, n]*S2[a1, a6, a5, a4, a3, n] + S2[a1, a6, a5, a4, SP[a2, a3], n] + 
    S2[a1, a6, a5, SP[a2, a4], a3, n] - S2[a1, a6, SP[a2, a3], a4, a5, n] - 
    S2[a1, a6, SP[a2, a3], a5, a4, n] + S2[a1, a6, SP[a2, a4], a3, a5, n] + 
    S2[a1, a6, SP[a2, a4], a5, a3, n] + S2[a1, a6, SP[a2, a5], a4, a3, n] - 
    S2[a1, a6, SP[a3, a4], a2, a5, n] + S2[a1, SP[a2, a5], a4, a3, a6, n] + 
    S2[a1, SP[a2, a5], a4, a6, a3, n] + S2[a1, SP[a2, a5], a6, a4, a3, n] + 
    S2[a1, SP[a2, a6], a4, a3, a5, n] + S2[a1, SP[a2, a6], a4, a5, a3, n] + 
    S2[a1, SP[a2, a6], a5, a4, a3, n] - S2[a1, SP[a3, a6], a2, a4, a5, n] - 
    S2[a1, SP[a3, a6], a2, a5, a4, n] - S2[a1, SP[a3, a6], a4, a2, a5, n] - 
    S2[a1, SP[a4, a6], a3, a5, a2, n] - S2[a1, SP[a4, a6], a5, a2, a3, n] - 
    S2[a1, SP[a4, a6], a5, a3, a2, n] - S2[a1, SP[a5, a6], a2, a4, a3, n] - 
    S2[a1, SP[a5, a6], a4, a2, a3, n] - S2[a1, SP[a5, a6], a4, a3, a2, n] - 
    S2[a2, a1, a4, a5, SP[a3, a6], n] - S2[a2, a1, a4, a6, SP[a3, a5], n] - 
    S2[a2, a1, a4, SP[a3, a5], a6, n] - S2[a2, a1, a4, SP[a3, a6], a5, n] - 
    S2[a2, a1, a5, a4, SP[a3, a6], n] - S2[a2, a1, a5, SP[a4, a6], a3, n] - 
    S2[a2, a1, a6, a4, SP[a3, a5], n] - S2[a2, a1, a6, SP[a4, a5], a3, n] - 
    S2[a2, a1, SP[a4, a5], a3, a6, n] - S2[a2, a1, SP[a4, a5], a6, a3, n] - 
    S2[a2, a1, SP[a4, a6], a3, a5, n] - S2[a2, a1, SP[a4, a6], a5, a3, n] + 
    S2[a6, n]*S2[a2, a5, a1, a4, a3, n] + 
    S2[a3, n]*S2[a2, a6, a1, a4, a5, n] + 
    S2[a3, n]*S2[a2, a6, a1, a5, a4, n] + S2[a2, a6, a1, a5, SP[a3, a4], n] + 
    S2[a2, a6, a1, SP[a3, a4], a5, n] + S2[a2, a6, a1, SP[a3, a5], a4, n] - 
    S2[a2, a6, a1, SP[a4, a5], a3, n] + S2[a2, a6, SP[a1, a3], a4, a5, n] + 
    S2[a2, a6, SP[a1, a3], a5, a4, n] - S2[a2, a6, SP[a1, a5], a4, a3, n] - 
    S2[a2, SP[a1, a5], a4, a3, a6, n] - S2[a2, SP[a1, a5], a4, a6, a3, n] - 
    S2[a2, SP[a1, a5], a6, a4, a3, n] - S2[a2, SP[a1, a6], a4, a3, a5, n] - 
    S2[a2, SP[a1, a6], a4, a5, a3, n] - S2[a2, SP[a1, a6], a5, a4, a3, n] + 
    S2[a2, SP[a3, a6], a1, a4, a5, n] + S2[a2, SP[a3, a6], a1, a5, a4, n] + 
    S2[a2, SP[a5, a6], a1, a4, a3, n] + S2[a3, a1, a6, a2, SP[a4, a5], n] + 
    S2[a3, a1, a6, SP[a2, a4], a5, n] + S2[a3, a1, SP[a4, a6], a2, a5, n] + 
    S2[a3, a6, a1, a2, SP[a4, a5], n] - S2[a2, n]*S2[a3, a6, a1, a4, a5, n] - 
    S2[a3, a6, a1, a4, SP[a2, a5], n] - S2[a2, n]*S2[a3, a6, a1, a5, a4, n] - 
    S2[a3, a6, a1, a5, SP[a2, a4], n] - S2[a3, a6, a1, SP[a2, a5], a4, n] + 
    S2[a3, a6, a2, a1, SP[a4, a5], n] + S2[a3, a6, a2, SP[a1, a5], a4, n] + 
    S2[a3, SP[a1, a6], a2, a4, a5, n] + S2[a3, SP[a1, a6], a2, a5, a4, n] + 
    S2[a3, SP[a1, a6], a4, a2, a5, n] - S2[a3, SP[a2, a6], a1, a4, a5, n] - 
    S2[a3, SP[a2, a6], a1, a5, a4, n] - S2[a2, n]*S2[a6, a1, a3, a4, a5, n] - 
    S2[a6, a1, a3, a4, SP[a2, a5], n] - S2[a2, n]*S2[a6, a1, a3, a5, a4, n] - 
    S2[a6, a1, a3, a5, SP[a2, a4], n] - S2[a6, a1, a3, SP[a2, a4], a5, n] - 
    S2[a6, a1, a3, SP[a2, a5], a4, n] + S2[a3, n]*S2[a6, a1, a4, a5, a2, n] + 
    S2[a6, a1, a4, a5, SP[a2, a3], n] + S2[a6, a1, a4, SP[a3, a5], a2, n] + 
    S2[a3, n]*S2[a6, a1, a5, a2, a4, n] + S2[a6, a1, a5, a2, SP[a3, a4], n] - 
    S2[a2, n]*S2[a6, a1, a5, a3, a4, n] - S2[a6, a1, a5, a3, SP[a2, a4], n] + 
    S2[a3, n]*S2[a6, a1, a5, a4, a2, n] + S2[a6, a1, a5, a4, SP[a2, a3], n] + 
    S2[a6, a1, a5, SP[a3, a4], a2, n] - S2[a6, a1, SP[a2, a3], a4, a5, n] - 
    S2[a6, a1, SP[a2, a3], a5, a4, n] - S2[a6, a1, SP[a2, a5], a3, a4, n] + 
    S2[a6, a1, SP[a3, a4], a5, a2, n] + S2[a6, a1, SP[a3, a5], a2, a4, n] + 
    S2[a6, a1, SP[a3, a5], a4, a2, n] + S2[a1, n]*S2[a6, a2, a3, a4, a5, n] + 
    S2[a6, a2, a3, a4, SP[a1, a5], n] + S2[a1, n]*S2[a6, a2, a3, a5, a4, n] + 
    S2[a6, a2, a3, a5, SP[a1, a4], n] + S2[a6, a2, a3, SP[a1, a4], a5, n] + 
    S2[a6, a2, a3, SP[a1, a5], a4, n] - S2[a3, n]*S2[a6, a2, a5, a1, a4, n] - 
    S2[a6, a2, a5, a1, SP[a3, a4], n] + S2[a1, n]*S2[a6, a2, a5, a3, a4, n] + 
    S2[a6, a2, a5, a3, SP[a1, a4], n] + S2[a6, a2, SP[a1, a3], a4, a5, n] + 
    S2[a6, a2, SP[a1, a3], a5, a4, n] + S2[a6, a2, SP[a1, a5], a3, a4, n] - 
    S2[a6, a2, SP[a3, a5], a1, a4, n] - S2[a2, n]*S2[a6, a3, a1, a4, a5, n] - 
    S2[a6, a3, a1, a4, SP[a2, a5], n] - S2[a2, n]*S2[a6, a3, a1, a5, a4, n] - 
    S2[a6, a3, a1, a5, SP[a2, a4], n] - S2[a6, a3, a1, SP[a2, a4], a5, n] - 
    S2[a6, a3, a1, SP[a2, a5], a4, n] + S2[a1, n]*S2[a6, a3, a2, a4, a5, n] + 
    S2[a6, a3, a2, a4, SP[a1, a5], n] + S2[a1, n]*S2[a6, a3, a2, a5, a4, n] + 
    S2[a6, a3, a2, a5, SP[a1, a4], n] + S2[a6, a3, a2, SP[a1, a4], a5, n] + 
    S2[a6, a3, a2, SP[a1, a5], a4, n] + S2[a1, n]*S2[a6, a3, a4, a2, a5, n] + 
    S2[a6, a3, a4, a2, SP[a1, a5], n] + S2[a6, a3, a4, SP[a1, a2], a5, n] + 
    S2[a6, a3, SP[a1, a4], a2, a5, n] + S2[a6, SP[a1, a3], a2, a4, a5, n] + 
    S2[a6, SP[a1, a3], a2, a5, a4, n] + S2[a6, SP[a1, a3], a4, a2, a5, n] + 
    S2[a6, SP[a1, a3], a4, a5, a2, n] + S2[a6, SP[a1, a3], a5, a2, a4, n] + 
    S2[a6, SP[a1, a3], a5, a4, a2, n] - S2[a6, SP[a2, a3], a1, a4, a5, n] - 
    S2[a6, SP[a2, a3], a1, a5, a4, n] - S2[a6, SP[a2, a3], a5, a1, a4, n] + 
    S2[SP[a1, a6], a2, a3, a4, a5, n] + S2[SP[a1, a6], a2, a3, a5, a4, n] + 
    S2[SP[a1, a6], a2, a5, a3, a4, n] + S2[SP[a1, a6], a3, a2, a4, a5, n] + 
    S2[SP[a1, a6], a3, a2, a5, a4, n] + S2[SP[a1, a6], a3, a4, a2, a5, n] - 
    S2[SP[a1, a6], a4, a3, a5, a2, n] - S2[SP[a1, a6], a4, a5, a2, a3, n] - 
    S2[SP[a1, a6], a4, a5, a3, a2, n] - S2[SP[a1, a6], a5, a2, a4, a3, n] - 
    S2[SP[a1, a6], a5, a4, a2, a3, n] - S2[SP[a1, a6], a5, a4, a3, a2, n] - 
    S2[SP[a2, a6], a1, a3, a4, a5, n] - S2[SP[a2, a6], a1, a3, a5, a4, n] - 
    S2[SP[a2, a6], a1, a5, a3, a4, n] - S2[SP[a2, a6], a3, a1, a4, a5, n] - 
    S2[SP[a2, a6], a3, a1, a5, a4, n] + S2[SP[a2, a6], a5, a1, a4, a3, n] + 
    S2[SP[a3, a6], a1, a4, a5, a2, n] + S2[SP[a3, a6], a1, a5, a2, a4, n] + 
    S2[SP[a3, a6], a1, a5, a4, a2, n] - S2[SP[a3, a6], a2, a5, a1, a4, n] - 
    S2[a6, a2, a3, a4, a1, a5, n] - S2[a6, a2, a3, a4, a5, a1, n] - 
    S2[a6, a2, a3, a5, a4, a1, n] - S2[a6, a2, a5, a3, a4, a1, n] - 
    S2[a6, a3, a2, a4, a1, a5, n] - S2[a6, a3, a2, a4, a5, a1, n] - 
    S2[a6, a3, a2, a5, a4, a1, n] - S2[a6, a3, a4, a1, a2, a5, n] - 
    S2[a6, a3, a4, a2, a1, a5, n] - S2[a6, a3, a4, a2, a5, a1, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a1_, a4_, a3_, a6_, a5_, a2_, n_] :> 
  S2[a1, a4, a3, n]*S2[a2, a5, a6, n] + S2[SP[a1, a2], SP[a4, a5], 
     SP[a3, a6], n] - S2[a1, a2, SP[a4, a5], SP[a3, a6], n] - 
    S2[a1, SP[a2, a4], a5, SP[a3, a6], n] - S2[a1, SP[a2, a4], SP[a3, a5], 
     a6, n] - S2[a2, a1, SP[a4, a5], SP[a3, a6], n] + 
    S2[a1, a4, n]*S2[a2, a6, a3, a5, n] + S2[a1, a4, n]*
     S2[a2, a6, a5, a3, n] - S2[a2, a6, SP[a1, a3], SP[a4, a5], n] - 
    S2[a2, a6, SP[a1, a5], SP[a3, a4], n] - S2[a2, SP[a1, a5], a4, 
     SP[a3, a6], n] - S2[a2, SP[a1, a5], SP[a4, a6], a3, n] - 
    S2[a2, SP[a1, a6], a3, SP[a4, a5], n] - S2[a2, SP[a1, a6], a5, 
     SP[a3, a4], n] - S2[a2, SP[a1, a6], SP[a3, a4], a5, n] - 
    S2[a2, SP[a1, a6], SP[a4, a5], a3, n] - S2[a1, a4, n]*
     S2[a3, a6, a2, a5, n] + S2[a3, a6, SP[a1, a2], SP[a4, a5], n] + 
    S2[a3, SP[a1, a6], a2, SP[a4, a5], n] + S2[a3, SP[a1, a6], SP[a2, a4], 
     a5, n] - S2[SP[a1, a2], a4, a5, SP[a3, a6], n] - 
    S2[SP[a1, a2], a4, SP[a3, a5], a6, n] - S2[SP[a1, a2], a5, a4, 
     SP[a3, a6], n] - S2[SP[a1, a2], a5, SP[a4, a6], a3, n] - 
    S2[SP[a1, a2], a6, a3, SP[a4, a5], n] - S2[SP[a1, a2], a6, a5, 
     SP[a3, a4], n] - S2[SP[a1, a2], a6, SP[a3, a4], a5, n] - 
    S2[SP[a1, a2], a6, SP[a4, a5], a3, n] - S2[SP[a1, a2], SP[a4, a5], a3, 
     a6, n] - S2[SP[a1, a2], SP[a4, a5], a6, a3, n] - 
    S2[SP[a1, a2], SP[a4, a6], a3, a5, n] - S2[SP[a1, a2], SP[a4, a6], a5, 
     a3, n] + S2[SP[a1, a3], a6, a2, SP[a4, a5], n] + 
    S2[SP[a1, a3], a6, SP[a2, a4], a5, n] + S2[SP[a1, a3], SP[a4, a6], a2, 
     a5, n] + S2[a1, a2, a4, a5, SP[a3, a6], n] + S2[a1, a2, a4, SP[a3, a5], 
     a6, n] + S2[a1, a2, a5, a4, SP[a3, a6], n] + S2[a1, a2, a5, SP[a4, a6], 
     a3, n] + S2[a1, a2, a6, a3, SP[a4, a5], n] + 
    S2[a1, a2, a6, a5, SP[a3, a4], n] + S2[a1, a2, a6, SP[a3, a4], a5, n] + 
    S2[a1, a2, a6, SP[a4, a5], a3, n] + S2[a1, a2, SP[a4, a5], a3, a6, n] + 
    S2[a1, a2, SP[a4, a5], a6, a3, n] + S2[a1, a2, SP[a4, a6], a3, a5, n] + 
    S2[a1, a2, SP[a4, a6], a5, a3, n] - S2[a1, a3, a6, a2, SP[a4, a5], n] - 
    S2[a1, a3, a6, SP[a2, a4], a5, n] - S2[a1, a3, SP[a4, a6], a2, a5, n] + 
    S2[a1, a4, a2, a5, SP[a3, a6], n] + S2[a1, a4, a2, SP[a3, a5], a6, n] + 
    S2[a6, n]*S2[a1, a4, a3, a5, a2, n] - 
    S2[a2, n]*S2[a1, a4, a3, a5, a6, n] - S2[a1, a4, a3, SP[a2, a5], a6, n] + 
    S2[a1, a4, a3, SP[a5, a6], a2, n] + S2[a6, n]*S2[a1, a4, a5, a2, a3, n] + 
    S2[a1, a4, a5, a2, SP[a3, a6], n] + S2[a6, n]*S2[a1, a4, a5, a3, a2, n] - 
    S2[a2, n]*S2[a1, a4, a5, a3, a6, n] - 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] - S2[a1, a4, a5, a6, SP[a2, a3], n] - 
    S2[a1, a4, a5, SP[a2, a3], a6, n] + S2[a1, a4, a5, SP[a3, a6], a2, n] + 
    S2[a3, n]*S2[a1, a4, a6, a2, a5, n] + S2[a1, a4, a6, a2, SP[a3, a5], n] - 
    S2[a2, n]*S2[a1, a4, a6, a3, a5, n] - S2[a1, a4, a6, a3, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a4, a6, a5, a3, n] - S2[a1, a4, a6, a5, SP[a2, a3], n] - 
    S2[a1, a4, a6, SP[a2, a5], a3, n] - S2[a1, a4, SP[a2, a5], a3, a6, n] - 
    S2[a1, a4, SP[a2, a5], a6, a3, n] - S2[a1, a4, SP[a2, a6], a3, a5, n] - 
    S2[a1, a4, SP[a2, a6], a5, a3, n] + S2[a1, a4, SP[a3, a6], a2, a5, n] + 
    S2[a1, a4, SP[a3, a6], a5, a2, n] + S2[a1, a4, SP[a5, a6], a2, a3, n] + 
    S2[a1, a4, SP[a5, a6], a3, a2, n] + S2[a6, n]*S2[a1, a5, a2, a4, a3, n] + 
    S2[a1, a5, a2, a4, SP[a3, a6], n] + S2[a1, a5, a2, SP[a4, a6], a3, n] + 
    S2[a6, n]*S2[a1, a5, a4, a2, a3, n] + S2[a1, a5, a4, a2, SP[a3, a6], n] + 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] - 
    S2[a2, n]*S2[a1, a5, a4, a3, a6, n] - 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] - S2[a1, a5, a4, a6, SP[a2, a3], n] - 
    S2[a1, a5, a4, SP[a2, a3], a6, n] + S2[a1, a5, a4, SP[a3, a6], a2, n] - 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] - S2[a1, a5, a6, a4, SP[a2, a3], n] - 
    S2[a1, a5, a6, SP[a2, a4], a3, n] - S2[a1, a5, SP[a2, a4], a3, a6, n] - 
    S2[a1, a5, SP[a2, a4], a6, a3, n] + S2[a1, a5, SP[a4, a6], a2, a3, n] + 
    S2[a1, a5, SP[a4, a6], a3, a2, n] + S2[a3, n]*S2[a1, a6, a2, a4, a5, n] + 
    S2[a1, a6, a2, a4, SP[a3, a5], n] + S2[a3, n]*S2[a1, a6, a2, a5, a4, n] + 
    S2[a1, a6, a2, a5, SP[a3, a4], n] + S2[a1, a6, a2, SP[a3, a4], a5, n] + 
    S2[a1, a6, a2, SP[a3, a5], a4, n] - S2[a2, n]*S2[a1, a6, a3, a4, a5, n] - 
    S2[a1, a6, a3, a4, SP[a2, a5], n] - S2[a2, n]*S2[a1, a6, a3, a5, a4, n] - 
    S2[a1, a6, a3, a5, SP[a2, a4], n] - S2[a1, a6, a3, SP[a2, a4], a5, n] - 
    S2[a1, a6, a3, SP[a2, a5], a4, n] + S2[a3, n]*S2[a1, a6, a4, a2, a5, n] + 
    S2[a1, a6, a4, a2, SP[a3, a5], n] - S2[a2, n]*S2[a1, a6, a4, a3, a5, n] - 
    S2[a1, a6, a4, a3, SP[a2, a5], n] - S2[a2, n]*S2[a1, a6, a4, a5, a3, n] - 
    S2[a1, a6, a4, a5, SP[a2, a3], n] - S2[a1, a6, a4, SP[a2, a5], a3, n] - 
    S2[a2, n]*S2[a1, a6, a5, a3, a4, n] - S2[a1, a6, a5, a3, SP[a2, a4], n] - 
    S2[a2, n]*S2[a1, a6, a5, a4, a3, n] - S2[a1, a6, a5, a4, SP[a2, a3], n] - 
    S2[a1, a6, a5, SP[a2, a3], a4, n] - S2[a1, a6, a5, SP[a2, a4], a3, n] - 
    S2[a1, a6, SP[a2, a4], a3, a5, n] - S2[a1, a6, SP[a2, a4], a5, a3, n] - 
    S2[a1, a6, SP[a2, a5], a3, a4, n] - S2[a1, a6, SP[a2, a5], a4, a3, n] + 
    S2[a1, a6, SP[a3, a4], a2, a5, n] - S2[a1, SP[a2, a5], a4, a3, a6, n] - 
    S2[a1, SP[a2, a5], a4, a6, a3, n] - S2[a1, SP[a2, a5], a6, a4, a3, n] - 
    S2[a1, SP[a2, a6], a3, a4, a5, n] - S2[a1, SP[a2, a6], a3, a5, a4, n] - 
    S2[a1, SP[a2, a6], a4, a3, a5, n] - S2[a1, SP[a2, a6], a4, a5, a3, n] - 
    S2[a1, SP[a2, a6], a5, a3, a4, n] - S2[a1, SP[a2, a6], a5, a4, a3, n] + 
    S2[a1, SP[a3, a6], a2, a4, a5, n] + S2[a1, SP[a3, a6], a2, a5, a4, n] + 
    S2[a1, SP[a3, a6], a4, a2, a5, n] + S2[a1, SP[a4, a6], a3, a5, a2, n] + 
    S2[a1, SP[a4, a6], a5, a2, a3, n] + S2[a1, SP[a4, a6], a5, a3, a2, n] + 
    S2[a1, SP[a5, a6], a2, a4, a3, n] + S2[a1, SP[a5, a6], a4, a2, a3, n] + 
    S2[a1, SP[a5, a6], a4, a3, a2, n] + S2[a2, a1, a4, a5, SP[a3, a6], n] + 
    S2[a2, a1, a4, SP[a3, a5], a6, n] + S2[a2, a1, a5, a4, SP[a3, a6], n] + 
    S2[a2, a1, a5, SP[a4, a6], a3, n] + S2[a2, a1, a6, a3, SP[a4, a5], n] + 
    S2[a2, a1, a6, a5, SP[a3, a4], n] + S2[a2, a1, a6, SP[a3, a4], a5, n] + 
    S2[a2, a1, a6, SP[a4, a5], a3, n] + S2[a2, a1, SP[a4, a5], a3, a6, n] + 
    S2[a2, a1, SP[a4, a5], a6, a3, n] + S2[a2, a1, SP[a4, a6], a3, a5, n] + 
    S2[a2, a1, SP[a4, a6], a5, a3, n] - S2[a6, n]*S2[a2, a5, a1, a4, a3, n] + 
    S2[a2, a6, a1, a3, SP[a4, a5], n] - S2[a3, n]*S2[a2, a6, a1, a4, a5, n] - 
    S2[a2, a6, a1, a4, SP[a3, a5], n] - S2[a3, n]*S2[a2, a6, a1, a5, a4, n] - 
    S2[a2, a6, a1, SP[a3, a5], a4, n] + S2[a2, a6, a1, SP[a4, a5], a3, n] + 
    S2[a2, a6, a3, a1, SP[a4, a5], n] + S2[a2, a6, a3, SP[a1, a5], a4, n] + 
    S2[a2, a6, a5, a1, SP[a3, a4], n] + S2[a2, a6, a5, SP[a1, a3], a4, n] + 
    S2[a2, a6, SP[a1, a5], a3, a4, n] + S2[a2, a6, SP[a1, a5], a4, a3, n] + 
    S2[a2, SP[a1, a5], a4, a3, a6, n] + S2[a2, SP[a1, a5], a4, a6, a3, n] + 
    S2[a2, SP[a1, a5], a6, a4, a3, n] + S2[a2, SP[a1, a6], a3, a4, a5, n] + 
    S2[a2, SP[a1, a6], a3, a5, a4, n] + S2[a2, SP[a1, a6], a4, a3, a5, n] + 
    S2[a2, SP[a1, a6], a4, a5, a3, n] + S2[a2, SP[a1, a6], a5, a3, a4, n] + 
    S2[a2, SP[a1, a6], a5, a4, a3, n] - S2[a2, SP[a3, a6], a1, a4, a5, n] - 
    S2[a2, SP[a3, a6], a1, a5, a4, n] - S2[a2, SP[a5, a6], a1, a4, a3, n] - 
    S2[a3, a1, a6, a2, SP[a4, a5], n] - S2[a3, a1, a6, SP[a2, a4], a5, n] - 
    S2[a3, a1, SP[a4, a6], a2, a5, n] - S2[a3, a6, a1, a2, SP[a4, a5], n] + 
    S2[a2, n]*S2[a3, a6, a1, a4, a5, n] + S2[a3, a6, a1, a4, SP[a2, a5], n] + 
    S2[a2, n]*S2[a3, a6, a1, a5, a4, n] + S2[a3, a6, a1, a5, SP[a2, a4], n] + 
    S2[a3, a6, a1, SP[a2, a5], a4, n] - S2[a3, a6, a2, a1, SP[a4, a5], n] - 
    S2[a3, a6, a2, SP[a1, a5], a4, n] - S2[a3, SP[a1, a6], a2, a4, a5, n] - 
    S2[a3, SP[a1, a6], a2, a5, a4, n] - S2[a3, SP[a1, a6], a4, a2, a5, n] + 
    S2[a3, SP[a2, a6], a1, a4, a5, n] + S2[a3, SP[a2, a6], a1, a5, a4, n] - 
    S2[a3, n]*S2[a6, a1, a4, a5, a2, n] - S2[a6, a1, a4, a5, SP[a2, a3], n] - 
    S2[a6, a1, a4, SP[a3, a5], a2, n] - S2[a3, n]*S2[a6, a1, a5, a2, a4, n] - 
    S2[a6, a1, a5, a2, SP[a3, a4], n] - S2[a3, n]*S2[a6, a1, a5, a4, a2, n] - 
    S2[a6, a1, a5, a4, SP[a2, a3], n] - S2[a6, a1, a5, SP[a2, a3], a4, n] - 
    S2[a6, a1, a5, SP[a3, a4], a2, n] - S2[a6, a1, SP[a3, a4], a5, a2, n] - 
    S2[a6, a1, SP[a3, a5], a2, a4, n] - S2[a6, a1, SP[a3, a5], a4, a2, n] + 
    S2[a3, n]*S2[a6, a2, a5, a1, a4, n] + S2[a6, a2, a5, a1, SP[a3, a4], n] + 
    S2[a6, a2, a5, SP[a1, a3], a4, n] + S2[a6, a2, SP[a3, a5], a1, a4, n] + 
    S2[a1, n]*S2[a6, a3, a4, a5, a2, n] + S2[a6, a3, a4, a5, SP[a1, a2], n] + 
    S2[a6, a3, a4, SP[a1, a5], a2, n] - S2[a2, n]*S2[a6, a3, a5, a1, a4, n] - 
    S2[a6, a3, a5, a1, SP[a2, a4], n] + S2[a1, n]*S2[a6, a3, a5, a2, a4, n] + 
    S2[a6, a3, a5, a2, SP[a1, a4], n] + S2[a1, n]*S2[a6, a3, a5, a4, a2, n] + 
    S2[a6, a3, a5, a4, SP[a1, a2], n] + S2[a6, a3, a5, SP[a1, a4], a2, n] + 
    S2[a6, a3, SP[a1, a4], a5, a2, n] + S2[a6, a3, SP[a1, a5], a2, a4, n] + 
    S2[a6, a3, SP[a1, a5], a4, a2, n] - S2[a6, a3, SP[a2, a5], a1, a4, n] - 
    S2[a2, n]*S2[a6, a5, a1, a3, a4, n] - S2[a6, a5, a1, a3, SP[a2, a4], n] - 
    S2[a6, a5, a1, SP[a2, a3], a4, n] + S2[a1, n]*S2[a6, a5, a2, a3, a4, n] + 
    S2[a6, a5, a2, a3, SP[a1, a4], n] + S2[a6, a5, a2, SP[a1, a3], a4, n] - 
    S2[a2, n]*S2[a6, a5, a3, a1, a4, n] - S2[a6, a5, a3, a1, SP[a2, a4], n] + 
    S2[a1, n]*S2[a6, a5, a3, a2, a4, n] + S2[a6, a5, a3, a2, SP[a1, a4], n] + 
    S2[a1, n]*S2[a6, a5, a3, a4, a2, n] + S2[a6, a5, a3, a4, SP[a1, a2], n] + 
    S2[a6, a5, a3, SP[a1, a4], a2, n] + S2[a6, a5, SP[a1, a3], a2, a4, n] + 
    S2[a6, a5, SP[a1, a3], a4, a2, n] - S2[a6, a5, SP[a2, a3], a1, a4, n] + 
    S2[a6, SP[a1, a5], a2, a3, a4, n] + S2[a6, SP[a1, a5], a3, a2, a4, n] + 
    S2[a6, SP[a1, a5], a3, a4, a2, n] - S2[a6, SP[a2, a5], a1, a3, a4, n] - 
    S2[a6, SP[a2, a5], a3, a1, a4, n] + S2[SP[a1, a6], a3, a4, a5, a2, n] + 
    S2[SP[a1, a6], a3, a5, a2, a4, n] + S2[SP[a1, a6], a3, a5, a4, a2, n] + 
    S2[SP[a1, a6], a4, a3, a5, a2, n] + S2[SP[a1, a6], a4, a5, a2, a3, n] + 
    S2[SP[a1, a6], a4, a5, a3, a2, n] + S2[SP[a1, a6], a5, a2, a3, a4, n] + 
    S2[SP[a1, a6], a5, a2, a4, a3, n] + S2[SP[a1, a6], a5, a3, a2, a4, n] + 
    S2[SP[a1, a6], a5, a3, a4, a2, n] + S2[SP[a1, a6], a5, a4, a2, a3, n] + 
    S2[SP[a1, a6], a5, a4, a3, a2, n] - S2[SP[a2, a6], a3, a5, a1, a4, n] - 
    S2[SP[a2, a6], a5, a1, a3, a4, n] - S2[SP[a2, a6], a5, a1, a4, a3, n] - 
    S2[SP[a2, a6], a5, a3, a1, a4, n] - S2[SP[a3, a6], a1, a4, a5, a2, n] - 
    S2[SP[a3, a6], a1, a5, a2, a4, n] - S2[SP[a3, a6], a1, a5, a4, a2, n] + 
    S2[SP[a3, a6], a2, a5, a1, a4, n] - S2[a6, a3, a4, a1, a5, a2, n] - 
    S2[a6, a3, a4, a5, a1, a2, n] - S2[a6, a3, a4, a5, a2, a1, n] - 
    S2[a6, a3, a5, a2, a4, a1, n] - S2[a6, a3, a5, a4, a1, a2, n] - 
    S2[a6, a3, a5, a4, a2, a1, n] - S2[a6, a5, a2, a3, a4, a1, n] - 
    S2[a6, a5, a3, a2, a4, a1, n] - S2[a6, a5, a3, a4, a1, a2, n] - 
    S2[a6, a5, a3, a4, a2, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a1_, a4_, a5_, a2_, a3_, a6_, n_] :> 
  S2[a1, a4, a5, n]*S2[a2, a3, a6, n] + S2[SP[a1, a2], SP[a3, a4], 
     SP[a5, a6], n] - S2[a1, a2, SP[a3, a4], SP[a5, a6], n] + 
    S2[a3, a6, n]*S2[a1, a4, a5, a2, n] - S2[a1, a4, SP[a3, a5], SP[a2, a6], 
     n] - S2[a1, SP[a2, a4], a3, SP[a5, a6], n] - 
    S2[a1, SP[a2, a4], SP[a3, a5], a6, n] - S2[a1, SP[a3, a4], a5, 
     SP[a2, a6], n] - S2[a1, SP[a3, a4], SP[a5, a6], a2, n] - 
    S2[a2, a1, SP[a3, a4], SP[a5, a6], n] - S2[a1, a4, n]*
     S2[a2, a3, a5, a6, n] - S2[a1, a4, n]*S2[a2, a3, a6, a5, n] + 
    S2[a2, a3, SP[a1, a5], SP[a4, a6], n] + S2[a2, a3, SP[a1, a6], 
     SP[a4, a5], n] - S2[a1, a4, n]*S2[a2, a5, a3, a6, n] - 
    S2[a1, a4, n]*S2[a2, a5, a6, a3, n] + S2[a2, a5, SP[a1, a3], SP[a4, a6], 
     n] + S2[a2, a5, SP[a1, a6], SP[a3, a4], n] - 
    S2[a1, a4, n]*S2[a2, a6, a3, a5, n] - S2[a1, a4, n]*
     S2[a2, a6, a5, a3, n] + S2[a2, a6, SP[a1, a3], SP[a4, a5], n] + 
    S2[a2, a6, SP[a1, a5], SP[a3, a4], n] - S2[a2, SP[a1, a3], a4, 
     SP[a5, a6], n] + S2[a2, SP[a1, a3], a5, SP[a4, a6], n] + 
    S2[a2, SP[a1, a3], a6, SP[a4, a5], n] + S2[a2, SP[a1, a3], SP[a4, a5], 
     a6, n] + S2[a2, SP[a1, a5], a3, SP[a4, a6], n] + 
    S2[a2, SP[a1, a5], a6, SP[a3, a4], n] + S2[a2, SP[a1, a5], SP[a3, a4], 
     a6, n] + S2[a2, SP[a1, a5], SP[a4, a6], a3, n] + 
    S2[a2, SP[a1, a6], a3, SP[a4, a5], n] + S2[a2, SP[a1, a6], a5, 
     SP[a3, a4], n] + S2[a2, SP[a1, a6], SP[a3, a4], a5, n] + 
    S2[a2, SP[a1, a6], SP[a4, a5], a3, n] + S2[a1, a4, n]*
     S2[a3, a6, a2, a5, n] - S2[a3, a6, SP[a1, a2], SP[a4, a5], n] - 
    S2[a3, SP[a1, a6], a2, SP[a4, a5], n] - S2[a3, SP[a1, a6], SP[a2, a4], 
     a5, n] - S2[SP[a1, a2], a3, a4, SP[a5, a6], n] + 
    S2[SP[a1, a2], a3, a5, SP[a4, a6], n] + S2[SP[a1, a2], a3, a6, 
     SP[a4, a5], n] + S2[SP[a1, a2], a3, SP[a4, a5], a6, n] - 
    S2[SP[a1, a2], a4, a3, SP[a5, a6], n] - S2[SP[a1, a2], a4, SP[a3, a5], 
     a6, n] + S2[SP[a1, a2], a5, a3, SP[a4, a6], n] + 
    S2[SP[a1, a2], a5, a6, SP[a3, a4], n] + S2[SP[a1, a2], a5, SP[a3, a4], 
     a6, n] + S2[SP[a1, a2], a5, SP[a4, a6], a3, n] + 
    S2[SP[a1, a2], a6, a3, SP[a4, a5], n] + S2[SP[a1, a2], a6, a5, 
     SP[a3, a4], n] + S2[SP[a1, a2], a6, SP[a3, a4], a5, n] + 
    S2[SP[a1, a2], a6, SP[a4, a5], a3, n] + S2[SP[a1, a2], SP[a4, a5], a3, 
     a6, n] + S2[SP[a1, a2], SP[a4, a5], a6, a3, n] + 
    S2[SP[a1, a2], SP[a4, a6], a3, a5, n] + S2[SP[a1, a2], SP[a4, a6], a5, 
     a3, n] - S2[SP[a1, a3], a4, a5, SP[a2, a6], n] - 
    S2[SP[a1, a3], a4, SP[a5, a6], a2, n] - S2[SP[a1, a3], a6, a2, 
     SP[a4, a5], n] - S2[SP[a1, a3], a6, SP[a2, a4], a5, n] - 
    S2[SP[a1, a3], SP[a4, a6], a2, a5, n] - S2[SP[a1, a3], SP[a4, a6], a5, 
     a2, n] + S2[a1, a2, a3, a4, SP[a5, a6], n] - 
    S2[a1, a2, a3, a5, SP[a4, a6], n] - S2[a1, a2, a3, a6, SP[a4, a5], n] - 
    S2[a1, a2, a3, SP[a4, a5], a6, n] + S2[a1, a2, a4, a3, SP[a5, a6], n] + 
    S2[a1, a2, a4, SP[a3, a5], a6, n] - S2[a1, a2, a5, a3, SP[a4, a6], n] - 
    S2[a1, a2, a5, a6, SP[a3, a4], n] - S2[a1, a2, a5, SP[a3, a4], a6, n] - 
    S2[a1, a2, a5, SP[a4, a6], a3, n] - S2[a1, a2, a6, a3, SP[a4, a5], n] - 
    S2[a1, a2, a6, a5, SP[a3, a4], n] - S2[a1, a2, a6, SP[a3, a4], a5, n] - 
    S2[a1, a2, a6, SP[a4, a5], a3, n] - S2[a1, a2, SP[a4, a5], a3, a6, n] - 
    S2[a1, a2, SP[a4, a5], a6, a3, n] - S2[a1, a2, SP[a4, a6], a3, a5, n] - 
    S2[a1, a2, SP[a4, a6], a5, a3, n] - S2[a6, n]*S2[a1, a3, a2, a5, a4, n] - 
    S2[a1, a3, a2, a5, SP[a4, a6], n] - S2[a1, a3, a2, SP[a5, a6], a4, n] + 
    S2[a1, a3, a4, a5, SP[a2, a6], n] + S2[a1, a3, a4, SP[a5, a6], a2, n] - 
    S2[a6, n]*S2[a1, a3, a5, a2, a4, n] - S2[a1, a3, a5, a2, SP[a4, a6], n] - 
    S2[a6, n]*S2[a1, a3, a5, a4, a2, n] + 
    S2[a2, n]*S2[a1, a3, a5, a4, a6, n] + 
    S2[a2, n]*S2[a1, a3, a5, a6, a4, n] + S2[a1, a3, a5, a6, SP[a2, a4], n] + 
    S2[a1, a3, a5, SP[a2, a4], a6, n] - S2[a1, a3, a5, SP[a4, a6], a2, n] + 
    S2[a1, a3, a6, a2, SP[a4, a5], n] + S2[a2, n]*S2[a1, a3, a6, a5, a4, n] + 
    S2[a1, a3, a6, a5, SP[a2, a4], n] + S2[a1, a3, a6, SP[a2, a4], a5, n] + 
    S2[a1, a3, a6, SP[a2, a5], a4, n] + S2[a1, a3, SP[a2, a5], a4, a6, n] + 
    S2[a1, a3, SP[a2, a5], a6, a4, n] + S2[a1, a3, SP[a4, a6], a2, a5, n] + 
    S2[a1, a3, SP[a4, a6], a5, a2, n] - S2[a1, a3, SP[a5, a6], a2, a4, n] - 
    S2[a1, a3, SP[a5, a6], a4, a2, n] + S2[a1, a4, a2, a3, SP[a5, a6], n] + 
    S2[a1, a4, a2, SP[a3, a5], a6, n] + S2[a1, a4, a3, a5, SP[a2, a6], n] + 
    S2[a1, a4, a3, SP[a5, a6], a2, n] - S2[a3, n]*S2[a1, a4, a5, a2, a6, n] - 
    S2[a1, a4, a5, a2, SP[a3, a6], n] + S2[a1, a4, a5, a3, SP[a2, a6], n] - 
    S2[a3, n]*S2[a1, a4, a5, a6, a2, n] + 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] + S2[a1, a4, a5, SP[a2, a6], a3, n] - 
    S2[a1, a4, a5, SP[a3, a6], a2, n] - S2[a3, n]*S2[a1, a4, a6, a2, a5, n] - 
    S2[a1, a4, a6, a2, SP[a3, a5], n] + S2[a2, n]*S2[a1, a4, a6, a3, a5, n] + 
    S2[a1, a4, a6, a3, SP[a2, a5], n] - S2[a3, n]*S2[a1, a4, a6, a5, a2, n] + 
    S2[a2, n]*S2[a1, a4, a6, a5, a3, n] + S2[a1, a4, a6, SP[a2, a5], a3, n] - 
    S2[a1, a4, a6, SP[a3, a5], a2, n] + S2[a1, a4, SP[a2, a5], a3, a6, n] + 
    S2[a1, a4, SP[a2, a5], a6, a3, n] + S2[a1, a4, SP[a2, a6], a3, a5, n] + 
    S2[a1, a4, SP[a2, a6], a5, a3, n] - S2[a1, a4, SP[a3, a6], a2, a5, n] - 
    S2[a1, a4, SP[a3, a6], a5, a2, n] - S2[a6, n]*S2[a1, a5, a2, a3, a4, n] - 
    S2[a1, a5, a2, a3, SP[a4, a6], n] - S2[a6, n]*S2[a1, a5, a2, a4, a3, n] - 
    S2[a1, a5, a2, a4, SP[a3, a6], n] - S2[a1, a5, a2, SP[a3, a6], a4, n] - 
    S2[a1, a5, a2, SP[a4, a6], a3, n] - S2[a6, n]*S2[a1, a5, a3, a2, a4, n] - 
    S2[a1, a5, a3, a2, SP[a4, a6], n] - S2[a6, n]*S2[a1, a5, a3, a4, a2, n] + 
    S2[a2, n]*S2[a1, a5, a3, a4, a6, n] + 
    S2[a2, n]*S2[a1, a5, a3, a6, a4, n] + S2[a1, a5, a3, a6, SP[a2, a4], n] + 
    S2[a1, a5, a3, SP[a2, a4], a6, n] - S2[a1, a5, a3, SP[a4, a6], a2, n] - 
    S2[a6, n]*S2[a1, a5, a4, a2, a3, n] - S2[a1, a5, a4, a2, SP[a3, a6], n] - 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] + 
    S2[a2, n]*S2[a1, a5, a4, a3, a6, n] + 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] + S2[a1, a5, a4, a6, SP[a2, a3], n] + 
    S2[a1, a5, a4, SP[a2, a3], a6, n] - S2[a1, a5, a4, SP[a3, a6], a2, n] + 
    S2[a2, n]*S2[a1, a5, a6, a3, a4, n] + S2[a1, a5, a6, a3, SP[a2, a4], n] + 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] + S2[a1, a5, a6, a4, SP[a2, a3], n] + 
    S2[a1, a5, a6, SP[a2, a3], a4, n] + S2[a1, a5, a6, SP[a2, a4], a3, n] + 
    S2[a1, a5, SP[a2, a3], a4, a6, n] + S2[a1, a5, SP[a2, a3], a6, a4, n] + 
    S2[a1, a5, SP[a2, a4], a3, a6, n] + S2[a1, a5, SP[a2, a4], a6, a3, n] - 
    S2[a1, a5, SP[a3, a6], a2, a4, n] - S2[a1, a5, SP[a3, a6], a4, a2, n] - 
    S2[a1, a5, SP[a4, a6], a2, a3, n] - S2[a1, a5, SP[a4, a6], a3, a2, n] - 
    S2[a3, n]*S2[a1, a6, a2, a4, a5, n] - S2[a1, a6, a2, a4, SP[a3, a5], n] - 
    S2[a3, n]*S2[a1, a6, a2, a5, a4, n] - S2[a1, a6, a2, a5, SP[a3, a4], n] - 
    S2[a1, a6, a2, SP[a3, a4], a5, n] - S2[a1, a6, a2, SP[a3, a5], a4, n] + 
    S2[a2, n]*S2[a1, a6, a3, a4, a5, n] + S2[a1, a6, a3, a4, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a6, a3, a5, a4, n] + S2[a1, a6, a3, a5, SP[a2, a4], n] + 
    S2[a1, a6, a3, SP[a2, a4], a5, n] + S2[a1, a6, a3, SP[a2, a5], a4, n] - 
    S2[a3, n]*S2[a1, a6, a4, a2, a5, n] - S2[a1, a6, a4, a2, SP[a3, a5], n] + 
    S2[a2, n]*S2[a1, a6, a4, a3, a5, n] + S2[a1, a6, a4, a3, SP[a2, a5], n] - 
    S2[a3, n]*S2[a1, a6, a4, a5, a2, n] + 
    S2[a2, n]*S2[a1, a6, a4, a5, a3, n] + S2[a1, a6, a4, SP[a2, a5], a3, n] - 
    S2[a1, a6, a4, SP[a3, a5], a2, n] + S2[a2, n]*S2[a1, a6, a5, a3, a4, n] + 
    S2[a1, a6, a5, a3, SP[a2, a4], n] + S2[a2, n]*S2[a1, a6, a5, a4, a3, n] + 
    S2[a1, a6, a5, a4, SP[a2, a3], n] + S2[a1, a6, a5, SP[a2, a3], a4, n] + 
    S2[a1, a6, a5, SP[a2, a4], a3, n] + S2[a1, a6, SP[a2, a4], a3, a5, n] + 
    S2[a1, a6, SP[a2, a4], a5, a3, n] + S2[a1, a6, SP[a2, a5], a3, a4, n] + 
    S2[a1, a6, SP[a2, a5], a4, a3, n] - S2[a1, a6, SP[a3, a4], a2, a5, n] - 
    S2[a1, a6, SP[a3, a4], a5, a2, n] + S2[a1, SP[a2, a3], a5, a4, a6, n] + 
    S2[a1, SP[a2, a3], a5, a6, a4, n] + S2[a1, SP[a2, a3], a6, a5, a4, n] + 
    S2[a1, SP[a2, a5], a3, a4, a6, n] + S2[a1, SP[a2, a5], a3, a6, a4, n] + 
    S2[a1, SP[a2, a5], a4, a3, a6, n] + S2[a1, SP[a2, a5], a4, a6, a3, n] + 
    S2[a1, SP[a2, a5], a6, a3, a4, n] + S2[a1, SP[a2, a5], a6, a4, a3, n] + 
    S2[a1, SP[a2, a6], a3, a4, a5, n] + S2[a1, SP[a2, a6], a3, a5, a4, n] + 
    S2[a1, SP[a2, a6], a4, a3, a5, n] + S2[a1, SP[a2, a6], a4, a5, a3, n] + 
    S2[a1, SP[a2, a6], a5, a3, a4, n] + S2[a1, SP[a2, a6], a5, a4, a3, n] - 
    S2[a1, SP[a3, a6], a2, a4, a5, n] - 2*S2[a1, SP[a3, a6], a2, a5, a4, n] - 
    S2[a1, SP[a3, a6], a4, a2, a5, n] - S2[a1, SP[a3, a6], a4, a5, a2, n] - 
    S2[a1, SP[a3, a6], a5, a2, a4, n] - S2[a1, SP[a3, a6], a5, a4, a2, n] - 
    S2[a1, SP[a5, a6], a2, a3, a4, n] - S2[a1, SP[a5, a6], a2, a4, a3, n] - 
    S2[a1, SP[a5, a6], a3, a2, a4, n] - S2[a1, SP[a5, a6], a3, a4, a2, n] - 
    S2[a1, SP[a5, a6], a4, a2, a3, n] - S2[a1, SP[a5, a6], a4, a3, a2, n] + 
    S2[a2, a1, a3, a4, SP[a5, a6], n] - S2[a2, a1, a3, a5, SP[a4, a6], n] - 
    S2[a2, a1, a3, a6, SP[a4, a5], n] - S2[a2, a1, a3, SP[a4, a5], a6, n] + 
    S2[a2, a1, a4, a3, SP[a5, a6], n] + S2[a2, a1, a4, SP[a3, a5], a6, n] - 
    S2[a2, a1, a5, a3, SP[a4, a6], n] - S2[a2, a1, a5, a6, SP[a3, a4], n] - 
    S2[a2, a1, a5, SP[a3, a4], a6, n] - S2[a2, a1, a5, SP[a4, a6], a3, n] - 
    S2[a2, a1, a6, a3, SP[a4, a5], n] - S2[a2, a1, a6, a5, SP[a3, a4], n] - 
    S2[a2, a1, a6, SP[a3, a4], a5, n] - S2[a2, a1, a6, SP[a4, a5], a3, n] - 
    S2[a2, a1, SP[a4, a5], a3, a6, n] - S2[a2, a1, SP[a4, a5], a6, a3, n] - 
    S2[a2, a1, SP[a4, a6], a3, a5, n] - S2[a2, a1, SP[a4, a6], a5, a3, n] + 
    S2[a2, a3, a1, a4, SP[a5, a6], n] + S2[a6, n]*S2[a2, a3, a1, a5, a4, n] - 
    S2[a2, a3, a1, a6, SP[a4, a5], n] - S2[a2, a3, a1, SP[a4, a5], a6, n] + 
    S2[a2, a3, a1, SP[a5, a6], a4, n] + S2[a6, n]*S2[a2, a3, a5, a1, a4, n] - 
    S2[a2, a3, a6, a1, SP[a4, a5], n] - S2[a2, a3, a6, SP[a1, a5], a4, n] - 
    S2[a2, a3, SP[a1, a5], a4, a6, n] - S2[a2, a3, SP[a1, a5], a6, a4, n] + 
    S2[a2, a3, SP[a5, a6], a1, a4, n] + S2[a6, n]*S2[a2, a5, a1, a3, a4, n] + 
    S2[a6, n]*S2[a2, a5, a1, a4, a3, n] + S2[a2, a5, a1, a4, SP[a3, a6], n] - 
    S2[a2, a5, a1, a6, SP[a3, a4], n] - S2[a2, a5, a1, SP[a3, a4], a6, n] + 
    S2[a2, a5, a1, SP[a3, a6], a4, n] + S2[a6, n]*S2[a2, a5, a3, a1, a4, n] - 
    S2[a2, a5, a6, a1, SP[a3, a4], n] - S2[a2, a5, a6, SP[a1, a3], a4, n] - 
    S2[a2, a5, SP[a1, a3], a4, a6, n] - S2[a2, a5, SP[a1, a3], a6, a4, n] + 
    S2[a2, a5, SP[a3, a6], a1, a4, n] - S2[a2, a6, a1, a3, SP[a4, a5], n] + 
    S2[a3, n]*S2[a2, a6, a1, a4, a5, n] + S2[a2, a6, a1, a4, SP[a3, a5], n] + 
    S2[a3, n]*S2[a2, a6, a1, a5, a4, n] + S2[a2, a6, a1, SP[a3, a5], a4, n] - 
    S2[a2, a6, a1, SP[a4, a5], a3, n] - S2[a2, a6, a3, a1, SP[a4, a5], n] - 
    S2[a2, a6, a3, SP[a1, a5], a4, n] - S2[a2, a6, a5, a1, SP[a3, a4], n] - 
    S2[a2, a6, a5, SP[a1, a3], a4, n] - S2[a2, a6, SP[a1, a5], a3, a4, n] - 
    S2[a2, a6, SP[a1, a5], a4, a3, n] - S2[a2, SP[a1, a3], a5, a4, a6, n] - 
    S2[a2, SP[a1, a3], a5, a6, a4, n] - S2[a2, SP[a1, a3], a6, a5, a4, n] - 
    S2[a2, SP[a1, a5], a3, a4, a6, n] - S2[a2, SP[a1, a5], a3, a6, a4, n] - 
    S2[a2, SP[a1, a5], a4, a3, a6, n] - S2[a2, SP[a1, a5], a4, a6, a3, n] - 
    S2[a2, SP[a1, a5], a6, a3, a4, n] - S2[a2, SP[a1, a5], a6, a4, a3, n] - 
    S2[a2, SP[a1, a6], a3, a4, a5, n] - S2[a2, SP[a1, a6], a3, a5, a4, n] - 
    S2[a2, SP[a1, a6], a4, a3, a5, n] - S2[a2, SP[a1, a6], a4, a5, a3, n] - 
    S2[a2, SP[a1, a6], a5, a3, a4, n] - S2[a2, SP[a1, a6], a5, a4, a3, n] + 
    S2[a2, SP[a3, a6], a1, a4, a5, n] + 2*S2[a2, SP[a3, a6], a1, a5, a4, n] + 
    S2[a2, SP[a3, a6], a5, a1, a4, n] + S2[a2, SP[a5, a6], a1, a3, a4, n] + 
    S2[a2, SP[a5, a6], a1, a4, a3, n] + S2[a2, SP[a5, a6], a3, a1, a4, n] + 
    S2[a3, a1, a4, a5, SP[a2, a6], n] + S2[a3, a1, a4, SP[a5, a6], a2, n] + 
    S2[a3, a1, a6, a2, SP[a4, a5], n] + S2[a3, a1, a6, SP[a2, a4], a5, n] + 
    S2[a3, a1, SP[a4, a6], a2, a5, n] + S2[a3, a1, SP[a4, a6], a5, a2, n] + 
    S2[a3, a6, a1, a2, SP[a4, a5], n] - S2[a2, n]*S2[a3, a6, a1, a4, a5, n] - 
    S2[a3, a6, a1, a4, SP[a2, a5], n] - S2[a2, n]*S2[a3, a6, a1, a5, a4, n] - 
    S2[a3, a6, a1, a5, SP[a2, a4], n] - S2[a3, a6, a1, SP[a2, a5], a4, n] + 
    S2[a3, a6, a2, a1, SP[a4, a5], n] + S2[a3, a6, a2, SP[a1, a5], a4, n] + 
    S2[a3, SP[a1, a6], a2, a4, a5, n] + S2[a3, SP[a1, a6], a2, a5, a4, n] + 
    S2[a3, SP[a1, a6], a4, a2, a5, n] + S2[a3, SP[a1, a6], a4, a5, a2, n] - 
    S2[a3, SP[a2, a6], a1, a4, a5, n] - S2[a3, SP[a2, a6], a1, a5, a4, n] + 
    S2[a3, n]*S2[a6, a1, a5, a2, a4, n] + S2[a6, a1, a5, a2, SP[a3, a4], n] + 
    S2[a3, n]*S2[a6, a1, a5, a4, a2, n] + S2[a6, a1, a5, a4, SP[a2, a3], n] + 
    S2[a6, a1, a5, SP[a2, a3], a4, n] + S2[a6, a1, a5, SP[a3, a4], a2, n] + 
    S2[a6, a1, SP[a3, a5], a2, a4, n] + S2[a6, a1, SP[a3, a5], a4, a2, n] - 
    S2[a3, n]*S2[a6, a2, a5, a1, a4, n] - S2[a6, a2, a5, a1, SP[a3, a4], n] - 
    S2[a6, a2, a5, SP[a1, a3], a4, n] - S2[a6, a2, SP[a3, a5], a1, a4, n] - 
    S2[a2, n]*S2[a6, a3, a1, a5, a4, n] - S2[a6, a3, a1, a5, SP[a2, a4], n] - 
    S2[a6, a3, a1, SP[a2, a5], a4, n] + S2[a1, n]*S2[a6, a3, a2, a5, a4, n] + 
    S2[a6, a3, a2, a5, SP[a1, a4], n] + S2[a6, a3, a2, SP[a1, a5], a4, n] + 
    S2[a6, SP[a1, a3], a2, a5, a4, n] + S2[a6, SP[a1, a3], a5, a2, a4, n] + 
    S2[a6, SP[a1, a3], a5, a4, a2, n] - S2[a6, SP[a2, a3], a1, a5, a4, n] - 
    S2[a6, SP[a2, a3], a5, a1, a4, n] - S2[SP[a1, a6], a3, a5, a2, a4, n] - 
    S2[SP[a1, a6], a3, a5, a4, a2, n] - S2[SP[a1, a6], a5, a2, a3, a4, n] - 
    S2[SP[a1, a6], a5, a2, a4, a3, n] - S2[SP[a1, a6], a5, a3, a2, a4, n] - 
    S2[SP[a1, a6], a5, a3, a4, a2, n] - S2[SP[a1, a6], a5, a4, a2, a3, n] - 
    S2[SP[a1, a6], a5, a4, a3, a2, n] + S2[SP[a2, a6], a3, a5, a1, a4, n] + 
    S2[SP[a2, a6], a5, a1, a3, a4, n] + S2[SP[a2, a6], a5, a1, a4, a3, n] + 
    S2[SP[a2, a6], a5, a3, a1, a4, n] + S2[SP[a3, a6], a1, a5, a2, a4, n] + 
    S2[SP[a3, a6], a1, a5, a4, a2, n] - S2[SP[a3, a6], a2, a5, a1, a4, n] - 
    S2[a6, a3, a2, a5, a4, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a1_, a4_, a5_, a2_, a6_, a3_, n_] :> 
  S2[a1, a4, a5, n]*S2[a2, a6, a3, n] + S2[SP[a1, a2], SP[a4, a6], 
     SP[a3, a5], n] - S2[a1, a2, SP[a4, a6], SP[a3, a5], n] - 
    S2[a3, a6, n]*S2[a1, a4, a5, a2, n] + S2[a1, a4, SP[a3, a5], SP[a2, a6], 
     n] - S2[a1, SP[a2, a4], a6, SP[a3, a5], n] - 
    S2[a1, SP[a2, a4], SP[a5, a6], a3, n] + S2[a1, SP[a3, a4], a5, 
     SP[a2, a6], n] + S2[a1, SP[a3, a4], SP[a5, a6], a2, n] - 
    S2[a2, a1, SP[a4, a6], SP[a3, a5], n] - S2[a2, SP[a1, a6], a4, 
     SP[a3, a5], n] - S2[a2, SP[a1, a6], SP[a3, a4], a5, n] - 
    S2[a1, a4, n]*S2[a3, a6, a2, a5, n] + S2[a3, a6, SP[a1, a2], SP[a4, a5], 
     n] + S2[a3, SP[a1, a6], a2, SP[a4, a5], n] + 
    S2[a3, SP[a1, a6], SP[a2, a4], a5, n] - S2[SP[a1, a2], a4, a6, 
     SP[a3, a5], n] - S2[SP[a1, a2], a4, SP[a5, a6], a3, n] - 
    S2[SP[a1, a2], a6, a4, SP[a3, a5], n] - S2[SP[a1, a2], a6, SP[a3, a4], 
     a5, n] - S2[SP[a1, a2], SP[a4, a6], a3, a5, n] - 
    S2[SP[a1, a2], SP[a4, a6], a5, a3, n] + S2[SP[a1, a3], a4, a5, 
     SP[a2, a6], n] + S2[SP[a1, a3], a4, SP[a5, a6], a2, n] + 
    S2[SP[a1, a3], a6, a2, SP[a4, a5], n] + S2[SP[a1, a3], a6, SP[a2, a4], 
     a5, n] + S2[SP[a1, a3], SP[a4, a6], a2, a5, n] + 
    S2[SP[a1, a3], SP[a4, a6], a5, a2, n] + S2[a1, a2, a4, a6, SP[a3, a5], 
     n] + S2[a1, a2, a4, SP[a5, a6], a3, n] + S2[a1, a2, a6, a4, SP[a3, a5], 
     n] + S2[a1, a2, a6, SP[a3, a4], a5, n] + S2[a1, a2, SP[a4, a6], a3, a5, 
     n] + S2[a1, a2, SP[a4, a6], a5, a3, n] - S2[a1, a3, a4, a5, SP[a2, a6], 
     n] - S2[a1, a3, a4, SP[a5, a6], a2, n] - S2[a1, a3, a6, a2, SP[a4, a5], 
     n] - S2[a1, a3, a6, SP[a2, a4], a5, n] - S2[a1, a3, SP[a4, a6], a2, a5, 
     n] - S2[a1, a3, SP[a4, a6], a5, a2, n] + S2[a1, a4, a2, a6, SP[a3, a5], 
     n] + S2[a1, a4, a2, SP[a5, a6], a3, n] - S2[a1, a4, a3, a5, SP[a2, a6], 
     n] - S2[a1, a4, a3, SP[a5, a6], a2, n] + 
    S2[a3, n]*S2[a1, a4, a5, a2, a6, n] + S2[a1, a4, a5, a2, SP[a3, a6], n] - 
    S2[a1, a4, a5, a3, SP[a2, a6], n] + S2[a3, n]*S2[a1, a4, a5, a6, a2, n] - 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] - S2[a1, a4, a5, SP[a2, a6], a3, n] + 
    S2[a1, a4, a5, SP[a3, a6], a2, n] + S2[a3, n]*S2[a1, a4, a6, a2, a5, n] + 
    S2[a1, a4, a6, a2, SP[a3, a5], n] - S2[a2, n]*S2[a1, a4, a6, a3, a5, n] - 
    S2[a1, a4, a6, a3, SP[a2, a5], n] + S2[a3, n]*S2[a1, a4, a6, a5, a2, n] - 
    S2[a2, n]*S2[a1, a4, a6, a5, a3, n] - S2[a1, a4, a6, SP[a2, a5], a3, n] + 
    S2[a1, a4, a6, SP[a3, a5], a2, n] - S2[a1, a4, SP[a2, a6], a3, a5, n] - 
    S2[a1, a4, SP[a2, a6], a5, a3, n] + S2[a1, a4, SP[a3, a6], a2, a5, n] + 
    S2[a1, a4, SP[a3, a6], a5, a2, n] + S2[a3, n]*S2[a1, a6, a2, a4, a5, n] + 
    S2[a1, a6, a2, a4, SP[a3, a5], n] + S2[a3, n]*S2[a1, a6, a2, a5, a4, n] + 
    S2[a1, a6, a2, a5, SP[a3, a4], n] + S2[a1, a6, a2, SP[a3, a4], a5, n] + 
    S2[a1, a6, a2, SP[a3, a5], a4, n] - S2[a2, n]*S2[a1, a6, a3, a4, a5, n] - 
    S2[a1, a6, a3, a4, SP[a2, a5], n] - S2[a1, a6, a3, SP[a2, a4], a5, n] + 
    S2[a3, n]*S2[a1, a6, a4, a2, a5, n] + S2[a1, a6, a4, a2, SP[a3, a5], n] - 
    S2[a2, n]*S2[a1, a6, a4, a3, a5, n] - S2[a1, a6, a4, a3, SP[a2, a5], n] + 
    S2[a3, n]*S2[a1, a6, a4, a5, a2, n] - 
    S2[a2, n]*S2[a1, a6, a4, a5, a3, n] - S2[a1, a6, a4, SP[a2, a5], a3, n] + 
    S2[a1, a6, a4, SP[a3, a5], a2, n] + S2[a1, a6, SP[a2, a3], a5, a4, n] - 
    S2[a1, a6, SP[a2, a4], a3, a5, n] - S2[a1, a6, SP[a2, a4], a5, a3, n] + 
    S2[a1, a6, SP[a3, a4], a2, a5, n] + S2[a1, a6, SP[a3, a4], a5, a2, n] - 
    S2[a1, SP[a2, a6], a3, a4, a5, n] - S2[a1, SP[a2, a6], a4, a3, a5, n] - 
    S2[a1, SP[a2, a6], a4, a5, a3, n] + S2[a1, SP[a3, a6], a2, a4, a5, n] + 
    S2[a1, SP[a3, a6], a2, a5, a4, n] + S2[a1, SP[a3, a6], a4, a2, a5, n] + 
    S2[a1, SP[a3, a6], a4, a5, a2, n] + S2[a2, a1, a4, a6, SP[a3, a5], n] + 
    S2[a2, a1, a4, SP[a5, a6], a3, n] + S2[a2, a1, a6, a4, SP[a3, a5], n] + 
    S2[a2, a1, a6, SP[a3, a4], a5, n] + S2[a2, a1, SP[a4, a6], a3, a5, n] + 
    S2[a2, a1, SP[a4, a6], a5, a3, n] - S2[a3, n]*S2[a2, a6, a1, a4, a5, n] - 
    S2[a3, n]*S2[a2, a6, a1, a5, a4, n] - S2[a2, a6, a1, a5, SP[a3, a4], n] - 
    S2[a2, a6, a1, SP[a3, a5], a4, n] - S2[a2, a6, SP[a1, a3], a5, a4, n] + 
    S2[a2, SP[a1, a6], a3, a4, a5, n] + S2[a2, SP[a1, a6], a4, a3, a5, n] + 
    S2[a2, SP[a1, a6], a4, a5, a3, n] - S2[a2, SP[a3, a6], a1, a4, a5, n] - 
    S2[a2, SP[a3, a6], a1, a5, a4, n] - S2[a3, a1, a4, a5, SP[a2, a6], n] - 
    S2[a3, a1, a4, SP[a5, a6], a2, n] - S2[a3, a1, a6, a2, SP[a4, a5], n] - 
    S2[a3, a1, a6, SP[a2, a4], a5, n] - S2[a3, a1, SP[a4, a6], a2, a5, n] - 
    S2[a3, a1, SP[a4, a6], a5, a2, n] - S2[a3, a6, a1, a2, SP[a4, a5], n] + 
    S2[a2, n]*S2[a3, a6, a1, a4, a5, n] + S2[a3, a6, a1, a4, SP[a2, a5], n] + 
    S2[a2, n]*S2[a3, a6, a1, a5, a4, n] + S2[a3, a6, a1, a5, SP[a2, a4], n] + 
    S2[a3, a6, a1, SP[a2, a5], a4, n] - S2[a3, a6, a2, a1, SP[a4, a5], n] - 
    S2[a3, a6, a2, SP[a1, a5], a4, n] - S2[a3, SP[a1, a6], a2, a4, a5, n] - 
    S2[a3, SP[a1, a6], a2, a5, a4, n] - S2[a3, SP[a1, a6], a4, a2, a5, n] - 
    S2[a3, SP[a1, a6], a4, a5, a2, n] + S2[a3, SP[a2, a6], a1, a4, a5, n] + 
    S2[a3, SP[a2, a6], a1, a5, a4, n] + S2[a2, n]*S2[a6, a1, a3, a5, a4, n] + 
    S2[a6, a1, a3, a5, SP[a2, a4], n] + S2[a6, a1, a3, SP[a2, a5], a4, n] - 
    S2[a3, n]*S2[a6, a1, a5, a2, a4, n] - S2[a6, a1, a5, a2, SP[a3, a4], n] + 
    S2[a2, n]*S2[a6, a1, a5, a3, a4, n] + S2[a6, a1, a5, a3, SP[a2, a4], n] - 
    S2[a3, n]*S2[a6, a1, a5, a4, a2, n] + 
    S2[a2, n]*S2[a6, a1, a5, a4, a3, n] + S2[a6, a1, a5, SP[a2, a4], a3, n] - 
    S2[a6, a1, a5, SP[a3, a4], a2, n] + S2[a6, a1, SP[a2, a3], a5, a4, n] + 
    S2[a6, a1, SP[a2, a5], a3, a4, n] + S2[a6, a1, SP[a2, a5], a4, a3, n] - 
    S2[a6, a1, SP[a3, a5], a2, a4, n] - S2[a6, a1, SP[a3, a5], a4, a2, n] - 
    S2[a1, n]*S2[a6, a2, a3, a5, a4, n] - S2[a6, a2, a3, a5, SP[a1, a4], n] - 
    S2[a6, a2, a3, SP[a1, a5], a4, n] + S2[a3, n]*S2[a6, a2, a5, a1, a4, n] + 
    S2[a6, a2, a5, a1, SP[a3, a4], n] - S2[a1, n]*S2[a6, a2, a5, a3, a4, n] - 
    S2[a6, a2, a5, a3, SP[a1, a4], n] - S2[a1, n]*S2[a6, a2, a5, a4, a3, n] - 
    S2[a6, a2, a5, a4, SP[a1, a3], n] - S2[a6, a2, a5, SP[a1, a4], a3, n] - 
    S2[a6, a2, SP[a1, a3], a5, a4, n] - S2[a6, a2, SP[a1, a5], a3, a4, n] - 
    S2[a6, a2, SP[a1, a5], a4, a3, n] + S2[a6, a2, SP[a3, a5], a1, a4, n] + 
    S2[a2, n]*S2[a6, a3, a1, a5, a4, n] + S2[a6, a3, a1, a5, SP[a2, a4], n] + 
    S2[a6, a3, a1, SP[a2, a5], a4, n] - S2[a1, n]*S2[a6, a3, a2, a5, a4, n] - 
    S2[a6, a3, a2, a5, SP[a1, a4], n] - S2[a6, a3, a2, SP[a1, a5], a4, n] - 
    S2[a6, SP[a1, a3], a2, a5, a4, n] - S2[a6, SP[a1, a3], a5, a2, a4, n] - 
    S2[a6, SP[a1, a3], a5, a4, a2, n] + S2[a6, SP[a2, a3], a1, a5, a4, n] + 
    S2[a6, SP[a2, a3], a5, a1, a4, n] - S2[SP[a1, a6], a2, a3, a5, a4, n] - 
    S2[SP[a1, a6], a2, a5, a3, a4, n] - S2[SP[a1, a6], a2, a5, a4, a3, n] - 
    S2[SP[a1, a6], a3, a2, a5, a4, n] + S2[SP[a2, a6], a1, a3, a5, a4, n] + 
    S2[SP[a2, a6], a1, a5, a3, a4, n] + S2[SP[a2, a6], a1, a5, a4, a3, n] + 
    S2[SP[a2, a6], a3, a1, a5, a4, n] - S2[SP[a3, a6], a1, a5, a2, a4, n] - 
    S2[SP[a3, a6], a1, a5, a4, a2, n] + S2[SP[a3, a6], a2, a5, a1, a4, n] + 
    S2[a6, a2, a3, a5, a4, a1, n] + S2[a6, a2, a5, a3, a4, a1, n] + 
    S2[a6, a2, a5, a4, a1, a3, n] + S2[a6, a2, a5, a4, a3, a1, n] + 
    S2[a6, a3, a2, a5, a4, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a1_, a4_, a5_, a3_, a2_, a6_, n_] :> 
  -(S2[a1, a4, a5, n]*S2[a2, a3, a6, n]) - S2[a1, a4, a5, n]*
     S2[a2, a6, a3, n] - S2[SP[a1, a2], SP[a3, a4], SP[a5, a6], n] - 
    S2[SP[a1, a2], SP[a4, a6], SP[a3, a5], n] + S2[a1, a2, SP[a3, a4], 
     SP[a5, a6], n] + S2[a1, a2, SP[a4, a6], SP[a3, a5], n] + 
    S2[a2, a6, n]*S2[a1, a4, a5, a3, n] - S2[a1, a4, SP[a2, a5], SP[a3, a6], 
     n] + S2[a1, SP[a2, a4], a3, SP[a5, a6], n] - S2[a1, SP[a2, a4], a5, 
     SP[a3, a6], n] + S2[a1, SP[a2, a4], a6, SP[a3, a5], n] + 
    S2[a1, SP[a2, a4], SP[a3, a5], a6, n] + S2[a2, a1, SP[a3, a4], 
     SP[a5, a6], n] + S2[a2, a1, SP[a4, a6], SP[a3, a5], n] + 
    S2[a1, a4, n]*S2[a2, a3, a5, a6, n] + S2[a1, a4, n]*
     S2[a2, a3, a6, a5, n] - S2[a2, a3, SP[a1, a5], SP[a4, a6], n] - 
    S2[a2, a3, SP[a1, a6], SP[a4, a5], n] + S2[a1, a4, n]*
     S2[a2, a6, a3, a5, n] - S2[a2, a6, SP[a1, a3], SP[a4, a5], n] + 
    S2[a2, SP[a1, a3], a4, SP[a5, a6], n] - S2[a2, SP[a1, a3], a5, 
     SP[a4, a6], n] - S2[a2, SP[a1, a3], a6, SP[a4, a5], n] - 
    S2[a2, SP[a1, a3], SP[a4, a5], a6, n] - S2[a2, SP[a1, a6], a3, 
     SP[a4, a5], n] + S2[a2, SP[a1, a6], a4, SP[a3, a5], n] + 
    S2[SP[a1, a2], a3, a4, SP[a5, a6], n] - S2[SP[a1, a2], a3, a5, 
     SP[a4, a6], n] - S2[SP[a1, a2], a3, a6, SP[a4, a5], n] - 
    S2[SP[a1, a2], a3, SP[a4, a5], a6, n] + S2[SP[a1, a2], a4, a3, 
     SP[a5, a6], n] - S2[SP[a1, a2], a4, a5, SP[a3, a6], n] + 
    S2[SP[a1, a2], a4, a6, SP[a3, a5], n] + S2[SP[a1, a2], a4, SP[a3, a5], 
     a6, n] - S2[SP[a1, a2], a6, a3, SP[a4, a5], n] + 
    S2[SP[a1, a2], a6, a4, SP[a3, a5], n] - S2[a1, a2, a3, a4, SP[a5, a6], 
     n] + S2[a1, a2, a3, a5, SP[a4, a6], n] + S2[a1, a2, a3, a6, SP[a4, a5], 
     n] + S2[a1, a2, a3, SP[a4, a5], a6, n] - S2[a1, a2, a4, a3, SP[a5, a6], 
     n] + S2[a1, a2, a4, a5, SP[a3, a6], n] - S2[a1, a2, a4, a6, SP[a3, a5], 
     n] - S2[a1, a2, a4, SP[a3, a5], a6, n] + S2[a1, a2, a6, a3, SP[a4, a5], 
     n] - S2[a1, a2, a6, a4, SP[a3, a5], n] + 
    S2[a6, n]*S2[a1, a3, a2, a5, a4, n] + S2[a1, a3, a2, a5, SP[a4, a6], n] + 
    S2[a1, a3, a2, SP[a5, a6], a4, n] + S2[a6, n]*S2[a1, a3, a5, a2, a4, n] + 
    S2[a1, a3, a5, a2, SP[a4, a6], n] + S2[a6, n]*S2[a1, a3, a5, a4, a2, n] - 
    S2[a2, n]*S2[a1, a3, a5, a4, a6, n] - 
    S2[a2, n]*S2[a1, a3, a5, a6, a4, n] - S2[a1, a3, a5, a6, SP[a2, a4], n] - 
    S2[a1, a3, a5, SP[a2, a4], a6, n] + S2[a1, a3, a5, SP[a4, a6], a2, n] - 
    S2[a2, n]*S2[a1, a3, a6, a5, a4, n] - S2[a1, a3, a6, a5, SP[a2, a4], n] - 
    S2[a1, a3, a6, SP[a2, a5], a4, n] - S2[a1, a3, SP[a2, a5], a4, a6, n] - 
    S2[a1, a3, SP[a2, a5], a6, a4, n] + S2[a1, a3, SP[a5, a6], a2, a4, n] + 
    S2[a1, a3, SP[a5, a6], a4, a2, n] - S2[a1, a4, a2, a3, SP[a5, a6], n] + 
    S2[a1, a4, a2, a5, SP[a3, a6], n] - S2[a1, a4, a2, a6, SP[a3, a5], n] - 
    S2[a1, a4, a2, SP[a3, a5], a6, n] + S2[a1, a4, a5, a2, SP[a3, a6], n] + 
    S2[a1, a4, a5, SP[a2, a3], a6, n] - S2[a2, n]*S2[a1, a6, a3, a5, a4, n] - 
    S2[a1, a6, a3, a5, SP[a2, a4], n] - S2[a1, a6, a3, SP[a2, a5], a4, n] - 
    S2[a1, a6, SP[a2, a3], a5, a4, n] - S2[a1, SP[a2, a3], a5, a4, a6, n] - 
    S2[a1, SP[a2, a3], a5, a6, a4, n] - S2[a1, SP[a2, a3], a6, a5, a4, n] - 
    S2[a1, SP[a2, a6], a3, a5, a4, n] + S2[a1, SP[a3, a6], a2, a5, a4, n] + 
    S2[a1, SP[a3, a6], a5, a2, a4, n] + S2[a1, SP[a3, a6], a5, a4, a2, n] - 
    S2[a2, a1, a3, a4, SP[a5, a6], n] + S2[a2, a1, a3, a5, SP[a4, a6], n] + 
    S2[a2, a1, a3, a6, SP[a4, a5], n] + S2[a2, a1, a3, SP[a4, a5], a6, n] - 
    S2[a2, a1, a4, a3, SP[a5, a6], n] + S2[a2, a1, a4, a5, SP[a3, a6], n] - 
    S2[a2, a1, a4, a6, SP[a3, a5], n] - S2[a2, a1, a4, SP[a3, a5], a6, n] + 
    S2[a2, a1, a6, a3, SP[a4, a5], n] - S2[a2, a1, a6, a4, SP[a3, a5], n] - 
    S2[a2, a3, a1, a4, SP[a5, a6], n] - S2[a6, n]*S2[a2, a3, a1, a5, a4, n] + 
    S2[a2, a3, a1, a6, SP[a4, a5], n] + S2[a2, a3, a1, SP[a4, a5], a6, n] - 
    S2[a2, a3, a1, SP[a5, a6], a4, n] - S2[a6, n]*S2[a2, a3, a5, a1, a4, n] + 
    S2[a2, a3, a6, a1, SP[a4, a5], n] + S2[a2, a3, a6, SP[a1, a5], a4, n] + 
    S2[a2, a3, SP[a1, a5], a4, a6, n] + S2[a2, a3, SP[a1, a5], a6, a4, n] - 
    S2[a2, a3, SP[a5, a6], a1, a4, n] + S2[a2, a6, a1, a3, SP[a4, a5], n] - 
    S2[a2, a6, a1, a4, SP[a3, a5], n] + S2[a2, a6, a3, a1, SP[a4, a5], n] + 
    S2[a2, a6, a3, SP[a1, a5], a4, n] + S2[a2, a6, SP[a1, a3], a5, a4, n] + 
    S2[a2, SP[a1, a3], a5, a4, a6, n] + S2[a2, SP[a1, a3], a5, a6, a4, n] + 
    S2[a2, SP[a1, a3], a6, a5, a4, n] + S2[a2, SP[a1, a6], a3, a5, a4, n] - 
    S2[a2, SP[a3, a6], a1, a5, a4, n] - S2[a2, SP[a3, a6], a5, a1, a4, n] - 
    S2[a2, n]*S2[a6, a1, a3, a5, a4, n] - S2[a6, a1, a3, a5, SP[a2, a4], n] - 
    S2[a6, a1, a3, SP[a2, a5], a4, n] - S2[a6, a1, SP[a2, a3], a5, a4, n] + 
    S2[a1, n]*S2[a6, a2, a3, a5, a4, n] + S2[a6, a2, a3, a5, SP[a1, a4], n] + 
    S2[a6, a2, a3, SP[a1, a5], a4, n] + S2[a6, a2, SP[a1, a3], a5, a4, n] + 
    S2[SP[a1, a6], a2, a3, a5, a4, n] + S2[SP[a1, a6], a3, a2, a5, a4, n] + 
    S2[SP[a1, a6], a3, a5, a2, a4, n] + S2[SP[a1, a6], a3, a5, a4, a2, n] - 
    S2[SP[a2, a6], a1, a3, a5, a4, n] - S2[SP[a2, a6], a3, a1, a5, a4, n] - 
    S2[SP[a2, a6], a3, a5, a1, a4, n] - S2[a6, a2, a3, a5, a4, a1, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a1_, a4_, a5_, a3_, a6_, a2_, n_] :> 
  S2[a1, a4, a5, n]*S2[a2, a6, a3, n] + S2[SP[a1, a2], SP[a4, a6], 
     SP[a3, a5], n] - S2[a1, a2, SP[a4, a6], SP[a3, a5], n] - 
    S2[a2, a6, n]*S2[a1, a4, a5, a3, n] + S2[a1, a4, SP[a2, a5], SP[a3, a6], 
     n] + S2[a1, SP[a2, a4], a5, SP[a3, a6], n] - S2[a1, SP[a2, a4], a6, 
     SP[a3, a5], n] - S2[a2, a1, SP[a4, a6], SP[a3, a5], n] - 
    S2[a1, a4, n]*S2[a2, a6, a3, a5, n] + S2[a2, a6, SP[a1, a3], SP[a4, a5], 
     n] + S2[a2, SP[a1, a6], a3, SP[a4, a5], n] - S2[a2, SP[a1, a6], a4, 
     SP[a3, a5], n] + S2[SP[a1, a2], a4, a5, SP[a3, a6], n] - 
    S2[SP[a1, a2], a4, a6, SP[a3, a5], n] + S2[SP[a1, a2], a6, a3, 
     SP[a4, a5], n] - S2[SP[a1, a2], a6, a4, SP[a3, a5], n] - 
    S2[a1, a2, a4, a5, SP[a3, a6], n] + S2[a1, a2, a4, a6, SP[a3, a5], n] - 
    S2[a1, a2, a6, a3, SP[a4, a5], n] + S2[a1, a2, a6, a4, SP[a3, a5], n] - 
    S2[a1, a4, a2, a5, SP[a3, a6], n] + S2[a1, a4, a2, a6, SP[a3, a5], n] - 
    S2[a1, a4, a5, a2, SP[a3, a6], n] + S2[a2, n]*S2[a1, a4, a5, a3, a6, n] + 
    S2[a1, a4, a5, a3, SP[a2, a6], n] + S2[a2, n]*S2[a1, a6, a3, a5, a4, n] + 
    S2[a1, a6, a3, a5, SP[a2, a4], n] + S2[a1, a6, a3, SP[a2, a5], a4, n] + 
    S2[a1, a6, SP[a2, a3], a5, a4, n] + S2[a1, SP[a2, a6], a3, a5, a4, n] - 
    S2[a2, a1, a4, a5, SP[a3, a6], n] + S2[a2, a1, a4, a6, SP[a3, a5], n] - 
    S2[a2, a1, a6, a3, SP[a4, a5], n] + S2[a2, a1, a6, a4, SP[a3, a5], n] - 
    S2[a2, a6, a1, a3, SP[a4, a5], n] + S2[a2, a6, a1, a4, SP[a3, a5], n] - 
    S2[a2, a6, a3, a1, SP[a4, a5], n] - S2[a2, a6, a3, SP[a1, a5], a4, n] - 
    S2[a2, a6, SP[a1, a3], a5, a4, n] - S2[a2, SP[a1, a6], a3, a5, a4, n] + 
    S2[a2, n]*S2[a6, a1, a3, a5, a4, n] + S2[a6, a1, a3, a5, SP[a2, a4], n] + 
    S2[a6, a1, a3, SP[a2, a5], a4, n] + S2[a6, a1, SP[a2, a3], a5, a4, n] - 
    S2[a1, n]*S2[a6, a2, a3, a5, a4, n] - S2[a6, a2, a3, a5, SP[a1, a4], n] - 
    S2[a6, a2, a3, SP[a1, a5], a4, n] - S2[a6, a2, SP[a1, a3], a5, a4, n] + 
    S2[a2, n]*S2[a6, a3, a1, a5, a4, n] + S2[a6, a3, a1, a5, SP[a2, a4], n] + 
    S2[a6, a3, a1, SP[a2, a5], a4, n] - S2[a1, n]*S2[a6, a3, a2, a5, a4, n] - 
    S2[a6, a3, a2, a5, SP[a1, a4], n] - S2[a6, a3, a2, SP[a1, a5], a4, n] + 
    S2[a2, n]*S2[a6, a3, a5, a1, a4, n] + S2[a6, a3, a5, a1, SP[a2, a4], n] - 
    S2[a1, n]*S2[a6, a3, a5, a2, a4, n] - S2[a6, a3, a5, a2, SP[a1, a4], n] - 
    S2[a1, n]*S2[a6, a3, a5, a4, a2, n] - S2[a6, a3, a5, a4, SP[a1, a2], n] - 
    S2[a6, a3, a5, SP[a1, a4], a2, n] - S2[a6, a3, SP[a1, a5], a2, a4, n] - 
    S2[a6, a3, SP[a1, a5], a4, a2, n] + S2[a6, a3, SP[a2, a5], a1, a4, n] - 
    S2[a6, SP[a1, a3], a2, a5, a4, n] - S2[a6, SP[a1, a3], a5, a2, a4, n] - 
    S2[a6, SP[a1, a3], a5, a4, a2, n] + S2[a6, SP[a2, a3], a1, a5, a4, n] + 
    S2[a6, SP[a2, a3], a5, a1, a4, n] - S2[SP[a1, a6], a2, a3, a5, a4, n] - 
    S2[SP[a1, a6], a3, a2, a5, a4, n] - S2[SP[a1, a6], a3, a5, a2, a4, n] - 
    S2[SP[a1, a6], a3, a5, a4, a2, n] + S2[SP[a2, a6], a1, a3, a5, a4, n] + 
    S2[SP[a2, a6], a3, a1, a5, a4, n] + S2[SP[a2, a6], a3, a5, a1, a4, n] + 
    S2[a6, a2, a3, a5, a4, a1, n] + S2[a6, a3, a2, a5, a4, a1, n] + 
    S2[a6, a3, a5, a2, a4, a1, n] + S2[a6, a3, a5, a4, a1, a2, n] + 
    S2[a6, a3, a5, a4, a2, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a1_, a4_, a5_, a6_, a2_, a3_, n_] :> 
  -(S2[a1, a4, a5, n]*S2[a2, a3, a6, n]) - S2[a1, a4, a5, n]*
     S2[a2, a6, a3, n] - S2[SP[a1, a2], SP[a3, a4], SP[a5, a6], n] - 
    S2[SP[a1, a2], SP[a4, a6], SP[a3, a5], n] + S2[a1, a2, SP[a3, a4], 
     SP[a5, a6], n] + S2[a1, a2, SP[a4, a6], SP[a3, a5], n] + 
    S2[a1, SP[a2, a4], a3, SP[a5, a6], n] + S2[a1, SP[a2, a4], a6, 
     SP[a3, a5], n] + S2[a1, SP[a2, a4], SP[a3, a5], a6, n] + 
    S2[a1, SP[a2, a4], SP[a5, a6], a3, n] + S2[a2, a1, SP[a3, a4], 
     SP[a5, a6], n] + S2[a2, a1, SP[a4, a6], SP[a3, a5], n] + 
    S2[a2, SP[a1, a3], a4, SP[a5, a6], n] + S2[a2, SP[a1, a3], SP[a4, a6], 
     a5, n] + S2[a2, SP[a1, a6], a4, SP[a3, a5], n] + 
    S2[a2, SP[a1, a6], SP[a3, a4], a5, n] + S2[a1, a4, n]*
     S2[a5, a6, a2, a3, n] - S2[a5, a6, SP[a1, a2], SP[a3, a4], n] - 
    S2[a5, SP[a1, a6], a2, SP[a3, a4], n] - S2[a5, SP[a1, a6], SP[a2, a4], 
     a3, n] + S2[SP[a1, a2], a3, a4, SP[a5, a6], n] + 
    S2[SP[a1, a2], a3, SP[a4, a6], a5, n] + S2[SP[a1, a2], a4, a3, 
     SP[a5, a6], n] + S2[SP[a1, a2], a4, a6, SP[a3, a5], n] + 
    S2[SP[a1, a2], a4, SP[a3, a5], a6, n] + S2[SP[a1, a2], a4, SP[a5, a6], 
     a3, n] + S2[SP[a1, a2], a6, a4, SP[a3, a5], n] + 
    S2[SP[a1, a2], a6, SP[a3, a4], a5, n] + S2[SP[a1, a2], SP[a3, a4], a5, 
     a6, n] + S2[SP[a1, a2], SP[a3, a4], a6, a5, n] + 
    S2[SP[a1, a2], SP[a4, a6], a3, a5, n] + S2[SP[a1, a2], SP[a4, a6], a5, 
     a3, n] - S2[SP[a1, a5], a6, a2, SP[a3, a4], n] - 
    S2[SP[a1, a5], a6, SP[a2, a4], a3, n] - S2[SP[a1, a5], SP[a4, a6], a2, 
     a3, n] - S2[a1, a2, a3, a4, SP[a5, a6], n] - S2[a1, a2, a3, SP[a4, a6], 
     a5, n] - S2[a1, a2, a4, a3, SP[a5, a6], n] - 
    S2[a1, a2, a4, a6, SP[a3, a5], n] - S2[a1, a2, a4, SP[a3, a5], a6, n] - 
    S2[a1, a2, a4, SP[a5, a6], a3, n] - S2[a1, a2, a6, a4, SP[a3, a5], n] - 
    S2[a1, a2, a6, SP[a3, a4], a5, n] - S2[a1, a2, SP[a3, a4], a5, a6, n] - 
    S2[a1, a2, SP[a3, a4], a6, a5, n] - S2[a1, a2, SP[a4, a6], a3, a5, n] - 
    S2[a1, a2, SP[a4, a6], a5, a3, n] - S2[a6, n]*S2[a1, a3, a2, a4, a5, n] - 
    S2[a1, a3, a2, a4, SP[a5, a6], n] - S2[a1, a3, a2, SP[a4, a6], a5, n] - 
    S2[a6, n]*S2[a1, a3, a4, a2, a5, n] - S2[a1, a3, a4, a2, SP[a5, a6], n] - 
    S2[a6, n]*S2[a1, a3, a4, a5, a2, n] + 
    S2[a2, n]*S2[a1, a3, a4, a5, a6, n] + 
    S2[a2, n]*S2[a1, a3, a4, a6, a5, n] + S2[a1, a3, a4, a6, SP[a2, a5], n] + 
    S2[a1, a3, a4, SP[a2, a5], a6, n] - S2[a1, a3, a4, SP[a5, a6], a2, n] + 
    S2[a2, n]*S2[a1, a3, a6, a4, a5, n] + S2[a1, a3, a6, a4, SP[a2, a5], n] + 
    S2[a1, a3, a6, SP[a2, a4], a5, n] + S2[a1, a3, SP[a2, a4], a5, a6, n] + 
    S2[a1, a3, SP[a2, a4], a6, a5, n] - S2[a1, a3, SP[a4, a6], a2, a5, n] - 
    S2[a1, a3, SP[a4, a6], a5, a2, n] - S2[a1, a4, a2, a3, SP[a5, a6], n] - 
    S2[a1, a4, a2, a6, SP[a3, a5], n] - S2[a1, a4, a2, SP[a3, a5], a6, n] - 
    S2[a1, a4, a2, SP[a5, a6], a3, n] - S2[a6, n]*S2[a1, a4, a3, a2, a5, n] - 
    S2[a1, a4, a3, a2, SP[a5, a6], n] - S2[a6, n]*S2[a1, a4, a3, a5, a2, n] + 
    S2[a2, n]*S2[a1, a4, a3, a5, a6, n] + 
    S2[a2, n]*S2[a1, a4, a3, a6, a5, n] + S2[a1, a4, a3, a6, SP[a2, a5], n] + 
    S2[a1, a4, a3, SP[a2, a5], a6, n] - S2[a1, a4, a3, SP[a5, a6], a2, n] - 
    S2[a6, n]*S2[a1, a4, a5, a3, a2, n] + 
    S2[a2, n]*S2[a1, a4, a5, a3, a6, n] + 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] + S2[a1, a4, a5, a6, SP[a2, a3], n] + 
    S2[a1, a4, a5, SP[a2, a3], a6, n] + S2[a1, a4, a5, SP[a2, a6], a3, n] - 
    S2[a1, a4, a5, SP[a3, a6], a2, n] - S2[a5, n]*S2[a1, a4, a6, a2, a3, n] - 
    S2[a1, a4, a6, a2, SP[a3, a5], n] + S2[a2, n]*S2[a1, a4, a6, a3, a5, n] + 
    S2[a1, a4, a6, a3, SP[a2, a5], n] + S2[a2, n]*S2[a1, a4, a6, a5, a3, n] + 
    S2[a1, a4, a6, a5, SP[a2, a3], n] + S2[a1, a4, a6, SP[a2, a3], a5, n] + 
    S2[a1, a4, SP[a2, a3], a5, a6, n] + S2[a1, a4, SP[a2, a3], a6, a5, n] + 
    S2[a1, a4, SP[a2, a6], a3, a5, n] + S2[a1, a4, SP[a2, a6], a5, a3, n] - 
    S2[a1, a4, SP[a3, a6], a2, a5, n] - S2[a1, a4, SP[a3, a6], a5, a2, n] - 
    S2[a1, a4, SP[a5, a6], a2, a3, n] - S2[a1, a4, SP[a5, a6], a3, a2, n] + 
    S2[a1, a5, a6, a2, SP[a3, a4], n] + S2[a1, a5, a6, SP[a2, a4], a3, n] + 
    S2[a1, a5, SP[a4, a6], a2, a3, n] - S2[a5, n]*S2[a1, a6, a2, a3, a4, n] - 
    S2[a1, a6, a2, a3, SP[a4, a5], n] - S2[a5, n]*S2[a1, a6, a2, a4, a3, n] - 
    S2[a1, a6, a2, a4, SP[a3, a5], n] - S2[a1, a6, a2, SP[a3, a5], a4, n] - 
    S2[a1, a6, a2, SP[a4, a5], a3, n] + S2[a2, n]*S2[a1, a6, a3, a4, a5, n] + 
    S2[a1, a6, a3, a4, SP[a2, a5], n] + S2[a1, a6, a3, SP[a2, a4], a5, n] - 
    S2[a5, n]*S2[a1, a6, a4, a2, a3, n] - S2[a1, a6, a4, a2, SP[a3, a5], n] + 
    S2[a2, n]*S2[a1, a6, a4, a3, a5, n] + S2[a1, a6, a4, a3, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a6, a4, a5, a3, n] + S2[a1, a6, a4, a5, SP[a2, a3], n] + 
    S2[a1, a6, a4, SP[a2, a3], a5, n] + S2[a1, a6, SP[a2, a3], a4, a5, n] + 
    S2[a1, a6, SP[a2, a4], a3, a5, n] + S2[a1, a6, SP[a2, a4], a5, a3, n] - 
    S2[a1, a6, SP[a2, a5], a3, a4, n] - S2[a1, a6, SP[a2, a5], a4, a3, n] - 
    S2[a1, a6, SP[a4, a5], a2, a3, n] + S2[a1, SP[a2, a3], a4, a5, a6, n] + 
    S2[a1, SP[a2, a3], a4, a6, a5, n] + S2[a1, SP[a2, a3], a6, a4, a5, n] + 
    S2[a1, SP[a2, a6], a3, a4, a5, n] + S2[a1, SP[a2, a6], a4, a3, a5, n] + 
    S2[a1, SP[a2, a6], a4, a5, a3, n] - S2[a1, SP[a3, a6], a2, a4, a5, n] - 
    S2[a1, SP[a3, a6], a4, a2, a5, n] - S2[a1, SP[a3, a6], a4, a5, a2, n] - 
    S2[a1, SP[a4, a6], a3, a2, a5, n] - S2[a1, SP[a4, a6], a3, a5, a2, n] - 
    S2[a1, SP[a4, a6], a5, a3, a2, n] - S2[a1, SP[a5, a6], a2, a3, a4, n] - 
    S2[a1, SP[a5, a6], a2, a4, a3, n] - S2[a1, SP[a5, a6], a4, a2, a3, n] - 
    S2[a2, a1, a3, a4, SP[a5, a6], n] - S2[a2, a1, a3, SP[a4, a6], a5, n] - 
    S2[a2, a1, a4, a3, SP[a5, a6], n] - S2[a2, a1, a4, a6, SP[a3, a5], n] - 
    S2[a2, a1, a4, SP[a3, a5], a6, n] - S2[a2, a1, a4, SP[a5, a6], a3, n] - 
    S2[a2, a1, a6, a4, SP[a3, a5], n] - S2[a2, a1, a6, SP[a3, a4], a5, n] - 
    S2[a2, a1, SP[a3, a4], a5, a6, n] - S2[a2, a1, SP[a3, a4], a6, a5, n] - 
    S2[a2, a1, SP[a4, a6], a3, a5, n] - S2[a2, a1, SP[a4, a6], a5, a3, n] + 
    S2[a6, n]*S2[a2, a3, a1, a4, a5, n] + 
    S2[a5, n]*S2[a2, a6, a1, a3, a4, n] + S2[a2, a6, a1, a3, SP[a4, a5], n] + 
    S2[a5, n]*S2[a2, a6, a1, a4, a3, n] - S2[a2, a6, a1, SP[a3, a4], a5, n] + 
    S2[a2, a6, a1, SP[a3, a5], a4, n] + S2[a2, a6, a1, SP[a4, a5], a3, n] - 
    S2[a2, a6, SP[a1, a3], a4, a5, n] + S2[a2, a6, SP[a1, a5], a3, a4, n] + 
    S2[a2, a6, SP[a1, a5], a4, a3, n] - S2[a2, SP[a1, a3], a4, a5, a6, n] - 
    S2[a2, SP[a1, a3], a4, a6, a5, n] - S2[a2, SP[a1, a3], a6, a4, a5, n] - 
    S2[a2, SP[a1, a6], a3, a4, a5, n] - S2[a2, SP[a1, a6], a4, a3, a5, n] - 
    S2[a2, SP[a1, a6], a4, a5, a3, n] + S2[a2, SP[a3, a6], a1, a4, a5, n] + 
    S2[a2, SP[a5, a6], a1, a3, a4, n] + S2[a2, SP[a5, a6], a1, a4, a3, n] + 
    S2[a5, a1, a6, a2, SP[a3, a4], n] + S2[a5, a1, a6, SP[a2, a4], a3, n] + 
    S2[a5, a1, SP[a4, a6], a2, a3, n] + S2[a5, a6, a1, a2, SP[a3, a4], n] - 
    S2[a2, n]*S2[a5, a6, a1, a3, a4, n] - S2[a5, a6, a1, a3, SP[a2, a4], n] - 
    S2[a2, n]*S2[a5, a6, a1, a4, a3, n] - S2[a5, a6, a1, a4, SP[a2, a3], n] - 
    S2[a5, a6, a1, SP[a2, a3], a4, n] + S2[a5, a6, a2, a1, SP[a3, a4], n] + 
    S2[a5, a6, a2, SP[a1, a3], a4, n] + S2[a5, SP[a1, a6], a2, a3, a4, n] + 
    S2[a5, SP[a1, a6], a2, a4, a3, n] + S2[a5, SP[a1, a6], a4, a2, a3, n] - 
    S2[a5, SP[a2, a6], a1, a3, a4, n] - S2[a5, SP[a2, a6], a1, a4, a3, n] + 
    S2[a5, n]*S2[a6, a1, a3, a2, a4, n] + S2[a6, a1, a3, a2, SP[a4, a5], n] + 
    S2[a5, n]*S2[a6, a1, a3, a4, a2, n] + S2[a6, a1, a3, a4, SP[a2, a5], n] - 
    S2[a2, n]*S2[a6, a1, a3, a5, a4, n] - S2[a6, a1, a3, a5, SP[a2, a4], n] + 
    S2[a6, a1, a3, SP[a4, a5], a2, n] + S2[a5, n]*S2[a6, a1, a4, a3, a2, n] + 
    S2[a6, a1, a4, a3, SP[a2, a5], n] + S2[a6, a1, a4, SP[a3, a5], a2, n] - 
    S2[a2, n]*S2[a6, a1, a5, a3, a4, n] - S2[a6, a1, a5, a3, SP[a2, a4], n] - 
    S2[a2, n]*S2[a6, a1, a5, a4, a3, n] - S2[a6, a1, a5, a4, SP[a2, a3], n] - 
    S2[a6, a1, a5, SP[a2, a3], a4, n] - S2[a6, a1, a5, SP[a2, a4], a3, n] - 
    S2[a6, a1, SP[a2, a3], a5, a4, n] - S2[a6, a1, SP[a2, a5], a3, a4, n] - 
    S2[a6, a1, SP[a2, a5], a4, a3, n] + S2[a6, a1, SP[a3, a5], a2, a4, n] + 
    S2[a6, a1, SP[a3, a5], a4, a2, n] + S2[a6, a1, SP[a4, a5], a3, a2, n] - 
    S2[a5, n]*S2[a6, a2, a3, a1, a4, n] - S2[a6, a2, a3, a1, SP[a4, a5], n] + 
    S2[a1, n]*S2[a6, a2, a3, a5, a4, n] + S2[a6, a2, a3, a5, SP[a1, a4], n] + 
    S2[a1, n]*S2[a6, a2, a5, a3, a4, n] + S2[a6, a2, a5, a3, SP[a1, a4], n] + 
    S2[a1, n]*S2[a6, a2, a5, a4, a3, n] + S2[a6, a2, a5, a4, SP[a1, a3], n] + 
    S2[a6, a2, a5, SP[a1, a3], a4, n] + S2[a6, a2, a5, SP[a1, a4], a3, n] + 
    S2[a6, a2, SP[a1, a3], a5, a4, n] + S2[a6, a2, SP[a1, a5], a3, a4, n] + 
    S2[a6, a2, SP[a1, a5], a4, a3, n] - S2[a6, a2, SP[a3, a5], a1, a4, n] - 
    S2[a2, n]*S2[a6, a5, a1, a3, a4, n] - S2[a6, a5, a1, a3, SP[a2, a4], n] - 
    S2[a2, n]*S2[a6, a5, a1, a4, a3, n] - S2[a6, a5, a1, a4, SP[a2, a3], n] - 
    S2[a6, a5, a1, SP[a2, a3], a4, n] - S2[a6, a5, a1, SP[a2, a4], a3, n] + 
    S2[a1, n]*S2[a6, a5, a2, a3, a4, n] + S2[a6, a5, a2, a3, SP[a1, a4], n] + 
    S2[a1, n]*S2[a6, a5, a2, a4, a3, n] + S2[a6, a5, a2, a4, SP[a1, a3], n] + 
    S2[a6, a5, a2, SP[a1, a3], a4, n] + S2[a6, a5, a2, SP[a1, a4], a3, n] + 
    S2[a1, n]*S2[a6, a5, a4, a2, a3, n] + S2[a6, a5, a4, a2, SP[a1, a3], n] + 
    S2[a6, a5, a4, SP[a1, a2], a3, n] + S2[a6, a5, SP[a1, a4], a2, a3, n] + 
    S2[a6, SP[a1, a5], a2, a3, a4, n] + S2[a6, SP[a1, a5], a2, a4, a3, n] + 
    S2[a6, SP[a1, a5], a3, a2, a4, n] + S2[a6, SP[a1, a5], a3, a4, a2, n] + 
    S2[a6, SP[a1, a5], a4, a2, a3, n] + S2[a6, SP[a1, a5], a4, a3, a2, n] - 
    S2[a6, SP[a2, a5], a1, a3, a4, n] - S2[a6, SP[a2, a5], a1, a4, a3, n] - 
    S2[a6, SP[a2, a5], a3, a1, a4, n] + S2[SP[a1, a6], a2, a3, a5, a4, n] + 
    S2[SP[a1, a6], a2, a5, a3, a4, n] + S2[SP[a1, a6], a2, a5, a4, a3, n] - 
    S2[SP[a1, a6], a3, a2, a4, a5, n] - S2[SP[a1, a6], a3, a4, a2, a5, n] - 
    S2[SP[a1, a6], a3, a4, a5, a2, n] - S2[SP[a1, a6], a4, a3, a2, a5, n] - 
    S2[SP[a1, a6], a4, a3, a5, a2, n] - S2[SP[a1, a6], a4, a5, a3, a2, n] + 
    S2[SP[a1, a6], a5, a2, a3, a4, n] + S2[SP[a1, a6], a5, a2, a4, a3, n] + 
    S2[SP[a1, a6], a5, a4, a2, a3, n] - S2[SP[a2, a6], a1, a3, a5, a4, n] - 
    S2[SP[a2, a6], a1, a5, a3, a4, n] - S2[SP[a2, a6], a1, a5, a4, a3, n] + 
    S2[SP[a2, a6], a3, a1, a4, a5, n] - S2[SP[a2, a6], a5, a1, a3, a4, n] - 
    S2[SP[a2, a6], a5, a1, a4, a3, n] + S2[SP[a5, a6], a1, a3, a2, a4, n] + 
    S2[SP[a5, a6], a1, a3, a4, a2, n] + S2[SP[a5, a6], a1, a4, a3, a2, n] - 
    S2[SP[a5, a6], a2, a3, a1, a4, n] - S2[a6, a2, a3, a5, a4, a1, n] - 
    S2[a6, a2, a5, a3, a4, a1, n] - S2[a6, a2, a5, a4, a1, a3, n] - 
    S2[a6, a2, a5, a4, a3, a1, n] - S2[a6, a5, a2, a3, a4, a1, n] - 
    S2[a6, a5, a2, a4, a1, a3, n] - S2[a6, a5, a2, a4, a3, a1, n] - 
    S2[a6, a5, a4, a1, a2, a3, n] - S2[a6, a5, a4, a2, a1, a3, n] - 
    S2[a6, a5, a4, a2, a3, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a1_, a4_, a5_, a6_, a3_, a2_, n_] :> 
  S2[a1, a4, a5, n]*S2[a2, a3, a6, n] + S2[SP[a1, a2], SP[a3, a4], 
     SP[a5, a6], n] - S2[a1, a2, SP[a3, a4], SP[a5, a6], n] - 
    S2[a1, SP[a2, a4], a3, SP[a5, a6], n] - S2[a1, SP[a2, a4], SP[a3, a5], 
     a6, n] - S2[a2, a1, SP[a3, a4], SP[a5, a6], n] + 
    S2[a1, a4, n]*S2[a2, a6, a3, a5, n] + S2[a1, a4, n]*
     S2[a2, a6, a5, a3, n] - S2[a2, a6, SP[a1, a3], SP[a4, a5], n] - 
    S2[a2, a6, SP[a1, a5], SP[a3, a4], n] - S2[a2, SP[a1, a3], a4, 
     SP[a5, a6], n] - S2[a2, SP[a1, a3], SP[a4, a6], a5, n] - 
    S2[a2, SP[a1, a6], a3, SP[a4, a5], n] - S2[a2, SP[a1, a6], a5, 
     SP[a3, a4], n] - S2[a2, SP[a1, a6], SP[a3, a4], a5, n] - 
    S2[a2, SP[a1, a6], SP[a4, a5], a3, n] - S2[a1, a4, n]*
     S2[a5, a6, a2, a3, n] + S2[a5, a6, SP[a1, a2], SP[a3, a4], n] + 
    S2[a5, SP[a1, a6], a2, SP[a3, a4], n] + S2[a5, SP[a1, a6], SP[a2, a4], 
     a3, n] - S2[SP[a1, a2], a3, a4, SP[a5, a6], n] - 
    S2[SP[a1, a2], a3, SP[a4, a6], a5, n] - S2[SP[a1, a2], a4, a3, 
     SP[a5, a6], n] - S2[SP[a1, a2], a4, SP[a3, a5], a6, n] - 
    S2[SP[a1, a2], a6, a3, SP[a4, a5], n] - S2[SP[a1, a2], a6, a5, 
     SP[a3, a4], n] - S2[SP[a1, a2], a6, SP[a3, a4], a5, n] - 
    S2[SP[a1, a2], a6, SP[a4, a5], a3, n] - S2[SP[a1, a2], SP[a3, a4], a5, 
     a6, n] - S2[SP[a1, a2], SP[a3, a4], a6, a5, n] - 
    S2[SP[a1, a2], SP[a4, a6], a3, a5, n] - S2[SP[a1, a2], SP[a4, a6], a5, 
     a3, n] + S2[SP[a1, a5], a6, a2, SP[a3, a4], n] + 
    S2[SP[a1, a5], a6, SP[a2, a4], a3, n] + S2[SP[a1, a5], SP[a4, a6], a2, 
     a3, n] + S2[a1, a2, a3, a4, SP[a5, a6], n] + S2[a1, a2, a3, SP[a4, a6], 
     a5, n] + S2[a1, a2, a4, a3, SP[a5, a6], n] + S2[a1, a2, a4, SP[a3, a5], 
     a6, n] + S2[a1, a2, a6, a3, SP[a4, a5], n] + 
    S2[a1, a2, a6, a5, SP[a3, a4], n] + S2[a1, a2, a6, SP[a3, a4], a5, n] + 
    S2[a1, a2, a6, SP[a4, a5], a3, n] + S2[a1, a2, SP[a3, a4], a5, a6, n] + 
    S2[a1, a2, SP[a3, a4], a6, a5, n] + S2[a1, a2, SP[a4, a6], a3, a5, n] + 
    S2[a1, a2, SP[a4, a6], a5, a3, n] + S2[a6, n]*S2[a1, a3, a2, a4, a5, n] + 
    S2[a1, a3, a2, a4, SP[a5, a6], n] + S2[a1, a3, a2, SP[a4, a6], a5, n] + 
    S2[a6, n]*S2[a1, a3, a4, a2, a5, n] + S2[a1, a3, a4, a2, SP[a5, a6], n] + 
    S2[a6, n]*S2[a1, a3, a4, a5, a2, n] - 
    S2[a2, n]*S2[a1, a3, a4, a5, a6, n] - 
    S2[a2, n]*S2[a1, a3, a4, a6, a5, n] - S2[a1, a3, a4, a6, SP[a2, a5], n] - 
    S2[a1, a3, a4, SP[a2, a5], a6, n] + S2[a1, a3, a4, SP[a5, a6], a2, n] - 
    S2[a2, n]*S2[a1, a3, a6, a4, a5, n] - S2[a1, a3, a6, a4, SP[a2, a5], n] - 
    S2[a1, a3, a6, SP[a2, a4], a5, n] - S2[a1, a3, SP[a2, a4], a5, a6, n] - 
    S2[a1, a3, SP[a2, a4], a6, a5, n] + S2[a1, a3, SP[a4, a6], a2, a5, n] + 
    S2[a1, a3, SP[a4, a6], a5, a2, n] + S2[a1, a4, a2, a3, SP[a5, a6], n] + 
    S2[a1, a4, a2, SP[a3, a5], a6, n] + S2[a6, n]*S2[a1, a4, a3, a2, a5, n] + 
    S2[a1, a4, a3, a2, SP[a5, a6], n] + S2[a6, n]*S2[a1, a4, a3, a5, a2, n] - 
    S2[a2, n]*S2[a1, a4, a3, a5, a6, n] - 
    S2[a2, n]*S2[a1, a4, a3, a6, a5, n] - S2[a1, a4, a3, a6, SP[a2, a5], n] - 
    S2[a1, a4, a3, SP[a2, a5], a6, n] + S2[a1, a4, a3, SP[a5, a6], a2, n] + 
    S2[a6, n]*S2[a1, a4, a5, a3, a2, n] - 
    S2[a2, n]*S2[a1, a4, a5, a3, a6, n] - S2[a1, a4, a5, SP[a2, a3], a6, n] + 
    S2[a1, a4, a5, SP[a3, a6], a2, n] + S2[a5, n]*S2[a1, a4, a6, a2, a3, n] + 
    S2[a1, a4, a6, a2, SP[a3, a5], n] - S2[a2, n]*S2[a1, a4, a6, a3, a5, n] - 
    S2[a1, a4, a6, a3, SP[a2, a5], n] - S2[a2, n]*S2[a1, a4, a6, a5, a3, n] - 
    S2[a1, a4, a6, a5, SP[a2, a3], n] - S2[a1, a4, a6, SP[a2, a3], a5, n] - 
    S2[a1, a4, SP[a2, a3], a5, a6, n] - S2[a1, a4, SP[a2, a3], a6, a5, n] - 
    S2[a1, a4, SP[a2, a6], a3, a5, n] - S2[a1, a4, SP[a2, a6], a5, a3, n] + 
    S2[a1, a4, SP[a3, a6], a2, a5, n] + S2[a1, a4, SP[a3, a6], a5, a2, n] + 
    S2[a1, a4, SP[a5, a6], a2, a3, n] + S2[a1, a4, SP[a5, a6], a3, a2, n] - 
    S2[a1, a5, a6, a2, SP[a3, a4], n] - S2[a1, a5, a6, SP[a2, a4], a3, n] - 
    S2[a1, a5, SP[a4, a6], a2, a3, n] + S2[a5, n]*S2[a1, a6, a2, a3, a4, n] + 
    S2[a1, a6, a2, a3, SP[a4, a5], n] + S2[a5, n]*S2[a1, a6, a2, a4, a3, n] + 
    S2[a1, a6, a2, a4, SP[a3, a5], n] + S2[a1, a6, a2, SP[a3, a5], a4, n] + 
    S2[a1, a6, a2, SP[a4, a5], a3, n] - S2[a2, n]*S2[a1, a6, a3, a4, a5, n] - 
    S2[a1, a6, a3, a4, SP[a2, a5], n] - S2[a2, n]*S2[a1, a6, a3, a5, a4, n] - 
    S2[a1, a6, a3, a5, SP[a2, a4], n] - S2[a1, a6, a3, SP[a2, a4], a5, n] - 
    S2[a1, a6, a3, SP[a2, a5], a4, n] + S2[a5, n]*S2[a1, a6, a4, a2, a3, n] + 
    S2[a1, a6, a4, a2, SP[a3, a5], n] - S2[a2, n]*S2[a1, a6, a4, a3, a5, n] - 
    S2[a1, a6, a4, a3, SP[a2, a5], n] - S2[a2, n]*S2[a1, a6, a4, a5, a3, n] - 
    S2[a1, a6, a4, a5, SP[a2, a3], n] - S2[a1, a6, a4, SP[a2, a3], a5, n] - 
    S2[a2, n]*S2[a1, a6, a5, a3, a4, n] - S2[a1, a6, a5, a3, SP[a2, a4], n] - 
    S2[a2, n]*S2[a1, a6, a5, a4, a3, n] - S2[a1, a6, a5, a4, SP[a2, a3], n] - 
    S2[a1, a6, a5, SP[a2, a3], a4, n] - S2[a1, a6, a5, SP[a2, a4], a3, n] - 
    S2[a1, a6, SP[a2, a3], a4, a5, n] - S2[a1, a6, SP[a2, a3], a5, a4, n] - 
    S2[a1, a6, SP[a2, a4], a3, a5, n] - S2[a1, a6, SP[a2, a4], a5, a3, n] + 
    S2[a1, a6, SP[a4, a5], a2, a3, n] - S2[a1, SP[a2, a3], a4, a5, a6, n] - 
    S2[a1, SP[a2, a3], a4, a6, a5, n] - S2[a1, SP[a2, a3], a6, a4, a5, n] - 
    S2[a1, SP[a2, a6], a3, a4, a5, n] - S2[a1, SP[a2, a6], a3, a5, a4, n] - 
    S2[a1, SP[a2, a6], a4, a3, a5, n] - S2[a1, SP[a2, a6], a4, a5, a3, n] - 
    S2[a1, SP[a2, a6], a5, a3, a4, n] - S2[a1, SP[a2, a6], a5, a4, a3, n] + 
    S2[a1, SP[a3, a6], a2, a4, a5, n] + S2[a1, SP[a3, a6], a4, a2, a5, n] + 
    S2[a1, SP[a3, a6], a4, a5, a2, n] + S2[a1, SP[a4, a6], a3, a2, a5, n] + 
    S2[a1, SP[a4, a6], a3, a5, a2, n] + S2[a1, SP[a4, a6], a5, a3, a2, n] + 
    S2[a1, SP[a5, a6], a2, a3, a4, n] + S2[a1, SP[a5, a6], a2, a4, a3, n] + 
    S2[a1, SP[a5, a6], a4, a2, a3, n] + S2[a2, a1, a3, a4, SP[a5, a6], n] + 
    S2[a2, a1, a3, SP[a4, a6], a5, n] + S2[a2, a1, a4, a3, SP[a5, a6], n] + 
    S2[a2, a1, a4, SP[a3, a5], a6, n] + S2[a2, a1, a6, a3, SP[a4, a5], n] + 
    S2[a2, a1, a6, a5, SP[a3, a4], n] + S2[a2, a1, a6, SP[a3, a4], a5, n] + 
    S2[a2, a1, a6, SP[a4, a5], a3, n] + S2[a2, a1, SP[a3, a4], a5, a6, n] + 
    S2[a2, a1, SP[a3, a4], a6, a5, n] + S2[a2, a1, SP[a4, a6], a3, a5, n] + 
    S2[a2, a1, SP[a4, a6], a5, a3, n] - S2[a6, n]*S2[a2, a3, a1, a4, a5, n] - 
    S2[a5, n]*S2[a2, a6, a1, a3, a4, n] - 
    S2[a5, n]*S2[a2, a6, a1, a4, a3, n] - S2[a2, a6, a1, a4, SP[a3, a5], n] + 
    S2[a2, a6, a1, a5, SP[a3, a4], n] + S2[a2, a6, a1, SP[a3, a4], a5, n] - 
    S2[a2, a6, a1, SP[a3, a5], a4, n] + S2[a2, a6, a3, a1, SP[a4, a5], n] + 
    S2[a2, a6, a3, SP[a1, a5], a4, n] + S2[a2, a6, a5, a1, SP[a3, a4], n] + 
    S2[a2, a6, a5, SP[a1, a3], a4, n] + S2[a2, a6, SP[a1, a3], a4, a5, n] + 
    S2[a2, a6, SP[a1, a3], a5, a4, n] + S2[a2, SP[a1, a3], a4, a5, a6, n] + 
    S2[a2, SP[a1, a3], a4, a6, a5, n] + S2[a2, SP[a1, a3], a6, a4, a5, n] + 
    S2[a2, SP[a1, a6], a3, a4, a5, n] + S2[a2, SP[a1, a6], a3, a5, a4, n] + 
    S2[a2, SP[a1, a6], a4, a3, a5, n] + S2[a2, SP[a1, a6], a4, a5, a3, n] + 
    S2[a2, SP[a1, a6], a5, a3, a4, n] + S2[a2, SP[a1, a6], a5, a4, a3, n] - 
    S2[a2, SP[a3, a6], a1, a4, a5, n] - S2[a2, SP[a5, a6], a1, a3, a4, n] - 
    S2[a2, SP[a5, a6], a1, a4, a3, n] - S2[a5, a1, a6, a2, SP[a3, a4], n] - 
    S2[a5, a1, a6, SP[a2, a4], a3, n] - S2[a5, a1, SP[a4, a6], a2, a3, n] - 
    S2[a5, a6, a1, a2, SP[a3, a4], n] + S2[a2, n]*S2[a5, a6, a1, a3, a4, n] + 
    S2[a5, a6, a1, a3, SP[a2, a4], n] + S2[a2, n]*S2[a5, a6, a1, a4, a3, n] + 
    S2[a5, a6, a1, a4, SP[a2, a3], n] + S2[a5, a6, a1, SP[a2, a3], a4, n] - 
    S2[a5, a6, a2, a1, SP[a3, a4], n] - S2[a5, a6, a2, SP[a1, a3], a4, n] - 
    S2[a5, SP[a1, a6], a2, a3, a4, n] - S2[a5, SP[a1, a6], a2, a4, a3, n] - 
    S2[a5, SP[a1, a6], a4, a2, a3, n] + S2[a5, SP[a2, a6], a1, a3, a4, n] + 
    S2[a5, SP[a2, a6], a1, a4, a3, n] - S2[a5, n]*S2[a6, a1, a3, a2, a4, n] - 
    S2[a6, a1, a3, a2, SP[a4, a5], n] - S2[a5, n]*S2[a6, a1, a3, a4, a2, n] - 
    S2[a6, a1, a3, a4, SP[a2, a5], n] - S2[a6, a1, a3, SP[a2, a5], a4, n] - 
    S2[a6, a1, a3, SP[a4, a5], a2, n] - S2[a5, n]*S2[a6, a1, a4, a3, a2, n] - 
    S2[a6, a1, a4, a3, SP[a2, a5], n] - S2[a6, a1, a4, SP[a3, a5], a2, n] - 
    S2[a6, a1, SP[a3, a5], a2, a4, n] - S2[a6, a1, SP[a3, a5], a4, a2, n] - 
    S2[a6, a1, SP[a4, a5], a3, a2, n] + S2[a5, n]*S2[a6, a2, a3, a1, a4, n] + 
    S2[a6, a2, a3, a1, SP[a4, a5], n] + S2[a6, a2, a3, SP[a1, a5], a4, n] + 
    S2[a6, a2, SP[a3, a5], a1, a4, n] - S2[a2, n]*S2[a6, a3, a1, a5, a4, n] - 
    S2[a6, a3, a1, a5, SP[a2, a4], n] - S2[a6, a3, a1, SP[a2, a5], a4, n] + 
    S2[a1, n]*S2[a6, a3, a2, a5, a4, n] + S2[a6, a3, a2, a5, SP[a1, a4], n] + 
    S2[a6, a3, a2, SP[a1, a5], a4, n] - S2[a2, n]*S2[a6, a3, a5, a1, a4, n] - 
    S2[a6, a3, a5, a1, SP[a2, a4], n] + S2[a1, n]*S2[a6, a3, a5, a2, a4, n] + 
    S2[a6, a3, a5, a2, SP[a1, a4], n] + S2[a1, n]*S2[a6, a3, a5, a4, a2, n] + 
    S2[a6, a3, a5, a4, SP[a1, a2], n] + S2[a6, a3, a5, SP[a1, a4], a2, n] + 
    S2[a6, a3, SP[a1, a5], a2, a4, n] + S2[a6, a3, SP[a1, a5], a4, a2, n] - 
    S2[a6, a3, SP[a2, a5], a1, a4, n] - S2[a2, n]*S2[a6, a5, a3, a1, a4, n] - 
    S2[a6, a5, a3, a1, SP[a2, a4], n] + S2[a1, n]*S2[a6, a5, a3, a2, a4, n] + 
    S2[a6, a5, a3, a2, SP[a1, a4], n] + S2[a1, n]*S2[a6, a5, a3, a4, a2, n] + 
    S2[a6, a5, a3, a4, SP[a1, a2], n] + S2[a6, a5, a3, SP[a1, a4], a2, n] + 
    S2[a1, n]*S2[a6, a5, a4, a3, a2, n] + S2[a6, a5, a4, a3, SP[a1, a2], n] + 
    S2[a6, a5, a4, SP[a1, a3], a2, n] + S2[a6, a5, SP[a1, a3], a2, a4, n] + 
    S2[a6, a5, SP[a1, a3], a4, a2, n] + S2[a6, a5, SP[a1, a4], a3, a2, n] - 
    S2[a6, a5, SP[a2, a3], a1, a4, n] + S2[a6, SP[a1, a3], a2, a5, a4, n] + 
    S2[a6, SP[a1, a3], a5, a2, a4, n] + S2[a6, SP[a1, a3], a5, a4, a2, n] - 
    S2[a6, SP[a2, a3], a1, a5, a4, n] - S2[a6, SP[a2, a3], a5, a1, a4, n] + 
    S2[SP[a1, a6], a3, a2, a4, a5, n] + S2[SP[a1, a6], a3, a2, a5, a4, n] + 
    S2[SP[a1, a6], a3, a4, a2, a5, n] + S2[SP[a1, a6], a3, a4, a5, a2, n] + 
    S2[SP[a1, a6], a3, a5, a2, a4, n] + S2[SP[a1, a6], a3, a5, a4, a2, n] + 
    S2[SP[a1, a6], a4, a3, a2, a5, n] + S2[SP[a1, a6], a4, a3, a5, a2, n] + 
    S2[SP[a1, a6], a4, a5, a3, a2, n] + S2[SP[a1, a6], a5, a3, a2, a4, n] + 
    S2[SP[a1, a6], a5, a3, a4, a2, n] + S2[SP[a1, a6], a5, a4, a3, a2, n] - 
    S2[SP[a2, a6], a3, a1, a4, a5, n] - S2[SP[a2, a6], a3, a1, a5, a4, n] - 
    S2[SP[a2, a6], a3, a5, a1, a4, n] - S2[SP[a2, a6], a5, a3, a1, a4, n] - 
    S2[SP[a5, a6], a1, a3, a2, a4, n] - S2[SP[a5, a6], a1, a3, a4, a2, n] - 
    S2[SP[a5, a6], a1, a4, a3, a2, n] + S2[SP[a5, a6], a2, a3, a1, a4, n] - 
    S2[a6, a3, a2, a5, a4, a1, n] - S2[a6, a3, a5, a2, a4, a1, n] - 
    S2[a6, a3, a5, a4, a1, a2, n] - S2[a6, a3, a5, a4, a2, a1, n] - 
    S2[a6, a5, a3, a2, a4, a1, n] - S2[a6, a5, a3, a4, a1, a2, n] - 
    S2[a6, a5, a3, a4, a2, a1, n] - S2[a6, a5, a4, a1, a3, a2, n] - 
    S2[a6, a5, a4, a3, a1, a2, n] - S2[a6, a5, a4, a3, a2, a1, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a1_, a4_, a6_, a2_, a3_, a5_, n_] :> 
  -(S2[a1, a4, n]*S2[a2, a3, a5, a6, n]) - S2[a1, a4, n]*
     S2[a2, a3, a6, a5, n] + S2[a2, a3, SP[a1, a5], SP[a4, a6], n] + 
    S2[a2, a3, SP[a1, a6], SP[a4, a5], n] - S2[a1, a4, n]*
     S2[a2, a6, a3, a5, n] + S2[a2, a6, SP[a1, a3], SP[a4, a5], n] + 
    S2[a2, SP[a1, a3], a5, SP[a4, a6], n] + S2[a2, SP[a1, a3], a6, 
     SP[a4, a5], n] + S2[a2, SP[a1, a3], SP[a4, a5], a6, n] + 
    S2[a2, SP[a1, a3], SP[a4, a6], a5, n] + S2[a2, SP[a1, a6], a3, 
     SP[a4, a5], n] + S2[a2, SP[a1, a6], SP[a3, a4], a5, n] + 
    S2[SP[a1, a2], a3, a5, SP[a4, a6], n] + S2[SP[a1, a2], a3, a6, 
     SP[a4, a5], n] + S2[SP[a1, a2], a3, SP[a4, a5], a6, n] + 
    S2[SP[a1, a2], a3, SP[a4, a6], a5, n] + S2[SP[a1, a2], a6, a3, 
     SP[a4, a5], n] + S2[SP[a1, a2], a6, SP[a3, a4], a5, n] + 
    S2[SP[a1, a2], SP[a3, a4], a5, a6, n] + S2[SP[a1, a2], SP[a3, a4], a6, 
     a5, n] + S2[SP[a1, a2], SP[a4, a6], a3, a5, n] - 
    S2[a1, a2, a3, a5, SP[a4, a6], n] - S2[a1, a2, a3, a6, SP[a4, a5], n] - 
    S2[a1, a2, a3, SP[a4, a5], a6, n] - S2[a1, a2, a3, SP[a4, a6], a5, n] - 
    S2[a1, a2, a6, a3, SP[a4, a5], n] - S2[a1, a2, a6, SP[a3, a4], a5, n] - 
    S2[a1, a2, SP[a3, a4], a5, a6, n] - S2[a1, a2, SP[a3, a4], a6, a5, n] - 
    S2[a1, a2, SP[a4, a6], a3, a5, n] - S2[a6, n]*S2[a1, a3, a2, a4, a5, n] - 
    S2[a1, a3, a2, a4, SP[a5, a6], n] - S2[a6, n]*S2[a1, a3, a2, a5, a4, n] - 
    S2[a1, a3, a2, a5, SP[a4, a6], n] - S2[a1, a3, a2, SP[a4, a6], a5, n] - 
    S2[a1, a3, a2, SP[a5, a6], a4, n] - S2[a6, n]*S2[a1, a3, a4, a2, a5, n] - 
    S2[a1, a3, a4, a2, SP[a5, a6], n] - S2[a6, n]*S2[a1, a3, a4, a5, a2, n] + 
    S2[a2, n]*S2[a1, a3, a4, a5, a6, n] + 
    S2[a2, n]*S2[a1, a3, a4, a6, a5, n] + S2[a1, a3, a4, a6, SP[a2, a5], n] + 
    S2[a1, a3, a4, SP[a2, a5], a6, n] - S2[a1, a3, a4, SP[a5, a6], a2, n] - 
    S2[a6, n]*S2[a1, a3, a5, a2, a4, n] - S2[a1, a3, a5, a2, SP[a4, a6], n] - 
    S2[a6, n]*S2[a1, a3, a5, a4, a2, n] + 
    S2[a2, n]*S2[a1, a3, a5, a4, a6, n] + 
    S2[a2, n]*S2[a1, a3, a5, a6, a4, n] + S2[a1, a3, a5, a6, SP[a2, a4], n] + 
    S2[a1, a3, a5, SP[a2, a4], a6, n] - S2[a1, a3, a5, SP[a4, a6], a2, n] + 
    S2[a2, n]*S2[a1, a3, a6, a4, a5, n] + S2[a1, a3, a6, a4, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a3, a6, a5, a4, n] + S2[a1, a3, a6, a5, SP[a2, a4], n] + 
    S2[a1, a3, a6, SP[a2, a4], a5, n] + S2[a1, a3, a6, SP[a2, a5], a4, n] + 
    S2[a1, a3, SP[a2, a4], a5, a6, n] + S2[a1, a3, SP[a2, a4], a6, a5, n] + 
    S2[a1, a3, SP[a2, a5], a4, a6, n] + S2[a1, a3, SP[a2, a5], a6, a4, n] - 
    S2[a1, a3, SP[a4, a6], a2, a5, n] - S2[a1, a3, SP[a4, a6], a5, a2, n] - 
    S2[a1, a3, SP[a5, a6], a2, a4, n] - S2[a1, a3, SP[a5, a6], a4, a2, n] - 
    S2[a6, n]*S2[a1, a4, a3, a2, a5, n] - S2[a1, a4, a3, a2, SP[a5, a6], n] - 
    S2[a6, n]*S2[a1, a4, a3, a5, a2, n] + 
    S2[a2, n]*S2[a1, a4, a3, a5, a6, n] + 
    S2[a2, n]*S2[a1, a4, a3, a6, a5, n] + S2[a1, a4, a3, a6, SP[a2, a5], n] + 
    S2[a1, a4, a3, SP[a2, a5], a6, n] - S2[a1, a4, a3, SP[a5, a6], a2, n] + 
    S2[a2, n]*S2[a1, a4, a6, a3, a5, n] + S2[a1, a4, a6, a3, SP[a2, a5], n] + 
    S2[a1, a4, a6, SP[a2, a3], a5, n] + S2[a1, a4, SP[a2, a3], a5, a6, n] + 
    S2[a1, a4, SP[a2, a3], a6, a5, n] + S2[a1, a4, SP[a2, a6], a3, a5, n] - 
    S2[a1, a4, SP[a3, a6], a2, a5, n] - S2[a1, a4, SP[a3, a6], a5, a2, n] + 
    S2[a2, n]*S2[a1, a6, a3, a4, a5, n] + S2[a1, a6, a3, a4, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a6, a3, a5, a4, n] + S2[a1, a6, a3, a5, SP[a2, a4], n] + 
    S2[a1, a6, a3, SP[a2, a4], a5, n] + S2[a1, a6, a3, SP[a2, a5], a4, n] + 
    S2[a2, n]*S2[a1, a6, a4, a3, a5, n] + S2[a1, a6, a4, a3, SP[a2, a5], n] + 
    S2[a1, a6, a4, SP[a2, a3], a5, n] + S2[a1, a6, SP[a2, a3], a4, a5, n] + 
    S2[a1, a6, SP[a2, a3], a5, a4, n] + S2[a1, a6, SP[a2, a4], a3, a5, n] + 
    S2[a1, SP[a2, a3], a4, a5, a6, n] + S2[a1, SP[a2, a3], a4, a6, a5, n] + 
    S2[a1, SP[a2, a3], a5, a4, a6, n] + S2[a1, SP[a2, a3], a5, a6, a4, n] + 
    S2[a1, SP[a2, a3], a6, a4, a5, n] + S2[a1, SP[a2, a3], a6, a5, a4, n] + 
    S2[a1, SP[a2, a6], a3, a4, a5, n] + S2[a1, SP[a2, a6], a3, a5, a4, n] + 
    S2[a1, SP[a2, a6], a4, a3, a5, n] - S2[a1, SP[a3, a6], a2, a4, a5, n] - 
    S2[a1, SP[a3, a6], a2, a5, a4, n] - S2[a1, SP[a3, a6], a4, a2, a5, n] - 
    S2[a1, SP[a3, a6], a4, a5, a2, n] - S2[a1, SP[a3, a6], a5, a2, a4, n] - 
    S2[a1, SP[a3, a6], a5, a4, a2, n] - S2[a1, SP[a4, a6], a3, a2, a5, n] - 
    S2[a1, SP[a4, a6], a3, a5, a2, n] - S2[a2, a1, a3, a5, SP[a4, a6], n] - 
    S2[a2, a1, a3, a6, SP[a4, a5], n] - S2[a2, a1, a3, SP[a4, a5], a6, n] - 
    S2[a2, a1, a3, SP[a4, a6], a5, n] - S2[a2, a1, a6, a3, SP[a4, a5], n] - 
    S2[a2, a1, a6, SP[a3, a4], a5, n] - S2[a2, a1, SP[a3, a4], a5, a6, n] - 
    S2[a2, a1, SP[a3, a4], a6, a5, n] - S2[a2, a1, SP[a4, a6], a3, a5, n] + 
    S2[a6, n]*S2[a2, a3, a1, a4, a5, n] + S2[a2, a3, a1, a4, SP[a5, a6], n] + 
    S2[a6, n]*S2[a2, a3, a1, a5, a4, n] - S2[a2, a3, a1, a6, SP[a4, a5], n] - 
    S2[a2, a3, a1, SP[a4, a5], a6, n] + S2[a2, a3, a1, SP[a5, a6], a4, n] + 
    S2[a6, n]*S2[a2, a3, a5, a1, a4, n] - S2[a2, a3, a6, a1, SP[a4, a5], n] - 
    S2[a2, a3, a6, SP[a1, a5], a4, n] - S2[a2, a3, SP[a1, a5], a4, a6, n] - 
    S2[a2, a3, SP[a1, a5], a6, a4, n] + S2[a2, a3, SP[a5, a6], a1, a4, n] - 
    S2[a2, a6, a1, a3, SP[a4, a5], n] - S2[a2, a6, a1, SP[a3, a4], a5, n] - 
    S2[a2, a6, a3, a1, SP[a4, a5], n] - S2[a2, a6, a3, SP[a1, a5], a4, n] - 
    S2[a2, a6, SP[a1, a3], a4, a5, n] - S2[a2, a6, SP[a1, a3], a5, a4, n] - 
    S2[a2, SP[a1, a3], a4, a5, a6, n] - S2[a2, SP[a1, a3], a4, a6, a5, n] - 
    S2[a2, SP[a1, a3], a5, a4, a6, n] - S2[a2, SP[a1, a3], a5, a6, a4, n] - 
    S2[a2, SP[a1, a3], a6, a4, a5, n] - S2[a2, SP[a1, a3], a6, a5, a4, n] - 
    S2[a2, SP[a1, a6], a3, a4, a5, n] - S2[a2, SP[a1, a6], a3, a5, a4, n] - 
    S2[a2, SP[a1, a6], a4, a3, a5, n] + S2[a2, SP[a3, a6], a1, a4, a5, n] + 
    S2[a2, SP[a3, a6], a1, a5, a4, n] + S2[a2, SP[a3, a6], a5, a1, a4, n] + 
    S2[a2, n]*S2[a6, a1, a3, a4, a5, n] + S2[a6, a1, a3, a4, SP[a2, a5], n] + 
    S2[a2, n]*S2[a6, a1, a3, a5, a4, n] + S2[a6, a1, a3, a5, SP[a2, a4], n] + 
    S2[a6, a1, a3, SP[a2, a4], a5, n] + S2[a6, a1, a3, SP[a2, a5], a4, n] + 
    S2[a2, n]*S2[a6, a1, a4, a3, a5, n] + S2[a6, a1, a4, a3, SP[a2, a5], n] + 
    S2[a6, a1, a4, SP[a2, a3], a5, n] + S2[a6, a1, SP[a2, a3], a4, a5, n] + 
    S2[a6, a1, SP[a2, a3], a5, a4, n] + S2[a6, a1, SP[a2, a4], a3, a5, n] - 
    S2[a1, n]*S2[a6, a2, a3, a4, a5, n] - S2[a6, a2, a3, a4, SP[a1, a5], n] - 
    S2[a1, n]*S2[a6, a2, a3, a5, a4, n] - S2[a6, a2, a3, a5, SP[a1, a4], n] - 
    S2[a6, a2, a3, SP[a1, a4], a5, n] - S2[a6, a2, a3, SP[a1, a5], a4, n] - 
    S2[a1, n]*S2[a6, a2, a4, a3, a5, n] - S2[a6, a2, a4, a3, SP[a1, a5], n] - 
    S2[a6, a2, a4, SP[a1, a3], a5, n] - S2[a6, a2, SP[a1, a3], a4, a5, n] - 
    S2[a6, a2, SP[a1, a3], a5, a4, n] - S2[a6, a2, SP[a1, a4], a3, a5, n] - 
    S2[a1, n]*S2[a6, a4, a2, a3, a5, n] - S2[a6, a4, a2, a3, SP[a1, a5], n] - 
    S2[a6, a4, a2, SP[a1, a3], a5, n] - S2[a6, a4, SP[a1, a2], a3, a5, n] - 
    S2[a6, SP[a1, a4], a2, a3, a5, n] - S2[SP[a1, a6], a2, a3, a4, a5, n] - 
    S2[SP[a1, a6], a2, a3, a5, a4, n] - S2[SP[a1, a6], a2, a4, a3, a5, n] - 
    S2[SP[a1, a6], a3, a2, a4, a5, n] - S2[SP[a1, a6], a3, a2, a5, a4, n] - 
    S2[SP[a1, a6], a3, a4, a2, a5, n] - S2[SP[a1, a6], a3, a4, a5, a2, n] - 
    S2[SP[a1, a6], a3, a5, a2, a4, n] - S2[SP[a1, a6], a3, a5, a4, a2, n] - 
    S2[SP[a1, a6], a4, a2, a3, a5, n] - S2[SP[a1, a6], a4, a3, a2, a5, n] - 
    S2[SP[a1, a6], a4, a3, a5, a2, n] + S2[SP[a2, a6], a1, a3, a4, a5, n] + 
    S2[SP[a2, a6], a1, a3, a5, a4, n] + S2[SP[a2, a6], a1, a4, a3, a5, n] + 
    S2[SP[a2, a6], a3, a1, a4, a5, n] + S2[SP[a2, a6], a3, a1, a5, a4, n] + 
    S2[SP[a2, a6], a3, a5, a1, a4, n] + S2[a6, a2, a3, a4, a1, a5, n] + 
    S2[a6, a2, a3, a4, a5, a1, n] + S2[a6, a2, a3, a5, a4, a1, n] + 
    S2[a6, a2, a4, a1, a3, a5, n] + S2[a6, a2, a4, a3, a1, a5, n] + 
    S2[a6, a2, a4, a3, a5, a1, n] + S2[a6, a4, a1, a2, a3, a5, n] + 
    S2[a6, a4, a2, a1, a3, a5, n] + S2[a6, a4, a2, a3, a1, a5, n] + 
    S2[a6, a4, a2, a3, a5, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a1_, a4_, a6_, a2_, a5_, a3_, n_] :> 
  -(S2[a1, a4, n]*S2[a2, a5, a3, a6, n]) - S2[a1, a4, n]*
     S2[a2, a5, a6, a3, n] + S2[a2, a5, SP[a1, a3], SP[a4, a6], n] + 
    S2[a2, a5, SP[a1, a6], SP[a3, a4], n] - S2[a1, a4, n]*
     S2[a2, a6, a5, a3, n] + S2[a2, a6, SP[a1, a5], SP[a3, a4], n] + 
    S2[a2, SP[a1, a5], a3, SP[a4, a6], n] + S2[a2, SP[a1, a5], a6, 
     SP[a3, a4], n] + S2[a2, SP[a1, a5], SP[a3, a4], a6, n] + 
    S2[a2, SP[a1, a5], SP[a4, a6], a3, n] + S2[a2, SP[a1, a6], a5, 
     SP[a3, a4], n] + S2[a2, SP[a1, a6], SP[a4, a5], a3, n] + 
    S2[SP[a1, a2], a5, a3, SP[a4, a6], n] + S2[SP[a1, a2], a5, a6, 
     SP[a3, a4], n] + S2[SP[a1, a2], a5, SP[a3, a4], a6, n] + 
    S2[SP[a1, a2], a5, SP[a4, a6], a3, n] + S2[SP[a1, a2], a6, a5, 
     SP[a3, a4], n] + S2[SP[a1, a2], a6, SP[a4, a5], a3, n] + 
    S2[SP[a1, a2], SP[a4, a5], a3, a6, n] + S2[SP[a1, a2], SP[a4, a5], a6, 
     a3, n] + S2[SP[a1, a2], SP[a4, a6], a5, a3, n] - 
    S2[a1, a2, a5, a3, SP[a4, a6], n] - S2[a1, a2, a5, a6, SP[a3, a4], n] - 
    S2[a1, a2, a5, SP[a3, a4], a6, n] - S2[a1, a2, a5, SP[a4, a6], a3, n] - 
    S2[a1, a2, a6, a5, SP[a3, a4], n] - S2[a1, a2, a6, SP[a4, a5], a3, n] - 
    S2[a1, a2, SP[a4, a5], a3, a6, n] - S2[a1, a2, SP[a4, a5], a6, a3, n] - 
    S2[a1, a2, SP[a4, a6], a5, a3, n] - S2[a6, n]*S2[a1, a4, a5, a2, a3, n] - 
    S2[a1, a4, a5, a2, SP[a3, a6], n] - S2[a6, n]*S2[a1, a4, a5, a3, a2, n] + 
    S2[a2, n]*S2[a1, a4, a5, a3, a6, n] + 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] + S2[a1, a4, a5, a6, SP[a2, a3], n] + 
    S2[a1, a4, a5, SP[a2, a3], a6, n] - S2[a1, a4, a5, SP[a3, a6], a2, n] + 
    S2[a2, n]*S2[a1, a4, a6, a5, a3, n] + S2[a1, a4, a6, a5, SP[a2, a3], n] + 
    S2[a1, a4, a6, SP[a2, a5], a3, n] + S2[a1, a4, SP[a2, a5], a3, a6, n] + 
    S2[a1, a4, SP[a2, a5], a6, a3, n] + S2[a1, a4, SP[a2, a6], a5, a3, n] - 
    S2[a1, a4, SP[a5, a6], a2, a3, n] - S2[a1, a4, SP[a5, a6], a3, a2, n] - 
    S2[a6, n]*S2[a1, a5, a2, a3, a4, n] - S2[a1, a5, a2, a3, SP[a4, a6], n] - 
    S2[a6, n]*S2[a1, a5, a2, a4, a3, n] - S2[a1, a5, a2, a4, SP[a3, a6], n] - 
    S2[a1, a5, a2, SP[a3, a6], a4, n] - S2[a1, a5, a2, SP[a4, a6], a3, n] - 
    S2[a6, n]*S2[a1, a5, a3, a2, a4, n] - S2[a1, a5, a3, a2, SP[a4, a6], n] - 
    S2[a6, n]*S2[a1, a5, a3, a4, a2, n] + 
    S2[a2, n]*S2[a1, a5, a3, a4, a6, n] + 
    S2[a2, n]*S2[a1, a5, a3, a6, a4, n] + S2[a1, a5, a3, a6, SP[a2, a4], n] + 
    S2[a1, a5, a3, SP[a2, a4], a6, n] - S2[a1, a5, a3, SP[a4, a6], a2, n] - 
    S2[a6, n]*S2[a1, a5, a4, a2, a3, n] - S2[a1, a5, a4, a2, SP[a3, a6], n] - 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] + 
    S2[a2, n]*S2[a1, a5, a4, a3, a6, n] + 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] + S2[a1, a5, a4, a6, SP[a2, a3], n] + 
    S2[a1, a5, a4, SP[a2, a3], a6, n] - S2[a1, a5, a4, SP[a3, a6], a2, n] + 
    S2[a2, n]*S2[a1, a5, a6, a3, a4, n] + S2[a1, a5, a6, a3, SP[a2, a4], n] + 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] + S2[a1, a5, a6, a4, SP[a2, a3], n] + 
    S2[a1, a5, a6, SP[a2, a3], a4, n] + S2[a1, a5, a6, SP[a2, a4], a3, n] + 
    S2[a1, a5, SP[a2, a3], a4, a6, n] + S2[a1, a5, SP[a2, a3], a6, a4, n] + 
    S2[a1, a5, SP[a2, a4], a3, a6, n] + S2[a1, a5, SP[a2, a4], a6, a3, n] - 
    S2[a1, a5, SP[a3, a6], a2, a4, n] - S2[a1, a5, SP[a3, a6], a4, a2, n] - 
    S2[a1, a5, SP[a4, a6], a2, a3, n] - S2[a1, a5, SP[a4, a6], a3, a2, n] + 
    S2[a2, n]*S2[a1, a6, a4, a5, a3, n] + S2[a1, a6, a4, a5, SP[a2, a3], n] + 
    S2[a1, a6, a4, SP[a2, a5], a3, n] + S2[a2, n]*S2[a1, a6, a5, a3, a4, n] + 
    S2[a1, a6, a5, a3, SP[a2, a4], n] + S2[a2, n]*S2[a1, a6, a5, a4, a3, n] + 
    S2[a1, a6, a5, a4, SP[a2, a3], n] + S2[a1, a6, a5, SP[a2, a3], a4, n] + 
    S2[a1, a6, a5, SP[a2, a4], a3, n] + S2[a1, a6, SP[a2, a4], a5, a3, n] + 
    S2[a1, a6, SP[a2, a5], a3, a4, n] + S2[a1, a6, SP[a2, a5], a4, a3, n] + 
    S2[a1, SP[a2, a5], a3, a4, a6, n] + S2[a1, SP[a2, a5], a3, a6, a4, n] + 
    S2[a1, SP[a2, a5], a4, a3, a6, n] + S2[a1, SP[a2, a5], a4, a6, a3, n] + 
    S2[a1, SP[a2, a5], a6, a3, a4, n] + S2[a1, SP[a2, a5], a6, a4, a3, n] + 
    S2[a1, SP[a2, a6], a4, a5, a3, n] + S2[a1, SP[a2, a6], a5, a3, a4, n] + 
    S2[a1, SP[a2, a6], a5, a4, a3, n] - S2[a1, SP[a4, a6], a5, a2, a3, n] - 
    S2[a1, SP[a4, a6], a5, a3, a2, n] - S2[a1, SP[a5, a6], a2, a3, a4, n] - 
    S2[a1, SP[a5, a6], a2, a4, a3, n] - S2[a1, SP[a5, a6], a3, a2, a4, n] - 
    S2[a1, SP[a5, a6], a3, a4, a2, n] - S2[a1, SP[a5, a6], a4, a2, a3, n] - 
    S2[a1, SP[a5, a6], a4, a3, a2, n] - S2[a2, a1, a5, a3, SP[a4, a6], n] - 
    S2[a2, a1, a5, a6, SP[a3, a4], n] - S2[a2, a1, a5, SP[a3, a4], a6, n] - 
    S2[a2, a1, a5, SP[a4, a6], a3, n] - S2[a2, a1, a6, a5, SP[a3, a4], n] - 
    S2[a2, a1, a6, SP[a4, a5], a3, n] - S2[a2, a1, SP[a4, a5], a3, a6, n] - 
    S2[a2, a1, SP[a4, a5], a6, a3, n] - S2[a2, a1, SP[a4, a6], a5, a3, n] + 
    S2[a6, n]*S2[a2, a5, a1, a3, a4, n] + 
    S2[a6, n]*S2[a2, a5, a1, a4, a3, n] + S2[a2, a5, a1, a4, SP[a3, a6], n] - 
    S2[a2, a5, a1, a6, SP[a3, a4], n] - S2[a2, a5, a1, SP[a3, a4], a6, n] + 
    S2[a2, a5, a1, SP[a3, a6], a4, n] + S2[a6, n]*S2[a2, a5, a3, a1, a4, n] - 
    S2[a2, a5, a6, a1, SP[a3, a4], n] - S2[a2, a5, a6, SP[a1, a3], a4, n] - 
    S2[a2, a5, SP[a1, a3], a4, a6, n] - S2[a2, a5, SP[a1, a3], a6, a4, n] + 
    S2[a2, a5, SP[a3, a6], a1, a4, n] - S2[a2, a6, a1, a5, SP[a3, a4], n] - 
    S2[a2, a6, a1, SP[a4, a5], a3, n] - S2[a2, a6, a5, a1, SP[a3, a4], n] - 
    S2[a2, a6, a5, SP[a1, a3], a4, n] - S2[a2, a6, SP[a1, a5], a3, a4, n] - 
    S2[a2, a6, SP[a1, a5], a4, a3, n] - S2[a2, SP[a1, a5], a3, a4, a6, n] - 
    S2[a2, SP[a1, a5], a3, a6, a4, n] - S2[a2, SP[a1, a5], a4, a3, a6, n] - 
    S2[a2, SP[a1, a5], a4, a6, a3, n] - S2[a2, SP[a1, a5], a6, a3, a4, n] - 
    S2[a2, SP[a1, a5], a6, a4, a3, n] - S2[a2, SP[a1, a6], a4, a5, a3, n] - 
    S2[a2, SP[a1, a6], a5, a3, a4, n] - S2[a2, SP[a1, a6], a5, a4, a3, n] + 
    S2[a2, SP[a5, a6], a1, a3, a4, n] + S2[a2, SP[a5, a6], a1, a4, a3, n] + 
    S2[a2, SP[a5, a6], a3, a1, a4, n] + S2[a2, n]*S2[a6, a1, a4, a5, a3, n] + 
    S2[a6, a1, a4, a5, SP[a2, a3], n] + S2[a6, a1, a4, SP[a2, a5], a3, n] + 
    S2[a2, n]*S2[a6, a1, a5, a3, a4, n] + S2[a6, a1, a5, a3, SP[a2, a4], n] + 
    S2[a2, n]*S2[a6, a1, a5, a4, a3, n] + S2[a6, a1, a5, a4, SP[a2, a3], n] + 
    S2[a6, a1, a5, SP[a2, a3], a4, n] + S2[a6, a1, a5, SP[a2, a4], a3, n] + 
    S2[a6, a1, SP[a2, a4], a5, a3, n] + S2[a6, a1, SP[a2, a5], a3, a4, n] + 
    S2[a6, a1, SP[a2, a5], a4, a3, n] - S2[a1, n]*S2[a6, a2, a4, a5, a3, n] - 
    S2[a6, a2, a4, a5, SP[a1, a3], n] - S2[a6, a2, a4, SP[a1, a5], a3, n] - 
    S2[a1, n]*S2[a6, a2, a5, a3, a4, n] - S2[a6, a2, a5, a3, SP[a1, a4], n] - 
    S2[a1, n]*S2[a6, a2, a5, a4, a3, n] - S2[a6, a2, a5, a4, SP[a1, a3], n] - 
    S2[a6, a2, a5, SP[a1, a3], a4, n] - S2[a6, a2, a5, SP[a1, a4], a3, n] - 
    S2[a6, a2, SP[a1, a4], a5, a3, n] - S2[a6, a2, SP[a1, a5], a3, a4, n] - 
    S2[a6, a2, SP[a1, a5], a4, a3, n] - S2[a1, n]*S2[a6, a4, a2, a5, a3, n] - 
    S2[a6, a4, a2, a5, SP[a1, a3], n] - S2[a6, a4, a2, SP[a1, a5], a3, n] - 
    S2[a6, a4, SP[a1, a2], a5, a3, n] - S2[a6, SP[a1, a4], a2, a5, a3, n] - 
    S2[SP[a1, a6], a2, a4, a5, a3, n] - S2[SP[a1, a6], a2, a5, a3, a4, n] - 
    S2[SP[a1, a6], a2, a5, a4, a3, n] - S2[SP[a1, a6], a4, a2, a5, a3, n] - 
    S2[SP[a1, a6], a4, a5, a2, a3, n] - S2[SP[a1, a6], a4, a5, a3, a2, n] - 
    S2[SP[a1, a6], a5, a2, a3, a4, n] - S2[SP[a1, a6], a5, a2, a4, a3, n] - 
    S2[SP[a1, a6], a5, a3, a2, a4, n] - S2[SP[a1, a6], a5, a3, a4, a2, n] - 
    S2[SP[a1, a6], a5, a4, a2, a3, n] - S2[SP[a1, a6], a5, a4, a3, a2, n] + 
    S2[SP[a2, a6], a1, a4, a5, a3, n] + S2[SP[a2, a6], a1, a5, a3, a4, n] + 
    S2[SP[a2, a6], a1, a5, a4, a3, n] + S2[SP[a2, a6], a5, a1, a3, a4, n] + 
    S2[SP[a2, a6], a5, a1, a4, a3, n] + S2[SP[a2, a6], a5, a3, a1, a4, n] + 
    S2[a6, a2, a4, a1, a5, a3, n] + S2[a6, a2, a4, a5, a1, a3, n] + 
    S2[a6, a2, a4, a5, a3, a1, n] + S2[a6, a2, a5, a3, a4, a1, n] + 
    S2[a6, a2, a5, a4, a1, a3, n] + S2[a6, a2, a5, a4, a3, a1, n] + 
    S2[a6, a4, a1, a2, a5, a3, n] + S2[a6, a4, a2, a1, a5, a3, n] + 
    S2[a6, a4, a2, a5, a1, a3, n] + S2[a6, a4, a2, a5, a3, a1, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a1_, a4_, a6_, a3_, a2_, a5_, n_] :> 
  S2[a1, a4, n]*S2[a2, a3, a5, a6, n] + S2[a1, a4, n]*S2[a2, a3, a6, a5, n] - 
    S2[a2, a3, SP[a1, a5], SP[a4, a6], n] - S2[a2, a3, SP[a1, a6], 
     SP[a4, a5], n] + S2[a1, a4, n]*S2[a2, a5, a3, a6, n] + 
    S2[a1, a4, n]*S2[a2, a5, a6, a3, n] - S2[a2, a5, SP[a1, a3], SP[a4, a6], 
     n] - S2[a2, a5, SP[a1, a6], SP[a3, a4], n] + 
    S2[a1, a4, n]*S2[a2, a6, a3, a5, n] + S2[a1, a4, n]*
     S2[a2, a6, a5, a3, n] - S2[a2, a6, SP[a1, a3], SP[a4, a5], n] - 
    S2[a2, a6, SP[a1, a5], SP[a3, a4], n] - S2[a2, SP[a1, a3], a5, 
     SP[a4, a6], n] - S2[a2, SP[a1, a3], a6, SP[a4, a5], n] - 
    S2[a2, SP[a1, a3], SP[a4, a5], a6, n] - S2[a2, SP[a1, a3], SP[a4, a6], 
     a5, n] - S2[a2, SP[a1, a5], a3, SP[a4, a6], n] - 
    S2[a2, SP[a1, a5], a6, SP[a3, a4], n] - S2[a2, SP[a1, a5], SP[a3, a4], 
     a6, n] - S2[a2, SP[a1, a5], SP[a4, a6], a3, n] - 
    S2[a2, SP[a1, a6], a3, SP[a4, a5], n] - S2[a2, SP[a1, a6], a5, 
     SP[a3, a4], n] - S2[a2, SP[a1, a6], SP[a3, a4], a5, n] - 
    S2[a2, SP[a1, a6], SP[a4, a5], a3, n] - S2[a1, a4, n]*
     S2[a3, a6, a2, a5, n] + S2[a3, a6, SP[a1, a2], SP[a4, a5], n] + 
    S2[a3, SP[a1, a6], a2, SP[a4, a5], n] + S2[a3, SP[a1, a6], SP[a2, a4], 
     a5, n] - S2[SP[a1, a2], a3, a5, SP[a4, a6], n] - 
    S2[SP[a1, a2], a3, a6, SP[a4, a5], n] - S2[SP[a1, a2], a3, SP[a4, a5], 
     a6, n] - S2[SP[a1, a2], a3, SP[a4, a6], a5, n] - 
    S2[SP[a1, a2], a5, a3, SP[a4, a6], n] - S2[SP[a1, a2], a5, a6, 
     SP[a3, a4], n] - S2[SP[a1, a2], a5, SP[a3, a4], a6, n] - 
    S2[SP[a1, a2], a5, SP[a4, a6], a3, n] - S2[SP[a1, a2], a6, a3, 
     SP[a4, a5], n] - S2[SP[a1, a2], a6, a5, SP[a3, a4], n] - 
    S2[SP[a1, a2], a6, SP[a3, a4], a5, n] - S2[SP[a1, a2], a6, SP[a4, a5], 
     a3, n] - S2[SP[a1, a2], SP[a3, a4], a5, a6, n] - 
    S2[SP[a1, a2], SP[a3, a4], a6, a5, n] - S2[SP[a1, a2], SP[a4, a5], a3, 
     a6, n] - S2[SP[a1, a2], SP[a4, a5], a6, a3, n] - 
    S2[SP[a1, a2], SP[a4, a6], a3, a5, n] - S2[SP[a1, a2], SP[a4, a6], a5, 
     a3, n] + S2[SP[a1, a3], a6, a2, SP[a4, a5], n] + 
    S2[SP[a1, a3], a6, SP[a2, a4], a5, n] + S2[SP[a1, a3], SP[a4, a6], a2, 
     a5, n] + S2[a1, a2, a3, a5, SP[a4, a6], n] + 
    S2[a1, a2, a3, a6, SP[a4, a5], n] + S2[a1, a2, a3, SP[a4, a5], a6, n] + 
    S2[a1, a2, a3, SP[a4, a6], a5, n] + S2[a1, a2, a5, a3, SP[a4, a6], n] + 
    S2[a1, a2, a5, a6, SP[a3, a4], n] + S2[a1, a2, a5, SP[a3, a4], a6, n] + 
    S2[a1, a2, a5, SP[a4, a6], a3, n] + S2[a1, a2, a6, a3, SP[a4, a5], n] + 
    S2[a1, a2, a6, a5, SP[a3, a4], n] + S2[a1, a2, a6, SP[a3, a4], a5, n] + 
    S2[a1, a2, a6, SP[a4, a5], a3, n] + S2[a1, a2, SP[a3, a4], a5, a6, n] + 
    S2[a1, a2, SP[a3, a4], a6, a5, n] + S2[a1, a2, SP[a4, a5], a3, a6, n] + 
    S2[a1, a2, SP[a4, a5], a6, a3, n] + S2[a1, a2, SP[a4, a6], a3, a5, n] + 
    S2[a1, a2, SP[a4, a6], a5, a3, n] + S2[a6, n]*S2[a1, a3, a2, a4, a5, n] + 
    S2[a1, a3, a2, a4, SP[a5, a6], n] + S2[a6, n]*S2[a1, a3, a2, a5, a4, n] + 
    S2[a1, a3, a2, a5, SP[a4, a6], n] + S2[a1, a3, a2, SP[a4, a6], a5, n] + 
    S2[a1, a3, a2, SP[a5, a6], a4, n] + S2[a6, n]*S2[a1, a3, a4, a2, a5, n] + 
    S2[a1, a3, a4, a2, SP[a5, a6], n] + S2[a6, n]*S2[a1, a3, a4, a5, a2, n] - 
    S2[a2, n]*S2[a1, a3, a4, a5, a6, n] - 
    S2[a2, n]*S2[a1, a3, a4, a6, a5, n] - S2[a1, a3, a4, a6, SP[a2, a5], n] - 
    S2[a1, a3, a4, SP[a2, a5], a6, n] + S2[a1, a3, a4, SP[a5, a6], a2, n] + 
    S2[a6, n]*S2[a1, a3, a5, a2, a4, n] + S2[a1, a3, a5, a2, SP[a4, a6], n] + 
    S2[a6, n]*S2[a1, a3, a5, a4, a2, n] - 
    S2[a2, n]*S2[a1, a3, a5, a4, a6, n] - 
    S2[a2, n]*S2[a1, a3, a5, a6, a4, n] - S2[a1, a3, a5, a6, SP[a2, a4], n] - 
    S2[a1, a3, a5, SP[a2, a4], a6, n] + S2[a1, a3, a5, SP[a4, a6], a2, n] - 
    S2[a1, a3, a6, a2, SP[a4, a5], n] - S2[a2, n]*S2[a1, a3, a6, a4, a5, n] - 
    S2[a1, a3, a6, a4, SP[a2, a5], n] - S2[a2, n]*S2[a1, a3, a6, a5, a4, n] - 
    S2[a1, a3, a6, a5, SP[a2, a4], n] - 2*S2[a1, a3, a6, SP[a2, a4], a5, n] - 
    S2[a1, a3, a6, SP[a2, a5], a4, n] - S2[a1, a3, SP[a2, a4], a5, a6, n] - 
    S2[a1, a3, SP[a2, a4], a6, a5, n] - S2[a1, a3, SP[a2, a5], a4, a6, n] - 
    S2[a1, a3, SP[a2, a5], a6, a4, n] + S2[a1, a3, SP[a4, a6], a5, a2, n] + 
    S2[a1, a3, SP[a5, a6], a2, a4, n] + S2[a1, a3, SP[a5, a6], a4, a2, n] + 
    S2[a6, n]*S2[a1, a4, a3, a2, a5, n] + S2[a1, a4, a3, a2, SP[a5, a6], n] + 
    S2[a6, n]*S2[a1, a4, a3, a5, a2, n] - 
    S2[a2, n]*S2[a1, a4, a3, a5, a6, n] - 
    S2[a2, n]*S2[a1, a4, a3, a6, a5, n] - S2[a1, a4, a3, a6, SP[a2, a5], n] - 
    S2[a1, a4, a3, SP[a2, a5], a6, n] + S2[a1, a4, a3, SP[a5, a6], a2, n] + 
    S2[a6, n]*S2[a1, a4, a5, a2, a3, n] + S2[a1, a4, a5, a2, SP[a3, a6], n] + 
    S2[a6, n]*S2[a1, a4, a5, a3, a2, n] - 
    S2[a2, n]*S2[a1, a4, a5, a3, a6, n] - 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] - S2[a1, a4, a5, a6, SP[a2, a3], n] - 
    S2[a1, a4, a5, SP[a2, a3], a6, n] + S2[a1, a4, a5, SP[a3, a6], a2, n] + 
    S2[a3, n]*S2[a1, a4, a6, a2, a5, n] + S2[a1, a4, a6, a2, SP[a3, a5], n] - 
    S2[a2, n]*S2[a1, a4, a6, a3, a5, n] - S2[a1, a4, a6, a3, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a4, a6, a5, a3, n] - S2[a1, a4, a6, a5, SP[a2, a3], n] - 
    S2[a1, a4, a6, SP[a2, a5], a3, n] - S2[a1, a4, SP[a2, a3], a5, a6, n] - 
    S2[a1, a4, SP[a2, a3], a6, a5, n] - S2[a1, a4, SP[a2, a5], a3, a6, n] - 
    S2[a1, a4, SP[a2, a5], a6, a3, n] - S2[a1, a4, SP[a2, a6], a3, a5, n] - 
    S2[a1, a4, SP[a2, a6], a5, a3, n] + 2*S2[a1, a4, SP[a3, a6], a2, a5, n] + 
    S2[a1, a4, SP[a3, a6], a5, a2, n] + S2[a1, a4, SP[a5, a6], a2, a3, n] + 
    S2[a1, a4, SP[a5, a6], a3, a2, n] + S2[a6, n]*S2[a1, a5, a2, a3, a4, n] + 
    S2[a1, a5, a2, a3, SP[a4, a6], n] + S2[a6, n]*S2[a1, a5, a2, a4, a3, n] + 
    S2[a1, a5, a2, a4, SP[a3, a6], n] + S2[a1, a5, a2, SP[a3, a6], a4, n] + 
    S2[a1, a5, a2, SP[a4, a6], a3, n] + S2[a6, n]*S2[a1, a5, a3, a2, a4, n] + 
    S2[a1, a5, a3, a2, SP[a4, a6], n] + S2[a6, n]*S2[a1, a5, a3, a4, a2, n] - 
    S2[a2, n]*S2[a1, a5, a3, a4, a6, n] - 
    S2[a2, n]*S2[a1, a5, a3, a6, a4, n] - S2[a1, a5, a3, a6, SP[a2, a4], n] - 
    S2[a1, a5, a3, SP[a2, a4], a6, n] + S2[a1, a5, a3, SP[a4, a6], a2, n] + 
    S2[a6, n]*S2[a1, a5, a4, a2, a3, n] + S2[a1, a5, a4, a2, SP[a3, a6], n] + 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] - 
    S2[a2, n]*S2[a1, a5, a4, a3, a6, n] - 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] - S2[a1, a5, a4, a6, SP[a2, a3], n] - 
    S2[a1, a5, a4, SP[a2, a3], a6, n] + S2[a1, a5, a4, SP[a3, a6], a2, n] - 
    S2[a2, n]*S2[a1, a5, a6, a3, a4, n] - S2[a1, a5, a6, a3, SP[a2, a4], n] - 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] - S2[a1, a5, a6, a4, SP[a2, a3], n] - 
    S2[a1, a5, a6, SP[a2, a3], a4, n] - S2[a1, a5, a6, SP[a2, a4], a3, n] - 
    S2[a1, a5, SP[a2, a3], a4, a6, n] - S2[a1, a5, SP[a2, a3], a6, a4, n] - 
    S2[a1, a5, SP[a2, a4], a3, a6, n] - S2[a1, a5, SP[a2, a4], a6, a3, n] + 
    S2[a1, a5, SP[a3, a6], a2, a4, n] + S2[a1, a5, SP[a3, a6], a4, a2, n] + 
    S2[a1, a5, SP[a4, a6], a2, a3, n] + S2[a1, a5, SP[a4, a6], a3, a2, n] + 
    S2[a3, n]*S2[a1, a6, a2, a4, a5, n] + S2[a1, a6, a2, a4, SP[a3, a5], n] + 
    S2[a3, n]*S2[a1, a6, a2, a5, a4, n] + S2[a1, a6, a2, a5, SP[a3, a4], n] + 
    S2[a1, a6, a2, SP[a3, a4], a5, n] + S2[a1, a6, a2, SP[a3, a5], a4, n] - 
    S2[a2, n]*S2[a1, a6, a3, a4, a5, n] - S2[a1, a6, a3, a4, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a6, a3, a5, a4, n] - S2[a1, a6, a3, a5, SP[a2, a4], n] - 
    S2[a1, a6, a3, SP[a2, a4], a5, n] - S2[a1, a6, a3, SP[a2, a5], a4, n] + 
    S2[a3, n]*S2[a1, a6, a4, a2, a5, n] + S2[a1, a6, a4, a2, SP[a3, a5], n] - 
    S2[a2, n]*S2[a1, a6, a4, a3, a5, n] - S2[a1, a6, a4, a3, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a6, a4, a5, a3, n] - S2[a1, a6, a4, a5, SP[a2, a3], n] - 
    S2[a1, a6, a4, SP[a2, a5], a3, n] - S2[a2, n]*S2[a1, a6, a5, a3, a4, n] - 
    S2[a1, a6, a5, a3, SP[a2, a4], n] - S2[a2, n]*S2[a1, a6, a5, a4, a3, n] - 
    S2[a1, a6, a5, a4, SP[a2, a3], n] - S2[a1, a6, a5, SP[a2, a3], a4, n] - 
    S2[a1, a6, a5, SP[a2, a4], a3, n] - S2[a1, a6, SP[a2, a4], a3, a5, n] - 
    S2[a1, a6, SP[a2, a4], a5, a3, n] - S2[a1, a6, SP[a2, a5], a3, a4, n] - 
    S2[a1, a6, SP[a2, a5], a4, a3, n] + S2[a1, a6, SP[a3, a4], a2, a5, n] - 
    S2[a1, SP[a2, a3], a4, a5, a6, n] - S2[a1, SP[a2, a3], a4, a6, a5, n] - 
    S2[a1, SP[a2, a3], a5, a4, a6, n] - S2[a1, SP[a2, a3], a5, a6, a4, n] - 
    S2[a1, SP[a2, a3], a6, a4, a5, n] - S2[a1, SP[a2, a3], a6, a5, a4, n] - 
    S2[a1, SP[a2, a5], a3, a4, a6, n] - S2[a1, SP[a2, a5], a3, a6, a4, n] - 
    S2[a1, SP[a2, a5], a4, a3, a6, n] - S2[a1, SP[a2, a5], a4, a6, a3, n] - 
    S2[a1, SP[a2, a5], a6, a3, a4, n] - S2[a1, SP[a2, a5], a6, a4, a3, n] - 
    S2[a1, SP[a2, a6], a3, a4, a5, n] - S2[a1, SP[a2, a6], a3, a5, a4, n] - 
    S2[a1, SP[a2, a6], a4, a3, a5, n] - S2[a1, SP[a2, a6], a4, a5, a3, n] - 
    S2[a1, SP[a2, a6], a5, a3, a4, n] - S2[a1, SP[a2, a6], a5, a4, a3, n] + 
    2*S2[a1, SP[a3, a6], a2, a4, a5, n] + 
    2*S2[a1, SP[a3, a6], a2, a5, a4, n] + 
    2*S2[a1, SP[a3, a6], a4, a2, a5, n] + S2[a1, SP[a3, a6], a4, a5, a2, n] + 
    S2[a1, SP[a3, a6], a5, a2, a4, n] + S2[a1, SP[a3, a6], a5, a4, a2, n] + 
    S2[a1, SP[a4, a6], a3, a2, a5, n] + S2[a1, SP[a4, a6], a3, a5, a2, n] + 
    S2[a1, SP[a4, a6], a5, a2, a3, n] + S2[a1, SP[a4, a6], a5, a3, a2, n] + 
    S2[a1, SP[a5, a6], a2, a3, a4, n] + S2[a1, SP[a5, a6], a2, a4, a3, n] + 
    S2[a1, SP[a5, a6], a3, a2, a4, n] + S2[a1, SP[a5, a6], a3, a4, a2, n] + 
    S2[a1, SP[a5, a6], a4, a2, a3, n] + S2[a1, SP[a5, a6], a4, a3, a2, n] + 
    S2[a2, a1, a3, a5, SP[a4, a6], n] + S2[a2, a1, a3, a6, SP[a4, a5], n] + 
    S2[a2, a1, a3, SP[a4, a5], a6, n] + S2[a2, a1, a3, SP[a4, a6], a5, n] + 
    S2[a2, a1, a5, a3, SP[a4, a6], n] + S2[a2, a1, a5, a6, SP[a3, a4], n] + 
    S2[a2, a1, a5, SP[a3, a4], a6, n] + S2[a2, a1, a5, SP[a4, a6], a3, n] + 
    S2[a2, a1, a6, a3, SP[a4, a5], n] + S2[a2, a1, a6, a5, SP[a3, a4], n] + 
    S2[a2, a1, a6, SP[a3, a4], a5, n] + S2[a2, a1, a6, SP[a4, a5], a3, n] + 
    S2[a2, a1, SP[a3, a4], a5, a6, n] + S2[a2, a1, SP[a3, a4], a6, a5, n] + 
    S2[a2, a1, SP[a4, a5], a3, a6, n] + S2[a2, a1, SP[a4, a5], a6, a3, n] + 
    S2[a2, a1, SP[a4, a6], a3, a5, n] + S2[a2, a1, SP[a4, a6], a5, a3, n] - 
    S2[a6, n]*S2[a2, a3, a1, a4, a5, n] - S2[a2, a3, a1, a4, SP[a5, a6], n] - 
    S2[a6, n]*S2[a2, a3, a1, a5, a4, n] + S2[a2, a3, a1, a6, SP[a4, a5], n] + 
    S2[a2, a3, a1, SP[a4, a5], a6, n] - S2[a2, a3, a1, SP[a5, a6], a4, n] - 
    S2[a6, n]*S2[a2, a3, a5, a1, a4, n] + S2[a2, a3, a6, a1, SP[a4, a5], n] + 
    S2[a2, a3, a6, SP[a1, a5], a4, n] + S2[a2, a3, SP[a1, a5], a4, a6, n] + 
    S2[a2, a3, SP[a1, a5], a6, a4, n] - S2[a2, a3, SP[a5, a6], a1, a4, n] - 
    S2[a6, n]*S2[a2, a5, a1, a3, a4, n] - 
    S2[a6, n]*S2[a2, a5, a1, a4, a3, n] - S2[a2, a5, a1, a4, SP[a3, a6], n] + 
    S2[a2, a5, a1, a6, SP[a3, a4], n] + S2[a2, a5, a1, SP[a3, a4], a6, n] - 
    S2[a2, a5, a1, SP[a3, a6], a4, n] - S2[a6, n]*S2[a2, a5, a3, a1, a4, n] + 
    S2[a2, a5, a6, a1, SP[a3, a4], n] + S2[a2, a5, a6, SP[a1, a3], a4, n] + 
    S2[a2, a5, SP[a1, a3], a4, a6, n] + S2[a2, a5, SP[a1, a3], a6, a4, n] - 
    S2[a2, a5, SP[a3, a6], a1, a4, n] + S2[a2, a6, a1, a3, SP[a4, a5], n] - 
    S2[a3, n]*S2[a2, a6, a1, a4, a5, n] - S2[a2, a6, a1, a4, SP[a3, a5], n] - 
    S2[a3, n]*S2[a2, a6, a1, a5, a4, n] - S2[a2, a6, a1, SP[a3, a5], a4, n] + 
    S2[a2, a6, a1, SP[a4, a5], a3, n] + S2[a2, a6, a3, a1, SP[a4, a5], n] + 
    S2[a2, a6, a3, SP[a1, a5], a4, n] + S2[a2, a6, a5, a1, SP[a3, a4], n] + 
    S2[a2, a6, a5, SP[a1, a3], a4, n] + S2[a2, a6, SP[a1, a5], a3, a4, n] + 
    S2[a2, a6, SP[a1, a5], a4, a3, n] + S2[a2, SP[a1, a3], a4, a5, a6, n] + 
    S2[a2, SP[a1, a3], a4, a6, a5, n] + S2[a2, SP[a1, a3], a5, a4, a6, n] + 
    S2[a2, SP[a1, a3], a5, a6, a4, n] + S2[a2, SP[a1, a3], a6, a4, a5, n] + 
    S2[a2, SP[a1, a3], a6, a5, a4, n] + S2[a2, SP[a1, a5], a3, a4, a6, n] + 
    S2[a2, SP[a1, a5], a3, a6, a4, n] + S2[a2, SP[a1, a5], a4, a3, a6, n] + 
    S2[a2, SP[a1, a5], a4, a6, a3, n] + S2[a2, SP[a1, a5], a6, a3, a4, n] + 
    S2[a2, SP[a1, a5], a6, a4, a3, n] + S2[a2, SP[a1, a6], a3, a4, a5, n] + 
    S2[a2, SP[a1, a6], a3, a5, a4, n] + S2[a2, SP[a1, a6], a4, a3, a5, n] + 
    S2[a2, SP[a1, a6], a4, a5, a3, n] + S2[a2, SP[a1, a6], a5, a3, a4, n] + 
    S2[a2, SP[a1, a6], a5, a4, a3, n] - 2*S2[a2, SP[a3, a6], a1, a4, a5, n] - 
    2*S2[a2, SP[a3, a6], a1, a5, a4, n] - S2[a2, SP[a3, a6], a5, a1, a4, n] - 
    S2[a2, SP[a5, a6], a1, a3, a4, n] - S2[a2, SP[a5, a6], a1, a4, a3, n] - 
    S2[a2, SP[a5, a6], a3, a1, a4, n] - S2[a3, a1, a6, a2, SP[a4, a5], n] - 
    S2[a3, a1, a6, SP[a2, a4], a5, n] - S2[a3, a1, SP[a4, a6], a2, a5, n] - 
    S2[a3, a6, a1, a2, SP[a4, a5], n] + S2[a2, n]*S2[a3, a6, a1, a4, a5, n] + 
    S2[a3, a6, a1, a4, SP[a2, a5], n] + S2[a2, n]*S2[a3, a6, a1, a5, a4, n] + 
    S2[a3, a6, a1, a5, SP[a2, a4], n] + S2[a3, a6, a1, SP[a2, a5], a4, n] - 
    S2[a3, a6, a2, a1, SP[a4, a5], n] - S2[a3, a6, a2, SP[a1, a5], a4, n] - 
    S2[a3, SP[a1, a6], a2, a4, a5, n] - S2[a3, SP[a1, a6], a2, a5, a4, n] - 
    S2[a3, SP[a1, a6], a4, a2, a5, n] + S2[a3, SP[a2, a6], a1, a4, a5, n] + 
    S2[a3, SP[a2, a6], a1, a5, a4, n] - S2[a3, n]*S2[a6, a1, a4, a5, a2, n] - 
    S2[a6, a1, a4, a5, SP[a2, a3], n] - S2[a6, a1, a4, SP[a3, a5], a2, n] - 
    S2[a3, n]*S2[a6, a1, a5, a2, a4, n] - S2[a6, a1, a5, a2, SP[a3, a4], n] - 
    S2[a3, n]*S2[a6, a1, a5, a4, a2, n] - S2[a6, a1, a5, a4, SP[a2, a3], n] - 
    S2[a6, a1, a5, SP[a2, a3], a4, n] - S2[a6, a1, a5, SP[a3, a4], a2, n] - 
    S2[a6, a1, SP[a3, a4], a5, a2, n] - S2[a6, a1, SP[a3, a5], a2, a4, n] - 
    S2[a6, a1, SP[a3, a5], a4, a2, n] + S2[a3, n]*S2[a6, a2, a5, a1, a4, n] + 
    S2[a6, a2, a5, a1, SP[a3, a4], n] + S2[a6, a2, a5, SP[a1, a3], a4, n] + 
    S2[a6, a2, SP[a3, a5], a1, a4, n] + S2[a2, n]*S2[a6, a3, a1, a4, a5, n] + 
    S2[a6, a3, a1, a4, SP[a2, a5], n] + S2[a2, n]*S2[a6, a3, a1, a5, a4, n] + 
    S2[a6, a3, a1, a5, SP[a2, a4], n] + S2[a6, a3, a1, SP[a2, a4], a5, n] + 
    S2[a6, a3, a1, SP[a2, a5], a4, n] - S2[a1, n]*S2[a6, a3, a2, a4, a5, n] - 
    S2[a6, a3, a2, a4, SP[a1, a5], n] - S2[a1, n]*S2[a6, a3, a2, a5, a4, n] - 
    S2[a6, a3, a2, a5, SP[a1, a4], n] - S2[a6, a3, a2, SP[a1, a4], a5, n] - 
    S2[a6, a3, a2, SP[a1, a5], a4, n] - S2[a1, n]*S2[a6, a3, a4, a2, a5, n] - 
    S2[a6, a3, a4, a2, SP[a1, a5], n] - S2[a6, a3, a4, SP[a1, a2], a5, n] - 
    S2[a6, a3, SP[a1, a4], a2, a5, n] - S2[a1, n]*S2[a6, a4, a3, a2, a5, n] - 
    S2[a6, a4, a3, a2, SP[a1, a5], n] - S2[a6, a4, a3, SP[a1, a2], a5, n] - 
    S2[a6, a4, SP[a1, a3], a2, a5, n] - S2[a6, SP[a1, a3], a2, a4, a5, n] - 
    S2[a6, SP[a1, a3], a2, a5, a4, n] - S2[a6, SP[a1, a3], a4, a2, a5, n] - 
    S2[a6, SP[a1, a3], a4, a5, a2, n] - S2[a6, SP[a1, a3], a5, a2, a4, n] - 
    S2[a6, SP[a1, a3], a5, a4, a2, n] - S2[a6, SP[a1, a4], a3, a2, a5, n] + 
    S2[a6, SP[a2, a3], a1, a4, a5, n] + S2[a6, SP[a2, a3], a1, a5, a4, n] + 
    S2[a6, SP[a2, a3], a5, a1, a4, n] + S2[SP[a1, a6], a3, a4, a5, a2, n] + 
    S2[SP[a1, a6], a3, a5, a2, a4, n] + S2[SP[a1, a6], a3, a5, a4, a2, n] + 
    S2[SP[a1, a6], a4, a3, a5, a2, n] + S2[SP[a1, a6], a4, a5, a2, a3, n] + 
    S2[SP[a1, a6], a4, a5, a3, a2, n] + S2[SP[a1, a6], a5, a2, a3, a4, n] + 
    S2[SP[a1, a6], a5, a2, a4, a3, n] + S2[SP[a1, a6], a5, a3, a2, a4, n] + 
    S2[SP[a1, a6], a5, a3, a4, a2, n] + S2[SP[a1, a6], a5, a4, a2, a3, n] + 
    S2[SP[a1, a6], a5, a4, a3, a2, n] - S2[SP[a2, a6], a3, a5, a1, a4, n] - 
    S2[SP[a2, a6], a5, a1, a3, a4, n] - S2[SP[a2, a6], a5, a1, a4, a3, n] - 
    S2[SP[a2, a6], a5, a3, a1, a4, n] - S2[SP[a3, a6], a1, a4, a5, a2, n] - 
    S2[SP[a3, a6], a1, a5, a2, a4, n] - S2[SP[a3, a6], a1, a5, a4, a2, n] + 
    S2[SP[a3, a6], a2, a5, a1, a4, n] + S2[a6, a3, a2, a4, a1, a5, n] + 
    S2[a6, a3, a2, a4, a5, a1, n] + S2[a6, a3, a2, a5, a4, a1, n] + 
    S2[a6, a3, a4, a1, a2, a5, n] + S2[a6, a3, a4, a2, a1, a5, n] + 
    S2[a6, a3, a4, a2, a5, a1, n] + S2[a6, a4, a1, a3, a2, a5, n] + 
    S2[a6, a4, a3, a1, a2, a5, n] + S2[a6, a4, a3, a2, a1, a5, n] + 
    S2[a6, a4, a3, a2, a5, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a1_, a4_, a6_, a3_, a5_, a2_, n_] :> 
  -(S2[a1, a4, n]*S2[a2, a5, a3, a6, n]) - S2[a1, a4, n]*
     S2[a2, a5, a6, a3, n] + S2[a2, a5, SP[a1, a3], SP[a4, a6], n] + 
    S2[a2, a5, SP[a1, a6], SP[a3, a4], n] - S2[a1, a4, n]*
     S2[a2, a6, a3, a5, n] - S2[a1, a4, n]*S2[a2, a6, a5, a3, n] + 
    S2[a2, a6, SP[a1, a3], SP[a4, a5], n] + S2[a2, a6, SP[a1, a5], 
     SP[a3, a4], n] + S2[a2, SP[a1, a5], a3, SP[a4, a6], n] + 
    S2[a2, SP[a1, a5], a6, SP[a3, a4], n] + S2[a2, SP[a1, a5], SP[a3, a4], 
     a6, n] + S2[a2, SP[a1, a5], SP[a4, a6], a3, n] + 
    S2[a2, SP[a1, a6], a3, SP[a4, a5], n] + S2[a2, SP[a1, a6], a5, 
     SP[a3, a4], n] + S2[a2, SP[a1, a6], SP[a3, a4], a5, n] + 
    S2[a2, SP[a1, a6], SP[a4, a5], a3, n] + S2[a1, a4, n]*
     S2[a3, a6, a2, a5, n] - S2[a3, a6, SP[a1, a2], SP[a4, a5], n] - 
    S2[a3, SP[a1, a6], a2, SP[a4, a5], n] - S2[a3, SP[a1, a6], SP[a2, a4], 
     a5, n] + S2[SP[a1, a2], a5, a3, SP[a4, a6], n] + 
    S2[SP[a1, a2], a5, a6, SP[a3, a4], n] + S2[SP[a1, a2], a5, SP[a3, a4], 
     a6, n] + S2[SP[a1, a2], a5, SP[a4, a6], a3, n] + 
    S2[SP[a1, a2], a6, a3, SP[a4, a5], n] + S2[SP[a1, a2], a6, a5, 
     SP[a3, a4], n] + S2[SP[a1, a2], a6, SP[a3, a4], a5, n] + 
    S2[SP[a1, a2], a6, SP[a4, a5], a3, n] + S2[SP[a1, a2], SP[a4, a5], a3, 
     a6, n] + S2[SP[a1, a2], SP[a4, a5], a6, a3, n] + 
    S2[SP[a1, a2], SP[a4, a6], a3, a5, n] + S2[SP[a1, a2], SP[a4, a6], a5, 
     a3, n] - S2[SP[a1, a3], a6, a2, SP[a4, a5], n] - 
    S2[SP[a1, a3], a6, SP[a2, a4], a5, n] - S2[SP[a1, a3], SP[a4, a6], a2, 
     a5, n] - S2[a1, a2, a5, a3, SP[a4, a6], n] - 
    S2[a1, a2, a5, a6, SP[a3, a4], n] - S2[a1, a2, a5, SP[a3, a4], a6, n] - 
    S2[a1, a2, a5, SP[a4, a6], a3, n] - S2[a1, a2, a6, a3, SP[a4, a5], n] - 
    S2[a1, a2, a6, a5, SP[a3, a4], n] - S2[a1, a2, a6, SP[a3, a4], a5, n] - 
    S2[a1, a2, a6, SP[a4, a5], a3, n] - S2[a1, a2, SP[a4, a5], a3, a6, n] - 
    S2[a1, a2, SP[a4, a5], a6, a3, n] - S2[a1, a2, SP[a4, a6], a3, a5, n] - 
    S2[a1, a2, SP[a4, a6], a5, a3, n] + S2[a1, a3, a6, a2, SP[a4, a5], n] + 
    S2[a1, a3, a6, SP[a2, a4], a5, n] + S2[a1, a3, SP[a4, a6], a2, a5, n] - 
    S2[a6, n]*S2[a1, a4, a5, a2, a3, n] - S2[a1, a4, a5, a2, SP[a3, a6], n] - 
    S2[a6, n]*S2[a1, a4, a5, a3, a2, n] + 
    S2[a2, n]*S2[a1, a4, a5, a3, a6, n] + 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] + S2[a1, a4, a5, a6, SP[a2, a3], n] + 
    S2[a1, a4, a5, SP[a2, a3], a6, n] - S2[a1, a4, a5, SP[a3, a6], a2, n] - 
    S2[a3, n]*S2[a1, a4, a6, a2, a5, n] - S2[a1, a4, a6, a2, SP[a3, a5], n] + 
    S2[a2, n]*S2[a1, a4, a6, a3, a5, n] + S2[a1, a4, a6, a3, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a4, a6, a5, a3, n] + S2[a1, a4, a6, a5, SP[a2, a3], n] + 
    S2[a1, a4, a6, SP[a2, a5], a3, n] + S2[a1, a4, SP[a2, a5], a3, a6, n] + 
    S2[a1, a4, SP[a2, a5], a6, a3, n] + S2[a1, a4, SP[a2, a6], a3, a5, n] + 
    S2[a1, a4, SP[a2, a6], a5, a3, n] - S2[a1, a4, SP[a3, a6], a2, a5, n] - 
    S2[a1, a4, SP[a5, a6], a2, a3, n] - S2[a1, a4, SP[a5, a6], a3, a2, n] - 
    S2[a6, n]*S2[a1, a5, a2, a3, a4, n] - S2[a1, a5, a2, a3, SP[a4, a6], n] - 
    S2[a6, n]*S2[a1, a5, a2, a4, a3, n] - S2[a1, a5, a2, a4, SP[a3, a6], n] - 
    S2[a1, a5, a2, SP[a3, a6], a4, n] - S2[a1, a5, a2, SP[a4, a6], a3, n] - 
    S2[a6, n]*S2[a1, a5, a3, a2, a4, n] - S2[a1, a5, a3, a2, SP[a4, a6], n] - 
    S2[a6, n]*S2[a1, a5, a3, a4, a2, n] + 
    S2[a2, n]*S2[a1, a5, a3, a4, a6, n] + 
    S2[a2, n]*S2[a1, a5, a3, a6, a4, n] + S2[a1, a5, a3, a6, SP[a2, a4], n] + 
    S2[a1, a5, a3, SP[a2, a4], a6, n] - S2[a1, a5, a3, SP[a4, a6], a2, n] - 
    S2[a6, n]*S2[a1, a5, a4, a2, a3, n] - S2[a1, a5, a4, a2, SP[a3, a6], n] - 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] + 
    S2[a2, n]*S2[a1, a5, a4, a3, a6, n] + 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] + S2[a1, a5, a4, a6, SP[a2, a3], n] + 
    S2[a1, a5, a4, SP[a2, a3], a6, n] - S2[a1, a5, a4, SP[a3, a6], a2, n] + 
    S2[a2, n]*S2[a1, a5, a6, a3, a4, n] + S2[a1, a5, a6, a3, SP[a2, a4], n] + 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] + S2[a1, a5, a6, a4, SP[a2, a3], n] + 
    S2[a1, a5, a6, SP[a2, a3], a4, n] + S2[a1, a5, a6, SP[a2, a4], a3, n] + 
    S2[a1, a5, SP[a2, a3], a4, a6, n] + S2[a1, a5, SP[a2, a3], a6, a4, n] + 
    S2[a1, a5, SP[a2, a4], a3, a6, n] + S2[a1, a5, SP[a2, a4], a6, a3, n] - 
    S2[a1, a5, SP[a3, a6], a2, a4, n] - S2[a1, a5, SP[a3, a6], a4, a2, n] - 
    S2[a1, a5, SP[a4, a6], a2, a3, n] - S2[a1, a5, SP[a4, a6], a3, a2, n] - 
    S2[a3, n]*S2[a1, a6, a2, a4, a5, n] - S2[a1, a6, a2, a4, SP[a3, a5], n] - 
    S2[a3, n]*S2[a1, a6, a2, a5, a4, n] - S2[a1, a6, a2, a5, SP[a3, a4], n] - 
    S2[a1, a6, a2, SP[a3, a4], a5, n] - S2[a1, a6, a2, SP[a3, a5], a4, n] + 
    S2[a2, n]*S2[a1, a6, a3, a4, a5, n] + S2[a1, a6, a3, a4, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a6, a3, a5, a4, n] + S2[a1, a6, a3, a5, SP[a2, a4], n] + 
    S2[a1, a6, a3, SP[a2, a4], a5, n] + S2[a1, a6, a3, SP[a2, a5], a4, n] - 
    S2[a3, n]*S2[a1, a6, a4, a2, a5, n] - S2[a1, a6, a4, a2, SP[a3, a5], n] + 
    S2[a2, n]*S2[a1, a6, a4, a3, a5, n] + S2[a1, a6, a4, a3, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a6, a4, a5, a3, n] + S2[a1, a6, a4, a5, SP[a2, a3], n] + 
    S2[a1, a6, a4, SP[a2, a5], a3, n] + S2[a2, n]*S2[a1, a6, a5, a3, a4, n] + 
    S2[a1, a6, a5, a3, SP[a2, a4], n] + S2[a2, n]*S2[a1, a6, a5, a4, a3, n] + 
    S2[a1, a6, a5, a4, SP[a2, a3], n] + S2[a1, a6, a5, SP[a2, a3], a4, n] + 
    S2[a1, a6, a5, SP[a2, a4], a3, n] + S2[a1, a6, SP[a2, a4], a3, a5, n] + 
    S2[a1, a6, SP[a2, a4], a5, a3, n] + S2[a1, a6, SP[a2, a5], a3, a4, n] + 
    S2[a1, a6, SP[a2, a5], a4, a3, n] - S2[a1, a6, SP[a3, a4], a2, a5, n] + 
    S2[a1, SP[a2, a5], a3, a4, a6, n] + S2[a1, SP[a2, a5], a3, a6, a4, n] + 
    S2[a1, SP[a2, a5], a4, a3, a6, n] + S2[a1, SP[a2, a5], a4, a6, a3, n] + 
    S2[a1, SP[a2, a5], a6, a3, a4, n] + S2[a1, SP[a2, a5], a6, a4, a3, n] + 
    S2[a1, SP[a2, a6], a3, a4, a5, n] + S2[a1, SP[a2, a6], a3, a5, a4, n] + 
    S2[a1, SP[a2, a6], a4, a3, a5, n] + S2[a1, SP[a2, a6], a4, a5, a3, n] + 
    S2[a1, SP[a2, a6], a5, a3, a4, n] + S2[a1, SP[a2, a6], a5, a4, a3, n] - 
    S2[a1, SP[a3, a6], a2, a4, a5, n] - S2[a1, SP[a3, a6], a2, a5, a4, n] - 
    S2[a1, SP[a3, a6], a4, a2, a5, n] - S2[a1, SP[a4, a6], a5, a2, a3, n] - 
    S2[a1, SP[a4, a6], a5, a3, a2, n] - S2[a1, SP[a5, a6], a2, a3, a4, n] - 
    S2[a1, SP[a5, a6], a2, a4, a3, n] - S2[a1, SP[a5, a6], a3, a2, a4, n] - 
    S2[a1, SP[a5, a6], a3, a4, a2, n] - S2[a1, SP[a5, a6], a4, a2, a3, n] - 
    S2[a1, SP[a5, a6], a4, a3, a2, n] - S2[a2, a1, a5, a3, SP[a4, a6], n] - 
    S2[a2, a1, a5, a6, SP[a3, a4], n] - S2[a2, a1, a5, SP[a3, a4], a6, n] - 
    S2[a2, a1, a5, SP[a4, a6], a3, n] - S2[a2, a1, a6, a3, SP[a4, a5], n] - 
    S2[a2, a1, a6, a5, SP[a3, a4], n] - S2[a2, a1, a6, SP[a3, a4], a5, n] - 
    S2[a2, a1, a6, SP[a4, a5], a3, n] - S2[a2, a1, SP[a4, a5], a3, a6, n] - 
    S2[a2, a1, SP[a4, a5], a6, a3, n] - S2[a2, a1, SP[a4, a6], a3, a5, n] - 
    S2[a2, a1, SP[a4, a6], a5, a3, n] + S2[a6, n]*S2[a2, a5, a1, a3, a4, n] + 
    S2[a6, n]*S2[a2, a5, a1, a4, a3, n] + S2[a2, a5, a1, a4, SP[a3, a6], n] - 
    S2[a2, a5, a1, a6, SP[a3, a4], n] - S2[a2, a5, a1, SP[a3, a4], a6, n] + 
    S2[a2, a5, a1, SP[a3, a6], a4, n] + S2[a6, n]*S2[a2, a5, a3, a1, a4, n] - 
    S2[a2, a5, a6, a1, SP[a3, a4], n] - S2[a2, a5, a6, SP[a1, a3], a4, n] - 
    S2[a2, a5, SP[a1, a3], a4, a6, n] - S2[a2, a5, SP[a1, a3], a6, a4, n] + 
    S2[a2, a5, SP[a3, a6], a1, a4, n] - S2[a2, a6, a1, a3, SP[a4, a5], n] + 
    S2[a3, n]*S2[a2, a6, a1, a4, a5, n] + S2[a2, a6, a1, a4, SP[a3, a5], n] + 
    S2[a3, n]*S2[a2, a6, a1, a5, a4, n] + S2[a2, a6, a1, SP[a3, a5], a4, n] - 
    S2[a2, a6, a1, SP[a4, a5], a3, n] - S2[a2, a6, a3, a1, SP[a4, a5], n] - 
    S2[a2, a6, a3, SP[a1, a5], a4, n] - S2[a2, a6, a5, a1, SP[a3, a4], n] - 
    S2[a2, a6, a5, SP[a1, a3], a4, n] - S2[a2, a6, SP[a1, a5], a3, a4, n] - 
    S2[a2, a6, SP[a1, a5], a4, a3, n] - S2[a2, SP[a1, a5], a3, a4, a6, n] - 
    S2[a2, SP[a1, a5], a3, a6, a4, n] - S2[a2, SP[a1, a5], a4, a3, a6, n] - 
    S2[a2, SP[a1, a5], a4, a6, a3, n] - S2[a2, SP[a1, a5], a6, a3, a4, n] - 
    S2[a2, SP[a1, a5], a6, a4, a3, n] - S2[a2, SP[a1, a6], a3, a4, a5, n] - 
    S2[a2, SP[a1, a6], a3, a5, a4, n] - S2[a2, SP[a1, a6], a4, a3, a5, n] - 
    S2[a2, SP[a1, a6], a4, a5, a3, n] - S2[a2, SP[a1, a6], a5, a3, a4, n] - 
    S2[a2, SP[a1, a6], a5, a4, a3, n] + S2[a2, SP[a3, a6], a1, a4, a5, n] + 
    S2[a2, SP[a3, a6], a1, a5, a4, n] + S2[a2, SP[a5, a6], a1, a3, a4, n] + 
    S2[a2, SP[a5, a6], a1, a4, a3, n] + S2[a2, SP[a5, a6], a3, a1, a4, n] + 
    S2[a3, a1, a6, a2, SP[a4, a5], n] + S2[a3, a1, a6, SP[a2, a4], a5, n] + 
    S2[a3, a1, SP[a4, a6], a2, a5, n] + S2[a3, a6, a1, a2, SP[a4, a5], n] - 
    S2[a2, n]*S2[a3, a6, a1, a4, a5, n] - S2[a3, a6, a1, a4, SP[a2, a5], n] - 
    S2[a2, n]*S2[a3, a6, a1, a5, a4, n] - S2[a3, a6, a1, a5, SP[a2, a4], n] - 
    S2[a3, a6, a1, SP[a2, a5], a4, n] + S2[a3, a6, a2, a1, SP[a4, a5], n] + 
    S2[a3, a6, a2, SP[a1, a5], a4, n] + S2[a3, SP[a1, a6], a2, a4, a5, n] + 
    S2[a3, SP[a1, a6], a2, a5, a4, n] + S2[a3, SP[a1, a6], a4, a2, a5, n] - 
    S2[a3, SP[a2, a6], a1, a4, a5, n] - S2[a3, SP[a2, a6], a1, a5, a4, n] + 
    S2[a3, n]*S2[a6, a1, a4, a5, a2, n] + S2[a6, a1, a4, a5, SP[a2, a3], n] + 
    S2[a6, a1, a4, SP[a3, a5], a2, n] + S2[a3, n]*S2[a6, a1, a5, a2, a4, n] + 
    S2[a6, a1, a5, a2, SP[a3, a4], n] + S2[a3, n]*S2[a6, a1, a5, a4, a2, n] + 
    S2[a6, a1, a5, a4, SP[a2, a3], n] + S2[a6, a1, a5, SP[a2, a3], a4, n] + 
    S2[a6, a1, a5, SP[a3, a4], a2, n] + S2[a6, a1, SP[a3, a4], a5, a2, n] + 
    S2[a6, a1, SP[a3, a5], a2, a4, n] + S2[a6, a1, SP[a3, a5], a4, a2, n] - 
    S2[a3, n]*S2[a6, a2, a5, a1, a4, n] - S2[a6, a2, a5, a1, SP[a3, a4], n] - 
    S2[a6, a2, a5, SP[a1, a3], a4, n] - S2[a6, a2, SP[a3, a5], a1, a4, n] - 
    S2[a1, n]*S2[a6, a3, a4, a5, a2, n] - S2[a6, a3, a4, a5, SP[a1, a2], n] - 
    S2[a6, a3, a4, SP[a1, a5], a2, n] + S2[a2, n]*S2[a6, a3, a5, a1, a4, n] + 
    S2[a6, a3, a5, a1, SP[a2, a4], n] - S2[a1, n]*S2[a6, a3, a5, a2, a4, n] - 
    S2[a6, a3, a5, a2, SP[a1, a4], n] - S2[a1, n]*S2[a6, a3, a5, a4, a2, n] - 
    S2[a6, a3, a5, a4, SP[a1, a2], n] - S2[a6, a3, a5, SP[a1, a4], a2, n] - 
    S2[a6, a3, SP[a1, a4], a5, a2, n] - S2[a6, a3, SP[a1, a5], a2, a4, n] - 
    S2[a6, a3, SP[a1, a5], a4, a2, n] + S2[a6, a3, SP[a2, a5], a1, a4, n] - 
    S2[a1, n]*S2[a6, a4, a3, a5, a2, n] - S2[a6, a4, a3, a5, SP[a1, a2], n] - 
    S2[a6, a4, a3, SP[a1, a5], a2, n] - S2[a6, a4, SP[a1, a3], a5, a2, n] - 
    S2[a6, SP[a1, a4], a3, a5, a2, n] - S2[SP[a1, a6], a3, a4, a5, a2, n] - 
    S2[SP[a1, a6], a3, a5, a2, a4, n] - S2[SP[a1, a6], a3, a5, a4, a2, n] - 
    S2[SP[a1, a6], a4, a3, a5, a2, n] - S2[SP[a1, a6], a4, a5, a2, a3, n] - 
    S2[SP[a1, a6], a4, a5, a3, a2, n] - S2[SP[a1, a6], a5, a2, a3, a4, n] - 
    S2[SP[a1, a6], a5, a2, a4, a3, n] - S2[SP[a1, a6], a5, a3, a2, a4, n] - 
    S2[SP[a1, a6], a5, a3, a4, a2, n] - S2[SP[a1, a6], a5, a4, a2, a3, n] - 
    S2[SP[a1, a6], a5, a4, a3, a2, n] + S2[SP[a2, a6], a3, a5, a1, a4, n] + 
    S2[SP[a2, a6], a5, a1, a3, a4, n] + S2[SP[a2, a6], a5, a1, a4, a3, n] + 
    S2[SP[a2, a6], a5, a3, a1, a4, n] + S2[SP[a3, a6], a1, a4, a5, a2, n] + 
    S2[SP[a3, a6], a1, a5, a2, a4, n] + S2[SP[a3, a6], a1, a5, a4, a2, n] - 
    S2[SP[a3, a6], a2, a5, a1, a4, n] + S2[a6, a3, a4, a1, a5, a2, n] + 
    S2[a6, a3, a4, a5, a1, a2, n] + S2[a6, a3, a4, a5, a2, a1, n] + 
    S2[a6, a3, a5, a2, a4, a1, n] + S2[a6, a3, a5, a4, a1, a2, n] + 
    S2[a6, a3, a5, a4, a2, a1, n] + S2[a6, a4, a1, a3, a5, a2, n] + 
    S2[a6, a4, a3, a1, a5, a2, n] + S2[a6, a4, a3, a5, a1, a2, n] + 
    S2[a6, a4, a3, a5, a2, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a1_, a4_, a6_, a5_, a2_, a3_, n_] :> 
  S2[a1, a4, n]*S2[a2, a3, a5, a6, n] + S2[a1, a4, n]*S2[a2, a3, a6, a5, n] - 
    S2[a2, a3, SP[a1, a5], SP[a4, a6], n] - S2[a2, a3, SP[a1, a6], 
     SP[a4, a5], n] + S2[a1, a4, n]*S2[a2, a5, a3, a6, n] + 
    S2[a1, a4, n]*S2[a2, a5, a6, a3, n] - S2[a2, a5, SP[a1, a3], SP[a4, a6], 
     n] - S2[a2, a5, SP[a1, a6], SP[a3, a4], n] + 
    S2[a1, a4, n]*S2[a2, a6, a3, a5, n] + S2[a1, a4, n]*
     S2[a2, a6, a5, a3, n] - S2[a2, a6, SP[a1, a3], SP[a4, a5], n] - 
    S2[a2, a6, SP[a1, a5], SP[a3, a4], n] - S2[a2, SP[a1, a3], a5, 
     SP[a4, a6], n] - S2[a2, SP[a1, a3], a6, SP[a4, a5], n] - 
    S2[a2, SP[a1, a3], SP[a4, a5], a6, n] - S2[a2, SP[a1, a3], SP[a4, a6], 
     a5, n] - S2[a2, SP[a1, a5], a3, SP[a4, a6], n] - 
    S2[a2, SP[a1, a5], a6, SP[a3, a4], n] - S2[a2, SP[a1, a5], SP[a3, a4], 
     a6, n] - S2[a2, SP[a1, a5], SP[a4, a6], a3, n] - 
    S2[a2, SP[a1, a6], a3, SP[a4, a5], n] - S2[a2, SP[a1, a6], a5, 
     SP[a3, a4], n] - S2[a2, SP[a1, a6], SP[a3, a4], a5, n] - 
    S2[a2, SP[a1, a6], SP[a4, a5], a3, n] - S2[a1, a4, n]*
     S2[a5, a6, a2, a3, n] + S2[a5, a6, SP[a1, a2], SP[a3, a4], n] + 
    S2[a5, SP[a1, a6], a2, SP[a3, a4], n] + S2[a5, SP[a1, a6], SP[a2, a4], 
     a3, n] - S2[SP[a1, a2], a3, a5, SP[a4, a6], n] - 
    S2[SP[a1, a2], a3, a6, SP[a4, a5], n] - S2[SP[a1, a2], a3, SP[a4, a5], 
     a6, n] - S2[SP[a1, a2], a3, SP[a4, a6], a5, n] - 
    S2[SP[a1, a2], a5, a3, SP[a4, a6], n] - S2[SP[a1, a2], a5, a6, 
     SP[a3, a4], n] - S2[SP[a1, a2], a5, SP[a3, a4], a6, n] - 
    S2[SP[a1, a2], a5, SP[a4, a6], a3, n] - S2[SP[a1, a2], a6, a3, 
     SP[a4, a5], n] - S2[SP[a1, a2], a6, a5, SP[a3, a4], n] - 
    S2[SP[a1, a2], a6, SP[a3, a4], a5, n] - S2[SP[a1, a2], a6, SP[a4, a5], 
     a3, n] - S2[SP[a1, a2], SP[a3, a4], a5, a6, n] - 
    S2[SP[a1, a2], SP[a3, a4], a6, a5, n] - S2[SP[a1, a2], SP[a4, a5], a3, 
     a6, n] - S2[SP[a1, a2], SP[a4, a5], a6, a3, n] - 
    S2[SP[a1, a2], SP[a4, a6], a3, a5, n] - S2[SP[a1, a2], SP[a4, a6], a5, 
     a3, n] + S2[SP[a1, a5], a6, a2, SP[a3, a4], n] + 
    S2[SP[a1, a5], a6, SP[a2, a4], a3, n] + S2[SP[a1, a5], SP[a4, a6], a2, 
     a3, n] + S2[a1, a2, a3, a5, SP[a4, a6], n] + 
    S2[a1, a2, a3, a6, SP[a4, a5], n] + S2[a1, a2, a3, SP[a4, a5], a6, n] + 
    S2[a1, a2, a3, SP[a4, a6], a5, n] + S2[a1, a2, a5, a3, SP[a4, a6], n] + 
    S2[a1, a2, a5, a6, SP[a3, a4], n] + S2[a1, a2, a5, SP[a3, a4], a6, n] + 
    S2[a1, a2, a5, SP[a4, a6], a3, n] + S2[a1, a2, a6, a3, SP[a4, a5], n] + 
    S2[a1, a2, a6, a5, SP[a3, a4], n] + S2[a1, a2, a6, SP[a3, a4], a5, n] + 
    S2[a1, a2, a6, SP[a4, a5], a3, n] + S2[a1, a2, SP[a3, a4], a5, a6, n] + 
    S2[a1, a2, SP[a3, a4], a6, a5, n] + S2[a1, a2, SP[a4, a5], a3, a6, n] + 
    S2[a1, a2, SP[a4, a5], a6, a3, n] + S2[a1, a2, SP[a4, a6], a3, a5, n] + 
    S2[a1, a2, SP[a4, a6], a5, a3, n] + S2[a6, n]*S2[a1, a3, a2, a4, a5, n] + 
    S2[a1, a3, a2, a4, SP[a5, a6], n] + S2[a6, n]*S2[a1, a3, a2, a5, a4, n] + 
    S2[a1, a3, a2, a5, SP[a4, a6], n] + S2[a1, a3, a2, SP[a4, a6], a5, n] + 
    S2[a1, a3, a2, SP[a5, a6], a4, n] + S2[a6, n]*S2[a1, a3, a4, a2, a5, n] + 
    S2[a1, a3, a4, a2, SP[a5, a6], n] + S2[a6, n]*S2[a1, a3, a4, a5, a2, n] - 
    S2[a2, n]*S2[a1, a3, a4, a5, a6, n] - 
    S2[a2, n]*S2[a1, a3, a4, a6, a5, n] - S2[a1, a3, a4, a6, SP[a2, a5], n] - 
    S2[a1, a3, a4, SP[a2, a5], a6, n] + S2[a1, a3, a4, SP[a5, a6], a2, n] + 
    S2[a6, n]*S2[a1, a3, a5, a2, a4, n] + S2[a1, a3, a5, a2, SP[a4, a6], n] + 
    S2[a6, n]*S2[a1, a3, a5, a4, a2, n] - 
    S2[a2, n]*S2[a1, a3, a5, a4, a6, n] - 
    S2[a2, n]*S2[a1, a3, a5, a6, a4, n] - S2[a1, a3, a5, a6, SP[a2, a4], n] - 
    S2[a1, a3, a5, SP[a2, a4], a6, n] + S2[a1, a3, a5, SP[a4, a6], a2, n] - 
    S2[a2, n]*S2[a1, a3, a6, a4, a5, n] - S2[a1, a3, a6, a4, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a3, a6, a5, a4, n] - S2[a1, a3, a6, a5, SP[a2, a4], n] - 
    S2[a1, a3, a6, SP[a2, a4], a5, n] - S2[a1, a3, a6, SP[a2, a5], a4, n] - 
    S2[a1, a3, SP[a2, a4], a5, a6, n] - S2[a1, a3, SP[a2, a4], a6, a5, n] - 
    S2[a1, a3, SP[a2, a5], a4, a6, n] - S2[a1, a3, SP[a2, a5], a6, a4, n] + 
    S2[a1, a3, SP[a4, a6], a2, a5, n] + S2[a1, a3, SP[a4, a6], a5, a2, n] + 
    S2[a1, a3, SP[a5, a6], a2, a4, n] + S2[a1, a3, SP[a5, a6], a4, a2, n] + 
    S2[a6, n]*S2[a1, a4, a3, a2, a5, n] + S2[a1, a4, a3, a2, SP[a5, a6], n] + 
    S2[a6, n]*S2[a1, a4, a3, a5, a2, n] - 
    S2[a2, n]*S2[a1, a4, a3, a5, a6, n] - 
    S2[a2, n]*S2[a1, a4, a3, a6, a5, n] - S2[a1, a4, a3, a6, SP[a2, a5], n] - 
    S2[a1, a4, a3, SP[a2, a5], a6, n] + S2[a1, a4, a3, SP[a5, a6], a2, n] + 
    S2[a6, n]*S2[a1, a4, a5, a2, a3, n] + S2[a1, a4, a5, a2, SP[a3, a6], n] + 
    S2[a6, n]*S2[a1, a4, a5, a3, a2, n] - 
    S2[a2, n]*S2[a1, a4, a5, a3, a6, n] - 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] - S2[a1, a4, a5, a6, SP[a2, a3], n] - 
    S2[a1, a4, a5, SP[a2, a3], a6, n] + S2[a1, a4, a5, SP[a3, a6], a2, n] + 
    S2[a5, n]*S2[a1, a4, a6, a2, a3, n] + S2[a1, a4, a6, a2, SP[a3, a5], n] - 
    S2[a2, n]*S2[a1, a4, a6, a3, a5, n] - S2[a1, a4, a6, a3, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a4, a6, a5, a3, n] - S2[a1, a4, a6, a5, SP[a2, a3], n] - 
    S2[a1, a4, a6, SP[a2, a3], a5, n] - S2[a1, a4, SP[a2, a3], a5, a6, n] - 
    S2[a1, a4, SP[a2, a3], a6, a5, n] - S2[a1, a4, SP[a2, a5], a3, a6, n] - 
    S2[a1, a4, SP[a2, a5], a6, a3, n] - S2[a1, a4, SP[a2, a6], a3, a5, n] - 
    S2[a1, a4, SP[a2, a6], a5, a3, n] + S2[a1, a4, SP[a3, a6], a2, a5, n] + 
    S2[a1, a4, SP[a3, a6], a5, a2, n] + 2*S2[a1, a4, SP[a5, a6], a2, a3, n] + 
    S2[a1, a4, SP[a5, a6], a3, a2, n] + S2[a6, n]*S2[a1, a5, a2, a3, a4, n] + 
    S2[a1, a5, a2, a3, SP[a4, a6], n] + S2[a6, n]*S2[a1, a5, a2, a4, a3, n] + 
    S2[a1, a5, a2, a4, SP[a3, a6], n] + S2[a1, a5, a2, SP[a3, a6], a4, n] + 
    S2[a1, a5, a2, SP[a4, a6], a3, n] + S2[a6, n]*S2[a1, a5, a3, a2, a4, n] + 
    S2[a1, a5, a3, a2, SP[a4, a6], n] + S2[a6, n]*S2[a1, a5, a3, a4, a2, n] - 
    S2[a2, n]*S2[a1, a5, a3, a4, a6, n] - 
    S2[a2, n]*S2[a1, a5, a3, a6, a4, n] - S2[a1, a5, a3, a6, SP[a2, a4], n] - 
    S2[a1, a5, a3, SP[a2, a4], a6, n] + S2[a1, a5, a3, SP[a4, a6], a2, n] + 
    S2[a6, n]*S2[a1, a5, a4, a2, a3, n] + S2[a1, a5, a4, a2, SP[a3, a6], n] + 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] - 
    S2[a2, n]*S2[a1, a5, a4, a3, a6, n] - 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] - S2[a1, a5, a4, a6, SP[a2, a3], n] - 
    S2[a1, a5, a4, SP[a2, a3], a6, n] + S2[a1, a5, a4, SP[a3, a6], a2, n] - 
    S2[a1, a5, a6, a2, SP[a3, a4], n] - S2[a2, n]*S2[a1, a5, a6, a3, a4, n] - 
    S2[a1, a5, a6, a3, SP[a2, a4], n] - S2[a2, n]*S2[a1, a5, a6, a4, a3, n] - 
    S2[a1, a5, a6, a4, SP[a2, a3], n] - S2[a1, a5, a6, SP[a2, a3], a4, n] - 
    2*S2[a1, a5, a6, SP[a2, a4], a3, n] - S2[a1, a5, SP[a2, a3], a4, a6, n] - 
    S2[a1, a5, SP[a2, a3], a6, a4, n] - S2[a1, a5, SP[a2, a4], a3, a6, n] - 
    S2[a1, a5, SP[a2, a4], a6, a3, n] + S2[a1, a5, SP[a3, a6], a2, a4, n] + 
    S2[a1, a5, SP[a3, a6], a4, a2, n] + S2[a1, a5, SP[a4, a6], a3, a2, n] + 
    S2[a5, n]*S2[a1, a6, a2, a3, a4, n] + S2[a1, a6, a2, a3, SP[a4, a5], n] + 
    S2[a5, n]*S2[a1, a6, a2, a4, a3, n] + S2[a1, a6, a2, a4, SP[a3, a5], n] + 
    S2[a1, a6, a2, SP[a3, a5], a4, n] + S2[a1, a6, a2, SP[a4, a5], a3, n] - 
    S2[a2, n]*S2[a1, a6, a3, a4, a5, n] - S2[a1, a6, a3, a4, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a6, a3, a5, a4, n] - S2[a1, a6, a3, a5, SP[a2, a4], n] - 
    S2[a1, a6, a3, SP[a2, a4], a5, n] - S2[a1, a6, a3, SP[a2, a5], a4, n] + 
    S2[a5, n]*S2[a1, a6, a4, a2, a3, n] + S2[a1, a6, a4, a2, SP[a3, a5], n] - 
    S2[a2, n]*S2[a1, a6, a4, a3, a5, n] - S2[a1, a6, a4, a3, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a6, a4, a5, a3, n] - S2[a1, a6, a4, a5, SP[a2, a3], n] - 
    S2[a1, a6, a4, SP[a2, a3], a5, n] - S2[a2, n]*S2[a1, a6, a5, a3, a4, n] - 
    S2[a1, a6, a5, a3, SP[a2, a4], n] - S2[a2, n]*S2[a1, a6, a5, a4, a3, n] - 
    S2[a1, a6, a5, a4, SP[a2, a3], n] - S2[a1, a6, a5, SP[a2, a3], a4, n] - 
    S2[a1, a6, a5, SP[a2, a4], a3, n] - S2[a1, a6, SP[a2, a3], a4, a5, n] - 
    S2[a1, a6, SP[a2, a3], a5, a4, n] - S2[a1, a6, SP[a2, a4], a3, a5, n] - 
    S2[a1, a6, SP[a2, a4], a5, a3, n] + S2[a1, a6, SP[a4, a5], a2, a3, n] - 
    S2[a1, SP[a2, a3], a4, a5, a6, n] - S2[a1, SP[a2, a3], a4, a6, a5, n] - 
    S2[a1, SP[a2, a3], a5, a4, a6, n] - S2[a1, SP[a2, a3], a5, a6, a4, n] - 
    S2[a1, SP[a2, a3], a6, a4, a5, n] - S2[a1, SP[a2, a3], a6, a5, a4, n] - 
    S2[a1, SP[a2, a5], a3, a4, a6, n] - S2[a1, SP[a2, a5], a3, a6, a4, n] - 
    S2[a1, SP[a2, a5], a4, a3, a6, n] - S2[a1, SP[a2, a5], a4, a6, a3, n] - 
    S2[a1, SP[a2, a5], a6, a3, a4, n] - S2[a1, SP[a2, a5], a6, a4, a3, n] - 
    S2[a1, SP[a2, a6], a3, a4, a5, n] - S2[a1, SP[a2, a6], a3, a5, a4, n] - 
    S2[a1, SP[a2, a6], a4, a3, a5, n] - S2[a1, SP[a2, a6], a4, a5, a3, n] - 
    S2[a1, SP[a2, a6], a5, a3, a4, n] - S2[a1, SP[a2, a6], a5, a4, a3, n] + 
    S2[a1, SP[a3, a6], a2, a4, a5, n] + S2[a1, SP[a3, a6], a2, a5, a4, n] + 
    S2[a1, SP[a3, a6], a4, a2, a5, n] + S2[a1, SP[a3, a6], a4, a5, a2, n] + 
    S2[a1, SP[a3, a6], a5, a2, a4, n] + S2[a1, SP[a3, a6], a5, a4, a2, n] + 
    S2[a1, SP[a4, a6], a3, a2, a5, n] + S2[a1, SP[a4, a6], a3, a5, a2, n] + 
    S2[a1, SP[a4, a6], a5, a2, a3, n] + S2[a1, SP[a4, a6], a5, a3, a2, n] + 
    2*S2[a1, SP[a5, a6], a2, a3, a4, n] + 
    2*S2[a1, SP[a5, a6], a2, a4, a3, n] + S2[a1, SP[a5, a6], a3, a2, a4, n] + 
    S2[a1, SP[a5, a6], a3, a4, a2, n] + 2*S2[a1, SP[a5, a6], a4, a2, a3, n] + 
    S2[a1, SP[a5, a6], a4, a3, a2, n] + S2[a2, a1, a3, a5, SP[a4, a6], n] + 
    S2[a2, a1, a3, a6, SP[a4, a5], n] + S2[a2, a1, a3, SP[a4, a5], a6, n] + 
    S2[a2, a1, a3, SP[a4, a6], a5, n] + S2[a2, a1, a5, a3, SP[a4, a6], n] + 
    S2[a2, a1, a5, a6, SP[a3, a4], n] + S2[a2, a1, a5, SP[a3, a4], a6, n] + 
    S2[a2, a1, a5, SP[a4, a6], a3, n] + S2[a2, a1, a6, a3, SP[a4, a5], n] + 
    S2[a2, a1, a6, a5, SP[a3, a4], n] + S2[a2, a1, a6, SP[a3, a4], a5, n] + 
    S2[a2, a1, a6, SP[a4, a5], a3, n] + S2[a2, a1, SP[a3, a4], a5, a6, n] + 
    S2[a2, a1, SP[a3, a4], a6, a5, n] + S2[a2, a1, SP[a4, a5], a3, a6, n] + 
    S2[a2, a1, SP[a4, a5], a6, a3, n] + S2[a2, a1, SP[a4, a6], a3, a5, n] + 
    S2[a2, a1, SP[a4, a6], a5, a3, n] - S2[a6, n]*S2[a2, a3, a1, a4, a5, n] - 
    S2[a2, a3, a1, a4, SP[a5, a6], n] - S2[a6, n]*S2[a2, a3, a1, a5, a4, n] + 
    S2[a2, a3, a1, a6, SP[a4, a5], n] + S2[a2, a3, a1, SP[a4, a5], a6, n] - 
    S2[a2, a3, a1, SP[a5, a6], a4, n] - S2[a6, n]*S2[a2, a3, a5, a1, a4, n] + 
    S2[a2, a3, a6, a1, SP[a4, a5], n] + S2[a2, a3, a6, SP[a1, a5], a4, n] + 
    S2[a2, a3, SP[a1, a5], a4, a6, n] + S2[a2, a3, SP[a1, a5], a6, a4, n] - 
    S2[a2, a3, SP[a5, a6], a1, a4, n] - S2[a6, n]*S2[a2, a5, a1, a3, a4, n] - 
    S2[a6, n]*S2[a2, a5, a1, a4, a3, n] - S2[a2, a5, a1, a4, SP[a3, a6], n] + 
    S2[a2, a5, a1, a6, SP[a3, a4], n] + S2[a2, a5, a1, SP[a3, a4], a6, n] - 
    S2[a2, a5, a1, SP[a3, a6], a4, n] - S2[a6, n]*S2[a2, a5, a3, a1, a4, n] + 
    S2[a2, a5, a6, a1, SP[a3, a4], n] + S2[a2, a5, a6, SP[a1, a3], a4, n] + 
    S2[a2, a5, SP[a1, a3], a4, a6, n] + S2[a2, a5, SP[a1, a3], a6, a4, n] - 
    S2[a2, a5, SP[a3, a6], a1, a4, n] - S2[a5, n]*S2[a2, a6, a1, a3, a4, n] - 
    S2[a5, n]*S2[a2, a6, a1, a4, a3, n] - S2[a2, a6, a1, a4, SP[a3, a5], n] + 
    S2[a2, a6, a1, a5, SP[a3, a4], n] + S2[a2, a6, a1, SP[a3, a4], a5, n] - 
    S2[a2, a6, a1, SP[a3, a5], a4, n] + S2[a2, a6, a3, a1, SP[a4, a5], n] + 
    S2[a2, a6, a3, SP[a1, a5], a4, n] + S2[a2, a6, a5, a1, SP[a3, a4], n] + 
    S2[a2, a6, a5, SP[a1, a3], a4, n] + S2[a2, a6, SP[a1, a3], a4, a5, n] + 
    S2[a2, a6, SP[a1, a3], a5, a4, n] + S2[a2, SP[a1, a3], a4, a5, a6, n] + 
    S2[a2, SP[a1, a3], a4, a6, a5, n] + S2[a2, SP[a1, a3], a5, a4, a6, n] + 
    S2[a2, SP[a1, a3], a5, a6, a4, n] + S2[a2, SP[a1, a3], a6, a4, a5, n] + 
    S2[a2, SP[a1, a3], a6, a5, a4, n] + S2[a2, SP[a1, a5], a3, a4, a6, n] + 
    S2[a2, SP[a1, a5], a3, a6, a4, n] + S2[a2, SP[a1, a5], a4, a3, a6, n] + 
    S2[a2, SP[a1, a5], a4, a6, a3, n] + S2[a2, SP[a1, a5], a6, a3, a4, n] + 
    S2[a2, SP[a1, a5], a6, a4, a3, n] + S2[a2, SP[a1, a6], a3, a4, a5, n] + 
    S2[a2, SP[a1, a6], a3, a5, a4, n] + S2[a2, SP[a1, a6], a4, a3, a5, n] + 
    S2[a2, SP[a1, a6], a4, a5, a3, n] + S2[a2, SP[a1, a6], a5, a3, a4, n] + 
    S2[a2, SP[a1, a6], a5, a4, a3, n] - S2[a2, SP[a3, a6], a1, a4, a5, n] - 
    S2[a2, SP[a3, a6], a1, a5, a4, n] - S2[a2, SP[a3, a6], a5, a1, a4, n] - 
    2*S2[a2, SP[a5, a6], a1, a3, a4, n] - 
    2*S2[a2, SP[a5, a6], a1, a4, a3, n] - S2[a2, SP[a5, a6], a3, a1, a4, n] - 
    S2[a5, a1, a6, a2, SP[a3, a4], n] - S2[a5, a1, a6, SP[a2, a4], a3, n] - 
    S2[a5, a1, SP[a4, a6], a2, a3, n] - S2[a5, a6, a1, a2, SP[a3, a4], n] + 
    S2[a2, n]*S2[a5, a6, a1, a3, a4, n] + S2[a5, a6, a1, a3, SP[a2, a4], n] + 
    S2[a2, n]*S2[a5, a6, a1, a4, a3, n] + S2[a5, a6, a1, a4, SP[a2, a3], n] + 
    S2[a5, a6, a1, SP[a2, a3], a4, n] - S2[a5, a6, a2, a1, SP[a3, a4], n] - 
    S2[a5, a6, a2, SP[a1, a3], a4, n] - S2[a5, SP[a1, a6], a2, a3, a4, n] - 
    S2[a5, SP[a1, a6], a2, a4, a3, n] - S2[a5, SP[a1, a6], a4, a2, a3, n] + 
    S2[a5, SP[a2, a6], a1, a3, a4, n] + S2[a5, SP[a2, a6], a1, a4, a3, n] - 
    S2[a5, n]*S2[a6, a1, a3, a2, a4, n] - S2[a6, a1, a3, a2, SP[a4, a5], n] - 
    S2[a5, n]*S2[a6, a1, a3, a4, a2, n] - S2[a6, a1, a3, a4, SP[a2, a5], n] - 
    S2[a6, a1, a3, SP[a2, a5], a4, n] - S2[a6, a1, a3, SP[a4, a5], a2, n] - 
    S2[a5, n]*S2[a6, a1, a4, a3, a2, n] - S2[a6, a1, a4, a3, SP[a2, a5], n] - 
    S2[a6, a1, a4, SP[a3, a5], a2, n] - S2[a6, a1, SP[a3, a5], a2, a4, n] - 
    S2[a6, a1, SP[a3, a5], a4, a2, n] - S2[a6, a1, SP[a4, a5], a3, a2, n] + 
    S2[a5, n]*S2[a6, a2, a3, a1, a4, n] + S2[a6, a2, a3, a1, SP[a4, a5], n] + 
    S2[a6, a2, a3, SP[a1, a5], a4, n] + S2[a6, a2, SP[a3, a5], a1, a4, n] - 
    S2[a1, n]*S2[a6, a4, a5, a2, a3, n] - S2[a6, a4, a5, a2, SP[a1, a3], n] - 
    S2[a6, a4, a5, SP[a1, a2], a3, n] - S2[a6, a4, SP[a1, a5], a2, a3, n] + 
    S2[a2, n]*S2[a6, a5, a1, a3, a4, n] + S2[a6, a5, a1, a3, SP[a2, a4], n] + 
    S2[a2, n]*S2[a6, a5, a1, a4, a3, n] + S2[a6, a5, a1, a4, SP[a2, a3], n] + 
    S2[a6, a5, a1, SP[a2, a3], a4, n] + S2[a6, a5, a1, SP[a2, a4], a3, n] - 
    S2[a1, n]*S2[a6, a5, a2, a3, a4, n] - S2[a6, a5, a2, a3, SP[a1, a4], n] - 
    S2[a1, n]*S2[a6, a5, a2, a4, a3, n] - S2[a6, a5, a2, a4, SP[a1, a3], n] - 
    S2[a6, a5, a2, SP[a1, a3], a4, n] - S2[a6, a5, a2, SP[a1, a4], a3, n] - 
    S2[a1, n]*S2[a6, a5, a4, a2, a3, n] - S2[a6, a5, a4, a2, SP[a1, a3], n] - 
    S2[a6, a5, a4, SP[a1, a2], a3, n] - S2[a6, a5, SP[a1, a4], a2, a3, n] - 
    S2[a6, SP[a1, a4], a5, a2, a3, n] - S2[a6, SP[a1, a5], a2, a3, a4, n] - 
    S2[a6, SP[a1, a5], a2, a4, a3, n] - S2[a6, SP[a1, a5], a3, a2, a4, n] - 
    S2[a6, SP[a1, a5], a3, a4, a2, n] - S2[a6, SP[a1, a5], a4, a2, a3, n] - 
    S2[a6, SP[a1, a5], a4, a3, a2, n] + S2[a6, SP[a2, a5], a1, a3, a4, n] + 
    S2[a6, SP[a2, a5], a1, a4, a3, n] + S2[a6, SP[a2, a5], a3, a1, a4, n] + 
    S2[SP[a1, a6], a3, a2, a4, a5, n] + S2[SP[a1, a6], a3, a2, a5, a4, n] + 
    S2[SP[a1, a6], a3, a4, a2, a5, n] + S2[SP[a1, a6], a3, a4, a5, a2, n] + 
    S2[SP[a1, a6], a3, a5, a2, a4, n] + S2[SP[a1, a6], a3, a5, a4, a2, n] + 
    S2[SP[a1, a6], a4, a3, a2, a5, n] + S2[SP[a1, a6], a4, a3, a5, a2, n] + 
    S2[SP[a1, a6], a4, a5, a3, a2, n] + S2[SP[a1, a6], a5, a3, a2, a4, n] + 
    S2[SP[a1, a6], a5, a3, a4, a2, n] + S2[SP[a1, a6], a5, a4, a3, a2, n] - 
    S2[SP[a2, a6], a3, a1, a4, a5, n] - S2[SP[a2, a6], a3, a1, a5, a4, n] - 
    S2[SP[a2, a6], a3, a5, a1, a4, n] - S2[SP[a2, a6], a5, a3, a1, a4, n] - 
    S2[SP[a5, a6], a1, a3, a2, a4, n] - S2[SP[a5, a6], a1, a3, a4, a2, n] - 
    S2[SP[a5, a6], a1, a4, a3, a2, n] + S2[SP[a5, a6], a2, a3, a1, a4, n] + 
    S2[a6, a4, a1, a5, a2, a3, n] + S2[a6, a4, a5, a1, a2, a3, n] + 
    S2[a6, a4, a5, a2, a1, a3, n] + S2[a6, a4, a5, a2, a3, a1, n] + 
    S2[a6, a5, a2, a3, a4, a1, n] + S2[a6, a5, a2, a4, a1, a3, n] + 
    S2[a6, a5, a2, a4, a3, a1, n] + S2[a6, a5, a4, a1, a2, a3, n] + 
    S2[a6, a5, a4, a2, a1, a3, n] + S2[a6, a5, a4, a2, a3, a1, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a1_, a4_, a6_, a5_, a3_, a2_, n_] :> 
  -(S2[a1, a4, n]*S2[a2, a3, a5, a6, n]) - S2[a1, a4, n]*
     S2[a2, a3, a6, a5, n] + S2[a2, a3, SP[a1, a5], SP[a4, a6], n] + 
    S2[a2, a3, SP[a1, a6], SP[a4, a5], n] - S2[a1, a4, n]*
     S2[a2, a6, a3, a5, n] - S2[a1, a4, n]*S2[a2, a6, a5, a3, n] + 
    S2[a2, a6, SP[a1, a3], SP[a4, a5], n] + S2[a2, a6, SP[a1, a5], 
     SP[a3, a4], n] + S2[a2, SP[a1, a3], a5, SP[a4, a6], n] + 
    S2[a2, SP[a1, a3], a6, SP[a4, a5], n] + S2[a2, SP[a1, a3], SP[a4, a5], 
     a6, n] + S2[a2, SP[a1, a3], SP[a4, a6], a5, n] + 
    S2[a2, SP[a1, a6], a3, SP[a4, a5], n] + S2[a2, SP[a1, a6], a5, 
     SP[a3, a4], n] + S2[a2, SP[a1, a6], SP[a3, a4], a5, n] + 
    S2[a2, SP[a1, a6], SP[a4, a5], a3, n] + S2[a1, a4, n]*
     S2[a5, a6, a2, a3, n] - S2[a5, a6, SP[a1, a2], SP[a3, a4], n] - 
    S2[a5, SP[a1, a6], a2, SP[a3, a4], n] - S2[a5, SP[a1, a6], SP[a2, a4], 
     a3, n] + S2[SP[a1, a2], a3, a5, SP[a4, a6], n] + 
    S2[SP[a1, a2], a3, a6, SP[a4, a5], n] + S2[SP[a1, a2], a3, SP[a4, a5], 
     a6, n] + S2[SP[a1, a2], a3, SP[a4, a6], a5, n] + 
    S2[SP[a1, a2], a6, a3, SP[a4, a5], n] + S2[SP[a1, a2], a6, a5, 
     SP[a3, a4], n] + S2[SP[a1, a2], a6, SP[a3, a4], a5, n] + 
    S2[SP[a1, a2], a6, SP[a4, a5], a3, n] + S2[SP[a1, a2], SP[a3, a4], a5, 
     a6, n] + S2[SP[a1, a2], SP[a3, a4], a6, a5, n] + 
    S2[SP[a1, a2], SP[a4, a6], a3, a5, n] + S2[SP[a1, a2], SP[a4, a6], a5, 
     a3, n] - S2[SP[a1, a5], a6, a2, SP[a3, a4], n] - 
    S2[SP[a1, a5], a6, SP[a2, a4], a3, n] - S2[SP[a1, a5], SP[a4, a6], a2, 
     a3, n] - S2[a1, a2, a3, a5, SP[a4, a6], n] - 
    S2[a1, a2, a3, a6, SP[a4, a5], n] - S2[a1, a2, a3, SP[a4, a5], a6, n] - 
    S2[a1, a2, a3, SP[a4, a6], a5, n] - S2[a1, a2, a6, a3, SP[a4, a5], n] - 
    S2[a1, a2, a6, a5, SP[a3, a4], n] - S2[a1, a2, a6, SP[a3, a4], a5, n] - 
    S2[a1, a2, a6, SP[a4, a5], a3, n] - S2[a1, a2, SP[a3, a4], a5, a6, n] - 
    S2[a1, a2, SP[a3, a4], a6, a5, n] - S2[a1, a2, SP[a4, a6], a3, a5, n] - 
    S2[a1, a2, SP[a4, a6], a5, a3, n] - S2[a6, n]*S2[a1, a3, a2, a4, a5, n] - 
    S2[a1, a3, a2, a4, SP[a5, a6], n] - S2[a6, n]*S2[a1, a3, a2, a5, a4, n] - 
    S2[a1, a3, a2, a5, SP[a4, a6], n] - S2[a1, a3, a2, SP[a4, a6], a5, n] - 
    S2[a1, a3, a2, SP[a5, a6], a4, n] - S2[a6, n]*S2[a1, a3, a4, a2, a5, n] - 
    S2[a1, a3, a4, a2, SP[a5, a6], n] - S2[a6, n]*S2[a1, a3, a4, a5, a2, n] + 
    S2[a2, n]*S2[a1, a3, a4, a5, a6, n] + 
    S2[a2, n]*S2[a1, a3, a4, a6, a5, n] + S2[a1, a3, a4, a6, SP[a2, a5], n] + 
    S2[a1, a3, a4, SP[a2, a5], a6, n] - S2[a1, a3, a4, SP[a5, a6], a2, n] - 
    S2[a6, n]*S2[a1, a3, a5, a2, a4, n] - S2[a1, a3, a5, a2, SP[a4, a6], n] - 
    S2[a6, n]*S2[a1, a3, a5, a4, a2, n] + 
    S2[a2, n]*S2[a1, a3, a5, a4, a6, n] + 
    S2[a2, n]*S2[a1, a3, a5, a6, a4, n] + S2[a1, a3, a5, a6, SP[a2, a4], n] + 
    S2[a1, a3, a5, SP[a2, a4], a6, n] - S2[a1, a3, a5, SP[a4, a6], a2, n] + 
    S2[a2, n]*S2[a1, a3, a6, a4, a5, n] + S2[a1, a3, a6, a4, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a3, a6, a5, a4, n] + S2[a1, a3, a6, a5, SP[a2, a4], n] + 
    S2[a1, a3, a6, SP[a2, a4], a5, n] + S2[a1, a3, a6, SP[a2, a5], a4, n] + 
    S2[a1, a3, SP[a2, a4], a5, a6, n] + S2[a1, a3, SP[a2, a4], a6, a5, n] + 
    S2[a1, a3, SP[a2, a5], a4, a6, n] + S2[a1, a3, SP[a2, a5], a6, a4, n] - 
    S2[a1, a3, SP[a4, a6], a2, a5, n] - S2[a1, a3, SP[a4, a6], a5, a2, n] - 
    S2[a1, a3, SP[a5, a6], a2, a4, n] - S2[a1, a3, SP[a5, a6], a4, a2, n] - 
    S2[a6, n]*S2[a1, a4, a3, a2, a5, n] - S2[a1, a4, a3, a2, SP[a5, a6], n] - 
    S2[a6, n]*S2[a1, a4, a3, a5, a2, n] + 
    S2[a2, n]*S2[a1, a4, a3, a5, a6, n] + 
    S2[a2, n]*S2[a1, a4, a3, a6, a5, n] + S2[a1, a4, a3, a6, SP[a2, a5], n] + 
    S2[a1, a4, a3, SP[a2, a5], a6, n] - S2[a1, a4, a3, SP[a5, a6], a2, n] - 
    S2[a5, n]*S2[a1, a4, a6, a2, a3, n] - S2[a1, a4, a6, a2, SP[a3, a5], n] + 
    S2[a2, n]*S2[a1, a4, a6, a3, a5, n] + S2[a1, a4, a6, a3, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a4, a6, a5, a3, n] + S2[a1, a4, a6, a5, SP[a2, a3], n] + 
    S2[a1, a4, a6, SP[a2, a3], a5, n] + S2[a1, a4, SP[a2, a3], a5, a6, n] + 
    S2[a1, a4, SP[a2, a3], a6, a5, n] + S2[a1, a4, SP[a2, a6], a3, a5, n] + 
    S2[a1, a4, SP[a2, a6], a5, a3, n] - S2[a1, a4, SP[a3, a6], a2, a5, n] - 
    S2[a1, a4, SP[a3, a6], a5, a2, n] - S2[a1, a4, SP[a5, a6], a2, a3, n] + 
    S2[a1, a5, a6, a2, SP[a3, a4], n] + S2[a1, a5, a6, SP[a2, a4], a3, n] + 
    S2[a1, a5, SP[a4, a6], a2, a3, n] - S2[a5, n]*S2[a1, a6, a2, a3, a4, n] - 
    S2[a1, a6, a2, a3, SP[a4, a5], n] - S2[a5, n]*S2[a1, a6, a2, a4, a3, n] - 
    S2[a1, a6, a2, a4, SP[a3, a5], n] - S2[a1, a6, a2, SP[a3, a5], a4, n] - 
    S2[a1, a6, a2, SP[a4, a5], a3, n] + S2[a2, n]*S2[a1, a6, a3, a4, a5, n] + 
    S2[a1, a6, a3, a4, SP[a2, a5], n] + S2[a2, n]*S2[a1, a6, a3, a5, a4, n] + 
    S2[a1, a6, a3, a5, SP[a2, a4], n] + S2[a1, a6, a3, SP[a2, a4], a5, n] + 
    S2[a1, a6, a3, SP[a2, a5], a4, n] - S2[a5, n]*S2[a1, a6, a4, a2, a3, n] - 
    S2[a1, a6, a4, a2, SP[a3, a5], n] + S2[a2, n]*S2[a1, a6, a4, a3, a5, n] + 
    S2[a1, a6, a4, a3, SP[a2, a5], n] + S2[a2, n]*S2[a1, a6, a4, a5, a3, n] + 
    S2[a1, a6, a4, a5, SP[a2, a3], n] + S2[a1, a6, a4, SP[a2, a3], a5, n] + 
    S2[a2, n]*S2[a1, a6, a5, a3, a4, n] + S2[a1, a6, a5, a3, SP[a2, a4], n] + 
    S2[a2, n]*S2[a1, a6, a5, a4, a3, n] + S2[a1, a6, a5, a4, SP[a2, a3], n] + 
    S2[a1, a6, a5, SP[a2, a3], a4, n] + S2[a1, a6, a5, SP[a2, a4], a3, n] + 
    S2[a1, a6, SP[a2, a3], a4, a5, n] + S2[a1, a6, SP[a2, a3], a5, a4, n] + 
    S2[a1, a6, SP[a2, a4], a3, a5, n] + S2[a1, a6, SP[a2, a4], a5, a3, n] - 
    S2[a1, a6, SP[a4, a5], a2, a3, n] + S2[a1, SP[a2, a3], a4, a5, a6, n] + 
    S2[a1, SP[a2, a3], a4, a6, a5, n] + S2[a1, SP[a2, a3], a5, a4, a6, n] + 
    S2[a1, SP[a2, a3], a5, a6, a4, n] + S2[a1, SP[a2, a3], a6, a4, a5, n] + 
    S2[a1, SP[a2, a3], a6, a5, a4, n] + S2[a1, SP[a2, a6], a3, a4, a5, n] + 
    S2[a1, SP[a2, a6], a3, a5, a4, n] + S2[a1, SP[a2, a6], a4, a3, a5, n] + 
    S2[a1, SP[a2, a6], a4, a5, a3, n] + S2[a1, SP[a2, a6], a5, a3, a4, n] + 
    S2[a1, SP[a2, a6], a5, a4, a3, n] - S2[a1, SP[a3, a6], a2, a4, a5, n] - 
    S2[a1, SP[a3, a6], a2, a5, a4, n] - S2[a1, SP[a3, a6], a4, a2, a5, n] - 
    S2[a1, SP[a3, a6], a4, a5, a2, n] - S2[a1, SP[a3, a6], a5, a2, a4, n] - 
    S2[a1, SP[a3, a6], a5, a4, a2, n] - S2[a1, SP[a4, a6], a3, a2, a5, n] - 
    S2[a1, SP[a4, a6], a3, a5, a2, n] - S2[a1, SP[a5, a6], a2, a3, a4, n] - 
    S2[a1, SP[a5, a6], a2, a4, a3, n] - S2[a1, SP[a5, a6], a4, a2, a3, n] - 
    S2[a2, a1, a3, a5, SP[a4, a6], n] - S2[a2, a1, a3, a6, SP[a4, a5], n] - 
    S2[a2, a1, a3, SP[a4, a5], a6, n] - S2[a2, a1, a3, SP[a4, a6], a5, n] - 
    S2[a2, a1, a6, a3, SP[a4, a5], n] - S2[a2, a1, a6, a5, SP[a3, a4], n] - 
    S2[a2, a1, a6, SP[a3, a4], a5, n] - S2[a2, a1, a6, SP[a4, a5], a3, n] - 
    S2[a2, a1, SP[a3, a4], a5, a6, n] - S2[a2, a1, SP[a3, a4], a6, a5, n] - 
    S2[a2, a1, SP[a4, a6], a3, a5, n] - S2[a2, a1, SP[a4, a6], a5, a3, n] + 
    S2[a6, n]*S2[a2, a3, a1, a4, a5, n] + S2[a2, a3, a1, a4, SP[a5, a6], n] + 
    S2[a6, n]*S2[a2, a3, a1, a5, a4, n] - S2[a2, a3, a1, a6, SP[a4, a5], n] - 
    S2[a2, a3, a1, SP[a4, a5], a6, n] + S2[a2, a3, a1, SP[a5, a6], a4, n] + 
    S2[a6, n]*S2[a2, a3, a5, a1, a4, n] - S2[a2, a3, a6, a1, SP[a4, a5], n] - 
    S2[a2, a3, a6, SP[a1, a5], a4, n] - S2[a2, a3, SP[a1, a5], a4, a6, n] - 
    S2[a2, a3, SP[a1, a5], a6, a4, n] + S2[a2, a3, SP[a5, a6], a1, a4, n] + 
    S2[a5, n]*S2[a2, a6, a1, a3, a4, n] + 
    S2[a5, n]*S2[a2, a6, a1, a4, a3, n] + S2[a2, a6, a1, a4, SP[a3, a5], n] - 
    S2[a2, a6, a1, a5, SP[a3, a4], n] - S2[a2, a6, a1, SP[a3, a4], a5, n] + 
    S2[a2, a6, a1, SP[a3, a5], a4, n] - S2[a2, a6, a3, a1, SP[a4, a5], n] - 
    S2[a2, a6, a3, SP[a1, a5], a4, n] - S2[a2, a6, a5, a1, SP[a3, a4], n] - 
    S2[a2, a6, a5, SP[a1, a3], a4, n] - S2[a2, a6, SP[a1, a3], a4, a5, n] - 
    S2[a2, a6, SP[a1, a3], a5, a4, n] - S2[a2, SP[a1, a3], a4, a5, a6, n] - 
    S2[a2, SP[a1, a3], a4, a6, a5, n] - S2[a2, SP[a1, a3], a5, a4, a6, n] - 
    S2[a2, SP[a1, a3], a5, a6, a4, n] - S2[a2, SP[a1, a3], a6, a4, a5, n] - 
    S2[a2, SP[a1, a3], a6, a5, a4, n] - S2[a2, SP[a1, a6], a3, a4, a5, n] - 
    S2[a2, SP[a1, a6], a3, a5, a4, n] - S2[a2, SP[a1, a6], a4, a3, a5, n] - 
    S2[a2, SP[a1, a6], a4, a5, a3, n] - S2[a2, SP[a1, a6], a5, a3, a4, n] - 
    S2[a2, SP[a1, a6], a5, a4, a3, n] + S2[a2, SP[a3, a6], a1, a4, a5, n] + 
    S2[a2, SP[a3, a6], a1, a5, a4, n] + S2[a2, SP[a3, a6], a5, a1, a4, n] + 
    S2[a2, SP[a5, a6], a1, a3, a4, n] + S2[a2, SP[a5, a6], a1, a4, a3, n] + 
    S2[a5, a1, a6, a2, SP[a3, a4], n] + S2[a5, a1, a6, SP[a2, a4], a3, n] + 
    S2[a5, a1, SP[a4, a6], a2, a3, n] + S2[a5, a6, a1, a2, SP[a3, a4], n] - 
    S2[a2, n]*S2[a5, a6, a1, a3, a4, n] - S2[a5, a6, a1, a3, SP[a2, a4], n] - 
    S2[a2, n]*S2[a5, a6, a1, a4, a3, n] - S2[a5, a6, a1, a4, SP[a2, a3], n] - 
    S2[a5, a6, a1, SP[a2, a3], a4, n] + S2[a5, a6, a2, a1, SP[a3, a4], n] + 
    S2[a5, a6, a2, SP[a1, a3], a4, n] + S2[a5, SP[a1, a6], a2, a3, a4, n] + 
    S2[a5, SP[a1, a6], a2, a4, a3, n] + S2[a5, SP[a1, a6], a4, a2, a3, n] - 
    S2[a5, SP[a2, a6], a1, a3, a4, n] - S2[a5, SP[a2, a6], a1, a4, a3, n] + 
    S2[a5, n]*S2[a6, a1, a3, a2, a4, n] + S2[a6, a1, a3, a2, SP[a4, a5], n] + 
    S2[a5, n]*S2[a6, a1, a3, a4, a2, n] + S2[a6, a1, a3, a4, SP[a2, a5], n] + 
    S2[a6, a1, a3, SP[a2, a5], a4, n] + S2[a6, a1, a3, SP[a4, a5], a2, n] + 
    S2[a5, n]*S2[a6, a1, a4, a3, a2, n] + S2[a6, a1, a4, a3, SP[a2, a5], n] + 
    S2[a6, a1, a4, SP[a3, a5], a2, n] + S2[a6, a1, SP[a3, a5], a2, a4, n] + 
    S2[a6, a1, SP[a3, a5], a4, a2, n] + S2[a6, a1, SP[a4, a5], a3, a2, n] - 
    S2[a5, n]*S2[a6, a2, a3, a1, a4, n] - S2[a6, a2, a3, a1, SP[a4, a5], n] - 
    S2[a6, a2, a3, SP[a1, a5], a4, n] - S2[a6, a2, SP[a3, a5], a1, a4, n] - 
    S2[a1, n]*S2[a6, a4, a5, a3, a2, n] - S2[a6, a4, a5, a3, SP[a1, a2], n] - 
    S2[a6, a4, a5, SP[a1, a3], a2, n] - S2[a6, a4, SP[a1, a5], a3, a2, n] + 
    S2[a2, n]*S2[a6, a5, a3, a1, a4, n] + S2[a6, a5, a3, a1, SP[a2, a4], n] - 
    S2[a1, n]*S2[a6, a5, a3, a2, a4, n] - S2[a6, a5, a3, a2, SP[a1, a4], n] - 
    S2[a1, n]*S2[a6, a5, a3, a4, a2, n] - S2[a6, a5, a3, a4, SP[a1, a2], n] - 
    S2[a6, a5, a3, SP[a1, a4], a2, n] - S2[a1, n]*S2[a6, a5, a4, a3, a2, n] - 
    S2[a6, a5, a4, a3, SP[a1, a2], n] - S2[a6, a5, a4, SP[a1, a3], a2, n] - 
    S2[a6, a5, SP[a1, a3], a2, a4, n] - S2[a6, a5, SP[a1, a3], a4, a2, n] - 
    S2[a6, a5, SP[a1, a4], a3, a2, n] + S2[a6, a5, SP[a2, a3], a1, a4, n] - 
    S2[a6, SP[a1, a4], a5, a3, a2, n] - S2[SP[a1, a6], a3, a2, a4, a5, n] - 
    S2[SP[a1, a6], a3, a2, a5, a4, n] - S2[SP[a1, a6], a3, a4, a2, a5, n] - 
    S2[SP[a1, a6], a3, a4, a5, a2, n] - S2[SP[a1, a6], a3, a5, a2, a4, n] - 
    S2[SP[a1, a6], a3, a5, a4, a2, n] - S2[SP[a1, a6], a4, a3, a2, a5, n] - 
    S2[SP[a1, a6], a4, a3, a5, a2, n] - S2[SP[a1, a6], a4, a5, a3, a2, n] - 
    S2[SP[a1, a6], a5, a3, a2, a4, n] - S2[SP[a1, a6], a5, a3, a4, a2, n] - 
    S2[SP[a1, a6], a5, a4, a3, a2, n] + S2[SP[a2, a6], a3, a1, a4, a5, n] + 
    S2[SP[a2, a6], a3, a1, a5, a4, n] + S2[SP[a2, a6], a3, a5, a1, a4, n] + 
    S2[SP[a2, a6], a5, a3, a1, a4, n] + S2[SP[a5, a6], a1, a3, a2, a4, n] + 
    S2[SP[a5, a6], a1, a3, a4, a2, n] + S2[SP[a5, a6], a1, a4, a3, a2, n] - 
    S2[SP[a5, a6], a2, a3, a1, a4, n] + S2[a6, a4, a1, a5, a3, a2, n] + 
    S2[a6, a4, a5, a1, a3, a2, n] + S2[a6, a4, a5, a3, a1, a2, n] + 
    S2[a6, a4, a5, a3, a2, a1, n] + S2[a6, a5, a3, a2, a4, a1, n] + 
    S2[a6, a5, a3, a4, a1, a2, n] + S2[a6, a5, a3, a4, a2, a1, n] + 
    S2[a6, a5, a4, a1, a3, a2, n] + S2[a6, a5, a4, a3, a1, a2, n] + 
    S2[a6, a5, a4, a3, a2, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a1_, a5_, a2_, a3_, a4_, a6_, n_] :> 
  S2[a1, a5, a2, n]*S2[a3, a4, a6, n] + S2[SP[a1, a3], SP[a4, a5], 
     SP[a2, a6], n] - S2[a1, a3, SP[a4, a5], SP[a2, a6], n] + 
    S2[a4, a6, n]*S2[a1, a5, a2, a3, n] - S2[a1, a5, SP[a2, a4], SP[a3, a6], 
     n] - S2[a1, SP[a3, a5], a4, SP[a2, a6], n] - 
    S2[a1, SP[a3, a5], SP[a2, a4], a6, n] - S2[a1, SP[a4, a5], a2, 
     SP[a3, a6], n] - S2[a1, SP[a4, a5], SP[a2, a6], a3, n] + 
    S2[a1, a5, n]*S2[a2, a3, a4, a6, n] + S2[a1, a5, n]*
     S2[a2, a3, a6, a4, n] - S2[a2, a3, SP[a1, a4], SP[a5, a6], n] - 
    S2[a2, a3, SP[a1, a6], SP[a4, a5], n] + S2[a1, a5, n]*
     S2[a2, a6, a3, a4, n] + S2[a1, a5, n]*S2[a2, a6, a4, a3, n] - 
    S2[a2, a6, SP[a1, a3], SP[a4, a5], n] - S2[a2, a6, SP[a1, a4], 
     SP[a3, a5], n] - S2[a2, SP[a1, a3], a4, SP[a5, a6], n] - 
    S2[a2, SP[a1, a3], a6, SP[a4, a5], n] - S2[a2, SP[a1, a3], SP[a4, a5], 
     a6, n] - S2[a2, SP[a1, a3], SP[a5, a6], a4, n] - 
    S2[a2, SP[a1, a6], a3, SP[a4, a5], n] - S2[a2, SP[a1, a6], a4, 
     SP[a3, a5], n] - S2[a2, SP[a1, a6], SP[a3, a5], a4, n] - 
    S2[a2, SP[a1, a6], SP[a4, a5], a3, n] - S2[a3, a1, SP[a4, a5], 
     SP[a2, a6], n] - S2[a3, SP[a1, a4], a5, SP[a2, a6], n] - 
    S2[a3, SP[a1, a4], SP[a5, a6], a2, n] - S2[a1, a5, n]*
     S2[a4, a6, a2, a3, n] + S2[a4, a6, SP[a1, a2], SP[a3, a5], n] + 
    S2[a4, SP[a1, a6], a2, SP[a3, a5], n] + S2[a4, SP[a1, a6], SP[a2, a5], 
     a3, n] - S2[SP[a1, a2], a3, a4, SP[a5, a6], n] - 
    S2[SP[a1, a2], a3, a6, SP[a4, a5], n] - S2[SP[a1, a2], a3, SP[a4, a5], 
     a6, n] - S2[SP[a1, a2], a3, SP[a5, a6], a4, n] - 
    S2[SP[a1, a2], a6, a3, SP[a4, a5], n] - S2[SP[a1, a2], a6, a4, 
     SP[a3, a5], n] - S2[SP[a1, a2], a6, SP[a3, a5], a4, n] - 
    S2[SP[a1, a2], a6, SP[a4, a5], a3, n] - S2[SP[a1, a2], SP[a3, a5], a4, 
     a6, n] - S2[SP[a1, a2], SP[a3, a5], a6, a4, n] - 
    S2[SP[a1, a2], SP[a5, a6], a3, a4, n] - S2[SP[a1, a2], SP[a5, a6], a4, 
     a3, n] - S2[SP[a1, a3], a4, a5, SP[a2, a6], n] - 
    S2[SP[a1, a3], a4, SP[a5, a6], a2, n] - S2[SP[a1, a3], a5, a4, 
     SP[a2, a6], n] - S2[SP[a1, a3], a5, SP[a2, a4], a6, n] - 
    S2[SP[a1, a3], SP[a4, a5], a2, a6, n] - S2[SP[a1, a3], SP[a4, a5], a6, 
     a2, n] - S2[SP[a1, a4], a5, a2, SP[a3, a6], n] - 
    S2[SP[a1, a4], a5, SP[a2, a6], a3, n] + S2[SP[a1, a4], a6, a2, 
     SP[a3, a5], n] + S2[SP[a1, a4], a6, SP[a2, a5], a3, n] + 
    S2[a1, a2, a3, a4, SP[a5, a6], n] + S2[a1, a2, a3, a6, SP[a4, a5], n] + 
    S2[a1, a2, a3, SP[a4, a5], a6, n] + S2[a1, a2, a3, SP[a5, a6], a4, n] + 
    S2[a1, a2, a6, a3, SP[a4, a5], n] + S2[a1, a2, a6, a4, SP[a3, a5], n] + 
    S2[a1, a2, a6, SP[a3, a5], a4, n] + S2[a1, a2, a6, SP[a4, a5], a3, n] + 
    S2[a1, a2, SP[a3, a5], a4, a6, n] + S2[a1, a2, SP[a3, a5], a6, a4, n] + 
    S2[a1, a2, SP[a5, a6], a3, a4, n] + S2[a1, a2, SP[a5, a6], a4, a3, n] + 
    S2[a6, n]*S2[a1, a3, a2, a4, a5, n] + S2[a1, a3, a2, a4, SP[a5, a6], n] + 
    S2[a6, n]*S2[a1, a3, a2, a5, a4, n] + S2[a1, a3, a2, a5, SP[a4, a6], n] + 
    S2[a1, a3, a2, SP[a4, a6], a5, n] + S2[a1, a3, a2, SP[a5, a6], a4, n] + 
    S2[a6, n]*S2[a1, a3, a4, a2, a5, n] + S2[a1, a3, a4, a2, SP[a5, a6], n] + 
    S2[a6, n]*S2[a1, a3, a4, a5, a2, n] - 
    S2[a2, n]*S2[a1, a3, a4, a5, a6, n] + S2[a1, a3, a4, a5, SP[a2, a6], n] - 
    S2[a2, n]*S2[a1, a3, a4, a6, a5, n] - S2[a1, a3, a4, a6, SP[a2, a5], n] - 
    S2[a1, a3, a4, SP[a2, a5], a6, n] + 2*S2[a1, a3, a4, SP[a5, a6], a2, n] + 
    S2[a6, n]*S2[a1, a3, a5, a2, a4, n] + S2[a1, a3, a5, a2, SP[a4, a6], n] + 
    S2[a6, n]*S2[a1, a3, a5, a4, a2, n] - 
    S2[a2, n]*S2[a1, a3, a5, a4, a6, n] + S2[a1, a3, a5, a4, SP[a2, a6], n] - 
    S2[a2, n]*S2[a1, a3, a5, a6, a4, n] - S2[a1, a3, a5, a6, SP[a2, a4], n] + 
    S2[a1, a3, a5, SP[a4, a6], a2, n] - S2[a2, n]*S2[a1, a3, a6, a4, a5, n] - 
    S2[a1, a3, a6, a4, SP[a2, a5], n] - S2[a2, n]*S2[a1, a3, a6, a5, a4, n] - 
    S2[a1, a3, a6, a5, SP[a2, a4], n] - S2[a1, a3, a6, SP[a2, a4], a5, n] - 
    S2[a1, a3, a6, SP[a2, a5], a4, n] - S2[a1, a3, SP[a2, a4], a5, a6, n] - 
    S2[a1, a3, SP[a2, a4], a6, a5, n] - S2[a1, a3, SP[a2, a5], a4, a6, n] - 
    S2[a1, a3, SP[a2, a5], a6, a4, n] + S2[a1, a3, SP[a4, a5], a2, a6, n] + 
    S2[a1, a3, SP[a4, a5], a6, a2, n] + S2[a1, a3, SP[a4, a6], a2, a5, n] + 
    S2[a1, a3, SP[a4, a6], a5, a2, n] + S2[a1, a3, SP[a5, a6], a2, a4, n] + 
    S2[a1, a3, SP[a5, a6], a4, a2, n] + S2[a6, n]*S2[a1, a4, a3, a5, a2, n] + 
    S2[a1, a4, a3, a5, SP[a2, a6], n] + S2[a1, a4, a3, SP[a5, a6], a2, n] + 
    S2[a6, n]*S2[a1, a4, a5, a2, a3, n] - 
    S2[a3, n]*S2[a1, a4, a5, a2, a6, n] + S2[a1, a4, a5, a2, SP[a3, a6], n] + 
    S2[a6, n]*S2[a1, a4, a5, a3, a2, n] + S2[a1, a4, a5, a3, SP[a2, a6], n] - 
    S2[a3, n]*S2[a1, a4, a5, a6, a2, n] - S2[a1, a4, a5, a6, SP[a2, a3], n] - 
    S2[a1, a4, a5, SP[a2, a3], a6, n] + 2*S2[a1, a4, a5, SP[a2, a6], a3, n] - 
    S2[a1, a4, a6, a2, SP[a3, a5], n] - S2[a3, n]*S2[a1, a4, a6, a5, a2, n] - 
    S2[a1, a4, a6, a5, SP[a2, a3], n] - S2[a1, a4, a6, SP[a2, a5], a3, n] - 
    S2[a1, a4, a6, SP[a3, a5], a2, n] - S2[a1, a4, SP[a3, a5], a2, a6, n] - 
    S2[a1, a4, SP[a3, a5], a6, a2, n] + S2[a1, a4, SP[a5, a6], a2, a3, n] + 
    S2[a1, a4, SP[a5, a6], a3, a2, n] + S2[a6, n]*S2[a1, a5, a2, a3, a4, n] - 
    S2[a4, n]*S2[a1, a5, a2, a3, a6, n] + 
    S2[a6, n]*S2[a1, a5, a2, a4, a3, n] - 
    S2[a3, n]*S2[a1, a5, a2, a4, a6, n] + S2[a1, a5, a2, a4, SP[a3, a6], n] - 
    S2[a4, n]*S2[a1, a5, a2, a6, a3, n] - S2[a1, a5, a2, a6, SP[a3, a4], n] - 
    S2[a1, a5, a2, SP[a3, a4], a6, n] + S2[a1, a5, a2, SP[a3, a6], a4, n] + 
    S2[a6, n]*S2[a1, a5, a3, a2, a4, n] + S2[a1, a5, a3, a2, SP[a4, a6], n] + 
    S2[a6, n]*S2[a1, a5, a3, a4, a2, n] - 
    S2[a2, n]*S2[a1, a5, a3, a4, a6, n] + S2[a1, a5, a3, a4, SP[a2, a6], n] - 
    S2[a2, n]*S2[a1, a5, a3, a6, a4, n] - S2[a1, a5, a3, a6, SP[a2, a4], n] + 
    S2[a1, a5, a3, SP[a4, a6], a2, n] + S2[a6, n]*S2[a1, a5, a4, a2, a3, n] - 
    S2[a3, n]*S2[a1, a5, a4, a2, a6, n] + S2[a1, a5, a4, a2, SP[a3, a6], n] + 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] + S2[a1, a5, a4, a3, SP[a2, a6], n] - 
    S2[a3, n]*S2[a1, a5, a4, a6, a2, n] - S2[a1, a5, a4, a6, SP[a2, a3], n] - 
    S2[a1, a5, a4, SP[a2, a3], a6, n] + 2*S2[a1, a5, a4, SP[a2, a6], a3, n] - 
    S2[a2, n]*S2[a1, a5, a6, a3, a4, n] - S2[a1, a5, a6, a3, SP[a2, a4], n] - 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] - S2[a1, a5, a6, a4, SP[a2, a3], n] - 
    S2[a1, a5, a6, SP[a2, a3], a4, n] - S2[a1, a5, a6, SP[a2, a4], a3, n] - 
    S2[a1, a5, SP[a2, a3], a4, a6, n] - S2[a1, a5, SP[a2, a3], a6, a4, n] - 
    S2[a1, a5, SP[a3, a4], a2, a6, n] - S2[a1, a5, SP[a3, a4], a6, a2, n] + 
    S2[a1, a5, SP[a3, a6], a2, a4, n] + S2[a1, a5, SP[a3, a6], a4, a2, n] + 
    S2[a1, a5, SP[a4, a6], a2, a3, n] + S2[a1, a5, SP[a4, a6], a3, a2, n] + 
    S2[a4, n]*S2[a1, a6, a2, a3, a5, n] + S2[a1, a6, a2, a3, SP[a4, a5], n] + 
    S2[a4, n]*S2[a1, a6, a2, a5, a3, n] + S2[a1, a6, a2, a5, SP[a3, a4], n] + 
    S2[a1, a6, a2, SP[a3, a4], a5, n] + S2[a1, a6, a2, SP[a4, a5], a3, n] - 
    S2[a2, n]*S2[a1, a6, a3, a4, a5, n] - S2[a1, a6, a3, a4, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a6, a3, a5, a4, n] - S2[a1, a6, a3, a5, SP[a2, a4], n] - 
    S2[a1, a6, a3, SP[a2, a4], a5, n] - S2[a1, a6, a3, SP[a2, a5], a4, n] - 
    S2[a2, n]*S2[a1, a6, a4, a3, a5, n] - S2[a1, a6, a4, a3, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a6, a4, a5, a3, n] - S2[a1, a6, a4, a5, SP[a2, a3], n] - 
    S2[a1, a6, a4, SP[a2, a3], a5, n] - S2[a1, a6, a4, SP[a2, a5], a3, n] - 
    S2[a2, n]*S2[a1, a6, a5, a3, a4, n] - S2[a1, a6, a5, a3, SP[a2, a4], n] - 
    S2[a2, n]*S2[a1, a6, a5, a4, a3, n] - S2[a1, a6, a5, a4, SP[a2, a3], n] - 
    S2[a1, a6, a5, SP[a2, a3], a4, n] - S2[a1, a6, a5, SP[a2, a4], a3, n] - 
    S2[a1, a6, SP[a2, a3], a4, a5, n] - S2[a1, a6, SP[a2, a3], a5, a4, n] - 
    S2[a1, a6, SP[a2, a5], a3, a4, n] - S2[a1, a6, SP[a2, a5], a4, a3, n] - 
    S2[a1, SP[a2, a3], a4, a5, a6, n] - S2[a1, SP[a2, a3], a4, a6, a5, n] - 
    S2[a1, SP[a2, a3], a5, a4, a6, n] - S2[a1, SP[a2, a3], a5, a6, a4, n] - 
    S2[a1, SP[a2, a3], a6, a4, a5, n] - S2[a1, SP[a2, a3], a6, a5, a4, n] - 
    S2[a1, SP[a2, a6], a3, a4, a5, n] - S2[a1, SP[a2, a6], a3, a5, a4, n] - 
    S2[a1, SP[a2, a6], a4, a3, a5, n] - S2[a1, SP[a2, a6], a4, a5, a3, n] - 
    S2[a1, SP[a2, a6], a5, a3, a4, n] - S2[a1, SP[a2, a6], a5, a4, a3, n] - 
    S2[a1, SP[a3, a4], a5, a2, a6, n] - S2[a1, SP[a3, a4], a5, a6, a2, n] - 
    S2[a1, SP[a3, a4], a6, a5, a2, n] + S2[a1, SP[a3, a6], a2, a4, a5, n] + 
    S2[a1, SP[a3, a6], a2, a5, a4, n] + S2[a1, SP[a3, a6], a4, a2, a5, n] + 
    S2[a1, SP[a3, a6], a4, a5, a2, n] + S2[a1, SP[a3, a6], a5, a2, a4, n] + 
    S2[a1, SP[a3, a6], a5, a4, a2, n] + S2[a1, SP[a4, a6], a2, a3, a5, n] + 
    S2[a1, SP[a4, a6], a2, a5, a3, n] + S2[a1, SP[a4, a6], a3, a5, a2, n] + 
    S2[a1, SP[a4, a6], a5, a2, a3, n] + S2[a1, SP[a4, a6], a5, a3, a2, n] + 
    S2[a1, SP[a5, a6], a2, a3, a4, n] + S2[a1, SP[a5, a6], a2, a4, a3, n] + 
    S2[a1, SP[a5, a6], a3, a2, a4, n] + S2[a1, SP[a5, a6], a3, a4, a2, n] + 
    S2[a1, SP[a5, a6], a4, a2, a3, n] + S2[a1, SP[a5, a6], a4, a3, a2, n] + 
    S2[a2, a1, a3, a4, SP[a5, a6], n] + S2[a2, a1, a3, a6, SP[a4, a5], n] + 
    S2[a2, a1, a3, SP[a4, a5], a6, n] + S2[a2, a1, a3, SP[a5, a6], a4, n] + 
    S2[a2, a1, a6, a3, SP[a4, a5], n] + S2[a2, a1, a6, a4, SP[a3, a5], n] + 
    S2[a2, a1, a6, SP[a3, a5], a4, n] + S2[a2, a1, a6, SP[a4, a5], a3, n] + 
    S2[a2, a1, SP[a3, a5], a4, a6, n] + S2[a2, a1, SP[a3, a5], a6, a4, n] + 
    S2[a2, a1, SP[a5, a6], a3, a4, n] + S2[a2, a1, SP[a5, a6], a4, a3, n] - 
    S2[a6, n]*S2[a2, a3, a1, a4, a5, n] - 
    S2[a6, n]*S2[a2, a3, a1, a5, a4, n] - S2[a2, a3, a1, a5, SP[a4, a6], n] + 
    S2[a2, a3, a1, a6, SP[a4, a5], n] + S2[a2, a3, a1, SP[a4, a5], a6, n] - 
    S2[a2, a3, a1, SP[a4, a6], a5, n] - S2[a6, n]*S2[a2, a3, a4, a1, a5, n] + 
    S2[a2, a3, a6, a1, SP[a4, a5], n] + S2[a2, a3, a6, SP[a1, a4], a5, n] + 
    S2[a2, a3, SP[a1, a4], a5, a6, n] + S2[a2, a3, SP[a1, a4], a6, a5, n] - 
    S2[a2, a3, SP[a4, a6], a1, a5, n] - S2[a4, n]*S2[a2, a6, a1, a3, a5, n] + 
    S2[a2, a6, a1, a4, SP[a3, a5], n] - S2[a4, n]*S2[a2, a6, a1, a5, a3, n] - 
    S2[a2, a6, a1, a5, SP[a3, a4], n] - S2[a2, a6, a1, SP[a3, a4], a5, n] + 
    S2[a2, a6, a1, SP[a3, a5], a4, n] + S2[a2, a6, a3, a1, SP[a4, a5], n] + 
    S2[a2, a6, a3, SP[a1, a4], a5, n] + S2[a2, a6, a4, a1, SP[a3, a5], n] + 
    S2[a2, a6, a4, SP[a1, a3], a5, n] + S2[a2, a6, SP[a1, a3], a4, a5, n] + 
    S2[a2, a6, SP[a1, a3], a5, a4, n] + S2[a2, SP[a1, a3], a4, a5, a6, n] + 
    S2[a2, SP[a1, a3], a4, a6, a5, n] + S2[a2, SP[a1, a3], a5, a4, a6, n] + 
    S2[a2, SP[a1, a3], a5, a6, a4, n] + S2[a2, SP[a1, a3], a6, a4, a5, n] + 
    S2[a2, SP[a1, a3], a6, a5, a4, n] + S2[a2, SP[a1, a6], a3, a4, a5, n] + 
    S2[a2, SP[a1, a6], a3, a5, a4, n] + S2[a2, SP[a1, a6], a4, a3, a5, n] + 
    S2[a2, SP[a1, a6], a4, a5, a3, n] + S2[a2, SP[a1, a6], a5, a3, a4, n] + 
    S2[a2, SP[a1, a6], a5, a4, a3, n] - S2[a2, SP[a3, a6], a1, a4, a5, n] - 
    S2[a2, SP[a3, a6], a1, a5, a4, n] - S2[a2, SP[a3, a6], a4, a1, a5, n] - 
    S2[a2, SP[a4, a6], a1, a3, a5, n] - S2[a2, SP[a4, a6], a1, a5, a3, n] + 
    S2[a3, a1, a4, a5, SP[a2, a6], n] + S2[a3, a1, a4, SP[a5, a6], a2, n] + 
    S2[a3, a1, a5, a4, SP[a2, a6], n] + S2[a3, a1, a5, SP[a2, a4], a6, n] + 
    S2[a3, a1, SP[a4, a5], a2, a6, n] + S2[a3, a1, SP[a4, a5], a6, a2, n] - 
    S2[a6, n]*S2[a3, a4, a1, a5, a2, n] + S2[a3, SP[a1, a4], a5, a2, a6, n] + 
    S2[a3, SP[a1, a4], a5, a6, a2, n] + S2[a3, SP[a1, a4], a6, a5, a2, n] - 
    S2[a3, SP[a4, a6], a1, a5, a2, n] + S2[a4, a1, a5, a2, SP[a3, a6], n] + 
    S2[a4, a1, a5, SP[a2, a6], a3, n] - S2[a4, a1, a6, a2, SP[a3, a5], n] - 
    S2[a4, a1, a6, SP[a2, a5], a3, n] - S2[a4, a6, a1, a2, SP[a3, a5], n] + 
    S2[a2, n]*S2[a4, a6, a1, a3, a5, n] + S2[a4, a6, a1, a3, SP[a2, a5], n] + 
    S2[a2, n]*S2[a4, a6, a1, a5, a3, n] + S2[a4, a6, a1, a5, SP[a2, a3], n] + 
    S2[a4, a6, a1, SP[a2, a3], a5, n] - S2[a4, a6, a2, a1, SP[a3, a5], n] - 
    S2[a4, a6, a2, SP[a1, a3], a5, n] - S2[a4, SP[a1, a6], a2, a3, a5, n] - 
    S2[a4, SP[a1, a6], a2, a5, a3, n] + S2[a4, SP[a2, a6], a1, a3, a5, n] + 
    S2[a4, SP[a2, a6], a1, a5, a3, n] - S2[a4, n]*S2[a6, a1, a3, a2, a5, n] - 
    S2[a6, a1, a3, a2, SP[a4, a5], n] - S2[a4, n]*S2[a6, a1, a3, a5, a2, n] - 
    S2[a6, a1, a3, a5, SP[a2, a4], n] - S2[a6, a1, a3, SP[a2, a4], a5, n] - 
    S2[a6, a1, a3, SP[a4, a5], a2, n] - S2[a4, n]*S2[a6, a1, a5, a2, a3, n] - 
    S2[a6, a1, a5, a2, SP[a3, a4], n] - S2[a4, n]*S2[a6, a1, a5, a3, a2, n] - 
    S2[a6, a1, a5, a3, SP[a2, a4], n] - S2[a6, a1, a5, SP[a2, a4], a3, n] - 
    S2[a6, a1, a5, SP[a3, a4], a2, n] - S2[a6, a1, SP[a3, a4], a2, a5, n] - 
    S2[a6, a1, SP[a3, a4], a5, a2, n] - S2[a6, a1, SP[a4, a5], a2, a3, n] - 
    S2[a6, a1, SP[a4, a5], a3, a2, n] + S2[a4, n]*S2[a6, a2, a3, a1, a5, n] + 
    S2[a6, a2, a3, a1, SP[a4, a5], n] + S2[a6, a2, a3, SP[a1, a4], a5, n] + 
    S2[a6, a2, SP[a3, a4], a1, a5, n] + S2[a3, n]*S2[a6, a4, a1, a5, a2, n] + 
    S2[a6, a4, a1, a5, SP[a2, a3], n] + S2[a6, a4, a1, SP[a3, a5], a2, n] - 
    S2[a2, n]*S2[a6, a4, a3, a1, a5, n] - S2[a6, a4, a3, a1, SP[a2, a5], n] + 
    S2[a1, n]*S2[a6, a4, a3, a2, a5, n] + S2[a6, a4, a3, a2, SP[a1, a5], n] + 
    S2[a6, a4, SP[a1, a3], a2, a5, n] + S2[a6, a4, SP[a1, a3], a5, a2, n] - 
    S2[a6, a4, SP[a2, a3], a1, a5, n] - S2[a6, SP[a1, a4], a3, a5, a2, n] - 
    S2[a6, SP[a1, a4], a5, a2, a3, n] - S2[a6, SP[a1, a4], a5, a3, a2, n] + 
    S2[a6, SP[a3, a4], a1, a5, a2, n] + S2[SP[a1, a6], a3, a2, a4, a5, n] + 
    S2[SP[a1, a6], a3, a2, a5, a4, n] + S2[SP[a1, a6], a3, a4, a2, a5, n] + 
    S2[SP[a1, a6], a3, a4, a5, a2, n] + S2[SP[a1, a6], a3, a5, a2, a4, n] + 
    S2[SP[a1, a6], a3, a5, a4, a2, n] + S2[SP[a1, a6], a4, a3, a2, a5, n] + 
    S2[SP[a1, a6], a4, a3, a5, a2, n] + S2[SP[a1, a6], a4, a5, a2, a3, n] + 
    S2[SP[a1, a6], a4, a5, a3, a2, n] + S2[SP[a1, a6], a5, a2, a3, a4, n] + 
    S2[SP[a1, a6], a5, a2, a4, a3, n] + S2[SP[a1, a6], a5, a3, a2, a4, n] + 
    S2[SP[a1, a6], a5, a3, a4, a2, n] + S2[SP[a1, a6], a5, a4, a2, a3, n] + 
    S2[SP[a1, a6], a5, a4, a3, a2, n] - S2[SP[a2, a6], a3, a1, a4, a5, n] - 
    S2[SP[a2, a6], a3, a1, a5, a4, n] - S2[SP[a2, a6], a3, a4, a1, a5, n] - 
    S2[SP[a2, a6], a4, a3, a1, a5, n] - S2[SP[a4, a6], a1, a3, a2, a5, n] - 
    S2[SP[a4, a6], a1, a3, a5, a2, n] - S2[SP[a4, a6], a1, a5, a2, a3, n] - 
    S2[SP[a4, a6], a1, a5, a3, a2, n] + S2[SP[a4, a6], a2, a3, a1, a5, n] - 
    S2[a6, a4, a3, a2, a5, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a1_, a5_, a2_, a3_, a6_, a4_, n_] :> 
  S2[a1, a5, a2, n]*S2[a3, a6, a4, n] + S2[SP[a1, a3], SP[a5, a6], 
     SP[a2, a4], n] - S2[a1, a3, SP[a5, a6], SP[a2, a4], n] - 
    S2[a4, a6, n]*S2[a1, a5, a2, a3, n] + S2[a1, a5, SP[a2, a4], SP[a3, a6], 
     n] - S2[a1, SP[a3, a5], a6, SP[a2, a4], n] - 
    S2[a1, SP[a3, a5], SP[a2, a6], a4, n] + S2[a1, SP[a4, a5], a2, 
     SP[a3, a6], n] + S2[a1, SP[a4, a5], SP[a2, a6], a3, n] - 
    S2[a1, a5, n]*S2[a2, a6, a3, a4, n] - S2[a1, a5, n]*
     S2[a2, a6, a4, a3, n] + S2[a2, a6, SP[a1, a3], SP[a4, a5], n] + 
    S2[a2, a6, SP[a1, a4], SP[a3, a5], n] + S2[a2, SP[a1, a6], a3, 
     SP[a4, a5], n] + S2[a2, SP[a1, a6], a4, SP[a3, a5], n] + 
    S2[a2, SP[a1, a6], SP[a3, a5], a4, n] + S2[a2, SP[a1, a6], SP[a4, a5], 
     a3, n] - S2[a3, a1, SP[a5, a6], SP[a2, a4], n] - 
    S2[a3, SP[a1, a6], a5, SP[a2, a4], n] - S2[a3, SP[a1, a6], SP[a4, a5], 
     a2, n] + S2[a1, a5, n]*S2[a4, a6, a2, a3, n] - 
    S2[a4, a6, SP[a1, a2], SP[a3, a5], n] - S2[a4, SP[a1, a6], a2, 
     SP[a3, a5], n] - S2[a4, SP[a1, a6], SP[a2, a5], a3, n] + 
    S2[SP[a1, a2], a6, a3, SP[a4, a5], n] + S2[SP[a1, a2], a6, a4, 
     SP[a3, a5], n] + S2[SP[a1, a2], a6, SP[a3, a5], a4, n] + 
    S2[SP[a1, a2], a6, SP[a4, a5], a3, n] + S2[SP[a1, a2], SP[a5, a6], a3, 
     a4, n] + S2[SP[a1, a2], SP[a5, a6], a4, a3, n] - 
    S2[SP[a1, a3], a5, a6, SP[a2, a4], n] - S2[SP[a1, a3], a5, SP[a2, a6], 
     a4, n] - S2[SP[a1, a3], a6, a5, SP[a2, a4], n] - 
    S2[SP[a1, a3], a6, SP[a4, a5], a2, n] - S2[SP[a1, a3], SP[a5, a6], a2, 
     a4, n] - S2[SP[a1, a3], SP[a5, a6], a4, a2, n] + 
    S2[SP[a1, a4], a5, a2, SP[a3, a6], n] + S2[SP[a1, a4], a5, SP[a2, a6], 
     a3, n] - S2[SP[a1, a4], a6, a2, SP[a3, a5], n] - 
    S2[SP[a1, a4], a6, SP[a2, a5], a3, n] - S2[a1, a2, a6, a3, SP[a4, a5], 
     n] - S2[a1, a2, a6, a4, SP[a3, a5], n] - S2[a1, a2, a6, SP[a3, a5], a4, 
     n] - S2[a1, a2, a6, SP[a4, a5], a3, n] - S2[a1, a2, SP[a5, a6], a3, a4, 
     n] - S2[a1, a2, SP[a5, a6], a4, a3, n] + S2[a1, a3, a5, a6, SP[a2, a4], 
     n] + S2[a1, a3, a5, SP[a2, a6], a4, n] + S2[a1, a3, a6, a5, SP[a2, a4], 
     n] + S2[a1, a3, a6, SP[a4, a5], a2, n] + S2[a1, a3, SP[a5, a6], a2, a4, 
     n] + S2[a1, a3, SP[a5, a6], a4, a2, n] - S2[a1, a4, a5, a2, SP[a3, a6], 
     n] - S2[a1, a4, a5, SP[a2, a6], a3, n] + S2[a1, a4, a6, a2, SP[a3, a5], 
     n] + S2[a1, a4, a6, SP[a2, a5], a3, n] + 
    S2[a4, n]*S2[a1, a5, a2, a3, a6, n] + S2[a1, a5, a2, a3, SP[a4, a6], n] - 
    S2[a1, a5, a2, a4, SP[a3, a6], n] + S2[a4, n]*S2[a1, a5, a2, a6, a3, n] - 
    S2[a3, n]*S2[a1, a5, a2, a6, a4, n] - S2[a1, a5, a2, SP[a3, a6], a4, n] + 
    S2[a1, a5, a2, SP[a4, a6], a3, n] + S2[a1, a5, a3, a6, SP[a2, a4], n] + 
    S2[a1, a5, a3, SP[a2, a6], a4, n] - S2[a1, a5, a4, a2, SP[a3, a6], n] - 
    S2[a1, a5, a4, SP[a2, a6], a3, n] - S2[a3, n]*S2[a1, a5, a6, a2, a4, n] - 
    S2[a1, a5, a6, a2, SP[a3, a4], n] + S2[a2, n]*S2[a1, a5, a6, a3, a4, n] + 
    S2[a1, a5, a6, a3, SP[a2, a4], n] - S2[a3, n]*S2[a1, a5, a6, a4, a2, n] + 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] + S2[a1, a5, a6, SP[a2, a4], a3, n] - 
    S2[a1, a5, a6, SP[a3, a4], a2, n] + S2[a1, a5, SP[a2, a6], a3, a4, n] + 
    S2[a1, a5, SP[a2, a6], a4, a3, n] - S2[a1, a5, SP[a3, a6], a2, a4, n] - 
    S2[a1, a5, SP[a3, a6], a4, a2, n] - S2[a4, n]*S2[a1, a6, a2, a3, a5, n] - 
    S2[a1, a6, a2, a3, SP[a4, a5], n] - S2[a4, n]*S2[a1, a6, a2, a5, a3, n] - 
    S2[a1, a6, a2, a5, SP[a3, a4], n] - S2[a1, a6, a2, SP[a3, a4], a5, n] - 
    S2[a1, a6, a2, SP[a4, a5], a3, n] + S2[a2, n]*S2[a1, a6, a3, a4, a5, n] + 
    S2[a1, a6, a3, a4, SP[a2, a5], n] + S2[a2, n]*S2[a1, a6, a3, a5, a4, n] + 
    S2[a1, a6, a3, a5, SP[a2, a4], n] + S2[a1, a6, a3, SP[a2, a4], a5, n] + 
    S2[a1, a6, a3, SP[a2, a5], a4, n] + S2[a2, n]*S2[a1, a6, a4, a3, a5, n] + 
    S2[a1, a6, a4, a3, SP[a2, a5], n] - S2[a3, n]*S2[a1, a6, a4, a5, a2, n] + 
    S2[a2, n]*S2[a1, a6, a4, a5, a3, n] + S2[a1, a6, a4, SP[a2, a3], a5, n] + 
    S2[a1, a6, a4, SP[a2, a5], a3, n] - S2[a1, a6, a4, SP[a3, a5], a2, n] - 
    S2[a3, n]*S2[a1, a6, a5, a2, a4, n] - S2[a1, a6, a5, a2, SP[a3, a4], n] + 
    S2[a2, n]*S2[a1, a6, a5, a3, a4, n] + S2[a1, a6, a5, a3, SP[a2, a4], n] - 
    S2[a3, n]*S2[a1, a6, a5, a4, a2, n] + 
    S2[a2, n]*S2[a1, a6, a5, a4, a3, n] + S2[a1, a6, a5, SP[a2, a4], a3, n] - 
    S2[a1, a6, a5, SP[a3, a4], a2, n] + S2[a1, a6, SP[a2, a3], a4, a5, n] + 
    S2[a1, a6, SP[a2, a3], a5, a4, n] + S2[a1, a6, SP[a2, a5], a3, a4, n] + 
    S2[a1, a6, SP[a2, a5], a4, a3, n] - S2[a1, a6, SP[a3, a4], a5, a2, n] - 
    S2[a1, a6, SP[a3, a5], a2, a4, n] - S2[a1, a6, SP[a3, a5], a4, a2, n] + 
    S2[a1, SP[a2, a6], a3, a4, a5, n] + S2[a1, SP[a2, a6], a3, a5, a4, n] + 
    S2[a1, SP[a2, a6], a4, a3, a5, n] + S2[a1, SP[a2, a6], a4, a5, a3, n] + 
    S2[a1, SP[a2, a6], a5, a3, a4, n] + S2[a1, SP[a2, a6], a5, a4, a3, n] - 
    S2[a1, SP[a3, a6], a4, a5, a2, n] - S2[a1, SP[a3, a6], a5, a2, a4, n] - 
    S2[a1, SP[a3, a6], a5, a4, a2, n] - S2[a1, SP[a4, a6], a2, a3, a5, n] - 
    S2[a1, SP[a4, a6], a2, a5, a3, n] - S2[a2, a1, a6, a3, SP[a4, a5], n] - 
    S2[a2, a1, a6, a4, SP[a3, a5], n] - S2[a2, a1, a6, SP[a3, a5], a4, n] - 
    S2[a2, a1, a6, SP[a4, a5], a3, n] - S2[a2, a1, SP[a5, a6], a3, a4, n] - 
    S2[a2, a1, SP[a5, a6], a4, a3, n] + S2[a4, n]*S2[a2, a6, a1, a3, a5, n] - 
    S2[a2, a6, a1, a4, SP[a3, a5], n] + S2[a4, n]*S2[a2, a6, a1, a5, a3, n] + 
    S2[a2, a6, a1, a5, SP[a3, a4], n] + S2[a2, a6, a1, SP[a3, a4], a5, n] - 
    S2[a2, a6, a1, SP[a3, a5], a4, n] - S2[a2, a6, a3, a1, SP[a4, a5], n] - 
    S2[a2, a6, a3, SP[a1, a4], a5, n] - S2[a2, a6, a4, a1, SP[a3, a5], n] - 
    S2[a2, a6, a4, SP[a1, a3], a5, n] - S2[a2, a6, SP[a1, a3], a4, a5, n] - 
    S2[a2, a6, SP[a1, a3], a5, a4, n] - S2[a2, SP[a1, a6], a3, a4, a5, n] - 
    S2[a2, SP[a1, a6], a3, a5, a4, n] - S2[a2, SP[a1, a6], a4, a3, a5, n] - 
    S2[a2, SP[a1, a6], a4, a5, a3, n] - S2[a2, SP[a1, a6], a5, a3, a4, n] - 
    S2[a2, SP[a1, a6], a5, a4, a3, n] + S2[a2, SP[a4, a6], a1, a3, a5, n] + 
    S2[a2, SP[a4, a6], a1, a5, a3, n] + S2[a3, a1, a5, a6, SP[a2, a4], n] + 
    S2[a3, a1, a5, SP[a2, a6], a4, n] + S2[a3, a1, a6, a5, SP[a2, a4], n] + 
    S2[a3, a1, a6, SP[a4, a5], a2, n] + S2[a3, a1, SP[a5, a6], a2, a4, n] + 
    S2[a3, a1, SP[a5, a6], a4, a2, n] + S2[a3, a6, a1, a5, SP[a2, a4], n] + 
    S2[a3, a6, a1, SP[a4, a5], a2, n] + S2[a3, a6, SP[a1, a4], a5, a2, n] + 
    S2[a3, SP[a1, a6], a4, a5, a2, n] + S2[a3, SP[a1, a6], a5, a2, a4, n] + 
    S2[a3, SP[a1, a6], a5, a4, a2, n] - S2[a4, a1, a5, a2, SP[a3, a6], n] - 
    S2[a4, a1, a5, SP[a2, a6], a3, n] + S2[a4, a1, a6, a2, SP[a3, a5], n] + 
    S2[a4, a1, a6, SP[a2, a5], a3, n] + S2[a4, a6, a1, a2, SP[a3, a5], n] - 
    S2[a2, n]*S2[a4, a6, a1, a3, a5, n] - S2[a4, a6, a1, a3, SP[a2, a5], n] - 
    S2[a2, n]*S2[a4, a6, a1, a5, a3, n] - S2[a4, a6, a1, a5, SP[a2, a3], n] - 
    S2[a4, a6, a1, SP[a2, a3], a5, n] + S2[a4, a6, a2, a1, SP[a3, a5], n] + 
    S2[a4, a6, a2, SP[a1, a3], a5, n] + S2[a4, SP[a1, a6], a2, a3, a5, n] + 
    S2[a4, SP[a1, a6], a2, a5, a3, n] - S2[a4, SP[a2, a6], a1, a3, a5, n] - 
    S2[a4, SP[a2, a6], a1, a5, a3, n] + S2[a4, n]*S2[a6, a1, a3, a2, a5, n] + 
    S2[a6, a1, a3, a2, SP[a4, a5], n] + S2[a4, n]*S2[a6, a1, a3, a5, a2, n] + 
    S2[a6, a1, a3, a5, SP[a2, a4], n] + S2[a6, a1, a3, SP[a2, a4], a5, n] + 
    S2[a6, a1, a3, SP[a4, a5], a2, n] - S2[a3, n]*S2[a6, a1, a4, a5, a2, n] - 
    S2[a6, a1, a4, a5, SP[a2, a3], n] - S2[a6, a1, a4, SP[a3, a5], a2, n] + 
    S2[a4, n]*S2[a6, a1, a5, a2, a3, n] - 
    S2[a3, n]*S2[a6, a1, a5, a2, a4, n] + 
    S2[a4, n]*S2[a6, a1, a5, a3, a2, n] + S2[a6, a1, a5, a3, SP[a2, a4], n] - 
    S2[a3, n]*S2[a6, a1, a5, a4, a2, n] - S2[a6, a1, a5, a4, SP[a2, a3], n] - 
    S2[a6, a1, a5, SP[a2, a3], a4, n] + S2[a6, a1, a5, SP[a2, a4], a3, n] + 
    S2[a6, a1, SP[a3, a4], a2, a5, n] - S2[a6, a1, SP[a3, a5], a2, a4, n] - 
    S2[a6, a1, SP[a3, a5], a4, a2, n] + S2[a6, a1, SP[a4, a5], a2, a3, n] + 
    S2[a6, a1, SP[a4, a5], a3, a2, n] - S2[a4, n]*S2[a6, a2, a3, a1, a5, n] - 
    S2[a6, a2, a3, a1, SP[a4, a5], n] - S2[a6, a2, a3, SP[a1, a4], a5, n] - 
    S2[a6, a2, SP[a3, a4], a1, a5, n] + S2[a2, n]*S2[a6, a3, a1, a4, a5, n] + 
    S2[a6, a3, a1, a4, SP[a2, a5], n] + S2[a2, n]*S2[a6, a3, a1, a5, a4, n] + 
    S2[a6, a3, a1, a5, SP[a2, a4], n] + S2[a6, a3, a1, SP[a2, a4], a5, n] + 
    S2[a6, a3, a1, SP[a2, a5], a4, n] - S2[a1, n]*S2[a6, a3, a2, a4, a5, n] - 
    S2[a6, a3, a2, a4, SP[a1, a5], n] - S2[a1, n]*S2[a6, a3, a2, a5, a4, n] - 
    S2[a6, a3, a2, a5, SP[a1, a4], n] - S2[a6, a3, a2, SP[a1, a4], a5, n] - 
    S2[a6, a3, a2, SP[a1, a5], a4, n] + S2[a2, n]*S2[a6, a3, a4, a1, a5, n] + 
    S2[a6, a3, a4, a1, SP[a2, a5], n] - S2[a1, n]*S2[a6, a3, a4, a2, a5, n] - 
    S2[a6, a3, a4, a2, SP[a1, a5], n] - S2[a6, a3, SP[a1, a4], a2, a5, n] + 
    S2[a6, a3, SP[a2, a4], a1, a5, n] - S2[a3, n]*S2[a6, a4, a1, a5, a2, n] - 
    S2[a6, a4, a1, a5, SP[a2, a3], n] - S2[a6, a4, a1, SP[a3, a5], a2, n] + 
    S2[a2, n]*S2[a6, a4, a3, a1, a5, n] + S2[a6, a4, a3, a1, SP[a2, a5], n] - 
    S2[a1, n]*S2[a6, a4, a3, a2, a5, n] - S2[a6, a4, a3, a2, SP[a1, a5], n] - 
    S2[a6, a4, SP[a1, a3], a2, a5, n] - S2[a6, a4, SP[a1, a3], a5, a2, n] + 
    S2[a6, a4, SP[a2, a3], a1, a5, n] - S2[a6, SP[a1, a3], a2, a4, a5, n] - 
    S2[a6, SP[a1, a3], a2, a5, a4, n] - S2[a6, SP[a1, a3], a4, a2, a5, n] - 
    S2[a6, SP[a1, a3], a4, a5, a2, n] - S2[a6, SP[a1, a3], a5, a2, a4, n] - 
    S2[a6, SP[a1, a3], a5, a4, a2, n] + S2[a6, SP[a1, a4], a3, a5, a2, n] + 
    S2[a6, SP[a1, a4], a5, a2, a3, n] + S2[a6, SP[a1, a4], a5, a3, a2, n] + 
    S2[a6, SP[a2, a3], a1, a4, a5, n] + S2[a6, SP[a2, a3], a1, a5, a4, n] + 
    S2[a6, SP[a2, a3], a4, a1, a5, n] - S2[a6, SP[a3, a4], a1, a5, a2, n] - 
    S2[SP[a1, a6], a3, a2, a4, a5, n] - S2[SP[a1, a6], a3, a2, a5, a4, n] - 
    S2[SP[a1, a6], a3, a4, a2, a5, n] - S2[SP[a1, a6], a4, a3, a2, a5, n] + 
    S2[SP[a2, a6], a3, a1, a4, a5, n] + S2[SP[a2, a6], a3, a1, a5, a4, n] + 
    S2[SP[a2, a6], a3, a4, a1, a5, n] + S2[SP[a2, a6], a4, a3, a1, a5, n] - 
    S2[SP[a3, a6], a1, a4, a5, a2, n] - S2[SP[a3, a6], a1, a5, a2, a4, n] - 
    S2[SP[a3, a6], a1, a5, a4, a2, n] - S2[SP[a3, a6], a4, a1, a5, a2, n] + 
    S2[SP[a4, a6], a1, a3, a2, a5, n] + S2[SP[a4, a6], a1, a3, a5, a2, n] + 
    S2[SP[a4, a6], a1, a5, a2, a3, n] + S2[SP[a4, a6], a1, a5, a3, a2, n] - 
    S2[SP[a4, a6], a2, a3, a1, a5, n] + S2[a6, a3, a2, a4, a5, a1, n] + 
    S2[a6, a3, a2, a5, a1, a4, n] + S2[a6, a3, a2, a5, a4, a1, n] + 
    S2[a6, a3, a4, a2, a5, a1, n] + S2[a6, a4, a3, a2, a5, a1, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a1_, a5_, a2_, a4_, a3_, a6_, n_] :> 
  -(S2[a1, a5, a2, n]*S2[a3, a4, a6, n]) - S2[a1, a5, a2, n]*
     S2[a3, a6, a4, n] - S2[SP[a1, a3], SP[a4, a5], SP[a2, a6], n] - 
    S2[SP[a1, a3], SP[a5, a6], SP[a2, a4], n] + S2[a1, a3, SP[a4, a5], 
     SP[a2, a6], n] + S2[a1, a3, SP[a5, a6], SP[a2, a4], n] + 
    S2[a3, a6, n]*S2[a1, a5, a2, a4, n] - S2[a1, a5, SP[a2, a3], SP[a4, a6], 
     n] - S2[a1, SP[a3, a5], a2, SP[a4, a6], n] + S2[a1, SP[a3, a5], a4, 
     SP[a2, a6], n] + S2[a1, SP[a3, a5], a6, SP[a2, a4], n] + 
    S2[a1, SP[a3, a5], SP[a2, a4], a6, n] + S2[a1, a5, n]*
     S2[a2, a4, a3, a6, n] + S2[a1, a5, n]*S2[a2, a4, a6, a3, n] - 
    S2[a2, a4, SP[a1, a3], SP[a5, a6], n] - S2[a2, a4, SP[a1, a6], 
     SP[a3, a5], n] + S2[a1, a5, n]*S2[a2, a6, a3, a4, n] + 
    S2[a1, a5, n]*S2[a2, a6, a4, a3, n] - S2[a2, a6, SP[a1, a3], SP[a4, a5], 
     n] - S2[a2, a6, SP[a1, a4], SP[a3, a5], n] - S2[a2, SP[a1, a4], a3, 
     SP[a5, a6], n] - S2[a2, SP[a1, a4], a6, SP[a3, a5], n] - 
    S2[a2, SP[a1, a4], SP[a3, a5], a6, n] - S2[a2, SP[a1, a4], SP[a5, a6], 
     a3, n] - S2[a2, SP[a1, a6], a3, SP[a4, a5], n] - 
    S2[a2, SP[a1, a6], a4, SP[a3, a5], n] - S2[a2, SP[a1, a6], SP[a3, a5], 
     a4, n] - S2[a2, SP[a1, a6], SP[a4, a5], a3, n] + 
    S2[a3, a1, SP[a4, a5], SP[a2, a6], n] + S2[a3, a1, SP[a5, a6], 
     SP[a2, a4], n] - S2[a1, a5, n]*S2[a3, a6, a2, a4, n] + 
    S2[a3, a6, SP[a1, a2], SP[a4, a5], n] + S2[a3, SP[a1, a4], a5, 
     SP[a2, a6], n] + S2[a3, SP[a1, a4], SP[a5, a6], a2, n] + 
    S2[a3, SP[a1, a6], a2, SP[a4, a5], n] + S2[a3, SP[a1, a6], a5, 
     SP[a2, a4], n] + S2[a3, SP[a1, a6], SP[a2, a5], a4, n] + 
    S2[a3, SP[a1, a6], SP[a4, a5], a2, n] - S2[SP[a1, a2], a4, a3, 
     SP[a5, a6], n] - S2[SP[a1, a2], a4, a6, SP[a3, a5], n] - 
    S2[SP[a1, a2], a4, SP[a3, a5], a6, n] - S2[SP[a1, a2], a4, SP[a5, a6], 
     a3, n] - S2[SP[a1, a2], a6, a3, SP[a4, a5], n] - 
    S2[SP[a1, a2], a6, a4, SP[a3, a5], n] - S2[SP[a1, a2], a6, SP[a3, a5], 
     a4, n] - S2[SP[a1, a2], a6, SP[a4, a5], a3, n] - 
    S2[SP[a1, a2], SP[a4, a5], a3, a6, n] - S2[SP[a1, a2], SP[a4, a5], a6, 
     a3, n] - S2[SP[a1, a2], SP[a5, a6], a3, a4, n] - 
    S2[SP[a1, a2], SP[a5, a6], a4, a3, n] + S2[SP[a1, a3], a4, a5, 
     SP[a2, a6], n] + S2[SP[a1, a3], a4, SP[a5, a6], a2, n] - 
    S2[SP[a1, a3], a5, a2, SP[a4, a6], n] + S2[SP[a1, a3], a5, a4, 
     SP[a2, a6], n] + S2[SP[a1, a3], a5, a6, SP[a2, a4], n] + 
    S2[SP[a1, a3], a5, SP[a2, a4], a6, n] + S2[SP[a1, a3], a6, a2, 
     SP[a4, a5], n] + S2[SP[a1, a3], a6, a5, SP[a2, a4], n] + 
    S2[SP[a1, a3], a6, SP[a2, a5], a4, n] + S2[SP[a1, a3], a6, SP[a4, a5], 
     a2, n] + S2[SP[a1, a3], SP[a4, a5], a2, a6, n] + 
    S2[SP[a1, a3], SP[a4, a5], a6, a2, n] + S2[SP[a1, a3], SP[a5, a6], a2, 
     a4, n] + S2[SP[a1, a3], SP[a5, a6], a4, a2, n] + 
    S2[a1, a2, a4, a3, SP[a5, a6], n] + S2[a1, a2, a4, a6, SP[a3, a5], n] + 
    S2[a1, a2, a4, SP[a3, a5], a6, n] + S2[a1, a2, a4, SP[a5, a6], a3, n] + 
    S2[a1, a2, a6, a3, SP[a4, a5], n] + S2[a1, a2, a6, a4, SP[a3, a5], n] + 
    S2[a1, a2, a6, SP[a3, a5], a4, n] + S2[a1, a2, a6, SP[a4, a5], a3, n] + 
    S2[a1, a2, SP[a4, a5], a3, a6, n] + S2[a1, a2, SP[a4, a5], a6, a3, n] + 
    S2[a1, a2, SP[a5, a6], a3, a4, n] + S2[a1, a2, SP[a5, a6], a4, a3, n] - 
    S2[a1, a3, a4, a5, SP[a2, a6], n] - S2[a1, a3, a4, SP[a5, a6], a2, n] + 
    S2[a1, a3, a5, a2, SP[a4, a6], n] - S2[a1, a3, a5, a4, SP[a2, a6], n] - 
    S2[a1, a3, a5, a6, SP[a2, a4], n] - S2[a1, a3, a5, SP[a2, a4], a6, n] - 
    S2[a1, a3, a6, a2, SP[a4, a5], n] - S2[a1, a3, a6, a5, SP[a2, a4], n] - 
    S2[a1, a3, a6, SP[a2, a5], a4, n] - S2[a1, a3, a6, SP[a4, a5], a2, n] - 
    S2[a1, a3, SP[a4, a5], a2, a6, n] - S2[a1, a3, SP[a4, a5], a6, a2, n] - 
    S2[a1, a3, SP[a5, a6], a2, a4, n] - S2[a1, a3, SP[a5, a6], a4, a2, n] + 
    S2[a6, n]*S2[a1, a4, a2, a3, a5, n] + S2[a1, a4, a2, a3, SP[a5, a6], n] + 
    S2[a6, n]*S2[a1, a4, a2, a5, a3, n] + S2[a1, a4, a2, a5, SP[a3, a6], n] + 
    S2[a1, a4, a2, SP[a3, a6], a5, n] + S2[a1, a4, a2, SP[a5, a6], a3, n] + 
    S2[a6, n]*S2[a1, a4, a3, a2, a5, n] + S2[a1, a4, a3, a2, SP[a5, a6], n] - 
    S2[a2, n]*S2[a1, a4, a3, a5, a6, n] - S2[a1, a4, a3, a5, SP[a2, a6], n] - 
    S2[a2, n]*S2[a1, a4, a3, a6, a5, n] - S2[a1, a4, a3, a6, SP[a2, a5], n] - 
    S2[a1, a4, a3, SP[a2, a5], a6, n] + S2[a3, n]*S2[a1, a4, a5, a2, a6, n] + 
    S2[a1, a4, a5, a2, SP[a3, a6], n] - S2[a2, n]*S2[a1, a4, a5, a3, a6, n] - 
    S2[a1, a4, a5, a3, SP[a2, a6], n] + S2[a3, n]*S2[a1, a4, a5, a6, a2, n] - 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] - S2[a1, a4, a5, SP[a2, a6], a3, n] + 
    S2[a1, a4, a5, SP[a3, a6], a2, n] - S2[a2, n]*S2[a1, a4, a6, a3, a5, n] - 
    S2[a1, a4, a6, a3, SP[a2, a5], n] + S2[a3, n]*S2[a1, a4, a6, a5, a2, n] - 
    S2[a2, n]*S2[a1, a4, a6, a5, a3, n] - S2[a1, a4, a6, SP[a2, a3], a5, n] - 
    S2[a1, a4, a6, SP[a2, a5], a3, n] + S2[a1, a4, a6, SP[a3, a5], a2, n] - 
    S2[a1, a4, SP[a2, a3], a5, a6, n] - S2[a1, a4, SP[a2, a3], a6, a5, n] - 
    S2[a1, a4, SP[a2, a5], a3, a6, n] - S2[a1, a4, SP[a2, a5], a6, a3, n] + 
    S2[a1, a4, SP[a3, a5], a2, a6, n] + S2[a1, a4, SP[a3, a5], a6, a2, n] + 
    S2[a1, a4, SP[a3, a6], a2, a5, n] + S2[a1, a4, SP[a3, a6], a5, a2, n] + 
    S2[a1, a5, a2, a3, SP[a4, a6], n] + S2[a1, a5, a2, SP[a3, a4], a6, n] + 
    S2[a1, a5, a3, a2, SP[a4, a6], n] - S2[a1, a5, a3, a4, SP[a2, a6], n] - 
    S2[a1, a5, a3, a6, SP[a2, a4], n] - S2[a1, a5, a3, SP[a2, a4], a6, n] + 
    S2[a3, n]*S2[a1, a5, a4, a2, a6, n] + S2[a1, a5, a4, a2, SP[a3, a6], n] - 
    S2[a2, n]*S2[a1, a5, a4, a3, a6, n] - S2[a1, a5, a4, a3, SP[a2, a6], n] + 
    S2[a3, n]*S2[a1, a5, a4, a6, a2, n] - 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] - S2[a1, a5, a4, SP[a2, a6], a3, n] + 
    S2[a1, a5, a4, SP[a3, a6], a2, n] + S2[a3, n]*S2[a1, a5, a6, a2, a4, n] + 
    S2[a1, a5, a6, a2, SP[a3, a4], n] - S2[a2, n]*S2[a1, a5, a6, a3, a4, n] - 
    S2[a1, a5, a6, a3, SP[a2, a4], n] + S2[a3, n]*S2[a1, a5, a6, a4, a2, n] - 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] - S2[a1, a5, a6, SP[a2, a4], a3, n] + 
    S2[a1, a5, a6, SP[a3, a4], a2, n] - S2[a1, a5, SP[a2, a4], a3, a6, n] - 
    S2[a1, a5, SP[a2, a4], a6, a3, n] - S2[a1, a5, SP[a2, a6], a3, a4, n] - 
    S2[a1, a5, SP[a2, a6], a4, a3, n] + S2[a1, a5, SP[a3, a4], a2, a6, n] + 
    S2[a1, a5, SP[a3, a4], a6, a2, n] + S2[a1, a5, SP[a3, a6], a2, a4, n] + 
    S2[a1, a5, SP[a3, a6], a4, a2, n] + S2[a3, n]*S2[a1, a6, a2, a4, a5, n] + 
    S2[a1, a6, a2, a4, SP[a3, a5], n] + S2[a3, n]*S2[a1, a6, a2, a5, a4, n] + 
    S2[a1, a6, a2, a5, SP[a3, a4], n] + S2[a1, a6, a2, SP[a3, a4], a5, n] + 
    S2[a1, a6, a2, SP[a3, a5], a4, n] - S2[a2, n]*S2[a1, a6, a3, a4, a5, n] - 
    S2[a1, a6, a3, a4, SP[a2, a5], n] - S2[a2, n]*S2[a1, a6, a3, a5, a4, n] - 
    S2[a1, a6, a3, a5, SP[a2, a4], n] - S2[a1, a6, a3, SP[a2, a4], a5, n] - 
    S2[a1, a6, a3, SP[a2, a5], a4, n] - S2[a2, n]*S2[a1, a6, a4, a3, a5, n] - 
    S2[a1, a6, a4, a3, SP[a2, a5], n] + S2[a3, n]*S2[a1, a6, a4, a5, a2, n] - 
    S2[a2, n]*S2[a1, a6, a4, a5, a3, n] - S2[a1, a6, a4, SP[a2, a3], a5, n] - 
    S2[a1, a6, a4, SP[a2, a5], a3, n] + S2[a1, a6, a4, SP[a3, a5], a2, n] + 
    S2[a3, n]*S2[a1, a6, a5, a2, a4, n] + S2[a1, a6, a5, a2, SP[a3, a4], n] - 
    S2[a2, n]*S2[a1, a6, a5, a3, a4, n] - S2[a1, a6, a5, a3, SP[a2, a4], n] + 
    S2[a3, n]*S2[a1, a6, a5, a4, a2, n] - 
    S2[a2, n]*S2[a1, a6, a5, a4, a3, n] - S2[a1, a6, a5, SP[a2, a4], a3, n] + 
    S2[a1, a6, a5, SP[a3, a4], a2, n] - S2[a1, a6, SP[a2, a4], a3, a5, n] - 
    S2[a1, a6, SP[a2, a4], a5, a3, n] - S2[a1, a6, SP[a2, a5], a3, a4, n] - 
    S2[a1, a6, SP[a2, a5], a4, a3, n] + S2[a1, a6, SP[a3, a4], a5, a2, n] + 
    S2[a1, a6, SP[a3, a5], a2, a4, n] + S2[a1, a6, SP[a3, a5], a4, a2, n] - 
    S2[a1, SP[a2, a4], a3, a5, a6, n] - S2[a1, SP[a2, a4], a3, a6, a5, n] - 
    S2[a1, SP[a2, a4], a5, a3, a6, n] - S2[a1, SP[a2, a4], a5, a6, a3, n] - 
    S2[a1, SP[a2, a4], a6, a3, a5, n] - S2[a1, SP[a2, a4], a6, a5, a3, n] - 
    S2[a1, SP[a2, a6], a3, a4, a5, n] - S2[a1, SP[a2, a6], a3, a5, a4, n] - 
    S2[a1, SP[a2, a6], a4, a3, a5, n] - S2[a1, SP[a2, a6], a4, a5, a3, n] - 
    S2[a1, SP[a2, a6], a5, a3, a4, n] - S2[a1, SP[a2, a6], a5, a4, a3, n] + 
    S2[a1, SP[a3, a4], a5, a2, a6, n] + S2[a1, SP[a3, a4], a5, a6, a2, n] + 
    S2[a1, SP[a3, a4], a6, a5, a2, n] + S2[a1, SP[a3, a6], a2, a4, a5, n] + 
    S2[a1, SP[a3, a6], a2, a5, a4, n] + S2[a1, SP[a3, a6], a4, a5, a2, n] + 
    S2[a1, SP[a3, a6], a5, a2, a4, n] + S2[a1, SP[a3, a6], a5, a4, a2, n] + 
    S2[a1, SP[a4, a6], a2, a3, a5, n] + S2[a1, SP[a4, a6], a2, a5, a3, n] + 
    S2[a1, SP[a4, a6], a3, a2, a5, n] + S2[a2, a1, a4, a3, SP[a5, a6], n] + 
    S2[a2, a1, a4, a6, SP[a3, a5], n] + S2[a2, a1, a4, SP[a3, a5], a6, n] + 
    S2[a2, a1, a4, SP[a5, a6], a3, n] + S2[a2, a1, a6, a3, SP[a4, a5], n] + 
    S2[a2, a1, a6, a4, SP[a3, a5], n] + S2[a2, a1, a6, SP[a3, a5], a4, n] + 
    S2[a2, a1, a6, SP[a4, a5], a3, n] + S2[a2, a1, SP[a4, a5], a3, a6, n] + 
    S2[a2, a1, SP[a4, a5], a6, a3, n] + S2[a2, a1, SP[a5, a6], a3, a4, n] + 
    S2[a2, a1, SP[a5, a6], a4, a3, n] - S2[a6, n]*S2[a2, a4, a1, a3, a5, n] - 
    S2[a6, n]*S2[a2, a4, a1, a5, a3, n] - S2[a2, a4, a1, a5, SP[a3, a6], n] + 
    S2[a2, a4, a1, a6, SP[a3, a5], n] + S2[a2, a4, a1, SP[a3, a5], a6, n] - 
    S2[a2, a4, a1, SP[a3, a6], a5, n] - S2[a6, n]*S2[a2, a4, a3, a1, a5, n] + 
    S2[a2, a4, a6, a1, SP[a3, a5], n] + S2[a2, a4, a6, SP[a1, a3], a5, n] + 
    S2[a2, a4, SP[a1, a3], a5, a6, n] + S2[a2, a4, SP[a1, a3], a6, a5, n] - 
    S2[a2, a4, SP[a3, a6], a1, a5, n] + S2[a2, a6, a1, a3, SP[a4, a5], n] - 
    S2[a3, n]*S2[a2, a6, a1, a4, a5, n] - 
    S2[a3, n]*S2[a2, a6, a1, a5, a4, n] - S2[a2, a6, a1, a5, SP[a3, a4], n] - 
    S2[a2, a6, a1, SP[a3, a4], a5, n] + S2[a2, a6, a1, SP[a4, a5], a3, n] + 
    S2[a2, a6, a3, a1, SP[a4, a5], n] + S2[a2, a6, a3, SP[a1, a4], a5, n] + 
    S2[a2, a6, a4, a1, SP[a3, a5], n] + S2[a2, a6, a4, SP[a1, a3], a5, n] + 
    S2[a2, a6, SP[a1, a4], a3, a5, n] + S2[a2, a6, SP[a1, a4], a5, a3, n] + 
    S2[a2, SP[a1, a4], a3, a5, a6, n] + S2[a2, SP[a1, a4], a3, a6, a5, n] + 
    S2[a2, SP[a1, a4], a5, a3, a6, n] + S2[a2, SP[a1, a4], a5, a6, a3, n] + 
    S2[a2, SP[a1, a4], a6, a3, a5, n] + S2[a2, SP[a1, a4], a6, a5, a3, n] + 
    S2[a2, SP[a1, a6], a3, a4, a5, n] + S2[a2, SP[a1, a6], a3, a5, a4, n] + 
    S2[a2, SP[a1, a6], a4, a3, a5, n] + S2[a2, SP[a1, a6], a4, a5, a3, n] + 
    S2[a2, SP[a1, a6], a5, a3, a4, n] + S2[a2, SP[a1, a6], a5, a4, a3, n] - 
    S2[a2, SP[a3, a6], a1, a4, a5, n] - S2[a2, SP[a3, a6], a1, a5, a4, n] - 
    S2[a2, SP[a4, a6], a1, a3, a5, n] - S2[a2, SP[a4, a6], a1, a5, a3, n] - 
    S2[a2, SP[a4, a6], a3, a1, a5, n] - S2[a3, a1, a4, a5, SP[a2, a6], n] - 
    S2[a3, a1, a4, SP[a5, a6], a2, n] + S2[a3, a1, a5, a2, SP[a4, a6], n] - 
    S2[a3, a1, a5, a4, SP[a2, a6], n] - S2[a3, a1, a5, a6, SP[a2, a4], n] - 
    S2[a3, a1, a5, SP[a2, a4], a6, n] - S2[a3, a1, a6, a2, SP[a4, a5], n] - 
    S2[a3, a1, a6, a5, SP[a2, a4], n] - S2[a3, a1, a6, SP[a2, a5], a4, n] - 
    S2[a3, a1, a6, SP[a4, a5], a2, n] - S2[a3, a1, SP[a4, a5], a2, a6, n] - 
    S2[a3, a1, SP[a4, a5], a6, a2, n] - S2[a3, a1, SP[a5, a6], a2, a4, n] - 
    S2[a3, a1, SP[a5, a6], a4, a2, n] + S2[a6, n]*S2[a3, a4, a1, a5, a2, n] - 
    S2[a3, a6, a1, a2, SP[a4, a5], n] + S2[a2, n]*S2[a3, a6, a1, a4, a5, n] + 
    S2[a3, a6, a1, a4, SP[a2, a5], n] + S2[a2, n]*S2[a3, a6, a1, a5, a4, n] + 
    S2[a3, a6, a1, SP[a2, a4], a5, n] - S2[a3, a6, a1, SP[a4, a5], a2, n] - 
    S2[a3, a6, a2, a1, SP[a4, a5], n] - S2[a3, a6, a2, SP[a1, a4], a5, n] - 
    S2[a3, a6, SP[a1, a4], a5, a2, n] - S2[a3, SP[a1, a4], a5, a2, a6, n] - 
    S2[a3, SP[a1, a4], a5, a6, a2, n] - S2[a3, SP[a1, a4], a6, a5, a2, n] - 
    S2[a3, SP[a1, a6], a2, a4, a5, n] - S2[a3, SP[a1, a6], a2, a5, a4, n] - 
    S2[a3, SP[a1, a6], a4, a5, a2, n] - S2[a3, SP[a1, a6], a5, a2, a4, n] - 
    S2[a3, SP[a1, a6], a5, a4, a2, n] + S2[a3, SP[a2, a6], a1, a4, a5, n] + 
    S2[a3, SP[a2, a6], a1, a5, a4, n] + S2[a3, SP[a4, a6], a1, a5, a2, n] - 
    S2[a3, n]*S2[a6, a1, a4, a2, a5, n] - S2[a6, a1, a4, a2, SP[a3, a5], n] - 
    S2[a6, a1, a4, SP[a2, a3], a5, n] - S2[a6, a1, SP[a3, a4], a2, a5, n] + 
    S2[a3, n]*S2[a6, a2, a4, a1, a5, n] + S2[a6, a2, a4, a1, SP[a3, a5], n] + 
    S2[a6, a2, a4, SP[a1, a3], a5, n] + S2[a6, a2, SP[a3, a4], a1, a5, n] - 
    S2[a2, n]*S2[a6, a3, a4, a1, a5, n] - S2[a6, a3, a4, a1, SP[a2, a5], n] + 
    S2[a1, n]*S2[a6, a3, a4, a2, a5, n] + S2[a6, a3, a4, a2, SP[a1, a5], n] + 
    S2[a6, a3, SP[a1, a4], a2, a5, n] - S2[a6, a3, SP[a2, a4], a1, a5, n] + 
    S2[SP[a1, a6], a3, a4, a2, a5, n] + S2[SP[a1, a6], a4, a2, a3, a5, n] + 
    S2[SP[a1, a6], a4, a2, a5, a3, n] + S2[SP[a1, a6], a4, a3, a2, a5, n] - 
    S2[SP[a2, a6], a3, a4, a1, a5, n] - S2[SP[a2, a6], a4, a1, a3, a5, n] - 
    S2[SP[a2, a6], a4, a1, a5, a3, n] - S2[SP[a2, a6], a4, a3, a1, a5, n] - 
    S2[SP[a3, a6], a1, a4, a2, a5, n] + S2[SP[a3, a6], a2, a4, a1, a5, n] + 
    S2[SP[a3, a6], a4, a1, a5, a2, n] - S2[a6, a3, a4, a2, a5, a1, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a1_, a5_, a2_, a4_, a6_, a3_, n_] :> 
  S2[a1, a5, a2, n]*S2[a3, a6, a4, n] + S2[SP[a1, a3], SP[a5, a6], 
     SP[a2, a4], n] - S2[a1, a3, SP[a5, a6], SP[a2, a4], n] - 
    S2[a3, a6, n]*S2[a1, a5, a2, a4, n] + S2[a1, a5, SP[a2, a3], SP[a4, a6], 
     n] + S2[a1, SP[a3, a5], a2, SP[a4, a6], n] - S2[a1, SP[a3, a5], a6, 
     SP[a2, a4], n] - S2[a1, a5, n]*S2[a2, a6, a3, a4, n] - 
    S2[a1, a5, n]*S2[a2, a6, a4, a3, n] + S2[a2, a6, SP[a1, a3], SP[a4, a5], 
     n] + S2[a2, a6, SP[a1, a4], SP[a3, a5], n] + S2[a2, SP[a1, a6], a3, 
     SP[a4, a5], n] + S2[a2, SP[a1, a6], a4, SP[a3, a5], n] + 
    S2[a2, SP[a1, a6], SP[a3, a5], a4, n] + S2[a2, SP[a1, a6], SP[a4, a5], 
     a3, n] - S2[a3, a1, SP[a5, a6], SP[a2, a4], n] + 
    S2[a1, a5, n]*S2[a3, a6, a2, a4, n] - S2[a3, a6, SP[a1, a2], SP[a4, a5], 
     n] - S2[a3, SP[a1, a6], a2, SP[a4, a5], n] - S2[a3, SP[a1, a6], a5, 
     SP[a2, a4], n] - S2[a3, SP[a1, a6], SP[a2, a5], a4, n] - 
    S2[a3, SP[a1, a6], SP[a4, a5], a2, n] + S2[SP[a1, a2], a6, a3, 
     SP[a4, a5], n] + S2[SP[a1, a2], a6, a4, SP[a3, a5], n] + 
    S2[SP[a1, a2], a6, SP[a3, a5], a4, n] + S2[SP[a1, a2], a6, SP[a4, a5], 
     a3, n] + S2[SP[a1, a2], SP[a5, a6], a3, a4, n] + 
    S2[SP[a1, a2], SP[a5, a6], a4, a3, n] + S2[SP[a1, a3], a5, a2, 
     SP[a4, a6], n] - S2[SP[a1, a3], a5, a6, SP[a2, a4], n] - 
    S2[SP[a1, a3], a6, a2, SP[a4, a5], n] - S2[SP[a1, a3], a6, a5, 
     SP[a2, a4], n] - S2[SP[a1, a3], a6, SP[a2, a5], a4, n] - 
    S2[SP[a1, a3], a6, SP[a4, a5], a2, n] - S2[SP[a1, a3], SP[a5, a6], a2, 
     a4, n] - S2[SP[a1, a3], SP[a5, a6], a4, a2, n] - 
    S2[a1, a2, a6, a3, SP[a4, a5], n] - S2[a1, a2, a6, a4, SP[a3, a5], n] - 
    S2[a1, a2, a6, SP[a3, a5], a4, n] - S2[a1, a2, a6, SP[a4, a5], a3, n] - 
    S2[a1, a2, SP[a5, a6], a3, a4, n] - S2[a1, a2, SP[a5, a6], a4, a3, n] - 
    S2[a1, a3, a5, a2, SP[a4, a6], n] + S2[a1, a3, a5, a6, SP[a2, a4], n] + 
    S2[a1, a3, a6, a2, SP[a4, a5], n] + S2[a1, a3, a6, a5, SP[a2, a4], n] + 
    S2[a1, a3, a6, SP[a2, a5], a4, n] + S2[a1, a3, a6, SP[a4, a5], a2, n] + 
    S2[a1, a3, SP[a5, a6], a2, a4, n] + S2[a1, a3, SP[a5, a6], a4, a2, n] - 
    S2[a1, a5, a2, a3, SP[a4, a6], n] + S2[a3, n]*S2[a1, a5, a2, a4, a6, n] + 
    S2[a1, a5, a2, a4, SP[a3, a6], n] - S2[a1, a5, a3, a2, SP[a4, a6], n] + 
    S2[a1, a5, a3, a6, SP[a2, a4], n] - S2[a3, n]*S2[a1, a5, a6, a2, a4, n] - 
    S2[a1, a5, a6, a2, SP[a3, a4], n] + S2[a2, n]*S2[a1, a5, a6, a3, a4, n] + 
    S2[a1, a5, a6, a3, SP[a2, a4], n] - S2[a3, n]*S2[a1, a5, a6, a4, a2, n] + 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] + S2[a1, a5, a6, SP[a2, a4], a3, n] - 
    S2[a1, a5, a6, SP[a3, a4], a2, n] + S2[a1, a5, SP[a2, a6], a3, a4, n] + 
    S2[a1, a5, SP[a2, a6], a4, a3, n] - S2[a1, a5, SP[a3, a6], a2, a4, n] - 
    S2[a1, a5, SP[a3, a6], a4, a2, n] - S2[a3, n]*S2[a1, a6, a2, a4, a5, n] - 
    S2[a1, a6, a2, a4, SP[a3, a5], n] - S2[a3, n]*S2[a1, a6, a2, a5, a4, n] - 
    S2[a1, a6, a2, a5, SP[a3, a4], n] - S2[a1, a6, a2, SP[a3, a4], a5, n] - 
    S2[a1, a6, a2, SP[a3, a5], a4, n] + S2[a2, n]*S2[a1, a6, a3, a4, a5, n] + 
    S2[a1, a6, a3, a4, SP[a2, a5], n] + S2[a2, n]*S2[a1, a6, a3, a5, a4, n] + 
    S2[a1, a6, a3, a5, SP[a2, a4], n] + S2[a1, a6, a3, SP[a2, a4], a5, n] + 
    S2[a1, a6, a3, SP[a2, a5], a4, n] + S2[a2, n]*S2[a1, a6, a4, a3, a5, n] + 
    S2[a1, a6, a4, a3, SP[a2, a5], n] - S2[a3, n]*S2[a1, a6, a4, a5, a2, n] + 
    S2[a2, n]*S2[a1, a6, a4, a5, a3, n] + S2[a1, a6, a4, SP[a2, a3], a5, n] + 
    S2[a1, a6, a4, SP[a2, a5], a3, n] - S2[a1, a6, a4, SP[a3, a5], a2, n] - 
    S2[a3, n]*S2[a1, a6, a5, a2, a4, n] - S2[a1, a6, a5, a2, SP[a3, a4], n] + 
    S2[a2, n]*S2[a1, a6, a5, a3, a4, n] + S2[a1, a6, a5, a3, SP[a2, a4], n] - 
    S2[a3, n]*S2[a1, a6, a5, a4, a2, n] + 
    S2[a2, n]*S2[a1, a6, a5, a4, a3, n] + S2[a1, a6, a5, SP[a2, a4], a3, n] - 
    S2[a1, a6, a5, SP[a3, a4], a2, n] + S2[a1, a6, SP[a2, a4], a3, a5, n] + 
    S2[a1, a6, SP[a2, a4], a5, a3, n] + S2[a1, a6, SP[a2, a5], a3, a4, n] + 
    S2[a1, a6, SP[a2, a5], a4, a3, n] - S2[a1, a6, SP[a3, a4], a5, a2, n] - 
    S2[a1, a6, SP[a3, a5], a2, a4, n] - S2[a1, a6, SP[a3, a5], a4, a2, n] + 
    S2[a1, SP[a2, a6], a3, a4, a5, n] + S2[a1, SP[a2, a6], a3, a5, a4, n] + 
    S2[a1, SP[a2, a6], a4, a3, a5, n] + S2[a1, SP[a2, a6], a4, a5, a3, n] + 
    S2[a1, SP[a2, a6], a5, a3, a4, n] + S2[a1, SP[a2, a6], a5, a4, a3, n] - 
    S2[a1, SP[a3, a6], a2, a4, a5, n] - S2[a1, SP[a3, a6], a2, a5, a4, n] - 
    S2[a1, SP[a3, a6], a4, a5, a2, n] - S2[a1, SP[a3, a6], a5, a2, a4, n] - 
    S2[a1, SP[a3, a6], a5, a4, a2, n] - S2[a2, a1, a6, a3, SP[a4, a5], n] - 
    S2[a2, a1, a6, a4, SP[a3, a5], n] - S2[a2, a1, a6, SP[a3, a5], a4, n] - 
    S2[a2, a1, a6, SP[a4, a5], a3, n] - S2[a2, a1, SP[a5, a6], a3, a4, n] - 
    S2[a2, a1, SP[a5, a6], a4, a3, n] - S2[a2, a6, a1, a3, SP[a4, a5], n] + 
    S2[a3, n]*S2[a2, a6, a1, a4, a5, n] + 
    S2[a3, n]*S2[a2, a6, a1, a5, a4, n] + S2[a2, a6, a1, a5, SP[a3, a4], n] + 
    S2[a2, a6, a1, SP[a3, a4], a5, n] - S2[a2, a6, a1, SP[a4, a5], a3, n] - 
    S2[a2, a6, a3, a1, SP[a4, a5], n] - S2[a2, a6, a3, SP[a1, a4], a5, n] - 
    S2[a2, a6, a4, a1, SP[a3, a5], n] - S2[a2, a6, a4, SP[a1, a3], a5, n] - 
    S2[a2, a6, SP[a1, a4], a3, a5, n] - S2[a2, a6, SP[a1, a4], a5, a3, n] - 
    S2[a2, SP[a1, a6], a3, a4, a5, n] - S2[a2, SP[a1, a6], a3, a5, a4, n] - 
    S2[a2, SP[a1, a6], a4, a3, a5, n] - S2[a2, SP[a1, a6], a4, a5, a3, n] - 
    S2[a2, SP[a1, a6], a5, a3, a4, n] - S2[a2, SP[a1, a6], a5, a4, a3, n] + 
    S2[a2, SP[a3, a6], a1, a4, a5, n] + S2[a2, SP[a3, a6], a1, a5, a4, n] - 
    S2[a3, a1, a5, a2, SP[a4, a6], n] + S2[a3, a1, a5, a6, SP[a2, a4], n] + 
    S2[a3, a1, a6, a2, SP[a4, a5], n] + S2[a3, a1, a6, a5, SP[a2, a4], n] + 
    S2[a3, a1, a6, SP[a2, a5], a4, n] + S2[a3, a1, a6, SP[a4, a5], a2, n] + 
    S2[a3, a1, SP[a5, a6], a2, a4, n] + S2[a3, a1, SP[a5, a6], a4, a2, n] + 
    S2[a3, a6, a1, a2, SP[a4, a5], n] - S2[a2, n]*S2[a3, a6, a1, a4, a5, n] - 
    S2[a3, a6, a1, a4, SP[a2, a5], n] - S2[a2, n]*S2[a3, a6, a1, a5, a4, n] - 
    S2[a3, a6, a1, SP[a2, a4], a5, n] + S2[a3, a6, a1, SP[a4, a5], a2, n] + 
    S2[a3, a6, a2, a1, SP[a4, a5], n] + S2[a3, a6, a2, SP[a1, a4], a5, n] + 
    S2[a3, a6, SP[a1, a4], a5, a2, n] + S2[a3, SP[a1, a6], a2, a4, a5, n] + 
    S2[a3, SP[a1, a6], a2, a5, a4, n] + S2[a3, SP[a1, a6], a4, a5, a2, n] + 
    S2[a3, SP[a1, a6], a5, a2, a4, n] + S2[a3, SP[a1, a6], a5, a4, a2, n] - 
    S2[a3, SP[a2, a6], a1, a4, a5, n] - S2[a3, SP[a2, a6], a1, a5, a4, n] + 
    S2[a3, n]*S2[a6, a1, a4, a2, a5, n] + S2[a6, a1, a4, a2, SP[a3, a5], n] + 
    S2[a6, a1, a4, SP[a2, a3], a5, n] + S2[a6, a1, SP[a3, a4], a2, a5, n] - 
    S2[a3, n]*S2[a6, a2, a4, a1, a5, n] - S2[a6, a2, a4, a1, SP[a3, a5], n] - 
    S2[a6, a2, a4, SP[a1, a3], a5, n] - S2[a6, a2, SP[a3, a4], a1, a5, n] + 
    S2[a2, n]*S2[a6, a3, a4, a1, a5, n] + S2[a6, a3, a4, a1, SP[a2, a5], n] - 
    S2[a1, n]*S2[a6, a3, a4, a2, a5, n] - S2[a6, a3, a4, a2, SP[a1, a5], n] - 
    S2[a6, a3, SP[a1, a4], a2, a5, n] + S2[a6, a3, SP[a2, a4], a1, a5, n] + 
    S2[a2, n]*S2[a6, a4, a1, a3, a5, n] + S2[a6, a4, a1, a3, SP[a2, a5], n] - 
    S2[a3, n]*S2[a6, a4, a1, a5, a2, n] + 
    S2[a2, n]*S2[a6, a4, a1, a5, a3, n] + S2[a6, a4, a1, SP[a2, a3], a5, n] + 
    S2[a6, a4, a1, SP[a2, a5], a3, n] - S2[a6, a4, a1, SP[a3, a5], a2, n] - 
    S2[a1, n]*S2[a6, a4, a2, a3, a5, n] - S2[a6, a4, a2, a3, SP[a1, a5], n] - 
    S2[a1, n]*S2[a6, a4, a2, a5, a3, n] - S2[a6, a4, a2, a5, SP[a1, a3], n] - 
    S2[a6, a4, a2, SP[a1, a3], a5, n] - S2[a6, a4, a2, SP[a1, a5], a3, n] + 
    S2[a2, n]*S2[a6, a4, a3, a1, a5, n] + S2[a6, a4, a3, a1, SP[a2, a5], n] - 
    S2[a1, n]*S2[a6, a4, a3, a2, a5, n] - S2[a6, a4, a3, a2, SP[a1, a5], n] - 
    S2[a6, a4, SP[a1, a3], a2, a5, n] - S2[a6, a4, SP[a1, a3], a5, a2, n] + 
    S2[a6, a4, SP[a2, a3], a1, a5, n] - S2[a6, SP[a1, a4], a2, a3, a5, n] - 
    S2[a6, SP[a1, a4], a2, a5, a3, n] - S2[a6, SP[a1, a4], a3, a2, a5, n] + 
    S2[a6, SP[a2, a4], a1, a3, a5, n] + S2[a6, SP[a2, a4], a1, a5, a3, n] + 
    S2[a6, SP[a2, a4], a3, a1, a5, n] - S2[a6, SP[a3, a4], a1, a5, a2, n] - 
    S2[SP[a1, a6], a3, a4, a2, a5, n] - S2[SP[a1, a6], a4, a2, a3, a5, n] - 
    S2[SP[a1, a6], a4, a2, a5, a3, n] - S2[SP[a1, a6], a4, a3, a2, a5, n] + 
    S2[SP[a2, a6], a3, a4, a1, a5, n] + S2[SP[a2, a6], a4, a1, a3, a5, n] + 
    S2[SP[a2, a6], a4, a1, a5, a3, n] + S2[SP[a2, a6], a4, a3, a1, a5, n] + 
    S2[SP[a3, a6], a1, a4, a2, a5, n] - S2[SP[a3, a6], a2, a4, a1, a5, n] - 
    S2[SP[a3, a6], a4, a1, a5, a2, n] + S2[a6, a3, a4, a2, a5, a1, n] + 
    S2[a6, a4, a2, a3, a5, a1, n] + S2[a6, a4, a2, a5, a1, a3, n] + 
    S2[a6, a4, a2, a5, a3, a1, n] + S2[a6, a4, a3, a2, a5, a1, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a1_, a5_, a2_, a6_, a3_, a4_, n_] :> 
  -(S2[a1, a5, a2, n]*S2[a3, a4, a6, n]) - S2[a1, a5, a2, n]*
     S2[a3, a6, a4, n] - S2[SP[a1, a3], SP[a4, a5], SP[a2, a6], n] - 
    S2[SP[a1, a3], SP[a5, a6], SP[a2, a4], n] + S2[a1, a3, SP[a4, a5], 
     SP[a2, a6], n] + S2[a1, a3, SP[a5, a6], SP[a2, a4], n] + 
    S2[a1, SP[a3, a5], a4, SP[a2, a6], n] + S2[a1, SP[a3, a5], a6, 
     SP[a2, a4], n] + S2[a1, SP[a3, a5], SP[a2, a4], a6, n] + 
    S2[a1, SP[a3, a5], SP[a2, a6], a4, n] + S2[a1, a5, n]*
     S2[a2, a6, a3, a4, n] - S2[a2, a6, SP[a1, a3], SP[a4, a5], n] - 
    S2[a2, SP[a1, a6], a3, SP[a4, a5], n] - S2[a2, SP[a1, a6], SP[a3, a5], 
     a4, n] + S2[a3, a1, SP[a4, a5], SP[a2, a6], n] + 
    S2[a3, a1, SP[a5, a6], SP[a2, a4], n] + S2[a3, SP[a1, a4], a5, 
     SP[a2, a6], n] + S2[a3, SP[a1, a4], SP[a5, a6], a2, n] + 
    S2[a3, SP[a1, a6], a5, SP[a2, a4], n] + S2[a3, SP[a1, a6], SP[a4, a5], 
     a2, n] - S2[SP[a1, a2], a6, a3, SP[a4, a5], n] - 
    S2[SP[a1, a2], a6, SP[a3, a5], a4, n] - S2[SP[a1, a2], SP[a5, a6], a3, 
     a4, n] + S2[SP[a1, a3], a4, a5, SP[a2, a6], n] + 
    S2[SP[a1, a3], a4, SP[a5, a6], a2, n] + S2[SP[a1, a3], a5, a4, 
     SP[a2, a6], n] + S2[SP[a1, a3], a5, a6, SP[a2, a4], n] + 
    S2[SP[a1, a3], a5, SP[a2, a4], a6, n] + S2[SP[a1, a3], a5, SP[a2, a6], 
     a4, n] + S2[SP[a1, a3], a6, a5, SP[a2, a4], n] + 
    S2[SP[a1, a3], a6, SP[a4, a5], a2, n] + S2[SP[a1, a3], SP[a4, a5], a2, 
     a6, n] + S2[SP[a1, a3], SP[a4, a5], a6, a2, n] + 
    S2[SP[a1, a3], SP[a5, a6], a2, a4, n] + S2[SP[a1, a3], SP[a5, a6], a4, 
     a2, n] + S2[a1, a2, a6, a3, SP[a4, a5], n] + S2[a1, a2, a6, SP[a3, a5], 
     a4, n] + S2[a1, a2, SP[a5, a6], a3, a4, n] - 
    S2[a1, a3, a4, a5, SP[a2, a6], n] - S2[a1, a3, a4, SP[a5, a6], a2, n] - 
    S2[a1, a3, a5, a4, SP[a2, a6], n] - S2[a1, a3, a5, a6, SP[a2, a4], n] - 
    S2[a1, a3, a5, SP[a2, a4], a6, n] - S2[a1, a3, a5, SP[a2, a6], a4, n] - 
    S2[a1, a3, a6, a5, SP[a2, a4], n] - S2[a1, a3, a6, SP[a4, a5], a2, n] - 
    S2[a1, a3, SP[a4, a5], a2, a6, n] - S2[a1, a3, SP[a4, a5], a6, a2, n] - 
    S2[a1, a3, SP[a5, a6], a2, a4, n] - S2[a1, a3, SP[a5, a6], a4, a2, n] - 
    S2[a6, n]*S2[a1, a4, a3, a5, a2, n] - S2[a1, a4, a3, a5, SP[a2, a6], n] - 
    S2[a1, a4, a3, SP[a5, a6], a2, n] - S2[a6, n]*S2[a1, a4, a5, a2, a3, n] + 
    S2[a3, n]*S2[a1, a4, a5, a2, a6, n] - 
    S2[a6, n]*S2[a1, a4, a5, a3, a2, n] - S2[a1, a4, a5, a3, SP[a2, a6], n] + 
    S2[a3, n]*S2[a1, a4, a5, a6, a2, n] + S2[a1, a4, a5, a6, SP[a2, a3], n] + 
    S2[a1, a4, a5, SP[a2, a3], a6, n] - S2[a1, a4, a5, SP[a2, a6], a3, n] + 
    S2[a3, n]*S2[a1, a4, a6, a5, a2, n] + S2[a1, a4, a6, a5, SP[a2, a3], n] + 
    S2[a1, a4, a6, SP[a3, a5], a2, n] + S2[a1, a4, SP[a3, a5], a2, a6, n] + 
    S2[a1, a4, SP[a3, a5], a6, a2, n] - S2[a1, a4, SP[a5, a6], a2, a3, n] - 
    S2[a1, a4, SP[a5, a6], a3, a2, n] - S2[a6, n]*S2[a1, a5, a2, a4, a3, n] + 
    S2[a3, n]*S2[a1, a5, a2, a4, a6, n] + 
    S2[a3, n]*S2[a1, a5, a2, a6, a4, n] + S2[a1, a5, a2, a6, SP[a3, a4], n] + 
    S2[a1, a5, a2, SP[a3, a4], a6, n] + S2[a1, a5, a2, SP[a3, a6], a4, n] - 
    S2[a1, a5, a2, SP[a4, a6], a3, n] - S2[a1, a5, a3, a4, SP[a2, a6], n] - 
    S2[a1, a5, a3, a6, SP[a2, a4], n] - S2[a1, a5, a3, SP[a2, a4], a6, n] - 
    S2[a1, a5, a3, SP[a2, a6], a4, n] - S2[a6, n]*S2[a1, a5, a4, a2, a3, n] + 
    S2[a3, n]*S2[a1, a5, a4, a2, a6, n] - 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] - S2[a1, a5, a4, a3, SP[a2, a6], n] + 
    S2[a3, n]*S2[a1, a5, a4, a6, a2, n] + S2[a1, a5, a4, a6, SP[a2, a3], n] + 
    S2[a1, a5, a4, SP[a2, a3], a6, n] - S2[a1, a5, a4, SP[a2, a6], a3, n] + 
    S2[a3, n]*S2[a1, a5, a6, a2, a4, n] + S2[a1, a5, a6, a2, SP[a3, a4], n] - 
    S2[a2, n]*S2[a1, a5, a6, a3, a4, n] - S2[a1, a5, a6, a3, SP[a2, a4], n] + 
    S2[a3, n]*S2[a1, a5, a6, a4, a2, n] + S2[a1, a5, a6, a4, SP[a2, a3], n] + 
    S2[a1, a5, a6, SP[a3, a4], a2, n] - S2[a1, a5, SP[a2, a6], a3, a4, n] - 
    S2[a1, a5, SP[a2, a6], a4, a3, n] + S2[a1, a5, SP[a3, a4], a2, a6, n] + 
    S2[a1, a5, SP[a3, a4], a6, a2, n] + S2[a1, a5, SP[a3, a6], a2, a4, n] + 
    S2[a1, a5, SP[a3, a6], a4, a2, n] - S2[a1, a5, SP[a4, a6], a2, a3, n] - 
    S2[a1, a5, SP[a4, a6], a3, a2, n] - S2[a2, n]*S2[a1, a6, a3, a4, a5, n] - 
    S2[a1, a6, a3, a4, SP[a2, a5], n] - S2[a2, n]*S2[a1, a6, a3, a5, a4, n] - 
    S2[a1, a6, a3, a5, SP[a2, a4], n] - S2[a1, a6, a3, SP[a2, a4], a5, n] - 
    S2[a1, a6, a3, SP[a2, a5], a4, n] + S2[a3, n]*S2[a1, a6, a4, a5, a2, n] + 
    S2[a1, a6, a4, a5, SP[a2, a3], n] + S2[a1, a6, a4, SP[a3, a5], a2, n] + 
    S2[a3, n]*S2[a1, a6, a5, a2, a4, n] + S2[a1, a6, a5, a2, SP[a3, a4], n] - 
    S2[a2, n]*S2[a1, a6, a5, a3, a4, n] - S2[a1, a6, a5, a3, SP[a2, a4], n] + 
    S2[a3, n]*S2[a1, a6, a5, a4, a2, n] + S2[a1, a6, a5, a4, SP[a2, a3], n] + 
    S2[a1, a6, a5, SP[a3, a4], a2, n] - S2[a1, a6, SP[a2, a3], a4, a5, n] - 
    S2[a1, a6, SP[a2, a3], a5, a4, n] - S2[a1, a6, SP[a2, a5], a3, a4, n] + 
    S2[a1, a6, SP[a3, a4], a5, a2, n] + S2[a1, a6, SP[a3, a5], a2, a4, n] + 
    S2[a1, a6, SP[a3, a5], a4, a2, n] - S2[a1, SP[a2, a6], a3, a4, a5, n] - 
    S2[a1, SP[a2, a6], a3, a5, a4, n] - S2[a1, SP[a2, a6], a5, a3, a4, n] + 
    S2[a1, SP[a3, a4], a5, a2, a6, n] + S2[a1, SP[a3, a4], a5, a6, a2, n] + 
    S2[a1, SP[a3, a4], a6, a5, a2, n] + S2[a1, SP[a3, a6], a4, a5, a2, n] + 
    S2[a1, SP[a3, a6], a5, a2, a4, n] + S2[a1, SP[a3, a6], a5, a4, a2, n] - 
    S2[a1, SP[a4, a6], a3, a5, a2, n] - S2[a1, SP[a4, a6], a5, a2, a3, n] - 
    S2[a1, SP[a4, a6], a5, a3, a2, n] - S2[a1, SP[a5, a6], a2, a4, a3, n] - 
    S2[a1, SP[a5, a6], a4, a2, a3, n] - S2[a1, SP[a5, a6], a4, a3, a2, n] + 
    S2[a2, a1, a6, a3, SP[a4, a5], n] + S2[a2, a1, a6, SP[a3, a5], a4, n] + 
    S2[a2, a1, SP[a5, a6], a3, a4, n] + S2[a2, a6, a1, a3, SP[a4, a5], n] + 
    S2[a2, a6, a1, SP[a3, a5], a4, n] + S2[a2, a6, a3, a1, SP[a4, a5], n] + 
    S2[a2, a6, a3, SP[a1, a4], a5, n] + S2[a2, a6, SP[a1, a3], a4, a5, n] + 
    S2[a2, a6, SP[a1, a3], a5, a4, n] + S2[a2, SP[a1, a6], a3, a4, a5, n] + 
    S2[a2, SP[a1, a6], a3, a5, a4, n] + S2[a2, SP[a1, a6], a5, a3, a4, n] - 
    S2[a3, a1, a4, a5, SP[a2, a6], n] - S2[a3, a1, a4, SP[a5, a6], a2, n] - 
    S2[a3, a1, a5, a4, SP[a2, a6], n] - S2[a3, a1, a5, a6, SP[a2, a4], n] - 
    S2[a3, a1, a5, SP[a2, a4], a6, n] - S2[a3, a1, a5, SP[a2, a6], a4, n] - 
    S2[a3, a1, a6, a5, SP[a2, a4], n] - S2[a3, a1, a6, SP[a4, a5], a2, n] - 
    S2[a3, a1, SP[a4, a5], a2, a6, n] - S2[a3, a1, SP[a4, a5], a6, a2, n] - 
    S2[a3, a1, SP[a5, a6], a2, a4, n] - S2[a3, a1, SP[a5, a6], a4, a2, n] + 
    S2[a6, n]*S2[a3, a4, a1, a5, a2, n] - S2[a3, a6, a1, a5, SP[a2, a4], n] - 
    S2[a3, a6, a1, SP[a4, a5], a2, n] - S2[a3, a6, SP[a1, a4], a5, a2, n] - 
    S2[a3, SP[a1, a4], a5, a2, a6, n] - S2[a3, SP[a1, a4], a5, a6, a2, n] - 
    S2[a3, SP[a1, a4], a6, a5, a2, n] - S2[a3, SP[a1, a6], a4, a5, a2, n] - 
    S2[a3, SP[a1, a6], a5, a2, a4, n] - S2[a3, SP[a1, a6], a5, a4, a2, n] + 
    S2[a3, SP[a4, a6], a1, a5, a2, n] - S2[a2, n]*S2[a6, a1, a3, a4, a5, n] - 
    S2[a6, a1, a3, a4, SP[a2, a5], n] - S2[a2, n]*S2[a6, a1, a3, a5, a4, n] - 
    S2[a6, a1, a3, a5, SP[a2, a4], n] - S2[a6, a1, a3, SP[a2, a4], a5, n] - 
    S2[a6, a1, a3, SP[a2, a5], a4, n] + S2[a3, n]*S2[a6, a1, a4, a5, a2, n] + 
    S2[a6, a1, a4, a5, SP[a2, a3], n] + S2[a6, a1, a4, SP[a3, a5], a2, n] + 
    S2[a3, n]*S2[a6, a1, a5, a2, a4, n] + S2[a6, a1, a5, a2, SP[a3, a4], n] - 
    S2[a2, n]*S2[a6, a1, a5, a3, a4, n] - S2[a6, a1, a5, a3, SP[a2, a4], n] + 
    S2[a3, n]*S2[a6, a1, a5, a4, a2, n] + S2[a6, a1, a5, a4, SP[a2, a3], n] + 
    S2[a6, a1, a5, SP[a3, a4], a2, n] - S2[a6, a1, SP[a2, a3], a4, a5, n] - 
    S2[a6, a1, SP[a2, a3], a5, a4, n] - S2[a6, a1, SP[a2, a5], a3, a4, n] + 
    S2[a6, a1, SP[a3, a4], a5, a2, n] + S2[a6, a1, SP[a3, a5], a2, a4, n] + 
    S2[a6, a1, SP[a3, a5], a4, a2, n] + S2[a1, n]*S2[a6, a2, a3, a4, a5, n] + 
    S2[a6, a2, a3, a4, SP[a1, a5], n] + S2[a1, n]*S2[a6, a2, a3, a5, a4, n] + 
    S2[a6, a2, a3, a5, SP[a1, a4], n] + S2[a6, a2, a3, SP[a1, a4], a5, n] + 
    S2[a6, a2, a3, SP[a1, a5], a4, n] + S2[a1, n]*S2[a6, a2, a5, a3, a4, n] + 
    S2[a6, a2, a5, a3, SP[a1, a4], n] + S2[a6, a2, a5, SP[a1, a3], a4, n] + 
    S2[a6, a2, SP[a1, a3], a4, a5, n] + S2[a6, a2, SP[a1, a3], a5, a4, n] + 
    S2[a6, a2, SP[a1, a5], a3, a4, n] - S2[a2, n]*S2[a6, a3, a1, a4, a5, n] - 
    S2[a6, a3, a1, a4, SP[a2, a5], n] - S2[a2, n]*S2[a6, a3, a1, a5, a4, n] - 
    S2[a6, a3, a1, a5, SP[a2, a4], n] - S2[a6, a3, a1, SP[a2, a4], a5, n] - 
    S2[a6, a3, a1, SP[a2, a5], a4, n] + S2[a1, n]*S2[a6, a3, a2, a4, a5, n] + 
    S2[a6, a3, a2, a4, SP[a1, a5], n] + S2[a1, n]*S2[a6, a3, a2, a5, a4, n] + 
    S2[a6, a3, a2, a5, SP[a1, a4], n] + S2[a6, a3, a2, SP[a1, a4], a5, n] + 
    S2[a6, a3, a2, SP[a1, a5], a4, n] - S2[a2, n]*S2[a6, a3, a4, a1, a5, n] - 
    S2[a6, a3, a4, a1, SP[a2, a5], n] + S2[a1, n]*S2[a6, a3, a4, a2, a5, n] + 
    S2[a6, a3, a4, a2, SP[a1, a5], n] + S2[a6, a3, SP[a1, a4], a2, a5, n] - 
    S2[a6, a3, SP[a2, a4], a1, a5, n] + S2[a6, SP[a1, a3], a2, a4, a5, n] + 
    S2[a6, SP[a1, a3], a2, a5, a4, n] + S2[a6, SP[a1, a3], a4, a2, a5, n] + 
    S2[a6, SP[a1, a3], a4, a5, a2, n] + S2[a6, SP[a1, a3], a5, a2, a4, n] + 
    S2[a6, SP[a1, a3], a5, a4, a2, n] - S2[a6, SP[a2, a3], a1, a4, a5, n] - 
    S2[a6, SP[a2, a3], a1, a5, a4, n] - S2[a6, SP[a2, a3], a4, a1, a5, n] + 
    S2[SP[a1, a6], a2, a3, a4, a5, n] + S2[SP[a1, a6], a2, a3, a5, a4, n] + 
    S2[SP[a1, a6], a2, a5, a3, a4, n] + S2[SP[a1, a6], a3, a2, a4, a5, n] + 
    S2[SP[a1, a6], a3, a2, a5, a4, n] + S2[SP[a1, a6], a3, a4, a2, a5, n] - 
    S2[SP[a1, a6], a4, a3, a5, a2, n] - S2[SP[a1, a6], a4, a5, a2, a3, n] - 
    S2[SP[a1, a6], a4, a5, a3, a2, n] - S2[SP[a1, a6], a5, a2, a4, a3, n] - 
    S2[SP[a1, a6], a5, a4, a2, a3, n] - S2[SP[a1, a6], a5, a4, a3, a2, n] - 
    S2[SP[a2, a6], a1, a3, a4, a5, n] - S2[SP[a2, a6], a1, a3, a5, a4, n] - 
    S2[SP[a2, a6], a1, a5, a3, a4, n] - S2[SP[a2, a6], a3, a1, a4, a5, n] - 
    S2[SP[a2, a6], a3, a1, a5, a4, n] - S2[SP[a2, a6], a3, a4, a1, a5, n] + 
    S2[SP[a3, a6], a1, a4, a5, a2, n] + S2[SP[a3, a6], a1, a5, a2, a4, n] + 
    S2[SP[a3, a6], a1, a5, a4, a2, n] + S2[SP[a3, a6], a4, a1, a5, a2, n] - 
    S2[a6, a2, a3, a4, a5, a1, n] - S2[a6, a2, a3, a5, a1, a4, n] - 
    S2[a6, a2, a3, a5, a4, a1, n] - S2[a6, a2, a5, a1, a3, a4, n] - 
    S2[a6, a2, a5, a3, a1, a4, n] - S2[a6, a2, a5, a3, a4, a1, n] - 
    S2[a6, a3, a2, a4, a5, a1, n] - S2[a6, a3, a2, a5, a1, a4, n] - 
    S2[a6, a3, a2, a5, a4, a1, n] - S2[a6, a3, a4, a2, a5, a1, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a1_, a5_, a2_, a6_, a4_, a3_, n_] :> 
  S2[a1, a5, a2, n]*S2[a3, a4, a6, n] + S2[SP[a1, a3], SP[a4, a5], 
     SP[a2, a6], n] - S2[a1, a3, SP[a4, a5], SP[a2, a6], n] - 
    S2[a1, SP[a3, a5], a4, SP[a2, a6], n] - S2[a1, SP[a3, a5], SP[a2, a4], 
     a6, n] + S2[a1, a5, n]*S2[a2, a6, a4, a3, n] - 
    S2[a2, a6, SP[a1, a4], SP[a3, a5], n] - S2[a2, SP[a1, a6], a4, 
     SP[a3, a5], n] - S2[a2, SP[a1, a6], SP[a4, a5], a3, n] - 
    S2[a3, a1, SP[a4, a5], SP[a2, a6], n] - S2[a3, SP[a1, a4], a5, 
     SP[a2, a6], n] - S2[a3, SP[a1, a4], SP[a5, a6], a2, n] - 
    S2[SP[a1, a2], a6, a4, SP[a3, a5], n] - S2[SP[a1, a2], a6, SP[a4, a5], 
     a3, n] - S2[SP[a1, a2], SP[a5, a6], a4, a3, n] - 
    S2[SP[a1, a3], a4, a5, SP[a2, a6], n] - S2[SP[a1, a3], a4, SP[a5, a6], 
     a2, n] - S2[SP[a1, a3], a5, a4, SP[a2, a6], n] - 
    S2[SP[a1, a3], a5, SP[a2, a4], a6, n] - S2[SP[a1, a3], SP[a4, a5], a2, 
     a6, n] - S2[SP[a1, a3], SP[a4, a5], a6, a2, n] + 
    S2[a1, a2, a6, a4, SP[a3, a5], n] + S2[a1, a2, a6, SP[a4, a5], a3, n] + 
    S2[a1, a2, SP[a5, a6], a4, a3, n] + S2[a1, a3, a4, a5, SP[a2, a6], n] + 
    S2[a1, a3, a4, SP[a5, a6], a2, n] + S2[a1, a3, a5, a4, SP[a2, a6], n] + 
    S2[a1, a3, a5, SP[a2, a4], a6, n] + S2[a1, a3, SP[a4, a5], a2, a6, n] + 
    S2[a1, a3, SP[a4, a5], a6, a2, n] + S2[a6, n]*S2[a1, a4, a3, a5, a2, n] + 
    S2[a1, a4, a3, a5, SP[a2, a6], n] + S2[a1, a4, a3, SP[a5, a6], a2, n] + 
    S2[a6, n]*S2[a1, a4, a5, a2, a3, n] - 
    S2[a3, n]*S2[a1, a4, a5, a2, a6, n] + 
    S2[a6, n]*S2[a1, a4, a5, a3, a2, n] + S2[a1, a4, a5, a3, SP[a2, a6], n] - 
    S2[a3, n]*S2[a1, a4, a5, a6, a2, n] - S2[a1, a4, a5, a6, SP[a2, a3], n] - 
    S2[a1, a4, a5, SP[a2, a3], a6, n] + S2[a1, a4, a5, SP[a2, a6], a3, n] - 
    S2[a3, n]*S2[a1, a4, a6, a5, a2, n] - S2[a1, a4, a6, a5, SP[a2, a3], n] - 
    S2[a1, a4, a6, SP[a3, a5], a2, n] - S2[a1, a4, SP[a3, a5], a2, a6, n] - 
    S2[a1, a4, SP[a3, a5], a6, a2, n] + S2[a1, a4, SP[a5, a6], a2, a3, n] + 
    S2[a1, a4, SP[a5, a6], a3, a2, n] + S2[a6, n]*S2[a1, a5, a2, a4, a3, n] - 
    S2[a3, n]*S2[a1, a5, a2, a4, a6, n] - S2[a1, a5, a2, SP[a3, a4], a6, n] + 
    S2[a1, a5, a2, SP[a4, a6], a3, n] + S2[a1, a5, a3, a4, SP[a2, a6], n] + 
    S2[a1, a5, a3, SP[a2, a4], a6, n] + S2[a6, n]*S2[a1, a5, a4, a2, a3, n] - 
    S2[a3, n]*S2[a1, a5, a4, a2, a6, n] + 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] + S2[a1, a5, a4, a3, SP[a2, a6], n] - 
    S2[a3, n]*S2[a1, a5, a4, a6, a2, n] - S2[a1, a5, a4, a6, SP[a2, a3], n] - 
    S2[a1, a5, a4, SP[a2, a3], a6, n] + S2[a1, a5, a4, SP[a2, a6], a3, n] - 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] - S2[a1, a5, a6, a4, SP[a2, a3], n] - 
    S2[a1, a5, a6, SP[a2, a4], a3, n] - S2[a1, a5, SP[a3, a4], a2, a6, n] - 
    S2[a1, a5, SP[a3, a4], a6, a2, n] + S2[a1, a5, SP[a4, a6], a2, a3, n] + 
    S2[a1, a5, SP[a4, a6], a3, a2, n] - S2[a2, n]*S2[a1, a6, a4, a3, a5, n] - 
    S2[a1, a6, a4, a3, SP[a2, a5], n] - S2[a2, n]*S2[a1, a6, a4, a5, a3, n] - 
    S2[a1, a6, a4, a5, SP[a2, a3], n] - S2[a1, a6, a4, SP[a2, a3], a5, n] - 
    S2[a1, a6, a4, SP[a2, a5], a3, n] - S2[a2, n]*S2[a1, a6, a5, a4, a3, n] - 
    S2[a1, a6, a5, a4, SP[a2, a3], n] - S2[a1, a6, a5, SP[a2, a4], a3, n] - 
    S2[a1, a6, SP[a2, a4], a3, a5, n] - S2[a1, a6, SP[a2, a4], a5, a3, n] - 
    S2[a1, a6, SP[a2, a5], a4, a3, n] - S2[a1, SP[a2, a6], a4, a3, a5, n] - 
    S2[a1, SP[a2, a6], a4, a5, a3, n] - S2[a1, SP[a2, a6], a5, a4, a3, n] - 
    S2[a1, SP[a3, a4], a5, a2, a6, n] - S2[a1, SP[a3, a4], a5, a6, a2, n] - 
    S2[a1, SP[a3, a4], a6, a5, a2, n] + S2[a1, SP[a4, a6], a3, a5, a2, n] + 
    S2[a1, SP[a4, a6], a5, a2, a3, n] + S2[a1, SP[a4, a6], a5, a3, a2, n] + 
    S2[a1, SP[a5, a6], a2, a4, a3, n] + S2[a1, SP[a5, a6], a4, a2, a3, n] + 
    S2[a1, SP[a5, a6], a4, a3, a2, n] + S2[a2, a1, a6, a4, SP[a3, a5], n] + 
    S2[a2, a1, a6, SP[a4, a5], a3, n] + S2[a2, a1, SP[a5, a6], a4, a3, n] + 
    S2[a2, a6, a1, a4, SP[a3, a5], n] + S2[a2, a6, a1, SP[a4, a5], a3, n] + 
    S2[a2, a6, a4, a1, SP[a3, a5], n] + S2[a2, a6, a4, SP[a1, a3], a5, n] + 
    S2[a2, a6, SP[a1, a4], a3, a5, n] + S2[a2, a6, SP[a1, a4], a5, a3, n] + 
    S2[a2, SP[a1, a6], a4, a3, a5, n] + S2[a2, SP[a1, a6], a4, a5, a3, n] + 
    S2[a2, SP[a1, a6], a5, a4, a3, n] + S2[a3, a1, a4, a5, SP[a2, a6], n] + 
    S2[a3, a1, a4, SP[a5, a6], a2, n] + S2[a3, a1, a5, a4, SP[a2, a6], n] + 
    S2[a3, a1, a5, SP[a2, a4], a6, n] + S2[a3, a1, SP[a4, a5], a2, a6, n] + 
    S2[a3, a1, SP[a4, a5], a6, a2, n] - S2[a6, n]*S2[a3, a4, a1, a5, a2, n] + 
    S2[a3, SP[a1, a4], a5, a2, a6, n] + S2[a3, SP[a1, a4], a5, a6, a2, n] + 
    S2[a3, SP[a1, a4], a6, a5, a2, n] - S2[a3, SP[a4, a6], a1, a5, a2, n] - 
    S2[a2, n]*S2[a6, a1, a4, a3, a5, n] - S2[a6, a1, a4, a3, SP[a2, a5], n] - 
    S2[a2, n]*S2[a6, a1, a4, a5, a3, n] - S2[a6, a1, a4, a5, SP[a2, a3], n] - 
    S2[a6, a1, a4, SP[a2, a3], a5, n] - S2[a6, a1, a4, SP[a2, a5], a3, n] - 
    S2[a2, n]*S2[a6, a1, a5, a4, a3, n] - S2[a6, a1, a5, a4, SP[a2, a3], n] - 
    S2[a6, a1, a5, SP[a2, a4], a3, n] - S2[a6, a1, SP[a2, a4], a3, a5, n] - 
    S2[a6, a1, SP[a2, a4], a5, a3, n] - S2[a6, a1, SP[a2, a5], a4, a3, n] + 
    S2[a1, n]*S2[a6, a2, a4, a3, a5, n] + S2[a6, a2, a4, a3, SP[a1, a5], n] + 
    S2[a1, n]*S2[a6, a2, a4, a5, a3, n] + S2[a6, a2, a4, a5, SP[a1, a3], n] + 
    S2[a6, a2, a4, SP[a1, a3], a5, n] + S2[a6, a2, a4, SP[a1, a5], a3, n] + 
    S2[a1, n]*S2[a6, a2, a5, a4, a3, n] + S2[a6, a2, a5, a4, SP[a1, a3], n] + 
    S2[a6, a2, a5, SP[a1, a4], a3, n] + S2[a6, a2, SP[a1, a4], a3, a5, n] + 
    S2[a6, a2, SP[a1, a4], a5, a3, n] + S2[a6, a2, SP[a1, a5], a4, a3, n] - 
    S2[a2, n]*S2[a6, a4, a1, a3, a5, n] - S2[a6, a4, a1, a3, SP[a2, a5], n] + 
    S2[a3, n]*S2[a6, a4, a1, a5, a2, n] - 
    S2[a2, n]*S2[a6, a4, a1, a5, a3, n] - S2[a6, a4, a1, SP[a2, a3], a5, n] - 
    S2[a6, a4, a1, SP[a2, a5], a3, n] + S2[a6, a4, a1, SP[a3, a5], a2, n] + 
    S2[a1, n]*S2[a6, a4, a2, a3, a5, n] + S2[a6, a4, a2, a3, SP[a1, a5], n] + 
    S2[a1, n]*S2[a6, a4, a2, a5, a3, n] + S2[a6, a4, a2, a5, SP[a1, a3], n] + 
    S2[a6, a4, a2, SP[a1, a3], a5, n] + S2[a6, a4, a2, SP[a1, a5], a3, n] - 
    S2[a2, n]*S2[a6, a4, a3, a1, a5, n] - S2[a6, a4, a3, a1, SP[a2, a5], n] + 
    S2[a1, n]*S2[a6, a4, a3, a2, a5, n] + S2[a6, a4, a3, a2, SP[a1, a5], n] + 
    S2[a6, a4, SP[a1, a3], a2, a5, n] + S2[a6, a4, SP[a1, a3], a5, a2, n] - 
    S2[a6, a4, SP[a2, a3], a1, a5, n] + S2[a6, SP[a1, a4], a2, a3, a5, n] + 
    S2[a6, SP[a1, a4], a2, a5, a3, n] + S2[a6, SP[a1, a4], a3, a2, a5, n] - 
    S2[a6, SP[a2, a4], a1, a3, a5, n] - S2[a6, SP[a2, a4], a1, a5, a3, n] - 
    S2[a6, SP[a2, a4], a3, a1, a5, n] + S2[a6, SP[a3, a4], a1, a5, a2, n] + 
    S2[SP[a1, a6], a2, a4, a3, a5, n] + S2[SP[a1, a6], a2, a4, a5, a3, n] + 
    S2[SP[a1, a6], a2, a5, a4, a3, n] + S2[SP[a1, a6], a4, a2, a3, a5, n] + 
    S2[SP[a1, a6], a4, a2, a5, a3, n] + S2[SP[a1, a6], a4, a3, a2, a5, n] + 
    S2[SP[a1, a6], a4, a3, a5, a2, n] + S2[SP[a1, a6], a4, a5, a2, a3, n] + 
    S2[SP[a1, a6], a4, a5, a3, a2, n] + S2[SP[a1, a6], a5, a2, a4, a3, n] + 
    S2[SP[a1, a6], a5, a4, a2, a3, n] + S2[SP[a1, a6], a5, a4, a3, a2, n] - 
    S2[SP[a2, a6], a1, a4, a3, a5, n] - S2[SP[a2, a6], a1, a4, a5, a3, n] - 
    S2[SP[a2, a6], a1, a5, a4, a3, n] - S2[SP[a2, a6], a4, a1, a3, a5, n] - 
    S2[SP[a2, a6], a4, a1, a5, a3, n] - S2[SP[a2, a6], a4, a3, a1, a5, n] - 
    S2[a6, a2, a4, a3, a5, a1, n] - S2[a6, a2, a4, a5, a1, a3, n] - 
    S2[a6, a2, a4, a5, a3, a1, n] - S2[a6, a2, a5, a1, a4, a3, n] - 
    S2[a6, a2, a5, a4, a1, a3, n] - S2[a6, a2, a5, a4, a3, a1, n] - 
    S2[a6, a4, a2, a3, a5, a1, n] - S2[a6, a4, a2, a5, a1, a3, n] - 
    S2[a6, a4, a2, a5, a3, a1, n] - S2[a6, a4, a3, a2, a5, a1, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a1_, a5_, a3_, a2_, a4_, a6_, n_] :> 
  S2[a1, a5, a3, n]*S2[a2, a4, a6, n] + S2[SP[a1, a2], SP[a4, a5], 
     SP[a3, a6], n] - S2[a1, a2, SP[a4, a5], SP[a3, a6], n] + 
    S2[a4, a6, n]*S2[a1, a5, a3, a2, n] - S2[a1, a5, SP[a3, a4], SP[a2, a6], 
     n] - S2[a1, SP[a2, a5], a4, SP[a3, a6], n] - 
    S2[a1, SP[a2, a5], SP[a3, a4], a6, n] - S2[a1, SP[a4, a5], a3, 
     SP[a2, a6], n] - S2[a1, SP[a4, a5], SP[a3, a6], a2, n] - 
    S2[a2, a1, SP[a4, a5], SP[a3, a6], n] - S2[a1, a5, n]*
     S2[a2, a3, a4, a6, n] - S2[a1, a5, n]*S2[a2, a3, a6, a4, n] + 
    S2[a2, a3, SP[a1, a4], SP[a5, a6], n] + S2[a2, a3, SP[a1, a6], 
     SP[a4, a5], n] - S2[a1, a5, n]*S2[a2, a4, a3, a6, n] - 
    S2[a1, a5, n]*S2[a2, a4, a6, a3, n] + S2[a2, a4, SP[a1, a3], SP[a5, a6], 
     n] + S2[a2, a4, SP[a1, a6], SP[a3, a5], n] - 
    S2[a1, a5, n]*S2[a2, a6, a3, a4, n] - S2[a1, a5, n]*
     S2[a2, a6, a4, a3, n] + S2[a2, a6, SP[a1, a3], SP[a4, a5], n] + 
    S2[a2, a6, SP[a1, a4], SP[a3, a5], n] + S2[a2, SP[a1, a3], a4, 
     SP[a5, a6], n] + S2[a2, SP[a1, a3], a6, SP[a4, a5], n] + 
    S2[a2, SP[a1, a3], SP[a4, a5], a6, n] + S2[a2, SP[a1, a3], SP[a5, a6], 
     a4, n] + S2[a2, SP[a1, a4], a3, SP[a5, a6], n] - 
    S2[a2, SP[a1, a4], a5, SP[a3, a6], n] + S2[a2, SP[a1, a4], a6, 
     SP[a3, a5], n] + S2[a2, SP[a1, a4], SP[a3, a5], a6, n] + 
    S2[a2, SP[a1, a6], a3, SP[a4, a5], n] + S2[a2, SP[a1, a6], a4, 
     SP[a3, a5], n] + S2[a2, SP[a1, a6], SP[a3, a5], a4, n] + 
    S2[a2, SP[a1, a6], SP[a4, a5], a3, n] + S2[a1, a5, n]*
     S2[a4, a6, a2, a3, n] - S2[a4, a6, SP[a1, a2], SP[a3, a5], n] - 
    S2[a4, SP[a1, a6], a2, SP[a3, a5], n] - S2[a4, SP[a1, a6], SP[a2, a5], 
     a3, n] + S2[SP[a1, a2], a3, a4, SP[a5, a6], n] + 
    S2[SP[a1, a2], a3, a6, SP[a4, a5], n] + S2[SP[a1, a2], a3, SP[a4, a5], 
     a6, n] + S2[SP[a1, a2], a3, SP[a5, a6], a4, n] + 
    S2[SP[a1, a2], a4, a3, SP[a5, a6], n] - S2[SP[a1, a2], a4, a5, 
     SP[a3, a6], n] + S2[SP[a1, a2], a4, a6, SP[a3, a5], n] + 
    S2[SP[a1, a2], a4, SP[a3, a5], a6, n] - S2[SP[a1, a2], a5, a4, 
     SP[a3, a6], n] - S2[SP[a1, a2], a5, SP[a3, a4], a6, n] + 
    S2[SP[a1, a2], a6, a3, SP[a4, a5], n] + S2[SP[a1, a2], a6, a4, 
     SP[a3, a5], n] + S2[SP[a1, a2], a6, SP[a3, a5], a4, n] + 
    S2[SP[a1, a2], a6, SP[a4, a5], a3, n] + S2[SP[a1, a2], SP[a3, a5], a4, 
     a6, n] + S2[SP[a1, a2], SP[a3, a5], a6, a4, n] + 
    S2[SP[a1, a2], SP[a5, a6], a3, a4, n] + S2[SP[a1, a2], SP[a5, a6], a4, 
     a3, n] - S2[SP[a1, a4], a5, a3, SP[a2, a6], n] - 
    S2[SP[a1, a4], a5, SP[a3, a6], a2, n] - S2[SP[a1, a4], a6, a2, 
     SP[a3, a5], n] - S2[SP[a1, a4], a6, SP[a2, a5], a3, n] - 
    S2[SP[a1, a4], SP[a5, a6], a2, a3, n] - S2[SP[a1, a4], SP[a5, a6], a3, 
     a2, n] - S2[a1, a2, a3, a4, SP[a5, a6], n] - 
    S2[a1, a2, a3, a6, SP[a4, a5], n] - S2[a1, a2, a3, SP[a4, a5], a6, n] - 
    S2[a1, a2, a3, SP[a5, a6], a4, n] - S2[a1, a2, a4, a3, SP[a5, a6], n] + 
    S2[a1, a2, a4, a5, SP[a3, a6], n] - S2[a1, a2, a4, a6, SP[a3, a5], n] - 
    S2[a1, a2, a4, SP[a3, a5], a6, n] + S2[a1, a2, a5, a4, SP[a3, a6], n] + 
    S2[a1, a2, a5, SP[a3, a4], a6, n] - S2[a1, a2, a6, a3, SP[a4, a5], n] - 
    S2[a1, a2, a6, a4, SP[a3, a5], n] - S2[a1, a2, a6, SP[a3, a5], a4, n] - 
    S2[a1, a2, a6, SP[a4, a5], a3, n] - S2[a1, a2, SP[a3, a5], a4, a6, n] - 
    S2[a1, a2, SP[a3, a5], a6, a4, n] - S2[a1, a2, SP[a5, a6], a3, a4, n] - 
    S2[a1, a2, SP[a5, a6], a4, a3, n] - S2[a6, n]*S2[a1, a3, a2, a4, a5, n] - 
    S2[a1, a3, a2, a4, SP[a5, a6], n] - S2[a6, n]*S2[a1, a3, a2, a5, a4, n] - 
    S2[a1, a3, a2, a5, SP[a4, a6], n] - S2[a1, a3, a2, SP[a4, a6], a5, n] - 
    S2[a1, a3, a2, SP[a5, a6], a4, n] - S2[a6, n]*S2[a1, a3, a4, a2, a5, n] - 
    S2[a1, a3, a4, a2, SP[a5, a6], n] - S2[a6, n]*S2[a1, a3, a4, a5, a2, n] + 
    S2[a2, n]*S2[a1, a3, a4, a5, a6, n] + 
    S2[a2, n]*S2[a1, a3, a4, a6, a5, n] + S2[a1, a3, a4, a6, SP[a2, a5], n] + 
    S2[a1, a3, a4, SP[a2, a5], a6, n] - S2[a1, a3, a4, SP[a5, a6], a2, n] - 
    S2[a6, n]*S2[a1, a3, a5, a2, a4, n] - S2[a1, a3, a5, a2, SP[a4, a6], n] - 
    S2[a6, n]*S2[a1, a3, a5, a4, a2, n] + 
    S2[a2, n]*S2[a1, a3, a5, a4, a6, n] + 
    S2[a2, n]*S2[a1, a3, a5, a6, a4, n] + S2[a1, a3, a5, a6, SP[a2, a4], n] + 
    S2[a1, a3, a5, SP[a2, a4], a6, n] - S2[a1, a3, a5, SP[a4, a6], a2, n] + 
    S2[a2, n]*S2[a1, a3, a6, a4, a5, n] + S2[a1, a3, a6, a4, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a3, a6, a5, a4, n] + S2[a1, a3, a6, a5, SP[a2, a4], n] + 
    S2[a1, a3, a6, SP[a2, a4], a5, n] + S2[a1, a3, a6, SP[a2, a5], a4, n] + 
    S2[a1, a3, SP[a2, a4], a5, a6, n] + S2[a1, a3, SP[a2, a4], a6, a5, n] + 
    S2[a1, a3, SP[a2, a5], a4, a6, n] + S2[a1, a3, SP[a2, a5], a6, a4, n] - 
    S2[a1, a3, SP[a4, a6], a2, a5, n] - S2[a1, a3, SP[a4, a6], a5, a2, n] - 
    S2[a1, a3, SP[a5, a6], a2, a4, n] - S2[a1, a3, SP[a5, a6], a4, a2, n] - 
    S2[a6, n]*S2[a1, a4, a2, a3, a5, n] - S2[a1, a4, a2, a3, SP[a5, a6], n] - 
    S2[a1, a4, a2, SP[a3, a6], a5, n] - S2[a6, n]*S2[a1, a4, a3, a2, a5, n] - 
    S2[a1, a4, a3, a2, SP[a5, a6], n] - S2[a6, n]*S2[a1, a4, a3, a5, a2, n] + 
    S2[a2, n]*S2[a1, a4, a3, a5, a6, n] + 
    S2[a2, n]*S2[a1, a4, a3, a6, a5, n] + S2[a1, a4, a3, a6, SP[a2, a5], n] + 
    S2[a1, a4, a3, SP[a2, a5], a6, n] - S2[a1, a4, a3, SP[a5, a6], a2, n] + 
    S2[a1, a4, a5, a3, SP[a2, a6], n] + S2[a1, a4, a5, SP[a3, a6], a2, n] + 
    S2[a1, a4, a6, a2, SP[a3, a5], n] + S2[a2, n]*S2[a1, a4, a6, a3, a5, n] + 
    S2[a1, a4, a6, a3, SP[a2, a5], n] + S2[a1, a4, a6, SP[a2, a3], a5, n] + 
    S2[a1, a4, a6, SP[a2, a5], a3, n] + S2[a1, a4, SP[a2, a3], a5, a6, n] + 
    S2[a1, a4, SP[a2, a3], a6, a5, n] - S2[a1, a4, SP[a3, a6], a2, a5, n] - 
    S2[a1, a4, SP[a3, a6], a5, a2, n] + S2[a1, a4, SP[a5, a6], a2, a3, n] + 
    S2[a1, a4, SP[a5, a6], a3, a2, n] + S2[a1, a5, a2, a4, SP[a3, a6], n] + 
    S2[a1, a5, a2, SP[a3, a4], a6, n] - S2[a4, n]*S2[a1, a5, a3, a2, a6, n] - 
    S2[a1, a5, a3, a2, SP[a4, a6], n] + S2[a1, a5, a3, a4, SP[a2, a6], n] - 
    S2[a4, n]*S2[a1, a5, a3, a6, a2, n] + 
    S2[a2, n]*S2[a1, a5, a3, a6, a4, n] + S2[a1, a5, a3, SP[a2, a6], a4, n] - 
    S2[a1, a5, a3, SP[a4, a6], a2, n] + S2[a1, a5, a4, a3, SP[a2, a6], n] + 
    S2[a1, a5, a4, SP[a3, a6], a2, n] - S2[a4, n]*S2[a1, a5, a6, a2, a3, n] - 
    S2[a1, a5, a6, a2, SP[a3, a4], n] - S2[a4, n]*S2[a1, a5, a6, a3, a2, n] + 
    S2[a2, n]*S2[a1, a5, a6, a3, a4, n] + 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] + S2[a1, a5, a6, a4, SP[a2, a3], n] + 
    S2[a1, a5, a6, SP[a2, a3], a4, n] - S2[a1, a5, a6, SP[a3, a4], a2, n] + 
    S2[a1, a5, SP[a2, a3], a4, a6, n] + S2[a1, a5, SP[a2, a3], a6, a4, n] + 
    S2[a1, a5, SP[a2, a6], a3, a4, n] + S2[a1, a5, SP[a2, a6], a4, a3, n] - 
    S2[a1, a5, SP[a4, a6], a2, a3, n] - S2[a1, a5, SP[a4, a6], a3, a2, n] - 
    S2[a4, n]*S2[a1, a6, a2, a3, a5, n] - S2[a1, a6, a2, a3, SP[a4, a5], n] - 
    S2[a4, n]*S2[a1, a6, a2, a5, a3, n] - S2[a1, a6, a2, a5, SP[a3, a4], n] - 
    S2[a1, a6, a2, SP[a3, a4], a5, n] - S2[a1, a6, a2, SP[a4, a5], a3, n] + 
    S2[a2, n]*S2[a1, a6, a3, a4, a5, n] + S2[a1, a6, a3, a4, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a6, a3, a5, a4, n] + S2[a1, a6, a3, a5, SP[a2, a4], n] + 
    S2[a1, a6, a3, SP[a2, a4], a5, n] + S2[a1, a6, a3, SP[a2, a5], a4, n] + 
    S2[a2, n]*S2[a1, a6, a4, a3, a5, n] + S2[a1, a6, a4, a3, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a6, a4, a5, a3, n] + S2[a1, a6, a4, a5, SP[a2, a3], n] + 
    S2[a1, a6, a4, SP[a2, a3], a5, n] + S2[a1, a6, a4, SP[a2, a5], a3, n] - 
    S2[a4, n]*S2[a1, a6, a5, a2, a3, n] - S2[a1, a6, a5, a2, SP[a3, a4], n] - 
    S2[a4, n]*S2[a1, a6, a5, a3, a2, n] + 
    S2[a2, n]*S2[a1, a6, a5, a3, a4, n] + 
    S2[a2, n]*S2[a1, a6, a5, a4, a3, n] + S2[a1, a6, a5, a4, SP[a2, a3], n] + 
    S2[a1, a6, a5, SP[a2, a3], a4, n] - S2[a1, a6, a5, SP[a3, a4], a2, n] + 
    S2[a1, a6, SP[a2, a3], a4, a5, n] + S2[a1, a6, SP[a2, a3], a5, a4, n] + 
    S2[a1, a6, SP[a2, a5], a3, a4, n] + S2[a1, a6, SP[a2, a5], a4, a3, n] - 
    S2[a1, a6, SP[a4, a5], a2, a3, n] - S2[a1, a6, SP[a4, a5], a3, a2, n] + 
    S2[a1, SP[a2, a3], a4, a5, a6, n] + S2[a1, SP[a2, a3], a4, a6, a5, n] + 
    S2[a1, SP[a2, a3], a5, a4, a6, n] + S2[a1, SP[a2, a3], a5, a6, a4, n] + 
    S2[a1, SP[a2, a3], a6, a4, a5, n] + S2[a1, SP[a2, a3], a6, a5, a4, n] + 
    S2[a1, SP[a2, a4], a3, a5, a6, n] + S2[a1, SP[a2, a4], a3, a6, a5, n] + 
    S2[a1, SP[a2, a4], a6, a3, a5, n] + S2[a1, SP[a2, a6], a3, a4, a5, n] + 
    S2[a1, SP[a2, a6], a3, a5, a4, n] + S2[a1, SP[a2, a6], a4, a3, a5, n] + 
    S2[a1, SP[a2, a6], a4, a5, a3, n] + S2[a1, SP[a2, a6], a5, a3, a4, n] + 
    S2[a1, SP[a2, a6], a5, a4, a3, n] - S2[a1, SP[a3, a6], a2, a4, a5, n] - 
    S2[a1, SP[a3, a6], a2, a5, a4, n] - S2[a1, SP[a3, a6], a4, a2, a5, n] - 
    S2[a1, SP[a3, a6], a4, a5, a2, n] - S2[a1, SP[a3, a6], a5, a2, a4, n] - 
    S2[a1, SP[a3, a6], a5, a4, a2, n] - 2*S2[a1, SP[a4, a6], a2, a3, a5, n] - 
    S2[a1, SP[a4, a6], a2, a5, a3, n] - S2[a1, SP[a4, a6], a3, a2, a5, n] - 
    S2[a1, SP[a4, a6], a3, a5, a2, n] - S2[a1, SP[a4, a6], a5, a2, a3, n] - 
    S2[a1, SP[a4, a6], a5, a3, a2, n] - S2[a2, a1, a3, a4, SP[a5, a6], n] - 
    S2[a2, a1, a3, a6, SP[a4, a5], n] - S2[a2, a1, a3, SP[a4, a5], a6, n] - 
    S2[a2, a1, a3, SP[a5, a6], a4, n] - S2[a2, a1, a4, a3, SP[a5, a6], n] + 
    S2[a2, a1, a4, a5, SP[a3, a6], n] - S2[a2, a1, a4, a6, SP[a3, a5], n] - 
    S2[a2, a1, a4, SP[a3, a5], a6, n] + S2[a2, a1, a5, a4, SP[a3, a6], n] + 
    S2[a2, a1, a5, SP[a3, a4], a6, n] - S2[a2, a1, a6, a3, SP[a4, a5], n] - 
    S2[a2, a1, a6, a4, SP[a3, a5], n] - S2[a2, a1, a6, SP[a3, a5], a4, n] - 
    S2[a2, a1, a6, SP[a4, a5], a3, n] - S2[a2, a1, SP[a3, a5], a4, a6, n] - 
    S2[a2, a1, SP[a3, a5], a6, a4, n] - S2[a2, a1, SP[a5, a6], a3, a4, n] - 
    S2[a2, a1, SP[a5, a6], a4, a3, n] + S2[a6, n]*S2[a2, a3, a1, a4, a5, n] + 
    S2[a6, n]*S2[a2, a3, a1, a5, a4, n] + S2[a2, a3, a1, a5, SP[a4, a6], n] - 
    S2[a2, a3, a1, a6, SP[a4, a5], n] - S2[a2, a3, a1, SP[a4, a5], a6, n] + 
    S2[a2, a3, a1, SP[a4, a6], a5, n] + S2[a6, n]*S2[a2, a3, a4, a1, a5, n] - 
    S2[a2, a3, a6, a1, SP[a4, a5], n] - S2[a2, a3, a6, SP[a1, a4], a5, n] - 
    S2[a2, a3, SP[a1, a4], a5, a6, n] - S2[a2, a3, SP[a1, a4], a6, a5, n] + 
    S2[a2, a3, SP[a4, a6], a1, a5, n] + S2[a6, n]*S2[a2, a4, a1, a3, a5, n] + 
    S2[a2, a4, a1, a5, SP[a3, a6], n] - S2[a2, a4, a1, a6, SP[a3, a5], n] - 
    S2[a2, a4, a1, SP[a3, a5], a6, n] + S2[a2, a4, a1, SP[a3, a6], a5, n] + 
    S2[a6, n]*S2[a2, a4, a3, a1, a5, n] - S2[a2, a4, a6, a1, SP[a3, a5], n] - 
    S2[a2, a4, a6, SP[a1, a3], a5, n] - S2[a2, a4, SP[a1, a3], a5, a6, n] - 
    S2[a2, a4, SP[a1, a3], a6, a5, n] + S2[a2, a4, SP[a3, a6], a1, a5, n] + 
    S2[a4, n]*S2[a2, a6, a1, a3, a5, n] - S2[a2, a6, a1, a4, SP[a3, a5], n] + 
    S2[a4, n]*S2[a2, a6, a1, a5, a3, n] + S2[a2, a6, a1, a5, SP[a3, a4], n] + 
    S2[a2, a6, a1, SP[a3, a4], a5, n] - S2[a2, a6, a1, SP[a3, a5], a4, n] - 
    S2[a2, a6, a3, a1, SP[a4, a5], n] - S2[a2, a6, a3, SP[a1, a4], a5, n] - 
    S2[a2, a6, a4, a1, SP[a3, a5], n] - S2[a2, a6, a4, SP[a1, a3], a5, n] - 
    S2[a2, a6, SP[a1, a3], a4, a5, n] - S2[a2, a6, SP[a1, a3], a5, a4, n] - 
    S2[a2, SP[a1, a3], a4, a5, a6, n] - S2[a2, SP[a1, a3], a4, a6, a5, n] - 
    S2[a2, SP[a1, a3], a5, a4, a6, n] - S2[a2, SP[a1, a3], a5, a6, a4, n] - 
    S2[a2, SP[a1, a3], a6, a4, a5, n] - S2[a2, SP[a1, a3], a6, a5, a4, n] - 
    S2[a2, SP[a1, a4], a3, a5, a6, n] - S2[a2, SP[a1, a4], a3, a6, a5, n] - 
    S2[a2, SP[a1, a4], a6, a3, a5, n] - S2[a2, SP[a1, a6], a3, a4, a5, n] - 
    S2[a2, SP[a1, a6], a3, a5, a4, n] - S2[a2, SP[a1, a6], a4, a3, a5, n] - 
    S2[a2, SP[a1, a6], a4, a5, a3, n] - S2[a2, SP[a1, a6], a5, a3, a4, n] - 
    S2[a2, SP[a1, a6], a5, a4, a3, n] + S2[a2, SP[a3, a6], a1, a4, a5, n] + 
    S2[a2, SP[a3, a6], a1, a5, a4, n] + S2[a2, SP[a3, a6], a4, a1, a5, n] + 
    2*S2[a2, SP[a4, a6], a1, a3, a5, n] + S2[a2, SP[a4, a6], a1, a5, a3, n] + 
    S2[a2, SP[a4, a6], a3, a1, a5, n] + S2[a4, a1, a5, a3, SP[a2, a6], n] + 
    S2[a4, a1, a5, SP[a3, a6], a2, n] + S2[a4, a1, a6, a2, SP[a3, a5], n] + 
    S2[a4, a1, a6, SP[a2, a5], a3, n] + S2[a4, a1, SP[a5, a6], a2, a3, n] + 
    S2[a4, a1, SP[a5, a6], a3, a2, n] + S2[a4, a6, a1, a2, SP[a3, a5], n] - 
    S2[a2, n]*S2[a4, a6, a1, a3, a5, n] - S2[a4, a6, a1, a3, SP[a2, a5], n] - 
    S2[a2, n]*S2[a4, a6, a1, a5, a3, n] - S2[a4, a6, a1, a5, SP[a2, a3], n] - 
    S2[a4, a6, a1, SP[a2, a3], a5, n] + S2[a4, a6, a2, a1, SP[a3, a5], n] + 
    S2[a4, a6, a2, SP[a1, a3], a5, n] + S2[a4, SP[a1, a6], a2, a3, a5, n] + 
    S2[a4, SP[a1, a6], a2, a5, a3, n] + S2[a4, SP[a1, a6], a5, a2, a3, n] + 
    S2[a4, SP[a1, a6], a5, a3, a2, n] - S2[a4, SP[a2, a6], a1, a3, a5, n] - 
    S2[a4, SP[a2, a6], a1, a5, a3, n] + S2[a4, n]*S2[a6, a1, a3, a2, a5, n] + 
    S2[a6, a1, a3, a2, SP[a4, a5], n] + S2[a4, n]*S2[a6, a1, a3, a5, a2, n] + 
    S2[a6, a1, a3, a5, SP[a2, a4], n] + S2[a6, a1, a3, SP[a2, a4], a5, n] + 
    S2[a6, a1, a3, SP[a4, a5], a2, n] + S2[a6, a1, SP[a3, a4], a2, a5, n] + 
    S2[a6, a1, SP[a3, a4], a5, a2, n] - S2[a4, n]*S2[a6, a2, a3, a1, a5, n] - 
    S2[a6, a2, a3, a1, SP[a4, a5], n] - S2[a6, a2, a3, SP[a1, a4], a5, n] - 
    S2[a6, a2, SP[a3, a4], a1, a5, n] - S2[a2, n]*S2[a6, a4, a1, a3, a5, n] - 
    S2[a6, a4, a1, a3, SP[a2, a5], n] - S2[a6, a4, a1, SP[a2, a3], a5, n] + 
    S2[a1, n]*S2[a6, a4, a2, a3, a5, n] + S2[a6, a4, a2, a3, SP[a1, a5], n] + 
    S2[a6, a4, a2, SP[a1, a3], a5, n] + S2[a6, SP[a1, a4], a2, a3, a5, n] + 
    S2[a6, SP[a1, a4], a3, a2, a5, n] + S2[a6, SP[a1, a4], a3, a5, a2, n] - 
    S2[a6, SP[a2, a4], a1, a3, a5, n] - S2[a6, SP[a2, a4], a3, a1, a5, n] - 
    S2[SP[a1, a6], a3, a2, a4, a5, n] - S2[SP[a1, a6], a3, a2, a5, a4, n] - 
    S2[SP[a1, a6], a3, a4, a2, a5, n] - S2[SP[a1, a6], a3, a4, a5, a2, n] - 
    S2[SP[a1, a6], a3, a5, a2, a4, n] - S2[SP[a1, a6], a3, a5, a4, a2, n] - 
    S2[SP[a1, a6], a4, a3, a2, a5, n] - S2[SP[a1, a6], a4, a3, a5, a2, n] + 
    S2[SP[a2, a6], a3, a1, a4, a5, n] + S2[SP[a2, a6], a3, a1, a5, a4, n] + 
    S2[SP[a2, a6], a3, a4, a1, a5, n] + S2[SP[a2, a6], a4, a3, a1, a5, n] + 
    S2[SP[a4, a6], a1, a3, a2, a5, n] + S2[SP[a4, a6], a1, a3, a5, a2, n] - 
    S2[SP[a4, a6], a2, a3, a1, a5, n] - S2[a6, a4, a2, a3, a5, a1, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a1_, a5_, a3_, a2_, a6_, a4_, n_] :> 
  S2[a1, a5, a3, n]*S2[a2, a6, a4, n] + S2[SP[a1, a2], SP[a5, a6], 
     SP[a3, a4], n] - S2[a1, a2, SP[a5, a6], SP[a3, a4], n] - 
    S2[a4, a6, n]*S2[a1, a5, a3, a2, n] + S2[a1, a5, SP[a3, a4], SP[a2, a6], 
     n] - S2[a1, SP[a2, a5], a6, SP[a3, a4], n] - 
    S2[a1, SP[a2, a5], SP[a3, a6], a4, n] + S2[a1, SP[a4, a5], a3, 
     SP[a2, a6], n] + S2[a1, SP[a4, a5], SP[a3, a6], a2, n] - 
    S2[a2, a1, SP[a5, a6], SP[a3, a4], n] - S2[a2, SP[a1, a6], a5, 
     SP[a3, a4], n] - S2[a2, SP[a1, a6], SP[a4, a5], a3, n] - 
    S2[a1, a5, n]*S2[a4, a6, a2, a3, n] + S2[a4, a6, SP[a1, a2], SP[a3, a5], 
     n] + S2[a4, SP[a1, a6], a2, SP[a3, a5], n] + 
    S2[a4, SP[a1, a6], SP[a2, a5], a3, n] - S2[SP[a1, a2], a5, a6, 
     SP[a3, a4], n] - S2[SP[a1, a2], a5, SP[a3, a6], a4, n] - 
    S2[SP[a1, a2], a6, a5, SP[a3, a4], n] - S2[SP[a1, a2], a6, SP[a4, a5], 
     a3, n] - S2[SP[a1, a2], SP[a5, a6], a3, a4, n] - 
    S2[SP[a1, a2], SP[a5, a6], a4, a3, n] + S2[SP[a1, a4], a5, a3, 
     SP[a2, a6], n] + S2[SP[a1, a4], a5, SP[a3, a6], a2, n] + 
    S2[SP[a1, a4], a6, a2, SP[a3, a5], n] + S2[SP[a1, a4], a6, SP[a2, a5], 
     a3, n] + S2[SP[a1, a4], SP[a5, a6], a2, a3, n] + 
    S2[SP[a1, a4], SP[a5, a6], a3, a2, n] + S2[a1, a2, a5, a6, SP[a3, a4], 
     n] + S2[a1, a2, a5, SP[a3, a6], a4, n] + S2[a1, a2, a6, a5, SP[a3, a4], 
     n] + S2[a1, a2, a6, SP[a4, a5], a3, n] + S2[a1, a2, SP[a5, a6], a3, a4, 
     n] + S2[a1, a2, SP[a5, a6], a4, a3, n] - S2[a1, a4, a5, a3, SP[a2, a6], 
     n] - S2[a1, a4, a5, SP[a3, a6], a2, n] - S2[a1, a4, a6, a2, SP[a3, a5], 
     n] - S2[a1, a4, a6, SP[a2, a5], a3, n] - S2[a1, a4, SP[a5, a6], a2, a3, 
     n] - S2[a1, a4, SP[a5, a6], a3, a2, n] + S2[a1, a5, a2, a6, SP[a3, a4], 
     n] + S2[a1, a5, a2, SP[a3, a6], a4, n] + 
    S2[a4, n]*S2[a1, a5, a3, a2, a6, n] + S2[a1, a5, a3, a2, SP[a4, a6], n] - 
    S2[a1, a5, a3, a4, SP[a2, a6], n] + S2[a4, n]*S2[a1, a5, a3, a6, a2, n] - 
    S2[a2, n]*S2[a1, a5, a3, a6, a4, n] - S2[a1, a5, a3, SP[a2, a6], a4, n] + 
    S2[a1, a5, a3, SP[a4, a6], a2, n] - S2[a1, a5, a4, a3, SP[a2, a6], n] - 
    S2[a1, a5, a4, SP[a3, a6], a2, n] + S2[a4, n]*S2[a1, a5, a6, a2, a3, n] + 
    S2[a1, a5, a6, a2, SP[a3, a4], n] + S2[a4, n]*S2[a1, a5, a6, a3, a2, n] - 
    S2[a2, n]*S2[a1, a5, a6, a3, a4, n] - 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] - S2[a1, a5, a6, a4, SP[a2, a3], n] - 
    S2[a1, a5, a6, SP[a2, a3], a4, n] + S2[a1, a5, a6, SP[a3, a4], a2, n] - 
    S2[a1, a5, SP[a2, a6], a3, a4, n] - S2[a1, a5, SP[a2, a6], a4, a3, n] + 
    S2[a1, a5, SP[a4, a6], a2, a3, n] + S2[a1, a5, SP[a4, a6], a3, a2, n] + 
    S2[a4, n]*S2[a1, a6, a2, a3, a5, n] + S2[a1, a6, a2, a3, SP[a4, a5], n] + 
    S2[a4, n]*S2[a1, a6, a2, a5, a3, n] + S2[a1, a6, a2, a5, SP[a3, a4], n] + 
    S2[a1, a6, a2, SP[a3, a4], a5, n] + S2[a1, a6, a2, SP[a4, a5], a3, n] - 
    S2[a2, n]*S2[a1, a6, a4, a5, a3, n] - S2[a1, a6, a4, a5, SP[a2, a3], n] - 
    S2[a1, a6, a4, SP[a2, a5], a3, n] + S2[a4, n]*S2[a1, a6, a5, a2, a3, n] + 
    S2[a1, a6, a5, a2, SP[a3, a4], n] + S2[a4, n]*S2[a1, a6, a5, a3, a2, n] - 
    S2[a2, n]*S2[a1, a6, a5, a3, a4, n] - 
    S2[a2, n]*S2[a1, a6, a5, a4, a3, n] - S2[a1, a6, a5, a4, SP[a2, a3], n] - 
    S2[a1, a6, a5, SP[a2, a3], a4, n] + S2[a1, a6, a5, SP[a3, a4], a2, n] + 
    S2[a1, a6, SP[a2, a4], a3, a5, n] - S2[a1, a6, SP[a2, a5], a3, a4, n] - 
    S2[a1, a6, SP[a2, a5], a4, a3, n] + S2[a1, a6, SP[a4, a5], a2, a3, n] + 
    S2[a1, a6, SP[a4, a5], a3, a2, n] - S2[a1, SP[a2, a6], a4, a5, a3, n] - 
    S2[a1, SP[a2, a6], a5, a3, a4, n] - S2[a1, SP[a2, a6], a5, a4, a3, n] + 
    S2[a1, SP[a4, a6], a2, a3, a5, n] + S2[a1, SP[a4, a6], a2, a5, a3, n] + 
    S2[a1, SP[a4, a6], a5, a2, a3, n] + S2[a1, SP[a4, a6], a5, a3, a2, n] + 
    S2[a2, a1, a5, a6, SP[a3, a4], n] + S2[a2, a1, a5, SP[a3, a6], a4, n] + 
    S2[a2, a1, a6, a5, SP[a3, a4], n] + S2[a2, a1, a6, SP[a4, a5], a3, n] + 
    S2[a2, a1, SP[a5, a6], a3, a4, n] + S2[a2, a1, SP[a5, a6], a4, a3, n] - 
    S2[a4, n]*S2[a2, a6, a1, a3, a5, n] - S2[a2, a6, a1, a3, SP[a4, a5], n] - 
    S2[a4, n]*S2[a2, a6, a1, a5, a3, n] - S2[a2, a6, a1, SP[a3, a4], a5, n] - 
    S2[a2, a6, SP[a1, a4], a3, a5, n] + S2[a2, SP[a1, a6], a4, a5, a3, n] + 
    S2[a2, SP[a1, a6], a5, a3, a4, n] + S2[a2, SP[a1, a6], a5, a4, a3, n] - 
    S2[a2, SP[a4, a6], a1, a3, a5, n] - S2[a2, SP[a4, a6], a1, a5, a3, n] - 
    S2[a4, a1, a5, a3, SP[a2, a6], n] - S2[a4, a1, a5, SP[a3, a6], a2, n] - 
    S2[a4, a1, a6, a2, SP[a3, a5], n] - S2[a4, a1, a6, SP[a2, a5], a3, n] - 
    S2[a4, a1, SP[a5, a6], a2, a3, n] - S2[a4, a1, SP[a5, a6], a3, a2, n] - 
    S2[a4, a6, a1, a2, SP[a3, a5], n] + S2[a2, n]*S2[a4, a6, a1, a3, a5, n] + 
    S2[a4, a6, a1, a3, SP[a2, a5], n] + S2[a2, n]*S2[a4, a6, a1, a5, a3, n] + 
    S2[a4, a6, a1, a5, SP[a2, a3], n] + S2[a4, a6, a1, SP[a2, a3], a5, n] - 
    S2[a4, a6, a2, a1, SP[a3, a5], n] - S2[a4, a6, a2, SP[a1, a3], a5, n] - 
    S2[a4, SP[a1, a6], a2, a3, a5, n] - S2[a4, SP[a1, a6], a2, a5, a3, n] - 
    S2[a4, SP[a1, a6], a5, a2, a3, n] - S2[a4, SP[a1, a6], a5, a3, a2, n] + 
    S2[a4, SP[a2, a6], a1, a3, a5, n] + S2[a4, SP[a2, a6], a1, a5, a3, n] - 
    S2[a4, n]*S2[a6, a1, a3, a2, a5, n] - S2[a6, a1, a3, a2, SP[a4, a5], n] + 
    S2[a2, n]*S2[a6, a1, a3, a4, a5, n] + S2[a6, a1, a3, a4, SP[a2, a5], n] - 
    S2[a4, n]*S2[a6, a1, a3, a5, a2, n] + 
    S2[a2, n]*S2[a6, a1, a3, a5, a4, n] + S2[a6, a1, a3, SP[a2, a5], a4, n] - 
    S2[a6, a1, a3, SP[a4, a5], a2, n] + S2[a2, n]*S2[a6, a1, a4, a3, a5, n] + 
    S2[a6, a1, a4, a3, SP[a2, a5], n] + S2[a6, a1, a4, SP[a2, a3], a5, n] + 
    S2[a6, a1, SP[a2, a3], a4, a5, n] + S2[a6, a1, SP[a2, a3], a5, a4, n] + 
    S2[a6, a1, SP[a2, a4], a3, a5, n] - S2[a6, a1, SP[a3, a4], a2, a5, n] - 
    S2[a6, a1, SP[a3, a4], a5, a2, n] + S2[a4, n]*S2[a6, a2, a3, a1, a5, n] + 
    S2[a6, a2, a3, a1, SP[a4, a5], n] - S2[a1, n]*S2[a6, a2, a3, a4, a5, n] - 
    S2[a6, a2, a3, a4, SP[a1, a5], n] - S2[a1, n]*S2[a6, a2, a3, a5, a4, n] - 
    S2[a6, a2, a3, a5, SP[a1, a4], n] - S2[a6, a2, a3, SP[a1, a5], a4, n] - 
    S2[a1, n]*S2[a6, a2, a4, a3, a5, n] - S2[a6, a2, a4, a3, SP[a1, a5], n] - 
    S2[a6, a2, a4, SP[a1, a3], a5, n] - S2[a6, a2, SP[a1, a3], a4, a5, n] - 
    S2[a6, a2, SP[a1, a3], a5, a4, n] - S2[a6, a2, SP[a1, a4], a3, a5, n] + 
    S2[a6, a2, SP[a3, a4], a1, a5, n] + S2[a2, n]*S2[a6, a4, a1, a3, a5, n] + 
    S2[a6, a4, a1, a3, SP[a2, a5], n] + S2[a6, a4, a1, SP[a2, a3], a5, n] - 
    S2[a1, n]*S2[a6, a4, a2, a3, a5, n] - S2[a6, a4, a2, a3, SP[a1, a5], n] - 
    S2[a6, a4, a2, SP[a1, a3], a5, n] - S2[a6, SP[a1, a4], a2, a3, a5, n] - 
    S2[a6, SP[a1, a4], a3, a2, a5, n] - S2[a6, SP[a1, a4], a3, a5, a2, n] + 
    S2[a6, SP[a2, a4], a1, a3, a5, n] + S2[a6, SP[a2, a4], a3, a1, a5, n] - 
    S2[SP[a1, a6], a2, a3, a4, a5, n] - S2[SP[a1, a6], a2, a3, a5, a4, n] - 
    S2[SP[a1, a6], a2, a4, a3, a5, n] - S2[SP[a1, a6], a4, a2, a3, a5, n] + 
    S2[SP[a2, a6], a1, a3, a4, a5, n] + S2[SP[a2, a6], a1, a3, a5, a4, n] + 
    S2[SP[a2, a6], a1, a4, a3, a5, n] + S2[SP[a2, a6], a4, a1, a3, a5, n] - 
    S2[SP[a4, a6], a1, a3, a2, a5, n] - S2[SP[a4, a6], a1, a3, a5, a2, n] + 
    S2[SP[a4, a6], a2, a3, a1, a5, n] + S2[a6, a2, a3, a4, a5, a1, n] + 
    S2[a6, a2, a3, a5, a1, a4, n] + S2[a6, a2, a3, a5, a4, a1, n] + 
    S2[a6, a2, a4, a3, a5, a1, n] + S2[a6, a4, a2, a3, a5, a1, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a1_, a5_, a3_, a4_, a2_, a6_, n_] :> 
  -(S2[a1, a5, a3, n]*S2[a2, a4, a6, n]) - S2[a1, a5, a3, n]*
     S2[a2, a6, a4, n] - S2[SP[a1, a2], SP[a4, a5], SP[a3, a6], n] - 
    S2[SP[a1, a2], SP[a5, a6], SP[a3, a4], n] + S2[a1, a2, SP[a4, a5], 
     SP[a3, a6], n] + S2[a1, a2, SP[a5, a6], SP[a3, a4], n] + 
    S2[a2, a6, n]*S2[a1, a5, a3, a4, n] - S2[a1, a5, SP[a2, a3], SP[a4, a6], 
     n] - S2[a1, SP[a2, a5], a3, SP[a4, a6], n] + S2[a1, SP[a2, a5], a4, 
     SP[a3, a6], n] + S2[a1, SP[a2, a5], a6, SP[a3, a4], n] + 
    S2[a1, SP[a2, a5], SP[a3, a4], a6, n] + S2[a2, a1, SP[a4, a5], 
     SP[a3, a6], n] + S2[a2, a1, SP[a5, a6], SP[a3, a4], n] + 
    S2[a1, a5, n]*S2[a2, a4, a3, a6, n] + S2[a1, a5, n]*
     S2[a2, a4, a6, a3, n] - S2[a2, a4, SP[a1, a3], SP[a5, a6], n] - 
    S2[a2, a4, SP[a1, a6], SP[a3, a5], n] + S2[a1, a5, n]*
     S2[a2, a6, a4, a3, n] - S2[a2, a6, SP[a1, a4], SP[a3, a5], n] - 
    S2[a2, SP[a1, a4], a3, SP[a5, a6], n] + S2[a2, SP[a1, a4], a5, 
     SP[a3, a6], n] - S2[a2, SP[a1, a4], a6, SP[a3, a5], n] - 
    S2[a2, SP[a1, a4], SP[a3, a5], a6, n] - S2[a2, SP[a1, a6], a4, 
     SP[a3, a5], n] + S2[a2, SP[a1, a6], a5, SP[a3, a4], n] - 
    S2[SP[a1, a2], a4, a3, SP[a5, a6], n] + S2[SP[a1, a2], a4, a5, 
     SP[a3, a6], n] - S2[SP[a1, a2], a4, a6, SP[a3, a5], n] - 
    S2[SP[a1, a2], a4, SP[a3, a5], a6, n] - S2[SP[a1, a2], a5, a3, 
     SP[a4, a6], n] + S2[SP[a1, a2], a5, a4, SP[a3, a6], n] + 
    S2[SP[a1, a2], a5, a6, SP[a3, a4], n] + S2[SP[a1, a2], a5, SP[a3, a4], 
     a6, n] - S2[SP[a1, a2], a6, a4, SP[a3, a5], n] + 
    S2[SP[a1, a2], a6, a5, SP[a3, a4], n] + S2[a1, a2, a4, a3, SP[a5, a6], 
     n] - S2[a1, a2, a4, a5, SP[a3, a6], n] + S2[a1, a2, a4, a6, SP[a3, a5], 
     n] + S2[a1, a2, a4, SP[a3, a5], a6, n] + S2[a1, a2, a5, a3, SP[a4, a6], 
     n] - S2[a1, a2, a5, a4, SP[a3, a6], n] - S2[a1, a2, a5, a6, SP[a3, a4], 
     n] - S2[a1, a2, a5, SP[a3, a4], a6, n] + S2[a1, a2, a6, a4, SP[a3, a5], 
     n] - S2[a1, a2, a6, a5, SP[a3, a4], n] + 
    S2[a6, n]*S2[a1, a4, a2, a3, a5, n] + S2[a1, a4, a2, a3, SP[a5, a6], n] + 
    S2[a1, a4, a2, SP[a3, a6], a5, n] + S2[a6, n]*S2[a1, a4, a3, a2, a5, n] + 
    S2[a1, a4, a3, a2, SP[a5, a6], n] + S2[a6, n]*S2[a1, a4, a3, a5, a2, n] - 
    S2[a2, n]*S2[a1, a4, a3, a5, a6, n] - 
    S2[a2, n]*S2[a1, a4, a3, a6, a5, n] - S2[a1, a4, a3, a6, SP[a2, a5], n] - 
    S2[a1, a4, a3, SP[a2, a5], a6, n] + S2[a1, a4, a3, SP[a5, a6], a2, n] - 
    S2[a2, n]*S2[a1, a4, a6, a3, a5, n] - S2[a1, a4, a6, a3, SP[a2, a5], n] - 
    S2[a1, a4, a6, SP[a2, a3], a5, n] - S2[a1, a4, SP[a2, a3], a5, a6, n] - 
    S2[a1, a4, SP[a2, a3], a6, a5, n] + S2[a1, a4, SP[a3, a6], a2, a5, n] + 
    S2[a1, a4, SP[a3, a6], a5, a2, n] + S2[a1, a5, a2, a3, SP[a4, a6], n] - 
    S2[a1, a5, a2, a4, SP[a3, a6], n] - S2[a1, a5, a2, a6, SP[a3, a4], n] - 
    S2[a1, a5, a2, SP[a3, a4], a6, n] + S2[a1, a5, a3, a2, SP[a4, a6], n] + 
    S2[a1, a5, a3, SP[a2, a4], a6, n] - S2[a2, n]*S2[a1, a6, a4, a3, a5, n] - 
    S2[a1, a6, a4, a3, SP[a2, a5], n] - S2[a1, a6, a4, SP[a2, a3], a5, n] - 
    S2[a1, a6, SP[a2, a4], a3, a5, n] - S2[a1, SP[a2, a4], a3, a5, a6, n] - 
    S2[a1, SP[a2, a4], a3, a6, a5, n] - S2[a1, SP[a2, a4], a6, a3, a5, n] - 
    S2[a1, SP[a2, a6], a4, a3, a5, n] + S2[a1, SP[a4, a6], a2, a3, a5, n] + 
    S2[a1, SP[a4, a6], a3, a2, a5, n] + S2[a1, SP[a4, a6], a3, a5, a2, n] + 
    S2[a2, a1, a4, a3, SP[a5, a6], n] - S2[a2, a1, a4, a5, SP[a3, a6], n] + 
    S2[a2, a1, a4, a6, SP[a3, a5], n] + S2[a2, a1, a4, SP[a3, a5], a6, n] + 
    S2[a2, a1, a5, a3, SP[a4, a6], n] - S2[a2, a1, a5, a4, SP[a3, a6], n] - 
    S2[a2, a1, a5, a6, SP[a3, a4], n] - S2[a2, a1, a5, SP[a3, a4], a6, n] + 
    S2[a2, a1, a6, a4, SP[a3, a5], n] - S2[a2, a1, a6, a5, SP[a3, a4], n] - 
    S2[a6, n]*S2[a2, a4, a1, a3, a5, n] - S2[a2, a4, a1, a5, SP[a3, a6], n] + 
    S2[a2, a4, a1, a6, SP[a3, a5], n] + S2[a2, a4, a1, SP[a3, a5], a6, n] - 
    S2[a2, a4, a1, SP[a3, a6], a5, n] - S2[a6, n]*S2[a2, a4, a3, a1, a5, n] + 
    S2[a2, a4, a6, a1, SP[a3, a5], n] + S2[a2, a4, a6, SP[a1, a3], a5, n] + 
    S2[a2, a4, SP[a1, a3], a5, a6, n] + S2[a2, a4, SP[a1, a3], a6, a5, n] - 
    S2[a2, a4, SP[a3, a6], a1, a5, n] + S2[a2, a6, a1, a4, SP[a3, a5], n] - 
    S2[a2, a6, a1, a5, SP[a3, a4], n] + S2[a2, a6, a4, a1, SP[a3, a5], n] + 
    S2[a2, a6, a4, SP[a1, a3], a5, n] + S2[a2, a6, SP[a1, a4], a3, a5, n] + 
    S2[a2, SP[a1, a4], a3, a5, a6, n] + S2[a2, SP[a1, a4], a3, a6, a5, n] + 
    S2[a2, SP[a1, a4], a6, a3, a5, n] + S2[a2, SP[a1, a6], a4, a3, a5, n] - 
    S2[a2, SP[a4, a6], a1, a3, a5, n] - S2[a2, SP[a4, a6], a3, a1, a5, n] - 
    S2[a2, n]*S2[a6, a1, a4, a3, a5, n] - S2[a6, a1, a4, a3, SP[a2, a5], n] - 
    S2[a6, a1, a4, SP[a2, a3], a5, n] - S2[a6, a1, SP[a2, a4], a3, a5, n] + 
    S2[a1, n]*S2[a6, a2, a4, a3, a5, n] + S2[a6, a2, a4, a3, SP[a1, a5], n] + 
    S2[a6, a2, a4, SP[a1, a3], a5, n] + S2[a6, a2, SP[a1, a4], a3, a5, n] + 
    S2[SP[a1, a6], a2, a4, a3, a5, n] + S2[SP[a1, a6], a4, a2, a3, a5, n] + 
    S2[SP[a1, a6], a4, a3, a2, a5, n] + S2[SP[a1, a6], a4, a3, a5, a2, n] - 
    S2[SP[a2, a6], a1, a4, a3, a5, n] - S2[SP[a2, a6], a4, a1, a3, a5, n] - 
    S2[SP[a2, a6], a4, a3, a1, a5, n] - S2[a6, a2, a4, a3, a5, a1, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a1_, a5_, a3_, a4_, a6_, a2_, n_] :> 
  S2[a1, a5, a3, n]*S2[a2, a6, a4, n] + S2[SP[a1, a2], SP[a5, a6], 
     SP[a3, a4], n] - S2[a1, a2, SP[a5, a6], SP[a3, a4], n] - 
    S2[a2, a6, n]*S2[a1, a5, a3, a4, n] + S2[a1, a5, SP[a2, a3], SP[a4, a6], 
     n] + S2[a1, SP[a2, a5], a3, SP[a4, a6], n] - S2[a1, SP[a2, a5], a6, 
     SP[a3, a4], n] - S2[a2, a1, SP[a5, a6], SP[a3, a4], n] - 
    S2[a1, a5, n]*S2[a2, a6, a4, a3, n] + S2[a2, a6, SP[a1, a4], SP[a3, a5], 
     n] + S2[a2, SP[a1, a6], a4, SP[a3, a5], n] - S2[a2, SP[a1, a6], a5, 
     SP[a3, a4], n] + S2[SP[a1, a2], a5, a3, SP[a4, a6], n] - 
    S2[SP[a1, a2], a5, a6, SP[a3, a4], n] + S2[SP[a1, a2], a6, a4, 
     SP[a3, a5], n] - S2[SP[a1, a2], a6, a5, SP[a3, a4], n] - 
    S2[a1, a2, a5, a3, SP[a4, a6], n] + S2[a1, a2, a5, a6, SP[a3, a4], n] - 
    S2[a1, a2, a6, a4, SP[a3, a5], n] + S2[a1, a2, a6, a5, SP[a3, a4], n] - 
    S2[a1, a5, a2, a3, SP[a4, a6], n] + S2[a1, a5, a2, a6, SP[a3, a4], n] - 
    S2[a1, a5, a3, a2, SP[a4, a6], n] + S2[a2, n]*S2[a1, a5, a3, a4, a6, n] + 
    S2[a1, a5, a3, a4, SP[a2, a6], n] + S2[a2, n]*S2[a1, a6, a4, a3, a5, n] + 
    S2[a1, a6, a4, a3, SP[a2, a5], n] + S2[a1, a6, a4, SP[a2, a3], a5, n] + 
    S2[a1, a6, SP[a2, a4], a3, a5, n] + S2[a1, SP[a2, a6], a4, a3, a5, n] - 
    S2[a2, a1, a5, a3, SP[a4, a6], n] + S2[a2, a1, a5, a6, SP[a3, a4], n] - 
    S2[a2, a1, a6, a4, SP[a3, a5], n] + S2[a2, a1, a6, a5, SP[a3, a4], n] - 
    S2[a2, a6, a1, a4, SP[a3, a5], n] + S2[a2, a6, a1, a5, SP[a3, a4], n] - 
    S2[a2, a6, a4, a1, SP[a3, a5], n] - S2[a2, a6, a4, SP[a1, a3], a5, n] - 
    S2[a2, a6, SP[a1, a4], a3, a5, n] - S2[a2, SP[a1, a6], a4, a3, a5, n] + 
    S2[a2, n]*S2[a6, a1, a4, a3, a5, n] + S2[a6, a1, a4, a3, SP[a2, a5], n] + 
    S2[a6, a1, a4, SP[a2, a3], a5, n] + S2[a6, a1, SP[a2, a4], a3, a5, n] - 
    S2[a1, n]*S2[a6, a2, a4, a3, a5, n] - S2[a6, a2, a4, a3, SP[a1, a5], n] - 
    S2[a6, a2, a4, SP[a1, a3], a5, n] - S2[a6, a2, SP[a1, a4], a3, a5, n] + 
    S2[a2, n]*S2[a6, a4, a1, a3, a5, n] + S2[a6, a4, a1, a3, SP[a2, a5], n] + 
    S2[a6, a4, a1, SP[a2, a3], a5, n] - S2[a1, n]*S2[a6, a4, a2, a3, a5, n] - 
    S2[a6, a4, a2, a3, SP[a1, a5], n] - S2[a6, a4, a2, SP[a1, a3], a5, n] + 
    S2[a2, n]*S2[a6, a4, a3, a1, a5, n] + S2[a6, a4, a3, a1, SP[a2, a5], n] - 
    S2[a1, n]*S2[a6, a4, a3, a2, a5, n] - S2[a6, a4, a3, a2, SP[a1, a5], n] - 
    S2[a1, n]*S2[a6, a4, a3, a5, a2, n] - S2[a6, a4, a3, a5, SP[a1, a2], n] - 
    S2[a6, a4, a3, SP[a1, a5], a2, n] - S2[a6, a4, SP[a1, a3], a2, a5, n] - 
    S2[a6, a4, SP[a1, a3], a5, a2, n] + S2[a6, a4, SP[a2, a3], a1, a5, n] - 
    S2[a6, SP[a1, a4], a2, a3, a5, n] - S2[a6, SP[a1, a4], a3, a2, a5, n] - 
    S2[a6, SP[a1, a4], a3, a5, a2, n] + S2[a6, SP[a2, a4], a1, a3, a5, n] + 
    S2[a6, SP[a2, a4], a3, a1, a5, n] - S2[SP[a1, a6], a2, a4, a3, a5, n] - 
    S2[SP[a1, a6], a4, a2, a3, a5, n] - S2[SP[a1, a6], a4, a3, a2, a5, n] - 
    S2[SP[a1, a6], a4, a3, a5, a2, n] + S2[SP[a2, a6], a1, a4, a3, a5, n] + 
    S2[SP[a2, a6], a4, a1, a3, a5, n] + S2[SP[a2, a6], a4, a3, a1, a5, n] + 
    S2[a6, a2, a4, a3, a5, a1, n] + S2[a6, a4, a2, a3, a5, a1, n] + 
    S2[a6, a4, a3, a2, a5, a1, n] + S2[a6, a4, a3, a5, a1, a2, n] + 
    S2[a6, a4, a3, a5, a2, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a1_, a5_, a3_, a6_, a2_, a4_, n_] :> 
  -(S2[a1, a5, a3, n]*S2[a2, a4, a6, n]) - S2[a1, a5, a3, n]*
     S2[a2, a6, a4, n] - S2[SP[a1, a2], SP[a4, a5], SP[a3, a6], n] - 
    S2[SP[a1, a2], SP[a5, a6], SP[a3, a4], n] + S2[a1, a2, SP[a4, a5], 
     SP[a3, a6], n] + S2[a1, a2, SP[a5, a6], SP[a3, a4], n] + 
    S2[a1, SP[a2, a5], a4, SP[a3, a6], n] + S2[a1, SP[a2, a5], a6, 
     SP[a3, a4], n] + S2[a1, SP[a2, a5], SP[a3, a4], a6, n] + 
    S2[a1, SP[a2, a5], SP[a3, a6], a4, n] + S2[a2, a1, SP[a4, a5], 
     SP[a3, a6], n] + S2[a2, a1, SP[a5, a6], SP[a3, a4], n] + 
    S2[a2, SP[a1, a4], a5, SP[a3, a6], n] + S2[a2, SP[a1, a4], SP[a5, a6], 
     a3, n] + S2[a2, SP[a1, a6], a5, SP[a3, a4], n] + 
    S2[a2, SP[a1, a6], SP[a4, a5], a3, n] + S2[a1, a5, n]*
     S2[a3, a6, a2, a4, n] - S2[a3, a6, SP[a1, a2], SP[a4, a5], n] - 
    S2[a3, SP[a1, a6], a2, SP[a4, a5], n] - S2[a3, SP[a1, a6], SP[a2, a5], 
     a4, n] + S2[SP[a1, a2], a4, a5, SP[a3, a6], n] + 
    S2[SP[a1, a2], a4, SP[a5, a6], a3, n] + S2[SP[a1, a2], a5, a4, 
     SP[a3, a6], n] + S2[SP[a1, a2], a5, a6, SP[a3, a4], n] + 
    S2[SP[a1, a2], a5, SP[a3, a4], a6, n] + S2[SP[a1, a2], a5, SP[a3, a6], 
     a4, n] + S2[SP[a1, a2], a6, a5, SP[a3, a4], n] + 
    S2[SP[a1, a2], a6, SP[a4, a5], a3, n] + S2[SP[a1, a2], SP[a4, a5], a3, 
     a6, n] + S2[SP[a1, a2], SP[a4, a5], a6, a3, n] + 
    S2[SP[a1, a2], SP[a5, a6], a3, a4, n] + S2[SP[a1, a2], SP[a5, a6], a4, 
     a3, n] - S2[SP[a1, a3], a6, a2, SP[a4, a5], n] - 
    S2[SP[a1, a3], a6, SP[a2, a5], a4, n] - S2[SP[a1, a3], SP[a5, a6], a2, 
     a4, n] - S2[a1, a2, a4, a5, SP[a3, a6], n] - S2[a1, a2, a4, SP[a5, a6], 
     a3, n] - S2[a1, a2, a5, a4, SP[a3, a6], n] - 
    S2[a1, a2, a5, a6, SP[a3, a4], n] - S2[a1, a2, a5, SP[a3, a4], a6, n] - 
    S2[a1, a2, a5, SP[a3, a6], a4, n] - S2[a1, a2, a6, a5, SP[a3, a4], n] - 
    S2[a1, a2, a6, SP[a4, a5], a3, n] - S2[a1, a2, SP[a4, a5], a3, a6, n] - 
    S2[a1, a2, SP[a4, a5], a6, a3, n] - S2[a1, a2, SP[a5, a6], a3, a4, n] - 
    S2[a1, a2, SP[a5, a6], a4, a3, n] + S2[a1, a3, a6, a2, SP[a4, a5], n] + 
    S2[a1, a3, a6, SP[a2, a5], a4, n] + S2[a1, a3, SP[a5, a6], a2, a4, n] - 
    S2[a6, n]*S2[a1, a4, a2, a5, a3, n] - S2[a1, a4, a2, a5, SP[a3, a6], n] - 
    S2[a1, a4, a2, SP[a5, a6], a3, n] - S2[a6, n]*S2[a1, a4, a5, a2, a3, n] - 
    S2[a1, a4, a5, a2, SP[a3, a6], n] - S2[a6, n]*S2[a1, a4, a5, a3, a2, n] + 
    S2[a2, n]*S2[a1, a4, a5, a3, a6, n] + 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] + S2[a1, a4, a5, a6, SP[a2, a3], n] + 
    S2[a1, a4, a5, SP[a2, a3], a6, n] - S2[a1, a4, a5, SP[a3, a6], a2, n] + 
    S2[a2, n]*S2[a1, a4, a6, a5, a3, n] + S2[a1, a4, a6, a5, SP[a2, a3], n] + 
    S2[a1, a4, a6, SP[a2, a5], a3, n] + S2[a1, a4, SP[a2, a5], a3, a6, n] + 
    S2[a1, a4, SP[a2, a5], a6, a3, n] - S2[a1, a4, SP[a5, a6], a2, a3, n] - 
    S2[a1, a4, SP[a5, a6], a3, a2, n] - S2[a1, a5, a2, a4, SP[a3, a6], n] - 
    S2[a1, a5, a2, a6, SP[a3, a4], n] - S2[a1, a5, a2, SP[a3, a4], a6, n] - 
    S2[a1, a5, a2, SP[a3, a6], a4, n] - S2[a6, n]*S2[a1, a5, a3, a4, a2, n] + 
    S2[a2, n]*S2[a1, a5, a3, a4, a6, n] + 
    S2[a2, n]*S2[a1, a5, a3, a6, a4, n] + S2[a1, a5, a3, a6, SP[a2, a4], n] + 
    S2[a1, a5, a3, SP[a2, a4], a6, n] + S2[a1, a5, a3, SP[a2, a6], a4, n] - 
    S2[a1, a5, a3, SP[a4, a6], a2, n] - S2[a6, n]*S2[a1, a5, a4, a2, a3, n] - 
    S2[a1, a5, a4, a2, SP[a3, a6], n] - S2[a6, n]*S2[a1, a5, a4, a3, a2, n] + 
    S2[a2, n]*S2[a1, a5, a4, a3, a6, n] + 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] + S2[a1, a5, a4, a6, SP[a2, a3], n] + 
    S2[a1, a5, a4, SP[a2, a3], a6, n] - S2[a1, a5, a4, SP[a3, a6], a2, n] - 
    S2[a3, n]*S2[a1, a5, a6, a2, a4, n] - S2[a1, a5, a6, a2, SP[a3, a4], n] + 
    S2[a2, n]*S2[a1, a5, a6, a3, a4, n] + S2[a1, a5, a6, a3, SP[a2, a4], n] + 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] + S2[a1, a5, a6, a4, SP[a2, a3], n] + 
    S2[a1, a5, a6, SP[a2, a4], a3, n] + S2[a1, a5, SP[a2, a4], a3, a6, n] + 
    S2[a1, a5, SP[a2, a4], a6, a3, n] + S2[a1, a5, SP[a2, a6], a3, a4, n] + 
    S2[a1, a5, SP[a2, a6], a4, a3, n] - S2[a1, a5, SP[a3, a6], a2, a4, n] - 
    S2[a1, a5, SP[a3, a6], a4, a2, n] - S2[a1, a5, SP[a4, a6], a2, a3, n] - 
    S2[a1, a5, SP[a4, a6], a3, a2, n] - S2[a3, n]*S2[a1, a6, a2, a4, a5, n] - 
    S2[a1, a6, a2, a4, SP[a3, a5], n] - S2[a3, n]*S2[a1, a6, a2, a5, a4, n] - 
    S2[a1, a6, a2, a5, SP[a3, a4], n] - S2[a1, a6, a2, SP[a3, a4], a5, n] - 
    S2[a1, a6, a2, SP[a3, a5], a4, n] + S2[a2, n]*S2[a1, a6, a4, a5, a3, n] + 
    S2[a1, a6, a4, a5, SP[a2, a3], n] + S2[a1, a6, a4, SP[a2, a5], a3, n] - 
    S2[a3, n]*S2[a1, a6, a5, a2, a4, n] - S2[a1, a6, a5, a2, SP[a3, a4], n] + 
    S2[a2, n]*S2[a1, a6, a5, a3, a4, n] + S2[a1, a6, a5, a3, SP[a2, a4], n] + 
    S2[a2, n]*S2[a1, a6, a5, a4, a3, n] + S2[a1, a6, a5, a4, SP[a2, a3], n] + 
    S2[a1, a6, a5, SP[a2, a4], a3, n] - S2[a1, a6, SP[a2, a3], a4, a5, n] - 
    S2[a1, a6, SP[a2, a3], a5, a4, n] + S2[a1, a6, SP[a2, a4], a5, a3, n] + 
    S2[a1, a6, SP[a2, a5], a3, a4, n] + S2[a1, a6, SP[a2, a5], a4, a3, n] - 
    S2[a1, a6, SP[a3, a5], a2, a4, n] + S2[a1, SP[a2, a4], a5, a3, a6, n] + 
    S2[a1, SP[a2, a4], a5, a6, a3, n] + S2[a1, SP[a2, a4], a6, a5, a3, n] + 
    S2[a1, SP[a2, a6], a4, a5, a3, n] + S2[a1, SP[a2, a6], a5, a3, a4, n] + 
    S2[a1, SP[a2, a6], a5, a4, a3, n] - S2[a1, SP[a3, a6], a2, a4, a5, n] - 
    S2[a1, SP[a3, a6], a2, a5, a4, n] - S2[a1, SP[a3, a6], a5, a2, a4, n] - 
    S2[a1, SP[a4, a6], a2, a5, a3, n] - S2[a1, SP[a4, a6], a5, a2, a3, n] - 
    S2[a1, SP[a4, a6], a5, a3, a2, n] - S2[a1, SP[a5, a6], a3, a4, a2, n] - 
    S2[a1, SP[a5, a6], a4, a2, a3, n] - S2[a1, SP[a5, a6], a4, a3, a2, n] - 
    S2[a2, a1, a4, a5, SP[a3, a6], n] - S2[a2, a1, a4, SP[a5, a6], a3, n] - 
    S2[a2, a1, a5, a4, SP[a3, a6], n] - S2[a2, a1, a5, a6, SP[a3, a4], n] - 
    S2[a2, a1, a5, SP[a3, a4], a6, n] - S2[a2, a1, a5, SP[a3, a6], a4, n] - 
    S2[a2, a1, a6, a5, SP[a3, a4], n] - S2[a2, a1, a6, SP[a4, a5], a3, n] - 
    S2[a2, a1, SP[a4, a5], a3, a6, n] - S2[a2, a1, SP[a4, a5], a6, a3, n] - 
    S2[a2, a1, SP[a5, a6], a3, a4, n] - S2[a2, a1, SP[a5, a6], a4, a3, n] + 
    S2[a6, n]*S2[a2, a4, a1, a5, a3, n] + 
    S2[a3, n]*S2[a2, a6, a1, a4, a5, n] + S2[a2, a6, a1, a4, SP[a3, a5], n] + 
    S2[a3, n]*S2[a2, a6, a1, a5, a4, n] + S2[a2, a6, a1, SP[a3, a4], a5, n] + 
    S2[a2, a6, a1, SP[a3, a5], a4, n] - S2[a2, a6, a1, SP[a4, a5], a3, n] + 
    S2[a2, a6, SP[a1, a3], a4, a5, n] + S2[a2, a6, SP[a1, a3], a5, a4, n] - 
    S2[a2, a6, SP[a1, a4], a5, a3, n] - S2[a2, SP[a1, a4], a5, a3, a6, n] - 
    S2[a2, SP[a1, a4], a5, a6, a3, n] - S2[a2, SP[a1, a4], a6, a5, a3, n] - 
    S2[a2, SP[a1, a6], a4, a5, a3, n] - S2[a2, SP[a1, a6], a5, a3, a4, n] - 
    S2[a2, SP[a1, a6], a5, a4, a3, n] + S2[a2, SP[a3, a6], a1, a4, a5, n] + 
    S2[a2, SP[a3, a6], a1, a5, a4, n] + S2[a2, SP[a4, a6], a1, a5, a3, n] + 
    S2[a3, a1, a6, a2, SP[a4, a5], n] + S2[a3, a1, a6, SP[a2, a5], a4, n] + 
    S2[a3, a1, SP[a5, a6], a2, a4, n] + S2[a3, a6, a1, a2, SP[a4, a5], n] - 
    S2[a2, n]*S2[a3, a6, a1, a4, a5, n] - S2[a3, a6, a1, a4, SP[a2, a5], n] - 
    S2[a2, n]*S2[a3, a6, a1, a5, a4, n] - S2[a3, a6, a1, a5, SP[a2, a4], n] - 
    S2[a3, a6, a1, SP[a2, a4], a5, n] + S2[a3, a6, a2, a1, SP[a4, a5], n] + 
    S2[a3, a6, a2, SP[a1, a4], a5, n] + S2[a3, SP[a1, a6], a2, a4, a5, n] + 
    S2[a3, SP[a1, a6], a2, a5, a4, n] + S2[a3, SP[a1, a6], a5, a2, a4, n] - 
    S2[a3, SP[a2, a6], a1, a4, a5, n] - S2[a3, SP[a2, a6], a1, a5, a4, n] - 
    S2[a2, n]*S2[a6, a1, a3, a4, a5, n] - S2[a6, a1, a3, a4, SP[a2, a5], n] - 
    S2[a2, n]*S2[a6, a1, a3, a5, a4, n] - S2[a6, a1, a3, a5, SP[a2, a4], n] - 
    S2[a6, a1, a3, SP[a2, a4], a5, n] - S2[a6, a1, a3, SP[a2, a5], a4, n] + 
    S2[a3, n]*S2[a6, a1, a4, a2, a5, n] + S2[a6, a1, a4, a2, SP[a3, a5], n] - 
    S2[a2, n]*S2[a6, a1, a4, a3, a5, n] - S2[a6, a1, a4, a3, SP[a2, a5], n] + 
    S2[a3, n]*S2[a6, a1, a4, a5, a2, n] + S2[a6, a1, a4, a5, SP[a2, a3], n] + 
    S2[a6, a1, a4, SP[a3, a5], a2, n] + S2[a3, n]*S2[a6, a1, a5, a4, a2, n] + 
    S2[a6, a1, a5, a4, SP[a2, a3], n] + S2[a6, a1, a5, SP[a3, a4], a2, n] - 
    S2[a6, a1, SP[a2, a3], a4, a5, n] - S2[a6, a1, SP[a2, a3], a5, a4, n] - 
    S2[a6, a1, SP[a2, a4], a3, a5, n] + S2[a6, a1, SP[a3, a4], a2, a5, n] + 
    S2[a6, a1, SP[a3, a4], a5, a2, n] + S2[a6, a1, SP[a3, a5], a4, a2, n] + 
    S2[a1, n]*S2[a6, a2, a3, a4, a5, n] + S2[a6, a2, a3, a4, SP[a1, a5], n] + 
    S2[a1, n]*S2[a6, a2, a3, a5, a4, n] + S2[a6, a2, a3, a5, SP[a1, a4], n] + 
    S2[a6, a2, a3, SP[a1, a4], a5, n] + S2[a6, a2, a3, SP[a1, a5], a4, n] - 
    S2[a3, n]*S2[a6, a2, a4, a1, a5, n] - S2[a6, a2, a4, a1, SP[a3, a5], n] + 
    S2[a1, n]*S2[a6, a2, a4, a3, a5, n] + S2[a6, a2, a4, a3, SP[a1, a5], n] + 
    S2[a6, a2, SP[a1, a3], a4, a5, n] + S2[a6, a2, SP[a1, a3], a5, a4, n] + 
    S2[a6, a2, SP[a1, a4], a3, a5, n] - S2[a6, a2, SP[a3, a4], a1, a5, n] - 
    S2[a2, n]*S2[a6, a3, a1, a4, a5, n] - S2[a6, a3, a1, a4, SP[a2, a5], n] - 
    S2[a2, n]*S2[a6, a3, a1, a5, a4, n] - S2[a6, a3, a1, a5, SP[a2, a4], n] - 
    S2[a6, a3, a1, SP[a2, a4], a5, n] - S2[a6, a3, a1, SP[a2, a5], a4, n] + 
    S2[a1, n]*S2[a6, a3, a2, a4, a5, n] + S2[a6, a3, a2, a4, SP[a1, a5], n] + 
    S2[a1, n]*S2[a6, a3, a2, a5, a4, n] + S2[a6, a3, a2, a5, SP[a1, a4], n] + 
    S2[a6, a3, a2, SP[a1, a4], a5, n] + S2[a6, a3, a2, SP[a1, a5], a4, n] + 
    S2[a1, n]*S2[a6, a3, a5, a2, a4, n] + S2[a6, a3, a5, a2, SP[a1, a4], n] + 
    S2[a6, a3, a5, SP[a1, a2], a4, n] + S2[a6, a3, SP[a1, a5], a2, a4, n] + 
    S2[a6, SP[a1, a3], a2, a4, a5, n] + S2[a6, SP[a1, a3], a2, a5, a4, n] + 
    S2[a6, SP[a1, a3], a4, a2, a5, n] + S2[a6, SP[a1, a3], a4, a5, a2, n] + 
    S2[a6, SP[a1, a3], a5, a2, a4, n] + S2[a6, SP[a1, a3], a5, a4, a2, n] - 
    S2[a6, SP[a2, a3], a1, a4, a5, n] - S2[a6, SP[a2, a3], a1, a5, a4, n] - 
    S2[a6, SP[a2, a3], a4, a1, a5, n] + S2[SP[a1, a6], a2, a3, a4, a5, n] + 
    S2[SP[a1, a6], a2, a3, a5, a4, n] + S2[SP[a1, a6], a2, a4, a3, a5, n] + 
    S2[SP[a1, a6], a3, a2, a4, a5, n] + S2[SP[a1, a6], a3, a2, a5, a4, n] + 
    S2[SP[a1, a6], a3, a5, a2, a4, n] - S2[SP[a1, a6], a4, a2, a5, a3, n] - 
    S2[SP[a1, a6], a4, a5, a2, a3, n] - S2[SP[a1, a6], a4, a5, a3, a2, n] - 
    S2[SP[a1, a6], a5, a3, a4, a2, n] - S2[SP[a1, a6], a5, a4, a2, a3, n] - 
    S2[SP[a1, a6], a5, a4, a3, a2, n] - S2[SP[a2, a6], a1, a3, a4, a5, n] - 
    S2[SP[a2, a6], a1, a3, a5, a4, n] - S2[SP[a2, a6], a1, a4, a3, a5, n] - 
    S2[SP[a2, a6], a3, a1, a4, a5, n] - S2[SP[a2, a6], a3, a1, a5, a4, n] + 
    S2[SP[a2, a6], a4, a1, a5, a3, n] + S2[SP[a3, a6], a1, a4, a2, a5, n] + 
    S2[SP[a3, a6], a1, a4, a5, a2, n] + S2[SP[a3, a6], a1, a5, a4, a2, n] - 
    S2[SP[a3, a6], a2, a4, a1, a5, n] - S2[a6, a2, a3, a4, a5, a1, n] - 
    S2[a6, a2, a3, a5, a1, a4, n] - S2[a6, a2, a3, a5, a4, a1, n] - 
    S2[a6, a2, a4, a3, a5, a1, n] - S2[a6, a3, a2, a4, a5, a1, n] - 
    S2[a6, a3, a2, a5, a1, a4, n] - S2[a6, a3, a2, a5, a4, a1, n] - 
    S2[a6, a3, a5, a1, a2, a4, n] - S2[a6, a3, a5, a2, a1, a4, n] - 
    S2[a6, a3, a5, a2, a4, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a1_, a5_, a3_, a6_, a4_, a2_, n_] :> 
  S2[a1, a5, a3, n]*S2[a2, a4, a6, n] + S2[SP[a1, a2], SP[a4, a5], 
     SP[a3, a6], n] - S2[a1, a2, SP[a4, a5], SP[a3, a6], n] - 
    S2[a1, SP[a2, a5], a4, SP[a3, a6], n] - S2[a1, SP[a2, a5], SP[a3, a4], 
     a6, n] - S2[a2, a1, SP[a4, a5], SP[a3, a6], n] + 
    S2[a1, a5, n]*S2[a2, a6, a3, a4, n] + S2[a1, a5, n]*
     S2[a2, a6, a4, a3, n] - S2[a2, a6, SP[a1, a3], SP[a4, a5], n] - 
    S2[a2, a6, SP[a1, a4], SP[a3, a5], n] - S2[a2, SP[a1, a4], a5, 
     SP[a3, a6], n] - S2[a2, SP[a1, a4], SP[a5, a6], a3, n] - 
    S2[a2, SP[a1, a6], a3, SP[a4, a5], n] - S2[a2, SP[a1, a6], a4, 
     SP[a3, a5], n] - S2[a2, SP[a1, a6], SP[a3, a5], a4, n] - 
    S2[a2, SP[a1, a6], SP[a4, a5], a3, n] - S2[a1, a5, n]*
     S2[a3, a6, a2, a4, n] + S2[a3, a6, SP[a1, a2], SP[a4, a5], n] + 
    S2[a3, SP[a1, a6], a2, SP[a4, a5], n] + S2[a3, SP[a1, a6], SP[a2, a5], 
     a4, n] - S2[SP[a1, a2], a4, a5, SP[a3, a6], n] - 
    S2[SP[a1, a2], a4, SP[a5, a6], a3, n] - S2[SP[a1, a2], a5, a4, 
     SP[a3, a6], n] - S2[SP[a1, a2], a5, SP[a3, a4], a6, n] - 
    S2[SP[a1, a2], a6, a3, SP[a4, a5], n] - S2[SP[a1, a2], a6, a4, 
     SP[a3, a5], n] - S2[SP[a1, a2], a6, SP[a3, a5], a4, n] - 
    S2[SP[a1, a2], a6, SP[a4, a5], a3, n] - S2[SP[a1, a2], SP[a4, a5], a3, 
     a6, n] - S2[SP[a1, a2], SP[a4, a5], a6, a3, n] - 
    S2[SP[a1, a2], SP[a5, a6], a3, a4, n] - S2[SP[a1, a2], SP[a5, a6], a4, 
     a3, n] + S2[SP[a1, a3], a6, a2, SP[a4, a5], n] + 
    S2[SP[a1, a3], a6, SP[a2, a5], a4, n] + S2[SP[a1, a3], SP[a5, a6], a2, 
     a4, n] + S2[a1, a2, a4, a5, SP[a3, a6], n] + S2[a1, a2, a4, SP[a5, a6], 
     a3, n] + S2[a1, a2, a5, a4, SP[a3, a6], n] + S2[a1, a2, a5, SP[a3, a4], 
     a6, n] + S2[a1, a2, a6, a3, SP[a4, a5], n] + 
    S2[a1, a2, a6, a4, SP[a3, a5], n] + S2[a1, a2, a6, SP[a3, a5], a4, n] + 
    S2[a1, a2, a6, SP[a4, a5], a3, n] + S2[a1, a2, SP[a4, a5], a3, a6, n] + 
    S2[a1, a2, SP[a4, a5], a6, a3, n] + S2[a1, a2, SP[a5, a6], a3, a4, n] + 
    S2[a1, a2, SP[a5, a6], a4, a3, n] - S2[a1, a3, a6, a2, SP[a4, a5], n] - 
    S2[a1, a3, a6, SP[a2, a5], a4, n] - S2[a1, a3, SP[a5, a6], a2, a4, n] + 
    S2[a6, n]*S2[a1, a4, a2, a5, a3, n] + S2[a1, a4, a2, a5, SP[a3, a6], n] + 
    S2[a1, a4, a2, SP[a5, a6], a3, n] + S2[a6, n]*S2[a1, a4, a5, a2, a3, n] + 
    S2[a1, a4, a5, a2, SP[a3, a6], n] + S2[a6, n]*S2[a1, a4, a5, a3, a2, n] - 
    S2[a2, n]*S2[a1, a4, a5, a3, a6, n] - 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] - S2[a1, a4, a5, a6, SP[a2, a3], n] - 
    S2[a1, a4, a5, SP[a2, a3], a6, n] + S2[a1, a4, a5, SP[a3, a6], a2, n] - 
    S2[a2, n]*S2[a1, a4, a6, a5, a3, n] - S2[a1, a4, a6, a5, SP[a2, a3], n] - 
    S2[a1, a4, a6, SP[a2, a5], a3, n] - S2[a1, a4, SP[a2, a5], a3, a6, n] - 
    S2[a1, a4, SP[a2, a5], a6, a3, n] + S2[a1, a4, SP[a5, a6], a2, a3, n] + 
    S2[a1, a4, SP[a5, a6], a3, a2, n] + S2[a1, a5, a2, a4, SP[a3, a6], n] + 
    S2[a1, a5, a2, SP[a3, a4], a6, n] + S2[a6, n]*S2[a1, a5, a3, a4, a2, n] - 
    S2[a2, n]*S2[a1, a5, a3, a4, a6, n] - S2[a1, a5, a3, SP[a2, a4], a6, n] + 
    S2[a1, a5, a3, SP[a4, a6], a2, n] + S2[a6, n]*S2[a1, a5, a4, a2, a3, n] + 
    S2[a1, a5, a4, a2, SP[a3, a6], n] + S2[a6, n]*S2[a1, a5, a4, a3, a2, n] - 
    S2[a2, n]*S2[a1, a5, a4, a3, a6, n] - 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] - S2[a1, a5, a4, a6, SP[a2, a3], n] - 
    S2[a1, a5, a4, SP[a2, a3], a6, n] + S2[a1, a5, a4, SP[a3, a6], a2, n] + 
    S2[a3, n]*S2[a1, a5, a6, a2, a4, n] + S2[a1, a5, a6, a2, SP[a3, a4], n] - 
    S2[a2, n]*S2[a1, a5, a6, a3, a4, n] - S2[a1, a5, a6, a3, SP[a2, a4], n] - 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] - S2[a1, a5, a6, a4, SP[a2, a3], n] - 
    S2[a1, a5, a6, SP[a2, a4], a3, n] - S2[a1, a5, SP[a2, a4], a3, a6, n] - 
    S2[a1, a5, SP[a2, a4], a6, a3, n] - S2[a1, a5, SP[a2, a6], a3, a4, n] - 
    S2[a1, a5, SP[a2, a6], a4, a3, n] + S2[a1, a5, SP[a3, a6], a2, a4, n] + 
    S2[a1, a5, SP[a3, a6], a4, a2, n] + S2[a1, a5, SP[a4, a6], a2, a3, n] + 
    S2[a1, a5, SP[a4, a6], a3, a2, n] + S2[a3, n]*S2[a1, a6, a2, a4, a5, n] + 
    S2[a1, a6, a2, a4, SP[a3, a5], n] + S2[a3, n]*S2[a1, a6, a2, a5, a4, n] + 
    S2[a1, a6, a2, a5, SP[a3, a4], n] + S2[a1, a6, a2, SP[a3, a4], a5, n] + 
    S2[a1, a6, a2, SP[a3, a5], a4, n] - S2[a2, n]*S2[a1, a6, a3, a4, a5, n] - 
    S2[a1, a6, a3, a4, SP[a2, a5], n] - S2[a2, n]*S2[a1, a6, a3, a5, a4, n] - 
    S2[a1, a6, a3, a5, SP[a2, a4], n] - S2[a1, a6, a3, SP[a2, a4], a5, n] - 
    S2[a1, a6, a3, SP[a2, a5], a4, n] - S2[a2, n]*S2[a1, a6, a4, a3, a5, n] - 
    S2[a1, a6, a4, a3, SP[a2, a5], n] - S2[a2, n]*S2[a1, a6, a4, a5, a3, n] - 
    S2[a1, a6, a4, a5, SP[a2, a3], n] - S2[a1, a6, a4, SP[a2, a3], a5, n] - 
    S2[a1, a6, a4, SP[a2, a5], a3, n] + S2[a3, n]*S2[a1, a6, a5, a2, a4, n] + 
    S2[a1, a6, a5, a2, SP[a3, a4], n] - S2[a2, n]*S2[a1, a6, a5, a3, a4, n] - 
    S2[a1, a6, a5, a3, SP[a2, a4], n] - S2[a2, n]*S2[a1, a6, a5, a4, a3, n] - 
    S2[a1, a6, a5, a4, SP[a2, a3], n] - S2[a1, a6, a5, SP[a2, a4], a3, n] - 
    S2[a1, a6, SP[a2, a4], a3, a5, n] - S2[a1, a6, SP[a2, a4], a5, a3, n] - 
    S2[a1, a6, SP[a2, a5], a3, a4, n] - S2[a1, a6, SP[a2, a5], a4, a3, n] + 
    S2[a1, a6, SP[a3, a5], a2, a4, n] - S2[a1, SP[a2, a4], a5, a3, a6, n] - 
    S2[a1, SP[a2, a4], a5, a6, a3, n] - S2[a1, SP[a2, a4], a6, a5, a3, n] - 
    S2[a1, SP[a2, a6], a3, a4, a5, n] - S2[a1, SP[a2, a6], a3, a5, a4, n] - 
    S2[a1, SP[a2, a6], a4, a3, a5, n] - S2[a1, SP[a2, a6], a4, a5, a3, n] - 
    S2[a1, SP[a2, a6], a5, a3, a4, n] - S2[a1, SP[a2, a6], a5, a4, a3, n] + 
    S2[a1, SP[a3, a6], a2, a4, a5, n] + S2[a1, SP[a3, a6], a2, a5, a4, n] + 
    S2[a1, SP[a3, a6], a5, a2, a4, n] + S2[a1, SP[a4, a6], a2, a5, a3, n] + 
    S2[a1, SP[a4, a6], a5, a2, a3, n] + S2[a1, SP[a4, a6], a5, a3, a2, n] + 
    S2[a1, SP[a5, a6], a3, a4, a2, n] + S2[a1, SP[a5, a6], a4, a2, a3, n] + 
    S2[a1, SP[a5, a6], a4, a3, a2, n] + S2[a2, a1, a4, a5, SP[a3, a6], n] + 
    S2[a2, a1, a4, SP[a5, a6], a3, n] + S2[a2, a1, a5, a4, SP[a3, a6], n] + 
    S2[a2, a1, a5, SP[a3, a4], a6, n] + S2[a2, a1, a6, a3, SP[a4, a5], n] + 
    S2[a2, a1, a6, a4, SP[a3, a5], n] + S2[a2, a1, a6, SP[a3, a5], a4, n] + 
    S2[a2, a1, a6, SP[a4, a5], a3, n] + S2[a2, a1, SP[a4, a5], a3, a6, n] + 
    S2[a2, a1, SP[a4, a5], a6, a3, n] + S2[a2, a1, SP[a5, a6], a3, a4, n] + 
    S2[a2, a1, SP[a5, a6], a4, a3, n] - S2[a6, n]*S2[a2, a4, a1, a5, a3, n] + 
    S2[a2, a6, a1, a3, SP[a4, a5], n] - S2[a3, n]*S2[a2, a6, a1, a4, a5, n] - 
    S2[a3, n]*S2[a2, a6, a1, a5, a4, n] - S2[a2, a6, a1, a5, SP[a3, a4], n] - 
    S2[a2, a6, a1, SP[a3, a4], a5, n] + S2[a2, a6, a1, SP[a4, a5], a3, n] + 
    S2[a2, a6, a3, a1, SP[a4, a5], n] + S2[a2, a6, a3, SP[a1, a4], a5, n] + 
    S2[a2, a6, a4, a1, SP[a3, a5], n] + S2[a2, a6, a4, SP[a1, a3], a5, n] + 
    S2[a2, a6, SP[a1, a4], a3, a5, n] + S2[a2, a6, SP[a1, a4], a5, a3, n] + 
    S2[a2, SP[a1, a4], a5, a3, a6, n] + S2[a2, SP[a1, a4], a5, a6, a3, n] + 
    S2[a2, SP[a1, a4], a6, a5, a3, n] + S2[a2, SP[a1, a6], a3, a4, a5, n] + 
    S2[a2, SP[a1, a6], a3, a5, a4, n] + S2[a2, SP[a1, a6], a4, a3, a5, n] + 
    S2[a2, SP[a1, a6], a4, a5, a3, n] + S2[a2, SP[a1, a6], a5, a3, a4, n] + 
    S2[a2, SP[a1, a6], a5, a4, a3, n] - S2[a2, SP[a3, a6], a1, a4, a5, n] - 
    S2[a2, SP[a3, a6], a1, a5, a4, n] - S2[a2, SP[a4, a6], a1, a5, a3, n] - 
    S2[a3, a1, a6, a2, SP[a4, a5], n] - S2[a3, a1, a6, SP[a2, a5], a4, n] - 
    S2[a3, a1, SP[a5, a6], a2, a4, n] - S2[a3, a6, a1, a2, SP[a4, a5], n] + 
    S2[a2, n]*S2[a3, a6, a1, a4, a5, n] + S2[a3, a6, a1, a4, SP[a2, a5], n] + 
    S2[a2, n]*S2[a3, a6, a1, a5, a4, n] + S2[a3, a6, a1, a5, SP[a2, a4], n] + 
    S2[a3, a6, a1, SP[a2, a4], a5, n] - S2[a3, a6, a2, a1, SP[a4, a5], n] - 
    S2[a3, a6, a2, SP[a1, a4], a5, n] - S2[a3, SP[a1, a6], a2, a4, a5, n] - 
    S2[a3, SP[a1, a6], a2, a5, a4, n] - S2[a3, SP[a1, a6], a5, a2, a4, n] + 
    S2[a3, SP[a2, a6], a1, a4, a5, n] + S2[a3, SP[a2, a6], a1, a5, a4, n] - 
    S2[a3, n]*S2[a6, a1, a4, a2, a5, n] - S2[a6, a1, a4, a2, SP[a3, a5], n] - 
    S2[a3, n]*S2[a6, a1, a4, a5, a2, n] - S2[a6, a1, a4, a5, SP[a2, a3], n] - 
    S2[a6, a1, a4, SP[a2, a3], a5, n] - S2[a6, a1, a4, SP[a3, a5], a2, n] - 
    S2[a3, n]*S2[a6, a1, a5, a4, a2, n] - S2[a6, a1, a5, a4, SP[a2, a3], n] - 
    S2[a6, a1, a5, SP[a3, a4], a2, n] - S2[a6, a1, SP[a3, a4], a2, a5, n] - 
    S2[a6, a1, SP[a3, a4], a5, a2, n] - S2[a6, a1, SP[a3, a5], a4, a2, n] + 
    S2[a3, n]*S2[a6, a2, a4, a1, a5, n] + S2[a6, a2, a4, a1, SP[a3, a5], n] + 
    S2[a6, a2, a4, SP[a1, a3], a5, n] + S2[a6, a2, SP[a3, a4], a1, a5, n] - 
    S2[a2, n]*S2[a6, a3, a4, a1, a5, n] - S2[a6, a3, a4, a1, SP[a2, a5], n] + 
    S2[a1, n]*S2[a6, a3, a4, a2, a5, n] + S2[a6, a3, a4, a2, SP[a1, a5], n] + 
    S2[a1, n]*S2[a6, a3, a4, a5, a2, n] + S2[a6, a3, a4, a5, SP[a1, a2], n] + 
    S2[a6, a3, a4, SP[a1, a5], a2, n] + S2[a1, n]*S2[a6, a3, a5, a4, a2, n] + 
    S2[a6, a3, a5, a4, SP[a1, a2], n] + S2[a6, a3, a5, SP[a1, a4], a2, n] + 
    S2[a6, a3, SP[a1, a4], a2, a5, n] + S2[a6, a3, SP[a1, a4], a5, a2, n] + 
    S2[a6, a3, SP[a1, a5], a4, a2, n] - S2[a6, a3, SP[a2, a4], a1, a5, n] - 
    S2[a2, n]*S2[a6, a4, a1, a3, a5, n] - S2[a6, a4, a1, a3, SP[a2, a5], n] - 
    S2[a6, a4, a1, SP[a2, a3], a5, n] + S2[a1, n]*S2[a6, a4, a2, a3, a5, n] + 
    S2[a6, a4, a2, a3, SP[a1, a5], n] + S2[a6, a4, a2, SP[a1, a3], a5, n] - 
    S2[a2, n]*S2[a6, a4, a3, a1, a5, n] - S2[a6, a4, a3, a1, SP[a2, a5], n] + 
    S2[a1, n]*S2[a6, a4, a3, a2, a5, n] + S2[a6, a4, a3, a2, SP[a1, a5], n] + 
    S2[a1, n]*S2[a6, a4, a3, a5, a2, n] + S2[a6, a4, a3, a5, SP[a1, a2], n] + 
    S2[a6, a4, a3, SP[a1, a5], a2, n] + S2[a6, a4, SP[a1, a3], a2, a5, n] + 
    S2[a6, a4, SP[a1, a3], a5, a2, n] - S2[a6, a4, SP[a2, a3], a1, a5, n] + 
    S2[a6, SP[a1, a4], a2, a3, a5, n] + S2[a6, SP[a1, a4], a3, a2, a5, n] + 
    S2[a6, SP[a1, a4], a3, a5, a2, n] - S2[a6, SP[a2, a4], a1, a3, a5, n] - 
    S2[a6, SP[a2, a4], a3, a1, a5, n] + S2[SP[a1, a6], a3, a4, a2, a5, n] + 
    S2[SP[a1, a6], a3, a4, a5, a2, n] + S2[SP[a1, a6], a3, a5, a4, a2, n] + 
    S2[SP[a1, a6], a4, a2, a3, a5, n] + S2[SP[a1, a6], a4, a2, a5, a3, n] + 
    S2[SP[a1, a6], a4, a3, a2, a5, n] + S2[SP[a1, a6], a4, a3, a5, a2, n] + 
    S2[SP[a1, a6], a4, a5, a2, a3, n] + S2[SP[a1, a6], a4, a5, a3, a2, n] + 
    S2[SP[a1, a6], a5, a3, a4, a2, n] + S2[SP[a1, a6], a5, a4, a2, a3, n] + 
    S2[SP[a1, a6], a5, a4, a3, a2, n] - S2[SP[a2, a6], a3, a4, a1, a5, n] - 
    S2[SP[a2, a6], a4, a1, a3, a5, n] - S2[SP[a2, a6], a4, a1, a5, a3, n] - 
    S2[SP[a2, a6], a4, a3, a1, a5, n] - S2[SP[a3, a6], a1, a4, a2, a5, n] - 
    S2[SP[a3, a6], a1, a4, a5, a2, n] - S2[SP[a3, a6], a1, a5, a4, a2, n] + 
    S2[SP[a3, a6], a2, a4, a1, a5, n] - S2[a6, a3, a4, a2, a5, a1, n] - 
    S2[a6, a3, a4, a5, a1, a2, n] - S2[a6, a3, a4, a5, a2, a1, n] - 
    S2[a6, a3, a5, a1, a4, a2, n] - S2[a6, a3, a5, a4, a1, a2, n] - 
    S2[a6, a3, a5, a4, a2, a1, n] - S2[a6, a4, a2, a3, a5, a1, n] - 
    S2[a6, a4, a3, a2, a5, a1, n] - S2[a6, a4, a3, a5, a1, a2, n] - 
    S2[a6, a4, a3, a5, a2, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a1_, a5_, a4_, a2_, a3_, a6_, n_] :> 
  S2[a1, a5, a4, n]*S2[a2, a3, a6, n] + S2[SP[a1, a2], SP[a3, a5], 
     SP[a4, a6], n] - S2[a1, a2, SP[a3, a5], SP[a4, a6], n] + 
    S2[a3, a6, n]*S2[a1, a5, a4, a2, n] - S2[a1, a5, SP[a3, a4], SP[a2, a6], 
     n] - S2[a1, SP[a2, a5], a3, SP[a4, a6], n] - 
    S2[a1, SP[a2, a5], SP[a3, a4], a6, n] - S2[a1, SP[a3, a5], a4, 
     SP[a2, a6], n] - S2[a1, SP[a3, a5], SP[a4, a6], a2, n] - 
    S2[a2, a1, SP[a3, a5], SP[a4, a6], n] - S2[a1, a5, n]*
     S2[a2, a3, a4, a6, n] - S2[a1, a5, n]*S2[a2, a3, a6, a4, n] + 
    S2[a2, a3, SP[a1, a4], SP[a5, a6], n] + S2[a2, a3, SP[a1, a6], 
     SP[a4, a5], n] - S2[a1, a5, n]*S2[a2, a4, a3, a6, n] - 
    S2[a1, a5, n]*S2[a2, a4, a6, a3, n] + S2[a2, a4, SP[a1, a3], SP[a5, a6], 
     n] + S2[a2, a4, SP[a1, a6], SP[a3, a5], n] - 
    S2[a1, a5, n]*S2[a2, a6, a3, a4, n] - S2[a1, a5, n]*
     S2[a2, a6, a4, a3, n] + S2[a2, a6, SP[a1, a3], SP[a4, a5], n] + 
    S2[a2, a6, SP[a1, a4], SP[a3, a5], n] + S2[a2, SP[a1, a3], a4, 
     SP[a5, a6], n] - S2[a2, SP[a1, a3], a5, SP[a4, a6], n] + 
    S2[a2, SP[a1, a3], a6, SP[a4, a5], n] + S2[a2, SP[a1, a3], SP[a4, a5], 
     a6, n] + S2[a2, SP[a1, a4], a3, SP[a5, a6], n] + 
    S2[a2, SP[a1, a4], a6, SP[a3, a5], n] + S2[a2, SP[a1, a4], SP[a3, a5], 
     a6, n] + S2[a2, SP[a1, a4], SP[a5, a6], a3, n] + 
    S2[a2, SP[a1, a6], a3, SP[a4, a5], n] + S2[a2, SP[a1, a6], a4, 
     SP[a3, a5], n] + S2[a2, SP[a1, a6], SP[a3, a5], a4, n] + 
    S2[a2, SP[a1, a6], SP[a4, a5], a3, n] + S2[a1, a5, n]*
     S2[a3, a6, a2, a4, n] - S2[a3, a6, SP[a1, a2], SP[a4, a5], n] - 
    S2[a3, SP[a1, a6], a2, SP[a4, a5], n] - S2[a3, SP[a1, a6], SP[a2, a5], 
     a4, n] + S2[SP[a1, a2], a3, a4, SP[a5, a6], n] - 
    S2[SP[a1, a2], a3, a5, SP[a4, a6], n] + S2[SP[a1, a2], a3, a6, 
     SP[a4, a5], n] + S2[SP[a1, a2], a3, SP[a4, a5], a6, n] + 
    S2[SP[a1, a2], a4, a3, SP[a5, a6], n] + S2[SP[a1, a2], a4, a6, 
     SP[a3, a5], n] + S2[SP[a1, a2], a4, SP[a3, a5], a6, n] + 
    S2[SP[a1, a2], a4, SP[a5, a6], a3, n] - S2[SP[a1, a2], a5, a3, 
     SP[a4, a6], n] - S2[SP[a1, a2], a5, SP[a3, a4], a6, n] + 
    S2[SP[a1, a2], a6, a3, SP[a4, a5], n] + S2[SP[a1, a2], a6, a4, 
     SP[a3, a5], n] + S2[SP[a1, a2], a6, SP[a3, a5], a4, n] + 
    S2[SP[a1, a2], a6, SP[a4, a5], a3, n] + S2[SP[a1, a2], SP[a4, a5], a3, 
     a6, n] + S2[SP[a1, a2], SP[a4, a5], a6, a3, n] + 
    S2[SP[a1, a2], SP[a5, a6], a3, a4, n] + S2[SP[a1, a2], SP[a5, a6], a4, 
     a3, n] - S2[SP[a1, a3], a5, a4, SP[a2, a6], n] - 
    S2[SP[a1, a3], a5, SP[a4, a6], a2, n] - S2[SP[a1, a3], a6, a2, 
     SP[a4, a5], n] - S2[SP[a1, a3], a6, SP[a2, a5], a4, n] - 
    S2[SP[a1, a3], SP[a5, a6], a2, a4, n] - S2[SP[a1, a3], SP[a5, a6], a4, 
     a2, n] - S2[a1, a2, a3, a4, SP[a5, a6], n] + 
    S2[a1, a2, a3, a5, SP[a4, a6], n] - S2[a1, a2, a3, a6, SP[a4, a5], n] - 
    S2[a1, a2, a3, SP[a4, a5], a6, n] - S2[a1, a2, a4, a3, SP[a5, a6], n] - 
    S2[a1, a2, a4, a6, SP[a3, a5], n] - S2[a1, a2, a4, SP[a3, a5], a6, n] - 
    S2[a1, a2, a4, SP[a5, a6], a3, n] + S2[a1, a2, a5, a3, SP[a4, a6], n] + 
    S2[a1, a2, a5, SP[a3, a4], a6, n] - S2[a1, a2, a6, a3, SP[a4, a5], n] - 
    S2[a1, a2, a6, a4, SP[a3, a5], n] - S2[a1, a2, a6, SP[a3, a5], a4, n] - 
    S2[a1, a2, a6, SP[a4, a5], a3, n] - S2[a1, a2, SP[a4, a5], a3, a6, n] - 
    S2[a1, a2, SP[a4, a5], a6, a3, n] - S2[a1, a2, SP[a5, a6], a3, a4, n] - 
    S2[a1, a2, SP[a5, a6], a4, a3, n] - S2[a6, n]*S2[a1, a3, a2, a4, a5, n] - 
    S2[a1, a3, a2, a4, SP[a5, a6], n] - S2[a1, a3, a2, SP[a4, a6], a5, n] - 
    S2[a6, n]*S2[a1, a3, a4, a2, a5, n] - S2[a1, a3, a4, a2, SP[a5, a6], n] - 
    S2[a6, n]*S2[a1, a3, a4, a5, a2, n] + 
    S2[a2, n]*S2[a1, a3, a4, a5, a6, n] + 
    S2[a2, n]*S2[a1, a3, a4, a6, a5, n] + S2[a1, a3, a4, a6, SP[a2, a5], n] + 
    S2[a1, a3, a4, SP[a2, a5], a6, n] - S2[a1, a3, a4, SP[a5, a6], a2, n] + 
    S2[a1, a3, a5, a4, SP[a2, a6], n] + S2[a1, a3, a5, SP[a4, a6], a2, n] + 
    S2[a1, a3, a6, a2, SP[a4, a5], n] + S2[a2, n]*S2[a1, a3, a6, a4, a5, n] + 
    S2[a1, a3, a6, a4, SP[a2, a5], n] + S2[a1, a3, a6, SP[a2, a4], a5, n] + 
    S2[a1, a3, a6, SP[a2, a5], a4, n] + S2[a1, a3, SP[a2, a4], a5, a6, n] + 
    S2[a1, a3, SP[a2, a4], a6, a5, n] - S2[a1, a3, SP[a4, a6], a2, a5, n] - 
    S2[a1, a3, SP[a4, a6], a5, a2, n] + S2[a1, a3, SP[a5, a6], a2, a4, n] + 
    S2[a1, a3, SP[a5, a6], a4, a2, n] - S2[a6, n]*S2[a1, a4, a2, a3, a5, n] - 
    S2[a1, a4, a2, a3, SP[a5, a6], n] - S2[a6, n]*S2[a1, a4, a2, a5, a3, n] - 
    S2[a1, a4, a2, a5, SP[a3, a6], n] - S2[a1, a4, a2, SP[a3, a6], a5, n] - 
    S2[a1, a4, a2, SP[a5, a6], a3, n] - S2[a6, n]*S2[a1, a4, a3, a2, a5, n] - 
    S2[a1, a4, a3, a2, SP[a5, a6], n] - S2[a6, n]*S2[a1, a4, a3, a5, a2, n] + 
    S2[a2, n]*S2[a1, a4, a3, a5, a6, n] + 
    S2[a2, n]*S2[a1, a4, a3, a6, a5, n] + S2[a1, a4, a3, a6, SP[a2, a5], n] + 
    S2[a1, a4, a3, SP[a2, a5], a6, n] - S2[a1, a4, a3, SP[a5, a6], a2, n] - 
    S2[a6, n]*S2[a1, a4, a5, a2, a3, n] - S2[a1, a4, a5, a2, SP[a3, a6], n] - 
    S2[a6, n]*S2[a1, a4, a5, a3, a2, n] + 
    S2[a2, n]*S2[a1, a4, a5, a3, a6, n] + 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] + S2[a1, a4, a5, a6, SP[a2, a3], n] + 
    S2[a1, a4, a5, SP[a2, a3], a6, n] - S2[a1, a4, a5, SP[a3, a6], a2, n] + 
    S2[a2, n]*S2[a1, a4, a6, a3, a5, n] + S2[a1, a4, a6, a3, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a4, a6, a5, a3, n] + S2[a1, a4, a6, a5, SP[a2, a3], n] + 
    S2[a1, a4, a6, SP[a2, a3], a5, n] + S2[a1, a4, a6, SP[a2, a5], a3, n] + 
    S2[a1, a4, SP[a2, a3], a5, a6, n] + S2[a1, a4, SP[a2, a3], a6, a5, n] + 
    S2[a1, a4, SP[a2, a5], a3, a6, n] + S2[a1, a4, SP[a2, a5], a6, a3, n] - 
    S2[a1, a4, SP[a3, a6], a2, a5, n] - S2[a1, a4, SP[a3, a6], a5, a2, n] - 
    S2[a1, a4, SP[a5, a6], a2, a3, n] - S2[a1, a4, SP[a5, a6], a3, a2, n] + 
    S2[a1, a5, a2, a3, SP[a4, a6], n] + S2[a1, a5, a2, SP[a3, a4], a6, n] + 
    S2[a1, a5, a3, a4, SP[a2, a6], n] + S2[a1, a5, a3, SP[a4, a6], a2, n] - 
    S2[a3, n]*S2[a1, a5, a4, a2, a6, n] - S2[a1, a5, a4, a2, SP[a3, a6], n] + 
    S2[a1, a5, a4, a3, SP[a2, a6], n] - S2[a3, n]*S2[a1, a5, a4, a6, a2, n] + 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] + S2[a1, a5, a4, SP[a2, a6], a3, n] - 
    S2[a1, a5, a4, SP[a3, a6], a2, n] - S2[a3, n]*S2[a1, a5, a6, a2, a4, n] - 
    S2[a1, a5, a6, a2, SP[a3, a4], n] + S2[a2, n]*S2[a1, a5, a6, a3, a4, n] + 
    S2[a1, a5, a6, a3, SP[a2, a4], n] - S2[a3, n]*S2[a1, a5, a6, a4, a2, n] + 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] + S2[a1, a5, a6, SP[a2, a4], a3, n] - 
    S2[a1, a5, a6, SP[a3, a4], a2, n] + S2[a1, a5, SP[a2, a4], a3, a6, n] + 
    S2[a1, a5, SP[a2, a4], a6, a3, n] + S2[a1, a5, SP[a2, a6], a3, a4, n] + 
    S2[a1, a5, SP[a2, a6], a4, a3, n] - S2[a1, a5, SP[a3, a6], a2, a4, n] - 
    S2[a1, a5, SP[a3, a6], a4, a2, n] - S2[a3, n]*S2[a1, a6, a2, a4, a5, n] - 
    S2[a1, a6, a2, a4, SP[a3, a5], n] - S2[a3, n]*S2[a1, a6, a2, a5, a4, n] - 
    S2[a1, a6, a2, a5, SP[a3, a4], n] - S2[a1, a6, a2, SP[a3, a4], a5, n] - 
    S2[a1, a6, a2, SP[a3, a5], a4, n] + S2[a2, n]*S2[a1, a6, a3, a4, a5, n] + 
    S2[a1, a6, a3, a4, SP[a2, a5], n] + S2[a2, n]*S2[a1, a6, a3, a5, a4, n] + 
    S2[a1, a6, a3, a5, SP[a2, a4], n] + S2[a1, a6, a3, SP[a2, a4], a5, n] + 
    S2[a1, a6, a3, SP[a2, a5], a4, n] + S2[a2, n]*S2[a1, a6, a4, a3, a5, n] + 
    S2[a1, a6, a4, a3, SP[a2, a5], n] + S2[a2, n]*S2[a1, a6, a4, a5, a3, n] + 
    S2[a1, a6, a4, a5, SP[a2, a3], n] + S2[a1, a6, a4, SP[a2, a3], a5, n] + 
    S2[a1, a6, a4, SP[a2, a5], a3, n] - S2[a3, n]*S2[a1, a6, a5, a2, a4, n] - 
    S2[a1, a6, a5, a2, SP[a3, a4], n] + S2[a2, n]*S2[a1, a6, a5, a3, a4, n] + 
    S2[a1, a6, a5, a3, SP[a2, a4], n] - S2[a3, n]*S2[a1, a6, a5, a4, a2, n] + 
    S2[a2, n]*S2[a1, a6, a5, a4, a3, n] + S2[a1, a6, a5, SP[a2, a4], a3, n] - 
    S2[a1, a6, a5, SP[a3, a4], a2, n] + S2[a1, a6, SP[a2, a4], a3, a5, n] + 
    S2[a1, a6, SP[a2, a4], a5, a3, n] + S2[a1, a6, SP[a2, a5], a3, a4, n] + 
    S2[a1, a6, SP[a2, a5], a4, a3, n] - S2[a1, a6, SP[a3, a5], a2, a4, n] - 
    S2[a1, a6, SP[a3, a5], a4, a2, n] + S2[a1, SP[a2, a3], a4, a5, a6, n] + 
    S2[a1, SP[a2, a3], a4, a6, a5, n] + S2[a1, SP[a2, a3], a6, a4, a5, n] + 
    S2[a1, SP[a2, a4], a3, a5, a6, n] + S2[a1, SP[a2, a4], a3, a6, a5, n] + 
    S2[a1, SP[a2, a4], a5, a3, a6, n] + S2[a1, SP[a2, a4], a5, a6, a3, n] + 
    S2[a1, SP[a2, a4], a6, a3, a5, n] + S2[a1, SP[a2, a4], a6, a5, a3, n] + 
    S2[a1, SP[a2, a6], a3, a4, a5, n] + S2[a1, SP[a2, a6], a3, a5, a4, n] + 
    S2[a1, SP[a2, a6], a4, a3, a5, n] + S2[a1, SP[a2, a6], a4, a5, a3, n] + 
    S2[a1, SP[a2, a6], a5, a3, a4, n] + S2[a1, SP[a2, a6], a5, a4, a3, n] - 
    2*S2[a1, SP[a3, a6], a2, a4, a5, n] - S2[a1, SP[a3, a6], a2, a5, a4, n] - 
    S2[a1, SP[a3, a6], a4, a2, a5, n] - S2[a1, SP[a3, a6], a4, a5, a2, n] - 
    S2[a1, SP[a3, a6], a5, a2, a4, n] - S2[a1, SP[a3, a6], a5, a4, a2, n] - 
    S2[a1, SP[a4, a6], a2, a3, a5, n] - S2[a1, SP[a4, a6], a2, a5, a3, n] - 
    S2[a1, SP[a4, a6], a3, a2, a5, n] - S2[a1, SP[a4, a6], a3, a5, a2, n] - 
    S2[a1, SP[a4, a6], a5, a2, a3, n] - S2[a1, SP[a4, a6], a5, a3, a2, n] - 
    S2[a2, a1, a3, a4, SP[a5, a6], n] + S2[a2, a1, a3, a5, SP[a4, a6], n] - 
    S2[a2, a1, a3, a6, SP[a4, a5], n] - S2[a2, a1, a3, SP[a4, a5], a6, n] - 
    S2[a2, a1, a4, a3, SP[a5, a6], n] - S2[a2, a1, a4, a6, SP[a3, a5], n] - 
    S2[a2, a1, a4, SP[a3, a5], a6, n] - S2[a2, a1, a4, SP[a5, a6], a3, n] + 
    S2[a2, a1, a5, a3, SP[a4, a6], n] + S2[a2, a1, a5, SP[a3, a4], a6, n] - 
    S2[a2, a1, a6, a3, SP[a4, a5], n] - S2[a2, a1, a6, a4, SP[a3, a5], n] - 
    S2[a2, a1, a6, SP[a3, a5], a4, n] - S2[a2, a1, a6, SP[a4, a5], a3, n] - 
    S2[a2, a1, SP[a4, a5], a3, a6, n] - S2[a2, a1, SP[a4, a5], a6, a3, n] - 
    S2[a2, a1, SP[a5, a6], a3, a4, n] - S2[a2, a1, SP[a5, a6], a4, a3, n] + 
    S2[a6, n]*S2[a2, a3, a1, a4, a5, n] + S2[a2, a3, a1, a5, SP[a4, a6], n] - 
    S2[a2, a3, a1, a6, SP[a4, a5], n] - S2[a2, a3, a1, SP[a4, a5], a6, n] + 
    S2[a2, a3, a1, SP[a4, a6], a5, n] + S2[a6, n]*S2[a2, a3, a4, a1, a5, n] - 
    S2[a2, a3, a6, a1, SP[a4, a5], n] - S2[a2, a3, a6, SP[a1, a4], a5, n] - 
    S2[a2, a3, SP[a1, a4], a5, a6, n] - S2[a2, a3, SP[a1, a4], a6, a5, n] + 
    S2[a2, a3, SP[a4, a6], a1, a5, n] + S2[a6, n]*S2[a2, a4, a1, a3, a5, n] + 
    S2[a6, n]*S2[a2, a4, a1, a5, a3, n] + S2[a2, a4, a1, a5, SP[a3, a6], n] - 
    S2[a2, a4, a1, a6, SP[a3, a5], n] - S2[a2, a4, a1, SP[a3, a5], a6, n] + 
    S2[a2, a4, a1, SP[a3, a6], a5, n] + S2[a6, n]*S2[a2, a4, a3, a1, a5, n] - 
    S2[a2, a4, a6, a1, SP[a3, a5], n] - S2[a2, a4, a6, SP[a1, a3], a5, n] - 
    S2[a2, a4, SP[a1, a3], a5, a6, n] - S2[a2, a4, SP[a1, a3], a6, a5, n] + 
    S2[a2, a4, SP[a3, a6], a1, a5, n] - S2[a2, a6, a1, a3, SP[a4, a5], n] + 
    S2[a3, n]*S2[a2, a6, a1, a4, a5, n] + 
    S2[a3, n]*S2[a2, a6, a1, a5, a4, n] + S2[a2, a6, a1, a5, SP[a3, a4], n] + 
    S2[a2, a6, a1, SP[a3, a4], a5, n] - S2[a2, a6, a1, SP[a4, a5], a3, n] - 
    S2[a2, a6, a3, a1, SP[a4, a5], n] - S2[a2, a6, a3, SP[a1, a4], a5, n] - 
    S2[a2, a6, a4, a1, SP[a3, a5], n] - S2[a2, a6, a4, SP[a1, a3], a5, n] - 
    S2[a2, a6, SP[a1, a4], a3, a5, n] - S2[a2, a6, SP[a1, a4], a5, a3, n] - 
    S2[a2, SP[a1, a3], a4, a5, a6, n] - S2[a2, SP[a1, a3], a4, a6, a5, n] - 
    S2[a2, SP[a1, a3], a6, a4, a5, n] - S2[a2, SP[a1, a4], a3, a5, a6, n] - 
    S2[a2, SP[a1, a4], a3, a6, a5, n] - S2[a2, SP[a1, a4], a5, a3, a6, n] - 
    S2[a2, SP[a1, a4], a5, a6, a3, n] - S2[a2, SP[a1, a4], a6, a3, a5, n] - 
    S2[a2, SP[a1, a4], a6, a5, a3, n] - S2[a2, SP[a1, a6], a3, a4, a5, n] - 
    S2[a2, SP[a1, a6], a3, a5, a4, n] - S2[a2, SP[a1, a6], a4, a3, a5, n] - 
    S2[a2, SP[a1, a6], a4, a5, a3, n] - S2[a2, SP[a1, a6], a5, a3, a4, n] - 
    S2[a2, SP[a1, a6], a5, a4, a3, n] + 2*S2[a2, SP[a3, a6], a1, a4, a5, n] + 
    S2[a2, SP[a3, a6], a1, a5, a4, n] + S2[a2, SP[a3, a6], a4, a1, a5, n] + 
    S2[a2, SP[a4, a6], a1, a3, a5, n] + S2[a2, SP[a4, a6], a1, a5, a3, n] + 
    S2[a2, SP[a4, a6], a3, a1, a5, n] + S2[a3, a1, a5, a4, SP[a2, a6], n] + 
    S2[a3, a1, a5, SP[a4, a6], a2, n] + S2[a3, a1, a6, a2, SP[a4, a5], n] + 
    S2[a3, a1, a6, SP[a2, a5], a4, n] + S2[a3, a1, SP[a5, a6], a2, a4, n] + 
    S2[a3, a1, SP[a5, a6], a4, a2, n] + S2[a3, a6, a1, a2, SP[a4, a5], n] - 
    S2[a2, n]*S2[a3, a6, a1, a4, a5, n] - S2[a3, a6, a1, a4, SP[a2, a5], n] - 
    S2[a2, n]*S2[a3, a6, a1, a5, a4, n] - S2[a3, a6, a1, a5, SP[a2, a4], n] - 
    S2[a3, a6, a1, SP[a2, a4], a5, n] + S2[a3, a6, a2, a1, SP[a4, a5], n] + 
    S2[a3, a6, a2, SP[a1, a4], a5, n] + S2[a3, SP[a1, a6], a2, a4, a5, n] + 
    S2[a3, SP[a1, a6], a2, a5, a4, n] + S2[a3, SP[a1, a6], a5, a2, a4, n] + 
    S2[a3, SP[a1, a6], a5, a4, a2, n] - S2[a3, SP[a2, a6], a1, a4, a5, n] - 
    S2[a3, SP[a2, a6], a1, a5, a4, n] + S2[a3, n]*S2[a6, a1, a4, a2, a5, n] + 
    S2[a6, a1, a4, a2, SP[a3, a5], n] + S2[a3, n]*S2[a6, a1, a4, a5, a2, n] + 
    S2[a6, a1, a4, a5, SP[a2, a3], n] + S2[a6, a1, a4, SP[a2, a3], a5, n] + 
    S2[a6, a1, a4, SP[a3, a5], a2, n] + S2[a6, a1, SP[a3, a4], a2, a5, n] + 
    S2[a6, a1, SP[a3, a4], a5, a2, n] - S2[a3, n]*S2[a6, a2, a4, a1, a5, n] - 
    S2[a6, a2, a4, a1, SP[a3, a5], n] - S2[a6, a2, a4, SP[a1, a3], a5, n] - 
    S2[a6, a2, SP[a3, a4], a1, a5, n] - S2[a2, n]*S2[a6, a3, a1, a4, a5, n] - 
    S2[a6, a3, a1, a4, SP[a2, a5], n] - S2[a6, a3, a1, SP[a2, a4], a5, n] + 
    S2[a1, n]*S2[a6, a3, a2, a4, a5, n] + S2[a6, a3, a2, a4, SP[a1, a5], n] + 
    S2[a6, a3, a2, SP[a1, a4], a5, n] + S2[a6, SP[a1, a3], a2, a4, a5, n] + 
    S2[a6, SP[a1, a3], a4, a2, a5, n] + S2[a6, SP[a1, a3], a4, a5, a2, n] - 
    S2[a6, SP[a2, a3], a1, a4, a5, n] - S2[a6, SP[a2, a3], a4, a1, a5, n] - 
    S2[SP[a1, a6], a3, a4, a2, a5, n] - S2[SP[a1, a6], a3, a4, a5, a2, n] - 
    S2[SP[a1, a6], a4, a2, a3, a5, n] - S2[SP[a1, a6], a4, a2, a5, a3, n] - 
    S2[SP[a1, a6], a4, a3, a2, a5, n] - S2[SP[a1, a6], a4, a3, a5, a2, n] - 
    S2[SP[a1, a6], a4, a5, a2, a3, n] - S2[SP[a1, a6], a4, a5, a3, a2, n] + 
    S2[SP[a2, a6], a3, a4, a1, a5, n] + S2[SP[a2, a6], a4, a1, a3, a5, n] + 
    S2[SP[a2, a6], a4, a1, a5, a3, n] + S2[SP[a2, a6], a4, a3, a1, a5, n] + 
    S2[SP[a3, a6], a1, a4, a2, a5, n] + S2[SP[a3, a6], a1, a4, a5, a2, n] - 
    S2[SP[a3, a6], a2, a4, a1, a5, n] - S2[a6, a3, a2, a4, a5, a1, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a1_, a5_, a4_, a2_, a6_, a3_, n_] :> 
  S2[a1, a5, a4, n]*S2[a2, a6, a3, n] + S2[SP[a1, a2], SP[a5, a6], 
     SP[a3, a4], n] - S2[a1, a2, SP[a5, a6], SP[a3, a4], n] - 
    S2[a3, a6, n]*S2[a1, a5, a4, a2, n] + S2[a1, a5, SP[a3, a4], SP[a2, a6], 
     n] - S2[a1, SP[a2, a5], a6, SP[a3, a4], n] - 
    S2[a1, SP[a2, a5], SP[a4, a6], a3, n] + S2[a1, SP[a3, a5], a4, 
     SP[a2, a6], n] + S2[a1, SP[a3, a5], SP[a4, a6], a2, n] - 
    S2[a2, a1, SP[a5, a6], SP[a3, a4], n] - S2[a2, SP[a1, a6], a5, 
     SP[a3, a4], n] - S2[a2, SP[a1, a6], SP[a3, a5], a4, n] - 
    S2[a1, a5, n]*S2[a3, a6, a2, a4, n] + S2[a3, a6, SP[a1, a2], SP[a4, a5], 
     n] + S2[a3, SP[a1, a6], a2, SP[a4, a5], n] + 
    S2[a3, SP[a1, a6], SP[a2, a5], a4, n] - S2[SP[a1, a2], a5, a6, 
     SP[a3, a4], n] - S2[SP[a1, a2], a5, SP[a4, a6], a3, n] - 
    S2[SP[a1, a2], a6, a5, SP[a3, a4], n] - S2[SP[a1, a2], a6, SP[a3, a5], 
     a4, n] - S2[SP[a1, a2], SP[a5, a6], a3, a4, n] - 
    S2[SP[a1, a2], SP[a5, a6], a4, a3, n] + S2[SP[a1, a3], a5, a4, 
     SP[a2, a6], n] + S2[SP[a1, a3], a5, SP[a4, a6], a2, n] + 
    S2[SP[a1, a3], a6, a2, SP[a4, a5], n] + S2[SP[a1, a3], a6, SP[a2, a5], 
     a4, n] + S2[SP[a1, a3], SP[a5, a6], a2, a4, n] + 
    S2[SP[a1, a3], SP[a5, a6], a4, a2, n] + S2[a1, a2, a5, a6, SP[a3, a4], 
     n] + S2[a1, a2, a5, SP[a4, a6], a3, n] + S2[a1, a2, a6, a5, SP[a3, a4], 
     n] + S2[a1, a2, a6, SP[a3, a5], a4, n] + S2[a1, a2, SP[a5, a6], a3, a4, 
     n] + S2[a1, a2, SP[a5, a6], a4, a3, n] - S2[a1, a3, a5, a4, SP[a2, a6], 
     n] - S2[a1, a3, a5, SP[a4, a6], a2, n] - S2[a1, a3, a6, a2, SP[a4, a5], 
     n] - S2[a1, a3, a6, SP[a2, a5], a4, n] - S2[a1, a3, SP[a5, a6], a2, a4, 
     n] - S2[a1, a3, SP[a5, a6], a4, a2, n] + S2[a1, a5, a2, a6, SP[a3, a4], 
     n] + S2[a1, a5, a2, SP[a4, a6], a3, n] - S2[a1, a5, a3, a4, SP[a2, a6], 
     n] - S2[a1, a5, a3, SP[a4, a6], a2, n] + 
    S2[a3, n]*S2[a1, a5, a4, a2, a6, n] + S2[a1, a5, a4, a2, SP[a3, a6], n] - 
    S2[a1, a5, a4, a3, SP[a2, a6], n] + S2[a3, n]*S2[a1, a5, a4, a6, a2, n] - 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] - S2[a1, a5, a4, SP[a2, a6], a3, n] + 
    S2[a1, a5, a4, SP[a3, a6], a2, n] + S2[a3, n]*S2[a1, a5, a6, a2, a4, n] + 
    S2[a1, a5, a6, a2, SP[a3, a4], n] - S2[a2, n]*S2[a1, a5, a6, a3, a4, n] - 
    S2[a1, a5, a6, a3, SP[a2, a4], n] + S2[a3, n]*S2[a1, a5, a6, a4, a2, n] - 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] - S2[a1, a5, a6, SP[a2, a4], a3, n] + 
    S2[a1, a5, a6, SP[a3, a4], a2, n] - S2[a1, a5, SP[a2, a6], a3, a4, n] - 
    S2[a1, a5, SP[a2, a6], a4, a3, n] + S2[a1, a5, SP[a3, a6], a2, a4, n] + 
    S2[a1, a5, SP[a3, a6], a4, a2, n] + S2[a3, n]*S2[a1, a6, a2, a4, a5, n] + 
    S2[a1, a6, a2, a4, SP[a3, a5], n] + S2[a3, n]*S2[a1, a6, a2, a5, a4, n] + 
    S2[a1, a6, a2, a5, SP[a3, a4], n] + S2[a1, a6, a2, SP[a3, a4], a5, n] + 
    S2[a1, a6, a2, SP[a3, a5], a4, n] - S2[a2, n]*S2[a1, a6, a3, a5, a4, n] - 
    S2[a1, a6, a3, a5, SP[a2, a4], n] - S2[a1, a6, a3, SP[a2, a5], a4, n] + 
    S2[a3, n]*S2[a1, a6, a5, a2, a4, n] + S2[a1, a6, a5, a2, SP[a3, a4], n] - 
    S2[a2, n]*S2[a1, a6, a5, a3, a4, n] - S2[a1, a6, a5, a3, SP[a2, a4], n] + 
    S2[a3, n]*S2[a1, a6, a5, a4, a2, n] - 
    S2[a2, n]*S2[a1, a6, a5, a4, a3, n] - S2[a1, a6, a5, SP[a2, a4], a3, n] + 
    S2[a1, a6, a5, SP[a3, a4], a2, n] + S2[a1, a6, SP[a2, a3], a4, a5, n] - 
    S2[a1, a6, SP[a2, a5], a3, a4, n] - S2[a1, a6, SP[a2, a5], a4, a3, n] + 
    S2[a1, a6, SP[a3, a5], a2, a4, n] + S2[a1, a6, SP[a3, a5], a4, a2, n] - 
    S2[a1, SP[a2, a6], a3, a5, a4, n] - S2[a1, SP[a2, a6], a5, a3, a4, n] - 
    S2[a1, SP[a2, a6], a5, a4, a3, n] + S2[a1, SP[a3, a6], a2, a4, a5, n] + 
    S2[a1, SP[a3, a6], a2, a5, a4, n] + S2[a1, SP[a3, a6], a5, a2, a4, n] + 
    S2[a1, SP[a3, a6], a5, a4, a2, n] + S2[a2, a1, a5, a6, SP[a3, a4], n] + 
    S2[a2, a1, a5, SP[a4, a6], a3, n] + S2[a2, a1, a6, a5, SP[a3, a4], n] + 
    S2[a2, a1, a6, SP[a3, a5], a4, n] + S2[a2, a1, SP[a5, a6], a3, a4, n] + 
    S2[a2, a1, SP[a5, a6], a4, a3, n] - S2[a3, n]*S2[a2, a6, a1, a4, a5, n] - 
    S2[a2, a6, a1, a4, SP[a3, a5], n] - S2[a3, n]*S2[a2, a6, a1, a5, a4, n] - 
    S2[a2, a6, a1, SP[a3, a4], a5, n] - S2[a2, a6, SP[a1, a3], a4, a5, n] + 
    S2[a2, SP[a1, a6], a3, a5, a4, n] + S2[a2, SP[a1, a6], a5, a3, a4, n] + 
    S2[a2, SP[a1, a6], a5, a4, a3, n] - S2[a2, SP[a3, a6], a1, a4, a5, n] - 
    S2[a2, SP[a3, a6], a1, a5, a4, n] - S2[a3, a1, a5, a4, SP[a2, a6], n] - 
    S2[a3, a1, a5, SP[a4, a6], a2, n] - S2[a3, a1, a6, a2, SP[a4, a5], n] - 
    S2[a3, a1, a6, SP[a2, a5], a4, n] - S2[a3, a1, SP[a5, a6], a2, a4, n] - 
    S2[a3, a1, SP[a5, a6], a4, a2, n] - S2[a3, a6, a1, a2, SP[a4, a5], n] + 
    S2[a2, n]*S2[a3, a6, a1, a4, a5, n] + S2[a3, a6, a1, a4, SP[a2, a5], n] + 
    S2[a2, n]*S2[a3, a6, a1, a5, a4, n] + S2[a3, a6, a1, a5, SP[a2, a4], n] + 
    S2[a3, a6, a1, SP[a2, a4], a5, n] - S2[a3, a6, a2, a1, SP[a4, a5], n] - 
    S2[a3, a6, a2, SP[a1, a4], a5, n] - S2[a3, SP[a1, a6], a2, a4, a5, n] - 
    S2[a3, SP[a1, a6], a2, a5, a4, n] - S2[a3, SP[a1, a6], a5, a2, a4, n] - 
    S2[a3, SP[a1, a6], a5, a4, a2, n] + S2[a3, SP[a2, a6], a1, a4, a5, n] + 
    S2[a3, SP[a2, a6], a1, a5, a4, n] + S2[a2, n]*S2[a6, a1, a3, a4, a5, n] + 
    S2[a6, a1, a3, a4, SP[a2, a5], n] + S2[a6, a1, a3, SP[a2, a4], a5, n] - 
    S2[a3, n]*S2[a6, a1, a4, a2, a5, n] - S2[a6, a1, a4, a2, SP[a3, a5], n] + 
    S2[a2, n]*S2[a6, a1, a4, a3, a5, n] + S2[a6, a1, a4, a3, SP[a2, a5], n] - 
    S2[a3, n]*S2[a6, a1, a4, a5, a2, n] + 
    S2[a2, n]*S2[a6, a1, a4, a5, a3, n] + S2[a6, a1, a4, SP[a2, a5], a3, n] - 
    S2[a6, a1, a4, SP[a3, a5], a2, n] + S2[a6, a1, SP[a2, a3], a4, a5, n] + 
    S2[a6, a1, SP[a2, a4], a3, a5, n] + S2[a6, a1, SP[a2, a4], a5, a3, n] - 
    S2[a6, a1, SP[a3, a4], a2, a5, n] - S2[a6, a1, SP[a3, a4], a5, a2, n] - 
    S2[a1, n]*S2[a6, a2, a3, a4, a5, n] - S2[a6, a2, a3, a4, SP[a1, a5], n] - 
    S2[a6, a2, a3, SP[a1, a4], a5, n] + S2[a3, n]*S2[a6, a2, a4, a1, a5, n] + 
    S2[a6, a2, a4, a1, SP[a3, a5], n] - S2[a1, n]*S2[a6, a2, a4, a3, a5, n] - 
    S2[a6, a2, a4, a3, SP[a1, a5], n] - S2[a1, n]*S2[a6, a2, a4, a5, a3, n] - 
    S2[a6, a2, a4, a5, SP[a1, a3], n] - S2[a6, a2, a4, SP[a1, a5], a3, n] - 
    S2[a6, a2, SP[a1, a3], a4, a5, n] - S2[a6, a2, SP[a1, a4], a3, a5, n] - 
    S2[a6, a2, SP[a1, a4], a5, a3, n] + S2[a6, a2, SP[a3, a4], a1, a5, n] + 
    S2[a2, n]*S2[a6, a3, a1, a4, a5, n] + S2[a6, a3, a1, a4, SP[a2, a5], n] + 
    S2[a6, a3, a1, SP[a2, a4], a5, n] - S2[a1, n]*S2[a6, a3, a2, a4, a5, n] - 
    S2[a6, a3, a2, a4, SP[a1, a5], n] - S2[a6, a3, a2, SP[a1, a4], a5, n] - 
    S2[a6, SP[a1, a3], a2, a4, a5, n] - S2[a6, SP[a1, a3], a4, a2, a5, n] - 
    S2[a6, SP[a1, a3], a4, a5, a2, n] + S2[a6, SP[a2, a3], a1, a4, a5, n] + 
    S2[a6, SP[a2, a3], a4, a1, a5, n] - S2[SP[a1, a6], a2, a3, a4, a5, n] - 
    S2[SP[a1, a6], a2, a4, a3, a5, n] - S2[SP[a1, a6], a2, a4, a5, a3, n] - 
    S2[SP[a1, a6], a3, a2, a4, a5, n] + S2[SP[a2, a6], a1, a3, a4, a5, n] + 
    S2[SP[a2, a6], a1, a4, a3, a5, n] + S2[SP[a2, a6], a1, a4, a5, a3, n] + 
    S2[SP[a2, a6], a3, a1, a4, a5, n] - S2[SP[a3, a6], a1, a4, a2, a5, n] - 
    S2[SP[a3, a6], a1, a4, a5, a2, n] + S2[SP[a3, a6], a2, a4, a1, a5, n] + 
    S2[a6, a2, a3, a4, a5, a1, n] + S2[a6, a2, a4, a3, a5, a1, n] + 
    S2[a6, a2, a4, a5, a1, a3, n] + S2[a6, a2, a4, a5, a3, a1, n] + 
    S2[a6, a3, a2, a4, a5, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a1_, a5_, a4_, a3_, a2_, a6_, n_] :> 
  -(S2[a1, a5, a4, n]*S2[a2, a3, a6, n]) - S2[a1, a5, a4, n]*
     S2[a2, a6, a3, n] - S2[SP[a1, a2], SP[a3, a5], SP[a4, a6], n] - 
    S2[SP[a1, a2], SP[a5, a6], SP[a3, a4], n] + S2[a1, a2, SP[a3, a5], 
     SP[a4, a6], n] + S2[a1, a2, SP[a5, a6], SP[a3, a4], n] + 
    S2[a2, a6, n]*S2[a1, a5, a4, a3, n] - S2[a1, a5, SP[a2, a4], SP[a3, a6], 
     n] + S2[a1, SP[a2, a5], a3, SP[a4, a6], n] - S2[a1, SP[a2, a5], a4, 
     SP[a3, a6], n] + S2[a1, SP[a2, a5], a6, SP[a3, a4], n] + 
    S2[a1, SP[a2, a5], SP[a3, a4], a6, n] + S2[a2, a1, SP[a3, a5], 
     SP[a4, a6], n] + S2[a2, a1, SP[a5, a6], SP[a3, a4], n] + 
    S2[a1, a5, n]*S2[a2, a3, a4, a6, n] + S2[a1, a5, n]*
     S2[a2, a3, a6, a4, n] - S2[a2, a3, SP[a1, a4], SP[a5, a6], n] - 
    S2[a2, a3, SP[a1, a6], SP[a4, a5], n] + S2[a1, a5, n]*
     S2[a2, a6, a3, a4, n] - S2[a2, a6, SP[a1, a3], SP[a4, a5], n] - 
    S2[a2, SP[a1, a3], a4, SP[a5, a6], n] + S2[a2, SP[a1, a3], a5, 
     SP[a4, a6], n] - S2[a2, SP[a1, a3], a6, SP[a4, a5], n] - 
    S2[a2, SP[a1, a3], SP[a4, a5], a6, n] - S2[a2, SP[a1, a6], a3, 
     SP[a4, a5], n] + S2[a2, SP[a1, a6], a5, SP[a3, a4], n] - 
    S2[SP[a1, a2], a3, a4, SP[a5, a6], n] + S2[SP[a1, a2], a3, a5, 
     SP[a4, a6], n] - S2[SP[a1, a2], a3, a6, SP[a4, a5], n] - 
    S2[SP[a1, a2], a3, SP[a4, a5], a6, n] + S2[SP[a1, a2], a5, a3, 
     SP[a4, a6], n] - S2[SP[a1, a2], a5, a4, SP[a3, a6], n] + 
    S2[SP[a1, a2], a5, a6, SP[a3, a4], n] + S2[SP[a1, a2], a5, SP[a3, a4], 
     a6, n] - S2[SP[a1, a2], a6, a3, SP[a4, a5], n] + 
    S2[SP[a1, a2], a6, a5, SP[a3, a4], n] + S2[a1, a2, a3, a4, SP[a5, a6], 
     n] - S2[a1, a2, a3, a5, SP[a4, a6], n] + S2[a1, a2, a3, a6, SP[a4, a5], 
     n] + S2[a1, a2, a3, SP[a4, a5], a6, n] - S2[a1, a2, a5, a3, SP[a4, a6], 
     n] + S2[a1, a2, a5, a4, SP[a3, a6], n] - S2[a1, a2, a5, a6, SP[a3, a4], 
     n] - S2[a1, a2, a5, SP[a3, a4], a6, n] + S2[a1, a2, a6, a3, SP[a4, a5], 
     n] - S2[a1, a2, a6, a5, SP[a3, a4], n] + 
    S2[a6, n]*S2[a1, a3, a2, a4, a5, n] + S2[a1, a3, a2, a4, SP[a5, a6], n] + 
    S2[a1, a3, a2, SP[a4, a6], a5, n] + S2[a6, n]*S2[a1, a3, a4, a2, a5, n] + 
    S2[a1, a3, a4, a2, SP[a5, a6], n] + S2[a6, n]*S2[a1, a3, a4, a5, a2, n] - 
    S2[a2, n]*S2[a1, a3, a4, a5, a6, n] - 
    S2[a2, n]*S2[a1, a3, a4, a6, a5, n] - S2[a1, a3, a4, a6, SP[a2, a5], n] - 
    S2[a1, a3, a4, SP[a2, a5], a6, n] + S2[a1, a3, a4, SP[a5, a6], a2, n] - 
    S2[a2, n]*S2[a1, a3, a6, a4, a5, n] - S2[a1, a3, a6, a4, SP[a2, a5], n] - 
    S2[a1, a3, a6, SP[a2, a4], a5, n] - S2[a1, a3, SP[a2, a4], a5, a6, n] - 
    S2[a1, a3, SP[a2, a4], a6, a5, n] + S2[a1, a3, SP[a4, a6], a2, a5, n] + 
    S2[a1, a3, SP[a4, a6], a5, a2, n] - S2[a1, a5, a2, a3, SP[a4, a6], n] + 
    S2[a1, a5, a2, a4, SP[a3, a6], n] - S2[a1, a5, a2, a6, SP[a3, a4], n] - 
    S2[a1, a5, a2, SP[a3, a4], a6, n] + S2[a1, a5, a4, a2, SP[a3, a6], n] + 
    S2[a1, a5, a4, SP[a2, a3], a6, n] - S2[a2, n]*S2[a1, a6, a3, a4, a5, n] - 
    S2[a1, a6, a3, a4, SP[a2, a5], n] - S2[a1, a6, a3, SP[a2, a4], a5, n] - 
    S2[a1, a6, SP[a2, a3], a4, a5, n] - S2[a1, SP[a2, a3], a4, a5, a6, n] - 
    S2[a1, SP[a2, a3], a4, a6, a5, n] - S2[a1, SP[a2, a3], a6, a4, a5, n] - 
    S2[a1, SP[a2, a6], a3, a4, a5, n] + S2[a1, SP[a3, a6], a2, a4, a5, n] + 
    S2[a1, SP[a3, a6], a4, a2, a5, n] + S2[a1, SP[a3, a6], a4, a5, a2, n] + 
    S2[a2, a1, a3, a4, SP[a5, a6], n] - S2[a2, a1, a3, a5, SP[a4, a6], n] + 
    S2[a2, a1, a3, a6, SP[a4, a5], n] + S2[a2, a1, a3, SP[a4, a5], a6, n] - 
    S2[a2, a1, a5, a3, SP[a4, a6], n] + S2[a2, a1, a5, a4, SP[a3, a6], n] - 
    S2[a2, a1, a5, a6, SP[a3, a4], n] - S2[a2, a1, a5, SP[a3, a4], a6, n] + 
    S2[a2, a1, a6, a3, SP[a4, a5], n] - S2[a2, a1, a6, a5, SP[a3, a4], n] - 
    S2[a6, n]*S2[a2, a3, a1, a4, a5, n] - S2[a2, a3, a1, a5, SP[a4, a6], n] + 
    S2[a2, a3, a1, a6, SP[a4, a5], n] + S2[a2, a3, a1, SP[a4, a5], a6, n] - 
    S2[a2, a3, a1, SP[a4, a6], a5, n] - S2[a6, n]*S2[a2, a3, a4, a1, a5, n] + 
    S2[a2, a3, a6, a1, SP[a4, a5], n] + S2[a2, a3, a6, SP[a1, a4], a5, n] + 
    S2[a2, a3, SP[a1, a4], a5, a6, n] + S2[a2, a3, SP[a1, a4], a6, a5, n] - 
    S2[a2, a3, SP[a4, a6], a1, a5, n] + S2[a2, a6, a1, a3, SP[a4, a5], n] - 
    S2[a2, a6, a1, a5, SP[a3, a4], n] + S2[a2, a6, a3, a1, SP[a4, a5], n] + 
    S2[a2, a6, a3, SP[a1, a4], a5, n] + S2[a2, a6, SP[a1, a3], a4, a5, n] + 
    S2[a2, SP[a1, a3], a4, a5, a6, n] + S2[a2, SP[a1, a3], a4, a6, a5, n] + 
    S2[a2, SP[a1, a3], a6, a4, a5, n] + S2[a2, SP[a1, a6], a3, a4, a5, n] - 
    S2[a2, SP[a3, a6], a1, a4, a5, n] - S2[a2, SP[a3, a6], a4, a1, a5, n] - 
    S2[a2, n]*S2[a6, a1, a3, a4, a5, n] - S2[a6, a1, a3, a4, SP[a2, a5], n] - 
    S2[a6, a1, a3, SP[a2, a4], a5, n] - S2[a6, a1, SP[a2, a3], a4, a5, n] + 
    S2[a1, n]*S2[a6, a2, a3, a4, a5, n] + S2[a6, a2, a3, a4, SP[a1, a5], n] + 
    S2[a6, a2, a3, SP[a1, a4], a5, n] + S2[a6, a2, SP[a1, a3], a4, a5, n] + 
    S2[SP[a1, a6], a2, a3, a4, a5, n] + S2[SP[a1, a6], a3, a2, a4, a5, n] + 
    S2[SP[a1, a6], a3, a4, a2, a5, n] + S2[SP[a1, a6], a3, a4, a5, a2, n] - 
    S2[SP[a2, a6], a1, a3, a4, a5, n] - S2[SP[a2, a6], a3, a1, a4, a5, n] - 
    S2[SP[a2, a6], a3, a4, a1, a5, n] - S2[a6, a2, a3, a4, a5, a1, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a1_, a5_, a4_, a3_, a6_, a2_, n_] :> 
  S2[a1, a5, a4, n]*S2[a2, a6, a3, n] + S2[SP[a1, a2], SP[a5, a6], 
     SP[a3, a4], n] - S2[a1, a2, SP[a5, a6], SP[a3, a4], n] - 
    S2[a2, a6, n]*S2[a1, a5, a4, a3, n] + S2[a1, a5, SP[a2, a4], SP[a3, a6], 
     n] + S2[a1, SP[a2, a5], a4, SP[a3, a6], n] - S2[a1, SP[a2, a5], a6, 
     SP[a3, a4], n] - S2[a2, a1, SP[a5, a6], SP[a3, a4], n] - 
    S2[a1, a5, n]*S2[a2, a6, a3, a4, n] + S2[a2, a6, SP[a1, a3], SP[a4, a5], 
     n] + S2[a2, SP[a1, a6], a3, SP[a4, a5], n] - S2[a2, SP[a1, a6], a5, 
     SP[a3, a4], n] + S2[SP[a1, a2], a5, a4, SP[a3, a6], n] - 
    S2[SP[a1, a2], a5, a6, SP[a3, a4], n] + S2[SP[a1, a2], a6, a3, 
     SP[a4, a5], n] - S2[SP[a1, a2], a6, a5, SP[a3, a4], n] - 
    S2[a1, a2, a5, a4, SP[a3, a6], n] + S2[a1, a2, a5, a6, SP[a3, a4], n] - 
    S2[a1, a2, a6, a3, SP[a4, a5], n] + S2[a1, a2, a6, a5, SP[a3, a4], n] - 
    S2[a1, a5, a2, a4, SP[a3, a6], n] + S2[a1, a5, a2, a6, SP[a3, a4], n] - 
    S2[a1, a5, a4, a2, SP[a3, a6], n] + S2[a2, n]*S2[a1, a5, a4, a3, a6, n] + 
    S2[a1, a5, a4, a3, SP[a2, a6], n] + S2[a2, n]*S2[a1, a6, a3, a4, a5, n] + 
    S2[a1, a6, a3, a4, SP[a2, a5], n] + S2[a1, a6, a3, SP[a2, a4], a5, n] + 
    S2[a1, a6, SP[a2, a3], a4, a5, n] + S2[a1, SP[a2, a6], a3, a4, a5, n] - 
    S2[a2, a1, a5, a4, SP[a3, a6], n] + S2[a2, a1, a5, a6, SP[a3, a4], n] - 
    S2[a2, a1, a6, a3, SP[a4, a5], n] + S2[a2, a1, a6, a5, SP[a3, a4], n] - 
    S2[a2, a6, a1, a3, SP[a4, a5], n] + S2[a2, a6, a1, a5, SP[a3, a4], n] - 
    S2[a2, a6, a3, a1, SP[a4, a5], n] - S2[a2, a6, a3, SP[a1, a4], a5, n] - 
    S2[a2, a6, SP[a1, a3], a4, a5, n] - S2[a2, SP[a1, a6], a3, a4, a5, n] + 
    S2[a2, n]*S2[a6, a1, a3, a4, a5, n] + S2[a6, a1, a3, a4, SP[a2, a5], n] + 
    S2[a6, a1, a3, SP[a2, a4], a5, n] + S2[a6, a1, SP[a2, a3], a4, a5, n] - 
    S2[a1, n]*S2[a6, a2, a3, a4, a5, n] - S2[a6, a2, a3, a4, SP[a1, a5], n] - 
    S2[a6, a2, a3, SP[a1, a4], a5, n] - S2[a6, a2, SP[a1, a3], a4, a5, n] + 
    S2[a2, n]*S2[a6, a3, a1, a4, a5, n] + S2[a6, a3, a1, a4, SP[a2, a5], n] + 
    S2[a6, a3, a1, SP[a2, a4], a5, n] - S2[a1, n]*S2[a6, a3, a2, a4, a5, n] - 
    S2[a6, a3, a2, a4, SP[a1, a5], n] - S2[a6, a3, a2, SP[a1, a4], a5, n] + 
    S2[a2, n]*S2[a6, a3, a4, a1, a5, n] + S2[a6, a3, a4, a1, SP[a2, a5], n] - 
    S2[a1, n]*S2[a6, a3, a4, a2, a5, n] - S2[a6, a3, a4, a2, SP[a1, a5], n] - 
    S2[a1, n]*S2[a6, a3, a4, a5, a2, n] - S2[a6, a3, a4, a5, SP[a1, a2], n] - 
    S2[a6, a3, a4, SP[a1, a5], a2, n] - S2[a6, a3, SP[a1, a4], a2, a5, n] - 
    S2[a6, a3, SP[a1, a4], a5, a2, n] + S2[a6, a3, SP[a2, a4], a1, a5, n] - 
    S2[a6, SP[a1, a3], a2, a4, a5, n] - S2[a6, SP[a1, a3], a4, a2, a5, n] - 
    S2[a6, SP[a1, a3], a4, a5, a2, n] + S2[a6, SP[a2, a3], a1, a4, a5, n] + 
    S2[a6, SP[a2, a3], a4, a1, a5, n] - S2[SP[a1, a6], a2, a3, a4, a5, n] - 
    S2[SP[a1, a6], a3, a2, a4, a5, n] - S2[SP[a1, a6], a3, a4, a2, a5, n] - 
    S2[SP[a1, a6], a3, a4, a5, a2, n] + S2[SP[a2, a6], a1, a3, a4, a5, n] + 
    S2[SP[a2, a6], a3, a1, a4, a5, n] + S2[SP[a2, a6], a3, a4, a1, a5, n] + 
    S2[a6, a2, a3, a4, a5, a1, n] + S2[a6, a3, a2, a4, a5, a1, n] + 
    S2[a6, a3, a4, a2, a5, a1, n] + S2[a6, a3, a4, a5, a1, a2, n] + 
    S2[a6, a3, a4, a5, a2, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a1_, a5_, a4_, a6_, a2_, a3_, n_] :> 
  -(S2[a1, a5, a4, n]*S2[a2, a3, a6, n]) - S2[a1, a5, a4, n]*
     S2[a2, a6, a3, n] - S2[SP[a1, a2], SP[a3, a5], SP[a4, a6], n] - 
    S2[SP[a1, a2], SP[a5, a6], SP[a3, a4], n] + S2[a1, a2, SP[a3, a5], 
     SP[a4, a6], n] + S2[a1, a2, SP[a5, a6], SP[a3, a4], n] + 
    S2[a1, SP[a2, a5], a3, SP[a4, a6], n] + S2[a1, SP[a2, a5], a6, 
     SP[a3, a4], n] + S2[a1, SP[a2, a5], SP[a3, a4], a6, n] + 
    S2[a1, SP[a2, a5], SP[a4, a6], a3, n] + S2[a2, a1, SP[a3, a5], 
     SP[a4, a6], n] + S2[a2, a1, SP[a5, a6], SP[a3, a4], n] + 
    S2[a2, SP[a1, a3], a5, SP[a4, a6], n] + S2[a2, SP[a1, a3], SP[a5, a6], 
     a4, n] + S2[a2, SP[a1, a6], a5, SP[a3, a4], n] + 
    S2[a2, SP[a1, a6], SP[a3, a5], a4, n] + S2[a1, a5, n]*
     S2[a4, a6, a2, a3, n] - S2[a4, a6, SP[a1, a2], SP[a3, a5], n] - 
    S2[a4, SP[a1, a6], a2, SP[a3, a5], n] - S2[a4, SP[a1, a6], SP[a2, a5], 
     a3, n] + S2[SP[a1, a2], a3, a5, SP[a4, a6], n] + 
    S2[SP[a1, a2], a3, SP[a5, a6], a4, n] + S2[SP[a1, a2], a5, a3, 
     SP[a4, a6], n] + S2[SP[a1, a2], a5, a6, SP[a3, a4], n] + 
    S2[SP[a1, a2], a5, SP[a3, a4], a6, n] + S2[SP[a1, a2], a5, SP[a4, a6], 
     a3, n] + S2[SP[a1, a2], a6, a5, SP[a3, a4], n] + 
    S2[SP[a1, a2], a6, SP[a3, a5], a4, n] + S2[SP[a1, a2], SP[a3, a5], a4, 
     a6, n] + S2[SP[a1, a2], SP[a3, a5], a6, a4, n] + 
    S2[SP[a1, a2], SP[a5, a6], a3, a4, n] + S2[SP[a1, a2], SP[a5, a6], a4, 
     a3, n] - S2[SP[a1, a4], a6, a2, SP[a3, a5], n] - 
    S2[SP[a1, a4], a6, SP[a2, a5], a3, n] - S2[SP[a1, a4], SP[a5, a6], a2, 
     a3, n] - S2[a1, a2, a3, a5, SP[a4, a6], n] - S2[a1, a2, a3, SP[a5, a6], 
     a4, n] - S2[a1, a2, a5, a3, SP[a4, a6], n] - 
    S2[a1, a2, a5, a6, SP[a3, a4], n] - S2[a1, a2, a5, SP[a3, a4], a6, n] - 
    S2[a1, a2, a5, SP[a4, a6], a3, n] - S2[a1, a2, a6, a5, SP[a3, a4], n] - 
    S2[a1, a2, a6, SP[a3, a5], a4, n] - S2[a1, a2, SP[a3, a5], a4, a6, n] - 
    S2[a1, a2, SP[a3, a5], a6, a4, n] - S2[a1, a2, SP[a5, a6], a3, a4, n] - 
    S2[a1, a2, SP[a5, a6], a4, a3, n] - S2[a6, n]*S2[a1, a3, a2, a5, a4, n] - 
    S2[a1, a3, a2, a5, SP[a4, a6], n] - S2[a1, a3, a2, SP[a5, a6], a4, n] - 
    S2[a6, n]*S2[a1, a3, a5, a2, a4, n] - S2[a1, a3, a5, a2, SP[a4, a6], n] - 
    S2[a6, n]*S2[a1, a3, a5, a4, a2, n] + 
    S2[a2, n]*S2[a1, a3, a5, a4, a6, n] + 
    S2[a2, n]*S2[a1, a3, a5, a6, a4, n] + S2[a1, a3, a5, a6, SP[a2, a4], n] + 
    S2[a1, a3, a5, SP[a2, a4], a6, n] - S2[a1, a3, a5, SP[a4, a6], a2, n] + 
    S2[a2, n]*S2[a1, a3, a6, a5, a4, n] + S2[a1, a3, a6, a5, SP[a2, a4], n] + 
    S2[a1, a3, a6, SP[a2, a5], a4, n] + S2[a1, a3, SP[a2, a5], a4, a6, n] + 
    S2[a1, a3, SP[a2, a5], a6, a4, n] - S2[a1, a3, SP[a5, a6], a2, a4, n] - 
    S2[a1, a3, SP[a5, a6], a4, a2, n] + S2[a1, a4, a6, a2, SP[a3, a5], n] + 
    S2[a1, a4, a6, SP[a2, a5], a3, n] + S2[a1, a4, SP[a5, a6], a2, a3, n] - 
    S2[a1, a5, a2, a3, SP[a4, a6], n] - S2[a1, a5, a2, a6, SP[a3, a4], n] - 
    S2[a1, a5, a2, SP[a3, a4], a6, n] - S2[a1, a5, a2, SP[a4, a6], a3, n] - 
    S2[a6, n]*S2[a1, a5, a3, a2, a4, n] - S2[a1, a5, a3, a2, SP[a4, a6], n] - 
    S2[a6, n]*S2[a1, a5, a3, a4, a2, n] + 
    S2[a2, n]*S2[a1, a5, a3, a4, a6, n] + 
    S2[a2, n]*S2[a1, a5, a3, a6, a4, n] + S2[a1, a5, a3, a6, SP[a2, a4], n] + 
    S2[a1, a5, a3, SP[a2, a4], a6, n] - S2[a1, a5, a3, SP[a4, a6], a2, n] - 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] + 
    S2[a2, n]*S2[a1, a5, a4, a3, a6, n] + 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] + S2[a1, a5, a4, a6, SP[a2, a3], n] + 
    S2[a1, a5, a4, SP[a2, a3], a6, n] + S2[a1, a5, a4, SP[a2, a6], a3, n] - 
    S2[a1, a5, a4, SP[a3, a6], a2, n] - S2[a4, n]*S2[a1, a5, a6, a2, a3, n] - 
    S2[a1, a5, a6, a2, SP[a3, a4], n] + S2[a2, n]*S2[a1, a5, a6, a3, a4, n] + 
    S2[a1, a5, a6, a3, SP[a2, a4], n] + S2[a2, n]*S2[a1, a5, a6, a4, a3, n] + 
    S2[a1, a5, a6, a4, SP[a2, a3], n] + S2[a1, a5, a6, SP[a2, a3], a4, n] + 
    S2[a1, a5, SP[a2, a3], a4, a6, n] + S2[a1, a5, SP[a2, a3], a6, a4, n] + 
    S2[a1, a5, SP[a2, a6], a3, a4, n] + S2[a1, a5, SP[a2, a6], a4, a3, n] - 
    S2[a1, a5, SP[a3, a6], a2, a4, n] - S2[a1, a5, SP[a3, a6], a4, a2, n] - 
    S2[a1, a5, SP[a4, a6], a2, a3, n] - S2[a1, a5, SP[a4, a6], a3, a2, n] - 
    S2[a4, n]*S2[a1, a6, a2, a3, a5, n] - S2[a1, a6, a2, a3, SP[a4, a5], n] - 
    S2[a4, n]*S2[a1, a6, a2, a5, a3, n] - S2[a1, a6, a2, a5, SP[a3, a4], n] - 
    S2[a1, a6, a2, SP[a3, a4], a5, n] - S2[a1, a6, a2, SP[a4, a5], a3, n] + 
    S2[a2, n]*S2[a1, a6, a3, a5, a4, n] + S2[a1, a6, a3, a5, SP[a2, a4], n] + 
    S2[a1, a6, a3, SP[a2, a5], a4, n] - S2[a4, n]*S2[a1, a6, a5, a2, a3, n] - 
    S2[a1, a6, a5, a2, SP[a3, a4], n] + S2[a2, n]*S2[a1, a6, a5, a3, a4, n] + 
    S2[a1, a6, a5, a3, SP[a2, a4], n] + S2[a2, n]*S2[a1, a6, a5, a4, a3, n] + 
    S2[a1, a6, a5, a4, SP[a2, a3], n] + S2[a1, a6, a5, SP[a2, a3], a4, n] + 
    S2[a1, a6, SP[a2, a3], a5, a4, n] - S2[a1, a6, SP[a2, a4], a3, a5, n] - 
    S2[a1, a6, SP[a2, a4], a5, a3, n] + S2[a1, a6, SP[a2, a5], a3, a4, n] + 
    S2[a1, a6, SP[a2, a5], a4, a3, n] - S2[a1, a6, SP[a4, a5], a2, a3, n] + 
    S2[a1, SP[a2, a3], a5, a4, a6, n] + S2[a1, SP[a2, a3], a5, a6, a4, n] + 
    S2[a1, SP[a2, a3], a6, a5, a4, n] + S2[a1, SP[a2, a6], a3, a5, a4, n] + 
    S2[a1, SP[a2, a6], a5, a3, a4, n] + S2[a1, SP[a2, a6], a5, a4, a3, n] - 
    S2[a1, SP[a3, a6], a2, a5, a4, n] - S2[a1, SP[a3, a6], a5, a2, a4, n] - 
    S2[a1, SP[a3, a6], a5, a4, a2, n] - S2[a1, SP[a4, a6], a2, a3, a5, n] - 
    S2[a1, SP[a4, a6], a2, a5, a3, n] - S2[a1, SP[a4, a6], a5, a2, a3, n] - 
    S2[a1, SP[a5, a6], a3, a2, a4, n] - S2[a1, SP[a5, a6], a3, a4, a2, n] - 
    S2[a1, SP[a5, a6], a4, a3, a2, n] - S2[a2, a1, a3, a5, SP[a4, a6], n] - 
    S2[a2, a1, a3, SP[a5, a6], a4, n] - S2[a2, a1, a5, a3, SP[a4, a6], n] - 
    S2[a2, a1, a5, a6, SP[a3, a4], n] - S2[a2, a1, a5, SP[a3, a4], a6, n] - 
    S2[a2, a1, a5, SP[a4, a6], a3, n] - S2[a2, a1, a6, a5, SP[a3, a4], n] - 
    S2[a2, a1, a6, SP[a3, a5], a4, n] - S2[a2, a1, SP[a3, a5], a4, a6, n] - 
    S2[a2, a1, SP[a3, a5], a6, a4, n] - S2[a2, a1, SP[a5, a6], a3, a4, n] - 
    S2[a2, a1, SP[a5, a6], a4, a3, n] + S2[a6, n]*S2[a2, a3, a1, a5, a4, n] + 
    S2[a4, n]*S2[a2, a6, a1, a3, a5, n] + S2[a2, a6, a1, a3, SP[a4, a5], n] + 
    S2[a4, n]*S2[a2, a6, a1, a5, a3, n] + S2[a2, a6, a1, SP[a3, a4], a5, n] - 
    S2[a2, a6, a1, SP[a3, a5], a4, n] + S2[a2, a6, a1, SP[a4, a5], a3, n] - 
    S2[a2, a6, SP[a1, a3], a5, a4, n] + S2[a2, a6, SP[a1, a4], a3, a5, n] + 
    S2[a2, a6, SP[a1, a4], a5, a3, n] - S2[a2, SP[a1, a3], a5, a4, a6, n] - 
    S2[a2, SP[a1, a3], a5, a6, a4, n] - S2[a2, SP[a1, a3], a6, a5, a4, n] - 
    S2[a2, SP[a1, a6], a3, a5, a4, n] - S2[a2, SP[a1, a6], a5, a3, a4, n] - 
    S2[a2, SP[a1, a6], a5, a4, a3, n] + S2[a2, SP[a3, a6], a1, a5, a4, n] + 
    S2[a2, SP[a4, a6], a1, a3, a5, n] + S2[a2, SP[a4, a6], a1, a5, a3, n] + 
    S2[a4, a1, a6, a2, SP[a3, a5], n] + S2[a4, a1, a6, SP[a2, a5], a3, n] + 
    S2[a4, a1, SP[a5, a6], a2, a3, n] + S2[a4, a6, a1, a2, SP[a3, a5], n] - 
    S2[a2, n]*S2[a4, a6, a1, a3, a5, n] - S2[a4, a6, a1, a3, SP[a2, a5], n] - 
    S2[a2, n]*S2[a4, a6, a1, a5, a3, n] - S2[a4, a6, a1, a5, SP[a2, a3], n] - 
    S2[a4, a6, a1, SP[a2, a3], a5, n] + S2[a4, a6, a2, a1, SP[a3, a5], n] + 
    S2[a4, a6, a2, SP[a1, a3], a5, n] + S2[a4, SP[a1, a6], a2, a3, a5, n] + 
    S2[a4, SP[a1, a6], a2, a5, a3, n] + S2[a4, SP[a1, a6], a5, a2, a3, n] - 
    S2[a4, SP[a2, a6], a1, a3, a5, n] - S2[a4, SP[a2, a6], a1, a5, a3, n] + 
    S2[a4, n]*S2[a6, a1, a3, a2, a5, n] + S2[a6, a1, a3, a2, SP[a4, a5], n] - 
    S2[a2, n]*S2[a6, a1, a3, a4, a5, n] - S2[a6, a1, a3, a4, SP[a2, a5], n] + 
    S2[a4, n]*S2[a6, a1, a3, a5, a2, n] + S2[a6, a1, a3, a5, SP[a2, a4], n] + 
    S2[a6, a1, a3, SP[a4, a5], a2, n] - S2[a2, n]*S2[a6, a1, a4, a3, a5, n] - 
    S2[a6, a1, a4, a3, SP[a2, a5], n] - S2[a2, n]*S2[a6, a1, a4, a5, a3, n] - 
    S2[a6, a1, a4, a5, SP[a2, a3], n] - S2[a6, a1, a4, SP[a2, a3], a5, n] - 
    S2[a6, a1, a4, SP[a2, a5], a3, n] + S2[a4, n]*S2[a6, a1, a5, a3, a2, n] + 
    S2[a6, a1, a5, a3, SP[a2, a4], n] + S2[a6, a1, a5, SP[a3, a4], a2, n] - 
    S2[a6, a1, SP[a2, a3], a4, a5, n] - S2[a6, a1, SP[a2, a4], a3, a5, n] - 
    S2[a6, a1, SP[a2, a4], a5, a3, n] + S2[a6, a1, SP[a3, a4], a2, a5, n] + 
    S2[a6, a1, SP[a3, a4], a5, a2, n] + S2[a6, a1, SP[a4, a5], a3, a2, n] - 
    S2[a4, n]*S2[a6, a2, a3, a1, a5, n] - S2[a6, a2, a3, a1, SP[a4, a5], n] + 
    S2[a1, n]*S2[a6, a2, a3, a4, a5, n] + S2[a6, a2, a3, a4, SP[a1, a5], n] + 
    S2[a1, n]*S2[a6, a2, a4, a3, a5, n] + S2[a6, a2, a4, a3, SP[a1, a5], n] + 
    S2[a1, n]*S2[a6, a2, a4, a5, a3, n] + S2[a6, a2, a4, a5, SP[a1, a3], n] + 
    S2[a6, a2, a4, SP[a1, a3], a5, n] + S2[a6, a2, a4, SP[a1, a5], a3, n] + 
    S2[a6, a2, SP[a1, a3], a4, a5, n] + S2[a6, a2, SP[a1, a4], a3, a5, n] + 
    S2[a6, a2, SP[a1, a4], a5, a3, n] - S2[a6, a2, SP[a3, a4], a1, a5, n] - 
    S2[a2, n]*S2[a6, a4, a1, a3, a5, n] - S2[a6, a4, a1, a3, SP[a2, a5], n] - 
    S2[a2, n]*S2[a6, a4, a1, a5, a3, n] - S2[a6, a4, a1, a5, SP[a2, a3], n] - 
    S2[a6, a4, a1, SP[a2, a3], a5, n] - S2[a6, a4, a1, SP[a2, a5], a3, n] + 
    S2[a1, n]*S2[a6, a4, a2, a3, a5, n] + S2[a6, a4, a2, a3, SP[a1, a5], n] + 
    S2[a1, n]*S2[a6, a4, a2, a5, a3, n] + S2[a6, a4, a2, a5, SP[a1, a3], n] + 
    S2[a6, a4, a2, SP[a1, a3], a5, n] + S2[a6, a4, a2, SP[a1, a5], a3, n] + 
    S2[a1, n]*S2[a6, a4, a5, a2, a3, n] + S2[a6, a4, a5, a2, SP[a1, a3], n] + 
    S2[a6, a4, a5, SP[a1, a2], a3, n] + S2[a6, a4, SP[a1, a5], a2, a3, n] + 
    S2[a6, SP[a1, a4], a2, a3, a5, n] + S2[a6, SP[a1, a4], a2, a5, a3, n] + 
    S2[a6, SP[a1, a4], a3, a2, a5, n] + S2[a6, SP[a1, a4], a3, a5, a2, n] + 
    S2[a6, SP[a1, a4], a5, a2, a3, n] + S2[a6, SP[a1, a4], a5, a3, a2, n] - 
    S2[a6, SP[a2, a4], a1, a3, a5, n] - S2[a6, SP[a2, a4], a1, a5, a3, n] - 
    S2[a6, SP[a2, a4], a3, a1, a5, n] + S2[SP[a1, a6], a2, a3, a4, a5, n] + 
    S2[SP[a1, a6], a2, a4, a3, a5, n] + S2[SP[a1, a6], a2, a4, a5, a3, n] - 
    S2[SP[a1, a6], a3, a2, a5, a4, n] - S2[SP[a1, a6], a3, a5, a2, a4, n] - 
    S2[SP[a1, a6], a3, a5, a4, a2, n] + S2[SP[a1, a6], a4, a2, a3, a5, n] + 
    S2[SP[a1, a6], a4, a2, a5, a3, n] + S2[SP[a1, a6], a4, a5, a2, a3, n] - 
    S2[SP[a1, a6], a5, a3, a2, a4, n] - S2[SP[a1, a6], a5, a3, a4, a2, n] - 
    S2[SP[a1, a6], a5, a4, a3, a2, n] - S2[SP[a2, a6], a1, a3, a4, a5, n] - 
    S2[SP[a2, a6], a1, a4, a3, a5, n] - S2[SP[a2, a6], a1, a4, a5, a3, n] + 
    S2[SP[a2, a6], a3, a1, a5, a4, n] - S2[SP[a2, a6], a4, a1, a3, a5, n] - 
    S2[SP[a2, a6], a4, a1, a5, a3, n] + S2[SP[a4, a6], a1, a3, a2, a5, n] + 
    S2[SP[a4, a6], a1, a3, a5, a2, n] + S2[SP[a4, a6], a1, a5, a3, a2, n] - 
    S2[SP[a4, a6], a2, a3, a1, a5, n] - S2[a6, a2, a3, a4, a5, a1, n] - 
    S2[a6, a2, a4, a3, a5, a1, n] - S2[a6, a2, a4, a5, a1, a3, n] - 
    S2[a6, a2, a4, a5, a3, a1, n] - S2[a6, a4, a2, a3, a5, a1, n] - 
    S2[a6, a4, a2, a5, a1, a3, n] - S2[a6, a4, a2, a5, a3, a1, n] - 
    S2[a6, a4, a5, a1, a2, a3, n] - S2[a6, a4, a5, a2, a1, a3, n] - 
    S2[a6, a4, a5, a2, a3, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a1_, a5_, a4_, a6_, a3_, a2_, n_] :> 
  S2[a1, a5, a4, n]*S2[a2, a3, a6, n] + S2[SP[a1, a2], SP[a3, a5], 
     SP[a4, a6], n] - S2[a1, a2, SP[a3, a5], SP[a4, a6], n] - 
    S2[a1, SP[a2, a5], a3, SP[a4, a6], n] - S2[a1, SP[a2, a5], SP[a3, a4], 
     a6, n] - S2[a2, a1, SP[a3, a5], SP[a4, a6], n] + 
    S2[a1, a5, n]*S2[a2, a6, a3, a4, n] + S2[a1, a5, n]*
     S2[a2, a6, a4, a3, n] - S2[a2, a6, SP[a1, a3], SP[a4, a5], n] - 
    S2[a2, a6, SP[a1, a4], SP[a3, a5], n] - S2[a2, SP[a1, a3], a5, 
     SP[a4, a6], n] - S2[a2, SP[a1, a3], SP[a5, a6], a4, n] - 
    S2[a2, SP[a1, a6], a3, SP[a4, a5], n] - S2[a2, SP[a1, a6], a4, 
     SP[a3, a5], n] - S2[a2, SP[a1, a6], SP[a3, a5], a4, n] - 
    S2[a2, SP[a1, a6], SP[a4, a5], a3, n] - S2[a1, a5, n]*
     S2[a4, a6, a2, a3, n] + S2[a4, a6, SP[a1, a2], SP[a3, a5], n] + 
    S2[a4, SP[a1, a6], a2, SP[a3, a5], n] + S2[a4, SP[a1, a6], SP[a2, a5], 
     a3, n] - S2[SP[a1, a2], a3, a5, SP[a4, a6], n] - 
    S2[SP[a1, a2], a3, SP[a5, a6], a4, n] - S2[SP[a1, a2], a5, a3, 
     SP[a4, a6], n] - S2[SP[a1, a2], a5, SP[a3, a4], a6, n] - 
    S2[SP[a1, a2], a6, a3, SP[a4, a5], n] - S2[SP[a1, a2], a6, a4, 
     SP[a3, a5], n] - S2[SP[a1, a2], a6, SP[a3, a5], a4, n] - 
    S2[SP[a1, a2], a6, SP[a4, a5], a3, n] - S2[SP[a1, a2], SP[a3, a5], a4, 
     a6, n] - S2[SP[a1, a2], SP[a3, a5], a6, a4, n] - 
    S2[SP[a1, a2], SP[a5, a6], a3, a4, n] - S2[SP[a1, a2], SP[a5, a6], a4, 
     a3, n] + S2[SP[a1, a4], a6, a2, SP[a3, a5], n] + 
    S2[SP[a1, a4], a6, SP[a2, a5], a3, n] + S2[SP[a1, a4], SP[a5, a6], a2, 
     a3, n] + S2[a1, a2, a3, a5, SP[a4, a6], n] + S2[a1, a2, a3, SP[a5, a6], 
     a4, n] + S2[a1, a2, a5, a3, SP[a4, a6], n] + S2[a1, a2, a5, SP[a3, a4], 
     a6, n] + S2[a1, a2, a6, a3, SP[a4, a5], n] + 
    S2[a1, a2, a6, a4, SP[a3, a5], n] + S2[a1, a2, a6, SP[a3, a5], a4, n] + 
    S2[a1, a2, a6, SP[a4, a5], a3, n] + S2[a1, a2, SP[a3, a5], a4, a6, n] + 
    S2[a1, a2, SP[a3, a5], a6, a4, n] + S2[a1, a2, SP[a5, a6], a3, a4, n] + 
    S2[a1, a2, SP[a5, a6], a4, a3, n] + S2[a6, n]*S2[a1, a3, a2, a5, a4, n] + 
    S2[a1, a3, a2, a5, SP[a4, a6], n] + S2[a1, a3, a2, SP[a5, a6], a4, n] + 
    S2[a6, n]*S2[a1, a3, a5, a2, a4, n] + S2[a1, a3, a5, a2, SP[a4, a6], n] + 
    S2[a6, n]*S2[a1, a3, a5, a4, a2, n] - 
    S2[a2, n]*S2[a1, a3, a5, a4, a6, n] - 
    S2[a2, n]*S2[a1, a3, a5, a6, a4, n] - S2[a1, a3, a5, a6, SP[a2, a4], n] - 
    S2[a1, a3, a5, SP[a2, a4], a6, n] + S2[a1, a3, a5, SP[a4, a6], a2, n] - 
    S2[a2, n]*S2[a1, a3, a6, a5, a4, n] - S2[a1, a3, a6, a5, SP[a2, a4], n] - 
    S2[a1, a3, a6, SP[a2, a5], a4, n] - S2[a1, a3, SP[a2, a5], a4, a6, n] - 
    S2[a1, a3, SP[a2, a5], a6, a4, n] + S2[a1, a3, SP[a5, a6], a2, a4, n] + 
    S2[a1, a3, SP[a5, a6], a4, a2, n] - S2[a1, a4, a6, a2, SP[a3, a5], n] - 
    S2[a1, a4, a6, SP[a2, a5], a3, n] - S2[a1, a4, SP[a5, a6], a2, a3, n] + 
    S2[a1, a5, a2, a3, SP[a4, a6], n] + S2[a1, a5, a2, SP[a3, a4], a6, n] + 
    S2[a6, n]*S2[a1, a5, a3, a2, a4, n] + S2[a1, a5, a3, a2, SP[a4, a6], n] + 
    S2[a6, n]*S2[a1, a5, a3, a4, a2, n] - 
    S2[a2, n]*S2[a1, a5, a3, a4, a6, n] - 
    S2[a2, n]*S2[a1, a5, a3, a6, a4, n] - S2[a1, a5, a3, a6, SP[a2, a4], n] - 
    S2[a1, a5, a3, SP[a2, a4], a6, n] + S2[a1, a5, a3, SP[a4, a6], a2, n] + 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] - 
    S2[a2, n]*S2[a1, a5, a4, a3, a6, n] - S2[a1, a5, a4, SP[a2, a3], a6, n] + 
    S2[a1, a5, a4, SP[a3, a6], a2, n] + S2[a4, n]*S2[a1, a5, a6, a2, a3, n] + 
    S2[a1, a5, a6, a2, SP[a3, a4], n] - S2[a2, n]*S2[a1, a5, a6, a3, a4, n] - 
    S2[a1, a5, a6, a3, SP[a2, a4], n] - S2[a2, n]*S2[a1, a5, a6, a4, a3, n] - 
    S2[a1, a5, a6, a4, SP[a2, a3], n] - S2[a1, a5, a6, SP[a2, a3], a4, n] - 
    S2[a1, a5, SP[a2, a3], a4, a6, n] - S2[a1, a5, SP[a2, a3], a6, a4, n] - 
    S2[a1, a5, SP[a2, a6], a3, a4, n] - S2[a1, a5, SP[a2, a6], a4, a3, n] + 
    S2[a1, a5, SP[a3, a6], a2, a4, n] + S2[a1, a5, SP[a3, a6], a4, a2, n] + 
    S2[a1, a5, SP[a4, a6], a2, a3, n] + S2[a1, a5, SP[a4, a6], a3, a2, n] + 
    S2[a4, n]*S2[a1, a6, a2, a3, a5, n] + S2[a1, a6, a2, a3, SP[a4, a5], n] + 
    S2[a4, n]*S2[a1, a6, a2, a5, a3, n] + S2[a1, a6, a2, a5, SP[a3, a4], n] + 
    S2[a1, a6, a2, SP[a3, a4], a5, n] + S2[a1, a6, a2, SP[a4, a5], a3, n] - 
    S2[a2, n]*S2[a1, a6, a3, a4, a5, n] - S2[a1, a6, a3, a4, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a6, a3, a5, a4, n] - S2[a1, a6, a3, a5, SP[a2, a4], n] - 
    S2[a1, a6, a3, SP[a2, a4], a5, n] - S2[a1, a6, a3, SP[a2, a5], a4, n] - 
    S2[a2, n]*S2[a1, a6, a4, a3, a5, n] - S2[a1, a6, a4, a3, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a6, a4, a5, a3, n] - S2[a1, a6, a4, a5, SP[a2, a3], n] - 
    S2[a1, a6, a4, SP[a2, a3], a5, n] - S2[a1, a6, a4, SP[a2, a5], a3, n] + 
    S2[a4, n]*S2[a1, a6, a5, a2, a3, n] + S2[a1, a6, a5, a2, SP[a3, a4], n] - 
    S2[a2, n]*S2[a1, a6, a5, a3, a4, n] - S2[a1, a6, a5, a3, SP[a2, a4], n] - 
    S2[a2, n]*S2[a1, a6, a5, a4, a3, n] - S2[a1, a6, a5, a4, SP[a2, a3], n] - 
    S2[a1, a6, a5, SP[a2, a3], a4, n] - S2[a1, a6, SP[a2, a3], a4, a5, n] - 
    S2[a1, a6, SP[a2, a3], a5, a4, n] - S2[a1, a6, SP[a2, a5], a3, a4, n] - 
    S2[a1, a6, SP[a2, a5], a4, a3, n] + S2[a1, a6, SP[a4, a5], a2, a3, n] - 
    S2[a1, SP[a2, a3], a5, a4, a6, n] - S2[a1, SP[a2, a3], a5, a6, a4, n] - 
    S2[a1, SP[a2, a3], a6, a5, a4, n] - S2[a1, SP[a2, a6], a3, a4, a5, n] - 
    S2[a1, SP[a2, a6], a3, a5, a4, n] - S2[a1, SP[a2, a6], a4, a3, a5, n] - 
    S2[a1, SP[a2, a6], a4, a5, a3, n] - S2[a1, SP[a2, a6], a5, a3, a4, n] - 
    S2[a1, SP[a2, a6], a5, a4, a3, n] + S2[a1, SP[a3, a6], a2, a5, a4, n] + 
    S2[a1, SP[a3, a6], a5, a2, a4, n] + S2[a1, SP[a3, a6], a5, a4, a2, n] + 
    S2[a1, SP[a4, a6], a2, a3, a5, n] + S2[a1, SP[a4, a6], a2, a5, a3, n] + 
    S2[a1, SP[a4, a6], a5, a2, a3, n] + S2[a1, SP[a5, a6], a3, a2, a4, n] + 
    S2[a1, SP[a5, a6], a3, a4, a2, n] + S2[a1, SP[a5, a6], a4, a3, a2, n] + 
    S2[a2, a1, a3, a5, SP[a4, a6], n] + S2[a2, a1, a3, SP[a5, a6], a4, n] + 
    S2[a2, a1, a5, a3, SP[a4, a6], n] + S2[a2, a1, a5, SP[a3, a4], a6, n] + 
    S2[a2, a1, a6, a3, SP[a4, a5], n] + S2[a2, a1, a6, a4, SP[a3, a5], n] + 
    S2[a2, a1, a6, SP[a3, a5], a4, n] + S2[a2, a1, a6, SP[a4, a5], a3, n] + 
    S2[a2, a1, SP[a3, a5], a4, a6, n] + S2[a2, a1, SP[a3, a5], a6, a4, n] + 
    S2[a2, a1, SP[a5, a6], a3, a4, n] + S2[a2, a1, SP[a5, a6], a4, a3, n] - 
    S2[a6, n]*S2[a2, a3, a1, a5, a4, n] - 
    S2[a4, n]*S2[a2, a6, a1, a3, a5, n] + S2[a2, a6, a1, a4, SP[a3, a5], n] - 
    S2[a4, n]*S2[a2, a6, a1, a5, a3, n] - S2[a2, a6, a1, a5, SP[a3, a4], n] - 
    S2[a2, a6, a1, SP[a3, a4], a5, n] + S2[a2, a6, a1, SP[a3, a5], a4, n] + 
    S2[a2, a6, a3, a1, SP[a4, a5], n] + S2[a2, a6, a3, SP[a1, a4], a5, n] + 
    S2[a2, a6, a4, a1, SP[a3, a5], n] + S2[a2, a6, a4, SP[a1, a3], a5, n] + 
    S2[a2, a6, SP[a1, a3], a4, a5, n] + S2[a2, a6, SP[a1, a3], a5, a4, n] + 
    S2[a2, SP[a1, a3], a5, a4, a6, n] + S2[a2, SP[a1, a3], a5, a6, a4, n] + 
    S2[a2, SP[a1, a3], a6, a5, a4, n] + S2[a2, SP[a1, a6], a3, a4, a5, n] + 
    S2[a2, SP[a1, a6], a3, a5, a4, n] + S2[a2, SP[a1, a6], a4, a3, a5, n] + 
    S2[a2, SP[a1, a6], a4, a5, a3, n] + S2[a2, SP[a1, a6], a5, a3, a4, n] + 
    S2[a2, SP[a1, a6], a5, a4, a3, n] - S2[a2, SP[a3, a6], a1, a5, a4, n] - 
    S2[a2, SP[a4, a6], a1, a3, a5, n] - S2[a2, SP[a4, a6], a1, a5, a3, n] - 
    S2[a4, a1, a6, a2, SP[a3, a5], n] - S2[a4, a1, a6, SP[a2, a5], a3, n] - 
    S2[a4, a1, SP[a5, a6], a2, a3, n] - S2[a4, a6, a1, a2, SP[a3, a5], n] + 
    S2[a2, n]*S2[a4, a6, a1, a3, a5, n] + S2[a4, a6, a1, a3, SP[a2, a5], n] + 
    S2[a2, n]*S2[a4, a6, a1, a5, a3, n] + S2[a4, a6, a1, a5, SP[a2, a3], n] + 
    S2[a4, a6, a1, SP[a2, a3], a5, n] - S2[a4, a6, a2, a1, SP[a3, a5], n] - 
    S2[a4, a6, a2, SP[a1, a3], a5, n] - S2[a4, SP[a1, a6], a2, a3, a5, n] - 
    S2[a4, SP[a1, a6], a2, a5, a3, n] - S2[a4, SP[a1, a6], a5, a2, a3, n] + 
    S2[a4, SP[a2, a6], a1, a3, a5, n] + S2[a4, SP[a2, a6], a1, a5, a3, n] - 
    S2[a4, n]*S2[a6, a1, a3, a2, a5, n] - S2[a6, a1, a3, a2, SP[a4, a5], n] - 
    S2[a4, n]*S2[a6, a1, a3, a5, a2, n] - S2[a6, a1, a3, a5, SP[a2, a4], n] - 
    S2[a6, a1, a3, SP[a2, a4], a5, n] - S2[a6, a1, a3, SP[a4, a5], a2, n] - 
    S2[a4, n]*S2[a6, a1, a5, a3, a2, n] - S2[a6, a1, a5, a3, SP[a2, a4], n] - 
    S2[a6, a1, a5, SP[a3, a4], a2, n] - S2[a6, a1, SP[a3, a4], a2, a5, n] - 
    S2[a6, a1, SP[a3, a4], a5, a2, n] - S2[a6, a1, SP[a4, a5], a3, a2, n] + 
    S2[a4, n]*S2[a6, a2, a3, a1, a5, n] + S2[a6, a2, a3, a1, SP[a4, a5], n] + 
    S2[a6, a2, a3, SP[a1, a4], a5, n] + S2[a6, a2, SP[a3, a4], a1, a5, n] - 
    S2[a2, n]*S2[a6, a3, a1, a4, a5, n] - S2[a6, a3, a1, a4, SP[a2, a5], n] - 
    S2[a6, a3, a1, SP[a2, a4], a5, n] + S2[a1, n]*S2[a6, a3, a2, a4, a5, n] + 
    S2[a6, a3, a2, a4, SP[a1, a5], n] + S2[a6, a3, a2, SP[a1, a4], a5, n] - 
    S2[a2, n]*S2[a6, a3, a4, a1, a5, n] - S2[a6, a3, a4, a1, SP[a2, a5], n] + 
    S2[a1, n]*S2[a6, a3, a4, a2, a5, n] + S2[a6, a3, a4, a2, SP[a1, a5], n] + 
    S2[a1, n]*S2[a6, a3, a4, a5, a2, n] + S2[a6, a3, a4, a5, SP[a1, a2], n] + 
    S2[a6, a3, a4, SP[a1, a5], a2, n] + S2[a6, a3, SP[a1, a4], a2, a5, n] + 
    S2[a6, a3, SP[a1, a4], a5, a2, n] - S2[a6, a3, SP[a2, a4], a1, a5, n] - 
    S2[a2, n]*S2[a6, a4, a3, a1, a5, n] - S2[a6, a4, a3, a1, SP[a2, a5], n] + 
    S2[a1, n]*S2[a6, a4, a3, a2, a5, n] + S2[a6, a4, a3, a2, SP[a1, a5], n] + 
    S2[a1, n]*S2[a6, a4, a3, a5, a2, n] + S2[a6, a4, a3, a5, SP[a1, a2], n] + 
    S2[a6, a4, a3, SP[a1, a5], a2, n] + S2[a1, n]*S2[a6, a4, a5, a3, a2, n] + 
    S2[a6, a4, a5, a3, SP[a1, a2], n] + S2[a6, a4, a5, SP[a1, a3], a2, n] + 
    S2[a6, a4, SP[a1, a3], a2, a5, n] + S2[a6, a4, SP[a1, a3], a5, a2, n] + 
    S2[a6, a4, SP[a1, a5], a3, a2, n] - S2[a6, a4, SP[a2, a3], a1, a5, n] + 
    S2[a6, SP[a1, a3], a2, a4, a5, n] + S2[a6, SP[a1, a3], a4, a2, a5, n] + 
    S2[a6, SP[a1, a3], a4, a5, a2, n] - S2[a6, SP[a2, a3], a1, a4, a5, n] - 
    S2[a6, SP[a2, a3], a4, a1, a5, n] + S2[SP[a1, a6], a3, a2, a4, a5, n] + 
    S2[SP[a1, a6], a3, a2, a5, a4, n] + S2[SP[a1, a6], a3, a4, a2, a5, n] + 
    S2[SP[a1, a6], a3, a4, a5, a2, n] + S2[SP[a1, a6], a3, a5, a2, a4, n] + 
    S2[SP[a1, a6], a3, a5, a4, a2, n] + S2[SP[a1, a6], a4, a3, a2, a5, n] + 
    S2[SP[a1, a6], a4, a3, a5, a2, n] + S2[SP[a1, a6], a4, a5, a3, a2, n] + 
    S2[SP[a1, a6], a5, a3, a2, a4, n] + S2[SP[a1, a6], a5, a3, a4, a2, n] + 
    S2[SP[a1, a6], a5, a4, a3, a2, n] - S2[SP[a2, a6], a3, a1, a4, a5, n] - 
    S2[SP[a2, a6], a3, a1, a5, a4, n] - S2[SP[a2, a6], a3, a4, a1, a5, n] - 
    S2[SP[a2, a6], a4, a3, a1, a5, n] - S2[SP[a4, a6], a1, a3, a2, a5, n] - 
    S2[SP[a4, a6], a1, a3, a5, a2, n] - S2[SP[a4, a6], a1, a5, a3, a2, n] + 
    S2[SP[a4, a6], a2, a3, a1, a5, n] - S2[a6, a3, a2, a4, a5, a1, n] - 
    S2[a6, a3, a4, a2, a5, a1, n] - S2[a6, a3, a4, a5, a1, a2, n] - 
    S2[a6, a3, a4, a5, a2, a1, n] - S2[a6, a4, a3, a2, a5, a1, n] - 
    S2[a6, a4, a3, a5, a1, a2, n] - S2[a6, a4, a3, a5, a2, a1, n] - 
    S2[a6, a4, a5, a1, a3, a2, n] - S2[a6, a4, a5, a3, a1, a2, n] - 
    S2[a6, a4, a5, a3, a2, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a1_, a5_, a6_, a2_, a3_, a4_, n_] :> 
  -(S2[a1, a5, n]*S2[a2, a3, a4, a6, n]) - S2[a1, a5, n]*
     S2[a2, a3, a6, a4, n] + S2[a2, a3, SP[a1, a4], SP[a5, a6], n] + 
    S2[a2, a3, SP[a1, a6], SP[a4, a5], n] - S2[a1, a5, n]*
     S2[a2, a6, a3, a4, n] + S2[a2, a6, SP[a1, a3], SP[a4, a5], n] + 
    S2[a2, SP[a1, a3], a4, SP[a5, a6], n] + S2[a2, SP[a1, a3], a6, 
     SP[a4, a5], n] + S2[a2, SP[a1, a3], SP[a4, a5], a6, n] + 
    S2[a2, SP[a1, a3], SP[a5, a6], a4, n] + S2[a2, SP[a1, a6], a3, 
     SP[a4, a5], n] + S2[a2, SP[a1, a6], SP[a3, a5], a4, n] + 
    S2[SP[a1, a2], a3, a4, SP[a5, a6], n] + S2[SP[a1, a2], a3, a6, 
     SP[a4, a5], n] + S2[SP[a1, a2], a3, SP[a4, a5], a6, n] + 
    S2[SP[a1, a2], a3, SP[a5, a6], a4, n] + S2[SP[a1, a2], a6, a3, 
     SP[a4, a5], n] + S2[SP[a1, a2], a6, SP[a3, a5], a4, n] + 
    S2[SP[a1, a2], SP[a3, a5], a4, a6, n] + S2[SP[a1, a2], SP[a3, a5], a6, 
     a4, n] + S2[SP[a1, a2], SP[a5, a6], a3, a4, n] - 
    S2[a1, a2, a3, a4, SP[a5, a6], n] - S2[a1, a2, a3, a6, SP[a4, a5], n] - 
    S2[a1, a2, a3, SP[a4, a5], a6, n] - S2[a1, a2, a3, SP[a5, a6], a4, n] - 
    S2[a1, a2, a6, a3, SP[a4, a5], n] - S2[a1, a2, a6, SP[a3, a5], a4, n] - 
    S2[a1, a2, SP[a3, a5], a4, a6, n] - S2[a1, a2, SP[a3, a5], a6, a4, n] - 
    S2[a1, a2, SP[a5, a6], a3, a4, n] - S2[a6, n]*S2[a1, a3, a2, a4, a5, n] - 
    S2[a1, a3, a2, a4, SP[a5, a6], n] - S2[a6, n]*S2[a1, a3, a2, a5, a4, n] - 
    S2[a1, a3, a2, a5, SP[a4, a6], n] - S2[a1, a3, a2, SP[a4, a6], a5, n] - 
    S2[a1, a3, a2, SP[a5, a6], a4, n] - S2[a6, n]*S2[a1, a3, a4, a2, a5, n] - 
    S2[a1, a3, a4, a2, SP[a5, a6], n] - S2[a6, n]*S2[a1, a3, a4, a5, a2, n] + 
    S2[a2, n]*S2[a1, a3, a4, a5, a6, n] + 
    S2[a2, n]*S2[a1, a3, a4, a6, a5, n] + S2[a1, a3, a4, a6, SP[a2, a5], n] + 
    S2[a1, a3, a4, SP[a2, a5], a6, n] - S2[a1, a3, a4, SP[a5, a6], a2, n] - 
    S2[a6, n]*S2[a1, a3, a5, a2, a4, n] - S2[a1, a3, a5, a2, SP[a4, a6], n] - 
    S2[a6, n]*S2[a1, a3, a5, a4, a2, n] + 
    S2[a2, n]*S2[a1, a3, a5, a4, a6, n] + 
    S2[a2, n]*S2[a1, a3, a5, a6, a4, n] + S2[a1, a3, a5, a6, SP[a2, a4], n] + 
    S2[a1, a3, a5, SP[a2, a4], a6, n] - S2[a1, a3, a5, SP[a4, a6], a2, n] + 
    S2[a2, n]*S2[a1, a3, a6, a4, a5, n] + S2[a1, a3, a6, a4, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a3, a6, a5, a4, n] + S2[a1, a3, a6, a5, SP[a2, a4], n] + 
    S2[a1, a3, a6, SP[a2, a4], a5, n] + S2[a1, a3, a6, SP[a2, a5], a4, n] + 
    S2[a1, a3, SP[a2, a4], a5, a6, n] + S2[a1, a3, SP[a2, a4], a6, a5, n] + 
    S2[a1, a3, SP[a2, a5], a4, a6, n] + S2[a1, a3, SP[a2, a5], a6, a4, n] - 
    S2[a1, a3, SP[a4, a6], a2, a5, n] - S2[a1, a3, SP[a4, a6], a5, a2, n] - 
    S2[a1, a3, SP[a5, a6], a2, a4, n] - S2[a1, a3, SP[a5, a6], a4, a2, n] - 
    S2[a6, n]*S2[a1, a5, a3, a2, a4, n] - S2[a1, a5, a3, a2, SP[a4, a6], n] - 
    S2[a6, n]*S2[a1, a5, a3, a4, a2, n] + 
    S2[a2, n]*S2[a1, a5, a3, a4, a6, n] + 
    S2[a2, n]*S2[a1, a5, a3, a6, a4, n] + S2[a1, a5, a3, a6, SP[a2, a4], n] + 
    S2[a1, a5, a3, SP[a2, a4], a6, n] - S2[a1, a5, a3, SP[a4, a6], a2, n] + 
    S2[a2, n]*S2[a1, a5, a6, a3, a4, n] + S2[a1, a5, a6, a3, SP[a2, a4], n] + 
    S2[a1, a5, a6, SP[a2, a3], a4, n] + S2[a1, a5, SP[a2, a3], a4, a6, n] + 
    S2[a1, a5, SP[a2, a3], a6, a4, n] + S2[a1, a5, SP[a2, a6], a3, a4, n] - 
    S2[a1, a5, SP[a3, a6], a2, a4, n] - S2[a1, a5, SP[a3, a6], a4, a2, n] + 
    S2[a2, n]*S2[a1, a6, a3, a4, a5, n] + S2[a1, a6, a3, a4, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a6, a3, a5, a4, n] + S2[a1, a6, a3, a5, SP[a2, a4], n] + 
    S2[a1, a6, a3, SP[a2, a4], a5, n] + S2[a1, a6, a3, SP[a2, a5], a4, n] + 
    S2[a2, n]*S2[a1, a6, a5, a3, a4, n] + S2[a1, a6, a5, a3, SP[a2, a4], n] + 
    S2[a1, a6, a5, SP[a2, a3], a4, n] + S2[a1, a6, SP[a2, a3], a4, a5, n] + 
    S2[a1, a6, SP[a2, a3], a5, a4, n] + S2[a1, a6, SP[a2, a5], a3, a4, n] + 
    S2[a1, SP[a2, a3], a4, a5, a6, n] + S2[a1, SP[a2, a3], a4, a6, a5, n] + 
    S2[a1, SP[a2, a3], a5, a4, a6, n] + S2[a1, SP[a2, a3], a5, a6, a4, n] + 
    S2[a1, SP[a2, a3], a6, a4, a5, n] + S2[a1, SP[a2, a3], a6, a5, a4, n] + 
    S2[a1, SP[a2, a6], a3, a4, a5, n] + S2[a1, SP[a2, a6], a3, a5, a4, n] + 
    S2[a1, SP[a2, a6], a5, a3, a4, n] - S2[a1, SP[a3, a6], a2, a4, a5, n] - 
    S2[a1, SP[a3, a6], a2, a5, a4, n] - S2[a1, SP[a3, a6], a4, a2, a5, n] - 
    S2[a1, SP[a3, a6], a4, a5, a2, n] - S2[a1, SP[a3, a6], a5, a2, a4, n] - 
    S2[a1, SP[a3, a6], a5, a4, a2, n] - S2[a1, SP[a5, a6], a3, a2, a4, n] - 
    S2[a1, SP[a5, a6], a3, a4, a2, n] - S2[a2, a1, a3, a4, SP[a5, a6], n] - 
    S2[a2, a1, a3, a6, SP[a4, a5], n] - S2[a2, a1, a3, SP[a4, a5], a6, n] - 
    S2[a2, a1, a3, SP[a5, a6], a4, n] - S2[a2, a1, a6, a3, SP[a4, a5], n] - 
    S2[a2, a1, a6, SP[a3, a5], a4, n] - S2[a2, a1, SP[a3, a5], a4, a6, n] - 
    S2[a2, a1, SP[a3, a5], a6, a4, n] - S2[a2, a1, SP[a5, a6], a3, a4, n] + 
    S2[a6, n]*S2[a2, a3, a1, a4, a5, n] + 
    S2[a6, n]*S2[a2, a3, a1, a5, a4, n] + S2[a2, a3, a1, a5, SP[a4, a6], n] - 
    S2[a2, a3, a1, a6, SP[a4, a5], n] - S2[a2, a3, a1, SP[a4, a5], a6, n] + 
    S2[a2, a3, a1, SP[a4, a6], a5, n] + S2[a6, n]*S2[a2, a3, a4, a1, a5, n] - 
    S2[a2, a3, a6, a1, SP[a4, a5], n] - S2[a2, a3, a6, SP[a1, a4], a5, n] - 
    S2[a2, a3, SP[a1, a4], a5, a6, n] - S2[a2, a3, SP[a1, a4], a6, a5, n] + 
    S2[a2, a3, SP[a4, a6], a1, a5, n] - S2[a2, a6, a1, a3, SP[a4, a5], n] - 
    S2[a2, a6, a1, SP[a3, a5], a4, n] - S2[a2, a6, a3, a1, SP[a4, a5], n] - 
    S2[a2, a6, a3, SP[a1, a4], a5, n] - S2[a2, a6, SP[a1, a3], a4, a5, n] - 
    S2[a2, a6, SP[a1, a3], a5, a4, n] - S2[a2, SP[a1, a3], a4, a5, a6, n] - 
    S2[a2, SP[a1, a3], a4, a6, a5, n] - S2[a2, SP[a1, a3], a5, a4, a6, n] - 
    S2[a2, SP[a1, a3], a5, a6, a4, n] - S2[a2, SP[a1, a3], a6, a4, a5, n] - 
    S2[a2, SP[a1, a3], a6, a5, a4, n] - S2[a2, SP[a1, a6], a3, a4, a5, n] - 
    S2[a2, SP[a1, a6], a3, a5, a4, n] - S2[a2, SP[a1, a6], a5, a3, a4, n] + 
    S2[a2, SP[a3, a6], a1, a4, a5, n] + S2[a2, SP[a3, a6], a1, a5, a4, n] + 
    S2[a2, SP[a3, a6], a4, a1, a5, n] + S2[a2, n]*S2[a6, a1, a3, a4, a5, n] + 
    S2[a6, a1, a3, a4, SP[a2, a5], n] + S2[a2, n]*S2[a6, a1, a3, a5, a4, n] + 
    S2[a6, a1, a3, a5, SP[a2, a4], n] + S2[a6, a1, a3, SP[a2, a4], a5, n] + 
    S2[a6, a1, a3, SP[a2, a5], a4, n] + S2[a2, n]*S2[a6, a1, a5, a3, a4, n] + 
    S2[a6, a1, a5, a3, SP[a2, a4], n] + S2[a6, a1, a5, SP[a2, a3], a4, n] + 
    S2[a6, a1, SP[a2, a3], a4, a5, n] + S2[a6, a1, SP[a2, a3], a5, a4, n] + 
    S2[a6, a1, SP[a2, a5], a3, a4, n] - S2[a1, n]*S2[a6, a2, a3, a4, a5, n] - 
    S2[a6, a2, a3, a4, SP[a1, a5], n] - S2[a1, n]*S2[a6, a2, a3, a5, a4, n] - 
    S2[a6, a2, a3, a5, SP[a1, a4], n] - S2[a6, a2, a3, SP[a1, a4], a5, n] - 
    S2[a6, a2, a3, SP[a1, a5], a4, n] - S2[a1, n]*S2[a6, a2, a5, a3, a4, n] - 
    S2[a6, a2, a5, a3, SP[a1, a4], n] - S2[a6, a2, a5, SP[a1, a3], a4, n] - 
    S2[a6, a2, SP[a1, a3], a4, a5, n] - S2[a6, a2, SP[a1, a3], a5, a4, n] - 
    S2[a6, a2, SP[a1, a5], a3, a4, n] - S2[a1, n]*S2[a6, a5, a2, a3, a4, n] - 
    S2[a6, a5, a2, a3, SP[a1, a4], n] - S2[a6, a5, a2, SP[a1, a3], a4, n] - 
    S2[a6, a5, SP[a1, a2], a3, a4, n] - S2[a6, SP[a1, a5], a2, a3, a4, n] - 
    S2[SP[a1, a6], a2, a3, a4, a5, n] - S2[SP[a1, a6], a2, a3, a5, a4, n] - 
    S2[SP[a1, a6], a2, a5, a3, a4, n] - S2[SP[a1, a6], a3, a2, a4, a5, n] - 
    S2[SP[a1, a6], a3, a2, a5, a4, n] - S2[SP[a1, a6], a3, a4, a2, a5, n] - 
    S2[SP[a1, a6], a3, a4, a5, a2, n] - S2[SP[a1, a6], a3, a5, a2, a4, n] - 
    S2[SP[a1, a6], a3, a5, a4, a2, n] - S2[SP[a1, a6], a5, a2, a3, a4, n] - 
    S2[SP[a1, a6], a5, a3, a2, a4, n] - S2[SP[a1, a6], a5, a3, a4, a2, n] + 
    S2[SP[a2, a6], a1, a3, a4, a5, n] + S2[SP[a2, a6], a1, a3, a5, a4, n] + 
    S2[SP[a2, a6], a1, a5, a3, a4, n] + S2[SP[a2, a6], a3, a1, a4, a5, n] + 
    S2[SP[a2, a6], a3, a1, a5, a4, n] + S2[SP[a2, a6], a3, a4, a1, a5, n] + 
    S2[a6, a2, a3, a4, a5, a1, n] + S2[a6, a2, a3, a5, a1, a4, n] + 
    S2[a6, a2, a3, a5, a4, a1, n] + S2[a6, a2, a5, a1, a3, a4, n] + 
    S2[a6, a2, a5, a3, a1, a4, n] + S2[a6, a2, a5, a3, a4, a1, n] + 
    S2[a6, a5, a1, a2, a3, a4, n] + S2[a6, a5, a2, a1, a3, a4, n] + 
    S2[a6, a5, a2, a3, a1, a4, n] + S2[a6, a5, a2, a3, a4, a1, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a1_, a5_, a6_, a2_, a4_, a3_, n_] :> 
  -(S2[a1, a5, n]*S2[a2, a4, a3, a6, n]) - S2[a1, a5, n]*
     S2[a2, a4, a6, a3, n] + S2[a2, a4, SP[a1, a3], SP[a5, a6], n] + 
    S2[a2, a4, SP[a1, a6], SP[a3, a5], n] - S2[a1, a5, n]*
     S2[a2, a6, a4, a3, n] + S2[a2, a6, SP[a1, a4], SP[a3, a5], n] + 
    S2[a2, SP[a1, a4], a3, SP[a5, a6], n] + S2[a2, SP[a1, a4], a6, 
     SP[a3, a5], n] + S2[a2, SP[a1, a4], SP[a3, a5], a6, n] + 
    S2[a2, SP[a1, a4], SP[a5, a6], a3, n] + S2[a2, SP[a1, a6], a4, 
     SP[a3, a5], n] + S2[a2, SP[a1, a6], SP[a4, a5], a3, n] + 
    S2[SP[a1, a2], a4, a3, SP[a5, a6], n] + S2[SP[a1, a2], a4, a6, 
     SP[a3, a5], n] + S2[SP[a1, a2], a4, SP[a3, a5], a6, n] + 
    S2[SP[a1, a2], a4, SP[a5, a6], a3, n] + S2[SP[a1, a2], a6, a4, 
     SP[a3, a5], n] + S2[SP[a1, a2], a6, SP[a4, a5], a3, n] + 
    S2[SP[a1, a2], SP[a4, a5], a3, a6, n] + S2[SP[a1, a2], SP[a4, a5], a6, 
     a3, n] + S2[SP[a1, a2], SP[a5, a6], a4, a3, n] - 
    S2[a1, a2, a4, a3, SP[a5, a6], n] - S2[a1, a2, a4, a6, SP[a3, a5], n] - 
    S2[a1, a2, a4, SP[a3, a5], a6, n] - S2[a1, a2, a4, SP[a5, a6], a3, n] - 
    S2[a1, a2, a6, a4, SP[a3, a5], n] - S2[a1, a2, a6, SP[a4, a5], a3, n] - 
    S2[a1, a2, SP[a4, a5], a3, a6, n] - S2[a1, a2, SP[a4, a5], a6, a3, n] - 
    S2[a1, a2, SP[a5, a6], a4, a3, n] - S2[a6, n]*S2[a1, a4, a2, a3, a5, n] - 
    S2[a1, a4, a2, a3, SP[a5, a6], n] - S2[a6, n]*S2[a1, a4, a2, a5, a3, n] - 
    S2[a1, a4, a2, a5, SP[a3, a6], n] - S2[a1, a4, a2, SP[a3, a6], a5, n] - 
    S2[a1, a4, a2, SP[a5, a6], a3, n] - S2[a6, n]*S2[a1, a4, a3, a2, a5, n] - 
    S2[a1, a4, a3, a2, SP[a5, a6], n] - S2[a6, n]*S2[a1, a4, a3, a5, a2, n] + 
    S2[a2, n]*S2[a1, a4, a3, a5, a6, n] + 
    S2[a2, n]*S2[a1, a4, a3, a6, a5, n] + S2[a1, a4, a3, a6, SP[a2, a5], n] + 
    S2[a1, a4, a3, SP[a2, a5], a6, n] - S2[a1, a4, a3, SP[a5, a6], a2, n] - 
    S2[a6, n]*S2[a1, a4, a5, a2, a3, n] - S2[a1, a4, a5, a2, SP[a3, a6], n] - 
    S2[a6, n]*S2[a1, a4, a5, a3, a2, n] + 
    S2[a2, n]*S2[a1, a4, a5, a3, a6, n] + 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] + S2[a1, a4, a5, a6, SP[a2, a3], n] + 
    S2[a1, a4, a5, SP[a2, a3], a6, n] - S2[a1, a4, a5, SP[a3, a6], a2, n] + 
    S2[a2, n]*S2[a1, a4, a6, a3, a5, n] + S2[a1, a4, a6, a3, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a4, a6, a5, a3, n] + S2[a1, a4, a6, a5, SP[a2, a3], n] + 
    S2[a1, a4, a6, SP[a2, a3], a5, n] + S2[a1, a4, a6, SP[a2, a5], a3, n] + 
    S2[a1, a4, SP[a2, a3], a5, a6, n] + S2[a1, a4, SP[a2, a3], a6, a5, n] + 
    S2[a1, a4, SP[a2, a5], a3, a6, n] + S2[a1, a4, SP[a2, a5], a6, a3, n] - 
    S2[a1, a4, SP[a3, a6], a2, a5, n] - S2[a1, a4, SP[a3, a6], a5, a2, n] - 
    S2[a1, a4, SP[a5, a6], a2, a3, n] - S2[a1, a4, SP[a5, a6], a3, a2, n] - 
    S2[a6, n]*S2[a1, a5, a4, a2, a3, n] - S2[a1, a5, a4, a2, SP[a3, a6], n] - 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] + 
    S2[a2, n]*S2[a1, a5, a4, a3, a6, n] + 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] + S2[a1, a5, a4, a6, SP[a2, a3], n] + 
    S2[a1, a5, a4, SP[a2, a3], a6, n] - S2[a1, a5, a4, SP[a3, a6], a2, n] + 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] + S2[a1, a5, a6, a4, SP[a2, a3], n] + 
    S2[a1, a5, a6, SP[a2, a4], a3, n] + S2[a1, a5, SP[a2, a4], a3, a6, n] + 
    S2[a1, a5, SP[a2, a4], a6, a3, n] + S2[a1, a5, SP[a2, a6], a4, a3, n] - 
    S2[a1, a5, SP[a4, a6], a2, a3, n] - S2[a1, a5, SP[a4, a6], a3, a2, n] + 
    S2[a2, n]*S2[a1, a6, a4, a3, a5, n] + S2[a1, a6, a4, a3, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a6, a4, a5, a3, n] + S2[a1, a6, a4, a5, SP[a2, a3], n] + 
    S2[a1, a6, a4, SP[a2, a3], a5, n] + S2[a1, a6, a4, SP[a2, a5], a3, n] + 
    S2[a2, n]*S2[a1, a6, a5, a4, a3, n] + S2[a1, a6, a5, a4, SP[a2, a3], n] + 
    S2[a1, a6, a5, SP[a2, a4], a3, n] + S2[a1, a6, SP[a2, a4], a3, a5, n] + 
    S2[a1, a6, SP[a2, a4], a5, a3, n] + S2[a1, a6, SP[a2, a5], a4, a3, n] + 
    S2[a1, SP[a2, a4], a3, a5, a6, n] + S2[a1, SP[a2, a4], a3, a6, a5, n] + 
    S2[a1, SP[a2, a4], a5, a3, a6, n] + S2[a1, SP[a2, a4], a5, a6, a3, n] + 
    S2[a1, SP[a2, a4], a6, a3, a5, n] + S2[a1, SP[a2, a4], a6, a5, a3, n] + 
    S2[a1, SP[a2, a6], a4, a3, a5, n] + S2[a1, SP[a2, a6], a4, a5, a3, n] + 
    S2[a1, SP[a2, a6], a5, a4, a3, n] - S2[a1, SP[a4, a6], a2, a3, a5, n] - 
    S2[a1, SP[a4, a6], a2, a5, a3, n] - S2[a1, SP[a4, a6], a3, a2, a5, n] - 
    S2[a1, SP[a4, a6], a3, a5, a2, n] - S2[a1, SP[a4, a6], a5, a2, a3, n] - 
    S2[a1, SP[a4, a6], a5, a3, a2, n] - S2[a1, SP[a5, a6], a4, a2, a3, n] - 
    S2[a1, SP[a5, a6], a4, a3, a2, n] - S2[a2, a1, a4, a3, SP[a5, a6], n] - 
    S2[a2, a1, a4, a6, SP[a3, a5], n] - S2[a2, a1, a4, SP[a3, a5], a6, n] - 
    S2[a2, a1, a4, SP[a5, a6], a3, n] - S2[a2, a1, a6, a4, SP[a3, a5], n] - 
    S2[a2, a1, a6, SP[a4, a5], a3, n] - S2[a2, a1, SP[a4, a5], a3, a6, n] - 
    S2[a2, a1, SP[a4, a5], a6, a3, n] - S2[a2, a1, SP[a5, a6], a4, a3, n] + 
    S2[a6, n]*S2[a2, a4, a1, a3, a5, n] + 
    S2[a6, n]*S2[a2, a4, a1, a5, a3, n] + S2[a2, a4, a1, a5, SP[a3, a6], n] - 
    S2[a2, a4, a1, a6, SP[a3, a5], n] - S2[a2, a4, a1, SP[a3, a5], a6, n] + 
    S2[a2, a4, a1, SP[a3, a6], a5, n] + S2[a6, n]*S2[a2, a4, a3, a1, a5, n] - 
    S2[a2, a4, a6, a1, SP[a3, a5], n] - S2[a2, a4, a6, SP[a1, a3], a5, n] - 
    S2[a2, a4, SP[a1, a3], a5, a6, n] - S2[a2, a4, SP[a1, a3], a6, a5, n] + 
    S2[a2, a4, SP[a3, a6], a1, a5, n] - S2[a2, a6, a1, a4, SP[a3, a5], n] - 
    S2[a2, a6, a1, SP[a4, a5], a3, n] - S2[a2, a6, a4, a1, SP[a3, a5], n] - 
    S2[a2, a6, a4, SP[a1, a3], a5, n] - S2[a2, a6, SP[a1, a4], a3, a5, n] - 
    S2[a2, a6, SP[a1, a4], a5, a3, n] - S2[a2, SP[a1, a4], a3, a5, a6, n] - 
    S2[a2, SP[a1, a4], a3, a6, a5, n] - S2[a2, SP[a1, a4], a5, a3, a6, n] - 
    S2[a2, SP[a1, a4], a5, a6, a3, n] - S2[a2, SP[a1, a4], a6, a3, a5, n] - 
    S2[a2, SP[a1, a4], a6, a5, a3, n] - S2[a2, SP[a1, a6], a4, a3, a5, n] - 
    S2[a2, SP[a1, a6], a4, a5, a3, n] - S2[a2, SP[a1, a6], a5, a4, a3, n] + 
    S2[a2, SP[a4, a6], a1, a3, a5, n] + S2[a2, SP[a4, a6], a1, a5, a3, n] + 
    S2[a2, SP[a4, a6], a3, a1, a5, n] + S2[a2, n]*S2[a6, a1, a4, a3, a5, n] + 
    S2[a6, a1, a4, a3, SP[a2, a5], n] + S2[a2, n]*S2[a6, a1, a4, a5, a3, n] + 
    S2[a6, a1, a4, a5, SP[a2, a3], n] + S2[a6, a1, a4, SP[a2, a3], a5, n] + 
    S2[a6, a1, a4, SP[a2, a5], a3, n] + S2[a2, n]*S2[a6, a1, a5, a4, a3, n] + 
    S2[a6, a1, a5, a4, SP[a2, a3], n] + S2[a6, a1, a5, SP[a2, a4], a3, n] + 
    S2[a6, a1, SP[a2, a4], a3, a5, n] + S2[a6, a1, SP[a2, a4], a5, a3, n] + 
    S2[a6, a1, SP[a2, a5], a4, a3, n] - S2[a1, n]*S2[a6, a2, a4, a3, a5, n] - 
    S2[a6, a2, a4, a3, SP[a1, a5], n] - S2[a1, n]*S2[a6, a2, a4, a5, a3, n] - 
    S2[a6, a2, a4, a5, SP[a1, a3], n] - S2[a6, a2, a4, SP[a1, a3], a5, n] - 
    S2[a6, a2, a4, SP[a1, a5], a3, n] - S2[a1, n]*S2[a6, a2, a5, a4, a3, n] - 
    S2[a6, a2, a5, a4, SP[a1, a3], n] - S2[a6, a2, a5, SP[a1, a4], a3, n] - 
    S2[a6, a2, SP[a1, a4], a3, a5, n] - S2[a6, a2, SP[a1, a4], a5, a3, n] - 
    S2[a6, a2, SP[a1, a5], a4, a3, n] - S2[a1, n]*S2[a6, a5, a2, a4, a3, n] - 
    S2[a6, a5, a2, a4, SP[a1, a3], n] - S2[a6, a5, a2, SP[a1, a4], a3, n] - 
    S2[a6, a5, SP[a1, a2], a4, a3, n] - S2[a6, SP[a1, a5], a2, a4, a3, n] - 
    S2[SP[a1, a6], a2, a4, a3, a5, n] - S2[SP[a1, a6], a2, a4, a5, a3, n] - 
    S2[SP[a1, a6], a2, a5, a4, a3, n] - S2[SP[a1, a6], a4, a2, a3, a5, n] - 
    S2[SP[a1, a6], a4, a2, a5, a3, n] - S2[SP[a1, a6], a4, a3, a2, a5, n] - 
    S2[SP[a1, a6], a4, a3, a5, a2, n] - S2[SP[a1, a6], a4, a5, a2, a3, n] - 
    S2[SP[a1, a6], a4, a5, a3, a2, n] - S2[SP[a1, a6], a5, a2, a4, a3, n] - 
    S2[SP[a1, a6], a5, a4, a2, a3, n] - S2[SP[a1, a6], a5, a4, a3, a2, n] + 
    S2[SP[a2, a6], a1, a4, a3, a5, n] + S2[SP[a2, a6], a1, a4, a5, a3, n] + 
    S2[SP[a2, a6], a1, a5, a4, a3, n] + S2[SP[a2, a6], a4, a1, a3, a5, n] + 
    S2[SP[a2, a6], a4, a1, a5, a3, n] + S2[SP[a2, a6], a4, a3, a1, a5, n] + 
    S2[a6, a2, a4, a3, a5, a1, n] + S2[a6, a2, a4, a5, a1, a3, n] + 
    S2[a6, a2, a4, a5, a3, a1, n] + S2[a6, a2, a5, a1, a4, a3, n] + 
    S2[a6, a2, a5, a4, a1, a3, n] + S2[a6, a2, a5, a4, a3, a1, n] + 
    S2[a6, a5, a1, a2, a4, a3, n] + S2[a6, a5, a2, a1, a4, a3, n] + 
    S2[a6, a5, a2, a4, a1, a3, n] + S2[a6, a5, a2, a4, a3, a1, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a1_, a5_, a6_, a3_, a2_, a4_, n_] :> 
  S2[a1, a5, n]*S2[a2, a3, a4, a6, n] + S2[a1, a5, n]*S2[a2, a3, a6, a4, n] - 
    S2[a2, a3, SP[a1, a4], SP[a5, a6], n] - S2[a2, a3, SP[a1, a6], 
     SP[a4, a5], n] + S2[a1, a5, n]*S2[a2, a4, a3, a6, n] + 
    S2[a1, a5, n]*S2[a2, a4, a6, a3, n] - S2[a2, a4, SP[a1, a3], SP[a5, a6], 
     n] - S2[a2, a4, SP[a1, a6], SP[a3, a5], n] + 
    S2[a1, a5, n]*S2[a2, a6, a3, a4, n] + S2[a1, a5, n]*
     S2[a2, a6, a4, a3, n] - S2[a2, a6, SP[a1, a3], SP[a4, a5], n] - 
    S2[a2, a6, SP[a1, a4], SP[a3, a5], n] - S2[a2, SP[a1, a3], a4, 
     SP[a5, a6], n] - S2[a2, SP[a1, a3], a6, SP[a4, a5], n] - 
    S2[a2, SP[a1, a3], SP[a4, a5], a6, n] - S2[a2, SP[a1, a3], SP[a5, a6], 
     a4, n] - S2[a2, SP[a1, a4], a3, SP[a5, a6], n] - 
    S2[a2, SP[a1, a4], a6, SP[a3, a5], n] - S2[a2, SP[a1, a4], SP[a3, a5], 
     a6, n] - S2[a2, SP[a1, a4], SP[a5, a6], a3, n] - 
    S2[a2, SP[a1, a6], a3, SP[a4, a5], n] - S2[a2, SP[a1, a6], a4, 
     SP[a3, a5], n] - S2[a2, SP[a1, a6], SP[a3, a5], a4, n] - 
    S2[a2, SP[a1, a6], SP[a4, a5], a3, n] - S2[a1, a5, n]*
     S2[a3, a6, a2, a4, n] + S2[a3, a6, SP[a1, a2], SP[a4, a5], n] + 
    S2[a3, SP[a1, a6], a2, SP[a4, a5], n] + S2[a3, SP[a1, a6], SP[a2, a5], 
     a4, n] - S2[SP[a1, a2], a3, a4, SP[a5, a6], n] - 
    S2[SP[a1, a2], a3, a6, SP[a4, a5], n] - S2[SP[a1, a2], a3, SP[a4, a5], 
     a6, n] - S2[SP[a1, a2], a3, SP[a5, a6], a4, n] - 
    S2[SP[a1, a2], a4, a3, SP[a5, a6], n] - S2[SP[a1, a2], a4, a6, 
     SP[a3, a5], n] - S2[SP[a1, a2], a4, SP[a3, a5], a6, n] - 
    S2[SP[a1, a2], a4, SP[a5, a6], a3, n] - S2[SP[a1, a2], a6, a3, 
     SP[a4, a5], n] - S2[SP[a1, a2], a6, a4, SP[a3, a5], n] - 
    S2[SP[a1, a2], a6, SP[a3, a5], a4, n] - S2[SP[a1, a2], a6, SP[a4, a5], 
     a3, n] - S2[SP[a1, a2], SP[a3, a5], a4, a6, n] - 
    S2[SP[a1, a2], SP[a3, a5], a6, a4, n] - S2[SP[a1, a2], SP[a4, a5], a3, 
     a6, n] - S2[SP[a1, a2], SP[a4, a5], a6, a3, n] - 
    S2[SP[a1, a2], SP[a5, a6], a3, a4, n] - S2[SP[a1, a2], SP[a5, a6], a4, 
     a3, n] + S2[SP[a1, a3], a6, a2, SP[a4, a5], n] + 
    S2[SP[a1, a3], a6, SP[a2, a5], a4, n] + S2[SP[a1, a3], SP[a5, a6], a2, 
     a4, n] + S2[a1, a2, a3, a4, SP[a5, a6], n] + 
    S2[a1, a2, a3, a6, SP[a4, a5], n] + S2[a1, a2, a3, SP[a4, a5], a6, n] + 
    S2[a1, a2, a3, SP[a5, a6], a4, n] + S2[a1, a2, a4, a3, SP[a5, a6], n] + 
    S2[a1, a2, a4, a6, SP[a3, a5], n] + S2[a1, a2, a4, SP[a3, a5], a6, n] + 
    S2[a1, a2, a4, SP[a5, a6], a3, n] + S2[a1, a2, a6, a3, SP[a4, a5], n] + 
    S2[a1, a2, a6, a4, SP[a3, a5], n] + S2[a1, a2, a6, SP[a3, a5], a4, n] + 
    S2[a1, a2, a6, SP[a4, a5], a3, n] + S2[a1, a2, SP[a3, a5], a4, a6, n] + 
    S2[a1, a2, SP[a3, a5], a6, a4, n] + S2[a1, a2, SP[a4, a5], a3, a6, n] + 
    S2[a1, a2, SP[a4, a5], a6, a3, n] + S2[a1, a2, SP[a5, a6], a3, a4, n] + 
    S2[a1, a2, SP[a5, a6], a4, a3, n] + S2[a6, n]*S2[a1, a3, a2, a4, a5, n] + 
    S2[a1, a3, a2, a4, SP[a5, a6], n] + S2[a6, n]*S2[a1, a3, a2, a5, a4, n] + 
    S2[a1, a3, a2, a5, SP[a4, a6], n] + S2[a1, a3, a2, SP[a4, a6], a5, n] + 
    S2[a1, a3, a2, SP[a5, a6], a4, n] + S2[a6, n]*S2[a1, a3, a4, a2, a5, n] + 
    S2[a1, a3, a4, a2, SP[a5, a6], n] + S2[a6, n]*S2[a1, a3, a4, a5, a2, n] - 
    S2[a2, n]*S2[a1, a3, a4, a5, a6, n] - 
    S2[a2, n]*S2[a1, a3, a4, a6, a5, n] - S2[a1, a3, a4, a6, SP[a2, a5], n] - 
    S2[a1, a3, a4, SP[a2, a5], a6, n] + S2[a1, a3, a4, SP[a5, a6], a2, n] + 
    S2[a6, n]*S2[a1, a3, a5, a2, a4, n] + S2[a1, a3, a5, a2, SP[a4, a6], n] + 
    S2[a6, n]*S2[a1, a3, a5, a4, a2, n] - 
    S2[a2, n]*S2[a1, a3, a5, a4, a6, n] - 
    S2[a2, n]*S2[a1, a3, a5, a6, a4, n] - S2[a1, a3, a5, a6, SP[a2, a4], n] - 
    S2[a1, a3, a5, SP[a2, a4], a6, n] + S2[a1, a3, a5, SP[a4, a6], a2, n] - 
    S2[a1, a3, a6, a2, SP[a4, a5], n] - S2[a2, n]*S2[a1, a3, a6, a4, a5, n] - 
    S2[a1, a3, a6, a4, SP[a2, a5], n] - S2[a2, n]*S2[a1, a3, a6, a5, a4, n] - 
    S2[a1, a3, a6, a5, SP[a2, a4], n] - S2[a1, a3, a6, SP[a2, a4], a5, n] - 
    2*S2[a1, a3, a6, SP[a2, a5], a4, n] - S2[a1, a3, SP[a2, a4], a5, a6, n] - 
    S2[a1, a3, SP[a2, a4], a6, a5, n] - S2[a1, a3, SP[a2, a5], a4, a6, n] - 
    S2[a1, a3, SP[a2, a5], a6, a4, n] + S2[a1, a3, SP[a4, a6], a2, a5, n] + 
    S2[a1, a3, SP[a4, a6], a5, a2, n] + S2[a1, a3, SP[a5, a6], a4, a2, n] + 
    S2[a6, n]*S2[a1, a4, a2, a3, a5, n] + S2[a1, a4, a2, a3, SP[a5, a6], n] + 
    S2[a6, n]*S2[a1, a4, a2, a5, a3, n] + S2[a1, a4, a2, a5, SP[a3, a6], n] + 
    S2[a1, a4, a2, SP[a3, a6], a5, n] + S2[a1, a4, a2, SP[a5, a6], a3, n] + 
    S2[a6, n]*S2[a1, a4, a3, a2, a5, n] + S2[a1, a4, a3, a2, SP[a5, a6], n] + 
    S2[a6, n]*S2[a1, a4, a3, a5, a2, n] - 
    S2[a2, n]*S2[a1, a4, a3, a5, a6, n] - 
    S2[a2, n]*S2[a1, a4, a3, a6, a5, n] - S2[a1, a4, a3, a6, SP[a2, a5], n] - 
    S2[a1, a4, a3, SP[a2, a5], a6, n] + S2[a1, a4, a3, SP[a5, a6], a2, n] + 
    S2[a6, n]*S2[a1, a4, a5, a2, a3, n] + S2[a1, a4, a5, a2, SP[a3, a6], n] + 
    S2[a6, n]*S2[a1, a4, a5, a3, a2, n] - 
    S2[a2, n]*S2[a1, a4, a5, a3, a6, n] - 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] - S2[a1, a4, a5, a6, SP[a2, a3], n] - 
    S2[a1, a4, a5, SP[a2, a3], a6, n] + S2[a1, a4, a5, SP[a3, a6], a2, n] - 
    S2[a2, n]*S2[a1, a4, a6, a3, a5, n] - S2[a1, a4, a6, a3, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a4, a6, a5, a3, n] - S2[a1, a4, a6, a5, SP[a2, a3], n] - 
    S2[a1, a4, a6, SP[a2, a3], a5, n] - S2[a1, a4, a6, SP[a2, a5], a3, n] - 
    S2[a1, a4, SP[a2, a3], a5, a6, n] - S2[a1, a4, SP[a2, a3], a6, a5, n] - 
    S2[a1, a4, SP[a2, a5], a3, a6, n] - S2[a1, a4, SP[a2, a5], a6, a3, n] + 
    S2[a1, a4, SP[a3, a6], a2, a5, n] + S2[a1, a4, SP[a3, a6], a5, a2, n] + 
    S2[a1, a4, SP[a5, a6], a2, a3, n] + S2[a1, a4, SP[a5, a6], a3, a2, n] + 
    S2[a6, n]*S2[a1, a5, a3, a2, a4, n] + S2[a1, a5, a3, a2, SP[a4, a6], n] + 
    S2[a6, n]*S2[a1, a5, a3, a4, a2, n] - 
    S2[a2, n]*S2[a1, a5, a3, a4, a6, n] - 
    S2[a2, n]*S2[a1, a5, a3, a6, a4, n] - S2[a1, a5, a3, a6, SP[a2, a4], n] - 
    S2[a1, a5, a3, SP[a2, a4], a6, n] + S2[a1, a5, a3, SP[a4, a6], a2, n] + 
    S2[a6, n]*S2[a1, a5, a4, a2, a3, n] + S2[a1, a5, a4, a2, SP[a3, a6], n] + 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] - 
    S2[a2, n]*S2[a1, a5, a4, a3, a6, n] - 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] - S2[a1, a5, a4, a6, SP[a2, a3], n] - 
    S2[a1, a5, a4, SP[a2, a3], a6, n] + S2[a1, a5, a4, SP[a3, a6], a2, n] + 
    S2[a3, n]*S2[a1, a5, a6, a2, a4, n] + S2[a1, a5, a6, a2, SP[a3, a4], n] - 
    S2[a2, n]*S2[a1, a5, a6, a3, a4, n] - S2[a1, a5, a6, a3, SP[a2, a4], n] - 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] - S2[a1, a5, a6, a4, SP[a2, a3], n] - 
    S2[a1, a5, a6, SP[a2, a4], a3, n] - S2[a1, a5, SP[a2, a3], a4, a6, n] - 
    S2[a1, a5, SP[a2, a3], a6, a4, n] - S2[a1, a5, SP[a2, a4], a3, a6, n] - 
    S2[a1, a5, SP[a2, a4], a6, a3, n] - S2[a1, a5, SP[a2, a6], a3, a4, n] - 
    S2[a1, a5, SP[a2, a6], a4, a3, n] + 2*S2[a1, a5, SP[a3, a6], a2, a4, n] + 
    S2[a1, a5, SP[a3, a6], a4, a2, n] + S2[a1, a5, SP[a4, a6], a2, a3, n] + 
    S2[a1, a5, SP[a4, a6], a3, a2, n] + S2[a3, n]*S2[a1, a6, a2, a4, a5, n] + 
    S2[a1, a6, a2, a4, SP[a3, a5], n] + S2[a3, n]*S2[a1, a6, a2, a5, a4, n] + 
    S2[a1, a6, a2, a5, SP[a3, a4], n] + S2[a1, a6, a2, SP[a3, a4], a5, n] + 
    S2[a1, a6, a2, SP[a3, a5], a4, n] - S2[a2, n]*S2[a1, a6, a3, a4, a5, n] - 
    S2[a1, a6, a3, a4, SP[a2, a5], n] - S2[a2, n]*S2[a1, a6, a3, a5, a4, n] - 
    S2[a1, a6, a3, a5, SP[a2, a4], n] - S2[a1, a6, a3, SP[a2, a4], a5, n] - 
    S2[a1, a6, a3, SP[a2, a5], a4, n] - S2[a2, n]*S2[a1, a6, a4, a3, a5, n] - 
    S2[a1, a6, a4, a3, SP[a2, a5], n] - S2[a2, n]*S2[a1, a6, a4, a5, a3, n] - 
    S2[a1, a6, a4, a5, SP[a2, a3], n] - S2[a1, a6, a4, SP[a2, a3], a5, n] - 
    S2[a1, a6, a4, SP[a2, a5], a3, n] + S2[a3, n]*S2[a1, a6, a5, a2, a4, n] + 
    S2[a1, a6, a5, a2, SP[a3, a4], n] - S2[a2, n]*S2[a1, a6, a5, a3, a4, n] - 
    S2[a1, a6, a5, a3, SP[a2, a4], n] - S2[a2, n]*S2[a1, a6, a5, a4, a3, n] - 
    S2[a1, a6, a5, a4, SP[a2, a3], n] - S2[a1, a6, a5, SP[a2, a4], a3, n] - 
    S2[a1, a6, SP[a2, a4], a3, a5, n] - S2[a1, a6, SP[a2, a4], a5, a3, n] - 
    S2[a1, a6, SP[a2, a5], a3, a4, n] - S2[a1, a6, SP[a2, a5], a4, a3, n] + 
    S2[a1, a6, SP[a3, a5], a2, a4, n] - S2[a1, SP[a2, a3], a4, a5, a6, n] - 
    S2[a1, SP[a2, a3], a4, a6, a5, n] - S2[a1, SP[a2, a3], a5, a4, a6, n] - 
    S2[a1, SP[a2, a3], a5, a6, a4, n] - S2[a1, SP[a2, a3], a6, a4, a5, n] - 
    S2[a1, SP[a2, a3], a6, a5, a4, n] - S2[a1, SP[a2, a4], a3, a5, a6, n] - 
    S2[a1, SP[a2, a4], a3, a6, a5, n] - S2[a1, SP[a2, a4], a5, a3, a6, n] - 
    S2[a1, SP[a2, a4], a5, a6, a3, n] - S2[a1, SP[a2, a4], a6, a3, a5, n] - 
    S2[a1, SP[a2, a4], a6, a5, a3, n] - S2[a1, SP[a2, a6], a3, a4, a5, n] - 
    S2[a1, SP[a2, a6], a3, a5, a4, n] - S2[a1, SP[a2, a6], a4, a3, a5, n] - 
    S2[a1, SP[a2, a6], a4, a5, a3, n] - S2[a1, SP[a2, a6], a5, a3, a4, n] - 
    S2[a1, SP[a2, a6], a5, a4, a3, n] + 2*S2[a1, SP[a3, a6], a2, a4, a5, n] + 
    2*S2[a1, SP[a3, a6], a2, a5, a4, n] + S2[a1, SP[a3, a6], a4, a2, a5, n] + 
    S2[a1, SP[a3, a6], a4, a5, a2, n] + 2*S2[a1, SP[a3, a6], a5, a2, a4, n] + 
    S2[a1, SP[a3, a6], a5, a4, a2, n] + S2[a1, SP[a4, a6], a2, a3, a5, n] + 
    S2[a1, SP[a4, a6], a2, a5, a3, n] + S2[a1, SP[a4, a6], a3, a2, a5, n] + 
    S2[a1, SP[a4, a6], a3, a5, a2, n] + S2[a1, SP[a4, a6], a5, a2, a3, n] + 
    S2[a1, SP[a4, a6], a5, a3, a2, n] + S2[a1, SP[a5, a6], a3, a2, a4, n] + 
    S2[a1, SP[a5, a6], a3, a4, a2, n] + S2[a1, SP[a5, a6], a4, a2, a3, n] + 
    S2[a1, SP[a5, a6], a4, a3, a2, n] + S2[a2, a1, a3, a4, SP[a5, a6], n] + 
    S2[a2, a1, a3, a6, SP[a4, a5], n] + S2[a2, a1, a3, SP[a4, a5], a6, n] + 
    S2[a2, a1, a3, SP[a5, a6], a4, n] + S2[a2, a1, a4, a3, SP[a5, a6], n] + 
    S2[a2, a1, a4, a6, SP[a3, a5], n] + S2[a2, a1, a4, SP[a3, a5], a6, n] + 
    S2[a2, a1, a4, SP[a5, a6], a3, n] + S2[a2, a1, a6, a3, SP[a4, a5], n] + 
    S2[a2, a1, a6, a4, SP[a3, a5], n] + S2[a2, a1, a6, SP[a3, a5], a4, n] + 
    S2[a2, a1, a6, SP[a4, a5], a3, n] + S2[a2, a1, SP[a3, a5], a4, a6, n] + 
    S2[a2, a1, SP[a3, a5], a6, a4, n] + S2[a2, a1, SP[a4, a5], a3, a6, n] + 
    S2[a2, a1, SP[a4, a5], a6, a3, n] + S2[a2, a1, SP[a5, a6], a3, a4, n] + 
    S2[a2, a1, SP[a5, a6], a4, a3, n] - S2[a6, n]*S2[a2, a3, a1, a4, a5, n] - 
    S2[a6, n]*S2[a2, a3, a1, a5, a4, n] - S2[a2, a3, a1, a5, SP[a4, a6], n] + 
    S2[a2, a3, a1, a6, SP[a4, a5], n] + S2[a2, a3, a1, SP[a4, a5], a6, n] - 
    S2[a2, a3, a1, SP[a4, a6], a5, n] - S2[a6, n]*S2[a2, a3, a4, a1, a5, n] + 
    S2[a2, a3, a6, a1, SP[a4, a5], n] + S2[a2, a3, a6, SP[a1, a4], a5, n] + 
    S2[a2, a3, SP[a1, a4], a5, a6, n] + S2[a2, a3, SP[a1, a4], a6, a5, n] - 
    S2[a2, a3, SP[a4, a6], a1, a5, n] - S2[a6, n]*S2[a2, a4, a1, a3, a5, n] - 
    S2[a6, n]*S2[a2, a4, a1, a5, a3, n] - S2[a2, a4, a1, a5, SP[a3, a6], n] + 
    S2[a2, a4, a1, a6, SP[a3, a5], n] + S2[a2, a4, a1, SP[a3, a5], a6, n] - 
    S2[a2, a4, a1, SP[a3, a6], a5, n] - S2[a6, n]*S2[a2, a4, a3, a1, a5, n] + 
    S2[a2, a4, a6, a1, SP[a3, a5], n] + S2[a2, a4, a6, SP[a1, a3], a5, n] + 
    S2[a2, a4, SP[a1, a3], a5, a6, n] + S2[a2, a4, SP[a1, a3], a6, a5, n] - 
    S2[a2, a4, SP[a3, a6], a1, a5, n] + S2[a2, a6, a1, a3, SP[a4, a5], n] - 
    S2[a3, n]*S2[a2, a6, a1, a4, a5, n] - 
    S2[a3, n]*S2[a2, a6, a1, a5, a4, n] - S2[a2, a6, a1, a5, SP[a3, a4], n] - 
    S2[a2, a6, a1, SP[a3, a4], a5, n] + S2[a2, a6, a1, SP[a4, a5], a3, n] + 
    S2[a2, a6, a3, a1, SP[a4, a5], n] + S2[a2, a6, a3, SP[a1, a4], a5, n] + 
    S2[a2, a6, a4, a1, SP[a3, a5], n] + S2[a2, a6, a4, SP[a1, a3], a5, n] + 
    S2[a2, a6, SP[a1, a4], a3, a5, n] + S2[a2, a6, SP[a1, a4], a5, a3, n] + 
    S2[a2, SP[a1, a3], a4, a5, a6, n] + S2[a2, SP[a1, a3], a4, a6, a5, n] + 
    S2[a2, SP[a1, a3], a5, a4, a6, n] + S2[a2, SP[a1, a3], a5, a6, a4, n] + 
    S2[a2, SP[a1, a3], a6, a4, a5, n] + S2[a2, SP[a1, a3], a6, a5, a4, n] + 
    S2[a2, SP[a1, a4], a3, a5, a6, n] + S2[a2, SP[a1, a4], a3, a6, a5, n] + 
    S2[a2, SP[a1, a4], a5, a3, a6, n] + S2[a2, SP[a1, a4], a5, a6, a3, n] + 
    S2[a2, SP[a1, a4], a6, a3, a5, n] + S2[a2, SP[a1, a4], a6, a5, a3, n] + 
    S2[a2, SP[a1, a6], a3, a4, a5, n] + S2[a2, SP[a1, a6], a3, a5, a4, n] + 
    S2[a2, SP[a1, a6], a4, a3, a5, n] + S2[a2, SP[a1, a6], a4, a5, a3, n] + 
    S2[a2, SP[a1, a6], a5, a3, a4, n] + S2[a2, SP[a1, a6], a5, a4, a3, n] - 
    2*S2[a2, SP[a3, a6], a1, a4, a5, n] - 
    2*S2[a2, SP[a3, a6], a1, a5, a4, n] - S2[a2, SP[a3, a6], a4, a1, a5, n] - 
    S2[a2, SP[a4, a6], a1, a3, a5, n] - S2[a2, SP[a4, a6], a1, a5, a3, n] - 
    S2[a2, SP[a4, a6], a3, a1, a5, n] - S2[a3, a1, a6, a2, SP[a4, a5], n] - 
    S2[a3, a1, a6, SP[a2, a5], a4, n] - S2[a3, a1, SP[a5, a6], a2, a4, n] - 
    S2[a3, a6, a1, a2, SP[a4, a5], n] + S2[a2, n]*S2[a3, a6, a1, a4, a5, n] + 
    S2[a3, a6, a1, a4, SP[a2, a5], n] + S2[a2, n]*S2[a3, a6, a1, a5, a4, n] + 
    S2[a3, a6, a1, a5, SP[a2, a4], n] + S2[a3, a6, a1, SP[a2, a4], a5, n] - 
    S2[a3, a6, a2, a1, SP[a4, a5], n] - S2[a3, a6, a2, SP[a1, a4], a5, n] - 
    S2[a3, SP[a1, a6], a2, a4, a5, n] - S2[a3, SP[a1, a6], a2, a5, a4, n] - 
    S2[a3, SP[a1, a6], a5, a2, a4, n] + S2[a3, SP[a2, a6], a1, a4, a5, n] + 
    S2[a3, SP[a2, a6], a1, a5, a4, n] - S2[a3, n]*S2[a6, a1, a4, a2, a5, n] - 
    S2[a6, a1, a4, a2, SP[a3, a5], n] - S2[a3, n]*S2[a6, a1, a4, a5, a2, n] - 
    S2[a6, a1, a4, a5, SP[a2, a3], n] - S2[a6, a1, a4, SP[a2, a3], a5, n] - 
    S2[a6, a1, a4, SP[a3, a5], a2, n] - S2[a3, n]*S2[a6, a1, a5, a4, a2, n] - 
    S2[a6, a1, a5, a4, SP[a2, a3], n] - S2[a6, a1, a5, SP[a3, a4], a2, n] - 
    S2[a6, a1, SP[a3, a4], a2, a5, n] - S2[a6, a1, SP[a3, a4], a5, a2, n] - 
    S2[a6, a1, SP[a3, a5], a4, a2, n] + S2[a3, n]*S2[a6, a2, a4, a1, a5, n] + 
    S2[a6, a2, a4, a1, SP[a3, a5], n] + S2[a6, a2, a4, SP[a1, a3], a5, n] + 
    S2[a6, a2, SP[a3, a4], a1, a5, n] + S2[a2, n]*S2[a6, a3, a1, a4, a5, n] + 
    S2[a6, a3, a1, a4, SP[a2, a5], n] + S2[a2, n]*S2[a6, a3, a1, a5, a4, n] + 
    S2[a6, a3, a1, a5, SP[a2, a4], n] + S2[a6, a3, a1, SP[a2, a4], a5, n] + 
    S2[a6, a3, a1, SP[a2, a5], a4, n] - S2[a1, n]*S2[a6, a3, a2, a4, a5, n] - 
    S2[a6, a3, a2, a4, SP[a1, a5], n] - S2[a1, n]*S2[a6, a3, a2, a5, a4, n] - 
    S2[a6, a3, a2, a5, SP[a1, a4], n] - S2[a6, a3, a2, SP[a1, a4], a5, n] - 
    S2[a6, a3, a2, SP[a1, a5], a4, n] - S2[a1, n]*S2[a6, a3, a5, a2, a4, n] - 
    S2[a6, a3, a5, a2, SP[a1, a4], n] - S2[a6, a3, a5, SP[a1, a2], a4, n] - 
    S2[a6, a3, SP[a1, a5], a2, a4, n] - S2[a1, n]*S2[a6, a5, a3, a2, a4, n] - 
    S2[a6, a5, a3, a2, SP[a1, a4], n] - S2[a6, a5, a3, SP[a1, a2], a4, n] - 
    S2[a6, a5, SP[a1, a3], a2, a4, n] - S2[a6, SP[a1, a3], a2, a4, a5, n] - 
    S2[a6, SP[a1, a3], a2, a5, a4, n] - S2[a6, SP[a1, a3], a4, a2, a5, n] - 
    S2[a6, SP[a1, a3], a4, a5, a2, n] - S2[a6, SP[a1, a3], a5, a2, a4, n] - 
    S2[a6, SP[a1, a3], a5, a4, a2, n] - S2[a6, SP[a1, a5], a3, a2, a4, n] + 
    S2[a6, SP[a2, a3], a1, a4, a5, n] + S2[a6, SP[a2, a3], a1, a5, a4, n] + 
    S2[a6, SP[a2, a3], a4, a1, a5, n] + S2[SP[a1, a6], a3, a4, a2, a5, n] + 
    S2[SP[a1, a6], a3, a4, a5, a2, n] + S2[SP[a1, a6], a3, a5, a4, a2, n] + 
    S2[SP[a1, a6], a4, a2, a3, a5, n] + S2[SP[a1, a6], a4, a2, a5, a3, n] + 
    S2[SP[a1, a6], a4, a3, a2, a5, n] + S2[SP[a1, a6], a4, a3, a5, a2, n] + 
    S2[SP[a1, a6], a4, a5, a2, a3, n] + S2[SP[a1, a6], a4, a5, a3, a2, n] + 
    S2[SP[a1, a6], a5, a3, a4, a2, n] + S2[SP[a1, a6], a5, a4, a2, a3, n] + 
    S2[SP[a1, a6], a5, a4, a3, a2, n] - S2[SP[a2, a6], a3, a4, a1, a5, n] - 
    S2[SP[a2, a6], a4, a1, a3, a5, n] - S2[SP[a2, a6], a4, a1, a5, a3, n] - 
    S2[SP[a2, a6], a4, a3, a1, a5, n] - S2[SP[a3, a6], a1, a4, a2, a5, n] - 
    S2[SP[a3, a6], a1, a4, a5, a2, n] - S2[SP[a3, a6], a1, a5, a4, a2, n] + 
    S2[SP[a3, a6], a2, a4, a1, a5, n] + S2[a6, a3, a2, a4, a5, a1, n] + 
    S2[a6, a3, a2, a5, a1, a4, n] + S2[a6, a3, a2, a5, a4, a1, n] + 
    S2[a6, a3, a5, a1, a2, a4, n] + S2[a6, a3, a5, a2, a1, a4, n] + 
    S2[a6, a3, a5, a2, a4, a1, n] + S2[a6, a5, a1, a3, a2, a4, n] + 
    S2[a6, a5, a3, a1, a2, a4, n] + S2[a6, a5, a3, a2, a1, a4, n] + 
    S2[a6, a5, a3, a2, a4, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a1_, a5_, a6_, a3_, a4_, a2_, n_] :> 
  -(S2[a1, a5, n]*S2[a2, a4, a3, a6, n]) - S2[a1, a5, n]*
     S2[a2, a4, a6, a3, n] + S2[a2, a4, SP[a1, a3], SP[a5, a6], n] + 
    S2[a2, a4, SP[a1, a6], SP[a3, a5], n] - S2[a1, a5, n]*
     S2[a2, a6, a3, a4, n] - S2[a1, a5, n]*S2[a2, a6, a4, a3, n] + 
    S2[a2, a6, SP[a1, a3], SP[a4, a5], n] + S2[a2, a6, SP[a1, a4], 
     SP[a3, a5], n] + S2[a2, SP[a1, a4], a3, SP[a5, a6], n] + 
    S2[a2, SP[a1, a4], a6, SP[a3, a5], n] + S2[a2, SP[a1, a4], SP[a3, a5], 
     a6, n] + S2[a2, SP[a1, a4], SP[a5, a6], a3, n] + 
    S2[a2, SP[a1, a6], a3, SP[a4, a5], n] + S2[a2, SP[a1, a6], a4, 
     SP[a3, a5], n] + S2[a2, SP[a1, a6], SP[a3, a5], a4, n] + 
    S2[a2, SP[a1, a6], SP[a4, a5], a3, n] + S2[a1, a5, n]*
     S2[a3, a6, a2, a4, n] - S2[a3, a6, SP[a1, a2], SP[a4, a5], n] - 
    S2[a3, SP[a1, a6], a2, SP[a4, a5], n] - S2[a3, SP[a1, a6], SP[a2, a5], 
     a4, n] + S2[SP[a1, a2], a4, a3, SP[a5, a6], n] + 
    S2[SP[a1, a2], a4, a6, SP[a3, a5], n] + S2[SP[a1, a2], a4, SP[a3, a5], 
     a6, n] + S2[SP[a1, a2], a4, SP[a5, a6], a3, n] + 
    S2[SP[a1, a2], a6, a3, SP[a4, a5], n] + S2[SP[a1, a2], a6, a4, 
     SP[a3, a5], n] + S2[SP[a1, a2], a6, SP[a3, a5], a4, n] + 
    S2[SP[a1, a2], a6, SP[a4, a5], a3, n] + S2[SP[a1, a2], SP[a4, a5], a3, 
     a6, n] + S2[SP[a1, a2], SP[a4, a5], a6, a3, n] + 
    S2[SP[a1, a2], SP[a5, a6], a3, a4, n] + S2[SP[a1, a2], SP[a5, a6], a4, 
     a3, n] - S2[SP[a1, a3], a6, a2, SP[a4, a5], n] - 
    S2[SP[a1, a3], a6, SP[a2, a5], a4, n] - S2[SP[a1, a3], SP[a5, a6], a2, 
     a4, n] - S2[a1, a2, a4, a3, SP[a5, a6], n] - 
    S2[a1, a2, a4, a6, SP[a3, a5], n] - S2[a1, a2, a4, SP[a3, a5], a6, n] - 
    S2[a1, a2, a4, SP[a5, a6], a3, n] - S2[a1, a2, a6, a3, SP[a4, a5], n] - 
    S2[a1, a2, a6, a4, SP[a3, a5], n] - S2[a1, a2, a6, SP[a3, a5], a4, n] - 
    S2[a1, a2, a6, SP[a4, a5], a3, n] - S2[a1, a2, SP[a4, a5], a3, a6, n] - 
    S2[a1, a2, SP[a4, a5], a6, a3, n] - S2[a1, a2, SP[a5, a6], a3, a4, n] - 
    S2[a1, a2, SP[a5, a6], a4, a3, n] + S2[a1, a3, a6, a2, SP[a4, a5], n] + 
    S2[a1, a3, a6, SP[a2, a5], a4, n] + S2[a1, a3, SP[a5, a6], a2, a4, n] - 
    S2[a6, n]*S2[a1, a4, a2, a3, a5, n] - S2[a1, a4, a2, a3, SP[a5, a6], n] - 
    S2[a6, n]*S2[a1, a4, a2, a5, a3, n] - S2[a1, a4, a2, a5, SP[a3, a6], n] - 
    S2[a1, a4, a2, SP[a3, a6], a5, n] - S2[a1, a4, a2, SP[a5, a6], a3, n] - 
    S2[a6, n]*S2[a1, a4, a3, a2, a5, n] - S2[a1, a4, a3, a2, SP[a5, a6], n] - 
    S2[a6, n]*S2[a1, a4, a3, a5, a2, n] + 
    S2[a2, n]*S2[a1, a4, a3, a5, a6, n] + 
    S2[a2, n]*S2[a1, a4, a3, a6, a5, n] + S2[a1, a4, a3, a6, SP[a2, a5], n] + 
    S2[a1, a4, a3, SP[a2, a5], a6, n] - S2[a1, a4, a3, SP[a5, a6], a2, n] - 
    S2[a6, n]*S2[a1, a4, a5, a2, a3, n] - S2[a1, a4, a5, a2, SP[a3, a6], n] - 
    S2[a6, n]*S2[a1, a4, a5, a3, a2, n] + 
    S2[a2, n]*S2[a1, a4, a5, a3, a6, n] + 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] + S2[a1, a4, a5, a6, SP[a2, a3], n] + 
    S2[a1, a4, a5, SP[a2, a3], a6, n] - S2[a1, a4, a5, SP[a3, a6], a2, n] + 
    S2[a2, n]*S2[a1, a4, a6, a3, a5, n] + S2[a1, a4, a6, a3, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a4, a6, a5, a3, n] + S2[a1, a4, a6, a5, SP[a2, a3], n] + 
    S2[a1, a4, a6, SP[a2, a3], a5, n] + S2[a1, a4, a6, SP[a2, a5], a3, n] + 
    S2[a1, a4, SP[a2, a3], a5, a6, n] + S2[a1, a4, SP[a2, a3], a6, a5, n] + 
    S2[a1, a4, SP[a2, a5], a3, a6, n] + S2[a1, a4, SP[a2, a5], a6, a3, n] - 
    S2[a1, a4, SP[a3, a6], a2, a5, n] - S2[a1, a4, SP[a3, a6], a5, a2, n] - 
    S2[a1, a4, SP[a5, a6], a2, a3, n] - S2[a1, a4, SP[a5, a6], a3, a2, n] - 
    S2[a6, n]*S2[a1, a5, a4, a2, a3, n] - S2[a1, a5, a4, a2, SP[a3, a6], n] - 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] + 
    S2[a2, n]*S2[a1, a5, a4, a3, a6, n] + 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] + S2[a1, a5, a4, a6, SP[a2, a3], n] + 
    S2[a1, a5, a4, SP[a2, a3], a6, n] - S2[a1, a5, a4, SP[a3, a6], a2, n] - 
    S2[a3, n]*S2[a1, a5, a6, a2, a4, n] - S2[a1, a5, a6, a2, SP[a3, a4], n] + 
    S2[a2, n]*S2[a1, a5, a6, a3, a4, n] + S2[a1, a5, a6, a3, SP[a2, a4], n] + 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] + S2[a1, a5, a6, a4, SP[a2, a3], n] + 
    S2[a1, a5, a6, SP[a2, a4], a3, n] + S2[a1, a5, SP[a2, a4], a3, a6, n] + 
    S2[a1, a5, SP[a2, a4], a6, a3, n] + S2[a1, a5, SP[a2, a6], a3, a4, n] + 
    S2[a1, a5, SP[a2, a6], a4, a3, n] - S2[a1, a5, SP[a3, a6], a2, a4, n] - 
    S2[a1, a5, SP[a4, a6], a2, a3, n] - S2[a1, a5, SP[a4, a6], a3, a2, n] - 
    S2[a3, n]*S2[a1, a6, a2, a4, a5, n] - S2[a1, a6, a2, a4, SP[a3, a5], n] - 
    S2[a3, n]*S2[a1, a6, a2, a5, a4, n] - S2[a1, a6, a2, a5, SP[a3, a4], n] - 
    S2[a1, a6, a2, SP[a3, a4], a5, n] - S2[a1, a6, a2, SP[a3, a5], a4, n] + 
    S2[a2, n]*S2[a1, a6, a3, a4, a5, n] + S2[a1, a6, a3, a4, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a6, a3, a5, a4, n] + S2[a1, a6, a3, a5, SP[a2, a4], n] + 
    S2[a1, a6, a3, SP[a2, a4], a5, n] + S2[a1, a6, a3, SP[a2, a5], a4, n] + 
    S2[a2, n]*S2[a1, a6, a4, a3, a5, n] + S2[a1, a6, a4, a3, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a6, a4, a5, a3, n] + S2[a1, a6, a4, a5, SP[a2, a3], n] + 
    S2[a1, a6, a4, SP[a2, a3], a5, n] + S2[a1, a6, a4, SP[a2, a5], a3, n] - 
    S2[a3, n]*S2[a1, a6, a5, a2, a4, n] - S2[a1, a6, a5, a2, SP[a3, a4], n] + 
    S2[a2, n]*S2[a1, a6, a5, a3, a4, n] + S2[a1, a6, a5, a3, SP[a2, a4], n] + 
    S2[a2, n]*S2[a1, a6, a5, a4, a3, n] + S2[a1, a6, a5, a4, SP[a2, a3], n] + 
    S2[a1, a6, a5, SP[a2, a4], a3, n] + S2[a1, a6, SP[a2, a4], a3, a5, n] + 
    S2[a1, a6, SP[a2, a4], a5, a3, n] + S2[a1, a6, SP[a2, a5], a3, a4, n] + 
    S2[a1, a6, SP[a2, a5], a4, a3, n] - S2[a1, a6, SP[a3, a5], a2, a4, n] + 
    S2[a1, SP[a2, a4], a3, a5, a6, n] + S2[a1, SP[a2, a4], a3, a6, a5, n] + 
    S2[a1, SP[a2, a4], a5, a3, a6, n] + S2[a1, SP[a2, a4], a5, a6, a3, n] + 
    S2[a1, SP[a2, a4], a6, a3, a5, n] + S2[a1, SP[a2, a4], a6, a5, a3, n] + 
    S2[a1, SP[a2, a6], a3, a4, a5, n] + S2[a1, SP[a2, a6], a3, a5, a4, n] + 
    S2[a1, SP[a2, a6], a4, a3, a5, n] + S2[a1, SP[a2, a6], a4, a5, a3, n] + 
    S2[a1, SP[a2, a6], a5, a3, a4, n] + S2[a1, SP[a2, a6], a5, a4, a3, n] - 
    S2[a1, SP[a3, a6], a2, a4, a5, n] - S2[a1, SP[a3, a6], a2, a5, a4, n] - 
    S2[a1, SP[a3, a6], a5, a2, a4, n] - S2[a1, SP[a4, a6], a2, a3, a5, n] - 
    S2[a1, SP[a4, a6], a2, a5, a3, n] - S2[a1, SP[a4, a6], a3, a2, a5, n] - 
    S2[a1, SP[a4, a6], a3, a5, a2, n] - S2[a1, SP[a4, a6], a5, a2, a3, n] - 
    S2[a1, SP[a4, a6], a5, a3, a2, n] - S2[a1, SP[a5, a6], a4, a2, a3, n] - 
    S2[a1, SP[a5, a6], a4, a3, a2, n] - S2[a2, a1, a4, a3, SP[a5, a6], n] - 
    S2[a2, a1, a4, a6, SP[a3, a5], n] - S2[a2, a1, a4, SP[a3, a5], a6, n] - 
    S2[a2, a1, a4, SP[a5, a6], a3, n] - S2[a2, a1, a6, a3, SP[a4, a5], n] - 
    S2[a2, a1, a6, a4, SP[a3, a5], n] - S2[a2, a1, a6, SP[a3, a5], a4, n] - 
    S2[a2, a1, a6, SP[a4, a5], a3, n] - S2[a2, a1, SP[a4, a5], a3, a6, n] - 
    S2[a2, a1, SP[a4, a5], a6, a3, n] - S2[a2, a1, SP[a5, a6], a3, a4, n] - 
    S2[a2, a1, SP[a5, a6], a4, a3, n] + S2[a6, n]*S2[a2, a4, a1, a3, a5, n] + 
    S2[a6, n]*S2[a2, a4, a1, a5, a3, n] + S2[a2, a4, a1, a5, SP[a3, a6], n] - 
    S2[a2, a4, a1, a6, SP[a3, a5], n] - S2[a2, a4, a1, SP[a3, a5], a6, n] + 
    S2[a2, a4, a1, SP[a3, a6], a5, n] + S2[a6, n]*S2[a2, a4, a3, a1, a5, n] - 
    S2[a2, a4, a6, a1, SP[a3, a5], n] - S2[a2, a4, a6, SP[a1, a3], a5, n] - 
    S2[a2, a4, SP[a1, a3], a5, a6, n] - S2[a2, a4, SP[a1, a3], a6, a5, n] + 
    S2[a2, a4, SP[a3, a6], a1, a5, n] - S2[a2, a6, a1, a3, SP[a4, a5], n] + 
    S2[a3, n]*S2[a2, a6, a1, a4, a5, n] + 
    S2[a3, n]*S2[a2, a6, a1, a5, a4, n] + S2[a2, a6, a1, a5, SP[a3, a4], n] + 
    S2[a2, a6, a1, SP[a3, a4], a5, n] - S2[a2, a6, a1, SP[a4, a5], a3, n] - 
    S2[a2, a6, a3, a1, SP[a4, a5], n] - S2[a2, a6, a3, SP[a1, a4], a5, n] - 
    S2[a2, a6, a4, a1, SP[a3, a5], n] - S2[a2, a6, a4, SP[a1, a3], a5, n] - 
    S2[a2, a6, SP[a1, a4], a3, a5, n] - S2[a2, a6, SP[a1, a4], a5, a3, n] - 
    S2[a2, SP[a1, a4], a3, a5, a6, n] - S2[a2, SP[a1, a4], a3, a6, a5, n] - 
    S2[a2, SP[a1, a4], a5, a3, a6, n] - S2[a2, SP[a1, a4], a5, a6, a3, n] - 
    S2[a2, SP[a1, a4], a6, a3, a5, n] - S2[a2, SP[a1, a4], a6, a5, a3, n] - 
    S2[a2, SP[a1, a6], a3, a4, a5, n] - S2[a2, SP[a1, a6], a3, a5, a4, n] - 
    S2[a2, SP[a1, a6], a4, a3, a5, n] - S2[a2, SP[a1, a6], a4, a5, a3, n] - 
    S2[a2, SP[a1, a6], a5, a3, a4, n] - S2[a2, SP[a1, a6], a5, a4, a3, n] + 
    S2[a2, SP[a3, a6], a1, a4, a5, n] + S2[a2, SP[a3, a6], a1, a5, a4, n] + 
    S2[a2, SP[a4, a6], a1, a3, a5, n] + S2[a2, SP[a4, a6], a1, a5, a3, n] + 
    S2[a2, SP[a4, a6], a3, a1, a5, n] + S2[a3, a1, a6, a2, SP[a4, a5], n] + 
    S2[a3, a1, a6, SP[a2, a5], a4, n] + S2[a3, a1, SP[a5, a6], a2, a4, n] + 
    S2[a3, a6, a1, a2, SP[a4, a5], n] - S2[a2, n]*S2[a3, a6, a1, a4, a5, n] - 
    S2[a3, a6, a1, a4, SP[a2, a5], n] - S2[a2, n]*S2[a3, a6, a1, a5, a4, n] - 
    S2[a3, a6, a1, a5, SP[a2, a4], n] - S2[a3, a6, a1, SP[a2, a4], a5, n] + 
    S2[a3, a6, a2, a1, SP[a4, a5], n] + S2[a3, a6, a2, SP[a1, a4], a5, n] + 
    S2[a3, SP[a1, a6], a2, a4, a5, n] + S2[a3, SP[a1, a6], a2, a5, a4, n] + 
    S2[a3, SP[a1, a6], a5, a2, a4, n] - S2[a3, SP[a2, a6], a1, a4, a5, n] - 
    S2[a3, SP[a2, a6], a1, a5, a4, n] + S2[a3, n]*S2[a6, a1, a4, a2, a5, n] + 
    S2[a6, a1, a4, a2, SP[a3, a5], n] + S2[a3, n]*S2[a6, a1, a4, a5, a2, n] + 
    S2[a6, a1, a4, a5, SP[a2, a3], n] + S2[a6, a1, a4, SP[a2, a3], a5, n] + 
    S2[a6, a1, a4, SP[a3, a5], a2, n] + S2[a3, n]*S2[a6, a1, a5, a4, a2, n] + 
    S2[a6, a1, a5, a4, SP[a2, a3], n] + S2[a6, a1, a5, SP[a3, a4], a2, n] + 
    S2[a6, a1, SP[a3, a4], a2, a5, n] + S2[a6, a1, SP[a3, a4], a5, a2, n] + 
    S2[a6, a1, SP[a3, a5], a4, a2, n] - S2[a3, n]*S2[a6, a2, a4, a1, a5, n] - 
    S2[a6, a2, a4, a1, SP[a3, a5], n] - S2[a6, a2, a4, SP[a1, a3], a5, n] - 
    S2[a6, a2, SP[a3, a4], a1, a5, n] + S2[a2, n]*S2[a6, a3, a4, a1, a5, n] + 
    S2[a6, a3, a4, a1, SP[a2, a5], n] - S2[a1, n]*S2[a6, a3, a4, a2, a5, n] - 
    S2[a6, a3, a4, a2, SP[a1, a5], n] - S2[a1, n]*S2[a6, a3, a4, a5, a2, n] - 
    S2[a6, a3, a4, a5, SP[a1, a2], n] - S2[a6, a3, a4, SP[a1, a5], a2, n] - 
    S2[a1, n]*S2[a6, a3, a5, a4, a2, n] - S2[a6, a3, a5, a4, SP[a1, a2], n] - 
    S2[a6, a3, a5, SP[a1, a4], a2, n] - S2[a6, a3, SP[a1, a4], a2, a5, n] - 
    S2[a6, a3, SP[a1, a4], a5, a2, n] - S2[a6, a3, SP[a1, a5], a4, a2, n] + 
    S2[a6, a3, SP[a2, a4], a1, a5, n] - S2[a1, n]*S2[a6, a5, a3, a4, a2, n] - 
    S2[a6, a5, a3, a4, SP[a1, a2], n] - S2[a6, a5, a3, SP[a1, a4], a2, n] - 
    S2[a6, a5, SP[a1, a3], a4, a2, n] - S2[a6, SP[a1, a5], a3, a4, a2, n] - 
    S2[SP[a1, a6], a3, a4, a2, a5, n] - S2[SP[a1, a6], a3, a4, a5, a2, n] - 
    S2[SP[a1, a6], a3, a5, a4, a2, n] - S2[SP[a1, a6], a4, a2, a3, a5, n] - 
    S2[SP[a1, a6], a4, a2, a5, a3, n] - S2[SP[a1, a6], a4, a3, a2, a5, n] - 
    S2[SP[a1, a6], a4, a3, a5, a2, n] - S2[SP[a1, a6], a4, a5, a2, a3, n] - 
    S2[SP[a1, a6], a4, a5, a3, a2, n] - S2[SP[a1, a6], a5, a3, a4, a2, n] - 
    S2[SP[a1, a6], a5, a4, a2, a3, n] - S2[SP[a1, a6], a5, a4, a3, a2, n] + 
    S2[SP[a2, a6], a3, a4, a1, a5, n] + S2[SP[a2, a6], a4, a1, a3, a5, n] + 
    S2[SP[a2, a6], a4, a1, a5, a3, n] + S2[SP[a2, a6], a4, a3, a1, a5, n] + 
    S2[SP[a3, a6], a1, a4, a2, a5, n] + S2[SP[a3, a6], a1, a4, a5, a2, n] + 
    S2[SP[a3, a6], a1, a5, a4, a2, n] - S2[SP[a3, a6], a2, a4, a1, a5, n] + 
    S2[a6, a3, a4, a2, a5, a1, n] + S2[a6, a3, a4, a5, a1, a2, n] + 
    S2[a6, a3, a4, a5, a2, a1, n] + S2[a6, a3, a5, a1, a4, a2, n] + 
    S2[a6, a3, a5, a4, a1, a2, n] + S2[a6, a3, a5, a4, a2, a1, n] + 
    S2[a6, a5, a1, a3, a4, a2, n] + S2[a6, a5, a3, a1, a4, a2, n] + 
    S2[a6, a5, a3, a4, a1, a2, n] + S2[a6, a5, a3, a4, a2, a1, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a1_, a5_, a6_, a4_, a2_, a3_, n_] :> 
  S2[a1, a5, n]*S2[a2, a3, a4, a6, n] + S2[a1, a5, n]*S2[a2, a3, a6, a4, n] - 
    S2[a2, a3, SP[a1, a4], SP[a5, a6], n] - S2[a2, a3, SP[a1, a6], 
     SP[a4, a5], n] + S2[a1, a5, n]*S2[a2, a4, a3, a6, n] + 
    S2[a1, a5, n]*S2[a2, a4, a6, a3, n] - S2[a2, a4, SP[a1, a3], SP[a5, a6], 
     n] - S2[a2, a4, SP[a1, a6], SP[a3, a5], n] + 
    S2[a1, a5, n]*S2[a2, a6, a3, a4, n] + S2[a1, a5, n]*
     S2[a2, a6, a4, a3, n] - S2[a2, a6, SP[a1, a3], SP[a4, a5], n] - 
    S2[a2, a6, SP[a1, a4], SP[a3, a5], n] - S2[a2, SP[a1, a3], a4, 
     SP[a5, a6], n] - S2[a2, SP[a1, a3], a6, SP[a4, a5], n] - 
    S2[a2, SP[a1, a3], SP[a4, a5], a6, n] - S2[a2, SP[a1, a3], SP[a5, a6], 
     a4, n] - S2[a2, SP[a1, a4], a3, SP[a5, a6], n] - 
    S2[a2, SP[a1, a4], a6, SP[a3, a5], n] - S2[a2, SP[a1, a4], SP[a3, a5], 
     a6, n] - S2[a2, SP[a1, a4], SP[a5, a6], a3, n] - 
    S2[a2, SP[a1, a6], a3, SP[a4, a5], n] - S2[a2, SP[a1, a6], a4, 
     SP[a3, a5], n] - S2[a2, SP[a1, a6], SP[a3, a5], a4, n] - 
    S2[a2, SP[a1, a6], SP[a4, a5], a3, n] - S2[a1, a5, n]*
     S2[a4, a6, a2, a3, n] + S2[a4, a6, SP[a1, a2], SP[a3, a5], n] + 
    S2[a4, SP[a1, a6], a2, SP[a3, a5], n] + S2[a4, SP[a1, a6], SP[a2, a5], 
     a3, n] - S2[SP[a1, a2], a3, a4, SP[a5, a6], n] - 
    S2[SP[a1, a2], a3, a6, SP[a4, a5], n] - S2[SP[a1, a2], a3, SP[a4, a5], 
     a6, n] - S2[SP[a1, a2], a3, SP[a5, a6], a4, n] - 
    S2[SP[a1, a2], a4, a3, SP[a5, a6], n] - S2[SP[a1, a2], a4, a6, 
     SP[a3, a5], n] - S2[SP[a1, a2], a4, SP[a3, a5], a6, n] - 
    S2[SP[a1, a2], a4, SP[a5, a6], a3, n] - S2[SP[a1, a2], a6, a3, 
     SP[a4, a5], n] - S2[SP[a1, a2], a6, a4, SP[a3, a5], n] - 
    S2[SP[a1, a2], a6, SP[a3, a5], a4, n] - S2[SP[a1, a2], a6, SP[a4, a5], 
     a3, n] - S2[SP[a1, a2], SP[a3, a5], a4, a6, n] - 
    S2[SP[a1, a2], SP[a3, a5], a6, a4, n] - S2[SP[a1, a2], SP[a4, a5], a3, 
     a6, n] - S2[SP[a1, a2], SP[a4, a5], a6, a3, n] - 
    S2[SP[a1, a2], SP[a5, a6], a3, a4, n] - S2[SP[a1, a2], SP[a5, a6], a4, 
     a3, n] + S2[SP[a1, a4], a6, a2, SP[a3, a5], n] + 
    S2[SP[a1, a4], a6, SP[a2, a5], a3, n] + S2[SP[a1, a4], SP[a5, a6], a2, 
     a3, n] + S2[a1, a2, a3, a4, SP[a5, a6], n] + 
    S2[a1, a2, a3, a6, SP[a4, a5], n] + S2[a1, a2, a3, SP[a4, a5], a6, n] + 
    S2[a1, a2, a3, SP[a5, a6], a4, n] + S2[a1, a2, a4, a3, SP[a5, a6], n] + 
    S2[a1, a2, a4, a6, SP[a3, a5], n] + S2[a1, a2, a4, SP[a3, a5], a6, n] + 
    S2[a1, a2, a4, SP[a5, a6], a3, n] + S2[a1, a2, a6, a3, SP[a4, a5], n] + 
    S2[a1, a2, a6, a4, SP[a3, a5], n] + S2[a1, a2, a6, SP[a3, a5], a4, n] + 
    S2[a1, a2, a6, SP[a4, a5], a3, n] + S2[a1, a2, SP[a3, a5], a4, a6, n] + 
    S2[a1, a2, SP[a3, a5], a6, a4, n] + S2[a1, a2, SP[a4, a5], a3, a6, n] + 
    S2[a1, a2, SP[a4, a5], a6, a3, n] + S2[a1, a2, SP[a5, a6], a3, a4, n] + 
    S2[a1, a2, SP[a5, a6], a4, a3, n] + S2[a6, n]*S2[a1, a3, a2, a4, a5, n] + 
    S2[a1, a3, a2, a4, SP[a5, a6], n] + S2[a6, n]*S2[a1, a3, a2, a5, a4, n] + 
    S2[a1, a3, a2, a5, SP[a4, a6], n] + S2[a1, a3, a2, SP[a4, a6], a5, n] + 
    S2[a1, a3, a2, SP[a5, a6], a4, n] + S2[a6, n]*S2[a1, a3, a4, a2, a5, n] + 
    S2[a1, a3, a4, a2, SP[a5, a6], n] + S2[a6, n]*S2[a1, a3, a4, a5, a2, n] - 
    S2[a2, n]*S2[a1, a3, a4, a5, a6, n] - 
    S2[a2, n]*S2[a1, a3, a4, a6, a5, n] - S2[a1, a3, a4, a6, SP[a2, a5], n] - 
    S2[a1, a3, a4, SP[a2, a5], a6, n] + S2[a1, a3, a4, SP[a5, a6], a2, n] + 
    S2[a6, n]*S2[a1, a3, a5, a2, a4, n] + S2[a1, a3, a5, a2, SP[a4, a6], n] + 
    S2[a6, n]*S2[a1, a3, a5, a4, a2, n] - 
    S2[a2, n]*S2[a1, a3, a5, a4, a6, n] - 
    S2[a2, n]*S2[a1, a3, a5, a6, a4, n] - S2[a1, a3, a5, a6, SP[a2, a4], n] - 
    S2[a1, a3, a5, SP[a2, a4], a6, n] + S2[a1, a3, a5, SP[a4, a6], a2, n] - 
    S2[a2, n]*S2[a1, a3, a6, a4, a5, n] - S2[a1, a3, a6, a4, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a3, a6, a5, a4, n] - S2[a1, a3, a6, a5, SP[a2, a4], n] - 
    S2[a1, a3, a6, SP[a2, a4], a5, n] - S2[a1, a3, a6, SP[a2, a5], a4, n] - 
    S2[a1, a3, SP[a2, a4], a5, a6, n] - S2[a1, a3, SP[a2, a4], a6, a5, n] - 
    S2[a1, a3, SP[a2, a5], a4, a6, n] - S2[a1, a3, SP[a2, a5], a6, a4, n] + 
    S2[a1, a3, SP[a4, a6], a2, a5, n] + S2[a1, a3, SP[a4, a6], a5, a2, n] + 
    S2[a1, a3, SP[a5, a6], a2, a4, n] + S2[a1, a3, SP[a5, a6], a4, a2, n] + 
    S2[a6, n]*S2[a1, a4, a2, a3, a5, n] + S2[a1, a4, a2, a3, SP[a5, a6], n] + 
    S2[a6, n]*S2[a1, a4, a2, a5, a3, n] + S2[a1, a4, a2, a5, SP[a3, a6], n] + 
    S2[a1, a4, a2, SP[a3, a6], a5, n] + S2[a1, a4, a2, SP[a5, a6], a3, n] + 
    S2[a6, n]*S2[a1, a4, a3, a2, a5, n] + S2[a1, a4, a3, a2, SP[a5, a6], n] + 
    S2[a6, n]*S2[a1, a4, a3, a5, a2, n] - 
    S2[a2, n]*S2[a1, a4, a3, a5, a6, n] - 
    S2[a2, n]*S2[a1, a4, a3, a6, a5, n] - S2[a1, a4, a3, a6, SP[a2, a5], n] - 
    S2[a1, a4, a3, SP[a2, a5], a6, n] + S2[a1, a4, a3, SP[a5, a6], a2, n] + 
    S2[a6, n]*S2[a1, a4, a5, a2, a3, n] + S2[a1, a4, a5, a2, SP[a3, a6], n] + 
    S2[a6, n]*S2[a1, a4, a5, a3, a2, n] - 
    S2[a2, n]*S2[a1, a4, a5, a3, a6, n] - 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] - S2[a1, a4, a5, a6, SP[a2, a3], n] - 
    S2[a1, a4, a5, SP[a2, a3], a6, n] + S2[a1, a4, a5, SP[a3, a6], a2, n] - 
    S2[a1, a4, a6, a2, SP[a3, a5], n] - S2[a2, n]*S2[a1, a4, a6, a3, a5, n] - 
    S2[a1, a4, a6, a3, SP[a2, a5], n] - S2[a2, n]*S2[a1, a4, a6, a5, a3, n] - 
    S2[a1, a4, a6, a5, SP[a2, a3], n] - S2[a1, a4, a6, SP[a2, a3], a5, n] - 
    2*S2[a1, a4, a6, SP[a2, a5], a3, n] - S2[a1, a4, SP[a2, a3], a5, a6, n] - 
    S2[a1, a4, SP[a2, a3], a6, a5, n] - S2[a1, a4, SP[a2, a5], a3, a6, n] - 
    S2[a1, a4, SP[a2, a5], a6, a3, n] + S2[a1, a4, SP[a3, a6], a2, a5, n] + 
    S2[a1, a4, SP[a3, a6], a5, a2, n] + S2[a1, a4, SP[a5, a6], a3, a2, n] + 
    S2[a6, n]*S2[a1, a5, a3, a2, a4, n] + S2[a1, a5, a3, a2, SP[a4, a6], n] + 
    S2[a6, n]*S2[a1, a5, a3, a4, a2, n] - 
    S2[a2, n]*S2[a1, a5, a3, a4, a6, n] - 
    S2[a2, n]*S2[a1, a5, a3, a6, a4, n] - S2[a1, a5, a3, a6, SP[a2, a4], n] - 
    S2[a1, a5, a3, SP[a2, a4], a6, n] + S2[a1, a5, a3, SP[a4, a6], a2, n] + 
    S2[a6, n]*S2[a1, a5, a4, a2, a3, n] + S2[a1, a5, a4, a2, SP[a3, a6], n] + 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] - 
    S2[a2, n]*S2[a1, a5, a4, a3, a6, n] - 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] - S2[a1, a5, a4, a6, SP[a2, a3], n] - 
    S2[a1, a5, a4, SP[a2, a3], a6, n] + S2[a1, a5, a4, SP[a3, a6], a2, n] + 
    S2[a4, n]*S2[a1, a5, a6, a2, a3, n] + S2[a1, a5, a6, a2, SP[a3, a4], n] - 
    S2[a2, n]*S2[a1, a5, a6, a3, a4, n] - S2[a1, a5, a6, a3, SP[a2, a4], n] - 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] - S2[a1, a5, a6, a4, SP[a2, a3], n] - 
    S2[a1, a5, a6, SP[a2, a3], a4, n] - S2[a1, a5, SP[a2, a3], a4, a6, n] - 
    S2[a1, a5, SP[a2, a3], a6, a4, n] - S2[a1, a5, SP[a2, a4], a3, a6, n] - 
    S2[a1, a5, SP[a2, a4], a6, a3, n] - S2[a1, a5, SP[a2, a6], a3, a4, n] - 
    S2[a1, a5, SP[a2, a6], a4, a3, n] + S2[a1, a5, SP[a3, a6], a2, a4, n] + 
    S2[a1, a5, SP[a3, a6], a4, a2, n] + 2*S2[a1, a5, SP[a4, a6], a2, a3, n] + 
    S2[a1, a5, SP[a4, a6], a3, a2, n] + S2[a4, n]*S2[a1, a6, a2, a3, a5, n] + 
    S2[a1, a6, a2, a3, SP[a4, a5], n] + S2[a4, n]*S2[a1, a6, a2, a5, a3, n] + 
    S2[a1, a6, a2, a5, SP[a3, a4], n] + S2[a1, a6, a2, SP[a3, a4], a5, n] + 
    S2[a1, a6, a2, SP[a4, a5], a3, n] - S2[a2, n]*S2[a1, a6, a3, a4, a5, n] - 
    S2[a1, a6, a3, a4, SP[a2, a5], n] - S2[a2, n]*S2[a1, a6, a3, a5, a4, n] - 
    S2[a1, a6, a3, a5, SP[a2, a4], n] - S2[a1, a6, a3, SP[a2, a4], a5, n] - 
    S2[a1, a6, a3, SP[a2, a5], a4, n] - S2[a2, n]*S2[a1, a6, a4, a3, a5, n] - 
    S2[a1, a6, a4, a3, SP[a2, a5], n] - S2[a2, n]*S2[a1, a6, a4, a5, a3, n] - 
    S2[a1, a6, a4, a5, SP[a2, a3], n] - S2[a1, a6, a4, SP[a2, a3], a5, n] - 
    S2[a1, a6, a4, SP[a2, a5], a3, n] + S2[a4, n]*S2[a1, a6, a5, a2, a3, n] + 
    S2[a1, a6, a5, a2, SP[a3, a4], n] - S2[a2, n]*S2[a1, a6, a5, a3, a4, n] - 
    S2[a1, a6, a5, a3, SP[a2, a4], n] - S2[a2, n]*S2[a1, a6, a5, a4, a3, n] - 
    S2[a1, a6, a5, a4, SP[a2, a3], n] - S2[a1, a6, a5, SP[a2, a3], a4, n] - 
    S2[a1, a6, SP[a2, a3], a4, a5, n] - S2[a1, a6, SP[a2, a3], a5, a4, n] - 
    S2[a1, a6, SP[a2, a5], a3, a4, n] - S2[a1, a6, SP[a2, a5], a4, a3, n] + 
    S2[a1, a6, SP[a4, a5], a2, a3, n] - S2[a1, SP[a2, a3], a4, a5, a6, n] - 
    S2[a1, SP[a2, a3], a4, a6, a5, n] - S2[a1, SP[a2, a3], a5, a4, a6, n] - 
    S2[a1, SP[a2, a3], a5, a6, a4, n] - S2[a1, SP[a2, a3], a6, a4, a5, n] - 
    S2[a1, SP[a2, a3], a6, a5, a4, n] - S2[a1, SP[a2, a4], a3, a5, a6, n] - 
    S2[a1, SP[a2, a4], a3, a6, a5, n] - S2[a1, SP[a2, a4], a5, a3, a6, n] - 
    S2[a1, SP[a2, a4], a5, a6, a3, n] - S2[a1, SP[a2, a4], a6, a3, a5, n] - 
    S2[a1, SP[a2, a4], a6, a5, a3, n] - S2[a1, SP[a2, a6], a3, a4, a5, n] - 
    S2[a1, SP[a2, a6], a3, a5, a4, n] - S2[a1, SP[a2, a6], a4, a3, a5, n] - 
    S2[a1, SP[a2, a6], a4, a5, a3, n] - S2[a1, SP[a2, a6], a5, a3, a4, n] - 
    S2[a1, SP[a2, a6], a5, a4, a3, n] + S2[a1, SP[a3, a6], a2, a4, a5, n] + 
    S2[a1, SP[a3, a6], a2, a5, a4, n] + S2[a1, SP[a3, a6], a4, a2, a5, n] + 
    S2[a1, SP[a3, a6], a4, a5, a2, n] + S2[a1, SP[a3, a6], a5, a2, a4, n] + 
    S2[a1, SP[a3, a6], a5, a4, a2, n] + 2*S2[a1, SP[a4, a6], a2, a3, a5, n] + 
    2*S2[a1, SP[a4, a6], a2, a5, a3, n] + S2[a1, SP[a4, a6], a3, a2, a5, n] + 
    S2[a1, SP[a4, a6], a3, a5, a2, n] + 2*S2[a1, SP[a4, a6], a5, a2, a3, n] + 
    S2[a1, SP[a4, a6], a5, a3, a2, n] + S2[a1, SP[a5, a6], a3, a2, a4, n] + 
    S2[a1, SP[a5, a6], a3, a4, a2, n] + S2[a1, SP[a5, a6], a4, a2, a3, n] + 
    S2[a1, SP[a5, a6], a4, a3, a2, n] + S2[a2, a1, a3, a4, SP[a5, a6], n] + 
    S2[a2, a1, a3, a6, SP[a4, a5], n] + S2[a2, a1, a3, SP[a4, a5], a6, n] + 
    S2[a2, a1, a3, SP[a5, a6], a4, n] + S2[a2, a1, a4, a3, SP[a5, a6], n] + 
    S2[a2, a1, a4, a6, SP[a3, a5], n] + S2[a2, a1, a4, SP[a3, a5], a6, n] + 
    S2[a2, a1, a4, SP[a5, a6], a3, n] + S2[a2, a1, a6, a3, SP[a4, a5], n] + 
    S2[a2, a1, a6, a4, SP[a3, a5], n] + S2[a2, a1, a6, SP[a3, a5], a4, n] + 
    S2[a2, a1, a6, SP[a4, a5], a3, n] + S2[a2, a1, SP[a3, a5], a4, a6, n] + 
    S2[a2, a1, SP[a3, a5], a6, a4, n] + S2[a2, a1, SP[a4, a5], a3, a6, n] + 
    S2[a2, a1, SP[a4, a5], a6, a3, n] + S2[a2, a1, SP[a5, a6], a3, a4, n] + 
    S2[a2, a1, SP[a5, a6], a4, a3, n] - S2[a6, n]*S2[a2, a3, a1, a4, a5, n] - 
    S2[a6, n]*S2[a2, a3, a1, a5, a4, n] - S2[a2, a3, a1, a5, SP[a4, a6], n] + 
    S2[a2, a3, a1, a6, SP[a4, a5], n] + S2[a2, a3, a1, SP[a4, a5], a6, n] - 
    S2[a2, a3, a1, SP[a4, a6], a5, n] - S2[a6, n]*S2[a2, a3, a4, a1, a5, n] + 
    S2[a2, a3, a6, a1, SP[a4, a5], n] + S2[a2, a3, a6, SP[a1, a4], a5, n] + 
    S2[a2, a3, SP[a1, a4], a5, a6, n] + S2[a2, a3, SP[a1, a4], a6, a5, n] - 
    S2[a2, a3, SP[a4, a6], a1, a5, n] - S2[a6, n]*S2[a2, a4, a1, a3, a5, n] - 
    S2[a6, n]*S2[a2, a4, a1, a5, a3, n] - S2[a2, a4, a1, a5, SP[a3, a6], n] + 
    S2[a2, a4, a1, a6, SP[a3, a5], n] + S2[a2, a4, a1, SP[a3, a5], a6, n] - 
    S2[a2, a4, a1, SP[a3, a6], a5, n] - S2[a6, n]*S2[a2, a4, a3, a1, a5, n] + 
    S2[a2, a4, a6, a1, SP[a3, a5], n] + S2[a2, a4, a6, SP[a1, a3], a5, n] + 
    S2[a2, a4, SP[a1, a3], a5, a6, n] + S2[a2, a4, SP[a1, a3], a6, a5, n] - 
    S2[a2, a4, SP[a3, a6], a1, a5, n] - S2[a4, n]*S2[a2, a6, a1, a3, a5, n] + 
    S2[a2, a6, a1, a4, SP[a3, a5], n] - S2[a4, n]*S2[a2, a6, a1, a5, a3, n] - 
    S2[a2, a6, a1, a5, SP[a3, a4], n] - S2[a2, a6, a1, SP[a3, a4], a5, n] + 
    S2[a2, a6, a1, SP[a3, a5], a4, n] + S2[a2, a6, a3, a1, SP[a4, a5], n] + 
    S2[a2, a6, a3, SP[a1, a4], a5, n] + S2[a2, a6, a4, a1, SP[a3, a5], n] + 
    S2[a2, a6, a4, SP[a1, a3], a5, n] + S2[a2, a6, SP[a1, a3], a4, a5, n] + 
    S2[a2, a6, SP[a1, a3], a5, a4, n] + S2[a2, SP[a1, a3], a4, a5, a6, n] + 
    S2[a2, SP[a1, a3], a4, a6, a5, n] + S2[a2, SP[a1, a3], a5, a4, a6, n] + 
    S2[a2, SP[a1, a3], a5, a6, a4, n] + S2[a2, SP[a1, a3], a6, a4, a5, n] + 
    S2[a2, SP[a1, a3], a6, a5, a4, n] + S2[a2, SP[a1, a4], a3, a5, a6, n] + 
    S2[a2, SP[a1, a4], a3, a6, a5, n] + S2[a2, SP[a1, a4], a5, a3, a6, n] + 
    S2[a2, SP[a1, a4], a5, a6, a3, n] + S2[a2, SP[a1, a4], a6, a3, a5, n] + 
    S2[a2, SP[a1, a4], a6, a5, a3, n] + S2[a2, SP[a1, a6], a3, a4, a5, n] + 
    S2[a2, SP[a1, a6], a3, a5, a4, n] + S2[a2, SP[a1, a6], a4, a3, a5, n] + 
    S2[a2, SP[a1, a6], a4, a5, a3, n] + S2[a2, SP[a1, a6], a5, a3, a4, n] + 
    S2[a2, SP[a1, a6], a5, a4, a3, n] - S2[a2, SP[a3, a6], a1, a4, a5, n] - 
    S2[a2, SP[a3, a6], a1, a5, a4, n] - S2[a2, SP[a3, a6], a4, a1, a5, n] - 
    2*S2[a2, SP[a4, a6], a1, a3, a5, n] - 
    2*S2[a2, SP[a4, a6], a1, a5, a3, n] - S2[a2, SP[a4, a6], a3, a1, a5, n] - 
    S2[a4, a1, a6, a2, SP[a3, a5], n] - S2[a4, a1, a6, SP[a2, a5], a3, n] - 
    S2[a4, a1, SP[a5, a6], a2, a3, n] - S2[a4, a6, a1, a2, SP[a3, a5], n] + 
    S2[a2, n]*S2[a4, a6, a1, a3, a5, n] + S2[a4, a6, a1, a3, SP[a2, a5], n] + 
    S2[a2, n]*S2[a4, a6, a1, a5, a3, n] + S2[a4, a6, a1, a5, SP[a2, a3], n] + 
    S2[a4, a6, a1, SP[a2, a3], a5, n] - S2[a4, a6, a2, a1, SP[a3, a5], n] - 
    S2[a4, a6, a2, SP[a1, a3], a5, n] - S2[a4, SP[a1, a6], a2, a3, a5, n] - 
    S2[a4, SP[a1, a6], a2, a5, a3, n] - S2[a4, SP[a1, a6], a5, a2, a3, n] + 
    S2[a4, SP[a2, a6], a1, a3, a5, n] + S2[a4, SP[a2, a6], a1, a5, a3, n] - 
    S2[a4, n]*S2[a6, a1, a3, a2, a5, n] - S2[a6, a1, a3, a2, SP[a4, a5], n] - 
    S2[a4, n]*S2[a6, a1, a3, a5, a2, n] - S2[a6, a1, a3, a5, SP[a2, a4], n] - 
    S2[a6, a1, a3, SP[a2, a4], a5, n] - S2[a6, a1, a3, SP[a4, a5], a2, n] - 
    S2[a4, n]*S2[a6, a1, a5, a3, a2, n] - S2[a6, a1, a5, a3, SP[a2, a4], n] - 
    S2[a6, a1, a5, SP[a3, a4], a2, n] - S2[a6, a1, SP[a3, a4], a2, a5, n] - 
    S2[a6, a1, SP[a3, a4], a5, a2, n] - S2[a6, a1, SP[a4, a5], a3, a2, n] + 
    S2[a4, n]*S2[a6, a2, a3, a1, a5, n] + S2[a6, a2, a3, a1, SP[a4, a5], n] + 
    S2[a6, a2, a3, SP[a1, a4], a5, n] + S2[a6, a2, SP[a3, a4], a1, a5, n] + 
    S2[a2, n]*S2[a6, a4, a1, a3, a5, n] + S2[a6, a4, a1, a3, SP[a2, a5], n] + 
    S2[a2, n]*S2[a6, a4, a1, a5, a3, n] + S2[a6, a4, a1, a5, SP[a2, a3], n] + 
    S2[a6, a4, a1, SP[a2, a3], a5, n] + S2[a6, a4, a1, SP[a2, a5], a3, n] - 
    S2[a1, n]*S2[a6, a4, a2, a3, a5, n] - S2[a6, a4, a2, a3, SP[a1, a5], n] - 
    S2[a1, n]*S2[a6, a4, a2, a5, a3, n] - S2[a6, a4, a2, a5, SP[a1, a3], n] - 
    S2[a6, a4, a2, SP[a1, a3], a5, n] - S2[a6, a4, a2, SP[a1, a5], a3, n] - 
    S2[a1, n]*S2[a6, a4, a5, a2, a3, n] - S2[a6, a4, a5, a2, SP[a1, a3], n] - 
    S2[a6, a4, a5, SP[a1, a2], a3, n] - S2[a6, a4, SP[a1, a5], a2, a3, n] - 
    S2[a1, n]*S2[a6, a5, a4, a2, a3, n] - S2[a6, a5, a4, a2, SP[a1, a3], n] - 
    S2[a6, a5, a4, SP[a1, a2], a3, n] - S2[a6, a5, SP[a1, a4], a2, a3, n] - 
    S2[a6, SP[a1, a4], a2, a3, a5, n] - S2[a6, SP[a1, a4], a2, a5, a3, n] - 
    S2[a6, SP[a1, a4], a3, a2, a5, n] - S2[a6, SP[a1, a4], a3, a5, a2, n] - 
    S2[a6, SP[a1, a4], a5, a2, a3, n] - S2[a6, SP[a1, a4], a5, a3, a2, n] - 
    S2[a6, SP[a1, a5], a4, a2, a3, n] + S2[a6, SP[a2, a4], a1, a3, a5, n] + 
    S2[a6, SP[a2, a4], a1, a5, a3, n] + S2[a6, SP[a2, a4], a3, a1, a5, n] + 
    S2[SP[a1, a6], a3, a2, a4, a5, n] + S2[SP[a1, a6], a3, a2, a5, a4, n] + 
    S2[SP[a1, a6], a3, a4, a2, a5, n] + S2[SP[a1, a6], a3, a4, a5, a2, n] + 
    S2[SP[a1, a6], a3, a5, a2, a4, n] + S2[SP[a1, a6], a3, a5, a4, a2, n] + 
    S2[SP[a1, a6], a4, a3, a2, a5, n] + S2[SP[a1, a6], a4, a3, a5, a2, n] + 
    S2[SP[a1, a6], a4, a5, a3, a2, n] + S2[SP[a1, a6], a5, a3, a2, a4, n] + 
    S2[SP[a1, a6], a5, a3, a4, a2, n] + S2[SP[a1, a6], a5, a4, a3, a2, n] - 
    S2[SP[a2, a6], a3, a1, a4, a5, n] - S2[SP[a2, a6], a3, a1, a5, a4, n] - 
    S2[SP[a2, a6], a3, a4, a1, a5, n] - S2[SP[a2, a6], a4, a3, a1, a5, n] - 
    S2[SP[a4, a6], a1, a3, a2, a5, n] - S2[SP[a4, a6], a1, a3, a5, a2, n] - 
    S2[SP[a4, a6], a1, a5, a3, a2, n] + S2[SP[a4, a6], a2, a3, a1, a5, n] + 
    S2[a6, a4, a2, a3, a5, a1, n] + S2[a6, a4, a2, a5, a1, a3, n] + 
    S2[a6, a4, a2, a5, a3, a1, n] + S2[a6, a4, a5, a1, a2, a3, n] + 
    S2[a6, a4, a5, a2, a1, a3, n] + S2[a6, a4, a5, a2, a3, a1, n] + 
    S2[a6, a5, a1, a4, a2, a3, n] + S2[a6, a5, a4, a1, a2, a3, n] + 
    S2[a6, a5, a4, a2, a1, a3, n] + S2[a6, a5, a4, a2, a3, a1, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a1_, a5_, a6_, a4_, a3_, a2_, n_] :> 
  -(S2[a1, a5, n]*S2[a2, a3, a4, a6, n]) - S2[a1, a5, n]*
     S2[a2, a3, a6, a4, n] + S2[a2, a3, SP[a1, a4], SP[a5, a6], n] + 
    S2[a2, a3, SP[a1, a6], SP[a4, a5], n] - S2[a1, a5, n]*
     S2[a2, a6, a3, a4, n] - S2[a1, a5, n]*S2[a2, a6, a4, a3, n] + 
    S2[a2, a6, SP[a1, a3], SP[a4, a5], n] + S2[a2, a6, SP[a1, a4], 
     SP[a3, a5], n] + S2[a2, SP[a1, a3], a4, SP[a5, a6], n] + 
    S2[a2, SP[a1, a3], a6, SP[a4, a5], n] + S2[a2, SP[a1, a3], SP[a4, a5], 
     a6, n] + S2[a2, SP[a1, a3], SP[a5, a6], a4, n] + 
    S2[a2, SP[a1, a6], a3, SP[a4, a5], n] + S2[a2, SP[a1, a6], a4, 
     SP[a3, a5], n] + S2[a2, SP[a1, a6], SP[a3, a5], a4, n] + 
    S2[a2, SP[a1, a6], SP[a4, a5], a3, n] + S2[a1, a5, n]*
     S2[a4, a6, a2, a3, n] - S2[a4, a6, SP[a1, a2], SP[a3, a5], n] - 
    S2[a4, SP[a1, a6], a2, SP[a3, a5], n] - S2[a4, SP[a1, a6], SP[a2, a5], 
     a3, n] + S2[SP[a1, a2], a3, a4, SP[a5, a6], n] + 
    S2[SP[a1, a2], a3, a6, SP[a4, a5], n] + S2[SP[a1, a2], a3, SP[a4, a5], 
     a6, n] + S2[SP[a1, a2], a3, SP[a5, a6], a4, n] + 
    S2[SP[a1, a2], a6, a3, SP[a4, a5], n] + S2[SP[a1, a2], a6, a4, 
     SP[a3, a5], n] + S2[SP[a1, a2], a6, SP[a3, a5], a4, n] + 
    S2[SP[a1, a2], a6, SP[a4, a5], a3, n] + S2[SP[a1, a2], SP[a3, a5], a4, 
     a6, n] + S2[SP[a1, a2], SP[a3, a5], a6, a4, n] + 
    S2[SP[a1, a2], SP[a5, a6], a3, a4, n] + S2[SP[a1, a2], SP[a5, a6], a4, 
     a3, n] - S2[SP[a1, a4], a6, a2, SP[a3, a5], n] - 
    S2[SP[a1, a4], a6, SP[a2, a5], a3, n] - S2[SP[a1, a4], SP[a5, a6], a2, 
     a3, n] - S2[a1, a2, a3, a4, SP[a5, a6], n] - 
    S2[a1, a2, a3, a6, SP[a4, a5], n] - S2[a1, a2, a3, SP[a4, a5], a6, n] - 
    S2[a1, a2, a3, SP[a5, a6], a4, n] - S2[a1, a2, a6, a3, SP[a4, a5], n] - 
    S2[a1, a2, a6, a4, SP[a3, a5], n] - S2[a1, a2, a6, SP[a3, a5], a4, n] - 
    S2[a1, a2, a6, SP[a4, a5], a3, n] - S2[a1, a2, SP[a3, a5], a4, a6, n] - 
    S2[a1, a2, SP[a3, a5], a6, a4, n] - S2[a1, a2, SP[a5, a6], a3, a4, n] - 
    S2[a1, a2, SP[a5, a6], a4, a3, n] - S2[a6, n]*S2[a1, a3, a2, a4, a5, n] - 
    S2[a1, a3, a2, a4, SP[a5, a6], n] - S2[a6, n]*S2[a1, a3, a2, a5, a4, n] - 
    S2[a1, a3, a2, a5, SP[a4, a6], n] - S2[a1, a3, a2, SP[a4, a6], a5, n] - 
    S2[a1, a3, a2, SP[a5, a6], a4, n] - S2[a6, n]*S2[a1, a3, a4, a2, a5, n] - 
    S2[a1, a3, a4, a2, SP[a5, a6], n] - S2[a6, n]*S2[a1, a3, a4, a5, a2, n] + 
    S2[a2, n]*S2[a1, a3, a4, a5, a6, n] + 
    S2[a2, n]*S2[a1, a3, a4, a6, a5, n] + S2[a1, a3, a4, a6, SP[a2, a5], n] + 
    S2[a1, a3, a4, SP[a2, a5], a6, n] - S2[a1, a3, a4, SP[a5, a6], a2, n] - 
    S2[a6, n]*S2[a1, a3, a5, a2, a4, n] - S2[a1, a3, a5, a2, SP[a4, a6], n] - 
    S2[a6, n]*S2[a1, a3, a5, a4, a2, n] + 
    S2[a2, n]*S2[a1, a3, a5, a4, a6, n] + 
    S2[a2, n]*S2[a1, a3, a5, a6, a4, n] + S2[a1, a3, a5, a6, SP[a2, a4], n] + 
    S2[a1, a3, a5, SP[a2, a4], a6, n] - S2[a1, a3, a5, SP[a4, a6], a2, n] + 
    S2[a2, n]*S2[a1, a3, a6, a4, a5, n] + S2[a1, a3, a6, a4, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a3, a6, a5, a4, n] + S2[a1, a3, a6, a5, SP[a2, a4], n] + 
    S2[a1, a3, a6, SP[a2, a4], a5, n] + S2[a1, a3, a6, SP[a2, a5], a4, n] + 
    S2[a1, a3, SP[a2, a4], a5, a6, n] + S2[a1, a3, SP[a2, a4], a6, a5, n] + 
    S2[a1, a3, SP[a2, a5], a4, a6, n] + S2[a1, a3, SP[a2, a5], a6, a4, n] - 
    S2[a1, a3, SP[a4, a6], a2, a5, n] - S2[a1, a3, SP[a4, a6], a5, a2, n] - 
    S2[a1, a3, SP[a5, a6], a2, a4, n] - S2[a1, a3, SP[a5, a6], a4, a2, n] + 
    S2[a1, a4, a6, a2, SP[a3, a5], n] + S2[a1, a4, a6, SP[a2, a5], a3, n] + 
    S2[a1, a4, SP[a5, a6], a2, a3, n] - S2[a6, n]*S2[a1, a5, a3, a2, a4, n] - 
    S2[a1, a5, a3, a2, SP[a4, a6], n] - S2[a6, n]*S2[a1, a5, a3, a4, a2, n] + 
    S2[a2, n]*S2[a1, a5, a3, a4, a6, n] + 
    S2[a2, n]*S2[a1, a5, a3, a6, a4, n] + S2[a1, a5, a3, a6, SP[a2, a4], n] + 
    S2[a1, a5, a3, SP[a2, a4], a6, n] - S2[a1, a5, a3, SP[a4, a6], a2, n] - 
    S2[a4, n]*S2[a1, a5, a6, a2, a3, n] - S2[a1, a5, a6, a2, SP[a3, a4], n] + 
    S2[a2, n]*S2[a1, a5, a6, a3, a4, n] + S2[a1, a5, a6, a3, SP[a2, a4], n] + 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] + S2[a1, a5, a6, a4, SP[a2, a3], n] + 
    S2[a1, a5, a6, SP[a2, a3], a4, n] + S2[a1, a5, SP[a2, a3], a4, a6, n] + 
    S2[a1, a5, SP[a2, a3], a6, a4, n] + S2[a1, a5, SP[a2, a6], a3, a4, n] + 
    S2[a1, a5, SP[a2, a6], a4, a3, n] - S2[a1, a5, SP[a3, a6], a2, a4, n] - 
    S2[a1, a5, SP[a3, a6], a4, a2, n] - S2[a1, a5, SP[a4, a6], a2, a3, n] - 
    S2[a4, n]*S2[a1, a6, a2, a3, a5, n] - S2[a1, a6, a2, a3, SP[a4, a5], n] - 
    S2[a4, n]*S2[a1, a6, a2, a5, a3, n] - S2[a1, a6, a2, a5, SP[a3, a4], n] - 
    S2[a1, a6, a2, SP[a3, a4], a5, n] - S2[a1, a6, a2, SP[a4, a5], a3, n] + 
    S2[a2, n]*S2[a1, a6, a3, a4, a5, n] + S2[a1, a6, a3, a4, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a6, a3, a5, a4, n] + S2[a1, a6, a3, a5, SP[a2, a4], n] + 
    S2[a1, a6, a3, SP[a2, a4], a5, n] + S2[a1, a6, a3, SP[a2, a5], a4, n] + 
    S2[a2, n]*S2[a1, a6, a4, a3, a5, n] + S2[a1, a6, a4, a3, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a6, a4, a5, a3, n] + S2[a1, a6, a4, a5, SP[a2, a3], n] + 
    S2[a1, a6, a4, SP[a2, a3], a5, n] + S2[a1, a6, a4, SP[a2, a5], a3, n] - 
    S2[a4, n]*S2[a1, a6, a5, a2, a3, n] - S2[a1, a6, a5, a2, SP[a3, a4], n] + 
    S2[a2, n]*S2[a1, a6, a5, a3, a4, n] + S2[a1, a6, a5, a3, SP[a2, a4], n] + 
    S2[a2, n]*S2[a1, a6, a5, a4, a3, n] + S2[a1, a6, a5, a4, SP[a2, a3], n] + 
    S2[a1, a6, a5, SP[a2, a3], a4, n] + S2[a1, a6, SP[a2, a3], a4, a5, n] + 
    S2[a1, a6, SP[a2, a3], a5, a4, n] + S2[a1, a6, SP[a2, a5], a3, a4, n] + 
    S2[a1, a6, SP[a2, a5], a4, a3, n] - S2[a1, a6, SP[a4, a5], a2, a3, n] + 
    S2[a1, SP[a2, a3], a4, a5, a6, n] + S2[a1, SP[a2, a3], a4, a6, a5, n] + 
    S2[a1, SP[a2, a3], a5, a4, a6, n] + S2[a1, SP[a2, a3], a5, a6, a4, n] + 
    S2[a1, SP[a2, a3], a6, a4, a5, n] + S2[a1, SP[a2, a3], a6, a5, a4, n] + 
    S2[a1, SP[a2, a6], a3, a4, a5, n] + S2[a1, SP[a2, a6], a3, a5, a4, n] + 
    S2[a1, SP[a2, a6], a4, a3, a5, n] + S2[a1, SP[a2, a6], a4, a5, a3, n] + 
    S2[a1, SP[a2, a6], a5, a3, a4, n] + S2[a1, SP[a2, a6], a5, a4, a3, n] - 
    S2[a1, SP[a3, a6], a2, a4, a5, n] - S2[a1, SP[a3, a6], a2, a5, a4, n] - 
    S2[a1, SP[a3, a6], a4, a2, a5, n] - S2[a1, SP[a3, a6], a4, a5, a2, n] - 
    S2[a1, SP[a3, a6], a5, a2, a4, n] - S2[a1, SP[a3, a6], a5, a4, a2, n] - 
    S2[a1, SP[a4, a6], a2, a3, a5, n] - S2[a1, SP[a4, a6], a2, a5, a3, n] - 
    S2[a1, SP[a4, a6], a5, a2, a3, n] - S2[a1, SP[a5, a6], a3, a2, a4, n] - 
    S2[a1, SP[a5, a6], a3, a4, a2, n] - S2[a2, a1, a3, a4, SP[a5, a6], n] - 
    S2[a2, a1, a3, a6, SP[a4, a5], n] - S2[a2, a1, a3, SP[a4, a5], a6, n] - 
    S2[a2, a1, a3, SP[a5, a6], a4, n] - S2[a2, a1, a6, a3, SP[a4, a5], n] - 
    S2[a2, a1, a6, a4, SP[a3, a5], n] - S2[a2, a1, a6, SP[a3, a5], a4, n] - 
    S2[a2, a1, a6, SP[a4, a5], a3, n] - S2[a2, a1, SP[a3, a5], a4, a6, n] - 
    S2[a2, a1, SP[a3, a5], a6, a4, n] - S2[a2, a1, SP[a5, a6], a3, a4, n] - 
    S2[a2, a1, SP[a5, a6], a4, a3, n] + S2[a6, n]*S2[a2, a3, a1, a4, a5, n] + 
    S2[a6, n]*S2[a2, a3, a1, a5, a4, n] + S2[a2, a3, a1, a5, SP[a4, a6], n] - 
    S2[a2, a3, a1, a6, SP[a4, a5], n] - S2[a2, a3, a1, SP[a4, a5], a6, n] + 
    S2[a2, a3, a1, SP[a4, a6], a5, n] + S2[a6, n]*S2[a2, a3, a4, a1, a5, n] - 
    S2[a2, a3, a6, a1, SP[a4, a5], n] - S2[a2, a3, a6, SP[a1, a4], a5, n] - 
    S2[a2, a3, SP[a1, a4], a5, a6, n] - S2[a2, a3, SP[a1, a4], a6, a5, n] + 
    S2[a2, a3, SP[a4, a6], a1, a5, n] + S2[a4, n]*S2[a2, a6, a1, a3, a5, n] - 
    S2[a2, a6, a1, a4, SP[a3, a5], n] + S2[a4, n]*S2[a2, a6, a1, a5, a3, n] + 
    S2[a2, a6, a1, a5, SP[a3, a4], n] + S2[a2, a6, a1, SP[a3, a4], a5, n] - 
    S2[a2, a6, a1, SP[a3, a5], a4, n] - S2[a2, a6, a3, a1, SP[a4, a5], n] - 
    S2[a2, a6, a3, SP[a1, a4], a5, n] - S2[a2, a6, a4, a1, SP[a3, a5], n] - 
    S2[a2, a6, a4, SP[a1, a3], a5, n] - S2[a2, a6, SP[a1, a3], a4, a5, n] - 
    S2[a2, a6, SP[a1, a3], a5, a4, n] - S2[a2, SP[a1, a3], a4, a5, a6, n] - 
    S2[a2, SP[a1, a3], a4, a6, a5, n] - S2[a2, SP[a1, a3], a5, a4, a6, n] - 
    S2[a2, SP[a1, a3], a5, a6, a4, n] - S2[a2, SP[a1, a3], a6, a4, a5, n] - 
    S2[a2, SP[a1, a3], a6, a5, a4, n] - S2[a2, SP[a1, a6], a3, a4, a5, n] - 
    S2[a2, SP[a1, a6], a3, a5, a4, n] - S2[a2, SP[a1, a6], a4, a3, a5, n] - 
    S2[a2, SP[a1, a6], a4, a5, a3, n] - S2[a2, SP[a1, a6], a5, a3, a4, n] - 
    S2[a2, SP[a1, a6], a5, a4, a3, n] + S2[a2, SP[a3, a6], a1, a4, a5, n] + 
    S2[a2, SP[a3, a6], a1, a5, a4, n] + S2[a2, SP[a3, a6], a4, a1, a5, n] + 
    S2[a2, SP[a4, a6], a1, a3, a5, n] + S2[a2, SP[a4, a6], a1, a5, a3, n] + 
    S2[a4, a1, a6, a2, SP[a3, a5], n] + S2[a4, a1, a6, SP[a2, a5], a3, n] + 
    S2[a4, a1, SP[a5, a6], a2, a3, n] + S2[a4, a6, a1, a2, SP[a3, a5], n] - 
    S2[a2, n]*S2[a4, a6, a1, a3, a5, n] - S2[a4, a6, a1, a3, SP[a2, a5], n] - 
    S2[a2, n]*S2[a4, a6, a1, a5, a3, n] - S2[a4, a6, a1, a5, SP[a2, a3], n] - 
    S2[a4, a6, a1, SP[a2, a3], a5, n] + S2[a4, a6, a2, a1, SP[a3, a5], n] + 
    S2[a4, a6, a2, SP[a1, a3], a5, n] + S2[a4, SP[a1, a6], a2, a3, a5, n] + 
    S2[a4, SP[a1, a6], a2, a5, a3, n] + S2[a4, SP[a1, a6], a5, a2, a3, n] - 
    S2[a4, SP[a2, a6], a1, a3, a5, n] - S2[a4, SP[a2, a6], a1, a5, a3, n] + 
    S2[a4, n]*S2[a6, a1, a3, a2, a5, n] + S2[a6, a1, a3, a2, SP[a4, a5], n] + 
    S2[a4, n]*S2[a6, a1, a3, a5, a2, n] + S2[a6, a1, a3, a5, SP[a2, a4], n] + 
    S2[a6, a1, a3, SP[a2, a4], a5, n] + S2[a6, a1, a3, SP[a4, a5], a2, n] + 
    S2[a4, n]*S2[a6, a1, a5, a3, a2, n] + S2[a6, a1, a5, a3, SP[a2, a4], n] + 
    S2[a6, a1, a5, SP[a3, a4], a2, n] + S2[a6, a1, SP[a3, a4], a2, a5, n] + 
    S2[a6, a1, SP[a3, a4], a5, a2, n] + S2[a6, a1, SP[a4, a5], a3, a2, n] - 
    S2[a4, n]*S2[a6, a2, a3, a1, a5, n] - S2[a6, a2, a3, a1, SP[a4, a5], n] - 
    S2[a6, a2, a3, SP[a1, a4], a5, n] - S2[a6, a2, SP[a3, a4], a1, a5, n] + 
    S2[a2, n]*S2[a6, a4, a3, a1, a5, n] + S2[a6, a4, a3, a1, SP[a2, a5], n] - 
    S2[a1, n]*S2[a6, a4, a3, a2, a5, n] - S2[a6, a4, a3, a2, SP[a1, a5], n] - 
    S2[a1, n]*S2[a6, a4, a3, a5, a2, n] - S2[a6, a4, a3, a5, SP[a1, a2], n] - 
    S2[a6, a4, a3, SP[a1, a5], a2, n] - S2[a1, n]*S2[a6, a4, a5, a3, a2, n] - 
    S2[a6, a4, a5, a3, SP[a1, a2], n] - S2[a6, a4, a5, SP[a1, a3], a2, n] - 
    S2[a6, a4, SP[a1, a3], a2, a5, n] - S2[a6, a4, SP[a1, a3], a5, a2, n] - 
    S2[a6, a4, SP[a1, a5], a3, a2, n] + S2[a6, a4, SP[a2, a3], a1, a5, n] - 
    S2[a1, n]*S2[a6, a5, a4, a3, a2, n] - S2[a6, a5, a4, a3, SP[a1, a2], n] - 
    S2[a6, a5, a4, SP[a1, a3], a2, n] - S2[a6, a5, SP[a1, a4], a3, a2, n] - 
    S2[a6, SP[a1, a5], a4, a3, a2, n] - S2[SP[a1, a6], a3, a2, a4, a5, n] - 
    S2[SP[a1, a6], a3, a2, a5, a4, n] - S2[SP[a1, a6], a3, a4, a2, a5, n] - 
    S2[SP[a1, a6], a3, a4, a5, a2, n] - S2[SP[a1, a6], a3, a5, a2, a4, n] - 
    S2[SP[a1, a6], a3, a5, a4, a2, n] - S2[SP[a1, a6], a4, a3, a2, a5, n] - 
    S2[SP[a1, a6], a4, a3, a5, a2, n] - S2[SP[a1, a6], a4, a5, a3, a2, n] - 
    S2[SP[a1, a6], a5, a3, a2, a4, n] - S2[SP[a1, a6], a5, a3, a4, a2, n] - 
    S2[SP[a1, a6], a5, a4, a3, a2, n] + S2[SP[a2, a6], a3, a1, a4, a5, n] + 
    S2[SP[a2, a6], a3, a1, a5, a4, n] + S2[SP[a2, a6], a3, a4, a1, a5, n] + 
    S2[SP[a2, a6], a4, a3, a1, a5, n] + S2[SP[a4, a6], a1, a3, a2, a5, n] + 
    S2[SP[a4, a6], a1, a3, a5, a2, n] + S2[SP[a4, a6], a1, a5, a3, a2, n] - 
    S2[SP[a4, a6], a2, a3, a1, a5, n] + S2[a6, a4, a3, a2, a5, a1, n] + 
    S2[a6, a4, a3, a5, a1, a2, n] + S2[a6, a4, a3, a5, a2, a1, n] + 
    S2[a6, a4, a5, a1, a3, a2, n] + S2[a6, a4, a5, a3, a1, a2, n] + 
    S2[a6, a4, a5, a3, a2, a1, n] + S2[a6, a5, a1, a4, a3, a2, n] + 
    S2[a6, a5, a4, a1, a3, a2, n] + S2[a6, a5, a4, a3, a1, a2, n] + 
    S2[a6, a5, a4, a3, a2, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a1_, a6_, a2_, a3_, a4_, a5_, n_] :> 
  S2[a1, n]*S2[a6, a2, a3, a4, a5, n] + S2[a6, a2, a3, a4, SP[a1, a5], n] + 
    S2[a6, a2, a3, SP[a1, a4], a5, n] + S2[a6, a2, SP[a1, a3], a4, a5, n] + 
    S2[a6, SP[a1, a2], a3, a4, a5, n] + S2[SP[a1, a6], a2, a3, a4, a5, n] - 
    S2[a6, a1, a2, a3, a4, a5, n] - S2[a6, a2, a1, a3, a4, a5, n] - 
    S2[a6, a2, a3, a1, a4, a5, n] - S2[a6, a2, a3, a4, a1, a5, n] - 
    S2[a6, a2, a3, a4, a5, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a1_, a6_, a2_, a3_, a5_, a4_, n_] :> 
  S2[a1, n]*S2[a6, a2, a3, a5, a4, n] + S2[a6, a2, a3, a5, SP[a1, a4], n] + 
    S2[a6, a2, a3, SP[a1, a5], a4, n] + S2[a6, a2, SP[a1, a3], a5, a4, n] + 
    S2[a6, SP[a1, a2], a3, a5, a4, n] + S2[SP[a1, a6], a2, a3, a5, a4, n] - 
    S2[a6, a1, a2, a3, a5, a4, n] - S2[a6, a2, a1, a3, a5, a4, n] - 
    S2[a6, a2, a3, a1, a5, a4, n] - S2[a6, a2, a3, a5, a1, a4, n] - 
    S2[a6, a2, a3, a5, a4, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a1_, a6_, a2_, a4_, a3_, a5_, n_] :> 
  S2[a1, n]*S2[a6, a2, a4, a3, a5, n] + S2[a6, a2, a4, a3, SP[a1, a5], n] + 
    S2[a6, a2, a4, SP[a1, a3], a5, n] + S2[a6, a2, SP[a1, a4], a3, a5, n] + 
    S2[a6, SP[a1, a2], a4, a3, a5, n] + S2[SP[a1, a6], a2, a4, a3, a5, n] - 
    S2[a6, a1, a2, a4, a3, a5, n] - S2[a6, a2, a1, a4, a3, a5, n] - 
    S2[a6, a2, a4, a1, a3, a5, n] - S2[a6, a2, a4, a3, a1, a5, n] - 
    S2[a6, a2, a4, a3, a5, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a1_, a6_, a2_, a4_, a5_, a3_, n_] :> 
  S2[a1, n]*S2[a6, a2, a4, a5, a3, n] + S2[a6, a2, a4, a5, SP[a1, a3], n] + 
    S2[a6, a2, a4, SP[a1, a5], a3, n] + S2[a6, a2, SP[a1, a4], a5, a3, n] + 
    S2[a6, SP[a1, a2], a4, a5, a3, n] + S2[SP[a1, a6], a2, a4, a5, a3, n] - 
    S2[a6, a1, a2, a4, a5, a3, n] - S2[a6, a2, a1, a4, a5, a3, n] - 
    S2[a6, a2, a4, a1, a5, a3, n] - S2[a6, a2, a4, a5, a1, a3, n] - 
    S2[a6, a2, a4, a5, a3, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a1_, a6_, a2_, a5_, a3_, a4_, n_] :> 
  S2[a1, n]*S2[a6, a2, a5, a3, a4, n] + S2[a6, a2, a5, a3, SP[a1, a4], n] + 
    S2[a6, a2, a5, SP[a1, a3], a4, n] + S2[a6, a2, SP[a1, a5], a3, a4, n] + 
    S2[a6, SP[a1, a2], a5, a3, a4, n] + S2[SP[a1, a6], a2, a5, a3, a4, n] - 
    S2[a6, a1, a2, a5, a3, a4, n] - S2[a6, a2, a1, a5, a3, a4, n] - 
    S2[a6, a2, a5, a1, a3, a4, n] - S2[a6, a2, a5, a3, a1, a4, n] - 
    S2[a6, a2, a5, a3, a4, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a1_, a6_, a2_, a5_, a4_, a3_, n_] :> 
  S2[a1, n]*S2[a6, a2, a5, a4, a3, n] + S2[a6, a2, a5, a4, SP[a1, a3], n] + 
    S2[a6, a2, a5, SP[a1, a4], a3, n] + S2[a6, a2, SP[a1, a5], a4, a3, n] + 
    S2[a6, SP[a1, a2], a5, a4, a3, n] + S2[SP[a1, a6], a2, a5, a4, a3, n] - 
    S2[a6, a1, a2, a5, a4, a3, n] - S2[a6, a2, a1, a5, a4, a3, n] - 
    S2[a6, a2, a5, a1, a4, a3, n] - S2[a6, a2, a5, a4, a1, a3, n] - 
    S2[a6, a2, a5, a4, a3, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a1_, a6_, a3_, a2_, a4_, a5_, n_] :> 
  S2[a1, n]*S2[a6, a3, a2, a4, a5, n] + S2[a6, a3, a2, a4, SP[a1, a5], n] + 
    S2[a6, a3, a2, SP[a1, a4], a5, n] + S2[a6, a3, SP[a1, a2], a4, a5, n] + 
    S2[a6, SP[a1, a3], a2, a4, a5, n] + S2[SP[a1, a6], a3, a2, a4, a5, n] - 
    S2[a6, a1, a3, a2, a4, a5, n] - S2[a6, a3, a1, a2, a4, a5, n] - 
    S2[a6, a3, a2, a1, a4, a5, n] - S2[a6, a3, a2, a4, a1, a5, n] - 
    S2[a6, a3, a2, a4, a5, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a1_, a6_, a3_, a2_, a5_, a4_, n_] :> 
  S2[a1, n]*S2[a6, a3, a2, a5, a4, n] + S2[a6, a3, a2, a5, SP[a1, a4], n] + 
    S2[a6, a3, a2, SP[a1, a5], a4, n] + S2[a6, a3, SP[a1, a2], a5, a4, n] + 
    S2[a6, SP[a1, a3], a2, a5, a4, n] + S2[SP[a1, a6], a3, a2, a5, a4, n] - 
    S2[a6, a1, a3, a2, a5, a4, n] - S2[a6, a3, a1, a2, a5, a4, n] - 
    S2[a6, a3, a2, a1, a5, a4, n] - S2[a6, a3, a2, a5, a1, a4, n] - 
    S2[a6, a3, a2, a5, a4, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a1_, a6_, a3_, a4_, a2_, a5_, n_] :> 
  S2[a1, n]*S2[a6, a3, a4, a2, a5, n] + S2[a6, a3, a4, a2, SP[a1, a5], n] + 
    S2[a6, a3, a4, SP[a1, a2], a5, n] + S2[a6, a3, SP[a1, a4], a2, a5, n] + 
    S2[a6, SP[a1, a3], a4, a2, a5, n] + S2[SP[a1, a6], a3, a4, a2, a5, n] - 
    S2[a6, a1, a3, a4, a2, a5, n] - S2[a6, a3, a1, a4, a2, a5, n] - 
    S2[a6, a3, a4, a1, a2, a5, n] - S2[a6, a3, a4, a2, a1, a5, n] - 
    S2[a6, a3, a4, a2, a5, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a1_, a6_, a3_, a4_, a5_, a2_, n_] :> 
  S2[a1, n]*S2[a6, a3, a4, a5, a2, n] + S2[a6, a3, a4, a5, SP[a1, a2], n] + 
    S2[a6, a3, a4, SP[a1, a5], a2, n] + S2[a6, a3, SP[a1, a4], a5, a2, n] + 
    S2[a6, SP[a1, a3], a4, a5, a2, n] + S2[SP[a1, a6], a3, a4, a5, a2, n] - 
    S2[a6, a1, a3, a4, a5, a2, n] - S2[a6, a3, a1, a4, a5, a2, n] - 
    S2[a6, a3, a4, a1, a5, a2, n] - S2[a6, a3, a4, a5, a1, a2, n] - 
    S2[a6, a3, a4, a5, a2, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a1_, a6_, a3_, a5_, a2_, a4_, n_] :> 
  S2[a1, n]*S2[a6, a3, a5, a2, a4, n] + S2[a6, a3, a5, a2, SP[a1, a4], n] + 
    S2[a6, a3, a5, SP[a1, a2], a4, n] + S2[a6, a3, SP[a1, a5], a2, a4, n] + 
    S2[a6, SP[a1, a3], a5, a2, a4, n] + S2[SP[a1, a6], a3, a5, a2, a4, n] - 
    S2[a6, a1, a3, a5, a2, a4, n] - S2[a6, a3, a1, a5, a2, a4, n] - 
    S2[a6, a3, a5, a1, a2, a4, n] - S2[a6, a3, a5, a2, a1, a4, n] - 
    S2[a6, a3, a5, a2, a4, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a1_, a6_, a3_, a5_, a4_, a2_, n_] :> 
  S2[a1, n]*S2[a6, a3, a5, a4, a2, n] + S2[a6, a3, a5, a4, SP[a1, a2], n] + 
    S2[a6, a3, a5, SP[a1, a4], a2, n] + S2[a6, a3, SP[a1, a5], a4, a2, n] + 
    S2[a6, SP[a1, a3], a5, a4, a2, n] + S2[SP[a1, a6], a3, a5, a4, a2, n] - 
    S2[a6, a1, a3, a5, a4, a2, n] - S2[a6, a3, a1, a5, a4, a2, n] - 
    S2[a6, a3, a5, a1, a4, a2, n] - S2[a6, a3, a5, a4, a1, a2, n] - 
    S2[a6, a3, a5, a4, a2, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a1_, a6_, a4_, a2_, a3_, a5_, n_] :> 
  S2[a1, n]*S2[a6, a4, a2, a3, a5, n] + S2[a6, a4, a2, a3, SP[a1, a5], n] + 
    S2[a6, a4, a2, SP[a1, a3], a5, n] + S2[a6, a4, SP[a1, a2], a3, a5, n] + 
    S2[a6, SP[a1, a4], a2, a3, a5, n] + S2[SP[a1, a6], a4, a2, a3, a5, n] - 
    S2[a6, a1, a4, a2, a3, a5, n] - S2[a6, a4, a1, a2, a3, a5, n] - 
    S2[a6, a4, a2, a1, a3, a5, n] - S2[a6, a4, a2, a3, a1, a5, n] - 
    S2[a6, a4, a2, a3, a5, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a1_, a6_, a4_, a2_, a5_, a3_, n_] :> 
  S2[a1, n]*S2[a6, a4, a2, a5, a3, n] + S2[a6, a4, a2, a5, SP[a1, a3], n] + 
    S2[a6, a4, a2, SP[a1, a5], a3, n] + S2[a6, a4, SP[a1, a2], a5, a3, n] + 
    S2[a6, SP[a1, a4], a2, a5, a3, n] + S2[SP[a1, a6], a4, a2, a5, a3, n] - 
    S2[a6, a1, a4, a2, a5, a3, n] - S2[a6, a4, a1, a2, a5, a3, n] - 
    S2[a6, a4, a2, a1, a5, a3, n] - S2[a6, a4, a2, a5, a1, a3, n] - 
    S2[a6, a4, a2, a5, a3, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a1_, a6_, a4_, a3_, a2_, a5_, n_] :> 
  S2[a1, n]*S2[a6, a4, a3, a2, a5, n] + S2[a6, a4, a3, a2, SP[a1, a5], n] + 
    S2[a6, a4, a3, SP[a1, a2], a5, n] + S2[a6, a4, SP[a1, a3], a2, a5, n] + 
    S2[a6, SP[a1, a4], a3, a2, a5, n] + S2[SP[a1, a6], a4, a3, a2, a5, n] - 
    S2[a6, a1, a4, a3, a2, a5, n] - S2[a6, a4, a1, a3, a2, a5, n] - 
    S2[a6, a4, a3, a1, a2, a5, n] - S2[a6, a4, a3, a2, a1, a5, n] - 
    S2[a6, a4, a3, a2, a5, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a1_, a6_, a4_, a3_, a5_, a2_, n_] :> 
  S2[a1, n]*S2[a6, a4, a3, a5, a2, n] + S2[a6, a4, a3, a5, SP[a1, a2], n] + 
    S2[a6, a4, a3, SP[a1, a5], a2, n] + S2[a6, a4, SP[a1, a3], a5, a2, n] + 
    S2[a6, SP[a1, a4], a3, a5, a2, n] + S2[SP[a1, a6], a4, a3, a5, a2, n] - 
    S2[a6, a1, a4, a3, a5, a2, n] - S2[a6, a4, a1, a3, a5, a2, n] - 
    S2[a6, a4, a3, a1, a5, a2, n] - S2[a6, a4, a3, a5, a1, a2, n] - 
    S2[a6, a4, a3, a5, a2, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a1_, a6_, a4_, a5_, a2_, a3_, n_] :> 
  S2[a1, n]*S2[a6, a4, a5, a2, a3, n] + S2[a6, a4, a5, a2, SP[a1, a3], n] + 
    S2[a6, a4, a5, SP[a1, a2], a3, n] + S2[a6, a4, SP[a1, a5], a2, a3, n] + 
    S2[a6, SP[a1, a4], a5, a2, a3, n] + S2[SP[a1, a6], a4, a5, a2, a3, n] - 
    S2[a6, a1, a4, a5, a2, a3, n] - S2[a6, a4, a1, a5, a2, a3, n] - 
    S2[a6, a4, a5, a1, a2, a3, n] - S2[a6, a4, a5, a2, a1, a3, n] - 
    S2[a6, a4, a5, a2, a3, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a1_, a6_, a4_, a5_, a3_, a2_, n_] :> 
  S2[a1, n]*S2[a6, a4, a5, a3, a2, n] + S2[a6, a4, a5, a3, SP[a1, a2], n] + 
    S2[a6, a4, a5, SP[a1, a3], a2, n] + S2[a6, a4, SP[a1, a5], a3, a2, n] + 
    S2[a6, SP[a1, a4], a5, a3, a2, n] + S2[SP[a1, a6], a4, a5, a3, a2, n] - 
    S2[a6, a1, a4, a5, a3, a2, n] - S2[a6, a4, a1, a5, a3, a2, n] - 
    S2[a6, a4, a5, a1, a3, a2, n] - S2[a6, a4, a5, a3, a1, a2, n] - 
    S2[a6, a4, a5, a3, a2, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a1_, a6_, a5_, a2_, a3_, a4_, n_] :> 
  S2[a1, n]*S2[a6, a5, a2, a3, a4, n] + S2[a6, a5, a2, a3, SP[a1, a4], n] + 
    S2[a6, a5, a2, SP[a1, a3], a4, n] + S2[a6, a5, SP[a1, a2], a3, a4, n] + 
    S2[a6, SP[a1, a5], a2, a3, a4, n] + S2[SP[a1, a6], a5, a2, a3, a4, n] - 
    S2[a6, a1, a5, a2, a3, a4, n] - S2[a6, a5, a1, a2, a3, a4, n] - 
    S2[a6, a5, a2, a1, a3, a4, n] - S2[a6, a5, a2, a3, a1, a4, n] - 
    S2[a6, a5, a2, a3, a4, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a1_, a6_, a5_, a2_, a4_, a3_, n_] :> 
  S2[a1, n]*S2[a6, a5, a2, a4, a3, n] + S2[a6, a5, a2, a4, SP[a1, a3], n] + 
    S2[a6, a5, a2, SP[a1, a4], a3, n] + S2[a6, a5, SP[a1, a2], a4, a3, n] + 
    S2[a6, SP[a1, a5], a2, a4, a3, n] + S2[SP[a1, a6], a5, a2, a4, a3, n] - 
    S2[a6, a1, a5, a2, a4, a3, n] - S2[a6, a5, a1, a2, a4, a3, n] - 
    S2[a6, a5, a2, a1, a4, a3, n] - S2[a6, a5, a2, a4, a1, a3, n] - 
    S2[a6, a5, a2, a4, a3, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a1_, a6_, a5_, a3_, a2_, a4_, n_] :> 
  S2[a1, n]*S2[a6, a5, a3, a2, a4, n] + S2[a6, a5, a3, a2, SP[a1, a4], n] + 
    S2[a6, a5, a3, SP[a1, a2], a4, n] + S2[a6, a5, SP[a1, a3], a2, a4, n] + 
    S2[a6, SP[a1, a5], a3, a2, a4, n] + S2[SP[a1, a6], a5, a3, a2, a4, n] - 
    S2[a6, a1, a5, a3, a2, a4, n] - S2[a6, a5, a1, a3, a2, a4, n] - 
    S2[a6, a5, a3, a1, a2, a4, n] - S2[a6, a5, a3, a2, a1, a4, n] - 
    S2[a6, a5, a3, a2, a4, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a1_, a6_, a5_, a3_, a4_, a2_, n_] :> 
  S2[a1, n]*S2[a6, a5, a3, a4, a2, n] + S2[a6, a5, a3, a4, SP[a1, a2], n] + 
    S2[a6, a5, a3, SP[a1, a4], a2, n] + S2[a6, a5, SP[a1, a3], a4, a2, n] + 
    S2[a6, SP[a1, a5], a3, a4, a2, n] + S2[SP[a1, a6], a5, a3, a4, a2, n] - 
    S2[a6, a1, a5, a3, a4, a2, n] - S2[a6, a5, a1, a3, a4, a2, n] - 
    S2[a6, a5, a3, a1, a4, a2, n] - S2[a6, a5, a3, a4, a1, a2, n] - 
    S2[a6, a5, a3, a4, a2, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a1_, a6_, a5_, a4_, a2_, a3_, n_] :> 
  S2[a1, n]*S2[a6, a5, a4, a2, a3, n] + S2[a6, a5, a4, a2, SP[a1, a3], n] + 
    S2[a6, a5, a4, SP[a1, a2], a3, n] + S2[a6, a5, SP[a1, a4], a2, a3, n] + 
    S2[a6, SP[a1, a5], a4, a2, a3, n] + S2[SP[a1, a6], a5, a4, a2, a3, n] - 
    S2[a6, a1, a5, a4, a2, a3, n] - S2[a6, a5, a1, a4, a2, a3, n] - 
    S2[a6, a5, a4, a1, a2, a3, n] - S2[a6, a5, a4, a2, a1, a3, n] - 
    S2[a6, a5, a4, a2, a3, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a1_, a6_, a5_, a4_, a3_, a2_, n_] :> 
  S2[a1, n]*S2[a6, a5, a4, a3, a2, n] + S2[a6, a5, a4, a3, SP[a1, a2], n] + 
    S2[a6, a5, a4, SP[a1, a3], a2, n] + S2[a6, a5, SP[a1, a4], a3, a2, n] + 
    S2[a6, SP[a1, a5], a4, a3, a2, n] + S2[SP[a1, a6], a5, a4, a3, a2, n] - 
    S2[a6, a1, a5, a4, a3, a2, n] - S2[a6, a5, a1, a4, a3, a2, n] - 
    S2[a6, a5, a4, a1, a3, a2, n] - S2[a6, a5, a4, a3, a1, a2, n] - 
    S2[a6, a5, a4, a3, a2, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a2_, a1_, a3_, a4_, a5_, a6_, n_] :> 
  -(S2[a1, a2, a3, n]*S2[a4, a5, a6, n]) - S2[a1, a3, a2, n]*
     S2[a4, a5, a6, n] - S2[SP[a1, a4], SP[a2, a5], SP[a3, a6], n] - 
    S2[SP[a1, a4], SP[a3, a5], SP[a2, a6], n] - 
    S2[a5, a6, n]*S2[a1, a2, a3, a4, n] + S2[a1, a2, SP[a3, a5], SP[a4, a6], 
     n] - S2[a5, a6, n]*S2[a1, a3, a2, a4, n] - 
    S2[a5, a6, n]*S2[a1, a3, a4, a2, n] + S2[a1, a3, SP[a2, a5], SP[a4, a6], 
     n] + S2[a1, a3, SP[a4, a5], SP[a2, a6], n] + S2[a1, a4, SP[a2, a5], 
     SP[a3, a6], n] + S2[a1, a4, SP[a3, a5], SP[a2, a6], n] + 
    S2[a1, SP[a2, a4], a5, SP[a3, a6], n] + S2[a1, SP[a2, a4], SP[a3, a5], 
     a6, n] + S2[a1, SP[a2, a5], a3, SP[a4, a6], n] + 
    S2[a1, SP[a2, a5], SP[a3, a6], a4, n] + S2[a1, SP[a3, a4], a5, 
     SP[a2, a6], n] + S2[a1, SP[a3, a4], SP[a2, a5], a6, n] + 
    S2[a1, SP[a3, a5], a2, SP[a4, a6], n] + S2[a1, SP[a3, a5], a4, 
     SP[a2, a6], n] + S2[a1, SP[a3, a5], SP[a2, a6], a4, n] + 
    S2[a1, SP[a3, a5], SP[a4, a6], a2, n] - S2[a1, a2, n]*
     S2[a3, a4, a5, a6, n] - S2[a1, a2, n]*S2[a3, a4, a6, a5, n] + 
    S2[a3, a4, SP[a1, a5], SP[a2, a6], n] + S2[a3, a4, SP[a1, a6], 
     SP[a2, a5], n] - S2[a1, a2, n]*S2[a3, a6, a4, a5, n] - 
    S2[a1, a2, n]*S2[a3, a6, a5, a4, n] + S2[a3, a6, SP[a1, a4], SP[a2, a5], 
     n] + S2[a3, a6, SP[a1, a5], SP[a2, a4], n] + S2[a3, SP[a1, a4], a5, 
     SP[a2, a6], n] + S2[a3, SP[a1, a4], a6, SP[a2, a5], n] + 
    S2[a3, SP[a1, a4], SP[a2, a5], a6, n] + S2[a3, SP[a1, a4], SP[a2, a6], 
     a5, n] + S2[a3, SP[a1, a6], a4, SP[a2, a5], n] + 
    S2[a3, SP[a1, a6], a5, SP[a2, a4], n] + S2[a3, SP[a1, a6], SP[a2, a4], 
     a5, n] + S2[a3, SP[a1, a6], SP[a2, a5], a4, n] + 
    S2[a4, a1, SP[a2, a5], SP[a3, a6], n] + S2[a4, a1, SP[a3, a5], 
     SP[a2, a6], n] + S2[a4, SP[a1, a5], a2, SP[a3, a6], n] + 
    S2[a4, SP[a1, a5], a3, SP[a2, a6], n] + S2[a4, SP[a1, a5], SP[a2, a6], 
     a3, n] + S2[a4, SP[a1, a5], SP[a3, a6], a2, n] + 
    S2[a1, a2, n]*S2[a5, a6, a3, a4, n] - S2[a5, a6, SP[a1, a3], SP[a2, a4], 
     n] - S2[a5, SP[a1, a6], a3, SP[a2, a4], n] - 
    S2[a5, SP[a1, a6], SP[a2, a3], a4, n] + S2[SP[a1, a3], a4, a5, 
     SP[a2, a6], n] + S2[SP[a1, a3], a4, a6, SP[a2, a5], n] + 
    S2[SP[a1, a3], a4, SP[a2, a5], a6, n] + S2[SP[a1, a3], a4, SP[a2, a6], 
     a5, n] + S2[SP[a1, a3], a6, a4, SP[a2, a5], n] + 
    S2[SP[a1, a3], a6, a5, SP[a2, a4], n] + S2[SP[a1, a3], a6, SP[a2, a4], 
     a5, n] + S2[SP[a1, a3], a6, SP[a2, a5], a4, n] + 
    S2[SP[a1, a3], SP[a2, a4], a5, a6, n] + S2[SP[a1, a3], SP[a2, a4], a6, 
     a5, n] + S2[SP[a1, a3], SP[a2, a6], a4, a5, n] + 
    S2[SP[a1, a3], SP[a2, a6], a5, a4, n] + S2[SP[a1, a4], a2, a5, 
     SP[a3, a6], n] + S2[SP[a1, a4], a2, SP[a3, a5], a6, n] + 
    S2[SP[a1, a4], a3, a5, SP[a2, a6], n] + S2[SP[a1, a4], a3, SP[a2, a5], 
     a6, n] + S2[SP[a1, a4], a5, a2, SP[a3, a6], n] + 
    S2[SP[a1, a4], a5, a3, SP[a2, a6], n] + S2[SP[a1, a4], a5, SP[a2, a6], 
     a3, n] + S2[SP[a1, a4], a5, SP[a3, a6], a2, n] + 
    S2[SP[a1, a4], SP[a2, a5], a3, a6, n] + S2[SP[a1, a4], SP[a2, a5], a6, 
     a3, n] + S2[SP[a1, a4], SP[a3, a5], a2, a6, n] + 
    S2[SP[a1, a4], SP[a3, a5], a6, a2, n] + S2[SP[a1, a5], a2, a3, 
     SP[a4, a6], n] + S2[SP[a1, a5], a2, SP[a3, a6], a4, n] + 
    S2[SP[a1, a5], a3, a2, SP[a4, a6], n] + S2[SP[a1, a5], a3, a4, 
     SP[a2, a6], n] + S2[SP[a1, a5], a3, SP[a2, a6], a4, n] + 
    S2[SP[a1, a5], a3, SP[a4, a6], a2, n] - S2[SP[a1, a5], a6, a3, 
     SP[a2, a4], n] - S2[SP[a1, a5], a6, SP[a2, a3], a4, n] + 
    S2[SP[a1, a5], SP[a3, a6], a2, a4, n] + S2[SP[a1, a5], SP[a3, a6], a4, 
     a2, n] - S2[a6, n]*S2[a1, a2, a3, a4, a5, n] + 
    S2[a5, n]*S2[a1, a2, a3, a4, a6, n] - 
    S2[a6, n]*S2[a1, a2, a3, a5, a4, n] + 
    S2[a4, n]*S2[a1, a2, a3, a5, a6, n] - S2[a1, a2, a3, a5, SP[a4, a6], n] + 
    S2[a5, n]*S2[a1, a2, a3, a6, a4, n] + S2[a1, a2, a3, a6, SP[a4, a5], n] + 
    S2[a1, a2, a3, SP[a4, a5], a6, n] - S2[a1, a2, a3, SP[a4, a6], a5, n] - 
    S2[a6, n]*S2[a1, a2, a4, a3, a5, n] - S2[a1, a2, a4, a3, SP[a5, a6], n] - 
    S2[a6, n]*S2[a1, a2, a4, a5, a3, n] + 
    S2[a3, n]*S2[a1, a2, a4, a5, a6, n] - S2[a1, a2, a4, a5, SP[a3, a6], n] + 
    S2[a3, n]*S2[a1, a2, a4, a6, a5, n] + S2[a1, a2, a4, a6, SP[a3, a5], n] - 
    S2[a1, a2, a4, SP[a5, a6], a3, n] - S2[a6, n]*S2[a1, a2, a5, a3, a4, n] + 
    S2[a4, n]*S2[a1, a2, a5, a3, a6, n] - S2[a1, a2, a5, a3, SP[a4, a6], n] - 
    S2[a6, n]*S2[a1, a2, a5, a4, a3, n] - S2[a1, a2, a5, a4, SP[a3, a6], n] + 
    S2[a4, n]*S2[a1, a2, a5, a6, a3, n] + S2[a1, a2, a5, a6, SP[a3, a4], n] + 
    S2[a1, a2, a5, SP[a3, a4], a6, n] - 2*S2[a1, a2, a5, SP[a3, a6], a4, n] + 
    S2[a3, n]*S2[a1, a2, a6, a4, a5, n] + S2[a1, a2, a6, a4, SP[a3, a5], n] + 
    S2[a3, n]*S2[a1, a2, a6, a5, a4, n] + S2[a1, a2, a6, a5, SP[a3, a4], n] + 
    S2[a1, a2, a6, SP[a3, a4], a5, n] + S2[a1, a2, a6, SP[a3, a5], a4, n] + 
    S2[a1, a2, SP[a3, a4], a5, a6, n] + S2[a1, a2, SP[a3, a4], a6, a5, n] + 
    S2[a1, a2, SP[a4, a5], a3, a6, n] + S2[a1, a2, SP[a4, a5], a6, a3, n] - 
    S2[a1, a2, SP[a4, a6], a3, a5, n] - S2[a1, a2, SP[a4, a6], a5, a3, n] - 
    S2[a1, a2, SP[a5, a6], a3, a4, n] - S2[a1, a2, SP[a5, a6], a4, a3, n] - 
    S2[a6, n]*S2[a1, a3, a2, a4, a5, n] + 
    S2[a5, n]*S2[a1, a3, a2, a4, a6, n] - 
    S2[a6, n]*S2[a1, a3, a2, a5, a4, n] + 
    S2[a4, n]*S2[a1, a3, a2, a5, a6, n] - S2[a1, a3, a2, a5, SP[a4, a6], n] + 
    S2[a5, n]*S2[a1, a3, a2, a6, a4, n] + S2[a1, a3, a2, a6, SP[a4, a5], n] + 
    S2[a1, a3, a2, SP[a4, a5], a6, n] - S2[a1, a3, a2, SP[a4, a6], a5, n] - 
    S2[a6, n]*S2[a1, a3, a4, a2, a5, n] + 
    S2[a5, n]*S2[a1, a3, a4, a2, a6, n] - 
    S2[a6, n]*S2[a1, a3, a4, a5, a2, n] + 
    S2[a2, n]*S2[a1, a3, a4, a5, a6, n] - 
    3*S2[a1, a3, a4, a5, SP[a2, a6], n] + 
    S2[a5, n]*S2[a1, a3, a4, a6, a2, n] - S2[a1, a3, a4, SP[a2, a5], a6, n] - 
    2*S2[a1, a3, a4, SP[a2, a6], a5, n] - 
    S2[a6, n]*S2[a1, a3, a5, a2, a4, n] + 
    S2[a4, n]*S2[a1, a3, a5, a2, a6, n] - S2[a1, a3, a5, a2, SP[a4, a6], n] - 
    S2[a6, n]*S2[a1, a3, a5, a4, a2, n] - 
    2*S2[a1, a3, a5, a4, SP[a2, a6], n] + 
    S2[a4, n]*S2[a1, a3, a5, a6, a2, n] + S2[a1, a3, a5, a6, SP[a2, a4], n] + 
    S2[a1, a3, a5, SP[a2, a4], a6, n] - 2*S2[a1, a3, a5, SP[a2, a6], a4, n] - 
    S2[a1, a3, a5, SP[a4, a6], a2, n] + S2[a5, n]*S2[a1, a3, a6, a2, a4, n] + 
    S2[a1, a3, a6, a2, SP[a4, a5], n] + S2[a5, n]*S2[a1, a3, a6, a4, a2, n] - 
    S2[a1, a3, a6, a5, SP[a2, a4], n] - S2[a1, a3, a6, SP[a2, a4], a5, n] + 
    S2[a1, a3, a6, SP[a4, a5], a2, n] - S2[a1, a3, SP[a2, a4], a6, a5, n] - 
    2*S2[a1, a3, SP[a2, a6], a4, a5, n] - 
    2*S2[a1, a3, SP[a2, a6], a5, a4, n] + S2[a1, a3, SP[a4, a5], a2, a6, n] + 
    S2[a1, a3, SP[a4, a5], a6, a2, n] - S2[a1, a3, SP[a4, a6], a2, a5, n] - 
    S2[a1, a3, SP[a4, a6], a5, a2, n] - S2[a6, n]*S2[a1, a4, a2, a3, a5, n] - 
    S2[a1, a4, a2, a3, SP[a5, a6], n] - S2[a6, n]*S2[a1, a4, a2, a5, a3, n] + 
    S2[a3, n]*S2[a1, a4, a2, a5, a6, n] - S2[a1, a4, a2, a5, SP[a3, a6], n] + 
    S2[a3, n]*S2[a1, a4, a2, a6, a5, n] + S2[a1, a4, a2, a6, SP[a3, a5], n] - 
    S2[a1, a4, a2, SP[a5, a6], a3, n] - S2[a6, n]*S2[a1, a4, a3, a2, a5, n] - 
    S2[a1, a4, a3, a2, SP[a5, a6], n] - S2[a6, n]*S2[a1, a4, a3, a5, a2, n] - 
    2*S2[a1, a4, a3, a5, SP[a2, a6], n] - S2[a1, a4, a3, SP[a2, a5], a6, n] - 
    S2[a1, a4, a3, SP[a2, a6], a5, n] - S2[a1, a4, a3, SP[a5, a6], a2, n] - 
    S2[a6, n]*S2[a1, a4, a5, a2, a3, n] + 
    S2[a3, n]*S2[a1, a4, a5, a2, a6, n] - S2[a1, a4, a5, a2, SP[a3, a6], n] - 
    S2[a6, n]*S2[a1, a4, a5, a3, a2, n] - 
    2*S2[a1, a4, a5, a3, SP[a2, a6], n] + 
    S2[a3, n]*S2[a1, a4, a5, a6, a2, n] + S2[a1, a4, a5, a6, SP[a2, a3], n] + 
    S2[a1, a4, a5, SP[a2, a3], a6, n] - 2*S2[a1, a4, a5, SP[a2, a6], a3, n] - 
    S2[a1, a4, a5, SP[a3, a6], a2, n] + S2[a3, n]*S2[a1, a4, a6, a2, a5, n] + 
    S2[a1, a4, a6, a2, SP[a3, a5], n] + S2[a3, n]*S2[a1, a4, a6, a5, a2, n] + 
    S2[a1, a4, a6, a5, SP[a2, a3], n] + S2[a1, a4, a6, SP[a2, a3], a5, n] + 
    S2[a1, a4, a6, SP[a3, a5], a2, n] + S2[a1, a4, SP[a2, a3], a5, a6, n] + 
    S2[a1, a4, SP[a2, a3], a6, a5, n] - S2[a1, a4, SP[a2, a5], a3, a6, n] - 
    S2[a1, a4, SP[a2, a5], a6, a3, n] - S2[a1, a4, SP[a2, a6], a3, a5, n] - 
    S2[a1, a4, SP[a2, a6], a5, a3, n] - S2[a1, a4, SP[a5, a6], a2, a3, n] - 
    S2[a1, a4, SP[a5, a6], a3, a2, n] - S2[a6, n]*S2[a1, a5, a2, a3, a4, n] + 
    S2[a4, n]*S2[a1, a5, a2, a3, a6, n] - S2[a1, a5, a2, a3, SP[a4, a6], n] - 
    S2[a6, n]*S2[a1, a5, a2, a4, a3, n] - S2[a1, a5, a2, a4, SP[a3, a6], n] + 
    S2[a4, n]*S2[a1, a5, a2, a6, a3, n] + S2[a1, a5, a2, a6, SP[a3, a4], n] + 
    S2[a1, a5, a2, SP[a3, a4], a6, n] - 2*S2[a1, a5, a2, SP[a3, a6], a4, n] - 
    S2[a6, n]*S2[a1, a5, a3, a2, a4, n] + 
    S2[a4, n]*S2[a1, a5, a3, a2, a6, n] - S2[a1, a5, a3, a2, SP[a4, a6], n] - 
    S2[a6, n]*S2[a1, a5, a3, a4, a2, n] - 
    2*S2[a1, a5, a3, a4, SP[a2, a6], n] + 
    S2[a4, n]*S2[a1, a5, a3, a6, a2, n] + S2[a1, a5, a3, a6, SP[a2, a4], n] + 
    S2[a1, a5, a3, SP[a2, a4], a6, n] - 2*S2[a1, a5, a3, SP[a2, a6], a4, n] - 
    S2[a1, a5, a3, SP[a4, a6], a2, n] - S2[a6, n]*S2[a1, a5, a4, a2, a3, n] - 
    S2[a1, a5, a4, a2, SP[a3, a6], n] - S2[a6, n]*S2[a1, a5, a4, a3, a2, n] - 
    S2[a1, a5, a4, a3, SP[a2, a6], n] - S2[a1, a5, a4, SP[a2, a6], a3, n] - 
    S2[a1, a5, a4, SP[a3, a6], a2, n] + S2[a4, n]*S2[a1, a5, a6, a2, a3, n] + 
    S2[a1, a5, a6, a2, SP[a3, a4], n] + S2[a4, n]*S2[a1, a5, a6, a3, a2, n] + 
    2*S2[a1, a5, a6, a3, SP[a2, a4], n] + S2[a1, a5, a6, SP[a2, a3], a4, n] + 
    S2[a1, a5, a6, SP[a2, a4], a3, n] + S2[a1, a5, a6, SP[a3, a4], a2, n] + 
    S2[a1, a5, SP[a2, a4], a3, a6, n] + S2[a1, a5, SP[a2, a4], a6, a3, n] - 
    S2[a1, a5, SP[a2, a6], a3, a4, n] - S2[a1, a5, SP[a2, a6], a4, a3, n] + 
    S2[a1, a5, SP[a3, a4], a2, a6, n] + S2[a1, a5, SP[a3, a4], a6, a2, n] - 
    2*S2[a1, a5, SP[a3, a6], a2, a4, n] - 
    2*S2[a1, a5, SP[a3, a6], a4, a2, n] + 
    S2[a3, n]*S2[a1, a6, a2, a4, a5, n] + S2[a1, a6, a2, a4, SP[a3, a5], n] + 
    S2[a3, n]*S2[a1, a6, a2, a5, a4, n] + S2[a1, a6, a2, a5, SP[a3, a4], n] + 
    S2[a1, a6, a2, SP[a3, a4], a5, n] + S2[a1, a6, a2, SP[a3, a5], a4, n] + 
    S2[a3, n]*S2[a1, a6, a4, a2, a5, n] + S2[a1, a6, a4, a2, SP[a3, a5], n] + 
    S2[a3, n]*S2[a1, a6, a4, a5, a2, n] + S2[a1, a6, a4, a5, SP[a2, a3], n] + 
    S2[a1, a6, a4, SP[a2, a3], a5, n] + S2[a1, a6, a4, SP[a3, a5], a2, n] + 
    S2[a3, n]*S2[a1, a6, a5, a2, a4, n] + S2[a1, a6, a5, a2, SP[a3, a4], n] + 
    S2[a3, n]*S2[a1, a6, a5, a4, a2, n] + S2[a1, a6, a5, a4, SP[a2, a3], n] + 
    S2[a1, a6, a5, SP[a2, a3], a4, n] + S2[a1, a6, a5, SP[a3, a4], a2, n] + 
    S2[a1, a6, SP[a2, a3], a4, a5, n] + S2[a1, a6, SP[a2, a3], a5, a4, n] + 
    S2[a1, a6, SP[a3, a4], a2, a5, n] + S2[a1, a6, SP[a3, a4], a5, a2, n] + 
    S2[a1, a6, SP[a3, a5], a2, a4, n] + S2[a1, a6, SP[a3, a5], a4, a2, n] + 
    S2[a1, SP[a2, a3], a4, a5, a6, n] - S2[a1, SP[a2, a6], a3, a4, a5, n] - 
    S2[a1, SP[a2, a6], a3, a5, a4, n] - S2[a1, SP[a2, a6], a4, a3, a5, n] - 
    S2[a1, SP[a2, a6], a4, a5, a3, n] - S2[a1, SP[a2, a6], a5, a3, a4, n] - 
    S2[a1, SP[a2, a6], a5, a4, a3, n] + S2[a1, SP[a3, a4], a2, a5, a6, n] + 
    S2[a1, SP[a3, a4], a2, a6, a5, n] + S2[a1, SP[a3, a4], a5, a2, a6, n] + 
    S2[a1, SP[a3, a4], a5, a6, a2, n] + S2[a1, SP[a3, a4], a6, a2, a5, n] + 
    S2[a1, SP[a3, a4], a6, a5, a2, n] + S2[a1, SP[a4, a5], a2, a3, a6, n] + 
    S2[a1, SP[a4, a5], a2, a6, a3, n] + S2[a1, SP[a4, a5], a3, a2, a6, n] + 
    S2[a1, SP[a4, a5], a3, a6, a2, n] + S2[a1, SP[a4, a5], a6, a2, a3, n] + 
    S2[a1, SP[a4, a5], a6, a3, a2, n] - S2[a1, SP[a4, a6], a2, a3, a5, n] - 
    S2[a1, SP[a4, a6], a2, a5, a3, n] - S2[a1, SP[a4, a6], a3, a2, a5, n] - 
    S2[a1, SP[a4, a6], a3, a5, a2, n] - S2[a1, SP[a4, a6], a5, a2, a3, n] - 
    S2[a1, SP[a4, a6], a5, a3, a2, n] - S2[a1, SP[a5, a6], a2, a3, a4, n] - 
    S2[a1, SP[a5, a6], a2, a4, a3, n] - S2[a1, SP[a5, a6], a3, a2, a4, n] - 
    S2[a1, SP[a5, a6], a3, a4, a2, n] - S2[a1, SP[a5, a6], a4, a2, a3, n] - 
    S2[a1, SP[a5, a6], a4, a3, a2, n] - S2[a3, a1, a4, a5, SP[a2, a6], n] - 
    S2[a3, a1, a4, a6, SP[a2, a5], n] - S2[a3, a1, a4, SP[a2, a5], a6, n] - 
    S2[a3, a1, a4, SP[a2, a6], a5, n] - S2[a3, a1, a6, a4, SP[a2, a5], n] - 
    S2[a3, a1, a6, a5, SP[a2, a4], n] - S2[a3, a1, a6, SP[a2, a4], a5, n] - 
    S2[a3, a1, a6, SP[a2, a5], a4, n] - S2[a3, a1, SP[a2, a4], a5, a6, n] - 
    S2[a3, a1, SP[a2, a4], a6, a5, n] - S2[a3, a1, SP[a2, a6], a4, a5, n] - 
    S2[a3, a1, SP[a2, a6], a5, a4, n] + S2[a6, n]*S2[a3, a4, a1, a2, a5, n] + 
    S2[a3, a4, a1, a2, SP[a5, a6], n] + S2[a6, n]*S2[a3, a4, a1, a5, a2, n] - 
    S2[a3, a4, a1, a6, SP[a2, a5], n] - S2[a3, a4, a1, SP[a2, a5], a6, n] + 
    S2[a3, a4, a1, SP[a5, a6], a2, n] + S2[a6, n]*S2[a3, a4, a5, a1, a2, n] - 
    S2[a3, a4, a6, a1, SP[a2, a5], n] - S2[a3, a4, a6, SP[a1, a5], a2, n] - 
    S2[a3, a4, SP[a1, a5], a2, a6, n] - S2[a3, a4, SP[a1, a5], a6, a2, n] + 
    S2[a3, a4, SP[a5, a6], a1, a2, n] + S2[a5, n]*S2[a3, a6, a1, a2, a4, n] + 
    S2[a3, a6, a1, a2, SP[a4, a5], n] + S2[a5, n]*S2[a3, a6, a1, a4, a2, n] - 
    S2[a3, a6, a1, a5, SP[a2, a4], n] - S2[a3, a6, a1, SP[a2, a4], a5, n] + 
    S2[a3, a6, a1, SP[a4, a5], a2, n] - S2[a3, a6, a4, a1, SP[a2, a5], n] - 
    S2[a3, a6, a4, SP[a1, a5], a2, n] - S2[a3, a6, a5, a1, SP[a2, a4], n] - 
    S2[a3, a6, a5, SP[a1, a4], a2, n] - S2[a3, a6, SP[a1, a4], a2, a5, n] - 
    S2[a3, a6, SP[a1, a4], a5, a2, n] - S2[a3, SP[a1, a4], a2, a5, a6, n] - 
    S2[a3, SP[a1, a4], a2, a6, a5, n] - S2[a3, SP[a1, a4], a5, a2, a6, n] - 
    S2[a3, SP[a1, a4], a5, a6, a2, n] - S2[a3, SP[a1, a4], a6, a2, a5, n] - 
    S2[a3, SP[a1, a4], a6, a5, a2, n] - S2[a3, SP[a1, a6], a2, a4, a5, n] - 
    S2[a3, SP[a1, a6], a2, a5, a4, n] - S2[a3, SP[a1, a6], a4, a2, a5, n] - 
    S2[a3, SP[a1, a6], a4, a5, a2, n] - S2[a3, SP[a1, a6], a5, a2, a4, n] - 
    S2[a3, SP[a1, a6], a5, a4, a2, n] + S2[a3, SP[a4, a6], a1, a2, a5, n] + 
    S2[a3, SP[a4, a6], a1, a5, a2, n] + S2[a3, SP[a4, a6], a5, a1, a2, n] + 
    S2[a3, SP[a5, a6], a1, a2, a4, n] + S2[a3, SP[a5, a6], a1, a4, a2, n] - 
    S2[a4, a1, a2, a5, SP[a3, a6], n] - S2[a4, a1, a2, SP[a3, a5], a6, n] - 
    S2[a4, a1, a3, a5, SP[a2, a6], n] - S2[a4, a1, a3, SP[a2, a5], a6, n] - 
    S2[a4, a1, a5, a2, SP[a3, a6], n] - S2[a4, a1, a5, a3, SP[a2, a6], n] - 
    S2[a4, a1, a5, SP[a2, a6], a3, n] - S2[a4, a1, a5, SP[a3, a6], a2, n] - 
    S2[a4, a1, SP[a2, a5], a3, a6, n] - S2[a4, a1, SP[a2, a5], a6, a3, n] - 
    S2[a4, a1, SP[a3, a5], a2, a6, n] - S2[a4, a1, SP[a3, a5], a6, a2, n] + 
    S2[a6, n]*S2[a4, a5, a1, a2, a3, n] + 
    S2[a6, n]*S2[a4, a5, a1, a3, a2, n] - S2[a4, SP[a1, a5], a2, a3, a6, n] - 
    S2[a4, SP[a1, a5], a2, a6, a3, n] - S2[a4, SP[a1, a5], a3, a2, a6, n] - 
    S2[a4, SP[a1, a5], a3, a6, a2, n] - S2[a4, SP[a1, a5], a6, a2, a3, n] - 
    S2[a4, SP[a1, a5], a6, a3, a2, n] + S2[a4, SP[a5, a6], a1, a2, a3, n] + 
    S2[a4, SP[a5, a6], a1, a3, a2, n] - S2[a5, a1, a2, a3, SP[a4, a6], n] - 
    S2[a5, a1, a2, SP[a3, a6], a4, n] - S2[a5, a1, a3, a2, SP[a4, a6], n] - 
    S2[a5, a1, a3, a4, SP[a2, a6], n] - S2[a5, a1, a3, SP[a2, a6], a4, n] - 
    S2[a5, a1, a3, SP[a4, a6], a2, n] + S2[a5, a1, a6, a3, SP[a2, a4], n] + 
    S2[a5, a1, a6, SP[a2, a3], a4, n] - S2[a5, a1, SP[a3, a6], a2, a4, n] - 
    S2[a5, a1, SP[a3, a6], a4, a2, n] - S2[a3, n]*S2[a5, a6, a1, a2, a4, n] - 
    S2[a5, a6, a1, a2, SP[a3, a4], n] + S2[a5, a6, a1, a3, SP[a2, a4], n] - 
    S2[a3, n]*S2[a5, a6, a1, a4, a2, n] - S2[a5, a6, a1, a4, SP[a2, a3], n] - 
    S2[a5, a6, a1, SP[a3, a4], a2, n] + S2[a5, a6, a3, a1, SP[a2, a4], n] + 
    S2[a5, a6, a3, SP[a1, a4], a2, n] - S2[a5, SP[a3, a6], a1, a2, a4, n] - 
    S2[a5, SP[a3, a6], a1, a4, a2, n] + S2[a5, n]*S2[a6, a1, a2, a3, a4, n] + 
    S2[a6, a1, a2, a3, SP[a4, a5], n] + S2[a5, n]*S2[a6, a1, a2, a4, a3, n] + 
    S2[a6, a1, a2, a4, SP[a3, a5], n] + S2[a6, a1, a2, SP[a3, a5], a4, n] + 
    S2[a6, a1, a2, SP[a4, a5], a3, n] + S2[a5, n]*S2[a6, a1, a3, a2, a4, n] + 
    S2[a6, a1, a3, a2, SP[a4, a5], n] + S2[a5, n]*S2[a6, a1, a3, a4, a2, n] + 
    S2[a6, a1, a3, a4, SP[a2, a5], n] + S2[a6, a1, a3, SP[a2, a5], a4, n] + 
    S2[a6, a1, a3, SP[a4, a5], a2, n] + S2[a5, n]*S2[a6, a1, a4, a2, a3, n] + 
    S2[a6, a1, a4, a2, SP[a3, a5], n] + S2[a5, n]*S2[a6, a1, a4, a3, a2, n] + 
    S2[a6, a1, a4, a3, SP[a2, a5], n] + S2[a6, a1, a4, SP[a2, a5], a3, n] + 
    S2[a6, a1, a4, SP[a3, a5], a2, n] + S2[a6, a1, SP[a2, a5], a3, a4, n] + 
    S2[a6, a1, SP[a2, a5], a4, a3, n] + S2[a6, a1, SP[a3, a5], a2, a4, n] + 
    S2[a6, a1, SP[a3, a5], a4, a2, n] + S2[a6, a1, SP[a4, a5], a2, a3, n] + 
    S2[a6, a1, SP[a4, a5], a3, a2, n] - S2[a5, n]*S2[a6, a3, a4, a1, a2, n] - 
    S2[a6, a3, a4, a1, SP[a2, a5], n] - S2[a6, a3, a4, SP[a1, a5], a2, n] - 
    S2[a6, a3, SP[a4, a5], a1, a2, n] - S2[a4, n]*S2[a6, a5, a1, a2, a3, n] - 
    S2[a6, a5, a1, a2, SP[a3, a4], n] - S2[a4, n]*S2[a6, a5, a1, a3, a2, n] - 
    S2[a6, a5, a1, a3, SP[a2, a4], n] - S2[a6, a5, a1, SP[a2, a4], a3, n] - 
    S2[a6, a5, a1, SP[a3, a4], a2, n] + S2[a3, n]*S2[a6, a5, a4, a1, a2, n] + 
    S2[a6, a5, a4, a1, SP[a2, a3], n] + S2[a6, a5, a4, SP[a1, a3], a2, n] - 
    S2[a6, a5, SP[a1, a4], a2, a3, n] - S2[a6, a5, SP[a1, a4], a3, a2, n] + 
    S2[a6, a5, SP[a3, a4], a1, a2, n] + S2[a6, SP[a1, a5], a2, a3, a4, n] + 
    S2[a6, SP[a1, a5], a2, a4, a3, n] + S2[a6, SP[a1, a5], a3, a2, a4, n] + 
    S2[a6, SP[a1, a5], a3, a4, a2, n] + S2[a6, SP[a1, a5], a4, a2, a3, n] + 
    S2[a6, SP[a1, a5], a4, a3, a2, n] - S2[a6, SP[a4, a5], a1, a2, a3, n] - 
    S2[a6, SP[a4, a5], a1, a3, a2, n] + S2[SP[a1, a2], a3, a4, a5, a6, n] - 
    S2[SP[a1, a6], a2, a3, a4, a5, n] - S2[SP[a1, a6], a2, a3, a5, a4, n] - 
    S2[SP[a1, a6], a2, a4, a3, a5, n] - S2[SP[a1, a6], a2, a4, a5, a3, n] - 
    S2[SP[a1, a6], a2, a5, a3, a4, n] - S2[SP[a1, a6], a2, a5, a4, a3, n] - 
    S2[SP[a1, a6], a3, a2, a4, a5, n] - S2[SP[a1, a6], a3, a2, a5, a4, n] - 
    S2[SP[a1, a6], a3, a4, a2, a5, n] - S2[SP[a1, a6], a3, a4, a5, a2, n] - 
    S2[SP[a1, a6], a3, a5, a2, a4, n] - S2[SP[a1, a6], a3, a5, a4, a2, n] - 
    S2[SP[a1, a6], a4, a2, a3, a5, n] - S2[SP[a1, a6], a4, a2, a5, a3, n] - 
    S2[SP[a1, a6], a4, a3, a2, a5, n] - S2[SP[a1, a6], a4, a3, a5, a2, n] - 
    S2[SP[a1, a6], a4, a5, a2, a3, n] - S2[SP[a1, a6], a4, a5, a3, a2, n] - 
    S2[SP[a1, a6], a5, a2, a3, a4, n] - S2[SP[a1, a6], a5, a2, a4, a3, n] - 
    S2[SP[a1, a6], a5, a3, a2, a4, n] - S2[SP[a1, a6], a5, a3, a4, a2, n] - 
    S2[SP[a1, a6], a5, a4, a2, a3, n] - S2[SP[a1, a6], a5, a4, a3, a2, n] + 
    S2[SP[a3, a6], a4, a1, a2, a5, n] + S2[SP[a3, a6], a4, a1, a5, a2, n] + 
    S2[SP[a3, a6], a4, a5, a1, a2, n] + S2[SP[a3, a6], a5, a4, a1, a2, n] + 
    S2[SP[a5, a6], a1, a2, a3, a4, n] + S2[SP[a5, a6], a1, a2, a4, a3, n] + 
    S2[SP[a5, a6], a1, a3, a2, a4, n] + S2[SP[a5, a6], a1, a3, a4, a2, n] + 
    S2[SP[a5, a6], a1, a4, a2, a3, n] + S2[SP[a5, a6], a1, a4, a3, a2, n] - 
    S2[SP[a5, a6], a3, a4, a1, a2, n] - S2[a6, a5, a4, a3, a1, a2, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a2_, a1_, a3_, a4_, a6_, a5_, n_] :> 
  -(S2[a1, a2, a3, n]*S2[a4, a6, a5, n]) - S2[a1, a3, a2, n]*
     S2[a4, a6, a5, n] - S2[SP[a1, a4], SP[a2, a6], SP[a3, a5], n] - 
    S2[SP[a1, a4], SP[a3, a6], SP[a2, a5], n] + 
    S2[a5, a6, n]*S2[a1, a2, a3, a4, n] - S2[a1, a2, SP[a3, a5], SP[a4, a6], 
     n] + S2[a5, a6, n]*S2[a1, a3, a2, a4, n] + 
    S2[a5, a6, n]*S2[a1, a3, a4, a2, n] - S2[a1, a3, SP[a2, a5], SP[a4, a6], 
     n] - S2[a1, a3, SP[a4, a5], SP[a2, a6], n] + S2[a1, a4, SP[a2, a6], 
     SP[a3, a5], n] + S2[a1, a4, SP[a3, a6], SP[a2, a5], n] + 
    S2[a1, SP[a2, a4], a6, SP[a3, a5], n] + S2[a1, SP[a2, a4], SP[a3, a6], 
     a5, n] - S2[a1, SP[a2, a5], a3, SP[a4, a6], n] - 
    S2[a1, SP[a2, a5], SP[a3, a6], a4, n] + S2[a1, SP[a3, a4], a6, 
     SP[a2, a5], n] + S2[a1, SP[a3, a4], SP[a2, a6], a5, n] - 
    S2[a1, SP[a3, a5], a2, SP[a4, a6], n] - S2[a1, SP[a3, a5], a4, 
     SP[a2, a6], n] - S2[a1, SP[a3, a5], SP[a2, a6], a4, n] - 
    S2[a1, SP[a3, a5], SP[a4, a6], a2, n] + S2[a1, a2, n]*
     S2[a3, a6, a4, a5, n] + S2[a1, a2, n]*S2[a3, a6, a5, a4, n] - 
    S2[a3, a6, SP[a1, a4], SP[a2, a5], n] - S2[a3, a6, SP[a1, a5], 
     SP[a2, a4], n] - S2[a3, SP[a1, a6], a4, SP[a2, a5], n] - 
    S2[a3, SP[a1, a6], a5, SP[a2, a4], n] - S2[a3, SP[a1, a6], SP[a2, a4], 
     a5, n] - S2[a3, SP[a1, a6], SP[a2, a5], a4, n] + 
    S2[a4, a1, SP[a2, a6], SP[a3, a5], n] + S2[a4, a1, SP[a3, a6], 
     SP[a2, a5], n] + S2[a4, SP[a1, a6], a2, SP[a3, a5], n] + 
    S2[a4, SP[a1, a6], a3, SP[a2, a5], n] + S2[a4, SP[a1, a6], SP[a2, a5], 
     a3, n] + S2[a4, SP[a1, a6], SP[a3, a5], a2, n] - 
    S2[a1, a2, n]*S2[a5, a6, a3, a4, n] + S2[a5, a6, SP[a1, a3], SP[a2, a4], 
     n] + S2[a5, SP[a1, a6], a3, SP[a2, a4], n] + 
    S2[a5, SP[a1, a6], SP[a2, a3], a4, n] - S2[SP[a1, a3], a6, a4, 
     SP[a2, a5], n] - S2[SP[a1, a3], a6, a5, SP[a2, a4], n] - 
    S2[SP[a1, a3], a6, SP[a2, a4], a5, n] - S2[SP[a1, a3], a6, SP[a2, a5], 
     a4, n] - S2[SP[a1, a3], SP[a2, a6], a4, a5, n] - 
    S2[SP[a1, a3], SP[a2, a6], a5, a4, n] + S2[SP[a1, a4], a2, a6, 
     SP[a3, a5], n] + S2[SP[a1, a4], a2, SP[a3, a6], a5, n] + 
    S2[SP[a1, a4], a3, a6, SP[a2, a5], n] + S2[SP[a1, a4], a3, SP[a2, a6], 
     a5, n] + S2[SP[a1, a4], a6, a2, SP[a3, a5], n] + 
    S2[SP[a1, a4], a6, a3, SP[a2, a5], n] + S2[SP[a1, a4], a6, SP[a2, a5], 
     a3, n] + S2[SP[a1, a4], a6, SP[a3, a5], a2, n] + 
    S2[SP[a1, a4], SP[a2, a6], a3, a5, n] + S2[SP[a1, a4], SP[a2, a6], a5, 
     a3, n] + S2[SP[a1, a4], SP[a3, a6], a2, a5, n] + 
    S2[SP[a1, a4], SP[a3, a6], a5, a2, n] - S2[SP[a1, a5], a2, a3, 
     SP[a4, a6], n] - S2[SP[a1, a5], a2, SP[a3, a6], a4, n] - 
    S2[SP[a1, a5], a3, a2, SP[a4, a6], n] - S2[SP[a1, a5], a3, a4, 
     SP[a2, a6], n] - S2[SP[a1, a5], a3, SP[a2, a6], a4, n] - 
    S2[SP[a1, a5], a3, SP[a4, a6], a2, n] + S2[SP[a1, a5], a6, a3, 
     SP[a2, a4], n] + S2[SP[a1, a5], a6, SP[a2, a3], a4, n] - 
    S2[SP[a1, a5], SP[a3, a6], a2, a4, n] - S2[SP[a1, a5], SP[a3, a6], a4, 
     a2, n] - S2[a5, n]*S2[a1, a2, a3, a4, a6, n] - 
    S2[a1, a2, a3, a4, SP[a5, a6], n] + S2[a1, a2, a3, a5, SP[a4, a6], n] - 
    S2[a5, n]*S2[a1, a2, a3, a6, a4, n] + 
    S2[a4, n]*S2[a1, a2, a3, a6, a5, n] + S2[a1, a2, a3, SP[a4, a6], a5, n] - 
    S2[a1, a2, a3, SP[a5, a6], a4, n] - S2[a1, a2, a4, a6, SP[a3, a5], n] - 
    S2[a1, a2, a4, SP[a3, a6], a5, n] + S2[a1, a2, a5, a3, SP[a4, a6], n] + 
    S2[a1, a2, a5, SP[a3, a6], a4, n] + S2[a4, n]*S2[a1, a2, a6, a3, a5, n] + 
    S2[a1, a2, a6, a3, SP[a4, a5], n] - S2[a3, n]*S2[a1, a2, a6, a4, a5, n] - 
    S2[a1, a2, a6, a4, SP[a3, a5], n] + S2[a4, n]*S2[a1, a2, a6, a5, a3, n] - 
    S2[a3, n]*S2[a1, a2, a6, a5, a4, n] - S2[a1, a2, a6, SP[a3, a5], a4, n] + 
    S2[a1, a2, a6, SP[a4, a5], a3, n] - S2[a1, a2, SP[a3, a6], a4, a5, n] - 
    S2[a1, a2, SP[a3, a6], a5, a4, n] + S2[a1, a2, SP[a4, a6], a3, a5, n] + 
    S2[a1, a2, SP[a4, a6], a5, a3, n] - S2[a5, n]*S2[a1, a3, a2, a4, a6, n] - 
    S2[a1, a3, a2, a4, SP[a5, a6], n] + S2[a1, a3, a2, a5, SP[a4, a6], n] - 
    S2[a5, n]*S2[a1, a3, a2, a6, a4, n] + 
    S2[a4, n]*S2[a1, a3, a2, a6, a5, n] + S2[a1, a3, a2, SP[a4, a6], a5, n] - 
    S2[a1, a3, a2, SP[a5, a6], a4, n] - S2[a5, n]*S2[a1, a3, a4, a2, a6, n] - 
    S2[a1, a3, a4, a2, SP[a5, a6], n] + S2[a1, a3, a4, a5, SP[a2, a6], n] - 
    S2[a5, n]*S2[a1, a3, a4, a6, a2, n] + 
    S2[a2, n]*S2[a1, a3, a4, a6, a5, n] - S2[a1, a3, a4, a6, SP[a2, a5], n] - 
    S2[a1, a3, a4, SP[a5, a6], a2, n] + S2[a1, a3, a5, a2, SP[a4, a6], n] + 
    S2[a1, a3, a5, a4, SP[a2, a6], n] + S2[a1, a3, a5, SP[a2, a6], a4, n] + 
    S2[a1, a3, a5, SP[a4, a6], a2, n] - S2[a5, n]*S2[a1, a3, a6, a2, a4, n] + 
    S2[a4, n]*S2[a1, a3, a6, a2, a5, n] - 
    S2[a5, n]*S2[a1, a3, a6, a4, a2, n] + 
    S2[a4, n]*S2[a1, a3, a6, a5, a2, n] + 
    2*S2[a1, a3, a6, a5, SP[a2, a4], n] + 
    2*S2[a1, a3, a6, SP[a2, a4], a5, n] + S2[a1, a3, SP[a2, a4], a6, a5, n] + 
    S2[a1, a3, SP[a2, a6], a4, a5, n] + S2[a1, a3, SP[a2, a6], a5, a4, n] + 
    S2[a1, a3, SP[a4, a6], a2, a5, n] + S2[a1, a3, SP[a4, a6], a5, a2, n] - 
    S2[a1, a3, SP[a5, a6], a2, a4, n] - S2[a1, a3, SP[a5, a6], a4, a2, n] - 
    S2[a1, a4, a2, a6, SP[a3, a5], n] - S2[a1, a4, a2, SP[a3, a6], a5, n] - 
    S2[a1, a4, a3, a6, SP[a2, a5], n] - S2[a1, a4, a3, SP[a2, a6], a5, n] - 
    S2[a1, a4, a6, a2, SP[a3, a5], n] - S2[a1, a4, a6, a3, SP[a2, a5], n] - 
    S2[a1, a4, a6, SP[a2, a5], a3, n] - S2[a1, a4, a6, SP[a3, a5], a2, n] - 
    S2[a1, a4, SP[a2, a6], a3, a5, n] - S2[a1, a4, SP[a2, a6], a5, a3, n] - 
    S2[a1, a4, SP[a3, a6], a2, a5, n] - S2[a1, a4, SP[a3, a6], a5, a2, n] + 
    S2[a1, a5, a2, a3, SP[a4, a6], n] + S2[a1, a5, a2, SP[a3, a6], a4, n] + 
    S2[a1, a5, a3, a2, SP[a4, a6], n] + S2[a1, a5, a3, a4, SP[a2, a6], n] + 
    S2[a1, a5, a3, SP[a2, a6], a4, n] + S2[a1, a5, a3, SP[a4, a6], a2, n] - 
    S2[a1, a5, a6, a3, SP[a2, a4], n] - S2[a1, a5, a6, SP[a2, a3], a4, n] + 
    S2[a1, a5, SP[a3, a6], a2, a4, n] + S2[a1, a5, SP[a3, a6], a4, a2, n] + 
    S2[a4, n]*S2[a1, a6, a2, a3, a5, n] + S2[a1, a6, a2, a3, SP[a4, a5], n] - 
    S2[a3, n]*S2[a1, a6, a2, a4, a5, n] - S2[a1, a6, a2, a4, SP[a3, a5], n] + 
    S2[a4, n]*S2[a1, a6, a2, a5, a3, n] - 
    S2[a3, n]*S2[a1, a6, a2, a5, a4, n] - S2[a1, a6, a2, SP[a3, a5], a4, n] + 
    S2[a1, a6, a2, SP[a4, a5], a3, n] + S2[a4, n]*S2[a1, a6, a3, a2, a5, n] + 
    S2[a1, a6, a3, a2, SP[a4, a5], n] + S2[a4, n]*S2[a1, a6, a3, a5, a2, n] + 
    S2[a1, a6, a3, a5, SP[a2, a4], n] + S2[a1, a6, a3, SP[a2, a4], a5, n] + 
    S2[a1, a6, a3, SP[a4, a5], a2, n] - S2[a3, n]*S2[a1, a6, a4, a2, a5, n] - 
    S2[a1, a6, a4, a2, SP[a3, a5], n] - S2[a3, n]*S2[a1, a6, a4, a5, a2, n] - 
    S2[a1, a6, a4, a5, SP[a2, a3], n] - S2[a1, a6, a4, SP[a2, a3], a5, n] - 
    S2[a1, a6, a4, SP[a3, a5], a2, n] + S2[a4, n]*S2[a1, a6, a5, a2, a3, n] - 
    S2[a3, n]*S2[a1, a6, a5, a2, a4, n] + 
    S2[a4, n]*S2[a1, a6, a5, a3, a2, n] + S2[a1, a6, a5, a3, SP[a2, a4], n] - 
    S2[a3, n]*S2[a1, a6, a5, a4, a2, n] - S2[a1, a6, a5, a4, SP[a2, a3], n] - 
    S2[a1, a6, a5, SP[a2, a3], a4, n] + S2[a1, a6, a5, SP[a2, a4], a3, n] - 
    S2[a1, a6, SP[a2, a3], a4, a5, n] - S2[a1, a6, SP[a2, a3], a5, a4, n] + 
    S2[a1, a6, SP[a2, a4], a3, a5, n] + S2[a1, a6, SP[a2, a4], a5, a3, n] - 
    S2[a1, a6, SP[a3, a5], a2, a4, n] - S2[a1, a6, SP[a3, a5], a4, a2, n] + 
    S2[a1, a6, SP[a4, a5], a2, a3, n] + S2[a1, a6, SP[a4, a5], a3, a2, n] + 
    S2[a1, SP[a2, a3], a4, a6, a5, n] - S2[a1, SP[a3, a6], a2, a4, a5, n] - 
    S2[a1, SP[a3, a6], a2, a5, a4, n] - S2[a1, SP[a3, a6], a4, a2, a5, n] - 
    S2[a1, SP[a3, a6], a4, a5, a2, n] - S2[a1, SP[a3, a6], a5, a2, a4, n] - 
    S2[a1, SP[a3, a6], a5, a4, a2, n] + S2[a1, SP[a4, a6], a2, a3, a5, n] + 
    S2[a1, SP[a4, a6], a2, a5, a3, n] + S2[a1, SP[a4, a6], a3, a2, a5, n] + 
    S2[a1, SP[a4, a6], a3, a5, a2, n] + S2[a1, SP[a4, a6], a5, a2, a3, n] + 
    S2[a1, SP[a4, a6], a5, a3, a2, n] + S2[a3, a1, a6, a4, SP[a2, a5], n] + 
    S2[a3, a1, a6, a5, SP[a2, a4], n] + S2[a3, a1, a6, SP[a2, a4], a5, n] + 
    S2[a3, a1, a6, SP[a2, a5], a4, n] + S2[a3, a1, SP[a2, a6], a4, a5, n] + 
    S2[a3, a1, SP[a2, a6], a5, a4, n] - S2[a5, n]*S2[a3, a6, a1, a2, a4, n] - 
    S2[a3, a6, a1, a2, SP[a4, a5], n] - S2[a5, n]*S2[a3, a6, a1, a4, a2, n] + 
    S2[a3, a6, a1, a5, SP[a2, a4], n] + S2[a3, a6, a1, SP[a2, a4], a5, n] - 
    S2[a3, a6, a1, SP[a4, a5], a2, n] + S2[a3, a6, a4, a1, SP[a2, a5], n] + 
    S2[a3, a6, a4, SP[a1, a5], a2, n] + S2[a3, a6, a5, a1, SP[a2, a4], n] + 
    S2[a3, a6, a5, SP[a1, a4], a2, n] + S2[a3, a6, SP[a1, a4], a2, a5, n] + 
    S2[a3, a6, SP[a1, a4], a5, a2, n] + S2[a3, SP[a1, a6], a2, a4, a5, n] + 
    S2[a3, SP[a1, a6], a2, a5, a4, n] + S2[a3, SP[a1, a6], a4, a2, a5, n] + 
    S2[a3, SP[a1, a6], a4, a5, a2, n] + S2[a3, SP[a1, a6], a5, a2, a4, n] + 
    S2[a3, SP[a1, a6], a5, a4, a2, n] - S2[a3, SP[a5, a6], a1, a2, a4, n] - 
    S2[a3, SP[a5, a6], a1, a4, a2, n] - S2[a4, a1, a2, a6, SP[a3, a5], n] - 
    S2[a4, a1, a2, SP[a3, a6], a5, n] - S2[a4, a1, a3, a6, SP[a2, a5], n] - 
    S2[a4, a1, a3, SP[a2, a6], a5, n] - S2[a4, a1, a6, a2, SP[a3, a5], n] - 
    S2[a4, a1, a6, a3, SP[a2, a5], n] - S2[a4, a1, a6, SP[a2, a5], a3, n] - 
    S2[a4, a1, a6, SP[a3, a5], a2, n] - S2[a4, a1, SP[a2, a6], a3, a5, n] - 
    S2[a4, a1, SP[a2, a6], a5, a3, n] - S2[a4, a1, SP[a3, a6], a2, a5, n] - 
    S2[a4, a1, SP[a3, a6], a5, a2, n] - S2[a4, a6, a1, a2, SP[a3, a5], n] - 
    S2[a4, a6, a1, a3, SP[a2, a5], n] - S2[a4, a6, a1, SP[a2, a5], a3, n] - 
    S2[a4, a6, a1, SP[a3, a5], a2, n] - S2[a4, a6, SP[a1, a5], a2, a3, n] - 
    S2[a4, a6, SP[a1, a5], a3, a2, n] - S2[a4, SP[a1, a6], a2, a3, a5, n] - 
    S2[a4, SP[a1, a6], a2, a5, a3, n] - S2[a4, SP[a1, a6], a3, a2, a5, n] - 
    S2[a4, SP[a1, a6], a3, a5, a2, n] - S2[a4, SP[a1, a6], a5, a2, a3, n] - 
    S2[a4, SP[a1, a6], a5, a3, a2, n] + S2[a5, a1, a2, a3, SP[a4, a6], n] + 
    S2[a5, a1, a2, SP[a3, a6], a4, n] + S2[a5, a1, a3, a2, SP[a4, a6], n] + 
    S2[a5, a1, a3, a4, SP[a2, a6], n] + S2[a5, a1, a3, SP[a2, a6], a4, n] + 
    S2[a5, a1, a3, SP[a4, a6], a2, n] - S2[a5, a1, a6, a3, SP[a2, a4], n] - 
    S2[a5, a1, a6, SP[a2, a3], a4, n] + S2[a5, a1, SP[a3, a6], a2, a4, n] + 
    S2[a5, a1, SP[a3, a6], a4, a2, n] + S2[a3, n]*S2[a5, a6, a1, a2, a4, n] + 
    S2[a5, a6, a1, a2, SP[a3, a4], n] - S2[a5, a6, a1, a3, SP[a2, a4], n] + 
    S2[a3, n]*S2[a5, a6, a1, a4, a2, n] + S2[a5, a6, a1, a4, SP[a2, a3], n] + 
    S2[a5, a6, a1, SP[a3, a4], a2, n] - S2[a5, a6, a3, a1, SP[a2, a4], n] - 
    S2[a5, a6, a3, SP[a1, a4], a2, n] + S2[a5, SP[a3, a6], a1, a2, a4, n] + 
    S2[a5, SP[a3, a6], a1, a4, a2, n] - S2[a5, n]*S2[a6, a1, a2, a3, a4, n] + 
    S2[a4, n]*S2[a6, a1, a2, a3, a5, n] - 
    S2[a5, n]*S2[a6, a1, a2, a4, a3, n] - S2[a6, a1, a2, a4, SP[a3, a5], n] + 
    S2[a4, n]*S2[a6, a1, a2, a5, a3, n] + S2[a6, a1, a2, a5, SP[a3, a4], n] + 
    S2[a6, a1, a2, SP[a3, a4], a5, n] - S2[a6, a1, a2, SP[a3, a5], a4, n] - 
    S2[a5, n]*S2[a6, a1, a3, a2, a4, n] + 
    S2[a4, n]*S2[a6, a1, a3, a2, a5, n] - 
    S2[a5, n]*S2[a6, a1, a3, a4, a2, n] - S2[a6, a1, a3, a4, SP[a2, a5], n] + 
    S2[a4, n]*S2[a6, a1, a3, a5, a2, n] + S2[a6, a1, a3, a5, SP[a2, a4], n] + 
    S2[a6, a1, a3, SP[a2, a4], a5, n] - S2[a6, a1, a3, SP[a2, a5], a4, n] - 
    S2[a5, n]*S2[a6, a1, a4, a2, a3, n] - S2[a6, a1, a4, a2, SP[a3, a5], n] - 
    S2[a5, n]*S2[a6, a1, a4, a3, a2, n] - S2[a6, a1, a4, a3, SP[a2, a5], n] - 
    S2[a6, a1, a4, SP[a2, a5], a3, n] - S2[a6, a1, a4, SP[a3, a5], a2, n] + 
    S2[a4, n]*S2[a6, a1, a5, a2, a3, n] + S2[a6, a1, a5, a2, SP[a3, a4], n] + 
    S2[a4, n]*S2[a6, a1, a5, a3, a2, n] + S2[a6, a1, a5, a3, SP[a2, a4], n] + 
    S2[a6, a1, a5, SP[a2, a4], a3, n] + S2[a6, a1, a5, SP[a3, a4], a2, n] + 
    S2[a6, a1, SP[a2, a4], a3, a5, n] + S2[a6, a1, SP[a2, a4], a5, a3, n] - 
    S2[a6, a1, SP[a2, a5], a3, a4, n] - S2[a6, a1, SP[a2, a5], a4, a3, n] + 
    S2[a6, a1, SP[a3, a4], a2, a5, n] + S2[a6, a1, SP[a3, a4], a5, a2, n] - 
    S2[a6, a1, SP[a3, a5], a2, a4, n] - S2[a6, a1, SP[a3, a5], a4, a2, n] + 
    S2[a5, n]*S2[a6, a3, a4, a1, a2, n] + S2[a6, a3, a4, a1, SP[a2, a5], n] + 
    S2[a6, a3, a4, SP[a1, a5], a2, n] + S2[a6, a3, SP[a4, a5], a1, a2, n] - 
    S2[a3, n]*S2[a6, a4, a1, a2, a5, n] - S2[a6, a4, a1, a2, SP[a3, a5], n] - 
    S2[a3, n]*S2[a6, a4, a1, a5, a2, n] - S2[a6, a4, a1, a5, SP[a2, a3], n] - 
    S2[a6, a4, a1, SP[a2, a3], a5, n] - S2[a6, a4, a1, SP[a3, a5], a2, n] - 
    S2[a3, n]*S2[a6, a4, a5, a1, a2, n] - S2[a6, a4, a5, a1, SP[a2, a3], n] - 
    S2[a6, a4, a5, SP[a1, a3], a2, n] - S2[a6, a4, SP[a1, a3], a2, a5, n] - 
    S2[a6, a4, SP[a1, a3], a5, a2, n] - S2[a6, a4, SP[a3, a5], a1, a2, n] + 
    S2[a4, n]*S2[a6, a5, a1, a2, a3, n] + S2[a6, a5, a1, a2, SP[a3, a4], n] + 
    S2[a4, n]*S2[a6, a5, a1, a3, a2, n] + S2[a6, a5, a1, a3, SP[a2, a4], n] + 
    S2[a6, a5, a1, SP[a2, a4], a3, n] + S2[a6, a5, a1, SP[a3, a4], a2, n] - 
    S2[a3, n]*S2[a6, a5, a4, a1, a2, n] - S2[a6, a5, a4, a1, SP[a2, a3], n] - 
    S2[a6, a5, a4, SP[a1, a3], a2, n] + S2[a6, a5, SP[a1, a4], a2, a3, n] + 
    S2[a6, a5, SP[a1, a4], a3, a2, n] - S2[a6, a5, SP[a3, a4], a1, a2, n] + 
    S2[a6, SP[a1, a4], a2, a3, a5, n] + S2[a6, SP[a1, a4], a2, a5, a3, n] + 
    S2[a6, SP[a1, a4], a3, a2, a5, n] + S2[a6, SP[a1, a4], a3, a5, a2, n] + 
    S2[a6, SP[a1, a4], a5, a2, a3, n] + S2[a6, SP[a1, a4], a5, a3, a2, n] - 
    S2[a6, SP[a1, a5], a2, a3, a4, n] - S2[a6, SP[a1, a5], a2, a4, a3, n] - 
    S2[a6, SP[a1, a5], a3, a2, a4, n] - S2[a6, SP[a1, a5], a3, a4, a2, n] - 
    S2[a6, SP[a1, a5], a4, a2, a3, n] - S2[a6, SP[a1, a5], a4, a3, a2, n] - 
    S2[a6, SP[a3, a4], a1, a2, a5, n] - S2[a6, SP[a3, a4], a1, a5, a2, n] - 
    S2[a6, SP[a3, a4], a5, a1, a2, n] + S2[a6, SP[a4, a5], a1, a2, a3, n] + 
    S2[a6, SP[a4, a5], a1, a3, a2, n] + S2[SP[a1, a2], a3, a4, a6, a5, n] - 
    S2[SP[a3, a6], a4, a1, a2, a5, n] - S2[SP[a3, a6], a4, a1, a5, a2, n] - 
    S2[SP[a3, a6], a4, a5, a1, a2, n] - S2[SP[a3, a6], a5, a4, a1, a2, n] + 
    S2[SP[a4, a6], a1, a2, a3, a5, n] + S2[SP[a4, a6], a1, a2, a5, a3, n] + 
    S2[SP[a4, a6], a1, a3, a2, a5, n] + S2[SP[a4, a6], a1, a3, a5, a2, n] + 
    S2[SP[a4, a6], a1, a5, a2, a3, n] + S2[SP[a4, a6], a1, a5, a3, a2, n] + 
    S2[SP[a4, a6], a5, a1, a2, a3, n] + S2[SP[a4, a6], a5, a1, a3, a2, n] - 
    S2[SP[a5, a6], a1, a2, a3, a4, n] - S2[SP[a5, a6], a1, a2, a4, a3, n] - 
    S2[SP[a5, a6], a1, a3, a2, a4, n] - S2[SP[a5, a6], a1, a3, a4, a2, n] - 
    S2[SP[a5, a6], a1, a4, a2, a3, n] - S2[SP[a5, a6], a1, a4, a3, a2, n] + 
    S2[SP[a5, a6], a3, a4, a1, a2, n] + S2[a6, a4, a3, a1, a2, a5, n] + 
    S2[a6, a4, a3, a1, a5, a2, n] + S2[a6, a4, a3, a5, a1, a2, n] + 
    S2[a6, a4, a5, a3, a1, a2, n] + S2[a6, a5, a4, a3, a1, a2, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a2_, a1_, a3_, a5_, a4_, a6_, n_] :> 
  S2[a1, a2, a3, n]*S2[a4, a5, a6, n] + S2[a1, a3, a2, n]*S2[a4, a5, a6, n] + 
    S2[a1, a2, a3, n]*S2[a4, a6, a5, n] + S2[a1, a3, a2, n]*
     S2[a4, a6, a5, n] + S2[SP[a1, a4], SP[a2, a5], SP[a3, a6], n] + 
    S2[SP[a1, a4], SP[a2, a6], SP[a3, a5], n] + S2[SP[a1, a4], SP[a3, a5], 
     SP[a2, a6], n] + S2[SP[a1, a4], SP[a3, a6], SP[a2, a5], n] - 
    S2[a4, a6, n]*S2[a1, a2, a3, a5, n] + S2[a1, a2, SP[a3, a4], SP[a5, a6], 
     n] - S2[a4, a6, n]*S2[a1, a3, a2, a5, n] - 
    S2[a4, a6, n]*S2[a1, a3, a5, a2, n] + S2[a1, a3, SP[a2, a4], SP[a5, a6], 
     n] + S2[a1, a3, SP[a4, a5], SP[a2, a6], n] - S2[a1, a4, SP[a2, a5], 
     SP[a3, a6], n] - S2[a1, a4, SP[a2, a6], SP[a3, a5], n] - 
    S2[a1, a4, SP[a3, a5], SP[a2, a6], n] - S2[a1, a4, SP[a3, a6], 
     SP[a2, a5], n] + S2[a1, SP[a2, a4], a3, SP[a5, a6], n] - 
    S2[a1, SP[a2, a4], a5, SP[a3, a6], n] - S2[a1, SP[a2, a4], a6, 
     SP[a3, a5], n] - S2[a1, SP[a2, a4], SP[a3, a5], a6, n] + 
    S2[a1, SP[a3, a4], a2, SP[a5, a6], n] - S2[a1, SP[a3, a4], a6, 
     SP[a2, a5], n] - S2[a1, SP[a3, a4], SP[a2, a5], a6, n] + 
    S2[a1, SP[a3, a4], SP[a5, a6], a2, n] - S2[a1, a2, n]*
     S2[a3, a5, a4, a6, n] - S2[a1, a2, n]*S2[a3, a5, a6, a4, n] + 
    S2[a3, a5, SP[a1, a4], SP[a2, a6], n] + S2[a3, a5, SP[a1, a6], 
     SP[a2, a4], n] - S2[a1, a2, n]*S2[a3, a6, a4, a5, n] - 
    S2[a1, a2, n]*S2[a3, a6, a5, a4, n] + S2[a3, a6, SP[a1, a4], SP[a2, a5], 
     n] + S2[a3, a6, SP[a1, a5], SP[a2, a4], n] + S2[a3, SP[a1, a5], a4, 
     SP[a2, a6], n] + S2[a3, SP[a1, a5], a6, SP[a2, a4], n] + 
    S2[a3, SP[a1, a5], SP[a2, a4], a6, n] + S2[a3, SP[a1, a5], SP[a2, a6], 
     a4, n] + S2[a3, SP[a1, a6], a4, SP[a2, a5], n] + 
    S2[a3, SP[a1, a6], a5, SP[a2, a4], n] + S2[a3, SP[a1, a6], SP[a2, a4], 
     a5, n] + S2[a3, SP[a1, a6], SP[a2, a5], a4, n] - 
    S2[a4, a1, SP[a2, a5], SP[a3, a6], n] - S2[a4, a1, SP[a2, a6], 
     SP[a3, a5], n] - S2[a4, a1, SP[a3, a5], SP[a2, a6], n] - 
    S2[a4, a1, SP[a3, a6], SP[a2, a5], n] + S2[a1, a2, n]*
     S2[a4, a6, a3, a5, n] - S2[a4, a6, SP[a1, a3], SP[a2, a5], n] - 
    S2[a4, SP[a1, a5], a2, SP[a3, a6], n] - S2[a4, SP[a1, a5], a3, 
     SP[a2, a6], n] - S2[a4, SP[a1, a5], SP[a2, a6], a3, n] - 
    S2[a4, SP[a1, a5], SP[a3, a6], a2, n] - S2[a4, SP[a1, a6], a2, 
     SP[a3, a5], n] - 2*S2[a4, SP[a1, a6], a3, SP[a2, a5], n] - 
    S2[a4, SP[a1, a6], SP[a2, a3], a5, n] - S2[a4, SP[a1, a6], SP[a2, a5], 
     a3, n] - S2[a4, SP[a1, a6], SP[a3, a5], a2, n] + 
    S2[SP[a1, a3], a5, a4, SP[a2, a6], n] + S2[SP[a1, a3], a5, a6, 
     SP[a2, a4], n] + S2[SP[a1, a3], a5, SP[a2, a4], a6, n] + 
    S2[SP[a1, a3], a5, SP[a2, a6], a4, n] + S2[SP[a1, a3], a6, a4, 
     SP[a2, a5], n] + S2[SP[a1, a3], a6, a5, SP[a2, a4], n] + 
    S2[SP[a1, a3], a6, SP[a2, a4], a5, n] + S2[SP[a1, a3], a6, SP[a2, a5], 
     a4, n] + S2[SP[a1, a3], SP[a2, a5], a4, a6, n] + 
    S2[SP[a1, a3], SP[a2, a5], a6, a4, n] + S2[SP[a1, a3], SP[a2, a6], a4, 
     a5, n] + S2[SP[a1, a3], SP[a2, a6], a5, a4, n] + 
    S2[SP[a1, a4], a2, a3, SP[a5, a6], n] - S2[SP[a1, a4], a2, a5, 
     SP[a3, a6], n] - S2[SP[a1, a4], a2, a6, SP[a3, a5], n] - 
    S2[SP[a1, a4], a2, SP[a3, a5], a6, n] + S2[SP[a1, a4], a3, a2, 
     SP[a5, a6], n] - S2[SP[a1, a4], a3, a6, SP[a2, a5], n] - 
    S2[SP[a1, a4], a3, SP[a2, a5], a6, n] + S2[SP[a1, a4], a3, SP[a5, a6], 
     a2, n] - S2[SP[a1, a4], a5, a2, SP[a3, a6], n] - 
    S2[SP[a1, a4], a5, a3, SP[a2, a6], n] - S2[SP[a1, a4], a5, SP[a2, a6], 
     a3, n] - S2[SP[a1, a4], a5, SP[a3, a6], a2, n] - 
    S2[SP[a1, a4], a6, a2, SP[a3, a5], n] - 
    2*S2[SP[a1, a4], a6, a3, SP[a2, a5], n] - S2[SP[a1, a4], a6, SP[a2, a3], 
     a5, n] - S2[SP[a1, a4], a6, SP[a2, a5], a3, n] - 
    S2[SP[a1, a4], a6, SP[a3, a5], a2, n] - S2[SP[a1, a4], SP[a2, a5], a3, 
     a6, n] - S2[SP[a1, a4], SP[a2, a5], a6, a3, n] - 
    S2[SP[a1, a4], SP[a2, a6], a3, a5, n] - S2[SP[a1, a4], SP[a2, a6], a5, 
     a3, n] - S2[SP[a1, a4], SP[a3, a5], a2, a6, n] - 
    S2[SP[a1, a4], SP[a3, a5], a6, a2, n] - S2[a1, a2, a3, a4, SP[a5, a6], 
     n] - S2[a1, a2, a3, SP[a4, a5], a6, n] - S2[a1, a2, a4, a3, SP[a5, a6], 
     n] + S2[a1, a2, a4, a5, SP[a3, a6], n] + S2[a1, a2, a4, a6, SP[a3, a5], 
     n] + S2[a1, a2, a4, SP[a3, a5], a6, n] - 
    S2[a4, n]*S2[a1, a2, a5, a3, a6, n] - S2[a1, a2, a5, a3, SP[a4, a6], n] + 
    S2[a3, n]*S2[a1, a2, a5, a4, a6, n] + S2[a1, a2, a5, a4, SP[a3, a6], n] - 
    S2[a4, n]*S2[a1, a2, a5, a6, a3, n] + 
    S2[a3, n]*S2[a1, a2, a5, a6, a4, n] + S2[a1, a2, a5, SP[a3, a6], a4, n] - 
    S2[a1, a2, a5, SP[a4, a6], a3, n] - S2[a4, n]*S2[a1, a2, a6, a3, a5, n] - 
    S2[a1, a2, a6, a3, SP[a4, a5], n] + S2[a3, n]*S2[a1, a2, a6, a4, a5, n] + 
    S2[a1, a2, a6, a4, SP[a3, a5], n] - S2[a4, n]*S2[a1, a2, a6, a5, a3, n] + 
    S2[a3, n]*S2[a1, a2, a6, a5, a4, n] + S2[a1, a2, a6, SP[a3, a5], a4, n] - 
    S2[a1, a2, a6, SP[a4, a5], a3, n] + S2[a1, a2, SP[a3, a5], a4, a6, n] + 
    S2[a1, a2, SP[a3, a5], a6, a4, n] + S2[a1, a2, SP[a3, a6], a4, a5, n] + 
    S2[a1, a2, SP[a3, a6], a5, a4, n] - S2[a1, a2, SP[a4, a5], a3, a6, n] - 
    S2[a1, a2, SP[a4, a5], a6, a3, n] - S2[a1, a2, SP[a4, a6], a3, a5, n] - 
    S2[a1, a2, SP[a4, a6], a5, a3, n] - S2[a1, a3, a2, a4, SP[a5, a6], n] - 
    S2[a1, a3, a2, SP[a4, a5], a6, n] - S2[a1, a3, a4, a2, SP[a5, a6], n] + 
    S2[a1, a3, a4, a6, SP[a2, a5], n] + S2[a1, a3, a4, SP[a2, a5], a6, n] - 
    S2[a1, a3, a4, SP[a5, a6], a2, n] + S2[a2, n]*S2[a1, a3, a5, a4, a6, n] - 
    S2[a1, a3, a5, a4, SP[a2, a6], n] - S2[a1, a3, a5, a6, SP[a2, a4], n] - 
    S2[a1, a3, a5, SP[a2, a4], a6, n] - S2[a1, a3, a5, SP[a2, a6], a4, n] - 
    S2[a1, a3, a6, a4, SP[a2, a5], n] - S2[a1, a3, a6, a5, SP[a2, a4], n] - 
    S2[a1, a3, a6, SP[a2, a4], a5, n] - S2[a1, a3, a6, SP[a2, a5], a4, n] - 
    S2[a1, a3, SP[a2, a5], a6, a4, n] - S2[a1, a3, SP[a2, a6], a4, a5, n] - 
    S2[a1, a3, SP[a2, a6], a5, a4, n] - S2[a1, a3, SP[a4, a5], a2, a6, n] - 
    S2[a1, a3, SP[a4, a5], a6, a2, n] - S2[a1, a4, a2, a3, SP[a5, a6], n] + 
    S2[a1, a4, a2, a5, SP[a3, a6], n] + S2[a1, a4, a2, a6, SP[a3, a5], n] + 
    S2[a1, a4, a2, SP[a3, a5], a6, n] - S2[a1, a4, a3, a2, SP[a5, a6], n] + 
    S2[a1, a4, a3, a6, SP[a2, a5], n] + S2[a1, a4, a3, SP[a2, a5], a6, n] - 
    S2[a1, a4, a3, SP[a5, a6], a2, n] + S2[a1, a4, a5, a2, SP[a3, a6], n] + 
    S2[a1, a4, a5, a3, SP[a2, a6], n] + S2[a1, a4, a5, SP[a2, a6], a3, n] + 
    S2[a1, a4, a5, SP[a3, a6], a2, n] + S2[a1, a4, a6, a2, SP[a3, a5], n] + 
    2*S2[a1, a4, a6, a3, SP[a2, a5], n] + S2[a1, a4, a6, SP[a2, a3], a5, n] + 
    S2[a1, a4, a6, SP[a2, a5], a3, n] + S2[a1, a4, a6, SP[a3, a5], a2, n] + 
    S2[a1, a4, SP[a2, a5], a3, a6, n] + S2[a1, a4, SP[a2, a5], a6, a3, n] + 
    S2[a1, a4, SP[a2, a6], a3, a5, n] + S2[a1, a4, SP[a2, a6], a5, a3, n] + 
    S2[a1, a4, SP[a3, a5], a2, a6, n] + S2[a1, a4, SP[a3, a5], a6, a2, n] - 
    S2[a4, n]*S2[a1, a5, a2, a3, a6, n] - S2[a1, a5, a2, a3, SP[a4, a6], n] + 
    S2[a3, n]*S2[a1, a5, a2, a4, a6, n] + S2[a1, a5, a2, a4, SP[a3, a6], n] - 
    S2[a4, n]*S2[a1, a5, a2, a6, a3, n] + 
    S2[a3, n]*S2[a1, a5, a2, a6, a4, n] + S2[a1, a5, a2, SP[a3, a6], a4, n] - 
    S2[a1, a5, a2, SP[a4, a6], a3, n] - S2[a4, n]*S2[a1, a5, a3, a2, a6, n] - 
    S2[a1, a5, a3, a2, SP[a4, a6], n] - S2[a4, n]*S2[a1, a5, a3, a6, a2, n] - 
    S2[a1, a5, a3, a6, SP[a2, a4], n] - S2[a1, a5, a3, SP[a2, a4], a6, n] - 
    S2[a1, a5, a3, SP[a4, a6], a2, n] + S2[a3, n]*S2[a1, a5, a4, a2, a6, n] + 
    S2[a1, a5, a4, a2, SP[a3, a6], n] + S2[a3, n]*S2[a1, a5, a4, a6, a2, n] + 
    S2[a1, a5, a4, a6, SP[a2, a3], n] + S2[a1, a5, a4, SP[a2, a3], a6, n] + 
    S2[a1, a5, a4, SP[a3, a6], a2, n] - S2[a4, n]*S2[a1, a5, a6, a2, a3, n] + 
    S2[a3, n]*S2[a1, a5, a6, a2, a4, n] - 
    S2[a4, n]*S2[a1, a5, a6, a3, a2, n] - S2[a1, a5, a6, a3, SP[a2, a4], n] + 
    S2[a3, n]*S2[a1, a5, a6, a4, a2, n] + S2[a1, a5, a6, a4, SP[a2, a3], n] + 
    S2[a1, a5, a6, SP[a2, a3], a4, n] - S2[a1, a5, a6, SP[a2, a4], a3, n] + 
    S2[a1, a5, SP[a2, a3], a4, a6, n] + S2[a1, a5, SP[a2, a3], a6, a4, n] - 
    S2[a1, a5, SP[a2, a4], a3, a6, n] - S2[a1, a5, SP[a2, a4], a6, a3, n] + 
    S2[a1, a5, SP[a3, a6], a2, a4, n] + S2[a1, a5, SP[a3, a6], a4, a2, n] - 
    S2[a1, a5, SP[a4, a6], a2, a3, n] - S2[a1, a5, SP[a4, a6], a3, a2, n] - 
    S2[a4, n]*S2[a1, a6, a2, a3, a5, n] - S2[a1, a6, a2, a3, SP[a4, a5], n] + 
    S2[a3, n]*S2[a1, a6, a2, a4, a5, n] + S2[a1, a6, a2, a4, SP[a3, a5], n] - 
    S2[a4, n]*S2[a1, a6, a2, a5, a3, n] + 
    S2[a3, n]*S2[a1, a6, a2, a5, a4, n] + S2[a1, a6, a2, SP[a3, a5], a4, n] - 
    S2[a1, a6, a2, SP[a4, a5], a3, n] - S2[a4, n]*S2[a1, a6, a3, a2, a5, n] - 
    S2[a1, a6, a3, a2, SP[a4, a5], n] - S2[a4, n]*S2[a1, a6, a3, a5, a2, n] - 
    S2[a1, a6, a3, a5, SP[a2, a4], n] - S2[a1, a6, a3, SP[a2, a4], a5, n] - 
    S2[a1, a6, a3, SP[a4, a5], a2, n] + S2[a3, n]*S2[a1, a6, a4, a2, a5, n] + 
    S2[a1, a6, a4, a2, SP[a3, a5], n] + S2[a3, n]*S2[a1, a6, a4, a5, a2, n] + 
    S2[a1, a6, a4, a5, SP[a2, a3], n] + S2[a1, a6, a4, SP[a2, a3], a5, n] + 
    S2[a1, a6, a4, SP[a3, a5], a2, n] - S2[a4, n]*S2[a1, a6, a5, a2, a3, n] + 
    S2[a3, n]*S2[a1, a6, a5, a2, a4, n] - 
    S2[a4, n]*S2[a1, a6, a5, a3, a2, n] - S2[a1, a6, a5, a3, SP[a2, a4], n] + 
    S2[a3, n]*S2[a1, a6, a5, a4, a2, n] + S2[a1, a6, a5, a4, SP[a2, a3], n] + 
    S2[a1, a6, a5, SP[a2, a3], a4, n] - S2[a1, a6, a5, SP[a2, a4], a3, n] + 
    S2[a1, a6, SP[a2, a3], a4, a5, n] + S2[a1, a6, SP[a2, a3], a5, a4, n] - 
    S2[a1, a6, SP[a2, a4], a3, a5, n] - S2[a1, a6, SP[a2, a4], a5, a3, n] + 
    S2[a1, a6, SP[a3, a5], a2, a4, n] + S2[a1, a6, SP[a3, a5], a4, a2, n] - 
    S2[a1, a6, SP[a4, a5], a2, a3, n] - S2[a1, a6, SP[a4, a5], a3, a2, n] + 
    S2[a1, SP[a2, a3], a5, a4, a6, n] + S2[a1, SP[a3, a5], a2, a4, a6, n] + 
    S2[a1, SP[a3, a5], a2, a6, a4, n] + S2[a1, SP[a3, a5], a4, a2, a6, n] + 
    S2[a1, SP[a3, a5], a4, a6, a2, n] + S2[a1, SP[a3, a5], a6, a2, a4, n] + 
    S2[a1, SP[a3, a5], a6, a4, a2, n] + S2[a1, SP[a3, a6], a2, a4, a5, n] + 
    S2[a1, SP[a3, a6], a2, a5, a4, n] + S2[a1, SP[a3, a6], a4, a2, a5, n] + 
    S2[a1, SP[a3, a6], a4, a5, a2, n] + S2[a1, SP[a3, a6], a5, a2, a4, n] + 
    S2[a1, SP[a3, a6], a5, a4, a2, n] - S2[a1, SP[a4, a5], a2, a3, a6, n] - 
    S2[a1, SP[a4, a5], a2, a6, a3, n] - S2[a1, SP[a4, a5], a3, a2, a6, n] - 
    S2[a1, SP[a4, a5], a3, a6, a2, n] - S2[a1, SP[a4, a5], a6, a2, a3, n] - 
    S2[a1, SP[a4, a5], a6, a3, a2, n] - S2[a1, SP[a4, a6], a2, a3, a5, n] - 
    S2[a1, SP[a4, a6], a2, a5, a3, n] - S2[a1, SP[a4, a6], a3, a2, a5, n] - 
    S2[a1, SP[a4, a6], a3, a5, a2, n] - S2[a1, SP[a4, a6], a5, a2, a3, n] - 
    S2[a1, SP[a4, a6], a5, a3, a2, n] - S2[a3, a1, a5, a4, SP[a2, a6], n] - 
    S2[a3, a1, a5, a6, SP[a2, a4], n] - S2[a3, a1, a5, SP[a2, a4], a6, n] - 
    S2[a3, a1, a5, SP[a2, a6], a4, n] - S2[a3, a1, a6, a4, SP[a2, a5], n] - 
    S2[a3, a1, a6, a5, SP[a2, a4], n] - S2[a3, a1, a6, SP[a2, a4], a5, n] - 
    S2[a3, a1, a6, SP[a2, a5], a4, n] - S2[a3, a1, SP[a2, a5], a4, a6, n] - 
    S2[a3, a1, SP[a2, a5], a6, a4, n] - S2[a3, a1, SP[a2, a6], a4, a5, n] - 
    S2[a3, a1, SP[a2, a6], a5, a4, n] + S2[a6, n]*S2[a3, a5, a1, a2, a4, n] + 
    S2[a3, a5, a1, a2, SP[a4, a6], n] + S2[a6, n]*S2[a3, a5, a1, a4, a2, n] - 
    S2[a3, a5, a1, a6, SP[a2, a4], n] - S2[a3, a5, a1, SP[a2, a4], a6, n] + 
    S2[a3, a5, a1, SP[a4, a6], a2, n] + S2[a6, n]*S2[a3, a5, a4, a1, a2, n] - 
    S2[a3, a5, a6, a1, SP[a2, a4], n] - S2[a3, a5, a6, SP[a1, a4], a2, n] - 
    S2[a3, a5, SP[a1, a4], a2, a6, n] - S2[a3, a5, SP[a1, a4], a6, a2, n] + 
    S2[a3, a5, SP[a4, a6], a1, a2, n] + S2[a4, n]*S2[a3, a6, a1, a2, a5, n] + 
    S2[a3, a6, a1, a2, SP[a4, a5], n] - S2[a3, a6, a1, a4, SP[a2, a5], n] + 
    S2[a4, n]*S2[a3, a6, a1, a5, a2, n] - S2[a3, a6, a1, SP[a2, a5], a4, n] + 
    S2[a3, a6, a1, SP[a4, a5], a2, n] - S2[a3, a6, a4, a1, SP[a2, a5], n] - 
    S2[a3, a6, a4, SP[a1, a5], a2, n] - S2[a3, a6, a5, a1, SP[a2, a4], n] - 
    S2[a3, a6, a5, SP[a1, a4], a2, n] - S2[a3, a6, SP[a1, a5], a2, a4, n] - 
    S2[a3, a6, SP[a1, a5], a4, a2, n] - S2[a3, SP[a1, a5], a2, a4, a6, n] - 
    S2[a3, SP[a1, a5], a2, a6, a4, n] - S2[a3, SP[a1, a5], a4, a2, a6, n] - 
    S2[a3, SP[a1, a5], a4, a6, a2, n] - S2[a3, SP[a1, a5], a6, a2, a4, n] - 
    S2[a3, SP[a1, a5], a6, a4, a2, n] - S2[a3, SP[a1, a6], a2, a4, a5, n] - 
    S2[a3, SP[a1, a6], a2, a5, a4, n] - S2[a3, SP[a1, a6], a4, a2, a5, n] - 
    S2[a3, SP[a1, a6], a4, a5, a2, n] - S2[a3, SP[a1, a6], a5, a2, a4, n] - 
    S2[a3, SP[a1, a6], a5, a4, a2, n] + S2[a3, SP[a4, a6], a1, a2, a5, n] + 
    S2[a3, SP[a4, a6], a1, a5, a2, n] + S2[a3, SP[a5, a6], a1, a2, a4, n] + 
    S2[a3, SP[a5, a6], a1, a4, a2, n] + S2[a3, SP[a5, a6], a4, a1, a2, n] - 
    S2[a4, a1, a2, a3, SP[a5, a6], n] + S2[a4, a1, a2, a5, SP[a3, a6], n] + 
    S2[a4, a1, a2, a6, SP[a3, a5], n] + S2[a4, a1, a2, SP[a3, a5], a6, n] - 
    S2[a4, a1, a3, a2, SP[a5, a6], n] + S2[a4, a1, a3, a6, SP[a2, a5], n] + 
    S2[a4, a1, a3, SP[a2, a5], a6, n] - S2[a4, a1, a3, SP[a5, a6], a2, n] + 
    S2[a4, a1, a5, a2, SP[a3, a6], n] + S2[a4, a1, a5, a3, SP[a2, a6], n] + 
    S2[a4, a1, a5, SP[a2, a6], a3, n] + S2[a4, a1, a5, SP[a3, a6], a2, n] + 
    S2[a4, a1, a6, a2, SP[a3, a5], n] + 2*S2[a4, a1, a6, a3, SP[a2, a5], n] + 
    S2[a4, a1, a6, SP[a2, a3], a5, n] + S2[a4, a1, a6, SP[a2, a5], a3, n] + 
    S2[a4, a1, a6, SP[a3, a5], a2, n] + S2[a4, a1, SP[a2, a5], a3, a6, n] + 
    S2[a4, a1, SP[a2, a5], a6, a3, n] + S2[a4, a1, SP[a2, a6], a3, a5, n] + 
    S2[a4, a1, SP[a2, a6], a5, a3, n] + S2[a4, a1, SP[a3, a5], a2, a6, n] + 
    S2[a4, a1, SP[a3, a5], a6, a2, n] - S2[a6, n]*S2[a4, a5, a1, a2, a3, n] - 
    S2[a6, n]*S2[a4, a5, a1, a3, a2, n] - 
    S2[a3, n]*S2[a4, a6, a1, a2, a5, n] + 
    2*S2[a4, a6, a1, a3, SP[a2, a5], n] - 
    S2[a3, n]*S2[a4, a6, a1, a5, a2, n] - S2[a4, a6, a1, a5, SP[a2, a3], n] + 
    S2[a4, a6, a1, SP[a2, a5], a3, n] + S2[a4, a6, a3, a1, SP[a2, a5], n] + 
    S2[a4, a6, a3, SP[a1, a5], a2, n] + S2[a4, a6, SP[a1, a5], a2, a3, n] + 
    S2[a4, a6, SP[a1, a5], a3, a2, n] + S2[a4, SP[a1, a5], a2, a3, a6, n] + 
    S2[a4, SP[a1, a5], a2, a6, a3, n] + S2[a4, SP[a1, a5], a3, a2, a6, n] + 
    S2[a4, SP[a1, a5], a3, a6, a2, n] + S2[a4, SP[a1, a5], a6, a2, a3, n] + 
    S2[a4, SP[a1, a5], a6, a3, a2, n] + S2[a4, SP[a1, a6], a2, a3, a5, n] + 
    S2[a4, SP[a1, a6], a2, a5, a3, n] + S2[a4, SP[a1, a6], a3, a2, a5, n] + 
    S2[a4, SP[a1, a6], a3, a5, a2, n] + S2[a4, SP[a1, a6], a5, a2, a3, n] + 
    S2[a4, SP[a1, a6], a5, a3, a2, n] - S2[a4, SP[a3, a6], a1, a2, a5, n] - 
    S2[a4, SP[a3, a6], a1, a5, a2, n] - S2[a4, SP[a5, a6], a1, a2, a3, n] - 
    S2[a4, SP[a5, a6], a1, a3, a2, n] - S2[a4, n]*S2[a6, a3, a5, a1, a2, n] - 
    S2[a6, a3, a5, a1, SP[a2, a4], n] - S2[a6, a3, a5, SP[a1, a4], a2, n] - 
    S2[a6, a3, SP[a4, a5], a1, a2, n] + S2[a3, n]*S2[a6, a4, a5, a1, a2, n] + 
    S2[a6, a4, a5, a1, SP[a2, a3], n] + S2[a6, a4, a5, SP[a1, a3], a2, n] + 
    S2[a6, a4, SP[a3, a5], a1, a2, n] + S2[SP[a1, a2], a3, a5, a4, a6, n] + 
    S2[SP[a3, a6], a4, a5, a1, a2, n] + S2[SP[a3, a6], a5, a1, a2, a4, n] + 
    S2[SP[a3, a6], a5, a1, a4, a2, n] + S2[SP[a3, a6], a5, a4, a1, a2, n] - 
    S2[SP[a4, a6], a3, a5, a1, a2, n] - S2[SP[a4, a6], a5, a1, a2, a3, n] - 
    S2[SP[a4, a6], a5, a1, a3, a2, n] - S2[a6, a4, a5, a3, a1, a2, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a2_, a1_, a3_, a5_, a6_, a4_, n_] :> 
  -(S2[a1, a2, a3, n]*S2[a4, a6, a5, n]) - S2[a1, a3, a2, n]*
     S2[a4, a6, a5, n] - S2[SP[a1, a4], SP[a2, a6], SP[a3, a5], n] - 
    S2[SP[a1, a4], SP[a3, a6], SP[a2, a5], n] + 
    S2[a4, a6, n]*S2[a1, a2, a3, a5, n] - S2[a1, a2, SP[a3, a4], SP[a5, a6], 
     n] + S2[a4, a6, n]*S2[a1, a3, a2, a5, n] + 
    S2[a4, a6, n]*S2[a1, a3, a5, a2, n] - S2[a1, a3, SP[a2, a4], SP[a5, a6], 
     n] - S2[a1, a3, SP[a4, a5], SP[a2, a6], n] + S2[a1, a4, SP[a2, a6], 
     SP[a3, a5], n] + S2[a1, a4, SP[a3, a6], SP[a2, a5], n] - 
    S2[a1, SP[a2, a4], a3, SP[a5, a6], n] + S2[a1, SP[a2, a4], a6, 
     SP[a3, a5], n] - S2[a1, SP[a3, a4], a2, SP[a5, a6], n] - 
    S2[a1, SP[a3, a4], a5, SP[a2, a6], n] + S2[a1, SP[a3, a4], a6, 
     SP[a2, a5], n] - S2[a1, SP[a3, a4], SP[a5, a6], a2, n] + 
    S2[a1, a2, n]*S2[a3, a6, a4, a5, n] + S2[a1, a2, n]*
     S2[a3, a6, a5, a4, n] - S2[a3, a6, SP[a1, a4], SP[a2, a5], n] - 
    S2[a3, a6, SP[a1, a5], SP[a2, a4], n] - S2[a3, SP[a1, a6], a4, 
     SP[a2, a5], n] - S2[a3, SP[a1, a6], a5, SP[a2, a4], n] - 
    S2[a3, SP[a1, a6], SP[a2, a4], a5, n] - S2[a3, SP[a1, a6], SP[a2, a5], 
     a4, n] + S2[a4, a1, SP[a2, a6], SP[a3, a5], n] + 
    S2[a4, a1, SP[a3, a6], SP[a2, a5], n] - S2[a1, a2, n]*
     S2[a4, a6, a3, a5, n] + S2[a4, a6, SP[a1, a3], SP[a2, a5], n] + 
    S2[a4, SP[a1, a6], a2, SP[a3, a5], n] + 
    2*S2[a4, SP[a1, a6], a3, SP[a2, a5], n] + S2[a4, SP[a1, a6], SP[a2, a3], 
     a5, n] + S2[a4, SP[a1, a6], SP[a2, a5], a3, n] + 
    S2[a4, SP[a1, a6], SP[a3, a5], a2, n] - S2[SP[a1, a3], a6, a4, 
     SP[a2, a5], n] - S2[SP[a1, a3], a6, a5, SP[a2, a4], n] - 
    S2[SP[a1, a3], a6, SP[a2, a4], a5, n] - S2[SP[a1, a3], a6, SP[a2, a5], 
     a4, n] - S2[SP[a1, a3], SP[a2, a6], a4, a5, n] - 
    S2[SP[a1, a3], SP[a2, a6], a5, a4, n] - S2[SP[a1, a4], a2, a3, 
     SP[a5, a6], n] + S2[SP[a1, a4], a2, a6, SP[a3, a5], n] - 
    S2[SP[a1, a4], a3, a2, SP[a5, a6], n] - S2[SP[a1, a4], a3, a5, 
     SP[a2, a6], n] + S2[SP[a1, a4], a3, a6, SP[a2, a5], n] - 
    S2[SP[a1, a4], a3, SP[a5, a6], a2, n] + S2[SP[a1, a4], a6, a2, 
     SP[a3, a5], n] + 2*S2[SP[a1, a4], a6, a3, SP[a2, a5], n] + 
    S2[SP[a1, a4], a6, SP[a2, a3], a5, n] + S2[SP[a1, a4], a6, SP[a2, a5], 
     a3, n] + S2[SP[a1, a4], a6, SP[a3, a5], a2, n] + 
    S2[SP[a1, a4], SP[a2, a6], a3, a5, n] + S2[SP[a1, a4], SP[a2, a6], a5, 
     a3, n] + S2[a1, a2, a3, a4, SP[a5, a6], n] - 
    S2[a4, n]*S2[a1, a2, a3, a5, a6, n] - S2[a1, a2, a3, a5, SP[a4, a6], n] + 
    S2[a1, a2, a4, a3, SP[a5, a6], n] - S2[a1, a2, a4, a6, SP[a3, a5], n] + 
    S2[a4, n]*S2[a1, a2, a6, a3, a5, n] + S2[a1, a2, a6, a3, SP[a4, a5], n] - 
    S2[a3, n]*S2[a1, a2, a6, a4, a5, n] - S2[a1, a2, a6, a4, SP[a3, a5], n] + 
    S2[a4, n]*S2[a1, a2, a6, a5, a3, n] - 
    S2[a3, n]*S2[a1, a2, a6, a5, a4, n] - S2[a1, a2, a6, SP[a3, a5], a4, n] + 
    S2[a1, a2, a6, SP[a4, a5], a3, n] - S2[a1, a2, SP[a3, a6], a4, a5, n] - 
    S2[a1, a2, SP[a3, a6], a5, a4, n] + S2[a1, a2, SP[a4, a6], a3, a5, n] + 
    S2[a1, a2, SP[a4, a6], a5, a3, n] + S2[a1, a3, a2, a4, SP[a5, a6], n] - 
    S2[a4, n]*S2[a1, a3, a2, a5, a6, n] - S2[a1, a3, a2, a5, SP[a4, a6], n] + 
    S2[a1, a3, a4, a2, SP[a5, a6], n] + S2[a1, a3, a4, a5, SP[a2, a6], n] - 
    S2[a1, a3, a4, a6, SP[a2, a5], n] + S2[a1, a3, a4, SP[a5, a6], a2, n] - 
    S2[a4, n]*S2[a1, a3, a5, a2, a6, n] - S2[a1, a3, a5, a2, SP[a4, a6], n] + 
    S2[a1, a3, a5, a4, SP[a2, a6], n] - S2[a4, n]*S2[a1, a3, a5, a6, a2, n] + 
    S2[a2, n]*S2[a1, a3, a5, a6, a4, n] + S2[a1, a3, a5, SP[a2, a6], a4, n] - 
    S2[a1, a3, a5, SP[a4, a6], a2, n] + S2[a1, a3, a6, a4, SP[a2, a5], n] + 
    S2[a1, a3, a6, a5, SP[a2, a4], n] + S2[a1, a3, a6, SP[a2, a4], a5, n] + 
    S2[a1, a3, a6, SP[a2, a5], a4, n] + S2[a1, a3, SP[a2, a5], a6, a4, n] + 
    S2[a1, a3, SP[a2, a6], a4, a5, n] + S2[a1, a3, SP[a2, a6], a5, a4, n] + 
    S2[a1, a4, a2, a3, SP[a5, a6], n] - S2[a1, a4, a2, a6, SP[a3, a5], n] + 
    S2[a1, a4, a3, a2, SP[a5, a6], n] + S2[a1, a4, a3, a5, SP[a2, a6], n] - 
    S2[a1, a4, a3, a6, SP[a2, a5], n] + S2[a1, a4, a3, SP[a5, a6], a2, n] - 
    S2[a1, a4, a6, a2, SP[a3, a5], n] - 2*S2[a1, a4, a6, a3, SP[a2, a5], n] - 
    S2[a1, a4, a6, SP[a2, a3], a5, n] - S2[a1, a4, a6, SP[a2, a5], a3, n] - 
    S2[a1, a4, a6, SP[a3, a5], a2, n] - S2[a1, a4, SP[a2, a6], a3, a5, n] - 
    S2[a1, a4, SP[a2, a6], a5, a3, n] + S2[a4, n]*S2[a1, a6, a2, a3, a5, n] + 
    S2[a1, a6, a2, a3, SP[a4, a5], n] - S2[a3, n]*S2[a1, a6, a2, a4, a5, n] - 
    S2[a1, a6, a2, a4, SP[a3, a5], n] + S2[a4, n]*S2[a1, a6, a2, a5, a3, n] - 
    S2[a3, n]*S2[a1, a6, a2, a5, a4, n] - S2[a1, a6, a2, SP[a3, a5], a4, n] + 
    S2[a1, a6, a2, SP[a4, a5], a3, n] + S2[a4, n]*S2[a1, a6, a3, a2, a5, n] + 
    S2[a1, a6, a3, a2, SP[a4, a5], n] + S2[a4, n]*S2[a1, a6, a3, a5, a2, n] + 
    S2[a1, a6, a3, a5, SP[a2, a4], n] + S2[a1, a6, a3, SP[a2, a4], a5, n] + 
    S2[a1, a6, a3, SP[a4, a5], a2, n] - S2[a3, n]*S2[a1, a6, a4, a2, a5, n] - 
    S2[a1, a6, a4, a2, SP[a3, a5], n] - S2[a3, n]*S2[a1, a6, a4, a5, a2, n] - 
    S2[a1, a6, a4, a5, SP[a2, a3], n] - S2[a1, a6, a4, SP[a2, a3], a5, n] - 
    S2[a1, a6, a4, SP[a3, a5], a2, n] + S2[a4, n]*S2[a1, a6, a5, a2, a3, n] - 
    S2[a3, n]*S2[a1, a6, a5, a2, a4, n] + 
    S2[a4, n]*S2[a1, a6, a5, a3, a2, n] + S2[a1, a6, a5, a3, SP[a2, a4], n] - 
    S2[a3, n]*S2[a1, a6, a5, a4, a2, n] - S2[a1, a6, a5, a4, SP[a2, a3], n] - 
    S2[a1, a6, a5, SP[a2, a3], a4, n] + S2[a1, a6, a5, SP[a2, a4], a3, n] - 
    S2[a1, a6, SP[a2, a3], a4, a5, n] - S2[a1, a6, SP[a2, a3], a5, a4, n] + 
    S2[a1, a6, SP[a2, a4], a3, a5, n] + S2[a1, a6, SP[a2, a4], a5, a3, n] - 
    S2[a1, a6, SP[a3, a5], a2, a4, n] - S2[a1, a6, SP[a3, a5], a4, a2, n] + 
    S2[a1, a6, SP[a4, a5], a2, a3, n] + S2[a1, a6, SP[a4, a5], a3, a2, n] + 
    S2[a1, SP[a2, a3], a5, a6, a4, n] - S2[a1, SP[a3, a6], a2, a4, a5, n] - 
    S2[a1, SP[a3, a6], a2, a5, a4, n] - S2[a1, SP[a3, a6], a4, a2, a5, n] - 
    S2[a1, SP[a3, a6], a4, a5, a2, n] - S2[a1, SP[a3, a6], a5, a2, a4, n] - 
    S2[a1, SP[a3, a6], a5, a4, a2, n] + S2[a1, SP[a4, a6], a2, a3, a5, n] + 
    S2[a1, SP[a4, a6], a2, a5, a3, n] + S2[a1, SP[a4, a6], a3, a2, a5, n] + 
    S2[a1, SP[a4, a6], a3, a5, a2, n] + S2[a1, SP[a4, a6], a5, a2, a3, n] + 
    S2[a1, SP[a4, a6], a5, a3, a2, n] + S2[a3, a1, a6, a4, SP[a2, a5], n] + 
    S2[a3, a1, a6, a5, SP[a2, a4], n] + S2[a3, a1, a6, SP[a2, a4], a5, n] + 
    S2[a3, a1, a6, SP[a2, a5], a4, n] + S2[a3, a1, SP[a2, a6], a4, a5, n] + 
    S2[a3, a1, SP[a2, a6], a5, a4, n] - S2[a4, n]*S2[a3, a6, a1, a2, a5, n] - 
    S2[a3, a6, a1, a2, SP[a4, a5], n] + S2[a3, a6, a1, a4, SP[a2, a5], n] - 
    S2[a4, n]*S2[a3, a6, a1, a5, a2, n] + S2[a3, a6, a1, SP[a2, a5], a4, n] - 
    S2[a3, a6, a1, SP[a4, a5], a2, n] + S2[a3, a6, a4, a1, SP[a2, a5], n] + 
    S2[a3, a6, a4, SP[a1, a5], a2, n] + S2[a3, a6, a5, a1, SP[a2, a4], n] + 
    S2[a3, a6, a5, SP[a1, a4], a2, n] + S2[a3, a6, SP[a1, a5], a2, a4, n] + 
    S2[a3, a6, SP[a1, a5], a4, a2, n] + S2[a3, SP[a1, a6], a2, a4, a5, n] + 
    S2[a3, SP[a1, a6], a2, a5, a4, n] + S2[a3, SP[a1, a6], a4, a2, a5, n] + 
    S2[a3, SP[a1, a6], a4, a5, a2, n] + S2[a3, SP[a1, a6], a5, a2, a4, n] + 
    S2[a3, SP[a1, a6], a5, a4, a2, n] - S2[a3, SP[a4, a6], a1, a2, a5, n] - 
    S2[a3, SP[a4, a6], a1, a5, a2, n] + S2[a4, a1, a2, a3, SP[a5, a6], n] - 
    S2[a4, a1, a2, a6, SP[a3, a5], n] + S2[a4, a1, a3, a2, SP[a5, a6], n] + 
    S2[a4, a1, a3, a5, SP[a2, a6], n] - S2[a4, a1, a3, a6, SP[a2, a5], n] + 
    S2[a4, a1, a3, SP[a5, a6], a2, n] - S2[a4, a1, a6, a2, SP[a3, a5], n] - 
    2*S2[a4, a1, a6, a3, SP[a2, a5], n] - S2[a4, a1, a6, SP[a2, a3], a5, n] - 
    S2[a4, a1, a6, SP[a2, a5], a3, n] - S2[a4, a1, a6, SP[a3, a5], a2, n] - 
    S2[a4, a1, SP[a2, a6], a3, a5, n] - S2[a4, a1, SP[a2, a6], a5, a3, n] + 
    S2[a3, n]*S2[a4, a6, a1, a2, a5, n] - 
    2*S2[a4, a6, a1, a3, SP[a2, a5], n] + 
    S2[a3, n]*S2[a4, a6, a1, a5, a2, n] + S2[a4, a6, a1, a5, SP[a2, a3], n] - 
    S2[a4, a6, a1, SP[a2, a5], a3, n] - S2[a4, a6, a3, a1, SP[a2, a5], n] - 
    S2[a4, a6, a3, SP[a1, a5], a2, n] - S2[a4, a6, SP[a1, a5], a2, a3, n] - 
    S2[a4, a6, SP[a1, a5], a3, a2, n] - S2[a4, SP[a1, a6], a2, a3, a5, n] - 
    S2[a4, SP[a1, a6], a2, a5, a3, n] - S2[a4, SP[a1, a6], a3, a2, a5, n] - 
    S2[a4, SP[a1, a6], a3, a5, a2, n] - S2[a4, SP[a1, a6], a5, a2, a3, n] - 
    S2[a4, SP[a1, a6], a5, a3, a2, n] + S2[a4, SP[a3, a6], a1, a2, a5, n] + 
    S2[a4, SP[a3, a6], a1, a5, a2, n] + S2[a4, n]*S2[a6, a3, a5, a1, a2, n] + 
    S2[a6, a3, a5, a1, SP[a2, a4], n] + S2[a6, a3, a5, SP[a1, a4], a2, n] + 
    S2[a6, a3, SP[a4, a5], a1, a2, n] - S2[a3, n]*S2[a6, a4, a5, a1, a2, n] - 
    S2[a6, a4, a5, a1, SP[a2, a3], n] - S2[a6, a4, a5, SP[a1, a3], a2, n] - 
    S2[a6, a4, SP[a3, a5], a1, a2, n] + S2[a4, n]*S2[a6, a5, a1, a2, a3, n] - 
    S2[a3, n]*S2[a6, a5, a1, a2, a4, n] + 
    S2[a4, n]*S2[a6, a5, a1, a3, a2, n] + S2[a6, a5, a1, a3, SP[a2, a4], n] - 
    S2[a3, n]*S2[a6, a5, a1, a4, a2, n] - S2[a6, a5, a1, a4, SP[a2, a3], n] - 
    S2[a6, a5, a1, SP[a2, a3], a4, n] + S2[a6, a5, a1, SP[a2, a4], a3, n] - 
    S2[a3, n]*S2[a6, a5, a4, a1, a2, n] - S2[a6, a5, a4, a1, SP[a2, a3], n] - 
    S2[a6, a5, a4, SP[a1, a3], a2, n] - S2[a6, a5, SP[a1, a3], a2, a4, n] - 
    S2[a6, a5, SP[a1, a3], a4, a2, n] + S2[a6, a5, SP[a1, a4], a2, a3, n] + 
    S2[a6, a5, SP[a1, a4], a3, a2, n] - S2[a6, a5, SP[a3, a4], a1, a2, n] - 
    S2[a6, SP[a3, a5], a1, a2, a4, n] - S2[a6, SP[a3, a5], a1, a4, a2, n] - 
    S2[a6, SP[a3, a5], a4, a1, a2, n] + S2[a6, SP[a4, a5], a1, a2, a3, n] + 
    S2[a6, SP[a4, a5], a1, a3, a2, n] + S2[SP[a1, a2], a3, a5, a6, a4, n] - 
    S2[SP[a3, a6], a4, a5, a1, a2, n] - S2[SP[a3, a6], a5, a1, a2, a4, n] - 
    S2[SP[a3, a6], a5, a1, a4, a2, n] - S2[SP[a3, a6], a5, a4, a1, a2, n] + 
    S2[SP[a4, a6], a3, a5, a1, a2, n] + S2[SP[a4, a6], a5, a1, a2, a3, n] + 
    S2[SP[a4, a6], a5, a1, a3, a2, n] + S2[a6, a4, a5, a3, a1, a2, n] + 
    S2[a6, a5, a3, a1, a2, a4, n] + S2[a6, a5, a3, a1, a4, a2, n] + 
    S2[a6, a5, a3, a4, a1, a2, n] + S2[a6, a5, a4, a3, a1, a2, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a2_, a1_, a3_, a6_, a4_, a5_, n_] :> 
  S2[a1, a2, a3, n]*S2[a4, a5, a6, n] + S2[a1, a3, a2, n]*S2[a4, a5, a6, n] + 
    S2[a1, a2, a3, n]*S2[a4, a6, a5, n] + S2[a1, a3, a2, n]*
     S2[a4, a6, a5, n] + S2[SP[a1, a4], SP[a2, a5], SP[a3, a6], n] + 
    S2[SP[a1, a4], SP[a2, a6], SP[a3, a5], n] + S2[SP[a1, a4], SP[a3, a5], 
     SP[a2, a6], n] + S2[SP[a1, a4], SP[a3, a6], SP[a2, a5], n] - 
    S2[a1, a4, SP[a2, a5], SP[a3, a6], n] - S2[a1, a4, SP[a2, a6], 
     SP[a3, a5], n] - S2[a1, a4, SP[a3, a5], SP[a2, a6], n] - 
    S2[a1, a4, SP[a3, a6], SP[a2, a5], n] - S2[a1, SP[a2, a4], a5, 
     SP[a3, a6], n] - S2[a1, SP[a2, a4], a6, SP[a3, a5], n] - 
    S2[a1, SP[a2, a4], SP[a3, a5], a6, n] - S2[a1, SP[a2, a4], SP[a3, a6], 
     a5, n] - S2[a1, SP[a3, a4], a5, SP[a2, a6], n] - 
    S2[a1, SP[a3, a4], a6, SP[a2, a5], n] - S2[a1, SP[a3, a4], SP[a2, a5], 
     a6, n] - S2[a1, SP[a3, a4], SP[a2, a6], a5, n] - 
    S2[a1, a2, n]*S2[a3, a6, a4, a5, n] + S2[a3, a6, SP[a1, a4], SP[a2, a5], 
     n] + S2[a3, SP[a1, a6], a4, SP[a2, a5], n] + 
    S2[a3, SP[a1, a6], SP[a2, a4], a5, n] - S2[a4, a1, SP[a2, a5], 
     SP[a3, a6], n] - S2[a4, a1, SP[a2, a6], SP[a3, a5], n] - 
    S2[a4, a1, SP[a3, a5], SP[a2, a6], n] - S2[a4, a1, SP[a3, a6], 
     SP[a2, a5], n] - S2[a4, SP[a1, a5], a2, SP[a3, a6], n] - 
    S2[a4, SP[a1, a5], a3, SP[a2, a6], n] - S2[a4, SP[a1, a5], SP[a2, a6], 
     a3, n] - S2[a4, SP[a1, a5], SP[a3, a6], a2, n] - 
    S2[a4, SP[a1, a6], a2, SP[a3, a5], n] - S2[a4, SP[a1, a6], a3, 
     SP[a2, a5], n] - S2[a4, SP[a1, a6], SP[a2, a5], a3, n] - 
    S2[a4, SP[a1, a6], SP[a3, a5], a2, n] + S2[SP[a1, a3], a6, a4, 
     SP[a2, a5], n] + S2[SP[a1, a3], a6, SP[a2, a4], a5, n] + 
    S2[SP[a1, a3], SP[a2, a6], a4, a5, n] - S2[SP[a1, a4], a2, a5, 
     SP[a3, a6], n] - S2[SP[a1, a4], a2, a6, SP[a3, a5], n] - 
    S2[SP[a1, a4], a2, SP[a3, a5], a6, n] - S2[SP[a1, a4], a2, SP[a3, a6], 
     a5, n] - S2[SP[a1, a4], a3, a5, SP[a2, a6], n] - 
    S2[SP[a1, a4], a3, a6, SP[a2, a5], n] - S2[SP[a1, a4], a3, SP[a2, a5], 
     a6, n] - S2[SP[a1, a4], a3, SP[a2, a6], a5, n] - 
    S2[SP[a1, a4], a5, a2, SP[a3, a6], n] - S2[SP[a1, a4], a5, a3, 
     SP[a2, a6], n] - S2[SP[a1, a4], a5, SP[a2, a6], a3, n] - 
    S2[SP[a1, a4], a5, SP[a3, a6], a2, n] - S2[SP[a1, a4], a6, a2, 
     SP[a3, a5], n] - S2[SP[a1, a4], a6, a3, SP[a2, a5], n] - 
    S2[SP[a1, a4], a6, SP[a2, a5], a3, n] - S2[SP[a1, a4], a6, SP[a3, a5], 
     a2, n] - S2[SP[a1, a4], SP[a2, a5], a3, a6, n] - 
    S2[SP[a1, a4], SP[a2, a5], a6, a3, n] - S2[SP[a1, a4], SP[a2, a6], a3, 
     a5, n] - S2[SP[a1, a4], SP[a2, a6], a5, a3, n] - 
    S2[SP[a1, a4], SP[a3, a5], a2, a6, n] - S2[SP[a1, a4], SP[a3, a5], a6, 
     a2, n] - S2[SP[a1, a4], SP[a3, a6], a2, a5, n] - 
    S2[SP[a1, a4], SP[a3, a6], a5, a2, n] + 
    S2[a6, n]*S2[a1, a2, a3, a5, a4, n] - 
    S2[a4, n]*S2[a1, a2, a3, a5, a6, n] - 
    S2[a4, n]*S2[a1, a2, a3, a6, a5, n] - S2[a1, a2, a3, a6, SP[a4, a5], n] - 
    S2[a1, a2, a3, SP[a4, a5], a6, n] - S2[a1, a2, a3, SP[a4, a6], a5, n] + 
    S2[a1, a2, a3, SP[a5, a6], a4, n] + S2[a1, a2, a4, a5, SP[a3, a6], n] + 
    S2[a1, a2, a4, a6, SP[a3, a5], n] + S2[a1, a2, a4, SP[a3, a5], a6, n] + 
    S2[a1, a2, a4, SP[a3, a6], a5, n] + S2[a6, n]*S2[a1, a2, a5, a3, a4, n] - 
    S2[a4, n]*S2[a1, a2, a5, a3, a6, n] + 
    S2[a6, n]*S2[a1, a2, a5, a4, a3, n] + S2[a1, a2, a5, a4, SP[a3, a6], n] - 
    S2[a4, n]*S2[a1, a2, a5, a6, a3, n] - S2[a1, a2, a5, a6, SP[a3, a4], n] - 
    S2[a1, a2, a5, SP[a3, a4], a6, n] + S2[a1, a2, a5, SP[a3, a6], a4, n] - 
    S2[a4, n]*S2[a1, a2, a6, a3, a5, n] - S2[a1, a2, a6, a3, SP[a4, a5], n] + 
    S2[a3, n]*S2[a1, a2, a6, a4, a5, n] + S2[a1, a2, a6, a4, SP[a3, a5], n] - 
    S2[a4, n]*S2[a1, a2, a6, a5, a3, n] - S2[a1, a2, a6, a5, SP[a3, a4], n] - 
    S2[a1, a2, a6, SP[a4, a5], a3, n] + S2[a1, a2, SP[a3, a6], a4, a5, n] + 
    S2[a1, a2, SP[a3, a6], a5, a4, n] - S2[a1, a2, SP[a4, a5], a3, a6, n] - 
    S2[a1, a2, SP[a4, a5], a6, a3, n] - S2[a1, a2, SP[a4, a6], a3, a5, n] - 
    S2[a1, a2, SP[a4, a6], a5, a3, n] + S2[a1, a2, SP[a5, a6], a3, a4, n] + 
    S2[a1, a2, SP[a5, a6], a4, a3, n] + S2[a6, n]*S2[a1, a3, a2, a5, a4, n] - 
    S2[a4, n]*S2[a1, a3, a2, a5, a6, n] - 
    S2[a4, n]*S2[a1, a3, a2, a6, a5, n] - S2[a1, a3, a2, a6, SP[a4, a5], n] - 
    S2[a1, a3, a2, SP[a4, a5], a6, n] - S2[a1, a3, a2, SP[a4, a6], a5, n] + 
    S2[a1, a3, a2, SP[a5, a6], a4, n] + S2[a1, a3, a4, a5, SP[a2, a6], n] + 
    S2[a1, a3, a4, a6, SP[a2, a5], n] + S2[a1, a3, a4, SP[a2, a5], a6, n] + 
    S2[a1, a3, a4, SP[a2, a6], a5, n] + S2[a6, n]*S2[a1, a3, a5, a2, a4, n] - 
    S2[a4, n]*S2[a1, a3, a5, a2, a6, n] + 
    S2[a6, n]*S2[a1, a3, a5, a4, a2, n] + S2[a1, a3, a5, a4, SP[a2, a6], n] - 
    S2[a4, n]*S2[a1, a3, a5, a6, a2, n] - S2[a1, a3, a5, a6, SP[a2, a4], n] - 
    S2[a1, a3, a5, SP[a2, a4], a6, n] + S2[a1, a3, a5, SP[a2, a6], a4, n] - 
    S2[a4, n]*S2[a1, a3, a6, a2, a5, n] - S2[a1, a3, a6, a2, SP[a4, a5], n] + 
    S2[a2, n]*S2[a1, a3, a6, a4, a5, n] - 
    S2[a4, n]*S2[a1, a3, a6, a5, a2, n] - S2[a1, a3, a6, a5, SP[a2, a4], n] - 
    S2[a1, a3, a6, SP[a2, a4], a5, n] - S2[a1, a3, a6, SP[a4, a5], a2, n] + 
    S2[a1, a3, SP[a2, a6], a5, a4, n] - S2[a1, a3, SP[a4, a5], a2, a6, n] - 
    S2[a1, a3, SP[a4, a5], a6, a2, n] - S2[a1, a3, SP[a4, a6], a2, a5, n] - 
    S2[a1, a3, SP[a4, a6], a5, a2, n] + S2[a1, a3, SP[a5, a6], a2, a4, n] + 
    S2[a1, a3, SP[a5, a6], a4, a2, n] + S2[a1, a4, a2, a5, SP[a3, a6], n] + 
    S2[a1, a4, a2, a6, SP[a3, a5], n] + S2[a1, a4, a2, SP[a3, a5], a6, n] + 
    S2[a1, a4, a2, SP[a3, a6], a5, n] + S2[a1, a4, a3, a5, SP[a2, a6], n] + 
    S2[a1, a4, a3, a6, SP[a2, a5], n] + S2[a1, a4, a3, SP[a2, a5], a6, n] + 
    S2[a1, a4, a3, SP[a2, a6], a5, n] + S2[a1, a4, a5, a2, SP[a3, a6], n] + 
    S2[a1, a4, a5, a3, SP[a2, a6], n] + S2[a1, a4, a5, SP[a2, a6], a3, n] + 
    S2[a1, a4, a5, SP[a3, a6], a2, n] + S2[a1, a4, a6, a2, SP[a3, a5], n] + 
    S2[a1, a4, a6, a3, SP[a2, a5], n] + S2[a1, a4, a6, SP[a2, a5], a3, n] + 
    S2[a1, a4, a6, SP[a3, a5], a2, n] + S2[a1, a4, SP[a2, a5], a3, a6, n] + 
    S2[a1, a4, SP[a2, a5], a6, a3, n] + S2[a1, a4, SP[a2, a6], a3, a5, n] + 
    S2[a1, a4, SP[a2, a6], a5, a3, n] + S2[a1, a4, SP[a3, a5], a2, a6, n] + 
    S2[a1, a4, SP[a3, a5], a6, a2, n] + S2[a1, a4, SP[a3, a6], a2, a5, n] + 
    S2[a1, a4, SP[a3, a6], a5, a2, n] + S2[a6, n]*S2[a1, a5, a2, a3, a4, n] - 
    S2[a4, n]*S2[a1, a5, a2, a3, a6, n] + 
    S2[a6, n]*S2[a1, a5, a2, a4, a3, n] + S2[a1, a5, a2, a4, SP[a3, a6], n] - 
    S2[a4, n]*S2[a1, a5, a2, a6, a3, n] - S2[a1, a5, a2, a6, SP[a3, a4], n] - 
    S2[a1, a5, a2, SP[a3, a4], a6, n] + S2[a1, a5, a2, SP[a3, a6], a4, n] + 
    S2[a6, n]*S2[a1, a5, a3, a2, a4, n] - 
    S2[a4, n]*S2[a1, a5, a3, a2, a6, n] + 
    S2[a6, n]*S2[a1, a5, a3, a4, a2, n] + S2[a1, a5, a3, a4, SP[a2, a6], n] - 
    S2[a4, n]*S2[a1, a5, a3, a6, a2, n] - S2[a1, a5, a3, a6, SP[a2, a4], n] - 
    S2[a1, a5, a3, SP[a2, a4], a6, n] + S2[a1, a5, a3, SP[a2, a6], a4, n] + 
    S2[a6, n]*S2[a1, a5, a4, a2, a3, n] + S2[a1, a5, a4, a2, SP[a3, a6], n] + 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] + S2[a1, a5, a4, a3, SP[a2, a6], n] + 
    S2[a1, a5, a4, SP[a2, a6], a3, n] + S2[a1, a5, a4, SP[a3, a6], a2, n] - 
    S2[a4, n]*S2[a1, a5, a6, a2, a3, n] - S2[a1, a5, a6, a2, SP[a3, a4], n] - 
    S2[a4, n]*S2[a1, a5, a6, a3, a2, n] - S2[a1, a5, a6, a3, SP[a2, a4], n] - 
    S2[a1, a5, a6, SP[a2, a4], a3, n] - S2[a1, a5, a6, SP[a3, a4], a2, n] - 
    S2[a1, a5, SP[a2, a4], a3, a6, n] - S2[a1, a5, SP[a2, a4], a6, a3, n] + 
    S2[a1, a5, SP[a2, a6], a3, a4, n] + S2[a1, a5, SP[a2, a6], a4, a3, n] - 
    S2[a1, a5, SP[a3, a4], a2, a6, n] - S2[a1, a5, SP[a3, a4], a6, a2, n] + 
    S2[a1, a5, SP[a3, a6], a2, a4, n] + S2[a1, a5, SP[a3, a6], a4, a2, n] - 
    S2[a4, n]*S2[a1, a6, a2, a3, a5, n] - S2[a1, a6, a2, a3, SP[a4, a5], n] + 
    S2[a3, n]*S2[a1, a6, a2, a4, a5, n] + S2[a1, a6, a2, a4, SP[a3, a5], n] - 
    S2[a4, n]*S2[a1, a6, a2, a5, a3, n] - S2[a1, a6, a2, a5, SP[a3, a4], n] - 
    S2[a1, a6, a2, SP[a4, a5], a3, n] - S2[a4, n]*S2[a1, a6, a3, a2, a5, n] - 
    S2[a1, a6, a3, a2, SP[a4, a5], n] - S2[a4, n]*S2[a1, a6, a3, a5, a2, n] - 
    S2[a1, a6, a3, a5, SP[a2, a4], n] - S2[a1, a6, a3, SP[a2, a4], a5, n] - 
    S2[a1, a6, a3, SP[a4, a5], a2, n] + S2[a3, n]*S2[a1, a6, a4, a2, a5, n] + 
    S2[a1, a6, a4, a2, SP[a3, a5], n] + S2[a3, n]*S2[a1, a6, a4, a5, a2, n] + 
    S2[a1, a6, a4, a5, SP[a2, a3], n] + S2[a1, a6, a4, SP[a2, a3], a5, n] + 
    S2[a1, a6, a4, SP[a3, a5], a2, n] - S2[a4, n]*S2[a1, a6, a5, a2, a3, n] - 
    S2[a1, a6, a5, a2, SP[a3, a4], n] - S2[a4, n]*S2[a1, a6, a5, a3, a2, n] - 
    S2[a1, a6, a5, a3, SP[a2, a4], n] - S2[a1, a6, a5, SP[a2, a4], a3, n] - 
    S2[a1, a6, a5, SP[a3, a4], a2, n] + S2[a1, a6, SP[a2, a3], a4, a5, n] - 
    S2[a1, a6, SP[a2, a4], a3, a5, n] - S2[a1, a6, SP[a2, a4], a5, a3, n] - 
    S2[a1, a6, SP[a4, a5], a2, a3, n] - S2[a1, a6, SP[a4, a5], a3, a2, n] + 
    S2[a1, SP[a2, a3], a6, a4, a5, n] + S2[a1, SP[a2, a6], a3, a5, a4, n] + 
    S2[a1, SP[a2, a6], a5, a3, a4, n] + S2[a1, SP[a2, a6], a5, a4, a3, n] + 
    S2[a1, SP[a3, a6], a2, a4, a5, n] + S2[a1, SP[a3, a6], a2, a5, a4, n] + 
    S2[a1, SP[a3, a6], a4, a2, a5, n] + S2[a1, SP[a3, a6], a4, a5, a2, n] + 
    S2[a1, SP[a3, a6], a5, a2, a4, n] + S2[a1, SP[a3, a6], a5, a4, a2, n] - 
    S2[a1, SP[a4, a5], a2, a3, a6, n] - S2[a1, SP[a4, a5], a2, a6, a3, n] - 
    S2[a1, SP[a4, a5], a3, a2, a6, n] - S2[a1, SP[a4, a5], a3, a6, a2, n] - 
    S2[a1, SP[a4, a5], a6, a2, a3, n] - S2[a1, SP[a4, a5], a6, a3, a2, n] - 
    S2[a1, SP[a4, a6], a2, a3, a5, n] - S2[a1, SP[a4, a6], a2, a5, a3, n] - 
    S2[a1, SP[a4, a6], a3, a2, a5, n] - S2[a1, SP[a4, a6], a3, a5, a2, n] - 
    S2[a1, SP[a4, a6], a5, a2, a3, n] - S2[a1, SP[a4, a6], a5, a3, a2, n] + 
    S2[a1, SP[a5, a6], a2, a3, a4, n] + S2[a1, SP[a5, a6], a2, a4, a3, n] + 
    S2[a1, SP[a5, a6], a3, a2, a4, n] + S2[a1, SP[a5, a6], a3, a4, a2, n] + 
    S2[a1, SP[a5, a6], a4, a2, a3, n] + S2[a1, SP[a5, a6], a4, a3, a2, n] - 
    S2[a3, a1, a6, a4, SP[a2, a5], n] - S2[a3, a1, a6, SP[a2, a4], a5, n] - 
    S2[a3, a1, SP[a2, a6], a4, a5, n] - S2[a3, a6, a1, a4, SP[a2, a5], n] - 
    S2[a3, a6, a1, SP[a2, a4], a5, n] - S2[a3, a6, a4, a1, SP[a2, a5], n] - 
    S2[a3, a6, a4, SP[a1, a5], a2, n] - S2[a3, a6, SP[a1, a4], a2, a5, n] - 
    S2[a3, a6, SP[a1, a4], a5, a2, n] - S2[a3, SP[a1, a6], a2, a4, a5, n] - 
    S2[a3, SP[a1, a6], a4, a2, a5, n] - S2[a3, SP[a1, a6], a4, a5, a2, n] + 
    S2[a4, a1, a2, a5, SP[a3, a6], n] + S2[a4, a1, a2, a6, SP[a3, a5], n] + 
    S2[a4, a1, a2, SP[a3, a5], a6, n] + S2[a4, a1, a2, SP[a3, a6], a5, n] + 
    S2[a4, a1, a3, a5, SP[a2, a6], n] + S2[a4, a1, a3, a6, SP[a2, a5], n] + 
    S2[a4, a1, a3, SP[a2, a5], a6, n] + S2[a4, a1, a3, SP[a2, a6], a5, n] + 
    S2[a4, a1, a5, a2, SP[a3, a6], n] + S2[a4, a1, a5, a3, SP[a2, a6], n] + 
    S2[a4, a1, a5, SP[a2, a6], a3, n] + S2[a4, a1, a5, SP[a3, a6], a2, n] + 
    S2[a4, a1, a6, a2, SP[a3, a5], n] + S2[a4, a1, a6, a3, SP[a2, a5], n] + 
    S2[a4, a1, a6, SP[a2, a5], a3, n] + S2[a4, a1, a6, SP[a3, a5], a2, n] + 
    S2[a4, a1, SP[a2, a5], a3, a6, n] + S2[a4, a1, SP[a2, a5], a6, a3, n] + 
    S2[a4, a1, SP[a2, a6], a3, a5, n] + S2[a4, a1, SP[a2, a6], a5, a3, n] + 
    S2[a4, a1, SP[a3, a5], a2, a6, n] + S2[a4, a1, SP[a3, a5], a6, a2, n] + 
    S2[a4, a1, SP[a3, a6], a2, a5, n] + S2[a4, a1, SP[a3, a6], a5, a2, n] - 
    S2[a6, n]*S2[a4, a5, a1, a2, a3, n] - 
    S2[a6, n]*S2[a4, a5, a1, a3, a2, n] + S2[a4, a6, a1, a2, SP[a3, a5], n] + 
    S2[a4, a6, a1, a3, SP[a2, a5], n] + S2[a4, a6, a1, SP[a2, a5], a3, n] + 
    S2[a4, a6, a1, SP[a3, a5], a2, n] + S2[a4, a6, SP[a1, a5], a2, a3, n] + 
    S2[a4, a6, SP[a1, a5], a3, a2, n] + S2[a4, SP[a1, a5], a2, a3, a6, n] + 
    S2[a4, SP[a1, a5], a2, a6, a3, n] + S2[a4, SP[a1, a5], a3, a2, a6, n] + 
    S2[a4, SP[a1, a5], a3, a6, a2, n] + S2[a4, SP[a1, a5], a6, a2, a3, n] + 
    S2[a4, SP[a1, a5], a6, a3, a2, n] + S2[a4, SP[a1, a6], a2, a3, a5, n] + 
    S2[a4, SP[a1, a6], a2, a5, a3, n] + S2[a4, SP[a1, a6], a3, a2, a5, n] + 
    S2[a4, SP[a1, a6], a3, a5, a2, n] + S2[a4, SP[a1, a6], a5, a2, a3, n] + 
    S2[a4, SP[a1, a6], a5, a3, a2, n] - S2[a4, SP[a5, a6], a1, a2, a3, n] - 
    S2[a4, SP[a5, a6], a1, a3, a2, n] - S2[a4, n]*S2[a6, a1, a2, a3, a5, n] - 
    S2[a6, a1, a2, a3, SP[a4, a5], n] + S2[a3, n]*S2[a6, a1, a2, a4, a5, n] + 
    S2[a6, a1, a2, a4, SP[a3, a5], n] - S2[a4, n]*S2[a6, a1, a2, a5, a3, n] - 
    S2[a6, a1, a2, a5, SP[a3, a4], n] - S2[a6, a1, a2, SP[a4, a5], a3, n] - 
    S2[a4, n]*S2[a6, a1, a3, a2, a5, n] - S2[a6, a1, a3, a2, SP[a4, a5], n] - 
    S2[a4, n]*S2[a6, a1, a3, a5, a2, n] - S2[a6, a1, a3, a5, SP[a2, a4], n] - 
    S2[a6, a1, a3, SP[a2, a4], a5, n] - S2[a6, a1, a3, SP[a4, a5], a2, n] + 
    S2[a3, n]*S2[a6, a1, a4, a2, a5, n] + S2[a6, a1, a4, a2, SP[a3, a5], n] + 
    S2[a3, n]*S2[a6, a1, a4, a5, a2, n] + S2[a6, a1, a4, a5, SP[a2, a3], n] + 
    S2[a6, a1, a4, SP[a2, a3], a5, n] + S2[a6, a1, a4, SP[a3, a5], a2, n] - 
    S2[a4, n]*S2[a6, a1, a5, a2, a3, n] - S2[a6, a1, a5, a2, SP[a3, a4], n] - 
    S2[a4, n]*S2[a6, a1, a5, a3, a2, n] - S2[a6, a1, a5, a3, SP[a2, a4], n] - 
    S2[a6, a1, a5, SP[a2, a4], a3, n] - S2[a6, a1, a5, SP[a3, a4], a2, n] + 
    S2[a6, a1, SP[a2, a3], a4, a5, n] - S2[a6, a1, SP[a2, a4], a3, a5, n] - 
    S2[a6, a1, SP[a2, a4], a5, a3, n] - S2[a6, a1, SP[a4, a5], a2, a3, n] - 
    S2[a6, a1, SP[a4, a5], a3, a2, n] + S2[a3, n]*S2[a6, a4, a1, a2, a5, n] + 
    S2[a6, a4, a1, a2, SP[a3, a5], n] + S2[a3, n]*S2[a6, a4, a1, a5, a2, n] + 
    S2[a6, a4, a1, a5, SP[a2, a3], n] + S2[a6, a4, a1, SP[a2, a3], a5, n] + 
    S2[a6, a4, a1, SP[a3, a5], a2, n] + S2[a3, n]*S2[a6, a4, a5, a1, a2, n] + 
    S2[a6, a4, a5, a1, SP[a2, a3], n] + S2[a6, a4, a5, SP[a1, a3], a2, n] + 
    S2[a6, a4, SP[a1, a3], a2, a5, n] + S2[a6, a4, SP[a1, a3], a5, a2, n] + 
    S2[a6, a4, SP[a3, a5], a1, a2, n] + S2[a6, SP[a1, a3], a2, a4, a5, n] + 
    S2[a6, SP[a1, a3], a4, a2, a5, n] + S2[a6, SP[a1, a3], a4, a5, a2, n] - 
    S2[a6, SP[a1, a4], a2, a3, a5, n] - S2[a6, SP[a1, a4], a2, a5, a3, n] - 
    S2[a6, SP[a1, a4], a3, a2, a5, n] - S2[a6, SP[a1, a4], a3, a5, a2, n] - 
    S2[a6, SP[a1, a4], a5, a2, a3, n] - S2[a6, SP[a1, a4], a5, a3, a2, n] + 
    S2[a6, SP[a3, a4], a1, a2, a5, n] + S2[a6, SP[a3, a4], a1, a5, a2, n] + 
    S2[a6, SP[a3, a4], a5, a1, a2, n] + S2[SP[a1, a2], a3, a6, a4, a5, n] + 
    S2[SP[a1, a6], a2, a3, a5, a4, n] + S2[SP[a1, a6], a2, a5, a3, a4, n] + 
    S2[SP[a1, a6], a2, a5, a4, a3, n] + S2[SP[a1, a6], a3, a2, a5, a4, n] + 
    S2[SP[a1, a6], a3, a5, a2, a4, n] + S2[SP[a1, a6], a3, a5, a4, a2, n] + 
    S2[SP[a1, a6], a5, a2, a3, a4, n] + S2[SP[a1, a6], a5, a2, a4, a3, n] + 
    S2[SP[a1, a6], a5, a3, a2, a4, n] + S2[SP[a1, a6], a5, a3, a4, a2, n] + 
    S2[SP[a1, a6], a5, a4, a2, a3, n] + S2[SP[a1, a6], a5, a4, a3, a2, n] + 
    S2[SP[a3, a6], a1, a2, a4, a5, n] + S2[SP[a3, a6], a1, a4, a2, a5, n] + 
    S2[SP[a3, a6], a1, a4, a5, a2, n] + S2[SP[a3, a6], a4, a1, a2, a5, n] + 
    S2[SP[a3, a6], a4, a1, a5, a2, n] + S2[SP[a3, a6], a4, a5, a1, a2, n] - 
    S2[SP[a4, a6], a1, a2, a3, a5, n] - S2[SP[a4, a6], a1, a2, a5, a3, n] - 
    S2[SP[a4, a6], a1, a3, a2, a5, n] - S2[SP[a4, a6], a1, a3, a5, a2, n] - 
    S2[SP[a4, a6], a1, a5, a2, a3, n] - S2[SP[a4, a6], a1, a5, a3, a2, n] - 
    S2[SP[a4, a6], a5, a1, a2, a3, n] - S2[SP[a4, a6], a5, a1, a3, a2, n] - 
    S2[a6, a3, a1, a2, a4, a5, n] - S2[a6, a3, a1, a4, a2, a5, n] - 
    S2[a6, a3, a1, a4, a5, a2, n] - S2[a6, a3, a4, a1, a2, a5, n] - 
    S2[a6, a3, a4, a1, a5, a2, n] - S2[a6, a3, a4, a5, a1, a2, n] - 
    S2[a6, a4, a3, a1, a2, a5, n] - S2[a6, a4, a3, a1, a5, a2, n] - 
    S2[a6, a4, a3, a5, a1, a2, n] - S2[a6, a4, a5, a3, a1, a2, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a2_, a1_, a3_, a6_, a5_, a4_, n_] :> 
  -(S2[a1, a2, a3, n]*S2[a4, a5, a6, n]) - S2[a1, a3, a2, n]*
     S2[a4, a5, a6, n] - S2[SP[a1, a4], SP[a2, a5], SP[a3, a6], n] - 
    S2[SP[a1, a4], SP[a3, a5], SP[a2, a6], n] + S2[a1, a4, SP[a2, a5], 
     SP[a3, a6], n] + S2[a1, a4, SP[a3, a5], SP[a2, a6], n] + 
    S2[a1, SP[a2, a4], a5, SP[a3, a6], n] + S2[a1, SP[a2, a4], SP[a3, a5], 
     a6, n] + S2[a1, SP[a3, a4], a5, SP[a2, a6], n] + 
    S2[a1, SP[a3, a4], SP[a2, a5], a6, n] - S2[a1, a2, n]*
     S2[a3, a6, a5, a4, n] + S2[a3, a6, SP[a1, a5], SP[a2, a4], n] + 
    S2[a3, SP[a1, a6], a5, SP[a2, a4], n] + S2[a3, SP[a1, a6], SP[a2, a5], 
     a4, n] + S2[a4, a1, SP[a2, a5], SP[a3, a6], n] + 
    S2[a4, a1, SP[a3, a5], SP[a2, a6], n] + S2[a4, SP[a1, a5], a2, 
     SP[a3, a6], n] + S2[a4, SP[a1, a5], a3, SP[a2, a6], n] + 
    S2[a4, SP[a1, a5], SP[a2, a6], a3, n] + S2[a4, SP[a1, a5], SP[a3, a6], 
     a2, n] + S2[SP[a1, a3], a6, a5, SP[a2, a4], n] + 
    S2[SP[a1, a3], a6, SP[a2, a5], a4, n] + S2[SP[a1, a3], SP[a2, a6], a5, 
     a4, n] + S2[SP[a1, a4], a2, a5, SP[a3, a6], n] + 
    S2[SP[a1, a4], a2, SP[a3, a5], a6, n] + S2[SP[a1, a4], a3, a5, 
     SP[a2, a6], n] + S2[SP[a1, a4], a3, SP[a2, a5], a6, n] + 
    S2[SP[a1, a4], a5, a2, SP[a3, a6], n] + S2[SP[a1, a4], a5, a3, 
     SP[a2, a6], n] + S2[SP[a1, a4], a5, SP[a2, a6], a3, n] + 
    S2[SP[a1, a4], a5, SP[a3, a6], a2, n] + S2[SP[a1, a4], SP[a2, a5], a3, 
     a6, n] + S2[SP[a1, a4], SP[a2, a5], a6, a3, n] + 
    S2[SP[a1, a4], SP[a3, a5], a2, a6, n] + S2[SP[a1, a4], SP[a3, a5], a6, 
     a2, n] - S2[a6, n]*S2[a1, a2, a3, a5, a4, n] + 
    S2[a4, n]*S2[a1, a2, a3, a5, a6, n] + S2[a1, a2, a3, SP[a4, a5], a6, n] - 
    S2[a1, a2, a3, SP[a5, a6], a4, n] - S2[a1, a2, a4, a5, SP[a3, a6], n] - 
    S2[a1, a2, a4, SP[a3, a5], a6, n] - S2[a6, n]*S2[a1, a2, a5, a3, a4, n] + 
    S2[a4, n]*S2[a1, a2, a5, a3, a6, n] - 
    S2[a6, n]*S2[a1, a2, a5, a4, a3, n] - S2[a1, a2, a5, a4, SP[a3, a6], n] + 
    S2[a4, n]*S2[a1, a2, a5, a6, a3, n] + S2[a1, a2, a5, a6, SP[a3, a4], n] + 
    S2[a1, a2, a5, SP[a3, a4], a6, n] - S2[a1, a2, a5, SP[a3, a6], a4, n] + 
    S2[a3, n]*S2[a1, a2, a6, a5, a4, n] + S2[a1, a2, a6, a5, SP[a3, a4], n] + 
    S2[a1, a2, a6, SP[a3, a5], a4, n] + S2[a1, a2, SP[a4, a5], a3, a6, n] + 
    S2[a1, a2, SP[a4, a5], a6, a3, n] - S2[a1, a2, SP[a5, a6], a3, a4, n] - 
    S2[a1, a2, SP[a5, a6], a4, a3, n] - S2[a6, n]*S2[a1, a3, a2, a5, a4, n] + 
    S2[a4, n]*S2[a1, a3, a2, a5, a6, n] + S2[a1, a3, a2, SP[a4, a5], a6, n] - 
    S2[a1, a3, a2, SP[a5, a6], a4, n] - S2[a1, a3, a4, a5, SP[a2, a6], n] - 
    S2[a1, a3, a4, SP[a2, a5], a6, n] - S2[a6, n]*S2[a1, a3, a5, a2, a4, n] + 
    S2[a4, n]*S2[a1, a3, a5, a2, a6, n] - 
    S2[a6, n]*S2[a1, a3, a5, a4, a2, n] - S2[a1, a3, a5, a4, SP[a2, a6], n] + 
    S2[a4, n]*S2[a1, a3, a5, a6, a2, n] + S2[a1, a3, a5, a6, SP[a2, a4], n] + 
    S2[a1, a3, a5, SP[a2, a4], a6, n] - S2[a1, a3, a5, SP[a2, a6], a4, n] + 
    S2[a2, n]*S2[a1, a3, a6, a5, a4, n] - S2[a1, a3, SP[a2, a6], a5, a4, n] + 
    S2[a1, a3, SP[a4, a5], a2, a6, n] + S2[a1, a3, SP[a4, a5], a6, a2, n] - 
    S2[a1, a3, SP[a5, a6], a2, a4, n] - S2[a1, a3, SP[a5, a6], a4, a2, n] - 
    S2[a1, a4, a2, a5, SP[a3, a6], n] - S2[a1, a4, a2, SP[a3, a5], a6, n] - 
    S2[a1, a4, a3, a5, SP[a2, a6], n] - S2[a1, a4, a3, SP[a2, a5], a6, n] - 
    S2[a1, a4, a5, a2, SP[a3, a6], n] - S2[a1, a4, a5, a3, SP[a2, a6], n] - 
    S2[a1, a4, a5, SP[a2, a6], a3, n] - S2[a1, a4, a5, SP[a3, a6], a2, n] - 
    S2[a1, a4, SP[a2, a5], a3, a6, n] - S2[a1, a4, SP[a2, a5], a6, a3, n] - 
    S2[a1, a4, SP[a3, a5], a2, a6, n] - S2[a1, a4, SP[a3, a5], a6, a2, n] - 
    S2[a6, n]*S2[a1, a5, a2, a3, a4, n] + 
    S2[a4, n]*S2[a1, a5, a2, a3, a6, n] - 
    S2[a6, n]*S2[a1, a5, a2, a4, a3, n] - S2[a1, a5, a2, a4, SP[a3, a6], n] + 
    S2[a4, n]*S2[a1, a5, a2, a6, a3, n] + S2[a1, a5, a2, a6, SP[a3, a4], n] + 
    S2[a1, a5, a2, SP[a3, a4], a6, n] - S2[a1, a5, a2, SP[a3, a6], a4, n] - 
    S2[a6, n]*S2[a1, a5, a3, a2, a4, n] + 
    S2[a4, n]*S2[a1, a5, a3, a2, a6, n] - 
    S2[a6, n]*S2[a1, a5, a3, a4, a2, n] - S2[a1, a5, a3, a4, SP[a2, a6], n] + 
    S2[a4, n]*S2[a1, a5, a3, a6, a2, n] + S2[a1, a5, a3, a6, SP[a2, a4], n] + 
    S2[a1, a5, a3, SP[a2, a4], a6, n] - S2[a1, a5, a3, SP[a2, a6], a4, n] - 
    S2[a6, n]*S2[a1, a5, a4, a2, a3, n] - S2[a1, a5, a4, a2, SP[a3, a6], n] - 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] - S2[a1, a5, a4, a3, SP[a2, a6], n] - 
    S2[a1, a5, a4, SP[a2, a6], a3, n] - S2[a1, a5, a4, SP[a3, a6], a2, n] + 
    S2[a4, n]*S2[a1, a5, a6, a2, a3, n] + S2[a1, a5, a6, a2, SP[a3, a4], n] + 
    S2[a4, n]*S2[a1, a5, a6, a3, a2, n] + S2[a1, a5, a6, a3, SP[a2, a4], n] + 
    S2[a1, a5, a6, SP[a2, a4], a3, n] + S2[a1, a5, a6, SP[a3, a4], a2, n] + 
    S2[a1, a5, SP[a2, a4], a3, a6, n] + S2[a1, a5, SP[a2, a4], a6, a3, n] - 
    S2[a1, a5, SP[a2, a6], a3, a4, n] - S2[a1, a5, SP[a2, a6], a4, a3, n] + 
    S2[a1, a5, SP[a3, a4], a2, a6, n] + S2[a1, a5, SP[a3, a4], a6, a2, n] - 
    S2[a1, a5, SP[a3, a6], a2, a4, n] - S2[a1, a5, SP[a3, a6], a4, a2, n] + 
    S2[a3, n]*S2[a1, a6, a2, a5, a4, n] + S2[a1, a6, a2, a5, SP[a3, a4], n] + 
    S2[a1, a6, a2, SP[a3, a5], a4, n] + S2[a3, n]*S2[a1, a6, a5, a2, a4, n] + 
    S2[a1, a6, a5, a2, SP[a3, a4], n] + S2[a3, n]*S2[a1, a6, a5, a4, a2, n] + 
    S2[a1, a6, a5, a4, SP[a2, a3], n] + S2[a1, a6, a5, SP[a2, a3], a4, n] + 
    S2[a1, a6, a5, SP[a3, a4], a2, n] + S2[a1, a6, SP[a2, a3], a5, a4, n] + 
    S2[a1, a6, SP[a3, a5], a2, a4, n] + S2[a1, a6, SP[a3, a5], a4, a2, n] + 
    S2[a1, SP[a2, a3], a6, a5, a4, n] - S2[a1, SP[a2, a6], a3, a5, a4, n] - 
    S2[a1, SP[a2, a6], a5, a3, a4, n] - S2[a1, SP[a2, a6], a5, a4, a3, n] + 
    S2[a1, SP[a4, a5], a2, a3, a6, n] + S2[a1, SP[a4, a5], a2, a6, a3, n] + 
    S2[a1, SP[a4, a5], a3, a2, a6, n] + S2[a1, SP[a4, a5], a3, a6, a2, n] + 
    S2[a1, SP[a4, a5], a6, a2, a3, n] + S2[a1, SP[a4, a5], a6, a3, a2, n] - 
    S2[a1, SP[a5, a6], a2, a3, a4, n] - S2[a1, SP[a5, a6], a2, a4, a3, n] - 
    S2[a1, SP[a5, a6], a3, a2, a4, n] - S2[a1, SP[a5, a6], a3, a4, a2, n] - 
    S2[a1, SP[a5, a6], a4, a2, a3, n] - S2[a1, SP[a5, a6], a4, a3, a2, n] - 
    S2[a3, a1, a6, a5, SP[a2, a4], n] - S2[a3, a1, a6, SP[a2, a5], a4, n] - 
    S2[a3, a1, SP[a2, a6], a5, a4, n] - S2[a3, a6, a1, a5, SP[a2, a4], n] - 
    S2[a3, a6, a1, SP[a2, a5], a4, n] - S2[a3, a6, a5, a1, SP[a2, a4], n] - 
    S2[a3, a6, a5, SP[a1, a4], a2, n] - S2[a3, a6, SP[a1, a5], a2, a4, n] - 
    S2[a3, a6, SP[a1, a5], a4, a2, n] - S2[a3, SP[a1, a6], a2, a5, a4, n] - 
    S2[a3, SP[a1, a6], a5, a2, a4, n] - S2[a3, SP[a1, a6], a5, a4, a2, n] - 
    S2[a4, a1, a2, a5, SP[a3, a6], n] - S2[a4, a1, a2, SP[a3, a5], a6, n] - 
    S2[a4, a1, a3, a5, SP[a2, a6], n] - S2[a4, a1, a3, SP[a2, a5], a6, n] - 
    S2[a4, a1, a5, a2, SP[a3, a6], n] - S2[a4, a1, a5, a3, SP[a2, a6], n] - 
    S2[a4, a1, a5, SP[a2, a6], a3, n] - S2[a4, a1, a5, SP[a3, a6], a2, n] - 
    S2[a4, a1, SP[a2, a5], a3, a6, n] - S2[a4, a1, SP[a2, a5], a6, a3, n] - 
    S2[a4, a1, SP[a3, a5], a2, a6, n] - S2[a4, a1, SP[a3, a5], a6, a2, n] + 
    S2[a6, n]*S2[a4, a5, a1, a2, a3, n] + 
    S2[a6, n]*S2[a4, a5, a1, a3, a2, n] - S2[a4, SP[a1, a5], a2, a3, a6, n] - 
    S2[a4, SP[a1, a5], a2, a6, a3, n] - S2[a4, SP[a1, a5], a3, a2, a6, n] - 
    S2[a4, SP[a1, a5], a3, a6, a2, n] - S2[a4, SP[a1, a5], a6, a2, a3, n] - 
    S2[a4, SP[a1, a5], a6, a3, a2, n] + S2[a4, SP[a5, a6], a1, a2, a3, n] + 
    S2[a4, SP[a5, a6], a1, a3, a2, n] + S2[a3, n]*S2[a6, a1, a2, a5, a4, n] + 
    S2[a6, a1, a2, a5, SP[a3, a4], n] + S2[a6, a1, a2, SP[a3, a5], a4, n] + 
    S2[a3, n]*S2[a6, a1, a5, a2, a4, n] + S2[a6, a1, a5, a2, SP[a3, a4], n] + 
    S2[a3, n]*S2[a6, a1, a5, a4, a2, n] + S2[a6, a1, a5, a4, SP[a2, a3], n] + 
    S2[a6, a1, a5, SP[a2, a3], a4, n] + S2[a6, a1, a5, SP[a3, a4], a2, n] + 
    S2[a6, a1, SP[a2, a3], a5, a4, n] + S2[a6, a1, SP[a3, a5], a2, a4, n] + 
    S2[a6, a1, SP[a3, a5], a4, a2, n] - S2[a4, n]*S2[a6, a5, a1, a2, a3, n] + 
    S2[a3, n]*S2[a6, a5, a1, a2, a4, n] - 
    S2[a4, n]*S2[a6, a5, a1, a3, a2, n] - S2[a6, a5, a1, a3, SP[a2, a4], n] + 
    S2[a3, n]*S2[a6, a5, a1, a4, a2, n] + S2[a6, a5, a1, a4, SP[a2, a3], n] + 
    S2[a6, a5, a1, SP[a2, a3], a4, n] - S2[a6, a5, a1, SP[a2, a4], a3, n] + 
    S2[a3, n]*S2[a6, a5, a4, a1, a2, n] + S2[a6, a5, a4, a1, SP[a2, a3], n] + 
    S2[a6, a5, a4, SP[a1, a3], a2, n] + S2[a6, a5, SP[a1, a3], a2, a4, n] + 
    S2[a6, a5, SP[a1, a3], a4, a2, n] - S2[a6, a5, SP[a1, a4], a2, a3, n] - 
    S2[a6, a5, SP[a1, a4], a3, a2, n] + S2[a6, a5, SP[a3, a4], a1, a2, n] + 
    S2[a6, SP[a1, a3], a2, a5, a4, n] + S2[a6, SP[a1, a3], a5, a2, a4, n] + 
    S2[a6, SP[a1, a3], a5, a4, a2, n] + S2[a6, SP[a3, a5], a1, a2, a4, n] + 
    S2[a6, SP[a3, a5], a1, a4, a2, n] + S2[a6, SP[a3, a5], a4, a1, a2, n] - 
    S2[a6, SP[a4, a5], a1, a2, a3, n] - S2[a6, SP[a4, a5], a1, a3, a2, n] + 
    S2[SP[a1, a2], a3, a6, a5, a4, n] - S2[SP[a1, a6], a2, a3, a5, a4, n] - 
    S2[SP[a1, a6], a2, a5, a3, a4, n] - S2[SP[a1, a6], a2, a5, a4, a3, n] - 
    S2[SP[a1, a6], a3, a2, a5, a4, n] - S2[SP[a1, a6], a3, a5, a2, a4, n] - 
    S2[SP[a1, a6], a3, a5, a4, a2, n] - S2[SP[a1, a6], a5, a2, a3, a4, n] - 
    S2[SP[a1, a6], a5, a2, a4, a3, n] - S2[SP[a1, a6], a5, a3, a2, a4, n] - 
    S2[SP[a1, a6], a5, a3, a4, a2, n] - S2[SP[a1, a6], a5, a4, a2, a3, n] - 
    S2[SP[a1, a6], a5, a4, a3, a2, n] + S2[SP[a3, a6], a1, a2, a5, a4, n] + 
    S2[SP[a3, a6], a1, a5, a2, a4, n] + S2[SP[a3, a6], a1, a5, a4, a2, n] + 
    S2[SP[a3, a6], a5, a1, a2, a4, n] + S2[SP[a3, a6], a5, a1, a4, a2, n] + 
    S2[SP[a3, a6], a5, a4, a1, a2, n] - S2[a6, a3, a1, a2, a5, a4, n] - 
    S2[a6, a3, a1, a5, a2, a4, n] - S2[a6, a3, a1, a5, a4, a2, n] - 
    S2[a6, a3, a5, a1, a2, a4, n] - S2[a6, a3, a5, a1, a4, a2, n] - 
    S2[a6, a3, a5, a4, a1, a2, n] - S2[a6, a5, a3, a1, a2, a4, n] - 
    S2[a6, a5, a3, a1, a4, a2, n] - S2[a6, a5, a3, a4, a1, a2, n] - 
    S2[a6, a5, a4, a3, a1, a2, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a2_, a1_, a4_, a3_, a5_, a6_, n_] :> 
  -(S2[a1, a2, a4, n]*S2[a3, a5, a6, n]) - S2[a1, a4, a2, n]*
     S2[a3, a5, a6, n] - S2[SP[a1, a3], SP[a2, a5], SP[a4, a6], n] - 
    S2[SP[a1, a3], SP[a4, a5], SP[a2, a6], n] - 
    S2[a5, a6, n]*S2[a1, a2, a4, a3, n] + S2[a1, a2, SP[a4, a5], SP[a3, a6], 
     n] + S2[a1, a3, SP[a2, a5], SP[a4, a6], n] + S2[a1, a3, SP[a4, a5], 
     SP[a2, a6], n] - S2[a5, a6, n]*S2[a1, a4, a2, a3, n] - 
    S2[a5, a6, n]*S2[a1, a4, a3, a2, n] + S2[a1, a4, SP[a2, a5], SP[a3, a6], 
     n] + S2[a1, a4, SP[a3, a5], SP[a2, a6], n] + S2[a1, SP[a2, a3], a5, 
     SP[a4, a6], n] + S2[a1, SP[a2, a3], SP[a4, a5], a6, n] + 
    S2[a1, SP[a2, a5], a4, SP[a3, a6], n] + S2[a1, SP[a2, a5], SP[a4, a6], 
     a3, n] + S2[a1, SP[a3, a4], a5, SP[a2, a6], n] + 
    S2[a1, SP[a3, a4], SP[a2, a5], a6, n] + S2[a1, SP[a4, a5], a2, 
     SP[a3, a6], n] + S2[a1, SP[a4, a5], a3, SP[a2, a6], n] + 
    S2[a1, SP[a4, a5], SP[a2, a6], a3, n] + S2[a1, SP[a4, a5], SP[a3, a6], 
     a2, n] + S2[a3, a1, SP[a2, a5], SP[a4, a6], n] + 
    S2[a3, a1, SP[a4, a5], SP[a2, a6], n] + S2[a1, a2, n]*
     S2[a3, a4, a5, a6, n] + S2[a1, a2, n]*S2[a3, a4, a6, a5, n] - 
    S2[a3, a4, SP[a1, a5], SP[a2, a6], n] - S2[a3, a4, SP[a1, a6], 
     SP[a2, a5], n] + S2[a1, a2, n]*S2[a3, a5, a4, a6, n] + 
    S2[a1, a2, n]*S2[a3, a5, a6, a4, n] - S2[a3, a5, SP[a1, a4], SP[a2, a6], 
     n] - S2[a3, a5, SP[a1, a6], SP[a2, a4], n] + 
    S2[a1, a2, n]*S2[a3, a6, a4, a5, n] + S2[a1, a2, n]*
     S2[a3, a6, a5, a4, n] - S2[a3, a6, SP[a1, a4], SP[a2, a5], n] - 
    S2[a3, a6, SP[a1, a5], SP[a2, a4], n] - S2[a3, SP[a1, a4], a5, 
     SP[a2, a6], n] - S2[a3, SP[a1, a4], a6, SP[a2, a5], n] - 
    S2[a3, SP[a1, a4], SP[a2, a5], a6, n] - S2[a3, SP[a1, a4], SP[a2, a6], 
     a5, n] + S2[a3, SP[a1, a5], a2, SP[a4, a6], n] - 
    S2[a3, SP[a1, a5], a6, SP[a2, a4], n] - S2[a3, SP[a1, a5], SP[a2, a4], 
     a6, n] + S2[a3, SP[a1, a5], SP[a4, a6], a2, n] - 
    S2[a3, SP[a1, a6], a4, SP[a2, a5], n] - S2[a3, SP[a1, a6], a5, 
     SP[a2, a4], n] - S2[a3, SP[a1, a6], SP[a2, a4], a5, n] - 
    S2[a3, SP[a1, a6], SP[a2, a5], a4, n] - S2[a1, a2, n]*
     S2[a5, a6, a3, a4, n] + S2[a5, a6, SP[a1, a3], SP[a2, a4], n] + 
    S2[a5, SP[a1, a6], a3, SP[a2, a4], n] + S2[a5, SP[a1, a6], SP[a2, a3], 
     a4, n] + S2[SP[a1, a3], a2, a5, SP[a4, a6], n] + 
    S2[SP[a1, a3], a2, SP[a4, a5], a6, n] - S2[SP[a1, a3], a4, a6, 
     SP[a2, a5], n] - S2[SP[a1, a3], a4, SP[a2, a6], a5, n] + 
    S2[SP[a1, a3], a5, a2, SP[a4, a6], n] - S2[SP[a1, a3], a5, a6, 
     SP[a2, a4], n] - S2[SP[a1, a3], a5, SP[a2, a4], a6, n] + 
    S2[SP[a1, a3], a5, SP[a4, a6], a2, n] - S2[SP[a1, a3], a6, a4, 
     SP[a2, a5], n] - S2[SP[a1, a3], a6, a5, SP[a2, a4], n] - 
    S2[SP[a1, a3], a6, SP[a2, a4], a5, n] - S2[SP[a1, a3], a6, SP[a2, a5], 
     a4, n] - S2[SP[a1, a3], SP[a2, a4], a5, a6, n] - 
    S2[SP[a1, a3], SP[a2, a4], a6, a5, n] - S2[SP[a1, a3], SP[a2, a6], a4, 
     a5, n] - S2[SP[a1, a3], SP[a2, a6], a5, a4, n] + 
    S2[SP[a1, a3], SP[a4, a5], a2, a6, n] + S2[SP[a1, a3], SP[a4, a5], a6, 
     a2, n] + S2[SP[a1, a5], a2, a4, SP[a3, a6], n] + 
    S2[SP[a1, a5], a2, SP[a4, a6], a3, n] + S2[SP[a1, a5], a4, a2, 
     SP[a3, a6], n] + S2[SP[a1, a5], a4, a3, SP[a2, a6], n] + 
    S2[SP[a1, a5], a4, SP[a2, a6], a3, n] + S2[SP[a1, a5], a4, SP[a3, a6], 
     a2, n] + S2[SP[a1, a5], a6, a3, SP[a2, a4], n] + 
    S2[SP[a1, a5], a6, SP[a2, a3], a4, n] + S2[SP[a1, a5], SP[a2, a6], a3, 
     a4, n] + S2[SP[a1, a5], SP[a2, a6], a4, a3, n] + 
    S2[SP[a1, a5], SP[a4, a6], a2, a3, n] + S2[SP[a1, a5], SP[a4, a6], a3, 
     a2, n] - S2[a1, a2, a3, a5, SP[a4, a6], n] - S2[a1, a2, a3, SP[a4, a5], 
     a6, n] + S2[a5, n]*S2[a1, a2, a4, a3, a6, n] + 
    S2[a1, a2, a4, a3, SP[a5, a6], n] - S2[a1, a2, a4, a5, SP[a3, a6], n] + 
    S2[a5, n]*S2[a1, a2, a4, a6, a3, n] - 
    S2[a3, n]*S2[a1, a2, a4, a6, a5, n] - S2[a1, a2, a4, SP[a3, a6], a5, n] + 
    S2[a1, a2, a4, SP[a5, a6], a3, n] - S2[a1, a2, a5, a4, SP[a3, a6], n] - 
    S2[a1, a2, a5, SP[a4, a6], a3, n] + S2[a5, n]*S2[a1, a2, a6, a3, a4, n] + 
    S2[a1, a2, a6, a3, SP[a4, a5], n] + S2[a5, n]*S2[a1, a2, a6, a4, a3, n] - 
    S2[a3, n]*S2[a1, a2, a6, a4, a5, n] - 
    S2[a3, n]*S2[a1, a2, a6, a5, a4, n] - S2[a1, a2, a6, a5, SP[a3, a4], n] - 
    S2[a1, a2, a6, SP[a3, a4], a5, n] + S2[a1, a2, a6, SP[a4, a5], a3, n] - 
    S2[a1, a2, SP[a3, a4], a5, a6, n] - S2[a1, a2, SP[a3, a4], a6, a5, n] - 
    S2[a1, a2, SP[a3, a6], a4, a5, n] - S2[a1, a2, SP[a3, a6], a5, a4, n] + 
    S2[a1, a2, SP[a5, a6], a3, a4, n] + S2[a1, a2, SP[a5, a6], a4, a3, n] - 
    S2[a1, a3, a2, a5, SP[a4, a6], n] - S2[a1, a3, a2, SP[a4, a5], a6, n] + 
    S2[a1, a3, a4, a6, SP[a2, a5], n] + S2[a1, a3, a4, SP[a2, a6], a5, n] - 
    S2[a1, a3, a5, a2, SP[a4, a6], n] + S2[a1, a3, a5, a6, SP[a2, a4], n] + 
    S2[a1, a3, a5, SP[a2, a4], a6, n] - S2[a1, a3, a5, SP[a4, a6], a2, n] + 
    S2[a1, a3, a6, a4, SP[a2, a5], n] + S2[a1, a3, a6, a5, SP[a2, a4], n] + 
    S2[a1, a3, a6, SP[a2, a4], a5, n] + S2[a1, a3, a6, SP[a2, a5], a4, n] + 
    S2[a1, a3, SP[a2, a4], a5, a6, n] + S2[a1, a3, SP[a2, a4], a6, a5, n] + 
    S2[a1, a3, SP[a2, a6], a4, a5, n] + S2[a1, a3, SP[a2, a6], a5, a4, n] - 
    S2[a1, a3, SP[a4, a5], a2, a6, n] - S2[a1, a3, SP[a4, a5], a6, a2, n] + 
    S2[a5, n]*S2[a1, a4, a2, a3, a6, n] + S2[a1, a4, a2, a3, SP[a5, a6], n] - 
    S2[a1, a4, a2, a5, SP[a3, a6], n] + S2[a5, n]*S2[a1, a4, a2, a6, a3, n] - 
    S2[a3, n]*S2[a1, a4, a2, a6, a5, n] - S2[a1, a4, a2, SP[a3, a6], a5, n] + 
    S2[a1, a4, a2, SP[a5, a6], a3, n] + S2[a5, n]*S2[a1, a4, a3, a2, a6, n] + 
    S2[a1, a4, a3, a2, SP[a5, a6], n] + S2[a2, n]*S2[a1, a4, a3, a5, a6, n] - 
    S2[a1, a4, a3, a5, SP[a2, a6], n] + S2[a5, n]*S2[a1, a4, a3, a6, a2, n] + 
    S2[a1, a4, a3, a6, SP[a2, a5], n] + S2[a1, a4, a3, SP[a5, a6], a2, n] - 
    S2[a1, a4, a5, a2, SP[a3, a6], n] - S2[a1, a4, a5, a3, SP[a2, a6], n] - 
    S2[a1, a4, a5, SP[a2, a6], a3, n] - S2[a1, a4, a5, SP[a3, a6], a2, n] + 
    S2[a5, n]*S2[a1, a4, a6, a2, a3, n] - 
    S2[a3, n]*S2[a1, a4, a6, a2, a5, n] + 
    S2[a5, n]*S2[a1, a4, a6, a3, a2, n] + S2[a1, a4, a6, a3, SP[a2, a5], n] - 
    S2[a3, n]*S2[a1, a4, a6, a5, a2, n] - S2[a1, a4, a6, a5, SP[a2, a3], n] - 
    S2[a1, a4, a6, SP[a2, a3], a5, n] + S2[a1, a4, a6, SP[a2, a5], a3, n] - 
    S2[a1, a4, SP[a2, a3], a6, a5, n] - S2[a1, a4, SP[a3, a6], a2, a5, n] - 
    S2[a1, a4, SP[a3, a6], a5, a2, n] + S2[a1, a4, SP[a5, a6], a2, a3, n] + 
    S2[a1, a4, SP[a5, a6], a3, a2, n] - S2[a1, a5, a2, a4, SP[a3, a6], n] - 
    S2[a1, a5, a2, SP[a4, a6], a3, n] - S2[a1, a5, a4, a2, SP[a3, a6], n] - 
    S2[a1, a5, a4, a3, SP[a2, a6], n] - S2[a1, a5, a4, SP[a2, a6], a3, n] - 
    S2[a1, a5, a4, SP[a3, a6], a2, n] - S2[a1, a5, a6, a3, SP[a2, a4], n] - 
    S2[a1, a5, a6, SP[a2, a3], a4, n] - S2[a1, a5, SP[a2, a6], a3, a4, n] - 
    S2[a1, a5, SP[a2, a6], a4, a3, n] - S2[a1, a5, SP[a4, a6], a2, a3, n] - 
    S2[a1, a5, SP[a4, a6], a3, a2, n] + S2[a5, n]*S2[a1, a6, a2, a3, a4, n] + 
    S2[a1, a6, a2, a3, SP[a4, a5], n] + S2[a5, n]*S2[a1, a6, a2, a4, a3, n] - 
    S2[a3, n]*S2[a1, a6, a2, a4, a5, n] - 
    S2[a3, n]*S2[a1, a6, a2, a5, a4, n] - S2[a1, a6, a2, a5, SP[a3, a4], n] - 
    S2[a1, a6, a2, SP[a3, a4], a5, n] + S2[a1, a6, a2, SP[a4, a5], a3, n] + 
    S2[a5, n]*S2[a1, a6, a3, a2, a4, n] + S2[a1, a6, a3, a2, SP[a4, a5], n] + 
    S2[a5, n]*S2[a1, a6, a3, a4, a2, n] + S2[a1, a6, a3, a4, SP[a2, a5], n] + 
    S2[a1, a6, a3, SP[a2, a5], a4, n] + S2[a1, a6, a3, SP[a4, a5], a2, n] + 
    S2[a5, n]*S2[a1, a6, a4, a2, a3, n] - 
    S2[a3, n]*S2[a1, a6, a4, a2, a5, n] + 
    S2[a5, n]*S2[a1, a6, a4, a3, a2, n] + S2[a1, a6, a4, a3, SP[a2, a5], n] - 
    S2[a3, n]*S2[a1, a6, a4, a5, a2, n] - S2[a1, a6, a4, a5, SP[a2, a3], n] - 
    S2[a1, a6, a4, SP[a2, a3], a5, n] + S2[a1, a6, a4, SP[a2, a5], a3, n] - 
    S2[a3, n]*S2[a1, a6, a5, a2, a4, n] - S2[a1, a6, a5, a2, SP[a3, a4], n] - 
    S2[a3, n]*S2[a1, a6, a5, a4, a2, n] - S2[a1, a6, a5, a4, SP[a2, a3], n] - 
    S2[a1, a6, a5, SP[a2, a3], a4, n] - S2[a1, a6, a5, SP[a3, a4], a2, n] - 
    S2[a1, a6, SP[a2, a3], a4, a5, n] - S2[a1, a6, SP[a2, a3], a5, a4, n] + 
    S2[a1, a6, SP[a2, a5], a3, a4, n] + S2[a1, a6, SP[a2, a5], a4, a3, n] - 
    S2[a1, a6, SP[a3, a4], a2, a5, n] - S2[a1, a6, SP[a3, a4], a5, a2, n] + 
    S2[a1, a6, SP[a4, a5], a2, a3, n] + S2[a1, a6, SP[a4, a5], a3, a2, n] + 
    S2[a1, SP[a2, a4], a3, a5, a6, n] - S2[a1, SP[a3, a4], a2, a5, a6, n] - 
    S2[a1, SP[a3, a4], a2, a6, a5, n] - S2[a1, SP[a3, a4], a5, a2, a6, n] - 
    S2[a1, SP[a3, a4], a5, a6, a2, n] - S2[a1, SP[a3, a4], a6, a2, a5, n] - 
    S2[a1, SP[a3, a4], a6, a5, a2, n] - S2[a1, SP[a3, a6], a2, a4, a5, n] - 
    S2[a1, SP[a3, a6], a2, a5, a4, n] - S2[a1, SP[a3, a6], a4, a2, a5, n] - 
    S2[a1, SP[a3, a6], a4, a5, a2, n] - S2[a1, SP[a3, a6], a5, a2, a4, n] - 
    S2[a1, SP[a3, a6], a5, a4, a2, n] + S2[a1, SP[a5, a6], a2, a3, a4, n] + 
    S2[a1, SP[a5, a6], a2, a4, a3, n] + S2[a1, SP[a5, a6], a3, a2, a4, n] + 
    S2[a1, SP[a5, a6], a3, a4, a2, n] + S2[a1, SP[a5, a6], a4, a2, a3, n] + 
    S2[a1, SP[a5, a6], a4, a3, a2, n] - S2[a3, a1, a2, a5, SP[a4, a6], n] - 
    S2[a3, a1, a2, SP[a4, a5], a6, n] + S2[a3, a1, a4, a6, SP[a2, a5], n] + 
    S2[a3, a1, a4, SP[a2, a6], a5, n] - S2[a3, a1, a5, a2, SP[a4, a6], n] + 
    S2[a3, a1, a5, a6, SP[a2, a4], n] + S2[a3, a1, a5, SP[a2, a4], a6, n] - 
    S2[a3, a1, a5, SP[a4, a6], a2, n] + S2[a3, a1, a6, a4, SP[a2, a5], n] + 
    S2[a3, a1, a6, a5, SP[a2, a4], n] + S2[a3, a1, a6, SP[a2, a4], a5, n] + 
    S2[a3, a1, a6, SP[a2, a5], a4, n] + S2[a3, a1, SP[a2, a4], a5, a6, n] + 
    S2[a3, a1, SP[a2, a4], a6, a5, n] + S2[a3, a1, SP[a2, a6], a4, a5, n] + 
    S2[a3, a1, SP[a2, a6], a5, a4, n] - S2[a3, a1, SP[a4, a5], a2, a6, n] - 
    S2[a3, a1, SP[a4, a5], a6, a2, n] - S2[a6, n]*S2[a3, a4, a1, a2, a5, n] - 
    S2[a3, a4, a1, a2, SP[a5, a6], n] - S2[a6, n]*S2[a3, a4, a1, a5, a2, n] + 
    S2[a3, a4, a1, a6, SP[a2, a5], n] + S2[a3, a4, a1, SP[a2, a5], a6, n] - 
    S2[a3, a4, a1, SP[a5, a6], a2, n] - S2[a6, n]*S2[a3, a4, a5, a1, a2, n] + 
    S2[a3, a4, a6, a1, SP[a2, a5], n] + S2[a3, a4, a6, SP[a1, a5], a2, n] + 
    S2[a3, a4, SP[a1, a5], a2, a6, n] + S2[a3, a4, SP[a1, a5], a6, a2, n] - 
    S2[a3, a4, SP[a5, a6], a1, a2, n] - S2[a3, a5, a1, a2, SP[a4, a6], n] + 
    S2[a3, a5, a1, a6, SP[a2, a4], n] + S2[a3, a5, a1, SP[a2, a4], a6, n] - 
    S2[a3, a5, a1, SP[a4, a6], a2, n] - S2[a6, n]*S2[a3, a5, a4, a1, a2, n] + 
    S2[a3, a5, a6, a1, SP[a2, a4], n] + S2[a3, a5, a6, SP[a1, a4], a2, n] + 
    S2[a3, a5, SP[a1, a4], a2, a6, n] + S2[a3, a5, SP[a1, a4], a6, a2, n] - 
    S2[a3, a5, SP[a4, a6], a1, a2, n] - S2[a5, n]*S2[a3, a6, a1, a2, a4, n] - 
    S2[a3, a6, a1, a2, SP[a4, a5], n] - S2[a5, n]*S2[a3, a6, a1, a4, a2, n] + 
    S2[a3, a6, a1, a5, SP[a2, a4], n] + S2[a3, a6, a1, SP[a2, a4], a5, n] - 
    S2[a3, a6, a1, SP[a4, a5], a2, n] + S2[a3, a6, a4, a1, SP[a2, a5], n] + 
    S2[a3, a6, a4, SP[a1, a5], a2, n] + S2[a3, a6, a5, a1, SP[a2, a4], n] + 
    S2[a3, a6, a5, SP[a1, a4], a2, n] + S2[a3, a6, SP[a1, a4], a2, a5, n] + 
    S2[a3, a6, SP[a1, a4], a5, a2, n] + S2[a3, SP[a1, a4], a2, a5, a6, n] + 
    S2[a3, SP[a1, a4], a2, a6, a5, n] + S2[a3, SP[a1, a4], a5, a2, a6, n] + 
    S2[a3, SP[a1, a4], a5, a6, a2, n] + S2[a3, SP[a1, a4], a6, a2, a5, n] + 
    S2[a3, SP[a1, a4], a6, a5, a2, n] + S2[a3, SP[a1, a6], a2, a4, a5, n] + 
    S2[a3, SP[a1, a6], a2, a5, a4, n] + S2[a3, SP[a1, a6], a4, a2, a5, n] + 
    S2[a3, SP[a1, a6], a4, a5, a2, n] + S2[a3, SP[a1, a6], a5, a2, a4, n] + 
    S2[a3, SP[a1, a6], a5, a4, a2, n] - S2[a3, SP[a4, a6], a1, a2, a5, n] - 
    S2[a3, SP[a4, a6], a1, a5, a2, n] - S2[a3, SP[a4, a6], a5, a1, a2, n] - 
    S2[a3, SP[a5, a6], a1, a2, a4, n] - S2[a3, SP[a5, a6], a1, a4, a2, n] - 
    S2[a3, SP[a5, a6], a4, a1, a2, n] - S2[a5, a1, a2, a4, SP[a3, a6], n] - 
    S2[a5, a1, a2, SP[a4, a6], a3, n] - S2[a5, a1, a4, a2, SP[a3, a6], n] - 
    S2[a5, a1, a4, a3, SP[a2, a6], n] - S2[a5, a1, a4, SP[a2, a6], a3, n] - 
    S2[a5, a1, a4, SP[a3, a6], a2, n] - S2[a5, a1, a6, a3, SP[a2, a4], n] - 
    S2[a5, a1, a6, SP[a2, a3], a4, n] - S2[a5, a1, SP[a2, a6], a3, a4, n] - 
    S2[a5, a1, SP[a2, a6], a4, a3, n] - S2[a5, a1, SP[a4, a6], a2, a3, n] - 
    S2[a5, a1, SP[a4, a6], a3, a2, n] + S2[a3, n]*S2[a5, a6, a1, a2, a4, n] + 
    S2[a5, a6, a1, a2, SP[a3, a4], n] - S2[a5, a6, a1, a3, SP[a2, a4], n] + 
    S2[a3, n]*S2[a5, a6, a1, a4, a2, n] + S2[a5, a6, a1, a4, SP[a2, a3], n] + 
    S2[a5, a6, a1, SP[a3, a4], a2, n] - S2[a5, a6, a3, a1, SP[a2, a4], n] - 
    S2[a5, a6, a3, SP[a1, a4], a2, n] - S2[a5, SP[a1, a6], a2, a3, a4, n] - 
    S2[a5, SP[a1, a6], a2, a4, a3, n] - S2[a5, SP[a1, a6], a3, a2, a4, n] - 
    S2[a5, SP[a1, a6], a3, a4, a2, n] - S2[a5, SP[a1, a6], a4, a2, a3, n] - 
    S2[a5, SP[a1, a6], a4, a3, a2, n] + S2[a5, SP[a3, a6], a1, a2, a4, n] + 
    S2[a5, SP[a3, a6], a1, a4, a2, n] + S2[a5, n]*S2[a6, a3, a4, a1, a2, n] + 
    S2[a6, a3, a4, a1, SP[a2, a5], n] + S2[a6, a3, a4, SP[a1, a5], a2, n] + 
    S2[a6, a3, SP[a4, a5], a1, a2, n] + S2[a6, SP[a3, a5], a4, a1, a2, n] + 
    S2[SP[a1, a2], a4, a3, a5, a6, n] - S2[SP[a3, a6], a4, a1, a2, a5, n] - 
    S2[SP[a3, a6], a4, a1, a5, a2, n] - S2[SP[a3, a6], a4, a5, a1, a2, n] - 
    S2[SP[a3, a6], a5, a4, a1, a2, n] + S2[SP[a5, a6], a3, a4, a1, a2, n] - 
    S2[a6, a5, a3, a4, a1, a2, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a2_, a1_, a4_, a3_, a6_, a5_, n_] :> 
  -(S2[a1, a2, a4, n]*S2[a3, a6, a5, n]) - S2[a1, a4, a2, n]*
     S2[a3, a6, a5, n] - S2[SP[a1, a3], SP[a2, a6], SP[a4, a5], n] - 
    S2[SP[a1, a3], SP[a4, a6], SP[a2, a5], n] + 
    S2[a5, a6, n]*S2[a1, a2, a4, a3, n] - S2[a1, a2, SP[a4, a5], SP[a3, a6], 
     n] + S2[a1, a3, SP[a2, a6], SP[a4, a5], n] + S2[a1, a3, SP[a4, a6], 
     SP[a2, a5], n] + S2[a5, a6, n]*S2[a1, a4, a2, a3, n] + 
    S2[a5, a6, n]*S2[a1, a4, a3, a2, n] - S2[a1, a4, SP[a2, a5], SP[a3, a6], 
     n] - S2[a1, a4, SP[a3, a5], SP[a2, a6], n] + S2[a1, SP[a2, a3], a6, 
     SP[a4, a5], n] + S2[a1, SP[a2, a3], SP[a4, a6], a5, n] - 
    S2[a1, SP[a2, a5], a4, SP[a3, a6], n] - S2[a1, SP[a2, a5], SP[a4, a6], 
     a3, n] + S2[a1, SP[a3, a4], a6, SP[a2, a5], n] + 
    S2[a1, SP[a3, a4], SP[a2, a6], a5, n] - S2[a1, SP[a4, a5], a2, 
     SP[a3, a6], n] - S2[a1, SP[a4, a5], a3, SP[a2, a6], n] - 
    S2[a1, SP[a4, a5], SP[a2, a6], a3, n] - S2[a1, SP[a4, a5], SP[a3, a6], 
     a2, n] + S2[a3, a1, SP[a2, a6], SP[a4, a5], n] + 
    S2[a3, a1, SP[a4, a6], SP[a2, a5], n] + S2[a3, SP[a1, a6], a2, 
     SP[a4, a5], n] + S2[a3, SP[a1, a6], a4, SP[a2, a5], n] + 
    S2[a3, SP[a1, a6], SP[a2, a5], a4, n] + S2[a3, SP[a1, a6], SP[a4, a5], 
     a2, n] + S2[a1, a2, n]*S2[a5, a6, a3, a4, n] - 
    S2[a5, a6, SP[a1, a3], SP[a2, a4], n] - S2[a5, SP[a1, a6], a3, 
     SP[a2, a4], n] - S2[a5, SP[a1, a6], SP[a2, a3], a4, n] + 
    S2[SP[a1, a3], a2, a6, SP[a4, a5], n] + S2[SP[a1, a3], a2, SP[a4, a6], 
     a5, n] + S2[SP[a1, a3], a4, a6, SP[a2, a5], n] + 
    S2[SP[a1, a3], a4, SP[a2, a6], a5, n] + S2[SP[a1, a3], a6, a2, 
     SP[a4, a5], n] + S2[SP[a1, a3], a6, a4, SP[a2, a5], n] + 
    S2[SP[a1, a3], a6, SP[a2, a5], a4, n] + S2[SP[a1, a3], a6, SP[a4, a5], 
     a2, n] + S2[SP[a1, a3], SP[a2, a6], a4, a5, n] + 
    S2[SP[a1, a3], SP[a2, a6], a5, a4, n] + S2[SP[a1, a3], SP[a4, a6], a2, 
     a5, n] + S2[SP[a1, a3], SP[a4, a6], a5, a2, n] - 
    S2[SP[a1, a5], a2, a4, SP[a3, a6], n] - S2[SP[a1, a5], a2, SP[a4, a6], 
     a3, n] - S2[SP[a1, a5], a4, a2, SP[a3, a6], n] - 
    S2[SP[a1, a5], a4, a3, SP[a2, a6], n] - S2[SP[a1, a5], a4, SP[a2, a6], 
     a3, n] - S2[SP[a1, a5], a4, SP[a3, a6], a2, n] - 
    S2[SP[a1, a5], a6, a3, SP[a2, a4], n] - S2[SP[a1, a5], a6, SP[a2, a3], 
     a4, n] - S2[SP[a1, a5], SP[a2, a6], a3, a4, n] - 
    S2[SP[a1, a5], SP[a2, a6], a4, a3, n] - S2[SP[a1, a5], SP[a4, a6], a2, 
     a3, n] - S2[SP[a1, a5], SP[a4, a6], a3, a2, n] - 
    S2[a1, a2, a3, a6, SP[a4, a5], n] - S2[a1, a2, a3, SP[a4, a6], a5, n] - 
    S2[a5, n]*S2[a1, a2, a4, a3, a6, n] - S2[a1, a2, a4, a3, SP[a5, a6], n] + 
    S2[a1, a2, a4, a5, SP[a3, a6], n] - S2[a5, n]*S2[a1, a2, a4, a6, a3, n] + 
    S2[a3, n]*S2[a1, a2, a4, a6, a5, n] + S2[a1, a2, a4, SP[a3, a6], a5, n] - 
    S2[a1, a2, a4, SP[a5, a6], a3, n] + S2[a1, a2, a5, a4, SP[a3, a6], n] + 
    S2[a1, a2, a5, SP[a4, a6], a3, n] - S2[a5, n]*S2[a1, a2, a6, a3, a4, n] - 
    S2[a1, a2, a6, a3, SP[a4, a5], n] - S2[a5, n]*S2[a1, a2, a6, a4, a3, n] + 
    S2[a3, n]*S2[a1, a2, a6, a4, a5, n] + 
    S2[a3, n]*S2[a1, a2, a6, a5, a4, n] + S2[a1, a2, a6, a5, SP[a3, a4], n] + 
    S2[a1, a2, a6, SP[a3, a4], a5, n] - S2[a1, a2, a6, SP[a4, a5], a3, n] + 
    S2[a1, a2, SP[a3, a6], a4, a5, n] + S2[a1, a2, SP[a3, a6], a5, a4, n] - 
    S2[a1, a2, SP[a5, a6], a3, a4, n] - S2[a1, a2, SP[a5, a6], a4, a3, n] - 
    S2[a1, a3, a2, a6, SP[a4, a5], n] - S2[a1, a3, a2, SP[a4, a6], a5, n] - 
    S2[a1, a3, a4, a6, SP[a2, a5], n] - S2[a1, a3, a4, SP[a2, a6], a5, n] - 
    S2[a1, a3, a6, a2, SP[a4, a5], n] - S2[a1, a3, a6, a4, SP[a2, a5], n] - 
    S2[a1, a3, a6, SP[a2, a5], a4, n] - S2[a1, a3, a6, SP[a4, a5], a2, n] - 
    S2[a1, a3, SP[a2, a6], a4, a5, n] - S2[a1, a3, SP[a2, a6], a5, a4, n] - 
    S2[a1, a3, SP[a4, a6], a2, a5, n] - S2[a1, a3, SP[a4, a6], a5, a2, n] - 
    S2[a5, n]*S2[a1, a4, a2, a3, a6, n] - S2[a1, a4, a2, a3, SP[a5, a6], n] + 
    S2[a1, a4, a2, a5, SP[a3, a6], n] - S2[a5, n]*S2[a1, a4, a2, a6, a3, n] + 
    S2[a3, n]*S2[a1, a4, a2, a6, a5, n] + S2[a1, a4, a2, SP[a3, a6], a5, n] - 
    S2[a1, a4, a2, SP[a5, a6], a3, n] - S2[a5, n]*S2[a1, a4, a3, a2, a6, n] - 
    S2[a1, a4, a3, a2, SP[a5, a6], n] + S2[a1, a4, a3, a5, SP[a2, a6], n] - 
    S2[a5, n]*S2[a1, a4, a3, a6, a2, n] + 
    S2[a2, n]*S2[a1, a4, a3, a6, a5, n] - S2[a1, a4, a3, a6, SP[a2, a5], n] - 
    S2[a1, a4, a3, SP[a5, a6], a2, n] + S2[a1, a4, a5, a2, SP[a3, a6], n] + 
    S2[a1, a4, a5, a3, SP[a2, a6], n] + S2[a1, a4, a5, SP[a2, a6], a3, n] + 
    S2[a1, a4, a5, SP[a3, a6], a2, n] - S2[a5, n]*S2[a1, a4, a6, a2, a3, n] + 
    S2[a3, n]*S2[a1, a4, a6, a2, a5, n] - 
    S2[a5, n]*S2[a1, a4, a6, a3, a2, n] - S2[a1, a4, a6, a3, SP[a2, a5], n] + 
    S2[a3, n]*S2[a1, a4, a6, a5, a2, n] + S2[a1, a4, a6, a5, SP[a2, a3], n] + 
    S2[a1, a4, a6, SP[a2, a3], a5, n] - S2[a1, a4, a6, SP[a2, a5], a3, n] + 
    S2[a1, a4, SP[a2, a3], a6, a5, n] + S2[a1, a4, SP[a3, a6], a2, a5, n] + 
    S2[a1, a4, SP[a3, a6], a5, a2, n] - S2[a1, a4, SP[a5, a6], a2, a3, n] - 
    S2[a1, a4, SP[a5, a6], a3, a2, n] + S2[a1, a5, a2, a4, SP[a3, a6], n] + 
    S2[a1, a5, a2, SP[a4, a6], a3, n] + S2[a1, a5, a4, a2, SP[a3, a6], n] + 
    S2[a1, a5, a4, a3, SP[a2, a6], n] + S2[a1, a5, a4, SP[a2, a6], a3, n] + 
    S2[a1, a5, a4, SP[a3, a6], a2, n] + S2[a1, a5, a6, a3, SP[a2, a4], n] + 
    S2[a1, a5, a6, SP[a2, a3], a4, n] + S2[a1, a5, SP[a2, a6], a3, a4, n] + 
    S2[a1, a5, SP[a2, a6], a4, a3, n] + S2[a1, a5, SP[a4, a6], a2, a3, n] + 
    S2[a1, a5, SP[a4, a6], a3, a2, n] - S2[a5, n]*S2[a1, a6, a2, a3, a4, n] - 
    S2[a1, a6, a2, a3, SP[a4, a5], n] - S2[a5, n]*S2[a1, a6, a2, a4, a3, n] + 
    S2[a3, n]*S2[a1, a6, a2, a4, a5, n] + 
    S2[a3, n]*S2[a1, a6, a2, a5, a4, n] + S2[a1, a6, a2, a5, SP[a3, a4], n] + 
    S2[a1, a6, a2, SP[a3, a4], a5, n] - S2[a1, a6, a2, SP[a4, a5], a3, n] - 
    S2[a5, n]*S2[a1, a6, a3, a2, a4, n] - S2[a1, a6, a3, a2, SP[a4, a5], n] - 
    S2[a5, n]*S2[a1, a6, a3, a4, a2, n] - S2[a1, a6, a3, a4, SP[a2, a5], n] - 
    S2[a1, a6, a3, SP[a2, a5], a4, n] - S2[a1, a6, a3, SP[a4, a5], a2, n] - 
    S2[a5, n]*S2[a1, a6, a4, a2, a3, n] + 
    S2[a3, n]*S2[a1, a6, a4, a2, a5, n] - 
    S2[a5, n]*S2[a1, a6, a4, a3, a2, n] - S2[a1, a6, a4, a3, SP[a2, a5], n] + 
    S2[a3, n]*S2[a1, a6, a4, a5, a2, n] + S2[a1, a6, a4, a5, SP[a2, a3], n] + 
    S2[a1, a6, a4, SP[a2, a3], a5, n] - S2[a1, a6, a4, SP[a2, a5], a3, n] + 
    S2[a3, n]*S2[a1, a6, a5, a2, a4, n] + S2[a1, a6, a5, a2, SP[a3, a4], n] + 
    S2[a3, n]*S2[a1, a6, a5, a4, a2, n] + S2[a1, a6, a5, a4, SP[a2, a3], n] + 
    S2[a1, a6, a5, SP[a2, a3], a4, n] + S2[a1, a6, a5, SP[a3, a4], a2, n] + 
    S2[a1, a6, SP[a2, a3], a4, a5, n] + S2[a1, a6, SP[a2, a3], a5, a4, n] - 
    S2[a1, a6, SP[a2, a5], a3, a4, n] - S2[a1, a6, SP[a2, a5], a4, a3, n] + 
    S2[a1, a6, SP[a3, a4], a2, a5, n] + S2[a1, a6, SP[a3, a4], a5, a2, n] - 
    S2[a1, a6, SP[a4, a5], a2, a3, n] - S2[a1, a6, SP[a4, a5], a3, a2, n] + 
    S2[a1, SP[a2, a4], a3, a6, a5, n] + S2[a1, SP[a3, a6], a2, a4, a5, n] + 
    S2[a1, SP[a3, a6], a2, a5, a4, n] + S2[a1, SP[a3, a6], a4, a2, a5, n] + 
    S2[a1, SP[a3, a6], a4, a5, a2, n] + S2[a1, SP[a3, a6], a5, a2, a4, n] + 
    S2[a1, SP[a3, a6], a5, a4, a2, n] - S2[a1, SP[a5, a6], a2, a3, a4, n] - 
    S2[a1, SP[a5, a6], a2, a4, a3, n] - S2[a1, SP[a5, a6], a3, a2, a4, n] - 
    S2[a1, SP[a5, a6], a3, a4, a2, n] - S2[a1, SP[a5, a6], a4, a2, a3, n] - 
    S2[a1, SP[a5, a6], a4, a3, a2, n] - S2[a3, a1, a2, a6, SP[a4, a5], n] - 
    S2[a3, a1, a2, SP[a4, a6], a5, n] - S2[a3, a1, a4, a6, SP[a2, a5], n] - 
    S2[a3, a1, a4, SP[a2, a6], a5, n] - S2[a3, a1, a6, a2, SP[a4, a5], n] - 
    S2[a3, a1, a6, a4, SP[a2, a5], n] - S2[a3, a1, a6, SP[a2, a5], a4, n] - 
    S2[a3, a1, a6, SP[a4, a5], a2, n] - S2[a3, a1, SP[a2, a6], a4, a5, n] - 
    S2[a3, a1, SP[a2, a6], a5, a4, n] - S2[a3, a1, SP[a4, a6], a2, a5, n] - 
    S2[a3, a1, SP[a4, a6], a5, a2, n] + S2[a5, n]*S2[a3, a6, a1, a2, a4, n] + 
    S2[a5, n]*S2[a3, a6, a1, a4, a2, n] - S2[a3, SP[a1, a6], a2, a4, a5, n] - 
    S2[a3, SP[a1, a6], a2, a5, a4, n] - S2[a3, SP[a1, a6], a4, a2, a5, n] - 
    S2[a3, SP[a1, a6], a4, a5, a2, n] - S2[a3, SP[a1, a6], a5, a2, a4, n] - 
    S2[a3, SP[a1, a6], a5, a4, a2, n] + S2[a3, SP[a5, a6], a1, a2, a4, n] + 
    S2[a3, SP[a5, a6], a1, a4, a2, n] + S2[a5, a1, a2, a4, SP[a3, a6], n] + 
    S2[a5, a1, a2, SP[a4, a6], a3, n] + S2[a5, a1, a4, a2, SP[a3, a6], n] + 
    S2[a5, a1, a4, a3, SP[a2, a6], n] + S2[a5, a1, a4, SP[a2, a6], a3, n] + 
    S2[a5, a1, a4, SP[a3, a6], a2, n] + S2[a5, a1, a6, a3, SP[a2, a4], n] + 
    S2[a5, a1, a6, SP[a2, a3], a4, n] + S2[a5, a1, SP[a2, a6], a3, a4, n] + 
    S2[a5, a1, SP[a2, a6], a4, a3, n] + S2[a5, a1, SP[a4, a6], a2, a3, n] + 
    S2[a5, a1, SP[a4, a6], a3, a2, n] - S2[a3, n]*S2[a5, a6, a1, a2, a4, n] - 
    S2[a5, a6, a1, a2, SP[a3, a4], n] + S2[a5, a6, a1, a3, SP[a2, a4], n] - 
    S2[a3, n]*S2[a5, a6, a1, a4, a2, n] - S2[a5, a6, a1, a4, SP[a2, a3], n] - 
    S2[a5, a6, a1, SP[a3, a4], a2, n] + S2[a5, a6, a3, a1, SP[a2, a4], n] + 
    S2[a5, a6, a3, SP[a1, a4], a2, n] + S2[a5, SP[a1, a6], a2, a3, a4, n] + 
    S2[a5, SP[a1, a6], a2, a4, a3, n] + S2[a5, SP[a1, a6], a3, a2, a4, n] + 
    S2[a5, SP[a1, a6], a3, a4, a2, n] + S2[a5, SP[a1, a6], a4, a2, a3, n] + 
    S2[a5, SP[a1, a6], a4, a3, a2, n] - S2[a5, SP[a3, a6], a1, a2, a4, n] - 
    S2[a5, SP[a3, a6], a1, a4, a2, n] - S2[a5, n]*S2[a6, a3, a4, a1, a2, n] - 
    S2[a6, a3, a4, a1, SP[a2, a5], n] - S2[a6, a3, a4, SP[a1, a5], a2, n] - 
    S2[a6, a3, SP[a4, a5], a1, a2, n] - S2[a6, SP[a3, a5], a4, a1, a2, n] + 
    S2[SP[a1, a2], a4, a3, a6, a5, n] - S2[SP[a5, a6], a3, a4, a1, a2, n] + 
    S2[a6, a3, a4, a1, a2, a5, n] + S2[a6, a3, a4, a1, a5, a2, n] + 
    S2[a6, a3, a4, a5, a1, a2, n] + S2[a6, a3, a5, a4, a1, a2, n] + 
    S2[a6, a5, a3, a4, a1, a2, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a2_, a1_, a4_, a5_, a3_, a6_, n_] :> 
  S2[a1, a2, a4, n]*S2[a3, a5, a6, n] + S2[a1, a4, a2, n]*S2[a3, a5, a6, n] + 
    S2[a1, a2, a4, n]*S2[a3, a6, a5, n] + S2[a1, a4, a2, n]*
     S2[a3, a6, a5, n] + S2[SP[a1, a3], SP[a2, a5], SP[a4, a6], n] + 
    S2[SP[a1, a3], SP[a2, a6], SP[a4, a5], n] + S2[SP[a1, a3], SP[a4, a5], 
     SP[a2, a6], n] + S2[SP[a1, a3], SP[a4, a6], SP[a2, a5], n] - 
    S2[a3, a6, n]*S2[a1, a2, a4, a5, n] + S2[a1, a2, SP[a3, a4], SP[a5, a6], 
     n] - S2[a1, a3, SP[a2, a5], SP[a4, a6], n] - S2[a1, a3, SP[a2, a6], 
     SP[a4, a5], n] - S2[a1, a3, SP[a4, a5], SP[a2, a6], n] - 
    S2[a1, a3, SP[a4, a6], SP[a2, a5], n] - S2[a3, a6, n]*
     S2[a1, a4, a2, a5, n] - S2[a3, a6, n]*S2[a1, a4, a5, a2, n] + 
    S2[a1, a4, SP[a2, a3], SP[a5, a6], n] + S2[a1, a4, SP[a3, a5], 
     SP[a2, a6], n] + S2[a1, SP[a2, a3], a4, SP[a5, a6], n] - 
    S2[a1, SP[a2, a3], a5, SP[a4, a6], n] - S2[a1, SP[a2, a3], a6, 
     SP[a4, a5], n] - S2[a1, SP[a2, a3], SP[a4, a5], a6, n] + 
    S2[a1, SP[a3, a4], a2, SP[a5, a6], n] - S2[a1, SP[a3, a4], a6, 
     SP[a2, a5], n] - S2[a1, SP[a3, a4], SP[a2, a5], a6, n] + 
    S2[a1, SP[a3, a4], SP[a5, a6], a2, n] - S2[a3, a1, SP[a2, a5], 
     SP[a4, a6], n] - S2[a3, a1, SP[a2, a6], SP[a4, a5], n] - 
    S2[a3, a1, SP[a4, a5], SP[a2, a6], n] - S2[a3, a1, SP[a4, a6], 
     SP[a2, a5], n] - S2[a1, a2, n]*S2[a3, a5, a4, a6, n] - 
    S2[a1, a2, n]*S2[a3, a5, a6, a4, n] + S2[a3, a5, SP[a1, a4], SP[a2, a6], 
     n] + S2[a3, a5, SP[a1, a6], SP[a2, a4], n] - 
    S2[a1, a2, n]*S2[a3, a6, a5, a4, n] + S2[a3, a6, SP[a1, a5], SP[a2, a4], 
     n] - S2[a3, SP[a1, a5], a2, SP[a4, a6], n] + S2[a3, SP[a1, a5], a6, 
     SP[a2, a4], n] + S2[a3, SP[a1, a5], SP[a2, a4], a6, n] - 
    S2[a3, SP[a1, a5], SP[a4, a6], a2, n] - S2[a3, SP[a1, a6], a2, 
     SP[a4, a5], n] - S2[a3, SP[a1, a6], a4, SP[a2, a5], n] + 
    S2[a3, SP[a1, a6], a5, SP[a2, a4], n] - S2[a3, SP[a1, a6], SP[a4, a5], 
     a2, n] + S2[SP[a1, a3], a2, a4, SP[a5, a6], n] - 
    S2[SP[a1, a3], a2, a5, SP[a4, a6], n] - S2[SP[a1, a3], a2, a6, 
     SP[a4, a5], n] - S2[SP[a1, a3], a2, SP[a4, a5], a6, n] + 
    S2[SP[a1, a3], a4, a2, SP[a5, a6], n] - S2[SP[a1, a3], a4, a6, 
     SP[a2, a5], n] - S2[SP[a1, a3], a4, SP[a2, a5], a6, n] + 
    S2[SP[a1, a3], a4, SP[a5, a6], a2, n] - S2[SP[a1, a3], a5, a2, 
     SP[a4, a6], n] + S2[SP[a1, a3], a5, a6, SP[a2, a4], n] + 
    S2[SP[a1, a3], a5, SP[a2, a4], a6, n] - S2[SP[a1, a3], a5, SP[a4, a6], 
     a2, n] - S2[SP[a1, a3], a6, a2, SP[a4, a5], n] - 
    S2[SP[a1, a3], a6, a4, SP[a2, a5], n] + S2[SP[a1, a3], a6, a5, 
     SP[a2, a4], n] - S2[SP[a1, a3], a6, SP[a4, a5], a2, n] - 
    S2[SP[a1, a3], SP[a4, a5], a2, a6, n] - S2[SP[a1, a3], SP[a4, a5], a6, 
     a2, n] - S2[a1, a2, a3, a4, SP[a5, a6], n] + 
    S2[a1, a2, a3, a5, SP[a4, a6], n] + S2[a1, a2, a3, a6, SP[a4, a5], n] + 
    S2[a1, a2, a3, SP[a4, a5], a6, n] - S2[a1, a2, a4, a3, SP[a5, a6], n] - 
    S2[a1, a2, a4, SP[a3, a5], a6, n] - S2[a1, a3, a2, a4, SP[a5, a6], n] + 
    S2[a1, a3, a2, a5, SP[a4, a6], n] + S2[a1, a3, a2, a6, SP[a4, a5], n] + 
    S2[a1, a3, a2, SP[a4, a5], a6, n] - S2[a1, a3, a4, a2, SP[a5, a6], n] + 
    S2[a1, a3, a4, a6, SP[a2, a5], n] + S2[a1, a3, a4, SP[a2, a5], a6, n] - 
    S2[a1, a3, a4, SP[a5, a6], a2, n] + S2[a1, a3, a5, a2, SP[a4, a6], n] - 
    S2[a1, a3, a5, a6, SP[a2, a4], n] - S2[a1, a3, a5, SP[a2, a4], a6, n] + 
    S2[a1, a3, a5, SP[a4, a6], a2, n] + S2[a1, a3, a6, a2, SP[a4, a5], n] + 
    S2[a1, a3, a6, a4, SP[a2, a5], n] - S2[a1, a3, a6, a5, SP[a2, a4], n] + 
    S2[a1, a3, a6, SP[a4, a5], a2, n] + S2[a1, a3, SP[a4, a5], a2, a6, n] + 
    S2[a1, a3, SP[a4, a5], a6, a2, n] - S2[a1, a4, a2, a3, SP[a5, a6], n] - 
    S2[a1, a4, a2, SP[a3, a5], a6, n] - S2[a1, a4, a3, a2, SP[a5, a6], n] + 
    S2[a1, a4, a3, a6, SP[a2, a5], n] + S2[a1, a4, a3, SP[a2, a5], a6, n] - 
    S2[a1, a4, a3, SP[a5, a6], a2, n] + S2[a2, n]*S2[a1, a4, a5, a3, a6, n] + 
    S2[a1, a4, SP[a2, a5], a3, a6, n] - S2[a1, a4, SP[a3, a5], a2, a6, n] - 
    S2[a1, a4, SP[a3, a5], a6, a2, n] + S2[a1, SP[a2, a4], a5, a3, a6, n] - 
    S2[a3, a1, a2, a4, SP[a5, a6], n] + S2[a3, a1, a2, a5, SP[a4, a6], n] + 
    S2[a3, a1, a2, a6, SP[a4, a5], n] + S2[a3, a1, a2, SP[a4, a5], a6, n] - 
    S2[a3, a1, a4, a2, SP[a5, a6], n] + S2[a3, a1, a4, a6, SP[a2, a5], n] + 
    S2[a3, a1, a4, SP[a2, a5], a6, n] - S2[a3, a1, a4, SP[a5, a6], a2, n] + 
    S2[a3, a1, a5, a2, SP[a4, a6], n] - S2[a3, a1, a5, a6, SP[a2, a4], n] - 
    S2[a3, a1, a5, SP[a2, a4], a6, n] + S2[a3, a1, a5, SP[a4, a6], a2, n] + 
    S2[a3, a1, a6, a2, SP[a4, a5], n] + S2[a3, a1, a6, a4, SP[a2, a5], n] - 
    S2[a3, a1, a6, a5, SP[a2, a4], n] + S2[a3, a1, a6, SP[a4, a5], a2, n] + 
    S2[a3, a1, SP[a4, a5], a2, a6, n] + S2[a3, a1, SP[a4, a5], a6, a2, n] + 
    S2[a3, a5, a1, a2, SP[a4, a6], n] - S2[a3, a5, a1, a6, SP[a2, a4], n] - 
    S2[a3, a5, a1, SP[a2, a4], a6, n] + S2[a3, a5, a1, SP[a4, a6], a2, n] + 
    S2[a6, n]*S2[a3, a5, a4, a1, a2, n] - S2[a3, a5, a6, a1, SP[a2, a4], n] - 
    S2[a3, a5, a6, SP[a1, a4], a2, n] - S2[a3, a5, SP[a1, a4], a2, a6, n] - 
    S2[a3, a5, SP[a1, a4], a6, a2, n] + S2[a3, a5, SP[a4, a6], a1, a2, n] + 
    S2[a3, a6, a1, a2, SP[a4, a5], n] + S2[a3, a6, a1, a4, SP[a2, a5], n] - 
    S2[a3, a6, a1, a5, SP[a2, a4], n] + S2[a3, a6, a1, SP[a4, a5], a2, n] - 
    S2[a3, a6, a5, a1, SP[a2, a4], n] - S2[a3, a6, a5, SP[a1, a4], a2, n] + 
    S2[a3, SP[a5, a6], a4, a1, a2, n] + S2[SP[a1, a2], a4, a5, a3, a6, n] + 
    S2[SP[a3, a6], a5, a4, a1, a2, n] - S2[a6, a3, a5, a4, a1, a2, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a2_, a1_, a4_, a5_, a6_, a3_, n_] :> 
  -(S2[a1, a2, a4, n]*S2[a3, a6, a5, n]) - S2[a1, a4, a2, n]*
     S2[a3, a6, a5, n] - S2[SP[a1, a3], SP[a2, a6], SP[a4, a5], n] - 
    S2[SP[a1, a3], SP[a4, a6], SP[a2, a5], n] + 
    S2[a3, a6, n]*S2[a1, a2, a4, a5, n] - S2[a1, a2, SP[a3, a4], SP[a5, a6], 
     n] + S2[a1, a3, SP[a2, a6], SP[a4, a5], n] + S2[a1, a3, SP[a4, a6], 
     SP[a2, a5], n] + S2[a3, a6, n]*S2[a1, a4, a2, a5, n] + 
    S2[a3, a6, n]*S2[a1, a4, a5, a2, n] - S2[a1, a4, SP[a2, a3], SP[a5, a6], 
     n] - S2[a1, a4, SP[a3, a5], SP[a2, a6], n] - S2[a1, SP[a2, a3], a4, 
     SP[a5, a6], n] + S2[a1, SP[a2, a3], a6, SP[a4, a5], n] - 
    S2[a1, SP[a3, a4], a2, SP[a5, a6], n] - S2[a1, SP[a3, a4], a5, 
     SP[a2, a6], n] + S2[a1, SP[a3, a4], a6, SP[a2, a5], n] - 
    S2[a1, SP[a3, a4], SP[a5, a6], a2, n] + S2[a3, a1, SP[a2, a6], 
     SP[a4, a5], n] + S2[a3, a1, SP[a4, a6], SP[a2, a5], n] + 
    S2[a1, a2, n]*S2[a3, a6, a5, a4, n] - S2[a3, a6, SP[a1, a5], SP[a2, a4], 
     n] + S2[a3, SP[a1, a6], a2, SP[a4, a5], n] + S2[a3, SP[a1, a6], a4, 
     SP[a2, a5], n] - S2[a3, SP[a1, a6], a5, SP[a2, a4], n] + 
    S2[a3, SP[a1, a6], SP[a4, a5], a2, n] - S2[SP[a1, a3], a2, a4, 
     SP[a5, a6], n] + S2[SP[a1, a3], a2, a6, SP[a4, a5], n] - 
    S2[SP[a1, a3], a4, a2, SP[a5, a6], n] - S2[SP[a1, a3], a4, a5, 
     SP[a2, a6], n] + S2[SP[a1, a3], a4, a6, SP[a2, a5], n] - 
    S2[SP[a1, a3], a4, SP[a5, a6], a2, n] + S2[SP[a1, a3], a6, a2, 
     SP[a4, a5], n] + S2[SP[a1, a3], a6, a4, SP[a2, a5], n] - 
    S2[SP[a1, a3], a6, a5, SP[a2, a4], n] + S2[SP[a1, a3], a6, SP[a4, a5], 
     a2, n] + S2[a1, a2, a3, a4, SP[a5, a6], n] - 
    S2[a1, a2, a3, a6, SP[a4, a5], n] + S2[a1, a2, a4, a3, SP[a5, a6], n] - 
    S2[a3, n]*S2[a1, a2, a4, a5, a6, n] - S2[a1, a2, a4, a5, SP[a3, a6], n] + 
    S2[a1, a3, a2, a4, SP[a5, a6], n] - S2[a1, a3, a2, a6, SP[a4, a5], n] + 
    S2[a1, a3, a4, a2, SP[a5, a6], n] + S2[a1, a3, a4, a5, SP[a2, a6], n] - 
    S2[a1, a3, a4, a6, SP[a2, a5], n] + S2[a1, a3, a4, SP[a5, a6], a2, n] - 
    S2[a1, a3, a6, a2, SP[a4, a5], n] - S2[a1, a3, a6, a4, SP[a2, a5], n] + 
    S2[a1, a3, a6, a5, SP[a2, a4], n] - S2[a1, a3, a6, SP[a4, a5], a2, n] + 
    S2[a1, a4, a2, a3, SP[a5, a6], n] - S2[a3, n]*S2[a1, a4, a2, a5, a6, n] - 
    S2[a1, a4, a2, a5, SP[a3, a6], n] + S2[a1, a4, a3, a2, SP[a5, a6], n] + 
    S2[a1, a4, a3, a5, SP[a2, a6], n] - S2[a1, a4, a3, a6, SP[a2, a5], n] + 
    S2[a1, a4, a3, SP[a5, a6], a2, n] - S2[a3, n]*S2[a1, a4, a5, a2, a6, n] - 
    S2[a1, a4, a5, a2, SP[a3, a6], n] + S2[a1, a4, a5, a3, SP[a2, a6], n] - 
    S2[a3, n]*S2[a1, a4, a5, a6, a2, n] + 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] + S2[a1, a4, a5, SP[a2, a6], a3, n] - 
    S2[a1, a4, a5, SP[a3, a6], a2, n] + S2[a1, a4, SP[a2, a5], a6, a3, n] + 
    S2[a1, SP[a2, a4], a5, a6, a3, n] + S2[a3, a1, a2, a4, SP[a5, a6], n] - 
    S2[a3, a1, a2, a6, SP[a4, a5], n] + S2[a3, a1, a4, a2, SP[a5, a6], n] + 
    S2[a3, a1, a4, a5, SP[a2, a6], n] - S2[a3, a1, a4, a6, SP[a2, a5], n] + 
    S2[a3, a1, a4, SP[a5, a6], a2, n] - S2[a3, a1, a6, a2, SP[a4, a5], n] - 
    S2[a3, a1, a6, a4, SP[a2, a5], n] + S2[a3, a1, a6, a5, SP[a2, a4], n] - 
    S2[a3, a1, a6, SP[a4, a5], a2, n] - S2[a3, a6, a1, a2, SP[a4, a5], n] - 
    S2[a3, a6, a1, a4, SP[a2, a5], n] + S2[a3, a6, a1, a5, SP[a2, a4], n] - 
    S2[a3, a6, a1, SP[a4, a5], a2, n] + S2[a3, a6, a5, a1, SP[a2, a4], n] + 
    S2[a3, a6, a5, SP[a1, a4], a2, n] - S2[a3, n]*S2[a6, a5, a4, a1, a2, n] - 
    S2[a6, a5, a4, a1, SP[a2, a3], n] - S2[a6, a5, a4, SP[a1, a3], a2, n] - 
    S2[a6, a5, SP[a3, a4], a1, a2, n] - S2[a6, SP[a3, a5], a4, a1, a2, n] + 
    S2[SP[a1, a2], a4, a5, a6, a3, n] - S2[SP[a3, a6], a5, a4, a1, a2, n] + 
    S2[a6, a3, a5, a4, a1, a2, n] + S2[a6, a5, a3, a4, a1, a2, n] + 
    S2[a6, a5, a4, a1, a2, a3, n] + S2[a6, a5, a4, a1, a3, a2, n] + 
    S2[a6, a5, a4, a3, a1, a2, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a2_, a1_, a4_, a6_, a3_, a5_, n_] :> 
  S2[a1, a2, a4, n]*S2[a3, a5, a6, n] + S2[a1, a4, a2, n]*S2[a3, a5, a6, n] + 
    S2[a1, a2, a4, n]*S2[a3, a6, a5, n] + S2[a1, a4, a2, n]*
     S2[a3, a6, a5, n] + S2[SP[a1, a3], SP[a2, a5], SP[a4, a6], n] + 
    S2[SP[a1, a3], SP[a2, a6], SP[a4, a5], n] + S2[SP[a1, a3], SP[a4, a5], 
     SP[a2, a6], n] + S2[SP[a1, a3], SP[a4, a6], SP[a2, a5], n] - 
    S2[a1, a3, SP[a2, a5], SP[a4, a6], n] - S2[a1, a3, SP[a2, a6], 
     SP[a4, a5], n] - S2[a1, a3, SP[a4, a5], SP[a2, a6], n] - 
    S2[a1, a3, SP[a4, a6], SP[a2, a5], n] - S2[a1, SP[a2, a3], a5, 
     SP[a4, a6], n] - S2[a1, SP[a2, a3], a6, SP[a4, a5], n] - 
    S2[a1, SP[a2, a3], SP[a4, a5], a6, n] - S2[a1, SP[a2, a3], SP[a4, a6], 
     a5, n] - S2[a1, SP[a3, a4], a5, SP[a2, a6], n] - 
    S2[a1, SP[a3, a4], a6, SP[a2, a5], n] - S2[a1, SP[a3, a4], SP[a2, a5], 
     a6, n] - S2[a1, SP[a3, a4], SP[a2, a6], a5, n] - 
    S2[a3, a1, SP[a2, a5], SP[a4, a6], n] - S2[a3, a1, SP[a2, a6], 
     SP[a4, a5], n] - S2[a3, a1, SP[a4, a5], SP[a2, a6], n] - 
    S2[a3, a1, SP[a4, a6], SP[a2, a5], n] - S2[a3, SP[a1, a5], a2, 
     SP[a4, a6], n] - S2[a3, SP[a1, a5], a4, SP[a2, a6], n] - 
    S2[a3, SP[a1, a5], SP[a2, a6], a4, n] - S2[a3, SP[a1, a5], SP[a4, a6], 
     a2, n] - S2[a3, SP[a1, a6], a2, SP[a4, a5], n] - 
    S2[a3, SP[a1, a6], a4, SP[a2, a5], n] - S2[a3, SP[a1, a6], SP[a2, a5], 
     a4, n] - S2[a3, SP[a1, a6], SP[a4, a5], a2, n] - 
    S2[a1, a2, n]*S2[a4, a6, a3, a5, n] + S2[a4, a6, SP[a1, a3], SP[a2, a5], 
     n] + S2[a4, SP[a1, a6], a3, SP[a2, a5], n] + 
    S2[a4, SP[a1, a6], SP[a2, a3], a5, n] - S2[SP[a1, a3], a2, a5, 
     SP[a4, a6], n] - S2[SP[a1, a3], a2, a6, SP[a4, a5], n] - 
    S2[SP[a1, a3], a2, SP[a4, a5], a6, n] - S2[SP[a1, a3], a2, SP[a4, a6], 
     a5, n] - S2[SP[a1, a3], a4, a5, SP[a2, a6], n] - 
    S2[SP[a1, a3], a4, a6, SP[a2, a5], n] - S2[SP[a1, a3], a4, SP[a2, a5], 
     a6, n] - S2[SP[a1, a3], a4, SP[a2, a6], a5, n] - 
    S2[SP[a1, a3], a5, a2, SP[a4, a6], n] - S2[SP[a1, a3], a5, a4, 
     SP[a2, a6], n] - S2[SP[a1, a3], a5, SP[a2, a6], a4, n] - 
    S2[SP[a1, a3], a5, SP[a4, a6], a2, n] - S2[SP[a1, a3], a6, a2, 
     SP[a4, a5], n] - S2[SP[a1, a3], a6, a4, SP[a2, a5], n] - 
    S2[SP[a1, a3], a6, SP[a2, a5], a4, n] - S2[SP[a1, a3], a6, SP[a4, a5], 
     a2, n] - S2[SP[a1, a3], SP[a2, a5], a4, a6, n] - 
    S2[SP[a1, a3], SP[a2, a5], a6, a4, n] - S2[SP[a1, a3], SP[a2, a6], a4, 
     a5, n] - S2[SP[a1, a3], SP[a2, a6], a5, a4, n] - 
    S2[SP[a1, a3], SP[a4, a5], a2, a6, n] - S2[SP[a1, a3], SP[a4, a5], a6, 
     a2, n] - S2[SP[a1, a3], SP[a4, a6], a2, a5, n] - 
    S2[SP[a1, a3], SP[a4, a6], a5, a2, n] + S2[SP[a1, a4], a6, a3, 
     SP[a2, a5], n] + S2[SP[a1, a4], a6, SP[a2, a3], a5, n] + 
    S2[SP[a1, a4], SP[a2, a6], a3, a5, n] + S2[a1, a2, a3, a5, SP[a4, a6], 
     n] + S2[a1, a2, a3, a6, SP[a4, a5], n] + S2[a1, a2, a3, SP[a4, a5], a6, 
     n] + S2[a1, a2, a3, SP[a4, a6], a5, n] + 
    S2[a6, n]*S2[a1, a2, a4, a5, a3, n] - 
    S2[a3, n]*S2[a1, a2, a4, a5, a6, n] - 
    S2[a3, n]*S2[a1, a2, a4, a6, a5, n] - S2[a1, a2, a4, a6, SP[a3, a5], n] - 
    S2[a1, a2, a4, SP[a3, a5], a6, n] - S2[a1, a2, a4, SP[a3, a6], a5, n] + 
    S2[a1, a2, a4, SP[a5, a6], a3, n] + S2[a6, n]*S2[a1, a2, a5, a3, a4, n] + 
    S2[a1, a2, a5, a3, SP[a4, a6], n] + S2[a6, n]*S2[a1, a2, a5, a4, a3, n] - 
    S2[a3, n]*S2[a1, a2, a5, a4, a6, n] - 
    S2[a3, n]*S2[a1, a2, a5, a6, a4, n] - S2[a1, a2, a5, a6, SP[a3, a4], n] - 
    S2[a1, a2, a5, SP[a3, a4], a6, n] + S2[a1, a2, a5, SP[a4, a6], a3, n] + 
    S2[a4, n]*S2[a1, a2, a6, a3, a5, n] + S2[a1, a2, a6, a3, SP[a4, a5], n] - 
    S2[a3, n]*S2[a1, a2, a6, a4, a5, n] - S2[a1, a2, a6, a4, SP[a3, a5], n] - 
    S2[a3, n]*S2[a1, a2, a6, a5, a4, n] - S2[a1, a2, a6, a5, SP[a3, a4], n] - 
    S2[a1, a2, a6, SP[a3, a5], a4, n] - S2[a1, a2, SP[a3, a5], a4, a6, n] - 
    S2[a1, a2, SP[a3, a5], a6, a4, n] - S2[a1, a2, SP[a3, a6], a4, a5, n] - 
    S2[a1, a2, SP[a3, a6], a5, a4, n] + S2[a1, a2, SP[a4, a6], a3, a5, n] + 
    S2[a1, a2, SP[a4, a6], a5, a3, n] + S2[a1, a2, SP[a5, a6], a3, a4, n] + 
    S2[a1, a2, SP[a5, a6], a4, a3, n] + S2[a1, a3, a2, a5, SP[a4, a6], n] + 
    S2[a1, a3, a2, a6, SP[a4, a5], n] + S2[a1, a3, a2, SP[a4, a5], a6, n] + 
    S2[a1, a3, a2, SP[a4, a6], a5, n] + S2[a1, a3, a4, a5, SP[a2, a6], n] + 
    S2[a1, a3, a4, a6, SP[a2, a5], n] + S2[a1, a3, a4, SP[a2, a5], a6, n] + 
    S2[a1, a3, a4, SP[a2, a6], a5, n] + S2[a1, a3, a5, a2, SP[a4, a6], n] + 
    S2[a1, a3, a5, a4, SP[a2, a6], n] + S2[a1, a3, a5, SP[a2, a6], a4, n] + 
    S2[a1, a3, a5, SP[a4, a6], a2, n] + S2[a1, a3, a6, a2, SP[a4, a5], n] + 
    S2[a1, a3, a6, a4, SP[a2, a5], n] + S2[a1, a3, a6, SP[a2, a5], a4, n] + 
    S2[a1, a3, a6, SP[a4, a5], a2, n] + S2[a1, a3, SP[a2, a5], a4, a6, n] + 
    S2[a1, a3, SP[a2, a5], a6, a4, n] + S2[a1, a3, SP[a2, a6], a4, a5, n] + 
    S2[a1, a3, SP[a2, a6], a5, a4, n] + S2[a1, a3, SP[a4, a5], a2, a6, n] + 
    S2[a1, a3, SP[a4, a5], a6, a2, n] + S2[a1, a3, SP[a4, a6], a2, a5, n] + 
    S2[a1, a3, SP[a4, a6], a5, a2, n] + S2[a6, n]*S2[a1, a4, a2, a5, a3, n] - 
    S2[a3, n]*S2[a1, a4, a2, a5, a6, n] - 
    S2[a3, n]*S2[a1, a4, a2, a6, a5, n] - S2[a1, a4, a2, a6, SP[a3, a5], n] - 
    S2[a1, a4, a2, SP[a3, a5], a6, n] - S2[a1, a4, a2, SP[a3, a6], a5, n] + 
    S2[a1, a4, a2, SP[a5, a6], a3, n] + S2[a1, a4, a3, a5, SP[a2, a6], n] + 
    S2[a1, a4, a3, a6, SP[a2, a5], n] + S2[a1, a4, a3, SP[a2, a5], a6, n] + 
    S2[a1, a4, a3, SP[a2, a6], a5, n] + S2[a6, n]*S2[a1, a4, a5, a2, a3, n] - 
    S2[a3, n]*S2[a1, a4, a5, a2, a6, n] + 
    S2[a6, n]*S2[a1, a4, a5, a3, a2, n] + S2[a1, a4, a5, a3, SP[a2, a6], n] - 
    S2[a3, n]*S2[a1, a4, a5, a6, a2, n] - S2[a1, a4, a5, a6, SP[a2, a3], n] - 
    S2[a1, a4, a5, SP[a2, a3], a6, n] + S2[a1, a4, a5, SP[a2, a6], a3, n] - 
    S2[a3, n]*S2[a1, a4, a6, a2, a5, n] - S2[a1, a4, a6, a2, SP[a3, a5], n] + 
    S2[a2, n]*S2[a1, a4, a6, a3, a5, n] - 
    S2[a3, n]*S2[a1, a4, a6, a5, a2, n] - S2[a1, a4, a6, a5, SP[a2, a3], n] - 
    S2[a1, a4, a6, SP[a2, a3], a5, n] - S2[a1, a4, a6, SP[a3, a5], a2, n] + 
    S2[a1, a4, SP[a2, a6], a5, a3, n] - S2[a1, a4, SP[a3, a5], a2, a6, n] - 
    S2[a1, a4, SP[a3, a5], a6, a2, n] - S2[a1, a4, SP[a3, a6], a2, a5, n] - 
    S2[a1, a4, SP[a3, a6], a5, a2, n] + S2[a1, a4, SP[a5, a6], a2, a3, n] + 
    S2[a1, a4, SP[a5, a6], a3, a2, n] + S2[a6, n]*S2[a1, a5, a2, a3, a4, n] + 
    S2[a1, a5, a2, a3, SP[a4, a6], n] + S2[a6, n]*S2[a1, a5, a2, a4, a3, n] - 
    S2[a3, n]*S2[a1, a5, a2, a4, a6, n] - 
    S2[a3, n]*S2[a1, a5, a2, a6, a4, n] - S2[a1, a5, a2, a6, SP[a3, a4], n] - 
    S2[a1, a5, a2, SP[a3, a4], a6, n] + S2[a1, a5, a2, SP[a4, a6], a3, n] + 
    S2[a6, n]*S2[a1, a5, a3, a2, a4, n] + S2[a1, a5, a3, a2, SP[a4, a6], n] + 
    S2[a6, n]*S2[a1, a5, a3, a4, a2, n] + S2[a1, a5, a3, a4, SP[a2, a6], n] + 
    S2[a1, a5, a3, SP[a2, a6], a4, n] + S2[a1, a5, a3, SP[a4, a6], a2, n] + 
    S2[a6, n]*S2[a1, a5, a4, a2, a3, n] - 
    S2[a3, n]*S2[a1, a5, a4, a2, a6, n] + 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] + S2[a1, a5, a4, a3, SP[a2, a6], n] - 
    S2[a3, n]*S2[a1, a5, a4, a6, a2, n] - S2[a1, a5, a4, a6, SP[a2, a3], n] - 
    S2[a1, a5, a4, SP[a2, a3], a6, n] + S2[a1, a5, a4, SP[a2, a6], a3, n] - 
    S2[a3, n]*S2[a1, a5, a6, a2, a4, n] - S2[a1, a5, a6, a2, SP[a3, a4], n] - 
    S2[a3, n]*S2[a1, a5, a6, a4, a2, n] - S2[a1, a5, a6, a4, SP[a2, a3], n] - 
    S2[a1, a5, a6, SP[a2, a3], a4, n] - S2[a1, a5, a6, SP[a3, a4], a2, n] - 
    S2[a1, a5, SP[a2, a3], a4, a6, n] - S2[a1, a5, SP[a2, a3], a6, a4, n] + 
    S2[a1, a5, SP[a2, a6], a3, a4, n] + S2[a1, a5, SP[a2, a6], a4, a3, n] - 
    S2[a1, a5, SP[a3, a4], a2, a6, n] - S2[a1, a5, SP[a3, a4], a6, a2, n] + 
    S2[a1, a5, SP[a4, a6], a2, a3, n] + S2[a1, a5, SP[a4, a6], a3, a2, n] + 
    S2[a4, n]*S2[a1, a6, a2, a3, a5, n] + S2[a1, a6, a2, a3, SP[a4, a5], n] - 
    S2[a3, n]*S2[a1, a6, a2, a4, a5, n] - S2[a1, a6, a2, a4, SP[a3, a5], n] - 
    S2[a3, n]*S2[a1, a6, a2, a5, a4, n] - S2[a1, a6, a2, a5, SP[a3, a4], n] - 
    S2[a1, a6, a2, SP[a3, a5], a4, n] + S2[a4, n]*S2[a1, a6, a3, a2, a5, n] + 
    S2[a1, a6, a3, a2, SP[a4, a5], n] + S2[a4, n]*S2[a1, a6, a3, a5, a2, n] + 
    S2[a1, a6, a3, a5, SP[a2, a4], n] + S2[a1, a6, a3, SP[a2, a4], a5, n] + 
    S2[a1, a6, a3, SP[a4, a5], a2, n] - S2[a3, n]*S2[a1, a6, a4, a2, a5, n] - 
    S2[a1, a6, a4, a2, SP[a3, a5], n] - S2[a3, n]*S2[a1, a6, a4, a5, a2, n] - 
    S2[a1, a6, a4, a5, SP[a2, a3], n] - S2[a1, a6, a4, SP[a2, a3], a5, n] - 
    S2[a1, a6, a4, SP[a3, a5], a2, n] - S2[a3, n]*S2[a1, a6, a5, a2, a4, n] - 
    S2[a1, a6, a5, a2, SP[a3, a4], n] - S2[a3, n]*S2[a1, a6, a5, a4, a2, n] - 
    S2[a1, a6, a5, a4, SP[a2, a3], n] - S2[a1, a6, a5, SP[a2, a3], a4, n] - 
    S2[a1, a6, a5, SP[a3, a4], a2, n] - S2[a1, a6, SP[a2, a3], a4, a5, n] - 
    S2[a1, a6, SP[a2, a3], a5, a4, n] + S2[a1, a6, SP[a2, a4], a3, a5, n] - 
    S2[a1, a6, SP[a3, a5], a2, a4, n] - S2[a1, a6, SP[a3, a5], a4, a2, n] + 
    S2[a1, SP[a2, a4], a6, a3, a5, n] + S2[a1, SP[a2, a6], a4, a5, a3, n] + 
    S2[a1, SP[a2, a6], a5, a3, a4, n] + S2[a1, SP[a2, a6], a5, a4, a3, n] - 
    S2[a1, SP[a3, a5], a2, a4, a6, n] - S2[a1, SP[a3, a5], a2, a6, a4, n] - 
    S2[a1, SP[a3, a5], a4, a2, a6, n] - S2[a1, SP[a3, a5], a4, a6, a2, n] - 
    S2[a1, SP[a3, a5], a6, a2, a4, n] - S2[a1, SP[a3, a5], a6, a4, a2, n] - 
    S2[a1, SP[a3, a6], a2, a4, a5, n] - S2[a1, SP[a3, a6], a2, a5, a4, n] - 
    S2[a1, SP[a3, a6], a4, a2, a5, n] - S2[a1, SP[a3, a6], a4, a5, a2, n] - 
    S2[a1, SP[a3, a6], a5, a2, a4, n] - S2[a1, SP[a3, a6], a5, a4, a2, n] + 
    S2[a1, SP[a4, a6], a2, a3, a5, n] + S2[a1, SP[a4, a6], a2, a5, a3, n] + 
    S2[a1, SP[a4, a6], a3, a2, a5, n] + S2[a1, SP[a4, a6], a3, a5, a2, n] + 
    S2[a1, SP[a4, a6], a5, a2, a3, n] + S2[a1, SP[a4, a6], a5, a3, a2, n] + 
    S2[a1, SP[a5, a6], a2, a3, a4, n] + S2[a1, SP[a5, a6], a2, a4, a3, n] + 
    S2[a1, SP[a5, a6], a3, a2, a4, n] + S2[a1, SP[a5, a6], a3, a4, a2, n] + 
    S2[a1, SP[a5, a6], a4, a2, a3, n] + S2[a1, SP[a5, a6], a4, a3, a2, n] + 
    S2[a3, a1, a2, a5, SP[a4, a6], n] + S2[a3, a1, a2, a6, SP[a4, a5], n] + 
    S2[a3, a1, a2, SP[a4, a5], a6, n] + S2[a3, a1, a2, SP[a4, a6], a5, n] + 
    S2[a3, a1, a4, a5, SP[a2, a6], n] + S2[a3, a1, a4, a6, SP[a2, a5], n] + 
    S2[a3, a1, a4, SP[a2, a5], a6, n] + S2[a3, a1, a4, SP[a2, a6], a5, n] + 
    S2[a3, a1, a5, a2, SP[a4, a6], n] + S2[a3, a1, a5, a4, SP[a2, a6], n] + 
    S2[a3, a1, a5, SP[a2, a6], a4, n] + S2[a3, a1, a5, SP[a4, a6], a2, n] + 
    S2[a3, a1, a6, a2, SP[a4, a5], n] + S2[a3, a1, a6, a4, SP[a2, a5], n] + 
    S2[a3, a1, a6, SP[a2, a5], a4, n] + S2[a3, a1, a6, SP[a4, a5], a2, n] + 
    S2[a3, a1, SP[a2, a5], a4, a6, n] + S2[a3, a1, SP[a2, a5], a6, a4, n] + 
    S2[a3, a1, SP[a2, a6], a4, a5, n] + S2[a3, a1, SP[a2, a6], a5, a4, n] + 
    S2[a3, a1, SP[a4, a5], a2, a6, n] + S2[a3, a1, SP[a4, a5], a6, a2, n] + 
    S2[a3, a1, SP[a4, a6], a2, a5, n] + S2[a3, a1, SP[a4, a6], a5, a2, n] - 
    S2[a6, n]*S2[a3, a5, a1, a2, a4, n] - 
    S2[a6, n]*S2[a3, a5, a1, a4, a2, n] - 
    S2[a4, n]*S2[a3, a6, a1, a2, a5, n] + S2[a3, a6, a1, a4, SP[a2, a5], n] - 
    S2[a4, n]*S2[a3, a6, a1, a5, a2, n] - S2[a3, a6, a1, a5, SP[a2, a4], n] - 
    S2[a3, a6, a1, SP[a2, a4], a5, n] + S2[a3, a6, a1, SP[a2, a5], a4, n] - 
    S2[a3, a6, SP[a1, a4], a2, a5, n] - S2[a3, a6, SP[a1, a4], a5, a2, n] + 
    S2[a3, a6, SP[a1, a5], a2, a4, n] + S2[a3, a6, SP[a1, a5], a4, a2, n] + 
    S2[a3, SP[a1, a5], a2, a4, a6, n] + S2[a3, SP[a1, a5], a2, a6, a4, n] + 
    S2[a3, SP[a1, a5], a4, a2, a6, n] + S2[a3, SP[a1, a5], a4, a6, a2, n] + 
    S2[a3, SP[a1, a5], a6, a2, a4, n] + S2[a3, SP[a1, a5], a6, a4, a2, n] + 
    S2[a3, SP[a1, a6], a2, a4, a5, n] + S2[a3, SP[a1, a6], a2, a5, a4, n] + 
    S2[a3, SP[a1, a6], a4, a2, a5, n] + S2[a3, SP[a1, a6], a4, a5, a2, n] + 
    S2[a3, SP[a1, a6], a5, a2, a4, n] + S2[a3, SP[a1, a6], a5, a4, a2, n] - 
    S2[a3, SP[a4, a6], a1, a2, a5, n] - S2[a3, SP[a4, a6], a1, a5, a2, n] - 
    S2[a3, SP[a5, a6], a1, a2, a4, n] - S2[a3, SP[a5, a6], a1, a4, a2, n] - 
    S2[a4, a1, a6, a3, SP[a2, a5], n] - S2[a4, a1, a6, SP[a2, a3], a5, n] - 
    S2[a4, a1, SP[a2, a6], a3, a5, n] + S2[a3, n]*S2[a4, a6, a1, a2, a5, n] + 
    S2[a4, a6, a1, a2, SP[a3, a5], n] - S2[a4, a6, a1, a3, SP[a2, a5], n] + 
    S2[a3, n]*S2[a4, a6, a1, a5, a2, n] + S2[a4, a6, a1, a5, SP[a2, a3], n] + 
    S2[a4, a6, a1, SP[a3, a5], a2, n] - S2[a4, a6, a3, a1, SP[a2, a5], n] - 
    S2[a4, a6, a3, SP[a1, a5], a2, n] - S2[a4, SP[a1, a6], a2, a3, a5, n] - 
    S2[a4, SP[a1, a6], a3, a2, a5, n] - S2[a4, SP[a1, a6], a3, a5, a2, n] + 
    S2[a4, SP[a3, a6], a1, a2, a5, n] + S2[a4, SP[a3, a6], a1, a5, a2, n] - 
    S2[a4, n]*S2[a6, a1, a2, a5, a3, n] - S2[a6, a1, a2, a5, SP[a3, a4], n] - 
    S2[a6, a1, a2, SP[a4, a5], a3, n] - S2[a4, n]*S2[a6, a1, a5, a2, a3, n] - 
    S2[a6, a1, a5, a2, SP[a3, a4], n] - S2[a4, n]*S2[a6, a1, a5, a3, a2, n] - 
    S2[a6, a1, a5, a3, SP[a2, a4], n] - S2[a6, a1, a5, SP[a2, a4], a3, n] - 
    S2[a6, a1, a5, SP[a3, a4], a2, n] - S2[a6, a1, SP[a2, a4], a5, a3, n] - 
    S2[a6, a1, SP[a4, a5], a2, a3, n] - S2[a6, a1, SP[a4, a5], a3, a2, n] + 
    S2[a4, n]*S2[a6, a3, a5, a1, a2, n] + S2[a6, a3, a5, a1, SP[a2, a4], n] + 
    S2[a6, a3, a5, SP[a1, a4], a2, n] + S2[a6, a3, SP[a4, a5], a1, a2, n] + 
    S2[a3, n]*S2[a6, a4, a1, a2, a5, n] + S2[a6, a4, a1, a2, SP[a3, a5], n] + 
    S2[a3, n]*S2[a6, a4, a1, a5, a2, n] + S2[a6, a4, a1, a5, SP[a2, a3], n] + 
    S2[a6, a4, a1, SP[a2, a3], a5, n] + S2[a6, a4, a1, SP[a3, a5], a2, n] + 
    S2[a6, a4, SP[a1, a3], a2, a5, n] + S2[a6, a4, SP[a1, a3], a5, a2, n] - 
    S2[a6, SP[a1, a4], a2, a5, a3, n] - S2[a6, SP[a1, a4], a5, a2, a3, n] - 
    S2[a6, SP[a1, a4], a5, a3, a2, n] + S2[a6, SP[a3, a4], a1, a2, a5, n] + 
    S2[a6, SP[a3, a4], a1, a5, a2, n] + S2[a6, SP[a3, a4], a5, a1, a2, n] + 
    S2[SP[a1, a2], a4, a6, a3, a5, n] + S2[SP[a1, a6], a2, a4, a5, a3, n] + 
    S2[SP[a1, a6], a2, a5, a3, a4, n] + S2[SP[a1, a6], a2, a5, a4, a3, n] + 
    S2[SP[a1, a6], a4, a2, a5, a3, n] + S2[SP[a1, a6], a4, a5, a2, a3, n] + 
    S2[SP[a1, a6], a4, a5, a3, a2, n] + S2[SP[a1, a6], a5, a2, a3, a4, n] + 
    S2[SP[a1, a6], a5, a2, a4, a3, n] + S2[SP[a1, a6], a5, a3, a2, a4, n] + 
    S2[SP[a1, a6], a5, a3, a4, a2, n] + S2[SP[a1, a6], a5, a4, a2, a3, n] + 
    S2[SP[a1, a6], a5, a4, a3, a2, n] + S2[SP[a3, a6], a4, a1, a2, a5, n] + 
    S2[SP[a3, a6], a4, a1, a5, a2, n] - S2[SP[a3, a6], a5, a1, a2, a4, n] - 
    S2[SP[a3, a6], a5, a1, a4, a2, n] - S2[SP[a4, a6], a1, a2, a5, a3, n] - 
    S2[SP[a4, a6], a1, a5, a2, a3, n] - S2[SP[a4, a6], a1, a5, a3, a2, n] + 
    S2[SP[a4, a6], a3, a5, a1, a2, n] - S2[a6, a3, a4, a1, a2, a5, n] - 
    S2[a6, a3, a4, a1, a5, a2, n] - S2[a6, a3, a4, a5, a1, a2, n] - 
    S2[a6, a3, a5, a4, a1, a2, n] - S2[a6, a4, a1, a2, a3, a5, n] - 
    S2[a6, a4, a1, a3, a2, a5, n] - S2[a6, a4, a1, a3, a5, a2, n] - 
    S2[a6, a4, a3, a1, a2, a5, n] - S2[a6, a4, a3, a1, a5, a2, n] - 
    S2[a6, a4, a3, a5, a1, a2, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a2_, a1_, a4_, a6_, a5_, a3_, n_] :> 
  -(S2[a1, a2, a4, n]*S2[a3, a5, a6, n]) - S2[a1, a4, a2, n]*
     S2[a3, a5, a6, n] - S2[SP[a1, a3], SP[a2, a5], SP[a4, a6], n] - 
    S2[SP[a1, a3], SP[a4, a5], SP[a2, a6], n] + S2[a1, a3, SP[a2, a5], 
     SP[a4, a6], n] + S2[a1, a3, SP[a4, a5], SP[a2, a6], n] + 
    S2[a1, SP[a2, a3], a5, SP[a4, a6], n] + S2[a1, SP[a2, a3], SP[a4, a5], 
     a6, n] + S2[a1, SP[a3, a4], a5, SP[a2, a6], n] + 
    S2[a1, SP[a3, a4], SP[a2, a5], a6, n] + S2[a3, a1, SP[a2, a5], 
     SP[a4, a6], n] + S2[a3, a1, SP[a4, a5], SP[a2, a6], n] - 
    S2[a1, a2, n]*S2[a3, a6, a4, a5, n] - S2[a1, a2, n]*
     S2[a3, a6, a5, a4, n] + S2[a3, a6, SP[a1, a4], SP[a2, a5], n] + 
    S2[a3, a6, SP[a1, a5], SP[a2, a4], n] + S2[a3, SP[a1, a5], a2, 
     SP[a4, a6], n] + S2[a3, SP[a1, a5], a4, SP[a2, a6], n] + 
    S2[a3, SP[a1, a5], SP[a2, a6], a4, n] + S2[a3, SP[a1, a5], SP[a4, a6], 
     a2, n] + S2[a3, SP[a1, a6], a4, SP[a2, a5], n] + 
    S2[a3, SP[a1, a6], a5, SP[a2, a4], n] + S2[a3, SP[a1, a6], SP[a2, a4], 
     a5, n] + S2[a3, SP[a1, a6], SP[a2, a5], a4, n] + 
    S2[a1, a2, n]*S2[a4, a6, a3, a5, n] - S2[a4, a6, SP[a1, a3], SP[a2, a5], 
     n] - S2[a4, SP[a1, a6], a3, SP[a2, a5], n] - 
    S2[a4, SP[a1, a6], SP[a2, a3], a5, n] + S2[SP[a1, a3], a2, a5, 
     SP[a4, a6], n] + S2[SP[a1, a3], a2, SP[a4, a5], a6, n] + 
    S2[SP[a1, a3], a4, a5, SP[a2, a6], n] + S2[SP[a1, a3], a4, SP[a2, a5], 
     a6, n] + S2[SP[a1, a3], a5, a2, SP[a4, a6], n] + 
    S2[SP[a1, a3], a5, a4, SP[a2, a6], n] + S2[SP[a1, a3], a5, SP[a2, a6], 
     a4, n] + S2[SP[a1, a3], a5, SP[a4, a6], a2, n] + 
    S2[SP[a1, a3], a6, a4, SP[a2, a5], n] + S2[SP[a1, a3], a6, a5, 
     SP[a2, a4], n] + S2[SP[a1, a3], a6, SP[a2, a4], a5, n] + 
    S2[SP[a1, a3], a6, SP[a2, a5], a4, n] + S2[SP[a1, a3], SP[a2, a5], a4, 
     a6, n] + S2[SP[a1, a3], SP[a2, a5], a6, a4, n] + 
    S2[SP[a1, a3], SP[a2, a6], a4, a5, n] + S2[SP[a1, a3], SP[a2, a6], a5, 
     a4, n] + S2[SP[a1, a3], SP[a4, a5], a2, a6, n] + 
    S2[SP[a1, a3], SP[a4, a5], a6, a2, n] - S2[SP[a1, a4], a6, a3, 
     SP[a2, a5], n] - S2[SP[a1, a4], a6, SP[a2, a3], a5, n] - 
    S2[SP[a1, a4], SP[a2, a6], a3, a5, n] - S2[a1, a2, a3, a5, SP[a4, a6], 
     n] - S2[a1, a2, a3, SP[a4, a5], a6, n] - 
    S2[a6, n]*S2[a1, a2, a4, a5, a3, n] + 
    S2[a3, n]*S2[a1, a2, a4, a5, a6, n] + S2[a1, a2, a4, SP[a3, a5], a6, n] - 
    S2[a1, a2, a4, SP[a5, a6], a3, n] - S2[a6, n]*S2[a1, a2, a5, a3, a4, n] - 
    S2[a1, a2, a5, a3, SP[a4, a6], n] - S2[a6, n]*S2[a1, a2, a5, a4, a3, n] + 
    S2[a3, n]*S2[a1, a2, a5, a4, a6, n] + 
    S2[a3, n]*S2[a1, a2, a5, a6, a4, n] + S2[a1, a2, a5, a6, SP[a3, a4], n] + 
    S2[a1, a2, a5, SP[a3, a4], a6, n] - S2[a1, a2, a5, SP[a4, a6], a3, n] - 
    S2[a4, n]*S2[a1, a2, a6, a3, a5, n] - S2[a1, a2, a6, a3, SP[a4, a5], n] + 
    S2[a3, n]*S2[a1, a2, a6, a4, a5, n] + S2[a1, a2, a6, a4, SP[a3, a5], n] + 
    S2[a3, n]*S2[a1, a2, a6, a5, a4, n] + S2[a1, a2, a6, a5, SP[a3, a4], n] + 
    S2[a1, a2, a6, SP[a3, a5], a4, n] + S2[a1, a2, SP[a3, a5], a4, a6, n] + 
    S2[a1, a2, SP[a3, a5], a6, a4, n] + S2[a1, a2, SP[a3, a6], a4, a5, n] + 
    S2[a1, a2, SP[a3, a6], a5, a4, n] - S2[a1, a2, SP[a4, a6], a3, a5, n] - 
    S2[a1, a2, SP[a4, a6], a5, a3, n] - S2[a1, a2, SP[a5, a6], a3, a4, n] - 
    S2[a1, a2, SP[a5, a6], a4, a3, n] - S2[a1, a3, a2, a5, SP[a4, a6], n] - 
    S2[a1, a3, a2, SP[a4, a5], a6, n] - S2[a1, a3, a4, a5, SP[a2, a6], n] - 
    S2[a1, a3, a4, SP[a2, a5], a6, n] - S2[a1, a3, a5, a2, SP[a4, a6], n] - 
    S2[a1, a3, a5, a4, SP[a2, a6], n] - S2[a1, a3, a5, SP[a2, a6], a4, n] - 
    S2[a1, a3, a5, SP[a4, a6], a2, n] - S2[a1, a3, a6, a4, SP[a2, a5], n] - 
    S2[a1, a3, a6, a5, SP[a2, a4], n] - S2[a1, a3, a6, SP[a2, a4], a5, n] - 
    S2[a1, a3, a6, SP[a2, a5], a4, n] - S2[a1, a3, SP[a2, a5], a4, a6, n] - 
    S2[a1, a3, SP[a2, a5], a6, a4, n] - S2[a1, a3, SP[a2, a6], a4, a5, n] - 
    S2[a1, a3, SP[a2, a6], a5, a4, n] - S2[a1, a3, SP[a4, a5], a2, a6, n] - 
    S2[a1, a3, SP[a4, a5], a6, a2, n] - S2[a6, n]*S2[a1, a4, a2, a5, a3, n] + 
    S2[a3, n]*S2[a1, a4, a2, a5, a6, n] + S2[a1, a4, a2, SP[a3, a5], a6, n] - 
    S2[a1, a4, a2, SP[a5, a6], a3, n] - S2[a1, a4, a3, a5, SP[a2, a6], n] - 
    S2[a1, a4, a3, SP[a2, a5], a6, n] - S2[a6, n]*S2[a1, a4, a5, a2, a3, n] + 
    S2[a3, n]*S2[a1, a4, a5, a2, a6, n] - 
    S2[a6, n]*S2[a1, a4, a5, a3, a2, n] - S2[a1, a4, a5, a3, SP[a2, a6], n] + 
    S2[a3, n]*S2[a1, a4, a5, a6, a2, n] + S2[a1, a4, a5, a6, SP[a2, a3], n] + 
    S2[a1, a4, a5, SP[a2, a3], a6, n] - S2[a1, a4, a5, SP[a2, a6], a3, n] + 
    S2[a1, a4, a6, a3, SP[a2, a5], n] + S2[a2, n]*S2[a1, a4, a6, a5, a3, n] + 
    S2[a1, a4, a6, a5, SP[a2, a3], n] + S2[a1, a4, a6, SP[a2, a3], a5, n] + 
    S2[a1, a4, a6, SP[a2, a5], a3, n] + S2[a1, a4, SP[a2, a6], a3, a5, n] + 
    S2[a1, a4, SP[a3, a5], a2, a6, n] + S2[a1, a4, SP[a3, a5], a6, a2, n] - 
    S2[a1, a4, SP[a5, a6], a2, a3, n] - S2[a1, a4, SP[a5, a6], a3, a2, n] - 
    S2[a6, n]*S2[a1, a5, a2, a3, a4, n] - S2[a1, a5, a2, a3, SP[a4, a6], n] - 
    S2[a6, n]*S2[a1, a5, a2, a4, a3, n] + 
    S2[a3, n]*S2[a1, a5, a2, a4, a6, n] + 
    S2[a3, n]*S2[a1, a5, a2, a6, a4, n] + S2[a1, a5, a2, a6, SP[a3, a4], n] + 
    S2[a1, a5, a2, SP[a3, a4], a6, n] - S2[a1, a5, a2, SP[a4, a6], a3, n] - 
    S2[a6, n]*S2[a1, a5, a3, a2, a4, n] - S2[a1, a5, a3, a2, SP[a4, a6], n] - 
    S2[a6, n]*S2[a1, a5, a3, a4, a2, n] - S2[a1, a5, a3, a4, SP[a2, a6], n] - 
    S2[a1, a5, a3, SP[a2, a6], a4, n] - S2[a1, a5, a3, SP[a4, a6], a2, n] - 
    S2[a6, n]*S2[a1, a5, a4, a2, a3, n] + 
    S2[a3, n]*S2[a1, a5, a4, a2, a6, n] - 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] - S2[a1, a5, a4, a3, SP[a2, a6], n] + 
    S2[a3, n]*S2[a1, a5, a4, a6, a2, n] + S2[a1, a5, a4, a6, SP[a2, a3], n] + 
    S2[a1, a5, a4, SP[a2, a3], a6, n] - S2[a1, a5, a4, SP[a2, a6], a3, n] + 
    S2[a3, n]*S2[a1, a5, a6, a2, a4, n] + S2[a1, a5, a6, a2, SP[a3, a4], n] + 
    S2[a3, n]*S2[a1, a5, a6, a4, a2, n] + S2[a1, a5, a6, a4, SP[a2, a3], n] + 
    S2[a1, a5, a6, SP[a2, a3], a4, n] + S2[a1, a5, a6, SP[a3, a4], a2, n] + 
    S2[a1, a5, SP[a2, a3], a4, a6, n] + S2[a1, a5, SP[a2, a3], a6, a4, n] - 
    S2[a1, a5, SP[a2, a6], a3, a4, n] - S2[a1, a5, SP[a2, a6], a4, a3, n] + 
    S2[a1, a5, SP[a3, a4], a2, a6, n] + S2[a1, a5, SP[a3, a4], a6, a2, n] - 
    S2[a1, a5, SP[a4, a6], a2, a3, n] - S2[a1, a5, SP[a4, a6], a3, a2, n] - 
    S2[a4, n]*S2[a1, a6, a2, a3, a5, n] - S2[a1, a6, a2, a3, SP[a4, a5], n] + 
    S2[a3, n]*S2[a1, a6, a2, a4, a5, n] + S2[a1, a6, a2, a4, SP[a3, a5], n] + 
    S2[a3, n]*S2[a1, a6, a2, a5, a4, n] + S2[a1, a6, a2, a5, SP[a3, a4], n] + 
    S2[a1, a6, a2, SP[a3, a5], a4, n] - S2[a4, n]*S2[a1, a6, a3, a2, a5, n] - 
    S2[a1, a6, a3, a2, SP[a4, a5], n] - S2[a4, n]*S2[a1, a6, a3, a5, a2, n] - 
    S2[a1, a6, a3, a5, SP[a2, a4], n] - S2[a1, a6, a3, SP[a2, a4], a5, n] - 
    S2[a1, a6, a3, SP[a4, a5], a2, n] + S2[a3, n]*S2[a1, a6, a4, a2, a5, n] + 
    S2[a1, a6, a4, a2, SP[a3, a5], n] + S2[a3, n]*S2[a1, a6, a4, a5, a2, n] + 
    S2[a1, a6, a4, a5, SP[a2, a3], n] + S2[a1, a6, a4, SP[a2, a3], a5, n] + 
    S2[a1, a6, a4, SP[a3, a5], a2, n] + S2[a3, n]*S2[a1, a6, a5, a2, a4, n] + 
    S2[a1, a6, a5, a2, SP[a3, a4], n] + S2[a3, n]*S2[a1, a6, a5, a4, a2, n] + 
    S2[a1, a6, a5, a4, SP[a2, a3], n] + S2[a1, a6, a5, SP[a2, a3], a4, n] + 
    S2[a1, a6, a5, SP[a3, a4], a2, n] + S2[a1, a6, SP[a2, a3], a4, a5, n] + 
    S2[a1, a6, SP[a2, a3], a5, a4, n] - S2[a1, a6, SP[a2, a4], a3, a5, n] + 
    S2[a1, a6, SP[a3, a5], a2, a4, n] + S2[a1, a6, SP[a3, a5], a4, a2, n] + 
    S2[a1, SP[a2, a4], a6, a5, a3, n] - S2[a1, SP[a2, a6], a4, a5, a3, n] - 
    S2[a1, SP[a2, a6], a5, a3, a4, n] - S2[a1, SP[a2, a6], a5, a4, a3, n] + 
    S2[a1, SP[a3, a5], a2, a4, a6, n] + S2[a1, SP[a3, a5], a2, a6, a4, n] + 
    S2[a1, SP[a3, a5], a4, a2, a6, n] + S2[a1, SP[a3, a5], a4, a6, a2, n] + 
    S2[a1, SP[a3, a5], a6, a2, a4, n] + S2[a1, SP[a3, a5], a6, a4, a2, n] + 
    S2[a1, SP[a3, a6], a2, a4, a5, n] + S2[a1, SP[a3, a6], a2, a5, a4, n] + 
    S2[a1, SP[a3, a6], a4, a2, a5, n] + S2[a1, SP[a3, a6], a4, a5, a2, n] + 
    S2[a1, SP[a3, a6], a5, a2, a4, n] + S2[a1, SP[a3, a6], a5, a4, a2, n] - 
    S2[a1, SP[a4, a6], a2, a3, a5, n] - S2[a1, SP[a4, a6], a2, a5, a3, n] - 
    S2[a1, SP[a4, a6], a3, a2, a5, n] - S2[a1, SP[a4, a6], a3, a5, a2, n] - 
    S2[a1, SP[a4, a6], a5, a2, a3, n] - S2[a1, SP[a4, a6], a5, a3, a2, n] - 
    S2[a1, SP[a5, a6], a2, a3, a4, n] - S2[a1, SP[a5, a6], a2, a4, a3, n] - 
    S2[a1, SP[a5, a6], a3, a2, a4, n] - S2[a1, SP[a5, a6], a3, a4, a2, n] - 
    S2[a1, SP[a5, a6], a4, a2, a3, n] - S2[a1, SP[a5, a6], a4, a3, a2, n] - 
    S2[a3, a1, a2, a5, SP[a4, a6], n] - S2[a3, a1, a2, SP[a4, a5], a6, n] - 
    S2[a3, a1, a4, a5, SP[a2, a6], n] - S2[a3, a1, a4, SP[a2, a5], a6, n] - 
    S2[a3, a1, a5, a2, SP[a4, a6], n] - S2[a3, a1, a5, a4, SP[a2, a6], n] - 
    S2[a3, a1, a5, SP[a2, a6], a4, n] - S2[a3, a1, a5, SP[a4, a6], a2, n] - 
    S2[a3, a1, a6, a4, SP[a2, a5], n] - S2[a3, a1, a6, a5, SP[a2, a4], n] - 
    S2[a3, a1, a6, SP[a2, a4], a5, n] - S2[a3, a1, a6, SP[a2, a5], a4, n] - 
    S2[a3, a1, SP[a2, a5], a4, a6, n] - S2[a3, a1, SP[a2, a5], a6, a4, n] - 
    S2[a3, a1, SP[a2, a6], a4, a5, n] - S2[a3, a1, SP[a2, a6], a5, a4, n] - 
    S2[a3, a1, SP[a4, a5], a2, a6, n] - S2[a3, a1, SP[a4, a5], a6, a2, n] + 
    S2[a6, n]*S2[a3, a5, a1, a2, a4, n] + 
    S2[a6, n]*S2[a3, a5, a1, a4, a2, n] + 
    S2[a4, n]*S2[a3, a6, a1, a2, a5, n] + S2[a3, a6, a1, a2, SP[a4, a5], n] - 
    S2[a3, a6, a1, a4, SP[a2, a5], n] + S2[a4, n]*S2[a3, a6, a1, a5, a2, n] - 
    S2[a3, a6, a1, SP[a2, a5], a4, n] + S2[a3, a6, a1, SP[a4, a5], a2, n] - 
    S2[a3, a6, a4, a1, SP[a2, a5], n] - S2[a3, a6, a4, SP[a1, a5], a2, n] - 
    S2[a3, a6, a5, a1, SP[a2, a4], n] - S2[a3, a6, a5, SP[a1, a4], a2, n] - 
    S2[a3, a6, SP[a1, a5], a2, a4, n] - S2[a3, a6, SP[a1, a5], a4, a2, n] - 
    S2[a3, SP[a1, a5], a2, a4, a6, n] - S2[a3, SP[a1, a5], a2, a6, a4, n] - 
    S2[a3, SP[a1, a5], a4, a2, a6, n] - S2[a3, SP[a1, a5], a4, a6, a2, n] - 
    S2[a3, SP[a1, a5], a6, a2, a4, n] - S2[a3, SP[a1, a5], a6, a4, a2, n] - 
    S2[a3, SP[a1, a6], a2, a4, a5, n] - S2[a3, SP[a1, a6], a2, a5, a4, n] - 
    S2[a3, SP[a1, a6], a4, a2, a5, n] - S2[a3, SP[a1, a6], a4, a5, a2, n] - 
    S2[a3, SP[a1, a6], a5, a2, a4, n] - S2[a3, SP[a1, a6], a5, a4, a2, n] + 
    S2[a3, SP[a4, a6], a1, a2, a5, n] + S2[a3, SP[a4, a6], a1, a5, a2, n] + 
    S2[a3, SP[a5, a6], a1, a2, a4, n] + S2[a3, SP[a5, a6], a1, a4, a2, n] + 
    S2[a4, a1, a6, a3, SP[a2, a5], n] + S2[a4, a1, a6, SP[a2, a3], a5, n] + 
    S2[a4, a1, SP[a2, a6], a3, a5, n] - S2[a3, n]*S2[a4, a6, a1, a2, a5, n] - 
    S2[a4, a6, a1, a2, SP[a3, a5], n] + S2[a4, a6, a1, a3, SP[a2, a5], n] - 
    S2[a3, n]*S2[a4, a6, a1, a5, a2, n] - S2[a4, a6, a1, a5, SP[a2, a3], n] - 
    S2[a4, a6, a1, SP[a3, a5], a2, n] + S2[a4, a6, a3, a1, SP[a2, a5], n] + 
    S2[a4, a6, a3, SP[a1, a5], a2, n] + S2[a4, SP[a1, a6], a2, a3, a5, n] + 
    S2[a4, SP[a1, a6], a3, a2, a5, n] + S2[a4, SP[a1, a6], a3, a5, a2, n] - 
    S2[a4, SP[a3, a6], a1, a2, a5, n] - S2[a4, SP[a3, a6], a1, a5, a2, n] + 
    S2[a4, n]*S2[a6, a1, a2, a5, a3, n] + S2[a6, a1, a2, a5, SP[a3, a4], n] + 
    S2[a6, a1, a2, SP[a4, a5], a3, n] + S2[a4, n]*S2[a6, a1, a5, a2, a3, n] + 
    S2[a6, a1, a5, a2, SP[a3, a4], n] + S2[a4, n]*S2[a6, a1, a5, a3, a2, n] + 
    S2[a6, a1, a5, a3, SP[a2, a4], n] + S2[a6, a1, a5, SP[a2, a4], a3, n] + 
    S2[a6, a1, a5, SP[a3, a4], a2, n] + S2[a6, a1, SP[a2, a4], a5, a3, n] + 
    S2[a6, a1, SP[a4, a5], a2, a3, n] + S2[a6, a1, SP[a4, a5], a3, a2, n] - 
    S2[a4, n]*S2[a6, a3, a5, a1, a2, n] - S2[a6, a3, a5, a1, SP[a2, a4], n] - 
    S2[a6, a3, a5, SP[a1, a4], a2, n] - S2[a6, a3, SP[a4, a5], a1, a2, n] + 
    S2[a3, n]*S2[a6, a4, a5, a1, a2, n] + S2[a6, a4, a5, a1, SP[a2, a3], n] + 
    S2[a6, a4, a5, SP[a1, a3], a2, n] + S2[a6, a4, SP[a3, a5], a1, a2, n] + 
    S2[a3, n]*S2[a6, a5, a4, a1, a2, n] + S2[a6, a5, a4, a1, SP[a2, a3], n] + 
    S2[a6, a5, a4, SP[a1, a3], a2, n] + S2[a6, a5, SP[a3, a4], a1, a2, n] + 
    S2[a6, SP[a1, a4], a2, a5, a3, n] + S2[a6, SP[a1, a4], a5, a2, a3, n] + 
    S2[a6, SP[a1, a4], a5, a3, a2, n] + S2[a6, SP[a3, a5], a4, a1, a2, n] + 
    S2[SP[a1, a2], a4, a6, a5, a3, n] - S2[SP[a1, a6], a2, a4, a5, a3, n] - 
    S2[SP[a1, a6], a2, a5, a3, a4, n] - S2[SP[a1, a6], a2, a5, a4, a3, n] - 
    S2[SP[a1, a6], a4, a2, a5, a3, n] - S2[SP[a1, a6], a4, a5, a2, a3, n] - 
    S2[SP[a1, a6], a4, a5, a3, a2, n] - S2[SP[a1, a6], a5, a2, a3, a4, n] - 
    S2[SP[a1, a6], a5, a2, a4, a3, n] - S2[SP[a1, a6], a5, a3, a2, a4, n] - 
    S2[SP[a1, a6], a5, a3, a4, a2, n] - S2[SP[a1, a6], a5, a4, a2, a3, n] - 
    S2[SP[a1, a6], a5, a4, a3, a2, n] + S2[SP[a3, a6], a4, a5, a1, a2, n] + 
    S2[SP[a3, a6], a5, a1, a2, a4, n] + S2[SP[a3, a6], a5, a1, a4, a2, n] + 
    S2[SP[a3, a6], a5, a4, a1, a2, n] + S2[SP[a4, a6], a1, a2, a5, a3, n] + 
    S2[SP[a4, a6], a1, a5, a2, a3, n] + S2[SP[a4, a6], a1, a5, a3, a2, n] - 
    S2[SP[a4, a6], a3, a5, a1, a2, n] - S2[a6, a4, a1, a2, a5, a3, n] - 
    S2[a6, a4, a1, a5, a2, a3, n] - S2[a6, a4, a1, a5, a3, a2, n] - 
    S2[a6, a4, a5, a1, a2, a3, n] - S2[a6, a4, a5, a1, a3, a2, n] - 
    S2[a6, a4, a5, a3, a1, a2, n] - S2[a6, a5, a3, a4, a1, a2, n] - 
    S2[a6, a5, a4, a1, a2, a3, n] - S2[a6, a5, a4, a1, a3, a2, n] - 
    S2[a6, a5, a4, a3, a1, a2, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a2_, a1_, a5_, a3_, a4_, a6_, n_] :> 
  -(S2[a1, a2, a5, n]*S2[a3, a4, a6, n]) - S2[a1, a5, a2, n]*
     S2[a3, a4, a6, n] - S2[SP[a1, a3], SP[a2, a4], SP[a5, a6], n] - 
    S2[SP[a1, a3], SP[a4, a5], SP[a2, a6], n] - 
    S2[a4, a6, n]*S2[a1, a2, a5, a3, n] + S2[a1, a2, SP[a4, a5], SP[a3, a6], 
     n] + S2[a1, a3, SP[a2, a4], SP[a5, a6], n] + S2[a1, a3, SP[a4, a5], 
     SP[a2, a6], n] - S2[a4, a6, n]*S2[a1, a5, a2, a3, n] - 
    S2[a4, a6, n]*S2[a1, a5, a3, a2, n] + S2[a1, a5, SP[a2, a4], SP[a3, a6], 
     n] + S2[a1, a5, SP[a3, a4], SP[a2, a6], n] + S2[a1, SP[a2, a3], a4, 
     SP[a5, a6], n] + S2[a1, SP[a2, a3], SP[a4, a5], a6, n] + 
    S2[a1, SP[a2, a4], a5, SP[a3, a6], n] + S2[a1, SP[a2, a4], SP[a5, a6], 
     a3, n] + S2[a1, SP[a3, a5], a4, SP[a2, a6], n] + 
    S2[a1, SP[a3, a5], SP[a2, a4], a6, n] + S2[a1, SP[a4, a5], a2, 
     SP[a3, a6], n] + S2[a1, SP[a4, a5], a3, SP[a2, a6], n] + 
    S2[a1, SP[a4, a5], SP[a2, a6], a3, n] + S2[a1, SP[a4, a5], SP[a3, a6], 
     a2, n] + S2[a3, a1, SP[a2, a4], SP[a5, a6], n] + 
    S2[a3, a1, SP[a4, a5], SP[a2, a6], n] + S2[a1, a2, n]*
     S2[a3, a4, a5, a6, n] + S2[a1, a2, n]*S2[a3, a4, a6, a5, n] - 
    S2[a3, a4, SP[a1, a5], SP[a2, a6], n] - S2[a3, a4, SP[a1, a6], 
     SP[a2, a5], n] + S2[a1, a2, n]*S2[a3, a5, a4, a6, n] + 
    S2[a1, a2, n]*S2[a3, a5, a6, a4, n] - S2[a3, a5, SP[a1, a4], SP[a2, a6], 
     n] - S2[a3, a5, SP[a1, a6], SP[a2, a4], n] + 
    S2[a1, a2, n]*S2[a3, a6, a4, a5, n] + S2[a1, a2, n]*
     S2[a3, a6, a5, a4, n] - S2[a3, a6, SP[a1, a4], SP[a2, a5], n] - 
    S2[a3, a6, SP[a1, a5], SP[a2, a4], n] + S2[a3, SP[a1, a4], a2, 
     SP[a5, a6], n] - S2[a3, SP[a1, a4], a6, SP[a2, a5], n] - 
    S2[a3, SP[a1, a4], SP[a2, a5], a6, n] + S2[a3, SP[a1, a4], SP[a5, a6], 
     a2, n] - S2[a3, SP[a1, a5], a4, SP[a2, a6], n] - 
    S2[a3, SP[a1, a5], a6, SP[a2, a4], n] - S2[a3, SP[a1, a5], SP[a2, a4], 
     a6, n] - S2[a3, SP[a1, a5], SP[a2, a6], a4, n] - 
    S2[a3, SP[a1, a6], a4, SP[a2, a5], n] - S2[a3, SP[a1, a6], a5, 
     SP[a2, a4], n] - S2[a3, SP[a1, a6], SP[a2, a4], a5, n] - 
    S2[a3, SP[a1, a6], SP[a2, a5], a4, n] - S2[a1, a2, n]*
     S2[a4, a6, a3, a5, n] + S2[a4, a6, SP[a1, a3], SP[a2, a5], n] + 
    S2[a4, SP[a1, a6], a3, SP[a2, a5], n] + S2[a4, SP[a1, a6], SP[a2, a3], 
     a5, n] + S2[SP[a1, a3], a2, a4, SP[a5, a6], n] + 
    S2[SP[a1, a3], a2, SP[a4, a5], a6, n] + S2[SP[a1, a3], a4, a2, 
     SP[a5, a6], n] - S2[SP[a1, a3], a4, a6, SP[a2, a5], n] - 
    S2[SP[a1, a3], a4, SP[a2, a5], a6, n] + S2[SP[a1, a3], a4, SP[a5, a6], 
     a2, n] - S2[SP[a1, a3], a5, a6, SP[a2, a4], n] - 
    S2[SP[a1, a3], a5, SP[a2, a6], a4, n] - S2[SP[a1, a3], a6, a4, 
     SP[a2, a5], n] - S2[SP[a1, a3], a6, a5, SP[a2, a4], n] - 
    S2[SP[a1, a3], a6, SP[a2, a4], a5, n] - S2[SP[a1, a3], a6, SP[a2, a5], 
     a4, n] - S2[SP[a1, a3], SP[a2, a5], a4, a6, n] - 
    S2[SP[a1, a3], SP[a2, a5], a6, a4, n] - S2[SP[a1, a3], SP[a2, a6], a4, 
     a5, n] - S2[SP[a1, a3], SP[a2, a6], a5, a4, n] + 
    S2[SP[a1, a3], SP[a4, a5], a2, a6, n] + S2[SP[a1, a3], SP[a4, a5], a6, 
     a2, n] + S2[SP[a1, a4], a2, a5, SP[a3, a6], n] + 
    S2[SP[a1, a4], a2, SP[a5, a6], a3, n] + S2[SP[a1, a4], a5, a2, 
     SP[a3, a6], n] + S2[SP[a1, a4], a5, a3, SP[a2, a6], n] + 
    S2[SP[a1, a4], a5, SP[a2, a6], a3, n] + S2[SP[a1, a4], a5, SP[a3, a6], 
     a2, n] + S2[SP[a1, a4], a6, a3, SP[a2, a5], n] + 
    S2[SP[a1, a4], a6, SP[a2, a3], a5, n] + S2[SP[a1, a4], SP[a2, a6], a3, 
     a5, n] + S2[SP[a1, a4], SP[a2, a6], a5, a3, n] + 
    S2[SP[a1, a4], SP[a5, a6], a2, a3, n] + S2[SP[a1, a4], SP[a5, a6], a3, 
     a2, n] - S2[a1, a2, a3, a4, SP[a5, a6], n] - S2[a1, a2, a3, SP[a4, a5], 
     a6, n] - S2[a1, a2, a4, a5, SP[a3, a6], n] - S2[a1, a2, a4, SP[a5, a6], 
     a3, n] + S2[a4, n]*S2[a1, a2, a5, a3, a6, n] + 
    S2[a1, a2, a5, a3, SP[a4, a6], n] - S2[a1, a2, a5, a4, SP[a3, a6], n] + 
    S2[a4, n]*S2[a1, a2, a5, a6, a3, n] - 
    S2[a3, n]*S2[a1, a2, a5, a6, a4, n] - S2[a1, a2, a5, SP[a3, a6], a4, n] + 
    S2[a1, a2, a5, SP[a4, a6], a3, n] + S2[a4, n]*S2[a1, a2, a6, a3, a5, n] + 
    S2[a1, a2, a6, a3, SP[a4, a5], n] - S2[a3, n]*S2[a1, a2, a6, a4, a5, n] - 
    S2[a1, a2, a6, a4, SP[a3, a5], n] + S2[a4, n]*S2[a1, a2, a6, a5, a3, n] - 
    S2[a3, n]*S2[a1, a2, a6, a5, a4, n] - S2[a1, a2, a6, SP[a3, a5], a4, n] + 
    S2[a1, a2, a6, SP[a4, a5], a3, n] - S2[a1, a2, SP[a3, a5], a4, a6, n] - 
    S2[a1, a2, SP[a3, a5], a6, a4, n] - S2[a1, a2, SP[a3, a6], a4, a5, n] - 
    S2[a1, a2, SP[a3, a6], a5, a4, n] + S2[a1, a2, SP[a4, a6], a3, a5, n] + 
    S2[a1, a2, SP[a4, a6], a5, a3, n] - S2[a1, a3, a2, a4, SP[a5, a6], n] - 
    S2[a1, a3, a2, SP[a4, a5], a6, n] - S2[a1, a3, a4, a2, SP[a5, a6], n] + 
    S2[a1, a3, a4, a6, SP[a2, a5], n] + S2[a1, a3, a4, SP[a2, a5], a6, n] - 
    S2[a1, a3, a4, SP[a5, a6], a2, n] + S2[a1, a3, a5, a6, SP[a2, a4], n] + 
    S2[a1, a3, a5, SP[a2, a6], a4, n] + S2[a1, a3, a6, a4, SP[a2, a5], n] + 
    S2[a1, a3, a6, a5, SP[a2, a4], n] + S2[a1, a3, a6, SP[a2, a4], a5, n] + 
    S2[a1, a3, a6, SP[a2, a5], a4, n] + S2[a1, a3, SP[a2, a5], a4, a6, n] + 
    S2[a1, a3, SP[a2, a5], a6, a4, n] + S2[a1, a3, SP[a2, a6], a4, a5, n] + 
    S2[a1, a3, SP[a2, a6], a5, a4, n] - S2[a1, a3, SP[a4, a5], a2, a6, n] - 
    S2[a1, a3, SP[a4, a5], a6, a2, n] - S2[a1, a4, a2, a5, SP[a3, a6], n] - 
    S2[a1, a4, a2, SP[a5, a6], a3, n] - S2[a1, a4, a5, a2, SP[a3, a6], n] - 
    S2[a1, a4, a5, a3, SP[a2, a6], n] - S2[a1, a4, a5, SP[a2, a6], a3, n] - 
    S2[a1, a4, a5, SP[a3, a6], a2, n] - S2[a1, a4, a6, a3, SP[a2, a5], n] - 
    S2[a1, a4, a6, SP[a2, a3], a5, n] - S2[a1, a4, SP[a2, a6], a3, a5, n] - 
    S2[a1, a4, SP[a2, a6], a5, a3, n] - S2[a1, a4, SP[a5, a6], a2, a3, n] - 
    S2[a1, a4, SP[a5, a6], a3, a2, n] + S2[a4, n]*S2[a1, a5, a2, a3, a6, n] + 
    S2[a1, a5, a2, a3, SP[a4, a6], n] - S2[a1, a5, a2, a4, SP[a3, a6], n] + 
    S2[a4, n]*S2[a1, a5, a2, a6, a3, n] - 
    S2[a3, n]*S2[a1, a5, a2, a6, a4, n] - S2[a1, a5, a2, SP[a3, a6], a4, n] + 
    S2[a1, a5, a2, SP[a4, a6], a3, n] + S2[a4, n]*S2[a1, a5, a3, a2, a6, n] + 
    S2[a1, a5, a3, a2, SP[a4, a6], n] + S2[a2, n]*S2[a1, a5, a3, a4, a6, n] - 
    S2[a1, a5, a3, a4, SP[a2, a6], n] + S2[a4, n]*S2[a1, a5, a3, a6, a2, n] + 
    S2[a1, a5, a3, a6, SP[a2, a4], n] + S2[a1, a5, a3, SP[a4, a6], a2, n] - 
    S2[a1, a5, a4, a2, SP[a3, a6], n] - S2[a1, a5, a4, a3, SP[a2, a6], n] - 
    S2[a1, a5, a4, SP[a2, a6], a3, n] - S2[a1, a5, a4, SP[a3, a6], a2, n] + 
    S2[a4, n]*S2[a1, a5, a6, a2, a3, n] - 
    S2[a3, n]*S2[a1, a5, a6, a2, a4, n] + 
    S2[a4, n]*S2[a1, a5, a6, a3, a2, n] + S2[a1, a5, a6, a3, SP[a2, a4], n] - 
    S2[a3, n]*S2[a1, a5, a6, a4, a2, n] - S2[a1, a5, a6, a4, SP[a2, a3], n] - 
    S2[a1, a5, a6, SP[a2, a3], a4, n] + S2[a1, a5, a6, SP[a2, a4], a3, n] - 
    S2[a1, a5, SP[a2, a3], a6, a4, n] - S2[a1, a5, SP[a3, a6], a2, a4, n] - 
    S2[a1, a5, SP[a3, a6], a4, a2, n] + S2[a1, a5, SP[a4, a6], a2, a3, n] + 
    S2[a1, a5, SP[a4, a6], a3, a2, n] + S2[a4, n]*S2[a1, a6, a2, a3, a5, n] + 
    S2[a1, a6, a2, a3, SP[a4, a5], n] - S2[a3, n]*S2[a1, a6, a2, a4, a5, n] - 
    S2[a1, a6, a2, a4, SP[a3, a5], n] + S2[a4, n]*S2[a1, a6, a2, a5, a3, n] - 
    S2[a3, n]*S2[a1, a6, a2, a5, a4, n] - S2[a1, a6, a2, SP[a3, a5], a4, n] + 
    S2[a1, a6, a2, SP[a4, a5], a3, n] + S2[a4, n]*S2[a1, a6, a3, a2, a5, n] + 
    S2[a1, a6, a3, a2, SP[a4, a5], n] + S2[a4, n]*S2[a1, a6, a3, a5, a2, n] + 
    S2[a1, a6, a3, a5, SP[a2, a4], n] + S2[a1, a6, a3, SP[a2, a4], a5, n] + 
    S2[a1, a6, a3, SP[a4, a5], a2, n] - S2[a3, n]*S2[a1, a6, a4, a2, a5, n] - 
    S2[a1, a6, a4, a2, SP[a3, a5], n] - S2[a3, n]*S2[a1, a6, a4, a5, a2, n] - 
    S2[a1, a6, a4, a5, SP[a2, a3], n] - S2[a1, a6, a4, SP[a2, a3], a5, n] - 
    S2[a1, a6, a4, SP[a3, a5], a2, n] + S2[a4, n]*S2[a1, a6, a5, a2, a3, n] - 
    S2[a3, n]*S2[a1, a6, a5, a2, a4, n] + 
    S2[a4, n]*S2[a1, a6, a5, a3, a2, n] + S2[a1, a6, a5, a3, SP[a2, a4], n] - 
    S2[a3, n]*S2[a1, a6, a5, a4, a2, n] - S2[a1, a6, a5, a4, SP[a2, a3], n] - 
    S2[a1, a6, a5, SP[a2, a3], a4, n] + S2[a1, a6, a5, SP[a2, a4], a3, n] - 
    S2[a1, a6, SP[a2, a3], a4, a5, n] - S2[a1, a6, SP[a2, a3], a5, a4, n] + 
    S2[a1, a6, SP[a2, a4], a3, a5, n] + S2[a1, a6, SP[a2, a4], a5, a3, n] - 
    S2[a1, a6, SP[a3, a5], a2, a4, n] - S2[a1, a6, SP[a3, a5], a4, a2, n] + 
    S2[a1, a6, SP[a4, a5], a2, a3, n] + S2[a1, a6, SP[a4, a5], a3, a2, n] + 
    S2[a1, SP[a2, a5], a3, a4, a6, n] - S2[a1, SP[a3, a5], a2, a4, a6, n] - 
    S2[a1, SP[a3, a5], a2, a6, a4, n] - S2[a1, SP[a3, a5], a4, a2, a6, n] - 
    S2[a1, SP[a3, a5], a4, a6, a2, n] - S2[a1, SP[a3, a5], a6, a2, a4, n] - 
    S2[a1, SP[a3, a5], a6, a4, a2, n] - S2[a1, SP[a3, a6], a2, a4, a5, n] - 
    S2[a1, SP[a3, a6], a2, a5, a4, n] - S2[a1, SP[a3, a6], a4, a2, a5, n] - 
    S2[a1, SP[a3, a6], a4, a5, a2, n] - S2[a1, SP[a3, a6], a5, a2, a4, n] - 
    S2[a1, SP[a3, a6], a5, a4, a2, n] + S2[a1, SP[a4, a6], a2, a3, a5, n] + 
    S2[a1, SP[a4, a6], a2, a5, a3, n] + S2[a1, SP[a4, a6], a3, a2, a5, n] + 
    S2[a1, SP[a4, a6], a3, a5, a2, n] + S2[a1, SP[a4, a6], a5, a2, a3, n] + 
    S2[a1, SP[a4, a6], a5, a3, a2, n] - S2[a3, a1, a2, a4, SP[a5, a6], n] - 
    S2[a3, a1, a2, SP[a4, a5], a6, n] - S2[a3, a1, a4, a2, SP[a5, a6], n] + 
    S2[a3, a1, a4, a6, SP[a2, a5], n] + S2[a3, a1, a4, SP[a2, a5], a6, n] - 
    S2[a3, a1, a4, SP[a5, a6], a2, n] + S2[a3, a1, a5, a6, SP[a2, a4], n] + 
    S2[a3, a1, a5, SP[a2, a6], a4, n] + S2[a3, a1, a6, a4, SP[a2, a5], n] + 
    S2[a3, a1, a6, a5, SP[a2, a4], n] + S2[a3, a1, a6, SP[a2, a4], a5, n] + 
    S2[a3, a1, a6, SP[a2, a5], a4, n] + S2[a3, a1, SP[a2, a5], a4, a6, n] + 
    S2[a3, a1, SP[a2, a5], a6, a4, n] + S2[a3, a1, SP[a2, a6], a4, a5, n] + 
    S2[a3, a1, SP[a2, a6], a5, a4, n] - S2[a3, a1, SP[a4, a5], a2, a6, n] - 
    S2[a3, a1, SP[a4, a5], a6, a2, n] - S2[a3, a4, a1, a2, SP[a5, a6], n] + 
    S2[a3, a4, a1, a6, SP[a2, a5], n] + S2[a3, a4, a1, SP[a2, a5], a6, n] - 
    S2[a3, a4, a1, SP[a5, a6], a2, n] - S2[a6, n]*S2[a3, a4, a5, a1, a2, n] + 
    S2[a3, a4, a6, a1, SP[a2, a5], n] + S2[a3, a4, a6, SP[a1, a5], a2, n] + 
    S2[a3, a4, SP[a1, a5], a2, a6, n] + S2[a3, a4, SP[a1, a5], a6, a2, n] - 
    S2[a3, a4, SP[a5, a6], a1, a2, n] - S2[a6, n]*S2[a3, a5, a1, a2, a4, n] - 
    S2[a3, a5, a1, a2, SP[a4, a6], n] - S2[a6, n]*S2[a3, a5, a1, a4, a2, n] + 
    S2[a3, a5, a1, a6, SP[a2, a4], n] + S2[a3, a5, a1, SP[a2, a4], a6, n] - 
    S2[a3, a5, a1, SP[a4, a6], a2, n] - S2[a6, n]*S2[a3, a5, a4, a1, a2, n] + 
    S2[a3, a5, a6, a1, SP[a2, a4], n] + S2[a3, a5, a6, SP[a1, a4], a2, n] + 
    S2[a3, a5, SP[a1, a4], a2, a6, n] + S2[a3, a5, SP[a1, a4], a6, a2, n] - 
    S2[a3, a5, SP[a4, a6], a1, a2, n] - S2[a4, n]*S2[a3, a6, a1, a2, a5, n] - 
    S2[a3, a6, a1, a2, SP[a4, a5], n] + S2[a3, a6, a1, a4, SP[a2, a5], n] - 
    S2[a4, n]*S2[a3, a6, a1, a5, a2, n] + S2[a3, a6, a1, SP[a2, a5], a4, n] - 
    S2[a3, a6, a1, SP[a4, a5], a2, n] + S2[a3, a6, a4, a1, SP[a2, a5], n] + 
    S2[a3, a6, a4, SP[a1, a5], a2, n] + S2[a3, a6, a5, a1, SP[a2, a4], n] + 
    S2[a3, a6, a5, SP[a1, a4], a2, n] + S2[a3, a6, SP[a1, a5], a2, a4, n] + 
    S2[a3, a6, SP[a1, a5], a4, a2, n] + S2[a3, SP[a1, a5], a2, a4, a6, n] + 
    S2[a3, SP[a1, a5], a2, a6, a4, n] + S2[a3, SP[a1, a5], a4, a2, a6, n] + 
    S2[a3, SP[a1, a5], a4, a6, a2, n] + S2[a3, SP[a1, a5], a6, a2, a4, n] + 
    S2[a3, SP[a1, a5], a6, a4, a2, n] + S2[a3, SP[a1, a6], a2, a4, a5, n] + 
    S2[a3, SP[a1, a6], a2, a5, a4, n] + S2[a3, SP[a1, a6], a4, a2, a5, n] + 
    S2[a3, SP[a1, a6], a4, a5, a2, n] + S2[a3, SP[a1, a6], a5, a2, a4, n] + 
    S2[a3, SP[a1, a6], a5, a4, a2, n] - S2[a3, SP[a4, a6], a1, a2, a5, n] - 
    S2[a3, SP[a4, a6], a1, a5, a2, n] - S2[a3, SP[a4, a6], a5, a1, a2, n] - 
    S2[a3, SP[a5, a6], a1, a2, a4, n] - S2[a3, SP[a5, a6], a1, a4, a2, n] - 
    S2[a3, SP[a5, a6], a4, a1, a2, n] - S2[a4, a1, a2, a5, SP[a3, a6], n] - 
    S2[a4, a1, a2, SP[a5, a6], a3, n] - S2[a4, a1, a5, a2, SP[a3, a6], n] - 
    S2[a4, a1, a5, a3, SP[a2, a6], n] - S2[a4, a1, a5, SP[a2, a6], a3, n] - 
    S2[a4, a1, a5, SP[a3, a6], a2, n] - S2[a4, a1, a6, a3, SP[a2, a5], n] - 
    S2[a4, a1, a6, SP[a2, a3], a5, n] - S2[a4, a1, SP[a2, a6], a3, a5, n] - 
    S2[a4, a1, SP[a2, a6], a5, a3, n] - S2[a4, a1, SP[a5, a6], a2, a3, n] - 
    S2[a4, a1, SP[a5, a6], a3, a2, n] + S2[a3, n]*S2[a4, a6, a1, a2, a5, n] + 
    S2[a4, a6, a1, a2, SP[a3, a5], n] - S2[a4, a6, a1, a3, SP[a2, a5], n] + 
    S2[a3, n]*S2[a4, a6, a1, a5, a2, n] + S2[a4, a6, a1, a5, SP[a2, a3], n] + 
    S2[a4, a6, a1, SP[a3, a5], a2, n] - S2[a4, a6, a3, a1, SP[a2, a5], n] - 
    S2[a4, a6, a3, SP[a1, a5], a2, n] - S2[a4, SP[a1, a6], a2, a3, a5, n] - 
    S2[a4, SP[a1, a6], a2, a5, a3, n] - S2[a4, SP[a1, a6], a3, a2, a5, n] - 
    S2[a4, SP[a1, a6], a3, a5, a2, n] - S2[a4, SP[a1, a6], a5, a2, a3, n] - 
    S2[a4, SP[a1, a6], a5, a3, a2, n] + S2[a4, SP[a3, a6], a1, a2, a5, n] + 
    S2[a4, SP[a3, a6], a1, a5, a2, n] + S2[a4, n]*S2[a6, a3, a5, a1, a2, n] + 
    S2[a6, a3, a5, a1, SP[a2, a4], n] + S2[a6, a3, a5, SP[a1, a4], a2, n] + 
    S2[a6, a3, SP[a4, a5], a1, a2, n] + S2[a6, SP[a3, a4], a5, a1, a2, n] + 
    S2[SP[a1, a2], a5, a3, a4, a6, n] - S2[SP[a3, a6], a4, a5, a1, a2, n] - 
    S2[SP[a3, a6], a5, a1, a2, a4, n] - S2[SP[a3, a6], a5, a1, a4, a2, n] - 
    S2[SP[a3, a6], a5, a4, a1, a2, n] + S2[SP[a4, a6], a3, a5, a1, a2, n] - 
    S2[a6, a4, a3, a5, a1, a2, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a2_, a1_, a5_, a3_, a6_, a4_, n_] :> 
  -(S2[a1, a2, a5, n]*S2[a3, a6, a4, n]) - S2[a1, a5, a2, n]*
     S2[a3, a6, a4, n] - S2[SP[a1, a3], SP[a2, a6], SP[a4, a5], n] - 
    S2[SP[a1, a3], SP[a5, a6], SP[a2, a4], n] + 
    S2[a4, a6, n]*S2[a1, a2, a5, a3, n] - S2[a1, a2, SP[a4, a5], SP[a3, a6], 
     n] + S2[a1, a3, SP[a2, a6], SP[a4, a5], n] + S2[a1, a3, SP[a5, a6], 
     SP[a2, a4], n] + S2[a4, a6, n]*S2[a1, a5, a2, a3, n] + 
    S2[a4, a6, n]*S2[a1, a5, a3, a2, n] - S2[a1, a5, SP[a2, a4], SP[a3, a6], 
     n] - S2[a1, a5, SP[a3, a4], SP[a2, a6], n] + S2[a1, SP[a2, a3], a6, 
     SP[a4, a5], n] + S2[a1, SP[a2, a3], SP[a5, a6], a4, n] - 
    S2[a1, SP[a2, a4], a5, SP[a3, a6], n] - S2[a1, SP[a2, a4], SP[a5, a6], 
     a3, n] + S2[a1, SP[a3, a5], a6, SP[a2, a4], n] + 
    S2[a1, SP[a3, a5], SP[a2, a6], a4, n] - S2[a1, SP[a4, a5], a2, 
     SP[a3, a6], n] - S2[a1, SP[a4, a5], a3, SP[a2, a6], n] - 
    S2[a1, SP[a4, a5], SP[a2, a6], a3, n] - S2[a1, SP[a4, a5], SP[a3, a6], 
     a2, n] + S2[a3, a1, SP[a2, a6], SP[a4, a5], n] + 
    S2[a3, a1, SP[a5, a6], SP[a2, a4], n] + S2[a3, SP[a1, a6], a2, 
     SP[a4, a5], n] + S2[a3, SP[a1, a6], a5, SP[a2, a4], n] + 
    S2[a3, SP[a1, a6], SP[a2, a4], a5, n] + S2[a3, SP[a1, a6], SP[a4, a5], 
     a2, n] + S2[a1, a2, n]*S2[a4, a6, a3, a5, n] - 
    S2[a4, a6, SP[a1, a3], SP[a2, a5], n] - S2[a4, SP[a1, a6], a3, 
     SP[a2, a5], n] - S2[a4, SP[a1, a6], SP[a2, a3], a5, n] + 
    S2[SP[a1, a3], a2, a6, SP[a4, a5], n] + S2[SP[a1, a3], a2, SP[a5, a6], 
     a4, n] + S2[SP[a1, a3], a5, a6, SP[a2, a4], n] + 
    S2[SP[a1, a3], a5, SP[a2, a6], a4, n] + S2[SP[a1, a3], a6, a2, 
     SP[a4, a5], n] + S2[SP[a1, a3], a6, a5, SP[a2, a4], n] + 
    S2[SP[a1, a3], a6, SP[a2, a4], a5, n] + S2[SP[a1, a3], a6, SP[a4, a5], 
     a2, n] + S2[SP[a1, a3], SP[a2, a6], a4, a5, n] + 
    S2[SP[a1, a3], SP[a2, a6], a5, a4, n] + S2[SP[a1, a3], SP[a5, a6], a2, 
     a4, n] + S2[SP[a1, a3], SP[a5, a6], a4, a2, n] - 
    S2[SP[a1, a4], a2, a5, SP[a3, a6], n] - S2[SP[a1, a4], a2, SP[a5, a6], 
     a3, n] - S2[SP[a1, a4], a5, a2, SP[a3, a6], n] - 
    S2[SP[a1, a4], a5, a3, SP[a2, a6], n] - S2[SP[a1, a4], a5, SP[a2, a6], 
     a3, n] - S2[SP[a1, a4], a5, SP[a3, a6], a2, n] - 
    S2[SP[a1, a4], a6, a3, SP[a2, a5], n] - S2[SP[a1, a4], a6, SP[a2, a3], 
     a5, n] - S2[SP[a1, a4], SP[a2, a6], a3, a5, n] - 
    S2[SP[a1, a4], SP[a2, a6], a5, a3, n] - S2[SP[a1, a4], SP[a5, a6], a2, 
     a3, n] - S2[SP[a1, a4], SP[a5, a6], a3, a2, n] - 
    S2[a1, a2, a3, a6, SP[a4, a5], n] - S2[a1, a2, a3, SP[a5, a6], a4, n] + 
    S2[a1, a2, a4, a5, SP[a3, a6], n] + S2[a1, a2, a4, SP[a5, a6], a3, n] - 
    S2[a4, n]*S2[a1, a2, a5, a3, a6, n] - S2[a1, a2, a5, a3, SP[a4, a6], n] + 
    S2[a1, a2, a5, a4, SP[a3, a6], n] - S2[a4, n]*S2[a1, a2, a5, a6, a3, n] + 
    S2[a3, n]*S2[a1, a2, a5, a6, a4, n] + S2[a1, a2, a5, SP[a3, a6], a4, n] - 
    S2[a1, a2, a5, SP[a4, a6], a3, n] - S2[a4, n]*S2[a1, a2, a6, a3, a5, n] - 
    S2[a1, a2, a6, a3, SP[a4, a5], n] + S2[a3, n]*S2[a1, a2, a6, a4, a5, n] + 
    S2[a1, a2, a6, a4, SP[a3, a5], n] - S2[a4, n]*S2[a1, a2, a6, a5, a3, n] + 
    S2[a3, n]*S2[a1, a2, a6, a5, a4, n] + S2[a1, a2, a6, SP[a3, a5], a4, n] - 
    S2[a1, a2, a6, SP[a4, a5], a3, n] + S2[a1, a2, SP[a3, a6], a4, a5, n] + 
    S2[a1, a2, SP[a3, a6], a5, a4, n] - S2[a1, a2, SP[a4, a6], a3, a5, n] - 
    S2[a1, a2, SP[a4, a6], a5, a3, n] - S2[a1, a3, a2, a6, SP[a4, a5], n] - 
    S2[a1, a3, a2, SP[a5, a6], a4, n] - S2[a1, a3, a5, a6, SP[a2, a4], n] - 
    S2[a1, a3, a5, SP[a2, a6], a4, n] - S2[a1, a3, a6, a2, SP[a4, a5], n] - 
    S2[a1, a3, a6, a5, SP[a2, a4], n] - S2[a1, a3, a6, SP[a2, a4], a5, n] - 
    S2[a1, a3, a6, SP[a4, a5], a2, n] - S2[a1, a3, SP[a2, a6], a4, a5, n] - 
    S2[a1, a3, SP[a2, a6], a5, a4, n] - S2[a1, a3, SP[a5, a6], a2, a4, n] - 
    S2[a1, a3, SP[a5, a6], a4, a2, n] + S2[a1, a4, a2, a5, SP[a3, a6], n] + 
    S2[a1, a4, a2, SP[a5, a6], a3, n] + S2[a1, a4, a5, a2, SP[a3, a6], n] + 
    S2[a1, a4, a5, a3, SP[a2, a6], n] + S2[a1, a4, a5, SP[a2, a6], a3, n] + 
    S2[a1, a4, a5, SP[a3, a6], a2, n] + S2[a1, a4, a6, a3, SP[a2, a5], n] + 
    S2[a1, a4, a6, SP[a2, a3], a5, n] + S2[a1, a4, SP[a2, a6], a3, a5, n] + 
    S2[a1, a4, SP[a2, a6], a5, a3, n] + S2[a1, a4, SP[a5, a6], a2, a3, n] + 
    S2[a1, a4, SP[a5, a6], a3, a2, n] - S2[a4, n]*S2[a1, a5, a2, a3, a6, n] - 
    S2[a1, a5, a2, a3, SP[a4, a6], n] + S2[a1, a5, a2, a4, SP[a3, a6], n] - 
    S2[a4, n]*S2[a1, a5, a2, a6, a3, n] + 
    S2[a3, n]*S2[a1, a5, a2, a6, a4, n] + S2[a1, a5, a2, SP[a3, a6], a4, n] - 
    S2[a1, a5, a2, SP[a4, a6], a3, n] - S2[a4, n]*S2[a1, a5, a3, a2, a6, n] - 
    S2[a1, a5, a3, a2, SP[a4, a6], n] + S2[a1, a5, a3, a4, SP[a2, a6], n] - 
    S2[a4, n]*S2[a1, a5, a3, a6, a2, n] + 
    S2[a2, n]*S2[a1, a5, a3, a6, a4, n] - S2[a1, a5, a3, a6, SP[a2, a4], n] - 
    S2[a1, a5, a3, SP[a4, a6], a2, n] + S2[a1, a5, a4, a2, SP[a3, a6], n] + 
    S2[a1, a5, a4, a3, SP[a2, a6], n] + S2[a1, a5, a4, SP[a2, a6], a3, n] + 
    S2[a1, a5, a4, SP[a3, a6], a2, n] - S2[a4, n]*S2[a1, a5, a6, a2, a3, n] + 
    S2[a3, n]*S2[a1, a5, a6, a2, a4, n] - 
    S2[a4, n]*S2[a1, a5, a6, a3, a2, n] - S2[a1, a5, a6, a3, SP[a2, a4], n] + 
    S2[a3, n]*S2[a1, a5, a6, a4, a2, n] + S2[a1, a5, a6, a4, SP[a2, a3], n] + 
    S2[a1, a5, a6, SP[a2, a3], a4, n] - S2[a1, a5, a6, SP[a2, a4], a3, n] + 
    S2[a1, a5, SP[a2, a3], a6, a4, n] + S2[a1, a5, SP[a3, a6], a2, a4, n] + 
    S2[a1, a5, SP[a3, a6], a4, a2, n] - S2[a1, a5, SP[a4, a6], a2, a3, n] - 
    S2[a1, a5, SP[a4, a6], a3, a2, n] - S2[a4, n]*S2[a1, a6, a2, a3, a5, n] - 
    S2[a1, a6, a2, a3, SP[a4, a5], n] + S2[a3, n]*S2[a1, a6, a2, a4, a5, n] + 
    S2[a1, a6, a2, a4, SP[a3, a5], n] - S2[a4, n]*S2[a1, a6, a2, a5, a3, n] + 
    S2[a3, n]*S2[a1, a6, a2, a5, a4, n] + S2[a1, a6, a2, SP[a3, a5], a4, n] - 
    S2[a1, a6, a2, SP[a4, a5], a3, n] - S2[a4, n]*S2[a1, a6, a3, a2, a5, n] - 
    S2[a1, a6, a3, a2, SP[a4, a5], n] - S2[a4, n]*S2[a1, a6, a3, a5, a2, n] - 
    S2[a1, a6, a3, a5, SP[a2, a4], n] - S2[a1, a6, a3, SP[a2, a4], a5, n] - 
    S2[a1, a6, a3, SP[a4, a5], a2, n] + S2[a3, n]*S2[a1, a6, a4, a2, a5, n] + 
    S2[a1, a6, a4, a2, SP[a3, a5], n] + S2[a3, n]*S2[a1, a6, a4, a5, a2, n] + 
    S2[a1, a6, a4, a5, SP[a2, a3], n] + S2[a1, a6, a4, SP[a2, a3], a5, n] + 
    S2[a1, a6, a4, SP[a3, a5], a2, n] - S2[a4, n]*S2[a1, a6, a5, a2, a3, n] + 
    S2[a3, n]*S2[a1, a6, a5, a2, a4, n] - 
    S2[a4, n]*S2[a1, a6, a5, a3, a2, n] - S2[a1, a6, a5, a3, SP[a2, a4], n] + 
    S2[a3, n]*S2[a1, a6, a5, a4, a2, n] + S2[a1, a6, a5, a4, SP[a2, a3], n] + 
    S2[a1, a6, a5, SP[a2, a3], a4, n] - S2[a1, a6, a5, SP[a2, a4], a3, n] + 
    S2[a1, a6, SP[a2, a3], a4, a5, n] + S2[a1, a6, SP[a2, a3], a5, a4, n] - 
    S2[a1, a6, SP[a2, a4], a3, a5, n] - S2[a1, a6, SP[a2, a4], a5, a3, n] + 
    S2[a1, a6, SP[a3, a5], a2, a4, n] + S2[a1, a6, SP[a3, a5], a4, a2, n] - 
    S2[a1, a6, SP[a4, a5], a2, a3, n] - S2[a1, a6, SP[a4, a5], a3, a2, n] + 
    S2[a1, SP[a2, a5], a3, a6, a4, n] + S2[a1, SP[a3, a6], a2, a4, a5, n] + 
    S2[a1, SP[a3, a6], a2, a5, a4, n] + S2[a1, SP[a3, a6], a4, a2, a5, n] + 
    S2[a1, SP[a3, a6], a4, a5, a2, n] + S2[a1, SP[a3, a6], a5, a2, a4, n] + 
    S2[a1, SP[a3, a6], a5, a4, a2, n] - S2[a1, SP[a4, a6], a2, a3, a5, n] - 
    S2[a1, SP[a4, a6], a2, a5, a3, n] - S2[a1, SP[a4, a6], a3, a2, a5, n] - 
    S2[a1, SP[a4, a6], a3, a5, a2, n] - S2[a1, SP[a4, a6], a5, a2, a3, n] - 
    S2[a1, SP[a4, a6], a5, a3, a2, n] - S2[a3, a1, a2, a6, SP[a4, a5], n] - 
    S2[a3, a1, a2, SP[a5, a6], a4, n] - S2[a3, a1, a5, a6, SP[a2, a4], n] - 
    S2[a3, a1, a5, SP[a2, a6], a4, n] - S2[a3, a1, a6, a2, SP[a4, a5], n] - 
    S2[a3, a1, a6, a5, SP[a2, a4], n] - S2[a3, a1, a6, SP[a2, a4], a5, n] - 
    S2[a3, a1, a6, SP[a4, a5], a2, n] - S2[a3, a1, SP[a2, a6], a4, a5, n] - 
    S2[a3, a1, SP[a2, a6], a5, a4, n] - S2[a3, a1, SP[a5, a6], a2, a4, n] - 
    S2[a3, a1, SP[a5, a6], a4, a2, n] + S2[a4, n]*S2[a3, a6, a1, a2, a5, n] + 
    S2[a4, n]*S2[a3, a6, a1, a5, a2, n] - S2[a3, SP[a1, a6], a2, a4, a5, n] - 
    S2[a3, SP[a1, a6], a2, a5, a4, n] - S2[a3, SP[a1, a6], a4, a2, a5, n] - 
    S2[a3, SP[a1, a6], a4, a5, a2, n] - S2[a3, SP[a1, a6], a5, a2, a4, n] - 
    S2[a3, SP[a1, a6], a5, a4, a2, n] + S2[a3, SP[a4, a6], a1, a2, a5, n] + 
    S2[a3, SP[a4, a6], a1, a5, a2, n] + S2[a4, a1, a2, a5, SP[a3, a6], n] + 
    S2[a4, a1, a2, SP[a5, a6], a3, n] + S2[a4, a1, a5, a2, SP[a3, a6], n] + 
    S2[a4, a1, a5, a3, SP[a2, a6], n] + S2[a4, a1, a5, SP[a2, a6], a3, n] + 
    S2[a4, a1, a5, SP[a3, a6], a2, n] + S2[a4, a1, a6, a3, SP[a2, a5], n] + 
    S2[a4, a1, a6, SP[a2, a3], a5, n] + S2[a4, a1, SP[a2, a6], a3, a5, n] + 
    S2[a4, a1, SP[a2, a6], a5, a3, n] + S2[a4, a1, SP[a5, a6], a2, a3, n] + 
    S2[a4, a1, SP[a5, a6], a3, a2, n] - S2[a3, n]*S2[a4, a6, a1, a2, a5, n] - 
    S2[a4, a6, a1, a2, SP[a3, a5], n] + S2[a4, a6, a1, a3, SP[a2, a5], n] - 
    S2[a3, n]*S2[a4, a6, a1, a5, a2, n] - S2[a4, a6, a1, a5, SP[a2, a3], n] - 
    S2[a4, a6, a1, SP[a3, a5], a2, n] + S2[a4, a6, a3, a1, SP[a2, a5], n] + 
    S2[a4, a6, a3, SP[a1, a5], a2, n] + S2[a4, SP[a1, a6], a2, a3, a5, n] + 
    S2[a4, SP[a1, a6], a2, a5, a3, n] + S2[a4, SP[a1, a6], a3, a2, a5, n] + 
    S2[a4, SP[a1, a6], a3, a5, a2, n] + S2[a4, SP[a1, a6], a5, a2, a3, n] + 
    S2[a4, SP[a1, a6], a5, a3, a2, n] - S2[a4, SP[a3, a6], a1, a2, a5, n] - 
    S2[a4, SP[a3, a6], a1, a5, a2, n] - S2[a4, n]*S2[a6, a3, a5, a1, a2, n] - 
    S2[a6, a3, a5, a1, SP[a2, a4], n] - S2[a6, a3, a5, SP[a1, a4], a2, n] - 
    S2[a6, a3, SP[a4, a5], a1, a2, n] - S2[a6, SP[a3, a4], a5, a1, a2, n] + 
    S2[SP[a1, a2], a5, a3, a6, a4, n] - S2[SP[a4, a6], a3, a5, a1, a2, n] + 
    S2[a6, a3, a4, a5, a1, a2, n] + S2[a6, a3, a5, a1, a2, a4, n] + 
    S2[a6, a3, a5, a1, a4, a2, n] + S2[a6, a3, a5, a4, a1, a2, n] + 
    S2[a6, a4, a3, a5, a1, a2, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a2_, a1_, a5_, a4_, a3_, a6_, n_] :> 
  S2[a1, a2, a5, n]*S2[a3, a4, a6, n] + S2[a1, a5, a2, n]*S2[a3, a4, a6, n] + 
    S2[a1, a2, a5, n]*S2[a3, a6, a4, n] + S2[a1, a5, a2, n]*
     S2[a3, a6, a4, n] + S2[SP[a1, a3], SP[a2, a4], SP[a5, a6], n] + 
    S2[SP[a1, a3], SP[a2, a6], SP[a4, a5], n] + S2[SP[a1, a3], SP[a4, a5], 
     SP[a2, a6], n] + S2[SP[a1, a3], SP[a5, a6], SP[a2, a4], n] - 
    S2[a3, a6, n]*S2[a1, a2, a5, a4, n] + S2[a1, a2, SP[a3, a5], SP[a4, a6], 
     n] - S2[a1, a3, SP[a2, a4], SP[a5, a6], n] - S2[a1, a3, SP[a2, a6], 
     SP[a4, a5], n] - S2[a1, a3, SP[a4, a5], SP[a2, a6], n] - 
    S2[a1, a3, SP[a5, a6], SP[a2, a4], n] - S2[a3, a6, n]*
     S2[a1, a5, a2, a4, n] - S2[a3, a6, n]*S2[a1, a5, a4, a2, n] + 
    S2[a1, a5, SP[a2, a3], SP[a4, a6], n] + S2[a1, a5, SP[a3, a4], 
     SP[a2, a6], n] - S2[a1, SP[a2, a3], a4, SP[a5, a6], n] + 
    S2[a1, SP[a2, a3], a5, SP[a4, a6], n] - S2[a1, SP[a2, a3], a6, 
     SP[a4, a5], n] - S2[a1, SP[a2, a3], SP[a4, a5], a6, n] + 
    S2[a1, SP[a3, a5], a2, SP[a4, a6], n] - S2[a1, SP[a3, a5], a6, 
     SP[a2, a4], n] - S2[a1, SP[a3, a5], SP[a2, a4], a6, n] + 
    S2[a1, SP[a3, a5], SP[a4, a6], a2, n] - S2[a3, a1, SP[a2, a4], 
     SP[a5, a6], n] - S2[a3, a1, SP[a2, a6], SP[a4, a5], n] - 
    S2[a3, a1, SP[a4, a5], SP[a2, a6], n] - S2[a3, a1, SP[a5, a6], 
     SP[a2, a4], n] - S2[a1, a2, n]*S2[a3, a4, a5, a6, n] - 
    S2[a1, a2, n]*S2[a3, a4, a6, a5, n] + S2[a3, a4, SP[a1, a5], SP[a2, a6], 
     n] + S2[a3, a4, SP[a1, a6], SP[a2, a5], n] - 
    S2[a1, a2, n]*S2[a3, a6, a4, a5, n] + S2[a3, a6, SP[a1, a4], SP[a2, a5], 
     n] - S2[a3, SP[a1, a4], a2, SP[a5, a6], n] + S2[a3, SP[a1, a4], a6, 
     SP[a2, a5], n] + S2[a3, SP[a1, a4], SP[a2, a5], a6, n] - 
    S2[a3, SP[a1, a4], SP[a5, a6], a2, n] - S2[a3, SP[a1, a6], a2, 
     SP[a4, a5], n] + S2[a3, SP[a1, a6], a4, SP[a2, a5], n] - 
    S2[a3, SP[a1, a6], a5, SP[a2, a4], n] - S2[a3, SP[a1, a6], SP[a4, a5], 
     a2, n] - S2[SP[a1, a3], a2, a4, SP[a5, a6], n] + 
    S2[SP[a1, a3], a2, a5, SP[a4, a6], n] - S2[SP[a1, a3], a2, a6, 
     SP[a4, a5], n] - S2[SP[a1, a3], a2, SP[a4, a5], a6, n] - 
    S2[SP[a1, a3], a4, a2, SP[a5, a6], n] + S2[SP[a1, a3], a4, a6, 
     SP[a2, a5], n] + S2[SP[a1, a3], a4, SP[a2, a5], a6, n] - 
    S2[SP[a1, a3], a4, SP[a5, a6], a2, n] + S2[SP[a1, a3], a5, a2, 
     SP[a4, a6], n] - S2[SP[a1, a3], a5, a6, SP[a2, a4], n] - 
    S2[SP[a1, a3], a5, SP[a2, a4], a6, n] + S2[SP[a1, a3], a5, SP[a4, a6], 
     a2, n] - S2[SP[a1, a3], a6, a2, SP[a4, a5], n] + 
    S2[SP[a1, a3], a6, a4, SP[a2, a5], n] - S2[SP[a1, a3], a6, a5, 
     SP[a2, a4], n] - S2[SP[a1, a3], a6, SP[a4, a5], a2, n] - 
    S2[SP[a1, a3], SP[a4, a5], a2, a6, n] - S2[SP[a1, a3], SP[a4, a5], a6, 
     a2, n] + S2[a1, a2, a3, a4, SP[a5, a6], n] - 
    S2[a1, a2, a3, a5, SP[a4, a6], n] + S2[a1, a2, a3, a6, SP[a4, a5], n] + 
    S2[a1, a2, a3, SP[a4, a5], a6, n] - S2[a1, a2, a5, a3, SP[a4, a6], n] - 
    S2[a1, a2, a5, SP[a3, a4], a6, n] + S2[a1, a3, a2, a4, SP[a5, a6], n] - 
    S2[a1, a3, a2, a5, SP[a4, a6], n] + S2[a1, a3, a2, a6, SP[a4, a5], n] + 
    S2[a1, a3, a2, SP[a4, a5], a6, n] + S2[a1, a3, a4, a2, SP[a5, a6], n] - 
    S2[a1, a3, a4, a6, SP[a2, a5], n] - S2[a1, a3, a4, SP[a2, a5], a6, n] + 
    S2[a1, a3, a4, SP[a5, a6], a2, n] - S2[a1, a3, a5, a2, SP[a4, a6], n] + 
    S2[a1, a3, a5, a6, SP[a2, a4], n] + S2[a1, a3, a5, SP[a2, a4], a6, n] - 
    S2[a1, a3, a5, SP[a4, a6], a2, n] + S2[a1, a3, a6, a2, SP[a4, a5], n] - 
    S2[a1, a3, a6, a4, SP[a2, a5], n] + S2[a1, a3, a6, a5, SP[a2, a4], n] + 
    S2[a1, a3, a6, SP[a4, a5], a2, n] + S2[a1, a3, SP[a4, a5], a2, a6, n] + 
    S2[a1, a3, SP[a4, a5], a6, a2, n] - S2[a1, a5, a2, a3, SP[a4, a6], n] - 
    S2[a1, a5, a2, SP[a3, a4], a6, n] - S2[a1, a5, a3, a2, SP[a4, a6], n] + 
    S2[a1, a5, a3, a6, SP[a2, a4], n] + S2[a1, a5, a3, SP[a2, a4], a6, n] - 
    S2[a1, a5, a3, SP[a4, a6], a2, n] + S2[a2, n]*S2[a1, a5, a4, a3, a6, n] + 
    S2[a1, a5, SP[a2, a4], a3, a6, n] - S2[a1, a5, SP[a3, a4], a2, a6, n] - 
    S2[a1, a5, SP[a3, a4], a6, a2, n] + S2[a1, SP[a2, a5], a4, a3, a6, n] + 
    S2[a3, a1, a2, a4, SP[a5, a6], n] - S2[a3, a1, a2, a5, SP[a4, a6], n] + 
    S2[a3, a1, a2, a6, SP[a4, a5], n] + S2[a3, a1, a2, SP[a4, a5], a6, n] + 
    S2[a3, a1, a4, a2, SP[a5, a6], n] - S2[a3, a1, a4, a6, SP[a2, a5], n] - 
    S2[a3, a1, a4, SP[a2, a5], a6, n] + S2[a3, a1, a4, SP[a5, a6], a2, n] - 
    S2[a3, a1, a5, a2, SP[a4, a6], n] + S2[a3, a1, a5, a6, SP[a2, a4], n] + 
    S2[a3, a1, a5, SP[a2, a4], a6, n] - S2[a3, a1, a5, SP[a4, a6], a2, n] + 
    S2[a3, a1, a6, a2, SP[a4, a5], n] - S2[a3, a1, a6, a4, SP[a2, a5], n] + 
    S2[a3, a1, a6, a5, SP[a2, a4], n] + S2[a3, a1, a6, SP[a4, a5], a2, n] + 
    S2[a3, a1, SP[a4, a5], a2, a6, n] + S2[a3, a1, SP[a4, a5], a6, a2, n] + 
    S2[a3, a4, a1, a2, SP[a5, a6], n] - S2[a3, a4, a1, a6, SP[a2, a5], n] - 
    S2[a3, a4, a1, SP[a2, a5], a6, n] + S2[a3, a4, a1, SP[a5, a6], a2, n] + 
    S2[a6, n]*S2[a3, a4, a5, a1, a2, n] - S2[a3, a4, a6, a1, SP[a2, a5], n] - 
    S2[a3, a4, a6, SP[a1, a5], a2, n] - S2[a3, a4, SP[a1, a5], a2, a6, n] - 
    S2[a3, a4, SP[a1, a5], a6, a2, n] + S2[a3, a4, SP[a5, a6], a1, a2, n] + 
    S2[a3, a6, a1, a2, SP[a4, a5], n] - S2[a3, a6, a1, a4, SP[a2, a5], n] + 
    S2[a3, a6, a1, a5, SP[a2, a4], n] + S2[a3, a6, a1, SP[a4, a5], a2, n] - 
    S2[a3, a6, a4, a1, SP[a2, a5], n] - S2[a3, a6, a4, SP[a1, a5], a2, n] + 
    S2[a3, SP[a4, a6], a5, a1, a2, n] + S2[SP[a1, a2], a5, a4, a3, a6, n] + 
    S2[SP[a3, a6], a4, a5, a1, a2, n] - S2[a6, a3, a4, a5, a1, a2, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a2_, a1_, a5_, a4_, a6_, a3_, n_] :> 
  -(S2[a1, a2, a5, n]*S2[a3, a6, a4, n]) - S2[a1, a5, a2, n]*
     S2[a3, a6, a4, n] - S2[SP[a1, a3], SP[a2, a6], SP[a4, a5], n] - 
    S2[SP[a1, a3], SP[a5, a6], SP[a2, a4], n] + 
    S2[a3, a6, n]*S2[a1, a2, a5, a4, n] - S2[a1, a2, SP[a3, a5], SP[a4, a6], 
     n] + S2[a1, a3, SP[a2, a6], SP[a4, a5], n] + S2[a1, a3, SP[a5, a6], 
     SP[a2, a4], n] + S2[a3, a6, n]*S2[a1, a5, a2, a4, n] + 
    S2[a3, a6, n]*S2[a1, a5, a4, a2, n] - S2[a1, a5, SP[a2, a3], SP[a4, a6], 
     n] - S2[a1, a5, SP[a3, a4], SP[a2, a6], n] - S2[a1, SP[a2, a3], a5, 
     SP[a4, a6], n] + S2[a1, SP[a2, a3], a6, SP[a4, a5], n] - 
    S2[a1, SP[a3, a5], a2, SP[a4, a6], n] - S2[a1, SP[a3, a5], a4, 
     SP[a2, a6], n] + S2[a1, SP[a3, a5], a6, SP[a2, a4], n] - 
    S2[a1, SP[a3, a5], SP[a4, a6], a2, n] + S2[a3, a1, SP[a2, a6], 
     SP[a4, a5], n] + S2[a3, a1, SP[a5, a6], SP[a2, a4], n] + 
    S2[a1, a2, n]*S2[a3, a6, a4, a5, n] - S2[a3, a6, SP[a1, a4], SP[a2, a5], 
     n] + S2[a3, SP[a1, a6], a2, SP[a4, a5], n] - S2[a3, SP[a1, a6], a4, 
     SP[a2, a5], n] + S2[a3, SP[a1, a6], a5, SP[a2, a4], n] + 
    S2[a3, SP[a1, a6], SP[a4, a5], a2, n] - S2[SP[a1, a3], a2, a5, 
     SP[a4, a6], n] + S2[SP[a1, a3], a2, a6, SP[a4, a5], n] - 
    S2[SP[a1, a3], a5, a2, SP[a4, a6], n] - S2[SP[a1, a3], a5, a4, 
     SP[a2, a6], n] + S2[SP[a1, a3], a5, a6, SP[a2, a4], n] - 
    S2[SP[a1, a3], a5, SP[a4, a6], a2, n] + S2[SP[a1, a3], a6, a2, 
     SP[a4, a5], n] - S2[SP[a1, a3], a6, a4, SP[a2, a5], n] + 
    S2[SP[a1, a3], a6, a5, SP[a2, a4], n] + S2[SP[a1, a3], a6, SP[a4, a5], 
     a2, n] + S2[a1, a2, a3, a5, SP[a4, a6], n] - 
    S2[a1, a2, a3, a6, SP[a4, a5], n] + S2[a1, a2, a5, a3, SP[a4, a6], n] - 
    S2[a3, n]*S2[a1, a2, a5, a4, a6, n] - S2[a1, a2, a5, a4, SP[a3, a6], n] + 
    S2[a1, a3, a2, a5, SP[a4, a6], n] - S2[a1, a3, a2, a6, SP[a4, a5], n] + 
    S2[a1, a3, a5, a2, SP[a4, a6], n] + S2[a1, a3, a5, a4, SP[a2, a6], n] - 
    S2[a1, a3, a5, a6, SP[a2, a4], n] + S2[a1, a3, a5, SP[a4, a6], a2, n] - 
    S2[a1, a3, a6, a2, SP[a4, a5], n] + S2[a1, a3, a6, a4, SP[a2, a5], n] - 
    S2[a1, a3, a6, a5, SP[a2, a4], n] - S2[a1, a3, a6, SP[a4, a5], a2, n] + 
    S2[a1, a5, a2, a3, SP[a4, a6], n] - S2[a3, n]*S2[a1, a5, a2, a4, a6, n] - 
    S2[a1, a5, a2, a4, SP[a3, a6], n] + S2[a1, a5, a3, a2, SP[a4, a6], n] + 
    S2[a1, a5, a3, a4, SP[a2, a6], n] - S2[a1, a5, a3, a6, SP[a2, a4], n] + 
    S2[a1, a5, a3, SP[a4, a6], a2, n] - S2[a3, n]*S2[a1, a5, a4, a2, a6, n] - 
    S2[a1, a5, a4, a2, SP[a3, a6], n] + S2[a1, a5, a4, a3, SP[a2, a6], n] - 
    S2[a3, n]*S2[a1, a5, a4, a6, a2, n] + 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] + S2[a1, a5, a4, SP[a2, a6], a3, n] - 
    S2[a1, a5, a4, SP[a3, a6], a2, n] + S2[a1, a5, SP[a2, a4], a6, a3, n] + 
    S2[a1, SP[a2, a5], a4, a6, a3, n] + S2[a3, a1, a2, a5, SP[a4, a6], n] - 
    S2[a3, a1, a2, a6, SP[a4, a5], n] + S2[a3, a1, a5, a2, SP[a4, a6], n] + 
    S2[a3, a1, a5, a4, SP[a2, a6], n] - S2[a3, a1, a5, a6, SP[a2, a4], n] + 
    S2[a3, a1, a5, SP[a4, a6], a2, n] - S2[a3, a1, a6, a2, SP[a4, a5], n] + 
    S2[a3, a1, a6, a4, SP[a2, a5], n] - S2[a3, a1, a6, a5, SP[a2, a4], n] - 
    S2[a3, a1, a6, SP[a4, a5], a2, n] - S2[a3, a6, a1, a2, SP[a4, a5], n] + 
    S2[a3, a6, a1, a4, SP[a2, a5], n] - S2[a3, a6, a1, a5, SP[a2, a4], n] - 
    S2[a3, a6, a1, SP[a4, a5], a2, n] + S2[a3, a6, a4, a1, SP[a2, a5], n] + 
    S2[a3, a6, a4, SP[a1, a5], a2, n] - S2[a3, n]*S2[a6, a4, a5, a1, a2, n] - 
    S2[a6, a4, a5, a1, SP[a2, a3], n] - S2[a6, a4, a5, SP[a1, a3], a2, n] - 
    S2[a6, a4, SP[a3, a5], a1, a2, n] - S2[a6, SP[a3, a4], a5, a1, a2, n] + 
    S2[SP[a1, a2], a5, a4, a6, a3, n] - S2[SP[a3, a6], a4, a5, a1, a2, n] + 
    S2[a6, a3, a4, a5, a1, a2, n] + S2[a6, a4, a3, a5, a1, a2, n] + 
    S2[a6, a4, a5, a1, a2, a3, n] + S2[a6, a4, a5, a1, a3, a2, n] + 
    S2[a6, a4, a5, a3, a1, a2, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a2_, a1_, a5_, a6_, a3_, a4_, n_] :> 
  S2[a1, a2, a5, n]*S2[a3, a4, a6, n] + S2[a1, a5, a2, n]*S2[a3, a4, a6, n] + 
    S2[a1, a2, a5, n]*S2[a3, a6, a4, n] + S2[a1, a5, a2, n]*
     S2[a3, a6, a4, n] + S2[SP[a1, a3], SP[a2, a4], SP[a5, a6], n] + 
    S2[SP[a1, a3], SP[a2, a6], SP[a4, a5], n] + S2[SP[a1, a3], SP[a4, a5], 
     SP[a2, a6], n] + S2[SP[a1, a3], SP[a5, a6], SP[a2, a4], n] - 
    S2[a1, a3, SP[a2, a4], SP[a5, a6], n] - S2[a1, a3, SP[a2, a6], 
     SP[a4, a5], n] - S2[a1, a3, SP[a4, a5], SP[a2, a6], n] - 
    S2[a1, a3, SP[a5, a6], SP[a2, a4], n] - S2[a1, SP[a2, a3], a4, 
     SP[a5, a6], n] - S2[a1, SP[a2, a3], a6, SP[a4, a5], n] - 
    S2[a1, SP[a2, a3], SP[a4, a5], a6, n] - S2[a1, SP[a2, a3], SP[a5, a6], 
     a4, n] - S2[a1, SP[a3, a5], a4, SP[a2, a6], n] - 
    S2[a1, SP[a3, a5], a6, SP[a2, a4], n] - S2[a1, SP[a3, a5], SP[a2, a4], 
     a6, n] - S2[a1, SP[a3, a5], SP[a2, a6], a4, n] - 
    S2[a3, a1, SP[a2, a4], SP[a5, a6], n] - S2[a3, a1, SP[a2, a6], 
     SP[a4, a5], n] - S2[a3, a1, SP[a4, a5], SP[a2, a6], n] - 
    S2[a3, a1, SP[a5, a6], SP[a2, a4], n] - S2[a3, SP[a1, a4], a2, 
     SP[a5, a6], n] - S2[a3, SP[a1, a4], a5, SP[a2, a6], n] - 
    S2[a3, SP[a1, a4], SP[a2, a6], a5, n] - S2[a3, SP[a1, a4], SP[a5, a6], 
     a2, n] - S2[a3, SP[a1, a6], a2, SP[a4, a5], n] - 
    S2[a3, SP[a1, a6], a5, SP[a2, a4], n] - S2[a3, SP[a1, a6], SP[a2, a4], 
     a5, n] - S2[a3, SP[a1, a6], SP[a4, a5], a2, n] - 
    S2[a1, a2, n]*S2[a5, a6, a3, a4, n] + S2[a5, a6, SP[a1, a3], SP[a2, a4], 
     n] + S2[a5, SP[a1, a6], a3, SP[a2, a4], n] + 
    S2[a5, SP[a1, a6], SP[a2, a3], a4, n] - S2[SP[a1, a3], a2, a4, 
     SP[a5, a6], n] - S2[SP[a1, a3], a2, a6, SP[a4, a5], n] - 
    S2[SP[a1, a3], a2, SP[a4, a5], a6, n] - S2[SP[a1, a3], a2, SP[a5, a6], 
     a4, n] - S2[SP[a1, a3], a4, a2, SP[a5, a6], n] - 
    S2[SP[a1, a3], a4, a5, SP[a2, a6], n] - S2[SP[a1, a3], a4, SP[a2, a6], 
     a5, n] - S2[SP[a1, a3], a4, SP[a5, a6], a2, n] - 
    S2[SP[a1, a3], a5, a4, SP[a2, a6], n] - S2[SP[a1, a3], a5, a6, 
     SP[a2, a4], n] - S2[SP[a1, a3], a5, SP[a2, a4], a6, n] - 
    S2[SP[a1, a3], a5, SP[a2, a6], a4, n] - S2[SP[a1, a3], a6, a2, 
     SP[a4, a5], n] - S2[SP[a1, a3], a6, a5, SP[a2, a4], n] - 
    S2[SP[a1, a3], a6, SP[a2, a4], a5, n] - S2[SP[a1, a3], a6, SP[a4, a5], 
     a2, n] - S2[SP[a1, a3], SP[a2, a4], a5, a6, n] - 
    S2[SP[a1, a3], SP[a2, a4], a6, a5, n] - S2[SP[a1, a3], SP[a2, a6], a4, 
     a5, n] - S2[SP[a1, a3], SP[a2, a6], a5, a4, n] - 
    S2[SP[a1, a3], SP[a4, a5], a2, a6, n] - S2[SP[a1, a3], SP[a4, a5], a6, 
     a2, n] - S2[SP[a1, a3], SP[a5, a6], a2, a4, n] - 
    S2[SP[a1, a3], SP[a5, a6], a4, a2, n] + S2[SP[a1, a5], a6, a3, 
     SP[a2, a4], n] + S2[SP[a1, a5], a6, SP[a2, a3], a4, n] + 
    S2[SP[a1, a5], SP[a2, a6], a3, a4, n] + S2[a1, a2, a3, a4, SP[a5, a6], 
     n] + S2[a1, a2, a3, a6, SP[a4, a5], n] + S2[a1, a2, a3, SP[a4, a5], a6, 
     n] + S2[a1, a2, a3, SP[a5, a6], a4, n] + 
    S2[a6, n]*S2[a1, a2, a4, a3, a5, n] + S2[a1, a2, a4, a3, SP[a5, a6], n] + 
    S2[a6, n]*S2[a1, a2, a4, a5, a3, n] - 
    S2[a3, n]*S2[a1, a2, a4, a5, a6, n] - 
    S2[a3, n]*S2[a1, a2, a4, a6, a5, n] - S2[a1, a2, a4, a6, SP[a3, a5], n] - 
    S2[a1, a2, a4, SP[a3, a5], a6, n] + S2[a1, a2, a4, SP[a5, a6], a3, n] + 
    S2[a6, n]*S2[a1, a2, a5, a4, a3, n] - 
    S2[a3, n]*S2[a1, a2, a5, a4, a6, n] - 
    S2[a3, n]*S2[a1, a2, a5, a6, a4, n] - S2[a1, a2, a5, a6, SP[a3, a4], n] - 
    S2[a1, a2, a5, SP[a3, a4], a6, n] - S2[a1, a2, a5, SP[a3, a6], a4, n] + 
    S2[a1, a2, a5, SP[a4, a6], a3, n] + S2[a5, n]*S2[a1, a2, a6, a3, a4, n] + 
    S2[a1, a2, a6, a3, SP[a4, a5], n] - S2[a3, n]*S2[a1, a2, a6, a4, a5, n] - 
    S2[a1, a2, a6, a4, SP[a3, a5], n] - S2[a3, n]*S2[a1, a2, a6, a5, a4, n] - 
    S2[a1, a2, a6, a5, SP[a3, a4], n] - S2[a1, a2, a6, SP[a3, a4], a5, n] - 
    S2[a1, a2, SP[a3, a4], a5, a6, n] - S2[a1, a2, SP[a3, a4], a6, a5, n] - 
    S2[a1, a2, SP[a3, a6], a4, a5, n] - S2[a1, a2, SP[a3, a6], a5, a4, n] + 
    S2[a1, a2, SP[a4, a6], a3, a5, n] + S2[a1, a2, SP[a4, a6], a5, a3, n] + 
    S2[a1, a2, SP[a5, a6], a3, a4, n] + S2[a1, a2, SP[a5, a6], a4, a3, n] + 
    S2[a1, a3, a2, a4, SP[a5, a6], n] + S2[a1, a3, a2, a6, SP[a4, a5], n] + 
    S2[a1, a3, a2, SP[a4, a5], a6, n] + S2[a1, a3, a2, SP[a5, a6], a4, n] + 
    S2[a1, a3, a4, a2, SP[a5, a6], n] + S2[a1, a3, a4, a5, SP[a2, a6], n] + 
    S2[a1, a3, a4, SP[a2, a6], a5, n] + S2[a1, a3, a4, SP[a5, a6], a2, n] + 
    S2[a1, a3, a5, a4, SP[a2, a6], n] + S2[a1, a3, a5, a6, SP[a2, a4], n] + 
    S2[a1, a3, a5, SP[a2, a4], a6, n] + S2[a1, a3, a5, SP[a2, a6], a4, n] + 
    S2[a1, a3, a6, a2, SP[a4, a5], n] + S2[a1, a3, a6, a5, SP[a2, a4], n] + 
    S2[a1, a3, a6, SP[a2, a4], a5, n] + S2[a1, a3, a6, SP[a4, a5], a2, n] + 
    S2[a1, a3, SP[a2, a4], a5, a6, n] + S2[a1, a3, SP[a2, a4], a6, a5, n] + 
    S2[a1, a3, SP[a2, a6], a4, a5, n] + S2[a1, a3, SP[a2, a6], a5, a4, n] + 
    S2[a1, a3, SP[a4, a5], a2, a6, n] + S2[a1, a3, SP[a4, a5], a6, a2, n] + 
    S2[a1, a3, SP[a5, a6], a2, a4, n] + S2[a1, a3, SP[a5, a6], a4, a2, n] + 
    S2[a6, n]*S2[a1, a4, a2, a3, a5, n] + S2[a1, a4, a2, a3, SP[a5, a6], n] + 
    S2[a6, n]*S2[a1, a4, a2, a5, a3, n] - 
    S2[a3, n]*S2[a1, a4, a2, a5, a6, n] - 
    S2[a3, n]*S2[a1, a4, a2, a6, a5, n] - S2[a1, a4, a2, a6, SP[a3, a5], n] - 
    S2[a1, a4, a2, SP[a3, a5], a6, n] + S2[a1, a4, a2, SP[a5, a6], a3, n] + 
    S2[a6, n]*S2[a1, a4, a3, a2, a5, n] + S2[a1, a4, a3, a2, SP[a5, a6], n] + 
    S2[a6, n]*S2[a1, a4, a3, a5, a2, n] + S2[a1, a4, a3, a5, SP[a2, a6], n] + 
    S2[a1, a4, a3, SP[a2, a6], a5, n] + S2[a1, a4, a3, SP[a5, a6], a2, n] + 
    S2[a6, n]*S2[a1, a4, a5, a2, a3, n] - 
    S2[a3, n]*S2[a1, a4, a5, a2, a6, n] + 
    S2[a6, n]*S2[a1, a4, a5, a3, a2, n] + S2[a1, a4, a5, a3, SP[a2, a6], n] - 
    S2[a3, n]*S2[a1, a4, a5, a6, a2, n] - S2[a1, a4, a5, a6, SP[a2, a3], n] - 
    S2[a1, a4, a5, SP[a2, a3], a6, n] + S2[a1, a4, a5, SP[a2, a6], a3, n] - 
    S2[a3, n]*S2[a1, a4, a6, a2, a5, n] - S2[a1, a4, a6, a2, SP[a3, a5], n] - 
    S2[a3, n]*S2[a1, a4, a6, a5, a2, n] - S2[a1, a4, a6, a5, SP[a2, a3], n] - 
    S2[a1, a4, a6, SP[a2, a3], a5, n] - S2[a1, a4, a6, SP[a3, a5], a2, n] - 
    S2[a1, a4, SP[a2, a3], a5, a6, n] - S2[a1, a4, SP[a2, a3], a6, a5, n] + 
    S2[a1, a4, SP[a2, a6], a3, a5, n] + S2[a1, a4, SP[a2, a6], a5, a3, n] - 
    S2[a1, a4, SP[a3, a5], a2, a6, n] - S2[a1, a4, SP[a3, a5], a6, a2, n] + 
    S2[a1, a4, SP[a5, a6], a2, a3, n] + S2[a1, a4, SP[a5, a6], a3, a2, n] + 
    S2[a6, n]*S2[a1, a5, a2, a4, a3, n] - 
    S2[a3, n]*S2[a1, a5, a2, a4, a6, n] - 
    S2[a3, n]*S2[a1, a5, a2, a6, a4, n] - S2[a1, a5, a2, a6, SP[a3, a4], n] - 
    S2[a1, a5, a2, SP[a3, a4], a6, n] - S2[a1, a5, a2, SP[a3, a6], a4, n] + 
    S2[a1, a5, a2, SP[a4, a6], a3, n] + S2[a1, a5, a3, a4, SP[a2, a6], n] + 
    S2[a1, a5, a3, a6, SP[a2, a4], n] + S2[a1, a5, a3, SP[a2, a4], a6, n] + 
    S2[a1, a5, a3, SP[a2, a6], a4, n] + S2[a6, n]*S2[a1, a5, a4, a2, a3, n] - 
    S2[a3, n]*S2[a1, a5, a4, a2, a6, n] + 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] + S2[a1, a5, a4, a3, SP[a2, a6], n] - 
    S2[a3, n]*S2[a1, a5, a4, a6, a2, n] - S2[a1, a5, a4, a6, SP[a2, a3], n] - 
    S2[a1, a5, a4, SP[a2, a3], a6, n] + S2[a1, a5, a4, SP[a2, a6], a3, n] - 
    S2[a3, n]*S2[a1, a5, a6, a2, a4, n] - S2[a1, a5, a6, a2, SP[a3, a4], n] + 
    S2[a2, n]*S2[a1, a5, a6, a3, a4, n] - 
    S2[a3, n]*S2[a1, a5, a6, a4, a2, n] - S2[a1, a5, a6, a4, SP[a2, a3], n] - 
    S2[a1, a5, a6, SP[a2, a3], a4, n] - S2[a1, a5, a6, SP[a3, a4], a2, n] + 
    S2[a1, a5, SP[a2, a6], a4, a3, n] - S2[a1, a5, SP[a3, a4], a2, a6, n] - 
    S2[a1, a5, SP[a3, a4], a6, a2, n] - S2[a1, a5, SP[a3, a6], a2, a4, n] - 
    S2[a1, a5, SP[a3, a6], a4, a2, n] + S2[a1, a5, SP[a4, a6], a2, a3, n] + 
    S2[a1, a5, SP[a4, a6], a3, a2, n] + S2[a5, n]*S2[a1, a6, a2, a3, a4, n] + 
    S2[a1, a6, a2, a3, SP[a4, a5], n] - S2[a3, n]*S2[a1, a6, a2, a4, a5, n] - 
    S2[a1, a6, a2, a4, SP[a3, a5], n] - S2[a3, n]*S2[a1, a6, a2, a5, a4, n] - 
    S2[a1, a6, a2, a5, SP[a3, a4], n] - S2[a1, a6, a2, SP[a3, a4], a5, n] + 
    S2[a5, n]*S2[a1, a6, a3, a2, a4, n] + S2[a1, a6, a3, a2, SP[a4, a5], n] + 
    S2[a5, n]*S2[a1, a6, a3, a4, a2, n] + S2[a1, a6, a3, a4, SP[a2, a5], n] + 
    S2[a1, a6, a3, SP[a2, a5], a4, n] + S2[a1, a6, a3, SP[a4, a5], a2, n] - 
    S2[a3, n]*S2[a1, a6, a4, a2, a5, n] - S2[a1, a6, a4, a2, SP[a3, a5], n] - 
    S2[a3, n]*S2[a1, a6, a4, a5, a2, n] - S2[a1, a6, a4, a5, SP[a2, a3], n] - 
    S2[a1, a6, a4, SP[a2, a3], a5, n] - S2[a1, a6, a4, SP[a3, a5], a2, n] - 
    S2[a3, n]*S2[a1, a6, a5, a2, a4, n] - S2[a1, a6, a5, a2, SP[a3, a4], n] - 
    S2[a3, n]*S2[a1, a6, a5, a4, a2, n] - S2[a1, a6, a5, a4, SP[a2, a3], n] - 
    S2[a1, a6, a5, SP[a2, a3], a4, n] - S2[a1, a6, a5, SP[a3, a4], a2, n] - 
    S2[a1, a6, SP[a2, a3], a4, a5, n] - S2[a1, a6, SP[a2, a3], a5, a4, n] + 
    S2[a1, a6, SP[a2, a5], a3, a4, n] - S2[a1, a6, SP[a3, a4], a2, a5, n] - 
    S2[a1, a6, SP[a3, a4], a5, a2, n] + S2[a1, SP[a2, a5], a6, a3, a4, n] + 
    S2[a1, SP[a2, a6], a4, a3, a5, n] + S2[a1, SP[a2, a6], a4, a5, a3, n] + 
    S2[a1, SP[a2, a6], a5, a4, a3, n] - S2[a1, SP[a3, a4], a2, a5, a6, n] - 
    S2[a1, SP[a3, a4], a2, a6, a5, n] - S2[a1, SP[a3, a4], a5, a2, a6, n] - 
    S2[a1, SP[a3, a4], a5, a6, a2, n] - S2[a1, SP[a3, a4], a6, a2, a5, n] - 
    S2[a1, SP[a3, a4], a6, a5, a2, n] - S2[a1, SP[a3, a6], a2, a4, a5, n] - 
    S2[a1, SP[a3, a6], a2, a5, a4, n] - S2[a1, SP[a3, a6], a4, a2, a5, n] - 
    S2[a1, SP[a3, a6], a4, a5, a2, n] - S2[a1, SP[a3, a6], a5, a2, a4, n] - 
    S2[a1, SP[a3, a6], a5, a4, a2, n] + S2[a1, SP[a4, a6], a2, a3, a5, n] + 
    S2[a1, SP[a4, a6], a2, a5, a3, n] + S2[a1, SP[a4, a6], a3, a2, a5, n] + 
    S2[a1, SP[a4, a6], a3, a5, a2, n] + S2[a1, SP[a4, a6], a5, a2, a3, n] + 
    S2[a1, SP[a4, a6], a5, a3, a2, n] + S2[a1, SP[a5, a6], a2, a3, a4, n] + 
    S2[a1, SP[a5, a6], a2, a4, a3, n] + S2[a1, SP[a5, a6], a3, a2, a4, n] + 
    S2[a1, SP[a5, a6], a3, a4, a2, n] + S2[a1, SP[a5, a6], a4, a2, a3, n] + 
    S2[a1, SP[a5, a6], a4, a3, a2, n] + S2[a3, a1, a2, a4, SP[a5, a6], n] + 
    S2[a3, a1, a2, a6, SP[a4, a5], n] + S2[a3, a1, a2, SP[a4, a5], a6, n] + 
    S2[a3, a1, a2, SP[a5, a6], a4, n] + S2[a3, a1, a4, a2, SP[a5, a6], n] + 
    S2[a3, a1, a4, a5, SP[a2, a6], n] + S2[a3, a1, a4, SP[a2, a6], a5, n] + 
    S2[a3, a1, a4, SP[a5, a6], a2, n] + S2[a3, a1, a5, a4, SP[a2, a6], n] + 
    S2[a3, a1, a5, a6, SP[a2, a4], n] + S2[a3, a1, a5, SP[a2, a4], a6, n] + 
    S2[a3, a1, a5, SP[a2, a6], a4, n] + S2[a3, a1, a6, a2, SP[a4, a5], n] + 
    S2[a3, a1, a6, a5, SP[a2, a4], n] + S2[a3, a1, a6, SP[a2, a4], a5, n] + 
    S2[a3, a1, a6, SP[a4, a5], a2, n] + S2[a3, a1, SP[a2, a4], a5, a6, n] + 
    S2[a3, a1, SP[a2, a4], a6, a5, n] + S2[a3, a1, SP[a2, a6], a4, a5, n] + 
    S2[a3, a1, SP[a2, a6], a5, a4, n] + S2[a3, a1, SP[a4, a5], a2, a6, n] + 
    S2[a3, a1, SP[a4, a5], a6, a2, n] + S2[a3, a1, SP[a5, a6], a2, a4, n] + 
    S2[a3, a1, SP[a5, a6], a4, a2, n] - S2[a6, n]*S2[a3, a4, a1, a2, a5, n] - 
    S2[a6, n]*S2[a3, a4, a1, a5, a2, n] - 
    S2[a5, n]*S2[a3, a6, a1, a2, a4, n] - 
    S2[a5, n]*S2[a3, a6, a1, a4, a2, n] - S2[a3, a6, a1, a4, SP[a2, a5], n] + 
    S2[a3, a6, a1, a5, SP[a2, a4], n] + S2[a3, a6, a1, SP[a2, a4], a5, n] - 
    S2[a3, a6, a1, SP[a2, a5], a4, n] + S2[a3, a6, SP[a1, a4], a2, a5, n] + 
    S2[a3, a6, SP[a1, a4], a5, a2, n] - S2[a3, a6, SP[a1, a5], a2, a4, n] - 
    S2[a3, a6, SP[a1, a5], a4, a2, n] + S2[a3, SP[a1, a4], a2, a5, a6, n] + 
    S2[a3, SP[a1, a4], a2, a6, a5, n] + S2[a3, SP[a1, a4], a5, a2, a6, n] + 
    S2[a3, SP[a1, a4], a5, a6, a2, n] + S2[a3, SP[a1, a4], a6, a2, a5, n] + 
    S2[a3, SP[a1, a4], a6, a5, a2, n] + S2[a3, SP[a1, a6], a2, a4, a5, n] + 
    S2[a3, SP[a1, a6], a2, a5, a4, n] + S2[a3, SP[a1, a6], a4, a2, a5, n] + 
    S2[a3, SP[a1, a6], a4, a5, a2, n] + S2[a3, SP[a1, a6], a5, a2, a4, n] + 
    S2[a3, SP[a1, a6], a5, a4, a2, n] - S2[a3, SP[a4, a6], a1, a2, a5, n] - 
    S2[a3, SP[a4, a6], a1, a5, a2, n] - S2[a3, SP[a5, a6], a1, a2, a4, n] - 
    S2[a3, SP[a5, a6], a1, a4, a2, n] - S2[a5, a1, a6, a3, SP[a2, a4], n] - 
    S2[a5, a1, a6, SP[a2, a3], a4, n] - S2[a5, a1, SP[a2, a6], a3, a4, n] + 
    S2[a3, n]*S2[a5, a6, a1, a2, a4, n] + S2[a5, a6, a1, a2, SP[a3, a4], n] - 
    S2[a5, a6, a1, a3, SP[a2, a4], n] + S2[a3, n]*S2[a5, a6, a1, a4, a2, n] + 
    S2[a5, a6, a1, a4, SP[a2, a3], n] + S2[a5, a6, a1, SP[a3, a4], a2, n] - 
    S2[a5, a6, a3, a1, SP[a2, a4], n] - S2[a5, a6, a3, SP[a1, a4], a2, n] - 
    S2[a5, SP[a1, a6], a2, a3, a4, n] - S2[a5, SP[a1, a6], a3, a2, a4, n] - 
    S2[a5, SP[a1, a6], a3, a4, a2, n] + S2[a5, SP[a3, a6], a1, a2, a4, n] + 
    S2[a5, SP[a3, a6], a1, a4, a2, n] - S2[a5, n]*S2[a6, a1, a2, a4, a3, n] - 
    S2[a6, a1, a2, a4, SP[a3, a5], n] - S2[a6, a1, a2, SP[a4, a5], a3, n] - 
    S2[a5, n]*S2[a6, a1, a4, a2, a3, n] - S2[a6, a1, a4, a2, SP[a3, a5], n] - 
    S2[a5, n]*S2[a6, a1, a4, a3, a2, n] - S2[a6, a1, a4, a3, SP[a2, a5], n] - 
    S2[a6, a1, a4, SP[a2, a5], a3, n] - S2[a6, a1, a4, SP[a3, a5], a2, n] - 
    S2[a6, a1, SP[a2, a5], a4, a3, n] - S2[a6, a1, SP[a4, a5], a2, a3, n] - 
    S2[a6, a1, SP[a4, a5], a3, a2, n] + S2[a5, n]*S2[a6, a3, a4, a1, a2, n] + 
    S2[a6, a3, a4, a1, SP[a2, a5], n] + S2[a6, a3, a4, SP[a1, a5], a2, n] + 
    S2[a6, a3, SP[a4, a5], a1, a2, n] + S2[a3, n]*S2[a6, a5, a1, a2, a4, n] + 
    S2[a6, a5, a1, a2, SP[a3, a4], n] + S2[a3, n]*S2[a6, a5, a1, a4, a2, n] + 
    S2[a6, a5, a1, a4, SP[a2, a3], n] + S2[a6, a5, a1, SP[a2, a3], a4, n] + 
    S2[a6, a5, a1, SP[a3, a4], a2, n] + S2[a6, a5, SP[a1, a3], a2, a4, n] + 
    S2[a6, a5, SP[a1, a3], a4, a2, n] - S2[a6, SP[a1, a5], a2, a4, a3, n] - 
    S2[a6, SP[a1, a5], a4, a2, a3, n] - S2[a6, SP[a1, a5], a4, a3, a2, n] + 
    S2[a6, SP[a3, a5], a1, a2, a4, n] + S2[a6, SP[a3, a5], a1, a4, a2, n] + 
    S2[a6, SP[a3, a5], a4, a1, a2, n] + S2[SP[a1, a2], a5, a6, a3, a4, n] + 
    S2[SP[a1, a6], a2, a4, a3, a5, n] + S2[SP[a1, a6], a2, a4, a5, a3, n] + 
    S2[SP[a1, a6], a2, a5, a4, a3, n] + S2[SP[a1, a6], a4, a2, a3, a5, n] + 
    S2[SP[a1, a6], a4, a2, a5, a3, n] + S2[SP[a1, a6], a4, a3, a2, a5, n] + 
    S2[SP[a1, a6], a4, a3, a5, a2, n] + S2[SP[a1, a6], a4, a5, a2, a3, n] + 
    S2[SP[a1, a6], a4, a5, a3, a2, n] + S2[SP[a1, a6], a5, a2, a4, a3, n] + 
    S2[SP[a1, a6], a5, a4, a2, a3, n] + S2[SP[a1, a6], a5, a4, a3, a2, n] - 
    S2[SP[a3, a6], a4, a1, a2, a5, n] - S2[SP[a3, a6], a4, a1, a5, a2, n] + 
    S2[SP[a3, a6], a5, a1, a2, a4, n] + S2[SP[a3, a6], a5, a1, a4, a2, n] - 
    S2[SP[a5, a6], a1, a2, a4, a3, n] - S2[SP[a5, a6], a1, a4, a2, a3, n] - 
    S2[SP[a5, a6], a1, a4, a3, a2, n] + S2[SP[a5, a6], a3, a4, a1, a2, n] - 
    S2[a6, a3, a4, a5, a1, a2, n] - S2[a6, a3, a5, a1, a2, a4, n] - 
    S2[a6, a3, a5, a1, a4, a2, n] - S2[a6, a3, a5, a4, a1, a2, n] - 
    S2[a6, a5, a1, a2, a3, a4, n] - S2[a6, a5, a1, a3, a2, a4, n] - 
    S2[a6, a5, a1, a3, a4, a2, n] - S2[a6, a5, a3, a1, a2, a4, n] - 
    S2[a6, a5, a3, a1, a4, a2, n] - S2[a6, a5, a3, a4, a1, a2, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a2_, a1_, a5_, a6_, a4_, a3_, n_] :> 
  -(S2[a1, a2, a5, n]*S2[a3, a4, a6, n]) - S2[a1, a5, a2, n]*
     S2[a3, a4, a6, n] - S2[SP[a1, a3], SP[a2, a4], SP[a5, a6], n] - 
    S2[SP[a1, a3], SP[a4, a5], SP[a2, a6], n] + S2[a1, a3, SP[a2, a4], 
     SP[a5, a6], n] + S2[a1, a3, SP[a4, a5], SP[a2, a6], n] + 
    S2[a1, SP[a2, a3], a4, SP[a5, a6], n] + S2[a1, SP[a2, a3], SP[a4, a5], 
     a6, n] + S2[a1, SP[a3, a5], a4, SP[a2, a6], n] + 
    S2[a1, SP[a3, a5], SP[a2, a4], a6, n] + S2[a3, a1, SP[a2, a4], 
     SP[a5, a6], n] + S2[a3, a1, SP[a4, a5], SP[a2, a6], n] - 
    S2[a1, a2, n]*S2[a3, a6, a4, a5, n] - S2[a1, a2, n]*
     S2[a3, a6, a5, a4, n] + S2[a3, a6, SP[a1, a4], SP[a2, a5], n] + 
    S2[a3, a6, SP[a1, a5], SP[a2, a4], n] + S2[a3, SP[a1, a4], a2, 
     SP[a5, a6], n] + S2[a3, SP[a1, a4], a5, SP[a2, a6], n] + 
    S2[a3, SP[a1, a4], SP[a2, a6], a5, n] + S2[a3, SP[a1, a4], SP[a5, a6], 
     a2, n] + S2[a3, SP[a1, a6], a4, SP[a2, a5], n] + 
    S2[a3, SP[a1, a6], a5, SP[a2, a4], n] + S2[a3, SP[a1, a6], SP[a2, a4], 
     a5, n] + S2[a3, SP[a1, a6], SP[a2, a5], a4, n] + 
    S2[a1, a2, n]*S2[a5, a6, a3, a4, n] - S2[a5, a6, SP[a1, a3], SP[a2, a4], 
     n] - S2[a5, SP[a1, a6], a3, SP[a2, a4], n] - 
    S2[a5, SP[a1, a6], SP[a2, a3], a4, n] + S2[SP[a1, a3], a2, a4, 
     SP[a5, a6], n] + S2[SP[a1, a3], a2, SP[a4, a5], a6, n] + 
    S2[SP[a1, a3], a4, a2, SP[a5, a6], n] + S2[SP[a1, a3], a4, a5, 
     SP[a2, a6], n] + S2[SP[a1, a3], a4, SP[a2, a6], a5, n] + 
    S2[SP[a1, a3], a4, SP[a5, a6], a2, n] + S2[SP[a1, a3], a5, a4, 
     SP[a2, a6], n] + S2[SP[a1, a3], a5, SP[a2, a4], a6, n] + 
    S2[SP[a1, a3], a6, a4, SP[a2, a5], n] + S2[SP[a1, a3], a6, a5, 
     SP[a2, a4], n] + S2[SP[a1, a3], a6, SP[a2, a4], a5, n] + 
    S2[SP[a1, a3], a6, SP[a2, a5], a4, n] + S2[SP[a1, a3], SP[a2, a4], a5, 
     a6, n] + S2[SP[a1, a3], SP[a2, a4], a6, a5, n] + 
    S2[SP[a1, a3], SP[a2, a6], a4, a5, n] + S2[SP[a1, a3], SP[a2, a6], a5, 
     a4, n] + S2[SP[a1, a3], SP[a4, a5], a2, a6, n] + 
    S2[SP[a1, a3], SP[a4, a5], a6, a2, n] - S2[SP[a1, a5], a6, a3, 
     SP[a2, a4], n] - S2[SP[a1, a5], a6, SP[a2, a3], a4, n] - 
    S2[SP[a1, a5], SP[a2, a6], a3, a4, n] - S2[a1, a2, a3, a4, SP[a5, a6], 
     n] - S2[a1, a2, a3, SP[a4, a5], a6, n] - 
    S2[a6, n]*S2[a1, a2, a4, a3, a5, n] - S2[a1, a2, a4, a3, SP[a5, a6], n] - 
    S2[a6, n]*S2[a1, a2, a4, a5, a3, n] + 
    S2[a3, n]*S2[a1, a2, a4, a5, a6, n] + 
    S2[a3, n]*S2[a1, a2, a4, a6, a5, n] + S2[a1, a2, a4, a6, SP[a3, a5], n] + 
    S2[a1, a2, a4, SP[a3, a5], a6, n] - S2[a1, a2, a4, SP[a5, a6], a3, n] - 
    S2[a6, n]*S2[a1, a2, a5, a4, a3, n] + 
    S2[a3, n]*S2[a1, a2, a5, a4, a6, n] + S2[a1, a2, a5, SP[a3, a4], a6, n] - 
    S2[a1, a2, a5, SP[a4, a6], a3, n] - S2[a5, n]*S2[a1, a2, a6, a3, a4, n] - 
    S2[a1, a2, a6, a3, SP[a4, a5], n] + S2[a3, n]*S2[a1, a2, a6, a4, a5, n] + 
    S2[a1, a2, a6, a4, SP[a3, a5], n] + S2[a3, n]*S2[a1, a2, a6, a5, a4, n] + 
    S2[a1, a2, a6, a5, SP[a3, a4], n] + S2[a1, a2, a6, SP[a3, a4], a5, n] + 
    S2[a1, a2, SP[a3, a4], a5, a6, n] + S2[a1, a2, SP[a3, a4], a6, a5, n] + 
    S2[a1, a2, SP[a3, a6], a4, a5, n] + S2[a1, a2, SP[a3, a6], a5, a4, n] - 
    S2[a1, a2, SP[a4, a6], a3, a5, n] - S2[a1, a2, SP[a4, a6], a5, a3, n] - 
    S2[a1, a2, SP[a5, a6], a3, a4, n] - S2[a1, a2, SP[a5, a6], a4, a3, n] - 
    S2[a1, a3, a2, a4, SP[a5, a6], n] - S2[a1, a3, a2, SP[a4, a5], a6, n] - 
    S2[a1, a3, a4, a2, SP[a5, a6], n] - S2[a1, a3, a4, a5, SP[a2, a6], n] - 
    S2[a1, a3, a4, SP[a2, a6], a5, n] - S2[a1, a3, a4, SP[a5, a6], a2, n] - 
    S2[a1, a3, a5, a4, SP[a2, a6], n] - S2[a1, a3, a5, SP[a2, a4], a6, n] - 
    S2[a1, a3, a6, a4, SP[a2, a5], n] - S2[a1, a3, a6, a5, SP[a2, a4], n] - 
    S2[a1, a3, a6, SP[a2, a4], a5, n] - S2[a1, a3, a6, SP[a2, a5], a4, n] - 
    S2[a1, a3, SP[a2, a4], a5, a6, n] - S2[a1, a3, SP[a2, a4], a6, a5, n] - 
    S2[a1, a3, SP[a2, a6], a4, a5, n] - S2[a1, a3, SP[a2, a6], a5, a4, n] - 
    S2[a1, a3, SP[a4, a5], a2, a6, n] - S2[a1, a3, SP[a4, a5], a6, a2, n] - 
    S2[a6, n]*S2[a1, a4, a2, a3, a5, n] - S2[a1, a4, a2, a3, SP[a5, a6], n] - 
    S2[a6, n]*S2[a1, a4, a2, a5, a3, n] + 
    S2[a3, n]*S2[a1, a4, a2, a5, a6, n] + 
    S2[a3, n]*S2[a1, a4, a2, a6, a5, n] + S2[a1, a4, a2, a6, SP[a3, a5], n] + 
    S2[a1, a4, a2, SP[a3, a5], a6, n] - S2[a1, a4, a2, SP[a5, a6], a3, n] - 
    S2[a6, n]*S2[a1, a4, a3, a2, a5, n] - S2[a1, a4, a3, a2, SP[a5, a6], n] - 
    S2[a6, n]*S2[a1, a4, a3, a5, a2, n] - S2[a1, a4, a3, a5, SP[a2, a6], n] - 
    S2[a1, a4, a3, SP[a2, a6], a5, n] - S2[a1, a4, a3, SP[a5, a6], a2, n] - 
    S2[a6, n]*S2[a1, a4, a5, a2, a3, n] + 
    S2[a3, n]*S2[a1, a4, a5, a2, a6, n] - 
    S2[a6, n]*S2[a1, a4, a5, a3, a2, n] - S2[a1, a4, a5, a3, SP[a2, a6], n] + 
    S2[a3, n]*S2[a1, a4, a5, a6, a2, n] + S2[a1, a4, a5, a6, SP[a2, a3], n] + 
    S2[a1, a4, a5, SP[a2, a3], a6, n] - S2[a1, a4, a5, SP[a2, a6], a3, n] + 
    S2[a3, n]*S2[a1, a4, a6, a2, a5, n] + S2[a1, a4, a6, a2, SP[a3, a5], n] + 
    S2[a3, n]*S2[a1, a4, a6, a5, a2, n] + S2[a1, a4, a6, a5, SP[a2, a3], n] + 
    S2[a1, a4, a6, SP[a2, a3], a5, n] + S2[a1, a4, a6, SP[a3, a5], a2, n] + 
    S2[a1, a4, SP[a2, a3], a5, a6, n] + S2[a1, a4, SP[a2, a3], a6, a5, n] - 
    S2[a1, a4, SP[a2, a6], a3, a5, n] - S2[a1, a4, SP[a2, a6], a5, a3, n] + 
    S2[a1, a4, SP[a3, a5], a2, a6, n] + S2[a1, a4, SP[a3, a5], a6, a2, n] - 
    S2[a1, a4, SP[a5, a6], a2, a3, n] - S2[a1, a4, SP[a5, a6], a3, a2, n] - 
    S2[a6, n]*S2[a1, a5, a2, a4, a3, n] + 
    S2[a3, n]*S2[a1, a5, a2, a4, a6, n] + S2[a1, a5, a2, SP[a3, a4], a6, n] - 
    S2[a1, a5, a2, SP[a4, a6], a3, n] - S2[a1, a5, a3, a4, SP[a2, a6], n] - 
    S2[a1, a5, a3, SP[a2, a4], a6, n] - S2[a6, n]*S2[a1, a5, a4, a2, a3, n] + 
    S2[a3, n]*S2[a1, a5, a4, a2, a6, n] - 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] - S2[a1, a5, a4, a3, SP[a2, a6], n] + 
    S2[a3, n]*S2[a1, a5, a4, a6, a2, n] + S2[a1, a5, a4, a6, SP[a2, a3], n] + 
    S2[a1, a5, a4, SP[a2, a3], a6, n] - S2[a1, a5, a4, SP[a2, a6], a3, n] + 
    S2[a1, a5, a6, a3, SP[a2, a4], n] + S2[a2, n]*S2[a1, a5, a6, a4, a3, n] + 
    S2[a1, a5, a6, a4, SP[a2, a3], n] + S2[a1, a5, a6, SP[a2, a3], a4, n] + 
    S2[a1, a5, a6, SP[a2, a4], a3, n] + S2[a1, a5, SP[a2, a6], a3, a4, n] + 
    S2[a1, a5, SP[a3, a4], a2, a6, n] + S2[a1, a5, SP[a3, a4], a6, a2, n] - 
    S2[a1, a5, SP[a4, a6], a2, a3, n] - S2[a1, a5, SP[a4, a6], a3, a2, n] - 
    S2[a5, n]*S2[a1, a6, a2, a3, a4, n] - S2[a1, a6, a2, a3, SP[a4, a5], n] + 
    S2[a3, n]*S2[a1, a6, a2, a4, a5, n] + S2[a1, a6, a2, a4, SP[a3, a5], n] + 
    S2[a3, n]*S2[a1, a6, a2, a5, a4, n] + S2[a1, a6, a2, a5, SP[a3, a4], n] + 
    S2[a1, a6, a2, SP[a3, a4], a5, n] - S2[a5, n]*S2[a1, a6, a3, a2, a4, n] - 
    S2[a1, a6, a3, a2, SP[a4, a5], n] - S2[a5, n]*S2[a1, a6, a3, a4, a2, n] - 
    S2[a1, a6, a3, a4, SP[a2, a5], n] - S2[a1, a6, a3, SP[a2, a5], a4, n] - 
    S2[a1, a6, a3, SP[a4, a5], a2, n] + S2[a3, n]*S2[a1, a6, a4, a2, a5, n] + 
    S2[a1, a6, a4, a2, SP[a3, a5], n] + S2[a3, n]*S2[a1, a6, a4, a5, a2, n] + 
    S2[a1, a6, a4, a5, SP[a2, a3], n] + S2[a1, a6, a4, SP[a2, a3], a5, n] + 
    S2[a1, a6, a4, SP[a3, a5], a2, n] + S2[a3, n]*S2[a1, a6, a5, a2, a4, n] + 
    S2[a1, a6, a5, a2, SP[a3, a4], n] + S2[a3, n]*S2[a1, a6, a5, a4, a2, n] + 
    S2[a1, a6, a5, a4, SP[a2, a3], n] + S2[a1, a6, a5, SP[a2, a3], a4, n] + 
    S2[a1, a6, a5, SP[a3, a4], a2, n] + S2[a1, a6, SP[a2, a3], a4, a5, n] + 
    S2[a1, a6, SP[a2, a3], a5, a4, n] - S2[a1, a6, SP[a2, a5], a3, a4, n] + 
    S2[a1, a6, SP[a3, a4], a2, a5, n] + S2[a1, a6, SP[a3, a4], a5, a2, n] + 
    S2[a1, SP[a2, a5], a6, a4, a3, n] - S2[a1, SP[a2, a6], a4, a3, a5, n] - 
    S2[a1, SP[a2, a6], a4, a5, a3, n] - S2[a1, SP[a2, a6], a5, a4, a3, n] + 
    S2[a1, SP[a3, a4], a2, a5, a6, n] + S2[a1, SP[a3, a4], a2, a6, a5, n] + 
    S2[a1, SP[a3, a4], a5, a2, a6, n] + S2[a1, SP[a3, a4], a5, a6, a2, n] + 
    S2[a1, SP[a3, a4], a6, a2, a5, n] + S2[a1, SP[a3, a4], a6, a5, a2, n] + 
    S2[a1, SP[a3, a6], a2, a4, a5, n] + S2[a1, SP[a3, a6], a2, a5, a4, n] + 
    S2[a1, SP[a3, a6], a4, a2, a5, n] + S2[a1, SP[a3, a6], a4, a5, a2, n] + 
    S2[a1, SP[a3, a6], a5, a2, a4, n] + S2[a1, SP[a3, a6], a5, a4, a2, n] - 
    S2[a1, SP[a4, a6], a2, a3, a5, n] - S2[a1, SP[a4, a6], a2, a5, a3, n] - 
    S2[a1, SP[a4, a6], a3, a2, a5, n] - S2[a1, SP[a4, a6], a3, a5, a2, n] - 
    S2[a1, SP[a4, a6], a5, a2, a3, n] - S2[a1, SP[a4, a6], a5, a3, a2, n] - 
    S2[a1, SP[a5, a6], a2, a3, a4, n] - S2[a1, SP[a5, a6], a2, a4, a3, n] - 
    S2[a1, SP[a5, a6], a3, a2, a4, n] - S2[a1, SP[a5, a6], a3, a4, a2, n] - 
    S2[a1, SP[a5, a6], a4, a2, a3, n] - S2[a1, SP[a5, a6], a4, a3, a2, n] - 
    S2[a3, a1, a2, a4, SP[a5, a6], n] - S2[a3, a1, a2, SP[a4, a5], a6, n] - 
    S2[a3, a1, a4, a2, SP[a5, a6], n] - S2[a3, a1, a4, a5, SP[a2, a6], n] - 
    S2[a3, a1, a4, SP[a2, a6], a5, n] - S2[a3, a1, a4, SP[a5, a6], a2, n] - 
    S2[a3, a1, a5, a4, SP[a2, a6], n] - S2[a3, a1, a5, SP[a2, a4], a6, n] - 
    S2[a3, a1, a6, a4, SP[a2, a5], n] - S2[a3, a1, a6, a5, SP[a2, a4], n] - 
    S2[a3, a1, a6, SP[a2, a4], a5, n] - S2[a3, a1, a6, SP[a2, a5], a4, n] - 
    S2[a3, a1, SP[a2, a4], a5, a6, n] - S2[a3, a1, SP[a2, a4], a6, a5, n] - 
    S2[a3, a1, SP[a2, a6], a4, a5, n] - S2[a3, a1, SP[a2, a6], a5, a4, n] - 
    S2[a3, a1, SP[a4, a5], a2, a6, n] - S2[a3, a1, SP[a4, a5], a6, a2, n] + 
    S2[a6, n]*S2[a3, a4, a1, a2, a5, n] + 
    S2[a6, n]*S2[a3, a4, a1, a5, a2, n] + 
    S2[a5, n]*S2[a3, a6, a1, a2, a4, n] + S2[a3, a6, a1, a2, SP[a4, a5], n] + 
    S2[a5, n]*S2[a3, a6, a1, a4, a2, n] - S2[a3, a6, a1, a5, SP[a2, a4], n] - 
    S2[a3, a6, a1, SP[a2, a4], a5, n] + S2[a3, a6, a1, SP[a4, a5], a2, n] - 
    S2[a3, a6, a4, a1, SP[a2, a5], n] - S2[a3, a6, a4, SP[a1, a5], a2, n] - 
    S2[a3, a6, a5, a1, SP[a2, a4], n] - S2[a3, a6, a5, SP[a1, a4], a2, n] - 
    S2[a3, a6, SP[a1, a4], a2, a5, n] - S2[a3, a6, SP[a1, a4], a5, a2, n] - 
    S2[a3, SP[a1, a4], a2, a5, a6, n] - S2[a3, SP[a1, a4], a2, a6, a5, n] - 
    S2[a3, SP[a1, a4], a5, a2, a6, n] - S2[a3, SP[a1, a4], a5, a6, a2, n] - 
    S2[a3, SP[a1, a4], a6, a2, a5, n] - S2[a3, SP[a1, a4], a6, a5, a2, n] - 
    S2[a3, SP[a1, a6], a2, a4, a5, n] - S2[a3, SP[a1, a6], a2, a5, a4, n] - 
    S2[a3, SP[a1, a6], a4, a2, a5, n] - S2[a3, SP[a1, a6], a4, a5, a2, n] - 
    S2[a3, SP[a1, a6], a5, a2, a4, n] - S2[a3, SP[a1, a6], a5, a4, a2, n] + 
    S2[a3, SP[a4, a6], a1, a2, a5, n] + S2[a3, SP[a4, a6], a1, a5, a2, n] + 
    S2[a3, SP[a5, a6], a1, a2, a4, n] + S2[a3, SP[a5, a6], a1, a4, a2, n] + 
    S2[a5, a1, a6, a3, SP[a2, a4], n] + S2[a5, a1, a6, SP[a2, a3], a4, n] + 
    S2[a5, a1, SP[a2, a6], a3, a4, n] - S2[a3, n]*S2[a5, a6, a1, a2, a4, n] - 
    S2[a5, a6, a1, a2, SP[a3, a4], n] + S2[a5, a6, a1, a3, SP[a2, a4], n] - 
    S2[a3, n]*S2[a5, a6, a1, a4, a2, n] - S2[a5, a6, a1, a4, SP[a2, a3], n] - 
    S2[a5, a6, a1, SP[a3, a4], a2, n] + S2[a5, a6, a3, a1, SP[a2, a4], n] + 
    S2[a5, a6, a3, SP[a1, a4], a2, n] + S2[a5, SP[a1, a6], a2, a3, a4, n] + 
    S2[a5, SP[a1, a6], a3, a2, a4, n] + S2[a5, SP[a1, a6], a3, a4, a2, n] - 
    S2[a5, SP[a3, a6], a1, a2, a4, n] - S2[a5, SP[a3, a6], a1, a4, a2, n] + 
    S2[a5, n]*S2[a6, a1, a2, a4, a3, n] + S2[a6, a1, a2, a4, SP[a3, a5], n] + 
    S2[a6, a1, a2, SP[a4, a5], a3, n] + S2[a5, n]*S2[a6, a1, a4, a2, a3, n] + 
    S2[a6, a1, a4, a2, SP[a3, a5], n] + S2[a5, n]*S2[a6, a1, a4, a3, a2, n] + 
    S2[a6, a1, a4, a3, SP[a2, a5], n] + S2[a6, a1, a4, SP[a2, a5], a3, n] + 
    S2[a6, a1, a4, SP[a3, a5], a2, n] + S2[a6, a1, SP[a2, a5], a4, a3, n] + 
    S2[a6, a1, SP[a4, a5], a2, a3, n] + S2[a6, a1, SP[a4, a5], a3, a2, n] - 
    S2[a5, n]*S2[a6, a3, a4, a1, a2, n] - S2[a6, a3, a4, a1, SP[a2, a5], n] - 
    S2[a6, a3, a4, SP[a1, a5], a2, n] - S2[a6, a3, SP[a4, a5], a1, a2, n] + 
    S2[a3, n]*S2[a6, a4, a5, a1, a2, n] + S2[a6, a4, a5, a1, SP[a2, a3], n] + 
    S2[a6, a4, a5, SP[a1, a3], a2, n] + S2[a6, a4, SP[a3, a5], a1, a2, n] + 
    S2[a3, n]*S2[a6, a5, a4, a1, a2, n] + S2[a6, a5, a4, a1, SP[a2, a3], n] + 
    S2[a6, a5, a4, SP[a1, a3], a2, n] + S2[a6, a5, SP[a3, a4], a1, a2, n] + 
    S2[a6, SP[a1, a5], a2, a4, a3, n] + S2[a6, SP[a1, a5], a4, a2, a3, n] + 
    S2[a6, SP[a1, a5], a4, a3, a2, n] + S2[a6, SP[a3, a4], a5, a1, a2, n] + 
    S2[SP[a1, a2], a5, a6, a4, a3, n] - S2[SP[a1, a6], a2, a4, a3, a5, n] - 
    S2[SP[a1, a6], a2, a4, a5, a3, n] - S2[SP[a1, a6], a2, a5, a4, a3, n] - 
    S2[SP[a1, a6], a4, a2, a3, a5, n] - S2[SP[a1, a6], a4, a2, a5, a3, n] - 
    S2[SP[a1, a6], a4, a3, a2, a5, n] - S2[SP[a1, a6], a4, a3, a5, a2, n] - 
    S2[SP[a1, a6], a4, a5, a2, a3, n] - S2[SP[a1, a6], a4, a5, a3, a2, n] - 
    S2[SP[a1, a6], a5, a2, a4, a3, n] - S2[SP[a1, a6], a5, a4, a2, a3, n] - 
    S2[SP[a1, a6], a5, a4, a3, a2, n] + S2[SP[a3, a6], a4, a1, a2, a5, n] + 
    S2[SP[a3, a6], a4, a1, a5, a2, n] + S2[SP[a3, a6], a4, a5, a1, a2, n] + 
    S2[SP[a3, a6], a5, a4, a1, a2, n] + S2[SP[a5, a6], a1, a2, a4, a3, n] + 
    S2[SP[a5, a6], a1, a4, a2, a3, n] + S2[SP[a5, a6], a1, a4, a3, a2, n] - 
    S2[SP[a5, a6], a3, a4, a1, a2, n] - S2[a6, a4, a3, a5, a1, a2, n] - 
    S2[a6, a4, a5, a1, a2, a3, n] - S2[a6, a4, a5, a1, a3, a2, n] - 
    S2[a6, a4, a5, a3, a1, a2, n] - S2[a6, a5, a1, a2, a4, a3, n] - 
    S2[a6, a5, a1, a4, a2, a3, n] - S2[a6, a5, a1, a4, a3, a2, n] - 
    S2[a6, a5, a4, a1, a2, a3, n] - S2[a6, a5, a4, a1, a3, a2, n] - 
    S2[a6, a5, a4, a3, a1, a2, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a2_, a1_, a6_, a3_, a4_, a5_, n_] :> 
  S2[a1, a2, n]*S2[a3, a4, a5, a6, n] + S2[a1, a2, n]*S2[a3, a4, a6, a5, n] - 
    S2[a3, a4, SP[a1, a5], SP[a2, a6], n] - S2[a3, a4, SP[a1, a6], 
     SP[a2, a5], n] + S2[a1, a2, n]*S2[a3, a6, a4, a5, n] - 
    S2[a3, a6, SP[a1, a4], SP[a2, a5], n] - S2[a3, SP[a1, a4], a5, 
     SP[a2, a6], n] - S2[a3, SP[a1, a4], a6, SP[a2, a5], n] - 
    S2[a3, SP[a1, a4], SP[a2, a5], a6, n] - S2[a3, SP[a1, a4], SP[a2, a6], 
     a5, n] - S2[a3, SP[a1, a6], a4, SP[a2, a5], n] - 
    S2[a3, SP[a1, a6], SP[a2, a4], a5, n] - S2[SP[a1, a3], a4, a5, 
     SP[a2, a6], n] - S2[SP[a1, a3], a4, a6, SP[a2, a5], n] - 
    S2[SP[a1, a3], a4, SP[a2, a5], a6, n] - S2[SP[a1, a3], a4, SP[a2, a6], 
     a5, n] - S2[SP[a1, a3], a6, a4, SP[a2, a5], n] - 
    S2[SP[a1, a3], a6, SP[a2, a4], a5, n] - S2[SP[a1, a3], SP[a2, a4], a5, 
     a6, n] - S2[SP[a1, a3], SP[a2, a4], a6, a5, n] - 
    S2[SP[a1, a3], SP[a2, a6], a4, a5, n] + 
    S2[a6, n]*S2[a1, a2, a4, a3, a5, n] + S2[a1, a2, a4, a3, SP[a5, a6], n] + 
    S2[a6, n]*S2[a1, a2, a4, a5, a3, n] - 
    S2[a3, n]*S2[a1, a2, a4, a5, a6, n] - 
    S2[a3, n]*S2[a1, a2, a4, a6, a5, n] - S2[a1, a2, a4, a6, SP[a3, a5], n] - 
    S2[a1, a2, a4, SP[a3, a5], a6, n] + S2[a1, a2, a4, SP[a5, a6], a3, n] - 
    S2[a3, n]*S2[a1, a2, a6, a4, a5, n] - S2[a1, a2, a6, a4, SP[a3, a5], n] - 
    S2[a1, a2, a6, SP[a3, a4], a5, n] - S2[a1, a2, SP[a3, a4], a5, a6, n] - 
    S2[a1, a2, SP[a3, a4], a6, a5, n] - S2[a1, a2, SP[a3, a6], a4, a5, n] + 
    S2[a1, a2, SP[a4, a6], a3, a5, n] + S2[a1, a2, SP[a4, a6], a5, a3, n] + 
    S2[a1, a3, a4, a5, SP[a2, a6], n] + S2[a1, a3, a4, a6, SP[a2, a5], n] + 
    S2[a1, a3, a4, SP[a2, a5], a6, n] + S2[a1, a3, a4, SP[a2, a6], a5, n] + 
    S2[a1, a3, a6, a4, SP[a2, a5], n] + S2[a1, a3, a6, SP[a2, a4], a5, n] + 
    S2[a1, a3, SP[a2, a4], a5, a6, n] + S2[a1, a3, SP[a2, a4], a6, a5, n] + 
    S2[a1, a3, SP[a2, a6], a4, a5, n] + S2[a6, n]*S2[a1, a4, a2, a3, a5, n] + 
    S2[a1, a4, a2, a3, SP[a5, a6], n] + S2[a6, n]*S2[a1, a4, a2, a5, a3, n] - 
    S2[a3, n]*S2[a1, a4, a2, a5, a6, n] - 
    S2[a3, n]*S2[a1, a4, a2, a6, a5, n] - S2[a1, a4, a2, a6, SP[a3, a5], n] - 
    S2[a1, a4, a2, SP[a3, a5], a6, n] + S2[a1, a4, a2, SP[a5, a6], a3, n] + 
    S2[a6, n]*S2[a1, a4, a3, a2, a5, n] + S2[a1, a4, a3, a2, SP[a5, a6], n] + 
    S2[a6, n]*S2[a1, a4, a3, a5, a2, n] + S2[a1, a4, a3, a5, SP[a2, a6], n] + 
    S2[a1, a4, a3, SP[a2, a6], a5, n] + S2[a1, a4, a3, SP[a5, a6], a2, n] + 
    S2[a6, n]*S2[a1, a4, a5, a2, a3, n] - 
    S2[a3, n]*S2[a1, a4, a5, a2, a6, n] + 
    S2[a6, n]*S2[a1, a4, a5, a3, a2, n] + S2[a1, a4, a5, a3, SP[a2, a6], n] - 
    S2[a3, n]*S2[a1, a4, a5, a6, a2, n] - S2[a1, a4, a5, a6, SP[a2, a3], n] - 
    S2[a1, a4, a5, SP[a2, a3], a6, n] + S2[a1, a4, a5, SP[a2, a6], a3, n] - 
    S2[a3, n]*S2[a1, a4, a6, a2, a5, n] - S2[a1, a4, a6, a2, SP[a3, a5], n] - 
    S2[a3, n]*S2[a1, a4, a6, a5, a2, n] - S2[a1, a4, a6, a5, SP[a2, a3], n] - 
    S2[a1, a4, a6, SP[a2, a3], a5, n] - S2[a1, a4, a6, SP[a3, a5], a2, n] - 
    S2[a1, a4, SP[a2, a3], a5, a6, n] - S2[a1, a4, SP[a2, a3], a6, a5, n] + 
    S2[a1, a4, SP[a2, a6], a3, a5, n] + S2[a1, a4, SP[a2, a6], a5, a3, n] - 
    S2[a1, a4, SP[a3, a5], a2, a6, n] - S2[a1, a4, SP[a3, a5], a6, a2, n] + 
    S2[a1, a4, SP[a5, a6], a2, a3, n] + S2[a1, a4, SP[a5, a6], a3, a2, n] - 
    S2[a3, n]*S2[a1, a6, a2, a4, a5, n] - S2[a1, a6, a2, a4, SP[a3, a5], n] - 
    S2[a1, a6, a2, SP[a3, a4], a5, n] + S2[a2, n]*S2[a1, a6, a3, a4, a5, n] + 
    S2[a1, a6, a3, a4, SP[a2, a5], n] + S2[a1, a6, a3, SP[a2, a4], a5, n] - 
    S2[a3, n]*S2[a1, a6, a4, a2, a5, n] - S2[a1, a6, a4, a2, SP[a3, a5], n] - 
    S2[a3, n]*S2[a1, a6, a4, a5, a2, n] - S2[a1, a6, a4, a5, SP[a2, a3], n] - 
    S2[a1, a6, a4, SP[a2, a3], a5, n] - S2[a1, a6, a4, SP[a3, a5], a2, n] - 
    S2[a1, a6, SP[a3, a4], a2, a5, n] - S2[a1, a6, SP[a3, a4], a5, a2, n] + 
    S2[a1, SP[a2, a6], a3, a4, a5, n] + S2[a1, SP[a2, a6], a4, a3, a5, n] + 
    S2[a1, SP[a2, a6], a4, a5, a3, n] - S2[a1, SP[a3, a4], a2, a5, a6, n] - 
    S2[a1, SP[a3, a4], a2, a6, a5, n] - S2[a1, SP[a3, a4], a5, a2, a6, n] - 
    S2[a1, SP[a3, a4], a5, a6, a2, n] - S2[a1, SP[a3, a4], a6, a2, a5, n] - 
    S2[a1, SP[a3, a4], a6, a5, a2, n] - S2[a1, SP[a3, a6], a2, a4, a5, n] - 
    S2[a1, SP[a3, a6], a4, a2, a5, n] - S2[a1, SP[a3, a6], a4, a5, a2, n] + 
    S2[a1, SP[a4, a6], a2, a3, a5, n] + S2[a1, SP[a4, a6], a2, a5, a3, n] + 
    S2[a1, SP[a4, a6], a3, a2, a5, n] + S2[a1, SP[a4, a6], a3, a5, a2, n] + 
    S2[a1, SP[a4, a6], a5, a2, a3, n] + S2[a1, SP[a4, a6], a5, a3, a2, n] + 
    S2[a3, a1, a4, a5, SP[a2, a6], n] + S2[a3, a1, a4, a6, SP[a2, a5], n] + 
    S2[a3, a1, a4, SP[a2, a5], a6, n] + S2[a3, a1, a4, SP[a2, a6], a5, n] + 
    S2[a3, a1, a6, a4, SP[a2, a5], n] + S2[a3, a1, a6, SP[a2, a4], a5, n] + 
    S2[a3, a1, SP[a2, a4], a5, a6, n] + S2[a3, a1, SP[a2, a4], a6, a5, n] + 
    S2[a3, a1, SP[a2, a6], a4, a5, n] - S2[a6, n]*S2[a3, a4, a1, a2, a5, n] - 
    S2[a3, a4, a1, a2, SP[a5, a6], n] - S2[a6, n]*S2[a3, a4, a1, a5, a2, n] + 
    S2[a3, a4, a1, a6, SP[a2, a5], n] + S2[a3, a4, a1, SP[a2, a5], a6, n] - 
    S2[a3, a4, a1, SP[a5, a6], a2, n] - S2[a6, n]*S2[a3, a4, a5, a1, a2, n] + 
    S2[a3, a4, a6, a1, SP[a2, a5], n] + S2[a3, a4, a6, SP[a1, a5], a2, n] + 
    S2[a3, a4, SP[a1, a5], a2, a6, n] + S2[a3, a4, SP[a1, a5], a6, a2, n] - 
    S2[a3, a4, SP[a5, a6], a1, a2, n] + S2[a3, a6, a1, a4, SP[a2, a5], n] + 
    S2[a3, a6, a1, SP[a2, a4], a5, n] + S2[a3, a6, a4, a1, SP[a2, a5], n] + 
    S2[a3, a6, a4, SP[a1, a5], a2, n] + S2[a3, a6, SP[a1, a4], a2, a5, n] + 
    S2[a3, a6, SP[a1, a4], a5, a2, n] + S2[a3, SP[a1, a4], a2, a5, a6, n] + 
    S2[a3, SP[a1, a4], a2, a6, a5, n] + S2[a3, SP[a1, a4], a5, a2, a6, n] + 
    S2[a3, SP[a1, a4], a5, a6, a2, n] + S2[a3, SP[a1, a4], a6, a2, a5, n] + 
    S2[a3, SP[a1, a4], a6, a5, a2, n] + S2[a3, SP[a1, a6], a2, a4, a5, n] + 
    S2[a3, SP[a1, a6], a4, a2, a5, n] + S2[a3, SP[a1, a6], a4, a5, a2, n] - 
    S2[a3, SP[a4, a6], a1, a2, a5, n] - S2[a3, SP[a4, a6], a1, a5, a2, n] - 
    S2[a3, SP[a4, a6], a5, a1, a2, n] - S2[a3, n]*S2[a6, a1, a2, a4, a5, n] - 
    S2[a6, a1, a2, a4, SP[a3, a5], n] - S2[a6, a1, a2, SP[a3, a4], a5, n] - 
    S2[a3, n]*S2[a6, a1, a4, a2, a5, n] - S2[a6, a1, a4, a2, SP[a3, a5], n] - 
    S2[a3, n]*S2[a6, a1, a4, a5, a2, n] - S2[a6, a1, a4, a5, SP[a2, a3], n] - 
    S2[a6, a1, a4, SP[a2, a3], a5, n] - S2[a6, a1, a4, SP[a3, a5], a2, n] - 
    S2[a6, a1, SP[a2, a3], a4, a5, n] - S2[a6, a1, SP[a3, a4], a2, a5, n] - 
    S2[a6, a1, SP[a3, a4], a5, a2, n] - S2[a6, SP[a1, a3], a2, a4, a5, n] - 
    S2[a6, SP[a1, a3], a4, a2, a5, n] - S2[a6, SP[a1, a3], a4, a5, a2, n] + 
    S2[SP[a1, a2], a6, a3, a4, a5, n] + S2[SP[a1, a6], a2, a4, a3, a5, n] + 
    S2[SP[a1, a6], a2, a4, a5, a3, n] + S2[SP[a1, a6], a4, a2, a3, a5, n] + 
    S2[SP[a1, a6], a4, a2, a5, a3, n] + S2[SP[a1, a6], a4, a3, a2, a5, n] + 
    S2[SP[a1, a6], a4, a3, a5, a2, n] + S2[SP[a1, a6], a4, a5, a2, a3, n] + 
    S2[SP[a1, a6], a4, a5, a3, a2, n] - S2[SP[a3, a6], a1, a2, a4, a5, n] - 
    S2[SP[a3, a6], a1, a4, a2, a5, n] - S2[SP[a3, a6], a1, a4, a5, a2, n] - 
    S2[SP[a3, a6], a4, a1, a2, a5, n] - S2[SP[a3, a6], a4, a1, a5, a2, n] - 
    S2[SP[a3, a6], a4, a5, a1, a2, n] + S2[a6, a1, a2, a3, a4, a5, n] + 
    S2[a6, a1, a3, a2, a4, a5, n] + S2[a6, a1, a3, a4, a2, a5, n] + 
    S2[a6, a1, a3, a4, a5, a2, n] + S2[a6, a3, a1, a2, a4, a5, n] + 
    S2[a6, a3, a1, a4, a2, a5, n] + S2[a6, a3, a1, a4, a5, a2, n] + 
    S2[a6, a3, a4, a1, a2, a5, n] + S2[a6, a3, a4, a1, a5, a2, n] + 
    S2[a6, a3, a4, a5, a1, a2, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a2_, a1_, a6_, a3_, a5_, a4_, n_] :> 
  S2[a1, a2, n]*S2[a3, a5, a4, a6, n] + S2[a1, a2, n]*S2[a3, a5, a6, a4, n] - 
    S2[a3, a5, SP[a1, a4], SP[a2, a6], n] - S2[a3, a5, SP[a1, a6], 
     SP[a2, a4], n] + S2[a1, a2, n]*S2[a3, a6, a5, a4, n] - 
    S2[a3, a6, SP[a1, a5], SP[a2, a4], n] - S2[a3, SP[a1, a5], a4, 
     SP[a2, a6], n] - S2[a3, SP[a1, a5], a6, SP[a2, a4], n] - 
    S2[a3, SP[a1, a5], SP[a2, a4], a6, n] - S2[a3, SP[a1, a5], SP[a2, a6], 
     a4, n] - S2[a3, SP[a1, a6], a5, SP[a2, a4], n] - 
    S2[a3, SP[a1, a6], SP[a2, a5], a4, n] - S2[SP[a1, a3], a5, a4, 
     SP[a2, a6], n] - S2[SP[a1, a3], a5, a6, SP[a2, a4], n] - 
    S2[SP[a1, a3], a5, SP[a2, a4], a6, n] - S2[SP[a1, a3], a5, SP[a2, a6], 
     a4, n] - S2[SP[a1, a3], a6, a5, SP[a2, a4], n] - 
    S2[SP[a1, a3], a6, SP[a2, a5], a4, n] - S2[SP[a1, a3], SP[a2, a5], a4, 
     a6, n] - S2[SP[a1, a3], SP[a2, a5], a6, a4, n] - 
    S2[SP[a1, a3], SP[a2, a6], a5, a4, n] + 
    S2[a6, n]*S2[a1, a2, a5, a3, a4, n] + S2[a1, a2, a5, a3, SP[a4, a6], n] + 
    S2[a6, n]*S2[a1, a2, a5, a4, a3, n] - 
    S2[a3, n]*S2[a1, a2, a5, a4, a6, n] - 
    S2[a3, n]*S2[a1, a2, a5, a6, a4, n] - S2[a1, a2, a5, a6, SP[a3, a4], n] - 
    S2[a1, a2, a5, SP[a3, a4], a6, n] + S2[a1, a2, a5, SP[a4, a6], a3, n] - 
    S2[a3, n]*S2[a1, a2, a6, a5, a4, n] - S2[a1, a2, a6, a5, SP[a3, a4], n] - 
    S2[a1, a2, a6, SP[a3, a5], a4, n] - S2[a1, a2, SP[a3, a5], a4, a6, n] - 
    S2[a1, a2, SP[a3, a5], a6, a4, n] - S2[a1, a2, SP[a3, a6], a5, a4, n] + 
    S2[a1, a2, SP[a5, a6], a3, a4, n] + S2[a1, a2, SP[a5, a6], a4, a3, n] + 
    S2[a1, a3, a5, a4, SP[a2, a6], n] + S2[a1, a3, a5, a6, SP[a2, a4], n] + 
    S2[a1, a3, a5, SP[a2, a4], a6, n] + S2[a1, a3, a5, SP[a2, a6], a4, n] + 
    S2[a1, a3, a6, a5, SP[a2, a4], n] + S2[a1, a3, a6, SP[a2, a5], a4, n] + 
    S2[a1, a3, SP[a2, a5], a4, a6, n] + S2[a1, a3, SP[a2, a5], a6, a4, n] + 
    S2[a1, a3, SP[a2, a6], a5, a4, n] + S2[a6, n]*S2[a1, a5, a2, a3, a4, n] + 
    S2[a1, a5, a2, a3, SP[a4, a6], n] + S2[a6, n]*S2[a1, a5, a2, a4, a3, n] - 
    S2[a3, n]*S2[a1, a5, a2, a4, a6, n] - 
    S2[a3, n]*S2[a1, a5, a2, a6, a4, n] - S2[a1, a5, a2, a6, SP[a3, a4], n] - 
    S2[a1, a5, a2, SP[a3, a4], a6, n] + S2[a1, a5, a2, SP[a4, a6], a3, n] + 
    S2[a6, n]*S2[a1, a5, a3, a2, a4, n] + S2[a1, a5, a3, a2, SP[a4, a6], n] + 
    S2[a6, n]*S2[a1, a5, a3, a4, a2, n] + S2[a1, a5, a3, a4, SP[a2, a6], n] + 
    S2[a1, a5, a3, SP[a2, a6], a4, n] + S2[a1, a5, a3, SP[a4, a6], a2, n] + 
    S2[a6, n]*S2[a1, a5, a4, a2, a3, n] - 
    S2[a3, n]*S2[a1, a5, a4, a2, a6, n] + 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] + S2[a1, a5, a4, a3, SP[a2, a6], n] - 
    S2[a3, n]*S2[a1, a5, a4, a6, a2, n] - S2[a1, a5, a4, a6, SP[a2, a3], n] - 
    S2[a1, a5, a4, SP[a2, a3], a6, n] + S2[a1, a5, a4, SP[a2, a6], a3, n] - 
    S2[a3, n]*S2[a1, a5, a6, a2, a4, n] - S2[a1, a5, a6, a2, SP[a3, a4], n] - 
    S2[a3, n]*S2[a1, a5, a6, a4, a2, n] - S2[a1, a5, a6, a4, SP[a2, a3], n] - 
    S2[a1, a5, a6, SP[a2, a3], a4, n] - S2[a1, a5, a6, SP[a3, a4], a2, n] - 
    S2[a1, a5, SP[a2, a3], a4, a6, n] - S2[a1, a5, SP[a2, a3], a6, a4, n] + 
    S2[a1, a5, SP[a2, a6], a3, a4, n] + S2[a1, a5, SP[a2, a6], a4, a3, n] - 
    S2[a1, a5, SP[a3, a4], a2, a6, n] - S2[a1, a5, SP[a3, a4], a6, a2, n] + 
    S2[a1, a5, SP[a4, a6], a2, a3, n] + S2[a1, a5, SP[a4, a6], a3, a2, n] - 
    S2[a3, n]*S2[a1, a6, a2, a5, a4, n] - S2[a1, a6, a2, a5, SP[a3, a4], n] - 
    S2[a1, a6, a2, SP[a3, a5], a4, n] + S2[a2, n]*S2[a1, a6, a3, a5, a4, n] + 
    S2[a1, a6, a3, a5, SP[a2, a4], n] + S2[a1, a6, a3, SP[a2, a5], a4, n] - 
    S2[a3, n]*S2[a1, a6, a5, a2, a4, n] - S2[a1, a6, a5, a2, SP[a3, a4], n] - 
    S2[a3, n]*S2[a1, a6, a5, a4, a2, n] - S2[a1, a6, a5, a4, SP[a2, a3], n] - 
    S2[a1, a6, a5, SP[a2, a3], a4, n] - S2[a1, a6, a5, SP[a3, a4], a2, n] - 
    S2[a1, a6, SP[a3, a5], a2, a4, n] - S2[a1, a6, SP[a3, a5], a4, a2, n] + 
    S2[a1, SP[a2, a6], a3, a5, a4, n] + S2[a1, SP[a2, a6], a5, a3, a4, n] + 
    S2[a1, SP[a2, a6], a5, a4, a3, n] - S2[a1, SP[a3, a5], a2, a4, a6, n] - 
    S2[a1, SP[a3, a5], a2, a6, a4, n] - S2[a1, SP[a3, a5], a4, a2, a6, n] - 
    S2[a1, SP[a3, a5], a4, a6, a2, n] - S2[a1, SP[a3, a5], a6, a2, a4, n] - 
    S2[a1, SP[a3, a5], a6, a4, a2, n] - S2[a1, SP[a3, a6], a2, a5, a4, n] - 
    S2[a1, SP[a3, a6], a5, a2, a4, n] - S2[a1, SP[a3, a6], a5, a4, a2, n] + 
    S2[a1, SP[a5, a6], a2, a3, a4, n] + S2[a1, SP[a5, a6], a2, a4, a3, n] + 
    S2[a1, SP[a5, a6], a3, a2, a4, n] + S2[a1, SP[a5, a6], a3, a4, a2, n] + 
    S2[a1, SP[a5, a6], a4, a2, a3, n] + S2[a1, SP[a5, a6], a4, a3, a2, n] + 
    S2[a3, a1, a5, a4, SP[a2, a6], n] + S2[a3, a1, a5, a6, SP[a2, a4], n] + 
    S2[a3, a1, a5, SP[a2, a4], a6, n] + S2[a3, a1, a5, SP[a2, a6], a4, n] + 
    S2[a3, a1, a6, a5, SP[a2, a4], n] + S2[a3, a1, a6, SP[a2, a5], a4, n] + 
    S2[a3, a1, SP[a2, a5], a4, a6, n] + S2[a3, a1, SP[a2, a5], a6, a4, n] + 
    S2[a3, a1, SP[a2, a6], a5, a4, n] - S2[a6, n]*S2[a3, a5, a1, a2, a4, n] - 
    S2[a3, a5, a1, a2, SP[a4, a6], n] - S2[a6, n]*S2[a3, a5, a1, a4, a2, n] + 
    S2[a3, a5, a1, a6, SP[a2, a4], n] + S2[a3, a5, a1, SP[a2, a4], a6, n] - 
    S2[a3, a5, a1, SP[a4, a6], a2, n] - S2[a6, n]*S2[a3, a5, a4, a1, a2, n] + 
    S2[a3, a5, a6, a1, SP[a2, a4], n] + S2[a3, a5, a6, SP[a1, a4], a2, n] + 
    S2[a3, a5, SP[a1, a4], a2, a6, n] + S2[a3, a5, SP[a1, a4], a6, a2, n] - 
    S2[a3, a5, SP[a4, a6], a1, a2, n] + S2[a3, a6, a1, a5, SP[a2, a4], n] + 
    S2[a3, a6, a1, SP[a2, a5], a4, n] + S2[a3, a6, a5, a1, SP[a2, a4], n] + 
    S2[a3, a6, a5, SP[a1, a4], a2, n] + S2[a3, a6, SP[a1, a5], a2, a4, n] + 
    S2[a3, a6, SP[a1, a5], a4, a2, n] + S2[a3, SP[a1, a5], a2, a4, a6, n] + 
    S2[a3, SP[a1, a5], a2, a6, a4, n] + S2[a3, SP[a1, a5], a4, a2, a6, n] + 
    S2[a3, SP[a1, a5], a4, a6, a2, n] + S2[a3, SP[a1, a5], a6, a2, a4, n] + 
    S2[a3, SP[a1, a5], a6, a4, a2, n] + S2[a3, SP[a1, a6], a2, a5, a4, n] + 
    S2[a3, SP[a1, a6], a5, a2, a4, n] + S2[a3, SP[a1, a6], a5, a4, a2, n] - 
    S2[a3, SP[a5, a6], a1, a2, a4, n] - S2[a3, SP[a5, a6], a1, a4, a2, n] - 
    S2[a3, SP[a5, a6], a4, a1, a2, n] - S2[a3, n]*S2[a6, a1, a2, a5, a4, n] - 
    S2[a6, a1, a2, a5, SP[a3, a4], n] - S2[a6, a1, a2, SP[a3, a5], a4, n] - 
    S2[a3, n]*S2[a6, a1, a5, a2, a4, n] - S2[a6, a1, a5, a2, SP[a3, a4], n] - 
    S2[a3, n]*S2[a6, a1, a5, a4, a2, n] - S2[a6, a1, a5, a4, SP[a2, a3], n] - 
    S2[a6, a1, a5, SP[a2, a3], a4, n] - S2[a6, a1, a5, SP[a3, a4], a2, n] - 
    S2[a6, a1, SP[a2, a3], a5, a4, n] - S2[a6, a1, SP[a3, a5], a2, a4, n] - 
    S2[a6, a1, SP[a3, a5], a4, a2, n] - S2[a6, SP[a1, a3], a2, a5, a4, n] - 
    S2[a6, SP[a1, a3], a5, a2, a4, n] - S2[a6, SP[a1, a3], a5, a4, a2, n] + 
    S2[SP[a1, a2], a6, a3, a5, a4, n] + S2[SP[a1, a6], a2, a5, a3, a4, n] + 
    S2[SP[a1, a6], a2, a5, a4, a3, n] + S2[SP[a1, a6], a5, a2, a3, a4, n] + 
    S2[SP[a1, a6], a5, a2, a4, a3, n] + S2[SP[a1, a6], a5, a3, a2, a4, n] + 
    S2[SP[a1, a6], a5, a3, a4, a2, n] + S2[SP[a1, a6], a5, a4, a2, a3, n] + 
    S2[SP[a1, a6], a5, a4, a3, a2, n] - S2[SP[a3, a6], a1, a2, a5, a4, n] - 
    S2[SP[a3, a6], a1, a5, a2, a4, n] - S2[SP[a3, a6], a1, a5, a4, a2, n] - 
    S2[SP[a3, a6], a5, a1, a2, a4, n] - S2[SP[a3, a6], a5, a1, a4, a2, n] - 
    S2[SP[a3, a6], a5, a4, a1, a2, n] + S2[a6, a1, a2, a3, a5, a4, n] + 
    S2[a6, a1, a3, a2, a5, a4, n] + S2[a6, a1, a3, a5, a2, a4, n] + 
    S2[a6, a1, a3, a5, a4, a2, n] + S2[a6, a3, a1, a2, a5, a4, n] + 
    S2[a6, a3, a1, a5, a2, a4, n] + S2[a6, a3, a1, a5, a4, a2, n] + 
    S2[a6, a3, a5, a1, a2, a4, n] + S2[a6, a3, a5, a1, a4, a2, n] + 
    S2[a6, a3, a5, a4, a1, a2, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a2_, a1_, a6_, a4_, a3_, a5_, n_] :> 
  -(S2[a1, a2, n]*S2[a3, a4, a5, a6, n]) - S2[a1, a2, n]*
     S2[a3, a4, a6, a5, n] + S2[a3, a4, SP[a1, a5], SP[a2, a6], n] + 
    S2[a3, a4, SP[a1, a6], SP[a2, a5], n] - S2[a1, a2, n]*
     S2[a3, a5, a4, a6, n] - S2[a1, a2, n]*S2[a3, a5, a6, a4, n] + 
    S2[a3, a5, SP[a1, a4], SP[a2, a6], n] + S2[a3, a5, SP[a1, a6], 
     SP[a2, a4], n] - S2[a1, a2, n]*S2[a3, a6, a4, a5, n] - 
    S2[a1, a2, n]*S2[a3, a6, a5, a4, n] + S2[a3, a6, SP[a1, a4], SP[a2, a5], 
     n] + S2[a3, a6, SP[a1, a5], SP[a2, a4], n] + S2[a3, SP[a1, a4], a5, 
     SP[a2, a6], n] + S2[a3, SP[a1, a4], a6, SP[a2, a5], n] + 
    S2[a3, SP[a1, a4], SP[a2, a5], a6, n] + S2[a3, SP[a1, a4], SP[a2, a6], 
     a5, n] + S2[a3, SP[a1, a5], a4, SP[a2, a6], n] + 
    S2[a3, SP[a1, a5], a6, SP[a2, a4], n] + S2[a3, SP[a1, a5], SP[a2, a4], 
     a6, n] + S2[a3, SP[a1, a5], SP[a2, a6], a4, n] + 
    S2[a3, SP[a1, a6], a4, SP[a2, a5], n] + S2[a3, SP[a1, a6], a5, 
     SP[a2, a4], n] + S2[a3, SP[a1, a6], SP[a2, a4], a5, n] + 
    S2[a3, SP[a1, a6], SP[a2, a5], a4, n] + S2[a1, a2, n]*
     S2[a4, a6, a3, a5, n] - S2[a4, a6, SP[a1, a3], SP[a2, a5], n] - 
    S2[a4, SP[a1, a6], a3, SP[a2, a5], n] - S2[a4, SP[a1, a6], SP[a2, a3], 
     a5, n] + S2[SP[a1, a3], a4, a5, SP[a2, a6], n] + 
    S2[SP[a1, a3], a4, a6, SP[a2, a5], n] + S2[SP[a1, a3], a4, SP[a2, a5], 
     a6, n] + S2[SP[a1, a3], a4, SP[a2, a6], a5, n] + 
    S2[SP[a1, a3], a5, a4, SP[a2, a6], n] + S2[SP[a1, a3], a5, a6, 
     SP[a2, a4], n] + S2[SP[a1, a3], a5, SP[a2, a4], a6, n] + 
    S2[SP[a1, a3], a5, SP[a2, a6], a4, n] + S2[SP[a1, a3], a6, a4, 
     SP[a2, a5], n] + S2[SP[a1, a3], a6, a5, SP[a2, a4], n] + 
    S2[SP[a1, a3], a6, SP[a2, a4], a5, n] + S2[SP[a1, a3], a6, SP[a2, a5], 
     a4, n] + S2[SP[a1, a3], SP[a2, a4], a5, a6, n] + 
    S2[SP[a1, a3], SP[a2, a4], a6, a5, n] + S2[SP[a1, a3], SP[a2, a5], a4, 
     a6, n] + S2[SP[a1, a3], SP[a2, a5], a6, a4, n] + 
    S2[SP[a1, a3], SP[a2, a6], a4, a5, n] + S2[SP[a1, a3], SP[a2, a6], a5, 
     a4, n] - S2[SP[a1, a4], a6, a3, SP[a2, a5], n] - 
    S2[SP[a1, a4], a6, SP[a2, a3], a5, n] - S2[SP[a1, a4], SP[a2, a6], a3, 
     a5, n] - S2[a6, n]*S2[a1, a2, a4, a3, a5, n] - 
    S2[a1, a2, a4, a3, SP[a5, a6], n] - S2[a6, n]*S2[a1, a2, a4, a5, a3, n] + 
    S2[a3, n]*S2[a1, a2, a4, a5, a6, n] + 
    S2[a3, n]*S2[a1, a2, a4, a6, a5, n] + S2[a1, a2, a4, a6, SP[a3, a5], n] + 
    S2[a1, a2, a4, SP[a3, a5], a6, n] - S2[a1, a2, a4, SP[a5, a6], a3, n] - 
    S2[a6, n]*S2[a1, a2, a5, a3, a4, n] - S2[a1, a2, a5, a3, SP[a4, a6], n] - 
    S2[a6, n]*S2[a1, a2, a5, a4, a3, n] + 
    S2[a3, n]*S2[a1, a2, a5, a4, a6, n] + 
    S2[a3, n]*S2[a1, a2, a5, a6, a4, n] + S2[a1, a2, a5, a6, SP[a3, a4], n] + 
    S2[a1, a2, a5, SP[a3, a4], a6, n] - S2[a1, a2, a5, SP[a4, a6], a3, n] - 
    S2[a4, n]*S2[a1, a2, a6, a3, a5, n] - S2[a1, a2, a6, a3, SP[a4, a5], n] + 
    S2[a3, n]*S2[a1, a2, a6, a4, a5, n] + S2[a1, a2, a6, a4, SP[a3, a5], n] + 
    S2[a3, n]*S2[a1, a2, a6, a5, a4, n] + S2[a1, a2, a6, a5, SP[a3, a4], n] + 
    S2[a1, a2, a6, SP[a3, a5], a4, n] + S2[a1, a2, SP[a3, a4], a5, a6, n] + 
    S2[a1, a2, SP[a3, a4], a6, a5, n] + S2[a1, a2, SP[a3, a5], a4, a6, n] + 
    S2[a1, a2, SP[a3, a5], a6, a4, n] + S2[a1, a2, SP[a3, a6], a4, a5, n] + 
    S2[a1, a2, SP[a3, a6], a5, a4, n] - 2*S2[a1, a2, SP[a4, a6], a3, a5, n] - 
    S2[a1, a2, SP[a4, a6], a5, a3, n] - S2[a1, a2, SP[a5, a6], a3, a4, n] - 
    S2[a1, a2, SP[a5, a6], a4, a3, n] - S2[a1, a3, a4, a5, SP[a2, a6], n] - 
    S2[a1, a3, a4, a6, SP[a2, a5], n] - S2[a1, a3, a4, SP[a2, a5], a6, n] - 
    S2[a1, a3, a4, SP[a2, a6], a5, n] - S2[a1, a3, a5, a4, SP[a2, a6], n] - 
    S2[a1, a3, a5, a6, SP[a2, a4], n] - S2[a1, a3, a5, SP[a2, a4], a6, n] - 
    S2[a1, a3, a5, SP[a2, a6], a4, n] - S2[a1, a3, a6, a4, SP[a2, a5], n] - 
    S2[a1, a3, a6, a5, SP[a2, a4], n] - S2[a1, a3, a6, SP[a2, a4], a5, n] - 
    S2[a1, a3, a6, SP[a2, a5], a4, n] - S2[a1, a3, SP[a2, a4], a5, a6, n] - 
    S2[a1, a3, SP[a2, a4], a6, a5, n] - S2[a1, a3, SP[a2, a5], a4, a6, n] - 
    S2[a1, a3, SP[a2, a5], a6, a4, n] - S2[a1, a3, SP[a2, a6], a4, a5, n] - 
    S2[a1, a3, SP[a2, a6], a5, a4, n] - S2[a6, n]*S2[a1, a4, a2, a3, a5, n] - 
    S2[a1, a4, a2, a3, SP[a5, a6], n] - S2[a6, n]*S2[a1, a4, a2, a5, a3, n] + 
    S2[a3, n]*S2[a1, a4, a2, a5, a6, n] + 
    S2[a3, n]*S2[a1, a4, a2, a6, a5, n] + S2[a1, a4, a2, a6, SP[a3, a5], n] + 
    S2[a1, a4, a2, SP[a3, a5], a6, n] - S2[a1, a4, a2, SP[a5, a6], a3, n] - 
    S2[a6, n]*S2[a1, a4, a3, a2, a5, n] - S2[a1, a4, a3, a2, SP[a5, a6], n] - 
    S2[a6, n]*S2[a1, a4, a3, a5, a2, n] - S2[a1, a4, a3, a5, SP[a2, a6], n] - 
    S2[a1, a4, a3, SP[a2, a6], a5, n] - S2[a1, a4, a3, SP[a5, a6], a2, n] - 
    S2[a6, n]*S2[a1, a4, a5, a2, a3, n] + 
    S2[a3, n]*S2[a1, a4, a5, a2, a6, n] - 
    S2[a6, n]*S2[a1, a4, a5, a3, a2, n] - S2[a1, a4, a5, a3, SP[a2, a6], n] + 
    S2[a3, n]*S2[a1, a4, a5, a6, a2, n] + S2[a1, a4, a5, a6, SP[a2, a3], n] + 
    S2[a1, a4, a5, SP[a2, a3], a6, n] - S2[a1, a4, a5, SP[a2, a6], a3, n] + 
    S2[a3, n]*S2[a1, a4, a6, a2, a5, n] + S2[a1, a4, a6, a2, SP[a3, a5], n] + 
    S2[a1, a4, a6, a3, SP[a2, a5], n] + S2[a3, n]*S2[a1, a4, a6, a5, a2, n] + 
    S2[a1, a4, a6, a5, SP[a2, a3], n] + 2*S2[a1, a4, a6, SP[a2, a3], a5, n] + 
    S2[a1, a4, a6, SP[a3, a5], a2, n] + S2[a1, a4, SP[a2, a3], a5, a6, n] + 
    S2[a1, a4, SP[a2, a3], a6, a5, n] - S2[a1, a4, SP[a2, a6], a5, a3, n] + 
    S2[a1, a4, SP[a3, a5], a2, a6, n] + S2[a1, a4, SP[a3, a5], a6, a2, n] - 
    S2[a1, a4, SP[a5, a6], a2, a3, n] - S2[a1, a4, SP[a5, a6], a3, a2, n] - 
    S2[a6, n]*S2[a1, a5, a2, a3, a4, n] - S2[a1, a5, a2, a3, SP[a4, a6], n] - 
    S2[a6, n]*S2[a1, a5, a2, a4, a3, n] + 
    S2[a3, n]*S2[a1, a5, a2, a4, a6, n] + 
    S2[a3, n]*S2[a1, a5, a2, a6, a4, n] + S2[a1, a5, a2, a6, SP[a3, a4], n] + 
    S2[a1, a5, a2, SP[a3, a4], a6, n] - S2[a1, a5, a2, SP[a4, a6], a3, n] - 
    S2[a6, n]*S2[a1, a5, a3, a2, a4, n] - S2[a1, a5, a3, a2, SP[a4, a6], n] - 
    S2[a6, n]*S2[a1, a5, a3, a4, a2, n] - S2[a1, a5, a3, a4, SP[a2, a6], n] - 
    S2[a1, a5, a3, SP[a2, a6], a4, n] - S2[a1, a5, a3, SP[a4, a6], a2, n] - 
    S2[a6, n]*S2[a1, a5, a4, a2, a3, n] + 
    S2[a3, n]*S2[a1, a5, a4, a2, a6, n] - 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] - S2[a1, a5, a4, a3, SP[a2, a6], n] + 
    S2[a3, n]*S2[a1, a5, a4, a6, a2, n] + S2[a1, a5, a4, a6, SP[a2, a3], n] + 
    S2[a1, a5, a4, SP[a2, a3], a6, n] - S2[a1, a5, a4, SP[a2, a6], a3, n] + 
    S2[a3, n]*S2[a1, a5, a6, a2, a4, n] + S2[a1, a5, a6, a2, SP[a3, a4], n] + 
    S2[a3, n]*S2[a1, a5, a6, a4, a2, n] + S2[a1, a5, a6, a4, SP[a2, a3], n] + 
    S2[a1, a5, a6, SP[a2, a3], a4, n] + S2[a1, a5, a6, SP[a3, a4], a2, n] + 
    S2[a1, a5, SP[a2, a3], a4, a6, n] + S2[a1, a5, SP[a2, a3], a6, a4, n] - 
    S2[a1, a5, SP[a2, a6], a3, a4, n] - S2[a1, a5, SP[a2, a6], a4, a3, n] + 
    S2[a1, a5, SP[a3, a4], a2, a6, n] + S2[a1, a5, SP[a3, a4], a6, a2, n] - 
    S2[a1, a5, SP[a4, a6], a2, a3, n] - S2[a1, a5, SP[a4, a6], a3, a2, n] - 
    S2[a4, n]*S2[a1, a6, a2, a3, a5, n] - S2[a1, a6, a2, a3, SP[a4, a5], n] + 
    S2[a3, n]*S2[a1, a6, a2, a4, a5, n] + S2[a1, a6, a2, a4, SP[a3, a5], n] + 
    S2[a3, n]*S2[a1, a6, a2, a5, a4, n] + S2[a1, a6, a2, a5, SP[a3, a4], n] + 
    S2[a1, a6, a2, SP[a3, a5], a4, n] - S2[a4, n]*S2[a1, a6, a3, a2, a5, n] - 
    S2[a1, a6, a3, a2, SP[a4, a5], n] - S2[a4, n]*S2[a1, a6, a3, a5, a2, n] - 
    S2[a1, a6, a3, a5, SP[a2, a4], n] - S2[a1, a6, a3, SP[a2, a4], a5, n] - 
    S2[a1, a6, a3, SP[a4, a5], a2, n] + S2[a3, n]*S2[a1, a6, a4, a2, a5, n] + 
    S2[a1, a6, a4, a2, SP[a3, a5], n] + S2[a2, n]*S2[a1, a6, a4, a3, a5, n] + 
    S2[a1, a6, a4, a3, SP[a2, a5], n] + S2[a3, n]*S2[a1, a6, a4, a5, a2, n] + 
    S2[a1, a6, a4, a5, SP[a2, a3], n] + 2*S2[a1, a6, a4, SP[a2, a3], a5, n] + 
    S2[a1, a6, a4, SP[a3, a5], a2, n] + S2[a3, n]*S2[a1, a6, a5, a2, a4, n] + 
    S2[a1, a6, a5, a2, SP[a3, a4], n] + S2[a3, n]*S2[a1, a6, a5, a4, a2, n] + 
    S2[a1, a6, a5, a4, SP[a2, a3], n] + S2[a1, a6, a5, SP[a2, a3], a4, n] + 
    S2[a1, a6, a5, SP[a3, a4], a2, n] + S2[a1, a6, SP[a2, a3], a4, a5, n] + 
    S2[a1, a6, SP[a2, a3], a5, a4, n] + S2[a1, a6, SP[a3, a5], a2, a4, n] + 
    S2[a1, a6, SP[a3, a5], a4, a2, n] - S2[a1, SP[a2, a6], a4, a5, a3, n] - 
    S2[a1, SP[a2, a6], a5, a3, a4, n] - S2[a1, SP[a2, a6], a5, a4, a3, n] + 
    S2[a1, SP[a3, a4], a2, a5, a6, n] + S2[a1, SP[a3, a4], a2, a6, a5, n] + 
    S2[a1, SP[a3, a4], a5, a2, a6, n] + S2[a1, SP[a3, a4], a5, a6, a2, n] + 
    S2[a1, SP[a3, a4], a6, a2, a5, n] + S2[a1, SP[a3, a4], a6, a5, a2, n] + 
    S2[a1, SP[a3, a5], a2, a4, a6, n] + S2[a1, SP[a3, a5], a2, a6, a4, n] + 
    S2[a1, SP[a3, a5], a4, a2, a6, n] + S2[a1, SP[a3, a5], a4, a6, a2, n] + 
    S2[a1, SP[a3, a5], a6, a2, a4, n] + S2[a1, SP[a3, a5], a6, a4, a2, n] + 
    S2[a1, SP[a3, a6], a2, a4, a5, n] + S2[a1, SP[a3, a6], a2, a5, a4, n] + 
    S2[a1, SP[a3, a6], a4, a2, a5, n] + S2[a1, SP[a3, a6], a4, a5, a2, n] + 
    S2[a1, SP[a3, a6], a5, a2, a4, n] + S2[a1, SP[a3, a6], a5, a4, a2, n] - 
    2*S2[a1, SP[a4, a6], a2, a3, a5, n] - S2[a1, SP[a4, a6], a2, a5, a3, n] - 
    2*S2[a1, SP[a4, a6], a3, a2, a5, n] - 
    2*S2[a1, SP[a4, a6], a3, a5, a2, n] - S2[a1, SP[a4, a6], a5, a2, a3, n] - 
    S2[a1, SP[a4, a6], a5, a3, a2, n] - S2[a1, SP[a5, a6], a2, a3, a4, n] - 
    S2[a1, SP[a5, a6], a2, a4, a3, n] - S2[a1, SP[a5, a6], a3, a2, a4, n] - 
    S2[a1, SP[a5, a6], a3, a4, a2, n] - S2[a1, SP[a5, a6], a4, a2, a3, n] - 
    S2[a1, SP[a5, a6], a4, a3, a2, n] - S2[a3, a1, a4, a5, SP[a2, a6], n] - 
    S2[a3, a1, a4, a6, SP[a2, a5], n] - S2[a3, a1, a4, SP[a2, a5], a6, n] - 
    S2[a3, a1, a4, SP[a2, a6], a5, n] - S2[a3, a1, a5, a4, SP[a2, a6], n] - 
    S2[a3, a1, a5, a6, SP[a2, a4], n] - S2[a3, a1, a5, SP[a2, a4], a6, n] - 
    S2[a3, a1, a5, SP[a2, a6], a4, n] - S2[a3, a1, a6, a4, SP[a2, a5], n] - 
    S2[a3, a1, a6, a5, SP[a2, a4], n] - S2[a3, a1, a6, SP[a2, a4], a5, n] - 
    S2[a3, a1, a6, SP[a2, a5], a4, n] - S2[a3, a1, SP[a2, a4], a5, a6, n] - 
    S2[a3, a1, SP[a2, a4], a6, a5, n] - S2[a3, a1, SP[a2, a5], a4, a6, n] - 
    S2[a3, a1, SP[a2, a5], a6, a4, n] - S2[a3, a1, SP[a2, a6], a4, a5, n] - 
    S2[a3, a1, SP[a2, a6], a5, a4, n] + S2[a6, n]*S2[a3, a4, a1, a2, a5, n] + 
    S2[a3, a4, a1, a2, SP[a5, a6], n] + S2[a6, n]*S2[a3, a4, a1, a5, a2, n] - 
    S2[a3, a4, a1, a6, SP[a2, a5], n] - S2[a3, a4, a1, SP[a2, a5], a6, n] + 
    S2[a3, a4, a1, SP[a5, a6], a2, n] + S2[a6, n]*S2[a3, a4, a5, a1, a2, n] - 
    S2[a3, a4, a6, a1, SP[a2, a5], n] - S2[a3, a4, a6, SP[a1, a5], a2, n] - 
    S2[a3, a4, SP[a1, a5], a2, a6, n] - S2[a3, a4, SP[a1, a5], a6, a2, n] + 
    S2[a3, a4, SP[a5, a6], a1, a2, n] + S2[a6, n]*S2[a3, a5, a1, a2, a4, n] + 
    S2[a3, a5, a1, a2, SP[a4, a6], n] + S2[a6, n]*S2[a3, a5, a1, a4, a2, n] - 
    S2[a3, a5, a1, a6, SP[a2, a4], n] - S2[a3, a5, a1, SP[a2, a4], a6, n] + 
    S2[a3, a5, a1, SP[a4, a6], a2, n] + S2[a6, n]*S2[a3, a5, a4, a1, a2, n] - 
    S2[a3, a5, a6, a1, SP[a2, a4], n] - S2[a3, a5, a6, SP[a1, a4], a2, n] - 
    S2[a3, a5, SP[a1, a4], a2, a6, n] - S2[a3, a5, SP[a1, a4], a6, a2, n] + 
    S2[a3, a5, SP[a4, a6], a1, a2, n] + S2[a4, n]*S2[a3, a6, a1, a2, a5, n] + 
    S2[a3, a6, a1, a2, SP[a4, a5], n] - S2[a3, a6, a1, a4, SP[a2, a5], n] + 
    S2[a4, n]*S2[a3, a6, a1, a5, a2, n] - S2[a3, a6, a1, SP[a2, a5], a4, n] + 
    S2[a3, a6, a1, SP[a4, a5], a2, n] - S2[a3, a6, a4, a1, SP[a2, a5], n] - 
    S2[a3, a6, a4, SP[a1, a5], a2, n] - S2[a3, a6, a5, a1, SP[a2, a4], n] - 
    S2[a3, a6, a5, SP[a1, a4], a2, n] - S2[a3, a6, SP[a1, a5], a2, a4, n] - 
    S2[a3, a6, SP[a1, a5], a4, a2, n] - S2[a3, SP[a1, a4], a2, a5, a6, n] - 
    S2[a3, SP[a1, a4], a2, a6, a5, n] - S2[a3, SP[a1, a4], a5, a2, a6, n] - 
    S2[a3, SP[a1, a4], a5, a6, a2, n] - S2[a3, SP[a1, a4], a6, a2, a5, n] - 
    S2[a3, SP[a1, a4], a6, a5, a2, n] - S2[a3, SP[a1, a5], a2, a4, a6, n] - 
    S2[a3, SP[a1, a5], a2, a6, a4, n] - S2[a3, SP[a1, a5], a4, a2, a6, n] - 
    S2[a3, SP[a1, a5], a4, a6, a2, n] - S2[a3, SP[a1, a5], a6, a2, a4, n] - 
    S2[a3, SP[a1, a5], a6, a4, a2, n] - S2[a3, SP[a1, a6], a2, a4, a5, n] - 
    S2[a3, SP[a1, a6], a2, a5, a4, n] - S2[a3, SP[a1, a6], a4, a2, a5, n] - 
    S2[a3, SP[a1, a6], a4, a5, a2, n] - S2[a3, SP[a1, a6], a5, a2, a4, n] - 
    S2[a3, SP[a1, a6], a5, a4, a2, n] + 2*S2[a3, SP[a4, a6], a1, a2, a5, n] + 
    2*S2[a3, SP[a4, a6], a1, a5, a2, n] + S2[a3, SP[a4, a6], a5, a1, a2, n] + 
    S2[a3, SP[a5, a6], a1, a2, a4, n] + S2[a3, SP[a5, a6], a1, a4, a2, n] + 
    S2[a3, SP[a5, a6], a4, a1, a2, n] + S2[a4, a1, a6, a3, SP[a2, a5], n] + 
    S2[a4, a1, a6, SP[a2, a3], a5, n] + S2[a4, a1, SP[a2, a6], a3, a5, n] - 
    S2[a3, n]*S2[a4, a6, a1, a2, a5, n] - S2[a4, a6, a1, a2, SP[a3, a5], n] + 
    S2[a4, a6, a1, a3, SP[a2, a5], n] - S2[a3, n]*S2[a4, a6, a1, a5, a2, n] - 
    S2[a4, a6, a1, a5, SP[a2, a3], n] - S2[a4, a6, a1, SP[a3, a5], a2, n] + 
    S2[a4, a6, a3, a1, SP[a2, a5], n] + S2[a4, a6, a3, SP[a1, a5], a2, n] + 
    S2[a4, SP[a1, a6], a2, a3, a5, n] + S2[a4, SP[a1, a6], a3, a2, a5, n] + 
    S2[a4, SP[a1, a6], a3, a5, a2, n] - S2[a4, SP[a3, a6], a1, a2, a5, n] - 
    S2[a4, SP[a3, a6], a1, a5, a2, n] + S2[a4, n]*S2[a6, a1, a2, a5, a3, n] + 
    S2[a6, a1, a2, a5, SP[a3, a4], n] + S2[a6, a1, a2, SP[a4, a5], a3, n] + 
    S2[a4, n]*S2[a6, a1, a5, a2, a3, n] + S2[a6, a1, a5, a2, SP[a3, a4], n] + 
    S2[a4, n]*S2[a6, a1, a5, a3, a2, n] + S2[a6, a1, a5, a3, SP[a2, a4], n] + 
    S2[a6, a1, a5, SP[a2, a4], a3, n] + S2[a6, a1, a5, SP[a3, a4], a2, n] + 
    S2[a6, a1, SP[a2, a4], a5, a3, n] + S2[a6, a1, SP[a4, a5], a2, a3, n] + 
    S2[a6, a1, SP[a4, a5], a3, a2, n] - S2[a4, n]*S2[a6, a3, a5, a1, a2, n] - 
    S2[a6, a3, a5, a1, SP[a2, a4], n] - S2[a6, a3, a5, SP[a1, a4], a2, n] - 
    S2[a6, a3, SP[a4, a5], a1, a2, n] - S2[a3, n]*S2[a6, a4, a1, a2, a5, n] - 
    S2[a6, a4, a1, a2, SP[a3, a5], n] - S2[a3, n]*S2[a6, a4, a1, a5, a2, n] - 
    S2[a6, a4, a1, a5, SP[a2, a3], n] - S2[a6, a4, a1, SP[a2, a3], a5, n] - 
    S2[a6, a4, a1, SP[a3, a5], a2, n] - S2[a6, a4, SP[a1, a3], a2, a5, n] - 
    S2[a6, a4, SP[a1, a3], a5, a2, n] + S2[a6, SP[a1, a4], a2, a5, a3, n] + 
    S2[a6, SP[a1, a4], a5, a2, a3, n] + S2[a6, SP[a1, a4], a5, a3, a2, n] - 
    S2[a6, SP[a3, a4], a1, a2, a5, n] - S2[a6, SP[a3, a4], a1, a5, a2, n] - 
    S2[a6, SP[a3, a4], a5, a1, a2, n] + S2[SP[a1, a2], a6, a4, a3, a5, n] - 
    S2[SP[a1, a6], a2, a4, a3, a5, n] - S2[SP[a1, a6], a2, a4, a5, a3, n] - 
    S2[SP[a1, a6], a2, a5, a3, a4, n] - S2[SP[a1, a6], a2, a5, a4, a3, n] - 
    S2[SP[a1, a6], a4, a2, a3, a5, n] - S2[SP[a1, a6], a4, a2, a5, a3, n] - 
    S2[SP[a1, a6], a4, a3, a2, a5, n] - S2[SP[a1, a6], a4, a3, a5, a2, n] - 
    S2[SP[a1, a6], a4, a5, a2, a3, n] - S2[SP[a1, a6], a4, a5, a3, a2, n] - 
    S2[SP[a1, a6], a5, a2, a3, a4, n] - S2[SP[a1, a6], a5, a2, a4, a3, n] - 
    S2[SP[a1, a6], a5, a3, a2, a4, n] - S2[SP[a1, a6], a5, a3, a4, a2, n] - 
    S2[SP[a1, a6], a5, a4, a2, a3, n] - S2[SP[a1, a6], a5, a4, a3, a2, n] + 
    S2[SP[a3, a6], a4, a5, a1, a2, n] + S2[SP[a3, a6], a5, a1, a2, a4, n] + 
    S2[SP[a3, a6], a5, a1, a4, a2, n] + S2[SP[a3, a6], a5, a4, a1, a2, n] + 
    S2[SP[a4, a6], a1, a2, a5, a3, n] + S2[SP[a4, a6], a1, a5, a2, a3, n] + 
    S2[SP[a4, a6], a1, a5, a3, a2, n] - S2[SP[a4, a6], a3, a5, a1, a2, n] + 
    S2[a6, a1, a2, a4, a3, a5, n] + S2[a6, a1, a4, a2, a3, a5, n] + 
    S2[a6, a1, a4, a3, a2, a5, n] + S2[a6, a1, a4, a3, a5, a2, n] + 
    S2[a6, a4, a1, a2, a3, a5, n] + S2[a6, a4, a1, a3, a2, a5, n] + 
    S2[a6, a4, a1, a3, a5, a2, n] + S2[a6, a4, a3, a1, a2, a5, n] + 
    S2[a6, a4, a3, a1, a5, a2, n] + S2[a6, a4, a3, a5, a1, a2, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a2_, a1_, a6_, a4_, a5_, a3_, n_] :> 
  S2[a1, a2, n]*S2[a3, a5, a4, a6, n] + S2[a1, a2, n]*S2[a3, a5, a6, a4, n] - 
    S2[a3, a5, SP[a1, a4], SP[a2, a6], n] - S2[a3, a5, SP[a1, a6], 
     SP[a2, a4], n] + S2[a1, a2, n]*S2[a3, a6, a4, a5, n] + 
    S2[a1, a2, n]*S2[a3, a6, a5, a4, n] - S2[a3, a6, SP[a1, a4], SP[a2, a5], 
     n] - S2[a3, a6, SP[a1, a5], SP[a2, a4], n] - S2[a3, SP[a1, a5], a4, 
     SP[a2, a6], n] - S2[a3, SP[a1, a5], a6, SP[a2, a4], n] - 
    S2[a3, SP[a1, a5], SP[a2, a4], a6, n] - S2[a3, SP[a1, a5], SP[a2, a6], 
     a4, n] - S2[a3, SP[a1, a6], a4, SP[a2, a5], n] - 
    S2[a3, SP[a1, a6], a5, SP[a2, a4], n] - S2[a3, SP[a1, a6], SP[a2, a4], 
     a5, n] - S2[a3, SP[a1, a6], SP[a2, a5], a4, n] - 
    S2[a1, a2, n]*S2[a4, a6, a3, a5, n] + S2[a4, a6, SP[a1, a3], SP[a2, a5], 
     n] + S2[a4, SP[a1, a6], a3, SP[a2, a5], n] + 
    S2[a4, SP[a1, a6], SP[a2, a3], a5, n] - S2[SP[a1, a3], a5, a4, 
     SP[a2, a6], n] - S2[SP[a1, a3], a5, a6, SP[a2, a4], n] - 
    S2[SP[a1, a3], a5, SP[a2, a4], a6, n] - S2[SP[a1, a3], a5, SP[a2, a6], 
     a4, n] - S2[SP[a1, a3], a6, a4, SP[a2, a5], n] - 
    S2[SP[a1, a3], a6, a5, SP[a2, a4], n] - S2[SP[a1, a3], a6, SP[a2, a4], 
     a5, n] - S2[SP[a1, a3], a6, SP[a2, a5], a4, n] - 
    S2[SP[a1, a3], SP[a2, a5], a4, a6, n] - S2[SP[a1, a3], SP[a2, a5], a6, 
     a4, n] - S2[SP[a1, a3], SP[a2, a6], a4, a5, n] - 
    S2[SP[a1, a3], SP[a2, a6], a5, a4, n] + S2[SP[a1, a4], a6, a3, 
     SP[a2, a5], n] + S2[SP[a1, a4], a6, SP[a2, a3], a5, n] + 
    S2[SP[a1, a4], SP[a2, a6], a3, a5, n] + 
    S2[a6, n]*S2[a1, a2, a5, a3, a4, n] + S2[a1, a2, a5, a3, SP[a4, a6], n] + 
    S2[a6, n]*S2[a1, a2, a5, a4, a3, n] - 
    S2[a3, n]*S2[a1, a2, a5, a4, a6, n] - 
    S2[a3, n]*S2[a1, a2, a5, a6, a4, n] - S2[a1, a2, a5, a6, SP[a3, a4], n] - 
    S2[a1, a2, a5, SP[a3, a4], a6, n] + S2[a1, a2, a5, SP[a4, a6], a3, n] + 
    S2[a4, n]*S2[a1, a2, a6, a3, a5, n] + S2[a1, a2, a6, a3, SP[a4, a5], n] - 
    S2[a3, n]*S2[a1, a2, a6, a4, a5, n] - S2[a1, a2, a6, a4, SP[a3, a5], n] - 
    S2[a3, n]*S2[a1, a2, a6, a5, a4, n] - S2[a1, a2, a6, a5, SP[a3, a4], n] - 
    S2[a1, a2, a6, SP[a3, a5], a4, n] - S2[a1, a2, SP[a3, a5], a4, a6, n] - 
    S2[a1, a2, SP[a3, a5], a6, a4, n] - S2[a1, a2, SP[a3, a6], a4, a5, n] - 
    S2[a1, a2, SP[a3, a6], a5, a4, n] + S2[a1, a2, SP[a4, a6], a3, a5, n] + 
    S2[a1, a2, SP[a5, a6], a3, a4, n] + S2[a1, a2, SP[a5, a6], a4, a3, n] + 
    S2[a1, a3, a5, a4, SP[a2, a6], n] + S2[a1, a3, a5, a6, SP[a2, a4], n] + 
    S2[a1, a3, a5, SP[a2, a4], a6, n] + S2[a1, a3, a5, SP[a2, a6], a4, n] + 
    S2[a1, a3, a6, a4, SP[a2, a5], n] + S2[a1, a3, a6, a5, SP[a2, a4], n] + 
    S2[a1, a3, a6, SP[a2, a4], a5, n] + S2[a1, a3, a6, SP[a2, a5], a4, n] + 
    S2[a1, a3, SP[a2, a5], a4, a6, n] + S2[a1, a3, SP[a2, a5], a6, a4, n] + 
    S2[a1, a3, SP[a2, a6], a4, a5, n] + S2[a1, a3, SP[a2, a6], a5, a4, n] - 
    S2[a1, a4, a6, a3, SP[a2, a5], n] - S2[a1, a4, a6, SP[a2, a3], a5, n] - 
    S2[a1, a4, SP[a2, a6], a3, a5, n] + S2[a6, n]*S2[a1, a5, a2, a3, a4, n] + 
    S2[a1, a5, a2, a3, SP[a4, a6], n] + S2[a6, n]*S2[a1, a5, a2, a4, a3, n] - 
    S2[a3, n]*S2[a1, a5, a2, a4, a6, n] - 
    S2[a3, n]*S2[a1, a5, a2, a6, a4, n] - S2[a1, a5, a2, a6, SP[a3, a4], n] - 
    S2[a1, a5, a2, SP[a3, a4], a6, n] + S2[a1, a5, a2, SP[a4, a6], a3, n] + 
    S2[a6, n]*S2[a1, a5, a3, a2, a4, n] + S2[a1, a5, a3, a2, SP[a4, a6], n] + 
    S2[a6, n]*S2[a1, a5, a3, a4, a2, n] + S2[a1, a5, a3, a4, SP[a2, a6], n] + 
    S2[a1, a5, a3, SP[a2, a6], a4, n] + S2[a1, a5, a3, SP[a4, a6], a2, n] + 
    S2[a6, n]*S2[a1, a5, a4, a2, a3, n] - 
    S2[a3, n]*S2[a1, a5, a4, a2, a6, n] + 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] + S2[a1, a5, a4, a3, SP[a2, a6], n] - 
    S2[a3, n]*S2[a1, a5, a4, a6, a2, n] - S2[a1, a5, a4, a6, SP[a2, a3], n] - 
    S2[a1, a5, a4, SP[a2, a3], a6, n] + S2[a1, a5, a4, SP[a2, a6], a3, n] - 
    S2[a3, n]*S2[a1, a5, a6, a2, a4, n] - S2[a1, a5, a6, a2, SP[a3, a4], n] - 
    S2[a3, n]*S2[a1, a5, a6, a4, a2, n] - S2[a1, a5, a6, a4, SP[a2, a3], n] - 
    S2[a1, a5, a6, SP[a2, a3], a4, n] - S2[a1, a5, a6, SP[a3, a4], a2, n] - 
    S2[a1, a5, SP[a2, a3], a4, a6, n] - S2[a1, a5, SP[a2, a3], a6, a4, n] + 
    S2[a1, a5, SP[a2, a6], a3, a4, n] + S2[a1, a5, SP[a2, a6], a4, a3, n] - 
    S2[a1, a5, SP[a3, a4], a2, a6, n] - S2[a1, a5, SP[a3, a4], a6, a2, n] + 
    S2[a1, a5, SP[a4, a6], a2, a3, n] + S2[a1, a5, SP[a4, a6], a3, a2, n] + 
    S2[a4, n]*S2[a1, a6, a2, a3, a5, n] + S2[a1, a6, a2, a3, SP[a4, a5], n] - 
    S2[a3, n]*S2[a1, a6, a2, a4, a5, n] - S2[a1, a6, a2, a4, SP[a3, a5], n] - 
    S2[a3, n]*S2[a1, a6, a2, a5, a4, n] - S2[a1, a6, a2, a5, SP[a3, a4], n] - 
    S2[a1, a6, a2, SP[a3, a5], a4, n] + S2[a4, n]*S2[a1, a6, a3, a2, a5, n] + 
    S2[a1, a6, a3, a2, SP[a4, a5], n] + S2[a4, n]*S2[a1, a6, a3, a5, a2, n] + 
    S2[a1, a6, a3, a5, SP[a2, a4], n] + S2[a1, a6, a3, SP[a2, a4], a5, n] + 
    S2[a1, a6, a3, SP[a4, a5], a2, n] - S2[a3, n]*S2[a1, a6, a4, a2, a5, n] - 
    S2[a1, a6, a4, a2, SP[a3, a5], n] - S2[a3, n]*S2[a1, a6, a4, a5, a2, n] + 
    S2[a2, n]*S2[a1, a6, a4, a5, a3, n] - S2[a1, a6, a4, SP[a2, a3], a5, n] + 
    S2[a1, a6, a4, SP[a2, a5], a3, n] - S2[a1, a6, a4, SP[a3, a5], a2, n] - 
    S2[a3, n]*S2[a1, a6, a5, a2, a4, n] - S2[a1, a6, a5, a2, SP[a3, a4], n] - 
    S2[a3, n]*S2[a1, a6, a5, a4, a2, n] - S2[a1, a6, a5, a4, SP[a2, a3], n] - 
    S2[a1, a6, a5, SP[a2, a3], a4, n] - S2[a1, a6, a5, SP[a3, a4], a2, n] - 
    S2[a1, a6, SP[a2, a3], a4, a5, n] - S2[a1, a6, SP[a2, a3], a5, a4, n] + 
    S2[a1, a6, SP[a2, a4], a3, a5, n] + S2[a1, a6, SP[a2, a4], a5, a3, n] - 
    S2[a1, a6, SP[a3, a5], a2, a4, n] - S2[a1, a6, SP[a3, a5], a4, a2, n] + 
    S2[a1, SP[a2, a6], a4, a5, a3, n] + S2[a1, SP[a2, a6], a5, a3, a4, n] + 
    S2[a1, SP[a2, a6], a5, a4, a3, n] - S2[a1, SP[a3, a5], a2, a4, a6, n] - 
    S2[a1, SP[a3, a5], a2, a6, a4, n] - S2[a1, SP[a3, a5], a4, a2, a6, n] - 
    S2[a1, SP[a3, a5], a4, a6, a2, n] - S2[a1, SP[a3, a5], a6, a2, a4, n] - 
    S2[a1, SP[a3, a5], a6, a4, a2, n] - S2[a1, SP[a3, a6], a2, a4, a5, n] - 
    S2[a1, SP[a3, a6], a2, a5, a4, n] - S2[a1, SP[a3, a6], a4, a2, a5, n] - 
    S2[a1, SP[a3, a6], a4, a5, a2, n] - S2[a1, SP[a3, a6], a5, a2, a4, n] - 
    S2[a1, SP[a3, a6], a5, a4, a2, n] + S2[a1, SP[a4, a6], a2, a3, a5, n] + 
    S2[a1, SP[a4, a6], a3, a2, a5, n] + S2[a1, SP[a4, a6], a3, a5, a2, n] + 
    S2[a1, SP[a5, a6], a2, a3, a4, n] + S2[a1, SP[a5, a6], a2, a4, a3, n] + 
    S2[a1, SP[a5, a6], a3, a2, a4, n] + S2[a1, SP[a5, a6], a3, a4, a2, n] + 
    S2[a1, SP[a5, a6], a4, a2, a3, n] + S2[a1, SP[a5, a6], a4, a3, a2, n] + 
    S2[a3, a1, a5, a4, SP[a2, a6], n] + S2[a3, a1, a5, a6, SP[a2, a4], n] + 
    S2[a3, a1, a5, SP[a2, a4], a6, n] + S2[a3, a1, a5, SP[a2, a6], a4, n] + 
    S2[a3, a1, a6, a4, SP[a2, a5], n] + S2[a3, a1, a6, a5, SP[a2, a4], n] + 
    S2[a3, a1, a6, SP[a2, a4], a5, n] + S2[a3, a1, a6, SP[a2, a5], a4, n] + 
    S2[a3, a1, SP[a2, a5], a4, a6, n] + S2[a3, a1, SP[a2, a5], a6, a4, n] + 
    S2[a3, a1, SP[a2, a6], a4, a5, n] + S2[a3, a1, SP[a2, a6], a5, a4, n] - 
    S2[a6, n]*S2[a3, a5, a1, a2, a4, n] - S2[a3, a5, a1, a2, SP[a4, a6], n] - 
    S2[a6, n]*S2[a3, a5, a1, a4, a2, n] + S2[a3, a5, a1, a6, SP[a2, a4], n] + 
    S2[a3, a5, a1, SP[a2, a4], a6, n] - S2[a3, a5, a1, SP[a4, a6], a2, n] - 
    S2[a6, n]*S2[a3, a5, a4, a1, a2, n] + S2[a3, a5, a6, a1, SP[a2, a4], n] + 
    S2[a3, a5, a6, SP[a1, a4], a2, n] + S2[a3, a5, SP[a1, a4], a2, a6, n] + 
    S2[a3, a5, SP[a1, a4], a6, a2, n] - S2[a3, a5, SP[a4, a6], a1, a2, n] - 
    S2[a4, n]*S2[a3, a6, a1, a2, a5, n] - S2[a3, a6, a1, a2, SP[a4, a5], n] + 
    S2[a3, a6, a1, a4, SP[a2, a5], n] - S2[a4, n]*S2[a3, a6, a1, a5, a2, n] + 
    S2[a3, a6, a1, SP[a2, a5], a4, n] - S2[a3, a6, a1, SP[a4, a5], a2, n] + 
    S2[a3, a6, a4, a1, SP[a2, a5], n] + S2[a3, a6, a4, SP[a1, a5], a2, n] + 
    S2[a3, a6, a5, a1, SP[a2, a4], n] + S2[a3, a6, a5, SP[a1, a4], a2, n] + 
    S2[a3, a6, SP[a1, a5], a2, a4, n] + S2[a3, a6, SP[a1, a5], a4, a2, n] + 
    S2[a3, SP[a1, a5], a2, a4, a6, n] + S2[a3, SP[a1, a5], a2, a6, a4, n] + 
    S2[a3, SP[a1, a5], a4, a2, a6, n] + S2[a3, SP[a1, a5], a4, a6, a2, n] + 
    S2[a3, SP[a1, a5], a6, a2, a4, n] + S2[a3, SP[a1, a5], a6, a4, a2, n] + 
    S2[a3, SP[a1, a6], a2, a4, a5, n] + S2[a3, SP[a1, a6], a2, a5, a4, n] + 
    S2[a3, SP[a1, a6], a4, a2, a5, n] + S2[a3, SP[a1, a6], a4, a5, a2, n] + 
    S2[a3, SP[a1, a6], a5, a2, a4, n] + S2[a3, SP[a1, a6], a5, a4, a2, n] - 
    S2[a3, SP[a4, a6], a1, a2, a5, n] - S2[a3, SP[a4, a6], a1, a5, a2, n] - 
    S2[a3, SP[a5, a6], a1, a2, a4, n] - S2[a3, SP[a5, a6], a1, a4, a2, n] - 
    S2[a3, SP[a5, a6], a4, a1, a2, n] - S2[a4, a1, a6, a3, SP[a2, a5], n] - 
    S2[a4, a1, a6, SP[a2, a3], a5, n] - S2[a4, a1, SP[a2, a6], a3, a5, n] + 
    S2[a3, n]*S2[a4, a6, a1, a2, a5, n] + S2[a4, a6, a1, a2, SP[a3, a5], n] - 
    S2[a4, a6, a1, a3, SP[a2, a5], n] + S2[a3, n]*S2[a4, a6, a1, a5, a2, n] + 
    S2[a4, a6, a1, a5, SP[a2, a3], n] + S2[a4, a6, a1, SP[a3, a5], a2, n] - 
    S2[a4, a6, a3, a1, SP[a2, a5], n] - S2[a4, a6, a3, SP[a1, a5], a2, n] - 
    S2[a4, SP[a1, a6], a2, a3, a5, n] - S2[a4, SP[a1, a6], a3, a2, a5, n] - 
    S2[a4, SP[a1, a6], a3, a5, a2, n] + S2[a4, SP[a3, a6], a1, a2, a5, n] + 
    S2[a4, SP[a3, a6], a1, a5, a2, n] - S2[a4, n]*S2[a6, a1, a2, a5, a3, n] - 
    S2[a6, a1, a2, a5, SP[a3, a4], n] - S2[a6, a1, a2, SP[a4, a5], a3, n] - 
    S2[a4, n]*S2[a6, a1, a5, a2, a3, n] - S2[a6, a1, a5, a2, SP[a3, a4], n] - 
    S2[a4, n]*S2[a6, a1, a5, a3, a2, n] - S2[a6, a1, a5, a3, SP[a2, a4], n] - 
    S2[a6, a1, a5, SP[a2, a4], a3, n] - S2[a6, a1, a5, SP[a3, a4], a2, n] - 
    S2[a6, a1, SP[a2, a4], a5, a3, n] - S2[a6, a1, SP[a4, a5], a2, a3, n] - 
    S2[a6, a1, SP[a4, a5], a3, a2, n] + S2[a4, n]*S2[a6, a3, a5, a1, a2, n] + 
    S2[a6, a3, a5, a1, SP[a2, a4], n] + S2[a6, a3, a5, SP[a1, a4], a2, n] + 
    S2[a6, a3, SP[a4, a5], a1, a2, n] - S2[a3, n]*S2[a6, a4, a5, a1, a2, n] - 
    S2[a6, a4, a5, a1, SP[a2, a3], n] - S2[a6, a4, a5, SP[a1, a3], a2, n] - 
    S2[a6, a4, SP[a3, a5], a1, a2, n] - S2[a6, SP[a1, a4], a2, a5, a3, n] - 
    S2[a6, SP[a1, a4], a5, a2, a3, n] - S2[a6, SP[a1, a4], a5, a3, a2, n] + 
    S2[SP[a1, a2], a6, a4, a5, a3, n] + S2[SP[a1, a6], a2, a5, a3, a4, n] + 
    S2[SP[a1, a6], a2, a5, a4, a3, n] + S2[SP[a1, a6], a5, a2, a3, a4, n] + 
    S2[SP[a1, a6], a5, a2, a4, a3, n] + S2[SP[a1, a6], a5, a3, a2, a4, n] + 
    S2[SP[a1, a6], a5, a3, a4, a2, n] + S2[SP[a1, a6], a5, a4, a2, a3, n] + 
    S2[SP[a1, a6], a5, a4, a3, a2, n] - S2[SP[a3, a6], a4, a5, a1, a2, n] - 
    S2[SP[a3, a6], a5, a1, a2, a4, n] - S2[SP[a3, a6], a5, a1, a4, a2, n] - 
    S2[SP[a3, a6], a5, a4, a1, a2, n] - S2[SP[a4, a6], a1, a2, a5, a3, n] - 
    S2[SP[a4, a6], a1, a5, a2, a3, n] - S2[SP[a4, a6], a1, a5, a3, a2, n] + 
    S2[SP[a4, a6], a3, a5, a1, a2, n] + S2[a6, a1, a2, a4, a5, a3, n] + 
    S2[a6, a1, a4, a2, a5, a3, n] + S2[a6, a1, a4, a5, a2, a3, n] + 
    S2[a6, a1, a4, a5, a3, a2, n] + S2[a6, a4, a1, a2, a5, a3, n] + 
    S2[a6, a4, a1, a5, a2, a3, n] + S2[a6, a4, a1, a5, a3, a2, n] + 
    S2[a6, a4, a5, a1, a2, a3, n] + S2[a6, a4, a5, a1, a3, a2, n] + 
    S2[a6, a4, a5, a3, a1, a2, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a2_, a1_, a6_, a5_, a3_, a4_, n_] :> 
  -(S2[a1, a2, n]*S2[a3, a4, a5, a6, n]) - S2[a1, a2, n]*
     S2[a3, a4, a6, a5, n] + S2[a3, a4, SP[a1, a5], SP[a2, a6], n] + 
    S2[a3, a4, SP[a1, a6], SP[a2, a5], n] - S2[a1, a2, n]*
     S2[a3, a5, a4, a6, n] - S2[a1, a2, n]*S2[a3, a5, a6, a4, n] + 
    S2[a3, a5, SP[a1, a4], SP[a2, a6], n] + S2[a3, a5, SP[a1, a6], 
     SP[a2, a4], n] - S2[a1, a2, n]*S2[a3, a6, a4, a5, n] - 
    S2[a1, a2, n]*S2[a3, a6, a5, a4, n] + S2[a3, a6, SP[a1, a4], SP[a2, a5], 
     n] + S2[a3, a6, SP[a1, a5], SP[a2, a4], n] + S2[a3, SP[a1, a4], a5, 
     SP[a2, a6], n] + S2[a3, SP[a1, a4], a6, SP[a2, a5], n] + 
    S2[a3, SP[a1, a4], SP[a2, a5], a6, n] + S2[a3, SP[a1, a4], SP[a2, a6], 
     a5, n] + S2[a3, SP[a1, a5], a4, SP[a2, a6], n] + 
    S2[a3, SP[a1, a5], a6, SP[a2, a4], n] + S2[a3, SP[a1, a5], SP[a2, a4], 
     a6, n] + S2[a3, SP[a1, a5], SP[a2, a6], a4, n] + 
    S2[a3, SP[a1, a6], a4, SP[a2, a5], n] + S2[a3, SP[a1, a6], a5, 
     SP[a2, a4], n] + S2[a3, SP[a1, a6], SP[a2, a4], a5, n] + 
    S2[a3, SP[a1, a6], SP[a2, a5], a4, n] + S2[a1, a2, n]*
     S2[a5, a6, a3, a4, n] - S2[a5, a6, SP[a1, a3], SP[a2, a4], n] - 
    S2[a5, SP[a1, a6], a3, SP[a2, a4], n] - S2[a5, SP[a1, a6], SP[a2, a3], 
     a4, n] + S2[SP[a1, a3], a4, a5, SP[a2, a6], n] + 
    S2[SP[a1, a3], a4, a6, SP[a2, a5], n] + S2[SP[a1, a3], a4, SP[a2, a5], 
     a6, n] + S2[SP[a1, a3], a4, SP[a2, a6], a5, n] + 
    S2[SP[a1, a3], a5, a4, SP[a2, a6], n] + S2[SP[a1, a3], a5, a6, 
     SP[a2, a4], n] + S2[SP[a1, a3], a5, SP[a2, a4], a6, n] + 
    S2[SP[a1, a3], a5, SP[a2, a6], a4, n] + S2[SP[a1, a3], a6, a4, 
     SP[a2, a5], n] + S2[SP[a1, a3], a6, a5, SP[a2, a4], n] + 
    S2[SP[a1, a3], a6, SP[a2, a4], a5, n] + S2[SP[a1, a3], a6, SP[a2, a5], 
     a4, n] + S2[SP[a1, a3], SP[a2, a4], a5, a6, n] + 
    S2[SP[a1, a3], SP[a2, a4], a6, a5, n] + S2[SP[a1, a3], SP[a2, a5], a4, 
     a6, n] + S2[SP[a1, a3], SP[a2, a5], a6, a4, n] + 
    S2[SP[a1, a3], SP[a2, a6], a4, a5, n] + S2[SP[a1, a3], SP[a2, a6], a5, 
     a4, n] - S2[SP[a1, a5], a6, a3, SP[a2, a4], n] - 
    S2[SP[a1, a5], a6, SP[a2, a3], a4, n] - S2[SP[a1, a5], SP[a2, a6], a3, 
     a4, n] - S2[a6, n]*S2[a1, a2, a4, a3, a5, n] - 
    S2[a1, a2, a4, a3, SP[a5, a6], n] - S2[a6, n]*S2[a1, a2, a4, a5, a3, n] + 
    S2[a3, n]*S2[a1, a2, a4, a5, a6, n] + 
    S2[a3, n]*S2[a1, a2, a4, a6, a5, n] + S2[a1, a2, a4, a6, SP[a3, a5], n] + 
    S2[a1, a2, a4, SP[a3, a5], a6, n] - S2[a1, a2, a4, SP[a5, a6], a3, n] - 
    S2[a6, n]*S2[a1, a2, a5, a3, a4, n] - S2[a1, a2, a5, a3, SP[a4, a6], n] - 
    S2[a6, n]*S2[a1, a2, a5, a4, a3, n] + 
    S2[a3, n]*S2[a1, a2, a5, a4, a6, n] + 
    S2[a3, n]*S2[a1, a2, a5, a6, a4, n] + S2[a1, a2, a5, a6, SP[a3, a4], n] + 
    S2[a1, a2, a5, SP[a3, a4], a6, n] - S2[a1, a2, a5, SP[a4, a6], a3, n] - 
    S2[a5, n]*S2[a1, a2, a6, a3, a4, n] - S2[a1, a2, a6, a3, SP[a4, a5], n] + 
    S2[a3, n]*S2[a1, a2, a6, a4, a5, n] + S2[a1, a2, a6, a4, SP[a3, a5], n] + 
    S2[a3, n]*S2[a1, a2, a6, a5, a4, n] + S2[a1, a2, a6, a5, SP[a3, a4], n] + 
    S2[a1, a2, a6, SP[a3, a4], a5, n] + S2[a1, a2, SP[a3, a4], a5, a6, n] + 
    S2[a1, a2, SP[a3, a4], a6, a5, n] + S2[a1, a2, SP[a3, a5], a4, a6, n] + 
    S2[a1, a2, SP[a3, a5], a6, a4, n] + S2[a1, a2, SP[a3, a6], a4, a5, n] + 
    S2[a1, a2, SP[a3, a6], a5, a4, n] - S2[a1, a2, SP[a4, a6], a3, a5, n] - 
    S2[a1, a2, SP[a4, a6], a5, a3, n] - 2*S2[a1, a2, SP[a5, a6], a3, a4, n] - 
    S2[a1, a2, SP[a5, a6], a4, a3, n] - S2[a1, a3, a4, a5, SP[a2, a6], n] - 
    S2[a1, a3, a4, a6, SP[a2, a5], n] - S2[a1, a3, a4, SP[a2, a5], a6, n] - 
    S2[a1, a3, a4, SP[a2, a6], a5, n] - S2[a1, a3, a5, a4, SP[a2, a6], n] - 
    S2[a1, a3, a5, a6, SP[a2, a4], n] - S2[a1, a3, a5, SP[a2, a4], a6, n] - 
    S2[a1, a3, a5, SP[a2, a6], a4, n] - S2[a1, a3, a6, a4, SP[a2, a5], n] - 
    S2[a1, a3, a6, a5, SP[a2, a4], n] - S2[a1, a3, a6, SP[a2, a4], a5, n] - 
    S2[a1, a3, a6, SP[a2, a5], a4, n] - S2[a1, a3, SP[a2, a4], a5, a6, n] - 
    S2[a1, a3, SP[a2, a4], a6, a5, n] - S2[a1, a3, SP[a2, a5], a4, a6, n] - 
    S2[a1, a3, SP[a2, a5], a6, a4, n] - S2[a1, a3, SP[a2, a6], a4, a5, n] - 
    S2[a1, a3, SP[a2, a6], a5, a4, n] - S2[a6, n]*S2[a1, a4, a2, a3, a5, n] - 
    S2[a1, a4, a2, a3, SP[a5, a6], n] - S2[a6, n]*S2[a1, a4, a2, a5, a3, n] + 
    S2[a3, n]*S2[a1, a4, a2, a5, a6, n] + 
    S2[a3, n]*S2[a1, a4, a2, a6, a5, n] + S2[a1, a4, a2, a6, SP[a3, a5], n] + 
    S2[a1, a4, a2, SP[a3, a5], a6, n] - S2[a1, a4, a2, SP[a5, a6], a3, n] - 
    S2[a6, n]*S2[a1, a4, a3, a2, a5, n] - S2[a1, a4, a3, a2, SP[a5, a6], n] - 
    S2[a6, n]*S2[a1, a4, a3, a5, a2, n] - S2[a1, a4, a3, a5, SP[a2, a6], n] - 
    S2[a1, a4, a3, SP[a2, a6], a5, n] - S2[a1, a4, a3, SP[a5, a6], a2, n] - 
    S2[a6, n]*S2[a1, a4, a5, a2, a3, n] + 
    S2[a3, n]*S2[a1, a4, a5, a2, a6, n] - 
    S2[a6, n]*S2[a1, a4, a5, a3, a2, n] - S2[a1, a4, a5, a3, SP[a2, a6], n] + 
    S2[a3, n]*S2[a1, a4, a5, a6, a2, n] + S2[a1, a4, a5, a6, SP[a2, a3], n] + 
    S2[a1, a4, a5, SP[a2, a3], a6, n] - S2[a1, a4, a5, SP[a2, a6], a3, n] + 
    S2[a3, n]*S2[a1, a4, a6, a2, a5, n] + S2[a1, a4, a6, a2, SP[a3, a5], n] + 
    S2[a3, n]*S2[a1, a4, a6, a5, a2, n] + S2[a1, a4, a6, a5, SP[a2, a3], n] + 
    S2[a1, a4, a6, SP[a2, a3], a5, n] + S2[a1, a4, a6, SP[a3, a5], a2, n] + 
    S2[a1, a4, SP[a2, a3], a5, a6, n] + S2[a1, a4, SP[a2, a3], a6, a5, n] - 
    S2[a1, a4, SP[a2, a6], a3, a5, n] - S2[a1, a4, SP[a2, a6], a5, a3, n] + 
    S2[a1, a4, SP[a3, a5], a2, a6, n] + S2[a1, a4, SP[a3, a5], a6, a2, n] - 
    S2[a1, a4, SP[a5, a6], a2, a3, n] - S2[a1, a4, SP[a5, a6], a3, a2, n] - 
    S2[a6, n]*S2[a1, a5, a2, a3, a4, n] - S2[a1, a5, a2, a3, SP[a4, a6], n] - 
    S2[a6, n]*S2[a1, a5, a2, a4, a3, n] + 
    S2[a3, n]*S2[a1, a5, a2, a4, a6, n] + 
    S2[a3, n]*S2[a1, a5, a2, a6, a4, n] + S2[a1, a5, a2, a6, SP[a3, a4], n] + 
    S2[a1, a5, a2, SP[a3, a4], a6, n] - S2[a1, a5, a2, SP[a4, a6], a3, n] - 
    S2[a6, n]*S2[a1, a5, a3, a2, a4, n] - S2[a1, a5, a3, a2, SP[a4, a6], n] - 
    S2[a6, n]*S2[a1, a5, a3, a4, a2, n] - S2[a1, a5, a3, a4, SP[a2, a6], n] - 
    S2[a1, a5, a3, SP[a2, a6], a4, n] - S2[a1, a5, a3, SP[a4, a6], a2, n] - 
    S2[a6, n]*S2[a1, a5, a4, a2, a3, n] + 
    S2[a3, n]*S2[a1, a5, a4, a2, a6, n] - 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] - S2[a1, a5, a4, a3, SP[a2, a6], n] + 
    S2[a3, n]*S2[a1, a5, a4, a6, a2, n] + S2[a1, a5, a4, a6, SP[a2, a3], n] + 
    S2[a1, a5, a4, SP[a2, a3], a6, n] - S2[a1, a5, a4, SP[a2, a6], a3, n] + 
    S2[a3, n]*S2[a1, a5, a6, a2, a4, n] + S2[a1, a5, a6, a2, SP[a3, a4], n] + 
    S2[a1, a5, a6, a3, SP[a2, a4], n] + S2[a3, n]*S2[a1, a5, a6, a4, a2, n] + 
    S2[a1, a5, a6, a4, SP[a2, a3], n] + 2*S2[a1, a5, a6, SP[a2, a3], a4, n] + 
    S2[a1, a5, a6, SP[a3, a4], a2, n] + S2[a1, a5, SP[a2, a3], a4, a6, n] + 
    S2[a1, a5, SP[a2, a3], a6, a4, n] - S2[a1, a5, SP[a2, a6], a4, a3, n] + 
    S2[a1, a5, SP[a3, a4], a2, a6, n] + S2[a1, a5, SP[a3, a4], a6, a2, n] - 
    S2[a1, a5, SP[a4, a6], a2, a3, n] - S2[a1, a5, SP[a4, a6], a3, a2, n] - 
    S2[a5, n]*S2[a1, a6, a2, a3, a4, n] - S2[a1, a6, a2, a3, SP[a4, a5], n] + 
    S2[a3, n]*S2[a1, a6, a2, a4, a5, n] + S2[a1, a6, a2, a4, SP[a3, a5], n] + 
    S2[a3, n]*S2[a1, a6, a2, a5, a4, n] + S2[a1, a6, a2, a5, SP[a3, a4], n] + 
    S2[a1, a6, a2, SP[a3, a4], a5, n] - S2[a5, n]*S2[a1, a6, a3, a2, a4, n] - 
    S2[a1, a6, a3, a2, SP[a4, a5], n] - S2[a5, n]*S2[a1, a6, a3, a4, a2, n] - 
    S2[a1, a6, a3, a4, SP[a2, a5], n] - S2[a1, a6, a3, SP[a2, a5], a4, n] - 
    S2[a1, a6, a3, SP[a4, a5], a2, n] + S2[a3, n]*S2[a1, a6, a4, a2, a5, n] + 
    S2[a1, a6, a4, a2, SP[a3, a5], n] + S2[a3, n]*S2[a1, a6, a4, a5, a2, n] + 
    S2[a1, a6, a4, a5, SP[a2, a3], n] + S2[a1, a6, a4, SP[a2, a3], a5, n] + 
    S2[a1, a6, a4, SP[a3, a5], a2, n] + S2[a3, n]*S2[a1, a6, a5, a2, a4, n] + 
    S2[a1, a6, a5, a2, SP[a3, a4], n] + S2[a2, n]*S2[a1, a6, a5, a3, a4, n] + 
    S2[a1, a6, a5, a3, SP[a2, a4], n] + S2[a3, n]*S2[a1, a6, a5, a4, a2, n] + 
    S2[a1, a6, a5, a4, SP[a2, a3], n] + 2*S2[a1, a6, a5, SP[a2, a3], a4, n] + 
    S2[a1, a6, a5, SP[a3, a4], a2, n] + S2[a1, a6, SP[a2, a3], a4, a5, n] + 
    S2[a1, a6, SP[a2, a3], a5, a4, n] + S2[a1, a6, SP[a3, a4], a2, a5, n] + 
    S2[a1, a6, SP[a3, a4], a5, a2, n] - S2[a1, SP[a2, a6], a4, a3, a5, n] - 
    S2[a1, SP[a2, a6], a4, a5, a3, n] - S2[a1, SP[a2, a6], a5, a4, a3, n] + 
    S2[a1, SP[a3, a4], a2, a5, a6, n] + S2[a1, SP[a3, a4], a2, a6, a5, n] + 
    S2[a1, SP[a3, a4], a5, a2, a6, n] + S2[a1, SP[a3, a4], a5, a6, a2, n] + 
    S2[a1, SP[a3, a4], a6, a2, a5, n] + S2[a1, SP[a3, a4], a6, a5, a2, n] + 
    S2[a1, SP[a3, a5], a2, a4, a6, n] + S2[a1, SP[a3, a5], a2, a6, a4, n] + 
    S2[a1, SP[a3, a5], a4, a2, a6, n] + S2[a1, SP[a3, a5], a4, a6, a2, n] + 
    S2[a1, SP[a3, a5], a6, a2, a4, n] + S2[a1, SP[a3, a5], a6, a4, a2, n] + 
    S2[a1, SP[a3, a6], a2, a4, a5, n] + S2[a1, SP[a3, a6], a2, a5, a4, n] + 
    S2[a1, SP[a3, a6], a4, a2, a5, n] + S2[a1, SP[a3, a6], a4, a5, a2, n] + 
    S2[a1, SP[a3, a6], a5, a2, a4, n] + S2[a1, SP[a3, a6], a5, a4, a2, n] - 
    S2[a1, SP[a4, a6], a2, a3, a5, n] - S2[a1, SP[a4, a6], a2, a5, a3, n] - 
    S2[a1, SP[a4, a6], a3, a2, a5, n] - S2[a1, SP[a4, a6], a3, a5, a2, n] - 
    S2[a1, SP[a4, a6], a5, a2, a3, n] - S2[a1, SP[a4, a6], a5, a3, a2, n] - 
    2*S2[a1, SP[a5, a6], a2, a3, a4, n] - S2[a1, SP[a5, a6], a2, a4, a3, n] - 
    2*S2[a1, SP[a5, a6], a3, a2, a4, n] - 
    2*S2[a1, SP[a5, a6], a3, a4, a2, n] - S2[a1, SP[a5, a6], a4, a2, a3, n] - 
    S2[a1, SP[a5, a6], a4, a3, a2, n] - S2[a3, a1, a4, a5, SP[a2, a6], n] - 
    S2[a3, a1, a4, a6, SP[a2, a5], n] - S2[a3, a1, a4, SP[a2, a5], a6, n] - 
    S2[a3, a1, a4, SP[a2, a6], a5, n] - S2[a3, a1, a5, a4, SP[a2, a6], n] - 
    S2[a3, a1, a5, a6, SP[a2, a4], n] - S2[a3, a1, a5, SP[a2, a4], a6, n] - 
    S2[a3, a1, a5, SP[a2, a6], a4, n] - S2[a3, a1, a6, a4, SP[a2, a5], n] - 
    S2[a3, a1, a6, a5, SP[a2, a4], n] - S2[a3, a1, a6, SP[a2, a4], a5, n] - 
    S2[a3, a1, a6, SP[a2, a5], a4, n] - S2[a3, a1, SP[a2, a4], a5, a6, n] - 
    S2[a3, a1, SP[a2, a4], a6, a5, n] - S2[a3, a1, SP[a2, a5], a4, a6, n] - 
    S2[a3, a1, SP[a2, a5], a6, a4, n] - S2[a3, a1, SP[a2, a6], a4, a5, n] - 
    S2[a3, a1, SP[a2, a6], a5, a4, n] + S2[a6, n]*S2[a3, a4, a1, a2, a5, n] + 
    S2[a3, a4, a1, a2, SP[a5, a6], n] + S2[a6, n]*S2[a3, a4, a1, a5, a2, n] - 
    S2[a3, a4, a1, a6, SP[a2, a5], n] - S2[a3, a4, a1, SP[a2, a5], a6, n] + 
    S2[a3, a4, a1, SP[a5, a6], a2, n] + S2[a6, n]*S2[a3, a4, a5, a1, a2, n] - 
    S2[a3, a4, a6, a1, SP[a2, a5], n] - S2[a3, a4, a6, SP[a1, a5], a2, n] - 
    S2[a3, a4, SP[a1, a5], a2, a6, n] - S2[a3, a4, SP[a1, a5], a6, a2, n] + 
    S2[a3, a4, SP[a5, a6], a1, a2, n] + S2[a6, n]*S2[a3, a5, a1, a2, a4, n] + 
    S2[a3, a5, a1, a2, SP[a4, a6], n] + S2[a6, n]*S2[a3, a5, a1, a4, a2, n] - 
    S2[a3, a5, a1, a6, SP[a2, a4], n] - S2[a3, a5, a1, SP[a2, a4], a6, n] + 
    S2[a3, a5, a1, SP[a4, a6], a2, n] + S2[a6, n]*S2[a3, a5, a4, a1, a2, n] - 
    S2[a3, a5, a6, a1, SP[a2, a4], n] - S2[a3, a5, a6, SP[a1, a4], a2, n] - 
    S2[a3, a5, SP[a1, a4], a2, a6, n] - S2[a3, a5, SP[a1, a4], a6, a2, n] + 
    S2[a3, a5, SP[a4, a6], a1, a2, n] + S2[a5, n]*S2[a3, a6, a1, a2, a4, n] + 
    S2[a3, a6, a1, a2, SP[a4, a5], n] + S2[a5, n]*S2[a3, a6, a1, a4, a2, n] - 
    S2[a3, a6, a1, a5, SP[a2, a4], n] - S2[a3, a6, a1, SP[a2, a4], a5, n] + 
    S2[a3, a6, a1, SP[a4, a5], a2, n] - S2[a3, a6, a4, a1, SP[a2, a5], n] - 
    S2[a3, a6, a4, SP[a1, a5], a2, n] - S2[a3, a6, a5, a1, SP[a2, a4], n] - 
    S2[a3, a6, a5, SP[a1, a4], a2, n] - S2[a3, a6, SP[a1, a4], a2, a5, n] - 
    S2[a3, a6, SP[a1, a4], a5, a2, n] - S2[a3, SP[a1, a4], a2, a5, a6, n] - 
    S2[a3, SP[a1, a4], a2, a6, a5, n] - S2[a3, SP[a1, a4], a5, a2, a6, n] - 
    S2[a3, SP[a1, a4], a5, a6, a2, n] - S2[a3, SP[a1, a4], a6, a2, a5, n] - 
    S2[a3, SP[a1, a4], a6, a5, a2, n] - S2[a3, SP[a1, a5], a2, a4, a6, n] - 
    S2[a3, SP[a1, a5], a2, a6, a4, n] - S2[a3, SP[a1, a5], a4, a2, a6, n] - 
    S2[a3, SP[a1, a5], a4, a6, a2, n] - S2[a3, SP[a1, a5], a6, a2, a4, n] - 
    S2[a3, SP[a1, a5], a6, a4, a2, n] - S2[a3, SP[a1, a6], a2, a4, a5, n] - 
    S2[a3, SP[a1, a6], a2, a5, a4, n] - S2[a3, SP[a1, a6], a4, a2, a5, n] - 
    S2[a3, SP[a1, a6], a4, a5, a2, n] - S2[a3, SP[a1, a6], a5, a2, a4, n] - 
    S2[a3, SP[a1, a6], a5, a4, a2, n] + S2[a3, SP[a4, a6], a1, a2, a5, n] + 
    S2[a3, SP[a4, a6], a1, a5, a2, n] + S2[a3, SP[a4, a6], a5, a1, a2, n] + 
    2*S2[a3, SP[a5, a6], a1, a2, a4, n] + 
    2*S2[a3, SP[a5, a6], a1, a4, a2, n] + S2[a3, SP[a5, a6], a4, a1, a2, n] + 
    S2[a5, a1, a6, a3, SP[a2, a4], n] + S2[a5, a1, a6, SP[a2, a3], a4, n] + 
    S2[a5, a1, SP[a2, a6], a3, a4, n] - S2[a3, n]*S2[a5, a6, a1, a2, a4, n] - 
    S2[a5, a6, a1, a2, SP[a3, a4], n] + S2[a5, a6, a1, a3, SP[a2, a4], n] - 
    S2[a3, n]*S2[a5, a6, a1, a4, a2, n] - S2[a5, a6, a1, a4, SP[a2, a3], n] - 
    S2[a5, a6, a1, SP[a3, a4], a2, n] + S2[a5, a6, a3, a1, SP[a2, a4], n] + 
    S2[a5, a6, a3, SP[a1, a4], a2, n] + S2[a5, SP[a1, a6], a2, a3, a4, n] + 
    S2[a5, SP[a1, a6], a3, a2, a4, n] + S2[a5, SP[a1, a6], a3, a4, a2, n] - 
    S2[a5, SP[a3, a6], a1, a2, a4, n] - S2[a5, SP[a3, a6], a1, a4, a2, n] + 
    S2[a5, n]*S2[a6, a1, a2, a4, a3, n] + S2[a6, a1, a2, a4, SP[a3, a5], n] + 
    S2[a6, a1, a2, SP[a4, a5], a3, n] + S2[a5, n]*S2[a6, a1, a4, a2, a3, n] + 
    S2[a6, a1, a4, a2, SP[a3, a5], n] + S2[a5, n]*S2[a6, a1, a4, a3, a2, n] + 
    S2[a6, a1, a4, a3, SP[a2, a5], n] + S2[a6, a1, a4, SP[a2, a5], a3, n] + 
    S2[a6, a1, a4, SP[a3, a5], a2, n] + S2[a6, a1, SP[a2, a5], a4, a3, n] + 
    S2[a6, a1, SP[a4, a5], a2, a3, n] + S2[a6, a1, SP[a4, a5], a3, a2, n] - 
    S2[a5, n]*S2[a6, a3, a4, a1, a2, n] - S2[a6, a3, a4, a1, SP[a2, a5], n] - 
    S2[a6, a3, a4, SP[a1, a5], a2, n] - S2[a6, a3, SP[a4, a5], a1, a2, n] - 
    S2[a3, n]*S2[a6, a5, a1, a2, a4, n] - S2[a6, a5, a1, a2, SP[a3, a4], n] - 
    S2[a3, n]*S2[a6, a5, a1, a4, a2, n] - S2[a6, a5, a1, a4, SP[a2, a3], n] - 
    S2[a6, a5, a1, SP[a2, a3], a4, n] - S2[a6, a5, a1, SP[a3, a4], a2, n] - 
    S2[a6, a5, SP[a1, a3], a2, a4, n] - S2[a6, a5, SP[a1, a3], a4, a2, n] + 
    S2[a6, SP[a1, a5], a2, a4, a3, n] + S2[a6, SP[a1, a5], a4, a2, a3, n] + 
    S2[a6, SP[a1, a5], a4, a3, a2, n] - S2[a6, SP[a3, a5], a1, a2, a4, n] - 
    S2[a6, SP[a3, a5], a1, a4, a2, n] - S2[a6, SP[a3, a5], a4, a1, a2, n] + 
    S2[SP[a1, a2], a6, a5, a3, a4, n] - S2[SP[a1, a6], a2, a4, a3, a5, n] - 
    S2[SP[a1, a6], a2, a4, a5, a3, n] - S2[SP[a1, a6], a2, a5, a3, a4, n] - 
    S2[SP[a1, a6], a2, a5, a4, a3, n] - S2[SP[a1, a6], a4, a2, a3, a5, n] - 
    S2[SP[a1, a6], a4, a2, a5, a3, n] - S2[SP[a1, a6], a4, a3, a2, a5, n] - 
    S2[SP[a1, a6], a4, a3, a5, a2, n] - S2[SP[a1, a6], a4, a5, a2, a3, n] - 
    S2[SP[a1, a6], a4, a5, a3, a2, n] - S2[SP[a1, a6], a5, a2, a3, a4, n] - 
    S2[SP[a1, a6], a5, a2, a4, a3, n] - S2[SP[a1, a6], a5, a3, a2, a4, n] - 
    S2[SP[a1, a6], a5, a3, a4, a2, n] - S2[SP[a1, a6], a5, a4, a2, a3, n] - 
    S2[SP[a1, a6], a5, a4, a3, a2, n] + S2[SP[a3, a6], a4, a1, a2, a5, n] + 
    S2[SP[a3, a6], a4, a1, a5, a2, n] + S2[SP[a3, a6], a4, a5, a1, a2, n] + 
    S2[SP[a3, a6], a5, a4, a1, a2, n] + S2[SP[a5, a6], a1, a2, a4, a3, n] + 
    S2[SP[a5, a6], a1, a4, a2, a3, n] + S2[SP[a5, a6], a1, a4, a3, a2, n] - 
    S2[SP[a5, a6], a3, a4, a1, a2, n] + S2[a6, a1, a2, a5, a3, a4, n] + 
    S2[a6, a1, a5, a2, a3, a4, n] + S2[a6, a1, a5, a3, a2, a4, n] + 
    S2[a6, a1, a5, a3, a4, a2, n] + S2[a6, a5, a1, a2, a3, a4, n] + 
    S2[a6, a5, a1, a3, a2, a4, n] + S2[a6, a5, a1, a3, a4, a2, n] + 
    S2[a6, a5, a3, a1, a2, a4, n] + S2[a6, a5, a3, a1, a4, a2, n] + 
    S2[a6, a5, a3, a4, a1, a2, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a2_, a1_, a6_, a5_, a4_, a3_, n_] :> 
  S2[a1, a2, n]*S2[a3, a4, a5, a6, n] + S2[a1, a2, n]*S2[a3, a4, a6, a5, n] - 
    S2[a3, a4, SP[a1, a5], SP[a2, a6], n] - S2[a3, a4, SP[a1, a6], 
     SP[a2, a5], n] + S2[a1, a2, n]*S2[a3, a6, a4, a5, n] + 
    S2[a1, a2, n]*S2[a3, a6, a5, a4, n] - S2[a3, a6, SP[a1, a4], SP[a2, a5], 
     n] - S2[a3, a6, SP[a1, a5], SP[a2, a4], n] - S2[a3, SP[a1, a4], a5, 
     SP[a2, a6], n] - S2[a3, SP[a1, a4], a6, SP[a2, a5], n] - 
    S2[a3, SP[a1, a4], SP[a2, a5], a6, n] - S2[a3, SP[a1, a4], SP[a2, a6], 
     a5, n] - S2[a3, SP[a1, a6], a4, SP[a2, a5], n] - 
    S2[a3, SP[a1, a6], a5, SP[a2, a4], n] - S2[a3, SP[a1, a6], SP[a2, a4], 
     a5, n] - S2[a3, SP[a1, a6], SP[a2, a5], a4, n] - 
    S2[a1, a2, n]*S2[a5, a6, a3, a4, n] + S2[a5, a6, SP[a1, a3], SP[a2, a4], 
     n] + S2[a5, SP[a1, a6], a3, SP[a2, a4], n] + 
    S2[a5, SP[a1, a6], SP[a2, a3], a4, n] - S2[SP[a1, a3], a4, a5, 
     SP[a2, a6], n] - S2[SP[a1, a3], a4, a6, SP[a2, a5], n] - 
    S2[SP[a1, a3], a4, SP[a2, a5], a6, n] - S2[SP[a1, a3], a4, SP[a2, a6], 
     a5, n] - S2[SP[a1, a3], a6, a4, SP[a2, a5], n] - 
    S2[SP[a1, a3], a6, a5, SP[a2, a4], n] - S2[SP[a1, a3], a6, SP[a2, a4], 
     a5, n] - S2[SP[a1, a3], a6, SP[a2, a5], a4, n] - 
    S2[SP[a1, a3], SP[a2, a4], a5, a6, n] - S2[SP[a1, a3], SP[a2, a4], a6, 
     a5, n] - S2[SP[a1, a3], SP[a2, a6], a4, a5, n] - 
    S2[SP[a1, a3], SP[a2, a6], a5, a4, n] + S2[SP[a1, a5], a6, a3, 
     SP[a2, a4], n] + S2[SP[a1, a5], a6, SP[a2, a3], a4, n] + 
    S2[SP[a1, a5], SP[a2, a6], a3, a4, n] + 
    S2[a6, n]*S2[a1, a2, a4, a3, a5, n] + S2[a1, a2, a4, a3, SP[a5, a6], n] + 
    S2[a6, n]*S2[a1, a2, a4, a5, a3, n] - 
    S2[a3, n]*S2[a1, a2, a4, a5, a6, n] - 
    S2[a3, n]*S2[a1, a2, a4, a6, a5, n] - S2[a1, a2, a4, a6, SP[a3, a5], n] - 
    S2[a1, a2, a4, SP[a3, a5], a6, n] + S2[a1, a2, a4, SP[a5, a6], a3, n] + 
    S2[a5, n]*S2[a1, a2, a6, a3, a4, n] + S2[a1, a2, a6, a3, SP[a4, a5], n] - 
    S2[a3, n]*S2[a1, a2, a6, a4, a5, n] - S2[a1, a2, a6, a4, SP[a3, a5], n] - 
    S2[a3, n]*S2[a1, a2, a6, a5, a4, n] - S2[a1, a2, a6, a5, SP[a3, a4], n] - 
    S2[a1, a2, a6, SP[a3, a4], a5, n] - S2[a1, a2, SP[a3, a4], a5, a6, n] - 
    S2[a1, a2, SP[a3, a4], a6, a5, n] - S2[a1, a2, SP[a3, a6], a4, a5, n] - 
    S2[a1, a2, SP[a3, a6], a5, a4, n] + S2[a1, a2, SP[a4, a6], a3, a5, n] + 
    S2[a1, a2, SP[a4, a6], a5, a3, n] + S2[a1, a2, SP[a5, a6], a3, a4, n] + 
    S2[a1, a3, a4, a5, SP[a2, a6], n] + S2[a1, a3, a4, a6, SP[a2, a5], n] + 
    S2[a1, a3, a4, SP[a2, a5], a6, n] + S2[a1, a3, a4, SP[a2, a6], a5, n] + 
    S2[a1, a3, a6, a4, SP[a2, a5], n] + S2[a1, a3, a6, a5, SP[a2, a4], n] + 
    S2[a1, a3, a6, SP[a2, a4], a5, n] + S2[a1, a3, a6, SP[a2, a5], a4, n] + 
    S2[a1, a3, SP[a2, a4], a5, a6, n] + S2[a1, a3, SP[a2, a4], a6, a5, n] + 
    S2[a1, a3, SP[a2, a6], a4, a5, n] + S2[a1, a3, SP[a2, a6], a5, a4, n] + 
    S2[a6, n]*S2[a1, a4, a2, a3, a5, n] + S2[a1, a4, a2, a3, SP[a5, a6], n] + 
    S2[a6, n]*S2[a1, a4, a2, a5, a3, n] - 
    S2[a3, n]*S2[a1, a4, a2, a5, a6, n] - 
    S2[a3, n]*S2[a1, a4, a2, a6, a5, n] - S2[a1, a4, a2, a6, SP[a3, a5], n] - 
    S2[a1, a4, a2, SP[a3, a5], a6, n] + S2[a1, a4, a2, SP[a5, a6], a3, n] + 
    S2[a6, n]*S2[a1, a4, a3, a2, a5, n] + S2[a1, a4, a3, a2, SP[a5, a6], n] + 
    S2[a6, n]*S2[a1, a4, a3, a5, a2, n] + S2[a1, a4, a3, a5, SP[a2, a6], n] + 
    S2[a1, a4, a3, SP[a2, a6], a5, n] + S2[a1, a4, a3, SP[a5, a6], a2, n] + 
    S2[a6, n]*S2[a1, a4, a5, a2, a3, n] - 
    S2[a3, n]*S2[a1, a4, a5, a2, a6, n] + 
    S2[a6, n]*S2[a1, a4, a5, a3, a2, n] + S2[a1, a4, a5, a3, SP[a2, a6], n] - 
    S2[a3, n]*S2[a1, a4, a5, a6, a2, n] - S2[a1, a4, a5, a6, SP[a2, a3], n] - 
    S2[a1, a4, a5, SP[a2, a3], a6, n] + S2[a1, a4, a5, SP[a2, a6], a3, n] - 
    S2[a3, n]*S2[a1, a4, a6, a2, a5, n] - S2[a1, a4, a6, a2, SP[a3, a5], n] - 
    S2[a3, n]*S2[a1, a4, a6, a5, a2, n] - S2[a1, a4, a6, a5, SP[a2, a3], n] - 
    S2[a1, a4, a6, SP[a2, a3], a5, n] - S2[a1, a4, a6, SP[a3, a5], a2, n] - 
    S2[a1, a4, SP[a2, a3], a5, a6, n] - S2[a1, a4, SP[a2, a3], a6, a5, n] + 
    S2[a1, a4, SP[a2, a6], a3, a5, n] + S2[a1, a4, SP[a2, a6], a5, a3, n] - 
    S2[a1, a4, SP[a3, a5], a2, a6, n] - S2[a1, a4, SP[a3, a5], a6, a2, n] + 
    S2[a1, a4, SP[a5, a6], a2, a3, n] + S2[a1, a4, SP[a5, a6], a3, a2, n] - 
    S2[a1, a5, a6, a3, SP[a2, a4], n] - S2[a1, a5, a6, SP[a2, a3], a4, n] - 
    S2[a1, a5, SP[a2, a6], a3, a4, n] + S2[a5, n]*S2[a1, a6, a2, a3, a4, n] + 
    S2[a1, a6, a2, a3, SP[a4, a5], n] - S2[a3, n]*S2[a1, a6, a2, a4, a5, n] - 
    S2[a1, a6, a2, a4, SP[a3, a5], n] - S2[a3, n]*S2[a1, a6, a2, a5, a4, n] - 
    S2[a1, a6, a2, a5, SP[a3, a4], n] - S2[a1, a6, a2, SP[a3, a4], a5, n] + 
    S2[a5, n]*S2[a1, a6, a3, a2, a4, n] + S2[a1, a6, a3, a2, SP[a4, a5], n] + 
    S2[a5, n]*S2[a1, a6, a3, a4, a2, n] + S2[a1, a6, a3, a4, SP[a2, a5], n] + 
    S2[a1, a6, a3, SP[a2, a5], a4, n] + S2[a1, a6, a3, SP[a4, a5], a2, n] - 
    S2[a3, n]*S2[a1, a6, a4, a2, a5, n] - S2[a1, a6, a4, a2, SP[a3, a5], n] - 
    S2[a3, n]*S2[a1, a6, a4, a5, a2, n] - S2[a1, a6, a4, a5, SP[a2, a3], n] - 
    S2[a1, a6, a4, SP[a2, a3], a5, n] - S2[a1, a6, a4, SP[a3, a5], a2, n] - 
    S2[a3, n]*S2[a1, a6, a5, a2, a4, n] - S2[a1, a6, a5, a2, SP[a3, a4], n] - 
    S2[a3, n]*S2[a1, a6, a5, a4, a2, n] + 
    S2[a2, n]*S2[a1, a6, a5, a4, a3, n] - S2[a1, a6, a5, SP[a2, a3], a4, n] + 
    S2[a1, a6, a5, SP[a2, a4], a3, n] - S2[a1, a6, a5, SP[a3, a4], a2, n] - 
    S2[a1, a6, SP[a2, a3], a4, a5, n] - S2[a1, a6, SP[a2, a3], a5, a4, n] + 
    S2[a1, a6, SP[a2, a5], a3, a4, n] + S2[a1, a6, SP[a2, a5], a4, a3, n] - 
    S2[a1, a6, SP[a3, a4], a2, a5, n] - S2[a1, a6, SP[a3, a4], a5, a2, n] + 
    S2[a1, SP[a2, a6], a4, a3, a5, n] + S2[a1, SP[a2, a6], a4, a5, a3, n] + 
    S2[a1, SP[a2, a6], a5, a4, a3, n] - S2[a1, SP[a3, a4], a2, a5, a6, n] - 
    S2[a1, SP[a3, a4], a2, a6, a5, n] - S2[a1, SP[a3, a4], a5, a2, a6, n] - 
    S2[a1, SP[a3, a4], a5, a6, a2, n] - S2[a1, SP[a3, a4], a6, a2, a5, n] - 
    S2[a1, SP[a3, a4], a6, a5, a2, n] - S2[a1, SP[a3, a6], a2, a4, a5, n] - 
    S2[a1, SP[a3, a6], a2, a5, a4, n] - S2[a1, SP[a3, a6], a4, a2, a5, n] - 
    S2[a1, SP[a3, a6], a4, a5, a2, n] - S2[a1, SP[a3, a6], a5, a2, a4, n] - 
    S2[a1, SP[a3, a6], a5, a4, a2, n] + S2[a1, SP[a4, a6], a2, a3, a5, n] + 
    S2[a1, SP[a4, a6], a2, a5, a3, n] + S2[a1, SP[a4, a6], a3, a2, a5, n] + 
    S2[a1, SP[a4, a6], a3, a5, a2, n] + S2[a1, SP[a4, a6], a5, a2, a3, n] + 
    S2[a1, SP[a4, a6], a5, a3, a2, n] + S2[a1, SP[a5, a6], a2, a3, a4, n] + 
    S2[a1, SP[a5, a6], a3, a2, a4, n] + S2[a1, SP[a5, a6], a3, a4, a2, n] + 
    S2[a3, a1, a4, a5, SP[a2, a6], n] + S2[a3, a1, a4, a6, SP[a2, a5], n] + 
    S2[a3, a1, a4, SP[a2, a5], a6, n] + S2[a3, a1, a4, SP[a2, a6], a5, n] + 
    S2[a3, a1, a6, a4, SP[a2, a5], n] + S2[a3, a1, a6, a5, SP[a2, a4], n] + 
    S2[a3, a1, a6, SP[a2, a4], a5, n] + S2[a3, a1, a6, SP[a2, a5], a4, n] + 
    S2[a3, a1, SP[a2, a4], a5, a6, n] + S2[a3, a1, SP[a2, a4], a6, a5, n] + 
    S2[a3, a1, SP[a2, a6], a4, a5, n] + S2[a3, a1, SP[a2, a6], a5, a4, n] - 
    S2[a6, n]*S2[a3, a4, a1, a2, a5, n] - S2[a3, a4, a1, a2, SP[a5, a6], n] - 
    S2[a6, n]*S2[a3, a4, a1, a5, a2, n] + S2[a3, a4, a1, a6, SP[a2, a5], n] + 
    S2[a3, a4, a1, SP[a2, a5], a6, n] - S2[a3, a4, a1, SP[a5, a6], a2, n] - 
    S2[a6, n]*S2[a3, a4, a5, a1, a2, n] + S2[a3, a4, a6, a1, SP[a2, a5], n] + 
    S2[a3, a4, a6, SP[a1, a5], a2, n] + S2[a3, a4, SP[a1, a5], a2, a6, n] + 
    S2[a3, a4, SP[a1, a5], a6, a2, n] - S2[a3, a4, SP[a5, a6], a1, a2, n] - 
    S2[a5, n]*S2[a3, a6, a1, a2, a4, n] - S2[a3, a6, a1, a2, SP[a4, a5], n] - 
    S2[a5, n]*S2[a3, a6, a1, a4, a2, n] + S2[a3, a6, a1, a5, SP[a2, a4], n] + 
    S2[a3, a6, a1, SP[a2, a4], a5, n] - S2[a3, a6, a1, SP[a4, a5], a2, n] + 
    S2[a3, a6, a4, a1, SP[a2, a5], n] + S2[a3, a6, a4, SP[a1, a5], a2, n] + 
    S2[a3, a6, a5, a1, SP[a2, a4], n] + S2[a3, a6, a5, SP[a1, a4], a2, n] + 
    S2[a3, a6, SP[a1, a4], a2, a5, n] + S2[a3, a6, SP[a1, a4], a5, a2, n] + 
    S2[a3, SP[a1, a4], a2, a5, a6, n] + S2[a3, SP[a1, a4], a2, a6, a5, n] + 
    S2[a3, SP[a1, a4], a5, a2, a6, n] + S2[a3, SP[a1, a4], a5, a6, a2, n] + 
    S2[a3, SP[a1, a4], a6, a2, a5, n] + S2[a3, SP[a1, a4], a6, a5, a2, n] + 
    S2[a3, SP[a1, a6], a2, a4, a5, n] + S2[a3, SP[a1, a6], a2, a5, a4, n] + 
    S2[a3, SP[a1, a6], a4, a2, a5, n] + S2[a3, SP[a1, a6], a4, a5, a2, n] + 
    S2[a3, SP[a1, a6], a5, a2, a4, n] + S2[a3, SP[a1, a6], a5, a4, a2, n] - 
    S2[a3, SP[a4, a6], a1, a2, a5, n] - S2[a3, SP[a4, a6], a1, a5, a2, n] - 
    S2[a3, SP[a4, a6], a5, a1, a2, n] - S2[a3, SP[a5, a6], a1, a2, a4, n] - 
    S2[a3, SP[a5, a6], a1, a4, a2, n] - S2[a5, a1, a6, a3, SP[a2, a4], n] - 
    S2[a5, a1, a6, SP[a2, a3], a4, n] - S2[a5, a1, SP[a2, a6], a3, a4, n] + 
    S2[a3, n]*S2[a5, a6, a1, a2, a4, n] + S2[a5, a6, a1, a2, SP[a3, a4], n] - 
    S2[a5, a6, a1, a3, SP[a2, a4], n] + S2[a3, n]*S2[a5, a6, a1, a4, a2, n] + 
    S2[a5, a6, a1, a4, SP[a2, a3], n] + S2[a5, a6, a1, SP[a3, a4], a2, n] - 
    S2[a5, a6, a3, a1, SP[a2, a4], n] - S2[a5, a6, a3, SP[a1, a4], a2, n] - 
    S2[a5, SP[a1, a6], a2, a3, a4, n] - S2[a5, SP[a1, a6], a3, a2, a4, n] - 
    S2[a5, SP[a1, a6], a3, a4, a2, n] + S2[a5, SP[a3, a6], a1, a2, a4, n] + 
    S2[a5, SP[a3, a6], a1, a4, a2, n] - S2[a5, n]*S2[a6, a1, a2, a4, a3, n] - 
    S2[a6, a1, a2, a4, SP[a3, a5], n] - S2[a6, a1, a2, SP[a4, a5], a3, n] - 
    S2[a5, n]*S2[a6, a1, a4, a2, a3, n] - S2[a6, a1, a4, a2, SP[a3, a5], n] - 
    S2[a5, n]*S2[a6, a1, a4, a3, a2, n] - S2[a6, a1, a4, a3, SP[a2, a5], n] - 
    S2[a6, a1, a4, SP[a2, a5], a3, n] - S2[a6, a1, a4, SP[a3, a5], a2, n] - 
    S2[a6, a1, SP[a2, a5], a4, a3, n] - S2[a6, a1, SP[a4, a5], a2, a3, n] - 
    S2[a6, a1, SP[a4, a5], a3, a2, n] + S2[a5, n]*S2[a6, a3, a4, a1, a2, n] + 
    S2[a6, a3, a4, a1, SP[a2, a5], n] + S2[a6, a3, a4, SP[a1, a5], a2, n] + 
    S2[a6, a3, SP[a4, a5], a1, a2, n] - S2[a3, n]*S2[a6, a5, a4, a1, a2, n] - 
    S2[a6, a5, a4, a1, SP[a2, a3], n] - S2[a6, a5, a4, SP[a1, a3], a2, n] - 
    S2[a6, a5, SP[a3, a4], a1, a2, n] - S2[a6, SP[a1, a5], a2, a4, a3, n] - 
    S2[a6, SP[a1, a5], a4, a2, a3, n] - S2[a6, SP[a1, a5], a4, a3, a2, n] + 
    S2[SP[a1, a2], a6, a5, a4, a3, n] + S2[SP[a1, a6], a2, a4, a3, a5, n] + 
    S2[SP[a1, a6], a2, a4, a5, a3, n] + S2[SP[a1, a6], a4, a2, a3, a5, n] + 
    S2[SP[a1, a6], a4, a2, a5, a3, n] + S2[SP[a1, a6], a4, a3, a2, a5, n] + 
    S2[SP[a1, a6], a4, a3, a5, a2, n] + S2[SP[a1, a6], a4, a5, a2, a3, n] + 
    S2[SP[a1, a6], a4, a5, a3, a2, n] - S2[SP[a3, a6], a4, a1, a2, a5, n] - 
    S2[SP[a3, a6], a4, a1, a5, a2, n] - S2[SP[a3, a6], a4, a5, a1, a2, n] - 
    S2[SP[a3, a6], a5, a4, a1, a2, n] - S2[SP[a5, a6], a1, a2, a4, a3, n] - 
    S2[SP[a5, a6], a1, a4, a2, a3, n] - S2[SP[a5, a6], a1, a4, a3, a2, n] + 
    S2[SP[a5, a6], a3, a4, a1, a2, n] + S2[a6, a1, a2, a5, a4, a3, n] + 
    S2[a6, a1, a5, a2, a4, a3, n] + S2[a6, a1, a5, a4, a2, a3, n] + 
    S2[a6, a1, a5, a4, a3, a2, n] + S2[a6, a5, a1, a2, a4, a3, n] + 
    S2[a6, a5, a1, a4, a2, a3, n] + S2[a6, a5, a1, a4, a3, a2, n] + 
    S2[a6, a5, a4, a1, a2, a3, n] + S2[a6, a5, a4, a1, a3, a2, n] + 
    S2[a6, a5, a4, a3, a1, a2, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a2_, a3_, a1_, a4_, a5_, a6_, n_] :> 
  S2[a1, a3, a2, n]*S2[a4, a5, a6, n] + S2[SP[a1, a4], SP[a3, a5], 
     SP[a2, a6], n] + S2[a5, a6, n]*S2[a1, a3, a2, a4, n] + 
    S2[a5, a6, n]*S2[a1, a3, a4, a2, n] - S2[a1, a3, SP[a2, a5], SP[a4, a6], 
     n] - S2[a1, a3, SP[a4, a5], SP[a2, a6], n] + 
    S2[a5, a6, n]*S2[a1, a4, a3, a2, n] + S2[a2, a3, n]*
     S2[a1, a4, a5, a6, n] - S2[a1, a4, SP[a2, a5], SP[a3, a6], n] - 
    2*S2[a1, a4, SP[a3, a5], SP[a2, a6], n] - S2[a1, SP[a2, a4], a5, 
     SP[a3, a6], n] - S2[a1, SP[a2, a4], SP[a3, a5], a6, n] - 
    S2[a1, SP[a3, a4], a5, SP[a2, a6], n] - S2[a1, SP[a3, a4], SP[a2, a5], 
     a6, n] - S2[a1, SP[a3, a5], a2, SP[a4, a6], n] - 
    S2[a1, SP[a3, a5], a4, SP[a2, a6], n] - S2[a1, SP[a3, a5], SP[a2, a6], 
     a4, n] - S2[a1, SP[a3, a5], SP[a4, a6], a2, n] - 
    S2[a1, SP[a4, a5], a3, SP[a2, a6], n] - S2[a1, SP[a4, a5], SP[a3, a6], 
     a2, n] - S2[a4, a1, SP[a3, a5], SP[a2, a6], n] - 
    S2[a4, SP[a1, a5], a3, SP[a2, a6], n] - S2[a4, SP[a1, a5], SP[a3, a6], 
     a2, n] - S2[SP[a1, a2], a4, a5, SP[a3, a6], n] - 
    S2[SP[a1, a2], a4, SP[a3, a5], a6, n] - S2[SP[a1, a2], SP[a3, a4], a5, 
     a6, n] - S2[SP[a1, a4], a3, a5, SP[a2, a6], n] - 
    S2[SP[a1, a4], a3, SP[a2, a5], a6, n] - S2[SP[a1, a4], a5, a3, 
     SP[a2, a6], n] - S2[SP[a1, a4], a5, SP[a3, a6], a2, n] - 
    S2[SP[a1, a4], SP[a3, a5], a2, a6, n] - S2[SP[a1, a4], SP[a3, a5], a6, 
     a2, n] - S2[SP[a1, a5], a3, a2, SP[a4, a6], n] - 
    S2[SP[a1, a5], a3, a4, SP[a2, a6], n] - S2[SP[a1, a5], a3, SP[a2, a6], 
     a4, n] - S2[SP[a1, a5], a3, SP[a4, a6], a2, n] - 
    S2[SP[a1, a5], a4, a3, SP[a2, a6], n] - S2[SP[a1, a5], a4, SP[a3, a6], 
     a2, n] - S2[SP[a1, a5], SP[a3, a6], a2, a4, n] - 
    S2[SP[a1, a5], SP[a3, a6], a4, a2, n] - S2[SP[a1, a5], SP[a4, a6], a3, 
     a2, n] + S2[a1, a2, a4, a5, SP[a3, a6], n] + S2[a1, a2, a4, SP[a3, a5], 
     a6, n] + S2[a1, a2, SP[a3, a4], a5, a6, n] + 
    S2[a6, n]*S2[a1, a3, a2, a4, a5, n] - 
    S2[a5, n]*S2[a1, a3, a2, a4, a6, n] + 
    S2[a6, n]*S2[a1, a3, a2, a5, a4, n] - 
    S2[a4, n]*S2[a1, a3, a2, a5, a6, n] + S2[a1, a3, a2, a5, SP[a4, a6], n] - 
    S2[a5, n]*S2[a1, a3, a2, a6, a4, n] - S2[a1, a3, a2, a6, SP[a4, a5], n] - 
    S2[a1, a3, a2, SP[a4, a5], a6, n] + S2[a1, a3, a2, SP[a4, a6], a5, n] + 
    S2[a6, n]*S2[a1, a3, a4, a2, a5, n] - 
    S2[a5, n]*S2[a1, a3, a4, a2, a6, n] + 
    S2[a6, n]*S2[a1, a3, a4, a5, a2, n] - 
    S2[a2, n]*S2[a1, a3, a4, a5, a6, n] + 
    2*S2[a1, a3, a4, a5, SP[a2, a6], n] - 
    S2[a5, n]*S2[a1, a3, a4, a6, a2, n] - S2[a1, a3, a4, a6, SP[a2, a5], n] + 
    S2[a1, a3, a4, SP[a2, a6], a5, n] + S2[a6, n]*S2[a1, a3, a5, a2, a4, n] - 
    S2[a4, n]*S2[a1, a3, a5, a2, a6, n] + S2[a1, a3, a5, a2, SP[a4, a6], n] + 
    S2[a6, n]*S2[a1, a3, a5, a4, a2, n] + 
    2*S2[a1, a3, a5, a4, SP[a2, a6], n] - 
    S2[a4, n]*S2[a1, a3, a5, a6, a2, n] - S2[a1, a3, a5, a6, SP[a2, a4], n] - 
    S2[a1, a3, a5, SP[a2, a4], a6, n] + 2*S2[a1, a3, a5, SP[a2, a6], a4, n] + 
    S2[a1, a3, a5, SP[a4, a6], a2, n] - S2[a5, n]*S2[a1, a3, a6, a2, a4, n] - 
    S2[a1, a3, a6, a2, SP[a4, a5], n] - S2[a5, n]*S2[a1, a3, a6, a4, a2, n] - 
    S2[a1, a3, a6, a4, SP[a2, a5], n] - S2[a1, a3, a6, SP[a2, a5], a4, n] - 
    S2[a1, a3, a6, SP[a4, a5], a2, n] - S2[a1, a3, SP[a2, a4], a5, a6, n] + 
    S2[a1, a3, SP[a2, a6], a4, a5, n] + S2[a1, a3, SP[a2, a6], a5, a4, n] - 
    S2[a1, a3, SP[a4, a5], a2, a6, n] - S2[a1, a3, SP[a4, a5], a6, a2, n] + 
    S2[a1, a3, SP[a4, a6], a2, a5, n] + S2[a1, a3, SP[a4, a6], a5, a2, n] + 
    S2[a1, a4, a2, a5, SP[a3, a6], n] + S2[a1, a4, a2, SP[a3, a5], a6, n] + 
    S2[a6, n]*S2[a1, a4, a3, a2, a5, n] - 
    S2[a5, n]*S2[a1, a4, a3, a2, a6, n] + 
    S2[a6, n]*S2[a1, a4, a3, a5, a2, n] - 
    S2[a2, n]*S2[a1, a4, a3, a5, a6, n] + 
    2*S2[a1, a4, a3, a5, SP[a2, a6], n] - 
    S2[a5, n]*S2[a1, a4, a3, a6, a2, n] - S2[a1, a4, a3, a6, SP[a2, a5], n] + 
    S2[a1, a4, a3, SP[a2, a6], a5, n] + S2[a1, a4, a5, a2, SP[a3, a6], n] + 
    S2[a6, n]*S2[a1, a4, a5, a3, a2, n] - 
    S2[a2, n]*S2[a1, a4, a5, a3, a6, n] + 
    2*S2[a1, a4, a5, a3, SP[a2, a6], n] - 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] - S2[a1, a4, a5, a6, SP[a2, a3], n] - 
    S2[a1, a4, a5, SP[a2, a3], a6, n] + 3*S2[a1, a4, a5, SP[a3, a6], a2, n] - 
    S2[a5, n]*S2[a1, a4, a6, a3, a2, n] - S2[a1, a4, a6, a3, SP[a2, a5], n] - 
    S2[a1, a4, a6, SP[a3, a5], a2, n] - S2[a1, a4, SP[a2, a3], a5, a6, n] + 
    S2[a1, a4, SP[a3, a5], a2, a6, n] + S2[a1, a4, SP[a3, a5], a6, a2, n] + 
    S2[a1, a4, SP[a3, a6], a2, a5, n] + S2[a1, a4, SP[a3, a6], a5, a2, n] + 
    S2[a6, n]*S2[a1, a5, a3, a2, a4, n] - 
    S2[a4, n]*S2[a1, a5, a3, a2, a6, n] + S2[a1, a5, a3, a2, SP[a4, a6], n] + 
    S2[a6, n]*S2[a1, a5, a3, a4, a2, n] + 
    2*S2[a1, a5, a3, a4, SP[a2, a6], n] - 
    S2[a4, n]*S2[a1, a5, a3, a6, a2, n] - S2[a1, a5, a3, a6, SP[a2, a4], n] - 
    S2[a1, a5, a3, SP[a2, a4], a6, n] + 2*S2[a1, a5, a3, SP[a2, a6], a4, n] + 
    S2[a1, a5, a3, SP[a4, a6], a2, n] + S2[a6, n]*S2[a1, a5, a4, a3, a2, n] + 
    2*S2[a1, a5, a4, a3, SP[a2, a6], n] + 
    2*S2[a1, a5, a4, SP[a3, a6], a2, n] - 
    S2[a4, n]*S2[a1, a5, a6, a3, a2, n] - S2[a1, a5, a6, a3, SP[a2, a4], n] - 
    S2[a1, a5, a6, SP[a3, a4], a2, n] - S2[a1, a5, SP[a3, a4], a2, a6, n] - 
    S2[a1, a5, SP[a3, a4], a6, a2, n] + 2*S2[a1, a5, SP[a3, a6], a2, a4, n] + 
    2*S2[a1, a5, SP[a3, a6], a4, a2, n] + S2[a1, a5, SP[a4, a6], a3, a2, n] - 
    S2[a5, n]*S2[a1, a6, a3, a2, a4, n] - S2[a1, a6, a3, a2, SP[a4, a5], n] - 
    S2[a5, n]*S2[a1, a6, a3, a4, a2, n] - S2[a1, a6, a3, a4, SP[a2, a5], n] - 
    S2[a1, a6, a3, SP[a2, a5], a4, n] - S2[a1, a6, a3, SP[a4, a5], a2, n] - 
    S2[a5, n]*S2[a1, a6, a4, a3, a2, n] - S2[a1, a6, a4, a3, SP[a2, a5], n] - 
    S2[a1, a6, a4, SP[a3, a5], a2, n] - S2[a1, a6, SP[a3, a5], a2, a4, n] - 
    S2[a1, a6, SP[a3, a5], a4, a2, n] - S2[a1, a6, SP[a4, a5], a3, a2, n] - 
    S2[a1, SP[a2, a3], a4, a5, a6, n] + S2[a1, SP[a3, a6], a2, a4, a5, n] + 
    S2[a1, SP[a3, a6], a2, a5, a4, n] + S2[a1, SP[a3, a6], a4, a2, a5, n] + 
    S2[a1, SP[a3, a6], a4, a5, a2, n] + S2[a1, SP[a3, a6], a5, a2, a4, n] + 
    S2[a1, SP[a3, a6], a5, a4, a2, n] - S2[a1, SP[a4, a5], a3, a2, a6, n] - 
    S2[a1, SP[a4, a5], a3, a6, a2, n] - S2[a1, SP[a4, a5], a6, a3, a2, n] + 
    S2[a1, SP[a4, a6], a3, a2, a5, n] + S2[a1, SP[a4, a6], a3, a5, a2, n] + 
    S2[a1, SP[a4, a6], a5, a3, a2, n] + S2[a2, a1, a4, a5, SP[a3, a6], n] + 
    S2[a2, a1, a4, SP[a3, a5], a6, n] + S2[a2, a1, SP[a3, a4], a5, a6, n] + 
    S2[a2, SP[a1, a3], a4, a5, a6, n] + S2[a4, a1, a3, a5, SP[a2, a6], n] + 
    S2[a4, a1, a3, SP[a2, a5], a6, n] + S2[a4, a1, a5, a3, SP[a2, a6], n] + 
    S2[a4, a1, a5, SP[a3, a6], a2, n] + S2[a4, a1, SP[a3, a5], a2, a6, n] + 
    S2[a4, a1, SP[a3, a5], a6, a2, n] - S2[a6, n]*S2[a4, a5, a1, a3, a2, n] + 
    S2[a4, SP[a1, a5], a3, a2, a6, n] + S2[a4, SP[a1, a5], a3, a6, a2, n] + 
    S2[a4, SP[a1, a5], a6, a3, a2, n] - S2[a4, SP[a5, a6], a1, a3, a2, n] + 
    S2[a5, a1, a3, a2, SP[a4, a6], n] + S2[a5, a1, a3, a4, SP[a2, a6], n] + 
    S2[a5, a1, a3, SP[a2, a6], a4, n] + S2[a5, a1, a3, SP[a4, a6], a2, n] + 
    S2[a5, a1, a4, a3, SP[a2, a6], n] + S2[a5, a1, a4, SP[a3, a6], a2, n] + 
    S2[a5, a1, SP[a3, a6], a2, a4, n] + S2[a5, a1, SP[a3, a6], a4, a2, n] + 
    S2[a5, a1, SP[a4, a6], a3, a2, n] + S2[a5, SP[a1, a6], a3, a2, a4, n] + 
    S2[a5, SP[a1, a6], a3, a4, a2, n] + S2[a5, SP[a1, a6], a4, a3, a2, n] - 
    S2[a5, n]*S2[a6, a1, a3, a2, a4, n] - S2[a6, a1, a3, a2, SP[a4, a5], n] - 
    S2[a5, n]*S2[a6, a1, a3, a4, a2, n] - S2[a6, a1, a3, a4, SP[a2, a5], n] - 
    S2[a6, a1, a3, SP[a2, a5], a4, n] - S2[a6, a1, a3, SP[a4, a5], a2, n] - 
    S2[a5, n]*S2[a6, a1, a4, a3, a2, n] - S2[a6, a1, a4, a3, SP[a2, a5], n] - 
    S2[a6, a1, a4, SP[a3, a5], a2, n] - S2[a6, a1, SP[a3, a5], a2, a4, n] - 
    S2[a6, a1, SP[a3, a5], a4, a2, n] - S2[a6, a1, SP[a4, a5], a3, a2, n] + 
    S2[a4, n]*S2[a6, a5, a1, a3, a2, n] + S2[a6, a5, a1, a3, SP[a2, a4], n] + 
    S2[a6, a5, a1, SP[a3, a4], a2, n] + S2[a6, a5, SP[a1, a4], a3, a2, n] - 
    S2[a6, SP[a1, a5], a3, a2, a4, n] - S2[a6, SP[a1, a5], a3, a4, a2, n] - 
    S2[a6, SP[a1, a5], a4, a3, a2, n] + S2[a6, SP[a4, a5], a1, a3, a2, n] + 
    S2[SP[a1, a6], a3, a2, a4, a5, n] + S2[SP[a1, a6], a3, a2, a5, a4, n] + 
    S2[SP[a1, a6], a3, a4, a2, a5, n] + S2[SP[a1, a6], a3, a4, a5, a2, n] + 
    S2[SP[a1, a6], a3, a5, a2, a4, n] + S2[SP[a1, a6], a3, a5, a4, a2, n] + 
    S2[SP[a1, a6], a4, a3, a2, a5, n] + S2[SP[a1, a6], a4, a3, a5, a2, n] + 
    S2[SP[a1, a6], a4, a5, a3, a2, n] + S2[SP[a1, a6], a5, a3, a2, a4, n] + 
    S2[SP[a1, a6], a5, a3, a4, a2, n] + S2[SP[a1, a6], a5, a4, a3, a2, n] - 
    S2[SP[a5, a6], a1, a3, a2, a4, n] - S2[SP[a5, a6], a1, a3, a4, a2, n] - 
    S2[SP[a5, a6], a1, a4, a3, a2, n] - S2[a6, a5, a4, a1, a3, a2, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a2_, a3_, a1_, a4_, a6_, a5_, n_] :> 
  S2[a1, a3, a2, n]*S2[a4, a6, a5, n] + S2[SP[a1, a4], SP[a3, a6], 
     SP[a2, a5], n] - S2[a5, a6, n]*S2[a1, a3, a2, a4, n] - 
    S2[a5, a6, n]*S2[a1, a3, a4, a2, n] + S2[a1, a3, SP[a2, a5], SP[a4, a6], 
     n] + S2[a1, a3, SP[a4, a5], SP[a2, a6], n] - 
    S2[a5, a6, n]*S2[a1, a4, a3, a2, n] + S2[a2, a3, n]*
     S2[a1, a4, a6, a5, n] - S2[a1, a4, SP[a2, a6], SP[a3, a5], n] + 
    S2[a1, a4, SP[a3, a5], SP[a2, a6], n] - S2[a1, a4, SP[a3, a6], 
     SP[a2, a5], n] - S2[a1, SP[a2, a4], a6, SP[a3, a5], n] - 
    S2[a1, SP[a2, a4], SP[a3, a6], a5, n] - S2[a1, SP[a3, a4], a6, 
     SP[a2, a5], n] - S2[a1, SP[a3, a4], SP[a2, a6], a5, n] + 
    S2[a1, SP[a3, a5], a2, SP[a4, a6], n] + S2[a1, SP[a3, a5], a4, 
     SP[a2, a6], n] + S2[a1, SP[a3, a5], SP[a2, a6], a4, n] + 
    S2[a1, SP[a3, a5], SP[a4, a6], a2, n] + S2[a1, SP[a4, a5], a3, 
     SP[a2, a6], n] + S2[a1, SP[a4, a5], SP[a3, a6], a2, n] - 
    S2[a4, a1, SP[a3, a6], SP[a2, a5], n] - S2[a4, SP[a1, a6], a3, 
     SP[a2, a5], n] - S2[a4, SP[a1, a6], SP[a3, a5], a2, n] - 
    S2[SP[a1, a2], a4, a6, SP[a3, a5], n] - S2[SP[a1, a2], a4, SP[a3, a6], 
     a5, n] - S2[SP[a1, a2], SP[a3, a4], a6, a5, n] - 
    S2[SP[a1, a4], a3, a6, SP[a2, a5], n] - S2[SP[a1, a4], a3, SP[a2, a6], 
     a5, n] - S2[SP[a1, a4], a6, a3, SP[a2, a5], n] - 
    S2[SP[a1, a4], a6, SP[a3, a5], a2, n] - S2[SP[a1, a4], SP[a3, a6], a2, 
     a5, n] - S2[SP[a1, a4], SP[a3, a6], a5, a2, n] + 
    S2[SP[a1, a5], a3, a2, SP[a4, a6], n] + S2[SP[a1, a5], a3, a4, 
     SP[a2, a6], n] + S2[SP[a1, a5], a3, SP[a2, a6], a4, n] + 
    S2[SP[a1, a5], a3, SP[a4, a6], a2, n] + S2[SP[a1, a5], a4, a3, 
     SP[a2, a6], n] + S2[SP[a1, a5], a4, SP[a3, a6], a2, n] + 
    S2[SP[a1, a5], SP[a3, a6], a2, a4, n] + S2[SP[a1, a5], SP[a3, a6], a4, 
     a2, n] + S2[SP[a1, a5], SP[a4, a6], a3, a2, n] + 
    S2[a1, a2, a4, a6, SP[a3, a5], n] + S2[a1, a2, a4, SP[a3, a6], a5, n] + 
    S2[a1, a2, SP[a3, a4], a6, a5, n] + S2[a5, n]*S2[a1, a3, a2, a4, a6, n] + 
    S2[a1, a3, a2, a4, SP[a5, a6], n] - S2[a1, a3, a2, a5, SP[a4, a6], n] + 
    S2[a5, n]*S2[a1, a3, a2, a6, a4, n] - 
    S2[a4, n]*S2[a1, a3, a2, a6, a5, n] - S2[a1, a3, a2, SP[a4, a6], a5, n] + 
    S2[a1, a3, a2, SP[a5, a6], a4, n] + S2[a5, n]*S2[a1, a3, a4, a2, a6, n] + 
    S2[a1, a3, a4, a2, SP[a5, a6], n] - S2[a1, a3, a4, a5, SP[a2, a6], n] + 
    S2[a5, n]*S2[a1, a3, a4, a6, a2, n] - 
    S2[a2, n]*S2[a1, a3, a4, a6, a5, n] + S2[a1, a3, a4, a6, SP[a2, a5], n] + 
    S2[a1, a3, a4, SP[a5, a6], a2, n] - S2[a1, a3, a5, a2, SP[a4, a6], n] - 
    S2[a1, a3, a5, a4, SP[a2, a6], n] - S2[a1, a3, a5, SP[a2, a6], a4, n] - 
    S2[a1, a3, a5, SP[a4, a6], a2, n] + S2[a5, n]*S2[a1, a3, a6, a2, a4, n] - 
    S2[a4, n]*S2[a1, a3, a6, a2, a5, n] + 
    S2[a5, n]*S2[a1, a3, a6, a4, a2, n] + S2[a1, a3, a6, a4, SP[a2, a5], n] - 
    S2[a4, n]*S2[a1, a3, a6, a5, a2, n] - S2[a1, a3, a6, a5, SP[a2, a4], n] - 
    S2[a1, a3, a6, SP[a2, a4], a5, n] + S2[a1, a3, a6, SP[a2, a5], a4, n] - 
    S2[a1, a3, SP[a2, a4], a6, a5, n] - S2[a1, a3, SP[a4, a6], a2, a5, n] - 
    S2[a1, a3, SP[a4, a6], a5, a2, n] + S2[a1, a3, SP[a5, a6], a2, a4, n] + 
    S2[a1, a3, SP[a5, a6], a4, a2, n] + S2[a1, a4, a2, a6, SP[a3, a5], n] + 
    S2[a1, a4, a2, SP[a3, a6], a5, n] + S2[a5, n]*S2[a1, a4, a3, a2, a6, n] + 
    S2[a1, a4, a3, a2, SP[a5, a6], n] - S2[a1, a4, a3, a5, SP[a2, a6], n] + 
    S2[a5, n]*S2[a1, a4, a3, a6, a2, n] - 
    S2[a2, n]*S2[a1, a4, a3, a6, a5, n] + S2[a1, a4, a3, a6, SP[a2, a5], n] + 
    S2[a1, a4, a3, SP[a5, a6], a2, n] - S2[a1, a4, a5, a3, SP[a2, a6], n] - 
    S2[a1, a4, a5, SP[a3, a6], a2, n] + S2[a1, a4, a6, a2, SP[a3, a5], n] + 
    S2[a5, n]*S2[a1, a4, a6, a3, a2, n] - 
    S2[a2, n]*S2[a1, a4, a6, a3, a5, n] + S2[a1, a4, a6, a3, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a4, a6, a5, a3, n] - S2[a1, a4, a6, a5, SP[a2, a3], n] - 
    S2[a1, a4, a6, SP[a2, a3], a5, n] + 2*S2[a1, a4, a6, SP[a3, a5], a2, n] - 
    S2[a1, a4, SP[a2, a3], a6, a5, n] + S2[a1, a4, SP[a3, a6], a2, a5, n] + 
    S2[a1, a4, SP[a3, a6], a5, a2, n] + S2[a1, a4, SP[a5, a6], a3, a2, n] - 
    S2[a1, a5, a3, a2, SP[a4, a6], n] - S2[a1, a5, a3, a4, SP[a2, a6], n] - 
    S2[a1, a5, a3, SP[a2, a6], a4, n] - S2[a1, a5, a3, SP[a4, a6], a2, n] - 
    S2[a1, a5, a4, a3, SP[a2, a6], n] - S2[a1, a5, a4, SP[a3, a6], a2, n] - 
    S2[a1, a5, SP[a3, a6], a2, a4, n] - S2[a1, a5, SP[a3, a6], a4, a2, n] - 
    S2[a1, a5, SP[a4, a6], a3, a2, n] + S2[a5, n]*S2[a1, a6, a3, a2, a4, n] - 
    S2[a4, n]*S2[a1, a6, a3, a2, a5, n] + 
    S2[a5, n]*S2[a1, a6, a3, a4, a2, n] + S2[a1, a6, a3, a4, SP[a2, a5], n] - 
    S2[a4, n]*S2[a1, a6, a3, a5, a2, n] - S2[a1, a6, a3, a5, SP[a2, a4], n] - 
    S2[a1, a6, a3, SP[a2, a4], a5, n] + S2[a1, a6, a3, SP[a2, a5], a4, n] + 
    S2[a5, n]*S2[a1, a6, a4, a3, a2, n] + S2[a1, a6, a4, a3, SP[a2, a5], n] + 
    S2[a1, a6, a4, SP[a3, a5], a2, n] - S2[a4, n]*S2[a1, a6, a5, a3, a2, n] - 
    S2[a1, a6, a5, a3, SP[a2, a4], n] - S2[a1, a6, a5, SP[a3, a4], a2, n] - 
    S2[a1, a6, SP[a3, a4], a2, a5, n] - S2[a1, a6, SP[a3, a4], a5, a2, n] + 
    S2[a1, a6, SP[a3, a5], a2, a4, n] + S2[a1, a6, SP[a3, a5], a4, a2, n] - 
    S2[a1, SP[a2, a3], a4, a6, a5, n] - S2[a1, SP[a4, a6], a3, a2, a5, n] - 
    S2[a1, SP[a4, a6], a3, a5, a2, n] - S2[a1, SP[a4, a6], a5, a3, a2, n] + 
    S2[a1, SP[a5, a6], a3, a2, a4, n] + S2[a1, SP[a5, a6], a3, a4, a2, n] + 
    S2[a1, SP[a5, a6], a4, a3, a2, n] + S2[a2, a1, a4, a6, SP[a3, a5], n] + 
    S2[a2, a1, a4, SP[a3, a6], a5, n] + S2[a2, a1, SP[a3, a4], a6, a5, n] + 
    S2[a2, SP[a1, a3], a4, a6, a5, n] + S2[a4, a1, a3, a6, SP[a2, a5], n] + 
    S2[a4, a1, a3, SP[a2, a6], a5, n] + S2[a4, a1, a6, a3, SP[a2, a5], n] + 
    S2[a4, a1, a6, SP[a3, a5], a2, n] + S2[a4, a1, SP[a3, a6], a2, a5, n] + 
    S2[a4, a1, SP[a3, a6], a5, a2, n] + S2[a4, a6, a1, a3, SP[a2, a5], n] + 
    S2[a4, a6, a1, SP[a3, a5], a2, n] + S2[a4, a6, SP[a1, a5], a3, a2, n] + 
    S2[a4, SP[a1, a6], a3, a2, a5, n] + S2[a4, SP[a1, a6], a3, a5, a2, n] + 
    S2[a4, SP[a1, a6], a5, a3, a2, n] - S2[a5, a1, a3, a2, SP[a4, a6], n] - 
    S2[a5, a1, a3, a4, SP[a2, a6], n] - S2[a5, a1, a3, SP[a2, a6], a4, n] - 
    S2[a5, a1, a3, SP[a4, a6], a2, n] - S2[a5, a1, a4, a3, SP[a2, a6], n] - 
    S2[a5, a1, a4, SP[a3, a6], a2, n] - S2[a5, a1, SP[a3, a6], a2, a4, n] - 
    S2[a5, a1, SP[a3, a6], a4, a2, n] - S2[a5, a1, SP[a4, a6], a3, a2, n] - 
    S2[a5, SP[a1, a6], a3, a2, a4, n] - S2[a5, SP[a1, a6], a3, a4, a2, n] - 
    S2[a5, SP[a1, a6], a4, a3, a2, n] + S2[a5, n]*S2[a6, a1, a3, a2, a4, n] - 
    S2[a4, n]*S2[a6, a1, a3, a2, a5, n] + 
    S2[a5, n]*S2[a6, a1, a3, a4, a2, n] + S2[a6, a1, a3, a4, SP[a2, a5], n] - 
    S2[a4, n]*S2[a6, a1, a3, a5, a2, n] - S2[a6, a1, a3, a5, SP[a2, a4], n] - 
    S2[a6, a1, a3, SP[a2, a4], a5, n] + S2[a6, a1, a3, SP[a2, a5], a4, n] + 
    S2[a5, n]*S2[a6, a1, a4, a3, a2, n] + S2[a6, a1, a4, a3, SP[a2, a5], n] + 
    S2[a6, a1, a4, SP[a3, a5], a2, n] - S2[a4, n]*S2[a6, a1, a5, a3, a2, n] - 
    S2[a6, a1, a5, a3, SP[a2, a4], n] - S2[a6, a1, a5, SP[a3, a4], a2, n] - 
    S2[a6, a1, SP[a3, a4], a2, a5, n] - S2[a6, a1, SP[a3, a4], a5, a2, n] + 
    S2[a6, a1, SP[a3, a5], a2, a4, n] + S2[a6, a1, SP[a3, a5], a4, a2, n] - 
    S2[a4, n]*S2[a6, a5, a1, a3, a2, n] - S2[a6, a5, a1, a3, SP[a2, a4], n] - 
    S2[a6, a5, a1, SP[a3, a4], a2, n] - S2[a6, a5, SP[a1, a4], a3, a2, n] - 
    S2[a6, SP[a1, a4], a3, a2, a5, n] - S2[a6, SP[a1, a4], a3, a5, a2, n] - 
    S2[a6, SP[a1, a4], a5, a3, a2, n] + S2[a6, SP[a1, a5], a3, a2, a4, n] + 
    S2[a6, SP[a1, a5], a3, a4, a2, n] + S2[a6, SP[a1, a5], a4, a3, a2, n] - 
    S2[a6, SP[a4, a5], a1, a3, a2, n] - S2[SP[a4, a6], a1, a3, a2, a5, n] - 
    S2[SP[a4, a6], a1, a3, a5, a2, n] - S2[SP[a4, a6], a1, a5, a3, a2, n] - 
    S2[SP[a4, a6], a5, a1, a3, a2, n] + S2[SP[a5, a6], a1, a3, a2, a4, n] + 
    S2[SP[a5, a6], a1, a3, a4, a2, n] + S2[SP[a5, a6], a1, a4, a3, a2, n] + 
    S2[a6, a4, a1, a3, a2, a5, n] + S2[a6, a4, a1, a3, a5, a2, n] + 
    S2[a6, a4, a1, a5, a3, a2, n] + S2[a6, a4, a5, a1, a3, a2, n] + 
    S2[a6, a5, a4, a1, a3, a2, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a2_, a3_, a1_, a5_, a4_, a6_, n_] :> 
  -(S2[a1, a3, a2, n]*S2[a4, a5, a6, n]) - S2[a1, a3, a2, n]*
     S2[a4, a6, a5, n] - S2[SP[a1, a4], SP[a3, a5], SP[a2, a6], n] - 
    S2[SP[a1, a4], SP[a3, a6], SP[a2, a5], n] + 
    S2[a4, a6, n]*S2[a1, a3, a2, a5, n] + S2[a4, a6, n]*
     S2[a1, a3, a5, a2, n] - S2[a1, a3, SP[a2, a4], SP[a5, a6], n] - 
    S2[a1, a3, SP[a4, a5], SP[a2, a6], n] + S2[a1, a4, SP[a3, a5], 
     SP[a2, a6], n] + S2[a1, a4, SP[a3, a6], SP[a2, a5], n] + 
    S2[a4, a6, n]*S2[a1, a5, a3, a2, n] + S2[a2, a3, n]*
     S2[a1, a5, a4, a6, n] - S2[a1, a5, SP[a2, a4], SP[a3, a6], n] - 
    S2[a1, a5, SP[a3, a4], SP[a2, a6], n] - S2[a1, SP[a2, a5], a4, 
     SP[a3, a6], n] - S2[a1, SP[a2, a5], SP[a3, a4], a6, n] - 
    S2[a1, SP[a3, a4], a2, SP[a5, a6], n] + S2[a1, SP[a3, a4], a6, 
     SP[a2, a5], n] + S2[a1, SP[a3, a4], SP[a2, a5], a6, n] - 
    S2[a1, SP[a3, a4], SP[a5, a6], a2, n] - S2[a1, SP[a4, a5], a3, 
     SP[a2, a6], n] - S2[a1, SP[a4, a5], SP[a3, a6], a2, n] + 
    S2[a4, a1, SP[a3, a5], SP[a2, a6], n] + S2[a4, a1, SP[a3, a6], 
     SP[a2, a5], n] + S2[a4, SP[a1, a5], a3, SP[a2, a6], n] + 
    S2[a4, SP[a1, a5], SP[a3, a6], a2, n] + S2[a4, SP[a1, a6], a3, 
     SP[a2, a5], n] + S2[a4, SP[a1, a6], SP[a3, a5], a2, n] - 
    S2[SP[a1, a2], a5, a4, SP[a3, a6], n] - S2[SP[a1, a2], a5, SP[a3, a4], 
     a6, n] - S2[SP[a1, a2], SP[a3, a5], a4, a6, n] - 
    S2[SP[a1, a4], a3, a2, SP[a5, a6], n] + S2[SP[a1, a4], a3, a6, 
     SP[a2, a5], n] + S2[SP[a1, a4], a3, SP[a2, a5], a6, n] - 
    S2[SP[a1, a4], a3, SP[a5, a6], a2, n] + S2[SP[a1, a4], a6, a3, 
     SP[a2, a5], n] + S2[SP[a1, a4], a6, SP[a3, a5], a2, n] + 
    S2[SP[a1, a4], SP[a3, a5], a2, a6, n] + S2[SP[a1, a4], SP[a3, a5], a6, 
     a2, n] - S2[SP[a1, a4], SP[a5, a6], a3, a2, n] + 
    S2[a1, a2, a5, a4, SP[a3, a6], n] + S2[a1, a2, a5, SP[a3, a4], a6, n] + 
    S2[a1, a2, SP[a3, a5], a4, a6, n] + S2[a1, a3, a2, a4, SP[a5, a6], n] + 
    S2[a1, a3, a2, SP[a4, a5], a6, n] + S2[a1, a3, a4, a2, SP[a5, a6], n] - 
    S2[a1, a3, a4, a6, SP[a2, a5], n] - S2[a1, a3, a4, SP[a2, a5], a6, n] + 
    S2[a1, a3, a4, SP[a5, a6], a2, n] - S2[a2, n]*S2[a1, a3, a5, a4, a6, n] - 
    S2[a1, a3, SP[a2, a5], a4, a6, n] + S2[a1, a3, SP[a4, a5], a2, a6, n] + 
    S2[a1, a3, SP[a4, a5], a6, a2, n] + S2[a1, a4, a3, a2, SP[a5, a6], n] - 
    S2[a1, a4, a3, a6, SP[a2, a5], n] - S2[a1, a4, a3, SP[a2, a5], a6, n] + 
    S2[a1, a4, a3, SP[a5, a6], a2, n] - S2[a1, a4, a6, a3, SP[a2, a5], n] - 
    S2[a1, a4, a6, SP[a3, a5], a2, n] - S2[a1, a4, SP[a3, a5], a2, a6, n] - 
    S2[a1, a4, SP[a3, a5], a6, a2, n] + S2[a1, a4, SP[a5, a6], a3, a2, n] + 
    S2[a1, a5, a2, a4, SP[a3, a6], n] + S2[a1, a5, a2, SP[a3, a4], a6, n] - 
    S2[a2, n]*S2[a1, a5, a3, a4, a6, n] + S2[a1, a5, a4, a2, SP[a3, a6], n] - 
    S2[a2, n]*S2[a1, a5, a4, a3, a6, n] - 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] - S2[a1, a5, a4, a6, SP[a2, a3], n] - 
    S2[a1, a5, a4, SP[a2, a3], a6, n] + S2[a1, a5, a4, SP[a3, a6], a2, n] - 
    S2[a1, a5, SP[a2, a3], a4, a6, n] + S2[a1, a5, SP[a3, a4], a2, a6, n] + 
    S2[a1, a5, SP[a3, a4], a6, a2, n] - S2[a1, SP[a2, a3], a5, a4, a6, n] + 
    S2[a1, SP[a4, a5], a3, a2, a6, n] + S2[a1, SP[a4, a5], a3, a6, a2, n] + 
    S2[a1, SP[a4, a5], a6, a3, a2, n] + S2[a2, a1, a5, a4, SP[a3, a6], n] + 
    S2[a2, a1, a5, SP[a3, a4], a6, n] + S2[a2, a1, SP[a3, a5], a4, a6, n] + 
    S2[a2, SP[a1, a3], a5, a4, a6, n] + S2[a4, a1, a3, a2, SP[a5, a6], n] - 
    S2[a4, a1, a3, a6, SP[a2, a5], n] - S2[a4, a1, a3, SP[a2, a5], a6, n] + 
    S2[a4, a1, a3, SP[a5, a6], a2, n] - S2[a4, a1, a6, a3, SP[a2, a5], n] - 
    S2[a4, a1, a6, SP[a3, a5], a2, n] - S2[a4, a1, SP[a3, a5], a2, a6, n] - 
    S2[a4, a1, SP[a3, a5], a6, a2, n] + S2[a4, a1, SP[a5, a6], a3, a2, n] + 
    S2[a6, n]*S2[a4, a5, a1, a3, a2, n] - S2[a4, a6, a1, a3, SP[a2, a5], n] - 
    S2[a4, a6, a1, SP[a3, a5], a2, n] - S2[a4, a6, SP[a1, a5], a3, a2, n] - 
    S2[a4, SP[a1, a5], a3, a2, a6, n] - S2[a4, SP[a1, a5], a3, a6, a2, n] - 
    S2[a4, SP[a1, a5], a6, a3, a2, n] + S2[a4, SP[a5, a6], a1, a3, a2, n] + 
    S2[SP[a4, a6], a5, a1, a3, a2, n] - S2[a6, a4, a5, a1, a3, a2, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a2_, a3_, a1_, a5_, a6_, a4_, n_] :> 
  S2[a1, a3, a2, n]*S2[a4, a6, a5, n] + S2[SP[a1, a4], SP[a3, a6], 
     SP[a2, a5], n] - S2[a4, a6, n]*S2[a1, a3, a2, a5, n] - 
    S2[a4, a6, n]*S2[a1, a3, a5, a2, n] + S2[a1, a3, SP[a2, a4], SP[a5, a6], 
     n] + S2[a1, a3, SP[a4, a5], SP[a2, a6], n] - S2[a1, a4, SP[a3, a6], 
     SP[a2, a5], n] - S2[a4, a6, n]*S2[a1, a5, a3, a2, n] + 
    S2[a2, a3, n]*S2[a1, a5, a6, a4, n] - S2[a1, a5, SP[a2, a6], SP[a3, a4], 
     n] + S2[a1, a5, SP[a3, a4], SP[a2, a6], n] - S2[a1, SP[a2, a5], a6, 
     SP[a3, a4], n] - S2[a1, SP[a2, a5], SP[a3, a6], a4, n] + 
    S2[a1, SP[a3, a4], a2, SP[a5, a6], n] + S2[a1, SP[a3, a4], a5, 
     SP[a2, a6], n] - S2[a1, SP[a3, a4], a6, SP[a2, a5], n] + 
    S2[a1, SP[a3, a4], SP[a5, a6], a2, n] + S2[a1, SP[a4, a5], a3, 
     SP[a2, a6], n] + S2[a1, SP[a4, a5], SP[a3, a6], a2, n] - 
    S2[a4, a1, SP[a3, a6], SP[a2, a5], n] - S2[a4, SP[a1, a6], a3, 
     SP[a2, a5], n] - S2[a4, SP[a1, a6], SP[a3, a5], a2, n] - 
    S2[SP[a1, a2], a5, a6, SP[a3, a4], n] - S2[SP[a1, a2], a5, SP[a3, a6], 
     a4, n] - S2[SP[a1, a2], SP[a3, a5], a6, a4, n] + 
    S2[SP[a1, a4], a3, a2, SP[a5, a6], n] + S2[SP[a1, a4], a3, a5, 
     SP[a2, a6], n] - S2[SP[a1, a4], a3, a6, SP[a2, a5], n] + 
    S2[SP[a1, a4], a3, SP[a5, a6], a2, n] + S2[SP[a1, a4], a5, a3, 
     SP[a2, a6], n] + S2[SP[a1, a4], a5, SP[a3, a6], a2, n] - 
    S2[SP[a1, a4], a6, a3, SP[a2, a5], n] - S2[SP[a1, a4], a6, SP[a3, a5], 
     a2, n] + S2[SP[a1, a4], SP[a5, a6], a3, a2, n] + 
    S2[a1, a2, a5, a6, SP[a3, a4], n] + S2[a1, a2, a5, SP[a3, a6], a4, n] + 
    S2[a1, a2, SP[a3, a5], a6, a4, n] - S2[a1, a3, a2, a4, SP[a5, a6], n] + 
    S2[a4, n]*S2[a1, a3, a2, a5, a6, n] + S2[a1, a3, a2, a5, SP[a4, a6], n] - 
    S2[a1, a3, a4, a2, SP[a5, a6], n] - S2[a1, a3, a4, a5, SP[a2, a6], n] + 
    S2[a1, a3, a4, a6, SP[a2, a5], n] - S2[a1, a3, a4, SP[a5, a6], a2, n] + 
    S2[a4, n]*S2[a1, a3, a5, a2, a6, n] + S2[a1, a3, a5, a2, SP[a4, a6], n] - 
    S2[a1, a3, a5, a4, SP[a2, a6], n] + S2[a4, n]*S2[a1, a3, a5, a6, a2, n] - 
    S2[a2, n]*S2[a1, a3, a5, a6, a4, n] - S2[a1, a3, a5, SP[a2, a6], a4, n] + 
    S2[a1, a3, a5, SP[a4, a6], a2, n] - S2[a1, a3, SP[a2, a5], a6, a4, n] - 
    S2[a1, a4, a3, a2, SP[a5, a6], n] - S2[a1, a4, a3, a5, SP[a2, a6], n] + 
    S2[a1, a4, a3, a6, SP[a2, a5], n] - S2[a1, a4, a3, SP[a5, a6], a2, n] - 
    S2[a1, a4, a5, a3, SP[a2, a6], n] - S2[a1, a4, a5, SP[a3, a6], a2, n] + 
    S2[a1, a4, a6, a3, SP[a2, a5], n] + S2[a1, a4, a6, SP[a3, a5], a2, n] - 
    S2[a1, a4, SP[a5, a6], a3, a2, n] + S2[a1, a5, a2, a6, SP[a3, a4], n] + 
    S2[a1, a5, a2, SP[a3, a6], a4, n] + S2[a4, n]*S2[a1, a5, a3, a2, a6, n] + 
    S2[a1, a5, a3, a2, SP[a4, a6], n] - S2[a1, a5, a3, a4, SP[a2, a6], n] + 
    S2[a4, n]*S2[a1, a5, a3, a6, a2, n] - 
    S2[a2, n]*S2[a1, a5, a3, a6, a4, n] - S2[a1, a5, a3, SP[a2, a6], a4, n] + 
    S2[a1, a5, a3, SP[a4, a6], a2, n] - S2[a1, a5, a4, a3, SP[a2, a6], n] - 
    S2[a1, a5, a4, SP[a3, a6], a2, n] + S2[a1, a5, a6, a2, SP[a3, a4], n] + 
    S2[a4, n]*S2[a1, a5, a6, a3, a2, n] - 
    S2[a2, n]*S2[a1, a5, a6, a3, a4, n] - 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] - S2[a1, a5, a6, a4, SP[a2, a3], n] - 
    S2[a1, a5, a6, SP[a2, a3], a4, n] + S2[a1, a5, a6, SP[a3, a4], a2, n] - 
    S2[a1, a5, SP[a2, a3], a6, a4, n] + S2[a1, a5, SP[a4, a6], a3, a2, n] - 
    S2[a1, SP[a2, a3], a5, a6, a4, n] + S2[a2, a1, a5, a6, SP[a3, a4], n] + 
    S2[a2, a1, a5, SP[a3, a6], a4, n] + S2[a2, a1, SP[a3, a5], a6, a4, n] + 
    S2[a2, SP[a1, a3], a5, a6, a4, n] - S2[a4, a1, a3, a2, SP[a5, a6], n] - 
    S2[a4, a1, a3, a5, SP[a2, a6], n] + S2[a4, a1, a3, a6, SP[a2, a5], n] - 
    S2[a4, a1, a3, SP[a5, a6], a2, n] - S2[a4, a1, a5, a3, SP[a2, a6], n] - 
    S2[a4, a1, a5, SP[a3, a6], a2, n] + S2[a4, a1, a6, a3, SP[a2, a5], n] + 
    S2[a4, a1, a6, SP[a3, a5], a2, n] - S2[a4, a1, SP[a5, a6], a3, a2, n] + 
    S2[a4, a6, a1, a3, SP[a2, a5], n] + S2[a4, a6, a1, SP[a3, a5], a2, n] + 
    S2[a4, a6, SP[a1, a5], a3, a2, n] - S2[a4, n]*S2[a6, a5, a1, a3, a2, n] - 
    S2[a6, a5, a1, a3, SP[a2, a4], n] - S2[a6, a5, a1, SP[a3, a4], a2, n] - 
    S2[a6, a5, SP[a1, a4], a3, a2, n] - S2[a6, SP[a4, a5], a1, a3, a2, n] - 
    S2[SP[a4, a6], a5, a1, a3, a2, n] + S2[a6, a4, a5, a1, a3, a2, n] + 
    S2[a6, a5, a1, a3, a2, a4, n] + S2[a6, a5, a1, a3, a4, a2, n] + 
    S2[a6, a5, a1, a4, a3, a2, n] + S2[a6, a5, a4, a1, a3, a2, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a2_, a3_, a1_, a6_, a4_, a5_, n_] :> 
  -(S2[a1, a3, a2, n]*S2[a4, a5, a6, n]) - S2[a1, a3, a2, n]*
     S2[a4, a6, a5, n] - S2[SP[a1, a4], SP[a3, a5], SP[a2, a6], n] - 
    S2[SP[a1, a4], SP[a3, a6], SP[a2, a5], n] + S2[a1, a4, SP[a3, a5], 
     SP[a2, a6], n] + S2[a1, a4, SP[a3, a6], SP[a2, a5], n] + 
    S2[a2, a3, n]*S2[a1, a6, a4, a5, n] - S2[a1, a6, SP[a2, a4], SP[a3, a5], 
     n] - S2[a1, SP[a2, a6], a4, SP[a3, a5], n] - 
    S2[a1, SP[a2, a6], SP[a3, a4], a5, n] + S2[a1, SP[a3, a4], a5, 
     SP[a2, a6], n] + S2[a1, SP[a3, a4], a6, SP[a2, a5], n] + 
    S2[a1, SP[a3, a4], SP[a2, a5], a6, n] + S2[a1, SP[a3, a4], SP[a2, a6], 
     a5, n] + S2[a4, a1, SP[a3, a5], SP[a2, a6], n] + 
    S2[a4, a1, SP[a3, a6], SP[a2, a5], n] + S2[a4, SP[a1, a5], a3, 
     SP[a2, a6], n] + S2[a4, SP[a1, a5], SP[a3, a6], a2, n] + 
    S2[a4, SP[a1, a6], a3, SP[a2, a5], n] + S2[a4, SP[a1, a6], SP[a3, a5], 
     a2, n] - S2[SP[a1, a2], a6, a4, SP[a3, a5], n] - 
    S2[SP[a1, a2], a6, SP[a3, a4], a5, n] - S2[SP[a1, a2], SP[a3, a6], a4, 
     a5, n] + S2[SP[a1, a4], a3, a5, SP[a2, a6], n] + 
    S2[SP[a1, a4], a3, a6, SP[a2, a5], n] + S2[SP[a1, a4], a3, SP[a2, a5], 
     a6, n] + S2[SP[a1, a4], a3, SP[a2, a6], a5, n] + 
    S2[SP[a1, a4], a5, a3, SP[a2, a6], n] + S2[SP[a1, a4], a5, SP[a3, a6], 
     a2, n] + S2[SP[a1, a4], a6, a3, SP[a2, a5], n] + 
    S2[SP[a1, a4], a6, SP[a3, a5], a2, n] + S2[SP[a1, a4], SP[a3, a5], a2, 
     a6, n] + S2[SP[a1, a4], SP[a3, a5], a6, a2, n] + 
    S2[SP[a1, a4], SP[a3, a6], a2, a5, n] + S2[SP[a1, a4], SP[a3, a6], a5, 
     a2, n] + S2[a1, a2, a6, a4, SP[a3, a5], n] + S2[a1, a2, a6, SP[a3, a4], 
     a5, n] + S2[a1, a2, SP[a3, a6], a4, a5, n] - 
    S2[a6, n]*S2[a1, a3, a2, a5, a4, n] + 
    S2[a4, n]*S2[a1, a3, a2, a5, a6, n] + 
    S2[a4, n]*S2[a1, a3, a2, a6, a5, n] + S2[a1, a3, a2, a6, SP[a4, a5], n] + 
    S2[a1, a3, a2, SP[a4, a5], a6, n] + S2[a1, a3, a2, SP[a4, a6], a5, n] - 
    S2[a1, a3, a2, SP[a5, a6], a4, n] - S2[a1, a3, a4, a5, SP[a2, a6], n] - 
    S2[a1, a3, a4, a6, SP[a2, a5], n] - S2[a1, a3, a4, SP[a2, a5], a6, n] - 
    S2[a1, a3, a4, SP[a2, a6], a5, n] - S2[a6, n]*S2[a1, a3, a5, a2, a4, n] + 
    S2[a4, n]*S2[a1, a3, a5, a2, a6, n] - 
    S2[a6, n]*S2[a1, a3, a5, a4, a2, n] - S2[a1, a3, a5, a4, SP[a2, a6], n] + 
    S2[a4, n]*S2[a1, a3, a5, a6, a2, n] + S2[a1, a3, a5, a6, SP[a2, a4], n] + 
    S2[a1, a3, a5, SP[a2, a4], a6, n] - S2[a1, a3, a5, SP[a2, a6], a4, n] + 
    S2[a4, n]*S2[a1, a3, a6, a2, a5, n] + S2[a1, a3, a6, a2, SP[a4, a5], n] - 
    S2[a2, n]*S2[a1, a3, a6, a4, a5, n] - S2[a1, a3, a6, a4, SP[a2, a5], n] + 
    S2[a4, n]*S2[a1, a3, a6, a5, a2, n] + S2[a1, a3, a6, a5, SP[a2, a4], n] + 
    S2[a1, a3, a6, SP[a4, a5], a2, n] - S2[a1, a3, SP[a2, a6], a4, a5, n] - 
    S2[a1, a3, SP[a2, a6], a5, a4, n] + S2[a1, a3, SP[a4, a5], a2, a6, n] + 
    S2[a1, a3, SP[a4, a5], a6, a2, n] + S2[a1, a3, SP[a4, a6], a2, a5, n] + 
    S2[a1, a3, SP[a4, a6], a5, a2, n] - S2[a1, a3, SP[a5, a6], a2, a4, n] - 
    S2[a1, a3, SP[a5, a6], a4, a2, n] - S2[a1, a4, a3, a5, SP[a2, a6], n] - 
    S2[a1, a4, a3, a6, SP[a2, a5], n] - S2[a1, a4, a3, SP[a2, a5], a6, n] - 
    S2[a1, a4, a3, SP[a2, a6], a5, n] - S2[a1, a4, a5, a3, SP[a2, a6], n] - 
    S2[a1, a4, a5, SP[a3, a6], a2, n] - S2[a1, a4, a6, a3, SP[a2, a5], n] - 
    S2[a1, a4, a6, SP[a3, a5], a2, n] - S2[a1, a4, SP[a3, a5], a2, a6, n] - 
    S2[a1, a4, SP[a3, a5], a6, a2, n] - S2[a1, a4, SP[a3, a6], a2, a5, n] - 
    S2[a1, a4, SP[a3, a6], a5, a2, n] - S2[a6, n]*S2[a1, a5, a3, a2, a4, n] + 
    S2[a4, n]*S2[a1, a5, a3, a2, a6, n] - 
    S2[a6, n]*S2[a1, a5, a3, a4, a2, n] - S2[a1, a5, a3, a4, SP[a2, a6], n] + 
    S2[a4, n]*S2[a1, a5, a3, a6, a2, n] + S2[a1, a5, a3, a6, SP[a2, a4], n] + 
    S2[a1, a5, a3, SP[a2, a4], a6, n] - S2[a1, a5, a3, SP[a2, a6], a4, n] - 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] - S2[a1, a5, a4, a3, SP[a2, a6], n] - 
    S2[a1, a5, a4, SP[a3, a6], a2, n] + S2[a4, n]*S2[a1, a5, a6, a3, a2, n] + 
    S2[a1, a5, a6, a3, SP[a2, a4], n] + S2[a1, a5, a6, SP[a3, a4], a2, n] + 
    S2[a1, a5, SP[a3, a4], a2, a6, n] + S2[a1, a5, SP[a3, a4], a6, a2, n] - 
    S2[a1, a5, SP[a3, a6], a2, a4, n] - S2[a1, a5, SP[a3, a6], a4, a2, n] + 
    S2[a1, a6, a2, a4, SP[a3, a5], n] + S2[a1, a6, a2, SP[a3, a4], a5, n] + 
    S2[a4, n]*S2[a1, a6, a3, a2, a5, n] + S2[a1, a6, a3, a2, SP[a4, a5], n] - 
    S2[a2, n]*S2[a1, a6, a3, a4, a5, n] - S2[a1, a6, a3, a4, SP[a2, a5], n] + 
    S2[a4, n]*S2[a1, a6, a3, a5, a2, n] + S2[a1, a6, a3, a5, SP[a2, a4], n] + 
    S2[a1, a6, a3, SP[a4, a5], a2, n] + S2[a1, a6, a4, a2, SP[a3, a5], n] - 
    S2[a2, n]*S2[a1, a6, a4, a3, a5, n] - S2[a1, a6, a4, a3, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a6, a4, a5, a3, n] - S2[a1, a6, a4, a5, SP[a2, a3], n] - 
    S2[a1, a6, a4, SP[a2, a3], a5, n] + S2[a4, n]*S2[a1, a6, a5, a3, a2, n] + 
    S2[a1, a6, a5, a3, SP[a2, a4], n] + S2[a1, a6, a5, SP[a3, a4], a2, n] - 
    S2[a1, a6, SP[a2, a3], a4, a5, n] + S2[a1, a6, SP[a3, a4], a2, a5, n] + 
    S2[a1, a6, SP[a3, a4], a5, a2, n] + S2[a1, a6, SP[a4, a5], a3, a2, n] - 
    S2[a1, SP[a2, a3], a6, a4, a5, n] - S2[a1, SP[a3, a6], a2, a5, a4, n] - 
    S2[a1, SP[a3, a6], a5, a2, a4, n] - S2[a1, SP[a3, a6], a5, a4, a2, n] + 
    S2[a1, SP[a4, a5], a3, a2, a6, n] + S2[a1, SP[a4, a5], a3, a6, a2, n] + 
    S2[a1, SP[a4, a5], a6, a3, a2, n] + S2[a1, SP[a4, a6], a3, a2, a5, n] + 
    S2[a1, SP[a4, a6], a3, a5, a2, n] + S2[a1, SP[a4, a6], a5, a3, a2, n] - 
    S2[a1, SP[a5, a6], a3, a2, a4, n] - S2[a1, SP[a5, a6], a3, a4, a2, n] - 
    S2[a1, SP[a5, a6], a4, a3, a2, n] + S2[a2, a1, a6, a4, SP[a3, a5], n] + 
    S2[a2, a1, a6, SP[a3, a4], a5, n] + S2[a2, a1, SP[a3, a6], a4, a5, n] + 
    S2[a2, SP[a1, a3], a6, a4, a5, n] - S2[a4, a1, a3, a5, SP[a2, a6], n] - 
    S2[a4, a1, a3, a6, SP[a2, a5], n] - S2[a4, a1, a3, SP[a2, a5], a6, n] - 
    S2[a4, a1, a3, SP[a2, a6], a5, n] - S2[a4, a1, a5, a3, SP[a2, a6], n] - 
    S2[a4, a1, a5, SP[a3, a6], a2, n] - S2[a4, a1, a6, a3, SP[a2, a5], n] - 
    S2[a4, a1, a6, SP[a3, a5], a2, n] - S2[a4, a1, SP[a3, a5], a2, a6, n] - 
    S2[a4, a1, SP[a3, a5], a6, a2, n] - S2[a4, a1, SP[a3, a6], a2, a5, n] - 
    S2[a4, a1, SP[a3, a6], a5, a2, n] + S2[a6, n]*S2[a4, a5, a1, a3, a2, n] - 
    S2[a4, a6, a1, a3, SP[a2, a5], n] - S2[a4, a6, a1, SP[a3, a5], a2, n] - 
    S2[a4, a6, SP[a1, a5], a3, a2, n] - S2[a4, SP[a1, a5], a3, a2, a6, n] - 
    S2[a4, SP[a1, a5], a3, a6, a2, n] - S2[a4, SP[a1, a5], a6, a3, a2, n] - 
    S2[a4, SP[a1, a6], a3, a2, a5, n] - S2[a4, SP[a1, a6], a3, a5, a2, n] - 
    S2[a4, SP[a1, a6], a5, a3, a2, n] + S2[a4, SP[a5, a6], a1, a3, a2, n] + 
    S2[a4, n]*S2[a6, a1, a3, a2, a5, n] + S2[a6, a1, a3, a2, SP[a4, a5], n] + 
    S2[a4, n]*S2[a6, a1, a3, a5, a2, n] + S2[a6, a1, a3, a5, SP[a2, a4], n] + 
    S2[a6, a1, a3, SP[a2, a4], a5, n] + S2[a6, a1, a3, SP[a4, a5], a2, n] + 
    S2[a4, n]*S2[a6, a1, a5, a3, a2, n] + S2[a6, a1, a5, a3, SP[a2, a4], n] + 
    S2[a6, a1, a5, SP[a3, a4], a2, n] + S2[a6, a1, SP[a3, a4], a2, a5, n] + 
    S2[a6, a1, SP[a3, a4], a5, a2, n] + S2[a6, a1, SP[a4, a5], a3, a2, n] + 
    S2[a6, SP[a1, a4], a3, a2, a5, n] + S2[a6, SP[a1, a4], a3, a5, a2, n] + 
    S2[a6, SP[a1, a4], a5, a3, a2, n] - S2[SP[a1, a6], a3, a2, a5, a4, n] - 
    S2[SP[a1, a6], a3, a5, a2, a4, n] - S2[SP[a1, a6], a3, a5, a4, a2, n] - 
    S2[SP[a1, a6], a5, a3, a2, a4, n] - S2[SP[a1, a6], a5, a3, a4, a2, n] - 
    S2[SP[a1, a6], a5, a4, a3, a2, n] + S2[SP[a4, a6], a1, a3, a2, a5, n] + 
    S2[SP[a4, a6], a1, a3, a5, a2, n] + S2[SP[a4, a6], a1, a5, a3, a2, n] + 
    S2[SP[a4, a6], a5, a1, a3, a2, n] - S2[a6, a1, a3, a2, a4, a5, n] - 
    S2[a6, a1, a3, a4, a2, a5, n] - S2[a6, a1, a3, a4, a5, a2, n] - 
    S2[a6, a1, a4, a3, a2, a5, n] - S2[a6, a1, a4, a3, a5, a2, n] - 
    S2[a6, a1, a4, a5, a3, a2, n] - S2[a6, a4, a1, a3, a2, a5, n] - 
    S2[a6, a4, a1, a3, a5, a2, n] - S2[a6, a4, a1, a5, a3, a2, n] - 
    S2[a6, a4, a5, a1, a3, a2, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a2_, a3_, a1_, a6_, a5_, a4_, n_] :> 
  S2[a1, a3, a2, n]*S2[a4, a5, a6, n] + S2[SP[a1, a4], SP[a3, a5], 
     SP[a2, a6], n] - S2[a1, a4, SP[a3, a5], SP[a2, a6], n] + 
    S2[a2, a3, n]*S2[a1, a6, a5, a4, n] - S2[a1, a6, SP[a2, a5], SP[a3, a4], 
     n] - S2[a1, SP[a2, a6], a5, SP[a3, a4], n] - 
    S2[a1, SP[a2, a6], SP[a3, a5], a4, n] - S2[a1, SP[a3, a4], a5, 
     SP[a2, a6], n] - S2[a1, SP[a3, a4], SP[a2, a5], a6, n] - 
    S2[a4, a1, SP[a3, a5], SP[a2, a6], n] - S2[a4, SP[a1, a5], a3, 
     SP[a2, a6], n] - S2[a4, SP[a1, a5], SP[a3, a6], a2, n] - 
    S2[SP[a1, a2], a6, a5, SP[a3, a4], n] - S2[SP[a1, a2], a6, SP[a3, a5], 
     a4, n] - S2[SP[a1, a2], SP[a3, a6], a5, a4, n] - 
    S2[SP[a1, a4], a3, a5, SP[a2, a6], n] - S2[SP[a1, a4], a3, SP[a2, a5], 
     a6, n] - S2[SP[a1, a4], a5, a3, SP[a2, a6], n] - 
    S2[SP[a1, a4], a5, SP[a3, a6], a2, n] - S2[SP[a1, a4], SP[a3, a5], a2, 
     a6, n] - S2[SP[a1, a4], SP[a3, a5], a6, a2, n] + 
    S2[a1, a2, a6, a5, SP[a3, a4], n] + S2[a1, a2, a6, SP[a3, a5], a4, n] + 
    S2[a1, a2, SP[a3, a6], a5, a4, n] + S2[a6, n]*S2[a1, a3, a2, a5, a4, n] - 
    S2[a4, n]*S2[a1, a3, a2, a5, a6, n] - S2[a1, a3, a2, SP[a4, a5], a6, n] + 
    S2[a1, a3, a2, SP[a5, a6], a4, n] + S2[a1, a3, a4, a5, SP[a2, a6], n] + 
    S2[a1, a3, a4, SP[a2, a5], a6, n] + S2[a6, n]*S2[a1, a3, a5, a2, a4, n] - 
    S2[a4, n]*S2[a1, a3, a5, a2, a6, n] + 
    S2[a6, n]*S2[a1, a3, a5, a4, a2, n] + S2[a1, a3, a5, a4, SP[a2, a6], n] - 
    S2[a4, n]*S2[a1, a3, a5, a6, a2, n] - S2[a1, a3, a5, a6, SP[a2, a4], n] - 
    S2[a1, a3, a5, SP[a2, a4], a6, n] + S2[a1, a3, a5, SP[a2, a6], a4, n] - 
    S2[a2, n]*S2[a1, a3, a6, a5, a4, n] - S2[a1, a3, a6, a5, SP[a2, a4], n] - 
    S2[a1, a3, a6, SP[a2, a5], a4, n] - S2[a1, a3, SP[a4, a5], a2, a6, n] - 
    S2[a1, a3, SP[a4, a5], a6, a2, n] + S2[a1, a3, SP[a5, a6], a2, a4, n] + 
    S2[a1, a3, SP[a5, a6], a4, a2, n] + S2[a1, a4, a3, a5, SP[a2, a6], n] + 
    S2[a1, a4, a3, SP[a2, a5], a6, n] + S2[a1, a4, a5, a3, SP[a2, a6], n] + 
    S2[a1, a4, a5, SP[a3, a6], a2, n] + S2[a1, a4, SP[a3, a5], a2, a6, n] + 
    S2[a1, a4, SP[a3, a5], a6, a2, n] + S2[a6, n]*S2[a1, a5, a3, a2, a4, n] - 
    S2[a4, n]*S2[a1, a5, a3, a2, a6, n] + 
    S2[a6, n]*S2[a1, a5, a3, a4, a2, n] + S2[a1, a5, a3, a4, SP[a2, a6], n] - 
    S2[a4, n]*S2[a1, a5, a3, a6, a2, n] - S2[a1, a5, a3, a6, SP[a2, a4], n] - 
    S2[a1, a5, a3, SP[a2, a4], a6, n] + S2[a1, a5, a3, SP[a2, a6], a4, n] + 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] + S2[a1, a5, a4, a3, SP[a2, a6], n] + 
    S2[a1, a5, a4, SP[a3, a6], a2, n] - S2[a4, n]*S2[a1, a5, a6, a3, a2, n] - 
    S2[a1, a5, a6, a3, SP[a2, a4], n] - S2[a1, a5, a6, SP[a3, a4], a2, n] - 
    S2[a1, a5, SP[a3, a4], a2, a6, n] - S2[a1, a5, SP[a3, a4], a6, a2, n] + 
    S2[a1, a5, SP[a3, a6], a2, a4, n] + S2[a1, a5, SP[a3, a6], a4, a2, n] + 
    S2[a1, a6, a2, a5, SP[a3, a4], n] + S2[a1, a6, a2, SP[a3, a5], a4, n] - 
    S2[a2, n]*S2[a1, a6, a3, a5, a4, n] - S2[a1, a6, a3, a5, SP[a2, a4], n] - 
    S2[a1, a6, a3, SP[a2, a5], a4, n] + S2[a1, a6, a5, a2, SP[a3, a4], n] - 
    S2[a2, n]*S2[a1, a6, a5, a3, a4, n] - S2[a1, a6, a5, a3, SP[a2, a4], n] - 
    S2[a2, n]*S2[a1, a6, a5, a4, a3, n] - S2[a1, a6, a5, a4, SP[a2, a3], n] - 
    S2[a1, a6, a5, SP[a2, a3], a4, n] - S2[a1, a6, SP[a2, a3], a5, a4, n] - 
    S2[a1, SP[a2, a3], a6, a5, a4, n] + S2[a1, SP[a3, a6], a2, a5, a4, n] + 
    S2[a1, SP[a3, a6], a5, a2, a4, n] + S2[a1, SP[a3, a6], a5, a4, a2, n] - 
    S2[a1, SP[a4, a5], a3, a2, a6, n] - S2[a1, SP[a4, a5], a3, a6, a2, n] - 
    S2[a1, SP[a4, a5], a6, a3, a2, n] + S2[a1, SP[a5, a6], a3, a2, a4, n] + 
    S2[a1, SP[a5, a6], a3, a4, a2, n] + S2[a1, SP[a5, a6], a4, a3, a2, n] + 
    S2[a2, a1, a6, a5, SP[a3, a4], n] + S2[a2, a1, a6, SP[a3, a5], a4, n] + 
    S2[a2, a1, SP[a3, a6], a5, a4, n] + S2[a2, SP[a1, a3], a6, a5, a4, n] + 
    S2[a4, a1, a3, a5, SP[a2, a6], n] + S2[a4, a1, a3, SP[a2, a5], a6, n] + 
    S2[a4, a1, a5, a3, SP[a2, a6], n] + S2[a4, a1, a5, SP[a3, a6], a2, n] + 
    S2[a4, a1, SP[a3, a5], a2, a6, n] + S2[a4, a1, SP[a3, a5], a6, a2, n] - 
    S2[a6, n]*S2[a4, a5, a1, a3, a2, n] + S2[a4, SP[a1, a5], a3, a2, a6, n] + 
    S2[a4, SP[a1, a5], a3, a6, a2, n] + S2[a4, SP[a1, a5], a6, a3, a2, n] - 
    S2[a4, SP[a5, a6], a1, a3, a2, n] + S2[a4, n]*S2[a6, a5, a1, a3, a2, n] + 
    S2[a6, a5, a1, a3, SP[a2, a4], n] + S2[a6, a5, a1, SP[a3, a4], a2, n] + 
    S2[a6, a5, SP[a1, a4], a3, a2, n] + S2[a6, SP[a4, a5], a1, a3, a2, n] + 
    S2[SP[a1, a6], a3, a2, a5, a4, n] + S2[SP[a1, a6], a3, a5, a2, a4, n] + 
    S2[SP[a1, a6], a3, a5, a4, a2, n] + S2[SP[a1, a6], a5, a3, a2, a4, n] + 
    S2[SP[a1, a6], a5, a3, a4, a2, n] + S2[SP[a1, a6], a5, a4, a3, a2, n] - 
    S2[a6, a1, a3, a2, a5, a4, n] - S2[a6, a1, a3, a5, a2, a4, n] - 
    S2[a6, a1, a3, a5, a4, a2, n] - S2[a6, a1, a5, a3, a2, a4, n] - 
    S2[a6, a1, a5, a3, a4, a2, n] - S2[a6, a1, a5, a4, a3, a2, n] - 
    S2[a6, a5, a1, a3, a2, a4, n] - S2[a6, a5, a1, a3, a4, a2, n] - 
    S2[a6, a5, a1, a4, a3, a2, n] - S2[a6, a5, a4, a1, a3, a2, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a2_, a3_, a4_, a1_, a5_, a6_, n_] :> 
  S2[a1, a5, a6, n]*S2[a2, a3, a4, n] + S2[SP[a1, a2], SP[a3, a5], 
     SP[a4, a6], n] - S2[a1, a2, SP[a3, a5], SP[a4, a6], n] - 
    S2[a5, a6, n]*S2[a1, a4, a3, a2, n] - S2[a2, a3, n]*
     S2[a1, a4, a5, a6, n] + S2[a1, a4, SP[a2, a5], SP[a3, a6], n] + 
    S2[a1, a4, SP[a3, a5], SP[a2, a6], n] - S2[a2, a3, n]*
     S2[a1, a5, a4, a6, n] - S2[a2, a3, n]*S2[a1, a5, a6, a4, n] + 
    S2[a1, a5, SP[a2, a4], SP[a3, a6], n] + S2[a1, a5, SP[a2, a6], 
     SP[a3, a4], n] + S2[a1, SP[a2, a4], a5, SP[a3, a6], n] + 
    S2[a1, SP[a2, a4], SP[a3, a5], a6, n] - S2[a1, SP[a2, a5], a3, 
     SP[a4, a6], n] + S2[a1, SP[a2, a5], a4, SP[a3, a6], n] + 
    S2[a1, SP[a2, a5], a6, SP[a3, a4], n] + S2[a1, SP[a2, a5], SP[a3, a4], 
     a6, n] + S2[a1, SP[a4, a5], a3, SP[a2, a6], n] + 
    S2[a1, SP[a4, a5], SP[a3, a6], a2, n] - S2[a2, a1, SP[a3, a5], 
     SP[a4, a6], n] - S2[a2, SP[a1, a3], a5, SP[a4, a6], n] - 
    S2[a2, SP[a1, a3], SP[a4, a5], a6, n] - S2[SP[a1, a2], a3, a5, 
     SP[a4, a6], n] - S2[SP[a1, a2], a3, SP[a4, a5], a6, n] + 
    S2[SP[a1, a2], a4, a5, SP[a3, a6], n] + S2[SP[a1, a2], a4, SP[a3, a5], 
     a6, n] - S2[SP[a1, a2], a5, a3, SP[a4, a6], n] + 
    S2[SP[a1, a2], a5, a4, SP[a3, a6], n] + S2[SP[a1, a2], a5, a6, 
     SP[a3, a4], n] + S2[SP[a1, a2], a5, SP[a3, a4], a6, n] + 
    S2[SP[a1, a2], SP[a3, a4], a5, a6, n] + S2[SP[a1, a5], a4, a3, 
     SP[a2, a6], n] + S2[SP[a1, a5], a4, SP[a3, a6], a2, n] + 
    S2[SP[a1, a5], SP[a4, a6], a3, a2, n] + S2[a1, a2, a3, a5, SP[a4, a6], 
     n] + S2[a1, a2, a3, SP[a4, a5], a6, n] - S2[a1, a2, a4, a5, SP[a3, a6], 
     n] - S2[a1, a2, a4, SP[a3, a5], a6, n] + S2[a1, a2, a5, a3, SP[a4, a6], 
     n] - S2[a1, a2, a5, a4, SP[a3, a6], n] - S2[a1, a2, a5, a6, SP[a3, a4], 
     n] - S2[a1, a2, a5, SP[a3, a4], a6, n] - S2[a1, a2, SP[a3, a4], a5, a6, 
     n] - S2[a1, a4, a2, a5, SP[a3, a6], n] - S2[a1, a4, a2, SP[a3, a5], a6, 
     n] - S2[a6, n]*S2[a1, a4, a3, a2, a5, n] + 
    S2[a5, n]*S2[a1, a4, a3, a2, a6, n] - 
    S2[a6, n]*S2[a1, a4, a3, a5, a2, n] + 
    S2[a2, n]*S2[a1, a4, a3, a5, a6, n] - S2[a1, a4, a3, a5, SP[a2, a6], n] + 
    S2[a5, n]*S2[a1, a4, a3, a6, a2, n] + S2[a1, a4, a3, a6, SP[a2, a5], n] + 
    S2[a1, a4, a3, SP[a2, a5], a6, n] - S2[a1, a4, a3, SP[a2, a6], a5, n] - 
    S2[a1, a4, a5, a2, SP[a3, a6], n] - S2[a6, n]*S2[a1, a4, a5, a3, a2, n] + 
    S2[a2, n]*S2[a1, a4, a5, a3, a6, n] - S2[a1, a4, a5, a3, SP[a2, a6], n] + 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] + S2[a1, a4, a5, a6, SP[a2, a3], n] + 
    S2[a1, a4, a5, SP[a2, a3], a6, n] - 2*S2[a1, a4, a5, SP[a3, a6], a2, n] + 
    S2[a5, n]*S2[a1, a4, a6, a3, a2, n] + S2[a1, a4, a6, a3, SP[a2, a5], n] + 
    S2[a1, a4, a6, SP[a3, a5], a2, n] + S2[a1, a4, SP[a2, a3], a5, a6, n] - 
    S2[a1, a4, SP[a3, a6], a2, a5, n] - S2[a1, a4, SP[a3, a6], a5, a2, n] + 
    S2[a1, a5, a2, a3, SP[a4, a6], n] - S2[a1, a5, a2, a4, SP[a3, a6], n] - 
    S2[a1, a5, a2, a6, SP[a3, a4], n] - S2[a1, a5, a2, SP[a3, a4], a6, n] - 
    S2[a1, a5, a4, a2, SP[a3, a6], n] - S2[a6, n]*S2[a1, a5, a4, a3, a2, n] + 
    S2[a2, n]*S2[a1, a5, a4, a3, a6, n] - S2[a1, a5, a4, a3, SP[a2, a6], n] + 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] + S2[a1, a5, a4, a6, SP[a2, a3], n] + 
    S2[a1, a5, a4, SP[a2, a3], a6, n] - 2*S2[a1, a5, a4, SP[a3, a6], a2, n] - 
    S2[a1, a5, a6, a2, SP[a3, a4], n] + S2[a2, n]*S2[a1, a5, a6, a4, a3, n] + 
    S2[a1, a5, a6, a4, SP[a2, a3], n] - 2*S2[a1, a5, SP[a4, a6], a3, a2, n] + 
    S2[a5, n]*S2[a1, a6, a4, a3, a2, n] + S2[a1, a6, a4, a3, SP[a2, a5], n] + 
    S2[a1, a6, a4, SP[a3, a5], a2, n] + S2[a1, a6, SP[a4, a5], a3, a2, n] - 
    S2[a1, SP[a4, a6], a3, a2, a5, n] - S2[a1, SP[a4, a6], a3, a5, a2, n] - 
    S2[a1, SP[a4, a6], a5, a3, a2, n] + S2[a2, a1, a3, a5, SP[a4, a6], n] + 
    S2[a2, a1, a3, SP[a4, a5], a6, n] - S2[a2, a1, a4, a5, SP[a3, a6], n] - 
    S2[a2, a1, a4, SP[a3, a5], a6, n] + S2[a2, a1, a5, a3, SP[a4, a6], n] - 
    S2[a2, a1, a5, a4, SP[a3, a6], n] - S2[a2, a1, a5, a6, SP[a3, a4], n] - 
    S2[a2, a1, a5, SP[a3, a4], a6, n] - S2[a2, a1, SP[a3, a4], a5, a6, n] + 
    S2[a2, a3, a1, a5, SP[a4, a6], n] + S2[a2, a3, a1, SP[a4, a5], a6, n] + 
    S2[a2, a3, SP[a1, a4], a5, a6, n] - S2[a5, a1, a4, a3, SP[a2, a6], n] - 
    S2[a5, a1, a4, SP[a3, a6], a2, n] - S2[a5, a1, SP[a4, a6], a3, a2, n] - 
    S2[a5, SP[a1, a6], a4, a3, a2, n] + S2[a5, n]*S2[a6, a1, a4, a3, a2, n] + 
    S2[a6, a1, a4, a3, SP[a2, a5], n] + S2[a6, a1, a4, SP[a3, a5], a2, n] + 
    S2[a6, a1, SP[a4, a5], a3, a2, n] + S2[a6, SP[a1, a5], a4, a3, a2, n] - 
    S2[SP[a1, a6], a4, a3, a2, a5, n] - S2[SP[a1, a6], a4, a3, a5, a2, n] - 
    S2[SP[a1, a6], a4, a5, a3, a2, n] - S2[SP[a1, a6], a5, a4, a3, a2, n] + 
    S2[SP[a5, a6], a1, a4, a3, a2, n] - S2[a6, a5, a1, a4, a3, a2, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a2_, a3_, a4_, a1_, a6_, a5_, n_] :> 
  S2[a1, a6, a5, n]*S2[a2, a3, a4, n] + S2[SP[a1, a2], SP[a3, a6], 
     SP[a4, a5], n] - S2[a1, a2, SP[a3, a6], SP[a4, a5], n] + 
    S2[a5, a6, n]*S2[a1, a4, a3, a2, n] - S2[a2, a3, n]*
     S2[a1, a4, a6, a5, n] + S2[a1, a4, SP[a2, a6], SP[a3, a5], n] - 
    S2[a1, a4, SP[a3, a5], SP[a2, a6], n] - S2[a2, a3, n]*
     S2[a1, a6, a4, a5, n] - S2[a2, a3, n]*S2[a1, a6, a5, a4, n] + 
    S2[a1, a6, SP[a2, a4], SP[a3, a5], n] + S2[a1, a6, SP[a2, a5], 
     SP[a3, a4], n] + S2[a1, SP[a2, a4], a6, SP[a3, a5], n] + 
    S2[a1, SP[a2, a4], SP[a3, a6], a5, n] - S2[a1, SP[a2, a6], a3, 
     SP[a4, a5], n] + S2[a1, SP[a2, a6], a4, SP[a3, a5], n] + 
    S2[a1, SP[a2, a6], a5, SP[a3, a4], n] + S2[a1, SP[a2, a6], SP[a3, a4], 
     a5, n] - S2[a1, SP[a4, a5], a3, SP[a2, a6], n] - 
    S2[a1, SP[a4, a5], SP[a3, a6], a2, n] - S2[a2, a1, SP[a3, a6], 
     SP[a4, a5], n] - S2[a2, SP[a1, a3], a6, SP[a4, a5], n] - 
    S2[a2, SP[a1, a3], SP[a4, a6], a5, n] - S2[SP[a1, a2], a3, a6, 
     SP[a4, a5], n] - S2[SP[a1, a2], a3, SP[a4, a6], a5, n] + 
    S2[SP[a1, a2], a4, a6, SP[a3, a5], n] + S2[SP[a1, a2], a4, SP[a3, a6], 
     a5, n] - S2[SP[a1, a2], a6, a3, SP[a4, a5], n] + 
    S2[SP[a1, a2], a6, a4, SP[a3, a5], n] + S2[SP[a1, a2], a6, a5, 
     SP[a3, a4], n] + S2[SP[a1, a2], a6, SP[a3, a4], a5, n] + 
    S2[SP[a1, a2], SP[a3, a4], a6, a5, n] - S2[SP[a1, a5], a4, a3, 
     SP[a2, a6], n] - S2[SP[a1, a5], a4, SP[a3, a6], a2, n] - 
    S2[SP[a1, a5], SP[a4, a6], a3, a2, n] + S2[a1, a2, a3, a6, SP[a4, a5], 
     n] + S2[a1, a2, a3, SP[a4, a6], a5, n] - S2[a1, a2, a4, a6, SP[a3, a5], 
     n] - S2[a1, a2, a4, SP[a3, a6], a5, n] + S2[a1, a2, a6, a3, SP[a4, a5], 
     n] - S2[a1, a2, a6, a4, SP[a3, a5], n] - S2[a1, a2, a6, a5, SP[a3, a4], 
     n] - S2[a1, a2, a6, SP[a3, a4], a5, n] - S2[a1, a2, SP[a3, a4], a6, a5, 
     n] - S2[a1, a4, a2, a6, SP[a3, a5], n] - S2[a1, a4, a2, SP[a3, a6], a5, 
     n] - S2[a5, n]*S2[a1, a4, a3, a2, a6, n] - S2[a1, a4, a3, a2, 
     SP[a5, a6], n] + S2[a1, a4, a3, a5, SP[a2, a6], n] - 
    S2[a5, n]*S2[a1, a4, a3, a6, a2, n] + 
    S2[a2, n]*S2[a1, a4, a3, a6, a5, n] + S2[a1, a4, a3, SP[a2, a6], a5, n] - 
    S2[a1, a4, a3, SP[a5, a6], a2, n] + S2[a1, a4, a5, a3, SP[a2, a6], n] + 
    S2[a1, a4, a5, SP[a3, a6], a2, n] - S2[a1, a4, a6, a2, SP[a3, a5], n] - 
    S2[a5, n]*S2[a1, a4, a6, a3, a2, n] + 
    S2[a2, n]*S2[a1, a4, a6, a3, a5, n] + 
    S2[a2, n]*S2[a1, a4, a6, a5, a3, n] + S2[a1, a4, a6, a5, SP[a2, a3], n] + 
    S2[a1, a4, a6, SP[a2, a3], a5, n] - S2[a1, a4, a6, SP[a3, a5], a2, n] + 
    S2[a1, a4, SP[a2, a3], a6, a5, n] - S2[a1, a4, SP[a5, a6], a3, a2, n] + 
    S2[a1, a5, a4, a3, SP[a2, a6], n] + S2[a1, a5, a4, SP[a3, a6], a2, n] + 
    S2[a1, a5, SP[a4, a6], a3, a2, n] + S2[a1, a6, a2, a3, SP[a4, a5], n] - 
    S2[a1, a6, a2, a4, SP[a3, a5], n] - S2[a1, a6, a2, a5, SP[a3, a4], n] - 
    S2[a1, a6, a2, SP[a3, a4], a5, n] - S2[a1, a6, a4, a2, SP[a3, a5], n] - 
    S2[a5, n]*S2[a1, a6, a4, a3, a2, n] + 
    S2[a2, n]*S2[a1, a6, a4, a3, a5, n] + 
    S2[a2, n]*S2[a1, a6, a4, a5, a3, n] + S2[a1, a6, a4, a5, SP[a2, a3], n] + 
    S2[a1, a6, a4, SP[a2, a3], a5, n] - S2[a1, a6, a4, SP[a3, a5], a2, n] - 
    S2[a1, a6, a5, a2, SP[a3, a4], n] + S2[a2, n]*S2[a1, a6, a5, a4, a3, n] + 
    S2[a1, a6, a5, a4, SP[a2, a3], n] - S2[a1, a6, SP[a4, a5], a3, a2, n] - 
    S2[a1, SP[a5, a6], a4, a3, a2, n] + S2[a2, a1, a3, a6, SP[a4, a5], n] + 
    S2[a2, a1, a3, SP[a4, a6], a5, n] - S2[a2, a1, a4, a6, SP[a3, a5], n] - 
    S2[a2, a1, a4, SP[a3, a6], a5, n] + S2[a2, a1, a6, a3, SP[a4, a5], n] - 
    S2[a2, a1, a6, a4, SP[a3, a5], n] - S2[a2, a1, a6, a5, SP[a3, a4], n] - 
    S2[a2, a1, a6, SP[a3, a4], a5, n] - S2[a2, a1, SP[a3, a4], a6, a5, n] + 
    S2[a2, a3, a1, a6, SP[a4, a5], n] + S2[a2, a3, a1, SP[a4, a6], a5, n] + 
    S2[a2, a3, SP[a1, a4], a6, a5, n] + S2[a5, a1, a4, a3, SP[a2, a6], n] + 
    S2[a5, a1, a4, SP[a3, a6], a2, n] + S2[a5, a1, SP[a4, a6], a3, a2, n] + 
    S2[a5, SP[a1, a6], a4, a3, a2, n] - S2[a5, n]*S2[a6, a1, a4, a3, a2, n] - 
    S2[a6, a1, a4, a3, SP[a2, a5], n] - S2[a6, a1, a4, SP[a3, a5], a2, n] - 
    S2[a6, a1, SP[a4, a5], a3, a2, n] - S2[a6, SP[a1, a5], a4, a3, a2, n] - 
    S2[SP[a5, a6], a1, a4, a3, a2, n] + S2[a6, a1, a4, a3, a2, a5, n] + 
    S2[a6, a1, a4, a3, a5, a2, n] + S2[a6, a1, a4, a5, a3, a2, n] + 
    S2[a6, a1, a5, a4, a3, a2, n] + S2[a6, a5, a1, a4, a3, a2, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a2_, a3_, a4_, a5_, a1_, a6_, n_] :> 
  -(S2[a1, a5, a6, n]*S2[a2, a3, a4, n]) - S2[a1, a6, a5, n]*
     S2[a2, a3, a4, n] - S2[SP[a1, a2], SP[a3, a5], SP[a4, a6], n] - 
    S2[SP[a1, a2], SP[a3, a6], SP[a4, a5], n] + S2[a1, a2, SP[a3, a5], 
     SP[a4, a6], n] + S2[a1, a2, SP[a3, a6], SP[a4, a5], n] + 
    S2[a2, a3, n]*S2[a1, a5, a4, a6, n] + S2[a2, a3, n]*
     S2[a1, a5, a6, a4, n] - S2[a1, a5, SP[a2, a4], SP[a3, a6], n] - 
    S2[a1, a5, SP[a2, a6], SP[a3, a4], n] + S2[a2, a3, n]*
     S2[a1, a6, a5, a4, n] - S2[a1, a6, SP[a2, a5], SP[a3, a4], n] + 
    S2[a1, SP[a2, a5], a3, SP[a4, a6], n] - S2[a1, SP[a2, a5], a4, 
     SP[a3, a6], n] - S2[a1, SP[a2, a5], a6, SP[a3, a4], n] - 
    S2[a1, SP[a2, a5], SP[a3, a4], a6, n] + S2[a1, SP[a2, a6], a3, 
     SP[a4, a5], n] - S2[a1, SP[a2, a6], a5, SP[a3, a4], n] + 
    S2[a2, a1, SP[a3, a5], SP[a4, a6], n] + S2[a2, a1, SP[a3, a6], 
     SP[a4, a5], n] + S2[a1, a6, n]*S2[a2, a3, a4, a5, n] - 
    S2[a2, a3, SP[a1, a4], SP[a5, a6], n] - S2[a2, SP[a1, a3], a4, 
     SP[a5, a6], n] + S2[a2, SP[a1, a3], a5, SP[a4, a6], n] + 
    S2[a2, SP[a1, a3], a6, SP[a4, a5], n] + S2[a2, SP[a1, a3], SP[a4, a5], 
     a6, n] - S2[SP[a1, a2], a3, a4, SP[a5, a6], n] + 
    S2[SP[a1, a2], a3, a5, SP[a4, a6], n] + S2[SP[a1, a2], a3, a6, 
     SP[a4, a5], n] + S2[SP[a1, a2], a3, SP[a4, a5], a6, n] + 
    S2[SP[a1, a2], a5, a3, SP[a4, a6], n] - S2[SP[a1, a2], a5, a4, 
     SP[a3, a6], n] - S2[SP[a1, a2], a5, a6, SP[a3, a4], n] - 
    S2[SP[a1, a2], a5, SP[a3, a4], a6, n] + S2[SP[a1, a2], a6, a3, 
     SP[a4, a5], n] - S2[SP[a1, a2], a6, a5, SP[a3, a4], n] + 
    S2[a1, a2, a3, a4, SP[a5, a6], n] - S2[a1, a2, a3, a5, SP[a4, a6], n] - 
    S2[a1, a2, a3, a6, SP[a4, a5], n] - S2[a1, a2, a3, SP[a4, a5], a6, n] - 
    S2[a1, a2, a5, a3, SP[a4, a6], n] + S2[a1, a2, a5, a4, SP[a3, a6], n] + 
    S2[a1, a2, a5, a6, SP[a3, a4], n] + S2[a1, a2, a5, SP[a3, a4], a6, n] - 
    S2[a1, a2, a6, a3, SP[a4, a5], n] + S2[a1, a2, a6, a5, SP[a3, a4], n] - 
    S2[a1, a5, a2, a3, SP[a4, a6], n] + S2[a1, a5, a2, a4, SP[a3, a6], n] + 
    S2[a1, a5, a2, a6, SP[a3, a4], n] + S2[a1, a5, a2, SP[a3, a4], a6, n] + 
    S2[a1, a5, a4, a2, SP[a3, a6], n] + S2[a6, n]*S2[a1, a5, a4, a3, a2, n] - 
    S2[a2, n]*S2[a1, a5, a4, a3, a6, n] - 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] - S2[a1, a5, a4, a6, SP[a2, a3], n] - 
    S2[a1, a5, a4, SP[a2, a3], a6, n] + S2[a1, a5, a4, SP[a3, a6], a2, n] + 
    S2[a1, a5, a6, a2, SP[a3, a4], n] - S2[a2, n]*S2[a1, a5, a6, a4, a3, n] - 
    S2[a1, a5, a6, a4, SP[a2, a3], n] + S2[a1, a5, SP[a4, a6], a3, a2, n] - 
    S2[a1, a6, a2, a3, SP[a4, a5], n] + S2[a1, a6, a2, a5, SP[a3, a4], n] + 
    S2[a1, a6, a5, a2, SP[a3, a4], n] - S2[a2, n]*S2[a1, a6, a5, a4, a3, n] - 
    S2[a1, a6, a5, a4, SP[a2, a3], n] + S2[a1, SP[a5, a6], a4, a3, a2, n] + 
    S2[a2, a1, a3, a4, SP[a5, a6], n] - S2[a2, a1, a3, a5, SP[a4, a6], n] - 
    S2[a2, a1, a3, a6, SP[a4, a5], n] - S2[a2, a1, a3, SP[a4, a5], a6, n] - 
    S2[a2, a1, a5, a3, SP[a4, a6], n] + S2[a2, a1, a5, a4, SP[a3, a6], n] + 
    S2[a2, a1, a5, a6, SP[a3, a4], n] + S2[a2, a1, a5, SP[a3, a4], a6, n] - 
    S2[a2, a1, a6, a3, SP[a4, a5], n] + S2[a2, a1, a6, a5, SP[a3, a4], n] + 
    S2[a2, a3, a1, a4, SP[a5, a6], n] - S2[a2, a3, a1, a5, SP[a4, a6], n] - 
    S2[a2, a3, a1, a6, SP[a4, a5], n] - S2[a2, a3, a1, SP[a4, a5], a6, n] + 
    S2[a2, a3, a4, a1, SP[a5, a6], n] + S2[a2, a3, a4, SP[a1, a5], a6, n] + 
    S2[SP[a1, a6], a5, a4, a3, a2, n] - S2[a6, a1, a5, a4, a3, a2, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a2_, a3_, a4_, a5_, a6_, a1_, n_] :> 
  S2[a1, a6, a5, n]*S2[a2, a3, a4, n] + S2[SP[a1, a2], SP[a3, a6], 
     SP[a4, a5], n] - S2[a1, a2, SP[a3, a6], SP[a4, a5], n] - 
    S2[a2, a3, n]*S2[a1, a6, a5, a4, n] + S2[a1, a6, SP[a2, a5], SP[a3, a4], 
     n] - S2[a1, SP[a2, a6], a3, SP[a4, a5], n] + S2[a1, SP[a2, a6], a5, 
     SP[a3, a4], n] - S2[a2, a1, SP[a3, a6], SP[a4, a5], n] - 
    S2[a1, a6, n]*S2[a2, a3, a4, a5, n] + S2[a2, a3, SP[a1, a4], SP[a5, a6], 
     n] + S2[a2, SP[a1, a3], a4, SP[a5, a6], n] - S2[a2, SP[a1, a3], a6, 
     SP[a4, a5], n] + S2[SP[a1, a2], a3, a4, SP[a5, a6], n] - 
    S2[SP[a1, a2], a3, a6, SP[a4, a5], n] - S2[SP[a1, a2], a6, a3, 
     SP[a4, a5], n] + S2[SP[a1, a2], a6, a5, SP[a3, a4], n] - 
    S2[a1, a2, a3, a4, SP[a5, a6], n] + S2[a1, a2, a3, a6, SP[a4, a5], n] + 
    S2[a1, a2, a6, a3, SP[a4, a5], n] - S2[a1, a2, a6, a5, SP[a3, a4], n] + 
    S2[a1, a6, a2, a3, SP[a4, a5], n] - S2[a1, a6, a2, a5, SP[a3, a4], n] - 
    S2[a1, a6, a5, a2, SP[a3, a4], n] + S2[a2, n]*S2[a1, a6, a5, a4, a3, n] + 
    S2[a1, a6, a5, a4, SP[a2, a3], n] - S2[a2, a1, a3, a4, SP[a5, a6], n] + 
    S2[a2, a1, a3, a6, SP[a4, a5], n] + S2[a2, a1, a6, a3, SP[a4, a5], n] - 
    S2[a2, a1, a6, a5, SP[a3, a4], n] - S2[a2, a3, a1, a4, SP[a5, a6], n] + 
    S2[a2, a3, a1, a6, SP[a4, a5], n] - S2[a2, a3, a4, a1, SP[a5, a6], n] + 
    S2[a1, n]*S2[a2, a3, a4, a5, a6, n] + S2[a2, a3, a4, a5, SP[a1, a6], n] - 
    S2[a1, n]*S2[a6, a5, a4, a3, a2, n] - S2[a6, a5, a4, a3, SP[a1, a2], n] - 
    S2[a6, a5, a4, SP[a1, a3], a2, n] - S2[a6, a5, SP[a1, a4], a3, a2, n] - 
    S2[a6, SP[a1, a5], a4, a3, a2, n] - S2[SP[a1, a6], a5, a4, a3, a2, n] + 
    S2[a6, a1, a5, a4, a3, a2, n] + S2[a6, a5, a1, a4, a3, a2, n] + 
    S2[a6, a5, a4, a1, a3, a2, n] + S2[a6, a5, a4, a3, a1, a2, n] + 
    S2[a6, a5, a4, a3, a2, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a2_, a3_, a4_, a6_, a1_, a5_, n_] :> 
  -(S2[a1, a5, a6, n]*S2[a2, a3, a4, n]) - S2[a1, a6, a5, n]*
     S2[a2, a3, a4, n] - S2[SP[a1, a2], SP[a3, a5], SP[a4, a6], n] - 
    S2[SP[a1, a2], SP[a3, a6], SP[a4, a5], n] + S2[a1, a2, SP[a3, a5], 
     SP[a4, a6], n] + S2[a1, a2, SP[a3, a6], SP[a4, a5], n] + 
    S2[a2, a3, n]*S2[a1, a5, a6, a4, n] - S2[a1, a5, SP[a2, a6], SP[a3, a4], 
     n] + S2[a2, a3, n]*S2[a1, a6, a4, a5, n] + 
    S2[a2, a3, n]*S2[a1, a6, a5, a4, n] - S2[a1, a6, SP[a2, a4], SP[a3, a5], 
     n] - S2[a1, a6, SP[a2, a5], SP[a3, a4], n] + S2[a1, SP[a2, a5], a3, 
     SP[a4, a6], n] - S2[a1, SP[a2, a5], a6, SP[a3, a4], n] + 
    S2[a1, SP[a2, a6], a3, SP[a4, a5], n] - S2[a1, SP[a2, a6], a4, 
     SP[a3, a5], n] - S2[a1, SP[a2, a6], a5, SP[a3, a4], n] - 
    S2[a1, SP[a2, a6], SP[a3, a4], a5, n] + S2[a2, a1, SP[a3, a5], 
     SP[a4, a6], n] + S2[a2, a1, SP[a3, a6], SP[a4, a5], n] - 
    S2[a1, a5, n]*S2[a2, a3, a6, a4, n] + S2[a2, a3, SP[a1, a6], SP[a4, a5], 
     n] - S2[a1, a5, n]*S2[a2, a6, a3, a4, n] - 
    S2[a1, a5, n]*S2[a2, a6, a4, a3, n] + S2[a2, a6, SP[a1, a3], SP[a4, a5], 
     n] + S2[a2, a6, SP[a1, a4], SP[a3, a5], n] + S2[a2, SP[a1, a3], a5, 
     SP[a4, a6], n] + 2*S2[a2, SP[a1, a3], a6, SP[a4, a5], n] + 
    S2[a2, SP[a1, a3], SP[a4, a5], a6, n] + S2[a2, SP[a1, a3], SP[a4, a6], 
     a5, n] + S2[a2, SP[a1, a3], SP[a5, a6], a4, n] + 
    S2[a2, SP[a1, a6], a3, SP[a4, a5], n] + S2[a2, SP[a1, a6], a4, 
     SP[a3, a5], n] + S2[a2, SP[a1, a6], SP[a3, a5], a4, n] + 
    S2[a2, SP[a1, a6], SP[a4, a5], a3, n] + S2[a1, a5, n]*
     S2[a4, a6, a2, a3, n] - S2[a4, a6, SP[a1, a2], SP[a3, a5], n] - 
    S2[a4, SP[a1, a6], a2, SP[a3, a5], n] - S2[a4, SP[a1, a6], SP[a2, a5], 
     a3, n] + S2[SP[a1, a2], a3, a5, SP[a4, a6], n] + 
    2*S2[SP[a1, a2], a3, a6, SP[a4, a5], n] + S2[SP[a1, a2], a3, SP[a4, a5], 
     a6, n] + S2[SP[a1, a2], a3, SP[a4, a6], a5, n] + 
    S2[SP[a1, a2], a3, SP[a5, a6], a4, n] + S2[SP[a1, a2], a5, a3, 
     SP[a4, a6], n] - S2[SP[a1, a2], a5, a6, SP[a3, a4], n] + 
    2*S2[SP[a1, a2], a6, a3, SP[a4, a5], n] - S2[SP[a1, a2], a6, a5, 
     SP[a3, a4], n] - S2[SP[a1, a2], a6, SP[a3, a4], a5, n] + 
    S2[SP[a1, a2], a6, SP[a3, a5], a4, n] + S2[SP[a1, a2], a6, SP[a4, a5], 
     a3, n] + S2[SP[a1, a2], SP[a3, a5], a4, a6, n] + 
    S2[SP[a1, a2], SP[a3, a5], a6, a4, n] + S2[SP[a1, a2], SP[a5, a6], a3, 
     a4, n] + S2[SP[a1, a2], SP[a5, a6], a4, a3, n] - 
    S2[SP[a1, a4], a6, a2, SP[a3, a5], n] - S2[SP[a1, a4], a6, SP[a2, a5], 
     a3, n] - S2[SP[a1, a4], SP[a5, a6], a2, a3, n] - 
    S2[a1, a2, a3, a5, SP[a4, a6], n] - 2*S2[a1, a2, a3, a6, SP[a4, a5], n] - 
    S2[a1, a2, a3, SP[a4, a5], a6, n] - S2[a1, a2, a3, SP[a4, a6], a5, n] - 
    S2[a1, a2, a3, SP[a5, a6], a4, n] - S2[a1, a2, a5, a3, SP[a4, a6], n] + 
    S2[a1, a2, a5, a6, SP[a3, a4], n] - 2*S2[a1, a2, a6, a3, SP[a4, a5], n] + 
    S2[a1, a2, a6, a5, SP[a3, a4], n] + S2[a1, a2, a6, SP[a3, a4], a5, n] - 
    S2[a1, a2, a6, SP[a3, a5], a4, n] - S2[a1, a2, a6, SP[a4, a5], a3, n] - 
    S2[a1, a2, SP[a3, a5], a4, a6, n] - S2[a1, a2, SP[a3, a5], a6, a4, n] - 
    S2[a1, a2, SP[a5, a6], a3, a4, n] - S2[a1, a2, SP[a5, a6], a4, a3, n] - 
    S2[a6, n]*S2[a1, a3, a2, a4, a5, n] - S2[a1, a3, a2, a4, SP[a5, a6], n] - 
    S2[a6, n]*S2[a1, a3, a2, a5, a4, n] - S2[a1, a3, a2, a5, SP[a4, a6], n] - 
    S2[a1, a3, a2, SP[a4, a6], a5, n] - S2[a1, a3, a2, SP[a5, a6], a4, n] - 
    S2[a6, n]*S2[a1, a3, a4, a2, a5, n] - S2[a1, a3, a4, a2, SP[a5, a6], n] - 
    S2[a6, n]*S2[a1, a3, a4, a5, a2, n] + 
    S2[a2, n]*S2[a1, a3, a4, a5, a6, n] + 
    S2[a2, n]*S2[a1, a3, a4, a6, a5, n] + S2[a1, a3, a4, a6, SP[a2, a5], n] + 
    S2[a1, a3, a4, SP[a2, a5], a6, n] - S2[a1, a3, a4, SP[a5, a6], a2, n] - 
    S2[a6, n]*S2[a1, a3, a5, a2, a4, n] - S2[a1, a3, a5, a2, SP[a4, a6], n] - 
    S2[a6, n]*S2[a1, a3, a5, a4, a2, n] + 
    S2[a2, n]*S2[a1, a3, a5, a4, a6, n] + 
    S2[a2, n]*S2[a1, a3, a5, a6, a4, n] + S2[a1, a3, a5, a6, SP[a2, a4], n] + 
    S2[a1, a3, a5, SP[a2, a4], a6, n] - S2[a1, a3, a5, SP[a4, a6], a2, n] + 
    S2[a2, n]*S2[a1, a3, a6, a4, a5, n] + S2[a1, a3, a6, a4, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a3, a6, a5, a4, n] + S2[a1, a3, a6, a5, SP[a2, a4], n] + 
    S2[a1, a3, a6, SP[a2, a4], a5, n] + S2[a1, a3, a6, SP[a2, a5], a4, n] + 
    S2[a1, a3, SP[a2, a4], a5, a6, n] + S2[a1, a3, SP[a2, a4], a6, a5, n] + 
    S2[a1, a3, SP[a2, a5], a4, a6, n] + S2[a1, a3, SP[a2, a5], a6, a4, n] - 
    S2[a1, a3, SP[a4, a6], a2, a5, n] - S2[a1, a3, SP[a4, a6], a5, a2, n] - 
    S2[a1, a3, SP[a5, a6], a2, a4, n] - S2[a1, a3, SP[a5, a6], a4, a2, n] + 
    S2[a1, a4, a6, a2, SP[a3, a5], n] + S2[a1, a4, a6, SP[a2, a5], a3, n] + 
    S2[a1, a4, SP[a5, a6], a2, a3, n] - S2[a1, a5, a2, a3, SP[a4, a6], n] + 
    S2[a1, a5, a2, a6, SP[a3, a4], n] - S2[a6, n]*S2[a1, a5, a3, a2, a4, n] - 
    S2[a1, a5, a3, a2, SP[a4, a6], n] - S2[a6, n]*S2[a1, a5, a3, a4, a2, n] + 
    S2[a2, n]*S2[a1, a5, a3, a4, a6, n] + 
    S2[a2, n]*S2[a1, a5, a3, a6, a4, n] + S2[a1, a5, a3, a6, SP[a2, a4], n] + 
    S2[a1, a5, a3, SP[a2, a4], a6, n] - S2[a1, a5, a3, SP[a4, a6], a2, n] - 
    S2[a4, n]*S2[a1, a5, a6, a2, a3, n] + 
    S2[a2, n]*S2[a1, a5, a6, a3, a4, n] + S2[a1, a5, a6, a3, SP[a2, a4], n] + 
    S2[a1, a5, a6, SP[a2, a3], a4, n] + S2[a1, a5, SP[a2, a3], a4, a6, n] + 
    S2[a1, a5, SP[a2, a3], a6, a4, n] + S2[a1, a5, SP[a2, a6], a3, a4, n] + 
    S2[a1, a5, SP[a2, a6], a4, a3, n] - S2[a1, a5, SP[a3, a6], a2, a4, n] - 
    S2[a1, a5, SP[a3, a6], a4, a2, n] - S2[a1, a5, SP[a4, a6], a2, a3, n] - 
    S2[a4, n]*S2[a1, a6, a2, a3, a5, n] - 
    2*S2[a1, a6, a2, a3, SP[a4, a5], n] + S2[a1, a6, a2, a4, SP[a3, a5], n] - 
    S2[a4, n]*S2[a1, a6, a2, a5, a3, n] - S2[a1, a6, a2, SP[a4, a5], a3, n] + 
    S2[a2, n]*S2[a1, a6, a3, a4, a5, n] + S2[a1, a6, a3, a4, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a6, a3, a5, a4, n] + S2[a1, a6, a3, a5, SP[a2, a4], n] + 
    S2[a1, a6, a3, SP[a2, a4], a5, n] + S2[a1, a6, a3, SP[a2, a5], a4, n] + 
    S2[a1, a6, a4, a2, SP[a3, a5], n] + S2[a1, a6, a4, SP[a2, a5], a3, n] - 
    S2[a4, n]*S2[a1, a6, a5, a2, a3, n] + 
    S2[a2, n]*S2[a1, a6, a5, a3, a4, n] + S2[a1, a6, a5, a3, SP[a2, a4], n] + 
    S2[a1, a6, a5, SP[a2, a3], a4, n] + S2[a1, a6, SP[a2, a3], a4, a5, n] + 
    S2[a1, a6, SP[a2, a3], a5, a4, n] + S2[a1, a6, SP[a2, a5], a3, a4, n] + 
    S2[a1, a6, SP[a2, a5], a4, a3, n] - S2[a1, a6, SP[a4, a5], a2, a3, n] + 
    S2[a1, SP[a2, a3], a4, a5, a6, n] + S2[a1, SP[a2, a3], a4, a6, a5, n] + 
    S2[a1, SP[a2, a3], a5, a4, a6, n] + S2[a1, SP[a2, a3], a5, a6, a4, n] + 
    S2[a1, SP[a2, a3], a6, a4, a5, n] + S2[a1, SP[a2, a3], a6, a5, a4, n] + 
    S2[a1, SP[a2, a6], a3, a4, a5, n] + S2[a1, SP[a2, a6], a3, a5, a4, n] + 
    S2[a1, SP[a2, a6], a4, a3, a5, n] + S2[a1, SP[a2, a6], a4, a5, a3, n] + 
    S2[a1, SP[a2, a6], a5, a3, a4, n] + S2[a1, SP[a2, a6], a5, a4, a3, n] - 
    S2[a1, SP[a3, a6], a2, a4, a5, n] - S2[a1, SP[a3, a6], a2, a5, a4, n] - 
    S2[a1, SP[a3, a6], a4, a2, a5, n] - S2[a1, SP[a3, a6], a4, a5, a2, n] - 
    S2[a1, SP[a3, a6], a5, a2, a4, n] - S2[a1, SP[a3, a6], a5, a4, a2, n] - 
    S2[a1, SP[a4, a6], a2, a3, a5, n] - S2[a1, SP[a4, a6], a2, a5, a3, n] - 
    S2[a1, SP[a4, a6], a5, a2, a3, n] - S2[a1, SP[a5, a6], a3, a2, a4, n] - 
    S2[a1, SP[a5, a6], a3, a4, a2, n] - S2[a2, a1, a3, a5, SP[a4, a6], n] - 
    2*S2[a2, a1, a3, a6, SP[a4, a5], n] - S2[a2, a1, a3, SP[a4, a5], a6, n] - 
    S2[a2, a1, a3, SP[a4, a6], a5, n] - S2[a2, a1, a3, SP[a5, a6], a4, n] - 
    S2[a2, a1, a5, a3, SP[a4, a6], n] + S2[a2, a1, a5, a6, SP[a3, a4], n] - 
    2*S2[a2, a1, a6, a3, SP[a4, a5], n] + S2[a2, a1, a6, a5, SP[a3, a4], n] + 
    S2[a2, a1, a6, SP[a3, a4], a5, n] - S2[a2, a1, a6, SP[a3, a5], a4, n] - 
    S2[a2, a1, a6, SP[a4, a5], a3, n] - S2[a2, a1, SP[a3, a5], a4, a6, n] - 
    S2[a2, a1, SP[a3, a5], a6, a4, n] - S2[a2, a1, SP[a5, a6], a3, a4, n] - 
    S2[a2, a1, SP[a5, a6], a4, a3, n] + S2[a6, n]*S2[a2, a3, a1, a4, a5, n] + 
    S2[a2, a3, a1, a4, SP[a5, a6], n] + S2[a6, n]*S2[a2, a3, a1, a5, a4, n] - 
    2*S2[a2, a3, a1, a6, SP[a4, a5], n] - S2[a2, a3, a1, SP[a4, a5], a6, n] + 
    S2[a6, n]*S2[a2, a3, a4, a1, a5, n] + S2[a2, a3, a4, a1, SP[a5, a6], n] + 
    S2[a2, a3, a4, SP[a1, a6], a5, n] - S2[a2, a3, a6, a1, SP[a4, a5], n] - 
    S2[a2, a3, a6, SP[a1, a4], a5, n] - S2[a2, a3, SP[a1, a4], a5, a6, n] - 
    S2[a2, a3, SP[a1, a4], a6, a5, n] + S2[a2, a3, SP[a4, a6], a1, a5, n] + 
    S2[a4, n]*S2[a2, a6, a1, a3, a5, n] - S2[a2, a6, a1, a4, SP[a3, a5], n] + 
    S2[a4, n]*S2[a2, a6, a1, a5, a3, n] + S2[a2, a6, a1, a5, SP[a3, a4], n] + 
    S2[a2, a6, a1, SP[a3, a4], a5, n] - S2[a2, a6, a1, SP[a3, a5], a4, n] - 
    S2[a2, a6, a3, a1, SP[a4, a5], n] - S2[a2, a6, a3, SP[a1, a4], a5, n] - 
    S2[a2, a6, a4, a1, SP[a3, a5], n] - S2[a2, a6, a4, SP[a1, a3], a5, n] - 
    S2[a2, a6, SP[a1, a3], a4, a5, n] - S2[a2, a6, SP[a1, a3], a5, a4, n] - 
    S2[a2, SP[a1, a3], a4, a5, a6, n] - S2[a2, SP[a1, a3], a4, a6, a5, n] - 
    S2[a2, SP[a1, a3], a5, a4, a6, n] - S2[a2, SP[a1, a3], a5, a6, a4, n] - 
    S2[a2, SP[a1, a3], a6, a4, a5, n] - S2[a2, SP[a1, a3], a6, a5, a4, n] - 
    S2[a2, SP[a1, a6], a3, a4, a5, n] - S2[a2, SP[a1, a6], a3, a5, a4, n] - 
    S2[a2, SP[a1, a6], a4, a3, a5, n] - S2[a2, SP[a1, a6], a4, a5, a3, n] - 
    S2[a2, SP[a1, a6], a5, a3, a4, n] - S2[a2, SP[a1, a6], a5, a4, a3, n] + 
    S2[a2, SP[a3, a6], a1, a4, a5, n] + S2[a2, SP[a3, a6], a1, a5, a4, n] + 
    S2[a2, SP[a3, a6], a4, a1, a5, n] + S2[a2, SP[a4, a6], a1, a3, a5, n] + 
    S2[a2, SP[a4, a6], a1, a5, a3, n] + S2[a4, a1, a6, a2, SP[a3, a5], n] + 
    S2[a4, a1, a6, SP[a2, a5], a3, n] + S2[a4, a1, SP[a5, a6], a2, a3, n] + 
    S2[a4, a6, a1, a2, SP[a3, a5], n] - S2[a2, n]*S2[a4, a6, a1, a3, a5, n] - 
    S2[a4, a6, a1, a3, SP[a2, a5], n] - S2[a2, n]*S2[a4, a6, a1, a5, a3, n] - 
    S2[a4, a6, a1, a5, SP[a2, a3], n] - S2[a4, a6, a1, SP[a2, a3], a5, n] + 
    S2[a4, a6, a2, a1, SP[a3, a5], n] + S2[a4, a6, a2, SP[a1, a3], a5, n] + 
    S2[a4, SP[a1, a6], a2, a3, a5, n] + S2[a4, SP[a1, a6], a2, a5, a3, n] + 
    S2[a4, SP[a1, a6], a5, a2, a3, n] - S2[a4, SP[a2, a6], a1, a3, a5, n] - 
    S2[a4, SP[a2, a6], a1, a5, a3, n] + S2[a4, n]*S2[a6, a1, a3, a2, a5, n] + 
    S2[a6, a1, a3, a2, SP[a4, a5], n] + S2[a4, n]*S2[a6, a1, a3, a5, a2, n] + 
    S2[a6, a1, a3, a5, SP[a2, a4], n] + S2[a6, a1, a3, SP[a2, a4], a5, n] + 
    S2[a6, a1, a3, SP[a4, a5], a2, n] + S2[a4, n]*S2[a6, a1, a5, a3, a2, n] + 
    S2[a6, a1, a5, a3, SP[a2, a4], n] + S2[a6, a1, a5, SP[a3, a4], a2, n] + 
    S2[a6, a1, SP[a3, a4], a2, a5, n] + S2[a6, a1, SP[a3, a4], a5, a2, n] + 
    S2[a6, a1, SP[a4, a5], a3, a2, n] - S2[a4, n]*S2[a6, a2, a3, a1, a5, n] - 
    S2[a6, a2, a3, a1, SP[a4, a5], n] - S2[a6, a2, a3, SP[a1, a4], a5, n] - 
    S2[a6, a2, SP[a3, a4], a1, a5, n] + S2[a2, n]*S2[a6, a4, a3, a1, a5, n] + 
    S2[a6, a4, a3, a1, SP[a2, a5], n] + S2[a6, a4, a3, SP[a1, a2], a5, n] + 
    S2[a6, a4, SP[a2, a3], a1, a5, n] + S2[a6, SP[a1, a4], a3, a2, a5, n] + 
    S2[a6, SP[a1, a4], a3, a5, a2, n] + S2[a6, SP[a1, a4], a5, a3, a2, n] - 
    S2[SP[a1, a6], a3, a2, a4, a5, n] - S2[SP[a1, a6], a3, a2, a5, a4, n] - 
    S2[SP[a1, a6], a3, a4, a2, a5, n] - S2[SP[a1, a6], a3, a4, a5, a2, n] - 
    S2[SP[a1, a6], a3, a5, a2, a4, n] - S2[SP[a1, a6], a3, a5, a4, a2, n] - 
    S2[SP[a1, a6], a5, a3, a2, a4, n] - S2[SP[a1, a6], a5, a3, a4, a2, n] + 
    S2[SP[a2, a6], a3, a1, a4, a5, n] + S2[SP[a2, a6], a3, a1, a5, a4, n] + 
    S2[SP[a2, a6], a3, a4, a1, a5, n] + S2[SP[a2, a6], a4, a3, a1, a5, n] + 
    S2[SP[a4, a6], a1, a3, a2, a5, n] + S2[SP[a4, a6], a1, a3, a5, a2, n] + 
    S2[SP[a4, a6], a1, a5, a3, a2, n] - S2[SP[a4, a6], a2, a3, a1, a5, n] - 
    S2[a6, a1, a4, a3, a2, a5, n] - S2[a6, a1, a4, a3, a5, a2, n] - 
    S2[a6, a1, a4, a5, a3, a2, n] - S2[a6, a1, a5, a4, a3, a2, n] - 
    S2[a6, a4, a1, a3, a2, a5, n] - S2[a6, a4, a1, a3, a5, a2, n] - 
    S2[a6, a4, a1, a5, a3, a2, n] - S2[a6, a4, a3, a1, a2, a5, n] - 
    S2[a6, a4, a3, a1, a5, a2, n] - S2[a6, a4, a3, a2, a1, a5, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a2_, a3_, a4_, a6_, a5_, a1_, n_] :> 
  S2[a1, a5, a6, n]*S2[a2, a3, a4, n] + S2[SP[a1, a2], SP[a3, a5], 
     SP[a4, a6], n] - S2[a1, a2, SP[a3, a5], SP[a4, a6], n] - 
    S2[a2, a3, n]*S2[a1, a5, a6, a4, n] + S2[a1, a5, SP[a2, a6], SP[a3, a4], 
     n] - S2[a1, SP[a2, a5], a3, SP[a4, a6], n] + S2[a1, SP[a2, a5], a6, 
     SP[a3, a4], n] - S2[a2, a1, SP[a3, a5], SP[a4, a6], n] + 
    S2[a1, a5, n]*S2[a2, a3, a6, a4, n] - S2[a2, a3, SP[a1, a6], SP[a4, a5], 
     n] + S2[a1, a5, n]*S2[a2, a6, a3, a4, n] + 
    S2[a1, a5, n]*S2[a2, a6, a4, a3, n] - S2[a2, a6, SP[a1, a3], SP[a4, a5], 
     n] - S2[a2, a6, SP[a1, a4], SP[a3, a5], n] - S2[a2, SP[a1, a3], a5, 
     SP[a4, a6], n] - S2[a2, SP[a1, a3], a6, SP[a4, a5], n] - 
    S2[a2, SP[a1, a3], SP[a4, a5], a6, n] - S2[a2, SP[a1, a3], SP[a5, a6], 
     a4, n] - S2[a2, SP[a1, a6], a3, SP[a4, a5], n] - 
    S2[a2, SP[a1, a6], a4, SP[a3, a5], n] - S2[a2, SP[a1, a6], SP[a3, a5], 
     a4, n] - S2[a2, SP[a1, a6], SP[a4, a5], a3, n] - 
    S2[a1, a5, n]*S2[a4, a6, a2, a3, n] + S2[a4, a6, SP[a1, a2], SP[a3, a5], 
     n] + S2[a4, SP[a1, a6], a2, SP[a3, a5], n] + 
    S2[a4, SP[a1, a6], SP[a2, a5], a3, n] - S2[SP[a1, a2], a3, a5, 
     SP[a4, a6], n] - S2[SP[a1, a2], a3, a6, SP[a4, a5], n] - 
    S2[SP[a1, a2], a3, SP[a4, a5], a6, n] - S2[SP[a1, a2], a3, SP[a5, a6], 
     a4, n] - S2[SP[a1, a2], a5, a3, SP[a4, a6], n] + 
    S2[SP[a1, a2], a5, a6, SP[a3, a4], n] - S2[SP[a1, a2], a6, a3, 
     SP[a4, a5], n] - S2[SP[a1, a2], a6, a4, SP[a3, a5], n] - 
    S2[SP[a1, a2], a6, SP[a3, a5], a4, n] - S2[SP[a1, a2], a6, SP[a4, a5], 
     a3, n] - S2[SP[a1, a2], SP[a3, a5], a4, a6, n] - 
    S2[SP[a1, a2], SP[a3, a5], a6, a4, n] - S2[SP[a1, a2], SP[a5, a6], a3, 
     a4, n] - S2[SP[a1, a2], SP[a5, a6], a4, a3, n] + 
    S2[SP[a1, a4], a6, a2, SP[a3, a5], n] + S2[SP[a1, a4], a6, SP[a2, a5], 
     a3, n] + S2[SP[a1, a4], SP[a5, a6], a2, a3, n] + 
    S2[a1, a2, a3, a5, SP[a4, a6], n] + S2[a1, a2, a3, a6, SP[a4, a5], n] + 
    S2[a1, a2, a3, SP[a4, a5], a6, n] + S2[a1, a2, a3, SP[a5, a6], a4, n] + 
    S2[a1, a2, a5, a3, SP[a4, a6], n] - S2[a1, a2, a5, a6, SP[a3, a4], n] + 
    S2[a1, a2, a6, a3, SP[a4, a5], n] + S2[a1, a2, a6, a4, SP[a3, a5], n] + 
    S2[a1, a2, a6, SP[a3, a5], a4, n] + S2[a1, a2, a6, SP[a4, a5], a3, n] + 
    S2[a1, a2, SP[a3, a5], a4, a6, n] + S2[a1, a2, SP[a3, a5], a6, a4, n] + 
    S2[a1, a2, SP[a5, a6], a3, a4, n] + S2[a1, a2, SP[a5, a6], a4, a3, n] + 
    S2[a6, n]*S2[a1, a3, a2, a4, a5, n] + S2[a1, a3, a2, a4, SP[a5, a6], n] + 
    S2[a6, n]*S2[a1, a3, a2, a5, a4, n] + S2[a1, a3, a2, a5, SP[a4, a6], n] + 
    S2[a1, a3, a2, SP[a4, a6], a5, n] + S2[a1, a3, a2, SP[a5, a6], a4, n] + 
    S2[a6, n]*S2[a1, a3, a4, a2, a5, n] + S2[a1, a3, a4, a2, SP[a5, a6], n] + 
    S2[a6, n]*S2[a1, a3, a4, a5, a2, n] - 
    S2[a2, n]*S2[a1, a3, a4, a5, a6, n] - 
    S2[a2, n]*S2[a1, a3, a4, a6, a5, n] - S2[a1, a3, a4, a6, SP[a2, a5], n] - 
    S2[a1, a3, a4, SP[a2, a5], a6, n] + S2[a1, a3, a4, SP[a5, a6], a2, n] + 
    S2[a6, n]*S2[a1, a3, a5, a2, a4, n] + S2[a1, a3, a5, a2, SP[a4, a6], n] + 
    S2[a6, n]*S2[a1, a3, a5, a4, a2, n] - 
    S2[a2, n]*S2[a1, a3, a5, a4, a6, n] - 
    S2[a2, n]*S2[a1, a3, a5, a6, a4, n] - S2[a1, a3, a5, a6, SP[a2, a4], n] - 
    S2[a1, a3, a5, SP[a2, a4], a6, n] + S2[a1, a3, a5, SP[a4, a6], a2, n] - 
    S2[a2, n]*S2[a1, a3, a6, a4, a5, n] - S2[a1, a3, a6, a4, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a3, a6, a5, a4, n] - S2[a1, a3, a6, a5, SP[a2, a4], n] - 
    S2[a1, a3, a6, SP[a2, a4], a5, n] - S2[a1, a3, a6, SP[a2, a5], a4, n] - 
    S2[a1, a3, SP[a2, a4], a5, a6, n] - S2[a1, a3, SP[a2, a4], a6, a5, n] - 
    S2[a1, a3, SP[a2, a5], a4, a6, n] - S2[a1, a3, SP[a2, a5], a6, a4, n] + 
    S2[a1, a3, SP[a4, a6], a2, a5, n] + S2[a1, a3, SP[a4, a6], a5, a2, n] + 
    S2[a1, a3, SP[a5, a6], a2, a4, n] + S2[a1, a3, SP[a5, a6], a4, a2, n] - 
    S2[a1, a4, a6, a2, SP[a3, a5], n] - S2[a1, a4, a6, SP[a2, a5], a3, n] - 
    S2[a1, a4, SP[a5, a6], a2, a3, n] + S2[a1, a5, a2, a3, SP[a4, a6], n] - 
    S2[a1, a5, a2, a6, SP[a3, a4], n] + S2[a6, n]*S2[a1, a5, a3, a2, a4, n] + 
    S2[a1, a5, a3, a2, SP[a4, a6], n] + S2[a6, n]*S2[a1, a5, a3, a4, a2, n] - 
    S2[a2, n]*S2[a1, a5, a3, a4, a6, n] - 
    S2[a2, n]*S2[a1, a5, a3, a6, a4, n] - S2[a1, a5, a3, a6, SP[a2, a4], n] - 
    S2[a1, a5, a3, SP[a2, a4], a6, n] + S2[a1, a5, a3, SP[a4, a6], a2, n] + 
    S2[a4, n]*S2[a1, a5, a6, a2, a3, n] - 
    S2[a2, n]*S2[a1, a5, a6, a3, a4, n] - S2[a1, a5, a6, a3, SP[a2, a4], n] - 
    S2[a1, a5, a6, SP[a2, a3], a4, n] - S2[a1, a5, SP[a2, a3], a4, a6, n] - 
    S2[a1, a5, SP[a2, a3], a6, a4, n] - S2[a1, a5, SP[a2, a6], a3, a4, n] - 
    S2[a1, a5, SP[a2, a6], a4, a3, n] + S2[a1, a5, SP[a3, a6], a2, a4, n] + 
    S2[a1, a5, SP[a3, a6], a4, a2, n] + S2[a1, a5, SP[a4, a6], a2, a3, n] + 
    S2[a4, n]*S2[a1, a6, a2, a3, a5, n] + S2[a1, a6, a2, a3, SP[a4, a5], n] + 
    S2[a4, n]*S2[a1, a6, a2, a5, a3, n] + S2[a1, a6, a2, a5, SP[a3, a4], n] + 
    S2[a1, a6, a2, SP[a3, a4], a5, n] + S2[a1, a6, a2, SP[a4, a5], a3, n] - 
    S2[a2, n]*S2[a1, a6, a3, a4, a5, n] - S2[a1, a6, a3, a4, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a6, a3, a5, a4, n] - S2[a1, a6, a3, a5, SP[a2, a4], n] - 
    S2[a1, a6, a3, SP[a2, a4], a5, n] - S2[a1, a6, a3, SP[a2, a5], a4, n] - 
    S2[a2, n]*S2[a1, a6, a4, a3, a5, n] - S2[a1, a6, a4, a3, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a6, a4, a5, a3, n] - S2[a1, a6, a4, a5, SP[a2, a3], n] - 
    S2[a1, a6, a4, SP[a2, a3], a5, n] - S2[a1, a6, a4, SP[a2, a5], a3, n] + 
    S2[a4, n]*S2[a1, a6, a5, a2, a3, n] + S2[a1, a6, a5, a2, SP[a3, a4], n] - 
    S2[a2, n]*S2[a1, a6, a5, a3, a4, n] - S2[a1, a6, a5, a3, SP[a2, a4], n] - 
    S2[a2, n]*S2[a1, a6, a5, a4, a3, n] - S2[a1, a6, a5, a4, SP[a2, a3], n] - 
    S2[a1, a6, a5, SP[a2, a3], a4, n] - S2[a1, a6, SP[a2, a3], a4, a5, n] - 
    S2[a1, a6, SP[a2, a3], a5, a4, n] - S2[a1, a6, SP[a2, a5], a3, a4, n] - 
    S2[a1, a6, SP[a2, a5], a4, a3, n] + S2[a1, a6, SP[a4, a5], a2, a3, n] - 
    S2[a1, SP[a2, a3], a4, a5, a6, n] - S2[a1, SP[a2, a3], a4, a6, a5, n] - 
    S2[a1, SP[a2, a3], a5, a4, a6, n] - S2[a1, SP[a2, a3], a5, a6, a4, n] - 
    S2[a1, SP[a2, a3], a6, a4, a5, n] - S2[a1, SP[a2, a3], a6, a5, a4, n] - 
    S2[a1, SP[a2, a6], a3, a4, a5, n] - S2[a1, SP[a2, a6], a3, a5, a4, n] - 
    S2[a1, SP[a2, a6], a4, a3, a5, n] - S2[a1, SP[a2, a6], a4, a5, a3, n] - 
    S2[a1, SP[a2, a6], a5, a3, a4, n] - S2[a1, SP[a2, a6], a5, a4, a3, n] + 
    S2[a1, SP[a3, a6], a2, a4, a5, n] + S2[a1, SP[a3, a6], a2, a5, a4, n] + 
    S2[a1, SP[a3, a6], a4, a2, a5, n] + S2[a1, SP[a3, a6], a4, a5, a2, n] + 
    S2[a1, SP[a3, a6], a5, a2, a4, n] + S2[a1, SP[a3, a6], a5, a4, a2, n] + 
    S2[a1, SP[a4, a6], a2, a3, a5, n] + S2[a1, SP[a4, a6], a2, a5, a3, n] + 
    S2[a1, SP[a4, a6], a5, a2, a3, n] + S2[a1, SP[a5, a6], a3, a2, a4, n] + 
    S2[a1, SP[a5, a6], a3, a4, a2, n] + S2[a2, a1, a3, a5, SP[a4, a6], n] + 
    S2[a2, a1, a3, a6, SP[a4, a5], n] + S2[a2, a1, a3, SP[a4, a5], a6, n] + 
    S2[a2, a1, a3, SP[a5, a6], a4, n] + S2[a2, a1, a5, a3, SP[a4, a6], n] - 
    S2[a2, a1, a5, a6, SP[a3, a4], n] + S2[a2, a1, a6, a3, SP[a4, a5], n] + 
    S2[a2, a1, a6, a4, SP[a3, a5], n] + S2[a2, a1, a6, SP[a3, a5], a4, n] + 
    S2[a2, a1, a6, SP[a4, a5], a3, n] + S2[a2, a1, SP[a3, a5], a4, a6, n] + 
    S2[a2, a1, SP[a3, a5], a6, a4, n] + S2[a2, a1, SP[a5, a6], a3, a4, n] + 
    S2[a2, a1, SP[a5, a6], a4, a3, n] - S2[a6, n]*S2[a2, a3, a1, a4, a5, n] - 
    S2[a2, a3, a1, a4, SP[a5, a6], n] - S2[a6, n]*S2[a2, a3, a1, a5, a4, n] + 
    S2[a2, a3, a1, a6, SP[a4, a5], n] + S2[a2, a3, a1, SP[a4, a5], a6, n] - 
    S2[a2, a3, a1, SP[a4, a6], a5, n] - S2[a6, n]*S2[a2, a3, a4, a1, a5, n] - 
    S2[a2, a3, a4, a1, SP[a5, a6], n] + S2[a1, n]*S2[a2, a3, a4, a6, a5, n] + 
    S2[a2, a3, a4, a6, SP[a1, a5], n] + S2[a2, a3, a6, a1, SP[a4, a5], n] + 
    S2[a2, a3, a6, SP[a1, a4], a5, n] + S2[a2, a3, SP[a1, a4], a5, a6, n] + 
    S2[a2, a3, SP[a1, a4], a6, a5, n] - S2[a2, a3, SP[a4, a6], a1, a5, n] - 
    S2[a4, n]*S2[a2, a6, a1, a3, a5, n] + S2[a2, a6, a1, a4, SP[a3, a5], n] - 
    S2[a4, n]*S2[a2, a6, a1, a5, a3, n] - S2[a2, a6, a1, a5, SP[a3, a4], n] - 
    S2[a2, a6, a1, SP[a3, a4], a5, n] + S2[a2, a6, a1, SP[a3, a5], a4, n] + 
    S2[a2, a6, a3, a1, SP[a4, a5], n] + S2[a2, a6, a3, SP[a1, a4], a5, n] + 
    S2[a2, a6, a4, a1, SP[a3, a5], n] + S2[a2, a6, a4, SP[a1, a3], a5, n] + 
    S2[a2, a6, SP[a1, a3], a4, a5, n] + S2[a2, a6, SP[a1, a3], a5, a4, n] + 
    S2[a2, SP[a1, a3], a4, a5, a6, n] + S2[a2, SP[a1, a3], a4, a6, a5, n] + 
    S2[a2, SP[a1, a3], a5, a4, a6, n] + S2[a2, SP[a1, a3], a5, a6, a4, n] + 
    S2[a2, SP[a1, a3], a6, a4, a5, n] + S2[a2, SP[a1, a3], a6, a5, a4, n] + 
    S2[a2, SP[a1, a6], a3, a4, a5, n] + S2[a2, SP[a1, a6], a3, a5, a4, n] + 
    S2[a2, SP[a1, a6], a4, a3, a5, n] + S2[a2, SP[a1, a6], a4, a5, a3, n] + 
    S2[a2, SP[a1, a6], a5, a3, a4, n] + S2[a2, SP[a1, a6], a5, a4, a3, n] - 
    S2[a2, SP[a3, a6], a1, a4, a5, n] - S2[a2, SP[a3, a6], a1, a5, a4, n] - 
    S2[a2, SP[a3, a6], a4, a1, a5, n] - S2[a2, SP[a4, a6], a1, a3, a5, n] - 
    S2[a2, SP[a4, a6], a1, a5, a3, n] - S2[a4, a1, a6, a2, SP[a3, a5], n] - 
    S2[a4, a1, a6, SP[a2, a5], a3, n] - S2[a4, a1, SP[a5, a6], a2, a3, n] - 
    S2[a4, a6, a1, a2, SP[a3, a5], n] + S2[a2, n]*S2[a4, a6, a1, a3, a5, n] + 
    S2[a4, a6, a1, a3, SP[a2, a5], n] + S2[a2, n]*S2[a4, a6, a1, a5, a3, n] + 
    S2[a4, a6, a1, a5, SP[a2, a3], n] + S2[a4, a6, a1, SP[a2, a3], a5, n] - 
    S2[a4, a6, a2, a1, SP[a3, a5], n] - S2[a4, a6, a2, SP[a1, a3], a5, n] - 
    S2[a4, SP[a1, a6], a2, a3, a5, n] - S2[a4, SP[a1, a6], a2, a5, a3, n] - 
    S2[a4, SP[a1, a6], a5, a2, a3, n] + S2[a4, SP[a2, a6], a1, a3, a5, n] + 
    S2[a4, SP[a2, a6], a1, a5, a3, n] - S2[a4, n]*S2[a6, a1, a3, a2, a5, n] - 
    S2[a6, a1, a3, a2, SP[a4, a5], n] - S2[a4, n]*S2[a6, a1, a3, a5, a2, n] - 
    S2[a6, a1, a3, a5, SP[a2, a4], n] - S2[a6, a1, a3, SP[a2, a4], a5, n] - 
    S2[a6, a1, a3, SP[a4, a5], a2, n] - S2[a4, n]*S2[a6, a1, a5, a3, a2, n] - 
    S2[a6, a1, a5, a3, SP[a2, a4], n] - S2[a6, a1, a5, SP[a3, a4], a2, n] - 
    S2[a6, a1, SP[a3, a4], a2, a5, n] - S2[a6, a1, SP[a3, a4], a5, a2, n] - 
    S2[a6, a1, SP[a4, a5], a3, a2, n] + S2[a4, n]*S2[a6, a2, a3, a1, a5, n] + 
    S2[a6, a2, a3, a1, SP[a4, a5], n] + S2[a6, a2, a3, SP[a1, a4], a5, n] + 
    S2[a6, a2, SP[a3, a4], a1, a5, n] - S2[a2, n]*S2[a6, a4, a3, a1, a5, n] - 
    S2[a6, a4, a3, a1, SP[a2, a5], n] + S2[a1, n]*S2[a6, a4, a3, a2, a5, n] + 
    S2[a6, a4, a3, a2, SP[a1, a5], n] + S2[a1, n]*S2[a6, a4, a3, a5, a2, n] + 
    S2[a6, a4, a3, a5, SP[a1, a2], n] + S2[a6, a4, a3, SP[a1, a5], a2, n] + 
    S2[a1, n]*S2[a6, a4, a5, a3, a2, n] + S2[a6, a4, a5, a3, SP[a1, a2], n] + 
    S2[a6, a4, a5, SP[a1, a3], a2, n] + S2[a6, a4, SP[a1, a3], a2, a5, n] + 
    S2[a6, a4, SP[a1, a3], a5, a2, n] + S2[a6, a4, SP[a1, a5], a3, a2, n] - 
    S2[a6, a4, SP[a2, a3], a1, a5, n] + S2[a1, n]*S2[a6, a5, a4, a3, a2, n] + 
    S2[a6, a5, a4, a3, SP[a1, a2], n] + S2[a6, a5, a4, SP[a1, a3], a2, n] + 
    S2[a6, a5, SP[a1, a4], a3, a2, n] + S2[a6, SP[a1, a5], a4, a3, a2, n] + 
    S2[SP[a1, a6], a3, a2, a4, a5, n] + S2[SP[a1, a6], a3, a2, a5, a4, n] + 
    S2[SP[a1, a6], a3, a4, a2, a5, n] + S2[SP[a1, a6], a3, a4, a5, a2, n] + 
    S2[SP[a1, a6], a3, a5, a2, a4, n] + S2[SP[a1, a6], a3, a5, a4, a2, n] + 
    S2[SP[a1, a6], a4, a3, a2, a5, n] + S2[SP[a1, a6], a4, a3, a5, a2, n] + 
    S2[SP[a1, a6], a4, a5, a3, a2, n] + S2[SP[a1, a6], a5, a3, a2, a4, n] + 
    S2[SP[a1, a6], a5, a3, a4, a2, n] + S2[SP[a1, a6], a5, a4, a3, a2, n] - 
    S2[SP[a2, a6], a3, a1, a4, a5, n] - S2[SP[a2, a6], a3, a1, a5, a4, n] - 
    S2[SP[a2, a6], a3, a4, a1, a5, n] - S2[SP[a2, a6], a4, a3, a1, a5, n] - 
    S2[SP[a4, a6], a1, a3, a2, a5, n] - S2[SP[a4, a6], a1, a3, a5, a2, n] - 
    S2[SP[a4, a6], a1, a5, a3, a2, n] + S2[SP[a4, a6], a2, a3, a1, a5, n] - 
    S2[a6, a4, a3, a2, a5, a1, n] - S2[a6, a4, a3, a5, a1, a2, n] - 
    S2[a6, a4, a3, a5, a2, a1, n] - S2[a6, a4, a5, a1, a3, a2, n] - 
    S2[a6, a4, a5, a3, a1, a2, n] - S2[a6, a4, a5, a3, a2, a1, n] - 
    S2[a6, a5, a1, a4, a3, a2, n] - S2[a6, a5, a4, a1, a3, a2, n] - 
    S2[a6, a5, a4, a3, a1, a2, n] - S2[a6, a5, a4, a3, a2, a1, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a2_, a3_, a5_, a1_, a4_, a6_, n_] :> 
  S2[a1, a4, a6, n]*S2[a2, a3, a5, n] + S2[SP[a1, a2], SP[a3, a4], 
     SP[a5, a6], n] - S2[a1, a2, SP[a3, a4], SP[a5, a6], n] - 
    S2[a2, a3, n]*S2[a1, a4, a5, a6, n] - S2[a2, a3, n]*
     S2[a1, a4, a6, a5, n] + S2[a1, a4, SP[a2, a5], SP[a3, a6], n] + 
    S2[a1, a4, SP[a2, a6], SP[a3, a5], n] - S2[a4, a6, n]*
     S2[a1, a5, a3, a2, n] - S2[a2, a3, n]*S2[a1, a5, a4, a6, n] + 
    S2[a1, a5, SP[a2, a4], SP[a3, a6], n] + S2[a1, a5, SP[a3, a4], 
     SP[a2, a6], n] - S2[a1, SP[a2, a4], a3, SP[a5, a6], n] + 
    S2[a1, SP[a2, a4], a5, SP[a3, a6], n] + S2[a1, SP[a2, a4], a6, 
     SP[a3, a5], n] + S2[a1, SP[a2, a4], SP[a3, a5], a6, n] + 
    S2[a1, SP[a2, a5], a4, SP[a3, a6], n] + S2[a1, SP[a2, a5], SP[a3, a4], 
     a6, n] + S2[a1, SP[a4, a5], a3, SP[a2, a6], n] + 
    S2[a1, SP[a4, a5], SP[a3, a6], a2, n] - S2[a2, a1, SP[a3, a4], 
     SP[a5, a6], n] - S2[a2, SP[a1, a3], a4, SP[a5, a6], n] - 
    S2[a2, SP[a1, a3], SP[a4, a5], a6, n] - S2[SP[a1, a2], a3, a4, 
     SP[a5, a6], n] - S2[SP[a1, a2], a3, SP[a4, a5], a6, n] - 
    S2[SP[a1, a2], a4, a3, SP[a5, a6], n] + S2[SP[a1, a2], a4, a5, 
     SP[a3, a6], n] + S2[SP[a1, a2], a4, a6, SP[a3, a5], n] + 
    S2[SP[a1, a2], a4, SP[a3, a5], a6, n] + S2[SP[a1, a2], a5, a4, 
     SP[a3, a6], n] + S2[SP[a1, a2], a5, SP[a3, a4], a6, n] + 
    S2[SP[a1, a2], SP[a3, a5], a4, a6, n] + S2[SP[a1, a4], a5, a3, 
     SP[a2, a6], n] + S2[SP[a1, a4], a5, SP[a3, a6], a2, n] + 
    S2[SP[a1, a4], SP[a5, a6], a3, a2, n] + S2[a1, a2, a3, a4, SP[a5, a6], 
     n] + S2[a1, a2, a3, SP[a4, a5], a6, n] + S2[a1, a2, a4, a3, SP[a5, a6], 
     n] - S2[a1, a2, a4, a5, SP[a3, a6], n] - S2[a1, a2, a4, a6, SP[a3, a5], 
     n] - S2[a1, a2, a4, SP[a3, a5], a6, n] - S2[a1, a2, a5, a4, SP[a3, a6], 
     n] - S2[a1, a2, a5, SP[a3, a4], a6, n] - S2[a1, a2, SP[a3, a5], a4, a6, 
     n] + S2[a1, a4, a2, a3, SP[a5, a6], n] - S2[a1, a4, a2, a5, SP[a3, a6], 
     n] - S2[a1, a4, a2, a6, SP[a3, a5], n] - S2[a1, a4, a2, SP[a3, a5], a6, 
     n] - S2[a1, a4, a5, a2, SP[a3, a6], n] - 
    S2[a6, n]*S2[a1, a4, a5, a3, a2, n] + 
    S2[a2, n]*S2[a1, a4, a5, a3, a6, n] - S2[a1, a4, a5, a3, SP[a2, a6], n] + 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] + S2[a1, a4, a5, a6, SP[a2, a3], n] + 
    S2[a1, a4, a5, SP[a2, a3], a6, n] - 2*S2[a1, a4, a5, SP[a3, a6], a2, n] - 
    S2[a1, a4, a6, a2, SP[a3, a5], n] + S2[a2, n]*S2[a1, a4, a6, a5, a3, n] + 
    S2[a1, a4, a6, a5, SP[a2, a3], n] - 2*S2[a1, a4, SP[a5, a6], a3, a2, n] - 
    S2[a1, a5, a2, a4, SP[a3, a6], n] - S2[a1, a5, a2, SP[a3, a4], a6, n] - 
    S2[a6, n]*S2[a1, a5, a3, a2, a4, n] + 
    S2[a4, n]*S2[a1, a5, a3, a2, a6, n] - 
    S2[a6, n]*S2[a1, a5, a3, a4, a2, n] + 
    S2[a2, n]*S2[a1, a5, a3, a4, a6, n] - S2[a1, a5, a3, a4, SP[a2, a6], n] + 
    S2[a4, n]*S2[a1, a5, a3, a6, a2, n] + S2[a1, a5, a3, a6, SP[a2, a4], n] + 
    S2[a1, a5, a3, SP[a2, a4], a6, n] - S2[a1, a5, a3, SP[a2, a6], a4, n] - 
    S2[a1, a5, a4, a2, SP[a3, a6], n] - S2[a6, n]*S2[a1, a5, a4, a3, a2, n] + 
    S2[a2, n]*S2[a1, a5, a4, a3, a6, n] - S2[a1, a5, a4, a3, SP[a2, a6], n] + 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] + S2[a1, a5, a4, a6, SP[a2, a3], n] + 
    S2[a1, a5, a4, SP[a2, a3], a6, n] - 2*S2[a1, a5, a4, SP[a3, a6], a2, n] + 
    S2[a4, n]*S2[a1, a5, a6, a3, a2, n] + S2[a1, a5, a6, a3, SP[a2, a4], n] + 
    S2[a1, a5, a6, SP[a3, a4], a2, n] + S2[a1, a5, SP[a2, a3], a4, a6, n] - 
    S2[a1, a5, SP[a3, a6], a2, a4, n] - S2[a1, a5, SP[a3, a6], a4, a2, n] + 
    S2[a4, n]*S2[a1, a6, a5, a3, a2, n] + S2[a1, a6, a5, a3, SP[a2, a4], n] + 
    S2[a1, a6, a5, SP[a3, a4], a2, n] + S2[a1, a6, SP[a4, a5], a3, a2, n] - 
    S2[a1, SP[a5, a6], a3, a2, a4, n] - S2[a1, SP[a5, a6], a3, a4, a2, n] - 
    S2[a1, SP[a5, a6], a4, a3, a2, n] + S2[a2, a1, a3, a4, SP[a5, a6], n] + 
    S2[a2, a1, a3, SP[a4, a5], a6, n] + S2[a2, a1, a4, a3, SP[a5, a6], n] - 
    S2[a2, a1, a4, a5, SP[a3, a6], n] - S2[a2, a1, a4, a6, SP[a3, a5], n] - 
    S2[a2, a1, a4, SP[a3, a5], a6, n] - S2[a2, a1, a5, a4, SP[a3, a6], n] - 
    S2[a2, a1, a5, SP[a3, a4], a6, n] - S2[a2, a1, SP[a3, a5], a4, a6, n] + 
    S2[a2, a3, a1, a4, SP[a5, a6], n] + S2[a2, a3, a1, SP[a4, a5], a6, n] + 
    S2[a2, a3, SP[a1, a5], a4, a6, n] - S2[a4, a1, a5, a3, SP[a2, a6], n] - 
    S2[a4, a1, a5, SP[a3, a6], a2, n] - S2[a4, a1, SP[a5, a6], a3, a2, n] - 
    S2[a4, SP[a1, a6], a5, a3, a2, n] + S2[a4, n]*S2[a6, a1, a5, a3, a2, n] + 
    S2[a6, a1, a5, a3, SP[a2, a4], n] + S2[a6, a1, a5, SP[a3, a4], a2, n] + 
    S2[a6, a1, SP[a4, a5], a3, a2, n] + S2[a6, SP[a1, a4], a5, a3, a2, n] - 
    S2[SP[a1, a6], a4, a5, a3, a2, n] - S2[SP[a1, a6], a5, a3, a2, a4, n] - 
    S2[SP[a1, a6], a5, a3, a4, a2, n] - S2[SP[a1, a6], a5, a4, a3, a2, n] + 
    S2[SP[a4, a6], a1, a5, a3, a2, n] - S2[a6, a4, a1, a5, a3, a2, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a2_, a3_, a5_, a1_, a6_, a4_, n_] :> 
  S2[a1, a6, a4, n]*S2[a2, a3, a5, n] + S2[SP[a1, a2], SP[a3, a6], 
     SP[a4, a5], n] - S2[a1, a2, SP[a3, a6], SP[a4, a5], n] + 
    S2[a4, a6, n]*S2[a1, a5, a3, a2, n] - S2[a2, a3, n]*
     S2[a1, a5, a6, a4, n] + S2[a1, a5, SP[a2, a6], SP[a3, a4], n] - 
    S2[a1, a5, SP[a3, a4], SP[a2, a6], n] - S2[a2, a3, n]*
     S2[a1, a6, a4, a5, n] - S2[a2, a3, n]*S2[a1, a6, a5, a4, n] + 
    S2[a1, a6, SP[a2, a4], SP[a3, a5], n] + S2[a1, a6, SP[a2, a5], 
     SP[a3, a4], n] + S2[a1, SP[a2, a5], a6, SP[a3, a4], n] + 
    S2[a1, SP[a2, a5], SP[a3, a6], a4, n] - S2[a1, SP[a2, a6], a3, 
     SP[a4, a5], n] + S2[a1, SP[a2, a6], a4, SP[a3, a5], n] + 
    S2[a1, SP[a2, a6], a5, SP[a3, a4], n] + S2[a1, SP[a2, a6], SP[a3, a5], 
     a4, n] - S2[a1, SP[a4, a5], a3, SP[a2, a6], n] - 
    S2[a1, SP[a4, a5], SP[a3, a6], a2, n] - S2[a2, a1, SP[a3, a6], 
     SP[a4, a5], n] - S2[a2, SP[a1, a3], a6, SP[a4, a5], n] - 
    S2[a2, SP[a1, a3], SP[a5, a6], a4, n] - S2[SP[a1, a2], a3, a6, 
     SP[a4, a5], n] - S2[SP[a1, a2], a3, SP[a5, a6], a4, n] + 
    S2[SP[a1, a2], a5, a6, SP[a3, a4], n] + S2[SP[a1, a2], a5, SP[a3, a6], 
     a4, n] - S2[SP[a1, a2], a6, a3, SP[a4, a5], n] + 
    S2[SP[a1, a2], a6, a4, SP[a3, a5], n] + S2[SP[a1, a2], a6, a5, 
     SP[a3, a4], n] + S2[SP[a1, a2], a6, SP[a3, a5], a4, n] + 
    S2[SP[a1, a2], SP[a3, a5], a6, a4, n] - S2[SP[a1, a4], a5, a3, 
     SP[a2, a6], n] - S2[SP[a1, a4], a5, SP[a3, a6], a2, n] - 
    S2[SP[a1, a4], SP[a5, a6], a3, a2, n] + S2[a1, a2, a3, a6, SP[a4, a5], 
     n] + S2[a1, a2, a3, SP[a5, a6], a4, n] - S2[a1, a2, a5, a6, SP[a3, a4], 
     n] - S2[a1, a2, a5, SP[a3, a6], a4, n] + S2[a1, a2, a6, a3, SP[a4, a5], 
     n] - S2[a1, a2, a6, a4, SP[a3, a5], n] - S2[a1, a2, a6, a5, SP[a3, a4], 
     n] - S2[a1, a2, a6, SP[a3, a5], a4, n] - S2[a1, a2, SP[a3, a5], a6, a4, 
     n] + S2[a1, a4, a5, a3, SP[a2, a6], n] + S2[a1, a4, a5, SP[a3, a6], a2, 
     n] + S2[a1, a4, SP[a5, a6], a3, a2, n] - S2[a1, a5, a2, a6, SP[a3, a4], 
     n] - S2[a1, a5, a2, SP[a3, a6], a4, n] - 
    S2[a4, n]*S2[a1, a5, a3, a2, a6, n] - S2[a1, a5, a3, a2, SP[a4, a6], n] + 
    S2[a1, a5, a3, a4, SP[a2, a6], n] - S2[a4, n]*S2[a1, a5, a3, a6, a2, n] + 
    S2[a2, n]*S2[a1, a5, a3, a6, a4, n] + S2[a1, a5, a3, SP[a2, a6], a4, n] - 
    S2[a1, a5, a3, SP[a4, a6], a2, n] + S2[a1, a5, a4, a3, SP[a2, a6], n] + 
    S2[a1, a5, a4, SP[a3, a6], a2, n] - S2[a1, a5, a6, a2, SP[a3, a4], n] - 
    S2[a4, n]*S2[a1, a5, a6, a3, a2, n] + 
    S2[a2, n]*S2[a1, a5, a6, a3, a4, n] + 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] + S2[a1, a5, a6, a4, SP[a2, a3], n] + 
    S2[a1, a5, a6, SP[a2, a3], a4, n] - S2[a1, a5, a6, SP[a3, a4], a2, n] + 
    S2[a1, a5, SP[a2, a3], a6, a4, n] - S2[a1, a5, SP[a4, a6], a3, a2, n] + 
    S2[a1, a6, a2, a3, SP[a4, a5], n] - S2[a1, a6, a2, a4, SP[a3, a5], n] - 
    S2[a1, a6, a2, a5, SP[a3, a4], n] - S2[a1, a6, a2, SP[a3, a5], a4, n] - 
    S2[a1, a6, a4, a2, SP[a3, a5], n] + S2[a2, n]*S2[a1, a6, a4, a5, a3, n] + 
    S2[a1, a6, a4, a5, SP[a2, a3], n] - S2[a1, a6, a5, a2, SP[a3, a4], n] - 
    S2[a4, n]*S2[a1, a6, a5, a3, a2, n] + 
    S2[a2, n]*S2[a1, a6, a5, a3, a4, n] + 
    S2[a2, n]*S2[a1, a6, a5, a4, a3, n] + S2[a1, a6, a5, a4, SP[a2, a3], n] + 
    S2[a1, a6, a5, SP[a2, a3], a4, n] - S2[a1, a6, a5, SP[a3, a4], a2, n] - 
    S2[a1, a6, SP[a4, a5], a3, a2, n] - S2[a1, SP[a4, a6], a5, a3, a2, n] + 
    S2[a2, a1, a3, a6, SP[a4, a5], n] + S2[a2, a1, a3, SP[a5, a6], a4, n] - 
    S2[a2, a1, a5, a6, SP[a3, a4], n] - S2[a2, a1, a5, SP[a3, a6], a4, n] + 
    S2[a2, a1, a6, a3, SP[a4, a5], n] - S2[a2, a1, a6, a4, SP[a3, a5], n] - 
    S2[a2, a1, a6, a5, SP[a3, a4], n] - S2[a2, a1, a6, SP[a3, a5], a4, n] - 
    S2[a2, a1, SP[a3, a5], a6, a4, n] + S2[a2, a3, a1, a6, SP[a4, a5], n] + 
    S2[a2, a3, a1, SP[a5, a6], a4, n] + S2[a2, a3, SP[a1, a5], a6, a4, n] + 
    S2[a4, a1, a5, a3, SP[a2, a6], n] + S2[a4, a1, a5, SP[a3, a6], a2, n] + 
    S2[a4, a1, SP[a5, a6], a3, a2, n] + S2[a4, SP[a1, a6], a5, a3, a2, n] - 
    S2[a4, n]*S2[a6, a1, a5, a3, a2, n] - S2[a6, a1, a5, a3, SP[a2, a4], n] - 
    S2[a6, a1, a5, SP[a3, a4], a2, n] - S2[a6, a1, SP[a4, a5], a3, a2, n] - 
    S2[a6, SP[a1, a4], a5, a3, a2, n] - S2[SP[a4, a6], a1, a5, a3, a2, n] + 
    S2[a6, a1, a4, a5, a3, a2, n] + S2[a6, a1, a5, a3, a2, a4, n] + 
    S2[a6, a1, a5, a3, a4, a2, n] + S2[a6, a1, a5, a4, a3, a2, n] + 
    S2[a6, a4, a1, a5, a3, a2, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a2_, a3_, a5_, a4_, a1_, a6_, n_] :> 
  -(S2[a1, a4, a6, n]*S2[a2, a3, a5, n]) - S2[a1, a6, a4, n]*
     S2[a2, a3, a5, n] - S2[SP[a1, a2], SP[a3, a4], SP[a5, a6], n] - 
    S2[SP[a1, a2], SP[a3, a6], SP[a4, a5], n] + S2[a1, a2, SP[a3, a4], 
     SP[a5, a6], n] + S2[a1, a2, SP[a3, a6], SP[a4, a5], n] + 
    S2[a2, a3, n]*S2[a1, a4, a5, a6, n] + S2[a2, a3, n]*
     S2[a1, a4, a6, a5, n] - S2[a1, a4, SP[a2, a5], SP[a3, a6], n] - 
    S2[a1, a4, SP[a2, a6], SP[a3, a5], n] + S2[a2, a3, n]*
     S2[a1, a6, a4, a5, n] - S2[a1, a6, SP[a2, a4], SP[a3, a5], n] + 
    S2[a1, SP[a2, a4], a3, SP[a5, a6], n] - S2[a1, SP[a2, a4], a5, 
     SP[a3, a6], n] - S2[a1, SP[a2, a4], a6, SP[a3, a5], n] - 
    S2[a1, SP[a2, a4], SP[a3, a5], a6, n] + S2[a1, SP[a2, a6], a3, 
     SP[a4, a5], n] - S2[a1, SP[a2, a6], a4, SP[a3, a5], n] + 
    S2[a2, a1, SP[a3, a4], SP[a5, a6], n] + S2[a2, a1, SP[a3, a6], 
     SP[a4, a5], n] + S2[a1, a6, n]*S2[a2, a3, a5, a4, n] - 
    S2[a2, a3, SP[a1, a5], SP[a4, a6], n] + S2[a2, SP[a1, a3], a4, 
     SP[a5, a6], n] - S2[a2, SP[a1, a3], a5, SP[a4, a6], n] + 
    S2[a2, SP[a1, a3], a6, SP[a4, a5], n] + S2[a2, SP[a1, a3], SP[a4, a5], 
     a6, n] + S2[SP[a1, a2], a3, a4, SP[a5, a6], n] - 
    S2[SP[a1, a2], a3, a5, SP[a4, a6], n] + S2[SP[a1, a2], a3, a6, 
     SP[a4, a5], n] + S2[SP[a1, a2], a3, SP[a4, a5], a6, n] + 
    S2[SP[a1, a2], a4, a3, SP[a5, a6], n] - S2[SP[a1, a2], a4, a5, 
     SP[a3, a6], n] - S2[SP[a1, a2], a4, a6, SP[a3, a5], n] - 
    S2[SP[a1, a2], a4, SP[a3, a5], a6, n] + S2[SP[a1, a2], a6, a3, 
     SP[a4, a5], n] - S2[SP[a1, a2], a6, a4, SP[a3, a5], n] - 
    S2[a1, a2, a3, a4, SP[a5, a6], n] + S2[a1, a2, a3, a5, SP[a4, a6], n] - 
    S2[a1, a2, a3, a6, SP[a4, a5], n] - S2[a1, a2, a3, SP[a4, a5], a6, n] - 
    S2[a1, a2, a4, a3, SP[a5, a6], n] + S2[a1, a2, a4, a5, SP[a3, a6], n] + 
    S2[a1, a2, a4, a6, SP[a3, a5], n] + S2[a1, a2, a4, SP[a3, a5], a6, n] - 
    S2[a1, a2, a6, a3, SP[a4, a5], n] + S2[a1, a2, a6, a4, SP[a3, a5], n] - 
    S2[a1, a4, a2, a3, SP[a5, a6], n] + S2[a1, a4, a2, a5, SP[a3, a6], n] + 
    S2[a1, a4, a2, a6, SP[a3, a5], n] + S2[a1, a4, a2, SP[a3, a5], a6, n] + 
    S2[a1, a4, a5, a2, SP[a3, a6], n] + S2[a6, n]*S2[a1, a4, a5, a3, a2, n] - 
    S2[a2, n]*S2[a1, a4, a5, a3, a6, n] - 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] - S2[a1, a4, a5, a6, SP[a2, a3], n] - 
    S2[a1, a4, a5, SP[a2, a3], a6, n] + S2[a1, a4, a5, SP[a3, a6], a2, n] + 
    S2[a1, a4, a6, a2, SP[a3, a5], n] - S2[a2, n]*S2[a1, a4, a6, a5, a3, n] - 
    S2[a1, a4, a6, a5, SP[a2, a3], n] + S2[a1, a4, SP[a5, a6], a3, a2, n] - 
    S2[a1, a6, a2, a3, SP[a4, a5], n] + S2[a1, a6, a2, a4, SP[a3, a5], n] + 
    S2[a1, a6, a4, a2, SP[a3, a5], n] - S2[a2, n]*S2[a1, a6, a4, a5, a3, n] - 
    S2[a1, a6, a4, a5, SP[a2, a3], n] + S2[a1, SP[a4, a6], a5, a3, a2, n] - 
    S2[a2, a1, a3, a4, SP[a5, a6], n] + S2[a2, a1, a3, a5, SP[a4, a6], n] - 
    S2[a2, a1, a3, a6, SP[a4, a5], n] - S2[a2, a1, a3, SP[a4, a5], a6, n] - 
    S2[a2, a1, a4, a3, SP[a5, a6], n] + S2[a2, a1, a4, a5, SP[a3, a6], n] + 
    S2[a2, a1, a4, a6, SP[a3, a5], n] + S2[a2, a1, a4, SP[a3, a5], a6, n] - 
    S2[a2, a1, a6, a3, SP[a4, a5], n] + S2[a2, a1, a6, a4, SP[a3, a5], n] - 
    S2[a2, a3, a1, a4, SP[a5, a6], n] + S2[a2, a3, a1, a5, SP[a4, a6], n] - 
    S2[a2, a3, a1, a6, SP[a4, a5], n] - S2[a2, a3, a1, SP[a4, a5], a6, n] + 
    S2[a2, a3, a5, a1, SP[a4, a6], n] + S2[a2, a3, a5, SP[a1, a4], a6, n] + 
    S2[SP[a1, a6], a4, a5, a3, a2, n] - S2[a6, a1, a4, a5, a3, a2, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a2_, a3_, a5_, a4_, a6_, a1_, n_] :> 
  S2[a1, a6, a4, n]*S2[a2, a3, a5, n] + S2[SP[a1, a2], SP[a3, a6], 
     SP[a4, a5], n] - S2[a1, a2, SP[a3, a6], SP[a4, a5], n] - 
    S2[a2, a3, n]*S2[a1, a6, a4, a5, n] + S2[a1, a6, SP[a2, a4], SP[a3, a5], 
     n] - S2[a1, SP[a2, a6], a3, SP[a4, a5], n] + S2[a1, SP[a2, a6], a4, 
     SP[a3, a5], n] - S2[a2, a1, SP[a3, a6], SP[a4, a5], n] - 
    S2[a1, a6, n]*S2[a2, a3, a5, a4, n] + S2[a2, a3, SP[a1, a5], SP[a4, a6], 
     n] + S2[a2, SP[a1, a3], a5, SP[a4, a6], n] - S2[a2, SP[a1, a3], a6, 
     SP[a4, a5], n] + S2[SP[a1, a2], a3, a5, SP[a4, a6], n] - 
    S2[SP[a1, a2], a3, a6, SP[a4, a5], n] - S2[SP[a1, a2], a6, a3, 
     SP[a4, a5], n] + S2[SP[a1, a2], a6, a4, SP[a3, a5], n] - 
    S2[a1, a2, a3, a5, SP[a4, a6], n] + S2[a1, a2, a3, a6, SP[a4, a5], n] + 
    S2[a1, a2, a6, a3, SP[a4, a5], n] - S2[a1, a2, a6, a4, SP[a3, a5], n] + 
    S2[a1, a6, a2, a3, SP[a4, a5], n] - S2[a1, a6, a2, a4, SP[a3, a5], n] - 
    S2[a1, a6, a4, a2, SP[a3, a5], n] + S2[a2, n]*S2[a1, a6, a4, a5, a3, n] + 
    S2[a1, a6, a4, a5, SP[a2, a3], n] - S2[a2, a1, a3, a5, SP[a4, a6], n] + 
    S2[a2, a1, a3, a6, SP[a4, a5], n] + S2[a2, a1, a6, a3, SP[a4, a5], n] - 
    S2[a2, a1, a6, a4, SP[a3, a5], n] - S2[a2, a3, a1, a5, SP[a4, a6], n] + 
    S2[a2, a3, a1, a6, SP[a4, a5], n] - S2[a2, a3, a5, a1, SP[a4, a6], n] + 
    S2[a1, n]*S2[a2, a3, a5, a4, a6, n] + S2[a2, a3, a5, a4, SP[a1, a6], n] - 
    S2[a1, n]*S2[a6, a4, a5, a3, a2, n] - S2[a6, a4, a5, a3, SP[a1, a2], n] - 
    S2[a6, a4, a5, SP[a1, a3], a2, n] - S2[a6, a4, SP[a1, a5], a3, a2, n] - 
    S2[a6, SP[a1, a4], a5, a3, a2, n] - S2[SP[a1, a6], a4, a5, a3, a2, n] + 
    S2[a6, a1, a4, a5, a3, a2, n] + S2[a6, a4, a1, a5, a3, a2, n] + 
    S2[a6, a4, a5, a1, a3, a2, n] + S2[a6, a4, a5, a3, a1, a2, n] + 
    S2[a6, a4, a5, a3, a2, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a2_, a3_, a5_, a6_, a1_, a4_, n_] :> 
  -(S2[a1, a4, a6, n]*S2[a2, a3, a5, n]) - S2[a1, a6, a4, n]*
     S2[a2, a3, a5, n] - S2[SP[a1, a2], SP[a3, a4], SP[a5, a6], n] - 
    S2[SP[a1, a2], SP[a3, a6], SP[a4, a5], n] + S2[a1, a2, SP[a3, a4], 
     SP[a5, a6], n] + S2[a1, a2, SP[a3, a6], SP[a4, a5], n] + 
    S2[a2, a3, n]*S2[a1, a4, a6, a5, n] - S2[a1, a4, SP[a2, a6], SP[a3, a5], 
     n] + S2[a2, a3, n]*S2[a1, a6, a4, a5, n] + 
    S2[a2, a3, n]*S2[a1, a6, a5, a4, n] - S2[a1, a6, SP[a2, a4], SP[a3, a5], 
     n] - S2[a1, a6, SP[a2, a5], SP[a3, a4], n] + S2[a1, SP[a2, a4], a3, 
     SP[a5, a6], n] - S2[a1, SP[a2, a4], a6, SP[a3, a5], n] + 
    S2[a1, SP[a2, a6], a3, SP[a4, a5], n] - S2[a1, SP[a2, a6], a4, 
     SP[a3, a5], n] - S2[a1, SP[a2, a6], a5, SP[a3, a4], n] - 
    S2[a1, SP[a2, a6], SP[a3, a5], a4, n] + S2[a2, a1, SP[a3, a4], 
     SP[a5, a6], n] + S2[a2, a1, SP[a3, a6], SP[a4, a5], n] - 
    S2[a1, a4, n]*S2[a2, a3, a6, a5, n] + S2[a2, a3, SP[a1, a6], SP[a4, a5], 
     n] - S2[a1, a4, n]*S2[a2, a6, a3, a5, n] - 
    S2[a1, a4, n]*S2[a2, a6, a5, a3, n] + S2[a2, a6, SP[a1, a3], SP[a4, a5], 
     n] + S2[a2, a6, SP[a1, a5], SP[a3, a4], n] + S2[a2, SP[a1, a3], a4, 
     SP[a5, a6], n] + 2*S2[a2, SP[a1, a3], a6, SP[a4, a5], n] + 
    S2[a2, SP[a1, a3], SP[a4, a5], a6, n] + S2[a2, SP[a1, a3], SP[a4, a6], 
     a5, n] + S2[a2, SP[a1, a3], SP[a5, a6], a4, n] + 
    S2[a2, SP[a1, a6], a3, SP[a4, a5], n] + S2[a2, SP[a1, a6], a5, 
     SP[a3, a4], n] + S2[a2, SP[a1, a6], SP[a3, a4], a5, n] + 
    S2[a2, SP[a1, a6], SP[a4, a5], a3, n] + S2[a1, a4, n]*
     S2[a5, a6, a2, a3, n] - S2[a5, a6, SP[a1, a2], SP[a3, a4], n] - 
    S2[a5, SP[a1, a6], a2, SP[a3, a4], n] - S2[a5, SP[a1, a6], SP[a2, a4], 
     a3, n] + S2[SP[a1, a2], a3, a4, SP[a5, a6], n] + 
    2*S2[SP[a1, a2], a3, a6, SP[a4, a5], n] + S2[SP[a1, a2], a3, SP[a4, a5], 
     a6, n] + S2[SP[a1, a2], a3, SP[a4, a6], a5, n] + 
    S2[SP[a1, a2], a3, SP[a5, a6], a4, n] + S2[SP[a1, a2], a4, a3, 
     SP[a5, a6], n] - S2[SP[a1, a2], a4, a6, SP[a3, a5], n] + 
    2*S2[SP[a1, a2], a6, a3, SP[a4, a5], n] - S2[SP[a1, a2], a6, a4, 
     SP[a3, a5], n] + S2[SP[a1, a2], a6, SP[a3, a4], a5, n] - 
    S2[SP[a1, a2], a6, SP[a3, a5], a4, n] + S2[SP[a1, a2], a6, SP[a4, a5], 
     a3, n] + S2[SP[a1, a2], SP[a3, a4], a5, a6, n] + 
    S2[SP[a1, a2], SP[a3, a4], a6, a5, n] + S2[SP[a1, a2], SP[a4, a6], a3, 
     a5, n] + S2[SP[a1, a2], SP[a4, a6], a5, a3, n] - 
    S2[SP[a1, a5], a6, a2, SP[a3, a4], n] - S2[SP[a1, a5], a6, SP[a2, a4], 
     a3, n] - S2[SP[a1, a5], SP[a4, a6], a2, a3, n] - 
    S2[a1, a2, a3, a4, SP[a5, a6], n] - 2*S2[a1, a2, a3, a6, SP[a4, a5], n] - 
    S2[a1, a2, a3, SP[a4, a5], a6, n] - S2[a1, a2, a3, SP[a4, a6], a5, n] - 
    S2[a1, a2, a3, SP[a5, a6], a4, n] - S2[a1, a2, a4, a3, SP[a5, a6], n] + 
    S2[a1, a2, a4, a6, SP[a3, a5], n] - 2*S2[a1, a2, a6, a3, SP[a4, a5], n] + 
    S2[a1, a2, a6, a4, SP[a3, a5], n] - S2[a1, a2, a6, SP[a3, a4], a5, n] + 
    S2[a1, a2, a6, SP[a3, a5], a4, n] - S2[a1, a2, a6, SP[a4, a5], a3, n] - 
    S2[a1, a2, SP[a3, a4], a5, a6, n] - S2[a1, a2, SP[a3, a4], a6, a5, n] - 
    S2[a1, a2, SP[a4, a6], a3, a5, n] - S2[a1, a2, SP[a4, a6], a5, a3, n] - 
    S2[a6, n]*S2[a1, a3, a2, a4, a5, n] - S2[a1, a3, a2, a4, SP[a5, a6], n] - 
    S2[a6, n]*S2[a1, a3, a2, a5, a4, n] - S2[a1, a3, a2, a5, SP[a4, a6], n] - 
    S2[a1, a3, a2, SP[a4, a6], a5, n] - S2[a1, a3, a2, SP[a5, a6], a4, n] - 
    S2[a6, n]*S2[a1, a3, a4, a2, a5, n] - S2[a1, a3, a4, a2, SP[a5, a6], n] - 
    S2[a6, n]*S2[a1, a3, a4, a5, a2, n] + 
    S2[a2, n]*S2[a1, a3, a4, a5, a6, n] + 
    S2[a2, n]*S2[a1, a3, a4, a6, a5, n] + S2[a1, a3, a4, a6, SP[a2, a5], n] + 
    S2[a1, a3, a4, SP[a2, a5], a6, n] - S2[a1, a3, a4, SP[a5, a6], a2, n] - 
    S2[a6, n]*S2[a1, a3, a5, a2, a4, n] - S2[a1, a3, a5, a2, SP[a4, a6], n] - 
    S2[a6, n]*S2[a1, a3, a5, a4, a2, n] + 
    S2[a2, n]*S2[a1, a3, a5, a4, a6, n] + 
    S2[a2, n]*S2[a1, a3, a5, a6, a4, n] + S2[a1, a3, a5, a6, SP[a2, a4], n] + 
    S2[a1, a3, a5, SP[a2, a4], a6, n] - S2[a1, a3, a5, SP[a4, a6], a2, n] + 
    S2[a2, n]*S2[a1, a3, a6, a4, a5, n] + S2[a1, a3, a6, a4, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a3, a6, a5, a4, n] + S2[a1, a3, a6, a5, SP[a2, a4], n] + 
    S2[a1, a3, a6, SP[a2, a4], a5, n] + S2[a1, a3, a6, SP[a2, a5], a4, n] + 
    S2[a1, a3, SP[a2, a4], a5, a6, n] + S2[a1, a3, SP[a2, a4], a6, a5, n] + 
    S2[a1, a3, SP[a2, a5], a4, a6, n] + S2[a1, a3, SP[a2, a5], a6, a4, n] - 
    S2[a1, a3, SP[a4, a6], a2, a5, n] - S2[a1, a3, SP[a4, a6], a5, a2, n] - 
    S2[a1, a3, SP[a5, a6], a2, a4, n] - S2[a1, a3, SP[a5, a6], a4, a2, n] - 
    S2[a1, a4, a2, a3, SP[a5, a6], n] + S2[a1, a4, a2, a6, SP[a3, a5], n] - 
    S2[a6, n]*S2[a1, a4, a3, a2, a5, n] - S2[a1, a4, a3, a2, SP[a5, a6], n] - 
    S2[a6, n]*S2[a1, a4, a3, a5, a2, n] + 
    S2[a2, n]*S2[a1, a4, a3, a5, a6, n] + 
    S2[a2, n]*S2[a1, a4, a3, a6, a5, n] + S2[a1, a4, a3, a6, SP[a2, a5], n] + 
    S2[a1, a4, a3, SP[a2, a5], a6, n] - S2[a1, a4, a3, SP[a5, a6], a2, n] - 
    S2[a5, n]*S2[a1, a4, a6, a2, a3, n] + 
    S2[a2, n]*S2[a1, a4, a6, a3, a5, n] + S2[a1, a4, a6, a3, SP[a2, a5], n] + 
    S2[a1, a4, a6, SP[a2, a3], a5, n] + S2[a1, a4, SP[a2, a3], a5, a6, n] + 
    S2[a1, a4, SP[a2, a3], a6, a5, n] + S2[a1, a4, SP[a2, a6], a3, a5, n] + 
    S2[a1, a4, SP[a2, a6], a5, a3, n] - S2[a1, a4, SP[a3, a6], a2, a5, n] - 
    S2[a1, a4, SP[a3, a6], a5, a2, n] - S2[a1, a4, SP[a5, a6], a2, a3, n] + 
    S2[a1, a5, a6, a2, SP[a3, a4], n] + S2[a1, a5, a6, SP[a2, a4], a3, n] + 
    S2[a1, a5, SP[a4, a6], a2, a3, n] - S2[a5, n]*S2[a1, a6, a2, a3, a4, n] - 
    2*S2[a1, a6, a2, a3, SP[a4, a5], n] - 
    S2[a5, n]*S2[a1, a6, a2, a4, a3, n] + S2[a1, a6, a2, a5, SP[a3, a4], n] - 
    S2[a1, a6, a2, SP[a4, a5], a3, n] + S2[a2, n]*S2[a1, a6, a3, a4, a5, n] + 
    S2[a1, a6, a3, a4, SP[a2, a5], n] + S2[a2, n]*S2[a1, a6, a3, a5, a4, n] + 
    S2[a1, a6, a3, a5, SP[a2, a4], n] + S2[a1, a6, a3, SP[a2, a4], a5, n] + 
    S2[a1, a6, a3, SP[a2, a5], a4, n] - S2[a5, n]*S2[a1, a6, a4, a2, a3, n] + 
    S2[a2, n]*S2[a1, a6, a4, a3, a5, n] + S2[a1, a6, a4, a3, SP[a2, a5], n] + 
    S2[a1, a6, a4, SP[a2, a3], a5, n] + S2[a1, a6, a5, a2, SP[a3, a4], n] + 
    S2[a1, a6, a5, SP[a2, a4], a3, n] + S2[a1, a6, SP[a2, a3], a4, a5, n] + 
    S2[a1, a6, SP[a2, a3], a5, a4, n] + S2[a1, a6, SP[a2, a4], a3, a5, n] + 
    S2[a1, a6, SP[a2, a4], a5, a3, n] - S2[a1, a6, SP[a4, a5], a2, a3, n] + 
    S2[a1, SP[a2, a3], a4, a5, a6, n] + S2[a1, SP[a2, a3], a4, a6, a5, n] + 
    S2[a1, SP[a2, a3], a5, a4, a6, n] + S2[a1, SP[a2, a3], a5, a6, a4, n] + 
    S2[a1, SP[a2, a3], a6, a4, a5, n] + S2[a1, SP[a2, a3], a6, a5, a4, n] + 
    S2[a1, SP[a2, a6], a3, a4, a5, n] + S2[a1, SP[a2, a6], a3, a5, a4, n] + 
    S2[a1, SP[a2, a6], a4, a3, a5, n] + S2[a1, SP[a2, a6], a4, a5, a3, n] + 
    S2[a1, SP[a2, a6], a5, a3, a4, n] + S2[a1, SP[a2, a6], a5, a4, a3, n] - 
    S2[a1, SP[a3, a6], a2, a4, a5, n] - S2[a1, SP[a3, a6], a2, a5, a4, n] - 
    S2[a1, SP[a3, a6], a4, a2, a5, n] - S2[a1, SP[a3, a6], a4, a5, a2, n] - 
    S2[a1, SP[a3, a6], a5, a2, a4, n] - S2[a1, SP[a3, a6], a5, a4, a2, n] - 
    S2[a1, SP[a4, a6], a3, a2, a5, n] - S2[a1, SP[a4, a6], a3, a5, a2, n] - 
    S2[a1, SP[a5, a6], a2, a3, a4, n] - S2[a1, SP[a5, a6], a2, a4, a3, n] - 
    S2[a1, SP[a5, a6], a4, a2, a3, n] - S2[a2, a1, a3, a4, SP[a5, a6], n] - 
    2*S2[a2, a1, a3, a6, SP[a4, a5], n] - S2[a2, a1, a3, SP[a4, a5], a6, n] - 
    S2[a2, a1, a3, SP[a4, a6], a5, n] - S2[a2, a1, a3, SP[a5, a6], a4, n] - 
    S2[a2, a1, a4, a3, SP[a5, a6], n] + S2[a2, a1, a4, a6, SP[a3, a5], n] - 
    2*S2[a2, a1, a6, a3, SP[a4, a5], n] + S2[a2, a1, a6, a4, SP[a3, a5], n] - 
    S2[a2, a1, a6, SP[a3, a4], a5, n] + S2[a2, a1, a6, SP[a3, a5], a4, n] - 
    S2[a2, a1, a6, SP[a4, a5], a3, n] - S2[a2, a1, SP[a3, a4], a5, a6, n] - 
    S2[a2, a1, SP[a3, a4], a6, a5, n] - S2[a2, a1, SP[a4, a6], a3, a5, n] - 
    S2[a2, a1, SP[a4, a6], a5, a3, n] + S2[a6, n]*S2[a2, a3, a1, a4, a5, n] + 
    S2[a6, n]*S2[a2, a3, a1, a5, a4, n] + S2[a2, a3, a1, a5, SP[a4, a6], n] - 
    2*S2[a2, a3, a1, a6, SP[a4, a5], n] - S2[a2, a3, a1, SP[a4, a5], a6, n] + 
    S2[a6, n]*S2[a2, a3, a5, a1, a4, n] + S2[a2, a3, a5, a1, SP[a4, a6], n] + 
    S2[a2, a3, a5, SP[a1, a6], a4, n] - S2[a2, a3, a6, a1, SP[a4, a5], n] - 
    S2[a2, a3, a6, SP[a1, a5], a4, n] - S2[a2, a3, SP[a1, a5], a4, a6, n] - 
    S2[a2, a3, SP[a1, a5], a6, a4, n] + S2[a2, a3, SP[a5, a6], a1, a4, n] + 
    S2[a5, n]*S2[a2, a6, a1, a3, a4, n] + 
    S2[a5, n]*S2[a2, a6, a1, a4, a3, n] + S2[a2, a6, a1, a4, SP[a3, a5], n] - 
    S2[a2, a6, a1, a5, SP[a3, a4], n] - S2[a2, a6, a1, SP[a3, a4], a5, n] + 
    S2[a2, a6, a1, SP[a3, a5], a4, n] - S2[a2, a6, a3, a1, SP[a4, a5], n] - 
    S2[a2, a6, a3, SP[a1, a5], a4, n] - S2[a2, a6, a5, a1, SP[a3, a4], n] - 
    S2[a2, a6, a5, SP[a1, a3], a4, n] - S2[a2, a6, SP[a1, a3], a4, a5, n] - 
    S2[a2, a6, SP[a1, a3], a5, a4, n] - S2[a2, SP[a1, a3], a4, a5, a6, n] - 
    S2[a2, SP[a1, a3], a4, a6, a5, n] - S2[a2, SP[a1, a3], a5, a4, a6, n] - 
    S2[a2, SP[a1, a3], a5, a6, a4, n] - S2[a2, SP[a1, a3], a6, a4, a5, n] - 
    S2[a2, SP[a1, a3], a6, a5, a4, n] - S2[a2, SP[a1, a6], a3, a4, a5, n] - 
    S2[a2, SP[a1, a6], a3, a5, a4, n] - S2[a2, SP[a1, a6], a4, a3, a5, n] - 
    S2[a2, SP[a1, a6], a4, a5, a3, n] - S2[a2, SP[a1, a6], a5, a3, a4, n] - 
    S2[a2, SP[a1, a6], a5, a4, a3, n] + S2[a2, SP[a3, a6], a1, a4, a5, n] + 
    S2[a2, SP[a3, a6], a1, a5, a4, n] + S2[a2, SP[a3, a6], a5, a1, a4, n] + 
    S2[a2, SP[a5, a6], a1, a3, a4, n] + S2[a2, SP[a5, a6], a1, a4, a3, n] + 
    S2[a5, a1, a6, a2, SP[a3, a4], n] + S2[a5, a1, a6, SP[a2, a4], a3, n] + 
    S2[a5, a1, SP[a4, a6], a2, a3, n] + S2[a5, a6, a1, a2, SP[a3, a4], n] - 
    S2[a2, n]*S2[a5, a6, a1, a3, a4, n] - S2[a5, a6, a1, a3, SP[a2, a4], n] - 
    S2[a2, n]*S2[a5, a6, a1, a4, a3, n] - S2[a5, a6, a1, a4, SP[a2, a3], n] - 
    S2[a5, a6, a1, SP[a2, a3], a4, n] + S2[a5, a6, a2, a1, SP[a3, a4], n] + 
    S2[a5, a6, a2, SP[a1, a3], a4, n] + S2[a5, SP[a1, a6], a2, a3, a4, n] + 
    S2[a5, SP[a1, a6], a2, a4, a3, n] + S2[a5, SP[a1, a6], a4, a2, a3, n] - 
    S2[a5, SP[a2, a6], a1, a3, a4, n] - S2[a5, SP[a2, a6], a1, a4, a3, n] + 
    S2[a5, n]*S2[a6, a1, a3, a2, a4, n] + S2[a6, a1, a3, a2, SP[a4, a5], n] + 
    S2[a5, n]*S2[a6, a1, a3, a4, a2, n] + S2[a6, a1, a3, a4, SP[a2, a5], n] + 
    S2[a6, a1, a3, SP[a2, a5], a4, n] + S2[a6, a1, a3, SP[a4, a5], a2, n] + 
    S2[a5, n]*S2[a6, a1, a4, a3, a2, n] + S2[a6, a1, a4, a3, SP[a2, a5], n] + 
    S2[a6, a1, a4, SP[a3, a5], a2, n] + S2[a6, a1, SP[a3, a5], a2, a4, n] + 
    S2[a6, a1, SP[a3, a5], a4, a2, n] + S2[a6, a1, SP[a4, a5], a3, a2, n] - 
    S2[a5, n]*S2[a6, a2, a3, a1, a4, n] - S2[a6, a2, a3, a1, SP[a4, a5], n] - 
    S2[a6, a2, a3, SP[a1, a5], a4, n] - S2[a6, a2, SP[a3, a5], a1, a4, n] + 
    S2[a2, n]*S2[a6, a5, a3, a1, a4, n] + S2[a6, a5, a3, a1, SP[a2, a4], n] + 
    S2[a6, a5, a3, SP[a1, a2], a4, n] + S2[a6, a5, SP[a2, a3], a1, a4, n] + 
    S2[a6, SP[a1, a5], a3, a2, a4, n] + S2[a6, SP[a1, a5], a3, a4, a2, n] + 
    S2[a6, SP[a1, a5], a4, a3, a2, n] - S2[SP[a1, a6], a3, a2, a4, a5, n] - 
    S2[SP[a1, a6], a3, a2, a5, a4, n] - S2[SP[a1, a6], a3, a4, a2, a5, n] - 
    S2[SP[a1, a6], a3, a4, a5, a2, n] - S2[SP[a1, a6], a3, a5, a2, a4, n] - 
    S2[SP[a1, a6], a3, a5, a4, a2, n] - S2[SP[a1, a6], a4, a3, a2, a5, n] - 
    S2[SP[a1, a6], a4, a3, a5, a2, n] + S2[SP[a2, a6], a3, a1, a4, a5, n] + 
    S2[SP[a2, a6], a3, a1, a5, a4, n] + S2[SP[a2, a6], a3, a5, a1, a4, n] + 
    S2[SP[a2, a6], a5, a3, a1, a4, n] + S2[SP[a5, a6], a1, a3, a2, a4, n] + 
    S2[SP[a5, a6], a1, a3, a4, a2, n] + S2[SP[a5, a6], a1, a4, a3, a2, n] - 
    S2[SP[a5, a6], a2, a3, a1, a4, n] - S2[a6, a1, a4, a5, a3, a2, n] - 
    S2[a6, a1, a5, a3, a2, a4, n] - S2[a6, a1, a5, a3, a4, a2, n] - 
    S2[a6, a1, a5, a4, a3, a2, n] - S2[a6, a5, a1, a3, a2, a4, n] - 
    S2[a6, a5, a1, a3, a4, a2, n] - S2[a6, a5, a1, a4, a3, a2, n] - 
    S2[a6, a5, a3, a1, a2, a4, n] - S2[a6, a5, a3, a1, a4, a2, n] - 
    S2[a6, a5, a3, a2, a1, a4, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a2_, a3_, a5_, a6_, a4_, a1_, n_] :> 
  S2[a1, a4, a6, n]*S2[a2, a3, a5, n] + S2[SP[a1, a2], SP[a3, a4], 
     SP[a5, a6], n] - S2[a1, a2, SP[a3, a4], SP[a5, a6], n] - 
    S2[a2, a3, n]*S2[a1, a4, a6, a5, n] + S2[a1, a4, SP[a2, a6], SP[a3, a5], 
     n] - S2[a1, SP[a2, a4], a3, SP[a5, a6], n] + S2[a1, SP[a2, a4], a6, 
     SP[a3, a5], n] - S2[a2, a1, SP[a3, a4], SP[a5, a6], n] + 
    S2[a1, a4, n]*S2[a2, a3, a6, a5, n] - S2[a2, a3, SP[a1, a6], SP[a4, a5], 
     n] + S2[a1, a4, n]*S2[a2, a6, a3, a5, n] + 
    S2[a1, a4, n]*S2[a2, a6, a5, a3, n] - S2[a2, a6, SP[a1, a3], SP[a4, a5], 
     n] - S2[a2, a6, SP[a1, a5], SP[a3, a4], n] - S2[a2, SP[a1, a3], a4, 
     SP[a5, a6], n] - S2[a2, SP[a1, a3], a6, SP[a4, a5], n] - 
    S2[a2, SP[a1, a3], SP[a4, a5], a6, n] - S2[a2, SP[a1, a3], SP[a4, a6], 
     a5, n] - S2[a2, SP[a1, a6], a3, SP[a4, a5], n] - 
    S2[a2, SP[a1, a6], a5, SP[a3, a4], n] - S2[a2, SP[a1, a6], SP[a3, a4], 
     a5, n] - S2[a2, SP[a1, a6], SP[a4, a5], a3, n] - 
    S2[a1, a4, n]*S2[a5, a6, a2, a3, n] + S2[a5, a6, SP[a1, a2], SP[a3, a4], 
     n] + S2[a5, SP[a1, a6], a2, SP[a3, a4], n] + 
    S2[a5, SP[a1, a6], SP[a2, a4], a3, n] - S2[SP[a1, a2], a3, a4, 
     SP[a5, a6], n] - S2[SP[a1, a2], a3, a6, SP[a4, a5], n] - 
    S2[SP[a1, a2], a3, SP[a4, a5], a6, n] - S2[SP[a1, a2], a3, SP[a4, a6], 
     a5, n] - S2[SP[a1, a2], a4, a3, SP[a5, a6], n] + 
    S2[SP[a1, a2], a4, a6, SP[a3, a5], n] - S2[SP[a1, a2], a6, a3, 
     SP[a4, a5], n] - S2[SP[a1, a2], a6, a5, SP[a3, a4], n] - 
    S2[SP[a1, a2], a6, SP[a3, a4], a5, n] - S2[SP[a1, a2], a6, SP[a4, a5], 
     a3, n] - S2[SP[a1, a2], SP[a3, a4], a5, a6, n] - 
    S2[SP[a1, a2], SP[a3, a4], a6, a5, n] - S2[SP[a1, a2], SP[a4, a6], a3, 
     a5, n] - S2[SP[a1, a2], SP[a4, a6], a5, a3, n] + 
    S2[SP[a1, a5], a6, a2, SP[a3, a4], n] + S2[SP[a1, a5], a6, SP[a2, a4], 
     a3, n] + S2[SP[a1, a5], SP[a4, a6], a2, a3, n] + 
    S2[a1, a2, a3, a4, SP[a5, a6], n] + S2[a1, a2, a3, a6, SP[a4, a5], n] + 
    S2[a1, a2, a3, SP[a4, a5], a6, n] + S2[a1, a2, a3, SP[a4, a6], a5, n] + 
    S2[a1, a2, a4, a3, SP[a5, a6], n] - S2[a1, a2, a4, a6, SP[a3, a5], n] + 
    S2[a1, a2, a6, a3, SP[a4, a5], n] + S2[a1, a2, a6, a5, SP[a3, a4], n] + 
    S2[a1, a2, a6, SP[a3, a4], a5, n] + S2[a1, a2, a6, SP[a4, a5], a3, n] + 
    S2[a1, a2, SP[a3, a4], a5, a6, n] + S2[a1, a2, SP[a3, a4], a6, a5, n] + 
    S2[a1, a2, SP[a4, a6], a3, a5, n] + S2[a1, a2, SP[a4, a6], a5, a3, n] + 
    S2[a6, n]*S2[a1, a3, a2, a4, a5, n] + S2[a1, a3, a2, a4, SP[a5, a6], n] + 
    S2[a6, n]*S2[a1, a3, a2, a5, a4, n] + S2[a1, a3, a2, a5, SP[a4, a6], n] + 
    S2[a1, a3, a2, SP[a4, a6], a5, n] + S2[a1, a3, a2, SP[a5, a6], a4, n] + 
    S2[a6, n]*S2[a1, a3, a4, a2, a5, n] + S2[a1, a3, a4, a2, SP[a5, a6], n] + 
    S2[a6, n]*S2[a1, a3, a4, a5, a2, n] - 
    S2[a2, n]*S2[a1, a3, a4, a5, a6, n] - 
    S2[a2, n]*S2[a1, a3, a4, a6, a5, n] - S2[a1, a3, a4, a6, SP[a2, a5], n] - 
    S2[a1, a3, a4, SP[a2, a5], a6, n] + S2[a1, a3, a4, SP[a5, a6], a2, n] + 
    S2[a6, n]*S2[a1, a3, a5, a2, a4, n] + S2[a1, a3, a5, a2, SP[a4, a6], n] + 
    S2[a6, n]*S2[a1, a3, a5, a4, a2, n] - 
    S2[a2, n]*S2[a1, a3, a5, a4, a6, n] - 
    S2[a2, n]*S2[a1, a3, a5, a6, a4, n] - S2[a1, a3, a5, a6, SP[a2, a4], n] - 
    S2[a1, a3, a5, SP[a2, a4], a6, n] + S2[a1, a3, a5, SP[a4, a6], a2, n] - 
    S2[a2, n]*S2[a1, a3, a6, a4, a5, n] - S2[a1, a3, a6, a4, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a3, a6, a5, a4, n] - S2[a1, a3, a6, a5, SP[a2, a4], n] - 
    S2[a1, a3, a6, SP[a2, a4], a5, n] - S2[a1, a3, a6, SP[a2, a5], a4, n] - 
    S2[a1, a3, SP[a2, a4], a5, a6, n] - S2[a1, a3, SP[a2, a4], a6, a5, n] - 
    S2[a1, a3, SP[a2, a5], a4, a6, n] - S2[a1, a3, SP[a2, a5], a6, a4, n] + 
    S2[a1, a3, SP[a4, a6], a2, a5, n] + S2[a1, a3, SP[a4, a6], a5, a2, n] + 
    S2[a1, a3, SP[a5, a6], a2, a4, n] + S2[a1, a3, SP[a5, a6], a4, a2, n] + 
    S2[a1, a4, a2, a3, SP[a5, a6], n] - S2[a1, a4, a2, a6, SP[a3, a5], n] + 
    S2[a6, n]*S2[a1, a4, a3, a2, a5, n] + S2[a1, a4, a3, a2, SP[a5, a6], n] + 
    S2[a6, n]*S2[a1, a4, a3, a5, a2, n] - 
    S2[a2, n]*S2[a1, a4, a3, a5, a6, n] - 
    S2[a2, n]*S2[a1, a4, a3, a6, a5, n] - S2[a1, a4, a3, a6, SP[a2, a5], n] - 
    S2[a1, a4, a3, SP[a2, a5], a6, n] + S2[a1, a4, a3, SP[a5, a6], a2, n] + 
    S2[a5, n]*S2[a1, a4, a6, a2, a3, n] - 
    S2[a2, n]*S2[a1, a4, a6, a3, a5, n] - S2[a1, a4, a6, a3, SP[a2, a5], n] - 
    S2[a1, a4, a6, SP[a2, a3], a5, n] - S2[a1, a4, SP[a2, a3], a5, a6, n] - 
    S2[a1, a4, SP[a2, a3], a6, a5, n] - S2[a1, a4, SP[a2, a6], a3, a5, n] - 
    S2[a1, a4, SP[a2, a6], a5, a3, n] + S2[a1, a4, SP[a3, a6], a2, a5, n] + 
    S2[a1, a4, SP[a3, a6], a5, a2, n] + S2[a1, a4, SP[a5, a6], a2, a3, n] - 
    S2[a1, a5, a6, a2, SP[a3, a4], n] - S2[a1, a5, a6, SP[a2, a4], a3, n] - 
    S2[a1, a5, SP[a4, a6], a2, a3, n] + S2[a5, n]*S2[a1, a6, a2, a3, a4, n] + 
    S2[a1, a6, a2, a3, SP[a4, a5], n] + S2[a5, n]*S2[a1, a6, a2, a4, a3, n] + 
    S2[a1, a6, a2, a4, SP[a3, a5], n] + S2[a1, a6, a2, SP[a3, a5], a4, n] + 
    S2[a1, a6, a2, SP[a4, a5], a3, n] - S2[a2, n]*S2[a1, a6, a3, a4, a5, n] - 
    S2[a1, a6, a3, a4, SP[a2, a5], n] - S2[a2, n]*S2[a1, a6, a3, a5, a4, n] - 
    S2[a1, a6, a3, a5, SP[a2, a4], n] - S2[a1, a6, a3, SP[a2, a4], a5, n] - 
    S2[a1, a6, a3, SP[a2, a5], a4, n] + S2[a5, n]*S2[a1, a6, a4, a2, a3, n] + 
    S2[a1, a6, a4, a2, SP[a3, a5], n] - S2[a2, n]*S2[a1, a6, a4, a3, a5, n] - 
    S2[a1, a6, a4, a3, SP[a2, a5], n] - S2[a2, n]*S2[a1, a6, a4, a5, a3, n] - 
    S2[a1, a6, a4, a5, SP[a2, a3], n] - S2[a1, a6, a4, SP[a2, a3], a5, n] - 
    S2[a2, n]*S2[a1, a6, a5, a3, a4, n] - S2[a1, a6, a5, a3, SP[a2, a4], n] - 
    S2[a2, n]*S2[a1, a6, a5, a4, a3, n] - S2[a1, a6, a5, a4, SP[a2, a3], n] - 
    S2[a1, a6, a5, SP[a2, a3], a4, n] - S2[a1, a6, a5, SP[a2, a4], a3, n] - 
    S2[a1, a6, SP[a2, a3], a4, a5, n] - S2[a1, a6, SP[a2, a3], a5, a4, n] - 
    S2[a1, a6, SP[a2, a4], a3, a5, n] - S2[a1, a6, SP[a2, a4], a5, a3, n] + 
    S2[a1, a6, SP[a4, a5], a2, a3, n] - S2[a1, SP[a2, a3], a4, a5, a6, n] - 
    S2[a1, SP[a2, a3], a4, a6, a5, n] - S2[a1, SP[a2, a3], a5, a4, a6, n] - 
    S2[a1, SP[a2, a3], a5, a6, a4, n] - S2[a1, SP[a2, a3], a6, a4, a5, n] - 
    S2[a1, SP[a2, a3], a6, a5, a4, n] - S2[a1, SP[a2, a6], a3, a4, a5, n] - 
    S2[a1, SP[a2, a6], a3, a5, a4, n] - S2[a1, SP[a2, a6], a4, a3, a5, n] - 
    S2[a1, SP[a2, a6], a4, a5, a3, n] - S2[a1, SP[a2, a6], a5, a3, a4, n] - 
    S2[a1, SP[a2, a6], a5, a4, a3, n] + S2[a1, SP[a3, a6], a2, a4, a5, n] + 
    S2[a1, SP[a3, a6], a2, a5, a4, n] + S2[a1, SP[a3, a6], a4, a2, a5, n] + 
    S2[a1, SP[a3, a6], a4, a5, a2, n] + S2[a1, SP[a3, a6], a5, a2, a4, n] + 
    S2[a1, SP[a3, a6], a5, a4, a2, n] + S2[a1, SP[a4, a6], a3, a2, a5, n] + 
    S2[a1, SP[a4, a6], a3, a5, a2, n] + S2[a1, SP[a5, a6], a2, a3, a4, n] + 
    S2[a1, SP[a5, a6], a2, a4, a3, n] + S2[a1, SP[a5, a6], a4, a2, a3, n] + 
    S2[a2, a1, a3, a4, SP[a5, a6], n] + S2[a2, a1, a3, a6, SP[a4, a5], n] + 
    S2[a2, a1, a3, SP[a4, a5], a6, n] + S2[a2, a1, a3, SP[a4, a6], a5, n] + 
    S2[a2, a1, a4, a3, SP[a5, a6], n] - S2[a2, a1, a4, a6, SP[a3, a5], n] + 
    S2[a2, a1, a6, a3, SP[a4, a5], n] + S2[a2, a1, a6, a5, SP[a3, a4], n] + 
    S2[a2, a1, a6, SP[a3, a4], a5, n] + S2[a2, a1, a6, SP[a4, a5], a3, n] + 
    S2[a2, a1, SP[a3, a4], a5, a6, n] + S2[a2, a1, SP[a3, a4], a6, a5, n] + 
    S2[a2, a1, SP[a4, a6], a3, a5, n] + S2[a2, a1, SP[a4, a6], a5, a3, n] - 
    S2[a6, n]*S2[a2, a3, a1, a4, a5, n] - 
    S2[a6, n]*S2[a2, a3, a1, a5, a4, n] - S2[a2, a3, a1, a5, SP[a4, a6], n] + 
    S2[a2, a3, a1, a6, SP[a4, a5], n] + S2[a2, a3, a1, SP[a4, a5], a6, n] - 
    S2[a2, a3, a1, SP[a5, a6], a4, n] - S2[a6, n]*S2[a2, a3, a5, a1, a4, n] - 
    S2[a2, a3, a5, a1, SP[a4, a6], n] + S2[a1, n]*S2[a2, a3, a5, a6, a4, n] + 
    S2[a2, a3, a5, a6, SP[a1, a4], n] + S2[a2, a3, a6, a1, SP[a4, a5], n] + 
    S2[a2, a3, a6, SP[a1, a5], a4, n] + S2[a2, a3, SP[a1, a5], a4, a6, n] + 
    S2[a2, a3, SP[a1, a5], a6, a4, n] - S2[a2, a3, SP[a5, a6], a1, a4, n] - 
    S2[a5, n]*S2[a2, a6, a1, a3, a4, n] - 
    S2[a5, n]*S2[a2, a6, a1, a4, a3, n] - S2[a2, a6, a1, a4, SP[a3, a5], n] + 
    S2[a2, a6, a1, a5, SP[a3, a4], n] + S2[a2, a6, a1, SP[a3, a4], a5, n] - 
    S2[a2, a6, a1, SP[a3, a5], a4, n] + S2[a2, a6, a3, a1, SP[a4, a5], n] + 
    S2[a2, a6, a3, SP[a1, a5], a4, n] + S2[a2, a6, a5, a1, SP[a3, a4], n] + 
    S2[a2, a6, a5, SP[a1, a3], a4, n] + S2[a2, a6, SP[a1, a3], a4, a5, n] + 
    S2[a2, a6, SP[a1, a3], a5, a4, n] + S2[a2, SP[a1, a3], a4, a5, a6, n] + 
    S2[a2, SP[a1, a3], a4, a6, a5, n] + S2[a2, SP[a1, a3], a5, a4, a6, n] + 
    S2[a2, SP[a1, a3], a5, a6, a4, n] + S2[a2, SP[a1, a3], a6, a4, a5, n] + 
    S2[a2, SP[a1, a3], a6, a5, a4, n] + S2[a2, SP[a1, a6], a3, a4, a5, n] + 
    S2[a2, SP[a1, a6], a3, a5, a4, n] + S2[a2, SP[a1, a6], a4, a3, a5, n] + 
    S2[a2, SP[a1, a6], a4, a5, a3, n] + S2[a2, SP[a1, a6], a5, a3, a4, n] + 
    S2[a2, SP[a1, a6], a5, a4, a3, n] - S2[a2, SP[a3, a6], a1, a4, a5, n] - 
    S2[a2, SP[a3, a6], a1, a5, a4, n] - S2[a2, SP[a3, a6], a5, a1, a4, n] - 
    S2[a2, SP[a5, a6], a1, a3, a4, n] - S2[a2, SP[a5, a6], a1, a4, a3, n] - 
    S2[a5, a1, a6, a2, SP[a3, a4], n] - S2[a5, a1, a6, SP[a2, a4], a3, n] - 
    S2[a5, a1, SP[a4, a6], a2, a3, n] - S2[a5, a6, a1, a2, SP[a3, a4], n] + 
    S2[a2, n]*S2[a5, a6, a1, a3, a4, n] + S2[a5, a6, a1, a3, SP[a2, a4], n] + 
    S2[a2, n]*S2[a5, a6, a1, a4, a3, n] + S2[a5, a6, a1, a4, SP[a2, a3], n] + 
    S2[a5, a6, a1, SP[a2, a3], a4, n] - S2[a5, a6, a2, a1, SP[a3, a4], n] - 
    S2[a5, a6, a2, SP[a1, a3], a4, n] - S2[a5, SP[a1, a6], a2, a3, a4, n] - 
    S2[a5, SP[a1, a6], a2, a4, a3, n] - S2[a5, SP[a1, a6], a4, a2, a3, n] + 
    S2[a5, SP[a2, a6], a1, a3, a4, n] + S2[a5, SP[a2, a6], a1, a4, a3, n] - 
    S2[a5, n]*S2[a6, a1, a3, a2, a4, n] - S2[a6, a1, a3, a2, SP[a4, a5], n] - 
    S2[a5, n]*S2[a6, a1, a3, a4, a2, n] - S2[a6, a1, a3, a4, SP[a2, a5], n] - 
    S2[a6, a1, a3, SP[a2, a5], a4, n] - S2[a6, a1, a3, SP[a4, a5], a2, n] - 
    S2[a5, n]*S2[a6, a1, a4, a3, a2, n] - S2[a6, a1, a4, a3, SP[a2, a5], n] - 
    S2[a6, a1, a4, SP[a3, a5], a2, n] - S2[a6, a1, SP[a3, a5], a2, a4, n] - 
    S2[a6, a1, SP[a3, a5], a4, a2, n] - S2[a6, a1, SP[a4, a5], a3, a2, n] + 
    S2[a5, n]*S2[a6, a2, a3, a1, a4, n] + S2[a6, a2, a3, a1, SP[a4, a5], n] + 
    S2[a6, a2, a3, SP[a1, a5], a4, n] + S2[a6, a2, SP[a3, a5], a1, a4, n] + 
    S2[a1, n]*S2[a6, a4, a5, a3, a2, n] + S2[a6, a4, a5, a3, SP[a1, a2], n] + 
    S2[a6, a4, a5, SP[a1, a3], a2, n] + S2[a6, a4, SP[a1, a5], a3, a2, n] - 
    S2[a2, n]*S2[a6, a5, a3, a1, a4, n] - S2[a6, a5, a3, a1, SP[a2, a4], n] + 
    S2[a1, n]*S2[a6, a5, a3, a2, a4, n] + S2[a6, a5, a3, a2, SP[a1, a4], n] + 
    S2[a1, n]*S2[a6, a5, a3, a4, a2, n] + S2[a6, a5, a3, a4, SP[a1, a2], n] + 
    S2[a6, a5, a3, SP[a1, a4], a2, n] + S2[a1, n]*S2[a6, a5, a4, a3, a2, n] + 
    S2[a6, a5, a4, a3, SP[a1, a2], n] + S2[a6, a5, a4, SP[a1, a3], a2, n] + 
    S2[a6, a5, SP[a1, a3], a2, a4, n] + S2[a6, a5, SP[a1, a3], a4, a2, n] + 
    S2[a6, a5, SP[a1, a4], a3, a2, n] - S2[a6, a5, SP[a2, a3], a1, a4, n] + 
    S2[a6, SP[a1, a4], a5, a3, a2, n] + S2[SP[a1, a6], a3, a2, a4, a5, n] + 
    S2[SP[a1, a6], a3, a2, a5, a4, n] + S2[SP[a1, a6], a3, a4, a2, a5, n] + 
    S2[SP[a1, a6], a3, a4, a5, a2, n] + S2[SP[a1, a6], a3, a5, a2, a4, n] + 
    S2[SP[a1, a6], a3, a5, a4, a2, n] + S2[SP[a1, a6], a4, a3, a2, a5, n] + 
    S2[SP[a1, a6], a4, a3, a5, a2, n] + S2[SP[a1, a6], a4, a5, a3, a2, n] + 
    S2[SP[a1, a6], a5, a3, a2, a4, n] + S2[SP[a1, a6], a5, a3, a4, a2, n] + 
    S2[SP[a1, a6], a5, a4, a3, a2, n] - S2[SP[a2, a6], a3, a1, a4, a5, n] - 
    S2[SP[a2, a6], a3, a1, a5, a4, n] - S2[SP[a2, a6], a3, a5, a1, a4, n] - 
    S2[SP[a2, a6], a5, a3, a1, a4, n] - S2[SP[a5, a6], a1, a3, a2, a4, n] - 
    S2[SP[a5, a6], a1, a3, a4, a2, n] - S2[SP[a5, a6], a1, a4, a3, a2, n] + 
    S2[SP[a5, a6], a2, a3, a1, a4, n] - S2[a6, a4, a1, a5, a3, a2, n] - 
    S2[a6, a4, a5, a1, a3, a2, n] - S2[a6, a4, a5, a3, a1, a2, n] - 
    S2[a6, a4, a5, a3, a2, a1, n] - S2[a6, a5, a3, a2, a4, a1, n] - 
    S2[a6, a5, a3, a4, a1, a2, n] - S2[a6, a5, a3, a4, a2, a1, n] - 
    S2[a6, a5, a4, a1, a3, a2, n] - S2[a6, a5, a4, a3, a1, a2, n] - 
    S2[a6, a5, a4, a3, a2, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a2_, a3_, a6_, a1_, a4_, a5_, n_] :> 
  -(S2[a2, a3, n]*S2[a1, a4, a5, a6, n]) - S2[a2, a3, n]*
     S2[a1, a4, a6, a5, n] + S2[a1, a4, SP[a2, a5], SP[a3, a6], n] + 
    S2[a1, a4, SP[a2, a6], SP[a3, a5], n] - S2[a2, a3, n]*
     S2[a1, a6, a4, a5, n] + S2[a1, a6, SP[a2, a4], SP[a3, a5], n] + 
    S2[a1, SP[a2, a4], a5, SP[a3, a6], n] + S2[a1, SP[a2, a4], a6, 
     SP[a3, a5], n] + S2[a1, SP[a2, a4], SP[a3, a5], a6, n] + 
    S2[a1, SP[a2, a4], SP[a3, a6], a5, n] + S2[a1, SP[a2, a6], a4, 
     SP[a3, a5], n] + S2[a1, SP[a2, a6], SP[a3, a4], a5, n] + 
    S2[SP[a1, a2], a4, a5, SP[a3, a6], n] + S2[SP[a1, a2], a4, a6, 
     SP[a3, a5], n] + S2[SP[a1, a2], a4, SP[a3, a5], a6, n] + 
    S2[SP[a1, a2], a4, SP[a3, a6], a5, n] + S2[SP[a1, a2], a6, a4, 
     SP[a3, a5], n] + S2[SP[a1, a2], a6, SP[a3, a4], a5, n] + 
    S2[SP[a1, a2], SP[a3, a4], a5, a6, n] + S2[SP[a1, a2], SP[a3, a4], a6, 
     a5, n] + S2[SP[a1, a2], SP[a3, a6], a4, a5, n] - 
    S2[a1, a2, a4, a5, SP[a3, a6], n] - S2[a1, a2, a4, a6, SP[a3, a5], n] - 
    S2[a1, a2, a4, SP[a3, a5], a6, n] - S2[a1, a2, a4, SP[a3, a6], a5, n] - 
    S2[a1, a2, a6, a4, SP[a3, a5], n] - S2[a1, a2, a6, SP[a3, a4], a5, n] - 
    S2[a1, a2, SP[a3, a4], a5, a6, n] - S2[a1, a2, SP[a3, a4], a6, a5, n] - 
    S2[a1, a2, SP[a3, a6], a4, a5, n] - S2[a6, n]*S2[a1, a3, a2, a4, a5, n] - 
    S2[a1, a3, a2, a4, SP[a5, a6], n] - S2[a1, a3, a2, SP[a4, a6], a5, n] - 
    S2[a6, n]*S2[a1, a3, a4, a2, a5, n] - S2[a1, a3, a4, a2, SP[a5, a6], n] - 
    S2[a6, n]*S2[a1, a3, a4, a5, a2, n] + 
    S2[a2, n]*S2[a1, a3, a4, a5, a6, n] + 
    S2[a2, n]*S2[a1, a3, a4, a6, a5, n] + S2[a1, a3, a4, a6, SP[a2, a5], n] + 
    S2[a1, a3, a4, SP[a2, a5], a6, n] - S2[a1, a3, a4, SP[a5, a6], a2, n] + 
    S2[a2, n]*S2[a1, a3, a6, a4, a5, n] + S2[a1, a3, a6, a4, SP[a2, a5], n] + 
    S2[a1, a3, a6, SP[a2, a4], a5, n] + S2[a1, a3, SP[a2, a4], a5, a6, n] + 
    S2[a1, a3, SP[a2, a4], a6, a5, n] - S2[a1, a3, SP[a4, a6], a2, a5, n] - 
    S2[a1, a3, SP[a4, a6], a5, a2, n] - S2[a1, a4, a2, a5, SP[a3, a6], n] - 
    S2[a1, a4, a2, a6, SP[a3, a5], n] - S2[a1, a4, a2, SP[a3, a5], a6, n] - 
    S2[a1, a4, a2, SP[a3, a6], a5, n] - S2[a6, n]*S2[a1, a4, a3, a2, a5, n] - 
    S2[a1, a4, a3, a2, SP[a5, a6], n] - S2[a6, n]*S2[a1, a4, a3, a5, a2, n] + 
    S2[a2, n]*S2[a1, a4, a3, a5, a6, n] + 
    S2[a2, n]*S2[a1, a4, a3, a6, a5, n] + S2[a1, a4, a3, a6, SP[a2, a5], n] + 
    S2[a1, a4, a3, SP[a2, a5], a6, n] - S2[a1, a4, a3, SP[a5, a6], a2, n] - 
    S2[a1, a4, a5, a2, SP[a3, a6], n] - S2[a6, n]*S2[a1, a4, a5, a3, a2, n] + 
    S2[a2, n]*S2[a1, a4, a5, a3, a6, n] + 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] + S2[a1, a4, a5, a6, SP[a2, a3], n] + 
    S2[a1, a4, a5, SP[a2, a3], a6, n] - S2[a1, a4, a5, SP[a3, a6], a2, n] - 
    S2[a1, a4, a6, a2, SP[a3, a5], n] + S2[a2, n]*S2[a1, a4, a6, a3, a5, n] + 
    S2[a1, a4, a6, a3, SP[a2, a5], n] + S2[a2, n]*S2[a1, a4, a6, a5, a3, n] + 
    S2[a1, a4, a6, a5, SP[a2, a3], n] + S2[a1, a4, a6, SP[a2, a3], a5, n] + 
    S2[a1, a4, SP[a2, a3], a5, a6, n] + S2[a1, a4, SP[a2, a3], a6, a5, n] - 
    S2[a1, a4, SP[a3, a6], a2, a5, n] - S2[a1, a4, SP[a3, a6], a5, a2, n] - 
    S2[a1, a4, SP[a5, a6], a3, a2, n] - S2[a1, a6, a2, a4, SP[a3, a5], n] - 
    S2[a1, a6, a2, SP[a3, a4], a5, n] + S2[a2, n]*S2[a1, a6, a3, a4, a5, n] + 
    S2[a1, a6, a3, a4, SP[a2, a5], n] + S2[a1, a6, a3, SP[a2, a4], a5, n] - 
    S2[a1, a6, a4, a2, SP[a3, a5], n] + S2[a2, n]*S2[a1, a6, a4, a3, a5, n] + 
    S2[a1, a6, a4, a3, SP[a2, a5], n] + S2[a2, n]*S2[a1, a6, a4, a5, a3, n] + 
    S2[a1, a6, a4, a5, SP[a2, a3], n] + S2[a1, a6, a4, SP[a2, a3], a5, n] + 
    S2[a1, a6, SP[a2, a3], a4, a5, n] + S2[a1, SP[a2, a3], a4, a5, a6, n] + 
    S2[a1, SP[a2, a3], a4, a6, a5, n] + S2[a1, SP[a2, a3], a6, a4, a5, n] - 
    S2[a1, SP[a3, a6], a2, a4, a5, n] - S2[a1, SP[a3, a6], a4, a2, a5, n] - 
    S2[a1, SP[a3, a6], a4, a5, a2, n] - S2[a1, SP[a4, a6], a3, a2, a5, n] - 
    S2[a1, SP[a4, a6], a3, a5, a2, n] - S2[a1, SP[a4, a6], a5, a3, a2, n] - 
    S2[a2, a1, a4, a5, SP[a3, a6], n] - S2[a2, a1, a4, a6, SP[a3, a5], n] - 
    S2[a2, a1, a4, SP[a3, a5], a6, n] - S2[a2, a1, a4, SP[a3, a6], a5, n] - 
    S2[a2, a1, a6, a4, SP[a3, a5], n] - S2[a2, a1, a6, SP[a3, a4], a5, n] - 
    S2[a2, a1, SP[a3, a4], a5, a6, n] - S2[a2, a1, SP[a3, a4], a6, a5, n] - 
    S2[a2, a1, SP[a3, a6], a4, a5, n] + S2[a6, n]*S2[a2, a3, a1, a4, a5, n] + 
    S2[a2, a3, a1, a4, SP[a5, a6], n] + S2[a2, a3, a1, SP[a4, a6], a5, n] + 
    S2[a2, a3, SP[a1, a6], a4, a5, n] - S2[a2, SP[a1, a3], a4, a5, a6, n] - 
    S2[a2, SP[a1, a3], a4, a6, a5, n] - S2[a2, SP[a1, a3], a6, a4, a5, n] + 
    S2[a2, SP[a3, a6], a1, a4, a5, n] - S2[a2, n]*S2[a6, a3, a1, a4, a5, n] - 
    S2[a6, a3, a1, a4, SP[a2, a5], n] - S2[a6, a3, a1, SP[a2, a4], a5, n] - 
    S2[a6, a3, SP[a1, a2], a4, a5, n] - S2[a6, SP[a2, a3], a1, a4, a5, n] - 
    S2[SP[a1, a6], a3, a2, a4, a5, n] - S2[SP[a1, a6], a3, a4, a2, a5, n] - 
    S2[SP[a1, a6], a3, a4, a5, a2, n] - S2[SP[a1, a6], a4, a3, a2, a5, n] - 
    S2[SP[a1, a6], a4, a3, a5, a2, n] - S2[SP[a1, a6], a4, a5, a3, a2, n] + 
    S2[a6, a1, a3, a2, a4, a5, n] + S2[a6, a1, a3, a4, a2, a5, n] + 
    S2[a6, a1, a3, a4, a5, a2, n] + S2[a6, a1, a4, a3, a2, a5, n] + 
    S2[a6, a1, a4, a3, a5, a2, n] + S2[a6, a1, a4, a5, a3, a2, n] + 
    S2[a6, a3, a1, a2, a4, a5, n] + S2[a6, a3, a1, a4, a2, a5, n] + 
    S2[a6, a3, a1, a4, a5, a2, n] + S2[a6, a3, a2, a1, a4, a5, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a2_, a3_, a6_, a1_, a5_, a4_, n_] :> 
  -(S2[a2, a3, n]*S2[a1, a5, a4, a6, n]) - S2[a2, a3, n]*
     S2[a1, a5, a6, a4, n] + S2[a1, a5, SP[a2, a4], SP[a3, a6], n] + 
    S2[a1, a5, SP[a2, a6], SP[a3, a4], n] - S2[a2, a3, n]*
     S2[a1, a6, a5, a4, n] + S2[a1, a6, SP[a2, a5], SP[a3, a4], n] + 
    S2[a1, SP[a2, a5], a4, SP[a3, a6], n] + S2[a1, SP[a2, a5], a6, 
     SP[a3, a4], n] + S2[a1, SP[a2, a5], SP[a3, a4], a6, n] + 
    S2[a1, SP[a2, a5], SP[a3, a6], a4, n] + S2[a1, SP[a2, a6], a5, 
     SP[a3, a4], n] + S2[a1, SP[a2, a6], SP[a3, a5], a4, n] + 
    S2[SP[a1, a2], a5, a4, SP[a3, a6], n] + S2[SP[a1, a2], a5, a6, 
     SP[a3, a4], n] + S2[SP[a1, a2], a5, SP[a3, a4], a6, n] + 
    S2[SP[a1, a2], a5, SP[a3, a6], a4, n] + S2[SP[a1, a2], a6, a5, 
     SP[a3, a4], n] + S2[SP[a1, a2], a6, SP[a3, a5], a4, n] + 
    S2[SP[a1, a2], SP[a3, a5], a4, a6, n] + S2[SP[a1, a2], SP[a3, a5], a6, 
     a4, n] + S2[SP[a1, a2], SP[a3, a6], a5, a4, n] - 
    S2[a1, a2, a5, a4, SP[a3, a6], n] - S2[a1, a2, a5, a6, SP[a3, a4], n] - 
    S2[a1, a2, a5, SP[a3, a4], a6, n] - S2[a1, a2, a5, SP[a3, a6], a4, n] - 
    S2[a1, a2, a6, a5, SP[a3, a4], n] - S2[a1, a2, a6, SP[a3, a5], a4, n] - 
    S2[a1, a2, SP[a3, a5], a4, a6, n] - S2[a1, a2, SP[a3, a5], a6, a4, n] - 
    S2[a1, a2, SP[a3, a6], a5, a4, n] - S2[a6, n]*S2[a1, a3, a2, a5, a4, n] - 
    S2[a1, a3, a2, a5, SP[a4, a6], n] - S2[a1, a3, a2, SP[a5, a6], a4, n] - 
    S2[a6, n]*S2[a1, a3, a5, a2, a4, n] - S2[a1, a3, a5, a2, SP[a4, a6], n] - 
    S2[a6, n]*S2[a1, a3, a5, a4, a2, n] + 
    S2[a2, n]*S2[a1, a3, a5, a4, a6, n] + 
    S2[a2, n]*S2[a1, a3, a5, a6, a4, n] + S2[a1, a3, a5, a6, SP[a2, a4], n] + 
    S2[a1, a3, a5, SP[a2, a4], a6, n] - S2[a1, a3, a5, SP[a4, a6], a2, n] + 
    S2[a2, n]*S2[a1, a3, a6, a5, a4, n] + S2[a1, a3, a6, a5, SP[a2, a4], n] + 
    S2[a1, a3, a6, SP[a2, a5], a4, n] + S2[a1, a3, SP[a2, a5], a4, a6, n] + 
    S2[a1, a3, SP[a2, a5], a6, a4, n] - S2[a1, a3, SP[a5, a6], a2, a4, n] - 
    S2[a1, a3, SP[a5, a6], a4, a2, n] - S2[a1, a5, a2, a4, SP[a3, a6], n] - 
    S2[a1, a5, a2, a6, SP[a3, a4], n] - S2[a1, a5, a2, SP[a3, a4], a6, n] - 
    S2[a1, a5, a2, SP[a3, a6], a4, n] - S2[a6, n]*S2[a1, a5, a3, a2, a4, n] - 
    S2[a1, a5, a3, a2, SP[a4, a6], n] - S2[a6, n]*S2[a1, a5, a3, a4, a2, n] + 
    S2[a2, n]*S2[a1, a5, a3, a4, a6, n] + 
    S2[a2, n]*S2[a1, a5, a3, a6, a4, n] + S2[a1, a5, a3, a6, SP[a2, a4], n] + 
    S2[a1, a5, a3, SP[a2, a4], a6, n] - S2[a1, a5, a3, SP[a4, a6], a2, n] - 
    S2[a1, a5, a4, a2, SP[a3, a6], n] - S2[a6, n]*S2[a1, a5, a4, a3, a2, n] + 
    S2[a2, n]*S2[a1, a5, a4, a3, a6, n] + 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] + S2[a1, a5, a4, a6, SP[a2, a3], n] + 
    S2[a1, a5, a4, SP[a2, a3], a6, n] - S2[a1, a5, a4, SP[a3, a6], a2, n] - 
    S2[a1, a5, a6, a2, SP[a3, a4], n] + S2[a2, n]*S2[a1, a5, a6, a3, a4, n] + 
    S2[a1, a5, a6, a3, SP[a2, a4], n] + S2[a2, n]*S2[a1, a5, a6, a4, a3, n] + 
    S2[a1, a5, a6, a4, SP[a2, a3], n] + S2[a1, a5, a6, SP[a2, a3], a4, n] + 
    S2[a1, a5, SP[a2, a3], a4, a6, n] + S2[a1, a5, SP[a2, a3], a6, a4, n] - 
    S2[a1, a5, SP[a3, a6], a2, a4, n] - S2[a1, a5, SP[a3, a6], a4, a2, n] - 
    S2[a1, a5, SP[a4, a6], a3, a2, n] - S2[a1, a6, a2, a5, SP[a3, a4], n] - 
    S2[a1, a6, a2, SP[a3, a5], a4, n] + S2[a2, n]*S2[a1, a6, a3, a5, a4, n] + 
    S2[a1, a6, a3, a5, SP[a2, a4], n] + S2[a1, a6, a3, SP[a2, a5], a4, n] - 
    S2[a1, a6, a5, a2, SP[a3, a4], n] + S2[a2, n]*S2[a1, a6, a5, a3, a4, n] + 
    S2[a1, a6, a5, a3, SP[a2, a4], n] + S2[a2, n]*S2[a1, a6, a5, a4, a3, n] + 
    S2[a1, a6, a5, a4, SP[a2, a3], n] + S2[a1, a6, a5, SP[a2, a3], a4, n] + 
    S2[a1, a6, SP[a2, a3], a5, a4, n] + S2[a1, SP[a2, a3], a5, a4, a6, n] + 
    S2[a1, SP[a2, a3], a5, a6, a4, n] + S2[a1, SP[a2, a3], a6, a5, a4, n] - 
    S2[a1, SP[a3, a6], a2, a5, a4, n] - S2[a1, SP[a3, a6], a5, a2, a4, n] - 
    S2[a1, SP[a3, a6], a5, a4, a2, n] - S2[a1, SP[a5, a6], a3, a2, a4, n] - 
    S2[a1, SP[a5, a6], a3, a4, a2, n] - S2[a1, SP[a5, a6], a4, a3, a2, n] - 
    S2[a2, a1, a5, a4, SP[a3, a6], n] - S2[a2, a1, a5, a6, SP[a3, a4], n] - 
    S2[a2, a1, a5, SP[a3, a4], a6, n] - S2[a2, a1, a5, SP[a3, a6], a4, n] - 
    S2[a2, a1, a6, a5, SP[a3, a4], n] - S2[a2, a1, a6, SP[a3, a5], a4, n] - 
    S2[a2, a1, SP[a3, a5], a4, a6, n] - S2[a2, a1, SP[a3, a5], a6, a4, n] - 
    S2[a2, a1, SP[a3, a6], a5, a4, n] + S2[a6, n]*S2[a2, a3, a1, a5, a4, n] + 
    S2[a2, a3, a1, a5, SP[a4, a6], n] + S2[a2, a3, a1, SP[a5, a6], a4, n] + 
    S2[a2, a3, SP[a1, a6], a5, a4, n] - S2[a2, SP[a1, a3], a5, a4, a6, n] - 
    S2[a2, SP[a1, a3], a5, a6, a4, n] - S2[a2, SP[a1, a3], a6, a5, a4, n] + 
    S2[a2, SP[a3, a6], a1, a5, a4, n] - S2[a2, n]*S2[a6, a3, a1, a5, a4, n] - 
    S2[a6, a3, a1, a5, SP[a2, a4], n] - S2[a6, a3, a1, SP[a2, a5], a4, n] - 
    S2[a6, a3, SP[a1, a2], a5, a4, n] - S2[a6, SP[a2, a3], a1, a5, a4, n] - 
    S2[SP[a1, a6], a3, a2, a5, a4, n] - S2[SP[a1, a6], a3, a5, a2, a4, n] - 
    S2[SP[a1, a6], a3, a5, a4, a2, n] - S2[SP[a1, a6], a5, a3, a2, a4, n] - 
    S2[SP[a1, a6], a5, a3, a4, a2, n] - S2[SP[a1, a6], a5, a4, a3, a2, n] + 
    S2[a6, a1, a3, a2, a5, a4, n] + S2[a6, a1, a3, a5, a2, a4, n] + 
    S2[a6, a1, a3, a5, a4, a2, n] + S2[a6, a1, a5, a3, a2, a4, n] + 
    S2[a6, a1, a5, a3, a4, a2, n] + S2[a6, a1, a5, a4, a3, a2, n] + 
    S2[a6, a3, a1, a2, a5, a4, n] + S2[a6, a3, a1, a5, a2, a4, n] + 
    S2[a6, a3, a1, a5, a4, a2, n] + S2[a6, a3, a2, a1, a5, a4, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a2_, a3_, a6_, a4_, a1_, a5_, n_] :> 
  S2[a2, a3, n]*S2[a1, a4, a5, a6, n] + S2[a2, a3, n]*S2[a1, a4, a6, a5, n] - 
    S2[a1, a4, SP[a2, a5], SP[a3, a6], n] - S2[a1, a4, SP[a2, a6], 
     SP[a3, a5], n] + S2[a2, a3, n]*S2[a1, a5, a4, a6, n] - 
    S2[a1, a5, SP[a2, a4], SP[a3, a6], n] - S2[a1, SP[a2, a4], a5, 
     SP[a3, a6], n] - S2[a1, SP[a2, a4], a6, SP[a3, a5], n] - 
    S2[a1, SP[a2, a4], SP[a3, a5], a6, n] - S2[a1, SP[a2, a4], SP[a3, a6], 
     a5, n] - S2[a1, SP[a2, a5], a4, SP[a3, a6], n] - 
    S2[a1, SP[a2, a5], SP[a3, a4], a6, n] + S2[a1, a5, n]*
     S2[a2, a3, a6, a4, n] - S2[a2, a3, SP[a1, a6], SP[a4, a5], n] + 
    S2[a1, a5, n]*S2[a2, a6, a3, a4, n] + S2[a1, a5, n]*
     S2[a2, a6, a4, a3, n] - S2[a2, a6, SP[a1, a3], SP[a4, a5], n] - 
    S2[a2, a6, SP[a1, a4], SP[a3, a5], n] - S2[a2, SP[a1, a3], a6, 
     SP[a4, a5], n] - S2[a2, SP[a1, a3], SP[a5, a6], a4, n] - 
    S2[a2, SP[a1, a6], a3, SP[a4, a5], n] - S2[a2, SP[a1, a6], a4, 
     SP[a3, a5], n] - S2[a2, SP[a1, a6], SP[a3, a5], a4, n] - 
    S2[a2, SP[a1, a6], SP[a4, a5], a3, n] - S2[a1, a5, n]*
     S2[a4, a6, a2, a3, n] + S2[a4, a6, SP[a1, a2], SP[a3, a5], n] + 
    S2[a4, SP[a1, a6], a2, SP[a3, a5], n] + S2[a4, SP[a1, a6], SP[a2, a5], 
     a3, n] - S2[SP[a1, a2], a3, a6, SP[a4, a5], n] - 
    S2[SP[a1, a2], a3, SP[a5, a6], a4, n] - S2[SP[a1, a2], a4, a5, 
     SP[a3, a6], n] - S2[SP[a1, a2], a4, a6, SP[a3, a5], n] - 
    S2[SP[a1, a2], a4, SP[a3, a5], a6, n] - S2[SP[a1, a2], a4, SP[a3, a6], 
     a5, n] - S2[SP[a1, a2], a5, a4, SP[a3, a6], n] - 
    S2[SP[a1, a2], a5, SP[a3, a4], a6, n] - S2[SP[a1, a2], a6, a3, 
     SP[a4, a5], n] - S2[SP[a1, a2], a6, a4, SP[a3, a5], n] - 
    S2[SP[a1, a2], a6, SP[a3, a5], a4, n] - S2[SP[a1, a2], a6, SP[a4, a5], 
     a3, n] - S2[SP[a1, a2], SP[a3, a4], a5, a6, n] - 
    S2[SP[a1, a2], SP[a3, a4], a6, a5, n] - S2[SP[a1, a2], SP[a3, a5], a4, 
     a6, n] - S2[SP[a1, a2], SP[a3, a5], a6, a4, n] - 
    S2[SP[a1, a2], SP[a5, a6], a3, a4, n] - S2[SP[a1, a2], SP[a5, a6], a4, 
     a3, n] + S2[SP[a1, a4], a6, a2, SP[a3, a5], n] + 
    S2[SP[a1, a4], a6, SP[a2, a5], a3, n] + S2[SP[a1, a4], SP[a5, a6], a2, 
     a3, n] + S2[a1, a2, a3, a6, SP[a4, a5], n] + S2[a1, a2, a3, SP[a5, a6], 
     a4, n] + S2[a1, a2, a4, a5, SP[a3, a6], n] + 
    S2[a1, a2, a4, a6, SP[a3, a5], n] + S2[a1, a2, a4, SP[a3, a5], a6, n] + 
    S2[a1, a2, a4, SP[a3, a6], a5, n] + S2[a1, a2, a5, a4, SP[a3, a6], n] + 
    S2[a1, a2, a5, SP[a3, a4], a6, n] + S2[a1, a2, a6, a3, SP[a4, a5], n] + 
    S2[a1, a2, a6, a4, SP[a3, a5], n] + S2[a1, a2, a6, SP[a3, a5], a4, n] + 
    S2[a1, a2, a6, SP[a4, a5], a3, n] + S2[a1, a2, SP[a3, a4], a5, a6, n] + 
    S2[a1, a2, SP[a3, a4], a6, a5, n] + S2[a1, a2, SP[a3, a5], a4, a6, n] + 
    S2[a1, a2, SP[a3, a5], a6, a4, n] + S2[a1, a2, SP[a5, a6], a3, a4, n] + 
    S2[a1, a2, SP[a5, a6], a4, a3, n] + S2[a6, n]*S2[a1, a3, a2, a4, a5, n] + 
    S2[a1, a3, a2, a4, SP[a5, a6], n] + S2[a6, n]*S2[a1, a3, a2, a5, a4, n] + 
    S2[a1, a3, a2, a5, SP[a4, a6], n] + S2[a1, a3, a2, SP[a4, a6], a5, n] + 
    S2[a1, a3, a2, SP[a5, a6], a4, n] + S2[a6, n]*S2[a1, a3, a4, a2, a5, n] + 
    S2[a1, a3, a4, a2, SP[a5, a6], n] + S2[a6, n]*S2[a1, a3, a4, a5, a2, n] - 
    S2[a2, n]*S2[a1, a3, a4, a5, a6, n] - 
    S2[a2, n]*S2[a1, a3, a4, a6, a5, n] - S2[a1, a3, a4, a6, SP[a2, a5], n] - 
    S2[a1, a3, a4, SP[a2, a5], a6, n] + S2[a1, a3, a4, SP[a5, a6], a2, n] + 
    S2[a6, n]*S2[a1, a3, a5, a2, a4, n] + S2[a1, a3, a5, a2, SP[a4, a6], n] + 
    S2[a6, n]*S2[a1, a3, a5, a4, a2, n] - 
    S2[a2, n]*S2[a1, a3, a5, a4, a6, n] - 
    S2[a2, n]*S2[a1, a3, a5, a6, a4, n] - S2[a1, a3, a5, a6, SP[a2, a4], n] - 
    S2[a1, a3, a5, SP[a2, a4], a6, n] + S2[a1, a3, a5, SP[a4, a6], a2, n] - 
    S2[a2, n]*S2[a1, a3, a6, a4, a5, n] - S2[a1, a3, a6, a4, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a3, a6, a5, a4, n] - S2[a1, a3, a6, a5, SP[a2, a4], n] - 
    S2[a1, a3, a6, SP[a2, a4], a5, n] - S2[a1, a3, a6, SP[a2, a5], a4, n] - 
    S2[a1, a3, SP[a2, a4], a5, a6, n] - S2[a1, a3, SP[a2, a4], a6, a5, n] - 
    S2[a1, a3, SP[a2, a5], a4, a6, n] - S2[a1, a3, SP[a2, a5], a6, a4, n] + 
    S2[a1, a3, SP[a4, a6], a2, a5, n] + S2[a1, a3, SP[a4, a6], a5, a2, n] + 
    S2[a1, a3, SP[a5, a6], a2, a4, n] + S2[a1, a3, SP[a5, a6], a4, a2, n] + 
    S2[a1, a4, a2, a5, SP[a3, a6], n] + S2[a1, a4, a2, a6, SP[a3, a5], n] + 
    S2[a1, a4, a2, SP[a3, a5], a6, n] + S2[a1, a4, a2, SP[a3, a6], a5, n] + 
    S2[a6, n]*S2[a1, a4, a3, a2, a5, n] + S2[a1, a4, a3, a2, SP[a5, a6], n] + 
    S2[a6, n]*S2[a1, a4, a3, a5, a2, n] - 
    S2[a2, n]*S2[a1, a4, a3, a5, a6, n] - 
    S2[a2, n]*S2[a1, a4, a3, a6, a5, n] - S2[a1, a4, a3, a6, SP[a2, a5], n] - 
    S2[a1, a4, a3, SP[a2, a5], a6, n] + S2[a1, a4, a3, SP[a5, a6], a2, n] + 
    S2[a1, a4, a5, a2, SP[a3, a6], n] + S2[a6, n]*S2[a1, a4, a5, a3, a2, n] - 
    S2[a2, n]*S2[a1, a4, a5, a3, a6, n] - 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] - S2[a1, a4, a5, a6, SP[a2, a3], n] - 
    S2[a1, a4, a5, SP[a2, a3], a6, n] + S2[a1, a4, a5, SP[a3, a6], a2, n] - 
    S2[a2, n]*S2[a1, a4, a6, a3, a5, n] - S2[a1, a4, a6, a3, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a4, a6, a5, a3, n] - S2[a1, a4, a6, a5, SP[a2, a3], n] - 
    S2[a1, a4, a6, SP[a2, a3], a5, n] - S2[a1, a4, a6, SP[a2, a5], a3, n] - 
    S2[a1, a4, SP[a2, a3], a5, a6, n] - S2[a1, a4, SP[a2, a3], a6, a5, n] + 
    S2[a1, a4, SP[a3, a6], a2, a5, n] + S2[a1, a4, SP[a3, a6], a5, a2, n] - 
    S2[a1, a4, SP[a5, a6], a2, a3, n] + S2[a1, a4, SP[a5, a6], a3, a2, n] + 
    S2[a1, a5, a2, a4, SP[a3, a6], n] + S2[a1, a5, a2, SP[a3, a4], a6, n] + 
    S2[a6, n]*S2[a1, a5, a3, a2, a4, n] + S2[a1, a5, a3, a2, SP[a4, a6], n] + 
    S2[a6, n]*S2[a1, a5, a3, a4, a2, n] - 
    S2[a2, n]*S2[a1, a5, a3, a4, a6, n] - 
    S2[a2, n]*S2[a1, a5, a3, a6, a4, n] - S2[a1, a5, a3, a6, SP[a2, a4], n] - 
    S2[a1, a5, a3, SP[a2, a4], a6, n] + S2[a1, a5, a3, SP[a4, a6], a2, n] + 
    S2[a1, a5, a4, a2, SP[a3, a6], n] + S2[a6, n]*S2[a1, a5, a4, a3, a2, n] - 
    S2[a2, n]*S2[a1, a5, a4, a3, a6, n] - 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] - S2[a1, a5, a4, a6, SP[a2, a3], n] - 
    S2[a1, a5, a4, SP[a2, a3], a6, n] + S2[a1, a5, a4, SP[a3, a6], a2, n] + 
    S2[a4, n]*S2[a1, a5, a6, a2, a3, n] + S2[a1, a5, a6, a2, SP[a3, a4], n] - 
    S2[a2, n]*S2[a1, a5, a6, a3, a4, n] - S2[a1, a5, a6, a3, SP[a2, a4], n] - 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] - S2[a1, a5, a6, a4, SP[a2, a3], n] - 
    S2[a1, a5, a6, SP[a2, a3], a4, n] - S2[a1, a5, SP[a2, a3], a4, a6, n] - 
    S2[a1, a5, SP[a2, a3], a6, a4, n] - S2[a1, a5, SP[a2, a6], a3, a4, n] - 
    S2[a1, a5, SP[a2, a6], a4, a3, n] + S2[a1, a5, SP[a3, a6], a2, a4, n] + 
    S2[a1, a5, SP[a3, a6], a4, a2, n] + S2[a1, a5, SP[a4, a6], a2, a3, n] + 
    S2[a1, a5, SP[a4, a6], a3, a2, n] + S2[a4, n]*S2[a1, a6, a2, a3, a5, n] + 
    S2[a1, a6, a2, a3, SP[a4, a5], n] + S2[a4, n]*S2[a1, a6, a2, a5, a3, n] + 
    S2[a1, a6, a2, a5, SP[a3, a4], n] + S2[a1, a6, a2, SP[a3, a4], a5, n] + 
    S2[a1, a6, a2, SP[a4, a5], a3, n] - S2[a2, n]*S2[a1, a6, a3, a4, a5, n] - 
    S2[a1, a6, a3, a4, SP[a2, a5], n] - S2[a2, n]*S2[a1, a6, a3, a5, a4, n] - 
    S2[a1, a6, a3, a5, SP[a2, a4], n] - S2[a1, a6, a3, SP[a2, a4], a5, n] - 
    S2[a1, a6, a3, SP[a2, a5], a4, n] - S2[a2, n]*S2[a1, a6, a4, a3, a5, n] - 
    S2[a1, a6, a4, a3, SP[a2, a5], n] - S2[a2, n]*S2[a1, a6, a4, a5, a3, n] - 
    S2[a1, a6, a4, a5, SP[a2, a3], n] - S2[a1, a6, a4, SP[a2, a3], a5, n] - 
    S2[a1, a6, a4, SP[a2, a5], a3, n] + S2[a4, n]*S2[a1, a6, a5, a2, a3, n] + 
    S2[a1, a6, a5, a2, SP[a3, a4], n] - S2[a2, n]*S2[a1, a6, a5, a3, a4, n] - 
    S2[a1, a6, a5, a3, SP[a2, a4], n] - S2[a2, n]*S2[a1, a6, a5, a4, a3, n] - 
    S2[a1, a6, a5, a4, SP[a2, a3], n] - S2[a1, a6, a5, SP[a2, a3], a4, n] - 
    S2[a1, a6, SP[a2, a3], a4, a5, n] - S2[a1, a6, SP[a2, a3], a5, a4, n] - 
    S2[a1, a6, SP[a2, a5], a3, a4, n] - S2[a1, a6, SP[a2, a5], a4, a3, n] + 
    S2[a1, a6, SP[a4, a5], a2, a3, n] - S2[a1, SP[a2, a3], a4, a5, a6, n] - 
    S2[a1, SP[a2, a3], a4, a6, a5, n] - S2[a1, SP[a2, a3], a5, a4, a6, n] - 
    S2[a1, SP[a2, a3], a5, a6, a4, n] - S2[a1, SP[a2, a3], a6, a4, a5, n] - 
    S2[a1, SP[a2, a3], a6, a5, a4, n] - S2[a1, SP[a2, a6], a3, a4, a5, n] - 
    S2[a1, SP[a2, a6], a3, a5, a4, n] - S2[a1, SP[a2, a6], a4, a3, a5, n] - 
    S2[a1, SP[a2, a6], a4, a5, a3, n] - S2[a1, SP[a2, a6], a5, a3, a4, n] - 
    S2[a1, SP[a2, a6], a5, a4, a3, n] + S2[a1, SP[a3, a6], a2, a4, a5, n] + 
    S2[a1, SP[a3, a6], a2, a5, a4, n] + S2[a1, SP[a3, a6], a4, a2, a5, n] + 
    S2[a1, SP[a3, a6], a4, a5, a2, n] + S2[a1, SP[a3, a6], a5, a2, a4, n] + 
    S2[a1, SP[a3, a6], a5, a4, a2, n] + S2[a1, SP[a4, a6], a2, a3, a5, n] + 
    S2[a1, SP[a4, a6], a2, a5, a3, n] + S2[a1, SP[a4, a6], a3, a2, a5, n] + 
    S2[a1, SP[a4, a6], a3, a5, a2, n] + S2[a1, SP[a4, a6], a5, a2, a3, n] + 
    S2[a1, SP[a4, a6], a5, a3, a2, n] + S2[a1, SP[a5, a6], a3, a2, a4, n] + 
    S2[a1, SP[a5, a6], a3, a4, a2, n] + S2[a1, SP[a5, a6], a4, a3, a2, n] + 
    S2[a2, a1, a3, a6, SP[a4, a5], n] + S2[a2, a1, a3, SP[a5, a6], a4, n] + 
    S2[a2, a1, a4, a5, SP[a3, a6], n] + S2[a2, a1, a4, a6, SP[a3, a5], n] + 
    S2[a2, a1, a4, SP[a3, a5], a6, n] + S2[a2, a1, a4, SP[a3, a6], a5, n] + 
    S2[a2, a1, a5, a4, SP[a3, a6], n] + S2[a2, a1, a5, SP[a3, a4], a6, n] + 
    S2[a2, a1, a6, a3, SP[a4, a5], n] + S2[a2, a1, a6, a4, SP[a3, a5], n] + 
    S2[a2, a1, a6, SP[a3, a5], a4, n] + S2[a2, a1, a6, SP[a4, a5], a3, n] + 
    S2[a2, a1, SP[a3, a4], a5, a6, n] + S2[a2, a1, SP[a3, a4], a6, a5, n] + 
    S2[a2, a1, SP[a3, a5], a4, a6, n] + S2[a2, a1, SP[a3, a5], a6, a4, n] + 
    S2[a2, a1, SP[a5, a6], a3, a4, n] + S2[a2, a1, SP[a5, a6], a4, a3, n] - 
    S2[a6, n]*S2[a2, a3, a1, a4, a5, n] - S2[a2, a3, a1, a4, SP[a5, a6], n] - 
    S2[a6, n]*S2[a2, a3, a1, a5, a4, n] - S2[a2, a3, a1, a5, SP[a4, a6], n] + 
    S2[a2, a3, a1, a6, SP[a4, a5], n] - S2[a2, a3, a1, SP[a4, a6], a5, n] + 
    S2[a2, a3, a6, a1, SP[a4, a5], n] + S2[a2, a3, a6, SP[a1, a4], a5, n] - 
    S2[a4, n]*S2[a2, a6, a1, a3, a5, n] + S2[a2, a6, a1, a4, SP[a3, a5], n] - 
    S2[a4, n]*S2[a2, a6, a1, a5, a3, n] - S2[a2, a6, a1, a5, SP[a3, a4], n] - 
    S2[a2, a6, a1, SP[a3, a4], a5, n] + S2[a2, a6, a1, SP[a3, a5], a4, n] + 
    S2[a2, a6, a3, a1, SP[a4, a5], n] + S2[a2, a6, a3, SP[a1, a4], a5, n] + 
    S2[a2, a6, a4, a1, SP[a3, a5], n] + S2[a2, a6, a4, SP[a1, a3], a5, n] + 
    S2[a2, a6, SP[a1, a3], a4, a5, n] + S2[a2, a6, SP[a1, a3], a5, a4, n] + 
    S2[a2, SP[a1, a3], a4, a5, a6, n] + S2[a2, SP[a1, a3], a4, a6, a5, n] + 
    S2[a2, SP[a1, a3], a5, a4, a6, n] + S2[a2, SP[a1, a3], a5, a6, a4, n] + 
    S2[a2, SP[a1, a3], a6, a4, a5, n] + S2[a2, SP[a1, a3], a6, a5, a4, n] + 
    S2[a2, SP[a1, a6], a3, a4, a5, n] + S2[a2, SP[a1, a6], a3, a5, a4, n] + 
    S2[a2, SP[a1, a6], a4, a3, a5, n] + S2[a2, SP[a1, a6], a4, a5, a3, n] + 
    S2[a2, SP[a1, a6], a5, a3, a4, n] + S2[a2, SP[a1, a6], a5, a4, a3, n] - 
    S2[a2, SP[a3, a6], a1, a4, a5, n] - S2[a2, SP[a3, a6], a1, a5, a4, n] - 
    S2[a2, SP[a4, a6], a1, a3, a5, n] - S2[a2, SP[a4, a6], a1, a5, a3, n] - 
    S2[a4, a1, a6, a2, SP[a3, a5], n] - S2[a4, a1, a6, SP[a2, a5], a3, n] - 
    S2[a4, a1, SP[a5, a6], a2, a3, n] - S2[a4, a6, a1, a2, SP[a3, a5], n] + 
    S2[a2, n]*S2[a4, a6, a1, a3, a5, n] + S2[a4, a6, a1, a3, SP[a2, a5], n] + 
    S2[a2, n]*S2[a4, a6, a1, a5, a3, n] + S2[a4, a6, a1, a5, SP[a2, a3], n] + 
    S2[a4, a6, a1, SP[a2, a3], a5, n] - S2[a4, a6, a2, a1, SP[a3, a5], n] - 
    S2[a4, a6, a2, SP[a1, a3], a5, n] - S2[a4, SP[a1, a6], a2, a3, a5, n] - 
    S2[a4, SP[a1, a6], a2, a5, a3, n] - S2[a4, SP[a1, a6], a5, a2, a3, n] + 
    S2[a4, SP[a2, a6], a1, a3, a5, n] + S2[a4, SP[a2, a6], a1, a5, a3, n] - 
    S2[a4, n]*S2[a6, a1, a3, a2, a5, n] - S2[a6, a1, a3, a2, SP[a4, a5], n] - 
    S2[a4, n]*S2[a6, a1, a3, a5, a2, n] - S2[a6, a1, a3, a5, SP[a2, a4], n] - 
    S2[a6, a1, a3, SP[a2, a4], a5, n] - S2[a6, a1, a3, SP[a4, a5], a2, n] - 
    S2[a4, n]*S2[a6, a1, a5, a3, a2, n] - S2[a6, a1, a5, a3, SP[a2, a4], n] - 
    S2[a6, a1, a5, SP[a3, a4], a2, n] - S2[a6, a1, SP[a3, a4], a2, a5, n] - 
    S2[a6, a1, SP[a3, a4], a5, a2, n] - S2[a6, a1, SP[a4, a5], a3, a2, n] + 
    S2[a4, n]*S2[a6, a2, a3, a1, a5, n] + S2[a6, a2, a3, a1, SP[a4, a5], n] + 
    S2[a6, a2, a3, SP[a1, a4], a5, n] + S2[a6, a2, SP[a3, a4], a1, a5, n] - 
    S2[a2, n]*S2[a6, a3, a4, a1, a5, n] - S2[a6, a3, a4, a1, SP[a2, a5], n] - 
    S2[a6, a3, a4, SP[a1, a2], a5, n] - S2[a6, a3, SP[a2, a4], a1, a5, n] - 
    S2[a2, n]*S2[a6, a4, a3, a1, a5, n] - S2[a6, a4, a3, a1, SP[a2, a5], n] - 
    S2[a6, a4, a3, SP[a1, a2], a5, n] - S2[a6, a4, SP[a2, a3], a1, a5, n] - 
    S2[a6, SP[a1, a4], a3, a2, a5, n] - S2[a6, SP[a1, a4], a3, a5, a2, n] - 
    S2[a6, SP[a1, a4], a5, a3, a2, n] - S2[a6, SP[a2, a3], a4, a1, a5, n] + 
    S2[SP[a1, a6], a3, a2, a4, a5, n] + S2[SP[a1, a6], a3, a2, a5, a4, n] + 
    S2[SP[a1, a6], a3, a4, a2, a5, n] + S2[SP[a1, a6], a3, a4, a5, a2, n] + 
    S2[SP[a1, a6], a3, a5, a2, a4, n] + S2[SP[a1, a6], a3, a5, a4, a2, n] + 
    S2[SP[a1, a6], a4, a3, a2, a5, n] + S2[SP[a1, a6], a4, a3, a5, a2, n] + 
    S2[SP[a1, a6], a4, a5, a3, a2, n] + S2[SP[a1, a6], a5, a3, a2, a4, n] + 
    S2[SP[a1, a6], a5, a3, a4, a2, n] + S2[SP[a1, a6], a5, a4, a3, a2, n] - 
    S2[SP[a2, a6], a3, a1, a4, a5, n] - S2[SP[a2, a6], a3, a1, a5, a4, n] - 
    S2[SP[a2, a6], a3, a4, a1, a5, n] - S2[SP[a2, a6], a4, a3, a1, a5, n] - 
    S2[SP[a4, a6], a1, a3, a2, a5, n] - S2[SP[a4, a6], a1, a3, a5, a2, n] - 
    S2[SP[a4, a6], a1, a5, a3, a2, n] + S2[SP[a4, a6], a2, a3, a1, a5, n] + 
    S2[a6, a3, a2, a4, a1, a5, n] + S2[a6, a3, a4, a1, a2, a5, n] + 
    S2[a6, a3, a4, a1, a5, a2, n] + S2[a6, a3, a4, a2, a1, a5, n] + 
    S2[a6, a4, a1, a3, a2, a5, n] + S2[a6, a4, a1, a3, a5, a2, n] + 
    S2[a6, a4, a1, a5, a3, a2, n] + S2[a6, a4, a3, a1, a2, a5, n] + 
    S2[a6, a4, a3, a1, a5, a2, n] + S2[a6, a4, a3, a2, a1, a5, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a2_, a3_, a6_, a4_, a5_, a1_, n_] :> 
  -(S2[a2, a3, n]*S2[a1, a5, a4, a6, n]) + S2[a1, a5, SP[a2, a4], SP[a3, a6], 
     n] + S2[a1, SP[a2, a5], a4, SP[a3, a6], n] + 
    S2[a1, SP[a2, a5], SP[a3, a4], a6, n] - S2[a1, a5, n]*
     S2[a2, a3, a6, a4, n] + S2[a2, a3, SP[a1, a6], SP[a4, a5], n] - 
    S2[a1, a5, n]*S2[a2, a6, a3, a4, n] - S2[a1, a5, n]*
     S2[a2, a6, a4, a3, n] + S2[a2, a6, SP[a1, a3], SP[a4, a5], n] + 
    S2[a2, a6, SP[a1, a4], SP[a3, a5], n] + S2[a2, SP[a1, a3], a6, 
     SP[a4, a5], n] + S2[a2, SP[a1, a3], SP[a5, a6], a4, n] + 
    S2[a2, SP[a1, a6], a3, SP[a4, a5], n] + S2[a2, SP[a1, a6], a4, 
     SP[a3, a5], n] + S2[a2, SP[a1, a6], SP[a3, a5], a4, n] + 
    S2[a2, SP[a1, a6], SP[a4, a5], a3, n] + S2[a1, a5, n]*
     S2[a4, a6, a2, a3, n] - S2[a4, a6, SP[a1, a2], SP[a3, a5], n] - 
    S2[a4, SP[a1, a6], a2, SP[a3, a5], n] - S2[a4, SP[a1, a6], SP[a2, a5], 
     a3, n] + S2[SP[a1, a2], a3, a6, SP[a4, a5], n] + 
    S2[SP[a1, a2], a3, SP[a5, a6], a4, n] + S2[SP[a1, a2], a5, a4, 
     SP[a3, a6], n] + S2[SP[a1, a2], a5, SP[a3, a4], a6, n] + 
    S2[SP[a1, a2], a6, a3, SP[a4, a5], n] + S2[SP[a1, a2], a6, a4, 
     SP[a3, a5], n] + S2[SP[a1, a2], a6, SP[a3, a5], a4, n] + 
    S2[SP[a1, a2], a6, SP[a4, a5], a3, n] + S2[SP[a1, a2], SP[a3, a5], a4, 
     a6, n] + S2[SP[a1, a2], SP[a3, a5], a6, a4, n] + 
    S2[SP[a1, a2], SP[a5, a6], a3, a4, n] + S2[SP[a1, a2], SP[a5, a6], a4, 
     a3, n] - S2[SP[a1, a4], a6, a2, SP[a3, a5], n] - 
    S2[SP[a1, a4], a6, SP[a2, a5], a3, n] - S2[SP[a1, a4], SP[a5, a6], a2, 
     a3, n] - S2[a1, a2, a3, a6, SP[a4, a5], n] - S2[a1, a2, a3, SP[a5, a6], 
     a4, n] - S2[a1, a2, a5, a4, SP[a3, a6], n] - S2[a1, a2, a5, SP[a3, a4], 
     a6, n] - S2[a1, a2, a6, a3, SP[a4, a5], n] - 
    S2[a1, a2, a6, a4, SP[a3, a5], n] - S2[a1, a2, a6, SP[a3, a5], a4, n] - 
    S2[a1, a2, a6, SP[a4, a5], a3, n] - S2[a1, a2, SP[a3, a5], a4, a6, n] - 
    S2[a1, a2, SP[a3, a5], a6, a4, n] - S2[a1, a2, SP[a5, a6], a3, a4, n] - 
    S2[a1, a2, SP[a5, a6], a4, a3, n] - S2[a6, n]*S2[a1, a3, a2, a5, a4, n] - 
    S2[a1, a3, a2, a5, SP[a4, a6], n] - S2[a1, a3, a2, SP[a5, a6], a4, n] - 
    S2[a6, n]*S2[a1, a3, a5, a2, a4, n] - S2[a1, a3, a5, a2, SP[a4, a6], n] - 
    S2[a6, n]*S2[a1, a3, a5, a4, a2, n] + 
    S2[a2, n]*S2[a1, a3, a5, a4, a6, n] + 
    S2[a2, n]*S2[a1, a3, a5, a6, a4, n] + S2[a1, a3, a5, a6, SP[a2, a4], n] + 
    S2[a1, a3, a5, SP[a2, a4], a6, n] - S2[a1, a3, a5, SP[a4, a6], a2, n] + 
    S2[a2, n]*S2[a1, a3, a6, a5, a4, n] + S2[a1, a3, a6, a5, SP[a2, a4], n] + 
    S2[a1, a3, a6, SP[a2, a5], a4, n] + S2[a1, a3, SP[a2, a5], a4, a6, n] + 
    S2[a1, a3, SP[a2, a5], a6, a4, n] - S2[a1, a3, SP[a5, a6], a2, a4, n] - 
    S2[a1, a3, SP[a5, a6], a4, a2, n] + S2[a1, a4, a6, a2, SP[a3, a5], n] + 
    S2[a1, a4, a6, SP[a2, a5], a3, n] + S2[a1, a4, SP[a5, a6], a2, a3, n] - 
    S2[a1, a5, a2, a4, SP[a3, a6], n] - S2[a1, a5, a2, SP[a3, a4], a6, n] - 
    S2[a6, n]*S2[a1, a5, a3, a2, a4, n] - S2[a1, a5, a3, a2, SP[a4, a6], n] - 
    S2[a6, n]*S2[a1, a5, a3, a4, a2, n] + 
    S2[a2, n]*S2[a1, a5, a3, a4, a6, n] + 
    S2[a2, n]*S2[a1, a5, a3, a6, a4, n] + S2[a1, a5, a3, a6, SP[a2, a4], n] + 
    S2[a1, a5, a3, SP[a2, a4], a6, n] - S2[a1, a5, a3, SP[a4, a6], a2, n] - 
    S2[a1, a5, a4, a2, SP[a3, a6], n] - S2[a6, n]*S2[a1, a5, a4, a3, a2, n] + 
    S2[a2, n]*S2[a1, a5, a4, a3, a6, n] + 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] + S2[a1, a5, a4, a6, SP[a2, a3], n] + 
    S2[a1, a5, a4, SP[a2, a3], a6, n] - S2[a1, a5, a4, SP[a3, a6], a2, n] - 
    S2[a4, n]*S2[a1, a5, a6, a2, a3, n] - S2[a1, a5, a6, a2, SP[a3, a4], n] + 
    S2[a2, n]*S2[a1, a5, a6, a3, a4, n] + S2[a1, a5, a6, a3, SP[a2, a4], n] + 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] + S2[a1, a5, a6, a4, SP[a2, a3], n] + 
    S2[a1, a5, a6, SP[a2, a3], a4, n] + S2[a1, a5, SP[a2, a3], a4, a6, n] + 
    S2[a1, a5, SP[a2, a3], a6, a4, n] + S2[a1, a5, SP[a2, a6], a3, a4, n] + 
    S2[a1, a5, SP[a2, a6], a4, a3, n] - S2[a1, a5, SP[a3, a6], a2, a4, n] - 
    S2[a1, a5, SP[a3, a6], a4, a2, n] - S2[a1, a5, SP[a4, a6], a2, a3, n] - 
    S2[a1, a5, SP[a4, a6], a3, a2, n] - S2[a4, n]*S2[a1, a6, a2, a3, a5, n] - 
    S2[a1, a6, a2, a3, SP[a4, a5], n] - S2[a4, n]*S2[a1, a6, a2, a5, a3, n] - 
    S2[a1, a6, a2, a5, SP[a3, a4], n] - S2[a1, a6, a2, SP[a3, a4], a5, n] - 
    S2[a1, a6, a2, SP[a4, a5], a3, n] + S2[a2, n]*S2[a1, a6, a3, a4, a5, n] + 
    S2[a1, a6, a3, a4, SP[a2, a5], n] + S2[a2, n]*S2[a1, a6, a3, a5, a4, n] + 
    S2[a1, a6, a3, a5, SP[a2, a4], n] + S2[a1, a6, a3, SP[a2, a4], a5, n] + 
    S2[a1, a6, a3, SP[a2, a5], a4, n] + S2[a2, n]*S2[a1, a6, a4, a3, a5, n] + 
    S2[a1, a6, a4, a3, SP[a2, a5], n] + S2[a2, n]*S2[a1, a6, a4, a5, a3, n] + 
    S2[a1, a6, a4, a5, SP[a2, a3], n] + S2[a1, a6, a4, SP[a2, a3], a5, n] + 
    S2[a1, a6, a4, SP[a2, a5], a3, n] - S2[a4, n]*S2[a1, a6, a5, a2, a3, n] - 
    S2[a1, a6, a5, a2, SP[a3, a4], n] + S2[a2, n]*S2[a1, a6, a5, a3, a4, n] + 
    S2[a1, a6, a5, a3, SP[a2, a4], n] + S2[a2, n]*S2[a1, a6, a5, a4, a3, n] + 
    S2[a1, a6, a5, a4, SP[a2, a3], n] + S2[a1, a6, a5, SP[a2, a3], a4, n] + 
    S2[a1, a6, SP[a2, a3], a4, a5, n] + S2[a1, a6, SP[a2, a3], a5, a4, n] + 
    S2[a1, a6, SP[a2, a5], a3, a4, n] + S2[a1, a6, SP[a2, a5], a4, a3, n] - 
    S2[a1, a6, SP[a4, a5], a2, a3, n] + S2[a1, SP[a2, a3], a5, a4, a6, n] + 
    S2[a1, SP[a2, a3], a5, a6, a4, n] + S2[a1, SP[a2, a3], a6, a5, a4, n] + 
    S2[a1, SP[a2, a6], a3, a4, a5, n] + S2[a1, SP[a2, a6], a3, a5, a4, n] + 
    S2[a1, SP[a2, a6], a4, a3, a5, n] + S2[a1, SP[a2, a6], a4, a5, a3, n] + 
    S2[a1, SP[a2, a6], a5, a3, a4, n] + S2[a1, SP[a2, a6], a5, a4, a3, n] - 
    S2[a1, SP[a3, a6], a2, a5, a4, n] - S2[a1, SP[a3, a6], a5, a2, a4, n] - 
    S2[a1, SP[a3, a6], a5, a4, a2, n] - S2[a1, SP[a4, a6], a2, a3, a5, n] - 
    S2[a1, SP[a4, a6], a2, a5, a3, n] - S2[a1, SP[a4, a6], a5, a2, a3, n] - 
    S2[a1, SP[a5, a6], a3, a2, a4, n] - S2[a1, SP[a5, a6], a3, a4, a2, n] - 
    S2[a1, SP[a5, a6], a4, a3, a2, n] - S2[a2, a1, a3, a6, SP[a4, a5], n] - 
    S2[a2, a1, a3, SP[a5, a6], a4, n] - S2[a2, a1, a5, a4, SP[a3, a6], n] - 
    S2[a2, a1, a5, SP[a3, a4], a6, n] - S2[a2, a1, a6, a3, SP[a4, a5], n] - 
    S2[a2, a1, a6, a4, SP[a3, a5], n] - S2[a2, a1, a6, SP[a3, a5], a4, n] - 
    S2[a2, a1, a6, SP[a4, a5], a3, n] - S2[a2, a1, SP[a3, a5], a4, a6, n] - 
    S2[a2, a1, SP[a3, a5], a6, a4, n] - S2[a2, a1, SP[a5, a6], a3, a4, n] - 
    S2[a2, a1, SP[a5, a6], a4, a3, n] + S2[a6, n]*S2[a2, a3, a1, a5, a4, n] + 
    S2[a2, a3, a1, a5, SP[a4, a6], n] - S2[a2, a3, a1, a6, SP[a4, a5], n] - 
    S2[a2, a3, a6, a1, SP[a4, a5], n] + S2[a1, n]*S2[a2, a3, a6, a4, a5, n] + 
    S2[a2, a3, a6, a4, SP[a1, a5], n] + S2[a4, n]*S2[a2, a6, a1, a3, a5, n] - 
    S2[a2, a6, a1, a4, SP[a3, a5], n] + S2[a4, n]*S2[a2, a6, a1, a5, a3, n] + 
    S2[a2, a6, a1, a5, SP[a3, a4], n] + S2[a2, a6, a1, SP[a3, a4], a5, n] - 
    S2[a2, a6, a1, SP[a3, a5], a4, n] - S2[a2, a6, a3, a1, SP[a4, a5], n] - 
    S2[a2, a6, a3, SP[a1, a4], a5, n] - S2[a2, a6, a4, a1, SP[a3, a5], n] - 
    S2[a2, a6, a4, SP[a1, a3], a5, n] - S2[a2, a6, SP[a1, a3], a4, a5, n] - 
    S2[a2, a6, SP[a1, a3], a5, a4, n] - S2[a2, SP[a1, a3], a5, a4, a6, n] - 
    S2[a2, SP[a1, a3], a5, a6, a4, n] - S2[a2, SP[a1, a3], a6, a5, a4, n] - 
    S2[a2, SP[a1, a6], a3, a4, a5, n] - S2[a2, SP[a1, a6], a3, a5, a4, n] - 
    S2[a2, SP[a1, a6], a4, a3, a5, n] - S2[a2, SP[a1, a6], a4, a5, a3, n] - 
    S2[a2, SP[a1, a6], a5, a3, a4, n] - S2[a2, SP[a1, a6], a5, a4, a3, n] + 
    S2[a2, SP[a3, a6], a1, a5, a4, n] + S2[a2, SP[a4, a6], a1, a3, a5, n] + 
    S2[a2, SP[a4, a6], a1, a5, a3, n] + S2[a4, a1, a6, a2, SP[a3, a5], n] + 
    S2[a4, a1, a6, SP[a2, a5], a3, n] + S2[a4, a1, SP[a5, a6], a2, a3, n] + 
    S2[a4, a6, a1, a2, SP[a3, a5], n] - S2[a2, n]*S2[a4, a6, a1, a3, a5, n] - 
    S2[a4, a6, a1, a3, SP[a2, a5], n] - S2[a2, n]*S2[a4, a6, a1, a5, a3, n] - 
    S2[a4, a6, a1, a5, SP[a2, a3], n] - S2[a4, a6, a1, SP[a2, a3], a5, n] + 
    S2[a4, a6, a2, a1, SP[a3, a5], n] + S2[a4, a6, a2, SP[a1, a3], a5, n] + 
    S2[a4, SP[a1, a6], a2, a3, a5, n] + S2[a4, SP[a1, a6], a2, a5, a3, n] + 
    S2[a4, SP[a1, a6], a5, a2, a3, n] - S2[a4, SP[a2, a6], a1, a3, a5, n] - 
    S2[a4, SP[a2, a6], a1, a5, a3, n] + S2[a4, n]*S2[a6, a1, a3, a2, a5, n] + 
    S2[a6, a1, a3, a2, SP[a4, a5], n] + S2[a4, n]*S2[a6, a1, a3, a5, a2, n] + 
    S2[a6, a1, a3, a5, SP[a2, a4], n] + S2[a6, a1, a3, SP[a2, a4], a5, n] + 
    S2[a6, a1, a3, SP[a4, a5], a2, n] + S2[a4, n]*S2[a6, a1, a5, a3, a2, n] + 
    S2[a6, a1, a5, a3, SP[a2, a4], n] + S2[a6, a1, a5, SP[a3, a4], a2, n] + 
    S2[a6, a1, SP[a3, a4], a2, a5, n] + S2[a6, a1, SP[a3, a4], a5, a2, n] + 
    S2[a6, a1, SP[a4, a5], a3, a2, n] - S2[a4, n]*S2[a6, a2, a3, a1, a5, n] - 
    S2[a6, a2, a3, a1, SP[a4, a5], n] - S2[a6, a2, a3, SP[a1, a4], a5, n] - 
    S2[a6, a2, SP[a3, a4], a1, a5, n] + S2[a2, n]*S2[a6, a3, a1, a4, a5, n] + 
    S2[a6, a3, a1, a4, SP[a2, a5], n] + S2[a6, a3, a1, SP[a2, a4], a5, n] - 
    S2[a1, n]*S2[a6, a3, a2, a4, a5, n] - S2[a6, a3, a2, a4, SP[a1, a5], n] - 
    S2[a6, a3, a2, SP[a1, a4], a5, n] + S2[a2, n]*S2[a6, a3, a4, a1, a5, n] + 
    S2[a6, a3, a4, a1, SP[a2, a5], n] - S2[a1, n]*S2[a6, a3, a4, a2, a5, n] - 
    S2[a6, a3, a4, a2, SP[a1, a5], n] - S2[a1, n]*S2[a6, a3, a4, a5, a2, n] - 
    S2[a6, a3, a4, a5, SP[a1, a2], n] - S2[a6, a3, a4, SP[a1, a5], a2, n] - 
    S2[a6, a3, SP[a1, a4], a2, a5, n] - S2[a6, a3, SP[a1, a4], a5, a2, n] + 
    S2[a6, a3, SP[a2, a4], a1, a5, n] + S2[a2, n]*S2[a6, a4, a3, a1, a5, n] + 
    S2[a6, a4, a3, a1, SP[a2, a5], n] - S2[a1, n]*S2[a6, a4, a3, a2, a5, n] - 
    S2[a6, a4, a3, a2, SP[a1, a5], n] - S2[a1, n]*S2[a6, a4, a3, a5, a2, n] - 
    S2[a6, a4, a3, a5, SP[a1, a2], n] - S2[a6, a4, a3, SP[a1, a5], a2, n] - 
    S2[a1, n]*S2[a6, a4, a5, a3, a2, n] - S2[a6, a4, a5, a3, SP[a1, a2], n] - 
    S2[a6, a4, a5, SP[a1, a3], a2, n] - S2[a6, a4, SP[a1, a3], a2, a5, n] - 
    S2[a6, a4, SP[a1, a3], a5, a2, n] - S2[a6, a4, SP[a1, a5], a3, a2, n] + 
    S2[a6, a4, SP[a2, a3], a1, a5, n] - S2[a6, SP[a1, a3], a2, a4, a5, n] - 
    S2[a6, SP[a1, a3], a4, a2, a5, n] - S2[a6, SP[a1, a3], a4, a5, a2, n] + 
    S2[a6, SP[a2, a3], a1, a4, a5, n] + S2[a6, SP[a2, a3], a4, a1, a5, n] - 
    S2[SP[a1, a6], a3, a2, a4, a5, n] - S2[SP[a1, a6], a3, a2, a5, a4, n] - 
    S2[SP[a1, a6], a3, a4, a2, a5, n] - S2[SP[a1, a6], a3, a4, a5, a2, n] - 
    S2[SP[a1, a6], a3, a5, a2, a4, n] - S2[SP[a1, a6], a3, a5, a4, a2, n] - 
    S2[SP[a1, a6], a4, a3, a2, a5, n] - S2[SP[a1, a6], a4, a3, a5, a2, n] - 
    S2[SP[a1, a6], a4, a5, a3, a2, n] - S2[SP[a1, a6], a5, a3, a2, a4, n] - 
    S2[SP[a1, a6], a5, a3, a4, a2, n] - S2[SP[a1, a6], a5, a4, a3, a2, n] + 
    S2[SP[a2, a6], a3, a1, a4, a5, n] + S2[SP[a2, a6], a3, a1, a5, a4, n] + 
    S2[SP[a2, a6], a3, a4, a1, a5, n] + S2[SP[a2, a6], a4, a3, a1, a5, n] + 
    S2[SP[a4, a6], a1, a3, a2, a5, n] + S2[SP[a4, a6], a1, a3, a5, a2, n] + 
    S2[SP[a4, a6], a1, a5, a3, a2, n] - S2[SP[a4, a6], a2, a3, a1, a5, n] + 
    S2[a6, a3, a2, a4, a5, a1, n] + S2[a6, a3, a4, a2, a5, a1, n] + 
    S2[a6, a3, a4, a5, a1, a2, n] + S2[a6, a3, a4, a5, a2, a1, n] + 
    S2[a6, a4, a3, a2, a5, a1, n] + S2[a6, a4, a3, a5, a1, a2, n] + 
    S2[a6, a4, a3, a5, a2, a1, n] + S2[a6, a4, a5, a1, a3, a2, n] + 
    S2[a6, a4, a5, a3, a1, a2, n] + S2[a6, a4, a5, a3, a2, a1, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a2_, a3_, a6_, a5_, a1_, a4_, n_] :> 
  S2[a2, a3, n]*S2[a1, a4, a5, a6, n] - S2[a1, a4, SP[a2, a5], SP[a3, a6], 
     n] + S2[a2, a3, n]*S2[a1, a5, a4, a6, n] + 
    S2[a2, a3, n]*S2[a1, a5, a6, a4, n] - S2[a1, a5, SP[a2, a4], SP[a3, a6], 
     n] - S2[a1, a5, SP[a2, a6], SP[a3, a4], n] - S2[a1, SP[a2, a4], a5, 
     SP[a3, a6], n] - S2[a1, SP[a2, a4], SP[a3, a5], a6, n] - 
    S2[a1, SP[a2, a5], a4, SP[a3, a6], n] - S2[a1, SP[a2, a5], a6, 
     SP[a3, a4], n] - S2[a1, SP[a2, a5], SP[a3, a4], a6, n] - 
    S2[a1, SP[a2, a5], SP[a3, a6], a4, n] + S2[a1, a4, n]*
     S2[a2, a3, a6, a5, n] - S2[a2, a3, SP[a1, a6], SP[a4, a5], n] + 
    S2[a1, a4, n]*S2[a2, a6, a3, a5, n] + S2[a1, a4, n]*
     S2[a2, a6, a5, a3, n] - S2[a2, a6, SP[a1, a3], SP[a4, a5], n] - 
    S2[a2, a6, SP[a1, a5], SP[a3, a4], n] - S2[a2, SP[a1, a3], a6, 
     SP[a4, a5], n] - S2[a2, SP[a1, a3], SP[a4, a6], a5, n] - 
    S2[a2, SP[a1, a6], a3, SP[a4, a5], n] - S2[a2, SP[a1, a6], a5, 
     SP[a3, a4], n] - S2[a2, SP[a1, a6], SP[a3, a4], a5, n] - 
    S2[a2, SP[a1, a6], SP[a4, a5], a3, n] - S2[a1, a4, n]*
     S2[a5, a6, a2, a3, n] + S2[a5, a6, SP[a1, a2], SP[a3, a4], n] + 
    S2[a5, SP[a1, a6], a2, SP[a3, a4], n] + S2[a5, SP[a1, a6], SP[a2, a4], 
     a3, n] - S2[SP[a1, a2], a3, a6, SP[a4, a5], n] - 
    S2[SP[a1, a2], a3, SP[a4, a6], a5, n] - S2[SP[a1, a2], a4, a5, 
     SP[a3, a6], n] - S2[SP[a1, a2], a4, SP[a3, a5], a6, n] - 
    S2[SP[a1, a2], a5, a4, SP[a3, a6], n] - S2[SP[a1, a2], a5, a6, 
     SP[a3, a4], n] - S2[SP[a1, a2], a5, SP[a3, a4], a6, n] - 
    S2[SP[a1, a2], a5, SP[a3, a6], a4, n] - S2[SP[a1, a2], a6, a3, 
     SP[a4, a5], n] - S2[SP[a1, a2], a6, a5, SP[a3, a4], n] - 
    S2[SP[a1, a2], a6, SP[a3, a4], a5, n] - S2[SP[a1, a2], a6, SP[a4, a5], 
     a3, n] - S2[SP[a1, a2], SP[a3, a4], a5, a6, n] - 
    S2[SP[a1, a2], SP[a3, a4], a6, a5, n] - S2[SP[a1, a2], SP[a3, a5], a4, 
     a6, n] - S2[SP[a1, a2], SP[a3, a5], a6, a4, n] - 
    S2[SP[a1, a2], SP[a4, a6], a3, a5, n] - S2[SP[a1, a2], SP[a4, a6], a5, 
     a3, n] + S2[SP[a1, a5], a6, a2, SP[a3, a4], n] + 
    S2[SP[a1, a5], a6, SP[a2, a4], a3, n] + S2[SP[a1, a5], SP[a4, a6], a2, 
     a3, n] + S2[a1, a2, a3, a6, SP[a4, a5], n] + S2[a1, a2, a3, SP[a4, a6], 
     a5, n] + S2[a1, a2, a4, a5, SP[a3, a6], n] + S2[a1, a2, a4, SP[a3, a5], 
     a6, n] + S2[a1, a2, a5, a4, SP[a3, a6], n] + 
    S2[a1, a2, a5, a6, SP[a3, a4], n] + S2[a1, a2, a5, SP[a3, a4], a6, n] + 
    S2[a1, a2, a5, SP[a3, a6], a4, n] + S2[a1, a2, a6, a3, SP[a4, a5], n] + 
    S2[a1, a2, a6, a5, SP[a3, a4], n] + S2[a1, a2, a6, SP[a3, a4], a5, n] + 
    S2[a1, a2, a6, SP[a4, a5], a3, n] + S2[a1, a2, SP[a3, a4], a5, a6, n] + 
    S2[a1, a2, SP[a3, a4], a6, a5, n] + S2[a1, a2, SP[a3, a5], a4, a6, n] + 
    S2[a1, a2, SP[a3, a5], a6, a4, n] + S2[a1, a2, SP[a4, a6], a3, a5, n] + 
    S2[a1, a2, SP[a4, a6], a5, a3, n] + S2[a6, n]*S2[a1, a3, a2, a4, a5, n] + 
    S2[a1, a3, a2, a4, SP[a5, a6], n] + S2[a6, n]*S2[a1, a3, a2, a5, a4, n] + 
    S2[a1, a3, a2, a5, SP[a4, a6], n] + S2[a1, a3, a2, SP[a4, a6], a5, n] + 
    S2[a1, a3, a2, SP[a5, a6], a4, n] + S2[a6, n]*S2[a1, a3, a4, a2, a5, n] + 
    S2[a1, a3, a4, a2, SP[a5, a6], n] + S2[a6, n]*S2[a1, a3, a4, a5, a2, n] - 
    S2[a2, n]*S2[a1, a3, a4, a5, a6, n] - 
    S2[a2, n]*S2[a1, a3, a4, a6, a5, n] - S2[a1, a3, a4, a6, SP[a2, a5], n] - 
    S2[a1, a3, a4, SP[a2, a5], a6, n] + S2[a1, a3, a4, SP[a5, a6], a2, n] + 
    S2[a6, n]*S2[a1, a3, a5, a2, a4, n] + S2[a1, a3, a5, a2, SP[a4, a6], n] + 
    S2[a6, n]*S2[a1, a3, a5, a4, a2, n] - 
    S2[a2, n]*S2[a1, a3, a5, a4, a6, n] - 
    S2[a2, n]*S2[a1, a3, a5, a6, a4, n] - S2[a1, a3, a5, a6, SP[a2, a4], n] - 
    S2[a1, a3, a5, SP[a2, a4], a6, n] + S2[a1, a3, a5, SP[a4, a6], a2, n] - 
    S2[a2, n]*S2[a1, a3, a6, a4, a5, n] - S2[a1, a3, a6, a4, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a3, a6, a5, a4, n] - S2[a1, a3, a6, a5, SP[a2, a4], n] - 
    S2[a1, a3, a6, SP[a2, a4], a5, n] - S2[a1, a3, a6, SP[a2, a5], a4, n] - 
    S2[a1, a3, SP[a2, a4], a5, a6, n] - S2[a1, a3, SP[a2, a4], a6, a5, n] - 
    S2[a1, a3, SP[a2, a5], a4, a6, n] - S2[a1, a3, SP[a2, a5], a6, a4, n] + 
    S2[a1, a3, SP[a4, a6], a2, a5, n] + S2[a1, a3, SP[a4, a6], a5, a2, n] + 
    S2[a1, a3, SP[a5, a6], a2, a4, n] + S2[a1, a3, SP[a5, a6], a4, a2, n] + 
    S2[a1, a4, a2, a5, SP[a3, a6], n] + S2[a1, a4, a2, SP[a3, a5], a6, n] + 
    S2[a6, n]*S2[a1, a4, a3, a2, a5, n] + S2[a1, a4, a3, a2, SP[a5, a6], n] + 
    S2[a6, n]*S2[a1, a4, a3, a5, a2, n] - 
    S2[a2, n]*S2[a1, a4, a3, a5, a6, n] - 
    S2[a2, n]*S2[a1, a4, a3, a6, a5, n] - S2[a1, a4, a3, a6, SP[a2, a5], n] - 
    S2[a1, a4, a3, SP[a2, a5], a6, n] + S2[a1, a4, a3, SP[a5, a6], a2, n] + 
    S2[a1, a4, a5, a2, SP[a3, a6], n] + S2[a6, n]*S2[a1, a4, a5, a3, a2, n] - 
    S2[a2, n]*S2[a1, a4, a5, a3, a6, n] - 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] - S2[a1, a4, a5, a6, SP[a2, a3], n] - 
    S2[a1, a4, a5, SP[a2, a3], a6, n] + S2[a1, a4, a5, SP[a3, a6], a2, n] + 
    S2[a5, n]*S2[a1, a4, a6, a2, a3, n] + S2[a1, a4, a6, a2, SP[a3, a5], n] - 
    S2[a2, n]*S2[a1, a4, a6, a3, a5, n] - S2[a1, a4, a6, a3, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a4, a6, a5, a3, n] - S2[a1, a4, a6, a5, SP[a2, a3], n] - 
    S2[a1, a4, a6, SP[a2, a3], a5, n] - S2[a1, a4, SP[a2, a3], a5, a6, n] - 
    S2[a1, a4, SP[a2, a3], a6, a5, n] - S2[a1, a4, SP[a2, a6], a3, a5, n] - 
    S2[a1, a4, SP[a2, a6], a5, a3, n] + S2[a1, a4, SP[a3, a6], a2, a5, n] + 
    S2[a1, a4, SP[a3, a6], a5, a2, n] + S2[a1, a4, SP[a5, a6], a2, a3, n] + 
    S2[a1, a4, SP[a5, a6], a3, a2, n] + S2[a1, a5, a2, a4, SP[a3, a6], n] + 
    S2[a1, a5, a2, a6, SP[a3, a4], n] + S2[a1, a5, a2, SP[a3, a4], a6, n] + 
    S2[a1, a5, a2, SP[a3, a6], a4, n] + S2[a6, n]*S2[a1, a5, a3, a2, a4, n] + 
    S2[a1, a5, a3, a2, SP[a4, a6], n] + S2[a6, n]*S2[a1, a5, a3, a4, a2, n] - 
    S2[a2, n]*S2[a1, a5, a3, a4, a6, n] - 
    S2[a2, n]*S2[a1, a5, a3, a6, a4, n] - S2[a1, a5, a3, a6, SP[a2, a4], n] - 
    S2[a1, a5, a3, SP[a2, a4], a6, n] + S2[a1, a5, a3, SP[a4, a6], a2, n] + 
    S2[a1, a5, a4, a2, SP[a3, a6], n] + S2[a6, n]*S2[a1, a5, a4, a3, a2, n] - 
    S2[a2, n]*S2[a1, a5, a4, a3, a6, n] - 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] - S2[a1, a5, a4, a6, SP[a2, a3], n] - 
    S2[a1, a5, a4, SP[a2, a3], a6, n] + S2[a1, a5, a4, SP[a3, a6], a2, n] - 
    S2[a2, n]*S2[a1, a5, a6, a3, a4, n] - S2[a1, a5, a6, a3, SP[a2, a4], n] - 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] - S2[a1, a5, a6, a4, SP[a2, a3], n] - 
    S2[a1, a5, a6, SP[a2, a3], a4, n] - S2[a1, a5, a6, SP[a2, a4], a3, n] - 
    S2[a1, a5, SP[a2, a3], a4, a6, n] - S2[a1, a5, SP[a2, a3], a6, a4, n] + 
    S2[a1, a5, SP[a3, a6], a2, a4, n] + S2[a1, a5, SP[a3, a6], a4, a2, n] - 
    S2[a1, a5, SP[a4, a6], a2, a3, n] + S2[a1, a5, SP[a4, a6], a3, a2, n] + 
    S2[a5, n]*S2[a1, a6, a2, a3, a4, n] + S2[a1, a6, a2, a3, SP[a4, a5], n] + 
    S2[a5, n]*S2[a1, a6, a2, a4, a3, n] + S2[a1, a6, a2, a4, SP[a3, a5], n] + 
    S2[a1, a6, a2, SP[a3, a5], a4, n] + S2[a1, a6, a2, SP[a4, a5], a3, n] - 
    S2[a2, n]*S2[a1, a6, a3, a4, a5, n] - S2[a1, a6, a3, a4, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a6, a3, a5, a4, n] - S2[a1, a6, a3, a5, SP[a2, a4], n] - 
    S2[a1, a6, a3, SP[a2, a4], a5, n] - S2[a1, a6, a3, SP[a2, a5], a4, n] + 
    S2[a5, n]*S2[a1, a6, a4, a2, a3, n] + S2[a1, a6, a4, a2, SP[a3, a5], n] - 
    S2[a2, n]*S2[a1, a6, a4, a3, a5, n] - S2[a1, a6, a4, a3, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a6, a4, a5, a3, n] - S2[a1, a6, a4, a5, SP[a2, a3], n] - 
    S2[a1, a6, a4, SP[a2, a3], a5, n] - S2[a2, n]*S2[a1, a6, a5, a3, a4, n] - 
    S2[a1, a6, a5, a3, SP[a2, a4], n] - S2[a2, n]*S2[a1, a6, a5, a4, a3, n] - 
    S2[a1, a6, a5, a4, SP[a2, a3], n] - S2[a1, a6, a5, SP[a2, a3], a4, n] - 
    S2[a1, a6, a5, SP[a2, a4], a3, n] - S2[a1, a6, SP[a2, a3], a4, a5, n] - 
    S2[a1, a6, SP[a2, a3], a5, a4, n] - S2[a1, a6, SP[a2, a4], a3, a5, n] - 
    S2[a1, a6, SP[a2, a4], a5, a3, n] + S2[a1, a6, SP[a4, a5], a2, a3, n] - 
    S2[a1, SP[a2, a3], a4, a5, a6, n] - S2[a1, SP[a2, a3], a4, a6, a5, n] - 
    S2[a1, SP[a2, a3], a5, a4, a6, n] - S2[a1, SP[a2, a3], a5, a6, a4, n] - 
    S2[a1, SP[a2, a3], a6, a4, a5, n] - S2[a1, SP[a2, a3], a6, a5, a4, n] - 
    S2[a1, SP[a2, a6], a3, a4, a5, n] - S2[a1, SP[a2, a6], a3, a5, a4, n] - 
    S2[a1, SP[a2, a6], a4, a3, a5, n] - S2[a1, SP[a2, a6], a4, a5, a3, n] - 
    S2[a1, SP[a2, a6], a5, a3, a4, n] - S2[a1, SP[a2, a6], a5, a4, a3, n] + 
    S2[a1, SP[a3, a6], a2, a4, a5, n] + S2[a1, SP[a3, a6], a2, a5, a4, n] + 
    S2[a1, SP[a3, a6], a4, a2, a5, n] + S2[a1, SP[a3, a6], a4, a5, a2, n] + 
    S2[a1, SP[a3, a6], a5, a2, a4, n] + S2[a1, SP[a3, a6], a5, a4, a2, n] + 
    S2[a1, SP[a4, a6], a3, a2, a5, n] + S2[a1, SP[a4, a6], a3, a5, a2, n] + 
    S2[a1, SP[a4, a6], a5, a3, a2, n] + S2[a1, SP[a5, a6], a2, a3, a4, n] + 
    S2[a1, SP[a5, a6], a2, a4, a3, n] + S2[a1, SP[a5, a6], a3, a2, a4, n] + 
    S2[a1, SP[a5, a6], a3, a4, a2, n] + S2[a1, SP[a5, a6], a4, a2, a3, n] + 
    S2[a1, SP[a5, a6], a4, a3, a2, n] + S2[a2, a1, a3, a6, SP[a4, a5], n] + 
    S2[a2, a1, a3, SP[a4, a6], a5, n] + S2[a2, a1, a4, a5, SP[a3, a6], n] + 
    S2[a2, a1, a4, SP[a3, a5], a6, n] + S2[a2, a1, a5, a4, SP[a3, a6], n] + 
    S2[a2, a1, a5, a6, SP[a3, a4], n] + S2[a2, a1, a5, SP[a3, a4], a6, n] + 
    S2[a2, a1, a5, SP[a3, a6], a4, n] + S2[a2, a1, a6, a3, SP[a4, a5], n] + 
    S2[a2, a1, a6, a5, SP[a3, a4], n] + S2[a2, a1, a6, SP[a3, a4], a5, n] + 
    S2[a2, a1, a6, SP[a4, a5], a3, n] + S2[a2, a1, SP[a3, a4], a5, a6, n] + 
    S2[a2, a1, SP[a3, a4], a6, a5, n] + S2[a2, a1, SP[a3, a5], a4, a6, n] + 
    S2[a2, a1, SP[a3, a5], a6, a4, n] + S2[a2, a1, SP[a4, a6], a3, a5, n] + 
    S2[a2, a1, SP[a4, a6], a5, a3, n] - S2[a6, n]*S2[a2, a3, a1, a4, a5, n] - 
    S2[a2, a3, a1, a4, SP[a5, a6], n] - S2[a6, n]*S2[a2, a3, a1, a5, a4, n] - 
    S2[a2, a3, a1, a5, SP[a4, a6], n] + S2[a2, a3, a1, a6, SP[a4, a5], n] - 
    S2[a2, a3, a1, SP[a5, a6], a4, n] + S2[a2, a3, a6, a1, SP[a4, a5], n] + 
    S2[a2, a3, a6, SP[a1, a5], a4, n] - S2[a5, n]*S2[a2, a6, a1, a3, a4, n] - 
    S2[a5, n]*S2[a2, a6, a1, a4, a3, n] - S2[a2, a6, a1, a4, SP[a3, a5], n] + 
    S2[a2, a6, a1, a5, SP[a3, a4], n] + S2[a2, a6, a1, SP[a3, a4], a5, n] - 
    S2[a2, a6, a1, SP[a3, a5], a4, n] + S2[a2, a6, a3, a1, SP[a4, a5], n] + 
    S2[a2, a6, a3, SP[a1, a5], a4, n] + S2[a2, a6, a5, a1, SP[a3, a4], n] + 
    S2[a2, a6, a5, SP[a1, a3], a4, n] + S2[a2, a6, SP[a1, a3], a4, a5, n] + 
    S2[a2, a6, SP[a1, a3], a5, a4, n] + S2[a2, SP[a1, a3], a4, a5, a6, n] + 
    S2[a2, SP[a1, a3], a4, a6, a5, n] + S2[a2, SP[a1, a3], a5, a4, a6, n] + 
    S2[a2, SP[a1, a3], a5, a6, a4, n] + S2[a2, SP[a1, a3], a6, a4, a5, n] + 
    S2[a2, SP[a1, a3], a6, a5, a4, n] + S2[a2, SP[a1, a6], a3, a4, a5, n] + 
    S2[a2, SP[a1, a6], a3, a5, a4, n] + S2[a2, SP[a1, a6], a4, a3, a5, n] + 
    S2[a2, SP[a1, a6], a4, a5, a3, n] + S2[a2, SP[a1, a6], a5, a3, a4, n] + 
    S2[a2, SP[a1, a6], a5, a4, a3, n] - S2[a2, SP[a3, a6], a1, a4, a5, n] - 
    S2[a2, SP[a3, a6], a1, a5, a4, n] - S2[a2, SP[a5, a6], a1, a3, a4, n] - 
    S2[a2, SP[a5, a6], a1, a4, a3, n] - S2[a5, a1, a6, a2, SP[a3, a4], n] - 
    S2[a5, a1, a6, SP[a2, a4], a3, n] - S2[a5, a1, SP[a4, a6], a2, a3, n] - 
    S2[a5, a6, a1, a2, SP[a3, a4], n] + S2[a2, n]*S2[a5, a6, a1, a3, a4, n] + 
    S2[a5, a6, a1, a3, SP[a2, a4], n] + S2[a2, n]*S2[a5, a6, a1, a4, a3, n] + 
    S2[a5, a6, a1, a4, SP[a2, a3], n] + S2[a5, a6, a1, SP[a2, a3], a4, n] - 
    S2[a5, a6, a2, a1, SP[a3, a4], n] - S2[a5, a6, a2, SP[a1, a3], a4, n] - 
    S2[a5, SP[a1, a6], a2, a3, a4, n] - S2[a5, SP[a1, a6], a2, a4, a3, n] - 
    S2[a5, SP[a1, a6], a4, a2, a3, n] + S2[a5, SP[a2, a6], a1, a3, a4, n] + 
    S2[a5, SP[a2, a6], a1, a4, a3, n] - S2[a5, n]*S2[a6, a1, a3, a2, a4, n] - 
    S2[a6, a1, a3, a2, SP[a4, a5], n] - S2[a5, n]*S2[a6, a1, a3, a4, a2, n] - 
    S2[a6, a1, a3, a4, SP[a2, a5], n] - S2[a6, a1, a3, SP[a2, a5], a4, n] - 
    S2[a6, a1, a3, SP[a4, a5], a2, n] - S2[a5, n]*S2[a6, a1, a4, a3, a2, n] - 
    S2[a6, a1, a4, a3, SP[a2, a5], n] - S2[a6, a1, a4, SP[a3, a5], a2, n] - 
    S2[a6, a1, SP[a3, a5], a2, a4, n] - S2[a6, a1, SP[a3, a5], a4, a2, n] - 
    S2[a6, a1, SP[a4, a5], a3, a2, n] + S2[a5, n]*S2[a6, a2, a3, a1, a4, n] + 
    S2[a6, a2, a3, a1, SP[a4, a5], n] + S2[a6, a2, a3, SP[a1, a5], a4, n] + 
    S2[a6, a2, SP[a3, a5], a1, a4, n] - S2[a2, n]*S2[a6, a3, a5, a1, a4, n] - 
    S2[a6, a3, a5, a1, SP[a2, a4], n] - S2[a6, a3, a5, SP[a1, a2], a4, n] - 
    S2[a6, a3, SP[a2, a5], a1, a4, n] - S2[a2, n]*S2[a6, a5, a3, a1, a4, n] - 
    S2[a6, a5, a3, a1, SP[a2, a4], n] - S2[a6, a5, a3, SP[a1, a2], a4, n] - 
    S2[a6, a5, SP[a2, a3], a1, a4, n] - S2[a6, SP[a1, a5], a3, a2, a4, n] - 
    S2[a6, SP[a1, a5], a3, a4, a2, n] - S2[a6, SP[a1, a5], a4, a3, a2, n] - 
    S2[a6, SP[a2, a3], a5, a1, a4, n] + S2[SP[a1, a6], a3, a2, a4, a5, n] + 
    S2[SP[a1, a6], a3, a2, a5, a4, n] + S2[SP[a1, a6], a3, a4, a2, a5, n] + 
    S2[SP[a1, a6], a3, a4, a5, a2, n] + S2[SP[a1, a6], a3, a5, a2, a4, n] + 
    S2[SP[a1, a6], a3, a5, a4, a2, n] + S2[SP[a1, a6], a4, a3, a2, a5, n] + 
    S2[SP[a1, a6], a4, a3, a5, a2, n] + S2[SP[a1, a6], a4, a5, a3, a2, n] + 
    S2[SP[a1, a6], a5, a3, a2, a4, n] + S2[SP[a1, a6], a5, a3, a4, a2, n] + 
    S2[SP[a1, a6], a5, a4, a3, a2, n] - S2[SP[a2, a6], a3, a1, a4, a5, n] - 
    S2[SP[a2, a6], a3, a1, a5, a4, n] - S2[SP[a2, a6], a3, a5, a1, a4, n] - 
    S2[SP[a2, a6], a5, a3, a1, a4, n] - S2[SP[a5, a6], a1, a3, a2, a4, n] - 
    S2[SP[a5, a6], a1, a3, a4, a2, n] - S2[SP[a5, a6], a1, a4, a3, a2, n] + 
    S2[SP[a5, a6], a2, a3, a1, a4, n] + S2[a6, a3, a2, a5, a1, a4, n] + 
    S2[a6, a3, a5, a1, a2, a4, n] + S2[a6, a3, a5, a1, a4, a2, n] + 
    S2[a6, a3, a5, a2, a1, a4, n] + S2[a6, a5, a1, a3, a2, a4, n] + 
    S2[a6, a5, a1, a3, a4, a2, n] + S2[a6, a5, a1, a4, a3, a2, n] + 
    S2[a6, a5, a3, a1, a2, a4, n] + S2[a6, a5, a3, a1, a4, a2, n] + 
    S2[a6, a5, a3, a2, a1, a4, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a2_, a3_, a6_, a5_, a4_, a1_, n_] :> 
  -(S2[a2, a3, n]*S2[a1, a4, a5, a6, n]) + S2[a1, a4, SP[a2, a5], SP[a3, a6], 
     n] + S2[a1, SP[a2, a4], a5, SP[a3, a6], n] + 
    S2[a1, SP[a2, a4], SP[a3, a5], a6, n] - S2[a1, a4, n]*
     S2[a2, a3, a6, a5, n] + S2[a2, a3, SP[a1, a6], SP[a4, a5], n] - 
    S2[a1, a4, n]*S2[a2, a6, a3, a5, n] - S2[a1, a4, n]*
     S2[a2, a6, a5, a3, n] + S2[a2, a6, SP[a1, a3], SP[a4, a5], n] + 
    S2[a2, a6, SP[a1, a5], SP[a3, a4], n] + S2[a2, SP[a1, a3], a6, 
     SP[a4, a5], n] + S2[a2, SP[a1, a3], SP[a4, a6], a5, n] + 
    S2[a2, SP[a1, a6], a3, SP[a4, a5], n] + S2[a2, SP[a1, a6], a5, 
     SP[a3, a4], n] + S2[a2, SP[a1, a6], SP[a3, a4], a5, n] + 
    S2[a2, SP[a1, a6], SP[a4, a5], a3, n] + S2[a1, a4, n]*
     S2[a5, a6, a2, a3, n] - S2[a5, a6, SP[a1, a2], SP[a3, a4], n] - 
    S2[a5, SP[a1, a6], a2, SP[a3, a4], n] - S2[a5, SP[a1, a6], SP[a2, a4], 
     a3, n] + S2[SP[a1, a2], a3, a6, SP[a4, a5], n] + 
    S2[SP[a1, a2], a3, SP[a4, a6], a5, n] + S2[SP[a1, a2], a4, a5, 
     SP[a3, a6], n] + S2[SP[a1, a2], a4, SP[a3, a5], a6, n] + 
    S2[SP[a1, a2], a6, a3, SP[a4, a5], n] + S2[SP[a1, a2], a6, a5, 
     SP[a3, a4], n] + S2[SP[a1, a2], a6, SP[a3, a4], a5, n] + 
    S2[SP[a1, a2], a6, SP[a4, a5], a3, n] + S2[SP[a1, a2], SP[a3, a4], a5, 
     a6, n] + S2[SP[a1, a2], SP[a3, a4], a6, a5, n] + 
    S2[SP[a1, a2], SP[a4, a6], a3, a5, n] + S2[SP[a1, a2], SP[a4, a6], a5, 
     a3, n] - S2[SP[a1, a5], a6, a2, SP[a3, a4], n] - 
    S2[SP[a1, a5], a6, SP[a2, a4], a3, n] - S2[SP[a1, a5], SP[a4, a6], a2, 
     a3, n] - S2[a1, a2, a3, a6, SP[a4, a5], n] - S2[a1, a2, a3, SP[a4, a6], 
     a5, n] - S2[a1, a2, a4, a5, SP[a3, a6], n] - S2[a1, a2, a4, SP[a3, a5], 
     a6, n] - S2[a1, a2, a6, a3, SP[a4, a5], n] - 
    S2[a1, a2, a6, a5, SP[a3, a4], n] - S2[a1, a2, a6, SP[a3, a4], a5, n] - 
    S2[a1, a2, a6, SP[a4, a5], a3, n] - S2[a1, a2, SP[a3, a4], a5, a6, n] - 
    S2[a1, a2, SP[a3, a4], a6, a5, n] - S2[a1, a2, SP[a4, a6], a3, a5, n] - 
    S2[a1, a2, SP[a4, a6], a5, a3, n] - S2[a6, n]*S2[a1, a3, a2, a4, a5, n] - 
    S2[a1, a3, a2, a4, SP[a5, a6], n] - S2[a1, a3, a2, SP[a4, a6], a5, n] - 
    S2[a6, n]*S2[a1, a3, a4, a2, a5, n] - S2[a1, a3, a4, a2, SP[a5, a6], n] - 
    S2[a6, n]*S2[a1, a3, a4, a5, a2, n] + 
    S2[a2, n]*S2[a1, a3, a4, a5, a6, n] + 
    S2[a2, n]*S2[a1, a3, a4, a6, a5, n] + S2[a1, a3, a4, a6, SP[a2, a5], n] + 
    S2[a1, a3, a4, SP[a2, a5], a6, n] - S2[a1, a3, a4, SP[a5, a6], a2, n] + 
    S2[a2, n]*S2[a1, a3, a6, a4, a5, n] + S2[a1, a3, a6, a4, SP[a2, a5], n] + 
    S2[a1, a3, a6, SP[a2, a4], a5, n] + S2[a1, a3, SP[a2, a4], a5, a6, n] + 
    S2[a1, a3, SP[a2, a4], a6, a5, n] - S2[a1, a3, SP[a4, a6], a2, a5, n] - 
    S2[a1, a3, SP[a4, a6], a5, a2, n] - S2[a1, a4, a2, a5, SP[a3, a6], n] - 
    S2[a1, a4, a2, SP[a3, a5], a6, n] - S2[a6, n]*S2[a1, a4, a3, a2, a5, n] - 
    S2[a1, a4, a3, a2, SP[a5, a6], n] - S2[a6, n]*S2[a1, a4, a3, a5, a2, n] + 
    S2[a2, n]*S2[a1, a4, a3, a5, a6, n] + 
    S2[a2, n]*S2[a1, a4, a3, a6, a5, n] + S2[a1, a4, a3, a6, SP[a2, a5], n] + 
    S2[a1, a4, a3, SP[a2, a5], a6, n] - S2[a1, a4, a3, SP[a5, a6], a2, n] - 
    S2[a1, a4, a5, a2, SP[a3, a6], n] - S2[a6, n]*S2[a1, a4, a5, a3, a2, n] + 
    S2[a2, n]*S2[a1, a4, a5, a3, a6, n] + 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] + S2[a1, a4, a5, a6, SP[a2, a3], n] + 
    S2[a1, a4, a5, SP[a2, a3], a6, n] - S2[a1, a4, a5, SP[a3, a6], a2, n] - 
    S2[a5, n]*S2[a1, a4, a6, a2, a3, n] - S2[a1, a4, a6, a2, SP[a3, a5], n] + 
    S2[a2, n]*S2[a1, a4, a6, a3, a5, n] + S2[a1, a4, a6, a3, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a4, a6, a5, a3, n] + S2[a1, a4, a6, a5, SP[a2, a3], n] + 
    S2[a1, a4, a6, SP[a2, a3], a5, n] + S2[a1, a4, SP[a2, a3], a5, a6, n] + 
    S2[a1, a4, SP[a2, a3], a6, a5, n] + S2[a1, a4, SP[a2, a6], a3, a5, n] + 
    S2[a1, a4, SP[a2, a6], a5, a3, n] - S2[a1, a4, SP[a3, a6], a2, a5, n] - 
    S2[a1, a4, SP[a3, a6], a5, a2, n] - S2[a1, a4, SP[a5, a6], a2, a3, n] - 
    S2[a1, a4, SP[a5, a6], a3, a2, n] + S2[a1, a5, a6, a2, SP[a3, a4], n] + 
    S2[a1, a5, a6, SP[a2, a4], a3, n] + S2[a1, a5, SP[a4, a6], a2, a3, n] - 
    S2[a5, n]*S2[a1, a6, a2, a3, a4, n] - S2[a1, a6, a2, a3, SP[a4, a5], n] - 
    S2[a5, n]*S2[a1, a6, a2, a4, a3, n] - S2[a1, a6, a2, a4, SP[a3, a5], n] - 
    S2[a1, a6, a2, SP[a3, a5], a4, n] - S2[a1, a6, a2, SP[a4, a5], a3, n] + 
    S2[a2, n]*S2[a1, a6, a3, a4, a5, n] + S2[a1, a6, a3, a4, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a6, a3, a5, a4, n] + S2[a1, a6, a3, a5, SP[a2, a4], n] + 
    S2[a1, a6, a3, SP[a2, a4], a5, n] + S2[a1, a6, a3, SP[a2, a5], a4, n] - 
    S2[a5, n]*S2[a1, a6, a4, a2, a3, n] - S2[a1, a6, a4, a2, SP[a3, a5], n] + 
    S2[a2, n]*S2[a1, a6, a4, a3, a5, n] + S2[a1, a6, a4, a3, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a6, a4, a5, a3, n] + S2[a1, a6, a4, a5, SP[a2, a3], n] + 
    S2[a1, a6, a4, SP[a2, a3], a5, n] + S2[a2, n]*S2[a1, a6, a5, a3, a4, n] + 
    S2[a1, a6, a5, a3, SP[a2, a4], n] + S2[a2, n]*S2[a1, a6, a5, a4, a3, n] + 
    S2[a1, a6, a5, a4, SP[a2, a3], n] + S2[a1, a6, a5, SP[a2, a3], a4, n] + 
    S2[a1, a6, a5, SP[a2, a4], a3, n] + S2[a1, a6, SP[a2, a3], a4, a5, n] + 
    S2[a1, a6, SP[a2, a3], a5, a4, n] + S2[a1, a6, SP[a2, a4], a3, a5, n] + 
    S2[a1, a6, SP[a2, a4], a5, a3, n] - S2[a1, a6, SP[a4, a5], a2, a3, n] + 
    S2[a1, SP[a2, a3], a4, a5, a6, n] + S2[a1, SP[a2, a3], a4, a6, a5, n] + 
    S2[a1, SP[a2, a3], a6, a4, a5, n] + S2[a1, SP[a2, a6], a3, a4, a5, n] + 
    S2[a1, SP[a2, a6], a3, a5, a4, n] + S2[a1, SP[a2, a6], a4, a3, a5, n] + 
    S2[a1, SP[a2, a6], a4, a5, a3, n] + S2[a1, SP[a2, a6], a5, a3, a4, n] + 
    S2[a1, SP[a2, a6], a5, a4, a3, n] - S2[a1, SP[a3, a6], a2, a4, a5, n] - 
    S2[a1, SP[a3, a6], a4, a2, a5, n] - S2[a1, SP[a3, a6], a4, a5, a2, n] - 
    S2[a1, SP[a4, a6], a3, a2, a5, n] - S2[a1, SP[a4, a6], a3, a5, a2, n] - 
    S2[a1, SP[a4, a6], a5, a3, a2, n] - S2[a1, SP[a5, a6], a2, a3, a4, n] - 
    S2[a1, SP[a5, a6], a2, a4, a3, n] - S2[a1, SP[a5, a6], a4, a2, a3, n] - 
    S2[a2, a1, a3, a6, SP[a4, a5], n] - S2[a2, a1, a3, SP[a4, a6], a5, n] - 
    S2[a2, a1, a4, a5, SP[a3, a6], n] - S2[a2, a1, a4, SP[a3, a5], a6, n] - 
    S2[a2, a1, a6, a3, SP[a4, a5], n] - S2[a2, a1, a6, a5, SP[a3, a4], n] - 
    S2[a2, a1, a6, SP[a3, a4], a5, n] - S2[a2, a1, a6, SP[a4, a5], a3, n] - 
    S2[a2, a1, SP[a3, a4], a5, a6, n] - S2[a2, a1, SP[a3, a4], a6, a5, n] - 
    S2[a2, a1, SP[a4, a6], a3, a5, n] - S2[a2, a1, SP[a4, a6], a5, a3, n] + 
    S2[a6, n]*S2[a2, a3, a1, a4, a5, n] + S2[a2, a3, a1, a4, SP[a5, a6], n] - 
    S2[a2, a3, a1, a6, SP[a4, a5], n] - S2[a2, a3, a6, a1, SP[a4, a5], n] + 
    S2[a1, n]*S2[a2, a3, a6, a5, a4, n] + S2[a2, a3, a6, a5, SP[a1, a4], n] + 
    S2[a5, n]*S2[a2, a6, a1, a3, a4, n] + 
    S2[a5, n]*S2[a2, a6, a1, a4, a3, n] + S2[a2, a6, a1, a4, SP[a3, a5], n] - 
    S2[a2, a6, a1, a5, SP[a3, a4], n] - S2[a2, a6, a1, SP[a3, a4], a5, n] + 
    S2[a2, a6, a1, SP[a3, a5], a4, n] - S2[a2, a6, a3, a1, SP[a4, a5], n] - 
    S2[a2, a6, a3, SP[a1, a5], a4, n] - S2[a2, a6, a5, a1, SP[a3, a4], n] - 
    S2[a2, a6, a5, SP[a1, a3], a4, n] - S2[a2, a6, SP[a1, a3], a4, a5, n] - 
    S2[a2, a6, SP[a1, a3], a5, a4, n] - S2[a2, SP[a1, a3], a4, a5, a6, n] - 
    S2[a2, SP[a1, a3], a4, a6, a5, n] - S2[a2, SP[a1, a3], a6, a4, a5, n] - 
    S2[a2, SP[a1, a6], a3, a4, a5, n] - S2[a2, SP[a1, a6], a3, a5, a4, n] - 
    S2[a2, SP[a1, a6], a4, a3, a5, n] - S2[a2, SP[a1, a6], a4, a5, a3, n] - 
    S2[a2, SP[a1, a6], a5, a3, a4, n] - S2[a2, SP[a1, a6], a5, a4, a3, n] + 
    S2[a2, SP[a3, a6], a1, a4, a5, n] + S2[a2, SP[a5, a6], a1, a3, a4, n] + 
    S2[a2, SP[a5, a6], a1, a4, a3, n] + S2[a5, a1, a6, a2, SP[a3, a4], n] + 
    S2[a5, a1, a6, SP[a2, a4], a3, n] + S2[a5, a1, SP[a4, a6], a2, a3, n] + 
    S2[a5, a6, a1, a2, SP[a3, a4], n] - S2[a2, n]*S2[a5, a6, a1, a3, a4, n] - 
    S2[a5, a6, a1, a3, SP[a2, a4], n] - S2[a2, n]*S2[a5, a6, a1, a4, a3, n] - 
    S2[a5, a6, a1, a4, SP[a2, a3], n] - S2[a5, a6, a1, SP[a2, a3], a4, n] + 
    S2[a5, a6, a2, a1, SP[a3, a4], n] + S2[a5, a6, a2, SP[a1, a3], a4, n] + 
    S2[a5, SP[a1, a6], a2, a3, a4, n] + S2[a5, SP[a1, a6], a2, a4, a3, n] + 
    S2[a5, SP[a1, a6], a4, a2, a3, n] - S2[a5, SP[a2, a6], a1, a3, a4, n] - 
    S2[a5, SP[a2, a6], a1, a4, a3, n] + S2[a5, n]*S2[a6, a1, a3, a2, a4, n] + 
    S2[a6, a1, a3, a2, SP[a4, a5], n] + S2[a5, n]*S2[a6, a1, a3, a4, a2, n] + 
    S2[a6, a1, a3, a4, SP[a2, a5], n] + S2[a6, a1, a3, SP[a2, a5], a4, n] + 
    S2[a6, a1, a3, SP[a4, a5], a2, n] + S2[a5, n]*S2[a6, a1, a4, a3, a2, n] + 
    S2[a6, a1, a4, a3, SP[a2, a5], n] + S2[a6, a1, a4, SP[a3, a5], a2, n] + 
    S2[a6, a1, SP[a3, a5], a2, a4, n] + S2[a6, a1, SP[a3, a5], a4, a2, n] + 
    S2[a6, a1, SP[a4, a5], a3, a2, n] - S2[a5, n]*S2[a6, a2, a3, a1, a4, n] - 
    S2[a6, a2, a3, a1, SP[a4, a5], n] - S2[a6, a2, a3, SP[a1, a5], a4, n] - 
    S2[a6, a2, SP[a3, a5], a1, a4, n] + S2[a2, n]*S2[a6, a3, a1, a5, a4, n] + 
    S2[a6, a3, a1, a5, SP[a2, a4], n] + S2[a6, a3, a1, SP[a2, a5], a4, n] - 
    S2[a1, n]*S2[a6, a3, a2, a5, a4, n] - S2[a6, a3, a2, a5, SP[a1, a4], n] - 
    S2[a6, a3, a2, SP[a1, a5], a4, n] + S2[a2, n]*S2[a6, a3, a5, a1, a4, n] + 
    S2[a6, a3, a5, a1, SP[a2, a4], n] - S2[a1, n]*S2[a6, a3, a5, a2, a4, n] - 
    S2[a6, a3, a5, a2, SP[a1, a4], n] - S2[a1, n]*S2[a6, a3, a5, a4, a2, n] - 
    S2[a6, a3, a5, a4, SP[a1, a2], n] - S2[a6, a3, a5, SP[a1, a4], a2, n] - 
    S2[a6, a3, SP[a1, a5], a2, a4, n] - S2[a6, a3, SP[a1, a5], a4, a2, n] + 
    S2[a6, a3, SP[a2, a5], a1, a4, n] + S2[a2, n]*S2[a6, a5, a3, a1, a4, n] + 
    S2[a6, a5, a3, a1, SP[a2, a4], n] - S2[a1, n]*S2[a6, a5, a3, a2, a4, n] - 
    S2[a6, a5, a3, a2, SP[a1, a4], n] - S2[a1, n]*S2[a6, a5, a3, a4, a2, n] - 
    S2[a6, a5, a3, a4, SP[a1, a2], n] - S2[a6, a5, a3, SP[a1, a4], a2, n] - 
    S2[a1, n]*S2[a6, a5, a4, a3, a2, n] - S2[a6, a5, a4, a3, SP[a1, a2], n] - 
    S2[a6, a5, a4, SP[a1, a3], a2, n] - S2[a6, a5, SP[a1, a3], a2, a4, n] - 
    S2[a6, a5, SP[a1, a3], a4, a2, n] - S2[a6, a5, SP[a1, a4], a3, a2, n] + 
    S2[a6, a5, SP[a2, a3], a1, a4, n] - S2[a6, SP[a1, a3], a2, a5, a4, n] - 
    S2[a6, SP[a1, a3], a5, a2, a4, n] - S2[a6, SP[a1, a3], a5, a4, a2, n] + 
    S2[a6, SP[a2, a3], a1, a5, a4, n] + S2[a6, SP[a2, a3], a5, a1, a4, n] - 
    S2[SP[a1, a6], a3, a2, a4, a5, n] - S2[SP[a1, a6], a3, a2, a5, a4, n] - 
    S2[SP[a1, a6], a3, a4, a2, a5, n] - S2[SP[a1, a6], a3, a4, a5, a2, n] - 
    S2[SP[a1, a6], a3, a5, a2, a4, n] - S2[SP[a1, a6], a3, a5, a4, a2, n] - 
    S2[SP[a1, a6], a4, a3, a2, a5, n] - S2[SP[a1, a6], a4, a3, a5, a2, n] - 
    S2[SP[a1, a6], a4, a5, a3, a2, n] - S2[SP[a1, a6], a5, a3, a2, a4, n] - 
    S2[SP[a1, a6], a5, a3, a4, a2, n] - S2[SP[a1, a6], a5, a4, a3, a2, n] + 
    S2[SP[a2, a6], a3, a1, a4, a5, n] + S2[SP[a2, a6], a3, a1, a5, a4, n] + 
    S2[SP[a2, a6], a3, a5, a1, a4, n] + S2[SP[a2, a6], a5, a3, a1, a4, n] + 
    S2[SP[a5, a6], a1, a3, a2, a4, n] + S2[SP[a5, a6], a1, a3, a4, a2, n] + 
    S2[SP[a5, a6], a1, a4, a3, a2, n] - S2[SP[a5, a6], a2, a3, a1, a4, n] + 
    S2[a6, a3, a2, a5, a4, a1, n] + S2[a6, a3, a5, a2, a4, a1, n] + 
    S2[a6, a3, a5, a4, a1, a2, n] + S2[a6, a3, a5, a4, a2, a1, n] + 
    S2[a6, a5, a3, a2, a4, a1, n] + S2[a6, a5, a3, a4, a1, a2, n] + 
    S2[a6, a5, a3, a4, a2, a1, n] + S2[a6, a5, a4, a1, a3, a2, n] + 
    S2[a6, a5, a4, a3, a1, a2, n] + S2[a6, a5, a4, a3, a2, a1, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a2_, a4_, a1_, a3_, a5_, a6_, n_] :> 
  S2[a1, a4, a2, n]*S2[a3, a5, a6, n] + S2[SP[a1, a3], SP[a4, a5], 
     SP[a2, a6], n] + S2[a5, a6, n]*S2[a1, a3, a4, a2, n] + 
    S2[a2, a4, n]*S2[a1, a3, a5, a6, n] - S2[a1, a3, SP[a2, a5], SP[a4, a6], 
     n] - 2*S2[a1, a3, SP[a4, a5], SP[a2, a6], n] + 
    S2[a5, a6, n]*S2[a1, a4, a2, a3, n] + S2[a5, a6, n]*
     S2[a1, a4, a3, a2, n] - S2[a1, a4, SP[a2, a5], SP[a3, a6], n] - 
    S2[a1, a4, SP[a3, a5], SP[a2, a6], n] - S2[a1, SP[a2, a3], a5, 
     SP[a4, a6], n] - S2[a1, SP[a2, a3], SP[a4, a5], a6, n] - 
    S2[a1, SP[a3, a4], a5, SP[a2, a6], n] - S2[a1, SP[a3, a4], SP[a2, a5], 
     a6, n] - S2[a1, SP[a3, a5], a4, SP[a2, a6], n] - 
    S2[a1, SP[a3, a5], SP[a4, a6], a2, n] - S2[a1, SP[a4, a5], a2, 
     SP[a3, a6], n] - S2[a1, SP[a4, a5], a3, SP[a2, a6], n] - 
    S2[a1, SP[a4, a5], SP[a2, a6], a3, n] - S2[a1, SP[a4, a5], SP[a3, a6], 
     a2, n] - S2[a3, a1, SP[a4, a5], SP[a2, a6], n] - 
    S2[a3, SP[a1, a5], a4, SP[a2, a6], n] - S2[a3, SP[a1, a5], SP[a4, a6], 
     a2, n] - S2[SP[a1, a2], a3, a5, SP[a4, a6], n] - 
    S2[SP[a1, a2], a3, SP[a4, a5], a6, n] - S2[SP[a1, a2], SP[a3, a4], a5, 
     a6, n] - S2[SP[a1, a3], a4, a5, SP[a2, a6], n] - 
    S2[SP[a1, a3], a4, SP[a2, a5], a6, n] - S2[SP[a1, a3], a5, a4, 
     SP[a2, a6], n] - S2[SP[a1, a3], a5, SP[a4, a6], a2, n] - 
    S2[SP[a1, a3], SP[a4, a5], a2, a6, n] - S2[SP[a1, a3], SP[a4, a5], a6, 
     a2, n] - S2[SP[a1, a5], a3, a4, SP[a2, a6], n] - 
    S2[SP[a1, a5], a3, SP[a4, a6], a2, n] - S2[SP[a1, a5], a4, a2, 
     SP[a3, a6], n] - S2[SP[a1, a5], a4, a3, SP[a2, a6], n] - 
    S2[SP[a1, a5], a4, SP[a2, a6], a3, n] - S2[SP[a1, a5], a4, SP[a3, a6], 
     a2, n] - S2[SP[a1, a5], SP[a3, a6], a4, a2, n] - 
    S2[SP[a1, a5], SP[a4, a6], a2, a3, n] - S2[SP[a1, a5], SP[a4, a6], a3, 
     a2, n] + S2[a1, a2, a3, a5, SP[a4, a6], n] + S2[a1, a2, a3, SP[a4, a5], 
     a6, n] + S2[a1, a2, SP[a3, a4], a5, a6, n] + 
    S2[a1, a3, a2, a5, SP[a4, a6], n] + S2[a1, a3, a2, SP[a4, a5], a6, n] + 
    S2[a6, n]*S2[a1, a3, a4, a2, a5, n] - 
    S2[a5, n]*S2[a1, a3, a4, a2, a6, n] + 
    S2[a6, n]*S2[a1, a3, a4, a5, a2, n] - 
    S2[a2, n]*S2[a1, a3, a4, a5, a6, n] + 
    2*S2[a1, a3, a4, a5, SP[a2, a6], n] - 
    S2[a5, n]*S2[a1, a3, a4, a6, a2, n] - S2[a1, a3, a4, a6, SP[a2, a5], n] + 
    S2[a1, a3, a4, SP[a2, a6], a5, n] + S2[a1, a3, a5, a2, SP[a4, a6], n] + 
    S2[a6, n]*S2[a1, a3, a5, a4, a2, n] - 
    S2[a2, n]*S2[a1, a3, a5, a4, a6, n] + 
    2*S2[a1, a3, a5, a4, SP[a2, a6], n] - 
    S2[a2, n]*S2[a1, a3, a5, a6, a4, n] - S2[a1, a3, a5, a6, SP[a2, a4], n] - 
    S2[a1, a3, a5, SP[a2, a4], a6, n] + 3*S2[a1, a3, a5, SP[a4, a6], a2, n] - 
    S2[a5, n]*S2[a1, a3, a6, a4, a2, n] - S2[a1, a3, a6, a4, SP[a2, a5], n] - 
    S2[a1, a3, a6, SP[a4, a5], a2, n] - S2[a1, a3, SP[a2, a4], a5, a6, n] + 
    S2[a1, a3, SP[a4, a5], a2, a6, n] + S2[a1, a3, SP[a4, a5], a6, a2, n] + 
    S2[a1, a3, SP[a4, a6], a2, a5, n] + S2[a1, a3, SP[a4, a6], a5, a2, n] + 
    S2[a6, n]*S2[a1, a4, a2, a3, a5, n] - 
    S2[a5, n]*S2[a1, a4, a2, a3, a6, n] + 
    S2[a6, n]*S2[a1, a4, a2, a5, a3, n] - 
    S2[a3, n]*S2[a1, a4, a2, a5, a6, n] + S2[a1, a4, a2, a5, SP[a3, a6], n] - 
    S2[a5, n]*S2[a1, a4, a2, a6, a3, n] - S2[a1, a4, a2, a6, SP[a3, a5], n] - 
    S2[a1, a4, a2, SP[a3, a5], a6, n] + S2[a1, a4, a2, SP[a3, a6], a5, n] + 
    S2[a6, n]*S2[a1, a4, a3, a2, a5, n] - 
    S2[a5, n]*S2[a1, a4, a3, a2, a6, n] + 
    S2[a6, n]*S2[a1, a4, a3, a5, a2, n] - 
    S2[a2, n]*S2[a1, a4, a3, a5, a6, n] + 
    2*S2[a1, a4, a3, a5, SP[a2, a6], n] - 
    S2[a5, n]*S2[a1, a4, a3, a6, a2, n] - S2[a1, a4, a3, a6, SP[a2, a5], n] + 
    S2[a1, a4, a3, SP[a2, a6], a5, n] + S2[a6, n]*S2[a1, a4, a5, a2, a3, n] - 
    S2[a3, n]*S2[a1, a4, a5, a2, a6, n] + S2[a1, a4, a5, a2, SP[a3, a6], n] + 
    S2[a6, n]*S2[a1, a4, a5, a3, a2, n] + 
    2*S2[a1, a4, a5, a3, SP[a2, a6], n] - 
    S2[a3, n]*S2[a1, a4, a5, a6, a2, n] - S2[a1, a4, a5, a6, SP[a2, a3], n] - 
    S2[a1, a4, a5, SP[a2, a3], a6, n] + 2*S2[a1, a4, a5, SP[a2, a6], a3, n] + 
    S2[a1, a4, a5, SP[a3, a6], a2, n] - S2[a5, n]*S2[a1, a4, a6, a2, a3, n] - 
    S2[a1, a4, a6, a2, SP[a3, a5], n] - S2[a5, n]*S2[a1, a4, a6, a3, a2, n] - 
    S2[a1, a4, a6, a3, SP[a2, a5], n] - S2[a1, a4, a6, SP[a2, a5], a3, n] - 
    S2[a1, a4, a6, SP[a3, a5], a2, n] - S2[a1, a4, SP[a2, a3], a5, a6, n] + 
    S2[a1, a4, SP[a2, a6], a3, a5, n] + S2[a1, a4, SP[a2, a6], a5, a3, n] - 
    S2[a1, a4, SP[a3, a5], a2, a6, n] - S2[a1, a4, SP[a3, a5], a6, a2, n] + 
    S2[a1, a4, SP[a3, a6], a2, a5, n] + S2[a1, a4, SP[a3, a6], a5, a2, n] + 
    S2[a6, n]*S2[a1, a5, a3, a4, a2, n] + 
    2*S2[a1, a5, a3, a4, SP[a2, a6], n] + 
    2*S2[a1, a5, a3, SP[a4, a6], a2, n] + 
    S2[a6, n]*S2[a1, a5, a4, a2, a3, n] - 
    S2[a3, n]*S2[a1, a5, a4, a2, a6, n] + S2[a1, a5, a4, a2, SP[a3, a6], n] + 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] + 
    2*S2[a1, a5, a4, a3, SP[a2, a6], n] - 
    S2[a3, n]*S2[a1, a5, a4, a6, a2, n] - S2[a1, a5, a4, a6, SP[a2, a3], n] - 
    S2[a1, a5, a4, SP[a2, a3], a6, n] + 2*S2[a1, a5, a4, SP[a2, a6], a3, n] + 
    S2[a1, a5, a4, SP[a3, a6], a2, n] - S2[a3, n]*S2[a1, a5, a6, a4, a2, n] - 
    S2[a1, a5, a6, a4, SP[a2, a3], n] - S2[a1, a5, a6, SP[a3, a4], a2, n] - 
    S2[a1, a5, SP[a3, a4], a2, a6, n] - S2[a1, a5, SP[a3, a4], a6, a2, n] + 
    S2[a1, a5, SP[a3, a6], a4, a2, n] + 2*S2[a1, a5, SP[a4, a6], a2, a3, n] + 
    2*S2[a1, a5, SP[a4, a6], a3, a2, n] - 
    S2[a5, n]*S2[a1, a6, a3, a4, a2, n] - S2[a1, a6, a3, a4, SP[a2, a5], n] - 
    S2[a1, a6, a3, SP[a4, a5], a2, n] - S2[a5, n]*S2[a1, a6, a4, a2, a3, n] - 
    S2[a1, a6, a4, a2, SP[a3, a5], n] - S2[a5, n]*S2[a1, a6, a4, a3, a2, n] - 
    S2[a1, a6, a4, a3, SP[a2, a5], n] - S2[a1, a6, a4, SP[a2, a5], a3, n] - 
    S2[a1, a6, a4, SP[a3, a5], a2, n] - S2[a1, a6, SP[a3, a5], a4, a2, n] - 
    S2[a1, a6, SP[a4, a5], a2, a3, n] - S2[a1, a6, SP[a4, a5], a3, a2, n] - 
    S2[a1, SP[a2, a4], a3, a5, a6, n] - S2[a1, SP[a3, a5], a4, a2, a6, n] - 
    S2[a1, SP[a3, a5], a4, a6, a2, n] - S2[a1, SP[a3, a5], a6, a4, a2, n] + 
    S2[a1, SP[a3, a6], a4, a2, a5, n] + S2[a1, SP[a3, a6], a4, a5, a2, n] + 
    S2[a1, SP[a3, a6], a5, a4, a2, n] + S2[a1, SP[a4, a6], a2, a3, a5, n] + 
    S2[a1, SP[a4, a6], a2, a5, a3, n] + S2[a1, SP[a4, a6], a3, a2, a5, n] + 
    S2[a1, SP[a4, a6], a3, a5, a2, n] + S2[a1, SP[a4, a6], a5, a2, a3, n] + 
    S2[a1, SP[a4, a6], a5, a3, a2, n] + S2[a2, a1, a3, a5, SP[a4, a6], n] + 
    S2[a2, a1, a3, SP[a4, a5], a6, n] + S2[a2, a1, SP[a3, a4], a5, a6, n] + 
    S2[a2, SP[a1, a4], a3, a5, a6, n] + S2[a3, a1, a4, a5, SP[a2, a6], n] + 
    S2[a3, a1, a4, SP[a2, a5], a6, n] + S2[a3, a1, a5, a4, SP[a2, a6], n] + 
    S2[a3, a1, a5, SP[a4, a6], a2, n] + S2[a3, a1, SP[a4, a5], a2, a6, n] + 
    S2[a3, a1, SP[a4, a5], a6, a2, n] - S2[a6, n]*S2[a3, a5, a1, a4, a2, n] + 
    S2[a3, SP[a1, a5], a4, a2, a6, n] + S2[a3, SP[a1, a5], a4, a6, a2, n] + 
    S2[a3, SP[a1, a5], a6, a4, a2, n] - S2[a3, SP[a5, a6], a1, a4, a2, n] + 
    S2[a5, a1, a3, a4, SP[a2, a6], n] + S2[a5, a1, a3, SP[a4, a6], a2, n] + 
    S2[a5, a1, a4, a2, SP[a3, a6], n] + S2[a5, a1, a4, a3, SP[a2, a6], n] + 
    S2[a5, a1, a4, SP[a2, a6], a3, n] + S2[a5, a1, a4, SP[a3, a6], a2, n] + 
    S2[a5, a1, SP[a3, a6], a4, a2, n] + S2[a5, a1, SP[a4, a6], a2, a3, n] + 
    S2[a5, a1, SP[a4, a6], a3, a2, n] + S2[a5, SP[a1, a6], a3, a4, a2, n] + 
    S2[a5, SP[a1, a6], a4, a2, a3, n] + S2[a5, SP[a1, a6], a4, a3, a2, n] - 
    S2[a5, n]*S2[a6, a1, a3, a4, a2, n] - S2[a6, a1, a3, a4, SP[a2, a5], n] - 
    S2[a6, a1, a3, SP[a4, a5], a2, n] - S2[a5, n]*S2[a6, a1, a4, a2, a3, n] - 
    S2[a6, a1, a4, a2, SP[a3, a5], n] - S2[a5, n]*S2[a6, a1, a4, a3, a2, n] - 
    S2[a6, a1, a4, a3, SP[a2, a5], n] - S2[a6, a1, a4, SP[a2, a5], a3, n] - 
    S2[a6, a1, a4, SP[a3, a5], a2, n] - S2[a6, a1, SP[a3, a5], a4, a2, n] - 
    S2[a6, a1, SP[a4, a5], a2, a3, n] - S2[a6, a1, SP[a4, a5], a3, a2, n] + 
    S2[a3, n]*S2[a6, a5, a1, a4, a2, n] + S2[a6, a5, a1, a4, SP[a2, a3], n] + 
    S2[a6, a5, a1, SP[a3, a4], a2, n] + S2[a6, a5, SP[a1, a3], a4, a2, n] - 
    S2[a6, SP[a1, a5], a3, a4, a2, n] - S2[a6, SP[a1, a5], a4, a2, a3, n] - 
    S2[a6, SP[a1, a5], a4, a3, a2, n] + S2[a6, SP[a3, a5], a1, a4, a2, n] + 
    S2[SP[a1, a6], a3, a4, a2, a5, n] + S2[SP[a1, a6], a3, a4, a5, a2, n] + 
    S2[SP[a1, a6], a3, a5, a4, a2, n] + S2[SP[a1, a6], a4, a2, a3, a5, n] + 
    S2[SP[a1, a6], a4, a2, a5, a3, n] + S2[SP[a1, a6], a4, a3, a2, a5, n] + 
    S2[SP[a1, a6], a4, a3, a5, a2, n] + S2[SP[a1, a6], a4, a5, a2, a3, n] + 
    S2[SP[a1, a6], a4, a5, a3, a2, n] + S2[SP[a1, a6], a5, a3, a4, a2, n] + 
    S2[SP[a1, a6], a5, a4, a2, a3, n] + S2[SP[a1, a6], a5, a4, a3, a2, n] - 
    S2[SP[a5, a6], a1, a3, a4, a2, n] - S2[SP[a5, a6], a1, a4, a2, a3, n] - 
    S2[SP[a5, a6], a1, a4, a3, a2, n] - S2[a6, a5, a3, a1, a4, a2, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a2_, a4_, a1_, a3_, a6_, a5_, n_] :> 
  S2[a1, a4, a2, n]*S2[a3, a6, a5, n] + S2[SP[a1, a3], SP[a4, a6], 
     SP[a2, a5], n] - S2[a5, a6, n]*S2[a1, a3, a4, a2, n] + 
    S2[a2, a4, n]*S2[a1, a3, a6, a5, n] - S2[a1, a3, SP[a2, a6], SP[a4, a5], 
     n] + S2[a1, a3, SP[a4, a5], SP[a2, a6], n] - S2[a1, a3, SP[a4, a6], 
     SP[a2, a5], n] - S2[a5, a6, n]*S2[a1, a4, a2, a3, n] - 
    S2[a5, a6, n]*S2[a1, a4, a3, a2, n] + S2[a1, a4, SP[a2, a5], SP[a3, a6], 
     n] + S2[a1, a4, SP[a3, a5], SP[a2, a6], n] - S2[a1, SP[a2, a3], a6, 
     SP[a4, a5], n] - S2[a1, SP[a2, a3], SP[a4, a6], a5, n] - 
    S2[a1, SP[a3, a4], a6, SP[a2, a5], n] - S2[a1, SP[a3, a4], SP[a2, a6], 
     a5, n] + S2[a1, SP[a3, a5], a4, SP[a2, a6], n] + 
    S2[a1, SP[a3, a5], SP[a4, a6], a2, n] + S2[a1, SP[a4, a5], a2, 
     SP[a3, a6], n] + S2[a1, SP[a4, a5], a3, SP[a2, a6], n] + 
    S2[a1, SP[a4, a5], SP[a2, a6], a3, n] + S2[a1, SP[a4, a5], SP[a3, a6], 
     a2, n] - S2[a3, a1, SP[a4, a6], SP[a2, a5], n] - 
    S2[a3, SP[a1, a6], a4, SP[a2, a5], n] - S2[a3, SP[a1, a6], SP[a4, a5], 
     a2, n] - S2[SP[a1, a2], a3, a6, SP[a4, a5], n] - 
    S2[SP[a1, a2], a3, SP[a4, a6], a5, n] - S2[SP[a1, a2], SP[a3, a4], a6, 
     a5, n] - S2[SP[a1, a3], a4, a6, SP[a2, a5], n] - 
    S2[SP[a1, a3], a4, SP[a2, a6], a5, n] - S2[SP[a1, a3], a6, a4, 
     SP[a2, a5], n] - S2[SP[a1, a3], a6, SP[a4, a5], a2, n] - 
    S2[SP[a1, a3], SP[a4, a6], a2, a5, n] - S2[SP[a1, a3], SP[a4, a6], a5, 
     a2, n] + S2[SP[a1, a5], a3, a4, SP[a2, a6], n] + 
    S2[SP[a1, a5], a3, SP[a4, a6], a2, n] + S2[SP[a1, a5], a4, a2, 
     SP[a3, a6], n] + S2[SP[a1, a5], a4, a3, SP[a2, a6], n] + 
    S2[SP[a1, a5], a4, SP[a2, a6], a3, n] + S2[SP[a1, a5], a4, SP[a3, a6], 
     a2, n] + S2[SP[a1, a5], SP[a3, a6], a4, a2, n] + 
    S2[SP[a1, a5], SP[a4, a6], a2, a3, n] + S2[SP[a1, a5], SP[a4, a6], a3, 
     a2, n] + S2[a1, a2, a3, a6, SP[a4, a5], n] + S2[a1, a2, a3, SP[a4, a6], 
     a5, n] + S2[a1, a2, SP[a3, a4], a6, a5, n] + 
    S2[a1, a3, a2, a6, SP[a4, a5], n] + S2[a1, a3, a2, SP[a4, a6], a5, n] + 
    S2[a5, n]*S2[a1, a3, a4, a2, a6, n] + S2[a1, a3, a4, a2, SP[a5, a6], n] - 
    S2[a1, a3, a4, a5, SP[a2, a6], n] + S2[a5, n]*S2[a1, a3, a4, a6, a2, n] - 
    S2[a2, n]*S2[a1, a3, a4, a6, a5, n] + S2[a1, a3, a4, a6, SP[a2, a5], n] + 
    S2[a1, a3, a4, SP[a5, a6], a2, n] - S2[a1, a3, a5, a4, SP[a2, a6], n] - 
    S2[a1, a3, a5, SP[a4, a6], a2, n] + S2[a1, a3, a6, a2, SP[a4, a5], n] + 
    S2[a5, n]*S2[a1, a3, a6, a4, a2, n] - 
    S2[a2, n]*S2[a1, a3, a6, a4, a5, n] + S2[a1, a3, a6, a4, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a3, a6, a5, a4, n] - S2[a1, a3, a6, a5, SP[a2, a4], n] - 
    S2[a1, a3, a6, SP[a2, a4], a5, n] + 2*S2[a1, a3, a6, SP[a4, a5], a2, n] - 
    S2[a1, a3, SP[a2, a4], a6, a5, n] + S2[a1, a3, SP[a4, a6], a2, a5, n] + 
    S2[a1, a3, SP[a4, a6], a5, a2, n] + S2[a1, a3, SP[a5, a6], a4, a2, n] + 
    S2[a5, n]*S2[a1, a4, a2, a3, a6, n] + S2[a1, a4, a2, a3, SP[a5, a6], n] - 
    S2[a1, a4, a2, a5, SP[a3, a6], n] + S2[a5, n]*S2[a1, a4, a2, a6, a3, n] - 
    S2[a3, n]*S2[a1, a4, a2, a6, a5, n] - S2[a1, a4, a2, SP[a3, a6], a5, n] + 
    S2[a1, a4, a2, SP[a5, a6], a3, n] + S2[a5, n]*S2[a1, a4, a3, a2, a6, n] + 
    S2[a1, a4, a3, a2, SP[a5, a6], n] - S2[a1, a4, a3, a5, SP[a2, a6], n] + 
    S2[a5, n]*S2[a1, a4, a3, a6, a2, n] - 
    S2[a2, n]*S2[a1, a4, a3, a6, a5, n] + S2[a1, a4, a3, a6, SP[a2, a5], n] + 
    S2[a1, a4, a3, SP[a5, a6], a2, n] - S2[a1, a4, a5, a2, SP[a3, a6], n] - 
    S2[a1, a4, a5, a3, SP[a2, a6], n] - S2[a1, a4, a5, SP[a2, a6], a3, n] - 
    S2[a1, a4, a5, SP[a3, a6], a2, n] + S2[a5, n]*S2[a1, a4, a6, a2, a3, n] - 
    S2[a3, n]*S2[a1, a4, a6, a2, a5, n] + 
    S2[a5, n]*S2[a1, a4, a6, a3, a2, n] + S2[a1, a4, a6, a3, SP[a2, a5], n] - 
    S2[a3, n]*S2[a1, a4, a6, a5, a2, n] - S2[a1, a4, a6, a5, SP[a2, a3], n] - 
    S2[a1, a4, a6, SP[a2, a3], a5, n] + S2[a1, a4, a6, SP[a2, a5], a3, n] - 
    S2[a1, a4, SP[a2, a3], a6, a5, n] - S2[a1, a4, SP[a3, a6], a2, a5, n] - 
    S2[a1, a4, SP[a3, a6], a5, a2, n] + S2[a1, a4, SP[a5, a6], a2, a3, n] + 
    S2[a1, a4, SP[a5, a6], a3, a2, n] - S2[a1, a5, a3, a4, SP[a2, a6], n] - 
    S2[a1, a5, a3, SP[a4, a6], a2, n] - S2[a1, a5, a4, a2, SP[a3, a6], n] - 
    S2[a1, a5, a4, a3, SP[a2, a6], n] - S2[a1, a5, a4, SP[a2, a6], a3, n] - 
    S2[a1, a5, a4, SP[a3, a6], a2, n] - S2[a1, a5, SP[a3, a6], a4, a2, n] - 
    S2[a1, a5, SP[a4, a6], a2, a3, n] - S2[a1, a5, SP[a4, a6], a3, a2, n] + 
    S2[a5, n]*S2[a1, a6, a3, a4, a2, n] + S2[a1, a6, a3, a4, SP[a2, a5], n] + 
    S2[a1, a6, a3, SP[a4, a5], a2, n] + S2[a5, n]*S2[a1, a6, a4, a2, a3, n] - 
    S2[a3, n]*S2[a1, a6, a4, a2, a5, n] + 
    S2[a5, n]*S2[a1, a6, a4, a3, a2, n] + S2[a1, a6, a4, a3, SP[a2, a5], n] - 
    S2[a3, n]*S2[a1, a6, a4, a5, a2, n] - S2[a1, a6, a4, a5, SP[a2, a3], n] - 
    S2[a1, a6, a4, SP[a2, a3], a5, n] + S2[a1, a6, a4, SP[a2, a5], a3, n] - 
    S2[a3, n]*S2[a1, a6, a5, a4, a2, n] - S2[a1, a6, a5, a4, SP[a2, a3], n] - 
    S2[a1, a6, a5, SP[a3, a4], a2, n] - S2[a1, a6, SP[a3, a4], a2, a5, n] - 
    S2[a1, a6, SP[a3, a4], a5, a2, n] + S2[a1, a6, SP[a4, a5], a2, a3, n] + 
    S2[a1, a6, SP[a4, a5], a3, a2, n] - S2[a1, SP[a2, a4], a3, a6, a5, n] - 
    S2[a1, SP[a3, a6], a4, a2, a5, n] - S2[a1, SP[a3, a6], a4, a5, a2, n] - 
    S2[a1, SP[a3, a6], a5, a4, a2, n] + S2[a1, SP[a5, a6], a3, a4, a2, n] + 
    S2[a1, SP[a5, a6], a4, a2, a3, n] + S2[a1, SP[a5, a6], a4, a3, a2, n] + 
    S2[a2, a1, a3, a6, SP[a4, a5], n] + S2[a2, a1, a3, SP[a4, a6], a5, n] + 
    S2[a2, a1, SP[a3, a4], a6, a5, n] + S2[a2, SP[a1, a4], a3, a6, a5, n] + 
    S2[a3, a1, a4, a6, SP[a2, a5], n] + S2[a3, a1, a4, SP[a2, a6], a5, n] + 
    S2[a3, a1, a6, a4, SP[a2, a5], n] + S2[a3, a1, a6, SP[a4, a5], a2, n] + 
    S2[a3, a1, SP[a4, a6], a2, a5, n] + S2[a3, a1, SP[a4, a6], a5, a2, n] + 
    S2[a3, a6, a1, a4, SP[a2, a5], n] + S2[a3, a6, a1, SP[a4, a5], a2, n] + 
    S2[a3, a6, SP[a1, a5], a4, a2, n] + S2[a3, SP[a1, a6], a4, a2, a5, n] + 
    S2[a3, SP[a1, a6], a4, a5, a2, n] + S2[a3, SP[a1, a6], a5, a4, a2, n] - 
    S2[a5, a1, a3, a4, SP[a2, a6], n] - S2[a5, a1, a3, SP[a4, a6], a2, n] - 
    S2[a5, a1, a4, a2, SP[a3, a6], n] - S2[a5, a1, a4, a3, SP[a2, a6], n] - 
    S2[a5, a1, a4, SP[a2, a6], a3, n] - S2[a5, a1, a4, SP[a3, a6], a2, n] - 
    S2[a5, a1, SP[a3, a6], a4, a2, n] - S2[a5, a1, SP[a4, a6], a2, a3, n] - 
    S2[a5, a1, SP[a4, a6], a3, a2, n] - S2[a5, SP[a1, a6], a3, a4, a2, n] - 
    S2[a5, SP[a1, a6], a4, a2, a3, n] - S2[a5, SP[a1, a6], a4, a3, a2, n] + 
    S2[a5, n]*S2[a6, a1, a3, a4, a2, n] + S2[a6, a1, a3, a4, SP[a2, a5], n] + 
    S2[a6, a1, a3, SP[a4, a5], a2, n] + S2[a5, n]*S2[a6, a1, a4, a2, a3, n] - 
    S2[a3, n]*S2[a6, a1, a4, a2, a5, n] + 
    S2[a5, n]*S2[a6, a1, a4, a3, a2, n] + S2[a6, a1, a4, a3, SP[a2, a5], n] - 
    S2[a3, n]*S2[a6, a1, a4, a5, a2, n] - S2[a6, a1, a4, a5, SP[a2, a3], n] - 
    S2[a6, a1, a4, SP[a2, a3], a5, n] + S2[a6, a1, a4, SP[a2, a5], a3, n] - 
    S2[a3, n]*S2[a6, a1, a5, a4, a2, n] - S2[a6, a1, a5, a4, SP[a2, a3], n] - 
    S2[a6, a1, a5, SP[a3, a4], a2, n] - S2[a6, a1, SP[a3, a4], a2, a5, n] - 
    S2[a6, a1, SP[a3, a4], a5, a2, n] + S2[a6, a1, SP[a4, a5], a2, a3, n] + 
    S2[a6, a1, SP[a4, a5], a3, a2, n] - S2[a3, n]*S2[a6, a5, a1, a4, a2, n] - 
    S2[a6, a5, a1, a4, SP[a2, a3], n] - S2[a6, a5, a1, SP[a3, a4], a2, n] - 
    S2[a6, a5, SP[a1, a3], a4, a2, n] - S2[a6, SP[a1, a3], a4, a2, a5, n] - 
    S2[a6, SP[a1, a3], a4, a5, a2, n] - S2[a6, SP[a1, a3], a5, a4, a2, n] + 
    S2[a6, SP[a1, a5], a3, a4, a2, n] + S2[a6, SP[a1, a5], a4, a2, a3, n] + 
    S2[a6, SP[a1, a5], a4, a3, a2, n] - S2[a6, SP[a3, a5], a1, a4, a2, n] - 
    S2[SP[a3, a6], a1, a4, a2, a5, n] - S2[SP[a3, a6], a1, a4, a5, a2, n] - 
    S2[SP[a3, a6], a1, a5, a4, a2, n] - S2[SP[a3, a6], a5, a1, a4, a2, n] + 
    S2[SP[a5, a6], a1, a3, a4, a2, n] + S2[SP[a5, a6], a1, a4, a2, a3, n] + 
    S2[SP[a5, a6], a1, a4, a3, a2, n] + S2[a6, a3, a1, a4, a2, a5, n] + 
    S2[a6, a3, a1, a4, a5, a2, n] + S2[a6, a3, a1, a5, a4, a2, n] + 
    S2[a6, a3, a5, a1, a4, a2, n] + S2[a6, a5, a3, a1, a4, a2, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a2_, a4_, a1_, a5_, a3_, a6_, n_] :> 
  -(S2[a1, a4, a2, n]*S2[a3, a5, a6, n]) - S2[a1, a4, a2, n]*
     S2[a3, a6, a5, n] - S2[SP[a1, a3], SP[a4, a5], SP[a2, a6], n] - 
    S2[SP[a1, a3], SP[a4, a6], SP[a2, a5], n] + S2[a1, a3, SP[a4, a5], 
     SP[a2, a6], n] + S2[a1, a3, SP[a4, a6], SP[a2, a5], n] + 
    S2[a3, a6, n]*S2[a1, a4, a2, a5, n] + S2[a3, a6, n]*
     S2[a1, a4, a5, a2, n] - S2[a1, a4, SP[a2, a3], SP[a5, a6], n] - 
    S2[a1, a4, SP[a3, a5], SP[a2, a6], n] + S2[a2, a4, n]*
     S2[a1, a5, a3, a6, n] + S2[a3, a6, n]*S2[a1, a5, a4, a2, n] - 
    S2[a1, a5, SP[a2, a3], SP[a4, a6], n] - S2[a1, a5, SP[a3, a4], 
     SP[a2, a6], n] - S2[a1, SP[a2, a5], a3, SP[a4, a6], n] - 
    S2[a1, SP[a2, a5], SP[a3, a4], a6, n] - S2[a1, SP[a3, a4], a2, 
     SP[a5, a6], n] + S2[a1, SP[a3, a4], a6, SP[a2, a5], n] + 
    S2[a1, SP[a3, a4], SP[a2, a5], a6, n] - S2[a1, SP[a3, a4], SP[a5, a6], 
     a2, n] - S2[a1, SP[a3, a5], a4, SP[a2, a6], n] - 
    S2[a1, SP[a3, a5], SP[a4, a6], a2, n] + S2[a3, a1, SP[a4, a5], 
     SP[a2, a6], n] + S2[a3, a1, SP[a4, a6], SP[a2, a5], n] + 
    S2[a3, SP[a1, a5], a4, SP[a2, a6], n] + S2[a3, SP[a1, a5], SP[a4, a6], 
     a2, n] + S2[a3, SP[a1, a6], a4, SP[a2, a5], n] + 
    S2[a3, SP[a1, a6], SP[a4, a5], a2, n] - S2[SP[a1, a2], a5, a3, 
     SP[a4, a6], n] - S2[SP[a1, a2], a5, SP[a3, a4], a6, n] - 
    S2[SP[a1, a2], SP[a4, a5], a3, a6, n] - S2[SP[a1, a3], a4, a2, 
     SP[a5, a6], n] + S2[SP[a1, a3], a4, a6, SP[a2, a5], n] + 
    S2[SP[a1, a3], a4, SP[a2, a5], a6, n] - S2[SP[a1, a3], a4, SP[a5, a6], 
     a2, n] + S2[SP[a1, a3], a6, a4, SP[a2, a5], n] + 
    S2[SP[a1, a3], a6, SP[a4, a5], a2, n] + S2[SP[a1, a3], SP[a4, a5], a2, 
     a6, n] + S2[SP[a1, a3], SP[a4, a5], a6, a2, n] - 
    S2[SP[a1, a3], SP[a5, a6], a4, a2, n] + S2[a1, a2, a5, a3, SP[a4, a6], 
     n] + S2[a1, a2, a5, SP[a3, a4], a6, n] + S2[a1, a2, SP[a4, a5], a3, a6, 
     n] + S2[a1, a3, a4, a2, SP[a5, a6], n] - S2[a1, a3, a4, a6, SP[a2, a5], 
     n] - S2[a1, a3, a4, SP[a2, a5], a6, n] + S2[a1, a3, a4, SP[a5, a6], a2, 
     n] - S2[a1, a3, a6, a4, SP[a2, a5], n] - S2[a1, a3, a6, SP[a4, a5], a2, 
     n] - S2[a1, a3, SP[a4, a5], a2, a6, n] - S2[a1, a3, SP[a4, a5], a6, a2, 
     n] + S2[a1, a3, SP[a5, a6], a4, a2, n] + S2[a1, a4, a2, a3, SP[a5, a6], 
     n] + S2[a1, a4, a2, SP[a3, a5], a6, n] + S2[a1, a4, a3, a2, SP[a5, a6], 
     n] - S2[a1, a4, a3, a6, SP[a2, a5], n] - S2[a1, a4, a3, SP[a2, a5], a6, 
     n] + S2[a1, a4, a3, SP[a5, a6], a2, n] - 
    S2[a2, n]*S2[a1, a4, a5, a3, a6, n] - S2[a1, a4, SP[a2, a5], a3, a6, n] + 
    S2[a1, a4, SP[a3, a5], a2, a6, n] + S2[a1, a4, SP[a3, a5], a6, a2, n] + 
    S2[a1, a5, a2, a3, SP[a4, a6], n] + S2[a1, a5, a2, SP[a3, a4], a6, n] + 
    S2[a1, a5, a3, a2, SP[a4, a6], n] - S2[a2, n]*S2[a1, a5, a3, a4, a6, n] - 
    S2[a2, n]*S2[a1, a5, a3, a6, a4, n] - S2[a1, a5, a3, a6, SP[a2, a4], n] - 
    S2[a1, a5, a3, SP[a2, a4], a6, n] + S2[a1, a5, a3, SP[a4, a6], a2, n] - 
    S2[a2, n]*S2[a1, a5, a4, a3, a6, n] - S2[a1, a5, SP[a2, a4], a3, a6, n] + 
    S2[a1, a5, SP[a3, a4], a2, a6, n] + S2[a1, a5, SP[a3, a4], a6, a2, n] - 
    S2[a1, SP[a2, a4], a5, a3, a6, n] + S2[a1, SP[a3, a5], a4, a2, a6, n] + 
    S2[a1, SP[a3, a5], a4, a6, a2, n] + S2[a1, SP[a3, a5], a6, a4, a2, n] + 
    S2[a2, a1, a5, a3, SP[a4, a6], n] + S2[a2, a1, a5, SP[a3, a4], a6, n] + 
    S2[a2, a1, SP[a4, a5], a3, a6, n] + S2[a2, SP[a1, a4], a5, a3, a6, n] + 
    S2[a3, a1, a4, a2, SP[a5, a6], n] - S2[a3, a1, a4, a6, SP[a2, a5], n] - 
    S2[a3, a1, a4, SP[a2, a5], a6, n] + S2[a3, a1, a4, SP[a5, a6], a2, n] - 
    S2[a3, a1, a6, a4, SP[a2, a5], n] - S2[a3, a1, a6, SP[a4, a5], a2, n] - 
    S2[a3, a1, SP[a4, a5], a2, a6, n] - S2[a3, a1, SP[a4, a5], a6, a2, n] + 
    S2[a3, a1, SP[a5, a6], a4, a2, n] + S2[a6, n]*S2[a3, a5, a1, a4, a2, n] - 
    S2[a3, a6, a1, a4, SP[a2, a5], n] - S2[a3, a6, a1, SP[a4, a5], a2, n] - 
    S2[a3, a6, SP[a1, a5], a4, a2, n] - S2[a3, SP[a1, a5], a4, a2, a6, n] - 
    S2[a3, SP[a1, a5], a4, a6, a2, n] - S2[a3, SP[a1, a5], a6, a4, a2, n] + 
    S2[a3, SP[a5, a6], a1, a4, a2, n] + S2[SP[a3, a6], a5, a1, a4, a2, n] - 
    S2[a6, a3, a5, a1, a4, a2, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a2_, a4_, a1_, a5_, a6_, a3_, n_] :> 
  S2[a1, a4, a2, n]*S2[a3, a6, a5, n] + S2[SP[a1, a3], SP[a4, a6], 
     SP[a2, a5], n] - S2[a1, a3, SP[a4, a6], SP[a2, a5], n] - 
    S2[a3, a6, n]*S2[a1, a4, a2, a5, n] - S2[a3, a6, n]*
     S2[a1, a4, a5, a2, n] + S2[a1, a4, SP[a2, a3], SP[a5, a6], n] + 
    S2[a1, a4, SP[a3, a5], SP[a2, a6], n] - S2[a3, a6, n]*
     S2[a1, a5, a4, a2, n] + S2[a2, a4, n]*S2[a1, a5, a6, a3, n] - 
    S2[a1, a5, SP[a2, a6], SP[a3, a4], n] + S2[a1, a5, SP[a3, a4], 
     SP[a2, a6], n] - S2[a1, SP[a2, a5], a6, SP[a3, a4], n] - 
    S2[a1, SP[a2, a5], SP[a4, a6], a3, n] + S2[a1, SP[a3, a4], a2, 
     SP[a5, a6], n] + S2[a1, SP[a3, a4], a5, SP[a2, a6], n] - 
    S2[a1, SP[a3, a4], a6, SP[a2, a5], n] + S2[a1, SP[a3, a4], SP[a5, a6], 
     a2, n] + S2[a1, SP[a3, a5], a4, SP[a2, a6], n] + 
    S2[a1, SP[a3, a5], SP[a4, a6], a2, n] - S2[a3, a1, SP[a4, a6], 
     SP[a2, a5], n] - S2[a3, SP[a1, a6], a4, SP[a2, a5], n] - 
    S2[a3, SP[a1, a6], SP[a4, a5], a2, n] - S2[SP[a1, a2], a5, a6, 
     SP[a3, a4], n] - S2[SP[a1, a2], a5, SP[a4, a6], a3, n] - 
    S2[SP[a1, a2], SP[a4, a5], a6, a3, n] + S2[SP[a1, a3], a4, a2, 
     SP[a5, a6], n] + S2[SP[a1, a3], a4, a5, SP[a2, a6], n] - 
    S2[SP[a1, a3], a4, a6, SP[a2, a5], n] + S2[SP[a1, a3], a4, SP[a5, a6], 
     a2, n] + S2[SP[a1, a3], a5, a4, SP[a2, a6], n] + 
    S2[SP[a1, a3], a5, SP[a4, a6], a2, n] - S2[SP[a1, a3], a6, a4, 
     SP[a2, a5], n] - S2[SP[a1, a3], a6, SP[a4, a5], a2, n] + 
    S2[SP[a1, a3], SP[a5, a6], a4, a2, n] + S2[a1, a2, a5, a6, SP[a3, a4], 
     n] + S2[a1, a2, a5, SP[a4, a6], a3, n] + S2[a1, a2, SP[a4, a5], a6, a3, 
     n] - S2[a1, a3, a4, a2, SP[a5, a6], n] - S2[a1, a3, a4, a5, SP[a2, a6], 
     n] + S2[a1, a3, a4, a6, SP[a2, a5], n] - S2[a1, a3, a4, SP[a5, a6], a2, 
     n] - S2[a1, a3, a5, a4, SP[a2, a6], n] - S2[a1, a3, a5, SP[a4, a6], a2, 
     n] + S2[a1, a3, a6, a4, SP[a2, a5], n] + S2[a1, a3, a6, SP[a4, a5], a2, 
     n] - S2[a1, a3, SP[a5, a6], a4, a2, n] - S2[a1, a4, a2, a3, SP[a5, a6], 
     n] + S2[a3, n]*S2[a1, a4, a2, a5, a6, n] + S2[a1, a4, a2, a5, 
     SP[a3, a6], n] - S2[a1, a4, a3, a2, SP[a5, a6], n] - 
    S2[a1, a4, a3, a5, SP[a2, a6], n] + S2[a1, a4, a3, a6, SP[a2, a5], n] - 
    S2[a1, a4, a3, SP[a5, a6], a2, n] + S2[a3, n]*S2[a1, a4, a5, a2, a6, n] + 
    S2[a1, a4, a5, a2, SP[a3, a6], n] - S2[a1, a4, a5, a3, SP[a2, a6], n] + 
    S2[a3, n]*S2[a1, a4, a5, a6, a2, n] - 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] - S2[a1, a4, a5, SP[a2, a6], a3, n] + 
    S2[a1, a4, a5, SP[a3, a6], a2, n] - S2[a1, a4, SP[a2, a5], a6, a3, n] + 
    S2[a1, a5, a2, a6, SP[a3, a4], n] + S2[a1, a5, a2, SP[a4, a6], a3, n] - 
    S2[a1, a5, a3, a4, SP[a2, a6], n] - S2[a1, a5, a3, SP[a4, a6], a2, n] + 
    S2[a3, n]*S2[a1, a5, a4, a2, a6, n] + S2[a1, a5, a4, a2, SP[a3, a6], n] - 
    S2[a1, a5, a4, a3, SP[a2, a6], n] + S2[a3, n]*S2[a1, a5, a4, a6, a2, n] - 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] - S2[a1, a5, a4, SP[a2, a6], a3, n] + 
    S2[a1, a5, a4, SP[a3, a6], a2, n] + S2[a1, a5, a6, a2, SP[a3, a4], n] - 
    S2[a2, n]*S2[a1, a5, a6, a3, a4, n] - S2[a1, a5, a6, a3, SP[a2, a4], n] + 
    S2[a3, n]*S2[a1, a5, a6, a4, a2, n] - 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] - S2[a1, a5, a6, SP[a2, a4], a3, n] + 
    S2[a1, a5, a6, SP[a3, a4], a2, n] - S2[a1, a5, SP[a2, a4], a6, a3, n] + 
    S2[a1, a5, SP[a3, a6], a4, a2, n] - S2[a1, SP[a2, a4], a5, a6, a3, n] + 
    S2[a2, a1, a5, a6, SP[a3, a4], n] + S2[a2, a1, a5, SP[a4, a6], a3, n] + 
    S2[a2, a1, SP[a4, a5], a6, a3, n] + S2[a2, SP[a1, a4], a5, a6, a3, n] - 
    S2[a3, a1, a4, a2, SP[a5, a6], n] - S2[a3, a1, a4, a5, SP[a2, a6], n] + 
    S2[a3, a1, a4, a6, SP[a2, a5], n] - S2[a3, a1, a4, SP[a5, a6], a2, n] - 
    S2[a3, a1, a5, a4, SP[a2, a6], n] - S2[a3, a1, a5, SP[a4, a6], a2, n] + 
    S2[a3, a1, a6, a4, SP[a2, a5], n] + S2[a3, a1, a6, SP[a4, a5], a2, n] - 
    S2[a3, a1, SP[a5, a6], a4, a2, n] + S2[a3, a6, a1, a4, SP[a2, a5], n] + 
    S2[a3, a6, a1, SP[a4, a5], a2, n] + S2[a3, a6, SP[a1, a5], a4, a2, n] - 

    S2[a3, n]*S2[a6, a5, a1, a4, a2, n] - S2[a6, a5, a1, a4, SP[a2, a3], n] - 
    S2[a6, a5, a1, SP[a3, a4], a2, n] - S2[a6, a5, SP[a1, a3], a4, a2, n] - 
    S2[a6, SP[a3, a5], a1, a4, a2, n] - S2[SP[a3, a6], a5, a1, a4, a2, n] + 
    S2[a6, a3, a5, a1, a4, a2, n] + S2[a6, a5, a1, a3, a4, a2, n] + 
    S2[a6, a5, a1, a4, a2, a3, n] + S2[a6, a5, a1, a4, a3, a2, n] + 
    S2[a6, a5, a3, a1, a4, a2, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a2_, a4_, a1_, a6_, a3_, a5_, n_] :> 
  -(S2[a1, a4, a2, n]*S2[a3, a5, a6, n]) - S2[a1, a4, a2, n]*
     S2[a3, a6, a5, n] - S2[SP[a1, a3], SP[a4, a5], SP[a2, a6], n] - 
    S2[SP[a1, a3], SP[a4, a6], SP[a2, a5], n] + S2[a1, a3, SP[a4, a5], 
     SP[a2, a6], n] + S2[a1, a3, SP[a4, a6], SP[a2, a5], n] + 
    S2[a2, a4, n]*S2[a1, a6, a3, a5, n] - S2[a1, a6, SP[a2, a3], SP[a4, a5], 
     n] - S2[a1, SP[a2, a6], a3, SP[a4, a5], n] - 
    S2[a1, SP[a2, a6], SP[a3, a4], a5, n] + S2[a1, SP[a3, a4], a5, 
     SP[a2, a6], n] + S2[a1, SP[a3, a4], a6, SP[a2, a5], n] + 
    S2[a1, SP[a3, a4], SP[a2, a5], a6, n] + S2[a1, SP[a3, a4], SP[a2, a6], 
     a5, n] + S2[a3, a1, SP[a4, a5], SP[a2, a6], n] + 
    S2[a3, a1, SP[a4, a6], SP[a2, a5], n] + S2[a3, SP[a1, a5], a4, 
     SP[a2, a6], n] + S2[a3, SP[a1, a5], SP[a4, a6], a2, n] + 
    S2[a3, SP[a1, a6], a4, SP[a2, a5], n] + S2[a3, SP[a1, a6], SP[a4, a5], 
     a2, n] - S2[SP[a1, a2], a6, a3, SP[a4, a5], n] - 
    S2[SP[a1, a2], a6, SP[a3, a4], a5, n] - S2[SP[a1, a2], SP[a4, a6], a3, 
     a5, n] + S2[SP[a1, a3], a4, a5, SP[a2, a6], n] + 
    S2[SP[a1, a3], a4, a6, SP[a2, a5], n] + S2[SP[a1, a3], a4, SP[a2, a5], 
     a6, n] + S2[SP[a1, a3], a4, SP[a2, a6], a5, n] + 
    S2[SP[a1, a3], a5, a4, SP[a2, a6], n] + S2[SP[a1, a3], a5, SP[a4, a6], 
     a2, n] + S2[SP[a1, a3], a6, a4, SP[a2, a5], n] + 
    S2[SP[a1, a3], a6, SP[a4, a5], a2, n] + S2[SP[a1, a3], SP[a4, a5], a2, 
     a6, n] + S2[SP[a1, a3], SP[a4, a5], a6, a2, n] + 
    S2[SP[a1, a3], SP[a4, a6], a2, a5, n] + S2[SP[a1, a3], SP[a4, a6], a5, 
     a2, n] + S2[a1, a2, a6, a3, SP[a4, a5], n] + S2[a1, a2, a6, SP[a3, a4], 
     a5, n] + S2[a1, a2, SP[a4, a6], a3, a5, n] - 
    S2[a1, a3, a4, a5, SP[a2, a6], n] - S2[a1, a3, a4, a6, SP[a2, a5], n] - 
    S2[a1, a3, a4, SP[a2, a5], a6, n] - S2[a1, a3, a4, SP[a2, a6], a5, n] - 
    S2[a1, a3, a5, a4, SP[a2, a6], n] - S2[a1, a3, a5, SP[a4, a6], a2, n] - 
    S2[a1, a3, a6, a4, SP[a2, a5], n] - S2[a1, a3, a6, SP[a4, a5], a2, n] - 
    S2[a1, a3, SP[a4, a5], a2, a6, n] - S2[a1, a3, SP[a4, a5], a6, a2, n] - 
    S2[a1, a3, SP[a4, a6], a2, a5, n] - S2[a1, a3, SP[a4, a6], a5, a2, n] - 
    S2[a6, n]*S2[a1, a4, a2, a5, a3, n] + 
    S2[a3, n]*S2[a1, a4, a2, a5, a6, n] + 
    S2[a3, n]*S2[a1, a4, a2, a6, a5, n] + S2[a1, a4, a2, a6, SP[a3, a5], n] + 
    S2[a1, a4, a2, SP[a3, a5], a6, n] + S2[a1, a4, a2, SP[a3, a6], a5, n] - 
    S2[a1, a4, a2, SP[a5, a6], a3, n] - S2[a1, a4, a3, a5, SP[a2, a6], n] - 
    S2[a1, a4, a3, a6, SP[a2, a5], n] - S2[a1, a4, a3, SP[a2, a5], a6, n] - 
    S2[a1, a4, a3, SP[a2, a6], a5, n] - S2[a6, n]*S2[a1, a4, a5, a2, a3, n] + 
    S2[a3, n]*S2[a1, a4, a5, a2, a6, n] - 
    S2[a6, n]*S2[a1, a4, a5, a3, a2, n] - S2[a1, a4, a5, a3, SP[a2, a6], n] + 
    S2[a3, n]*S2[a1, a4, a5, a6, a2, n] + S2[a1, a4, a5, a6, SP[a2, a3], n] + 
    S2[a1, a4, a5, SP[a2, a3], a6, n] - S2[a1, a4, a5, SP[a2, a6], a3, n] + 
    S2[a3, n]*S2[a1, a4, a6, a2, a5, n] + S2[a1, a4, a6, a2, SP[a3, a5], n] - 
    S2[a2, n]*S2[a1, a4, a6, a3, a5, n] - S2[a1, a4, a6, a3, SP[a2, a5], n] + 
    S2[a3, n]*S2[a1, a4, a6, a5, a2, n] + S2[a1, a4, a6, a5, SP[a2, a3], n] + 
    S2[a1, a4, a6, SP[a3, a5], a2, n] - S2[a1, a4, SP[a2, a6], a3, a5, n] - 
    S2[a1, a4, SP[a2, a6], a5, a3, n] + S2[a1, a4, SP[a3, a5], a2, a6, n] + 
    S2[a1, a4, SP[a3, a5], a6, a2, n] + S2[a1, a4, SP[a3, a6], a2, a5, n] + 
    S2[a1, a4, SP[a3, a6], a5, a2, n] - S2[a1, a4, SP[a5, a6], a2, a3, n] - 
    S2[a1, a4, SP[a5, a6], a3, a2, n] - S2[a6, n]*S2[a1, a5, a3, a4, a2, n] - 
    S2[a1, a5, a3, a4, SP[a2, a6], n] - S2[a1, a5, a3, SP[a4, a6], a2, n] - 
    S2[a6, n]*S2[a1, a5, a4, a2, a3, n] + 
    S2[a3, n]*S2[a1, a5, a4, a2, a6, n] - 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] - S2[a1, a5, a4, a3, SP[a2, a6], n] + 
    S2[a3, n]*S2[a1, a5, a4, a6, a2, n] + S2[a1, a5, a4, a6, SP[a2, a3], n] + 
    S2[a1, a5, a4, SP[a2, a3], a6, n] - S2[a1, a5, a4, SP[a2, a6], a3, n] + 
    S2[a3, n]*S2[a1, a5, a6, a4, a2, n] + S2[a1, a5, a6, a4, SP[a2, a3], n] + 
    S2[a1, a5, a6, SP[a3, a4], a2, n] + S2[a1, a5, SP[a3, a4], a2, a6, n] + 
    S2[a1, a5, SP[a3, a4], a6, a2, n] - S2[a1, a5, SP[a4, a6], a2, a3, n] - 
    S2[a1, a5, SP[a4, a6], a3, a2, n] + S2[a1, a6, a2, a3, SP[a4, a5], n] + 
    S2[a1, a6, a2, SP[a3, a4], a5, n] + S2[a1, a6, a3, a2, SP[a4, a5], n] - 
    S2[a2, n]*S2[a1, a6, a3, a4, a5, n] - S2[a1, a6, a3, a4, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a6, a3, a5, a4, n] - S2[a1, a6, a3, a5, SP[a2, a4], n] - 
    S2[a1, a6, a3, SP[a2, a4], a5, n] + S2[a3, n]*S2[a1, a6, a4, a2, a5, n] + 
    S2[a1, a6, a4, a2, SP[a3, a5], n] - S2[a2, n]*S2[a1, a6, a4, a3, a5, n] - 
    S2[a1, a6, a4, a3, SP[a2, a5], n] + S2[a3, n]*S2[a1, a6, a4, a5, a2, n] + 
    S2[a1, a6, a4, a5, SP[a2, a3], n] + S2[a1, a6, a4, SP[a3, a5], a2, n] + 
    S2[a3, n]*S2[a1, a6, a5, a4, a2, n] + S2[a1, a6, a5, a4, SP[a2, a3], n] + 
    S2[a1, a6, a5, SP[a3, a4], a2, n] - S2[a1, a6, SP[a2, a4], a3, a5, n] + 
    S2[a1, a6, SP[a3, a4], a2, a5, n] + S2[a1, a6, SP[a3, a4], a5, a2, n] + 
    S2[a1, a6, SP[a3, a5], a4, a2, n] - S2[a1, SP[a2, a4], a6, a3, a5, n] + 
    S2[a1, SP[a3, a5], a4, a2, a6, n] + S2[a1, SP[a3, a5], a4, a6, a2, n] + 
    S2[a1, SP[a3, a5], a6, a4, a2, n] + S2[a1, SP[a3, a6], a4, a2, a5, n] + 
    S2[a1, SP[a3, a6], a4, a5, a2, n] + S2[a1, SP[a3, a6], a5, a4, a2, n] - 
    S2[a1, SP[a4, a6], a2, a5, a3, n] - S2[a1, SP[a4, a6], a5, a2, a3, n] - 
    S2[a1, SP[a4, a6], a5, a3, a2, n] - S2[a1, SP[a5, a6], a3, a4, a2, n] - 
    S2[a1, SP[a5, a6], a4, a2, a3, n] - S2[a1, SP[a5, a6], a4, a3, a2, n] + 
    S2[a2, a1, a6, a3, SP[a4, a5], n] + S2[a2, a1, a6, SP[a3, a4], a5, n] + 
    S2[a2, a1, SP[a4, a6], a3, a5, n] + S2[a2, SP[a1, a4], a6, a3, a5, n] - 
    S2[a3, a1, a4, a5, SP[a2, a6], n] - S2[a3, a1, a4, a6, SP[a2, a5], n] - 
    S2[a3, a1, a4, SP[a2, a5], a6, n] - S2[a3, a1, a4, SP[a2, a6], a5, n] - 
    S2[a3, a1, a5, a4, SP[a2, a6], n] - S2[a3, a1, a5, SP[a4, a6], a2, n] - 
    S2[a3, a1, a6, a4, SP[a2, a5], n] - S2[a3, a1, a6, SP[a4, a5], a2, n] - 
    S2[a3, a1, SP[a4, a5], a2, a6, n] - S2[a3, a1, SP[a4, a5], a6, a2, n] - 
    S2[a3, a1, SP[a4, a6], a2, a5, n] - S2[a3, a1, SP[a4, a6], a5, a2, n] + 
    S2[a6, n]*S2[a3, a5, a1, a4, a2, n] - S2[a3, a6, a1, a4, SP[a2, a5], n] - 
    S2[a3, a6, a1, SP[a4, a5], a2, n] - S2[a3, a6, SP[a1, a5], a4, a2, n] - 
    S2[a3, SP[a1, a5], a4, a2, a6, n] - S2[a3, SP[a1, a5], a4, a6, a2, n] - 
    S2[a3, SP[a1, a5], a6, a4, a2, n] - S2[a3, SP[a1, a6], a4, a2, a5, n] - 
    S2[a3, SP[a1, a6], a4, a5, a2, n] - S2[a3, SP[a1, a6], a5, a4, a2, n] + 
    S2[a3, SP[a5, a6], a1, a4, a2, n] + S2[a3, n]*S2[a6, a1, a4, a2, a5, n] + 
    S2[a6, a1, a4, a2, SP[a3, a5], n] + S2[a3, n]*S2[a6, a1, a4, a5, a2, n] + 
    S2[a6, a1, a4, a5, SP[a2, a3], n] + S2[a6, a1, a4, SP[a2, a3], a5, n] + 
    S2[a6, a1, a4, SP[a3, a5], a2, n] + S2[a3, n]*S2[a6, a1, a5, a4, a2, n] + 
    S2[a6, a1, a5, a4, SP[a2, a3], n] + S2[a6, a1, a5, SP[a3, a4], a2, n] + 
    S2[a6, a1, SP[a3, a4], a2, a5, n] + S2[a6, a1, SP[a3, a4], a5, a2, n] + 
    S2[a6, a1, SP[a3, a5], a4, a2, n] + S2[a6, SP[a1, a3], a4, a2, a5, n] + 
    S2[a6, SP[a1, a3], a4, a5, a2, n] + S2[a6, SP[a1, a3], a5, a4, a2, n] - 
    S2[SP[a1, a6], a4, a2, a5, a3, n] - S2[SP[a1, a6], a4, a5, a2, a3, n] - 
    S2[SP[a1, a6], a4, a5, a3, a2, n] - S2[SP[a1, a6], a5, a3, a4, a2, n] - 
    S2[SP[a1, a6], a5, a4, a2, a3, n] - S2[SP[a1, a6], a5, a4, a3, a2, n] + 
    S2[SP[a3, a6], a1, a4, a2, a5, n] + S2[SP[a3, a6], a1, a4, a5, a2, n] + 
    S2[SP[a3, a6], a1, a5, a4, a2, n] + S2[SP[a3, a6], a5, a1, a4, a2, n] - 
    S2[a6, a1, a3, a4, a2, a5, n] - S2[a6, a1, a3, a4, a5, a2, n] - 
    S2[a6, a1, a3, a5, a4, a2, n] - S2[a6, a1, a4, a2, a3, a5, n] - 
    S2[a6, a1, a4, a3, a2, a5, n] - S2[a6, a1, a4, a3, a5, a2, n] - 
    S2[a6, a3, a1, a4, a2, a5, n] - S2[a6, a3, a1, a4, a5, a2, n] - 
    S2[a6, a3, a1, a5, a4, a2, n] - S2[a6, a3, a5, a1, a4, a2, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a2_, a4_, a1_, a6_, a5_, a3_, n_] :> 
  S2[a1, a4, a2, n]*S2[a3, a5, a6, n] + S2[SP[a1, a3], SP[a4, a5], 
     SP[a2, a6], n] - S2[a1, a3, SP[a4, a5], SP[a2, a6], n] + 
    S2[a2, a4, n]*S2[a1, a6, a5, a3, n] - S2[a1, a6, SP[a2, a5], SP[a3, a4], 
     n] - S2[a1, SP[a2, a6], a5, SP[a3, a4], n] - 
    S2[a1, SP[a2, a6], SP[a4, a5], a3, n] - S2[a1, SP[a3, a4], a5, 
     SP[a2, a6], n] - S2[a1, SP[a3, a4], SP[a2, a5], a6, n] - 
    S2[a3, a1, SP[a4, a5], SP[a2, a6], n] - S2[a3, SP[a1, a5], a4, 
     SP[a2, a6], n] - S2[a3, SP[a1, a5], SP[a4, a6], a2, n] - 
    S2[SP[a1, a2], a6, a5, SP[a3, a4], n] - S2[SP[a1, a2], a6, SP[a4, a5], 
     a3, n] - S2[SP[a1, a2], SP[a4, a6], a5, a3, n] - 
    S2[SP[a1, a3], a4, a5, SP[a2, a6], n] - S2[SP[a1, a3], a4, SP[a2, a5], 
     a6, n] - S2[SP[a1, a3], a5, a4, SP[a2, a6], n] - 
    S2[SP[a1, a3], a5, SP[a4, a6], a2, n] - S2[SP[a1, a3], SP[a4, a5], a2, 
     a6, n] - S2[SP[a1, a3], SP[a4, a5], a6, a2, n] + 
    S2[a1, a2, a6, a5, SP[a3, a4], n] + S2[a1, a2, a6, SP[a4, a5], a3, n] + 
    S2[a1, a2, SP[a4, a6], a5, a3, n] + S2[a1, a3, a4, a5, SP[a2, a6], n] + 
    S2[a1, a3, a4, SP[a2, a5], a6, n] + S2[a1, a3, a5, a4, SP[a2, a6], n] + 
    S2[a1, a3, a5, SP[a4, a6], a2, n] + S2[a1, a3, SP[a4, a5], a2, a6, n] + 
    S2[a1, a3, SP[a4, a5], a6, a2, n] + S2[a6, n]*S2[a1, a4, a2, a5, a3, n] - 
    S2[a3, n]*S2[a1, a4, a2, a5, a6, n] - S2[a1, a4, a2, SP[a3, a5], a6, n] + 
    S2[a1, a4, a2, SP[a5, a6], a3, n] + S2[a1, a4, a3, a5, SP[a2, a6], n] + 
    S2[a1, a4, a3, SP[a2, a5], a6, n] + S2[a6, n]*S2[a1, a4, a5, a2, a3, n] - 
    S2[a3, n]*S2[a1, a4, a5, a2, a6, n] + 
    S2[a6, n]*S2[a1, a4, a5, a3, a2, n] + S2[a1, a4, a5, a3, SP[a2, a6], n] - 
    S2[a3, n]*S2[a1, a4, a5, a6, a2, n] - S2[a1, a4, a5, a6, SP[a2, a3], n] - 
    S2[a1, a4, a5, SP[a2, a3], a6, n] + S2[a1, a4, a5, SP[a2, a6], a3, n] - 
    S2[a2, n]*S2[a1, a4, a6, a5, a3, n] - S2[a1, a4, a6, a5, SP[a2, a3], n] - 
    S2[a1, a4, a6, SP[a2, a5], a3, n] - S2[a1, a4, SP[a3, a5], a2, a6, n] - 
    S2[a1, a4, SP[a3, a5], a6, a2, n] + S2[a1, a4, SP[a5, a6], a2, a3, n] + 
    S2[a1, a4, SP[a5, a6], a3, a2, n] + S2[a6, n]*S2[a1, a5, a3, a4, a2, n] + 
    S2[a1, a5, a3, a4, SP[a2, a6], n] + S2[a1, a5, a3, SP[a4, a6], a2, n] + 
    S2[a6, n]*S2[a1, a5, a4, a2, a3, n] - 
    S2[a3, n]*S2[a1, a5, a4, a2, a6, n] + 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] + S2[a1, a5, a4, a3, SP[a2, a6], n] - 
    S2[a3, n]*S2[a1, a5, a4, a6, a2, n] - S2[a1, a5, a4, a6, SP[a2, a3], n] - 
    S2[a1, a5, a4, SP[a2, a3], a6, n] + S2[a1, a5, a4, SP[a2, a6], a3, n] - 
    S2[a3, n]*S2[a1, a5, a6, a4, a2, n] - S2[a1, a5, a6, a4, SP[a2, a3], n] - 
    S2[a1, a5, a6, SP[a3, a4], a2, n] - S2[a1, a5, SP[a3, a4], a2, a6, n] - 
    S2[a1, a5, SP[a3, a4], a6, a2, n] + S2[a1, a5, SP[a4, a6], a2, a3, n] + 
    S2[a1, a5, SP[a4, a6], a3, a2, n] + S2[a1, a6, a2, a5, SP[a3, a4], n] + 
    S2[a1, a6, a2, SP[a4, a5], a3, n] - S2[a2, n]*S2[a1, a6, a4, a5, a3, n] - 
    S2[a1, a6, a4, a5, SP[a2, a3], n] - S2[a1, a6, a4, SP[a2, a5], a3, n] + 
    S2[a1, a6, a5, a2, SP[a3, a4], n] - S2[a2, n]*S2[a1, a6, a5, a3, a4, n] - 
    S2[a1, a6, a5, a3, SP[a2, a4], n] - S2[a2, n]*S2[a1, a6, a5, a4, a3, n] - 
    S2[a1, a6, a5, a4, SP[a2, a3], n] - S2[a1, a6, a5, SP[a2, a4], a3, n] - 
    S2[a1, a6, SP[a2, a4], a5, a3, n] - S2[a1, SP[a2, a4], a6, a5, a3, n] - 
    S2[a1, SP[a3, a5], a4, a2, a6, n] - S2[a1, SP[a3, a5], a4, a6, a2, n] - 
    S2[a1, SP[a3, a5], a6, a4, a2, n] + S2[a1, SP[a4, a6], a2, a5, a3, n] + 
    S2[a1, SP[a4, a6], a5, a2, a3, n] + S2[a1, SP[a4, a6], a5, a3, a2, n] + 
    S2[a1, SP[a5, a6], a3, a4, a2, n] + S2[a1, SP[a5, a6], a4, a2, a3, n] + 
    S2[a1, SP[a5, a6], a4, a3, a2, n] + S2[a2, a1, a6, a5, SP[a3, a4], n] + 
    S2[a2, a1, a6, SP[a4, a5], a3, n] + S2[a2, a1, SP[a4, a6], a5, a3, n] + 
    S2[a2, SP[a1, a4], a6, a5, a3, n] + S2[a3, a1, a4, a5, SP[a2, a6], n] + 
    S2[a3, a1, a4, SP[a2, a5], a6, n] + S2[a3, a1, a5, a4, SP[a2, a6], n] + 
    S2[a3, a1, a5, SP[a4, a6], a2, n] + S2[a3, a1, SP[a4, a5], a2, a6, n] + 
    S2[a3, a1, SP[a4, a5], a6, a2, n] - S2[a6, n]*S2[a3, a5, a1, a4, a2, n] + 
    S2[a3, SP[a1, a5], a4, a2, a6, n] + S2[a3, SP[a1, a5], a4, a6, a2, n] + 
    S2[a3, SP[a1, a5], a6, a4, a2, n] - S2[a3, SP[a5, a6], a1, a4, a2, n] + 
    S2[a3, n]*S2[a6, a5, a1, a4, a2, n] + S2[a6, a5, a1, a4, SP[a2, a3], n] + 
    S2[a6, a5, a1, SP[a3, a4], a2, n] + S2[a6, a5, SP[a1, a3], a4, a2, n] + 
    S2[a6, SP[a3, a5], a1, a4, a2, n] + S2[SP[a1, a6], a4, a2, a5, a3, n] + 
    S2[SP[a1, a6], a4, a5, a2, a3, n] + S2[SP[a1, a6], a4, a5, a3, a2, n] + 
    S2[SP[a1, a6], a5, a3, a4, a2, n] + S2[SP[a1, a6], a5, a4, a2, a3, n] + 
    S2[SP[a1, a6], a5, a4, a3, a2, n] - S2[a6, a1, a4, a2, a5, a3, n] - 
    S2[a6, a1, a4, a5, a2, a3, n] - S2[a6, a1, a4, a5, a3, a2, n] - 
    S2[a6, a1, a5, a3, a4, a2, n] - S2[a6, a1, a5, a4, a2, a3, n] - 
    S2[a6, a1, a5, a4, a3, a2, n] - S2[a6, a5, a1, a3, a4, a2, n] - 
    S2[a6, a5, a1, a4, a2, a3, n] - S2[a6, a5, a1, a4, a3, a2, n] - 
    S2[a6, a5, a3, a1, a4, a2, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a2_, a4_, a3_, a1_, a5_, a6_, n_] :> 
  S2[a1, a5, a6, n]*S2[a2, a4, a3, n] + S2[SP[a1, a2], SP[a4, a5], 
     SP[a3, a6], n] - S2[a1, a2, SP[a4, a5], SP[a3, a6], n] - 
    S2[a5, a6, n]*S2[a1, a3, a4, a2, n] - S2[a2, a4, n]*
     S2[a1, a3, a5, a6, n] + S2[a1, a3, SP[a2, a5], SP[a4, a6], n] + 
    S2[a1, a3, SP[a4, a5], SP[a2, a6], n] - S2[a2, a4, n]*
     S2[a1, a5, a3, a6, n] - S2[a2, a4, n]*S2[a1, a5, a6, a3, n] + 
    S2[a1, a5, SP[a2, a3], SP[a4, a6], n] + S2[a1, a5, SP[a2, a6], 
     SP[a3, a4], n] + S2[a1, SP[a2, a3], a5, SP[a4, a6], n] + 
    S2[a1, SP[a2, a3], SP[a4, a5], a6, n] + S2[a1, SP[a2, a5], a3, 
     SP[a4, a6], n] - S2[a1, SP[a2, a5], a4, SP[a3, a6], n] + 
    S2[a1, SP[a2, a5], a6, SP[a3, a4], n] + S2[a1, SP[a2, a5], SP[a3, a4], 
     a6, n] + S2[a1, SP[a3, a5], a4, SP[a2, a6], n] + 
    S2[a1, SP[a3, a5], SP[a4, a6], a2, n] - S2[a2, a1, SP[a4, a5], 
     SP[a3, a6], n] - S2[a2, SP[a1, a4], a5, SP[a3, a6], n] - 
    S2[a2, SP[a1, a4], SP[a3, a5], a6, n] + S2[SP[a1, a2], a3, a5, 
     SP[a4, a6], n] + S2[SP[a1, a2], a3, SP[a4, a5], a6, n] - 
    S2[SP[a1, a2], a4, a5, SP[a3, a6], n] - S2[SP[a1, a2], a4, SP[a3, a5], 
     a6, n] + S2[SP[a1, a2], a5, a3, SP[a4, a6], n] - 
    S2[SP[a1, a2], a5, a4, SP[a3, a6], n] + S2[SP[a1, a2], a5, a6, 
     SP[a3, a4], n] + S2[SP[a1, a2], a5, SP[a3, a4], a6, n] + 
    S2[SP[a1, a2], SP[a3, a4], a5, a6, n] + S2[SP[a1, a5], a3, a4, 
     SP[a2, a6], n] + S2[SP[a1, a5], a3, SP[a4, a6], a2, n] + 
    S2[SP[a1, a5], SP[a3, a6], a4, a2, n] - S2[a1, a2, a3, a5, SP[a4, a6], 
     n] - S2[a1, a2, a3, SP[a4, a5], a6, n] + S2[a1, a2, a4, a5, SP[a3, a6], 
     n] + S2[a1, a2, a4, SP[a3, a5], a6, n] - S2[a1, a2, a5, a3, SP[a4, a6], 
     n] + S2[a1, a2, a5, a4, SP[a3, a6], n] - S2[a1, a2, a5, a6, SP[a3, a4], 
     n] - S2[a1, a2, a5, SP[a3, a4], a6, n] - S2[a1, a2, SP[a3, a4], a5, a6, 
     n] - S2[a1, a3, a2, a5, SP[a4, a6], n] - S2[a1, a3, a2, SP[a4, a5], a6, 
     n] - S2[a6, n]*S2[a1, a3, a4, a2, a5, n] + 
    S2[a5, n]*S2[a1, a3, a4, a2, a6, n] - 
    S2[a6, n]*S2[a1, a3, a4, a5, a2, n] + 
    S2[a2, n]*S2[a1, a3, a4, a5, a6, n] - S2[a1, a3, a4, a5, SP[a2, a6], n] + 
    S2[a5, n]*S2[a1, a3, a4, a6, a2, n] + S2[a1, a3, a4, a6, SP[a2, a5], n] + 
    S2[a1, a3, a4, SP[a2, a5], a6, n] - S2[a1, a3, a4, SP[a2, a6], a5, n] - 
    S2[a1, a3, a5, a2, SP[a4, a6], n] - S2[a6, n]*S2[a1, a3, a5, a4, a2, n] + 
    S2[a2, n]*S2[a1, a3, a5, a4, a6, n] - S2[a1, a3, a5, a4, SP[a2, a6], n] + 
    S2[a2, n]*S2[a1, a3, a5, a6, a4, n] + S2[a1, a3, a5, a6, SP[a2, a4], n] + 
    S2[a1, a3, a5, SP[a2, a4], a6, n] - 2*S2[a1, a3, a5, SP[a4, a6], a2, n] + 
    S2[a5, n]*S2[a1, a3, a6, a4, a2, n] + S2[a1, a3, a6, a4, SP[a2, a5], n] + 
    S2[a1, a3, a6, SP[a4, a5], a2, n] + S2[a1, a3, SP[a2, a4], a5, a6, n] - 
    S2[a1, a3, SP[a4, a6], a2, a5, n] - S2[a1, a3, SP[a4, a6], a5, a2, n] - 
    S2[a1, a5, a2, a3, SP[a4, a6], n] + S2[a1, a5, a2, a4, SP[a3, a6], n] - 
    S2[a1, a5, a2, a6, SP[a3, a4], n] - S2[a1, a5, a2, SP[a3, a4], a6, n] - 
    S2[a1, a5, a3, a2, SP[a4, a6], n] - S2[a6, n]*S2[a1, a5, a3, a4, a2, n] + 
    S2[a2, n]*S2[a1, a5, a3, a4, a6, n] - S2[a1, a5, a3, a4, SP[a2, a6], n] + 
    S2[a2, n]*S2[a1, a5, a3, a6, a4, n] + S2[a1, a5, a3, a6, SP[a2, a4], n] + 
    S2[a1, a5, a3, SP[a2, a4], a6, n] - 2*S2[a1, a5, a3, SP[a4, a6], a2, n] - 
    S2[a1, a5, a6, a2, SP[a3, a4], n] + S2[a2, n]*S2[a1, a5, a6, a3, a4, n] + 
    S2[a1, a5, a6, a3, SP[a2, a4], n] - 2*S2[a1, a5, SP[a3, a6], a4, a2, n] + 
    S2[a5, n]*S2[a1, a6, a3, a4, a2, n] + S2[a1, a6, a3, a4, SP[a2, a5], n] + 
    S2[a1, a6, a3, SP[a4, a5], a2, n] + S2[a1, a6, SP[a3, a5], a4, a2, n] - 
    S2[a1, SP[a3, a6], a4, a2, a5, n] - S2[a1, SP[a3, a6], a4, a5, a2, n] - 
    S2[a1, SP[a3, a6], a5, a4, a2, n] - S2[a2, a1, a3, a5, SP[a4, a6], n] - 
    S2[a2, a1, a3, SP[a4, a5], a6, n] + S2[a2, a1, a4, a5, SP[a3, a6], n] + 
    S2[a2, a1, a4, SP[a3, a5], a6, n] - S2[a2, a1, a5, a3, SP[a4, a6], n] + 
    S2[a2, a1, a5, a4, SP[a3, a6], n] - S2[a2, a1, a5, a6, SP[a3, a4], n] - 
    S2[a2, a1, a5, SP[a3, a4], a6, n] - S2[a2, a1, SP[a3, a4], a5, a6, n] + 
    S2[a2, a4, a1, a5, SP[a3, a6], n] + S2[a2, a4, a1, SP[a3, a5], a6, n] + 
    S2[a2, a4, SP[a1, a3], a5, a6, n] - S2[a5, a1, a3, a4, SP[a2, a6], n] - 
    S2[a5, a1, a3, SP[a4, a6], a2, n] - S2[a5, a1, SP[a3, a6], a4, a2, n] - 
    S2[a5, SP[a1, a6], a3, a4, a2, n] + S2[a5, n]*S2[a6, a1, a3, a4, a2, n] + 
    S2[a6, a1, a3, a4, SP[a2, a5], n] + S2[a6, a1, a3, SP[a4, a5], a2, n] + 
    S2[a6, a1, SP[a3, a5], a4, a2, n] + S2[a6, SP[a1, a5], a3, a4, a2, n] - 
    S2[SP[a1, a6], a3, a4, a2, a5, n] - S2[SP[a1, a6], a3, a4, a5, a2, n] - 
    S2[SP[a1, a6], a3, a5, a4, a2, n] - S2[SP[a1, a6], a5, a3, a4, a2, n] + 
    S2[SP[a5, a6], a1, a3, a4, a2, n] - S2[a6, a5, a1, a3, a4, a2, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a2_, a4_, a3_, a1_, a6_, a5_, n_] :> 
  S2[a1, a6, a5, n]*S2[a2, a4, a3, n] + S2[SP[a1, a2], SP[a4, a6], 
     SP[a3, a5], n] - S2[a1, a2, SP[a4, a6], SP[a3, a5], n] + 
    S2[a5, a6, n]*S2[a1, a3, a4, a2, n] - S2[a2, a4, n]*
     S2[a1, a3, a6, a5, n] + S2[a1, a3, SP[a2, a6], SP[a4, a5], n] - 
    S2[a1, a3, SP[a4, a5], SP[a2, a6], n] - S2[a2, a4, n]*
     S2[a1, a6, a3, a5, n] - S2[a2, a4, n]*S2[a1, a6, a5, a3, n] + 
    S2[a1, a6, SP[a2, a3], SP[a4, a5], n] + S2[a1, a6, SP[a2, a5], 
     SP[a3, a4], n] + S2[a1, SP[a2, a3], a6, SP[a4, a5], n] + 
    S2[a1, SP[a2, a3], SP[a4, a6], a5, n] + S2[a1, SP[a2, a6], a3, 
     SP[a4, a5], n] - S2[a1, SP[a2, a6], a4, SP[a3, a5], n] + 
    S2[a1, SP[a2, a6], a5, SP[a3, a4], n] + S2[a1, SP[a2, a6], SP[a3, a4], 
     a5, n] - S2[a1, SP[a3, a5], a4, SP[a2, a6], n] - 
    S2[a1, SP[a3, a5], SP[a4, a6], a2, n] - S2[a2, a1, SP[a4, a6], 
     SP[a3, a5], n] - S2[a2, SP[a1, a4], a6, SP[a3, a5], n] - 
    S2[a2, SP[a1, a4], SP[a3, a6], a5, n] + S2[SP[a1, a2], a3, a6, 
     SP[a4, a5], n] + S2[SP[a1, a2], a3, SP[a4, a6], a5, n] - 
    S2[SP[a1, a2], a4, a6, SP[a3, a5], n] - S2[SP[a1, a2], a4, SP[a3, a6], 
     a5, n] + S2[SP[a1, a2], a6, a3, SP[a4, a5], n] - 
    S2[SP[a1, a2], a6, a4, SP[a3, a5], n] + S2[SP[a1, a2], a6, a5, 
     SP[a3, a4], n] + S2[SP[a1, a2], a6, SP[a3, a4], a5, n] + 
    S2[SP[a1, a2], SP[a3, a4], a6, a5, n] - S2[SP[a1, a5], a3, a4, 
     SP[a2, a6], n] - S2[SP[a1, a5], a3, SP[a4, a6], a2, n] - 
    S2[SP[a1, a5], SP[a3, a6], a4, a2, n] - S2[a1, a2, a3, a6, SP[a4, a5], 
     n] - S2[a1, a2, a3, SP[a4, a6], a5, n] + S2[a1, a2, a4, a6, SP[a3, a5], 
     n] + S2[a1, a2, a4, SP[a3, a6], a5, n] - S2[a1, a2, a6, a3, SP[a4, a5], 
     n] + S2[a1, a2, a6, a4, SP[a3, a5], n] - S2[a1, a2, a6, a5, SP[a3, a4], 
     n] - S2[a1, a2, a6, SP[a3, a4], a5, n] - S2[a1, a2, SP[a3, a4], a6, a5, 
     n] - S2[a1, a3, a2, a6, SP[a4, a5], n] - S2[a1, a3, a2, SP[a4, a6], a5, 
     n] - S2[a5, n]*S2[a1, a3, a4, a2, a6, n] - S2[a1, a3, a4, a2, 
     SP[a5, a6], n] + S2[a1, a3, a4, a5, SP[a2, a6], n] - 
    S2[a5, n]*S2[a1, a3, a4, a6, a2, n] + 
    S2[a2, n]*S2[a1, a3, a4, a6, a5, n] + S2[a1, a3, a4, SP[a2, a6], a5, n] - 
    S2[a1, a3, a4, SP[a5, a6], a2, n] + S2[a1, a3, a5, a4, SP[a2, a6], n] + 
    S2[a1, a3, a5, SP[a4, a6], a2, n] - S2[a1, a3, a6, a2, SP[a4, a5], n] - 
    S2[a5, n]*S2[a1, a3, a6, a4, a2, n] + 
    S2[a2, n]*S2[a1, a3, a6, a4, a5, n] + 
    S2[a2, n]*S2[a1, a3, a6, a5, a4, n] + S2[a1, a3, a6, a5, SP[a2, a4], n] + 
    S2[a1, a3, a6, SP[a2, a4], a5, n] - S2[a1, a3, a6, SP[a4, a5], a2, n] + 
    S2[a1, a3, SP[a2, a4], a6, a5, n] - S2[a1, a3, SP[a5, a6], a4, a2, n] + 
    S2[a1, a5, a3, a4, SP[a2, a6], n] + S2[a1, a5, a3, SP[a4, a6], a2, n] + 
    S2[a1, a5, SP[a3, a6], a4, a2, n] - S2[a1, a6, a2, a3, SP[a4, a5], n] + 
    S2[a1, a6, a2, a4, SP[a3, a5], n] - S2[a1, a6, a2, a5, SP[a3, a4], n] - 
    S2[a1, a6, a2, SP[a3, a4], a5, n] - S2[a1, a6, a3, a2, SP[a4, a5], n] - 
    S2[a5, n]*S2[a1, a6, a3, a4, a2, n] + 
    S2[a2, n]*S2[a1, a6, a3, a4, a5, n] + 
    S2[a2, n]*S2[a1, a6, a3, a5, a4, n] + S2[a1, a6, a3, a5, SP[a2, a4], n] + 
    S2[a1, a6, a3, SP[a2, a4], a5, n] - S2[a1, a6, a3, SP[a4, a5], a2, n] - 
    S2[a1, a6, a5, a2, SP[a3, a4], n] + S2[a2, n]*S2[a1, a6, a5, a3, a4, n] + 
    S2[a1, a6, a5, a3, SP[a2, a4], n] - S2[a1, a6, SP[a3, a5], a4, a2, n] - 
    S2[a1, SP[a5, a6], a3, a4, a2, n] - S2[a2, a1, a3, a6, SP[a4, a5], n] - 
    S2[a2, a1, a3, SP[a4, a6], a5, n] + S2[a2, a1, a4, a6, SP[a3, a5], n] + 
    S2[a2, a1, a4, SP[a3, a6], a5, n] - S2[a2, a1, a6, a3, SP[a4, a5], n] + 
    S2[a2, a1, a6, a4, SP[a3, a5], n] - S2[a2, a1, a6, a5, SP[a3, a4], n] - 
    S2[a2, a1, a6, SP[a3, a4], a5, n] - S2[a2, a1, SP[a3, a4], a6, a5, n] + 
    S2[a2, a4, a1, a6, SP[a3, a5], n] + S2[a2, a4, a1, SP[a3, a6], a5, n] + 
    S2[a2, a4, SP[a1, a3], a6, a5, n] + S2[a5, a1, a3, a4, SP[a2, a6], n] + 
    S2[a5, a1, a3, SP[a4, a6], a2, n] + S2[a5, a1, SP[a3, a6], a4, a2, n] + 
    S2[a5, SP[a1, a6], a3, a4, a2, n] - S2[a5, n]*S2[a6, a1, a3, a4, a2, n] - 
    S2[a6, a1, a3, a4, SP[a2, a5], n] - S2[a6, a1, a3, SP[a4, a5], a2, n] - 
    S2[a6, a1, SP[a3, a5], a4, a2, n] - S2[a6, SP[a1, a5], a3, a4, a2, n] - 
    S2[SP[a5, a6], a1, a3, a4, a2, n] + S2[a6, a1, a3, a4, a2, a5, n] + 
    S2[a6, a1, a3, a4, a5, a2, n] + S2[a6, a1, a3, a5, a4, a2, n] + 
    S2[a6, a1, a5, a3, a4, a2, n] + S2[a6, a5, a1, a3, a4, a2, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a2_, a4_, a3_, a5_, a1_, a6_, n_] :> 
  -(S2[a1, a5, a6, n]*S2[a2, a4, a3, n]) - S2[a1, a6, a5, n]*
     S2[a2, a4, a3, n] - S2[SP[a1, a2], SP[a4, a5], SP[a3, a6], n] - 
    S2[SP[a1, a2], SP[a4, a6], SP[a3, a5], n] + S2[a1, a2, SP[a4, a5], 
     SP[a3, a6], n] + S2[a1, a2, SP[a4, a6], SP[a3, a5], n] + 
    S2[a2, a4, n]*S2[a1, a5, a3, a6, n] + S2[a2, a4, n]*
     S2[a1, a5, a6, a3, n] - S2[a1, a5, SP[a2, a3], SP[a4, a6], n] - 
    S2[a1, a5, SP[a2, a6], SP[a3, a4], n] + S2[a2, a4, n]*
     S2[a1, a6, a5, a3, n] - S2[a1, a6, SP[a2, a5], SP[a3, a4], n] - 
    S2[a1, SP[a2, a5], a3, SP[a4, a6], n] + S2[a1, SP[a2, a5], a4, 
     SP[a3, a6], n] - S2[a1, SP[a2, a5], a6, SP[a3, a4], n] - 
    S2[a1, SP[a2, a5], SP[a3, a4], a6, n] + S2[a1, SP[a2, a6], a4, 
     SP[a3, a5], n] - S2[a1, SP[a2, a6], a5, SP[a3, a4], n] + 
    S2[a2, a1, SP[a4, a5], SP[a3, a6], n] + S2[a2, a1, SP[a4, a6], 
     SP[a3, a5], n] + S2[a1, a6, n]*S2[a2, a4, a3, a5, n] - 
    S2[a2, a4, SP[a1, a3], SP[a5, a6], n] - S2[a2, SP[a1, a4], a3, 
     SP[a5, a6], n] + S2[a2, SP[a1, a4], a5, SP[a3, a6], n] + 
    S2[a2, SP[a1, a4], a6, SP[a3, a5], n] + S2[a2, SP[a1, a4], SP[a3, a5], 
     a6, n] - S2[SP[a1, a2], a4, a3, SP[a5, a6], n] + 
    S2[SP[a1, a2], a4, a5, SP[a3, a6], n] + S2[SP[a1, a2], a4, a6, 
     SP[a3, a5], n] + S2[SP[a1, a2], a4, SP[a3, a5], a6, n] - 
    S2[SP[a1, a2], a5, a3, SP[a4, a6], n] + S2[SP[a1, a2], a5, a4, 
     SP[a3, a6], n] - S2[SP[a1, a2], a5, a6, SP[a3, a4], n] - 
    S2[SP[a1, a2], a5, SP[a3, a4], a6, n] + S2[SP[a1, a2], a6, a4, 
     SP[a3, a5], n] - S2[SP[a1, a2], a6, a5, SP[a3, a4], n] + 
    S2[a1, a2, a4, a3, SP[a5, a6], n] - S2[a1, a2, a4, a5, SP[a3, a6], n] - 
    S2[a1, a2, a4, a6, SP[a3, a5], n] - S2[a1, a2, a4, SP[a3, a5], a6, n] + 
    S2[a1, a2, a5, a3, SP[a4, a6], n] - S2[a1, a2, a5, a4, SP[a3, a6], n] + 
    S2[a1, a2, a5, a6, SP[a3, a4], n] + S2[a1, a2, a5, SP[a3, a4], a6, n] - 
    S2[a1, a2, a6, a4, SP[a3, a5], n] + S2[a1, a2, a6, a5, SP[a3, a4], n] + 
    S2[a1, a5, a2, a3, SP[a4, a6], n] - S2[a1, a5, a2, a4, SP[a3, a6], n] + 
    S2[a1, a5, a2, a6, SP[a3, a4], n] + S2[a1, a5, a2, SP[a3, a4], a6, n] + 
    S2[a1, a5, a3, a2, SP[a4, a6], n] + S2[a6, n]*S2[a1, a5, a3, a4, a2, n] - 
    S2[a2, n]*S2[a1, a5, a3, a4, a6, n] - 
    S2[a2, n]*S2[a1, a5, a3, a6, a4, n] - S2[a1, a5, a3, a6, SP[a2, a4], n] - 
    S2[a1, a5, a3, SP[a2, a4], a6, n] + S2[a1, a5, a3, SP[a4, a6], a2, n] + 
    S2[a1, a5, a6, a2, SP[a3, a4], n] - S2[a2, n]*S2[a1, a5, a6, a3, a4, n] - 
    S2[a1, a5, a6, a3, SP[a2, a4], n] + S2[a1, a5, SP[a3, a6], a4, a2, n] - 
    S2[a1, a6, a2, a4, SP[a3, a5], n] + S2[a1, a6, a2, a5, SP[a3, a4], n] + 
    S2[a1, a6, a5, a2, SP[a3, a4], n] - S2[a2, n]*S2[a1, a6, a5, a3, a4, n] - 
    S2[a1, a6, a5, a3, SP[a2, a4], n] + S2[a1, SP[a5, a6], a3, a4, a2, n] + 
    S2[a2, a1, a4, a3, SP[a5, a6], n] - S2[a2, a1, a4, a5, SP[a3, a6], n] - 
    S2[a2, a1, a4, a6, SP[a3, a5], n] - S2[a2, a1, a4, SP[a3, a5], a6, n] + 
    S2[a2, a1, a5, a3, SP[a4, a6], n] - S2[a2, a1, a5, a4, SP[a3, a6], n] + 
    S2[a2, a1, a5, a6, SP[a3, a4], n] + S2[a2, a1, a5, SP[a3, a4], a6, n] - 
    S2[a2, a1, a6, a4, SP[a3, a5], n] + S2[a2, a1, a6, a5, SP[a3, a4], n] + 
    S2[a2, a4, a1, a3, SP[a5, a6], n] - S2[a2, a4, a1, a5, SP[a3, a6], n] - 
    S2[a2, a4, a1, a6, SP[a3, a5], n] - S2[a2, a4, a1, SP[a3, a5], a6, n] + 
    S2[a2, a4, a3, a1, SP[a5, a6], n] + S2[a2, a4, a3, SP[a1, a5], a6, n] + 
    S2[SP[a1, a6], a5, a3, a4, a2, n] - S2[a6, a1, a5, a3, a4, a2, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a2_, a4_, a3_, a5_, a6_, a1_, n_] :> 
  S2[a1, a6, a5, n]*S2[a2, a4, a3, n] + S2[SP[a1, a2], SP[a4, a6], 
     SP[a3, a5], n] - S2[a1, a2, SP[a4, a6], SP[a3, a5], n] - 
    S2[a2, a4, n]*S2[a1, a6, a5, a3, n] + S2[a1, a6, SP[a2, a5], SP[a3, a4], 
     n] - S2[a1, SP[a2, a6], a4, SP[a3, a5], n] + S2[a1, SP[a2, a6], a5, 
     SP[a3, a4], n] - S2[a2, a1, SP[a4, a6], SP[a3, a5], n] - 
    S2[a1, a6, n]*S2[a2, a4, a3, a5, n] + S2[a2, a4, SP[a1, a3], SP[a5, a6], 
     n] + S2[a2, SP[a1, a4], a3, SP[a5, a6], n] - S2[a2, SP[a1, a4], a6, 
     SP[a3, a5], n] + S2[SP[a1, a2], a4, a3, SP[a5, a6], n] - 
    S2[SP[a1, a2], a4, a6, SP[a3, a5], n] - S2[SP[a1, a2], a6, a4, 
     SP[a3, a5], n] + S2[SP[a1, a2], a6, a5, SP[a3, a4], n] - 
    S2[a1, a2, a4, a3, SP[a5, a6], n] + S2[a1, a2, a4, a6, SP[a3, a5], n] + 
    S2[a1, a2, a6, a4, SP[a3, a5], n] - S2[a1, a2, a6, a5, SP[a3, a4], n] + 
    S2[a1, a6, a2, a4, SP[a3, a5], n] - S2[a1, a6, a2, a5, SP[a3, a4], n] - 
    S2[a1, a6, a5, a2, SP[a3, a4], n] + S2[a2, n]*S2[a1, a6, a5, a3, a4, n] + 
    S2[a1, a6, a5, a3, SP[a2, a4], n] - S2[a2, a1, a4, a3, SP[a5, a6], n] + 
    S2[a2, a1, a4, a6, SP[a3, a5], n] + S2[a2, a1, a6, a4, SP[a3, a5], n] - 
    S2[a2, a1, a6, a5, SP[a3, a4], n] - S2[a2, a4, a1, a3, SP[a5, a6], n] + 
    S2[a2, a4, a1, a6, SP[a3, a5], n] - S2[a2, a4, a3, a1, SP[a5, a6], n] + 
    S2[a1, n]*S2[a2, a4, a3, a5, a6, n] + S2[a2, a4, a3, a5, SP[a1, a6], n] - 
    S2[a1, n]*S2[a6, a5, a3, a4, a2, n] - S2[a6, a5, a3, a4, SP[a1, a2], n] - 
    S2[a6, a5, a3, SP[a1, a4], a2, n] - S2[a6, a5, SP[a1, a3], a4, a2, n] - 
    S2[a6, SP[a1, a5], a3, a4, a2, n] - S2[SP[a1, a6], a5, a3, a4, a2, n] + 
    S2[a6, a1, a5, a3, a4, a2, n] + S2[a6, a5, a1, a3, a4, a2, n] + 
    S2[a6, a5, a3, a1, a4, a2, n] + S2[a6, a5, a3, a4, a1, a2, n] + 
    S2[a6, a5, a3, a4, a2, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a2_, a4_, a3_, a6_, a1_, a5_, n_] :> 
  -(S2[a1, a5, a6, n]*S2[a2, a4, a3, n]) - S2[a1, a6, a5, n]*
     S2[a2, a4, a3, n] - S2[SP[a1, a2], SP[a4, a5], SP[a3, a6], n] - 
    S2[SP[a1, a2], SP[a4, a6], SP[a3, a5], n] + S2[a1, a2, SP[a4, a5], 
     SP[a3, a6], n] + S2[a1, a2, SP[a4, a6], SP[a3, a5], n] + 
    S2[a2, a4, n]*S2[a1, a5, a6, a3, n] - S2[a1, a5, SP[a2, a6], SP[a3, a4], 
     n] + S2[a2, a4, n]*S2[a1, a6, a3, a5, n] + 
    S2[a2, a4, n]*S2[a1, a6, a5, a3, n] - S2[a1, a6, SP[a2, a3], SP[a4, a5], 
     n] - S2[a1, a6, SP[a2, a5], SP[a3, a4], n] + S2[a1, SP[a2, a5], a4, 
     SP[a3, a6], n] - S2[a1, SP[a2, a5], a6, SP[a3, a4], n] - 
    S2[a1, SP[a2, a6], a3, SP[a4, a5], n] + S2[a1, SP[a2, a6], a4, 
     SP[a3, a5], n] - S2[a1, SP[a2, a6], a5, SP[a3, a4], n] - 
    S2[a1, SP[a2, a6], SP[a3, a4], a5, n] + S2[a2, a1, SP[a4, a5], 
     SP[a3, a6], n] + S2[a2, a1, SP[a4, a6], SP[a3, a5], n] - 
    S2[a1, a5, n]*S2[a2, a4, a6, a3, n] + S2[a2, a4, SP[a1, a6], SP[a3, a5], 
     n] - S2[a1, a5, n]*S2[a2, a6, a3, a4, n] - 
    S2[a1, a5, n]*S2[a2, a6, a4, a3, n] + S2[a2, a6, SP[a1, a3], SP[a4, a5], 
     n] + S2[a2, a6, SP[a1, a4], SP[a3, a5], n] + S2[a2, SP[a1, a4], a5, 
     SP[a3, a6], n] + 2*S2[a2, SP[a1, a4], a6, SP[a3, a5], n] + 
    S2[a2, SP[a1, a4], SP[a3, a5], a6, n] + S2[a2, SP[a1, a4], SP[a3, a6], 
     a5, n] + S2[a2, SP[a1, a4], SP[a5, a6], a3, n] + 
    S2[a2, SP[a1, a6], a3, SP[a4, a5], n] + S2[a2, SP[a1, a6], a4, 
     SP[a3, a5], n] + S2[a2, SP[a1, a6], SP[a3, a5], a4, n] + 
    S2[a2, SP[a1, a6], SP[a4, a5], a3, n] + S2[a1, a5, n]*
     S2[a3, a6, a2, a4, n] - S2[a3, a6, SP[a1, a2], SP[a4, a5], n] - 
    S2[a3, SP[a1, a6], a2, SP[a4, a5], n] - S2[a3, SP[a1, a6], SP[a2, a5], 
     a4, n] + S2[SP[a1, a2], a4, a5, SP[a3, a6], n] + 
    2*S2[SP[a1, a2], a4, a6, SP[a3, a5], n] + S2[SP[a1, a2], a4, SP[a3, a5], 
     a6, n] + S2[SP[a1, a2], a4, SP[a3, a6], a5, n] + 
    S2[SP[a1, a2], a4, SP[a5, a6], a3, n] + S2[SP[a1, a2], a5, a4, 
     SP[a3, a6], n] - S2[SP[a1, a2], a5, a6, SP[a3, a4], n] + 
    2*S2[SP[a1, a2], a6, a4, SP[a3, a5], n] - S2[SP[a1, a2], a6, a5, 
     SP[a3, a4], n] - S2[SP[a1, a2], a6, SP[a3, a4], a5, n] + 
    S2[SP[a1, a2], a6, SP[a3, a5], a4, n] + S2[SP[a1, a2], a6, SP[a4, a5], 
     a3, n] + S2[SP[a1, a2], SP[a4, a5], a3, a6, n] + 
    S2[SP[a1, a2], SP[a4, a5], a6, a3, n] + S2[SP[a1, a2], SP[a5, a6], a3, 
     a4, n] + S2[SP[a1, a2], SP[a5, a6], a4, a3, n] - 
    S2[SP[a1, a3], a6, a2, SP[a4, a5], n] - S2[SP[a1, a3], a6, SP[a2, a5], 
     a4, n] - S2[SP[a1, a3], SP[a5, a6], a2, a4, n] - 
    S2[a1, a2, a4, a5, SP[a3, a6], n] - 2*S2[a1, a2, a4, a6, SP[a3, a5], n] - 
    S2[a1, a2, a4, SP[a3, a5], a6, n] - S2[a1, a2, a4, SP[a3, a6], a5, n] - 
    S2[a1, a2, a4, SP[a5, a6], a3, n] - S2[a1, a2, a5, a4, SP[a3, a6], n] + 
    S2[a1, a2, a5, a6, SP[a3, a4], n] - 2*S2[a1, a2, a6, a4, SP[a3, a5], n] + 
    S2[a1, a2, a6, a5, SP[a3, a4], n] + S2[a1, a2, a6, SP[a3, a4], a5, n] - 
    S2[a1, a2, a6, SP[a3, a5], a4, n] - S2[a1, a2, a6, SP[a4, a5], a3, n] - 
    S2[a1, a2, SP[a4, a5], a3, a6, n] - S2[a1, a2, SP[a4, a5], a6, a3, n] - 
    S2[a1, a2, SP[a5, a6], a3, a4, n] - S2[a1, a2, SP[a5, a6], a4, a3, n] + 
    S2[a1, a3, a6, a2, SP[a4, a5], n] + S2[a1, a3, a6, SP[a2, a5], a4, n] + 
    S2[a1, a3, SP[a5, a6], a2, a4, n] - S2[a6, n]*S2[a1, a4, a2, a3, a5, n] - 
    S2[a1, a4, a2, a3, SP[a5, a6], n] - S2[a6, n]*S2[a1, a4, a2, a5, a3, n] - 
    S2[a1, a4, a2, a5, SP[a3, a6], n] - S2[a1, a4, a2, SP[a3, a6], a5, n] - 
    S2[a1, a4, a2, SP[a5, a6], a3, n] - S2[a6, n]*S2[a1, a4, a3, a2, a5, n] - 
    S2[a1, a4, a3, a2, SP[a5, a6], n] - S2[a6, n]*S2[a1, a4, a3, a5, a2, n] + 
    S2[a2, n]*S2[a1, a4, a3, a5, a6, n] + 
    S2[a2, n]*S2[a1, a4, a3, a6, a5, n] + S2[a1, a4, a3, a6, SP[a2, a5], n] + 
    S2[a1, a4, a3, SP[a2, a5], a6, n] - S2[a1, a4, a3, SP[a5, a6], a2, n] - 
    S2[a6, n]*S2[a1, a4, a5, a2, a3, n] - S2[a1, a4, a5, a2, SP[a3, a6], n] - 
    S2[a6, n]*S2[a1, a4, a5, a3, a2, n] + 
    S2[a2, n]*S2[a1, a4, a5, a3, a6, n] + 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] + S2[a1, a4, a5, a6, SP[a2, a3], n] + 
    S2[a1, a4, a5, SP[a2, a3], a6, n] - S2[a1, a4, a5, SP[a3, a6], a2, n] + 
    S2[a2, n]*S2[a1, a4, a6, a3, a5, n] + S2[a1, a4, a6, a3, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a4, a6, a5, a3, n] + S2[a1, a4, a6, a5, SP[a2, a3], n] + 
    S2[a1, a4, a6, SP[a2, a3], a5, n] + S2[a1, a4, a6, SP[a2, a5], a3, n] + 
    S2[a1, a4, SP[a2, a3], a5, a6, n] + S2[a1, a4, SP[a2, a3], a6, a5, n] + 
    S2[a1, a4, SP[a2, a5], a3, a6, n] + S2[a1, a4, SP[a2, a5], a6, a3, n] - 
    S2[a1, a4, SP[a3, a6], a2, a5, n] - S2[a1, a4, SP[a3, a6], a5, a2, n] - 
    S2[a1, a4, SP[a5, a6], a2, a3, n] - S2[a1, a4, SP[a5, a6], a3, a2, n] - 
    S2[a1, a5, a2, a4, SP[a3, a6], n] + S2[a1, a5, a2, a6, SP[a3, a4], n] - 
    S2[a6, n]*S2[a1, a5, a4, a2, a3, n] - S2[a1, a5, a4, a2, SP[a3, a6], n] - 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] + 
    S2[a2, n]*S2[a1, a5, a4, a3, a6, n] + 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] + S2[a1, a5, a4, a6, SP[a2, a3], n] + 
    S2[a1, a5, a4, SP[a2, a3], a6, n] - S2[a1, a5, a4, SP[a3, a6], a2, n] - 
    S2[a3, n]*S2[a1, a5, a6, a2, a4, n] + 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] + S2[a1, a5, a6, a4, SP[a2, a3], n] + 
    S2[a1, a5, a6, SP[a2, a4], a3, n] + S2[a1, a5, SP[a2, a4], a3, a6, n] + 
    S2[a1, a5, SP[a2, a4], a6, a3, n] + S2[a1, a5, SP[a2, a6], a3, a4, n] + 
    S2[a1, a5, SP[a2, a6], a4, a3, n] - S2[a1, a5, SP[a3, a6], a2, a4, n] - 
    S2[a1, a5, SP[a4, a6], a2, a3, n] - S2[a1, a5, SP[a4, a6], a3, a2, n] + 
    S2[a1, a6, a2, a3, SP[a4, a5], n] - S2[a3, n]*S2[a1, a6, a2, a4, a5, n] - 
    2*S2[a1, a6, a2, a4, SP[a3, a5], n] - 
    S2[a3, n]*S2[a1, a6, a2, a5, a4, n] - S2[a1, a6, a2, SP[a3, a5], a4, n] + 
    S2[a1, a6, a3, a2, SP[a4, a5], n] + S2[a1, a6, a3, SP[a2, a5], a4, n] + 
    S2[a2, n]*S2[a1, a6, a4, a3, a5, n] + S2[a1, a6, a4, a3, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a6, a4, a5, a3, n] + S2[a1, a6, a4, a5, SP[a2, a3], n] + 
    S2[a1, a6, a4, SP[a2, a3], a5, n] + S2[a1, a6, a4, SP[a2, a5], a3, n] - 
    S2[a3, n]*S2[a1, a6, a5, a2, a4, n] + 
    S2[a2, n]*S2[a1, a6, a5, a4, a3, n] + S2[a1, a6, a5, a4, SP[a2, a3], n] + 
    S2[a1, a6, a5, SP[a2, a4], a3, n] + S2[a1, a6, SP[a2, a4], a3, a5, n] + 
    S2[a1, a6, SP[a2, a4], a5, a3, n] + S2[a1, a6, SP[a2, a5], a3, a4, n] + 
    S2[a1, a6, SP[a2, a5], a4, a3, n] - S2[a1, a6, SP[a3, a5], a2, a4, n] + 
    S2[a1, SP[a2, a4], a3, a5, a6, n] + S2[a1, SP[a2, a4], a3, a6, a5, n] + 
    S2[a1, SP[a2, a4], a5, a3, a6, n] + S2[a1, SP[a2, a4], a5, a6, a3, n] + 
    S2[a1, SP[a2, a4], a6, a3, a5, n] + S2[a1, SP[a2, a4], a6, a5, a3, n] + 
    S2[a1, SP[a2, a6], a3, a4, a5, n] + S2[a1, SP[a2, a6], a3, a5, a4, n] + 
    S2[a1, SP[a2, a6], a4, a3, a5, n] + S2[a1, SP[a2, a6], a4, a5, a3, n] + 
    S2[a1, SP[a2, a6], a5, a3, a4, n] + S2[a1, SP[a2, a6], a5, a4, a3, n] - 
    S2[a1, SP[a3, a6], a2, a4, a5, n] - S2[a1, SP[a3, a6], a2, a5, a4, n] - 
    S2[a1, SP[a3, a6], a5, a2, a4, n] - S2[a1, SP[a4, a6], a2, a3, a5, n] - 
    S2[a1, SP[a4, a6], a2, a5, a3, n] - S2[a1, SP[a4, a6], a3, a2, a5, n] - 
    S2[a1, SP[a4, a6], a3, a5, a2, n] - S2[a1, SP[a4, a6], a5, a2, a3, n] - 
    S2[a1, SP[a4, a6], a5, a3, a2, n] - S2[a1, SP[a5, a6], a4, a2, a3, n] - 
    S2[a1, SP[a5, a6], a4, a3, a2, n] - S2[a2, a1, a4, a5, SP[a3, a6], n] - 
    2*S2[a2, a1, a4, a6, SP[a3, a5], n] - S2[a2, a1, a4, SP[a3, a5], a6, n] - 
    S2[a2, a1, a4, SP[a3, a6], a5, n] - S2[a2, a1, a4, SP[a5, a6], a3, n] - 
    S2[a2, a1, a5, a4, SP[a3, a6], n] + S2[a2, a1, a5, a6, SP[a3, a4], n] - 
    2*S2[a2, a1, a6, a4, SP[a3, a5], n] + S2[a2, a1, a6, a5, SP[a3, a4], n] + 
    S2[a2, a1, a6, SP[a3, a4], a5, n] - S2[a2, a1, a6, SP[a3, a5], a4, n] - 
    S2[a2, a1, a6, SP[a4, a5], a3, n] - S2[a2, a1, SP[a4, a5], a3, a6, n] - 
    S2[a2, a1, SP[a4, a5], a6, a3, n] - S2[a2, a1, SP[a5, a6], a3, a4, n] - 
    S2[a2, a1, SP[a5, a6], a4, a3, n] + S2[a6, n]*S2[a2, a4, a1, a3, a5, n] + 
    S2[a2, a4, a1, a3, SP[a5, a6], n] + S2[a6, n]*S2[a2, a4, a1, a5, a3, n] - 
    2*S2[a2, a4, a1, a6, SP[a3, a5], n] - S2[a2, a4, a1, SP[a3, a5], a6, n] + 
    S2[a6, n]*S2[a2, a4, a3, a1, a5, n] + S2[a2, a4, a3, a1, SP[a5, a6], n] + 
    S2[a2, a4, a3, SP[a1, a6], a5, n] - S2[a2, a4, a6, a1, SP[a3, a5], n] - 
    S2[a2, a4, a6, SP[a1, a3], a5, n] - S2[a2, a4, SP[a1, a3], a5, a6, n] - 
    S2[a2, a4, SP[a1, a3], a6, a5, n] + S2[a2, a4, SP[a3, a6], a1, a5, n] - 
    S2[a2, a6, a1, a3, SP[a4, a5], n] + S2[a3, n]*S2[a2, a6, a1, a4, a5, n] + 
    S2[a3, n]*S2[a2, a6, a1, a5, a4, n] + S2[a2, a6, a1, a5, SP[a3, a4], n] + 
    S2[a2, a6, a1, SP[a3, a4], a5, n] - S2[a2, a6, a1, SP[a4, a5], a3, n] - 
    S2[a2, a6, a3, a1, SP[a4, a5], n] - S2[a2, a6, a3, SP[a1, a4], a5, n] - 
    S2[a2, a6, a4, a1, SP[a3, a5], n] - S2[a2, a6, a4, SP[a1, a3], a5, n] - 
    S2[a2, a6, SP[a1, a4], a3, a5, n] - S2[a2, a6, SP[a1, a4], a5, a3, n] - 
    S2[a2, SP[a1, a4], a3, a5, a6, n] - S2[a2, SP[a1, a4], a3, a6, a5, n] - 
    S2[a2, SP[a1, a4], a5, a3, a6, n] - S2[a2, SP[a1, a4], a5, a6, a3, n] - 
    S2[a2, SP[a1, a4], a6, a3, a5, n] - S2[a2, SP[a1, a4], a6, a5, a3, n] - 
    S2[a2, SP[a1, a6], a3, a4, a5, n] - S2[a2, SP[a1, a6], a3, a5, a4, n] - 
    S2[a2, SP[a1, a6], a4, a3, a5, n] - S2[a2, SP[a1, a6], a4, a5, a3, n] - 
    S2[a2, SP[a1, a6], a5, a3, a4, n] - S2[a2, SP[a1, a6], a5, a4, a3, n] + 
    S2[a2, SP[a3, a6], a1, a4, a5, n] + S2[a2, SP[a3, a6], a1, a5, a4, n] + 
    S2[a2, SP[a4, a6], a1, a3, a5, n] + S2[a2, SP[a4, a6], a1, a5, a3, n] + 
    S2[a2, SP[a4, a6], a3, a1, a5, n] + S2[a3, a1, a6, a2, SP[a4, a5], n] + 
    S2[a3, a1, a6, SP[a2, a5], a4, n] + S2[a3, a1, SP[a5, a6], a2, a4, n] + 
    S2[a3, a6, a1, a2, SP[a4, a5], n] - S2[a2, n]*S2[a3, a6, a1, a4, a5, n] - 
    S2[a3, a6, a1, a4, SP[a2, a5], n] - S2[a2, n]*S2[a3, a6, a1, a5, a4, n] - 
    S2[a3, a6, a1, a5, SP[a2, a4], n] - S2[a3, a6, a1, SP[a2, a4], a5, n] + 
    S2[a3, a6, a2, a1, SP[a4, a5], n] + S2[a3, a6, a2, SP[a1, a4], a5, n] + 
    S2[a3, SP[a1, a6], a2, a4, a5, n] + S2[a3, SP[a1, a6], a2, a5, a4, n] + 
    S2[a3, SP[a1, a6], a5, a2, a4, n] - S2[a3, SP[a2, a6], a1, a4, a5, n] - 
    S2[a3, SP[a2, a6], a1, a5, a4, n] + S2[a3, n]*S2[a6, a1, a4, a2, a5, n] + 
    S2[a6, a1, a4, a2, SP[a3, a5], n] + S2[a3, n]*S2[a6, a1, a4, a5, a2, n] + 
    S2[a6, a1, a4, a5, SP[a2, a3], n] + S2[a6, a1, a4, SP[a2, a3], a5, n] + 
    S2[a6, a1, a4, SP[a3, a5], a2, n] + S2[a3, n]*S2[a6, a1, a5, a4, a2, n] + 
    S2[a6, a1, a5, a4, SP[a2, a3], n] + S2[a6, a1, a5, SP[a3, a4], a2, n] + 
    S2[a6, a1, SP[a3, a4], a2, a5, n] + S2[a6, a1, SP[a3, a4], a5, a2, n] + 
    S2[a6, a1, SP[a3, a5], a4, a2, n] - S2[a3, n]*S2[a6, a2, a4, a1, a5, n] - 
    S2[a6, a2, a4, a1, SP[a3, a5], n] - S2[a6, a2, a4, SP[a1, a3], a5, n] - 
    S2[a6, a2, SP[a3, a4], a1, a5, n] + S2[a2, n]*S2[a6, a3, a4, a1, a5, n] + 
    S2[a6, a3, a4, a1, SP[a2, a5], n] + S2[a6, a3, a4, SP[a1, a2], a5, n] + 
    S2[a6, a3, SP[a2, a4], a1, a5, n] + S2[a6, SP[a1, a3], a4, a2, a5, n] + 
    S2[a6, SP[a1, a3], a4, a5, a2, n] + S2[a6, SP[a1, a3], a5, a4, a2, n] - 
    S2[SP[a1, a6], a4, a2, a3, a5, n] - S2[SP[a1, a6], a4, a2, a5, a3, n] - 
    S2[SP[a1, a6], a4, a3, a2, a5, n] - S2[SP[a1, a6], a4, a3, a5, a2, n] - 
    S2[SP[a1, a6], a4, a5, a2, a3, n] - S2[SP[a1, a6], a4, a5, a3, a2, n] - 
    S2[SP[a1, a6], a5, a4, a2, a3, n] - S2[SP[a1, a6], a5, a4, a3, a2, n] + 
    S2[SP[a2, a6], a3, a4, a1, a5, n] + S2[SP[a2, a6], a4, a1, a3, a5, n] + 
    S2[SP[a2, a6], a4, a1, a5, a3, n] + S2[SP[a2, a6], a4, a3, a1, a5, n] + 
    S2[SP[a3, a6], a1, a4, a2, a5, n] + S2[SP[a3, a6], a1, a4, a5, a2, n] + 
    S2[SP[a3, a6], a1, a5, a4, a2, n] - S2[SP[a3, a6], a2, a4, a1, a5, n] - 
    S2[a6, a1, a3, a4, a2, a5, n] - S2[a6, a1, a3, a4, a5, a2, n] - 
    S2[a6, a1, a3, a5, a4, a2, n] - S2[a6, a1, a5, a3, a4, a2, n] - 
    S2[a6, a3, a1, a4, a2, a5, n] - S2[a6, a3, a1, a4, a5, a2, n] - 
    S2[a6, a3, a1, a5, a4, a2, n] - S2[a6, a3, a4, a1, a2, a5, n] - 
    S2[a6, a3, a4, a1, a5, a2, n] - S2[a6, a3, a4, a2, a1, a5, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a2_, a4_, a3_, a6_, a5_, a1_, n_] :> 
  S2[a1, a5, a6, n]*S2[a2, a4, a3, n] + S2[SP[a1, a2], SP[a4, a5], 
     SP[a3, a6], n] - S2[a1, a2, SP[a4, a5], SP[a3, a6], n] - 
    S2[a2, a4, n]*S2[a1, a5, a6, a3, n] + S2[a1, a5, SP[a2, a6], SP[a3, a4], 
     n] - S2[a1, SP[a2, a5], a4, SP[a3, a6], n] + S2[a1, SP[a2, a5], a6, 
     SP[a3, a4], n] - S2[a2, a1, SP[a4, a5], SP[a3, a6], n] + 
    S2[a1, a5, n]*S2[a2, a4, a6, a3, n] - S2[a2, a4, SP[a1, a6], SP[a3, a5], 
     n] + S2[a1, a5, n]*S2[a2, a6, a3, a4, n] + 
    S2[a1, a5, n]*S2[a2, a6, a4, a3, n] - S2[a2, a6, SP[a1, a3], SP[a4, a5], 
     n] - S2[a2, a6, SP[a1, a4], SP[a3, a5], n] - S2[a2, SP[a1, a4], a5, 
     SP[a3, a6], n] - S2[a2, SP[a1, a4], a6, SP[a3, a5], n] - 
    S2[a2, SP[a1, a4], SP[a3, a5], a6, n] - S2[a2, SP[a1, a4], SP[a5, a6], 
     a3, n] - S2[a2, SP[a1, a6], a3, SP[a4, a5], n] - 
    S2[a2, SP[a1, a6], a4, SP[a3, a5], n] - S2[a2, SP[a1, a6], SP[a3, a5], 
     a4, n] - S2[a2, SP[a1, a6], SP[a4, a5], a3, n] - 
    S2[a1, a5, n]*S2[a3, a6, a2, a4, n] + S2[a3, a6, SP[a1, a2], SP[a4, a5], 
     n] + S2[a3, SP[a1, a6], a2, SP[a4, a5], n] + 
    S2[a3, SP[a1, a6], SP[a2, a5], a4, n] - S2[SP[a1, a2], a4, a5, 
     SP[a3, a6], n] - S2[SP[a1, a2], a4, a6, SP[a3, a5], n] - 
    S2[SP[a1, a2], a4, SP[a3, a5], a6, n] - S2[SP[a1, a2], a4, SP[a5, a6], 
     a3, n] - S2[SP[a1, a2], a5, a4, SP[a3, a6], n] + 
    S2[SP[a1, a2], a5, a6, SP[a3, a4], n] - S2[SP[a1, a2], a6, a3, 
     SP[a4, a5], n] - S2[SP[a1, a2], a6, a4, SP[a3, a5], n] - 
    S2[SP[a1, a2], a6, SP[a3, a5], a4, n] - S2[SP[a1, a2], a6, SP[a4, a5], 
     a3, n] - S2[SP[a1, a2], SP[a4, a5], a3, a6, n] - 
    S2[SP[a1, a2], SP[a4, a5], a6, a3, n] - S2[SP[a1, a2], SP[a5, a6], a3, 
     a4, n] - S2[SP[a1, a2], SP[a5, a6], a4, a3, n] + 
    S2[SP[a1, a3], a6, a2, SP[a4, a5], n] + S2[SP[a1, a3], a6, SP[a2, a5], 
     a4, n] + S2[SP[a1, a3], SP[a5, a6], a2, a4, n] + 
    S2[a1, a2, a4, a5, SP[a3, a6], n] + S2[a1, a2, a4, a6, SP[a3, a5], n] + 
    S2[a1, a2, a4, SP[a3, a5], a6, n] + S2[a1, a2, a4, SP[a5, a6], a3, n] + 
    S2[a1, a2, a5, a4, SP[a3, a6], n] - S2[a1, a2, a5, a6, SP[a3, a4], n] + 
    S2[a1, a2, a6, a3, SP[a4, a5], n] + S2[a1, a2, a6, a4, SP[a3, a5], n] + 
    S2[a1, a2, a6, SP[a3, a5], a4, n] + S2[a1, a2, a6, SP[a4, a5], a3, n] + 
    S2[a1, a2, SP[a4, a5], a3, a6, n] + S2[a1, a2, SP[a4, a5], a6, a3, n] + 
    S2[a1, a2, SP[a5, a6], a3, a4, n] + S2[a1, a2, SP[a5, a6], a4, a3, n] - 
    S2[a1, a3, a6, a2, SP[a4, a5], n] - S2[a1, a3, a6, SP[a2, a5], a4, n] - 
    S2[a1, a3, SP[a5, a6], a2, a4, n] + S2[a6, n]*S2[a1, a4, a2, a3, a5, n] + 
    S2[a1, a4, a2, a3, SP[a5, a6], n] + S2[a6, n]*S2[a1, a4, a2, a5, a3, n] + 
    S2[a1, a4, a2, a5, SP[a3, a6], n] + S2[a1, a4, a2, SP[a3, a6], a5, n] + 
    S2[a1, a4, a2, SP[a5, a6], a3, n] + S2[a6, n]*S2[a1, a4, a3, a2, a5, n] + 
    S2[a1, a4, a3, a2, SP[a5, a6], n] + S2[a6, n]*S2[a1, a4, a3, a5, a2, n] - 
    S2[a2, n]*S2[a1, a4, a3, a5, a6, n] - 
    S2[a2, n]*S2[a1, a4, a3, a6, a5, n] - S2[a1, a4, a3, a6, SP[a2, a5], n] - 
    S2[a1, a4, a3, SP[a2, a5], a6, n] + S2[a1, a4, a3, SP[a5, a6], a2, n] + 
    S2[a6, n]*S2[a1, a4, a5, a2, a3, n] + S2[a1, a4, a5, a2, SP[a3, a6], n] + 
    S2[a6, n]*S2[a1, a4, a5, a3, a2, n] - 
    S2[a2, n]*S2[a1, a4, a5, a3, a6, n] - 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] - S2[a1, a4, a5, a6, SP[a2, a3], n] - 
    S2[a1, a4, a5, SP[a2, a3], a6, n] + S2[a1, a4, a5, SP[a3, a6], a2, n] - 
    S2[a2, n]*S2[a1, a4, a6, a3, a5, n] - S2[a1, a4, a6, a3, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a4, a6, a5, a3, n] - S2[a1, a4, a6, a5, SP[a2, a3], n] - 
    S2[a1, a4, a6, SP[a2, a3], a5, n] - S2[a1, a4, a6, SP[a2, a5], a3, n] - 
    S2[a1, a4, SP[a2, a3], a5, a6, n] - S2[a1, a4, SP[a2, a3], a6, a5, n] - 
    S2[a1, a4, SP[a2, a5], a3, a6, n] - S2[a1, a4, SP[a2, a5], a6, a3, n] + 
    S2[a1, a4, SP[a3, a6], a2, a5, n] + S2[a1, a4, SP[a3, a6], a5, a2, n] + 
    S2[a1, a4, SP[a5, a6], a2, a3, n] + S2[a1, a4, SP[a5, a6], a3, a2, n] + 
    S2[a1, a5, a2, a4, SP[a3, a6], n] - S2[a1, a5, a2, a6, SP[a3, a4], n] + 
    S2[a6, n]*S2[a1, a5, a4, a2, a3, n] + S2[a1, a5, a4, a2, SP[a3, a6], n] + 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] - 
    S2[a2, n]*S2[a1, a5, a4, a3, a6, n] - 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] - S2[a1, a5, a4, a6, SP[a2, a3], n] - 
    S2[a1, a5, a4, SP[a2, a3], a6, n] + S2[a1, a5, a4, SP[a3, a6], a2, n] + 
    S2[a3, n]*S2[a1, a5, a6, a2, a4, n] - 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] - S2[a1, a5, a6, a4, SP[a2, a3], n] - 
    S2[a1, a5, a6, SP[a2, a4], a3, n] - S2[a1, a5, SP[a2, a4], a3, a6, n] - 
    S2[a1, a5, SP[a2, a4], a6, a3, n] - S2[a1, a5, SP[a2, a6], a3, a4, n] - 
    S2[a1, a5, SP[a2, a6], a4, a3, n] + S2[a1, a5, SP[a3, a6], a2, a4, n] + 
    S2[a1, a5, SP[a4, a6], a2, a3, n] + S2[a1, a5, SP[a4, a6], a3, a2, n] + 
    S2[a3, n]*S2[a1, a6, a2, a4, a5, n] + S2[a1, a6, a2, a4, SP[a3, a5], n] + 
    S2[a3, n]*S2[a1, a6, a2, a5, a4, n] + S2[a1, a6, a2, a5, SP[a3, a4], n] + 
    S2[a1, a6, a2, SP[a3, a4], a5, n] + S2[a1, a6, a2, SP[a3, a5], a4, n] - 
    S2[a2, n]*S2[a1, a6, a3, a4, a5, n] - S2[a1, a6, a3, a4, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a6, a3, a5, a4, n] - S2[a1, a6, a3, a5, SP[a2, a4], n] - 
    S2[a1, a6, a3, SP[a2, a4], a5, n] - S2[a1, a6, a3, SP[a2, a5], a4, n] - 
    S2[a2, n]*S2[a1, a6, a4, a3, a5, n] - S2[a1, a6, a4, a3, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a6, a4, a5, a3, n] - S2[a1, a6, a4, a5, SP[a2, a3], n] - 
    S2[a1, a6, a4, SP[a2, a3], a5, n] - S2[a1, a6, a4, SP[a2, a5], a3, n] + 
    S2[a3, n]*S2[a1, a6, a5, a2, a4, n] + S2[a1, a6, a5, a2, SP[a3, a4], n] - 
    S2[a2, n]*S2[a1, a6, a5, a3, a4, n] - S2[a1, a6, a5, a3, SP[a2, a4], n] - 
    S2[a2, n]*S2[a1, a6, a5, a4, a3, n] - S2[a1, a6, a5, a4, SP[a2, a3], n] - 
    S2[a1, a6, a5, SP[a2, a4], a3, n] - S2[a1, a6, SP[a2, a4], a3, a5, n] - 
    S2[a1, a6, SP[a2, a4], a5, a3, n] - S2[a1, a6, SP[a2, a5], a3, a4, n] - 
    S2[a1, a6, SP[a2, a5], a4, a3, n] + S2[a1, a6, SP[a3, a5], a2, a4, n] - 
    S2[a1, SP[a2, a4], a3, a5, a6, n] - S2[a1, SP[a2, a4], a3, a6, a5, n] - 
    S2[a1, SP[a2, a4], a5, a3, a6, n] - S2[a1, SP[a2, a4], a5, a6, a3, n] - 
    S2[a1, SP[a2, a4], a6, a3, a5, n] - S2[a1, SP[a2, a4], a6, a5, a3, n] - 
    S2[a1, SP[a2, a6], a3, a4, a5, n] - S2[a1, SP[a2, a6], a3, a5, a4, n] - 
    S2[a1, SP[a2, a6], a4, a3, a5, n] - S2[a1, SP[a2, a6], a4, a5, a3, n] - 
    S2[a1, SP[a2, a6], a5, a3, a4, n] - S2[a1, SP[a2, a6], a5, a4, a3, n] + 
    S2[a1, SP[a3, a6], a2, a4, a5, n] + S2[a1, SP[a3, a6], a2, a5, a4, n] + 
    S2[a1, SP[a3, a6], a5, a2, a4, n] + S2[a1, SP[a4, a6], a2, a3, a5, n] + 
    S2[a1, SP[a4, a6], a2, a5, a3, n] + S2[a1, SP[a4, a6], a3, a2, a5, n] + 
    S2[a1, SP[a4, a6], a3, a5, a2, n] + S2[a1, SP[a4, a6], a5, a2, a3, n] + 
    S2[a1, SP[a4, a6], a5, a3, a2, n] + S2[a1, SP[a5, a6], a4, a2, a3, n] + 
    S2[a1, SP[a5, a6], a4, a3, a2, n] + S2[a2, a1, a4, a5, SP[a3, a6], n] + 
    S2[a2, a1, a4, a6, SP[a3, a5], n] + S2[a2, a1, a4, SP[a3, a5], a6, n] + 
    S2[a2, a1, a4, SP[a5, a6], a3, n] + S2[a2, a1, a5, a4, SP[a3, a6], n] - 
    S2[a2, a1, a5, a6, SP[a3, a4], n] + S2[a2, a1, a6, a3, SP[a4, a5], n] + 
    S2[a2, a1, a6, a4, SP[a3, a5], n] + S2[a2, a1, a6, SP[a3, a5], a4, n] + 
    S2[a2, a1, a6, SP[a4, a5], a3, n] + S2[a2, a1, SP[a4, a5], a3, a6, n] + 
    S2[a2, a1, SP[a4, a5], a6, a3, n] + S2[a2, a1, SP[a5, a6], a3, a4, n] + 
    S2[a2, a1, SP[a5, a6], a4, a3, n] - S2[a6, n]*S2[a2, a4, a1, a3, a5, n] - 
    S2[a2, a4, a1, a3, SP[a5, a6], n] - S2[a6, n]*S2[a2, a4, a1, a5, a3, n] + 
    S2[a2, a4, a1, a6, SP[a3, a5], n] + S2[a2, a4, a1, SP[a3, a5], a6, n] - 
    S2[a2, a4, a1, SP[a3, a6], a5, n] - S2[a6, n]*S2[a2, a4, a3, a1, a5, n] - 
    S2[a2, a4, a3, a1, SP[a5, a6], n] + S2[a1, n]*S2[a2, a4, a3, a6, a5, n] + 
    S2[a2, a4, a3, a6, SP[a1, a5], n] + S2[a2, a4, a6, a1, SP[a3, a5], n] + 
    S2[a2, a4, a6, SP[a1, a3], a5, n] + S2[a2, a4, SP[a1, a3], a5, a6, n] + 
    S2[a2, a4, SP[a1, a3], a6, a5, n] - S2[a2, a4, SP[a3, a6], a1, a5, n] + 
    S2[a2, a6, a1, a3, SP[a4, a5], n] - S2[a3, n]*S2[a2, a6, a1, a4, a5, n] - 
    S2[a3, n]*S2[a2, a6, a1, a5, a4, n] - S2[a2, a6, a1, a5, SP[a3, a4], n] - 
    S2[a2, a6, a1, SP[a3, a4], a5, n] + S2[a2, a6, a1, SP[a4, a5], a3, n] + 
    S2[a2, a6, a3, a1, SP[a4, a5], n] + S2[a2, a6, a3, SP[a1, a4], a5, n] + 
    S2[a2, a6, a4, a1, SP[a3, a5], n] + S2[a2, a6, a4, SP[a1, a3], a5, n] + 
    S2[a2, a6, SP[a1, a4], a3, a5, n] + S2[a2, a6, SP[a1, a4], a5, a3, n] + 
    S2[a2, SP[a1, a4], a3, a5, a6, n] + S2[a2, SP[a1, a4], a3, a6, a5, n] + 
    S2[a2, SP[a1, a4], a5, a3, a6, n] + S2[a2, SP[a1, a4], a5, a6, a3, n] + 
    S2[a2, SP[a1, a4], a6, a3, a5, n] + S2[a2, SP[a1, a4], a6, a5, a3, n] + 
    S2[a2, SP[a1, a6], a3, a4, a5, n] + S2[a2, SP[a1, a6], a3, a5, a4, n] + 
    S2[a2, SP[a1, a6], a4, a3, a5, n] + S2[a2, SP[a1, a6], a4, a5, a3, n] + 
    S2[a2, SP[a1, a6], a5, a3, a4, n] + S2[a2, SP[a1, a6], a5, a4, a3, n] - 
    S2[a2, SP[a3, a6], a1, a4, a5, n] - S2[a2, SP[a3, a6], a1, a5, a4, n] - 
    S2[a2, SP[a4, a6], a1, a3, a5, n] - S2[a2, SP[a4, a6], a1, a5, a3, n] - 
    S2[a2, SP[a4, a6], a3, a1, a5, n] - S2[a3, a1, a6, a2, SP[a4, a5], n] - 
    S2[a3, a1, a6, SP[a2, a5], a4, n] - S2[a3, a1, SP[a5, a6], a2, a4, n] - 
    S2[a3, a6, a1, a2, SP[a4, a5], n] + S2[a2, n]*S2[a3, a6, a1, a4, a5, n] + 
    S2[a3, a6, a1, a4, SP[a2, a5], n] + S2[a2, n]*S2[a3, a6, a1, a5, a4, n] + 
    S2[a3, a6, a1, a5, SP[a2, a4], n] + S2[a3, a6, a1, SP[a2, a4], a5, n] - 
    S2[a3, a6, a2, a1, SP[a4, a5], n] - S2[a3, a6, a2, SP[a1, a4], a5, n] - 
    S2[a3, SP[a1, a6], a2, a4, a5, n] - S2[a3, SP[a1, a6], a2, a5, a4, n] - 
    S2[a3, SP[a1, a6], a5, a2, a4, n] + S2[a3, SP[a2, a6], a1, a4, a5, n] + 
    S2[a3, SP[a2, a6], a1, a5, a4, n] - S2[a3, n]*S2[a6, a1, a4, a2, a5, n] - 
    S2[a6, a1, a4, a2, SP[a3, a5], n] - S2[a3, n]*S2[a6, a1, a4, a5, a2, n] - 
    S2[a6, a1, a4, a5, SP[a2, a3], n] - S2[a6, a1, a4, SP[a2, a3], a5, n] - 
    S2[a6, a1, a4, SP[a3, a5], a2, n] - S2[a3, n]*S2[a6, a1, a5, a4, a2, n] - 
    S2[a6, a1, a5, a4, SP[a2, a3], n] - S2[a6, a1, a5, SP[a3, a4], a2, n] - 
    S2[a6, a1, SP[a3, a4], a2, a5, n] - S2[a6, a1, SP[a3, a4], a5, a2, n] - 
    S2[a6, a1, SP[a3, a5], a4, a2, n] + S2[a3, n]*S2[a6, a2, a4, a1, a5, n] + 
    S2[a6, a2, a4, a1, SP[a3, a5], n] + S2[a6, a2, a4, SP[a1, a3], a5, n] + 
    S2[a6, a2, SP[a3, a4], a1, a5, n] - S2[a2, n]*S2[a6, a3, a4, a1, a5, n] - 
    S2[a6, a3, a4, a1, SP[a2, a5], n] + S2[a1, n]*S2[a6, a3, a4, a2, a5, n] + 
    S2[a6, a3, a4, a2, SP[a1, a5], n] + S2[a1, n]*S2[a6, a3, a4, a5, a2, n] + 
    S2[a6, a3, a4, a5, SP[a1, a2], n] + S2[a6, a3, a4, SP[a1, a5], a2, n] + 
    S2[a1, n]*S2[a6, a3, a5, a4, a2, n] + S2[a6, a3, a5, a4, SP[a1, a2], n] + 
    S2[a6, a3, a5, SP[a1, a4], a2, n] + S2[a6, a3, SP[a1, a4], a2, a5, n] + 
    S2[a6, a3, SP[a1, a4], a5, a2, n] + S2[a6, a3, SP[a1, a5], a4, a2, n] - 
    S2[a6, a3, SP[a2, a4], a1, a5, n] + S2[a1, n]*S2[a6, a5, a3, a4, a2, n] + 
    S2[a6, a5, a3, a4, SP[a1, a2], n] + S2[a6, a5, a3, SP[a1, a4], a2, n] + 
    S2[a6, a5, SP[a1, a3], a4, a2, n] + S2[a6, SP[a1, a5], a3, a4, a2, n] + 
    S2[SP[a1, a6], a3, a4, a2, a5, n] + S2[SP[a1, a6], a3, a4, a5, a2, n] + 
    S2[SP[a1, a6], a3, a5, a4, a2, n] + S2[SP[a1, a6], a4, a2, a3, a5, n] + 
    S2[SP[a1, a6], a4, a2, a5, a3, n] + S2[SP[a1, a6], a4, a3, a2, a5, n] + 
    S2[SP[a1, a6], a4, a3, a5, a2, n] + S2[SP[a1, a6], a4, a5, a2, a3, n] + 
    S2[SP[a1, a6], a4, a5, a3, a2, n] + S2[SP[a1, a6], a5, a3, a4, a2, n] + 
    S2[SP[a1, a6], a5, a4, a2, a3, n] + S2[SP[a1, a6], a5, a4, a3, a2, n] - 
    S2[SP[a2, a6], a3, a4, a1, a5, n] - S2[SP[a2, a6], a4, a1, a3, a5, n] - 
    S2[SP[a2, a6], a4, a1, a5, a3, n] - S2[SP[a2, a6], a4, a3, a1, a5, n] - 
    S2[SP[a3, a6], a1, a4, a2, a5, n] - S2[SP[a3, a6], a1, a4, a5, a2, n] - 
    S2[SP[a3, a6], a1, a5, a4, a2, n] + S2[SP[a3, a6], a2, a4, a1, a5, n] - 
    S2[a6, a3, a4, a2, a5, a1, n] - S2[a6, a3, a4, a5, a1, a2, n] - 
    S2[a6, a3, a4, a5, a2, a1, n] - S2[a6, a3, a5, a1, a4, a2, n] - 
    S2[a6, a3, a5, a4, a1, a2, n] - S2[a6, a3, a5, a4, a2, a1, n] - 
    S2[a6, a5, a1, a3, a4, a2, n] - S2[a6, a5, a3, a1, a4, a2, n] - 
    S2[a6, a5, a3, a4, a1, a2, n] - S2[a6, a5, a3, a4, a2, a1, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a2_, a4_, a5_, a1_, a3_, a6_, n_] :> 
  S2[a1, a3, a6, n]*S2[a2, a4, a5, n] + S2[SP[a1, a2], SP[a3, a4], 
     SP[a5, a6], n] - S2[a1, a2, SP[a3, a4], SP[a5, a6], n] - 
    S2[a2, a4, n]*S2[a1, a3, a5, a6, n] - S2[a2, a4, n]*
     S2[a1, a3, a6, a5, n] + S2[a1, a3, SP[a2, a5], SP[a4, a6], n] + 
    S2[a1, a3, SP[a2, a6], SP[a4, a5], n] - S2[a2, a4, n]*
     S2[a1, a5, a3, a6, n] - S2[a3, a6, n]*S2[a1, a5, a4, a2, n] + 
    S2[a1, a5, SP[a2, a3], SP[a4, a6], n] + S2[a1, a5, SP[a3, a4], 
     SP[a2, a6], n] - S2[a1, SP[a2, a3], a4, SP[a5, a6], n] + 
    S2[a1, SP[a2, a3], a5, SP[a4, a6], n] + S2[a1, SP[a2, a3], a6, 
     SP[a4, a5], n] + S2[a1, SP[a2, a3], SP[a4, a5], a6, n] + 
    S2[a1, SP[a2, a5], a3, SP[a4, a6], n] + S2[a1, SP[a2, a5], SP[a3, a4], 
     a6, n] + S2[a1, SP[a3, a5], a4, SP[a2, a6], n] + 
    S2[a1, SP[a3, a5], SP[a4, a6], a2, n] - S2[a2, a1, SP[a3, a4], 
     SP[a5, a6], n] - S2[a2, SP[a1, a4], a3, SP[a5, a6], n] - 
    S2[a2, SP[a1, a4], SP[a3, a5], a6, n] - S2[SP[a1, a2], a3, a4, 
     SP[a5, a6], n] + S2[SP[a1, a2], a3, a5, SP[a4, a6], n] + 
    S2[SP[a1, a2], a3, a6, SP[a4, a5], n] + S2[SP[a1, a2], a3, SP[a4, a5], 
     a6, n] - S2[SP[a1, a2], a4, a3, SP[a5, a6], n] - 
    S2[SP[a1, a2], a4, SP[a3, a5], a6, n] + S2[SP[a1, a2], a5, a3, 
     SP[a4, a6], n] + S2[SP[a1, a2], a5, SP[a3, a4], a6, n] + 
    S2[SP[a1, a2], SP[a4, a5], a3, a6, n] + S2[SP[a1, a3], a5, a4, 
     SP[a2, a6], n] + S2[SP[a1, a3], a5, SP[a4, a6], a2, n] + 
    S2[SP[a1, a3], SP[a5, a6], a4, a2, n] + S2[a1, a2, a3, a4, SP[a5, a6], 
     n] - S2[a1, a2, a3, a5, SP[a4, a6], n] - S2[a1, a2, a3, a6, SP[a4, a5], 
     n] - S2[a1, a2, a3, SP[a4, a5], a6, n] + S2[a1, a2, a4, a3, SP[a5, a6], 
     n] + S2[a1, a2, a4, SP[a3, a5], a6, n] - S2[a1, a2, a5, a3, SP[a4, a6], 
     n] - S2[a1, a2, a5, SP[a3, a4], a6, n] - S2[a1, a2, SP[a4, a5], a3, a6, 
     n] + S2[a1, a3, a2, a4, SP[a5, a6], n] - S2[a1, a3, a2, a5, SP[a4, a6], 
     n] - S2[a1, a3, a2, a6, SP[a4, a5], n] - S2[a1, a3, a2, SP[a4, a5], a6, 
     n] - S2[a1, a3, a5, a2, SP[a4, a6], n] - 
    S2[a6, n]*S2[a1, a3, a5, a4, a2, n] + 
    S2[a2, n]*S2[a1, a3, a5, a4, a6, n] - S2[a1, a3, a5, a4, SP[a2, a6], n] + 
    S2[a2, n]*S2[a1, a3, a5, a6, a4, n] + S2[a1, a3, a5, a6, SP[a2, a4], n] + 
    S2[a1, a3, a5, SP[a2, a4], a6, n] - 2*S2[a1, a3, a5, SP[a4, a6], a2, n] - 
    S2[a1, a3, a6, a2, SP[a4, a5], n] + S2[a2, n]*S2[a1, a3, a6, a5, a4, n] + 
    S2[a1, a3, a6, a5, SP[a2, a4], n] - 2*S2[a1, a3, SP[a5, a6], a4, a2, n] - 
    S2[a1, a5, a2, a3, SP[a4, a6], n] - S2[a1, a5, a2, SP[a3, a4], a6, n] - 
    S2[a1, a5, a3, a2, SP[a4, a6], n] - S2[a6, n]*S2[a1, a5, a3, a4, a2, n] + 
    S2[a2, n]*S2[a1, a5, a3, a4, a6, n] - S2[a1, a5, a3, a4, SP[a2, a6], n] + 
    S2[a2, n]*S2[a1, a5, a3, a6, a4, n] + S2[a1, a5, a3, a6, SP[a2, a4], n] + 
    S2[a1, a5, a3, SP[a2, a4], a6, n] - 2*S2[a1, a5, a3, SP[a4, a6], a2, n] - 
    S2[a6, n]*S2[a1, a5, a4, a2, a3, n] + 
    S2[a3, n]*S2[a1, a5, a4, a2, a6, n] - 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] + 
    S2[a2, n]*S2[a1, a5, a4, a3, a6, n] - S2[a1, a5, a4, a3, SP[a2, a6], n] + 
    S2[a3, n]*S2[a1, a5, a4, a6, a2, n] + S2[a1, a5, a4, a6, SP[a2, a3], n] + 
    S2[a1, a5, a4, SP[a2, a3], a6, n] - S2[a1, a5, a4, SP[a2, a6], a3, n] + 
    S2[a3, n]*S2[a1, a5, a6, a4, a2, n] + S2[a1, a5, a6, a4, SP[a2, a3], n] + 
    S2[a1, a5, a6, SP[a3, a4], a2, n] + S2[a1, a5, SP[a2, a4], a3, a6, n] - 
    S2[a1, a5, SP[a4, a6], a2, a3, n] - S2[a1, a5, SP[a4, a6], a3, a2, n] + 
    S2[a3, n]*S2[a1, a6, a5, a4, a2, n] + S2[a1, a6, a5, a4, SP[a2, a3], n] + 
    S2[a1, a6, a5, SP[a3, a4], a2, n] + S2[a1, a6, SP[a3, a5], a4, a2, n] - 
    S2[a1, SP[a5, a6], a3, a4, a2, n] - S2[a1, SP[a5, a6], a4, a2, a3, n] - 
    S2[a1, SP[a5, a6], a4, a3, a2, n] + S2[a2, a1, a3, a4, SP[a5, a6], n] - 
    S2[a2, a1, a3, a5, SP[a4, a6], n] - S2[a2, a1, a3, a6, SP[a4, a5], n] - 
    S2[a2, a1, a3, SP[a4, a5], a6, n] + S2[a2, a1, a4, a3, SP[a5, a6], n] + 
    S2[a2, a1, a4, SP[a3, a5], a6, n] - S2[a2, a1, a5, a3, SP[a4, a6], n] - 
    S2[a2, a1, a5, SP[a3, a4], a6, n] - S2[a2, a1, SP[a4, a5], a3, a6, n] + 
    S2[a2, a4, a1, a3, SP[a5, a6], n] + S2[a2, a4, a1, SP[a3, a5], a6, n] + 
    S2[a2, a4, SP[a1, a5], a3, a6, n] - S2[a3, a1, a5, a4, SP[a2, a6], n] - 
    S2[a3, a1, a5, SP[a4, a6], a2, n] - S2[a3, a1, SP[a5, a6], a4, a2, n] - 
    S2[a3, SP[a1, a6], a5, a4, a2, n] + S2[a3, n]*S2[a6, a1, a5, a4, a2, n] + 
    S2[a6, a1, a5, a4, SP[a2, a3], n] + S2[a6, a1, a5, SP[a3, a4], a2, n] + 
    S2[a6, a1, SP[a3, a5], a4, a2, n] + S2[a6, SP[a1, a3], a5, a4, a2, n] - 
    S2[SP[a1, a6], a3, a5, a4, a2, n] - S2[SP[a1, a6], a5, a3, a4, a2, n] - 
    S2[SP[a1, a6], a5, a4, a2, a3, n] - S2[SP[a1, a6], a5, a4, a3, a2, n] + 
    S2[SP[a3, a6], a1, a5, a4, a2, n] - S2[a6, a3, a1, a5, a4, a2, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a2_, a4_, a5_, a1_, a6_, a3_, n_] :> 
  S2[a1, a6, a3, n]*S2[a2, a4, a5, n] + S2[SP[a1, a2], SP[a4, a6], 
     SP[a3, a5], n] - S2[a1, a2, SP[a4, a6], SP[a3, a5], n] + 
    S2[a3, a6, n]*S2[a1, a5, a4, a2, n] - S2[a2, a4, n]*
     S2[a1, a5, a6, a3, n] + S2[a1, a5, SP[a2, a6], SP[a3, a4], n] - 
    S2[a1, a5, SP[a3, a4], SP[a2, a6], n] - S2[a2, a4, n]*
     S2[a1, a6, a3, a5, n] - S2[a2, a4, n]*S2[a1, a6, a5, a3, n] + 
    S2[a1, a6, SP[a2, a3], SP[a4, a5], n] + S2[a1, a6, SP[a2, a5], 
     SP[a3, a4], n] + S2[a1, SP[a2, a5], a6, SP[a3, a4], n] + 
    S2[a1, SP[a2, a5], SP[a4, a6], a3, n] + S2[a1, SP[a2, a6], a3, 
     SP[a4, a5], n] - S2[a1, SP[a2, a6], a4, SP[a3, a5], n] + 
    S2[a1, SP[a2, a6], a5, SP[a3, a4], n] + S2[a1, SP[a2, a6], SP[a4, a5], 
     a3, n] - S2[a1, SP[a3, a5], a4, SP[a2, a6], n] - 
    S2[a1, SP[a3, a5], SP[a4, a6], a2, n] - S2[a2, a1, SP[a4, a6], 
     SP[a3, a5], n] - S2[a2, SP[a1, a4], a6, SP[a3, a5], n] - 
    S2[a2, SP[a1, a4], SP[a5, a6], a3, n] - S2[SP[a1, a2], a4, a6, 
     SP[a3, a5], n] - S2[SP[a1, a2], a4, SP[a5, a6], a3, n] + 
    S2[SP[a1, a2], a5, a6, SP[a3, a4], n] + S2[SP[a1, a2], a5, SP[a4, a6], 
     a3, n] + S2[SP[a1, a2], a6, a3, SP[a4, a5], n] - 
    S2[SP[a1, a2], a6, a4, SP[a3, a5], n] + S2[SP[a1, a2], a6, a5, 
     SP[a3, a4], n] + S2[SP[a1, a2], a6, SP[a4, a5], a3, n] + 
    S2[SP[a1, a2], SP[a4, a5], a6, a3, n] - S2[SP[a1, a3], a5, a4, 
     SP[a2, a6], n] - S2[SP[a1, a3], a5, SP[a4, a6], a2, n] - 
    S2[SP[a1, a3], SP[a5, a6], a4, a2, n] + S2[a1, a2, a4, a6, SP[a3, a5], 
     n] + S2[a1, a2, a4, SP[a5, a6], a3, n] - S2[a1, a2, a5, a6, SP[a3, a4], 
     n] - S2[a1, a2, a5, SP[a4, a6], a3, n] - S2[a1, a2, a6, a3, SP[a4, a5], 
     n] + S2[a1, a2, a6, a4, SP[a3, a5], n] - S2[a1, a2, a6, a5, SP[a3, a4], 
     n] - S2[a1, a2, a6, SP[a4, a5], a3, n] - S2[a1, a2, SP[a4, a5], a6, a3, 
     n] + S2[a1, a3, a5, a4, SP[a2, a6], n] + S2[a1, a3, a5, SP[a4, a6], a2, 
     n] + S2[a1, a3, SP[a5, a6], a4, a2, n] - S2[a1, a5, a2, a6, SP[a3, a4], 
     n] - S2[a1, a5, a2, SP[a4, a6], a3, n] + S2[a1, a5, a3, a4, SP[a2, a6], 
     n] + S2[a1, a5, a3, SP[a4, a6], a2, n] - 
    S2[a3, n]*S2[a1, a5, a4, a2, a6, n] - S2[a1, a5, a4, a2, SP[a3, a6], n] + 
    S2[a1, a5, a4, a3, SP[a2, a6], n] - S2[a3, n]*S2[a1, a5, a4, a6, a2, n] + 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] + S2[a1, a5, a4, SP[a2, a6], a3, n] - 
    S2[a1, a5, a4, SP[a3, a6], a2, n] - S2[a1, a5, a6, a2, SP[a3, a4], n] + 
    S2[a2, n]*S2[a1, a5, a6, a3, a4, n] + S2[a1, a5, a6, a3, SP[a2, a4], n] - 
    S2[a3, n]*S2[a1, a5, a6, a4, a2, n] + 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] + S2[a1, a5, a6, SP[a2, a4], a3, n] - 
    S2[a1, a5, a6, SP[a3, a4], a2, n] + S2[a1, a5, SP[a2, a4], a6, a3, n] - 
    S2[a1, a5, SP[a3, a6], a4, a2, n] - S2[a1, a6, a2, a3, SP[a4, a5], n] + 
    S2[a1, a6, a2, a4, SP[a3, a5], n] - S2[a1, a6, a2, a5, SP[a3, a4], n] - 
    S2[a1, a6, a2, SP[a4, a5], a3, n] - S2[a1, a6, a3, a2, SP[a4, a5], n] + 
    S2[a2, n]*S2[a1, a6, a3, a5, a4, n] + S2[a1, a6, a3, a5, SP[a2, a4], n] - 
    S2[a1, a6, a5, a2, SP[a3, a4], n] + S2[a2, n]*S2[a1, a6, a5, a3, a4, n] + 
    S2[a1, a6, a5, a3, SP[a2, a4], n] - S2[a3, n]*S2[a1, a6, a5, a4, a2, n] + 
    S2[a2, n]*S2[a1, a6, a5, a4, a3, n] + S2[a1, a6, a5, SP[a2, a4], a3, n] - 
    S2[a1, a6, a5, SP[a3, a4], a2, n] - S2[a1, a6, SP[a3, a5], a4, a2, n] - 
    S2[a1, SP[a3, a6], a5, a4, a2, n] + S2[a2, a1, a4, a6, SP[a3, a5], n] + 
    S2[a2, a1, a4, SP[a5, a6], a3, n] - S2[a2, a1, a5, a6, SP[a3, a4], n] - 
    S2[a2, a1, a5, SP[a4, a6], a3, n] - S2[a2, a1, a6, a3, SP[a4, a5], n] + 
    S2[a2, a1, a6, a4, SP[a3, a5], n] - S2[a2, a1, a6, a5, SP[a3, a4], n] - 
    S2[a2, a1, a6, SP[a4, a5], a3, n] - S2[a2, a1, SP[a4, a5], a6, a3, n] + 
    S2[a2, a4, a1, a6, SP[a3, a5], n] + S2[a2, a4, a1, SP[a5, a6], a3, n] + 
    S2[a2, a4, SP[a1, a5], a6, a3, n] + S2[a3, a1, a5, a4, SP[a2, a6], n] + 
    S2[a3, a1, a5, SP[a4, a6], a2, n] + S2[a3, a1, SP[a5, a6], a4, a2, n] + 
    S2[a3, SP[a1, a6], a5, a4, a2, n] - S2[a3, n]*S2[a6, a1, a5, a4, a2, n] - 
    S2[a6, a1, a5, a4, SP[a2, a3], n] - S2[a6, a1, a5, SP[a3, a4], a2, n] - 
    S2[a6, a1, SP[a3, a5], a4, a2, n] - S2[a6, SP[a1, a3], a5, a4, a2, n] - 
    S2[SP[a3, a6], a1, a5, a4, a2, n] + S2[a6, a1, a3, a5, a4, a2, n] + 
    S2[a6, a1, a5, a3, a4, a2, n] + S2[a6, a1, a5, a4, a2, a3, n] + 
    S2[a6, a1, a5, a4, a3, a2, n] + S2[a6, a3, a1, a5, a4, a2, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a2_, a4_, a5_, a3_, a1_, a6_, n_] :> 
  -(S2[a1, a3, a6, n]*S2[a2, a4, a5, n]) - S2[a1, a6, a3, n]*
     S2[a2, a4, a5, n] - S2[SP[a1, a2], SP[a3, a4], SP[a5, a6], n] - 
    S2[SP[a1, a2], SP[a4, a6], SP[a3, a5], n] + S2[a1, a2, SP[a3, a4], 
     SP[a5, a6], n] + S2[a1, a2, SP[a4, a6], SP[a3, a5], n] + 
    S2[a2, a4, n]*S2[a1, a3, a5, a6, n] + S2[a2, a4, n]*
     S2[a1, a3, a6, a5, n] - S2[a1, a3, SP[a2, a5], SP[a4, a6], n] - 
    S2[a1, a3, SP[a2, a6], SP[a4, a5], n] + S2[a2, a4, n]*
     S2[a1, a6, a3, a5, n] - S2[a1, a6, SP[a2, a3], SP[a4, a5], n] + 
    S2[a1, SP[a2, a3], a4, SP[a5, a6], n] - S2[a1, SP[a2, a3], a5, 
     SP[a4, a6], n] - S2[a1, SP[a2, a3], a6, SP[a4, a5], n] - 
    S2[a1, SP[a2, a3], SP[a4, a5], a6, n] - S2[a1, SP[a2, a6], a3, 
     SP[a4, a5], n] + S2[a1, SP[a2, a6], a4, SP[a3, a5], n] + 
    S2[a2, a1, SP[a3, a4], SP[a5, a6], n] + S2[a2, a1, SP[a4, a6], 
     SP[a3, a5], n] + S2[a1, a6, n]*S2[a2, a4, a5, a3, n] - 
    S2[a2, a4, SP[a1, a5], SP[a3, a6], n] + S2[a2, SP[a1, a4], a3, 
     SP[a5, a6], n] - S2[a2, SP[a1, a4], a5, SP[a3, a6], n] + 
    S2[a2, SP[a1, a4], a6, SP[a3, a5], n] + S2[a2, SP[a1, a4], SP[a3, a5], 
     a6, n] + S2[SP[a1, a2], a3, a4, SP[a5, a6], n] - 
    S2[SP[a1, a2], a3, a5, SP[a4, a6], n] - S2[SP[a1, a2], a3, a6, 
     SP[a4, a5], n] - S2[SP[a1, a2], a3, SP[a4, a5], a6, n] + 
    S2[SP[a1, a2], a4, a3, SP[a5, a6], n] - S2[SP[a1, a2], a4, a5, 
     SP[a3, a6], n] + S2[SP[a1, a2], a4, a6, SP[a3, a5], n] + 
    S2[SP[a1, a2], a4, SP[a3, a5], a6, n] - S2[SP[a1, a2], a6, a3, 
     SP[a4, a5], n] + S2[SP[a1, a2], a6, a4, SP[a3, a5], n] - 
    S2[a1, a2, a3, a4, SP[a5, a6], n] + S2[a1, a2, a3, a5, SP[a4, a6], n] + 
    S2[a1, a2, a3, a6, SP[a4, a5], n] + S2[a1, a2, a3, SP[a4, a5], a6, n] - 
    S2[a1, a2, a4, a3, SP[a5, a6], n] + S2[a1, a2, a4, a5, SP[a3, a6], n] - 
    S2[a1, a2, a4, a6, SP[a3, a5], n] - S2[a1, a2, a4, SP[a3, a5], a6, n] + 
    S2[a1, a2, a6, a3, SP[a4, a5], n] - S2[a1, a2, a6, a4, SP[a3, a5], n] - 
    S2[a1, a3, a2, a4, SP[a5, a6], n] + S2[a1, a3, a2, a5, SP[a4, a6], n] + 
    S2[a1, a3, a2, a6, SP[a4, a5], n] + S2[a1, a3, a2, SP[a4, a5], a6, n] + 
    S2[a1, a3, a5, a2, SP[a4, a6], n] + S2[a6, n]*S2[a1, a3, a5, a4, a2, n] - 
    S2[a2, n]*S2[a1, a3, a5, a4, a6, n] - 
    S2[a2, n]*S2[a1, a3, a5, a6, a4, n] - S2[a1, a3, a5, a6, SP[a2, a4], n] - 
    S2[a1, a3, a5, SP[a2, a4], a6, n] + S2[a1, a3, a5, SP[a4, a6], a2, n] + 
    S2[a1, a3, a6, a2, SP[a4, a5], n] - S2[a2, n]*S2[a1, a3, a6, a5, a4, n] - 
    S2[a1, a3, a6, a5, SP[a2, a4], n] + S2[a1, a3, SP[a5, a6], a4, a2, n] + 
    S2[a1, a6, a2, a3, SP[a4, a5], n] - S2[a1, a6, a2, a4, SP[a3, a5], n] + 
    S2[a1, a6, a3, a2, SP[a4, a5], n] - S2[a2, n]*S2[a1, a6, a3, a5, a4, n] - 
    S2[a1, a6, a3, a5, SP[a2, a4], n] + S2[a1, SP[a3, a6], a5, a4, a2, n] - 
    S2[a2, a1, a3, a4, SP[a5, a6], n] + S2[a2, a1, a3, a5, SP[a4, a6], n] + 
    S2[a2, a1, a3, a6, SP[a4, a5], n] + S2[a2, a1, a3, SP[a4, a5], a6, n] - 
    S2[a2, a1, a4, a3, SP[a5, a6], n] + S2[a2, a1, a4, a5, SP[a3, a6], n] - 
    S2[a2, a1, a4, a6, SP[a3, a5], n] - S2[a2, a1, a4, SP[a3, a5], a6, n] + 
    S2[a2, a1, a6, a3, SP[a4, a5], n] - S2[a2, a1, a6, a4, SP[a3, a5], n] - 
    S2[a2, a4, a1, a3, SP[a5, a6], n] + S2[a2, a4, a1, a5, SP[a3, a6], n] - 
    S2[a2, a4, a1, a6, SP[a3, a5], n] - S2[a2, a4, a1, SP[a3, a5], a6, n] + 
    S2[a2, a4, a5, a1, SP[a3, a6], n] + S2[a2, a4, a5, SP[a1, a3], a6, n] + 
    S2[SP[a1, a6], a3, a5, a4, a2, n] - S2[a6, a1, a3, a5, a4, a2, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a2_, a4_, a5_, a3_, a6_, a1_, n_] :> 
  S2[a1, a6, a3, n]*S2[a2, a4, a5, n] + S2[SP[a1, a2], SP[a4, a6], 
     SP[a3, a5], n] - S2[a1, a2, SP[a4, a6], SP[a3, a5], n] - 
    S2[a2, a4, n]*S2[a1, a6, a3, a5, n] + S2[a1, a6, SP[a2, a3], SP[a4, a5], 
     n] + S2[a1, SP[a2, a6], a3, SP[a4, a5], n] - S2[a1, SP[a2, a6], a4, 
     SP[a3, a5], n] - S2[a2, a1, SP[a4, a6], SP[a3, a5], n] - 
    S2[a1, a6, n]*S2[a2, a4, a5, a3, n] + S2[a2, a4, SP[a1, a5], SP[a3, a6], 
     n] + S2[a2, SP[a1, a4], a5, SP[a3, a6], n] - S2[a2, SP[a1, a4], a6, 
     SP[a3, a5], n] + S2[SP[a1, a2], a4, a5, SP[a3, a6], n] - 
    S2[SP[a1, a2], a4, a6, SP[a3, a5], n] + S2[SP[a1, a2], a6, a3, 
     SP[a4, a5], n] - S2[SP[a1, a2], a6, a4, SP[a3, a5], n] - 
    S2[a1, a2, a4, a5, SP[a3, a6], n] + S2[a1, a2, a4, a6, SP[a3, a5], n] - 
    S2[a1, a2, a6, a3, SP[a4, a5], n] + S2[a1, a2, a6, a4, SP[a3, a5], n] - 
    S2[a1, a6, a2, a3, SP[a4, a5], n] + S2[a1, a6, a2, a4, SP[a3, a5], n] - 
    S2[a1, a6, a3, a2, SP[a4, a5], n] + S2[a2, n]*S2[a1, a6, a3, a5, a4, n] + 
    S2[a1, a6, a3, a5, SP[a2, a4], n] - S2[a2, a1, a4, a5, SP[a3, a6], n] + 
    S2[a2, a1, a4, a6, SP[a3, a5], n] - S2[a2, a1, a6, a3, SP[a4, a5], n] + 
    S2[a2, a1, a6, a4, SP[a3, a5], n] - S2[a2, a4, a1, a5, SP[a3, a6], n] + 
    S2[a2, a4, a1, a6, SP[a3, a5], n] - S2[a2, a4, a5, a1, SP[a3, a6], n] + 
    S2[a1, n]*S2[a2, a4, a5, a3, a6, n] + S2[a2, a4, a5, a3, SP[a1, a6], n] - 
    S2[a1, n]*S2[a6, a3, a5, a4, a2, n] - S2[a6, a3, a5, a4, SP[a1, a2], n] - 
    S2[a6, a3, a5, SP[a1, a4], a2, n] - S2[a6, a3, SP[a1, a5], a4, a2, n] - 
    S2[a6, SP[a1, a3], a5, a4, a2, n] - S2[SP[a1, a6], a3, a5, a4, a2, n] + 
    S2[a6, a1, a3, a5, a4, a2, n] + S2[a6, a3, a1, a5, a4, a2, n] + 
    S2[a6, a3, a5, a1, a4, a2, n] + S2[a6, a3, a5, a4, a1, a2, n] + 
    S2[a6, a3, a5, a4, a2, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a2_, a4_, a5_, a6_, a1_, a3_, n_] :> 
  -(S2[a1, a3, a6, n]*S2[a2, a4, a5, n]) - S2[a1, a6, a3, n]*
     S2[a2, a4, a5, n] - S2[SP[a1, a2], SP[a3, a4], SP[a5, a6], n] - 
    S2[SP[a1, a2], SP[a4, a6], SP[a3, a5], n] + S2[a1, a2, SP[a3, a4], 
     SP[a5, a6], n] + S2[a1, a2, SP[a4, a6], SP[a3, a5], n] + 
    S2[a2, a4, n]*S2[a1, a3, a6, a5, n] - S2[a1, a3, SP[a2, a6], SP[a4, a5], 
     n] + S2[a2, a4, n]*S2[a1, a6, a3, a5, n] + 
    S2[a2, a4, n]*S2[a1, a6, a5, a3, n] - S2[a1, a6, SP[a2, a3], SP[a4, a5], 
     n] - S2[a1, a6, SP[a2, a5], SP[a3, a4], n] + S2[a1, SP[a2, a3], a4, 
     SP[a5, a6], n] - S2[a1, SP[a2, a3], a6, SP[a4, a5], n] - 
    S2[a1, SP[a2, a6], a3, SP[a4, a5], n] + S2[a1, SP[a2, a6], a4, 
     SP[a3, a5], n] - S2[a1, SP[a2, a6], a5, SP[a3, a4], n] - 
    S2[a1, SP[a2, a6], SP[a4, a5], a3, n] + S2[a2, a1, SP[a3, a4], 
     SP[a5, a6], n] + S2[a2, a1, SP[a4, a6], SP[a3, a5], n] - 
    S2[a1, a3, n]*S2[a2, a4, a6, a5, n] + S2[a2, a4, SP[a1, a6], SP[a3, a5], 
     n] - S2[a1, a3, n]*S2[a2, a6, a4, a5, n] - 
    S2[a1, a3, n]*S2[a2, a6, a5, a4, n] + S2[a2, a6, SP[a1, a4], SP[a3, a5], 
     n] + S2[a2, a6, SP[a1, a5], SP[a3, a4], n] + S2[a2, SP[a1, a4], a3, 
     SP[a5, a6], n] + 2*S2[a2, SP[a1, a4], a6, SP[a3, a5], n] + 
    S2[a2, SP[a1, a4], SP[a3, a5], a6, n] + S2[a2, SP[a1, a4], SP[a3, a6], 
     a5, n] + S2[a2, SP[a1, a4], SP[a5, a6], a3, n] + 
    S2[a2, SP[a1, a6], a4, SP[a3, a5], n] + S2[a2, SP[a1, a6], a5, 
     SP[a3, a4], n] + S2[a2, SP[a1, a6], SP[a3, a4], a5, n] + 
    S2[a2, SP[a1, a6], SP[a3, a5], a4, n] + S2[a1, a3, n]*
     S2[a5, a6, a2, a4, n] - S2[a5, a6, SP[a1, a2], SP[a3, a4], n] - 
    S2[a5, SP[a1, a6], a2, SP[a3, a4], n] - S2[a5, SP[a1, a6], SP[a2, a3], 
     a4, n] + S2[SP[a1, a2], a3, a4, SP[a5, a6], n] - 
    S2[SP[a1, a2], a3, a6, SP[a4, a5], n] + S2[SP[a1, a2], a4, a3, 
     SP[a5, a6], n] + 2*S2[SP[a1, a2], a4, a6, SP[a3, a5], n] + 
    S2[SP[a1, a2], a4, SP[a3, a5], a6, n] + S2[SP[a1, a2], a4, SP[a3, a6], 
     a5, n] + S2[SP[a1, a2], a4, SP[a5, a6], a3, n] - 
    S2[SP[a1, a2], a6, a3, SP[a4, a5], n] + 
    2*S2[SP[a1, a2], a6, a4, SP[a3, a5], n] + S2[SP[a1, a2], a6, SP[a3, a4], 
     a5, n] + S2[SP[a1, a2], a6, SP[a3, a5], a4, n] - 
    S2[SP[a1, a2], a6, SP[a4, a5], a3, n] + S2[SP[a1, a2], SP[a3, a4], a5, 
     a6, n] + S2[SP[a1, a2], SP[a3, a4], a6, a5, n] + 
    S2[SP[a1, a2], SP[a3, a6], a4, a5, n] + S2[SP[a1, a2], SP[a3, a6], a5, 
     a4, n] - S2[SP[a1, a5], a6, a2, SP[a3, a4], n] - 
    S2[SP[a1, a5], a6, SP[a2, a3], a4, n] - S2[SP[a1, a5], SP[a3, a6], a2, 
     a4, n] - S2[a1, a2, a3, a4, SP[a5, a6], n] + 
    S2[a1, a2, a3, a6, SP[a4, a5], n] - S2[a1, a2, a4, a3, SP[a5, a6], n] - 
    2*S2[a1, a2, a4, a6, SP[a3, a5], n] - S2[a1, a2, a4, SP[a3, a5], a6, n] - 
    S2[a1, a2, a4, SP[a3, a6], a5, n] - S2[a1, a2, a4, SP[a5, a6], a3, n] + 
    S2[a1, a2, a6, a3, SP[a4, a5], n] - 2*S2[a1, a2, a6, a4, SP[a3, a5], n] - 
    S2[a1, a2, a6, SP[a3, a4], a5, n] - S2[a1, a2, a6, SP[a3, a5], a4, n] + 
    S2[a1, a2, a6, SP[a4, a5], a3, n] - S2[a1, a2, SP[a3, a4], a5, a6, n] - 
    S2[a1, a2, SP[a3, a4], a6, a5, n] - S2[a1, a2, SP[a3, a6], a4, a5, n] - 
    S2[a1, a2, SP[a3, a6], a5, a4, n] - S2[a1, a3, a2, a4, SP[a5, a6], n] + 
    S2[a1, a3, a2, a6, SP[a4, a5], n] - S2[a6, n]*S2[a1, a3, a4, a2, a5, n] - 
    S2[a1, a3, a4, a2, SP[a5, a6], n] - S2[a6, n]*S2[a1, a3, a4, a5, a2, n] + 
    S2[a2, n]*S2[a1, a3, a4, a5, a6, n] + 
    S2[a2, n]*S2[a1, a3, a4, a6, a5, n] + S2[a1, a3, a4, a6, SP[a2, a5], n] + 
    S2[a1, a3, a4, SP[a2, a5], a6, n] - S2[a1, a3, a4, SP[a5, a6], a2, n] - 
    S2[a5, n]*S2[a1, a3, a6, a2, a4, n] + 
    S2[a2, n]*S2[a1, a3, a6, a4, a5, n] + S2[a1, a3, a6, a4, SP[a2, a5], n] + 
    S2[a1, a3, a6, SP[a2, a4], a5, n] + S2[a1, a3, SP[a2, a4], a5, a6, n] + 
    S2[a1, a3, SP[a2, a4], a6, a5, n] + S2[a1, a3, SP[a2, a6], a4, a5, n] + 
    S2[a1, a3, SP[a2, a6], a5, a4, n] - S2[a1, a3, SP[a4, a6], a2, a5, n] - 
    S2[a1, a3, SP[a4, a6], a5, a2, n] - S2[a1, a3, SP[a5, a6], a2, a4, n] - 
    S2[a6, n]*S2[a1, a4, a2, a3, a5, n] - S2[a1, a4, a2, a3, SP[a5, a6], n] - 
    S2[a6, n]*S2[a1, a4, a2, a5, a3, n] - S2[a1, a4, a2, a5, SP[a3, a6], n] - 
    S2[a1, a4, a2, SP[a3, a6], a5, n] - S2[a1, a4, a2, SP[a5, a6], a3, n] - 
    S2[a6, n]*S2[a1, a4, a3, a2, a5, n] - S2[a1, a4, a3, a2, SP[a5, a6], n] - 
    S2[a6, n]*S2[a1, a4, a3, a5, a2, n] + 
    S2[a2, n]*S2[a1, a4, a3, a5, a6, n] + 
    S2[a2, n]*S2[a1, a4, a3, a6, a5, n] + S2[a1, a4, a3, a6, SP[a2, a5], n] + 
    S2[a1, a4, a3, SP[a2, a5], a6, n] - S2[a1, a4, a3, SP[a5, a6], a2, n] - 
    S2[a6, n]*S2[a1, a4, a5, a2, a3, n] - S2[a1, a4, a5, a2, SP[a3, a6], n] - 
    S2[a6, n]*S2[a1, a4, a5, a3, a2, n] + 
    S2[a2, n]*S2[a1, a4, a5, a3, a6, n] + 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] + S2[a1, a4, a5, a6, SP[a2, a3], n] + 
    S2[a1, a4, a5, SP[a2, a3], a6, n] - S2[a1, a4, a5, SP[a3, a6], a2, n] + 
    S2[a2, n]*S2[a1, a4, a6, a3, a5, n] + S2[a1, a4, a6, a3, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a4, a6, a5, a3, n] + S2[a1, a4, a6, a5, SP[a2, a3], n] + 
    S2[a1, a4, a6, SP[a2, a3], a5, n] + S2[a1, a4, a6, SP[a2, a5], a3, n] + 
    S2[a1, a4, SP[a2, a3], a5, a6, n] + S2[a1, a4, SP[a2, a3], a6, a5, n] + 
    S2[a1, a4, SP[a2, a5], a3, a6, n] + S2[a1, a4, SP[a2, a5], a6, a3, n] - 
    S2[a1, a4, SP[a3, a6], a2, a5, n] - S2[a1, a4, SP[a3, a6], a5, a2, n] - 
    S2[a1, a4, SP[a5, a6], a2, a3, n] - S2[a1, a4, SP[a5, a6], a3, a2, n] + 
    S2[a1, a5, a6, a2, SP[a3, a4], n] + S2[a1, a5, a6, SP[a2, a3], a4, n] + 
    S2[a1, a5, SP[a3, a6], a2, a4, n] - S2[a5, n]*S2[a1, a6, a2, a3, a4, n] - 
    S2[a5, n]*S2[a1, a6, a2, a4, a3, n] - 
    2*S2[a1, a6, a2, a4, SP[a3, a5], n] + S2[a1, a6, a2, a5, SP[a3, a4], n] - 
    S2[a1, a6, a2, SP[a3, a5], a4, n] - S2[a5, n]*S2[a1, a6, a3, a2, a4, n] + 
    S2[a2, n]*S2[a1, a6, a3, a4, a5, n] + S2[a1, a6, a3, a4, SP[a2, a5], n] + 
    S2[a1, a6, a3, SP[a2, a4], a5, n] + S2[a2, n]*S2[a1, a6, a4, a3, a5, n] + 
    S2[a1, a6, a4, a3, SP[a2, a5], n] + S2[a2, n]*S2[a1, a6, a4, a5, a3, n] + 
    S2[a1, a6, a4, a5, SP[a2, a3], n] + S2[a1, a6, a4, SP[a2, a3], a5, n] + 
    S2[a1, a6, a4, SP[a2, a5], a3, n] + S2[a1, a6, a5, a2, SP[a3, a4], n] + 
    S2[a1, a6, a5, SP[a2, a3], a4, n] + S2[a1, a6, SP[a2, a3], a4, a5, n] + 
    S2[a1, a6, SP[a2, a3], a5, a4, n] + S2[a1, a6, SP[a2, a4], a3, a5, n] + 
    S2[a1, a6, SP[a2, a4], a5, a3, n] - S2[a1, a6, SP[a3, a5], a2, a4, n] + 
    S2[a1, SP[a2, a4], a3, a5, a6, n] + S2[a1, SP[a2, a4], a3, a6, a5, n] + 
    S2[a1, SP[a2, a4], a5, a3, a6, n] + S2[a1, SP[a2, a4], a5, a6, a3, n] + 
    S2[a1, SP[a2, a4], a6, a3, a5, n] + S2[a1, SP[a2, a4], a6, a5, a3, n] + 
    S2[a1, SP[a2, a6], a3, a4, a5, n] + S2[a1, SP[a2, a6], a3, a5, a4, n] + 
    S2[a1, SP[a2, a6], a4, a3, a5, n] + S2[a1, SP[a2, a6], a4, a5, a3, n] + 
    S2[a1, SP[a2, a6], a5, a3, a4, n] + S2[a1, SP[a2, a6], a5, a4, a3, n] - 
    S2[a1, SP[a3, a6], a4, a2, a5, n] - S2[a1, SP[a3, a6], a4, a5, a2, n] - 
    S2[a1, SP[a4, a6], a2, a3, a5, n] - S2[a1, SP[a4, a6], a2, a5, a3, n] - 
    S2[a1, SP[a4, a6], a3, a2, a5, n] - S2[a1, SP[a4, a6], a3, a5, a2, n] - 
    S2[a1, SP[a4, a6], a5, a2, a3, n] - S2[a1, SP[a4, a6], a5, a3, a2, n] - 
    S2[a1, SP[a5, a6], a2, a3, a4, n] - S2[a1, SP[a5, a6], a2, a4, a3, n] - 
    S2[a1, SP[a5, a6], a3, a2, a4, n] - S2[a2, a1, a3, a4, SP[a5, a6], n] + 
    S2[a2, a1, a3, a6, SP[a4, a5], n] - S2[a2, a1, a4, a3, SP[a5, a6], n] - 
    2*S2[a2, a1, a4, a6, SP[a3, a5], n] - S2[a2, a1, a4, SP[a3, a5], a6, n] - 
    S2[a2, a1, a4, SP[a3, a6], a5, n] - S2[a2, a1, a4, SP[a5, a6], a3, n] + 
    S2[a2, a1, a6, a3, SP[a4, a5], n] - 2*S2[a2, a1, a6, a4, SP[a3, a5], n] - 
    S2[a2, a1, a6, SP[a3, a4], a5, n] - S2[a2, a1, a6, SP[a3, a5], a4, n] + 
    S2[a2, a1, a6, SP[a4, a5], a3, n] - S2[a2, a1, SP[a3, a4], a5, a6, n] - 
    S2[a2, a1, SP[a3, a4], a6, a5, n] - S2[a2, a1, SP[a3, a6], a4, a5, n] - 
    S2[a2, a1, SP[a3, a6], a5, a4, n] + S2[a6, n]*S2[a2, a4, a1, a3, a5, n] + 
    S2[a6, n]*S2[a2, a4, a1, a5, a3, n] + S2[a2, a4, a1, a5, SP[a3, a6], n] - 
    2*S2[a2, a4, a1, a6, SP[a3, a5], n] - S2[a2, a4, a1, SP[a3, a5], a6, n] + 
    S2[a6, n]*S2[a2, a4, a5, a1, a3, n] + S2[a2, a4, a5, a1, SP[a3, a6], n] + 
    S2[a2, a4, a5, SP[a1, a6], a3, n] - S2[a2, a4, a6, a1, SP[a3, a5], n] - 
    S2[a2, a4, a6, SP[a1, a5], a3, n] - S2[a2, a4, SP[a1, a5], a3, a6, n] - 
    S2[a2, a4, SP[a1, a5], a6, a3, n] + S2[a2, a4, SP[a5, a6], a1, a3, n] + 
    S2[a5, n]*S2[a2, a6, a1, a3, a4, n] + S2[a2, a6, a1, a3, SP[a4, a5], n] + 
    S2[a5, n]*S2[a2, a6, a1, a4, a3, n] - S2[a2, a6, a1, a5, SP[a3, a4], n] - 
    S2[a2, a6, a1, SP[a3, a4], a5, n] + S2[a2, a6, a1, SP[a4, a5], a3, n] - 
    S2[a2, a6, a4, a1, SP[a3, a5], n] - S2[a2, a6, a4, SP[a1, a5], a3, n] - 
    S2[a2, a6, a5, a1, SP[a3, a4], n] - S2[a2, a6, a5, SP[a1, a4], a3, n] - 
    S2[a2, a6, SP[a1, a4], a3, a5, n] - S2[a2, a6, SP[a1, a4], a5, a3, n] - 
    S2[a2, SP[a1, a4], a3, a5, a6, n] - S2[a2, SP[a1, a4], a3, a6, a5, n] - 
    S2[a2, SP[a1, a4], a5, a3, a6, n] - S2[a2, SP[a1, a4], a5, a6, a3, n] - 
    S2[a2, SP[a1, a4], a6, a3, a5, n] - S2[a2, SP[a1, a4], a6, a5, a3, n] - 
    S2[a2, SP[a1, a6], a3, a4, a5, n] - S2[a2, SP[a1, a6], a3, a5, a4, n] - 
    S2[a2, SP[a1, a6], a4, a3, a5, n] - S2[a2, SP[a1, a6], a4, a5, a3, n] - 
    S2[a2, SP[a1, a6], a5, a3, a4, n] - S2[a2, SP[a1, a6], a5, a4, a3, n] + 
    S2[a2, SP[a4, a6], a1, a3, a5, n] + S2[a2, SP[a4, a6], a1, a5, a3, n] + 
    S2[a2, SP[a4, a6], a5, a1, a3, n] + S2[a2, SP[a5, a6], a1, a3, a4, n] + 
    S2[a2, SP[a5, a6], a1, a4, a3, n] + S2[a5, a1, a6, a2, SP[a3, a4], n] + 
    S2[a5, a1, a6, SP[a2, a3], a4, n] + S2[a5, a1, SP[a3, a6], a2, a4, n] + 
    S2[a5, a6, a1, a2, SP[a3, a4], n] - S2[a2, n]*S2[a5, a6, a1, a3, a4, n] - 
    S2[a5, a6, a1, a3, SP[a2, a4], n] - S2[a2, n]*S2[a5, a6, a1, a4, a3, n] - 
    S2[a5, a6, a1, a4, SP[a2, a3], n] - S2[a5, a6, a1, SP[a2, a4], a3, n] + 
    S2[a5, a6, a2, a1, SP[a3, a4], n] + S2[a5, a6, a2, SP[a1, a4], a3, n] + 
    S2[a5, SP[a1, a6], a2, a3, a4, n] + S2[a5, SP[a1, a6], a2, a4, a3, n] + 
    S2[a5, SP[a1, a6], a3, a2, a4, n] - S2[a5, SP[a2, a6], a1, a3, a4, n] - 
    S2[a5, SP[a2, a6], a1, a4, a3, n] + S2[a5, n]*S2[a6, a1, a3, a4, a2, n] + 
    S2[a6, a1, a3, a4, SP[a2, a5], n] + S2[a6, a1, a3, SP[a4, a5], a2, n] + 
    S2[a5, n]*S2[a6, a1, a4, a2, a3, n] + S2[a6, a1, a4, a2, SP[a3, a5], n] + 
    S2[a5, n]*S2[a6, a1, a4, a3, a2, n] + S2[a6, a1, a4, a3, SP[a2, a5], n] + 
    S2[a6, a1, a4, SP[a2, a5], a3, n] + S2[a6, a1, a4, SP[a3, a5], a2, n] + 
    S2[a6, a1, SP[a3, a5], a4, a2, n] + S2[a6, a1, SP[a4, a5], a2, a3, n] + 
    S2[a6, a1, SP[a4, a5], a3, a2, n] - S2[a5, n]*S2[a6, a2, a4, a1, a3, n] - 
    S2[a6, a2, a4, a1, SP[a3, a5], n] - S2[a6, a2, a4, SP[a1, a5], a3, n] - 
    S2[a6, a2, SP[a4, a5], a1, a3, n] + S2[a2, n]*S2[a6, a5, a4, a1, a3, n] + 
    S2[a6, a5, a4, a1, SP[a2, a3], n] + S2[a6, a5, a4, SP[a1, a2], a3, n] + 
    S2[a6, a5, SP[a2, a4], a1, a3, n] + S2[a6, SP[a1, a5], a3, a4, a2, n] + 
    S2[a6, SP[a1, a5], a4, a2, a3, n] + S2[a6, SP[a1, a5], a4, a3, a2, n] - 
    S2[SP[a1, a6], a3, a4, a2, a5, n] - S2[SP[a1, a6], a3, a4, a5, a2, n] - 
    S2[SP[a1, a6], a4, a2, a3, a5, n] - S2[SP[a1, a6], a4, a2, a5, a3, n] - 
    S2[SP[a1, a6], a4, a3, a2, a5, n] - S2[SP[a1, a6], a4, a3, a5, a2, n] - 
    S2[SP[a1, a6], a4, a5, a2, a3, n] - S2[SP[a1, a6], a4, a5, a3, a2, n] + 
    S2[SP[a2, a6], a4, a1, a3, a5, n] + S2[SP[a2, a6], a4, a1, a5, a3, n] + 
    S2[SP[a2, a6], a4, a5, a1, a3, n] + S2[SP[a2, a6], a5, a4, a1, a3, n] + 
    S2[SP[a5, a6], a1, a3, a4, a2, n] + S2[SP[a5, a6], a1, a4, a2, a3, n] + 
    S2[SP[a5, a6], a1, a4, a3, a2, n] - S2[SP[a5, a6], a2, a4, a1, a3, n] - 
    S2[a6, a1, a3, a5, a4, a2, n] - S2[a6, a1, a5, a3, a4, a2, n] - 
    S2[a6, a1, a5, a4, a2, a3, n] - S2[a6, a1, a5, a4, a3, a2, n] - 
    S2[a6, a5, a1, a3, a4, a2, n] - S2[a6, a5, a1, a4, a2, a3, n] - 
    S2[a6, a5, a1, a4, a3, a2, n] - S2[a6, a5, a4, a1, a2, a3, n] - 
    S2[a6, a5, a4, a1, a3, a2, n] - S2[a6, a5, a4, a2, a1, a3, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a2_, a4_, a5_, a6_, a3_, a1_, n_] :> 
  S2[a1, a3, a6, n]*S2[a2, a4, a5, n] + S2[SP[a1, a2], SP[a3, a4], 
     SP[a5, a6], n] - S2[a1, a2, SP[a3, a4], SP[a5, a6], n] - 
    S2[a2, a4, n]*S2[a1, a3, a6, a5, n] + S2[a1, a3, SP[a2, a6], SP[a4, a5], 
     n] - S2[a1, SP[a2, a3], a4, SP[a5, a6], n] + S2[a1, SP[a2, a3], a6, 
     SP[a4, a5], n] - S2[a2, a1, SP[a3, a4], SP[a5, a6], n] + 
    S2[a1, a3, n]*S2[a2, a4, a6, a5, n] - S2[a2, a4, SP[a1, a6], SP[a3, a5], 
     n] + S2[a1, a3, n]*S2[a2, a6, a4, a5, n] + 
    S2[a1, a3, n]*S2[a2, a6, a5, a4, n] - S2[a2, a6, SP[a1, a4], SP[a3, a5], 
     n] - S2[a2, a6, SP[a1, a5], SP[a3, a4], n] - S2[a2, SP[a1, a4], a3, 
     SP[a5, a6], n] - S2[a2, SP[a1, a4], a6, SP[a3, a5], n] - 
    S2[a2, SP[a1, a4], SP[a3, a5], a6, n] - S2[a2, SP[a1, a4], SP[a3, a6], 
     a5, n] - S2[a2, SP[a1, a6], a4, SP[a3, a5], n] - 
    S2[a2, SP[a1, a6], a5, SP[a3, a4], n] - S2[a2, SP[a1, a6], SP[a3, a4], 
     a5, n] - S2[a2, SP[a1, a6], SP[a3, a5], a4, n] - 
    S2[a1, a3, n]*S2[a5, a6, a2, a4, n] + S2[a5, a6, SP[a1, a2], SP[a3, a4], 
     n] + S2[a5, SP[a1, a6], a2, SP[a3, a4], n] + 
    S2[a5, SP[a1, a6], SP[a2, a3], a4, n] - S2[SP[a1, a2], a3, a4, 
     SP[a5, a6], n] + S2[SP[a1, a2], a3, a6, SP[a4, a5], n] - 
    S2[SP[a1, a2], a4, a3, SP[a5, a6], n] - S2[SP[a1, a2], a4, a6, 
     SP[a3, a5], n] - S2[SP[a1, a2], a4, SP[a3, a5], a6, n] - 
    S2[SP[a1, a2], a4, SP[a3, a6], a5, n] - S2[SP[a1, a2], a6, a4, 
     SP[a3, a5], n] - S2[SP[a1, a2], a6, a5, SP[a3, a4], n] - 
    S2[SP[a1, a2], a6, SP[a3, a4], a5, n] - S2[SP[a1, a2], a6, SP[a3, a5], 
     a4, n] - S2[SP[a1, a2], SP[a3, a4], a5, a6, n] - 
    S2[SP[a1, a2], SP[a3, a4], a6, a5, n] - S2[SP[a1, a2], SP[a3, a6], a4, 
     a5, n] - S2[SP[a1, a2], SP[a3, a6], a5, a4, n] + 
    S2[SP[a1, a5], a6, a2, SP[a3, a4], n] + S2[SP[a1, a5], a6, SP[a2, a3], 
     a4, n] + S2[SP[a1, a5], SP[a3, a6], a2, a4, n] + 
    S2[a1, a2, a3, a4, SP[a5, a6], n] - S2[a1, a2, a3, a6, SP[a4, a5], n] + 
    S2[a1, a2, a4, a3, SP[a5, a6], n] + S2[a1, a2, a4, a6, SP[a3, a5], n] + 
    S2[a1, a2, a4, SP[a3, a5], a6, n] + S2[a1, a2, a4, SP[a3, a6], a5, n] + 
    S2[a1, a2, a6, a4, SP[a3, a5], n] + S2[a1, a2, a6, a5, SP[a3, a4], n] + 
    S2[a1, a2, a6, SP[a3, a4], a5, n] + S2[a1, a2, a6, SP[a3, a5], a4, n] + 
    S2[a1, a2, SP[a3, a4], a5, a6, n] + S2[a1, a2, SP[a3, a4], a6, a5, n] + 
    S2[a1, a2, SP[a3, a6], a4, a5, n] + S2[a1, a2, SP[a3, a6], a5, a4, n] + 
    S2[a1, a3, a2, a4, SP[a5, a6], n] - S2[a1, a3, a2, a6, SP[a4, a5], n] + 
    S2[a6, n]*S2[a1, a3, a4, a2, a5, n] + S2[a1, a3, a4, a2, SP[a5, a6], n] + 
    S2[a6, n]*S2[a1, a3, a4, a5, a2, n] - 
    S2[a2, n]*S2[a1, a3, a4, a5, a6, n] - 
    S2[a2, n]*S2[a1, a3, a4, a6, a5, n] - S2[a1, a3, a4, a6, SP[a2, a5], n] - 
    S2[a1, a3, a4, SP[a2, a5], a6, n] + S2[a1, a3, a4, SP[a5, a6], a2, n] + 
    S2[a5, n]*S2[a1, a3, a6, a2, a4, n] - 
    S2[a2, n]*S2[a1, a3, a6, a4, a5, n] - S2[a1, a3, a6, a4, SP[a2, a5], n] - 
    S2[a1, a3, a6, SP[a2, a4], a5, n] - S2[a1, a3, SP[a2, a4], a5, a6, n] - 
    S2[a1, a3, SP[a2, a4], a6, a5, n] - S2[a1, a3, SP[a2, a6], a4, a5, n] - 
    S2[a1, a3, SP[a2, a6], a5, a4, n] + S2[a1, a3, SP[a4, a6], a2, a5, n] + 
    S2[a1, a3, SP[a4, a6], a5, a2, n] + S2[a1, a3, SP[a5, a6], a2, a4, n] + 
    S2[a6, n]*S2[a1, a4, a2, a3, a5, n] + S2[a1, a4, a2, a3, SP[a5, a6], n] + 
    S2[a6, n]*S2[a1, a4, a2, a5, a3, n] + S2[a1, a4, a2, a5, SP[a3, a6], n] + 
    S2[a1, a4, a2, SP[a3, a6], a5, n] + S2[a1, a4, a2, SP[a5, a6], a3, n] + 
    S2[a6, n]*S2[a1, a4, a3, a2, a5, n] + S2[a1, a4, a3, a2, SP[a5, a6], n] + 
    S2[a6, n]*S2[a1, a4, a3, a5, a2, n] - 
    S2[a2, n]*S2[a1, a4, a3, a5, a6, n] - 
    S2[a2, n]*S2[a1, a4, a3, a6, a5, n] - S2[a1, a4, a3, a6, SP[a2, a5], n] - 
    S2[a1, a4, a3, SP[a2, a5], a6, n] + S2[a1, a4, a3, SP[a5, a6], a2, n] + 
    S2[a6, n]*S2[a1, a4, a5, a2, a3, n] + S2[a1, a4, a5, a2, SP[a3, a6], n] + 
    S2[a6, n]*S2[a1, a4, a5, a3, a2, n] - 
    S2[a2, n]*S2[a1, a4, a5, a3, a6, n] - 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] - S2[a1, a4, a5, a6, SP[a2, a3], n] - 
    S2[a1, a4, a5, SP[a2, a3], a6, n] + S2[a1, a4, a5, SP[a3, a6], a2, n] - 
    S2[a2, n]*S2[a1, a4, a6, a3, a5, n] - S2[a1, a4, a6, a3, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a4, a6, a5, a3, n] - S2[a1, a4, a6, a5, SP[a2, a3], n] - 
    S2[a1, a4, a6, SP[a2, a3], a5, n] - S2[a1, a4, a6, SP[a2, a5], a3, n] - 
    S2[a1, a4, SP[a2, a3], a5, a6, n] - S2[a1, a4, SP[a2, a3], a6, a5, n] - 
    S2[a1, a4, SP[a2, a5], a3, a6, n] - S2[a1, a4, SP[a2, a5], a6, a3, n] + 
    S2[a1, a4, SP[a3, a6], a2, a5, n] + S2[a1, a4, SP[a3, a6], a5, a2, n] + 
    S2[a1, a4, SP[a5, a6], a2, a3, n] + S2[a1, a4, SP[a5, a6], a3, a2, n] - 
    S2[a1, a5, a6, a2, SP[a3, a4], n] - S2[a1, a5, a6, SP[a2, a3], a4, n] - 
    S2[a1, a5, SP[a3, a6], a2, a4, n] + S2[a5, n]*S2[a1, a6, a2, a3, a4, n] + 
    S2[a1, a6, a2, a3, SP[a4, a5], n] + S2[a5, n]*S2[a1, a6, a2, a4, a3, n] + 
    S2[a1, a6, a2, a4, SP[a3, a5], n] + S2[a1, a6, a2, SP[a3, a5], a4, n] + 
    S2[a1, a6, a2, SP[a4, a5], a3, n] + S2[a5, n]*S2[a1, a6, a3, a2, a4, n] + 
    S2[a1, a6, a3, a2, SP[a4, a5], n] - S2[a2, n]*S2[a1, a6, a3, a4, a5, n] - 
    S2[a1, a6, a3, a4, SP[a2, a5], n] - S2[a2, n]*S2[a1, a6, a3, a5, a4, n] - 
    S2[a1, a6, a3, a5, SP[a2, a4], n] - S2[a1, a6, a3, SP[a2, a4], a5, n] - 
    S2[a2, n]*S2[a1, a6, a4, a3, a5, n] - S2[a1, a6, a4, a3, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a6, a4, a5, a3, n] - S2[a1, a6, a4, a5, SP[a2, a3], n] - 
    S2[a1, a6, a4, SP[a2, a3], a5, n] - S2[a1, a6, a4, SP[a2, a5], a3, n] - 
    S2[a2, n]*S2[a1, a6, a5, a3, a4, n] - S2[a1, a6, a5, a3, SP[a2, a4], n] - 
    S2[a2, n]*S2[a1, a6, a5, a4, a3, n] - S2[a1, a6, a5, a4, SP[a2, a3], n] - 
    S2[a1, a6, a5, SP[a2, a3], a4, n] - S2[a1, a6, a5, SP[a2, a4], a3, n] - 
    S2[a1, a6, SP[a2, a3], a4, a5, n] - S2[a1, a6, SP[a2, a3], a5, a4, n] - 
    S2[a1, a6, SP[a2, a4], a3, a5, n] - S2[a1, a6, SP[a2, a4], a5, a3, n] + 
    S2[a1, a6, SP[a3, a5], a2, a4, n] - S2[a1, SP[a2, a4], a3, a5, a6, n] - 
    S2[a1, SP[a2, a4], a3, a6, a5, n] - S2[a1, SP[a2, a4], a5, a3, a6, n] - 
    S2[a1, SP[a2, a4], a5, a6, a3, n] - S2[a1, SP[a2, a4], a6, a3, a5, n] - 
    S2[a1, SP[a2, a4], a6, a5, a3, n] - S2[a1, SP[a2, a6], a3, a4, a5, n] - 
    S2[a1, SP[a2, a6], a3, a5, a4, n] - S2[a1, SP[a2, a6], a4, a3, a5, n] - 
    S2[a1, SP[a2, a6], a4, a5, a3, n] - S2[a1, SP[a2, a6], a5, a3, a4, n] - 
    S2[a1, SP[a2, a6], a5, a4, a3, n] + S2[a1, SP[a3, a6], a4, a2, a5, n] + 
    S2[a1, SP[a3, a6], a4, a5, a2, n] + S2[a1, SP[a4, a6], a2, a3, a5, n] + 
    S2[a1, SP[a4, a6], a2, a5, a3, n] + S2[a1, SP[a4, a6], a3, a2, a5, n] + 
    S2[a1, SP[a4, a6], a3, a5, a2, n] + S2[a1, SP[a4, a6], a5, a2, a3, n] + 
    S2[a1, SP[a4, a6], a5, a3, a2, n] + S2[a1, SP[a5, a6], a2, a3, a4, n] + 
    S2[a1, SP[a5, a6], a2, a4, a3, n] + S2[a1, SP[a5, a6], a3, a2, a4, n] + 
    S2[a2, a1, a3, a4, SP[a5, a6], n] - S2[a2, a1, a3, a6, SP[a4, a5], n] + 
    S2[a2, a1, a4, a3, SP[a5, a6], n] + S2[a2, a1, a4, a6, SP[a3, a5], n] + 
    S2[a2, a1, a4, SP[a3, a5], a6, n] + S2[a2, a1, a4, SP[a3, a6], a5, n] + 
    S2[a2, a1, a6, a4, SP[a3, a5], n] + S2[a2, a1, a6, a5, SP[a3, a4], n] + 
    S2[a2, a1, a6, SP[a3, a4], a5, n] + S2[a2, a1, a6, SP[a3, a5], a4, n] + 
    S2[a2, a1, SP[a3, a4], a5, a6, n] + S2[a2, a1, SP[a3, a4], a6, a5, n] + 
    S2[a2, a1, SP[a3, a6], a4, a5, n] + S2[a2, a1, SP[a3, a6], a5, a4, n] - 
    S2[a6, n]*S2[a2, a4, a1, a3, a5, n] - 
    S2[a6, n]*S2[a2, a4, a1, a5, a3, n] - S2[a2, a4, a1, a5, SP[a3, a6], n] + 
    S2[a2, a4, a1, a6, SP[a3, a5], n] + S2[a2, a4, a1, SP[a3, a5], a6, n] - 
    S2[a2, a4, a1, SP[a5, a6], a3, n] - S2[a6, n]*S2[a2, a4, a5, a1, a3, n] - 
    S2[a2, a4, a5, a1, SP[a3, a6], n] + S2[a1, n]*S2[a2, a4, a5, a6, a3, n] + 
    S2[a2, a4, a5, a6, SP[a1, a3], n] + S2[a2, a4, a6, a1, SP[a3, a5], n] + 
    S2[a2, a4, a6, SP[a1, a5], a3, n] + S2[a2, a4, SP[a1, a5], a3, a6, n] + 
    S2[a2, a4, SP[a1, a5], a6, a3, n] - S2[a2, a4, SP[a5, a6], a1, a3, n] - 
    S2[a5, n]*S2[a2, a6, a1, a3, a4, n] - S2[a2, a6, a1, a3, SP[a4, a5], n] - 
    S2[a5, n]*S2[a2, a6, a1, a4, a3, n] + S2[a2, a6, a1, a5, SP[a3, a4], n] + 
    S2[a2, a6, a1, SP[a3, a4], a5, n] - S2[a2, a6, a1, SP[a4, a5], a3, n] + 
    S2[a2, a6, a4, a1, SP[a3, a5], n] + S2[a2, a6, a4, SP[a1, a5], a3, n] + 
    S2[a2, a6, a5, a1, SP[a3, a4], n] + S2[a2, a6, a5, SP[a1, a4], a3, n] + 
    S2[a2, a6, SP[a1, a4], a3, a5, n] + S2[a2, a6, SP[a1, a4], a5, a3, n] + 
    S2[a2, SP[a1, a4], a3, a5, a6, n] + S2[a2, SP[a1, a4], a3, a6, a5, n] + 
    S2[a2, SP[a1, a4], a5, a3, a6, n] + S2[a2, SP[a1, a4], a5, a6, a3, n] + 
    S2[a2, SP[a1, a4], a6, a3, a5, n] + S2[a2, SP[a1, a4], a6, a5, a3, n] + 
    S2[a2, SP[a1, a6], a3, a4, a5, n] + S2[a2, SP[a1, a6], a3, a5, a4, n] + 
    S2[a2, SP[a1, a6], a4, a3, a5, n] + S2[a2, SP[a1, a6], a4, a5, a3, n] + 
    S2[a2, SP[a1, a6], a5, a3, a4, n] + S2[a2, SP[a1, a6], a5, a4, a3, n] - 
    S2[a2, SP[a4, a6], a1, a3, a5, n] - S2[a2, SP[a4, a6], a1, a5, a3, n] - 
    S2[a2, SP[a4, a6], a5, a1, a3, n] - S2[a2, SP[a5, a6], a1, a3, a4, n] - 
    S2[a2, SP[a5, a6], a1, a4, a3, n] - S2[a5, a1, a6, a2, SP[a3, a4], n] - 
    S2[a5, a1, a6, SP[a2, a3], a4, n] - S2[a5, a1, SP[a3, a6], a2, a4, n] - 
    S2[a5, a6, a1, a2, SP[a3, a4], n] + S2[a2, n]*S2[a5, a6, a1, a3, a4, n] + 
    S2[a5, a6, a1, a3, SP[a2, a4], n] + S2[a2, n]*S2[a5, a6, a1, a4, a3, n] + 
    S2[a5, a6, a1, a4, SP[a2, a3], n] + S2[a5, a6, a1, SP[a2, a4], a3, n] - 
    S2[a5, a6, a2, a1, SP[a3, a4], n] - S2[a5, a6, a2, SP[a1, a4], a3, n] - 
    S2[a5, SP[a1, a6], a2, a3, a4, n] - S2[a5, SP[a1, a6], a2, a4, a3, n] - 
    S2[a5, SP[a1, a6], a3, a2, a4, n] + S2[a5, SP[a2, a6], a1, a3, a4, n] + 
    S2[a5, SP[a2, a6], a1, a4, a3, n] - S2[a5, n]*S2[a6, a1, a3, a4, a2, n] - 
    S2[a6, a1, a3, a4, SP[a2, a5], n] - S2[a6, a1, a3, SP[a4, a5], a2, n] - 
    S2[a5, n]*S2[a6, a1, a4, a2, a3, n] - S2[a6, a1, a4, a2, SP[a3, a5], n] - 
    S2[a5, n]*S2[a6, a1, a4, a3, a2, n] - S2[a6, a1, a4, a3, SP[a2, a5], n] - 
    S2[a6, a1, a4, SP[a2, a5], a3, n] - S2[a6, a1, a4, SP[a3, a5], a2, n] - 
    S2[a6, a1, SP[a3, a5], a4, a2, n] - S2[a6, a1, SP[a4, a5], a2, a3, n] - 
    S2[a6, a1, SP[a4, a5], a3, a2, n] + S2[a5, n]*S2[a6, a2, a4, a1, a3, n] + 
    S2[a6, a2, a4, a1, SP[a3, a5], n] + S2[a6, a2, a4, SP[a1, a5], a3, n] + 
    S2[a6, a2, SP[a4, a5], a1, a3, n] + S2[a1, n]*S2[a6, a3, a5, a4, a2, n] + 
    S2[a6, a3, a5, a4, SP[a1, a2], n] + S2[a6, a3, a5, SP[a1, a4], a2, n] + 
    S2[a6, a3, SP[a1, a5], a4, a2, n] + S2[a1, n]*S2[a6, a5, a3, a4, a2, n] + 
    S2[a6, a5, a3, a4, SP[a1, a2], n] + S2[a6, a5, a3, SP[a1, a4], a2, n] - 
    S2[a2, n]*S2[a6, a5, a4, a1, a3, n] - S2[a6, a5, a4, a1, SP[a2, a3], n] + 
    S2[a1, n]*S2[a6, a5, a4, a2, a3, n] + S2[a6, a5, a4, a2, SP[a1, a3], n] + 
    S2[a1, n]*S2[a6, a5, a4, a3, a2, n] + S2[a6, a5, a4, a3, SP[a1, a2], n] + 
    S2[a6, a5, a4, SP[a1, a3], a2, n] + S2[a6, a5, SP[a1, a3], a4, a2, n] + 
    S2[a6, a5, SP[a1, a4], a2, a3, n] + S2[a6, a5, SP[a1, a4], a3, a2, n] - 
    S2[a6, a5, SP[a2, a4], a1, a3, n] + S2[a6, SP[a1, a3], a5, a4, a2, n] + 
    S2[SP[a1, a6], a3, a4, a2, a5, n] + S2[SP[a1, a6], a3, a4, a5, a2, n] + 
    S2[SP[a1, a6], a3, a5, a4, a2, n] + S2[SP[a1, a6], a4, a2, a3, a5, n] + 
    S2[SP[a1, a6], a4, a2, a5, a3, n] + S2[SP[a1, a6], a4, a3, a2, a5, n] + 
    S2[SP[a1, a6], a4, a3, a5, a2, n] + S2[SP[a1, a6], a4, a5, a2, a3, n] + 
    S2[SP[a1, a6], a4, a5, a3, a2, n] + S2[SP[a1, a6], a5, a3, a4, a2, n] + 
    S2[SP[a1, a6], a5, a4, a2, a3, n] + S2[SP[a1, a6], a5, a4, a3, a2, n] - 
    S2[SP[a2, a6], a4, a1, a3, a5, n] - S2[SP[a2, a6], a4, a1, a5, a3, n] - 
    S2[SP[a2, a6], a4, a5, a1, a3, n] - S2[SP[a2, a6], a5, a4, a1, a3, n] - 
    S2[SP[a5, a6], a1, a3, a4, a2, n] - S2[SP[a5, a6], a1, a4, a2, a3, n] - 
    S2[SP[a5, a6], a1, a4, a3, a2, n] + S2[SP[a5, a6], a2, a4, a1, a3, n] - 
    S2[a6, a3, a1, a5, a4, a2, n] - S2[a6, a3, a5, a1, a4, a2, n] - 
    S2[a6, a3, a5, a4, a1, a2, n] - S2[a6, a3, a5, a4, a2, a1, n] - 
    S2[a6, a5, a3, a1, a4, a2, n] - S2[a6, a5, a3, a4, a1, a2, n] - 
    S2[a6, a5, a3, a4, a2, a1, n] - S2[a6, a5, a4, a2, a3, a1, n] - 
    S2[a6, a5, a4, a3, a1, a2, n] - S2[a6, a5, a4, a3, a2, a1, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a2_, a4_, a6_, a1_, a3_, a5_, n_] :> 
  -(S2[a2, a4, n]*S2[a1, a3, a5, a6, n]) - S2[a2, a4, n]*
     S2[a1, a3, a6, a5, n] + S2[a1, a3, SP[a2, a5], SP[a4, a6], n] + 
    S2[a1, a3, SP[a2, a6], SP[a4, a5], n] - S2[a2, a4, n]*
     S2[a1, a6, a3, a5, n] + S2[a1, a6, SP[a2, a3], SP[a4, a5], n] + 
    S2[a1, SP[a2, a3], a5, SP[a4, a6], n] + S2[a1, SP[a2, a3], a6, 
     SP[a4, a5], n] + S2[a1, SP[a2, a3], SP[a4, a5], a6, n] + 
    S2[a1, SP[a2, a3], SP[a4, a6], a5, n] + S2[a1, SP[a2, a6], a3, 
     SP[a4, a5], n] + S2[a1, SP[a2, a6], SP[a3, a4], a5, n] + 
    S2[SP[a1, a2], a3, a5, SP[a4, a6], n] + S2[SP[a1, a2], a3, a6, 
     SP[a4, a5], n] + S2[SP[a1, a2], a3, SP[a4, a5], a6, n] + 
    S2[SP[a1, a2], a3, SP[a4, a6], a5, n] + S2[SP[a1, a2], a6, a3, 
     SP[a4, a5], n] + S2[SP[a1, a2], a6, SP[a3, a4], a5, n] + 
    S2[SP[a1, a2], SP[a3, a4], a5, a6, n] + S2[SP[a1, a2], SP[a3, a4], a6, 
     a5, n] + S2[SP[a1, a2], SP[a4, a6], a3, a5, n] - 
    S2[a1, a2, a3, a5, SP[a4, a6], n] - S2[a1, a2, a3, a6, SP[a4, a5], n] - 
    S2[a1, a2, a3, SP[a4, a5], a6, n] - S2[a1, a2, a3, SP[a4, a6], a5, n] - 
    S2[a1, a2, a6, a3, SP[a4, a5], n] - S2[a1, a2, a6, SP[a3, a4], a5, n] - 
    S2[a1, a2, SP[a3, a4], a5, a6, n] - S2[a1, a2, SP[a3, a4], a6, a5, n] - 
    S2[a1, a2, SP[a4, a6], a3, a5, n] - S2[a1, a3, a2, a5, SP[a4, a6], n] - 
    S2[a1, a3, a2, a6, SP[a4, a5], n] - S2[a1, a3, a2, SP[a4, a5], a6, n] - 
    S2[a1, a3, a2, SP[a4, a6], a5, n] - S2[a6, n]*S2[a1, a3, a4, a2, a5, n] - 
    S2[a1, a3, a4, a2, SP[a5, a6], n] - S2[a6, n]*S2[a1, a3, a4, a5, a2, n] + 
    S2[a2, n]*S2[a1, a3, a4, a5, a6, n] + 
    S2[a2, n]*S2[a1, a3, a4, a6, a5, n] + S2[a1, a3, a4, a6, SP[a2, a5], n] + 
    S2[a1, a3, a4, SP[a2, a5], a6, n] - S2[a1, a3, a4, SP[a5, a6], a2, n] - 
    S2[a1, a3, a5, a2, SP[a4, a6], n] - S2[a6, n]*S2[a1, a3, a5, a4, a2, n] + 
    S2[a2, n]*S2[a1, a3, a5, a4, a6, n] + 
    S2[a2, n]*S2[a1, a3, a5, a6, a4, n] + S2[a1, a3, a5, a6, SP[a2, a4], n] + 
    S2[a1, a3, a5, SP[a2, a4], a6, n] - S2[a1, a3, a5, SP[a4, a6], a2, n] - 
    S2[a1, a3, a6, a2, SP[a4, a5], n] + S2[a2, n]*S2[a1, a3, a6, a4, a5, n] + 
    S2[a1, a3, a6, a4, SP[a2, a5], n] + S2[a2, n]*S2[a1, a3, a6, a5, a4, n] + 
    S2[a1, a3, a6, a5, SP[a2, a4], n] + S2[a1, a3, a6, SP[a2, a4], a5, n] + 
    S2[a1, a3, SP[a2, a4], a5, a6, n] + S2[a1, a3, SP[a2, a4], a6, a5, n] - 
    S2[a1, a3, SP[a4, a6], a2, a5, n] - S2[a1, a3, SP[a4, a6], a5, a2, n] - 
    S2[a1, a3, SP[a5, a6], a4, a2, n] - S2[a6, n]*S2[a1, a4, a2, a3, a5, n] - 
    S2[a1, a4, a2, a3, SP[a5, a6], n] - S2[a1, a4, a2, SP[a3, a6], a5, n] - 
    S2[a6, n]*S2[a1, a4, a3, a2, a5, n] - S2[a1, a4, a3, a2, SP[a5, a6], n] - 
    S2[a6, n]*S2[a1, a4, a3, a5, a2, n] + 
    S2[a2, n]*S2[a1, a4, a3, a5, a6, n] + 
    S2[a2, n]*S2[a1, a4, a3, a6, a5, n] + S2[a1, a4, a3, a6, SP[a2, a5], n] + 
    S2[a1, a4, a3, SP[a2, a5], a6, n] - S2[a1, a4, a3, SP[a5, a6], a2, n] + 
    S2[a2, n]*S2[a1, a4, a6, a3, a5, n] + S2[a1, a4, a6, a3, SP[a2, a5], n] + 
    S2[a1, a4, a6, SP[a2, a3], a5, n] + S2[a1, a4, SP[a2, a3], a5, a6, n] + 
    S2[a1, a4, SP[a2, a3], a6, a5, n] - S2[a1, a4, SP[a3, a6], a2, a5, n] - 
    S2[a1, a4, SP[a3, a6], a5, a2, n] - S2[a1, a6, a2, a3, SP[a4, a5], n] - 
    S2[a1, a6, a2, SP[a3, a4], a5, n] - S2[a1, a6, a3, a2, SP[a4, a5], n] + 
    S2[a2, n]*S2[a1, a6, a3, a4, a5, n] + S2[a1, a6, a3, a4, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a6, a3, a5, a4, n] + S2[a1, a6, a3, a5, SP[a2, a4], n] + 
    S2[a1, a6, a3, SP[a2, a4], a5, n] + S2[a2, n]*S2[a1, a6, a4, a3, a5, n] + 
    S2[a1, a6, a4, a3, SP[a2, a5], n] + S2[a1, a6, a4, SP[a2, a3], a5, n] + 
    S2[a1, a6, SP[a2, a4], a3, a5, n] + S2[a1, SP[a2, a4], a3, a5, a6, n] + 
    S2[a1, SP[a2, a4], a3, a6, a5, n] + S2[a1, SP[a2, a4], a6, a3, a5, n] - 
    S2[a1, SP[a3, a6], a4, a2, a5, n] - S2[a1, SP[a3, a6], a4, a5, a2, n] - 
    S2[a1, SP[a3, a6], a5, a4, a2, n] - S2[a1, SP[a4, a6], a2, a3, a5, n] - 
    S2[a1, SP[a4, a6], a3, a2, a5, n] - S2[a1, SP[a4, a6], a3, a5, a2, n] - 
    S2[a2, a1, a3, a5, SP[a4, a6], n] - S2[a2, a1, a3, a6, SP[a4, a5], n] - 
    S2[a2, a1, a3, SP[a4, a5], a6, n] - S2[a2, a1, a3, SP[a4, a6], a5, n] - 
    S2[a2, a1, a6, a3, SP[a4, a5], n] - S2[a2, a1, a6, SP[a3, a4], a5, n] - 
    S2[a2, a1, SP[a3, a4], a5, a6, n] - S2[a2, a1, SP[a3, a4], a6, a5, n] - 
    S2[a2, a1, SP[a4, a6], a3, a5, n] + S2[a6, n]*S2[a2, a4, a1, a3, a5, n] + 
    S2[a2, a4, a1, a3, SP[a5, a6], n] + S2[a2, a4, a1, SP[a3, a6], a5, n] + 
    S2[a2, a4, SP[a1, a6], a3, a5, n] - S2[a2, SP[a1, a4], a3, a5, a6, n] - 
    S2[a2, SP[a1, a4], a3, a6, a5, n] - S2[a2, SP[a1, a4], a6, a3, a5, n] + 
    S2[a2, SP[a4, a6], a1, a3, a5, n] - S2[a2, n]*S2[a6, a4, a1, a3, a5, n] - 
    S2[a6, a4, a1, a3, SP[a2, a5], n] - S2[a6, a4, a1, SP[a2, a3], a5, n] - 
    S2[a6, a4, SP[a1, a2], a3, a5, n] - S2[a6, SP[a2, a4], a1, a3, a5, n] - 
    S2[SP[a1, a6], a3, a4, a2, a5, n] - S2[SP[a1, a6], a3, a4, a5, a2, n] - 
    S2[SP[a1, a6], a3, a5, a4, a2, n] - S2[SP[a1, a6], a4, a2, a3, a5, n] - 
    S2[SP[a1, a6], a4, a3, a2, a5, n] - S2[SP[a1, a6], a4, a3, a5, a2, n] + 
    S2[a6, a1, a3, a4, a2, a5, n] + S2[a6, a1, a3, a4, a5, a2, n] + 
    S2[a6, a1, a3, a5, a4, a2, n] + S2[a6, a1, a4, a2, a3, a5, n] + 
    S2[a6, a1, a4, a3, a2, a5, n] + S2[a6, a1, a4, a3, a5, a2, n] + 
    S2[a6, a4, a1, a2, a3, a5, n] + S2[a6, a4, a1, a3, a2, a5, n] + 
    S2[a6, a4, a1, a3, a5, a2, n] + S2[a6, a4, a2, a1, a3, a5, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a2_, a4_, a6_, a1_, a5_, a3_, n_] :> 
  -(S2[a2, a4, n]*S2[a1, a5, a3, a6, n]) - S2[a2, a4, n]*
     S2[a1, a5, a6, a3, n] + S2[a1, a5, SP[a2, a3], SP[a4, a6], n] + 
    S2[a1, a5, SP[a2, a6], SP[a3, a4], n] - S2[a2, a4, n]*
     S2[a1, a6, a5, a3, n] + S2[a1, a6, SP[a2, a5], SP[a3, a4], n] + 
    S2[a1, SP[a2, a5], a3, SP[a4, a6], n] + S2[a1, SP[a2, a5], a6, 
     SP[a3, a4], n] + S2[a1, SP[a2, a5], SP[a3, a4], a6, n] + 
    S2[a1, SP[a2, a5], SP[a4, a6], a3, n] + S2[a1, SP[a2, a6], a5, 
     SP[a3, a4], n] + S2[a1, SP[a2, a6], SP[a4, a5], a3, n] + 
    S2[SP[a1, a2], a5, a3, SP[a4, a6], n] + S2[SP[a1, a2], a5, a6, 
     SP[a3, a4], n] + S2[SP[a1, a2], a5, SP[a3, a4], a6, n] + 
    S2[SP[a1, a2], a5, SP[a4, a6], a3, n] + S2[SP[a1, a2], a6, a5, 
     SP[a3, a4], n] + S2[SP[a1, a2], a6, SP[a4, a5], a3, n] + 
    S2[SP[a1, a2], SP[a4, a5], a3, a6, n] + S2[SP[a1, a2], SP[a4, a5], a6, 
     a3, n] + S2[SP[a1, a2], SP[a4, a6], a5, a3, n] - 
    S2[a1, a2, a5, a3, SP[a4, a6], n] - S2[a1, a2, a5, a6, SP[a3, a4], n] - 
    S2[a1, a2, a5, SP[a3, a4], a6, n] - S2[a1, a2, a5, SP[a4, a6], a3, n] - 
    S2[a1, a2, a6, a5, SP[a3, a4], n] - S2[a1, a2, a6, SP[a4, a5], a3, n] - 
    S2[a1, a2, SP[a4, a5], a3, a6, n] - S2[a1, a2, SP[a4, a5], a6, a3, n] - 
    S2[a1, a2, SP[a4, a6], a5, a3, n] - S2[a6, n]*S2[a1, a4, a2, a5, a3, n] - 
    S2[a1, a4, a2, a5, SP[a3, a6], n] - S2[a1, a4, a2, SP[a5, a6], a3, n] - 
    S2[a6, n]*S2[a1, a4, a5, a2, a3, n] - S2[a1, a4, a5, a2, SP[a3, a6], n] - 
    S2[a6, n]*S2[a1, a4, a5, a3, a2, n] + 
    S2[a2, n]*S2[a1, a4, a5, a3, a6, n] + 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] + S2[a1, a4, a5, a6, SP[a2, a3], n] + 
    S2[a1, a4, a5, SP[a2, a3], a6, n] - S2[a1, a4, a5, SP[a3, a6], a2, n] + 
    S2[a2, n]*S2[a1, a4, a6, a5, a3, n] + S2[a1, a4, a6, a5, SP[a2, a3], n] + 
    S2[a1, a4, a6, SP[a2, a5], a3, n] + S2[a1, a4, SP[a2, a5], a3, a6, n] + 
    S2[a1, a4, SP[a2, a5], a6, a3, n] - S2[a1, a4, SP[a5, a6], a2, a3, n] - 
    S2[a1, a4, SP[a5, a6], a3, a2, n] - S2[a1, a5, a2, a3, SP[a4, a6], n] - 
    S2[a1, a5, a2, a6, SP[a3, a4], n] - S2[a1, a5, a2, SP[a3, a4], a6, n] - 
    S2[a1, a5, a2, SP[a4, a6], a3, n] - S2[a1, a5, a3, a2, SP[a4, a6], n] - 
    S2[a6, n]*S2[a1, a5, a3, a4, a2, n] + 
    S2[a2, n]*S2[a1, a5, a3, a4, a6, n] + 
    S2[a2, n]*S2[a1, a5, a3, a6, a4, n] + S2[a1, a5, a3, a6, SP[a2, a4], n] + 
    S2[a1, a5, a3, SP[a2, a4], a6, n] - S2[a1, a5, a3, SP[a4, a6], a2, n] - 
    S2[a6, n]*S2[a1, a5, a4, a2, a3, n] - S2[a1, a5, a4, a2, SP[a3, a6], n] - 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] + 
    S2[a2, n]*S2[a1, a5, a4, a3, a6, n] + 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] + S2[a1, a5, a4, a6, SP[a2, a3], n] + 
    S2[a1, a5, a4, SP[a2, a3], a6, n] - S2[a1, a5, a4, SP[a3, a6], a2, n] - 
    S2[a1, a5, a6, a2, SP[a3, a4], n] + S2[a2, n]*S2[a1, a5, a6, a3, a4, n] + 
    S2[a1, a5, a6, a3, SP[a2, a4], n] + S2[a2, n]*S2[a1, a5, a6, a4, a3, n] + 
    S2[a1, a5, a6, a4, SP[a2, a3], n] + S2[a1, a5, a6, SP[a2, a4], a3, n] + 
    S2[a1, a5, SP[a2, a4], a3, a6, n] + S2[a1, a5, SP[a2, a4], a6, a3, n] - 
    S2[a1, a5, SP[a3, a6], a4, a2, n] - S2[a1, a5, SP[a4, a6], a2, a3, n] - 
    S2[a1, a5, SP[a4, a6], a3, a2, n] - S2[a1, a6, a2, a5, SP[a3, a4], n] - 
    S2[a1, a6, a2, SP[a4, a5], a3, n] + S2[a2, n]*S2[a1, a6, a4, a5, a3, n] + 
    S2[a1, a6, a4, a5, SP[a2, a3], n] + S2[a1, a6, a4, SP[a2, a5], a3, n] - 
    S2[a1, a6, a5, a2, SP[a3, a4], n] + S2[a2, n]*S2[a1, a6, a5, a3, a4, n] + 
    S2[a1, a6, a5, a3, SP[a2, a4], n] + S2[a2, n]*S2[a1, a6, a5, a4, a3, n] + 
    S2[a1, a6, a5, a4, SP[a2, a3], n] + S2[a1, a6, a5, SP[a2, a4], a3, n] + 
    S2[a1, a6, SP[a2, a4], a5, a3, n] + S2[a1, SP[a2, a4], a5, a3, a6, n] + 
    S2[a1, SP[a2, a4], a5, a6, a3, n] + S2[a1, SP[a2, a4], a6, a5, a3, n] - 
    S2[a1, SP[a4, a6], a2, a5, a3, n] - S2[a1, SP[a4, a6], a5, a2, a3, n] - 
    S2[a1, SP[a4, a6], a5, a3, a2, n] - S2[a1, SP[a5, a6], a3, a4, a2, n] - 
    S2[a1, SP[a5, a6], a4, a2, a3, n] - S2[a1, SP[a5, a6], a4, a3, a2, n] - 
    S2[a2, a1, a5, a3, SP[a4, a6], n] - S2[a2, a1, a5, a6, SP[a3, a4], n] - 
    S2[a2, a1, a5, SP[a3, a4], a6, n] - S2[a2, a1, a5, SP[a4, a6], a3, n] - 
    S2[a2, a1, a6, a5, SP[a3, a4], n] - S2[a2, a1, a6, SP[a4, a5], a3, n] - 
    S2[a2, a1, SP[a4, a5], a3, a6, n] - S2[a2, a1, SP[a4, a5], a6, a3, n] - 
    S2[a2, a1, SP[a4, a6], a5, a3, n] + S2[a6, n]*S2[a2, a4, a1, a5, a3, n] + 
    S2[a2, a4, a1, a5, SP[a3, a6], n] + S2[a2, a4, a1, SP[a5, a6], a3, n] + 
    S2[a2, a4, SP[a1, a6], a5, a3, n] - S2[a2, SP[a1, a4], a5, a3, a6, n] - 
    S2[a2, SP[a1, a4], a5, a6, a3, n] - S2[a2, SP[a1, a4], a6, a5, a3, n] + 
    S2[a2, SP[a4, a6], a1, a5, a3, n] - S2[a2, n]*S2[a6, a4, a1, a5, a3, n] - 
    S2[a6, a4, a1, a5, SP[a2, a3], n] - S2[a6, a4, a1, SP[a2, a5], a3, n] - 
    S2[a6, a4, SP[a1, a2], a5, a3, n] - S2[a6, SP[a2, a4], a1, a5, a3, n] - 
    S2[SP[a1, a6], a4, a2, a5, a3, n] - S2[SP[a1, a6], a4, a5, a2, a3, n] - 
    S2[SP[a1, a6], a4, a5, a3, a2, n] - S2[SP[a1, a6], a5, a3, a4, a2, n] - 
    S2[SP[a1, a6], a5, a4, a2, a3, n] - S2[SP[a1, a6], a5, a4, a3, a2, n] + 
    S2[a6, a1, a4, a2, a5, a3, n] + S2[a6, a1, a4, a5, a2, a3, n] + 
    S2[a6, a1, a4, a5, a3, a2, n] + S2[a6, a1, a5, a3, a4, a2, n] + 
    S2[a6, a1, a5, a4, a2, a3, n] + S2[a6, a1, a5, a4, a3, a2, n] + 
    S2[a6, a4, a1, a2, a5, a3, n] + S2[a6, a4, a1, a5, a2, a3, n] + 
    S2[a6, a4, a1, a5, a3, a2, n] + S2[a6, a4, a2, a1, a5, a3, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a2_, a4_, a6_, a3_, a1_, a5_, n_] :> 
  S2[a2, a4, n]*S2[a1, a3, a5, a6, n] + S2[a2, a4, n]*S2[a1, a3, a6, a5, n] - 
    S2[a1, a3, SP[a2, a5], SP[a4, a6], n] - S2[a1, a3, SP[a2, a6], 
     SP[a4, a5], n] + S2[a2, a4, n]*S2[a1, a5, a3, a6, n] - 
    S2[a1, a5, SP[a2, a3], SP[a4, a6], n] - S2[a1, SP[a2, a3], a5, 
     SP[a4, a6], n] - S2[a1, SP[a2, a3], a6, SP[a4, a5], n] - 
    S2[a1, SP[a2, a3], SP[a4, a5], a6, n] - S2[a1, SP[a2, a3], SP[a4, a6], 
     a5, n] - S2[a1, SP[a2, a5], a3, SP[a4, a6], n] - 
    S2[a1, SP[a2, a5], SP[a3, a4], a6, n] + S2[a1, a5, n]*
     S2[a2, a4, a6, a3, n] - S2[a2, a4, SP[a1, a6], SP[a3, a5], n] + 
    S2[a1, a5, n]*S2[a2, a6, a3, a4, n] + S2[a1, a5, n]*
     S2[a2, a6, a4, a3, n] - S2[a2, a6, SP[a1, a3], SP[a4, a5], n] - 
    S2[a2, a6, SP[a1, a4], SP[a3, a5], n] - S2[a2, SP[a1, a4], a6, 
     SP[a3, a5], n] - S2[a2, SP[a1, a4], SP[a5, a6], a3, n] - 
    S2[a2, SP[a1, a6], a3, SP[a4, a5], n] - S2[a2, SP[a1, a6], a4, 
     SP[a3, a5], n] - S2[a2, SP[a1, a6], SP[a3, a5], a4, n] - 
    S2[a2, SP[a1, a6], SP[a4, a5], a3, n] - S2[a1, a5, n]*
     S2[a3, a6, a2, a4, n] + S2[a3, a6, SP[a1, a2], SP[a4, a5], n] + 
    S2[a3, SP[a1, a6], a2, SP[a4, a5], n] + S2[a3, SP[a1, a6], SP[a2, a5], 
     a4, n] - S2[SP[a1, a2], a3, a5, SP[a4, a6], n] - 
    S2[SP[a1, a2], a3, a6, SP[a4, a5], n] - S2[SP[a1, a2], a3, SP[a4, a5], 
     a6, n] - S2[SP[a1, a2], a3, SP[a4, a6], a5, n] - 
    S2[SP[a1, a2], a4, a6, SP[a3, a5], n] - S2[SP[a1, a2], a4, SP[a5, a6], 
     a3, n] - S2[SP[a1, a2], a5, a3, SP[a4, a6], n] - 
    S2[SP[a1, a2], a5, SP[a3, a4], a6, n] - S2[SP[a1, a2], a6, a3, 
     SP[a4, a5], n] - S2[SP[a1, a2], a6, a4, SP[a3, a5], n] - 
    S2[SP[a1, a2], a6, SP[a3, a5], a4, n] - S2[SP[a1, a2], a6, SP[a4, a5], 
     a3, n] - S2[SP[a1, a2], SP[a3, a4], a5, a6, n] - 
    S2[SP[a1, a2], SP[a3, a4], a6, a5, n] - S2[SP[a1, a2], SP[a4, a5], a3, 
     a6, n] - S2[SP[a1, a2], SP[a4, a5], a6, a3, n] - 
    S2[SP[a1, a2], SP[a5, a6], a3, a4, n] - S2[SP[a1, a2], SP[a5, a6], a4, 
     a3, n] + S2[SP[a1, a3], a6, a2, SP[a4, a5], n] + 
    S2[SP[a1, a3], a6, SP[a2, a5], a4, n] + S2[SP[a1, a3], SP[a5, a6], a2, 
     a4, n] + S2[a1, a2, a3, a5, SP[a4, a6], n] + 
    S2[a1, a2, a3, a6, SP[a4, a5], n] + S2[a1, a2, a3, SP[a4, a5], a6, n] + 
    S2[a1, a2, a3, SP[a4, a6], a5, n] + S2[a1, a2, a4, a6, SP[a3, a5], n] + 
    S2[a1, a2, a4, SP[a5, a6], a3, n] + S2[a1, a2, a5, a3, SP[a4, a6], n] + 
    S2[a1, a2, a5, SP[a3, a4], a6, n] + S2[a1, a2, a6, a3, SP[a4, a5], n] + 
    S2[a1, a2, a6, a4, SP[a3, a5], n] + S2[a1, a2, a6, SP[a3, a5], a4, n] + 
    S2[a1, a2, a6, SP[a4, a5], a3, n] + S2[a1, a2, SP[a3, a4], a5, a6, n] + 
    S2[a1, a2, SP[a3, a4], a6, a5, n] + S2[a1, a2, SP[a4, a5], a3, a6, n] + 
    S2[a1, a2, SP[a4, a5], a6, a3, n] + S2[a1, a2, SP[a5, a6], a3, a4, n] + 
    S2[a1, a2, SP[a5, a6], a4, a3, n] + S2[a1, a3, a2, a5, SP[a4, a6], n] + 
    S2[a1, a3, a2, a6, SP[a4, a5], n] + S2[a1, a3, a2, SP[a4, a5], a6, n] + 
    S2[a1, a3, a2, SP[a4, a6], a5, n] + S2[a6, n]*S2[a1, a3, a4, a2, a5, n] + 
    S2[a1, a3, a4, a2, SP[a5, a6], n] + S2[a6, n]*S2[a1, a3, a4, a5, a2, n] - 
    S2[a2, n]*S2[a1, a3, a4, a5, a6, n] - 
    S2[a2, n]*S2[a1, a3, a4, a6, a5, n] - S2[a1, a3, a4, a6, SP[a2, a5], n] - 
    S2[a1, a3, a4, SP[a2, a5], a6, n] + S2[a1, a3, a4, SP[a5, a6], a2, n] + 
    S2[a1, a3, a5, a2, SP[a4, a6], n] + S2[a6, n]*S2[a1, a3, a5, a4, a2, n] - 
    S2[a2, n]*S2[a1, a3, a5, a4, a6, n] - 
    S2[a2, n]*S2[a1, a3, a5, a6, a4, n] - S2[a1, a3, a5, a6, SP[a2, a4], n] - 
    S2[a1, a3, a5, SP[a2, a4], a6, n] + S2[a1, a3, a5, SP[a4, a6], a2, n] - 
    S2[a2, n]*S2[a1, a3, a6, a4, a5, n] - S2[a1, a3, a6, a4, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a3, a6, a5, a4, n] - S2[a1, a3, a6, a5, SP[a2, a4], n] - 
    S2[a1, a3, a6, SP[a2, a4], a5, n] - S2[a1, a3, a6, SP[a2, a5], a4, n] - 
    S2[a1, a3, SP[a2, a4], a5, a6, n] - S2[a1, a3, SP[a2, a4], a6, a5, n] + 
    S2[a1, a3, SP[a4, a6], a2, a5, n] + S2[a1, a3, SP[a4, a6], a5, a2, n] - 
    S2[a1, a3, SP[a5, a6], a2, a4, n] + S2[a1, a3, SP[a5, a6], a4, a2, n] + 
    S2[a6, n]*S2[a1, a4, a2, a3, a5, n] + S2[a1, a4, a2, a3, SP[a5, a6], n] + 
    S2[a6, n]*S2[a1, a4, a2, a5, a3, n] + S2[a1, a4, a2, a5, SP[a3, a6], n] + 
    S2[a1, a4, a2, SP[a3, a6], a5, n] + S2[a1, a4, a2, SP[a5, a6], a3, n] + 
    S2[a6, n]*S2[a1, a4, a3, a2, a5, n] + S2[a1, a4, a3, a2, SP[a5, a6], n] + 
    S2[a6, n]*S2[a1, a4, a3, a5, a2, n] - 
    S2[a2, n]*S2[a1, a4, a3, a5, a6, n] - 
    S2[a2, n]*S2[a1, a4, a3, a6, a5, n] - S2[a1, a4, a3, a6, SP[a2, a5], n] - 
    S2[a1, a4, a3, SP[a2, a5], a6, n] + S2[a1, a4, a3, SP[a5, a6], a2, n] + 
    S2[a6, n]*S2[a1, a4, a5, a2, a3, n] + S2[a1, a4, a5, a2, SP[a3, a6], n] + 
    S2[a6, n]*S2[a1, a4, a5, a3, a2, n] - 
    S2[a2, n]*S2[a1, a4, a5, a3, a6, n] - 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] - S2[a1, a4, a5, a6, SP[a2, a3], n] - 
    S2[a1, a4, a5, SP[a2, a3], a6, n] + S2[a1, a4, a5, SP[a3, a6], a2, n] - 
    S2[a2, n]*S2[a1, a4, a6, a3, a5, n] - S2[a1, a4, a6, a3, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a4, a6, a5, a3, n] - S2[a1, a4, a6, a5, SP[a2, a3], n] - 
    S2[a1, a4, a6, SP[a2, a3], a5, n] - S2[a1, a4, a6, SP[a2, a5], a3, n] - 
    S2[a1, a4, SP[a2, a3], a5, a6, n] - S2[a1, a4, SP[a2, a3], a6, a5, n] - 
    S2[a1, a4, SP[a2, a5], a3, a6, n] - S2[a1, a4, SP[a2, a5], a6, a3, n] + 
    S2[a1, a4, SP[a3, a6], a2, a5, n] + S2[a1, a4, SP[a3, a6], a5, a2, n] + 
    S2[a1, a4, SP[a5, a6], a2, a3, n] + S2[a1, a4, SP[a5, a6], a3, a2, n] + 
    S2[a1, a5, a2, a3, SP[a4, a6], n] + S2[a1, a5, a2, SP[a3, a4], a6, n] + 
    S2[a1, a5, a3, a2, SP[a4, a6], n] + S2[a6, n]*S2[a1, a5, a3, a4, a2, n] - 
    S2[a2, n]*S2[a1, a5, a3, a4, a6, n] - 
    S2[a2, n]*S2[a1, a5, a3, a6, a4, n] - S2[a1, a5, a3, a6, SP[a2, a4], n] - 
    S2[a1, a5, a3, SP[a2, a4], a6, n] + S2[a1, a5, a3, SP[a4, a6], a2, n] + 
    S2[a6, n]*S2[a1, a5, a4, a2, a3, n] + S2[a1, a5, a4, a2, SP[a3, a6], n] + 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] - 
    S2[a2, n]*S2[a1, a5, a4, a3, a6, n] - 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] - S2[a1, a5, a4, a6, SP[a2, a3], n] - 
    S2[a1, a5, a4, SP[a2, a3], a6, n] + S2[a1, a5, a4, SP[a3, a6], a2, n] + 
    S2[a3, n]*S2[a1, a5, a6, a2, a4, n] + S2[a1, a5, a6, a2, SP[a3, a4], n] - 
    S2[a2, n]*S2[a1, a5, a6, a3, a4, n] - S2[a1, a5, a6, a3, SP[a2, a4], n] - 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] - S2[a1, a5, a6, a4, SP[a2, a3], n] - 
    S2[a1, a5, a6, SP[a2, a4], a3, n] - S2[a1, a5, SP[a2, a4], a3, a6, n] - 
    S2[a1, a5, SP[a2, a4], a6, a3, n] - S2[a1, a5, SP[a2, a6], a3, a4, n] - 
    S2[a1, a5, SP[a2, a6], a4, a3, n] + S2[a1, a5, SP[a3, a6], a2, a4, n] + 
    S2[a1, a5, SP[a3, a6], a4, a2, n] + S2[a1, a5, SP[a4, a6], a2, a3, n] + 
    S2[a1, a5, SP[a4, a6], a3, a2, n] + S2[a3, n]*S2[a1, a6, a2, a4, a5, n] + 
    S2[a1, a6, a2, a4, SP[a3, a5], n] + S2[a3, n]*S2[a1, a6, a2, a5, a4, n] + 
    S2[a1, a6, a2, a5, SP[a3, a4], n] + S2[a1, a6, a2, SP[a3, a4], a5, n] + 
    S2[a1, a6, a2, SP[a3, a5], a4, n] - S2[a2, n]*S2[a1, a6, a3, a4, a5, n] - 
    S2[a1, a6, a3, a4, SP[a2, a5], n] - S2[a2, n]*S2[a1, a6, a3, a5, a4, n] - 
    S2[a1, a6, a3, a5, SP[a2, a4], n] - S2[a1, a6, a3, SP[a2, a4], a5, n] - 
    S2[a1, a6, a3, SP[a2, a5], a4, n] - S2[a2, n]*S2[a1, a6, a4, a3, a5, n] - 
    S2[a1, a6, a4, a3, SP[a2, a5], n] - S2[a2, n]*S2[a1, a6, a4, a5, a3, n] - 
    S2[a1, a6, a4, a5, SP[a2, a3], n] - S2[a1, a6, a4, SP[a2, a3], a5, n] - 
    S2[a1, a6, a4, SP[a2, a5], a3, n] + S2[a3, n]*S2[a1, a6, a5, a2, a4, n] + 
    S2[a1, a6, a5, a2, SP[a3, a4], n] - S2[a2, n]*S2[a1, a6, a5, a3, a4, n] - 
    S2[a1, a6, a5, a3, SP[a2, a4], n] - S2[a2, n]*S2[a1, a6, a5, a4, a3, n] - 
    S2[a1, a6, a5, a4, SP[a2, a3], n] - S2[a1, a6, a5, SP[a2, a4], a3, n] - 
    S2[a1, a6, SP[a2, a4], a3, a5, n] - S2[a1, a6, SP[a2, a4], a5, a3, n] - 
    S2[a1, a6, SP[a2, a5], a3, a4, n] - S2[a1, a6, SP[a2, a5], a4, a3, n] + 
    S2[a1, a6, SP[a3, a5], a2, a4, n] - S2[a1, SP[a2, a4], a3, a5, a6, n] - 
    S2[a1, SP[a2, a4], a3, a6, a5, n] - S2[a1, SP[a2, a4], a5, a3, a6, n] - 
    S2[a1, SP[a2, a4], a5, a6, a3, n] - S2[a1, SP[a2, a4], a6, a3, a5, n] - 
    S2[a1, SP[a2, a4], a6, a5, a3, n] - S2[a1, SP[a2, a6], a3, a4, a5, n] - 
    S2[a1, SP[a2, a6], a3, a5, a4, n] - S2[a1, SP[a2, a6], a4, a3, a5, n] - 
    S2[a1, SP[a2, a6], a4, a5, a3, n] - S2[a1, SP[a2, a6], a5, a3, a4, n] - 
    S2[a1, SP[a2, a6], a5, a4, a3, n] + S2[a1, SP[a3, a6], a2, a4, a5, n] + 
    S2[a1, SP[a3, a6], a2, a5, a4, n] + S2[a1, SP[a3, a6], a4, a2, a5, n] + 
    S2[a1, SP[a3, a6], a4, a5, a2, n] + S2[a1, SP[a3, a6], a5, a2, a4, n] + 
    S2[a1, SP[a3, a6], a5, a4, a2, n] + S2[a1, SP[a4, a6], a2, a3, a5, n] + 
    S2[a1, SP[a4, a6], a2, a5, a3, n] + S2[a1, SP[a4, a6], a3, a2, a5, n] + 
    S2[a1, SP[a4, a6], a3, a5, a2, n] + S2[a1, SP[a4, a6], a5, a2, a3, n] + 
    S2[a1, SP[a4, a6], a5, a3, a2, n] + S2[a1, SP[a5, a6], a3, a4, a2, n] + 
    S2[a1, SP[a5, a6], a4, a2, a3, n] + S2[a1, SP[a5, a6], a4, a3, a2, n] + 
    S2[a2, a1, a3, a5, SP[a4, a6], n] + S2[a2, a1, a3, a6, SP[a4, a5], n] + 
    S2[a2, a1, a3, SP[a4, a5], a6, n] + S2[a2, a1, a3, SP[a4, a6], a5, n] + 
    S2[a2, a1, a4, a6, SP[a3, a5], n] + S2[a2, a1, a4, SP[a5, a6], a3, n] + 
    S2[a2, a1, a5, a3, SP[a4, a6], n] + S2[a2, a1, a5, SP[a3, a4], a6, n] + 
    S2[a2, a1, a6, a3, SP[a4, a5], n] + S2[a2, a1, a6, a4, SP[a3, a5], n] + 
    S2[a2, a1, a6, SP[a3, a5], a4, n] + S2[a2, a1, a6, SP[a4, a5], a3, n] + 
    S2[a2, a1, SP[a3, a4], a5, a6, n] + S2[a2, a1, SP[a3, a4], a6, a5, n] + 
    S2[a2, a1, SP[a4, a5], a3, a6, n] + S2[a2, a1, SP[a4, a5], a6, a3, n] + 
    S2[a2, a1, SP[a5, a6], a3, a4, n] + S2[a2, a1, SP[a5, a6], a4, a3, n] - 
    S2[a6, n]*S2[a2, a4, a1, a3, a5, n] - S2[a2, a4, a1, a3, SP[a5, a6], n] - 
    S2[a6, n]*S2[a2, a4, a1, a5, a3, n] - S2[a2, a4, a1, a5, SP[a3, a6], n] + 
    S2[a2, a4, a1, a6, SP[a3, a5], n] - S2[a2, a4, a1, SP[a3, a6], a5, n] + 
    S2[a2, a4, a6, a1, SP[a3, a5], n] + S2[a2, a4, a6, SP[a1, a3], a5, n] + 
    S2[a2, a6, a1, a3, SP[a4, a5], n] - S2[a3, n]*S2[a2, a6, a1, a4, a5, n] - 
    S2[a3, n]*S2[a2, a6, a1, a5, a4, n] - S2[a2, a6, a1, a5, SP[a3, a4], n] - 
    S2[a2, a6, a1, SP[a3, a4], a5, n] + S2[a2, a6, a1, SP[a4, a5], a3, n] + 
    S2[a2, a6, a3, a1, SP[a4, a5], n] + S2[a2, a6, a3, SP[a1, a4], a5, n] + 
    S2[a2, a6, a4, a1, SP[a3, a5], n] + S2[a2, a6, a4, SP[a1, a3], a5, n] + 
    S2[a2, a6, SP[a1, a4], a3, a5, n] + S2[a2, a6, SP[a1, a4], a5, a3, n] + 
    S2[a2, SP[a1, a4], a3, a5, a6, n] + S2[a2, SP[a1, a4], a3, a6, a5, n] + 
    S2[a2, SP[a1, a4], a5, a3, a6, n] + S2[a2, SP[a1, a4], a5, a6, a3, n] + 
    S2[a2, SP[a1, a4], a6, a3, a5, n] + S2[a2, SP[a1, a4], a6, a5, a3, n] + 
    S2[a2, SP[a1, a6], a3, a4, a5, n] + S2[a2, SP[a1, a6], a3, a5, a4, n] + 
    S2[a2, SP[a1, a6], a4, a3, a5, n] + S2[a2, SP[a1, a6], a4, a5, a3, n] + 
    S2[a2, SP[a1, a6], a5, a3, a4, n] + S2[a2, SP[a1, a6], a5, a4, a3, n] - 
    S2[a2, SP[a3, a6], a1, a4, a5, n] - S2[a2, SP[a3, a6], a1, a5, a4, n] - 
    S2[a2, SP[a4, a6], a1, a3, a5, n] - S2[a2, SP[a4, a6], a1, a5, a3, n] - 
    S2[a3, a1, a6, a2, SP[a4, a5], n] - S2[a3, a1, a6, SP[a2, a5], a4, n] - 
    S2[a3, a1, SP[a5, a6], a2, a4, n] - S2[a3, a6, a1, a2, SP[a4, a5], n] + 
    S2[a2, n]*S2[a3, a6, a1, a4, a5, n] + S2[a3, a6, a1, a4, SP[a2, a5], n] + 
    S2[a2, n]*S2[a3, a6, a1, a5, a4, n] + S2[a3, a6, a1, a5, SP[a2, a4], n] + 
    S2[a3, a6, a1, SP[a2, a4], a5, n] - S2[a3, a6, a2, a1, SP[a4, a5], n] - 
    S2[a3, a6, a2, SP[a1, a4], a5, n] - S2[a3, SP[a1, a6], a2, a4, a5, n] - 
    S2[a3, SP[a1, a6], a2, a5, a4, n] - S2[a3, SP[a1, a6], a5, a2, a4, n] + 
    S2[a3, SP[a2, a6], a1, a4, a5, n] + S2[a3, SP[a2, a6], a1, a5, a4, n] - 
    S2[a3, n]*S2[a6, a1, a4, a2, a5, n] - S2[a6, a1, a4, a2, SP[a3, a5], n] - 
    S2[a3, n]*S2[a6, a1, a4, a5, a2, n] - S2[a6, a1, a4, a5, SP[a2, a3], n] - 
    S2[a6, a1, a4, SP[a2, a3], a5, n] - S2[a6, a1, a4, SP[a3, a5], a2, n] - 
    S2[a3, n]*S2[a6, a1, a5, a4, a2, n] - S2[a6, a1, a5, a4, SP[a2, a3], n] - 
    S2[a6, a1, a5, SP[a3, a4], a2, n] - S2[a6, a1, SP[a3, a4], a2, a5, n] - 
    S2[a6, a1, SP[a3, a4], a5, a2, n] - S2[a6, a1, SP[a3, a5], a4, a2, n] + 
    S2[a3, n]*S2[a6, a2, a4, a1, a5, n] + S2[a6, a2, a4, a1, SP[a3, a5], n] + 
    S2[a6, a2, a4, SP[a1, a3], a5, n] + S2[a6, a2, SP[a3, a4], a1, a5, n] - 
    S2[a2, n]*S2[a6, a3, a4, a1, a5, n] - S2[a6, a3, a4, a1, SP[a2, a5], n] - 
    S2[a6, a3, a4, SP[a1, a2], a5, n] - S2[a6, a3, SP[a2, a4], a1, a5, n] - 
    S2[a2, n]*S2[a6, a4, a3, a1, a5, n] - S2[a6, a4, a3, a1, SP[a2, a5], n] - 
    S2[a6, a4, a3, SP[a1, a2], a5, n] - S2[a6, a4, SP[a2, a3], a1, a5, n] - 
    S2[a6, SP[a1, a3], a4, a2, a5, n] - S2[a6, SP[a1, a3], a4, a5, a2, n] - 
    S2[a6, SP[a1, a3], a5, a4, a2, n] - S2[a6, SP[a2, a4], a3, a1, a5, n] + 
    S2[SP[a1, a6], a3, a4, a2, a5, n] + S2[SP[a1, a6], a3, a4, a5, a2, n] + 
    S2[SP[a1, a6], a3, a5, a4, a2, n] + S2[SP[a1, a6], a4, a2, a3, a5, n] + 
    S2[SP[a1, a6], a4, a2, a5, a3, n] + S2[SP[a1, a6], a4, a3, a2, a5, n] + 
    S2[SP[a1, a6], a4, a3, a5, a2, n] + S2[SP[a1, a6], a4, a5, a2, a3, n] + 
    S2[SP[a1, a6], a4, a5, a3, a2, n] + S2[SP[a1, a6], a5, a3, a4, a2, n] + 
    S2[SP[a1, a6], a5, a4, a2, a3, n] + S2[SP[a1, a6], a5, a4, a3, a2, n] - 
    S2[SP[a2, a6], a3, a4, a1, a5, n] - S2[SP[a2, a6], a4, a1, a3, a5, n] - 
    S2[SP[a2, a6], a4, a1, a5, a3, n] - S2[SP[a2, a6], a4, a3, a1, a5, n] - 
    S2[SP[a3, a6], a1, a4, a2, a5, n] - S2[SP[a3, a6], a1, a4, a5, a2, n] - 
    S2[SP[a3, a6], a1, a5, a4, a2, n] + S2[SP[a3, a6], a2, a4, a1, a5, n] + 
    S2[a6, a3, a1, a4, a2, a5, n] + S2[a6, a3, a1, a4, a5, a2, n] + 
    S2[a6, a3, a1, a5, a4, a2, n] + S2[a6, a3, a4, a1, a2, a5, n] + 
    S2[a6, a3, a4, a1, a5, a2, n] + S2[a6, a3, a4, a2, a1, a5, n] + 
    S2[a6, a4, a2, a3, a1, a5, n] + S2[a6, a4, a3, a1, a2, a5, n] + 
    S2[a6, a4, a3, a1, a5, a2, n] + S2[a6, a4, a3, a2, a1, a5, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a2_, a4_, a6_, a3_, a5_, a1_, n_] :> 
  -(S2[a2, a4, n]*S2[a1, a5, a3, a6, n]) + S2[a1, a5, SP[a2, a3], SP[a4, a6], 
     n] + S2[a1, SP[a2, a5], a3, SP[a4, a6], n] + 
    S2[a1, SP[a2, a5], SP[a3, a4], a6, n] - S2[a1, a5, n]*
     S2[a2, a4, a6, a3, n] + S2[a2, a4, SP[a1, a6], SP[a3, a5], n] - 
    S2[a1, a5, n]*S2[a2, a6, a3, a4, n] - S2[a1, a5, n]*
     S2[a2, a6, a4, a3, n] + S2[a2, a6, SP[a1, a3], SP[a4, a5], n] + 
    S2[a2, a6, SP[a1, a4], SP[a3, a5], n] + S2[a2, SP[a1, a4], a6, 
     SP[a3, a5], n] + S2[a2, SP[a1, a4], SP[a5, a6], a3, n] + 
    S2[a2, SP[a1, a6], a3, SP[a4, a5], n] + S2[a2, SP[a1, a6], a4, 
     SP[a3, a5], n] + S2[a2, SP[a1, a6], SP[a3, a5], a4, n] + 
    S2[a2, SP[a1, a6], SP[a4, a5], a3, n] + S2[a1, a5, n]*
     S2[a3, a6, a2, a4, n] - S2[a3, a6, SP[a1, a2], SP[a4, a5], n] - 
    S2[a3, SP[a1, a6], a2, SP[a4, a5], n] - S2[a3, SP[a1, a6], SP[a2, a5], 
     a4, n] + S2[SP[a1, a2], a4, a6, SP[a3, a5], n] + 
    S2[SP[a1, a2], a4, SP[a5, a6], a3, n] + S2[SP[a1, a2], a5, a3, 
     SP[a4, a6], n] + S2[SP[a1, a2], a5, SP[a3, a4], a6, n] + 
    S2[SP[a1, a2], a6, a3, SP[a4, a5], n] + S2[SP[a1, a2], a6, a4, 
     SP[a3, a5], n] + S2[SP[a1, a2], a6, SP[a3, a5], a4, n] + 
    S2[SP[a1, a2], a6, SP[a4, a5], a3, n] + S2[SP[a1, a2], SP[a4, a5], a3, 
     a6, n] + S2[SP[a1, a2], SP[a4, a5], a6, a3, n] + 
    S2[SP[a1, a2], SP[a5, a6], a3, a4, n] + S2[SP[a1, a2], SP[a5, a6], a4, 
     a3, n] - S2[SP[a1, a3], a6, a2, SP[a4, a5], n] - 
    S2[SP[a1, a3], a6, SP[a2, a5], a4, n] - S2[SP[a1, a3], SP[a5, a6], a2, 
     a4, n] - S2[a1, a2, a4, a6, SP[a3, a5], n] - S2[a1, a2, a4, SP[a5, a6], 
     a3, n] - S2[a1, a2, a5, a3, SP[a4, a6], n] - S2[a1, a2, a5, SP[a3, a4], 
     a6, n] - S2[a1, a2, a6, a3, SP[a4, a5], n] - 
    S2[a1, a2, a6, a4, SP[a3, a5], n] - S2[a1, a2, a6, SP[a3, a5], a4, n] - 
    S2[a1, a2, a6, SP[a4, a5], a3, n] - S2[a1, a2, SP[a4, a5], a3, a6, n] - 
    S2[a1, a2, SP[a4, a5], a6, a3, n] - S2[a1, a2, SP[a5, a6], a3, a4, n] - 
    S2[a1, a2, SP[a5, a6], a4, a3, n] + S2[a1, a3, a6, a2, SP[a4, a5], n] + 
    S2[a1, a3, a6, SP[a2, a5], a4, n] + S2[a1, a3, SP[a5, a6], a2, a4, n] - 
    S2[a6, n]*S2[a1, a4, a2, a5, a3, n] - S2[a1, a4, a2, a5, SP[a3, a6], n] - 
    S2[a1, a4, a2, SP[a5, a6], a3, n] - S2[a6, n]*S2[a1, a4, a5, a2, a3, n] - 
    S2[a1, a4, a5, a2, SP[a3, a6], n] - S2[a6, n]*S2[a1, a4, a5, a3, a2, n] + 
    S2[a2, n]*S2[a1, a4, a5, a3, a6, n] + 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] + S2[a1, a4, a5, a6, SP[a2, a3], n] + 
    S2[a1, a4, a5, SP[a2, a3], a6, n] - S2[a1, a4, a5, SP[a3, a6], a2, n] + 
    S2[a2, n]*S2[a1, a4, a6, a5, a3, n] + S2[a1, a4, a6, a5, SP[a2, a3], n] + 
    S2[a1, a4, a6, SP[a2, a5], a3, n] + S2[a1, a4, SP[a2, a5], a3, a6, n] + 
    S2[a1, a4, SP[a2, a5], a6, a3, n] - S2[a1, a4, SP[a5, a6], a2, a3, n] - 
    S2[a1, a4, SP[a5, a6], a3, a2, n] - S2[a1, a5, a2, a3, SP[a4, a6], n] - 
    S2[a1, a5, a2, SP[a3, a4], a6, n] - S2[a1, a5, a3, a2, SP[a4, a6], n] - 
    S2[a6, n]*S2[a1, a5, a3, a4, a2, n] + 
    S2[a2, n]*S2[a1, a5, a3, a4, a6, n] + 
    S2[a2, n]*S2[a1, a5, a3, a6, a4, n] + S2[a1, a5, a3, a6, SP[a2, a4], n] + 
    S2[a1, a5, a3, SP[a2, a4], a6, n] - S2[a1, a5, a3, SP[a4, a6], a2, n] - 
    S2[a6, n]*S2[a1, a5, a4, a2, a3, n] - S2[a1, a5, a4, a2, SP[a3, a6], n] - 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] + 
    S2[a2, n]*S2[a1, a5, a4, a3, a6, n] + 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] + S2[a1, a5, a4, a6, SP[a2, a3], n] + 
    S2[a1, a5, a4, SP[a2, a3], a6, n] - S2[a1, a5, a4, SP[a3, a6], a2, n] - 
    S2[a3, n]*S2[a1, a5, a6, a2, a4, n] - S2[a1, a5, a6, a2, SP[a3, a4], n] + 
    S2[a2, n]*S2[a1, a5, a6, a3, a4, n] + S2[a1, a5, a6, a3, SP[a2, a4], n] + 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] + S2[a1, a5, a6, a4, SP[a2, a3], n] + 
    S2[a1, a5, a6, SP[a2, a4], a3, n] + S2[a1, a5, SP[a2, a4], a3, a6, n] + 
    S2[a1, a5, SP[a2, a4], a6, a3, n] + S2[a1, a5, SP[a2, a6], a3, a4, n] + 
    S2[a1, a5, SP[a2, a6], a4, a3, n] - S2[a1, a5, SP[a3, a6], a2, a4, n] - 
    S2[a1, a5, SP[a3, a6], a4, a2, n] - S2[a1, a5, SP[a4, a6], a2, a3, n] - 
    S2[a1, a5, SP[a4, a6], a3, a2, n] - S2[a3, n]*S2[a1, a6, a2, a4, a5, n] - 
    S2[a1, a6, a2, a4, SP[a3, a5], n] - S2[a3, n]*S2[a1, a6, a2, a5, a4, n] - 
    S2[a1, a6, a2, a5, SP[a3, a4], n] - S2[a1, a6, a2, SP[a3, a4], a5, n] - 
    S2[a1, a6, a2, SP[a3, a5], a4, n] + S2[a2, n]*S2[a1, a6, a3, a4, a5, n] + 
    S2[a1, a6, a3, a4, SP[a2, a5], n] + S2[a2, n]*S2[a1, a6, a3, a5, a4, n] + 
    S2[a1, a6, a3, a5, SP[a2, a4], n] + S2[a1, a6, a3, SP[a2, a4], a5, n] + 
    S2[a1, a6, a3, SP[a2, a5], a4, n] + S2[a2, n]*S2[a1, a6, a4, a3, a5, n] + 
    S2[a1, a6, a4, a3, SP[a2, a5], n] + S2[a2, n]*S2[a1, a6, a4, a5, a3, n] + 
    S2[a1, a6, a4, a5, SP[a2, a3], n] + S2[a1, a6, a4, SP[a2, a3], a5, n] + 
    S2[a1, a6, a4, SP[a2, a5], a3, n] - S2[a3, n]*S2[a1, a6, a5, a2, a4, n] - 
    S2[a1, a6, a5, a2, SP[a3, a4], n] + S2[a2, n]*S2[a1, a6, a5, a3, a4, n] + 
    S2[a1, a6, a5, a3, SP[a2, a4], n] + S2[a2, n]*S2[a1, a6, a5, a4, a3, n] + 
    S2[a1, a6, a5, a4, SP[a2, a3], n] + S2[a1, a6, a5, SP[a2, a4], a3, n] + 
    S2[a1, a6, SP[a2, a4], a3, a5, n] + S2[a1, a6, SP[a2, a4], a5, a3, n] + 
    S2[a1, a6, SP[a2, a5], a3, a4, n] + S2[a1, a6, SP[a2, a5], a4, a3, n] - 
    S2[a1, a6, SP[a3, a5], a2, a4, n] + S2[a1, SP[a2, a4], a5, a3, a6, n] + 
    S2[a1, SP[a2, a4], a5, a6, a3, n] + S2[a1, SP[a2, a4], a6, a5, a3, n] + 
    S2[a1, SP[a2, a6], a3, a4, a5, n] + S2[a1, SP[a2, a6], a3, a5, a4, n] + 
    S2[a1, SP[a2, a6], a4, a3, a5, n] + S2[a1, SP[a2, a6], a4, a5, a3, n] + 
    S2[a1, SP[a2, a6], a5, a3, a4, n] + S2[a1, SP[a2, a6], a5, a4, a3, n] - 
    S2[a1, SP[a3, a6], a2, a4, a5, n] - S2[a1, SP[a3, a6], a2, a5, a4, n] - 
    S2[a1, SP[a3, a6], a5, a2, a4, n] - S2[a1, SP[a4, a6], a2, a5, a3, n] - 
    S2[a1, SP[a4, a6], a5, a2, a3, n] - S2[a1, SP[a4, a6], a5, a3, a2, n] - 
    S2[a1, SP[a5, a6], a3, a4, a2, n] - S2[a1, SP[a5, a6], a4, a2, a3, n] - 
    S2[a1, SP[a5, a6], a4, a3, a2, n] - S2[a2, a1, a4, a6, SP[a3, a5], n] - 
    S2[a2, a1, a4, SP[a5, a6], a3, n] - S2[a2, a1, a5, a3, SP[a4, a6], n] - 
    S2[a2, a1, a5, SP[a3, a4], a6, n] - S2[a2, a1, a6, a3, SP[a4, a5], n] - 
    S2[a2, a1, a6, a4, SP[a3, a5], n] - S2[a2, a1, a6, SP[a3, a5], a4, n] - 
    S2[a2, a1, a6, SP[a4, a5], a3, n] - S2[a2, a1, SP[a4, a5], a3, a6, n] - 
    S2[a2, a1, SP[a4, a5], a6, a3, n] - S2[a2, a1, SP[a5, a6], a3, a4, n] - 
    S2[a2, a1, SP[a5, a6], a4, a3, n] + S2[a6, n]*S2[a2, a4, a1, a5, a3, n] + 
    S2[a2, a4, a1, a5, SP[a3, a6], n] - S2[a2, a4, a1, a6, SP[a3, a5], n] - 
    S2[a2, a4, a6, a1, SP[a3, a5], n] + S2[a1, n]*S2[a2, a4, a6, a3, a5, n] + 
    S2[a2, a4, a6, a3, SP[a1, a5], n] - S2[a2, a6, a1, a3, SP[a4, a5], n] + 
    S2[a3, n]*S2[a2, a6, a1, a4, a5, n] + 
    S2[a3, n]*S2[a2, a6, a1, a5, a4, n] + S2[a2, a6, a1, a5, SP[a3, a4], n] + 
    S2[a2, a6, a1, SP[a3, a4], a5, n] - S2[a2, a6, a1, SP[a4, a5], a3, n] - 
    S2[a2, a6, a3, a1, SP[a4, a5], n] - S2[a2, a6, a3, SP[a1, a4], a5, n] - 
    S2[a2, a6, a4, a1, SP[a3, a5], n] - S2[a2, a6, a4, SP[a1, a3], a5, n] - 
    S2[a2, a6, SP[a1, a4], a3, a5, n] - S2[a2, a6, SP[a1, a4], a5, a3, n] - 
    S2[a2, SP[a1, a4], a5, a3, a6, n] - S2[a2, SP[a1, a4], a5, a6, a3, n] - 
    S2[a2, SP[a1, a4], a6, a5, a3, n] - S2[a2, SP[a1, a6], a3, a4, a5, n] - 
    S2[a2, SP[a1, a6], a3, a5, a4, n] - S2[a2, SP[a1, a6], a4, a3, a5, n] - 
    S2[a2, SP[a1, a6], a4, a5, a3, n] - S2[a2, SP[a1, a6], a5, a3, a4, n] - 
    S2[a2, SP[a1, a6], a5, a4, a3, n] + S2[a2, SP[a3, a6], a1, a4, a5, n] + 
    S2[a2, SP[a3, a6], a1, a5, a4, n] + S2[a2, SP[a4, a6], a1, a5, a3, n] + 
    S2[a3, a1, a6, a2, SP[a4, a5], n] + S2[a3, a1, a6, SP[a2, a5], a4, n] + 
    S2[a3, a1, SP[a5, a6], a2, a4, n] + S2[a3, a6, a1, a2, SP[a4, a5], n] - 
    S2[a2, n]*S2[a3, a6, a1, a4, a5, n] - S2[a3, a6, a1, a4, SP[a2, a5], n] - 
    S2[a2, n]*S2[a3, a6, a1, a5, a4, n] - S2[a3, a6, a1, a5, SP[a2, a4], n] - 
    S2[a3, a6, a1, SP[a2, a4], a5, n] + S2[a3, a6, a2, a1, SP[a4, a5], n] + 
    S2[a3, a6, a2, SP[a1, a4], a5, n] + S2[a3, SP[a1, a6], a2, a4, a5, n] + 
    S2[a3, SP[a1, a6], a2, a5, a4, n] + S2[a3, SP[a1, a6], a5, a2, a4, n] - 
    S2[a3, SP[a2, a6], a1, a4, a5, n] - S2[a3, SP[a2, a6], a1, a5, a4, n] + 
    S2[a3, n]*S2[a6, a1, a4, a2, a5, n] + S2[a6, a1, a4, a2, SP[a3, a5], n] + 
    S2[a3, n]*S2[a6, a1, a4, a5, a2, n] + S2[a6, a1, a4, a5, SP[a2, a3], n] + 
    S2[a6, a1, a4, SP[a2, a3], a5, n] + S2[a6, a1, a4, SP[a3, a5], a2, n] + 
    S2[a3, n]*S2[a6, a1, a5, a4, a2, n] + S2[a6, a1, a5, a4, SP[a2, a3], n] + 
    S2[a6, a1, a5, SP[a3, a4], a2, n] + S2[a6, a1, SP[a3, a4], a2, a5, n] + 
    S2[a6, a1, SP[a3, a4], a5, a2, n] + S2[a6, a1, SP[a3, a5], a4, a2, n] - 
    S2[a3, n]*S2[a6, a2, a4, a1, a5, n] - S2[a6, a2, a4, a1, SP[a3, a5], n] - 
    S2[a6, a2, a4, SP[a1, a3], a5, n] - S2[a6, a2, SP[a3, a4], a1, a5, n] + 
    S2[a2, n]*S2[a6, a3, a4, a1, a5, n] + S2[a6, a3, a4, a1, SP[a2, a5], n] - 
    S2[a1, n]*S2[a6, a3, a4, a2, a5, n] - S2[a6, a3, a4, a2, SP[a1, a5], n] - 
    S2[a1, n]*S2[a6, a3, a4, a5, a2, n] - S2[a6, a3, a4, a5, SP[a1, a2], n] - 
    S2[a6, a3, a4, SP[a1, a5], a2, n] - S2[a1, n]*S2[a6, a3, a5, a4, a2, n] - 
    S2[a6, a3, a5, a4, SP[a1, a2], n] - S2[a6, a3, a5, SP[a1, a4], a2, n] - 
    S2[a6, a3, SP[a1, a4], a2, a5, n] - S2[a6, a3, SP[a1, a4], a5, a2, n] - 
    S2[a6, a3, SP[a1, a5], a4, a2, n] + S2[a6, a3, SP[a2, a4], a1, a5, n] + 
    S2[a2, n]*S2[a6, a4, a1, a3, a5, n] + S2[a6, a4, a1, a3, SP[a2, a5], n] + 
    S2[a6, a4, a1, SP[a2, a3], a5, n] - S2[a1, n]*S2[a6, a4, a2, a3, a5, n] - 
    S2[a6, a4, a2, a3, SP[a1, a5], n] - S2[a6, a4, a2, SP[a1, a3], a5, n] + 
    S2[a2, n]*S2[a6, a4, a3, a1, a5, n] + S2[a6, a4, a3, a1, SP[a2, a5], n] - 
    S2[a1, n]*S2[a6, a4, a3, a2, a5, n] - S2[a6, a4, a3, a2, SP[a1, a5], n] - 
    S2[a1, n]*S2[a6, a4, a3, a5, a2, n] - S2[a6, a4, a3, a5, SP[a1, a2], n] - 
    S2[a6, a4, a3, SP[a1, a5], a2, n] - S2[a6, a4, SP[a1, a3], a2, a5, n] - 
    S2[a6, a4, SP[a1, a3], a5, a2, n] + S2[a6, a4, SP[a2, a3], a1, a5, n] - 
    S2[a6, SP[a1, a4], a2, a3, a5, n] - S2[a6, SP[a1, a4], a3, a2, a5, n] - 
    S2[a6, SP[a1, a4], a3, a5, a2, n] + S2[a6, SP[a2, a4], a1, a3, a5, n] + 
    S2[a6, SP[a2, a4], a3, a1, a5, n] - S2[SP[a1, a6], a3, a4, a2, a5, n] - 
    S2[SP[a1, a6], a3, a4, a5, a2, n] - S2[SP[a1, a6], a3, a5, a4, a2, n] - 
    S2[SP[a1, a6], a4, a2, a3, a5, n] - S2[SP[a1, a6], a4, a2, a5, a3, n] - 
    S2[SP[a1, a6], a4, a3, a2, a5, n] - S2[SP[a1, a6], a4, a3, a5, a2, n] - 
    S2[SP[a1, a6], a4, a5, a2, a3, n] - S2[SP[a1, a6], a4, a5, a3, a2, n] - 
    S2[SP[a1, a6], a5, a3, a4, a2, n] - S2[SP[a1, a6], a5, a4, a2, a3, n] - 
    S2[SP[a1, a6], a5, a4, a3, a2, n] + S2[SP[a2, a6], a3, a4, a1, a5, n] + 
    S2[SP[a2, a6], a4, a1, a3, a5, n] + S2[SP[a2, a6], a4, a1, a5, a3, n] + 
    S2[SP[a2, a6], a4, a3, a1, a5, n] + S2[SP[a3, a6], a1, a4, a2, a5, n] + 
    S2[SP[a3, a6], a1, a4, a5, a2, n] + S2[SP[a3, a6], a1, a5, a4, a2, n] - 
    S2[SP[a3, a6], a2, a4, a1, a5, n] + S2[a6, a3, a4, a2, a5, a1, n] + 
    S2[a6, a3, a4, a5, a1, a2, n] + S2[a6, a3, a4, a5, a2, a1, n] + 
    S2[a6, a3, a5, a1, a4, a2, n] + S2[a6, a3, a5, a4, a1, a2, n] + 
    S2[a6, a3, a5, a4, a2, a1, n] + S2[a6, a4, a2, a3, a5, a1, n] + 
    S2[a6, a4, a3, a2, a5, a1, n] + S2[a6, a4, a3, a5, a1, a2, n] + 
    S2[a6, a4, a3, a5, a2, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a2_, a4_, a6_, a5_, a1_, a3_, n_] :> 
  S2[a2, a4, n]*S2[a1, a3, a5, a6, n] - S2[a1, a3, SP[a2, a5], SP[a4, a6], 
     n] + S2[a2, a4, n]*S2[a1, a5, a3, a6, n] + 
    S2[a2, a4, n]*S2[a1, a5, a6, a3, n] - S2[a1, a5, SP[a2, a3], SP[a4, a6], 
     n] - S2[a1, a5, SP[a2, a6], SP[a3, a4], n] - S2[a1, SP[a2, a3], a5, 
     SP[a4, a6], n] - S2[a1, SP[a2, a3], SP[a4, a5], a6, n] - 
    S2[a1, SP[a2, a5], a3, SP[a4, a6], n] - S2[a1, SP[a2, a5], a6, 
     SP[a3, a4], n] - S2[a1, SP[a2, a5], SP[a3, a4], a6, n] - 
    S2[a1, SP[a2, a5], SP[a4, a6], a3, n] + S2[a1, a3, n]*
     S2[a2, a4, a6, a5, n] - S2[a2, a4, SP[a1, a6], SP[a3, a5], n] + 
    S2[a1, a3, n]*S2[a2, a6, a4, a5, n] + S2[a1, a3, n]*
     S2[a2, a6, a5, a4, n] - S2[a2, a6, SP[a1, a4], SP[a3, a5], n] - 
    S2[a2, a6, SP[a1, a5], SP[a3, a4], n] - S2[a2, SP[a1, a4], a6, 
     SP[a3, a5], n] - S2[a2, SP[a1, a4], SP[a3, a6], a5, n] - 
    S2[a2, SP[a1, a6], a4, SP[a3, a5], n] - S2[a2, SP[a1, a6], a5, 
     SP[a3, a4], n] - S2[a2, SP[a1, a6], SP[a3, a4], a5, n] - 
    S2[a2, SP[a1, a6], SP[a3, a5], a4, n] - S2[a1, a3, n]*
     S2[a5, a6, a2, a4, n] + S2[a5, a6, SP[a1, a2], SP[a3, a4], n] + 
    S2[a5, SP[a1, a6], a2, SP[a3, a4], n] + S2[a5, SP[a1, a6], SP[a2, a3], 
     a4, n] - S2[SP[a1, a2], a3, a5, SP[a4, a6], n] - 
    S2[SP[a1, a2], a3, SP[a4, a5], a6, n] - S2[SP[a1, a2], a4, a6, 
     SP[a3, a5], n] - S2[SP[a1, a2], a4, SP[a3, a6], a5, n] - 
    S2[SP[a1, a2], a5, a3, SP[a4, a6], n] - S2[SP[a1, a2], a5, a6, 
     SP[a3, a4], n] - S2[SP[a1, a2], a5, SP[a3, a4], a6, n] - 
    S2[SP[a1, a2], a5, SP[a4, a6], a3, n] - S2[SP[a1, a2], a6, a4, 
     SP[a3, a5], n] - S2[SP[a1, a2], a6, a5, SP[a3, a4], n] - 
    S2[SP[a1, a2], a6, SP[a3, a4], a5, n] - S2[SP[a1, a2], a6, SP[a3, a5], 
     a4, n] - S2[SP[a1, a2], SP[a3, a4], a5, a6, n] - 
    S2[SP[a1, a2], SP[a3, a4], a6, a5, n] - S2[SP[a1, a2], SP[a3, a6], a4, 
     a5, n] - S2[SP[a1, a2], SP[a3, a6], a5, a4, n] - 
    S2[SP[a1, a2], SP[a4, a5], a3, a6, n] - S2[SP[a1, a2], SP[a4, a5], a6, 
     a3, n] + S2[SP[a1, a5], a6, a2, SP[a3, a4], n] + 
    S2[SP[a1, a5], a6, SP[a2, a3], a4, n] + S2[SP[a1, a5], SP[a3, a6], a2, 
     a4, n] + S2[a1, a2, a3, a5, SP[a4, a6], n] + S2[a1, a2, a3, SP[a4, a5], 
     a6, n] + S2[a1, a2, a4, a6, SP[a3, a5], n] + S2[a1, a2, a4, SP[a3, a6], 
     a5, n] + S2[a1, a2, a5, a3, SP[a4, a6], n] + 
    S2[a1, a2, a5, a6, SP[a3, a4], n] + S2[a1, a2, a5, SP[a3, a4], a6, n] + 
    S2[a1, a2, a5, SP[a4, a6], a3, n] + S2[a1, a2, a6, a4, SP[a3, a5], n] + 
    S2[a1, a2, a6, a5, SP[a3, a4], n] + S2[a1, a2, a6, SP[a3, a4], a5, n] + 
    S2[a1, a2, a6, SP[a3, a5], a4, n] + S2[a1, a2, SP[a3, a4], a5, a6, n] + 
    S2[a1, a2, SP[a3, a4], a6, a5, n] + S2[a1, a2, SP[a3, a6], a4, a5, n] + 
    S2[a1, a2, SP[a3, a6], a5, a4, n] + S2[a1, a2, SP[a4, a5], a3, a6, n] + 
    S2[a1, a2, SP[a4, a5], a6, a3, n] + S2[a1, a3, a2, a5, SP[a4, a6], n] + 
    S2[a1, a3, a2, SP[a4, a5], a6, n] + S2[a6, n]*S2[a1, a3, a4, a2, a5, n] + 
    S2[a1, a3, a4, a2, SP[a5, a6], n] + S2[a6, n]*S2[a1, a3, a4, a5, a2, n] - 
    S2[a2, n]*S2[a1, a3, a4, a5, a6, n] - 
    S2[a2, n]*S2[a1, a3, a4, a6, a5, n] - S2[a1, a3, a4, a6, SP[a2, a5], n] - 
    S2[a1, a3, a4, SP[a2, a5], a6, n] + S2[a1, a3, a4, SP[a5, a6], a2, n] + 
    S2[a1, a3, a5, a2, SP[a4, a6], n] + S2[a6, n]*S2[a1, a3, a5, a4, a2, n] - 
    S2[a2, n]*S2[a1, a3, a5, a4, a6, n] - 
    S2[a2, n]*S2[a1, a3, a5, a6, a4, n] - S2[a1, a3, a5, a6, SP[a2, a4], n] - 
    S2[a1, a3, a5, SP[a2, a4], a6, n] + S2[a1, a3, a5, SP[a4, a6], a2, n] + 
    S2[a5, n]*S2[a1, a3, a6, a2, a4, n] + S2[a1, a3, a6, a2, SP[a4, a5], n] - 
    S2[a2, n]*S2[a1, a3, a6, a4, a5, n] - S2[a1, a3, a6, a4, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a3, a6, a5, a4, n] - S2[a1, a3, a6, a5, SP[a2, a4], n] - 
    S2[a1, a3, a6, SP[a2, a4], a5, n] - S2[a1, a3, SP[a2, a4], a5, a6, n] - 
    S2[a1, a3, SP[a2, a4], a6, a5, n] - S2[a1, a3, SP[a2, a6], a4, a5, n] - 
    S2[a1, a3, SP[a2, a6], a5, a4, n] + S2[a1, a3, SP[a4, a6], a2, a5, n] + 
    S2[a1, a3, SP[a4, a6], a5, a2, n] + S2[a1, a3, SP[a5, a6], a2, a4, n] + 
    S2[a1, a3, SP[a5, a6], a4, a2, n] + S2[a6, n]*S2[a1, a4, a2, a3, a5, n] + 
    S2[a1, a4, a2, a3, SP[a5, a6], n] + S2[a6, n]*S2[a1, a4, a2, a5, a3, n] + 
    S2[a1, a4, a2, a5, SP[a3, a6], n] + S2[a1, a4, a2, SP[a3, a6], a5, n] + 
    S2[a1, a4, a2, SP[a5, a6], a3, n] + S2[a6, n]*S2[a1, a4, a3, a2, a5, n] + 
    S2[a1, a4, a3, a2, SP[a5, a6], n] + S2[a6, n]*S2[a1, a4, a3, a5, a2, n] - 
    S2[a2, n]*S2[a1, a4, a3, a5, a6, n] - 
    S2[a2, n]*S2[a1, a4, a3, a6, a5, n] - S2[a1, a4, a3, a6, SP[a2, a5], n] - 
    S2[a1, a4, a3, SP[a2, a5], a6, n] + S2[a1, a4, a3, SP[a5, a6], a2, n] + 
    S2[a6, n]*S2[a1, a4, a5, a2, a3, n] + S2[a1, a4, a5, a2, SP[a3, a6], n] + 
    S2[a6, n]*S2[a1, a4, a5, a3, a2, n] - 
    S2[a2, n]*S2[a1, a4, a5, a3, a6, n] - 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] - S2[a1, a4, a5, a6, SP[a2, a3], n] - 
    S2[a1, a4, a5, SP[a2, a3], a6, n] + S2[a1, a4, a5, SP[a3, a6], a2, n] - 
    S2[a2, n]*S2[a1, a4, a6, a3, a5, n] - S2[a1, a4, a6, a3, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a4, a6, a5, a3, n] - S2[a1, a4, a6, a5, SP[a2, a3], n] - 
    S2[a1, a4, a6, SP[a2, a3], a5, n] - S2[a1, a4, a6, SP[a2, a5], a3, n] - 
    S2[a1, a4, SP[a2, a3], a5, a6, n] - S2[a1, a4, SP[a2, a3], a6, a5, n] - 
    S2[a1, a4, SP[a2, a5], a3, a6, n] - S2[a1, a4, SP[a2, a5], a6, a3, n] + 
    S2[a1, a4, SP[a3, a6], a2, a5, n] + S2[a1, a4, SP[a3, a6], a5, a2, n] + 
    S2[a1, a4, SP[a5, a6], a2, a3, n] + S2[a1, a4, SP[a5, a6], a3, a2, n] + 
    S2[a1, a5, a2, a3, SP[a4, a6], n] + S2[a1, a5, a2, a6, SP[a3, a4], n] + 
    S2[a1, a5, a2, SP[a3, a4], a6, n] + S2[a1, a5, a2, SP[a4, a6], a3, n] + 
    S2[a1, a5, a3, a2, SP[a4, a6], n] + S2[a6, n]*S2[a1, a5, a3, a4, a2, n] - 
    S2[a2, n]*S2[a1, a5, a3, a4, a6, n] - 
    S2[a2, n]*S2[a1, a5, a3, a6, a4, n] - S2[a1, a5, a3, a6, SP[a2, a4], n] - 
    S2[a1, a5, a3, SP[a2, a4], a6, n] + S2[a1, a5, a3, SP[a4, a6], a2, n] + 
    S2[a6, n]*S2[a1, a5, a4, a2, a3, n] + S2[a1, a5, a4, a2, SP[a3, a6], n] + 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] - 
    S2[a2, n]*S2[a1, a5, a4, a3, a6, n] - 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] - S2[a1, a5, a4, a6, SP[a2, a3], n] - 
    S2[a1, a5, a4, SP[a2, a3], a6, n] + S2[a1, a5, a4, SP[a3, a6], a2, n] - 
    S2[a2, n]*S2[a1, a5, a6, a3, a4, n] - S2[a1, a5, a6, a3, SP[a2, a4], n] - 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] - S2[a1, a5, a6, a4, SP[a2, a3], n] - 
    S2[a1, a5, a6, SP[a2, a3], a4, n] - S2[a1, a5, a6, SP[a2, a4], a3, n] - 
    S2[a1, a5, SP[a2, a4], a3, a6, n] - S2[a1, a5, SP[a2, a4], a6, a3, n] - 
    S2[a1, a5, SP[a3, a6], a2, a4, n] + S2[a1, a5, SP[a3, a6], a4, a2, n] + 
    S2[a1, a5, SP[a4, a6], a2, a3, n] + S2[a1, a5, SP[a4, a6], a3, a2, n] + 
    S2[a5, n]*S2[a1, a6, a2, a3, a4, n] + S2[a1, a6, a2, a3, SP[a4, a5], n] + 
    S2[a5, n]*S2[a1, a6, a2, a4, a3, n] + S2[a1, a6, a2, a4, SP[a3, a5], n] + 
    S2[a1, a6, a2, SP[a3, a5], a4, n] + S2[a1, a6, a2, SP[a4, a5], a3, n] + 
    S2[a5, n]*S2[a1, a6, a3, a2, a4, n] + S2[a1, a6, a3, a2, SP[a4, a5], n] - 
    S2[a2, n]*S2[a1, a6, a3, a4, a5, n] - S2[a1, a6, a3, a4, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a6, a3, a5, a4, n] - S2[a1, a6, a3, a5, SP[a2, a4], n] - 
    S2[a1, a6, a3, SP[a2, a4], a5, n] - S2[a2, n]*S2[a1, a6, a4, a3, a5, n] - 
    S2[a1, a6, a4, a3, SP[a2, a5], n] - S2[a2, n]*S2[a1, a6, a4, a5, a3, n] - 
    S2[a1, a6, a4, a5, SP[a2, a3], n] - S2[a1, a6, a4, SP[a2, a3], a5, n] - 
    S2[a1, a6, a4, SP[a2, a5], a3, n] - S2[a2, n]*S2[a1, a6, a5, a3, a4, n] - 
    S2[a1, a6, a5, a3, SP[a2, a4], n] - S2[a2, n]*S2[a1, a6, a5, a4, a3, n] - 
    S2[a1, a6, a5, a4, SP[a2, a3], n] - S2[a1, a6, a5, SP[a2, a3], a4, n] - 
    S2[a1, a6, a5, SP[a2, a4], a3, n] - S2[a1, a6, SP[a2, a3], a4, a5, n] - 
    S2[a1, a6, SP[a2, a3], a5, a4, n] - S2[a1, a6, SP[a2, a4], a3, a5, n] - 
    S2[a1, a6, SP[a2, a4], a5, a3, n] + S2[a1, a6, SP[a3, a5], a2, a4, n] - 
    S2[a1, SP[a2, a4], a3, a5, a6, n] - S2[a1, SP[a2, a4], a3, a6, a5, n] - 
    S2[a1, SP[a2, a4], a5, a3, a6, n] - S2[a1, SP[a2, a4], a5, a6, a3, n] - 
    S2[a1, SP[a2, a4], a6, a3, a5, n] - S2[a1, SP[a2, a4], a6, a5, a3, n] - 
    S2[a1, SP[a2, a6], a3, a4, a5, n] - S2[a1, SP[a2, a6], a3, a5, a4, n] - 
    S2[a1, SP[a2, a6], a4, a3, a5, n] - S2[a1, SP[a2, a6], a4, a5, a3, n] - 
    S2[a1, SP[a2, a6], a5, a3, a4, n] - S2[a1, SP[a2, a6], a5, a4, a3, n] + 
    S2[a1, SP[a3, a6], a4, a2, a5, n] + S2[a1, SP[a3, a6], a4, a5, a2, n] + 
    S2[a1, SP[a3, a6], a5, a4, a2, n] + S2[a1, SP[a4, a6], a2, a3, a5, n] + 
    S2[a1, SP[a4, a6], a2, a5, a3, n] + S2[a1, SP[a4, a6], a3, a2, a5, n] + 
    S2[a1, SP[a4, a6], a3, a5, a2, n] + S2[a1, SP[a4, a6], a5, a2, a3, n] + 
    S2[a1, SP[a4, a6], a5, a3, a2, n] + S2[a1, SP[a5, a6], a2, a3, a4, n] + 
    S2[a1, SP[a5, a6], a2, a4, a3, n] + S2[a1, SP[a5, a6], a3, a2, a4, n] + 
    S2[a1, SP[a5, a6], a3, a4, a2, n] + S2[a1, SP[a5, a6], a4, a2, a3, n] + 
    S2[a1, SP[a5, a6], a4, a3, a2, n] + S2[a2, a1, a3, a5, SP[a4, a6], n] + 
    S2[a2, a1, a3, SP[a4, a5], a6, n] + S2[a2, a1, a4, a6, SP[a3, a5], n] + 
    S2[a2, a1, a4, SP[a3, a6], a5, n] + S2[a2, a1, a5, a3, SP[a4, a6], n] + 
    S2[a2, a1, a5, a6, SP[a3, a4], n] + S2[a2, a1, a5, SP[a3, a4], a6, n] + 
    S2[a2, a1, a5, SP[a4, a6], a3, n] + S2[a2, a1, a6, a4, SP[a3, a5], n] + 
    S2[a2, a1, a6, a5, SP[a3, a4], n] + S2[a2, a1, a6, SP[a3, a4], a5, n] + 
    S2[a2, a1, a6, SP[a3, a5], a4, n] + S2[a2, a1, SP[a3, a4], a5, a6, n] + 
    S2[a2, a1, SP[a3, a4], a6, a5, n] + S2[a2, a1, SP[a3, a6], a4, a5, n] + 
    S2[a2, a1, SP[a3, a6], a5, a4, n] + S2[a2, a1, SP[a4, a5], a3, a6, n] + 
    S2[a2, a1, SP[a4, a5], a6, a3, n] - S2[a6, n]*S2[a2, a4, a1, a3, a5, n] - 
    S2[a2, a4, a1, a3, SP[a5, a6], n] - S2[a6, n]*S2[a2, a4, a1, a5, a3, n] - 
    S2[a2, a4, a1, a5, SP[a3, a6], n] + S2[a2, a4, a1, a6, SP[a3, a5], n] - 
    S2[a2, a4, a1, SP[a5, a6], a3, n] + S2[a2, a4, a6, a1, SP[a3, a5], n] + 
    S2[a2, a4, a6, SP[a1, a5], a3, n] - S2[a5, n]*S2[a2, a6, a1, a3, a4, n] - 
    S2[a2, a6, a1, a3, SP[a4, a5], n] - S2[a5, n]*S2[a2, a6, a1, a4, a3, n] + 
    S2[a2, a6, a1, a5, SP[a3, a4], n] + S2[a2, a6, a1, SP[a3, a4], a5, n] - 
    S2[a2, a6, a1, SP[a4, a5], a3, n] + S2[a2, a6, a4, a1, SP[a3, a5], n] + 
    S2[a2, a6, a4, SP[a1, a5], a3, n] + S2[a2, a6, a5, a1, SP[a3, a4], n] + 
    S2[a2, a6, a5, SP[a1, a4], a3, n] + S2[a2, a6, SP[a1, a4], a3, a5, n] + 
    S2[a2, a6, SP[a1, a4], a5, a3, n] + S2[a2, SP[a1, a4], a3, a5, a6, n] + 
    S2[a2, SP[a1, a4], a3, a6, a5, n] + S2[a2, SP[a1, a4], a5, a3, a6, n] + 
    S2[a2, SP[a1, a4], a5, a6, a3, n] + S2[a2, SP[a1, a4], a6, a3, a5, n] + 
    S2[a2, SP[a1, a4], a6, a5, a3, n] + S2[a2, SP[a1, a6], a3, a4, a5, n] + 
    S2[a2, SP[a1, a6], a3, a5, a4, n] + S2[a2, SP[a1, a6], a4, a3, a5, n] + 
    S2[a2, SP[a1, a6], a4, a5, a3, n] + S2[a2, SP[a1, a6], a5, a3, a4, n] + 
    S2[a2, SP[a1, a6], a5, a4, a3, n] - S2[a2, SP[a4, a6], a1, a3, a5, n] - 
    S2[a2, SP[a4, a6], a1, a5, a3, n] - S2[a2, SP[a5, a6], a1, a3, a4, n] - 
    S2[a2, SP[a5, a6], a1, a4, a3, n] - S2[a5, a1, a6, a2, SP[a3, a4], n] - 
    S2[a5, a1, a6, SP[a2, a3], a4, n] - S2[a5, a1, SP[a3, a6], a2, a4, n] - 
    S2[a5, a6, a1, a2, SP[a3, a4], n] + S2[a2, n]*S2[a5, a6, a1, a3, a4, n] + 
    S2[a5, a6, a1, a3, SP[a2, a4], n] + S2[a2, n]*S2[a5, a6, a1, a4, a3, n] + 
    S2[a5, a6, a1, a4, SP[a2, a3], n] + S2[a5, a6, a1, SP[a2, a4], a3, n] - 
    S2[a5, a6, a2, a1, SP[a3, a4], n] - S2[a5, a6, a2, SP[a1, a4], a3, n] - 
    S2[a5, SP[a1, a6], a2, a3, a4, n] - S2[a5, SP[a1, a6], a2, a4, a3, n] - 
    S2[a5, SP[a1, a6], a3, a2, a4, n] + S2[a5, SP[a2, a6], a1, a3, a4, n] + 
    S2[a5, SP[a2, a6], a1, a4, a3, n] - S2[a5, n]*S2[a6, a1, a3, a4, a2, n] - 
    S2[a6, a1, a3, a4, SP[a2, a5], n] - S2[a6, a1, a3, SP[a4, a5], a2, n] - 
    S2[a5, n]*S2[a6, a1, a4, a2, a3, n] - S2[a6, a1, a4, a2, SP[a3, a5], n] - 
    S2[a5, n]*S2[a6, a1, a4, a3, a2, n] - S2[a6, a1, a4, a3, SP[a2, a5], n] - 
    S2[a6, a1, a4, SP[a2, a5], a3, n] - S2[a6, a1, a4, SP[a3, a5], a2, n] - 
    S2[a6, a1, SP[a3, a5], a4, a2, n] - S2[a6, a1, SP[a4, a5], a2, a3, n] - 
    S2[a6, a1, SP[a4, a5], a3, a2, n] + S2[a5, n]*S2[a6, a2, a4, a1, a3, n] + 
    S2[a6, a2, a4, a1, SP[a3, a5], n] + S2[a6, a2, a4, SP[a1, a5], a3, n] + 
    S2[a6, a2, SP[a4, a5], a1, a3, n] - S2[a2, n]*S2[a6, a4, a5, a1, a3, n] - 
    S2[a6, a4, a5, a1, SP[a2, a3], n] - S2[a6, a4, a5, SP[a1, a2], a3, n] - 
    S2[a6, a4, SP[a2, a5], a1, a3, n] - S2[a2, n]*S2[a6, a5, a4, a1, a3, n] - 
    S2[a6, a5, a4, a1, SP[a2, a3], n] - S2[a6, a5, a4, SP[a1, a2], a3, n] - 
    S2[a6, a5, SP[a2, a4], a1, a3, n] - S2[a6, SP[a1, a5], a3, a4, a2, n] - 
    S2[a6, SP[a1, a5], a4, a2, a3, n] - S2[a6, SP[a1, a5], a4, a3, a2, n] - 
    S2[a6, SP[a2, a4], a5, a1, a3, n] + S2[SP[a1, a6], a3, a4, a2, a5, n] + 
    S2[SP[a1, a6], a3, a4, a5, a2, n] + S2[SP[a1, a6], a3, a5, a4, a2, n] + 
    S2[SP[a1, a6], a4, a2, a3, a5, n] + S2[SP[a1, a6], a4, a2, a5, a3, n] + 
    S2[SP[a1, a6], a4, a3, a2, a5, n] + S2[SP[a1, a6], a4, a3, a5, a2, n] + 
    S2[SP[a1, a6], a4, a5, a2, a3, n] + S2[SP[a1, a6], a4, a5, a3, a2, n] + 
    S2[SP[a1, a6], a5, a3, a4, a2, n] + S2[SP[a1, a6], a5, a4, a2, a3, n] + 
    S2[SP[a1, a6], a5, a4, a3, a2, n] - S2[SP[a2, a6], a4, a1, a3, a5, n] - 
    S2[SP[a2, a6], a4, a1, a5, a3, n] - S2[SP[a2, a6], a4, a5, a1, a3, n] - 
    S2[SP[a2, a6], a5, a4, a1, a3, n] - S2[SP[a5, a6], a1, a3, a4, a2, n] - 
    S2[SP[a5, a6], a1, a4, a2, a3, n] - S2[SP[a5, a6], a1, a4, a3, a2, n] + 
    S2[SP[a5, a6], a2, a4, a1, a3, n] + S2[a6, a4, a2, a5, a1, a3, n] + 
    S2[a6, a4, a5, a1, a2, a3, n] + S2[a6, a4, a5, a1, a3, a2, n] + 
    S2[a6, a4, a5, a2, a1, a3, n] + S2[a6, a5, a1, a3, a4, a2, n] + 
    S2[a6, a5, a1, a4, a2, a3, n] + S2[a6, a5, a1, a4, a3, a2, n] + 
    S2[a6, a5, a4, a1, a2, a3, n] + S2[a6, a5, a4, a1, a3, a2, n] + 
    S2[a6, a5, a4, a2, a1, a3, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a2_, a4_, a6_, a5_, a3_, a1_, n_] :> 
  -(S2[a2, a4, n]*S2[a1, a3, a5, a6, n]) + S2[a1, a3, SP[a2, a5], SP[a4, a6], 
     n] + S2[a1, SP[a2, a3], a5, SP[a4, a6], n] + 
    S2[a1, SP[a2, a3], SP[a4, a5], a6, n] - S2[a1, a3, n]*
     S2[a2, a4, a6, a5, n] + S2[a2, a4, SP[a1, a6], SP[a3, a5], n] - 
    S2[a1, a3, n]*S2[a2, a6, a4, a5, n] - S2[a1, a3, n]*
     S2[a2, a6, a5, a4, n] + S2[a2, a6, SP[a1, a4], SP[a3, a5], n] + 
    S2[a2, a6, SP[a1, a5], SP[a3, a4], n] + S2[a2, SP[a1, a4], a6, 
     SP[a3, a5], n] + S2[a2, SP[a1, a4], SP[a3, a6], a5, n] + 
    S2[a2, SP[a1, a6], a4, SP[a3, a5], n] + S2[a2, SP[a1, a6], a5, 
     SP[a3, a4], n] + S2[a2, SP[a1, a6], SP[a3, a4], a5, n] + 
    S2[a2, SP[a1, a6], SP[a3, a5], a4, n] + S2[a1, a3, n]*
     S2[a5, a6, a2, a4, n] - S2[a5, a6, SP[a1, a2], SP[a3, a4], n] - 
    S2[a5, SP[a1, a6], a2, SP[a3, a4], n] - S2[a5, SP[a1, a6], SP[a2, a3], 
     a4, n] + S2[SP[a1, a2], a3, a5, SP[a4, a6], n] + 
    S2[SP[a1, a2], a3, SP[a4, a5], a6, n] + S2[SP[a1, a2], a4, a6, 
     SP[a3, a5], n] + S2[SP[a1, a2], a4, SP[a3, a6], a5, n] + 
    S2[SP[a1, a2], a6, a4, SP[a3, a5], n] + S2[SP[a1, a2], a6, a5, 
     SP[a3, a4], n] + S2[SP[a1, a2], a6, SP[a3, a4], a5, n] + 
    S2[SP[a1, a2], a6, SP[a3, a5], a4, n] + S2[SP[a1, a2], SP[a3, a4], a5, 
     a6, n] + S2[SP[a1, a2], SP[a3, a4], a6, a5, n] + 
    S2[SP[a1, a2], SP[a3, a6], a4, a5, n] + S2[SP[a1, a2], SP[a3, a6], a5, 
     a4, n] - S2[SP[a1, a5], a6, a2, SP[a3, a4], n] - 
    S2[SP[a1, a5], a6, SP[a2, a3], a4, n] - S2[SP[a1, a5], SP[a3, a6], a2, 
     a4, n] - S2[a1, a2, a3, a5, SP[a4, a6], n] - S2[a1, a2, a3, SP[a4, a5], 
     a6, n] - S2[a1, a2, a4, a6, SP[a3, a5], n] - S2[a1, a2, a4, SP[a3, a6], 
     a5, n] - S2[a1, a2, a6, a4, SP[a3, a5], n] - 
    S2[a1, a2, a6, a5, SP[a3, a4], n] - S2[a1, a2, a6, SP[a3, a4], a5, n] - 
    S2[a1, a2, a6, SP[a3, a5], a4, n] - S2[a1, a2, SP[a3, a4], a5, a6, n] - 
    S2[a1, a2, SP[a3, a4], a6, a5, n] - S2[a1, a2, SP[a3, a6], a4, a5, n] - 
    S2[a1, a2, SP[a3, a6], a5, a4, n] - S2[a1, a3, a2, a5, SP[a4, a6], n] - 
    S2[a1, a3, a2, SP[a4, a5], a6, n] - S2[a6, n]*S2[a1, a3, a4, a2, a5, n] - 
    S2[a1, a3, a4, a2, SP[a5, a6], n] - S2[a6, n]*S2[a1, a3, a4, a5, a2, n] + 
    S2[a2, n]*S2[a1, a3, a4, a5, a6, n] + 
    S2[a2, n]*S2[a1, a3, a4, a6, a5, n] + S2[a1, a3, a4, a6, SP[a2, a5], n] + 
    S2[a1, a3, a4, SP[a2, a5], a6, n] - S2[a1, a3, a4, SP[a5, a6], a2, n] - 
    S2[a1, a3, a5, a2, SP[a4, a6], n] - S2[a6, n]*S2[a1, a3, a5, a4, a2, n] + 
    S2[a2, n]*S2[a1, a3, a5, a4, a6, n] + 
    S2[a2, n]*S2[a1, a3, a5, a6, a4, n] + S2[a1, a3, a5, a6, SP[a2, a4], n] + 
    S2[a1, a3, a5, SP[a2, a4], a6, n] - S2[a1, a3, a5, SP[a4, a6], a2, n] - 
    S2[a5, n]*S2[a1, a3, a6, a2, a4, n] - S2[a1, a3, a6, a2, SP[a4, a5], n] + 
    S2[a2, n]*S2[a1, a3, a6, a4, a5, n] + S2[a1, a3, a6, a4, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a3, a6, a5, a4, n] + S2[a1, a3, a6, a5, SP[a2, a4], n] + 
    S2[a1, a3, a6, SP[a2, a4], a5, n] + S2[a1, a3, SP[a2, a4], a5, a6, n] + 
    S2[a1, a3, SP[a2, a4], a6, a5, n] + S2[a1, a3, SP[a2, a6], a4, a5, n] + 
    S2[a1, a3, SP[a2, a6], a5, a4, n] - S2[a1, a3, SP[a4, a6], a2, a5, n] - 
    S2[a1, a3, SP[a4, a6], a5, a2, n] - S2[a1, a3, SP[a5, a6], a2, a4, n] - 
    S2[a1, a3, SP[a5, a6], a4, a2, n] - S2[a6, n]*S2[a1, a4, a2, a3, a5, n] - 
    S2[a1, a4, a2, a3, SP[a5, a6], n] - S2[a1, a4, a2, SP[a3, a6], a5, n] - 
    S2[a6, n]*S2[a1, a4, a3, a2, a5, n] - S2[a1, a4, a3, a2, SP[a5, a6], n] - 
    S2[a6, n]*S2[a1, a4, a3, a5, a2, n] + 
    S2[a2, n]*S2[a1, a4, a3, a5, a6, n] + 
    S2[a2, n]*S2[a1, a4, a3, a6, a5, n] + S2[a1, a4, a3, a6, SP[a2, a5], n] + 
    S2[a1, a4, a3, SP[a2, a5], a6, n] - S2[a1, a4, a3, SP[a5, a6], a2, n] + 
    S2[a2, n]*S2[a1, a4, a6, a3, a5, n] + S2[a1, a4, a6, a3, SP[a2, a5], n] + 
    S2[a1, a4, a6, SP[a2, a3], a5, n] + S2[a1, a4, SP[a2, a3], a5, a6, n] + 
    S2[a1, a4, SP[a2, a3], a6, a5, n] - S2[a1, a4, SP[a3, a6], a2, a5, n] - 
    S2[a1, a4, SP[a3, a6], a5, a2, n] + S2[a1, a5, a6, a2, SP[a3, a4], n] + 
    S2[a1, a5, a6, SP[a2, a3], a4, n] + S2[a1, a5, SP[a3, a6], a2, a4, n] - 
    S2[a5, n]*S2[a1, a6, a2, a3, a4, n] - S2[a1, a6, a2, a3, SP[a4, a5], n] - 
    S2[a5, n]*S2[a1, a6, a2, a4, a3, n] - S2[a1, a6, a2, a4, SP[a3, a5], n] - 
    S2[a1, a6, a2, SP[a3, a5], a4, n] - S2[a1, a6, a2, SP[a4, a5], a3, n] - 
    S2[a5, n]*S2[a1, a6, a3, a2, a4, n] - S2[a1, a6, a3, a2, SP[a4, a5], n] + 
    S2[a2, n]*S2[a1, a6, a3, a4, a5, n] + S2[a1, a6, a3, a4, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a6, a3, a5, a4, n] + S2[a1, a6, a3, a5, SP[a2, a4], n] + 
    S2[a1, a6, a3, SP[a2, a4], a5, n] + S2[a2, n]*S2[a1, a6, a4, a3, a5, n] + 
    S2[a1, a6, a4, a3, SP[a2, a5], n] + S2[a2, n]*S2[a1, a6, a4, a5, a3, n] + 
    S2[a1, a6, a4, a5, SP[a2, a3], n] + S2[a1, a6, a4, SP[a2, a3], a5, n] + 
    S2[a1, a6, a4, SP[a2, a5], a3, n] + S2[a2, n]*S2[a1, a6, a5, a3, a4, n] + 
    S2[a1, a6, a5, a3, SP[a2, a4], n] + S2[a2, n]*S2[a1, a6, a5, a4, a3, n] + 
    S2[a1, a6, a5, a4, SP[a2, a3], n] + S2[a1, a6, a5, SP[a2, a3], a4, n] + 
    S2[a1, a6, a5, SP[a2, a4], a3, n] + S2[a1, a6, SP[a2, a3], a4, a5, n] + 
    S2[a1, a6, SP[a2, a3], a5, a4, n] + S2[a1, a6, SP[a2, a4], a3, a5, n] + 
    S2[a1, a6, SP[a2, a4], a5, a3, n] - S2[a1, a6, SP[a3, a5], a2, a4, n] + 
    S2[a1, SP[a2, a4], a3, a5, a6, n] + S2[a1, SP[a2, a4], a3, a6, a5, n] + 
    S2[a1, SP[a2, a4], a6, a3, a5, n] + S2[a1, SP[a2, a6], a3, a4, a5, n] + 
    S2[a1, SP[a2, a6], a3, a5, a4, n] + S2[a1, SP[a2, a6], a4, a3, a5, n] + 
    S2[a1, SP[a2, a6], a4, a5, a3, n] + S2[a1, SP[a2, a6], a5, a3, a4, n] + 
    S2[a1, SP[a2, a6], a5, a4, a3, n] - S2[a1, SP[a3, a6], a4, a2, a5, n] - 
    S2[a1, SP[a3, a6], a4, a5, a2, n] - S2[a1, SP[a3, a6], a5, a4, a2, n] - 
    S2[a1, SP[a4, a6], a2, a3, a5, n] - S2[a1, SP[a4, a6], a3, a2, a5, n] - 
    S2[a1, SP[a4, a6], a3, a5, a2, n] - S2[a1, SP[a5, a6], a2, a3, a4, n] - 
    S2[a1, SP[a5, a6], a2, a4, a3, n] - S2[a1, SP[a5, a6], a3, a2, a4, n] - 
    S2[a2, a1, a3, a5, SP[a4, a6], n] - S2[a2, a1, a3, SP[a4, a5], a6, n] - 
    S2[a2, a1, a4, a6, SP[a3, a5], n] - S2[a2, a1, a4, SP[a3, a6], a5, n] - 
    S2[a2, a1, a6, a4, SP[a3, a5], n] - S2[a2, a1, a6, a5, SP[a3, a4], n] - 
    S2[a2, a1, a6, SP[a3, a4], a5, n] - S2[a2, a1, a6, SP[a3, a5], a4, n] - 
    S2[a2, a1, SP[a3, a4], a5, a6, n] - S2[a2, a1, SP[a3, a4], a6, a5, n] - 
    S2[a2, a1, SP[a3, a6], a4, a5, n] - S2[a2, a1, SP[a3, a6], a5, a4, n] + 
    S2[a6, n]*S2[a2, a4, a1, a3, a5, n] + S2[a2, a4, a1, a3, SP[a5, a6], n] - 
    S2[a2, a4, a1, a6, SP[a3, a5], n] - S2[a2, a4, a6, a1, SP[a3, a5], n] + 
    S2[a1, n]*S2[a2, a4, a6, a5, a3, n] + S2[a2, a4, a6, a5, SP[a1, a3], n] + 
    S2[a5, n]*S2[a2, a6, a1, a3, a4, n] + S2[a2, a6, a1, a3, SP[a4, a5], n] + 
    S2[a5, n]*S2[a2, a6, a1, a4, a3, n] - S2[a2, a6, a1, a5, SP[a3, a4], n] - 
    S2[a2, a6, a1, SP[a3, a4], a5, n] + S2[a2, a6, a1, SP[a4, a5], a3, n] - 
    S2[a2, a6, a4, a1, SP[a3, a5], n] - S2[a2, a6, a4, SP[a1, a5], a3, n] - 
    S2[a2, a6, a5, a1, SP[a3, a4], n] - S2[a2, a6, a5, SP[a1, a4], a3, n] - 
    S2[a2, a6, SP[a1, a4], a3, a5, n] - S2[a2, a6, SP[a1, a4], a5, a3, n] - 
    S2[a2, SP[a1, a4], a3, a5, a6, n] - S2[a2, SP[a1, a4], a3, a6, a5, n] - 
    S2[a2, SP[a1, a4], a6, a3, a5, n] - S2[a2, SP[a1, a6], a3, a4, a5, n] - 
    S2[a2, SP[a1, a6], a3, a5, a4, n] - S2[a2, SP[a1, a6], a4, a3, a5, n] - 
    S2[a2, SP[a1, a6], a4, a5, a3, n] - S2[a2, SP[a1, a6], a5, a3, a4, n] - 
    S2[a2, SP[a1, a6], a5, a4, a3, n] + S2[a2, SP[a4, a6], a1, a3, a5, n] + 
    S2[a2, SP[a5, a6], a1, a3, a4, n] + S2[a2, SP[a5, a6], a1, a4, a3, n] + 
    S2[a5, a1, a6, a2, SP[a3, a4], n] + S2[a5, a1, a6, SP[a2, a3], a4, n] + 
    S2[a5, a1, SP[a3, a6], a2, a4, n] + S2[a5, a6, a1, a2, SP[a3, a4], n] - 
    S2[a2, n]*S2[a5, a6, a1, a3, a4, n] - S2[a5, a6, a1, a3, SP[a2, a4], n] - 
    S2[a2, n]*S2[a5, a6, a1, a4, a3, n] - S2[a5, a6, a1, a4, SP[a2, a3], n] - 
    S2[a5, a6, a1, SP[a2, a4], a3, n] + S2[a5, a6, a2, a1, SP[a3, a4], n] + 
    S2[a5, a6, a2, SP[a1, a4], a3, n] + S2[a5, SP[a1, a6], a2, a3, a4, n] + 
    S2[a5, SP[a1, a6], a2, a4, a3, n] + S2[a5, SP[a1, a6], a3, a2, a4, n] - 
    S2[a5, SP[a2, a6], a1, a3, a4, n] - S2[a5, SP[a2, a6], a1, a4, a3, n] + 
    S2[a5, n]*S2[a6, a1, a3, a4, a2, n] + S2[a6, a1, a3, a4, SP[a2, a5], n] + 
    S2[a6, a1, a3, SP[a4, a5], a2, n] + S2[a5, n]*S2[a6, a1, a4, a2, a3, n] + 
    S2[a6, a1, a4, a2, SP[a3, a5], n] + S2[a5, n]*S2[a6, a1, a4, a3, a2, n] + 
    S2[a6, a1, a4, a3, SP[a2, a5], n] + S2[a6, a1, a4, SP[a2, a5], a3, n] + 
    S2[a6, a1, a4, SP[a3, a5], a2, n] + S2[a6, a1, SP[a3, a5], a4, a2, n] + 
    S2[a6, a1, SP[a4, a5], a2, a3, n] + S2[a6, a1, SP[a4, a5], a3, a2, n] - 
    S2[a5, n]*S2[a6, a2, a4, a1, a3, n] - S2[a6, a2, a4, a1, SP[a3, a5], n] - 
    S2[a6, a2, a4, SP[a1, a5], a3, n] - S2[a6, a2, SP[a4, a5], a1, a3, n] + 
    S2[a2, n]*S2[a6, a4, a1, a5, a3, n] + S2[a6, a4, a1, a5, SP[a2, a3], n] + 
    S2[a6, a4, a1, SP[a2, a5], a3, n] - S2[a1, n]*S2[a6, a4, a2, a5, a3, n] - 
    S2[a6, a4, a2, a5, SP[a1, a3], n] - S2[a6, a4, a2, SP[a1, a5], a3, n] + 
    S2[a2, n]*S2[a6, a4, a5, a1, a3, n] + S2[a6, a4, a5, a1, SP[a2, a3], n] - 
    S2[a1, n]*S2[a6, a4, a5, a2, a3, n] - S2[a6, a4, a5, a2, SP[a1, a3], n] - 
    S2[a1, n]*S2[a6, a4, a5, a3, a2, n] - S2[a6, a4, a5, a3, SP[a1, a2], n] - 
    S2[a6, a4, a5, SP[a1, a3], a2, n] - S2[a6, a4, SP[a1, a5], a2, a3, n] - 
    S2[a6, a4, SP[a1, a5], a3, a2, n] + S2[a6, a4, SP[a2, a5], a1, a3, n] - 
    S2[a1, n]*S2[a6, a5, a3, a4, a2, n] - S2[a6, a5, a3, a4, SP[a1, a2], n] - 
    S2[a6, a5, a3, SP[a1, a4], a2, n] + S2[a2, n]*S2[a6, a5, a4, a1, a3, n] + 
    S2[a6, a5, a4, a1, SP[a2, a3], n] - S2[a1, n]*S2[a6, a5, a4, a2, a3, n] - 
    S2[a6, a5, a4, a2, SP[a1, a3], n] - S2[a1, n]*S2[a6, a5, a4, a3, a2, n] - 
    S2[a6, a5, a4, a3, SP[a1, a2], n] - S2[a6, a5, a4, SP[a1, a3], a2, n] - 
    S2[a6, a5, SP[a1, a3], a4, a2, n] - S2[a6, a5, SP[a1, a4], a2, a3, n] - 
    S2[a6, a5, SP[a1, a4], a3, a2, n] + S2[a6, a5, SP[a2, a4], a1, a3, n] - 
    S2[a6, SP[a1, a4], a2, a5, a3, n] - S2[a6, SP[a1, a4], a5, a2, a3, n] - 
    S2[a6, SP[a1, a4], a5, a3, a2, n] + S2[a6, SP[a2, a4], a1, a5, a3, n] + 
    S2[a6, SP[a2, a4], a5, a1, a3, n] - S2[SP[a1, a6], a3, a4, a2, a5, n] - 
    S2[SP[a1, a6], a3, a4, a5, a2, n] - S2[SP[a1, a6], a3, a5, a4, a2, n] - 
    S2[SP[a1, a6], a4, a2, a3, a5, n] - S2[SP[a1, a6], a4, a2, a5, a3, n] - 
    S2[SP[a1, a6], a4, a3, a2, a5, n] - S2[SP[a1, a6], a4, a3, a5, a2, n] - 
    S2[SP[a1, a6], a4, a5, a2, a3, n] - S2[SP[a1, a6], a4, a5, a3, a2, n] - 
    S2[SP[a1, a6], a5, a3, a4, a2, n] - S2[SP[a1, a6], a5, a4, a2, a3, n] - 
    S2[SP[a1, a6], a5, a4, a3, a2, n] + S2[SP[a2, a6], a4, a1, a3, a5, n] + 
    S2[SP[a2, a6], a4, a1, a5, a3, n] + S2[SP[a2, a6], a4, a5, a1, a3, n] + 
    S2[SP[a2, a6], a5, a4, a1, a3, n] + S2[SP[a5, a6], a1, a3, a4, a2, n] + 
    S2[SP[a5, a6], a1, a4, a2, a3, n] + S2[SP[a5, a6], a1, a4, a3, a2, n] - 
    S2[SP[a5, a6], a2, a4, a1, a3, n] + S2[a6, a4, a2, a5, a3, a1, n] + 
    S2[a6, a4, a5, a2, a3, a1, n] + S2[a6, a4, a5, a3, a1, a2, n] + 
    S2[a6, a4, a5, a3, a2, a1, n] + S2[a6, a5, a3, a1, a4, a2, n] + 
    S2[a6, a5, a3, a4, a1, a2, n] + S2[a6, a5, a3, a4, a2, a1, n] + 
    S2[a6, a5, a4, a2, a3, a1, n] + S2[a6, a5, a4, a3, a1, a2, n] + 
    S2[a6, a5, a4, a3, a2, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a2_, a5_, a1_, a3_, a4_, a6_, n_] :> 
  S2[a1, a5, a2, n]*S2[a3, a4, a6, n] + S2[SP[a1, a3], SP[a4, a5], 
     SP[a2, a6], n] + S2[a2, a5, n]*S2[a1, a3, a4, a6, n] + 
    S2[a4, a6, n]*S2[a1, a3, a5, a2, n] - S2[a1, a3, SP[a2, a4], SP[a5, a6], 
     n] - 2*S2[a1, a3, SP[a4, a5], SP[a2, a6], n] + 
    S2[a4, a6, n]*S2[a1, a5, a2, a3, n] + S2[a4, a6, n]*
     S2[a1, a5, a3, a2, n] - S2[a1, a5, SP[a2, a4], SP[a3, a6], n] - 
    S2[a1, a5, SP[a3, a4], SP[a2, a6], n] - S2[a1, SP[a2, a3], a4, 
     SP[a5, a6], n] - S2[a1, SP[a2, a3], SP[a4, a5], a6, n] - 
    S2[a1, SP[a3, a4], a5, SP[a2, a6], n] - S2[a1, SP[a3, a4], SP[a5, a6], 
     a2, n] - S2[a1, SP[a3, a5], a4, SP[a2, a6], n] - 
    S2[a1, SP[a3, a5], SP[a2, a4], a6, n] - S2[a1, SP[a4, a5], a2, 
     SP[a3, a6], n] - S2[a1, SP[a4, a5], a3, SP[a2, a6], n] - 
    S2[a1, SP[a4, a5], SP[a2, a6], a3, n] - S2[a1, SP[a4, a5], SP[a3, a6], 
     a2, n] - S2[a3, a1, SP[a4, a5], SP[a2, a6], n] - 
    S2[a3, SP[a1, a4], a5, SP[a2, a6], n] - S2[a3, SP[a1, a4], SP[a5, a6], 
     a2, n] - S2[SP[a1, a2], a3, a4, SP[a5, a6], n] - 
    S2[SP[a1, a2], a3, SP[a4, a5], a6, n] - S2[SP[a1, a2], SP[a3, a5], a4, 
     a6, n] - S2[SP[a1, a3], a4, a5, SP[a2, a6], n] - 
    S2[SP[a1, a3], a4, SP[a5, a6], a2, n] - S2[SP[a1, a3], a5, a4, 
     SP[a2, a6], n] - S2[SP[a1, a3], a5, SP[a2, a4], a6, n] - 
    S2[SP[a1, a3], SP[a4, a5], a2, a6, n] - S2[SP[a1, a3], SP[a4, a5], a6, 
     a2, n] - S2[SP[a1, a4], a3, a5, SP[a2, a6], n] - 
    S2[SP[a1, a4], a3, SP[a5, a6], a2, n] - S2[SP[a1, a4], a5, a2, 
     SP[a3, a6], n] - S2[SP[a1, a4], a5, a3, SP[a2, a6], n] - 
    S2[SP[a1, a4], a5, SP[a2, a6], a3, n] - S2[SP[a1, a4], a5, SP[a3, a6], 
     a2, n] - S2[SP[a1, a4], SP[a3, a6], a5, a2, n] - 
    S2[SP[a1, a4], SP[a5, a6], a2, a3, n] - S2[SP[a1, a4], SP[a5, a6], a3, 
     a2, n] + S2[a1, a2, a3, a4, SP[a5, a6], n] + S2[a1, a2, a3, SP[a4, a5], 
     a6, n] + S2[a1, a2, SP[a3, a5], a4, a6, n] + 
    S2[a1, a3, a2, a4, SP[a5, a6], n] + S2[a1, a3, a2, SP[a4, a5], a6, n] + 
    S2[a1, a3, a4, a2, SP[a5, a6], n] + S2[a6, n]*S2[a1, a3, a4, a5, a2, n] - 
    S2[a2, n]*S2[a1, a3, a4, a5, a6, n] + 
    2*S2[a1, a3, a4, a5, SP[a2, a6], n] - 
    S2[a2, n]*S2[a1, a3, a4, a6, a5, n] - S2[a1, a3, a4, a6, SP[a2, a5], n] - 
    S2[a1, a3, a4, SP[a2, a5], a6, n] + 3*S2[a1, a3, a4, SP[a5, a6], a2, n] + 
    S2[a6, n]*S2[a1, a3, a5, a2, a4, n] - 
    S2[a4, n]*S2[a1, a3, a5, a2, a6, n] + 
    S2[a6, n]*S2[a1, a3, a5, a4, a2, n] - 
    S2[a2, n]*S2[a1, a3, a5, a4, a6, n] + 
    2*S2[a1, a3, a5, a4, SP[a2, a6], n] - 
    S2[a4, n]*S2[a1, a3, a5, a6, a2, n] - S2[a1, a3, a5, a6, SP[a2, a4], n] + 
    S2[a1, a3, a5, SP[a2, a6], a4, n] - S2[a4, n]*S2[a1, a3, a6, a5, a2, n] - 
    S2[a1, a3, a6, a5, SP[a2, a4], n] - S2[a1, a3, a6, SP[a4, a5], a2, n] - 
    S2[a1, a3, SP[a2, a5], a4, a6, n] + S2[a1, a3, SP[a4, a5], a2, a6, n] + 
    S2[a1, a3, SP[a4, a5], a6, a2, n] + S2[a1, a3, SP[a5, a6], a2, a4, n] + 
    S2[a1, a3, SP[a5, a6], a4, a2, n] + S2[a6, n]*S2[a1, a4, a3, a5, a2, n] + 
    2*S2[a1, a4, a3, a5, SP[a2, a6], n] + 
    2*S2[a1, a4, a3, SP[a5, a6], a2, n] + 
    S2[a6, n]*S2[a1, a4, a5, a2, a3, n] - 
    S2[a3, n]*S2[a1, a4, a5, a2, a6, n] + S2[a1, a4, a5, a2, SP[a3, a6], n] + 
    S2[a6, n]*S2[a1, a4, a5, a3, a2, n] + 
    2*S2[a1, a4, a5, a3, SP[a2, a6], n] - 
    S2[a3, n]*S2[a1, a4, a5, a6, a2, n] - S2[a1, a4, a5, a6, SP[a2, a3], n] - 
    S2[a1, a4, a5, SP[a2, a3], a6, n] + 2*S2[a1, a4, a5, SP[a2, a6], a3, n] + 
    S2[a1, a4, a5, SP[a3, a6], a2, n] - S2[a3, n]*S2[a1, a4, a6, a5, a2, n] - 
    S2[a1, a4, a6, a5, SP[a2, a3], n] - S2[a1, a4, a6, SP[a3, a5], a2, n] - 
    S2[a1, a4, SP[a3, a5], a2, a6, n] - S2[a1, a4, SP[a3, a5], a6, a2, n] + 
    S2[a1, a4, SP[a3, a6], a5, a2, n] + 2*S2[a1, a4, SP[a5, a6], a2, a3, n] + 
    2*S2[a1, a4, SP[a5, a6], a3, a2, n] + 
    S2[a6, n]*S2[a1, a5, a2, a3, a4, n] - 
    S2[a4, n]*S2[a1, a5, a2, a3, a6, n] + 
    S2[a6, n]*S2[a1, a5, a2, a4, a3, n] - 
    S2[a3, n]*S2[a1, a5, a2, a4, a6, n] + S2[a1, a5, a2, a4, SP[a3, a6], n] - 
    S2[a4, n]*S2[a1, a5, a2, a6, a3, n] - S2[a1, a5, a2, a6, SP[a3, a4], n] - 
    S2[a1, a5, a2, SP[a3, a4], a6, n] + S2[a1, a5, a2, SP[a3, a6], a4, n] + 
    S2[a6, n]*S2[a1, a5, a3, a2, a4, n] - 
    S2[a4, n]*S2[a1, a5, a3, a2, a6, n] + 
    S2[a6, n]*S2[a1, a5, a3, a4, a2, n] - 
    S2[a2, n]*S2[a1, a5, a3, a4, a6, n] + 
    2*S2[a1, a5, a3, a4, SP[a2, a6], n] - 
    S2[a4, n]*S2[a1, a5, a3, a6, a2, n] - S2[a1, a5, a3, a6, SP[a2, a4], n] + 
    S2[a1, a5, a3, SP[a2, a6], a4, n] + S2[a6, n]*S2[a1, a5, a4, a2, a3, n] - 
    S2[a3, n]*S2[a1, a5, a4, a2, a6, n] + S2[a1, a5, a4, a2, SP[a3, a6], n] + 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] + 
    2*S2[a1, a5, a4, a3, SP[a2, a6], n] - 
    S2[a3, n]*S2[a1, a5, a4, a6, a2, n] - S2[a1, a5, a4, a6, SP[a2, a3], n] - 
    S2[a1, a5, a4, SP[a2, a3], a6, n] + 2*S2[a1, a5, a4, SP[a2, a6], a3, n] + 
    S2[a1, a5, a4, SP[a3, a6], a2, n] - S2[a4, n]*S2[a1, a5, a6, a2, a3, n] - 
    S2[a1, a5, a6, a2, SP[a3, a4], n] - S2[a4, n]*S2[a1, a5, a6, a3, a2, n] - 
    S2[a1, a5, a6, a3, SP[a2, a4], n] - S2[a1, a5, a6, SP[a2, a4], a3, n] - 
    S2[a1, a5, a6, SP[a3, a4], a2, n] - S2[a1, a5, SP[a2, a3], a4, a6, n] + 
    S2[a1, a5, SP[a2, a6], a3, a4, n] + S2[a1, a5, SP[a2, a6], a4, a3, n] - 
    S2[a1, a5, SP[a3, a4], a2, a6, n] - S2[a1, a5, SP[a3, a4], a6, a2, n] + 
    S2[a1, a5, SP[a3, a6], a2, a4, n] + S2[a1, a5, SP[a3, a6], a4, a2, n] - 
    S2[a4, n]*S2[a1, a6, a3, a5, a2, n] - S2[a1, a6, a3, a5, SP[a2, a4], n] - 
    S2[a1, a6, a3, SP[a4, a5], a2, n] - S2[a4, n]*S2[a1, a6, a5, a2, a3, n] - 
    S2[a1, a6, a5, a2, SP[a3, a4], n] - S2[a4, n]*S2[a1, a6, a5, a3, a2, n] - 
    S2[a1, a6, a5, a3, SP[a2, a4], n] - S2[a1, a6, a5, SP[a2, a4], a3, n] - 
    S2[a1, a6, a5, SP[a3, a4], a2, n] - S2[a1, a6, SP[a3, a4], a5, a2, n] - 
    S2[a1, a6, SP[a4, a5], a2, a3, n] - S2[a1, a6, SP[a4, a5], a3, a2, n] - 
    S2[a1, SP[a2, a5], a3, a4, a6, n] - S2[a1, SP[a3, a4], a5, a2, a6, n] - 
    S2[a1, SP[a3, a4], a5, a6, a2, n] - S2[a1, SP[a3, a4], a6, a5, a2, n] + 
    S2[a1, SP[a3, a6], a4, a5, a2, n] + S2[a1, SP[a3, a6], a5, a2, a4, n] + 
    S2[a1, SP[a3, a6], a5, a4, a2, n] + S2[a1, SP[a5, a6], a2, a3, a4, n] + 
    S2[a1, SP[a5, a6], a2, a4, a3, n] + S2[a1, SP[a5, a6], a3, a2, a4, n] + 
    S2[a1, SP[a5, a6], a3, a4, a2, n] + S2[a1, SP[a5, a6], a4, a2, a3, n] + 
    S2[a1, SP[a5, a6], a4, a3, a2, n] + S2[a2, a1, a3, a4, SP[a5, a6], n] + 
    S2[a2, a1, a3, SP[a4, a5], a6, n] + S2[a2, a1, SP[a3, a5], a4, a6, n] + 
    S2[a2, SP[a1, a5], a3, a4, a6, n] + S2[a3, a1, a4, a5, SP[a2, a6], n] + 
    S2[a3, a1, a4, SP[a5, a6], a2, n] + S2[a3, a1, a5, a4, SP[a2, a6], n] + 
    S2[a3, a1, a5, SP[a2, a4], a6, n] + S2[a3, a1, SP[a4, a5], a2, a6, n] + 
    S2[a3, a1, SP[a4, a5], a6, a2, n] - S2[a6, n]*S2[a3, a4, a1, a5, a2, n] + 
    S2[a3, SP[a1, a4], a5, a2, a6, n] + S2[a3, SP[a1, a4], a5, a6, a2, n] + 
    S2[a3, SP[a1, a4], a6, a5, a2, n] - S2[a3, SP[a4, a6], a1, a5, a2, n] + 
    S2[a4, a1, a3, a5, SP[a2, a6], n] + S2[a4, a1, a3, SP[a5, a6], a2, n] + 
    S2[a4, a1, a5, a2, SP[a3, a6], n] + S2[a4, a1, a5, a3, SP[a2, a6], n] + 
    S2[a4, a1, a5, SP[a2, a6], a3, n] + S2[a4, a1, a5, SP[a3, a6], a2, n] + 
    S2[a4, a1, SP[a3, a6], a5, a2, n] + S2[a4, a1, SP[a5, a6], a2, a3, n] + 
    S2[a4, a1, SP[a5, a6], a3, a2, n] + S2[a4, SP[a1, a6], a3, a5, a2, n] + 
    S2[a4, SP[a1, a6], a5, a2, a3, n] + S2[a4, SP[a1, a6], a5, a3, a2, n] - 
    S2[a4, n]*S2[a6, a1, a3, a5, a2, n] - S2[a6, a1, a3, a5, SP[a2, a4], n] - 
    S2[a6, a1, a3, SP[a4, a5], a2, n] - S2[a4, n]*S2[a6, a1, a5, a2, a3, n] - 
    S2[a6, a1, a5, a2, SP[a3, a4], n] - S2[a4, n]*S2[a6, a1, a5, a3, a2, n] - 
    S2[a6, a1, a5, a3, SP[a2, a4], n] - S2[a6, a1, a5, SP[a2, a4], a3, n] - 
    S2[a6, a1, a5, SP[a3, a4], a2, n] - S2[a6, a1, SP[a3, a4], a5, a2, n] - 
    S2[a6, a1, SP[a4, a5], a2, a3, n] - S2[a6, a1, SP[a4, a5], a3, a2, n] + 
    S2[a3, n]*S2[a6, a4, a1, a5, a2, n] + S2[a6, a4, a1, a5, SP[a2, a3], n] + 
    S2[a6, a4, a1, SP[a3, a5], a2, n] + S2[a6, a4, SP[a1, a3], a5, a2, n] - 
    S2[a6, SP[a1, a4], a3, a5, a2, n] - S2[a6, SP[a1, a4], a5, a2, a3, n] - 
    S2[a6, SP[a1, a4], a5, a3, a2, n] + S2[a6, SP[a3, a4], a1, a5, a2, n] + 
    S2[SP[a1, a6], a3, a4, a5, a2, n] + S2[SP[a1, a6], a3, a5, a2, a4, n] + 
    S2[SP[a1, a6], a3, a5, a4, a2, n] + S2[SP[a1, a6], a4, a3, a5, a2, n] + 
    S2[SP[a1, a6], a4, a5, a2, a3, n] + S2[SP[a1, a6], a4, a5, a3, a2, n] + 
    S2[SP[a1, a6], a5, a2, a3, a4, n] + S2[SP[a1, a6], a5, a2, a4, a3, n] + 
    S2[SP[a1, a6], a5, a3, a2, a4, n] + S2[SP[a1, a6], a5, a3, a4, a2, n] + 
    S2[SP[a1, a6], a5, a4, a2, a3, n] + S2[SP[a1, a6], a5, a4, a3, a2, n] - 
    S2[SP[a4, a6], a1, a3, a5, a2, n] - S2[SP[a4, a6], a1, a5, a2, a3, n] - 
    S2[SP[a4, a6], a1, a5, a3, a2, n] - S2[a6, a4, a3, a1, a5, a2, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a2_, a5_, a1_, a3_, a6_, a4_, n_] :> 
  S2[a1, a5, a2, n]*S2[a3, a6, a4, n] + S2[SP[a1, a3], SP[a5, a6], 
     SP[a2, a4], n] - S2[a4, a6, n]*S2[a1, a3, a5, a2, n] + 
    S2[a2, a5, n]*S2[a1, a3, a6, a4, n] - S2[a1, a3, SP[a2, a6], SP[a4, a5], 
     n] + S2[a1, a3, SP[a4, a5], SP[a2, a6], n] - S2[a1, a3, SP[a5, a6], 
     SP[a2, a4], n] - S2[a4, a6, n]*S2[a1, a5, a2, a3, n] - 
    S2[a4, a6, n]*S2[a1, a5, a3, a2, n] + S2[a1, a5, SP[a2, a4], SP[a3, a6], 
     n] + S2[a1, a5, SP[a3, a4], SP[a2, a6], n] - S2[a1, SP[a2, a3], a6, 
     SP[a4, a5], n] - S2[a1, SP[a2, a3], SP[a5, a6], a4, n] + 
    S2[a1, SP[a3, a4], a5, SP[a2, a6], n] + S2[a1, SP[a3, a4], SP[a5, a6], 
     a2, n] - S2[a1, SP[a3, a5], a6, SP[a2, a4], n] - 
    S2[a1, SP[a3, a5], SP[a2, a6], a4, n] + S2[a1, SP[a4, a5], a2, 
     SP[a3, a6], n] + S2[a1, SP[a4, a5], a3, SP[a2, a6], n] + 
    S2[a1, SP[a4, a5], SP[a2, a6], a3, n] + S2[a1, SP[a4, a5], SP[a3, a6], 
     a2, n] - S2[a3, a1, SP[a5, a6], SP[a2, a4], n] - 
    S2[a3, SP[a1, a6], a5, SP[a2, a4], n] - S2[a3, SP[a1, a6], SP[a4, a5], 
     a2, n] - S2[SP[a1, a2], a3, a6, SP[a4, a5], n] - 
    S2[SP[a1, a2], a3, SP[a5, a6], a4, n] - S2[SP[a1, a2], SP[a3, a5], a6, 
     a4, n] - S2[SP[a1, a3], a5, a6, SP[a2, a4], n] - 
    S2[SP[a1, a3], a5, SP[a2, a6], a4, n] - S2[SP[a1, a3], a6, a5, 
     SP[a2, a4], n] - S2[SP[a1, a3], a6, SP[a4, a5], a2, n] - 
    S2[SP[a1, a3], SP[a5, a6], a2, a4, n] - S2[SP[a1, a3], SP[a5, a6], a4, 
     a2, n] + S2[SP[a1, a4], a3, a5, SP[a2, a6], n] + 
    S2[SP[a1, a4], a3, SP[a5, a6], a2, n] + S2[SP[a1, a4], a5, a2, 
     SP[a3, a6], n] + S2[SP[a1, a4], a5, a3, SP[a2, a6], n] + 
    S2[SP[a1, a4], a5, SP[a2, a6], a3, n] + S2[SP[a1, a4], a5, SP[a3, a6], 
     a2, n] + S2[SP[a1, a4], SP[a3, a6], a5, a2, n] + 
    S2[SP[a1, a4], SP[a5, a6], a2, a3, n] + S2[SP[a1, a4], SP[a5, a6], a3, 
     a2, n] + S2[a1, a2, a3, a6, SP[a4, a5], n] + S2[a1, a2, a3, SP[a5, a6], 
     a4, n] + S2[a1, a2, SP[a3, a5], a6, a4, n] + 
    S2[a1, a3, a2, a6, SP[a4, a5], n] + S2[a1, a3, a2, SP[a5, a6], a4, n] - 
    S2[a1, a3, a4, a5, SP[a2, a6], n] - S2[a1, a3, a4, SP[a5, a6], a2, n] + 
    S2[a4, n]*S2[a1, a3, a5, a2, a6, n] + S2[a1, a3, a5, a2, SP[a4, a6], n] - 
    S2[a1, a3, a5, a4, SP[a2, a6], n] + S2[a4, n]*S2[a1, a3, a5, a6, a2, n] - 
    S2[a2, n]*S2[a1, a3, a5, a6, a4, n] + S2[a1, a3, a5, a6, SP[a2, a4], n] + 
    S2[a1, a3, a5, SP[a4, a6], a2, n] + S2[a1, a3, a6, a2, SP[a4, a5], n] - 
    S2[a2, n]*S2[a1, a3, a6, a4, a5, n] - S2[a1, a3, a6, a4, SP[a2, a5], n] + 
    S2[a4, n]*S2[a1, a3, a6, a5, a2, n] - 
    S2[a2, n]*S2[a1, a3, a6, a5, a4, n] + S2[a1, a3, a6, a5, SP[a2, a4], n] - 
    S2[a1, a3, a6, SP[a2, a5], a4, n] + 2*S2[a1, a3, a6, SP[a4, a5], a2, n] - 
    S2[a1, a3, SP[a2, a5], a6, a4, n] + S2[a1, a3, SP[a4, a6], a5, a2, n] + 
    S2[a1, a3, SP[a5, a6], a2, a4, n] + S2[a1, a3, SP[a5, a6], a4, a2, n] - 
    S2[a1, a4, a3, a5, SP[a2, a6], n] - S2[a1, a4, a3, SP[a5, a6], a2, n] - 
    S2[a1, a4, a5, a2, SP[a3, a6], n] - S2[a1, a4, a5, a3, SP[a2, a6], n] - 
    S2[a1, a4, a5, SP[a2, a6], a3, n] - S2[a1, a4, a5, SP[a3, a6], a2, n] - 
    S2[a1, a4, SP[a3, a6], a5, a2, n] - S2[a1, a4, SP[a5, a6], a2, a3, n] - 
    S2[a1, a4, SP[a5, a6], a3, a2, n] + S2[a4, n]*S2[a1, a5, a2, a3, a6, n] + 
    S2[a1, a5, a2, a3, SP[a4, a6], n] - S2[a1, a5, a2, a4, SP[a3, a6], n] + 
    S2[a4, n]*S2[a1, a5, a2, a6, a3, n] - 
    S2[a3, n]*S2[a1, a5, a2, a6, a4, n] - S2[a1, a5, a2, SP[a3, a6], a4, n] + 
    S2[a1, a5, a2, SP[a4, a6], a3, n] + S2[a4, n]*S2[a1, a5, a3, a2, a6, n] + 
    S2[a1, a5, a3, a2, SP[a4, a6], n] - S2[a1, a5, a3, a4, SP[a2, a6], n] + 
    S2[a4, n]*S2[a1, a5, a3, a6, a2, n] - 
    S2[a2, n]*S2[a1, a5, a3, a6, a4, n] + S2[a1, a5, a3, a6, SP[a2, a4], n] + 
    S2[a1, a5, a3, SP[a4, a6], a2, n] - S2[a1, a5, a4, a2, SP[a3, a6], n] - 
    S2[a1, a5, a4, a3, SP[a2, a6], n] - S2[a1, a5, a4, SP[a2, a6], a3, n] - 
    S2[a1, a5, a4, SP[a3, a6], a2, n] + S2[a4, n]*S2[a1, a5, a6, a2, a3, n] - 
    S2[a3, n]*S2[a1, a5, a6, a2, a4, n] + 
    S2[a4, n]*S2[a1, a5, a6, a3, a2, n] + S2[a1, a5, a6, a3, SP[a2, a4], n] - 
    S2[a3, n]*S2[a1, a5, a6, a4, a2, n] - S2[a1, a5, a6, a4, SP[a2, a3], n] - 
    S2[a1, a5, a6, SP[a2, a3], a4, n] + S2[a1, a5, a6, SP[a2, a4], a3, n] - 
    S2[a1, a5, SP[a2, a3], a6, a4, n] - S2[a1, a5, SP[a3, a6], a2, a4, n] - 
    S2[a1, a5, SP[a3, a6], a4, a2, n] + S2[a1, a5, SP[a4, a6], a2, a3, n] + 
    S2[a1, a5, SP[a4, a6], a3, a2, n] + S2[a4, n]*S2[a1, a6, a3, a5, a2, n] + 
    S2[a1, a6, a3, a5, SP[a2, a4], n] + S2[a1, a6, a3, SP[a4, a5], a2, n] - 
    S2[a3, n]*S2[a1, a6, a4, a5, a2, n] - S2[a1, a6, a4, a5, SP[a2, a3], n] - 
    S2[a1, a6, a4, SP[a3, a5], a2, n] + S2[a4, n]*S2[a1, a6, a5, a2, a3, n] - 
    S2[a3, n]*S2[a1, a6, a5, a2, a4, n] + 
    S2[a4, n]*S2[a1, a6, a5, a3, a2, n] + S2[a1, a6, a5, a3, SP[a2, a4], n] - 
    S2[a3, n]*S2[a1, a6, a5, a4, a2, n] - S2[a1, a6, a5, a4, SP[a2, a3], n] - 
    S2[a1, a6, a5, SP[a2, a3], a4, n] + S2[a1, a6, a5, SP[a2, a4], a3, n] - 
    S2[a1, a6, SP[a3, a5], a2, a4, n] - S2[a1, a6, SP[a3, a5], a4, a2, n] + 
    S2[a1, a6, SP[a4, a5], a2, a3, n] + S2[a1, a6, SP[a4, a5], a3, a2, n] - 
    S2[a1, SP[a2, a5], a3, a6, a4, n] - S2[a1, SP[a3, a6], a4, a5, a2, n] - 
    S2[a1, SP[a3, a6], a5, a2, a4, n] - S2[a1, SP[a3, a6], a5, a4, a2, n] + 
    S2[a1, SP[a4, a6], a3, a5, a2, n] + S2[a1, SP[a4, a6], a5, a2, a3, n] + 
    S2[a1, SP[a4, a6], a5, a3, a2, n] + S2[a2, a1, a3, a6, SP[a4, a5], n] + 
    S2[a2, a1, a3, SP[a5, a6], a4, n] + S2[a2, a1, SP[a3, a5], a6, a4, n] + 
    S2[a2, SP[a1, a5], a3, a6, a4, n] + S2[a3, a1, a5, a6, SP[a2, a4], n] + 
    S2[a3, a1, a5, SP[a2, a6], a4, n] + S2[a3, a1, a6, a5, SP[a2, a4], n] + 
    S2[a3, a1, a6, SP[a4, a5], a2, n] + S2[a3, a1, SP[a5, a6], a2, a4, n] + 
    S2[a3, a1, SP[a5, a6], a4, a2, n] + S2[a3, a6, a1, a5, SP[a2, a4], n] + 
    S2[a3, a6, a1, SP[a4, a5], a2, n] + S2[a3, a6, SP[a1, a4], a5, a2, n] + 
    S2[a3, SP[a1, a6], a4, a5, a2, n] + S2[a3, SP[a1, a6], a5, a2, a4, n] + 
    S2[a3, SP[a1, a6], a5, a4, a2, n] - S2[a4, a1, a3, a5, SP[a2, a6], n] - 
    S2[a4, a1, a3, SP[a5, a6], a2, n] - S2[a4, a1, a5, a2, SP[a3, a6], n] - 
    S2[a4, a1, a5, a3, SP[a2, a6], n] - S2[a4, a1, a5, SP[a2, a6], a3, n] - 
    S2[a4, a1, a5, SP[a3, a6], a2, n] - S2[a4, a1, SP[a3, a6], a5, a2, n] - 
    S2[a4, a1, SP[a5, a6], a2, a3, n] - S2[a4, a1, SP[a5, a6], a3, a2, n] - 
    S2[a4, SP[a1, a6], a3, a5, a2, n] - S2[a4, SP[a1, a6], a5, a2, a3, n] - 
    S2[a4, SP[a1, a6], a5, a3, a2, n] + S2[a4, n]*S2[a6, a1, a3, a5, a2, n] + 
    S2[a6, a1, a3, a5, SP[a2, a4], n] + S2[a6, a1, a3, SP[a4, a5], a2, n] - 
    S2[a3, n]*S2[a6, a1, a4, a5, a2, n] - S2[a6, a1, a4, a5, SP[a2, a3], n] - 
    S2[a6, a1, a4, SP[a3, a5], a2, n] + S2[a4, n]*S2[a6, a1, a5, a2, a3, n] - 
    S2[a3, n]*S2[a6, a1, a5, a2, a4, n] + 
    S2[a4, n]*S2[a6, a1, a5, a3, a2, n] + S2[a6, a1, a5, a3, SP[a2, a4], n] - 
    S2[a3, n]*S2[a6, a1, a5, a4, a2, n] - S2[a6, a1, a5, a4, SP[a2, a3], n] - 
    S2[a6, a1, a5, SP[a2, a3], a4, n] + S2[a6, a1, a5, SP[a2, a4], a3, n] - 
    S2[a6, a1, SP[a3, a5], a2, a4, n] - S2[a6, a1, SP[a3, a5], a4, a2, n] + 
    S2[a6, a1, SP[a4, a5], a2, a3, n] + S2[a6, a1, SP[a4, a5], a3, a2, n] - 
    S2[a3, n]*S2[a6, a4, a1, a5, a2, n] - S2[a6, a4, a1, a5, SP[a2, a3], n] - 
    S2[a6, a4, a1, SP[a3, a5], a2, n] - S2[a6, a4, SP[a1, a3], a5, a2, n] - 
    S2[a6, SP[a1, a3], a4, a5, a2, n] - S2[a6, SP[a1, a3], a5, a2, a4, n] - 
    S2[a6, SP[a1, a3], a5, a4, a2, n] + S2[a6, SP[a1, a4], a3, a5, a2, n] + 
    S2[a6, SP[a1, a4], a5, a2, a3, n] + S2[a6, SP[a1, a4], a5, a3, a2, n] - 
    S2[a6, SP[a3, a4], a1, a5, a2, n] - S2[SP[a3, a6], a1, a4, a5, a2, n] - 
    S2[SP[a3, a6], a1, a5, a2, a4, n] - S2[SP[a3, a6], a1, a5, a4, a2, n] - 
    S2[SP[a3, a6], a4, a1, a5, a2, n] + S2[SP[a4, a6], a1, a3, a5, a2, n] + 
    S2[SP[a4, a6], a1, a5, a2, a3, n] + S2[SP[a4, a6], a1, a5, a3, a2, n] + 
    S2[a6, a3, a1, a4, a5, a2, n] + S2[a6, a3, a1, a5, a2, a4, n] + 
    S2[a6, a3, a1, a5, a4, a2, n] + S2[a6, a3, a4, a1, a5, a2, n] + 
    S2[a6, a4, a3, a1, a5, a2, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a2_, a5_, a1_, a4_, a3_, a6_, n_] :> 
  -(S2[a1, a5, a2, n]*S2[a3, a4, a6, n]) - S2[a1, a5, a2, n]*
     S2[a3, a6, a4, n] - S2[SP[a1, a3], SP[a4, a5], SP[a2, a6], n] - 
    S2[SP[a1, a3], SP[a5, a6], SP[a2, a4], n] + S2[a1, a3, SP[a4, a5], 
     SP[a2, a6], n] + S2[a1, a3, SP[a5, a6], SP[a2, a4], n] + 
    S2[a2, a5, n]*S2[a1, a4, a3, a6, n] + S2[a3, a6, n]*
     S2[a1, a4, a5, a2, n] - S2[a1, a4, SP[a2, a3], SP[a5, a6], n] - 
    S2[a1, a4, SP[a3, a5], SP[a2, a6], n] + S2[a3, a6, n]*
     S2[a1, a5, a2, a4, n] + S2[a3, a6, n]*S2[a1, a5, a4, a2, n] - 
    S2[a1, a5, SP[a2, a3], SP[a4, a6], n] - S2[a1, a5, SP[a3, a4], 
     SP[a2, a6], n] - S2[a1, SP[a2, a4], a3, SP[a5, a6], n] - 
    S2[a1, SP[a2, a4], SP[a3, a5], a6, n] - S2[a1, SP[a3, a4], a5, 
     SP[a2, a6], n] - S2[a1, SP[a3, a4], SP[a5, a6], a2, n] - 
    S2[a1, SP[a3, a5], a2, SP[a4, a6], n] + S2[a1, SP[a3, a5], a6, 
     SP[a2, a4], n] + S2[a1, SP[a3, a5], SP[a2, a4], a6, n] - 
    S2[a1, SP[a3, a5], SP[a4, a6], a2, n] + S2[a3, a1, SP[a4, a5], 
     SP[a2, a6], n] + S2[a3, a1, SP[a5, a6], SP[a2, a4], n] + 
    S2[a3, SP[a1, a4], a5, SP[a2, a6], n] + S2[a3, SP[a1, a4], SP[a5, a6], 
     a2, n] + S2[a3, SP[a1, a6], a5, SP[a2, a4], n] + 
    S2[a3, SP[a1, a6], SP[a4, a5], a2, n] - S2[SP[a1, a2], a4, a3, 
     SP[a5, a6], n] - S2[SP[a1, a2], a4, SP[a3, a5], a6, n] - 
    S2[SP[a1, a2], SP[a4, a5], a3, a6, n] - S2[SP[a1, a3], a5, a2, 
     SP[a4, a6], n] + S2[SP[a1, a3], a5, a6, SP[a2, a4], n] + 
    S2[SP[a1, a3], a5, SP[a2, a4], a6, n] - S2[SP[a1, a3], a5, SP[a4, a6], 
     a2, n] + S2[SP[a1, a3], a6, a5, SP[a2, a4], n] + 
    S2[SP[a1, a3], a6, SP[a4, a5], a2, n] + S2[SP[a1, a3], SP[a4, a5], a2, 
     a6, n] + S2[SP[a1, a3], SP[a4, a5], a6, a2, n] - 
    S2[SP[a1, a3], SP[a4, a6], a5, a2, n] + S2[a1, a2, a4, a3, SP[a5, a6], 
     n] + S2[a1, a2, a4, SP[a3, a5], a6, n] + S2[a1, a2, SP[a4, a5], a3, a6, 
     n] + S2[a1, a3, a5, a2, SP[a4, a6], n] - S2[a1, a3, a5, a6, SP[a2, a4], 
     n] - S2[a1, a3, a5, SP[a2, a4], a6, n] + S2[a1, a3, a5, SP[a4, a6], a2, 
     n] - S2[a1, a3, a6, a5, SP[a2, a4], n] - S2[a1, a3, a6, SP[a4, a5], a2, 
     n] - S2[a1, a3, SP[a4, a5], a2, a6, n] - S2[a1, a3, SP[a4, a5], a6, a2, 
     n] + S2[a1, a3, SP[a4, a6], a5, a2, n] + S2[a1, a4, a2, a3, SP[a5, a6], 
     n] + S2[a1, a4, a2, SP[a3, a5], a6, n] + S2[a1, a4, a3, a2, SP[a5, a6], 
     n] - S2[a2, n]*S2[a1, a4, a3, a5, a6, n] - 
    S2[a2, n]*S2[a1, a4, a3, a6, a5, n] - S2[a1, a4, a3, a6, SP[a2, a5], n] - 
    S2[a1, a4, a3, SP[a2, a5], a6, n] + S2[a1, a4, a3, SP[a5, a6], a2, n] - 
    S2[a2, n]*S2[a1, a4, a5, a3, a6, n] - S2[a1, a4, SP[a2, a5], a3, a6, n] + 
    S2[a1, a4, SP[a3, a5], a2, a6, n] + S2[a1, a4, SP[a3, a5], a6, a2, n] + 
    S2[a1, a5, a2, a3, SP[a4, a6], n] + S2[a1, a5, a2, SP[a3, a4], a6, n] + 
    S2[a1, a5, a3, a2, SP[a4, a6], n] - S2[a1, a5, a3, a6, SP[a2, a4], n] - 
    S2[a1, a5, a3, SP[a2, a4], a6, n] + S2[a1, a5, a3, SP[a4, a6], a2, n] - 
    S2[a2, n]*S2[a1, a5, a4, a3, a6, n] - S2[a1, a5, SP[a2, a4], a3, a6, n] + 
    S2[a1, a5, SP[a3, a4], a2, a6, n] + S2[a1, a5, SP[a3, a4], a6, a2, n] - 
    S2[a1, SP[a2, a5], a4, a3, a6, n] + S2[a1, SP[a3, a4], a5, a2, a6, n] + 
    S2[a1, SP[a3, a4], a5, a6, a2, n] + S2[a1, SP[a3, a4], a6, a5, a2, n] + 
    S2[a2, a1, a4, a3, SP[a5, a6], n] + S2[a2, a1, a4, SP[a3, a5], a6, n] + 
    S2[a2, a1, SP[a4, a5], a3, a6, n] + S2[a2, SP[a1, a5], a4, a3, a6, n] + 
    S2[a3, a1, a5, a2, SP[a4, a6], n] - S2[a3, a1, a5, a6, SP[a2, a4], n] - 
    S2[a3, a1, a5, SP[a2, a4], a6, n] + S2[a3, a1, a5, SP[a4, a6], a2, n] - 
    S2[a3, a1, a6, a5, SP[a2, a4], n] - S2[a3, a1, a6, SP[a4, a5], a2, n] - 
    S2[a3, a1, SP[a4, a5], a2, a6, n] - S2[a3, a1, SP[a4, a5], a6, a2, n] + 
    S2[a3, a1, SP[a4, a6], a5, a2, n] + S2[a6, n]*S2[a3, a4, a1, a5, a2, n] - 
    S2[a3, a6, a1, a5, SP[a2, a4], n] - S2[a3, a6, a1, SP[a4, a5], a2, n] - 
    S2[a3, a6, SP[a1, a4], a5, a2, n] - S2[a3, SP[a1, a4], a5, a2, a6, n] - 
    S2[a3, SP[a1, a4], a5, a6, a2, n] - S2[a3, SP[a1, a4], a6, a5, a2, n] + 
    S2[a3, SP[a4, a6], a1, a5, a2, n] + S2[SP[a3, a6], a4, a1, a5, a2, n] - 
    S2[a6, a3, a4, a1, a5, a2, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a2_, a5_, a1_, a4_, a6_, a3_, n_] :> 
  S2[a1, a5, a2, n]*S2[a3, a6, a4, n] + S2[SP[a1, a3], SP[a5, a6], 
     SP[a2, a4], n] - S2[a1, a3, SP[a5, a6], SP[a2, a4], n] - 
    S2[a3, a6, n]*S2[a1, a4, a5, a2, n] + S2[a2, a5, n]*
     S2[a1, a4, a6, a3, n] - S2[a1, a4, SP[a2, a6], SP[a3, a5], n] + 
    S2[a1, a4, SP[a3, a5], SP[a2, a6], n] - S2[a3, a6, n]*
     S2[a1, a5, a2, a4, n] - S2[a3, a6, n]*S2[a1, a5, a4, a2, n] + 
    S2[a1, a5, SP[a2, a3], SP[a4, a6], n] + S2[a1, a5, SP[a3, a4], 
     SP[a2, a6], n] - S2[a1, SP[a2, a4], a6, SP[a3, a5], n] - 
    S2[a1, SP[a2, a4], SP[a5, a6], a3, n] + S2[a1, SP[a3, a4], a5, 
     SP[a2, a6], n] + S2[a1, SP[a3, a4], SP[a5, a6], a2, n] + 
    S2[a1, SP[a3, a5], a2, SP[a4, a6], n] + S2[a1, SP[a3, a5], a4, 
     SP[a2, a6], n] - S2[a1, SP[a3, a5], a6, SP[a2, a4], n] + 
    S2[a1, SP[a3, a5], SP[a4, a6], a2, n] - S2[a3, a1, SP[a5, a6], 
     SP[a2, a4], n] - S2[a3, SP[a1, a6], a5, SP[a2, a4], n] - 
    S2[a3, SP[a1, a6], SP[a4, a5], a2, n] - S2[SP[a1, a2], a4, a6, 
     SP[a3, a5], n] - S2[SP[a1, a2], a4, SP[a5, a6], a3, n] - 
    S2[SP[a1, a2], SP[a4, a5], a6, a3, n] + S2[SP[a1, a3], a4, a5, 
     SP[a2, a6], n] + S2[SP[a1, a3], a4, SP[a5, a6], a2, n] + 
    S2[SP[a1, a3], a5, a2, SP[a4, a6], n] + S2[SP[a1, a3], a5, a4, 
     SP[a2, a6], n] - S2[SP[a1, a3], a5, a6, SP[a2, a4], n] + 
    S2[SP[a1, a3], a5, SP[a4, a6], a2, n] - S2[SP[a1, a3], a6, a5, 
     SP[a2, a4], n] - S2[SP[a1, a3], a6, SP[a4, a5], a2, n] + 
    S2[SP[a1, a3], SP[a4, a6], a5, a2, n] + S2[a1, a2, a4, a6, SP[a3, a5], 
     n] + S2[a1, a2, a4, SP[a5, a6], a3, n] + S2[a1, a2, SP[a4, a5], a6, a3, 
     n] - S2[a1, a3, a4, a5, SP[a2, a6], n] - S2[a1, a3, a4, SP[a5, a6], a2, 
     n] - S2[a1, a3, a5, a2, SP[a4, a6], n] - S2[a1, a3, a5, a4, SP[a2, a6], 
     n] + S2[a1, a3, a5, a6, SP[a2, a4], n] - S2[a1, a3, a5, SP[a4, a6], a2, 
     n] + S2[a1, a3, a6, a5, SP[a2, a4], n] + S2[a1, a3, a6, SP[a4, a5], a2, 
     n] - S2[a1, a3, SP[a4, a6], a5, a2, n] + S2[a1, a4, a2, a6, SP[a3, a5], 
     n] + S2[a1, a4, a2, SP[a5, a6], a3, n] - S2[a1, a4, a3, a5, SP[a2, a6], 
     n] - S2[a1, a4, a3, SP[a5, a6], a2, n] + 
    S2[a3, n]*S2[a1, a4, a5, a2, a6, n] + S2[a1, a4, a5, a2, SP[a3, a6], n] - 
    S2[a1, a4, a5, a3, SP[a2, a6], n] + S2[a3, n]*S2[a1, a4, a5, a6, a2, n] - 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] - S2[a1, a4, a5, SP[a2, a6], a3, n] + 
    S2[a1, a4, a5, SP[a3, a6], a2, n] + S2[a1, a4, a6, a2, SP[a3, a5], n] - 
    S2[a2, n]*S2[a1, a4, a6, a3, a5, n] - S2[a1, a4, a6, a3, SP[a2, a5], n] + 
    S2[a3, n]*S2[a1, a4, a6, a5, a2, n] - 
    S2[a2, n]*S2[a1, a4, a6, a5, a3, n] - S2[a1, a4, a6, SP[a2, a5], a3, n] + 
    S2[a1, a4, a6, SP[a3, a5], a2, n] - S2[a1, a4, SP[a2, a5], a6, a3, n] + 
    S2[a1, a4, SP[a3, a6], a5, a2, n] - S2[a1, a5, a2, a3, SP[a4, a6], n] + 
    S2[a3, n]*S2[a1, a5, a2, a4, a6, n] + S2[a1, a5, a2, a4, SP[a3, a6], n] - 
    S2[a1, a5, a3, a2, SP[a4, a6], n] - S2[a1, a5, a3, a4, SP[a2, a6], n] + 
    S2[a1, a5, a3, a6, SP[a2, a4], n] - S2[a1, a5, a3, SP[a4, a6], a2, n] + 
    S2[a3, n]*S2[a1, a5, a4, a2, a6, n] + S2[a1, a5, a4, a2, SP[a3, a6], n] - 
    S2[a1, a5, a4, a3, SP[a2, a6], n] + S2[a3, n]*S2[a1, a5, a4, a6, a2, n] - 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] - S2[a1, a5, a4, SP[a2, a6], a3, n] + 
    S2[a1, a5, a4, SP[a3, a6], a2, n] - S2[a1, a5, SP[a2, a4], a6, a3, n] - 
    S2[a1, SP[a2, a5], a4, a6, a3, n] + S2[a2, a1, a4, a6, SP[a3, a5], n] + 
    S2[a2, a1, a4, SP[a5, a6], a3, n] + S2[a2, a1, SP[a4, a5], a6, a3, n] + 
    S2[a2, SP[a1, a5], a4, a6, a3, n] - S2[a3, a1, a4, a5, SP[a2, a6], n] - 
    S2[a3, a1, a4, SP[a5, a6], a2, n] - S2[a3, a1, a5, a2, SP[a4, a6], n] - 
    S2[a3, a1, a5, a4, SP[a2, a6], n] + S2[a3, a1, a5, a6, SP[a2, a4], n] - 
    S2[a3, a1, a5, SP[a4, a6], a2, n] + S2[a3, a1, a6, a5, SP[a2, a4], n] + 
    S2[a3, a1, a6, SP[a4, a5], a2, n] - S2[a3, a1, SP[a4, a6], a5, a2, n] + 
    S2[a3, a6, a1, a5, SP[a2, a4], n] + S2[a3, a6, a1, SP[a4, a5], a2, n] + 
    S2[a3, a6, SP[a1, a4], a5, a2, n] - S2[a3, n]*S2[a6, a4, a1, a5, a2, n] - 
    S2[a6, a4, a1, a5, SP[a2, a3], n] - S2[a6, a4, a1, SP[a3, a5], a2, n] - 
    S2[a6, a4, SP[a1, a3], a5, a2, n] - S2[a6, SP[a3, a4], a1, a5, a2, n] - 
    S2[SP[a3, a6], a4, a1, a5, a2, n] + S2[a6, a3, a4, a1, a5, a2, n] + 
    S2[a6, a4, a1, a3, a5, a2, n] + S2[a6, a4, a1, a5, a2, a3, n] + 
    S2[a6, a4, a1, a5, a3, a2, n] + S2[a6, a4, a3, a1, a5, a2, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a2_, a5_, a1_, a6_, a3_, a4_, n_] :> 
  -(S2[a1, a5, a2, n]*S2[a3, a4, a6, n]) - S2[a1, a5, a2, n]*
     S2[a3, a6, a4, n] - S2[SP[a1, a3], SP[a4, a5], SP[a2, a6], n] - 
    S2[SP[a1, a3], SP[a5, a6], SP[a2, a4], n] + S2[a1, a3, SP[a4, a5], 
     SP[a2, a6], n] + S2[a1, a3, SP[a5, a6], SP[a2, a4], n] + 
    S2[a2, a5, n]*S2[a1, a6, a3, a4, n] - S2[a1, a6, SP[a2, a3], SP[a4, a5], 
     n] - S2[a1, SP[a2, a6], a3, SP[a4, a5], n] - 
    S2[a1, SP[a2, a6], SP[a3, a5], a4, n] + S2[a1, SP[a3, a5], a4, 
     SP[a2, a6], n] + S2[a1, SP[a3, a5], a6, SP[a2, a4], n] + 
    S2[a1, SP[a3, a5], SP[a2, a4], a6, n] + S2[a1, SP[a3, a5], SP[a2, a6], 
     a4, n] + S2[a3, a1, SP[a4, a5], SP[a2, a6], n] + 
    S2[a3, a1, SP[a5, a6], SP[a2, a4], n] + S2[a3, SP[a1, a4], a5, 
     SP[a2, a6], n] + S2[a3, SP[a1, a4], SP[a5, a6], a2, n] + 
    S2[a3, SP[a1, a6], a5, SP[a2, a4], n] + S2[a3, SP[a1, a6], SP[a4, a5], 
     a2, n] - S2[SP[a1, a2], a6, a3, SP[a4, a5], n] - 
    S2[SP[a1, a2], a6, SP[a3, a5], a4, n] - S2[SP[a1, a2], SP[a5, a6], a3, 
     a4, n] + S2[SP[a1, a3], a4, a5, SP[a2, a6], n] + 
    S2[SP[a1, a3], a4, SP[a5, a6], a2, n] + S2[SP[a1, a3], a5, a4, 
     SP[a2, a6], n] + S2[SP[a1, a3], a5, a6, SP[a2, a4], n] + 
    S2[SP[a1, a3], a5, SP[a2, a4], a6, n] + S2[SP[a1, a3], a5, SP[a2, a6], 
     a4, n] + S2[SP[a1, a3], a6, a5, SP[a2, a4], n] + 
    S2[SP[a1, a3], a6, SP[a4, a5], a2, n] + S2[SP[a1, a3], SP[a4, a5], a2, 
     a6, n] + S2[SP[a1, a3], SP[a4, a5], a6, a2, n] + 
    S2[SP[a1, a3], SP[a5, a6], a2, a4, n] + S2[SP[a1, a3], SP[a5, a6], a4, 
     a2, n] + S2[a1, a2, a6, a3, SP[a4, a5], n] + S2[a1, a2, a6, SP[a3, a5], 
     a4, n] + S2[a1, a2, SP[a5, a6], a3, a4, n] - 
    S2[a1, a3, a4, a5, SP[a2, a6], n] - S2[a1, a3, a4, SP[a5, a6], a2, n] - 
    S2[a1, a3, a5, a4, SP[a2, a6], n] - S2[a1, a3, a5, a6, SP[a2, a4], n] - 
    S2[a1, a3, a5, SP[a2, a4], a6, n] - S2[a1, a3, a5, SP[a2, a6], a4, n] - 
    S2[a1, a3, a6, a5, SP[a2, a4], n] - S2[a1, a3, a6, SP[a4, a5], a2, n] - 
    S2[a1, a3, SP[a4, a5], a2, a6, n] - S2[a1, a3, SP[a4, a5], a6, a2, n] - 
    S2[a1, a3, SP[a5, a6], a2, a4, n] - S2[a1, a3, SP[a5, a6], a4, a2, n] - 
    S2[a6, n]*S2[a1, a4, a3, a5, a2, n] - S2[a1, a4, a3, a5, SP[a2, a6], n] - 
    S2[a1, a4, a3, SP[a5, a6], a2, n] - S2[a6, n]*S2[a1, a4, a5, a2, a3, n] + 
    S2[a3, n]*S2[a1, a4, a5, a2, a6, n] - 
    S2[a6, n]*S2[a1, a4, a5, a3, a2, n] - S2[a1, a4, a5, a3, SP[a2, a6], n] + 
    S2[a3, n]*S2[a1, a4, a5, a6, a2, n] + S2[a1, a4, a5, a6, SP[a2, a3], n] + 
    S2[a1, a4, a5, SP[a2, a3], a6, n] - S2[a1, a4, a5, SP[a2, a6], a3, n] + 
    S2[a3, n]*S2[a1, a4, a6, a5, a2, n] + S2[a1, a4, a6, a5, SP[a2, a3], n] + 
    S2[a1, a4, a6, SP[a3, a5], a2, n] + S2[a1, a4, SP[a3, a5], a2, a6, n] + 
    S2[a1, a4, SP[a3, a5], a6, a2, n] - S2[a1, a4, SP[a5, a6], a2, a3, n] - 
    S2[a1, a4, SP[a5, a6], a3, a2, n] - S2[a6, n]*S2[a1, a5, a2, a4, a3, n] + 
    S2[a3, n]*S2[a1, a5, a2, a4, a6, n] + 
    S2[a3, n]*S2[a1, a5, a2, a6, a4, n] + S2[a1, a5, a2, a6, SP[a3, a4], n] + 
    S2[a1, a5, a2, SP[a3, a4], a6, n] + S2[a1, a5, a2, SP[a3, a6], a4, n] - 
    S2[a1, a5, a2, SP[a4, a6], a3, n] - S2[a1, a5, a3, a4, SP[a2, a6], n] - 
    S2[a1, a5, a3, a6, SP[a2, a4], n] - S2[a1, a5, a3, SP[a2, a4], a6, n] - 
    S2[a1, a5, a3, SP[a2, a6], a4, n] - S2[a6, n]*S2[a1, a5, a4, a2, a3, n] + 
    S2[a3, n]*S2[a1, a5, a4, a2, a6, n] - 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] - S2[a1, a5, a4, a3, SP[a2, a6], n] + 
    S2[a3, n]*S2[a1, a5, a4, a6, a2, n] + S2[a1, a5, a4, a6, SP[a2, a3], n] + 
    S2[a1, a5, a4, SP[a2, a3], a6, n] - S2[a1, a5, a4, SP[a2, a6], a3, n] + 
    S2[a3, n]*S2[a1, a5, a6, a2, a4, n] + S2[a1, a5, a6, a2, SP[a3, a4], n] - 
    S2[a2, n]*S2[a1, a5, a6, a3, a4, n] - S2[a1, a5, a6, a3, SP[a2, a4], n] + 
    S2[a3, n]*S2[a1, a5, a6, a4, a2, n] + S2[a1, a5, a6, a4, SP[a2, a3], n] + 
    S2[a1, a5, a6, SP[a3, a4], a2, n] - S2[a1, a5, SP[a2, a6], a3, a4, n] - 
    S2[a1, a5, SP[a2, a6], a4, a3, n] + S2[a1, a5, SP[a3, a4], a2, a6, n] + 
    S2[a1, a5, SP[a3, a4], a6, a2, n] + S2[a1, a5, SP[a3, a6], a2, a4, n] + 
    S2[a1, a5, SP[a3, a6], a4, a2, n] - S2[a1, a5, SP[a4, a6], a2, a3, n] - 
    S2[a1, a5, SP[a4, a6], a3, a2, n] + S2[a1, a6, a2, a3, SP[a4, a5], n] + 
    S2[a1, a6, a2, SP[a3, a5], a4, n] + S2[a1, a6, a3, a2, SP[a4, a5], n] - 
    S2[a2, n]*S2[a1, a6, a3, a4, a5, n] - S2[a1, a6, a3, a4, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a6, a3, a5, a4, n] - S2[a1, a6, a3, a5, SP[a2, a4], n] - 
    S2[a1, a6, a3, SP[a2, a5], a4, n] + S2[a3, n]*S2[a1, a6, a4, a5, a2, n] + 
    S2[a1, a6, a4, a5, SP[a2, a3], n] + S2[a1, a6, a4, SP[a3, a5], a2, n] + 
    S2[a3, n]*S2[a1, a6, a5, a2, a4, n] + S2[a1, a6, a5, a2, SP[a3, a4], n] - 
    S2[a2, n]*S2[a1, a6, a5, a3, a4, n] - S2[a1, a6, a5, a3, SP[a2, a4], n] + 
    S2[a3, n]*S2[a1, a6, a5, a4, a2, n] + S2[a1, a6, a5, a4, SP[a2, a3], n] + 
    S2[a1, a6, a5, SP[a3, a4], a2, n] - S2[a1, a6, SP[a2, a5], a3, a4, n] + 
    S2[a1, a6, SP[a3, a4], a5, a2, n] + S2[a1, a6, SP[a3, a5], a2, a4, n] + 
    S2[a1, a6, SP[a3, a5], a4, a2, n] - S2[a1, SP[a2, a5], a6, a3, a4, n] + 
    S2[a1, SP[a3, a4], a5, a2, a6, n] + S2[a1, SP[a3, a4], a5, a6, a2, n] + 
    S2[a1, SP[a3, a4], a6, a5, a2, n] + S2[a1, SP[a3, a6], a4, a5, a2, n] + 
    S2[a1, SP[a3, a6], a5, a2, a4, n] + S2[a1, SP[a3, a6], a5, a4, a2, n] - 
    S2[a1, SP[a4, a6], a3, a5, a2, n] - S2[a1, SP[a4, a6], a5, a2, a3, n] - 
    S2[a1, SP[a4, a6], a5, a3, a2, n] - S2[a1, SP[a5, a6], a2, a4, a3, n] - 
    S2[a1, SP[a5, a6], a4, a2, a3, n] - S2[a1, SP[a5, a6], a4, a3, a2, n] + 
    S2[a2, a1, a6, a3, SP[a4, a5], n] + S2[a2, a1, a6, SP[a3, a5], a4, n] + 
    S2[a2, a1, SP[a5, a6], a3, a4, n] + S2[a2, SP[a1, a5], a6, a3, a4, n] - 
    S2[a3, a1, a4, a5, SP[a2, a6], n] - S2[a3, a1, a4, SP[a5, a6], a2, n] - 
    S2[a3, a1, a5, a4, SP[a2, a6], n] - S2[a3, a1, a5, a6, SP[a2, a4], n] - 
    S2[a3, a1, a5, SP[a2, a4], a6, n] - S2[a3, a1, a5, SP[a2, a6], a4, n] - 
    S2[a3, a1, a6, a5, SP[a2, a4], n] - S2[a3, a1, a6, SP[a4, a5], a2, n] - 
    S2[a3, a1, SP[a4, a5], a2, a6, n] - S2[a3, a1, SP[a4, a5], a6, a2, n] - 
    S2[a3, a1, SP[a5, a6], a2, a4, n] - S2[a3, a1, SP[a5, a6], a4, a2, n] + 
    S2[a6, n]*S2[a3, a4, a1, a5, a2, n] - S2[a3, a6, a1, a5, SP[a2, a4], n] - 
    S2[a3, a6, a1, SP[a4, a5], a2, n] - S2[a3, a6, SP[a1, a4], a5, a2, n] - 
    S2[a3, SP[a1, a4], a5, a2, a6, n] - S2[a3, SP[a1, a4], a5, a6, a2, n] - 
    S2[a3, SP[a1, a4], a6, a5, a2, n] - S2[a3, SP[a1, a6], a4, a5, a2, n] - 
    S2[a3, SP[a1, a6], a5, a2, a4, n] - S2[a3, SP[a1, a6], a5, a4, a2, n] + 
    S2[a3, SP[a4, a6], a1, a5, a2, n] + S2[a3, n]*S2[a6, a1, a4, a5, a2, n] + 
    S2[a6, a1, a4, a5, SP[a2, a3], n] + S2[a6, a1, a4, SP[a3, a5], a2, n] + 
    S2[a3, n]*S2[a6, a1, a5, a2, a4, n] + S2[a6, a1, a5, a2, SP[a3, a4], n] + 
    S2[a3, n]*S2[a6, a1, a5, a4, a2, n] + S2[a6, a1, a5, a4, SP[a2, a3], n] + 
    S2[a6, a1, a5, SP[a2, a3], a4, n] + S2[a6, a1, a5, SP[a3, a4], a2, n] + 
    S2[a6, a1, SP[a3, a4], a5, a2, n] + S2[a6, a1, SP[a3, a5], a2, a4, n] + 
    S2[a6, a1, SP[a3, a5], a4, a2, n] + S2[a6, SP[a1, a3], a4, a5, a2, n] + 
    S2[a6, SP[a1, a3], a5, a2, a4, n] + S2[a6, SP[a1, a3], a5, a4, a2, n] - 
    S2[SP[a1, a6], a4, a3, a5, a2, n] - S2[SP[a1, a6], a4, a5, a2, a3, n] - 
    S2[SP[a1, a6], a4, a5, a3, a2, n] - S2[SP[a1, a6], a5, a2, a4, a3, n] - 
    S2[SP[a1, a6], a5, a4, a2, a3, n] - S2[SP[a1, a6], a5, a4, a3, a2, n] + 
    S2[SP[a3, a6], a1, a4, a5, a2, n] + S2[SP[a3, a6], a1, a5, a2, a4, n] + 
    S2[SP[a3, a6], a1, a5, a4, a2, n] + S2[SP[a3, a6], a4, a1, a5, a2, n] - 
    S2[a6, a1, a3, a4, a5, a2, n] - S2[a6, a1, a3, a5, a2, a4, n] - 
    S2[a6, a1, a3, a5, a4, a2, n] - S2[a6, a1, a5, a2, a3, a4, n] - 
    S2[a6, a1, a5, a3, a2, a4, n] - S2[a6, a1, a5, a3, a4, a2, n] - 
    S2[a6, a3, a1, a4, a5, a2, n] - S2[a6, a3, a1, a5, a2, a4, n] - 
    S2[a6, a3, a1, a5, a4, a2, n] - S2[a6, a3, a4, a1, a5, a2, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a2_, a5_, a1_, a6_, a4_, a3_, n_] :> 
  S2[a1, a5, a2, n]*S2[a3, a4, a6, n] + S2[SP[a1, a3], SP[a4, a5], 
     SP[a2, a6], n] - S2[a1, a3, SP[a4, a5], SP[a2, a6], n] + 
    S2[a2, a5, n]*S2[a1, a6, a4, a3, n] - S2[a1, a6, SP[a2, a4], SP[a3, a5], 
     n] - S2[a1, SP[a2, a6], a4, SP[a3, a5], n] - 
    S2[a1, SP[a2, a6], SP[a4, a5], a3, n] - S2[a1, SP[a3, a5], a4, 
     SP[a2, a6], n] - S2[a1, SP[a3, a5], SP[a2, a4], a6, n] - 
    S2[a3, a1, SP[a4, a5], SP[a2, a6], n] - S2[a3, SP[a1, a4], a5, 
     SP[a2, a6], n] - S2[a3, SP[a1, a4], SP[a5, a6], a2, n] - 
    S2[SP[a1, a2], a6, a4, SP[a3, a5], n] - S2[SP[a1, a2], a6, SP[a4, a5], 
     a3, n] - S2[SP[a1, a2], SP[a5, a6], a4, a3, n] - 
    S2[SP[a1, a3], a4, a5, SP[a2, a6], n] - S2[SP[a1, a3], a4, SP[a5, a6], 
     a2, n] - S2[SP[a1, a3], a5, a4, SP[a2, a6], n] - 
    S2[SP[a1, a3], a5, SP[a2, a4], a6, n] - S2[SP[a1, a3], SP[a4, a5], a2, 
     a6, n] - S2[SP[a1, a3], SP[a4, a5], a6, a2, n] + 
    S2[a1, a2, a6, a4, SP[a3, a5], n] + S2[a1, a2, a6, SP[a4, a5], a3, n] + 
    S2[a1, a2, SP[a5, a6], a4, a3, n] + S2[a1, a3, a4, a5, SP[a2, a6], n] + 
    S2[a1, a3, a4, SP[a5, a6], a2, n] + S2[a1, a3, a5, a4, SP[a2, a6], n] + 
    S2[a1, a3, a5, SP[a2, a4], a6, n] + S2[a1, a3, SP[a4, a5], a2, a6, n] + 
    S2[a1, a3, SP[a4, a5], a6, a2, n] + S2[a6, n]*S2[a1, a4, a3, a5, a2, n] + 
    S2[a1, a4, a3, a5, SP[a2, a6], n] + S2[a1, a4, a3, SP[a5, a6], a2, n] + 
    S2[a6, n]*S2[a1, a4, a5, a2, a3, n] - 
    S2[a3, n]*S2[a1, a4, a5, a2, a6, n] + 
    S2[a6, n]*S2[a1, a4, a5, a3, a2, n] + S2[a1, a4, a5, a3, SP[a2, a6], n] - 
    S2[a3, n]*S2[a1, a4, a5, a6, a2, n] - S2[a1, a4, a5, a6, SP[a2, a3], n] - 
    S2[a1, a4, a5, SP[a2, a3], a6, n] + S2[a1, a4, a5, SP[a2, a6], a3, n] - 
    S2[a3, n]*S2[a1, a4, a6, a5, a2, n] - S2[a1, a4, a6, a5, SP[a2, a3], n] - 
    S2[a1, a4, a6, SP[a3, a5], a2, n] - S2[a1, a4, SP[a3, a5], a2, a6, n] - 
    S2[a1, a4, SP[a3, a5], a6, a2, n] + S2[a1, a4, SP[a5, a6], a2, a3, n] + 
    S2[a1, a4, SP[a5, a6], a3, a2, n] + S2[a6, n]*S2[a1, a5, a2, a4, a3, n] - 
    S2[a3, n]*S2[a1, a5, a2, a4, a6, n] - S2[a1, a5, a2, SP[a3, a4], a6, n] + 
    S2[a1, a5, a2, SP[a4, a6], a3, n] + S2[a1, a5, a3, a4, SP[a2, a6], n] + 
    S2[a1, a5, a3, SP[a2, a4], a6, n] + S2[a6, n]*S2[a1, a5, a4, a2, a3, n] - 
    S2[a3, n]*S2[a1, a5, a4, a2, a6, n] + 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] + S2[a1, a5, a4, a3, SP[a2, a6], n] - 
    S2[a3, n]*S2[a1, a5, a4, a6, a2, n] - S2[a1, a5, a4, a6, SP[a2, a3], n] - 
    S2[a1, a5, a4, SP[a2, a3], a6, n] + S2[a1, a5, a4, SP[a2, a6], a3, n] - 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] - S2[a1, a5, a6, a4, SP[a2, a3], n] - 
    S2[a1, a5, a6, SP[a2, a4], a3, n] - S2[a1, a5, SP[a3, a4], a2, a6, n] - 
    S2[a1, a5, SP[a3, a4], a6, a2, n] + S2[a1, a5, SP[a4, a6], a2, a3, n] + 
    S2[a1, a5, SP[a4, a6], a3, a2, n] + S2[a1, a6, a2, a4, SP[a3, a5], n] + 
    S2[a1, a6, a2, SP[a4, a5], a3, n] + S2[a1, a6, a4, a2, SP[a3, a5], n] - 
    S2[a2, n]*S2[a1, a6, a4, a3, a5, n] - S2[a1, a6, a4, a3, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a6, a4, a5, a3, n] - S2[a1, a6, a4, a5, SP[a2, a3], n] - 
    S2[a1, a6, a4, SP[a2, a5], a3, n] - S2[a2, n]*S2[a1, a6, a5, a4, a3, n] - 
    S2[a1, a6, a5, a4, SP[a2, a3], n] - S2[a1, a6, a5, SP[a2, a4], a3, n] - 
    S2[a1, a6, SP[a2, a5], a4, a3, n] - S2[a1, SP[a2, a5], a6, a4, a3, n] - 
    S2[a1, SP[a3, a4], a5, a2, a6, n] - S2[a1, SP[a3, a4], a5, a6, a2, n] - 
    S2[a1, SP[a3, a4], a6, a5, a2, n] + S2[a1, SP[a4, a6], a3, a5, a2, n] + 
    S2[a1, SP[a4, a6], a5, a2, a3, n] + S2[a1, SP[a4, a6], a5, a3, a2, n] + 
    S2[a1, SP[a5, a6], a2, a4, a3, n] + S2[a1, SP[a5, a6], a4, a2, a3, n] + 
    S2[a1, SP[a5, a6], a4, a3, a2, n] + S2[a2, a1, a6, a4, SP[a3, a5], n] + 
    S2[a2, a1, a6, SP[a4, a5], a3, n] + S2[a2, a1, SP[a5, a6], a4, a3, n] + 
    S2[a2, SP[a1, a5], a6, a4, a3, n] + S2[a3, a1, a4, a5, SP[a2, a6], n] + 
    S2[a3, a1, a4, SP[a5, a6], a2, n] + S2[a3, a1, a5, a4, SP[a2, a6], n] + 
    S2[a3, a1, a5, SP[a2, a4], a6, n] + S2[a3, a1, SP[a4, a5], a2, a6, n] + 
    S2[a3, a1, SP[a4, a5], a6, a2, n] - S2[a6, n]*S2[a3, a4, a1, a5, a2, n] + 
    S2[a3, SP[a1, a4], a5, a2, a6, n] + S2[a3, SP[a1, a4], a5, a6, a2, n] + 
    S2[a3, SP[a1, a4], a6, a5, a2, n] - S2[a3, SP[a4, a6], a1, a5, a2, n] + 
    S2[a3, n]*S2[a6, a4, a1, a5, a2, n] + S2[a6, a4, a1, a5, SP[a2, a3], n] + 
    S2[a6, a4, a1, SP[a3, a5], a2, n] + S2[a6, a4, SP[a1, a3], a5, a2, n] + 
    S2[a6, SP[a3, a4], a1, a5, a2, n] + S2[SP[a1, a6], a4, a3, a5, a2, n] + 
    S2[SP[a1, a6], a4, a5, a2, a3, n] + S2[SP[a1, a6], a4, a5, a3, a2, n] + 
    S2[SP[a1, a6], a5, a2, a4, a3, n] + S2[SP[a1, a6], a5, a4, a2, a3, n] + 
    S2[SP[a1, a6], a5, a4, a3, a2, n] - S2[a6, a1, a4, a3, a5, a2, n] - 
    S2[a6, a1, a4, a5, a2, a3, n] - S2[a6, a1, a4, a5, a3, a2, n] - 
    S2[a6, a1, a5, a2, a4, a3, n] - S2[a6, a1, a5, a4, a2, a3, n] - 
    S2[a6, a1, a5, a4, a3, a2, n] - S2[a6, a4, a1, a3, a5, a2, n] - 
    S2[a6, a4, a1, a5, a2, a3, n] - S2[a6, a4, a1, a5, a3, a2, n] - 
    S2[a6, a4, a3, a1, a5, a2, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a2_, a5_, a3_, a1_, a4_, a6_, n_] :> 
  S2[a1, a4, a6, n]*S2[a2, a5, a3, n] + S2[SP[a1, a2], SP[a4, a5], 
     SP[a3, a6], n] - S2[a1, a2, SP[a4, a5], SP[a3, a6], n] - 
    S2[a2, a5, n]*S2[a1, a3, a4, a6, n] - S2[a4, a6, n]*
     S2[a1, a3, a5, a2, n] + S2[a1, a3, SP[a2, a4], SP[a5, a6], n] + 
    S2[a1, a3, SP[a4, a5], SP[a2, a6], n] - S2[a2, a5, n]*
     S2[a1, a4, a3, a6, n] - S2[a2, a5, n]*S2[a1, a4, a6, a3, n] + 
    S2[a1, a4, SP[a2, a3], SP[a5, a6], n] + S2[a1, a4, SP[a2, a6], 
     SP[a3, a5], n] + S2[a1, SP[a2, a3], a4, SP[a5, a6], n] + 
    S2[a1, SP[a2, a3], SP[a4, a5], a6, n] + S2[a1, SP[a2, a4], a3, 
     SP[a5, a6], n] - S2[a1, SP[a2, a4], a5, SP[a3, a6], n] + 
    S2[a1, SP[a2, a4], a6, SP[a3, a5], n] + S2[a1, SP[a2, a4], SP[a3, a5], 
     a6, n] + S2[a1, SP[a3, a4], a5, SP[a2, a6], n] + 
    S2[a1, SP[a3, a4], SP[a5, a6], a2, n] - S2[a2, a1, SP[a4, a5], 
     SP[a3, a6], n] - S2[a2, SP[a1, a5], a4, SP[a3, a6], n] - 
    S2[a2, SP[a1, a5], SP[a3, a4], a6, n] + S2[SP[a1, a2], a3, a4, 
     SP[a5, a6], n] + S2[SP[a1, a2], a3, SP[a4, a5], a6, n] + 
    S2[SP[a1, a2], a4, a3, SP[a5, a6], n] - S2[SP[a1, a2], a4, a5, 
     SP[a3, a6], n] + S2[SP[a1, a2], a4, a6, SP[a3, a5], n] + 
    S2[SP[a1, a2], a4, SP[a3, a5], a6, n] - S2[SP[a1, a2], a5, a4, 
     SP[a3, a6], n] - S2[SP[a1, a2], a5, SP[a3, a4], a6, n] + 
    S2[SP[a1, a2], SP[a3, a5], a4, a6, n] + S2[SP[a1, a4], a3, a5, 
     SP[a2, a6], n] + S2[SP[a1, a4], a3, SP[a5, a6], a2, n] + 
    S2[SP[a1, a4], SP[a3, a6], a5, a2, n] - S2[a1, a2, a3, a4, SP[a5, a6], 
     n] - S2[a1, a2, a3, SP[a4, a5], a6, n] - S2[a1, a2, a4, a3, SP[a5, a6], 
     n] + S2[a1, a2, a4, a5, SP[a3, a6], n] - S2[a1, a2, a4, a6, SP[a3, a5], 
     n] - S2[a1, a2, a4, SP[a3, a5], a6, n] + S2[a1, a2, a5, a4, SP[a3, a6], 
     n] + S2[a1, a2, a5, SP[a3, a4], a6, n] - S2[a1, a2, SP[a3, a5], a4, a6, 
     n] - S2[a1, a3, a2, a4, SP[a5, a6], n] - S2[a1, a3, a2, SP[a4, a5], a6, 
     n] - S2[a1, a3, a4, a2, SP[a5, a6], n] - 
    S2[a6, n]*S2[a1, a3, a4, a5, a2, n] + 
    S2[a2, n]*S2[a1, a3, a4, a5, a6, n] - S2[a1, a3, a4, a5, SP[a2, a6], n] + 
    S2[a2, n]*S2[a1, a3, a4, a6, a5, n] + S2[a1, a3, a4, a6, SP[a2, a5], n] + 
    S2[a1, a3, a4, SP[a2, a5], a6, n] - 2*S2[a1, a3, a4, SP[a5, a6], a2, n] - 
    S2[a6, n]*S2[a1, a3, a5, a2, a4, n] + 
    S2[a4, n]*S2[a1, a3, a5, a2, a6, n] - 
    S2[a6, n]*S2[a1, a3, a5, a4, a2, n] + 
    S2[a2, n]*S2[a1, a3, a5, a4, a6, n] - S2[a1, a3, a5, a4, SP[a2, a6], n] + 
    S2[a4, n]*S2[a1, a3, a5, a6, a2, n] + S2[a1, a3, a5, a6, SP[a2, a4], n] + 
    S2[a1, a3, a5, SP[a2, a4], a6, n] - S2[a1, a3, a5, SP[a2, a6], a4, n] + 
    S2[a4, n]*S2[a1, a3, a6, a5, a2, n] + S2[a1, a3, a6, a5, SP[a2, a4], n] + 
    S2[a1, a3, a6, SP[a4, a5], a2, n] + S2[a1, a3, SP[a2, a5], a4, a6, n] - 
    S2[a1, a3, SP[a5, a6], a2, a4, n] - S2[a1, a3, SP[a5, a6], a4, a2, n] - 
    S2[a1, a4, a2, a3, SP[a5, a6], n] + S2[a1, a4, a2, a5, SP[a3, a6], n] - 
    S2[a1, a4, a2, a6, SP[a3, a5], n] - S2[a1, a4, a2, SP[a3, a5], a6, n] - 
    S2[a1, a4, a3, a2, SP[a5, a6], n] - S2[a6, n]*S2[a1, a4, a3, a5, a2, n] + 
    S2[a2, n]*S2[a1, a4, a3, a5, a6, n] - S2[a1, a4, a3, a5, SP[a2, a6], n] + 
    S2[a2, n]*S2[a1, a4, a3, a6, a5, n] + S2[a1, a4, a3, a6, SP[a2, a5], n] + 
    S2[a1, a4, a3, SP[a2, a5], a6, n] - 2*S2[a1, a4, a3, SP[a5, a6], a2, n] - 
    S2[a1, a4, a6, a2, SP[a3, a5], n] + S2[a2, n]*S2[a1, a4, a6, a3, a5, n] + 
    S2[a1, a4, a6, a3, SP[a2, a5], n] - 2*S2[a1, a4, SP[a3, a6], a5, a2, n] + 
    S2[a4, n]*S2[a1, a6, a3, a5, a2, n] + S2[a1, a6, a3, a5, SP[a2, a4], n] + 
    S2[a1, a6, a3, SP[a4, a5], a2, n] + S2[a1, a6, SP[a3, a4], a5, a2, n] - 
    S2[a1, SP[a3, a6], a4, a5, a2, n] - S2[a1, SP[a3, a6], a5, a2, a4, n] - 
    S2[a1, SP[a3, a6], a5, a4, a2, n] - S2[a2, a1, a3, a4, SP[a5, a6], n] - 
    S2[a2, a1, a3, SP[a4, a5], a6, n] - S2[a2, a1, a4, a3, SP[a5, a6], n] + 
    S2[a2, a1, a4, a5, SP[a3, a6], n] - S2[a2, a1, a4, a6, SP[a3, a5], n] - 
    S2[a2, a1, a4, SP[a3, a5], a6, n] + S2[a2, a1, a5, a4, SP[a3, a6], n] + 
    S2[a2, a1, a5, SP[a3, a4], a6, n] - S2[a2, a1, SP[a3, a5], a4, a6, n] + 
    S2[a2, a5, a1, a4, SP[a3, a6], n] + S2[a2, a5, a1, SP[a3, a4], a6, n] + 
    S2[a2, a5, SP[a1, a3], a4, a6, n] - S2[a4, a1, a3, a5, SP[a2, a6], n] - 
    S2[a4, a1, a3, SP[a5, a6], a2, n] - S2[a4, a1, SP[a3, a6], a5, a2, n] - 
    S2[a4, SP[a1, a6], a3, a5, a2, n] + S2[a4, n]*S2[a6, a1, a3, a5, a2, n] + 
    S2[a6, a1, a3, a5, SP[a2, a4], n] + S2[a6, a1, a3, SP[a4, a5], a2, n] + 
    S2[a6, a1, SP[a3, a4], a5, a2, n] + S2[a6, SP[a1, a4], a3, a5, a2, n] - 
    S2[SP[a1, a6], a3, a4, a5, a2, n] - S2[SP[a1, a6], a3, a5, a2, a4, n] - 
    S2[SP[a1, a6], a3, a5, a4, a2, n] - S2[SP[a1, a6], a4, a3, a5, a2, n] + 
    S2[SP[a4, a6], a1, a3, a5, a2, n] - S2[a6, a4, a1, a3, a5, a2, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a2_, a5_, a3_, a1_, a6_, a4_, n_] :> 
  S2[a1, a6, a4, n]*S2[a2, a5, a3, n] + S2[SP[a1, a2], SP[a5, a6], 
     SP[a3, a4], n] - S2[a1, a2, SP[a5, a6], SP[a3, a4], n] + 
    S2[a4, a6, n]*S2[a1, a3, a5, a2, n] - S2[a2, a5, n]*
     S2[a1, a3, a6, a4, n] + S2[a1, a3, SP[a2, a6], SP[a4, a5], n] - 
    S2[a1, a3, SP[a4, a5], SP[a2, a6], n] - S2[a2, a5, n]*
     S2[a1, a6, a3, a4, n] - S2[a2, a5, n]*S2[a1, a6, a4, a3, n] + 
    S2[a1, a6, SP[a2, a3], SP[a4, a5], n] + S2[a1, a6, SP[a2, a4], 
     SP[a3, a5], n] + S2[a1, SP[a2, a3], a6, SP[a4, a5], n] + 
    S2[a1, SP[a2, a3], SP[a5, a6], a4, n] + S2[a1, SP[a2, a6], a3, 
     SP[a4, a5], n] + S2[a1, SP[a2, a6], a4, SP[a3, a5], n] - 
    S2[a1, SP[a2, a6], a5, SP[a3, a4], n] + S2[a1, SP[a2, a6], SP[a3, a5], 
     a4, n] - S2[a1, SP[a3, a4], a5, SP[a2, a6], n] - 
    S2[a1, SP[a3, a4], SP[a5, a6], a2, n] - S2[a2, a1, SP[a5, a6], 
     SP[a3, a4], n] - S2[a2, SP[a1, a5], a6, SP[a3, a4], n] - 
    S2[a2, SP[a1, a5], SP[a3, a6], a4, n] + S2[SP[a1, a2], a3, a6, 
     SP[a4, a5], n] + S2[SP[a1, a2], a3, SP[a5, a6], a4, n] - 
    S2[SP[a1, a2], a5, a6, SP[a3, a4], n] - S2[SP[a1, a2], a5, SP[a3, a6], 
     a4, n] + S2[SP[a1, a2], a6, a3, SP[a4, a5], n] + 
    S2[SP[a1, a2], a6, a4, SP[a3, a5], n] - S2[SP[a1, a2], a6, a5, 
     SP[a3, a4], n] + S2[SP[a1, a2], a6, SP[a3, a5], a4, n] + 
    S2[SP[a1, a2], SP[a3, a5], a6, a4, n] - S2[SP[a1, a4], a3, a5, 
     SP[a2, a6], n] - S2[SP[a1, a4], a3, SP[a5, a6], a2, n] - 
    S2[SP[a1, a4], SP[a3, a6], a5, a2, n] - S2[a1, a2, a3, a6, SP[a4, a5], 
     n] - S2[a1, a2, a3, SP[a5, a6], a4, n] + S2[a1, a2, a5, a6, SP[a3, a4], 
     n] + S2[a1, a2, a5, SP[a3, a6], a4, n] - S2[a1, a2, a6, a3, SP[a4, a5], 
     n] - S2[a1, a2, a6, a4, SP[a3, a5], n] + S2[a1, a2, a6, a5, SP[a3, a4], 
     n] - S2[a1, a2, a6, SP[a3, a5], a4, n] - S2[a1, a2, SP[a3, a5], a6, a4, 
     n] - S2[a1, a3, a2, a6, SP[a4, a5], n] - S2[a1, a3, a2, SP[a5, a6], a4, 
     n] + S2[a1, a3, a4, a5, SP[a2, a6], n] + S2[a1, a3, a4, SP[a5, a6], a2, 
     n] - S2[a4, n]*S2[a1, a3, a5, a2, a6, n] - S2[a1, a3, a5, a2, 
     SP[a4, a6], n] + S2[a1, a3, a5, a4, SP[a2, a6], n] - 
    S2[a4, n]*S2[a1, a3, a5, a6, a2, n] + 
    S2[a2, n]*S2[a1, a3, a5, a6, a4, n] + S2[a1, a3, a5, SP[a2, a6], a4, n] - 
    S2[a1, a3, a5, SP[a4, a6], a2, n] - S2[a1, a3, a6, a2, SP[a4, a5], n] + 
    S2[a2, n]*S2[a1, a3, a6, a4, a5, n] + S2[a1, a3, a6, a4, SP[a2, a5], n] - 
    S2[a4, n]*S2[a1, a3, a6, a5, a2, n] + 
    S2[a2, n]*S2[a1, a3, a6, a5, a4, n] + S2[a1, a3, a6, SP[a2, a5], a4, n] - 
    S2[a1, a3, a6, SP[a4, a5], a2, n] + S2[a1, a3, SP[a2, a5], a6, a4, n] - 
    S2[a1, a3, SP[a4, a6], a5, a2, n] + S2[a1, a4, a3, a5, SP[a2, a6], n] + 
    S2[a1, a4, a3, SP[a5, a6], a2, n] + S2[a1, a4, SP[a3, a6], a5, a2, n] - 
    S2[a1, a6, a2, a3, SP[a4, a5], n] - S2[a1, a6, a2, a4, SP[a3, a5], n] + 
    S2[a1, a6, a2, a5, SP[a3, a4], n] - S2[a1, a6, a2, SP[a3, a5], a4, n] - 
    S2[a1, a6, a3, a2, SP[a4, a5], n] + S2[a2, n]*S2[a1, a6, a3, a4, a5, n] + 
    S2[a1, a6, a3, a4, SP[a2, a5], n] - S2[a4, n]*S2[a1, a6, a3, a5, a2, n] + 
    S2[a2, n]*S2[a1, a6, a3, a5, a4, n] + S2[a1, a6, a3, SP[a2, a5], a4, n] - 
    S2[a1, a6, a3, SP[a4, a5], a2, n] - S2[a1, a6, a4, a2, SP[a3, a5], n] + 
    S2[a2, n]*S2[a1, a6, a4, a3, a5, n] + S2[a1, a6, a4, a3, SP[a2, a5], n] - 
    S2[a1, a6, SP[a3, a4], a5, a2, n] - S2[a1, SP[a4, a6], a3, a5, a2, n] - 
    S2[a2, a1, a3, a6, SP[a4, a5], n] - S2[a2, a1, a3, SP[a5, a6], a4, n] + 
    S2[a2, a1, a5, a6, SP[a3, a4], n] + S2[a2, a1, a5, SP[a3, a6], a4, n] - 
    S2[a2, a1, a6, a3, SP[a4, a5], n] - S2[a2, a1, a6, a4, SP[a3, a5], n] + 
    S2[a2, a1, a6, a5, SP[a3, a4], n] - S2[a2, a1, a6, SP[a3, a5], a4, n] - 
    S2[a2, a1, SP[a3, a5], a6, a4, n] + S2[a2, a5, a1, a6, SP[a3, a4], n] + 
    S2[a2, a5, a1, SP[a3, a6], a4, n] + S2[a2, a5, SP[a1, a3], a6, a4, n] + 
    S2[a4, a1, a3, a5, SP[a2, a6], n] + S2[a4, a1, a3, SP[a5, a6], a2, n] + 
    S2[a4, a1, SP[a3, a6], a5, a2, n] + S2[a4, SP[a1, a6], a3, a5, a2, n] - 
    S2[a4, n]*S2[a6, a1, a3, a5, a2, n] - S2[a6, a1, a3, a5, SP[a2, a4], n] - 
    S2[a6, a1, a3, SP[a4, a5], a2, n] - S2[a6, a1, SP[a3, a4], a5, a2, n] - 
    S2[a6, SP[a1, a4], a3, a5, a2, n] - S2[SP[a4, a6], a1, a3, a5, a2, n] + 
    S2[a6, a1, a3, a4, a5, a2, n] + S2[a6, a1, a3, a5, a2, a4, n] + 
    S2[a6, a1, a3, a5, a4, a2, n] + S2[a6, a1, a4, a3, a5, a2, n] + 
    S2[a6, a4, a1, a3, a5, a2, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a2_, a5_, a3_, a4_, a1_, a6_, n_] :> 
  -(S2[a1, a4, a6, n]*S2[a2, a5, a3, n]) - S2[a1, a6, a4, n]*
     S2[a2, a5, a3, n] - S2[SP[a1, a2], SP[a4, a5], SP[a3, a6], n] - 
    S2[SP[a1, a2], SP[a5, a6], SP[a3, a4], n] + S2[a1, a2, SP[a4, a5], 
     SP[a3, a6], n] + S2[a1, a2, SP[a5, a6], SP[a3, a4], n] + 
    S2[a2, a5, n]*S2[a1, a4, a3, a6, n] + S2[a2, a5, n]*
     S2[a1, a4, a6, a3, n] - S2[a1, a4, SP[a2, a3], SP[a5, a6], n] - 
    S2[a1, a4, SP[a2, a6], SP[a3, a5], n] + S2[a2, a5, n]*
     S2[a1, a6, a4, a3, n] - S2[a1, a6, SP[a2, a4], SP[a3, a5], n] - 
    S2[a1, SP[a2, a4], a3, SP[a5, a6], n] + S2[a1, SP[a2, a4], a5, 
     SP[a3, a6], n] - S2[a1, SP[a2, a4], a6, SP[a3, a5], n] - 
    S2[a1, SP[a2, a4], SP[a3, a5], a6, n] - S2[a1, SP[a2, a6], a4, 
     SP[a3, a5], n] + S2[a1, SP[a2, a6], a5, SP[a3, a4], n] + 
    S2[a2, a1, SP[a4, a5], SP[a3, a6], n] + S2[a2, a1, SP[a5, a6], 
     SP[a3, a4], n] + S2[a1, a6, n]*S2[a2, a5, a3, a4, n] - 
    S2[a2, a5, SP[a1, a3], SP[a4, a6], n] - S2[a2, SP[a1, a5], a3, 
     SP[a4, a6], n] + S2[a2, SP[a1, a5], a4, SP[a3, a6], n] + 
    S2[a2, SP[a1, a5], a6, SP[a3, a4], n] + S2[a2, SP[a1, a5], SP[a3, a4], 
     a6, n] - S2[SP[a1, a2], a4, a3, SP[a5, a6], n] + 
    S2[SP[a1, a2], a4, a5, SP[a3, a6], n] - S2[SP[a1, a2], a4, a6, 
     SP[a3, a5], n] - S2[SP[a1, a2], a4, SP[a3, a5], a6, n] - 
    S2[SP[a1, a2], a5, a3, SP[a4, a6], n] + S2[SP[a1, a2], a5, a4, 
     SP[a3, a6], n] + S2[SP[a1, a2], a5, a6, SP[a3, a4], n] + 
    S2[SP[a1, a2], a5, SP[a3, a4], a6, n] - S2[SP[a1, a2], a6, a4, 
     SP[a3, a5], n] + S2[SP[a1, a2], a6, a5, SP[a3, a4], n] + 
    S2[a1, a2, a4, a3, SP[a5, a6], n] - S2[a1, a2, a4, a5, SP[a3, a6], n] + 
    S2[a1, a2, a4, a6, SP[a3, a5], n] + S2[a1, a2, a4, SP[a3, a5], a6, n] + 
    S2[a1, a2, a5, a3, SP[a4, a6], n] - S2[a1, a2, a5, a4, SP[a3, a6], n] - 
    S2[a1, a2, a5, a6, SP[a3, a4], n] - S2[a1, a2, a5, SP[a3, a4], a6, n] + 
    S2[a1, a2, a6, a4, SP[a3, a5], n] - S2[a1, a2, a6, a5, SP[a3, a4], n] + 
    S2[a1, a4, a2, a3, SP[a5, a6], n] - S2[a1, a4, a2, a5, SP[a3, a6], n] + 
    S2[a1, a4, a2, a6, SP[a3, a5], n] + S2[a1, a4, a2, SP[a3, a5], a6, n] + 
    S2[a1, a4, a3, a2, SP[a5, a6], n] + S2[a6, n]*S2[a1, a4, a3, a5, a2, n] - 
    S2[a2, n]*S2[a1, a4, a3, a5, a6, n] - 
    S2[a2, n]*S2[a1, a4, a3, a6, a5, n] - S2[a1, a4, a3, a6, SP[a2, a5], n] - 
    S2[a1, a4, a3, SP[a2, a5], a6, n] + S2[a1, a4, a3, SP[a5, a6], a2, n] + 
    S2[a1, a4, a6, a2, SP[a3, a5], n] - S2[a2, n]*S2[a1, a4, a6, a3, a5, n] - 
    S2[a1, a4, a6, a3, SP[a2, a5], n] + S2[a1, a4, SP[a3, a6], a5, a2, n] + 
    S2[a1, a6, a2, a4, SP[a3, a5], n] - S2[a1, a6, a2, a5, SP[a3, a4], n] + 
    S2[a1, a6, a4, a2, SP[a3, a5], n] - S2[a2, n]*S2[a1, a6, a4, a3, a5, n] - 
    S2[a1, a6, a4, a3, SP[a2, a5], n] + S2[a1, SP[a4, a6], a3, a5, a2, n] + 
    S2[a2, a1, a4, a3, SP[a5, a6], n] - S2[a2, a1, a4, a5, SP[a3, a6], n] + 
    S2[a2, a1, a4, a6, SP[a3, a5], n] + S2[a2, a1, a4, SP[a3, a5], a6, n] + 
    S2[a2, a1, a5, a3, SP[a4, a6], n] - S2[a2, a1, a5, a4, SP[a3, a6], n] - 
    S2[a2, a1, a5, a6, SP[a3, a4], n] - S2[a2, a1, a5, SP[a3, a4], a6, n] + 
    S2[a2, a1, a6, a4, SP[a3, a5], n] - S2[a2, a1, a6, a5, SP[a3, a4], n] + 
    S2[a2, a5, a1, a3, SP[a4, a6], n] - S2[a2, a5, a1, a4, SP[a3, a6], n] - 
    S2[a2, a5, a1, a6, SP[a3, a4], n] - S2[a2, a5, a1, SP[a3, a4], a6, n] + 
    S2[a2, a5, a3, a1, SP[a4, a6], n] + S2[a2, a5, a3, SP[a1, a4], a6, n] + 
    S2[SP[a1, a6], a4, a3, a5, a2, n] - S2[a6, a1, a4, a3, a5, a2, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a2_, a5_, a3_, a4_, a6_, a1_, n_] :> 
  S2[a1, a6, a4, n]*S2[a2, a5, a3, n] + S2[SP[a1, a2], SP[a5, a6], 
     SP[a3, a4], n] - S2[a1, a2, SP[a5, a6], SP[a3, a4], n] - 
    S2[a2, a5, n]*S2[a1, a6, a4, a3, n] + S2[a1, a6, SP[a2, a4], SP[a3, a5], 
     n] + S2[a1, SP[a2, a6], a4, SP[a3, a5], n] - S2[a1, SP[a2, a6], a5, 
     SP[a3, a4], n] - S2[a2, a1, SP[a5, a6], SP[a3, a4], n] - 
    S2[a1, a6, n]*S2[a2, a5, a3, a4, n] + S2[a2, a5, SP[a1, a3], SP[a4, a6], 
     n] + S2[a2, SP[a1, a5], a3, SP[a4, a6], n] - S2[a2, SP[a1, a5], a6, 
     SP[a3, a4], n] + S2[SP[a1, a2], a5, a3, SP[a4, a6], n] - 
    S2[SP[a1, a2], a5, a6, SP[a3, a4], n] + S2[SP[a1, a2], a6, a4, 
     SP[a3, a5], n] - S2[SP[a1, a2], a6, a5, SP[a3, a4], n] - 
    S2[a1, a2, a5, a3, SP[a4, a6], n] + S2[a1, a2, a5, a6, SP[a3, a4], n] - 
    S2[a1, a2, a6, a4, SP[a3, a5], n] + S2[a1, a2, a6, a5, SP[a3, a4], n] - 
    S2[a1, a6, a2, a4, SP[a3, a5], n] + S2[a1, a6, a2, a5, SP[a3, a4], n] - 
    S2[a1, a6, a4, a2, SP[a3, a5], n] + S2[a2, n]*S2[a1, a6, a4, a3, a5, n] + 
    S2[a1, a6, a4, a3, SP[a2, a5], n] - S2[a2, a1, a5, a3, SP[a4, a6], n] + 
    S2[a2, a1, a5, a6, SP[a3, a4], n] - S2[a2, a1, a6, a4, SP[a3, a5], n] + 
    S2[a2, a1, a6, a5, SP[a3, a4], n] - S2[a2, a5, a1, a3, SP[a4, a6], n] + 
    S2[a2, a5, a1, a6, SP[a3, a4], n] - S2[a2, a5, a3, a1, SP[a4, a6], n] + 
    S2[a1, n]*S2[a2, a5, a3, a4, a6, n] + S2[a2, a5, a3, a4, SP[a1, a6], n] - 
    S2[a1, n]*S2[a6, a4, a3, a5, a2, n] - S2[a6, a4, a3, a5, SP[a1, a2], n] - 
    S2[a6, a4, a3, SP[a1, a5], a2, n] - S2[a6, a4, SP[a1, a3], a5, a2, n] - 
    S2[a6, SP[a1, a4], a3, a5, a2, n] - S2[SP[a1, a6], a4, a3, a5, a2, n] + 
    S2[a6, a1, a4, a3, a5, a2, n] + S2[a6, a4, a1, a3, a5, a2, n] + 
    S2[a6, a4, a3, a1, a5, a2, n] + S2[a6, a4, a3, a5, a1, a2, n] + 
    S2[a6, a4, a3, a5, a2, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a2_, a5_, a3_, a6_, a1_, a4_, n_] :> 
  -(S2[a1, a4, a6, n]*S2[a2, a5, a3, n]) - S2[a1, a6, a4, n]*
     S2[a2, a5, a3, n] - S2[SP[a1, a2], SP[a4, a5], SP[a3, a6], n] - 
    S2[SP[a1, a2], SP[a5, a6], SP[a3, a4], n] + S2[a1, a2, SP[a4, a5], 
     SP[a3, a6], n] + S2[a1, a2, SP[a5, a6], SP[a3, a4], n] + 
    S2[a2, a5, n]*S2[a1, a4, a6, a3, n] - S2[a1, a4, SP[a2, a6], SP[a3, a5], 
     n] + S2[a2, a5, n]*S2[a1, a6, a3, a4, n] + 
    S2[a2, a5, n]*S2[a1, a6, a4, a3, n] - S2[a1, a6, SP[a2, a3], SP[a4, a5], 
     n] - S2[a1, a6, SP[a2, a4], SP[a3, a5], n] + S2[a1, SP[a2, a4], a5, 
     SP[a3, a6], n] - S2[a1, SP[a2, a4], a6, SP[a3, a5], n] - 
    S2[a1, SP[a2, a6], a3, SP[a4, a5], n] - S2[a1, SP[a2, a6], a4, 
     SP[a3, a5], n] + S2[a1, SP[a2, a6], a5, SP[a3, a4], n] - 
    S2[a1, SP[a2, a6], SP[a3, a5], a4, n] + S2[a2, a1, SP[a4, a5], 
     SP[a3, a6], n] + S2[a2, a1, SP[a5, a6], SP[a3, a4], n] - 
    S2[a1, a4, n]*S2[a2, a5, a6, a3, n] + S2[a2, a5, SP[a1, a6], SP[a3, a4], 
     n] - S2[a1, a4, n]*S2[a2, a6, a3, a5, n] - 
    S2[a1, a4, n]*S2[a2, a6, a5, a3, n] + S2[a2, a6, SP[a1, a3], SP[a4, a5], 
     n] + S2[a2, a6, SP[a1, a5], SP[a3, a4], n] + S2[a2, SP[a1, a5], a4, 
     SP[a3, a6], n] + 2*S2[a2, SP[a1, a5], a6, SP[a3, a4], n] + 
    S2[a2, SP[a1, a5], SP[a3, a4], a6, n] + S2[a2, SP[a1, a5], SP[a3, a6], 
     a4, n] + S2[a2, SP[a1, a5], SP[a4, a6], a3, n] + 
    S2[a2, SP[a1, a6], a3, SP[a4, a5], n] + S2[a2, SP[a1, a6], a5, 
     SP[a3, a4], n] + S2[a2, SP[a1, a6], SP[a3, a4], a5, n] + 
    S2[a2, SP[a1, a6], SP[a4, a5], a3, n] + S2[a1, a4, n]*
     S2[a3, a6, a2, a5, n] - S2[a3, a6, SP[a1, a2], SP[a4, a5], n] - 
    S2[a3, SP[a1, a6], a2, SP[a4, a5], n] - S2[a3, SP[a1, a6], SP[a2, a4], 
     a5, n] + S2[SP[a1, a2], a4, a5, SP[a3, a6], n] - 
    S2[SP[a1, a2], a4, a6, SP[a3, a5], n] + S2[SP[a1, a2], a5, a4, 
     SP[a3, a6], n] + 2*S2[SP[a1, a2], a5, a6, SP[a3, a4], n] + 
    S2[SP[a1, a2], a5, SP[a3, a4], a6, n] + S2[SP[a1, a2], a5, SP[a3, a6], 
     a4, n] + S2[SP[a1, a2], a5, SP[a4, a6], a3, n] - 
    S2[SP[a1, a2], a6, a4, SP[a3, a5], n] + 
    2*S2[SP[a1, a2], a6, a5, SP[a3, a4], n] + S2[SP[a1, a2], a6, SP[a3, a4], 
     a5, n] - S2[SP[a1, a2], a6, SP[a3, a5], a4, n] + 
    S2[SP[a1, a2], a6, SP[a4, a5], a3, n] + S2[SP[a1, a2], SP[a4, a5], a3, 
     a6, n] + S2[SP[a1, a2], SP[a4, a5], a6, a3, n] + 
    S2[SP[a1, a2], SP[a4, a6], a3, a5, n] + S2[SP[a1, a2], SP[a4, a6], a5, 
     a3, n] - S2[SP[a1, a3], a6, a2, SP[a4, a5], n] - 
    S2[SP[a1, a3], a6, SP[a2, a4], a5, n] - S2[SP[a1, a3], SP[a4, a6], a2, 
     a5, n] - S2[a1, a2, a4, a5, SP[a3, a6], n] + 
    S2[a1, a2, a4, a6, SP[a3, a5], n] - S2[a1, a2, a5, a4, SP[a3, a6], n] - 
    2*S2[a1, a2, a5, a6, SP[a3, a4], n] - S2[a1, a2, a5, SP[a3, a4], a6, n] - 
    S2[a1, a2, a5, SP[a3, a6], a4, n] - S2[a1, a2, a5, SP[a4, a6], a3, n] + 
    S2[a1, a2, a6, a4, SP[a3, a5], n] - 2*S2[a1, a2, a6, a5, SP[a3, a4], n] - 
    S2[a1, a2, a6, SP[a3, a4], a5, n] + S2[a1, a2, a6, SP[a3, a5], a4, n] - 
    S2[a1, a2, a6, SP[a4, a5], a3, n] - S2[a1, a2, SP[a4, a5], a3, a6, n] - 
    S2[a1, a2, SP[a4, a5], a6, a3, n] - S2[a1, a2, SP[a4, a6], a3, a5, n] - 
    S2[a1, a2, SP[a4, a6], a5, a3, n] + S2[a1, a3, a6, a2, SP[a4, a5], n] + 
    S2[a1, a3, a6, SP[a2, a4], a5, n] + S2[a1, a3, SP[a4, a6], a2, a5, n] - 
    S2[a1, a4, a2, a5, SP[a3, a6], n] + S2[a1, a4, a2, a6, SP[a3, a5], n] - 
    S2[a6, n]*S2[a1, a4, a5, a2, a3, n] - S2[a1, a4, a5, a2, SP[a3, a6], n] - 
    S2[a6, n]*S2[a1, a4, a5, a3, a2, n] + 
    S2[a2, n]*S2[a1, a4, a5, a3, a6, n] + 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] + S2[a1, a4, a5, a6, SP[a2, a3], n] + 
    S2[a1, a4, a5, SP[a2, a3], a6, n] - S2[a1, a4, a5, SP[a3, a6], a2, n] - 
    S2[a3, n]*S2[a1, a4, a6, a2, a5, n] + 
    S2[a2, n]*S2[a1, a4, a6, a5, a3, n] + S2[a1, a4, a6, a5, SP[a2, a3], n] + 
    S2[a1, a4, a6, SP[a2, a5], a3, n] + S2[a1, a4, SP[a2, a5], a3, a6, n] + 
    S2[a1, a4, SP[a2, a5], a6, a3, n] + S2[a1, a4, SP[a2, a6], a3, a5, n] + 
    S2[a1, a4, SP[a2, a6], a5, a3, n] - S2[a1, a4, SP[a3, a6], a2, a5, n] - 
    S2[a1, a4, SP[a5, a6], a2, a3, n] - S2[a1, a4, SP[a5, a6], a3, a2, n] - 
    S2[a6, n]*S2[a1, a5, a2, a3, a4, n] - S2[a1, a5, a2, a3, SP[a4, a6], n] - 
    S2[a6, n]*S2[a1, a5, a2, a4, a3, n] - S2[a1, a5, a2, a4, SP[a3, a6], n] - 
    S2[a1, a5, a2, SP[a3, a6], a4, n] - S2[a1, a5, a2, SP[a4, a6], a3, n] - 
    S2[a6, n]*S2[a1, a5, a3, a2, a4, n] - S2[a1, a5, a3, a2, SP[a4, a6], n] - 
    S2[a6, n]*S2[a1, a5, a3, a4, a2, n] + 
    S2[a2, n]*S2[a1, a5, a3, a4, a6, n] + 
    S2[a2, n]*S2[a1, a5, a3, a6, a4, n] + S2[a1, a5, a3, a6, SP[a2, a4], n] + 
    S2[a1, a5, a3, SP[a2, a4], a6, n] - S2[a1, a5, a3, SP[a4, a6], a2, n] - 
    S2[a6, n]*S2[a1, a5, a4, a2, a3, n] - S2[a1, a5, a4, a2, SP[a3, a6], n] - 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] + 
    S2[a2, n]*S2[a1, a5, a4, a3, a6, n] + 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] + S2[a1, a5, a4, a6, SP[a2, a3], n] + 
    S2[a1, a5, a4, SP[a2, a3], a6, n] - S2[a1, a5, a4, SP[a3, a6], a2, n] + 
    S2[a2, n]*S2[a1, a5, a6, a3, a4, n] + S2[a1, a5, a6, a3, SP[a2, a4], n] + 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] + S2[a1, a5, a6, a4, SP[a2, a3], n] + 
    S2[a1, a5, a6, SP[a2, a3], a4, n] + S2[a1, a5, a6, SP[a2, a4], a3, n] + 
    S2[a1, a5, SP[a2, a3], a4, a6, n] + S2[a1, a5, SP[a2, a3], a6, a4, n] + 
    S2[a1, a5, SP[a2, a4], a3, a6, n] + S2[a1, a5, SP[a2, a4], a6, a3, n] - 
    S2[a1, a5, SP[a3, a6], a2, a4, n] - S2[a1, a5, SP[a3, a6], a4, a2, n] - 
    S2[a1, a5, SP[a4, a6], a2, a3, n] - S2[a1, a5, SP[a4, a6], a3, a2, n] + 
    S2[a1, a6, a2, a3, SP[a4, a5], n] - S2[a3, n]*S2[a1, a6, a2, a4, a5, n] - 
    S2[a3, n]*S2[a1, a6, a2, a5, a4, n] - 
    2*S2[a1, a6, a2, a5, SP[a3, a4], n] - S2[a1, a6, a2, SP[a3, a4], a5, n] + 
    S2[a1, a6, a3, a2, SP[a4, a5], n] + S2[a1, a6, a3, SP[a2, a4], a5, n] - 
    S2[a3, n]*S2[a1, a6, a4, a2, a5, n] + 
    S2[a2, n]*S2[a1, a6, a4, a5, a3, n] + S2[a1, a6, a4, a5, SP[a2, a3], n] + 
    S2[a1, a6, a4, SP[a2, a5], a3, n] + S2[a2, n]*S2[a1, a6, a5, a3, a4, n] + 
    S2[a1, a6, a5, a3, SP[a2, a4], n] + S2[a2, n]*S2[a1, a6, a5, a4, a3, n] + 
    S2[a1, a6, a5, a4, SP[a2, a3], n] + S2[a1, a6, a5, SP[a2, a3], a4, n] + 
    S2[a1, a6, a5, SP[a2, a4], a3, n] + S2[a1, a6, SP[a2, a4], a3, a5, n] + 
    S2[a1, a6, SP[a2, a4], a5, a3, n] + S2[a1, a6, SP[a2, a5], a3, a4, n] + 
    S2[a1, a6, SP[a2, a5], a4, a3, n] - S2[a1, a6, SP[a3, a4], a2, a5, n] + 
    S2[a1, SP[a2, a5], a3, a4, a6, n] + S2[a1, SP[a2, a5], a3, a6, a4, n] + 
    S2[a1, SP[a2, a5], a4, a3, a6, n] + S2[a1, SP[a2, a5], a4, a6, a3, n] + 
    S2[a1, SP[a2, a5], a6, a3, a4, n] + S2[a1, SP[a2, a5], a6, a4, a3, n] + 
    S2[a1, SP[a2, a6], a3, a4, a5, n] + S2[a1, SP[a2, a6], a3, a5, a4, n] + 
    S2[a1, SP[a2, a6], a4, a3, a5, n] + S2[a1, SP[a2, a6], a4, a5, a3, n] + 
    S2[a1, SP[a2, a6], a5, a3, a4, n] + S2[a1, SP[a2, a6], a5, a4, a3, n] - 
    S2[a1, SP[a3, a6], a2, a4, a5, n] - S2[a1, SP[a3, a6], a2, a5, a4, n] - 
    S2[a1, SP[a3, a6], a4, a2, a5, n] - S2[a1, SP[a4, a6], a5, a2, a3, n] - 
    S2[a1, SP[a4, a6], a5, a3, a2, n] - S2[a1, SP[a5, a6], a2, a3, a4, n] - 
    S2[a1, SP[a5, a6], a2, a4, a3, n] - S2[a1, SP[a5, a6], a3, a2, a4, n] - 
    S2[a1, SP[a5, a6], a3, a4, a2, n] - S2[a1, SP[a5, a6], a4, a2, a3, n] - 
    S2[a1, SP[a5, a6], a4, a3, a2, n] - S2[a2, a1, a4, a5, SP[a3, a6], n] + 
    S2[a2, a1, a4, a6, SP[a3, a5], n] - S2[a2, a1, a5, a4, SP[a3, a6], n] - 
    2*S2[a2, a1, a5, a6, SP[a3, a4], n] - S2[a2, a1, a5, SP[a3, a4], a6, n] - 
    S2[a2, a1, a5, SP[a3, a6], a4, n] - S2[a2, a1, a5, SP[a4, a6], a3, n] + 
    S2[a2, a1, a6, a4, SP[a3, a5], n] - 2*S2[a2, a1, a6, a5, SP[a3, a4], n] - 
    S2[a2, a1, a6, SP[a3, a4], a5, n] + S2[a2, a1, a6, SP[a3, a5], a4, n] - 
    S2[a2, a1, a6, SP[a4, a5], a3, n] - S2[a2, a1, SP[a4, a5], a3, a6, n] - 
    S2[a2, a1, SP[a4, a5], a6, a3, n] - S2[a2, a1, SP[a4, a6], a3, a5, n] - 
    S2[a2, a1, SP[a4, a6], a5, a3, n] + S2[a6, n]*S2[a2, a5, a1, a3, a4, n] + 
    S2[a2, a5, a1, a3, SP[a4, a6], n] + S2[a6, n]*S2[a2, a5, a1, a4, a3, n] - 
    2*S2[a2, a5, a1, a6, SP[a3, a4], n] - S2[a2, a5, a1, SP[a3, a4], a6, n] + 
    S2[a6, n]*S2[a2, a5, a3, a1, a4, n] + S2[a2, a5, a3, a1, SP[a4, a6], n] + 
    S2[a2, a5, a3, SP[a1, a6], a4, n] - S2[a2, a5, a6, a1, SP[a3, a4], n] - 
    S2[a2, a5, a6, SP[a1, a3], a4, n] - S2[a2, a5, SP[a1, a3], a4, a6, n] - 
    S2[a2, a5, SP[a1, a3], a6, a4, n] + S2[a2, a5, SP[a3, a6], a1, a4, n] - 
    S2[a2, a6, a1, a3, SP[a4, a5], n] + S2[a3, n]*S2[a2, a6, a1, a4, a5, n] + 
    S2[a2, a6, a1, a4, SP[a3, a5], n] + S2[a3, n]*S2[a2, a6, a1, a5, a4, n] + 
    S2[a2, a6, a1, SP[a3, a5], a4, n] - S2[a2, a6, a1, SP[a4, a5], a3, n] - 
    S2[a2, a6, a3, a1, SP[a4, a5], n] - S2[a2, a6, a3, SP[a1, a5], a4, n] - 
    S2[a2, a6, a5, a1, SP[a3, a4], n] - S2[a2, a6, a5, SP[a1, a3], a4, n] - 
    S2[a2, a6, SP[a1, a5], a3, a4, n] - S2[a2, a6, SP[a1, a5], a4, a3, n] - 
    S2[a2, SP[a1, a5], a3, a4, a6, n] - S2[a2, SP[a1, a5], a3, a6, a4, n] - 
    S2[a2, SP[a1, a5], a4, a3, a6, n] - S2[a2, SP[a1, a5], a4, a6, a3, n] - 
    S2[a2, SP[a1, a5], a6, a3, a4, n] - S2[a2, SP[a1, a5], a6, a4, a3, n] - 
    S2[a2, SP[a1, a6], a3, a4, a5, n] - S2[a2, SP[a1, a6], a3, a5, a4, n] - 
    S2[a2, SP[a1, a6], a4, a3, a5, n] - S2[a2, SP[a1, a6], a4, a5, a3, n] - 
    S2[a2, SP[a1, a6], a5, a3, a4, n] - S2[a2, SP[a1, a6], a5, a4, a3, n] + 
    S2[a2, SP[a3, a6], a1, a4, a5, n] + S2[a2, SP[a3, a6], a1, a5, a4, n] + 
    S2[a2, SP[a5, a6], a1, a3, a4, n] + S2[a2, SP[a5, a6], a1, a4, a3, n] + 
    S2[a2, SP[a5, a6], a3, a1, a4, n] + S2[a3, a1, a6, a2, SP[a4, a5], n] + 
    S2[a3, a1, a6, SP[a2, a4], a5, n] + S2[a3, a1, SP[a4, a6], a2, a5, n] + 
    S2[a3, a6, a1, a2, SP[a4, a5], n] - S2[a2, n]*S2[a3, a6, a1, a4, a5, n] - 
    S2[a3, a6, a1, a4, SP[a2, a5], n] - S2[a2, n]*S2[a3, a6, a1, a5, a4, n] - 
    S2[a3, a6, a1, a5, SP[a2, a4], n] - S2[a3, a6, a1, SP[a2, a5], a4, n] + 
    S2[a3, a6, a2, a1, SP[a4, a5], n] + S2[a3, a6, a2, SP[a1, a5], a4, n] + 
    S2[a3, SP[a1, a6], a2, a4, a5, n] + S2[a3, SP[a1, a6], a2, a5, a4, n] + 
    S2[a3, SP[a1, a6], a4, a2, a5, n] - S2[a3, SP[a2, a6], a1, a4, a5, n] - 
    S2[a3, SP[a2, a6], a1, a5, a4, n] + S2[a3, n]*S2[a6, a1, a4, a5, a2, n] + 
    S2[a6, a1, a4, a5, SP[a2, a3], n] + S2[a6, a1, a4, SP[a3, a5], a2, n] + 
    S2[a3, n]*S2[a6, a1, a5, a2, a4, n] + S2[a6, a1, a5, a2, SP[a3, a4], n] + 
    S2[a3, n]*S2[a6, a1, a5, a4, a2, n] + S2[a6, a1, a5, a4, SP[a2, a3], n] + 
    S2[a6, a1, a5, SP[a2, a3], a4, n] + S2[a6, a1, a5, SP[a3, a4], a2, n] + 
    S2[a6, a1, SP[a3, a4], a5, a2, n] + S2[a6, a1, SP[a3, a5], a2, a4, n] + 
    S2[a6, a1, SP[a3, a5], a4, a2, n] - S2[a3, n]*S2[a6, a2, a5, a1, a4, n] - 
    S2[a6, a2, a5, a1, SP[a3, a4], n] - S2[a6, a2, a5, SP[a1, a3], a4, n] - 
    S2[a6, a2, SP[a3, a5], a1, a4, n] + S2[a2, n]*S2[a6, a3, a5, a1, a4, n] + 
    S2[a6, a3, a5, a1, SP[a2, a4], n] + S2[a6, a3, a5, SP[a1, a2], a4, n] + 
    S2[a6, a3, SP[a2, a5], a1, a4, n] + S2[a6, SP[a1, a3], a4, a5, a2, n] + 
    S2[a6, SP[a1, a3], a5, a2, a4, n] + S2[a6, SP[a1, a3], a5, a4, a2, n] - 
    S2[SP[a1, a6], a4, a5, a2, a3, n] - S2[SP[a1, a6], a4, a5, a3, a2, n] - 
    S2[SP[a1, a6], a5, a2, a3, a4, n] - S2[SP[a1, a6], a5, a2, a4, a3, n] - 
    S2[SP[a1, a6], a5, a3, a2, a4, n] - S2[SP[a1, a6], a5, a3, a4, a2, n] - 
    S2[SP[a1, a6], a5, a4, a2, a3, n] - S2[SP[a1, a6], a5, a4, a3, a2, n] + 
    S2[SP[a2, a6], a3, a5, a1, a4, n] + S2[SP[a2, a6], a5, a1, a3, a4, n] + 
    S2[SP[a2, a6], a5, a1, a4, a3, n] + S2[SP[a2, a6], a5, a3, a1, a4, n] + 
    S2[SP[a3, a6], a1, a4, a5, a2, n] + S2[SP[a3, a6], a1, a5, a2, a4, n] + 
    S2[SP[a3, a6], a1, a5, a4, a2, n] - S2[SP[a3, a6], a2, a5, a1, a4, n] - 
    S2[a6, a1, a3, a4, a5, a2, n] - S2[a6, a1, a3, a5, a2, a4, n] - 
    S2[a6, a1, a3, a5, a4, a2, n] - S2[a6, a1, a4, a3, a5, a2, n] - 
    S2[a6, a3, a1, a4, a5, a2, n] - S2[a6, a3, a1, a5, a2, a4, n] - 
    S2[a6, a3, a1, a5, a4, a2, n] - S2[a6, a3, a5, a1, a2, a4, n] - 
    S2[a6, a3, a5, a1, a4, a2, n] - S2[a6, a3, a5, a2, a1, a4, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a2_, a5_, a3_, a6_, a4_, a1_, n_] :> 
  S2[a1, a4, a6, n]*S2[a2, a5, a3, n] + S2[SP[a1, a2], SP[a4, a5], 
     SP[a3, a6], n] - S2[a1, a2, SP[a4, a5], SP[a3, a6], n] - 
    S2[a2, a5, n]*S2[a1, a4, a6, a3, n] + S2[a1, a4, SP[a2, a6], SP[a3, a5], 
     n] - S2[a1, SP[a2, a4], a5, SP[a3, a6], n] + S2[a1, SP[a2, a4], a6, 
     SP[a3, a5], n] - S2[a2, a1, SP[a4, a5], SP[a3, a6], n] + 
    S2[a1, a4, n]*S2[a2, a5, a6, a3, n] - S2[a2, a5, SP[a1, a6], SP[a3, a4], 
     n] + S2[a1, a4, n]*S2[a2, a6, a3, a5, n] + 
    S2[a1, a4, n]*S2[a2, a6, a5, a3, n] - S2[a2, a6, SP[a1, a3], SP[a4, a5], 
     n] - S2[a2, a6, SP[a1, a5], SP[a3, a4], n] - S2[a2, SP[a1, a5], a4, 
     SP[a3, a6], n] - S2[a2, SP[a1, a5], a6, SP[a3, a4], n] - 
    S2[a2, SP[a1, a5], SP[a3, a4], a6, n] - S2[a2, SP[a1, a5], SP[a4, a6], 
     a3, n] - S2[a2, SP[a1, a6], a3, SP[a4, a5], n] - 
    S2[a2, SP[a1, a6], a5, SP[a3, a4], n] - S2[a2, SP[a1, a6], SP[a3, a4], 
     a5, n] - S2[a2, SP[a1, a6], SP[a4, a5], a3, n] - 
    S2[a1, a4, n]*S2[a3, a6, a2, a5, n] + S2[a3, a6, SP[a1, a2], SP[a4, a5], 
     n] + S2[a3, SP[a1, a6], a2, SP[a4, a5], n] + 
    S2[a3, SP[a1, a6], SP[a2, a4], a5, n] - S2[SP[a1, a2], a4, a5, 
     SP[a3, a6], n] + S2[SP[a1, a2], a4, a6, SP[a3, a5], n] - 
    S2[SP[a1, a2], a5, a4, SP[a3, a6], n] - S2[SP[a1, a2], a5, a6, 
     SP[a3, a4], n] - S2[SP[a1, a2], a5, SP[a3, a4], a6, n] - 
    S2[SP[a1, a2], a5, SP[a4, a6], a3, n] - S2[SP[a1, a2], a6, a3, 
     SP[a4, a5], n] - S2[SP[a1, a2], a6, a5, SP[a3, a4], n] - 
    S2[SP[a1, a2], a6, SP[a3, a4], a5, n] - S2[SP[a1, a2], a6, SP[a4, a5], 
     a3, n] - S2[SP[a1, a2], SP[a4, a5], a3, a6, n] - 
    S2[SP[a1, a2], SP[a4, a5], a6, a3, n] - S2[SP[a1, a2], SP[a4, a6], a3, 
     a5, n] - S2[SP[a1, a2], SP[a4, a6], a5, a3, n] + 
    S2[SP[a1, a3], a6, a2, SP[a4, a5], n] + S2[SP[a1, a3], a6, SP[a2, a4], 
     a5, n] + S2[SP[a1, a3], SP[a4, a6], a2, a5, n] + 
    S2[a1, a2, a4, a5, SP[a3, a6], n] - S2[a1, a2, a4, a6, SP[a3, a5], n] + 
    S2[a1, a2, a5, a4, SP[a3, a6], n] + S2[a1, a2, a5, a6, SP[a3, a4], n] + 
    S2[a1, a2, a5, SP[a3, a4], a6, n] + S2[a1, a2, a5, SP[a4, a6], a3, n] + 
    S2[a1, a2, a6, a3, SP[a4, a5], n] + S2[a1, a2, a6, a5, SP[a3, a4], n] + 
    S2[a1, a2, a6, SP[a3, a4], a5, n] + S2[a1, a2, a6, SP[a4, a5], a3, n] + 
    S2[a1, a2, SP[a4, a5], a3, a6, n] + S2[a1, a2, SP[a4, a5], a6, a3, n] + 
    S2[a1, a2, SP[a4, a6], a3, a5, n] + S2[a1, a2, SP[a4, a6], a5, a3, n] - 
    S2[a1, a3, a6, a2, SP[a4, a5], n] - S2[a1, a3, a6, SP[a2, a4], a5, n] - 
    S2[a1, a3, SP[a4, a6], a2, a5, n] + S2[a1, a4, a2, a5, SP[a3, a6], n] - 
    S2[a1, a4, a2, a6, SP[a3, a5], n] + S2[a6, n]*S2[a1, a4, a5, a2, a3, n] + 
    S2[a1, a4, a5, a2, SP[a3, a6], n] + S2[a6, n]*S2[a1, a4, a5, a3, a2, n] - 
    S2[a2, n]*S2[a1, a4, a5, a3, a6, n] - 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] - S2[a1, a4, a5, a6, SP[a2, a3], n] - 
    S2[a1, a4, a5, SP[a2, a3], a6, n] + S2[a1, a4, a5, SP[a3, a6], a2, n] + 
    S2[a3, n]*S2[a1, a4, a6, a2, a5, n] - 
    S2[a2, n]*S2[a1, a4, a6, a5, a3, n] - S2[a1, a4, a6, a5, SP[a2, a3], n] - 
    S2[a1, a4, a6, SP[a2, a5], a3, n] - S2[a1, a4, SP[a2, a5], a3, a6, n] - 
    S2[a1, a4, SP[a2, a5], a6, a3, n] - S2[a1, a4, SP[a2, a6], a3, a5, n] - 
    S2[a1, a4, SP[a2, a6], a5, a3, n] + S2[a1, a4, SP[a3, a6], a2, a5, n] + 
    S2[a1, a4, SP[a5, a6], a2, a3, n] + S2[a1, a4, SP[a5, a6], a3, a2, n] + 
    S2[a6, n]*S2[a1, a5, a2, a3, a4, n] + S2[a1, a5, a2, a3, SP[a4, a6], n] + 
    S2[a6, n]*S2[a1, a5, a2, a4, a3, n] + S2[a1, a5, a2, a4, SP[a3, a6], n] + 
    S2[a1, a5, a2, SP[a3, a6], a4, n] + S2[a1, a5, a2, SP[a4, a6], a3, n] + 
    S2[a6, n]*S2[a1, a5, a3, a2, a4, n] + S2[a1, a5, a3, a2, SP[a4, a6], n] + 
    S2[a6, n]*S2[a1, a5, a3, a4, a2, n] - 
    S2[a2, n]*S2[a1, a5, a3, a4, a6, n] - 
    S2[a2, n]*S2[a1, a5, a3, a6, a4, n] - S2[a1, a5, a3, a6, SP[a2, a4], n] - 
    S2[a1, a5, a3, SP[a2, a4], a6, n] + S2[a1, a5, a3, SP[a4, a6], a2, n] + 
    S2[a6, n]*S2[a1, a5, a4, a2, a3, n] + S2[a1, a5, a4, a2, SP[a3, a6], n] + 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] - 
    S2[a2, n]*S2[a1, a5, a4, a3, a6, n] - 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] - S2[a1, a5, a4, a6, SP[a2, a3], n] - 
    S2[a1, a5, a4, SP[a2, a3], a6, n] + S2[a1, a5, a4, SP[a3, a6], a2, n] - 
    S2[a2, n]*S2[a1, a5, a6, a3, a4, n] - S2[a1, a5, a6, a3, SP[a2, a4], n] - 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] - S2[a1, a5, a6, a4, SP[a2, a3], n] - 
    S2[a1, a5, a6, SP[a2, a3], a4, n] - S2[a1, a5, a6, SP[a2, a4], a3, n] - 
    S2[a1, a5, SP[a2, a3], a4, a6, n] - S2[a1, a5, SP[a2, a3], a6, a4, n] - 
    S2[a1, a5, SP[a2, a4], a3, a6, n] - S2[a1, a5, SP[a2, a4], a6, a3, n] + 
    S2[a1, a5, SP[a3, a6], a2, a4, n] + S2[a1, a5, SP[a3, a6], a4, a2, n] + 
    S2[a1, a5, SP[a4, a6], a2, a3, n] + S2[a1, a5, SP[a4, a6], a3, a2, n] + 
    S2[a3, n]*S2[a1, a6, a2, a4, a5, n] + S2[a1, a6, a2, a4, SP[a3, a5], n] + 
    S2[a3, n]*S2[a1, a6, a2, a5, a4, n] + S2[a1, a6, a2, a5, SP[a3, a4], n] + 
    S2[a1, a6, a2, SP[a3, a4], a5, n] + S2[a1, a6, a2, SP[a3, a5], a4, n] - 
    S2[a2, n]*S2[a1, a6, a3, a4, a5, n] - S2[a1, a6, a3, a4, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a6, a3, a5, a4, n] - S2[a1, a6, a3, a5, SP[a2, a4], n] - 
    S2[a1, a6, a3, SP[a2, a4], a5, n] - S2[a1, a6, a3, SP[a2, a5], a4, n] + 
    S2[a3, n]*S2[a1, a6, a4, a2, a5, n] + S2[a1, a6, a4, a2, SP[a3, a5], n] - 
    S2[a2, n]*S2[a1, a6, a4, a3, a5, n] - S2[a1, a6, a4, a3, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a6, a4, a5, a3, n] - S2[a1, a6, a4, a5, SP[a2, a3], n] - 
    S2[a1, a6, a4, SP[a2, a5], a3, n] - S2[a2, n]*S2[a1, a6, a5, a3, a4, n] - 
    S2[a1, a6, a5, a3, SP[a2, a4], n] - S2[a2, n]*S2[a1, a6, a5, a4, a3, n] - 
    S2[a1, a6, a5, a4, SP[a2, a3], n] - S2[a1, a6, a5, SP[a2, a3], a4, n] - 
    S2[a1, a6, a5, SP[a2, a4], a3, n] - S2[a1, a6, SP[a2, a4], a3, a5, n] - 
    S2[a1, a6, SP[a2, a4], a5, a3, n] - S2[a1, a6, SP[a2, a5], a3, a4, n] - 
    S2[a1, a6, SP[a2, a5], a4, a3, n] + S2[a1, a6, SP[a3, a4], a2, a5, n] - 
    S2[a1, SP[a2, a5], a3, a4, a6, n] - S2[a1, SP[a2, a5], a3, a6, a4, n] - 
    S2[a1, SP[a2, a5], a4, a3, a6, n] - S2[a1, SP[a2, a5], a4, a6, a3, n] - 
    S2[a1, SP[a2, a5], a6, a3, a4, n] - S2[a1, SP[a2, a5], a6, a4, a3, n] - 
    S2[a1, SP[a2, a6], a3, a4, a5, n] - S2[a1, SP[a2, a6], a3, a5, a4, n] - 
    S2[a1, SP[a2, a6], a4, a3, a5, n] - S2[a1, SP[a2, a6], a4, a5, a3, n] - 
    S2[a1, SP[a2, a6], a5, a3, a4, n] - S2[a1, SP[a2, a6], a5, a4, a3, n] + 
    S2[a1, SP[a3, a6], a2, a4, a5, n] + S2[a1, SP[a3, a6], a2, a5, a4, n] + 
    S2[a1, SP[a3, a6], a4, a2, a5, n] + S2[a1, SP[a4, a6], a5, a2, a3, n] + 
    S2[a1, SP[a4, a6], a5, a3, a2, n] + S2[a1, SP[a5, a6], a2, a3, a4, n] + 
    S2[a1, SP[a5, a6], a2, a4, a3, n] + S2[a1, SP[a5, a6], a3, a2, a4, n] + 
    S2[a1, SP[a5, a6], a3, a4, a2, n] + S2[a1, SP[a5, a6], a4, a2, a3, n] + 
    S2[a1, SP[a5, a6], a4, a3, a2, n] + S2[a2, a1, a4, a5, SP[a3, a6], n] - 
    S2[a2, a1, a4, a6, SP[a3, a5], n] + S2[a2, a1, a5, a4, SP[a3, a6], n] + 
    S2[a2, a1, a5, a6, SP[a3, a4], n] + S2[a2, a1, a5, SP[a3, a4], a6, n] + 
    S2[a2, a1, a5, SP[a4, a6], a3, n] + S2[a2, a1, a6, a3, SP[a4, a5], n] + 
    S2[a2, a1, a6, a5, SP[a3, a4], n] + S2[a2, a1, a6, SP[a3, a4], a5, n] + 
    S2[a2, a1, a6, SP[a4, a5], a3, n] + S2[a2, a1, SP[a4, a5], a3, a6, n] + 
    S2[a2, a1, SP[a4, a5], a6, a3, n] + S2[a2, a1, SP[a4, a6], a3, a5, n] + 
    S2[a2, a1, SP[a4, a6], a5, a3, n] - S2[a6, n]*S2[a2, a5, a1, a3, a4, n] - 
    S2[a2, a5, a1, a3, SP[a4, a6], n] - S2[a6, n]*S2[a2, a5, a1, a4, a3, n] + 
    S2[a2, a5, a1, a6, SP[a3, a4], n] + S2[a2, a5, a1, SP[a3, a4], a6, n] - 
    S2[a2, a5, a1, SP[a3, a6], a4, n] - S2[a6, n]*S2[a2, a5, a3, a1, a4, n] - 
    S2[a2, a5, a3, a1, SP[a4, a6], n] + S2[a1, n]*S2[a2, a5, a3, a6, a4, n] + 
    S2[a2, a5, a3, a6, SP[a1, a4], n] + S2[a2, a5, a6, a1, SP[a3, a4], n] + 
    S2[a2, a5, a6, SP[a1, a3], a4, n] + S2[a2, a5, SP[a1, a3], a4, a6, n] + 
    S2[a2, a5, SP[a1, a3], a6, a4, n] - S2[a2, a5, SP[a3, a6], a1, a4, n] + 
    S2[a2, a6, a1, a3, SP[a4, a5], n] - S2[a3, n]*S2[a2, a6, a1, a4, a5, n] - 
    S2[a2, a6, a1, a4, SP[a3, a5], n] - S2[a3, n]*S2[a2, a6, a1, a5, a4, n] - 
    S2[a2, a6, a1, SP[a3, a5], a4, n] + S2[a2, a6, a1, SP[a4, a5], a3, n] + 
    S2[a2, a6, a3, a1, SP[a4, a5], n] + S2[a2, a6, a3, SP[a1, a5], a4, n] + 
    S2[a2, a6, a5, a1, SP[a3, a4], n] + S2[a2, a6, a5, SP[a1, a3], a4, n] + 
    S2[a2, a6, SP[a1, a5], a3, a4, n] + S2[a2, a6, SP[a1, a5], a4, a3, n] + 
    S2[a2, SP[a1, a5], a3, a4, a6, n] + S2[a2, SP[a1, a5], a3, a6, a4, n] + 
    S2[a2, SP[a1, a5], a4, a3, a6, n] + S2[a2, SP[a1, a5], a4, a6, a3, n] + 
    S2[a2, SP[a1, a5], a6, a3, a4, n] + S2[a2, SP[a1, a5], a6, a4, a3, n] + 
    S2[a2, SP[a1, a6], a3, a4, a5, n] + S2[a2, SP[a1, a6], a3, a5, a4, n] + 
    S2[a2, SP[a1, a6], a4, a3, a5, n] + S2[a2, SP[a1, a6], a4, a5, a3, n] + 
    S2[a2, SP[a1, a6], a5, a3, a4, n] + S2[a2, SP[a1, a6], a5, a4, a3, n] - 
    S2[a2, SP[a3, a6], a1, a4, a5, n] - S2[a2, SP[a3, a6], a1, a5, a4, n] - 
    S2[a2, SP[a5, a6], a1, a3, a4, n] - S2[a2, SP[a5, a6], a1, a4, a3, n] - 
    S2[a2, SP[a5, a6], a3, a1, a4, n] - S2[a3, a1, a6, a2, SP[a4, a5], n] - 
    S2[a3, a1, a6, SP[a2, a4], a5, n] - S2[a3, a1, SP[a4, a6], a2, a5, n] - 
    S2[a3, a6, a1, a2, SP[a4, a5], n] + S2[a2, n]*S2[a3, a6, a1, a4, a5, n] + 
    S2[a3, a6, a1, a4, SP[a2, a5], n] + S2[a2, n]*S2[a3, a6, a1, a5, a4, n] + 
    S2[a3, a6, a1, a5, SP[a2, a4], n] + S2[a3, a6, a1, SP[a2, a5], a4, n] - 
    S2[a3, a6, a2, a1, SP[a4, a5], n] - S2[a3, a6, a2, SP[a1, a5], a4, n] - 
    S2[a3, SP[a1, a6], a2, a4, a5, n] - S2[a3, SP[a1, a6], a2, a5, a4, n] - 
    S2[a3, SP[a1, a6], a4, a2, a5, n] + S2[a3, SP[a2, a6], a1, a4, a5, n] + 
    S2[a3, SP[a2, a6], a1, a5, a4, n] - S2[a3, n]*S2[a6, a1, a4, a5, a2, n] - 
    S2[a6, a1, a4, a5, SP[a2, a3], n] - S2[a6, a1, a4, SP[a3, a5], a2, n] - 
    S2[a3, n]*S2[a6, a1, a5, a2, a4, n] - S2[a6, a1, a5, a2, SP[a3, a4], n] - 
    S2[a3, n]*S2[a6, a1, a5, a4, a2, n] - S2[a6, a1, a5, a4, SP[a2, a3], n] - 
    S2[a6, a1, a5, SP[a2, a3], a4, n] - S2[a6, a1, a5, SP[a3, a4], a2, n] - 
    S2[a6, a1, SP[a3, a4], a5, a2, n] - S2[a6, a1, SP[a3, a5], a2, a4, n] - 
    S2[a6, a1, SP[a3, a5], a4, a2, n] + S2[a3, n]*S2[a6, a2, a5, a1, a4, n] + 
    S2[a6, a2, a5, a1, SP[a3, a4], n] + S2[a6, a2, a5, SP[a1, a3], a4, n] + 
    S2[a6, a2, SP[a3, a5], a1, a4, n] + S2[a1, n]*S2[a6, a3, a4, a5, a2, n] + 
    S2[a6, a3, a4, a5, SP[a1, a2], n] + S2[a6, a3, a4, SP[a1, a5], a2, n] - 
    S2[a2, n]*S2[a6, a3, a5, a1, a4, n] - S2[a6, a3, a5, a1, SP[a2, a4], n] + 
    S2[a1, n]*S2[a6, a3, a5, a2, a4, n] + S2[a6, a3, a5, a2, SP[a1, a4], n] + 
    S2[a1, n]*S2[a6, a3, a5, a4, a2, n] + S2[a6, a3, a5, a4, SP[a1, a2], n] + 
    S2[a6, a3, a5, SP[a1, a4], a2, n] + S2[a6, a3, SP[a1, a4], a5, a2, n] + 
    S2[a6, a3, SP[a1, a5], a2, a4, n] + S2[a6, a3, SP[a1, a5], a4, a2, n] - 
    S2[a6, a3, SP[a2, a5], a1, a4, n] + S2[a1, n]*S2[a6, a4, a3, a5, a2, n] + 
    S2[a6, a4, a3, a5, SP[a1, a2], n] + S2[a6, a4, a3, SP[a1, a5], a2, n] + 
    S2[a6, a4, SP[a1, a3], a5, a2, n] + S2[a6, SP[a1, a4], a3, a5, a2, n] + 
    S2[SP[a1, a6], a3, a4, a5, a2, n] + S2[SP[a1, a6], a3, a5, a2, a4, n] + 
    S2[SP[a1, a6], a3, a5, a4, a2, n] + S2[SP[a1, a6], a4, a3, a5, a2, n] + 
    S2[SP[a1, a6], a4, a5, a2, a3, n] + S2[SP[a1, a6], a4, a5, a3, a2, n] + 
    S2[SP[a1, a6], a5, a2, a3, a4, n] + S2[SP[a1, a6], a5, a2, a4, a3, n] + 
    S2[SP[a1, a6], a5, a3, a2, a4, n] + S2[SP[a1, a6], a5, a3, a4, a2, n] + 
    S2[SP[a1, a6], a5, a4, a2, a3, n] + S2[SP[a1, a6], a5, a4, a3, a2, n] - 
    S2[SP[a2, a6], a3, a5, a1, a4, n] - S2[SP[a2, a6], a5, a1, a3, a4, n] - 
    S2[SP[a2, a6], a5, a1, a4, a3, n] - S2[SP[a2, a6], a5, a3, a1, a4, n] - 
    S2[SP[a3, a6], a1, a4, a5, a2, n] - S2[SP[a3, a6], a1, a5, a2, a4, n] - 
    S2[SP[a3, a6], a1, a5, a4, a2, n] + S2[SP[a3, a6], a2, a5, a1, a4, n] - 
    S2[a6, a3, a4, a1, a5, a2, n] - S2[a6, a3, a4, a5, a1, a2, n] - 
    S2[a6, a3, a4, a5, a2, a1, n] - S2[a6, a3, a5, a2, a4, a1, n] - 
    S2[a6, a3, a5, a4, a1, a2, n] - S2[a6, a3, a5, a4, a2, a1, n] - 
    S2[a6, a4, a1, a3, a5, a2, n] - S2[a6, a4, a3, a1, a5, a2, n] - 
    S2[a6, a4, a3, a5, a1, a2, n] - S2[a6, a4, a3, a5, a2, a1, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a2_, a5_, a4_, a1_, a3_, a6_, n_] :> 
  S2[a1, a3, a6, n]*S2[a2, a5, a4, n] + S2[SP[a1, a2], SP[a3, a5], 
     SP[a4, a6], n] - S2[a1, a2, SP[a3, a5], SP[a4, a6], n] - 
    S2[a2, a5, n]*S2[a1, a3, a4, a6, n] - S2[a2, a5, n]*
     S2[a1, a3, a6, a4, n] + S2[a1, a3, SP[a2, a4], SP[a5, a6], n] + 
    S2[a1, a3, SP[a2, a6], SP[a4, a5], n] - S2[a2, a5, n]*
     S2[a1, a4, a3, a6, n] - S2[a3, a6, n]*S2[a1, a4, a5, a2, n] + 
    S2[a1, a4, SP[a2, a3], SP[a5, a6], n] + S2[a1, a4, SP[a3, a5], 
     SP[a2, a6], n] + S2[a1, SP[a2, a3], a4, SP[a5, a6], n] - 
    S2[a1, SP[a2, a3], a5, SP[a4, a6], n] + S2[a1, SP[a2, a3], a6, 
     SP[a4, a5], n] + S2[a1, SP[a2, a3], SP[a4, a5], a6, n] + 
    S2[a1, SP[a2, a4], a3, SP[a5, a6], n] + S2[a1, SP[a2, a4], SP[a3, a5], 
     a6, n] + S2[a1, SP[a3, a4], a5, SP[a2, a6], n] + 
    S2[a1, SP[a3, a4], SP[a5, a6], a2, n] - S2[a2, a1, SP[a3, a5], 
     SP[a4, a6], n] - S2[a2, SP[a1, a5], a3, SP[a4, a6], n] - 
    S2[a2, SP[a1, a5], SP[a3, a4], a6, n] + S2[SP[a1, a2], a3, a4, 
     SP[a5, a6], n] - S2[SP[a1, a2], a3, a5, SP[a4, a6], n] + 
    S2[SP[a1, a2], a3, a6, SP[a4, a5], n] + S2[SP[a1, a2], a3, SP[a4, a5], 
     a6, n] + S2[SP[a1, a2], a4, a3, SP[a5, a6], n] + 
    S2[SP[a1, a2], a4, SP[a3, a5], a6, n] - S2[SP[a1, a2], a5, a3, 
     SP[a4, a6], n] - S2[SP[a1, a2], a5, SP[a3, a4], a6, n] + 
    S2[SP[a1, a2], SP[a4, a5], a3, a6, n] + S2[SP[a1, a3], a4, a5, 
     SP[a2, a6], n] + S2[SP[a1, a3], a4, SP[a5, a6], a2, n] + 
    S2[SP[a1, a3], SP[a4, a6], a5, a2, n] - S2[a1, a2, a3, a4, SP[a5, a6], 
     n] + S2[a1, a2, a3, a5, SP[a4, a6], n] - S2[a1, a2, a3, a6, SP[a4, a5], 
     n] - S2[a1, a2, a3, SP[a4, a5], a6, n] - S2[a1, a2, a4, a3, SP[a5, a6], 
     n] - S2[a1, a2, a4, SP[a3, a5], a6, n] + S2[a1, a2, a5, a3, SP[a4, a6], 
     n] + S2[a1, a2, a5, SP[a3, a4], a6, n] - S2[a1, a2, SP[a4, a5], a3, a6, 
     n] - S2[a1, a3, a2, a4, SP[a5, a6], n] + S2[a1, a3, a2, a5, SP[a4, a6], 
     n] - S2[a1, a3, a2, a6, SP[a4, a5], n] - S2[a1, a3, a2, SP[a4, a5], a6, 
     n] - S2[a1, a3, a4, a2, SP[a5, a6], n] - 
    S2[a6, n]*S2[a1, a3, a4, a5, a2, n] + 
    S2[a2, n]*S2[a1, a3, a4, a5, a6, n] - S2[a1, a3, a4, a5, SP[a2, a6], n] + 
    S2[a2, n]*S2[a1, a3, a4, a6, a5, n] + S2[a1, a3, a4, a6, SP[a2, a5], n] + 
    S2[a1, a3, a4, SP[a2, a5], a6, n] - 2*S2[a1, a3, a4, SP[a5, a6], a2, n] - 
    S2[a1, a3, a6, a2, SP[a4, a5], n] + S2[a2, n]*S2[a1, a3, a6, a4, a5, n] + 
    S2[a1, a3, a6, a4, SP[a2, a5], n] - 2*S2[a1, a3, SP[a4, a6], a5, a2, n] - 
    S2[a1, a4, a2, a3, SP[a5, a6], n] - S2[a1, a4, a2, SP[a3, a5], a6, n] - 
    S2[a1, a4, a3, a2, SP[a5, a6], n] - S2[a6, n]*S2[a1, a4, a3, a5, a2, n] + 
    S2[a2, n]*S2[a1, a4, a3, a5, a6, n] - S2[a1, a4, a3, a5, SP[a2, a6], n] + 
    S2[a2, n]*S2[a1, a4, a3, a6, a5, n] + S2[a1, a4, a3, a6, SP[a2, a5], n] + 
    S2[a1, a4, a3, SP[a2, a5], a6, n] - 2*S2[a1, a4, a3, SP[a5, a6], a2, n] - 
    S2[a6, n]*S2[a1, a4, a5, a2, a3, n] + 
    S2[a3, n]*S2[a1, a4, a5, a2, a6, n] - 
    S2[a6, n]*S2[a1, a4, a5, a3, a2, n] + 
    S2[a2, n]*S2[a1, a4, a5, a3, a6, n] - S2[a1, a4, a5, a3, SP[a2, a6], n] + 
    S2[a3, n]*S2[a1, a4, a5, a6, a2, n] + S2[a1, a4, a5, a6, SP[a2, a3], n] + 
    S2[a1, a4, a5, SP[a2, a3], a6, n] - S2[a1, a4, a5, SP[a2, a6], a3, n] + 
    S2[a3, n]*S2[a1, a4, a6, a5, a2, n] + S2[a1, a4, a6, a5, SP[a2, a3], n] + 
    S2[a1, a4, a6, SP[a3, a5], a2, n] + S2[a1, a4, SP[a2, a5], a3, a6, n] - 
    S2[a1, a4, SP[a5, a6], a2, a3, n] - S2[a1, a4, SP[a5, a6], a3, a2, n] + 
    S2[a3, n]*S2[a1, a6, a4, a5, a2, n] + S2[a1, a6, a4, a5, SP[a2, a3], n] + 
    S2[a1, a6, a4, SP[a3, a5], a2, n] + S2[a1, a6, SP[a3, a4], a5, a2, n] - 
    S2[a1, SP[a4, a6], a3, a5, a2, n] - S2[a1, SP[a4, a6], a5, a2, a3, n] - 
    S2[a1, SP[a4, a6], a5, a3, a2, n] - S2[a2, a1, a3, a4, SP[a5, a6], n] + 
    S2[a2, a1, a3, a5, SP[a4, a6], n] - S2[a2, a1, a3, a6, SP[a4, a5], n] - 
    S2[a2, a1, a3, SP[a4, a5], a6, n] - S2[a2, a1, a4, a3, SP[a5, a6], n] - 
    S2[a2, a1, a4, SP[a3, a5], a6, n] + S2[a2, a1, a5, a3, SP[a4, a6], n] + 
    S2[a2, a1, a5, SP[a3, a4], a6, n] - S2[a2, a1, SP[a4, a5], a3, a6, n] + 
    S2[a2, a5, a1, a3, SP[a4, a6], n] + S2[a2, a5, a1, SP[a3, a4], a6, n] + 
    S2[a2, a5, SP[a1, a4], a3, a6, n] - S2[a3, a1, a4, a5, SP[a2, a6], n] - 
    S2[a3, a1, a4, SP[a5, a6], a2, n] - S2[a3, a1, SP[a4, a6], a5, a2, n] - 
    S2[a3, SP[a1, a6], a4, a5, a2, n] + S2[a3, n]*S2[a6, a1, a4, a5, a2, n] + 
    S2[a6, a1, a4, a5, SP[a2, a3], n] + S2[a6, a1, a4, SP[a3, a5], a2, n] + 
    S2[a6, a1, SP[a3, a4], a5, a2, n] + S2[a6, SP[a1, a3], a4, a5, a2, n] - 
    S2[SP[a1, a6], a3, a4, a5, a2, n] - S2[SP[a1, a6], a4, a3, a5, a2, n] - 
    S2[SP[a1, a6], a4, a5, a2, a3, n] - S2[SP[a1, a6], a4, a5, a3, a2, n] + 
    S2[SP[a3, a6], a1, a4, a5, a2, n] - S2[a6, a3, a1, a4, a5, a2, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a2_, a5_, a4_, a1_, a6_, a3_, n_] :> 
  S2[a1, a6, a3, n]*S2[a2, a5, a4, n] + S2[SP[a1, a2], SP[a5, a6], 
     SP[a3, a4], n] - S2[a1, a2, SP[a5, a6], SP[a3, a4], n] + 
    S2[a3, a6, n]*S2[a1, a4, a5, a2, n] - S2[a2, a5, n]*
     S2[a1, a4, a6, a3, n] + S2[a1, a4, SP[a2, a6], SP[a3, a5], n] - 
    S2[a1, a4, SP[a3, a5], SP[a2, a6], n] - S2[a2, a5, n]*
     S2[a1, a6, a3, a4, n] - S2[a2, a5, n]*S2[a1, a6, a4, a3, n] + 
    S2[a1, a6, SP[a2, a3], SP[a4, a5], n] + S2[a1, a6, SP[a2, a4], 
     SP[a3, a5], n] + S2[a1, SP[a2, a4], a6, SP[a3, a5], n] + 
    S2[a1, SP[a2, a4], SP[a5, a6], a3, n] + S2[a1, SP[a2, a6], a3, 
     SP[a4, a5], n] + S2[a1, SP[a2, a6], a4, SP[a3, a5], n] - 
    S2[a1, SP[a2, a6], a5, SP[a3, a4], n] + S2[a1, SP[a2, a6], SP[a4, a5], 
     a3, n] - S2[a1, SP[a3, a4], a5, SP[a2, a6], n] - 
    S2[a1, SP[a3, a4], SP[a5, a6], a2, n] - S2[a2, a1, SP[a5, a6], 
     SP[a3, a4], n] - S2[a2, SP[a1, a5], a6, SP[a3, a4], n] - 
    S2[a2, SP[a1, a5], SP[a4, a6], a3, n] + S2[SP[a1, a2], a4, a6, 
     SP[a3, a5], n] + S2[SP[a1, a2], a4, SP[a5, a6], a3, n] - 
    S2[SP[a1, a2], a5, a6, SP[a3, a4], n] - S2[SP[a1, a2], a5, SP[a4, a6], 
     a3, n] + S2[SP[a1, a2], a6, a3, SP[a4, a5], n] + 
    S2[SP[a1, a2], a6, a4, SP[a3, a5], n] - S2[SP[a1, a2], a6, a5, 
     SP[a3, a4], n] + S2[SP[a1, a2], a6, SP[a4, a5], a3, n] + 
    S2[SP[a1, a2], SP[a4, a5], a6, a3, n] - S2[SP[a1, a3], a4, a5, 
     SP[a2, a6], n] - S2[SP[a1, a3], a4, SP[a5, a6], a2, n] - 
    S2[SP[a1, a3], SP[a4, a6], a5, a2, n] - S2[a1, a2, a4, a6, SP[a3, a5], 
     n] - S2[a1, a2, a4, SP[a5, a6], a3, n] + S2[a1, a2, a5, a6, SP[a3, a4], 
     n] + S2[a1, a2, a5, SP[a4, a6], a3, n] - S2[a1, a2, a6, a3, SP[a4, a5], 
     n] - S2[a1, a2, a6, a4, SP[a3, a5], n] + S2[a1, a2, a6, a5, SP[a3, a4], 
     n] - S2[a1, a2, a6, SP[a4, a5], a3, n] - S2[a1, a2, SP[a4, a5], a6, a3, 
     n] + S2[a1, a3, a4, a5, SP[a2, a6], n] + S2[a1, a3, a4, SP[a5, a6], a2, 
     n] + S2[a1, a3, SP[a4, a6], a5, a2, n] - S2[a1, a4, a2, a6, SP[a3, a5], 
     n] - S2[a1, a4, a2, SP[a5, a6], a3, n] + S2[a1, a4, a3, a5, SP[a2, a6], 
     n] + S2[a1, a4, a3, SP[a5, a6], a2, n] - 
    S2[a3, n]*S2[a1, a4, a5, a2, a6, n] - S2[a1, a4, a5, a2, SP[a3, a6], n] + 
    S2[a1, a4, a5, a3, SP[a2, a6], n] - S2[a3, n]*S2[a1, a4, a5, a6, a2, n] + 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] + S2[a1, a4, a5, SP[a2, a6], a3, n] - 
    S2[a1, a4, a5, SP[a3, a6], a2, n] - S2[a1, a4, a6, a2, SP[a3, a5], n] + 
    S2[a2, n]*S2[a1, a4, a6, a3, a5, n] + S2[a1, a4, a6, a3, SP[a2, a5], n] - 
    S2[a3, n]*S2[a1, a4, a6, a5, a2, n] + 
    S2[a2, n]*S2[a1, a4, a6, a5, a3, n] + S2[a1, a4, a6, SP[a2, a5], a3, n] - 
    S2[a1, a4, a6, SP[a3, a5], a2, n] + S2[a1, a4, SP[a2, a5], a6, a3, n] - 
    S2[a1, a4, SP[a3, a6], a5, a2, n] - S2[a1, a6, a2, a3, SP[a4, a5], n] - 
    S2[a1, a6, a2, a4, SP[a3, a5], n] + S2[a1, a6, a2, a5, SP[a3, a4], n] - 
    S2[a1, a6, a2, SP[a4, a5], a3, n] - S2[a1, a6, a3, a2, SP[a4, a5], n] + 
    S2[a2, n]*S2[a1, a6, a3, a4, a5, n] + S2[a1, a6, a3, a4, SP[a2, a5], n] - 
    S2[a1, a6, a4, a2, SP[a3, a5], n] + S2[a2, n]*S2[a1, a6, a4, a3, a5, n] + 
    S2[a1, a6, a4, a3, SP[a2, a5], n] - S2[a3, n]*S2[a1, a6, a4, a5, a2, n] + 
    S2[a2, n]*S2[a1, a6, a4, a5, a3, n] + S2[a1, a6, a4, SP[a2, a5], a3, n] - 
    S2[a1, a6, a4, SP[a3, a5], a2, n] - S2[a1, a6, SP[a3, a4], a5, a2, n] - 
    S2[a1, SP[a3, a6], a4, a5, a2, n] - S2[a2, a1, a4, a6, SP[a3, a5], n] - 
    S2[a2, a1, a4, SP[a5, a6], a3, n] + S2[a2, a1, a5, a6, SP[a3, a4], n] + 
    S2[a2, a1, a5, SP[a4, a6], a3, n] - S2[a2, a1, a6, a3, SP[a4, a5], n] - 
    S2[a2, a1, a6, a4, SP[a3, a5], n] + S2[a2, a1, a6, a5, SP[a3, a4], n] - 
    S2[a2, a1, a6, SP[a4, a5], a3, n] - S2[a2, a1, SP[a4, a5], a6, a3, n] + 
    S2[a2, a5, a1, a6, SP[a3, a4], n] + S2[a2, a5, a1, SP[a4, a6], a3, n] + 
    S2[a2, a5, SP[a1, a4], a6, a3, n] + S2[a3, a1, a4, a5, SP[a2, a6], n] + 
    S2[a3, a1, a4, SP[a5, a6], a2, n] + S2[a3, a1, SP[a4, a6], a5, a2, n] + 
    S2[a3, SP[a1, a6], a4, a5, a2, n] - S2[a3, n]*S2[a6, a1, a4, a5, a2, n] - 
    S2[a6, a1, a4, a5, SP[a2, a3], n] - S2[a6, a1, a4, SP[a3, a5], a2, n] - 
    S2[a6, a1, SP[a3, a4], a5, a2, n] - S2[a6, SP[a1, a3], a4, a5, a2, n] - 
    S2[SP[a3, a6], a1, a4, a5, a2, n] + S2[a6, a1, a3, a4, a5, a2, n] + 
    S2[a6, a1, a4, a3, a5, a2, n] + S2[a6, a1, a4, a5, a2, a3, n] + 
    S2[a6, a1, a4, a5, a3, a2, n] + S2[a6, a3, a1, a4, a5, a2, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a2_, a5_, a4_, a3_, a1_, a6_, n_] :> 
  -(S2[a1, a3, a6, n]*S2[a2, a5, a4, n]) - S2[a1, a6, a3, n]*
     S2[a2, a5, a4, n] - S2[SP[a1, a2], SP[a3, a5], SP[a4, a6], n] - 
    S2[SP[a1, a2], SP[a5, a6], SP[a3, a4], n] + S2[a1, a2, SP[a3, a5], 
     SP[a4, a6], n] + S2[a1, a2, SP[a5, a6], SP[a3, a4], n] + 
    S2[a2, a5, n]*S2[a1, a3, a4, a6, n] + S2[a2, a5, n]*
     S2[a1, a3, a6, a4, n] - S2[a1, a3, SP[a2, a4], SP[a5, a6], n] - 
    S2[a1, a3, SP[a2, a6], SP[a4, a5], n] + S2[a2, a5, n]*
     S2[a1, a6, a3, a4, n] - S2[a1, a6, SP[a2, a3], SP[a4, a5], n] - 
    S2[a1, SP[a2, a3], a4, SP[a5, a6], n] + S2[a1, SP[a2, a3], a5, 
     SP[a4, a6], n] - S2[a1, SP[a2, a3], a6, SP[a4, a5], n] - 
    S2[a1, SP[a2, a3], SP[a4, a5], a6, n] - S2[a1, SP[a2, a6], a3, 
     SP[a4, a5], n] + S2[a1, SP[a2, a6], a5, SP[a3, a4], n] + 
    S2[a2, a1, SP[a3, a5], SP[a4, a6], n] + S2[a2, a1, SP[a5, a6], 
     SP[a3, a4], n] + S2[a1, a6, n]*S2[a2, a5, a4, a3, n] - 
    S2[a2, a5, SP[a1, a4], SP[a3, a6], n] + S2[a2, SP[a1, a5], a3, 
     SP[a4, a6], n] - S2[a2, SP[a1, a5], a4, SP[a3, a6], n] + 
    S2[a2, SP[a1, a5], a6, SP[a3, a4], n] + S2[a2, SP[a1, a5], SP[a3, a4], 
     a6, n] - S2[SP[a1, a2], a3, a4, SP[a5, a6], n] + 
    S2[SP[a1, a2], a3, a5, SP[a4, a6], n] - S2[SP[a1, a2], a3, a6, 
     SP[a4, a5], n] - S2[SP[a1, a2], a3, SP[a4, a5], a6, n] + 
    S2[SP[a1, a2], a5, a3, SP[a4, a6], n] - S2[SP[a1, a2], a5, a4, 
     SP[a3, a6], n] + S2[SP[a1, a2], a5, a6, SP[a3, a4], n] + 
    S2[SP[a1, a2], a5, SP[a3, a4], a6, n] - S2[SP[a1, a2], a6, a3, 
     SP[a4, a5], n] + S2[SP[a1, a2], a6, a5, SP[a3, a4], n] + 
    S2[a1, a2, a3, a4, SP[a5, a6], n] - S2[a1, a2, a3, a5, SP[a4, a6], n] + 
    S2[a1, a2, a3, a6, SP[a4, a5], n] + S2[a1, a2, a3, SP[a4, a5], a6, n] - 
    S2[a1, a2, a5, a3, SP[a4, a6], n] + S2[a1, a2, a5, a4, SP[a3, a6], n] - 
    S2[a1, a2, a5, a6, SP[a3, a4], n] - S2[a1, a2, a5, SP[a3, a4], a6, n] + 
    S2[a1, a2, a6, a3, SP[a4, a5], n] - S2[a1, a2, a6, a5, SP[a3, a4], n] + 
    S2[a1, a3, a2, a4, SP[a5, a6], n] - S2[a1, a3, a2, a5, SP[a4, a6], n] + 
    S2[a1, a3, a2, a6, SP[a4, a5], n] + S2[a1, a3, a2, SP[a4, a5], a6, n] + 
    S2[a1, a3, a4, a2, SP[a5, a6], n] + S2[a6, n]*S2[a1, a3, a4, a5, a2, n] - 
    S2[a2, n]*S2[a1, a3, a4, a5, a6, n] - 
    S2[a2, n]*S2[a1, a3, a4, a6, a5, n] - S2[a1, a3, a4, a6, SP[a2, a5], n] - 
    S2[a1, a3, a4, SP[a2, a5], a6, n] + S2[a1, a3, a4, SP[a5, a6], a2, n] + 
    S2[a1, a3, a6, a2, SP[a4, a5], n] - S2[a2, n]*S2[a1, a3, a6, a4, a5, n] - 
    S2[a1, a3, a6, a4, SP[a2, a5], n] + S2[a1, a3, SP[a4, a6], a5, a2, n] + 
    S2[a1, a6, a2, a3, SP[a4, a5], n] - S2[a1, a6, a2, a5, SP[a3, a4], n] + 
    S2[a1, a6, a3, a2, SP[a4, a5], n] - S2[a2, n]*S2[a1, a6, a3, a4, a5, n] - 
    S2[a1, a6, a3, a4, SP[a2, a5], n] + S2[a1, SP[a3, a6], a4, a5, a2, n] + 
    S2[a2, a1, a3, a4, SP[a5, a6], n] - S2[a2, a1, a3, a5, SP[a4, a6], n] + 
    S2[a2, a1, a3, a6, SP[a4, a5], n] + S2[a2, a1, a3, SP[a4, a5], a6, n] - 
    S2[a2, a1, a5, a3, SP[a4, a6], n] + S2[a2, a1, a5, a4, SP[a3, a6], n] - 
    S2[a2, a1, a5, a6, SP[a3, a4], n] - S2[a2, a1, a5, SP[a3, a4], a6, n] + 
    S2[a2, a1, a6, a3, SP[a4, a5], n] - S2[a2, a1, a6, a5, SP[a3, a4], n] - 
    S2[a2, a5, a1, a3, SP[a4, a6], n] + S2[a2, a5, a1, a4, SP[a3, a6], n] - 
    S2[a2, a5, a1, a6, SP[a3, a4], n] - S2[a2, a5, a1, SP[a3, a4], a6, n] + 
    S2[a2, a5, a4, a1, SP[a3, a6], n] + S2[a2, a5, a4, SP[a1, a3], a6, n] + 
    S2[SP[a1, a6], a3, a4, a5, a2, n] - S2[a6, a1, a3, a4, a5, a2, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a2_, a5_, a4_, a3_, a6_, a1_, n_] :> 
  S2[a1, a6, a3, n]*S2[a2, a5, a4, n] + S2[SP[a1, a2], SP[a5, a6], 
     SP[a3, a4], n] - S2[a1, a2, SP[a5, a6], SP[a3, a4], n] - 
    S2[a2, a5, n]*S2[a1, a6, a3, a4, n] + S2[a1, a6, SP[a2, a3], SP[a4, a5], 
     n] + S2[a1, SP[a2, a6], a3, SP[a4, a5], n] - S2[a1, SP[a2, a6], a5, 
     SP[a3, a4], n] - S2[a2, a1, SP[a5, a6], SP[a3, a4], n] - 
    S2[a1, a6, n]*S2[a2, a5, a4, a3, n] + S2[a2, a5, SP[a1, a4], SP[a3, a6], 
     n] + S2[a2, SP[a1, a5], a4, SP[a3, a6], n] - S2[a2, SP[a1, a5], a6, 
     SP[a3, a4], n] + S2[SP[a1, a2], a5, a4, SP[a3, a6], n] - 
    S2[SP[a1, a2], a5, a6, SP[a3, a4], n] + S2[SP[a1, a2], a6, a3, 
     SP[a4, a5], n] - S2[SP[a1, a2], a6, a5, SP[a3, a4], n] - 
    S2[a1, a2, a5, a4, SP[a3, a6], n] + S2[a1, a2, a5, a6, SP[a3, a4], n] - 
    S2[a1, a2, a6, a3, SP[a4, a5], n] + S2[a1, a2, a6, a5, SP[a3, a4], n] - 
    S2[a1, a6, a2, a3, SP[a4, a5], n] + S2[a1, a6, a2, a5, SP[a3, a4], n] - 
    S2[a1, a6, a3, a2, SP[a4, a5], n] + S2[a2, n]*S2[a1, a6, a3, a4, a5, n] + 
    S2[a1, a6, a3, a4, SP[a2, a5], n] - S2[a2, a1, a5, a4, SP[a3, a6], n] + 
    S2[a2, a1, a5, a6, SP[a3, a4], n] - S2[a2, a1, a6, a3, SP[a4, a5], n] + 
    S2[a2, a1, a6, a5, SP[a3, a4], n] - S2[a2, a5, a1, a4, SP[a3, a6], n] + 
    S2[a2, a5, a1, a6, SP[a3, a4], n] - S2[a2, a5, a4, a1, SP[a3, a6], n] + 
    S2[a1, n]*S2[a2, a5, a4, a3, a6, n] + S2[a2, a5, a4, a3, SP[a1, a6], n] - 
    S2[a1, n]*S2[a6, a3, a4, a5, a2, n] - S2[a6, a3, a4, a5, SP[a1, a2], n] - 
    S2[a6, a3, a4, SP[a1, a5], a2, n] - S2[a6, a3, SP[a1, a4], a5, a2, n] - 
    S2[a6, SP[a1, a3], a4, a5, a2, n] - S2[SP[a1, a6], a3, a4, a5, a2, n] + 
    S2[a6, a1, a3, a4, a5, a2, n] + S2[a6, a3, a1, a4, a5, a2, n] + 
    S2[a6, a3, a4, a1, a5, a2, n] + S2[a6, a3, a4, a5, a1, a2, n] + 
    S2[a6, a3, a4, a5, a2, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a2_, a5_, a4_, a6_, a1_, a3_, n_] :> 
  -(S2[a1, a3, a6, n]*S2[a2, a5, a4, n]) - S2[a1, a6, a3, n]*
     S2[a2, a5, a4, n] - S2[SP[a1, a2], SP[a3, a5], SP[a4, a6], n] - 
    S2[SP[a1, a2], SP[a5, a6], SP[a3, a4], n] + S2[a1, a2, SP[a3, a5], 
     SP[a4, a6], n] + S2[a1, a2, SP[a5, a6], SP[a3, a4], n] + 
    S2[a2, a5, n]*S2[a1, a3, a6, a4, n] - S2[a1, a3, SP[a2, a6], SP[a4, a5], 
     n] + S2[a2, a5, n]*S2[a1, a6, a3, a4, n] + 
    S2[a2, a5, n]*S2[a1, a6, a4, a3, n] - S2[a1, a6, SP[a2, a3], SP[a4, a5], 
     n] - S2[a1, a6, SP[a2, a4], SP[a3, a5], n] + S2[a1, SP[a2, a3], a5, 
     SP[a4, a6], n] - S2[a1, SP[a2, a3], a6, SP[a4, a5], n] - 
    S2[a1, SP[a2, a6], a3, SP[a4, a5], n] - S2[a1, SP[a2, a6], a4, 
     SP[a3, a5], n] + S2[a1, SP[a2, a6], a5, SP[a3, a4], n] - 
    S2[a1, SP[a2, a6], SP[a4, a5], a3, n] + S2[a2, a1, SP[a3, a5], 
     SP[a4, a6], n] + S2[a2, a1, SP[a5, a6], SP[a3, a4], n] - 
    S2[a1, a3, n]*S2[a2, a5, a6, a4, n] + S2[a2, a5, SP[a1, a6], SP[a3, a4], 
     n] - S2[a1, a3, n]*S2[a2, a6, a4, a5, n] - 
    S2[a1, a3, n]*S2[a2, a6, a5, a4, n] + S2[a2, a6, SP[a1, a4], SP[a3, a5], 
     n] + S2[a2, a6, SP[a1, a5], SP[a3, a4], n] + S2[a2, SP[a1, a5], a3, 
     SP[a4, a6], n] + 2*S2[a2, SP[a1, a5], a6, SP[a3, a4], n] + 
    S2[a2, SP[a1, a5], SP[a3, a4], a6, n] + S2[a2, SP[a1, a5], SP[a3, a6], 
     a4, n] + S2[a2, SP[a1, a5], SP[a4, a6], a3, n] + 
    S2[a2, SP[a1, a6], a4, SP[a3, a5], n] + S2[a2, SP[a1, a6], a5, 
     SP[a3, a4], n] + S2[a2, SP[a1, a6], SP[a3, a4], a5, n] + 
    S2[a2, SP[a1, a6], SP[a3, a5], a4, n] + S2[a1, a3, n]*
     S2[a4, a6, a2, a5, n] - S2[a4, a6, SP[a1, a2], SP[a3, a5], n] - 
    S2[a4, SP[a1, a6], a2, SP[a3, a5], n] - S2[a4, SP[a1, a6], SP[a2, a3], 
     a5, n] + S2[SP[a1, a2], a3, a5, SP[a4, a6], n] - 
    S2[SP[a1, a2], a3, a6, SP[a4, a5], n] + S2[SP[a1, a2], a5, a3, 
     SP[a4, a6], n] + 2*S2[SP[a1, a2], a5, a6, SP[a3, a4], n] + 
    S2[SP[a1, a2], a5, SP[a3, a4], a6, n] + S2[SP[a1, a2], a5, SP[a3, a6], 
     a4, n] + S2[SP[a1, a2], a5, SP[a4, a6], a3, n] - 
    S2[SP[a1, a2], a6, a3, SP[a4, a5], n] + 
    2*S2[SP[a1, a2], a6, a5, SP[a3, a4], n] + S2[SP[a1, a2], a6, SP[a3, a4], 
     a5, n] + S2[SP[a1, a2], a6, SP[a3, a5], a4, n] - 
    S2[SP[a1, a2], a6, SP[a4, a5], a3, n] + S2[SP[a1, a2], SP[a3, a5], a4, 
     a6, n] + S2[SP[a1, a2], SP[a3, a5], a6, a4, n] + 
    S2[SP[a1, a2], SP[a3, a6], a4, a5, n] + S2[SP[a1, a2], SP[a3, a6], a5, 
     a4, n] - S2[SP[a1, a4], a6, a2, SP[a3, a5], n] - 
    S2[SP[a1, a4], a6, SP[a2, a3], a5, n] - S2[SP[a1, a4], SP[a3, a6], a2, 
     a5, n] - S2[a1, a2, a3, a5, SP[a4, a6], n] + 
    S2[a1, a2, a3, a6, SP[a4, a5], n] - S2[a1, a2, a5, a3, SP[a4, a6], n] - 
    2*S2[a1, a2, a5, a6, SP[a3, a4], n] - S2[a1, a2, a5, SP[a3, a4], a6, n] - 
    S2[a1, a2, a5, SP[a3, a6], a4, n] - S2[a1, a2, a5, SP[a4, a6], a3, n] + 
    S2[a1, a2, a6, a3, SP[a4, a5], n] - 2*S2[a1, a2, a6, a5, SP[a3, a4], n] - 
    S2[a1, a2, a6, SP[a3, a4], a5, n] - S2[a1, a2, a6, SP[a3, a5], a4, n] + 
    S2[a1, a2, a6, SP[a4, a5], a3, n] - S2[a1, a2, SP[a3, a5], a4, a6, n] - 
    S2[a1, a2, SP[a3, a5], a6, a4, n] - S2[a1, a2, SP[a3, a6], a4, a5, n] - 
    S2[a1, a2, SP[a3, a6], a5, a4, n] - S2[a1, a3, a2, a5, SP[a4, a6], n] + 
    S2[a1, a3, a2, a6, SP[a4, a5], n] - S2[a6, n]*S2[a1, a3, a5, a2, a4, n] - 
    S2[a1, a3, a5, a2, SP[a4, a6], n] - S2[a6, n]*S2[a1, a3, a5, a4, a2, n] + 
    S2[a2, n]*S2[a1, a3, a5, a4, a6, n] + 
    S2[a2, n]*S2[a1, a3, a5, a6, a4, n] + S2[a1, a3, a5, a6, SP[a2, a4], n] + 
    S2[a1, a3, a5, SP[a2, a4], a6, n] - S2[a1, a3, a5, SP[a4, a6], a2, n] - 
    S2[a4, n]*S2[a1, a3, a6, a2, a5, n] + 
    S2[a2, n]*S2[a1, a3, a6, a5, a4, n] + S2[a1, a3, a6, a5, SP[a2, a4], n] + 
    S2[a1, a3, a6, SP[a2, a5], a4, n] + S2[a1, a3, SP[a2, a5], a4, a6, n] + 
    S2[a1, a3, SP[a2, a5], a6, a4, n] + S2[a1, a3, SP[a2, a6], a4, a5, n] + 
    S2[a1, a3, SP[a2, a6], a5, a4, n] - S2[a1, a3, SP[a4, a6], a2, a5, n] - 
    S2[a1, a3, SP[a5, a6], a2, a4, n] - S2[a1, a3, SP[a5, a6], a4, a2, n] + 
    S2[a1, a4, a6, a2, SP[a3, a5], n] + S2[a1, a4, a6, SP[a2, a3], a5, n] + 
    S2[a1, a4, SP[a3, a6], a2, a5, n] - S2[a6, n]*S2[a1, a5, a2, a3, a4, n] - 
    S2[a1, a5, a2, a3, SP[a4, a6], n] - S2[a6, n]*S2[a1, a5, a2, a4, a3, n] - 
    S2[a1, a5, a2, a4, SP[a3, a6], n] - S2[a1, a5, a2, SP[a3, a6], a4, n] - 
    S2[a1, a5, a2, SP[a4, a6], a3, n] - S2[a6, n]*S2[a1, a5, a3, a2, a4, n] - 
    S2[a1, a5, a3, a2, SP[a4, a6], n] - S2[a6, n]*S2[a1, a5, a3, a4, a2, n] + 
    S2[a2, n]*S2[a1, a5, a3, a4, a6, n] + 
    S2[a2, n]*S2[a1, a5, a3, a6, a4, n] + S2[a1, a5, a3, a6, SP[a2, a4], n] + 
    S2[a1, a5, a3, SP[a2, a4], a6, n] - S2[a1, a5, a3, SP[a4, a6], a2, n] - 
    S2[a6, n]*S2[a1, a5, a4, a2, a3, n] - S2[a1, a5, a4, a2, SP[a3, a6], n] - 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] + 
    S2[a2, n]*S2[a1, a5, a4, a3, a6, n] + 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] + S2[a1, a5, a4, a6, SP[a2, a3], n] + 
    S2[a1, a5, a4, SP[a2, a3], a6, n] - S2[a1, a5, a4, SP[a3, a6], a2, n] + 
    S2[a2, n]*S2[a1, a5, a6, a3, a4, n] + S2[a1, a5, a6, a3, SP[a2, a4], n] + 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] + S2[a1, a5, a6, a4, SP[a2, a3], n] + 
    S2[a1, a5, a6, SP[a2, a3], a4, n] + S2[a1, a5, a6, SP[a2, a4], a3, n] + 
    S2[a1, a5, SP[a2, a3], a4, a6, n] + S2[a1, a5, SP[a2, a3], a6, a4, n] + 
    S2[a1, a5, SP[a2, a4], a3, a6, n] + S2[a1, a5, SP[a2, a4], a6, a3, n] - 
    S2[a1, a5, SP[a3, a6], a2, a4, n] - S2[a1, a5, SP[a3, a6], a4, a2, n] - 
    S2[a1, a5, SP[a4, a6], a2, a3, n] - S2[a1, a5, SP[a4, a6], a3, a2, n] - 
    S2[a4, n]*S2[a1, a6, a2, a3, a5, n] + S2[a1, a6, a2, a4, SP[a3, a5], n] - 
    S2[a4, n]*S2[a1, a6, a2, a5, a3, n] - 
    2*S2[a1, a6, a2, a5, SP[a3, a4], n] - S2[a1, a6, a2, SP[a3, a4], a5, n] - 
    S2[a4, n]*S2[a1, a6, a3, a2, a5, n] + 
    S2[a2, n]*S2[a1, a6, a3, a5, a4, n] + S2[a1, a6, a3, a5, SP[a2, a4], n] + 
    S2[a1, a6, a3, SP[a2, a5], a4, n] + S2[a1, a6, a4, a2, SP[a3, a5], n] + 
    S2[a1, a6, a4, SP[a2, a3], a5, n] + S2[a2, n]*S2[a1, a6, a5, a3, a4, n] + 
    S2[a1, a6, a5, a3, SP[a2, a4], n] + S2[a2, n]*S2[a1, a6, a5, a4, a3, n] + 
    S2[a1, a6, a5, a4, SP[a2, a3], n] + S2[a1, a6, a5, SP[a2, a3], a4, n] + 
    S2[a1, a6, a5, SP[a2, a4], a3, n] + S2[a1, a6, SP[a2, a3], a4, a5, n] + 
    S2[a1, a6, SP[a2, a3], a5, a4, n] + S2[a1, a6, SP[a2, a5], a3, a4, n] + 
    S2[a1, a6, SP[a2, a5], a4, a3, n] - S2[a1, a6, SP[a3, a4], a2, a5, n] + 
    S2[a1, SP[a2, a5], a3, a4, a6, n] + S2[a1, SP[a2, a5], a3, a6, a4, n] + 
    S2[a1, SP[a2, a5], a4, a3, a6, n] + S2[a1, SP[a2, a5], a4, a6, a3, n] + 
    S2[a1, SP[a2, a5], a6, a3, a4, n] + S2[a1, SP[a2, a5], a6, a4, a3, n] + 
    S2[a1, SP[a2, a6], a3, a4, a5, n] + S2[a1, SP[a2, a6], a3, a5, a4, n] + 
    S2[a1, SP[a2, a6], a4, a3, a5, n] + S2[a1, SP[a2, a6], a4, a5, a3, n] + 
    S2[a1, SP[a2, a6], a5, a3, a4, n] + S2[a1, SP[a2, a6], a5, a4, a3, n] - 
    S2[a1, SP[a3, a6], a5, a2, a4, n] - S2[a1, SP[a3, a6], a5, a4, a2, n] - 
    S2[a1, SP[a4, a6], a2, a3, a5, n] - S2[a1, SP[a4, a6], a2, a5, a3, n] - 
    S2[a1, SP[a4, a6], a3, a2, a5, n] - S2[a1, SP[a5, a6], a2, a3, a4, n] - 
    S2[a1, SP[a5, a6], a2, a4, a3, n] - S2[a1, SP[a5, a6], a3, a2, a4, n] - 
    S2[a1, SP[a5, a6], a3, a4, a2, n] - S2[a1, SP[a5, a6], a4, a2, a3, n] - 
    S2[a1, SP[a5, a6], a4, a3, a2, n] - S2[a2, a1, a3, a5, SP[a4, a6], n] + 
    S2[a2, a1, a3, a6, SP[a4, a5], n] - S2[a2, a1, a5, a3, SP[a4, a6], n] - 
    2*S2[a2, a1, a5, a6, SP[a3, a4], n] - S2[a2, a1, a5, SP[a3, a4], a6, n] - 
    S2[a2, a1, a5, SP[a3, a6], a4, n] - S2[a2, a1, a5, SP[a4, a6], a3, n] + 
    S2[a2, a1, a6, a3, SP[a4, a5], n] - 2*S2[a2, a1, a6, a5, SP[a3, a4], n] - 
    S2[a2, a1, a6, SP[a3, a4], a5, n] - S2[a2, a1, a6, SP[a3, a5], a4, n] + 
    S2[a2, a1, a6, SP[a4, a5], a3, n] - S2[a2, a1, SP[a3, a5], a4, a6, n] - 
    S2[a2, a1, SP[a3, a5], a6, a4, n] - S2[a2, a1, SP[a3, a6], a4, a5, n] - 
    S2[a2, a1, SP[a3, a6], a5, a4, n] + S2[a6, n]*S2[a2, a5, a1, a3, a4, n] + 
    S2[a6, n]*S2[a2, a5, a1, a4, a3, n] + S2[a2, a5, a1, a4, SP[a3, a6], n] - 
    2*S2[a2, a5, a1, a6, SP[a3, a4], n] - S2[a2, a5, a1, SP[a3, a4], a6, n] + 
    S2[a6, n]*S2[a2, a5, a4, a1, a3, n] + S2[a2, a5, a4, a1, SP[a3, a6], n] + 
    S2[a2, a5, a4, SP[a1, a6], a3, n] - S2[a2, a5, a6, a1, SP[a3, a4], n] - 
    S2[a2, a5, a6, SP[a1, a4], a3, n] - S2[a2, a5, SP[a1, a4], a3, a6, n] - 
    S2[a2, a5, SP[a1, a4], a6, a3, n] + S2[a2, a5, SP[a4, a6], a1, a3, n] + 
    S2[a4, n]*S2[a2, a6, a1, a3, a5, n] + S2[a2, a6, a1, a3, SP[a4, a5], n] - 
    S2[a2, a6, a1, a4, SP[a3, a5], n] + S2[a4, n]*S2[a2, a6, a1, a5, a3, n] - 
    S2[a2, a6, a1, SP[a3, a5], a4, n] + S2[a2, a6, a1, SP[a4, a5], a3, n] - 
    S2[a2, a6, a4, a1, SP[a3, a5], n] - S2[a2, a6, a4, SP[a1, a5], a3, n] - 
    S2[a2, a6, a5, a1, SP[a3, a4], n] - S2[a2, a6, a5, SP[a1, a4], a3, n] - 
    S2[a2, a6, SP[a1, a5], a3, a4, n] - S2[a2, a6, SP[a1, a5], a4, a3, n] - 
    S2[a2, SP[a1, a5], a3, a4, a6, n] - S2[a2, SP[a1, a5], a3, a6, a4, n] - 
    S2[a2, SP[a1, a5], a4, a3, a6, n] - S2[a2, SP[a1, a5], a4, a6, a3, n] - 
    S2[a2, SP[a1, a5], a6, a3, a4, n] - S2[a2, SP[a1, a5], a6, a4, a3, n] - 
    S2[a2, SP[a1, a6], a3, a4, a5, n] - S2[a2, SP[a1, a6], a3, a5, a4, n] - 
    S2[a2, SP[a1, a6], a4, a3, a5, n] - S2[a2, SP[a1, a6], a4, a5, a3, n] - 
    S2[a2, SP[a1, a6], a5, a3, a4, n] - S2[a2, SP[a1, a6], a5, a4, a3, n] + 
    S2[a2, SP[a4, a6], a1, a3, a5, n] + S2[a2, SP[a4, a6], a1, a5, a3, n] + 
    S2[a2, SP[a5, a6], a1, a3, a4, n] + S2[a2, SP[a5, a6], a1, a4, a3, n] + 
    S2[a2, SP[a5, a6], a4, a1, a3, n] + S2[a4, a1, a6, a2, SP[a3, a5], n] + 
    S2[a4, a1, a6, SP[a2, a3], a5, n] + S2[a4, a1, SP[a3, a6], a2, a5, n] + 
    S2[a4, a6, a1, a2, SP[a3, a5], n] - S2[a2, n]*S2[a4, a6, a1, a3, a5, n] - 
    S2[a4, a6, a1, a3, SP[a2, a5], n] - S2[a2, n]*S2[a4, a6, a1, a5, a3, n] - 
    S2[a4, a6, a1, a5, SP[a2, a3], n] - S2[a4, a6, a1, SP[a2, a5], a3, n] + 
    S2[a4, a6, a2, a1, SP[a3, a5], n] + S2[a4, a6, a2, SP[a1, a5], a3, n] + 
    S2[a4, SP[a1, a6], a2, a3, a5, n] + S2[a4, SP[a1, a6], a2, a5, a3, n] + 
    S2[a4, SP[a1, a6], a3, a2, a5, n] - S2[a4, SP[a2, a6], a1, a3, a5, n] - 
    S2[a4, SP[a2, a6], a1, a5, a3, n] + S2[a4, n]*S2[a6, a1, a3, a5, a2, n] + 
    S2[a6, a1, a3, a5, SP[a2, a4], n] + S2[a6, a1, a3, SP[a4, a5], a2, n] + 
    S2[a4, n]*S2[a6, a1, a5, a2, a3, n] + S2[a6, a1, a5, a2, SP[a3, a4], n] + 
    S2[a4, n]*S2[a6, a1, a5, a3, a2, n] + S2[a6, a1, a5, a3, SP[a2, a4], n] + 
    S2[a6, a1, a5, SP[a2, a4], a3, n] + S2[a6, a1, a5, SP[a3, a4], a2, n] + 
    S2[a6, a1, SP[a3, a4], a5, a2, n] + S2[a6, a1, SP[a4, a5], a2, a3, n] + 
    S2[a6, a1, SP[a4, a5], a3, a2, n] - S2[a4, n]*S2[a6, a2, a5, a1, a3, n] - 
    S2[a6, a2, a5, a1, SP[a3, a4], n] - S2[a6, a2, a5, SP[a1, a4], a3, n] - 
    S2[a6, a2, SP[a4, a5], a1, a3, n] + S2[a2, n]*S2[a6, a4, a5, a1, a3, n] + 
    S2[a6, a4, a5, a1, SP[a2, a3], n] + S2[a6, a4, a5, SP[a1, a2], a3, n] + 
    S2[a6, a4, SP[a2, a5], a1, a3, n] + S2[a6, SP[a1, a4], a3, a5, a2, n] + 
    S2[a6, SP[a1, a4], a5, a2, a3, n] + S2[a6, SP[a1, a4], a5, a3, a2, n] - 
    S2[SP[a1, a6], a3, a5, a2, a4, n] - S2[SP[a1, a6], a3, a5, a4, a2, n] - 
    S2[SP[a1, a6], a5, a2, a3, a4, n] - S2[SP[a1, a6], a5, a2, a4, a3, n] - 
    S2[SP[a1, a6], a5, a3, a2, a4, n] - S2[SP[a1, a6], a5, a3, a4, a2, n] - 
    S2[SP[a1, a6], a5, a4, a2, a3, n] - S2[SP[a1, a6], a5, a4, a3, a2, n] + 
    S2[SP[a2, a6], a4, a5, a1, a3, n] + S2[SP[a2, a6], a5, a1, a3, a4, n] + 
    S2[SP[a2, a6], a5, a1, a4, a3, n] + S2[SP[a2, a6], a5, a4, a1, a3, n] + 
    S2[SP[a4, a6], a1, a3, a5, a2, n] + S2[SP[a4, a6], a1, a5, a2, a3, n] + 
    S2[SP[a4, a6], a1, a5, a3, a2, n] - S2[SP[a4, a6], a2, a5, a1, a3, n] - 
    S2[a6, a1, a3, a4, a5, a2, n] - S2[a6, a1, a4, a3, a5, a2, n] - 
    S2[a6, a1, a4, a5, a2, a3, n] - S2[a6, a1, a4, a5, a3, a2, n] - 
    S2[a6, a4, a1, a3, a5, a2, n] - S2[a6, a4, a1, a5, a2, a3, n] - 
    S2[a6, a4, a1, a5, a3, a2, n] - S2[a6, a4, a5, a1, a2, a3, n] - 
    S2[a6, a4, a5, a1, a3, a2, n] - S2[a6, a4, a5, a2, a1, a3, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a2_, a5_, a4_, a6_, a3_, a1_, n_] :> 
  S2[a1, a3, a6, n]*S2[a2, a5, a4, n] + S2[SP[a1, a2], SP[a3, a5], 
     SP[a4, a6], n] - S2[a1, a2, SP[a3, a5], SP[a4, a6], n] - 
    S2[a2, a5, n]*S2[a1, a3, a6, a4, n] + S2[a1, a3, SP[a2, a6], SP[a4, a5], 
     n] - S2[a1, SP[a2, a3], a5, SP[a4, a6], n] + S2[a1, SP[a2, a3], a6, 
     SP[a4, a5], n] - S2[a2, a1, SP[a3, a5], SP[a4, a6], n] + 
    S2[a1, a3, n]*S2[a2, a5, a6, a4, n] - S2[a2, a5, SP[a1, a6], SP[a3, a4], 
     n] + S2[a1, a3, n]*S2[a2, a6, a4, a5, n] + 
    S2[a1, a3, n]*S2[a2, a6, a5, a4, n] - S2[a2, a6, SP[a1, a4], SP[a3, a5], 
     n] - S2[a2, a6, SP[a1, a5], SP[a3, a4], n] - S2[a2, SP[a1, a5], a3, 
     SP[a4, a6], n] - S2[a2, SP[a1, a5], a6, SP[a3, a4], n] - 
    S2[a2, SP[a1, a5], SP[a3, a4], a6, n] - S2[a2, SP[a1, a5], SP[a3, a6], 
     a4, n] - S2[a2, SP[a1, a6], a4, SP[a3, a5], n] - 
    S2[a2, SP[a1, a6], a5, SP[a3, a4], n] - S2[a2, SP[a1, a6], SP[a3, a4], 
     a5, n] - S2[a2, SP[a1, a6], SP[a3, a5], a4, n] - 
    S2[a1, a3, n]*S2[a4, a6, a2, a5, n] + S2[a4, a6, SP[a1, a2], SP[a3, a5], 
     n] + S2[a4, SP[a1, a6], a2, SP[a3, a5], n] + 
    S2[a4, SP[a1, a6], SP[a2, a3], a5, n] - S2[SP[a1, a2], a3, a5, 
     SP[a4, a6], n] + S2[SP[a1, a2], a3, a6, SP[a4, a5], n] - 
    S2[SP[a1, a2], a5, a3, SP[a4, a6], n] - S2[SP[a1, a2], a5, a6, 
     SP[a3, a4], n] - S2[SP[a1, a2], a5, SP[a3, a4], a6, n] - 
    S2[SP[a1, a2], a5, SP[a3, a6], a4, n] - S2[SP[a1, a2], a6, a4, 
     SP[a3, a5], n] - S2[SP[a1, a2], a6, a5, SP[a3, a4], n] - 
    S2[SP[a1, a2], a6, SP[a3, a4], a5, n] - S2[SP[a1, a2], a6, SP[a3, a5], 
     a4, n] - S2[SP[a1, a2], SP[a3, a5], a4, a6, n] - 
    S2[SP[a1, a2], SP[a3, a5], a6, a4, n] - S2[SP[a1, a2], SP[a3, a6], a4, 
     a5, n] - S2[SP[a1, a2], SP[a3, a6], a5, a4, n] + 
    S2[SP[a1, a4], a6, a2, SP[a3, a5], n] + S2[SP[a1, a4], a6, SP[a2, a3], 
     a5, n] + S2[SP[a1, a4], SP[a3, a6], a2, a5, n] + 
    S2[a1, a2, a3, a5, SP[a4, a6], n] - S2[a1, a2, a3, a6, SP[a4, a5], n] + 
    S2[a1, a2, a5, a3, SP[a4, a6], n] + S2[a1, a2, a5, a6, SP[a3, a4], n] + 
    S2[a1, a2, a5, SP[a3, a4], a6, n] + S2[a1, a2, a5, SP[a3, a6], a4, n] + 
    S2[a1, a2, a6, a4, SP[a3, a5], n] + S2[a1, a2, a6, a5, SP[a3, a4], n] + 
    S2[a1, a2, a6, SP[a3, a4], a5, n] + S2[a1, a2, a6, SP[a3, a5], a4, n] + 
    S2[a1, a2, SP[a3, a5], a4, a6, n] + S2[a1, a2, SP[a3, a5], a6, a4, n] + 
    S2[a1, a2, SP[a3, a6], a4, a5, n] + S2[a1, a2, SP[a3, a6], a5, a4, n] + 
    S2[a1, a3, a2, a5, SP[a4, a6], n] - S2[a1, a3, a2, a6, SP[a4, a5], n] + 
    S2[a6, n]*S2[a1, a3, a5, a2, a4, n] + S2[a1, a3, a5, a2, SP[a4, a6], n] + 
    S2[a6, n]*S2[a1, a3, a5, a4, a2, n] - 
    S2[a2, n]*S2[a1, a3, a5, a4, a6, n] - 
    S2[a2, n]*S2[a1, a3, a5, a6, a4, n] - S2[a1, a3, a5, a6, SP[a2, a4], n] - 
    S2[a1, a3, a5, SP[a2, a4], a6, n] + S2[a1, a3, a5, SP[a4, a6], a2, n] + 
    S2[a4, n]*S2[a1, a3, a6, a2, a5, n] - 
    S2[a2, n]*S2[a1, a3, a6, a5, a4, n] - S2[a1, a3, a6, a5, SP[a2, a4], n] - 
    S2[a1, a3, a6, SP[a2, a5], a4, n] - S2[a1, a3, SP[a2, a5], a4, a6, n] - 
    S2[a1, a3, SP[a2, a5], a6, a4, n] - S2[a1, a3, SP[a2, a6], a4, a5, n] - 
    S2[a1, a3, SP[a2, a6], a5, a4, n] + S2[a1, a3, SP[a4, a6], a2, a5, n] + 
    S2[a1, a3, SP[a5, a6], a2, a4, n] + S2[a1, a3, SP[a5, a6], a4, a2, n] - 
    S2[a1, a4, a6, a2, SP[a3, a5], n] - S2[a1, a4, a6, SP[a2, a3], a5, n] - 
    S2[a1, a4, SP[a3, a6], a2, a5, n] + S2[a6, n]*S2[a1, a5, a2, a3, a4, n] + 
    S2[a1, a5, a2, a3, SP[a4, a6], n] + S2[a6, n]*S2[a1, a5, a2, a4, a3, n] + 
    S2[a1, a5, a2, a4, SP[a3, a6], n] + S2[a1, a5, a2, SP[a3, a6], a4, n] + 
    S2[a1, a5, a2, SP[a4, a6], a3, n] + S2[a6, n]*S2[a1, a5, a3, a2, a4, n] + 
    S2[a1, a5, a3, a2, SP[a4, a6], n] + S2[a6, n]*S2[a1, a5, a3, a4, a2, n] - 
    S2[a2, n]*S2[a1, a5, a3, a4, a6, n] - 
    S2[a2, n]*S2[a1, a5, a3, a6, a4, n] - S2[a1, a5, a3, a6, SP[a2, a4], n] - 
    S2[a1, a5, a3, SP[a2, a4], a6, n] + S2[a1, a5, a3, SP[a4, a6], a2, n] + 
    S2[a6, n]*S2[a1, a5, a4, a2, a3, n] + S2[a1, a5, a4, a2, SP[a3, a6], n] + 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] - 
    S2[a2, n]*S2[a1, a5, a4, a3, a6, n] - 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] - S2[a1, a5, a4, a6, SP[a2, a3], n] - 
    S2[a1, a5, a4, SP[a2, a3], a6, n] + S2[a1, a5, a4, SP[a3, a6], a2, n] - 
    S2[a2, n]*S2[a1, a5, a6, a3, a4, n] - S2[a1, a5, a6, a3, SP[a2, a4], n] - 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] - S2[a1, a5, a6, a4, SP[a2, a3], n] - 
    S2[a1, a5, a6, SP[a2, a3], a4, n] - S2[a1, a5, a6, SP[a2, a4], a3, n] - 
    S2[a1, a5, SP[a2, a3], a4, a6, n] - S2[a1, a5, SP[a2, a3], a6, a4, n] - 
    S2[a1, a5, SP[a2, a4], a3, a6, n] - S2[a1, a5, SP[a2, a4], a6, a3, n] + 
    S2[a1, a5, SP[a3, a6], a2, a4, n] + S2[a1, a5, SP[a3, a6], a4, a2, n] + 
    S2[a1, a5, SP[a4, a6], a2, a3, n] + S2[a1, a5, SP[a4, a6], a3, a2, n] + 
    S2[a4, n]*S2[a1, a6, a2, a3, a5, n] + S2[a1, a6, a2, a3, SP[a4, a5], n] + 
    S2[a4, n]*S2[a1, a6, a2, a5, a3, n] + S2[a1, a6, a2, a5, SP[a3, a4], n] + 
    S2[a1, a6, a2, SP[a3, a4], a5, n] + S2[a1, a6, a2, SP[a4, a5], a3, n] + 
    S2[a4, n]*S2[a1, a6, a3, a2, a5, n] + S2[a1, a6, a3, a2, SP[a4, a5], n] - 
    S2[a2, n]*S2[a1, a6, a3, a4, a5, n] - S2[a1, a6, a3, a4, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a6, a3, a5, a4, n] - S2[a1, a6, a3, a5, SP[a2, a4], n] - 
    S2[a1, a6, a3, SP[a2, a5], a4, n] - S2[a2, n]*S2[a1, a6, a4, a3, a5, n] - 
    S2[a1, a6, a4, a3, SP[a2, a5], n] - S2[a2, n]*S2[a1, a6, a4, a5, a3, n] - 
    S2[a1, a6, a4, a5, SP[a2, a3], n] - S2[a1, a6, a4, SP[a2, a3], a5, n] - 
    S2[a1, a6, a4, SP[a2, a5], a3, n] - S2[a2, n]*S2[a1, a6, a5, a3, a4, n] - 
    S2[a1, a6, a5, a3, SP[a2, a4], n] - S2[a2, n]*S2[a1, a6, a5, a4, a3, n] - 
    S2[a1, a6, a5, a4, SP[a2, a3], n] - S2[a1, a6, a5, SP[a2, a3], a4, n] - 
    S2[a1, a6, a5, SP[a2, a4], a3, n] - S2[a1, a6, SP[a2, a3], a4, a5, n] - 
    S2[a1, a6, SP[a2, a3], a5, a4, n] - S2[a1, a6, SP[a2, a5], a3, a4, n] - 
    S2[a1, a6, SP[a2, a5], a4, a3, n] + S2[a1, a6, SP[a3, a4], a2, a5, n] - 
    S2[a1, SP[a2, a5], a3, a4, a6, n] - S2[a1, SP[a2, a5], a3, a6, a4, n] - 
    S2[a1, SP[a2, a5], a4, a3, a6, n] - S2[a1, SP[a2, a5], a4, a6, a3, n] - 
    S2[a1, SP[a2, a5], a6, a3, a4, n] - S2[a1, SP[a2, a5], a6, a4, a3, n] - 
    S2[a1, SP[a2, a6], a3, a4, a5, n] - S2[a1, SP[a2, a6], a3, a5, a4, n] - 
    S2[a1, SP[a2, a6], a4, a3, a5, n] - S2[a1, SP[a2, a6], a4, a5, a3, n] - 
    S2[a1, SP[a2, a6], a5, a3, a4, n] - S2[a1, SP[a2, a6], a5, a4, a3, n] + 
    S2[a1, SP[a3, a6], a5, a2, a4, n] + S2[a1, SP[a3, a6], a5, a4, a2, n] + 
    S2[a1, SP[a4, a6], a2, a3, a5, n] + S2[a1, SP[a4, a6], a2, a5, a3, n] + 
    S2[a1, SP[a4, a6], a3, a2, a5, n] + S2[a1, SP[a5, a6], a2, a3, a4, n] + 
    S2[a1, SP[a5, a6], a2, a4, a3, n] + S2[a1, SP[a5, a6], a3, a2, a4, n] + 
    S2[a1, SP[a5, a6], a3, a4, a2, n] + S2[a1, SP[a5, a6], a4, a2, a3, n] + 
    S2[a1, SP[a5, a6], a4, a3, a2, n] + S2[a2, a1, a3, a5, SP[a4, a6], n] - 
    S2[a2, a1, a3, a6, SP[a4, a5], n] + S2[a2, a1, a5, a3, SP[a4, a6], n] + 
    S2[a2, a1, a5, a6, SP[a3, a4], n] + S2[a2, a1, a5, SP[a3, a4], a6, n] + 
    S2[a2, a1, a5, SP[a3, a6], a4, n] + S2[a2, a1, a6, a4, SP[a3, a5], n] + 
    S2[a2, a1, a6, a5, SP[a3, a4], n] + S2[a2, a1, a6, SP[a3, a4], a5, n] + 
    S2[a2, a1, a6, SP[a3, a5], a4, n] + S2[a2, a1, SP[a3, a5], a4, a6, n] + 
    S2[a2, a1, SP[a3, a5], a6, a4, n] + S2[a2, a1, SP[a3, a6], a4, a5, n] + 
    S2[a2, a1, SP[a3, a6], a5, a4, n] - S2[a6, n]*S2[a2, a5, a1, a3, a4, n] - 
    S2[a6, n]*S2[a2, a5, a1, a4, a3, n] - S2[a2, a5, a1, a4, SP[a3, a6], n] + 
    S2[a2, a5, a1, a6, SP[a3, a4], n] + S2[a2, a5, a1, SP[a3, a4], a6, n] - 
    S2[a2, a5, a1, SP[a4, a6], a3, n] - S2[a6, n]*S2[a2, a5, a4, a1, a3, n] - 
    S2[a2, a5, a4, a1, SP[a3, a6], n] + S2[a1, n]*S2[a2, a5, a4, a6, a3, n] + 
    S2[a2, a5, a4, a6, SP[a1, a3], n] + S2[a2, a5, a6, a1, SP[a3, a4], n] + 
    S2[a2, a5, a6, SP[a1, a4], a3, n] + S2[a2, a5, SP[a1, a4], a3, a6, n] + 
    S2[a2, a5, SP[a1, a4], a6, a3, n] - S2[a2, a5, SP[a4, a6], a1, a3, n] - 
    S2[a4, n]*S2[a2, a6, a1, a3, a5, n] - S2[a2, a6, a1, a3, SP[a4, a5], n] + 
    S2[a2, a6, a1, a4, SP[a3, a5], n] - S2[a4, n]*S2[a2, a6, a1, a5, a3, n] + 
    S2[a2, a6, a1, SP[a3, a5], a4, n] - S2[a2, a6, a1, SP[a4, a5], a3, n] + 
    S2[a2, a6, a4, a1, SP[a3, a5], n] + S2[a2, a6, a4, SP[a1, a5], a3, n] + 
    S2[a2, a6, a5, a1, SP[a3, a4], n] + S2[a2, a6, a5, SP[a1, a4], a3, n] + 
    S2[a2, a6, SP[a1, a5], a3, a4, n] + S2[a2, a6, SP[a1, a5], a4, a3, n] + 
    S2[a2, SP[a1, a5], a3, a4, a6, n] + S2[a2, SP[a1, a5], a3, a6, a4, n] + 
    S2[a2, SP[a1, a5], a4, a3, a6, n] + S2[a2, SP[a1, a5], a4, a6, a3, n] + 
    S2[a2, SP[a1, a5], a6, a3, a4, n] + S2[a2, SP[a1, a5], a6, a4, a3, n] + 
    S2[a2, SP[a1, a6], a3, a4, a5, n] + S2[a2, SP[a1, a6], a3, a5, a4, n] + 
    S2[a2, SP[a1, a6], a4, a3, a5, n] + S2[a2, SP[a1, a6], a4, a5, a3, n] + 
    S2[a2, SP[a1, a6], a5, a3, a4, n] + S2[a2, SP[a1, a6], a5, a4, a3, n] - 
    S2[a2, SP[a4, a6], a1, a3, a5, n] - S2[a2, SP[a4, a6], a1, a5, a3, n] - 
    S2[a2, SP[a5, a6], a1, a3, a4, n] - S2[a2, SP[a5, a6], a1, a4, a3, n] - 
    S2[a2, SP[a5, a6], a4, a1, a3, n] - S2[a4, a1, a6, a2, SP[a3, a5], n] - 
    S2[a4, a1, a6, SP[a2, a3], a5, n] - S2[a4, a1, SP[a3, a6], a2, a5, n] - 
    S2[a4, a6, a1, a2, SP[a3, a5], n] + S2[a2, n]*S2[a4, a6, a1, a3, a5, n] + 
    S2[a4, a6, a1, a3, SP[a2, a5], n] + S2[a2, n]*S2[a4, a6, a1, a5, a3, n] + 
    S2[a4, a6, a1, a5, SP[a2, a3], n] + S2[a4, a6, a1, SP[a2, a5], a3, n] - 
    S2[a4, a6, a2, a1, SP[a3, a5], n] - S2[a4, a6, a2, SP[a1, a5], a3, n] - 
    S2[a4, SP[a1, a6], a2, a3, a5, n] - S2[a4, SP[a1, a6], a2, a5, a3, n] - 
    S2[a4, SP[a1, a6], a3, a2, a5, n] + S2[a4, SP[a2, a6], a1, a3, a5, n] + 
    S2[a4, SP[a2, a6], a1, a5, a3, n] - S2[a4, n]*S2[a6, a1, a3, a5, a2, n] - 
    S2[a6, a1, a3, a5, SP[a2, a4], n] - S2[a6, a1, a3, SP[a4, a5], a2, n] - 
    S2[a4, n]*S2[a6, a1, a5, a2, a3, n] - S2[a6, a1, a5, a2, SP[a3, a4], n] - 
    S2[a4, n]*S2[a6, a1, a5, a3, a2, n] - S2[a6, a1, a5, a3, SP[a2, a4], n] - 
    S2[a6, a1, a5, SP[a2, a4], a3, n] - S2[a6, a1, a5, SP[a3, a4], a2, n] - 
    S2[a6, a1, SP[a3, a4], a5, a2, n] - S2[a6, a1, SP[a4, a5], a2, a3, n] - 
    S2[a6, a1, SP[a4, a5], a3, a2, n] + S2[a4, n]*S2[a6, a2, a5, a1, a3, n] + 
    S2[a6, a2, a5, a1, SP[a3, a4], n] + S2[a6, a2, a5, SP[a1, a4], a3, n] + 
    S2[a6, a2, SP[a4, a5], a1, a3, n] + S2[a1, n]*S2[a6, a3, a4, a5, a2, n] + 
    S2[a6, a3, a4, a5, SP[a1, a2], n] + S2[a6, a3, a4, SP[a1, a5], a2, n] + 
    S2[a6, a3, SP[a1, a4], a5, a2, n] + S2[a1, n]*S2[a6, a4, a3, a5, a2, n] + 
    S2[a6, a4, a3, a5, SP[a1, a2], n] + S2[a6, a4, a3, SP[a1, a5], a2, n] - 
    S2[a2, n]*S2[a6, a4, a5, a1, a3, n] - S2[a6, a4, a5, a1, SP[a2, a3], n] + 
    S2[a1, n]*S2[a6, a4, a5, a2, a3, n] + S2[a6, a4, a5, a2, SP[a1, a3], n] + 
    S2[a1, n]*S2[a6, a4, a5, a3, a2, n] + S2[a6, a4, a5, a3, SP[a1, a2], n] + 
    S2[a6, a4, a5, SP[a1, a3], a2, n] + S2[a6, a4, SP[a1, a3], a5, a2, n] + 
    S2[a6, a4, SP[a1, a5], a2, a3, n] + S2[a6, a4, SP[a1, a5], a3, a2, n] - 
    S2[a6, a4, SP[a2, a5], a1, a3, n] + S2[a6, SP[a1, a3], a4, a5, a2, n] + 
    S2[SP[a1, a6], a3, a4, a5, a2, n] + S2[SP[a1, a6], a3, a5, a2, a4, n] + 
    S2[SP[a1, a6], a3, a5, a4, a2, n] + S2[SP[a1, a6], a4, a3, a5, a2, n] + 
    S2[SP[a1, a6], a4, a5, a2, a3, n] + S2[SP[a1, a6], a4, a5, a3, a2, n] + 
    S2[SP[a1, a6], a5, a2, a3, a4, n] + S2[SP[a1, a6], a5, a2, a4, a3, n] + 
    S2[SP[a1, a6], a5, a3, a2, a4, n] + S2[SP[a1, a6], a5, a3, a4, a2, n] + 
    S2[SP[a1, a6], a5, a4, a2, a3, n] + S2[SP[a1, a6], a5, a4, a3, a2, n] - 
    S2[SP[a2, a6], a4, a5, a1, a3, n] - S2[SP[a2, a6], a5, a1, a3, a4, n] - 
    S2[SP[a2, a6], a5, a1, a4, a3, n] - S2[SP[a2, a6], a5, a4, a1, a3, n] - 
    S2[SP[a4, a6], a1, a3, a5, a2, n] - S2[SP[a4, a6], a1, a5, a2, a3, n] - 
    S2[SP[a4, a6], a1, a5, a3, a2, n] + S2[SP[a4, a6], a2, a5, a1, a3, n] - 
    S2[a6, a3, a1, a4, a5, a2, n] - S2[a6, a3, a4, a1, a5, a2, n] - 
    S2[a6, a3, a4, a5, a1, a2, n] - S2[a6, a3, a4, a5, a2, a1, n] - 
    S2[a6, a4, a3, a1, a5, a2, n] - S2[a6, a4, a3, a5, a1, a2, n] - 
    S2[a6, a4, a3, a5, a2, a1, n] - S2[a6, a4, a5, a2, a3, a1, n] - 
    S2[a6, a4, a5, a3, a1, a2, n] - S2[a6, a4, a5, a3, a2, a1, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a2_, a5_, a6_, a1_, a3_, a4_, n_] :> 
  -(S2[a2, a5, n]*S2[a1, a3, a4, a6, n]) - S2[a2, a5, n]*
     S2[a1, a3, a6, a4, n] + S2[a1, a3, SP[a2, a4], SP[a5, a6], n] + 
    S2[a1, a3, SP[a2, a6], SP[a4, a5], n] - S2[a2, a5, n]*
     S2[a1, a6, a3, a4, n] + S2[a1, a6, SP[a2, a3], SP[a4, a5], n] + 
    S2[a1, SP[a2, a3], a4, SP[a5, a6], n] + S2[a1, SP[a2, a3], a6, 
     SP[a4, a5], n] + S2[a1, SP[a2, a3], SP[a4, a5], a6, n] + 
    S2[a1, SP[a2, a3], SP[a5, a6], a4, n] + S2[a1, SP[a2, a6], a3, 
     SP[a4, a5], n] + S2[a1, SP[a2, a6], SP[a3, a5], a4, n] + 
    S2[SP[a1, a2], a3, a4, SP[a5, a6], n] + S2[SP[a1, a2], a3, a6, 
     SP[a4, a5], n] + S2[SP[a1, a2], a3, SP[a4, a5], a6, n] + 
    S2[SP[a1, a2], a3, SP[a5, a6], a4, n] + S2[SP[a1, a2], a6, a3, 
     SP[a4, a5], n] + S2[SP[a1, a2], a6, SP[a3, a5], a4, n] + 
    S2[SP[a1, a2], SP[a3, a5], a4, a6, n] + S2[SP[a1, a2], SP[a3, a5], a6, 
     a4, n] + S2[SP[a1, a2], SP[a5, a6], a3, a4, n] - 
    S2[a1, a2, a3, a4, SP[a5, a6], n] - S2[a1, a2, a3, a6, SP[a4, a5], n] - 
    S2[a1, a2, a3, SP[a4, a5], a6, n] - S2[a1, a2, a3, SP[a5, a6], a4, n] - 
    S2[a1, a2, a6, a3, SP[a4, a5], n] - S2[a1, a2, a6, SP[a3, a5], a4, n] - 
    S2[a1, a2, SP[a3, a5], a4, a6, n] - S2[a1, a2, SP[a3, a5], a6, a4, n] - 
    S2[a1, a2, SP[a5, a6], a3, a4, n] - S2[a1, a3, a2, a4, SP[a5, a6], n] - 
    S2[a1, a3, a2, a6, SP[a4, a5], n] - S2[a1, a3, a2, SP[a4, a5], a6, n] - 
    S2[a1, a3, a2, SP[a5, a6], a4, n] - S2[a1, a3, a4, a2, SP[a5, a6], n] - 
    S2[a6, n]*S2[a1, a3, a4, a5, a2, n] + 
    S2[a2, n]*S2[a1, a3, a4, a5, a6, n] + 
    S2[a2, n]*S2[a1, a3, a4, a6, a5, n] + S2[a1, a3, a4, a6, SP[a2, a5], n] + 
    S2[a1, a3, a4, SP[a2, a5], a6, n] - S2[a1, a3, a4, SP[a5, a6], a2, n] - 
    S2[a6, n]*S2[a1, a3, a5, a2, a4, n] - S2[a1, a3, a5, a2, SP[a4, a6], n] - 
    S2[a6, n]*S2[a1, a3, a5, a4, a2, n] + 
    S2[a2, n]*S2[a1, a3, a5, a4, a6, n] + 
    S2[a2, n]*S2[a1, a3, a5, a6, a4, n] + S2[a1, a3, a5, a6, SP[a2, a4], n] + 
    S2[a1, a3, a5, SP[a2, a4], a6, n] - S2[a1, a3, a5, SP[a4, a6], a2, n] - 
    S2[a1, a3, a6, a2, SP[a4, a5], n] + S2[a2, n]*S2[a1, a3, a6, a4, a5, n] + 
    S2[a1, a3, a6, a4, SP[a2, a5], n] + S2[a2, n]*S2[a1, a3, a6, a5, a4, n] + 
    S2[a1, a3, a6, a5, SP[a2, a4], n] + S2[a1, a3, a6, SP[a2, a5], a4, n] + 
    S2[a1, a3, SP[a2, a5], a4, a6, n] + S2[a1, a3, SP[a2, a5], a6, a4, n] - 
    S2[a1, a3, SP[a4, a6], a5, a2, n] - S2[a1, a3, SP[a5, a6], a2, a4, n] - 
    S2[a1, a3, SP[a5, a6], a4, a2, n] - S2[a6, n]*S2[a1, a5, a2, a3, a4, n] - 
    S2[a1, a5, a2, a3, SP[a4, a6], n] - S2[a1, a5, a2, SP[a3, a6], a4, n] - 
    S2[a6, n]*S2[a1, a5, a3, a2, a4, n] - S2[a1, a5, a3, a2, SP[a4, a6], n] - 
    S2[a6, n]*S2[a1, a5, a3, a4, a2, n] + 
    S2[a2, n]*S2[a1, a5, a3, a4, a6, n] + 
    S2[a2, n]*S2[a1, a5, a3, a6, a4, n] + S2[a1, a5, a3, a6, SP[a2, a4], n] + 
    S2[a1, a5, a3, SP[a2, a4], a6, n] - S2[a1, a5, a3, SP[a4, a6], a2, n] + 
    S2[a2, n]*S2[a1, a5, a6, a3, a4, n] + S2[a1, a5, a6, a3, SP[a2, a4], n] + 
    S2[a1, a5, a6, SP[a2, a3], a4, n] + S2[a1, a5, SP[a2, a3], a4, a6, n] + 
    S2[a1, a5, SP[a2, a3], a6, a4, n] - S2[a1, a5, SP[a3, a6], a2, a4, n] - 
    S2[a1, a5, SP[a3, a6], a4, a2, n] - S2[a1, a6, a2, a3, SP[a4, a5], n] - 
    S2[a1, a6, a2, SP[a3, a5], a4, n] - S2[a1, a6, a3, a2, SP[a4, a5], n] + 
    S2[a2, n]*S2[a1, a6, a3, a4, a5, n] + S2[a1, a6, a3, a4, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a6, a3, a5, a4, n] + S2[a1, a6, a3, a5, SP[a2, a4], n] + 
    S2[a1, a6, a3, SP[a2, a5], a4, n] + S2[a2, n]*S2[a1, a6, a5, a3, a4, n] + 
    S2[a1, a6, a5, a3, SP[a2, a4], n] + S2[a1, a6, a5, SP[a2, a3], a4, n] + 
    S2[a1, a6, SP[a2, a5], a3, a4, n] + S2[a1, SP[a2, a5], a3, a4, a6, n] + 
    S2[a1, SP[a2, a5], a3, a6, a4, n] + S2[a1, SP[a2, a5], a6, a3, a4, n] - 
    S2[a1, SP[a3, a6], a4, a5, a2, n] - S2[a1, SP[a3, a6], a5, a2, a4, n] - 
    S2[a1, SP[a3, a6], a5, a4, a2, n] - S2[a1, SP[a5, a6], a2, a3, a4, n] - 
    S2[a1, SP[a5, a6], a3, a2, a4, n] - S2[a1, SP[a5, a6], a3, a4, a2, n] - 
    S2[a2, a1, a3, a4, SP[a5, a6], n] - S2[a2, a1, a3, a6, SP[a4, a5], n] - 
    S2[a2, a1, a3, SP[a4, a5], a6, n] - S2[a2, a1, a3, SP[a5, a6], a4, n] - 
    S2[a2, a1, a6, a3, SP[a4, a5], n] - S2[a2, a1, a6, SP[a3, a5], a4, n] - 
    S2[a2, a1, SP[a3, a5], a4, a6, n] - S2[a2, a1, SP[a3, a5], a6, a4, n] - 
    S2[a2, a1, SP[a5, a6], a3, a4, n] + S2[a6, n]*S2[a2, a5, a1, a3, a4, n] + 
    S2[a2, a5, a1, a3, SP[a4, a6], n] + S2[a2, a5, a1, SP[a3, a6], a4, n] + 
    S2[a2, a5, SP[a1, a6], a3, a4, n] - S2[a2, SP[a1, a5], a3, a4, a6, n] - 
    S2[a2, SP[a1, a5], a3, a6, a4, n] - S2[a2, SP[a1, a5], a6, a3, a4, n] + 
    S2[a2, SP[a5, a6], a1, a3, a4, n] - S2[a2, n]*S2[a6, a5, a1, a3, a4, n] - 
    S2[a6, a5, a1, a3, SP[a2, a4], n] - S2[a6, a5, a1, SP[a2, a3], a4, n] - 
    S2[a6, a5, SP[a1, a2], a3, a4, n] - S2[a6, SP[a2, a5], a1, a3, a4, n] - 
    S2[SP[a1, a6], a3, a4, a5, a2, n] - S2[SP[a1, a6], a3, a5, a2, a4, n] - 
    S2[SP[a1, a6], a3, a5, a4, a2, n] - S2[SP[a1, a6], a5, a2, a3, a4, n] - 
    S2[SP[a1, a6], a5, a3, a2, a4, n] - S2[SP[a1, a6], a5, a3, a4, a2, n] + 
    S2[a6, a1, a3, a4, a5, a2, n] + S2[a6, a1, a3, a5, a2, a4, n] + 
    S2[a6, a1, a3, a5, a4, a2, n] + S2[a6, a1, a5, a2, a3, a4, n] + 
    S2[a6, a1, a5, a3, a2, a4, n] + S2[a6, a1, a5, a3, a4, a2, n] + 
    S2[a6, a5, a1, a2, a3, a4, n] + S2[a6, a5, a1, a3, a2, a4, n] + 
    S2[a6, a5, a1, a3, a4, a2, n] + S2[a6, a5, a2, a1, a3, a4, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a2_, a5_, a6_, a1_, a4_, a3_, n_] :> 
  -(S2[a2, a5, n]*S2[a1, a4, a3, a6, n]) - S2[a2, a5, n]*
     S2[a1, a4, a6, a3, n] + S2[a1, a4, SP[a2, a3], SP[a5, a6], n] + 
    S2[a1, a4, SP[a2, a6], SP[a3, a5], n] - S2[a2, a5, n]*
     S2[a1, a6, a4, a3, n] + S2[a1, a6, SP[a2, a4], SP[a3, a5], n] + 
    S2[a1, SP[a2, a4], a3, SP[a5, a6], n] + S2[a1, SP[a2, a4], a6, 
     SP[a3, a5], n] + S2[a1, SP[a2, a4], SP[a3, a5], a6, n] + 
    S2[a1, SP[a2, a4], SP[a5, a6], a3, n] + S2[a1, SP[a2, a6], a4, 
     SP[a3, a5], n] + S2[a1, SP[a2, a6], SP[a4, a5], a3, n] + 
    S2[SP[a1, a2], a4, a3, SP[a5, a6], n] + S2[SP[a1, a2], a4, a6, 
     SP[a3, a5], n] + S2[SP[a1, a2], a4, SP[a3, a5], a6, n] + 
    S2[SP[a1, a2], a4, SP[a5, a6], a3, n] + S2[SP[a1, a2], a6, a4, 
     SP[a3, a5], n] + S2[SP[a1, a2], a6, SP[a4, a5], a3, n] + 
    S2[SP[a1, a2], SP[a4, a5], a3, a6, n] + S2[SP[a1, a2], SP[a4, a5], a6, 
     a3, n] + S2[SP[a1, a2], SP[a5, a6], a4, a3, n] - 
    S2[a1, a2, a4, a3, SP[a5, a6], n] - S2[a1, a2, a4, a6, SP[a3, a5], n] - 
    S2[a1, a2, a4, SP[a3, a5], a6, n] - S2[a1, a2, a4, SP[a5, a6], a3, n] - 
    S2[a1, a2, a6, a4, SP[a3, a5], n] - S2[a1, a2, a6, SP[a4, a5], a3, n] - 
    S2[a1, a2, SP[a4, a5], a3, a6, n] - S2[a1, a2, SP[a4, a5], a6, a3, n] - 
    S2[a1, a2, SP[a5, a6], a4, a3, n] - S2[a1, a4, a2, a3, SP[a5, a6], n] - 
    S2[a1, a4, a2, a6, SP[a3, a5], n] - S2[a1, a4, a2, SP[a3, a5], a6, n] - 
    S2[a1, a4, a2, SP[a5, a6], a3, n] - S2[a1, a4, a3, a2, SP[a5, a6], n] - 
    S2[a6, n]*S2[a1, a4, a3, a5, a2, n] + 
    S2[a2, n]*S2[a1, a4, a3, a5, a6, n] + 
    S2[a2, n]*S2[a1, a4, a3, a6, a5, n] + S2[a1, a4, a3, a6, SP[a2, a5], n] + 
    S2[a1, a4, a3, SP[a2, a5], a6, n] - S2[a1, a4, a3, SP[a5, a6], a2, n] - 
    S2[a6, n]*S2[a1, a4, a5, a2, a3, n] - S2[a1, a4, a5, a2, SP[a3, a6], n] - 
    S2[a6, n]*S2[a1, a4, a5, a3, a2, n] + 
    S2[a2, n]*S2[a1, a4, a5, a3, a6, n] + 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] + S2[a1, a4, a5, a6, SP[a2, a3], n] + 
    S2[a1, a4, a5, SP[a2, a3], a6, n] - S2[a1, a4, a5, SP[a3, a6], a2, n] - 
    S2[a1, a4, a6, a2, SP[a3, a5], n] + S2[a2, n]*S2[a1, a4, a6, a3, a5, n] + 
    S2[a1, a4, a6, a3, SP[a2, a5], n] + S2[a2, n]*S2[a1, a4, a6, a5, a3, n] + 
    S2[a1, a4, a6, a5, SP[a2, a3], n] + S2[a1, a4, a6, SP[a2, a5], a3, n] + 
    S2[a1, a4, SP[a2, a5], a3, a6, n] + S2[a1, a4, SP[a2, a5], a6, a3, n] - 
    S2[a1, a4, SP[a3, a6], a5, a2, n] - S2[a1, a4, SP[a5, a6], a2, a3, n] - 
    S2[a1, a4, SP[a5, a6], a3, a2, n] - S2[a6, n]*S2[a1, a5, a2, a4, a3, n] - 
    S2[a1, a5, a2, a4, SP[a3, a6], n] - S2[a1, a5, a2, SP[a4, a6], a3, n] - 
    S2[a6, n]*S2[a1, a5, a4, a2, a3, n] - S2[a1, a5, a4, a2, SP[a3, a6], n] - 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] + 
    S2[a2, n]*S2[a1, a5, a4, a3, a6, n] + 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] + S2[a1, a5, a4, a6, SP[a2, a3], n] + 
    S2[a1, a5, a4, SP[a2, a3], a6, n] - S2[a1, a5, a4, SP[a3, a6], a2, n] + 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] + S2[a1, a5, a6, a4, SP[a2, a3], n] + 
    S2[a1, a5, a6, SP[a2, a4], a3, n] + S2[a1, a5, SP[a2, a4], a3, a6, n] + 
    S2[a1, a5, SP[a2, a4], a6, a3, n] - S2[a1, a5, SP[a4, a6], a2, a3, n] - 
    S2[a1, a5, SP[a4, a6], a3, a2, n] - S2[a1, a6, a2, a4, SP[a3, a5], n] - 
    S2[a1, a6, a2, SP[a4, a5], a3, n] - S2[a1, a6, a4, a2, SP[a3, a5], n] + 
    S2[a2, n]*S2[a1, a6, a4, a3, a5, n] + S2[a1, a6, a4, a3, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a6, a4, a5, a3, n] + S2[a1, a6, a4, a5, SP[a2, a3], n] + 
    S2[a1, a6, a4, SP[a2, a5], a3, n] + S2[a2, n]*S2[a1, a6, a5, a4, a3, n] + 
    S2[a1, a6, a5, a4, SP[a2, a3], n] + S2[a1, a6, a5, SP[a2, a4], a3, n] + 
    S2[a1, a6, SP[a2, a5], a4, a3, n] + S2[a1, SP[a2, a5], a4, a3, a6, n] + 
    S2[a1, SP[a2, a5], a4, a6, a3, n] + S2[a1, SP[a2, a5], a6, a4, a3, n] - 
    S2[a1, SP[a4, a6], a3, a5, a2, n] - S2[a1, SP[a4, a6], a5, a2, a3, n] - 
    S2[a1, SP[a4, a6], a5, a3, a2, n] - S2[a1, SP[a5, a6], a2, a4, a3, n] - 
    S2[a1, SP[a5, a6], a4, a2, a3, n] - S2[a1, SP[a5, a6], a4, a3, a2, n] - 
    S2[a2, a1, a4, a3, SP[a5, a6], n] - S2[a2, a1, a4, a6, SP[a3, a5], n] - 
    S2[a2, a1, a4, SP[a3, a5], a6, n] - S2[a2, a1, a4, SP[a5, a6], a3, n] - 
    S2[a2, a1, a6, a4, SP[a3, a5], n] - S2[a2, a1, a6, SP[a4, a5], a3, n] - 
    S2[a2, a1, SP[a4, a5], a3, a6, n] - S2[a2, a1, SP[a4, a5], a6, a3, n] - 
    S2[a2, a1, SP[a5, a6], a4, a3, n] + S2[a6, n]*S2[a2, a5, a1, a4, a3, n] + 
    S2[a2, a5, a1, a4, SP[a3, a6], n] + S2[a2, a5, a1, SP[a4, a6], a3, n] + 
    S2[a2, a5, SP[a1, a6], a4, a3, n] - S2[a2, SP[a1, a5], a4, a3, a6, n] - 
    S2[a2, SP[a1, a5], a4, a6, a3, n] - S2[a2, SP[a1, a5], a6, a4, a3, n] + 
    S2[a2, SP[a5, a6], a1, a4, a3, n] - S2[a2, n]*S2[a6, a5, a1, a4, a3, n] - 
    S2[a6, a5, a1, a4, SP[a2, a3], n] - S2[a6, a5, a1, SP[a2, a4], a3, n] - 
    S2[a6, a5, SP[a1, a2], a4, a3, n] - S2[a6, SP[a2, a5], a1, a4, a3, n] - 
    S2[SP[a1, a6], a4, a3, a5, a2, n] - S2[SP[a1, a6], a4, a5, a2, a3, n] - 
    S2[SP[a1, a6], a4, a5, a3, a2, n] - S2[SP[a1, a6], a5, a2, a4, a3, n] - 
    S2[SP[a1, a6], a5, a4, a2, a3, n] - S2[SP[a1, a6], a5, a4, a3, a2, n] + 
    S2[a6, a1, a4, a3, a5, a2, n] + S2[a6, a1, a4, a5, a2, a3, n] + 
    S2[a6, a1, a4, a5, a3, a2, n] + S2[a6, a1, a5, a2, a4, a3, n] + 
    S2[a6, a1, a5, a4, a2, a3, n] + S2[a6, a1, a5, a4, a3, a2, n] + 
    S2[a6, a5, a1, a2, a4, a3, n] + S2[a6, a5, a1, a4, a2, a3, n] + 
    S2[a6, a5, a1, a4, a3, a2, n] + S2[a6, a5, a2, a1, a4, a3, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a2_, a5_, a6_, a3_, a1_, a4_, n_] :> 
  S2[a2, a5, n]*S2[a1, a3, a4, a6, n] + S2[a2, a5, n]*S2[a1, a3, a6, a4, n] - 
    S2[a1, a3, SP[a2, a4], SP[a5, a6], n] - S2[a1, a3, SP[a2, a6], 
     SP[a4, a5], n] + S2[a2, a5, n]*S2[a1, a4, a3, a6, n] - 
    S2[a1, a4, SP[a2, a3], SP[a5, a6], n] - S2[a1, SP[a2, a3], a4, 
     SP[a5, a6], n] - S2[a1, SP[a2, a3], a6, SP[a4, a5], n] - 
    S2[a1, SP[a2, a3], SP[a4, a5], a6, n] - S2[a1, SP[a2, a3], SP[a5, a6], 
     a4, n] - S2[a1, SP[a2, a4], a3, SP[a5, a6], n] - 
    S2[a1, SP[a2, a4], SP[a3, a5], a6, n] + S2[a1, a4, n]*
     S2[a2, a5, a6, a3, n] - S2[a2, a5, SP[a1, a6], SP[a3, a4], n] + 
    S2[a1, a4, n]*S2[a2, a6, a3, a5, n] + S2[a1, a4, n]*
     S2[a2, a6, a5, a3, n] - S2[a2, a6, SP[a1, a3], SP[a4, a5], n] - 
    S2[a2, a6, SP[a1, a5], SP[a3, a4], n] - S2[a2, SP[a1, a5], a6, 
     SP[a3, a4], n] - S2[a2, SP[a1, a5], SP[a4, a6], a3, n] - 
    S2[a2, SP[a1, a6], a3, SP[a4, a5], n] - S2[a2, SP[a1, a6], a5, 
     SP[a3, a4], n] - S2[a2, SP[a1, a6], SP[a3, a4], a5, n] - 
    S2[a2, SP[a1, a6], SP[a4, a5], a3, n] - S2[a1, a4, n]*
     S2[a3, a6, a2, a5, n] + S2[a3, a6, SP[a1, a2], SP[a4, a5], n] + 
    S2[a3, SP[a1, a6], a2, SP[a4, a5], n] + S2[a3, SP[a1, a6], SP[a2, a4], 
     a5, n] - S2[SP[a1, a2], a3, a4, SP[a5, a6], n] - 
    S2[SP[a1, a2], a3, a6, SP[a4, a5], n] - S2[SP[a1, a2], a3, SP[a4, a5], 
     a6, n] - S2[SP[a1, a2], a3, SP[a5, a6], a4, n] - 
    S2[SP[a1, a2], a4, a3, SP[a5, a6], n] - S2[SP[a1, a2], a4, SP[a3, a5], 
     a6, n] - S2[SP[a1, a2], a5, a6, SP[a3, a4], n] - 
    S2[SP[a1, a2], a5, SP[a4, a6], a3, n] - S2[SP[a1, a2], a6, a3, 
     SP[a4, a5], n] - S2[SP[a1, a2], a6, a5, SP[a3, a4], n] - 
    S2[SP[a1, a2], a6, SP[a3, a4], a5, n] - S2[SP[a1, a2], a6, SP[a4, a5], 
     a3, n] - S2[SP[a1, a2], SP[a3, a5], a4, a6, n] - 
    S2[SP[a1, a2], SP[a3, a5], a6, a4, n] - S2[SP[a1, a2], SP[a4, a5], a3, 
     a6, n] - S2[SP[a1, a2], SP[a4, a5], a6, a3, n] - 
    S2[SP[a1, a2], SP[a4, a6], a3, a5, n] - S2[SP[a1, a2], SP[a4, a6], a5, 
     a3, n] + S2[SP[a1, a3], a6, a2, SP[a4, a5], n] + 
    S2[SP[a1, a3], a6, SP[a2, a4], a5, n] + S2[SP[a1, a3], SP[a4, a6], a2, 
     a5, n] + S2[a1, a2, a3, a4, SP[a5, a6], n] + 
    S2[a1, a2, a3, a6, SP[a4, a5], n] + S2[a1, a2, a3, SP[a4, a5], a6, n] + 
    S2[a1, a2, a3, SP[a5, a6], a4, n] + S2[a1, a2, a4, a3, SP[a5, a6], n] + 
    S2[a1, a2, a4, SP[a3, a5], a6, n] + S2[a1, a2, a5, a6, SP[a3, a4], n] + 
    S2[a1, a2, a5, SP[a4, a6], a3, n] + S2[a1, a2, a6, a3, SP[a4, a5], n] + 
    S2[a1, a2, a6, a5, SP[a3, a4], n] + S2[a1, a2, a6, SP[a3, a4], a5, n] + 
    S2[a1, a2, a6, SP[a4, a5], a3, n] + S2[a1, a2, SP[a3, a5], a4, a6, n] + 
    S2[a1, a2, SP[a3, a5], a6, a4, n] + S2[a1, a2, SP[a4, a5], a3, a6, n] + 
    S2[a1, a2, SP[a4, a5], a6, a3, n] + S2[a1, a2, SP[a4, a6], a3, a5, n] + 
    S2[a1, a2, SP[a4, a6], a5, a3, n] + S2[a1, a3, a2, a4, SP[a5, a6], n] + 
    S2[a1, a3, a2, a6, SP[a4, a5], n] + S2[a1, a3, a2, SP[a4, a5], a6, n] + 
    S2[a1, a3, a2, SP[a5, a6], a4, n] + S2[a1, a3, a4, a2, SP[a5, a6], n] + 
    S2[a6, n]*S2[a1, a3, a4, a5, a2, n] - 
    S2[a2, n]*S2[a1, a3, a4, a5, a6, n] - 
    S2[a2, n]*S2[a1, a3, a4, a6, a5, n] - S2[a1, a3, a4, a6, SP[a2, a5], n] - 
    S2[a1, a3, a4, SP[a2, a5], a6, n] + S2[a1, a3, a4, SP[a5, a6], a2, n] + 
    S2[a6, n]*S2[a1, a3, a5, a2, a4, n] + S2[a1, a3, a5, a2, SP[a4, a6], n] + 
    S2[a6, n]*S2[a1, a3, a5, a4, a2, n] - 
    S2[a2, n]*S2[a1, a3, a5, a4, a6, n] - 
    S2[a2, n]*S2[a1, a3, a5, a6, a4, n] - S2[a1, a3, a5, a6, SP[a2, a4], n] - 
    S2[a1, a3, a5, SP[a2, a4], a6, n] + S2[a1, a3, a5, SP[a4, a6], a2, n] - 
    S2[a2, n]*S2[a1, a3, a6, a4, a5, n] - S2[a1, a3, a6, a4, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a3, a6, a5, a4, n] - S2[a1, a3, a6, a5, SP[a2, a4], n] - 
    S2[a1, a3, a6, SP[a2, a4], a5, n] - S2[a1, a3, a6, SP[a2, a5], a4, n] - 
    S2[a1, a3, SP[a2, a5], a4, a6, n] - S2[a1, a3, SP[a2, a5], a6, a4, n] - 
    S2[a1, a3, SP[a4, a6], a2, a5, n] + S2[a1, a3, SP[a4, a6], a5, a2, n] + 
    S2[a1, a3, SP[a5, a6], a2, a4, n] + S2[a1, a3, SP[a5, a6], a4, a2, n] + 
    S2[a1, a4, a2, a3, SP[a5, a6], n] + S2[a1, a4, a2, SP[a3, a5], a6, n] + 
    S2[a1, a4, a3, a2, SP[a5, a6], n] + S2[a6, n]*S2[a1, a4, a3, a5, a2, n] - 
    S2[a2, n]*S2[a1, a4, a3, a5, a6, n] - 
    S2[a2, n]*S2[a1, a4, a3, a6, a5, n] - S2[a1, a4, a3, a6, SP[a2, a5], n] - 
    S2[a1, a4, a3, SP[a2, a5], a6, n] + S2[a1, a4, a3, SP[a5, a6], a2, n] + 
    S2[a6, n]*S2[a1, a4, a5, a2, a3, n] + S2[a1, a4, a5, a2, SP[a3, a6], n] + 
    S2[a6, n]*S2[a1, a4, a5, a3, a2, n] - 
    S2[a2, n]*S2[a1, a4, a5, a3, a6, n] - 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] - S2[a1, a4, a5, a6, SP[a2, a3], n] - 
    S2[a1, a4, a5, SP[a2, a3], a6, n] + S2[a1, a4, a5, SP[a3, a6], a2, n] + 
    S2[a3, n]*S2[a1, a4, a6, a2, a5, n] + S2[a1, a4, a6, a2, SP[a3, a5], n] - 
    S2[a2, n]*S2[a1, a4, a6, a3, a5, n] - S2[a1, a4, a6, a3, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a4, a6, a5, a3, n] - S2[a1, a4, a6, a5, SP[a2, a3], n] - 
    S2[a1, a4, a6, SP[a2, a5], a3, n] - S2[a1, a4, SP[a2, a5], a3, a6, n] - 
    S2[a1, a4, SP[a2, a5], a6, a3, n] - S2[a1, a4, SP[a2, a6], a3, a5, n] - 
    S2[a1, a4, SP[a2, a6], a5, a3, n] + S2[a1, a4, SP[a3, a6], a2, a5, n] + 
    S2[a1, a4, SP[a3, a6], a5, a2, n] + S2[a1, a4, SP[a5, a6], a2, a3, n] + 
    S2[a1, a4, SP[a5, a6], a3, a2, n] + S2[a6, n]*S2[a1, a5, a2, a3, a4, n] + 
    S2[a1, a5, a2, a3, SP[a4, a6], n] + S2[a6, n]*S2[a1, a5, a2, a4, a3, n] + 
    S2[a1, a5, a2, a4, SP[a3, a6], n] + S2[a1, a5, a2, SP[a3, a6], a4, n] + 
    S2[a1, a5, a2, SP[a4, a6], a3, n] + S2[a6, n]*S2[a1, a5, a3, a2, a4, n] + 
    S2[a1, a5, a3, a2, SP[a4, a6], n] + S2[a6, n]*S2[a1, a5, a3, a4, a2, n] - 
    S2[a2, n]*S2[a1, a5, a3, a4, a6, n] - 
    S2[a2, n]*S2[a1, a5, a3, a6, a4, n] - S2[a1, a5, a3, a6, SP[a2, a4], n] - 
    S2[a1, a5, a3, SP[a2, a4], a6, n] + S2[a1, a5, a3, SP[a4, a6], a2, n] + 
    S2[a6, n]*S2[a1, a5, a4, a2, a3, n] + S2[a1, a5, a4, a2, SP[a3, a6], n] + 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] - 
    S2[a2, n]*S2[a1, a5, a4, a3, a6, n] - 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] - S2[a1, a5, a4, a6, SP[a2, a3], n] - 
    S2[a1, a5, a4, SP[a2, a3], a6, n] + S2[a1, a5, a4, SP[a3, a6], a2, n] - 
    S2[a2, n]*S2[a1, a5, a6, a3, a4, n] - S2[a1, a5, a6, a3, SP[a2, a4], n] - 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] - S2[a1, a5, a6, a4, SP[a2, a3], n] - 
    S2[a1, a5, a6, SP[a2, a3], a4, n] - S2[a1, a5, a6, SP[a2, a4], a3, n] - 
    S2[a1, a5, SP[a2, a3], a4, a6, n] - S2[a1, a5, SP[a2, a3], a6, a4, n] - 
    S2[a1, a5, SP[a2, a4], a3, a6, n] - S2[a1, a5, SP[a2, a4], a6, a3, n] + 
    S2[a1, a5, SP[a3, a6], a2, a4, n] + S2[a1, a5, SP[a3, a6], a4, a2, n] + 
    S2[a1, a5, SP[a4, a6], a2, a3, n] + S2[a1, a5, SP[a4, a6], a3, a2, n] + 
    S2[a3, n]*S2[a1, a6, a2, a4, a5, n] + S2[a1, a6, a2, a4, SP[a3, a5], n] + 
    S2[a3, n]*S2[a1, a6, a2, a5, a4, n] + S2[a1, a6, a2, a5, SP[a3, a4], n] + 
    S2[a1, a6, a2, SP[a3, a4], a5, n] + S2[a1, a6, a2, SP[a3, a5], a4, n] - 
    S2[a2, n]*S2[a1, a6, a3, a4, a5, n] - S2[a1, a6, a3, a4, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a6, a3, a5, a4, n] - S2[a1, a6, a3, a5, SP[a2, a4], n] - 
    S2[a1, a6, a3, SP[a2, a4], a5, n] - S2[a1, a6, a3, SP[a2, a5], a4, n] + 
    S2[a3, n]*S2[a1, a6, a4, a2, a5, n] + S2[a1, a6, a4, a2, SP[a3, a5], n] - 
    S2[a2, n]*S2[a1, a6, a4, a3, a5, n] - S2[a1, a6, a4, a3, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a6, a4, a5, a3, n] - S2[a1, a6, a4, a5, SP[a2, a3], n] - 
    S2[a1, a6, a4, SP[a2, a5], a3, n] - S2[a2, n]*S2[a1, a6, a5, a3, a4, n] - 
    S2[a1, a6, a5, a3, SP[a2, a4], n] - S2[a2, n]*S2[a1, a6, a5, a4, a3, n] - 
    S2[a1, a6, a5, a4, SP[a2, a3], n] - S2[a1, a6, a5, SP[a2, a3], a4, n] - 
    S2[a1, a6, a5, SP[a2, a4], a3, n] - S2[a1, a6, SP[a2, a4], a3, a5, n] - 
    S2[a1, a6, SP[a2, a4], a5, a3, n] - S2[a1, a6, SP[a2, a5], a3, a4, n] - 
    S2[a1, a6, SP[a2, a5], a4, a3, n] + S2[a1, a6, SP[a3, a4], a2, a5, n] - 
    S2[a1, SP[a2, a5], a3, a4, a6, n] - S2[a1, SP[a2, a5], a3, a6, a4, n] - 
    S2[a1, SP[a2, a5], a4, a3, a6, n] - S2[a1, SP[a2, a5], a4, a6, a3, n] - 
    S2[a1, SP[a2, a5], a6, a3, a4, n] - S2[a1, SP[a2, a5], a6, a4, a3, n] - 
    S2[a1, SP[a2, a6], a3, a4, a5, n] - S2[a1, SP[a2, a6], a3, a5, a4, n] - 
    S2[a1, SP[a2, a6], a4, a3, a5, n] - S2[a1, SP[a2, a6], a4, a5, a3, n] - 
    S2[a1, SP[a2, a6], a5, a3, a4, n] - S2[a1, SP[a2, a6], a5, a4, a3, n] + 
    S2[a1, SP[a3, a6], a2, a4, a5, n] + S2[a1, SP[a3, a6], a2, a5, a4, n] + 
    S2[a1, SP[a3, a6], a4, a2, a5, n] + S2[a1, SP[a3, a6], a4, a5, a2, n] + 
    S2[a1, SP[a3, a6], a5, a2, a4, n] + S2[a1, SP[a3, a6], a5, a4, a2, n] + 
    S2[a1, SP[a4, a6], a3, a5, a2, n] + S2[a1, SP[a4, a6], a5, a2, a3, n] + 
    S2[a1, SP[a4, a6], a5, a3, a2, n] + S2[a1, SP[a5, a6], a2, a3, a4, n] + 
    S2[a1, SP[a5, a6], a2, a4, a3, n] + S2[a1, SP[a5, a6], a3, a2, a4, n] + 
    S2[a1, SP[a5, a6], a3, a4, a2, n] + S2[a1, SP[a5, a6], a4, a2, a3, n] + 
    S2[a1, SP[a5, a6], a4, a3, a2, n] + S2[a2, a1, a3, a4, SP[a5, a6], n] + 
    S2[a2, a1, a3, a6, SP[a4, a5], n] + S2[a2, a1, a3, SP[a4, a5], a6, n] + 
    S2[a2, a1, a3, SP[a5, a6], a4, n] + S2[a2, a1, a4, a3, SP[a5, a6], n] + 
    S2[a2, a1, a4, SP[a3, a5], a6, n] + S2[a2, a1, a5, a6, SP[a3, a4], n] + 
    S2[a2, a1, a5, SP[a4, a6], a3, n] + S2[a2, a1, a6, a3, SP[a4, a5], n] + 
    S2[a2, a1, a6, a5, SP[a3, a4], n] + S2[a2, a1, a6, SP[a3, a4], a5, n] + 
    S2[a2, a1, a6, SP[a4, a5], a3, n] + S2[a2, a1, SP[a3, a5], a4, a6, n] + 
    S2[a2, a1, SP[a3, a5], a6, a4, n] + S2[a2, a1, SP[a4, a5], a3, a6, n] + 
    S2[a2, a1, SP[a4, a5], a6, a3, n] + S2[a2, a1, SP[a4, a6], a3, a5, n] + 
    S2[a2, a1, SP[a4, a6], a5, a3, n] - S2[a6, n]*S2[a2, a5, a1, a3, a4, n] - 
    S2[a2, a5, a1, a3, SP[a4, a6], n] - S2[a6, n]*S2[a2, a5, a1, a4, a3, n] - 
    S2[a2, a5, a1, a4, SP[a3, a6], n] + S2[a2, a5, a1, a6, SP[a3, a4], n] - 
    S2[a2, a5, a1, SP[a3, a6], a4, n] + S2[a2, a5, a6, a1, SP[a3, a4], n] + 
    S2[a2, a5, a6, SP[a1, a3], a4, n] + S2[a2, a6, a1, a3, SP[a4, a5], n] - 
    S2[a3, n]*S2[a2, a6, a1, a4, a5, n] - S2[a2, a6, a1, a4, SP[a3, a5], n] - 
    S2[a3, n]*S2[a2, a6, a1, a5, a4, n] - S2[a2, a6, a1, SP[a3, a5], a4, n] + 
    S2[a2, a6, a1, SP[a4, a5], a3, n] + S2[a2, a6, a3, a1, SP[a4, a5], n] + 
    S2[a2, a6, a3, SP[a1, a5], a4, n] + S2[a2, a6, a5, a1, SP[a3, a4], n] + 
    S2[a2, a6, a5, SP[a1, a3], a4, n] + S2[a2, a6, SP[a1, a5], a3, a4, n] + 
    S2[a2, a6, SP[a1, a5], a4, a3, n] + S2[a2, SP[a1, a5], a3, a4, a6, n] + 
    S2[a2, SP[a1, a5], a3, a6, a4, n] + S2[a2, SP[a1, a5], a4, a3, a6, n] + 
    S2[a2, SP[a1, a5], a4, a6, a3, n] + S2[a2, SP[a1, a5], a6, a3, a4, n] + 
    S2[a2, SP[a1, a5], a6, a4, a3, n] + S2[a2, SP[a1, a6], a3, a4, a5, n] + 
    S2[a2, SP[a1, a6], a3, a5, a4, n] + S2[a2, SP[a1, a6], a4, a3, a5, n] + 
    S2[a2, SP[a1, a6], a4, a5, a3, n] + S2[a2, SP[a1, a6], a5, a3, a4, n] + 
    S2[a2, SP[a1, a6], a5, a4, a3, n] - S2[a2, SP[a3, a6], a1, a4, a5, n] - 
    S2[a2, SP[a3, a6], a1, a5, a4, n] - S2[a2, SP[a5, a6], a1, a3, a4, n] - 
    S2[a2, SP[a5, a6], a1, a4, a3, n] - S2[a3, a1, a6, a2, SP[a4, a5], n] - 
    S2[a3, a1, a6, SP[a2, a4], a5, n] - S2[a3, a1, SP[a4, a6], a2, a5, n] - 
    S2[a3, a6, a1, a2, SP[a4, a5], n] + S2[a2, n]*S2[a3, a6, a1, a4, a5, n] + 
    S2[a3, a6, a1, a4, SP[a2, a5], n] + S2[a2, n]*S2[a3, a6, a1, a5, a4, n] + 
    S2[a3, a6, a1, a5, SP[a2, a4], n] + S2[a3, a6, a1, SP[a2, a5], a4, n] - 
    S2[a3, a6, a2, a1, SP[a4, a5], n] - S2[a3, a6, a2, SP[a1, a5], a4, n] - 
    S2[a3, SP[a1, a6], a2, a4, a5, n] - S2[a3, SP[a1, a6], a2, a5, a4, n] - 
    S2[a3, SP[a1, a6], a4, a2, a5, n] + S2[a3, SP[a2, a6], a1, a4, a5, n] + 
    S2[a3, SP[a2, a6], a1, a5, a4, n] - S2[a3, n]*S2[a6, a1, a4, a5, a2, n] - 
    S2[a6, a1, a4, a5, SP[a2, a3], n] - S2[a6, a1, a4, SP[a3, a5], a2, n] - 
    S2[a3, n]*S2[a6, a1, a5, a2, a4, n] - S2[a6, a1, a5, a2, SP[a3, a4], n] - 
    S2[a3, n]*S2[a6, a1, a5, a4, a2, n] - S2[a6, a1, a5, a4, SP[a2, a3], n] - 
    S2[a6, a1, a5, SP[a2, a3], a4, n] - S2[a6, a1, a5, SP[a3, a4], a2, n] - 
    S2[a6, a1, SP[a3, a4], a5, a2, n] - S2[a6, a1, SP[a3, a5], a2, a4, n] - 
    S2[a6, a1, SP[a3, a5], a4, a2, n] + S2[a3, n]*S2[a6, a2, a5, a1, a4, n] + 
    S2[a6, a2, a5, a1, SP[a3, a4], n] + S2[a6, a2, a5, SP[a1, a3], a4, n] + 
    S2[a6, a2, SP[a3, a5], a1, a4, n] - S2[a2, n]*S2[a6, a3, a5, a1, a4, n] - 
    S2[a6, a3, a5, a1, SP[a2, a4], n] - S2[a6, a3, a5, SP[a1, a2], a4, n] - 
    S2[a6, a3, SP[a2, a5], a1, a4, n] - S2[a2, n]*S2[a6, a5, a3, a1, a4, n] - 
    S2[a6, a5, a3, a1, SP[a2, a4], n] - S2[a6, a5, a3, SP[a1, a2], a4, n] - 
    S2[a6, a5, SP[a2, a3], a1, a4, n] - S2[a6, SP[a1, a3], a4, a5, a2, n] - 
    S2[a6, SP[a1, a3], a5, a2, a4, n] - S2[a6, SP[a1, a3], a5, a4, a2, n] - 
    S2[a6, SP[a2, a5], a3, a1, a4, n] + S2[SP[a1, a6], a3, a4, a5, a2, n] + 
    S2[SP[a1, a6], a3, a5, a2, a4, n] + S2[SP[a1, a6], a3, a5, a4, a2, n] + 
    S2[SP[a1, a6], a4, a3, a5, a2, n] + S2[SP[a1, a6], a4, a5, a2, a3, n] + 
    S2[SP[a1, a6], a4, a5, a3, a2, n] + S2[SP[a1, a6], a5, a2, a3, a4, n] + 
    S2[SP[a1, a6], a5, a2, a4, a3, n] + S2[SP[a1, a6], a5, a3, a2, a4, n] + 
    S2[SP[a1, a6], a5, a3, a4, a2, n] + S2[SP[a1, a6], a5, a4, a2, a3, n] + 
    S2[SP[a1, a6], a5, a4, a3, a2, n] - S2[SP[a2, a6], a3, a5, a1, a4, n] - 
    S2[SP[a2, a6], a5, a1, a3, a4, n] - S2[SP[a2, a6], a5, a1, a4, a3, n] - 
    S2[SP[a2, a6], a5, a3, a1, a4, n] - S2[SP[a3, a6], a1, a4, a5, a2, n] - 
    S2[SP[a3, a6], a1, a5, a2, a4, n] - S2[SP[a3, a6], a1, a5, a4, a2, n] + 
    S2[SP[a3, a6], a2, a5, a1, a4, n] + S2[a6, a3, a1, a4, a5, a2, n] + 
    S2[a6, a3, a1, a5, a2, a4, n] + S2[a6, a3, a1, a5, a4, a2, n] + 
    S2[a6, a3, a5, a1, a2, a4, n] + S2[a6, a3, a5, a1, a4, a2, n] + 
    S2[a6, a3, a5, a2, a1, a4, n] + S2[a6, a5, a2, a3, a1, a4, n] + 
    S2[a6, a5, a3, a1, a2, a4, n] + S2[a6, a5, a3, a1, a4, a2, n] + 
    S2[a6, a5, a3, a2, a1, a4, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a2_, a5_, a6_, a3_, a4_, a1_, n_] :> 
  -(S2[a2, a5, n]*S2[a1, a4, a3, a6, n]) + S2[a1, a4, SP[a2, a3], SP[a5, a6], 
     n] + S2[a1, SP[a2, a4], a3, SP[a5, a6], n] + 
    S2[a1, SP[a2, a4], SP[a3, a5], a6, n] - S2[a1, a4, n]*
     S2[a2, a5, a6, a3, n] + S2[a2, a5, SP[a1, a6], SP[a3, a4], n] - 
    S2[a1, a4, n]*S2[a2, a6, a3, a5, n] - S2[a1, a4, n]*
     S2[a2, a6, a5, a3, n] + S2[a2, a6, SP[a1, a3], SP[a4, a5], n] + 
    S2[a2, a6, SP[a1, a5], SP[a3, a4], n] + S2[a2, SP[a1, a5], a6, 
     SP[a3, a4], n] + S2[a2, SP[a1, a5], SP[a4, a6], a3, n] + 
    S2[a2, SP[a1, a6], a3, SP[a4, a5], n] + S2[a2, SP[a1, a6], a5, 
     SP[a3, a4], n] + S2[a2, SP[a1, a6], SP[a3, a4], a5, n] + 
    S2[a2, SP[a1, a6], SP[a4, a5], a3, n] + S2[a1, a4, n]*
     S2[a3, a6, a2, a5, n] - S2[a3, a6, SP[a1, a2], SP[a4, a5], n] - 
    S2[a3, SP[a1, a6], a2, SP[a4, a5], n] - S2[a3, SP[a1, a6], SP[a2, a4], 
     a5, n] + S2[SP[a1, a2], a4, a3, SP[a5, a6], n] + 
    S2[SP[a1, a2], a4, SP[a3, a5], a6, n] + S2[SP[a1, a2], a5, a6, 
     SP[a3, a4], n] + S2[SP[a1, a2], a5, SP[a4, a6], a3, n] + 
    S2[SP[a1, a2], a6, a3, SP[a4, a5], n] + S2[SP[a1, a2], a6, a5, 
     SP[a3, a4], n] + S2[SP[a1, a2], a6, SP[a3, a4], a5, n] + 
    S2[SP[a1, a2], a6, SP[a4, a5], a3, n] + S2[SP[a1, a2], SP[a4, a5], a3, 
     a6, n] + S2[SP[a1, a2], SP[a4, a5], a6, a3, n] + 
    S2[SP[a1, a2], SP[a4, a6], a3, a5, n] + S2[SP[a1, a2], SP[a4, a6], a5, 
     a3, n] - S2[SP[a1, a3], a6, a2, SP[a4, a5], n] - 
    S2[SP[a1, a3], a6, SP[a2, a4], a5, n] - S2[SP[a1, a3], SP[a4, a6], a2, 
     a5, n] - S2[a1, a2, a4, a3, SP[a5, a6], n] - S2[a1, a2, a4, SP[a3, a5], 
     a6, n] - S2[a1, a2, a5, a6, SP[a3, a4], n] - S2[a1, a2, a5, SP[a4, a6], 
     a3, n] - S2[a1, a2, a6, a3, SP[a4, a5], n] - 
    S2[a1, a2, a6, a5, SP[a3, a4], n] - S2[a1, a2, a6, SP[a3, a4], a5, n] - 
    S2[a1, a2, a6, SP[a4, a5], a3, n] - S2[a1, a2, SP[a4, a5], a3, a6, n] - 
    S2[a1, a2, SP[a4, a5], a6, a3, n] - S2[a1, a2, SP[a4, a6], a3, a5, n] - 
    S2[a1, a2, SP[a4, a6], a5, a3, n] + S2[a1, a3, a6, a2, SP[a4, a5], n] + 
    S2[a1, a3, a6, SP[a2, a4], a5, n] + S2[a1, a3, SP[a4, a6], a2, a5, n] - 
    S2[a1, a4, a2, a3, SP[a5, a6], n] - S2[a1, a4, a2, SP[a3, a5], a6, n] - 
    S2[a1, a4, a3, a2, SP[a5, a6], n] - S2[a6, n]*S2[a1, a4, a3, a5, a2, n] + 
    S2[a2, n]*S2[a1, a4, a3, a5, a6, n] + 
    S2[a2, n]*S2[a1, a4, a3, a6, a5, n] + S2[a1, a4, a3, a6, SP[a2, a5], n] + 
    S2[a1, a4, a3, SP[a2, a5], a6, n] - S2[a1, a4, a3, SP[a5, a6], a2, n] - 
    S2[a6, n]*S2[a1, a4, a5, a2, a3, n] - S2[a1, a4, a5, a2, SP[a3, a6], n] - 
    S2[a6, n]*S2[a1, a4, a5, a3, a2, n] + 
    S2[a2, n]*S2[a1, a4, a5, a3, a6, n] + 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] + S2[a1, a4, a5, a6, SP[a2, a3], n] + 
    S2[a1, a4, a5, SP[a2, a3], a6, n] - S2[a1, a4, a5, SP[a3, a6], a2, n] - 
    S2[a3, n]*S2[a1, a4, a6, a2, a5, n] - S2[a1, a4, a6, a2, SP[a3, a5], n] + 
    S2[a2, n]*S2[a1, a4, a6, a3, a5, n] + S2[a1, a4, a6, a3, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a4, a6, a5, a3, n] + S2[a1, a4, a6, a5, SP[a2, a3], n] + 
    S2[a1, a4, a6, SP[a2, a5], a3, n] + S2[a1, a4, SP[a2, a5], a3, a6, n] + 
    S2[a1, a4, SP[a2, a5], a6, a3, n] + S2[a1, a4, SP[a2, a6], a3, a5, n] + 
    S2[a1, a4, SP[a2, a6], a5, a3, n] - S2[a1, a4, SP[a3, a6], a2, a5, n] - 
    S2[a1, a4, SP[a3, a6], a5, a2, n] - S2[a1, a4, SP[a5, a6], a2, a3, n] - 
    S2[a1, a4, SP[a5, a6], a3, a2, n] - S2[a6, n]*S2[a1, a5, a2, a4, a3, n] - 
    S2[a1, a5, a2, a4, SP[a3, a6], n] - S2[a1, a5, a2, SP[a4, a6], a3, n] - 
    S2[a6, n]*S2[a1, a5, a4, a2, a3, n] - S2[a1, a5, a4, a2, SP[a3, a6], n] - 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] + 
    S2[a2, n]*S2[a1, a5, a4, a3, a6, n] + 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] + S2[a1, a5, a4, a6, SP[a2, a3], n] + 
    S2[a1, a5, a4, SP[a2, a3], a6, n] - S2[a1, a5, a4, SP[a3, a6], a2, n] + 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] + S2[a1, a5, a6, a4, SP[a2, a3], n] + 
    S2[a1, a5, a6, SP[a2, a4], a3, n] + S2[a1, a5, SP[a2, a4], a3, a6, n] + 
    S2[a1, a5, SP[a2, a4], a6, a3, n] - S2[a1, a5, SP[a4, a6], a2, a3, n] - 
    S2[a1, a5, SP[a4, a6], a3, a2, n] - S2[a3, n]*S2[a1, a6, a2, a4, a5, n] - 
    S2[a1, a6, a2, a4, SP[a3, a5], n] - S2[a3, n]*S2[a1, a6, a2, a5, a4, n] - 
    S2[a1, a6, a2, a5, SP[a3, a4], n] - S2[a1, a6, a2, SP[a3, a4], a5, n] - 
    S2[a1, a6, a2, SP[a3, a5], a4, n] + S2[a2, n]*S2[a1, a6, a3, a4, a5, n] + 
    S2[a1, a6, a3, a4, SP[a2, a5], n] + S2[a2, n]*S2[a1, a6, a3, a5, a4, n] + 
    S2[a1, a6, a3, a5, SP[a2, a4], n] + S2[a1, a6, a3, SP[a2, a4], a5, n] + 
    S2[a1, a6, a3, SP[a2, a5], a4, n] - S2[a3, n]*S2[a1, a6, a4, a2, a5, n] - 
    S2[a1, a6, a4, a2, SP[a3, a5], n] + S2[a2, n]*S2[a1, a6, a4, a3, a5, n] + 
    S2[a1, a6, a4, a3, SP[a2, a5], n] + S2[a2, n]*S2[a1, a6, a4, a5, a3, n] + 
    S2[a1, a6, a4, a5, SP[a2, a3], n] + S2[a1, a6, a4, SP[a2, a5], a3, n] + 
    S2[a2, n]*S2[a1, a6, a5, a3, a4, n] + S2[a1, a6, a5, a3, SP[a2, a4], n] + 
    S2[a2, n]*S2[a1, a6, a5, a4, a3, n] + S2[a1, a6, a5, a4, SP[a2, a3], n] + 
    S2[a1, a6, a5, SP[a2, a3], a4, n] + S2[a1, a6, a5, SP[a2, a4], a3, n] + 
    S2[a1, a6, SP[a2, a4], a3, a5, n] + S2[a1, a6, SP[a2, a4], a5, a3, n] + 
    S2[a1, a6, SP[a2, a5], a3, a4, n] + S2[a1, a6, SP[a2, a5], a4, a3, n] - 
    S2[a1, a6, SP[a3, a4], a2, a5, n] + S2[a1, SP[a2, a5], a4, a3, a6, n] + 
    S2[a1, SP[a2, a5], a4, a6, a3, n] + S2[a1, SP[a2, a5], a6, a4, a3, n] + 
    S2[a1, SP[a2, a6], a3, a4, a5, n] + S2[a1, SP[a2, a6], a3, a5, a4, n] + 
    S2[a1, SP[a2, a6], a4, a3, a5, n] + S2[a1, SP[a2, a6], a4, a5, a3, n] + 
    S2[a1, SP[a2, a6], a5, a3, a4, n] + S2[a1, SP[a2, a6], a5, a4, a3, n] - 
    S2[a1, SP[a3, a6], a2, a4, a5, n] - S2[a1, SP[a3, a6], a2, a5, a4, n] - 
    S2[a1, SP[a3, a6], a4, a2, a5, n] - S2[a1, SP[a4, a6], a3, a5, a2, n] - 
    S2[a1, SP[a4, a6], a5, a2, a3, n] - S2[a1, SP[a4, a6], a5, a3, a2, n] - 
    S2[a1, SP[a5, a6], a2, a4, a3, n] - S2[a1, SP[a5, a6], a4, a2, a3, n] - 
    S2[a1, SP[a5, a6], a4, a3, a2, n] - S2[a2, a1, a4, a3, SP[a5, a6], n] - 
    S2[a2, a1, a4, SP[a3, a5], a6, n] - S2[a2, a1, a5, a6, SP[a3, a4], n] - 
    S2[a2, a1, a5, SP[a4, a6], a3, n] - S2[a2, a1, a6, a3, SP[a4, a5], n] - 
    S2[a2, a1, a6, a5, SP[a3, a4], n] - S2[a2, a1, a6, SP[a3, a4], a5, n] - 
    S2[a2, a1, a6, SP[a4, a5], a3, n] - S2[a2, a1, SP[a4, a5], a3, a6, n] - 
    S2[a2, a1, SP[a4, a5], a6, a3, n] - S2[a2, a1, SP[a4, a6], a3, a5, n] - 
    S2[a2, a1, SP[a4, a6], a5, a3, n] + S2[a6, n]*S2[a2, a5, a1, a4, a3, n] + 
    S2[a2, a5, a1, a4, SP[a3, a6], n] - S2[a2, a5, a1, a6, SP[a3, a4], n] - 
    S2[a2, a5, a6, a1, SP[a3, a4], n] + S2[a1, n]*S2[a2, a5, a6, a3, a4, n] + 
    S2[a2, a5, a6, a3, SP[a1, a4], n] - S2[a2, a6, a1, a3, SP[a4, a5], n] + 
    S2[a3, n]*S2[a2, a6, a1, a4, a5, n] + S2[a2, a6, a1, a4, SP[a3, a5], n] + 
    S2[a3, n]*S2[a2, a6, a1, a5, a4, n] + S2[a2, a6, a1, SP[a3, a5], a4, n] - 
    S2[a2, a6, a1, SP[a4, a5], a3, n] - S2[a2, a6, a3, a1, SP[a4, a5], n] - 
    S2[a2, a6, a3, SP[a1, a5], a4, n] - S2[a2, a6, a5, a1, SP[a3, a4], n] - 
    S2[a2, a6, a5, SP[a1, a3], a4, n] - S2[a2, a6, SP[a1, a5], a3, a4, n] - 
    S2[a2, a6, SP[a1, a5], a4, a3, n] - S2[a2, SP[a1, a5], a4, a3, a6, n] - 
    S2[a2, SP[a1, a5], a4, a6, a3, n] - S2[a2, SP[a1, a5], a6, a4, a3, n] - 
    S2[a2, SP[a1, a6], a3, a4, a5, n] - S2[a2, SP[a1, a6], a3, a5, a4, n] - 
    S2[a2, SP[a1, a6], a4, a3, a5, n] - S2[a2, SP[a1, a6], a4, a5, a3, n] - 
    S2[a2, SP[a1, a6], a5, a3, a4, n] - S2[a2, SP[a1, a6], a5, a4, a3, n] + 
    S2[a2, SP[a3, a6], a1, a4, a5, n] + S2[a2, SP[a3, a6], a1, a5, a4, n] + 
    S2[a2, SP[a5, a6], a1, a4, a3, n] + S2[a3, a1, a6, a2, SP[a4, a5], n] + 
    S2[a3, a1, a6, SP[a2, a4], a5, n] + S2[a3, a1, SP[a4, a6], a2, a5, n] + 
    S2[a3, a6, a1, a2, SP[a4, a5], n] - S2[a2, n]*S2[a3, a6, a1, a4, a5, n] - 
    S2[a3, a6, a1, a4, SP[a2, a5], n] - S2[a2, n]*S2[a3, a6, a1, a5, a4, n] - 
    S2[a3, a6, a1, a5, SP[a2, a4], n] - S2[a3, a6, a1, SP[a2, a5], a4, n] + 
    S2[a3, a6, a2, a1, SP[a4, a5], n] + S2[a3, a6, a2, SP[a1, a5], a4, n] + 
    S2[a3, SP[a1, a6], a2, a4, a5, n] + S2[a3, SP[a1, a6], a2, a5, a4, n] + 
    S2[a3, SP[a1, a6], a4, a2, a5, n] - S2[a3, SP[a2, a6], a1, a4, a5, n] - 
    S2[a3, SP[a2, a6], a1, a5, a4, n] + S2[a3, n]*S2[a6, a1, a4, a5, a2, n] + 
    S2[a6, a1, a4, a5, SP[a2, a3], n] + S2[a6, a1, a4, SP[a3, a5], a2, n] + 
    S2[a3, n]*S2[a6, a1, a5, a2, a4, n] + S2[a6, a1, a5, a2, SP[a3, a4], n] + 
    S2[a3, n]*S2[a6, a1, a5, a4, a2, n] + S2[a6, a1, a5, a4, SP[a2, a3], n] + 
    S2[a6, a1, a5, SP[a2, a3], a4, n] + S2[a6, a1, a5, SP[a3, a4], a2, n] + 
    S2[a6, a1, SP[a3, a4], a5, a2, n] + S2[a6, a1, SP[a3, a5], a2, a4, n] + 
    S2[a6, a1, SP[a3, a5], a4, a2, n] - S2[a3, n]*S2[a6, a2, a5, a1, a4, n] - 
    S2[a6, a2, a5, a1, SP[a3, a4], n] - S2[a6, a2, a5, SP[a1, a3], a4, n] - 
    S2[a6, a2, SP[a3, a5], a1, a4, n] - S2[a1, n]*S2[a6, a3, a4, a5, a2, n] - 
    S2[a6, a3, a4, a5, SP[a1, a2], n] - S2[a6, a3, a4, SP[a1, a5], a2, n] + 
    S2[a2, n]*S2[a6, a3, a5, a1, a4, n] + S2[a6, a3, a5, a1, SP[a2, a4], n] - 
    S2[a1, n]*S2[a6, a3, a5, a2, a4, n] - S2[a6, a3, a5, a2, SP[a1, a4], n] - 
    S2[a1, n]*S2[a6, a3, a5, a4, a2, n] - S2[a6, a3, a5, a4, SP[a1, a2], n] - 
    S2[a6, a3, a5, SP[a1, a4], a2, n] - S2[a6, a3, SP[a1, a4], a5, a2, n] - 
    S2[a6, a3, SP[a1, a5], a2, a4, n] - S2[a6, a3, SP[a1, a5], a4, a2, n] + 
    S2[a6, a3, SP[a2, a5], a1, a4, n] + S2[a2, n]*S2[a6, a5, a1, a3, a4, n] + 
    S2[a6, a5, a1, a3, SP[a2, a4], n] + S2[a6, a5, a1, SP[a2, a3], a4, n] - 
    S2[a1, n]*S2[a6, a5, a2, a3, a4, n] - S2[a6, a5, a2, a3, SP[a1, a4], n] - 
    S2[a6, a5, a2, SP[a1, a3], a4, n] + S2[a2, n]*S2[a6, a5, a3, a1, a4, n] + 
    S2[a6, a5, a3, a1, SP[a2, a4], n] - S2[a1, n]*S2[a6, a5, a3, a2, a4, n] - 
    S2[a6, a5, a3, a2, SP[a1, a4], n] - S2[a1, n]*S2[a6, a5, a3, a4, a2, n] - 
    S2[a6, a5, a3, a4, SP[a1, a2], n] - S2[a6, a5, a3, SP[a1, a4], a2, n] - 
    S2[a6, a5, SP[a1, a3], a2, a4, n] - S2[a6, a5, SP[a1, a3], a4, a2, n] + 
    S2[a6, a5, SP[a2, a3], a1, a4, n] - S2[a6, SP[a1, a5], a2, a3, a4, n] - 
    S2[a6, SP[a1, a5], a3, a2, a4, n] - S2[a6, SP[a1, a5], a3, a4, a2, n] + 
    S2[a6, SP[a2, a5], a1, a3, a4, n] + S2[a6, SP[a2, a5], a3, a1, a4, n] - 
    S2[SP[a1, a6], a3, a4, a5, a2, n] - S2[SP[a1, a6], a3, a5, a2, a4, n] - 
    S2[SP[a1, a6], a3, a5, a4, a2, n] - S2[SP[a1, a6], a4, a3, a5, a2, n] - 
    S2[SP[a1, a6], a4, a5, a2, a3, n] - S2[SP[a1, a6], a4, a5, a3, a2, n] - 
    S2[SP[a1, a6], a5, a2, a3, a4, n] - S2[SP[a1, a6], a5, a2, a4, a3, n] - 
    S2[SP[a1, a6], a5, a3, a2, a4, n] - S2[SP[a1, a6], a5, a3, a4, a2, n] - 
    S2[SP[a1, a6], a5, a4, a2, a3, n] - S2[SP[a1, a6], a5, a4, a3, a2, n] + 
    S2[SP[a2, a6], a3, a5, a1, a4, n] + S2[SP[a2, a6], a5, a1, a3, a4, n] + 
    S2[SP[a2, a6], a5, a1, a4, a3, n] + S2[SP[a2, a6], a5, a3, a1, a4, n] + 
    S2[SP[a3, a6], a1, a4, a5, a2, n] + S2[SP[a3, a6], a1, a5, a2, a4, n] + 
    S2[SP[a3, a6], a1, a5, a4, a2, n] - S2[SP[a3, a6], a2, a5, a1, a4, n] + 
    S2[a6, a3, a4, a1, a5, a2, n] + S2[a6, a3, a4, a5, a1, a2, n] + 
    S2[a6, a3, a4, a5, a2, a1, n] + S2[a6, a3, a5, a2, a4, a1, n] + 
    S2[a6, a3, a5, a4, a1, a2, n] + S2[a6, a3, a5, a4, a2, a1, n] + 
    S2[a6, a5, a2, a3, a4, a1, n] + S2[a6, a5, a3, a2, a4, a1, n] + 
    S2[a6, a5, a3, a4, a1, a2, n] + S2[a6, a5, a3, a4, a2, a1, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a2_, a5_, a6_, a4_, a1_, a3_, n_] :> 
  S2[a2, a5, n]*S2[a1, a3, a4, a6, n] - S2[a1, a3, SP[a2, a4], SP[a5, a6], 
     n] + S2[a2, a5, n]*S2[a1, a4, a3, a6, n] + 
    S2[a2, a5, n]*S2[a1, a4, a6, a3, n] - S2[a1, a4, SP[a2, a3], SP[a5, a6], 
     n] - S2[a1, a4, SP[a2, a6], SP[a3, a5], n] - S2[a1, SP[a2, a3], a4, 
     SP[a5, a6], n] - S2[a1, SP[a2, a3], SP[a4, a5], a6, n] - 
    S2[a1, SP[a2, a4], a3, SP[a5, a6], n] - S2[a1, SP[a2, a4], a6, 
     SP[a3, a5], n] - S2[a1, SP[a2, a4], SP[a3, a5], a6, n] - 
    S2[a1, SP[a2, a4], SP[a5, a6], a3, n] + S2[a1, a3, n]*
     S2[a2, a5, a6, a4, n] - S2[a2, a5, SP[a1, a6], SP[a3, a4], n] + 
    S2[a1, a3, n]*S2[a2, a6, a4, a5, n] + S2[a1, a3, n]*
     S2[a2, a6, a5, a4, n] - S2[a2, a6, SP[a1, a4], SP[a3, a5], n] - 
    S2[a2, a6, SP[a1, a5], SP[a3, a4], n] - S2[a2, SP[a1, a5], a6, 
     SP[a3, a4], n] - S2[a2, SP[a1, a5], SP[a3, a6], a4, n] - 
    S2[a2, SP[a1, a6], a4, SP[a3, a5], n] - S2[a2, SP[a1, a6], a5, 
     SP[a3, a4], n] - S2[a2, SP[a1, a6], SP[a3, a4], a5, n] - 
    S2[a2, SP[a1, a6], SP[a3, a5], a4, n] - S2[a1, a3, n]*
     S2[a4, a6, a2, a5, n] + S2[a4, a6, SP[a1, a2], SP[a3, a5], n] + 
    S2[a4, SP[a1, a6], a2, SP[a3, a5], n] + S2[a4, SP[a1, a6], SP[a2, a3], 
     a5, n] - S2[SP[a1, a2], a3, a4, SP[a5, a6], n] - 
    S2[SP[a1, a2], a3, SP[a4, a5], a6, n] - S2[SP[a1, a2], a4, a3, 
     SP[a5, a6], n] - S2[SP[a1, a2], a4, a6, SP[a3, a5], n] - 
    S2[SP[a1, a2], a4, SP[a3, a5], a6, n] - S2[SP[a1, a2], a4, SP[a5, a6], 
     a3, n] - S2[SP[a1, a2], a5, a6, SP[a3, a4], n] - 
    S2[SP[a1, a2], a5, SP[a3, a6], a4, n] - S2[SP[a1, a2], a6, a4, 
     SP[a3, a5], n] - S2[SP[a1, a2], a6, a5, SP[a3, a4], n] - 
    S2[SP[a1, a2], a6, SP[a3, a4], a5, n] - S2[SP[a1, a2], a6, SP[a3, a5], 
     a4, n] - S2[SP[a1, a2], SP[a3, a5], a4, a6, n] - 
    S2[SP[a1, a2], SP[a3, a5], a6, a4, n] - S2[SP[a1, a2], SP[a3, a6], a4, 
     a5, n] - S2[SP[a1, a2], SP[a3, a6], a5, a4, n] - 
    S2[SP[a1, a2], SP[a4, a5], a3, a6, n] - S2[SP[a1, a2], SP[a4, a5], a6, 
     a3, n] + S2[SP[a1, a4], a6, a2, SP[a3, a5], n] + 
    S2[SP[a1, a4], a6, SP[a2, a3], a5, n] + S2[SP[a1, a4], SP[a3, a6], a2, 
     a5, n] + S2[a1, a2, a3, a4, SP[a5, a6], n] + S2[a1, a2, a3, SP[a4, a5], 
     a6, n] + S2[a1, a2, a4, a3, SP[a5, a6], n] + 
    S2[a1, a2, a4, a6, SP[a3, a5], n] + S2[a1, a2, a4, SP[a3, a5], a6, n] + 
    S2[a1, a2, a4, SP[a5, a6], a3, n] + S2[a1, a2, a5, a6, SP[a3, a4], n] + 
    S2[a1, a2, a5, SP[a3, a6], a4, n] + S2[a1, a2, a6, a4, SP[a3, a5], n] + 
    S2[a1, a2, a6, a5, SP[a3, a4], n] + S2[a1, a2, a6, SP[a3, a4], a5, n] + 
    S2[a1, a2, a6, SP[a3, a5], a4, n] + S2[a1, a2, SP[a3, a5], a4, a6, n] + 
    S2[a1, a2, SP[a3, a5], a6, a4, n] + S2[a1, a2, SP[a3, a6], a4, a5, n] + 
    S2[a1, a2, SP[a3, a6], a5, a4, n] + S2[a1, a2, SP[a4, a5], a3, a6, n] + 
    S2[a1, a2, SP[a4, a5], a6, a3, n] + S2[a1, a3, a2, a4, SP[a5, a6], n] + 
    S2[a1, a3, a2, SP[a4, a5], a6, n] + S2[a1, a3, a4, a2, SP[a5, a6], n] + 
    S2[a6, n]*S2[a1, a3, a4, a5, a2, n] - 
    S2[a2, n]*S2[a1, a3, a4, a5, a6, n] - 
    S2[a2, n]*S2[a1, a3, a4, a6, a5, n] - S2[a1, a3, a4, a6, SP[a2, a5], n] - 
    S2[a1, a3, a4, SP[a2, a5], a6, n] + S2[a1, a3, a4, SP[a5, a6], a2, n] + 
    S2[a6, n]*S2[a1, a3, a5, a2, a4, n] + S2[a1, a3, a5, a2, SP[a4, a6], n] + 
    S2[a6, n]*S2[a1, a3, a5, a4, a2, n] - 
    S2[a2, n]*S2[a1, a3, a5, a4, a6, n] - 
    S2[a2, n]*S2[a1, a3, a5, a6, a4, n] - S2[a1, a3, a5, a6, SP[a2, a4], n] - 
    S2[a1, a3, a5, SP[a2, a4], a6, n] + S2[a1, a3, a5, SP[a4, a6], a2, n] + 
    S2[a4, n]*S2[a1, a3, a6, a2, a5, n] + S2[a1, a3, a6, a2, SP[a4, a5], n] - 
    S2[a2, n]*S2[a1, a3, a6, a4, a5, n] - S2[a1, a3, a6, a4, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a3, a6, a5, a4, n] - S2[a1, a3, a6, a5, SP[a2, a4], n] - 
    S2[a1, a3, a6, SP[a2, a5], a4, n] - S2[a1, a3, SP[a2, a5], a4, a6, n] - 
    S2[a1, a3, SP[a2, a5], a6, a4, n] - S2[a1, a3, SP[a2, a6], a4, a5, n] - 
    S2[a1, a3, SP[a2, a6], a5, a4, n] + S2[a1, a3, SP[a4, a6], a2, a5, n] + 
    S2[a1, a3, SP[a4, a6], a5, a2, n] + S2[a1, a3, SP[a5, a6], a2, a4, n] + 
    S2[a1, a3, SP[a5, a6], a4, a2, n] + S2[a1, a4, a2, a3, SP[a5, a6], n] + 
    S2[a1, a4, a2, a6, SP[a3, a5], n] + S2[a1, a4, a2, SP[a3, a5], a6, n] + 
    S2[a1, a4, a2, SP[a5, a6], a3, n] + S2[a1, a4, a3, a2, SP[a5, a6], n] + 
    S2[a6, n]*S2[a1, a4, a3, a5, a2, n] - 
    S2[a2, n]*S2[a1, a4, a3, a5, a6, n] - 
    S2[a2, n]*S2[a1, a4, a3, a6, a5, n] - S2[a1, a4, a3, a6, SP[a2, a5], n] - 
    S2[a1, a4, a3, SP[a2, a5], a6, n] + S2[a1, a4, a3, SP[a5, a6], a2, n] + 
    S2[a6, n]*S2[a1, a4, a5, a2, a3, n] + S2[a1, a4, a5, a2, SP[a3, a6], n] + 
    S2[a6, n]*S2[a1, a4, a5, a3, a2, n] - 
    S2[a2, n]*S2[a1, a4, a5, a3, a6, n] - 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] - S2[a1, a4, a5, a6, SP[a2, a3], n] - 
    S2[a1, a4, a5, SP[a2, a3], a6, n] + S2[a1, a4, a5, SP[a3, a6], a2, n] - 
    S2[a2, n]*S2[a1, a4, a6, a3, a5, n] - S2[a1, a4, a6, a3, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a4, a6, a5, a3, n] - S2[a1, a4, a6, a5, SP[a2, a3], n] - 
    S2[a1, a4, a6, SP[a2, a3], a5, n] - S2[a1, a4, a6, SP[a2, a5], a3, n] - 
    S2[a1, a4, SP[a2, a5], a3, a6, n] - S2[a1, a4, SP[a2, a5], a6, a3, n] - 
    S2[a1, a4, SP[a3, a6], a2, a5, n] + S2[a1, a4, SP[a3, a6], a5, a2, n] + 
    S2[a1, a4, SP[a5, a6], a2, a3, n] + S2[a1, a4, SP[a5, a6], a3, a2, n] + 
    S2[a6, n]*S2[a1, a5, a2, a3, a4, n] + S2[a1, a5, a2, a3, SP[a4, a6], n] + 
    S2[a6, n]*S2[a1, a5, a2, a4, a3, n] + S2[a1, a5, a2, a4, SP[a3, a6], n] + 
    S2[a1, a5, a2, SP[a3, a6], a4, n] + S2[a1, a5, a2, SP[a4, a6], a3, n] + 
    S2[a6, n]*S2[a1, a5, a3, a2, a4, n] + S2[a1, a5, a3, a2, SP[a4, a6], n] + 
    S2[a6, n]*S2[a1, a5, a3, a4, a2, n] - 
    S2[a2, n]*S2[a1, a5, a3, a4, a6, n] - 
    S2[a2, n]*S2[a1, a5, a3, a6, a4, n] - S2[a1, a5, a3, a6, SP[a2, a4], n] - 
    S2[a1, a5, a3, SP[a2, a4], a6, n] + S2[a1, a5, a3, SP[a4, a6], a2, n] + 
    S2[a6, n]*S2[a1, a5, a4, a2, a3, n] + S2[a1, a5, a4, a2, SP[a3, a6], n] + 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] - 
    S2[a2, n]*S2[a1, a5, a4, a3, a6, n] - 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] - S2[a1, a5, a4, a6, SP[a2, a3], n] - 
    S2[a1, a5, a4, SP[a2, a3], a6, n] + S2[a1, a5, a4, SP[a3, a6], a2, n] - 
    S2[a2, n]*S2[a1, a5, a6, a3, a4, n] - S2[a1, a5, a6, a3, SP[a2, a4], n] - 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] - S2[a1, a5, a6, a4, SP[a2, a3], n] - 
    S2[a1, a5, a6, SP[a2, a3], a4, n] - S2[a1, a5, a6, SP[a2, a4], a3, n] - 
    S2[a1, a5, SP[a2, a3], a4, a6, n] - S2[a1, a5, SP[a2, a3], a6, a4, n] - 
    S2[a1, a5, SP[a2, a4], a3, a6, n] - S2[a1, a5, SP[a2, a4], a6, a3, n] + 
    S2[a1, a5, SP[a3, a6], a2, a4, n] + S2[a1, a5, SP[a3, a6], a4, a2, n] + 
    S2[a1, a5, SP[a4, a6], a2, a3, n] + S2[a1, a5, SP[a4, a6], a3, a2, n] + 
    S2[a4, n]*S2[a1, a6, a2, a3, a5, n] + S2[a1, a6, a2, a3, SP[a4, a5], n] + 
    S2[a4, n]*S2[a1, a6, a2, a5, a3, n] + S2[a1, a6, a2, a5, SP[a3, a4], n] + 
    S2[a1, a6, a2, SP[a3, a4], a5, n] + S2[a1, a6, a2, SP[a4, a5], a3, n] + 
    S2[a4, n]*S2[a1, a6, a3, a2, a5, n] + S2[a1, a6, a3, a2, SP[a4, a5], n] - 
    S2[a2, n]*S2[a1, a6, a3, a4, a5, n] - S2[a1, a6, a3, a4, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a6, a3, a5, a4, n] - S2[a1, a6, a3, a5, SP[a2, a4], n] - 
    S2[a1, a6, a3, SP[a2, a5], a4, n] - S2[a2, n]*S2[a1, a6, a4, a3, a5, n] - 
    S2[a1, a6, a4, a3, SP[a2, a5], n] - S2[a2, n]*S2[a1, a6, a4, a5, a3, n] - 
    S2[a1, a6, a4, a5, SP[a2, a3], n] - S2[a1, a6, a4, SP[a2, a3], a5, n] - 
    S2[a1, a6, a4, SP[a2, a5], a3, n] - S2[a2, n]*S2[a1, a6, a5, a3, a4, n] - 
    S2[a1, a6, a5, a3, SP[a2, a4], n] - S2[a2, n]*S2[a1, a6, a5, a4, a3, n] - 
    S2[a1, a6, a5, a4, SP[a2, a3], n] - S2[a1, a6, a5, SP[a2, a3], a4, n] - 
    S2[a1, a6, a5, SP[a2, a4], a3, n] - S2[a1, a6, SP[a2, a3], a4, a5, n] - 
    S2[a1, a6, SP[a2, a3], a5, a4, n] - S2[a1, a6, SP[a2, a5], a3, a4, n] - 
    S2[a1, a6, SP[a2, a5], a4, a3, n] + S2[a1, a6, SP[a3, a4], a2, a5, n] - 
    S2[a1, SP[a2, a5], a3, a4, a6, n] - S2[a1, SP[a2, a5], a3, a6, a4, n] - 
    S2[a1, SP[a2, a5], a4, a3, a6, n] - S2[a1, SP[a2, a5], a4, a6, a3, n] - 
    S2[a1, SP[a2, a5], a6, a3, a4, n] - S2[a1, SP[a2, a5], a6, a4, a3, n] - 
    S2[a1, SP[a2, a6], a3, a4, a5, n] - S2[a1, SP[a2, a6], a3, a5, a4, n] - 
    S2[a1, SP[a2, a6], a4, a3, a5, n] - S2[a1, SP[a2, a6], a4, a5, a3, n] - 
    S2[a1, SP[a2, a6], a5, a3, a4, n] - S2[a1, SP[a2, a6], a5, a4, a3, n] + 
    S2[a1, SP[a3, a6], a4, a5, a2, n] + S2[a1, SP[a3, a6], a5, a2, a4, n] + 
    S2[a1, SP[a3, a6], a5, a4, a2, n] + S2[a1, SP[a4, a6], a2, a3, a5, n] + 
    S2[a1, SP[a4, a6], a2, a5, a3, n] + S2[a1, SP[a4, a6], a3, a2, a5, n] + 
    S2[a1, SP[a4, a6], a3, a5, a2, n] + S2[a1, SP[a4, a6], a5, a2, a3, n] + 
    S2[a1, SP[a4, a6], a5, a3, a2, n] + S2[a1, SP[a5, a6], a2, a3, a4, n] + 
    S2[a1, SP[a5, a6], a2, a4, a3, n] + S2[a1, SP[a5, a6], a3, a2, a4, n] + 
    S2[a1, SP[a5, a6], a3, a4, a2, n] + S2[a1, SP[a5, a6], a4, a2, a3, n] + 
    S2[a1, SP[a5, a6], a4, a3, a2, n] + S2[a2, a1, a3, a4, SP[a5, a6], n] + 
    S2[a2, a1, a3, SP[a4, a5], a6, n] + S2[a2, a1, a4, a3, SP[a5, a6], n] + 
    S2[a2, a1, a4, a6, SP[a3, a5], n] + S2[a2, a1, a4, SP[a3, a5], a6, n] + 
    S2[a2, a1, a4, SP[a5, a6], a3, n] + S2[a2, a1, a5, a6, SP[a3, a4], n] + 
    S2[a2, a1, a5, SP[a3, a6], a4, n] + S2[a2, a1, a6, a4, SP[a3, a5], n] + 
    S2[a2, a1, a6, a5, SP[a3, a4], n] + S2[a2, a1, a6, SP[a3, a4], a5, n] + 
    S2[a2, a1, a6, SP[a3, a5], a4, n] + S2[a2, a1, SP[a3, a5], a4, a6, n] + 
    S2[a2, a1, SP[a3, a5], a6, a4, n] + S2[a2, a1, SP[a3, a6], a4, a5, n] + 
    S2[a2, a1, SP[a3, a6], a5, a4, n] + S2[a2, a1, SP[a4, a5], a3, a6, n] + 
    S2[a2, a1, SP[a4, a5], a6, a3, n] - S2[a6, n]*S2[a2, a5, a1, a3, a4, n] - 
    S2[a2, a5, a1, a3, SP[a4, a6], n] - S2[a6, n]*S2[a2, a5, a1, a4, a3, n] - 
    S2[a2, a5, a1, a4, SP[a3, a6], n] + S2[a2, a5, a1, a6, SP[a3, a4], n] - 
    S2[a2, a5, a1, SP[a4, a6], a3, n] + S2[a2, a5, a6, a1, SP[a3, a4], n] + 
    S2[a2, a5, a6, SP[a1, a4], a3, n] - S2[a4, n]*S2[a2, a6, a1, a3, a5, n] - 
    S2[a2, a6, a1, a3, SP[a4, a5], n] + S2[a2, a6, a1, a4, SP[a3, a5], n] - 
    S2[a4, n]*S2[a2, a6, a1, a5, a3, n] + S2[a2, a6, a1, SP[a3, a5], a4, n] - 
    S2[a2, a6, a1, SP[a4, a5], a3, n] + S2[a2, a6, a4, a1, SP[a3, a5], n] + 
    S2[a2, a6, a4, SP[a1, a5], a3, n] + S2[a2, a6, a5, a1, SP[a3, a4], n] + 
    S2[a2, a6, a5, SP[a1, a4], a3, n] + S2[a2, a6, SP[a1, a5], a3, a4, n] + 
    S2[a2, a6, SP[a1, a5], a4, a3, n] + S2[a2, SP[a1, a5], a3, a4, a6, n] + 
    S2[a2, SP[a1, a5], a3, a6, a4, n] + S2[a2, SP[a1, a5], a4, a3, a6, n] + 
    S2[a2, SP[a1, a5], a4, a6, a3, n] + S2[a2, SP[a1, a5], a6, a3, a4, n] + 
    S2[a2, SP[a1, a5], a6, a4, a3, n] + S2[a2, SP[a1, a6], a3, a4, a5, n] + 
    S2[a2, SP[a1, a6], a3, a5, a4, n] + S2[a2, SP[a1, a6], a4, a3, a5, n] + 
    S2[a2, SP[a1, a6], a4, a5, a3, n] + S2[a2, SP[a1, a6], a5, a3, a4, n] + 
    S2[a2, SP[a1, a6], a5, a4, a3, n] - S2[a2, SP[a4, a6], a1, a3, a5, n] - 
    S2[a2, SP[a4, a6], a1, a5, a3, n] - S2[a2, SP[a5, a6], a1, a3, a4, n] - 
    S2[a2, SP[a5, a6], a1, a4, a3, n] - S2[a4, a1, a6, a2, SP[a3, a5], n] - 
    S2[a4, a1, a6, SP[a2, a3], a5, n] - S2[a4, a1, SP[a3, a6], a2, a5, n] - 
    S2[a4, a6, a1, a2, SP[a3, a5], n] + S2[a2, n]*S2[a4, a6, a1, a3, a5, n] + 
    S2[a4, a6, a1, a3, SP[a2, a5], n] + S2[a2, n]*S2[a4, a6, a1, a5, a3, n] + 
    S2[a4, a6, a1, a5, SP[a2, a3], n] + S2[a4, a6, a1, SP[a2, a5], a3, n] - 
    S2[a4, a6, a2, a1, SP[a3, a5], n] - S2[a4, a6, a2, SP[a1, a5], a3, n] - 
    S2[a4, SP[a1, a6], a2, a3, a5, n] - S2[a4, SP[a1, a6], a2, a5, a3, n] - 
    S2[a4, SP[a1, a6], a3, a2, a5, n] + S2[a4, SP[a2, a6], a1, a3, a5, n] + 
    S2[a4, SP[a2, a6], a1, a5, a3, n] - S2[a4, n]*S2[a6, a1, a3, a5, a2, n] - 
    S2[a6, a1, a3, a5, SP[a2, a4], n] - S2[a6, a1, a3, SP[a4, a5], a2, n] - 
    S2[a4, n]*S2[a6, a1, a5, a2, a3, n] - S2[a6, a1, a5, a2, SP[a3, a4], n] - 
    S2[a4, n]*S2[a6, a1, a5, a3, a2, n] - S2[a6, a1, a5, a3, SP[a2, a4], n] - 
    S2[a6, a1, a5, SP[a2, a4], a3, n] - S2[a6, a1, a5, SP[a3, a4], a2, n] - 
    S2[a6, a1, SP[a3, a4], a5, a2, n] - S2[a6, a1, SP[a4, a5], a2, a3, n] - 
    S2[a6, a1, SP[a4, a5], a3, a2, n] + S2[a4, n]*S2[a6, a2, a5, a1, a3, n] + 
    S2[a6, a2, a5, a1, SP[a3, a4], n] + S2[a6, a2, a5, SP[a1, a4], a3, n] + 
    S2[a6, a2, SP[a4, a5], a1, a3, n] - S2[a2, n]*S2[a6, a4, a5, a1, a3, n] - 
    S2[a6, a4, a5, a1, SP[a2, a3], n] - S2[a6, a4, a5, SP[a1, a2], a3, n] - 
    S2[a6, a4, SP[a2, a5], a1, a3, n] - S2[a2, n]*S2[a6, a5, a4, a1, a3, n] - 
    S2[a6, a5, a4, a1, SP[a2, a3], n] - S2[a6, a5, a4, SP[a1, a2], a3, n] - 
    S2[a6, a5, SP[a2, a4], a1, a3, n] - S2[a6, SP[a1, a4], a3, a5, a2, n] - 
    S2[a6, SP[a1, a4], a5, a2, a3, n] - S2[a6, SP[a1, a4], a5, a3, a2, n] - 
    S2[a6, SP[a2, a5], a4, a1, a3, n] + S2[SP[a1, a6], a3, a4, a5, a2, n] + 
    S2[SP[a1, a6], a3, a5, a2, a4, n] + S2[SP[a1, a6], a3, a5, a4, a2, n] + 
    S2[SP[a1, a6], a4, a3, a5, a2, n] + S2[SP[a1, a6], a4, a5, a2, a3, n] + 
    S2[SP[a1, a6], a4, a5, a3, a2, n] + S2[SP[a1, a6], a5, a2, a3, a4, n] + 
    S2[SP[a1, a6], a5, a2, a4, a3, n] + S2[SP[a1, a6], a5, a3, a2, a4, n] + 
    S2[SP[a1, a6], a5, a3, a4, a2, n] + S2[SP[a1, a6], a5, a4, a2, a3, n] + 
    S2[SP[a1, a6], a5, a4, a3, a2, n] - S2[SP[a2, a6], a4, a5, a1, a3, n] - 
    S2[SP[a2, a6], a5, a1, a3, a4, n] - S2[SP[a2, a6], a5, a1, a4, a3, n] - 
    S2[SP[a2, a6], a5, a4, a1, a3, n] - S2[SP[a4, a6], a1, a3, a5, a2, n] - 
    S2[SP[a4, a6], a1, a5, a2, a3, n] - S2[SP[a4, a6], a1, a5, a3, a2, n] + 
    S2[SP[a4, a6], a2, a5, a1, a3, n] + S2[a6, a4, a1, a3, a5, a2, n] + 
    S2[a6, a4, a1, a5, a2, a3, n] + S2[a6, a4, a1, a5, a3, a2, n] + 
    S2[a6, a4, a5, a1, a2, a3, n] + S2[a6, a4, a5, a1, a3, a2, n] + 
    S2[a6, a4, a5, a2, a1, a3, n] + S2[a6, a5, a2, a4, a1, a3, n] + 
    S2[a6, a5, a4, a1, a2, a3, n] + S2[a6, a5, a4, a1, a3, a2, n] + 
    S2[a6, a5, a4, a2, a1, a3, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a2_, a5_, a6_, a4_, a3_, a1_, n_] :> 
  -(S2[a2, a5, n]*S2[a1, a3, a4, a6, n]) + S2[a1, a3, SP[a2, a4], SP[a5, a6], 
     n] + S2[a1, SP[a2, a3], a4, SP[a5, a6], n] + 
    S2[a1, SP[a2, a3], SP[a4, a5], a6, n] - S2[a1, a3, n]*
     S2[a2, a5, a6, a4, n] + S2[a2, a5, SP[a1, a6], SP[a3, a4], n] - 
    S2[a1, a3, n]*S2[a2, a6, a4, a5, n] - S2[a1, a3, n]*
     S2[a2, a6, a5, a4, n] + S2[a2, a6, SP[a1, a4], SP[a3, a5], n] + 
    S2[a2, a6, SP[a1, a5], SP[a3, a4], n] + S2[a2, SP[a1, a5], a6, 
     SP[a3, a4], n] + S2[a2, SP[a1, a5], SP[a3, a6], a4, n] + 
    S2[a2, SP[a1, a6], a4, SP[a3, a5], n] + S2[a2, SP[a1, a6], a5, 
     SP[a3, a4], n] + S2[a2, SP[a1, a6], SP[a3, a4], a5, n] + 
    S2[a2, SP[a1, a6], SP[a3, a5], a4, n] + S2[a1, a3, n]*
     S2[a4, a6, a2, a5, n] - S2[a4, a6, SP[a1, a2], SP[a3, a5], n] - 
    S2[a4, SP[a1, a6], a2, SP[a3, a5], n] - S2[a4, SP[a1, a6], SP[a2, a3], 
     a5, n] + S2[SP[a1, a2], a3, a4, SP[a5, a6], n] + 
    S2[SP[a1, a2], a3, SP[a4, a5], a6, n] + S2[SP[a1, a2], a5, a6, 
     SP[a3, a4], n] + S2[SP[a1, a2], a5, SP[a3, a6], a4, n] + 
    S2[SP[a1, a2], a6, a4, SP[a3, a5], n] + S2[SP[a1, a2], a6, a5, 
     SP[a3, a4], n] + S2[SP[a1, a2], a6, SP[a3, a4], a5, n] + 
    S2[SP[a1, a2], a6, SP[a3, a5], a4, n] + S2[SP[a1, a2], SP[a3, a5], a4, 
     a6, n] + S2[SP[a1, a2], SP[a3, a5], a6, a4, n] + 
    S2[SP[a1, a2], SP[a3, a6], a4, a5, n] + S2[SP[a1, a2], SP[a3, a6], a5, 
     a4, n] - S2[SP[a1, a4], a6, a2, SP[a3, a5], n] - 
    S2[SP[a1, a4], a6, SP[a2, a3], a5, n] - S2[SP[a1, a4], SP[a3, a6], a2, 
     a5, n] - S2[a1, a2, a3, a4, SP[a5, a6], n] - S2[a1, a2, a3, SP[a4, a5], 
     a6, n] - S2[a1, a2, a5, a6, SP[a3, a4], n] - S2[a1, a2, a5, SP[a3, a6], 
     a4, n] - S2[a1, a2, a6, a4, SP[a3, a5], n] - 
    S2[a1, a2, a6, a5, SP[a3, a4], n] - S2[a1, a2, a6, SP[a3, a4], a5, n] - 
    S2[a1, a2, a6, SP[a3, a5], a4, n] - S2[a1, a2, SP[a3, a5], a4, a6, n] - 
    S2[a1, a2, SP[a3, a5], a6, a4, n] - S2[a1, a2, SP[a3, a6], a4, a5, n] - 
    S2[a1, a2, SP[a3, a6], a5, a4, n] - S2[a1, a3, a2, a4, SP[a5, a6], n] - 
    S2[a1, a3, a2, SP[a4, a5], a6, n] - S2[a1, a3, a4, a2, SP[a5, a6], n] - 
    S2[a6, n]*S2[a1, a3, a4, a5, a2, n] + 
    S2[a2, n]*S2[a1, a3, a4, a5, a6, n] + 
    S2[a2, n]*S2[a1, a3, a4, a6, a5, n] + S2[a1, a3, a4, a6, SP[a2, a5], n] + 
    S2[a1, a3, a4, SP[a2, a5], a6, n] - S2[a1, a3, a4, SP[a5, a6], a2, n] - 
    S2[a6, n]*S2[a1, a3, a5, a2, a4, n] - S2[a1, a3, a5, a2, SP[a4, a6], n] - 
    S2[a6, n]*S2[a1, a3, a5, a4, a2, n] + 
    S2[a2, n]*S2[a1, a3, a5, a4, a6, n] + 
    S2[a2, n]*S2[a1, a3, a5, a6, a4, n] + S2[a1, a3, a5, a6, SP[a2, a4], n] + 
    S2[a1, a3, a5, SP[a2, a4], a6, n] - S2[a1, a3, a5, SP[a4, a6], a2, n] - 
    S2[a4, n]*S2[a1, a3, a6, a2, a5, n] - S2[a1, a3, a6, a2, SP[a4, a5], n] + 
    S2[a2, n]*S2[a1, a3, a6, a4, a5, n] + S2[a1, a3, a6, a4, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a3, a6, a5, a4, n] + S2[a1, a3, a6, a5, SP[a2, a4], n] + 
    S2[a1, a3, a6, SP[a2, a5], a4, n] + S2[a1, a3, SP[a2, a5], a4, a6, n] + 
    S2[a1, a3, SP[a2, a5], a6, a4, n] + S2[a1, a3, SP[a2, a6], a4, a5, n] + 
    S2[a1, a3, SP[a2, a6], a5, a4, n] - S2[a1, a3, SP[a4, a6], a2, a5, n] - 
    S2[a1, a3, SP[a4, a6], a5, a2, n] - S2[a1, a3, SP[a5, a6], a2, a4, n] - 
    S2[a1, a3, SP[a5, a6], a4, a2, n] + S2[a1, a4, a6, a2, SP[a3, a5], n] + 
    S2[a1, a4, a6, SP[a2, a3], a5, n] + S2[a1, a4, SP[a3, a6], a2, a5, n] - 
    S2[a6, n]*S2[a1, a5, a2, a3, a4, n] - S2[a1, a5, a2, a3, SP[a4, a6], n] - 
    S2[a1, a5, a2, SP[a3, a6], a4, n] - S2[a6, n]*S2[a1, a5, a3, a2, a4, n] - 
    S2[a1, a5, a3, a2, SP[a4, a6], n] - S2[a6, n]*S2[a1, a5, a3, a4, a2, n] + 
    S2[a2, n]*S2[a1, a5, a3, a4, a6, n] + 
    S2[a2, n]*S2[a1, a5, a3, a6, a4, n] + S2[a1, a5, a3, a6, SP[a2, a4], n] + 
    S2[a1, a5, a3, SP[a2, a4], a6, n] - S2[a1, a5, a3, SP[a4, a6], a2, n] + 
    S2[a2, n]*S2[a1, a5, a6, a3, a4, n] + S2[a1, a5, a6, a3, SP[a2, a4], n] + 
    S2[a1, a5, a6, SP[a2, a3], a4, n] + S2[a1, a5, SP[a2, a3], a4, a6, n] + 
    S2[a1, a5, SP[a2, a3], a6, a4, n] - S2[a1, a5, SP[a3, a6], a2, a4, n] - 
    S2[a1, a5, SP[a3, a6], a4, a2, n] - S2[a4, n]*S2[a1, a6, a2, a3, a5, n] - 
    S2[a1, a6, a2, a3, SP[a4, a5], n] - S2[a4, n]*S2[a1, a6, a2, a5, a3, n] - 
    S2[a1, a6, a2, a5, SP[a3, a4], n] - S2[a1, a6, a2, SP[a3, a4], a5, n] - 
    S2[a1, a6, a2, SP[a4, a5], a3, n] - S2[a4, n]*S2[a1, a6, a3, a2, a5, n] - 
    S2[a1, a6, a3, a2, SP[a4, a5], n] + S2[a2, n]*S2[a1, a6, a3, a4, a5, n] + 
    S2[a1, a6, a3, a4, SP[a2, a5], n] + S2[a2, n]*S2[a1, a6, a3, a5, a4, n] + 
    S2[a1, a6, a3, a5, SP[a2, a4], n] + S2[a1, a6, a3, SP[a2, a5], a4, n] + 
    S2[a2, n]*S2[a1, a6, a4, a3, a5, n] + S2[a1, a6, a4, a3, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a6, a4, a5, a3, n] + S2[a1, a6, a4, a5, SP[a2, a3], n] + 
    S2[a1, a6, a4, SP[a2, a3], a5, n] + S2[a1, a6, a4, SP[a2, a5], a3, n] + 
    S2[a2, n]*S2[a1, a6, a5, a3, a4, n] + S2[a1, a6, a5, a3, SP[a2, a4], n] + 
    S2[a2, n]*S2[a1, a6, a5, a4, a3, n] + S2[a1, a6, a5, a4, SP[a2, a3], n] + 
    S2[a1, a6, a5, SP[a2, a3], a4, n] + S2[a1, a6, a5, SP[a2, a4], a3, n] + 
    S2[a1, a6, SP[a2, a3], a4, a5, n] + S2[a1, a6, SP[a2, a3], a5, a4, n] + 
    S2[a1, a6, SP[a2, a5], a3, a4, n] + S2[a1, a6, SP[a2, a5], a4, a3, n] - 
    S2[a1, a6, SP[a3, a4], a2, a5, n] + S2[a1, SP[a2, a5], a3, a4, a6, n] + 
    S2[a1, SP[a2, a5], a3, a6, a4, n] + S2[a1, SP[a2, a5], a6, a3, a4, n] + 
    S2[a1, SP[a2, a6], a3, a4, a5, n] + S2[a1, SP[a2, a6], a3, a5, a4, n] + 
    S2[a1, SP[a2, a6], a4, a3, a5, n] + S2[a1, SP[a2, a6], a4, a5, a3, n] + 
    S2[a1, SP[a2, a6], a5, a3, a4, n] + S2[a1, SP[a2, a6], a5, a4, a3, n] - 
    S2[a1, SP[a3, a6], a4, a5, a2, n] - S2[a1, SP[a3, a6], a5, a2, a4, n] - 
    S2[a1, SP[a3, a6], a5, a4, a2, n] - S2[a1, SP[a4, a6], a2, a3, a5, n] - 
    S2[a1, SP[a4, a6], a2, a5, a3, n] - S2[a1, SP[a4, a6], a3, a2, a5, n] - 
    S2[a1, SP[a5, a6], a2, a3, a4, n] - S2[a1, SP[a5, a6], a3, a2, a4, n] - 
    S2[a1, SP[a5, a6], a3, a4, a2, n] - S2[a2, a1, a3, a4, SP[a5, a6], n] - 
    S2[a2, a1, a3, SP[a4, a5], a6, n] - S2[a2, a1, a5, a6, SP[a3, a4], n] - 
    S2[a2, a1, a5, SP[a3, a6], a4, n] - S2[a2, a1, a6, a4, SP[a3, a5], n] - 
    S2[a2, a1, a6, a5, SP[a3, a4], n] - S2[a2, a1, a6, SP[a3, a4], a5, n] - 
    S2[a2, a1, a6, SP[a3, a5], a4, n] - S2[a2, a1, SP[a3, a5], a4, a6, n] - 
    S2[a2, a1, SP[a3, a5], a6, a4, n] - S2[a2, a1, SP[a3, a6], a4, a5, n] - 
    S2[a2, a1, SP[a3, a6], a5, a4, n] + S2[a6, n]*S2[a2, a5, a1, a3, a4, n] + 
    S2[a2, a5, a1, a3, SP[a4, a6], n] - S2[a2, a5, a1, a6, SP[a3, a4], n] - 
    S2[a2, a5, a6, a1, SP[a3, a4], n] + S2[a1, n]*S2[a2, a5, a6, a4, a3, n] + 
    S2[a2, a5, a6, a4, SP[a1, a3], n] + S2[a4, n]*S2[a2, a6, a1, a3, a5, n] + 
    S2[a2, a6, a1, a3, SP[a4, a5], n] - S2[a2, a6, a1, a4, SP[a3, a5], n] + 
    S2[a4, n]*S2[a2, a6, a1, a5, a3, n] - S2[a2, a6, a1, SP[a3, a5], a4, n] + 
    S2[a2, a6, a1, SP[a4, a5], a3, n] - S2[a2, a6, a4, a1, SP[a3, a5], n] - 
    S2[a2, a6, a4, SP[a1, a5], a3, n] - S2[a2, a6, a5, a1, SP[a3, a4], n] - 
    S2[a2, a6, a5, SP[a1, a4], a3, n] - S2[a2, a6, SP[a1, a5], a3, a4, n] - 
    S2[a2, a6, SP[a1, a5], a4, a3, n] - S2[a2, SP[a1, a5], a3, a4, a6, n] - 
    S2[a2, SP[a1, a5], a3, a6, a4, n] - S2[a2, SP[a1, a5], a6, a3, a4, n] - 
    S2[a2, SP[a1, a6], a3, a4, a5, n] - S2[a2, SP[a1, a6], a3, a5, a4, n] - 
    S2[a2, SP[a1, a6], a4, a3, a5, n] - S2[a2, SP[a1, a6], a4, a5, a3, n] - 
    S2[a2, SP[a1, a6], a5, a3, a4, n] - S2[a2, SP[a1, a6], a5, a4, a3, n] + 
    S2[a2, SP[a4, a6], a1, a3, a5, n] + S2[a2, SP[a4, a6], a1, a5, a3, n] + 
    S2[a2, SP[a5, a6], a1, a3, a4, n] + S2[a4, a1, a6, a2, SP[a3, a5], n] + 
    S2[a4, a1, a6, SP[a2, a3], a5, n] + S2[a4, a1, SP[a3, a6], a2, a5, n] + 
    S2[a4, a6, a1, a2, SP[a3, a5], n] - S2[a2, n]*S2[a4, a6, a1, a3, a5, n] - 
    S2[a4, a6, a1, a3, SP[a2, a5], n] - S2[a2, n]*S2[a4, a6, a1, a5, a3, n] - 
    S2[a4, a6, a1, a5, SP[a2, a3], n] - S2[a4, a6, a1, SP[a2, a5], a3, n] + 
    S2[a4, a6, a2, a1, SP[a3, a5], n] + S2[a4, a6, a2, SP[a1, a5], a3, n] + 
    S2[a4, SP[a1, a6], a2, a3, a5, n] + S2[a4, SP[a1, a6], a2, a5, a3, n] + 
    S2[a4, SP[a1, a6], a3, a2, a5, n] - S2[a4, SP[a2, a6], a1, a3, a5, n] - 
    S2[a4, SP[a2, a6], a1, a5, a3, n] + S2[a4, n]*S2[a6, a1, a3, a5, a2, n] + 
    S2[a6, a1, a3, a5, SP[a2, a4], n] + S2[a6, a1, a3, SP[a4, a5], a2, n] + 
    S2[a4, n]*S2[a6, a1, a5, a2, a3, n] + S2[a6, a1, a5, a2, SP[a3, a4], n] + 
    S2[a4, n]*S2[a6, a1, a5, a3, a2, n] + S2[a6, a1, a5, a3, SP[a2, a4], n] + 
    S2[a6, a1, a5, SP[a2, a4], a3, n] + S2[a6, a1, a5, SP[a3, a4], a2, n] + 
    S2[a6, a1, SP[a3, a4], a5, a2, n] + S2[a6, a1, SP[a4, a5], a2, a3, n] + 
    S2[a6, a1, SP[a4, a5], a3, a2, n] - S2[a4, n]*S2[a6, a2, a5, a1, a3, n] - 
    S2[a6, a2, a5, a1, SP[a3, a4], n] - S2[a6, a2, a5, SP[a1, a4], a3, n] - 
    S2[a6, a2, SP[a4, a5], a1, a3, n] - S2[a1, n]*S2[a6, a4, a3, a5, a2, n] - 
    S2[a6, a4, a3, a5, SP[a1, a2], n] - S2[a6, a4, a3, SP[a1, a5], a2, n] + 
    S2[a2, n]*S2[a6, a4, a5, a1, a3, n] + S2[a6, a4, a5, a1, SP[a2, a3], n] - 
    S2[a1, n]*S2[a6, a4, a5, a2, a3, n] - S2[a6, a4, a5, a2, SP[a1, a3], n] - 
    S2[a1, n]*S2[a6, a4, a5, a3, a2, n] - S2[a6, a4, a5, a3, SP[a1, a2], n] - 
    S2[a6, a4, a5, SP[a1, a3], a2, n] - S2[a6, a4, SP[a1, a3], a5, a2, n] - 
    S2[a6, a4, SP[a1, a5], a2, a3, n] - S2[a6, a4, SP[a1, a5], a3, a2, n] + 
    S2[a6, a4, SP[a2, a5], a1, a3, n] + S2[a2, n]*S2[a6, a5, a1, a4, a3, n] + 
    S2[a6, a5, a1, a4, SP[a2, a3], n] + S2[a6, a5, a1, SP[a2, a4], a3, n] - 
    S2[a1, n]*S2[a6, a5, a2, a4, a3, n] - S2[a6, a5, a2, a4, SP[a1, a3], n] - 
    S2[a6, a5, a2, SP[a1, a4], a3, n] + S2[a2, n]*S2[a6, a5, a4, a1, a3, n] + 
    S2[a6, a5, a4, a1, SP[a2, a3], n] - S2[a1, n]*S2[a6, a5, a4, a2, a3, n] - 
    S2[a6, a5, a4, a2, SP[a1, a3], n] - S2[a1, n]*S2[a6, a5, a4, a3, a2, n] - 
    S2[a6, a5, a4, a3, SP[a1, a2], n] - S2[a6, a5, a4, SP[a1, a3], a2, n] - 
    S2[a6, a5, SP[a1, a4], a2, a3, n] - S2[a6, a5, SP[a1, a4], a3, a2, n] + 
    S2[a6, a5, SP[a2, a4], a1, a3, n] - S2[a6, SP[a1, a5], a2, a4, a3, n] - 
    S2[a6, SP[a1, a5], a4, a2, a3, n] - S2[a6, SP[a1, a5], a4, a3, a2, n] + 
    S2[a6, SP[a2, a5], a1, a4, a3, n] + S2[a6, SP[a2, a5], a4, a1, a3, n] - 
    S2[SP[a1, a6], a3, a4, a5, a2, n] - S2[SP[a1, a6], a3, a5, a2, a4, n] - 
    S2[SP[a1, a6], a3, a5, a4, a2, n] - S2[SP[a1, a6], a4, a3, a5, a2, n] - 
    S2[SP[a1, a6], a4, a5, a2, a3, n] - S2[SP[a1, a6], a4, a5, a3, a2, n] - 
    S2[SP[a1, a6], a5, a2, a3, a4, n] - S2[SP[a1, a6], a5, a2, a4, a3, n] - 
    S2[SP[a1, a6], a5, a3, a2, a4, n] - S2[SP[a1, a6], a5, a3, a4, a2, n] - 
    S2[SP[a1, a6], a5, a4, a2, a3, n] - S2[SP[a1, a6], a5, a4, a3, a2, n] + 
    S2[SP[a2, a6], a4, a5, a1, a3, n] + S2[SP[a2, a6], a5, a1, a3, a4, n] + 
    S2[SP[a2, a6], a5, a1, a4, a3, n] + S2[SP[a2, a6], a5, a4, a1, a3, n] + 
    S2[SP[a4, a6], a1, a3, a5, a2, n] + S2[SP[a4, a6], a1, a5, a2, a3, n] + 
    S2[SP[a4, a6], a1, a5, a3, a2, n] - S2[SP[a4, a6], a2, a5, a1, a3, n] + 
    S2[a6, a4, a3, a1, a5, a2, n] + S2[a6, a4, a3, a5, a1, a2, n] + 
    S2[a6, a4, a3, a5, a2, a1, n] + S2[a6, a4, a5, a2, a3, a1, n] + 
    S2[a6, a4, a5, a3, a1, a2, n] + S2[a6, a4, a5, a3, a2, a1, n] + 
    S2[a6, a5, a2, a4, a3, a1, n] + S2[a6, a5, a4, a2, a3, a1, n] + 
    S2[a6, a5, a4, a3, a1, a2, n] + S2[a6, a5, a4, a3, a2, a1, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a2_, a6_, a1_, a3_, a4_, a5_, n_] :> 
  S2[a2, n]*S2[a6, a1, a3, a4, a5, n] + S2[a6, a1, a3, a4, SP[a2, a5], n] + 
    S2[a6, a1, a3, SP[a2, a4], a5, n] + S2[a6, a1, SP[a2, a3], a4, a5, n] + 
    S2[a6, SP[a1, a2], a3, a4, a5, n] + S2[SP[a2, a6], a1, a3, a4, a5, n] - 
    S2[a6, a1, a2, a3, a4, a5, n] - S2[a6, a1, a3, a2, a4, a5, n] - 
    S2[a6, a1, a3, a4, a2, a5, n] - S2[a6, a1, a3, a4, a5, a2, n] - 
    S2[a6, a2, a1, a3, a4, a5, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a2_, a6_, a1_, a3_, a5_, a4_, n_] :> 
  S2[a2, n]*S2[a6, a1, a3, a5, a4, n] + S2[a6, a1, a3, a5, SP[a2, a4], n] + 
    S2[a6, a1, a3, SP[a2, a5], a4, n] + S2[a6, a1, SP[a2, a3], a5, a4, n] + 
    S2[a6, SP[a1, a2], a3, a5, a4, n] + S2[SP[a2, a6], a1, a3, a5, a4, n] - 
    S2[a6, a1, a2, a3, a5, a4, n] - S2[a6, a1, a3, a2, a5, a4, n] - 
    S2[a6, a1, a3, a5, a2, a4, n] - S2[a6, a1, a3, a5, a4, a2, n] - 
    S2[a6, a2, a1, a3, a5, a4, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a2_, a6_, a1_, a4_, a3_, a5_, n_] :> 
  S2[a2, n]*S2[a6, a1, a4, a3, a5, n] + S2[a6, a1, a4, a3, SP[a2, a5], n] + 
    S2[a6, a1, a4, SP[a2, a3], a5, n] + S2[a6, a1, SP[a2, a4], a3, a5, n] + 
    S2[a6, SP[a1, a2], a4, a3, a5, n] + S2[SP[a2, a6], a1, a4, a3, a5, n] - 
    S2[a6, a1, a2, a4, a3, a5, n] - S2[a6, a1, a4, a2, a3, a5, n] - 
    S2[a6, a1, a4, a3, a2, a5, n] - S2[a6, a1, a4, a3, a5, a2, n] - 
    S2[a6, a2, a1, a4, a3, a5, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a2_, a6_, a1_, a4_, a5_, a3_, n_] :> 
  S2[a2, n]*S2[a6, a1, a4, a5, a3, n] + S2[a6, a1, a4, a5, SP[a2, a3], n] + 
    S2[a6, a1, a4, SP[a2, a5], a3, n] + S2[a6, a1, SP[a2, a4], a5, a3, n] + 
    S2[a6, SP[a1, a2], a4, a5, a3, n] + S2[SP[a2, a6], a1, a4, a5, a3, n] - 
    S2[a6, a1, a2, a4, a5, a3, n] - S2[a6, a1, a4, a2, a5, a3, n] - 
    S2[a6, a1, a4, a5, a2, a3, n] - S2[a6, a1, a4, a5, a3, a2, n] - 
    S2[a6, a2, a1, a4, a5, a3, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a2_, a6_, a1_, a5_, a3_, a4_, n_] :> 
  S2[a2, n]*S2[a6, a1, a5, a3, a4, n] + S2[a6, a1, a5, a3, SP[a2, a4], n] + 
    S2[a6, a1, a5, SP[a2, a3], a4, n] + S2[a6, a1, SP[a2, a5], a3, a4, n] + 
    S2[a6, SP[a1, a2], a5, a3, a4, n] + S2[SP[a2, a6], a1, a5, a3, a4, n] - 
    S2[a6, a1, a2, a5, a3, a4, n] - S2[a6, a1, a5, a2, a3, a4, n] - 
    S2[a6, a1, a5, a3, a2, a4, n] - S2[a6, a1, a5, a3, a4, a2, n] - 
    S2[a6, a2, a1, a5, a3, a4, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a2_, a6_, a1_, a5_, a4_, a3_, n_] :> 
  S2[a2, n]*S2[a6, a1, a5, a4, a3, n] + S2[a6, a1, a5, a4, SP[a2, a3], n] + 
    S2[a6, a1, a5, SP[a2, a4], a3, n] + S2[a6, a1, SP[a2, a5], a4, a3, n] + 
    S2[a6, SP[a1, a2], a5, a4, a3, n] + S2[SP[a2, a6], a1, a5, a4, a3, n] - 
    S2[a6, a1, a2, a5, a4, a3, n] - S2[a6, a1, a5, a2, a4, a3, n] - 
    S2[a6, a1, a5, a4, a2, a3, n] - S2[a6, a1, a5, a4, a3, a2, n] - 
    S2[a6, a2, a1, a5, a4, a3, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a2_, a6_, a3_, a1_, a4_, a5_, n_] :> 
  S2[a2, n]*S2[a6, a3, a1, a4, a5, n] + S2[a6, a3, a1, a4, SP[a2, a5], n] + 
    S2[a6, a3, a1, SP[a2, a4], a5, n] + S2[a6, a3, SP[a1, a2], a4, a5, n] + 
    S2[a6, SP[a2, a3], a1, a4, a5, n] + S2[SP[a2, a6], a3, a1, a4, a5, n] - 
    S2[a6, a2, a3, a1, a4, a5, n] - S2[a6, a3, a1, a2, a4, a5, n] - 
    S2[a6, a3, a1, a4, a2, a5, n] - S2[a6, a3, a1, a4, a5, a2, n] - 
    S2[a6, a3, a2, a1, a4, a5, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a2_, a6_, a3_, a1_, a5_, a4_, n_] :> 
  S2[a2, n]*S2[a6, a3, a1, a5, a4, n] + S2[a6, a3, a1, a5, SP[a2, a4], n] + 
    S2[a6, a3, a1, SP[a2, a5], a4, n] + S2[a6, a3, SP[a1, a2], a5, a4, n] + 
    S2[a6, SP[a2, a3], a1, a5, a4, n] + S2[SP[a2, a6], a3, a1, a5, a4, n] - 
    S2[a6, a2, a3, a1, a5, a4, n] - S2[a6, a3, a1, a2, a5, a4, n] - 
    S2[a6, a3, a1, a5, a2, a4, n] - S2[a6, a3, a1, a5, a4, a2, n] - 
    S2[a6, a3, a2, a1, a5, a4, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a2_, a6_, a3_, a4_, a1_, a5_, n_] :> 
  S2[a2, n]*S2[a6, a3, a4, a1, a5, n] + S2[a6, a3, a4, a1, SP[a2, a5], n] + 
    S2[a6, a3, a4, SP[a1, a2], a5, n] + S2[a6, a3, SP[a2, a4], a1, a5, n] + 
    S2[a6, SP[a2, a3], a4, a1, a5, n] + S2[SP[a2, a6], a3, a4, a1, a5, n] - 
    S2[a6, a2, a3, a4, a1, a5, n] - S2[a6, a3, a2, a4, a1, a5, n] - 
    S2[a6, a3, a4, a1, a2, a5, n] - S2[a6, a3, a4, a1, a5, a2, n] - 
    S2[a6, a3, a4, a2, a1, a5, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a2_, a6_, a3_, a4_, a5_, a1_, n_] :> 
  -(S2[a2, n]*S2[a1, a6, a3, a4, a5, n]) - S2[a1, a6, a3, a4, SP[a2, a5], 
     n] - S2[a1, a6, a3, SP[a2, a4], a5, n] - S2[a1, a6, SP[a2, a3], a4, a5, 
     n] - S2[a1, SP[a2, a6], a3, a4, a5, n] + 
    S2[a1, n]*S2[a2, a6, a3, a4, a5, n] + S2[a2, a6, a3, a4, SP[a1, a5], n] + 
    S2[a2, a6, a3, SP[a1, a4], a5, n] + S2[a2, a6, SP[a1, a3], a4, a5, n] + 
    S2[a2, SP[a1, a6], a3, a4, a5, n] - S2[a2, n]*S2[a6, a1, a3, a4, a5, n] - 
    S2[a6, a1, a3, a4, SP[a2, a5], n] - S2[a6, a1, a3, SP[a2, a4], a5, n] - 
    S2[a6, a1, SP[a2, a3], a4, a5, n] + S2[a1, n]*S2[a6, a2, a3, a4, a5, n] + 
    S2[a6, a2, a3, a4, SP[a1, a5], n] + S2[a6, a2, a3, SP[a1, a4], a5, n] + 
    S2[a6, a2, SP[a1, a3], a4, a5, n] - S2[a2, n]*S2[a6, a3, a1, a4, a5, n] - 
    S2[a6, a3, a1, a4, SP[a2, a5], n] - S2[a6, a3, a1, SP[a2, a4], a5, n] + 
    S2[a1, n]*S2[a6, a3, a2, a4, a5, n] + S2[a6, a3, a2, a4, SP[a1, a5], n] + 
    S2[a6, a3, a2, SP[a1, a4], a5, n] - S2[a2, n]*S2[a6, a3, a4, a1, a5, n] - 
    S2[a6, a3, a4, a1, SP[a2, a5], n] + S2[a1, n]*S2[a6, a3, a4, a2, a5, n] + 
    S2[a6, a3, a4, a2, SP[a1, a5], n] + S2[a1, n]*S2[a6, a3, a4, a5, a2, n] + 
    S2[a6, a3, a4, a5, SP[a1, a2], n] + S2[a6, a3, a4, SP[a1, a5], a2, n] + 
    S2[a6, a3, SP[a1, a4], a2, a5, n] + S2[a6, a3, SP[a1, a4], a5, a2, n] - 
    S2[a6, a3, SP[a2, a4], a1, a5, n] + S2[a6, SP[a1, a3], a2, a4, a5, n] + 
    S2[a6, SP[a1, a3], a4, a2, a5, n] + S2[a6, SP[a1, a3], a4, a5, a2, n] - 
    S2[a6, SP[a2, a3], a1, a4, a5, n] - S2[a6, SP[a2, a3], a4, a1, a5, n] + 
    S2[SP[a1, a6], a2, a3, a4, a5, n] + S2[SP[a1, a6], a3, a2, a4, a5, n] + 
    S2[SP[a1, a6], a3, a4, a2, a5, n] + S2[SP[a1, a6], a3, a4, a5, a2, n] - 
    S2[SP[a2, a6], a1, a3, a4, a5, n] - S2[SP[a2, a6], a3, a1, a4, a5, n] - 
    S2[SP[a2, a6], a3, a4, a1, a5, n] - S2[a6, a2, a3, a4, a5, a1, n] - 
    S2[a6, a3, a2, a4, a5, a1, n] - S2[a6, a3, a4, a2, a5, a1, n] - 
    S2[a6, a3, a4, a5, a1, a2, n] - S2[a6, a3, a4, a5, a2, a1, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a2_, a6_, a3_, a5_, a1_, a4_, n_] :> 
  S2[a2, n]*S2[a6, a3, a5, a1, a4, n] + S2[a6, a3, a5, a1, SP[a2, a4], n] + 
    S2[a6, a3, a5, SP[a1, a2], a4, n] + S2[a6, a3, SP[a2, a5], a1, a4, n] + 
    S2[a6, SP[a2, a3], a5, a1, a4, n] + S2[SP[a2, a6], a3, a5, a1, a4, n] - 
    S2[a6, a2, a3, a5, a1, a4, n] - S2[a6, a3, a2, a5, a1, a4, n] - 
    S2[a6, a3, a5, a1, a2, a4, n] - S2[a6, a3, a5, a1, a4, a2, n] - 
    S2[a6, a3, a5, a2, a1, a4, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a2_, a6_, a3_, a5_, a4_, a1_, n_] :> 
  -(S2[a2, n]*S2[a1, a6, a3, a5, a4, n]) - S2[a1, a6, a3, a5, SP[a2, a4], 
     n] - S2[a1, a6, a3, SP[a2, a5], a4, n] - S2[a1, a6, SP[a2, a3], a5, a4, 
     n] - S2[a1, SP[a2, a6], a3, a5, a4, n] + 
    S2[a1, n]*S2[a2, a6, a3, a5, a4, n] + S2[a2, a6, a3, a5, SP[a1, a4], n] + 
    S2[a2, a6, a3, SP[a1, a5], a4, n] + S2[a2, a6, SP[a1, a3], a5, a4, n] + 
    S2[a2, SP[a1, a6], a3, a5, a4, n] - S2[a2, n]*S2[a6, a1, a3, a5, a4, n] - 
    S2[a6, a1, a3, a5, SP[a2, a4], n] - S2[a6, a1, a3, SP[a2, a5], a4, n] - 
    S2[a6, a1, SP[a2, a3], a5, a4, n] + S2[a1, n]*S2[a6, a2, a3, a5, a4, n] + 
    S2[a6, a2, a3, a5, SP[a1, a4], n] + S2[a6, a2, a3, SP[a1, a5], a4, n] + 
    S2[a6, a2, SP[a1, a3], a5, a4, n] - S2[a2, n]*S2[a6, a3, a1, a5, a4, n] - 
    S2[a6, a3, a1, a5, SP[a2, a4], n] - S2[a6, a3, a1, SP[a2, a5], a4, n] + 
    S2[a1, n]*S2[a6, a3, a2, a5, a4, n] + S2[a6, a3, a2, a5, SP[a1, a4], n] + 
    S2[a6, a3, a2, SP[a1, a5], a4, n] - S2[a2, n]*S2[a6, a3, a5, a1, a4, n] - 
    S2[a6, a3, a5, a1, SP[a2, a4], n] + S2[a1, n]*S2[a6, a3, a5, a2, a4, n] + 
    S2[a6, a3, a5, a2, SP[a1, a4], n] + S2[a1, n]*S2[a6, a3, a5, a4, a2, n] + 
    S2[a6, a3, a5, a4, SP[a1, a2], n] + S2[a6, a3, a5, SP[a1, a4], a2, n] + 
    S2[a6, a3, SP[a1, a5], a2, a4, n] + S2[a6, a3, SP[a1, a5], a4, a2, n] - 
    S2[a6, a3, SP[a2, a5], a1, a4, n] + S2[a6, SP[a1, a3], a2, a5, a4, n] + 
    S2[a6, SP[a1, a3], a5, a2, a4, n] + S2[a6, SP[a1, a3], a5, a4, a2, n] - 
    S2[a6, SP[a2, a3], a1, a5, a4, n] - S2[a6, SP[a2, a3], a5, a1, a4, n] + 
    S2[SP[a1, a6], a2, a3, a5, a4, n] + S2[SP[a1, a6], a3, a2, a5, a4, n] + 
    S2[SP[a1, a6], a3, a5, a2, a4, n] + S2[SP[a1, a6], a3, a5, a4, a2, n] - 
    S2[SP[a2, a6], a1, a3, a5, a4, n] - S2[SP[a2, a6], a3, a1, a5, a4, n] - 
    S2[SP[a2, a6], a3, a5, a1, a4, n] - S2[a6, a2, a3, a5, a4, a1, n] - 
    S2[a6, a3, a2, a5, a4, a1, n] - S2[a6, a3, a5, a2, a4, a1, n] - 
    S2[a6, a3, a5, a4, a1, a2, n] - S2[a6, a3, a5, a4, a2, a1, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a2_, a6_, a4_, a1_, a3_, a5_, n_] :> 
  S2[a2, n]*S2[a6, a4, a1, a3, a5, n] + S2[a6, a4, a1, a3, SP[a2, a5], n] + 
    S2[a6, a4, a1, SP[a2, a3], a5, n] + S2[a6, a4, SP[a1, a2], a3, a5, n] + 
    S2[a6, SP[a2, a4], a1, a3, a5, n] + S2[SP[a2, a6], a4, a1, a3, a5, n] - 
    S2[a6, a2, a4, a1, a3, a5, n] - S2[a6, a4, a1, a2, a3, a5, n] - 
    S2[a6, a4, a1, a3, a2, a5, n] - S2[a6, a4, a1, a3, a5, a2, n] - 
    S2[a6, a4, a2, a1, a3, a5, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a2_, a6_, a4_, a1_, a5_, a3_, n_] :> 
  S2[a2, n]*S2[a6, a4, a1, a5, a3, n] + S2[a6, a4, a1, a5, SP[a2, a3], n] + 
    S2[a6, a4, a1, SP[a2, a5], a3, n] + S2[a6, a4, SP[a1, a2], a5, a3, n] + 
    S2[a6, SP[a2, a4], a1, a5, a3, n] + S2[SP[a2, a6], a4, a1, a5, a3, n] - 
    S2[a6, a2, a4, a1, a5, a3, n] - S2[a6, a4, a1, a2, a5, a3, n] - 
    S2[a6, a4, a1, a5, a2, a3, n] - S2[a6, a4, a1, a5, a3, a2, n] - 
    S2[a6, a4, a2, a1, a5, a3, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a2_, a6_, a4_, a3_, a1_, a5_, n_] :> 
  S2[a2, n]*S2[a6, a4, a3, a1, a5, n] + S2[a6, a4, a3, a1, SP[a2, a5], n] + 
    S2[a6, a4, a3, SP[a1, a2], a5, n] + S2[a6, a4, SP[a2, a3], a1, a5, n] + 
    S2[a6, SP[a2, a4], a3, a1, a5, n] + S2[SP[a2, a6], a4, a3, a1, a5, n] - 
    S2[a6, a2, a4, a3, a1, a5, n] - S2[a6, a4, a2, a3, a1, a5, n] - 
    S2[a6, a4, a3, a1, a2, a5, n] - S2[a6, a4, a3, a1, a5, a2, n] - 
    S2[a6, a4, a3, a2, a1, a5, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a2_, a6_, a4_, a3_, a5_, a1_, n_] :> 
  -(S2[a2, n]*S2[a1, a6, a4, a3, a5, n]) - S2[a1, a6, a4, a3, SP[a2, a5], 
     n] - S2[a1, a6, a4, SP[a2, a3], a5, n] - S2[a1, a6, SP[a2, a4], a3, a5, 
     n] - S2[a1, SP[a2, a6], a4, a3, a5, n] + 
    S2[a1, n]*S2[a2, a6, a4, a3, a5, n] + S2[a2, a6, a4, a3, SP[a1, a5], n] + 
    S2[a2, a6, a4, SP[a1, a3], a5, n] + S2[a2, a6, SP[a1, a4], a3, a5, n] + 
    S2[a2, SP[a1, a6], a4, a3, a5, n] - S2[a2, n]*S2[a6, a1, a4, a3, a5, n] - 
    S2[a6, a1, a4, a3, SP[a2, a5], n] - S2[a6, a1, a4, SP[a2, a3], a5, n] - 
    S2[a6, a1, SP[a2, a4], a3, a5, n] + S2[a1, n]*S2[a6, a2, a4, a3, a5, n] + 
    S2[a6, a2, a4, a3, SP[a1, a5], n] + S2[a6, a2, a4, SP[a1, a3], a5, n] + 
    S2[a6, a2, SP[a1, a4], a3, a5, n] - S2[a2, n]*S2[a6, a4, a1, a3, a5, n] - 
    S2[a6, a4, a1, a3, SP[a2, a5], n] - S2[a6, a4, a1, SP[a2, a3], a5, n] + 
    S2[a1, n]*S2[a6, a4, a2, a3, a5, n] + S2[a6, a4, a2, a3, SP[a1, a5], n] + 
    S2[a6, a4, a2, SP[a1, a3], a5, n] - S2[a2, n]*S2[a6, a4, a3, a1, a5, n] - 
    S2[a6, a4, a3, a1, SP[a2, a5], n] + S2[a1, n]*S2[a6, a4, a3, a2, a5, n] + 
    S2[a6, a4, a3, a2, SP[a1, a5], n] + S2[a1, n]*S2[a6, a4, a3, a5, a2, n] + 
    S2[a6, a4, a3, a5, SP[a1, a2], n] + S2[a6, a4, a3, SP[a1, a5], a2, n] + 
    S2[a6, a4, SP[a1, a3], a2, a5, n] + S2[a6, a4, SP[a1, a3], a5, a2, n] - 
    S2[a6, a4, SP[a2, a3], a1, a5, n] + S2[a6, SP[a1, a4], a2, a3, a5, n] + 
    S2[a6, SP[a1, a4], a3, a2, a5, n] + S2[a6, SP[a1, a4], a3, a5, a2, n] - 
    S2[a6, SP[a2, a4], a1, a3, a5, n] - S2[a6, SP[a2, a4], a3, a1, a5, n] + 
    S2[SP[a1, a6], a2, a4, a3, a5, n] + S2[SP[a1, a6], a4, a2, a3, a5, n] + 
    S2[SP[a1, a6], a4, a3, a2, a5, n] + S2[SP[a1, a6], a4, a3, a5, a2, n] - 
    S2[SP[a2, a6], a1, a4, a3, a5, n] - S2[SP[a2, a6], a4, a1, a3, a5, n] - 
    S2[SP[a2, a6], a4, a3, a1, a5, n] - S2[a6, a2, a4, a3, a5, a1, n] - 
    S2[a6, a4, a2, a3, a5, a1, n] - S2[a6, a4, a3, a2, a5, a1, n] - 
    S2[a6, a4, a3, a5, a1, a2, n] - S2[a6, a4, a3, a5, a2, a1, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a2_, a6_, a4_, a5_, a1_, a3_, n_] :> 
  S2[a2, n]*S2[a6, a4, a5, a1, a3, n] + S2[a6, a4, a5, a1, SP[a2, a3], n] + 
    S2[a6, a4, a5, SP[a1, a2], a3, n] + S2[a6, a4, SP[a2, a5], a1, a3, n] + 
    S2[a6, SP[a2, a4], a5, a1, a3, n] + S2[SP[a2, a6], a4, a5, a1, a3, n] - 
    S2[a6, a2, a4, a5, a1, a3, n] - S2[a6, a4, a2, a5, a1, a3, n] - 
    S2[a6, a4, a5, a1, a2, a3, n] - S2[a6, a4, a5, a1, a3, a2, n] - 
    S2[a6, a4, a5, a2, a1, a3, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a2_, a6_, a4_, a5_, a3_, a1_, n_] :> 
  -(S2[a2, n]*S2[a1, a6, a4, a5, a3, n]) - S2[a1, a6, a4, a5, SP[a2, a3], 
     n] - S2[a1, a6, a4, SP[a2, a5], a3, n] - S2[a1, a6, SP[a2, a4], a5, a3, 
     n] - S2[a1, SP[a2, a6], a4, a5, a3, n] + 
    S2[a1, n]*S2[a2, a6, a4, a5, a3, n] + S2[a2, a6, a4, a5, SP[a1, a3], n] + 
    S2[a2, a6, a4, SP[a1, a5], a3, n] + S2[a2, a6, SP[a1, a4], a5, a3, n] + 
    S2[a2, SP[a1, a6], a4, a5, a3, n] - S2[a2, n]*S2[a6, a1, a4, a5, a3, n] - 
    S2[a6, a1, a4, a5, SP[a2, a3], n] - S2[a6, a1, a4, SP[a2, a5], a3, n] - 
    S2[a6, a1, SP[a2, a4], a5, a3, n] + S2[a1, n]*S2[a6, a2, a4, a5, a3, n] + 
    S2[a6, a2, a4, a5, SP[a1, a3], n] + S2[a6, a2, a4, SP[a1, a5], a3, n] + 
    S2[a6, a2, SP[a1, a4], a5, a3, n] - S2[a2, n]*S2[a6, a4, a1, a5, a3, n] - 
    S2[a6, a4, a1, a5, SP[a2, a3], n] - S2[a6, a4, a1, SP[a2, a5], a3, n] + 
    S2[a1, n]*S2[a6, a4, a2, a5, a3, n] + S2[a6, a4, a2, a5, SP[a1, a3], n] + 
    S2[a6, a4, a2, SP[a1, a5], a3, n] - S2[a2, n]*S2[a6, a4, a5, a1, a3, n] - 
    S2[a6, a4, a5, a1, SP[a2, a3], n] + S2[a1, n]*S2[a6, a4, a5, a2, a3, n] + 
    S2[a6, a4, a5, a2, SP[a1, a3], n] + S2[a1, n]*S2[a6, a4, a5, a3, a2, n] + 
    S2[a6, a4, a5, a3, SP[a1, a2], n] + S2[a6, a4, a5, SP[a1, a3], a2, n] + 
    S2[a6, a4, SP[a1, a5], a2, a3, n] + S2[a6, a4, SP[a1, a5], a3, a2, n] - 
    S2[a6, a4, SP[a2, a5], a1, a3, n] + S2[a6, SP[a1, a4], a2, a5, a3, n] + 
    S2[a6, SP[a1, a4], a5, a2, a3, n] + S2[a6, SP[a1, a4], a5, a3, a2, n] - 
    S2[a6, SP[a2, a4], a1, a5, a3, n] - S2[a6, SP[a2, a4], a5, a1, a3, n] + 
    S2[SP[a1, a6], a2, a4, a5, a3, n] + S2[SP[a1, a6], a4, a2, a5, a3, n] + 
    S2[SP[a1, a6], a4, a5, a2, a3, n] + S2[SP[a1, a6], a4, a5, a3, a2, n] - 
    S2[SP[a2, a6], a1, a4, a5, a3, n] - S2[SP[a2, a6], a4, a1, a5, a3, n] - 
    S2[SP[a2, a6], a4, a5, a1, a3, n] - S2[a6, a2, a4, a5, a3, a1, n] - 
    S2[a6, a4, a2, a5, a3, a1, n] - S2[a6, a4, a5, a2, a3, a1, n] - 
    S2[a6, a4, a5, a3, a1, a2, n] - S2[a6, a4, a5, a3, a2, a1, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a2_, a6_, a5_, a1_, a3_, a4_, n_] :> 
  S2[a2, n]*S2[a6, a5, a1, a3, a4, n] + S2[a6, a5, a1, a3, SP[a2, a4], n] + 
    S2[a6, a5, a1, SP[a2, a3], a4, n] + S2[a6, a5, SP[a1, a2], a3, a4, n] + 
    S2[a6, SP[a2, a5], a1, a3, a4, n] + S2[SP[a2, a6], a5, a1, a3, a4, n] - 
    S2[a6, a2, a5, a1, a3, a4, n] - S2[a6, a5, a1, a2, a3, a4, n] - 
    S2[a6, a5, a1, a3, a2, a4, n] - S2[a6, a5, a1, a3, a4, a2, n] - 
    S2[a6, a5, a2, a1, a3, a4, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a2_, a6_, a5_, a1_, a4_, a3_, n_] :> 
  S2[a2, n]*S2[a6, a5, a1, a4, a3, n] + S2[a6, a5, a1, a4, SP[a2, a3], n] + 
    S2[a6, a5, a1, SP[a2, a4], a3, n] + S2[a6, a5, SP[a1, a2], a4, a3, n] + 
    S2[a6, SP[a2, a5], a1, a4, a3, n] + S2[SP[a2, a6], a5, a1, a4, a3, n] - 
    S2[a6, a2, a5, a1, a4, a3, n] - S2[a6, a5, a1, a2, a4, a3, n] - 
    S2[a6, a5, a1, a4, a2, a3, n] - S2[a6, a5, a1, a4, a3, a2, n] - 
    S2[a6, a5, a2, a1, a4, a3, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a2_, a6_, a5_, a3_, a1_, a4_, n_] :> 
  S2[a2, n]*S2[a6, a5, a3, a1, a4, n] + S2[a6, a5, a3, a1, SP[a2, a4], n] + 
    S2[a6, a5, a3, SP[a1, a2], a4, n] + S2[a6, a5, SP[a2, a3], a1, a4, n] + 
    S2[a6, SP[a2, a5], a3, a1, a4, n] + S2[SP[a2, a6], a5, a3, a1, a4, n] - 
    S2[a6, a2, a5, a3, a1, a4, n] - S2[a6, a5, a2, a3, a1, a4, n] - 
    S2[a6, a5, a3, a1, a2, a4, n] - S2[a6, a5, a3, a1, a4, a2, n] - 
    S2[a6, a5, a3, a2, a1, a4, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a2_, a6_, a5_, a3_, a4_, a1_, n_] :> 
  -(S2[a2, n]*S2[a1, a6, a5, a3, a4, n]) - S2[a1, a6, a5, a3, SP[a2, a4], 
     n] - S2[a1, a6, a5, SP[a2, a3], a4, n] - S2[a1, a6, SP[a2, a5], a3, a4, 
     n] - S2[a1, SP[a2, a6], a5, a3, a4, n] + 
    S2[a1, n]*S2[a2, a6, a5, a3, a4, n] + S2[a2, a6, a5, a3, SP[a1, a4], n] + 
    S2[a2, a6, a5, SP[a1, a3], a4, n] + S2[a2, a6, SP[a1, a5], a3, a4, n] + 
    S2[a2, SP[a1, a6], a5, a3, a4, n] - S2[a2, n]*S2[a6, a1, a5, a3, a4, n] - 
    S2[a6, a1, a5, a3, SP[a2, a4], n] - S2[a6, a1, a5, SP[a2, a3], a4, n] - 
    S2[a6, a1, SP[a2, a5], a3, a4, n] + S2[a1, n]*S2[a6, a2, a5, a3, a4, n] + 
    S2[a6, a2, a5, a3, SP[a1, a4], n] + S2[a6, a2, a5, SP[a1, a3], a4, n] + 
    S2[a6, a2, SP[a1, a5], a3, a4, n] - S2[a2, n]*S2[a6, a5, a1, a3, a4, n] - 
    S2[a6, a5, a1, a3, SP[a2, a4], n] - S2[a6, a5, a1, SP[a2, a3], a4, n] + 
    S2[a1, n]*S2[a6, a5, a2, a3, a4, n] + S2[a6, a5, a2, a3, SP[a1, a4], n] + 
    S2[a6, a5, a2, SP[a1, a3], a4, n] - S2[a2, n]*S2[a6, a5, a3, a1, a4, n] - 
    S2[a6, a5, a3, a1, SP[a2, a4], n] + S2[a1, n]*S2[a6, a5, a3, a2, a4, n] + 
    S2[a6, a5, a3, a2, SP[a1, a4], n] + S2[a1, n]*S2[a6, a5, a3, a4, a2, n] + 
    S2[a6, a5, a3, a4, SP[a1, a2], n] + S2[a6, a5, a3, SP[a1, a4], a2, n] + 
    S2[a6, a5, SP[a1, a3], a2, a4, n] + S2[a6, a5, SP[a1, a3], a4, a2, n] - 
    S2[a6, a5, SP[a2, a3], a1, a4, n] + S2[a6, SP[a1, a5], a2, a3, a4, n] + 
    S2[a6, SP[a1, a5], a3, a2, a4, n] + S2[a6, SP[a1, a5], a3, a4, a2, n] - 
    S2[a6, SP[a2, a5], a1, a3, a4, n] - S2[a6, SP[a2, a5], a3, a1, a4, n] + 
    S2[SP[a1, a6], a2, a5, a3, a4, n] + S2[SP[a1, a6], a5, a2, a3, a4, n] + 
    S2[SP[a1, a6], a5, a3, a2, a4, n] + S2[SP[a1, a6], a5, a3, a4, a2, n] - 
    S2[SP[a2, a6], a1, a5, a3, a4, n] - S2[SP[a2, a6], a5, a1, a3, a4, n] - 
    S2[SP[a2, a6], a5, a3, a1, a4, n] - S2[a6, a2, a5, a3, a4, a1, n] - 
    S2[a6, a5, a2, a3, a4, a1, n] - S2[a6, a5, a3, a2, a4, a1, n] - 
    S2[a6, a5, a3, a4, a1, a2, n] - S2[a6, a5, a3, a4, a2, a1, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a2_, a6_, a5_, a4_, a1_, a3_, n_] :> 
  S2[a2, n]*S2[a6, a5, a4, a1, a3, n] + S2[a6, a5, a4, a1, SP[a2, a3], n] + 
    S2[a6, a5, a4, SP[a1, a2], a3, n] + S2[a6, a5, SP[a2, a4], a1, a3, n] + 
    S2[a6, SP[a2, a5], a4, a1, a3, n] + S2[SP[a2, a6], a5, a4, a1, a3, n] - 
    S2[a6, a2, a5, a4, a1, a3, n] - S2[a6, a5, a2, a4, a1, a3, n] - 
    S2[a6, a5, a4, a1, a2, a3, n] - S2[a6, a5, a4, a1, a3, a2, n] - 
    S2[a6, a5, a4, a2, a1, a3, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a2_, a6_, a5_, a4_, a3_, a1_, n_] :> 
  -(S2[a2, n]*S2[a1, a6, a5, a4, a3, n]) - S2[a1, a6, a5, a4, SP[a2, a3], 
     n] - S2[a1, a6, a5, SP[a2, a4], a3, n] - S2[a1, a6, SP[a2, a5], a4, a3, 
     n] - S2[a1, SP[a2, a6], a5, a4, a3, n] + 
    S2[a1, n]*S2[a2, a6, a5, a4, a3, n] + S2[a2, a6, a5, a4, SP[a1, a3], n] + 
    S2[a2, a6, a5, SP[a1, a4], a3, n] + S2[a2, a6, SP[a1, a5], a4, a3, n] + 
    S2[a2, SP[a1, a6], a5, a4, a3, n] - S2[a2, n]*S2[a6, a1, a5, a4, a3, n] - 
    S2[a6, a1, a5, a4, SP[a2, a3], n] - S2[a6, a1, a5, SP[a2, a4], a3, n] - 
    S2[a6, a1, SP[a2, a5], a4, a3, n] + S2[a1, n]*S2[a6, a2, a5, a4, a3, n] + 
    S2[a6, a2, a5, a4, SP[a1, a3], n] + S2[a6, a2, a5, SP[a1, a4], a3, n] + 
    S2[a6, a2, SP[a1, a5], a4, a3, n] - S2[a2, n]*S2[a6, a5, a1, a4, a3, n] - 
    S2[a6, a5, a1, a4, SP[a2, a3], n] - S2[a6, a5, a1, SP[a2, a4], a3, n] + 
    S2[a1, n]*S2[a6, a5, a2, a4, a3, n] + S2[a6, a5, a2, a4, SP[a1, a3], n] + 
    S2[a6, a5, a2, SP[a1, a4], a3, n] - S2[a2, n]*S2[a6, a5, a4, a1, a3, n] - 
    S2[a6, a5, a4, a1, SP[a2, a3], n] + S2[a1, n]*S2[a6, a5, a4, a2, a3, n] + 
    S2[a6, a5, a4, a2, SP[a1, a3], n] + S2[a1, n]*S2[a6, a5, a4, a3, a2, n] + 
    S2[a6, a5, a4, a3, SP[a1, a2], n] + S2[a6, a5, a4, SP[a1, a3], a2, n] + 
    S2[a6, a5, SP[a1, a4], a2, a3, n] + S2[a6, a5, SP[a1, a4], a3, a2, n] - 
    S2[a6, a5, SP[a2, a4], a1, a3, n] + S2[a6, SP[a1, a5], a2, a4, a3, n] + 
    S2[a6, SP[a1, a5], a4, a2, a3, n] + S2[a6, SP[a1, a5], a4, a3, a2, n] - 
    S2[a6, SP[a2, a5], a1, a4, a3, n] - S2[a6, SP[a2, a5], a4, a1, a3, n] + 
    S2[SP[a1, a6], a2, a5, a4, a3, n] + S2[SP[a1, a6], a5, a2, a4, a3, n] + 
    S2[SP[a1, a6], a5, a4, a2, a3, n] + S2[SP[a1, a6], a5, a4, a3, a2, n] - 
    S2[SP[a2, a6], a1, a5, a4, a3, n] - S2[SP[a2, a6], a5, a1, a4, a3, n] - 
    S2[SP[a2, a6], a5, a4, a1, a3, n] - S2[a6, a2, a5, a4, a3, a1, n] - 
    S2[a6, a5, a2, a4, a3, a1, n] - S2[a6, a5, a4, a2, a3, a1, n] - 
    S2[a6, a5, a4, a3, a1, a2, n] - S2[a6, a5, a4, a3, a2, a1, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a3_, a1_, a2_, a4_, a5_, a6_, n_] :> 
  -(S2[a1, a2, a3, n]*S2[a4, a5, a6, n]) - S2[a1, a3, a2, n]*
     S2[a4, a5, a6, n] - S2[SP[a1, a4], SP[a2, a5], SP[a3, a6], n] - 
    S2[SP[a1, a4], SP[a3, a5], SP[a2, a6], n] - 
    S2[a5, a6, n]*S2[a1, a2, a3, a4, n] - S2[a5, a6, n]*
     S2[a1, a2, a4, a3, n] + S2[a1, a2, SP[a3, a5], SP[a4, a6], n] + 
    S2[a1, a2, SP[a4, a5], SP[a3, a6], n] - S2[a5, a6, n]*
     S2[a1, a3, a2, a4, n] + S2[a1, a3, SP[a2, a5], SP[a4, a6], n] + 
    S2[a1, a4, SP[a2, a5], SP[a3, a6], n] + S2[a1, a4, SP[a3, a5], 
     SP[a2, a6], n] + S2[a1, SP[a2, a4], a5, SP[a3, a6], n] + 
    S2[a1, SP[a2, a4], SP[a3, a5], a6, n] + S2[a1, SP[a2, a5], a3, 
     SP[a4, a6], n] + S2[a1, SP[a2, a5], a4, SP[a3, a6], n] + 
    S2[a1, SP[a2, a5], SP[a3, a6], a4, n] + S2[a1, SP[a2, a5], SP[a4, a6], 
     a3, n] + S2[a1, SP[a3, a4], a5, SP[a2, a6], n] + 
    S2[a1, SP[a3, a4], SP[a2, a5], a6, n] + S2[a1, SP[a3, a5], a2, 
     SP[a4, a6], n] + S2[a1, SP[a3, a5], SP[a2, a6], a4, n] - 
    S2[a1, a3, n]*S2[a2, a4, a5, a6, n] - S2[a1, a3, n]*
     S2[a2, a4, a6, a5, n] + S2[a2, a4, SP[a1, a5], SP[a3, a6], n] + 
    S2[a2, a4, SP[a1, a6], SP[a3, a5], n] - S2[a1, a3, n]*
     S2[a2, a6, a4, a5, n] - S2[a1, a3, n]*S2[a2, a6, a5, a4, n] + 
    S2[a2, a6, SP[a1, a4], SP[a3, a5], n] + S2[a2, a6, SP[a1, a5], 
     SP[a3, a4], n] + S2[a2, SP[a1, a4], a5, SP[a3, a6], n] + 
    S2[a2, SP[a1, a4], a6, SP[a3, a5], n] + S2[a2, SP[a1, a4], SP[a3, a5], 
     a6, n] + S2[a2, SP[a1, a4], SP[a3, a6], a5, n] + 
    S2[a2, SP[a1, a6], a4, SP[a3, a5], n] + S2[a2, SP[a1, a6], a5, 
     SP[a3, a4], n] + S2[a2, SP[a1, a6], SP[a3, a4], a5, n] + 
    S2[a2, SP[a1, a6], SP[a3, a5], a4, n] + S2[a4, a1, SP[a2, a5], 
     SP[a3, a6], n] + S2[a4, a1, SP[a3, a5], SP[a2, a6], n] + 
    S2[a4, SP[a1, a5], a2, SP[a3, a6], n] + S2[a4, SP[a1, a5], a3, 
     SP[a2, a6], n] + S2[a4, SP[a1, a5], SP[a2, a6], a3, n] + 
    S2[a4, SP[a1, a5], SP[a3, a6], a2, n] + S2[a1, a3, n]*
     S2[a5, a6, a2, a4, n] - S2[a5, a6, SP[a1, a2], SP[a3, a4], n] - 
    S2[a5, SP[a1, a6], a2, SP[a3, a4], n] - S2[a5, SP[a1, a6], SP[a2, a3], 
     a4, n] + S2[SP[a1, a2], a4, a5, SP[a3, a6], n] + 
    S2[SP[a1, a2], a4, a6, SP[a3, a5], n] + S2[SP[a1, a2], a4, SP[a3, a5], 
     a6, n] + S2[SP[a1, a2], a4, SP[a3, a6], a5, n] + 
    S2[SP[a1, a2], a6, a4, SP[a3, a5], n] + S2[SP[a1, a2], a6, a5, 
     SP[a3, a4], n] + S2[SP[a1, a2], a6, SP[a3, a4], a5, n] + 
    S2[SP[a1, a2], a6, SP[a3, a5], a4, n] + S2[SP[a1, a2], SP[a3, a4], a5, 
     a6, n] + S2[SP[a1, a2], SP[a3, a4], a6, a5, n] + 
    S2[SP[a1, a2], SP[a3, a6], a4, a5, n] + S2[SP[a1, a2], SP[a3, a6], a5, 
     a4, n] + S2[SP[a1, a4], a2, a5, SP[a3, a6], n] + 
    S2[SP[a1, a4], a2, SP[a3, a5], a6, n] + S2[SP[a1, a4], a3, a5, 
     SP[a2, a6], n] + S2[SP[a1, a4], a3, SP[a2, a5], a6, n] + 
    S2[SP[a1, a4], a5, a2, SP[a3, a6], n] + S2[SP[a1, a4], a5, a3, 
     SP[a2, a6], n] + S2[SP[a1, a4], a5, SP[a2, a6], a3, n] + 
    S2[SP[a1, a4], a5, SP[a3, a6], a2, n] + S2[SP[a1, a4], SP[a2, a5], a3, 
     a6, n] + S2[SP[a1, a4], SP[a2, a5], a6, a3, n] + 
    S2[SP[a1, a4], SP[a3, a5], a2, a6, n] + S2[SP[a1, a4], SP[a3, a5], a6, 
     a2, n] + S2[SP[a1, a5], a2, a3, SP[a4, a6], n] + 
    S2[SP[a1, a5], a2, a4, SP[a3, a6], n] + S2[SP[a1, a5], a2, SP[a3, a6], 
     a4, n] + S2[SP[a1, a5], a2, SP[a4, a6], a3, n] + 
    S2[SP[a1, a5], a3, a2, SP[a4, a6], n] + S2[SP[a1, a5], a3, SP[a2, a6], 
     a4, n] - S2[SP[a1, a5], a6, a2, SP[a3, a4], n] - 
    S2[SP[a1, a5], a6, SP[a2, a3], a4, n] + S2[SP[a1, a5], SP[a2, a6], a3, 
     a4, n] + S2[SP[a1, a5], SP[a2, a6], a4, a3, n] - 
    S2[a6, n]*S2[a1, a2, a3, a4, a5, n] + 
    S2[a5, n]*S2[a1, a2, a3, a4, a6, n] - 
    S2[a6, n]*S2[a1, a2, a3, a5, a4, n] + 
    S2[a4, n]*S2[a1, a2, a3, a5, a6, n] - S2[a1, a2, a3, a5, SP[a4, a6], n] + 
    S2[a5, n]*S2[a1, a2, a3, a6, a4, n] + S2[a1, a2, a3, a6, SP[a4, a5], n] + 
    S2[a1, a2, a3, SP[a4, a5], a6, n] - S2[a1, a2, a3, SP[a4, a6], a5, n] - 
    S2[a6, n]*S2[a1, a2, a4, a3, a5, n] + 
    S2[a5, n]*S2[a1, a2, a4, a3, a6, n] - 
    S2[a6, n]*S2[a1, a2, a4, a5, a3, n] + 
    S2[a3, n]*S2[a1, a2, a4, a5, a6, n] - 
    3*S2[a1, a2, a4, a5, SP[a3, a6], n] + 
    S2[a5, n]*S2[a1, a2, a4, a6, a3, n] - S2[a1, a2, a4, SP[a3, a5], a6, n] - 
    2*S2[a1, a2, a4, SP[a3, a6], a5, n] - 
    S2[a6, n]*S2[a1, a2, a5, a3, a4, n] + 
    S2[a4, n]*S2[a1, a2, a5, a3, a6, n] - S2[a1, a2, a5, a3, SP[a4, a6], n] - 
    S2[a6, n]*S2[a1, a2, a5, a4, a3, n] - 
    2*S2[a1, a2, a5, a4, SP[a3, a6], n] + 
    S2[a4, n]*S2[a1, a2, a5, a6, a3, n] + S2[a1, a2, a5, a6, SP[a3, a4], n] + 
    S2[a1, a2, a5, SP[a3, a4], a6, n] - 2*S2[a1, a2, a5, SP[a3, a6], a4, n] - 
    S2[a1, a2, a5, SP[a4, a6], a3, n] + S2[a5, n]*S2[a1, a2, a6, a3, a4, n] + 
    S2[a1, a2, a6, a3, SP[a4, a5], n] + S2[a5, n]*S2[a1, a2, a6, a4, a3, n] - 
    S2[a1, a2, a6, a5, SP[a3, a4], n] - S2[a1, a2, a6, SP[a3, a4], a5, n] + 
    S2[a1, a2, a6, SP[a4, a5], a3, n] - S2[a1, a2, SP[a3, a4], a6, a5, n] - 
    2*S2[a1, a2, SP[a3, a6], a4, a5, n] - 
    2*S2[a1, a2, SP[a3, a6], a5, a4, n] + S2[a1, a2, SP[a4, a5], a3, a6, n] + 
    S2[a1, a2, SP[a4, a5], a6, a3, n] - S2[a1, a2, SP[a4, a6], a3, a5, n] - 
    S2[a1, a2, SP[a4, a6], a5, a3, n] - S2[a6, n]*S2[a1, a3, a2, a4, a5, n] + 
    S2[a5, n]*S2[a1, a3, a2, a4, a6, n] - 
    S2[a6, n]*S2[a1, a3, a2, a5, a4, n] + 
    S2[a4, n]*S2[a1, a3, a2, a5, a6, n] - S2[a1, a3, a2, a5, SP[a4, a6], n] + 
    S2[a5, n]*S2[a1, a3, a2, a6, a4, n] + S2[a1, a3, a2, a6, SP[a4, a5], n] + 
    S2[a1, a3, a2, SP[a4, a5], a6, n] - S2[a1, a3, a2, SP[a4, a6], a5, n] - 
    S2[a6, n]*S2[a1, a3, a4, a2, a5, n] - S2[a1, a3, a4, a2, SP[a5, a6], n] - 
    S2[a6, n]*S2[a1, a3, a4, a5, a2, n] + 
    S2[a2, n]*S2[a1, a3, a4, a5, a6, n] - S2[a1, a3, a4, a5, SP[a2, a6], n] + 
    S2[a2, n]*S2[a1, a3, a4, a6, a5, n] + S2[a1, a3, a4, a6, SP[a2, a5], n] - 
    S2[a1, a3, a4, SP[a5, a6], a2, n] - S2[a6, n]*S2[a1, a3, a5, a2, a4, n] + 
    S2[a4, n]*S2[a1, a3, a5, a2, a6, n] - S2[a1, a3, a5, a2, SP[a4, a6], n] - 
    S2[a6, n]*S2[a1, a3, a5, a4, a2, n] - S2[a1, a3, a5, a4, SP[a2, a6], n] + 
    S2[a4, n]*S2[a1, a3, a5, a6, a2, n] + S2[a1, a3, a5, a6, SP[a2, a4], n] + 
    S2[a1, a3, a5, SP[a2, a4], a6, n] - 2*S2[a1, a3, a5, SP[a2, a6], a4, n] + 
    S2[a2, n]*S2[a1, a3, a6, a4, a5, n] + S2[a1, a3, a6, a4, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a3, a6, a5, a4, n] + S2[a1, a3, a6, a5, SP[a2, a4], n] + 
    S2[a1, a3, a6, SP[a2, a4], a5, n] + S2[a1, a3, a6, SP[a2, a5], a4, n] + 
    S2[a1, a3, SP[a2, a4], a5, a6, n] + S2[a1, a3, SP[a2, a4], a6, a5, n] + 
    S2[a1, a3, SP[a4, a5], a2, a6, n] + S2[a1, a3, SP[a4, a5], a6, a2, n] - 
    S2[a1, a3, SP[a4, a6], a2, a5, n] - S2[a1, a3, SP[a4, a6], a5, a2, n] - 
    S2[a1, a3, SP[a5, a6], a2, a4, n] - S2[a1, a3, SP[a5, a6], a4, a2, n] - 
    S2[a6, n]*S2[a1, a4, a2, a3, a5, n] - S2[a1, a4, a2, a3, SP[a5, a6], n] - 
    S2[a6, n]*S2[a1, a4, a2, a5, a3, n] - 
    2*S2[a1, a4, a2, a5, SP[a3, a6], n] - S2[a1, a4, a2, SP[a3, a5], a6, n] - 
    S2[a1, a4, a2, SP[a3, a6], a5, n] - S2[a1, a4, a2, SP[a5, a6], a3, n] - 
    S2[a6, n]*S2[a1, a4, a3, a2, a5, n] - S2[a1, a4, a3, a2, SP[a5, a6], n] - 
    S2[a6, n]*S2[a1, a4, a3, a5, a2, n] + 
    S2[a2, n]*S2[a1, a4, a3, a5, a6, n] - S2[a1, a4, a3, a5, SP[a2, a6], n] + 
    S2[a2, n]*S2[a1, a4, a3, a6, a5, n] + S2[a1, a4, a3, a6, SP[a2, a5], n] - 
    S2[a1, a4, a3, SP[a5, a6], a2, n] - S2[a6, n]*S2[a1, a4, a5, a2, a3, n] - 
    2*S2[a1, a4, a5, a2, SP[a3, a6], n] - 
    S2[a6, n]*S2[a1, a4, a5, a3, a2, n] + 
    S2[a2, n]*S2[a1, a4, a5, a3, a6, n] - S2[a1, a4, a5, a3, SP[a2, a6], n] + 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] + S2[a1, a4, a5, a6, SP[a2, a3], n] + 
    S2[a1, a4, a5, SP[a2, a3], a6, n] - S2[a1, a4, a5, SP[a2, a6], a3, n] - 
    2*S2[a1, a4, a5, SP[a3, a6], a2, n] + 
    S2[a2, n]*S2[a1, a4, a6, a3, a5, n] + S2[a1, a4, a6, a3, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a4, a6, a5, a3, n] + S2[a1, a4, a6, a5, SP[a2, a3], n] + 
    S2[a1, a4, a6, SP[a2, a3], a5, n] + S2[a1, a4, a6, SP[a2, a5], a3, n] + 
    S2[a1, a4, SP[a2, a3], a5, a6, n] + S2[a1, a4, SP[a2, a3], a6, a5, n] - 
    S2[a1, a4, SP[a3, a5], a2, a6, n] - S2[a1, a4, SP[a3, a5], a6, a2, n] - 
    S2[a1, a4, SP[a3, a6], a2, a5, n] - S2[a1, a4, SP[a3, a6], a5, a2, n] - 
    S2[a1, a4, SP[a5, a6], a2, a3, n] - S2[a1, a4, SP[a5, a6], a3, a2, n] - 
    S2[a6, n]*S2[a1, a5, a2, a3, a4, n] + 
    S2[a4, n]*S2[a1, a5, a2, a3, a6, n] - S2[a1, a5, a2, a3, SP[a4, a6], n] - 
    S2[a6, n]*S2[a1, a5, a2, a4, a3, n] - 
    2*S2[a1, a5, a2, a4, SP[a3, a6], n] + 
    S2[a4, n]*S2[a1, a5, a2, a6, a3, n] + S2[a1, a5, a2, a6, SP[a3, a4], n] + 
    S2[a1, a5, a2, SP[a3, a4], a6, n] - 2*S2[a1, a5, a2, SP[a3, a6], a4, n] - 
    S2[a1, a5, a2, SP[a4, a6], a3, n] - S2[a6, n]*S2[a1, a5, a3, a2, a4, n] + 
    S2[a4, n]*S2[a1, a5, a3, a2, a6, n] - S2[a1, a5, a3, a2, SP[a4, a6], n] - 
    S2[a6, n]*S2[a1, a5, a3, a4, a2, n] - S2[a1, a5, a3, a4, SP[a2, a6], n] + 
    S2[a4, n]*S2[a1, a5, a3, a6, a2, n] + S2[a1, a5, a3, a6, SP[a2, a4], n] + 
    S2[a1, a5, a3, SP[a2, a4], a6, n] - 2*S2[a1, a5, a3, SP[a2, a6], a4, n] - 
    S2[a6, n]*S2[a1, a5, a4, a2, a3, n] - S2[a1, a5, a4, a2, SP[a3, a6], n] - 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] - S2[a1, a5, a4, a3, SP[a2, a6], n] - 
    S2[a1, a5, a4, SP[a2, a6], a3, n] - S2[a1, a5, a4, SP[a3, a6], a2, n] + 
    S2[a4, n]*S2[a1, a5, a6, a2, a3, n] + 
    2*S2[a1, a5, a6, a2, SP[a3, a4], n] + 
    S2[a4, n]*S2[a1, a5, a6, a3, a2, n] + S2[a1, a5, a6, a3, SP[a2, a4], n] + 
    S2[a1, a5, a6, SP[a2, a3], a4, n] + S2[a1, a5, a6, SP[a2, a4], a3, n] + 
    S2[a1, a5, a6, SP[a3, a4], a2, n] + S2[a1, a5, SP[a2, a4], a3, a6, n] + 
    S2[a1, a5, SP[a2, a4], a6, a3, n] - 2*S2[a1, a5, SP[a2, a6], a3, a4, n] - 
    2*S2[a1, a5, SP[a2, a6], a4, a3, n] + S2[a1, a5, SP[a3, a4], a2, a6, n] + 
    S2[a1, a5, SP[a3, a4], a6, a2, n] - S2[a1, a5, SP[a3, a6], a2, a4, n] - 
    S2[a1, a5, SP[a3, a6], a4, a2, n] + S2[a2, n]*S2[a1, a6, a3, a4, a5, n] + 
    S2[a1, a6, a3, a4, SP[a2, a5], n] + S2[a2, n]*S2[a1, a6, a3, a5, a4, n] + 
    S2[a1, a6, a3, a5, SP[a2, a4], n] + S2[a1, a6, a3, SP[a2, a4], a5, n] + 
    S2[a1, a6, a3, SP[a2, a5], a4, n] + S2[a2, n]*S2[a1, a6, a4, a3, a5, n] + 
    S2[a1, a6, a4, a3, SP[a2, a5], n] + S2[a2, n]*S2[a1, a6, a4, a5, a3, n] + 
    S2[a1, a6, a4, a5, SP[a2, a3], n] + S2[a1, a6, a4, SP[a2, a3], a5, n] + 
    S2[a1, a6, a4, SP[a2, a5], a3, n] + S2[a2, n]*S2[a1, a6, a5, a3, a4, n] + 
    S2[a1, a6, a5, a3, SP[a2, a4], n] + S2[a2, n]*S2[a1, a6, a5, a4, a3, n] + 
    S2[a1, a6, a5, a4, SP[a2, a3], n] + S2[a1, a6, a5, SP[a2, a3], a4, n] + 
    S2[a1, a6, a5, SP[a2, a4], a3, n] + S2[a1, a6, SP[a2, a3], a4, a5, n] + 
    S2[a1, a6, SP[a2, a3], a5, a4, n] + S2[a1, a6, SP[a2, a4], a3, a5, n] + 
    S2[a1, a6, SP[a2, a4], a5, a3, n] + S2[a1, a6, SP[a2, a5], a3, a4, n] + 
    S2[a1, a6, SP[a2, a5], a4, a3, n] + S2[a1, SP[a2, a3], a4, a5, a6, n] + 
    S2[a1, SP[a2, a4], a3, a5, a6, n] + S2[a1, SP[a2, a4], a3, a6, a5, n] + 
    S2[a1, SP[a2, a4], a5, a3, a6, n] + S2[a1, SP[a2, a4], a5, a6, a3, n] + 
    S2[a1, SP[a2, a4], a6, a3, a5, n] + S2[a1, SP[a2, a4], a6, a5, a3, n] - 
    S2[a1, SP[a3, a6], a2, a4, a5, n] - S2[a1, SP[a3, a6], a2, a5, a4, n] - 
    S2[a1, SP[a3, a6], a4, a2, a5, n] - S2[a1, SP[a3, a6], a4, a5, a2, n] - 
    S2[a1, SP[a3, a6], a5, a2, a4, n] - S2[a1, SP[a3, a6], a5, a4, a2, n] + 
    S2[a1, SP[a4, a5], a2, a3, a6, n] + S2[a1, SP[a4, a5], a2, a6, a3, n] + 
    S2[a1, SP[a4, a5], a3, a2, a6, n] + S2[a1, SP[a4, a5], a3, a6, a2, n] + 
    S2[a1, SP[a4, a5], a6, a2, a3, n] + S2[a1, SP[a4, a5], a6, a3, a2, n] - 
    S2[a1, SP[a4, a6], a2, a3, a5, n] - S2[a1, SP[a4, a6], a2, a5, a3, n] - 
    S2[a1, SP[a4, a6], a3, a2, a5, n] - S2[a1, SP[a4, a6], a3, a5, a2, n] - 
    S2[a1, SP[a4, a6], a5, a2, a3, n] - S2[a1, SP[a4, a6], a5, a3, a2, n] - 
    S2[a1, SP[a5, a6], a2, a3, a4, n] - S2[a1, SP[a5, a6], a2, a4, a3, n] - 
    S2[a1, SP[a5, a6], a3, a2, a4, n] - S2[a1, SP[a5, a6], a3, a4, a2, n] - 
    S2[a1, SP[a5, a6], a4, a2, a3, n] - S2[a1, SP[a5, a6], a4, a3, a2, n] - 
    S2[a2, a1, a4, a5, SP[a3, a6], n] - S2[a2, a1, a4, a6, SP[a3, a5], n] - 
    S2[a2, a1, a4, SP[a3, a5], a6, n] - S2[a2, a1, a4, SP[a3, a6], a5, n] - 
    S2[a2, a1, a6, a4, SP[a3, a5], n] - S2[a2, a1, a6, a5, SP[a3, a4], n] - 
    S2[a2, a1, a6, SP[a3, a4], a5, n] - S2[a2, a1, a6, SP[a3, a5], a4, n] - 
    S2[a2, a1, SP[a3, a4], a5, a6, n] - S2[a2, a1, SP[a3, a4], a6, a5, n] - 
    S2[a2, a1, SP[a3, a6], a4, a5, n] - S2[a2, a1, SP[a3, a6], a5, a4, n] + 
    S2[a6, n]*S2[a2, a4, a1, a3, a5, n] + S2[a2, a4, a1, a3, SP[a5, a6], n] + 
    S2[a6, n]*S2[a2, a4, a1, a5, a3, n] - S2[a2, a4, a1, a6, SP[a3, a5], n] - 
    S2[a2, a4, a1, SP[a3, a5], a6, n] + S2[a2, a4, a1, SP[a5, a6], a3, n] + 
    S2[a6, n]*S2[a2, a4, a5, a1, a3, n] - S2[a2, a4, a6, a1, SP[a3, a5], n] - 
    S2[a2, a4, a6, SP[a1, a5], a3, n] - S2[a2, a4, SP[a1, a5], a3, a6, n] - 
    S2[a2, a4, SP[a1, a5], a6, a3, n] + S2[a2, a4, SP[a5, a6], a1, a3, n] + 
    S2[a5, n]*S2[a2, a6, a1, a3, a4, n] + S2[a2, a6, a1, a3, SP[a4, a5], n] + 
    S2[a5, n]*S2[a2, a6, a1, a4, a3, n] - S2[a2, a6, a1, a5, SP[a3, a4], n] - 
    S2[a2, a6, a1, SP[a3, a4], a5, n] + S2[a2, a6, a1, SP[a4, a5], a3, n] - 
    S2[a2, a6, a4, a1, SP[a3, a5], n] - S2[a2, a6, a4, SP[a1, a5], a3, n] - 
    S2[a2, a6, a5, a1, SP[a3, a4], n] - S2[a2, a6, a5, SP[a1, a4], a3, n] - 
    S2[a2, a6, SP[a1, a4], a3, a5, n] - S2[a2, a6, SP[a1, a4], a5, a3, n] - 
    S2[a2, SP[a1, a4], a3, a5, a6, n] - S2[a2, SP[a1, a4], a3, a6, a5, n] - 
    S2[a2, SP[a1, a4], a5, a3, a6, n] - S2[a2, SP[a1, a4], a5, a6, a3, n] - 
    S2[a2, SP[a1, a4], a6, a3, a5, n] - S2[a2, SP[a1, a4], a6, a5, a3, n] - 
    S2[a2, SP[a1, a6], a3, a4, a5, n] - S2[a2, SP[a1, a6], a3, a5, a4, n] - 
    S2[a2, SP[a1, a6], a4, a3, a5, n] - S2[a2, SP[a1, a6], a4, a5, a3, n] - 
    S2[a2, SP[a1, a6], a5, a3, a4, n] - S2[a2, SP[a1, a6], a5, a4, a3, n] + 
    S2[a2, SP[a4, a6], a1, a3, a5, n] + S2[a2, SP[a4, a6], a1, a5, a3, n] + 
    S2[a2, SP[a4, a6], a5, a1, a3, n] + S2[a2, SP[a5, a6], a1, a3, a4, n] + 
    S2[a2, SP[a5, a6], a1, a4, a3, n] - S2[a4, a1, a2, a5, SP[a3, a6], n] - 
    S2[a4, a1, a2, SP[a3, a5], a6, n] - S2[a4, a1, a3, a5, SP[a2, a6], n] - 
    S2[a4, a1, a3, SP[a2, a5], a6, n] - S2[a4, a1, a5, a2, SP[a3, a6], n] - 
    S2[a4, a1, a5, a3, SP[a2, a6], n] - S2[a4, a1, a5, SP[a2, a6], a3, n] - 
    S2[a4, a1, a5, SP[a3, a6], a2, n] - S2[a4, a1, SP[a2, a5], a3, a6, n] - 
    S2[a4, a1, SP[a2, a5], a6, a3, n] - S2[a4, a1, SP[a3, a5], a2, a6, n] - 
    S2[a4, a1, SP[a3, a5], a6, a2, n] + S2[a6, n]*S2[a4, a5, a1, a2, a3, n] + 
    S2[a6, n]*S2[a4, a5, a1, a3, a2, n] - S2[a4, SP[a1, a5], a2, a3, a6, n] - 
    S2[a4, SP[a1, a5], a2, a6, a3, n] - S2[a4, SP[a1, a5], a3, a2, a6, n] - 
    S2[a4, SP[a1, a5], a3, a6, a2, n] - S2[a4, SP[a1, a5], a6, a2, a3, n] - 
    S2[a4, SP[a1, a5], a6, a3, a2, n] + S2[a4, SP[a5, a6], a1, a2, a3, n] + 
    S2[a4, SP[a5, a6], a1, a3, a2, n] - S2[a5, a1, a2, a3, SP[a4, a6], n] - 
    S2[a5, a1, a2, a4, SP[a3, a6], n] - S2[a5, a1, a2, SP[a3, a6], a4, n] - 
    S2[a5, a1, a2, SP[a4, a6], a3, n] - S2[a5, a1, a3, a2, SP[a4, a6], n] - 
    S2[a5, a1, a3, SP[a2, a6], a4, n] + S2[a5, a1, a6, a2, SP[a3, a4], n] + 
    S2[a5, a1, a6, SP[a2, a3], a4, n] - S2[a5, a1, SP[a2, a6], a3, a4, n] - 
    S2[a5, a1, SP[a2, a6], a4, a3, n] + S2[a5, a6, a1, a2, SP[a3, a4], n] - 
    S2[a2, n]*S2[a5, a6, a1, a3, a4, n] - S2[a5, a6, a1, a3, SP[a2, a4], n] - 
    S2[a2, n]*S2[a5, a6, a1, a4, a3, n] - S2[a5, a6, a1, a4, SP[a2, a3], n] - 
    S2[a5, a6, a1, SP[a2, a4], a3, n] + S2[a5, a6, a2, a1, SP[a3, a4], n] + 
    S2[a5, a6, a2, SP[a1, a4], a3, n] - S2[a5, SP[a2, a6], a1, a3, a4, n] - 
    S2[a5, SP[a2, a6], a1, a4, a3, n] + S2[a5, n]*S2[a6, a1, a2, a3, a4, n] + 
    S2[a6, a1, a2, a3, SP[a4, a5], n] + S2[a5, n]*S2[a6, a1, a2, a4, a3, n] + 
    S2[a6, a1, a2, a4, SP[a3, a5], n] + S2[a6, a1, a2, SP[a3, a5], a4, n] + 
    S2[a6, a1, a2, SP[a4, a5], a3, n] + S2[a5, n]*S2[a6, a1, a3, a2, a4, n] + 
    S2[a6, a1, a3, a2, SP[a4, a5], n] + S2[a5, n]*S2[a6, a1, a3, a4, a2, n] + 
    S2[a6, a1, a3, a4, SP[a2, a5], n] + S2[a6, a1, a3, SP[a2, a5], a4, n] + 
    S2[a6, a1, a3, SP[a4, a5], a2, n] + S2[a5, n]*S2[a6, a1, a4, a2, a3, n] + 
    S2[a6, a1, a4, a2, SP[a3, a5], n] + S2[a5, n]*S2[a6, a1, a4, a3, a2, n] + 
    S2[a6, a1, a4, a3, SP[a2, a5], n] + S2[a6, a1, a4, SP[a2, a5], a3, n] + 
    S2[a6, a1, a4, SP[a3, a5], a2, n] + S2[a6, a1, SP[a2, a5], a3, a4, n] + 
    S2[a6, a1, SP[a2, a5], a4, a3, n] + S2[a6, a1, SP[a3, a5], a2, a4, n] + 
    S2[a6, a1, SP[a3, a5], a4, a2, n] + S2[a6, a1, SP[a4, a5], a2, a3, n] + 
    S2[a6, a1, SP[a4, a5], a3, a2, n] - S2[a5, n]*S2[a6, a2, a4, a1, a3, n] - 
    S2[a6, a2, a4, a1, SP[a3, a5], n] - S2[a6, a2, a4, SP[a1, a5], a3, n] - 
    S2[a6, a2, SP[a4, a5], a1, a3, n] - S2[a4, n]*S2[a6, a5, a1, a2, a3, n] - 
    S2[a6, a5, a1, a2, SP[a3, a4], n] - S2[a4, n]*S2[a6, a5, a1, a3, a2, n] - 
    S2[a6, a5, a1, a3, SP[a2, a4], n] - S2[a6, a5, a1, SP[a2, a4], a3, n] - 
    S2[a6, a5, a1, SP[a3, a4], a2, n] + S2[a2, n]*S2[a6, a5, a4, a1, a3, n] + 
    S2[a6, a5, a4, a1, SP[a2, a3], n] + S2[a6, a5, a4, SP[a1, a2], a3, n] - 
    S2[a6, a5, SP[a1, a4], a2, a3, n] - S2[a6, a5, SP[a1, a4], a3, a2, n] + 
    S2[a6, a5, SP[a2, a4], a1, a3, n] + S2[a6, SP[a1, a5], a2, a3, a4, n] + 
    S2[a6, SP[a1, a5], a2, a4, a3, n] + S2[a6, SP[a1, a5], a3, a2, a4, n] + 
    S2[a6, SP[a1, a5], a3, a4, a2, n] + S2[a6, SP[a1, a5], a4, a2, a3, n] + 
    S2[a6, SP[a1, a5], a4, a3, a2, n] - S2[a6, SP[a4, a5], a1, a2, a3, n] - 
    S2[a6, SP[a4, a5], a1, a3, a2, n] + S2[SP[a1, a3], a2, a4, a5, a6, n] - 
    S2[SP[a1, a6], a2, a3, a4, a5, n] - S2[SP[a1, a6], a2, a3, a5, a4, n] - 
    S2[SP[a1, a6], a2, a4, a3, a5, n] - S2[SP[a1, a6], a2, a4, a5, a3, n] - 
    S2[SP[a1, a6], a2, a5, a3, a4, n] - S2[SP[a1, a6], a2, a5, a4, a3, n] - 
    S2[SP[a1, a6], a3, a2, a4, a5, n] - S2[SP[a1, a6], a3, a2, a5, a4, n] - 
    S2[SP[a1, a6], a3, a4, a2, a5, n] - S2[SP[a1, a6], a3, a4, a5, a2, n] - 
    S2[SP[a1, a6], a3, a5, a2, a4, n] - S2[SP[a1, a6], a3, a5, a4, a2, n] - 
    S2[SP[a1, a6], a4, a2, a3, a5, n] - S2[SP[a1, a6], a4, a2, a5, a3, n] - 
    S2[SP[a1, a6], a4, a3, a2, a5, n] - S2[SP[a1, a6], a4, a3, a5, a2, n] - 
    S2[SP[a1, a6], a4, a5, a2, a3, n] - S2[SP[a1, a6], a4, a5, a3, a2, n] - 
    S2[SP[a1, a6], a5, a2, a3, a4, n] - S2[SP[a1, a6], a5, a2, a4, a3, n] - 
    S2[SP[a1, a6], a5, a3, a2, a4, n] - S2[SP[a1, a6], a5, a3, a4, a2, n] - 
    S2[SP[a1, a6], a5, a4, a2, a3, n] - S2[SP[a1, a6], a5, a4, a3, a2, n] + 
    S2[SP[a2, a6], a4, a1, a3, a5, n] + S2[SP[a2, a6], a4, a1, a5, a3, n] + 
    S2[SP[a2, a6], a4, a5, a1, a3, n] + S2[SP[a2, a6], a5, a4, a1, a3, n] + 
    S2[SP[a5, a6], a1, a2, a3, a4, n] + S2[SP[a5, a6], a1, a2, a4, a3, n] + 
    S2[SP[a5, a6], a1, a3, a2, a4, n] + S2[SP[a5, a6], a1, a3, a4, a2, n] + 
    S2[SP[a5, a6], a1, a4, a2, a3, n] + S2[SP[a5, a6], a1, a4, a3, a2, n] - 
    S2[SP[a5, a6], a2, a4, a1, a3, n] - S2[a6, a5, a4, a2, a1, a3, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a3_, a1_, a2_, a4_, a6_, a5_, n_] :> 
  -(S2[a1, a2, a3, n]*S2[a4, a6, a5, n]) - S2[a1, a3, a2, n]*
     S2[a4, a6, a5, n] - S2[SP[a1, a4], SP[a2, a6], SP[a3, a5], n] - 
    S2[SP[a1, a4], SP[a3, a6], SP[a2, a5], n] + 
    S2[a5, a6, n]*S2[a1, a2, a3, a4, n] + S2[a5, a6, n]*
     S2[a1, a2, a4, a3, n] - S2[a1, a2, SP[a3, a5], SP[a4, a6], n] - 
    S2[a1, a2, SP[a4, a5], SP[a3, a6], n] + S2[a5, a6, n]*
     S2[a1, a3, a2, a4, n] - S2[a1, a3, SP[a2, a5], SP[a4, a6], n] + 
    S2[a1, a4, SP[a2, a6], SP[a3, a5], n] + S2[a1, a4, SP[a3, a6], 
     SP[a2, a5], n] + S2[a1, SP[a2, a4], a6, SP[a3, a5], n] + 
    S2[a1, SP[a2, a4], SP[a3, a6], a5, n] - S2[a1, SP[a2, a5], a3, 
     SP[a4, a6], n] - S2[a1, SP[a2, a5], a4, SP[a3, a6], n] - 
    S2[a1, SP[a2, a5], SP[a3, a6], a4, n] - S2[a1, SP[a2, a5], SP[a4, a6], 
     a3, n] + S2[a1, SP[a3, a4], a6, SP[a2, a5], n] + 
    S2[a1, SP[a3, a4], SP[a2, a6], a5, n] - S2[a1, SP[a3, a5], a2, 
     SP[a4, a6], n] - S2[a1, SP[a3, a5], SP[a2, a6], a4, n] + 
    S2[a1, a3, n]*S2[a2, a6, a4, a5, n] + S2[a1, a3, n]*
     S2[a2, a6, a5, a4, n] - S2[a2, a6, SP[a1, a4], SP[a3, a5], n] - 
    S2[a2, a6, SP[a1, a5], SP[a3, a4], n] - S2[a2, SP[a1, a6], a4, 
     SP[a3, a5], n] - S2[a2, SP[a1, a6], a5, SP[a3, a4], n] - 
    S2[a2, SP[a1, a6], SP[a3, a4], a5, n] - S2[a2, SP[a1, a6], SP[a3, a5], 
     a4, n] + S2[a4, a1, SP[a2, a6], SP[a3, a5], n] + 
    S2[a4, a1, SP[a3, a6], SP[a2, a5], n] + S2[a4, SP[a1, a6], a2, 
     SP[a3, a5], n] + S2[a4, SP[a1, a6], a3, SP[a2, a5], n] + 
    S2[a4, SP[a1, a6], SP[a2, a5], a3, n] + S2[a4, SP[a1, a6], SP[a3, a5], 
     a2, n] - S2[a1, a3, n]*S2[a5, a6, a2, a4, n] + 
    S2[a5, a6, SP[a1, a2], SP[a3, a4], n] + S2[a5, SP[a1, a6], a2, 
     SP[a3, a4], n] + S2[a5, SP[a1, a6], SP[a2, a3], a4, n] - 
    S2[SP[a1, a2], a6, a4, SP[a3, a5], n] - S2[SP[a1, a2], a6, a5, 
     SP[a3, a4], n] - S2[SP[a1, a2], a6, SP[a3, a4], a5, n] - 
    S2[SP[a1, a2], a6, SP[a3, a5], a4, n] - S2[SP[a1, a2], SP[a3, a6], a4, 
     a5, n] - S2[SP[a1, a2], SP[a3, a6], a5, a4, n] + 
    S2[SP[a1, a4], a2, a6, SP[a3, a5], n] + S2[SP[a1, a4], a2, SP[a3, a6], 
     a5, n] + S2[SP[a1, a4], a3, a6, SP[a2, a5], n] + 
    S2[SP[a1, a4], a3, SP[a2, a6], a5, n] + S2[SP[a1, a4], a6, a2, 
     SP[a3, a5], n] + S2[SP[a1, a4], a6, a3, SP[a2, a5], n] + 
    S2[SP[a1, a4], a6, SP[a2, a5], a3, n] + S2[SP[a1, a4], a6, SP[a3, a5], 
     a2, n] + S2[SP[a1, a4], SP[a2, a6], a3, a5, n] + 
    S2[SP[a1, a4], SP[a2, a6], a5, a3, n] + S2[SP[a1, a4], SP[a3, a6], a2, 
     a5, n] + S2[SP[a1, a4], SP[a3, a6], a5, a2, n] - 
    S2[SP[a1, a5], a2, a3, SP[a4, a6], n] - S2[SP[a1, a5], a2, a4, 
     SP[a3, a6], n] - S2[SP[a1, a5], a2, SP[a3, a6], a4, n] - 
    S2[SP[a1, a5], a2, SP[a4, a6], a3, n] - S2[SP[a1, a5], a3, a2, 
     SP[a4, a6], n] - S2[SP[a1, a5], a3, SP[a2, a6], a4, n] + 
    S2[SP[a1, a5], a6, a2, SP[a3, a4], n] + S2[SP[a1, a5], a6, SP[a2, a3], 
     a4, n] - S2[SP[a1, a5], SP[a2, a6], a3, a4, n] - 
    S2[SP[a1, a5], SP[a2, a6], a4, a3, n] - 
    S2[a5, n]*S2[a1, a2, a3, a4, a6, n] - S2[a1, a2, a3, a4, SP[a5, a6], n] + 
    S2[a1, a2, a3, a5, SP[a4, a6], n] - S2[a5, n]*S2[a1, a2, a3, a6, a4, n] + 
    S2[a4, n]*S2[a1, a2, a3, a6, a5, n] + S2[a1, a2, a3, SP[a4, a6], a5, n] - 
    S2[a1, a2, a3, SP[a5, a6], a4, n] - S2[a5, n]*S2[a1, a2, a4, a3, a6, n] - 
    S2[a1, a2, a4, a3, SP[a5, a6], n] + S2[a1, a2, a4, a5, SP[a3, a6], n] - 
    S2[a5, n]*S2[a1, a2, a4, a6, a3, n] + 
    S2[a3, n]*S2[a1, a2, a4, a6, a5, n] - S2[a1, a2, a4, a6, SP[a3, a5], n] - 
    S2[a1, a2, a4, SP[a5, a6], a3, n] + S2[a1, a2, a5, a3, SP[a4, a6], n] + 
    S2[a1, a2, a5, a4, SP[a3, a6], n] + S2[a1, a2, a5, SP[a3, a6], a4, n] + 
    S2[a1, a2, a5, SP[a4, a6], a3, n] - S2[a5, n]*S2[a1, a2, a6, a3, a4, n] + 
    S2[a4, n]*S2[a1, a2, a6, a3, a5, n] - 
    S2[a5, n]*S2[a1, a2, a6, a4, a3, n] + 
    S2[a4, n]*S2[a1, a2, a6, a5, a3, n] + 
    2*S2[a1, a2, a6, a5, SP[a3, a4], n] + 
    2*S2[a1, a2, a6, SP[a3, a4], a5, n] + S2[a1, a2, SP[a3, a4], a6, a5, n] + 
    S2[a1, a2, SP[a3, a6], a4, a5, n] + S2[a1, a2, SP[a3, a6], a5, a4, n] + 
    S2[a1, a2, SP[a4, a6], a3, a5, n] + S2[a1, a2, SP[a4, a6], a5, a3, n] - 
    S2[a1, a2, SP[a5, a6], a3, a4, n] - S2[a1, a2, SP[a5, a6], a4, a3, n] - 
    S2[a5, n]*S2[a1, a3, a2, a4, a6, n] - S2[a1, a3, a2, a4, SP[a5, a6], n] + 
    S2[a1, a3, a2, a5, SP[a4, a6], n] - S2[a5, n]*S2[a1, a3, a2, a6, a4, n] + 
    S2[a4, n]*S2[a1, a3, a2, a6, a5, n] + S2[a1, a3, a2, SP[a4, a6], a5, n] - 
    S2[a1, a3, a2, SP[a5, a6], a4, n] - S2[a1, a3, a4, a6, SP[a2, a5], n] - 
    S2[a1, a3, a4, SP[a2, a6], a5, n] + S2[a1, a3, a5, a2, SP[a4, a6], n] + 
    S2[a1, a3, a5, SP[a2, a6], a4, n] + S2[a4, n]*S2[a1, a3, a6, a2, a5, n] + 
    S2[a1, a3, a6, a2, SP[a4, a5], n] - S2[a2, n]*S2[a1, a3, a6, a4, a5, n] - 
    S2[a1, a3, a6, a4, SP[a2, a5], n] + S2[a4, n]*S2[a1, a3, a6, a5, a2, n] - 
    S2[a2, n]*S2[a1, a3, a6, a5, a4, n] - S2[a1, a3, a6, SP[a2, a5], a4, n] + 
    S2[a1, a3, a6, SP[a4, a5], a2, n] - S2[a1, a3, SP[a2, a6], a4, a5, n] - 
    S2[a1, a3, SP[a2, a6], a5, a4, n] + S2[a1, a3, SP[a4, a6], a2, a5, n] + 
    S2[a1, a3, SP[a4, a6], a5, a2, n] - S2[a1, a4, a2, a6, SP[a3, a5], n] - 
    S2[a1, a4, a2, SP[a3, a6], a5, n] - S2[a1, a4, a3, a6, SP[a2, a5], n] - 
    S2[a1, a4, a3, SP[a2, a6], a5, n] - S2[a1, a4, a6, a2, SP[a3, a5], n] - 
    S2[a1, a4, a6, a3, SP[a2, a5], n] - S2[a1, a4, a6, SP[a2, a5], a3, n] - 
    S2[a1, a4, a6, SP[a3, a5], a2, n] - S2[a1, a4, SP[a2, a6], a3, a5, n] - 
    S2[a1, a4, SP[a2, a6], a5, a3, n] - S2[a1, a4, SP[a3, a6], a2, a5, n] - 
    S2[a1, a4, SP[a3, a6], a5, a2, n] + S2[a1, a5, a2, a3, SP[a4, a6], n] + 
    S2[a1, a5, a2, a4, SP[a3, a6], n] + S2[a1, a5, a2, SP[a3, a6], a4, n] + 
    S2[a1, a5, a2, SP[a4, a6], a3, n] + S2[a1, a5, a3, a2, SP[a4, a6], n] + 
    S2[a1, a5, a3, SP[a2, a6], a4, n] - S2[a1, a5, a6, a2, SP[a3, a4], n] - 
    S2[a1, a5, a6, SP[a2, a3], a4, n] + S2[a1, a5, SP[a2, a6], a3, a4, n] + 
    S2[a1, a5, SP[a2, a6], a4, a3, n] + S2[a4, n]*S2[a1, a6, a2, a3, a5, n] + 
    S2[a1, a6, a2, a3, SP[a4, a5], n] + S2[a4, n]*S2[a1, a6, a2, a5, a3, n] + 
    S2[a1, a6, a2, a5, SP[a3, a4], n] + S2[a1, a6, a2, SP[a3, a4], a5, n] + 
    S2[a1, a6, a2, SP[a4, a5], a3, n] + S2[a4, n]*S2[a1, a6, a3, a2, a5, n] + 
    S2[a1, a6, a3, a2, SP[a4, a5], n] - S2[a2, n]*S2[a1, a6, a3, a4, a5, n] - 
    S2[a1, a6, a3, a4, SP[a2, a5], n] + S2[a4, n]*S2[a1, a6, a3, a5, a2, n] - 
    S2[a2, n]*S2[a1, a6, a3, a5, a4, n] - S2[a1, a6, a3, SP[a2, a5], a4, n] + 
    S2[a1, a6, a3, SP[a4, a5], a2, n] - S2[a2, n]*S2[a1, a6, a4, a3, a5, n] - 
    S2[a1, a6, a4, a3, SP[a2, a5], n] - S2[a2, n]*S2[a1, a6, a4, a5, a3, n] - 
    S2[a1, a6, a4, a5, SP[a2, a3], n] - S2[a1, a6, a4, SP[a2, a3], a5, n] - 
    S2[a1, a6, a4, SP[a2, a5], a3, n] + S2[a4, n]*S2[a1, a6, a5, a2, a3, n] + 
    S2[a1, a6, a5, a2, SP[a3, a4], n] + S2[a4, n]*S2[a1, a6, a5, a3, a2, n] - 
    S2[a2, n]*S2[a1, a6, a5, a3, a4, n] - 
    S2[a2, n]*S2[a1, a6, a5, a4, a3, n] - S2[a1, a6, a5, a4, SP[a2, a3], n] - 
    S2[a1, a6, a5, SP[a2, a3], a4, n] + S2[a1, a6, a5, SP[a3, a4], a2, n] - 
    S2[a1, a6, SP[a2, a3], a4, a5, n] - S2[a1, a6, SP[a2, a3], a5, a4, n] - 
    S2[a1, a6, SP[a2, a5], a3, a4, n] - S2[a1, a6, SP[a2, a5], a4, a3, n] + 
    S2[a1, a6, SP[a3, a4], a2, a5, n] + S2[a1, a6, SP[a3, a4], a5, a2, n] + 
    S2[a1, a6, SP[a4, a5], a2, a3, n] + S2[a1, a6, SP[a4, a5], a3, a2, n] + 
    S2[a1, SP[a2, a3], a4, a6, a5, n] - S2[a1, SP[a2, a6], a3, a4, a5, n] - 
    S2[a1, SP[a2, a6], a3, a5, a4, n] - S2[a1, SP[a2, a6], a4, a3, a5, n] - 
    S2[a1, SP[a2, a6], a4, a5, a3, n] - S2[a1, SP[a2, a6], a5, a3, a4, n] - 
    S2[a1, SP[a2, a6], a5, a4, a3, n] + S2[a1, SP[a4, a6], a2, a3, a5, n] + 
    S2[a1, SP[a4, a6], a2, a5, a3, n] + S2[a1, SP[a4, a6], a3, a2, a5, n] + 
    S2[a1, SP[a4, a6], a3, a5, a2, n] + S2[a1, SP[a4, a6], a5, a2, a3, n] + 
    S2[a1, SP[a4, a6], a5, a3, a2, n] + S2[a2, a1, a6, a4, SP[a3, a5], n] + 
    S2[a2, a1, a6, a5, SP[a3, a4], n] + S2[a2, a1, a6, SP[a3, a4], a5, n] + 
    S2[a2, a1, a6, SP[a3, a5], a4, n] + S2[a2, a1, SP[a3, a6], a4, a5, n] + 
    S2[a2, a1, SP[a3, a6], a5, a4, n] - S2[a5, n]*S2[a2, a6, a1, a3, a4, n] - 
    S2[a2, a6, a1, a3, SP[a4, a5], n] - S2[a5, n]*S2[a2, a6, a1, a4, a3, n] + 
    S2[a2, a6, a1, a5, SP[a3, a4], n] + S2[a2, a6, a1, SP[a3, a4], a5, n] - 
    S2[a2, a6, a1, SP[a4, a5], a3, n] + S2[a2, a6, a4, a1, SP[a3, a5], n] + 
    S2[a2, a6, a4, SP[a1, a5], a3, n] + S2[a2, a6, a5, a1, SP[a3, a4], n] + 
    S2[a2, a6, a5, SP[a1, a4], a3, n] + S2[a2, a6, SP[a1, a4], a3, a5, n] + 
    S2[a2, a6, SP[a1, a4], a5, a3, n] + S2[a2, SP[a1, a6], a3, a4, a5, n] + 
    S2[a2, SP[a1, a6], a3, a5, a4, n] + S2[a2, SP[a1, a6], a4, a3, a5, n] + 
    S2[a2, SP[a1, a6], a4, a5, a3, n] + S2[a2, SP[a1, a6], a5, a3, a4, n] + 
    S2[a2, SP[a1, a6], a5, a4, a3, n] - S2[a2, SP[a5, a6], a1, a3, a4, n] - 
    S2[a2, SP[a5, a6], a1, a4, a3, n] - S2[a4, a1, a2, a6, SP[a3, a5], n] - 
    S2[a4, a1, a2, SP[a3, a6], a5, n] - S2[a4, a1, a3, a6, SP[a2, a5], n] - 
    S2[a4, a1, a3, SP[a2, a6], a5, n] - S2[a4, a1, a6, a2, SP[a3, a5], n] - 
    S2[a4, a1, a6, a3, SP[a2, a5], n] - S2[a4, a1, a6, SP[a2, a5], a3, n] - 
    S2[a4, a1, a6, SP[a3, a5], a2, n] - S2[a4, a1, SP[a2, a6], a3, a5, n] - 
    S2[a4, a1, SP[a2, a6], a5, a3, n] - S2[a4, a1, SP[a3, a6], a2, a5, n] - 
    S2[a4, a1, SP[a3, a6], a5, a2, n] - S2[a4, a6, a1, a2, SP[a3, a5], n] - 
    S2[a4, a6, a1, a3, SP[a2, a5], n] - S2[a4, a6, a1, SP[a2, a5], a3, n] - 
    S2[a4, a6, a1, SP[a3, a5], a2, n] - S2[a4, a6, SP[a1, a5], a2, a3, n] - 
    S2[a4, a6, SP[a1, a5], a3, a2, n] - S2[a4, SP[a1, a6], a2, a3, a5, n] - 
    S2[a4, SP[a1, a6], a2, a5, a3, n] - S2[a4, SP[a1, a6], a3, a2, a5, n] - 
    S2[a4, SP[a1, a6], a3, a5, a2, n] - S2[a4, SP[a1, a6], a5, a2, a3, n] - 
    S2[a4, SP[a1, a6], a5, a3, a2, n] + S2[a5, a1, a2, a3, SP[a4, a6], n] + 
    S2[a5, a1, a2, a4, SP[a3, a6], n] + S2[a5, a1, a2, SP[a3, a6], a4, n] + 
    S2[a5, a1, a2, SP[a4, a6], a3, n] + S2[a5, a1, a3, a2, SP[a4, a6], n] + 
    S2[a5, a1, a3, SP[a2, a6], a4, n] - S2[a5, a1, a6, a2, SP[a3, a4], n] - 
    S2[a5, a1, a6, SP[a2, a3], a4, n] + S2[a5, a1, SP[a2, a6], a3, a4, n] + 
    S2[a5, a1, SP[a2, a6], a4, a3, n] - S2[a5, a6, a1, a2, SP[a3, a4], n] + 
    S2[a2, n]*S2[a5, a6, a1, a3, a4, n] + S2[a5, a6, a1, a3, SP[a2, a4], n] + 
    S2[a2, n]*S2[a5, a6, a1, a4, a3, n] + S2[a5, a6, a1, a4, SP[a2, a3], n] + 
    S2[a5, a6, a1, SP[a2, a4], a3, n] - S2[a5, a6, a2, a1, SP[a3, a4], n] - 
    S2[a5, a6, a2, SP[a1, a4], a3, n] + S2[a5, SP[a2, a6], a1, a3, a4, n] + 
    S2[a5, SP[a2, a6], a1, a4, a3, n] - S2[a5, n]*S2[a6, a1, a2, a3, a4, n] + 
    S2[a4, n]*S2[a6, a1, a2, a3, a5, n] - 
    S2[a5, n]*S2[a6, a1, a2, a4, a3, n] - S2[a6, a1, a2, a4, SP[a3, a5], n] + 
    S2[a4, n]*S2[a6, a1, a2, a5, a3, n] + S2[a6, a1, a2, a5, SP[a3, a4], n] + 
    S2[a6, a1, a2, SP[a3, a4], a5, n] - S2[a6, a1, a2, SP[a3, a5], a4, n] - 
    S2[a5, n]*S2[a6, a1, a3, a2, a4, n] + 
    S2[a4, n]*S2[a6, a1, a3, a2, a5, n] - 
    S2[a5, n]*S2[a6, a1, a3, a4, a2, n] - S2[a6, a1, a3, a4, SP[a2, a5], n] + 
    S2[a4, n]*S2[a6, a1, a3, a5, a2, n] + S2[a6, a1, a3, a5, SP[a2, a4], n] + 
    S2[a6, a1, a3, SP[a2, a4], a5, n] - S2[a6, a1, a3, SP[a2, a5], a4, n] - 
    S2[a5, n]*S2[a6, a1, a4, a2, a3, n] - S2[a6, a1, a4, a2, SP[a3, a5], n] - 
    S2[a5, n]*S2[a6, a1, a4, a3, a2, n] - S2[a6, a1, a4, a3, SP[a2, a5], n] - 
    S2[a6, a1, a4, SP[a2, a5], a3, n] - S2[a6, a1, a4, SP[a3, a5], a2, n] + 
    S2[a4, n]*S2[a6, a1, a5, a2, a3, n] + S2[a6, a1, a5, a2, SP[a3, a4], n] + 
    S2[a4, n]*S2[a6, a1, a5, a3, a2, n] + S2[a6, a1, a5, a3, SP[a2, a4], n] + 
    S2[a6, a1, a5, SP[a2, a4], a3, n] + S2[a6, a1, a5, SP[a3, a4], a2, n] + 
    S2[a6, a1, SP[a2, a4], a3, a5, n] + S2[a6, a1, SP[a2, a4], a5, a3, n] - 
    S2[a6, a1, SP[a2, a5], a3, a4, n] - S2[a6, a1, SP[a2, a5], a4, a3, n] + 
    S2[a6, a1, SP[a3, a4], a2, a5, n] + S2[a6, a1, SP[a3, a4], a5, a2, n] - 
    S2[a6, a1, SP[a3, a5], a2, a4, n] - S2[a6, a1, SP[a3, a5], a4, a2, n] + 
    S2[a5, n]*S2[a6, a2, a4, a1, a3, n] + S2[a6, a2, a4, a1, SP[a3, a5], n] + 
    S2[a6, a2, a4, SP[a1, a5], a3, n] + S2[a6, a2, SP[a4, a5], a1, a3, n] - 
    S2[a2, n]*S2[a6, a4, a1, a3, a5, n] - S2[a6, a4, a1, a3, SP[a2, a5], n] - 
    S2[a2, n]*S2[a6, a4, a1, a5, a3, n] - S2[a6, a4, a1, a5, SP[a2, a3], n] - 
    S2[a6, a4, a1, SP[a2, a3], a5, n] - S2[a6, a4, a1, SP[a2, a5], a3, n] - 
    S2[a2, n]*S2[a6, a4, a5, a1, a3, n] - S2[a6, a4, a5, a1, SP[a2, a3], n] - 
    S2[a6, a4, a5, SP[a1, a2], a3, n] - S2[a6, a4, SP[a1, a2], a3, a5, n] - 
    S2[a6, a4, SP[a1, a2], a5, a3, n] - S2[a6, a4, SP[a2, a5], a1, a3, n] + 
    S2[a4, n]*S2[a6, a5, a1, a2, a3, n] + S2[a6, a5, a1, a2, SP[a3, a4], n] + 
    S2[a4, n]*S2[a6, a5, a1, a3, a2, n] + S2[a6, a5, a1, a3, SP[a2, a4], n] + 
    S2[a6, a5, a1, SP[a2, a4], a3, n] + S2[a6, a5, a1, SP[a3, a4], a2, n] - 
    S2[a2, n]*S2[a6, a5, a4, a1, a3, n] - S2[a6, a5, a4, a1, SP[a2, a3], n] - 
    S2[a6, a5, a4, SP[a1, a2], a3, n] + S2[a6, a5, SP[a1, a4], a2, a3, n] + 
    S2[a6, a5, SP[a1, a4], a3, a2, n] - S2[a6, a5, SP[a2, a4], a1, a3, n] + 
    S2[a6, SP[a1, a4], a2, a3, a5, n] + S2[a6, SP[a1, a4], a2, a5, a3, n] + 
    S2[a6, SP[a1, a4], a3, a2, a5, n] + S2[a6, SP[a1, a4], a3, a5, a2, n] + 
    S2[a6, SP[a1, a4], a5, a2, a3, n] + S2[a6, SP[a1, a4], a5, a3, a2, n] - 
    S2[a6, SP[a1, a5], a2, a3, a4, n] - S2[a6, SP[a1, a5], a2, a4, a3, n] - 
    S2[a6, SP[a1, a5], a3, a2, a4, n] - S2[a6, SP[a1, a5], a3, a4, a2, n] - 
    S2[a6, SP[a1, a5], a4, a2, a3, n] - S2[a6, SP[a1, a5], a4, a3, a2, n] - 
    S2[a6, SP[a2, a4], a1, a3, a5, n] - S2[a6, SP[a2, a4], a1, a5, a3, n] - 
    S2[a6, SP[a2, a4], a5, a1, a3, n] + S2[a6, SP[a4, a5], a1, a2, a3, n] + 
    S2[a6, SP[a4, a5], a1, a3, a2, n] + S2[SP[a1, a3], a2, a4, a6, a5, n] - 
    S2[SP[a2, a6], a4, a1, a3, a5, n] - S2[SP[a2, a6], a4, a1, a5, a3, n] - 
    S2[SP[a2, a6], a4, a5, a1, a3, n] - S2[SP[a2, a6], a5, a4, a1, a3, n] + 
    S2[SP[a4, a6], a1, a2, a3, a5, n] + S2[SP[a4, a6], a1, a2, a5, a3, n] + 
    S2[SP[a4, a6], a1, a3, a2, a5, n] + S2[SP[a4, a6], a1, a3, a5, a2, n] + 
    S2[SP[a4, a6], a1, a5, a2, a3, n] + S2[SP[a4, a6], a1, a5, a3, a2, n] + 
    S2[SP[a4, a6], a5, a1, a2, a3, n] + S2[SP[a4, a6], a5, a1, a3, a2, n] - 
    S2[SP[a5, a6], a1, a2, a3, a4, n] - S2[SP[a5, a6], a1, a2, a4, a3, n] - 
    S2[SP[a5, a6], a1, a3, a2, a4, n] - S2[SP[a5, a6], a1, a3, a4, a2, n] - 
    S2[SP[a5, a6], a1, a4, a2, a3, n] - S2[SP[a5, a6], a1, a4, a3, a2, n] + 
    S2[SP[a5, a6], a2, a4, a1, a3, n] + S2[a6, a4, a2, a1, a3, a5, n] + 
    S2[a6, a4, a2, a1, a5, a3, n] + S2[a6, a4, a2, a5, a1, a3, n] + 
    S2[a6, a4, a5, a2, a1, a3, n] + S2[a6, a5, a4, a2, a1, a3, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a3_, a1_, a2_, a5_, a4_, a6_, n_] :> 
  S2[a1, a2, a3, n]*S2[a4, a5, a6, n] + S2[a1, a3, a2, n]*S2[a4, a5, a6, n] + 
    S2[a1, a2, a3, n]*S2[a4, a6, a5, n] + S2[a1, a3, a2, n]*
     S2[a4, a6, a5, n] + S2[SP[a1, a4], SP[a2, a5], SP[a3, a6], n] + 
    S2[SP[a1, a4], SP[a2, a6], SP[a3, a5], n] + S2[SP[a1, a4], SP[a3, a5], 
     SP[a2, a6], n] + S2[SP[a1, a4], SP[a3, a6], SP[a2, a5], n] - 
    S2[a4, a6, n]*S2[a1, a2, a3, a5, n] - S2[a4, a6, n]*
     S2[a1, a2, a5, a3, n] + S2[a1, a2, SP[a3, a4], SP[a5, a6], n] + 
    S2[a1, a2, SP[a4, a5], SP[a3, a6], n] - S2[a4, a6, n]*
     S2[a1, a3, a2, a5, n] + S2[a1, a3, SP[a2, a4], SP[a5, a6], n] - 
    S2[a1, a4, SP[a2, a5], SP[a3, a6], n] - S2[a1, a4, SP[a2, a6], 
     SP[a3, a5], n] - S2[a1, a4, SP[a3, a5], SP[a2, a6], n] - 
    S2[a1, a4, SP[a3, a6], SP[a2, a5], n] + S2[a1, SP[a2, a4], a3, 
     SP[a5, a6], n] - S2[a1, SP[a2, a4], a6, SP[a3, a5], n] - 
    S2[a1, SP[a2, a4], SP[a3, a5], a6, n] + S2[a1, SP[a2, a4], SP[a5, a6], 
     a3, n] + S2[a1, SP[a3, a4], a2, SP[a5, a6], n] - 
    S2[a1, SP[a3, a4], a5, SP[a2, a6], n] - S2[a1, SP[a3, a4], a6, 
     SP[a2, a5], n] - S2[a1, SP[a3, a4], SP[a2, a5], a6, n] - 
    S2[a1, a3, n]*S2[a2, a5, a4, a6, n] - S2[a1, a3, n]*
     S2[a2, a5, a6, a4, n] + S2[a2, a5, SP[a1, a4], SP[a3, a6], n] + 
    S2[a2, a5, SP[a1, a6], SP[a3, a4], n] - S2[a1, a3, n]*
     S2[a2, a6, a4, a5, n] - S2[a1, a3, n]*S2[a2, a6, a5, a4, n] + 
    S2[a2, a6, SP[a1, a4], SP[a3, a5], n] + S2[a2, a6, SP[a1, a5], 
     SP[a3, a4], n] + S2[a2, SP[a1, a5], a4, SP[a3, a6], n] + 
    S2[a2, SP[a1, a5], a6, SP[a3, a4], n] + S2[a2, SP[a1, a5], SP[a3, a4], 
     a6, n] + S2[a2, SP[a1, a5], SP[a3, a6], a4, n] + 
    S2[a2, SP[a1, a6], a4, SP[a3, a5], n] + S2[a2, SP[a1, a6], a5, 
     SP[a3, a4], n] + S2[a2, SP[a1, a6], SP[a3, a4], a5, n] + 
    S2[a2, SP[a1, a6], SP[a3, a5], a4, n] - S2[a4, a1, SP[a2, a5], 
     SP[a3, a6], n] - S2[a4, a1, SP[a2, a6], SP[a3, a5], n] - 
    S2[a4, a1, SP[a3, a5], SP[a2, a6], n] - S2[a4, a1, SP[a3, a6], 
     SP[a2, a5], n] + S2[a1, a3, n]*S2[a4, a6, a2, a5, n] - 
    S2[a4, a6, SP[a1, a2], SP[a3, a5], n] - S2[a4, SP[a1, a5], a2, 
     SP[a3, a6], n] - S2[a4, SP[a1, a5], a3, SP[a2, a6], n] - 
    S2[a4, SP[a1, a5], SP[a2, a6], a3, n] - S2[a4, SP[a1, a5], SP[a3, a6], 
     a2, n] - 2*S2[a4, SP[a1, a6], a2, SP[a3, a5], n] - 
    S2[a4, SP[a1, a6], a3, SP[a2, a5], n] - S2[a4, SP[a1, a6], SP[a2, a3], 
     a5, n] - S2[a4, SP[a1, a6], SP[a2, a5], a3, n] - 
    S2[a4, SP[a1, a6], SP[a3, a5], a2, n] + S2[SP[a1, a2], a5, a4, 
     SP[a3, a6], n] + S2[SP[a1, a2], a5, a6, SP[a3, a4], n] + 
    S2[SP[a1, a2], a5, SP[a3, a4], a6, n] + S2[SP[a1, a2], a5, SP[a3, a6], 
     a4, n] + S2[SP[a1, a2], a6, a4, SP[a3, a5], n] + 
    S2[SP[a1, a2], a6, a5, SP[a3, a4], n] + S2[SP[a1, a2], a6, SP[a3, a4], 
     a5, n] + S2[SP[a1, a2], a6, SP[a3, a5], a4, n] + 
    S2[SP[a1, a2], SP[a3, a5], a4, a6, n] + S2[SP[a1, a2], SP[a3, a5], a6, 
     a4, n] + S2[SP[a1, a2], SP[a3, a6], a4, a5, n] + 
    S2[SP[a1, a2], SP[a3, a6], a5, a4, n] + S2[SP[a1, a4], a2, a3, 
     SP[a5, a6], n] - S2[SP[a1, a4], a2, a6, SP[a3, a5], n] - 
    S2[SP[a1, a4], a2, SP[a3, a5], a6, n] + S2[SP[a1, a4], a2, SP[a5, a6], 
     a3, n] + S2[SP[a1, a4], a3, a2, SP[a5, a6], n] - 
    S2[SP[a1, a4], a3, a5, SP[a2, a6], n] - S2[SP[a1, a4], a3, a6, 
     SP[a2, a5], n] - S2[SP[a1, a4], a3, SP[a2, a5], a6, n] - 
    S2[SP[a1, a4], a5, a2, SP[a3, a6], n] - S2[SP[a1, a4], a5, a3, 
     SP[a2, a6], n] - S2[SP[a1, a4], a5, SP[a2, a6], a3, n] - 
    S2[SP[a1, a4], a5, SP[a3, a6], a2, n] - 
    2*S2[SP[a1, a4], a6, a2, SP[a3, a5], n] - S2[SP[a1, a4], a6, a3, 
     SP[a2, a5], n] - S2[SP[a1, a4], a6, SP[a2, a3], a5, n] - 
    S2[SP[a1, a4], a6, SP[a2, a5], a3, n] - S2[SP[a1, a4], a6, SP[a3, a5], 
     a2, n] - S2[SP[a1, a4], SP[a2, a5], a3, a6, n] - 
    S2[SP[a1, a4], SP[a2, a5], a6, a3, n] - S2[SP[a1, a4], SP[a3, a5], a2, 
     a6, n] - S2[SP[a1, a4], SP[a3, a5], a6, a2, n] - 
    S2[SP[a1, a4], SP[a3, a6], a2, a5, n] - S2[SP[a1, a4], SP[a3, a6], a5, 
     a2, n] - S2[a1, a2, a3, a4, SP[a5, a6], n] - S2[a1, a2, a3, SP[a4, a5], 
     a6, n] - S2[a1, a2, a4, a3, SP[a5, a6], n] + 
    S2[a1, a2, a4, a6, SP[a3, a5], n] + S2[a1, a2, a4, SP[a3, a5], a6, n] - 
    S2[a1, a2, a4, SP[a5, a6], a3, n] + S2[a3, n]*S2[a1, a2, a5, a4, a6, n] - 
    S2[a1, a2, a5, a4, SP[a3, a6], n] - S2[a1, a2, a5, a6, SP[a3, a4], n] - 
    S2[a1, a2, a5, SP[a3, a4], a6, n] - S2[a1, a2, a5, SP[a3, a6], a4, n] - 
    S2[a1, a2, a6, a4, SP[a3, a5], n] - S2[a1, a2, a6, a5, SP[a3, a4], n] - 
    S2[a1, a2, a6, SP[a3, a4], a5, n] - S2[a1, a2, a6, SP[a3, a5], a4, n] - 
    S2[a1, a2, SP[a3, a5], a6, a4, n] - S2[a1, a2, SP[a3, a6], a4, a5, n] - 
    S2[a1, a2, SP[a3, a6], a5, a4, n] - S2[a1, a2, SP[a4, a5], a3, a6, n] - 
    S2[a1, a2, SP[a4, a5], a6, a3, n] - S2[a1, a3, a2, a4, SP[a5, a6], n] - 
    S2[a1, a3, a2, SP[a4, a5], a6, n] - S2[a1, a3, a4, a2, SP[a5, a6], n] + 
    S2[a1, a3, a4, a5, SP[a2, a6], n] + S2[a1, a3, a4, a6, SP[a2, a5], n] + 
    S2[a1, a3, a4, SP[a2, a5], a6, n] - S2[a4, n]*S2[a1, a3, a5, a2, a6, n] - 
    S2[a1, a3, a5, a2, SP[a4, a6], n] + S2[a2, n]*S2[a1, a3, a5, a4, a6, n] + 
    S2[a1, a3, a5, a4, SP[a2, a6], n] - S2[a4, n]*S2[a1, a3, a5, a6, a2, n] + 
    S2[a2, n]*S2[a1, a3, a5, a6, a4, n] + S2[a1, a3, a5, SP[a2, a6], a4, n] - 
    S2[a1, a3, a5, SP[a4, a6], a2, n] - S2[a4, n]*S2[a1, a3, a6, a2, a5, n] - 
    S2[a1, a3, a6, a2, SP[a4, a5], n] + S2[a2, n]*S2[a1, a3, a6, a4, a5, n] + 
    S2[a1, a3, a6, a4, SP[a2, a5], n] - S2[a4, n]*S2[a1, a3, a6, a5, a2, n] + 
    S2[a2, n]*S2[a1, a3, a6, a5, a4, n] + S2[a1, a3, a6, SP[a2, a5], a4, n] - 
    S2[a1, a3, a6, SP[a4, a5], a2, n] + S2[a1, a3, SP[a2, a5], a4, a6, n] + 
    S2[a1, a3, SP[a2, a5], a6, a4, n] + S2[a1, a3, SP[a2, a6], a4, a5, n] + 
    S2[a1, a3, SP[a2, a6], a5, a4, n] - S2[a1, a3, SP[a4, a5], a2, a6, n] - 
    S2[a1, a3, SP[a4, a5], a6, a2, n] - S2[a1, a3, SP[a4, a6], a2, a5, n] - 
    S2[a1, a3, SP[a4, a6], a5, a2, n] - S2[a1, a4, a2, a3, SP[a5, a6], n] + 
    S2[a1, a4, a2, a6, SP[a3, a5], n] + S2[a1, a4, a2, SP[a3, a5], a6, n] - 
    S2[a1, a4, a2, SP[a5, a6], a3, n] - S2[a1, a4, a3, a2, SP[a5, a6], n] + 
    S2[a1, a4, a3, a5, SP[a2, a6], n] + S2[a1, a4, a3, a6, SP[a2, a5], n] + 
    S2[a1, a4, a3, SP[a2, a5], a6, n] + S2[a1, a4, a5, a2, SP[a3, a6], n] + 
    S2[a1, a4, a5, a3, SP[a2, a6], n] + S2[a1, a4, a5, SP[a2, a6], a3, n] + 
    S2[a1, a4, a5, SP[a3, a6], a2, n] + 2*S2[a1, a4, a6, a2, SP[a3, a5], n] + 
    S2[a1, a4, a6, a3, SP[a2, a5], n] + S2[a1, a4, a6, SP[a2, a3], a5, n] + 
    S2[a1, a4, a6, SP[a2, a5], a3, n] + S2[a1, a4, a6, SP[a3, a5], a2, n] + 
    S2[a1, a4, SP[a2, a5], a3, a6, n] + S2[a1, a4, SP[a2, a5], a6, a3, n] + 
    S2[a1, a4, SP[a3, a5], a2, a6, n] + S2[a1, a4, SP[a3, a5], a6, a2, n] + 
    S2[a1, a4, SP[a3, a6], a2, a5, n] + S2[a1, a4, SP[a3, a6], a5, a2, n] - 
    S2[a4, n]*S2[a1, a5, a2, a3, a6, n] - S2[a1, a5, a2, a3, SP[a4, a6], n] - 
    S2[a4, n]*S2[a1, a5, a2, a6, a3, n] - S2[a1, a5, a2, a6, SP[a3, a4], n] - 
    S2[a1, a5, a2, SP[a3, a4], a6, n] - S2[a1, a5, a2, SP[a4, a6], a3, n] - 
    S2[a4, n]*S2[a1, a5, a3, a2, a6, n] - S2[a1, a5, a3, a2, SP[a4, a6], n] + 
    S2[a2, n]*S2[a1, a5, a3, a4, a6, n] + S2[a1, a5, a3, a4, SP[a2, a6], n] - 
    S2[a4, n]*S2[a1, a5, a3, a6, a2, n] + 
    S2[a2, n]*S2[a1, a5, a3, a6, a4, n] + S2[a1, a5, a3, SP[a2, a6], a4, n] - 
    S2[a1, a5, a3, SP[a4, a6], a2, n] + S2[a2, n]*S2[a1, a5, a4, a3, a6, n] + 
    S2[a1, a5, a4, a3, SP[a2, a6], n] + S2[a2, n]*S2[a1, a5, a4, a6, a3, n] + 
    S2[a1, a5, a4, a6, SP[a2, a3], n] + S2[a1, a5, a4, SP[a2, a3], a6, n] + 
    S2[a1, a5, a4, SP[a2, a6], a3, n] - S2[a4, n]*S2[a1, a5, a6, a2, a3, n] - 
    S2[a1, a5, a6, a2, SP[a3, a4], n] - S2[a4, n]*S2[a1, a5, a6, a3, a2, n] + 
    S2[a2, n]*S2[a1, a5, a6, a3, a4, n] + 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] + S2[a1, a5, a6, a4, SP[a2, a3], n] + 
    S2[a1, a5, a6, SP[a2, a3], a4, n] - S2[a1, a5, a6, SP[a3, a4], a2, n] + 
    S2[a1, a5, SP[a2, a3], a4, a6, n] + S2[a1, a5, SP[a2, a3], a6, a4, n] + 
    S2[a1, a5, SP[a2, a6], a3, a4, n] + S2[a1, a5, SP[a2, a6], a4, a3, n] - 
    S2[a1, a5, SP[a3, a4], a2, a6, n] - S2[a1, a5, SP[a3, a4], a6, a2, n] - 
    S2[a1, a5, SP[a4, a6], a2, a3, n] - S2[a1, a5, SP[a4, a6], a3, a2, n] - 
    S2[a4, n]*S2[a1, a6, a2, a3, a5, n] - S2[a1, a6, a2, a3, SP[a4, a5], n] - 
    S2[a4, n]*S2[a1, a6, a2, a5, a3, n] - S2[a1, a6, a2, a5, SP[a3, a4], n] - 
    S2[a1, a6, a2, SP[a3, a4], a5, n] - S2[a1, a6, a2, SP[a4, a5], a3, n] - 
    S2[a4, n]*S2[a1, a6, a3, a2, a5, n] - S2[a1, a6, a3, a2, SP[a4, a5], n] + 
    S2[a2, n]*S2[a1, a6, a3, a4, a5, n] + S2[a1, a6, a3, a4, SP[a2, a5], n] - 
    S2[a4, n]*S2[a1, a6, a3, a5, a2, n] + 
    S2[a2, n]*S2[a1, a6, a3, a5, a4, n] + S2[a1, a6, a3, SP[a2, a5], a4, n] - 
    S2[a1, a6, a3, SP[a4, a5], a2, n] + S2[a2, n]*S2[a1, a6, a4, a3, a5, n] + 
    S2[a1, a6, a4, a3, SP[a2, a5], n] + S2[a2, n]*S2[a1, a6, a4, a5, a3, n] + 
    S2[a1, a6, a4, a5, SP[a2, a3], n] + S2[a1, a6, a4, SP[a2, a3], a5, n] + 
    S2[a1, a6, a4, SP[a2, a5], a3, n] - S2[a4, n]*S2[a1, a6, a5, a2, a3, n] - 
    S2[a1, a6, a5, a2, SP[a3, a4], n] - S2[a4, n]*S2[a1, a6, a5, a3, a2, n] + 
    S2[a2, n]*S2[a1, a6, a5, a3, a4, n] + 
    S2[a2, n]*S2[a1, a6, a5, a4, a3, n] + S2[a1, a6, a5, a4, SP[a2, a3], n] + 
    S2[a1, a6, a5, SP[a2, a3], a4, n] - S2[a1, a6, a5, SP[a3, a4], a2, n] + 
    S2[a1, a6, SP[a2, a3], a4, a5, n] + S2[a1, a6, SP[a2, a3], a5, a4, n] + 
    S2[a1, a6, SP[a2, a5], a3, a4, n] + S2[a1, a6, SP[a2, a5], a4, a3, n] - 
    S2[a1, a6, SP[a3, a4], a2, a5, n] - S2[a1, a6, SP[a3, a4], a5, a2, n] - 
    S2[a1, a6, SP[a4, a5], a2, a3, n] - S2[a1, a6, SP[a4, a5], a3, a2, n] + 
    S2[a1, SP[a2, a3], a5, a4, a6, n] + S2[a1, SP[a2, a5], a3, a4, a6, n] + 
    S2[a1, SP[a2, a5], a3, a6, a4, n] + S2[a1, SP[a2, a5], a4, a3, a6, n] + 
    S2[a1, SP[a2, a5], a4, a6, a3, n] + S2[a1, SP[a2, a5], a6, a3, a4, n] + 
    S2[a1, SP[a2, a5], a6, a4, a3, n] + S2[a1, SP[a2, a6], a3, a4, a5, n] + 
    S2[a1, SP[a2, a6], a3, a5, a4, n] + S2[a1, SP[a2, a6], a4, a3, a5, n] + 
    S2[a1, SP[a2, a6], a4, a5, a3, n] + S2[a1, SP[a2, a6], a5, a3, a4, n] + 
    S2[a1, SP[a2, a6], a5, a4, a3, n] - S2[a1, SP[a4, a5], a2, a3, a6, n] - 
    S2[a1, SP[a4, a5], a2, a6, a3, n] - S2[a1, SP[a4, a5], a3, a2, a6, n] - 
    S2[a1, SP[a4, a5], a3, a6, a2, n] - S2[a1, SP[a4, a5], a6, a2, a3, n] - 
    S2[a1, SP[a4, a5], a6, a3, a2, n] - S2[a1, SP[a4, a6], a2, a3, a5, n] - 
    S2[a1, SP[a4, a6], a2, a5, a3, n] - S2[a1, SP[a4, a6], a3, a2, a5, n] - 
    S2[a1, SP[a4, a6], a3, a5, a2, n] - S2[a1, SP[a4, a6], a5, a2, a3, n] - 
    S2[a1, SP[a4, a6], a5, a3, a2, n] - S2[a2, a1, a5, a4, SP[a3, a6], n] - 
    S2[a2, a1, a5, a6, SP[a3, a4], n] - S2[a2, a1, a5, SP[a3, a4], a6, n] - 
    S2[a2, a1, a5, SP[a3, a6], a4, n] - S2[a2, a1, a6, a4, SP[a3, a5], n] - 
    S2[a2, a1, a6, a5, SP[a3, a4], n] - S2[a2, a1, a6, SP[a3, a4], a5, n] - 
    S2[a2, a1, a6, SP[a3, a5], a4, n] - S2[a2, a1, SP[a3, a5], a4, a6, n] - 
    S2[a2, a1, SP[a3, a5], a6, a4, n] - S2[a2, a1, SP[a3, a6], a4, a5, n] - 
    S2[a2, a1, SP[a3, a6], a5, a4, n] + S2[a6, n]*S2[a2, a5, a1, a3, a4, n] + 
    S2[a2, a5, a1, a3, SP[a4, a6], n] + S2[a6, n]*S2[a2, a5, a1, a4, a3, n] - 
    S2[a2, a5, a1, a6, SP[a3, a4], n] - S2[a2, a5, a1, SP[a3, a4], a6, n] + 
    S2[a2, a5, a1, SP[a4, a6], a3, n] + S2[a6, n]*S2[a2, a5, a4, a1, a3, n] - 
    S2[a2, a5, a6, a1, SP[a3, a4], n] - S2[a2, a5, a6, SP[a1, a4], a3, n] - 
    S2[a2, a5, SP[a1, a4], a3, a6, n] - S2[a2, a5, SP[a1, a4], a6, a3, n] + 
    S2[a2, a5, SP[a4, a6], a1, a3, n] + S2[a4, n]*S2[a2, a6, a1, a3, a5, n] + 
    S2[a2, a6, a1, a3, SP[a4, a5], n] - S2[a2, a6, a1, a4, SP[a3, a5], n] + 
    S2[a4, n]*S2[a2, a6, a1, a5, a3, n] - S2[a2, a6, a1, SP[a3, a5], a4, n] + 
    S2[a2, a6, a1, SP[a4, a5], a3, n] - S2[a2, a6, a4, a1, SP[a3, a5], n] - 
    S2[a2, a6, a4, SP[a1, a5], a3, n] - S2[a2, a6, a5, a1, SP[a3, a4], n] - 
    S2[a2, a6, a5, SP[a1, a4], a3, n] - S2[a2, a6, SP[a1, a5], a3, a4, n] - 
    S2[a2, a6, SP[a1, a5], a4, a3, n] - S2[a2, SP[a1, a5], a3, a4, a6, n] - 
    S2[a2, SP[a1, a5], a3, a6, a4, n] - S2[a2, SP[a1, a5], a4, a3, a6, n] - 
    S2[a2, SP[a1, a5], a4, a6, a3, n] - S2[a2, SP[a1, a5], a6, a3, a4, n] - 
    S2[a2, SP[a1, a5], a6, a4, a3, n] - S2[a2, SP[a1, a6], a3, a4, a5, n] - 
    S2[a2, SP[a1, a6], a3, a5, a4, n] - S2[a2, SP[a1, a6], a4, a3, a5, n] - 
    S2[a2, SP[a1, a6], a4, a5, a3, n] - S2[a2, SP[a1, a6], a5, a3, a4, n] - 
    S2[a2, SP[a1, a6], a5, a4, a3, n] + S2[a2, SP[a4, a6], a1, a3, a5, n] + 
    S2[a2, SP[a4, a6], a1, a5, a3, n] + S2[a2, SP[a5, a6], a1, a3, a4, n] + 
    S2[a2, SP[a5, a6], a1, a4, a3, n] + S2[a2, SP[a5, a6], a4, a1, a3, n] - 
    S2[a4, a1, a2, a3, SP[a5, a6], n] + S2[a4, a1, a2, a6, SP[a3, a5], n] + 
    S2[a4, a1, a2, SP[a3, a5], a6, n] - S2[a4, a1, a2, SP[a5, a6], a3, n] - 
    S2[a4, a1, a3, a2, SP[a5, a6], n] + S2[a4, a1, a3, a5, SP[a2, a6], n] + 
    S2[a4, a1, a3, a6, SP[a2, a5], n] + S2[a4, a1, a3, SP[a2, a5], a6, n] + 
    S2[a4, a1, a5, a2, SP[a3, a6], n] + S2[a4, a1, a5, a3, SP[a2, a6], n] + 
    S2[a4, a1, a5, SP[a2, a6], a3, n] + S2[a4, a1, a5, SP[a3, a6], a2, n] + 
    2*S2[a4, a1, a6, a2, SP[a3, a5], n] + S2[a4, a1, a6, a3, SP[a2, a5], n] + 
    S2[a4, a1, a6, SP[a2, a3], a5, n] + S2[a4, a1, a6, SP[a2, a5], a3, n] + 
    S2[a4, a1, a6, SP[a3, a5], a2, n] + S2[a4, a1, SP[a2, a5], a3, a6, n] + 
    S2[a4, a1, SP[a2, a5], a6, a3, n] + S2[a4, a1, SP[a3, a5], a2, a6, n] + 
    S2[a4, a1, SP[a3, a5], a6, a2, n] + S2[a4, a1, SP[a3, a6], a2, a5, n] + 
    S2[a4, a1, SP[a3, a6], a5, a2, n] - S2[a6, n]*S2[a4, a5, a1, a2, a3, n] - 
    S2[a6, n]*S2[a4, a5, a1, a3, a2, n] + 
    2*S2[a4, a6, a1, a2, SP[a3, a5], n] - 
    S2[a2, n]*S2[a4, a6, a1, a3, a5, n] - 
    S2[a2, n]*S2[a4, a6, a1, a5, a3, n] - S2[a4, a6, a1, a5, SP[a2, a3], n] + 
    S2[a4, a6, a1, SP[a3, a5], a2, n] + S2[a4, a6, a2, a1, SP[a3, a5], n] + 
    S2[a4, a6, a2, SP[a1, a5], a3, n] + S2[a4, a6, SP[a1, a5], a2, a3, n] + 
    S2[a4, a6, SP[a1, a5], a3, a2, n] + S2[a4, SP[a1, a5], a2, a3, a6, n] + 
    S2[a4, SP[a1, a5], a2, a6, a3, n] + S2[a4, SP[a1, a5], a3, a2, a6, n] + 
    S2[a4, SP[a1, a5], a3, a6, a2, n] + S2[a4, SP[a1, a5], a6, a2, a3, n] + 
    S2[a4, SP[a1, a5], a6, a3, a2, n] + S2[a4, SP[a1, a6], a2, a3, a5, n] + 
    S2[a4, SP[a1, a6], a2, a5, a3, n] + S2[a4, SP[a1, a6], a3, a2, a5, n] + 
    S2[a4, SP[a1, a6], a3, a5, a2, n] + S2[a4, SP[a1, a6], a5, a2, a3, n] + 
    S2[a4, SP[a1, a6], a5, a3, a2, n] - S2[a4, SP[a2, a6], a1, a3, a5, n] - 
    S2[a4, SP[a2, a6], a1, a5, a3, n] - S2[a4, SP[a5, a6], a1, a2, a3, n] - 
    S2[a4, SP[a5, a6], a1, a3, a2, n] - S2[a4, n]*S2[a6, a2, a5, a1, a3, n] - 
    S2[a6, a2, a5, a1, SP[a3, a4], n] - S2[a6, a2, a5, SP[a1, a4], a3, n] - 
    S2[a6, a2, SP[a4, a5], a1, a3, n] + S2[a2, n]*S2[a6, a4, a5, a1, a3, n] + 
    S2[a6, a4, a5, a1, SP[a2, a3], n] + S2[a6, a4, a5, SP[a1, a2], a3, n] + 
    S2[a6, a4, SP[a2, a5], a1, a3, n] + S2[SP[a1, a3], a2, a5, a4, a6, n] + 
    S2[SP[a2, a6], a4, a5, a1, a3, n] + S2[SP[a2, a6], a5, a1, a3, a4, n] + 
    S2[SP[a2, a6], a5, a1, a4, a3, n] + S2[SP[a2, a6], a5, a4, a1, a3, n] - 
    S2[SP[a4, a6], a2, a5, a1, a3, n] - S2[SP[a4, a6], a5, a1, a2, a3, n] - 
    S2[SP[a4, a6], a5, a1, a3, a2, n] - S2[a6, a4, a5, a2, a1, a3, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a3_, a1_, a2_, a5_, a6_, a4_, n_] :> 
  -(S2[a1, a2, a3, n]*S2[a4, a6, a5, n]) - S2[a1, a3, a2, n]*
     S2[a4, a6, a5, n] - S2[SP[a1, a4], SP[a2, a6], SP[a3, a5], n] - 
    S2[SP[a1, a4], SP[a3, a6], SP[a2, a5], n] + 
    S2[a4, a6, n]*S2[a1, a2, a3, a5, n] + S2[a4, a6, n]*
     S2[a1, a2, a5, a3, n] - S2[a1, a2, SP[a3, a4], SP[a5, a6], n] - 
    S2[a1, a2, SP[a4, a5], SP[a3, a6], n] + S2[a4, a6, n]*
     S2[a1, a3, a2, a5, n] - S2[a1, a3, SP[a2, a4], SP[a5, a6], n] + 
    S2[a1, a4, SP[a2, a6], SP[a3, a5], n] + S2[a1, a4, SP[a3, a6], 
     SP[a2, a5], n] - S2[a1, SP[a2, a4], a3, SP[a5, a6], n] - 
    S2[a1, SP[a2, a4], a5, SP[a3, a6], n] + S2[a1, SP[a2, a4], a6, 
     SP[a3, a5], n] - S2[a1, SP[a2, a4], SP[a5, a6], a3, n] - 
    S2[a1, SP[a3, a4], a2, SP[a5, a6], n] + S2[a1, SP[a3, a4], a6, 
     SP[a2, a5], n] + S2[a1, a3, n]*S2[a2, a6, a4, a5, n] + 
    S2[a1, a3, n]*S2[a2, a6, a5, a4, n] - S2[a2, a6, SP[a1, a4], SP[a3, a5], 
     n] - S2[a2, a6, SP[a1, a5], SP[a3, a4], n] - S2[a2, SP[a1, a6], a4, 
     SP[a3, a5], n] - S2[a2, SP[a1, a6], a5, SP[a3, a4], n] - 
    S2[a2, SP[a1, a6], SP[a3, a4], a5, n] - S2[a2, SP[a1, a6], SP[a3, a5], 
     a4, n] + S2[a4, a1, SP[a2, a6], SP[a3, a5], n] + 
    S2[a4, a1, SP[a3, a6], SP[a2, a5], n] - S2[a1, a3, n]*
     S2[a4, a6, a2, a5, n] + S2[a4, a6, SP[a1, a2], SP[a3, a5], n] + 
    2*S2[a4, SP[a1, a6], a2, SP[a3, a5], n] + S2[a4, SP[a1, a6], a3, 
     SP[a2, a5], n] + S2[a4, SP[a1, a6], SP[a2, a3], a5, n] + 
    S2[a4, SP[a1, a6], SP[a2, a5], a3, n] + S2[a4, SP[a1, a6], SP[a3, a5], 
     a2, n] - S2[SP[a1, a2], a6, a4, SP[a3, a5], n] - 
    S2[SP[a1, a2], a6, a5, SP[a3, a4], n] - S2[SP[a1, a2], a6, SP[a3, a4], 
     a5, n] - S2[SP[a1, a2], a6, SP[a3, a5], a4, n] - 
    S2[SP[a1, a2], SP[a3, a6], a4, a5, n] - S2[SP[a1, a2], SP[a3, a6], a5, 
     a4, n] - S2[SP[a1, a4], a2, a3, SP[a5, a6], n] - 
    S2[SP[a1, a4], a2, a5, SP[a3, a6], n] + S2[SP[a1, a4], a2, a6, 
     SP[a3, a5], n] - S2[SP[a1, a4], a2, SP[a5, a6], a3, n] - 
    S2[SP[a1, a4], a3, a2, SP[a5, a6], n] + S2[SP[a1, a4], a3, a6, 
     SP[a2, a5], n] + 2*S2[SP[a1, a4], a6, a2, SP[a3, a5], n] + 
    S2[SP[a1, a4], a6, a3, SP[a2, a5], n] + S2[SP[a1, a4], a6, SP[a2, a3], 
     a5, n] + S2[SP[a1, a4], a6, SP[a2, a5], a3, n] + 
    S2[SP[a1, a4], a6, SP[a3, a5], a2, n] + S2[SP[a1, a4], SP[a3, a6], a2, 
     a5, n] + S2[SP[a1, a4], SP[a3, a6], a5, a2, n] + 
    S2[a1, a2, a3, a4, SP[a5, a6], n] - S2[a4, n]*S2[a1, a2, a3, a5, a6, n] - 
    S2[a1, a2, a3, a5, SP[a4, a6], n] + S2[a1, a2, a4, a3, SP[a5, a6], n] + 
    S2[a1, a2, a4, a5, SP[a3, a6], n] - S2[a1, a2, a4, a6, SP[a3, a5], n] + 
    S2[a1, a2, a4, SP[a5, a6], a3, n] - S2[a4, n]*S2[a1, a2, a5, a3, a6, n] - 
    S2[a1, a2, a5, a3, SP[a4, a6], n] + S2[a1, a2, a5, a4, SP[a3, a6], n] - 
    S2[a4, n]*S2[a1, a2, a5, a6, a3, n] + 
    S2[a3, n]*S2[a1, a2, a5, a6, a4, n] + S2[a1, a2, a5, SP[a3, a6], a4, n] - 
    S2[a1, a2, a5, SP[a4, a6], a3, n] + S2[a1, a2, a6, a4, SP[a3, a5], n] + 
    S2[a1, a2, a6, a5, SP[a3, a4], n] + S2[a1, a2, a6, SP[a3, a4], a5, n] + 
    S2[a1, a2, a6, SP[a3, a5], a4, n] + S2[a1, a2, SP[a3, a5], a6, a4, n] + 
    S2[a1, a2, SP[a3, a6], a4, a5, n] + S2[a1, a2, SP[a3, a6], a5, a4, n] + 
    S2[a1, a3, a2, a4, SP[a5, a6], n] - S2[a4, n]*S2[a1, a3, a2, a5, a6, n] - 
    S2[a1, a3, a2, a5, SP[a4, a6], n] + S2[a1, a3, a4, a2, SP[a5, a6], n] - 
    S2[a1, a3, a4, a6, SP[a2, a5], n] + S2[a4, n]*S2[a1, a3, a6, a2, a5, n] + 
    S2[a1, a3, a6, a2, SP[a4, a5], n] - S2[a2, n]*S2[a1, a3, a6, a4, a5, n] - 
    S2[a1, a3, a6, a4, SP[a2, a5], n] + S2[a4, n]*S2[a1, a3, a6, a5, a2, n] - 
    S2[a2, n]*S2[a1, a3, a6, a5, a4, n] - S2[a1, a3, a6, SP[a2, a5], a4, n] + 
    S2[a1, a3, a6, SP[a4, a5], a2, n] - S2[a1, a3, SP[a2, a6], a4, a5, n] - 
    S2[a1, a3, SP[a2, a6], a5, a4, n] + S2[a1, a3, SP[a4, a6], a2, a5, n] + 
    S2[a1, a3, SP[a4, a6], a5, a2, n] + S2[a1, a4, a2, a3, SP[a5, a6], n] + 
    S2[a1, a4, a2, a5, SP[a3, a6], n] - S2[a1, a4, a2, a6, SP[a3, a5], n] + 
    S2[a1, a4, a2, SP[a5, a6], a3, n] + S2[a1, a4, a3, a2, SP[a5, a6], n] - 
    S2[a1, a4, a3, a6, SP[a2, a5], n] - 2*S2[a1, a4, a6, a2, SP[a3, a5], n] - 
    S2[a1, a4, a6, a3, SP[a2, a5], n] - S2[a1, a4, a6, SP[a2, a3], a5, n] - 
    S2[a1, a4, a6, SP[a2, a5], a3, n] - S2[a1, a4, a6, SP[a3, a5], a2, n] - 
    S2[a1, a4, SP[a3, a6], a2, a5, n] - S2[a1, a4, SP[a3, a6], a5, a2, n] + 
    S2[a4, n]*S2[a1, a6, a2, a3, a5, n] + S2[a1, a6, a2, a3, SP[a4, a5], n] + 
    S2[a4, n]*S2[a1, a6, a2, a5, a3, n] + S2[a1, a6, a2, a5, SP[a3, a4], n] + 
    S2[a1, a6, a2, SP[a3, a4], a5, n] + S2[a1, a6, a2, SP[a4, a5], a3, n] + 
    S2[a4, n]*S2[a1, a6, a3, a2, a5, n] + S2[a1, a6, a3, a2, SP[a4, a5], n] - 
    S2[a2, n]*S2[a1, a6, a3, a4, a5, n] - S2[a1, a6, a3, a4, SP[a2, a5], n] + 
    S2[a4, n]*S2[a1, a6, a3, a5, a2, n] - 
    S2[a2, n]*S2[a1, a6, a3, a5, a4, n] - S2[a1, a6, a3, SP[a2, a5], a4, n] + 
    S2[a1, a6, a3, SP[a4, a5], a2, n] - S2[a2, n]*S2[a1, a6, a4, a3, a5, n] - 
    S2[a1, a6, a4, a3, SP[a2, a5], n] - S2[a2, n]*S2[a1, a6, a4, a5, a3, n] - 
    S2[a1, a6, a4, a5, SP[a2, a3], n] - S2[a1, a6, a4, SP[a2, a3], a5, n] - 
    S2[a1, a6, a4, SP[a2, a5], a3, n] + S2[a4, n]*S2[a1, a6, a5, a2, a3, n] + 
    S2[a1, a6, a5, a2, SP[a3, a4], n] + S2[a4, n]*S2[a1, a6, a5, a3, a2, n] - 
    S2[a2, n]*S2[a1, a6, a5, a3, a4, n] - 
    S2[a2, n]*S2[a1, a6, a5, a4, a3, n] - S2[a1, a6, a5, a4, SP[a2, a3], n] - 
    S2[a1, a6, a5, SP[a2, a3], a4, n] + S2[a1, a6, a5, SP[a3, a4], a2, n] - 
    S2[a1, a6, SP[a2, a3], a4, a5, n] - S2[a1, a6, SP[a2, a3], a5, a4, n] - 
    S2[a1, a6, SP[a2, a5], a3, a4, n] - S2[a1, a6, SP[a2, a5], a4, a3, n] + 
    S2[a1, a6, SP[a3, a4], a2, a5, n] + S2[a1, a6, SP[a3, a4], a5, a2, n] + 
    S2[a1, a6, SP[a4, a5], a2, a3, n] + S2[a1, a6, SP[a4, a5], a3, a2, n] + 
    S2[a1, SP[a2, a3], a5, a6, a4, n] - S2[a1, SP[a2, a6], a3, a4, a5, n] - 
    S2[a1, SP[a2, a6], a3, a5, a4, n] - S2[a1, SP[a2, a6], a4, a3, a5, n] - 
    S2[a1, SP[a2, a6], a4, a5, a3, n] - S2[a1, SP[a2, a6], a5, a3, a4, n] - 
    S2[a1, SP[a2, a6], a5, a4, a3, n] + S2[a1, SP[a4, a6], a2, a3, a5, n] + 
    S2[a1, SP[a4, a6], a2, a5, a3, n] + S2[a1, SP[a4, a6], a3, a2, a5, n] + 
    S2[a1, SP[a4, a6], a3, a5, a2, n] + S2[a1, SP[a4, a6], a5, a2, a3, n] + 
    S2[a1, SP[a4, a6], a5, a3, a2, n] + S2[a2, a1, a6, a4, SP[a3, a5], n] + 
    S2[a2, a1, a6, a5, SP[a3, a4], n] + S2[a2, a1, a6, SP[a3, a4], a5, n] + 
    S2[a2, a1, a6, SP[a3, a5], a4, n] + S2[a2, a1, SP[a3, a6], a4, a5, n] + 
    S2[a2, a1, SP[a3, a6], a5, a4, n] - S2[a4, n]*S2[a2, a6, a1, a3, a5, n] - 
    S2[a2, a6, a1, a3, SP[a4, a5], n] + S2[a2, a6, a1, a4, SP[a3, a5], n] - 
    S2[a4, n]*S2[a2, a6, a1, a5, a3, n] + S2[a2, a6, a1, SP[a3, a5], a4, n] - 
    S2[a2, a6, a1, SP[a4, a5], a3, n] + S2[a2, a6, a4, a1, SP[a3, a5], n] + 
    S2[a2, a6, a4, SP[a1, a5], a3, n] + S2[a2, a6, a5, a1, SP[a3, a4], n] + 
    S2[a2, a6, a5, SP[a1, a4], a3, n] + S2[a2, a6, SP[a1, a5], a3, a4, n] + 
    S2[a2, a6, SP[a1, a5], a4, a3, n] + S2[a2, SP[a1, a6], a3, a4, a5, n] + 
    S2[a2, SP[a1, a6], a3, a5, a4, n] + S2[a2, SP[a1, a6], a4, a3, a5, n] + 
    S2[a2, SP[a1, a6], a4, a5, a3, n] + S2[a2, SP[a1, a6], a5, a3, a4, n] + 
    S2[a2, SP[a1, a6], a5, a4, a3, n] - S2[a2, SP[a4, a6], a1, a3, a5, n] - 
    S2[a2, SP[a4, a6], a1, a5, a3, n] + S2[a4, a1, a2, a3, SP[a5, a6], n] + 
    S2[a4, a1, a2, a5, SP[a3, a6], n] - S2[a4, a1, a2, a6, SP[a3, a5], n] + 
    S2[a4, a1, a2, SP[a5, a6], a3, n] + S2[a4, a1, a3, a2, SP[a5, a6], n] - 
    S2[a4, a1, a3, a6, SP[a2, a5], n] - 2*S2[a4, a1, a6, a2, SP[a3, a5], n] - 
    S2[a4, a1, a6, a3, SP[a2, a5], n] - S2[a4, a1, a6, SP[a2, a3], a5, n] - 
    S2[a4, a1, a6, SP[a2, a5], a3, n] - S2[a4, a1, a6, SP[a3, a5], a2, n] - 
    S2[a4, a1, SP[a3, a6], a2, a5, n] - S2[a4, a1, SP[a3, a6], a5, a2, n] - 
    2*S2[a4, a6, a1, a2, SP[a3, a5], n] + 
    S2[a2, n]*S2[a4, a6, a1, a3, a5, n] + 
    S2[a2, n]*S2[a4, a6, a1, a5, a3, n] + S2[a4, a6, a1, a5, SP[a2, a3], n] - 
    S2[a4, a6, a1, SP[a3, a5], a2, n] - S2[a4, a6, a2, a1, SP[a3, a5], n] - 
    S2[a4, a6, a2, SP[a1, a5], a3, n] - S2[a4, a6, SP[a1, a5], a2, a3, n] - 
    S2[a4, a6, SP[a1, a5], a3, a2, n] - S2[a4, SP[a1, a6], a2, a3, a5, n] - 
    S2[a4, SP[a1, a6], a2, a5, a3, n] - S2[a4, SP[a1, a6], a3, a2, a5, n] - 
    S2[a4, SP[a1, a6], a3, a5, a2, n] - S2[a4, SP[a1, a6], a5, a2, a3, n] - 
    S2[a4, SP[a1, a6], a5, a3, a2, n] + S2[a4, SP[a2, a6], a1, a3, a5, n] + 
    S2[a4, SP[a2, a6], a1, a5, a3, n] + S2[a4, n]*S2[a6, a2, a5, a1, a3, n] + 
    S2[a6, a2, a5, a1, SP[a3, a4], n] + S2[a6, a2, a5, SP[a1, a4], a3, n] + 
    S2[a6, a2, SP[a4, a5], a1, a3, n] - S2[a2, n]*S2[a6, a4, a5, a1, a3, n] - 
    S2[a6, a4, a5, a1, SP[a2, a3], n] - S2[a6, a4, a5, SP[a1, a2], a3, n] - 
    S2[a6, a4, SP[a2, a5], a1, a3, n] + S2[a4, n]*S2[a6, a5, a1, a2, a3, n] + 
    S2[a6, a5, a1, a2, SP[a3, a4], n] + S2[a4, n]*S2[a6, a5, a1, a3, a2, n] - 
    S2[a2, n]*S2[a6, a5, a1, a3, a4, n] - 
    S2[a2, n]*S2[a6, a5, a1, a4, a3, n] - S2[a6, a5, a1, a4, SP[a2, a3], n] - 
    S2[a6, a5, a1, SP[a2, a3], a4, n] + S2[a6, a5, a1, SP[a3, a4], a2, n] - 
    S2[a2, n]*S2[a6, a5, a4, a1, a3, n] - S2[a6, a5, a4, a1, SP[a2, a3], n] - 
    S2[a6, a5, a4, SP[a1, a2], a3, n] - S2[a6, a5, SP[a1, a2], a3, a4, n] - 
    S2[a6, a5, SP[a1, a2], a4, a3, n] + S2[a6, a5, SP[a1, a4], a2, a3, n] + 
    S2[a6, a5, SP[a1, a4], a3, a2, n] - S2[a6, a5, SP[a2, a4], a1, a3, n] - 
    S2[a6, SP[a2, a5], a1, a3, a4, n] - S2[a6, SP[a2, a5], a1, a4, a3, n] - 
    S2[a6, SP[a2, a5], a4, a1, a3, n] + S2[a6, SP[a4, a5], a1, a2, a3, n] + 
    S2[a6, SP[a4, a5], a1, a3, a2, n] + S2[SP[a1, a3], a2, a5, a6, a4, n] - 
    S2[SP[a2, a6], a4, a5, a1, a3, n] - S2[SP[a2, a6], a5, a1, a3, a4, n] - 
    S2[SP[a2, a6], a5, a1, a4, a3, n] - S2[SP[a2, a6], a5, a4, a1, a3, n] + 
    S2[SP[a4, a6], a2, a5, a1, a3, n] + S2[SP[a4, a6], a5, a1, a2, a3, n] + 
    S2[SP[a4, a6], a5, a1, a3, a2, n] + S2[a6, a4, a5, a2, a1, a3, n] + 
    S2[a6, a5, a2, a1, a3, a4, n] + S2[a6, a5, a2, a1, a4, a3, n] + 
    S2[a6, a5, a2, a4, a1, a3, n] + S2[a6, a5, a4, a2, a1, a3, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a3_, a1_, a2_, a6_, a4_, a5_, n_] :> 
  S2[a1, a2, a3, n]*S2[a4, a5, a6, n] + S2[a1, a3, a2, n]*S2[a4, a5, a6, n] + 
    S2[a1, a2, a3, n]*S2[a4, a6, a5, n] + S2[a1, a3, a2, n]*
     S2[a4, a6, a5, n] + S2[SP[a1, a4], SP[a2, a5], SP[a3, a6], n] + 
    S2[SP[a1, a4], SP[a2, a6], SP[a3, a5], n] + S2[SP[a1, a4], SP[a3, a5], 
     SP[a2, a6], n] + S2[SP[a1, a4], SP[a3, a6], SP[a2, a5], n] - 
    S2[a1, a4, SP[a2, a5], SP[a3, a6], n] - S2[a1, a4, SP[a2, a6], 
     SP[a3, a5], n] - S2[a1, a4, SP[a3, a5], SP[a2, a6], n] - 
    S2[a1, a4, SP[a3, a6], SP[a2, a5], n] - S2[a1, SP[a2, a4], a5, 
     SP[a3, a6], n] - S2[a1, SP[a2, a4], a6, SP[a3, a5], n] - 
    S2[a1, SP[a2, a4], SP[a3, a5], a6, n] - S2[a1, SP[a2, a4], SP[a3, a6], 
     a5, n] - S2[a1, SP[a3, a4], a5, SP[a2, a6], n] - 
    S2[a1, SP[a3, a4], a6, SP[a2, a5], n] - S2[a1, SP[a3, a4], SP[a2, a5], 
     a6, n] - S2[a1, SP[a3, a4], SP[a2, a6], a5, n] - 
    S2[a1, a3, n]*S2[a2, a6, a4, a5, n] + S2[a2, a6, SP[a1, a4], SP[a3, a5], 
     n] + S2[a2, SP[a1, a6], a4, SP[a3, a5], n] + 
    S2[a2, SP[a1, a6], SP[a3, a4], a5, n] - S2[a4, a1, SP[a2, a5], 
     SP[a3, a6], n] - S2[a4, a1, SP[a2, a6], SP[a3, a5], n] - 
    S2[a4, a1, SP[a3, a5], SP[a2, a6], n] - S2[a4, a1, SP[a3, a6], 
     SP[a2, a5], n] - S2[a4, SP[a1, a5], a2, SP[a3, a6], n] - 
    S2[a4, SP[a1, a5], a3, SP[a2, a6], n] - S2[a4, SP[a1, a5], SP[a2, a6], 
     a3, n] - S2[a4, SP[a1, a5], SP[a3, a6], a2, n] - 
    S2[a4, SP[a1, a6], a2, SP[a3, a5], n] - S2[a4, SP[a1, a6], a3, 
     SP[a2, a5], n] - S2[a4, SP[a1, a6], SP[a2, a5], a3, n] - 
    S2[a4, SP[a1, a6], SP[a3, a5], a2, n] + S2[SP[a1, a2], a6, a4, 
     SP[a3, a5], n] + S2[SP[a1, a2], a6, SP[a3, a4], a5, n] + 
    S2[SP[a1, a2], SP[a3, a6], a4, a5, n] - S2[SP[a1, a4], a2, a5, 
     SP[a3, a6], n] - S2[SP[a1, a4], a2, a6, SP[a3, a5], n] - 
    S2[SP[a1, a4], a2, SP[a3, a5], a6, n] - S2[SP[a1, a4], a2, SP[a3, a6], 
     a5, n] - S2[SP[a1, a4], a3, a5, SP[a2, a6], n] - 
    S2[SP[a1, a4], a3, a6, SP[a2, a5], n] - S2[SP[a1, a4], a3, SP[a2, a5], 
     a6, n] - S2[SP[a1, a4], a3, SP[a2, a6], a5, n] - 
    S2[SP[a1, a4], a5, a2, SP[a3, a6], n] - S2[SP[a1, a4], a5, a3, 
     SP[a2, a6], n] - S2[SP[a1, a4], a5, SP[a2, a6], a3, n] - 
    S2[SP[a1, a4], a5, SP[a3, a6], a2, n] - S2[SP[a1, a4], a6, a2, 
     SP[a3, a5], n] - S2[SP[a1, a4], a6, a3, SP[a2, a5], n] - 
    S2[SP[a1, a4], a6, SP[a2, a5], a3, n] - S2[SP[a1, a4], a6, SP[a3, a5], 
     a2, n] - S2[SP[a1, a4], SP[a2, a5], a3, a6, n] - 
    S2[SP[a1, a4], SP[a2, a5], a6, a3, n] - S2[SP[a1, a4], SP[a2, a6], a3, 
     a5, n] - S2[SP[a1, a4], SP[a2, a6], a5, a3, n] - 
    S2[SP[a1, a4], SP[a3, a5], a2, a6, n] - S2[SP[a1, a4], SP[a3, a5], a6, 
     a2, n] - S2[SP[a1, a4], SP[a3, a6], a2, a5, n] - 
    S2[SP[a1, a4], SP[a3, a6], a5, a2, n] + 
    S2[a6, n]*S2[a1, a2, a3, a5, a4, n] - 
    S2[a4, n]*S2[a1, a2, a3, a5, a6, n] - 
    S2[a4, n]*S2[a1, a2, a3, a6, a5, n] - S2[a1, a2, a3, a6, SP[a4, a5], n] - 
    S2[a1, a2, a3, SP[a4, a5], a6, n] - S2[a1, a2, a3, SP[a4, a6], a5, n] + 
    S2[a1, a2, a3, SP[a5, a6], a4, n] + S2[a1, a2, a4, a5, SP[a3, a6], n] + 
    S2[a1, a2, a4, a6, SP[a3, a5], n] + S2[a1, a2, a4, SP[a3, a5], a6, n] + 
    S2[a1, a2, a4, SP[a3, a6], a5, n] + S2[a6, n]*S2[a1, a2, a5, a3, a4, n] - 
    S2[a4, n]*S2[a1, a2, a5, a3, a6, n] + 
    S2[a6, n]*S2[a1, a2, a5, a4, a3, n] + S2[a1, a2, a5, a4, SP[a3, a6], n] - 
    S2[a4, n]*S2[a1, a2, a5, a6, a3, n] - S2[a1, a2, a5, a6, SP[a3, a4], n] - 
    S2[a1, a2, a5, SP[a3, a4], a6, n] + S2[a1, a2, a5, SP[a3, a6], a4, n] - 
    S2[a4, n]*S2[a1, a2, a6, a3, a5, n] - S2[a1, a2, a6, a3, SP[a4, a5], n] + 
    S2[a3, n]*S2[a1, a2, a6, a4, a5, n] - 
    S2[a4, n]*S2[a1, a2, a6, a5, a3, n] - S2[a1, a2, a6, a5, SP[a3, a4], n] - 
    S2[a1, a2, a6, SP[a3, a4], a5, n] - S2[a1, a2, a6, SP[a4, a5], a3, n] + 
    S2[a1, a2, SP[a3, a6], a5, a4, n] - S2[a1, a2, SP[a4, a5], a3, a6, n] - 
    S2[a1, a2, SP[a4, a5], a6, a3, n] - S2[a1, a2, SP[a4, a6], a3, a5, n] - 
    S2[a1, a2, SP[a4, a6], a5, a3, n] + S2[a1, a2, SP[a5, a6], a3, a4, n] + 
    S2[a1, a2, SP[a5, a6], a4, a3, n] + S2[a6, n]*S2[a1, a3, a2, a5, a4, n] - 
    S2[a4, n]*S2[a1, a3, a2, a5, a6, n] - 
    S2[a4, n]*S2[a1, a3, a2, a6, a5, n] - S2[a1, a3, a2, a6, SP[a4, a5], n] - 
    S2[a1, a3, a2, SP[a4, a5], a6, n] - S2[a1, a3, a2, SP[a4, a6], a5, n] + 
    S2[a1, a3, a2, SP[a5, a6], a4, n] + S2[a1, a3, a4, a5, SP[a2, a6], n] + 
    S2[a1, a3, a4, a6, SP[a2, a5], n] + S2[a1, a3, a4, SP[a2, a5], a6, n] + 
    S2[a1, a3, a4, SP[a2, a6], a5, n] + S2[a6, n]*S2[a1, a3, a5, a2, a4, n] - 
    S2[a4, n]*S2[a1, a3, a5, a2, a6, n] + 
    S2[a6, n]*S2[a1, a3, a5, a4, a2, n] + S2[a1, a3, a5, a4, SP[a2, a6], n] - 
    S2[a4, n]*S2[a1, a3, a5, a6, a2, n] - S2[a1, a3, a5, a6, SP[a2, a4], n] - 
    S2[a1, a3, a5, SP[a2, a4], a6, n] + S2[a1, a3, a5, SP[a2, a6], a4, n] - 
    S2[a4, n]*S2[a1, a3, a6, a2, a5, n] - S2[a1, a3, a6, a2, SP[a4, a5], n] + 
    S2[a2, n]*S2[a1, a3, a6, a4, a5, n] + S2[a1, a3, a6, a4, SP[a2, a5], n] - 
    S2[a4, n]*S2[a1, a3, a6, a5, a2, n] - S2[a1, a3, a6, a5, SP[a2, a4], n] - 
    S2[a1, a3, a6, SP[a4, a5], a2, n] + S2[a1, a3, SP[a2, a6], a4, a5, n] + 
    S2[a1, a3, SP[a2, a6], a5, a4, n] - S2[a1, a3, SP[a4, a5], a2, a6, n] - 
    S2[a1, a3, SP[a4, a5], a6, a2, n] - S2[a1, a3, SP[a4, a6], a2, a5, n] - 
    S2[a1, a3, SP[a4, a6], a5, a2, n] + S2[a1, a3, SP[a5, a6], a2, a4, n] + 
    S2[a1, a3, SP[a5, a6], a4, a2, n] + S2[a1, a4, a2, a5, SP[a3, a6], n] + 
    S2[a1, a4, a2, a6, SP[a3, a5], n] + S2[a1, a4, a2, SP[a3, a5], a6, n] + 
    S2[a1, a4, a2, SP[a3, a6], a5, n] + S2[a1, a4, a3, a5, SP[a2, a6], n] + 
    S2[a1, a4, a3, a6, SP[a2, a5], n] + S2[a1, a4, a3, SP[a2, a5], a6, n] + 
    S2[a1, a4, a3, SP[a2, a6], a5, n] + S2[a1, a4, a5, a2, SP[a3, a6], n] + 
    S2[a1, a4, a5, a3, SP[a2, a6], n] + S2[a1, a4, a5, SP[a2, a6], a3, n] + 
    S2[a1, a4, a5, SP[a3, a6], a2, n] + S2[a1, a4, a6, a2, SP[a3, a5], n] + 
    S2[a1, a4, a6, a3, SP[a2, a5], n] + S2[a1, a4, a6, SP[a2, a5], a3, n] + 
    S2[a1, a4, a6, SP[a3, a5], a2, n] + S2[a1, a4, SP[a2, a5], a3, a6, n] + 
    S2[a1, a4, SP[a2, a5], a6, a3, n] + S2[a1, a4, SP[a2, a6], a3, a5, n] + 
    S2[a1, a4, SP[a2, a6], a5, a3, n] + S2[a1, a4, SP[a3, a5], a2, a6, n] + 
    S2[a1, a4, SP[a3, a5], a6, a2, n] + S2[a1, a4, SP[a3, a6], a2, a5, n] + 
    S2[a1, a4, SP[a3, a6], a5, a2, n] + S2[a6, n]*S2[a1, a5, a2, a3, a4, n] - 
    S2[a4, n]*S2[a1, a5, a2, a3, a6, n] + 
    S2[a6, n]*S2[a1, a5, a2, a4, a3, n] + S2[a1, a5, a2, a4, SP[a3, a6], n] - 
    S2[a4, n]*S2[a1, a5, a2, a6, a3, n] - S2[a1, a5, a2, a6, SP[a3, a4], n] - 
    S2[a1, a5, a2, SP[a3, a4], a6, n] + S2[a1, a5, a2, SP[a3, a6], a4, n] + 
    S2[a6, n]*S2[a1, a5, a3, a2, a4, n] - 
    S2[a4, n]*S2[a1, a5, a3, a2, a6, n] + 
    S2[a6, n]*S2[a1, a5, a3, a4, a2, n] + S2[a1, a5, a3, a4, SP[a2, a6], n] - 
    S2[a4, n]*S2[a1, a5, a3, a6, a2, n] - S2[a1, a5, a3, a6, SP[a2, a4], n] - 
    S2[a1, a5, a3, SP[a2, a4], a6, n] + S2[a1, a5, a3, SP[a2, a6], a4, n] + 
    S2[a6, n]*S2[a1, a5, a4, a2, a3, n] + S2[a1, a5, a4, a2, SP[a3, a6], n] + 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] + S2[a1, a5, a4, a3, SP[a2, a6], n] + 
    S2[a1, a5, a4, SP[a2, a6], a3, n] + S2[a1, a5, a4, SP[a3, a6], a2, n] - 
    S2[a4, n]*S2[a1, a5, a6, a2, a3, n] - S2[a1, a5, a6, a2, SP[a3, a4], n] - 
    S2[a4, n]*S2[a1, a5, a6, a3, a2, n] - S2[a1, a5, a6, a3, SP[a2, a4], n] - 
    S2[a1, a5, a6, SP[a2, a4], a3, n] - S2[a1, a5, a6, SP[a3, a4], a2, n] - 
    S2[a1, a5, SP[a2, a4], a3, a6, n] - S2[a1, a5, SP[a2, a4], a6, a3, n] + 
    S2[a1, a5, SP[a2, a6], a3, a4, n] + S2[a1, a5, SP[a2, a6], a4, a3, n] - 
    S2[a1, a5, SP[a3, a4], a2, a6, n] - S2[a1, a5, SP[a3, a4], a6, a2, n] + 
    S2[a1, a5, SP[a3, a6], a2, a4, n] + S2[a1, a5, SP[a3, a6], a4, a2, n] - 
    S2[a4, n]*S2[a1, a6, a2, a3, a5, n] - S2[a1, a6, a2, a3, SP[a4, a5], n] - 
    S2[a4, n]*S2[a1, a6, a2, a5, a3, n] - S2[a1, a6, a2, a5, SP[a3, a4], n] - 
    S2[a1, a6, a2, SP[a3, a4], a5, n] - S2[a1, a6, a2, SP[a4, a5], a3, n] - 
    S2[a4, n]*S2[a1, a6, a3, a2, a5, n] - S2[a1, a6, a3, a2, SP[a4, a5], n] + 
    S2[a2, n]*S2[a1, a6, a3, a4, a5, n] + S2[a1, a6, a3, a4, SP[a2, a5], n] - 
    S2[a4, n]*S2[a1, a6, a3, a5, a2, n] - S2[a1, a6, a3, a5, SP[a2, a4], n] - 
    S2[a1, a6, a3, SP[a4, a5], a2, n] + S2[a2, n]*S2[a1, a6, a4, a3, a5, n] + 
    S2[a1, a6, a4, a3, SP[a2, a5], n] + S2[a2, n]*S2[a1, a6, a4, a5, a3, n] + 
    S2[a1, a6, a4, a5, SP[a2, a3], n] + S2[a1, a6, a4, SP[a2, a3], a5, n] + 
    S2[a1, a6, a4, SP[a2, a5], a3, n] - S2[a4, n]*S2[a1, a6, a5, a2, a3, n] - 
    S2[a1, a6, a5, a2, SP[a3, a4], n] - S2[a4, n]*S2[a1, a6, a5, a3, a2, n] - 
    S2[a1, a6, a5, a3, SP[a2, a4], n] - S2[a1, a6, a5, SP[a2, a4], a3, n] - 
    S2[a1, a6, a5, SP[a3, a4], a2, n] + S2[a1, a6, SP[a2, a3], a4, a5, n] - 
    S2[a1, a6, SP[a3, a4], a2, a5, n] - S2[a1, a6, SP[a3, a4], a5, a2, n] - 
    S2[a1, a6, SP[a4, a5], a2, a3, n] - S2[a1, a6, SP[a4, a5], a3, a2, n] + 
    S2[a1, SP[a2, a3], a6, a4, a5, n] + S2[a1, SP[a2, a6], a3, a4, a5, n] + 
    S2[a1, SP[a2, a6], a3, a5, a4, n] + S2[a1, SP[a2, a6], a4, a3, a5, n] + 
    S2[a1, SP[a2, a6], a4, a5, a3, n] + S2[a1, SP[a2, a6], a5, a3, a4, n] + 
    S2[a1, SP[a2, a6], a5, a4, a3, n] + S2[a1, SP[a3, a6], a2, a5, a4, n] + 
    S2[a1, SP[a3, a6], a5, a2, a4, n] + S2[a1, SP[a3, a6], a5, a4, a2, n] - 
    S2[a1, SP[a4, a5], a2, a3, a6, n] - S2[a1, SP[a4, a5], a2, a6, a3, n] - 
    S2[a1, SP[a4, a5], a3, a2, a6, n] - S2[a1, SP[a4, a5], a3, a6, a2, n] - 
    S2[a1, SP[a4, a5], a6, a2, a3, n] - S2[a1, SP[a4, a5], a6, a3, a2, n] - 
    S2[a1, SP[a4, a6], a2, a3, a5, n] - S2[a1, SP[a4, a6], a2, a5, a3, n] - 
    S2[a1, SP[a4, a6], a3, a2, a5, n] - S2[a1, SP[a4, a6], a3, a5, a2, n] - 
    S2[a1, SP[a4, a6], a5, a2, a3, n] - S2[a1, SP[a4, a6], a5, a3, a2, n] + 
    S2[a1, SP[a5, a6], a2, a3, a4, n] + S2[a1, SP[a5, a6], a2, a4, a3, n] + 
    S2[a1, SP[a5, a6], a3, a2, a4, n] + S2[a1, SP[a5, a6], a3, a4, a2, n] + 
    S2[a1, SP[a5, a6], a4, a2, a3, n] + S2[a1, SP[a5, a6], a4, a3, a2, n] - 
    S2[a2, a1, a6, a4, SP[a3, a5], n] - S2[a2, a1, a6, SP[a3, a4], a5, n] - 
    S2[a2, a1, SP[a3, a6], a4, a5, n] - S2[a2, a6, a1, a4, SP[a3, a5], n] - 
    S2[a2, a6, a1, SP[a3, a4], a5, n] - S2[a2, a6, a4, a1, SP[a3, a5], n] - 
    S2[a2, a6, a4, SP[a1, a5], a3, n] - S2[a2, a6, SP[a1, a4], a3, a5, n] - 
    S2[a2, a6, SP[a1, a4], a5, a3, n] - S2[a2, SP[a1, a6], a3, a4, a5, n] - 
    S2[a2, SP[a1, a6], a4, a3, a5, n] - S2[a2, SP[a1, a6], a4, a5, a3, n] + 
    S2[a4, a1, a2, a5, SP[a3, a6], n] + S2[a4, a1, a2, a6, SP[a3, a5], n] + 
    S2[a4, a1, a2, SP[a3, a5], a6, n] + S2[a4, a1, a2, SP[a3, a6], a5, n] + 
    S2[a4, a1, a3, a5, SP[a2, a6], n] + S2[a4, a1, a3, a6, SP[a2, a5], n] + 
    S2[a4, a1, a3, SP[a2, a5], a6, n] + S2[a4, a1, a3, SP[a2, a6], a5, n] + 
    S2[a4, a1, a5, a2, SP[a3, a6], n] + S2[a4, a1, a5, a3, SP[a2, a6], n] + 
    S2[a4, a1, a5, SP[a2, a6], a3, n] + S2[a4, a1, a5, SP[a3, a6], a2, n] + 
    S2[a4, a1, a6, a2, SP[a3, a5], n] + S2[a4, a1, a6, a3, SP[a2, a5], n] + 
    S2[a4, a1, a6, SP[a2, a5], a3, n] + S2[a4, a1, a6, SP[a3, a5], a2, n] + 
    S2[a4, a1, SP[a2, a5], a3, a6, n] + S2[a4, a1, SP[a2, a5], a6, a3, n] + 
    S2[a4, a1, SP[a2, a6], a3, a5, n] + S2[a4, a1, SP[a2, a6], a5, a3, n] + 
    S2[a4, a1, SP[a3, a5], a2, a6, n] + S2[a4, a1, SP[a3, a5], a6, a2, n] + 
    S2[a4, a1, SP[a3, a6], a2, a5, n] + S2[a4, a1, SP[a3, a6], a5, a2, n] - 
    S2[a6, n]*S2[a4, a5, a1, a2, a3, n] - 
    S2[a6, n]*S2[a4, a5, a1, a3, a2, n] + S2[a4, a6, a1, a2, SP[a3, a5], n] + 
    S2[a4, a6, a1, a3, SP[a2, a5], n] + S2[a4, a6, a1, SP[a2, a5], a3, n] + 
    S2[a4, a6, a1, SP[a3, a5], a2, n] + S2[a4, a6, SP[a1, a5], a2, a3, n] + 
    S2[a4, a6, SP[a1, a5], a3, a2, n] + S2[a4, SP[a1, a5], a2, a3, a6, n] + 
    S2[a4, SP[a1, a5], a2, a6, a3, n] + S2[a4, SP[a1, a5], a3, a2, a6, n] + 
    S2[a4, SP[a1, a5], a3, a6, a2, n] + S2[a4, SP[a1, a5], a6, a2, a3, n] + 
    S2[a4, SP[a1, a5], a6, a3, a2, n] + S2[a4, SP[a1, a6], a2, a3, a5, n] + 
    S2[a4, SP[a1, a6], a2, a5, a3, n] + S2[a4, SP[a1, a6], a3, a2, a5, n] + 
    S2[a4, SP[a1, a6], a3, a5, a2, n] + S2[a4, SP[a1, a6], a5, a2, a3, n] + 
    S2[a4, SP[a1, a6], a5, a3, a2, n] - S2[a4, SP[a5, a6], a1, a2, a3, n] - 
    S2[a4, SP[a5, a6], a1, a3, a2, n] - S2[a4, n]*S2[a6, a1, a2, a3, a5, n] - 
    S2[a6, a1, a2, a3, SP[a4, a5], n] - S2[a4, n]*S2[a6, a1, a2, a5, a3, n] - 
    S2[a6, a1, a2, a5, SP[a3, a4], n] - S2[a6, a1, a2, SP[a3, a4], a5, n] - 
    S2[a6, a1, a2, SP[a4, a5], a3, n] - S2[a4, n]*S2[a6, a1, a3, a2, a5, n] - 
    S2[a6, a1, a3, a2, SP[a4, a5], n] + S2[a2, n]*S2[a6, a1, a3, a4, a5, n] + 
    S2[a6, a1, a3, a4, SP[a2, a5], n] - S2[a4, n]*S2[a6, a1, a3, a5, a2, n] - 
    S2[a6, a1, a3, a5, SP[a2, a4], n] - S2[a6, a1, a3, SP[a4, a5], a2, n] + 
    S2[a2, n]*S2[a6, a1, a4, a3, a5, n] + S2[a6, a1, a4, a3, SP[a2, a5], n] + 
    S2[a2, n]*S2[a6, a1, a4, a5, a3, n] + S2[a6, a1, a4, a5, SP[a2, a3], n] + 
    S2[a6, a1, a4, SP[a2, a3], a5, n] + S2[a6, a1, a4, SP[a2, a5], a3, n] - 
    S2[a4, n]*S2[a6, a1, a5, a2, a3, n] - S2[a6, a1, a5, a2, SP[a3, a4], n] - 
    S2[a4, n]*S2[a6, a1, a5, a3, a2, n] - S2[a6, a1, a5, a3, SP[a2, a4], n] - 
    S2[a6, a1, a5, SP[a2, a4], a3, n] - S2[a6, a1, a5, SP[a3, a4], a2, n] + 
    S2[a6, a1, SP[a2, a3], a4, a5, n] - S2[a6, a1, SP[a3, a4], a2, a5, n] - 
    S2[a6, a1, SP[a3, a4], a5, a2, n] - S2[a6, a1, SP[a4, a5], a2, a3, n] - 
    S2[a6, a1, SP[a4, a5], a3, a2, n] + S2[a2, n]*S2[a6, a4, a1, a3, a5, n] + 
    S2[a6, a4, a1, a3, SP[a2, a5], n] + S2[a2, n]*S2[a6, a4, a1, a5, a3, n] + 
    S2[a6, a4, a1, a5, SP[a2, a3], n] + S2[a6, a4, a1, SP[a2, a3], a5, n] + 
    S2[a6, a4, a1, SP[a2, a5], a3, n] + S2[a2, n]*S2[a6, a4, a5, a1, a3, n] + 
    S2[a6, a4, a5, a1, SP[a2, a3], n] + S2[a6, a4, a5, SP[a1, a2], a3, n] + 
    S2[a6, a4, SP[a1, a2], a3, a5, n] + S2[a6, a4, SP[a1, a2], a5, a3, n] + 
    S2[a6, a4, SP[a2, a5], a1, a3, n] + S2[a6, SP[a1, a2], a3, a4, a5, n] + 
    S2[a6, SP[a1, a2], a4, a3, a5, n] + S2[a6, SP[a1, a2], a4, a5, a3, n] - 
    S2[a6, SP[a1, a4], a2, a3, a5, n] - S2[a6, SP[a1, a4], a2, a5, a3, n] - 
    S2[a6, SP[a1, a4], a3, a2, a5, n] - S2[a6, SP[a1, a4], a3, a5, a2, n] - 
    S2[a6, SP[a1, a4], a5, a2, a3, n] - S2[a6, SP[a1, a4], a5, a3, a2, n] + 
    S2[a6, SP[a2, a4], a1, a3, a5, n] + S2[a6, SP[a2, a4], a1, a5, a3, n] + 
    S2[a6, SP[a2, a4], a5, a1, a3, n] + S2[SP[a1, a3], a2, a6, a4, a5, n] + 
    S2[SP[a1, a6], a2, a3, a5, a4, n] + S2[SP[a1, a6], a2, a5, a3, a4, n] + 
    S2[SP[a1, a6], a2, a5, a4, a3, n] + S2[SP[a1, a6], a3, a2, a5, a4, n] + 
    S2[SP[a1, a6], a3, a5, a2, a4, n] + S2[SP[a1, a6], a3, a5, a4, a2, n] + 
    S2[SP[a1, a6], a5, a2, a3, a4, n] + S2[SP[a1, a6], a5, a2, a4, a3, n] + 
    S2[SP[a1, a6], a5, a3, a2, a4, n] + S2[SP[a1, a6], a5, a3, a4, a2, n] + 
    S2[SP[a1, a6], a5, a4, a2, a3, n] + S2[SP[a1, a6], a5, a4, a3, a2, n] + 
    S2[SP[a2, a6], a1, a3, a4, a5, n] + S2[SP[a2, a6], a1, a4, a3, a5, n] + 
    S2[SP[a2, a6], a1, a4, a5, a3, n] + S2[SP[a2, a6], a4, a1, a3, a5, n] + 
    S2[SP[a2, a6], a4, a1, a5, a3, n] + S2[SP[a2, a6], a4, a5, a1, a3, n] - 
    S2[SP[a4, a6], a1, a2, a3, a5, n] - S2[SP[a4, a6], a1, a2, a5, a3, n] - 
    S2[SP[a4, a6], a1, a3, a2, a5, n] - S2[SP[a4, a6], a1, a3, a5, a2, n] - 
    S2[SP[a4, a6], a1, a5, a2, a3, n] - S2[SP[a4, a6], a1, a5, a3, a2, n] - 
    S2[SP[a4, a6], a5, a1, a2, a3, n] - S2[SP[a4, a6], a5, a1, a3, a2, n] - 
    S2[a6, a2, a1, a3, a4, a5, n] - S2[a6, a2, a1, a4, a3, a5, n] - 
    S2[a6, a2, a1, a4, a5, a3, n] - S2[a6, a2, a4, a1, a3, a5, n] - 
    S2[a6, a2, a4, a1, a5, a3, n] - S2[a6, a2, a4, a5, a1, a3, n] - 
    S2[a6, a4, a2, a1, a3, a5, n] - S2[a6, a4, a2, a1, a5, a3, n] - 
    S2[a6, a4, a2, a5, a1, a3, n] - S2[a6, a4, a5, a2, a1, a3, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a3_, a1_, a2_, a6_, a5_, a4_, n_] :> 
  -(S2[a1, a2, a3, n]*S2[a4, a5, a6, n]) - S2[a1, a3, a2, n]*
     S2[a4, a5, a6, n] - S2[SP[a1, a4], SP[a2, a5], SP[a3, a6], n] - 
    S2[SP[a1, a4], SP[a3, a5], SP[a2, a6], n] + S2[a1, a4, SP[a2, a5], 
     SP[a3, a6], n] + S2[a1, a4, SP[a3, a5], SP[a2, a6], n] + 
    S2[a1, SP[a2, a4], a5, SP[a3, a6], n] + S2[a1, SP[a2, a4], SP[a3, a5], 
     a6, n] + S2[a1, SP[a3, a4], a5, SP[a2, a6], n] + 
    S2[a1, SP[a3, a4], SP[a2, a5], a6, n] - S2[a1, a3, n]*
     S2[a2, a6, a5, a4, n] + S2[a2, a6, SP[a1, a5], SP[a3, a4], n] + 
    S2[a2, SP[a1, a6], a5, SP[a3, a4], n] + S2[a2, SP[a1, a6], SP[a3, a5], 
     a4, n] + S2[a4, a1, SP[a2, a5], SP[a3, a6], n] + 
    S2[a4, a1, SP[a3, a5], SP[a2, a6], n] + S2[a4, SP[a1, a5], a2, 
     SP[a3, a6], n] + S2[a4, SP[a1, a5], a3, SP[a2, a6], n] + 
    S2[a4, SP[a1, a5], SP[a2, a6], a3, n] + S2[a4, SP[a1, a5], SP[a3, a6], 
     a2, n] + S2[SP[a1, a2], a6, a5, SP[a3, a4], n] + 
    S2[SP[a1, a2], a6, SP[a3, a5], a4, n] + S2[SP[a1, a2], SP[a3, a6], a5, 
     a4, n] + S2[SP[a1, a4], a2, a5, SP[a3, a6], n] + 
    S2[SP[a1, a4], a2, SP[a3, a5], a6, n] + S2[SP[a1, a4], a3, a5, 
     SP[a2, a6], n] + S2[SP[a1, a4], a3, SP[a2, a5], a6, n] + 
    S2[SP[a1, a4], a5, a2, SP[a3, a6], n] + S2[SP[a1, a4], a5, a3, 
     SP[a2, a6], n] + S2[SP[a1, a4], a5, SP[a2, a6], a3, n] + 
    S2[SP[a1, a4], a5, SP[a3, a6], a2, n] + S2[SP[a1, a4], SP[a2, a5], a3, 
     a6, n] + S2[SP[a1, a4], SP[a2, a5], a6, a3, n] + 
    S2[SP[a1, a4], SP[a3, a5], a2, a6, n] + S2[SP[a1, a4], SP[a3, a5], a6, 
     a2, n] - S2[a6, n]*S2[a1, a2, a3, a5, a4, n] + 
    S2[a4, n]*S2[a1, a2, a3, a5, a6, n] + S2[a1, a2, a3, SP[a4, a5], a6, n] - 
    S2[a1, a2, a3, SP[a5, a6], a4, n] - S2[a1, a2, a4, a5, SP[a3, a6], n] - 
    S2[a1, a2, a4, SP[a3, a5], a6, n] - S2[a6, n]*S2[a1, a2, a5, a3, a4, n] + 
    S2[a4, n]*S2[a1, a2, a5, a3, a6, n] - 
    S2[a6, n]*S2[a1, a2, a5, a4, a3, n] - S2[a1, a2, a5, a4, SP[a3, a6], n] + 
    S2[a4, n]*S2[a1, a2, a5, a6, a3, n] + S2[a1, a2, a5, a6, SP[a3, a4], n] + 
    S2[a1, a2, a5, SP[a3, a4], a6, n] - S2[a1, a2, a5, SP[a3, a6], a4, n] + 
    S2[a3, n]*S2[a1, a2, a6, a5, a4, n] - S2[a1, a2, SP[a3, a6], a5, a4, n] + 
    S2[a1, a2, SP[a4, a5], a3, a6, n] + S2[a1, a2, SP[a4, a5], a6, a3, n] - 
    S2[a1, a2, SP[a5, a6], a3, a4, n] - S2[a1, a2, SP[a5, a6], a4, a3, n] - 
    S2[a6, n]*S2[a1, a3, a2, a5, a4, n] + 
    S2[a4, n]*S2[a1, a3, a2, a5, a6, n] + S2[a1, a3, a2, SP[a4, a5], a6, n] - 
    S2[a1, a3, a2, SP[a5, a6], a4, n] - S2[a1, a3, a4, a5, SP[a2, a6], n] - 
    S2[a1, a3, a4, SP[a2, a5], a6, n] - S2[a6, n]*S2[a1, a3, a5, a2, a4, n] + 
    S2[a4, n]*S2[a1, a3, a5, a2, a6, n] - 
    S2[a6, n]*S2[a1, a3, a5, a4, a2, n] - S2[a1, a3, a5, a4, SP[a2, a6], n] + 
    S2[a4, n]*S2[a1, a3, a5, a6, a2, n] + S2[a1, a3, a5, a6, SP[a2, a4], n] + 
    S2[a1, a3, a5, SP[a2, a4], a6, n] - S2[a1, a3, a5, SP[a2, a6], a4, n] + 
    S2[a2, n]*S2[a1, a3, a6, a5, a4, n] + S2[a1, a3, a6, a5, SP[a2, a4], n] + 
    S2[a1, a3, a6, SP[a2, a5], a4, n] + S2[a1, a3, SP[a4, a5], a2, a6, n] + 
    S2[a1, a3, SP[a4, a5], a6, a2, n] - S2[a1, a3, SP[a5, a6], a2, a4, n] - 
    S2[a1, a3, SP[a5, a6], a4, a2, n] - S2[a1, a4, a2, a5, SP[a3, a6], n] - 
    S2[a1, a4, a2, SP[a3, a5], a6, n] - S2[a1, a4, a3, a5, SP[a2, a6], n] - 
    S2[a1, a4, a3, SP[a2, a5], a6, n] - S2[a1, a4, a5, a2, SP[a3, a6], n] - 
    S2[a1, a4, a5, a3, SP[a2, a6], n] - S2[a1, a4, a5, SP[a2, a6], a3, n] - 
    S2[a1, a4, a5, SP[a3, a6], a2, n] - S2[a1, a4, SP[a2, a5], a3, a6, n] - 
    S2[a1, a4, SP[a2, a5], a6, a3, n] - S2[a1, a4, SP[a3, a5], a2, a6, n] - 
    S2[a1, a4, SP[a3, a5], a6, a2, n] - S2[a6, n]*S2[a1, a5, a2, a3, a4, n] + 
    S2[a4, n]*S2[a1, a5, a2, a3, a6, n] - 
    S2[a6, n]*S2[a1, a5, a2, a4, a3, n] - S2[a1, a5, a2, a4, SP[a3, a6], n] + 
    S2[a4, n]*S2[a1, a5, a2, a6, a3, n] + S2[a1, a5, a2, a6, SP[a3, a4], n] + 
    S2[a1, a5, a2, SP[a3, a4], a6, n] - S2[a1, a5, a2, SP[a3, a6], a4, n] - 
    S2[a6, n]*S2[a1, a5, a3, a2, a4, n] + 
    S2[a4, n]*S2[a1, a5, a3, a2, a6, n] - 
    S2[a6, n]*S2[a1, a5, a3, a4, a2, n] - S2[a1, a5, a3, a4, SP[a2, a6], n] + 
    S2[a4, n]*S2[a1, a5, a3, a6, a2, n] + S2[a1, a5, a3, a6, SP[a2, a4], n] + 
    S2[a1, a5, a3, SP[a2, a4], a6, n] - S2[a1, a5, a3, SP[a2, a6], a4, n] - 
    S2[a6, n]*S2[a1, a5, a4, a2, a3, n] - S2[a1, a5, a4, a2, SP[a3, a6], n] - 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] - S2[a1, a5, a4, a3, SP[a2, a6], n] - 
    S2[a1, a5, a4, SP[a2, a6], a3, n] - S2[a1, a5, a4, SP[a3, a6], a2, n] + 
    S2[a4, n]*S2[a1, a5, a6, a2, a3, n] + S2[a1, a5, a6, a2, SP[a3, a4], n] + 
    S2[a4, n]*S2[a1, a5, a6, a3, a2, n] + S2[a1, a5, a6, a3, SP[a2, a4], n] + 
    S2[a1, a5, a6, SP[a2, a4], a3, n] + S2[a1, a5, a6, SP[a3, a4], a2, n] + 
    S2[a1, a5, SP[a2, a4], a3, a6, n] + S2[a1, a5, SP[a2, a4], a6, a3, n] - 
    S2[a1, a5, SP[a2, a6], a3, a4, n] - S2[a1, a5, SP[a2, a6], a4, a3, n] + 
    S2[a1, a5, SP[a3, a4], a2, a6, n] + S2[a1, a5, SP[a3, a4], a6, a2, n] - 
    S2[a1, a5, SP[a3, a6], a2, a4, n] - S2[a1, a5, SP[a3, a6], a4, a2, n] + 
    S2[a2, n]*S2[a1, a6, a3, a5, a4, n] + S2[a1, a6, a3, a5, SP[a2, a4], n] + 
    S2[a1, a6, a3, SP[a2, a5], a4, n] + S2[a2, n]*S2[a1, a6, a5, a3, a4, n] + 
    S2[a1, a6, a5, a3, SP[a2, a4], n] + S2[a2, n]*S2[a1, a6, a5, a4, a3, n] + 
    S2[a1, a6, a5, a4, SP[a2, a3], n] + S2[a1, a6, a5, SP[a2, a3], a4, n] + 
    S2[a1, a6, a5, SP[a2, a4], a3, n] + S2[a1, a6, SP[a2, a3], a5, a4, n] + 
    S2[a1, a6, SP[a2, a5], a3, a4, n] + S2[a1, a6, SP[a2, a5], a4, a3, n] + 
    S2[a1, SP[a2, a3], a6, a5, a4, n] - S2[a1, SP[a3, a6], a2, a5, a4, n] - 
    S2[a1, SP[a3, a6], a5, a2, a4, n] - S2[a1, SP[a3, a6], a5, a4, a2, n] + 
    S2[a1, SP[a4, a5], a2, a3, a6, n] + S2[a1, SP[a4, a5], a2, a6, a3, n] + 
    S2[a1, SP[a4, a5], a3, a2, a6, n] + S2[a1, SP[a4, a5], a3, a6, a2, n] + 
    S2[a1, SP[a4, a5], a6, a2, a3, n] + S2[a1, SP[a4, a5], a6, a3, a2, n] - 
    S2[a1, SP[a5, a6], a2, a3, a4, n] - S2[a1, SP[a5, a6], a2, a4, a3, n] - 
    S2[a1, SP[a5, a6], a3, a2, a4, n] - S2[a1, SP[a5, a6], a3, a4, a2, n] - 
    S2[a1, SP[a5, a6], a4, a2, a3, n] - S2[a1, SP[a5, a6], a4, a3, a2, n] - 
    S2[a2, a1, a6, a5, SP[a3, a4], n] - S2[a2, a1, a6, SP[a3, a5], a4, n] - 
    S2[a2, a1, SP[a3, a6], a5, a4, n] - S2[a2, a6, a1, a5, SP[a3, a4], n] - 
    S2[a2, a6, a1, SP[a3, a5], a4, n] - S2[a2, a6, a5, a1, SP[a3, a4], n] - 
    S2[a2, a6, a5, SP[a1, a4], a3, n] - S2[a2, a6, SP[a1, a5], a3, a4, n] - 
    S2[a2, a6, SP[a1, a5], a4, a3, n] - S2[a2, SP[a1, a6], a3, a5, a4, n] - 
    S2[a2, SP[a1, a6], a5, a3, a4, n] - S2[a2, SP[a1, a6], a5, a4, a3, n] - 
    S2[a4, a1, a2, a5, SP[a3, a6], n] - S2[a4, a1, a2, SP[a3, a5], a6, n] - 
    S2[a4, a1, a3, a5, SP[a2, a6], n] - S2[a4, a1, a3, SP[a2, a5], a6, n] - 
    S2[a4, a1, a5, a2, SP[a3, a6], n] - S2[a4, a1, a5, a3, SP[a2, a6], n] - 
    S2[a4, a1, a5, SP[a2, a6], a3, n] - S2[a4, a1, a5, SP[a3, a6], a2, n] - 
    S2[a4, a1, SP[a2, a5], a3, a6, n] - S2[a4, a1, SP[a2, a5], a6, a3, n] - 
    S2[a4, a1, SP[a3, a5], a2, a6, n] - S2[a4, a1, SP[a3, a5], a6, a2, n] + 
    S2[a6, n]*S2[a4, a5, a1, a2, a3, n] + 
    S2[a6, n]*S2[a4, a5, a1, a3, a2, n] - S2[a4, SP[a1, a5], a2, a3, a6, n] - 
    S2[a4, SP[a1, a5], a2, a6, a3, n] - S2[a4, SP[a1, a5], a3, a2, a6, n] - 
    S2[a4, SP[a1, a5], a3, a6, a2, n] - S2[a4, SP[a1, a5], a6, a2, a3, n] - 
    S2[a4, SP[a1, a5], a6, a3, a2, n] + S2[a4, SP[a5, a6], a1, a2, a3, n] + 
    S2[a4, SP[a5, a6], a1, a3, a2, n] + S2[a2, n]*S2[a6, a1, a3, a5, a4, n] + 
    S2[a6, a1, a3, a5, SP[a2, a4], n] + S2[a6, a1, a3, SP[a2, a5], a4, n] + 
    S2[a2, n]*S2[a6, a1, a5, a3, a4, n] + S2[a6, a1, a5, a3, SP[a2, a4], n] + 
    S2[a2, n]*S2[a6, a1, a5, a4, a3, n] + S2[a6, a1, a5, a4, SP[a2, a3], n] + 
    S2[a6, a1, a5, SP[a2, a3], a4, n] + S2[a6, a1, a5, SP[a2, a4], a3, n] + 
    S2[a6, a1, SP[a2, a3], a5, a4, n] + S2[a6, a1, SP[a2, a5], a3, a4, n] + 
    S2[a6, a1, SP[a2, a5], a4, a3, n] - S2[a4, n]*S2[a6, a5, a1, a2, a3, n] - 
    S2[a6, a5, a1, a2, SP[a3, a4], n] - S2[a4, n]*S2[a6, a5, a1, a3, a2, n] + 
    S2[a2, n]*S2[a6, a5, a1, a3, a4, n] + 
    S2[a2, n]*S2[a6, a5, a1, a4, a3, n] + S2[a6, a5, a1, a4, SP[a2, a3], n] + 
    S2[a6, a5, a1, SP[a2, a3], a4, n] - S2[a6, a5, a1, SP[a3, a4], a2, n] + 
    S2[a2, n]*S2[a6, a5, a4, a1, a3, n] + S2[a6, a5, a4, a1, SP[a2, a3], n] + 
    S2[a6, a5, a4, SP[a1, a2], a3, n] + S2[a6, a5, SP[a1, a2], a3, a4, n] + 
    S2[a6, a5, SP[a1, a2], a4, a3, n] - S2[a6, a5, SP[a1, a4], a2, a3, n] - 
    S2[a6, a5, SP[a1, a4], a3, a2, n] + S2[a6, a5, SP[a2, a4], a1, a3, n] + 
    S2[a6, SP[a1, a2], a3, a5, a4, n] + S2[a6, SP[a1, a2], a5, a3, a4, n] + 
    S2[a6, SP[a1, a2], a5, a4, a3, n] + S2[a6, SP[a2, a5], a1, a3, a4, n] + 
    S2[a6, SP[a2, a5], a1, a4, a3, n] + S2[a6, SP[a2, a5], a4, a1, a3, n] - 
    S2[a6, SP[a4, a5], a1, a2, a3, n] - S2[a6, SP[a4, a5], a1, a3, a2, n] + 
    S2[SP[a1, a3], a2, a6, a5, a4, n] - S2[SP[a1, a6], a2, a3, a5, a4, n] - 
    S2[SP[a1, a6], a2, a5, a3, a4, n] - S2[SP[a1, a6], a2, a5, a4, a3, n] - 
    S2[SP[a1, a6], a3, a2, a5, a4, n] - S2[SP[a1, a6], a3, a5, a2, a4, n] - 
    S2[SP[a1, a6], a3, a5, a4, a2, n] - S2[SP[a1, a6], a5, a2, a3, a4, n] - 
    S2[SP[a1, a6], a5, a2, a4, a3, n] - S2[SP[a1, a6], a5, a3, a2, a4, n] - 
    S2[SP[a1, a6], a5, a3, a4, a2, n] - S2[SP[a1, a6], a5, a4, a2, a3, n] - 
    S2[SP[a1, a6], a5, a4, a3, a2, n] + S2[SP[a2, a6], a1, a3, a5, a4, n] + 
    S2[SP[a2, a6], a1, a5, a3, a4, n] + S2[SP[a2, a6], a1, a5, a4, a3, n] + 
    S2[SP[a2, a6], a5, a1, a3, a4, n] + S2[SP[a2, a6], a5, a1, a4, a3, n] + 
    S2[SP[a2, a6], a5, a4, a1, a3, n] - S2[a6, a2, a1, a3, a5, a4, n] - 
    S2[a6, a2, a1, a5, a3, a4, n] - S2[a6, a2, a1, a5, a4, a3, n] - 
    S2[a6, a2, a5, a1, a3, a4, n] - S2[a6, a2, a5, a1, a4, a3, n] - 
    S2[a6, a2, a5, a4, a1, a3, n] - S2[a6, a5, a2, a1, a3, a4, n] - 
    S2[a6, a5, a2, a1, a4, a3, n] - S2[a6, a5, a2, a4, a1, a3, n] - 
    S2[a6, a5, a4, a2, a1, a3, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a3_, a1_, a4_, a2_, a5_, a6_, n_] :> 
  -(S2[a1, a3, a4, n]*S2[a2, a5, a6, n]) - S2[a1, a4, a3, n]*
     S2[a2, a5, a6, n] - S2[SP[a1, a2], SP[a3, a5], SP[a4, a6], n] - 
    S2[SP[a1, a2], SP[a4, a5], SP[a3, a6], n] + S2[a1, a2, SP[a3, a5], 
     SP[a4, a6], n] + S2[a1, a2, SP[a4, a5], SP[a3, a6], n] - 
    S2[a5, a6, n]*S2[a1, a3, a4, a2, n] + S2[a1, a3, SP[a4, a5], SP[a2, a6], 
     n] - S2[a5, a6, n]*S2[a1, a4, a2, a3, n] - 
    S2[a5, a6, n]*S2[a1, a4, a3, a2, n] + S2[a1, a4, SP[a2, a5], SP[a3, a6], 
     n] + S2[a1, a4, SP[a3, a5], SP[a2, a6], n] + S2[a1, SP[a2, a3], a5, 
     SP[a4, a6], n] + S2[a1, SP[a2, a3], SP[a4, a5], a6, n] + 
    S2[a1, SP[a2, a4], a5, SP[a3, a6], n] + S2[a1, SP[a2, a4], SP[a3, a5], 
     a6, n] + S2[a1, SP[a3, a5], a4, SP[a2, a6], n] + 
    S2[a1, SP[a3, a5], SP[a4, a6], a2, n] + S2[a1, SP[a4, a5], a2, 
     SP[a3, a6], n] + S2[a1, SP[a4, a5], a3, SP[a2, a6], n] + 
    S2[a1, SP[a4, a5], SP[a2, a6], a3, n] + S2[a1, SP[a4, a5], SP[a3, a6], 
     a2, n] + S2[a2, a1, SP[a3, a5], SP[a4, a6], n] + 
    S2[a2, a1, SP[a4, a5], SP[a3, a6], n] + S2[a1, a3, n]*
     S2[a2, a4, a5, a6, n] + S2[a1, a3, n]*S2[a2, a4, a6, a5, n] - 
    S2[a2, a4, SP[a1, a5], SP[a3, a6], n] - S2[a2, a4, SP[a1, a6], 
     SP[a3, a5], n] + S2[a1, a3, n]*S2[a2, a5, a4, a6, n] + 
    S2[a1, a3, n]*S2[a2, a5, a6, a4, n] - S2[a2, a5, SP[a1, a4], SP[a3, a6], 
     n] - S2[a2, a5, SP[a1, a6], SP[a3, a4], n] + 
    S2[a1, a3, n]*S2[a2, a6, a4, a5, n] + S2[a1, a3, n]*
     S2[a2, a6, a5, a4, n] - S2[a2, a6, SP[a1, a4], SP[a3, a5], n] - 
    S2[a2, a6, SP[a1, a5], SP[a3, a4], n] - S2[a2, SP[a1, a4], a5, 
     SP[a3, a6], n] - S2[a2, SP[a1, a4], a6, SP[a3, a5], n] - 
    S2[a2, SP[a1, a4], SP[a3, a5], a6, n] - S2[a2, SP[a1, a4], SP[a3, a6], 
     a5, n] + S2[a2, SP[a1, a5], a3, SP[a4, a6], n] - 
    S2[a2, SP[a1, a5], a6, SP[a3, a4], n] - S2[a2, SP[a1, a5], SP[a3, a4], 
     a6, n] + S2[a2, SP[a1, a5], SP[a4, a6], a3, n] - 
    S2[a2, SP[a1, a6], a4, SP[a3, a5], n] - S2[a2, SP[a1, a6], a5, 
     SP[a3, a4], n] - S2[a2, SP[a1, a6], SP[a3, a4], a5, n] - 
    S2[a2, SP[a1, a6], SP[a3, a5], a4, n] - S2[a1, a3, n]*
     S2[a5, a6, a2, a4, n] + S2[a5, a6, SP[a1, a2], SP[a3, a4], n] + 
    S2[a5, SP[a1, a6], a2, SP[a3, a4], n] + S2[a5, SP[a1, a6], SP[a2, a3], 
     a4, n] + S2[SP[a1, a2], a3, a5, SP[a4, a6], n] + 
    S2[SP[a1, a2], a3, SP[a4, a5], a6, n] - S2[SP[a1, a2], a4, a6, 
     SP[a3, a5], n] - S2[SP[a1, a2], a4, SP[a3, a6], a5, n] + 
    S2[SP[a1, a2], a5, a3, SP[a4, a6], n] - S2[SP[a1, a2], a5, a6, 
     SP[a3, a4], n] - S2[SP[a1, a2], a5, SP[a3, a4], a6, n] + 
    S2[SP[a1, a2], a5, SP[a4, a6], a3, n] - S2[SP[a1, a2], a6, a4, 
     SP[a3, a5], n] - S2[SP[a1, a2], a6, a5, SP[a3, a4], n] - 
    S2[SP[a1, a2], a6, SP[a3, a4], a5, n] - S2[SP[a1, a2], a6, SP[a3, a5], 
     a4, n] - S2[SP[a1, a2], SP[a3, a4], a5, a6, n] - 
    S2[SP[a1, a2], SP[a3, a4], a6, a5, n] - S2[SP[a1, a2], SP[a3, a6], a4, 
     a5, n] - S2[SP[a1, a2], SP[a3, a6], a5, a4, n] + 
    S2[SP[a1, a2], SP[a4, a5], a3, a6, n] + S2[SP[a1, a2], SP[a4, a5], a6, 
     a3, n] + S2[SP[a1, a5], a3, a4, SP[a2, a6], n] + 
    S2[SP[a1, a5], a3, SP[a4, a6], a2, n] + S2[SP[a1, a5], a4, a2, 
     SP[a3, a6], n] + S2[SP[a1, a5], a4, a3, SP[a2, a6], n] + 
    S2[SP[a1, a5], a4, SP[a2, a6], a3, n] + S2[SP[a1, a5], a4, SP[a3, a6], 
     a2, n] + S2[SP[a1, a5], a6, a2, SP[a3, a4], n] + 
    S2[SP[a1, a5], a6, SP[a2, a3], a4, n] + S2[SP[a1, a5], SP[a3, a6], a2, 
     a4, n] + S2[SP[a1, a5], SP[a3, a6], a4, a2, n] + 
    S2[SP[a1, a5], SP[a4, a6], a2, a3, n] + S2[SP[a1, a5], SP[a4, a6], a3, 
     a2, n] - S2[a1, a2, a3, a5, SP[a4, a6], n] - S2[a1, a2, a3, SP[a4, a5], 
     a6, n] + S2[a1, a2, a4, a6, SP[a3, a5], n] + S2[a1, a2, a4, SP[a3, a6], 
     a5, n] - S2[a1, a2, a5, a3, SP[a4, a6], n] + 
    S2[a1, a2, a5, a6, SP[a3, a4], n] + S2[a1, a2, a5, SP[a3, a4], a6, n] - 
    S2[a1, a2, a5, SP[a4, a6], a3, n] + S2[a1, a2, a6, a4, SP[a3, a5], n] + 
    S2[a1, a2, a6, a5, SP[a3, a4], n] + S2[a1, a2, a6, SP[a3, a4], a5, n] + 
    S2[a1, a2, a6, SP[a3, a5], a4, n] + S2[a1, a2, SP[a3, a4], a5, a6, n] + 
    S2[a1, a2, SP[a3, a4], a6, a5, n] + S2[a1, a2, SP[a3, a6], a4, a5, n] + 
    S2[a1, a2, SP[a3, a6], a5, a4, n] - S2[a1, a2, SP[a4, a5], a3, a6, n] - 
    S2[a1, a2, SP[a4, a5], a6, a3, n] - S2[a1, a3, a2, a5, SP[a4, a6], n] - 
    S2[a1, a3, a2, SP[a4, a5], a6, n] + S2[a5, n]*S2[a1, a3, a4, a2, a6, n] + 
    S2[a1, a3, a4, a2, SP[a5, a6], n] - S2[a1, a3, a4, a5, SP[a2, a6], n] + 
    S2[a5, n]*S2[a1, a3, a4, a6, a2, n] - 
    S2[a2, n]*S2[a1, a3, a4, a6, a5, n] - S2[a1, a3, a4, SP[a2, a6], a5, n] + 
    S2[a1, a3, a4, SP[a5, a6], a2, n] - S2[a1, a3, a5, a4, SP[a2, a6], n] - 
    S2[a1, a3, a5, SP[a4, a6], a2, n] + S2[a5, n]*S2[a1, a3, a6, a2, a4, n] + 
    S2[a1, a3, a6, a2, SP[a4, a5], n] + S2[a5, n]*S2[a1, a3, a6, a4, a2, n] - 
    S2[a2, n]*S2[a1, a3, a6, a4, a5, n] - 
    S2[a2, n]*S2[a1, a3, a6, a5, a4, n] - S2[a1, a3, a6, a5, SP[a2, a4], n] - 
    S2[a1, a3, a6, SP[a2, a4], a5, n] + S2[a1, a3, a6, SP[a4, a5], a2, n] - 
    S2[a1, a3, SP[a2, a4], a5, a6, n] - S2[a1, a3, SP[a2, a4], a6, a5, n] - 
    S2[a1, a3, SP[a2, a6], a4, a5, n] - S2[a1, a3, SP[a2, a6], a5, a4, n] + 
    S2[a1, a3, SP[a5, a6], a2, a4, n] + S2[a1, a3, SP[a5, a6], a4, a2, n] + 
    S2[a5, n]*S2[a1, a4, a2, a3, a6, n] + S2[a1, a4, a2, a3, SP[a5, a6], n] + 
    S2[a3, n]*S2[a1, a4, a2, a5, a6, n] - S2[a1, a4, a2, a5, SP[a3, a6], n] + 
    S2[a5, n]*S2[a1, a4, a2, a6, a3, n] + S2[a1, a4, a2, a6, SP[a3, a5], n] + 
    S2[a1, a4, a2, SP[a5, a6], a3, n] + S2[a5, n]*S2[a1, a4, a3, a2, a6, n] + 
    S2[a1, a4, a3, a2, SP[a5, a6], n] - S2[a1, a4, a3, a5, SP[a2, a6], n] + 
    S2[a5, n]*S2[a1, a4, a3, a6, a2, n] - 
    S2[a2, n]*S2[a1, a4, a3, a6, a5, n] - S2[a1, a4, a3, SP[a2, a6], a5, n] + 
    S2[a1, a4, a3, SP[a5, a6], a2, n] - S2[a1, a4, a5, a2, SP[a3, a6], n] - 
    S2[a1, a4, a5, a3, SP[a2, a6], n] - S2[a1, a4, a5, SP[a2, a6], a3, n] - 
    S2[a1, a4, a5, SP[a3, a6], a2, n] + S2[a5, n]*S2[a1, a4, a6, a2, a3, n] + 
    S2[a1, a4, a6, a2, SP[a3, a5], n] + S2[a5, n]*S2[a1, a4, a6, a3, a2, n] - 
    S2[a2, n]*S2[a1, a4, a6, a3, a5, n] - 
    S2[a2, n]*S2[a1, a4, a6, a5, a3, n] - S2[a1, a4, a6, a5, SP[a2, a3], n] - 
    S2[a1, a4, a6, SP[a2, a3], a5, n] + S2[a1, a4, a6, SP[a3, a5], a2, n] - 
    S2[a1, a4, SP[a2, a3], a6, a5, n] - S2[a1, a4, SP[a2, a6], a3, a5, n] - 
    S2[a1, a4, SP[a2, a6], a5, a3, n] + S2[a1, a4, SP[a5, a6], a2, a3, n] + 
    S2[a1, a4, SP[a5, a6], a3, a2, n] - S2[a1, a5, a3, a4, SP[a2, a6], n] - 
    S2[a1, a5, a3, SP[a4, a6], a2, n] - S2[a1, a5, a4, a2, SP[a3, a6], n] - 
    S2[a1, a5, a4, a3, SP[a2, a6], n] - S2[a1, a5, a4, SP[a2, a6], a3, n] - 
    S2[a1, a5, a4, SP[a3, a6], a2, n] - S2[a1, a5, a6, a2, SP[a3, a4], n] - 
    S2[a1, a5, a6, SP[a2, a3], a4, n] - S2[a1, a5, SP[a3, a6], a2, a4, n] - 
    S2[a1, a5, SP[a3, a6], a4, a2, n] - S2[a1, a5, SP[a4, a6], a2, a3, n] - 
    S2[a1, a5, SP[a4, a6], a3, a2, n] + S2[a5, n]*S2[a1, a6, a2, a3, a4, n] + 
    S2[a1, a6, a2, a3, SP[a4, a5], n] + S2[a5, n]*S2[a1, a6, a2, a4, a3, n] + 
    S2[a1, a6, a2, a4, SP[a3, a5], n] + S2[a1, a6, a2, SP[a3, a5], a4, n] + 
    S2[a1, a6, a2, SP[a4, a5], a3, n] + S2[a5, n]*S2[a1, a6, a3, a2, a4, n] + 
    S2[a1, a6, a3, a2, SP[a4, a5], n] + S2[a5, n]*S2[a1, a6, a3, a4, a2, n] - 
    S2[a2, n]*S2[a1, a6, a3, a4, a5, n] - 
    S2[a2, n]*S2[a1, a6, a3, a5, a4, n] - S2[a1, a6, a3, a5, SP[a2, a4], n] - 
    S2[a1, a6, a3, SP[a2, a4], a5, n] + S2[a1, a6, a3, SP[a4, a5], a2, n] + 
    S2[a5, n]*S2[a1, a6, a4, a2, a3, n] + S2[a1, a6, a4, a2, SP[a3, a5], n] + 
    S2[a5, n]*S2[a1, a6, a4, a3, a2, n] - 
    S2[a2, n]*S2[a1, a6, a4, a3, a5, n] - 
    S2[a2, n]*S2[a1, a6, a4, a5, a3, n] - S2[a1, a6, a4, a5, SP[a2, a3], n] - 
    S2[a1, a6, a4, SP[a2, a3], a5, n] + S2[a1, a6, a4, SP[a3, a5], a2, n] - 
    S2[a2, n]*S2[a1, a6, a5, a3, a4, n] - S2[a1, a6, a5, a3, SP[a2, a4], n] - 
    S2[a2, n]*S2[a1, a6, a5, a4, a3, n] - S2[a1, a6, a5, a4, SP[a2, a3], n] - 
    S2[a1, a6, a5, SP[a2, a3], a4, n] - S2[a1, a6, a5, SP[a2, a4], a3, n] - 
    S2[a1, a6, SP[a2, a3], a4, a5, n] - S2[a1, a6, SP[a2, a3], a5, a4, n] - 
    S2[a1, a6, SP[a2, a4], a3, a5, n] - S2[a1, a6, SP[a2, a4], a5, a3, n] + 
    S2[a1, a6, SP[a3, a5], a2, a4, n] + S2[a1, a6, SP[a3, a5], a4, a2, n] + 
    S2[a1, a6, SP[a4, a5], a2, a3, n] + S2[a1, a6, SP[a4, a5], a3, a2, n] - 
    S2[a1, SP[a2, a4], a3, a5, a6, n] - S2[a1, SP[a2, a4], a3, a6, a5, n] - 
    S2[a1, SP[a2, a4], a5, a3, a6, n] - S2[a1, SP[a2, a4], a5, a6, a3, n] - 
    S2[a1, SP[a2, a4], a6, a3, a5, n] - S2[a1, SP[a2, a4], a6, a5, a3, n] - 
    S2[a1, SP[a2, a6], a3, a4, a5, n] - S2[a1, SP[a2, a6], a3, a5, a4, n] - 
    S2[a1, SP[a2, a6], a4, a3, a5, n] - S2[a1, SP[a2, a6], a4, a5, a3, n] - 
    S2[a1, SP[a2, a6], a5, a3, a4, n] - S2[a1, SP[a2, a6], a5, a4, a3, n] + 
    S2[a1, SP[a3, a4], a2, a5, a6, n] + S2[a1, SP[a5, a6], a2, a3, a4, n] + 
    S2[a1, SP[a5, a6], a2, a4, a3, n] + S2[a1, SP[a5, a6], a3, a2, a4, n] + 
    S2[a1, SP[a5, a6], a3, a4, a2, n] + S2[a1, SP[a5, a6], a4, a2, a3, n] + 
    S2[a1, SP[a5, a6], a4, a3, a2, n] - S2[a2, a1, a3, a5, SP[a4, a6], n] - 
    S2[a2, a1, a3, SP[a4, a5], a6, n] + S2[a2, a1, a4, a6, SP[a3, a5], n] + 
    S2[a2, a1, a4, SP[a3, a6], a5, n] - S2[a2, a1, a5, a3, SP[a4, a6], n] + 
    S2[a2, a1, a5, a6, SP[a3, a4], n] + S2[a2, a1, a5, SP[a3, a4], a6, n] - 
    S2[a2, a1, a5, SP[a4, a6], a3, n] + S2[a2, a1, a6, a4, SP[a3, a5], n] + 
    S2[a2, a1, a6, a5, SP[a3, a4], n] + S2[a2, a1, a6, SP[a3, a4], a5, n] + 
    S2[a2, a1, a6, SP[a3, a5], a4, n] + S2[a2, a1, SP[a3, a4], a5, a6, n] + 
    S2[a2, a1, SP[a3, a4], a6, a5, n] + S2[a2, a1, SP[a3, a6], a4, a5, n] + 
    S2[a2, a1, SP[a3, a6], a5, a4, n] - S2[a2, a1, SP[a4, a5], a3, a6, n] - 
    S2[a2, a1, SP[a4, a5], a6, a3, n] - S2[a6, n]*S2[a2, a4, a1, a3, a5, n] - 
    S2[a2, a4, a1, a3, SP[a5, a6], n] - S2[a6, n]*S2[a2, a4, a1, a5, a3, n] + 
    S2[a2, a4, a1, a6, SP[a3, a5], n] + S2[a2, a4, a1, SP[a3, a5], a6, n] - 
    S2[a2, a4, a1, SP[a5, a6], a3, n] - S2[a6, n]*S2[a2, a4, a5, a1, a3, n] + 
    S2[a2, a4, a6, a1, SP[a3, a5], n] + S2[a2, a4, a6, SP[a1, a5], a3, n] + 
    S2[a2, a4, SP[a1, a5], a3, a6, n] + S2[a2, a4, SP[a1, a5], a6, a3, n] - 
    S2[a2, a4, SP[a5, a6], a1, a3, n] - S2[a2, a5, a1, a3, SP[a4, a6], n] + 
    S2[a2, a5, a1, a6, SP[a3, a4], n] + S2[a2, a5, a1, SP[a3, a4], a6, n] - 
    S2[a2, a5, a1, SP[a4, a6], a3, n] - S2[a6, n]*S2[a2, a5, a4, a1, a3, n] + 
    S2[a2, a5, a6, a1, SP[a3, a4], n] + S2[a2, a5, a6, SP[a1, a4], a3, n] + 
    S2[a2, a5, SP[a1, a4], a3, a6, n] + S2[a2, a5, SP[a1, a4], a6, a3, n] - 
    S2[a2, a5, SP[a4, a6], a1, a3, n] - S2[a5, n]*S2[a2, a6, a1, a3, a4, n] - 
    S2[a2, a6, a1, a3, SP[a4, a5], n] - S2[a5, n]*S2[a2, a6, a1, a4, a3, n] + 
    S2[a2, a6, a1, a5, SP[a3, a4], n] + S2[a2, a6, a1, SP[a3, a4], a5, n] - 
    S2[a2, a6, a1, SP[a4, a5], a3, n] + S2[a2, a6, a4, a1, SP[a3, a5], n] + 
    S2[a2, a6, a4, SP[a1, a5], a3, n] + S2[a2, a6, a5, a1, SP[a3, a4], n] + 
    S2[a2, a6, a5, SP[a1, a4], a3, n] + S2[a2, a6, SP[a1, a4], a3, a5, n] + 
    S2[a2, a6, SP[a1, a4], a5, a3, n] + S2[a2, SP[a1, a4], a3, a5, a6, n] + 
    S2[a2, SP[a1, a4], a3, a6, a5, n] + S2[a2, SP[a1, a4], a5, a3, a6, n] + 
    S2[a2, SP[a1, a4], a5, a6, a3, n] + S2[a2, SP[a1, a4], a6, a3, a5, n] + 
    S2[a2, SP[a1, a4], a6, a5, a3, n] + S2[a2, SP[a1, a6], a3, a4, a5, n] + 
    S2[a2, SP[a1, a6], a3, a5, a4, n] + S2[a2, SP[a1, a6], a4, a3, a5, n] + 
    S2[a2, SP[a1, a6], a4, a5, a3, n] + S2[a2, SP[a1, a6], a5, a3, a4, n] + 
    S2[a2, SP[a1, a6], a5, a4, a3, n] - S2[a2, SP[a4, a6], a1, a3, a5, n] - 
    S2[a2, SP[a4, a6], a1, a5, a3, n] - S2[a2, SP[a4, a6], a5, a1, a3, n] - 
    S2[a2, SP[a5, a6], a1, a3, a4, n] - S2[a2, SP[a5, a6], a1, a4, a3, n] - 
    S2[a2, SP[a5, a6], a4, a1, a3, n] - S2[a5, a1, a3, a4, SP[a2, a6], n] - 
    S2[a5, a1, a3, SP[a4, a6], a2, n] - S2[a5, a1, a4, a2, SP[a3, a6], n] - 
    S2[a5, a1, a4, a3, SP[a2, a6], n] - S2[a5, a1, a4, SP[a2, a6], a3, n] - 
    S2[a5, a1, a4, SP[a3, a6], a2, n] - S2[a5, a1, a6, a2, SP[a3, a4], n] - 
    S2[a5, a1, a6, SP[a2, a3], a4, n] - S2[a5, a1, SP[a3, a6], a2, a4, n] - 
    S2[a5, a1, SP[a3, a6], a4, a2, n] - S2[a5, a1, SP[a4, a6], a2, a3, n] - 
    S2[a5, a1, SP[a4, a6], a3, a2, n] - S2[a5, a6, a1, a2, SP[a3, a4], n] + 
    S2[a2, n]*S2[a5, a6, a1, a3, a4, n] + S2[a5, a6, a1, a3, SP[a2, a4], n] + 
    S2[a2, n]*S2[a5, a6, a1, a4, a3, n] + S2[a5, a6, a1, a4, SP[a2, a3], n] + 
    S2[a5, a6, a1, SP[a2, a4], a3, n] - S2[a5, a6, a2, a1, SP[a3, a4], n] - 
    S2[a5, a6, a2, SP[a1, a4], a3, n] - S2[a5, SP[a1, a6], a2, a3, a4, n] - 
    S2[a5, SP[a1, a6], a2, a4, a3, n] - S2[a5, SP[a1, a6], a3, a2, a4, n] - 
    S2[a5, SP[a1, a6], a3, a4, a2, n] - S2[a5, SP[a1, a6], a4, a2, a3, n] - 
    S2[a5, SP[a1, a6], a4, a3, a2, n] + S2[a5, SP[a2, a6], a1, a3, a4, n] + 
    S2[a5, SP[a2, a6], a1, a4, a3, n] + S2[a5, n]*S2[a6, a2, a4, a1, a3, n] + 
    S2[a6, a2, a4, a1, SP[a3, a5], n] + S2[a6, a2, a4, SP[a1, a5], a3, n] + 
    S2[a6, a2, SP[a4, a5], a1, a3, n] + S2[a6, SP[a2, a5], a4, a1, a3, n] + 
    S2[SP[a1, a3], a4, a2, a5, a6, n] - S2[SP[a2, a6], a4, a1, a3, a5, n] - 
    S2[SP[a2, a6], a4, a1, a5, a3, n] - S2[SP[a2, a6], a4, a5, a1, a3, n] - 
    S2[SP[a2, a6], a5, a4, a1, a3, n] + S2[SP[a5, a6], a2, a4, a1, a3, n] - 
    S2[a6, a5, a2, a4, a1, a3, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a3_, a1_, a4_, a2_, a6_, a5_, n_] :> 
  -(S2[a1, a3, a4, n]*S2[a2, a6, a5, n]) - S2[a1, a4, a3, n]*
     S2[a2, a6, a5, n] - S2[SP[a1, a2], SP[a3, a6], SP[a4, a5], n] - 
    S2[SP[a1, a2], SP[a4, a6], SP[a3, a5], n] + S2[a1, a2, SP[a3, a6], 
     SP[a4, a5], n] + S2[a1, a2, SP[a4, a6], SP[a3, a5], n] + 
    S2[a5, a6, n]*S2[a1, a3, a4, a2, n] - S2[a1, a3, SP[a4, a5], SP[a2, a6], 
     n] + S2[a5, a6, n]*S2[a1, a4, a2, a3, n] + 
    S2[a5, a6, n]*S2[a1, a4, a3, a2, n] - S2[a1, a4, SP[a2, a5], SP[a3, a6], 
     n] - S2[a1, a4, SP[a3, a5], SP[a2, a6], n] + S2[a1, SP[a2, a3], a6, 
     SP[a4, a5], n] + S2[a1, SP[a2, a3], SP[a4, a6], a5, n] + 
    S2[a1, SP[a2, a4], a6, SP[a3, a5], n] + S2[a1, SP[a2, a4], SP[a3, a6], 
     a5, n] - S2[a1, SP[a3, a5], a4, SP[a2, a6], n] - 
    S2[a1, SP[a3, a5], SP[a4, a6], a2, n] - S2[a1, SP[a4, a5], a2, 
     SP[a3, a6], n] - S2[a1, SP[a4, a5], a3, SP[a2, a6], n] - 
    S2[a1, SP[a4, a5], SP[a2, a6], a3, n] - S2[a1, SP[a4, a5], SP[a3, a6], 
     a2, n] + S2[a2, a1, SP[a3, a6], SP[a4, a5], n] + 
    S2[a2, a1, SP[a4, a6], SP[a3, a5], n] + S2[a2, SP[a1, a6], a3, 
     SP[a4, a5], n] + S2[a2, SP[a1, a6], a4, SP[a3, a5], n] + 
    S2[a2, SP[a1, a6], SP[a3, a5], a4, n] + S2[a2, SP[a1, a6], SP[a4, a5], 
     a3, n] + S2[a1, a3, n]*S2[a5, a6, a2, a4, n] - 
    S2[a5, a6, SP[a1, a2], SP[a3, a4], n] - S2[a5, SP[a1, a6], a2, 
     SP[a3, a4], n] - S2[a5, SP[a1, a6], SP[a2, a3], a4, n] + 
    S2[SP[a1, a2], a3, a6, SP[a4, a5], n] + S2[SP[a1, a2], a3, SP[a4, a6], 
     a5, n] + S2[SP[a1, a2], a4, a6, SP[a3, a5], n] + 
    S2[SP[a1, a2], a4, SP[a3, a6], a5, n] + S2[SP[a1, a2], a6, a3, 
     SP[a4, a5], n] + S2[SP[a1, a2], a6, a4, SP[a3, a5], n] + 
    S2[SP[a1, a2], a6, SP[a3, a5], a4, n] + S2[SP[a1, a2], a6, SP[a4, a5], 
     a3, n] + S2[SP[a1, a2], SP[a3, a6], a4, a5, n] + 
    S2[SP[a1, a2], SP[a3, a6], a5, a4, n] + S2[SP[a1, a2], SP[a4, a6], a3, 
     a5, n] + S2[SP[a1, a2], SP[a4, a6], a5, a3, n] - 
    S2[SP[a1, a5], a3, a4, SP[a2, a6], n] - S2[SP[a1, a5], a3, SP[a4, a6], 
     a2, n] - S2[SP[a1, a5], a4, a2, SP[a3, a6], n] - 
    S2[SP[a1, a5], a4, a3, SP[a2, a6], n] - S2[SP[a1, a5], a4, SP[a2, a6], 
     a3, n] - S2[SP[a1, a5], a4, SP[a3, a6], a2, n] - 
    S2[SP[a1, a5], a6, a2, SP[a3, a4], n] - S2[SP[a1, a5], a6, SP[a2, a3], 
     a4, n] - S2[SP[a1, a5], SP[a3, a6], a2, a4, n] - 
    S2[SP[a1, a5], SP[a3, a6], a4, a2, n] - S2[SP[a1, a5], SP[a4, a6], a2, 
     a3, n] - S2[SP[a1, a5], SP[a4, a6], a3, a2, n] - 
    S2[a1, a2, a3, a6, SP[a4, a5], n] - S2[a1, a2, a3, SP[a4, a6], a5, n] - 
    S2[a1, a2, a4, a6, SP[a3, a5], n] - S2[a1, a2, a4, SP[a3, a6], a5, n] - 
    S2[a1, a2, a6, a3, SP[a4, a5], n] - S2[a1, a2, a6, a4, SP[a3, a5], n] - 
    S2[a1, a2, a6, SP[a3, a5], a4, n] - S2[a1, a2, a6, SP[a4, a5], a3, n] - 
    S2[a1, a2, SP[a3, a6], a4, a5, n] - S2[a1, a2, SP[a3, a6], a5, a4, n] - 
    S2[a1, a2, SP[a4, a6], a3, a5, n] - S2[a1, a2, SP[a4, a6], a5, a3, n] - 
    S2[a1, a3, a2, a6, SP[a4, a5], n] - S2[a1, a3, a2, SP[a4, a6], a5, n] - 
    S2[a5, n]*S2[a1, a3, a4, a2, a6, n] - S2[a1, a3, a4, a2, SP[a5, a6], n] + 
    S2[a1, a3, a4, a5, SP[a2, a6], n] - S2[a5, n]*S2[a1, a3, a4, a6, a2, n] + 
    S2[a2, n]*S2[a1, a3, a4, a6, a5, n] + S2[a1, a3, a4, SP[a2, a6], a5, n] - 
    S2[a1, a3, a4, SP[a5, a6], a2, n] + S2[a1, a3, a5, a4, SP[a2, a6], n] + 
    S2[a1, a3, a5, SP[a4, a6], a2, n] - S2[a5, n]*S2[a1, a3, a6, a2, a4, n] - 
    S2[a1, a3, a6, a2, SP[a4, a5], n] - S2[a5, n]*S2[a1, a3, a6, a4, a2, n] + 
    S2[a2, n]*S2[a1, a3, a6, a4, a5, n] + 
    S2[a2, n]*S2[a1, a3, a6, a5, a4, n] + S2[a1, a3, a6, a5, SP[a2, a4], n] + 
    S2[a1, a3, a6, SP[a2, a4], a5, n] - S2[a1, a3, a6, SP[a4, a5], a2, n] + 
    S2[a1, a3, SP[a2, a6], a4, a5, n] + S2[a1, a3, SP[a2, a6], a5, a4, n] - 
    S2[a1, a3, SP[a5, a6], a2, a4, n] - S2[a1, a3, SP[a5, a6], a4, a2, n] - 
    S2[a5, n]*S2[a1, a4, a2, a3, a6, n] - S2[a1, a4, a2, a3, SP[a5, a6], n] + 
    S2[a1, a4, a2, a5, SP[a3, a6], n] - S2[a5, n]*S2[a1, a4, a2, a6, a3, n] + 
    S2[a3, n]*S2[a1, a4, a2, a6, a5, n] - S2[a1, a4, a2, a6, SP[a3, a5], n] - 
    S2[a1, a4, a2, SP[a5, a6], a3, n] - S2[a5, n]*S2[a1, a4, a3, a2, a6, n] - 
    S2[a1, a4, a3, a2, SP[a5, a6], n] + S2[a1, a4, a3, a5, SP[a2, a6], n] - 
    S2[a5, n]*S2[a1, a4, a3, a6, a2, n] + 
    S2[a2, n]*S2[a1, a4, a3, a6, a5, n] + S2[a1, a4, a3, SP[a2, a6], a5, n] - 
    S2[a1, a4, a3, SP[a5, a6], a2, n] + S2[a1, a4, a5, a2, SP[a3, a6], n] + 
    S2[a1, a4, a5, a3, SP[a2, a6], n] + S2[a1, a4, a5, SP[a2, a6], a3, n] + 
    S2[a1, a4, a5, SP[a3, a6], a2, n] - S2[a5, n]*S2[a1, a4, a6, a2, a3, n] - 
    S2[a1, a4, a6, a2, SP[a3, a5], n] - S2[a5, n]*S2[a1, a4, a6, a3, a2, n] + 
    S2[a2, n]*S2[a1, a4, a6, a3, a5, n] + 
    S2[a2, n]*S2[a1, a4, a6, a5, a3, n] + S2[a1, a4, a6, a5, SP[a2, a3], n] + 
    S2[a1, a4, a6, SP[a2, a3], a5, n] - S2[a1, a4, a6, SP[a3, a5], a2, n] + 
    S2[a1, a4, SP[a2, a3], a6, a5, n] + S2[a1, a4, SP[a2, a6], a3, a5, n] + 
    S2[a1, a4, SP[a2, a6], a5, a3, n] - S2[a1, a4, SP[a5, a6], a2, a3, n] - 
    S2[a1, a4, SP[a5, a6], a3, a2, n] + S2[a1, a5, a3, a4, SP[a2, a6], n] + 
    S2[a1, a5, a3, SP[a4, a6], a2, n] + S2[a1, a5, a4, a2, SP[a3, a6], n] + 
    S2[a1, a5, a4, a3, SP[a2, a6], n] + S2[a1, a5, a4, SP[a2, a6], a3, n] + 
    S2[a1, a5, a4, SP[a3, a6], a2, n] + S2[a1, a5, a6, a2, SP[a3, a4], n] + 
    S2[a1, a5, a6, SP[a2, a3], a4, n] + S2[a1, a5, SP[a3, a6], a2, a4, n] + 
    S2[a1, a5, SP[a3, a6], a4, a2, n] + S2[a1, a5, SP[a4, a6], a2, a3, n] + 
    S2[a1, a5, SP[a4, a6], a3, a2, n] - S2[a5, n]*S2[a1, a6, a2, a3, a4, n] - 
    S2[a1, a6, a2, a3, SP[a4, a5], n] - S2[a5, n]*S2[a1, a6, a2, a4, a3, n] - 
    S2[a1, a6, a2, a4, SP[a3, a5], n] - S2[a1, a6, a2, SP[a3, a5], a4, n] - 
    S2[a1, a6, a2, SP[a4, a5], a3, n] - S2[a5, n]*S2[a1, a6, a3, a2, a4, n] - 
    S2[a1, a6, a3, a2, SP[a4, a5], n] - S2[a5, n]*S2[a1, a6, a3, a4, a2, n] + 
    S2[a2, n]*S2[a1, a6, a3, a4, a5, n] + 
    S2[a2, n]*S2[a1, a6, a3, a5, a4, n] + S2[a1, a6, a3, a5, SP[a2, a4], n] + 
    S2[a1, a6, a3, SP[a2, a4], a5, n] - S2[a1, a6, a3, SP[a4, a5], a2, n] - 
    S2[a5, n]*S2[a1, a6, a4, a2, a3, n] - S2[a1, a6, a4, a2, SP[a3, a5], n] - 
    S2[a5, n]*S2[a1, a6, a4, a3, a2, n] + 
    S2[a2, n]*S2[a1, a6, a4, a3, a5, n] + 
    S2[a2, n]*S2[a1, a6, a4, a5, a3, n] + S2[a1, a6, a4, a5, SP[a2, a3], n] + 
    S2[a1, a6, a4, SP[a2, a3], a5, n] - S2[a1, a6, a4, SP[a3, a5], a2, n] + 
    S2[a2, n]*S2[a1, a6, a5, a3, a4, n] + S2[a1, a6, a5, a3, SP[a2, a4], n] + 
    S2[a2, n]*S2[a1, a6, a5, a4, a3, n] + S2[a1, a6, a5, a4, SP[a2, a3], n] + 
    S2[a1, a6, a5, SP[a2, a3], a4, n] + S2[a1, a6, a5, SP[a2, a4], a3, n] + 
    S2[a1, a6, SP[a2, a3], a4, a5, n] + S2[a1, a6, SP[a2, a3], a5, a4, n] + 
    S2[a1, a6, SP[a2, a4], a3, a5, n] + S2[a1, a6, SP[a2, a4], a5, a3, n] - 
    S2[a1, a6, SP[a3, a5], a2, a4, n] - S2[a1, a6, SP[a3, a5], a4, a2, n] - 
    S2[a1, a6, SP[a4, a5], a2, a3, n] - S2[a1, a6, SP[a4, a5], a3, a2, n] + 
    S2[a1, SP[a2, a6], a3, a4, a5, n] + S2[a1, SP[a2, a6], a3, a5, a4, n] + 
    S2[a1, SP[a2, a6], a4, a3, a5, n] + S2[a1, SP[a2, a6], a4, a5, a3, n] + 
    S2[a1, SP[a2, a6], a5, a3, a4, n] + S2[a1, SP[a2, a6], a5, a4, a3, n] + 
    S2[a1, SP[a3, a4], a2, a6, a5, n] - S2[a1, SP[a5, a6], a2, a3, a4, n] - 
    S2[a1, SP[a5, a6], a2, a4, a3, n] - S2[a1, SP[a5, a6], a3, a2, a4, n] - 
    S2[a1, SP[a5, a6], a3, a4, a2, n] - S2[a1, SP[a5, a6], a4, a2, a3, n] - 
    S2[a1, SP[a5, a6], a4, a3, a2, n] - S2[a2, a1, a3, a6, SP[a4, a5], n] - 
    S2[a2, a1, a3, SP[a4, a6], a5, n] - S2[a2, a1, a4, a6, SP[a3, a5], n] - 
    S2[a2, a1, a4, SP[a3, a6], a5, n] - S2[a2, a1, a6, a3, SP[a4, a5], n] - 
    S2[a2, a1, a6, a4, SP[a3, a5], n] - S2[a2, a1, a6, SP[a3, a5], a4, n] - 
    S2[a2, a1, a6, SP[a4, a5], a3, n] - S2[a2, a1, SP[a3, a6], a4, a5, n] - 
    S2[a2, a1, SP[a3, a6], a5, a4, n] - S2[a2, a1, SP[a4, a6], a3, a5, n] - 
    S2[a2, a1, SP[a4, a6], a5, a3, n] + S2[a5, n]*S2[a2, a6, a1, a3, a4, n] + 
    S2[a5, n]*S2[a2, a6, a1, a4, a3, n] - S2[a2, SP[a1, a6], a3, a4, a5, n] - 
    S2[a2, SP[a1, a6], a3, a5, a4, n] - S2[a2, SP[a1, a6], a4, a3, a5, n] - 
    S2[a2, SP[a1, a6], a4, a5, a3, n] - S2[a2, SP[a1, a6], a5, a3, a4, n] - 
    S2[a2, SP[a1, a6], a5, a4, a3, n] + S2[a2, SP[a5, a6], a1, a3, a4, n] + 
    S2[a2, SP[a5, a6], a1, a4, a3, n] + S2[a5, a1, a3, a4, SP[a2, a6], n] + 
    S2[a5, a1, a3, SP[a4, a6], a2, n] + S2[a5, a1, a4, a2, SP[a3, a6], n] + 
    S2[a5, a1, a4, a3, SP[a2, a6], n] + S2[a5, a1, a4, SP[a2, a6], a3, n] + 
    S2[a5, a1, a4, SP[a3, a6], a2, n] + S2[a5, a1, a6, a2, SP[a3, a4], n] + 
    S2[a5, a1, a6, SP[a2, a3], a4, n] + S2[a5, a1, SP[a3, a6], a2, a4, n] + 
    S2[a5, a1, SP[a3, a6], a4, a2, n] + S2[a5, a1, SP[a4, a6], a2, a3, n] + 
    S2[a5, a1, SP[a4, a6], a3, a2, n] + S2[a5, a6, a1, a2, SP[a3, a4], n] - 
    S2[a2, n]*S2[a5, a6, a1, a3, a4, n] - S2[a5, a6, a1, a3, SP[a2, a4], n] - 
    S2[a2, n]*S2[a5, a6, a1, a4, a3, n] - S2[a5, a6, a1, a4, SP[a2, a3], n] - 
    S2[a5, a6, a1, SP[a2, a4], a3, n] + S2[a5, a6, a2, a1, SP[a3, a4], n] + 
    S2[a5, a6, a2, SP[a1, a4], a3, n] + S2[a5, SP[a1, a6], a2, a3, a4, n] + 
    S2[a5, SP[a1, a6], a2, a4, a3, n] + S2[a5, SP[a1, a6], a3, a2, a4, n] + 
    S2[a5, SP[a1, a6], a3, a4, a2, n] + S2[a5, SP[a1, a6], a4, a2, a3, n] + 
    S2[a5, SP[a1, a6], a4, a3, a2, n] - S2[a5, SP[a2, a6], a1, a3, a4, n] - 
    S2[a5, SP[a2, a6], a1, a4, a3, n] - S2[a5, n]*S2[a6, a2, a4, a1, a3, n] - 
    S2[a6, a2, a4, a1, SP[a3, a5], n] - S2[a6, a2, a4, SP[a1, a5], a3, n] - 
    S2[a6, a2, SP[a4, a5], a1, a3, n] - S2[a6, SP[a2, a5], a4, a1, a3, n] + 
    S2[SP[a1, a3], a4, a2, a6, a5, n] - S2[SP[a5, a6], a2, a4, a1, a3, n] + 
    S2[a6, a2, a4, a1, a3, a5, n] + S2[a6, a2, a4, a1, a5, a3, n] + 
    S2[a6, a2, a4, a5, a1, a3, n] + S2[a6, a2, a5, a4, a1, a3, n] + 
    S2[a6, a5, a2, a4, a1, a3, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a3_, a1_, a4_, a5_, a2_, a6_, n_] :> 
  S2[a1, a3, a4, n]*S2[a2, a5, a6, n] + S2[a1, a4, a3, n]*S2[a2, a5, a6, n] + 
    S2[a1, a3, a4, n]*S2[a2, a6, a5, n] + S2[a1, a4, a3, n]*
     S2[a2, a6, a5, n] + S2[SP[a1, a2], SP[a3, a5], SP[a4, a6], n] + 
    S2[SP[a1, a2], SP[a3, a6], SP[a4, a5], n] + S2[SP[a1, a2], SP[a4, a5], 
     SP[a3, a6], n] + S2[SP[a1, a2], SP[a4, a6], SP[a3, a5], n] - 
    S2[a1, a2, SP[a3, a5], SP[a4, a6], n] - S2[a1, a2, SP[a3, a6], 
     SP[a4, a5], n] - S2[a1, a2, SP[a4, a5], SP[a3, a6], n] - 
    S2[a1, a2, SP[a4, a6], SP[a3, a5], n] - S2[a2, a6, n]*
     S2[a1, a3, a4, a5, n] + S2[a1, a3, SP[a2, a4], SP[a5, a6], n] - 
    S2[a2, a6, n]*S2[a1, a4, a3, a5, n] - S2[a2, a6, n]*
     S2[a1, a4, a5, a3, n] + S2[a1, a4, SP[a2, a3], SP[a5, a6], n] + 
    S2[a1, a4, SP[a2, a5], SP[a3, a6], n] + S2[a1, SP[a2, a3], a4, 
     SP[a5, a6], n] - S2[a1, SP[a2, a3], a5, SP[a4, a6], n] - 
    S2[a1, SP[a2, a3], a6, SP[a4, a5], n] - S2[a1, SP[a2, a3], SP[a4, a5], 
     a6, n] + S2[a1, SP[a2, a4], a3, SP[a5, a6], n] - 
    S2[a1, SP[a2, a4], a6, SP[a3, a5], n] - S2[a1, SP[a2, a4], SP[a3, a5], 
     a6, n] + S2[a1, SP[a2, a4], SP[a5, a6], a3, n] - 
    S2[a2, a1, SP[a3, a5], SP[a4, a6], n] - S2[a2, a1, SP[a3, a6], 
     SP[a4, a5], n] - S2[a2, a1, SP[a4, a5], SP[a3, a6], n] - 
    S2[a2, a1, SP[a4, a6], SP[a3, a5], n] - S2[a1, a3, n]*
     S2[a2, a5, a4, a6, n] - S2[a1, a3, n]*S2[a2, a5, a6, a4, n] + 
    S2[a2, a5, SP[a1, a4], SP[a3, a6], n] + S2[a2, a5, SP[a1, a6], 
     SP[a3, a4], n] - S2[a1, a3, n]*S2[a2, a6, a5, a4, n] + 
    S2[a2, a6, SP[a1, a5], SP[a3, a4], n] - S2[a2, SP[a1, a5], a3, 
     SP[a4, a6], n] + S2[a2, SP[a1, a5], a6, SP[a3, a4], n] + 
    S2[a2, SP[a1, a5], SP[a3, a4], a6, n] - S2[a2, SP[a1, a5], SP[a4, a6], 
     a3, n] - S2[a2, SP[a1, a6], a3, SP[a4, a5], n] - 
    S2[a2, SP[a1, a6], a4, SP[a3, a5], n] + S2[a2, SP[a1, a6], a5, 
     SP[a3, a4], n] - S2[a2, SP[a1, a6], SP[a4, a5], a3, n] + 
    S2[SP[a1, a2], a3, a4, SP[a5, a6], n] - S2[SP[a1, a2], a3, a5, 
     SP[a4, a6], n] - S2[SP[a1, a2], a3, a6, SP[a4, a5], n] - 
    S2[SP[a1, a2], a3, SP[a4, a5], a6, n] + S2[SP[a1, a2], a4, a3, 
     SP[a5, a6], n] - S2[SP[a1, a2], a4, a6, SP[a3, a5], n] - 
    S2[SP[a1, a2], a4, SP[a3, a5], a6, n] + S2[SP[a1, a2], a4, SP[a5, a6], 
     a3, n] - S2[SP[a1, a2], a5, a3, SP[a4, a6], n] + 
    S2[SP[a1, a2], a5, a6, SP[a3, a4], n] + S2[SP[a1, a2], a5, SP[a3, a4], 
     a6, n] - S2[SP[a1, a2], a5, SP[a4, a6], a3, n] - 
    S2[SP[a1, a2], a6, a3, SP[a4, a5], n] - S2[SP[a1, a2], a6, a4, 
     SP[a3, a5], n] + S2[SP[a1, a2], a6, a5, SP[a3, a4], n] - 
    S2[SP[a1, a2], a6, SP[a4, a5], a3, n] - S2[SP[a1, a2], SP[a4, a5], a3, 
     a6, n] - S2[SP[a1, a2], SP[a4, a5], a6, a3, n] - 
    S2[a1, a2, a3, a4, SP[a5, a6], n] + S2[a1, a2, a3, a5, SP[a4, a6], n] + 
    S2[a1, a2, a3, a6, SP[a4, a5], n] + S2[a1, a2, a3, SP[a4, a5], a6, n] - 
    S2[a1, a2, a4, a3, SP[a5, a6], n] + S2[a1, a2, a4, a6, SP[a3, a5], n] + 
    S2[a1, a2, a4, SP[a3, a5], a6, n] - S2[a1, a2, a4, SP[a5, a6], a3, n] + 
    S2[a1, a2, a5, a3, SP[a4, a6], n] - S2[a1, a2, a5, a6, SP[a3, a4], n] - 
    S2[a1, a2, a5, SP[a3, a4], a6, n] + S2[a1, a2, a5, SP[a4, a6], a3, n] + 
    S2[a1, a2, a6, a3, SP[a4, a5], n] + S2[a1, a2, a6, a4, SP[a3, a5], n] - 
    S2[a1, a2, a6, a5, SP[a3, a4], n] + S2[a1, a2, a6, SP[a4, a5], a3, n] + 
    S2[a1, a2, SP[a4, a5], a3, a6, n] + S2[a1, a2, SP[a4, a5], a6, a3, n] - 
    S2[a1, a3, a2, a4, SP[a5, a6], n] + S2[a1, a3, a2, a5, SP[a4, a6], n] + 
    S2[a1, a3, a2, a6, SP[a4, a5], n] + S2[a1, a3, a2, SP[a4, a5], a6, n] - 
    S2[a1, a3, a4, a2, SP[a5, a6], n] - S2[a1, a3, a4, SP[a2, a5], a6, n] - 
    S2[a1, a4, a2, a3, SP[a5, a6], n] + S2[a1, a4, a2, a6, SP[a3, a5], n] + 
    S2[a1, a4, a2, SP[a3, a5], a6, n] - S2[a1, a4, a2, SP[a5, a6], a3, n] - 
    S2[a1, a4, a3, a2, SP[a5, a6], n] - S2[a1, a4, a3, SP[a2, a5], a6, n] + 
    S2[a3, n]*S2[a1, a4, a5, a2, a6, n] - S2[a1, a4, SP[a2, a5], a3, a6, n] - 
    S2[a1, a4, SP[a2, a5], a6, a3, n] + S2[a1, a4, SP[a3, a5], a2, a6, n] + 
    S2[a1, SP[a3, a4], a5, a2, a6, n] - S2[a2, a1, a3, a4, SP[a5, a6], n] + 
    S2[a2, a1, a3, a5, SP[a4, a6], n] + S2[a2, a1, a3, a6, SP[a4, a5], n] + 
    S2[a2, a1, a3, SP[a4, a5], a6, n] - S2[a2, a1, a4, a3, SP[a5, a6], n] + 
    S2[a2, a1, a4, a6, SP[a3, a5], n] + S2[a2, a1, a4, SP[a3, a5], a6, n] - 
    S2[a2, a1, a4, SP[a5, a6], a3, n] + S2[a2, a1, a5, a3, SP[a4, a6], n] - 
    S2[a2, a1, a5, a6, SP[a3, a4], n] - S2[a2, a1, a5, SP[a3, a4], a6, n] + 
    S2[a2, a1, a5, SP[a4, a6], a3, n] + S2[a2, a1, a6, a3, SP[a4, a5], n] + 
    S2[a2, a1, a6, a4, SP[a3, a5], n] - S2[a2, a1, a6, a5, SP[a3, a4], n] + 
    S2[a2, a1, a6, SP[a4, a5], a3, n] + S2[a2, a1, SP[a4, a5], a3, a6, n] + 
    S2[a2, a1, SP[a4, a5], a6, a3, n] + S2[a2, a5, a1, a3, SP[a4, a6], n] - 
    S2[a2, a5, a1, a6, SP[a3, a4], n] - S2[a2, a5, a1, SP[a3, a4], a6, n] + 
    S2[a2, a5, a1, SP[a4, a6], a3, n] + S2[a6, n]*S2[a2, a5, a4, a1, a3, n] - 
    S2[a2, a5, a6, a1, SP[a3, a4], n] - S2[a2, a5, a6, SP[a1, a4], a3, n] - 
    S2[a2, a5, SP[a1, a4], a3, a6, n] - S2[a2, a5, SP[a1, a4], a6, a3, n] + 
    S2[a2, a5, SP[a4, a6], a1, a3, n] + S2[a2, a6, a1, a3, SP[a4, a5], n] + 
    S2[a2, a6, a1, a4, SP[a3, a5], n] - S2[a2, a6, a1, a5, SP[a3, a4], n] + 
    S2[a2, a6, a1, SP[a4, a5], a3, n] - S2[a2, a6, a5, a1, SP[a3, a4], n] - 
    S2[a2, a6, a5, SP[a1, a4], a3, n] + S2[a2, SP[a5, a6], a4, a1, a3, n] + 
    S2[SP[a1, a3], a4, a5, a2, a6, n] + S2[SP[a2, a6], a5, a4, a1, a3, n] - 
    S2[a6, a2, a5, a4, a1, a3, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a3_, a1_, a4_, a5_, a6_, a2_, n_] :> 
  -(S2[a1, a3, a4, n]*S2[a2, a6, a5, n]) - S2[a1, a4, a3, n]*
     S2[a2, a6, a5, n] - S2[SP[a1, a2], SP[a3, a6], SP[a4, a5], n] - 
    S2[SP[a1, a2], SP[a4, a6], SP[a3, a5], n] + S2[a1, a2, SP[a3, a6], 
     SP[a4, a5], n] + S2[a1, a2, SP[a4, a6], SP[a3, a5], n] + 
    S2[a2, a6, n]*S2[a1, a3, a4, a5, n] - S2[a1, a3, SP[a2, a4], SP[a5, a6], 
     n] + S2[a2, a6, n]*S2[a1, a4, a3, a5, n] + 
    S2[a2, a6, n]*S2[a1, a4, a5, a3, n] - S2[a1, a4, SP[a2, a3], SP[a5, a6], 
     n] - S2[a1, a4, SP[a2, a5], SP[a3, a6], n] - S2[a1, SP[a2, a3], a4, 
     SP[a5, a6], n] + S2[a1, SP[a2, a3], a6, SP[a4, a5], n] - 
    S2[a1, SP[a2, a4], a3, SP[a5, a6], n] - S2[a1, SP[a2, a4], a5, 
     SP[a3, a6], n] + S2[a1, SP[a2, a4], a6, SP[a3, a5], n] - 
    S2[a1, SP[a2, a4], SP[a5, a6], a3, n] + S2[a2, a1, SP[a3, a6], 
     SP[a4, a5], n] + S2[a2, a1, SP[a4, a6], SP[a3, a5], n] + 
    S2[a1, a3, n]*S2[a2, a6, a5, a4, n] - S2[a2, a6, SP[a1, a5], SP[a3, a4], 
     n] + S2[a2, SP[a1, a6], a3, SP[a4, a5], n] + S2[a2, SP[a1, a6], a4, 
     SP[a3, a5], n] - S2[a2, SP[a1, a6], a5, SP[a3, a4], n] + 
    S2[a2, SP[a1, a6], SP[a4, a5], a3, n] - S2[SP[a1, a2], a3, a4, 
     SP[a5, a6], n] + S2[SP[a1, a2], a3, a6, SP[a4, a5], n] - 
    S2[SP[a1, a2], a4, a3, SP[a5, a6], n] - S2[SP[a1, a2], a4, a5, 
     SP[a3, a6], n] + S2[SP[a1, a2], a4, a6, SP[a3, a5], n] - 
    S2[SP[a1, a2], a4, SP[a5, a6], a3, n] + S2[SP[a1, a2], a6, a3, 
     SP[a4, a5], n] + S2[SP[a1, a2], a6, a4, SP[a3, a5], n] - 
    S2[SP[a1, a2], a6, a5, SP[a3, a4], n] + S2[SP[a1, a2], a6, SP[a4, a5], 
     a3, n] + S2[a1, a2, a3, a4, SP[a5, a6], n] - 
    S2[a1, a2, a3, a6, SP[a4, a5], n] + S2[a1, a2, a4, a3, SP[a5, a6], n] + 
    S2[a1, a2, a4, a5, SP[a3, a6], n] - S2[a1, a2, a4, a6, SP[a3, a5], n] + 
    S2[a1, a2, a4, SP[a5, a6], a3, n] - S2[a1, a2, a6, a3, SP[a4, a5], n] - 
    S2[a1, a2, a6, a4, SP[a3, a5], n] + S2[a1, a2, a6, a5, SP[a3, a4], n] - 
    S2[a1, a2, a6, SP[a4, a5], a3, n] + S2[a1, a3, a2, a4, SP[a5, a6], n] - 
    S2[a1, a3, a2, a6, SP[a4, a5], n] + S2[a1, a3, a4, a2, SP[a5, a6], n] - 
    S2[a2, n]*S2[a1, a3, a4, a5, a6, n] - S2[a1, a3, a4, a5, SP[a2, a6], n] + 
    S2[a1, a4, a2, a3, SP[a5, a6], n] + S2[a1, a4, a2, a5, SP[a3, a6], n] - 
    S2[a1, a4, a2, a6, SP[a3, a5], n] + S2[a1, a4, a2, SP[a5, a6], a3, n] + 
    S2[a1, a4, a3, a2, SP[a5, a6], n] - S2[a2, n]*S2[a1, a4, a3, a5, a6, n] - 
    S2[a1, a4, a3, a5, SP[a2, a6], n] + S2[a1, a4, a5, a2, SP[a3, a6], n] - 
    S2[a2, n]*S2[a1, a4, a5, a3, a6, n] - S2[a1, a4, a5, a3, SP[a2, a6], n] + 
    S2[a3, n]*S2[a1, a4, a5, a6, a2, n] - 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] - S2[a1, a4, a5, SP[a2, a6], a3, n] + 
    S2[a1, a4, a5, SP[a3, a6], a2, n] + S2[a1, a4, SP[a3, a5], a6, a2, n] + 
    S2[a1, SP[a3, a4], a5, a6, a2, n] + S2[a2, a1, a3, a4, SP[a5, a6], n] - 
    S2[a2, a1, a3, a6, SP[a4, a5], n] + S2[a2, a1, a4, a3, SP[a5, a6], n] + 
    S2[a2, a1, a4, a5, SP[a3, a6], n] - S2[a2, a1, a4, a6, SP[a3, a5], n] + 
    S2[a2, a1, a4, SP[a5, a6], a3, n] - S2[a2, a1, a6, a3, SP[a4, a5], n] - 
    S2[a2, a1, a6, a4, SP[a3, a5], n] + S2[a2, a1, a6, a5, SP[a3, a4], n] - 
    S2[a2, a1, a6, SP[a4, a5], a3, n] - S2[a2, a6, a1, a3, SP[a4, a5], n] - 
    S2[a2, a6, a1, a4, SP[a3, a5], n] + S2[a2, a6, a1, a5, SP[a3, a4], n] - 
    S2[a2, a6, a1, SP[a4, a5], a3, n] + S2[a2, a6, a5, a1, SP[a3, a4], n] + 
    S2[a2, a6, a5, SP[a1, a4], a3, n] - S2[a2, n]*S2[a6, a5, a4, a1, a3, n] - 
    S2[a6, a5, a4, a1, SP[a2, a3], n] - S2[a6, a5, a4, SP[a1, a2], a3, n] - 
    S2[a6, a5, SP[a2, a4], a1, a3, n] - S2[a6, SP[a2, a5], a4, a1, a3, n] + 
    S2[SP[a1, a3], a4, a5, a6, a2, n] - S2[SP[a2, a6], a5, a4, a1, a3, n] + 
    S2[a6, a2, a5, a4, a1, a3, n] + S2[a6, a5, a2, a4, a1, a3, n] + 
    S2[a6, a5, a4, a1, a2, a3, n] + S2[a6, a5, a4, a1, a3, a2, n] + 
    S2[a6, a5, a4, a2, a1, a3, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a3_, a1_, a4_, a6_, a2_, a5_, n_] :> 
  S2[a1, a3, a4, n]*S2[a2, a5, a6, n] + S2[a1, a4, a3, n]*S2[a2, a5, a6, n] + 
    S2[a1, a3, a4, n]*S2[a2, a6, a5, n] + S2[a1, a4, a3, n]*
     S2[a2, a6, a5, n] + S2[SP[a1, a2], SP[a3, a5], SP[a4, a6], n] + 
    S2[SP[a1, a2], SP[a3, a6], SP[a4, a5], n] + S2[SP[a1, a2], SP[a4, a5], 
     SP[a3, a6], n] + S2[SP[a1, a2], SP[a4, a6], SP[a3, a5], n] - 
    S2[a1, a2, SP[a3, a5], SP[a4, a6], n] - S2[a1, a2, SP[a3, a6], 
     SP[a4, a5], n] - S2[a1, a2, SP[a4, a5], SP[a3, a6], n] - 
    S2[a1, a2, SP[a4, a6], SP[a3, a5], n] - S2[a1, SP[a2, a3], a5, 
     SP[a4, a6], n] - S2[a1, SP[a2, a3], a6, SP[a4, a5], n] - 
    S2[a1, SP[a2, a3], SP[a4, a5], a6, n] - S2[a1, SP[a2, a3], SP[a4, a6], 
     a5, n] - S2[a1, SP[a2, a4], a5, SP[a3, a6], n] - 
    S2[a1, SP[a2, a4], a6, SP[a3, a5], n] - S2[a1, SP[a2, a4], SP[a3, a5], 
     a6, n] - S2[a1, SP[a2, a4], SP[a3, a6], a5, n] - 
    S2[a2, a1, SP[a3, a5], SP[a4, a6], n] - S2[a2, a1, SP[a3, a6], 
     SP[a4, a5], n] - S2[a2, a1, SP[a4, a5], SP[a3, a6], n] - 
    S2[a2, a1, SP[a4, a6], SP[a3, a5], n] - S2[a2, SP[a1, a5], a3, 
     SP[a4, a6], n] - S2[a2, SP[a1, a5], a4, SP[a3, a6], n] - 
    S2[a2, SP[a1, a5], SP[a3, a6], a4, n] - S2[a2, SP[a1, a5], SP[a4, a6], 
     a3, n] - S2[a2, SP[a1, a6], a3, SP[a4, a5], n] - 
    S2[a2, SP[a1, a6], a4, SP[a3, a5], n] - S2[a2, SP[a1, a6], SP[a3, a5], 
     a4, n] - S2[a2, SP[a1, a6], SP[a4, a5], a3, n] - 
    S2[a1, a3, n]*S2[a4, a6, a2, a5, n] + S2[a4, a6, SP[a1, a2], SP[a3, a5], 
     n] + S2[a4, SP[a1, a6], a2, SP[a3, a5], n] + 
    S2[a4, SP[a1, a6], SP[a2, a3], a5, n] - S2[SP[a1, a2], a3, a5, 
     SP[a4, a6], n] - S2[SP[a1, a2], a3, a6, SP[a4, a5], n] - 
    S2[SP[a1, a2], a3, SP[a4, a5], a6, n] - S2[SP[a1, a2], a3, SP[a4, a6], 
     a5, n] - S2[SP[a1, a2], a4, a5, SP[a3, a6], n] - 
    S2[SP[a1, a2], a4, a6, SP[a3, a5], n] - S2[SP[a1, a2], a4, SP[a3, a5], 
     a6, n] - S2[SP[a1, a2], a4, SP[a3, a6], a5, n] - 
    S2[SP[a1, a2], a5, a3, SP[a4, a6], n] - S2[SP[a1, a2], a5, a4, 
     SP[a3, a6], n] - S2[SP[a1, a2], a5, SP[a3, a6], a4, n] - 
    S2[SP[a1, a2], a5, SP[a4, a6], a3, n] - S2[SP[a1, a2], a6, a3, 
     SP[a4, a5], n] - S2[SP[a1, a2], a6, a4, SP[a3, a5], n] - 
    S2[SP[a1, a2], a6, SP[a3, a5], a4, n] - S2[SP[a1, a2], a6, SP[a4, a5], 
     a3, n] - S2[SP[a1, a2], SP[a3, a5], a4, a6, n] - 
    S2[SP[a1, a2], SP[a3, a5], a6, a4, n] - S2[SP[a1, a2], SP[a3, a6], a4, 
     a5, n] - S2[SP[a1, a2], SP[a3, a6], a5, a4, n] - 
    S2[SP[a1, a2], SP[a4, a5], a3, a6, n] - S2[SP[a1, a2], SP[a4, a5], a6, 
     a3, n] - S2[SP[a1, a2], SP[a4, a6], a3, a5, n] - 
    S2[SP[a1, a2], SP[a4, a6], a5, a3, n] + S2[SP[a1, a4], a6, a2, 
     SP[a3, a5], n] + S2[SP[a1, a4], a6, SP[a2, a3], a5, n] + 
    S2[SP[a1, a4], SP[a3, a6], a2, a5, n] + S2[a1, a2, a3, a5, SP[a4, a6], 
     n] + S2[a1, a2, a3, a6, SP[a4, a5], n] + S2[a1, a2, a3, SP[a4, a5], a6, 
     n] + S2[a1, a2, a3, SP[a4, a6], a5, n] + S2[a1, a2, a4, a5, SP[a3, a6], 
     n] + S2[a1, a2, a4, a6, SP[a3, a5], n] + S2[a1, a2, a4, SP[a3, a5], a6, 
     n] + S2[a1, a2, a4, SP[a3, a6], a5, n] + S2[a1, a2, a5, a3, SP[a4, a6], 
     n] + S2[a1, a2, a5, a4, SP[a3, a6], n] + S2[a1, a2, a5, SP[a3, a6], a4, 
     n] + S2[a1, a2, a5, SP[a4, a6], a3, n] + S2[a1, a2, a6, a3, SP[a4, a5], 
     n] + S2[a1, a2, a6, a4, SP[a3, a5], n] + S2[a1, a2, a6, SP[a3, a5], a4, 
     n] + S2[a1, a2, a6, SP[a4, a5], a3, n] + S2[a1, a2, SP[a3, a5], a4, a6, 
     n] + S2[a1, a2, SP[a3, a5], a6, a4, n] + S2[a1, a2, SP[a3, a6], a4, a5, 
     n] + S2[a1, a2, SP[a3, a6], a5, a4, n] + S2[a1, a2, SP[a4, a5], a3, a6, 
     n] + S2[a1, a2, SP[a4, a5], a6, a3, n] + S2[a1, a2, SP[a4, a6], a3, a5, 
     n] + S2[a1, a2, SP[a4, a6], a5, a3, n] + S2[a1, a3, a2, a5, SP[a4, a6], 
     n] + S2[a1, a3, a2, a6, SP[a4, a5], n] + S2[a1, a3, a2, SP[a4, a5], a6, 
     n] + S2[a1, a3, a2, SP[a4, a6], a5, n] + 
    S2[a6, n]*S2[a1, a3, a4, a5, a2, n] - 
    S2[a2, n]*S2[a1, a3, a4, a5, a6, n] - 
    S2[a2, n]*S2[a1, a3, a4, a6, a5, n] - S2[a1, a3, a4, a6, SP[a2, a5], n] - 
    S2[a1, a3, a4, SP[a2, a5], a6, n] - S2[a1, a3, a4, SP[a2, a6], a5, n] + 
    S2[a1, a3, a4, SP[a5, a6], a2, n] + S2[a6, n]*S2[a1, a3, a5, a2, a4, n] + 
    S2[a1, a3, a5, a2, SP[a4, a6], n] + S2[a6, n]*S2[a1, a3, a5, a4, a2, n] - 
    S2[a2, n]*S2[a1, a3, a5, a4, a6, n] - 
    S2[a2, n]*S2[a1, a3, a5, a6, a4, n] - S2[a1, a3, a5, a6, SP[a2, a4], n] - 
    S2[a1, a3, a5, SP[a2, a4], a6, n] + S2[a1, a3, a5, SP[a4, a6], a2, n] + 
    S2[a4, n]*S2[a1, a3, a6, a2, a5, n] + S2[a1, a3, a6, a2, SP[a4, a5], n] - 
    S2[a2, n]*S2[a1, a3, a6, a4, a5, n] - S2[a1, a3, a6, a4, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a3, a6, a5, a4, n] - S2[a1, a3, a6, a5, SP[a2, a4], n] - 
    S2[a1, a3, a6, SP[a2, a5], a4, n] - S2[a1, a3, SP[a2, a5], a4, a6, n] - 
    S2[a1, a3, SP[a2, a5], a6, a4, n] - S2[a1, a3, SP[a2, a6], a4, a5, n] - 
    S2[a1, a3, SP[a2, a6], a5, a4, n] + S2[a1, a3, SP[a4, a6], a2, a5, n] + 
    S2[a1, a3, SP[a4, a6], a5, a2, n] + S2[a1, a3, SP[a5, a6], a2, a4, n] + 
    S2[a1, a3, SP[a5, a6], a4, a2, n] + S2[a1, a4, a2, a5, SP[a3, a6], n] + 
    S2[a1, a4, a2, a6, SP[a3, a5], n] + S2[a1, a4, a2, SP[a3, a5], a6, n] + 
    S2[a1, a4, a2, SP[a3, a6], a5, n] + S2[a6, n]*S2[a1, a4, a3, a5, a2, n] - 
    S2[a2, n]*S2[a1, a4, a3, a5, a6, n] - 
    S2[a2, n]*S2[a1, a4, a3, a6, a5, n] - S2[a1, a4, a3, a6, SP[a2, a5], n] - 
    S2[a1, a4, a3, SP[a2, a5], a6, n] - S2[a1, a4, a3, SP[a2, a6], a5, n] + 
    S2[a1, a4, a3, SP[a5, a6], a2, n] + S2[a6, n]*S2[a1, a4, a5, a2, a3, n] + 
    S2[a1, a4, a5, a2, SP[a3, a6], n] + S2[a6, n]*S2[a1, a4, a5, a3, a2, n] - 
    S2[a2, n]*S2[a1, a4, a5, a3, a6, n] - 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] - S2[a1, a4, a5, a6, SP[a2, a3], n] - 
    S2[a1, a4, a5, SP[a2, a3], a6, n] + S2[a1, a4, a5, SP[a3, a6], a2, n] + 
    S2[a3, n]*S2[a1, a4, a6, a2, a5, n] - 
    S2[a2, n]*S2[a1, a4, a6, a3, a5, n] - S2[a1, a4, a6, a3, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a4, a6, a5, a3, n] - S2[a1, a4, a6, a5, SP[a2, a3], n] - 
    S2[a1, a4, a6, SP[a2, a3], a5, n] - S2[a1, a4, a6, SP[a2, a5], a3, n] - 
    S2[a1, a4, SP[a2, a5], a3, a6, n] - S2[a1, a4, SP[a2, a5], a6, a3, n] - 
    S2[a1, a4, SP[a2, a6], a3, a5, n] - S2[a1, a4, SP[a2, a6], a5, a3, n] + 
    S2[a1, a4, SP[a3, a6], a5, a2, n] + S2[a1, a4, SP[a5, a6], a2, a3, n] + 
    S2[a1, a4, SP[a5, a6], a3, a2, n] + S2[a6, n]*S2[a1, a5, a2, a3, a4, n] + 
    S2[a1, a5, a2, a3, SP[a4, a6], n] + S2[a6, n]*S2[a1, a5, a2, a4, a3, n] + 
    S2[a1, a5, a2, a4, SP[a3, a6], n] + S2[a1, a5, a2, SP[a3, a6], a4, n] + 
    S2[a1, a5, a2, SP[a4, a6], a3, n] + S2[a6, n]*S2[a1, a5, a3, a2, a4, n] + 
    S2[a1, a5, a3, a2, SP[a4, a6], n] + S2[a6, n]*S2[a1, a5, a3, a4, a2, n] - 
    S2[a2, n]*S2[a1, a5, a3, a4, a6, n] - 
    S2[a2, n]*S2[a1, a5, a3, a6, a4, n] - S2[a1, a5, a3, a6, SP[a2, a4], n] - 
    S2[a1, a5, a3, SP[a2, a4], a6, n] + S2[a1, a5, a3, SP[a4, a6], a2, n] + 
    S2[a6, n]*S2[a1, a5, a4, a2, a3, n] + S2[a1, a5, a4, a2, SP[a3, a6], n] + 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] - 
    S2[a2, n]*S2[a1, a5, a4, a3, a6, n] - 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] - S2[a1, a5, a4, a6, SP[a2, a3], n] - 
    S2[a1, a5, a4, SP[a2, a3], a6, n] + S2[a1, a5, a4, SP[a3, a6], a2, n] - 
    S2[a2, n]*S2[a1, a5, a6, a3, a4, n] - S2[a1, a5, a6, a3, SP[a2, a4], n] - 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] - S2[a1, a5, a6, a4, SP[a2, a3], n] - 
    S2[a1, a5, a6, SP[a2, a3], a4, n] - S2[a1, a5, a6, SP[a2, a4], a3, n] - 
    S2[a1, a5, SP[a2, a3], a4, a6, n] - S2[a1, a5, SP[a2, a3], a6, a4, n] - 
    S2[a1, a5, SP[a2, a4], a3, a6, n] - S2[a1, a5, SP[a2, a4], a6, a3, n] + 
    S2[a1, a5, SP[a3, a6], a2, a4, n] + S2[a1, a5, SP[a3, a6], a4, a2, n] + 
    S2[a1, a5, SP[a4, a6], a2, a3, n] + S2[a1, a5, SP[a4, a6], a3, a2, n] + 
    S2[a4, n]*S2[a1, a6, a2, a3, a5, n] + S2[a1, a6, a2, a3, SP[a4, a5], n] + 
    S2[a4, n]*S2[a1, a6, a2, a5, a3, n] + S2[a1, a6, a2, a5, SP[a3, a4], n] + 
    S2[a1, a6, a2, SP[a3, a4], a5, n] + S2[a1, a6, a2, SP[a4, a5], a3, n] + 
    S2[a4, n]*S2[a1, a6, a3, a2, a5, n] + S2[a1, a6, a3, a2, SP[a4, a5], n] - 
    S2[a2, n]*S2[a1, a6, a3, a4, a5, n] - S2[a1, a6, a3, a4, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a6, a3, a5, a4, n] - S2[a1, a6, a3, a5, SP[a2, a4], n] - 
    S2[a1, a6, a3, SP[a2, a5], a4, n] - S2[a2, n]*S2[a1, a6, a4, a3, a5, n] - 
    S2[a1, a6, a4, a3, SP[a2, a5], n] - S2[a2, n]*S2[a1, a6, a4, a5, a3, n] - 
    S2[a1, a6, a4, a5, SP[a2, a3], n] - S2[a1, a6, a4, SP[a2, a3], a5, n] - 
    S2[a1, a6, a4, SP[a2, a5], a3, n] - S2[a2, n]*S2[a1, a6, a5, a3, a4, n] - 
    S2[a1, a6, a5, a3, SP[a2, a4], n] - S2[a2, n]*S2[a1, a6, a5, a4, a3, n] - 
    S2[a1, a6, a5, a4, SP[a2, a3], n] - S2[a1, a6, a5, SP[a2, a3], a4, n] - 
    S2[a1, a6, a5, SP[a2, a4], a3, n] - S2[a1, a6, SP[a2, a3], a4, a5, n] - 
    S2[a1, a6, SP[a2, a3], a5, a4, n] - S2[a1, a6, SP[a2, a5], a3, a4, n] - 
    S2[a1, a6, SP[a2, a5], a4, a3, n] + S2[a1, a6, SP[a3, a4], a2, a5, n] - 
    S2[a1, SP[a2, a5], a3, a4, a6, n] - S2[a1, SP[a2, a5], a3, a6, a4, n] - 
    S2[a1, SP[a2, a5], a4, a3, a6, n] - S2[a1, SP[a2, a5], a4, a6, a3, n] - 
    S2[a1, SP[a2, a5], a6, a3, a4, n] - S2[a1, SP[a2, a5], a6, a4, a3, n] - 
    S2[a1, SP[a2, a6], a3, a4, a5, n] - S2[a1, SP[a2, a6], a3, a5, a4, n] - 
    S2[a1, SP[a2, a6], a4, a3, a5, n] - S2[a1, SP[a2, a6], a4, a5, a3, n] - 
    S2[a1, SP[a2, a6], a5, a3, a4, n] - S2[a1, SP[a2, a6], a5, a4, a3, n] + 
    S2[a1, SP[a3, a4], a6, a2, a5, n] + S2[a1, SP[a3, a6], a4, a5, a2, n] + 
    S2[a1, SP[a3, a6], a5, a2, a4, n] + S2[a1, SP[a3, a6], a5, a4, a2, n] + 
    S2[a1, SP[a4, a6], a2, a3, a5, n] + S2[a1, SP[a4, a6], a2, a5, a3, n] + 
    S2[a1, SP[a4, a6], a3, a2, a5, n] + S2[a1, SP[a4, a6], a3, a5, a2, n] + 
    S2[a1, SP[a4, a6], a5, a2, a3, n] + S2[a1, SP[a4, a6], a5, a3, a2, n] + 
    S2[a1, SP[a5, a6], a2, a3, a4, n] + S2[a1, SP[a5, a6], a2, a4, a3, n] + 
    S2[a1, SP[a5, a6], a3, a2, a4, n] + S2[a1, SP[a5, a6], a3, a4, a2, n] + 
    S2[a1, SP[a5, a6], a4, a2, a3, n] + S2[a1, SP[a5, a6], a4, a3, a2, n] + 
    S2[a2, a1, a3, a5, SP[a4, a6], n] + S2[a2, a1, a3, a6, SP[a4, a5], n] + 
    S2[a2, a1, a3, SP[a4, a5], a6, n] + S2[a2, a1, a3, SP[a4, a6], a5, n] + 
    S2[a2, a1, a4, a5, SP[a3, a6], n] + S2[a2, a1, a4, a6, SP[a3, a5], n] + 
    S2[a2, a1, a4, SP[a3, a5], a6, n] + S2[a2, a1, a4, SP[a3, a6], a5, n] + 
    S2[a2, a1, a5, a3, SP[a4, a6], n] + S2[a2, a1, a5, a4, SP[a3, a6], n] + 
    S2[a2, a1, a5, SP[a3, a6], a4, n] + S2[a2, a1, a5, SP[a4, a6], a3, n] + 
    S2[a2, a1, a6, a3, SP[a4, a5], n] + S2[a2, a1, a6, a4, SP[a3, a5], n] + 
    S2[a2, a1, a6, SP[a3, a5], a4, n] + S2[a2, a1, a6, SP[a4, a5], a3, n] + 
    S2[a2, a1, SP[a3, a5], a4, a6, n] + S2[a2, a1, SP[a3, a5], a6, a4, n] + 
    S2[a2, a1, SP[a3, a6], a4, a5, n] + S2[a2, a1, SP[a3, a6], a5, a4, n] + 
    S2[a2, a1, SP[a4, a5], a3, a6, n] + S2[a2, a1, SP[a4, a5], a6, a3, n] + 
    S2[a2, a1, SP[a4, a6], a3, a5, n] + S2[a2, a1, SP[a4, a6], a5, a3, n] - 
    S2[a6, n]*S2[a2, a5, a1, a3, a4, n] - 
    S2[a6, n]*S2[a2, a5, a1, a4, a3, n] - 
    S2[a4, n]*S2[a2, a6, a1, a3, a5, n] + S2[a2, a6, a1, a4, SP[a3, a5], n] - 
    S2[a4, n]*S2[a2, a6, a1, a5, a3, n] - S2[a2, a6, a1, a5, SP[a3, a4], n] - 
    S2[a2, a6, a1, SP[a3, a4], a5, n] + S2[a2, a6, a1, SP[a3, a5], a4, n] - 
    S2[a2, a6, SP[a1, a4], a3, a5, n] - S2[a2, a6, SP[a1, a4], a5, a3, n] + 
    S2[a2, a6, SP[a1, a5], a3, a4, n] + S2[a2, a6, SP[a1, a5], a4, a3, n] + 
    S2[a2, SP[a1, a5], a3, a4, a6, n] + S2[a2, SP[a1, a5], a3, a6, a4, n] + 
    S2[a2, SP[a1, a5], a4, a3, a6, n] + S2[a2, SP[a1, a5], a4, a6, a3, n] + 
    S2[a2, SP[a1, a5], a6, a3, a4, n] + S2[a2, SP[a1, a5], a6, a4, a3, n] + 
    S2[a2, SP[a1, a6], a3, a4, a5, n] + S2[a2, SP[a1, a6], a3, a5, a4, n] + 
    S2[a2, SP[a1, a6], a4, a3, a5, n] + S2[a2, SP[a1, a6], a4, a5, a3, n] + 
    S2[a2, SP[a1, a6], a5, a3, a4, n] + S2[a2, SP[a1, a6], a5, a4, a3, n] - 
    S2[a2, SP[a4, a6], a1, a3, a5, n] - S2[a2, SP[a4, a6], a1, a5, a3, n] - 
    S2[a2, SP[a5, a6], a1, a3, a4, n] - S2[a2, SP[a5, a6], a1, a4, a3, n] - 
    S2[a4, a1, a6, a2, SP[a3, a5], n] - S2[a4, a1, a6, SP[a2, a3], a5, n] - 
    S2[a4, a1, SP[a3, a6], a2, a5, n] - S2[a4, a6, a1, a2, SP[a3, a5], n] + 
    S2[a2, n]*S2[a4, a6, a1, a3, a5, n] + S2[a4, a6, a1, a3, SP[a2, a5], n] + 
    S2[a2, n]*S2[a4, a6, a1, a5, a3, n] + S2[a4, a6, a1, a5, SP[a2, a3], n] + 
    S2[a4, a6, a1, SP[a2, a5], a3, n] - S2[a4, a6, a2, a1, SP[a3, a5], n] - 
    S2[a4, a6, a2, SP[a1, a5], a3, n] - S2[a4, SP[a1, a6], a2, a3, a5, n] - 
    S2[a4, SP[a1, a6], a2, a5, a3, n] - S2[a4, SP[a1, a6], a3, a2, a5, n] + 
    S2[a4, SP[a2, a6], a1, a3, a5, n] + S2[a4, SP[a2, a6], a1, a5, a3, n] - 
    S2[a4, n]*S2[a6, a1, a3, a5, a2, n] - S2[a6, a1, a3, a5, SP[a2, a4], n] - 
    S2[a6, a1, a3, SP[a4, a5], a2, n] - S2[a4, n]*S2[a6, a1, a5, a2, a3, n] - 
    S2[a6, a1, a5, a2, SP[a3, a4], n] - S2[a4, n]*S2[a6, a1, a5, a3, a2, n] - 
    S2[a6, a1, a5, a3, SP[a2, a4], n] - S2[a6, a1, a5, SP[a2, a4], a3, n] - 
    S2[a6, a1, a5, SP[a3, a4], a2, n] - S2[a6, a1, SP[a3, a4], a5, a2, n] - 
    S2[a6, a1, SP[a4, a5], a2, a3, n] - S2[a6, a1, SP[a4, a5], a3, a2, n] + 
    S2[a4, n]*S2[a6, a2, a5, a1, a3, n] + S2[a6, a2, a5, a1, SP[a3, a4], n] + 
    S2[a6, a2, a5, SP[a1, a4], a3, n] + S2[a6, a2, SP[a4, a5], a1, a3, n] + 
    S2[a2, n]*S2[a6, a4, a1, a3, a5, n] + S2[a6, a4, a1, a3, SP[a2, a5], n] + 
    S2[a2, n]*S2[a6, a4, a1, a5, a3, n] + S2[a6, a4, a1, a5, SP[a2, a3], n] + 
    S2[a6, a4, a1, SP[a2, a3], a5, n] + S2[a6, a4, a1, SP[a2, a5], a3, n] + 
    S2[a6, a4, SP[a1, a2], a3, a5, n] + S2[a6, a4, SP[a1, a2], a5, a3, n] - 
    S2[a6, SP[a1, a4], a3, a5, a2, n] - S2[a6, SP[a1, a4], a5, a2, a3, n] - 
    S2[a6, SP[a1, a4], a5, a3, a2, n] + S2[a6, SP[a2, a4], a1, a3, a5, n] + 
    S2[a6, SP[a2, a4], a1, a5, a3, n] + S2[a6, SP[a2, a4], a5, a1, a3, n] + 
    S2[SP[a1, a3], a4, a6, a2, a5, n] + S2[SP[a1, a6], a3, a4, a5, a2, n] + 
    S2[SP[a1, a6], a3, a5, a2, a4, n] + S2[SP[a1, a6], a3, a5, a4, a2, n] + 
    S2[SP[a1, a6], a4, a3, a5, a2, n] + S2[SP[a1, a6], a4, a5, a2, a3, n] + 
    S2[SP[a1, a6], a4, a5, a3, a2, n] + S2[SP[a1, a6], a5, a2, a3, a4, n] + 
    S2[SP[a1, a6], a5, a2, a4, a3, n] + S2[SP[a1, a6], a5, a3, a2, a4, n] + 
    S2[SP[a1, a6], a5, a3, a4, a2, n] + S2[SP[a1, a6], a5, a4, a2, a3, n] + 
    S2[SP[a1, a6], a5, a4, a3, a2, n] + S2[SP[a2, a6], a4, a1, a3, a5, n] + 
    S2[SP[a2, a6], a4, a1, a5, a3, n] - S2[SP[a2, a6], a5, a1, a3, a4, n] - 
    S2[SP[a2, a6], a5, a1, a4, a3, n] - S2[SP[a4, a6], a1, a3, a5, a2, n] - 
    S2[SP[a4, a6], a1, a5, a2, a3, n] - S2[SP[a4, a6], a1, a5, a3, a2, n] + 
    S2[SP[a4, a6], a2, a5, a1, a3, n] - S2[a6, a2, a4, a1, a3, a5, n] - 
    S2[a6, a2, a4, a1, a5, a3, n] - S2[a6, a2, a4, a5, a1, a3, n] - 
    S2[a6, a2, a5, a4, a1, a3, n] - S2[a6, a4, a1, a2, a3, a5, n] - 
    S2[a6, a4, a1, a2, a5, a3, n] - S2[a6, a4, a1, a3, a2, a5, n] - 
    S2[a6, a4, a2, a1, a3, a5, n] - S2[a6, a4, a2, a1, a5, a3, n] - 
    S2[a6, a4, a2, a5, a1, a3, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a3_, a1_, a4_, a6_, a5_, a2_, n_] :> 
  -(S2[a1, a3, a4, n]*S2[a2, a5, a6, n]) - S2[a1, a4, a3, n]*
     S2[a2, a5, a6, n] - S2[SP[a1, a2], SP[a3, a5], SP[a4, a6], n] - 
    S2[SP[a1, a2], SP[a4, a5], SP[a3, a6], n] + S2[a1, a2, SP[a3, a5], 
     SP[a4, a6], n] + S2[a1, a2, SP[a4, a5], SP[a3, a6], n] + 
    S2[a1, SP[a2, a3], a5, SP[a4, a6], n] + S2[a1, SP[a2, a3], SP[a4, a5], 
     a6, n] + S2[a1, SP[a2, a4], a5, SP[a3, a6], n] + 
    S2[a1, SP[a2, a4], SP[a3, a5], a6, n] + S2[a2, a1, SP[a3, a5], 
     SP[a4, a6], n] + S2[a2, a1, SP[a4, a5], SP[a3, a6], n] - 
    S2[a1, a3, n]*S2[a2, a6, a4, a5, n] - S2[a1, a3, n]*
     S2[a2, a6, a5, a4, n] + S2[a2, a6, SP[a1, a4], SP[a3, a5], n] + 
    S2[a2, a6, SP[a1, a5], SP[a3, a4], n] + S2[a2, SP[a1, a5], a3, 
     SP[a4, a6], n] + S2[a2, SP[a1, a5], a4, SP[a3, a6], n] + 
    S2[a2, SP[a1, a5], SP[a3, a6], a4, n] + S2[a2, SP[a1, a5], SP[a4, a6], 
     a3, n] + S2[a2, SP[a1, a6], a4, SP[a3, a5], n] + 
    S2[a2, SP[a1, a6], a5, SP[a3, a4], n] + S2[a2, SP[a1, a6], SP[a3, a4], 
     a5, n] + S2[a2, SP[a1, a6], SP[a3, a5], a4, n] + 
    S2[a1, a3, n]*S2[a4, a6, a2, a5, n] - S2[a4, a6, SP[a1, a2], SP[a3, a5], 
     n] - S2[a4, SP[a1, a6], a2, SP[a3, a5], n] - 
    S2[a4, SP[a1, a6], SP[a2, a3], a5, n] + S2[SP[a1, a2], a3, a5, 
     SP[a4, a6], n] + S2[SP[a1, a2], a3, SP[a4, a5], a6, n] + 
    S2[SP[a1, a2], a4, a5, SP[a3, a6], n] + S2[SP[a1, a2], a4, SP[a3, a5], 
     a6, n] + S2[SP[a1, a2], a5, a3, SP[a4, a6], n] + 
    S2[SP[a1, a2], a5, a4, SP[a3, a6], n] + S2[SP[a1, a2], a5, SP[a3, a6], 
     a4, n] + S2[SP[a1, a2], a5, SP[a4, a6], a3, n] + 
    S2[SP[a1, a2], a6, a4, SP[a3, a5], n] + S2[SP[a1, a2], a6, a5, 
     SP[a3, a4], n] + S2[SP[a1, a2], a6, SP[a3, a4], a5, n] + 
    S2[SP[a1, a2], a6, SP[a3, a5], a4, n] + S2[SP[a1, a2], SP[a3, a5], a4, 
     a6, n] + S2[SP[a1, a2], SP[a3, a5], a6, a4, n] + 
    S2[SP[a1, a2], SP[a3, a6], a4, a5, n] + S2[SP[a1, a2], SP[a3, a6], a5, 
     a4, n] + S2[SP[a1, a2], SP[a4, a5], a3, a6, n] + 
    S2[SP[a1, a2], SP[a4, a5], a6, a3, n] - S2[SP[a1, a4], a6, a2, 
     SP[a3, a5], n] - S2[SP[a1, a4], a6, SP[a2, a3], a5, n] - 
    S2[SP[a1, a4], SP[a3, a6], a2, a5, n] - S2[a1, a2, a3, a5, SP[a4, a6], 
     n] - S2[a1, a2, a3, SP[a4, a5], a6, n] - S2[a1, a2, a4, a5, SP[a3, a6], 
     n] - S2[a1, a2, a4, SP[a3, a5], a6, n] - S2[a1, a2, a5, a3, SP[a4, a6], 
     n] - S2[a1, a2, a5, a4, SP[a3, a6], n] - S2[a1, a2, a5, SP[a3, a6], a4, 
     n] - S2[a1, a2, a5, SP[a4, a6], a3, n] - S2[a1, a2, a6, a4, SP[a3, a5], 
     n] - S2[a1, a2, a6, a5, SP[a3, a4], n] - S2[a1, a2, a6, SP[a3, a4], a5, 
     n] - S2[a1, a2, a6, SP[a3, a5], a4, n] - S2[a1, a2, SP[a3, a5], a4, a6, 
     n] - S2[a1, a2, SP[a3, a5], a6, a4, n] - S2[a1, a2, SP[a3, a6], a4, a5, 
     n] - S2[a1, a2, SP[a3, a6], a5, a4, n] - S2[a1, a2, SP[a4, a5], a3, a6, 
     n] - S2[a1, a2, SP[a4, a5], a6, a3, n] - S2[a1, a3, a2, a5, SP[a4, a6], 
     n] - S2[a1, a3, a2, SP[a4, a5], a6, n] - 
    S2[a6, n]*S2[a1, a3, a4, a5, a2, n] + 
    S2[a2, n]*S2[a1, a3, a4, a5, a6, n] + S2[a1, a3, a4, SP[a2, a5], a6, n] - 
    S2[a1, a3, a4, SP[a5, a6], a2, n] - S2[a6, n]*S2[a1, a3, a5, a2, a4, n] - 
    S2[a1, a3, a5, a2, SP[a4, a6], n] - S2[a6, n]*S2[a1, a3, a5, a4, a2, n] + 
    S2[a2, n]*S2[a1, a3, a5, a4, a6, n] + 
    S2[a2, n]*S2[a1, a3, a5, a6, a4, n] + S2[a1, a3, a5, a6, SP[a2, a4], n] + 
    S2[a1, a3, a5, SP[a2, a4], a6, n] - S2[a1, a3, a5, SP[a4, a6], a2, n] - 
    S2[a4, n]*S2[a1, a3, a6, a2, a5, n] - S2[a1, a3, a6, a2, SP[a4, a5], n] + 
    S2[a2, n]*S2[a1, a3, a6, a4, a5, n] + S2[a1, a3, a6, a4, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a3, a6, a5, a4, n] + S2[a1, a3, a6, a5, SP[a2, a4], n] + 
    S2[a1, a3, a6, SP[a2, a5], a4, n] + S2[a1, a3, SP[a2, a5], a4, a6, n] + 
    S2[a1, a3, SP[a2, a5], a6, a4, n] + S2[a1, a3, SP[a2, a6], a4, a5, n] + 
    S2[a1, a3, SP[a2, a6], a5, a4, n] - S2[a1, a3, SP[a4, a6], a2, a5, n] - 
    S2[a1, a3, SP[a4, a6], a5, a2, n] - S2[a1, a3, SP[a5, a6], a2, a4, n] - 
    S2[a1, a3, SP[a5, a6], a4, a2, n] - S2[a1, a4, a2, a5, SP[a3, a6], n] - 
    S2[a1, a4, a2, SP[a3, a5], a6, n] - S2[a6, n]*S2[a1, a4, a3, a5, a2, n] + 
    S2[a2, n]*S2[a1, a4, a3, a5, a6, n] + S2[a1, a4, a3, SP[a2, a5], a6, n] - 
    S2[a1, a4, a3, SP[a5, a6], a2, n] - S2[a6, n]*S2[a1, a4, a5, a2, a3, n] - 
    S2[a1, a4, a5, a2, SP[a3, a6], n] - S2[a6, n]*S2[a1, a4, a5, a3, a2, n] + 
    S2[a2, n]*S2[a1, a4, a5, a3, a6, n] + 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] + S2[a1, a4, a5, a6, SP[a2, a3], n] + 
    S2[a1, a4, a5, SP[a2, a3], a6, n] - S2[a1, a4, a5, SP[a3, a6], a2, n] + 
    S2[a1, a4, a6, a2, SP[a3, a5], n] + S2[a3, n]*S2[a1, a4, a6, a5, a2, n] + 
    S2[a1, a4, a6, a5, SP[a2, a3], n] + S2[a1, a4, a6, SP[a2, a3], a5, n] + 
    S2[a1, a4, a6, SP[a3, a5], a2, n] + S2[a1, a4, SP[a2, a5], a3, a6, n] + 
    S2[a1, a4, SP[a2, a5], a6, a3, n] + S2[a1, a4, SP[a3, a6], a2, a5, n] - 
    S2[a1, a4, SP[a5, a6], a2, a3, n] - S2[a1, a4, SP[a5, a6], a3, a2, n] - 
    S2[a6, n]*S2[a1, a5, a2, a3, a4, n] - S2[a1, a5, a2, a3, SP[a4, a6], n] - 
    S2[a6, n]*S2[a1, a5, a2, a4, a3, n] - S2[a1, a5, a2, a4, SP[a3, a6], n] - 
    S2[a1, a5, a2, SP[a3, a6], a4, n] - S2[a1, a5, a2, SP[a4, a6], a3, n] - 
    S2[a6, n]*S2[a1, a5, a3, a2, a4, n] - S2[a1, a5, a3, a2, SP[a4, a6], n] - 
    S2[a6, n]*S2[a1, a5, a3, a4, a2, n] + 
    S2[a2, n]*S2[a1, a5, a3, a4, a6, n] + 
    S2[a2, n]*S2[a1, a5, a3, a6, a4, n] + S2[a1, a5, a3, a6, SP[a2, a4], n] + 
    S2[a1, a5, a3, SP[a2, a4], a6, n] - S2[a1, a5, a3, SP[a4, a6], a2, n] - 
    S2[a6, n]*S2[a1, a5, a4, a2, a3, n] - S2[a1, a5, a4, a2, SP[a3, a6], n] - 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] + 
    S2[a2, n]*S2[a1, a5, a4, a3, a6, n] + 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] + S2[a1, a5, a4, a6, SP[a2, a3], n] + 
    S2[a1, a5, a4, SP[a2, a3], a6, n] - S2[a1, a5, a4, SP[a3, a6], a2, n] + 
    S2[a2, n]*S2[a1, a5, a6, a3, a4, n] + S2[a1, a5, a6, a3, SP[a2, a4], n] + 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] + S2[a1, a5, a6, a4, SP[a2, a3], n] + 
    S2[a1, a5, a6, SP[a2, a3], a4, n] + S2[a1, a5, a6, SP[a2, a4], a3, n] + 
    S2[a1, a5, SP[a2, a3], a4, a6, n] + S2[a1, a5, SP[a2, a3], a6, a4, n] + 
    S2[a1, a5, SP[a2, a4], a3, a6, n] + S2[a1, a5, SP[a2, a4], a6, a3, n] - 
    S2[a1, a5, SP[a3, a6], a2, a4, n] - S2[a1, a5, SP[a3, a6], a4, a2, n] - 
    S2[a1, a5, SP[a4, a6], a2, a3, n] - S2[a1, a5, SP[a4, a6], a3, a2, n] - 
    S2[a4, n]*S2[a1, a6, a2, a3, a5, n] - S2[a1, a6, a2, a3, SP[a4, a5], n] - 
    S2[a4, n]*S2[a1, a6, a2, a5, a3, n] - S2[a1, a6, a2, a5, SP[a3, a4], n] - 
    S2[a1, a6, a2, SP[a3, a4], a5, n] - S2[a1, a6, a2, SP[a4, a5], a3, n] - 
    S2[a4, n]*S2[a1, a6, a3, a2, a5, n] - S2[a1, a6, a3, a2, SP[a4, a5], n] + 
    S2[a2, n]*S2[a1, a6, a3, a4, a5, n] + S2[a1, a6, a3, a4, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a6, a3, a5, a4, n] + S2[a1, a6, a3, a5, SP[a2, a4], n] + 
    S2[a1, a6, a3, SP[a2, a5], a4, n] + S2[a2, n]*S2[a1, a6, a4, a3, a5, n] + 
    S2[a1, a6, a4, a3, SP[a2, a5], n] + S2[a2, n]*S2[a1, a6, a4, a5, a3, n] + 
    S2[a1, a6, a4, a5, SP[a2, a3], n] + S2[a1, a6, a4, SP[a2, a3], a5, n] + 
    S2[a1, a6, a4, SP[a2, a5], a3, n] + S2[a2, n]*S2[a1, a6, a5, a3, a4, n] + 
    S2[a1, a6, a5, a3, SP[a2, a4], n] + S2[a2, n]*S2[a1, a6, a5, a4, a3, n] + 
    S2[a1, a6, a5, a4, SP[a2, a3], n] + S2[a1, a6, a5, SP[a2, a3], a4, n] + 
    S2[a1, a6, a5, SP[a2, a4], a3, n] + S2[a1, a6, SP[a2, a3], a4, a5, n] + 
    S2[a1, a6, SP[a2, a3], a5, a4, n] + S2[a1, a6, SP[a2, a5], a3, a4, n] + 
    S2[a1, a6, SP[a2, a5], a4, a3, n] - S2[a1, a6, SP[a3, a4], a2, a5, n] + 
    S2[a1, SP[a2, a5], a3, a4, a6, n] + S2[a1, SP[a2, a5], a3, a6, a4, n] + 
    S2[a1, SP[a2, a5], a4, a3, a6, n] + S2[a1, SP[a2, a5], a4, a6, a3, n] + 
    S2[a1, SP[a2, a5], a6, a3, a4, n] + S2[a1, SP[a2, a5], a6, a4, a3, n] + 
    S2[a1, SP[a2, a6], a3, a4, a5, n] + S2[a1, SP[a2, a6], a3, a5, a4, n] + 
    S2[a1, SP[a2, a6], a4, a3, a5, n] + S2[a1, SP[a2, a6], a4, a5, a3, n] + 
    S2[a1, SP[a2, a6], a5, a3, a4, n] + S2[a1, SP[a2, a6], a5, a4, a3, n] + 
    S2[a1, SP[a3, a4], a6, a5, a2, n] - S2[a1, SP[a3, a6], a4, a5, a2, n] - 
    S2[a1, SP[a3, a6], a5, a2, a4, n] - S2[a1, SP[a3, a6], a5, a4, a2, n] - 
    S2[a1, SP[a4, a6], a2, a3, a5, n] - S2[a1, SP[a4, a6], a2, a5, a3, n] - 
    S2[a1, SP[a4, a6], a3, a2, a5, n] - S2[a1, SP[a4, a6], a3, a5, a2, n] - 
    S2[a1, SP[a4, a6], a5, a2, a3, n] - S2[a1, SP[a4, a6], a5, a3, a2, n] - 
    S2[a1, SP[a5, a6], a2, a3, a4, n] - S2[a1, SP[a5, a6], a2, a4, a3, n] - 
    S2[a1, SP[a5, a6], a3, a2, a4, n] - S2[a1, SP[a5, a6], a3, a4, a2, n] - 
    S2[a1, SP[a5, a6], a4, a2, a3, n] - S2[a1, SP[a5, a6], a4, a3, a2, n] - 
    S2[a2, a1, a3, a5, SP[a4, a6], n] - S2[a2, a1, a3, SP[a4, a5], a6, n] - 
    S2[a2, a1, a4, a5, SP[a3, a6], n] - S2[a2, a1, a4, SP[a3, a5], a6, n] - 
    S2[a2, a1, a5, a3, SP[a4, a6], n] - S2[a2, a1, a5, a4, SP[a3, a6], n] - 
    S2[a2, a1, a5, SP[a3, a6], a4, n] - S2[a2, a1, a5, SP[a4, a6], a3, n] - 
    S2[a2, a1, a6, a4, SP[a3, a5], n] - S2[a2, a1, a6, a5, SP[a3, a4], n] - 
    S2[a2, a1, a6, SP[a3, a4], a5, n] - S2[a2, a1, a6, SP[a3, a5], a4, n] - 
    S2[a2, a1, SP[a3, a5], a4, a6, n] - S2[a2, a1, SP[a3, a5], a6, a4, n] - 
    S2[a2, a1, SP[a3, a6], a4, a5, n] - S2[a2, a1, SP[a3, a6], a5, a4, n] - 
    S2[a2, a1, SP[a4, a5], a3, a6, n] - S2[a2, a1, SP[a4, a5], a6, a3, n] + 
    S2[a6, n]*S2[a2, a5, a1, a3, a4, n] + 
    S2[a6, n]*S2[a2, a5, a1, a4, a3, n] + 
    S2[a4, n]*S2[a2, a6, a1, a3, a5, n] + S2[a2, a6, a1, a3, SP[a4, a5], n] - 
    S2[a2, a6, a1, a4, SP[a3, a5], n] + S2[a4, n]*S2[a2, a6, a1, a5, a3, n] - 
    S2[a2, a6, a1, SP[a3, a5], a4, n] + S2[a2, a6, a1, SP[a4, a5], a3, n] - 
    S2[a2, a6, a4, a1, SP[a3, a5], n] - S2[a2, a6, a4, SP[a1, a5], a3, n] - 
    S2[a2, a6, a5, a1, SP[a3, a4], n] - S2[a2, a6, a5, SP[a1, a4], a3, n] - 
    S2[a2, a6, SP[a1, a5], a3, a4, n] - S2[a2, a6, SP[a1, a5], a4, a3, n] - 
    S2[a2, SP[a1, a5], a3, a4, a6, n] - S2[a2, SP[a1, a5], a3, a6, a4, n] - 
    S2[a2, SP[a1, a5], a4, a3, a6, n] - S2[a2, SP[a1, a5], a4, a6, a3, n] - 
    S2[a2, SP[a1, a5], a6, a3, a4, n] - S2[a2, SP[a1, a5], a6, a4, a3, n] - 
    S2[a2, SP[a1, a6], a3, a4, a5, n] - S2[a2, SP[a1, a6], a3, a5, a4, n] - 
    S2[a2, SP[a1, a6], a4, a3, a5, n] - S2[a2, SP[a1, a6], a4, a5, a3, n] - 
    S2[a2, SP[a1, a6], a5, a3, a4, n] - S2[a2, SP[a1, a6], a5, a4, a3, n] + 
    S2[a2, SP[a4, a6], a1, a3, a5, n] + S2[a2, SP[a4, a6], a1, a5, a3, n] + 
    S2[a2, SP[a5, a6], a1, a3, a4, n] + S2[a2, SP[a5, a6], a1, a4, a3, n] + 
    S2[a4, a1, a6, a2, SP[a3, a5], n] + S2[a4, a1, a6, SP[a2, a3], a5, n] + 
    S2[a4, a1, SP[a3, a6], a2, a5, n] + S2[a4, a6, a1, a2, SP[a3, a5], n] - 
    S2[a2, n]*S2[a4, a6, a1, a3, a5, n] - S2[a4, a6, a1, a3, SP[a2, a5], n] - 
    S2[a2, n]*S2[a4, a6, a1, a5, a3, n] - S2[a4, a6, a1, a5, SP[a2, a3], n] - 
    S2[a4, a6, a1, SP[a2, a5], a3, n] + S2[a4, a6, a2, a1, SP[a3, a5], n] + 
    S2[a4, a6, a2, SP[a1, a5], a3, n] + S2[a4, SP[a1, a6], a2, a3, a5, n] + 
    S2[a4, SP[a1, a6], a2, a5, a3, n] + S2[a4, SP[a1, a6], a3, a2, a5, n] - 
    S2[a4, SP[a2, a6], a1, a3, a5, n] - S2[a4, SP[a2, a6], a1, a5, a3, n] + 
    S2[a4, n]*S2[a6, a1, a3, a5, a2, n] + S2[a6, a1, a3, a5, SP[a2, a4], n] + 
    S2[a6, a1, a3, SP[a4, a5], a2, n] + S2[a4, n]*S2[a6, a1, a5, a2, a3, n] + 
    S2[a6, a1, a5, a2, SP[a3, a4], n] + S2[a4, n]*S2[a6, a1, a5, a3, a2, n] + 
    S2[a6, a1, a5, a3, SP[a2, a4], n] + S2[a6, a1, a5, SP[a2, a4], a3, n] + 
    S2[a6, a1, a5, SP[a3, a4], a2, n] + S2[a6, a1, SP[a3, a4], a5, a2, n] + 
    S2[a6, a1, SP[a4, a5], a2, a3, n] + S2[a6, a1, SP[a4, a5], a3, a2, n] - 
    S2[a4, n]*S2[a6, a2, a5, a1, a3, n] - S2[a6, a2, a5, a1, SP[a3, a4], n] - 
    S2[a6, a2, a5, SP[a1, a4], a3, n] - S2[a6, a2, SP[a4, a5], a1, a3, n] + 
    S2[a2, n]*S2[a6, a4, a5, a1, a3, n] + S2[a6, a4, a5, a1, SP[a2, a3], n] + 
    S2[a6, a4, a5, SP[a1, a2], a3, n] + S2[a6, a4, SP[a2, a5], a1, a3, n] + 
    S2[a2, n]*S2[a6, a5, a4, a1, a3, n] + S2[a6, a5, a4, a1, SP[a2, a3], n] + 
    S2[a6, a5, a4, SP[a1, a2], a3, n] + S2[a6, a5, SP[a2, a4], a1, a3, n] + 
    S2[a6, SP[a1, a4], a3, a5, a2, n] + S2[a6, SP[a1, a4], a5, a2, a3, n] + 
    S2[a6, SP[a1, a4], a5, a3, a2, n] + S2[a6, SP[a2, a5], a4, a1, a3, n] + 
    S2[SP[a1, a3], a4, a6, a5, a2, n] - S2[SP[a1, a6], a3, a4, a5, a2, n] - 
    S2[SP[a1, a6], a3, a5, a2, a4, n] - S2[SP[a1, a6], a3, a5, a4, a2, n] - 
    S2[SP[a1, a6], a4, a3, a5, a2, n] - S2[SP[a1, a6], a4, a5, a2, a3, n] - 
    S2[SP[a1, a6], a4, a5, a3, a2, n] - S2[SP[a1, a6], a5, a2, a3, a4, n] - 
    S2[SP[a1, a6], a5, a2, a4, a3, n] - S2[SP[a1, a6], a5, a3, a2, a4, n] - 
    S2[SP[a1, a6], a5, a3, a4, a2, n] - S2[SP[a1, a6], a5, a4, a2, a3, n] - 
    S2[SP[a1, a6], a5, a4, a3, a2, n] + S2[SP[a2, a6], a4, a5, a1, a3, n] + 
    S2[SP[a2, a6], a5, a1, a3, a4, n] + S2[SP[a2, a6], a5, a1, a4, a3, n] + 
    S2[SP[a2, a6], a5, a4, a1, a3, n] + S2[SP[a4, a6], a1, a3, a5, a2, n] + 
    S2[SP[a4, a6], a1, a5, a2, a3, n] + S2[SP[a4, a6], a1, a5, a3, a2, n] - 
    S2[SP[a4, a6], a2, a5, a1, a3, n] - S2[a6, a4, a1, a3, a5, a2, n] - 
    S2[a6, a4, a1, a5, a2, a3, n] - S2[a6, a4, a1, a5, a3, a2, n] - 
    S2[a6, a4, a5, a1, a2, a3, n] - S2[a6, a4, a5, a1, a3, a2, n] - 
    S2[a6, a4, a5, a2, a1, a3, n] - S2[a6, a5, a2, a4, a1, a3, n] - 
    S2[a6, a5, a4, a1, a2, a3, n] - S2[a6, a5, a4, a1, a3, a2, n] - 
    S2[a6, a5, a4, a2, a1, a3, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a3_, a1_, a5_, a2_, a4_, a6_, n_] :> 
  -(S2[a1, a3, a5, n]*S2[a2, a4, a6, n]) - S2[a1, a5, a3, n]*
     S2[a2, a4, a6, n] - S2[SP[a1, a2], SP[a3, a4], SP[a5, a6], n] - 
    S2[SP[a1, a2], SP[a4, a5], SP[a3, a6], n] + S2[a1, a2, SP[a3, a4], 
     SP[a5, a6], n] + S2[a1, a2, SP[a4, a5], SP[a3, a6], n] - 
    S2[a4, a6, n]*S2[a1, a3, a5, a2, n] + S2[a1, a3, SP[a4, a5], SP[a2, a6], 
     n] - S2[a4, a6, n]*S2[a1, a5, a2, a3, n] - 
    S2[a4, a6, n]*S2[a1, a5, a3, a2, n] + S2[a1, a5, SP[a2, a4], SP[a3, a6], 
     n] + S2[a1, a5, SP[a3, a4], SP[a2, a6], n] + S2[a1, SP[a2, a3], a4, 
     SP[a5, a6], n] + S2[a1, SP[a2, a3], SP[a4, a5], a6, n] + 
    S2[a1, SP[a2, a5], a4, SP[a3, a6], n] + S2[a1, SP[a2, a5], SP[a3, a4], 
     a6, n] + S2[a1, SP[a3, a4], a5, SP[a2, a6], n] + 
    S2[a1, SP[a3, a4], SP[a5, a6], a2, n] + S2[a1, SP[a4, a5], a2, 
     SP[a3, a6], n] + S2[a1, SP[a4, a5], a3, SP[a2, a6], n] + 
    S2[a1, SP[a4, a5], SP[a2, a6], a3, n] + S2[a1, SP[a4, a5], SP[a3, a6], 
     a2, n] + S2[a2, a1, SP[a3, a4], SP[a5, a6], n] + 
    S2[a2, a1, SP[a4, a5], SP[a3, a6], n] + S2[a1, a3, n]*
     S2[a2, a4, a5, a6, n] + S2[a1, a3, n]*S2[a2, a4, a6, a5, n] - 
    S2[a2, a4, SP[a1, a5], SP[a3, a6], n] - S2[a2, a4, SP[a1, a6], 
     SP[a3, a5], n] + S2[a1, a3, n]*S2[a2, a5, a4, a6, n] + 
    S2[a1, a3, n]*S2[a2, a5, a6, a4, n] - S2[a2, a5, SP[a1, a4], SP[a3, a6], 
     n] - S2[a2, a5, SP[a1, a6], SP[a3, a4], n] + 
    S2[a1, a3, n]*S2[a2, a6, a4, a5, n] + S2[a1, a3, n]*
     S2[a2, a6, a5, a4, n] - S2[a2, a6, SP[a1, a4], SP[a3, a5], n] - 
    S2[a2, a6, SP[a1, a5], SP[a3, a4], n] + S2[a2, SP[a1, a4], a3, 
     SP[a5, a6], n] - S2[a2, SP[a1, a4], a6, SP[a3, a5], n] - 
    S2[a2, SP[a1, a4], SP[a3, a5], a6, n] + S2[a2, SP[a1, a4], SP[a5, a6], 
     a3, n] - S2[a2, SP[a1, a5], a4, SP[a3, a6], n] - 
    S2[a2, SP[a1, a5], a6, SP[a3, a4], n] - S2[a2, SP[a1, a5], SP[a3, a4], 
     a6, n] - S2[a2, SP[a1, a5], SP[a3, a6], a4, n] - 
    S2[a2, SP[a1, a6], a4, SP[a3, a5], n] - S2[a2, SP[a1, a6], a5, 
     SP[a3, a4], n] - S2[a2, SP[a1, a6], SP[a3, a4], a5, n] - 
    S2[a2, SP[a1, a6], SP[a3, a5], a4, n] - S2[a1, a3, n]*
     S2[a4, a6, a2, a5, n] + S2[a4, a6, SP[a1, a2], SP[a3, a5], n] + 
    S2[a4, SP[a1, a6], a2, SP[a3, a5], n] + S2[a4, SP[a1, a6], SP[a2, a3], 
     a5, n] + S2[SP[a1, a2], a3, a4, SP[a5, a6], n] + 
    S2[SP[a1, a2], a3, SP[a4, a5], a6, n] + S2[SP[a1, a2], a4, a3, 
     SP[a5, a6], n] - S2[SP[a1, a2], a4, a6, SP[a3, a5], n] - 
    S2[SP[a1, a2], a4, SP[a3, a5], a6, n] + S2[SP[a1, a2], a4, SP[a5, a6], 
     a3, n] - S2[SP[a1, a2], a5, a6, SP[a3, a4], n] - 
    S2[SP[a1, a2], a5, SP[a3, a6], a4, n] - S2[SP[a1, a2], a6, a4, 
     SP[a3, a5], n] - S2[SP[a1, a2], a6, a5, SP[a3, a4], n] - 
    S2[SP[a1, a2], a6, SP[a3, a4], a5, n] - S2[SP[a1, a2], a6, SP[a3, a5], 
     a4, n] - S2[SP[a1, a2], SP[a3, a5], a4, a6, n] - 
    S2[SP[a1, a2], SP[a3, a5], a6, a4, n] - S2[SP[a1, a2], SP[a3, a6], a4, 
     a5, n] - S2[SP[a1, a2], SP[a3, a6], a5, a4, n] + 
    S2[SP[a1, a2], SP[a4, a5], a3, a6, n] + S2[SP[a1, a2], SP[a4, a5], a6, 
     a3, n] + S2[SP[a1, a4], a3, a5, SP[a2, a6], n] + 
    S2[SP[a1, a4], a3, SP[a5, a6], a2, n] + S2[SP[a1, a4], a5, a2, 
     SP[a3, a6], n] + S2[SP[a1, a4], a5, a3, SP[a2, a6], n] + 
    S2[SP[a1, a4], a5, SP[a2, a6], a3, n] + S2[SP[a1, a4], a5, SP[a3, a6], 
     a2, n] + S2[SP[a1, a4], a6, a2, SP[a3, a5], n] + 
    S2[SP[a1, a4], a6, SP[a2, a3], a5, n] + S2[SP[a1, a4], SP[a3, a6], a2, 
     a5, n] + S2[SP[a1, a4], SP[a3, a6], a5, a2, n] + 
    S2[SP[a1, a4], SP[a5, a6], a2, a3, n] + S2[SP[a1, a4], SP[a5, a6], a3, 
     a2, n] - S2[a1, a2, a3, a4, SP[a5, a6], n] - S2[a1, a2, a3, SP[a4, a5], 
     a6, n] - S2[a1, a2, a4, a3, SP[a5, a6], n] + 
    S2[a1, a2, a4, a6, SP[a3, a5], n] + S2[a1, a2, a4, SP[a3, a5], a6, n] - 
    S2[a1, a2, a4, SP[a5, a6], a3, n] + S2[a1, a2, a5, a6, SP[a3, a4], n] + 
    S2[a1, a2, a5, SP[a3, a6], a4, n] + S2[a1, a2, a6, a4, SP[a3, a5], n] + 
    S2[a1, a2, a6, a5, SP[a3, a4], n] + S2[a1, a2, a6, SP[a3, a4], a5, n] + 
    S2[a1, a2, a6, SP[a3, a5], a4, n] + S2[a1, a2, SP[a3, a5], a4, a6, n] + 
    S2[a1, a2, SP[a3, a5], a6, a4, n] + S2[a1, a2, SP[a3, a6], a4, a5, n] + 
    S2[a1, a2, SP[a3, a6], a5, a4, n] - S2[a1, a2, SP[a4, a5], a3, a6, n] - 
    S2[a1, a2, SP[a4, a5], a6, a3, n] - S2[a1, a3, a2, a4, SP[a5, a6], n] - 
    S2[a1, a3, a2, SP[a4, a5], a6, n] - S2[a1, a3, a4, a5, SP[a2, a6], n] - 
    S2[a1, a3, a4, SP[a5, a6], a2, n] + S2[a4, n]*S2[a1, a3, a5, a2, a6, n] + 
    S2[a1, a3, a5, a2, SP[a4, a6], n] - S2[a1, a3, a5, a4, SP[a2, a6], n] + 
    S2[a4, n]*S2[a1, a3, a5, a6, a2, n] - 
    S2[a2, n]*S2[a1, a3, a5, a6, a4, n] - S2[a1, a3, a5, SP[a2, a6], a4, n] + 
    S2[a1, a3, a5, SP[a4, a6], a2, n] + S2[a4, n]*S2[a1, a3, a6, a2, a5, n] + 
    S2[a1, a3, a6, a2, SP[a4, a5], n] - S2[a2, n]*S2[a1, a3, a6, a4, a5, n] - 
    S2[a1, a3, a6, a4, SP[a2, a5], n] + S2[a4, n]*S2[a1, a3, a6, a5, a2, n] - 
    S2[a2, n]*S2[a1, a3, a6, a5, a4, n] - S2[a1, a3, a6, SP[a2, a5], a4, n] + 
    S2[a1, a3, a6, SP[a4, a5], a2, n] - S2[a1, a3, SP[a2, a5], a4, a6, n] - 
    S2[a1, a3, SP[a2, a5], a6, a4, n] - S2[a1, a3, SP[a2, a6], a4, a5, n] - 
    S2[a1, a3, SP[a2, a6], a5, a4, n] + S2[a1, a3, SP[a4, a6], a2, a5, n] + 
    S2[a1, a3, SP[a4, a6], a5, a2, n] - S2[a1, a4, a3, a5, SP[a2, a6], n] - 
    S2[a1, a4, a3, SP[a5, a6], a2, n] - S2[a1, a4, a5, a2, SP[a3, a6], n] - 
    S2[a1, a4, a5, a3, SP[a2, a6], n] - S2[a1, a4, a5, SP[a2, a6], a3, n] - 
    S2[a1, a4, a5, SP[a3, a6], a2, n] - S2[a1, a4, a6, a2, SP[a3, a5], n] - 
    S2[a1, a4, a6, SP[a2, a3], a5, n] - S2[a1, a4, SP[a3, a6], a2, a5, n] - 
    S2[a1, a4, SP[a3, a6], a5, a2, n] - S2[a1, a4, SP[a5, a6], a2, a3, n] - 
    S2[a1, a4, SP[a5, a6], a3, a2, n] + S2[a4, n]*S2[a1, a5, a2, a3, a6, n] + 
    S2[a1, a5, a2, a3, SP[a4, a6], n] + S2[a3, n]*S2[a1, a5, a2, a4, a6, n] - 
    S2[a1, a5, a2, a4, SP[a3, a6], n] + S2[a4, n]*S2[a1, a5, a2, a6, a3, n] + 
    S2[a1, a5, a2, a6, SP[a3, a4], n] + S2[a1, a5, a2, SP[a4, a6], a3, n] + 
    S2[a4, n]*S2[a1, a5, a3, a2, a6, n] + S2[a1, a5, a3, a2, SP[a4, a6], n] - 
    S2[a1, a5, a3, a4, SP[a2, a6], n] + S2[a4, n]*S2[a1, a5, a3, a6, a2, n] - 
    S2[a2, n]*S2[a1, a5, a3, a6, a4, n] - S2[a1, a5, a3, SP[a2, a6], a4, n] + 
    S2[a1, a5, a3, SP[a4, a6], a2, n] - S2[a1, a5, a4, a2, SP[a3, a6], n] - 
    S2[a1, a5, a4, a3, SP[a2, a6], n] - S2[a1, a5, a4, SP[a2, a6], a3, n] - 
    S2[a1, a5, a4, SP[a3, a6], a2, n] + S2[a4, n]*S2[a1, a5, a6, a2, a3, n] + 
    S2[a1, a5, a6, a2, SP[a3, a4], n] + S2[a4, n]*S2[a1, a5, a6, a3, a2, n] - 
    S2[a2, n]*S2[a1, a5, a6, a3, a4, n] - 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] - S2[a1, a5, a6, a4, SP[a2, a3], n] - 
    S2[a1, a5, a6, SP[a2, a3], a4, n] + S2[a1, a5, a6, SP[a3, a4], a2, n] - 
    S2[a1, a5, SP[a2, a3], a6, a4, n] - S2[a1, a5, SP[a2, a6], a3, a4, n] - 
    S2[a1, a5, SP[a2, a6], a4, a3, n] + S2[a1, a5, SP[a4, a6], a2, a3, n] + 
    S2[a1, a5, SP[a4, a6], a3, a2, n] + S2[a4, n]*S2[a1, a6, a2, a3, a5, n] + 
    S2[a1, a6, a2, a3, SP[a4, a5], n] + S2[a4, n]*S2[a1, a6, a2, a5, a3, n] + 
    S2[a1, a6, a2, a5, SP[a3, a4], n] + S2[a1, a6, a2, SP[a3, a4], a5, n] + 
    S2[a1, a6, a2, SP[a4, a5], a3, n] + S2[a4, n]*S2[a1, a6, a3, a2, a5, n] + 
    S2[a1, a6, a3, a2, SP[a4, a5], n] - S2[a2, n]*S2[a1, a6, a3, a4, a5, n] - 
    S2[a1, a6, a3, a4, SP[a2, a5], n] + S2[a4, n]*S2[a1, a6, a3, a5, a2, n] - 
    S2[a2, n]*S2[a1, a6, a3, a5, a4, n] - S2[a1, a6, a3, SP[a2, a5], a4, n] + 
    S2[a1, a6, a3, SP[a4, a5], a2, n] - S2[a2, n]*S2[a1, a6, a4, a3, a5, n] - 
    S2[a1, a6, a4, a3, SP[a2, a5], n] - S2[a2, n]*S2[a1, a6, a4, a5, a3, n] - 
    S2[a1, a6, a4, a5, SP[a2, a3], n] - S2[a1, a6, a4, SP[a2, a3], a5, n] - 
    S2[a1, a6, a4, SP[a2, a5], a3, n] + S2[a4, n]*S2[a1, a6, a5, a2, a3, n] + 
    S2[a1, a6, a5, a2, SP[a3, a4], n] + S2[a4, n]*S2[a1, a6, a5, a3, a2, n] - 
    S2[a2, n]*S2[a1, a6, a5, a3, a4, n] - 
    S2[a2, n]*S2[a1, a6, a5, a4, a3, n] - S2[a1, a6, a5, a4, SP[a2, a3], n] - 
    S2[a1, a6, a5, SP[a2, a3], a4, n] + S2[a1, a6, a5, SP[a3, a4], a2, n] - 
    S2[a1, a6, SP[a2, a3], a4, a5, n] - S2[a1, a6, SP[a2, a3], a5, a4, n] - 
    S2[a1, a6, SP[a2, a5], a3, a4, n] - S2[a1, a6, SP[a2, a5], a4, a3, n] + 
    S2[a1, a6, SP[a3, a4], a2, a5, n] + S2[a1, a6, SP[a3, a4], a5, a2, n] + 
    S2[a1, a6, SP[a4, a5], a2, a3, n] + S2[a1, a6, SP[a4, a5], a3, a2, n] - 
    S2[a1, SP[a2, a5], a3, a4, a6, n] - S2[a1, SP[a2, a5], a3, a6, a4, n] - 
    S2[a1, SP[a2, a5], a4, a3, a6, n] - S2[a1, SP[a2, a5], a4, a6, a3, n] - 
    S2[a1, SP[a2, a5], a6, a3, a4, n] - S2[a1, SP[a2, a5], a6, a4, a3, n] - 
    S2[a1, SP[a2, a6], a3, a4, a5, n] - S2[a1, SP[a2, a6], a3, a5, a4, n] - 
    S2[a1, SP[a2, a6], a4, a3, a5, n] - S2[a1, SP[a2, a6], a4, a5, a3, n] - 
    S2[a1, SP[a2, a6], a5, a3, a4, n] - S2[a1, SP[a2, a6], a5, a4, a3, n] + 
    S2[a1, SP[a3, a5], a2, a4, a6, n] + S2[a1, SP[a4, a6], a2, a3, a5, n] + 
    S2[a1, SP[a4, a6], a2, a5, a3, n] + S2[a1, SP[a4, a6], a3, a2, a5, n] + 
    S2[a1, SP[a4, a6], a3, a5, a2, n] + S2[a1, SP[a4, a6], a5, a2, a3, n] + 
    S2[a1, SP[a4, a6], a5, a3, a2, n] - S2[a2, a1, a3, a4, SP[a5, a6], n] - 
    S2[a2, a1, a3, SP[a4, a5], a6, n] - S2[a2, a1, a4, a3, SP[a5, a6], n] + 
    S2[a2, a1, a4, a6, SP[a3, a5], n] + S2[a2, a1, a4, SP[a3, a5], a6, n] - 
    S2[a2, a1, a4, SP[a5, a6], a3, n] + S2[a2, a1, a5, a6, SP[a3, a4], n] + 
    S2[a2, a1, a5, SP[a3, a6], a4, n] + S2[a2, a1, a6, a4, SP[a3, a5], n] + 
    S2[a2, a1, a6, a5, SP[a3, a4], n] + S2[a2, a1, a6, SP[a3, a4], a5, n] + 
    S2[a2, a1, a6, SP[a3, a5], a4, n] + S2[a2, a1, SP[a3, a5], a4, a6, n] + 
    S2[a2, a1, SP[a3, a5], a6, a4, n] + S2[a2, a1, SP[a3, a6], a4, a5, n] + 
    S2[a2, a1, SP[a3, a6], a5, a4, n] - S2[a2, a1, SP[a4, a5], a3, a6, n] - 
    S2[a2, a1, SP[a4, a5], a6, a3, n] - S2[a2, a4, a1, a3, SP[a5, a6], n] + 
    S2[a2, a4, a1, a6, SP[a3, a5], n] + S2[a2, a4, a1, SP[a3, a5], a6, n] - 
    S2[a2, a4, a1, SP[a5, a6], a3, n] - S2[a6, n]*S2[a2, a4, a5, a1, a3, n] + 
    S2[a2, a4, a6, a1, SP[a3, a5], n] + S2[a2, a4, a6, SP[a1, a5], a3, n] + 
    S2[a2, a4, SP[a1, a5], a3, a6, n] + S2[a2, a4, SP[a1, a5], a6, a3, n] - 
    S2[a2, a4, SP[a5, a6], a1, a3, n] - S2[a6, n]*S2[a2, a5, a1, a3, a4, n] - 
    S2[a2, a5, a1, a3, SP[a4, a6], n] - S2[a6, n]*S2[a2, a5, a1, a4, a3, n] + 
    S2[a2, a5, a1, a6, SP[a3, a4], n] + S2[a2, a5, a1, SP[a3, a4], a6, n] - 
    S2[a2, a5, a1, SP[a4, a6], a3, n] - S2[a6, n]*S2[a2, a5, a4, a1, a3, n] + 
    S2[a2, a5, a6, a1, SP[a3, a4], n] + S2[a2, a5, a6, SP[a1, a4], a3, n] + 
    S2[a2, a5, SP[a1, a4], a3, a6, n] + S2[a2, a5, SP[a1, a4], a6, a3, n] - 
    S2[a2, a5, SP[a4, a6], a1, a3, n] - S2[a4, n]*S2[a2, a6, a1, a3, a5, n] - 
    S2[a2, a6, a1, a3, SP[a4, a5], n] + S2[a2, a6, a1, a4, SP[a3, a5], n] - 
    S2[a4, n]*S2[a2, a6, a1, a5, a3, n] + S2[a2, a6, a1, SP[a3, a5], a4, n] - 
    S2[a2, a6, a1, SP[a4, a5], a3, n] + S2[a2, a6, a4, a1, SP[a3, a5], n] + 
    S2[a2, a6, a4, SP[a1, a5], a3, n] + S2[a2, a6, a5, a1, SP[a3, a4], n] + 
    S2[a2, a6, a5, SP[a1, a4], a3, n] + S2[a2, a6, SP[a1, a5], a3, a4, n] + 
    S2[a2, a6, SP[a1, a5], a4, a3, n] + S2[a2, SP[a1, a5], a3, a4, a6, n] + 
    S2[a2, SP[a1, a5], a3, a6, a4, n] + S2[a2, SP[a1, a5], a4, a3, a6, n] + 
    S2[a2, SP[a1, a5], a4, a6, a3, n] + S2[a2, SP[a1, a5], a6, a3, a4, n] + 
    S2[a2, SP[a1, a5], a6, a4, a3, n] + S2[a2, SP[a1, a6], a3, a4, a5, n] + 
    S2[a2, SP[a1, a6], a3, a5, a4, n] + S2[a2, SP[a1, a6], a4, a3, a5, n] + 
    S2[a2, SP[a1, a6], a4, a5, a3, n] + S2[a2, SP[a1, a6], a5, a3, a4, n] + 
    S2[a2, SP[a1, a6], a5, a4, a3, n] - S2[a2, SP[a4, a6], a1, a3, a5, n] - 
    S2[a2, SP[a4, a6], a1, a5, a3, n] - S2[a2, SP[a4, a6], a5, a1, a3, n] - 
    S2[a2, SP[a5, a6], a1, a3, a4, n] - S2[a2, SP[a5, a6], a1, a4, a3, n] - 
    S2[a2, SP[a5, a6], a4, a1, a3, n] - S2[a4, a1, a3, a5, SP[a2, a6], n] - 
    S2[a4, a1, a3, SP[a5, a6], a2, n] - S2[a4, a1, a5, a2, SP[a3, a6], n] - 
    S2[a4, a1, a5, a3, SP[a2, a6], n] - S2[a4, a1, a5, SP[a2, a6], a3, n] - 
    S2[a4, a1, a5, SP[a3, a6], a2, n] - S2[a4, a1, a6, a2, SP[a3, a5], n] - 
    S2[a4, a1, a6, SP[a2, a3], a5, n] - S2[a4, a1, SP[a3, a6], a2, a5, n] - 
    S2[a4, a1, SP[a3, a6], a5, a2, n] - S2[a4, a1, SP[a5, a6], a2, a3, n] - 
    S2[a4, a1, SP[a5, a6], a3, a2, n] - S2[a4, a6, a1, a2, SP[a3, a5], n] + 
    S2[a2, n]*S2[a4, a6, a1, a3, a5, n] + S2[a4, a6, a1, a3, SP[a2, a5], n] + 
    S2[a2, n]*S2[a4, a6, a1, a5, a3, n] + S2[a4, a6, a1, a5, SP[a2, a3], n] + 
    S2[a4, a6, a1, SP[a2, a5], a3, n] - S2[a4, a6, a2, a1, SP[a3, a5], n] - 
    S2[a4, a6, a2, SP[a1, a5], a3, n] - S2[a4, SP[a1, a6], a2, a3, a5, n] - 
    S2[a4, SP[a1, a6], a2, a5, a3, n] - S2[a4, SP[a1, a6], a3, a2, a5, n] - 
    S2[a4, SP[a1, a6], a3, a5, a2, n] - S2[a4, SP[a1, a6], a5, a2, a3, n] - 
    S2[a4, SP[a1, a6], a5, a3, a2, n] + S2[a4, SP[a2, a6], a1, a3, a5, n] + 
    S2[a4, SP[a2, a6], a1, a5, a3, n] + S2[a4, n]*S2[a6, a2, a5, a1, a3, n] + 
    S2[a6, a2, a5, a1, SP[a3, a4], n] + S2[a6, a2, a5, SP[a1, a4], a3, n] + 
    S2[a6, a2, SP[a4, a5], a1, a3, n] + S2[a6, SP[a2, a4], a5, a1, a3, n] + 
    S2[SP[a1, a3], a5, a2, a4, a6, n] - S2[SP[a2, a6], a4, a5, a1, a3, n] - 
    S2[SP[a2, a6], a5, a1, a3, a4, n] - S2[SP[a2, a6], a5, a1, a4, a3, n] - 
    S2[SP[a2, a6], a5, a4, a1, a3, n] + S2[SP[a4, a6], a2, a5, a1, a3, n] - 
    S2[a6, a4, a2, a5, a1, a3, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a3_, a1_, a5_, a2_, a6_, a4_, n_] :> 
  -(S2[a1, a3, a5, n]*S2[a2, a6, a4, n]) - S2[a1, a5, a3, n]*
     S2[a2, a6, a4, n] - S2[SP[a1, a2], SP[a3, a6], SP[a4, a5], n] - 
    S2[SP[a1, a2], SP[a5, a6], SP[a3, a4], n] + S2[a1, a2, SP[a3, a6], 
     SP[a4, a5], n] + S2[a1, a2, SP[a5, a6], SP[a3, a4], n] + 
    S2[a4, a6, n]*S2[a1, a3, a5, a2, n] - S2[a1, a3, SP[a4, a5], SP[a2, a6], 
     n] + S2[a4, a6, n]*S2[a1, a5, a2, a3, n] + 
    S2[a4, a6, n]*S2[a1, a5, a3, a2, n] - S2[a1, a5, SP[a2, a4], SP[a3, a6], 
     n] - S2[a1, a5, SP[a3, a4], SP[a2, a6], n] + S2[a1, SP[a2, a3], a6, 
     SP[a4, a5], n] + S2[a1, SP[a2, a3], SP[a5, a6], a4, n] + 
    S2[a1, SP[a2, a5], a6, SP[a3, a4], n] + S2[a1, SP[a2, a5], SP[a3, a6], 
     a4, n] - S2[a1, SP[a3, a4], a5, SP[a2, a6], n] - 
    S2[a1, SP[a3, a4], SP[a5, a6], a2, n] - S2[a1, SP[a4, a5], a2, 
     SP[a3, a6], n] - S2[a1, SP[a4, a5], a3, SP[a2, a6], n] - 
    S2[a1, SP[a4, a5], SP[a2, a6], a3, n] - S2[a1, SP[a4, a5], SP[a3, a6], 
     a2, n] + S2[a2, a1, SP[a3, a6], SP[a4, a5], n] + 
    S2[a2, a1, SP[a5, a6], SP[a3, a4], n] + S2[a2, SP[a1, a6], a3, 
     SP[a4, a5], n] + S2[a2, SP[a1, a6], a5, SP[a3, a4], n] + 
    S2[a2, SP[a1, a6], SP[a3, a4], a5, n] + S2[a2, SP[a1, a6], SP[a4, a5], 
     a3, n] + S2[a1, a3, n]*S2[a4, a6, a2, a5, n] - 
    S2[a4, a6, SP[a1, a2], SP[a3, a5], n] - S2[a4, SP[a1, a6], a2, 
     SP[a3, a5], n] - S2[a4, SP[a1, a6], SP[a2, a3], a5, n] + 
    S2[SP[a1, a2], a3, a6, SP[a4, a5], n] + S2[SP[a1, a2], a3, SP[a5, a6], 
     a4, n] + S2[SP[a1, a2], a5, a6, SP[a3, a4], n] + 
    S2[SP[a1, a2], a5, SP[a3, a6], a4, n] + S2[SP[a1, a2], a6, a3, 
     SP[a4, a5], n] + S2[SP[a1, a2], a6, a5, SP[a3, a4], n] + 
    S2[SP[a1, a2], a6, SP[a3, a4], a5, n] + S2[SP[a1, a2], a6, SP[a4, a5], 
     a3, n] + S2[SP[a1, a2], SP[a3, a6], a4, a5, n] + 
    S2[SP[a1, a2], SP[a3, a6], a5, a4, n] + S2[SP[a1, a2], SP[a5, a6], a3, 
     a4, n] + S2[SP[a1, a2], SP[a5, a6], a4, a3, n] - 
    S2[SP[a1, a4], a3, a5, SP[a2, a6], n] - S2[SP[a1, a4], a3, SP[a5, a6], 
     a2, n] - S2[SP[a1, a4], a5, a2, SP[a3, a6], n] - 
    S2[SP[a1, a4], a5, a3, SP[a2, a6], n] - S2[SP[a1, a4], a5, SP[a2, a6], 
     a3, n] - S2[SP[a1, a4], a5, SP[a3, a6], a2, n] - 
    S2[SP[a1, a4], a6, a2, SP[a3, a5], n] - S2[SP[a1, a4], a6, SP[a2, a3], 
     a5, n] - S2[SP[a1, a4], SP[a3, a6], a2, a5, n] - 
    S2[SP[a1, a4], SP[a3, a6], a5, a2, n] - S2[SP[a1, a4], SP[a5, a6], a2, 
     a3, n] - S2[SP[a1, a4], SP[a5, a6], a3, a2, n] - 
    S2[a1, a2, a3, a6, SP[a4, a5], n] - S2[a1, a2, a3, SP[a5, a6], a4, n] - 
    S2[a1, a2, a5, a6, SP[a3, a4], n] - S2[a1, a2, a5, SP[a3, a6], a4, n] - 
    S2[a1, a2, a6, a3, SP[a4, a5], n] - S2[a1, a2, a6, a5, SP[a3, a4], n] - 
    S2[a1, a2, a6, SP[a3, a4], a5, n] - S2[a1, a2, a6, SP[a4, a5], a3, n] - 
    S2[a1, a2, SP[a3, a6], a4, a5, n] - S2[a1, a2, SP[a3, a6], a5, a4, n] - 
    S2[a1, a2, SP[a5, a6], a3, a4, n] - S2[a1, a2, SP[a5, a6], a4, a3, n] - 
    S2[a1, a3, a2, a6, SP[a4, a5], n] - S2[a1, a3, a2, SP[a5, a6], a4, n] + 
    S2[a1, a3, a4, a5, SP[a2, a6], n] + S2[a1, a3, a4, SP[a5, a6], a2, n] - 
    S2[a4, n]*S2[a1, a3, a5, a2, a6, n] - S2[a1, a3, a5, a2, SP[a4, a6], n] + 
    S2[a1, a3, a5, a4, SP[a2, a6], n] - S2[a4, n]*S2[a1, a3, a5, a6, a2, n] + 
    S2[a2, n]*S2[a1, a3, a5, a6, a4, n] + S2[a1, a3, a5, SP[a2, a6], a4, n] - 
    S2[a1, a3, a5, SP[a4, a6], a2, n] - S2[a4, n]*S2[a1, a3, a6, a2, a5, n] - 
    S2[a1, a3, a6, a2, SP[a4, a5], n] + S2[a2, n]*S2[a1, a3, a6, a4, a5, n] + 
    S2[a1, a3, a6, a4, SP[a2, a5], n] - S2[a4, n]*S2[a1, a3, a6, a5, a2, n] + 
    S2[a2, n]*S2[a1, a3, a6, a5, a4, n] + S2[a1, a3, a6, SP[a2, a5], a4, n] - 
    S2[a1, a3, a6, SP[a4, a5], a2, n] + S2[a1, a3, SP[a2, a6], a4, a5, n] + 
    S2[a1, a3, SP[a2, a6], a5, a4, n] - S2[a1, a3, SP[a4, a6], a2, a5, n] - 
    S2[a1, a3, SP[a4, a6], a5, a2, n] + S2[a1, a4, a3, a5, SP[a2, a6], n] + 
    S2[a1, a4, a3, SP[a5, a6], a2, n] + S2[a1, a4, a5, a2, SP[a3, a6], n] + 
    S2[a1, a4, a5, a3, SP[a2, a6], n] + S2[a1, a4, a5, SP[a2, a6], a3, n] + 
    S2[a1, a4, a5, SP[a3, a6], a2, n] + S2[a1, a4, a6, a2, SP[a3, a5], n] + 
    S2[a1, a4, a6, SP[a2, a3], a5, n] + S2[a1, a4, SP[a3, a6], a2, a5, n] + 
    S2[a1, a4, SP[a3, a6], a5, a2, n] + S2[a1, a4, SP[a5, a6], a2, a3, n] + 
    S2[a1, a4, SP[a5, a6], a3, a2, n] - S2[a4, n]*S2[a1, a5, a2, a3, a6, n] - 
    S2[a1, a5, a2, a3, SP[a4, a6], n] + S2[a1, a5, a2, a4, SP[a3, a6], n] - 
    S2[a4, n]*S2[a1, a5, a2, a6, a3, n] + 
    S2[a3, n]*S2[a1, a5, a2, a6, a4, n] - S2[a1, a5, a2, a6, SP[a3, a4], n] - 
    S2[a1, a5, a2, SP[a4, a6], a3, n] - S2[a4, n]*S2[a1, a5, a3, a2, a6, n] - 
    S2[a1, a5, a3, a2, SP[a4, a6], n] + S2[a1, a5, a3, a4, SP[a2, a6], n] - 
    S2[a4, n]*S2[a1, a5, a3, a6, a2, n] + 
    S2[a2, n]*S2[a1, a5, a3, a6, a4, n] + S2[a1, a5, a3, SP[a2, a6], a4, n] - 
    S2[a1, a5, a3, SP[a4, a6], a2, n] + S2[a1, a5, a4, a2, SP[a3, a6], n] + 
    S2[a1, a5, a4, a3, SP[a2, a6], n] + S2[a1, a5, a4, SP[a2, a6], a3, n] + 
    S2[a1, a5, a4, SP[a3, a6], a2, n] - S2[a4, n]*S2[a1, a5, a6, a2, a3, n] - 
    S2[a1, a5, a6, a2, SP[a3, a4], n] - S2[a4, n]*S2[a1, a5, a6, a3, a2, n] + 
    S2[a2, n]*S2[a1, a5, a6, a3, a4, n] + 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] + S2[a1, a5, a6, a4, SP[a2, a3], n] + 
    S2[a1, a5, a6, SP[a2, a3], a4, n] - S2[a1, a5, a6, SP[a3, a4], a2, n] + 
    S2[a1, a5, SP[a2, a3], a6, a4, n] + S2[a1, a5, SP[a2, a6], a3, a4, n] + 
    S2[a1, a5, SP[a2, a6], a4, a3, n] - S2[a1, a5, SP[a4, a6], a2, a3, n] - 
    S2[a1, a5, SP[a4, a6], a3, a2, n] - S2[a4, n]*S2[a1, a6, a2, a3, a5, n] - 
    S2[a1, a6, a2, a3, SP[a4, a5], n] - S2[a4, n]*S2[a1, a6, a2, a5, a3, n] - 
    S2[a1, a6, a2, a5, SP[a3, a4], n] - S2[a1, a6, a2, SP[a3, a4], a5, n] - 
    S2[a1, a6, a2, SP[a4, a5], a3, n] - S2[a4, n]*S2[a1, a6, a3, a2, a5, n] - 
    S2[a1, a6, a3, a2, SP[a4, a5], n] + S2[a2, n]*S2[a1, a6, a3, a4, a5, n] + 
    S2[a1, a6, a3, a4, SP[a2, a5], n] - S2[a4, n]*S2[a1, a6, a3, a5, a2, n] + 
    S2[a2, n]*S2[a1, a6, a3, a5, a4, n] + S2[a1, a6, a3, SP[a2, a5], a4, n] - 
    S2[a1, a6, a3, SP[a4, a5], a2, n] + S2[a2, n]*S2[a1, a6, a4, a3, a5, n] + 
    S2[a1, a6, a4, a3, SP[a2, a5], n] + S2[a2, n]*S2[a1, a6, a4, a5, a3, n] + 
    S2[a1, a6, a4, a5, SP[a2, a3], n] + S2[a1, a6, a4, SP[a2, a3], a5, n] + 
    S2[a1, a6, a4, SP[a2, a5], a3, n] - S2[a4, n]*S2[a1, a6, a5, a2, a3, n] - 
    S2[a1, a6, a5, a2, SP[a3, a4], n] - S2[a4, n]*S2[a1, a6, a5, a3, a2, n] + 
    S2[a2, n]*S2[a1, a6, a5, a3, a4, n] + 
    S2[a2, n]*S2[a1, a6, a5, a4, a3, n] + S2[a1, a6, a5, a4, SP[a2, a3], n] + 
    S2[a1, a6, a5, SP[a2, a3], a4, n] - S2[a1, a6, a5, SP[a3, a4], a2, n] + 
    S2[a1, a6, SP[a2, a3], a4, a5, n] + S2[a1, a6, SP[a2, a3], a5, a4, n] + 
    S2[a1, a6, SP[a2, a5], a3, a4, n] + S2[a1, a6, SP[a2, a5], a4, a3, n] - 
    S2[a1, a6, SP[a3, a4], a2, a5, n] - S2[a1, a6, SP[a3, a4], a5, a2, n] - 
    S2[a1, a6, SP[a4, a5], a2, a3, n] - S2[a1, a6, SP[a4, a5], a3, a2, n] + 
    S2[a1, SP[a2, a6], a3, a4, a5, n] + S2[a1, SP[a2, a6], a3, a5, a4, n] + 
    S2[a1, SP[a2, a6], a4, a3, a5, n] + S2[a1, SP[a2, a6], a4, a5, a3, n] + 
    S2[a1, SP[a2, a6], a5, a3, a4, n] + S2[a1, SP[a2, a6], a5, a4, a3, n] + 
    S2[a1, SP[a3, a5], a2, a6, a4, n] - S2[a1, SP[a4, a6], a2, a3, a5, n] - 
    S2[a1, SP[a4, a6], a2, a5, a3, n] - S2[a1, SP[a4, a6], a3, a2, a5, n] - 
    S2[a1, SP[a4, a6], a3, a5, a2, n] - S2[a1, SP[a4, a6], a5, a2, a3, n] - 
    S2[a1, SP[a4, a6], a5, a3, a2, n] - S2[a2, a1, a3, a6, SP[a4, a5], n] - 
    S2[a2, a1, a3, SP[a5, a6], a4, n] - S2[a2, a1, a5, a6, SP[a3, a4], n] - 
    S2[a2, a1, a5, SP[a3, a6], a4, n] - S2[a2, a1, a6, a3, SP[a4, a5], n] - 
    S2[a2, a1, a6, a5, SP[a3, a4], n] - S2[a2, a1, a6, SP[a3, a4], a5, n] - 
    S2[a2, a1, a6, SP[a4, a5], a3, n] - S2[a2, a1, SP[a3, a6], a4, a5, n] - 
    S2[a2, a1, SP[a3, a6], a5, a4, n] - S2[a2, a1, SP[a5, a6], a3, a4, n] - 
    S2[a2, a1, SP[a5, a6], a4, a3, n] + S2[a4, n]*S2[a2, a6, a1, a3, a5, n] + 
    S2[a4, n]*S2[a2, a6, a1, a5, a3, n] - S2[a2, SP[a1, a6], a3, a4, a5, n] - 
    S2[a2, SP[a1, a6], a3, a5, a4, n] - S2[a2, SP[a1, a6], a4, a3, a5, n] - 
    S2[a2, SP[a1, a6], a4, a5, a3, n] - S2[a2, SP[a1, a6], a5, a3, a4, n] - 
    S2[a2, SP[a1, a6], a5, a4, a3, n] + S2[a2, SP[a4, a6], a1, a3, a5, n] + 
    S2[a2, SP[a4, a6], a1, a5, a3, n] + S2[a4, a1, a3, a5, SP[a2, a6], n] + 
    S2[a4, a1, a3, SP[a5, a6], a2, n] + S2[a4, a1, a5, a2, SP[a3, a6], n] + 
    S2[a4, a1, a5, a3, SP[a2, a6], n] + S2[a4, a1, a5, SP[a2, a6], a3, n] + 
    S2[a4, a1, a5, SP[a3, a6], a2, n] + S2[a4, a1, a6, a2, SP[a3, a5], n] + 
    S2[a4, a1, a6, SP[a2, a3], a5, n] + S2[a4, a1, SP[a3, a6], a2, a5, n] + 
    S2[a4, a1, SP[a3, a6], a5, a2, n] + S2[a4, a1, SP[a5, a6], a2, a3, n] + 
    S2[a4, a1, SP[a5, a6], a3, a2, n] + S2[a4, a6, a1, a2, SP[a3, a5], n] - 
    S2[a2, n]*S2[a4, a6, a1, a3, a5, n] - S2[a4, a6, a1, a3, SP[a2, a5], n] - 
    S2[a2, n]*S2[a4, a6, a1, a5, a3, n] - S2[a4, a6, a1, a5, SP[a2, a3], n] - 
    S2[a4, a6, a1, SP[a2, a5], a3, n] + S2[a4, a6, a2, a1, SP[a3, a5], n] + 
    S2[a4, a6, a2, SP[a1, a5], a3, n] + S2[a4, SP[a1, a6], a2, a3, a5, n] + 
    S2[a4, SP[a1, a6], a2, a5, a3, n] + S2[a4, SP[a1, a6], a3, a2, a5, n] + 
    S2[a4, SP[a1, a6], a3, a5, a2, n] + S2[a4, SP[a1, a6], a5, a2, a3, n] + 
    S2[a4, SP[a1, a6], a5, a3, a2, n] - S2[a4, SP[a2, a6], a1, a3, a5, n] - 
    S2[a4, SP[a2, a6], a1, a5, a3, n] - S2[a4, n]*S2[a6, a2, a5, a1, a3, n] - 
    S2[a6, a2, a5, a1, SP[a3, a4], n] - S2[a6, a2, a5, SP[a1, a4], a3, n] - 
    S2[a6, a2, SP[a4, a5], a1, a3, n] - S2[a6, SP[a2, a4], a5, a1, a3, n] + 
    S2[SP[a1, a3], a5, a2, a6, a4, n] - S2[SP[a4, a6], a2, a5, a1, a3, n] + 
    S2[a6, a2, a4, a5, a1, a3, n] + S2[a6, a2, a5, a1, a3, a4, n] + 
    S2[a6, a2, a5, a1, a4, a3, n] + S2[a6, a2, a5, a4, a1, a3, n] + 
    S2[a6, a4, a2, a5, a1, a3, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a3_, a1_, a5_, a4_, a2_, a6_, n_] :> 
  S2[a1, a3, a5, n]*S2[a2, a4, a6, n] + S2[a1, a5, a3, n]*S2[a2, a4, a6, n] + 
    S2[a1, a3, a5, n]*S2[a2, a6, a4, n] + S2[a1, a5, a3, n]*
     S2[a2, a6, a4, n] + S2[SP[a1, a2], SP[a3, a4], SP[a5, a6], n] + 
    S2[SP[a1, a2], SP[a3, a6], SP[a4, a5], n] + S2[SP[a1, a2], SP[a4, a5], 
     SP[a3, a6], n] + S2[SP[a1, a2], SP[a5, a6], SP[a3, a4], n] - 
    S2[a1, a2, SP[a3, a4], SP[a5, a6], n] - S2[a1, a2, SP[a3, a6], 
     SP[a4, a5], n] - S2[a1, a2, SP[a4, a5], SP[a3, a6], n] - 
    S2[a1, a2, SP[a5, a6], SP[a3, a4], n] - S2[a2, a6, n]*
     S2[a1, a3, a5, a4, n] + S2[a1, a3, SP[a2, a5], SP[a4, a6], n] - 
    S2[a2, a6, n]*S2[a1, a5, a3, a4, n] - S2[a2, a6, n]*
     S2[a1, a5, a4, a3, n] + S2[a1, a5, SP[a2, a3], SP[a4, a6], n] + 
    S2[a1, a5, SP[a2, a4], SP[a3, a6], n] - S2[a1, SP[a2, a3], a4, 
     SP[a5, a6], n] + S2[a1, SP[a2, a3], a5, SP[a4, a6], n] - 
    S2[a1, SP[a2, a3], a6, SP[a4, a5], n] - S2[a1, SP[a2, a3], SP[a4, a5], 
     a6, n] + S2[a1, SP[a2, a5], a3, SP[a4, a6], n] - 
    S2[a1, SP[a2, a5], a6, SP[a3, a4], n] - S2[a1, SP[a2, a5], SP[a3, a4], 
     a6, n] + S2[a1, SP[a2, a5], SP[a4, a6], a3, n] - 
    S2[a2, a1, SP[a3, a4], SP[a5, a6], n] - S2[a2, a1, SP[a3, a6], 
     SP[a4, a5], n] - S2[a2, a1, SP[a4, a5], SP[a3, a6], n] - 
    S2[a2, a1, SP[a5, a6], SP[a3, a4], n] - S2[a1, a3, n]*
     S2[a2, a4, a5, a6, n] - S2[a1, a3, n]*S2[a2, a4, a6, a5, n] + 
    S2[a2, a4, SP[a1, a5], SP[a3, a6], n] + S2[a2, a4, SP[a1, a6], 
     SP[a3, a5], n] - S2[a1, a3, n]*S2[a2, a6, a4, a5, n] + 
    S2[a2, a6, SP[a1, a4], SP[a3, a5], n] - S2[a2, SP[a1, a4], a3, 
     SP[a5, a6], n] + S2[a2, SP[a1, a4], a6, SP[a3, a5], n] + 
    S2[a2, SP[a1, a4], SP[a3, a5], a6, n] - S2[a2, SP[a1, a4], SP[a5, a6], 
     a3, n] - S2[a2, SP[a1, a6], a3, SP[a4, a5], n] + 
    S2[a2, SP[a1, a6], a4, SP[a3, a5], n] - S2[a2, SP[a1, a6], a5, 
     SP[a3, a4], n] - S2[a2, SP[a1, a6], SP[a4, a5], a3, n] - 
    S2[SP[a1, a2], a3, a4, SP[a5, a6], n] + S2[SP[a1, a2], a3, a5, 
     SP[a4, a6], n] - S2[SP[a1, a2], a3, a6, SP[a4, a5], n] - 
    S2[SP[a1, a2], a3, SP[a4, a5], a6, n] - S2[SP[a1, a2], a4, a3, 
     SP[a5, a6], n] + S2[SP[a1, a2], a4, a6, SP[a3, a5], n] + 
    S2[SP[a1, a2], a4, SP[a3, a5], a6, n] - S2[SP[a1, a2], a4, SP[a5, a6], 
     a3, n] + S2[SP[a1, a2], a5, a3, SP[a4, a6], n] - 
    S2[SP[a1, a2], a5, a6, SP[a3, a4], n] - S2[SP[a1, a2], a5, SP[a3, a4], 
     a6, n] + S2[SP[a1, a2], a5, SP[a4, a6], a3, n] - 
    S2[SP[a1, a2], a6, a3, SP[a4, a5], n] + S2[SP[a1, a2], a6, a4, 
     SP[a3, a5], n] - S2[SP[a1, a2], a6, a5, SP[a3, a4], n] - 
    S2[SP[a1, a2], a6, SP[a4, a5], a3, n] - S2[SP[a1, a2], SP[a4, a5], a3, 
     a6, n] - S2[SP[a1, a2], SP[a4, a5], a6, a3, n] + 
    S2[a1, a2, a3, a4, SP[a5, a6], n] - S2[a1, a2, a3, a5, SP[a4, a6], n] + 
    S2[a1, a2, a3, a6, SP[a4, a5], n] + S2[a1, a2, a3, SP[a4, a5], a6, n] + 
    S2[a1, a2, a4, a3, SP[a5, a6], n] - S2[a1, a2, a4, a6, SP[a3, a5], n] - 
    S2[a1, a2, a4, SP[a3, a5], a6, n] + S2[a1, a2, a4, SP[a5, a6], a3, n] - 
    S2[a1, a2, a5, a3, SP[a4, a6], n] + S2[a1, a2, a5, a6, SP[a3, a4], n] + 
    S2[a1, a2, a5, SP[a3, a4], a6, n] - S2[a1, a2, a5, SP[a4, a6], a3, n] + 
    S2[a1, a2, a6, a3, SP[a4, a5], n] - S2[a1, a2, a6, a4, SP[a3, a5], n] + 
    S2[a1, a2, a6, a5, SP[a3, a4], n] + S2[a1, a2, a6, SP[a4, a5], a3, n] + 
    S2[a1, a2, SP[a4, a5], a3, a6, n] + S2[a1, a2, SP[a4, a5], a6, a3, n] + 
    S2[a1, a3, a2, a4, SP[a5, a6], n] - S2[a1, a3, a2, a5, SP[a4, a6], n] + 
    S2[a1, a3, a2, a6, SP[a4, a5], n] + S2[a1, a3, a2, SP[a4, a5], a6, n] - 
    S2[a1, a3, a5, a2, SP[a4, a6], n] - S2[a1, a3, a5, SP[a2, a4], a6, n] - 
    S2[a1, a5, a2, a3, SP[a4, a6], n] + S2[a1, a5, a2, a6, SP[a3, a4], n] + 
    S2[a1, a5, a2, SP[a3, a4], a6, n] - S2[a1, a5, a2, SP[a4, a6], a3, n] - 
    S2[a1, a5, a3, a2, SP[a4, a6], n] - S2[a1, a5, a3, SP[a2, a4], a6, n] + 
    S2[a3, n]*S2[a1, a5, a4, a2, a6, n] - S2[a1, a5, SP[a2, a4], a3, a6, n] - 
    S2[a1, a5, SP[a2, a4], a6, a3, n] + S2[a1, a5, SP[a3, a4], a2, a6, n] + 
    S2[a1, SP[a3, a5], a4, a2, a6, n] + S2[a2, a1, a3, a4, SP[a5, a6], n] - 
    S2[a2, a1, a3, a5, SP[a4, a6], n] + S2[a2, a1, a3, a6, SP[a4, a5], n] + 
    S2[a2, a1, a3, SP[a4, a5], a6, n] + S2[a2, a1, a4, a3, SP[a5, a6], n] - 
    S2[a2, a1, a4, a6, SP[a3, a5], n] - S2[a2, a1, a4, SP[a3, a5], a6, n] + 
    S2[a2, a1, a4, SP[a5, a6], a3, n] - S2[a2, a1, a5, a3, SP[a4, a6], n] + 
    S2[a2, a1, a5, a6, SP[a3, a4], n] + S2[a2, a1, a5, SP[a3, a4], a6, n] - 
    S2[a2, a1, a5, SP[a4, a6], a3, n] + S2[a2, a1, a6, a3, SP[a4, a5], n] - 
    S2[a2, a1, a6, a4, SP[a3, a5], n] + S2[a2, a1, a6, a5, SP[a3, a4], n] + 
    S2[a2, a1, a6, SP[a4, a5], a3, n] + S2[a2, a1, SP[a4, a5], a3, a6, n] + 
    S2[a2, a1, SP[a4, a5], a6, a3, n] + S2[a2, a4, a1, a3, SP[a5, a6], n] - 
    S2[a2, a4, a1, a6, SP[a3, a5], n] - S2[a2, a4, a1, SP[a3, a5], a6, n] + 
    S2[a2, a4, a1, SP[a5, a6], a3, n] + S2[a6, n]*S2[a2, a4, a5, a1, a3, n] - 
    S2[a2, a4, a6, a1, SP[a3, a5], n] - S2[a2, a4, a6, SP[a1, a5], a3, n] - 
    S2[a2, a4, SP[a1, a5], a3, a6, n] - S2[a2, a4, SP[a1, a5], a6, a3, n] + 
    S2[a2, a4, SP[a5, a6], a1, a3, n] + S2[a2, a6, a1, a3, SP[a4, a5], n] - 
    S2[a2, a6, a1, a4, SP[a3, a5], n] + S2[a2, a6, a1, a5, SP[a3, a4], n] + 
    S2[a2, a6, a1, SP[a4, a5], a3, n] - S2[a2, a6, a4, a1, SP[a3, a5], n] - 
    S2[a2, a6, a4, SP[a1, a5], a3, n] + S2[a2, SP[a4, a6], a5, a1, a3, n] + 
    S2[SP[a1, a3], a5, a4, a2, a6, n] + S2[SP[a2, a6], a4, a5, a1, a3, n] - 
    S2[a6, a2, a4, a5, a1, a3, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a3_, a1_, a5_, a4_, a6_, a2_, n_] :> 
  -(S2[a1, a3, a5, n]*S2[a2, a6, a4, n]) - S2[a1, a5, a3, n]*
     S2[a2, a6, a4, n] - S2[SP[a1, a2], SP[a3, a6], SP[a4, a5], n] - 
    S2[SP[a1, a2], SP[a5, a6], SP[a3, a4], n] + S2[a1, a2, SP[a3, a6], 
     SP[a4, a5], n] + S2[a1, a2, SP[a5, a6], SP[a3, a4], n] + 
    S2[a2, a6, n]*S2[a1, a3, a5, a4, n] - S2[a1, a3, SP[a2, a5], SP[a4, a6], 
     n] + S2[a2, a6, n]*S2[a1, a5, a3, a4, n] + 
    S2[a2, a6, n]*S2[a1, a5, a4, a3, n] - S2[a1, a5, SP[a2, a3], SP[a4, a6], 
     n] - S2[a1, a5, SP[a2, a4], SP[a3, a6], n] - S2[a1, SP[a2, a3], a5, 
     SP[a4, a6], n] + S2[a1, SP[a2, a3], a6, SP[a4, a5], n] - 
    S2[a1, SP[a2, a5], a3, SP[a4, a6], n] - S2[a1, SP[a2, a5], a4, 
     SP[a3, a6], n] + S2[a1, SP[a2, a5], a6, SP[a3, a4], n] - 
    S2[a1, SP[a2, a5], SP[a4, a6], a3, n] + S2[a2, a1, SP[a3, a6], 
     SP[a4, a5], n] + S2[a2, a1, SP[a5, a6], SP[a3, a4], n] + 
    S2[a1, a3, n]*S2[a2, a6, a4, a5, n] - S2[a2, a6, SP[a1, a4], SP[a3, a5], 
     n] + S2[a2, SP[a1, a6], a3, SP[a4, a5], n] - S2[a2, SP[a1, a6], a4, 
     SP[a3, a5], n] + S2[a2, SP[a1, a6], a5, SP[a3, a4], n] + 
    S2[a2, SP[a1, a6], SP[a4, a5], a3, n] - S2[SP[a1, a2], a3, a5, 
     SP[a4, a6], n] + S2[SP[a1, a2], a3, a6, SP[a4, a5], n] - 
    S2[SP[a1, a2], a5, a3, SP[a4, a6], n] - S2[SP[a1, a2], a5, a4, 
     SP[a3, a6], n] + S2[SP[a1, a2], a5, a6, SP[a3, a4], n] - 
    S2[SP[a1, a2], a5, SP[a4, a6], a3, n] + S2[SP[a1, a2], a6, a3, 
     SP[a4, a5], n] - S2[SP[a1, a2], a6, a4, SP[a3, a5], n] + 
    S2[SP[a1, a2], a6, a5, SP[a3, a4], n] + S2[SP[a1, a2], a6, SP[a4, a5], 
     a3, n] + S2[a1, a2, a3, a5, SP[a4, a6], n] - 
    S2[a1, a2, a3, a6, SP[a4, a5], n] + S2[a1, a2, a5, a3, SP[a4, a6], n] + 
    S2[a1, a2, a5, a4, SP[a3, a6], n] - S2[a1, a2, a5, a6, SP[a3, a4], n] + 
    S2[a1, a2, a5, SP[a4, a6], a3, n] - S2[a1, a2, a6, a3, SP[a4, a5], n] + 
    S2[a1, a2, a6, a4, SP[a3, a5], n] - S2[a1, a2, a6, a5, SP[a3, a4], n] - 
    S2[a1, a2, a6, SP[a4, a5], a3, n] + S2[a1, a3, a2, a5, SP[a4, a6], n] - 
    S2[a1, a3, a2, a6, SP[a4, a5], n] + S2[a1, a3, a5, a2, SP[a4, a6], n] - 
    S2[a2, n]*S2[a1, a3, a5, a4, a6, n] - S2[a1, a3, a5, a4, SP[a2, a6], n] + 
    S2[a1, a5, a2, a3, SP[a4, a6], n] + S2[a1, a5, a2, a4, SP[a3, a6], n] - 
    S2[a1, a5, a2, a6, SP[a3, a4], n] + S2[a1, a5, a2, SP[a4, a6], a3, n] + 
    S2[a1, a5, a3, a2, SP[a4, a6], n] - S2[a2, n]*S2[a1, a5, a3, a4, a6, n] - 
    S2[a1, a5, a3, a4, SP[a2, a6], n] + S2[a1, a5, a4, a2, SP[a3, a6], n] - 
    S2[a2, n]*S2[a1, a5, a4, a3, a6, n] - S2[a1, a5, a4, a3, SP[a2, a6], n] + 
    S2[a3, n]*S2[a1, a5, a4, a6, a2, n] - 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] - S2[a1, a5, a4, SP[a2, a6], a3, n] + 
    S2[a1, a5, a4, SP[a3, a6], a2, n] + S2[a1, a5, SP[a3, a4], a6, a2, n] + 
    S2[a1, SP[a3, a5], a4, a6, a2, n] + S2[a2, a1, a3, a5, SP[a4, a6], n] - 
    S2[a2, a1, a3, a6, SP[a4, a5], n] + S2[a2, a1, a5, a3, SP[a4, a6], n] + 
    S2[a2, a1, a5, a4, SP[a3, a6], n] - S2[a2, a1, a5, a6, SP[a3, a4], n] + 
    S2[a2, a1, a5, SP[a4, a6], a3, n] - S2[a2, a1, a6, a3, SP[a4, a5], n] + 
    S2[a2, a1, a6, a4, SP[a3, a5], n] - S2[a2, a1, a6, a5, SP[a3, a4], n] - 
    S2[a2, a1, a6, SP[a4, a5], a3, n] - S2[a2, a6, a1, a3, SP[a4, a5], n] + 
    S2[a2, a6, a1, a4, SP[a3, a5], n] - S2[a2, a6, a1, a5, SP[a3, a4], n] - 
    S2[a2, a6, a1, SP[a4, a5], a3, n] + S2[a2, a6, a4, a1, SP[a3, a5], n] + 
    S2[a2, a6, a4, SP[a1, a5], a3, n] - S2[a2, n]*S2[a6, a4, a5, a1, a3, n] - 
    S2[a6, a4, a5, a1, SP[a2, a3], n] - S2[a6, a4, a5, SP[a1, a2], a3, n] - 
    S2[a6, a4, SP[a2, a5], a1, a3, n] - S2[a6, SP[a2, a4], a5, a1, a3, n] + 
    S2[SP[a1, a3], a5, a4, a6, a2, n] - S2[SP[a2, a6], a4, a5, a1, a3, n] + 
    S2[a6, a2, a4, a5, a1, a3, n] + S2[a6, a4, a2, a5, a1, a3, n] + 
    S2[a6, a4, a5, a1, a2, a3, n] + S2[a6, a4, a5, a1, a3, a2, n] + 
    S2[a6, a4, a5, a2, a1, a3, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a3_, a1_, a5_, a6_, a2_, a4_, n_] :> 
  S2[a1, a3, a5, n]*S2[a2, a4, a6, n] + S2[a1, a5, a3, n]*S2[a2, a4, a6, n] + 
    S2[a1, a3, a5, n]*S2[a2, a6, a4, n] + S2[a1, a5, a3, n]*
     S2[a2, a6, a4, n] + S2[SP[a1, a2], SP[a3, a4], SP[a5, a6], n] + 
    S2[SP[a1, a2], SP[a3, a6], SP[a4, a5], n] + S2[SP[a1, a2], SP[a4, a5], 
     SP[a3, a6], n] + S2[SP[a1, a2], SP[a5, a6], SP[a3, a4], n] - 
    S2[a1, a2, SP[a3, a4], SP[a5, a6], n] - S2[a1, a2, SP[a3, a6], 
     SP[a4, a5], n] - S2[a1, a2, SP[a4, a5], SP[a3, a6], n] - 
    S2[a1, a2, SP[a5, a6], SP[a3, a4], n] - S2[a1, SP[a2, a3], a4, 
     SP[a5, a6], n] - S2[a1, SP[a2, a3], a6, SP[a4, a5], n] - 
    S2[a1, SP[a2, a3], SP[a4, a5], a6, n] - S2[a1, SP[a2, a3], SP[a5, a6], 
     a4, n] - S2[a1, SP[a2, a5], a4, SP[a3, a6], n] - 
    S2[a1, SP[a2, a5], a6, SP[a3, a4], n] - S2[a1, SP[a2, a5], SP[a3, a4], 
     a6, n] - S2[a1, SP[a2, a5], SP[a3, a6], a4, n] - 
    S2[a2, a1, SP[a3, a4], SP[a5, a6], n] - S2[a2, a1, SP[a3, a6], 
     SP[a4, a5], n] - S2[a2, a1, SP[a4, a5], SP[a3, a6], n] - 
    S2[a2, a1, SP[a5, a6], SP[a3, a4], n] - S2[a2, SP[a1, a4], a3, 
     SP[a5, a6], n] - S2[a2, SP[a1, a4], a5, SP[a3, a6], n] - 
    S2[a2, SP[a1, a4], SP[a3, a6], a5, n] - S2[a2, SP[a1, a4], SP[a5, a6], 
     a3, n] - S2[a2, SP[a1, a6], a3, SP[a4, a5], n] - 
    S2[a2, SP[a1, a6], a5, SP[a3, a4], n] - S2[a2, SP[a1, a6], SP[a3, a4], 
     a5, n] - S2[a2, SP[a1, a6], SP[a4, a5], a3, n] - 
    S2[a1, a3, n]*S2[a5, a6, a2, a4, n] + S2[a5, a6, SP[a1, a2], SP[a3, a4], 
     n] + S2[a5, SP[a1, a6], a2, SP[a3, a4], n] + 
    S2[a5, SP[a1, a6], SP[a2, a3], a4, n] - S2[SP[a1, a2], a3, a4, 
     SP[a5, a6], n] - S2[SP[a1, a2], a3, a6, SP[a4, a5], n] - 
    S2[SP[a1, a2], a3, SP[a4, a5], a6, n] - S2[SP[a1, a2], a3, SP[a5, a6], 
     a4, n] - S2[SP[a1, a2], a4, a3, SP[a5, a6], n] - 
    S2[SP[a1, a2], a4, a5, SP[a3, a6], n] - S2[SP[a1, a2], a4, SP[a3, a6], 
     a5, n] - S2[SP[a1, a2], a4, SP[a5, a6], a3, n] - 
    S2[SP[a1, a2], a5, a4, SP[a3, a6], n] - S2[SP[a1, a2], a5, a6, 
     SP[a3, a4], n] - S2[SP[a1, a2], a5, SP[a3, a4], a6, n] - 
    S2[SP[a1, a2], a5, SP[a3, a6], a4, n] - S2[SP[a1, a2], a6, a3, 
     SP[a4, a5], n] - S2[SP[a1, a2], a6, a5, SP[a3, a4], n] - 
    S2[SP[a1, a2], a6, SP[a3, a4], a5, n] - S2[SP[a1, a2], a6, SP[a4, a5], 
     a3, n] - S2[SP[a1, a2], SP[a3, a4], a5, a6, n] - 
    S2[SP[a1, a2], SP[a3, a4], a6, a5, n] - S2[SP[a1, a2], SP[a3, a6], a4, 
     a5, n] - S2[SP[a1, a2], SP[a3, a6], a5, a4, n] - 
    S2[SP[a1, a2], SP[a4, a5], a3, a6, n] - S2[SP[a1, a2], SP[a4, a5], a6, 
     a3, n] - S2[SP[a1, a2], SP[a5, a6], a3, a4, n] - 
    S2[SP[a1, a2], SP[a5, a6], a4, a3, n] + S2[SP[a1, a5], a6, a2, 
     SP[a3, a4], n] + S2[SP[a1, a5], a6, SP[a2, a3], a4, n] + 
    S2[SP[a1, a5], SP[a3, a6], a2, a4, n] + S2[a1, a2, a3, a4, SP[a5, a6], 
     n] + S2[a1, a2, a3, a6, SP[a4, a5], n] + S2[a1, a2, a3, SP[a4, a5], a6, 
     n] + S2[a1, a2, a3, SP[a5, a6], a4, n] + S2[a1, a2, a4, a3, SP[a5, a6], 
     n] + S2[a1, a2, a4, a5, SP[a3, a6], n] + S2[a1, a2, a4, SP[a3, a6], a5, 
     n] + S2[a1, a2, a4, SP[a5, a6], a3, n] + S2[a1, a2, a5, a4, SP[a3, a6], 
     n] + S2[a1, a2, a5, a6, SP[a3, a4], n] + S2[a1, a2, a5, SP[a3, a4], a6, 
     n] + S2[a1, a2, a5, SP[a3, a6], a4, n] + S2[a1, a2, a6, a3, SP[a4, a5], 
     n] + S2[a1, a2, a6, a5, SP[a3, a4], n] + S2[a1, a2, a6, SP[a3, a4], a5, 
     n] + S2[a1, a2, a6, SP[a4, a5], a3, n] + S2[a1, a2, SP[a3, a4], a5, a6, 
     n] + S2[a1, a2, SP[a3, a4], a6, a5, n] + S2[a1, a2, SP[a3, a6], a4, a5, 
     n] + S2[a1, a2, SP[a3, a6], a5, a4, n] + S2[a1, a2, SP[a4, a5], a3, a6, 
     n] + S2[a1, a2, SP[a4, a5], a6, a3, n] + S2[a1, a2, SP[a5, a6], a3, a4, 
     n] + S2[a1, a2, SP[a5, a6], a4, a3, n] + S2[a1, a3, a2, a4, SP[a5, a6], 
     n] + S2[a1, a3, a2, a6, SP[a4, a5], n] + S2[a1, a3, a2, SP[a4, a5], a6, 
     n] + S2[a1, a3, a2, SP[a5, a6], a4, n] + 
    S2[a6, n]*S2[a1, a3, a4, a2, a5, n] + S2[a1, a3, a4, a2, SP[a5, a6], n] + 
    S2[a6, n]*S2[a1, a3, a4, a5, a2, n] - 
    S2[a2, n]*S2[a1, a3, a4, a5, a6, n] - 
    S2[a2, n]*S2[a1, a3, a4, a6, a5, n] - S2[a1, a3, a4, a6, SP[a2, a5], n] - 
    S2[a1, a3, a4, SP[a2, a5], a6, n] + S2[a1, a3, a4, SP[a5, a6], a2, n] + 
    S2[a6, n]*S2[a1, a3, a5, a4, a2, n] - 
    S2[a2, n]*S2[a1, a3, a5, a4, a6, n] - 
    S2[a2, n]*S2[a1, a3, a5, a6, a4, n] - S2[a1, a3, a5, a6, SP[a2, a4], n] - 
    S2[a1, a3, a5, SP[a2, a4], a6, n] - S2[a1, a3, a5, SP[a2, a6], a4, n] + 
    S2[a1, a3, a5, SP[a4, a6], a2, n] + S2[a5, n]*S2[a1, a3, a6, a2, a4, n] + 
    S2[a1, a3, a6, a2, SP[a4, a5], n] - S2[a2, n]*S2[a1, a3, a6, a4, a5, n] - 
    S2[a1, a3, a6, a4, SP[a2, a5], n] - S2[a2, n]*S2[a1, a3, a6, a5, a4, n] - 
    S2[a1, a3, a6, a5, SP[a2, a4], n] - S2[a1, a3, a6, SP[a2, a4], a5, n] - 
    S2[a1, a3, SP[a2, a4], a5, a6, n] - S2[a1, a3, SP[a2, a4], a6, a5, n] - 
    S2[a1, a3, SP[a2, a6], a4, a5, n] - S2[a1, a3, SP[a2, a6], a5, a4, n] + 
    S2[a1, a3, SP[a4, a6], a2, a5, n] + S2[a1, a3, SP[a4, a6], a5, a2, n] + 
    S2[a1, a3, SP[a5, a6], a2, a4, n] + S2[a1, a3, SP[a5, a6], a4, a2, n] + 
    S2[a6, n]*S2[a1, a4, a2, a3, a5, n] + S2[a1, a4, a2, a3, SP[a5, a6], n] + 
    S2[a6, n]*S2[a1, a4, a2, a5, a3, n] + S2[a1, a4, a2, a5, SP[a3, a6], n] + 
    S2[a1, a4, a2, SP[a3, a6], a5, n] + S2[a1, a4, a2, SP[a5, a6], a3, n] + 
    S2[a6, n]*S2[a1, a4, a3, a2, a5, n] + S2[a1, a4, a3, a2, SP[a5, a6], n] + 
    S2[a6, n]*S2[a1, a4, a3, a5, a2, n] - 
    S2[a2, n]*S2[a1, a4, a3, a5, a6, n] - 
    S2[a2, n]*S2[a1, a4, a3, a6, a5, n] - S2[a1, a4, a3, a6, SP[a2, a5], n] - 
    S2[a1, a4, a3, SP[a2, a5], a6, n] + S2[a1, a4, a3, SP[a5, a6], a2, n] + 
    S2[a6, n]*S2[a1, a4, a5, a2, a3, n] + S2[a1, a4, a5, a2, SP[a3, a6], n] + 
    S2[a6, n]*S2[a1, a4, a5, a3, a2, n] - 
    S2[a2, n]*S2[a1, a4, a5, a3, a6, n] - 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] - S2[a1, a4, a5, a6, SP[a2, a3], n] - 
    S2[a1, a4, a5, SP[a2, a3], a6, n] + S2[a1, a4, a5, SP[a3, a6], a2, n] - 
    S2[a2, n]*S2[a1, a4, a6, a3, a5, n] - S2[a1, a4, a6, a3, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a4, a6, a5, a3, n] - S2[a1, a4, a6, a5, SP[a2, a3], n] - 
    S2[a1, a4, a6, SP[a2, a3], a5, n] - S2[a1, a4, a6, SP[a2, a5], a3, n] - 
    S2[a1, a4, SP[a2, a3], a5, a6, n] - S2[a1, a4, SP[a2, a3], a6, a5, n] - 
    S2[a1, a4, SP[a2, a5], a3, a6, n] - S2[a1, a4, SP[a2, a5], a6, a3, n] + 
    S2[a1, a4, SP[a3, a6], a2, a5, n] + S2[a1, a4, SP[a3, a6], a5, a2, n] + 
    S2[a1, a4, SP[a5, a6], a2, a3, n] + S2[a1, a4, SP[a5, a6], a3, a2, n] + 
    S2[a1, a5, a2, a4, SP[a3, a6], n] + S2[a1, a5, a2, a6, SP[a3, a4], n] + 
    S2[a1, a5, a2, SP[a3, a4], a6, n] + S2[a1, a5, a2, SP[a3, a6], a4, n] + 
    S2[a6, n]*S2[a1, a5, a3, a4, a2, n] - 
    S2[a2, n]*S2[a1, a5, a3, a4, a6, n] - 
    S2[a2, n]*S2[a1, a5, a3, a6, a4, n] - S2[a1, a5, a3, a6, SP[a2, a4], n] - 
    S2[a1, a5, a3, SP[a2, a4], a6, n] - S2[a1, a5, a3, SP[a2, a6], a4, n] + 
    S2[a1, a5, a3, SP[a4, a6], a2, n] + S2[a6, n]*S2[a1, a5, a4, a2, a3, n] + 
    S2[a1, a5, a4, a2, SP[a3, a6], n] + S2[a6, n]*S2[a1, a5, a4, a3, a2, n] - 
    S2[a2, n]*S2[a1, a5, a4, a3, a6, n] - 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] - S2[a1, a5, a4, a6, SP[a2, a3], n] - 
    S2[a1, a5, a4, SP[a2, a3], a6, n] + S2[a1, a5, a4, SP[a3, a6], a2, n] + 
    S2[a3, n]*S2[a1, a5, a6, a2, a4, n] - 
    S2[a2, n]*S2[a1, a5, a6, a3, a4, n] - S2[a1, a5, a6, a3, SP[a2, a4], n] - 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] - S2[a1, a5, a6, a4, SP[a2, a3], n] - 
    S2[a1, a5, a6, SP[a2, a3], a4, n] - S2[a1, a5, a6, SP[a2, a4], a3, n] - 
    S2[a1, a5, SP[a2, a4], a3, a6, n] - S2[a1, a5, SP[a2, a4], a6, a3, n] - 
    S2[a1, a5, SP[a2, a6], a3, a4, n] - S2[a1, a5, SP[a2, a6], a4, a3, n] + 
    S2[a1, a5, SP[a3, a6], a4, a2, n] + S2[a1, a5, SP[a4, a6], a2, a3, n] + 
    S2[a1, a5, SP[a4, a6], a3, a2, n] + S2[a5, n]*S2[a1, a6, a2, a3, a4, n] + 
    S2[a1, a6, a2, a3, SP[a4, a5], n] + S2[a5, n]*S2[a1, a6, a2, a4, a3, n] + 
    S2[a1, a6, a2, a4, SP[a3, a5], n] + S2[a1, a6, a2, SP[a3, a5], a4, n] + 
    S2[a1, a6, a2, SP[a4, a5], a3, n] + S2[a5, n]*S2[a1, a6, a3, a2, a4, n] + 
    S2[a1, a6, a3, a2, SP[a4, a5], n] - S2[a2, n]*S2[a1, a6, a3, a4, a5, n] - 
    S2[a1, a6, a3, a4, SP[a2, a5], n] - S2[a2, n]*S2[a1, a6, a3, a5, a4, n] - 
    S2[a1, a6, a3, a5, SP[a2, a4], n] - S2[a1, a6, a3, SP[a2, a4], a5, n] - 
    S2[a2, n]*S2[a1, a6, a4, a3, a5, n] - S2[a1, a6, a4, a3, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a6, a4, a5, a3, n] - S2[a1, a6, a4, a5, SP[a2, a3], n] - 
    S2[a1, a6, a4, SP[a2, a3], a5, n] - S2[a1, a6, a4, SP[a2, a5], a3, n] - 
    S2[a2, n]*S2[a1, a6, a5, a3, a4, n] - S2[a1, a6, a5, a3, SP[a2, a4], n] - 
    S2[a2, n]*S2[a1, a6, a5, a4, a3, n] - S2[a1, a6, a5, a4, SP[a2, a3], n] - 
    S2[a1, a6, a5, SP[a2, a3], a4, n] - S2[a1, a6, a5, SP[a2, a4], a3, n] - 
    S2[a1, a6, SP[a2, a3], a4, a5, n] - S2[a1, a6, SP[a2, a3], a5, a4, n] - 
    S2[a1, a6, SP[a2, a4], a3, a5, n] - S2[a1, a6, SP[a2, a4], a5, a3, n] + 
    S2[a1, a6, SP[a3, a5], a2, a4, n] - S2[a1, SP[a2, a4], a3, a5, a6, n] - 
    S2[a1, SP[a2, a4], a3, a6, a5, n] - S2[a1, SP[a2, a4], a5, a3, a6, n] - 
    S2[a1, SP[a2, a4], a5, a6, a3, n] - S2[a1, SP[a2, a4], a6, a3, a5, n] - 
    S2[a1, SP[a2, a4], a6, a5, a3, n] - S2[a1, SP[a2, a6], a3, a4, a5, n] - 
    S2[a1, SP[a2, a6], a3, a5, a4, n] - S2[a1, SP[a2, a6], a4, a3, a5, n] - 
    S2[a1, SP[a2, a6], a4, a5, a3, n] - S2[a1, SP[a2, a6], a5, a3, a4, n] - 
    S2[a1, SP[a2, a6], a5, a4, a3, n] + S2[a1, SP[a3, a5], a6, a2, a4, n] + 
    S2[a1, SP[a3, a6], a4, a2, a5, n] + S2[a1, SP[a3, a6], a4, a5, a2, n] + 
    S2[a1, SP[a3, a6], a5, a4, a2, n] + S2[a1, SP[a4, a6], a2, a3, a5, n] + 
    S2[a1, SP[a4, a6], a2, a5, a3, n] + S2[a1, SP[a4, a6], a3, a2, a5, n] + 
    S2[a1, SP[a4, a6], a3, a5, a2, n] + S2[a1, SP[a4, a6], a5, a2, a3, n] + 
    S2[a1, SP[a4, a6], a5, a3, a2, n] + S2[a1, SP[a5, a6], a2, a3, a4, n] + 
    S2[a1, SP[a5, a6], a2, a4, a3, n] + S2[a1, SP[a5, a6], a3, a2, a4, n] + 
    S2[a1, SP[a5, a6], a3, a4, a2, n] + S2[a1, SP[a5, a6], a4, a2, a3, n] + 
    S2[a1, SP[a5, a6], a4, a3, a2, n] + S2[a2, a1, a3, a4, SP[a5, a6], n] + 
    S2[a2, a1, a3, a6, SP[a4, a5], n] + S2[a2, a1, a3, SP[a4, a5], a6, n] + 
    S2[a2, a1, a3, SP[a5, a6], a4, n] + S2[a2, a1, a4, a3, SP[a5, a6], n] + 
    S2[a2, a1, a4, a5, SP[a3, a6], n] + S2[a2, a1, a4, SP[a3, a6], a5, n] + 
    S2[a2, a1, a4, SP[a5, a6], a3, n] + S2[a2, a1, a5, a4, SP[a3, a6], n] + 
    S2[a2, a1, a5, a6, SP[a3, a4], n] + S2[a2, a1, a5, SP[a3, a4], a6, n] + 
    S2[a2, a1, a5, SP[a3, a6], a4, n] + S2[a2, a1, a6, a3, SP[a4, a5], n] + 
    S2[a2, a1, a6, a5, SP[a3, a4], n] + S2[a2, a1, a6, SP[a3, a4], a5, n] + 
    S2[a2, a1, a6, SP[a4, a5], a3, n] + S2[a2, a1, SP[a3, a4], a5, a6, n] + 
    S2[a2, a1, SP[a3, a4], a6, a5, n] + S2[a2, a1, SP[a3, a6], a4, a5, n] + 
    S2[a2, a1, SP[a3, a6], a5, a4, n] + S2[a2, a1, SP[a4, a5], a3, a6, n] + 
    S2[a2, a1, SP[a4, a5], a6, a3, n] + S2[a2, a1, SP[a5, a6], a3, a4, n] + 
    S2[a2, a1, SP[a5, a6], a4, a3, n] - S2[a6, n]*S2[a2, a4, a1, a3, a5, n] - 
    S2[a6, n]*S2[a2, a4, a1, a5, a3, n] - 
    S2[a5, n]*S2[a2, a6, a1, a3, a4, n] - 
    S2[a5, n]*S2[a2, a6, a1, a4, a3, n] - S2[a2, a6, a1, a4, SP[a3, a5], n] + 
    S2[a2, a6, a1, a5, SP[a3, a4], n] + S2[a2, a6, a1, SP[a3, a4], a5, n] - 
    S2[a2, a6, a1, SP[a3, a5], a4, n] + S2[a2, a6, SP[a1, a4], a3, a5, n] + 
    S2[a2, a6, SP[a1, a4], a5, a3, n] - S2[a2, a6, SP[a1, a5], a3, a4, n] - 
    S2[a2, a6, SP[a1, a5], a4, a3, n] + S2[a2, SP[a1, a4], a3, a5, a6, n] + 
    S2[a2, SP[a1, a4], a3, a6, a5, n] + S2[a2, SP[a1, a4], a5, a3, a6, n] + 
    S2[a2, SP[a1, a4], a5, a6, a3, n] + S2[a2, SP[a1, a4], a6, a3, a5, n] + 
    S2[a2, SP[a1, a4], a6, a5, a3, n] + S2[a2, SP[a1, a6], a3, a4, a5, n] + 
    S2[a2, SP[a1, a6], a3, a5, a4, n] + S2[a2, SP[a1, a6], a4, a3, a5, n] + 
    S2[a2, SP[a1, a6], a4, a5, a3, n] + S2[a2, SP[a1, a6], a5, a3, a4, n] + 
    S2[a2, SP[a1, a6], a5, a4, a3, n] - S2[a2, SP[a4, a6], a1, a3, a5, n] - 
    S2[a2, SP[a4, a6], a1, a5, a3, n] - S2[a2, SP[a5, a6], a1, a3, a4, n] - 
    S2[a2, SP[a5, a6], a1, a4, a3, n] - S2[a5, a1, a6, a2, SP[a3, a4], n] - 
    S2[a5, a1, a6, SP[a2, a3], a4, n] - S2[a5, a1, SP[a3, a6], a2, a4, n] - 
    S2[a5, a6, a1, a2, SP[a3, a4], n] + S2[a2, n]*S2[a5, a6, a1, a3, a4, n] + 
    S2[a5, a6, a1, a3, SP[a2, a4], n] + S2[a2, n]*S2[a5, a6, a1, a4, a3, n] + 
    S2[a5, a6, a1, a4, SP[a2, a3], n] + S2[a5, a6, a1, SP[a2, a4], a3, n] - 
    S2[a5, a6, a2, a1, SP[a3, a4], n] - S2[a5, a6, a2, SP[a1, a4], a3, n] - 
    S2[a5, SP[a1, a6], a2, a3, a4, n] - S2[a5, SP[a1, a6], a2, a4, a3, n] - 
    S2[a5, SP[a1, a6], a3, a2, a4, n] + S2[a5, SP[a2, a6], a1, a3, a4, n] + 
    S2[a5, SP[a2, a6], a1, a4, a3, n] - S2[a5, n]*S2[a6, a1, a3, a4, a2, n] - 
    S2[a6, a1, a3, a4, SP[a2, a5], n] - S2[a6, a1, a3, SP[a4, a5], a2, n] - 
    S2[a5, n]*S2[a6, a1, a4, a2, a3, n] - S2[a6, a1, a4, a2, SP[a3, a5], n] - 
    S2[a5, n]*S2[a6, a1, a4, a3, a2, n] - S2[a6, a1, a4, a3, SP[a2, a5], n] - 
    S2[a6, a1, a4, SP[a2, a5], a3, n] - S2[a6, a1, a4, SP[a3, a5], a2, n] - 
    S2[a6, a1, SP[a3, a5], a4, a2, n] - S2[a6, a1, SP[a4, a5], a2, a3, n] - 
    S2[a6, a1, SP[a4, a5], a3, a2, n] + S2[a5, n]*S2[a6, a2, a4, a1, a3, n] + 
    S2[a6, a2, a4, a1, SP[a3, a5], n] + S2[a6, a2, a4, SP[a1, a5], a3, n] + 
    S2[a6, a2, SP[a4, a5], a1, a3, n] + S2[a2, n]*S2[a6, a5, a1, a3, a4, n] + 
    S2[a6, a5, a1, a3, SP[a2, a4], n] + S2[a2, n]*S2[a6, a5, a1, a4, a3, n] + 
    S2[a6, a5, a1, a4, SP[a2, a3], n] + S2[a6, a5, a1, SP[a2, a3], a4, n] + 
    S2[a6, a5, a1, SP[a2, a4], a3, n] + S2[a6, a5, SP[a1, a2], a3, a4, n] + 
    S2[a6, a5, SP[a1, a2], a4, a3, n] - S2[a6, SP[a1, a5], a3, a4, a2, n] - 
    S2[a6, SP[a1, a5], a4, a2, a3, n] - S2[a6, SP[a1, a5], a4, a3, a2, n] + 
    S2[a6, SP[a2, a5], a1, a3, a4, n] + S2[a6, SP[a2, a5], a1, a4, a3, n] + 
    S2[a6, SP[a2, a5], a4, a1, a3, n] + S2[SP[a1, a3], a5, a6, a2, a4, n] + 
    S2[SP[a1, a6], a3, a4, a2, a5, n] + S2[SP[a1, a6], a3, a4, a5, a2, n] + 
    S2[SP[a1, a6], a3, a5, a4, a2, n] + S2[SP[a1, a6], a4, a2, a3, a5, n] + 
    S2[SP[a1, a6], a4, a2, a5, a3, n] + S2[SP[a1, a6], a4, a3, a2, a5, n] + 
    S2[SP[a1, a6], a4, a3, a5, a2, n] + S2[SP[a1, a6], a4, a5, a2, a3, n] + 
    S2[SP[a1, a6], a4, a5, a3, a2, n] + S2[SP[a1, a6], a5, a3, a4, a2, n] + 
    S2[SP[a1, a6], a5, a4, a2, a3, n] + S2[SP[a1, a6], a5, a4, a3, a2, n] - 
    S2[SP[a2, a6], a4, a1, a3, a5, n] - S2[SP[a2, a6], a4, a1, a5, a3, n] + 
    S2[SP[a2, a6], a5, a1, a3, a4, n] + S2[SP[a2, a6], a5, a1, a4, a3, n] - 
    S2[SP[a5, a6], a1, a3, a4, a2, n] - S2[SP[a5, a6], a1, a4, a2, a3, n] - 
    S2[SP[a5, a6], a1, a4, a3, a2, n] + S2[SP[a5, a6], a2, a4, a1, a3, n] - 
    S2[a6, a2, a4, a5, a1, a3, n] - S2[a6, a2, a5, a1, a3, a4, n] - 
    S2[a6, a2, a5, a1, a4, a3, n] - S2[a6, a2, a5, a4, a1, a3, n] - 
    S2[a6, a5, a1, a2, a3, a4, n] - S2[a6, a5, a1, a2, a4, a3, n] - 
    S2[a6, a5, a1, a3, a2, a4, n] - S2[a6, a5, a2, a1, a3, a4, n] - 
    S2[a6, a5, a2, a1, a4, a3, n] - S2[a6, a5, a2, a4, a1, a3, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a3_, a1_, a5_, a6_, a4_, a2_, n_] :> 
  -(S2[a1, a3, a5, n]*S2[a2, a4, a6, n]) - S2[a1, a5, a3, n]*
     S2[a2, a4, a6, n] - S2[SP[a1, a2], SP[a3, a4], SP[a5, a6], n] - 
    S2[SP[a1, a2], SP[a4, a5], SP[a3, a6], n] + S2[a1, a2, SP[a3, a4], 
     SP[a5, a6], n] + S2[a1, a2, SP[a4, a5], SP[a3, a6], n] + 
    S2[a1, SP[a2, a3], a4, SP[a5, a6], n] + S2[a1, SP[a2, a3], SP[a4, a5], 
     a6, n] + S2[a1, SP[a2, a5], a4, SP[a3, a6], n] + 
    S2[a1, SP[a2, a5], SP[a3, a4], a6, n] + S2[a2, a1, SP[a3, a4], 
     SP[a5, a6], n] + S2[a2, a1, SP[a4, a5], SP[a3, a6], n] - 
    S2[a1, a3, n]*S2[a2, a6, a4, a5, n] - S2[a1, a3, n]*
     S2[a2, a6, a5, a4, n] + S2[a2, a6, SP[a1, a4], SP[a3, a5], n] + 
    S2[a2, a6, SP[a1, a5], SP[a3, a4], n] + S2[a2, SP[a1, a4], a3, 
     SP[a5, a6], n] + S2[a2, SP[a1, a4], a5, SP[a3, a6], n] + 
    S2[a2, SP[a1, a4], SP[a3, a6], a5, n] + S2[a2, SP[a1, a4], SP[a5, a6], 
     a3, n] + S2[a2, SP[a1, a6], a4, SP[a3, a5], n] + 
    S2[a2, SP[a1, a6], a5, SP[a3, a4], n] + S2[a2, SP[a1, a6], SP[a3, a4], 
     a5, n] + S2[a2, SP[a1, a6], SP[a3, a5], a4, n] + 
    S2[a1, a3, n]*S2[a5, a6, a2, a4, n] - S2[a5, a6, SP[a1, a2], SP[a3, a4], 
     n] - S2[a5, SP[a1, a6], a2, SP[a3, a4], n] - 
    S2[a5, SP[a1, a6], SP[a2, a3], a4, n] + S2[SP[a1, a2], a3, a4, 
     SP[a5, a6], n] + S2[SP[a1, a2], a3, SP[a4, a5], a6, n] + 
    S2[SP[a1, a2], a4, a3, SP[a5, a6], n] + S2[SP[a1, a2], a4, a5, 
     SP[a3, a6], n] + S2[SP[a1, a2], a4, SP[a3, a6], a5, n] + 
    S2[SP[a1, a2], a4, SP[a5, a6], a3, n] + S2[SP[a1, a2], a5, a4, 
     SP[a3, a6], n] + S2[SP[a1, a2], a5, SP[a3, a4], a6, n] + 
    S2[SP[a1, a2], a6, a4, SP[a3, a5], n] + S2[SP[a1, a2], a6, a5, 
     SP[a3, a4], n] + S2[SP[a1, a2], a6, SP[a3, a4], a5, n] + 
    S2[SP[a1, a2], a6, SP[a3, a5], a4, n] + S2[SP[a1, a2], SP[a3, a4], a5, 
     a6, n] + S2[SP[a1, a2], SP[a3, a4], a6, a5, n] + 
    S2[SP[a1, a2], SP[a3, a6], a4, a5, n] + S2[SP[a1, a2], SP[a3, a6], a5, 
     a4, n] + S2[SP[a1, a2], SP[a4, a5], a3, a6, n] + 
    S2[SP[a1, a2], SP[a4, a5], a6, a3, n] - S2[SP[a1, a5], a6, a2, 
     SP[a3, a4], n] - S2[SP[a1, a5], a6, SP[a2, a3], a4, n] - 
    S2[SP[a1, a5], SP[a3, a6], a2, a4, n] - S2[a1, a2, a3, a4, SP[a5, a6], 
     n] - S2[a1, a2, a3, SP[a4, a5], a6, n] - S2[a1, a2, a4, a3, SP[a5, a6], 
     n] - S2[a1, a2, a4, a5, SP[a3, a6], n] - S2[a1, a2, a4, SP[a3, a6], a5, 
     n] - S2[a1, a2, a4, SP[a5, a6], a3, n] - S2[a1, a2, a5, a4, SP[a3, a6], 
     n] - S2[a1, a2, a5, SP[a3, a4], a6, n] - S2[a1, a2, a6, a4, SP[a3, a5], 
     n] - S2[a1, a2, a6, a5, SP[a3, a4], n] - S2[a1, a2, a6, SP[a3, a4], a5, 
     n] - S2[a1, a2, a6, SP[a3, a5], a4, n] - S2[a1, a2, SP[a3, a4], a5, a6, 
     n] - S2[a1, a2, SP[a3, a4], a6, a5, n] - S2[a1, a2, SP[a3, a6], a4, a5, 
     n] - S2[a1, a2, SP[a3, a6], a5, a4, n] - S2[a1, a2, SP[a4, a5], a3, a6, 
     n] - S2[a1, a2, SP[a4, a5], a6, a3, n] - S2[a1, a3, a2, a4, SP[a5, a6], 
     n] - S2[a1, a3, a2, SP[a4, a5], a6, n] - 
    S2[a6, n]*S2[a1, a3, a4, a2, a5, n] - S2[a1, a3, a4, a2, SP[a5, a6], n] - 
    S2[a6, n]*S2[a1, a3, a4, a5, a2, n] + 
    S2[a2, n]*S2[a1, a3, a4, a5, a6, n] + 
    S2[a2, n]*S2[a1, a3, a4, a6, a5, n] + S2[a1, a3, a4, a6, SP[a2, a5], n] + 
    S2[a1, a3, a4, SP[a2, a5], a6, n] - S2[a1, a3, a4, SP[a5, a6], a2, n] - 
    S2[a6, n]*S2[a1, a3, a5, a4, a2, n] + 
    S2[a2, n]*S2[a1, a3, a5, a4, a6, n] + S2[a1, a3, a5, SP[a2, a4], a6, n] - 
    S2[a1, a3, a5, SP[a4, a6], a2, n] - S2[a5, n]*S2[a1, a3, a6, a2, a4, n] - 
    S2[a1, a3, a6, a2, SP[a4, a5], n] + S2[a2, n]*S2[a1, a3, a6, a4, a5, n] + 
    S2[a1, a3, a6, a4, SP[a2, a5], n] + S2[a2, n]*S2[a1, a3, a6, a5, a4, n] + 
    S2[a1, a3, a6, a5, SP[a2, a4], n] + S2[a1, a3, a6, SP[a2, a4], a5, n] + 
    S2[a1, a3, SP[a2, a4], a5, a6, n] + S2[a1, a3, SP[a2, a4], a6, a5, n] + 
    S2[a1, a3, SP[a2, a6], a4, a5, n] + S2[a1, a3, SP[a2, a6], a5, a4, n] - 
    S2[a1, a3, SP[a4, a6], a2, a5, n] - S2[a1, a3, SP[a4, a6], a5, a2, n] - 
    S2[a1, a3, SP[a5, a6], a2, a4, n] - S2[a1, a3, SP[a5, a6], a4, a2, n] - 
    S2[a6, n]*S2[a1, a4, a2, a3, a5, n] - S2[a1, a4, a2, a3, SP[a5, a6], n] - 
    S2[a6, n]*S2[a1, a4, a2, a5, a3, n] - S2[a1, a4, a2, a5, SP[a3, a6], n] - 
    S2[a1, a4, a2, SP[a3, a6], a5, n] - S2[a1, a4, a2, SP[a5, a6], a3, n] - 
    S2[a6, n]*S2[a1, a4, a3, a2, a5, n] - S2[a1, a4, a3, a2, SP[a5, a6], n] - 
    S2[a6, n]*S2[a1, a4, a3, a5, a2, n] + 
    S2[a2, n]*S2[a1, a4, a3, a5, a6, n] + 
    S2[a2, n]*S2[a1, a4, a3, a6, a5, n] + S2[a1, a4, a3, a6, SP[a2, a5], n] + 
    S2[a1, a4, a3, SP[a2, a5], a6, n] - S2[a1, a4, a3, SP[a5, a6], a2, n] - 
    S2[a6, n]*S2[a1, a4, a5, a2, a3, n] - S2[a1, a4, a5, a2, SP[a3, a6], n] - 
    S2[a6, n]*S2[a1, a4, a5, a3, a2, n] + 
    S2[a2, n]*S2[a1, a4, a5, a3, a6, n] + 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] + S2[a1, a4, a5, a6, SP[a2, a3], n] + 
    S2[a1, a4, a5, SP[a2, a3], a6, n] - S2[a1, a4, a5, SP[a3, a6], a2, n] + 
    S2[a2, n]*S2[a1, a4, a6, a3, a5, n] + S2[a1, a4, a6, a3, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a4, a6, a5, a3, n] + S2[a1, a4, a6, a5, SP[a2, a3], n] + 
    S2[a1, a4, a6, SP[a2, a3], a5, n] + S2[a1, a4, a6, SP[a2, a5], a3, n] + 
    S2[a1, a4, SP[a2, a3], a5, a6, n] + S2[a1, a4, SP[a2, a3], a6, a5, n] + 
    S2[a1, a4, SP[a2, a5], a3, a6, n] + S2[a1, a4, SP[a2, a5], a6, a3, n] - 
    S2[a1, a4, SP[a3, a6], a2, a5, n] - S2[a1, a4, SP[a3, a6], a5, a2, n] - 
    S2[a1, a4, SP[a5, a6], a2, a3, n] - S2[a1, a4, SP[a5, a6], a3, a2, n] - 
    S2[a1, a5, a2, a4, SP[a3, a6], n] - S2[a1, a5, a2, SP[a3, a4], a6, n] - 
    S2[a6, n]*S2[a1, a5, a3, a4, a2, n] + 
    S2[a2, n]*S2[a1, a5, a3, a4, a6, n] + S2[a1, a5, a3, SP[a2, a4], a6, n] - 
    S2[a1, a5, a3, SP[a4, a6], a2, n] - S2[a6, n]*S2[a1, a5, a4, a2, a3, n] - 
    S2[a1, a5, a4, a2, SP[a3, a6], n] - S2[a6, n]*S2[a1, a5, a4, a3, a2, n] + 
    S2[a2, n]*S2[a1, a5, a4, a3, a6, n] + 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] + S2[a1, a5, a4, a6, SP[a2, a3], n] + 
    S2[a1, a5, a4, SP[a2, a3], a6, n] - S2[a1, a5, a4, SP[a3, a6], a2, n] + 
    S2[a1, a5, a6, a2, SP[a3, a4], n] + S2[a3, n]*S2[a1, a5, a6, a4, a2, n] + 
    S2[a1, a5, a6, a4, SP[a2, a3], n] + S2[a1, a5, a6, SP[a2, a3], a4, n] + 
    S2[a1, a5, a6, SP[a3, a4], a2, n] + S2[a1, a5, SP[a2, a4], a3, a6, n] + 
    S2[a1, a5, SP[a2, a4], a6, a3, n] + S2[a1, a5, SP[a3, a6], a2, a4, n] - 
    S2[a1, a5, SP[a4, a6], a2, a3, n] - S2[a1, a5, SP[a4, a6], a3, a2, n] - 
    S2[a5, n]*S2[a1, a6, a2, a3, a4, n] - S2[a1, a6, a2, a3, SP[a4, a5], n] - 
    S2[a5, n]*S2[a1, a6, a2, a4, a3, n] - S2[a1, a6, a2, a4, SP[a3, a5], n] - 
    S2[a1, a6, a2, SP[a3, a5], a4, n] - S2[a1, a6, a2, SP[a4, a5], a3, n] - 
    S2[a5, n]*S2[a1, a6, a3, a2, a4, n] - S2[a1, a6, a3, a2, SP[a4, a5], n] + 
    S2[a2, n]*S2[a1, a6, a3, a4, a5, n] + S2[a1, a6, a3, a4, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a6, a3, a5, a4, n] + S2[a1, a6, a3, a5, SP[a2, a4], n] + 
    S2[a1, a6, a3, SP[a2, a4], a5, n] + S2[a2, n]*S2[a1, a6, a4, a3, a5, n] + 
    S2[a1, a6, a4, a3, SP[a2, a5], n] + S2[a2, n]*S2[a1, a6, a4, a5, a3, n] + 
    S2[a1, a6, a4, a5, SP[a2, a3], n] + S2[a1, a6, a4, SP[a2, a3], a5, n] + 
    S2[a1, a6, a4, SP[a2, a5], a3, n] + S2[a2, n]*S2[a1, a6, a5, a3, a4, n] + 
    S2[a1, a6, a5, a3, SP[a2, a4], n] + S2[a2, n]*S2[a1, a6, a5, a4, a3, n] + 
    S2[a1, a6, a5, a4, SP[a2, a3], n] + S2[a1, a6, a5, SP[a2, a3], a4, n] + 
    S2[a1, a6, a5, SP[a2, a4], a3, n] + S2[a1, a6, SP[a2, a3], a4, a5, n] + 
    S2[a1, a6, SP[a2, a3], a5, a4, n] + S2[a1, a6, SP[a2, a4], a3, a5, n] + 
    S2[a1, a6, SP[a2, a4], a5, a3, n] - S2[a1, a6, SP[a3, a5], a2, a4, n] + 
    S2[a1, SP[a2, a4], a3, a5, a6, n] + S2[a1, SP[a2, a4], a3, a6, a5, n] + 
    S2[a1, SP[a2, a4], a5, a3, a6, n] + S2[a1, SP[a2, a4], a5, a6, a3, n] + 
    S2[a1, SP[a2, a4], a6, a3, a5, n] + S2[a1, SP[a2, a4], a6, a5, a3, n] + 
    S2[a1, SP[a2, a6], a3, a4, a5, n] + S2[a1, SP[a2, a6], a3, a5, a4, n] + 
    S2[a1, SP[a2, a6], a4, a3, a5, n] + S2[a1, SP[a2, a6], a4, a5, a3, n] + 
    S2[a1, SP[a2, a6], a5, a3, a4, n] + S2[a1, SP[a2, a6], a5, a4, a3, n] + 
    S2[a1, SP[a3, a5], a6, a4, a2, n] - S2[a1, SP[a3, a6], a4, a2, a5, n] - 
    S2[a1, SP[a3, a6], a4, a5, a2, n] - S2[a1, SP[a3, a6], a5, a4, a2, n] - 
    S2[a1, SP[a4, a6], a2, a3, a5, n] - S2[a1, SP[a4, a6], a2, a5, a3, n] - 
    S2[a1, SP[a4, a6], a3, a2, a5, n] - S2[a1, SP[a4, a6], a3, a5, a2, n] - 
    S2[a1, SP[a4, a6], a5, a2, a3, n] - S2[a1, SP[a4, a6], a5, a3, a2, n] - 
    S2[a1, SP[a5, a6], a2, a3, a4, n] - S2[a1, SP[a5, a6], a2, a4, a3, n] - 
    S2[a1, SP[a5, a6], a3, a2, a4, n] - S2[a1, SP[a5, a6], a3, a4, a2, n] - 
    S2[a1, SP[a5, a6], a4, a2, a3, n] - S2[a1, SP[a5, a6], a4, a3, a2, n] - 
    S2[a2, a1, a3, a4, SP[a5, a6], n] - S2[a2, a1, a3, SP[a4, a5], a6, n] - 
    S2[a2, a1, a4, a3, SP[a5, a6], n] - S2[a2, a1, a4, a5, SP[a3, a6], n] - 
    S2[a2, a1, a4, SP[a3, a6], a5, n] - S2[a2, a1, a4, SP[a5, a6], a3, n] - 
    S2[a2, a1, a5, a4, SP[a3, a6], n] - S2[a2, a1, a5, SP[a3, a4], a6, n] - 
    S2[a2, a1, a6, a4, SP[a3, a5], n] - S2[a2, a1, a6, a5, SP[a3, a4], n] - 
    S2[a2, a1, a6, SP[a3, a4], a5, n] - S2[a2, a1, a6, SP[a3, a5], a4, n] - 
    S2[a2, a1, SP[a3, a4], a5, a6, n] - S2[a2, a1, SP[a3, a4], a6, a5, n] - 
    S2[a2, a1, SP[a3, a6], a4, a5, n] - S2[a2, a1, SP[a3, a6], a5, a4, n] - 
    S2[a2, a1, SP[a4, a5], a3, a6, n] - S2[a2, a1, SP[a4, a5], a6, a3, n] + 
    S2[a6, n]*S2[a2, a4, a1, a3, a5, n] + 
    S2[a6, n]*S2[a2, a4, a1, a5, a3, n] + 
    S2[a5, n]*S2[a2, a6, a1, a3, a4, n] + S2[a2, a6, a1, a3, SP[a4, a5], n] + 
    S2[a5, n]*S2[a2, a6, a1, a4, a3, n] - S2[a2, a6, a1, a5, SP[a3, a4], n] - 
    S2[a2, a6, a1, SP[a3, a4], a5, n] + S2[a2, a6, a1, SP[a4, a5], a3, n] - 
    S2[a2, a6, a4, a1, SP[a3, a5], n] - S2[a2, a6, a4, SP[a1, a5], a3, n] - 
    S2[a2, a6, a5, a1, SP[a3, a4], n] - S2[a2, a6, a5, SP[a1, a4], a3, n] - 
    S2[a2, a6, SP[a1, a4], a3, a5, n] - S2[a2, a6, SP[a1, a4], a5, a3, n] - 
    S2[a2, SP[a1, a4], a3, a5, a6, n] - S2[a2, SP[a1, a4], a3, a6, a5, n] - 
    S2[a2, SP[a1, a4], a5, a3, a6, n] - S2[a2, SP[a1, a4], a5, a6, a3, n] - 
    S2[a2, SP[a1, a4], a6, a3, a5, n] - S2[a2, SP[a1, a4], a6, a5, a3, n] - 
    S2[a2, SP[a1, a6], a3, a4, a5, n] - S2[a2, SP[a1, a6], a3, a5, a4, n] - 
    S2[a2, SP[a1, a6], a4, a3, a5, n] - S2[a2, SP[a1, a6], a4, a5, a3, n] - 
    S2[a2, SP[a1, a6], a5, a3, a4, n] - S2[a2, SP[a1, a6], a5, a4, a3, n] + 
    S2[a2, SP[a4, a6], a1, a3, a5, n] + S2[a2, SP[a4, a6], a1, a5, a3, n] + 
    S2[a2, SP[a5, a6], a1, a3, a4, n] + S2[a2, SP[a5, a6], a1, a4, a3, n] + 
    S2[a5, a1, a6, a2, SP[a3, a4], n] + S2[a5, a1, a6, SP[a2, a3], a4, n] + 
    S2[a5, a1, SP[a3, a6], a2, a4, n] + S2[a5, a6, a1, a2, SP[a3, a4], n] - 
    S2[a2, n]*S2[a5, a6, a1, a3, a4, n] - S2[a5, a6, a1, a3, SP[a2, a4], n] - 
    S2[a2, n]*S2[a5, a6, a1, a4, a3, n] - S2[a5, a6, a1, a4, SP[a2, a3], n] - 
    S2[a5, a6, a1, SP[a2, a4], a3, n] + S2[a5, a6, a2, a1, SP[a3, a4], n] + 
    S2[a5, a6, a2, SP[a1, a4], a3, n] + S2[a5, SP[a1, a6], a2, a3, a4, n] + 
    S2[a5, SP[a1, a6], a2, a4, a3, n] + S2[a5, SP[a1, a6], a3, a2, a4, n] - 
    S2[a5, SP[a2, a6], a1, a3, a4, n] - S2[a5, SP[a2, a6], a1, a4, a3, n] + 
    S2[a5, n]*S2[a6, a1, a3, a4, a2, n] + S2[a6, a1, a3, a4, SP[a2, a5], n] + 
    S2[a6, a1, a3, SP[a4, a5], a2, n] + S2[a5, n]*S2[a6, a1, a4, a2, a3, n] + 
    S2[a6, a1, a4, a2, SP[a3, a5], n] + S2[a5, n]*S2[a6, a1, a4, a3, a2, n] + 
    S2[a6, a1, a4, a3, SP[a2, a5], n] + S2[a6, a1, a4, SP[a2, a5], a3, n] + 
    S2[a6, a1, a4, SP[a3, a5], a2, n] + S2[a6, a1, SP[a3, a5], a4, a2, n] + 
    S2[a6, a1, SP[a4, a5], a2, a3, n] + S2[a6, a1, SP[a4, a5], a3, a2, n] - 
    S2[a5, n]*S2[a6, a2, a4, a1, a3, n] - S2[a6, a2, a4, a1, SP[a3, a5], n] - 
    S2[a6, a2, a4, SP[a1, a5], a3, n] - S2[a6, a2, SP[a4, a5], a1, a3, n] + 
    S2[a2, n]*S2[a6, a4, a5, a1, a3, n] + S2[a6, a4, a5, a1, SP[a2, a3], n] + 
    S2[a6, a4, a5, SP[a1, a2], a3, n] + S2[a6, a4, SP[a2, a5], a1, a3, n] + 
    S2[a2, n]*S2[a6, a5, a4, a1, a3, n] + S2[a6, a5, a4, a1, SP[a2, a3], n] + 
    S2[a6, a5, a4, SP[a1, a2], a3, n] + S2[a6, a5, SP[a2, a4], a1, a3, n] + 
    S2[a6, SP[a1, a5], a3, a4, a2, n] + S2[a6, SP[a1, a5], a4, a2, a3, n] + 
    S2[a6, SP[a1, a5], a4, a3, a2, n] + S2[a6, SP[a2, a4], a5, a1, a3, n] + 
    S2[SP[a1, a3], a5, a6, a4, a2, n] - S2[SP[a1, a6], a3, a4, a2, a5, n] - 
    S2[SP[a1, a6], a3, a4, a5, a2, n] - S2[SP[a1, a6], a3, a5, a4, a2, n] - 
    S2[SP[a1, a6], a4, a2, a3, a5, n] - S2[SP[a1, a6], a4, a2, a5, a3, n] - 
    S2[SP[a1, a6], a4, a3, a2, a5, n] - S2[SP[a1, a6], a4, a3, a5, a2, n] - 
    S2[SP[a1, a6], a4, a5, a2, a3, n] - S2[SP[a1, a6], a4, a5, a3, a2, n] - 
    S2[SP[a1, a6], a5, a3, a4, a2, n] - S2[SP[a1, a6], a5, a4, a2, a3, n] - 
    S2[SP[a1, a6], a5, a4, a3, a2, n] + S2[SP[a2, a6], a4, a1, a3, a5, n] + 
    S2[SP[a2, a6], a4, a1, a5, a3, n] + S2[SP[a2, a6], a4, a5, a1, a3, n] + 
    S2[SP[a2, a6], a5, a4, a1, a3, n] + S2[SP[a5, a6], a1, a3, a4, a2, n] + 
    S2[SP[a5, a6], a1, a4, a2, a3, n] + S2[SP[a5, a6], a1, a4, a3, a2, n] - 
    S2[SP[a5, a6], a2, a4, a1, a3, n] - S2[a6, a4, a2, a5, a1, a3, n] - 
    S2[a6, a4, a5, a1, a2, a3, n] - S2[a6, a4, a5, a1, a3, a2, n] - 
    S2[a6, a4, a5, a2, a1, a3, n] - S2[a6, a5, a1, a3, a4, a2, n] - 
    S2[a6, a5, a1, a4, a2, a3, n] - S2[a6, a5, a1, a4, a3, a2, n] - 
    S2[a6, a5, a4, a1, a2, a3, n] - S2[a6, a5, a4, a1, a3, a2, n] - 
    S2[a6, a5, a4, a2, a1, a3, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a3_, a1_, a6_, a2_, a4_, a5_, n_] :> 
  S2[a1, a3, n]*S2[a2, a4, a5, a6, n] + S2[a1, a3, n]*S2[a2, a4, a6, a5, n] - 
    S2[a2, a4, SP[a1, a5], SP[a3, a6], n] - S2[a2, a4, SP[a1, a6], 
     SP[a3, a5], n] + S2[a1, a3, n]*S2[a2, a6, a4, a5, n] - 
    S2[a2, a6, SP[a1, a4], SP[a3, a5], n] - S2[a2, SP[a1, a4], a5, 
     SP[a3, a6], n] - S2[a2, SP[a1, a4], a6, SP[a3, a5], n] - 
    S2[a2, SP[a1, a4], SP[a3, a5], a6, n] - S2[a2, SP[a1, a4], SP[a3, a6], 
     a5, n] - S2[a2, SP[a1, a6], a4, SP[a3, a5], n] - 
    S2[a2, SP[a1, a6], SP[a3, a4], a5, n] - S2[SP[a1, a2], a4, a5, 
     SP[a3, a6], n] - S2[SP[a1, a2], a4, a6, SP[a3, a5], n] - 
    S2[SP[a1, a2], a4, SP[a3, a5], a6, n] - S2[SP[a1, a2], a4, SP[a3, a6], 
     a5, n] - S2[SP[a1, a2], a6, a4, SP[a3, a5], n] - 
    S2[SP[a1, a2], a6, SP[a3, a4], a5, n] - S2[SP[a1, a2], SP[a3, a4], a5, 
     a6, n] - S2[SP[a1, a2], SP[a3, a4], a6, a5, n] - 
    S2[SP[a1, a2], SP[a3, a6], a4, a5, n] + S2[a1, a2, a4, a5, SP[a3, a6], 
     n] + S2[a1, a2, a4, a6, SP[a3, a5], n] + S2[a1, a2, a4, SP[a3, a5], a6, 
     n] + S2[a1, a2, a4, SP[a3, a6], a5, n] + S2[a1, a2, a6, a4, SP[a3, a5], 
     n] + S2[a1, a2, a6, SP[a3, a4], a5, n] + S2[a1, a2, SP[a3, a4], a5, a6, 
     n] + S2[a1, a2, SP[a3, a4], a6, a5, n] + S2[a1, a2, SP[a3, a6], a4, a5, 
     n] + S2[a6, n]*S2[a1, a3, a4, a2, a5, n] + S2[a1, a3, a4, a2, 
     SP[a5, a6], n] + S2[a6, n]*S2[a1, a3, a4, a5, a2, n] - 
    S2[a2, n]*S2[a1, a3, a4, a5, a6, n] - 
    S2[a2, n]*S2[a1, a3, a4, a6, a5, n] - S2[a1, a3, a4, a6, SP[a2, a5], n] - 
    S2[a1, a3, a4, SP[a2, a5], a6, n] + S2[a1, a3, a4, SP[a5, a6], a2, n] - 
    S2[a2, n]*S2[a1, a3, a6, a4, a5, n] - S2[a1, a3, a6, a4, SP[a2, a5], n] - 
    S2[a1, a3, a6, SP[a2, a4], a5, n] - S2[a1, a3, SP[a2, a4], a5, a6, n] - 
    S2[a1, a3, SP[a2, a4], a6, a5, n] - S2[a1, a3, SP[a2, a6], a4, a5, n] + 
    S2[a1, a3, SP[a4, a6], a2, a5, n] + S2[a1, a3, SP[a4, a6], a5, a2, n] + 
    S2[a6, n]*S2[a1, a4, a2, a3, a5, n] + S2[a1, a4, a2, a3, SP[a5, a6], n] + 
    S2[a6, n]*S2[a1, a4, a2, a5, a3, n] + S2[a1, a4, a2, a5, SP[a3, a6], n] + 
    S2[a1, a4, a2, SP[a3, a6], a5, n] + S2[a1, a4, a2, SP[a5, a6], a3, n] + 
    S2[a6, n]*S2[a1, a4, a3, a2, a5, n] + S2[a1, a4, a3, a2, SP[a5, a6], n] + 
    S2[a6, n]*S2[a1, a4, a3, a5, a2, n] - 
    S2[a2, n]*S2[a1, a4, a3, a5, a6, n] - 
    S2[a2, n]*S2[a1, a4, a3, a6, a5, n] - S2[a1, a4, a3, a6, SP[a2, a5], n] - 
    S2[a1, a4, a3, SP[a2, a5], a6, n] + S2[a1, a4, a3, SP[a5, a6], a2, n] + 
    S2[a6, n]*S2[a1, a4, a5, a2, a3, n] + S2[a1, a4, a5, a2, SP[a3, a6], n] + 
    S2[a6, n]*S2[a1, a4, a5, a3, a2, n] - 
    S2[a2, n]*S2[a1, a4, a5, a3, a6, n] - 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] - S2[a1, a4, a5, a6, SP[a2, a3], n] - 
    S2[a1, a4, a5, SP[a2, a3], a6, n] + S2[a1, a4, a5, SP[a3, a6], a2, n] - 
    S2[a2, n]*S2[a1, a4, a6, a3, a5, n] - S2[a1, a4, a6, a3, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a4, a6, a5, a3, n] - S2[a1, a4, a6, a5, SP[a2, a3], n] - 
    S2[a1, a4, a6, SP[a2, a3], a5, n] - S2[a1, a4, a6, SP[a2, a5], a3, n] - 
    S2[a1, a4, SP[a2, a3], a5, a6, n] - S2[a1, a4, SP[a2, a3], a6, a5, n] - 
    S2[a1, a4, SP[a2, a5], a3, a6, n] - S2[a1, a4, SP[a2, a5], a6, a3, n] + 
    S2[a1, a4, SP[a3, a6], a2, a5, n] + S2[a1, a4, SP[a3, a6], a5, a2, n] + 
    S2[a1, a4, SP[a5, a6], a2, a3, n] + S2[a1, a4, SP[a5, a6], a3, a2, n] + 
    S2[a3, n]*S2[a1, a6, a2, a4, a5, n] + S2[a1, a6, a2, a4, SP[a3, a5], n] + 
    S2[a1, a6, a2, SP[a3, a4], a5, n] - S2[a2, n]*S2[a1, a6, a3, a4, a5, n] - 
    S2[a1, a6, a3, a4, SP[a2, a5], n] - S2[a1, a6, a3, SP[a2, a4], a5, n] - 
    S2[a2, n]*S2[a1, a6, a4, a3, a5, n] - S2[a1, a6, a4, a3, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a6, a4, a5, a3, n] - S2[a1, a6, a4, a5, SP[a2, a3], n] - 
    S2[a1, a6, a4, SP[a2, a3], a5, n] - S2[a1, a6, a4, SP[a2, a5], a3, n] - 
    S2[a1, a6, SP[a2, a4], a3, a5, n] - S2[a1, a6, SP[a2, a4], a5, a3, n] - 
    S2[a1, SP[a2, a4], a3, a5, a6, n] - S2[a1, SP[a2, a4], a3, a6, a5, n] - 
    S2[a1, SP[a2, a4], a5, a3, a6, n] - S2[a1, SP[a2, a4], a5, a6, a3, n] - 
    S2[a1, SP[a2, a4], a6, a3, a5, n] - S2[a1, SP[a2, a4], a6, a5, a3, n] - 
    S2[a1, SP[a2, a6], a3, a4, a5, n] - S2[a1, SP[a2, a6], a4, a3, a5, n] - 
    S2[a1, SP[a2, a6], a4, a5, a3, n] + S2[a1, SP[a3, a6], a2, a4, a5, n] + 
    S2[a1, SP[a3, a6], a4, a2, a5, n] + S2[a1, SP[a3, a6], a4, a5, a2, n] + 
    S2[a1, SP[a4, a6], a2, a3, a5, n] + S2[a1, SP[a4, a6], a2, a5, a3, n] + 
    S2[a1, SP[a4, a6], a3, a2, a5, n] + S2[a1, SP[a4, a6], a3, a5, a2, n] + 
    S2[a1, SP[a4, a6], a5, a2, a3, n] + S2[a1, SP[a4, a6], a5, a3, a2, n] + 
    S2[a2, a1, a4, a5, SP[a3, a6], n] + S2[a2, a1, a4, a6, SP[a3, a5], n] + 
    S2[a2, a1, a4, SP[a3, a5], a6, n] + S2[a2, a1, a4, SP[a3, a6], a5, n] + 
    S2[a2, a1, a6, a4, SP[a3, a5], n] + S2[a2, a1, a6, SP[a3, a4], a5, n] + 
    S2[a2, a1, SP[a3, a4], a5, a6, n] + S2[a2, a1, SP[a3, a4], a6, a5, n] + 
    S2[a2, a1, SP[a3, a6], a4, a5, n] - S2[a6, n]*S2[a2, a4, a1, a3, a5, n] - 
    S2[a2, a4, a1, a3, SP[a5, a6], n] - S2[a6, n]*S2[a2, a4, a1, a5, a3, n] + 
    S2[a2, a4, a1, a6, SP[a3, a5], n] + S2[a2, a4, a1, SP[a3, a5], a6, n] - 
    S2[a2, a4, a1, SP[a5, a6], a3, n] - S2[a6, n]*S2[a2, a4, a5, a1, a3, n] + 
    S2[a2, a4, a6, a1, SP[a3, a5], n] + S2[a2, a4, a6, SP[a1, a5], a3, n] + 
    S2[a2, a4, SP[a1, a5], a3, a6, n] + S2[a2, a4, SP[a1, a5], a6, a3, n] - 
    S2[a2, a4, SP[a5, a6], a1, a3, n] + S2[a2, a6, a1, a4, SP[a3, a5], n] + 
    S2[a2, a6, a1, SP[a3, a4], a5, n] + S2[a2, a6, a4, a1, SP[a3, a5], n] + 
    S2[a2, a6, a4, SP[a1, a5], a3, n] + S2[a2, a6, SP[a1, a4], a3, a5, n] + 
    S2[a2, a6, SP[a1, a4], a5, a3, n] + S2[a2, SP[a1, a4], a3, a5, a6, n] + 
    S2[a2, SP[a1, a4], a3, a6, a5, n] + S2[a2, SP[a1, a4], a5, a3, a6, n] + 
    S2[a2, SP[a1, a4], a5, a6, a3, n] + S2[a2, SP[a1, a4], a6, a3, a5, n] + 
    S2[a2, SP[a1, a4], a6, a5, a3, n] + S2[a2, SP[a1, a6], a3, a4, a5, n] + 
    S2[a2, SP[a1, a6], a4, a3, a5, n] + S2[a2, SP[a1, a6], a4, a5, a3, n] - 
    S2[a2, SP[a4, a6], a1, a3, a5, n] - S2[a2, SP[a4, a6], a1, a5, a3, n] - 
    S2[a2, SP[a4, a6], a5, a1, a3, n] - S2[a2, n]*S2[a6, a1, a3, a4, a5, n] - 
    S2[a6, a1, a3, a4, SP[a2, a5], n] - S2[a6, a1, a3, SP[a2, a4], a5, n] - 
    S2[a2, n]*S2[a6, a1, a4, a3, a5, n] - S2[a6, a1, a4, a3, SP[a2, a5], n] - 
    S2[a2, n]*S2[a6, a1, a4, a5, a3, n] - S2[a6, a1, a4, a5, SP[a2, a3], n] - 
    S2[a6, a1, a4, SP[a2, a3], a5, n] - S2[a6, a1, a4, SP[a2, a5], a3, n] - 
    S2[a6, a1, SP[a2, a3], a4, a5, n] - S2[a6, a1, SP[a2, a4], a3, a5, n] - 
    S2[a6, a1, SP[a2, a4], a5, a3, n] - S2[a6, SP[a1, a2], a3, a4, a5, n] - 
    S2[a6, SP[a1, a2], a4, a3, a5, n] - S2[a6, SP[a1, a2], a4, a5, a3, n] + 
    S2[SP[a1, a3], a6, a2, a4, a5, n] + S2[SP[a1, a6], a3, a4, a2, a5, n] + 
    S2[SP[a1, a6], a3, a4, a5, a2, n] + S2[SP[a1, a6], a4, a2, a3, a5, n] + 
    S2[SP[a1, a6], a4, a2, a5, a3, n] + S2[SP[a1, a6], a4, a3, a2, a5, n] + 
    S2[SP[a1, a6], a4, a3, a5, a2, n] + S2[SP[a1, a6], a4, a5, a2, a3, n] + 
    S2[SP[a1, a6], a4, a5, a3, a2, n] - S2[SP[a2, a6], a1, a3, a4, a5, n] - 
    S2[SP[a2, a6], a1, a4, a3, a5, n] - S2[SP[a2, a6], a1, a4, a5, a3, n] - 
    S2[SP[a2, a6], a4, a1, a3, a5, n] - S2[SP[a2, a6], a4, a1, a5, a3, n] - 
    S2[SP[a2, a6], a4, a5, a1, a3, n] + S2[a6, a1, a2, a3, a4, a5, n] + 
    S2[a6, a1, a2, a4, a3, a5, n] + S2[a6, a1, a2, a4, a5, a3, n] + 
    S2[a6, a1, a3, a2, a4, a5, n] + S2[a6, a2, a1, a3, a4, a5, n] + 
    S2[a6, a2, a1, a4, a3, a5, n] + S2[a6, a2, a1, a4, a5, a3, n] + 
    S2[a6, a2, a4, a1, a3, a5, n] + S2[a6, a2, a4, a1, a5, a3, n] + 
    S2[a6, a2, a4, a5, a1, a3, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a3_, a1_, a6_, a2_, a5_, a4_, n_] :> 
  S2[a1, a3, n]*S2[a2, a5, a4, a6, n] + S2[a1, a3, n]*S2[a2, a5, a6, a4, n] - 
    S2[a2, a5, SP[a1, a4], SP[a3, a6], n] - S2[a2, a5, SP[a1, a6], 
     SP[a3, a4], n] + S2[a1, a3, n]*S2[a2, a6, a5, a4, n] - 
    S2[a2, a6, SP[a1, a5], SP[a3, a4], n] - S2[a2, SP[a1, a5], a4, 
     SP[a3, a6], n] - S2[a2, SP[a1, a5], a6, SP[a3, a4], n] - 
    S2[a2, SP[a1, a5], SP[a3, a4], a6, n] - S2[a2, SP[a1, a5], SP[a3, a6], 
     a4, n] - S2[a2, SP[a1, a6], a5, SP[a3, a4], n] - 
    S2[a2, SP[a1, a6], SP[a3, a5], a4, n] - S2[SP[a1, a2], a5, a4, 
     SP[a3, a6], n] - S2[SP[a1, a2], a5, a6, SP[a3, a4], n] - 
    S2[SP[a1, a2], a5, SP[a3, a4], a6, n] - S2[SP[a1, a2], a5, SP[a3, a6], 
     a4, n] - S2[SP[a1, a2], a6, a5, SP[a3, a4], n] - 
    S2[SP[a1, a2], a6, SP[a3, a5], a4, n] - S2[SP[a1, a2], SP[a3, a5], a4, 
     a6, n] - S2[SP[a1, a2], SP[a3, a5], a6, a4, n] - 
    S2[SP[a1, a2], SP[a3, a6], a5, a4, n] + S2[a1, a2, a5, a4, SP[a3, a6], 
     n] + S2[a1, a2, a5, a6, SP[a3, a4], n] + S2[a1, a2, a5, SP[a3, a4], a6, 
     n] + S2[a1, a2, a5, SP[a3, a6], a4, n] + S2[a1, a2, a6, a5, SP[a3, a4], 
     n] + S2[a1, a2, a6, SP[a3, a5], a4, n] + S2[a1, a2, SP[a3, a5], a4, a6, 
     n] + S2[a1, a2, SP[a3, a5], a6, a4, n] + S2[a1, a2, SP[a3, a6], a5, a4, 
     n] + S2[a6, n]*S2[a1, a3, a5, a2, a4, n] + S2[a1, a3, a5, a2, 
     SP[a4, a6], n] + S2[a6, n]*S2[a1, a3, a5, a4, a2, n] - 
    S2[a2, n]*S2[a1, a3, a5, a4, a6, n] - 
    S2[a2, n]*S2[a1, a3, a5, a6, a4, n] - S2[a1, a3, a5, a6, SP[a2, a4], n] - 
    S2[a1, a3, a5, SP[a2, a4], a6, n] + S2[a1, a3, a5, SP[a4, a6], a2, n] - 
    S2[a2, n]*S2[a1, a3, a6, a5, a4, n] - S2[a1, a3, a6, a5, SP[a2, a4], n] - 
    S2[a1, a3, a6, SP[a2, a5], a4, n] - S2[a1, a3, SP[a2, a5], a4, a6, n] - 
    S2[a1, a3, SP[a2, a5], a6, a4, n] - S2[a1, a3, SP[a2, a6], a5, a4, n] + 
    S2[a1, a3, SP[a5, a6], a2, a4, n] + S2[a1, a3, SP[a5, a6], a4, a2, n] + 
    S2[a6, n]*S2[a1, a5, a2, a3, a4, n] + S2[a1, a5, a2, a3, SP[a4, a6], n] + 
    S2[a6, n]*S2[a1, a5, a2, a4, a3, n] + S2[a1, a5, a2, a4, SP[a3, a6], n] + 
    S2[a1, a5, a2, SP[a3, a6], a4, n] + S2[a1, a5, a2, SP[a4, a6], a3, n] + 
    S2[a6, n]*S2[a1, a5, a3, a2, a4, n] + S2[a1, a5, a3, a2, SP[a4, a6], n] + 
    S2[a6, n]*S2[a1, a5, a3, a4, a2, n] - 
    S2[a2, n]*S2[a1, a5, a3, a4, a6, n] - 
    S2[a2, n]*S2[a1, a5, a3, a6, a4, n] - S2[a1, a5, a3, a6, SP[a2, a4], n] - 
    S2[a1, a5, a3, SP[a2, a4], a6, n] + S2[a1, a5, a3, SP[a4, a6], a2, n] + 
    S2[a6, n]*S2[a1, a5, a4, a2, a3, n] + S2[a1, a5, a4, a2, SP[a3, a6], n] + 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] - 
    S2[a2, n]*S2[a1, a5, a4, a3, a6, n] - 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] - S2[a1, a5, a4, a6, SP[a2, a3], n] - 
    S2[a1, a5, a4, SP[a2, a3], a6, n] + S2[a1, a5, a4, SP[a3, a6], a2, n] - 
    S2[a2, n]*S2[a1, a5, a6, a3, a4, n] - S2[a1, a5, a6, a3, SP[a2, a4], n] - 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] - S2[a1, a5, a6, a4, SP[a2, a3], n] - 
    S2[a1, a5, a6, SP[a2, a3], a4, n] - S2[a1, a5, a6, SP[a2, a4], a3, n] - 
    S2[a1, a5, SP[a2, a3], a4, a6, n] - S2[a1, a5, SP[a2, a3], a6, a4, n] - 
    S2[a1, a5, SP[a2, a4], a3, a6, n] - S2[a1, a5, SP[a2, a4], a6, a3, n] + 
    S2[a1, a5, SP[a3, a6], a2, a4, n] + S2[a1, a5, SP[a3, a6], a4, a2, n] + 
    S2[a1, a5, SP[a4, a6], a2, a3, n] + S2[a1, a5, SP[a4, a6], a3, a2, n] + 
    S2[a3, n]*S2[a1, a6, a2, a5, a4, n] + S2[a1, a6, a2, a5, SP[a3, a4], n] + 
    S2[a1, a6, a2, SP[a3, a5], a4, n] - S2[a2, n]*S2[a1, a6, a3, a5, a4, n] - 
    S2[a1, a6, a3, a5, SP[a2, a4], n] - S2[a1, a6, a3, SP[a2, a5], a4, n] - 
    S2[a2, n]*S2[a1, a6, a5, a3, a4, n] - S2[a1, a6, a5, a3, SP[a2, a4], n] - 
    S2[a2, n]*S2[a1, a6, a5, a4, a3, n] - S2[a1, a6, a5, a4, SP[a2, a3], n] - 
    S2[a1, a6, a5, SP[a2, a3], a4, n] - S2[a1, a6, a5, SP[a2, a4], a3, n] - 
    S2[a1, a6, SP[a2, a5], a3, a4, n] - S2[a1, a6, SP[a2, a5], a4, a3, n] - 
    S2[a1, SP[a2, a5], a3, a4, a6, n] - S2[a1, SP[a2, a5], a3, a6, a4, n] - 
    S2[a1, SP[a2, a5], a4, a3, a6, n] - S2[a1, SP[a2, a5], a4, a6, a3, n] - 
    S2[a1, SP[a2, a5], a6, a3, a4, n] - S2[a1, SP[a2, a5], a6, a4, a3, n] - 
    S2[a1, SP[a2, a6], a3, a5, a4, n] - S2[a1, SP[a2, a6], a5, a3, a4, n] - 
    S2[a1, SP[a2, a6], a5, a4, a3, n] + S2[a1, SP[a3, a6], a2, a5, a4, n] + 
    S2[a1, SP[a3, a6], a5, a2, a4, n] + S2[a1, SP[a3, a6], a5, a4, a2, n] + 
    S2[a1, SP[a5, a6], a2, a3, a4, n] + S2[a1, SP[a5, a6], a2, a4, a3, n] + 
    S2[a1, SP[a5, a6], a3, a2, a4, n] + S2[a1, SP[a5, a6], a3, a4, a2, n] + 
    S2[a1, SP[a5, a6], a4, a2, a3, n] + S2[a1, SP[a5, a6], a4, a3, a2, n] + 
    S2[a2, a1, a5, a4, SP[a3, a6], n] + S2[a2, a1, a5, a6, SP[a3, a4], n] + 
    S2[a2, a1, a5, SP[a3, a4], a6, n] + S2[a2, a1, a5, SP[a3, a6], a4, n] + 
    S2[a2, a1, a6, a5, SP[a3, a4], n] + S2[a2, a1, a6, SP[a3, a5], a4, n] + 
    S2[a2, a1, SP[a3, a5], a4, a6, n] + S2[a2, a1, SP[a3, a5], a6, a4, n] + 
    S2[a2, a1, SP[a3, a6], a5, a4, n] - S2[a6, n]*S2[a2, a5, a1, a3, a4, n] - 
    S2[a2, a5, a1, a3, SP[a4, a6], n] - S2[a6, n]*S2[a2, a5, a1, a4, a3, n] + 
    S2[a2, a5, a1, a6, SP[a3, a4], n] + S2[a2, a5, a1, SP[a3, a4], a6, n] - 
    S2[a2, a5, a1, SP[a4, a6], a3, n] - S2[a6, n]*S2[a2, a5, a4, a1, a3, n] + 
    S2[a2, a5, a6, a1, SP[a3, a4], n] + S2[a2, a5, a6, SP[a1, a4], a3, n] + 
    S2[a2, a5, SP[a1, a4], a3, a6, n] + S2[a2, a5, SP[a1, a4], a6, a3, n] - 
    S2[a2, a5, SP[a4, a6], a1, a3, n] + S2[a2, a6, a1, a5, SP[a3, a4], n] + 
    S2[a2, a6, a1, SP[a3, a5], a4, n] + S2[a2, a6, a5, a1, SP[a3, a4], n] + 
    S2[a2, a6, a5, SP[a1, a4], a3, n] + S2[a2, a6, SP[a1, a5], a3, a4, n] + 
    S2[a2, a6, SP[a1, a5], a4, a3, n] + S2[a2, SP[a1, a5], a3, a4, a6, n] + 
    S2[a2, SP[a1, a5], a3, a6, a4, n] + S2[a2, SP[a1, a5], a4, a3, a6, n] + 
    S2[a2, SP[a1, a5], a4, a6, a3, n] + S2[a2, SP[a1, a5], a6, a3, a4, n] + 
    S2[a2, SP[a1, a5], a6, a4, a3, n] + S2[a2, SP[a1, a6], a3, a5, a4, n] + 
    S2[a2, SP[a1, a6], a5, a3, a4, n] + S2[a2, SP[a1, a6], a5, a4, a3, n] - 
    S2[a2, SP[a5, a6], a1, a3, a4, n] - S2[a2, SP[a5, a6], a1, a4, a3, n] - 
    S2[a2, SP[a5, a6], a4, a1, a3, n] - S2[a2, n]*S2[a6, a1, a3, a5, a4, n] - 
    S2[a6, a1, a3, a5, SP[a2, a4], n] - S2[a6, a1, a3, SP[a2, a5], a4, n] - 
    S2[a2, n]*S2[a6, a1, a5, a3, a4, n] - S2[a6, a1, a5, a3, SP[a2, a4], n] - 
    S2[a2, n]*S2[a6, a1, a5, a4, a3, n] - S2[a6, a1, a5, a4, SP[a2, a3], n] - 
    S2[a6, a1, a5, SP[a2, a3], a4, n] - S2[a6, a1, a5, SP[a2, a4], a3, n] - 
    S2[a6, a1, SP[a2, a3], a5, a4, n] - S2[a6, a1, SP[a2, a5], a3, a4, n] - 
    S2[a6, a1, SP[a2, a5], a4, a3, n] - S2[a6, SP[a1, a2], a3, a5, a4, n] - 
    S2[a6, SP[a1, a2], a5, a3, a4, n] - S2[a6, SP[a1, a2], a5, a4, a3, n] + 
    S2[SP[a1, a3], a6, a2, a5, a4, n] + S2[SP[a1, a6], a3, a5, a2, a4, n] + 
    S2[SP[a1, a6], a3, a5, a4, a2, n] + S2[SP[a1, a6], a5, a2, a3, a4, n] + 
    S2[SP[a1, a6], a5, a2, a4, a3, n] + S2[SP[a1, a6], a5, a3, a2, a4, n] + 
    S2[SP[a1, a6], a5, a3, a4, a2, n] + S2[SP[a1, a6], a5, a4, a2, a3, n] + 
    S2[SP[a1, a6], a5, a4, a3, a2, n] - S2[SP[a2, a6], a1, a3, a5, a4, n] - 
    S2[SP[a2, a6], a1, a5, a3, a4, n] - S2[SP[a2, a6], a1, a5, a4, a3, n] - 
    S2[SP[a2, a6], a5, a1, a3, a4, n] - S2[SP[a2, a6], a5, a1, a4, a3, n] - 
    S2[SP[a2, a6], a5, a4, a1, a3, n] + S2[a6, a1, a2, a3, a5, a4, n] + 
    S2[a6, a1, a2, a5, a3, a4, n] + S2[a6, a1, a2, a5, a4, a3, n] + 
    S2[a6, a1, a3, a2, a5, a4, n] + S2[a6, a2, a1, a3, a5, a4, n] + 
    S2[a6, a2, a1, a5, a3, a4, n] + S2[a6, a2, a1, a5, a4, a3, n] + 
    S2[a6, a2, a5, a1, a3, a4, n] + S2[a6, a2, a5, a1, a4, a3, n] + 
    S2[a6, a2, a5, a4, a1, a3, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a3_, a1_, a6_, a4_, a2_, a5_, n_] :> 
  -(S2[a1, a3, n]*S2[a2, a4, a5, a6, n]) - S2[a1, a3, n]*
     S2[a2, a4, a6, a5, n] + S2[a2, a4, SP[a1, a5], SP[a3, a6], n] + 
    S2[a2, a4, SP[a1, a6], SP[a3, a5], n] - S2[a1, a3, n]*
     S2[a2, a5, a4, a6, n] - S2[a1, a3, n]*S2[a2, a5, a6, a4, n] + 
    S2[a2, a5, SP[a1, a4], SP[a3, a6], n] + S2[a2, a5, SP[a1, a6], 
     SP[a3, a4], n] - S2[a1, a3, n]*S2[a2, a6, a4, a5, n] - 
    S2[a1, a3, n]*S2[a2, a6, a5, a4, n] + S2[a2, a6, SP[a1, a4], SP[a3, a5], 
     n] + S2[a2, a6, SP[a1, a5], SP[a3, a4], n] + S2[a2, SP[a1, a4], a5, 
     SP[a3, a6], n] + S2[a2, SP[a1, a4], a6, SP[a3, a5], n] + 
    S2[a2, SP[a1, a4], SP[a3, a5], a6, n] + S2[a2, SP[a1, a4], SP[a3, a6], 
     a5, n] + S2[a2, SP[a1, a5], a4, SP[a3, a6], n] + 
    S2[a2, SP[a1, a5], a6, SP[a3, a4], n] + S2[a2, SP[a1, a5], SP[a3, a4], 
     a6, n] + S2[a2, SP[a1, a5], SP[a3, a6], a4, n] + 
    S2[a2, SP[a1, a6], a4, SP[a3, a5], n] + S2[a2, SP[a1, a6], a5, 
     SP[a3, a4], n] + S2[a2, SP[a1, a6], SP[a3, a4], a5, n] + 
    S2[a2, SP[a1, a6], SP[a3, a5], a4, n] + S2[a1, a3, n]*
     S2[a4, a6, a2, a5, n] - S2[a4, a6, SP[a1, a2], SP[a3, a5], n] - 
    S2[a4, SP[a1, a6], a2, SP[a3, a5], n] - S2[a4, SP[a1, a6], SP[a2, a3], 
     a5, n] + S2[SP[a1, a2], a4, a5, SP[a3, a6], n] + 
    S2[SP[a1, a2], a4, a6, SP[a3, a5], n] + S2[SP[a1, a2], a4, SP[a3, a5], 
     a6, n] + S2[SP[a1, a2], a4, SP[a3, a6], a5, n] + 
    S2[SP[a1, a2], a5, a4, SP[a3, a6], n] + S2[SP[a1, a2], a5, a6, 
     SP[a3, a4], n] + S2[SP[a1, a2], a5, SP[a3, a4], a6, n] + 
    S2[SP[a1, a2], a5, SP[a3, a6], a4, n] + S2[SP[a1, a2], a6, a4, 
     SP[a3, a5], n] + S2[SP[a1, a2], a6, a5, SP[a3, a4], n] + 
    S2[SP[a1, a2], a6, SP[a3, a4], a5, n] + S2[SP[a1, a2], a6, SP[a3, a5], 
     a4, n] + S2[SP[a1, a2], SP[a3, a4], a5, a6, n] + 
    S2[SP[a1, a2], SP[a3, a4], a6, a5, n] + S2[SP[a1, a2], SP[a3, a5], a4, 
     a6, n] + S2[SP[a1, a2], SP[a3, a5], a6, a4, n] + 
    S2[SP[a1, a2], SP[a3, a6], a4, a5, n] + S2[SP[a1, a2], SP[a3, a6], a5, 
     a4, n] - S2[SP[a1, a4], a6, a2, SP[a3, a5], n] - 
    S2[SP[a1, a4], a6, SP[a2, a3], a5, n] - S2[SP[a1, a4], SP[a3, a6], a2, 
     a5, n] - S2[a1, a2, a4, a5, SP[a3, a6], n] - 
    S2[a1, a2, a4, a6, SP[a3, a5], n] - S2[a1, a2, a4, SP[a3, a5], a6, n] - 
    S2[a1, a2, a4, SP[a3, a6], a5, n] - S2[a1, a2, a5, a4, SP[a3, a6], n] - 
    S2[a1, a2, a5, a6, SP[a3, a4], n] - S2[a1, a2, a5, SP[a3, a4], a6, n] - 
    S2[a1, a2, a5, SP[a3, a6], a4, n] - S2[a1, a2, a6, a4, SP[a3, a5], n] - 
    S2[a1, a2, a6, a5, SP[a3, a4], n] - S2[a1, a2, a6, SP[a3, a4], a5, n] - 
    S2[a1, a2, a6, SP[a3, a5], a4, n] - S2[a1, a2, SP[a3, a4], a5, a6, n] - 
    S2[a1, a2, SP[a3, a4], a6, a5, n] - S2[a1, a2, SP[a3, a5], a4, a6, n] - 
    S2[a1, a2, SP[a3, a5], a6, a4, n] - S2[a1, a2, SP[a3, a6], a4, a5, n] - 
    S2[a1, a2, SP[a3, a6], a5, a4, n] - S2[a6, n]*S2[a1, a3, a4, a2, a5, n] - 
    S2[a1, a3, a4, a2, SP[a5, a6], n] - S2[a6, n]*S2[a1, a3, a4, a5, a2, n] + 
    S2[a2, n]*S2[a1, a3, a4, a5, a6, n] + 
    S2[a2, n]*S2[a1, a3, a4, a6, a5, n] + S2[a1, a3, a4, a6, SP[a2, a5], n] + 
    S2[a1, a3, a4, SP[a2, a5], a6, n] - S2[a1, a3, a4, SP[a5, a6], a2, n] - 
    S2[a6, n]*S2[a1, a3, a5, a2, a4, n] - S2[a1, a3, a5, a2, SP[a4, a6], n] - 
    S2[a6, n]*S2[a1, a3, a5, a4, a2, n] + 
    S2[a2, n]*S2[a1, a3, a5, a4, a6, n] + 
    S2[a2, n]*S2[a1, a3, a5, a6, a4, n] + S2[a1, a3, a5, a6, SP[a2, a4], n] + 
    S2[a1, a3, a5, SP[a2, a4], a6, n] - S2[a1, a3, a5, SP[a4, a6], a2, n] - 
    S2[a4, n]*S2[a1, a3, a6, a2, a5, n] - S2[a1, a3, a6, a2, SP[a4, a5], n] + 
    S2[a2, n]*S2[a1, a3, a6, a4, a5, n] + S2[a1, a3, a6, a4, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a3, a6, a5, a4, n] + S2[a1, a3, a6, a5, SP[a2, a4], n] + 
    S2[a1, a3, a6, SP[a2, a5], a4, n] + S2[a1, a3, SP[a2, a4], a5, a6, n] + 
    S2[a1, a3, SP[a2, a4], a6, a5, n] + S2[a1, a3, SP[a2, a5], a4, a6, n] + 
    S2[a1, a3, SP[a2, a5], a6, a4, n] + S2[a1, a3, SP[a2, a6], a4, a5, n] + 
    S2[a1, a3, SP[a2, a6], a5, a4, n] - 2*S2[a1, a3, SP[a4, a6], a2, a5, n] - 
    S2[a1, a3, SP[a4, a6], a5, a2, n] - S2[a1, a3, SP[a5, a6], a2, a4, n] - 
    S2[a1, a3, SP[a5, a6], a4, a2, n] - S2[a6, n]*S2[a1, a4, a2, a3, a5, n] - 
    S2[a1, a4, a2, a3, SP[a5, a6], n] - S2[a6, n]*S2[a1, a4, a2, a5, a3, n] - 
    S2[a1, a4, a2, a5, SP[a3, a6], n] - S2[a1, a4, a2, SP[a3, a6], a5, n] - 
    S2[a1, a4, a2, SP[a5, a6], a3, n] - S2[a6, n]*S2[a1, a4, a3, a2, a5, n] - 
    S2[a1, a4, a3, a2, SP[a5, a6], n] - S2[a6, n]*S2[a1, a4, a3, a5, a2, n] + 
    S2[a2, n]*S2[a1, a4, a3, a5, a6, n] + 
    S2[a2, n]*S2[a1, a4, a3, a6, a5, n] + S2[a1, a4, a3, a6, SP[a2, a5], n] + 
    S2[a1, a4, a3, SP[a2, a5], a6, n] - S2[a1, a4, a3, SP[a5, a6], a2, n] - 
    S2[a6, n]*S2[a1, a4, a5, a2, a3, n] - S2[a1, a4, a5, a2, SP[a3, a6], n] - 
    S2[a6, n]*S2[a1, a4, a5, a3, a2, n] + 
    S2[a2, n]*S2[a1, a4, a5, a3, a6, n] + 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] + S2[a1, a4, a5, a6, SP[a2, a3], n] + 
    S2[a1, a4, a5, SP[a2, a3], a6, n] - S2[a1, a4, a5, SP[a3, a6], a2, n] + 
    S2[a1, a4, a6, a2, SP[a3, a5], n] + S2[a2, n]*S2[a1, a4, a6, a3, a5, n] + 
    S2[a1, a4, a6, a3, SP[a2, a5], n] + S2[a2, n]*S2[a1, a4, a6, a5, a3, n] + 
    S2[a1, a4, a6, a5, SP[a2, a3], n] + 2*S2[a1, a4, a6, SP[a2, a3], a5, n] + 
    S2[a1, a4, a6, SP[a2, a5], a3, n] + S2[a1, a4, SP[a2, a3], a5, a6, n] + 
    S2[a1, a4, SP[a2, a3], a6, a5, n] + S2[a1, a4, SP[a2, a5], a3, a6, n] + 
    S2[a1, a4, SP[a2, a5], a6, a3, n] - S2[a1, a4, SP[a3, a6], a5, a2, n] - 
    S2[a1, a4, SP[a5, a6], a2, a3, n] - S2[a1, a4, SP[a5, a6], a3, a2, n] - 
    S2[a6, n]*S2[a1, a5, a2, a3, a4, n] - S2[a1, a5, a2, a3, SP[a4, a6], n] - 
    S2[a6, n]*S2[a1, a5, a2, a4, a3, n] - S2[a1, a5, a2, a4, SP[a3, a6], n] - 
    S2[a1, a5, a2, SP[a3, a6], a4, n] - S2[a1, a5, a2, SP[a4, a6], a3, n] - 
    S2[a6, n]*S2[a1, a5, a3, a2, a4, n] - S2[a1, a5, a3, a2, SP[a4, a6], n] - 
    S2[a6, n]*S2[a1, a5, a3, a4, a2, n] + 
    S2[a2, n]*S2[a1, a5, a3, a4, a6, n] + 
    S2[a2, n]*S2[a1, a5, a3, a6, a4, n] + S2[a1, a5, a3, a6, SP[a2, a4], n] + 
    S2[a1, a5, a3, SP[a2, a4], a6, n] - S2[a1, a5, a3, SP[a4, a6], a2, n] - 
    S2[a6, n]*S2[a1, a5, a4, a2, a3, n] - S2[a1, a5, a4, a2, SP[a3, a6], n] - 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] + 
    S2[a2, n]*S2[a1, a5, a4, a3, a6, n] + 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] + S2[a1, a5, a4, a6, SP[a2, a3], n] + 
    S2[a1, a5, a4, SP[a2, a3], a6, n] - S2[a1, a5, a4, SP[a3, a6], a2, n] + 
    S2[a2, n]*S2[a1, a5, a6, a3, a4, n] + S2[a1, a5, a6, a3, SP[a2, a4], n] + 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] + S2[a1, a5, a6, a4, SP[a2, a3], n] + 
    S2[a1, a5, a6, SP[a2, a3], a4, n] + S2[a1, a5, a6, SP[a2, a4], a3, n] + 
    S2[a1, a5, SP[a2, a3], a4, a6, n] + S2[a1, a5, SP[a2, a3], a6, a4, n] + 
    S2[a1, a5, SP[a2, a4], a3, a6, n] + S2[a1, a5, SP[a2, a4], a6, a3, n] - 
    S2[a1, a5, SP[a3, a6], a2, a4, n] - S2[a1, a5, SP[a3, a6], a4, a2, n] - 
    S2[a1, a5, SP[a4, a6], a2, a3, n] - S2[a1, a5, SP[a4, a6], a3, a2, n] - 
    S2[a4, n]*S2[a1, a6, a2, a3, a5, n] - S2[a1, a6, a2, a3, SP[a4, a5], n] - 
    S2[a4, n]*S2[a1, a6, a2, a5, a3, n] - S2[a1, a6, a2, a5, SP[a3, a4], n] - 
    S2[a1, a6, a2, SP[a3, a4], a5, n] - S2[a1, a6, a2, SP[a4, a5], a3, n] - 
    S2[a4, n]*S2[a1, a6, a3, a2, a5, n] - S2[a1, a6, a3, a2, SP[a4, a5], n] + 
    S2[a2, n]*S2[a1, a6, a3, a4, a5, n] + S2[a1, a6, a3, a4, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a6, a3, a5, a4, n] + S2[a1, a6, a3, a5, SP[a2, a4], n] + 
    S2[a1, a6, a3, SP[a2, a5], a4, n] + S2[a3, n]*S2[a1, a6, a4, a2, a5, n] + 
    S2[a1, a6, a4, a2, SP[a3, a5], n] + S2[a2, n]*S2[a1, a6, a4, a3, a5, n] + 
    S2[a1, a6, a4, a3, SP[a2, a5], n] + S2[a2, n]*S2[a1, a6, a4, a5, a3, n] + 
    S2[a1, a6, a4, a5, SP[a2, a3], n] + 2*S2[a1, a6, a4, SP[a2, a3], a5, n] + 
    S2[a1, a6, a4, SP[a2, a5], a3, n] + S2[a2, n]*S2[a1, a6, a5, a3, a4, n] + 
    S2[a1, a6, a5, a3, SP[a2, a4], n] + S2[a2, n]*S2[a1, a6, a5, a4, a3, n] + 
    S2[a1, a6, a5, a4, SP[a2, a3], n] + S2[a1, a6, a5, SP[a2, a3], a4, n] + 
    S2[a1, a6, a5, SP[a2, a4], a3, n] + S2[a1, a6, SP[a2, a3], a4, a5, n] + 
    S2[a1, a6, SP[a2, a3], a5, a4, n] + S2[a1, a6, SP[a2, a5], a3, a4, n] + 
    S2[a1, a6, SP[a2, a5], a4, a3, n] + S2[a1, SP[a2, a4], a3, a5, a6, n] + 
    S2[a1, SP[a2, a4], a3, a6, a5, n] + S2[a1, SP[a2, a4], a5, a3, a6, n] + 
    S2[a1, SP[a2, a4], a5, a6, a3, n] + S2[a1, SP[a2, a4], a6, a3, a5, n] + 
    S2[a1, SP[a2, a4], a6, a5, a3, n] + S2[a1, SP[a2, a5], a3, a4, a6, n] + 
    S2[a1, SP[a2, a5], a3, a6, a4, n] + S2[a1, SP[a2, a5], a4, a3, a6, n] + 
    S2[a1, SP[a2, a5], a4, a6, a3, n] + S2[a1, SP[a2, a5], a6, a3, a4, n] + 
    S2[a1, SP[a2, a5], a6, a4, a3, n] + S2[a1, SP[a2, a6], a3, a4, a5, n] + 
    S2[a1, SP[a2, a6], a3, a5, a4, n] + S2[a1, SP[a2, a6], a4, a3, a5, n] + 
    S2[a1, SP[a2, a6], a4, a5, a3, n] + S2[a1, SP[a2, a6], a5, a3, a4, n] + 
    S2[a1, SP[a2, a6], a5, a4, a3, n] - S2[a1, SP[a3, a6], a4, a5, a2, n] - 
    S2[a1, SP[a3, a6], a5, a2, a4, n] - S2[a1, SP[a3, a6], a5, a4, a2, n] - 
    2*S2[a1, SP[a4, a6], a2, a3, a5, n] - 
    2*S2[a1, SP[a4, a6], a2, a5, a3, n] - 
    2*S2[a1, SP[a4, a6], a3, a2, a5, n] - S2[a1, SP[a4, a6], a3, a5, a2, n] - 
    S2[a1, SP[a4, a6], a5, a2, a3, n] - S2[a1, SP[a4, a6], a5, a3, a2, n] - 
    S2[a1, SP[a5, a6], a2, a3, a4, n] - S2[a1, SP[a5, a6], a2, a4, a3, n] - 
    S2[a1, SP[a5, a6], a3, a2, a4, n] - S2[a1, SP[a5, a6], a3, a4, a2, n] - 
    S2[a1, SP[a5, a6], a4, a2, a3, n] - S2[a1, SP[a5, a6], a4, a3, a2, n] - 
    S2[a2, a1, a4, a5, SP[a3, a6], n] - S2[a2, a1, a4, a6, SP[a3, a5], n] - 
    S2[a2, a1, a4, SP[a3, a5], a6, n] - S2[a2, a1, a4, SP[a3, a6], a5, n] - 
    S2[a2, a1, a5, a4, SP[a3, a6], n] - S2[a2, a1, a5, a6, SP[a3, a4], n] - 
    S2[a2, a1, a5, SP[a3, a4], a6, n] - S2[a2, a1, a5, SP[a3, a6], a4, n] - 
    S2[a2, a1, a6, a4, SP[a3, a5], n] - S2[a2, a1, a6, a5, SP[a3, a4], n] - 
    S2[a2, a1, a6, SP[a3, a4], a5, n] - S2[a2, a1, a6, SP[a3, a5], a4, n] - 
    S2[a2, a1, SP[a3, a4], a5, a6, n] - S2[a2, a1, SP[a3, a4], a6, a5, n] - 
    S2[a2, a1, SP[a3, a5], a4, a6, n] - S2[a2, a1, SP[a3, a5], a6, a4, n] - 
    S2[a2, a1, SP[a3, a6], a4, a5, n] - S2[a2, a1, SP[a3, a6], a5, a4, n] + 
    S2[a6, n]*S2[a2, a4, a1, a3, a5, n] + S2[a2, a4, a1, a3, SP[a5, a6], n] + 
    S2[a6, n]*S2[a2, a4, a1, a5, a3, n] - S2[a2, a4, a1, a6, SP[a3, a5], n] - 
    S2[a2, a4, a1, SP[a3, a5], a6, n] + S2[a2, a4, a1, SP[a5, a6], a3, n] + 
    S2[a6, n]*S2[a2, a4, a5, a1, a3, n] - S2[a2, a4, a6, a1, SP[a3, a5], n] - 
    S2[a2, a4, a6, SP[a1, a5], a3, n] - S2[a2, a4, SP[a1, a5], a3, a6, n] - 
    S2[a2, a4, SP[a1, a5], a6, a3, n] + S2[a2, a4, SP[a5, a6], a1, a3, n] + 
    S2[a6, n]*S2[a2, a5, a1, a3, a4, n] + S2[a2, a5, a1, a3, SP[a4, a6], n] + 
    S2[a6, n]*S2[a2, a5, a1, a4, a3, n] - S2[a2, a5, a1, a6, SP[a3, a4], n] - 
    S2[a2, a5, a1, SP[a3, a4], a6, n] + S2[a2, a5, a1, SP[a4, a6], a3, n] + 
    S2[a6, n]*S2[a2, a5, a4, a1, a3, n] - S2[a2, a5, a6, a1, SP[a3, a4], n] - 
    S2[a2, a5, a6, SP[a1, a4], a3, n] - S2[a2, a5, SP[a1, a4], a3, a6, n] - 
    S2[a2, a5, SP[a1, a4], a6, a3, n] + S2[a2, a5, SP[a4, a6], a1, a3, n] + 
    S2[a4, n]*S2[a2, a6, a1, a3, a5, n] + S2[a2, a6, a1, a3, SP[a4, a5], n] - 
    S2[a2, a6, a1, a4, SP[a3, a5], n] + S2[a4, n]*S2[a2, a6, a1, a5, a3, n] - 
    S2[a2, a6, a1, SP[a3, a5], a4, n] + S2[a2, a6, a1, SP[a4, a5], a3, n] - 
    S2[a2, a6, a4, a1, SP[a3, a5], n] - S2[a2, a6, a4, SP[a1, a5], a3, n] - 
    S2[a2, a6, a5, a1, SP[a3, a4], n] - S2[a2, a6, a5, SP[a1, a4], a3, n] - 
    S2[a2, a6, SP[a1, a5], a3, a4, n] - S2[a2, a6, SP[a1, a5], a4, a3, n] - 
    S2[a2, SP[a1, a4], a3, a5, a6, n] - S2[a2, SP[a1, a4], a3, a6, a5, n] - 
    S2[a2, SP[a1, a4], a5, a3, a6, n] - S2[a2, SP[a1, a4], a5, a6, a3, n] - 
    S2[a2, SP[a1, a4], a6, a3, a5, n] - S2[a2, SP[a1, a4], a6, a5, a3, n] - 
    S2[a2, SP[a1, a5], a3, a4, a6, n] - S2[a2, SP[a1, a5], a3, a6, a4, n] - 
    S2[a2, SP[a1, a5], a4, a3, a6, n] - S2[a2, SP[a1, a5], a4, a6, a3, n] - 
    S2[a2, SP[a1, a5], a6, a3, a4, n] - S2[a2, SP[a1, a5], a6, a4, a3, n] - 
    S2[a2, SP[a1, a6], a3, a4, a5, n] - S2[a2, SP[a1, a6], a3, a5, a4, n] - 
    S2[a2, SP[a1, a6], a4, a3, a5, n] - S2[a2, SP[a1, a6], a4, a5, a3, n] - 
    S2[a2, SP[a1, a6], a5, a3, a4, n] - S2[a2, SP[a1, a6], a5, a4, a3, n] + 
    2*S2[a2, SP[a4, a6], a1, a3, a5, n] + 
    2*S2[a2, SP[a4, a6], a1, a5, a3, n] + S2[a2, SP[a4, a6], a5, a1, a3, n] + 
    S2[a2, SP[a5, a6], a1, a3, a4, n] + S2[a2, SP[a5, a6], a1, a4, a3, n] + 
    S2[a2, SP[a5, a6], a4, a1, a3, n] + S2[a4, a1, a6, a2, SP[a3, a5], n] + 
    S2[a4, a1, a6, SP[a2, a3], a5, n] + S2[a4, a1, SP[a3, a6], a2, a5, n] + 
    S2[a4, a6, a1, a2, SP[a3, a5], n] - S2[a2, n]*S2[a4, a6, a1, a3, a5, n] - 
    S2[a4, a6, a1, a3, SP[a2, a5], n] - S2[a2, n]*S2[a4, a6, a1, a5, a3, n] - 
    S2[a4, a6, a1, a5, SP[a2, a3], n] - S2[a4, a6, a1, SP[a2, a5], a3, n] + 
    S2[a4, a6, a2, a1, SP[a3, a5], n] + S2[a4, a6, a2, SP[a1, a5], a3, n] + 
    S2[a4, SP[a1, a6], a2, a3, a5, n] + S2[a4, SP[a1, a6], a2, a5, a3, n] + 
    S2[a4, SP[a1, a6], a3, a2, a5, n] - S2[a4, SP[a2, a6], a1, a3, a5, n] - 
    S2[a4, SP[a2, a6], a1, a5, a3, n] + S2[a4, n]*S2[a6, a1, a3, a5, a2, n] + 
    S2[a6, a1, a3, a5, SP[a2, a4], n] + S2[a6, a1, a3, SP[a4, a5], a2, n] + 
    S2[a4, n]*S2[a6, a1, a5, a2, a3, n] + S2[a6, a1, a5, a2, SP[a3, a4], n] + 
    S2[a4, n]*S2[a6, a1, a5, a3, a2, n] + S2[a6, a1, a5, a3, SP[a2, a4], n] + 
    S2[a6, a1, a5, SP[a2, a4], a3, n] + S2[a6, a1, a5, SP[a3, a4], a2, n] + 
    S2[a6, a1, SP[a3, a4], a5, a2, n] + S2[a6, a1, SP[a4, a5], a2, a3, n] + 
    S2[a6, a1, SP[a4, a5], a3, a2, n] - S2[a4, n]*S2[a6, a2, a5, a1, a3, n] - 
    S2[a6, a2, a5, a1, SP[a3, a4], n] - S2[a6, a2, a5, SP[a1, a4], a3, n] - 
    S2[a6, a2, SP[a4, a5], a1, a3, n] - S2[a2, n]*S2[a6, a4, a1, a3, a5, n] - 
    S2[a6, a4, a1, a3, SP[a2, a5], n] - S2[a2, n]*S2[a6, a4, a1, a5, a3, n] - 
    S2[a6, a4, a1, a5, SP[a2, a3], n] - S2[a6, a4, a1, SP[a2, a3], a5, n] - 
    S2[a6, a4, a1, SP[a2, a5], a3, n] - S2[a6, a4, SP[a1, a2], a3, a5, n] - 
    S2[a6, a4, SP[a1, a2], a5, a3, n] + S2[a6, SP[a1, a4], a3, a5, a2, n] + 
    S2[a6, SP[a1, a4], a5, a2, a3, n] + S2[a6, SP[a1, a4], a5, a3, a2, n] - 
    S2[a6, SP[a2, a4], a1, a3, a5, n] - S2[a6, SP[a2, a4], a1, a5, a3, n] - 
    S2[a6, SP[a2, a4], a5, a1, a3, n] + S2[SP[a1, a3], a6, a4, a2, a5, n] - 
    S2[SP[a1, a6], a3, a4, a2, a5, n] - S2[SP[a1, a6], a3, a4, a5, a2, n] - 
    S2[SP[a1, a6], a3, a5, a2, a4, n] - S2[SP[a1, a6], a3, a5, a4, a2, n] - 
    S2[SP[a1, a6], a4, a2, a3, a5, n] - S2[SP[a1, a6], a4, a2, a5, a3, n] - 
    S2[SP[a1, a6], a4, a3, a2, a5, n] - S2[SP[a1, a6], a4, a3, a5, a2, n] - 
    S2[SP[a1, a6], a4, a5, a2, a3, n] - S2[SP[a1, a6], a4, a5, a3, a2, n] - 
    S2[SP[a1, a6], a5, a2, a3, a4, n] - S2[SP[a1, a6], a5, a2, a4, a3, n] - 
    S2[SP[a1, a6], a5, a3, a2, a4, n] - S2[SP[a1, a6], a5, a3, a4, a2, n] - 
    S2[SP[a1, a6], a5, a4, a2, a3, n] - S2[SP[a1, a6], a5, a4, a3, a2, n] + 
    S2[SP[a2, a6], a4, a5, a1, a3, n] + S2[SP[a2, a6], a5, a1, a3, a4, n] + 
    S2[SP[a2, a6], a5, a1, a4, a3, n] + S2[SP[a2, a6], a5, a4, a1, a3, n] + 
    S2[SP[a4, a6], a1, a3, a5, a2, n] + S2[SP[a4, a6], a1, a5, a2, a3, n] + 
    S2[SP[a4, a6], a1, a5, a3, a2, n] - S2[SP[a4, a6], a2, a5, a1, a3, n] + 
    S2[a6, a1, a3, a4, a2, a5, n] + S2[a6, a1, a4, a2, a3, a5, n] + 
    S2[a6, a1, a4, a2, a5, a3, n] + S2[a6, a1, a4, a3, a2, a5, n] + 
    S2[a6, a4, a1, a2, a3, a5, n] + S2[a6, a4, a1, a2, a5, a3, n] + 
    S2[a6, a4, a1, a3, a2, a5, n] + S2[a6, a4, a2, a1, a3, a5, n] + 
    S2[a6, a4, a2, a1, a5, a3, n] + S2[a6, a4, a2, a5, a1, a3, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a3_, a1_, a6_, a4_, a5_, a2_, n_] :> 
  S2[a1, a3, n]*S2[a2, a5, a4, a6, n] + S2[a1, a3, n]*S2[a2, a5, a6, a4, n] - 
    S2[a2, a5, SP[a1, a4], SP[a3, a6], n] - S2[a2, a5, SP[a1, a6], 
     SP[a3, a4], n] + S2[a1, a3, n]*S2[a2, a6, a4, a5, n] + 
    S2[a1, a3, n]*S2[a2, a6, a5, a4, n] - S2[a2, a6, SP[a1, a4], SP[a3, a5], 
     n] - S2[a2, a6, SP[a1, a5], SP[a3, a4], n] - S2[a2, SP[a1, a5], a4, 
     SP[a3, a6], n] - S2[a2, SP[a1, a5], a6, SP[a3, a4], n] - 
    S2[a2, SP[a1, a5], SP[a3, a4], a6, n] - S2[a2, SP[a1, a5], SP[a3, a6], 
     a4, n] - S2[a2, SP[a1, a6], a4, SP[a3, a5], n] - 
    S2[a2, SP[a1, a6], a5, SP[a3, a4], n] - S2[a2, SP[a1, a6], SP[a3, a4], 
     a5, n] - S2[a2, SP[a1, a6], SP[a3, a5], a4, n] - 
    S2[a1, a3, n]*S2[a4, a6, a2, a5, n] + S2[a4, a6, SP[a1, a2], SP[a3, a5], 
     n] + S2[a4, SP[a1, a6], a2, SP[a3, a5], n] + 
    S2[a4, SP[a1, a6], SP[a2, a3], a5, n] - S2[SP[a1, a2], a5, a4, 
     SP[a3, a6], n] - S2[SP[a1, a2], a5, a6, SP[a3, a4], n] - 
    S2[SP[a1, a2], a5, SP[a3, a4], a6, n] - S2[SP[a1, a2], a5, SP[a3, a6], 
     a4, n] - S2[SP[a1, a2], a6, a4, SP[a3, a5], n] - 
    S2[SP[a1, a2], a6, a5, SP[a3, a4], n] - S2[SP[a1, a2], a6, SP[a3, a4], 
     a5, n] - S2[SP[a1, a2], a6, SP[a3, a5], a4, n] - 
    S2[SP[a1, a2], SP[a3, a5], a4, a6, n] - S2[SP[a1, a2], SP[a3, a5], a6, 
     a4, n] - S2[SP[a1, a2], SP[a3, a6], a4, a5, n] - 
    S2[SP[a1, a2], SP[a3, a6], a5, a4, n] + S2[SP[a1, a4], a6, a2, 
     SP[a3, a5], n] + S2[SP[a1, a4], a6, SP[a2, a3], a5, n] + 
    S2[SP[a1, a4], SP[a3, a6], a2, a5, n] + S2[a1, a2, a5, a4, SP[a3, a6], 
     n] + S2[a1, a2, a5, a6, SP[a3, a4], n] + S2[a1, a2, a5, SP[a3, a4], a6, 
     n] + S2[a1, a2, a5, SP[a3, a6], a4, n] + S2[a1, a2, a6, a4, SP[a3, a5], 
     n] + S2[a1, a2, a6, a5, SP[a3, a4], n] + S2[a1, a2, a6, SP[a3, a4], a5, 
     n] + S2[a1, a2, a6, SP[a3, a5], a4, n] + S2[a1, a2, SP[a3, a5], a4, a6, 
     n] + S2[a1, a2, SP[a3, a5], a6, a4, n] + S2[a1, a2, SP[a3, a6], a4, a5, 
     n] + S2[a1, a2, SP[a3, a6], a5, a4, n] + 
    S2[a6, n]*S2[a1, a3, a5, a2, a4, n] + S2[a1, a3, a5, a2, SP[a4, a6], n] + 
    S2[a6, n]*S2[a1, a3, a5, a4, a2, n] - 
    S2[a2, n]*S2[a1, a3, a5, a4, a6, n] - 
    S2[a2, n]*S2[a1, a3, a5, a6, a4, n] - S2[a1, a3, a5, a6, SP[a2, a4], n] - 
    S2[a1, a3, a5, SP[a2, a4], a6, n] + S2[a1, a3, a5, SP[a4, a6], a2, n] + 
    S2[a4, n]*S2[a1, a3, a6, a2, a5, n] + S2[a1, a3, a6, a2, SP[a4, a5], n] - 
    S2[a2, n]*S2[a1, a3, a6, a4, a5, n] - S2[a1, a3, a6, a4, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a3, a6, a5, a4, n] - S2[a1, a3, a6, a5, SP[a2, a4], n] - 
    S2[a1, a3, a6, SP[a2, a5], a4, n] - S2[a1, a3, SP[a2, a5], a4, a6, n] - 
    S2[a1, a3, SP[a2, a5], a6, a4, n] - S2[a1, a3, SP[a2, a6], a4, a5, n] - 
    S2[a1, a3, SP[a2, a6], a5, a4, n] + S2[a1, a3, SP[a4, a6], a2, a5, n] + 
    S2[a1, a3, SP[a5, a6], a2, a4, n] + S2[a1, a3, SP[a5, a6], a4, a2, n] - 
    S2[a1, a4, a6, a2, SP[a3, a5], n] - S2[a1, a4, a6, SP[a2, a3], a5, n] - 
    S2[a1, a4, SP[a3, a6], a2, a5, n] + S2[a6, n]*S2[a1, a5, a2, a3, a4, n] + 
    S2[a1, a5, a2, a3, SP[a4, a6], n] + S2[a6, n]*S2[a1, a5, a2, a4, a3, n] + 
    S2[a1, a5, a2, a4, SP[a3, a6], n] + S2[a1, a5, a2, SP[a3, a6], a4, n] + 
    S2[a1, a5, a2, SP[a4, a6], a3, n] + S2[a6, n]*S2[a1, a5, a3, a2, a4, n] + 
    S2[a1, a5, a3, a2, SP[a4, a6], n] + S2[a6, n]*S2[a1, a5, a3, a4, a2, n] - 
    S2[a2, n]*S2[a1, a5, a3, a4, a6, n] - 
    S2[a2, n]*S2[a1, a5, a3, a6, a4, n] - S2[a1, a5, a3, a6, SP[a2, a4], n] - 
    S2[a1, a5, a3, SP[a2, a4], a6, n] + S2[a1, a5, a3, SP[a4, a6], a2, n] + 
    S2[a6, n]*S2[a1, a5, a4, a2, a3, n] + S2[a1, a5, a4, a2, SP[a3, a6], n] + 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] - 
    S2[a2, n]*S2[a1, a5, a4, a3, a6, n] - 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] - S2[a1, a5, a4, a6, SP[a2, a3], n] - 
    S2[a1, a5, a4, SP[a2, a3], a6, n] + S2[a1, a5, a4, SP[a3, a6], a2, n] - 
    S2[a2, n]*S2[a1, a5, a6, a3, a4, n] - S2[a1, a5, a6, a3, SP[a2, a4], n] - 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] - S2[a1, a5, a6, a4, SP[a2, a3], n] - 
    S2[a1, a5, a6, SP[a2, a3], a4, n] - S2[a1, a5, a6, SP[a2, a4], a3, n] - 
    S2[a1, a5, SP[a2, a3], a4, a6, n] - S2[a1, a5, SP[a2, a3], a6, a4, n] - 
    S2[a1, a5, SP[a2, a4], a3, a6, n] - S2[a1, a5, SP[a2, a4], a6, a3, n] + 
    S2[a1, a5, SP[a3, a6], a2, a4, n] + S2[a1, a5, SP[a3, a6], a4, a2, n] + 
    S2[a1, a5, SP[a4, a6], a2, a3, n] + S2[a1, a5, SP[a4, a6], a3, a2, n] + 
    S2[a4, n]*S2[a1, a6, a2, a3, a5, n] + S2[a1, a6, a2, a3, SP[a4, a5], n] + 
    S2[a4, n]*S2[a1, a6, a2, a5, a3, n] + S2[a1, a6, a2, a5, SP[a3, a4], n] + 
    S2[a1, a6, a2, SP[a3, a4], a5, n] + S2[a1, a6, a2, SP[a4, a5], a3, n] + 
    S2[a4, n]*S2[a1, a6, a3, a2, a5, n] + S2[a1, a6, a3, a2, SP[a4, a5], n] - 
    S2[a2, n]*S2[a1, a6, a3, a4, a5, n] - S2[a1, a6, a3, a4, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a6, a3, a5, a4, n] - S2[a1, a6, a3, a5, SP[a2, a4], n] - 
    S2[a1, a6, a3, SP[a2, a5], a4, n] - S2[a2, n]*S2[a1, a6, a4, a3, a5, n] - 
    S2[a1, a6, a4, a3, SP[a2, a5], n] + S2[a3, n]*S2[a1, a6, a4, a5, a2, n] - 
    S2[a2, n]*S2[a1, a6, a4, a5, a3, n] - S2[a1, a6, a4, SP[a2, a3], a5, n] - 
    S2[a1, a6, a4, SP[a2, a5], a3, n] + S2[a1, a6, a4, SP[a3, a5], a2, n] - 
    S2[a2, n]*S2[a1, a6, a5, a3, a4, n] - S2[a1, a6, a5, a3, SP[a2, a4], n] - 
    S2[a2, n]*S2[a1, a6, a5, a4, a3, n] - S2[a1, a6, a5, a4, SP[a2, a3], n] - 
    S2[a1, a6, a5, SP[a2, a3], a4, n] - S2[a1, a6, a5, SP[a2, a4], a3, n] - 
    S2[a1, a6, SP[a2, a3], a4, a5, n] - S2[a1, a6, SP[a2, a3], a5, a4, n] - 
    S2[a1, a6, SP[a2, a5], a3, a4, n] - S2[a1, a6, SP[a2, a5], a4, a3, n] + 
    S2[a1, a6, SP[a3, a4], a2, a5, n] + S2[a1, a6, SP[a3, a4], a5, a2, n] - 
    S2[a1, SP[a2, a5], a3, a4, a6, n] - S2[a1, SP[a2, a5], a3, a6, a4, n] - 
    S2[a1, SP[a2, a5], a4, a3, a6, n] - S2[a1, SP[a2, a5], a4, a6, a3, n] - 
    S2[a1, SP[a2, a5], a6, a3, a4, n] - S2[a1, SP[a2, a5], a6, a4, a3, n] - 
    S2[a1, SP[a2, a6], a3, a4, a5, n] - S2[a1, SP[a2, a6], a3, a5, a4, n] - 
    S2[a1, SP[a2, a6], a4, a3, a5, n] - S2[a1, SP[a2, a6], a4, a5, a3, n] - 
    S2[a1, SP[a2, a6], a5, a3, a4, n] - S2[a1, SP[a2, a6], a5, a4, a3, n] + 
    S2[a1, SP[a3, a6], a4, a5, a2, n] + S2[a1, SP[a3, a6], a5, a2, a4, n] + 
    S2[a1, SP[a3, a6], a5, a4, a2, n] + S2[a1, SP[a4, a6], a2, a3, a5, n] + 
    S2[a1, SP[a4, a6], a2, a5, a3, n] + S2[a1, SP[a4, a6], a3, a2, a5, n] + 
    S2[a1, SP[a5, a6], a2, a3, a4, n] + S2[a1, SP[a5, a6], a2, a4, a3, n] + 
    S2[a1, SP[a5, a6], a3, a2, a4, n] + S2[a1, SP[a5, a6], a3, a4, a2, n] + 
    S2[a1, SP[a5, a6], a4, a2, a3, n] + S2[a1, SP[a5, a6], a4, a3, a2, n] + 
    S2[a2, a1, a5, a4, SP[a3, a6], n] + S2[a2, a1, a5, a6, SP[a3, a4], n] + 
    S2[a2, a1, a5, SP[a3, a4], a6, n] + S2[a2, a1, a5, SP[a3, a6], a4, n] + 
    S2[a2, a1, a6, a4, SP[a3, a5], n] + S2[a2, a1, a6, a5, SP[a3, a4], n] + 
    S2[a2, a1, a6, SP[a3, a4], a5, n] + S2[a2, a1, a6, SP[a3, a5], a4, n] + 
    S2[a2, a1, SP[a3, a5], a4, a6, n] + S2[a2, a1, SP[a3, a5], a6, a4, n] + 
    S2[a2, a1, SP[a3, a6], a4, a5, n] + S2[a2, a1, SP[a3, a6], a5, a4, n] - 
    S2[a6, n]*S2[a2, a5, a1, a3, a4, n] - S2[a2, a5, a1, a3, SP[a4, a6], n] - 
    S2[a6, n]*S2[a2, a5, a1, a4, a3, n] + S2[a2, a5, a1, a6, SP[a3, a4], n] + 
    S2[a2, a5, a1, SP[a3, a4], a6, n] - S2[a2, a5, a1, SP[a4, a6], a3, n] - 
    S2[a6, n]*S2[a2, a5, a4, a1, a3, n] + S2[a2, a5, a6, a1, SP[a3, a4], n] + 
    S2[a2, a5, a6, SP[a1, a4], a3, n] + S2[a2, a5, SP[a1, a4], a3, a6, n] + 
    S2[a2, a5, SP[a1, a4], a6, a3, n] - S2[a2, a5, SP[a4, a6], a1, a3, n] - 
    S2[a4, n]*S2[a2, a6, a1, a3, a5, n] - S2[a2, a6, a1, a3, SP[a4, a5], n] + 
    S2[a2, a6, a1, a4, SP[a3, a5], n] - S2[a4, n]*S2[a2, a6, a1, a5, a3, n] + 
    S2[a2, a6, a1, SP[a3, a5], a4, n] - S2[a2, a6, a1, SP[a4, a5], a3, n] + 
    S2[a2, a6, a4, a1, SP[a3, a5], n] + S2[a2, a6, a4, SP[a1, a5], a3, n] + 
    S2[a2, a6, a5, a1, SP[a3, a4], n] + S2[a2, a6, a5, SP[a1, a4], a3, n] + 
    S2[a2, a6, SP[a1, a5], a3, a4, n] + S2[a2, a6, SP[a1, a5], a4, a3, n] + 
    S2[a2, SP[a1, a5], a3, a4, a6, n] + S2[a2, SP[a1, a5], a3, a6, a4, n] + 
    S2[a2, SP[a1, a5], a4, a3, a6, n] + S2[a2, SP[a1, a5], a4, a6, a3, n] + 
    S2[a2, SP[a1, a5], a6, a3, a4, n] + S2[a2, SP[a1, a5], a6, a4, a3, n] + 
    S2[a2, SP[a1, a6], a3, a4, a5, n] + S2[a2, SP[a1, a6], a3, a5, a4, n] + 
    S2[a2, SP[a1, a6], a4, a3, a5, n] + S2[a2, SP[a1, a6], a4, a5, a3, n] + 
    S2[a2, SP[a1, a6], a5, a3, a4, n] + S2[a2, SP[a1, a6], a5, a4, a3, n] - 
    S2[a2, SP[a4, a6], a1, a3, a5, n] - S2[a2, SP[a4, a6], a1, a5, a3, n] - 
    S2[a2, SP[a5, a6], a1, a3, a4, n] - S2[a2, SP[a5, a6], a1, a4, a3, n] - 
    S2[a2, SP[a5, a6], a4, a1, a3, n] - S2[a4, a1, a6, a2, SP[a3, a5], n] - 
    S2[a4, a1, a6, SP[a2, a3], a5, n] - S2[a4, a1, SP[a3, a6], a2, a5, n] - 
    S2[a4, a6, a1, a2, SP[a3, a5], n] + S2[a2, n]*S2[a4, a6, a1, a3, a5, n] + 
    S2[a4, a6, a1, a3, SP[a2, a5], n] + S2[a2, n]*S2[a4, a6, a1, a5, a3, n] + 
    S2[a4, a6, a1, a5, SP[a2, a3], n] + S2[a4, a6, a1, SP[a2, a5], a3, n] - 
    S2[a4, a6, a2, a1, SP[a3, a5], n] - S2[a4, a6, a2, SP[a1, a5], a3, n] - 
    S2[a4, SP[a1, a6], a2, a3, a5, n] - S2[a4, SP[a1, a6], a2, a5, a3, n] - 
    S2[a4, SP[a1, a6], a3, a2, a5, n] + S2[a4, SP[a2, a6], a1, a3, a5, n] + 
    S2[a4, SP[a2, a6], a1, a5, a3, n] - S2[a4, n]*S2[a6, a1, a3, a5, a2, n] - 
    S2[a6, a1, a3, a5, SP[a2, a4], n] - S2[a6, a1, a3, SP[a4, a5], a2, n] - 
    S2[a4, n]*S2[a6, a1, a5, a2, a3, n] - S2[a6, a1, a5, a2, SP[a3, a4], n] - 
    S2[a4, n]*S2[a6, a1, a5, a3, a2, n] - S2[a6, a1, a5, a3, SP[a2, a4], n] - 
    S2[a6, a1, a5, SP[a2, a4], a3, n] - S2[a6, a1, a5, SP[a3, a4], a2, n] - 
    S2[a6, a1, SP[a3, a4], a5, a2, n] - S2[a6, a1, SP[a4, a5], a2, a3, n] - 
    S2[a6, a1, SP[a4, a5], a3, a2, n] + S2[a4, n]*S2[a6, a2, a5, a1, a3, n] + 
    S2[a6, a2, a5, a1, SP[a3, a4], n] + S2[a6, a2, a5, SP[a1, a4], a3, n] + 
    S2[a6, a2, SP[a4, a5], a1, a3, n] - S2[a2, n]*S2[a6, a4, a5, a1, a3, n] - 
    S2[a6, a4, a5, a1, SP[a2, a3], n] - S2[a6, a4, a5, SP[a1, a2], a3, n] - 
    S2[a6, a4, SP[a2, a5], a1, a3, n] - S2[a6, SP[a1, a4], a3, a5, a2, n] - 
    S2[a6, SP[a1, a4], a5, a2, a3, n] - S2[a6, SP[a1, a4], a5, a3, a2, n] + 
    S2[SP[a1, a3], a6, a4, a5, a2, n] + S2[SP[a1, a6], a3, a5, a2, a4, n] + 
    S2[SP[a1, a6], a3, a5, a4, a2, n] + S2[SP[a1, a6], a5, a2, a3, a4, n] + 
    S2[SP[a1, a6], a5, a2, a4, a3, n] + S2[SP[a1, a6], a5, a3, a2, a4, n] + 
    S2[SP[a1, a6], a5, a3, a4, a2, n] + S2[SP[a1, a6], a5, a4, a2, a3, n] + 
    S2[SP[a1, a6], a5, a4, a3, a2, n] - S2[SP[a2, a6], a4, a5, a1, a3, n] - 
    S2[SP[a2, a6], a5, a1, a3, a4, n] - S2[SP[a2, a6], a5, a1, a4, a3, n] - 
    S2[SP[a2, a6], a5, a4, a1, a3, n] - S2[SP[a4, a6], a1, a3, a5, a2, n] - 
    S2[SP[a4, a6], a1, a5, a2, a3, n] - S2[SP[a4, a6], a1, a5, a3, a2, n] + 
    S2[SP[a4, a6], a2, a5, a1, a3, n] + S2[a6, a1, a3, a4, a5, a2, n] + 
    S2[a6, a1, a4, a3, a5, a2, n] + S2[a6, a1, a4, a5, a2, a3, n] + 
    S2[a6, a1, a4, a5, a3, a2, n] + S2[a6, a4, a1, a3, a5, a2, n] + 
    S2[a6, a4, a1, a5, a2, a3, n] + S2[a6, a4, a1, a5, a3, a2, n] + 
    S2[a6, a4, a5, a1, a2, a3, n] + S2[a6, a4, a5, a1, a3, a2, n] + 
    S2[a6, a4, a5, a2, a1, a3, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a3_, a1_, a6_, a5_, a2_, a4_, n_] :> 
  -(S2[a1, a3, n]*S2[a2, a4, a5, a6, n]) - S2[a1, a3, n]*
     S2[a2, a4, a6, a5, n] + S2[a2, a4, SP[a1, a5], SP[a3, a6], n] + 
    S2[a2, a4, SP[a1, a6], SP[a3, a5], n] - S2[a1, a3, n]*
     S2[a2, a5, a4, a6, n] - S2[a1, a3, n]*S2[a2, a5, a6, a4, n] + 
    S2[a2, a5, SP[a1, a4], SP[a3, a6], n] + S2[a2, a5, SP[a1, a6], 
     SP[a3, a4], n] - S2[a1, a3, n]*S2[a2, a6, a4, a5, n] - 
    S2[a1, a3, n]*S2[a2, a6, a5, a4, n] + S2[a2, a6, SP[a1, a4], SP[a3, a5], 
     n] + S2[a2, a6, SP[a1, a5], SP[a3, a4], n] + S2[a2, SP[a1, a4], a5, 
     SP[a3, a6], n] + S2[a2, SP[a1, a4], a6, SP[a3, a5], n] + 
    S2[a2, SP[a1, a4], SP[a3, a5], a6, n] + S2[a2, SP[a1, a4], SP[a3, a6], 
     a5, n] + S2[a2, SP[a1, a5], a4, SP[a3, a6], n] + 
    S2[a2, SP[a1, a5], a6, SP[a3, a4], n] + S2[a2, SP[a1, a5], SP[a3, a4], 
     a6, n] + S2[a2, SP[a1, a5], SP[a3, a6], a4, n] + 
    S2[a2, SP[a1, a6], a4, SP[a3, a5], n] + S2[a2, SP[a1, a6], a5, 
     SP[a3, a4], n] + S2[a2, SP[a1, a6], SP[a3, a4], a5, n] + 
    S2[a2, SP[a1, a6], SP[a3, a5], a4, n] + S2[a1, a3, n]*
     S2[a5, a6, a2, a4, n] - S2[a5, a6, SP[a1, a2], SP[a3, a4], n] - 
    S2[a5, SP[a1, a6], a2, SP[a3, a4], n] - S2[a5, SP[a1, a6], SP[a2, a3], 
     a4, n] + S2[SP[a1, a2], a4, a5, SP[a3, a6], n] + 
    S2[SP[a1, a2], a4, a6, SP[a3, a5], n] + S2[SP[a1, a2], a4, SP[a3, a5], 
     a6, n] + S2[SP[a1, a2], a4, SP[a3, a6], a5, n] + 
    S2[SP[a1, a2], a5, a4, SP[a3, a6], n] + S2[SP[a1, a2], a5, a6, 
     SP[a3, a4], n] + S2[SP[a1, a2], a5, SP[a3, a4], a6, n] + 
    S2[SP[a1, a2], a5, SP[a3, a6], a4, n] + S2[SP[a1, a2], a6, a4, 
     SP[a3, a5], n] + S2[SP[a1, a2], a6, a5, SP[a3, a4], n] + 
    S2[SP[a1, a2], a6, SP[a3, a4], a5, n] + S2[SP[a1, a2], a6, SP[a3, a5], 
     a4, n] + S2[SP[a1, a2], SP[a3, a4], a5, a6, n] + 
    S2[SP[a1, a2], SP[a3, a4], a6, a5, n] + S2[SP[a1, a2], SP[a3, a5], a4, 
     a6, n] + S2[SP[a1, a2], SP[a3, a5], a6, a4, n] + 
    S2[SP[a1, a2], SP[a3, a6], a4, a5, n] + S2[SP[a1, a2], SP[a3, a6], a5, 
     a4, n] - S2[SP[a1, a5], a6, a2, SP[a3, a4], n] - 
    S2[SP[a1, a5], a6, SP[a2, a3], a4, n] - S2[SP[a1, a5], SP[a3, a6], a2, 
     a4, n] - S2[a1, a2, a4, a5, SP[a3, a6], n] - 
    S2[a1, a2, a4, a6, SP[a3, a5], n] - S2[a1, a2, a4, SP[a3, a5], a6, n] - 
    S2[a1, a2, a4, SP[a3, a6], a5, n] - S2[a1, a2, a5, a4, SP[a3, a6], n] - 
    S2[a1, a2, a5, a6, SP[a3, a4], n] - S2[a1, a2, a5, SP[a3, a4], a6, n] - 
    S2[a1, a2, a5, SP[a3, a6], a4, n] - S2[a1, a2, a6, a4, SP[a3, a5], n] - 
    S2[a1, a2, a6, a5, SP[a3, a4], n] - S2[a1, a2, a6, SP[a3, a4], a5, n] - 
    S2[a1, a2, a6, SP[a3, a5], a4, n] - S2[a1, a2, SP[a3, a4], a5, a6, n] - 
    S2[a1, a2, SP[a3, a4], a6, a5, n] - S2[a1, a2, SP[a3, a5], a4, a6, n] - 
    S2[a1, a2, SP[a3, a5], a6, a4, n] - S2[a1, a2, SP[a3, a6], a4, a5, n] - 
    S2[a1, a2, SP[a3, a6], a5, a4, n] - S2[a6, n]*S2[a1, a3, a4, a2, a5, n] - 
    S2[a1, a3, a4, a2, SP[a5, a6], n] - S2[a6, n]*S2[a1, a3, a4, a5, a2, n] + 
    S2[a2, n]*S2[a1, a3, a4, a5, a6, n] + 
    S2[a2, n]*S2[a1, a3, a4, a6, a5, n] + S2[a1, a3, a4, a6, SP[a2, a5], n] + 
    S2[a1, a3, a4, SP[a2, a5], a6, n] - S2[a1, a3, a4, SP[a5, a6], a2, n] - 
    S2[a6, n]*S2[a1, a3, a5, a2, a4, n] - S2[a1, a3, a5, a2, SP[a4, a6], n] - 
    S2[a6, n]*S2[a1, a3, a5, a4, a2, n] + 
    S2[a2, n]*S2[a1, a3, a5, a4, a6, n] + 
    S2[a2, n]*S2[a1, a3, a5, a6, a4, n] + S2[a1, a3, a5, a6, SP[a2, a4], n] + 
    S2[a1, a3, a5, SP[a2, a4], a6, n] - S2[a1, a3, a5, SP[a4, a6], a2, n] - 
    S2[a5, n]*S2[a1, a3, a6, a2, a4, n] - S2[a1, a3, a6, a2, SP[a4, a5], n] + 
    S2[a2, n]*S2[a1, a3, a6, a4, a5, n] + S2[a1, a3, a6, a4, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a3, a6, a5, a4, n] + S2[a1, a3, a6, a5, SP[a2, a4], n] + 
    S2[a1, a3, a6, SP[a2, a4], a5, n] + S2[a1, a3, SP[a2, a4], a5, a6, n] + 
    S2[a1, a3, SP[a2, a4], a6, a5, n] + S2[a1, a3, SP[a2, a5], a4, a6, n] + 
    S2[a1, a3, SP[a2, a5], a6, a4, n] + S2[a1, a3, SP[a2, a6], a4, a5, n] + 
    S2[a1, a3, SP[a2, a6], a5, a4, n] - S2[a1, a3, SP[a4, a6], a2, a5, n] - 
    S2[a1, a3, SP[a4, a6], a5, a2, n] - 2*S2[a1, a3, SP[a5, a6], a2, a4, n] - 
    S2[a1, a3, SP[a5, a6], a4, a2, n] - S2[a6, n]*S2[a1, a4, a2, a3, a5, n] - 
    S2[a1, a4, a2, a3, SP[a5, a6], n] - S2[a6, n]*S2[a1, a4, a2, a5, a3, n] - 
    S2[a1, a4, a2, a5, SP[a3, a6], n] - S2[a1, a4, a2, SP[a3, a6], a5, n] - 
    S2[a1, a4, a2, SP[a5, a6], a3, n] - S2[a6, n]*S2[a1, a4, a3, a2, a5, n] - 
    S2[a1, a4, a3, a2, SP[a5, a6], n] - S2[a6, n]*S2[a1, a4, a3, a5, a2, n] + 
    S2[a2, n]*S2[a1, a4, a3, a5, a6, n] + 
    S2[a2, n]*S2[a1, a4, a3, a6, a5, n] + S2[a1, a4, a3, a6, SP[a2, a5], n] + 
    S2[a1, a4, a3, SP[a2, a5], a6, n] - S2[a1, a4, a3, SP[a5, a6], a2, n] - 
    S2[a6, n]*S2[a1, a4, a5, a2, a3, n] - S2[a1, a4, a5, a2, SP[a3, a6], n] - 
    S2[a6, n]*S2[a1, a4, a5, a3, a2, n] + 
    S2[a2, n]*S2[a1, a4, a5, a3, a6, n] + 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] + S2[a1, a4, a5, a6, SP[a2, a3], n] + 
    S2[a1, a4, a5, SP[a2, a3], a6, n] - S2[a1, a4, a5, SP[a3, a6], a2, n] + 
    S2[a2, n]*S2[a1, a4, a6, a3, a5, n] + S2[a1, a4, a6, a3, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a4, a6, a5, a3, n] + S2[a1, a4, a6, a5, SP[a2, a3], n] + 
    S2[a1, a4, a6, SP[a2, a3], a5, n] + S2[a1, a4, a6, SP[a2, a5], a3, n] + 
    S2[a1, a4, SP[a2, a3], a5, a6, n] + S2[a1, a4, SP[a2, a3], a6, a5, n] + 
    S2[a1, a4, SP[a2, a5], a3, a6, n] + S2[a1, a4, SP[a2, a5], a6, a3, n] - 
    S2[a1, a4, SP[a3, a6], a2, a5, n] - S2[a1, a4, SP[a3, a6], a5, a2, n] - 
    S2[a1, a4, SP[a5, a6], a2, a3, n] - S2[a1, a4, SP[a5, a6], a3, a2, n] - 
    S2[a6, n]*S2[a1, a5, a2, a3, a4, n] - S2[a1, a5, a2, a3, SP[a4, a6], n] - 
    S2[a6, n]*S2[a1, a5, a2, a4, a3, n] - S2[a1, a5, a2, a4, SP[a3, a6], n] - 
    S2[a1, a5, a2, SP[a3, a6], a4, n] - S2[a1, a5, a2, SP[a4, a6], a3, n] - 
    S2[a6, n]*S2[a1, a5, a3, a2, a4, n] - S2[a1, a5, a3, a2, SP[a4, a6], n] - 
    S2[a6, n]*S2[a1, a5, a3, a4, a2, n] + 
    S2[a2, n]*S2[a1, a5, a3, a4, a6, n] + 
    S2[a2, n]*S2[a1, a5, a3, a6, a4, n] + S2[a1, a5, a3, a6, SP[a2, a4], n] + 
    S2[a1, a5, a3, SP[a2, a4], a6, n] - S2[a1, a5, a3, SP[a4, a6], a2, n] - 
    S2[a6, n]*S2[a1, a5, a4, a2, a3, n] - S2[a1, a5, a4, a2, SP[a3, a6], n] - 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] + 
    S2[a2, n]*S2[a1, a5, a4, a3, a6, n] + 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] + S2[a1, a5, a4, a6, SP[a2, a3], n] + 
    S2[a1, a5, a4, SP[a2, a3], a6, n] - S2[a1, a5, a4, SP[a3, a6], a2, n] + 
    S2[a1, a5, a6, a2, SP[a3, a4], n] + S2[a2, n]*S2[a1, a5, a6, a3, a4, n] + 
    S2[a1, a5, a6, a3, SP[a2, a4], n] + S2[a2, n]*S2[a1, a5, a6, a4, a3, n] + 
    S2[a1, a5, a6, a4, SP[a2, a3], n] + 2*S2[a1, a5, a6, SP[a2, a3], a4, n] + 
    S2[a1, a5, a6, SP[a2, a4], a3, n] + S2[a1, a5, SP[a2, a3], a4, a6, n] + 
    S2[a1, a5, SP[a2, a3], a6, a4, n] + S2[a1, a5, SP[a2, a4], a3, a6, n] + 
    S2[a1, a5, SP[a2, a4], a6, a3, n] - S2[a1, a5, SP[a3, a6], a4, a2, n] - 
    S2[a1, a5, SP[a4, a6], a2, a3, n] - S2[a1, a5, SP[a4, a6], a3, a2, n] - 
    S2[a5, n]*S2[a1, a6, a2, a3, a4, n] - S2[a1, a6, a2, a3, SP[a4, a5], n] - 
    S2[a5, n]*S2[a1, a6, a2, a4, a3, n] - S2[a1, a6, a2, a4, SP[a3, a5], n] - 
    S2[a1, a6, a2, SP[a3, a5], a4, n] - S2[a1, a6, a2, SP[a4, a5], a3, n] - 
    S2[a5, n]*S2[a1, a6, a3, a2, a4, n] - S2[a1, a6, a3, a2, SP[a4, a5], n] + 
    S2[a2, n]*S2[a1, a6, a3, a4, a5, n] + S2[a1, a6, a3, a4, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a6, a3, a5, a4, n] + S2[a1, a6, a3, a5, SP[a2, a4], n] + 
    S2[a1, a6, a3, SP[a2, a4], a5, n] + S2[a2, n]*S2[a1, a6, a4, a3, a5, n] + 
    S2[a1, a6, a4, a3, SP[a2, a5], n] + S2[a2, n]*S2[a1, a6, a4, a5, a3, n] + 
    S2[a1, a6, a4, a5, SP[a2, a3], n] + S2[a1, a6, a4, SP[a2, a3], a5, n] + 
    S2[a1, a6, a4, SP[a2, a5], a3, n] + S2[a3, n]*S2[a1, a6, a5, a2, a4, n] + 
    S2[a1, a6, a5, a2, SP[a3, a4], n] + S2[a2, n]*S2[a1, a6, a5, a3, a4, n] + 
    S2[a1, a6, a5, a3, SP[a2, a4], n] + S2[a2, n]*S2[a1, a6, a5, a4, a3, n] + 
    S2[a1, a6, a5, a4, SP[a2, a3], n] + 2*S2[a1, a6, a5, SP[a2, a3], a4, n] + 
    S2[a1, a6, a5, SP[a2, a4], a3, n] + S2[a1, a6, SP[a2, a3], a4, a5, n] + 
    S2[a1, a6, SP[a2, a3], a5, a4, n] + S2[a1, a6, SP[a2, a4], a3, a5, n] + 
    S2[a1, a6, SP[a2, a4], a5, a3, n] + S2[a1, SP[a2, a4], a3, a5, a6, n] + 
    S2[a1, SP[a2, a4], a3, a6, a5, n] + S2[a1, SP[a2, a4], a5, a3, a6, n] + 
    S2[a1, SP[a2, a4], a5, a6, a3, n] + S2[a1, SP[a2, a4], a6, a3, a5, n] + 
    S2[a1, SP[a2, a4], a6, a5, a3, n] + S2[a1, SP[a2, a5], a3, a4, a6, n] + 
    S2[a1, SP[a2, a5], a3, a6, a4, n] + S2[a1, SP[a2, a5], a4, a3, a6, n] + 
    S2[a1, SP[a2, a5], a4, a6, a3, n] + S2[a1, SP[a2, a5], a6, a3, a4, n] + 
    S2[a1, SP[a2, a5], a6, a4, a3, n] + S2[a1, SP[a2, a6], a3, a4, a5, n] + 
    S2[a1, SP[a2, a6], a3, a5, a4, n] + S2[a1, SP[a2, a6], a4, a3, a5, n] + 
    S2[a1, SP[a2, a6], a4, a5, a3, n] + S2[a1, SP[a2, a6], a5, a3, a4, n] + 
    S2[a1, SP[a2, a6], a5, a4, a3, n] - S2[a1, SP[a3, a6], a4, a2, a5, n] - 
    S2[a1, SP[a3, a6], a4, a5, a2, n] - S2[a1, SP[a3, a6], a5, a4, a2, n] - 
    S2[a1, SP[a4, a6], a2, a3, a5, n] - S2[a1, SP[a4, a6], a2, a5, a3, n] - 
    S2[a1, SP[a4, a6], a3, a2, a5, n] - S2[a1, SP[a4, a6], a3, a5, a2, n] - 
    S2[a1, SP[a4, a6], a5, a2, a3, n] - S2[a1, SP[a4, a6], a5, a3, a2, n] - 
    2*S2[a1, SP[a5, a6], a2, a3, a4, n] - 
    2*S2[a1, SP[a5, a6], a2, a4, a3, n] - 
    2*S2[a1, SP[a5, a6], a3, a2, a4, n] - S2[a1, SP[a5, a6], a3, a4, a2, n] - 
    S2[a1, SP[a5, a6], a4, a2, a3, n] - S2[a1, SP[a5, a6], a4, a3, a2, n] - 
    S2[a2, a1, a4, a5, SP[a3, a6], n] - S2[a2, a1, a4, a6, SP[a3, a5], n] - 
    S2[a2, a1, a4, SP[a3, a5], a6, n] - S2[a2, a1, a4, SP[a3, a6], a5, n] - 
    S2[a2, a1, a5, a4, SP[a3, a6], n] - S2[a2, a1, a5, a6, SP[a3, a4], n] - 
    S2[a2, a1, a5, SP[a3, a4], a6, n] - S2[a2, a1, a5, SP[a3, a6], a4, n] - 
    S2[a2, a1, a6, a4, SP[a3, a5], n] - S2[a2, a1, a6, a5, SP[a3, a4], n] - 
    S2[a2, a1, a6, SP[a3, a4], a5, n] - S2[a2, a1, a6, SP[a3, a5], a4, n] - 
    S2[a2, a1, SP[a3, a4], a5, a6, n] - S2[a2, a1, SP[a3, a4], a6, a5, n] - 
    S2[a2, a1, SP[a3, a5], a4, a6, n] - S2[a2, a1, SP[a3, a5], a6, a4, n] - 
    S2[a2, a1, SP[a3, a6], a4, a5, n] - S2[a2, a1, SP[a3, a6], a5, a4, n] + 
    S2[a6, n]*S2[a2, a4, a1, a3, a5, n] + S2[a2, a4, a1, a3, SP[a5, a6], n] + 
    S2[a6, n]*S2[a2, a4, a1, a5, a3, n] - S2[a2, a4, a1, a6, SP[a3, a5], n] - 
    S2[a2, a4, a1, SP[a3, a5], a6, n] + S2[a2, a4, a1, SP[a5, a6], a3, n] + 
    S2[a6, n]*S2[a2, a4, a5, a1, a3, n] - S2[a2, a4, a6, a1, SP[a3, a5], n] - 
    S2[a2, a4, a6, SP[a1, a5], a3, n] - S2[a2, a4, SP[a1, a5], a3, a6, n] - 
    S2[a2, a4, SP[a1, a5], a6, a3, n] + S2[a2, a4, SP[a5, a6], a1, a3, n] + 
    S2[a6, n]*S2[a2, a5, a1, a3, a4, n] + S2[a2, a5, a1, a3, SP[a4, a6], n] + 
    S2[a6, n]*S2[a2, a5, a1, a4, a3, n] - S2[a2, a5, a1, a6, SP[a3, a4], n] - 
    S2[a2, a5, a1, SP[a3, a4], a6, n] + S2[a2, a5, a1, SP[a4, a6], a3, n] + 
    S2[a6, n]*S2[a2, a5, a4, a1, a3, n] - S2[a2, a5, a6, a1, SP[a3, a4], n] - 
    S2[a2, a5, a6, SP[a1, a4], a3, n] - S2[a2, a5, SP[a1, a4], a3, a6, n] - 
    S2[a2, a5, SP[a1, a4], a6, a3, n] + S2[a2, a5, SP[a4, a6], a1, a3, n] + 
    S2[a5, n]*S2[a2, a6, a1, a3, a4, n] + S2[a2, a6, a1, a3, SP[a4, a5], n] + 
    S2[a5, n]*S2[a2, a6, a1, a4, a3, n] - S2[a2, a6, a1, a5, SP[a3, a4], n] - 
    S2[a2, a6, a1, SP[a3, a4], a5, n] + S2[a2, a6, a1, SP[a4, a5], a3, n] - 
    S2[a2, a6, a4, a1, SP[a3, a5], n] - S2[a2, a6, a4, SP[a1, a5], a3, n] - 
    S2[a2, a6, a5, a1, SP[a3, a4], n] - S2[a2, a6, a5, SP[a1, a4], a3, n] - 
    S2[a2, a6, SP[a1, a4], a3, a5, n] - S2[a2, a6, SP[a1, a4], a5, a3, n] - 
    S2[a2, SP[a1, a4], a3, a5, a6, n] - S2[a2, SP[a1, a4], a3, a6, a5, n] - 
    S2[a2, SP[a1, a4], a5, a3, a6, n] - S2[a2, SP[a1, a4], a5, a6, a3, n] - 
    S2[a2, SP[a1, a4], a6, a3, a5, n] - S2[a2, SP[a1, a4], a6, a5, a3, n] - 
    S2[a2, SP[a1, a5], a3, a4, a6, n] - S2[a2, SP[a1, a5], a3, a6, a4, n] - 
    S2[a2, SP[a1, a5], a4, a3, a6, n] - S2[a2, SP[a1, a5], a4, a6, a3, n] - 
    S2[a2, SP[a1, a5], a6, a3, a4, n] - S2[a2, SP[a1, a5], a6, a4, a3, n] - 
    S2[a2, SP[a1, a6], a3, a4, a5, n] - S2[a2, SP[a1, a6], a3, a5, a4, n] - 
    S2[a2, SP[a1, a6], a4, a3, a5, n] - S2[a2, SP[a1, a6], a4, a5, a3, n] - 
    S2[a2, SP[a1, a6], a5, a3, a4, n] - S2[a2, SP[a1, a6], a5, a4, a3, n] + 
    S2[a2, SP[a4, a6], a1, a3, a5, n] + S2[a2, SP[a4, a6], a1, a5, a3, n] + 
    S2[a2, SP[a4, a6], a5, a1, a3, n] + 2*S2[a2, SP[a5, a6], a1, a3, a4, n] + 
    2*S2[a2, SP[a5, a6], a1, a4, a3, n] + S2[a2, SP[a5, a6], a4, a1, a3, n] + 
    S2[a5, a1, a6, a2, SP[a3, a4], n] + S2[a5, a1, a6, SP[a2, a3], a4, n] + 
    S2[a5, a1, SP[a3, a6], a2, a4, n] + S2[a5, a6, a1, a2, SP[a3, a4], n] - 
    S2[a2, n]*S2[a5, a6, a1, a3, a4, n] - S2[a5, a6, a1, a3, SP[a2, a4], n] - 
    S2[a2, n]*S2[a5, a6, a1, a4, a3, n] - S2[a5, a6, a1, a4, SP[a2, a3], n] - 
    S2[a5, a6, a1, SP[a2, a4], a3, n] + S2[a5, a6, a2, a1, SP[a3, a4], n] + 
    S2[a5, a6, a2, SP[a1, a4], a3, n] + S2[a5, SP[a1, a6], a2, a3, a4, n] + 
    S2[a5, SP[a1, a6], a2, a4, a3, n] + S2[a5, SP[a1, a6], a3, a2, a4, n] - 
    S2[a5, SP[a2, a6], a1, a3, a4, n] - S2[a5, SP[a2, a6], a1, a4, a3, n] + 
    S2[a5, n]*S2[a6, a1, a3, a4, a2, n] + S2[a6, a1, a3, a4, SP[a2, a5], n] + 
    S2[a6, a1, a3, SP[a4, a5], a2, n] + S2[a5, n]*S2[a6, a1, a4, a2, a3, n] + 
    S2[a6, a1, a4, a2, SP[a3, a5], n] + S2[a5, n]*S2[a6, a1, a4, a3, a2, n] + 
    S2[a6, a1, a4, a3, SP[a2, a5], n] + S2[a6, a1, a4, SP[a2, a5], a3, n] + 
    S2[a6, a1, a4, SP[a3, a5], a2, n] + S2[a6, a1, SP[a3, a5], a4, a2, n] + 
    S2[a6, a1, SP[a4, a5], a2, a3, n] + S2[a6, a1, SP[a4, a5], a3, a2, n] - 
    S2[a5, n]*S2[a6, a2, a4, a1, a3, n] - S2[a6, a2, a4, a1, SP[a3, a5], n] - 
    S2[a6, a2, a4, SP[a1, a5], a3, n] - S2[a6, a2, SP[a4, a5], a1, a3, n] - 
    S2[a2, n]*S2[a6, a5, a1, a3, a4, n] - S2[a6, a5, a1, a3, SP[a2, a4], n] - 
    S2[a2, n]*S2[a6, a5, a1, a4, a3, n] - S2[a6, a5, a1, a4, SP[a2, a3], n] - 
    S2[a6, a5, a1, SP[a2, a3], a4, n] - S2[a6, a5, a1, SP[a2, a4], a3, n] - 
    S2[a6, a5, SP[a1, a2], a3, a4, n] - S2[a6, a5, SP[a1, a2], a4, a3, n] + 
    S2[a6, SP[a1, a5], a3, a4, a2, n] + S2[a6, SP[a1, a5], a4, a2, a3, n] + 
    S2[a6, SP[a1, a5], a4, a3, a2, n] - S2[a6, SP[a2, a5], a1, a3, a4, n] - 
    S2[a6, SP[a2, a5], a1, a4, a3, n] - S2[a6, SP[a2, a5], a4, a1, a3, n] + 
    S2[SP[a1, a3], a6, a5, a2, a4, n] - S2[SP[a1, a6], a3, a4, a2, a5, n] - 
    S2[SP[a1, a6], a3, a4, a5, a2, n] - S2[SP[a1, a6], a3, a5, a2, a4, n] - 
    S2[SP[a1, a6], a3, a5, a4, a2, n] - S2[SP[a1, a6], a4, a2, a3, a5, n] - 
    S2[SP[a1, a6], a4, a2, a5, a3, n] - S2[SP[a1, a6], a4, a3, a2, a5, n] - 
    S2[SP[a1, a6], a4, a3, a5, a2, n] - S2[SP[a1, a6], a4, a5, a2, a3, n] - 
    S2[SP[a1, a6], a4, a5, a3, a2, n] - S2[SP[a1, a6], a5, a2, a3, a4, n] - 
    S2[SP[a1, a6], a5, a2, a4, a3, n] - S2[SP[a1, a6], a5, a3, a2, a4, n] - 
    S2[SP[a1, a6], a5, a3, a4, a2, n] - S2[SP[a1, a6], a5, a4, a2, a3, n] - 
    S2[SP[a1, a6], a5, a4, a3, a2, n] + S2[SP[a2, a6], a4, a1, a3, a5, n] + 
    S2[SP[a2, a6], a4, a1, a5, a3, n] + S2[SP[a2, a6], a4, a5, a1, a3, n] + 
    S2[SP[a2, a6], a5, a4, a1, a3, n] + S2[SP[a5, a6], a1, a3, a4, a2, n] + 
    S2[SP[a5, a6], a1, a4, a2, a3, n] + S2[SP[a5, a6], a1, a4, a3, a2, n] - 
    S2[SP[a5, a6], a2, a4, a1, a3, n] + S2[a6, a1, a3, a5, a2, a4, n] + 
    S2[a6, a1, a5, a2, a3, a4, n] + S2[a6, a1, a5, a2, a4, a3, n] + 
    S2[a6, a1, a5, a3, a2, a4, n] + S2[a6, a5, a1, a2, a3, a4, n] + 
    S2[a6, a5, a1, a2, a4, a3, n] + S2[a6, a5, a1, a3, a2, a4, n] + 
    S2[a6, a5, a2, a1, a3, a4, n] + S2[a6, a5, a2, a1, a4, a3, n] + 
    S2[a6, a5, a2, a4, a1, a3, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a3_, a1_, a6_, a5_, a4_, a2_, n_] :> 
  S2[a1, a3, n]*S2[a2, a4, a5, a6, n] + S2[a1, a3, n]*S2[a2, a4, a6, a5, n] - 
    S2[a2, a4, SP[a1, a5], SP[a3, a6], n] - S2[a2, a4, SP[a1, a6], 
     SP[a3, a5], n] + S2[a1, a3, n]*S2[a2, a6, a4, a5, n] + 
    S2[a1, a3, n]*S2[a2, a6, a5, a4, n] - S2[a2, a6, SP[a1, a4], SP[a3, a5], 
     n] - S2[a2, a6, SP[a1, a5], SP[a3, a4], n] - S2[a2, SP[a1, a4], a5, 
     SP[a3, a6], n] - S2[a2, SP[a1, a4], a6, SP[a3, a5], n] - 
    S2[a2, SP[a1, a4], SP[a3, a5], a6, n] - S2[a2, SP[a1, a4], SP[a3, a6], 
     a5, n] - S2[a2, SP[a1, a6], a4, SP[a3, a5], n] - 
    S2[a2, SP[a1, a6], a5, SP[a3, a4], n] - S2[a2, SP[a1, a6], SP[a3, a4], 
     a5, n] - S2[a2, SP[a1, a6], SP[a3, a5], a4, n] - 
    S2[a1, a3, n]*S2[a5, a6, a2, a4, n] + S2[a5, a6, SP[a1, a2], SP[a3, a4], 
     n] + S2[a5, SP[a1, a6], a2, SP[a3, a4], n] + 
    S2[a5, SP[a1, a6], SP[a2, a3], a4, n] - S2[SP[a1, a2], a4, a5, 
     SP[a3, a6], n] - S2[SP[a1, a2], a4, a6, SP[a3, a5], n] - 
    S2[SP[a1, a2], a4, SP[a3, a5], a6, n] - S2[SP[a1, a2], a4, SP[a3, a6], 
     a5, n] - S2[SP[a1, a2], a6, a4, SP[a3, a5], n] - 
    S2[SP[a1, a2], a6, a5, SP[a3, a4], n] - S2[SP[a1, a2], a6, SP[a3, a4], 
     a5, n] - S2[SP[a1, a2], a6, SP[a3, a5], a4, n] - 
    S2[SP[a1, a2], SP[a3, a4], a5, a6, n] - S2[SP[a1, a2], SP[a3, a4], a6, 
     a5, n] - S2[SP[a1, a2], SP[a3, a6], a4, a5, n] - 
    S2[SP[a1, a2], SP[a3, a6], a5, a4, n] + S2[SP[a1, a5], a6, a2, 
     SP[a3, a4], n] + S2[SP[a1, a5], a6, SP[a2, a3], a4, n] + 
    S2[SP[a1, a5], SP[a3, a6], a2, a4, n] + S2[a1, a2, a4, a5, SP[a3, a6], 
     n] + S2[a1, a2, a4, a6, SP[a3, a5], n] + S2[a1, a2, a4, SP[a3, a5], a6, 
     n] + S2[a1, a2, a4, SP[a3, a6], a5, n] + S2[a1, a2, a6, a4, SP[a3, a5], 
     n] + S2[a1, a2, a6, a5, SP[a3, a4], n] + S2[a1, a2, a6, SP[a3, a4], a5, 
     n] + S2[a1, a2, a6, SP[a3, a5], a4, n] + S2[a1, a2, SP[a3, a4], a5, a6, 
     n] + S2[a1, a2, SP[a3, a4], a6, a5, n] + S2[a1, a2, SP[a3, a6], a4, a5, 
     n] + S2[a1, a2, SP[a3, a6], a5, a4, n] + 
    S2[a6, n]*S2[a1, a3, a4, a2, a5, n] + S2[a1, a3, a4, a2, SP[a5, a6], n] + 
    S2[a6, n]*S2[a1, a3, a4, a5, a2, n] - 
    S2[a2, n]*S2[a1, a3, a4, a5, a6, n] - 
    S2[a2, n]*S2[a1, a3, a4, a6, a5, n] - S2[a1, a3, a4, a6, SP[a2, a5], n] - 
    S2[a1, a3, a4, SP[a2, a5], a6, n] + S2[a1, a3, a4, SP[a5, a6], a2, n] + 
    S2[a5, n]*S2[a1, a3, a6, a2, a4, n] + S2[a1, a3, a6, a2, SP[a4, a5], n] - 
    S2[a2, n]*S2[a1, a3, a6, a4, a5, n] - S2[a1, a3, a6, a4, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a3, a6, a5, a4, n] - S2[a1, a3, a6, a5, SP[a2, a4], n] - 
    S2[a1, a3, a6, SP[a2, a4], a5, n] - S2[a1, a3, SP[a2, a4], a5, a6, n] - 
    S2[a1, a3, SP[a2, a4], a6, a5, n] - S2[a1, a3, SP[a2, a6], a4, a5, n] - 
    S2[a1, a3, SP[a2, a6], a5, a4, n] + S2[a1, a3, SP[a4, a6], a2, a5, n] + 
    S2[a1, a3, SP[a4, a6], a5, a2, n] + S2[a1, a3, SP[a5, a6], a2, a4, n] + 
    S2[a6, n]*S2[a1, a4, a2, a3, a5, n] + S2[a1, a4, a2, a3, SP[a5, a6], n] + 
    S2[a6, n]*S2[a1, a4, a2, a5, a3, n] + S2[a1, a4, a2, a5, SP[a3, a6], n] + 
    S2[a1, a4, a2, SP[a3, a6], a5, n] + S2[a1, a4, a2, SP[a5, a6], a3, n] + 
    S2[a6, n]*S2[a1, a4, a3, a2, a5, n] + S2[a1, a4, a3, a2, SP[a5, a6], n] + 
    S2[a6, n]*S2[a1, a4, a3, a5, a2, n] - 
    S2[a2, n]*S2[a1, a4, a3, a5, a6, n] - 
    S2[a2, n]*S2[a1, a4, a3, a6, a5, n] - S2[a1, a4, a3, a6, SP[a2, a5], n] - 
    S2[a1, a4, a3, SP[a2, a5], a6, n] + S2[a1, a4, a3, SP[a5, a6], a2, n] + 
    S2[a6, n]*S2[a1, a4, a5, a2, a3, n] + S2[a1, a4, a5, a2, SP[a3, a6], n] + 
    S2[a6, n]*S2[a1, a4, a5, a3, a2, n] - 
    S2[a2, n]*S2[a1, a4, a5, a3, a6, n] - 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] - S2[a1, a4, a5, a6, SP[a2, a3], n] - 
    S2[a1, a4, a5, SP[a2, a3], a6, n] + S2[a1, a4, a5, SP[a3, a6], a2, n] - 
    S2[a2, n]*S2[a1, a4, a6, a3, a5, n] - S2[a1, a4, a6, a3, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a4, a6, a5, a3, n] - S2[a1, a4, a6, a5, SP[a2, a3], n] - 
    S2[a1, a4, a6, SP[a2, a3], a5, n] - S2[a1, a4, a6, SP[a2, a5], a3, n] - 
    S2[a1, a4, SP[a2, a3], a5, a6, n] - S2[a1, a4, SP[a2, a3], a6, a5, n] - 
    S2[a1, a4, SP[a2, a5], a3, a6, n] - S2[a1, a4, SP[a2, a5], a6, a3, n] + 
    S2[a1, a4, SP[a3, a6], a2, a5, n] + S2[a1, a4, SP[a3, a6], a5, a2, n] + 
    S2[a1, a4, SP[a5, a6], a2, a3, n] + S2[a1, a4, SP[a5, a6], a3, a2, n] - 
    S2[a1, a5, a6, a2, SP[a3, a4], n] - S2[a1, a5, a6, SP[a2, a3], a4, n] - 
    S2[a1, a5, SP[a3, a6], a2, a4, n] + S2[a5, n]*S2[a1, a6, a2, a3, a4, n] + 
    S2[a1, a6, a2, a3, SP[a4, a5], n] + S2[a5, n]*S2[a1, a6, a2, a4, a3, n] + 
    S2[a1, a6, a2, a4, SP[a3, a5], n] + S2[a1, a6, a2, SP[a3, a5], a4, n] + 
    S2[a1, a6, a2, SP[a4, a5], a3, n] + S2[a5, n]*S2[a1, a6, a3, a2, a4, n] + 
    S2[a1, a6, a3, a2, SP[a4, a5], n] - S2[a2, n]*S2[a1, a6, a3, a4, a5, n] - 
    S2[a1, a6, a3, a4, SP[a2, a5], n] - S2[a2, n]*S2[a1, a6, a3, a5, a4, n] - 
    S2[a1, a6, a3, a5, SP[a2, a4], n] - S2[a1, a6, a3, SP[a2, a4], a5, n] - 
    S2[a2, n]*S2[a1, a6, a4, a3, a5, n] - S2[a1, a6, a4, a3, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a6, a4, a5, a3, n] - S2[a1, a6, a4, a5, SP[a2, a3], n] - 
    S2[a1, a6, a4, SP[a2, a3], a5, n] - S2[a1, a6, a4, SP[a2, a5], a3, n] - 
    S2[a2, n]*S2[a1, a6, a5, a3, a4, n] - S2[a1, a6, a5, a3, SP[a2, a4], n] + 
    S2[a3, n]*S2[a1, a6, a5, a4, a2, n] - 
    S2[a2, n]*S2[a1, a6, a5, a4, a3, n] - S2[a1, a6, a5, SP[a2, a3], a4, n] - 
    S2[a1, a6, a5, SP[a2, a4], a3, n] + S2[a1, a6, a5, SP[a3, a4], a2, n] - 
    S2[a1, a6, SP[a2, a3], a4, a5, n] - S2[a1, a6, SP[a2, a3], a5, a4, n] - 
    S2[a1, a6, SP[a2, a4], a3, a5, n] - S2[a1, a6, SP[a2, a4], a5, a3, n] + 
    S2[a1, a6, SP[a3, a5], a2, a4, n] + S2[a1, a6, SP[a3, a5], a4, a2, n] - 
    S2[a1, SP[a2, a4], a3, a5, a6, n] - S2[a1, SP[a2, a4], a3, a6, a5, n] - 
    S2[a1, SP[a2, a4], a5, a3, a6, n] - S2[a1, SP[a2, a4], a5, a6, a3, n] - 
    S2[a1, SP[a2, a4], a6, a3, a5, n] - S2[a1, SP[a2, a4], a6, a5, a3, n] - 
    S2[a1, SP[a2, a6], a3, a4, a5, n] - S2[a1, SP[a2, a6], a3, a5, a4, n] - 
    S2[a1, SP[a2, a6], a4, a3, a5, n] - S2[a1, SP[a2, a6], a4, a5, a3, n] - 
    S2[a1, SP[a2, a6], a5, a3, a4, n] - S2[a1, SP[a2, a6], a5, a4, a3, n] + 
    S2[a1, SP[a3, a6], a4, a2, a5, n] + S2[a1, SP[a3, a6], a4, a5, a2, n] + 
    S2[a1, SP[a3, a6], a5, a4, a2, n] + S2[a1, SP[a4, a6], a2, a3, a5, n] + 
    S2[a1, SP[a4, a6], a2, a5, a3, n] + S2[a1, SP[a4, a6], a3, a2, a5, n] + 
    S2[a1, SP[a4, a6], a3, a5, a2, n] + S2[a1, SP[a4, a6], a5, a2, a3, n] + 
    S2[a1, SP[a4, a6], a5, a3, a2, n] + S2[a1, SP[a5, a6], a2, a3, a4, n] + 
    S2[a1, SP[a5, a6], a2, a4, a3, n] + S2[a1, SP[a5, a6], a3, a2, a4, n] + 
    S2[a2, a1, a4, a5, SP[a3, a6], n] + S2[a2, a1, a4, a6, SP[a3, a5], n] + 
    S2[a2, a1, a4, SP[a3, a5], a6, n] + S2[a2, a1, a4, SP[a3, a6], a5, n] + 
    S2[a2, a1, a6, a4, SP[a3, a5], n] + S2[a2, a1, a6, a5, SP[a3, a4], n] + 
    S2[a2, a1, a6, SP[a3, a4], a5, n] + S2[a2, a1, a6, SP[a3, a5], a4, n] + 
    S2[a2, a1, SP[a3, a4], a5, a6, n] + S2[a2, a1, SP[a3, a4], a6, a5, n] + 
    S2[a2, a1, SP[a3, a6], a4, a5, n] + S2[a2, a1, SP[a3, a6], a5, a4, n] - 
    S2[a6, n]*S2[a2, a4, a1, a3, a5, n] - S2[a2, a4, a1, a3, SP[a5, a6], n] - 
    S2[a6, n]*S2[a2, a4, a1, a5, a3, n] + S2[a2, a4, a1, a6, SP[a3, a5], n] + 
    S2[a2, a4, a1, SP[a3, a5], a6, n] - S2[a2, a4, a1, SP[a5, a6], a3, n] - 
    S2[a6, n]*S2[a2, a4, a5, a1, a3, n] + S2[a2, a4, a6, a1, SP[a3, a5], n] + 
    S2[a2, a4, a6, SP[a1, a5], a3, n] + S2[a2, a4, SP[a1, a5], a3, a6, n] + 
    S2[a2, a4, SP[a1, a5], a6, a3, n] - S2[a2, a4, SP[a5, a6], a1, a3, n] - 
    S2[a5, n]*S2[a2, a6, a1, a3, a4, n] - S2[a2, a6, a1, a3, SP[a4, a5], n] - 
    S2[a5, n]*S2[a2, a6, a1, a4, a3, n] + S2[a2, a6, a1, a5, SP[a3, a4], n] + 
    S2[a2, a6, a1, SP[a3, a4], a5, n] - S2[a2, a6, a1, SP[a4, a5], a3, n] + 
    S2[a2, a6, a4, a1, SP[a3, a5], n] + S2[a2, a6, a4, SP[a1, a5], a3, n] + 
    S2[a2, a6, a5, a1, SP[a3, a4], n] + S2[a2, a6, a5, SP[a1, a4], a3, n] + 
    S2[a2, a6, SP[a1, a4], a3, a5, n] + S2[a2, a6, SP[a1, a4], a5, a3, n] + 
    S2[a2, SP[a1, a4], a3, a5, a6, n] + S2[a2, SP[a1, a4], a3, a6, a5, n] + 
    S2[a2, SP[a1, a4], a5, a3, a6, n] + S2[a2, SP[a1, a4], a5, a6, a3, n] + 
    S2[a2, SP[a1, a4], a6, a3, a5, n] + S2[a2, SP[a1, a4], a6, a5, a3, n] + 
    S2[a2, SP[a1, a6], a3, a4, a5, n] + S2[a2, SP[a1, a6], a3, a5, a4, n] + 
    S2[a2, SP[a1, a6], a4, a3, a5, n] + S2[a2, SP[a1, a6], a4, a5, a3, n] + 
    S2[a2, SP[a1, a6], a5, a3, a4, n] + S2[a2, SP[a1, a6], a5, a4, a3, n] - 
    S2[a2, SP[a4, a6], a1, a3, a5, n] - S2[a2, SP[a4, a6], a1, a5, a3, n] - 
    S2[a2, SP[a4, a6], a5, a1, a3, n] - S2[a2, SP[a5, a6], a1, a3, a4, n] - 
    S2[a2, SP[a5, a6], a1, a4, a3, n] - S2[a5, a1, a6, a2, SP[a3, a4], n] - 
    S2[a5, a1, a6, SP[a2, a3], a4, n] - S2[a5, a1, SP[a3, a6], a2, a4, n] - 
    S2[a5, a6, a1, a2, SP[a3, a4], n] + S2[a2, n]*S2[a5, a6, a1, a3, a4, n] + 
    S2[a5, a6, a1, a3, SP[a2, a4], n] + S2[a2, n]*S2[a5, a6, a1, a4, a3, n] + 
    S2[a5, a6, a1, a4, SP[a2, a3], n] + S2[a5, a6, a1, SP[a2, a4], a3, n] - 
    S2[a5, a6, a2, a1, SP[a3, a4], n] - S2[a5, a6, a2, SP[a1, a4], a3, n] - 
    S2[a5, SP[a1, a6], a2, a3, a4, n] - S2[a5, SP[a1, a6], a2, a4, a3, n] - 
    S2[a5, SP[a1, a6], a3, a2, a4, n] + S2[a5, SP[a2, a6], a1, a3, a4, n] + 
    S2[a5, SP[a2, a6], a1, a4, a3, n] - S2[a5, n]*S2[a6, a1, a3, a4, a2, n] - 
    S2[a6, a1, a3, a4, SP[a2, a5], n] - S2[a6, a1, a3, SP[a4, a5], a2, n] - 
    S2[a5, n]*S2[a6, a1, a4, a2, a3, n] - S2[a6, a1, a4, a2, SP[a3, a5], n] - 
    S2[a5, n]*S2[a6, a1, a4, a3, a2, n] - S2[a6, a1, a4, a3, SP[a2, a5], n] - 
    S2[a6, a1, a4, SP[a2, a5], a3, n] - S2[a6, a1, a4, SP[a3, a5], a2, n] - 
    S2[a6, a1, SP[a3, a5], a4, a2, n] - S2[a6, a1, SP[a4, a5], a2, a3, n] - 
    S2[a6, a1, SP[a4, a5], a3, a2, n] + S2[a5, n]*S2[a6, a2, a4, a1, a3, n] + 
    S2[a6, a2, a4, a1, SP[a3, a5], n] + S2[a6, a2, a4, SP[a1, a5], a3, n] + 
    S2[a6, a2, SP[a4, a5], a1, a3, n] - S2[a2, n]*S2[a6, a5, a4, a1, a3, n] - 
    S2[a6, a5, a4, a1, SP[a2, a3], n] - S2[a6, a5, a4, SP[a1, a2], a3, n] - 
    S2[a6, a5, SP[a2, a4], a1, a3, n] - S2[a6, SP[a1, a5], a3, a4, a2, n] - 
    S2[a6, SP[a1, a5], a4, a2, a3, n] - S2[a6, SP[a1, a5], a4, a3, a2, n] + 
    S2[SP[a1, a3], a6, a5, a4, a2, n] + S2[SP[a1, a6], a3, a4, a2, a5, n] + 
    S2[SP[a1, a6], a3, a4, a5, a2, n] + S2[SP[a1, a6], a4, a2, a3, a5, n] + 
    S2[SP[a1, a6], a4, a2, a5, a3, n] + S2[SP[a1, a6], a4, a3, a2, a5, n] + 
    S2[SP[a1, a6], a4, a3, a5, a2, n] + S2[SP[a1, a6], a4, a5, a2, a3, n] + 
    S2[SP[a1, a6], a4, a5, a3, a2, n] - S2[SP[a2, a6], a4, a1, a3, a5, n] - 
    S2[SP[a2, a6], a4, a1, a5, a3, n] - S2[SP[a2, a6], a4, a5, a1, a3, n] - 
    S2[SP[a2, a6], a5, a4, a1, a3, n] - S2[SP[a5, a6], a1, a3, a4, a2, n] - 
    S2[SP[a5, a6], a1, a4, a2, a3, n] - S2[SP[a5, a6], a1, a4, a3, a2, n] + 
    S2[SP[a5, a6], a2, a4, a1, a3, n] + S2[a6, a1, a3, a5, a4, a2, n] + 
    S2[a6, a1, a5, a3, a4, a2, n] + S2[a6, a1, a5, a4, a2, a3, n] + 
    S2[a6, a1, a5, a4, a3, a2, n] + S2[a6, a5, a1, a3, a4, a2, n] + 
    S2[a6, a5, a1, a4, a2, a3, n] + S2[a6, a5, a1, a4, a3, a2, n] + 
    S2[a6, a5, a4, a1, a2, a3, n] + S2[a6, a5, a4, a1, a3, a2, n] + 
    S2[a6, a5, a4, a2, a1, a3, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a3_, a2_, a1_, a4_, a5_, a6_, n_] :> 
  S2[a1, a2, a3, n]*S2[a4, a5, a6, n] + S2[SP[a1, a4], SP[a2, a5], 
     SP[a3, a6], n] + S2[a5, a6, n]*S2[a1, a2, a3, a4, n] + 
    S2[a5, a6, n]*S2[a1, a2, a4, a3, n] - S2[a1, a2, SP[a3, a5], SP[a4, a6], 
     n] - S2[a1, a2, SP[a4, a5], SP[a3, a6], n] + 
    S2[a5, a6, n]*S2[a1, a4, a2, a3, n] - S2[a2, a3, n]*
     S2[a1, a4, a5, a6, n] - S2[a1, a4, SP[a2, a5], SP[a3, a6], n] - 
    S2[a1, SP[a2, a5], a3, SP[a4, a6], n] - S2[a1, SP[a2, a5], a4, 
     SP[a3, a6], n] - S2[a1, SP[a2, a5], SP[a3, a6], a4, n] - 
    S2[a1, SP[a2, a5], SP[a4, a6], a3, n] - S2[a1, SP[a4, a5], a2, 
     SP[a3, a6], n] - S2[a1, SP[a4, a5], SP[a2, a6], a3, n] - 
    S2[a4, a1, SP[a2, a5], SP[a3, a6], n] - S2[a4, SP[a1, a5], a2, 
     SP[a3, a6], n] - S2[a4, SP[a1, a5], SP[a2, a6], a3, n] + 
    S2[SP[a1, a2], a4, a5, SP[a3, a6], n] + S2[SP[a1, a2], a4, SP[a3, a5], 
     a6, n] + S2[SP[a1, a2], SP[a3, a4], a5, a6, n] - 
    S2[SP[a1, a4], a2, a5, SP[a3, a6], n] - S2[SP[a1, a4], a2, SP[a3, a5], 
     a6, n] - S2[SP[a1, a4], a5, a2, SP[a3, a6], n] - 
    S2[SP[a1, a4], a5, SP[a2, a6], a3, n] - S2[SP[a1, a4], SP[a2, a5], a3, 
     a6, n] - S2[SP[a1, a4], SP[a2, a5], a6, a3, n] - 
    S2[SP[a1, a5], a2, a3, SP[a4, a6], n] - S2[SP[a1, a5], a2, a4, 
     SP[a3, a6], n] - S2[SP[a1, a5], a2, SP[a3, a6], a4, n] - 
    S2[SP[a1, a5], a2, SP[a4, a6], a3, n] - S2[SP[a1, a5], a4, a2, 
     SP[a3, a6], n] - S2[SP[a1, a5], a4, SP[a2, a6], a3, n] - 
    S2[SP[a1, a5], SP[a2, a6], a3, a4, n] - S2[SP[a1, a5], SP[a2, a6], a4, 
     a3, n] - S2[SP[a1, a5], SP[a4, a6], a2, a3, n] + 
    S2[a6, n]*S2[a1, a2, a3, a4, a5, n] - 
    S2[a5, n]*S2[a1, a2, a3, a4, a6, n] + 
    S2[a6, n]*S2[a1, a2, a3, a5, a4, n] - 
    S2[a4, n]*S2[a1, a2, a3, a5, a6, n] + S2[a1, a2, a3, a5, SP[a4, a6], n] - 
    S2[a5, n]*S2[a1, a2, a3, a6, a4, n] - S2[a1, a2, a3, a6, SP[a4, a5], n] - 
    S2[a1, a2, a3, SP[a4, a5], a6, n] + S2[a1, a2, a3, SP[a4, a6], a5, n] + 
    S2[a6, n]*S2[a1, a2, a4, a3, a5, n] - 
    S2[a5, n]*S2[a1, a2, a4, a3, a6, n] + 
    S2[a6, n]*S2[a1, a2, a4, a5, a3, n] - 
    S2[a3, n]*S2[a1, a2, a4, a5, a6, n] + S2[a1, a2, a4, a5, SP[a3, a6], n] - 
    S2[a5, n]*S2[a1, a2, a4, a6, a3, n] - S2[a1, a2, a4, a6, SP[a3, a5], n] - 
    S2[a1, a2, a4, SP[a3, a5], a6, n] + S2[a1, a2, a4, SP[a3, a6], a5, n] + 
    S2[a6, n]*S2[a1, a2, a5, a3, a4, n] - 
    S2[a4, n]*S2[a1, a2, a5, a3, a6, n] + S2[a1, a2, a5, a3, SP[a4, a6], n] + 
    S2[a6, n]*S2[a1, a2, a5, a4, a3, n] + 
    2*S2[a1, a2, a5, a4, SP[a3, a6], n] - 
    S2[a4, n]*S2[a1, a2, a5, a6, a3, n] - S2[a1, a2, a5, a6, SP[a3, a4], n] - 
    S2[a1, a2, a5, SP[a3, a4], a6, n] + 2*S2[a1, a2, a5, SP[a3, a6], a4, n] + 
    S2[a1, a2, a5, SP[a4, a6], a3, n] - S2[a5, n]*S2[a1, a2, a6, a3, a4, n] - 
    S2[a1, a2, a6, a3, SP[a4, a5], n] - S2[a5, n]*S2[a1, a2, a6, a4, a3, n] - 
    S2[a1, a2, a6, a4, SP[a3, a5], n] - S2[a1, a2, a6, SP[a3, a5], a4, n] - 
    S2[a1, a2, a6, SP[a4, a5], a3, n] - 2*S2[a1, a2, SP[a3, a4], a5, a6, n] + 
    S2[a1, a2, SP[a3, a6], a4, a5, n] + S2[a1, a2, SP[a3, a6], a5, a4, n] - 
    S2[a1, a2, SP[a4, a5], a3, a6, n] - S2[a1, a2, SP[a4, a5], a6, a3, n] + 
    S2[a1, a2, SP[a4, a6], a3, a5, n] + S2[a1, a2, SP[a4, a6], a5, a3, n] + 
    S2[a2, n]*S2[a1, a3, a4, a5, a6, n] + S2[a1, a3, a4, a5, SP[a2, a6], n] + 
    S2[a1, a3, a4, SP[a2, a5], a6, n] + S2[a1, a3, SP[a2, a4], a5, a6, n] + 
    S2[a6, n]*S2[a1, a4, a2, a3, a5, n] - 
    S2[a5, n]*S2[a1, a4, a2, a3, a6, n] + 
    S2[a6, n]*S2[a1, a4, a2, a5, a3, n] - 
    S2[a3, n]*S2[a1, a4, a2, a5, a6, n] + S2[a1, a4, a2, a5, SP[a3, a6], n] - 
    S2[a5, n]*S2[a1, a4, a2, a6, a3, n] - S2[a1, a4, a2, a6, SP[a3, a5], n] - 
    S2[a1, a4, a2, SP[a3, a5], a6, n] + S2[a1, a4, a2, SP[a3, a6], a5, n] + 
    S2[a2, n]*S2[a1, a4, a3, a5, a6, n] + S2[a1, a4, a3, a5, SP[a2, a6], n] + 
    S2[a1, a4, a3, SP[a2, a5], a6, n] + S2[a6, n]*S2[a1, a4, a5, a2, a3, n] - 
    S2[a3, n]*S2[a1, a4, a5, a2, a6, n] + S2[a1, a4, a5, a2, SP[a3, a6], n] + 
    S2[a2, n]*S2[a1, a4, a5, a3, a6, n] + S2[a1, a4, a5, a3, SP[a2, a6], n] - 
    S2[a3, n]*S2[a1, a4, a5, a6, a2, n] + 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] + 
    3*S2[a1, a4, a5, SP[a2, a6], a3, n] - S2[a1, a4, a5, SP[a3, a6], a2, n] - 
    S2[a5, n]*S2[a1, a4, a6, a2, a3, n] - S2[a1, a4, a6, a2, SP[a3, a5], n] - 
    S2[a1, a4, a6, SP[a2, a5], a3, n] + S2[a1, a4, SP[a2, a5], a3, a6, n] + 
    S2[a1, a4, SP[a2, a5], a6, a3, n] + S2[a1, a4, SP[a2, a6], a3, a5, n] + 
    S2[a1, a4, SP[a2, a6], a5, a3, n] - S2[a1, a4, SP[a3, a5], a2, a6, n] - 
    S2[a1, a4, SP[a3, a5], a6, a2, n] + S2[a6, n]*S2[a1, a5, a2, a3, a4, n] - 
    S2[a4, n]*S2[a1, a5, a2, a3, a6, n] + S2[a1, a5, a2, a3, SP[a4, a6], n] + 
    S2[a6, n]*S2[a1, a5, a2, a4, a3, n] + 
    2*S2[a1, a5, a2, a4, SP[a3, a6], n] - 
    S2[a4, n]*S2[a1, a5, a2, a6, a3, n] - S2[a1, a5, a2, a6, SP[a3, a4], n] - 
    S2[a1, a5, a2, SP[a3, a4], a6, n] + 2*S2[a1, a5, a2, SP[a3, a6], a4, n] + 
    S2[a1, a5, a2, SP[a4, a6], a3, n] + S2[a6, n]*S2[a1, a5, a4, a2, a3, n] + 
    2*S2[a1, a5, a4, a2, SP[a3, a6], n] + 
    2*S2[a1, a5, a4, SP[a2, a6], a3, n] - 
    S2[a4, n]*S2[a1, a5, a6, a2, a3, n] - S2[a1, a5, a6, a2, SP[a3, a4], n] - 
    S2[a1, a5, a6, SP[a2, a4], a3, n] - S2[a1, a5, SP[a2, a4], a3, a6, n] - 
    S2[a1, a5, SP[a2, a4], a6, a3, n] + 2*S2[a1, a5, SP[a2, a6], a3, a4, n] + 
    2*S2[a1, a5, SP[a2, a6], a4, a3, n] + S2[a1, a5, SP[a4, a6], a2, a3, n] - 
    S2[a5, n]*S2[a1, a6, a2, a3, a4, n] - S2[a1, a6, a2, a3, SP[a4, a5], n] - 
    S2[a5, n]*S2[a1, a6, a2, a4, a3, n] - S2[a1, a6, a2, a4, SP[a3, a5], n] - 
    S2[a1, a6, a2, SP[a3, a5], a4, n] - S2[a1, a6, a2, SP[a4, a5], a3, n] - 
    S2[a5, n]*S2[a1, a6, a4, a2, a3, n] - S2[a1, a6, a4, a2, SP[a3, a5], n] - 
    S2[a1, a6, a4, SP[a2, a5], a3, n] - S2[a1, a6, SP[a2, a5], a3, a4, n] - 
    S2[a1, a6, SP[a2, a5], a4, a3, n] - S2[a1, a6, SP[a4, a5], a2, a3, n] + 
    S2[a1, SP[a2, a6], a3, a4, a5, n] + S2[a1, SP[a2, a6], a3, a5, a4, n] + 
    S2[a1, SP[a2, a6], a4, a3, a5, n] + S2[a1, SP[a2, a6], a4, a5, a3, n] + 
    S2[a1, SP[a2, a6], a5, a3, a4, n] + S2[a1, SP[a2, a6], a5, a4, a3, n] - 
    S2[a1, SP[a3, a4], a2, a5, a6, n] - S2[a1, SP[a3, a4], a5, a2, a6, n] - 
    S2[a1, SP[a3, a4], a5, a6, a2, n] - S2[a1, SP[a4, a5], a2, a3, a6, n] - 
    S2[a1, SP[a4, a5], a2, a6, a3, n] - S2[a1, SP[a4, a5], a6, a2, a3, n] + 
    S2[a1, SP[a4, a6], a2, a3, a5, n] + S2[a1, SP[a4, a6], a2, a5, a3, n] + 
    S2[a1, SP[a4, a6], a5, a2, a3, n] - S2[a2, a1, a4, a5, SP[a3, a6], n] - 
    S2[a2, a1, a4, SP[a3, a5], a6, n] - S2[a2, a1, SP[a3, a4], a5, a6, n] - 
    S2[a2, SP[a1, a3], a4, a5, a6, n] + S2[a2, n]*S2[a3, a1, a4, a5, a6, n] + 
    S2[a3, a1, a4, a5, SP[a2, a6], n] + S2[a3, a1, a4, SP[a2, a5], a6, n] + 
    S2[a3, a1, SP[a2, a4], a5, a6, n] + S2[a3, SP[a1, a2], a4, a5, a6, n] + 
    S2[a4, a1, a2, a5, SP[a3, a6], n] + S2[a4, a1, a2, SP[a3, a5], a6, n] + 
    S2[a4, a1, a5, a2, SP[a3, a6], n] + S2[a4, a1, a5, SP[a2, a6], a3, n] + 
    S2[a4, a1, SP[a2, a5], a3, a6, n] + S2[a4, a1, SP[a2, a5], a6, a3, n] - 
    S2[a6, n]*S2[a4, a5, a1, a2, a3, n] + S2[a4, SP[a1, a5], a2, a3, a6, n] + 
    S2[a4, SP[a1, a5], a2, a6, a3, n] + S2[a4, SP[a1, a5], a6, a2, a3, n] - 
    S2[a4, SP[a5, a6], a1, a2, a3, n] + S2[a5, a1, a2, a3, SP[a4, a6], n] + 
    S2[a5, a1, a2, a4, SP[a3, a6], n] + S2[a5, a1, a2, SP[a3, a6], a4, n] + 
    S2[a5, a1, a2, SP[a4, a6], a3, n] + S2[a5, a1, a4, a2, SP[a3, a6], n] + 
    S2[a5, a1, a4, SP[a2, a6], a3, n] + S2[a5, a1, SP[a2, a6], a3, a4, n] + 
    S2[a5, a1, SP[a2, a6], a4, a3, n] + S2[a5, a1, SP[a4, a6], a2, a3, n] + 
    S2[a5, SP[a1, a6], a2, a3, a4, n] + S2[a5, SP[a1, a6], a2, a4, a3, n] + 
    S2[a5, SP[a1, a6], a4, a2, a3, n] - S2[a5, n]*S2[a6, a1, a2, a3, a4, n] - 
    S2[a6, a1, a2, a3, SP[a4, a5], n] - S2[a5, n]*S2[a6, a1, a2, a4, a3, n] - 
    S2[a6, a1, a2, a4, SP[a3, a5], n] - S2[a6, a1, a2, SP[a3, a5], a4, n] - 
    S2[a6, a1, a2, SP[a4, a5], a3, n] - S2[a5, n]*S2[a6, a1, a4, a2, a3, n] - 
    S2[a6, a1, a4, a2, SP[a3, a5], n] - S2[a6, a1, a4, SP[a2, a5], a3, n] - 
    S2[a6, a1, SP[a2, a5], a3, a4, n] - S2[a6, a1, SP[a2, a5], a4, a3, n] - 
    S2[a6, a1, SP[a4, a5], a2, a3, n] + S2[a4, n]*S2[a6, a5, a1, a2, a3, n] + 
    S2[a6, a5, a1, a2, SP[a3, a4], n] + S2[a6, a5, a1, SP[a2, a4], a3, n] + 
    S2[a6, a5, SP[a1, a4], a2, a3, n] - S2[a6, SP[a1, a5], a2, a3, a4, n] - 
    S2[a6, SP[a1, a5], a2, a4, a3, n] - S2[a6, SP[a1, a5], a4, a2, a3, n] + 
    S2[a6, SP[a4, a5], a1, a2, a3, n] - S2[SP[a1, a3], a2, a4, a5, a6, n] - 
    S2[SP[a1, a3], a4, a2, a5, a6, n] - S2[SP[a1, a3], a4, a5, a2, a6, n] - 
    S2[SP[a1, a3], a4, a5, a6, a2, n] + S2[SP[a1, a6], a2, a3, a4, a5, n] + 
    S2[SP[a1, a6], a2, a3, a5, a4, n] + S2[SP[a1, a6], a2, a4, a3, a5, n] + 
    S2[SP[a1, a6], a2, a4, a5, a3, n] + S2[SP[a1, a6], a2, a5, a3, a4, n] + 
    S2[SP[a1, a6], a2, a5, a4, a3, n] + S2[SP[a1, a6], a4, a2, a3, a5, n] + 
    S2[SP[a1, a6], a4, a2, a5, a3, n] + S2[SP[a1, a6], a4, a5, a2, a3, n] + 
    S2[SP[a1, a6], a5, a2, a3, a4, n] + S2[SP[a1, a6], a5, a2, a4, a3, n] + 
    S2[SP[a1, a6], a5, a4, a2, a3, n] + S2[SP[a2, a3], a1, a4, a5, a6, n] - 
    S2[SP[a5, a6], a1, a2, a3, a4, n] - S2[SP[a5, a6], a1, a2, a4, a3, n] - 
    S2[SP[a5, a6], a1, a4, a2, a3, n] - S2[a6, a5, a4, a1, a2, a3, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a3_, a2_, a1_, a4_, a6_, a5_, n_] :> 
  S2[a1, a2, a3, n]*S2[a4, a6, a5, n] + S2[SP[a1, a4], SP[a2, a6], 
     SP[a3, a5], n] - S2[a5, a6, n]*S2[a1, a2, a3, a4, n] - 
    S2[a5, a6, n]*S2[a1, a2, a4, a3, n] + S2[a1, a2, SP[a3, a5], SP[a4, a6], 
     n] + S2[a1, a2, SP[a4, a5], SP[a3, a6], n] - 
    S2[a5, a6, n]*S2[a1, a4, a2, a3, n] - S2[a2, a3, n]*
     S2[a1, a4, a6, a5, n] + S2[a1, a4, SP[a2, a5], SP[a3, a6], n] + 
    S2[a1, SP[a2, a5], a3, SP[a4, a6], n] + S2[a1, SP[a2, a5], a4, 
     SP[a3, a6], n] + S2[a1, SP[a2, a5], SP[a3, a6], a4, n] + 
    S2[a1, SP[a2, a5], SP[a4, a6], a3, n] + S2[a1, SP[a4, a5], a2, 
     SP[a3, a6], n] + S2[a1, SP[a4, a5], SP[a2, a6], a3, n] - 
    S2[a4, a1, SP[a2, a6], SP[a3, a5], n] - S2[a4, SP[a1, a6], a2, 
     SP[a3, a5], n] - S2[a4, SP[a1, a6], SP[a2, a5], a3, n] + 
    S2[SP[a1, a2], a4, a6, SP[a3, a5], n] + S2[SP[a1, a2], a4, SP[a3, a6], 
     a5, n] + S2[SP[a1, a2], SP[a3, a4], a6, a5, n] - 
    S2[SP[a1, a4], a2, a6, SP[a3, a5], n] - S2[SP[a1, a4], a2, SP[a3, a6], 
     a5, n] - S2[SP[a1, a4], a6, a2, SP[a3, a5], n] - 
    S2[SP[a1, a4], a6, SP[a2, a5], a3, n] - S2[SP[a1, a4], SP[a2, a6], a3, 
     a5, n] - S2[SP[a1, a4], SP[a2, a6], a5, a3, n] + 
    S2[SP[a1, a5], a2, a3, SP[a4, a6], n] + S2[SP[a1, a5], a2, a4, 
     SP[a3, a6], n] + S2[SP[a1, a5], a2, SP[a3, a6], a4, n] + 
    S2[SP[a1, a5], a2, SP[a4, a6], a3, n] + S2[SP[a1, a5], a4, a2, 
     SP[a3, a6], n] + S2[SP[a1, a5], a4, SP[a2, a6], a3, n] + 
    S2[SP[a1, a5], SP[a2, a6], a3, a4, n] + S2[SP[a1, a5], SP[a2, a6], a4, 
     a3, n] + S2[SP[a1, a5], SP[a4, a6], a2, a3, n] + 
    S2[a5, n]*S2[a1, a2, a3, a4, a6, n] + S2[a1, a2, a3, a4, SP[a5, a6], n] - 
    S2[a1, a2, a3, a5, SP[a4, a6], n] + S2[a5, n]*S2[a1, a2, a3, a6, a4, n] - 
    S2[a4, n]*S2[a1, a2, a3, a6, a5, n] - S2[a1, a2, a3, SP[a4, a6], a5, n] + 
    S2[a1, a2, a3, SP[a5, a6], a4, n] + S2[a5, n]*S2[a1, a2, a4, a3, a6, n] + 
    S2[a1, a2, a4, a3, SP[a5, a6], n] - S2[a1, a2, a4, a5, SP[a3, a6], n] + 
    S2[a5, n]*S2[a1, a2, a4, a6, a3, n] - 
    S2[a3, n]*S2[a1, a2, a4, a6, a5, n] - S2[a1, a2, a4, SP[a3, a6], a5, n] + 
    S2[a1, a2, a4, SP[a5, a6], a3, n] - S2[a1, a2, a5, a3, SP[a4, a6], n] - 
    S2[a1, a2, a5, a4, SP[a3, a6], n] - S2[a1, a2, a5, SP[a3, a6], a4, n] - 
    S2[a1, a2, a5, SP[a4, a6], a3, n] + S2[a5, n]*S2[a1, a2, a6, a3, a4, n] - 
    S2[a4, n]*S2[a1, a2, a6, a3, a5, n] + 
    S2[a5, n]*S2[a1, a2, a6, a4, a3, n] + S2[a1, a2, a6, a4, SP[a3, a5], n] - 
    S2[a4, n]*S2[a1, a2, a6, a5, a3, n] - S2[a1, a2, a6, a5, SP[a3, a4], n] - 
    S2[a1, a2, a6, SP[a3, a4], a5, n] + S2[a1, a2, a6, SP[a3, a5], a4, n] - 
    2*S2[a1, a2, SP[a3, a4], a6, a5, n] - S2[a1, a2, SP[a4, a6], a3, a5, n] - 
    S2[a1, a2, SP[a4, a6], a5, a3, n] + S2[a1, a2, SP[a5, a6], a3, a4, n] + 
    S2[a1, a2, SP[a5, a6], a4, a3, n] + S2[a2, n]*S2[a1, a3, a4, a6, a5, n] + 
    S2[a1, a3, a4, a6, SP[a2, a5], n] + S2[a1, a3, a4, SP[a2, a6], a5, n] + 
    S2[a1, a3, SP[a2, a4], a6, a5, n] + S2[a5, n]*S2[a1, a4, a2, a3, a6, n] + 
    S2[a1, a4, a2, a3, SP[a5, a6], n] - S2[a1, a4, a2, a5, SP[a3, a6], n] + 
    S2[a5, n]*S2[a1, a4, a2, a6, a3, n] - 
    S2[a3, n]*S2[a1, a4, a2, a6, a5, n] - S2[a1, a4, a2, SP[a3, a6], a5, n] + 
    S2[a1, a4, a2, SP[a5, a6], a3, n] + S2[a2, n]*S2[a1, a4, a3, a6, a5, n] + 
    S2[a1, a4, a3, a6, SP[a2, a5], n] + S2[a1, a4, a3, SP[a2, a6], a5, n] - 
    S2[a1, a4, a5, a2, SP[a3, a6], n] - S2[a1, a4, a5, SP[a2, a6], a3, n] + 
    S2[a5, n]*S2[a1, a4, a6, a2, a3, n] - 
    S2[a3, n]*S2[a1, a4, a6, a2, a5, n] + 
    S2[a2, n]*S2[a1, a4, a6, a3, a5, n] + S2[a1, a4, a6, a3, SP[a2, a5], n] - 
    S2[a3, n]*S2[a1, a4, a6, a5, a2, n] + 
    S2[a2, n]*S2[a1, a4, a6, a5, a3, n] + 
    2*S2[a1, a4, a6, SP[a2, a5], a3, n] - S2[a1, a4, a6, SP[a3, a5], a2, n] + 
    S2[a1, a4, SP[a2, a6], a3, a5, n] + S2[a1, a4, SP[a2, a6], a5, a3, n] - 
    S2[a1, a4, SP[a3, a6], a2, a5, n] - S2[a1, a4, SP[a3, a6], a5, a2, n] + 
    S2[a1, a4, SP[a5, a6], a2, a3, n] - S2[a1, a5, a2, a3, SP[a4, a6], n] - 
    S2[a1, a5, a2, a4, SP[a3, a6], n] - S2[a1, a5, a2, SP[a3, a6], a4, n] - 
    S2[a1, a5, a2, SP[a4, a6], a3, n] - S2[a1, a5, a4, a2, SP[a3, a6], n] - 
    S2[a1, a5, a4, SP[a2, a6], a3, n] - S2[a1, a5, SP[a2, a6], a3, a4, n] - 
    S2[a1, a5, SP[a2, a6], a4, a3, n] - S2[a1, a5, SP[a4, a6], a2, a3, n] + 
    S2[a5, n]*S2[a1, a6, a2, a3, a4, n] - 
    S2[a4, n]*S2[a1, a6, a2, a3, a5, n] + 
    S2[a5, n]*S2[a1, a6, a2, a4, a3, n] + S2[a1, a6, a2, a4, SP[a3, a5], n] - 
    S2[a4, n]*S2[a1, a6, a2, a5, a3, n] - S2[a1, a6, a2, a5, SP[a3, a4], n] - 
    S2[a1, a6, a2, SP[a3, a4], a5, n] + S2[a1, a6, a2, SP[a3, a5], a4, n] + 
    S2[a5, n]*S2[a1, a6, a4, a2, a3, n] + S2[a1, a6, a4, a2, SP[a3, a5], n] + 
    S2[a1, a6, a4, SP[a2, a5], a3, n] - S2[a4, n]*S2[a1, a6, a5, a2, a3, n] - 
    S2[a1, a6, a5, a2, SP[a3, a4], n] - S2[a1, a6, a5, SP[a2, a4], a3, n] - 
    S2[a1, a6, SP[a2, a4], a3, a5, n] - S2[a1, a6, SP[a2, a4], a5, a3, n] + 
    S2[a1, a6, SP[a2, a5], a3, a4, n] + S2[a1, a6, SP[a2, a5], a4, a3, n] - 
    S2[a1, SP[a3, a4], a2, a6, a5, n] - S2[a1, SP[a3, a4], a6, a2, a5, n] - 
    S2[a1, SP[a3, a4], a6, a5, a2, n] - S2[a1, SP[a4, a6], a2, a3, a5, n] - 
    S2[a1, SP[a4, a6], a2, a5, a3, n] - S2[a1, SP[a4, a6], a5, a2, a3, n] + 
    S2[a1, SP[a5, a6], a2, a3, a4, n] + S2[a1, SP[a5, a6], a2, a4, a3, n] + 
    S2[a1, SP[a5, a6], a4, a2, a3, n] - S2[a2, a1, a4, a6, SP[a3, a5], n] - 
    S2[a2, a1, a4, SP[a3, a6], a5, n] - S2[a2, a1, SP[a3, a4], a6, a5, n] - 
    S2[a2, SP[a1, a3], a4, a6, a5, n] + S2[a2, n]*S2[a3, a1, a4, a6, a5, n] + 
    S2[a3, a1, a4, a6, SP[a2, a5], n] + S2[a3, a1, a4, SP[a2, a6], a5, n] + 
    S2[a3, a1, SP[a2, a4], a6, a5, n] + S2[a3, SP[a1, a2], a4, a6, a5, n] + 
    S2[a4, a1, a2, a6, SP[a3, a5], n] + S2[a4, a1, a2, SP[a3, a6], a5, n] + 
    S2[a4, a1, a6, a2, SP[a3, a5], n] + S2[a4, a1, a6, SP[a2, a5], a3, n] + 
    S2[a4, a1, SP[a2, a6], a3, a5, n] + S2[a4, a1, SP[a2, a6], a5, a3, n] + 
    S2[a4, a6, a1, a2, SP[a3, a5], n] + S2[a4, a6, a1, SP[a2, a5], a3, n] + 
    S2[a4, a6, SP[a1, a5], a2, a3, n] + S2[a4, SP[a1, a6], a2, a3, a5, n] + 
    S2[a4, SP[a1, a6], a2, a5, a3, n] + S2[a4, SP[a1, a6], a5, a2, a3, n] - 
    S2[a5, a1, a2, a3, SP[a4, a6], n] - S2[a5, a1, a2, a4, SP[a3, a6], n] - 
    S2[a5, a1, a2, SP[a3, a6], a4, n] - S2[a5, a1, a2, SP[a4, a6], a3, n] - 
    S2[a5, a1, a4, a2, SP[a3, a6], n] - S2[a5, a1, a4, SP[a2, a6], a3, n] - 
    S2[a5, a1, SP[a2, a6], a3, a4, n] - S2[a5, a1, SP[a2, a6], a4, a3, n] - 
    S2[a5, a1, SP[a4, a6], a2, a3, n] - S2[a5, SP[a1, a6], a2, a3, a4, n] - 
    S2[a5, SP[a1, a6], a2, a4, a3, n] - S2[a5, SP[a1, a6], a4, a2, a3, n] + 
    S2[a5, n]*S2[a6, a1, a2, a3, a4, n] - 
    S2[a4, n]*S2[a6, a1, a2, a3, a5, n] + 
    S2[a5, n]*S2[a6, a1, a2, a4, a3, n] + S2[a6, a1, a2, a4, SP[a3, a5], n] - 
    S2[a4, n]*S2[a6, a1, a2, a5, a3, n] - S2[a6, a1, a2, a5, SP[a3, a4], n] - 
    S2[a6, a1, a2, SP[a3, a4], a5, n] + S2[a6, a1, a2, SP[a3, a5], a4, n] + 
    S2[a5, n]*S2[a6, a1, a4, a2, a3, n] + S2[a6, a1, a4, a2, SP[a3, a5], n] + 
    S2[a6, a1, a4, SP[a2, a5], a3, n] - S2[a4, n]*S2[a6, a1, a5, a2, a3, n] - 
    S2[a6, a1, a5, a2, SP[a3, a4], n] - S2[a6, a1, a5, SP[a2, a4], a3, n] - 
    S2[a6, a1, SP[a2, a4], a3, a5, n] - S2[a6, a1, SP[a2, a4], a5, a3, n] + 
    S2[a6, a1, SP[a2, a5], a3, a4, n] + S2[a6, a1, SP[a2, a5], a4, a3, n] - 
    S2[a4, n]*S2[a6, a5, a1, a2, a3, n] - S2[a6, a5, a1, a2, SP[a3, a4], n] - 
    S2[a6, a5, a1, SP[a2, a4], a3, n] - S2[a6, a5, SP[a1, a4], a2, a3, n] - 
    S2[a6, SP[a1, a4], a2, a3, a5, n] - S2[a6, SP[a1, a4], a2, a5, a3, n] - 
    S2[a6, SP[a1, a4], a5, a2, a3, n] + S2[a6, SP[a1, a5], a2, a3, a4, n] + 
    S2[a6, SP[a1, a5], a2, a4, a3, n] + S2[a6, SP[a1, a5], a4, a2, a3, n] - 
    S2[a6, SP[a4, a5], a1, a2, a3, n] - S2[SP[a1, a3], a2, a4, a6, a5, n] - 
    S2[SP[a1, a3], a4, a2, a6, a5, n] - S2[SP[a1, a3], a4, a6, a2, a5, n] - 
    S2[SP[a1, a3], a4, a6, a5, a2, n] + S2[SP[a2, a3], a1, a4, a6, a5, n] - 
    S2[SP[a4, a6], a1, a2, a3, a5, n] - S2[SP[a4, a6], a1, a2, a5, a3, n] - 
    S2[SP[a4, a6], a1, a5, a2, a3, n] - S2[SP[a4, a6], a5, a1, a2, a3, n] + 
    S2[SP[a5, a6], a1, a2, a3, a4, n] + S2[SP[a5, a6], a1, a2, a4, a3, n] + 
    S2[SP[a5, a6], a1, a4, a2, a3, n] + S2[a6, a4, a1, a2, a3, a5, n] + 
    S2[a6, a4, a1, a2, a5, a3, n] + S2[a6, a4, a1, a5, a2, a3, n] + 
    S2[a6, a4, a5, a1, a2, a3, n] + S2[a6, a5, a4, a1, a2, a3, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a3_, a2_, a1_, a5_, a4_, a6_, n_] :> 
  -(S2[a1, a2, a3, n]*S2[a4, a5, a6, n]) - S2[a1, a2, a3, n]*
     S2[a4, a6, a5, n] - S2[SP[a1, a4], SP[a2, a5], SP[a3, a6], n] - 
    S2[SP[a1, a4], SP[a2, a6], SP[a3, a5], n] + 
    S2[a4, a6, n]*S2[a1, a2, a3, a5, n] + S2[a4, a6, n]*
     S2[a1, a2, a5, a3, n] - S2[a1, a2, SP[a3, a4], SP[a5, a6], n] - 
    S2[a1, a2, SP[a4, a5], SP[a3, a6], n] + S2[a1, a4, SP[a2, a5], 
     SP[a3, a6], n] + S2[a1, a4, SP[a2, a6], SP[a3, a5], n] + 
    S2[a4, a6, n]*S2[a1, a5, a2, a3, n] - S2[a2, a3, n]*
     S2[a1, a5, a4, a6, n] - S2[a1, SP[a2, a4], a3, SP[a5, a6], n] + 
    S2[a1, SP[a2, a4], a6, SP[a3, a5], n] + S2[a1, SP[a2, a4], SP[a3, a5], 
     a6, n] - S2[a1, SP[a2, a4], SP[a5, a6], a3, n] + 
    S2[a1, SP[a2, a5], a4, SP[a3, a6], n] + S2[a1, SP[a2, a5], SP[a3, a4], 
     a6, n] - S2[a1, SP[a4, a5], a2, SP[a3, a6], n] - 
    S2[a1, SP[a4, a5], SP[a2, a6], a3, n] + S2[a4, a1, SP[a2, a5], 
     SP[a3, a6], n] + S2[a4, a1, SP[a2, a6], SP[a3, a5], n] + 
    S2[a4, SP[a1, a5], a2, SP[a3, a6], n] + S2[a4, SP[a1, a5], SP[a2, a6], 
     a3, n] + S2[a4, SP[a1, a6], a2, SP[a3, a5], n] + 
    S2[a4, SP[a1, a6], SP[a2, a5], a3, n] + S2[SP[a1, a2], a5, a4, 
     SP[a3, a6], n] + S2[SP[a1, a2], a5, SP[a3, a4], a6, n] + 
    S2[SP[a1, a2], SP[a3, a5], a4, a6, n] - S2[SP[a1, a4], a2, a3, 
     SP[a5, a6], n] + S2[SP[a1, a4], a2, a6, SP[a3, a5], n] + 
    S2[SP[a1, a4], a2, SP[a3, a5], a6, n] - S2[SP[a1, a4], a2, SP[a5, a6], 
     a3, n] + S2[SP[a1, a4], a6, a2, SP[a3, a5], n] + 
    S2[SP[a1, a4], a6, SP[a2, a5], a3, n] + S2[SP[a1, a4], SP[a2, a5], a3, 
     a6, n] + S2[SP[a1, a4], SP[a2, a5], a6, a3, n] - 
    S2[SP[a1, a4], SP[a5, a6], a2, a3, n] + S2[a1, a2, a3, a4, SP[a5, a6], 
     n] + S2[a1, a2, a3, SP[a4, a5], a6, n] + S2[a1, a2, a4, a3, SP[a5, a6], 
     n] - S2[a1, a2, a4, a6, SP[a3, a5], n] - S2[a1, a2, a4, SP[a3, a5], a6, 
     n] + S2[a1, a2, a4, SP[a5, a6], a3, n] - 
    S2[a3, n]*S2[a1, a2, a5, a4, a6, n] - S2[a1, a2, a5, a4, SP[a3, a6], n] - 
    S2[a1, a2, a5, SP[a3, a4], a6, n] - 2*S2[a1, a2, SP[a3, a5], a4, a6, n] + 
    S2[a1, a2, SP[a4, a5], a3, a6, n] + S2[a1, a2, SP[a4, a5], a6, a3, n] + 
    S2[a2, n]*S2[a1, a3, a5, a4, a6, n] + S2[a1, a3, a5, a4, SP[a2, a6], n] + 
    S2[a1, a3, a5, SP[a2, a4], a6, n] + S2[a1, a3, SP[a2, a5], a4, a6, n] + 
    S2[a1, a4, a2, a3, SP[a5, a6], n] - S2[a1, a4, a2, a6, SP[a3, a5], n] - 
    S2[a1, a4, a2, SP[a3, a5], a6, n] + S2[a1, a4, a2, SP[a5, a6], a3, n] - 
    S2[a1, a4, a6, a2, SP[a3, a5], n] - S2[a1, a4, a6, SP[a2, a5], a3, n] - 
    S2[a1, a4, SP[a2, a5], a3, a6, n] - S2[a1, a4, SP[a2, a5], a6, a3, n] + 
    S2[a1, a4, SP[a5, a6], a2, a3, n] - S2[a3, n]*S2[a1, a5, a2, a4, a6, n] - 
    S2[a1, a5, a2, a4, SP[a3, a6], n] - S2[a1, a5, a2, SP[a3, a4], a6, n] + 
    S2[a2, n]*S2[a1, a5, a3, a4, a6, n] + S2[a1, a5, a3, a4, SP[a2, a6], n] + 
    S2[a1, a5, a3, SP[a2, a4], a6, n] - S2[a3, n]*S2[a1, a5, a4, a2, a6, n] - 
    S2[a1, a5, a4, a2, SP[a3, a6], n] + S2[a2, n]*S2[a1, a5, a4, a3, a6, n] + 
    S2[a1, a5, a4, a3, SP[a2, a6], n] - S2[a3, n]*S2[a1, a5, a4, a6, a2, n] + 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] + S2[a1, a5, a4, SP[a2, a6], a3, n] - 
    S2[a1, a5, a4, SP[a3, a6], a2, n] + S2[a1, a5, SP[a2, a4], a3, a6, n] + 
    S2[a1, a5, SP[a2, a4], a6, a3, n] - S2[a1, a5, SP[a3, a4], a2, a6, n] - 
    S2[a1, a5, SP[a3, a4], a6, a2, n] - S2[a1, SP[a3, a5], a2, a4, a6, n] - 
    S2[a1, SP[a3, a5], a4, a2, a6, n] - S2[a1, SP[a3, a5], a4, a6, a2, n] + 
    S2[a1, SP[a4, a5], a2, a3, a6, n] + S2[a1, SP[a4, a5], a2, a6, a3, n] + 
    S2[a1, SP[a4, a5], a6, a2, a3, n] - S2[a2, a1, a5, a4, SP[a3, a6], n] - 
    S2[a2, a1, a5, SP[a3, a4], a6, n] - S2[a2, a1, SP[a3, a5], a4, a6, n] - 
    S2[a2, SP[a1, a3], a5, a4, a6, n] + S2[a2, n]*S2[a3, a1, a5, a4, a6, n] + 
    S2[a3, a1, a5, a4, SP[a2, a6], n] + S2[a3, a1, a5, SP[a2, a4], a6, n] + 
    S2[a3, a1, SP[a2, a5], a4, a6, n] + S2[a3, SP[a1, a2], a5, a4, a6, n] + 
    S2[a4, a1, a2, a3, SP[a5, a6], n] - S2[a4, a1, a2, a6, SP[a3, a5], n] - 
    S2[a4, a1, a2, SP[a3, a5], a6, n] + S2[a4, a1, a2, SP[a5, a6], a3, n] - 
    S2[a4, a1, a6, a2, SP[a3, a5], n] - S2[a4, a1, a6, SP[a2, a5], a3, n] - 
    S2[a4, a1, SP[a2, a5], a3, a6, n] - S2[a4, a1, SP[a2, a5], a6, a3, n] + 
    S2[a4, a1, SP[a5, a6], a2, a3, n] + S2[a6, n]*S2[a4, a5, a1, a2, a3, n] - 
    S2[a4, a6, a1, a2, SP[a3, a5], n] - S2[a4, a6, a1, SP[a2, a5], a3, n] - 
    S2[a4, a6, SP[a1, a5], a2, a3, n] - S2[a4, SP[a1, a5], a2, a3, a6, n] - 
    S2[a4, SP[a1, a5], a2, a6, a3, n] - S2[a4, SP[a1, a5], a6, a2, a3, n] + 
    S2[a4, SP[a5, a6], a1, a2, a3, n] - S2[SP[a1, a3], a2, a5, a4, a6, n] - 
    S2[SP[a1, a3], a5, a2, a4, a6, n] - S2[SP[a1, a3], a5, a4, a2, a6, n] - 
    S2[SP[a1, a3], a5, a4, a6, a2, n] + S2[SP[a2, a3], a1, a5, a4, a6, n] + 
    S2[SP[a4, a6], a5, a1, a2, a3, n] - S2[a6, a4, a5, a1, a2, a3, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a3_, a2_, a1_, a5_, a6_, a4_, n_] :> 
  S2[a1, a2, a3, n]*S2[a4, a6, a5, n] + S2[SP[a1, a4], SP[a2, a6], 
     SP[a3, a5], n] - S2[a4, a6, n]*S2[a1, a2, a3, a5, n] - 
    S2[a4, a6, n]*S2[a1, a2, a5, a3, n] + S2[a1, a2, SP[a3, a4], SP[a5, a6], 
     n] + S2[a1, a2, SP[a4, a5], SP[a3, a6], n] - S2[a1, a4, SP[a2, a6], 
     SP[a3, a5], n] - S2[a4, a6, n]*S2[a1, a5, a2, a3, n] - 
    S2[a2, a3, n]*S2[a1, a5, a6, a4, n] + S2[a1, a5, SP[a2, a4], SP[a3, a6], 
     n] + S2[a1, a5, SP[a2, a6], SP[a3, a4], n] + S2[a1, SP[a2, a4], a3, 
     SP[a5, a6], n] + S2[a1, SP[a2, a4], a5, SP[a3, a6], n] - 
    S2[a1, SP[a2, a4], a6, SP[a3, a5], n] + S2[a1, SP[a2, a4], SP[a5, a6], 
     a3, n] + S2[a1, SP[a2, a5], a6, SP[a3, a4], n] + 
    S2[a1, SP[a2, a5], SP[a3, a6], a4, n] + S2[a1, SP[a4, a5], a2, 
     SP[a3, a6], n] + S2[a1, SP[a4, a5], SP[a2, a6], a3, n] - 
    S2[a4, a1, SP[a2, a6], SP[a3, a5], n] - S2[a4, SP[a1, a6], a2, 
     SP[a3, a5], n] - S2[a4, SP[a1, a6], SP[a2, a5], a3, n] + 
    S2[SP[a1, a2], a5, a6, SP[a3, a4], n] + S2[SP[a1, a2], a5, SP[a3, a6], 
     a4, n] + S2[SP[a1, a2], SP[a3, a5], a6, a4, n] + 
    S2[SP[a1, a4], a2, a3, SP[a5, a6], n] + S2[SP[a1, a4], a2, a5, 
     SP[a3, a6], n] - S2[SP[a1, a4], a2, a6, SP[a3, a5], n] + 
    S2[SP[a1, a4], a2, SP[a5, a6], a3, n] + S2[SP[a1, a4], a5, a2, 
     SP[a3, a6], n] + S2[SP[a1, a4], a5, SP[a2, a6], a3, n] - 
    S2[SP[a1, a4], a6, a2, SP[a3, a5], n] - S2[SP[a1, a4], a6, SP[a2, a5], 
     a3, n] + S2[SP[a1, a4], SP[a5, a6], a2, a3, n] - 
    S2[a1, a2, a3, a4, SP[a5, a6], n] + S2[a4, n]*S2[a1, a2, a3, a5, a6, n] + 
    S2[a1, a2, a3, a5, SP[a4, a6], n] - S2[a1, a2, a4, a3, SP[a5, a6], n] - 
    S2[a1, a2, a4, a5, SP[a3, a6], n] + S2[a1, a2, a4, a6, SP[a3, a5], n] - 
    S2[a1, a2, a4, SP[a5, a6], a3, n] + S2[a4, n]*S2[a1, a2, a5, a3, a6, n] + 
    S2[a1, a2, a5, a3, SP[a4, a6], n] - S2[a1, a2, a5, a4, SP[a3, a6], n] + 
    S2[a4, n]*S2[a1, a2, a5, a6, a3, n] - 
    S2[a3, n]*S2[a1, a2, a5, a6, a4, n] - S2[a1, a2, a5, a6, SP[a3, a4], n] - 
    2*S2[a1, a2, a5, SP[a3, a6], a4, n] + S2[a1, a2, a5, SP[a4, a6], a3, n] - 
    2*S2[a1, a2, SP[a3, a5], a6, a4, n] + 
    S2[a2, n]*S2[a1, a3, a5, a6, a4, n] + S2[a1, a3, a5, a6, SP[a2, a4], n] + 
    S2[a1, a3, a5, SP[a2, a6], a4, n] + S2[a1, a3, SP[a2, a5], a6, a4, n] - 
    S2[a1, a4, a2, a3, SP[a5, a6], n] - S2[a1, a4, a2, a5, SP[a3, a6], n] + 
    S2[a1, a4, a2, a6, SP[a3, a5], n] - S2[a1, a4, a2, SP[a5, a6], a3, n] - 
    S2[a1, a4, a5, a2, SP[a3, a6], n] - S2[a1, a4, a5, SP[a2, a6], a3, n] + 
    S2[a1, a4, a6, a2, SP[a3, a5], n] + S2[a1, a4, a6, SP[a2, a5], a3, n] - 
    S2[a1, a4, SP[a5, a6], a2, a3, n] + S2[a4, n]*S2[a1, a5, a2, a3, a6, n] + 
    S2[a1, a5, a2, a3, SP[a4, a6], n] - S2[a1, a5, a2, a4, SP[a3, a6], n] + 
    S2[a4, n]*S2[a1, a5, a2, a6, a3, n] - 
    S2[a3, n]*S2[a1, a5, a2, a6, a4, n] - S2[a1, a5, a2, a6, SP[a3, a4], n] - 
    2*S2[a1, a5, a2, SP[a3, a6], a4, n] + S2[a1, a5, a2, SP[a4, a6], a3, n] + 
    S2[a2, n]*S2[a1, a5, a3, a6, a4, n] + S2[a1, a5, a3, a6, SP[a2, a4], n] + 
    S2[a1, a5, a3, SP[a2, a6], a4, n] - S2[a1, a5, a4, a2, SP[a3, a6], n] - 
    S2[a1, a5, a4, SP[a2, a6], a3, n] + S2[a4, n]*S2[a1, a5, a6, a2, a3, n] - 
    S2[a3, n]*S2[a1, a5, a6, a2, a4, n] - S2[a1, a5, a6, a2, SP[a3, a4], n] + 
    S2[a2, n]*S2[a1, a5, a6, a3, a4, n] + S2[a1, a5, a6, a3, SP[a2, a4], n] - 
    S2[a3, n]*S2[a1, a5, a6, a4, a2, n] + 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] + S2[a1, a5, a6, SP[a2, a4], a3, n] - 
    S2[a1, a5, a6, SP[a3, a4], a2, n] - S2[a1, a5, SP[a3, a6], a2, a4, n] - 
    S2[a1, a5, SP[a3, a6], a4, a2, n] + S2[a1, a5, SP[a4, a6], a2, a3, n] - 
    S2[a1, SP[a3, a5], a2, a6, a4, n] - S2[a1, SP[a3, a5], a6, a2, a4, n] - 
    S2[a1, SP[a3, a5], a6, a4, a2, n] - S2[a2, a1, a5, a6, SP[a3, a4], n] - 
    S2[a2, a1, a5, SP[a3, a6], a4, n] - S2[a2, a1, SP[a3, a5], a6, a4, n] - 
    S2[a2, SP[a1, a3], a5, a6, a4, n] + S2[a2, n]*S2[a3, a1, a5, a6, a4, n] + 
    S2[a3, a1, a5, a6, SP[a2, a4], n] + S2[a3, a1, a5, SP[a2, a6], a4, n] + 
    S2[a3, a1, SP[a2, a5], a6, a4, n] + S2[a3, SP[a1, a2], a5, a6, a4, n] - 
    S2[a4, a1, a2, a3, SP[a5, a6], n] - S2[a4, a1, a2, a5, SP[a3, a6], n] + 
    S2[a4, a1, a2, a6, SP[a3, a5], n] - S2[a4, a1, a2, SP[a5, a6], a3, n] - 
    S2[a4, a1, a5, a2, SP[a3, a6], n] - S2[a4, a1, a5, SP[a2, a6], a3, n] + 
    S2[a4, a1, a6, a2, SP[a3, a5], n] + S2[a4, a1, a6, SP[a2, a5], a3, n] - 
    S2[a4, a1, SP[a5, a6], a2, a3, n] + S2[a4, a6, a1, a2, SP[a3, a5], n] + 
    S2[a4, a6, a1, SP[a2, a5], a3, n] + S2[a4, a6, SP[a1, a5], a2, a3, n] - 
    S2[a4, n]*S2[a6, a5, a1, a2, a3, n] - S2[a6, a5, a1, a2, SP[a3, a4], n] - 
    S2[a6, a5, a1, SP[a2, a4], a3, n] - S2[a6, a5, SP[a1, a4], a2, a3, n] - 
    S2[a6, SP[a4, a5], a1, a2, a3, n] - S2[SP[a1, a3], a2, a5, a6, a4, n] - 
    S2[SP[a1, a3], a5, a2, a6, a4, n] - S2[SP[a1, a3], a5, a6, a2, a4, n] - 
    S2[SP[a1, a3], a5, a6, a4, a2, n] + S2[SP[a2, a3], a1, a5, a6, a4, n] - 
    S2[SP[a4, a6], a5, a1, a2, a3, n] + S2[a6, a4, a5, a1, a2, a3, n] + 
    S2[a6, a5, a1, a2, a3, a4, n] + S2[a6, a5, a1, a2, a4, a3, n] + 
    S2[a6, a5, a1, a4, a2, a3, n] + S2[a6, a5, a4, a1, a2, a3, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a3_, a2_, a1_, a6_, a4_, a5_, n_] :> 
  -(S2[a1, a2, a3, n]*S2[a4, a5, a6, n]) - S2[a1, a2, a3, n]*
     S2[a4, a6, a5, n] - S2[SP[a1, a4], SP[a2, a5], SP[a3, a6], n] - 
    S2[SP[a1, a4], SP[a2, a6], SP[a3, a5], n] + S2[a1, a4, SP[a2, a5], 
     SP[a3, a6], n] + S2[a1, a4, SP[a2, a6], SP[a3, a5], n] - 
    S2[a2, a3, n]*S2[a1, a6, a4, a5, n] + S2[a1, a6, SP[a2, a4], SP[a3, a5], 
     n] + S2[a1, SP[a2, a4], a5, SP[a3, a6], n] + S2[a1, SP[a2, a4], a6, 
     SP[a3, a5], n] + S2[a1, SP[a2, a4], SP[a3, a5], a6, n] + 
    S2[a1, SP[a2, a4], SP[a3, a6], a5, n] + S2[a1, SP[a2, a6], a4, 
     SP[a3, a5], n] + S2[a1, SP[a2, a6], SP[a3, a4], a5, n] + 
    S2[a4, a1, SP[a2, a5], SP[a3, a6], n] + S2[a4, a1, SP[a2, a6], 
     SP[a3, a5], n] + S2[a4, SP[a1, a5], a2, SP[a3, a6], n] + 
    S2[a4, SP[a1, a5], SP[a2, a6], a3, n] + S2[a4, SP[a1, a6], a2, 
     SP[a3, a5], n] + S2[a4, SP[a1, a6], SP[a2, a5], a3, n] + 
    S2[SP[a1, a2], a6, a4, SP[a3, a5], n] + S2[SP[a1, a2], a6, SP[a3, a4], 
     a5, n] + S2[SP[a1, a2], SP[a3, a6], a4, a5, n] + 
    S2[SP[a1, a4], a2, a5, SP[a3, a6], n] + S2[SP[a1, a4], a2, a6, 
     SP[a3, a5], n] + S2[SP[a1, a4], a2, SP[a3, a5], a6, n] + 
    S2[SP[a1, a4], a2, SP[a3, a6], a5, n] + S2[SP[a1, a4], a5, a2, 
     SP[a3, a6], n] + S2[SP[a1, a4], a5, SP[a2, a6], a3, n] + 
    S2[SP[a1, a4], a6, a2, SP[a3, a5], n] + S2[SP[a1, a4], a6, SP[a2, a5], 
     a3, n] + S2[SP[a1, a4], SP[a2, a5], a3, a6, n] + 
    S2[SP[a1, a4], SP[a2, a5], a6, a3, n] + S2[SP[a1, a4], SP[a2, a6], a3, 
     a5, n] + S2[SP[a1, a4], SP[a2, a6], a5, a3, n] - 
    S2[a6, n]*S2[a1, a2, a3, a5, a4, n] + 
    S2[a4, n]*S2[a1, a2, a3, a5, a6, n] + 
    S2[a4, n]*S2[a1, a2, a3, a6, a5, n] + S2[a1, a2, a3, a6, SP[a4, a5], n] + 
    S2[a1, a2, a3, SP[a4, a5], a6, n] + S2[a1, a2, a3, SP[a4, a6], a5, n] - 
    S2[a1, a2, a3, SP[a5, a6], a4, n] - S2[a1, a2, a4, a5, SP[a3, a6], n] - 
    S2[a1, a2, a4, a6, SP[a3, a5], n] - S2[a1, a2, a4, SP[a3, a5], a6, n] - 
    S2[a1, a2, a4, SP[a3, a6], a5, n] - S2[a6, n]*S2[a1, a2, a5, a3, a4, n] + 
    S2[a4, n]*S2[a1, a2, a5, a3, a6, n] - 
    S2[a6, n]*S2[a1, a2, a5, a4, a3, n] - S2[a1, a2, a5, a4, SP[a3, a6], n] + 
    S2[a4, n]*S2[a1, a2, a5, a6, a3, n] + S2[a1, a2, a5, a6, SP[a3, a4], n] + 
    S2[a1, a2, a5, SP[a3, a4], a6, n] - S2[a1, a2, a5, SP[a3, a6], a4, n] + 
    S2[a4, n]*S2[a1, a2, a6, a3, a5, n] + S2[a1, a2, a6, a3, SP[a4, a5], n] - 
    S2[a3, n]*S2[a1, a2, a6, a4, a5, n] - 
    2*S2[a1, a2, a6, a4, SP[a3, a5], n] + 
    S2[a4, n]*S2[a1, a2, a6, a5, a3, n] + S2[a1, a2, a6, a5, SP[a3, a4], n] - 
    S2[a1, a2, a6, SP[a3, a4], a5, n] + S2[a1, a2, a6, SP[a4, a5], a3, n] - 
    2*S2[a1, a2, SP[a3, a6], a4, a5, n] - S2[a1, a2, SP[a3, a6], a5, a4, n] + 
    S2[a1, a2, SP[a4, a5], a3, a6, n] + S2[a1, a2, SP[a4, a5], a6, a3, n] + 
    S2[a1, a2, SP[a4, a6], a3, a5, n] + S2[a1, a2, SP[a4, a6], a5, a3, n] - 
    S2[a1, a2, SP[a5, a6], a3, a4, n] - S2[a1, a2, SP[a5, a6], a4, a3, n] + 
    S2[a2, n]*S2[a1, a3, a6, a4, a5, n] + S2[a1, a3, a6, a4, SP[a2, a5], n] + 
    S2[a1, a3, a6, SP[a2, a4], a5, n] + S2[a1, a3, SP[a2, a6], a4, a5, n] - 
    S2[a1, a4, a2, a5, SP[a3, a6], n] - S2[a1, a4, a2, a6, SP[a3, a5], n] - 
    S2[a1, a4, a2, SP[a3, a5], a6, n] - S2[a1, a4, a2, SP[a3, a6], a5, n] - 
    S2[a1, a4, a5, a2, SP[a3, a6], n] - S2[a1, a4, a5, SP[a2, a6], a3, n] - 
    S2[a1, a4, a6, a2, SP[a3, a5], n] - S2[a1, a4, a6, SP[a2, a5], a3, n] - 
    S2[a1, a4, SP[a2, a5], a3, a6, n] - S2[a1, a4, SP[a2, a5], a6, a3, n] - 
    S2[a1, a4, SP[a2, a6], a3, a5, n] - S2[a1, a4, SP[a2, a6], a5, a3, n] - 
    S2[a6, n]*S2[a1, a5, a2, a3, a4, n] + 
    S2[a4, n]*S2[a1, a5, a2, a3, a6, n] - 
    S2[a6, n]*S2[a1, a5, a2, a4, a3, n] - S2[a1, a5, a2, a4, SP[a3, a6], n] + 
    S2[a4, n]*S2[a1, a5, a2, a6, a3, n] + S2[a1, a5, a2, a6, SP[a3, a4], n] + 
    S2[a1, a5, a2, SP[a3, a4], a6, n] - S2[a1, a5, a2, SP[a3, a6], a4, n] - 
    S2[a6, n]*S2[a1, a5, a4, a2, a3, n] - S2[a1, a5, a4, a2, SP[a3, a6], n] - 
    S2[a1, a5, a4, SP[a2, a6], a3, n] + S2[a4, n]*S2[a1, a5, a6, a2, a3, n] + 
    S2[a1, a5, a6, a2, SP[a3, a4], n] + S2[a1, a5, a6, SP[a2, a4], a3, n] + 
    S2[a1, a5, SP[a2, a4], a3, a6, n] + S2[a1, a5, SP[a2, a4], a6, a3, n] - 
    S2[a1, a5, SP[a2, a6], a3, a4, n] - S2[a1, a5, SP[a2, a6], a4, a3, n] + 
    S2[a4, n]*S2[a1, a6, a2, a3, a5, n] + S2[a1, a6, a2, a3, SP[a4, a5], n] - 
    S2[a3, n]*S2[a1, a6, a2, a4, a5, n] - 
    2*S2[a1, a6, a2, a4, SP[a3, a5], n] + 
    S2[a4, n]*S2[a1, a6, a2, a5, a3, n] + S2[a1, a6, a2, a5, SP[a3, a4], n] - 
    S2[a1, a6, a2, SP[a3, a4], a5, n] + S2[a1, a6, a2, SP[a4, a5], a3, n] + 
    S2[a2, n]*S2[a1, a6, a3, a4, a5, n] + S2[a1, a6, a3, a4, SP[a2, a5], n] + 
    S2[a1, a6, a3, SP[a2, a4], a5, n] - S2[a3, n]*S2[a1, a6, a4, a2, a5, n] - 
    2*S2[a1, a6, a4, a2, SP[a3, a5], n] + 
    S2[a2, n]*S2[a1, a6, a4, a3, a5, n] + S2[a1, a6, a4, a3, SP[a2, a5], n] - 
    S2[a3, n]*S2[a1, a6, a4, a5, a2, n] + 
    S2[a2, n]*S2[a1, a6, a4, a5, a3, n] - S2[a1, a6, a4, SP[a3, a5], a2, n] + 
    S2[a4, n]*S2[a1, a6, a5, a2, a3, n] + S2[a1, a6, a5, a2, SP[a3, a4], n] + 
    S2[a1, a6, a5, SP[a2, a4], a3, n] + S2[a1, a6, SP[a2, a4], a3, a5, n] + 
    S2[a1, a6, SP[a2, a4], a5, a3, n] - S2[a1, a6, SP[a3, a4], a2, a5, n] - 
    S2[a1, a6, SP[a3, a4], a5, a2, n] + S2[a1, a6, SP[a4, a5], a2, a3, n] - 
    S2[a1, SP[a2, a6], a3, a5, a4, n] - S2[a1, SP[a2, a6], a5, a3, a4, n] - 
    S2[a1, SP[a2, a6], a5, a4, a3, n] - S2[a1, SP[a3, a6], a2, a4, a5, n] - 
    S2[a1, SP[a3, a6], a4, a2, a5, n] - S2[a1, SP[a3, a6], a4, a5, a2, n] + 
    S2[a1, SP[a4, a5], a2, a3, a6, n] + S2[a1, SP[a4, a5], a2, a6, a3, n] + 
    S2[a1, SP[a4, a5], a6, a2, a3, n] + S2[a1, SP[a4, a6], a2, a3, a5, n] + 
    S2[a1, SP[a4, a6], a2, a5, a3, n] + S2[a1, SP[a4, a6], a5, a2, a3, n] - 
    S2[a1, SP[a5, a6], a2, a3, a4, n] - S2[a1, SP[a5, a6], a2, a4, a3, n] - 
    S2[a1, SP[a5, a6], a4, a2, a3, n] - S2[a2, a1, a6, a4, SP[a3, a5], n] - 
    S2[a2, a1, a6, SP[a3, a4], a5, n] - S2[a2, a1, SP[a3, a6], a4, a5, n] - 
    S2[a2, SP[a1, a3], a6, a4, a5, n] + S2[a2, n]*S2[a3, a1, a6, a4, a5, n] + 
    S2[a3, a1, a6, a4, SP[a2, a5], n] + S2[a3, a1, a6, SP[a2, a4], a5, n] + 
    S2[a3, a1, SP[a2, a6], a4, a5, n] + S2[a3, SP[a1, a2], a6, a4, a5, n] - 
    S2[a4, a1, a2, a5, SP[a3, a6], n] - S2[a4, a1, a2, a6, SP[a3, a5], n] - 
    S2[a4, a1, a2, SP[a3, a5], a6, n] - S2[a4, a1, a2, SP[a3, a6], a5, n] - 
    S2[a4, a1, a5, a2, SP[a3, a6], n] - S2[a4, a1, a5, SP[a2, a6], a3, n] - 
    S2[a4, a1, a6, a2, SP[a3, a5], n] - S2[a4, a1, a6, SP[a2, a5], a3, n] - 
    S2[a4, a1, SP[a2, a5], a3, a6, n] - S2[a4, a1, SP[a2, a5], a6, a3, n] - 
    S2[a4, a1, SP[a2, a6], a3, a5, n] - S2[a4, a1, SP[a2, a6], a5, a3, n] + 
    S2[a6, n]*S2[a4, a5, a1, a2, a3, n] - S2[a4, a6, a1, a2, SP[a3, a5], n] - 
    S2[a4, a6, a1, SP[a2, a5], a3, n] - S2[a4, a6, SP[a1, a5], a2, a3, n] - 
    S2[a4, SP[a1, a5], a2, a3, a6, n] - S2[a4, SP[a1, a5], a2, a6, a3, n] - 
    S2[a4, SP[a1, a5], a6, a2, a3, n] - S2[a4, SP[a1, a6], a2, a3, a5, n] - 
    S2[a4, SP[a1, a6], a2, a5, a3, n] - S2[a4, SP[a1, a6], a5, a2, a3, n] + 
    S2[a4, SP[a5, a6], a1, a2, a3, n] + S2[a4, n]*S2[a6, a1, a2, a3, a5, n] + 
    S2[a6, a1, a2, a3, SP[a4, a5], n] + S2[a4, n]*S2[a6, a1, a2, a5, a3, n] + 
    S2[a6, a1, a2, a5, SP[a3, a4], n] + S2[a6, a1, a2, SP[a3, a4], a5, n] + 
    S2[a6, a1, a2, SP[a4, a5], a3, n] + S2[a4, n]*S2[a6, a1, a5, a2, a3, n] + 
    S2[a6, a1, a5, a2, SP[a3, a4], n] + S2[a6, a1, a5, SP[a2, a4], a3, n] + 
    S2[a6, a1, SP[a2, a4], a3, a5, n] + S2[a6, a1, SP[a2, a4], a5, a3, n] + 
    S2[a6, a1, SP[a4, a5], a2, a3, n] + S2[a6, SP[a1, a4], a2, a3, a5, n] + 
    S2[a6, SP[a1, a4], a2, a5, a3, n] + S2[a6, SP[a1, a4], a5, a2, a3, n] - 
    S2[SP[a1, a3], a2, a6, a4, a5, n] - S2[SP[a1, a3], a6, a2, a4, a5, n] - 
    S2[SP[a1, a3], a6, a4, a2, a5, n] - S2[SP[a1, a3], a6, a4, a5, a2, n] - 
    S2[SP[a1, a6], a2, a3, a5, a4, n] - S2[SP[a1, a6], a2, a5, a3, a4, n] - 
    S2[SP[a1, a6], a2, a5, a4, a3, n] - S2[SP[a1, a6], a5, a2, a3, a4, n] - 
    S2[SP[a1, a6], a5, a2, a4, a3, n] - S2[SP[a1, a6], a5, a4, a2, a3, n] + 
    S2[SP[a2, a3], a1, a6, a4, a5, n] + S2[SP[a4, a6], a1, a2, a3, a5, n] + 
    S2[SP[a4, a6], a1, a2, a5, a3, n] + S2[SP[a4, a6], a1, a5, a2, a3, n] + 
    S2[SP[a4, a6], a5, a1, a2, a3, n] - S2[a6, a1, a2, a3, a4, a5, n] - 
    S2[a6, a1, a2, a4, a3, a5, n] - S2[a6, a1, a2, a4, a5, a3, n] - 
    S2[a6, a1, a4, a2, a3, a5, n] - S2[a6, a1, a4, a2, a5, a3, n] - 
    S2[a6, a1, a4, a5, a2, a3, n] - S2[a6, a4, a1, a2, a3, a5, n] - 
    S2[a6, a4, a1, a2, a5, a3, n] - S2[a6, a4, a1, a5, a2, a3, n] - 
    S2[a6, a4, a5, a1, a2, a3, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a3_, a2_, a1_, a6_, a5_, a4_, n_] :> 
  S2[a1, a2, a3, n]*S2[a4, a5, a6, n] + S2[SP[a1, a4], SP[a2, a5], 
     SP[a3, a6], n] - S2[a1, a4, SP[a2, a5], SP[a3, a6], n] - 
    S2[a2, a3, n]*S2[a1, a6, a5, a4, n] + S2[a1, a6, SP[a2, a5], SP[a3, a4], 
     n] - S2[a1, SP[a2, a4], a5, SP[a3, a6], n] - 
    S2[a1, SP[a2, a4], SP[a3, a5], a6, n] + S2[a1, SP[a2, a6], a5, 
     SP[a3, a4], n] + S2[a1, SP[a2, a6], SP[a3, a5], a4, n] - 
    S2[a4, a1, SP[a2, a5], SP[a3, a6], n] - S2[a4, SP[a1, a5], a2, 
     SP[a3, a6], n] - S2[a4, SP[a1, a5], SP[a2, a6], a3, n] + 
    S2[SP[a1, a2], a6, a5, SP[a3, a4], n] + S2[SP[a1, a2], a6, SP[a3, a5], 
     a4, n] + S2[SP[a1, a2], SP[a3, a6], a5, a4, n] - 
    S2[SP[a1, a4], a2, a5, SP[a3, a6], n] - S2[SP[a1, a4], a2, SP[a3, a5], 
     a6, n] - S2[SP[a1, a4], a5, a2, SP[a3, a6], n] - 
    S2[SP[a1, a4], a5, SP[a2, a6], a3, n] - S2[SP[a1, a4], SP[a2, a5], a3, 
     a6, n] - S2[SP[a1, a4], SP[a2, a5], a6, a3, n] + 
    S2[a6, n]*S2[a1, a2, a3, a5, a4, n] - 
    S2[a4, n]*S2[a1, a2, a3, a5, a6, n] - S2[a1, a2, a3, SP[a4, a5], a6, n] + 
    S2[a1, a2, a3, SP[a5, a6], a4, n] + S2[a1, a2, a4, a5, SP[a3, a6], n] + 
    S2[a1, a2, a4, SP[a3, a5], a6, n] + S2[a6, n]*S2[a1, a2, a5, a3, a4, n] - 
    S2[a4, n]*S2[a1, a2, a5, a3, a6, n] + 
    S2[a6, n]*S2[a1, a2, a5, a4, a3, n] + S2[a1, a2, a5, a4, SP[a3, a6], n] - 
    S2[a4, n]*S2[a1, a2, a5, a6, a3, n] - S2[a1, a2, a5, a6, SP[a3, a4], n] - 
    S2[a1, a2, a5, SP[a3, a4], a6, n] + S2[a1, a2, a5, SP[a3, a6], a4, n] - 
    S2[a3, n]*S2[a1, a2, a6, a5, a4, n] - 
    2*S2[a1, a2, a6, a5, SP[a3, a4], n] - 
    2*S2[a1, a2, a6, SP[a3, a5], a4, n] - S2[a1, a2, SP[a3, a6], a5, a4, n] - 
    S2[a1, a2, SP[a4, a5], a3, a6, n] - S2[a1, a2, SP[a4, a5], a6, a3, n] + 
    S2[a1, a2, SP[a5, a6], a3, a4, n] + S2[a1, a2, SP[a5, a6], a4, a3, n] + 
    S2[a2, n]*S2[a1, a3, a6, a5, a4, n] + S2[a1, a3, a6, a5, SP[a2, a4], n] + 
    S2[a1, a3, a6, SP[a2, a5], a4, n] + S2[a1, a3, SP[a2, a6], a5, a4, n] + 
    S2[a1, a4, a2, a5, SP[a3, a6], n] + S2[a1, a4, a2, SP[a3, a5], a6, n] + 
    S2[a1, a4, a5, a2, SP[a3, a6], n] + S2[a1, a4, a5, SP[a2, a6], a3, n] + 
    S2[a1, a4, SP[a2, a5], a3, a6, n] + S2[a1, a4, SP[a2, a5], a6, a3, n] + 
    S2[a6, n]*S2[a1, a5, a2, a3, a4, n] - 
    S2[a4, n]*S2[a1, a5, a2, a3, a6, n] + 
    S2[a6, n]*S2[a1, a5, a2, a4, a3, n] + S2[a1, a5, a2, a4, SP[a3, a6], n] - 
    S2[a4, n]*S2[a1, a5, a2, a6, a3, n] - S2[a1, a5, a2, a6, SP[a3, a4], n] - 
    S2[a1, a5, a2, SP[a3, a4], a6, n] + S2[a1, a5, a2, SP[a3, a6], a4, n] + 
    S2[a6, n]*S2[a1, a5, a4, a2, a3, n] + S2[a1, a5, a4, a2, SP[a3, a6], n] + 
    S2[a1, a5, a4, SP[a2, a6], a3, n] - S2[a4, n]*S2[a1, a5, a6, a2, a3, n] - 
    S2[a1, a5, a6, a2, SP[a3, a4], n] - S2[a1, a5, a6, SP[a2, a4], a3, n] - 
    S2[a1, a5, SP[a2, a4], a3, a6, n] - S2[a1, a5, SP[a2, a4], a6, a3, n] + 
    S2[a1, a5, SP[a2, a6], a3, a4, n] + S2[a1, a5, SP[a2, a6], a4, a3, n] - 
    S2[a3, n]*S2[a1, a6, a2, a5, a4, n] - 
    2*S2[a1, a6, a2, a5, SP[a3, a4], n] - 
    2*S2[a1, a6, a2, SP[a3, a5], a4, n] + 
    S2[a2, n]*S2[a1, a6, a3, a5, a4, n] + S2[a1, a6, a3, a5, SP[a2, a4], n] + 
    S2[a1, a6, a3, SP[a2, a5], a4, n] - S2[a3, n]*S2[a1, a6, a5, a2, a4, n] - 
    2*S2[a1, a6, a5, a2, SP[a3, a4], n] + 
    S2[a2, n]*S2[a1, a6, a5, a3, a4, n] + S2[a1, a6, a5, a3, SP[a2, a4], n] - 
    S2[a3, n]*S2[a1, a6, a5, a4, a2, n] + 
    S2[a2, n]*S2[a1, a6, a5, a4, a3, n] - S2[a1, a6, a5, SP[a3, a4], a2, n] - 
    S2[a1, a6, SP[a3, a5], a2, a4, n] - S2[a1, a6, SP[a3, a5], a4, a2, n] + 
    S2[a1, SP[a2, a6], a3, a5, a4, n] + S2[a1, SP[a2, a6], a5, a3, a4, n] + 
    S2[a1, SP[a2, a6], a5, a4, a3, n] - S2[a1, SP[a3, a6], a2, a5, a4, n] - 
    S2[a1, SP[a3, a6], a5, a2, a4, n] - S2[a1, SP[a3, a6], a5, a4, a2, n] - 
    S2[a1, SP[a4, a5], a2, a3, a6, n] - S2[a1, SP[a4, a5], a2, a6, a3, n] - 
    S2[a1, SP[a4, a5], a6, a2, a3, n] + S2[a1, SP[a5, a6], a2, a3, a4, n] + 
    S2[a1, SP[a5, a6], a2, a4, a3, n] + S2[a1, SP[a5, a6], a4, a2, a3, n] - 
    S2[a2, a1, a6, a5, SP[a3, a4], n] - S2[a2, a1, a6, SP[a3, a5], a4, n] - 
    S2[a2, a1, SP[a3, a6], a5, a4, n] - S2[a2, SP[a1, a3], a6, a5, a4, n] + 
    S2[a2, n]*S2[a3, a1, a6, a5, a4, n] + S2[a3, a1, a6, a5, SP[a2, a4], n] + 
    S2[a3, a1, a6, SP[a2, a5], a4, n] + S2[a3, a1, SP[a2, a6], a5, a4, n] + 
    S2[a3, SP[a1, a2], a6, a5, a4, n] + S2[a4, a1, a2, a5, SP[a3, a6], n] + 
    S2[a4, a1, a2, SP[a3, a5], a6, n] + S2[a4, a1, a5, a2, SP[a3, a6], n] + 
    S2[a4, a1, a5, SP[a2, a6], a3, n] + S2[a4, a1, SP[a2, a5], a3, a6, n] + 
    S2[a4, a1, SP[a2, a5], a6, a3, n] - S2[a6, n]*S2[a4, a5, a1, a2, a3, n] + 
    S2[a4, SP[a1, a5], a2, a3, a6, n] + S2[a4, SP[a1, a5], a2, a6, a3, n] + 
    S2[a4, SP[a1, a5], a6, a2, a3, n] - S2[a4, SP[a5, a6], a1, a2, a3, n] + 
    S2[a4, n]*S2[a6, a5, a1, a2, a3, n] + S2[a6, a5, a1, a2, SP[a3, a4], n] + 
    S2[a6, a5, a1, SP[a2, a4], a3, n] + S2[a6, a5, SP[a1, a4], a2, a3, n] + 
    S2[a6, SP[a4, a5], a1, a2, a3, n] - S2[SP[a1, a3], a2, a6, a5, a4, n] - 
    S2[SP[a1, a3], a6, a2, a5, a4, n] - S2[SP[a1, a3], a6, a5, a2, a4, n] - 
    S2[SP[a1, a3], a6, a5, a4, a2, n] + S2[SP[a1, a6], a2, a3, a5, a4, n] + 
    S2[SP[a1, a6], a2, a5, a3, a4, n] + S2[SP[a1, a6], a2, a5, a4, a3, n] + 
    S2[SP[a1, a6], a5, a2, a3, a4, n] + S2[SP[a1, a6], a5, a2, a4, a3, n] + 
    S2[SP[a1, a6], a5, a4, a2, a3, n] + S2[SP[a2, a3], a1, a6, a5, a4, n] - 
    S2[a6, a1, a2, a3, a5, a4, n] - S2[a6, a1, a2, a5, a3, a4, n] - 
    S2[a6, a1, a2, a5, a4, a3, n] - S2[a6, a1, a5, a2, a3, a4, n] - 
    S2[a6, a1, a5, a2, a4, a3, n] - S2[a6, a1, a5, a4, a2, a3, n] - 
    S2[a6, a5, a1, a2, a3, a4, n] - S2[a6, a5, a1, a2, a4, a3, n] - 
    S2[a6, a5, a1, a4, a2, a3, n] - S2[a6, a5, a4, a1, a2, a3, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a3_, a2_, a4_, a1_, a5_, a6_, n_] :> 
  -(S2[a1, a5, a6, n]*S2[a2, a3, a4, n]) - S2[a1, a5, a6, n]*
     S2[a2, a4, a3, n] - S2[SP[a1, a2], SP[a3, a5], SP[a4, a6], n] - 
    S2[SP[a1, a2], SP[a4, a5], SP[a3, a6], n] + S2[a1, a2, SP[a3, a5], 
     SP[a4, a6], n] + S2[a1, a2, SP[a4, a5], SP[a3, a6], n] - 
    S2[a5, a6, n]*S2[a1, a4, a2, a3, n] + S2[a2, a3, n]*
     S2[a1, a4, a5, a6, n] + S2[a2, a3, n]*S2[a1, a5, a4, a6, n] + 
    S2[a2, a3, n]*S2[a1, a5, a6, a4, n] - S2[a1, a5, SP[a2, a4], SP[a3, a6], 
     n] - S2[a1, a5, SP[a2, a6], SP[a3, a4], n] - S2[a1, SP[a2, a4], a5, 
     SP[a3, a6], n] - S2[a1, SP[a2, a4], SP[a3, a5], a6, n] + 
    S2[a1, SP[a2, a5], a3, SP[a4, a6], n] - S2[a1, SP[a2, a5], a6, 
     SP[a3, a4], n] - S2[a1, SP[a2, a5], SP[a3, a4], a6, n] + 
    S2[a1, SP[a2, a5], SP[a4, a6], a3, n] + S2[a1, SP[a4, a5], a2, 
     SP[a3, a6], n] + S2[a1, SP[a4, a5], SP[a2, a6], a3, n] + 
    S2[a2, a1, SP[a3, a5], SP[a4, a6], n] + S2[a2, a1, SP[a4, a5], 
     SP[a3, a6], n] + S2[a2, SP[a1, a3], a5, SP[a4, a6], n] + 
    S2[a2, SP[a1, a3], SP[a4, a5], a6, n] + S2[a2, SP[a1, a4], a5, 
     SP[a3, a6], n] + S2[a2, SP[a1, a4], SP[a3, a5], a6, n] + 
    S2[SP[a1, a2], a3, a5, SP[a4, a6], n] + S2[SP[a1, a2], a3, SP[a4, a5], 
     a6, n] + S2[SP[a1, a2], a5, a3, SP[a4, a6], n] - 
    S2[SP[a1, a2], a5, a6, SP[a3, a4], n] - S2[SP[a1, a2], a5, SP[a3, a4], 
     a6, n] + S2[SP[a1, a2], a5, SP[a4, a6], a3, n] - 
    S2[SP[a1, a2], SP[a3, a4], a5, a6, n] + S2[SP[a1, a2], SP[a4, a5], a3, 
     a6, n] + S2[SP[a1, a2], SP[a4, a5], a6, a3, n] + 
    S2[SP[a1, a5], a4, a2, SP[a3, a6], n] + S2[SP[a1, a5], a4, SP[a2, a6], 
     a3, n] + S2[SP[a1, a5], SP[a4, a6], a2, a3, n] - 
    S2[a1, a2, a3, a5, SP[a4, a6], n] - S2[a1, a2, a3, SP[a4, a5], a6, n] - 
    S2[a1, a2, a5, a3, SP[a4, a6], n] + S2[a1, a2, a5, a6, SP[a3, a4], n] + 
    S2[a1, a2, a5, SP[a3, a4], a6, n] - S2[a1, a2, a5, SP[a4, a6], a3, n] + 
    S2[a1, a2, SP[a3, a4], a5, a6, n] - S2[a1, a2, SP[a4, a5], a3, a6, n] - 
    S2[a1, a2, SP[a4, a5], a6, a3, n] - S2[a6, n]*S2[a1, a4, a2, a3, a5, n] + 
    S2[a5, n]*S2[a1, a4, a2, a3, a6, n] - 
    S2[a6, n]*S2[a1, a4, a2, a5, a3, n] - S2[a1, a4, a2, a5, SP[a3, a6], n] + 
    S2[a5, n]*S2[a1, a4, a2, a6, a3, n] + S2[a1, a4, a2, a6, SP[a3, a5], n] + 
    S2[a1, a4, a2, SP[a3, a5], a6, n] - S2[a1, a4, a2, SP[a3, a6], a5, n] - 
    S2[a6, n]*S2[a1, a4, a5, a2, a3, n] - S2[a1, a4, a5, a2, SP[a3, a6], n] - 
    S2[a1, a4, a5, SP[a2, a6], a3, n] + S2[a5, n]*S2[a1, a4, a6, a2, a3, n] + 
    S2[a1, a4, a6, a2, SP[a3, a5], n] + S2[a1, a4, a6, SP[a2, a5], a3, n] + 
    S2[a1, a4, SP[a2, a5], a3, a6, n] + S2[a1, a4, SP[a2, a5], a6, a3, n] - 
    S2[a1, a4, SP[a2, a6], a3, a5, n] - S2[a1, a4, SP[a2, a6], a5, a3, n] - 
    S2[a1, a5, a2, a3, SP[a4, a6], n] + S2[a1, a5, a2, a6, SP[a3, a4], n] + 
    S2[a1, a5, a2, SP[a3, a4], a6, n] - S2[a1, a5, a2, SP[a4, a6], a3, n] - 
    S2[a6, n]*S2[a1, a5, a4, a2, a3, n] - S2[a1, a5, a4, a2, SP[a3, a6], n] - 
    S2[a1, a5, a4, SP[a2, a6], a3, n] + S2[a1, a5, a6, a2, SP[a3, a4], n] + 
    S2[a1, a5, a6, SP[a2, a4], a3, n] + S2[a1, a5, SP[a2, a4], a3, a6, n] + 
    S2[a1, a5, SP[a2, a4], a6, a3, n] - 2*S2[a1, a5, SP[a4, a6], a2, a3, n] + 
    S2[a5, n]*S2[a1, a6, a4, a2, a3, n] + S2[a1, a6, a4, a2, SP[a3, a5], n] + 
    S2[a1, a6, a4, SP[a2, a5], a3, n] + S2[a1, a6, SP[a4, a5], a2, a3, n] + 
    S2[a1, SP[a2, a4], a3, a5, a6, n] + S2[a1, SP[a2, a4], a5, a3, a6, n] + 
    S2[a1, SP[a2, a4], a5, a6, a3, n] - S2[a1, SP[a4, a6], a2, a3, a5, n] - 
    S2[a1, SP[a4, a6], a2, a5, a3, n] - S2[a1, SP[a4, a6], a5, a2, a3, n] - 
    S2[a2, a1, a3, a5, SP[a4, a6], n] - S2[a2, a1, a3, SP[a4, a5], a6, n] - 
    S2[a2, a1, a5, a3, SP[a4, a6], n] + S2[a2, a1, a5, a6, SP[a3, a4], n] + 
    S2[a2, a1, a5, SP[a3, a4], a6, n] - S2[a2, a1, a5, SP[a4, a6], a3, n] + 
    S2[a2, a1, SP[a3, a4], a5, a6, n] - S2[a2, a1, SP[a4, a5], a3, a6, n] - 
    S2[a2, a1, SP[a4, a5], a6, a3, n] - S2[a2, a3, a1, a5, SP[a4, a6], n] - 
    S2[a2, a3, a1, SP[a4, a5], a6, n] - S2[a2, a3, SP[a1, a4], a5, a6, n] + 
    S2[a3, n]*S2[a2, a4, a1, a5, a6, n] - S2[a2, SP[a1, a4], a3, a5, a6, n] - 
    S2[a2, SP[a1, a4], a5, a3, a6, n] - S2[a2, SP[a1, a4], a5, a6, a3, n] + 
    S2[a2, SP[a3, a4], a1, a5, a6, n] - S2[a5, a1, a4, a2, SP[a3, a6], n] - 
    S2[a5, a1, a4, SP[a2, a6], a3, n] - S2[a5, a1, SP[a4, a6], a2, a3, n] - 
    S2[a5, SP[a1, a6], a4, a2, a3, n] + S2[a5, n]*S2[a6, a1, a4, a2, a3, n] + 
    S2[a6, a1, a4, a2, SP[a3, a5], n] + S2[a6, a1, a4, SP[a2, a5], a3, n] + 
    S2[a6, a1, SP[a4, a5], a2, a3, n] + S2[a6, SP[a1, a5], a4, a2, a3, n] - 
    S2[SP[a1, a6], a4, a2, a3, a5, n] - S2[SP[a1, a6], a4, a2, a5, a3, n] - 
    S2[SP[a1, a6], a4, a5, a2, a3, n] - S2[SP[a1, a6], a5, a4, a2, a3, n] + 
    S2[SP[a2, a3], a4, a1, a5, a6, n] + S2[SP[a5, a6], a1, a4, a2, a3, n] - 
    S2[a6, a5, a1, a4, a2, a3, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a3_, a2_, a4_, a1_, a6_, a5_, n_] :> 
  -(S2[a1, a6, a5, n]*S2[a2, a3, a4, n]) - S2[a1, a6, a5, n]*
     S2[a2, a4, a3, n] - S2[SP[a1, a2], SP[a3, a6], SP[a4, a5], n] - 
    S2[SP[a1, a2], SP[a4, a6], SP[a3, a5], n] + S2[a1, a2, SP[a3, a6], 
     SP[a4, a5], n] + S2[a1, a2, SP[a4, a6], SP[a3, a5], n] + 
    S2[a5, a6, n]*S2[a1, a4, a2, a3, n] + S2[a2, a3, n]*
     S2[a1, a4, a6, a5, n] - S2[a1, a4, SP[a2, a5], SP[a3, a6], n] - 
    S2[a1, a4, SP[a2, a6], SP[a3, a5], n] + S2[a2, a3, n]*
     S2[a1, a6, a4, a5, n] + S2[a2, a3, n]*S2[a1, a6, a5, a4, n] - 
    S2[a1, a6, SP[a2, a4], SP[a3, a5], n] - S2[a1, a6, SP[a2, a5], 
     SP[a3, a4], n] - S2[a1, SP[a2, a4], a6, SP[a3, a5], n] - 
    S2[a1, SP[a2, a4], SP[a3, a6], a5, n] + S2[a1, SP[a2, a6], a3, 
     SP[a4, a5], n] - S2[a1, SP[a2, a6], a5, SP[a3, a4], n] - 
    S2[a1, SP[a2, a6], SP[a3, a4], a5, n] + S2[a1, SP[a2, a6], SP[a4, a5], 
     a3, n] - S2[a1, SP[a4, a5], a2, SP[a3, a6], n] - 
    S2[a1, SP[a4, a5], SP[a2, a6], a3, n] + S2[a2, a1, SP[a3, a6], 
     SP[a4, a5], n] + S2[a2, a1, SP[a4, a6], SP[a3, a5], n] + 
    S2[a2, SP[a1, a3], a6, SP[a4, a5], n] + S2[a2, SP[a1, a3], SP[a4, a6], 
     a5, n] + S2[a2, SP[a1, a4], a6, SP[a3, a5], n] + 
    S2[a2, SP[a1, a4], SP[a3, a6], a5, n] + S2[SP[a1, a2], a3, a6, 
     SP[a4, a5], n] + S2[SP[a1, a2], a3, SP[a4, a6], a5, n] + 
    S2[SP[a1, a2], a6, a3, SP[a4, a5], n] - S2[SP[a1, a2], a6, a5, 
     SP[a3, a4], n] - S2[SP[a1, a2], a6, SP[a3, a4], a5, n] + 
    S2[SP[a1, a2], a6, SP[a4, a5], a3, n] - S2[SP[a1, a2], SP[a3, a4], a6, 
     a5, n] + S2[SP[a1, a2], SP[a4, a6], a3, a5, n] + 
    S2[SP[a1, a2], SP[a4, a6], a5, a3, n] - S2[SP[a1, a5], a4, a2, 
     SP[a3, a6], n] - S2[SP[a1, a5], a4, SP[a2, a6], a3, n] - 
    S2[SP[a1, a5], SP[a4, a6], a2, a3, n] - S2[a1, a2, a3, a6, SP[a4, a5], 
     n] - S2[a1, a2, a3, SP[a4, a6], a5, n] - S2[a1, a2, a6, a3, SP[a4, a5], 
     n] + S2[a1, a2, a6, a5, SP[a3, a4], n] + S2[a1, a2, a6, SP[a3, a4], a5, 
     n] - S2[a1, a2, a6, SP[a4, a5], a3, n] + S2[a1, a2, SP[a3, a4], a6, a5, 
     n] - S2[a1, a2, SP[a4, a6], a3, a5, n] - S2[a1, a2, SP[a4, a6], a5, a3, 
     n] - S2[a5, n]*S2[a1, a4, a2, a3, a6, n] - S2[a1, a4, a2, a3, 
     SP[a5, a6], n] + S2[a1, a4, a2, a5, SP[a3, a6], n] - 
    S2[a5, n]*S2[a1, a4, a2, a6, a3, n] + S2[a1, a4, a2, SP[a3, a6], a5, n] - 
    S2[a1, a4, a2, SP[a5, a6], a3, n] + S2[a1, a4, a5, a2, SP[a3, a6], n] + 
    S2[a1, a4, a5, SP[a2, a6], a3, n] - S2[a5, n]*S2[a1, a4, a6, a2, a3, n] + 
    S2[a1, a4, SP[a2, a6], a3, a5, n] + S2[a1, a4, SP[a2, a6], a5, a3, n] - 
    S2[a1, a4, SP[a5, a6], a2, a3, n] + S2[a1, a5, a4, a2, SP[a3, a6], n] + 
    S2[a1, a5, a4, SP[a2, a6], a3, n] + S2[a1, a5, SP[a4, a6], a2, a3, n] - 
    S2[a1, a6, a2, a3, SP[a4, a5], n] + S2[a1, a6, a2, a5, SP[a3, a4], n] + 
    S2[a1, a6, a2, SP[a3, a4], a5, n] - S2[a1, a6, a2, SP[a4, a5], a3, n] - 
    S2[a5, n]*S2[a1, a6, a4, a2, a3, n] + S2[a1, a6, a5, a2, SP[a3, a4], n] + 
    S2[a1, a6, a5, SP[a2, a4], a3, n] + S2[a1, a6, SP[a2, a4], a3, a5, n] + 
    S2[a1, a6, SP[a2, a4], a5, a3, n] - S2[a1, a6, SP[a4, a5], a2, a3, n] + 
    S2[a1, SP[a2, a4], a3, a6, a5, n] + S2[a1, SP[a2, a4], a6, a3, a5, n] + 
    S2[a1, SP[a2, a4], a6, a5, a3, n] - S2[a1, SP[a5, a6], a4, a2, a3, n] - 
    S2[a2, a1, a3, a6, SP[a4, a5], n] - S2[a2, a1, a3, SP[a4, a6], a5, n] - 
    S2[a2, a1, a6, a3, SP[a4, a5], n] + S2[a2, a1, a6, a5, SP[a3, a4], n] + 
    S2[a2, a1, a6, SP[a3, a4], a5, n] - S2[a2, a1, a6, SP[a4, a5], a3, n] + 
    S2[a2, a1, SP[a3, a4], a6, a5, n] - S2[a2, a1, SP[a4, a6], a3, a5, n] - 
    S2[a2, a1, SP[a4, a6], a5, a3, n] - S2[a2, a3, a1, a6, SP[a4, a5], n] - 
    S2[a2, a3, a1, SP[a4, a6], a5, n] - S2[a2, a3, SP[a1, a4], a6, a5, n] + 
    S2[a3, n]*S2[a2, a4, a1, a6, a5, n] - S2[a2, SP[a1, a4], a3, a6, a5, n] - 
    S2[a2, SP[a1, a4], a6, a3, a5, n] - S2[a2, SP[a1, a4], a6, a5, a3, n] + 
    S2[a2, SP[a3, a4], a1, a6, a5, n] + S2[a5, a1, a4, a2, SP[a3, a6], n] + 
    S2[a5, a1, a4, SP[a2, a6], a3, n] + S2[a5, a1, SP[a4, a6], a2, a3, n] + 
    S2[a5, SP[a1, a6], a4, a2, a3, n] - S2[a5, n]*S2[a6, a1, a4, a2, a3, n] - 
    S2[a6, a1, a4, a2, SP[a3, a5], n] - S2[a6, a1, a4, SP[a2, a5], a3, n] - 
    S2[a6, a1, SP[a4, a5], a2, a3, n] - S2[a6, SP[a1, a5], a4, a2, a3, n] + 
    S2[SP[a2, a3], a4, a1, a6, a5, n] - S2[SP[a5, a6], a1, a4, a2, a3, n] + 
    S2[a6, a1, a4, a2, a3, a5, n] + S2[a6, a1, a4, a2, a5, a3, n] + 
    S2[a6, a1, a4, a5, a2, a3, n] + S2[a6, a1, a5, a4, a2, a3, n] + 
    S2[a6, a5, a1, a4, a2, a3, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a3_, a2_, a4_, a5_, a1_, a6_, n_] :> 
  S2[a1, a5, a6, n]*S2[a2, a3, a4, n] + S2[a1, a6, a5, n]*S2[a2, a3, a4, n] + 
    S2[a1, a5, a6, n]*S2[a2, a4, a3, n] + S2[a1, a6, a5, n]*
     S2[a2, a4, a3, n] + S2[SP[a1, a2], SP[a3, a5], SP[a4, a6], n] + 
    S2[SP[a1, a2], SP[a3, a6], SP[a4, a5], n] + S2[SP[a1, a2], SP[a4, a5], 
     SP[a3, a6], n] + S2[SP[a1, a2], SP[a4, a6], SP[a3, a5], n] - 
    S2[a1, a2, SP[a3, a5], SP[a4, a6], n] - S2[a1, a2, SP[a3, a6], 
     SP[a4, a5], n] - S2[a1, a2, SP[a4, a5], SP[a3, a6], n] - 
    S2[a1, a2, SP[a4, a6], SP[a3, a5], n] - S2[a2, a3, n]*
     S2[a1, a5, a4, a6, n] - S2[a2, a3, n]*S2[a1, a5, a6, a4, n] + 
    S2[a1, a5, SP[a2, a4], SP[a3, a6], n] + S2[a1, a5, SP[a2, a6], 
     SP[a3, a4], n] - S2[a2, a3, n]*S2[a1, a6, a5, a4, n] + 
    S2[a1, a6, SP[a2, a5], SP[a3, a4], n] - S2[a1, SP[a2, a5], a3, 
     SP[a4, a6], n] + S2[a1, SP[a2, a5], a6, SP[a3, a4], n] + 
    S2[a1, SP[a2, a5], SP[a3, a4], a6, n] - S2[a1, SP[a2, a5], SP[a4, a6], 
     a3, n] - S2[a1, SP[a2, a6], a3, SP[a4, a5], n] - 
    S2[a1, SP[a2, a6], a4, SP[a3, a5], n] + S2[a1, SP[a2, a6], a5, 
     SP[a3, a4], n] - S2[a1, SP[a2, a6], SP[a4, a5], a3, n] - 
    S2[a2, a1, SP[a3, a5], SP[a4, a6], n] - S2[a2, a1, SP[a3, a6], 
     SP[a4, a5], n] - S2[a2, a1, SP[a4, a5], SP[a3, a6], n] - 
    S2[a2, a1, SP[a4, a6], SP[a3, a5], n] - S2[a1, a6, n]*
     S2[a2, a3, a4, a5, n] + S2[a2, a3, SP[a1, a4], SP[a5, a6], n] - 
    S2[a1, a6, n]*S2[a2, a4, a3, a5, n] - S2[a1, a6, n]*
     S2[a2, a4, a5, a3, n] + S2[a2, a4, SP[a1, a3], SP[a5, a6], n] + 
    S2[a2, a4, SP[a1, a5], SP[a3, a6], n] + S2[a2, SP[a1, a3], a4, 
     SP[a5, a6], n] - S2[a2, SP[a1, a3], a5, SP[a4, a6], n] - 
    S2[a2, SP[a1, a3], a6, SP[a4, a5], n] - S2[a2, SP[a1, a3], SP[a4, a5], 
     a6, n] + S2[a2, SP[a1, a4], a3, SP[a5, a6], n] - 
    S2[a2, SP[a1, a4], a6, SP[a3, a5], n] - S2[a2, SP[a1, a4], SP[a3, a5], 
     a6, n] + S2[a2, SP[a1, a4], SP[a5, a6], a3, n] + 
    S2[SP[a1, a2], a3, a4, SP[a5, a6], n] - S2[SP[a1, a2], a3, a5, 
     SP[a4, a6], n] - S2[SP[a1, a2], a3, a6, SP[a4, a5], n] - 
    S2[SP[a1, a2], a3, SP[a4, a5], a6, n] + S2[SP[a1, a2], a4, a3, 
     SP[a5, a6], n] - S2[SP[a1, a2], a4, a6, SP[a3, a5], n] - 
    S2[SP[a1, a2], a4, SP[a3, a5], a6, n] + S2[SP[a1, a2], a4, SP[a5, a6], 
     a3, n] - S2[SP[a1, a2], a5, a3, SP[a4, a6], n] + 
    S2[SP[a1, a2], a5, a6, SP[a3, a4], n] + S2[SP[a1, a2], a5, SP[a3, a4], 
     a6, n] - S2[SP[a1, a2], a5, SP[a4, a6], a3, n] - 
    S2[SP[a1, a2], a6, a3, SP[a4, a5], n] - S2[SP[a1, a2], a6, a4, 
     SP[a3, a5], n] + S2[SP[a1, a2], a6, a5, SP[a3, a4], n] - 
    S2[SP[a1, a2], a6, SP[a4, a5], a3, n] - S2[SP[a1, a2], SP[a4, a5], a3, 
     a6, n] - S2[SP[a1, a2], SP[a4, a5], a6, a3, n] - 
    S2[a1, a2, a3, a4, SP[a5, a6], n] + S2[a1, a2, a3, a5, SP[a4, a6], n] + 
    S2[a1, a2, a3, a6, SP[a4, a5], n] + S2[a1, a2, a3, SP[a4, a5], a6, n] - 
    S2[a1, a2, a4, a3, SP[a5, a6], n] + S2[a1, a2, a4, a6, SP[a3, a5], n] + 
    S2[a1, a2, a4, SP[a3, a5], a6, n] - S2[a1, a2, a4, SP[a5, a6], a3, n] + 
    S2[a1, a2, a5, a3, SP[a4, a6], n] - S2[a1, a2, a5, a6, SP[a3, a4], n] - 
    S2[a1, a2, a5, SP[a3, a4], a6, n] + S2[a1, a2, a5, SP[a4, a6], a3, n] + 
    S2[a1, a2, a6, a3, SP[a4, a5], n] + S2[a1, a2, a6, a4, SP[a3, a5], n] - 
    S2[a1, a2, a6, a5, SP[a3, a4], n] + S2[a1, a2, a6, SP[a4, a5], a3, n] + 
    S2[a1, a2, SP[a4, a5], a3, a6, n] + S2[a1, a2, SP[a4, a5], a6, a3, n] + 
    S2[a1, a5, a2, a3, SP[a4, a6], n] - S2[a1, a5, a2, a6, SP[a3, a4], n] - 
    S2[a1, a5, a2, SP[a3, a4], a6, n] + S2[a1, a5, a2, SP[a4, a6], a3, n] + 
    S2[a6, n]*S2[a1, a5, a4, a2, a3, n] - S2[a1, a5, a6, a2, SP[a3, a4], n] - 
    S2[a1, a5, a6, SP[a2, a4], a3, n] - S2[a1, a5, SP[a2, a4], a3, a6, n] - 
    S2[a1, a5, SP[a2, a4], a6, a3, n] + S2[a1, a5, SP[a4, a6], a2, a3, n] + 
    S2[a1, a6, a2, a3, SP[a4, a5], n] + S2[a1, a6, a2, a4, SP[a3, a5], n] - 
    S2[a1, a6, a2, a5, SP[a3, a4], n] + S2[a1, a6, a2, SP[a4, a5], a3, n] - 
    S2[a1, a6, a5, a2, SP[a3, a4], n] - S2[a1, a6, a5, SP[a2, a4], a3, n] + 
    S2[a1, SP[a5, a6], a4, a2, a3, n] - S2[a2, a1, a3, a4, SP[a5, a6], n] + 
    S2[a2, a1, a3, a5, SP[a4, a6], n] + S2[a2, a1, a3, a6, SP[a4, a5], n] + 
    S2[a2, a1, a3, SP[a4, a5], a6, n] - S2[a2, a1, a4, a3, SP[a5, a6], n] + 
    S2[a2, a1, a4, a6, SP[a3, a5], n] + S2[a2, a1, a4, SP[a3, a5], a6, n] - 
    S2[a2, a1, a4, SP[a5, a6], a3, n] + S2[a2, a1, a5, a3, SP[a4, a6], n] - 
    S2[a2, a1, a5, a6, SP[a3, a4], n] - S2[a2, a1, a5, SP[a3, a4], a6, n] + 
    S2[a2, a1, a5, SP[a4, a6], a3, n] + S2[a2, a1, a6, a3, SP[a4, a5], n] + 
    S2[a2, a1, a6, a4, SP[a3, a5], n] - S2[a2, a1, a6, a5, SP[a3, a4], n] + 
    S2[a2, a1, a6, SP[a4, a5], a3, n] + S2[a2, a1, SP[a4, a5], a3, a6, n] + 
    S2[a2, a1, SP[a4, a5], a6, a3, n] - S2[a2, a3, a1, a4, SP[a5, a6], n] + 
    S2[a2, a3, a1, a5, SP[a4, a6], n] + S2[a2, a3, a1, a6, SP[a4, a5], n] + 
    S2[a2, a3, a1, SP[a4, a5], a6, n] - S2[a2, a3, a4, a1, SP[a5, a6], n] - 
    S2[a2, a3, a4, SP[a1, a5], a6, n] - S2[a2, a4, a1, a3, SP[a5, a6], n] + 
    S2[a2, a4, a1, a6, SP[a3, a5], n] + S2[a2, a4, a1, SP[a3, a5], a6, n] - 
    S2[a2, a4, a1, SP[a5, a6], a3, n] - S2[a2, a4, a3, a1, SP[a5, a6], n] - 
    S2[a2, a4, a3, SP[a1, a5], a6, n] + S2[a3, n]*S2[a2, a4, a5, a1, a6, n] - 
    S2[a2, a4, SP[a1, a5], a3, a6, n] - S2[a2, a4, SP[a1, a5], a6, a3, n] + 
    S2[a2, a4, SP[a3, a5], a1, a6, n] + S2[a2, SP[a3, a4], a5, a1, a6, n] + 
    S2[SP[a1, a6], a5, a4, a2, a3, n] + S2[SP[a2, a3], a4, a5, a1, a6, n] - 
    S2[a6, a1, a5, a4, a2, a3, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a3_, a2_, a4_, a5_, a6_, a1_, n_] :> 
  -(S2[a1, a6, a5, n]*S2[a2, a3, a4, n]) - S2[a1, a6, a5, n]*
     S2[a2, a4, a3, n] - S2[SP[a1, a2], SP[a3, a6], SP[a4, a5], n] - 
    S2[SP[a1, a2], SP[a4, a6], SP[a3, a5], n] + S2[a1, a2, SP[a3, a6], 
     SP[a4, a5], n] + S2[a1, a2, SP[a4, a6], SP[a3, a5], n] + 
    S2[a2, a3, n]*S2[a1, a6, a5, a4, n] - S2[a1, a6, SP[a2, a5], SP[a3, a4], 
     n] + S2[a1, SP[a2, a6], a3, SP[a4, a5], n] + S2[a1, SP[a2, a6], a4, 
     SP[a3, a5], n] - S2[a1, SP[a2, a6], a5, SP[a3, a4], n] + 
    S2[a1, SP[a2, a6], SP[a4, a5], a3, n] + S2[a2, a1, SP[a3, a6], 
     SP[a4, a5], n] + S2[a2, a1, SP[a4, a6], SP[a3, a5], n] + 
    S2[a1, a6, n]*S2[a2, a3, a4, a5, n] - S2[a2, a3, SP[a1, a4], SP[a5, a6], 
     n] + S2[a1, a6, n]*S2[a2, a4, a3, a5, n] + 
    S2[a1, a6, n]*S2[a2, a4, a5, a3, n] - S2[a2, a4, SP[a1, a3], SP[a5, a6], 
     n] - S2[a2, a4, SP[a1, a5], SP[a3, a6], n] - S2[a2, SP[a1, a3], a4, 
     SP[a5, a6], n] + S2[a2, SP[a1, a3], a6, SP[a4, a5], n] - 
    S2[a2, SP[a1, a4], a3, SP[a5, a6], n] - S2[a2, SP[a1, a4], a5, 
     SP[a3, a6], n] + S2[a2, SP[a1, a4], a6, SP[a3, a5], n] - 
    S2[a2, SP[a1, a4], SP[a5, a6], a3, n] - S2[SP[a1, a2], a3, a4, 
     SP[a5, a6], n] + S2[SP[a1, a2], a3, a6, SP[a4, a5], n] - 
    S2[SP[a1, a2], a4, a3, SP[a5, a6], n] - S2[SP[a1, a2], a4, a5, 
     SP[a3, a6], n] + S2[SP[a1, a2], a4, a6, SP[a3, a5], n] - 
    S2[SP[a1, a2], a4, SP[a5, a6], a3, n] + S2[SP[a1, a2], a6, a3, 
     SP[a4, a5], n] + S2[SP[a1, a2], a6, a4, SP[a3, a5], n] - 
    S2[SP[a1, a2], a6, a5, SP[a3, a4], n] + S2[SP[a1, a2], a6, SP[a4, a5], 
     a3, n] + S2[a1, a2, a3, a4, SP[a5, a6], n] - 
    S2[a1, a2, a3, a6, SP[a4, a5], n] + S2[a1, a2, a4, a3, SP[a5, a6], n] + 
    S2[a1, a2, a4, a5, SP[a3, a6], n] - S2[a1, a2, a4, a6, SP[a3, a5], n] + 
    S2[a1, a2, a4, SP[a5, a6], a3, n] - S2[a1, a2, a6, a3, SP[a4, a5], n] - 
    S2[a1, a2, a6, a4, SP[a3, a5], n] + S2[a1, a2, a6, a5, SP[a3, a4], n] - 
    S2[a1, a2, a6, SP[a4, a5], a3, n] - S2[a2, n]*S2[a1, a3, a4, a5, a6, n] - 
    S2[a1, a3, a4, a5, SP[a2, a6], n] - S2[a1, a3, a4, SP[a2, a5], a6, n] - 
    S2[a1, a3, SP[a2, a4], a5, a6, n] + S2[a3, n]*S2[a1, a4, a2, a5, a6, n] + 
    S2[a1, a4, a2, a5, SP[a3, a6], n] + S2[a1, a4, a2, SP[a3, a5], a6, n] - 
    S2[a2, n]*S2[a1, a4, a3, a5, a6, n] - S2[a1, a4, a3, a5, SP[a2, a6], n] - 
    S2[a1, a4, a3, SP[a2, a5], a6, n] + S2[a3, n]*S2[a1, a4, a5, a2, a6, n] + 
    S2[a1, a4, a5, a2, SP[a3, a6], n] - S2[a2, n]*S2[a1, a4, a5, a3, a6, n] - 
    S2[a1, a4, a5, a3, SP[a2, a6], n] + S2[a3, n]*S2[a1, a4, a5, a6, a2, n] - 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] - S2[a1, a4, a5, SP[a2, a6], a3, n] + 
    S2[a1, a4, a5, SP[a3, a6], a2, n] - S2[a1, a4, SP[a2, a5], a3, a6, n] - 
    S2[a1, a4, SP[a2, a5], a6, a3, n] + S2[a1, a4, SP[a3, a5], a2, a6, n] + 
    S2[a1, a4, SP[a3, a5], a6, a2, n] - S2[a1, a6, a2, a3, SP[a4, a5], n] - 
    S2[a1, a6, a2, a4, SP[a3, a5], n] + S2[a1, a6, a2, a5, SP[a3, a4], n] - 
    S2[a1, a6, a2, SP[a4, a5], a3, n] + S2[a1, a6, a5, a2, SP[a3, a4], n] + 
    S2[a1, a6, a5, SP[a2, a4], a3, n] - S2[a1, SP[a2, a3], a4, a5, a6, n] - 
    S2[a1, SP[a2, a4], a3, a5, a6, n] - S2[a1, SP[a2, a4], a5, a3, a6, n] - 
    S2[a1, SP[a2, a4], a5, a6, a3, n] + S2[a1, SP[a3, a4], a2, a5, a6, n] + 
    S2[a1, SP[a3, a4], a5, a2, a6, n] + S2[a1, SP[a3, a4], a5, a6, a2, n] + 
    S2[a2, a1, a3, a4, SP[a5, a6], n] - S2[a2, a1, a3, a6, SP[a4, a5], n] + 
    S2[a2, a1, a4, a3, SP[a5, a6], n] + S2[a2, a1, a4, a5, SP[a3, a6], n] - 
    S2[a2, a1, a4, a6, SP[a3, a5], n] + S2[a2, a1, a4, SP[a5, a6], a3, n] - 
    S2[a2, a1, a6, a3, SP[a4, a5], n] - S2[a2, a1, a6, a4, SP[a3, a5], n] + 
    S2[a2, a1, a6, a5, SP[a3, a4], n] - S2[a2, a1, a6, SP[a4, a5], a3, n] + 
    S2[a2, a3, a1, a4, SP[a5, a6], n] - S2[a2, a3, a1, a6, SP[a4, a5], n] + 
    S2[a2, a3, a4, a1, SP[a5, a6], n] + S2[a2, a3, a4, SP[a1, a5], a6, n] + 
    S2[a2, a3, SP[a1, a4], a5, a6, n] + S2[a2, a4, a1, a3, SP[a5, a6], n] - 
    S2[a3, n]*S2[a2, a4, a1, a5, a6, n] - S2[a2, a4, a1, a6, SP[a3, a5], n] - 
    S2[a2, a4, a1, SP[a3, a5], a6, n] + S2[a2, a4, a1, SP[a5, a6], a3, n] + 
    S2[a2, a4, a3, a1, SP[a5, a6], n] + S2[a2, a4, a3, SP[a1, a5], a6, n] - 
    S2[a3, n]*S2[a2, a4, a5, a1, a6, n] + S2[a2, a4, SP[a1, a5], a3, a6, n] + 
    S2[a2, a4, SP[a1, a5], a6, a3, n] - S2[a2, a4, SP[a3, a5], a1, a6, n] + 
    S2[a2, SP[a1, a3], a4, a5, a6, n] + S2[a2, SP[a1, a4], a3, a5, a6, n] + 
    S2[a2, SP[a1, a4], a5, a3, a6, n] + S2[a2, SP[a1, a4], a5, a6, a3, n] - 
    S2[a2, SP[a3, a4], a1, a5, a6, n] - S2[a2, SP[a3, a4], a5, a1, a6, n] - 
    S2[a2, n]*S2[a3, a1, a4, a5, a6, n] - S2[a3, a1, a4, a5, SP[a2, a6], n] - 
    S2[a3, a1, a4, SP[a2, a5], a6, n] - S2[a3, a1, SP[a2, a4], a5, a6, n] + 
    S2[a1, n]*S2[a3, a2, a4, a5, a6, n] + S2[a3, a2, a4, a5, SP[a1, a6], n] + 
    S2[a3, a2, a4, SP[a1, a5], a6, n] + S2[a3, a2, SP[a1, a4], a5, a6, n] - 
    S2[a1, n]*S2[a6, a5, a4, a2, a3, n] - S2[a6, a5, a4, a2, SP[a1, a3], n] - 
    S2[a6, a5, a4, SP[a1, a2], a3, n] - S2[a6, a5, SP[a1, a4], a2, a3, n] - 
    S2[a6, SP[a1, a5], a4, a2, a3, n] + S2[SP[a1, a3], a2, a4, a5, a6, n] + 
    S2[SP[a1, a3], a4, a2, a5, a6, n] + S2[SP[a1, a3], a4, a5, a2, a6, n] + 
    S2[SP[a1, a3], a4, a5, a6, a2, n] - S2[SP[a1, a6], a5, a4, a2, a3, n] - 
    S2[SP[a2, a3], a1, a4, a5, a6, n] - S2[SP[a2, a3], a4, a1, a5, a6, n] - 
    S2[SP[a2, a3], a4, a5, a1, a6, n] + S2[a6, a1, a5, a4, a2, a3, n] + 
    S2[a6, a5, a1, a4, a2, a3, n] + S2[a6, a5, a4, a1, a2, a3, n] + 
    S2[a6, a5, a4, a2, a1, a3, n] + S2[a6, a5, a4, a2, a3, a1, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a3_, a2_, a4_, a6_, a1_, a5_, n_] :> 
  S2[a1, a5, a6, n]*S2[a2, a3, a4, n] + S2[a1, a6, a5, n]*S2[a2, a3, a4, n] + 
    S2[a1, a5, a6, n]*S2[a2, a4, a3, n] + S2[a1, a6, a5, n]*
     S2[a2, a4, a3, n] + S2[SP[a1, a2], SP[a3, a5], SP[a4, a6], n] + 
    S2[SP[a1, a2], SP[a3, a6], SP[a4, a5], n] + S2[SP[a1, a2], SP[a4, a5], 
     SP[a3, a6], n] + S2[SP[a1, a2], SP[a4, a6], SP[a3, a5], n] - 
    S2[a1, a2, SP[a3, a5], SP[a4, a6], n] - S2[a1, a2, SP[a3, a6], 
     SP[a4, a5], n] - S2[a1, a2, SP[a4, a5], SP[a3, a6], n] - 
    S2[a1, a2, SP[a4, a6], SP[a3, a5], n] - S2[a2, a3, n]*
     S2[a1, a5, a6, a4, n] + S2[a1, a5, SP[a2, a6], SP[a3, a4], n] - 
    S2[a2, a3, n]*S2[a1, a6, a4, a5, n] - S2[a2, a3, n]*
     S2[a1, a6, a5, a4, n] + S2[a1, a6, SP[a2, a4], SP[a3, a5], n] + 
    S2[a1, a6, SP[a2, a5], SP[a3, a4], n] - S2[a1, SP[a2, a5], a3, 
     SP[a4, a6], n] - S2[a1, SP[a2, a5], a4, SP[a3, a6], n] + 
    S2[a1, SP[a2, a5], a6, SP[a3, a4], n] - S2[a1, SP[a2, a5], SP[a4, a6], 
     a3, n] - S2[a1, SP[a2, a6], a3, SP[a4, a5], n] + 
    S2[a1, SP[a2, a6], a5, SP[a3, a4], n] + S2[a1, SP[a2, a6], SP[a3, a4], 
     a5, n] - S2[a1, SP[a2, a6], SP[a4, a5], a3, n] - 
    S2[a2, a1, SP[a3, a5], SP[a4, a6], n] - S2[a2, a1, SP[a3, a6], 
     SP[a4, a5], n] - S2[a2, a1, SP[a4, a5], SP[a3, a6], n] - 
    S2[a2, a1, SP[a4, a6], SP[a3, a5], n] + S2[a1, a5, n]*
     S2[a2, a3, a6, a4, n] - S2[a2, a3, SP[a1, a6], SP[a4, a5], n] + 
    S2[a1, a5, n]*S2[a2, a6, a3, a4, n] + S2[a1, a5, n]*
     S2[a2, a6, a4, a3, n] - S2[a2, a6, SP[a1, a3], SP[a4, a5], n] - 
    S2[a2, a6, SP[a1, a4], SP[a3, a5], n] - S2[a2, SP[a1, a3], a5, 
     SP[a4, a6], n] - 2*S2[a2, SP[a1, a3], a6, SP[a4, a5], n] - 
    S2[a2, SP[a1, a3], SP[a4, a5], a6, n] - S2[a2, SP[a1, a3], SP[a4, a6], 
     a5, n] - S2[a2, SP[a1, a3], SP[a5, a6], a4, n] - 
    S2[a2, SP[a1, a4], a5, SP[a3, a6], n] - S2[a2, SP[a1, a4], a6, 
     SP[a3, a5], n] - S2[a2, SP[a1, a4], SP[a3, a5], a6, n] - 
    S2[a2, SP[a1, a4], SP[a3, a6], a5, n] - S2[a2, SP[a1, a6], a3, 
     SP[a4, a5], n] - S2[a2, SP[a1, a6], a4, SP[a3, a5], n] - 
    S2[a2, SP[a1, a6], SP[a3, a5], a4, n] - S2[a2, SP[a1, a6], SP[a4, a5], 
     a3, n] - S2[a1, a5, n]*S2[a4, a6, a2, a3, n] + 
    S2[a4, a6, SP[a1, a2], SP[a3, a5], n] + S2[a4, SP[a1, a6], a2, 
     SP[a3, a5], n] + S2[a4, SP[a1, a6], SP[a2, a5], a3, n] - 
    S2[SP[a1, a2], a3, a5, SP[a4, a6], n] - 
    2*S2[SP[a1, a2], a3, a6, SP[a4, a5], n] - S2[SP[a1, a2], a3, SP[a4, a5], 
     a6, n] - S2[SP[a1, a2], a3, SP[a4, a6], a5, n] - 
    S2[SP[a1, a2], a3, SP[a5, a6], a4, n] - S2[SP[a1, a2], a4, a5, 
     SP[a3, a6], n] - S2[SP[a1, a2], a4, a6, SP[a3, a5], n] - 
    S2[SP[a1, a2], a4, SP[a3, a5], a6, n] - S2[SP[a1, a2], a4, SP[a3, a6], 
     a5, n] - S2[SP[a1, a2], a5, a3, SP[a4, a6], n] - 
    S2[SP[a1, a2], a5, a4, SP[a3, a6], n] + S2[SP[a1, a2], a5, a6, 
     SP[a3, a4], n] - S2[SP[a1, a2], a5, SP[a4, a6], a3, n] - 
    2*S2[SP[a1, a2], a6, a3, SP[a4, a5], n] - S2[SP[a1, a2], a6, a4, 
     SP[a3, a5], n] + S2[SP[a1, a2], a6, a5, SP[a3, a4], n] + 
    S2[SP[a1, a2], a6, SP[a3, a4], a5, n] - S2[SP[a1, a2], a6, SP[a3, a5], 
     a4, n] - 2*S2[SP[a1, a2], a6, SP[a4, a5], a3, n] - 
    S2[SP[a1, a2], SP[a3, a5], a4, a6, n] - S2[SP[a1, a2], SP[a3, a5], a6, 
     a4, n] - S2[SP[a1, a2], SP[a4, a5], a3, a6, n] - 
    S2[SP[a1, a2], SP[a4, a5], a6, a3, n] - S2[SP[a1, a2], SP[a4, a6], a3, 
     a5, n] - S2[SP[a1, a2], SP[a4, a6], a5, a3, n] - 
    S2[SP[a1, a2], SP[a5, a6], a3, a4, n] - S2[SP[a1, a2], SP[a5, a6], a4, 
     a3, n] + S2[SP[a1, a4], a6, a2, SP[a3, a5], n] + 
    S2[SP[a1, a4], a6, SP[a2, a5], a3, n] + S2[SP[a1, a4], SP[a5, a6], a2, 
     a3, n] + S2[a1, a2, a3, a5, SP[a4, a6], n] + 
    2*S2[a1, a2, a3, a6, SP[a4, a5], n] + S2[a1, a2, a3, SP[a4, a5], a6, n] + 
    S2[a1, a2, a3, SP[a4, a6], a5, n] + S2[a1, a2, a3, SP[a5, a6], a4, n] + 
    S2[a1, a2, a4, a5, SP[a3, a6], n] + S2[a1, a2, a4, a6, SP[a3, a5], n] + 
    S2[a1, a2, a4, SP[a3, a5], a6, n] + S2[a1, a2, a4, SP[a3, a6], a5, n] + 
    S2[a1, a2, a5, a3, SP[a4, a6], n] + S2[a1, a2, a5, a4, SP[a3, a6], n] - 
    S2[a1, a2, a5, a6, SP[a3, a4], n] + S2[a1, a2, a5, SP[a4, a6], a3, n] + 
    2*S2[a1, a2, a6, a3, SP[a4, a5], n] + S2[a1, a2, a6, a4, SP[a3, a5], n] - 
    S2[a1, a2, a6, a5, SP[a3, a4], n] - S2[a1, a2, a6, SP[a3, a4], a5, n] + 
    S2[a1, a2, a6, SP[a3, a5], a4, n] + 2*S2[a1, a2, a6, SP[a4, a5], a3, n] + 
    S2[a1, a2, SP[a3, a5], a4, a6, n] + S2[a1, a2, SP[a3, a5], a6, a4, n] + 
    S2[a1, a2, SP[a4, a5], a3, a6, n] + S2[a1, a2, SP[a4, a5], a6, a3, n] + 
    S2[a1, a2, SP[a4, a6], a3, a5, n] + S2[a1, a2, SP[a4, a6], a5, a3, n] + 
    S2[a1, a2, SP[a5, a6], a3, a4, n] + S2[a1, a2, SP[a5, a6], a4, a3, n] + 
    S2[a6, n]*S2[a1, a3, a2, a4, a5, n] + S2[a1, a3, a2, a4, SP[a5, a6], n] + 
    S2[a6, n]*S2[a1, a3, a2, a5, a4, n] + S2[a1, a3, a2, a5, SP[a4, a6], n] + 
    S2[a1, a3, a2, SP[a4, a6], a5, n] + S2[a1, a3, a2, SP[a5, a6], a4, n] + 
    S2[a6, n]*S2[a1, a3, a4, a2, a5, n] + S2[a1, a3, a4, a2, SP[a5, a6], n] + 
    S2[a6, n]*S2[a1, a3, a4, a5, a2, n] - 
    S2[a2, n]*S2[a1, a3, a4, a5, a6, n] - 
    S2[a2, n]*S2[a1, a3, a4, a6, a5, n] - S2[a1, a3, a4, a6, SP[a2, a5], n] - 
    S2[a1, a3, a4, SP[a2, a5], a6, n] + S2[a1, a3, a4, SP[a5, a6], a2, n] + 
    S2[a6, n]*S2[a1, a3, a5, a2, a4, n] + S2[a1, a3, a5, a2, SP[a4, a6], n] + 
    S2[a6, n]*S2[a1, a3, a5, a4, a2, n] - 
    S2[a2, n]*S2[a1, a3, a5, a4, a6, n] - 
    S2[a2, n]*S2[a1, a3, a5, a6, a4, n] - S2[a1, a3, a5, a6, SP[a2, a4], n] - 
    S2[a1, a3, a5, SP[a2, a4], a6, n] + S2[a1, a3, a5, SP[a4, a6], a2, n] - 
    S2[a2, n]*S2[a1, a3, a6, a4, a5, n] - S2[a1, a3, a6, a4, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a3, a6, a5, a4, n] - S2[a1, a3, a6, a5, SP[a2, a4], n] - 
    S2[a1, a3, a6, SP[a2, a4], a5, n] - S2[a1, a3, a6, SP[a2, a5], a4, n] - 
    S2[a1, a3, SP[a2, a4], a5, a6, n] - S2[a1, a3, SP[a2, a4], a6, a5, n] - 
    S2[a1, a3, SP[a2, a5], a4, a6, n] - S2[a1, a3, SP[a2, a5], a6, a4, n] + 
    S2[a1, a3, SP[a4, a6], a2, a5, n] + S2[a1, a3, SP[a4, a6], a5, a2, n] + 
    S2[a1, a3, SP[a5, a6], a2, a4, n] + S2[a1, a3, SP[a5, a6], a4, a2, n] + 
    S2[a6, n]*S2[a1, a4, a2, a3, a5, n] + S2[a1, a4, a2, a3, SP[a5, a6], n] + 
    S2[a6, n]*S2[a1, a4, a2, a5, a3, n] + S2[a1, a4, a2, a5, SP[a3, a6], n] + 
    S2[a1, a4, a2, SP[a3, a6], a5, n] + S2[a1, a4, a2, SP[a5, a6], a3, n] + 
    S2[a6, n]*S2[a1, a4, a3, a2, a5, n] + S2[a1, a4, a3, a2, SP[a5, a6], n] + 
    S2[a6, n]*S2[a1, a4, a3, a5, a2, n] - 
    S2[a2, n]*S2[a1, a4, a3, a5, a6, n] - 
    S2[a2, n]*S2[a1, a4, a3, a6, a5, n] - S2[a1, a4, a3, a6, SP[a2, a5], n] - 
    S2[a1, a4, a3, SP[a2, a5], a6, n] + S2[a1, a4, a3, SP[a5, a6], a2, n] + 
    S2[a6, n]*S2[a1, a4, a5, a2, a3, n] + S2[a1, a4, a5, a2, SP[a3, a6], n] + 
    S2[a6, n]*S2[a1, a4, a5, a3, a2, n] - 
    S2[a2, n]*S2[a1, a4, a5, a3, a6, n] - 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] - S2[a1, a4, a5, a6, SP[a2, a3], n] - 
    S2[a1, a4, a5, SP[a2, a3], a6, n] + S2[a1, a4, a5, SP[a3, a6], a2, n] - 
    S2[a1, a4, a6, a2, SP[a3, a5], n] - S2[a2, n]*S2[a1, a4, a6, a3, a5, n] - 
    S2[a1, a4, a6, a3, SP[a2, a5], n] - S2[a2, n]*S2[a1, a4, a6, a5, a3, n] - 
    S2[a1, a4, a6, a5, SP[a2, a3], n] - S2[a1, a4, a6, SP[a2, a3], a5, n] - 
    2*S2[a1, a4, a6, SP[a2, a5], a3, n] - S2[a1, a4, SP[a2, a3], a5, a6, n] - 
    S2[a1, a4, SP[a2, a3], a6, a5, n] - S2[a1, a4, SP[a2, a5], a3, a6, n] - 
    S2[a1, a4, SP[a2, a5], a6, a3, n] + S2[a1, a4, SP[a3, a6], a2, a5, n] + 
    S2[a1, a4, SP[a3, a6], a5, a2, n] + S2[a1, a4, SP[a5, a6], a3, a2, n] + 
    S2[a1, a5, a2, a3, SP[a4, a6], n] + S2[a1, a5, a2, a4, SP[a3, a6], n] - 
    S2[a1, a5, a2, a6, SP[a3, a4], n] + S2[a1, a5, a2, SP[a4, a6], a3, n] + 
    S2[a6, n]*S2[a1, a5, a3, a2, a4, n] + S2[a1, a5, a3, a2, SP[a4, a6], n] + 
    S2[a6, n]*S2[a1, a5, a3, a4, a2, n] - 
    S2[a2, n]*S2[a1, a5, a3, a4, a6, n] - 
    S2[a2, n]*S2[a1, a5, a3, a6, a4, n] - S2[a1, a5, a3, a6, SP[a2, a4], n] - 
    S2[a1, a5, a3, SP[a2, a4], a6, n] + S2[a1, a5, a3, SP[a4, a6], a2, n] + 
    S2[a6, n]*S2[a1, a5, a4, a2, a3, n] + S2[a1, a5, a4, a2, SP[a3, a6], n] + 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] - 
    S2[a2, n]*S2[a1, a5, a4, a3, a6, n] - 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] - S2[a1, a5, a4, a6, SP[a2, a3], n] - 
    S2[a1, a5, a4, SP[a2, a3], a6, n] + S2[a1, a5, a4, SP[a3, a6], a2, n] + 
    S2[a4, n]*S2[a1, a5, a6, a2, a3, n] - 
    S2[a2, n]*S2[a1, a5, a6, a3, a4, n] - S2[a1, a5, a6, a3, SP[a2, a4], n] - 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] - S2[a1, a5, a6, a4, SP[a2, a3], n] - 
    S2[a1, a5, a6, SP[a2, a3], a4, n] - S2[a1, a5, a6, SP[a2, a4], a3, n] - 
    S2[a1, a5, SP[a2, a3], a4, a6, n] - S2[a1, a5, SP[a2, a3], a6, a4, n] - 
    S2[a1, a5, SP[a2, a4], a3, a6, n] - S2[a1, a5, SP[a2, a4], a6, a3, n] - 
    S2[a1, a5, SP[a2, a6], a3, a4, n] - S2[a1, a5, SP[a2, a6], a4, a3, n] + 
    S2[a1, a5, SP[a3, a6], a2, a4, n] + S2[a1, a5, SP[a3, a6], a4, a2, n] + 
    2*S2[a1, a5, SP[a4, a6], a2, a3, n] + S2[a1, a5, SP[a4, a6], a3, a2, n] + 
    S2[a4, n]*S2[a1, a6, a2, a3, a5, n] + 
    2*S2[a1, a6, a2, a3, SP[a4, a5], n] + 
    S2[a4, n]*S2[a1, a6, a2, a5, a3, n] + 
    2*S2[a1, a6, a2, SP[a4, a5], a3, n] - 
    S2[a2, n]*S2[a1, a6, a3, a4, a5, n] - S2[a1, a6, a3, a4, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a6, a3, a5, a4, n] - S2[a1, a6, a3, a5, SP[a2, a4], n] - 
    S2[a1, a6, a3, SP[a2, a4], a5, n] - S2[a1, a6, a3, SP[a2, a5], a4, n] - 
    S2[a1, a6, a4, a2, SP[a3, a5], n] - S2[a2, n]*S2[a1, a6, a4, a3, a5, n] - 
    S2[a1, a6, a4, a3, SP[a2, a5], n] - S2[a2, n]*S2[a1, a6, a4, a5, a3, n] - 
    S2[a1, a6, a4, a5, SP[a2, a3], n] - S2[a1, a6, a4, SP[a2, a3], a5, n] - 
    2*S2[a1, a6, a4, SP[a2, a5], a3, n] + 
    S2[a4, n]*S2[a1, a6, a5, a2, a3, n] - 
    S2[a2, n]*S2[a1, a6, a5, a3, a4, n] - S2[a1, a6, a5, a3, SP[a2, a4], n] - 
    S2[a2, n]*S2[a1, a6, a5, a4, a3, n] - S2[a1, a6, a5, a4, SP[a2, a3], n] - 
    S2[a1, a6, a5, SP[a2, a3], a4, n] - S2[a1, a6, a5, SP[a2, a4], a3, n] - 
    S2[a1, a6, SP[a2, a3], a4, a5, n] - S2[a1, a6, SP[a2, a3], a5, a4, n] - 
    S2[a1, a6, SP[a2, a4], a3, a5, n] - S2[a1, a6, SP[a2, a4], a5, a3, n] - 
    S2[a1, a6, SP[a2, a5], a3, a4, n] - S2[a1, a6, SP[a2, a5], a4, a3, n] + 
    S2[a1, a6, SP[a4, a5], a2, a3, n] - S2[a1, SP[a2, a3], a4, a5, a6, n] - 
    S2[a1, SP[a2, a3], a4, a6, a5, n] - S2[a1, SP[a2, a3], a5, a4, a6, n] - 
    S2[a1, SP[a2, a3], a5, a6, a4, n] - S2[a1, SP[a2, a3], a6, a4, a5, n] - 
    S2[a1, SP[a2, a3], a6, a5, a4, n] - S2[a1, SP[a2, a4], a3, a5, a6, n] - 
    S2[a1, SP[a2, a4], a3, a6, a5, n] - S2[a1, SP[a2, a4], a5, a3, a6, n] - 
    S2[a1, SP[a2, a4], a5, a6, a3, n] - S2[a1, SP[a2, a4], a6, a3, a5, n] - 
    S2[a1, SP[a2, a4], a6, a5, a3, n] - S2[a1, SP[a2, a6], a3, a4, a5, n] - 
    S2[a1, SP[a2, a6], a3, a5, a4, n] - S2[a1, SP[a2, a6], a4, a3, a5, n] - 
    S2[a1, SP[a2, a6], a4, a5, a3, n] - S2[a1, SP[a2, a6], a5, a3, a4, n] - 
    S2[a1, SP[a2, a6], a5, a4, a3, n] + S2[a1, SP[a3, a6], a2, a4, a5, n] + 
    S2[a1, SP[a3, a6], a2, a5, a4, n] + S2[a1, SP[a3, a6], a4, a2, a5, n] + 
    S2[a1, SP[a3, a6], a4, a5, a2, n] + S2[a1, SP[a3, a6], a5, a2, a4, n] + 
    S2[a1, SP[a3, a6], a5, a4, a2, n] + 2*S2[a1, SP[a4, a6], a2, a3, a5, n] + 
    2*S2[a1, SP[a4, a6], a2, a5, a3, n] + S2[a1, SP[a4, a6], a3, a2, a5, n] + 
    S2[a1, SP[a4, a6], a3, a5, a2, n] + 2*S2[a1, SP[a4, a6], a5, a2, a3, n] + 
    S2[a1, SP[a4, a6], a5, a3, a2, n] + S2[a1, SP[a5, a6], a3, a2, a4, n] + 
    S2[a1, SP[a5, a6], a3, a4, a2, n] + S2[a1, SP[a5, a6], a4, a2, a3, n] + 
    S2[a1, SP[a5, a6], a4, a3, a2, n] + S2[a2, a1, a3, a5, SP[a4, a6], n] + 
    2*S2[a2, a1, a3, a6, SP[a4, a5], n] + S2[a2, a1, a3, SP[a4, a5], a6, n] + 
    S2[a2, a1, a3, SP[a4, a6], a5, n] + S2[a2, a1, a3, SP[a5, a6], a4, n] + 
    S2[a2, a1, a4, a5, SP[a3, a6], n] + S2[a2, a1, a4, a6, SP[a3, a5], n] + 
    S2[a2, a1, a4, SP[a3, a5], a6, n] + S2[a2, a1, a4, SP[a3, a6], a5, n] + 
    S2[a2, a1, a5, a3, SP[a4, a6], n] + S2[a2, a1, a5, a4, SP[a3, a6], n] - 
    S2[a2, a1, a5, a6, SP[a3, a4], n] + S2[a2, a1, a5, SP[a4, a6], a3, n] + 
    2*S2[a2, a1, a6, a3, SP[a4, a5], n] + S2[a2, a1, a6, a4, SP[a3, a5], n] - 
    S2[a2, a1, a6, a5, SP[a3, a4], n] - S2[a2, a1, a6, SP[a3, a4], a5, n] + 
    S2[a2, a1, a6, SP[a3, a5], a4, n] + 2*S2[a2, a1, a6, SP[a4, a5], a3, n] + 
    S2[a2, a1, SP[a3, a5], a4, a6, n] + S2[a2, a1, SP[a3, a5], a6, a4, n] + 
    S2[a2, a1, SP[a4, a5], a3, a6, n] + S2[a2, a1, SP[a4, a5], a6, a3, n] + 
    S2[a2, a1, SP[a4, a6], a3, a5, n] + S2[a2, a1, SP[a4, a6], a5, a3, n] + 
    S2[a2, a1, SP[a5, a6], a3, a4, n] + S2[a2, a1, SP[a5, a6], a4, a3, n] - 
    S2[a6, n]*S2[a2, a3, a1, a4, a5, n] - S2[a2, a3, a1, a4, SP[a5, a6], n] - 
    S2[a6, n]*S2[a2, a3, a1, a5, a4, n] + 
    2*S2[a2, a3, a1, a6, SP[a4, a5], n] + S2[a2, a3, a1, SP[a4, a5], a6, n] - 
    S2[a6, n]*S2[a2, a3, a4, a1, a5, n] - S2[a2, a3, a4, a1, SP[a5, a6], n] - 
    S2[a2, a3, a4, SP[a1, a6], a5, n] + S2[a2, a3, a6, a1, SP[a4, a5], n] + 
    S2[a2, a3, a6, SP[a1, a4], a5, n] + S2[a2, a3, SP[a1, a4], a5, a6, n] + 
    S2[a2, a3, SP[a1, a4], a6, a5, n] - S2[a2, a3, SP[a4, a6], a1, a5, n] - 
    S2[a6, n]*S2[a2, a4, a1, a3, a5, n] - S2[a2, a4, a1, a3, SP[a5, a6], n] - 
    S2[a6, n]*S2[a2, a4, a1, a5, a3, n] + S2[a2, a4, a1, a6, SP[a3, a5], n] + 
    S2[a2, a4, a1, SP[a3, a5], a6, n] - S2[a2, a4, a1, SP[a5, a6], a3, n] - 
    S2[a6, n]*S2[a2, a4, a3, a1, a5, n] - S2[a2, a4, a3, a1, SP[a5, a6], n] - 
    S2[a2, a4, a3, SP[a1, a6], a5, n] + S2[a3, n]*S2[a2, a4, a6, a1, a5, n] + 
    S2[a2, a4, a6, a1, SP[a3, a5], n] + S2[a2, a4, a6, SP[a1, a3], a5, n] + 
    S2[a2, a4, SP[a1, a3], a5, a6, n] + S2[a2, a4, SP[a1, a3], a6, a5, n] - 
    S2[a2, a4, SP[a1, a6], a3, a5, n] - S2[a2, a4, SP[a1, a6], a5, a3, n] - 
    S2[a4, n]*S2[a2, a6, a1, a3, a5, n] + S2[a2, a6, a1, a4, SP[a3, a5], n] - 
    S2[a4, n]*S2[a2, a6, a1, a5, a3, n] - S2[a2, a6, a1, a5, SP[a3, a4], n] - 
    S2[a2, a6, a1, SP[a3, a4], a5, n] + S2[a2, a6, a1, SP[a3, a5], a4, n] + 
    S2[a2, a6, a3, a1, SP[a4, a5], n] + S2[a2, a6, a3, SP[a1, a4], a5, n] + 
    S2[a2, a6, a4, a1, SP[a3, a5], n] + S2[a2, a6, a4, SP[a1, a3], a5, n] + 
    S2[a2, a6, SP[a1, a3], a4, a5, n] + S2[a2, a6, SP[a1, a3], a5, a4, n] + 
    S2[a2, SP[a1, a3], a4, a5, a6, n] + S2[a2, SP[a1, a3], a4, a6, a5, n] + 
    S2[a2, SP[a1, a3], a5, a4, a6, n] + S2[a2, SP[a1, a3], a5, a6, a4, n] + 
    S2[a2, SP[a1, a3], a6, a4, a5, n] + S2[a2, SP[a1, a3], a6, a5, a4, n] + 
    S2[a2, SP[a1, a4], a3, a5, a6, n] + S2[a2, SP[a1, a4], a3, a6, a5, n] + 
    S2[a2, SP[a1, a4], a5, a3, a6, n] + S2[a2, SP[a1, a4], a5, a6, a3, n] + 
    S2[a2, SP[a1, a4], a6, a3, a5, n] + S2[a2, SP[a1, a4], a6, a5, a3, n] + 
    S2[a2, SP[a1, a6], a3, a4, a5, n] + S2[a2, SP[a1, a6], a3, a5, a4, n] + 
    S2[a2, SP[a1, a6], a4, a3, a5, n] + S2[a2, SP[a1, a6], a4, a5, a3, n] + 
    S2[a2, SP[a1, a6], a5, a3, a4, n] + S2[a2, SP[a1, a6], a5, a4, a3, n] + 
    S2[a2, SP[a3, a4], a6, a1, a5, n] - S2[a2, SP[a3, a6], a1, a4, a5, n] - 
    S2[a2, SP[a3, a6], a1, a5, a4, n] - S2[a2, SP[a3, a6], a4, a1, a5, n] - 
    2*S2[a2, SP[a4, a6], a1, a3, a5, n] - 
    2*S2[a2, SP[a4, a6], a1, a5, a3, n] - S2[a2, SP[a4, a6], a3, a1, a5, n] - 
    S2[a4, a1, a6, a2, SP[a3, a5], n] - S2[a4, a1, a6, SP[a2, a5], a3, n] - 
    S2[a4, a1, SP[a5, a6], a2, a3, n] - S2[a4, a6, a1, a2, SP[a3, a5], n] + 
    S2[a2, n]*S2[a4, a6, a1, a3, a5, n] + S2[a4, a6, a1, a3, SP[a2, a5], n] + 
    S2[a2, n]*S2[a4, a6, a1, a5, a3, n] + S2[a4, a6, a1, a5, SP[a2, a3], n] + 
    S2[a4, a6, a1, SP[a2, a3], a5, n] - S2[a4, a6, a2, a1, SP[a3, a5], n] - 
    S2[a4, a6, a2, SP[a1, a3], a5, n] - S2[a4, SP[a1, a6], a2, a3, a5, n] - 
    S2[a4, SP[a1, a6], a2, a5, a3, n] - S2[a4, SP[a1, a6], a5, a2, a3, n] + 
    S2[a4, SP[a2, a6], a1, a3, a5, n] + S2[a4, SP[a2, a6], a1, a5, a3, n] - 
    S2[a4, n]*S2[a6, a1, a3, a2, a5, n] - S2[a6, a1, a3, a2, SP[a4, a5], n] - 
    S2[a4, n]*S2[a6, a1, a3, a5, a2, n] - S2[a6, a1, a3, a5, SP[a2, a4], n] - 
    S2[a6, a1, a3, SP[a2, a4], a5, n] - S2[a6, a1, a3, SP[a4, a5], a2, n] - 
    S2[a4, n]*S2[a6, a1, a5, a3, a2, n] - S2[a6, a1, a5, a3, SP[a2, a4], n] - 
    S2[a6, a1, a5, SP[a3, a4], a2, n] - S2[a6, a1, SP[a3, a4], a2, a5, n] - 
    S2[a6, a1, SP[a3, a4], a5, a2, n] - S2[a6, a1, SP[a4, a5], a3, a2, n] + 
    S2[a4, n]*S2[a6, a2, a3, a1, a5, n] + S2[a6, a2, a3, a1, SP[a4, a5], n] + 
    S2[a6, a2, a3, SP[a1, a4], a5, n] + S2[a6, a2, SP[a3, a4], a1, a5, n] + 
    S2[a2, n]*S2[a6, a4, a1, a3, a5, n] + S2[a6, a4, a1, a3, SP[a2, a5], n] + 
    S2[a2, n]*S2[a6, a4, a1, a5, a3, n] + S2[a6, a4, a1, a5, SP[a2, a3], n] + 
    S2[a6, a4, a1, SP[a2, a3], a5, n] + S2[a6, a4, a1, SP[a2, a5], a3, n] + 
    S2[a6, a4, SP[a1, a2], a3, a5, n] + S2[a6, a4, SP[a1, a2], a5, a3, n] - 
    S2[a6, SP[a1, a4], a3, a2, a5, n] - S2[a6, SP[a1, a4], a3, a5, a2, n] - 
    S2[a6, SP[a1, a4], a5, a3, a2, n] + S2[a6, SP[a2, a4], a1, a3, a5, n] + 
    S2[a6, SP[a2, a4], a1, a5, a3, n] + S2[a6, SP[a2, a4], a3, a1, a5, n] + 
    S2[SP[a1, a6], a3, a2, a4, a5, n] + S2[SP[a1, a6], a3, a2, a5, a4, n] + 
    S2[SP[a1, a6], a3, a4, a2, a5, n] + S2[SP[a1, a6], a3, a4, a5, a2, n] + 
    S2[SP[a1, a6], a3, a5, a2, a4, n] + S2[SP[a1, a6], a3, a5, a4, a2, n] + 
    S2[SP[a1, a6], a4, a2, a3, a5, n] + S2[SP[a1, a6], a4, a2, a5, a3, n] + 
    S2[SP[a1, a6], a4, a3, a2, a5, n] + S2[SP[a1, a6], a4, a3, a5, a2, n] + 
    S2[SP[a1, a6], a4, a5, a2, a3, n] + S2[SP[a1, a6], a4, a5, a3, a2, n] + 
    S2[SP[a1, a6], a5, a3, a2, a4, n] + S2[SP[a1, a6], a5, a3, a4, a2, n] + 
    S2[SP[a1, a6], a5, a4, a2, a3, n] + S2[SP[a1, a6], a5, a4, a3, a2, n] + 
    S2[SP[a2, a3], a4, a6, a1, a5, n] - S2[SP[a2, a6], a3, a1, a4, a5, n] - 
    S2[SP[a2, a6], a3, a1, a5, a4, n] - S2[SP[a2, a6], a3, a4, a1, a5, n] - 
    S2[SP[a2, a6], a4, a3, a1, a5, n] - S2[SP[a4, a6], a1, a3, a2, a5, n] - 
    S2[SP[a4, a6], a1, a3, a5, a2, n] - S2[SP[a4, a6], a1, a5, a3, a2, n] + 
    S2[SP[a4, a6], a2, a3, a1, a5, n] - S2[a6, a1, a4, a2, a3, a5, n] - 
    S2[a6, a1, a4, a2, a5, a3, n] - S2[a6, a1, a4, a5, a2, a3, n] - 
    S2[a6, a1, a5, a4, a2, a3, n] - S2[a6, a4, a1, a2, a3, a5, n] - 
    S2[a6, a4, a1, a2, a5, a3, n] - S2[a6, a4, a1, a5, a2, a3, n] - 
    S2[a6, a4, a2, a1, a3, a5, n] - S2[a6, a4, a2, a1, a5, a3, n] - 
    S2[a6, a4, a2, a3, a1, a5, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a3_, a2_, a4_, a6_, a5_, a1_, n_] :> 
  -(S2[a1, a5, a6, n]*S2[a2, a3, a4, n]) - S2[a1, a5, a6, n]*
     S2[a2, a4, a3, n] - S2[SP[a1, a2], SP[a3, a5], SP[a4, a6], n] - 
    S2[SP[a1, a2], SP[a4, a5], SP[a3, a6], n] + S2[a1, a2, SP[a3, a5], 
     SP[a4, a6], n] + S2[a1, a2, SP[a4, a5], SP[a3, a6], n] + 
    S2[a2, a3, n]*S2[a1, a5, a6, a4, n] - S2[a1, a5, SP[a2, a6], SP[a3, a4], 
     n] + S2[a1, SP[a2, a5], a3, SP[a4, a6], n] + S2[a1, SP[a2, a5], a4, 
     SP[a3, a6], n] - S2[a1, SP[a2, a5], a6, SP[a3, a4], n] + 
    S2[a1, SP[a2, a5], SP[a4, a6], a3, n] + S2[a2, a1, SP[a3, a5], 
     SP[a4, a6], n] + S2[a2, a1, SP[a4, a5], SP[a3, a6], n] - 
    S2[a1, a5, n]*S2[a2, a3, a6, a4, n] + S2[a2, a3, SP[a1, a6], SP[a4, a5], 
     n] - S2[a1, a5, n]*S2[a2, a6, a3, a4, n] - 
    S2[a1, a5, n]*S2[a2, a6, a4, a3, n] + S2[a2, a6, SP[a1, a3], SP[a4, a5], 
     n] + S2[a2, a6, SP[a1, a4], SP[a3, a5], n] + S2[a2, SP[a1, a3], a5, 
     SP[a4, a6], n] + S2[a2, SP[a1, a3], a6, SP[a4, a5], n] + 
    S2[a2, SP[a1, a3], SP[a4, a5], a6, n] + S2[a2, SP[a1, a3], SP[a5, a6], 
     a4, n] + S2[a2, SP[a1, a4], a5, SP[a3, a6], n] + 
    S2[a2, SP[a1, a4], SP[a3, a5], a6, n] + S2[a2, SP[a1, a6], a3, 
     SP[a4, a5], n] + S2[a2, SP[a1, a6], a4, SP[a3, a5], n] + 
    S2[a2, SP[a1, a6], SP[a3, a5], a4, n] + S2[a2, SP[a1, a6], SP[a4, a5], 
     a3, n] + S2[a1, a5, n]*S2[a4, a6, a2, a3, n] - 
    S2[a4, a6, SP[a1, a2], SP[a3, a5], n] - S2[a4, SP[a1, a6], a2, 
     SP[a3, a5], n] - S2[a4, SP[a1, a6], SP[a2, a5], a3, n] + 
    S2[SP[a1, a2], a3, a5, SP[a4, a6], n] + S2[SP[a1, a2], a3, a6, 
     SP[a4, a5], n] + S2[SP[a1, a2], a3, SP[a4, a5], a6, n] + 
    S2[SP[a1, a2], a3, SP[a5, a6], a4, n] + S2[SP[a1, a2], a4, a5, 
     SP[a3, a6], n] + S2[SP[a1, a2], a4, SP[a3, a5], a6, n] + 
    S2[SP[a1, a2], a5, a3, SP[a4, a6], n] + S2[SP[a1, a2], a5, a4, 
     SP[a3, a6], n] - S2[SP[a1, a2], a5, a6, SP[a3, a4], n] + 
    S2[SP[a1, a2], a5, SP[a4, a6], a3, n] + S2[SP[a1, a2], a6, a3, 
     SP[a4, a5], n] + S2[SP[a1, a2], a6, a4, SP[a3, a5], n] + 
    S2[SP[a1, a2], a6, SP[a3, a5], a4, n] + S2[SP[a1, a2], a6, SP[a4, a5], 
     a3, n] + S2[SP[a1, a2], SP[a3, a5], a4, a6, n] + 
    S2[SP[a1, a2], SP[a3, a5], a6, a4, n] + S2[SP[a1, a2], SP[a4, a5], a3, 
     a6, n] + S2[SP[a1, a2], SP[a4, a5], a6, a3, n] + 
    S2[SP[a1, a2], SP[a5, a6], a3, a4, n] + S2[SP[a1, a2], SP[a5, a6], a4, 
     a3, n] - S2[SP[a1, a4], a6, a2, SP[a3, a5], n] - 
    S2[SP[a1, a4], a6, SP[a2, a5], a3, n] - S2[SP[a1, a4], SP[a5, a6], a2, 
     a3, n] - S2[a1, a2, a3, a5, SP[a4, a6], n] - 
    S2[a1, a2, a3, a6, SP[a4, a5], n] - S2[a1, a2, a3, SP[a4, a5], a6, n] - 
    S2[a1, a2, a3, SP[a5, a6], a4, n] - S2[a1, a2, a4, a5, SP[a3, a6], n] - 
    S2[a1, a2, a4, SP[a3, a5], a6, n] - S2[a1, a2, a5, a3, SP[a4, a6], n] - 
    S2[a1, a2, a5, a4, SP[a3, a6], n] + S2[a1, a2, a5, a6, SP[a3, a4], n] - 
    S2[a1, a2, a5, SP[a4, a6], a3, n] - S2[a1, a2, a6, a3, SP[a4, a5], n] - 
    S2[a1, a2, a6, a4, SP[a3, a5], n] - S2[a1, a2, a6, SP[a3, a5], a4, n] - 
    S2[a1, a2, a6, SP[a4, a5], a3, n] - S2[a1, a2, SP[a3, a5], a4, a6, n] - 
    S2[a1, a2, SP[a3, a5], a6, a4, n] - S2[a1, a2, SP[a4, a5], a3, a6, n] - 
    S2[a1, a2, SP[a4, a5], a6, a3, n] - S2[a1, a2, SP[a5, a6], a3, a4, n] - 
    S2[a1, a2, SP[a5, a6], a4, a3, n] - S2[a6, n]*S2[a1, a3, a2, a4, a5, n] - 
    S2[a1, a3, a2, a4, SP[a5, a6], n] - S2[a6, n]*S2[a1, a3, a2, a5, a4, n] - 
    S2[a1, a3, a2, a5, SP[a4, a6], n] - S2[a1, a3, a2, SP[a4, a6], a5, n] - 
    S2[a1, a3, a2, SP[a5, a6], a4, n] - S2[a6, n]*S2[a1, a3, a4, a2, a5, n] - 
    S2[a1, a3, a4, a2, SP[a5, a6], n] - S2[a6, n]*S2[a1, a3, a4, a5, a2, n] + 
    S2[a2, n]*S2[a1, a3, a4, a5, a6, n] + S2[a1, a3, a4, SP[a2, a5], a6, n] - 
    S2[a1, a3, a4, SP[a2, a6], a5, n] - S2[a1, a3, a4, SP[a5, a6], a2, n] - 
    S2[a6, n]*S2[a1, a3, a5, a2, a4, n] - S2[a1, a3, a5, a2, SP[a4, a6], n] - 
    S2[a6, n]*S2[a1, a3, a5, a4, a2, n] + 
    S2[a2, n]*S2[a1, a3, a5, a4, a6, n] + 
    S2[a2, n]*S2[a1, a3, a5, a6, a4, n] + S2[a1, a3, a5, a6, SP[a2, a4], n] + 
    S2[a1, a3, a5, SP[a2, a4], a6, n] - S2[a1, a3, a5, SP[a4, a6], a2, n] + 
    S2[a2, n]*S2[a1, a3, a6, a4, a5, n] + S2[a1, a3, a6, a4, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a3, a6, a5, a4, n] + S2[a1, a3, a6, a5, SP[a2, a4], n] + 
    S2[a1, a3, a6, SP[a2, a4], a5, n] + S2[a1, a3, a6, SP[a2, a5], a4, n] + 
    S2[a1, a3, SP[a2, a4], a5, a6, n] + S2[a1, a3, SP[a2, a5], a4, a6, n] + 
    S2[a1, a3, SP[a2, a5], a6, a4, n] - S2[a1, a3, SP[a4, a6], a2, a5, n] - 
    S2[a1, a3, SP[a4, a6], a5, a2, n] - S2[a1, a3, SP[a5, a6], a2, a4, n] - 
    S2[a1, a3, SP[a5, a6], a4, a2, n] - S2[a6, n]*S2[a1, a4, a2, a3, a5, n] - 
    S2[a1, a4, a2, a3, SP[a5, a6], n] - S2[a6, n]*S2[a1, a4, a2, a5, a3, n] - 
    S2[a1, a4, a2, a5, SP[a3, a6], n] + S2[a3, n]*S2[a1, a4, a2, a6, a5, n] + 
    S2[a1, a4, a2, a6, SP[a3, a5], n] - S2[a1, a4, a2, SP[a5, a6], a3, n] - 
    S2[a6, n]*S2[a1, a4, a3, a2, a5, n] - S2[a1, a4, a3, a2, SP[a5, a6], n] - 
    S2[a6, n]*S2[a1, a4, a3, a5, a2, n] + 
    S2[a2, n]*S2[a1, a4, a3, a5, a6, n] + S2[a1, a4, a3, SP[a2, a5], a6, n] - 
    S2[a1, a4, a3, SP[a2, a6], a5, n] - S2[a1, a4, a3, SP[a5, a6], a2, n] - 
    S2[a6, n]*S2[a1, a4, a5, a2, a3, n] - S2[a1, a4, a5, a2, SP[a3, a6], n] - 
    S2[a6, n]*S2[a1, a4, a5, a3, a2, n] + 
    S2[a2, n]*S2[a1, a4, a5, a3, a6, n] + 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] + S2[a1, a4, a5, a6, SP[a2, a3], n] + 
    S2[a1, a4, a5, SP[a2, a3], a6, n] - S2[a1, a4, a5, SP[a3, a6], a2, n] + 
    S2[a3, n]*S2[a1, a4, a6, a2, a5, n] + 
    2*S2[a1, a4, a6, a2, SP[a3, a5], n] + 
    S2[a3, n]*S2[a1, a4, a6, a5, a2, n] + S2[a1, a4, a6, a5, SP[a2, a3], n] + 
    S2[a1, a4, a6, SP[a2, a3], a5, n] + S2[a1, a4, a6, SP[a2, a5], a3, n] + 
    S2[a1, a4, a6, SP[a3, a5], a2, n] + S2[a1, a4, SP[a2, a3], a5, a6, n] + 
    S2[a1, a4, SP[a2, a3], a6, a5, n] + S2[a1, a4, SP[a2, a5], a3, a6, n] + 
    S2[a1, a4, SP[a2, a5], a6, a3, n] - S2[a1, a4, SP[a2, a6], a3, a5, n] - 
    S2[a1, a4, SP[a2, a6], a5, a3, n] - S2[a1, a4, SP[a5, a6], a3, a2, n] - 
    S2[a1, a5, a2, a3, SP[a4, a6], n] - S2[a1, a5, a2, a4, SP[a3, a6], n] + 
    S2[a1, a5, a2, a6, SP[a3, a4], n] - S2[a1, a5, a2, SP[a4, a6], a3, n] - 
    S2[a6, n]*S2[a1, a5, a3, a2, a4, n] - S2[a1, a5, a3, a2, SP[a4, a6], n] - 
    S2[a6, n]*S2[a1, a5, a3, a4, a2, n] + 
    S2[a2, n]*S2[a1, a5, a3, a4, a6, n] + 
    S2[a2, n]*S2[a1, a5, a3, a6, a4, n] + S2[a1, a5, a3, a6, SP[a2, a4], n] + 
    S2[a1, a5, a3, SP[a2, a4], a6, n] - S2[a1, a5, a3, SP[a4, a6], a2, n] - 
    S2[a6, n]*S2[a1, a5, a4, a2, a3, n] - S2[a1, a5, a4, a2, SP[a3, a6], n] - 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] + 
    S2[a2, n]*S2[a1, a5, a4, a3, a6, n] + 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] + S2[a1, a5, a4, a6, SP[a2, a3], n] + 
    S2[a1, a5, a4, SP[a2, a3], a6, n] - S2[a1, a5, a4, SP[a3, a6], a2, n] - 
    S2[a4, n]*S2[a1, a5, a6, a2, a3, n] + 
    S2[a2, n]*S2[a1, a5, a6, a3, a4, n] + S2[a1, a5, a6, a3, SP[a2, a4], n] + 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] + S2[a1, a5, a6, a4, SP[a2, a3], n] + 
    S2[a1, a5, a6, SP[a2, a3], a4, n] + S2[a1, a5, a6, SP[a2, a4], a3, n] + 
    S2[a1, a5, SP[a2, a3], a4, a6, n] + S2[a1, a5, SP[a2, a3], a6, a4, n] + 
    S2[a1, a5, SP[a2, a4], a3, a6, n] + S2[a1, a5, SP[a2, a4], a6, a3, n] + 
    S2[a1, a5, SP[a2, a6], a3, a4, n] + S2[a1, a5, SP[a2, a6], a4, a3, n] - 
    S2[a1, a5, SP[a3, a6], a2, a4, n] - S2[a1, a5, SP[a3, a6], a4, a2, n] - 
    2*S2[a1, a5, SP[a4, a6], a2, a3, n] - S2[a1, a5, SP[a4, a6], a3, a2, n] - 
    S2[a4, n]*S2[a1, a6, a2, a3, a5, n] - S2[a1, a6, a2, a3, SP[a4, a5], n] - 
    S2[a4, n]*S2[a1, a6, a2, a5, a3, n] - S2[a1, a6, a2, a5, SP[a3, a4], n] - 
    S2[a1, a6, a2, SP[a3, a4], a5, n] - S2[a1, a6, a2, SP[a4, a5], a3, n] + 
    S2[a2, n]*S2[a1, a6, a3, a4, a5, n] + S2[a1, a6, a3, a4, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a6, a3, a5, a4, n] + S2[a1, a6, a3, a5, SP[a2, a4], n] + 
    S2[a1, a6, a3, SP[a2, a4], a5, n] + S2[a1, a6, a3, SP[a2, a5], a4, n] + 
    S2[a2, n]*S2[a1, a6, a4, a3, a5, n] + S2[a1, a6, a4, a3, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a6, a4, a5, a3, n] + S2[a1, a6, a4, a5, SP[a2, a3], n] + 
    S2[a1, a6, a4, SP[a2, a3], a5, n] + S2[a1, a6, a4, SP[a2, a5], a3, n] - 
    S2[a4, n]*S2[a1, a6, a5, a2, a3, n] - S2[a1, a6, a5, a2, SP[a3, a4], n] + 
    S2[a2, n]*S2[a1, a6, a5, a3, a4, n] + S2[a1, a6, a5, a3, SP[a2, a4], n] + 
    S2[a2, n]*S2[a1, a6, a5, a4, a3, n] + S2[a1, a6, a5, a4, SP[a2, a3], n] + 
    S2[a1, a6, a5, SP[a2, a3], a4, n] + S2[a1, a6, SP[a2, a3], a4, a5, n] + 
    S2[a1, a6, SP[a2, a3], a5, a4, n] + S2[a1, a6, SP[a2, a5], a3, a4, n] + 
    S2[a1, a6, SP[a2, a5], a4, a3, n] - S2[a1, a6, SP[a4, a5], a2, a3, n] + 
    S2[a1, SP[a2, a3], a4, a5, a6, n] + S2[a1, SP[a2, a3], a5, a4, a6, n] + 
    S2[a1, SP[a2, a3], a5, a6, a4, n] + S2[a1, SP[a2, a3], a6, a4, a5, n] + 
    S2[a1, SP[a2, a3], a6, a5, a4, n] + S2[a1, SP[a2, a4], a3, a5, a6, n] + 
    S2[a1, SP[a2, a4], a5, a3, a6, n] + S2[a1, SP[a2, a4], a5, a6, a3, n] + 
    S2[a1, SP[a2, a6], a3, a4, a5, n] + S2[a1, SP[a2, a6], a3, a5, a4, n] + 
    S2[a1, SP[a2, a6], a4, a3, a5, n] + S2[a1, SP[a2, a6], a4, a5, a3, n] + 
    S2[a1, SP[a2, a6], a5, a3, a4, n] + S2[a1, SP[a2, a6], a5, a4, a3, n] + 
    S2[a1, SP[a3, a4], a2, a6, a5, n] + S2[a1, SP[a3, a4], a6, a2, a5, n] + 
    S2[a1, SP[a3, a4], a6, a5, a2, n] - S2[a1, SP[a3, a6], a2, a4, a5, n] - 
    S2[a1, SP[a3, a6], a2, a5, a4, n] - S2[a1, SP[a3, a6], a4, a2, a5, n] - 
    S2[a1, SP[a3, a6], a4, a5, a2, n] - S2[a1, SP[a3, a6], a5, a2, a4, n] - 
    S2[a1, SP[a3, a6], a5, a4, a2, n] - 2*S2[a1, SP[a4, a6], a2, a3, a5, n] - 
    2*S2[a1, SP[a4, a6], a2, a5, a3, n] - S2[a1, SP[a4, a6], a3, a2, a5, n] - 

    S2[a1, SP[a4, a6], a3, a5, a2, n] - 2*S2[a1, SP[a4, a6], a5, a2, a3, n] - 
    S2[a1, SP[a4, a6], a5, a3, a2, n] - S2[a1, SP[a5, a6], a3, a2, a4, n] - 
    S2[a1, SP[a5, a6], a3, a4, a2, n] - S2[a1, SP[a5, a6], a4, a2, a3, n] - 
    S2[a1, SP[a5, a6], a4, a3, a2, n] - S2[a2, a1, a3, a5, SP[a4, a6], n] - 
    S2[a2, a1, a3, a6, SP[a4, a5], n] - S2[a2, a1, a3, SP[a4, a5], a6, n] - 
    S2[a2, a1, a3, SP[a5, a6], a4, n] - S2[a2, a1, a4, a5, SP[a3, a6], n] - 
    S2[a2, a1, a4, SP[a3, a5], a6, n] - S2[a2, a1, a5, a3, SP[a4, a6], n] - 
    S2[a2, a1, a5, a4, SP[a3, a6], n] + S2[a2, a1, a5, a6, SP[a3, a4], n] - 
    S2[a2, a1, a5, SP[a4, a6], a3, n] - S2[a2, a1, a6, a3, SP[a4, a5], n] - 
    S2[a2, a1, a6, a4, SP[a3, a5], n] - S2[a2, a1, a6, SP[a3, a5], a4, n] - 
    S2[a2, a1, a6, SP[a4, a5], a3, n] - S2[a2, a1, SP[a3, a5], a4, a6, n] - 
    S2[a2, a1, SP[a3, a5], a6, a4, n] - S2[a2, a1, SP[a4, a5], a3, a6, n] - 
    S2[a2, a1, SP[a4, a5], a6, a3, n] - S2[a2, a1, SP[a5, a6], a3, a4, n] - 
    S2[a2, a1, SP[a5, a6], a4, a3, n] + S2[a6, n]*S2[a2, a3, a1, a4, a5, n] + 
    S2[a2, a3, a1, a4, SP[a5, a6], n] + S2[a6, n]*S2[a2, a3, a1, a5, a4, n] - 
    S2[a2, a3, a1, a6, SP[a4, a5], n] - S2[a2, a3, a1, SP[a4, a5], a6, n] + 
    S2[a2, a3, a1, SP[a4, a6], a5, n] + S2[a6, n]*S2[a2, a3, a4, a1, a5, n] + 
    S2[a2, a3, a4, a1, SP[a5, a6], n] + S2[a2, a3, a4, SP[a1, a6], a5, n] - 
    S2[a2, a3, a6, a1, SP[a4, a5], n] - S2[a2, a3, a6, SP[a1, a4], a5, n] - 
    S2[a2, a3, SP[a1, a4], a5, a6, n] + S2[a2, a3, SP[a4, a6], a1, a5, n] + 
    S2[a6, n]*S2[a2, a4, a1, a3, a5, n] + S2[a2, a4, a1, a3, SP[a5, a6], n] + 
    S2[a6, n]*S2[a2, a4, a1, a5, a3, n] - 
    S2[a3, n]*S2[a2, a4, a1, a6, a5, n] - S2[a2, a4, a1, a6, SP[a3, a5], n] - 
    S2[a2, a4, a1, SP[a3, a5], a6, n] + S2[a2, a4, a1, SP[a5, a6], a3, n] + 
    S2[a6, n]*S2[a2, a4, a3, a1, a5, n] + S2[a2, a4, a3, a1, SP[a5, a6], n] + 
    S2[a2, a4, a3, SP[a1, a6], a5, n] - S2[a3, n]*S2[a2, a4, a6, a1, a5, n] - 
    S2[a2, a4, a6, a1, SP[a3, a5], n] - S2[a2, a4, a6, SP[a1, a3], a5, n] - 
    S2[a2, a4, SP[a1, a3], a5, a6, n] - S2[a2, a4, SP[a1, a3], a6, a5, n] + 
    S2[a2, a4, SP[a1, a6], a3, a5, n] + S2[a2, a4, SP[a1, a6], a5, a3, n] + 
    S2[a4, n]*S2[a2, a6, a1, a3, a5, n] - S2[a2, a6, a1, a4, SP[a3, a5], n] + 
    S2[a4, n]*S2[a2, a6, a1, a5, a3, n] + S2[a2, a6, a1, a5, SP[a3, a4], n] + 
    S2[a2, a6, a1, SP[a3, a4], a5, n] - S2[a2, a6, a1, SP[a3, a5], a4, n] - 
    S2[a2, a6, a3, a1, SP[a4, a5], n] - S2[a2, a6, a3, SP[a1, a4], a5, n] - 
    S2[a2, a6, a4, a1, SP[a3, a5], n] - S2[a2, a6, a4, SP[a1, a3], a5, n] - 
    S2[a2, a6, SP[a1, a3], a4, a5, n] - S2[a2, a6, SP[a1, a3], a5, a4, n] - 
    S2[a2, SP[a1, a3], a4, a5, a6, n] - S2[a2, SP[a1, a3], a5, a4, a6, n] - 
    S2[a2, SP[a1, a3], a5, a6, a4, n] - S2[a2, SP[a1, a3], a6, a4, a5, n] - 
    S2[a2, SP[a1, a3], a6, a5, a4, n] - S2[a2, SP[a1, a4], a3, a5, a6, n] - 
    S2[a2, SP[a1, a4], a5, a3, a6, n] - S2[a2, SP[a1, a4], a5, a6, a3, n] - 
    S2[a2, SP[a1, a6], a3, a4, a5, n] - S2[a2, SP[a1, a6], a3, a5, a4, n] - 
    S2[a2, SP[a1, a6], a4, a3, a5, n] - S2[a2, SP[a1, a6], a4, a5, a3, n] - 
    S2[a2, SP[a1, a6], a5, a3, a4, n] - S2[a2, SP[a1, a6], a5, a4, a3, n] - 
    S2[a2, SP[a3, a4], a1, a6, a5, n] - S2[a2, SP[a3, a4], a6, a1, a5, n] + 
    S2[a2, SP[a3, a6], a1, a4, a5, n] + S2[a2, SP[a3, a6], a1, a5, a4, n] + 
    S2[a2, SP[a3, a6], a4, a1, a5, n] + 2*S2[a2, SP[a4, a6], a1, a3, a5, n] + 
    2*S2[a2, SP[a4, a6], a1, a5, a3, n] + S2[a2, SP[a4, a6], a3, a1, a5, n] - 
    S2[a2, n]*S2[a3, a1, a4, a6, a5, n] - S2[a3, a1, a4, a6, SP[a2, a5], n] - 
    S2[a3, a1, a4, SP[a2, a6], a5, n] - S2[a3, a1, SP[a2, a4], a6, a5, n] + 
    S2[a1, n]*S2[a3, a2, a4, a6, a5, n] + S2[a3, a2, a4, a6, SP[a1, a5], n] + 
    S2[a3, a2, a4, SP[a1, a6], a5, n] + S2[a3, a2, SP[a1, a4], a6, a5, n] + 
    S2[a4, a1, a6, a2, SP[a3, a5], n] + S2[a4, a1, a6, SP[a2, a5], a3, n] + 
    S2[a4, a1, SP[a5, a6], a2, a3, n] + S2[a4, a6, a1, a2, SP[a3, a5], n] - 
    S2[a2, n]*S2[a4, a6, a1, a3, a5, n] - S2[a4, a6, a1, a3, SP[a2, a5], n] - 
    S2[a2, n]*S2[a4, a6, a1, a5, a3, n] - S2[a4, a6, a1, a5, SP[a2, a3], n] - 
    S2[a4, a6, a1, SP[a2, a3], a5, n] + S2[a4, a6, a2, a1, SP[a3, a5], n] + 
    S2[a4, a6, a2, SP[a1, a3], a5, n] + S2[a4, SP[a1, a6], a2, a3, a5, n] + 
    S2[a4, SP[a1, a6], a2, a5, a3, n] + S2[a4, SP[a1, a6], a5, a2, a3, n] - 
    S2[a4, SP[a2, a6], a1, a3, a5, n] - S2[a4, SP[a2, a6], a1, a5, a3, n] + 
    S2[a4, n]*S2[a6, a1, a3, a2, a5, n] + S2[a6, a1, a3, a2, SP[a4, a5], n] + 
    S2[a4, n]*S2[a6, a1, a3, a5, a2, n] + S2[a6, a1, a3, a5, SP[a2, a4], n] + 
    S2[a6, a1, a3, SP[a2, a4], a5, n] + S2[a6, a1, a3, SP[a4, a5], a2, n] + 
    S2[a4, n]*S2[a6, a1, a5, a3, a2, n] + S2[a6, a1, a5, a3, SP[a2, a4], n] + 
    S2[a6, a1, a5, SP[a3, a4], a2, n] + S2[a6, a1, SP[a3, a4], a2, a5, n] + 
    S2[a6, a1, SP[a3, a4], a5, a2, n] + S2[a6, a1, SP[a4, a5], a3, a2, n] - 
    S2[a4, n]*S2[a6, a2, a3, a1, a5, n] - S2[a6, a2, a3, a1, SP[a4, a5], n] - 
    S2[a6, a2, a3, SP[a1, a4], a5, n] - S2[a6, a2, SP[a3, a4], a1, a5, n] - 
    S2[a2, n]*S2[a6, a4, a1, a3, a5, n] - S2[a6, a4, a1, a3, SP[a2, a5], n] - 
    S2[a2, n]*S2[a6, a4, a1, a5, a3, n] - S2[a6, a4, a1, a5, SP[a2, a3], n] - 
    S2[a6, a4, a1, SP[a2, a3], a5, n] - S2[a6, a4, a1, SP[a2, a5], a3, n] + 
    S2[a1, n]*S2[a6, a4, a2, a3, a5, n] + S2[a6, a4, a2, a3, SP[a1, a5], n] + 
    S2[a1, n]*S2[a6, a4, a2, a5, a3, n] + S2[a6, a4, a2, a5, SP[a1, a3], n] + 
    S2[a6, a4, a2, SP[a1, a3], a5, n] + S2[a6, a4, a2, SP[a1, a5], a3, n] + 
    S2[a1, n]*S2[a6, a4, a5, a2, a3, n] + S2[a6, a4, a5, a2, SP[a1, a3], n] + 
    S2[a6, a4, a5, SP[a1, a2], a3, n] + S2[a6, a4, SP[a1, a5], a2, a3, n] + 
    S2[a1, n]*S2[a6, a5, a4, a2, a3, n] + S2[a6, a5, a4, a2, SP[a1, a3], n] + 
    S2[a6, a5, a4, SP[a1, a2], a3, n] + S2[a6, a5, SP[a1, a4], a2, a3, n] + 
    S2[a6, SP[a1, a4], a2, a3, a5, n] + S2[a6, SP[a1, a4], a2, a5, a3, n] + 
    S2[a6, SP[a1, a4], a3, a2, a5, n] + S2[a6, SP[a1, a4], a3, a5, a2, n] + 
    S2[a6, SP[a1, a4], a5, a2, a3, n] + S2[a6, SP[a1, a4], a5, a3, a2, n] + 
    S2[a6, SP[a1, a5], a4, a2, a3, n] - S2[a6, SP[a2, a4], a1, a3, a5, n] - 
    S2[a6, SP[a2, a4], a1, a5, a3, n] - S2[a6, SP[a2, a4], a3, a1, a5, n] + 
    S2[SP[a1, a3], a2, a4, a6, a5, n] + S2[SP[a1, a3], a4, a2, a6, a5, n] + 
    S2[SP[a1, a3], a4, a6, a2, a5, n] + S2[SP[a1, a3], a4, a6, a5, a2, n] - 
    S2[SP[a1, a6], a3, a2, a4, a5, n] - S2[SP[a1, a6], a3, a2, a5, a4, n] - 
    S2[SP[a1, a6], a3, a4, a2, a5, n] - S2[SP[a1, a6], a3, a4, a5, a2, n] - 
    S2[SP[a1, a6], a3, a5, a2, a4, n] - S2[SP[a1, a6], a3, a5, a4, a2, n] - 
    S2[SP[a1, a6], a4, a3, a2, a5, n] - S2[SP[a1, a6], a4, a3, a5, a2, n] - 
    S2[SP[a1, a6], a4, a5, a3, a2, n] - S2[SP[a1, a6], a5, a3, a2, a4, n] - 
    S2[SP[a1, a6], a5, a3, a4, a2, n] - S2[SP[a1, a6], a5, a4, a3, a2, n] - 
    S2[SP[a2, a3], a1, a4, a6, a5, n] - S2[SP[a2, a3], a4, a1, a6, a5, n] - 
    S2[SP[a2, a3], a4, a6, a1, a5, n] + S2[SP[a2, a6], a3, a1, a4, a5, n] + 
    S2[SP[a2, a6], a3, a1, a5, a4, n] + S2[SP[a2, a6], a3, a4, a1, a5, n] + 
    S2[SP[a2, a6], a4, a3, a1, a5, n] + S2[SP[a4, a6], a1, a3, a2, a5, n] + 
    S2[SP[a4, a6], a1, a3, a5, a2, n] + S2[SP[a4, a6], a1, a5, a3, a2, n] - 
    S2[SP[a4, a6], a2, a3, a1, a5, n] - S2[a6, a4, a2, a3, a5, a1, n] - 
    S2[a6, a4, a2, a5, a1, a3, n] - S2[a6, a4, a2, a5, a3, a1, n] - 
    S2[a6, a4, a5, a1, a2, a3, n] - S2[a6, a4, a5, a2, a1, a3, n] - 
    S2[a6, a4, a5, a2, a3, a1, n] - S2[a6, a5, a1, a4, a2, a3, n] - 
    S2[a6, a5, a4, a1, a2, a3, n] - S2[a6, a5, a4, a2, a1, a3, n] - 
    S2[a6, a5, a4, a2, a3, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a3_, a2_, a5_, a1_, a4_, a6_, n_] :> 
  -(S2[a1, a4, a6, n]*S2[a2, a3, a5, n]) - S2[a1, a4, a6, n]*
     S2[a2, a5, a3, n] - S2[SP[a1, a2], SP[a3, a4], SP[a5, a6], n] - 
    S2[SP[a1, a2], SP[a4, a5], SP[a3, a6], n] + S2[a1, a2, SP[a3, a4], 
     SP[a5, a6], n] + S2[a1, a2, SP[a4, a5], SP[a3, a6], n] + 
    S2[a2, a3, n]*S2[a1, a4, a5, a6, n] + S2[a2, a3, n]*
     S2[a1, a4, a6, a5, n] - S2[a1, a4, SP[a2, a5], SP[a3, a6], n] - 
    S2[a1, a4, SP[a2, a6], SP[a3, a5], n] - S2[a4, a6, n]*
     S2[a1, a5, a2, a3, n] + S2[a2, a3, n]*S2[a1, a5, a4, a6, n] + 
    S2[a1, SP[a2, a4], a3, SP[a5, a6], n] - S2[a1, SP[a2, a4], a6, 
     SP[a3, a5], n] - S2[a1, SP[a2, a4], SP[a3, a5], a6, n] + 
    S2[a1, SP[a2, a4], SP[a5, a6], a3, n] - S2[a1, SP[a2, a5], a4, 
     SP[a3, a6], n] - S2[a1, SP[a2, a5], SP[a3, a4], a6, n] + 
    S2[a1, SP[a4, a5], a2, SP[a3, a6], n] + S2[a1, SP[a4, a5], SP[a2, a6], 
     a3, n] + S2[a2, a1, SP[a3, a4], SP[a5, a6], n] + 
    S2[a2, a1, SP[a4, a5], SP[a3, a6], n] + S2[a2, SP[a1, a3], a4, 
     SP[a5, a6], n] + S2[a2, SP[a1, a3], SP[a4, a5], a6, n] + 
    S2[a2, SP[a1, a5], a4, SP[a3, a6], n] + S2[a2, SP[a1, a5], SP[a3, a4], 
     a6, n] + S2[SP[a1, a2], a3, a4, SP[a5, a6], n] + 
    S2[SP[a1, a2], a3, SP[a4, a5], a6, n] + S2[SP[a1, a2], a4, a3, 
     SP[a5, a6], n] - S2[SP[a1, a2], a4, a6, SP[a3, a5], n] - 
    S2[SP[a1, a2], a4, SP[a3, a5], a6, n] + S2[SP[a1, a2], a4, SP[a5, a6], 
     a3, n] - S2[SP[a1, a2], SP[a3, a5], a4, a6, n] + 
    S2[SP[a1, a2], SP[a4, a5], a3, a6, n] + S2[SP[a1, a2], SP[a4, a5], a6, 
     a3, n] + S2[SP[a1, a4], a5, a2, SP[a3, a6], n] + 
    S2[SP[a1, a4], a5, SP[a2, a6], a3, n] + S2[SP[a1, a4], SP[a5, a6], a2, 
     a3, n] - S2[a1, a2, a3, a4, SP[a5, a6], n] - S2[a1, a2, a3, SP[a4, a5], 
     a6, n] - S2[a1, a2, a4, a3, SP[a5, a6], n] + 
    S2[a1, a2, a4, a6, SP[a3, a5], n] + S2[a1, a2, a4, SP[a3, a5], a6, n] - 
    S2[a1, a2, a4, SP[a5, a6], a3, n] + S2[a1, a2, SP[a3, a5], a4, a6, n] - 
    S2[a1, a2, SP[a4, a5], a3, a6, n] - S2[a1, a2, SP[a4, a5], a6, a3, n] - 
    S2[a1, a4, a2, a3, SP[a5, a6], n] + S2[a1, a4, a2, a6, SP[a3, a5], n] + 
    S2[a1, a4, a2, SP[a3, a5], a6, n] - S2[a1, a4, a2, SP[a5, a6], a3, n] - 
    S2[a6, n]*S2[a1, a4, a5, a2, a3, n] - S2[a1, a4, a5, a2, SP[a3, a6], n] - 
    S2[a1, a4, a5, SP[a2, a6], a3, n] + S2[a1, a4, a6, a2, SP[a3, a5], n] + 
    S2[a1, a4, a6, SP[a2, a5], a3, n] + S2[a1, a4, SP[a2, a5], a3, a6, n] + 
    S2[a1, a4, SP[a2, a5], a6, a3, n] - 2*S2[a1, a4, SP[a5, a6], a2, a3, n] - 
    S2[a6, n]*S2[a1, a5, a2, a3, a4, n] + 
    S2[a4, n]*S2[a1, a5, a2, a3, a6, n] - 
    S2[a6, n]*S2[a1, a5, a2, a4, a3, n] - S2[a1, a5, a2, a4, SP[a3, a6], n] + 
    S2[a4, n]*S2[a1, a5, a2, a6, a3, n] + S2[a1, a5, a2, a6, SP[a3, a4], n] + 
    S2[a1, a5, a2, SP[a3, a4], a6, n] - S2[a1, a5, a2, SP[a3, a6], a4, n] - 
    S2[a6, n]*S2[a1, a5, a4, a2, a3, n] - S2[a1, a5, a4, a2, SP[a3, a6], n] - 
    S2[a1, a5, a4, SP[a2, a6], a3, n] + S2[a4, n]*S2[a1, a5, a6, a2, a3, n] + 
    S2[a1, a5, a6, a2, SP[a3, a4], n] + S2[a1, a5, a6, SP[a2, a4], a3, n] + 
    S2[a1, a5, SP[a2, a4], a3, a6, n] + S2[a1, a5, SP[a2, a4], a6, a3, n] - 
    S2[a1, a5, SP[a2, a6], a3, a4, n] - S2[a1, a5, SP[a2, a6], a4, a3, n] + 
    S2[a4, n]*S2[a1, a6, a5, a2, a3, n] + S2[a1, a6, a5, a2, SP[a3, a4], n] + 
    S2[a1, a6, a5, SP[a2, a4], a3, n] + S2[a1, a6, SP[a4, a5], a2, a3, n] + 
    S2[a1, SP[a2, a5], a3, a4, a6, n] + S2[a1, SP[a2, a5], a4, a3, a6, n] + 
    S2[a1, SP[a2, a5], a4, a6, a3, n] - S2[a1, SP[a5, a6], a2, a3, a4, n] - 
    S2[a1, SP[a5, a6], a2, a4, a3, n] - S2[a1, SP[a5, a6], a4, a2, a3, n] - 
    S2[a2, a1, a3, a4, SP[a5, a6], n] - S2[a2, a1, a3, SP[a4, a5], a6, n] - 
    S2[a2, a1, a4, a3, SP[a5, a6], n] + S2[a2, a1, a4, a6, SP[a3, a5], n] + 
    S2[a2, a1, a4, SP[a3, a5], a6, n] - S2[a2, a1, a4, SP[a5, a6], a3, n] + 
    S2[a2, a1, SP[a3, a5], a4, a6, n] - S2[a2, a1, SP[a4, a5], a3, a6, n] - 
    S2[a2, a1, SP[a4, a5], a6, a3, n] - S2[a2, a3, a1, a4, SP[a5, a6], n] - 
    S2[a2, a3, a1, SP[a4, a5], a6, n] - S2[a2, a3, SP[a1, a5], a4, a6, n] + 
    S2[a3, n]*S2[a2, a5, a1, a4, a6, n] - S2[a2, SP[a1, a5], a3, a4, a6, n] - 
    S2[a2, SP[a1, a5], a4, a3, a6, n] - S2[a2, SP[a1, a5], a4, a6, a3, n] + 
    S2[a2, SP[a3, a5], a1, a4, a6, n] - S2[a4, a1, a5, a2, SP[a3, a6], n] - 
    S2[a4, a1, a5, SP[a2, a6], a3, n] - S2[a4, a1, SP[a5, a6], a2, a3, n] - 
    S2[a4, SP[a1, a6], a5, a2, a3, n] + S2[a4, n]*S2[a6, a1, a5, a2, a3, n] + 
    S2[a6, a1, a5, a2, SP[a3, a4], n] + S2[a6, a1, a5, SP[a2, a4], a3, n] + 
    S2[a6, a1, SP[a4, a5], a2, a3, n] + S2[a6, SP[a1, a4], a5, a2, a3, n] - 
    S2[SP[a1, a6], a4, a5, a2, a3, n] - S2[SP[a1, a6], a5, a2, a3, a4, n] - 
    S2[SP[a1, a6], a5, a2, a4, a3, n] - S2[SP[a1, a6], a5, a4, a2, a3, n] + 
    S2[SP[a2, a3], a5, a1, a4, a6, n] + S2[SP[a4, a6], a1, a5, a2, a3, n] - 
    S2[a6, a4, a1, a5, a2, a3, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a3_, a2_, a5_, a1_, a6_, a4_, n_] :> 
  -(S2[a1, a6, a4, n]*S2[a2, a3, a5, n]) - S2[a1, a6, a4, n]*
     S2[a2, a5, a3, n] - S2[SP[a1, a2], SP[a3, a6], SP[a4, a5], n] - 
    S2[SP[a1, a2], SP[a5, a6], SP[a3, a4], n] + S2[a1, a2, SP[a3, a6], 
     SP[a4, a5], n] + S2[a1, a2, SP[a5, a6], SP[a3, a4], n] + 
    S2[a4, a6, n]*S2[a1, a5, a2, a3, n] + S2[a2, a3, n]*
     S2[a1, a5, a6, a4, n] - S2[a1, a5, SP[a2, a4], SP[a3, a6], n] - 
    S2[a1, a5, SP[a2, a6], SP[a3, a4], n] + S2[a2, a3, n]*
     S2[a1, a6, a4, a5, n] + S2[a2, a3, n]*S2[a1, a6, a5, a4, n] - 
    S2[a1, a6, SP[a2, a4], SP[a3, a5], n] - S2[a1, a6, SP[a2, a5], 
     SP[a3, a4], n] - S2[a1, SP[a2, a5], a6, SP[a3, a4], n] - 
    S2[a1, SP[a2, a5], SP[a3, a6], a4, n] + S2[a1, SP[a2, a6], a3, 
     SP[a4, a5], n] - S2[a1, SP[a2, a6], a4, SP[a3, a5], n] - 
    S2[a1, SP[a2, a6], SP[a3, a5], a4, n] + S2[a1, SP[a2, a6], SP[a4, a5], 
     a3, n] - S2[a1, SP[a4, a5], a2, SP[a3, a6], n] - 
    S2[a1, SP[a4, a5], SP[a2, a6], a3, n] + S2[a2, a1, SP[a3, a6], 
     SP[a4, a5], n] + S2[a2, a1, SP[a5, a6], SP[a3, a4], n] + 
    S2[a2, SP[a1, a3], a6, SP[a4, a5], n] + S2[a2, SP[a1, a3], SP[a5, a6], 
     a4, n] + S2[a2, SP[a1, a5], a6, SP[a3, a4], n] + 
    S2[a2, SP[a1, a5], SP[a3, a6], a4, n] + S2[SP[a1, a2], a3, a6, 
     SP[a4, a5], n] + S2[SP[a1, a2], a3, SP[a5, a6], a4, n] + 
    S2[SP[a1, a2], a6, a3, SP[a4, a5], n] - S2[SP[a1, a2], a6, a4, 
     SP[a3, a5], n] - S2[SP[a1, a2], a6, SP[a3, a5], a4, n] + 
    S2[SP[a1, a2], a6, SP[a4, a5], a3, n] - S2[SP[a1, a2], SP[a3, a5], a6, 
     a4, n] + S2[SP[a1, a2], SP[a5, a6], a3, a4, n] + 
    S2[SP[a1, a2], SP[a5, a6], a4, a3, n] - S2[SP[a1, a4], a5, a2, 
     SP[a3, a6], n] - S2[SP[a1, a4], a5, SP[a2, a6], a3, n] - 
    S2[SP[a1, a4], SP[a5, a6], a2, a3, n] - S2[a1, a2, a3, a6, SP[a4, a5], 
     n] - S2[a1, a2, a3, SP[a5, a6], a4, n] - S2[a1, a2, a6, a3, SP[a4, a5], 
     n] + S2[a1, a2, a6, a4, SP[a3, a5], n] + S2[a1, a2, a6, SP[a3, a5], a4, 
     n] - S2[a1, a2, a6, SP[a4, a5], a3, n] + S2[a1, a2, SP[a3, a5], a6, a4, 
     n] - S2[a1, a2, SP[a5, a6], a3, a4, n] - S2[a1, a2, SP[a5, a6], a4, a3, 
     n] + S2[a1, a4, a5, a2, SP[a3, a6], n] + S2[a1, a4, a5, SP[a2, a6], a3, 
     n] + S2[a1, a4, SP[a5, a6], a2, a3, n] - 
    S2[a4, n]*S2[a1, a5, a2, a3, a6, n] - S2[a1, a5, a2, a3, SP[a4, a6], n] + 
    S2[a1, a5, a2, a4, SP[a3, a6], n] - S2[a4, n]*S2[a1, a5, a2, a6, a3, n] + 
    S2[a1, a5, a2, SP[a3, a6], a4, n] - S2[a1, a5, a2, SP[a4, a6], a3, n] + 
    S2[a1, a5, a4, a2, SP[a3, a6], n] + S2[a1, a5, a4, SP[a2, a6], a3, n] - 
    S2[a4, n]*S2[a1, a5, a6, a2, a3, n] + S2[a1, a5, SP[a2, a6], a3, a4, n] + 
    S2[a1, a5, SP[a2, a6], a4, a3, n] - S2[a1, a5, SP[a4, a6], a2, a3, n] - 
    S2[a1, a6, a2, a3, SP[a4, a5], n] + S2[a1, a6, a2, a4, SP[a3, a5], n] + 
    S2[a1, a6, a2, SP[a3, a5], a4, n] - S2[a1, a6, a2, SP[a4, a5], a3, n] + 
    S2[a1, a6, a4, a2, SP[a3, a5], n] + S2[a1, a6, a4, SP[a2, a5], a3, n] - 
    S2[a4, n]*S2[a1, a6, a5, a2, a3, n] + S2[a1, a6, SP[a2, a5], a3, a4, n] + 
    S2[a1, a6, SP[a2, a5], a4, a3, n] - S2[a1, a6, SP[a4, a5], a2, a3, n] + 
    S2[a1, SP[a2, a5], a3, a6, a4, n] + S2[a1, SP[a2, a5], a6, a3, a4, n] + 
    S2[a1, SP[a2, a5], a6, a4, a3, n] - S2[a1, SP[a4, a6], a5, a2, a3, n] - 
    S2[a2, a1, a3, a6, SP[a4, a5], n] - S2[a2, a1, a3, SP[a5, a6], a4, n] - 
    S2[a2, a1, a6, a3, SP[a4, a5], n] + S2[a2, a1, a6, a4, SP[a3, a5], n] + 
    S2[a2, a1, a6, SP[a3, a5], a4, n] - S2[a2, a1, a6, SP[a4, a5], a3, n] + 
    S2[a2, a1, SP[a3, a5], a6, a4, n] - S2[a2, a1, SP[a5, a6], a3, a4, n] - 
    S2[a2, a1, SP[a5, a6], a4, a3, n] - S2[a2, a3, a1, a6, SP[a4, a5], n] - 
    S2[a2, a3, a1, SP[a5, a6], a4, n] - S2[a2, a3, SP[a1, a5], a6, a4, n] + 
    S2[a3, n]*S2[a2, a5, a1, a6, a4, n] - S2[a2, SP[a1, a5], a3, a6, a4, n] - 
    S2[a2, SP[a1, a5], a6, a3, a4, n] - S2[a2, SP[a1, a5], a6, a4, a3, n] + 
    S2[a2, SP[a3, a5], a1, a6, a4, n] + S2[a4, a1, a5, a2, SP[a3, a6], n] + 
    S2[a4, a1, a5, SP[a2, a6], a3, n] + S2[a4, a1, SP[a5, a6], a2, a3, n] + 
    S2[a4, SP[a1, a6], a5, a2, a3, n] - S2[a4, n]*S2[a6, a1, a5, a2, a3, n] - 
    S2[a6, a1, a5, a2, SP[a3, a4], n] - S2[a6, a1, a5, SP[a2, a4], a3, n] - 
    S2[a6, a1, SP[a4, a5], a2, a3, n] - S2[a6, SP[a1, a4], a5, a2, a3, n] + 
    S2[SP[a2, a3], a5, a1, a6, a4, n] - S2[SP[a4, a6], a1, a5, a2, a3, n] + 
    S2[a6, a1, a4, a5, a2, a3, n] + S2[a6, a1, a5, a2, a3, a4, n] + 
    S2[a6, a1, a5, a2, a4, a3, n] + S2[a6, a1, a5, a4, a2, a3, n] + 
    S2[a6, a4, a1, a5, a2, a3, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a3_, a2_, a5_, a4_, a1_, a6_, n_] :> 
  S2[a1, a4, a6, n]*S2[a2, a3, a5, n] + S2[a1, a6, a4, n]*S2[a2, a3, a5, n] + 
    S2[a1, a4, a6, n]*S2[a2, a5, a3, n] + S2[a1, a6, a4, n]*
     S2[a2, a5, a3, n] + S2[SP[a1, a2], SP[a3, a4], SP[a5, a6], n] + 
    S2[SP[a1, a2], SP[a3, a6], SP[a4, a5], n] + S2[SP[a1, a2], SP[a4, a5], 
     SP[a3, a6], n] + S2[SP[a1, a2], SP[a5, a6], SP[a3, a4], n] - 
    S2[a1, a2, SP[a3, a4], SP[a5, a6], n] - S2[a1, a2, SP[a3, a6], 
     SP[a4, a5], n] - S2[a1, a2, SP[a4, a5], SP[a3, a6], n] - 
    S2[a1, a2, SP[a5, a6], SP[a3, a4], n] - S2[a2, a3, n]*
     S2[a1, a4, a5, a6, n] - S2[a2, a3, n]*S2[a1, a4, a6, a5, n] + 
    S2[a1, a4, SP[a2, a5], SP[a3, a6], n] + S2[a1, a4, SP[a2, a6], 
     SP[a3, a5], n] - S2[a2, a3, n]*S2[a1, a6, a4, a5, n] + 
    S2[a1, a6, SP[a2, a4], SP[a3, a5], n] - S2[a1, SP[a2, a4], a3, 
     SP[a5, a6], n] + S2[a1, SP[a2, a4], a6, SP[a3, a5], n] + 
    S2[a1, SP[a2, a4], SP[a3, a5], a6, n] - S2[a1, SP[a2, a4], SP[a5, a6], 
     a3, n] - S2[a1, SP[a2, a6], a3, SP[a4, a5], n] + 
    S2[a1, SP[a2, a6], a4, SP[a3, a5], n] - S2[a1, SP[a2, a6], a5, 
     SP[a3, a4], n] - S2[a1, SP[a2, a6], SP[a4, a5], a3, n] - 
    S2[a2, a1, SP[a3, a4], SP[a5, a6], n] - S2[a2, a1, SP[a3, a6], 
     SP[a4, a5], n] - S2[a2, a1, SP[a4, a5], SP[a3, a6], n] - 
    S2[a2, a1, SP[a5, a6], SP[a3, a4], n] - S2[a1, a6, n]*
     S2[a2, a3, a5, a4, n] + S2[a2, a3, SP[a1, a5], SP[a4, a6], n] - 
    S2[a1, a6, n]*S2[a2, a5, a3, a4, n] - S2[a1, a6, n]*
     S2[a2, a5, a4, a3, n] + S2[a2, a5, SP[a1, a3], SP[a4, a6], n] + 
    S2[a2, a5, SP[a1, a4], SP[a3, a6], n] - S2[a2, SP[a1, a3], a4, 
     SP[a5, a6], n] + S2[a2, SP[a1, a3], a5, SP[a4, a6], n] - 
    S2[a2, SP[a1, a3], a6, SP[a4, a5], n] - S2[a2, SP[a1, a3], SP[a4, a5], 
     a6, n] + S2[a2, SP[a1, a5], a3, SP[a4, a6], n] - 
    S2[a2, SP[a1, a5], a6, SP[a3, a4], n] - S2[a2, SP[a1, a5], SP[a3, a4], 
     a6, n] + S2[a2, SP[a1, a5], SP[a4, a6], a3, n] - 
    S2[SP[a1, a2], a3, a4, SP[a5, a6], n] + S2[SP[a1, a2], a3, a5, 
     SP[a4, a6], n] - S2[SP[a1, a2], a3, a6, SP[a4, a5], n] - 
    S2[SP[a1, a2], a3, SP[a4, a5], a6, n] - S2[SP[a1, a2], a4, a3, 
     SP[a5, a6], n] + S2[SP[a1, a2], a4, a6, SP[a3, a5], n] + 
    S2[SP[a1, a2], a4, SP[a3, a5], a6, n] - S2[SP[a1, a2], a4, SP[a5, a6], 
     a3, n] + S2[SP[a1, a2], a5, a3, SP[a4, a6], n] - 
    S2[SP[a1, a2], a5, a6, SP[a3, a4], n] - S2[SP[a1, a2], a5, SP[a3, a4], 
     a6, n] + S2[SP[a1, a2], a5, SP[a4, a6], a3, n] - 
    S2[SP[a1, a2], a6, a3, SP[a4, a5], n] + S2[SP[a1, a2], a6, a4, 
     SP[a3, a5], n] - S2[SP[a1, a2], a6, a5, SP[a3, a4], n] - 
    S2[SP[a1, a2], a6, SP[a4, a5], a3, n] - S2[SP[a1, a2], SP[a4, a5], a3, 
     a6, n] - S2[SP[a1, a2], SP[a4, a5], a6, a3, n] + 
    S2[a1, a2, a3, a4, SP[a5, a6], n] - S2[a1, a2, a3, a5, SP[a4, a6], n] + 
    S2[a1, a2, a3, a6, SP[a4, a5], n] + S2[a1, a2, a3, SP[a4, a5], a6, n] + 
    S2[a1, a2, a4, a3, SP[a5, a6], n] - S2[a1, a2, a4, a6, SP[a3, a5], n] - 
    S2[a1, a2, a4, SP[a3, a5], a6, n] + S2[a1, a2, a4, SP[a5, a6], a3, n] - 
    S2[a1, a2, a5, a3, SP[a4, a6], n] + S2[a1, a2, a5, a6, SP[a3, a4], n] + 
    S2[a1, a2, a5, SP[a3, a4], a6, n] - S2[a1, a2, a5, SP[a4, a6], a3, n] + 
    S2[a1, a2, a6, a3, SP[a4, a5], n] - S2[a1, a2, a6, a4, SP[a3, a5], n] + 
    S2[a1, a2, a6, a5, SP[a3, a4], n] + S2[a1, a2, a6, SP[a4, a5], a3, n] + 
    S2[a1, a2, SP[a4, a5], a3, a6, n] + S2[a1, a2, SP[a4, a5], a6, a3, n] + 
    S2[a1, a4, a2, a3, SP[a5, a6], n] - S2[a1, a4, a2, a6, SP[a3, a5], n] - 
    S2[a1, a4, a2, SP[a3, a5], a6, n] + S2[a1, a4, a2, SP[a5, a6], a3, n] + 
    S2[a6, n]*S2[a1, a4, a5, a2, a3, n] - S2[a1, a4, a6, a2, SP[a3, a5], n] - 
    S2[a1, a4, a6, SP[a2, a5], a3, n] - S2[a1, a4, SP[a2, a5], a3, a6, n] - 
    S2[a1, a4, SP[a2, a5], a6, a3, n] + S2[a1, a4, SP[a5, a6], a2, a3, n] + 
    S2[a1, a6, a2, a3, SP[a4, a5], n] - S2[a1, a6, a2, a4, SP[a3, a5], n] + 
    S2[a1, a6, a2, a5, SP[a3, a4], n] + S2[a1, a6, a2, SP[a4, a5], a3, n] - 
    S2[a1, a6, a4, a2, SP[a3, a5], n] - S2[a1, a6, a4, SP[a2, a5], a3, n] + 
    S2[a1, SP[a4, a6], a5, a2, a3, n] + S2[a2, a1, a3, a4, SP[a5, a6], n] - 
    S2[a2, a1, a3, a5, SP[a4, a6], n] + S2[a2, a1, a3, a6, SP[a4, a5], n] + 
    S2[a2, a1, a3, SP[a4, a5], a6, n] + S2[a2, a1, a4, a3, SP[a5, a6], n] - 
    S2[a2, a1, a4, a6, SP[a3, a5], n] - S2[a2, a1, a4, SP[a3, a5], a6, n] + 
    S2[a2, a1, a4, SP[a5, a6], a3, n] - S2[a2, a1, a5, a3, SP[a4, a6], n] + 
    S2[a2, a1, a5, a6, SP[a3, a4], n] + S2[a2, a1, a5, SP[a3, a4], a6, n] - 
    S2[a2, a1, a5, SP[a4, a6], a3, n] + S2[a2, a1, a6, a3, SP[a4, a5], n] - 
    S2[a2, a1, a6, a4, SP[a3, a5], n] + S2[a2, a1, a6, a5, SP[a3, a4], n] + 
    S2[a2, a1, a6, SP[a4, a5], a3, n] + S2[a2, a1, SP[a4, a5], a3, a6, n] + 
    S2[a2, a1, SP[a4, a5], a6, a3, n] + S2[a2, a3, a1, a4, SP[a5, a6], n] - 
    S2[a2, a3, a1, a5, SP[a4, a6], n] + S2[a2, a3, a1, a6, SP[a4, a5], n] + 
    S2[a2, a3, a1, SP[a4, a5], a6, n] - S2[a2, a3, a5, a1, SP[a4, a6], n] - 
    S2[a2, a3, a5, SP[a1, a4], a6, n] - S2[a2, a5, a1, a3, SP[a4, a6], n] + 
    S2[a2, a5, a1, a6, SP[a3, a4], n] + S2[a2, a5, a1, SP[a3, a4], a6, n] - 
    S2[a2, a5, a1, SP[a4, a6], a3, n] - S2[a2, a5, a3, a1, SP[a4, a6], n] - 
    S2[a2, a5, a3, SP[a1, a4], a6, n] + S2[a3, n]*S2[a2, a5, a4, a1, a6, n] - 
    S2[a2, a5, SP[a1, a4], a3, a6, n] - S2[a2, a5, SP[a1, a4], a6, a3, n] + 
    S2[a2, a5, SP[a3, a4], a1, a6, n] + S2[a2, SP[a3, a5], a4, a1, a6, n] + 
    S2[SP[a1, a6], a4, a5, a2, a3, n] + S2[SP[a2, a3], a5, a4, a1, a6, n] - 
    S2[a6, a1, a4, a5, a2, a3, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a3_, a2_, a5_, a4_, a6_, a1_, n_] :> 
  -(S2[a1, a6, a4, n]*S2[a2, a3, a5, n]) - S2[a1, a6, a4, n]*
     S2[a2, a5, a3, n] - S2[SP[a1, a2], SP[a3, a6], SP[a4, a5], n] - 
    S2[SP[a1, a2], SP[a5, a6], SP[a3, a4], n] + S2[a1, a2, SP[a3, a6], 
     SP[a4, a5], n] + S2[a1, a2, SP[a5, a6], SP[a3, a4], n] + 
    S2[a2, a3, n]*S2[a1, a6, a4, a5, n] - S2[a1, a6, SP[a2, a4], SP[a3, a5], 
     n] + S2[a1, SP[a2, a6], a3, SP[a4, a5], n] - S2[a1, SP[a2, a6], a4, 
     SP[a3, a5], n] + S2[a1, SP[a2, a6], a5, SP[a3, a4], n] + 
    S2[a1, SP[a2, a6], SP[a4, a5], a3, n] + S2[a2, a1, SP[a3, a6], 
     SP[a4, a5], n] + S2[a2, a1, SP[a5, a6], SP[a3, a4], n] + 
    S2[a1, a6, n]*S2[a2, a3, a5, a4, n] - S2[a2, a3, SP[a1, a5], SP[a4, a6], 
     n] + S2[a1, a6, n]*S2[a2, a5, a3, a4, n] + 
    S2[a1, a6, n]*S2[a2, a5, a4, a3, n] - S2[a2, a5, SP[a1, a3], SP[a4, a6], 
     n] - S2[a2, a5, SP[a1, a4], SP[a3, a6], n] - S2[a2, SP[a1, a3], a5, 
     SP[a4, a6], n] + S2[a2, SP[a1, a3], a6, SP[a4, a5], n] - 
    S2[a2, SP[a1, a5], a3, SP[a4, a6], n] - S2[a2, SP[a1, a5], a4, 
     SP[a3, a6], n] + S2[a2, SP[a1, a5], a6, SP[a3, a4], n] - 
    S2[a2, SP[a1, a5], SP[a4, a6], a3, n] - S2[SP[a1, a2], a3, a5, 
     SP[a4, a6], n] + S2[SP[a1, a2], a3, a6, SP[a4, a5], n] - 
    S2[SP[a1, a2], a5, a3, SP[a4, a6], n] - S2[SP[a1, a2], a5, a4, 
     SP[a3, a6], n] + S2[SP[a1, a2], a5, a6, SP[a3, a4], n] - 
    S2[SP[a1, a2], a5, SP[a4, a6], a3, n] + S2[SP[a1, a2], a6, a3, 
     SP[a4, a5], n] - S2[SP[a1, a2], a6, a4, SP[a3, a5], n] + 
    S2[SP[a1, a2], a6, a5, SP[a3, a4], n] + S2[SP[a1, a2], a6, SP[a4, a5], 
     a3, n] + S2[a1, a2, a3, a5, SP[a4, a6], n] - 
    S2[a1, a2, a3, a6, SP[a4, a5], n] + S2[a1, a2, a5, a3, SP[a4, a6], n] + 
    S2[a1, a2, a5, a4, SP[a3, a6], n] - S2[a1, a2, a5, a6, SP[a3, a4], n] + 
    S2[a1, a2, a5, SP[a4, a6], a3, n] - S2[a1, a2, a6, a3, SP[a4, a5], n] + 
    S2[a1, a2, a6, a4, SP[a3, a5], n] - S2[a1, a2, a6, a5, SP[a3, a4], n] - 
    S2[a1, a2, a6, SP[a4, a5], a3, n] - S2[a2, n]*S2[a1, a3, a5, a4, a6, n] - 
    S2[a1, a3, a5, a4, SP[a2, a6], n] - S2[a1, a3, a5, SP[a2, a4], a6, n] - 
    S2[a1, a3, SP[a2, a5], a4, a6, n] + S2[a3, n]*S2[a1, a5, a2, a4, a6, n] + 
    S2[a1, a5, a2, a4, SP[a3, a6], n] + S2[a1, a5, a2, SP[a3, a4], a6, n] - 
    S2[a2, n]*S2[a1, a5, a3, a4, a6, n] - S2[a1, a5, a3, a4, SP[a2, a6], n] - 
    S2[a1, a5, a3, SP[a2, a4], a6, n] + S2[a3, n]*S2[a1, a5, a4, a2, a6, n] + 
    S2[a1, a5, a4, a2, SP[a3, a6], n] - S2[a2, n]*S2[a1, a5, a4, a3, a6, n] - 
    S2[a1, a5, a4, a3, SP[a2, a6], n] + S2[a3, n]*S2[a1, a5, a4, a6, a2, n] - 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] - S2[a1, a5, a4, SP[a2, a6], a3, n] + 
    S2[a1, a5, a4, SP[a3, a6], a2, n] - S2[a1, a5, SP[a2, a4], a3, a6, n] - 
    S2[a1, a5, SP[a2, a4], a6, a3, n] + S2[a1, a5, SP[a3, a4], a2, a6, n] + 
    S2[a1, a5, SP[a3, a4], a6, a2, n] - S2[a1, a6, a2, a3, SP[a4, a5], n] + 
    S2[a1, a6, a2, a4, SP[a3, a5], n] - S2[a1, a6, a2, a5, SP[a3, a4], n] - 
    S2[a1, a6, a2, SP[a4, a5], a3, n] + S2[a1, a6, a4, a2, SP[a3, a5], n] + 
    S2[a1, a6, a4, SP[a2, a5], a3, n] - S2[a1, SP[a2, a3], a5, a4, a6, n] - 
    S2[a1, SP[a2, a5], a3, a4, a6, n] - S2[a1, SP[a2, a5], a4, a3, a6, n] - 
    S2[a1, SP[a2, a5], a4, a6, a3, n] + S2[a1, SP[a3, a5], a2, a4, a6, n] + 
    S2[a1, SP[a3, a5], a4, a2, a6, n] + S2[a1, SP[a3, a5], a4, a6, a2, n] + 
    S2[a2, a1, a3, a5, SP[a4, a6], n] - S2[a2, a1, a3, a6, SP[a4, a5], n] + 
    S2[a2, a1, a5, a3, SP[a4, a6], n] + S2[a2, a1, a5, a4, SP[a3, a6], n] - 
    S2[a2, a1, a5, a6, SP[a3, a4], n] + S2[a2, a1, a5, SP[a4, a6], a3, n] - 
    S2[a2, a1, a6, a3, SP[a4, a5], n] + S2[a2, a1, a6, a4, SP[a3, a5], n] - 
    S2[a2, a1, a6, a5, SP[a3, a4], n] - S2[a2, a1, a6, SP[a4, a5], a3, n] + 
    S2[a2, a3, a1, a5, SP[a4, a6], n] - S2[a2, a3, a1, a6, SP[a4, a5], n] + 
    S2[a2, a3, a5, a1, SP[a4, a6], n] + S2[a2, a3, a5, SP[a1, a4], a6, n] + 
    S2[a2, a3, SP[a1, a5], a4, a6, n] + S2[a2, a5, a1, a3, SP[a4, a6], n] - 
    S2[a3, n]*S2[a2, a5, a1, a4, a6, n] - S2[a2, a5, a1, a6, SP[a3, a4], n] - 
    S2[a2, a5, a1, SP[a3, a4], a6, n] + S2[a2, a5, a1, SP[a4, a6], a3, n] + 
    S2[a2, a5, a3, a1, SP[a4, a6], n] + S2[a2, a5, a3, SP[a1, a4], a6, n] - 
    S2[a3, n]*S2[a2, a5, a4, a1, a6, n] + S2[a2, a5, SP[a1, a4], a3, a6, n] + 
    S2[a2, a5, SP[a1, a4], a6, a3, n] - S2[a2, a5, SP[a3, a4], a1, a6, n] + 
    S2[a2, SP[a1, a3], a5, a4, a6, n] + S2[a2, SP[a1, a5], a3, a4, a6, n] + 
    S2[a2, SP[a1, a5], a4, a3, a6, n] + S2[a2, SP[a1, a5], a4, a6, a3, n] - 
    S2[a2, SP[a3, a5], a1, a4, a6, n] - S2[a2, SP[a3, a5], a4, a1, a6, n] - 
    S2[a2, n]*S2[a3, a1, a5, a4, a6, n] - S2[a3, a1, a5, a4, SP[a2, a6], n] - 
    S2[a3, a1, a5, SP[a2, a4], a6, n] - S2[a3, a1, SP[a2, a5], a4, a6, n] + 
    S2[a1, n]*S2[a3, a2, a5, a4, a6, n] + S2[a3, a2, a5, a4, SP[a1, a6], n] + 
    S2[a3, a2, a5, SP[a1, a4], a6, n] + S2[a3, a2, SP[a1, a5], a4, a6, n] - 
    S2[a1, n]*S2[a6, a4, a5, a2, a3, n] - S2[a6, a4, a5, a2, SP[a1, a3], n] - 
    S2[a6, a4, a5, SP[a1, a2], a3, n] - S2[a6, a4, SP[a1, a5], a2, a3, n] - 
    S2[a6, SP[a1, a4], a5, a2, a3, n] + S2[SP[a1, a3], a2, a5, a4, a6, n] + 
    S2[SP[a1, a3], a5, a2, a4, a6, n] + S2[SP[a1, a3], a5, a4, a2, a6, n] + 
    S2[SP[a1, a3], a5, a4, a6, a2, n] - S2[SP[a1, a6], a4, a5, a2, a3, n] - 
    S2[SP[a2, a3], a1, a5, a4, a6, n] - S2[SP[a2, a3], a5, a1, a4, a6, n] - 
    S2[SP[a2, a3], a5, a4, a1, a6, n] + S2[a6, a1, a4, a5, a2, a3, n] + 
    S2[a6, a4, a1, a5, a2, a3, n] + S2[a6, a4, a5, a1, a2, a3, n] + 
    S2[a6, a4, a5, a2, a1, a3, n] + S2[a6, a4, a5, a2, a3, a1, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a3_, a2_, a5_, a6_, a1_, a4_, n_] :> 
  S2[a1, a4, a6, n]*S2[a2, a3, a5, n] + S2[a1, a6, a4, n]*S2[a2, a3, a5, n] + 
    S2[a1, a4, a6, n]*S2[a2, a5, a3, n] + S2[a1, a6, a4, n]*
     S2[a2, a5, a3, n] + S2[SP[a1, a2], SP[a3, a4], SP[a5, a6], n] + 
    S2[SP[a1, a2], SP[a3, a6], SP[a4, a5], n] + S2[SP[a1, a2], SP[a4, a5], 
     SP[a3, a6], n] + S2[SP[a1, a2], SP[a5, a6], SP[a3, a4], n] - 
    S2[a1, a2, SP[a3, a4], SP[a5, a6], n] - S2[a1, a2, SP[a3, a6], 
     SP[a4, a5], n] - S2[a1, a2, SP[a4, a5], SP[a3, a6], n] - 
    S2[a1, a2, SP[a5, a6], SP[a3, a4], n] - S2[a2, a3, n]*
     S2[a1, a4, a6, a5, n] + S2[a1, a4, SP[a2, a6], SP[a3, a5], n] - 
    S2[a2, a3, n]*S2[a1, a6, a4, a5, n] - S2[a2, a3, n]*
     S2[a1, a6, a5, a4, n] + S2[a1, a6, SP[a2, a4], SP[a3, a5], n] + 
    S2[a1, a6, SP[a2, a5], SP[a3, a4], n] - S2[a1, SP[a2, a4], a3, 
     SP[a5, a6], n] - S2[a1, SP[a2, a4], a5, SP[a3, a6], n] + 
    S2[a1, SP[a2, a4], a6, SP[a3, a5], n] - S2[a1, SP[a2, a4], SP[a5, a6], 
     a3, n] - S2[a1, SP[a2, a6], a3, SP[a4, a5], n] + 
    S2[a1, SP[a2, a6], a4, SP[a3, a5], n] + S2[a1, SP[a2, a6], SP[a3, a5], 
     a4, n] - S2[a1, SP[a2, a6], SP[a4, a5], a3, n] - 
    S2[a2, a1, SP[a3, a4], SP[a5, a6], n] - S2[a2, a1, SP[a3, a6], 
     SP[a4, a5], n] - S2[a2, a1, SP[a4, a5], SP[a3, a6], n] - 
    S2[a2, a1, SP[a5, a6], SP[a3, a4], n] + S2[a1, a4, n]*
     S2[a2, a3, a6, a5, n] - S2[a2, a3, SP[a1, a6], SP[a4, a5], n] + 
    S2[a1, a4, n]*S2[a2, a6, a3, a5, n] + S2[a1, a4, n]*
     S2[a2, a6, a5, a3, n] - S2[a2, a6, SP[a1, a3], SP[a4, a5], n] - 
    S2[a2, a6, SP[a1, a5], SP[a3, a4], n] - S2[a2, SP[a1, a3], a4, 
     SP[a5, a6], n] - 2*S2[a2, SP[a1, a3], a6, SP[a4, a5], n] - 
    S2[a2, SP[a1, a3], SP[a4, a5], a6, n] - S2[a2, SP[a1, a3], SP[a4, a6], 
     a5, n] - S2[a2, SP[a1, a3], SP[a5, a6], a4, n] - 
    S2[a2, SP[a1, a5], a4, SP[a3, a6], n] - S2[a2, SP[a1, a5], a6, 
     SP[a3, a4], n] - S2[a2, SP[a1, a5], SP[a3, a4], a6, n] - 
    S2[a2, SP[a1, a5], SP[a3, a6], a4, n] - S2[a2, SP[a1, a6], a3, 
     SP[a4, a5], n] - S2[a2, SP[a1, a6], a5, SP[a3, a4], n] - 
    S2[a2, SP[a1, a6], SP[a3, a4], a5, n] - S2[a2, SP[a1, a6], SP[a4, a5], 
     a3, n] - S2[a1, a4, n]*S2[a5, a6, a2, a3, n] + 
    S2[a5, a6, SP[a1, a2], SP[a3, a4], n] + S2[a5, SP[a1, a6], a2, 
     SP[a3, a4], n] + S2[a5, SP[a1, a6], SP[a2, a4], a3, n] - 
    S2[SP[a1, a2], a3, a4, SP[a5, a6], n] - 
    2*S2[SP[a1, a2], a3, a6, SP[a4, a5], n] - S2[SP[a1, a2], a3, SP[a4, a5], 
     a6, n] - S2[SP[a1, a2], a3, SP[a4, a6], a5, n] - 
    S2[SP[a1, a2], a3, SP[a5, a6], a4, n] - S2[SP[a1, a2], a4, a3, 
     SP[a5, a6], n] - S2[SP[a1, a2], a4, a5, SP[a3, a6], n] + 
    S2[SP[a1, a2], a4, a6, SP[a3, a5], n] - S2[SP[a1, a2], a4, SP[a5, a6], 
     a3, n] - S2[SP[a1, a2], a5, a4, SP[a3, a6], n] - 
    S2[SP[a1, a2], a5, a6, SP[a3, a4], n] - S2[SP[a1, a2], a5, SP[a3, a4], 
     a6, n] - S2[SP[a1, a2], a5, SP[a3, a6], a4, n] - 
    2*S2[SP[a1, a2], a6, a3, SP[a4, a5], n] + S2[SP[a1, a2], a6, a4, 
     SP[a3, a5], n] - S2[SP[a1, a2], a6, a5, SP[a3, a4], n] - 
    S2[SP[a1, a2], a6, SP[a3, a4], a5, n] + S2[SP[a1, a2], a6, SP[a3, a5], 
     a4, n] - 2*S2[SP[a1, a2], a6, SP[a4, a5], a3, n] - 
    S2[SP[a1, a2], SP[a3, a4], a5, a6, n] - S2[SP[a1, a2], SP[a3, a4], a6, 
     a5, n] - S2[SP[a1, a2], SP[a4, a5], a3, a6, n] - 
    S2[SP[a1, a2], SP[a4, a5], a6, a3, n] - S2[SP[a1, a2], SP[a4, a6], a3, 
     a5, n] - S2[SP[a1, a2], SP[a4, a6], a5, a3, n] - 
    S2[SP[a1, a2], SP[a5, a6], a3, a4, n] - S2[SP[a1, a2], SP[a5, a6], a4, 
     a3, n] + S2[SP[a1, a5], a6, a2, SP[a3, a4], n] + 
    S2[SP[a1, a5], a6, SP[a2, a4], a3, n] + S2[SP[a1, a5], SP[a4, a6], a2, 
     a3, n] + S2[a1, a2, a3, a4, SP[a5, a6], n] + 
    2*S2[a1, a2, a3, a6, SP[a4, a5], n] + S2[a1, a2, a3, SP[a4, a5], a6, n] + 
    S2[a1, a2, a3, SP[a4, a6], a5, n] + S2[a1, a2, a3, SP[a5, a6], a4, n] + 
    S2[a1, a2, a4, a3, SP[a5, a6], n] + S2[a1, a2, a4, a5, SP[a3, a6], n] - 
    S2[a1, a2, a4, a6, SP[a3, a5], n] + S2[a1, a2, a4, SP[a5, a6], a3, n] + 
    S2[a1, a2, a5, a4, SP[a3, a6], n] + S2[a1, a2, a5, a6, SP[a3, a4], n] + 
    S2[a1, a2, a5, SP[a3, a4], a6, n] + S2[a1, a2, a5, SP[a3, a6], a4, n] + 
    2*S2[a1, a2, a6, a3, SP[a4, a5], n] - S2[a1, a2, a6, a4, SP[a3, a5], n] + 
    S2[a1, a2, a6, a5, SP[a3, a4], n] + S2[a1, a2, a6, SP[a3, a4], a5, n] - 
    S2[a1, a2, a6, SP[a3, a5], a4, n] + 2*S2[a1, a2, a6, SP[a4, a5], a3, n] + 
    S2[a1, a2, SP[a3, a4], a5, a6, n] + S2[a1, a2, SP[a3, a4], a6, a5, n] + 
    S2[a1, a2, SP[a4, a5], a3, a6, n] + S2[a1, a2, SP[a4, a5], a6, a3, n] + 
    S2[a1, a2, SP[a4, a6], a3, a5, n] + S2[a1, a2, SP[a4, a6], a5, a3, n] + 
    S2[a1, a2, SP[a5, a6], a3, a4, n] + S2[a1, a2, SP[a5, a6], a4, a3, n] + 
    S2[a6, n]*S2[a1, a3, a2, a4, a5, n] + S2[a1, a3, a2, a4, SP[a5, a6], n] + 
    S2[a6, n]*S2[a1, a3, a2, a5, a4, n] + S2[a1, a3, a2, a5, SP[a4, a6], n] + 
    S2[a1, a3, a2, SP[a4, a6], a5, n] + S2[a1, a3, a2, SP[a5, a6], a4, n] + 
    S2[a6, n]*S2[a1, a3, a4, a2, a5, n] + S2[a1, a3, a4, a2, SP[a5, a6], n] + 
    S2[a6, n]*S2[a1, a3, a4, a5, a2, n] - 
    S2[a2, n]*S2[a1, a3, a4, a5, a6, n] - 
    S2[a2, n]*S2[a1, a3, a4, a6, a5, n] - S2[a1, a3, a4, a6, SP[a2, a5], n] - 
    S2[a1, a3, a4, SP[a2, a5], a6, n] + S2[a1, a3, a4, SP[a5, a6], a2, n] + 
    S2[a6, n]*S2[a1, a3, a5, a2, a4, n] + S2[a1, a3, a5, a2, SP[a4, a6], n] + 
    S2[a6, n]*S2[a1, a3, a5, a4, a2, n] - 
    S2[a2, n]*S2[a1, a3, a5, a4, a6, n] - 
    S2[a2, n]*S2[a1, a3, a5, a6, a4, n] - S2[a1, a3, a5, a6, SP[a2, a4], n] - 
    S2[a1, a3, a5, SP[a2, a4], a6, n] + S2[a1, a3, a5, SP[a4, a6], a2, n] - 
    S2[a2, n]*S2[a1, a3, a6, a4, a5, n] - S2[a1, a3, a6, a4, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a3, a6, a5, a4, n] - S2[a1, a3, a6, a5, SP[a2, a4], n] - 
    S2[a1, a3, a6, SP[a2, a4], a5, n] - S2[a1, a3, a6, SP[a2, a5], a4, n] - 
    S2[a1, a3, SP[a2, a4], a5, a6, n] - S2[a1, a3, SP[a2, a4], a6, a5, n] - 
    S2[a1, a3, SP[a2, a5], a4, a6, n] - S2[a1, a3, SP[a2, a5], a6, a4, n] + 
    S2[a1, a3, SP[a4, a6], a2, a5, n] + S2[a1, a3, SP[a4, a6], a5, a2, n] + 
    S2[a1, a3, SP[a5, a6], a2, a4, n] + S2[a1, a3, SP[a5, a6], a4, a2, n] + 
    S2[a1, a4, a2, a3, SP[a5, a6], n] + S2[a1, a4, a2, a5, SP[a3, a6], n] - 
    S2[a1, a4, a2, a6, SP[a3, a5], n] + S2[a1, a4, a2, SP[a5, a6], a3, n] + 
    S2[a6, n]*S2[a1, a4, a3, a2, a5, n] + S2[a1, a4, a3, a2, SP[a5, a6], n] + 
    S2[a6, n]*S2[a1, a4, a3, a5, a2, n] - 
    S2[a2, n]*S2[a1, a4, a3, a5, a6, n] - 
    S2[a2, n]*S2[a1, a4, a3, a6, a5, n] - S2[a1, a4, a3, a6, SP[a2, a5], n] - 
    S2[a1, a4, a3, SP[a2, a5], a6, n] + S2[a1, a4, a3, SP[a5, a6], a2, n] + 
    S2[a6, n]*S2[a1, a4, a5, a2, a3, n] + S2[a1, a4, a5, a2, SP[a3, a6], n] + 
    S2[a6, n]*S2[a1, a4, a5, a3, a2, n] - 
    S2[a2, n]*S2[a1, a4, a5, a3, a6, n] - 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] - S2[a1, a4, a5, a6, SP[a2, a3], n] - 
    S2[a1, a4, a5, SP[a2, a3], a6, n] + S2[a1, a4, a5, SP[a3, a6], a2, n] + 
    S2[a5, n]*S2[a1, a4, a6, a2, a3, n] - 
    S2[a2, n]*S2[a1, a4, a6, a3, a5, n] - S2[a1, a4, a6, a3, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a4, a6, a5, a3, n] - S2[a1, a4, a6, a5, SP[a2, a3], n] - 
    S2[a1, a4, a6, SP[a2, a3], a5, n] - S2[a1, a4, a6, SP[a2, a5], a3, n] - 
    S2[a1, a4, SP[a2, a3], a5, a6, n] - S2[a1, a4, SP[a2, a3], a6, a5, n] - 
    S2[a1, a4, SP[a2, a5], a3, a6, n] - S2[a1, a4, SP[a2, a5], a6, a3, n] - 
    S2[a1, a4, SP[a2, a6], a3, a5, n] - S2[a1, a4, SP[a2, a6], a5, a3, n] + 
    S2[a1, a4, SP[a3, a6], a2, a5, n] + S2[a1, a4, SP[a3, a6], a5, a2, n] + 
    2*S2[a1, a4, SP[a5, a6], a2, a3, n] + S2[a1, a4, SP[a5, a6], a3, a2, n] + 
    S2[a6, n]*S2[a1, a5, a2, a3, a4, n] + S2[a1, a5, a2, a3, SP[a4, a6], n] + 
    S2[a6, n]*S2[a1, a5, a2, a4, a3, n] + S2[a1, a5, a2, a4, SP[a3, a6], n] + 
    S2[a1, a5, a2, SP[a3, a6], a4, n] + S2[a1, a5, a2, SP[a4, a6], a3, n] + 
    S2[a6, n]*S2[a1, a5, a3, a2, a4, n] + S2[a1, a5, a3, a2, SP[a4, a6], n] + 
    S2[a6, n]*S2[a1, a5, a3, a4, a2, n] - 
    S2[a2, n]*S2[a1, a5, a3, a4, a6, n] - 
    S2[a2, n]*S2[a1, a5, a3, a6, a4, n] - S2[a1, a5, a3, a6, SP[a2, a4], n] - 
    S2[a1, a5, a3, SP[a2, a4], a6, n] + S2[a1, a5, a3, SP[a4, a6], a2, n] + 
    S2[a6, n]*S2[a1, a5, a4, a2, a3, n] + S2[a1, a5, a4, a2, SP[a3, a6], n] + 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] - 
    S2[a2, n]*S2[a1, a5, a4, a3, a6, n] - 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] - S2[a1, a5, a4, a6, SP[a2, a3], n] - 
    S2[a1, a5, a4, SP[a2, a3], a6, n] + S2[a1, a5, a4, SP[a3, a6], a2, n] - 
    S2[a1, a5, a6, a2, SP[a3, a4], n] - S2[a2, n]*S2[a1, a5, a6, a3, a4, n] - 
    S2[a1, a5, a6, a3, SP[a2, a4], n] - S2[a2, n]*S2[a1, a5, a6, a4, a3, n] - 
    S2[a1, a5, a6, a4, SP[a2, a3], n] - S2[a1, a5, a6, SP[a2, a3], a4, n] - 
    2*S2[a1, a5, a6, SP[a2, a4], a3, n] - S2[a1, a5, SP[a2, a3], a4, a6, n] - 
    S2[a1, a5, SP[a2, a3], a6, a4, n] - S2[a1, a5, SP[a2, a4], a3, a6, n] - 
    S2[a1, a5, SP[a2, a4], a6, a3, n] + S2[a1, a5, SP[a3, a6], a2, a4, n] + 
    S2[a1, a5, SP[a3, a6], a4, a2, n] + S2[a1, a5, SP[a4, a6], a3, a2, n] + 
    S2[a5, n]*S2[a1, a6, a2, a3, a4, n] + 
    2*S2[a1, a6, a2, a3, SP[a4, a5], n] + 
    S2[a5, n]*S2[a1, a6, a2, a4, a3, n] + 
    2*S2[a1, a6, a2, SP[a4, a5], a3, n] - 
    S2[a2, n]*S2[a1, a6, a3, a4, a5, n] - S2[a1, a6, a3, a4, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a6, a3, a5, a4, n] - S2[a1, a6, a3, a5, SP[a2, a4], n] - 
    S2[a1, a6, a3, SP[a2, a4], a5, n] - S2[a1, a6, a3, SP[a2, a5], a4, n] + 
    S2[a5, n]*S2[a1, a6, a4, a2, a3, n] - 
    S2[a2, n]*S2[a1, a6, a4, a3, a5, n] - S2[a1, a6, a4, a3, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a6, a4, a5, a3, n] - S2[a1, a6, a4, a5, SP[a2, a3], n] - 
    S2[a1, a6, a4, SP[a2, a3], a5, n] - S2[a1, a6, a4, SP[a2, a5], a3, n] - 
    S2[a1, a6, a5, a2, SP[a3, a4], n] - S2[a2, n]*S2[a1, a6, a5, a3, a4, n] - 
    S2[a1, a6, a5, a3, SP[a2, a4], n] - S2[a2, n]*S2[a1, a6, a5, a4, a3, n] - 
    S2[a1, a6, a5, a4, SP[a2, a3], n] - S2[a1, a6, a5, SP[a2, a3], a4, n] - 
    2*S2[a1, a6, a5, SP[a2, a4], a3, n] - S2[a1, a6, SP[a2, a3], a4, a5, n] - 
    S2[a1, a6, SP[a2, a3], a5, a4, n] - S2[a1, a6, SP[a2, a4], a3, a5, n] - 
    S2[a1, a6, SP[a2, a4], a5, a3, n] - S2[a1, a6, SP[a2, a5], a3, a4, n] - 
    S2[a1, a6, SP[a2, a5], a4, a3, n] + S2[a1, a6, SP[a4, a5], a2, a3, n] - 
    S2[a1, SP[a2, a3], a4, a5, a6, n] - S2[a1, SP[a2, a3], a4, a6, a5, n] - 
    S2[a1, SP[a2, a3], a5, a4, a6, n] - S2[a1, SP[a2, a3], a5, a6, a4, n] - 
    S2[a1, SP[a2, a3], a6, a4, a5, n] - S2[a1, SP[a2, a3], a6, a5, a4, n] - 
    S2[a1, SP[a2, a5], a3, a4, a6, n] - S2[a1, SP[a2, a5], a3, a6, a4, n] - 
    S2[a1, SP[a2, a5], a4, a3, a6, n] - S2[a1, SP[a2, a5], a4, a6, a3, n] - 
    S2[a1, SP[a2, a5], a6, a3, a4, n] - S2[a1, SP[a2, a5], a6, a4, a3, n] - 
    S2[a1, SP[a2, a6], a3, a4, a5, n] - S2[a1, SP[a2, a6], a3, a5, a4, n] - 
    S2[a1, SP[a2, a6], a4, a3, a5, n] - S2[a1, SP[a2, a6], a4, a5, a3, n] - 
    S2[a1, SP[a2, a6], a5, a3, a4, n] - S2[a1, SP[a2, a6], a5, a4, a3, n] + 
    S2[a1, SP[a3, a6], a2, a4, a5, n] + S2[a1, SP[a3, a6], a2, a5, a4, n] + 
    S2[a1, SP[a3, a6], a4, a2, a5, n] + S2[a1, SP[a3, a6], a4, a5, a2, n] + 
    S2[a1, SP[a3, a6], a5, a2, a4, n] + S2[a1, SP[a3, a6], a5, a4, a2, n] + 
    S2[a1, SP[a4, a6], a3, a2, a5, n] + S2[a1, SP[a4, a6], a3, a5, a2, n] + 
    S2[a1, SP[a4, a6], a5, a2, a3, n] + S2[a1, SP[a4, a6], a5, a3, a2, n] + 
    2*S2[a1, SP[a5, a6], a2, a3, a4, n] + 
    2*S2[a1, SP[a5, a6], a2, a4, a3, n] + S2[a1, SP[a5, a6], a3, a2, a4, n] + 
    S2[a1, SP[a5, a6], a3, a4, a2, n] + 2*S2[a1, SP[a5, a6], a4, a2, a3, n] + 
    S2[a1, SP[a5, a6], a4, a3, a2, n] + S2[a2, a1, a3, a4, SP[a5, a6], n] + 
    2*S2[a2, a1, a3, a6, SP[a4, a5], n] + S2[a2, a1, a3, SP[a4, a5], a6, n] + 
    S2[a2, a1, a3, SP[a4, a6], a5, n] + S2[a2, a1, a3, SP[a5, a6], a4, n] + 
    S2[a2, a1, a4, a3, SP[a5, a6], n] + S2[a2, a1, a4, a5, SP[a3, a6], n] - 
    S2[a2, a1, a4, a6, SP[a3, a5], n] + S2[a2, a1, a4, SP[a5, a6], a3, n] + 
    S2[a2, a1, a5, a4, SP[a3, a6], n] + S2[a2, a1, a5, a6, SP[a3, a4], n] + 
    S2[a2, a1, a5, SP[a3, a4], a6, n] + S2[a2, a1, a5, SP[a3, a6], a4, n] + 
    2*S2[a2, a1, a6, a3, SP[a4, a5], n] - S2[a2, a1, a6, a4, SP[a3, a5], n] + 
    S2[a2, a1, a6, a5, SP[a3, a4], n] + S2[a2, a1, a6, SP[a3, a4], a5, n] - 
    S2[a2, a1, a6, SP[a3, a5], a4, n] + 2*S2[a2, a1, a6, SP[a4, a5], a3, n] + 
    S2[a2, a1, SP[a3, a4], a5, a6, n] + S2[a2, a1, SP[a3, a4], a6, a5, n] + 
    S2[a2, a1, SP[a4, a5], a3, a6, n] + S2[a2, a1, SP[a4, a5], a6, a3, n] + 
    S2[a2, a1, SP[a4, a6], a3, a5, n] + S2[a2, a1, SP[a4, a6], a5, a3, n] + 
    S2[a2, a1, SP[a5, a6], a3, a4, n] + S2[a2, a1, SP[a5, a6], a4, a3, n] - 
    S2[a6, n]*S2[a2, a3, a1, a4, a5, n] - 
    S2[a6, n]*S2[a2, a3, a1, a5, a4, n] - S2[a2, a3, a1, a5, SP[a4, a6], n] + 
    2*S2[a2, a3, a1, a6, SP[a4, a5], n] + S2[a2, a3, a1, SP[a4, a5], a6, n] - 
    S2[a6, n]*S2[a2, a3, a5, a1, a4, n] - S2[a2, a3, a5, a1, SP[a4, a6], n] - 
    S2[a2, a3, a5, SP[a1, a6], a4, n] + S2[a2, a3, a6, a1, SP[a4, a5], n] + 
    S2[a2, a3, a6, SP[a1, a5], a4, n] + S2[a2, a3, SP[a1, a5], a4, a6, n] + 
    S2[a2, a3, SP[a1, a5], a6, a4, n] - S2[a2, a3, SP[a5, a6], a1, a4, n] - 
    S2[a6, n]*S2[a2, a5, a1, a3, a4, n] - S2[a2, a5, a1, a3, SP[a4, a6], n] - 
    S2[a6, n]*S2[a2, a5, a1, a4, a3, n] + S2[a2, a5, a1, a6, SP[a3, a4], n] + 
    S2[a2, a5, a1, SP[a3, a4], a6, n] - S2[a2, a5, a1, SP[a4, a6], a3, n] - 
    S2[a6, n]*S2[a2, a5, a3, a1, a4, n] - S2[a2, a5, a3, a1, SP[a4, a6], n] - 
    S2[a2, a5, a3, SP[a1, a6], a4, n] + S2[a3, n]*S2[a2, a5, a6, a1, a4, n] + 
    S2[a2, a5, a6, a1, SP[a3, a4], n] + S2[a2, a5, a6, SP[a1, a3], a4, n] + 
    S2[a2, a5, SP[a1, a3], a4, a6, n] + S2[a2, a5, SP[a1, a3], a6, a4, n] - 
    S2[a2, a5, SP[a1, a6], a3, a4, n] - S2[a2, a5, SP[a1, a6], a4, a3, n] - 
    S2[a5, n]*S2[a2, a6, a1, a3, a4, n] - 
    S2[a5, n]*S2[a2, a6, a1, a4, a3, n] - S2[a2, a6, a1, a4, SP[a3, a5], n] + 
    S2[a2, a6, a1, a5, SP[a3, a4], n] + S2[a2, a6, a1, SP[a3, a4], a5, n] - 
    S2[a2, a6, a1, SP[a3, a5], a4, n] + S2[a2, a6, a3, a1, SP[a4, a5], n] + 
    S2[a2, a6, a3, SP[a1, a5], a4, n] + S2[a2, a6, a5, a1, SP[a3, a4], n] + 
    S2[a2, a6, a5, SP[a1, a3], a4, n] + S2[a2, a6, SP[a1, a3], a4, a5, n] + 
    S2[a2, a6, SP[a1, a3], a5, a4, n] + S2[a2, SP[a1, a3], a4, a5, a6, n] + 
    S2[a2, SP[a1, a3], a4, a6, a5, n] + S2[a2, SP[a1, a3], a5, a4, a6, n] + 
    S2[a2, SP[a1, a3], a5, a6, a4, n] + S2[a2, SP[a1, a3], a6, a4, a5, n] + 
    S2[a2, SP[a1, a3], a6, a5, a4, n] + S2[a2, SP[a1, a5], a3, a4, a6, n] + 
    S2[a2, SP[a1, a5], a3, a6, a4, n] + S2[a2, SP[a1, a5], a4, a3, a6, n] + 
    S2[a2, SP[a1, a5], a4, a6, a3, n] + S2[a2, SP[a1, a5], a6, a3, a4, n] + 
    S2[a2, SP[a1, a5], a6, a4, a3, n] + S2[a2, SP[a1, a6], a3, a4, a5, n] + 
    S2[a2, SP[a1, a6], a3, a5, a4, n] + S2[a2, SP[a1, a6], a4, a3, a5, n] + 
    S2[a2, SP[a1, a6], a4, a5, a3, n] + S2[a2, SP[a1, a6], a5, a3, a4, n] + 
    S2[a2, SP[a1, a6], a5, a4, a3, n] + S2[a2, SP[a3, a5], a6, a1, a4, n] - 
    S2[a2, SP[a3, a6], a1, a4, a5, n] - S2[a2, SP[a3, a6], a1, a5, a4, n] - 
    S2[a2, SP[a3, a6], a5, a1, a4, n] - 2*S2[a2, SP[a5, a6], a1, a3, a4, n] - 
    2*S2[a2, SP[a5, a6], a1, a4, a3, n] - S2[a2, SP[a5, a6], a3, a1, a4, n] - 
    S2[a5, a1, a6, a2, SP[a3, a4], n] - S2[a5, a1, a6, SP[a2, a4], a3, n] - 
    S2[a5, a1, SP[a4, a6], a2, a3, n] - S2[a5, a6, a1, a2, SP[a3, a4], n] + 
    S2[a2, n]*S2[a5, a6, a1, a3, a4, n] + S2[a5, a6, a1, a3, SP[a2, a4], n] + 
    S2[a2, n]*S2[a5, a6, a1, a4, a3, n] + S2[a5, a6, a1, a4, SP[a2, a3], n] + 
    S2[a5, a6, a1, SP[a2, a3], a4, n] - S2[a5, a6, a2, a1, SP[a3, a4], n] - 
    S2[a5, a6, a2, SP[a1, a3], a4, n] - S2[a5, SP[a1, a6], a2, a3, a4, n] - 
    S2[a5, SP[a1, a6], a2, a4, a3, n] - S2[a5, SP[a1, a6], a4, a2, a3, n] + 
    S2[a5, SP[a2, a6], a1, a3, a4, n] + S2[a5, SP[a2, a6], a1, a4, a3, n] - 
    S2[a5, n]*S2[a6, a1, a3, a2, a4, n] - S2[a6, a1, a3, a2, SP[a4, a5], n] - 
    S2[a5, n]*S2[a6, a1, a3, a4, a2, n] - S2[a6, a1, a3, a4, SP[a2, a5], n] - 
    S2[a6, a1, a3, SP[a2, a5], a4, n] - S2[a6, a1, a3, SP[a4, a5], a2, n] - 
    S2[a5, n]*S2[a6, a1, a4, a3, a2, n] - S2[a6, a1, a4, a3, SP[a2, a5], n] - 
    S2[a6, a1, a4, SP[a3, a5], a2, n] - S2[a6, a1, SP[a3, a5], a2, a4, n] - 
    S2[a6, a1, SP[a3, a5], a4, a2, n] - S2[a6, a1, SP[a4, a5], a3, a2, n] + 
    S2[a5, n]*S2[a6, a2, a3, a1, a4, n] + S2[a6, a2, a3, a1, SP[a4, a5], n] + 
    S2[a6, a2, a3, SP[a1, a5], a4, n] + S2[a6, a2, SP[a3, a5], a1, a4, n] + 
    S2[a2, n]*S2[a6, a5, a1, a3, a4, n] + S2[a6, a5, a1, a3, SP[a2, a4], n] + 
    S2[a2, n]*S2[a6, a5, a1, a4, a3, n] + S2[a6, a5, a1, a4, SP[a2, a3], n] + 
    S2[a6, a5, a1, SP[a2, a3], a4, n] + S2[a6, a5, a1, SP[a2, a4], a3, n] + 
    S2[a6, a5, SP[a1, a2], a3, a4, n] + S2[a6, a5, SP[a1, a2], a4, a3, n] - 
    S2[a6, SP[a1, a5], a3, a2, a4, n] - S2[a6, SP[a1, a5], a3, a4, a2, n] - 
    S2[a6, SP[a1, a5], a4, a3, a2, n] + S2[a6, SP[a2, a5], a1, a3, a4, n] + 
    S2[a6, SP[a2, a5], a1, a4, a3, n] + S2[a6, SP[a2, a5], a3, a1, a4, n] + 
    S2[SP[a1, a6], a3, a2, a4, a5, n] + S2[SP[a1, a6], a3, a2, a5, a4, n] + 
    S2[SP[a1, a6], a3, a4, a2, a5, n] + S2[SP[a1, a6], a3, a4, a5, a2, n] + 
    S2[SP[a1, a6], a3, a5, a2, a4, n] + S2[SP[a1, a6], a3, a5, a4, a2, n] + 
    S2[SP[a1, a6], a4, a3, a2, a5, n] + S2[SP[a1, a6], a4, a3, a5, a2, n] + 
    S2[SP[a1, a6], a4, a5, a2, a3, n] + S2[SP[a1, a6], a4, a5, a3, a2, n] + 
    S2[SP[a1, a6], a5, a2, a3, a4, n] + S2[SP[a1, a6], a5, a2, a4, a3, n] + 
    S2[SP[a1, a6], a5, a3, a2, a4, n] + S2[SP[a1, a6], a5, a3, a4, a2, n] + 
    S2[SP[a1, a6], a5, a4, a2, a3, n] + S2[SP[a1, a6], a5, a4, a3, a2, n] + 
    S2[SP[a2, a3], a5, a6, a1, a4, n] - S2[SP[a2, a6], a3, a1, a4, a5, n] - 
    S2[SP[a2, a6], a3, a1, a5, a4, n] - S2[SP[a2, a6], a3, a5, a1, a4, n] - 
    S2[SP[a2, a6], a5, a3, a1, a4, n] - S2[SP[a5, a6], a1, a3, a2, a4, n] - 
    S2[SP[a5, a6], a1, a3, a4, a2, n] - S2[SP[a5, a6], a1, a4, a3, a2, n] + 
    S2[SP[a5, a6], a2, a3, a1, a4, n] - S2[a6, a1, a4, a5, a2, a3, n] - 
    S2[a6, a1, a5, a2, a3, a4, n] - S2[a6, a1, a5, a2, a4, a3, n] - 
    S2[a6, a1, a5, a4, a2, a3, n] - S2[a6, a5, a1, a2, a3, a4, n] - 
    S2[a6, a5, a1, a2, a4, a3, n] - S2[a6, a5, a1, a4, a2, a3, n] - 
    S2[a6, a5, a2, a1, a3, a4, n] - S2[a6, a5, a2, a1, a4, a3, n] - 
    S2[a6, a5, a2, a3, a1, a4, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a3_, a2_, a5_, a6_, a4_, a1_, n_] :> 
  -(S2[a1, a4, a6, n]*S2[a2, a3, a5, n]) - S2[a1, a4, a6, n]*
     S2[a2, a5, a3, n] - S2[SP[a1, a2], SP[a3, a4], SP[a5, a6], n] - 
    S2[SP[a1, a2], SP[a4, a5], SP[a3, a6], n] + S2[a1, a2, SP[a3, a4], 
     SP[a5, a6], n] + S2[a1, a2, SP[a4, a5], SP[a3, a6], n] + 
    S2[a2, a3, n]*S2[a1, a4, a6, a5, n] - S2[a1, a4, SP[a2, a6], SP[a3, a5], 
     n] + S2[a1, SP[a2, a4], a3, SP[a5, a6], n] + S2[a1, SP[a2, a4], a5, 
     SP[a3, a6], n] - S2[a1, SP[a2, a4], a6, SP[a3, a5], n] + 
    S2[a1, SP[a2, a4], SP[a5, a6], a3, n] + S2[a2, a1, SP[a3, a4], 
     SP[a5, a6], n] + S2[a2, a1, SP[a4, a5], SP[a3, a6], n] - 
    S2[a1, a4, n]*S2[a2, a3, a6, a5, n] + S2[a2, a3, SP[a1, a6], SP[a4, a5], 
     n] - S2[a1, a4, n]*S2[a2, a6, a3, a5, n] - 
    S2[a1, a4, n]*S2[a2, a6, a5, a3, n] + S2[a2, a6, SP[a1, a3], SP[a4, a5], 
     n] + S2[a2, a6, SP[a1, a5], SP[a3, a4], n] + S2[a2, SP[a1, a3], a4, 
     SP[a5, a6], n] + S2[a2, SP[a1, a3], a6, SP[a4, a5], n] + 
    S2[a2, SP[a1, a3], SP[a4, a5], a6, n] + S2[a2, SP[a1, a3], SP[a4, a6], 
     a5, n] + S2[a2, SP[a1, a5], a4, SP[a3, a6], n] + 
    S2[a2, SP[a1, a5], SP[a3, a4], a6, n] + S2[a2, SP[a1, a6], a3, 
     SP[a4, a5], n] + S2[a2, SP[a1, a6], a5, SP[a3, a4], n] + 
    S2[a2, SP[a1, a6], SP[a3, a4], a5, n] + S2[a2, SP[a1, a6], SP[a4, a5], 
     a3, n] + S2[a1, a4, n]*S2[a5, a6, a2, a3, n] - 
    S2[a5, a6, SP[a1, a2], SP[a3, a4], n] - S2[a5, SP[a1, a6], a2, 
     SP[a3, a4], n] - S2[a5, SP[a1, a6], SP[a2, a4], a3, n] + 
    S2[SP[a1, a2], a3, a4, SP[a5, a6], n] + S2[SP[a1, a2], a3, a6, 
     SP[a4, a5], n] + S2[SP[a1, a2], a3, SP[a4, a5], a6, n] + 
    S2[SP[a1, a2], a3, SP[a4, a6], a5, n] + S2[SP[a1, a2], a4, a3, 
     SP[a5, a6], n] + S2[SP[a1, a2], a4, a5, SP[a3, a6], n] - 
    S2[SP[a1, a2], a4, a6, SP[a3, a5], n] + S2[SP[a1, a2], a4, SP[a5, a6], 
     a3, n] + S2[SP[a1, a2], a5, a4, SP[a3, a6], n] + 
    S2[SP[a1, a2], a5, SP[a3, a4], a6, n] + S2[SP[a1, a2], a6, a3, 
     SP[a4, a5], n] + S2[SP[a1, a2], a6, a5, SP[a3, a4], n] + 
    S2[SP[a1, a2], a6, SP[a3, a4], a5, n] + S2[SP[a1, a2], a6, SP[a4, a5], 
     a3, n] + S2[SP[a1, a2], SP[a3, a4], a5, a6, n] + 
    S2[SP[a1, a2], SP[a3, a4], a6, a5, n] + S2[SP[a1, a2], SP[a4, a5], a3, 
     a6, n] + S2[SP[a1, a2], SP[a4, a5], a6, a3, n] + 
    S2[SP[a1, a2], SP[a4, a6], a3, a5, n] + S2[SP[a1, a2], SP[a4, a6], a5, 
     a3, n] - S2[SP[a1, a5], a6, a2, SP[a3, a4], n] - 
    S2[SP[a1, a5], a6, SP[a2, a4], a3, n] - S2[SP[a1, a5], SP[a4, a6], a2, 
     a3, n] - S2[a1, a2, a3, a4, SP[a5, a6], n] - 
    S2[a1, a2, a3, a6, SP[a4, a5], n] - S2[a1, a2, a3, SP[a4, a5], a6, n] - 
    S2[a1, a2, a3, SP[a4, a6], a5, n] - S2[a1, a2, a4, a3, SP[a5, a6], n] - 
    S2[a1, a2, a4, a5, SP[a3, a6], n] + S2[a1, a2, a4, a6, SP[a3, a5], n] - 
    S2[a1, a2, a4, SP[a5, a6], a3, n] - S2[a1, a2, a5, a4, SP[a3, a6], n] - 
    S2[a1, a2, a5, SP[a3, a4], a6, n] - S2[a1, a2, a6, a3, SP[a4, a5], n] - 
    S2[a1, a2, a6, a5, SP[a3, a4], n] - S2[a1, a2, a6, SP[a3, a4], a5, n] - 
    S2[a1, a2, a6, SP[a4, a5], a3, n] - S2[a1, a2, SP[a3, a4], a5, a6, n] - 
    S2[a1, a2, SP[a3, a4], a6, a5, n] - S2[a1, a2, SP[a4, a5], a3, a6, n] - 
    S2[a1, a2, SP[a4, a5], a6, a3, n] - S2[a1, a2, SP[a4, a6], a3, a5, n] - 
    S2[a1, a2, SP[a4, a6], a5, a3, n] - S2[a6, n]*S2[a1, a3, a2, a4, a5, n] - 
    S2[a1, a3, a2, a4, SP[a5, a6], n] - S2[a6, n]*S2[a1, a3, a2, a5, a4, n] - 
    S2[a1, a3, a2, a5, SP[a4, a6], n] - S2[a1, a3, a2, SP[a4, a6], a5, n] - 
    S2[a1, a3, a2, SP[a5, a6], a4, n] - S2[a6, n]*S2[a1, a3, a4, a2, a5, n] - 
    S2[a1, a3, a4, a2, SP[a5, a6], n] - S2[a6, n]*S2[a1, a3, a4, a5, a2, n] + 
    S2[a2, n]*S2[a1, a3, a4, a5, a6, n] + 
    S2[a2, n]*S2[a1, a3, a4, a6, a5, n] + S2[a1, a3, a4, a6, SP[a2, a5], n] + 
    S2[a1, a3, a4, SP[a2, a5], a6, n] - S2[a1, a3, a4, SP[a5, a6], a2, n] - 
    S2[a6, n]*S2[a1, a3, a5, a2, a4, n] - S2[a1, a3, a5, a2, SP[a4, a6], n] - 
    S2[a6, n]*S2[a1, a3, a5, a4, a2, n] + 
    S2[a2, n]*S2[a1, a3, a5, a4, a6, n] + S2[a1, a3, a5, SP[a2, a4], a6, n] - 
    S2[a1, a3, a5, SP[a2, a6], a4, n] - S2[a1, a3, a5, SP[a4, a6], a2, n] + 
    S2[a2, n]*S2[a1, a3, a6, a4, a5, n] + S2[a1, a3, a6, a4, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a3, a6, a5, a4, n] + S2[a1, a3, a6, a5, SP[a2, a4], n] + 
    S2[a1, a3, a6, SP[a2, a4], a5, n] + S2[a1, a3, a6, SP[a2, a5], a4, n] + 
    S2[a1, a3, SP[a2, a4], a5, a6, n] + S2[a1, a3, SP[a2, a4], a6, a5, n] + 
    S2[a1, a3, SP[a2, a5], a4, a6, n] - S2[a1, a3, SP[a4, a6], a2, a5, n] - 
    S2[a1, a3, SP[a4, a6], a5, a2, n] - S2[a1, a3, SP[a5, a6], a2, a4, n] - 
    S2[a1, a3, SP[a5, a6], a4, a2, n] - S2[a1, a4, a2, a3, SP[a5, a6], n] - 
    S2[a1, a4, a2, a5, SP[a3, a6], n] + S2[a1, a4, a2, a6, SP[a3, a5], n] - 
    S2[a1, a4, a2, SP[a5, a6], a3, n] - S2[a6, n]*S2[a1, a4, a3, a2, a5, n] - 
    S2[a1, a4, a3, a2, SP[a5, a6], n] - S2[a6, n]*S2[a1, a4, a3, a5, a2, n] + 
    S2[a2, n]*S2[a1, a4, a3, a5, a6, n] + 
    S2[a2, n]*S2[a1, a4, a3, a6, a5, n] + S2[a1, a4, a3, a6, SP[a2, a5], n] + 
    S2[a1, a4, a3, SP[a2, a5], a6, n] - S2[a1, a4, a3, SP[a5, a6], a2, n] - 
    S2[a6, n]*S2[a1, a4, a5, a2, a3, n] - S2[a1, a4, a5, a2, SP[a3, a6], n] - 
    S2[a6, n]*S2[a1, a4, a5, a3, a2, n] + 
    S2[a2, n]*S2[a1, a4, a5, a3, a6, n] + 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] + S2[a1, a4, a5, a6, SP[a2, a3], n] + 
    S2[a1, a4, a5, SP[a2, a3], a6, n] - S2[a1, a4, a5, SP[a3, a6], a2, n] - 
    S2[a5, n]*S2[a1, a4, a6, a2, a3, n] + 
    S2[a2, n]*S2[a1, a4, a6, a3, a5, n] + S2[a1, a4, a6, a3, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a4, a6, a5, a3, n] + S2[a1, a4, a6, a5, SP[a2, a3], n] + 
    S2[a1, a4, a6, SP[a2, a3], a5, n] + S2[a1, a4, a6, SP[a2, a5], a3, n] + 
    S2[a1, a4, SP[a2, a3], a5, a6, n] + S2[a1, a4, SP[a2, a3], a6, a5, n] + 
    S2[a1, a4, SP[a2, a5], a3, a6, n] + S2[a1, a4, SP[a2, a5], a6, a3, n] + 
    S2[a1, a4, SP[a2, a6], a3, a5, n] + S2[a1, a4, SP[a2, a6], a5, a3, n] - 
    S2[a1, a4, SP[a3, a6], a2, a5, n] - S2[a1, a4, SP[a3, a6], a5, a2, n] - 
    2*S2[a1, a4, SP[a5, a6], a2, a3, n] - S2[a1, a4, SP[a5, a6], a3, a2, n] - 
    S2[a6, n]*S2[a1, a5, a2, a3, a4, n] - S2[a1, a5, a2, a3, SP[a4, a6], n] - 
    S2[a6, n]*S2[a1, a5, a2, a4, a3, n] - S2[a1, a5, a2, a4, SP[a3, a6], n] + 
    S2[a3, n]*S2[a1, a5, a2, a6, a4, n] + S2[a1, a5, a2, a6, SP[a3, a4], n] - 
    S2[a1, a5, a2, SP[a4, a6], a3, n] - S2[a6, n]*S2[a1, a5, a3, a2, a4, n] - 
    S2[a1, a5, a3, a2, SP[a4, a6], n] - S2[a6, n]*S2[a1, a5, a3, a4, a2, n] + 
    S2[a2, n]*S2[a1, a5, a3, a4, a6, n] + S2[a1, a5, a3, SP[a2, a4], a6, n] - 
    S2[a1, a5, a3, SP[a2, a6], a4, n] - S2[a1, a5, a3, SP[a4, a6], a2, n] - 
    S2[a6, n]*S2[a1, a5, a4, a2, a3, n] - S2[a1, a5, a4, a2, SP[a3, a6], n] - 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] + 
    S2[a2, n]*S2[a1, a5, a4, a3, a6, n] + 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] + S2[a1, a5, a4, a6, SP[a2, a3], n] + 
    S2[a1, a5, a4, SP[a2, a3], a6, n] - S2[a1, a5, a4, SP[a3, a6], a2, n] + 
    S2[a3, n]*S2[a1, a5, a6, a2, a4, n] + 
    2*S2[a1, a5, a6, a2, SP[a3, a4], n] + 
    S2[a3, n]*S2[a1, a5, a6, a4, a2, n] + S2[a1, a5, a6, a4, SP[a2, a3], n] + 
    S2[a1, a5, a6, SP[a2, a3], a4, n] + S2[a1, a5, a6, SP[a2, a4], a3, n] + 
    S2[a1, a5, a6, SP[a3, a4], a2, n] + S2[a1, a5, SP[a2, a3], a4, a6, n] + 
    S2[a1, a5, SP[a2, a3], a6, a4, n] + S2[a1, a5, SP[a2, a4], a3, a6, n] + 
    S2[a1, a5, SP[a2, a4], a6, a3, n] - S2[a1, a5, SP[a2, a6], a3, a4, n] - 
    S2[a1, a5, SP[a2, a6], a4, a3, n] - S2[a1, a5, SP[a4, a6], a3, a2, n] - 
    S2[a5, n]*S2[a1, a6, a2, a3, a4, n] - S2[a1, a6, a2, a3, SP[a4, a5], n] - 
    S2[a5, n]*S2[a1, a6, a2, a4, a3, n] - S2[a1, a6, a2, a4, SP[a3, a5], n] - 
    S2[a1, a6, a2, SP[a3, a5], a4, n] - S2[a1, a6, a2, SP[a4, a5], a3, n] + 
    S2[a2, n]*S2[a1, a6, a3, a4, a5, n] + S2[a1, a6, a3, a4, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a6, a3, a5, a4, n] + S2[a1, a6, a3, a5, SP[a2, a4], n] + 
    S2[a1, a6, a3, SP[a2, a4], a5, n] + S2[a1, a6, a3, SP[a2, a5], a4, n] - 
    S2[a5, n]*S2[a1, a6, a4, a2, a3, n] - S2[a1, a6, a4, a2, SP[a3, a5], n] + 
    S2[a2, n]*S2[a1, a6, a4, a3, a5, n] + S2[a1, a6, a4, a3, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a6, a4, a5, a3, n] + S2[a1, a6, a4, a5, SP[a2, a3], n] + 
    S2[a1, a6, a4, SP[a2, a3], a5, n] + S2[a2, n]*S2[a1, a6, a5, a3, a4, n] + 
    S2[a1, a6, a5, a3, SP[a2, a4], n] + S2[a2, n]*S2[a1, a6, a5, a4, a3, n] + 
    S2[a1, a6, a5, a4, SP[a2, a3], n] + S2[a1, a6, a5, SP[a2, a3], a4, n] + 
    S2[a1, a6, a5, SP[a2, a4], a3, n] + S2[a1, a6, SP[a2, a3], a4, a5, n] + 
    S2[a1, a6, SP[a2, a3], a5, a4, n] + S2[a1, a6, SP[a2, a4], a3, a5, n] + 
    S2[a1, a6, SP[a2, a4], a5, a3, n] - S2[a1, a6, SP[a4, a5], a2, a3, n] + 
    S2[a1, SP[a2, a3], a4, a5, a6, n] + S2[a1, SP[a2, a3], a4, a6, a5, n] + 
    S2[a1, SP[a2, a3], a5, a4, a6, n] + S2[a1, SP[a2, a3], a6, a4, a5, n] + 
    S2[a1, SP[a2, a3], a6, a5, a4, n] + S2[a1, SP[a2, a5], a3, a4, a6, n] + 
    S2[a1, SP[a2, a5], a4, a3, a6, n] + S2[a1, SP[a2, a5], a4, a6, a3, n] + 
    S2[a1, SP[a2, a6], a3, a4, a5, n] + S2[a1, SP[a2, a6], a3, a5, a4, n] + 
    S2[a1, SP[a2, a6], a4, a3, a5, n] + S2[a1, SP[a2, a6], a4, a5, a3, n] + 
    S2[a1, SP[a2, a6], a5, a3, a4, n] + S2[a1, SP[a2, a6], a5, a4, a3, n] + 
    S2[a1, SP[a3, a5], a2, a6, a4, n] + S2[a1, SP[a3, a5], a6, a2, a4, n] + 
    S2[a1, SP[a3, a5], a6, a4, a2, n] - S2[a1, SP[a3, a6], a2, a4, a5, n] - 
    S2[a1, SP[a3, a6], a2, a5, a4, n] - S2[a1, SP[a3, a6], a4, a2, a5, n] - 
    S2[a1, SP[a3, a6], a4, a5, a2, n] - S2[a1, SP[a3, a6], a5, a2, a4, n] - 
    S2[a1, SP[a3, a6], a5, a4, a2, n] - S2[a1, SP[a4, a6], a3, a2, a5, n] - 
    S2[a1, SP[a4, a6], a3, a5, a2, n] - S2[a1, SP[a4, a6], a5, a2, a3, n] - 
    S2[a1, SP[a4, a6], a5, a3, a2, n] - 2*S2[a1, SP[a5, a6], a2, a3, a4, n] - 
    2*S2[a1, SP[a5, a6], a2, a4, a3, n] - S2[a1, SP[a5, a6], a3, a2, a4, n] - 
    S2[a1, SP[a5, a6], a3, a4, a2, n] - 2*S2[a1, SP[a5, a6], a4, a2, a3, n] - 
    S2[a1, SP[a5, a6], a4, a3, a2, n] - S2[a2, a1, a3, a4, SP[a5, a6], n] - 
    S2[a2, a1, a3, a6, SP[a4, a5], n] - S2[a2, a1, a3, SP[a4, a5], a6, n] - 
    S2[a2, a1, a3, SP[a4, a6], a5, n] - S2[a2, a1, a4, a3, SP[a5, a6], n] - 
    S2[a2, a1, a4, a5, SP[a3, a6], n] + S2[a2, a1, a4, a6, SP[a3, a5], n] - 
    S2[a2, a1, a4, SP[a5, a6], a3, n] - S2[a2, a1, a5, a4, SP[a3, a6], n] - 
    S2[a2, a1, a5, SP[a3, a4], a6, n] - S2[a2, a1, a6, a3, SP[a4, a5], n] - 
    S2[a2, a1, a6, a5, SP[a3, a4], n] - S2[a2, a1, a6, SP[a3, a4], a5, n] - 
    S2[a2, a1, a6, SP[a4, a5], a3, n] - S2[a2, a1, SP[a3, a4], a5, a6, n] - 
    S2[a2, a1, SP[a3, a4], a6, a5, n] - S2[a2, a1, SP[a4, a5], a3, a6, n] - 
    S2[a2, a1, SP[a4, a5], a6, a3, n] - S2[a2, a1, SP[a4, a6], a3, a5, n] - 
    S2[a2, a1, SP[a4, a6], a5, a3, n] + S2[a6, n]*S2[a2, a3, a1, a4, a5, n] + 
    S2[a6, n]*S2[a2, a3, a1, a5, a4, n] + S2[a2, a3, a1, a5, SP[a4, a6], n] - 
    S2[a2, a3, a1, a6, SP[a4, a5], n] - S2[a2, a3, a1, SP[a4, a5], a6, n] + 
    S2[a2, a3, a1, SP[a5, a6], a4, n] + S2[a6, n]*S2[a2, a3, a5, a1, a4, n] + 
    S2[a2, a3, a5, a1, SP[a4, a6], n] + S2[a2, a3, a5, SP[a1, a6], a4, n] - 
    S2[a2, a3, a6, a1, SP[a4, a5], n] - S2[a2, a3, a6, SP[a1, a5], a4, n] - 
    S2[a2, a3, SP[a1, a5], a4, a6, n] + S2[a2, a3, SP[a5, a6], a1, a4, n] + 
    S2[a6, n]*S2[a2, a5, a1, a3, a4, n] + S2[a2, a5, a1, a3, SP[a4, a6], n] + 
    S2[a6, n]*S2[a2, a5, a1, a4, a3, n] - 
    S2[a3, n]*S2[a2, a5, a1, a6, a4, n] - S2[a2, a5, a1, a6, SP[a3, a4], n] - 
    S2[a2, a5, a1, SP[a3, a4], a6, n] + S2[a2, a5, a1, SP[a4, a6], a3, n] + 
    S2[a6, n]*S2[a2, a5, a3, a1, a4, n] + S2[a2, a5, a3, a1, SP[a4, a6], n] + 
    S2[a2, a5, a3, SP[a1, a6], a4, n] - S2[a3, n]*S2[a2, a5, a6, a1, a4, n] - 
    S2[a2, a5, a6, a1, SP[a3, a4], n] - S2[a2, a5, a6, SP[a1, a3], a4, n] - 
    S2[a2, a5, SP[a1, a3], a4, a6, n] - S2[a2, a5, SP[a1, a3], a6, a4, n] + 
    S2[a2, a5, SP[a1, a6], a3, a4, n] + S2[a2, a5, SP[a1, a6], a4, a3, n] + 
    S2[a5, n]*S2[a2, a6, a1, a3, a4, n] + 
    S2[a5, n]*S2[a2, a6, a1, a4, a3, n] + S2[a2, a6, a1, a4, SP[a3, a5], n] - 
    S2[a2, a6, a1, a5, SP[a3, a4], n] - S2[a2, a6, a1, SP[a3, a4], a5, n] + 
    S2[a2, a6, a1, SP[a3, a5], a4, n] - S2[a2, a6, a3, a1, SP[a4, a5], n] - 
    S2[a2, a6, a3, SP[a1, a5], a4, n] - S2[a2, a6, a5, a1, SP[a3, a4], n] - 
    S2[a2, a6, a5, SP[a1, a3], a4, n] - S2[a2, a6, SP[a1, a3], a4, a5, n] - 
    S2[a2, a6, SP[a1, a3], a5, a4, n] - S2[a2, SP[a1, a3], a4, a5, a6, n] - 
    S2[a2, SP[a1, a3], a4, a6, a5, n] - S2[a2, SP[a1, a3], a5, a4, a6, n] - 
    S2[a2, SP[a1, a3], a6, a4, a5, n] - S2[a2, SP[a1, a3], a6, a5, a4, n] - 
    S2[a2, SP[a1, a5], a3, a4, a6, n] - S2[a2, SP[a1, a5], a4, a3, a6, n] - 
    S2[a2, SP[a1, a5], a4, a6, a3, n] - S2[a2, SP[a1, a6], a3, a4, a5, n] - 
    S2[a2, SP[a1, a6], a3, a5, a4, n] - S2[a2, SP[a1, a6], a4, a3, a5, n] - 
    S2[a2, SP[a1, a6], a4, a5, a3, n] - S2[a2, SP[a1, a6], a5, a3, a4, n] - 
    S2[a2, SP[a1, a6], a5, a4, a3, n] - S2[a2, SP[a3, a5], a1, a6, a4, n] - 
    S2[a2, SP[a3, a5], a6, a1, a4, n] + S2[a2, SP[a3, a6], a1, a4, a5, n] + 
    S2[a2, SP[a3, a6], a1, a5, a4, n] + S2[a2, SP[a3, a6], a5, a1, a4, n] + 
    2*S2[a2, SP[a5, a6], a1, a3, a4, n] + 
    2*S2[a2, SP[a5, a6], a1, a4, a3, n] + S2[a2, SP[a5, a6], a3, a1, a4, n] - 
    S2[a2, n]*S2[a3, a1, a5, a6, a4, n] - S2[a3, a1, a5, a6, SP[a2, a4], n] - 
    S2[a3, a1, a5, SP[a2, a6], a4, n] - S2[a3, a1, SP[a2, a5], a6, a4, n] + 
    S2[a1, n]*S2[a3, a2, a5, a6, a4, n] + S2[a3, a2, a5, a6, SP[a1, a4], n] + 
    S2[a3, a2, a5, SP[a1, a6], a4, n] + S2[a3, a2, SP[a1, a5], a6, a4, n] + 
    S2[a5, a1, a6, a2, SP[a3, a4], n] + S2[a5, a1, a6, SP[a2, a4], a3, n] + 
    S2[a5, a1, SP[a4, a6], a2, a3, n] + S2[a5, a6, a1, a2, SP[a3, a4], n] - 
    S2[a2, n]*S2[a5, a6, a1, a3, a4, n] - S2[a5, a6, a1, a3, SP[a2, a4], n] - 
    S2[a2, n]*S2[a5, a6, a1, a4, a3, n] - S2[a5, a6, a1, a4, SP[a2, a3], n] - 
    S2[a5, a6, a1, SP[a2, a3], a4, n] + S2[a5, a6, a2, a1, SP[a3, a4], n] + 
    S2[a5, a6, a2, SP[a1, a3], a4, n] + S2[a5, SP[a1, a6], a2, a3, a4, n] + 
    S2[a5, SP[a1, a6], a2, a4, a3, n] + S2[a5, SP[a1, a6], a4, a2, a3, n] - 
    S2[a5, SP[a2, a6], a1, a3, a4, n] - S2[a5, SP[a2, a6], a1, a4, a3, n] + 
    S2[a5, n]*S2[a6, a1, a3, a2, a4, n] + S2[a6, a1, a3, a2, SP[a4, a5], n] + 
    S2[a5, n]*S2[a6, a1, a3, a4, a2, n] + S2[a6, a1, a3, a4, SP[a2, a5], n] + 
    S2[a6, a1, a3, SP[a2, a5], a4, n] + S2[a6, a1, a3, SP[a4, a5], a2, n] + 
    S2[a5, n]*S2[a6, a1, a4, a3, a2, n] + S2[a6, a1, a4, a3, SP[a2, a5], n] + 
    S2[a6, a1, a4, SP[a3, a5], a2, n] + S2[a6, a1, SP[a3, a5], a2, a4, n] + 
    S2[a6, a1, SP[a3, a5], a4, a2, n] + S2[a6, a1, SP[a4, a5], a3, a2, n] - 
    S2[a5, n]*S2[a6, a2, a3, a1, a4, n] - S2[a6, a2, a3, a1, SP[a4, a5], n] - 
    S2[a6, a2, a3, SP[a1, a5], a4, n] - S2[a6, a2, SP[a3, a5], a1, a4, n] + 
    S2[a1, n]*S2[a6, a4, a5, a2, a3, n] + S2[a6, a4, a5, a2, SP[a1, a3], n] + 
    S2[a6, a4, a5, SP[a1, a2], a3, n] + S2[a6, a4, SP[a1, a5], a2, a3, n] - 
    S2[a2, n]*S2[a6, a5, a1, a3, a4, n] - S2[a6, a5, a1, a3, SP[a2, a4], n] - 
    S2[a2, n]*S2[a6, a5, a1, a4, a3, n] - S2[a6, a5, a1, a4, SP[a2, a3], n] - 
    S2[a6, a5, a1, SP[a2, a3], a4, n] - S2[a6, a5, a1, SP[a2, a4], a3, n] + 
    S2[a1, n]*S2[a6, a5, a2, a3, a4, n] + S2[a6, a5, a2, a3, SP[a1, a4], n] + 
    S2[a1, n]*S2[a6, a5, a2, a4, a3, n] + S2[a6, a5, a2, a4, SP[a1, a3], n] + 
    S2[a6, a5, a2, SP[a1, a3], a4, n] + S2[a6, a5, a2, SP[a1, a4], a3, n] + 
    S2[a1, n]*S2[a6, a5, a4, a2, a3, n] + S2[a6, a5, a4, a2, SP[a1, a3], n] + 
    S2[a6, a5, a4, SP[a1, a2], a3, n] + S2[a6, a5, SP[a1, a4], a2, a3, n] + 
    S2[a6, SP[a1, a4], a5, a2, a3, n] + S2[a6, SP[a1, a5], a2, a3, a4, n] + 
    S2[a6, SP[a1, a5], a2, a4, a3, n] + S2[a6, SP[a1, a5], a3, a2, a4, n] + 
    S2[a6, SP[a1, a5], a3, a4, a2, n] + S2[a6, SP[a1, a5], a4, a2, a3, n] + 
    S2[a6, SP[a1, a5], a4, a3, a2, n] - S2[a6, SP[a2, a5], a1, a3, a4, n] - 
    S2[a6, SP[a2, a5], a1, a4, a3, n] - S2[a6, SP[a2, a5], a3, a1, a4, n] + 
    S2[SP[a1, a3], a2, a5, a6, a4, n] + S2[SP[a1, a3], a5, a2, a6, a4, n] + 
    S2[SP[a1, a3], a5, a6, a2, a4, n] + S2[SP[a1, a3], a5, a6, a4, a2, n] - 
    S2[SP[a1, a6], a3, a2, a4, a5, n] - S2[SP[a1, a6], a3, a2, a5, a4, n] - 
    S2[SP[a1, a6], a3, a4, a2, a5, n] - S2[SP[a1, a6], a3, a4, a5, a2, n] - 
    S2[SP[a1, a6], a3, a5, a2, a4, n] - S2[SP[a1, a6], a3, a5, a4, a2, n] - 
    S2[SP[a1, a6], a4, a3, a2, a5, n] - S2[SP[a1, a6], a4, a3, a5, a2, n] - 
    S2[SP[a1, a6], a4, a5, a3, a2, n] - S2[SP[a1, a6], a5, a3, a2, a4, n] - 
    S2[SP[a1, a6], a5, a3, a4, a2, n] - S2[SP[a1, a6], a5, a4, a3, a2, n] - 
    S2[SP[a2, a3], a1, a5, a6, a4, n] - S2[SP[a2, a3], a5, a1, a6, a4, n] - 
    S2[SP[a2, a3], a5, a6, a1, a4, n] + S2[SP[a2, a6], a3, a1, a4, a5, n] + 
    S2[SP[a2, a6], a3, a1, a5, a4, n] + S2[SP[a2, a6], a3, a5, a1, a4, n] + 
    S2[SP[a2, a6], a5, a3, a1, a4, n] + S2[SP[a5, a6], a1, a3, a2, a4, n] + 
    S2[SP[a5, a6], a1, a3, a4, a2, n] + S2[SP[a5, a6], a1, a4, a3, a2, n] - 
    S2[SP[a5, a6], a2, a3, a1, a4, n] - S2[a6, a4, a1, a5, a2, a3, n] - 
    S2[a6, a4, a5, a1, a2, a3, n] - S2[a6, a4, a5, a2, a1, a3, n] - 
    S2[a6, a4, a5, a2, a3, a1, n] - S2[a6, a5, a2, a3, a4, a1, n] - 
    S2[a6, a5, a2, a4, a1, a3, n] - S2[a6, a5, a2, a4, a3, a1, n] - 
    S2[a6, a5, a4, a1, a2, a3, n] - S2[a6, a5, a4, a2, a1, a3, n] - 
    S2[a6, a5, a4, a2, a3, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a3_, a2_, a6_, a1_, a4_, a5_, n_] :> 
  S2[a2, a3, n]*S2[a1, a4, a5, a6, n] + S2[a2, a3, n]*S2[a1, a4, a6, a5, n] - 
    S2[a1, a4, SP[a2, a5], SP[a3, a6], n] - S2[a1, a4, SP[a2, a6], 
     SP[a3, a5], n] + S2[a2, a3, n]*S2[a1, a6, a4, a5, n] - 
    S2[a1, a6, SP[a2, a4], SP[a3, a5], n] - S2[a1, SP[a2, a4], a5, 
     SP[a3, a6], n] - S2[a1, SP[a2, a4], a6, SP[a3, a5], n] - 
    S2[a1, SP[a2, a4], SP[a3, a5], a6, n] - S2[a1, SP[a2, a4], SP[a3, a6], 
     a5, n] - S2[a1, SP[a2, a6], a4, SP[a3, a5], n] - 
    S2[a1, SP[a2, a6], SP[a3, a4], a5, n] - S2[SP[a1, a2], a4, a5, 
     SP[a3, a6], n] - S2[SP[a1, a2], a4, a6, SP[a3, a5], n] - 
    S2[SP[a1, a2], a4, SP[a3, a5], a6, n] - S2[SP[a1, a2], a4, SP[a3, a6], 
     a5, n] - S2[SP[a1, a2], a6, a4, SP[a3, a5], n] - 
    S2[SP[a1, a2], a6, SP[a3, a4], a5, n] - S2[SP[a1, a2], SP[a3, a4], a5, 
     a6, n] - S2[SP[a1, a2], SP[a3, a4], a6, a5, n] - 
    S2[SP[a1, a2], SP[a3, a6], a4, a5, n] + S2[a1, a2, a4, a5, SP[a3, a6], 
     n] + S2[a1, a2, a4, a6, SP[a3, a5], n] + S2[a1, a2, a4, SP[a3, a5], a6, 
     n] + S2[a1, a2, a4, SP[a3, a6], a5, n] + S2[a1, a2, a6, a4, SP[a3, a5], 
     n] + S2[a1, a2, a6, SP[a3, a4], a5, n] + S2[a1, a2, SP[a3, a4], a5, a6, 
     n] + S2[a1, a2, SP[a3, a4], a6, a5, n] + S2[a1, a2, SP[a3, a6], a4, a5, 
     n] + S2[a6, n]*S2[a1, a3, a2, a4, a5, n] + S2[a1, a3, a2, a4, 
     SP[a5, a6], n] + S2[a1, a3, a2, SP[a4, a6], a5, n] + 
    S2[a6, n]*S2[a1, a3, a4, a2, a5, n] + S2[a1, a3, a4, a2, SP[a5, a6], n] + 
    S2[a6, n]*S2[a1, a3, a4, a5, a2, n] - 
    S2[a2, n]*S2[a1, a3, a4, a5, a6, n] - 
    S2[a2, n]*S2[a1, a3, a4, a6, a5, n] - S2[a1, a3, a4, a6, SP[a2, a5], n] - 
    S2[a1, a3, a4, SP[a2, a5], a6, n] + S2[a1, a3, a4, SP[a5, a6], a2, n] - 
    S2[a2, n]*S2[a1, a3, a6, a4, a5, n] - S2[a1, a3, a6, a4, SP[a2, a5], n] - 
    S2[a1, a3, a6, SP[a2, a4], a5, n] - S2[a1, a3, SP[a2, a4], a5, a6, n] - 
    S2[a1, a3, SP[a2, a4], a6, a5, n] + S2[a1, a3, SP[a4, a6], a2, a5, n] + 
    S2[a1, a3, SP[a4, a6], a5, a2, n] + S2[a1, a4, a2, a5, SP[a3, a6], n] + 
    S2[a1, a4, a2, a6, SP[a3, a5], n] + S2[a1, a4, a2, SP[a3, a5], a6, n] + 
    S2[a1, a4, a2, SP[a3, a6], a5, n] + S2[a6, n]*S2[a1, a4, a3, a2, a5, n] + 
    S2[a1, a4, a3, a2, SP[a5, a6], n] + S2[a6, n]*S2[a1, a4, a3, a5, a2, n] - 
    S2[a2, n]*S2[a1, a4, a3, a5, a6, n] - 
    S2[a2, n]*S2[a1, a4, a3, a6, a5, n] - S2[a1, a4, a3, a6, SP[a2, a5], n] - 
    S2[a1, a4, a3, SP[a2, a5], a6, n] + S2[a1, a4, a3, SP[a5, a6], a2, n] + 
    S2[a1, a4, a5, a2, SP[a3, a6], n] + S2[a6, n]*S2[a1, a4, a5, a3, a2, n] - 
    S2[a2, n]*S2[a1, a4, a5, a3, a6, n] - 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] - S2[a1, a4, a5, a6, SP[a2, a3], n] - 
    S2[a1, a4, a5, SP[a2, a3], a6, n] + S2[a1, a4, a5, SP[a3, a6], a2, n] + 
    S2[a1, a4, a6, a2, SP[a3, a5], n] - S2[a2, n]*S2[a1, a4, a6, a3, a5, n] - 
    S2[a1, a4, a6, a3, SP[a2, a5], n] - S2[a2, n]*S2[a1, a4, a6, a5, a3, n] - 
    S2[a1, a4, a6, a5, SP[a2, a3], n] - S2[a1, a4, a6, SP[a2, a3], a5, n] - 
    S2[a1, a4, SP[a2, a3], a5, a6, n] - S2[a1, a4, SP[a2, a3], a6, a5, n] + 
    S2[a1, a4, SP[a3, a6], a2, a5, n] + S2[a1, a4, SP[a3, a6], a5, a2, n] + 
    S2[a1, a4, SP[a5, a6], a3, a2, n] + S2[a1, a6, a2, a4, SP[a3, a5], n] + 
    S2[a1, a6, a2, SP[a3, a4], a5, n] - S2[a2, n]*S2[a1, a6, a3, a4, a5, n] - 
    S2[a1, a6, a3, a4, SP[a2, a5], n] - S2[a1, a6, a3, SP[a2, a4], a5, n] + 
    S2[a1, a6, a4, a2, SP[a3, a5], n] - S2[a2, n]*S2[a1, a6, a4, a3, a5, n] - 
    S2[a1, a6, a4, a3, SP[a2, a5], n] - S2[a2, n]*S2[a1, a6, a4, a5, a3, n] - 
    S2[a1, a6, a4, a5, SP[a2, a3], n] - S2[a1, a6, a4, SP[a2, a3], a5, n] - 
    S2[a1, a6, SP[a2, a3], a4, a5, n] - S2[a1, SP[a2, a3], a4, a5, a6, n] - 
    S2[a1, SP[a2, a3], a4, a6, a5, n] - S2[a1, SP[a2, a3], a6, a4, a5, n] + 
    S2[a1, SP[a3, a6], a2, a4, a5, n] + S2[a1, SP[a3, a6], a4, a2, a5, n] + 
    S2[a1, SP[a3, a6], a4, a5, a2, n] + S2[a1, SP[a4, a6], a3, a2, a5, n] + 
    S2[a1, SP[a4, a6], a3, a5, a2, n] + S2[a1, SP[a4, a6], a5, a3, a2, n] + 
    S2[a2, a1, a4, a5, SP[a3, a6], n] + S2[a2, a1, a4, a6, SP[a3, a5], n] + 
    S2[a2, a1, a4, SP[a3, a5], a6, n] + S2[a2, a1, a4, SP[a3, a6], a5, n] + 
    S2[a2, a1, a6, a4, SP[a3, a5], n] + S2[a2, a1, a6, SP[a3, a4], a5, n] + 
    S2[a2, a1, SP[a3, a4], a5, a6, n] + S2[a2, a1, SP[a3, a4], a6, a5, n] + 
    S2[a2, a1, SP[a3, a6], a4, a5, n] - S2[a6, n]*S2[a2, a3, a1, a4, a5, n] - 
    S2[a2, a3, a1, a4, SP[a5, a6], n] - S2[a2, a3, a1, SP[a4, a6], a5, n] - 
    S2[a2, a3, SP[a1, a6], a4, a5, n] + S2[a3, n]*S2[a2, a6, a1, a4, a5, n] + 
    S2[a2, a6, a1, a4, SP[a3, a5], n] + S2[a2, a6, a1, SP[a3, a4], a5, n] + 
    S2[a2, a6, SP[a1, a3], a4, a5, n] + S2[a2, SP[a1, a3], a4, a5, a6, n] + 
    S2[a2, SP[a1, a3], a4, a6, a5, n] + S2[a2, SP[a1, a3], a6, a4, a5, n] - 
    S2[a2, n]*S2[a6, a1, a3, a4, a5, n] - S2[a6, a1, a3, a4, SP[a2, a5], n] - 
    S2[a6, a1, a3, SP[a2, a4], a5, n] - S2[a2, n]*S2[a6, a1, a4, a3, a5, n] - 
    S2[a6, a1, a4, a3, SP[a2, a5], n] - S2[a2, n]*S2[a6, a1, a4, a5, a3, n] - 
    S2[a6, a1, a4, a5, SP[a2, a3], n] - S2[a6, a1, a4, SP[a2, a3], a5, n] - 
    S2[a6, a1, a4, SP[a2, a5], a3, n] - S2[a6, a1, SP[a2, a3], a4, a5, n] - 
    S2[a6, a1, SP[a2, a4], a3, a5, n] - S2[a6, a1, SP[a2, a4], a5, a3, n] - 
    S2[a6, SP[a1, a2], a3, a4, a5, n] - S2[a6, SP[a1, a2], a4, a3, a5, n] - 
    S2[a6, SP[a1, a2], a4, a5, a3, n] + S2[SP[a1, a6], a3, a2, a4, a5, n] + 
    S2[SP[a1, a6], a3, a4, a2, a5, n] + S2[SP[a1, a6], a3, a4, a5, a2, n] + 
    S2[SP[a1, a6], a4, a3, a2, a5, n] + S2[SP[a1, a6], a4, a3, a5, a2, n] + 
    S2[SP[a1, a6], a4, a5, a3, a2, n] + S2[SP[a2, a3], a6, a1, a4, a5, n] - 
    S2[SP[a2, a6], a1, a3, a4, a5, n] - S2[SP[a2, a6], a1, a4, a3, a5, n] - 
    S2[SP[a2, a6], a1, a4, a5, a3, n] - S2[SP[a2, a6], a3, a1, a4, a5, n] + 
    S2[a6, a1, a2, a3, a4, a5, n] + S2[a6, a1, a2, a4, a3, a5, n] + 
    S2[a6, a1, a2, a4, a5, a3, n] + S2[a6, a1, a4, a2, a3, a5, n] + 
    S2[a6, a1, a4, a2, a5, a3, n] + S2[a6, a1, a4, a5, a2, a3, n] + 
    S2[a6, a2, a1, a3, a4, a5, n] + S2[a6, a2, a1, a4, a3, a5, n] + 
    S2[a6, a2, a1, a4, a5, a3, n] + S2[a6, a2, a3, a1, a4, a5, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a3_, a2_, a6_, a1_, a5_, a4_, n_] :> 
  S2[a2, a3, n]*S2[a1, a5, a4, a6, n] + S2[a2, a3, n]*S2[a1, a5, a6, a4, n] - 
    S2[a1, a5, SP[a2, a4], SP[a3, a6], n] - S2[a1, a5, SP[a2, a6], 
     SP[a3, a4], n] + S2[a2, a3, n]*S2[a1, a6, a5, a4, n] - 
    S2[a1, a6, SP[a2, a5], SP[a3, a4], n] - S2[a1, SP[a2, a5], a4, 
     SP[a3, a6], n] - S2[a1, SP[a2, a5], a6, SP[a3, a4], n] - 
    S2[a1, SP[a2, a5], SP[a3, a4], a6, n] - S2[a1, SP[a2, a5], SP[a3, a6], 
     a4, n] - S2[a1, SP[a2, a6], a5, SP[a3, a4], n] - 
    S2[a1, SP[a2, a6], SP[a3, a5], a4, n] - S2[SP[a1, a2], a5, a4, 
     SP[a3, a6], n] - S2[SP[a1, a2], a5, a6, SP[a3, a4], n] - 
    S2[SP[a1, a2], a5, SP[a3, a4], a6, n] - S2[SP[a1, a2], a5, SP[a3, a6], 
     a4, n] - S2[SP[a1, a2], a6, a5, SP[a3, a4], n] - 
    S2[SP[a1, a2], a6, SP[a3, a5], a4, n] - S2[SP[a1, a2], SP[a3, a5], a4, 
     a6, n] - S2[SP[a1, a2], SP[a3, a5], a6, a4, n] - 
    S2[SP[a1, a2], SP[a3, a6], a5, a4, n] + S2[a1, a2, a5, a4, SP[a3, a6], 
     n] + S2[a1, a2, a5, a6, SP[a3, a4], n] + S2[a1, a2, a5, SP[a3, a4], a6, 
     n] + S2[a1, a2, a5, SP[a3, a6], a4, n] + S2[a1, a2, a6, a5, SP[a3, a4], 
     n] + S2[a1, a2, a6, SP[a3, a5], a4, n] + S2[a1, a2, SP[a3, a5], a4, a6, 
     n] + S2[a1, a2, SP[a3, a5], a6, a4, n] + S2[a1, a2, SP[a3, a6], a5, a4, 
     n] + S2[a6, n]*S2[a1, a3, a2, a5, a4, n] + S2[a1, a3, a2, a5, 
     SP[a4, a6], n] + S2[a1, a3, a2, SP[a5, a6], a4, n] + 
    S2[a6, n]*S2[a1, a3, a5, a2, a4, n] + S2[a1, a3, a5, a2, SP[a4, a6], n] + 
    S2[a6, n]*S2[a1, a3, a5, a4, a2, n] - 
    S2[a2, n]*S2[a1, a3, a5, a4, a6, n] - 
    S2[a2, n]*S2[a1, a3, a5, a6, a4, n] - S2[a1, a3, a5, a6, SP[a2, a4], n] - 
    S2[a1, a3, a5, SP[a2, a4], a6, n] + S2[a1, a3, a5, SP[a4, a6], a2, n] - 
    S2[a2, n]*S2[a1, a3, a6, a5, a4, n] - S2[a1, a3, a6, a5, SP[a2, a4], n] - 
    S2[a1, a3, a6, SP[a2, a5], a4, n] - S2[a1, a3, SP[a2, a5], a4, a6, n] - 
    S2[a1, a3, SP[a2, a5], a6, a4, n] + S2[a1, a3, SP[a5, a6], a2, a4, n] + 
    S2[a1, a3, SP[a5, a6], a4, a2, n] + S2[a1, a5, a2, a4, SP[a3, a6], n] + 
    S2[a1, a5, a2, a6, SP[a3, a4], n] + S2[a1, a5, a2, SP[a3, a4], a6, n] + 
    S2[a1, a5, a2, SP[a3, a6], a4, n] + S2[a6, n]*S2[a1, a5, a3, a2, a4, n] + 
    S2[a1, a5, a3, a2, SP[a4, a6], n] + S2[a6, n]*S2[a1, a5, a3, a4, a2, n] - 
    S2[a2, n]*S2[a1, a5, a3, a4, a6, n] - 
    S2[a2, n]*S2[a1, a5, a3, a6, a4, n] - S2[a1, a5, a3, a6, SP[a2, a4], n] - 
    S2[a1, a5, a3, SP[a2, a4], a6, n] + S2[a1, a5, a3, SP[a4, a6], a2, n] + 
    S2[a1, a5, a4, a2, SP[a3, a6], n] + S2[a6, n]*S2[a1, a5, a4, a3, a2, n] - 
    S2[a2, n]*S2[a1, a5, a4, a3, a6, n] - 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] - S2[a1, a5, a4, a6, SP[a2, a3], n] - 
    S2[a1, a5, a4, SP[a2, a3], a6, n] + S2[a1, a5, a4, SP[a3, a6], a2, n] + 
    S2[a1, a5, a6, a2, SP[a3, a4], n] - S2[a2, n]*S2[a1, a5, a6, a3, a4, n] - 
    S2[a1, a5, a6, a3, SP[a2, a4], n] - S2[a2, n]*S2[a1, a5, a6, a4, a3, n] - 
    S2[a1, a5, a6, a4, SP[a2, a3], n] - S2[a1, a5, a6, SP[a2, a3], a4, n] - 
    S2[a1, a5, SP[a2, a3], a4, a6, n] - S2[a1, a5, SP[a2, a3], a6, a4, n] + 
    S2[a1, a5, SP[a3, a6], a2, a4, n] + S2[a1, a5, SP[a3, a6], a4, a2, n] + 
    S2[a1, a5, SP[a4, a6], a3, a2, n] + S2[a1, a6, a2, a5, SP[a3, a4], n] + 
    S2[a1, a6, a2, SP[a3, a5], a4, n] - S2[a2, n]*S2[a1, a6, a3, a5, a4, n] - 
    S2[a1, a6, a3, a5, SP[a2, a4], n] - S2[a1, a6, a3, SP[a2, a5], a4, n] + 
    S2[a1, a6, a5, a2, SP[a3, a4], n] - S2[a2, n]*S2[a1, a6, a5, a3, a4, n] - 
    S2[a1, a6, a5, a3, SP[a2, a4], n] - S2[a2, n]*S2[a1, a6, a5, a4, a3, n] - 
    S2[a1, a6, a5, a4, SP[a2, a3], n] - S2[a1, a6, a5, SP[a2, a3], a4, n] - 
    S2[a1, a6, SP[a2, a3], a5, a4, n] - S2[a1, SP[a2, a3], a5, a4, a6, n] - 
    S2[a1, SP[a2, a3], a5, a6, a4, n] - S2[a1, SP[a2, a3], a6, a5, a4, n] + 
    S2[a1, SP[a3, a6], a2, a5, a4, n] + S2[a1, SP[a3, a6], a5, a2, a4, n] + 
    S2[a1, SP[a3, a6], a5, a4, a2, n] + S2[a1, SP[a5, a6], a3, a2, a4, n] + 
    S2[a1, SP[a5, a6], a3, a4, a2, n] + S2[a1, SP[a5, a6], a4, a3, a2, n] + 
    S2[a2, a1, a5, a4, SP[a3, a6], n] + S2[a2, a1, a5, a6, SP[a3, a4], n] + 
    S2[a2, a1, a5, SP[a3, a4], a6, n] + S2[a2, a1, a5, SP[a3, a6], a4, n] + 
    S2[a2, a1, a6, a5, SP[a3, a4], n] + S2[a2, a1, a6, SP[a3, a5], a4, n] + 
    S2[a2, a1, SP[a3, a5], a4, a6, n] + S2[a2, a1, SP[a3, a5], a6, a4, n] + 
    S2[a2, a1, SP[a3, a6], a5, a4, n] - S2[a6, n]*S2[a2, a3, a1, a5, a4, n] - 
    S2[a2, a3, a1, a5, SP[a4, a6], n] - S2[a2, a3, a1, SP[a5, a6], a4, n] - 
    S2[a2, a3, SP[a1, a6], a5, a4, n] + S2[a3, n]*S2[a2, a6, a1, a5, a4, n] + 
    S2[a2, a6, a1, a5, SP[a3, a4], n] + S2[a2, a6, a1, SP[a3, a5], a4, n] + 
    S2[a2, a6, SP[a1, a3], a5, a4, n] + S2[a2, SP[a1, a3], a5, a4, a6, n] + 
    S2[a2, SP[a1, a3], a5, a6, a4, n] + S2[a2, SP[a1, a3], a6, a5, a4, n] - 
    S2[a2, n]*S2[a6, a1, a3, a5, a4, n] - S2[a6, a1, a3, a5, SP[a2, a4], n] - 
    S2[a6, a1, a3, SP[a2, a5], a4, n] - S2[a2, n]*S2[a6, a1, a5, a3, a4, n] - 
    S2[a6, a1, a5, a3, SP[a2, a4], n] - S2[a2, n]*S2[a6, a1, a5, a4, a3, n] - 
    S2[a6, a1, a5, a4, SP[a2, a3], n] - S2[a6, a1, a5, SP[a2, a3], a4, n] - 
    S2[a6, a1, a5, SP[a2, a4], a3, n] - S2[a6, a1, SP[a2, a3], a5, a4, n] - 
    S2[a6, a1, SP[a2, a5], a3, a4, n] - S2[a6, a1, SP[a2, a5], a4, a3, n] - 
    S2[a6, SP[a1, a2], a3, a5, a4, n] - S2[a6, SP[a1, a2], a5, a3, a4, n] - 
    S2[a6, SP[a1, a2], a5, a4, a3, n] + S2[SP[a1, a6], a3, a2, a5, a4, n] + 
    S2[SP[a1, a6], a3, a5, a2, a4, n] + S2[SP[a1, a6], a3, a5, a4, a2, n] + 
    S2[SP[a1, a6], a5, a3, a2, a4, n] + S2[SP[a1, a6], a5, a3, a4, a2, n] + 
    S2[SP[a1, a6], a5, a4, a3, a2, n] + S2[SP[a2, a3], a6, a1, a5, a4, n] - 
    S2[SP[a2, a6], a1, a3, a5, a4, n] - S2[SP[a2, a6], a1, a5, a3, a4, n] - 
    S2[SP[a2, a6], a1, a5, a4, a3, n] - S2[SP[a2, a6], a3, a1, a5, a4, n] + 
    S2[a6, a1, a2, a3, a5, a4, n] + S2[a6, a1, a2, a5, a3, a4, n] + 
    S2[a6, a1, a2, a5, a4, a3, n] + S2[a6, a1, a5, a2, a3, a4, n] + 
    S2[a6, a1, a5, a2, a4, a3, n] + S2[a6, a1, a5, a4, a2, a3, n] + 
    S2[a6, a2, a1, a3, a5, a4, n] + S2[a6, a2, a1, a5, a3, a4, n] + 
    S2[a6, a2, a1, a5, a4, a3, n] + S2[a6, a2, a3, a1, a5, a4, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a3_, a2_, a6_, a4_, a1_, a5_, n_] :> 
  -(S2[a2, a3, n]*S2[a1, a4, a5, a6, n]) - S2[a2, a3, n]*
     S2[a1, a4, a6, a5, n] + S2[a1, a4, SP[a2, a5], SP[a3, a6], n] + 
    S2[a1, a4, SP[a2, a6], SP[a3, a5], n] - S2[a2, a3, n]*
     S2[a1, a5, a4, a6, n] + S2[a1, a5, SP[a2, a4], SP[a3, a6], n] + 
    S2[a1, SP[a2, a4], a5, SP[a3, a6], n] + S2[a1, SP[a2, a4], a6, 
     SP[a3, a5], n] + S2[a1, SP[a2, a4], SP[a3, a5], a6, n] + 
    S2[a1, SP[a2, a4], SP[a3, a6], a5, n] + S2[a1, SP[a2, a5], a4, 
     SP[a3, a6], n] + S2[a1, SP[a2, a5], SP[a3, a4], a6, n] - 
    S2[a1, a5, n]*S2[a2, a3, a6, a4, n] + S2[a2, a3, SP[a1, a6], SP[a4, a5], 
     n] - S2[a1, a5, n]*S2[a2, a6, a3, a4, n] - 
    S2[a1, a5, n]*S2[a2, a6, a4, a3, n] + S2[a2, a6, SP[a1, a3], SP[a4, a5], 
     n] + S2[a2, a6, SP[a1, a4], SP[a3, a5], n] + S2[a2, SP[a1, a3], a6, 
     SP[a4, a5], n] + S2[a2, SP[a1, a3], SP[a5, a6], a4, n] + 
    S2[a2, SP[a1, a6], a3, SP[a4, a5], n] + S2[a2, SP[a1, a6], a4, 
     SP[a3, a5], n] + S2[a2, SP[a1, a6], SP[a3, a5], a4, n] + 
    S2[a2, SP[a1, a6], SP[a4, a5], a3, n] + S2[a1, a5, n]*
     S2[a4, a6, a2, a3, n] - S2[a4, a6, SP[a1, a2], SP[a3, a5], n] - 
    S2[a4, SP[a1, a6], a2, SP[a3, a5], n] - S2[a4, SP[a1, a6], SP[a2, a5], 
     a3, n] + S2[SP[a1, a2], a3, a6, SP[a4, a5], n] + 
    S2[SP[a1, a2], a3, SP[a5, a6], a4, n] + S2[SP[a1, a2], a4, a5, 
     SP[a3, a6], n] + S2[SP[a1, a2], a4, a6, SP[a3, a5], n] + 
    S2[SP[a1, a2], a4, SP[a3, a5], a6, n] + S2[SP[a1, a2], a4, SP[a3, a6], 
     a5, n] + S2[SP[a1, a2], a5, a4, SP[a3, a6], n] + 
    S2[SP[a1, a2], a5, SP[a3, a4], a6, n] + S2[SP[a1, a2], a6, a3, 
     SP[a4, a5], n] + S2[SP[a1, a2], a6, a4, SP[a3, a5], n] + 
    S2[SP[a1, a2], a6, SP[a3, a5], a4, n] + S2[SP[a1, a2], a6, SP[a4, a5], 
     a3, n] + S2[SP[a1, a2], SP[a3, a4], a5, a6, n] + 
    S2[SP[a1, a2], SP[a3, a4], a6, a5, n] + S2[SP[a1, a2], SP[a3, a5], a4, 
     a6, n] + S2[SP[a1, a2], SP[a3, a5], a6, a4, n] + 
    S2[SP[a1, a2], SP[a5, a6], a3, a4, n] + S2[SP[a1, a2], SP[a5, a6], a4, 
     a3, n] - S2[SP[a1, a4], a6, a2, SP[a3, a5], n] - 
    S2[SP[a1, a4], a6, SP[a2, a5], a3, n] - S2[SP[a1, a4], SP[a5, a6], a2, 
     a3, n] - S2[a1, a2, a3, a6, SP[a4, a5], n] - S2[a1, a2, a3, SP[a5, a6], 
     a4, n] - S2[a1, a2, a4, a5, SP[a3, a6], n] - 
    S2[a1, a2, a4, a6, SP[a3, a5], n] - S2[a1, a2, a4, SP[a3, a5], a6, n] - 
    S2[a1, a2, a4, SP[a3, a6], a5, n] - S2[a1, a2, a5, a4, SP[a3, a6], n] - 
    S2[a1, a2, a5, SP[a3, a4], a6, n] - S2[a1, a2, a6, a3, SP[a4, a5], n] - 
    S2[a1, a2, a6, a4, SP[a3, a5], n] - S2[a1, a2, a6, SP[a3, a5], a4, n] - 
    S2[a1, a2, a6, SP[a4, a5], a3, n] - S2[a1, a2, SP[a3, a4], a5, a6, n] - 
    S2[a1, a2, SP[a3, a4], a6, a5, n] - S2[a1, a2, SP[a3, a5], a4, a6, n] - 
    S2[a1, a2, SP[a3, a5], a6, a4, n] - S2[a1, a2, SP[a5, a6], a3, a4, n] - 
    S2[a1, a2, SP[a5, a6], a4, a3, n] - S2[a6, n]*S2[a1, a3, a2, a4, a5, n] - 
    S2[a1, a3, a2, a4, SP[a5, a6], n] - S2[a6, n]*S2[a1, a3, a2, a5, a4, n] - 
    S2[a1, a3, a2, a5, SP[a4, a6], n] - S2[a1, a3, a2, SP[a4, a6], a5, n] - 
    S2[a1, a3, a2, SP[a5, a6], a4, n] - S2[a6, n]*S2[a1, a3, a4, a2, a5, n] - 
    S2[a1, a3, a4, a2, SP[a5, a6], n] - S2[a6, n]*S2[a1, a3, a4, a5, a2, n] + 
    S2[a2, n]*S2[a1, a3, a4, a5, a6, n] + 
    S2[a2, n]*S2[a1, a3, a4, a6, a5, n] + S2[a1, a3, a4, a6, SP[a2, a5], n] + 
    S2[a1, a3, a4, SP[a2, a5], a6, n] - S2[a1, a3, a4, SP[a5, a6], a2, n] - 
    S2[a6, n]*S2[a1, a3, a5, a2, a4, n] - S2[a1, a3, a5, a2, SP[a4, a6], n] - 
    S2[a6, n]*S2[a1, a3, a5, a4, a2, n] + 
    S2[a2, n]*S2[a1, a3, a5, a4, a6, n] + 
    S2[a2, n]*S2[a1, a3, a5, a6, a4, n] + S2[a1, a3, a5, a6, SP[a2, a4], n] + 
    S2[a1, a3, a5, SP[a2, a4], a6, n] - S2[a1, a3, a5, SP[a4, a6], a2, n] + 
    S2[a2, n]*S2[a1, a3, a6, a4, a5, n] + S2[a1, a3, a6, a4, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a3, a6, a5, a4, n] + S2[a1, a3, a6, a5, SP[a2, a4], n] + 
    S2[a1, a3, a6, SP[a2, a4], a5, n] + S2[a1, a3, a6, SP[a2, a5], a4, n] + 
    S2[a1, a3, SP[a2, a4], a5, a6, n] + S2[a1, a3, SP[a2, a4], a6, a5, n] + 
    S2[a1, a3, SP[a2, a5], a4, a6, n] + S2[a1, a3, SP[a2, a5], a6, a4, n] - 
    S2[a1, a3, SP[a4, a6], a2, a5, n] - S2[a1, a3, SP[a4, a6], a5, a2, n] - 
    S2[a1, a3, SP[a5, a6], a2, a4, n] - S2[a1, a3, SP[a5, a6], a4, a2, n] - 
    S2[a1, a4, a2, a5, SP[a3, a6], n] - S2[a1, a4, a2, a6, SP[a3, a5], n] - 
    S2[a1, a4, a2, SP[a3, a5], a6, n] - S2[a1, a4, a2, SP[a3, a6], a5, n] - 
    S2[a6, n]*S2[a1, a4, a3, a2, a5, n] - S2[a1, a4, a3, a2, SP[a5, a6], n] - 
    S2[a6, n]*S2[a1, a4, a3, a5, a2, n] + 
    S2[a2, n]*S2[a1, a4, a3, a5, a6, n] + 
    S2[a2, n]*S2[a1, a4, a3, a6, a5, n] + S2[a1, a4, a3, a6, SP[a2, a5], n] + 
    S2[a1, a4, a3, SP[a2, a5], a6, n] - S2[a1, a4, a3, SP[a5, a6], a2, n] - 
    S2[a1, a4, a5, a2, SP[a3, a6], n] - S2[a6, n]*S2[a1, a4, a5, a3, a2, n] + 
    S2[a2, n]*S2[a1, a4, a5, a3, a6, n] + 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] + S2[a1, a4, a5, a6, SP[a2, a3], n] + 
    S2[a1, a4, a5, SP[a2, a3], a6, n] - S2[a1, a4, a5, SP[a3, a6], a2, n] + 
    S2[a2, n]*S2[a1, a4, a6, a3, a5, n] + S2[a1, a4, a6, a3, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a4, a6, a5, a3, n] + S2[a1, a4, a6, a5, SP[a2, a3], n] + 
    S2[a1, a4, a6, SP[a2, a3], a5, n] + S2[a1, a4, a6, SP[a2, a5], a3, n] + 
    S2[a1, a4, SP[a2, a3], a5, a6, n] + S2[a1, a4, SP[a2, a3], a6, a5, n] - 
    S2[a1, a4, SP[a3, a6], a2, a5, n] - S2[a1, a4, SP[a3, a6], a5, a2, n] + 
    S2[a1, a4, SP[a5, a6], a2, a3, n] - S2[a1, a4, SP[a5, a6], a3, a2, n] - 
    S2[a1, a5, a2, a4, SP[a3, a6], n] - S2[a1, a5, a2, SP[a3, a4], a6, n] - 
    S2[a6, n]*S2[a1, a5, a3, a2, a4, n] - S2[a1, a5, a3, a2, SP[a4, a6], n] - 
    S2[a6, n]*S2[a1, a5, a3, a4, a2, n] + 
    S2[a2, n]*S2[a1, a5, a3, a4, a6, n] + 
    S2[a2, n]*S2[a1, a5, a3, a6, a4, n] + S2[a1, a5, a3, a6, SP[a2, a4], n] + 
    S2[a1, a5, a3, SP[a2, a4], a6, n] - S2[a1, a5, a3, SP[a4, a6], a2, n] - 
    S2[a1, a5, a4, a2, SP[a3, a6], n] - S2[a6, n]*S2[a1, a5, a4, a3, a2, n] + 
    S2[a2, n]*S2[a1, a5, a4, a3, a6, n] + 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] + S2[a1, a5, a4, a6, SP[a2, a3], n] + 
    S2[a1, a5, a4, SP[a2, a3], a6, n] - S2[a1, a5, a4, SP[a3, a6], a2, n] - 
    S2[a4, n]*S2[a1, a5, a6, a2, a3, n] - S2[a1, a5, a6, a2, SP[a3, a4], n] + 
    S2[a2, n]*S2[a1, a5, a6, a3, a4, n] + S2[a1, a5, a6, a3, SP[a2, a4], n] + 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] + S2[a1, a5, a6, a4, SP[a2, a3], n] + 
    S2[a1, a5, a6, SP[a2, a3], a4, n] + S2[a1, a5, SP[a2, a3], a4, a6, n] + 
    S2[a1, a5, SP[a2, a3], a6, a4, n] + S2[a1, a5, SP[a2, a6], a3, a4, n] + 
    S2[a1, a5, SP[a2, a6], a4, a3, n] - S2[a1, a5, SP[a3, a6], a2, a4, n] - 
    S2[a1, a5, SP[a3, a6], a4, a2, n] - S2[a1, a5, SP[a4, a6], a2, a3, n] - 
    S2[a1, a5, SP[a4, a6], a3, a2, n] - S2[a4, n]*S2[a1, a6, a2, a3, a5, n] - 
    S2[a1, a6, a2, a3, SP[a4, a5], n] - S2[a4, n]*S2[a1, a6, a2, a5, a3, n] - 
    S2[a1, a6, a2, a5, SP[a3, a4], n] - S2[a1, a6, a2, SP[a3, a4], a5, n] - 
    S2[a1, a6, a2, SP[a4, a5], a3, n] + S2[a2, n]*S2[a1, a6, a3, a4, a5, n] + 
    S2[a1, a6, a3, a4, SP[a2, a5], n] + S2[a2, n]*S2[a1, a6, a3, a5, a4, n] + 
    S2[a1, a6, a3, a5, SP[a2, a4], n] + S2[a1, a6, a3, SP[a2, a4], a5, n] + 
    S2[a1, a6, a3, SP[a2, a5], a4, n] + S2[a2, n]*S2[a1, a6, a4, a3, a5, n] + 
    S2[a1, a6, a4, a3, SP[a2, a5], n] + S2[a2, n]*S2[a1, a6, a4, a5, a3, n] + 
    S2[a1, a6, a4, a5, SP[a2, a3], n] + S2[a1, a6, a4, SP[a2, a3], a5, n] + 
    S2[a1, a6, a4, SP[a2, a5], a3, n] - S2[a4, n]*S2[a1, a6, a5, a2, a3, n] - 
    S2[a1, a6, a5, a2, SP[a3, a4], n] + S2[a2, n]*S2[a1, a6, a5, a3, a4, n] + 
    S2[a1, a6, a5, a3, SP[a2, a4], n] + S2[a2, n]*S2[a1, a6, a5, a4, a3, n] + 
    S2[a1, a6, a5, a4, SP[a2, a3], n] + S2[a1, a6, a5, SP[a2, a3], a4, n] + 
    S2[a1, a6, SP[a2, a3], a4, a5, n] + S2[a1, a6, SP[a2, a3], a5, a4, n] + 
    S2[a1, a6, SP[a2, a5], a3, a4, n] + S2[a1, a6, SP[a2, a5], a4, a3, n] - 
    S2[a1, a6, SP[a4, a5], a2, a3, n] + S2[a1, SP[a2, a3], a4, a5, a6, n] + 
    S2[a1, SP[a2, a3], a4, a6, a5, n] + S2[a1, SP[a2, a3], a5, a4, a6, n] + 
    S2[a1, SP[a2, a3], a5, a6, a4, n] + S2[a1, SP[a2, a3], a6, a4, a5, n] + 
    S2[a1, SP[a2, a3], a6, a5, a4, n] + S2[a1, SP[a2, a6], a3, a4, a5, n] + 
    S2[a1, SP[a2, a6], a3, a5, a4, n] + S2[a1, SP[a2, a6], a4, a3, a5, n] + 
    S2[a1, SP[a2, a6], a4, a5, a3, n] + S2[a1, SP[a2, a6], a5, a3, a4, n] + 
    S2[a1, SP[a2, a6], a5, a4, a3, n] - S2[a1, SP[a3, a6], a2, a4, a5, n] - 
    S2[a1, SP[a3, a6], a2, a5, a4, n] - S2[a1, SP[a3, a6], a4, a2, a5, n] - 
    S2[a1, SP[a3, a6], a4, a5, a2, n] - S2[a1, SP[a3, a6], a5, a2, a4, n] - 
    S2[a1, SP[a3, a6], a5, a4, a2, n] - S2[a1, SP[a4, a6], a2, a3, a5, n] - 
    S2[a1, SP[a4, a6], a2, a5, a3, n] - S2[a1, SP[a4, a6], a3, a2, a5, n] - 
    S2[a1, SP[a4, a6], a3, a5, a2, n] - S2[a1, SP[a4, a6], a5, a2, a3, n] - 
    S2[a1, SP[a4, a6], a5, a3, a2, n] - S2[a1, SP[a5, a6], a3, a2, a4, n] - 
    S2[a1, SP[a5, a6], a3, a4, a2, n] - S2[a1, SP[a5, a6], a4, a3, a2, n] - 
    S2[a2, a1, a3, a6, SP[a4, a5], n] - S2[a2, a1, a3, SP[a5, a6], a4, n] - 
    S2[a2, a1, a4, a5, SP[a3, a6], n] - S2[a2, a1, a4, a6, SP[a3, a5], n] - 
    S2[a2, a1, a4, SP[a3, a5], a6, n] - S2[a2, a1, a4, SP[a3, a6], a5, n] - 
    S2[a2, a1, a5, a4, SP[a3, a6], n] - S2[a2, a1, a5, SP[a3, a4], a6, n] - 
    S2[a2, a1, a6, a3, SP[a4, a5], n] - S2[a2, a1, a6, a4, SP[a3, a5], n] - 
    S2[a2, a1, a6, SP[a3, a5], a4, n] - S2[a2, a1, a6, SP[a4, a5], a3, n] - 
    S2[a2, a1, SP[a3, a4], a5, a6, n] - S2[a2, a1, SP[a3, a4], a6, a5, n] - 
    S2[a2, a1, SP[a3, a5], a4, a6, n] - S2[a2, a1, SP[a3, a5], a6, a4, n] - 
    S2[a2, a1, SP[a5, a6], a3, a4, n] - S2[a2, a1, SP[a5, a6], a4, a3, n] + 
    S2[a6, n]*S2[a2, a3, a1, a4, a5, n] + S2[a2, a3, a1, a4, SP[a5, a6], n] + 
    S2[a6, n]*S2[a2, a3, a1, a5, a4, n] + S2[a2, a3, a1, a5, SP[a4, a6], n] - 
    S2[a2, a3, a1, a6, SP[a4, a5], n] + S2[a2, a3, a1, SP[a4, a6], a5, n] - 
    S2[a2, a3, a6, a1, SP[a4, a5], n] - S2[a2, a3, a6, SP[a1, a4], a5, n] + 
    S2[a4, n]*S2[a2, a6, a1, a3, a5, n] - S2[a2, a6, a1, a4, SP[a3, a5], n] + 
    S2[a4, n]*S2[a2, a6, a1, a5, a3, n] + S2[a2, a6, a1, a5, SP[a3, a4], n] + 
    S2[a2, a6, a1, SP[a3, a4], a5, n] - S2[a2, a6, a1, SP[a3, a5], a4, n] - 
    S2[a2, a6, a3, a1, SP[a4, a5], n] - S2[a2, a6, a3, SP[a1, a4], a5, n] + 
    S2[a3, n]*S2[a2, a6, a4, a1, a5, n] - S2[a2, a6, SP[a1, a3], a4, a5, n] - 
    S2[a2, a6, SP[a1, a3], a5, a4, n] + S2[a2, a6, SP[a3, a4], a1, a5, n] - 
    S2[a2, SP[a1, a3], a4, a5, a6, n] - S2[a2, SP[a1, a3], a4, a6, a5, n] - 
    S2[a2, SP[a1, a3], a5, a4, a6, n] - S2[a2, SP[a1, a3], a5, a6, a4, n] - 
    S2[a2, SP[a1, a3], a6, a4, a5, n] - S2[a2, SP[a1, a3], a6, a5, a4, n] - 
    S2[a2, SP[a1, a6], a3, a4, a5, n] - S2[a2, SP[a1, a6], a3, a5, a4, n] - 
    S2[a2, SP[a1, a6], a4, a3, a5, n] - S2[a2, SP[a1, a6], a4, a5, a3, n] - 
    S2[a2, SP[a1, a6], a5, a3, a4, n] - S2[a2, SP[a1, a6], a5, a4, a3, n] + 
    S2[a2, SP[a3, a6], a1, a4, a5, n] + S2[a2, SP[a3, a6], a1, a5, a4, n] + 
    S2[a2, SP[a3, a6], a4, a1, a5, n] + S2[a2, SP[a4, a6], a1, a3, a5, n] + 
    S2[a2, SP[a4, a6], a1, a5, a3, n] + S2[a4, a1, a6, a2, SP[a3, a5], n] + 
    S2[a4, a1, a6, SP[a2, a5], a3, n] + S2[a4, a1, SP[a5, a6], a2, a3, n] + 
    S2[a4, a6, a1, a2, SP[a3, a5], n] - S2[a2, n]*S2[a4, a6, a1, a3, a5, n] - 
    S2[a4, a6, a1, a3, SP[a2, a5], n] - S2[a2, n]*S2[a4, a6, a1, a5, a3, n] - 
    S2[a4, a6, a1, a5, SP[a2, a3], n] - S2[a4, a6, a1, SP[a2, a3], a5, n] + 
    S2[a4, a6, a2, a1, SP[a3, a5], n] + S2[a4, a6, a2, SP[a1, a3], a5, n] + 
    S2[a4, SP[a1, a6], a2, a3, a5, n] + S2[a4, SP[a1, a6], a2, a5, a3, n] + 
    S2[a4, SP[a1, a6], a5, a2, a3, n] - S2[a4, SP[a2, a6], a1, a3, a5, n] - 
    S2[a4, SP[a2, a6], a1, a5, a3, n] + S2[a4, n]*S2[a6, a1, a3, a2, a5, n] + 
    S2[a6, a1, a3, a2, SP[a4, a5], n] + S2[a4, n]*S2[a6, a1, a3, a5, a2, n] + 
    S2[a6, a1, a3, a5, SP[a2, a4], n] + S2[a6, a1, a3, SP[a2, a4], a5, n] + 
    S2[a6, a1, a3, SP[a4, a5], a2, n] + S2[a4, n]*S2[a6, a1, a5, a3, a2, n] + 
    S2[a6, a1, a5, a3, SP[a2, a4], n] + S2[a6, a1, a5, SP[a3, a4], a2, n] + 
    S2[a6, a1, SP[a3, a4], a2, a5, n] + S2[a6, a1, SP[a3, a4], a5, a2, n] + 
    S2[a6, a1, SP[a4, a5], a3, a2, n] - S2[a4, n]*S2[a6, a2, a3, a1, a5, n] - 
    S2[a6, a2, a3, a1, SP[a4, a5], n] - S2[a6, a2, a3, SP[a1, a4], a5, n] - 
    S2[a6, a2, SP[a3, a4], a1, a5, n] - S2[a2, n]*S2[a6, a4, a1, a3, a5, n] - 
    S2[a6, a4, a1, a3, SP[a2, a5], n] - S2[a2, n]*S2[a6, a4, a1, a5, a3, n] - 
    S2[a6, a4, a1, a5, SP[a2, a3], n] - S2[a6, a4, a1, SP[a2, a3], a5, n] - 
    S2[a6, a4, a1, SP[a2, a5], a3, n] - S2[a6, a4, SP[a1, a2], a3, a5, n] - 
    S2[a6, a4, SP[a1, a2], a5, a3, n] + S2[a6, SP[a1, a4], a3, a2, a5, n] + 
    S2[a6, SP[a1, a4], a3, a5, a2, n] + S2[a6, SP[a1, a4], a5, a3, a2, n] - 
    S2[a6, SP[a2, a4], a1, a3, a5, n] - S2[a6, SP[a2, a4], a1, a5, a3, n] - 
    S2[a6, SP[a2, a4], a3, a1, a5, n] - S2[SP[a1, a6], a3, a2, a4, a5, n] - 
    S2[SP[a1, a6], a3, a2, a5, a4, n] - S2[SP[a1, a6], a3, a4, a2, a5, n] - 
    S2[SP[a1, a6], a3, a4, a5, a2, n] - S2[SP[a1, a6], a3, a5, a2, a4, n] - 
    S2[SP[a1, a6], a3, a5, a4, a2, n] - S2[SP[a1, a6], a4, a3, a2, a5, n] - 
    S2[SP[a1, a6], a4, a3, a5, a2, n] - S2[SP[a1, a6], a4, a5, a3, a2, n] - 
    S2[SP[a1, a6], a5, a3, a2, a4, n] - S2[SP[a1, a6], a5, a3, a4, a2, n] - 
    S2[SP[a1, a6], a5, a4, a3, a2, n] + S2[SP[a2, a3], a6, a4, a1, a5, n] + 
    S2[SP[a2, a6], a3, a1, a4, a5, n] + S2[SP[a2, a6], a3, a1, a5, a4, n] - 
    S2[SP[a2, a6], a4, a1, a3, a5, n] - S2[SP[a2, a6], a4, a1, a5, a3, n] + 
    S2[SP[a4, a6], a1, a3, a2, a5, n] + S2[SP[a4, a6], a1, a3, a5, a2, n] + 
    S2[SP[a4, a6], a1, a5, a3, a2, n] - S2[SP[a4, a6], a2, a3, a1, a5, n] + 
    S2[a6, a2, a3, a4, a1, a5, n] + S2[a6, a2, a4, a1, a3, a5, n] + 
    S2[a6, a2, a4, a1, a5, a3, n] + S2[a6, a2, a4, a3, a1, a5, n] + 
    S2[a6, a4, a1, a2, a3, a5, n] + S2[a6, a4, a1, a2, a5, a3, n] + 
    S2[a6, a4, a1, a5, a2, a3, n] + S2[a6, a4, a2, a1, a3, a5, n] + 
    S2[a6, a4, a2, a1, a5, a3, n] + S2[a6, a4, a2, a3, a1, a5, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a3_, a2_, a6_, a4_, a5_, a1_, n_] :> 
  S2[a2, a3, n]*S2[a1, a5, a4, a6, n] - S2[a1, a5, SP[a2, a4], SP[a3, a6], 
     n] - S2[a1, SP[a2, a5], a4, SP[a3, a6], n] - 
    S2[a1, SP[a2, a5], SP[a3, a4], a6, n] + S2[a1, a5, n]*
     S2[a2, a3, a6, a4, n] - S2[a2, a3, SP[a1, a6], SP[a4, a5], n] + 
    S2[a1, a5, n]*S2[a2, a6, a3, a4, n] + S2[a1, a5, n]*
     S2[a2, a6, a4, a3, n] - S2[a2, a6, SP[a1, a3], SP[a4, a5], n] - 
    S2[a2, a6, SP[a1, a4], SP[a3, a5], n] - S2[a2, SP[a1, a3], a6, 
     SP[a4, a5], n] - S2[a2, SP[a1, a3], SP[a5, a6], a4, n] - 
    S2[a2, SP[a1, a6], a3, SP[a4, a5], n] - S2[a2, SP[a1, a6], a4, 
     SP[a3, a5], n] - S2[a2, SP[a1, a6], SP[a3, a5], a4, n] - 
    S2[a2, SP[a1, a6], SP[a4, a5], a3, n] - S2[a1, a5, n]*
     S2[a4, a6, a2, a3, n] + S2[a4, a6, SP[a1, a2], SP[a3, a5], n] + 
    S2[a4, SP[a1, a6], a2, SP[a3, a5], n] + S2[a4, SP[a1, a6], SP[a2, a5], 
     a3, n] - S2[SP[a1, a2], a3, a6, SP[a4, a5], n] - 
    S2[SP[a1, a2], a3, SP[a5, a6], a4, n] - S2[SP[a1, a2], a5, a4, 
     SP[a3, a6], n] - S2[SP[a1, a2], a5, SP[a3, a4], a6, n] - 
    S2[SP[a1, a2], a6, a3, SP[a4, a5], n] - S2[SP[a1, a2], a6, a4, 
     SP[a3, a5], n] - S2[SP[a1, a2], a6, SP[a3, a5], a4, n] - 
    S2[SP[a1, a2], a6, SP[a4, a5], a3, n] - S2[SP[a1, a2], SP[a3, a5], a4, 
     a6, n] - S2[SP[a1, a2], SP[a3, a5], a6, a4, n] - 
    S2[SP[a1, a2], SP[a5, a6], a3, a4, n] - S2[SP[a1, a2], SP[a5, a6], a4, 
     a3, n] + S2[SP[a1, a4], a6, a2, SP[a3, a5], n] + 
    S2[SP[a1, a4], a6, SP[a2, a5], a3, n] + S2[SP[a1, a4], SP[a5, a6], a2, 
     a3, n] + S2[a1, a2, a3, a6, SP[a4, a5], n] + S2[a1, a2, a3, SP[a5, a6], 
     a4, n] + S2[a1, a2, a5, a4, SP[a3, a6], n] + S2[a1, a2, a5, SP[a3, a4], 
     a6, n] + S2[a1, a2, a6, a3, SP[a4, a5], n] + 
    S2[a1, a2, a6, a4, SP[a3, a5], n] + S2[a1, a2, a6, SP[a3, a5], a4, n] + 
    S2[a1, a2, a6, SP[a4, a5], a3, n] + S2[a1, a2, SP[a3, a5], a4, a6, n] + 
    S2[a1, a2, SP[a3, a5], a6, a4, n] + S2[a1, a2, SP[a5, a6], a3, a4, n] + 
    S2[a1, a2, SP[a5, a6], a4, a3, n] + S2[a6, n]*S2[a1, a3, a2, a5, a4, n] + 
    S2[a1, a3, a2, a5, SP[a4, a6], n] + S2[a1, a3, a2, SP[a5, a6], a4, n] + 
    S2[a6, n]*S2[a1, a3, a5, a2, a4, n] + S2[a1, a3, a5, a2, SP[a4, a6], n] + 
    S2[a6, n]*S2[a1, a3, a5, a4, a2, n] - 
    S2[a2, n]*S2[a1, a3, a5, a4, a6, n] - 
    S2[a2, n]*S2[a1, a3, a5, a6, a4, n] - S2[a1, a3, a5, a6, SP[a2, a4], n] - 
    S2[a1, a3, a5, SP[a2, a4], a6, n] + S2[a1, a3, a5, SP[a4, a6], a2, n] - 
    S2[a2, n]*S2[a1, a3, a6, a4, a5, n] - S2[a1, a3, a6, a4, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a3, a6, a5, a4, n] - S2[a1, a3, a6, a5, SP[a2, a4], n] - 
    S2[a1, a3, a6, SP[a2, a4], a5, n] - S2[a1, a3, a6, SP[a2, a5], a4, n] - 
    S2[a1, a3, SP[a2, a5], a4, a6, n] - S2[a1, a3, SP[a2, a5], a6, a4, n] - 
    S2[a1, a3, SP[a2, a6], a4, a5, n] + S2[a1, a3, SP[a5, a6], a2, a4, n] + 
    S2[a1, a3, SP[a5, a6], a4, a2, n] - S2[a1, a4, a6, a2, SP[a3, a5], n] - 
    S2[a1, a4, a6, SP[a2, a5], a3, n] - S2[a1, a4, SP[a5, a6], a2, a3, n] + 
    S2[a1, a5, a2, a4, SP[a3, a6], n] + S2[a1, a5, a2, SP[a3, a4], a6, n] + 
    S2[a6, n]*S2[a1, a5, a3, a2, a4, n] + S2[a1, a5, a3, a2, SP[a4, a6], n] + 
    S2[a6, n]*S2[a1, a5, a3, a4, a2, n] - 
    S2[a2, n]*S2[a1, a5, a3, a4, a6, n] - 
    S2[a2, n]*S2[a1, a5, a3, a6, a4, n] - S2[a1, a5, a3, a6, SP[a2, a4], n] - 
    S2[a1, a5, a3, SP[a2, a4], a6, n] + S2[a1, a5, a3, SP[a4, a6], a2, n] + 
    S2[a1, a5, a4, a2, SP[a3, a6], n] + S2[a6, n]*S2[a1, a5, a4, a3, a2, n] - 
    S2[a2, n]*S2[a1, a5, a4, a3, a6, n] - 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] - S2[a1, a5, a4, a6, SP[a2, a3], n] - 
    S2[a1, a5, a4, SP[a2, a3], a6, n] + S2[a1, a5, a4, SP[a3, a6], a2, n] + 
    S2[a4, n]*S2[a1, a5, a6, a2, a3, n] + S2[a1, a5, a6, a2, SP[a3, a4], n] - 
    S2[a2, n]*S2[a1, a5, a6, a3, a4, n] - S2[a1, a5, a6, a3, SP[a2, a4], n] - 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] - S2[a1, a5, a6, a4, SP[a2, a3], n] - 
    S2[a1, a5, a6, SP[a2, a3], a4, n] - S2[a1, a5, SP[a2, a3], a4, a6, n] - 
    S2[a1, a5, SP[a2, a3], a6, a4, n] - S2[a1, a5, SP[a2, a6], a3, a4, n] - 
    S2[a1, a5, SP[a2, a6], a4, a3, n] + S2[a1, a5, SP[a3, a6], a2, a4, n] + 
    S2[a1, a5, SP[a3, a6], a4, a2, n] + S2[a1, a5, SP[a4, a6], a2, a3, n] + 
    S2[a1, a5, SP[a4, a6], a3, a2, n] + S2[a4, n]*S2[a1, a6, a2, a3, a5, n] + 
    S2[a1, a6, a2, a3, SP[a4, a5], n] + S2[a3, n]*S2[a1, a6, a2, a4, a5, n] + 
    S2[a1, a6, a2, a4, SP[a3, a5], n] + S2[a4, n]*S2[a1, a6, a2, a5, a3, n] + 
    S2[a1, a6, a2, a5, SP[a3, a4], n] + 2*S2[a1, a6, a2, SP[a3, a4], a5, n] + 
    S2[a1, a6, a2, SP[a4, a5], a3, n] - S2[a2, n]*S2[a1, a6, a3, a4, a5, n] - 
    S2[a1, a6, a3, a4, SP[a2, a5], n] - S2[a2, n]*S2[a1, a6, a3, a5, a4, n] - 
    S2[a1, a6, a3, a5, SP[a2, a4], n] - S2[a1, a6, a3, SP[a2, a4], a5, n] - 
    S2[a1, a6, a3, SP[a2, a5], a4, n] + S2[a3, n]*S2[a1, a6, a4, a2, a5, n] + 
    S2[a1, a6, a4, a2, SP[a3, a5], n] - S2[a2, n]*S2[a1, a6, a4, a3, a5, n] - 
    S2[a1, a6, a4, a3, SP[a2, a5], n] + S2[a3, n]*S2[a1, a6, a4, a5, a2, n] - 
    S2[a2, n]*S2[a1, a6, a4, a5, a3, n] - S2[a1, a6, a4, SP[a2, a5], a3, n] + 
    S2[a1, a6, a4, SP[a3, a5], a2, n] + S2[a4, n]*S2[a1, a6, a5, a2, a3, n] + 
    S2[a1, a6, a5, a2, SP[a3, a4], n] - S2[a2, n]*S2[a1, a6, a5, a3, a4, n] - 
    S2[a1, a6, a5, a3, SP[a2, a4], n] - S2[a2, n]*S2[a1, a6, a5, a4, a3, n] - 
    S2[a1, a6, a5, a4, SP[a2, a3], n] - S2[a1, a6, a5, SP[a2, a3], a4, n] - 
    S2[a1, a6, SP[a2, a3], a5, a4, n] - S2[a1, a6, SP[a2, a5], a3, a4, n] - 
    S2[a1, a6, SP[a2, a5], a4, a3, n] + S2[a1, a6, SP[a3, a4], a2, a5, n] + 
    S2[a1, a6, SP[a3, a4], a5, a2, n] + S2[a1, a6, SP[a4, a5], a2, a3, n] - 
    S2[a1, SP[a2, a3], a5, a4, a6, n] - S2[a1, SP[a2, a3], a5, a6, a4, n] - 
    S2[a1, SP[a2, a3], a6, a4, a5, n] - S2[a1, SP[a2, a3], a6, a5, a4, n] - 
    S2[a1, SP[a2, a6], a3, a4, a5, n] - S2[a1, SP[a2, a6], a3, a5, a4, n] - 
    S2[a1, SP[a2, a6], a4, a3, a5, n] - S2[a1, SP[a2, a6], a4, a5, a3, n] - 
    S2[a1, SP[a2, a6], a5, a3, a4, n] - S2[a1, SP[a2, a6], a5, a4, a3, n] + 
    S2[a1, SP[a3, a6], a2, a4, a5, n] + S2[a1, SP[a3, a6], a2, a5, a4, n] + 
    S2[a1, SP[a3, a6], a4, a2, a5, n] + S2[a1, SP[a3, a6], a4, a5, a2, n] + 
    S2[a1, SP[a3, a6], a5, a2, a4, n] + S2[a1, SP[a3, a6], a5, a4, a2, n] + 
    S2[a1, SP[a4, a6], a2, a3, a5, n] + S2[a1, SP[a4, a6], a2, a5, a3, n] + 
    S2[a1, SP[a4, a6], a5, a2, a3, n] + S2[a1, SP[a5, a6], a3, a2, a4, n] + 
    S2[a1, SP[a5, a6], a3, a4, a2, n] + S2[a1, SP[a5, a6], a4, a3, a2, n] + 
    S2[a2, a1, a3, a6, SP[a4, a5], n] + S2[a2, a1, a3, SP[a5, a6], a4, n] + 
    S2[a2, a1, a5, a4, SP[a3, a6], n] + S2[a2, a1, a5, SP[a3, a4], a6, n] + 
    S2[a2, a1, a6, a3, SP[a4, a5], n] + S2[a2, a1, a6, a4, SP[a3, a5], n] + 
    S2[a2, a1, a6, SP[a3, a5], a4, n] + S2[a2, a1, a6, SP[a4, a5], a3, n] + 
    S2[a2, a1, SP[a3, a5], a4, a6, n] + S2[a2, a1, SP[a3, a5], a6, a4, n] + 
    S2[a2, a1, SP[a5, a6], a3, a4, n] + S2[a2, a1, SP[a5, a6], a4, a3, n] - 
    S2[a6, n]*S2[a2, a3, a1, a5, a4, n] - S2[a2, a3, a1, a5, SP[a4, a6], n] + 
    S2[a2, a3, a1, a6, SP[a4, a5], n] + S2[a2, a3, a6, a1, SP[a4, a5], n] + 
    S2[a2, a3, a6, SP[a1, a4], a5, n] + S2[a2, a3, SP[a1, a6], a4, a5, n] - 
    S2[a4, n]*S2[a2, a6, a1, a3, a5, n] - 
    S2[a3, n]*S2[a2, a6, a1, a4, a5, n] - 
    S2[a4, n]*S2[a2, a6, a1, a5, a3, n] - S2[a2, a6, a1, a5, SP[a3, a4], n] - 
    2*S2[a2, a6, a1, SP[a3, a4], a5, n] + S2[a2, a6, a1, SP[a3, a5], a4, n] + 
    S2[a2, a6, a3, a1, SP[a4, a5], n] + S2[a2, a6, a3, SP[a1, a4], a5, n] - 
    S2[a3, n]*S2[a2, a6, a4, a1, a5, n] + S2[a2, a6, SP[a1, a3], a5, a4, n] - 
    S2[a2, a6, SP[a3, a4], a1, a5, n] + S2[a2, SP[a1, a3], a5, a4, a6, n] + 
    S2[a2, SP[a1, a3], a5, a6, a4, n] + S2[a2, SP[a1, a3], a6, a4, a5, n] + 
    S2[a2, SP[a1, a3], a6, a5, a4, n] + S2[a2, SP[a1, a6], a3, a4, a5, n] + 
    S2[a2, SP[a1, a6], a3, a5, a4, n] + S2[a2, SP[a1, a6], a4, a3, a5, n] + 
    S2[a2, SP[a1, a6], a4, a5, a3, n] + S2[a2, SP[a1, a6], a5, a3, a4, n] + 
    S2[a2, SP[a1, a6], a5, a4, a3, n] - S2[a2, SP[a3, a6], a1, a4, a5, n] - 
    S2[a2, SP[a3, a6], a1, a5, a4, n] - S2[a2, SP[a3, a6], a4, a1, a5, n] - 
    S2[a2, SP[a4, a6], a1, a3, a5, n] - S2[a2, SP[a4, a6], a1, a5, a3, n] - 
    S2[a2, n]*S2[a3, a1, a6, a4, a5, n] - S2[a3, a1, a6, a4, SP[a2, a5], n] - 
    S2[a3, a1, a6, SP[a2, a4], a5, n] - S2[a3, a1, SP[a2, a6], a4, a5, n] + 
    S2[a1, n]*S2[a3, a2, a6, a4, a5, n] + S2[a3, a2, a6, a4, SP[a1, a5], n] + 
    S2[a3, a2, a6, SP[a1, a4], a5, n] + S2[a3, a2, SP[a1, a6], a4, a5, n] - 
    S2[a4, a1, a6, a2, SP[a3, a5], n] - S2[a4, a1, a6, SP[a2, a5], a3, n] - 
    S2[a4, a1, SP[a5, a6], a2, a3, n] - S2[a4, a6, a1, a2, SP[a3, a5], n] + 
    S2[a2, n]*S2[a4, a6, a1, a3, a5, n] + S2[a4, a6, a1, a3, SP[a2, a5], n] + 
    S2[a2, n]*S2[a4, a6, a1, a5, a3, n] + S2[a4, a6, a1, a5, SP[a2, a3], n] + 
    S2[a4, a6, a1, SP[a2, a3], a5, n] - S2[a4, a6, a2, a1, SP[a3, a5], n] - 
    S2[a4, a6, a2, SP[a1, a3], a5, n] - S2[a4, SP[a1, a6], a2, a3, a5, n] - 
    S2[a4, SP[a1, a6], a2, a5, a3, n] - S2[a4, SP[a1, a6], a5, a2, a3, n] + 
    S2[a4, SP[a2, a6], a1, a3, a5, n] + S2[a4, SP[a2, a6], a1, a5, a3, n] - 
    S2[a4, n]*S2[a6, a1, a3, a2, a5, n] - S2[a6, a1, a3, a2, SP[a4, a5], n] + 
    S2[a2, n]*S2[a6, a1, a3, a4, a5, n] + S2[a6, a1, a3, a4, SP[a2, a5], n] - 
    S2[a4, n]*S2[a6, a1, a3, a5, a2, n] - S2[a6, a1, a3, a5, SP[a2, a4], n] - 
    S2[a6, a1, a3, SP[a4, a5], a2, n] + S2[a2, n]*S2[a6, a1, a4, a3, a5, n] + 
    S2[a6, a1, a4, a3, SP[a2, a5], n] + S2[a2, n]*S2[a6, a1, a4, a5, a3, n] + 
    S2[a6, a1, a4, a5, SP[a2, a3], n] + S2[a6, a1, a4, SP[a2, a3], a5, n] + 
    S2[a6, a1, a4, SP[a2, a5], a3, n] - S2[a4, n]*S2[a6, a1, a5, a3, a2, n] - 
    S2[a6, a1, a5, a3, SP[a2, a4], n] - S2[a6, a1, a5, SP[a3, a4], a2, n] + 
    S2[a6, a1, SP[a2, a3], a4, a5, n] + S2[a6, a1, SP[a2, a4], a3, a5, n] + 
    S2[a6, a1, SP[a2, a4], a5, a3, n] - S2[a6, a1, SP[a3, a4], a2, a5, n] - 
    S2[a6, a1, SP[a3, a4], a5, a2, n] - S2[a6, a1, SP[a4, a5], a3, a2, n] + 
    S2[a4, n]*S2[a6, a2, a3, a1, a5, n] + S2[a6, a2, a3, a1, SP[a4, a5], n] - 
    S2[a1, n]*S2[a6, a2, a3, a4, a5, n] - S2[a6, a2, a3, a4, SP[a1, a5], n] - 
    S2[a1, n]*S2[a6, a2, a4, a3, a5, n] - S2[a6, a2, a4, a3, SP[a1, a5], n] - 
    S2[a1, n]*S2[a6, a2, a4, a5, a3, n] - S2[a6, a2, a4, a5, SP[a1, a3], n] - 
    S2[a6, a2, a4, SP[a1, a3], a5, n] - S2[a6, a2, a4, SP[a1, a5], a3, n] - 
    S2[a6, a2, SP[a1, a3], a4, a5, n] - S2[a6, a2, SP[a1, a4], a3, a5, n] - 
    S2[a6, a2, SP[a1, a4], a5, a3, n] + S2[a6, a2, SP[a3, a4], a1, a5, n] + 
    S2[a2, n]*S2[a6, a4, a1, a3, a5, n] + S2[a6, a4, a1, a3, SP[a2, a5], n] + 
    S2[a2, n]*S2[a6, a4, a1, a5, a3, n] + S2[a6, a4, a1, a5, SP[a2, a3], n] + 
    S2[a6, a4, a1, SP[a2, a3], a5, n] + S2[a6, a4, a1, SP[a2, a5], a3, n] - 
    S2[a1, n]*S2[a6, a4, a2, a3, a5, n] - S2[a6, a4, a2, a3, SP[a1, a5], n] - 
    S2[a1, n]*S2[a6, a4, a2, a5, a3, n] - S2[a6, a4, a2, a5, SP[a1, a3], n] - 
    S2[a6, a4, a2, SP[a1, a3], a5, n] - S2[a6, a4, a2, SP[a1, a5], a3, n] - 
    S2[a1, n]*S2[a6, a4, a5, a2, a3, n] - S2[a6, a4, a5, a2, SP[a1, a3], n] - 
    S2[a6, a4, a5, SP[a1, a2], a3, n] - S2[a6, a4, SP[a1, a5], a2, a3, n] - 
    S2[a6, SP[a1, a4], a2, a3, a5, n] - S2[a6, SP[a1, a4], a2, a5, a3, n] - 
    S2[a6, SP[a1, a4], a3, a2, a5, n] - S2[a6, SP[a1, a4], a3, a5, a2, n] - 
    S2[a6, SP[a1, a4], a5, a2, a3, n] - S2[a6, SP[a1, a4], a5, a3, a2, n] + 
    S2[a6, SP[a2, a4], a1, a3, a5, n] + S2[a6, SP[a2, a4], a1, a5, a3, n] + 
    S2[a6, SP[a2, a4], a3, a1, a5, n] + S2[SP[a1, a3], a2, a6, a4, a5, n] + 
    S2[SP[a1, a3], a6, a2, a4, a5, n] + S2[SP[a1, a3], a6, a4, a2, a5, n] + 
    S2[SP[a1, a3], a6, a4, a5, a2, n] - S2[SP[a1, a6], a2, a3, a4, a5, n] - 
    S2[SP[a1, a6], a2, a4, a3, a5, n] - S2[SP[a1, a6], a2, a4, a5, a3, n] + 
    S2[SP[a1, a6], a3, a2, a5, a4, n] + S2[SP[a1, a6], a3, a5, a2, a4, n] + 
    S2[SP[a1, a6], a3, a5, a4, a2, n] - S2[SP[a1, a6], a4, a2, a3, a5, n] - 
    S2[SP[a1, a6], a4, a2, a5, a3, n] - S2[SP[a1, a6], a4, a5, a2, a3, n] + 
    S2[SP[a1, a6], a5, a3, a2, a4, n] + S2[SP[a1, a6], a5, a3, a4, a2, n] + 
    S2[SP[a1, a6], a5, a4, a3, a2, n] - S2[SP[a2, a3], a1, a6, a4, a5, n] - 
    S2[SP[a2, a3], a6, a1, a4, a5, n] - S2[SP[a2, a3], a6, a4, a1, a5, n] + 
    S2[SP[a2, a6], a1, a3, a4, a5, n] + S2[SP[a2, a6], a1, a4, a3, a5, n] + 
    S2[SP[a2, a6], a1, a4, a5, a3, n] - S2[SP[a2, a6], a3, a1, a5, a4, n] + 
    S2[SP[a2, a6], a4, a1, a3, a5, n] + S2[SP[a2, a6], a4, a1, a5, a3, n] - 
    S2[SP[a4, a6], a1, a3, a2, a5, n] - S2[SP[a4, a6], a1, a3, a5, a2, n] - 
    S2[SP[a4, a6], a1, a5, a3, a2, n] + S2[SP[a4, a6], a2, a3, a1, a5, n] + 
    S2[a6, a2, a3, a4, a5, a1, n] + S2[a6, a2, a4, a3, a5, a1, n] + 
    S2[a6, a2, a4, a5, a1, a3, n] + S2[a6, a2, a4, a5, a3, a1, n] + 
    S2[a6, a4, a2, a3, a5, a1, n] + S2[a6, a4, a2, a5, a1, a3, n] + 
    S2[a6, a4, a2, a5, a3, a1, n] + S2[a6, a4, a5, a1, a2, a3, n] + 
    S2[a6, a4, a5, a2, a1, a3, n] + S2[a6, a4, a5, a2, a3, a1, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a3_, a2_, a6_, a5_, a1_, a4_, n_] :> 
  -(S2[a2, a3, n]*S2[a1, a4, a5, a6, n]) + S2[a1, a4, SP[a2, a5], SP[a3, a6], 
     n] - S2[a2, a3, n]*S2[a1, a5, a4, a6, n] - 
    S2[a2, a3, n]*S2[a1, a5, a6, a4, n] + S2[a1, a5, SP[a2, a4], SP[a3, a6], 
     n] + S2[a1, a5, SP[a2, a6], SP[a3, a4], n] + S2[a1, SP[a2, a4], a5, 
     SP[a3, a6], n] + S2[a1, SP[a2, a4], SP[a3, a5], a6, n] + 
    S2[a1, SP[a2, a5], a4, SP[a3, a6], n] + S2[a1, SP[a2, a5], a6, 
     SP[a3, a4], n] + S2[a1, SP[a2, a5], SP[a3, a4], a6, n] + 
    S2[a1, SP[a2, a5], SP[a3, a6], a4, n] - S2[a1, a4, n]*
     S2[a2, a3, a6, a5, n] + S2[a2, a3, SP[a1, a6], SP[a4, a5], n] - 
    S2[a1, a4, n]*S2[a2, a6, a3, a5, n] - S2[a1, a4, n]*
     S2[a2, a6, a5, a3, n] + S2[a2, a6, SP[a1, a3], SP[a4, a5], n] + 
    S2[a2, a6, SP[a1, a5], SP[a3, a4], n] + S2[a2, SP[a1, a3], a6, 
     SP[a4, a5], n] + S2[a2, SP[a1, a3], SP[a4, a6], a5, n] + 
    S2[a2, SP[a1, a6], a3, SP[a4, a5], n] + S2[a2, SP[a1, a6], a5, 
     SP[a3, a4], n] + S2[a2, SP[a1, a6], SP[a3, a4], a5, n] + 
    S2[a2, SP[a1, a6], SP[a4, a5], a3, n] + S2[a1, a4, n]*
     S2[a5, a6, a2, a3, n] - S2[a5, a6, SP[a1, a2], SP[a3, a4], n] - 
    S2[a5, SP[a1, a6], a2, SP[a3, a4], n] - S2[a5, SP[a1, a6], SP[a2, a4], 
     a3, n] + S2[SP[a1, a2], a3, a6, SP[a4, a5], n] + 
    S2[SP[a1, a2], a3, SP[a4, a6], a5, n] + S2[SP[a1, a2], a4, a5, 
     SP[a3, a6], n] + S2[SP[a1, a2], a4, SP[a3, a5], a6, n] + 
    S2[SP[a1, a2], a5, a4, SP[a3, a6], n] + S2[SP[a1, a2], a5, a6, 
     SP[a3, a4], n] + S2[SP[a1, a2], a5, SP[a3, a4], a6, n] + 
    S2[SP[a1, a2], a5, SP[a3, a6], a4, n] + S2[SP[a1, a2], a6, a3, 
     SP[a4, a5], n] + S2[SP[a1, a2], a6, a5, SP[a3, a4], n] + 
    S2[SP[a1, a2], a6, SP[a3, a4], a5, n] + S2[SP[a1, a2], a6, SP[a4, a5], 
     a3, n] + S2[SP[a1, a2], SP[a3, a4], a5, a6, n] + 
    S2[SP[a1, a2], SP[a3, a4], a6, a5, n] + S2[SP[a1, a2], SP[a3, a5], a4, 
     a6, n] + S2[SP[a1, a2], SP[a3, a5], a6, a4, n] + 
    S2[SP[a1, a2], SP[a4, a6], a3, a5, n] + S2[SP[a1, a2], SP[a4, a6], a5, 
     a3, n] - S2[SP[a1, a5], a6, a2, SP[a3, a4], n] - 
    S2[SP[a1, a5], a6, SP[a2, a4], a3, n] - S2[SP[a1, a5], SP[a4, a6], a2, 
     a3, n] - S2[a1, a2, a3, a6, SP[a4, a5], n] - S2[a1, a2, a3, SP[a4, a6], 
     a5, n] - S2[a1, a2, a4, a5, SP[a3, a6], n] - S2[a1, a2, a4, SP[a3, a5], 
     a6, n] - S2[a1, a2, a5, a4, SP[a3, a6], n] - 
    S2[a1, a2, a5, a6, SP[a3, a4], n] - S2[a1, a2, a5, SP[a3, a4], a6, n] - 
    S2[a1, a2, a5, SP[a3, a6], a4, n] - S2[a1, a2, a6, a3, SP[a4, a5], n] - 
    S2[a1, a2, a6, a5, SP[a3, a4], n] - S2[a1, a2, a6, SP[a3, a4], a5, n] - 
    S2[a1, a2, a6, SP[a4, a5], a3, n] - S2[a1, a2, SP[a3, a4], a5, a6, n] - 
    S2[a1, a2, SP[a3, a4], a6, a5, n] - S2[a1, a2, SP[a3, a5], a4, a6, n] - 
    S2[a1, a2, SP[a3, a5], a6, a4, n] - S2[a1, a2, SP[a4, a6], a3, a5, n] - 
    S2[a1, a2, SP[a4, a6], a5, a3, n] - S2[a6, n]*S2[a1, a3, a2, a4, a5, n] - 
    S2[a1, a3, a2, a4, SP[a5, a6], n] - S2[a6, n]*S2[a1, a3, a2, a5, a4, n] - 
    S2[a1, a3, a2, a5, SP[a4, a6], n] - S2[a1, a3, a2, SP[a4, a6], a5, n] - 
    S2[a1, a3, a2, SP[a5, a6], a4, n] - S2[a6, n]*S2[a1, a3, a4, a2, a5, n] - 
    S2[a1, a3, a4, a2, SP[a5, a6], n] - S2[a6, n]*S2[a1, a3, a4, a5, a2, n] + 
    S2[a2, n]*S2[a1, a3, a4, a5, a6, n] + 
    S2[a2, n]*S2[a1, a3, a4, a6, a5, n] + S2[a1, a3, a4, a6, SP[a2, a5], n] + 
    S2[a1, a3, a4, SP[a2, a5], a6, n] - S2[a1, a3, a4, SP[a5, a6], a2, n] - 
    S2[a6, n]*S2[a1, a3, a5, a2, a4, n] - S2[a1, a3, a5, a2, SP[a4, a6], n] - 
    S2[a6, n]*S2[a1, a3, a5, a4, a2, n] + 
    S2[a2, n]*S2[a1, a3, a5, a4, a6, n] + 
    S2[a2, n]*S2[a1, a3, a5, a6, a4, n] + S2[a1, a3, a5, a6, SP[a2, a4], n] + 
    S2[a1, a3, a5, SP[a2, a4], a6, n] - S2[a1, a3, a5, SP[a4, a6], a2, n] + 
    S2[a2, n]*S2[a1, a3, a6, a4, a5, n] + S2[a1, a3, a6, a4, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a3, a6, a5, a4, n] + S2[a1, a3, a6, a5, SP[a2, a4], n] + 
    S2[a1, a3, a6, SP[a2, a4], a5, n] + S2[a1, a3, a6, SP[a2, a5], a4, n] + 
    S2[a1, a3, SP[a2, a4], a5, a6, n] + S2[a1, a3, SP[a2, a4], a6, a5, n] + 
    S2[a1, a3, SP[a2, a5], a4, a6, n] + S2[a1, a3, SP[a2, a5], a6, a4, n] - 
    S2[a1, a3, SP[a4, a6], a2, a5, n] - S2[a1, a3, SP[a4, a6], a5, a2, n] - 
    S2[a1, a3, SP[a5, a6], a2, a4, n] - S2[a1, a3, SP[a5, a6], a4, a2, n] - 
    S2[a1, a4, a2, a5, SP[a3, a6], n] - S2[a1, a4, a2, SP[a3, a5], a6, n] - 
    S2[a6, n]*S2[a1, a4, a3, a2, a5, n] - S2[a1, a4, a3, a2, SP[a5, a6], n] - 
    S2[a6, n]*S2[a1, a4, a3, a5, a2, n] + 
    S2[a2, n]*S2[a1, a4, a3, a5, a6, n] + 
    S2[a2, n]*S2[a1, a4, a3, a6, a5, n] + S2[a1, a4, a3, a6, SP[a2, a5], n] + 
    S2[a1, a4, a3, SP[a2, a5], a6, n] - S2[a1, a4, a3, SP[a5, a6], a2, n] - 
    S2[a1, a4, a5, a2, SP[a3, a6], n] - S2[a6, n]*S2[a1, a4, a5, a3, a2, n] + 
    S2[a2, n]*S2[a1, a4, a5, a3, a6, n] + 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] + S2[a1, a4, a5, a6, SP[a2, a3], n] + 
    S2[a1, a4, a5, SP[a2, a3], a6, n] - S2[a1, a4, a5, SP[a3, a6], a2, n] - 
    S2[a5, n]*S2[a1, a4, a6, a2, a3, n] - S2[a1, a4, a6, a2, SP[a3, a5], n] + 
    S2[a2, n]*S2[a1, a4, a6, a3, a5, n] + S2[a1, a4, a6, a3, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a4, a6, a5, a3, n] + S2[a1, a4, a6, a5, SP[a2, a3], n] + 
    S2[a1, a4, a6, SP[a2, a3], a5, n] + S2[a1, a4, SP[a2, a3], a5, a6, n] + 
    S2[a1, a4, SP[a2, a3], a6, a5, n] + S2[a1, a4, SP[a2, a6], a3, a5, n] + 
    S2[a1, a4, SP[a2, a6], a5, a3, n] - S2[a1, a4, SP[a3, a6], a2, a5, n] - 
    S2[a1, a4, SP[a3, a6], a5, a2, n] - S2[a1, a4, SP[a5, a6], a2, a3, n] - 
    S2[a1, a4, SP[a5, a6], a3, a2, n] - S2[a1, a5, a2, a4, SP[a3, a6], n] - 
    S2[a1, a5, a2, a6, SP[a3, a4], n] - S2[a1, a5, a2, SP[a3, a4], a6, n] - 
    S2[a1, a5, a2, SP[a3, a6], a4, n] - S2[a6, n]*S2[a1, a5, a3, a2, a4, n] - 
    S2[a1, a5, a3, a2, SP[a4, a6], n] - S2[a6, n]*S2[a1, a5, a3, a4, a2, n] + 
    S2[a2, n]*S2[a1, a5, a3, a4, a6, n] + 
    S2[a2, n]*S2[a1, a5, a3, a6, a4, n] + S2[a1, a5, a3, a6, SP[a2, a4], n] + 
    S2[a1, a5, a3, SP[a2, a4], a6, n] - S2[a1, a5, a3, SP[a4, a6], a2, n] - 
    S2[a1, a5, a4, a2, SP[a3, a6], n] - S2[a6, n]*S2[a1, a5, a4, a3, a2, n] + 
    S2[a2, n]*S2[a1, a5, a4, a3, a6, n] + 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] + S2[a1, a5, a4, a6, SP[a2, a3], n] + 
    S2[a1, a5, a4, SP[a2, a3], a6, n] - S2[a1, a5, a4, SP[a3, a6], a2, n] + 
    S2[a2, n]*S2[a1, a5, a6, a3, a4, n] + S2[a1, a5, a6, a3, SP[a2, a4], n] + 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] + S2[a1, a5, a6, a4, SP[a2, a3], n] + 
    S2[a1, a5, a6, SP[a2, a3], a4, n] + S2[a1, a5, a6, SP[a2, a4], a3, n] + 
    S2[a1, a5, SP[a2, a3], a4, a6, n] + S2[a1, a5, SP[a2, a3], a6, a4, n] - 
    S2[a1, a5, SP[a3, a6], a2, a4, n] - S2[a1, a5, SP[a3, a6], a4, a2, n] + 
    S2[a1, a5, SP[a4, a6], a2, a3, n] - S2[a1, a5, SP[a4, a6], a3, a2, n] - 
    S2[a5, n]*S2[a1, a6, a2, a3, a4, n] - S2[a1, a6, a2, a3, SP[a4, a5], n] - 
    S2[a5, n]*S2[a1, a6, a2, a4, a3, n] - S2[a1, a6, a2, a4, SP[a3, a5], n] - 
    S2[a1, a6, a2, SP[a3, a5], a4, n] - S2[a1, a6, a2, SP[a4, a5], a3, n] + 
    S2[a2, n]*S2[a1, a6, a3, a4, a5, n] + S2[a1, a6, a3, a4, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a6, a3, a5, a4, n] + S2[a1, a6, a3, a5, SP[a2, a4], n] + 
    S2[a1, a6, a3, SP[a2, a4], a5, n] + S2[a1, a6, a3, SP[a2, a5], a4, n] - 
    S2[a5, n]*S2[a1, a6, a4, a2, a3, n] - S2[a1, a6, a4, a2, SP[a3, a5], n] + 
    S2[a2, n]*S2[a1, a6, a4, a3, a5, n] + S2[a1, a6, a4, a3, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a6, a4, a5, a3, n] + S2[a1, a6, a4, a5, SP[a2, a3], n] + 
    S2[a1, a6, a4, SP[a2, a3], a5, n] + S2[a2, n]*S2[a1, a6, a5, a3, a4, n] + 
    S2[a1, a6, a5, a3, SP[a2, a4], n] + S2[a2, n]*S2[a1, a6, a5, a4, a3, n] + 
    S2[a1, a6, a5, a4, SP[a2, a3], n] + S2[a1, a6, a5, SP[a2, a3], a4, n] + 
    S2[a1, a6, a5, SP[a2, a4], a3, n] + S2[a1, a6, SP[a2, a3], a4, a5, n] + 
    S2[a1, a6, SP[a2, a3], a5, a4, n] + S2[a1, a6, SP[a2, a4], a3, a5, n] + 
    S2[a1, a6, SP[a2, a4], a5, a3, n] - S2[a1, a6, SP[a4, a5], a2, a3, n] + 
    S2[a1, SP[a2, a3], a4, a5, a6, n] + S2[a1, SP[a2, a3], a4, a6, a5, n] + 
    S2[a1, SP[a2, a3], a5, a4, a6, n] + S2[a1, SP[a2, a3], a5, a6, a4, n] + 
    S2[a1, SP[a2, a3], a6, a4, a5, n] + S2[a1, SP[a2, a3], a6, a5, a4, n] + 
    S2[a1, SP[a2, a6], a3, a4, a5, n] + S2[a1, SP[a2, a6], a3, a5, a4, n] + 
    S2[a1, SP[a2, a6], a4, a3, a5, n] + S2[a1, SP[a2, a6], a4, a5, a3, n] + 
    S2[a1, SP[a2, a6], a5, a3, a4, n] + S2[a1, SP[a2, a6], a5, a4, a3, n] - 
    S2[a1, SP[a3, a6], a2, a4, a5, n] - S2[a1, SP[a3, a6], a2, a5, a4, n] - 
    S2[a1, SP[a3, a6], a4, a2, a5, n] - S2[a1, SP[a3, a6], a4, a5, a2, n] - 
    S2[a1, SP[a3, a6], a5, a2, a4, n] - S2[a1, SP[a3, a6], a5, a4, a2, n] - 
    S2[a1, SP[a4, a6], a3, a2, a5, n] - S2[a1, SP[a4, a6], a3, a5, a2, n] - 
    S2[a1, SP[a4, a6], a5, a3, a2, n] - S2[a1, SP[a5, a6], a2, a3, a4, n] - 
    S2[a1, SP[a5, a6], a2, a4, a3, n] - S2[a1, SP[a5, a6], a3, a2, a4, n] - 
    S2[a1, SP[a5, a6], a3, a4, a2, n] - S2[a1, SP[a5, a6], a4, a2, a3, n] - 
    S2[a1, SP[a5, a6], a4, a3, a2, n] - S2[a2, a1, a3, a6, SP[a4, a5], n] - 
    S2[a2, a1, a3, SP[a4, a6], a5, n] - S2[a2, a1, a4, a5, SP[a3, a6], n] - 
    S2[a2, a1, a4, SP[a3, a5], a6, n] - S2[a2, a1, a5, a4, SP[a3, a6], n] - 
    S2[a2, a1, a5, a6, SP[a3, a4], n] - S2[a2, a1, a5, SP[a3, a4], a6, n] - 
    S2[a2, a1, a5, SP[a3, a6], a4, n] - S2[a2, a1, a6, a3, SP[a4, a5], n] - 
    S2[a2, a1, a6, a5, SP[a3, a4], n] - S2[a2, a1, a6, SP[a3, a4], a5, n] - 
    S2[a2, a1, a6, SP[a4, a5], a3, n] - S2[a2, a1, SP[a3, a4], a5, a6, n] - 
    S2[a2, a1, SP[a3, a4], a6, a5, n] - S2[a2, a1, SP[a3, a5], a4, a6, n] - 
    S2[a2, a1, SP[a3, a5], a6, a4, n] - S2[a2, a1, SP[a4, a6], a3, a5, n] - 
    S2[a2, a1, SP[a4, a6], a5, a3, n] + S2[a6, n]*S2[a2, a3, a1, a4, a5, n] + 
    S2[a2, a3, a1, a4, SP[a5, a6], n] + S2[a6, n]*S2[a2, a3, a1, a5, a4, n] + 
    S2[a2, a3, a1, a5, SP[a4, a6], n] - S2[a2, a3, a1, a6, SP[a4, a5], n] + 
    S2[a2, a3, a1, SP[a5, a6], a4, n] - S2[a2, a3, a6, a1, SP[a4, a5], n] - 
    S2[a2, a3, a6, SP[a1, a5], a4, n] + S2[a5, n]*S2[a2, a6, a1, a3, a4, n] + 
    S2[a5, n]*S2[a2, a6, a1, a4, a3, n] + S2[a2, a6, a1, a4, SP[a3, a5], n] - 
    S2[a2, a6, a1, a5, SP[a3, a4], n] - S2[a2, a6, a1, SP[a3, a4], a5, n] + 
    S2[a2, a6, a1, SP[a3, a5], a4, n] - S2[a2, a6, a3, a1, SP[a4, a5], n] - 
    S2[a2, a6, a3, SP[a1, a5], a4, n] + S2[a3, n]*S2[a2, a6, a5, a1, a4, n] - 
    S2[a2, a6, SP[a1, a3], a4, a5, n] - S2[a2, a6, SP[a1, a3], a5, a4, n] + 
    S2[a2, a6, SP[a3, a5], a1, a4, n] - S2[a2, SP[a1, a3], a4, a5, a6, n] - 
    S2[a2, SP[a1, a3], a4, a6, a5, n] - S2[a2, SP[a1, a3], a5, a4, a6, n] - 
    S2[a2, SP[a1, a3], a5, a6, a4, n] - S2[a2, SP[a1, a3], a6, a4, a5, n] - 
    S2[a2, SP[a1, a3], a6, a5, a4, n] - S2[a2, SP[a1, a6], a3, a4, a5, n] - 
    S2[a2, SP[a1, a6], a3, a5, a4, n] - S2[a2, SP[a1, a6], a4, a3, a5, n] - 
    S2[a2, SP[a1, a6], a4, a5, a3, n] - S2[a2, SP[a1, a6], a5, a3, a4, n] - 
    S2[a2, SP[a1, a6], a5, a4, a3, n] + S2[a2, SP[a3, a6], a1, a4, a5, n] + 
    S2[a2, SP[a3, a6], a1, a5, a4, n] + S2[a2, SP[a3, a6], a5, a1, a4, n] + 
    S2[a2, SP[a5, a6], a1, a3, a4, n] + S2[a2, SP[a5, a6], a1, a4, a3, n] + 
    S2[a5, a1, a6, a2, SP[a3, a4], n] + S2[a5, a1, a6, SP[a2, a4], a3, n] + 
    S2[a5, a1, SP[a4, a6], a2, a3, n] + S2[a5, a6, a1, a2, SP[a3, a4], n] - 
    S2[a2, n]*S2[a5, a6, a1, a3, a4, n] - S2[a5, a6, a1, a3, SP[a2, a4], n] - 
    S2[a2, n]*S2[a5, a6, a1, a4, a3, n] - S2[a5, a6, a1, a4, SP[a2, a3], n] - 
    S2[a5, a6, a1, SP[a2, a3], a4, n] + S2[a5, a6, a2, a1, SP[a3, a4], n] + 
    S2[a5, a6, a2, SP[a1, a3], a4, n] + S2[a5, SP[a1, a6], a2, a3, a4, n] + 
    S2[a5, SP[a1, a6], a2, a4, a3, n] + S2[a5, SP[a1, a6], a4, a2, a3, n] - 
    S2[a5, SP[a2, a6], a1, a3, a4, n] - S2[a5, SP[a2, a6], a1, a4, a3, n] + 
    S2[a5, n]*S2[a6, a1, a3, a2, a4, n] + S2[a6, a1, a3, a2, SP[a4, a5], n] + 
    S2[a5, n]*S2[a6, a1, a3, a4, a2, n] + S2[a6, a1, a3, a4, SP[a2, a5], n] + 
    S2[a6, a1, a3, SP[a2, a5], a4, n] + S2[a6, a1, a3, SP[a4, a5], a2, n] + 
    S2[a5, n]*S2[a6, a1, a4, a3, a2, n] + S2[a6, a1, a4, a3, SP[a2, a5], n] + 
    S2[a6, a1, a4, SP[a3, a5], a2, n] + S2[a6, a1, SP[a3, a5], a2, a4, n] + 
    S2[a6, a1, SP[a3, a5], a4, a2, n] + S2[a6, a1, SP[a4, a5], a3, a2, n] - 
    S2[a5, n]*S2[a6, a2, a3, a1, a4, n] - S2[a6, a2, a3, a1, SP[a4, a5], n] - 
    S2[a6, a2, a3, SP[a1, a5], a4, n] - S2[a6, a2, SP[a3, a5], a1, a4, n] - 
    S2[a2, n]*S2[a6, a5, a1, a3, a4, n] - S2[a6, a5, a1, a3, SP[a2, a4], n] - 
    S2[a2, n]*S2[a6, a5, a1, a4, a3, n] - S2[a6, a5, a1, a4, SP[a2, a3], n] - 
    S2[a6, a5, a1, SP[a2, a3], a4, n] - S2[a6, a5, a1, SP[a2, a4], a3, n] - 
    S2[a6, a5, SP[a1, a2], a3, a4, n] - S2[a6, a5, SP[a1, a2], a4, a3, n] + 
    S2[a6, SP[a1, a5], a3, a2, a4, n] + S2[a6, SP[a1, a5], a3, a4, a2, n] + 
    S2[a6, SP[a1, a5], a4, a3, a2, n] - S2[a6, SP[a2, a5], a1, a3, a4, n] - 
    S2[a6, SP[a2, a5], a1, a4, a3, n] - S2[a6, SP[a2, a5], a3, a1, a4, n] - 
    S2[SP[a1, a6], a3, a2, a4, a5, n] - S2[SP[a1, a6], a3, a2, a5, a4, n] - 
    S2[SP[a1, a6], a3, a4, a2, a5, n] - S2[SP[a1, a6], a3, a4, a5, a2, n] - 
    S2[SP[a1, a6], a3, a5, a2, a4, n] - S2[SP[a1, a6], a3, a5, a4, a2, n] - 
    S2[SP[a1, a6], a4, a3, a2, a5, n] - S2[SP[a1, a6], a4, a3, a5, a2, n] - 
    S2[SP[a1, a6], a4, a5, a3, a2, n] - S2[SP[a1, a6], a5, a3, a2, a4, n] - 
    S2[SP[a1, a6], a5, a3, a4, a2, n] - S2[SP[a1, a6], a5, a4, a3, a2, n] + 
    S2[SP[a2, a3], a6, a5, a1, a4, n] + S2[SP[a2, a6], a3, a1, a4, a5, n] + 
    S2[SP[a2, a6], a3, a1, a5, a4, n] - S2[SP[a2, a6], a5, a1, a3, a4, n] - 
    S2[SP[a2, a6], a5, a1, a4, a3, n] + S2[SP[a5, a6], a1, a3, a2, a4, n] + 
    S2[SP[a5, a6], a1, a3, a4, a2, n] + S2[SP[a5, a6], a1, a4, a3, a2, n] - 
    S2[SP[a5, a6], a2, a3, a1, a4, n] + S2[a6, a2, a3, a5, a1, a4, n] + 
    S2[a6, a2, a5, a1, a3, a4, n] + S2[a6, a2, a5, a1, a4, a3, n] + 
    S2[a6, a2, a5, a3, a1, a4, n] + S2[a6, a5, a1, a2, a3, a4, n] + 
    S2[a6, a5, a1, a2, a4, a3, n] + S2[a6, a5, a1, a4, a2, a3, n] + 
    S2[a6, a5, a2, a1, a3, a4, n] + S2[a6, a5, a2, a1, a4, a3, n] + 
    S2[a6, a5, a2, a3, a1, a4, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a3_, a2_, a6_, a5_, a4_, a1_, n_] :> 
  S2[a2, a3, n]*S2[a1, a4, a5, a6, n] - S2[a1, a4, SP[a2, a5], SP[a3, a6], 
     n] - S2[a1, SP[a2, a4], a5, SP[a3, a6], n] - 
    S2[a1, SP[a2, a4], SP[a3, a5], a6, n] + S2[a1, a4, n]*
     S2[a2, a3, a6, a5, n] - S2[a2, a3, SP[a1, a6], SP[a4, a5], n] + 
    S2[a1, a4, n]*S2[a2, a6, a3, a5, n] + S2[a1, a4, n]*
     S2[a2, a6, a5, a3, n] - S2[a2, a6, SP[a1, a3], SP[a4, a5], n] - 
    S2[a2, a6, SP[a1, a5], SP[a3, a4], n] - S2[a2, SP[a1, a3], a6, 
     SP[a4, a5], n] - S2[a2, SP[a1, a3], SP[a4, a6], a5, n] - 
    S2[a2, SP[a1, a6], a3, SP[a4, a5], n] - S2[a2, SP[a1, a6], a5, 
     SP[a3, a4], n] - S2[a2, SP[a1, a6], SP[a3, a4], a5, n] - 
    S2[a2, SP[a1, a6], SP[a4, a5], a3, n] - S2[a1, a4, n]*
     S2[a5, a6, a2, a3, n] + S2[a5, a6, SP[a1, a2], SP[a3, a4], n] + 
    S2[a5, SP[a1, a6], a2, SP[a3, a4], n] + S2[a5, SP[a1, a6], SP[a2, a4], 
     a3, n] - S2[SP[a1, a2], a3, a6, SP[a4, a5], n] - 
    S2[SP[a1, a2], a3, SP[a4, a6], a5, n] - S2[SP[a1, a2], a4, a5, 
     SP[a3, a6], n] - S2[SP[a1, a2], a4, SP[a3, a5], a6, n] - 
    S2[SP[a1, a2], a6, a3, SP[a4, a5], n] - S2[SP[a1, a2], a6, a5, 
     SP[a3, a4], n] - S2[SP[a1, a2], a6, SP[a3, a4], a5, n] - 
    S2[SP[a1, a2], a6, SP[a4, a5], a3, n] - S2[SP[a1, a2], SP[a3, a4], a5, 
     a6, n] - S2[SP[a1, a2], SP[a3, a4], a6, a5, n] - 
    S2[SP[a1, a2], SP[a4, a6], a3, a5, n] - S2[SP[a1, a2], SP[a4, a6], a5, 
     a3, n] + S2[SP[a1, a5], a6, a2, SP[a3, a4], n] + 
    S2[SP[a1, a5], a6, SP[a2, a4], a3, n] + S2[SP[a1, a5], SP[a4, a6], a2, 
     a3, n] + S2[a1, a2, a3, a6, SP[a4, a5], n] + S2[a1, a2, a3, SP[a4, a6], 
     a5, n] + S2[a1, a2, a4, a5, SP[a3, a6], n] + S2[a1, a2, a4, SP[a3, a5], 
     a6, n] + S2[a1, a2, a6, a3, SP[a4, a5], n] + 
    S2[a1, a2, a6, a5, SP[a3, a4], n] + S2[a1, a2, a6, SP[a3, a4], a5, n] + 
    S2[a1, a2, a6, SP[a4, a5], a3, n] + S2[a1, a2, SP[a3, a4], a5, a6, n] + 
    S2[a1, a2, SP[a3, a4], a6, a5, n] + S2[a1, a2, SP[a4, a6], a3, a5, n] + 
    S2[a1, a2, SP[a4, a6], a5, a3, n] + S2[a6, n]*S2[a1, a3, a2, a4, a5, n] + 
    S2[a1, a3, a2, a4, SP[a5, a6], n] + S2[a1, a3, a2, SP[a4, a6], a5, n] + 
    S2[a6, n]*S2[a1, a3, a4, a2, a5, n] + S2[a1, a3, a4, a2, SP[a5, a6], n] + 
    S2[a6, n]*S2[a1, a3, a4, a5, a2, n] - 
    S2[a2, n]*S2[a1, a3, a4, a5, a6, n] - 
    S2[a2, n]*S2[a1, a3, a4, a6, a5, n] - S2[a1, a3, a4, a6, SP[a2, a5], n] - 
    S2[a1, a3, a4, SP[a2, a5], a6, n] + S2[a1, a3, a4, SP[a5, a6], a2, n] - 
    S2[a2, n]*S2[a1, a3, a6, a4, a5, n] - S2[a1, a3, a6, a4, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a3, a6, a5, a4, n] - S2[a1, a3, a6, a5, SP[a2, a4], n] - 
    S2[a1, a3, a6, SP[a2, a4], a5, n] - S2[a1, a3, a6, SP[a2, a5], a4, n] - 
    S2[a1, a3, SP[a2, a4], a5, a6, n] - S2[a1, a3, SP[a2, a4], a6, a5, n] - 
    S2[a1, a3, SP[a2, a6], a5, a4, n] + S2[a1, a3, SP[a4, a6], a2, a5, n] + 
    S2[a1, a3, SP[a4, a6], a5, a2, n] + S2[a1, a4, a2, a5, SP[a3, a6], n] + 
    S2[a1, a4, a2, SP[a3, a5], a6, n] + S2[a6, n]*S2[a1, a4, a3, a2, a5, n] + 
    S2[a1, a4, a3, a2, SP[a5, a6], n] + S2[a6, n]*S2[a1, a4, a3, a5, a2, n] - 
    S2[a2, n]*S2[a1, a4, a3, a5, a6, n] - 
    S2[a2, n]*S2[a1, a4, a3, a6, a5, n] - S2[a1, a4, a3, a6, SP[a2, a5], n] - 
    S2[a1, a4, a3, SP[a2, a5], a6, n] + S2[a1, a4, a3, SP[a5, a6], a2, n] + 
    S2[a1, a4, a5, a2, SP[a3, a6], n] + S2[a6, n]*S2[a1, a4, a5, a3, a2, n] - 
    S2[a2, n]*S2[a1, a4, a5, a3, a6, n] - 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] - S2[a1, a4, a5, a6, SP[a2, a3], n] - 
    S2[a1, a4, a5, SP[a2, a3], a6, n] + S2[a1, a4, a5, SP[a3, a6], a2, n] + 
    S2[a5, n]*S2[a1, a4, a6, a2, a3, n] + S2[a1, a4, a6, a2, SP[a3, a5], n] - 
    S2[a2, n]*S2[a1, a4, a6, a3, a5, n] - S2[a1, a4, a6, a3, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a4, a6, a5, a3, n] - S2[a1, a4, a6, a5, SP[a2, a3], n] - 
    S2[a1, a4, a6, SP[a2, a3], a5, n] - S2[a1, a4, SP[a2, a3], a5, a6, n] - 
    S2[a1, a4, SP[a2, a3], a6, a5, n] - S2[a1, a4, SP[a2, a6], a3, a5, n] - 
    S2[a1, a4, SP[a2, a6], a5, a3, n] + S2[a1, a4, SP[a3, a6], a2, a5, n] + 
    S2[a1, a4, SP[a3, a6], a5, a2, n] + S2[a1, a4, SP[a5, a6], a2, a3, n] + 
    S2[a1, a4, SP[a5, a6], a3, a2, n] - S2[a1, a5, a6, a2, SP[a3, a4], n] - 
    S2[a1, a5, a6, SP[a2, a4], a3, n] - S2[a1, a5, SP[a4, a6], a2, a3, n] + 
    S2[a5, n]*S2[a1, a6, a2, a3, a4, n] + S2[a1, a6, a2, a3, SP[a4, a5], n] + 
    S2[a5, n]*S2[a1, a6, a2, a4, a3, n] + S2[a1, a6, a2, a4, SP[a3, a5], n] + 
    S2[a3, n]*S2[a1, a6, a2, a5, a4, n] + S2[a1, a6, a2, a5, SP[a3, a4], n] + 
    2*S2[a1, a6, a2, SP[a3, a5], a4, n] + S2[a1, a6, a2, SP[a4, a5], a3, n] - 
    S2[a2, n]*S2[a1, a6, a3, a4, a5, n] - S2[a1, a6, a3, a4, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a6, a3, a5, a4, n] - S2[a1, a6, a3, a5, SP[a2, a4], n] - 
    S2[a1, a6, a3, SP[a2, a4], a5, n] - S2[a1, a6, a3, SP[a2, a5], a4, n] + 
    S2[a5, n]*S2[a1, a6, a4, a2, a3, n] + S2[a1, a6, a4, a2, SP[a3, a5], n] - 
    S2[a2, n]*S2[a1, a6, a4, a3, a5, n] - S2[a1, a6, a4, a3, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a6, a4, a5, a3, n] - S2[a1, a6, a4, a5, SP[a2, a3], n] - 
    S2[a1, a6, a4, SP[a2, a3], a5, n] + S2[a3, n]*S2[a1, a6, a5, a2, a4, n] + 
    S2[a1, a6, a5, a2, SP[a3, a4], n] - S2[a2, n]*S2[a1, a6, a5, a3, a4, n] - 
    S2[a1, a6, a5, a3, SP[a2, a4], n] + S2[a3, n]*S2[a1, a6, a5, a4, a2, n] - 
    S2[a2, n]*S2[a1, a6, a5, a4, a3, n] - S2[a1, a6, a5, SP[a2, a4], a3, n] + 
    S2[a1, a6, a5, SP[a3, a4], a2, n] - S2[a1, a6, SP[a2, a3], a4, a5, n] - 
    S2[a1, a6, SP[a2, a4], a3, a5, n] - S2[a1, a6, SP[a2, a4], a5, a3, n] + 
    S2[a1, a6, SP[a3, a5], a2, a4, n] + S2[a1, a6, SP[a3, a5], a4, a2, n] + 
    S2[a1, a6, SP[a4, a5], a2, a3, n] - S2[a1, SP[a2, a3], a4, a5, a6, n] - 
    S2[a1, SP[a2, a3], a4, a6, a5, n] - S2[a1, SP[a2, a3], a6, a4, a5, n] - 
    S2[a1, SP[a2, a3], a6, a5, a4, n] - S2[a1, SP[a2, a6], a3, a4, a5, n] - 
    S2[a1, SP[a2, a6], a3, a5, a4, n] - S2[a1, SP[a2, a6], a4, a3, a5, n] - 
    S2[a1, SP[a2, a6], a4, a5, a3, n] - S2[a1, SP[a2, a6], a5, a3, a4, n] - 
    S2[a1, SP[a2, a6], a5, a4, a3, n] + S2[a1, SP[a3, a6], a2, a4, a5, n] + 
    S2[a1, SP[a3, a6], a2, a5, a4, n] + S2[a1, SP[a3, a6], a4, a2, a5, n] + 
    S2[a1, SP[a3, a6], a4, a5, a2, n] + S2[a1, SP[a3, a6], a5, a2, a4, n] + 
    S2[a1, SP[a3, a6], a5, a4, a2, n] + S2[a1, SP[a4, a6], a3, a2, a5, n] + 
    S2[a1, SP[a4, a6], a3, a5, a2, n] + S2[a1, SP[a4, a6], a5, a3, a2, n] + 
    S2[a1, SP[a5, a6], a2, a3, a4, n] + S2[a1, SP[a5, a6], a2, a4, a3, n] + 
    S2[a1, SP[a5, a6], a4, a2, a3, n] + S2[a2, a1, a3, a6, SP[a4, a5], n] + 
    S2[a2, a1, a3, SP[a4, a6], a5, n] + S2[a2, a1, a4, a5, SP[a3, a6], n] + 
    S2[a2, a1, a4, SP[a3, a5], a6, n] + S2[a2, a1, a6, a3, SP[a4, a5], n] + 
    S2[a2, a1, a6, a5, SP[a3, a4], n] + S2[a2, a1, a6, SP[a3, a4], a5, n] + 
    S2[a2, a1, a6, SP[a4, a5], a3, n] + S2[a2, a1, SP[a3, a4], a5, a6, n] + 
    S2[a2, a1, SP[a3, a4], a6, a5, n] + S2[a2, a1, SP[a4, a6], a3, a5, n] + 
    S2[a2, a1, SP[a4, a6], a5, a3, n] - S2[a6, n]*S2[a2, a3, a1, a4, a5, n] - 
    S2[a2, a3, a1, a4, SP[a5, a6], n] + S2[a2, a3, a1, a6, SP[a4, a5], n] + 
    S2[a2, a3, a6, a1, SP[a4, a5], n] + S2[a2, a3, a6, SP[a1, a5], a4, n] + 
    S2[a2, a3, SP[a1, a6], a5, a4, n] - S2[a5, n]*S2[a2, a6, a1, a3, a4, n] - 
    S2[a5, n]*S2[a2, a6, a1, a4, a3, n] - S2[a2, a6, a1, a4, SP[a3, a5], n] - 
    S2[a3, n]*S2[a2, a6, a1, a5, a4, n] + S2[a2, a6, a1, SP[a3, a4], a5, n] - 
    2*S2[a2, a6, a1, SP[a3, a5], a4, n] + S2[a2, a6, a3, a1, SP[a4, a5], n] + 
    S2[a2, a6, a3, SP[a1, a5], a4, n] - S2[a3, n]*S2[a2, a6, a5, a1, a4, n] + 
    S2[a2, a6, SP[a1, a3], a4, a5, n] - S2[a2, a6, SP[a3, a5], a1, a4, n] + 
    S2[a2, SP[a1, a3], a4, a5, a6, n] + S2[a2, SP[a1, a3], a4, a6, a5, n] + 
    S2[a2, SP[a1, a3], a6, a4, a5, n] + S2[a2, SP[a1, a3], a6, a5, a4, n] + 
    S2[a2, SP[a1, a6], a3, a4, a5, n] + S2[a2, SP[a1, a6], a3, a5, a4, n] + 
    S2[a2, SP[a1, a6], a4, a3, a5, n] + S2[a2, SP[a1, a6], a4, a5, a3, n] + 
    S2[a2, SP[a1, a6], a5, a3, a4, n] + S2[a2, SP[a1, a6], a5, a4, a3, n] - 
    S2[a2, SP[a3, a6], a1, a4, a5, n] - S2[a2, SP[a3, a6], a1, a5, a4, n] - 
    S2[a2, SP[a3, a6], a5, a1, a4, n] - S2[a2, SP[a5, a6], a1, a3, a4, n] - 
    S2[a2, SP[a5, a6], a1, a4, a3, n] - S2[a2, n]*S2[a3, a1, a6, a5, a4, n] - 
    S2[a3, a1, a6, a5, SP[a2, a4], n] - S2[a3, a1, a6, SP[a2, a5], a4, n] - 
    S2[a3, a1, SP[a2, a6], a5, a4, n] + S2[a1, n]*S2[a3, a2, a6, a5, a4, n] + 
    S2[a3, a2, a6, a5, SP[a1, a4], n] + S2[a3, a2, a6, SP[a1, a5], a4, n] + 
    S2[a3, a2, SP[a1, a6], a5, a4, n] - S2[a5, a1, a6, a2, SP[a3, a4], n] - 
    S2[a5, a1, a6, SP[a2, a4], a3, n] - S2[a5, a1, SP[a4, a6], a2, a3, n] - 
    S2[a5, a6, a1, a2, SP[a3, a4], n] + S2[a2, n]*S2[a5, a6, a1, a3, a4, n] + 
    S2[a5, a6, a1, a3, SP[a2, a4], n] + S2[a2, n]*S2[a5, a6, a1, a4, a3, n] + 
    S2[a5, a6, a1, a4, SP[a2, a3], n] + S2[a5, a6, a1, SP[a2, a3], a4, n] - 
    S2[a5, a6, a2, a1, SP[a3, a4], n] - S2[a5, a6, a2, SP[a1, a3], a4, n] - 
    S2[a5, SP[a1, a6], a2, a3, a4, n] - S2[a5, SP[a1, a6], a2, a4, a3, n] - 
    S2[a5, SP[a1, a6], a4, a2, a3, n] + S2[a5, SP[a2, a6], a1, a3, a4, n] + 
    S2[a5, SP[a2, a6], a1, a4, a3, n] - S2[a5, n]*S2[a6, a1, a3, a2, a4, n] - 
    S2[a6, a1, a3, a2, SP[a4, a5], n] - S2[a5, n]*S2[a6, a1, a3, a4, a2, n] - 
    S2[a6, a1, a3, a4, SP[a2, a5], n] + S2[a2, n]*S2[a6, a1, a3, a5, a4, n] + 
    S2[a6, a1, a3, a5, SP[a2, a4], n] - S2[a6, a1, a3, SP[a4, a5], a2, n] - 
    S2[a5, n]*S2[a6, a1, a4, a3, a2, n] - S2[a6, a1, a4, a3, SP[a2, a5], n] - 
    S2[a6, a1, a4, SP[a3, a5], a2, n] + S2[a2, n]*S2[a6, a1, a5, a3, a4, n] + 
    S2[a6, a1, a5, a3, SP[a2, a4], n] + S2[a2, n]*S2[a6, a1, a5, a4, a3, n] + 
    S2[a6, a1, a5, a4, SP[a2, a3], n] + S2[a6, a1, a5, SP[a2, a3], a4, n] + 
    S2[a6, a1, a5, SP[a2, a4], a3, n] + S2[a6, a1, SP[a2, a3], a5, a4, n] + 
    S2[a6, a1, SP[a2, a5], a3, a4, n] + S2[a6, a1, SP[a2, a5], a4, a3, n] - 
    S2[a6, a1, SP[a3, a5], a2, a4, n] - S2[a6, a1, SP[a3, a5], a4, a2, n] - 
    S2[a6, a1, SP[a4, a5], a3, a2, n] + S2[a5, n]*S2[a6, a2, a3, a1, a4, n] + 
    S2[a6, a2, a3, a1, SP[a4, a5], n] - S2[a1, n]*S2[a6, a2, a3, a5, a4, n] - 
    S2[a6, a2, a3, a5, SP[a1, a4], n] - S2[a1, n]*S2[a6, a2, a5, a3, a4, n] - 
    S2[a6, a2, a5, a3, SP[a1, a4], n] - S2[a1, n]*S2[a6, a2, a5, a4, a3, n] - 
    S2[a6, a2, a5, a4, SP[a1, a3], n] - S2[a6, a2, a5, SP[a1, a3], a4, n] - 
    S2[a6, a2, a5, SP[a1, a4], a3, n] - S2[a6, a2, SP[a1, a3], a5, a4, n] - 
    S2[a6, a2, SP[a1, a5], a3, a4, n] - S2[a6, a2, SP[a1, a5], a4, a3, n] + 
    S2[a6, a2, SP[a3, a5], a1, a4, n] + S2[a2, n]*S2[a6, a5, a1, a3, a4, n] + 
    S2[a6, a5, a1, a3, SP[a2, a4], n] + S2[a2, n]*S2[a6, a5, a1, a4, a3, n] + 
    S2[a6, a5, a1, a4, SP[a2, a3], n] + S2[a6, a5, a1, SP[a2, a3], a4, n] + 
    S2[a6, a5, a1, SP[a2, a4], a3, n] - S2[a1, n]*S2[a6, a5, a2, a3, a4, n] - 
    S2[a6, a5, a2, a3, SP[a1, a4], n] - S2[a1, n]*S2[a6, a5, a2, a4, a3, n] - 
    S2[a6, a5, a2, a4, SP[a1, a3], n] - S2[a6, a5, a2, SP[a1, a3], a4, n] - 
    S2[a6, a5, a2, SP[a1, a4], a3, n] - S2[a1, n]*S2[a6, a5, a4, a2, a3, n] - 
    S2[a6, a5, a4, a2, SP[a1, a3], n] - S2[a6, a5, a4, SP[a1, a2], a3, n] - 
    S2[a6, a5, SP[a1, a4], a2, a3, n] - S2[a6, SP[a1, a5], a2, a3, a4, n] - 
    S2[a6, SP[a1, a5], a2, a4, a3, n] - S2[a6, SP[a1, a5], a3, a2, a4, n] - 
    S2[a6, SP[a1, a5], a3, a4, a2, n] - S2[a6, SP[a1, a5], a4, a2, a3, n] - 
    S2[a6, SP[a1, a5], a4, a3, a2, n] + S2[a6, SP[a2, a5], a1, a3, a4, n] + 
    S2[a6, SP[a2, a5], a1, a4, a3, n] + S2[a6, SP[a2, a5], a3, a1, a4, n] + 
    S2[SP[a1, a3], a2, a6, a5, a4, n] + S2[SP[a1, a3], a6, a2, a5, a4, n] + 
    S2[SP[a1, a3], a6, a5, a2, a4, n] + S2[SP[a1, a3], a6, a5, a4, a2, n] - 
    S2[SP[a1, a6], a2, a3, a5, a4, n] - S2[SP[a1, a6], a2, a5, a3, a4, n] - 
    S2[SP[a1, a6], a2, a5, a4, a3, n] + S2[SP[a1, a6], a3, a2, a4, a5, n] + 
    S2[SP[a1, a6], a3, a4, a2, a5, n] + S2[SP[a1, a6], a3, a4, a5, a2, n] + 
    S2[SP[a1, a6], a4, a3, a2, a5, n] + S2[SP[a1, a6], a4, a3, a5, a2, n] + 
    S2[SP[a1, a6], a4, a5, a3, a2, n] - S2[SP[a1, a6], a5, a2, a3, a4, n] - 
    S2[SP[a1, a6], a5, a2, a4, a3, n] - S2[SP[a1, a6], a5, a4, a2, a3, n] - 
    S2[SP[a2, a3], a1, a6, a5, a4, n] - S2[SP[a2, a3], a6, a1, a5, a4, n] - 
    S2[SP[a2, a3], a6, a5, a1, a4, n] + S2[SP[a2, a6], a1, a3, a5, a4, n] + 
    S2[SP[a2, a6], a1, a5, a3, a4, n] + S2[SP[a2, a6], a1, a5, a4, a3, n] - 
    S2[SP[a2, a6], a3, a1, a4, a5, n] + S2[SP[a2, a6], a5, a1, a3, a4, n] + 
    S2[SP[a2, a6], a5, a1, a4, a3, n] - S2[SP[a5, a6], a1, a3, a2, a4, n] - 
    S2[SP[a5, a6], a1, a3, a4, a2, n] - S2[SP[a5, a6], a1, a4, a3, a2, n] + 
    S2[SP[a5, a6], a2, a3, a1, a4, n] + S2[a6, a2, a3, a5, a4, a1, n] + 
    S2[a6, a2, a5, a3, a4, a1, n] + S2[a6, a2, a5, a4, a1, a3, n] + 
    S2[a6, a2, a5, a4, a3, a1, n] + S2[a6, a5, a2, a3, a4, a1, n] + 
    S2[a6, a5, a2, a4, a1, a3, n] + S2[a6, a5, a2, a4, a3, a1, n] + 
    S2[a6, a5, a4, a1, a2, a3, n] + S2[a6, a5, a4, a2, a1, a3, n] + 
    S2[a6, a5, a4, a2, a3, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a3_, a4_, a1_, a2_, a5_, a6_, n_] :> 
  S2[a1, a4, a3, n]*S2[a2, a5, a6, n] + S2[SP[a1, a2], SP[a4, a5], 
     SP[a3, a6], n] + S2[a5, a6, n]*S2[a1, a2, a4, a3, n] + 
    S2[a3, a4, n]*S2[a1, a2, a5, a6, n] - S2[a1, a2, SP[a3, a5], SP[a4, a6], 
     n] - 2*S2[a1, a2, SP[a4, a5], SP[a3, a6], n] + 
    S2[a5, a6, n]*S2[a1, a4, a2, a3, n] + S2[a5, a6, n]*
     S2[a1, a4, a3, a2, n] - S2[a1, a4, SP[a2, a5], SP[a3, a6], n] - 
    S2[a1, a4, SP[a3, a5], SP[a2, a6], n] - S2[a1, SP[a2, a3], a5, 
     SP[a4, a6], n] - S2[a1, SP[a2, a3], SP[a4, a5], a6, n] - 
    S2[a1, SP[a2, a4], a5, SP[a3, a6], n] - S2[a1, SP[a2, a4], SP[a3, a5], 
     a6, n] - S2[a1, SP[a2, a5], a4, SP[a3, a6], n] - 
    S2[a1, SP[a2, a5], SP[a4, a6], a3, n] - S2[a1, SP[a4, a5], a2, 
     SP[a3, a6], n] - S2[a1, SP[a4, a5], a3, SP[a2, a6], n] - 
    S2[a1, SP[a4, a5], SP[a2, a6], a3, n] - S2[a1, SP[a4, a5], SP[a3, a6], 
     a2, n] - S2[a2, a1, SP[a4, a5], SP[a3, a6], n] - 
    S2[a2, SP[a1, a5], a4, SP[a3, a6], n] - S2[a2, SP[a1, a5], SP[a4, a6], 
     a3, n] - S2[SP[a1, a2], a4, a5, SP[a3, a6], n] - 
    S2[SP[a1, a2], a4, SP[a3, a5], a6, n] - S2[SP[a1, a2], a5, a4, 
     SP[a3, a6], n] - S2[SP[a1, a2], a5, SP[a4, a6], a3, n] - 
    S2[SP[a1, a2], SP[a4, a5], a3, a6, n] - S2[SP[a1, a2], SP[a4, a5], a6, 
     a3, n] - S2[SP[a1, a3], a2, a5, SP[a4, a6], n] - 
    S2[SP[a1, a3], a2, SP[a4, a5], a6, n] - S2[SP[a1, a3], SP[a2, a4], a5, 
     a6, n] - S2[SP[a1, a5], a2, a4, SP[a3, a6], n] - 
    S2[SP[a1, a5], a2, SP[a4, a6], a3, n] - S2[SP[a1, a5], a4, a2, 
     SP[a3, a6], n] - S2[SP[a1, a5], a4, a3, SP[a2, a6], n] - 
    S2[SP[a1, a5], a4, SP[a2, a6], a3, n] - S2[SP[a1, a5], a4, SP[a3, a6], 
     a2, n] - S2[SP[a1, a5], SP[a2, a6], a4, a3, n] - 
    S2[SP[a1, a5], SP[a4, a6], a2, a3, n] - S2[SP[a1, a5], SP[a4, a6], a3, 
     a2, n] + S2[a1, a2, a3, a5, SP[a4, a6], n] + S2[a1, a2, a3, SP[a4, a5], 
     a6, n] + S2[a6, n]*S2[a1, a2, a4, a3, a5, n] - 
    S2[a5, n]*S2[a1, a2, a4, a3, a6, n] + 
    S2[a6, n]*S2[a1, a2, a4, a5, a3, n] - 
    S2[a3, n]*S2[a1, a2, a4, a5, a6, n] + 
    2*S2[a1, a2, a4, a5, SP[a3, a6], n] - 
    S2[a5, n]*S2[a1, a2, a4, a6, a3, n] - S2[a1, a2, a4, a6, SP[a3, a5], n] + 
    S2[a1, a2, a4, SP[a3, a6], a5, n] + S2[a1, a2, a5, a3, SP[a4, a6], n] + 
    S2[a6, n]*S2[a1, a2, a5, a4, a3, n] - 
    S2[a3, n]*S2[a1, a2, a5, a4, a6, n] + 
    2*S2[a1, a2, a5, a4, SP[a3, a6], n] - 
    S2[a3, n]*S2[a1, a2, a5, a6, a4, n] - S2[a1, a2, a5, a6, SP[a3, a4], n] - 
    S2[a1, a2, a5, SP[a3, a4], a6, n] + 3*S2[a1, a2, a5, SP[a4, a6], a3, n] - 
    S2[a5, n]*S2[a1, a2, a6, a4, a3, n] - S2[a1, a2, a6, a4, SP[a3, a5], n] - 
    S2[a1, a2, a6, SP[a4, a5], a3, n] - S2[a1, a2, SP[a3, a4], a5, a6, n] + 
    S2[a1, a2, SP[a4, a5], a3, a6, n] + S2[a1, a2, SP[a4, a5], a6, a3, n] + 
    S2[a1, a2, SP[a4, a6], a3, a5, n] + S2[a1, a2, SP[a4, a6], a5, a3, n] + 
    S2[a1, a3, a2, a5, SP[a4, a6], n] + S2[a1, a3, a2, SP[a4, a5], a6, n] + 
    S2[a1, a3, SP[a2, a4], a5, a6, n] + S2[a6, n]*S2[a1, a4, a2, a3, a5, n] - 
    S2[a5, n]*S2[a1, a4, a2, a3, a6, n] + 
    S2[a6, n]*S2[a1, a4, a2, a5, a3, n] - 
    S2[a3, n]*S2[a1, a4, a2, a5, a6, n] + 
    2*S2[a1, a4, a2, a5, SP[a3, a6], n] - 
    S2[a5, n]*S2[a1, a4, a2, a6, a3, n] - S2[a1, a4, a2, a6, SP[a3, a5], n] + 
    S2[a1, a4, a2, SP[a3, a6], a5, n] + S2[a6, n]*S2[a1, a4, a3, a2, a5, n] - 
    S2[a5, n]*S2[a1, a4, a3, a2, a6, n] + 
    S2[a6, n]*S2[a1, a4, a3, a5, a2, n] - 
    S2[a2, n]*S2[a1, a4, a3, a5, a6, n] + S2[a1, a4, a3, a5, SP[a2, a6], n] - 
    S2[a5, n]*S2[a1, a4, a3, a6, a2, n] - S2[a1, a4, a3, a6, SP[a2, a5], n] - 
    S2[a1, a4, a3, SP[a2, a5], a6, n] + S2[a1, a4, a3, SP[a2, a6], a5, n] + 
    S2[a6, n]*S2[a1, a4, a5, a2, a3, n] + 
    2*S2[a1, a4, a5, a2, SP[a3, a6], n] + 
    S2[a6, n]*S2[a1, a4, a5, a3, a2, n] - 
    S2[a2, n]*S2[a1, a4, a5, a3, a6, n] + S2[a1, a4, a5, a3, SP[a2, a6], n] - 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] - S2[a1, a4, a5, a6, SP[a2, a3], n] - 
    S2[a1, a4, a5, SP[a2, a3], a6, n] + S2[a1, a4, a5, SP[a2, a6], a3, n] + 
    2*S2[a1, a4, a5, SP[a3, a6], a2, n] - 
    S2[a5, n]*S2[a1, a4, a6, a2, a3, n] - S2[a1, a4, a6, a2, SP[a3, a5], n] - 
    S2[a5, n]*S2[a1, a4, a6, a3, a2, n] - S2[a1, a4, a6, a3, SP[a2, a5], n] - 
    S2[a1, a4, a6, SP[a2, a5], a3, n] - S2[a1, a4, a6, SP[a3, a5], a2, n] - 
    S2[a1, a4, SP[a2, a3], a5, a6, n] - S2[a1, a4, SP[a2, a5], a3, a6, n] - 
    S2[a1, a4, SP[a2, a5], a6, a3, n] + S2[a1, a4, SP[a2, a6], a3, a5, n] + 
    S2[a1, a4, SP[a2, a6], a5, a3, n] + S2[a1, a4, SP[a3, a6], a2, a5, n] + 
    S2[a1, a4, SP[a3, a6], a5, a2, n] + S2[a6, n]*S2[a1, a5, a2, a4, a3, n] + 
    2*S2[a1, a5, a2, a4, SP[a3, a6], n] + 
    2*S2[a1, a5, a2, SP[a4, a6], a3, n] + 
    S2[a6, n]*S2[a1, a5, a4, a2, a3, n] + 
    2*S2[a1, a5, a4, a2, SP[a3, a6], n] + 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] - 
    S2[a2, n]*S2[a1, a5, a4, a3, a6, n] + S2[a1, a5, a4, a3, SP[a2, a6], n] - 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] - S2[a1, a5, a4, a6, SP[a2, a3], n] - 
    S2[a1, a5, a4, SP[a2, a3], a6, n] + S2[a1, a5, a4, SP[a2, a6], a3, n] + 
    2*S2[a1, a5, a4, SP[a3, a6], a2, n] - 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] - S2[a1, a5, a6, a4, SP[a2, a3], n] - 
    S2[a1, a5, a6, SP[a2, a4], a3, n] - S2[a1, a5, SP[a2, a4], a3, a6, n] - 
    S2[a1, a5, SP[a2, a4], a6, a3, n] + S2[a1, a5, SP[a2, a6], a4, a3, n] + 
    2*S2[a1, a5, SP[a4, a6], a2, a3, n] + 
    2*S2[a1, a5, SP[a4, a6], a3, a2, n] - 
    S2[a5, n]*S2[a1, a6, a2, a4, a3, n] - S2[a1, a6, a2, a4, SP[a3, a5], n] - 
    S2[a1, a6, a2, SP[a4, a5], a3, n] - S2[a5, n]*S2[a1, a6, a4, a2, a3, n] - 
    S2[a1, a6, a4, a2, SP[a3, a5], n] - S2[a5, n]*S2[a1, a6, a4, a3, a2, n] - 
    S2[a1, a6, a4, a3, SP[a2, a5], n] - S2[a1, a6, a4, SP[a2, a5], a3, n] - 
    S2[a1, a6, a4, SP[a3, a5], a2, n] - S2[a1, a6, SP[a2, a5], a4, a3, n] - 
    S2[a1, a6, SP[a4, a5], a2, a3, n] - S2[a1, a6, SP[a4, a5], a3, a2, n] - 

    S2[a1, SP[a2, a5], a4, a3, a6, n] - S2[a1, SP[a2, a5], a4, a6, a3, n] - 
    S2[a1, SP[a2, a5], a6, a4, a3, n] + S2[a1, SP[a2, a6], a4, a3, a5, n] + 
    S2[a1, SP[a2, a6], a4, a5, a3, n] + S2[a1, SP[a2, a6], a5, a4, a3, n] - 
    S2[a1, SP[a3, a4], a2, a5, a6, n] + S2[a1, SP[a4, a6], a2, a3, a5, n] + 
    S2[a1, SP[a4, a6], a2, a5, a3, n] + S2[a1, SP[a4, a6], a3, a2, a5, n] + 
    S2[a1, SP[a4, a6], a3, a5, a2, n] + S2[a1, SP[a4, a6], a5, a2, a3, n] + 
    S2[a1, SP[a4, a6], a5, a3, a2, n] + S2[a2, a1, a4, a5, SP[a3, a6], n] + 
    S2[a2, a1, a4, SP[a3, a5], a6, n] + S2[a2, a1, a5, a4, SP[a3, a6], n] + 
    S2[a2, a1, a5, SP[a4, a6], a3, n] + S2[a2, a1, SP[a4, a5], a3, a6, n] + 
    S2[a2, a1, SP[a4, a5], a6, a3, n] - S2[a6, n]*S2[a2, a5, a1, a4, a3, n] + 
    S2[a2, SP[a1, a5], a4, a3, a6, n] + S2[a2, SP[a1, a5], a4, a6, a3, n] + 
    S2[a2, SP[a1, a5], a6, a4, a3, n] - S2[a2, SP[a5, a6], a1, a4, a3, n] + 
    S2[a3, a1, a2, a5, SP[a4, a6], n] + S2[a3, a1, a2, SP[a4, a5], a6, n] + 
    S2[a3, a1, SP[a2, a4], a5, a6, n] + S2[a3, SP[a1, a4], a2, a5, a6, n] + 
    S2[a5, a1, a2, a4, SP[a3, a6], n] + S2[a5, a1, a2, SP[a4, a6], a3, n] + 
    S2[a5, a1, a4, a2, SP[a3, a6], n] + S2[a5, a1, a4, a3, SP[a2, a6], n] + 
    S2[a5, a1, a4, SP[a2, a6], a3, n] + S2[a5, a1, a4, SP[a3, a6], a2, n] + 
    S2[a5, a1, SP[a2, a6], a4, a3, n] + S2[a5, a1, SP[a4, a6], a2, a3, n] + 
    S2[a5, a1, SP[a4, a6], a3, a2, n] + S2[a5, SP[a1, a6], a2, a4, a3, n] + 
    S2[a5, SP[a1, a6], a4, a2, a3, n] + S2[a5, SP[a1, a6], a4, a3, a2, n] - 
    S2[a5, n]*S2[a6, a1, a2, a4, a3, n] - S2[a6, a1, a2, a4, SP[a3, a5], n] - 
    S2[a6, a1, a2, SP[a4, a5], a3, n] - S2[a5, n]*S2[a6, a1, a4, a2, a3, n] - 
    S2[a6, a1, a4, a2, SP[a3, a5], n] - S2[a5, n]*S2[a6, a1, a4, a3, a2, n] - 
    S2[a6, a1, a4, a3, SP[a2, a5], n] - S2[a6, a1, a4, SP[a2, a5], a3, n] - 
    S2[a6, a1, a4, SP[a3, a5], a2, n] - S2[a6, a1, SP[a2, a5], a4, a3, n] - 
    S2[a6, a1, SP[a4, a5], a2, a3, n] - S2[a6, a1, SP[a4, a5], a3, a2, n] + 
    S2[a2, n]*S2[a6, a5, a1, a4, a3, n] + S2[a6, a5, a1, a4, SP[a2, a3], n] + 
    S2[a6, a5, a1, SP[a2, a4], a3, n] + S2[a6, a5, SP[a1, a2], a4, a3, n] - 
    S2[a6, SP[a1, a5], a2, a4, a3, n] - S2[a6, SP[a1, a5], a4, a2, a3, n] - 
    S2[a6, SP[a1, a5], a4, a3, a2, n] + S2[a6, SP[a2, a5], a1, a4, a3, n] + 
    S2[SP[a1, a6], a2, a4, a3, a5, n] + S2[SP[a1, a6], a2, a4, a5, a3, n] + 
    S2[SP[a1, a6], a2, a5, a4, a3, n] + S2[SP[a1, a6], a4, a2, a3, a5, n] + 
    S2[SP[a1, a6], a4, a2, a5, a3, n] + S2[SP[a1, a6], a4, a3, a2, a5, n] + 
    S2[SP[a1, a6], a4, a3, a5, a2, n] + S2[SP[a1, a6], a4, a5, a2, a3, n] + 
    S2[SP[a1, a6], a4, a5, a3, a2, n] + S2[SP[a1, a6], a5, a2, a4, a3, n] + 
    S2[SP[a1, a6], a5, a4, a2, a3, n] + S2[SP[a1, a6], a5, a4, a3, a2, n] - 
    S2[SP[a5, a6], a1, a2, a4, a3, n] - S2[SP[a5, a6], a1, a4, a2, a3, n] - 
    S2[SP[a5, a6], a1, a4, a3, a2, n] - S2[a6, a5, a2, a1, a4, a3, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a3_, a4_, a1_, a2_, a6_, a5_, n_] :> 
  S2[a1, a4, a3, n]*S2[a2, a6, a5, n] + S2[SP[a1, a2], SP[a4, a6], 
     SP[a3, a5], n] - S2[a5, a6, n]*S2[a1, a2, a4, a3, n] + 
    S2[a3, a4, n]*S2[a1, a2, a6, a5, n] - S2[a1, a2, SP[a3, a6], SP[a4, a5], 
     n] + S2[a1, a2, SP[a4, a5], SP[a3, a6], n] - S2[a1, a2, SP[a4, a6], 
     SP[a3, a5], n] - S2[a5, a6, n]*S2[a1, a4, a2, a3, n] - 
    S2[a5, a6, n]*S2[a1, a4, a3, a2, n] + S2[a1, a4, SP[a2, a5], SP[a3, a6], 
     n] + S2[a1, a4, SP[a3, a5], SP[a2, a6], n] - S2[a1, SP[a2, a3], a6, 
     SP[a4, a5], n] - S2[a1, SP[a2, a3], SP[a4, a6], a5, n] - 
    S2[a1, SP[a2, a4], a6, SP[a3, a5], n] - S2[a1, SP[a2, a4], SP[a3, a6], 
     a5, n] + S2[a1, SP[a2, a5], a4, SP[a3, a6], n] + 
    S2[a1, SP[a2, a5], SP[a4, a6], a3, n] + S2[a1, SP[a4, a5], a2, 
     SP[a3, a6], n] + S2[a1, SP[a4, a5], a3, SP[a2, a6], n] + 
    S2[a1, SP[a4, a5], SP[a2, a6], a3, n] + S2[a1, SP[a4, a5], SP[a3, a6], 
     a2, n] - S2[a2, a1, SP[a4, a6], SP[a3, a5], n] - 
    S2[a2, SP[a1, a6], a4, SP[a3, a5], n] - S2[a2, SP[a1, a6], SP[a4, a5], 
     a3, n] - S2[SP[a1, a2], a4, a6, SP[a3, a5], n] - 
    S2[SP[a1, a2], a4, SP[a3, a6], a5, n] - S2[SP[a1, a2], a6, a4, 
     SP[a3, a5], n] - S2[SP[a1, a2], a6, SP[a4, a5], a3, n] - 
    S2[SP[a1, a2], SP[a4, a6], a3, a5, n] - S2[SP[a1, a2], SP[a4, a6], a5, 
     a3, n] - S2[SP[a1, a3], a2, a6, SP[a4, a5], n] - 
    S2[SP[a1, a3], a2, SP[a4, a6], a5, n] - S2[SP[a1, a3], SP[a2, a4], a6, 
     a5, n] + S2[SP[a1, a5], a2, a4, SP[a3, a6], n] + 
    S2[SP[a1, a5], a2, SP[a4, a6], a3, n] + S2[SP[a1, a5], a4, a2, 
     SP[a3, a6], n] + S2[SP[a1, a5], a4, a3, SP[a2, a6], n] + 
    S2[SP[a1, a5], a4, SP[a2, a6], a3, n] + S2[SP[a1, a5], a4, SP[a3, a6], 
     a2, n] + S2[SP[a1, a5], SP[a2, a6], a4, a3, n] + 
    S2[SP[a1, a5], SP[a4, a6], a2, a3, n] + S2[SP[a1, a5], SP[a4, a6], a3, 
     a2, n] + S2[a1, a2, a3, a6, SP[a4, a5], n] + S2[a1, a2, a3, SP[a4, a6], 
     a5, n] + S2[a5, n]*S2[a1, a2, a4, a3, a6, n] + 
    S2[a1, a2, a4, a3, SP[a5, a6], n] - S2[a1, a2, a4, a5, SP[a3, a6], n] + 
    S2[a5, n]*S2[a1, a2, a4, a6, a3, n] - 
    S2[a3, n]*S2[a1, a2, a4, a6, a5, n] + S2[a1, a2, a4, a6, SP[a3, a5], n] + 
    S2[a1, a2, a4, SP[a5, a6], a3, n] - S2[a1, a2, a5, a4, SP[a3, a6], n] - 
    S2[a1, a2, a5, SP[a4, a6], a3, n] + S2[a1, a2, a6, a3, SP[a4, a5], n] + 
    S2[a5, n]*S2[a1, a2, a6, a4, a3, n] - 
    S2[a3, n]*S2[a1, a2, a6, a4, a5, n] + S2[a1, a2, a6, a4, SP[a3, a5], n] - 
    S2[a3, n]*S2[a1, a2, a6, a5, a4, n] - S2[a1, a2, a6, a5, SP[a3, a4], n] - 
    S2[a1, a2, a6, SP[a3, a4], a5, n] + 2*S2[a1, a2, a6, SP[a4, a5], a3, n] - 
    S2[a1, a2, SP[a3, a4], a6, a5, n] + S2[a1, a2, SP[a4, a6], a3, a5, n] + 
    S2[a1, a2, SP[a4, a6], a5, a3, n] + S2[a1, a2, SP[a5, a6], a4, a3, n] + 
    S2[a1, a3, a2, a6, SP[a4, a5], n] + S2[a1, a3, a2, SP[a4, a6], a5, n] + 
    S2[a1, a3, SP[a2, a4], a6, a5, n] + S2[a5, n]*S2[a1, a4, a2, a3, a6, n] + 
    S2[a1, a4, a2, a3, SP[a5, a6], n] - S2[a1, a4, a2, a5, SP[a3, a6], n] + 
    S2[a5, n]*S2[a1, a4, a2, a6, a3, n] - 
    S2[a3, n]*S2[a1, a4, a2, a6, a5, n] + S2[a1, a4, a2, a6, SP[a3, a5], n] + 
    S2[a1, a4, a2, SP[a5, a6], a3, n] + S2[a5, n]*S2[a1, a4, a3, a2, a6, n] + 
    S2[a1, a4, a3, a2, SP[a5, a6], n] - S2[a1, a4, a3, a5, SP[a2, a6], n] + 
    S2[a5, n]*S2[a1, a4, a3, a6, a2, n] - 
    S2[a2, n]*S2[a1, a4, a3, a6, a5, n] - S2[a1, a4, a3, SP[a2, a6], a5, n] + 
    S2[a1, a4, a3, SP[a5, a6], a2, n] - S2[a1, a4, a5, a2, SP[a3, a6], n] - 
    S2[a1, a4, a5, a3, SP[a2, a6], n] - S2[a1, a4, a5, SP[a2, a6], a3, n] - 
    S2[a1, a4, a5, SP[a3, a6], a2, n] + S2[a5, n]*S2[a1, a4, a6, a2, a3, n] + 
    S2[a1, a4, a6, a2, SP[a3, a5], n] + S2[a5, n]*S2[a1, a4, a6, a3, a2, n] - 
    S2[a2, n]*S2[a1, a4, a6, a3, a5, n] - 
    S2[a2, n]*S2[a1, a4, a6, a5, a3, n] - S2[a1, a4, a6, a5, SP[a2, a3], n] - 
    S2[a1, a4, a6, SP[a2, a3], a5, n] + S2[a1, a4, a6, SP[a3, a5], a2, n] - 
    S2[a1, a4, SP[a2, a3], a6, a5, n] - S2[a1, a4, SP[a2, a6], a3, a5, n] - 
    S2[a1, a4, SP[a2, a6], a5, a3, n] + S2[a1, a4, SP[a5, a6], a2, a3, n] + 
    S2[a1, a4, SP[a5, a6], a3, a2, n] - S2[a1, a5, a2, a4, SP[a3, a6], n] - 
    S2[a1, a5, a2, SP[a4, a6], a3, n] - S2[a1, a5, a4, a2, SP[a3, a6], n] - 
    S2[a1, a5, a4, a3, SP[a2, a6], n] - S2[a1, a5, a4, SP[a2, a6], a3, n] - 
    S2[a1, a5, a4, SP[a3, a6], a2, n] - S2[a1, a5, SP[a2, a6], a4, a3, n] - 
    S2[a1, a5, SP[a4, a6], a2, a3, n] - S2[a1, a5, SP[a4, a6], a3, a2, n] + 
    S2[a5, n]*S2[a1, a6, a2, a4, a3, n] + S2[a1, a6, a2, a4, SP[a3, a5], n] + 
    S2[a1, a6, a2, SP[a4, a5], a3, n] + S2[a5, n]*S2[a1, a6, a4, a2, a3, n] + 
    S2[a1, a6, a4, a2, SP[a3, a5], n] + S2[a5, n]*S2[a1, a6, a4, a3, a2, n] - 
    S2[a2, n]*S2[a1, a6, a4, a3, a5, n] - 
    S2[a2, n]*S2[a1, a6, a4, a5, a3, n] - S2[a1, a6, a4, a5, SP[a2, a3], n] - 
    S2[a1, a6, a4, SP[a2, a3], a5, n] + S2[a1, a6, a4, SP[a3, a5], a2, n] - 
    S2[a2, n]*S2[a1, a6, a5, a4, a3, n] - S2[a1, a6, a5, a4, SP[a2, a3], n] - 
    S2[a1, a6, a5, SP[a2, a4], a3, n] - S2[a1, a6, SP[a2, a4], a3, a5, n] - 
    S2[a1, a6, SP[a2, a4], a5, a3, n] + S2[a1, a6, SP[a4, a5], a2, a3, n] + 
    S2[a1, a6, SP[a4, a5], a3, a2, n] - S2[a1, SP[a2, a6], a4, a3, a5, n] - 
    S2[a1, SP[a2, a6], a4, a5, a3, n] - S2[a1, SP[a2, a6], a5, a4, a3, n] - 
    S2[a1, SP[a3, a4], a2, a6, a5, n] + S2[a1, SP[a5, a6], a2, a4, a3, n] + 
    S2[a1, SP[a5, a6], a4, a2, a3, n] + S2[a1, SP[a5, a6], a4, a3, a2, n] + 
    S2[a2, a1, a4, a6, SP[a3, a5], n] + S2[a2, a1, a4, SP[a3, a6], a5, n] + 
    S2[a2, a1, a6, a4, SP[a3, a5], n] + S2[a2, a1, a6, SP[a4, a5], a3, n] + 
    S2[a2, a1, SP[a4, a6], a3, a5, n] + S2[a2, a1, SP[a4, a6], a5, a3, n] + 
    S2[a2, a6, a1, a4, SP[a3, a5], n] + S2[a2, a6, a1, SP[a4, a5], a3, n] + 
    S2[a2, a6, SP[a1, a5], a4, a3, n] + S2[a2, SP[a1, a6], a4, a3, a5, n] + 
    S2[a2, SP[a1, a6], a4, a5, a3, n] + S2[a2, SP[a1, a6], a5, a4, a3, n] + 
    S2[a3, a1, a2, a6, SP[a4, a5], n] + S2[a3, a1, a2, SP[a4, a6], a5, n] + 
    S2[a3, a1, SP[a2, a4], a6, a5, n] + S2[a3, SP[a1, a4], a2, a6, a5, n] - 
    S2[a5, a1, a2, a4, SP[a3, a6], n] - S2[a5, a1, a2, SP[a4, a6], a3, n] - 
    S2[a5, a1, a4, a2, SP[a3, a6], n] - S2[a5, a1, a4, a3, SP[a2, a6], n] - 
    S2[a5, a1, a4, SP[a2, a6], a3, n] - S2[a5, a1, a4, SP[a3, a6], a2, n] - 
    S2[a5, a1, SP[a2, a6], a4, a3, n] - S2[a5, a1, SP[a4, a6], a2, a3, n] - 
    S2[a5, a1, SP[a4, a6], a3, a2, n] - S2[a5, SP[a1, a6], a2, a4, a3, n] - 
    S2[a5, SP[a1, a6], a4, a2, a3, n] - S2[a5, SP[a1, a6], a4, a3, a2, n] + 
    S2[a5, n]*S2[a6, a1, a2, a4, a3, n] + S2[a6, a1, a2, a4, SP[a3, a5], n] + 
    S2[a6, a1, a2, SP[a4, a5], a3, n] + S2[a5, n]*S2[a6, a1, a4, a2, a3, n] + 
    S2[a6, a1, a4, a2, SP[a3, a5], n] + S2[a5, n]*S2[a6, a1, a4, a3, a2, n] - 
    S2[a2, n]*S2[a6, a1, a4, a3, a5, n] - 
    S2[a2, n]*S2[a6, a1, a4, a5, a3, n] - S2[a6, a1, a4, a5, SP[a2, a3], n] - 
    S2[a6, a1, a4, SP[a2, a3], a5, n] + S2[a6, a1, a4, SP[a3, a5], a2, n] - 
    S2[a2, n]*S2[a6, a1, a5, a4, a3, n] - S2[a6, a1, a5, a4, SP[a2, a3], n] - 
    S2[a6, a1, a5, SP[a2, a4], a3, n] - S2[a6, a1, SP[a2, a4], a3, a5, n] - 
    S2[a6, a1, SP[a2, a4], a5, a3, n] + S2[a6, a1, SP[a4, a5], a2, a3, n] + 
    S2[a6, a1, SP[a4, a5], a3, a2, n] - S2[a2, n]*S2[a6, a5, a1, a4, a3, n] - 
    S2[a6, a5, a1, a4, SP[a2, a3], n] - S2[a6, a5, a1, SP[a2, a4], a3, n] - 
    S2[a6, a5, SP[a1, a2], a4, a3, n] - S2[a6, SP[a1, a2], a4, a3, a5, n] - 
    S2[a6, SP[a1, a2], a4, a5, a3, n] - S2[a6, SP[a1, a2], a5, a4, a3, n] + 
    S2[a6, SP[a1, a5], a2, a4, a3, n] + S2[a6, SP[a1, a5], a4, a2, a3, n] + 
    S2[a6, SP[a1, a5], a4, a3, a2, n] - S2[a6, SP[a2, a5], a1, a4, a3, n] - 
    S2[SP[a2, a6], a1, a4, a3, a5, n] - S2[SP[a2, a6], a1, a4, a5, a3, n] - 
    S2[SP[a2, a6], a1, a5, a4, a3, n] - S2[SP[a2, a6], a5, a1, a4, a3, n] + 
    S2[SP[a5, a6], a1, a2, a4, a3, n] + S2[SP[a5, a6], a1, a4, a2, a3, n] + 
    S2[SP[a5, a6], a1, a4, a3, a2, n] + S2[a6, a2, a1, a4, a3, a5, n] + 
    S2[a6, a2, a1, a4, a5, a3, n] + S2[a6, a2, a1, a5, a4, a3, n] + 
    S2[a6, a2, a5, a1, a4, a3, n] + S2[a6, a5, a2, a1, a4, a3, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a3_, a4_, a1_, a5_, a2_, a6_, n_] :> 
  -(S2[a1, a4, a3, n]*S2[a2, a5, a6, n]) - S2[a1, a4, a3, n]*
     S2[a2, a6, a5, n] - S2[SP[a1, a2], SP[a4, a5], SP[a3, a6], n] - 
    S2[SP[a1, a2], SP[a4, a6], SP[a3, a5], n] + S2[a1, a2, SP[a4, a5], 
     SP[a3, a6], n] + S2[a1, a2, SP[a4, a6], SP[a3, a5], n] + 
    S2[a2, a6, n]*S2[a1, a4, a3, a5, n] + S2[a2, a6, n]*
     S2[a1, a4, a5, a3, n] - S2[a1, a4, SP[a2, a3], SP[a5, a6], n] - 
    S2[a1, a4, SP[a2, a5], SP[a3, a6], n] + S2[a3, a4, n]*
     S2[a1, a5, a2, a6, n] + S2[a2, a6, n]*S2[a1, a5, a4, a3, n] - 
    S2[a1, a5, SP[a2, a3], SP[a4, a6], n] - S2[a1, a5, SP[a2, a4], 
     SP[a3, a6], n] - S2[a1, SP[a2, a4], a3, SP[a5, a6], n] + 
    S2[a1, SP[a2, a4], a6, SP[a3, a5], n] + S2[a1, SP[a2, a4], SP[a3, a5], 
     a6, n] - S2[a1, SP[a2, a4], SP[a5, a6], a3, n] - 
    S2[a1, SP[a2, a5], a4, SP[a3, a6], n] - S2[a1, SP[a2, a5], SP[a4, a6], 
     a3, n] - S2[a1, SP[a3, a5], a2, SP[a4, a6], n] - 
    S2[a1, SP[a3, a5], SP[a2, a4], a6, n] + S2[a2, a1, SP[a4, a5], 
     SP[a3, a6], n] + S2[a2, a1, SP[a4, a6], SP[a3, a5], n] + 
    S2[a2, SP[a1, a5], a4, SP[a3, a6], n] + S2[a2, SP[a1, a5], SP[a4, a6], 
     a3, n] + S2[a2, SP[a1, a6], a4, SP[a3, a5], n] + 
    S2[a2, SP[a1, a6], SP[a4, a5], a3, n] - S2[SP[a1, a2], a4, a3, 
     SP[a5, a6], n] + S2[SP[a1, a2], a4, a6, SP[a3, a5], n] + 
    S2[SP[a1, a2], a4, SP[a3, a5], a6, n] - S2[SP[a1, a2], a4, SP[a5, a6], 
     a3, n] + S2[SP[a1, a2], a6, a4, SP[a3, a5], n] + 
    S2[SP[a1, a2], a6, SP[a4, a5], a3, n] + S2[SP[a1, a2], SP[a4, a5], a3, 
     a6, n] + S2[SP[a1, a2], SP[a4, a5], a6, a3, n] - 
    S2[SP[a1, a2], SP[a5, a6], a4, a3, n] - S2[SP[a1, a3], a5, a2, 
     SP[a4, a6], n] - S2[SP[a1, a3], a5, SP[a2, a4], a6, n] - 
    S2[SP[a1, a3], SP[a4, a5], a2, a6, n] + S2[a1, a2, a4, a3, SP[a5, a6], 
     n] - S2[a1, a2, a4, a6, SP[a3, a5], n] - S2[a1, a2, a4, SP[a3, a5], a6, 
     n] + S2[a1, a2, a4, SP[a5, a6], a3, n] - S2[a1, a2, a6, a4, SP[a3, a5], 
     n] - S2[a1, a2, a6, SP[a4, a5], a3, n] - S2[a1, a2, SP[a4, a5], a3, a6, 
     n] - S2[a1, a2, SP[a4, a5], a6, a3, n] + S2[a1, a2, SP[a5, a6], a4, a3, 
     n] + S2[a1, a3, a5, a2, SP[a4, a6], n] + S2[a1, a3, a5, SP[a2, a4], a6, 
     n] + S2[a1, a3, SP[a4, a5], a2, a6, n] + S2[a1, a4, a2, a3, SP[a5, a6], 
     n] - S2[a1, a4, a2, a6, SP[a3, a5], n] - S2[a1, a4, a2, SP[a3, a5], a6, 
     n] + S2[a1, a4, a2, SP[a5, a6], a3, n] + S2[a1, a4, a3, a2, SP[a5, a6], 
     n] + S2[a1, a4, a3, SP[a2, a5], a6, n] - 
    S2[a3, n]*S2[a1, a4, a5, a2, a6, n] + S2[a1, a4, SP[a2, a5], a3, a6, n] + 
    S2[a1, a4, SP[a2, a5], a6, a3, n] - S2[a1, a4, SP[a3, a5], a2, a6, n] + 
    S2[a1, a5, a2, a3, SP[a4, a6], n] - S2[a3, n]*S2[a1, a5, a2, a4, a6, n] - 
    S2[a3, n]*S2[a1, a5, a2, a6, a4, n] - S2[a1, a5, a2, a6, SP[a3, a4], n] - 
    S2[a1, a5, a2, SP[a3, a4], a6, n] + S2[a1, a5, a2, SP[a4, a6], a3, n] + 
    S2[a1, a5, a3, a2, SP[a4, a6], n] + S2[a1, a5, a3, SP[a2, a4], a6, n] - 
    S2[a3, n]*S2[a1, a5, a4, a2, a6, n] + S2[a1, a5, SP[a2, a4], a3, a6, n] + 
    S2[a1, a5, SP[a2, a4], a6, a3, n] - S2[a1, a5, SP[a3, a4], a2, a6, n] + 
    S2[a1, SP[a2, a5], a4, a3, a6, n] + S2[a1, SP[a2, a5], a4, a6, a3, n] + 
    S2[a1, SP[a2, a5], a6, a4, a3, n] - S2[a1, SP[a3, a4], a5, a2, a6, n] + 
    S2[a2, a1, a4, a3, SP[a5, a6], n] - S2[a2, a1, a4, a6, SP[a3, a5], n] - 
    S2[a2, a1, a4, SP[a3, a5], a6, n] + S2[a2, a1, a4, SP[a5, a6], a3, n] - 
    S2[a2, a1, a6, a4, SP[a3, a5], n] - S2[a2, a1, a6, SP[a4, a5], a3, n] - 
    S2[a2, a1, SP[a4, a5], a3, a6, n] - S2[a2, a1, SP[a4, a5], a6, a3, n] + 
    S2[a2, a1, SP[a5, a6], a4, a3, n] + S2[a6, n]*S2[a2, a5, a1, a4, a3, n] - 
    S2[a2, a6, a1, a4, SP[a3, a5], n] - S2[a2, a6, a1, SP[a4, a5], a3, n] - 
    S2[a2, a6, SP[a1, a5], a4, a3, n] - S2[a2, SP[a1, a5], a4, a3, a6, n] - 
    S2[a2, SP[a1, a5], a4, a6, a3, n] - S2[a2, SP[a1, a5], a6, a4, a3, n] + 
    S2[a2, SP[a5, a6], a1, a4, a3, n] + S2[a3, a1, a5, a2, SP[a4, a6], n] + 
    S2[a3, a1, a5, SP[a2, a4], a6, n] + S2[a3, a1, SP[a4, a5], a2, a6, n] + 
    S2[a3, SP[a1, a4], a5, a2, a6, n] + S2[SP[a2, a6], a5, a1, a4, a3, n] - 
    S2[a6, a2, a5, a1, a4, a3, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a3_, a4_, a1_, a5_, a6_, a2_, n_] :> 
  S2[a1, a4, a3, n]*S2[a2, a6, a5, n] + S2[SP[a1, a2], SP[a4, a6], 
     SP[a3, a5], n] - S2[a1, a2, SP[a4, a6], SP[a3, a5], n] - 
    S2[a2, a6, n]*S2[a1, a4, a3, a5, n] - S2[a2, a6, n]*
     S2[a1, a4, a5, a3, n] + S2[a1, a4, SP[a2, a3], SP[a5, a6], n] + 
    S2[a1, a4, SP[a2, a5], SP[a3, a6], n] - S2[a2, a6, n]*
     S2[a1, a5, a4, a3, n] + S2[a3, a4, n]*S2[a1, a5, a6, a2, n] + 
    S2[a1, a5, SP[a2, a4], SP[a3, a6], n] - S2[a1, a5, SP[a3, a6], 
     SP[a2, a4], n] + S2[a1, SP[a2, a4], a3, SP[a5, a6], n] + 
    S2[a1, SP[a2, a4], a5, SP[a3, a6], n] - S2[a1, SP[a2, a4], a6, 
     SP[a3, a5], n] + S2[a1, SP[a2, a4], SP[a5, a6], a3, n] + 
    S2[a1, SP[a2, a5], a4, SP[a3, a6], n] + S2[a1, SP[a2, a5], SP[a4, a6], 
     a3, n] - S2[a1, SP[a3, a5], a6, SP[a2, a4], n] - 
    S2[a1, SP[a3, a5], SP[a4, a6], a2, n] - S2[a2, a1, SP[a4, a6], 
     SP[a3, a5], n] - S2[a2, SP[a1, a6], a4, SP[a3, a5], n] - 
    S2[a2, SP[a1, a6], SP[a4, a5], a3, n] + S2[SP[a1, a2], a4, a3, 
     SP[a5, a6], n] + S2[SP[a1, a2], a4, a5, SP[a3, a6], n] - 
    S2[SP[a1, a2], a4, a6, SP[a3, a5], n] + S2[SP[a1, a2], a4, SP[a5, a6], 
     a3, n] + S2[SP[a1, a2], a5, a4, SP[a3, a6], n] + 
    S2[SP[a1, a2], a5, SP[a4, a6], a3, n] - S2[SP[a1, a2], a6, a4, 
     SP[a3, a5], n] - S2[SP[a1, a2], a6, SP[a4, a5], a3, n] + 
    S2[SP[a1, a2], SP[a5, a6], a4, a3, n] - S2[SP[a1, a3], a5, a6, 
     SP[a2, a4], n] - S2[SP[a1, a3], a5, SP[a4, a6], a2, n] - 
    S2[SP[a1, a3], SP[a4, a5], a6, a2, n] - S2[a1, a2, a4, a3, SP[a5, a6], 
     n] - S2[a1, a2, a4, a5, SP[a3, a6], n] + S2[a1, a2, a4, a6, SP[a3, a5], 
     n] - S2[a1, a2, a4, SP[a5, a6], a3, n] - S2[a1, a2, a5, a4, SP[a3, a6], 
     n] - S2[a1, a2, a5, SP[a4, a6], a3, n] + S2[a1, a2, a6, a4, SP[a3, a5], 
     n] + S2[a1, a2, a6, SP[a4, a5], a3, n] - S2[a1, a2, SP[a5, a6], a4, a3, 
     n] + S2[a1, a3, a5, a6, SP[a2, a4], n] + S2[a1, a3, a5, SP[a4, a6], a2, 
     n] + S2[a1, a3, SP[a4, a5], a6, a2, n] - S2[a1, a4, a2, a3, SP[a5, a6], 
     n] - S2[a1, a4, a2, a5, SP[a3, a6], n] + S2[a1, a4, a2, a6, SP[a3, a5], 
     n] - S2[a1, a4, a2, SP[a5, a6], a3, n] - S2[a1, a4, a3, a2, SP[a5, a6], 
     n] + S2[a2, n]*S2[a1, a4, a3, a5, a6, n] + S2[a1, a4, a3, a5, 
     SP[a2, a6], n] - S2[a1, a4, a5, a2, SP[a3, a6], n] + 
    S2[a2, n]*S2[a1, a4, a5, a3, a6, n] + S2[a1, a4, a5, a3, SP[a2, a6], n] - 
    S2[a3, n]*S2[a1, a4, a5, a6, a2, n] + 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] + S2[a1, a4, a5, SP[a2, a6], a3, n] - 
    S2[a1, a4, a5, SP[a3, a6], a2, n] - S2[a1, a4, SP[a3, a5], a6, a2, n] - 
    S2[a1, a5, a2, a4, SP[a3, a6], n] - S2[a1, a5, a2, SP[a4, a6], a3, n] + 
    S2[a1, a5, a3, a6, SP[a2, a4], n] + S2[a1, a5, a3, SP[a4, a6], a2, n] - 
    S2[a1, a5, a4, a2, SP[a3, a6], n] + S2[a2, n]*S2[a1, a5, a4, a3, a6, n] + 
    S2[a1, a5, a4, a3, SP[a2, a6], n] - S2[a3, n]*S2[a1, a5, a4, a6, a2, n] + 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] + S2[a1, a5, a4, SP[a2, a6], a3, n] - 
    S2[a1, a5, a4, SP[a3, a6], a2, n] - S2[a3, n]*S2[a1, a5, a6, a2, a4, n] - 
    S2[a1, a5, a6, a2, SP[a3, a4], n] + S2[a1, a5, a6, a3, SP[a2, a4], n] - 
    S2[a3, n]*S2[a1, a5, a6, a4, a2, n] + 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] + S2[a1, a5, a6, SP[a2, a4], a3, n] - 
    S2[a1, a5, a6, SP[a3, a4], a2, n] + S2[a1, a5, SP[a2, a6], a4, a3, n] - 
    S2[a1, a5, SP[a3, a4], a6, a2, n] - S2[a1, SP[a3, a4], a5, a6, a2, n] - 
    S2[a2, a1, a4, a3, SP[a5, a6], n] - S2[a2, a1, a4, a5, SP[a3, a6], n] + 
    S2[a2, a1, a4, a6, SP[a3, a5], n] - S2[a2, a1, a4, SP[a5, a6], a3, n] - 
    S2[a2, a1, a5, a4, SP[a3, a6], n] - S2[a2, a1, a5, SP[a4, a6], a3, n] + 
    S2[a2, a1, a6, a4, SP[a3, a5], n] + S2[a2, a1, a6, SP[a4, a5], a3, n] - 
    S2[a2, a1, SP[a5, a6], a4, a3, n] + S2[a2, a6, a1, a4, SP[a3, a5], n] + 
    S2[a2, a6, a1, SP[a4, a5], a3, n] + S2[a2, a6, SP[a1, a5], a4, a3, n] + 
    S2[a3, a1, a5, a6, SP[a2, a4], n] + S2[a3, a1, a5, SP[a4, a6], a2, n] + 
    S2[a3, a1, SP[a4, a5], a6, a2, n] + S2[a3, SP[a1, a4], a5, a6, a2, n] - 
    S2[a2, n]*S2[a6, a5, a1, a4, a3, n] - S2[a6, a5, a1, a4, SP[a2, a3], n] - 
    S2[a6, a5, a1, SP[a2, a4], a3, n] - S2[a6, a5, SP[a1, a2], a4, a3, n] - 
    S2[a6, SP[a2, a5], a1, a4, a3, n] - S2[SP[a2, a6], a5, a1, a4, a3, n] + 
    S2[a6, a2, a5, a1, a4, a3, n] + S2[a6, a5, a1, a2, a4, a3, n] + 
    S2[a6, a5, a1, a4, a2, a3, n] + S2[a6, a5, a1, a4, a3, a2, n] + 
    S2[a6, a5, a2, a1, a4, a3, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a3_, a4_, a1_, a6_, a2_, a5_, n_] :> 
  -(S2[a1, a4, a3, n]*S2[a2, a5, a6, n]) - S2[a1, a4, a3, n]*
     S2[a2, a6, a5, n] - S2[SP[a1, a2], SP[a4, a5], SP[a3, a6], n] - 
    S2[SP[a1, a2], SP[a4, a6], SP[a3, a5], n] + S2[a1, a2, SP[a4, a5], 
     SP[a3, a6], n] + S2[a1, a2, SP[a4, a6], SP[a3, a5], n] + 
    S2[a3, a4, n]*S2[a1, a6, a2, a5, n] - S2[a1, a6, SP[a2, a3], SP[a4, a5], 
     n] + S2[a1, SP[a2, a4], a5, SP[a3, a6], n] + S2[a1, SP[a2, a4], a6, 
     SP[a3, a5], n] + S2[a1, SP[a2, a4], SP[a3, a5], a6, n] + 
    S2[a1, SP[a2, a4], SP[a3, a6], a5, n] - S2[a1, SP[a3, a6], a2, 
     SP[a4, a5], n] - S2[a1, SP[a3, a6], SP[a2, a4], a5, n] + 
    S2[a2, a1, SP[a4, a5], SP[a3, a6], n] + S2[a2, a1, SP[a4, a6], 
     SP[a3, a5], n] + S2[a2, SP[a1, a5], a4, SP[a3, a6], n] + 
    S2[a2, SP[a1, a5], SP[a4, a6], a3, n] + S2[a2, SP[a1, a6], a4, 
     SP[a3, a5], n] + S2[a2, SP[a1, a6], SP[a4, a5], a3, n] + 
    S2[SP[a1, a2], a4, a5, SP[a3, a6], n] + S2[SP[a1, a2], a4, a6, 
     SP[a3, a5], n] + S2[SP[a1, a2], a4, SP[a3, a5], a6, n] + 
    S2[SP[a1, a2], a4, SP[a3, a6], a5, n] + S2[SP[a1, a2], a5, a4, 
     SP[a3, a6], n] + S2[SP[a1, a2], a5, SP[a4, a6], a3, n] + 
    S2[SP[a1, a2], a6, a4, SP[a3, a5], n] + S2[SP[a1, a2], a6, SP[a4, a5], 
     a3, n] + S2[SP[a1, a2], SP[a4, a5], a3, a6, n] + 
    S2[SP[a1, a2], SP[a4, a5], a6, a3, n] + S2[SP[a1, a2], SP[a4, a6], a3, 
     a5, n] + S2[SP[a1, a2], SP[a4, a6], a5, a3, n] - 
    S2[SP[a1, a3], a6, a2, SP[a4, a5], n] - S2[SP[a1, a3], a6, SP[a2, a4], 
     a5, n] - S2[SP[a1, a3], SP[a4, a6], a2, a5, n] - 
    S2[a1, a2, a4, a5, SP[a3, a6], n] - S2[a1, a2, a4, a6, SP[a3, a5], n] - 
    S2[a1, a2, a4, SP[a3, a5], a6, n] - S2[a1, a2, a4, SP[a3, a6], a5, n] - 
    S2[a1, a2, a5, a4, SP[a3, a6], n] - S2[a1, a2, a5, SP[a4, a6], a3, n] - 
    S2[a1, a2, a6, a4, SP[a3, a5], n] - S2[a1, a2, a6, SP[a4, a5], a3, n] - 
    S2[a1, a2, SP[a4, a5], a3, a6, n] - S2[a1, a2, SP[a4, a5], a6, a3, n] - 
    S2[a1, a2, SP[a4, a6], a3, a5, n] - S2[a1, a2, SP[a4, a6], a5, a3, n] + 
    S2[a1, a3, a6, a2, SP[a4, a5], n] + S2[a1, a3, a6, SP[a2, a4], a5, n] + 
    S2[a1, a3, SP[a4, a6], a2, a5, n] - S2[a1, a4, a2, a5, SP[a3, a6], n] - 
    S2[a1, a4, a2, a6, SP[a3, a5], n] - S2[a1, a4, a2, SP[a3, a5], a6, n] - 
    S2[a1, a4, a2, SP[a3, a6], a5, n] - S2[a6, n]*S2[a1, a4, a3, a5, a2, n] + 
    S2[a2, n]*S2[a1, a4, a3, a5, a6, n] + 
    S2[a2, n]*S2[a1, a4, a3, a6, a5, n] + S2[a1, a4, a3, a6, SP[a2, a5], n] + 
    S2[a1, a4, a3, SP[a2, a5], a6, n] + S2[a1, a4, a3, SP[a2, a6], a5, n] - 
    S2[a1, a4, a3, SP[a5, a6], a2, n] - S2[a6, n]*S2[a1, a4, a5, a2, a3, n] - 
    S2[a1, a4, a5, a2, SP[a3, a6], n] - S2[a6, n]*S2[a1, a4, a5, a3, a2, n] + 
    S2[a2, n]*S2[a1, a4, a5, a3, a6, n] + 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] + S2[a1, a4, a5, a6, SP[a2, a3], n] + 
    S2[a1, a4, a5, SP[a2, a3], a6, n] - S2[a1, a4, a5, SP[a3, a6], a2, n] - 
    S2[a3, n]*S2[a1, a4, a6, a2, a5, n] - S2[a1, a4, a6, a2, SP[a3, a5], n] + 
    S2[a2, n]*S2[a1, a4, a6, a3, a5, n] + S2[a1, a4, a6, a3, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a4, a6, a5, a3, n] + S2[a1, a4, a6, a5, SP[a2, a3], n] + 
    S2[a1, a4, a6, SP[a2, a5], a3, n] + S2[a1, a4, SP[a2, a5], a3, a6, n] + 
    S2[a1, a4, SP[a2, a5], a6, a3, n] + S2[a1, a4, SP[a2, a6], a3, a5, n] + 
    S2[a1, a4, SP[a2, a6], a5, a3, n] - S2[a1, a4, SP[a3, a6], a2, a5, n] - 
    S2[a1, a4, SP[a3, a6], a5, a2, n] - S2[a1, a4, SP[a5, a6], a2, a3, n] - 
    S2[a1, a4, SP[a5, a6], a3, a2, n] - S2[a6, n]*S2[a1, a5, a2, a4, a3, n] - 
    S2[a1, a5, a2, a4, SP[a3, a6], n] - S2[a1, a5, a2, SP[a4, a6], a3, n] - 
    S2[a6, n]*S2[a1, a5, a4, a2, a3, n] - S2[a1, a5, a4, a2, SP[a3, a6], n] - 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] + 
    S2[a2, n]*S2[a1, a5, a4, a3, a6, n] + 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] + S2[a1, a5, a4, a6, SP[a2, a3], n] + 
    S2[a1, a5, a4, SP[a2, a3], a6, n] - S2[a1, a5, a4, SP[a3, a6], a2, n] + 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] + S2[a1, a5, a6, a4, SP[a2, a3], n] + 
    S2[a1, a5, a6, SP[a2, a4], a3, n] + S2[a1, a5, SP[a2, a4], a3, a6, n] + 
    S2[a1, a5, SP[a2, a4], a6, a3, n] - S2[a1, a5, SP[a4, a6], a2, a3, n] - 
    S2[a1, a5, SP[a4, a6], a3, a2, n] + S2[a1, a6, a2, a3, SP[a4, a5], n] - 
    S2[a3, n]*S2[a1, a6, a2, a4, a5, n] - S2[a1, a6, a2, a4, SP[a3, a5], n] - 
    S2[a3, n]*S2[a1, a6, a2, a5, a4, n] - S2[a1, a6, a2, a5, SP[a3, a4], n] - 
    S2[a1, a6, a2, SP[a3, a4], a5, n] + S2[a1, a6, a3, a2, SP[a4, a5], n] + 
    S2[a1, a6, a3, SP[a2, a4], a5, n] - S2[a3, n]*S2[a1, a6, a4, a2, a5, n] - 
    S2[a1, a6, a4, a2, SP[a3, a5], n] + S2[a2, n]*S2[a1, a6, a4, a3, a5, n] + 
    S2[a1, a6, a4, a3, SP[a2, a5], n] + S2[a2, n]*S2[a1, a6, a4, a5, a3, n] + 
    S2[a1, a6, a4, a5, SP[a2, a3], n] + S2[a1, a6, a4, SP[a2, a5], a3, n] + 
    S2[a2, n]*S2[a1, a6, a5, a4, a3, n] + S2[a1, a6, a5, a4, SP[a2, a3], n] + 
    S2[a1, a6, a5, SP[a2, a4], a3, n] + S2[a1, a6, SP[a2, a4], a3, a5, n] + 
    S2[a1, a6, SP[a2, a4], a5, a3, n] + S2[a1, a6, SP[a2, a5], a4, a3, n] - 
    S2[a1, a6, SP[a3, a4], a2, a5, n] + S2[a1, SP[a2, a5], a4, a3, a6, n] + 
    S2[a1, SP[a2, a5], a4, a6, a3, n] + S2[a1, SP[a2, a5], a6, a4, a3, n] + 
    S2[a1, SP[a2, a6], a4, a3, a5, n] + S2[a1, SP[a2, a6], a4, a5, a3, n] + 
    S2[a1, SP[a2, a6], a5, a4, a3, n] - S2[a1, SP[a3, a4], a6, a2, a5, n] - 
    S2[a1, SP[a4, a6], a3, a5, a2, n] - S2[a1, SP[a4, a6], a5, a2, a3, n] - 
    S2[a1, SP[a4, a6], a5, a3, a2, n] - S2[a1, SP[a5, a6], a2, a4, a3, n] - 
    S2[a1, SP[a5, a6], a4, a2, a3, n] - S2[a1, SP[a5, a6], a4, a3, a2, n] - 
    S2[a2, a1, a4, a5, SP[a3, a6], n] - S2[a2, a1, a4, a6, SP[a3, a5], n] - 
    S2[a2, a1, a4, SP[a3, a5], a6, n] - S2[a2, a1, a4, SP[a3, a6], a5, n] - 
    S2[a2, a1, a5, a4, SP[a3, a6], n] - S2[a2, a1, a5, SP[a4, a6], a3, n] - 
    S2[a2, a1, a6, a4, SP[a3, a5], n] - S2[a2, a1, a6, SP[a4, a5], a3, n] - 
    S2[a2, a1, SP[a4, a5], a3, a6, n] - S2[a2, a1, SP[a4, a5], a6, a3, n] - 
    S2[a2, a1, SP[a4, a6], a3, a5, n] - S2[a2, a1, SP[a4, a6], a5, a3, n] + 
    S2[a6, n]*S2[a2, a5, a1, a4, a3, n] - S2[a2, a6, a1, a4, SP[a3, a5], n] - 
    S2[a2, a6, a1, SP[a4, a5], a3, n] - S2[a2, a6, SP[a1, a5], a4, a3, n] - 
    S2[a2, SP[a1, a5], a4, a3, a6, n] - S2[a2, SP[a1, a5], a4, a6, a3, n] - 
    S2[a2, SP[a1, a5], a6, a4, a3, n] - S2[a2, SP[a1, a6], a4, a3, a5, n] - 
    S2[a2, SP[a1, a6], a4, a5, a3, n] - S2[a2, SP[a1, a6], a5, a4, a3, n] + 
    S2[a2, SP[a5, a6], a1, a4, a3, n] + S2[a3, a1, a6, a2, SP[a4, a5], n] + 
    S2[a3, a1, a6, SP[a2, a4], a5, n] + S2[a3, a1, SP[a4, a6], a2, a5, n] + 
    S2[a3, SP[a1, a4], a6, a2, a5, n] + S2[a2, n]*S2[a6, a1, a4, a3, a5, n] + 
    S2[a6, a1, a4, a3, SP[a2, a5], n] + S2[a2, n]*S2[a6, a1, a4, a5, a3, n] + 
    S2[a6, a1, a4, a5, SP[a2, a3], n] + S2[a6, a1, a4, SP[a2, a3], a5, n] + 
    S2[a6, a1, a4, SP[a2, a5], a3, n] + S2[a2, n]*S2[a6, a1, a5, a4, a3, n] + 
    S2[a6, a1, a5, a4, SP[a2, a3], n] + S2[a6, a1, a5, SP[a2, a4], a3, n] + 
    S2[a6, a1, SP[a2, a4], a3, a5, n] + S2[a6, a1, SP[a2, a4], a5, a3, n] + 
    S2[a6, a1, SP[a2, a5], a4, a3, n] + S2[a6, SP[a1, a2], a4, a3, a5, n] + 
    S2[a6, SP[a1, a2], a4, a5, a3, n] + S2[a6, SP[a1, a2], a5, a4, a3, n] - 
    S2[SP[a1, a6], a4, a3, a5, a2, n] - S2[SP[a1, a6], a4, a5, a2, a3, n] - 
    S2[SP[a1, a6], a4, a5, a3, a2, n] - S2[SP[a1, a6], a5, a2, a4, a3, n] - 
    S2[SP[a1, a6], a5, a4, a2, a3, n] - S2[SP[a1, a6], a5, a4, a3, a2, n] + 
    S2[SP[a2, a6], a1, a4, a3, a5, n] + S2[SP[a2, a6], a1, a4, a5, a3, n] + 
    S2[SP[a2, a6], a1, a5, a4, a3, n] + S2[SP[a2, a6], a5, a1, a4, a3, n] - 
    S2[a6, a1, a2, a4, a3, a5, n] - S2[a6, a1, a2, a4, a5, a3, n] - 
    S2[a6, a1, a2, a5, a4, a3, n] - S2[a6, a1, a4, a2, a3, a5, n] - 
    S2[a6, a1, a4, a2, a5, a3, n] - S2[a6, a1, a4, a3, a2, a5, n] - 
    S2[a6, a2, a1, a4, a3, a5, n] - S2[a6, a2, a1, a4, a5, a3, n] - 
    S2[a6, a2, a1, a5, a4, a3, n] - S2[a6, a2, a5, a1, a4, a3, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a3_, a4_, a1_, a6_, a5_, a2_, n_] :> 
  S2[a1, a4, a3, n]*S2[a2, a5, a6, n] + S2[SP[a1, a2], SP[a4, a5], 
     SP[a3, a6], n] - S2[a1, a2, SP[a4, a5], SP[a3, a6], n] + 
    S2[a3, a4, n]*S2[a1, a6, a5, a2, n] - S2[a1, a6, SP[a3, a5], SP[a2, a4], 
     n] - S2[a1, SP[a2, a4], a5, SP[a3, a6], n] - 
    S2[a1, SP[a2, a4], SP[a3, a5], a6, n] - S2[a1, SP[a3, a6], a5, 
     SP[a2, a4], n] - S2[a1, SP[a3, a6], SP[a4, a5], a2, n] - 
    S2[a2, a1, SP[a4, a5], SP[a3, a6], n] - S2[a2, SP[a1, a5], a4, 
     SP[a3, a6], n] - S2[a2, SP[a1, a5], SP[a4, a6], a3, n] - 
    S2[SP[a1, a2], a4, a5, SP[a3, a6], n] - S2[SP[a1, a2], a4, SP[a3, a5], 
     a6, n] - S2[SP[a1, a2], a5, a4, SP[a3, a6], n] - 
    S2[SP[a1, a2], a5, SP[a4, a6], a3, n] - S2[SP[a1, a2], SP[a4, a5], a3, 
     a6, n] - S2[SP[a1, a2], SP[a4, a5], a6, a3, n] - 
    S2[SP[a1, a3], a6, a5, SP[a2, a4], n] - S2[SP[a1, a3], a6, SP[a4, a5], 
     a2, n] - S2[SP[a1, a3], SP[a4, a6], a5, a2, n] + 
    S2[a1, a2, a4, a5, SP[a3, a6], n] + S2[a1, a2, a4, SP[a3, a5], a6, n] + 
    S2[a1, a2, a5, a4, SP[a3, a6], n] + S2[a1, a2, a5, SP[a4, a6], a3, n] + 
    S2[a1, a2, SP[a4, a5], a3, a6, n] + S2[a1, a2, SP[a4, a5], a6, a3, n] + 
    S2[a1, a3, a6, a5, SP[a2, a4], n] + S2[a1, a3, a6, SP[a4, a5], a2, n] + 
    S2[a1, a3, SP[a4, a6], a5, a2, n] + S2[a1, a4, a2, a5, SP[a3, a6], n] + 
    S2[a1, a4, a2, SP[a3, a5], a6, n] + S2[a6, n]*S2[a1, a4, a3, a5, a2, n] - 
    S2[a2, n]*S2[a1, a4, a3, a5, a6, n] - S2[a1, a4, a3, SP[a2, a5], a6, n] + 
    S2[a1, a4, a3, SP[a5, a6], a2, n] + S2[a6, n]*S2[a1, a4, a5, a2, a3, n] + 
    S2[a1, a4, a5, a2, SP[a3, a6], n] + S2[a6, n]*S2[a1, a4, a5, a3, a2, n] - 
    S2[a2, n]*S2[a1, a4, a5, a3, a6, n] - 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] - S2[a1, a4, a5, a6, SP[a2, a3], n] - 
    S2[a1, a4, a5, SP[a2, a3], a6, n] + S2[a1, a4, a5, SP[a3, a6], a2, n] - 
    S2[a3, n]*S2[a1, a4, a6, a5, a2, n] - S2[a1, a4, a6, a5, SP[a2, a3], n] - 
    S2[a1, a4, a6, SP[a3, a5], a2, n] - S2[a1, a4, SP[a2, a5], a3, a6, n] - 
    S2[a1, a4, SP[a2, a5], a6, a3, n] + S2[a1, a4, SP[a5, a6], a2, a3, n] + 
    S2[a1, a4, SP[a5, a6], a3, a2, n] + S2[a6, n]*S2[a1, a5, a2, a4, a3, n] + 
    S2[a1, a5, a2, a4, SP[a3, a6], n] + S2[a1, a5, a2, SP[a4, a6], a3, n] + 
    S2[a6, n]*S2[a1, a5, a4, a2, a3, n] + S2[a1, a5, a4, a2, SP[a3, a6], n] + 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] - 
    S2[a2, n]*S2[a1, a5, a4, a3, a6, n] - 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] - S2[a1, a5, a4, a6, SP[a2, a3], n] - 
    S2[a1, a5, a4, SP[a2, a3], a6, n] + S2[a1, a5, a4, SP[a3, a6], a2, n] - 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] - S2[a1, a5, a6, a4, SP[a2, a3], n] - 
    S2[a1, a5, a6, SP[a2, a4], a3, n] - S2[a1, a5, SP[a2, a4], a3, a6, n] - 
    S2[a1, a5, SP[a2, a4], a6, a3, n] + S2[a1, a5, SP[a4, a6], a2, a3, n] + 
    S2[a1, a5, SP[a4, a6], a3, a2, n] + S2[a1, a6, a3, a5, SP[a2, a4], n] + 
    S2[a1, a6, a3, SP[a4, a5], a2, n] - S2[a3, n]*S2[a1, a6, a4, a5, a2, n] - 
    S2[a1, a6, a4, a5, SP[a2, a3], n] - S2[a1, a6, a4, SP[a3, a5], a2, n] - 
    S2[a3, n]*S2[a1, a6, a5, a2, a4, n] - S2[a1, a6, a5, a2, SP[a3, a4], n] + 
    S2[a1, a6, a5, a3, SP[a2, a4], n] - S2[a3, n]*S2[a1, a6, a5, a4, a2, n] - 
    S2[a1, a6, a5, a4, SP[a2, a3], n] - S2[a1, a6, a5, SP[a3, a4], a2, n] - 
    S2[a1, a6, SP[a3, a4], a5, a2, n] - S2[a1, SP[a2, a5], a4, a3, a6, n] - 
    S2[a1, SP[a2, a5], a4, a6, a3, n] - S2[a1, SP[a2, a5], a6, a4, a3, n] - 
    S2[a1, SP[a3, a4], a6, a5, a2, n] + S2[a1, SP[a4, a6], a3, a5, a2, n] + 
    S2[a1, SP[a4, a6], a5, a2, a3, n] + S2[a1, SP[a4, a6], a5, a3, a2, n] + 
    S2[a1, SP[a5, a6], a2, a4, a3, n] + S2[a1, SP[a5, a6], a4, a2, a3, n] + 
    S2[a1, SP[a5, a6], a4, a3, a2, n] + S2[a2, a1, a4, a5, SP[a3, a6], n] + 
    S2[a2, a1, a4, SP[a3, a5], a6, n] + S2[a2, a1, a5, a4, SP[a3, a6], n] + 
    S2[a2, a1, a5, SP[a4, a6], a3, n] + S2[a2, a1, SP[a4, a5], a3, a6, n] + 
    S2[a2, a1, SP[a4, a5], a6, a3, n] - S2[a6, n]*S2[a2, a5, a1, a4, a3, n] + 
    S2[a2, SP[a1, a5], a4, a3, a6, n] + S2[a2, SP[a1, a5], a4, a6, a3, n] + 
    S2[a2, SP[a1, a5], a6, a4, a3, n] - S2[a2, SP[a5, a6], a1, a4, a3, n] + 
    S2[a3, a1, a6, a5, SP[a2, a4], n] + S2[a3, a1, a6, SP[a4, a5], a2, n] + 
    S2[a3, a1, SP[a4, a6], a5, a2, n] + S2[a3, SP[a1, a4], a6, a5, a2, n] + 
    S2[a2, n]*S2[a6, a5, a1, a4, a3, n] + S2[a6, a5, a1, a4, SP[a2, a3], n] + 
    S2[a6, a5, a1, SP[a2, a4], a3, n] + S2[a6, a5, SP[a1, a2], a4, a3, n] + 
    S2[a6, SP[a2, a5], a1, a4, a3, n] + S2[SP[a1, a6], a4, a3, a5, a2, n] + 
    S2[SP[a1, a6], a4, a5, a2, a3, n] + S2[SP[a1, a6], a4, a5, a3, a2, n] + 
    S2[SP[a1, a6], a5, a2, a4, a3, n] + S2[SP[a1, a6], a5, a4, a2, a3, n] + 
    S2[SP[a1, a6], a5, a4, a3, a2, n] - S2[a6, a1, a4, a3, a5, a2, n] - 
    S2[a6, a1, a4, a5, a2, a3, n] - S2[a6, a1, a4, a5, a3, a2, n] - 
    S2[a6, a1, a5, a2, a4, a3, n] - S2[a6, a1, a5, a4, a2, a3, n] - 
    S2[a6, a1, a5, a4, a3, a2, n] - S2[a6, a5, a1, a2, a4, a3, n] - 
    S2[a6, a5, a1, a4, a2, a3, n] - S2[a6, a5, a1, a4, a3, a2, n] - 
    S2[a6, a5, a2, a1, a4, a3, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a3_, a4_, a2_, a1_, a5_, a6_, n_] :> 
  S2[a1, a5, a6, n]*S2[a2, a4, a3, n] + S2[SP[a1, a2], SP[a4, a5], 
     SP[a3, a6], n] - S2[a5, a6, n]*S2[a1, a2, a4, a3, n] - 
    S2[a3, a4, n]*S2[a1, a2, a5, a6, n] + S2[a1, a2, SP[a3, a5], SP[a4, a6], 
     n] - S2[a3, a4, n]*S2[a1, a5, a2, a6, n] - 
    S2[a3, a4, n]*S2[a1, a5, a6, a2, n] + S2[a1, a5, SP[a2, a3], SP[a4, a6], 
     n] + S2[a1, a5, SP[a3, a6], SP[a2, a4], n] + S2[a1, SP[a2, a3], a5, 
     SP[a4, a6], n] + S2[a1, SP[a2, a3], SP[a4, a5], a6, n] + 
    S2[a1, SP[a3, a5], a2, SP[a4, a6], n] + S2[a1, SP[a3, a5], a6, 
     SP[a2, a4], n] + S2[a1, SP[a3, a5], SP[a2, a4], a6, n] + 
    S2[a1, SP[a3, a5], SP[a4, a6], a2, n] - S2[a2, a1, SP[a4, a5], 
     SP[a3, a6], n] - S2[a2, SP[a1, a4], a5, SP[a3, a6], n] - 
    S2[a2, SP[a1, a4], SP[a3, a5], a6, n] - S2[SP[a1, a2], a4, a5, 
     SP[a3, a6], n] - S2[SP[a1, a2], a4, SP[a3, a5], a6, n] - 
    S2[SP[a1, a2], a5, a4, SP[a3, a6], n] - S2[SP[a1, a2], a5, SP[a4, a6], 
     a3, n] - S2[SP[a1, a2], SP[a4, a5], a3, a6, n] - 
    S2[SP[a1, a2], SP[a4, a5], a6, a3, n] + S2[SP[a1, a3], a2, a5, 
     SP[a4, a6], n] + S2[SP[a1, a3], a2, SP[a4, a5], a6, n] + 
    S2[SP[a1, a3], a5, a2, SP[a4, a6], n] + S2[SP[a1, a3], a5, a6, 
     SP[a2, a4], n] + S2[SP[a1, a3], a5, SP[a2, a4], a6, n] + 
    S2[SP[a1, a3], a5, SP[a4, a6], a2, n] + S2[SP[a1, a3], SP[a2, a4], a5, 
     a6, n] + S2[SP[a1, a3], SP[a4, a5], a2, a6, n] + 
    S2[SP[a1, a3], SP[a4, a5], a6, a2, n] + S2[SP[a1, a5], a2, a4, 
     SP[a3, a6], n] + S2[SP[a1, a5], a2, SP[a4, a6], a3, n] + 
    S2[SP[a1, a5], SP[a2, a6], a4, a3, n] - S2[a1, a2, a3, a5, SP[a4, a6], 
     n] - S2[a1, a2, a3, SP[a4, a5], a6, n] - 
    S2[a6, n]*S2[a1, a2, a4, a3, a5, n] + 
    S2[a5, n]*S2[a1, a2, a4, a3, a6, n] - 
    S2[a6, n]*S2[a1, a2, a4, a5, a3, n] + 
    S2[a3, n]*S2[a1, a2, a4, a5, a6, n] + 
    S2[a5, n]*S2[a1, a2, a4, a6, a3, n] + S2[a1, a2, a4, a6, SP[a3, a5], n] + 
    2*S2[a1, a2, a4, SP[a3, a5], a6, n] - S2[a1, a2, a4, SP[a3, a6], a5, n] - 
    S2[a1, a2, a5, a3, SP[a4, a6], n] - S2[a6, n]*S2[a1, a2, a5, a4, a3, n] + 
    S2[a3, n]*S2[a1, a2, a5, a4, a6, n] + 
    S2[a3, n]*S2[a1, a2, a5, a6, a4, n] + S2[a1, a2, a5, a6, SP[a3, a4], n] + 
    S2[a1, a2, a5, SP[a3, a4], a6, n] - S2[a1, a2, a5, SP[a4, a6], a3, n] + 
    S2[a5, n]*S2[a1, a2, a6, a4, a3, n] + S2[a1, a2, a6, a4, SP[a3, a5], n] + 
    S2[a1, a2, a6, SP[a4, a5], a3, n] + S2[a1, a2, SP[a3, a4], a5, a6, n] + 
    S2[a1, a2, SP[a4, a5], a3, a6, n] + S2[a1, a2, SP[a4, a5], a6, a3, n] - 
    S2[a1, a2, SP[a4, a6], a3, a5, n] - S2[a1, a2, SP[a4, a6], a5, a3, n] - 
    S2[a1, a3, a2, a5, SP[a4, a6], n] - S2[a1, a3, a2, SP[a4, a5], a6, n] - 
    S2[a1, a3, a5, a2, SP[a4, a6], n] - S2[a1, a3, a5, a6, SP[a2, a4], n] - 
    S2[a1, a3, a5, SP[a2, a4], a6, n] - S2[a1, a3, a5, SP[a4, a6], a2, n] - 
    S2[a1, a3, SP[a2, a4], a5, a6, n] - S2[a1, a3, SP[a4, a5], a2, a6, n] - 
    S2[a1, a3, SP[a4, a5], a6, a2, n] + S2[a3, n]*S2[a1, a4, a2, a5, a6, n] + 
    S2[a1, a4, a2, a5, SP[a3, a6], n] + S2[a1, a4, a2, SP[a3, a5], a6, n] - 
    S2[a2, n]*S2[a1, a4, a3, a5, a6, n] - S2[a1, a4, a3, a5, SP[a2, a6], n] - 
    S2[a1, a4, a3, SP[a2, a5], a6, n] + S2[a3, n]*S2[a1, a4, a5, a2, a6, n] + 
    S2[a1, a4, a5, a2, SP[a3, a6], n] - S2[a2, n]*S2[a1, a4, a5, a3, a6, n] - 
    S2[a1, a4, a5, a3, SP[a2, a6], n] + S2[a3, n]*S2[a1, a4, a5, a6, a2, n] - 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] - S2[a1, a4, a5, SP[a2, a6], a3, n] + 
    S2[a1, a4, a5, SP[a3, a6], a2, n] - S2[a1, a4, SP[a2, a5], a3, a6, n] - 
    S2[a1, a4, SP[a2, a5], a6, a3, n] + S2[a1, a4, SP[a3, a5], a2, a6, n] + 
    S2[a1, a4, SP[a3, a5], a6, a2, n] - S2[a1, a5, a2, a3, SP[a4, a6], n] - 
    S2[a6, n]*S2[a1, a5, a2, a4, a3, n] + 
    S2[a3, n]*S2[a1, a5, a2, a4, a6, n] + 
    S2[a3, n]*S2[a1, a5, a2, a6, a4, n] + S2[a1, a5, a2, a6, SP[a3, a4], n] + 
    S2[a1, a5, a2, SP[a3, a4], a6, n] - S2[a1, a5, a2, SP[a4, a6], a3, n] - 
    S2[a1, a5, a3, a2, SP[a4, a6], n] - S2[a1, a5, a3, a6, SP[a2, a4], n] - 
    S2[a1, a5, a3, SP[a2, a4], a6, n] - S2[a1, a5, a3, SP[a4, a6], a2, n] + 
    S2[a3, n]*S2[a1, a5, a4, a2, a6, n] + S2[a1, a5, a4, a2, SP[a3, a6], n] - 
    S2[a2, n]*S2[a1, a5, a4, a3, a6, n] - S2[a1, a5, a4, a3, SP[a2, a6], n] + 
    S2[a3, n]*S2[a1, a5, a4, a6, a2, n] - 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] - S2[a1, a5, a4, SP[a2, a6], a3, n] + 
    S2[a1, a5, a4, SP[a3, a6], a2, n] + S2[a3, n]*S2[a1, a5, a6, a2, a4, n] + 
    S2[a1, a5, a6, a2, SP[a3, a4], n] - S2[a1, a5, a6, a3, SP[a2, a4], n] + 
    S2[a3, n]*S2[a1, a5, a6, a4, a2, n] - 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] - S2[a1, a5, a6, SP[a2, a4], a3, n] + 
    S2[a1, a5, a6, SP[a3, a4], a2, n] - S2[a1, a5, SP[a2, a4], a3, a6, n] - 
    S2[a1, a5, SP[a2, a4], a6, a3, n] - 2*S2[a1, a5, SP[a2, a6], a4, a3, n] + 
    S2[a1, a5, SP[a3, a4], a2, a6, n] + S2[a1, a5, SP[a3, a4], a6, a2, n] + 
    S2[a5, n]*S2[a1, a6, a2, a4, a3, n] + S2[a1, a6, a2, a4, SP[a3, a5], n] + 
    S2[a1, a6, a2, SP[a4, a5], a3, n] + S2[a1, a6, SP[a2, a5], a4, a3, n] - 
    S2[a1, SP[a2, a4], a3, a5, a6, n] - S2[a1, SP[a2, a4], a5, a3, a6, n] - 
    S2[a1, SP[a2, a4], a5, a6, a3, n] - S2[a1, SP[a2, a6], a4, a3, a5, n] - 
    S2[a1, SP[a2, a6], a4, a5, a3, n] - S2[a1, SP[a2, a6], a5, a4, a3, n] + 
    S2[a1, SP[a3, a4], a2, a5, a6, n] + S2[a1, SP[a3, a4], a5, a2, a6, n] + 
    S2[a1, SP[a3, a4], a5, a6, a2, n] + S2[a2, a1, a4, a5, SP[a3, a6], n] + 
    S2[a2, a1, a4, SP[a3, a5], a6, n] + S2[a2, a1, a5, a4, SP[a3, a6], n] + 
    S2[a2, a1, a5, SP[a4, a6], a3, n] + S2[a2, a1, SP[a4, a5], a3, a6, n] + 
    S2[a2, a1, SP[a4, a5], a6, a3, n] - S2[a3, n]*S2[a2, a4, a1, a5, a6, n] + 
    S2[a2, SP[a1, a4], a3, a5, a6, n] + S2[a2, SP[a1, a4], a5, a3, a6, n] + 
    S2[a2, SP[a1, a4], a5, a6, a3, n] - S2[a2, SP[a3, a4], a1, a5, a6, n] - 
    S2[a3, a1, a2, a5, SP[a4, a6], n] - S2[a3, a1, a2, SP[a4, a5], a6, n] - 
    S2[a3, a1, a5, a2, SP[a4, a6], n] - S2[a3, a1, a5, a6, SP[a2, a4], n] - 
    S2[a3, a1, a5, SP[a2, a4], a6, n] - S2[a3, a1, a5, SP[a4, a6], a2, n] - 
    S2[a3, a1, SP[a2, a4], a5, a6, n] - S2[a3, a1, SP[a4, a5], a2, a6, n] - 
    S2[a3, a1, SP[a4, a5], a6, a2, n] + S2[a2, n]*S2[a3, a4, a1, a5, a6, n] + 
    S2[a3, a4, a1, a5, SP[a2, a6], n] + S2[a3, a4, a1, SP[a2, a5], a6, n] + 
    S2[a3, a4, SP[a1, a2], a5, a6, n] - S2[a3, SP[a1, a4], a2, a5, a6, n] - 
    S2[a3, SP[a1, a4], a5, a2, a6, n] - S2[a3, SP[a1, a4], a5, a6, a2, n] + 
    S2[a3, SP[a2, a4], a1, a5, a6, n] - S2[a5, a1, a2, a4, SP[a3, a6], n] - 
    S2[a5, a1, a2, SP[a4, a6], a3, n] - S2[a5, a1, SP[a2, a6], a4, a3, n] - 
    S2[a5, SP[a1, a6], a2, a4, a3, n] + S2[a5, n]*S2[a6, a1, a2, a4, a3, n] + 
    S2[a6, a1, a2, a4, SP[a3, a5], n] + S2[a6, a1, a2, SP[a4, a5], a3, n] + 
    S2[a6, a1, SP[a2, a5], a4, a3, n] + S2[a6, SP[a1, a5], a2, a4, a3, n] - 
    S2[SP[a1, a6], a2, a4, a3, a5, n] - S2[SP[a1, a6], a2, a4, a5, a3, n] - 
    S2[SP[a1, a6], a2, a5, a4, a3, n] - S2[SP[a1, a6], a5, a2, a4, a3, n] + 
    S2[SP[a5, a6], a1, a2, a4, a3, n] - S2[a6, a5, a1, a2, a4, a3, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a3_, a4_, a2_, a1_, a6_, a5_, n_] :> 
  S2[a1, a6, a5, n]*S2[a2, a4, a3, n] + S2[SP[a1, a2], SP[a4, a6], 
     SP[a3, a5], n] + S2[a5, a6, n]*S2[a1, a2, a4, a3, n] - 
    S2[a3, a4, n]*S2[a1, a2, a6, a5, n] + S2[a1, a2, SP[a3, a6], SP[a4, a5], 
     n] - S2[a1, a2, SP[a4, a5], SP[a3, a6], n] - S2[a1, a2, SP[a4, a6], 
     SP[a3, a5], n] - S2[a3, a4, n]*S2[a1, a6, a2, a5, n] - 
    S2[a3, a4, n]*S2[a1, a6, a5, a2, n] + S2[a1, a6, SP[a2, a3], SP[a4, a5], 
     n] + S2[a1, a6, SP[a3, a5], SP[a2, a4], n] + S2[a1, SP[a2, a3], a6, 
     SP[a4, a5], n] + S2[a1, SP[a2, a3], SP[a4, a6], a5, n] - 
    S2[a1, SP[a2, a5], a4, SP[a3, a6], n] - S2[a1, SP[a2, a5], SP[a4, a6], 
     a3, n] - S2[a1, SP[a2, a6], a4, SP[a3, a5], n] - 
    S2[a1, SP[a2, a6], SP[a4, a5], a3, n] + S2[a1, SP[a3, a6], a2, 
     SP[a4, a5], n] + S2[a1, SP[a3, a6], a5, SP[a2, a4], n] + 
    S2[a1, SP[a3, a6], SP[a2, a4], a5, n] + S2[a1, SP[a3, a6], SP[a4, a5], 
     a2, n] - S2[a2, a1, SP[a4, a6], SP[a3, a5], n] - 
    S2[a2, SP[a1, a4], a6, SP[a3, a5], n] - S2[a2, SP[a1, a4], SP[a3, a6], 
     a5, n] - S2[SP[a1, a2], a4, a6, SP[a3, a5], n] - 
    S2[SP[a1, a2], a4, SP[a3, a6], a5, n] - S2[SP[a1, a2], a6, a4, 
     SP[a3, a5], n] - S2[SP[a1, a2], a6, SP[a4, a5], a3, n] - 
    S2[SP[a1, a2], SP[a4, a6], a3, a5, n] - S2[SP[a1, a2], SP[a4, a6], a5, 
     a3, n] + S2[SP[a1, a3], a2, a6, SP[a4, a5], n] + 
    S2[SP[a1, a3], a2, SP[a4, a6], a5, n] + S2[SP[a1, a3], a6, a2, 
     SP[a4, a5], n] + S2[SP[a1, a3], a6, a5, SP[a2, a4], n] + 
    S2[SP[a1, a3], a6, SP[a2, a4], a5, n] + S2[SP[a1, a3], a6, SP[a4, a5], 
     a2, n] + S2[SP[a1, a3], SP[a2, a4], a6, a5, n] + 
    S2[SP[a1, a3], SP[a4, a6], a2, a5, n] + S2[SP[a1, a3], SP[a4, a6], a5, 
     a2, n] - S2[SP[a1, a5], a2, a4, SP[a3, a6], n] - 
    S2[SP[a1, a5], a2, SP[a4, a6], a3, n] - S2[SP[a1, a5], SP[a2, a6], a4, 
     a3, n] - S2[a1, a2, a3, a6, SP[a4, a5], n] - S2[a1, a2, a3, SP[a4, a6], 
     a5, n] - S2[a5, n]*S2[a1, a2, a4, a3, a6, n] - 
    S2[a1, a2, a4, a3, SP[a5, a6], n] + S2[a1, a2, a4, a5, SP[a3, a6], n] - 
    S2[a5, n]*S2[a1, a2, a4, a6, a3, n] + 
    S2[a3, n]*S2[a1, a2, a4, a6, a5, n] + S2[a1, a2, a4, a6, SP[a3, a5], n] + 
    2*S2[a1, a2, a4, SP[a3, a6], a5, n] - S2[a1, a2, a4, SP[a5, a6], a3, n] + 
    S2[a1, a2, a5, a4, SP[a3, a6], n] + S2[a1, a2, a5, SP[a4, a6], a3, n] - 
    S2[a1, a2, a6, a3, SP[a4, a5], n] - S2[a5, n]*S2[a1, a2, a6, a4, a3, n] + 
    S2[a3, n]*S2[a1, a2, a6, a4, a5, n] + S2[a1, a2, a6, a4, SP[a3, a5], n] + 
    S2[a3, n]*S2[a1, a2, a6, a5, a4, n] + S2[a1, a2, a6, a5, SP[a3, a4], n] + 
    S2[a1, a2, a6, SP[a3, a4], a5, n] + S2[a1, a2, SP[a3, a4], a6, a5, n] + 
    S2[a1, a2, SP[a4, a6], a3, a5, n] + S2[a1, a2, SP[a4, a6], a5, a3, n] - 
    S2[a1, a2, SP[a5, a6], a4, a3, n] - S2[a1, a3, a2, a6, SP[a4, a5], n] - 
    S2[a1, a3, a2, SP[a4, a6], a5, n] - S2[a1, a3, a6, a2, SP[a4, a5], n] - 
    S2[a1, a3, a6, a5, SP[a2, a4], n] - S2[a1, a3, a6, SP[a2, a4], a5, n] - 
    S2[a1, a3, a6, SP[a4, a5], a2, n] - S2[a1, a3, SP[a2, a4], a6, a5, n] - 
    S2[a1, a3, SP[a4, a6], a2, a5, n] - S2[a1, a3, SP[a4, a6], a5, a2, n] + 
    S2[a3, n]*S2[a1, a4, a2, a6, a5, n] + S2[a1, a4, a2, a6, SP[a3, a5], n] + 
    S2[a1, a4, a2, SP[a3, a6], a5, n] - S2[a2, n]*S2[a1, a4, a3, a6, a5, n] - 
    S2[a1, a4, a3, a6, SP[a2, a5], n] - S2[a1, a4, a3, SP[a2, a6], a5, n] + 
    S2[a3, n]*S2[a1, a4, a6, a2, a5, n] + S2[a1, a4, a6, a2, SP[a3, a5], n] - 
    S2[a2, n]*S2[a1, a4, a6, a3, a5, n] - S2[a1, a4, a6, a3, SP[a2, a5], n] + 
    S2[a3, n]*S2[a1, a4, a6, a5, a2, n] - 
    S2[a2, n]*S2[a1, a4, a6, a5, a3, n] - S2[a1, a4, a6, SP[a2, a5], a3, n] + 
    S2[a1, a4, a6, SP[a3, a5], a2, n] - S2[a1, a4, SP[a2, a6], a3, a5, n] - 
    S2[a1, a4, SP[a2, a6], a5, a3, n] + S2[a1, a4, SP[a3, a6], a2, a5, n] + 
    S2[a1, a4, SP[a3, a6], a5, a2, n] + S2[a1, a5, a2, a4, SP[a3, a6], n] + 
    S2[a1, a5, a2, SP[a4, a6], a3, n] + S2[a1, a5, SP[a2, a6], a4, a3, n] - 
    S2[a1, a6, a2, a3, SP[a4, a5], n] - S2[a5, n]*S2[a1, a6, a2, a4, a3, n] + 
    S2[a3, n]*S2[a1, a6, a2, a4, a5, n] + S2[a1, a6, a2, a4, SP[a3, a5], n] + 
    S2[a3, n]*S2[a1, a6, a2, a5, a4, n] + S2[a1, a6, a2, a5, SP[a3, a4], n] + 
    S2[a1, a6, a2, SP[a3, a4], a5, n] - S2[a1, a6, a3, a2, SP[a4, a5], n] - 
    S2[a1, a6, a3, a5, SP[a2, a4], n] - S2[a1, a6, a3, SP[a2, a4], a5, n] - 
    S2[a1, a6, a3, SP[a4, a5], a2, n] + S2[a3, n]*S2[a1, a6, a4, a2, a5, n] + 
    S2[a1, a6, a4, a2, SP[a3, a5], n] - S2[a2, n]*S2[a1, a6, a4, a3, a5, n] - 
    S2[a1, a6, a4, a3, SP[a2, a5], n] + S2[a3, n]*S2[a1, a6, a4, a5, a2, n] - 
    S2[a2, n]*S2[a1, a6, a4, a5, a3, n] - S2[a1, a6, a4, SP[a2, a5], a3, n] + 
    S2[a1, a6, a4, SP[a3, a5], a2, n] + S2[a3, n]*S2[a1, a6, a5, a2, a4, n] + 
    S2[a1, a6, a5, a2, SP[a3, a4], n] - S2[a1, a6, a5, a3, SP[a2, a4], n] + 
    S2[a3, n]*S2[a1, a6, a5, a4, a2, n] - 
    S2[a2, n]*S2[a1, a6, a5, a4, a3, n] - S2[a1, a6, a5, SP[a2, a4], a3, n] + 
    S2[a1, a6, a5, SP[a3, a4], a2, n] - S2[a1, a6, SP[a2, a4], a3, a5, n] - 
    S2[a1, a6, SP[a2, a4], a5, a3, n] - S2[a1, a6, SP[a2, a5], a4, a3, n] + 
    S2[a1, a6, SP[a3, a4], a2, a5, n] + S2[a1, a6, SP[a3, a4], a5, a2, n] - 
    S2[a1, SP[a2, a4], a3, a6, a5, n] - S2[a1, SP[a2, a4], a6, a3, a5, n] - 
    S2[a1, SP[a2, a4], a6, a5, a3, n] + S2[a1, SP[a3, a4], a2, a6, a5, n] + 
    S2[a1, SP[a3, a4], a6, a2, a5, n] + S2[a1, SP[a3, a4], a6, a5, a2, n] - 
    S2[a1, SP[a5, a6], a2, a4, a3, n] + S2[a2, a1, a4, a6, SP[a3, a5], n] + 
    S2[a2, a1, a4, SP[a3, a6], a5, n] + S2[a2, a1, a6, a4, SP[a3, a5], n] + 
    S2[a2, a1, a6, SP[a4, a5], a3, n] + S2[a2, a1, SP[a4, a6], a3, a5, n] + 
    S2[a2, a1, SP[a4, a6], a5, a3, n] - S2[a3, n]*S2[a2, a4, a1, a6, a5, n] + 
    S2[a2, SP[a1, a4], a3, a6, a5, n] + S2[a2, SP[a1, a4], a6, a3, a5, n] + 
    S2[a2, SP[a1, a4], a6, a5, a3, n] - S2[a2, SP[a3, a4], a1, a6, a5, n] - 
    S2[a3, a1, a2, a6, SP[a4, a5], n] - S2[a3, a1, a2, SP[a4, a6], a5, n] - 
    S2[a3, a1, a6, a2, SP[a4, a5], n] - S2[a3, a1, a6, a5, SP[a2, a4], n] - 
    S2[a3, a1, a6, SP[a2, a4], a5, n] - S2[a3, a1, a6, SP[a4, a5], a2, n] - 
    S2[a3, a1, SP[a2, a4], a6, a5, n] - S2[a3, a1, SP[a4, a6], a2, a5, n] - 
    S2[a3, a1, SP[a4, a6], a5, a2, n] + S2[a2, n]*S2[a3, a4, a1, a6, a5, n] + 
    S2[a3, a4, a1, a6, SP[a2, a5], n] + S2[a3, a4, a1, SP[a2, a6], a5, n] + 
    S2[a3, a4, SP[a1, a2], a6, a5, n] - S2[a3, SP[a1, a4], a2, a6, a5, n] - 
    S2[a3, SP[a1, a4], a6, a2, a5, n] - S2[a3, SP[a1, a4], a6, a5, a2, n] + 
    S2[a3, SP[a2, a4], a1, a6, a5, n] + S2[a5, a1, a2, a4, SP[a3, a6], n] + 
    S2[a5, a1, a2, SP[a4, a6], a3, n] + S2[a5, a1, SP[a2, a6], a4, a3, n] + 
    S2[a5, SP[a1, a6], a2, a4, a3, n] - S2[a5, n]*S2[a6, a1, a2, a4, a3, n] - 
    S2[a6, a1, a2, a4, SP[a3, a5], n] - S2[a6, a1, a2, SP[a4, a5], a3, n] - 
    S2[a6, a1, SP[a2, a5], a4, a3, n] - S2[a6, SP[a1, a5], a2, a4, a3, n] - 
    S2[SP[a5, a6], a1, a2, a4, a3, n] + S2[a6, a1, a2, a4, a3, a5, n] + 
    S2[a6, a1, a2, a4, a5, a3, n] + S2[a6, a1, a2, a5, a4, a3, n] + 
    S2[a6, a1, a5, a2, a4, a3, n] + S2[a6, a5, a1, a2, a4, a3, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a3_, a4_, a2_, a5_, a1_, a6_, n_] :> 
  -(S2[a1, a5, a6, n]*S2[a2, a4, a3, n]) - S2[a1, a6, a5, n]*
     S2[a2, a4, a3, n] - S2[SP[a1, a2], SP[a4, a5], SP[a3, a6], n] - 
    S2[SP[a1, a2], SP[a4, a6], SP[a3, a5], n] + S2[a1, a2, SP[a4, a5], 
     SP[a3, a6], n] + S2[a1, a2, SP[a4, a6], SP[a3, a5], n] + 
    S2[a3, a4, n]*S2[a1, a5, a2, a6, n] + S2[a3, a4, n]*
     S2[a1, a5, a6, a2, n] - S2[a1, a5, SP[a2, a3], SP[a4, a6], n] - 
    S2[a1, a5, SP[a3, a6], SP[a2, a4], n] + S2[a3, a4, n]*
     S2[a1, a6, a5, a2, n] - S2[a1, a6, SP[a3, a5], SP[a2, a4], n] + 
    S2[a1, SP[a2, a5], a4, SP[a3, a6], n] + S2[a1, SP[a2, a5], SP[a4, a6], 
     a3, n] + S2[a1, SP[a2, a6], a4, SP[a3, a5], n] + 
    S2[a1, SP[a2, a6], SP[a4, a5], a3, n] - S2[a1, SP[a3, a5], a2, 
     SP[a4, a6], n] - S2[a1, SP[a3, a5], a6, SP[a2, a4], n] - 
    S2[a1, SP[a3, a5], SP[a2, a4], a6, n] - S2[a1, SP[a3, a5], SP[a4, a6], 
     a2, n] - S2[a1, SP[a3, a6], a5, SP[a2, a4], n] - 
    S2[a1, SP[a3, a6], SP[a4, a5], a2, n] + S2[a2, a1, SP[a4, a5], 
     SP[a3, a6], n] + S2[a2, a1, SP[a4, a6], SP[a3, a5], n] + 
    S2[a2, SP[a1, a4], a5, SP[a3, a6], n] + S2[a2, SP[a1, a4], a6, 
     SP[a3, a5], n] + S2[a2, SP[a1, a4], SP[a3, a5], a6, n] + 
    S2[a2, SP[a1, a4], SP[a3, a6], a5, n] + S2[a1, a6, n]*
     S2[a3, a4, a2, a5, n] - S2[a3, a4, SP[a1, a2], SP[a5, a6], n] - 
    S2[a3, SP[a1, a4], a2, SP[a5, a6], n] - S2[a3, SP[a1, a4], SP[a2, a6], 
     a5, n] + S2[SP[a1, a2], a4, a5, SP[a3, a6], n] + 
    S2[SP[a1, a2], a4, a6, SP[a3, a5], n] + S2[SP[a1, a2], a4, SP[a3, a5], 
     a6, n] + S2[SP[a1, a2], a4, SP[a3, a6], a5, n] + 
    S2[SP[a1, a2], a5, a4, SP[a3, a6], n] + S2[SP[a1, a2], a5, SP[a4, a6], 
     a3, n] + S2[SP[a1, a2], a6, a4, SP[a3, a5], n] + 
    S2[SP[a1, a2], a6, SP[a4, a5], a3, n] + S2[SP[a1, a2], SP[a4, a5], a3, 
     a6, n] + S2[SP[a1, a2], SP[a4, a5], a6, a3, n] + 
    S2[SP[a1, a2], SP[a4, a6], a3, a5, n] + S2[SP[a1, a2], SP[a4, a6], a5, 
     a3, n] - S2[SP[a1, a3], a4, a2, SP[a5, a6], n] - 
    S2[SP[a1, a3], a4, SP[a2, a6], a5, n] - S2[SP[a1, a3], a5, a2, 
     SP[a4, a6], n] - S2[SP[a1, a3], a5, a6, SP[a2, a4], n] - 
    S2[SP[a1, a3], a5, SP[a2, a4], a6, n] - S2[SP[a1, a3], a5, SP[a4, a6], 
     a2, n] - S2[SP[a1, a3], a6, a5, SP[a2, a4], n] - 
    S2[SP[a1, a3], a6, SP[a4, a5], a2, n] - S2[SP[a1, a3], SP[a4, a5], a2, 
     a6, n] - S2[SP[a1, a3], SP[a4, a5], a6, a2, n] - 
    S2[SP[a1, a3], SP[a4, a6], a2, a5, n] - S2[SP[a1, a3], SP[a4, a6], a5, 
     a2, n] - S2[a1, a2, a4, a5, SP[a3, a6], n] - 
    S2[a1, a2, a4, a6, SP[a3, a5], n] - S2[a1, a2, a4, SP[a3, a5], a6, n] - 
    S2[a1, a2, a4, SP[a3, a6], a5, n] - S2[a1, a2, a5, a4, SP[a3, a6], n] - 
    S2[a1, a2, a5, SP[a4, a6], a3, n] - S2[a1, a2, a6, a4, SP[a3, a5], n] - 
    S2[a1, a2, a6, SP[a4, a5], a3, n] - S2[a1, a2, SP[a4, a5], a3, a6, n] - 
    S2[a1, a2, SP[a4, a5], a6, a3, n] - S2[a1, a2, SP[a4, a6], a3, a5, n] - 
    S2[a1, a2, SP[a4, a6], a5, a3, n] + S2[a1, a3, a4, a2, SP[a5, a6], n] + 
    S2[a1, a3, a4, SP[a2, a6], a5, n] + S2[a1, a3, a5, a2, SP[a4, a6], n] + 
    S2[a1, a3, a5, a6, SP[a2, a4], n] + S2[a1, a3, a5, SP[a2, a4], a6, n] + 
    S2[a1, a3, a5, SP[a4, a6], a2, n] + S2[a1, a3, a6, a5, SP[a2, a4], n] + 
    S2[a1, a3, a6, SP[a4, a5], a2, n] + S2[a1, a3, SP[a4, a5], a2, a6, n] + 
    S2[a1, a3, SP[a4, a5], a6, a2, n] + S2[a1, a3, SP[a4, a6], a2, a5, n] + 
    S2[a1, a3, SP[a4, a6], a5, a2, n] - S2[a3, n]*S2[a1, a4, a2, a5, a6, n] - 
    S2[a1, a4, a2, a5, SP[a3, a6], n] - S2[a3, n]*S2[a1, a4, a2, a6, a5, n] - 
    S2[a1, a4, a2, a6, SP[a3, a5], n] - S2[a1, a4, a2, SP[a3, a5], a6, n] - 
    S2[a1, a4, a2, SP[a3, a6], a5, n] + S2[a2, n]*S2[a1, a4, a3, a5, a6, n] + 
    S2[a1, a4, a3, a5, SP[a2, a6], n] + S2[a2, n]*S2[a1, a4, a3, a6, a5, n] + 
    S2[a1, a4, a3, a6, SP[a2, a5], n] + S2[a1, a4, a3, SP[a2, a5], a6, n] + 
    S2[a1, a4, a3, SP[a2, a6], a5, n] - S2[a3, n]*S2[a1, a4, a5, a2, a6, n] - 
    S2[a1, a4, a5, a2, SP[a3, a6], n] + S2[a2, n]*S2[a1, a4, a5, a3, a6, n] + 
    S2[a1, a4, a5, a3, SP[a2, a6], n] - S2[a3, n]*S2[a1, a4, a5, a6, a2, n] + 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] + S2[a1, a4, a5, SP[a2, a6], a3, n] - 
    S2[a1, a4, a5, SP[a3, a6], a2, n] - S2[a3, n]*S2[a1, a4, a6, a2, a5, n] - 
    S2[a1, a4, a6, a2, SP[a3, a5], n] + S2[a2, n]*S2[a1, a4, a6, a3, a5, n] + 
    S2[a1, a4, a6, a3, SP[a2, a5], n] - S2[a3, n]*S2[a1, a4, a6, a5, a2, n] + 
    S2[a2, n]*S2[a1, a4, a6, a5, a3, n] + S2[a1, a4, a6, SP[a2, a5], a3, n] - 
    S2[a1, a4, a6, SP[a3, a5], a2, n] + S2[a1, a4, SP[a2, a5], a3, a6, n] + 
    S2[a1, a4, SP[a2, a5], a6, a3, n] + S2[a1, a4, SP[a2, a6], a3, a5, n] + 
    S2[a1, a4, SP[a2, a6], a5, a3, n] - S2[a1, a4, SP[a3, a5], a2, a6, n] - 
    S2[a1, a4, SP[a3, a5], a6, a2, n] - S2[a1, a4, SP[a3, a6], a2, a5, n] - 
    S2[a1, a4, SP[a3, a6], a5, a2, n] + S2[a1, a5, a2, a3, SP[a4, a6], n] + 
    S2[a6, n]*S2[a1, a5, a2, a4, a3, n] - 
    S2[a3, n]*S2[a1, a5, a2, a4, a6, n] - S2[a1, a5, a2, a4, SP[a3, a6], n] - 
    S2[a3, n]*S2[a1, a5, a2, a6, a4, n] - S2[a1, a5, a2, a6, SP[a3, a4], n] - 
    S2[a1, a5, a2, SP[a3, a4], a6, n] + S2[a1, a5, a3, a2, SP[a4, a6], n] + 
    S2[a1, a5, a3, a6, SP[a2, a4], n] + S2[a1, a5, a3, SP[a2, a4], a6, n] + 
    S2[a1, a5, a3, SP[a4, a6], a2, n] - S2[a3, n]*S2[a1, a5, a4, a2, a6, n] - 
    S2[a1, a5, a4, a2, SP[a3, a6], n] + S2[a2, n]*S2[a1, a5, a4, a3, a6, n] + 
    S2[a1, a5, a4, a3, SP[a2, a6], n] - S2[a3, n]*S2[a1, a5, a4, a6, a2, n] + 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] + S2[a1, a5, a4, SP[a2, a6], a3, n] - 
    S2[a1, a5, a4, SP[a3, a6], a2, n] - S2[a3, n]*S2[a1, a5, a6, a2, a4, n] - 
    S2[a1, a5, a6, a2, SP[a3, a4], n] + S2[a1, a5, a6, a3, SP[a2, a4], n] - 
    S2[a3, n]*S2[a1, a5, a6, a4, a2, n] + 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] + S2[a1, a5, a6, SP[a2, a4], a3, n] - 
    S2[a1, a5, a6, SP[a3, a4], a2, n] + S2[a1, a5, SP[a2, a4], a3, a6, n] + 
    S2[a1, a5, SP[a2, a4], a6, a3, n] + S2[a1, a5, SP[a2, a6], a4, a3, n] - 
    S2[a1, a5, SP[a3, a4], a2, a6, n] - S2[a1, a5, SP[a3, a4], a6, a2, n] - 
    S2[a1, a6, a2, a4, SP[a3, a5], n] - S2[a1, a6, a2, SP[a4, a5], a3, n] + 
    S2[a1, a6, a3, a5, SP[a2, a4], n] + S2[a1, a6, a3, SP[a4, a5], a2, n] - 
    S2[a3, n]*S2[a1, a6, a4, a2, a5, n] - S2[a1, a6, a4, a2, SP[a3, a5], n] + 
    S2[a2, n]*S2[a1, a6, a4, a3, a5, n] + S2[a1, a6, a4, a3, SP[a2, a5], n] - 
    S2[a3, n]*S2[a1, a6, a4, a5, a2, n] + 
    S2[a2, n]*S2[a1, a6, a4, a5, a3, n] + S2[a1, a6, a4, SP[a2, a5], a3, n] - 
    S2[a1, a6, a4, SP[a3, a5], a2, n] - S2[a3, n]*S2[a1, a6, a5, a2, a4, n] - 
    S2[a1, a6, a5, a2, SP[a3, a4], n] + S2[a1, a6, a5, a3, SP[a2, a4], n] - 
    S2[a3, n]*S2[a1, a6, a5, a4, a2, n] + 
    S2[a2, n]*S2[a1, a6, a5, a4, a3, n] + S2[a1, a6, a5, SP[a2, a4], a3, n] - 
    S2[a1, a6, a5, SP[a3, a4], a2, n] + S2[a1, a6, SP[a2, a4], a3, a5, n] + 
    S2[a1, a6, SP[a2, a4], a5, a3, n] - S2[a1, a6, SP[a3, a4], a2, a5, n] - 
    S2[a1, a6, SP[a3, a4], a5, a2, n] + S2[a1, SP[a2, a4], a3, a5, a6, n] + 
    S2[a1, SP[a2, a4], a3, a6, a5, n] + S2[a1, SP[a2, a4], a5, a3, a6, n] + 
    S2[a1, SP[a2, a4], a5, a6, a3, n] + S2[a1, SP[a2, a4], a6, a3, a5, n] + 
    S2[a1, SP[a2, a4], a6, a5, a3, n] - S2[a1, SP[a3, a4], a2, a5, a6, n] - 
    S2[a1, SP[a3, a4], a2, a6, a5, n] - S2[a1, SP[a3, a4], a5, a2, a6, n] - 
    S2[a1, SP[a3, a4], a5, a6, a2, n] - S2[a1, SP[a3, a4], a6, a2, a5, n] - 
    S2[a1, SP[a3, a4], a6, a5, a2, n] + S2[a1, SP[a5, a6], a2, a4, a3, n] - 
    S2[a2, a1, a4, a5, SP[a3, a6], n] - S2[a2, a1, a4, a6, SP[a3, a5], n] - 
    S2[a2, a1, a4, SP[a3, a5], a6, n] - S2[a2, a1, a4, SP[a3, a6], a5, n] - 
    S2[a2, a1, a5, a4, SP[a3, a6], n] - S2[a2, a1, a5, SP[a4, a6], a3, n] - 
    S2[a2, a1, a6, a4, SP[a3, a5], n] - S2[a2, a1, a6, SP[a4, a5], a3, n] - 
    S2[a2, a1, SP[a4, a5], a3, a6, n] - S2[a2, a1, SP[a4, a5], a6, a3, n] - 
    S2[a2, a1, SP[a4, a6], a3, a5, n] - S2[a2, a1, SP[a4, a6], a5, a3, n] + 
    S2[a3, n]*S2[a2, a4, a1, a5, a6, n] + 
    S2[a3, n]*S2[a2, a4, a1, a6, a5, n] - S2[a2, SP[a1, a4], a3, a5, a6, n] - 
    S2[a2, SP[a1, a4], a3, a6, a5, n] - S2[a2, SP[a1, a4], a5, a3, a6, n] - 
    S2[a2, SP[a1, a4], a5, a6, a3, n] - S2[a2, SP[a1, a4], a6, a3, a5, n] - 
    S2[a2, SP[a1, a4], a6, a5, a3, n] + S2[a2, SP[a3, a4], a1, a5, a6, n] + 
    S2[a2, SP[a3, a4], a1, a6, a5, n] + S2[a3, a1, a4, a2, SP[a5, a6], n] + 
    S2[a3, a1, a4, SP[a2, a6], a5, n] + S2[a3, a1, a5, a2, SP[a4, a6], n] + 
    S2[a3, a1, a5, a6, SP[a2, a4], n] + S2[a3, a1, a5, SP[a2, a4], a6, n] + 
    S2[a3, a1, a5, SP[a4, a6], a2, n] + S2[a3, a1, a6, a5, SP[a2, a4], n] + 
    S2[a3, a1, a6, SP[a4, a5], a2, n] + S2[a3, a1, SP[a4, a5], a2, a6, n] + 
    S2[a3, a1, SP[a4, a5], a6, a2, n] + S2[a3, a1, SP[a4, a6], a2, a5, n] + 
    S2[a3, a1, SP[a4, a6], a5, a2, n] + S2[a3, a4, a1, a2, SP[a5, a6], n] - 
    S2[a2, n]*S2[a3, a4, a1, a5, a6, n] - S2[a3, a4, a1, a5, SP[a2, a6], n] - 
    S2[a2, n]*S2[a3, a4, a1, a6, a5, n] - S2[a3, a4, a1, a6, SP[a2, a5], n] - 
    S2[a3, a4, a1, SP[a2, a5], a6, n] + S2[a3, a4, a2, a1, SP[a5, a6], n] + 
    S2[a3, a4, a2, SP[a1, a5], a6, n] + S2[a3, SP[a1, a4], a2, a5, a6, n] + 
    S2[a3, SP[a1, a4], a2, a6, a5, n] + S2[a3, SP[a1, a4], a5, a2, a6, n] + 
    S2[a3, SP[a1, a4], a5, a6, a2, n] + S2[a3, SP[a1, a4], a6, a2, a5, n] + 
    S2[a3, SP[a1, a4], a6, a5, a2, n] - S2[a3, SP[a2, a4], a1, a5, a6, n] - 
    S2[a3, SP[a2, a4], a1, a6, a5, n] + S2[SP[a1, a6], a5, a2, a4, a3, n] - 
    S2[a6, a1, a5, a2, a4, a3, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a3_, a4_, a2_, a5_, a6_, a1_, n_] :> 
  S2[a1, a6, a5, n]*S2[a2, a4, a3, n] + S2[SP[a1, a2], SP[a4, a6], 
     SP[a3, a5], n] - S2[a1, a2, SP[a4, a6], SP[a3, a5], n] - 
    S2[a3, a4, n]*S2[a1, a6, a5, a2, n] + S2[a1, a6, SP[a3, a5], SP[a2, a4], 
     n] - S2[a1, SP[a2, a6], a4, SP[a3, a5], n] - 
    S2[a1, SP[a2, a6], SP[a4, a5], a3, n] + S2[a1, SP[a3, a6], a5, 
     SP[a2, a4], n] + S2[a1, SP[a3, a6], SP[a4, a5], a2, n] - 
    S2[a2, a1, SP[a4, a6], SP[a3, a5], n] - S2[a2, SP[a1, a4], a6, 
     SP[a3, a5], n] - S2[a2, SP[a1, a4], SP[a3, a6], a5, n] - 
    S2[a1, a6, n]*S2[a3, a4, a2, a5, n] + S2[a3, a4, SP[a1, a2], SP[a5, a6], 
     n] + S2[a3, SP[a1, a4], a2, SP[a5, a6], n] + 
    S2[a3, SP[a1, a4], SP[a2, a6], a5, n] - S2[SP[a1, a2], a4, a6, 
     SP[a3, a5], n] - S2[SP[a1, a2], a4, SP[a3, a6], a5, n] - 
    S2[SP[a1, a2], a6, a4, SP[a3, a5], n] - S2[SP[a1, a2], a6, SP[a4, a5], 
     a3, n] - S2[SP[a1, a2], SP[a4, a6], a3, a5, n] - 
    S2[SP[a1, a2], SP[a4, a6], a5, a3, n] + S2[SP[a1, a3], a4, a2, 
     SP[a5, a6], n] + S2[SP[a1, a3], a4, SP[a2, a6], a5, n] + 
    S2[SP[a1, a3], a6, a5, SP[a2, a4], n] + S2[SP[a1, a3], a6, SP[a4, a5], 
     a2, n] + S2[SP[a1, a3], SP[a4, a6], a2, a5, n] + 
    S2[SP[a1, a3], SP[a4, a6], a5, a2, n] + S2[a1, a2, a4, a6, SP[a3, a5], 
     n] + S2[a1, a2, a4, SP[a3, a6], a5, n] + S2[a1, a2, a6, a4, SP[a3, a5], 
     n] + S2[a1, a2, a6, SP[a4, a5], a3, n] + S2[a1, a2, SP[a4, a6], a3, a5, 
     n] + S2[a1, a2, SP[a4, a6], a5, a3, n] - S2[a1, a3, a4, a2, SP[a5, a6], 
     n] - S2[a1, a3, a4, SP[a2, a6], a5, n] - S2[a1, a3, a6, a5, SP[a2, a4], 
     n] - S2[a1, a3, a6, SP[a4, a5], a2, n] - S2[a1, a3, SP[a4, a6], a2, a5, 
     n] - S2[a1, a3, SP[a4, a6], a5, a2, n] + 
    S2[a3, n]*S2[a1, a4, a2, a6, a5, n] + S2[a1, a4, a2, a6, SP[a3, a5], n] + 
    S2[a1, a4, a2, SP[a3, a6], a5, n] - S2[a2, n]*S2[a1, a4, a3, a6, a5, n] - 
    S2[a1, a4, a3, a6, SP[a2, a5], n] - S2[a1, a4, a3, SP[a2, a6], a5, n] + 
    S2[a3, n]*S2[a1, a4, a6, a2, a5, n] + S2[a1, a4, a6, a2, SP[a3, a5], n] - 
    S2[a2, n]*S2[a1, a4, a6, a3, a5, n] - S2[a1, a4, a6, a3, SP[a2, a5], n] + 
    S2[a3, n]*S2[a1, a4, a6, a5, a2, n] - 
    S2[a2, n]*S2[a1, a4, a6, a5, a3, n] - S2[a1, a4, a6, SP[a2, a5], a3, n] + 
    S2[a1, a4, a6, SP[a3, a5], a2, n] - S2[a1, a4, SP[a2, a6], a3, a5, n] - 
    S2[a1, a4, SP[a2, a6], a5, a3, n] + S2[a1, a4, SP[a3, a6], a2, a5, n] + 
    S2[a1, a4, SP[a3, a6], a5, a2, n] + S2[a1, a6, a2, a4, SP[a3, a5], n] + 
    S2[a1, a6, a2, SP[a4, a5], a3, n] - S2[a1, a6, a3, a5, SP[a2, a4], n] - 
    S2[a1, a6, a3, SP[a4, a5], a2, n] + S2[a3, n]*S2[a1, a6, a4, a2, a5, n] + 
    S2[a1, a6, a4, a2, SP[a3, a5], n] - S2[a2, n]*S2[a1, a6, a4, a3, a5, n] - 
    S2[a1, a6, a4, a3, SP[a2, a5], n] + S2[a3, n]*S2[a1, a6, a4, a5, a2, n] - 
    S2[a2, n]*S2[a1, a6, a4, a5, a3, n] - S2[a1, a6, a4, SP[a2, a5], a3, n] + 
    S2[a1, a6, a4, SP[a3, a5], a2, n] + S2[a3, n]*S2[a1, a6, a5, a2, a4, n] + 
    S2[a1, a6, a5, a2, SP[a3, a4], n] - S2[a1, a6, a5, a3, SP[a2, a4], n] + 
    S2[a3, n]*S2[a1, a6, a5, a4, a2, n] - 
    S2[a2, n]*S2[a1, a6, a5, a4, a3, n] - S2[a1, a6, a5, SP[a2, a4], a3, n] + 
    S2[a1, a6, a5, SP[a3, a4], a2, n] - S2[a1, a6, SP[a2, a4], a3, a5, n] - 
    S2[a1, a6, SP[a2, a4], a5, a3, n] + S2[a1, a6, SP[a3, a4], a2, a5, n] + 
    S2[a1, a6, SP[a3, a4], a5, a2, n] - S2[a1, SP[a2, a4], a3, a6, a5, n] - 
    S2[a1, SP[a2, a4], a6, a3, a5, n] - S2[a1, SP[a2, a4], a6, a5, a3, n] + 
    S2[a1, SP[a3, a4], a2, a6, a5, n] + S2[a1, SP[a3, a4], a6, a2, a5, n] + 
    S2[a1, SP[a3, a4], a6, a5, a2, n] + S2[a2, a1, a4, a6, SP[a3, a5], n] + 
    S2[a2, a1, a4, SP[a3, a6], a5, n] + S2[a2, a1, a6, a4, SP[a3, a5], n] + 
    S2[a2, a1, a6, SP[a4, a5], a3, n] + S2[a2, a1, SP[a4, a6], a3, a5, n] + 
    S2[a2, a1, SP[a4, a6], a5, a3, n] - S2[a3, n]*S2[a2, a4, a1, a6, a5, n] + 
    S2[a2, SP[a1, a4], a3, a6, a5, n] + S2[a2, SP[a1, a4], a6, a3, a5, n] + 
    S2[a2, SP[a1, a4], a6, a5, a3, n] - S2[a2, SP[a3, a4], a1, a6, a5, n] - 
    S2[a3, a1, a4, a2, SP[a5, a6], n] - S2[a3, a1, a4, SP[a2, a6], a5, n] - 
    S2[a3, a1, a6, a5, SP[a2, a4], n] - S2[a3, a1, a6, SP[a4, a5], a2, n] - 
    S2[a3, a1, SP[a4, a6], a2, a5, n] - S2[a3, a1, SP[a4, a6], a5, a2, n] - 
    S2[a3, a4, a1, a2, SP[a5, a6], n] + S2[a2, n]*S2[a3, a4, a1, a6, a5, n] + 
    S2[a3, a4, a1, a6, SP[a2, a5], n] - S2[a3, a4, a2, a1, SP[a5, a6], n] + 
    S2[a1, n]*S2[a3, a4, a2, a5, a6, n] + S2[a3, a4, a2, a5, SP[a1, a6], n] - 
    S2[a3, SP[a1, a4], a2, a6, a5, n] - S2[a3, SP[a1, a4], a6, a2, a5, n] - 
    S2[a3, SP[a1, a4], a6, a5, a2, n] + S2[a3, SP[a2, a4], a1, a6, a5, n] - 
    S2[a1, n]*S2[a6, a5, a2, a4, a3, n] - S2[a6, a5, a2, a4, SP[a1, a3], n] - 
    S2[a6, a5, a2, SP[a1, a4], a3, n] - S2[a6, a5, SP[a1, a2], a4, a3, n] - 
    S2[a6, SP[a1, a5], a2, a4, a3, n] - S2[SP[a1, a6], a5, a2, a4, a3, n] + 
    S2[a6, a1, a5, a2, a4, a3, n] + S2[a6, a5, a1, a2, a4, a3, n] + 
    S2[a6, a5, a2, a1, a4, a3, n] + S2[a6, a5, a2, a4, a1, a3, n] + 
    S2[a6, a5, a2, a4, a3, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a3_, a4_, a2_, a6_, a1_, a5_, n_] :> 
  -(S2[a1, a5, a6, n]*S2[a2, a4, a3, n]) - S2[a1, a6, a5, n]*
     S2[a2, a4, a3, n] - S2[SP[a1, a2], SP[a4, a5], SP[a3, a6], n] - 
    S2[SP[a1, a2], SP[a4, a6], SP[a3, a5], n] + S2[a1, a2, SP[a4, a5], 
     SP[a3, a6], n] + S2[a1, a2, SP[a4, a6], SP[a3, a5], n] + 
    S2[a3, a4, n]*S2[a1, a5, a6, a2, n] - S2[a1, a5, SP[a3, a6], SP[a2, a4], 
     n] + S2[a3, a4, n]*S2[a1, a6, a2, a5, n] + 
    S2[a3, a4, n]*S2[a1, a6, a5, a2, n] - S2[a1, a6, SP[a2, a3], SP[a4, a5], 
     n] - S2[a1, a6, SP[a3, a5], SP[a2, a4], n] + S2[a1, SP[a2, a5], a4, 
     SP[a3, a6], n] + S2[a1, SP[a2, a5], SP[a4, a6], a3, n] + 
    S2[a1, SP[a2, a6], a4, SP[a3, a5], n] + S2[a1, SP[a2, a6], SP[a4, a5], 
     a3, n] - S2[a1, SP[a3, a5], a6, SP[a2, a4], n] - 
    S2[a1, SP[a3, a5], SP[a4, a6], a2, n] - S2[a1, SP[a3, a6], a2, 
     SP[a4, a5], n] - S2[a1, SP[a3, a6], a5, SP[a2, a4], n] - 
    S2[a1, SP[a3, a6], SP[a2, a4], a5, n] - S2[a1, SP[a3, a6], SP[a4, a5], 
     a2, n] + S2[a2, a1, SP[a4, a5], SP[a3, a6], n] + 
    S2[a2, a1, SP[a4, a6], SP[a3, a5], n] - S2[a1, a5, n]*
     S2[a2, a4, a3, a6, n] - S2[a1, a5, n]*S2[a2, a4, a6, a3, n] + 
    S2[a2, a4, SP[a1, a3], SP[a5, a6], n] + S2[a2, a4, SP[a1, a6], 
     SP[a3, a5], n] - S2[a1, a5, n]*S2[a2, a6, a4, a3, n] + 
    S2[a2, a6, SP[a1, a4], SP[a3, a5], n] + S2[a2, SP[a1, a4], a3, 
     SP[a5, a6], n] + S2[a2, SP[a1, a4], a5, SP[a3, a6], n] + 
    2*S2[a2, SP[a1, a4], a6, SP[a3, a5], n] + 
    2*S2[a2, SP[a1, a4], SP[a3, a5], a6, n] + S2[a2, SP[a1, a4], SP[a3, a6], 
     a5, n] + S2[a2, SP[a1, a4], SP[a5, a6], a3, n] + 
    S2[a2, SP[a1, a6], a4, SP[a3, a5], n] + S2[a2, SP[a1, a6], SP[a4, a5], 
     a3, n] + S2[a1, a5, n]*S2[a3, a4, a2, a6, n] - 
    S2[a3, a4, SP[a1, a2], SP[a5, a6], n] - S2[a3, SP[a1, a4], a2, 
     SP[a5, a6], n] - S2[a3, SP[a1, a4], SP[a2, a5], a6, n] + 
    S2[SP[a1, a2], a4, a3, SP[a5, a6], n] + S2[SP[a1, a2], a4, a5, 
     SP[a3, a6], n] + 2*S2[SP[a1, a2], a4, a6, SP[a3, a5], n] + 
    2*S2[SP[a1, a2], a4, SP[a3, a5], a6, n] + S2[SP[a1, a2], a4, SP[a3, a6], 
     a5, n] + S2[SP[a1, a2], a4, SP[a5, a6], a3, n] + 
    S2[SP[a1, a2], a5, a4, SP[a3, a6], n] + S2[SP[a1, a2], a5, SP[a4, a6], 
     a3, n] + 2*S2[SP[a1, a2], a6, a4, SP[a3, a5], n] + 
    2*S2[SP[a1, a2], a6, SP[a4, a5], a3, n] + 
    2*S2[SP[a1, a2], SP[a4, a5], a3, a6, n] + 
    2*S2[SP[a1, a2], SP[a4, a5], a6, a3, n] + S2[SP[a1, a2], SP[a4, a6], a3, 
     a5, n] + S2[SP[a1, a2], SP[a4, a6], a5, a3, n] + 
    S2[SP[a1, a2], SP[a5, a6], a4, a3, n] - S2[SP[a1, a3], a4, a2, 
     SP[a5, a6], n] - S2[SP[a1, a3], a4, SP[a2, a5], a6, n] - 
    S2[SP[a1, a3], a5, a6, SP[a2, a4], n] - S2[SP[a1, a3], a5, SP[a4, a6], 
     a2, n] - S2[SP[a1, a3], a6, a2, SP[a4, a5], n] - 
    S2[SP[a1, a3], a6, a5, SP[a2, a4], n] - S2[SP[a1, a3], a6, SP[a2, a4], 
     a5, n] - S2[SP[a1, a3], a6, SP[a4, a5], a2, n] - 
    S2[SP[a1, a3], SP[a4, a5], a2, a6, n] - S2[SP[a1, a3], SP[a4, a5], a6, 
     a2, n] - S2[SP[a1, a3], SP[a4, a6], a2, a5, n] - 
    S2[SP[a1, a3], SP[a4, a6], a5, a2, n] - S2[a1, a2, a4, a3, SP[a5, a6], 
     n] - S2[a1, a2, a4, a5, SP[a3, a6], n] - 
    2*S2[a1, a2, a4, a6, SP[a3, a5], n] - 
    2*S2[a1, a2, a4, SP[a3, a5], a6, n] - S2[a1, a2, a4, SP[a3, a6], a5, n] - 
    S2[a1, a2, a4, SP[a5, a6], a3, n] - S2[a1, a2, a5, a4, SP[a3, a6], n] - 
    S2[a1, a2, a5, SP[a4, a6], a3, n] - 2*S2[a1, a2, a6, a4, SP[a3, a5], n] - 
    2*S2[a1, a2, a6, SP[a4, a5], a3, n] - 
    2*S2[a1, a2, SP[a4, a5], a3, a6, n] - 
    2*S2[a1, a2, SP[a4, a5], a6, a3, n] - S2[a1, a2, SP[a4, a6], a3, a5, n] - 
    S2[a1, a2, SP[a4, a6], a5, a3, n] - S2[a1, a2, SP[a5, a6], a4, a3, n] + 
    S2[a1, a3, a4, a2, SP[a5, a6], n] + S2[a1, a3, a4, SP[a2, a5], a6, n] + 
    S2[a1, a3, a5, a6, SP[a2, a4], n] + S2[a1, a3, a5, SP[a4, a6], a2, n] + 
    S2[a1, a3, a6, a2, SP[a4, a5], n] + S2[a1, a3, a6, a5, SP[a2, a4], n] + 
    S2[a1, a3, a6, SP[a2, a4], a5, n] + S2[a1, a3, a6, SP[a4, a5], a2, n] + 
    S2[a1, a3, SP[a4, a5], a2, a6, n] + S2[a1, a3, SP[a4, a5], a6, a2, n] + 
    S2[a1, a3, SP[a4, a6], a2, a5, n] + S2[a1, a3, SP[a4, a6], a5, a2, n] - 
    S2[a6, n]*S2[a1, a4, a2, a3, a5, n] - S2[a1, a4, a2, a3, SP[a5, a6], n] - 
    S2[a6, n]*S2[a1, a4, a2, a5, a3, n] - 
    S2[a3, n]*S2[a1, a4, a2, a5, a6, n] - 
    2*S2[a1, a4, a2, a5, SP[a3, a6], n] - 
    S2[a3, n]*S2[a1, a4, a2, a6, a5, n] - S2[a1, a4, a2, a6, SP[a3, a5], n] - 
    S2[a1, a4, a2, SP[a3, a5], a6, n] - 2*S2[a1, a4, a2, SP[a3, a6], a5, n] - 
    S2[a1, a4, a2, SP[a5, a6], a3, n] - S2[a6, n]*S2[a1, a4, a3, a2, a5, n] - 
    S2[a1, a4, a3, a2, SP[a5, a6], n] - S2[a6, n]*S2[a1, a4, a3, a5, a2, n] + 
    2*S2[a2, n]*S2[a1, a4, a3, a5, a6, n] + S2[a1, a4, a3, a5, SP[a2, a6], 
     n] + 2*S2[a2, n]*S2[a1, a4, a3, a6, a5, n] + 
    2*S2[a1, a4, a3, a6, SP[a2, a5], n] + 
    2*S2[a1, a4, a3, SP[a2, a5], a6, n] + S2[a1, a4, a3, SP[a2, a6], a5, n] - 
    S2[a1, a4, a3, SP[a5, a6], a2, n] - S2[a6, n]*S2[a1, a4, a5, a2, a3, n] - 
    S2[a3, n]*S2[a1, a4, a5, a2, a6, n] - 
    2*S2[a1, a4, a5, a2, SP[a3, a6], n] - 
    S2[a6, n]*S2[a1, a4, a5, a3, a2, n] + 
    2*S2[a2, n]*S2[a1, a4, a5, a3, a6, n] + S2[a1, a4, a5, a3, SP[a2, a6], 
     n] - S2[a3, n]*S2[a1, a4, a5, a6, a2, n] + 
    2*S2[a2, n]*S2[a1, a4, a5, a6, a3, n] + S2[a1, a4, a5, a6, SP[a2, a3], 
     n] + S2[a1, a4, a5, SP[a2, a3], a6, n] + S2[a1, a4, a5, SP[a2, a6], a3, 
     n] - 2*S2[a1, a4, a5, SP[a3, a6], a2, n] - 
    S2[a3, n]*S2[a1, a4, a6, a2, a5, n] - S2[a1, a4, a6, a2, SP[a3, a5], n] + 
    2*S2[a2, n]*S2[a1, a4, a6, a3, a5, n] + 
    2*S2[a1, a4, a6, a3, SP[a2, a5], n] - 
    S2[a3, n]*S2[a1, a4, a6, a5, a2, n] + 
    2*S2[a2, n]*S2[a1, a4, a6, a5, a3, n] + S2[a1, a4, a6, a5, SP[a2, a3], 
     n] + S2[a1, a4, a6, SP[a2, a3], a5, n] + 
    2*S2[a1, a4, a6, SP[a2, a5], a3, n] - S2[a1, a4, a6, SP[a3, a5], a2, n] + 
    S2[a1, a4, SP[a2, a3], a5, a6, n] + S2[a1, a4, SP[a2, a3], a6, a5, n] + 
    2*S2[a1, a4, SP[a2, a5], a3, a6, n] + 
    2*S2[a1, a4, SP[a2, a5], a6, a3, n] + S2[a1, a4, SP[a2, a6], a3, a5, n] + 
    S2[a1, a4, SP[a2, a6], a5, a3, n] - S2[a1, a4, SP[a3, a5], a2, a6, n] - 
    S2[a1, a4, SP[a3, a5], a6, a2, n] - 2*S2[a1, a4, SP[a3, a6], a2, a5, n] - 
    2*S2[a1, a4, SP[a3, a6], a5, a2, n] - S2[a1, a4, SP[a5, a6], a2, a3, n] - 
    S2[a1, a4, SP[a5, a6], a3, a2, n] - S2[a1, a5, a2, a4, SP[a3, a6], n] - 
    S2[a1, a5, a2, SP[a4, a6], a3, n] + S2[a1, a5, a3, a6, SP[a2, a4], n] + 
    S2[a1, a5, a3, SP[a4, a6], a2, n] - S2[a6, n]*S2[a1, a5, a4, a2, a3, n] - 
    S2[a3, n]*S2[a1, a5, a4, a2, a6, n] - 
    2*S2[a1, a5, a4, a2, SP[a3, a6], n] - 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] + 
    2*S2[a2, n]*S2[a1, a5, a4, a3, a6, n] + S2[a1, a5, a4, a3, SP[a2, a6], 
     n] - S2[a3, n]*S2[a1, a5, a4, a6, a2, n] + 
    2*S2[a2, n]*S2[a1, a5, a4, a6, a3, n] + S2[a1, a5, a4, a6, SP[a2, a3], 
     n] + S2[a1, a5, a4, SP[a2, a3], a6, n] + S2[a1, a5, a4, SP[a2, a6], a3, 
     n] - 2*S2[a1, a5, a4, SP[a3, a6], a2, n] - 
    S2[a3, n]*S2[a1, a5, a6, a2, a4, n] - S2[a1, a5, a6, a2, SP[a3, a4], n] + 
    S2[a1, a5, a6, a3, SP[a2, a4], n] - S2[a3, n]*S2[a1, a5, a6, a4, a2, n] + 
    2*S2[a2, n]*S2[a1, a5, a6, a4, a3, n] + S2[a1, a5, a6, a4, SP[a2, a3], 
     n] + 2*S2[a1, a5, a6, SP[a2, a4], a3, n] - S2[a1, a5, a6, SP[a3, a4], 
     a2, n] + 2*S2[a1, a5, SP[a2, a4], a3, a6, n] + 
    2*S2[a1, a5, SP[a2, a4], a6, a3, n] + S2[a1, a5, SP[a2, a6], a4, a3, n] - 
    S2[a1, a5, SP[a3, a4], a2, a6, n] - S2[a1, a5, SP[a3, a4], a6, a2, n] - 
    S2[a1, a5, SP[a4, a6], a2, a3, n] - S2[a1, a5, SP[a4, a6], a3, a2, n] + 
    S2[a1, a6, a2, a3, SP[a4, a5], n] - S2[a3, n]*S2[a1, a6, a2, a4, a5, n] - 
    2*S2[a1, a6, a2, a4, SP[a3, a5], n] - 
    S2[a3, n]*S2[a1, a6, a2, a5, a4, n] - S2[a1, a6, a2, a5, SP[a3, a4], n] - 
    S2[a1, a6, a2, SP[a3, a4], a5, n] - S2[a1, a6, a2, SP[a4, a5], a3, n] + 
    S2[a1, a6, a3, a2, SP[a4, a5], n] + S2[a1, a6, a3, a5, SP[a2, a4], n] + 
    S2[a1, a6, a3, SP[a2, a4], a5, n] + S2[a1, a6, a3, SP[a4, a5], a2, n] - 
    S2[a3, n]*S2[a1, a6, a4, a2, a5, n] - S2[a1, a6, a4, a2, SP[a3, a5], n] + 
    2*S2[a2, n]*S2[a1, a6, a4, a3, a5, n] + 
    2*S2[a1, a6, a4, a3, SP[a2, a5], n] - 
    S2[a3, n]*S2[a1, a6, a4, a5, a2, n] + 
    2*S2[a2, n]*S2[a1, a6, a4, a5, a3, n] + S2[a1, a6, a4, a5, SP[a2, a3], 
     n] + S2[a1, a6, a4, SP[a2, a3], a5, n] + 
    2*S2[a1, a6, a4, SP[a2, a5], a3, n] - S2[a1, a6, a4, SP[a3, a5], a2, n] - 
    S2[a3, n]*S2[a1, a6, a5, a2, a4, n] - S2[a1, a6, a5, a2, SP[a3, a4], n] + 
    S2[a1, a6, a5, a3, SP[a2, a4], n] - S2[a3, n]*S2[a1, a6, a5, a4, a2, n] + 
    2*S2[a2, n]*S2[a1, a6, a5, a4, a3, n] + S2[a1, a6, a5, a4, SP[a2, a3], 
     n] + 2*S2[a1, a6, a5, SP[a2, a4], a3, n] - S2[a1, a6, a5, SP[a3, a4], 
     a2, n] + 2*S2[a1, a6, SP[a2, a4], a3, a5, n] + 
    2*S2[a1, a6, SP[a2, a4], a5, a3, n] + S2[a1, a6, SP[a2, a5], a4, a3, n] - 
    S2[a1, a6, SP[a3, a4], a2, a5, n] - S2[a1, a6, SP[a3, a4], a5, a2, n] + 
    2*S2[a1, SP[a2, a4], a3, a5, a6, n] + 
    2*S2[a1, SP[a2, a4], a3, a6, a5, n] + 
    2*S2[a1, SP[a2, a4], a5, a3, a6, n] + 
    2*S2[a1, SP[a2, a4], a5, a6, a3, n] + 
    2*S2[a1, SP[a2, a4], a6, a3, a5, n] + 
    2*S2[a1, SP[a2, a4], a6, a5, a3, n] + S2[a1, SP[a2, a6], a4, a3, a5, n] + 
    S2[a1, SP[a2, a6], a4, a5, a3, n] + S2[a1, SP[a2, a6], a5, a4, a3, n] - 
    S2[a1, SP[a3, a4], a2, a5, a6, n] - S2[a1, SP[a3, a4], a2, a6, a5, n] - 
    S2[a1, SP[a3, a4], a5, a2, a6, n] - S2[a1, SP[a3, a4], a5, a6, a2, n] - 
    S2[a1, SP[a3, a4], a6, a2, a5, n] - S2[a1, SP[a3, a4], a6, a5, a2, n] - 
    S2[a1, SP[a4, a6], a2, a3, a5, n] - S2[a1, SP[a4, a6], a2, a5, a3, n] - 
    S2[a1, SP[a4, a6], a3, a2, a5, n] - S2[a1, SP[a4, a6], a3, a5, a2, n] - 
    S2[a1, SP[a4, a6], a5, a2, a3, n] - S2[a1, SP[a4, a6], a5, a3, a2, n] - 
    S2[a1, SP[a5, a6], a4, a2, a3, n] - S2[a1, SP[a5, a6], a4, a3, a2, n] - 
    S2[a2, a1, a4, a3, SP[a5, a6], n] - S2[a2, a1, a4, a5, SP[a3, a6], n] - 
    2*S2[a2, a1, a4, a6, SP[a3, a5], n] - 
    2*S2[a2, a1, a4, SP[a3, a5], a6, n] - S2[a2, a1, a4, SP[a3, a6], a5, n] - 
    S2[a2, a1, a4, SP[a5, a6], a3, n] - S2[a2, a1, a5, a4, SP[a3, a6], n] - 
    S2[a2, a1, a5, SP[a4, a6], a3, n] - 2*S2[a2, a1, a6, a4, SP[a3, a5], n] - 
    2*S2[a2, a1, a6, SP[a4, a5], a3, n] - 
    2*S2[a2, a1, SP[a4, a5], a3, a6, n] - 
    2*S2[a2, a1, SP[a4, a5], a6, a3, n] - S2[a2, a1, SP[a4, a6], a3, a5, n] - 
    S2[a2, a1, SP[a4, a6], a5, a3, n] - S2[a2, a1, SP[a5, a6], a4, a3, n] + 
    S2[a6, n]*S2[a2, a4, a1, a3, a5, n] + 
    S2[a6, n]*S2[a2, a4, a1, a5, a3, n] + 
    S2[a3, n]*S2[a2, a4, a1, a5, a6, n] + S2[a2, a4, a1, a5, SP[a3, a6], n] + 
    S2[a3, n]*S2[a2, a4, a1, a6, a5, n] - S2[a2, a4, a1, a6, SP[a3, a5], n] - 
    S2[a2, a4, a1, SP[a3, a5], a6, n] + S2[a2, a4, a1, SP[a3, a6], a5, n] + 
    S2[a6, n]*S2[a2, a4, a3, a1, a5, n] - S2[a2, a4, a6, a1, SP[a3, a5], n] - 
    S2[a2, a4, a6, SP[a1, a3], a5, n] - S2[a2, a4, SP[a1, a3], a5, a6, n] - 
    S2[a2, a4, SP[a1, a3], a6, a5, n] + S2[a2, a4, SP[a3, a6], a1, a5, n] - 
    S2[a2, a6, a1, a4, SP[a3, a5], n] - S2[a2, a6, a1, SP[a4, a5], a3, n] - 
    S2[a2, a6, a4, a1, SP[a3, a5], n] - S2[a2, a6, a4, SP[a1, a3], a5, n] - 
    S2[a2, a6, SP[a1, a4], a3, a5, n] - S2[a2, a6, SP[a1, a4], a5, a3, n] - 
    2*S2[a2, SP[a1, a4], a3, a5, a6, n] - 
    2*S2[a2, SP[a1, a4], a3, a6, a5, n] - 
    2*S2[a2, SP[a1, a4], a5, a3, a6, n] - 
    2*S2[a2, SP[a1, a4], a5, a6, a3, n] - 
    2*S2[a2, SP[a1, a4], a6, a3, a5, n] - 
    2*S2[a2, SP[a1, a4], a6, a5, a3, n] - S2[a2, SP[a1, a6], a4, a3, a5, n] - 
    S2[a2, SP[a1, a6], a4, a5, a3, n] - S2[a2, SP[a1, a6], a5, a4, a3, n] + 
    S2[a2, SP[a3, a4], a1, a5, a6, n] + S2[a2, SP[a3, a4], a1, a6, a5, n] + 
    S2[a2, SP[a4, a6], a1, a3, a5, n] + S2[a2, SP[a4, a6], a1, a5, a3, n] + 
    S2[a2, SP[a4, a6], a3, a1, a5, n] + S2[a3, a1, a4, a2, SP[a5, a6], n] + 
    S2[a3, a1, a4, SP[a2, a5], a6, n] + S2[a3, a1, a5, a6, SP[a2, a4], n] + 
    S2[a3, a1, a5, SP[a4, a6], a2, n] + S2[a3, a1, a6, a2, SP[a4, a5], n] + 
    S2[a3, a1, a6, a5, SP[a2, a4], n] + S2[a3, a1, a6, SP[a2, a4], a5, n] + 
    S2[a3, a1, a6, SP[a4, a5], a2, n] + S2[a3, a1, SP[a4, a5], a2, a6, n] + 
    S2[a3, a1, SP[a4, a5], a6, a2, n] + S2[a3, a1, SP[a4, a6], a2, a5, n] + 
    S2[a3, a1, SP[a4, a6], a5, a2, n] + S2[a3, a4, a1, a2, SP[a5, a6], n] - 
    S2[a2, n]*S2[a3, a4, a1, a5, a6, n] - S2[a3, a4, a1, a5, SP[a2, a6], n] - 
    S2[a2, n]*S2[a3, a4, a1, a6, a5, n] - S2[a3, a4, a1, a6, SP[a2, a5], n] - 
    S2[a3, a4, a1, SP[a2, a6], a5, n] + S2[a3, a4, a2, a1, SP[a5, a6], n] + 
    S2[a3, a4, a2, SP[a1, a6], a5, n] + S2[a3, SP[a1, a4], a2, a5, a6, n] + 
    S2[a3, SP[a1, a4], a2, a6, a5, n] + S2[a3, SP[a1, a4], a5, a2, a6, n] + 
    S2[a3, SP[a1, a4], a5, a6, a2, n] + S2[a3, SP[a1, a4], a6, a2, a5, n] + 
    S2[a3, SP[a1, a4], a6, a5, a2, n] - S2[a3, SP[a2, a4], a1, a5, a6, n] - 
    S2[a3, SP[a2, a4], a1, a6, a5, n] + S2[a2, n]*S2[a6, a1, a4, a3, a5, n] + 
    S2[a6, a1, a4, a3, SP[a2, a5], n] + S2[a2, n]*S2[a6, a1, a4, a5, a3, n] + 
    S2[a6, a1, a4, a5, SP[a2, a3], n] + S2[a6, a1, a4, SP[a2, a3], a5, n] + 
    S2[a6, a1, a4, SP[a2, a5], a3, n] + S2[a2, n]*S2[a6, a1, a5, a4, a3, n] + 
    S2[a6, a1, a5, a4, SP[a2, a3], n] + S2[a6, a1, a5, SP[a2, a4], a3, n] + 
    S2[a6, a1, SP[a2, a4], a3, a5, n] + S2[a6, a1, SP[a2, a4], a5, a3, n] + 
    S2[a6, a1, SP[a2, a5], a4, a3, n] + S2[a6, SP[a1, a2], a4, a3, a5, n] + 
    S2[a6, SP[a1, a2], a4, a5, a3, n] + S2[a6, SP[a1, a2], a5, a4, a3, n] - 
    S2[SP[a1, a6], a4, a2, a3, a5, n] - S2[SP[a1, a6], a4, a2, a5, a3, n] - 
    S2[SP[a1, a6], a4, a3, a2, a5, n] - S2[SP[a1, a6], a4, a3, a5, a2, n] - 
    S2[SP[a1, a6], a4, a5, a2, a3, n] - S2[SP[a1, a6], a4, a5, a3, a2, n] - 
    S2[SP[a1, a6], a5, a4, a2, a3, n] - S2[SP[a1, a6], a5, a4, a3, a2, n] + 
    S2[SP[a2, a6], a1, a4, a3, a5, n] + S2[SP[a2, a6], a1, a4, a5, a3, n] + 
    S2[SP[a2, a6], a1, a5, a4, a3, n] + S2[SP[a2, a6], a4, a1, a3, a5, n] + 
    S2[SP[a2, a6], a4, a1, a5, a3, n] + S2[SP[a2, a6], a4, a3, a1, a5, n] - 
    S2[a6, a1, a2, a4, a3, a5, n] - S2[a6, a1, a2, a4, a5, a3, n] - 
    S2[a6, a1, a2, a5, a4, a3, n] - S2[a6, a1, a5, a2, a4, a3, n] - 
    S2[a6, a2, a1, a4, a3, a5, n] - S2[a6, a2, a1, a4, a5, a3, n] - 
    S2[a6, a2, a1, a5, a4, a3, n] - S2[a6, a2, a4, a1, a3, a5, n] - 
    S2[a6, a2, a4, a1, a5, a3, n] - S2[a6, a2, a4, a3, a1, a5, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a3_, a4_, a2_, a6_, a5_, a1_, n_] :> 
  S2[a1, a5, a6, n]*S2[a2, a4, a3, n] + S2[SP[a1, a2], SP[a4, a5], 
     SP[a3, a6], n] - S2[a1, a2, SP[a4, a5], SP[a3, a6], n] - 
    S2[a3, a4, n]*S2[a1, a5, a6, a2, n] + S2[a1, a5, SP[a3, a6], SP[a2, a4], 
     n] - S2[a1, SP[a2, a5], a4, SP[a3, a6], n] - 
    S2[a1, SP[a2, a5], SP[a4, a6], a3, n] + S2[a1, SP[a3, a5], a6, 
     SP[a2, a4], n] + S2[a1, SP[a3, a5], SP[a4, a6], a2, n] - 
    S2[a2, a1, SP[a4, a5], SP[a3, a6], n] + S2[a1, a5, n]*
     S2[a2, a4, a3, a6, n] + S2[a1, a5, n]*S2[a2, a4, a6, a3, n] - 
    S2[a2, a4, SP[a1, a3], SP[a5, a6], n] - S2[a2, a4, SP[a1, a6], 
     SP[a3, a5], n] + S2[a1, a5, n]*S2[a2, a6, a4, a3, n] - 
    S2[a2, a6, SP[a1, a4], SP[a3, a5], n] - S2[a2, SP[a1, a4], a3, 
     SP[a5, a6], n] - S2[a2, SP[a1, a4], a5, SP[a3, a6], n] - 
    S2[a2, SP[a1, a4], a6, SP[a3, a5], n] - 
    2*S2[a2, SP[a1, a4], SP[a3, a5], a6, n] - S2[a2, SP[a1, a4], SP[a5, a6], 
     a3, n] - S2[a2, SP[a1, a6], a4, SP[a3, a5], n] - 
    S2[a2, SP[a1, a6], SP[a4, a5], a3, n] - S2[a1, a5, n]*
     S2[a3, a4, a2, a6, n] + S2[a3, a4, SP[a1, a2], SP[a5, a6], n] + 
    S2[a3, SP[a1, a4], a2, SP[a5, a6], n] + S2[a3, SP[a1, a4], SP[a2, a5], 
     a6, n] - S2[SP[a1, a2], a4, a3, SP[a5, a6], n] - 
    S2[SP[a1, a2], a4, a5, SP[a3, a6], n] - S2[SP[a1, a2], a4, a6, 
     SP[a3, a5], n] - 2*S2[SP[a1, a2], a4, SP[a3, a5], a6, n] - 
    S2[SP[a1, a2], a4, SP[a5, a6], a3, n] - S2[SP[a1, a2], a5, a4, 
     SP[a3, a6], n] - S2[SP[a1, a2], a5, SP[a4, a6], a3, n] - 
    S2[SP[a1, a2], a6, a4, SP[a3, a5], n] - S2[SP[a1, a2], a6, SP[a4, a5], 
     a3, n] - 2*S2[SP[a1, a2], SP[a4, a5], a3, a6, n] - 
    2*S2[SP[a1, a2], SP[a4, a5], a6, a3, n] - S2[SP[a1, a2], SP[a5, a6], a4, 
     a3, n] + S2[SP[a1, a3], a4, a2, SP[a5, a6], n] + 
    S2[SP[a1, a3], a4, SP[a2, a5], a6, n] + S2[SP[a1, a3], a5, a6, 
     SP[a2, a4], n] + S2[SP[a1, a3], a5, SP[a4, a6], a2, n] + 
    S2[SP[a1, a3], SP[a4, a5], a2, a6, n] + S2[SP[a1, a3], SP[a4, a5], a6, 
     a2, n] + S2[a1, a2, a4, a3, SP[a5, a6], n] + 
    S2[a1, a2, a4, a5, SP[a3, a6], n] + S2[a1, a2, a4, a6, SP[a3, a5], n] + 
    2*S2[a1, a2, a4, SP[a3, a5], a6, n] + S2[a1, a2, a4, SP[a5, a6], a3, n] + 
    S2[a1, a2, a5, a4, SP[a3, a6], n] + S2[a1, a2, a5, SP[a4, a6], a3, n] + 
    S2[a1, a2, a6, a4, SP[a3, a5], n] + S2[a1, a2, a6, SP[a4, a5], a3, n] + 
    2*S2[a1, a2, SP[a4, a5], a3, a6, n] + 
    2*S2[a1, a2, SP[a4, a5], a6, a3, n] + S2[a1, a2, SP[a5, a6], a4, a3, n] - 
    S2[a1, a3, a4, a2, SP[a5, a6], n] - S2[a1, a3, a4, SP[a2, a5], a6, n] - 
    S2[a1, a3, a5, a6, SP[a2, a4], n] - S2[a1, a3, a5, SP[a4, a6], a2, n] - 
    S2[a1, a3, SP[a4, a5], a2, a6, n] - S2[a1, a3, SP[a4, a5], a6, a2, n] + 
    S2[a6, n]*S2[a1, a4, a2, a3, a5, n] + S2[a1, a4, a2, a3, SP[a5, a6], n] + 
    S2[a6, n]*S2[a1, a4, a2, a5, a3, n] + 
    S2[a3, n]*S2[a1, a4, a2, a5, a6, n] + 
    2*S2[a1, a4, a2, a5, SP[a3, a6], n] + S2[a1, a4, a2, SP[a3, a5], a6, n] + 
    S2[a1, a4, a2, SP[a3, a6], a5, n] + S2[a1, a4, a2, SP[a5, a6], a3, n] + 
    S2[a6, n]*S2[a1, a4, a3, a2, a5, n] + S2[a1, a4, a3, a2, SP[a5, a6], n] + 
    S2[a6, n]*S2[a1, a4, a3, a5, a2, n] - 
    2*S2[a2, n]*S2[a1, a4, a3, a5, a6, n] - S2[a1, a4, a3, a5, SP[a2, a6], 
     n] - S2[a2, n]*S2[a1, a4, a3, a6, a5, n] - S2[a1, a4, a3, a6, 
     SP[a2, a5], n] - 2*S2[a1, a4, a3, SP[a2, a5], a6, n] + 
    S2[a1, a4, a3, SP[a5, a6], a2, n] + S2[a6, n]*S2[a1, a4, a5, a2, a3, n] + 
    S2[a3, n]*S2[a1, a4, a5, a2, a6, n] + 
    2*S2[a1, a4, a5, a2, SP[a3, a6], n] + 
    S2[a6, n]*S2[a1, a4, a5, a3, a2, n] - 
    2*S2[a2, n]*S2[a1, a4, a5, a3, a6, n] - S2[a1, a4, a5, a3, SP[a2, a6], 
     n] + S2[a3, n]*S2[a1, a4, a5, a6, a2, n] - 
    2*S2[a2, n]*S2[a1, a4, a5, a6, a3, n] - S2[a1, a4, a5, a6, SP[a2, a3], 
     n] - S2[a1, a4, a5, SP[a2, a3], a6, n] - S2[a1, a4, a5, SP[a2, a6], a3, 
     n] + 2*S2[a1, a4, a5, SP[a3, a6], a2, n] - 
    S2[a2, n]*S2[a1, a4, a6, a3, a5, n] - S2[a1, a4, a6, a3, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a4, a6, a5, a3, n] - S2[a1, a4, a6, a5, SP[a2, a3], n] - 
    S2[a1, a4, a6, SP[a2, a3], a5, n] - S2[a1, a4, a6, SP[a2, a5], a3, n] - 
    S2[a1, a4, SP[a2, a3], a5, a6, n] - S2[a1, a4, SP[a2, a3], a6, a5, n] - 
    2*S2[a1, a4, SP[a2, a5], a3, a6, n] - 
    2*S2[a1, a4, SP[a2, a5], a6, a3, n] + S2[a1, a4, SP[a3, a5], a2, a6, n] + 
    S2[a1, a4, SP[a3, a5], a6, a2, n] + S2[a1, a4, SP[a3, a6], a2, a5, n] + 
    S2[a1, a4, SP[a3, a6], a5, a2, n] + S2[a1, a4, SP[a5, a6], a2, a3, n] + 
    S2[a1, a4, SP[a5, a6], a3, a2, n] + S2[a1, a5, a2, a4, SP[a3, a6], n] + 
    S2[a1, a5, a2, SP[a4, a6], a3, n] - S2[a1, a5, a3, a6, SP[a2, a4], n] - 
    S2[a1, a5, a3, SP[a4, a6], a2, n] + S2[a6, n]*S2[a1, a5, a4, a2, a3, n] + 
    S2[a3, n]*S2[a1, a5, a4, a2, a6, n] + 
    2*S2[a1, a5, a4, a2, SP[a3, a6], n] + 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] - 
    2*S2[a2, n]*S2[a1, a5, a4, a3, a6, n] - S2[a1, a5, a4, a3, SP[a2, a6], 
     n] + S2[a3, n]*S2[a1, a5, a4, a6, a2, n] - 
    2*S2[a2, n]*S2[a1, a5, a4, a6, a3, n] - S2[a1, a5, a4, a6, SP[a2, a3], 
     n] - S2[a1, a5, a4, SP[a2, a3], a6, n] - S2[a1, a5, a4, SP[a2, a6], a3, 
     n] + 2*S2[a1, a5, a4, SP[a3, a6], a2, n] + 
    S2[a3, n]*S2[a1, a5, a6, a2, a4, n] + S2[a1, a5, a6, a2, SP[a3, a4], n] - 
    S2[a1, a5, a6, a3, SP[a2, a4], n] + S2[a3, n]*S2[a1, a5, a6, a4, a2, n] - 
    2*S2[a2, n]*S2[a1, a5, a6, a4, a3, n] - S2[a1, a5, a6, a4, SP[a2, a3], 
     n] - 2*S2[a1, a5, a6, SP[a2, a4], a3, n] + S2[a1, a5, a6, SP[a3, a4], 
     a2, n] - 2*S2[a1, a5, SP[a2, a4], a3, a6, n] - 
    2*S2[a1, a5, SP[a2, a4], a6, a3, n] - S2[a1, a5, SP[a2, a6], a4, a3, n] + 
    S2[a1, a5, SP[a3, a4], a2, a6, n] + S2[a1, a5, SP[a3, a4], a6, a2, n] + 
    S2[a1, a5, SP[a4, a6], a2, a3, n] + S2[a1, a5, SP[a4, a6], a3, a2, n] - 
    S2[a2, n]*S2[a1, a6, a4, a3, a5, n] - S2[a1, a6, a4, a3, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a6, a4, a5, a3, n] - S2[a1, a6, a4, a5, SP[a2, a3], n] - 
    S2[a1, a6, a4, SP[a2, a3], a5, n] - S2[a1, a6, a4, SP[a2, a5], a3, n] - 
    S2[a2, n]*S2[a1, a6, a5, a4, a3, n] - S2[a1, a6, a5, a4, SP[a2, a3], n] - 
    S2[a1, a6, a5, SP[a2, a4], a3, n] - S2[a1, a6, SP[a2, a4], a3, a5, n] - 
    S2[a1, a6, SP[a2, a4], a5, a3, n] - S2[a1, a6, SP[a2, a5], a4, a3, n] - 
    2*S2[a1, SP[a2, a4], a3, a5, a6, n] - S2[a1, SP[a2, a4], a3, a6, a5, n] - 
    2*S2[a1, SP[a2, a4], a5, a3, a6, n] - 
    2*S2[a1, SP[a2, a4], a5, a6, a3, n] - S2[a1, SP[a2, a4], a6, a3, a5, n] - 
    S2[a1, SP[a2, a4], a6, a5, a3, n] - S2[a1, SP[a2, a6], a4, a3, a5, n] - 
    S2[a1, SP[a2, a6], a4, a5, a3, n] - S2[a1, SP[a2, a6], a5, a4, a3, n] + 
    S2[a1, SP[a3, a4], a2, a5, a6, n] + S2[a1, SP[a3, a4], a5, a2, a6, n] + 
    S2[a1, SP[a3, a4], a5, a6, a2, n] + S2[a1, SP[a4, a6], a2, a3, a5, n] + 
    S2[a1, SP[a4, a6], a2, a5, a3, n] + S2[a1, SP[a4, a6], a3, a2, a5, n] + 
    S2[a1, SP[a4, a6], a3, a5, a2, n] + S2[a1, SP[a4, a6], a5, a2, a3, n] + 
    S2[a1, SP[a4, a6], a5, a3, a2, n] + S2[a1, SP[a5, a6], a4, a2, a3, n] + 
    S2[a1, SP[a5, a6], a4, a3, a2, n] + S2[a2, a1, a4, a3, SP[a5, a6], n] + 
    S2[a2, a1, a4, a5, SP[a3, a6], n] + S2[a2, a1, a4, a6, SP[a3, a5], n] + 
    2*S2[a2, a1, a4, SP[a3, a5], a6, n] + S2[a2, a1, a4, SP[a5, a6], a3, n] + 
    S2[a2, a1, a5, a4, SP[a3, a6], n] + S2[a2, a1, a5, SP[a4, a6], a3, n] + 
    S2[a2, a1, a6, a4, SP[a3, a5], n] + S2[a2, a1, a6, SP[a4, a5], a3, n] + 
    2*S2[a2, a1, SP[a4, a5], a3, a6, n] + 
    2*S2[a2, a1, SP[a4, a5], a6, a3, n] + S2[a2, a1, SP[a5, a6], a4, a3, n] - 
    S2[a6, n]*S2[a2, a4, a1, a3, a5, n] - 
    S2[a6, n]*S2[a2, a4, a1, a5, a3, n] - 
    S2[a3, n]*S2[a2, a4, a1, a5, a6, n] - S2[a2, a4, a1, a5, SP[a3, a6], n] + 
    S2[a2, a4, a1, a6, SP[a3, a5], n] + S2[a2, a4, a1, SP[a3, a5], a6, n] - 
    S2[a2, a4, a1, SP[a3, a6], a5, n] - S2[a6, n]*S2[a2, a4, a3, a1, a5, n] + 
    S2[a2, a4, a6, a1, SP[a3, a5], n] + S2[a2, a4, a6, SP[a1, a3], a5, n] + 
    S2[a2, a4, SP[a1, a3], a5, a6, n] + S2[a2, a4, SP[a1, a3], a6, a5, n] - 
    S2[a2, a4, SP[a3, a6], a1, a5, n] + S2[a2, a6, a1, a4, SP[a3, a5], n] + 
    S2[a2, a6, a1, SP[a4, a5], a3, n] + S2[a2, a6, a4, a1, SP[a3, a5], n] + 
    S2[a2, a6, a4, SP[a1, a3], a5, n] + S2[a2, a6, SP[a1, a4], a3, a5, n] + 
    S2[a2, a6, SP[a1, a4], a5, a3, n] + 2*S2[a2, SP[a1, a4], a3, a5, a6, n] + 
    S2[a2, SP[a1, a4], a3, a6, a5, n] + 2*S2[a2, SP[a1, a4], a5, a3, a6, n] + 
    2*S2[a2, SP[a1, a4], a5, a6, a3, n] + S2[a2, SP[a1, a4], a6, a3, a5, n] + 
    S2[a2, SP[a1, a4], a6, a5, a3, n] + S2[a2, SP[a1, a6], a4, a3, a5, n] + 
    S2[a2, SP[a1, a6], a4, a5, a3, n] + S2[a2, SP[a1, a6], a5, a4, a3, n] - 
    S2[a2, SP[a3, a4], a1, a5, a6, n] - S2[a2, SP[a4, a6], a1, a3, a5, n] - 
    S2[a2, SP[a4, a6], a1, a5, a3, n] - S2[a2, SP[a4, a6], a3, a1, a5, n] - 
    S2[a3, a1, a4, a2, SP[a5, a6], n] - S2[a3, a1, a4, SP[a2, a5], a6, n] - 
    S2[a3, a1, a5, a6, SP[a2, a4], n] - S2[a3, a1, a5, SP[a4, a6], a2, n] - 
    S2[a3, a1, SP[a4, a5], a2, a6, n] - S2[a3, a1, SP[a4, a5], a6, a2, n] - 
    S2[a3, a4, a1, a2, SP[a5, a6], n] + S2[a2, n]*S2[a3, a4, a1, a5, a6, n] + 
    S2[a3, a4, a1, a5, SP[a2, a6], n] - S2[a3, a4, a2, a1, SP[a5, a6], n] + 
    S2[a1, n]*S2[a3, a4, a2, a6, a5, n] + S2[a3, a4, a2, a6, SP[a1, a5], n] - 
    S2[a3, SP[a1, a4], a2, a5, a6, n] - S2[a3, SP[a1, a4], a5, a2, a6, n] - 
    S2[a3, SP[a1, a4], a5, a6, a2, n] + S2[a3, SP[a2, a4], a1, a5, a6, n] - 
    S2[a2, n]*S2[a6, a1, a4, a3, a5, n] - S2[a6, a1, a4, a3, SP[a2, a5], n] - 
    S2[a2, n]*S2[a6, a1, a4, a5, a3, n] - S2[a6, a1, a4, a5, SP[a2, a3], n] - 
    S2[a6, a1, a4, SP[a2, a3], a5, n] - S2[a6, a1, a4, SP[a2, a5], a3, n] - 
    S2[a2, n]*S2[a6, a1, a5, a4, a3, n] - S2[a6, a1, a5, a4, SP[a2, a3], n] - 
    S2[a6, a1, a5, SP[a2, a4], a3, n] - S2[a6, a1, SP[a2, a4], a3, a5, n] - 
    S2[a6, a1, SP[a2, a4], a5, a3, n] - S2[a6, a1, SP[a2, a5], a4, a3, n] + 
    S2[a1, n]*S2[a6, a2, a4, a3, a5, n] + S2[a6, a2, a4, a3, SP[a1, a5], n] + 
    S2[a1, n]*S2[a6, a2, a4, a5, a3, n] + S2[a6, a2, a4, a5, SP[a1, a3], n] + 
    S2[a6, a2, a4, SP[a1, a3], a5, n] + S2[a6, a2, a4, SP[a1, a5], a3, n] + 
    S2[a1, n]*S2[a6, a2, a5, a4, a3, n] + S2[a6, a2, a5, a4, SP[a1, a3], n] + 
    S2[a6, a2, a5, SP[a1, a4], a3, n] + S2[a6, a2, SP[a1, a4], a3, a5, n] + 
    S2[a6, a2, SP[a1, a4], a5, a3, n] + S2[a6, a2, SP[a1, a5], a4, a3, n] + 
    S2[a1, n]*S2[a6, a5, a2, a4, a3, n] + S2[a6, a5, a2, a4, SP[a1, a3], n] + 
    S2[a6, a5, a2, SP[a1, a4], a3, n] + S2[a6, a5, SP[a1, a2], a4, a3, n] + 
    S2[a6, SP[a1, a5], a2, a4, a3, n] + S2[SP[a1, a6], a2, a4, a3, a5, n] + 
    S2[SP[a1, a6], a2, a4, a5, a3, n] + S2[SP[a1, a6], a2, a5, a4, a3, n] + 
    S2[SP[a1, a6], a4, a2, a3, a5, n] + S2[SP[a1, a6], a4, a2, a5, a3, n] + 
    S2[SP[a1, a6], a4, a3, a2, a5, n] + S2[SP[a1, a6], a4, a3, a5, a2, n] + 
    S2[SP[a1, a6], a4, a5, a2, a3, n] + S2[SP[a1, a6], a4, a5, a3, a2, n] + 
    S2[SP[a1, a6], a5, a2, a4, a3, n] + S2[SP[a1, a6], a5, a4, a2, a3, n] + 
    S2[SP[a1, a6], a5, a4, a3, a2, n] - S2[SP[a2, a6], a1, a4, a3, a5, n] - 
    S2[SP[a2, a6], a1, a4, a5, a3, n] - S2[SP[a2, a6], a1, a5, a4, a3, n] - 
    S2[SP[a2, a6], a4, a1, a3, a5, n] - S2[SP[a2, a6], a4, a1, a5, a3, n] - 
    S2[SP[a2, a6], a4, a3, a1, a5, n] - S2[a6, a2, a4, a3, a5, a1, n] - 
    S2[a6, a2, a4, a5, a1, a3, n] - S2[a6, a2, a4, a5, a3, a1, n] - 
    S2[a6, a2, a5, a1, a4, a3, n] - S2[a6, a2, a5, a4, a1, a3, n] - 
    S2[a6, a2, a5, a4, a3, a1, n] - S2[a6, a5, a1, a2, a4, a3, n] - 
    S2[a6, a5, a2, a1, a4, a3, n] - S2[a6, a5, a2, a4, a1, a3, n] - 
    S2[a6, a5, a2, a4, a3, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a3_, a4_, a5_, a1_, a2_, a6_, n_] :> 
  S2[a1, a2, a6, n]*S2[a3, a4, a5, n] + S2[SP[a1, a3], SP[a2, a4], 
     SP[a5, a6], n] - S2[a3, a4, n]*S2[a1, a2, a5, a6, n] - 
    S2[a3, a4, n]*S2[a1, a2, a6, a5, n] + S2[a1, a2, SP[a3, a5], SP[a4, a6], 
     n] + S2[a1, a2, SP[a3, a6], SP[a4, a5], n] - S2[a1, a3, SP[a2, a4], 
     SP[a5, a6], n] - S2[a3, a4, n]*S2[a1, a5, a2, a6, n] - 
    S2[a2, a6, n]*S2[a1, a5, a4, a3, n] + S2[a1, a5, SP[a2, a3], SP[a4, a6], 
     n] + S2[a1, a5, SP[a2, a4], SP[a3, a6], n] - S2[a1, SP[a2, a3], a4, 
     SP[a5, a6], n] + S2[a1, SP[a2, a3], a5, SP[a4, a6], n] + 
    S2[a1, SP[a2, a3], a6, SP[a4, a5], n] + S2[a1, SP[a2, a3], SP[a4, a5], 
     a6, n] + S2[a1, SP[a2, a5], a4, SP[a3, a6], n] + 
    S2[a1, SP[a2, a5], SP[a4, a6], a3, n] + S2[a1, SP[a3, a5], a2, 
     SP[a4, a6], n] + S2[a1, SP[a3, a5], SP[a2, a4], a6, n] - 
    S2[a3, a1, SP[a2, a4], SP[a5, a6], n] - S2[a3, SP[a1, a4], a2, 
     SP[a5, a6], n] - S2[a3, SP[a1, a4], SP[a2, a5], a6, n] + 
    S2[SP[a1, a2], a5, a4, SP[a3, a6], n] + S2[SP[a1, a2], a5, SP[a4, a6], 
     a3, n] + S2[SP[a1, a2], SP[a5, a6], a4, a3, n] - 
    S2[SP[a1, a3], a2, a4, SP[a5, a6], n] + S2[SP[a1, a3], a2, a5, 
     SP[a4, a6], n] + S2[SP[a1, a3], a2, a6, SP[a4, a5], n] + 
    S2[SP[a1, a3], a2, SP[a4, a5], a6, n] - S2[SP[a1, a3], a4, a2, 
     SP[a5, a6], n] - S2[SP[a1, a3], a4, SP[a2, a5], a6, n] + 
    S2[SP[a1, a3], a5, a2, SP[a4, a6], n] + S2[SP[a1, a3], a5, SP[a2, a4], 
     a6, n] + S2[SP[a1, a3], SP[a4, a5], a2, a6, n] + 
    S2[a1, a2, a3, a4, SP[a5, a6], n] - S2[a1, a2, a3, a5, SP[a4, a6], n] - 
    S2[a1, a2, a3, a6, SP[a4, a5], n] - S2[a1, a2, a3, SP[a4, a5], a6, n] - 
    S2[a1, a2, a5, a3, SP[a4, a6], n] - S2[a6, n]*S2[a1, a2, a5, a4, a3, n] + 
    S2[a3, n]*S2[a1, a2, a5, a4, a6, n] - S2[a1, a2, a5, a4, SP[a3, a6], n] + 
    S2[a3, n]*S2[a1, a2, a5, a6, a4, n] + S2[a1, a2, a5, a6, SP[a3, a4], n] + 
    S2[a1, a2, a5, SP[a3, a4], a6, n] - 2*S2[a1, a2, a5, SP[a4, a6], a3, n] - 
    S2[a1, a2, a6, a3, SP[a4, a5], n] + S2[a3, n]*S2[a1, a2, a6, a5, a4, n] + 
    S2[a1, a2, a6, a5, SP[a3, a4], n] - 2*S2[a1, a2, SP[a5, a6], a4, a3, n] + 
    S2[a1, a3, a2, a4, SP[a5, a6], n] - S2[a1, a3, a2, a5, SP[a4, a6], n] - 
    S2[a1, a3, a2, a6, SP[a4, a5], n] - S2[a1, a3, a2, SP[a4, a5], a6, n] + 
    S2[a1, a3, a4, a2, SP[a5, a6], n] + S2[a1, a3, a4, SP[a2, a5], a6, n] - 
    S2[a1, a3, a5, a2, SP[a4, a6], n] - S2[a1, a3, a5, SP[a2, a4], a6, n] - 
    S2[a1, a3, SP[a4, a5], a2, a6, n] - S2[a1, a5, a2, a3, SP[a4, a6], n] - 
    S2[a6, n]*S2[a1, a5, a2, a4, a3, n] + 
    S2[a3, n]*S2[a1, a5, a2, a4, a6, n] - S2[a1, a5, a2, a4, SP[a3, a6], n] + 
    S2[a3, n]*S2[a1, a5, a2, a6, a4, n] + S2[a1, a5, a2, a6, SP[a3, a4], n] + 
    S2[a1, a5, a2, SP[a3, a4], a6, n] - 2*S2[a1, a5, a2, SP[a4, a6], a3, n] - 
    S2[a1, a5, a3, a2, SP[a4, a6], n] - S2[a1, a5, a3, SP[a2, a4], a6, n] - 
    S2[a6, n]*S2[a1, a5, a4, a2, a3, n] + 
    S2[a3, n]*S2[a1, a5, a4, a2, a6, n] - S2[a1, a5, a4, a2, SP[a3, a6], n] - 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] + 
    S2[a2, n]*S2[a1, a5, a4, a3, a6, n] + 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] + S2[a1, a5, a4, a6, SP[a2, a3], n] + 
    S2[a1, a5, a4, SP[a2, a3], a6, n] - S2[a1, a5, a4, SP[a3, a6], a2, n] + 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] + S2[a1, a5, a6, a4, SP[a2, a3], n] + 
    S2[a1, a5, a6, SP[a2, a4], a3, n] + S2[a1, a5, SP[a3, a4], a2, a6, n] - 
    S2[a1, a5, SP[a4, a6], a2, a3, n] - S2[a1, a5, SP[a4, a6], a3, a2, n] + 
    S2[a2, n]*S2[a1, a6, a5, a4, a3, n] + S2[a1, a6, a5, a4, SP[a2, a3], n] + 
    S2[a1, a6, a5, SP[a2, a4], a3, n] + S2[a1, a6, SP[a2, a5], a4, a3, n] - 
    S2[a1, SP[a5, a6], a2, a4, a3, n] - S2[a1, SP[a5, a6], a4, a2, a3, n] - 
    S2[a1, SP[a5, a6], a4, a3, a2, n] - S2[a2, a1, a5, a4, SP[a3, a6], n] - 
    S2[a2, a1, a5, SP[a4, a6], a3, n] - S2[a2, a1, SP[a5, a6], a4, a3, n] - 
    S2[a2, SP[a1, a6], a5, a4, a3, n] + S2[a3, a1, a2, a4, SP[a5, a6], n] - 
    S2[a3, a1, a2, a5, SP[a4, a6], n] - S2[a3, a1, a2, a6, SP[a4, a5], n] - 
    S2[a3, a1, a2, SP[a4, a5], a6, n] + S2[a3, a1, a4, a2, SP[a5, a6], n] + 
    S2[a3, a1, a4, SP[a2, a5], a6, n] - S2[a3, a1, a5, a2, SP[a4, a6], n] - 
    S2[a3, a1, a5, SP[a2, a4], a6, n] - S2[a3, a1, SP[a4, a5], a2, a6, n] + 
    S2[a3, a4, a1, a2, SP[a5, a6], n] + S2[a3, a4, a1, SP[a2, a5], a6, n] + 
    S2[a3, a4, SP[a1, a5], a2, a6, n] + S2[a2, n]*S2[a6, a1, a5, a4, a3, n] + 
    S2[a6, a1, a5, a4, SP[a2, a3], n] + S2[a6, a1, a5, SP[a2, a4], a3, n] + 
    S2[a6, a1, SP[a2, a5], a4, a3, n] + S2[a6, SP[a1, a2], a5, a4, a3, n] - 
    S2[SP[a1, a6], a2, a5, a4, a3, n] - S2[SP[a1, a6], a5, a2, a4, a3, n] - 
    S2[SP[a1, a6], a5, a4, a2, a3, n] - S2[SP[a1, a6], a5, a4, a3, a2, n] + 
    S2[SP[a2, a6], a1, a5, a4, a3, n] - S2[a6, a2, a1, a5, a4, a3, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a3_, a4_, a5_, a1_, a6_, a2_, n_] :> 
  S2[a1, a6, a2, n]*S2[a3, a4, a5, n] + S2[SP[a1, a3], SP[a4, a6], 
     SP[a2, a5], n] - S2[a1, a3, SP[a4, a6], SP[a2, a5], n] + 
    S2[a2, a6, n]*S2[a1, a5, a4, a3, n] - S2[a3, a4, n]*
     S2[a1, a5, a6, a2, n] - S2[a1, a5, SP[a2, a4], SP[a3, a6], n] + 
    S2[a1, a5, SP[a3, a6], SP[a2, a4], n] - S2[a3, a4, n]*
     S2[a1, a6, a2, a5, n] - S2[a3, a4, n]*S2[a1, a6, a5, a2, n] + 
    S2[a1, a6, SP[a2, a3], SP[a4, a5], n] + S2[a1, a6, SP[a3, a5], 
     SP[a2, a4], n] - S2[a1, SP[a2, a5], a4, SP[a3, a6], n] - 
    S2[a1, SP[a2, a5], SP[a4, a6], a3, n] + S2[a1, SP[a3, a5], a6, 
     SP[a2, a4], n] + S2[a1, SP[a3, a5], SP[a4, a6], a2, n] + 
    S2[a1, SP[a3, a6], a2, SP[a4, a5], n] - S2[a1, SP[a3, a6], a4, 
     SP[a2, a5], n] + S2[a1, SP[a3, a6], a5, SP[a2, a4], n] + 
    S2[a1, SP[a3, a6], SP[a4, a5], a2, n] - S2[a3, a1, SP[a4, a6], 
     SP[a2, a5], n] - S2[a3, SP[a1, a4], a6, SP[a2, a5], n] - 
    S2[a3, SP[a1, a4], SP[a5, a6], a2, n] - S2[SP[a1, a2], a5, a4, 
     SP[a3, a6], n] - S2[SP[a1, a2], a5, SP[a4, a6], a3, n] - 
    S2[SP[a1, a2], SP[a5, a6], a4, a3, n] - S2[SP[a1, a3], a4, a6, 
     SP[a2, a5], n] - S2[SP[a1, a3], a4, SP[a5, a6], a2, n] + 
    S2[SP[a1, a3], a5, a6, SP[a2, a4], n] + S2[SP[a1, a3], a5, SP[a4, a6], 
     a2, n] + S2[SP[a1, a3], a6, a2, SP[a4, a5], n] - 
    S2[SP[a1, a3], a6, a4, SP[a2, a5], n] + S2[SP[a1, a3], a6, a5, 
     SP[a2, a4], n] + S2[SP[a1, a3], a6, SP[a4, a5], a2, n] + 
    S2[SP[a1, a3], SP[a4, a5], a6, a2, n] + S2[a1, a2, a5, a4, SP[a3, a6], 
     n] + S2[a1, a2, a5, SP[a4, a6], a3, n] + S2[a1, a2, SP[a5, a6], a4, a3, 
     n] + S2[a1, a3, a4, a6, SP[a2, a5], n] + S2[a1, a3, a4, SP[a5, a6], a2, 
     n] - S2[a1, a3, a5, a6, SP[a2, a4], n] - S2[a1, a3, a5, SP[a4, a6], a2, 
     n] - S2[a1, a3, a6, a2, SP[a4, a5], n] + S2[a1, a3, a6, a4, SP[a2, a5], 
     n] - S2[a1, a3, a6, a5, SP[a2, a4], n] - S2[a1, a3, a6, SP[a4, a5], a2, 
     n] - S2[a1, a3, SP[a4, a5], a6, a2, n] + S2[a1, a5, a2, a4, SP[a3, a6], 
     n] + S2[a1, a5, a2, SP[a4, a6], a3, n] - S2[a1, a5, a3, a6, SP[a2, a4], 
     n] - S2[a1, a5, a3, SP[a4, a6], a2, n] + S2[a1, a5, a4, a2, SP[a3, a6], 
     n] - S2[a2, n]*S2[a1, a5, a4, a3, a6, n] - S2[a1, a5, a4, a3, 
     SP[a2, a6], n] + S2[a3, n]*S2[a1, a5, a4, a6, a2, n] - 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] - S2[a1, a5, a4, SP[a2, a6], a3, n] + 
    S2[a1, a5, a4, SP[a3, a6], a2, n] + S2[a3, n]*S2[a1, a5, a6, a2, a4, n] + 
    S2[a1, a5, a6, a2, SP[a3, a4], n] - S2[a1, a5, a6, a3, SP[a2, a4], n] + 
    S2[a3, n]*S2[a1, a5, a6, a4, a2, n] - 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] - S2[a1, a5, a6, SP[a2, a4], a3, n] + 
    S2[a1, a5, a6, SP[a3, a4], a2, n] - S2[a1, a5, SP[a2, a6], a4, a3, n] + 
    S2[a1, a5, SP[a3, a4], a6, a2, n] - S2[a1, a6, a2, a3, SP[a4, a5], n] + 
    S2[a3, n]*S2[a1, a6, a2, a5, a4, n] + S2[a1, a6, a2, a5, SP[a3, a4], n] - 
    S2[a1, a6, a3, a2, SP[a4, a5], n] + S2[a1, a6, a3, a4, SP[a2, a5], n] - 
    S2[a1, a6, a3, a5, SP[a2, a4], n] - S2[a1, a6, a3, SP[a4, a5], a2, n] + 
    S2[a3, n]*S2[a1, a6, a5, a2, a4, n] + S2[a1, a6, a5, a2, SP[a3, a4], n] - 
    S2[a1, a6, a5, a3, SP[a2, a4], n] + S2[a3, n]*S2[a1, a6, a5, a4, a2, n] - 
    S2[a2, n]*S2[a1, a6, a5, a4, a3, n] - S2[a1, a6, a5, SP[a2, a4], a3, n] + 
    S2[a1, a6, a5, SP[a3, a4], a2, n] - S2[a1, a6, SP[a2, a5], a4, a3, n] - 
    S2[a1, SP[a2, a6], a5, a4, a3, n] + S2[a2, a1, a5, a4, SP[a3, a6], n] + 
    S2[a2, a1, a5, SP[a4, a6], a3, n] + S2[a2, a1, SP[a5, a6], a4, a3, n] + 
    S2[a2, SP[a1, a6], a5, a4, a3, n] + S2[a3, a1, a4, a6, SP[a2, a5], n] + 
    S2[a3, a1, a4, SP[a5, a6], a2, n] - S2[a3, a1, a5, a6, SP[a2, a4], n] - 
    S2[a3, a1, a5, SP[a4, a6], a2, n] - S2[a3, a1, a6, a2, SP[a4, a5], n] + 
    S2[a3, a1, a6, a4, SP[a2, a5], n] - S2[a3, a1, a6, a5, SP[a2, a4], n] - 
    S2[a3, a1, a6, SP[a4, a5], a2, n] - S2[a3, a1, SP[a4, a5], a6, a2, n] + 
    S2[a3, a4, a1, a6, SP[a2, a5], n] + S2[a3, a4, a1, SP[a5, a6], a2, n] + 
    S2[a3, a4, SP[a1, a5], a6, a2, n] - S2[a2, n]*S2[a6, a1, a5, a4, a3, n] - 
    S2[a6, a1, a5, a4, SP[a2, a3], n] - S2[a6, a1, a5, SP[a2, a4], a3, n] - 
    S2[a6, a1, SP[a2, a5], a4, a3, n] - S2[a6, SP[a1, a2], a5, a4, a3, n] - 
    S2[SP[a2, a6], a1, a5, a4, a3, n] + S2[a6, a1, a2, a5, a4, a3, n] + 
    S2[a6, a1, a5, a2, a4, a3, n] + S2[a6, a1, a5, a4, a2, a3, n] + 
    S2[a6, a1, a5, a4, a3, a2, n] + S2[a6, a2, a1, a5, a4, a3, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a3_, a4_, a5_, a2_, a1_, a6_, n_] :> 
  -(S2[a1, a2, a6, n]*S2[a3, a4, a5, n]) - S2[a1, a6, a2, n]*
     S2[a3, a4, a5, n] - S2[SP[a1, a3], SP[a2, a4], SP[a5, a6], n] - 
    S2[SP[a1, a3], SP[a4, a6], SP[a2, a5], n] + 
    S2[a3, a4, n]*S2[a1, a2, a5, a6, n] + S2[a3, a4, n]*
     S2[a1, a2, a6, a5, n] - S2[a1, a2, SP[a3, a5], SP[a4, a6], n] - 
    S2[a1, a2, SP[a3, a6], SP[a4, a5], n] + S2[a1, a3, SP[a2, a4], 
     SP[a5, a6], n] + S2[a1, a3, SP[a4, a6], SP[a2, a5], n] + 
    S2[a3, a4, n]*S2[a1, a6, a2, a5, n] - S2[a1, a6, SP[a2, a3], SP[a4, a5], 
     n] + S2[a1, SP[a2, a3], a4, SP[a5, a6], n] - S2[a1, SP[a2, a3], a5, 
     SP[a4, a6], n] - S2[a1, SP[a2, a3], a6, SP[a4, a5], n] - 
    S2[a1, SP[a2, a3], SP[a4, a5], a6, n] - S2[a1, SP[a3, a6], a2, 
     SP[a4, a5], n] + S2[a1, SP[a3, a6], a4, SP[a2, a5], n] + 
    S2[a1, a6, n]*S2[a2, a4, a3, a5, n] + S2[a1, a6, n]*
     S2[a2, a4, a5, a3, n] - S2[a2, a4, SP[a1, a3], SP[a5, a6], n] - 
    S2[a2, a4, SP[a1, a5], SP[a3, a6], n] - S2[a2, SP[a1, a4], a3, 
     SP[a5, a6], n] - S2[a2, SP[a1, a4], a5, SP[a3, a6], n] - 
    S2[a2, SP[a1, a4], SP[a3, a6], a5, n] - S2[a2, SP[a1, a4], SP[a5, a6], 
     a3, n] + S2[a3, a1, SP[a2, a4], SP[a5, a6], n] + 
    S2[a3, a1, SP[a4, a6], SP[a2, a5], n] - S2[a1, a6, n]*
     S2[a3, a4, a2, a5, n] + S2[a3, a4, SP[a1, a2], SP[a5, a6], n] + 
    2*S2[a3, SP[a1, a4], a2, SP[a5, a6], n] + S2[a3, SP[a1, a4], a6, 
     SP[a2, a5], n] + S2[a3, SP[a1, a4], SP[a2, a5], a6, n] + 
    S2[a3, SP[a1, a4], SP[a2, a6], a5, n] + S2[a3, SP[a1, a4], SP[a5, a6], 
     a2, n] - S2[SP[a1, a2], a4, a3, SP[a5, a6], n] - 
    S2[SP[a1, a2], a4, a5, SP[a3, a6], n] - S2[SP[a1, a2], a4, SP[a3, a6], 
     a5, n] - S2[SP[a1, a2], a4, SP[a5, a6], a3, n] - 
    S2[SP[a1, a2], SP[a4, a6], a3, a5, n] - S2[SP[a1, a2], SP[a4, a6], a5, 
     a3, n] + S2[SP[a1, a3], a2, a4, SP[a5, a6], n] - 
    S2[SP[a1, a3], a2, a5, SP[a4, a6], n] - S2[SP[a1, a3], a2, a6, 
     SP[a4, a5], n] - S2[SP[a1, a3], a2, SP[a4, a5], a6, n] + 
    2*S2[SP[a1, a3], a4, a2, SP[a5, a6], n] + S2[SP[a1, a3], a4, a6, 
     SP[a2, a5], n] + S2[SP[a1, a3], a4, SP[a2, a5], a6, n] + 
    S2[SP[a1, a3], a4, SP[a2, a6], a5, n] + S2[SP[a1, a3], a4, SP[a5, a6], 
     a2, n] - S2[SP[a1, a3], a6, a2, SP[a4, a5], n] + 
    S2[SP[a1, a3], a6, a4, SP[a2, a5], n] + S2[SP[a1, a3], SP[a4, a6], a2, 
     a5, n] + S2[SP[a1, a3], SP[a4, a6], a5, a2, n] - 
    S2[a1, a2, a3, a4, SP[a5, a6], n] + S2[a1, a2, a3, a5, SP[a4, a6], n] + 
    S2[a1, a2, a3, a6, SP[a4, a5], n] + S2[a1, a2, a3, SP[a4, a5], a6, n] + 
    S2[a1, a2, a4, a3, SP[a5, a6], n] + S2[a1, a2, a4, a5, SP[a3, a6], n] + 
    S2[a1, a2, a4, SP[a3, a6], a5, n] + S2[a1, a2, a4, SP[a5, a6], a3, n] + 
    S2[a1, a2, a5, a3, SP[a4, a6], n] + S2[a6, n]*S2[a1, a2, a5, a4, a3, n] - 
    S2[a3, n]*S2[a1, a2, a5, a4, a6, n] - 
    S2[a3, n]*S2[a1, a2, a5, a6, a4, n] - S2[a1, a2, a5, a6, SP[a3, a4], n] - 
    S2[a1, a2, a5, SP[a3, a4], a6, n] + S2[a1, a2, a5, SP[a4, a6], a3, n] + 
    S2[a1, a2, a6, a3, SP[a4, a5], n] - S2[a3, n]*S2[a1, a2, a6, a5, a4, n] - 
    S2[a1, a2, a6, a5, SP[a3, a4], n] + S2[a1, a2, SP[a4, a6], a3, a5, n] + 
    S2[a1, a2, SP[a4, a6], a5, a3, n] + S2[a1, a2, SP[a5, a6], a4, a3, n] - 
    S2[a1, a3, a2, a4, SP[a5, a6], n] + S2[a1, a3, a2, a5, SP[a4, a6], n] + 
    S2[a1, a3, a2, a6, SP[a4, a5], n] + S2[a1, a3, a2, SP[a4, a5], a6, n] - 
    2*S2[a1, a3, a4, a2, SP[a5, a6], n] - S2[a1, a3, a4, a6, SP[a2, a5], n] - 
    S2[a1, a3, a4, SP[a2, a5], a6, n] - S2[a1, a3, a4, SP[a2, a6], a5, n] - 
    S2[a1, a3, a4, SP[a5, a6], a2, n] + S2[a1, a3, a6, a2, SP[a4, a5], n] - 
    S2[a1, a3, a6, a4, SP[a2, a5], n] - S2[a1, a3, SP[a4, a6], a2, a5, n] - 
    S2[a1, a3, SP[a4, a6], a5, a2, n] + S2[a3, n]*S2[a1, a4, a2, a5, a6, n] + 
    S2[a1, a4, a2, a5, SP[a3, a6], n] + S2[a3, n]*S2[a1, a4, a2, a6, a5, n] + 
    S2[a1, a4, a2, a6, SP[a3, a5], n] + S2[a1, a4, a2, SP[a3, a5], a6, n] + 
    S2[a1, a4, a2, SP[a3, a6], a5, n] - S2[a2, n]*S2[a1, a4, a3, a5, a6, n] - 
    S2[a1, a4, a3, a5, SP[a2, a6], n] - S2[a2, n]*S2[a1, a4, a3, a6, a5, n] - 
    S2[a1, a4, a3, a6, SP[a2, a5], n] - S2[a1, a4, a3, SP[a2, a5], a6, n] - 
    S2[a1, a4, a3, SP[a2, a6], a5, n] + S2[a3, n]*S2[a1, a4, a5, a2, a6, n] + 
    S2[a1, a4, a5, a2, SP[a3, a6], n] - S2[a2, n]*S2[a1, a4, a5, a3, a6, n] - 
    S2[a1, a4, a5, a3, SP[a2, a6], n] + S2[a3, n]*S2[a1, a4, a5, a6, a2, n] - 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] - S2[a1, a4, a5, SP[a2, a6], a3, n] + 
    S2[a1, a4, a5, SP[a3, a6], a2, n] + S2[a3, n]*S2[a1, a4, a6, a2, a5, n] + 
    S2[a1, a4, a6, a2, SP[a3, a5], n] - S2[a2, n]*S2[a1, a4, a6, a3, a5, n] - 
    S2[a1, a4, a6, a3, SP[a2, a5], n] + S2[a3, n]*S2[a1, a4, a6, a5, a2, n] - 
    S2[a2, n]*S2[a1, a4, a6, a5, a3, n] - S2[a1, a4, a6, SP[a2, a5], a3, n] + 
    S2[a1, a4, a6, SP[a3, a5], a2, n] - S2[a1, a4, SP[a2, a5], a3, a6, n] - 
    S2[a1, a4, SP[a2, a5], a6, a3, n] - S2[a1, a4, SP[a2, a6], a3, a5, n] - 
    S2[a1, a4, SP[a2, a6], a5, a3, n] + S2[a1, a4, SP[a3, a5], a2, a6, n] + 
    S2[a1, a4, SP[a3, a5], a6, a2, n] + S2[a1, a4, SP[a3, a6], a2, a5, n] + 
    S2[a1, a4, SP[a3, a6], a5, a2, n] + S2[a1, a6, a2, a3, SP[a4, a5], n] - 
    S2[a3, n]*S2[a1, a6, a2, a5, a4, n] - S2[a1, a6, a2, a5, SP[a3, a4], n] + 
    S2[a1, a6, a3, a2, SP[a4, a5], n] - S2[a1, a6, a3, a4, SP[a2, a5], n] + 
    S2[a3, n]*S2[a1, a6, a4, a2, a5, n] + S2[a1, a6, a4, a2, SP[a3, a5], n] - 
    S2[a2, n]*S2[a1, a6, a4, a3, a5, n] - S2[a1, a6, a4, a3, SP[a2, a5], n] + 
    S2[a3, n]*S2[a1, a6, a4, a5, a2, n] - 
    S2[a2, n]*S2[a1, a6, a4, a5, a3, n] - S2[a1, a6, a4, SP[a2, a5], a3, n] + 
    S2[a1, a6, a4, SP[a3, a5], a2, n] - S2[a1, a6, SP[a2, a4], a3, a5, n] - 
    S2[a1, a6, SP[a2, a4], a5, a3, n] + S2[a1, a6, SP[a3, a4], a2, a5, n] + 
    S2[a1, a6, SP[a3, a4], a5, a2, n] - S2[a1, SP[a2, a4], a3, a5, a6, n] - 
    S2[a1, SP[a2, a4], a3, a6, a5, n] - S2[a1, SP[a2, a4], a5, a3, a6, n] - 
    S2[a1, SP[a2, a4], a5, a6, a3, n] - S2[a1, SP[a2, a4], a6, a3, a5, n] - 
    S2[a1, SP[a2, a4], a6, a5, a3, n] + S2[a1, SP[a2, a6], a5, a4, a3, n] + 
    S2[a1, SP[a3, a4], a2, a5, a6, n] + S2[a1, SP[a3, a4], a2, a6, a5, n] + 
    S2[a1, SP[a3, a4], a5, a2, a6, n] + S2[a1, SP[a3, a4], a5, a6, a2, n] + 
    S2[a1, SP[a3, a4], a6, a2, a5, n] + S2[a1, SP[a3, a4], a6, a5, a2, n] + 
    S2[a2, a1, a4, a3, SP[a5, a6], n] + S2[a2, a1, a4, a5, SP[a3, a6], n] + 
    S2[a2, a1, a4, SP[a3, a6], a5, n] + S2[a2, a1, a4, SP[a5, a6], a3, n] + 
    S2[a2, a1, SP[a4, a6], a3, a5, n] + S2[a2, a1, SP[a4, a6], a5, a3, n] + 
    S2[a2, a4, a1, a3, SP[a5, a6], n] - S2[a3, n]*S2[a2, a4, a1, a5, a6, n] - 
    S2[a3, n]*S2[a2, a4, a1, a6, a5, n] - S2[a2, a4, a1, a6, SP[a3, a5], n] - 
    S2[a2, a4, a1, SP[a3, a5], a6, n] + S2[a2, a4, a1, SP[a5, a6], a3, n] + 
    S2[a2, a4, a3, a1, SP[a5, a6], n] + S2[a2, a4, a3, SP[a1, a5], a6, n] - 
    S2[a3, n]*S2[a2, a4, a5, a1, a6, n] + S2[a2, a4, SP[a1, a5], a3, a6, n] + 
    S2[a2, a4, SP[a1, a5], a6, a3, n] - S2[a2, a4, SP[a3, a5], a1, a6, n] + 
    S2[a2, SP[a1, a4], a3, a5, a6, n] + S2[a2, SP[a1, a4], a3, a6, a5, n] + 
    S2[a2, SP[a1, a4], a5, a3, a6, n] + S2[a2, SP[a1, a4], a5, a6, a3, n] + 
    S2[a2, SP[a1, a4], a6, a3, a5, n] + S2[a2, SP[a1, a4], a6, a5, a3, n] - 
    S2[a2, SP[a3, a4], a1, a5, a6, n] - S2[a2, SP[a3, a4], a1, a6, a5, n] - 
    S2[a2, SP[a3, a4], a5, a1, a6, n] - S2[a3, a1, a2, a4, SP[a5, a6], n] + 
    S2[a3, a1, a2, a5, SP[a4, a6], n] + S2[a3, a1, a2, a6, SP[a4, a5], n] + 
    S2[a3, a1, a2, SP[a4, a5], a6, n] - 2*S2[a3, a1, a4, a2, SP[a5, a6], n] - 
    S2[a3, a1, a4, a6, SP[a2, a5], n] - S2[a3, a1, a4, SP[a2, a5], a6, n] - 
    S2[a3, a1, a4, SP[a2, a6], a5, n] - S2[a3, a1, a4, SP[a5, a6], a2, n] + 
    S2[a3, a1, a6, a2, SP[a4, a5], n] - S2[a3, a1, a6, a4, SP[a2, a5], n] - 
    S2[a3, a1, SP[a4, a6], a2, a5, n] - S2[a3, a1, SP[a4, a6], a5, a2, n] - 
    2*S2[a3, a4, a1, a2, SP[a5, a6], n] + 
    S2[a2, n]*S2[a3, a4, a1, a5, a6, n] + S2[a3, a4, a1, a5, SP[a2, a6], n] + 
    S2[a2, n]*S2[a3, a4, a1, a6, a5, n] - S2[a3, a4, a1, SP[a5, a6], a2, n] - 
    S2[a3, a4, a2, a1, SP[a5, a6], n] - S2[a3, a4, a2, SP[a1, a5], a6, n] + 
    S2[a2, n]*S2[a3, a4, a5, a1, a6, n] + S2[a3, a4, a5, a1, SP[a2, a6], n] + 
    S2[a3, a4, a5, SP[a1, a2], a6, n] - S2[a3, a4, SP[a1, a5], a2, a6, n] - 
    S2[a3, a4, SP[a1, a5], a6, a2, n] + S2[a3, a4, SP[a2, a5], a1, a6, n] - 
    S2[a3, SP[a1, a4], a2, a5, a6, n] - S2[a3, SP[a1, a4], a2, a6, a5, n] - 
    S2[a3, SP[a1, a4], a5, a2, a6, n] - S2[a3, SP[a1, a4], a5, a6, a2, n] - 
    S2[a3, SP[a1, a4], a6, a2, a5, n] - S2[a3, SP[a1, a4], a6, a5, a2, n] + 
    S2[a3, SP[a2, a4], a1, a5, a6, n] + S2[a3, SP[a2, a4], a1, a6, a5, n] + 
    S2[a3, SP[a2, a4], a5, a1, a6, n] + S2[SP[a1, a6], a2, a5, a4, a3, n] - 
    S2[a6, a1, a2, a5, a4, a3, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a3_, a4_, a5_, a2_, a6_, a1_, n_] :> 
  S2[a1, a6, a2, n]*S2[a3, a4, a5, n] + S2[SP[a1, a3], SP[a4, a6], 
     SP[a2, a5], n] - S2[a1, a3, SP[a4, a6], SP[a2, a5], n] - 
    S2[a3, a4, n]*S2[a1, a6, a2, a5, n] + S2[a1, a6, SP[a2, a3], SP[a4, a5], 
     n] + S2[a1, SP[a3, a6], a2, SP[a4, a5], n] - S2[a1, SP[a3, a6], a4, 
     SP[a2, a5], n] - S2[a1, a6, n]*S2[a2, a4, a3, a5, n] - 
    S2[a1, a6, n]*S2[a2, a4, a5, a3, n] + S2[a2, a4, SP[a1, a3], SP[a5, a6], 
     n] + S2[a2, a4, SP[a1, a5], SP[a3, a6], n] + S2[a2, SP[a1, a4], a3, 
     SP[a5, a6], n] + S2[a2, SP[a1, a4], a5, SP[a3, a6], n] + 
    S2[a2, SP[a1, a4], SP[a3, a6], a5, n] + S2[a2, SP[a1, a4], SP[a5, a6], 
     a3, n] - S2[a3, a1, SP[a4, a6], SP[a2, a5], n] + 
    S2[a1, a6, n]*S2[a3, a4, a2, a5, n] - S2[a3, a4, SP[a1, a2], SP[a5, a6], 
     n] - S2[a3, SP[a1, a4], a2, SP[a5, a6], n] - S2[a3, SP[a1, a4], a6, 
     SP[a2, a5], n] - S2[a3, SP[a1, a4], SP[a2, a6], a5, n] - 
    S2[a3, SP[a1, a4], SP[a5, a6], a2, n] + S2[SP[a1, a2], a4, a3, 
     SP[a5, a6], n] + S2[SP[a1, a2], a4, a5, SP[a3, a6], n] + 
    S2[SP[a1, a2], a4, SP[a3, a6], a5, n] + S2[SP[a1, a2], a4, SP[a5, a6], 
     a3, n] + S2[SP[a1, a2], SP[a4, a6], a3, a5, n] + 
    S2[SP[a1, a2], SP[a4, a6], a5, a3, n] - S2[SP[a1, a3], a4, a2, 
     SP[a5, a6], n] - S2[SP[a1, a3], a4, a6, SP[a2, a5], n] - 
    S2[SP[a1, a3], a4, SP[a2, a6], a5, n] - S2[SP[a1, a3], a4, SP[a5, a6], 
     a2, n] + S2[SP[a1, a3], a6, a2, SP[a4, a5], n] - 
    S2[SP[a1, a3], a6, a4, SP[a2, a5], n] - S2[SP[a1, a3], SP[a4, a6], a2, 
     a5, n] - S2[SP[a1, a3], SP[a4, a6], a5, a2, n] - 
    S2[a1, a2, a4, a3, SP[a5, a6], n] - S2[a1, a2, a4, a5, SP[a3, a6], n] - 
    S2[a1, a2, a4, SP[a3, a6], a5, n] - S2[a1, a2, a4, SP[a5, a6], a3, n] - 
    S2[a1, a2, SP[a4, a6], a3, a5, n] - S2[a1, a2, SP[a4, a6], a5, a3, n] + 
    S2[a1, a3, a4, a2, SP[a5, a6], n] + S2[a1, a3, a4, a6, SP[a2, a5], n] + 
    S2[a1, a3, a4, SP[a2, a6], a5, n] + S2[a1, a3, a4, SP[a5, a6], a2, n] - 
    S2[a1, a3, a6, a2, SP[a4, a5], n] + S2[a1, a3, a6, a4, SP[a2, a5], n] + 
    S2[a1, a3, SP[a4, a6], a2, a5, n] + S2[a1, a3, SP[a4, a6], a5, a2, n] - 
    S2[a3, n]*S2[a1, a4, a2, a5, a6, n] - S2[a1, a4, a2, a5, SP[a3, a6], n] - 
    S2[a3, n]*S2[a1, a4, a2, a6, a5, n] - S2[a1, a4, a2, a6, SP[a3, a5], n] - 
    S2[a1, a4, a2, SP[a3, a5], a6, n] - S2[a1, a4, a2, SP[a3, a6], a5, n] + 
    S2[a2, n]*S2[a1, a4, a3, a5, a6, n] + S2[a1, a4, a3, a5, SP[a2, a6], n] + 
    S2[a2, n]*S2[a1, a4, a3, a6, a5, n] + S2[a1, a4, a3, a6, SP[a2, a5], n] + 
    S2[a1, a4, a3, SP[a2, a5], a6, n] + S2[a1, a4, a3, SP[a2, a6], a5, n] - 
    S2[a3, n]*S2[a1, a4, a5, a2, a6, n] - S2[a1, a4, a5, a2, SP[a3, a6], n] + 
    S2[a2, n]*S2[a1, a4, a5, a3, a6, n] + S2[a1, a4, a5, a3, SP[a2, a6], n] - 
    S2[a3, n]*S2[a1, a4, a5, a6, a2, n] + 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] + S2[a1, a4, a5, SP[a2, a6], a3, n] - 
    S2[a1, a4, a5, SP[a3, a6], a2, n] - S2[a3, n]*S2[a1, a4, a6, a2, a5, n] - 
    S2[a1, a4, a6, a2, SP[a3, a5], n] + S2[a2, n]*S2[a1, a4, a6, a3, a5, n] + 
    S2[a1, a4, a6, a3, SP[a2, a5], n] - S2[a3, n]*S2[a1, a4, a6, a5, a2, n] + 
    S2[a2, n]*S2[a1, a4, a6, a5, a3, n] + S2[a1, a4, a6, SP[a2, a5], a3, n] - 
    S2[a1, a4, a6, SP[a3, a5], a2, n] + S2[a1, a4, SP[a2, a5], a3, a6, n] + 
    S2[a1, a4, SP[a2, a5], a6, a3, n] + S2[a1, a4, SP[a2, a6], a3, a5, n] + 
    S2[a1, a4, SP[a2, a6], a5, a3, n] - S2[a1, a4, SP[a3, a5], a2, a6, n] - 
    S2[a1, a4, SP[a3, a5], a6, a2, n] - S2[a1, a4, SP[a3, a6], a2, a5, n] - 
    S2[a1, a4, SP[a3, a6], a5, a2, n] - S2[a1, a6, a2, a3, SP[a4, a5], n] + 
    S2[a3, n]*S2[a1, a6, a2, a5, a4, n] + S2[a1, a6, a2, a5, SP[a3, a4], n] - 
    S2[a1, a6, a3, a2, SP[a4, a5], n] + S2[a1, a6, a3, a4, SP[a2, a5], n] - 
    S2[a3, n]*S2[a1, a6, a4, a2, a5, n] - S2[a1, a6, a4, a2, SP[a3, a5], n] + 
    S2[a2, n]*S2[a1, a6, a4, a3, a5, n] + S2[a1, a6, a4, a3, SP[a2, a5], n] - 
    S2[a3, n]*S2[a1, a6, a4, a5, a2, n] + 
    S2[a2, n]*S2[a1, a6, a4, a5, a3, n] + S2[a1, a6, a4, SP[a2, a5], a3, n] - 
    S2[a1, a6, a4, SP[a3, a5], a2, n] + S2[a1, a6, SP[a2, a4], a3, a5, n] + 
    S2[a1, a6, SP[a2, a4], a5, a3, n] - S2[a1, a6, SP[a3, a4], a2, a5, n] - 
    S2[a1, a6, SP[a3, a4], a5, a2, n] + S2[a1, SP[a2, a4], a3, a5, a6, n] + 
    S2[a1, SP[a2, a4], a3, a6, a5, n] + S2[a1, SP[a2, a4], a5, a3, a6, n] + 
    S2[a1, SP[a2, a4], a5, a6, a3, n] + S2[a1, SP[a2, a4], a6, a3, a5, n] + 
    S2[a1, SP[a2, a4], a6, a5, a3, n] - S2[a1, SP[a3, a4], a2, a5, a6, n] - 
    S2[a1, SP[a3, a4], a2, a6, a5, n] - S2[a1, SP[a3, a4], a5, a2, a6, n] - 
    S2[a1, SP[a3, a4], a5, a6, a2, n] - S2[a1, SP[a3, a4], a6, a2, a5, n] - 
    S2[a1, SP[a3, a4], a6, a5, a2, n] - S2[a2, a1, a4, a3, SP[a5, a6], n] - 
    S2[a2, a1, a4, a5, SP[a3, a6], n] - S2[a2, a1, a4, SP[a3, a6], a5, n] - 
    S2[a2, a1, a4, SP[a5, a6], a3, n] - S2[a2, a1, SP[a4, a6], a3, a5, n] - 
    S2[a2, a1, SP[a4, a6], a5, a3, n] - S2[a2, a4, a1, a3, SP[a5, a6], n] + 
    S2[a3, n]*S2[a2, a4, a1, a5, a6, n] + 
    S2[a3, n]*S2[a2, a4, a1, a6, a5, n] + S2[a2, a4, a1, a6, SP[a3, a5], n] + 
    S2[a2, a4, a1, SP[a3, a5], a6, n] - S2[a2, a4, a1, SP[a5, a6], a3, n] - 
    S2[a2, a4, a3, a1, SP[a5, a6], n] - S2[a2, a4, a3, SP[a1, a5], a6, n] + 
    S2[a3, n]*S2[a2, a4, a5, a1, a6, n] - S2[a2, a4, SP[a1, a5], a3, a6, n] - 
    S2[a2, a4, SP[a1, a5], a6, a3, n] + S2[a2, a4, SP[a3, a5], a1, a6, n] - 
    S2[a2, SP[a1, a4], a3, a5, a6, n] - S2[a2, SP[a1, a4], a3, a6, a5, n] - 
    S2[a2, SP[a1, a4], a5, a3, a6, n] - S2[a2, SP[a1, a4], a5, a6, a3, n] - 
    S2[a2, SP[a1, a4], a6, a3, a5, n] - S2[a2, SP[a1, a4], a6, a5, a3, n] + 
    S2[a2, SP[a3, a4], a1, a5, a6, n] + S2[a2, SP[a3, a4], a1, a6, a5, n] + 
    S2[a2, SP[a3, a4], a5, a1, a6, n] + S2[a3, a1, a4, a2, SP[a5, a6], n] + 
    S2[a3, a1, a4, a6, SP[a2, a5], n] + S2[a3, a1, a4, SP[a2, a6], a5, n] + 
    S2[a3, a1, a4, SP[a5, a6], a2, n] - S2[a3, a1, a6, a2, SP[a4, a5], n] + 
    S2[a3, a1, a6, a4, SP[a2, a5], n] + S2[a3, a1, SP[a4, a6], a2, a5, n] + 
    S2[a3, a1, SP[a4, a6], a5, a2, n] + S2[a3, a4, a1, a2, SP[a5, a6], n] - 
    S2[a2, n]*S2[a3, a4, a1, a5, a6, n] - S2[a3, a4, a1, a5, SP[a2, a6], n] - 
    S2[a2, n]*S2[a3, a4, a1, a6, a5, n] - S2[a3, a4, a1, SP[a2, a5], a6, n] + 
    S2[a3, a4, a1, SP[a5, a6], a2, n] + S2[a3, a4, a2, a1, SP[a5, a6], n] + 
    S2[a3, a4, a2, SP[a1, a5], a6, n] - S2[a2, n]*S2[a3, a4, a5, a1, a6, n] - 
    S2[a3, a4, a5, a1, SP[a2, a6], n] + S2[a1, n]*S2[a3, a4, a5, a2, a6, n] + 
    S2[a3, a4, a5, a2, SP[a1, a6], n] + S2[a3, a4, SP[a1, a5], a2, a6, n] + 
    S2[a3, a4, SP[a1, a5], a6, a2, n] - S2[a3, a4, SP[a2, a5], a1, a6, n] + 
    S2[a3, SP[a1, a4], a2, a5, a6, n] + S2[a3, SP[a1, a4], a2, a6, a5, n] + 
    S2[a3, SP[a1, a4], a5, a2, a6, n] + S2[a3, SP[a1, a4], a5, a6, a2, n] + 
    S2[a3, SP[a1, a4], a6, a2, a5, n] + S2[a3, SP[a1, a4], a6, a5, a2, n] - 
    S2[a3, SP[a2, a4], a1, a5, a6, n] - S2[a3, SP[a2, a4], a1, a6, a5, n] - 
    S2[a3, SP[a2, a4], a5, a1, a6, n] - S2[a1, n]*S2[a6, a2, a5, a4, a3, n] - 
    S2[a6, a2, a5, a4, SP[a1, a3], n] - S2[a6, a2, a5, SP[a1, a4], a3, n] - 
    S2[a6, a2, SP[a1, a5], a4, a3, n] - S2[a6, SP[a1, a2], a5, a4, a3, n] - 
    S2[SP[a1, a6], a2, a5, a4, a3, n] + S2[a6, a1, a2, a5, a4, a3, n] + 
    S2[a6, a2, a1, a5, a4, a3, n] + S2[a6, a2, a5, a1, a4, a3, n] + 
    S2[a6, a2, a5, a4, a1, a3, n] + S2[a6, a2, a5, a4, a3, a1, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a3_, a4_, a5_, a6_, a1_, a2_, n_] :> 
  -(S2[a1, a2, a6, n]*S2[a3, a4, a5, n]) - S2[a1, a6, a2, n]*
     S2[a3, a4, a5, n] - S2[SP[a1, a3], SP[a2, a4], SP[a5, a6], n] - 
    S2[SP[a1, a3], SP[a4, a6], SP[a2, a5], n] + 
    S2[a3, a4, n]*S2[a1, a2, a6, a5, n] - S2[a1, a2, SP[a3, a6], SP[a4, a5], 
     n] + S2[a1, a3, SP[a2, a4], SP[a5, a6], n] + S2[a1, a3, SP[a4, a6], 
     SP[a2, a5], n] + S2[a3, a4, n]*S2[a1, a6, a2, a5, n] + 
    S2[a3, a4, n]*S2[a1, a6, a5, a2, n] - S2[a1, a6, SP[a2, a3], SP[a4, a5], 
     n] - S2[a1, a6, SP[a3, a5], SP[a2, a4], n] + S2[a1, SP[a2, a3], a4, 
     SP[a5, a6], n] - S2[a1, SP[a2, a3], a6, SP[a4, a5], n] - 
    S2[a1, SP[a3, a6], a2, SP[a4, a5], n] + S2[a1, SP[a3, a6], a4, 
     SP[a2, a5], n] - S2[a1, SP[a3, a6], a5, SP[a2, a4], n] - 
    S2[a1, SP[a3, a6], SP[a4, a5], a2, n] + S2[a3, a1, SP[a2, a4], 
     SP[a5, a6], n] + S2[a3, a1, SP[a4, a6], SP[a2, a5], n] - 
    S2[a1, a2, n]*S2[a3, a4, a6, a5, n] + S2[a3, a4, SP[a1, a6], SP[a2, a5], 
     n] - S2[a1, a2, n]*S2[a3, a6, a4, a5, n] - 
    S2[a1, a2, n]*S2[a3, a6, a5, a4, n] + S2[a3, a6, SP[a1, a4], SP[a2, a5], 
     n] + S2[a3, a6, SP[a1, a5], SP[a2, a4], n] + S2[a3, SP[a1, a4], a2, 
     SP[a5, a6], n] + 2*S2[a3, SP[a1, a4], a6, SP[a2, a5], n] + 
    S2[a3, SP[a1, a4], SP[a2, a5], a6, n] + S2[a3, SP[a1, a4], SP[a2, a6], 
     a5, n] + S2[a3, SP[a1, a4], SP[a5, a6], a2, n] + 
    S2[a3, SP[a1, a6], a4, SP[a2, a5], n] + S2[a3, SP[a1, a6], a5, 
     SP[a2, a4], n] + S2[a3, SP[a1, a6], SP[a2, a4], a5, n] + 
    S2[a3, SP[a1, a6], SP[a2, a5], a4, n] + S2[a1, a2, n]*
     S2[a5, a6, a3, a4, n] - S2[a5, a6, SP[a1, a3], SP[a2, a4], n] - 
    S2[a5, SP[a1, a6], a3, SP[a2, a4], n] - S2[a5, SP[a1, a6], SP[a2, a3], 
     a4, n] + S2[SP[a1, a3], a2, a4, SP[a5, a6], n] - 
    S2[SP[a1, a3], a2, a6, SP[a4, a5], n] + S2[SP[a1, a3], a4, a2, 
     SP[a5, a6], n] + 2*S2[SP[a1, a3], a4, a6, SP[a2, a5], n] + 
    S2[SP[a1, a3], a4, SP[a2, a5], a6, n] + S2[SP[a1, a3], a4, SP[a2, a6], 
     a5, n] + S2[SP[a1, a3], a4, SP[a5, a6], a2, n] - 
    S2[SP[a1, a3], a6, a2, SP[a4, a5], n] + 
    2*S2[SP[a1, a3], a6, a4, SP[a2, a5], n] + S2[SP[a1, a3], a6, SP[a2, a4], 
     a5, n] + S2[SP[a1, a3], a6, SP[a2, a5], a4, n] - 
    S2[SP[a1, a3], a6, SP[a4, a5], a2, n] + S2[SP[a1, a3], SP[a2, a4], a5, 
     a6, n] + S2[SP[a1, a3], SP[a2, a4], a6, a5, n] + 
    S2[SP[a1, a3], SP[a2, a6], a4, a5, n] + S2[SP[a1, a3], SP[a2, a6], a5, 
     a4, n] - S2[SP[a1, a5], a6, a3, SP[a2, a4], n] - 
    S2[SP[a1, a5], a6, SP[a2, a3], a4, n] - S2[SP[a1, a5], SP[a2, a6], a3, 
     a4, n] - S2[a1, a2, a3, a4, SP[a5, a6], n] + 
    S2[a1, a2, a3, a6, SP[a4, a5], n] - S2[a6, n]*S2[a1, a2, a4, a3, a5, n] - 
    S2[a1, a2, a4, a3, SP[a5, a6], n] - S2[a6, n]*S2[a1, a2, a4, a5, a3, n] + 
    S2[a3, n]*S2[a1, a2, a4, a5, a6, n] + 
    S2[a3, n]*S2[a1, a2, a4, a6, a5, n] + S2[a1, a2, a4, a6, SP[a3, a5], n] + 
    S2[a1, a2, a4, SP[a3, a5], a6, n] - S2[a1, a2, a4, SP[a5, a6], a3, n] - 
    S2[a5, n]*S2[a1, a2, a6, a3, a4, n] + 
    S2[a3, n]*S2[a1, a2, a6, a4, a5, n] + S2[a1, a2, a6, a4, SP[a3, a5], n] + 
    S2[a1, a2, a6, SP[a3, a4], a5, n] + S2[a1, a2, SP[a3, a4], a5, a6, n] + 
    S2[a1, a2, SP[a3, a4], a6, a5, n] + S2[a1, a2, SP[a3, a6], a4, a5, n] + 
    S2[a1, a2, SP[a3, a6], a5, a4, n] - S2[a1, a2, SP[a4, a6], a3, a5, n] - 
    S2[a1, a2, SP[a4, a6], a5, a3, n] - S2[a1, a2, SP[a5, a6], a3, a4, n] - 
    S2[a1, a3, a2, a4, SP[a5, a6], n] + S2[a1, a3, a2, a6, SP[a4, a5], n] - 
    S2[a1, a3, a4, a2, SP[a5, a6], n] - 2*S2[a1, a3, a4, a6, SP[a2, a5], n] - 
    S2[a1, a3, a4, SP[a2, a5], a6, n] - S2[a1, a3, a4, SP[a2, a6], a5, n] - 
    S2[a1, a3, a4, SP[a5, a6], a2, n] + S2[a1, a3, a6, a2, SP[a4, a5], n] - 
    2*S2[a1, a3, a6, a4, SP[a2, a5], n] - S2[a1, a3, a6, SP[a2, a4], a5, n] - 
    S2[a1, a3, a6, SP[a2, a5], a4, n] + S2[a1, a3, a6, SP[a4, a5], a2, n] - 
    S2[a1, a3, SP[a2, a4], a5, a6, n] - S2[a1, a3, SP[a2, a4], a6, a5, n] - 
    S2[a1, a3, SP[a2, a6], a4, a5, n] - S2[a1, a3, SP[a2, a6], a5, a4, n] - 
    S2[a6, n]*S2[a1, a4, a2, a3, a5, n] - S2[a1, a4, a2, a3, SP[a5, a6], n] - 
    S2[a6, n]*S2[a1, a4, a2, a5, a3, n] + 
    S2[a3, n]*S2[a1, a4, a2, a5, a6, n] + 
    S2[a3, n]*S2[a1, a4, a2, a6, a5, n] + S2[a1, a4, a2, a6, SP[a3, a5], n] + 
    S2[a1, a4, a2, SP[a3, a5], a6, n] - S2[a1, a4, a2, SP[a5, a6], a3, n] - 
    S2[a6, n]*S2[a1, a4, a3, a2, a5, n] - S2[a1, a4, a3, a2, SP[a5, a6], n] - 
    S2[a6, n]*S2[a1, a4, a3, a5, a2, n] - S2[a1, a4, a3, a5, SP[a2, a6], n] - 
    S2[a1, a4, a3, SP[a2, a6], a5, n] - S2[a1, a4, a3, SP[a5, a6], a2, n] - 
    S2[a6, n]*S2[a1, a4, a5, a2, a3, n] + 
    S2[a3, n]*S2[a1, a4, a5, a2, a6, n] - 
    S2[a6, n]*S2[a1, a4, a5, a3, a2, n] - S2[a1, a4, a5, a3, SP[a2, a6], n] + 
    S2[a3, n]*S2[a1, a4, a5, a6, a2, n] + S2[a1, a4, a5, a6, SP[a2, a3], n] + 
    S2[a1, a4, a5, SP[a2, a3], a6, n] - S2[a1, a4, a5, SP[a2, a6], a3, n] + 
    S2[a3, n]*S2[a1, a4, a6, a2, a5, n] + S2[a1, a4, a6, a2, SP[a3, a5], n] + 
    S2[a3, n]*S2[a1, a4, a6, a5, a2, n] + S2[a1, a4, a6, a5, SP[a2, a3], n] + 
    S2[a1, a4, a6, SP[a2, a3], a5, n] + S2[a1, a4, a6, SP[a3, a5], a2, n] + 
    S2[a1, a4, SP[a2, a3], a5, a6, n] + S2[a1, a4, SP[a2, a3], a6, a5, n] - 
    S2[a1, a4, SP[a2, a6], a3, a5, n] - S2[a1, a4, SP[a2, a6], a5, a3, n] + 
    S2[a1, a4, SP[a3, a5], a2, a6, n] + S2[a1, a4, SP[a3, a5], a6, a2, n] - 
    S2[a1, a4, SP[a5, a6], a2, a3, n] - S2[a1, a4, SP[a5, a6], a3, a2, n] + 
    S2[a1, a5, a6, a3, SP[a2, a4], n] + S2[a1, a5, a6, SP[a2, a3], a4, n] + 
    S2[a1, a5, SP[a2, a6], a3, a4, n] - S2[a5, n]*S2[a1, a6, a2, a3, a4, n] + 
    S2[a3, n]*S2[a1, a6, a2, a4, a5, n] + S2[a1, a6, a2, a4, SP[a3, a5], n] + 
    S2[a1, a6, a2, SP[a3, a4], a5, n] - S2[a5, n]*S2[a1, a6, a3, a2, a4, n] - 
    S2[a5, n]*S2[a1, a6, a3, a4, a2, n] - 
    2*S2[a1, a6, a3, a4, SP[a2, a5], n] + S2[a1, a6, a3, a5, SP[a2, a4], n] - 
    S2[a1, a6, a3, SP[a2, a5], a4, n] + S2[a3, n]*S2[a1, a6, a4, a2, a5, n] + 
    S2[a1, a6, a4, a2, SP[a3, a5], n] + S2[a3, n]*S2[a1, a6, a4, a5, a2, n] + 
    S2[a1, a6, a4, a5, SP[a2, a3], n] + S2[a1, a6, a4, SP[a2, a3], a5, n] + 
    S2[a1, a6, a4, SP[a3, a5], a2, n] + S2[a1, a6, a5, a3, SP[a2, a4], n] + 
    S2[a1, a6, a5, SP[a2, a3], a4, n] + S2[a1, a6, SP[a2, a3], a4, a5, n] + 
    S2[a1, a6, SP[a2, a3], a5, a4, n] - S2[a1, a6, SP[a2, a5], a3, a4, n] + 
    S2[a1, a6, SP[a3, a4], a2, a5, n] + S2[a1, a6, SP[a3, a4], a5, a2, n] - 
    S2[a1, SP[a2, a6], a4, a3, a5, n] - S2[a1, SP[a2, a6], a4, a5, a3, n] + 
    S2[a1, SP[a3, a4], a2, a5, a6, n] + S2[a1, SP[a3, a4], a2, a6, a5, n] + 
    S2[a1, SP[a3, a4], a5, a2, a6, n] + S2[a1, SP[a3, a4], a5, a6, a2, n] + 
    S2[a1, SP[a3, a4], a6, a2, a5, n] + S2[a1, SP[a3, a4], a6, a5, a2, n] + 
    S2[a1, SP[a3, a6], a2, a4, a5, n] + S2[a1, SP[a3, a6], a2, a5, a4, n] + 
    S2[a1, SP[a3, a6], a4, a2, a5, n] + S2[a1, SP[a3, a6], a4, a5, a2, n] + 
    S2[a1, SP[a3, a6], a5, a2, a4, n] + S2[a1, SP[a3, a6], a5, a4, a2, n] - 
    S2[a1, SP[a4, a6], a2, a3, a5, n] - S2[a1, SP[a4, a6], a2, a5, a3, n] - 
    S2[a1, SP[a4, a6], a3, a2, a5, n] - S2[a1, SP[a4, a6], a3, a5, a2, n] - 
    S2[a1, SP[a4, a6], a5, a2, a3, n] - S2[a1, SP[a4, a6], a5, a3, a2, n] - 
    S2[a1, SP[a5, a6], a2, a3, a4, n] - S2[a1, SP[a5, a6], a3, a2, a4, n] - 
    S2[a1, SP[a5, a6], a3, a4, a2, n] - S2[a3, a1, a2, a4, SP[a5, a6], n] + 
    S2[a3, a1, a2, a6, SP[a4, a5], n] - S2[a3, a1, a4, a2, SP[a5, a6], n] - 
    2*S2[a3, a1, a4, a6, SP[a2, a5], n] - S2[a3, a1, a4, SP[a2, a5], a6, n] - 
    S2[a3, a1, a4, SP[a2, a6], a5, n] - S2[a3, a1, a4, SP[a5, a6], a2, n] + 
    S2[a3, a1, a6, a2, SP[a4, a5], n] - 2*S2[a3, a1, a6, a4, SP[a2, a5], n] - 
    S2[a3, a1, a6, SP[a2, a4], a5, n] - S2[a3, a1, a6, SP[a2, a5], a4, n] + 
    S2[a3, a1, a6, SP[a4, a5], a2, n] - S2[a3, a1, SP[a2, a4], a5, a6, n] - 
    S2[a3, a1, SP[a2, a4], a6, a5, n] - S2[a3, a1, SP[a2, a6], a4, a5, n] - 
    S2[a3, a1, SP[a2, a6], a5, a4, n] + S2[a6, n]*S2[a3, a4, a1, a2, a5, n] + 
    S2[a6, n]*S2[a3, a4, a1, a5, a2, n] + S2[a3, a4, a1, a5, SP[a2, a6], n] - 
    2*S2[a3, a4, a1, a6, SP[a2, a5], n] - S2[a3, a4, a1, SP[a2, a5], a6, n] + 
    S2[a6, n]*S2[a3, a4, a5, a1, a2, n] + S2[a3, a4, a5, a1, SP[a2, a6], n] + 
    S2[a3, a4, a5, SP[a1, a6], a2, n] - S2[a3, a4, a6, a1, SP[a2, a5], n] - 
    S2[a3, a4, a6, SP[a1, a5], a2, n] - S2[a3, a4, SP[a1, a5], a2, a6, n] - 
    S2[a3, a4, SP[a1, a5], a6, a2, n] + S2[a3, a4, SP[a5, a6], a1, a2, n] + 
    S2[a5, n]*S2[a3, a6, a1, a2, a4, n] + S2[a3, a6, a1, a2, SP[a4, a5], n] + 
    S2[a5, n]*S2[a3, a6, a1, a4, a2, n] - S2[a3, a6, a1, a5, SP[a2, a4], n] - 
    S2[a3, a6, a1, SP[a2, a4], a5, n] + S2[a3, a6, a1, SP[a4, a5], a2, n] - 
    S2[a3, a6, a4, a1, SP[a2, a5], n] - S2[a3, a6, a4, SP[a1, a5], a2, n] - 
    S2[a3, a6, a5, a1, SP[a2, a4], n] - S2[a3, a6, a5, SP[a1, a4], a2, n] - 
    S2[a3, a6, SP[a1, a4], a2, a5, n] - S2[a3, a6, SP[a1, a4], a5, a2, n] - 
    S2[a3, SP[a1, a4], a2, a5, a6, n] - S2[a3, SP[a1, a4], a2, a6, a5, n] - 
    S2[a3, SP[a1, a4], a5, a2, a6, n] - S2[a3, SP[a1, a4], a5, a6, a2, n] - 
    S2[a3, SP[a1, a4], a6, a2, a5, n] - S2[a3, SP[a1, a4], a6, a5, a2, n] - 
    S2[a3, SP[a1, a6], a2, a4, a5, n] - S2[a3, SP[a1, a6], a2, a5, a4, n] - 
    S2[a3, SP[a1, a6], a4, a2, a5, n] - S2[a3, SP[a1, a6], a4, a5, a2, n] - 
    S2[a3, SP[a1, a6], a5, a2, a4, n] - S2[a3, SP[a1, a6], a5, a4, a2, n] + 
    S2[a3, SP[a4, a6], a1, a2, a5, n] + S2[a3, SP[a4, a6], a1, a5, a2, n] + 
    S2[a3, SP[a4, a6], a5, a1, a2, n] + S2[a3, SP[a5, a6], a1, a2, a4, n] + 
    S2[a3, SP[a5, a6], a1, a4, a2, n] + S2[a5, a1, a6, a3, SP[a2, a4], n] + 
    S2[a5, a1, a6, SP[a2, a3], a4, n] + S2[a5, a1, SP[a2, a6], a3, a4, n] - 
    S2[a3, n]*S2[a5, a6, a1, a2, a4, n] - S2[a5, a6, a1, a2, SP[a3, a4], n] + 
    S2[a5, a6, a1, a3, SP[a2, a4], n] - S2[a3, n]*S2[a5, a6, a1, a4, a2, n] - 
    S2[a5, a6, a1, a4, SP[a2, a3], n] - S2[a5, a6, a1, SP[a3, a4], a2, n] + 
    S2[a5, a6, a3, a1, SP[a2, a4], n] + S2[a5, a6, a3, SP[a1, a4], a2, n] + 
    S2[a5, SP[a1, a6], a2, a3, a4, n] + S2[a5, SP[a1, a6], a3, a2, a4, n] + 
    S2[a5, SP[a1, a6], a3, a4, a2, n] - S2[a5, SP[a3, a6], a1, a2, a4, n] - 
    S2[a5, SP[a3, a6], a1, a4, a2, n] + S2[a5, n]*S2[a6, a1, a2, a4, a3, n] + 
    S2[a6, a1, a2, a4, SP[a3, a5], n] + S2[a6, a1, a2, SP[a4, a5], a3, n] + 
    S2[a5, n]*S2[a6, a1, a4, a2, a3, n] + S2[a6, a1, a4, a2, SP[a3, a5], n] + 
    S2[a5, n]*S2[a6, a1, a4, a3, a2, n] + S2[a6, a1, a4, a3, SP[a2, a5], n] + 
    S2[a6, a1, a4, SP[a2, a5], a3, n] + S2[a6, a1, a4, SP[a3, a5], a2, n] + 
    S2[a6, a1, SP[a2, a5], a4, a3, n] + S2[a6, a1, SP[a4, a5], a2, a3, n] + 
    S2[a6, a1, SP[a4, a5], a3, a2, n] - S2[a5, n]*S2[a6, a3, a4, a1, a2, n] - 
    S2[a6, a3, a4, a1, SP[a2, a5], n] - S2[a6, a3, a4, SP[a1, a5], a2, n] - 
    S2[a6, a3, SP[a4, a5], a1, a2, n] + S2[a3, n]*S2[a6, a5, a4, a1, a2, n] + 
    S2[a6, a5, a4, a1, SP[a2, a3], n] + S2[a6, a5, a4, SP[a1, a3], a2, n] + 
    S2[a6, a5, SP[a3, a4], a1, a2, n] + S2[a6, SP[a1, a5], a2, a4, a3, n] + 
    S2[a6, SP[a1, a5], a4, a2, a3, n] + S2[a6, SP[a1, a5], a4, a3, a2, n] - 
    S2[SP[a1, a6], a2, a4, a3, a5, n] - S2[SP[a1, a6], a2, a4, a5, a3, n] - 
    S2[SP[a1, a6], a4, a2, a3, a5, n] - S2[SP[a1, a6], a4, a2, a5, a3, n] - 
    S2[SP[a1, a6], a4, a3, a2, a5, n] - S2[SP[a1, a6], a4, a3, a5, a2, n] - 
    S2[SP[a1, a6], a4, a5, a2, a3, n] - S2[SP[a1, a6], a4, a5, a3, a2, n] + 
    S2[SP[a3, a6], a4, a1, a2, a5, n] + S2[SP[a3, a6], a4, a1, a5, a2, n] + 
    S2[SP[a3, a6], a4, a5, a1, a2, n] + S2[SP[a3, a6], a5, a4, a1, a2, n] + 
    S2[SP[a5, a6], a1, a2, a4, a3, n] + S2[SP[a5, a6], a1, a4, a2, a3, n] + 
    S2[SP[a5, a6], a1, a4, a3, a2, n] - S2[SP[a5, a6], a3, a4, a1, a2, n] - 
    S2[a6, a1, a2, a5, a4, a3, n] - S2[a6, a1, a5, a2, a4, a3, n] - 
    S2[a6, a1, a5, a4, a2, a3, n] - S2[a6, a1, a5, a4, a3, a2, n] - 
    S2[a6, a5, a1, a2, a4, a3, n] - S2[a6, a5, a1, a4, a2, a3, n] - 
    S2[a6, a5, a1, a4, a3, a2, n] - S2[a6, a5, a4, a1, a2, a3, n] - 
    S2[a6, a5, a4, a1, a3, a2, n] - S2[a6, a5, a4, a3, a1, a2, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a3_, a4_, a5_, a6_, a2_, a1_, n_] :> 
  S2[a1, a2, a6, n]*S2[a3, a4, a5, n] + S2[SP[a1, a3], SP[a2, a4], 
     SP[a5, a6], n] - S2[a3, a4, n]*S2[a1, a2, a6, a5, n] + 
    S2[a1, a2, SP[a3, a6], SP[a4, a5], n] - S2[a1, a3, SP[a2, a4], 
     SP[a5, a6], n] - S2[a1, SP[a2, a3], a4, SP[a5, a6], n] + 
    S2[a1, SP[a2, a3], a6, SP[a4, a5], n] - S2[a3, a1, SP[a2, a4], 
     SP[a5, a6], n] + S2[a1, a2, n]*S2[a3, a4, a6, a5, n] - 
    S2[a3, a4, SP[a1, a6], SP[a2, a5], n] + S2[a1, a2, n]*
     S2[a3, a6, a4, a5, n] + S2[a1, a2, n]*S2[a3, a6, a5, a4, n] - 
    S2[a3, a6, SP[a1, a4], SP[a2, a5], n] - S2[a3, a6, SP[a1, a5], 
     SP[a2, a4], n] - S2[a3, SP[a1, a4], a2, SP[a5, a6], n] - 
    S2[a3, SP[a1, a4], a6, SP[a2, a5], n] - S2[a3, SP[a1, a4], SP[a2, a5], 
     a6, n] - S2[a3, SP[a1, a4], SP[a2, a6], a5, n] - 
    S2[a3, SP[a1, a6], a4, SP[a2, a5], n] - S2[a3, SP[a1, a6], a5, 
     SP[a2, a4], n] - S2[a3, SP[a1, a6], SP[a2, a4], a5, n] - 
    S2[a3, SP[a1, a6], SP[a2, a5], a4, n] - S2[a1, a2, n]*
     S2[a5, a6, a3, a4, n] + S2[a5, a6, SP[a1, a3], SP[a2, a4], n] + 
    S2[a5, SP[a1, a6], a3, SP[a2, a4], n] + S2[a5, SP[a1, a6], SP[a2, a3], 
     a4, n] - S2[SP[a1, a3], a2, a4, SP[a5, a6], n] + 
    S2[SP[a1, a3], a2, a6, SP[a4, a5], n] - S2[SP[a1, a3], a4, a2, 
     SP[a5, a6], n] - S2[SP[a1, a3], a4, a6, SP[a2, a5], n] - 
    S2[SP[a1, a3], a4, SP[a2, a5], a6, n] - S2[SP[a1, a3], a4, SP[a2, a6], 
     a5, n] - S2[SP[a1, a3], a6, a4, SP[a2, a5], n] - 
    S2[SP[a1, a3], a6, a5, SP[a2, a4], n] - S2[SP[a1, a3], a6, SP[a2, a4], 
     a5, n] - S2[SP[a1, a3], a6, SP[a2, a5], a4, n] - 
    S2[SP[a1, a3], SP[a2, a4], a5, a6, n] - S2[SP[a1, a3], SP[a2, a4], a6, 
     a5, n] - S2[SP[a1, a3], SP[a2, a6], a4, a5, n] - 
    S2[SP[a1, a3], SP[a2, a6], a5, a4, n] + S2[SP[a1, a5], a6, a3, 
     SP[a2, a4], n] + S2[SP[a1, a5], a6, SP[a2, a3], a4, n] + 
    S2[SP[a1, a5], SP[a2, a6], a3, a4, n] + S2[a1, a2, a3, a4, SP[a5, a6], 
     n] - S2[a1, a2, a3, a6, SP[a4, a5], n] + 
    S2[a6, n]*S2[a1, a2, a4, a3, a5, n] + S2[a1, a2, a4, a3, SP[a5, a6], n] + 
    S2[a6, n]*S2[a1, a2, a4, a5, a3, n] - 
    S2[a3, n]*S2[a1, a2, a4, a5, a6, n] - 
    S2[a3, n]*S2[a1, a2, a4, a6, a5, n] - S2[a1, a2, a4, a6, SP[a3, a5], n] - 
    S2[a1, a2, a4, SP[a3, a5], a6, n] + S2[a1, a2, a4, SP[a5, a6], a3, n] + 
    S2[a5, n]*S2[a1, a2, a6, a3, a4, n] - 
    S2[a3, n]*S2[a1, a2, a6, a4, a5, n] - S2[a1, a2, a6, a4, SP[a3, a5], n] - 
    S2[a1, a2, a6, SP[a3, a4], a5, n] - S2[a1, a2, SP[a3, a4], a5, a6, n] - 
    S2[a1, a2, SP[a3, a4], a6, a5, n] - S2[a1, a2, SP[a3, a6], a4, a5, n] - 
    S2[a1, a2, SP[a3, a6], a5, a4, n] + S2[a1, a2, SP[a4, a6], a3, a5, n] + 
    S2[a1, a2, SP[a4, a6], a5, a3, n] + S2[a1, a2, SP[a5, a6], a3, a4, n] + 
    S2[a1, a3, a2, a4, SP[a5, a6], n] - S2[a1, a3, a2, a6, SP[a4, a5], n] + 
    S2[a1, a3, a4, a2, SP[a5, a6], n] + S2[a1, a3, a4, a6, SP[a2, a5], n] + 
    S2[a1, a3, a4, SP[a2, a5], a6, n] + S2[a1, a3, a4, SP[a2, a6], a5, n] + 
    S2[a1, a3, a6, a4, SP[a2, a5], n] + S2[a1, a3, a6, a5, SP[a2, a4], n] + 
    S2[a1, a3, a6, SP[a2, a4], a5, n] + S2[a1, a3, a6, SP[a2, a5], a4, n] + 
    S2[a1, a3, SP[a2, a4], a5, a6, n] + S2[a1, a3, SP[a2, a4], a6, a5, n] + 
    S2[a1, a3, SP[a2, a6], a4, a5, n] + S2[a1, a3, SP[a2, a6], a5, a4, n] + 
    S2[a6, n]*S2[a1, a4, a2, a3, a5, n] + S2[a1, a4, a2, a3, SP[a5, a6], n] + 
    S2[a6, n]*S2[a1, a4, a2, a5, a3, n] - 
    S2[a3, n]*S2[a1, a4, a2, a5, a6, n] - 
    S2[a3, n]*S2[a1, a4, a2, a6, a5, n] - S2[a1, a4, a2, a6, SP[a3, a5], n] - 
    S2[a1, a4, a2, SP[a3, a5], a6, n] + S2[a1, a4, a2, SP[a5, a6], a3, n] + 
    S2[a6, n]*S2[a1, a4, a3, a2, a5, n] + S2[a1, a4, a3, a2, SP[a5, a6], n] + 
    S2[a6, n]*S2[a1, a4, a3, a5, a2, n] + S2[a1, a4, a3, a5, SP[a2, a6], n] + 
    S2[a1, a4, a3, SP[a2, a6], a5, n] + S2[a1, a4, a3, SP[a5, a6], a2, n] + 
    S2[a6, n]*S2[a1, a4, a5, a2, a3, n] - 
    S2[a3, n]*S2[a1, a4, a5, a2, a6, n] + 
    S2[a6, n]*S2[a1, a4, a5, a3, a2, n] + S2[a1, a4, a5, a3, SP[a2, a6], n] - 
    S2[a3, n]*S2[a1, a4, a5, a6, a2, n] - S2[a1, a4, a5, a6, SP[a2, a3], n] - 
    S2[a1, a4, a5, SP[a2, a3], a6, n] + S2[a1, a4, a5, SP[a2, a6], a3, n] - 
    S2[a3, n]*S2[a1, a4, a6, a2, a5, n] - S2[a1, a4, a6, a2, SP[a3, a5], n] - 
    S2[a3, n]*S2[a1, a4, a6, a5, a2, n] - S2[a1, a4, a6, a5, SP[a2, a3], n] - 
    S2[a1, a4, a6, SP[a2, a3], a5, n] - S2[a1, a4, a6, SP[a3, a5], a2, n] - 
    S2[a1, a4, SP[a2, a3], a5, a6, n] - S2[a1, a4, SP[a2, a3], a6, a5, n] + 
    S2[a1, a4, SP[a2, a6], a3, a5, n] + S2[a1, a4, SP[a2, a6], a5, a3, n] - 
    S2[a1, a4, SP[a3, a5], a2, a6, n] - S2[a1, a4, SP[a3, a5], a6, a2, n] + 
    S2[a1, a4, SP[a5, a6], a2, a3, n] + S2[a1, a4, SP[a5, a6], a3, a2, n] - 
    S2[a1, a5, a6, a3, SP[a2, a4], n] - S2[a1, a5, a6, SP[a2, a3], a4, n] - 
    S2[a1, a5, SP[a2, a6], a3, a4, n] + S2[a5, n]*S2[a1, a6, a2, a3, a4, n] + 
    S2[a1, a6, a2, a3, SP[a4, a5], n] - S2[a3, n]*S2[a1, a6, a2, a4, a5, n] - 
    S2[a1, a6, a2, a4, SP[a3, a5], n] - S2[a3, n]*S2[a1, a6, a2, a5, a4, n] - 
    S2[a1, a6, a2, a5, SP[a3, a4], n] - S2[a1, a6, a2, SP[a3, a4], a5, n] + 
    S2[a5, n]*S2[a1, a6, a3, a2, a4, n] + S2[a1, a6, a3, a2, SP[a4, a5], n] + 
    S2[a5, n]*S2[a1, a6, a3, a4, a2, n] + S2[a1, a6, a3, a4, SP[a2, a5], n] + 
    S2[a1, a6, a3, SP[a2, a5], a4, n] + S2[a1, a6, a3, SP[a4, a5], a2, n] - 
    S2[a3, n]*S2[a1, a6, a4, a2, a5, n] - S2[a1, a6, a4, a2, SP[a3, a5], n] - 
    S2[a3, n]*S2[a1, a6, a4, a5, a2, n] - S2[a1, a6, a4, a5, SP[a2, a3], n] - 
    S2[a1, a6, a4, SP[a2, a3], a5, n] - S2[a1, a6, a4, SP[a3, a5], a2, n] - 
    S2[a3, n]*S2[a1, a6, a5, a2, a4, n] - S2[a1, a6, a5, a2, SP[a3, a4], n] - 
    S2[a3, n]*S2[a1, a6, a5, a4, a2, n] - S2[a1, a6, a5, a4, SP[a2, a3], n] - 
    S2[a1, a6, a5, SP[a2, a3], a4, n] - S2[a1, a6, a5, SP[a3, a4], a2, n] - 
    S2[a1, a6, SP[a2, a3], a4, a5, n] - S2[a1, a6, SP[a2, a3], a5, a4, n] + 
    S2[a1, a6, SP[a2, a5], a3, a4, n] - S2[a1, a6, SP[a3, a4], a2, a5, n] - 
    S2[a1, a6, SP[a3, a4], a5, a2, n] + S2[a1, SP[a2, a6], a4, a3, a5, n] + 
    S2[a1, SP[a2, a6], a4, a5, a3, n] - S2[a1, SP[a3, a4], a2, a5, a6, n] - 
    S2[a1, SP[a3, a4], a2, a6, a5, n] - S2[a1, SP[a3, a4], a5, a2, a6, n] - 
    S2[a1, SP[a3, a4], a5, a6, a2, n] - S2[a1, SP[a3, a4], a6, a2, a5, n] - 
    S2[a1, SP[a3, a4], a6, a5, a2, n] - S2[a1, SP[a3, a6], a2, a4, a5, n] - 
    S2[a1, SP[a3, a6], a2, a5, a4, n] - S2[a1, SP[a3, a6], a4, a2, a5, n] - 
    S2[a1, SP[a3, a6], a4, a5, a2, n] - S2[a1, SP[a3, a6], a5, a2, a4, n] - 
    S2[a1, SP[a3, a6], a5, a4, a2, n] + S2[a1, SP[a4, a6], a2, a3, a5, n] + 
    S2[a1, SP[a4, a6], a2, a5, a3, n] + S2[a1, SP[a4, a6], a3, a2, a5, n] + 
    S2[a1, SP[a4, a6], a3, a5, a2, n] + S2[a1, SP[a4, a6], a5, a2, a3, n] + 
    S2[a1, SP[a4, a6], a5, a3, a2, n] + S2[a1, SP[a5, a6], a2, a3, a4, n] + 
    S2[a1, SP[a5, a6], a3, a2, a4, n] + S2[a1, SP[a5, a6], a3, a4, a2, n] + 
    S2[a3, a1, a2, a4, SP[a5, a6], n] - S2[a3, a1, a2, a6, SP[a4, a5], n] + 
    S2[a3, a1, a4, a2, SP[a5, a6], n] + S2[a3, a1, a4, a6, SP[a2, a5], n] + 
    S2[a3, a1, a4, SP[a2, a5], a6, n] + S2[a3, a1, a4, SP[a2, a6], a5, n] + 
    S2[a3, a1, a6, a4, SP[a2, a5], n] + S2[a3, a1, a6, a5, SP[a2, a4], n] + 
    S2[a3, a1, a6, SP[a2, a4], a5, n] + S2[a3, a1, a6, SP[a2, a5], a4, n] + 
    S2[a3, a1, SP[a2, a4], a5, a6, n] + S2[a3, a1, SP[a2, a4], a6, a5, n] + 
    S2[a3, a1, SP[a2, a6], a4, a5, n] + S2[a3, a1, SP[a2, a6], a5, a4, n] - 
    S2[a6, n]*S2[a3, a4, a1, a2, a5, n] - 
    S2[a6, n]*S2[a3, a4, a1, a5, a2, n] - S2[a3, a4, a1, a5, SP[a2, a6], n] + 
    S2[a3, a4, a1, a6, SP[a2, a5], n] + S2[a3, a4, a1, SP[a2, a5], a6, n] - 
    S2[a3, a4, a1, SP[a5, a6], a2, n] - S2[a6, n]*S2[a3, a4, a5, a1, a2, n] - 
    S2[a3, a4, a5, a1, SP[a2, a6], n] + S2[a1, n]*S2[a3, a4, a5, a6, a2, n] + 
    S2[a3, a4, a5, a6, SP[a1, a2], n] + S2[a3, a4, a6, a1, SP[a2, a5], n] + 
    S2[a3, a4, a6, SP[a1, a5], a2, n] + S2[a3, a4, SP[a1, a5], a2, a6, n] + 
    S2[a3, a4, SP[a1, a5], a6, a2, n] - S2[a3, a4, SP[a5, a6], a1, a2, n] - 
    S2[a5, n]*S2[a3, a6, a1, a2, a4, n] - S2[a3, a6, a1, a2, SP[a4, a5], n] - 
    S2[a5, n]*S2[a3, a6, a1, a4, a2, n] + S2[a3, a6, a1, a5, SP[a2, a4], n] + 
    S2[a3, a6, a1, SP[a2, a4], a5, n] - S2[a3, a6, a1, SP[a4, a5], a2, n] + 
    S2[a3, a6, a4, a1, SP[a2, a5], n] + S2[a3, a6, a4, SP[a1, a5], a2, n] + 
    S2[a3, a6, a5, a1, SP[a2, a4], n] + S2[a3, a6, a5, SP[a1, a4], a2, n] + 
    S2[a3, a6, SP[a1, a4], a2, a5, n] + S2[a3, a6, SP[a1, a4], a5, a2, n] + 
    S2[a3, SP[a1, a4], a2, a5, a6, n] + S2[a3, SP[a1, a4], a2, a6, a5, n] + 
    S2[a3, SP[a1, a4], a5, a2, a6, n] + S2[a3, SP[a1, a4], a5, a6, a2, n] + 
    S2[a3, SP[a1, a4], a6, a2, a5, n] + S2[a3, SP[a1, a4], a6, a5, a2, n] + 
    S2[a3, SP[a1, a6], a2, a4, a5, n] + S2[a3, SP[a1, a6], a2, a5, a4, n] + 
    S2[a3, SP[a1, a6], a4, a2, a5, n] + S2[a3, SP[a1, a6], a4, a5, a2, n] + 
    S2[a3, SP[a1, a6], a5, a2, a4, n] + S2[a3, SP[a1, a6], a5, a4, a2, n] - 
    S2[a3, SP[a4, a6], a1, a2, a5, n] - S2[a3, SP[a4, a6], a1, a5, a2, n] - 
    S2[a3, SP[a4, a6], a5, a1, a2, n] - S2[a3, SP[a5, a6], a1, a2, a4, n] - 
    S2[a3, SP[a5, a6], a1, a4, a2, n] - S2[a5, a1, a6, a3, SP[a2, a4], n] - 
    S2[a5, a1, a6, SP[a2, a3], a4, n] - S2[a5, a1, SP[a2, a6], a3, a4, n] + 
    S2[a3, n]*S2[a5, a6, a1, a2, a4, n] + S2[a5, a6, a1, a2, SP[a3, a4], n] - 
    S2[a5, a6, a1, a3, SP[a2, a4], n] + S2[a3, n]*S2[a5, a6, a1, a4, a2, n] + 
    S2[a5, a6, a1, a4, SP[a2, a3], n] + S2[a5, a6, a1, SP[a3, a4], a2, n] - 
    S2[a5, a6, a3, a1, SP[a2, a4], n] - S2[a5, a6, a3, SP[a1, a4], a2, n] - 
    S2[a5, SP[a1, a6], a2, a3, a4, n] - S2[a5, SP[a1, a6], a3, a2, a4, n] - 
    S2[a5, SP[a1, a6], a3, a4, a2, n] + S2[a5, SP[a3, a6], a1, a2, a4, n] + 
    S2[a5, SP[a3, a6], a1, a4, a2, n] - S2[a5, n]*S2[a6, a1, a2, a4, a3, n] - 
    S2[a6, a1, a2, a4, SP[a3, a5], n] - S2[a6, a1, a2, SP[a4, a5], a3, n] - 
    S2[a5, n]*S2[a6, a1, a4, a2, a3, n] - S2[a6, a1, a4, a2, SP[a3, a5], n] - 
    S2[a5, n]*S2[a6, a1, a4, a3, a2, n] - S2[a6, a1, a4, a3, SP[a2, a5], n] - 
    S2[a6, a1, a4, SP[a2, a5], a3, n] - S2[a6, a1, a4, SP[a3, a5], a2, n] - 
    S2[a6, a1, SP[a2, a5], a4, a3, n] - S2[a6, a1, SP[a4, a5], a2, a3, n] - 
    S2[a6, a1, SP[a4, a5], a3, a2, n] + S2[a1, n]*S2[a6, a2, a5, a4, a3, n] + 
    S2[a6, a2, a5, a4, SP[a1, a3], n] + S2[a6, a2, a5, SP[a1, a4], a3, n] + 
    S2[a6, a2, SP[a1, a5], a4, a3, n] + S2[a5, n]*S2[a6, a3, a4, a1, a2, n] + 
    S2[a6, a3, a4, a1, SP[a2, a5], n] + S2[a6, a3, a4, SP[a1, a5], a2, n] + 
    S2[a6, a3, SP[a4, a5], a1, a2, n] + S2[a1, n]*S2[a6, a5, a2, a4, a3, n] + 
    S2[a6, a5, a2, a4, SP[a1, a3], n] + S2[a6, a5, a2, SP[a1, a4], a3, n] - 
    S2[a3, n]*S2[a6, a5, a4, a1, a2, n] - S2[a6, a5, a4, a1, SP[a2, a3], n] + 
    S2[a1, n]*S2[a6, a5, a4, a2, a3, n] + S2[a6, a5, a4, a2, SP[a1, a3], n] + 
    S2[a1, n]*S2[a6, a5, a4, a3, a2, n] + S2[a6, a5, a4, a3, SP[a1, a2], n] + 
    S2[a6, a5, a4, SP[a1, a2], a3, n] + S2[a6, a5, SP[a1, a2], a4, a3, n] + 
    S2[a6, a5, SP[a1, a4], a2, a3, n] + S2[a6, a5, SP[a1, a4], a3, a2, n] - 
    S2[a6, a5, SP[a3, a4], a1, a2, n] + S2[a6, SP[a1, a2], a5, a4, a3, n] + 
    S2[SP[a1, a6], a2, a4, a3, a5, n] + S2[SP[a1, a6], a2, a4, a5, a3, n] + 
    S2[SP[a1, a6], a2, a5, a4, a3, n] + S2[SP[a1, a6], a4, a2, a3, a5, n] + 
    S2[SP[a1, a6], a4, a2, a5, a3, n] + S2[SP[a1, a6], a4, a3, a2, a5, n] + 
    S2[SP[a1, a6], a4, a3, a5, a2, n] + S2[SP[a1, a6], a4, a5, a2, a3, n] + 
    S2[SP[a1, a6], a4, a5, a3, a2, n] + S2[SP[a1, a6], a5, a2, a4, a3, n] + 
    S2[SP[a1, a6], a5, a4, a2, a3, n] + S2[SP[a1, a6], a5, a4, a3, a2, n] - 
    S2[SP[a3, a6], a4, a1, a2, a5, n] - S2[SP[a3, a6], a4, a1, a5, a2, n] - 
    S2[SP[a3, a6], a4, a5, a1, a2, n] - S2[SP[a3, a6], a5, a4, a1, a2, n] - 
    S2[SP[a5, a6], a1, a2, a4, a3, n] - S2[SP[a5, a6], a1, a4, a2, a3, n] - 
    S2[SP[a5, a6], a1, a4, a3, a2, n] + S2[SP[a5, a6], a3, a4, a1, a2, n] - 
    S2[a6, a2, a1, a5, a4, a3, n] - S2[a6, a2, a5, a1, a4, a3, n] - 
    S2[a6, a2, a5, a4, a1, a3, n] - S2[a6, a2, a5, a4, a3, a1, n] - 
    S2[a6, a5, a2, a1, a4, a3, n] - S2[a6, a5, a2, a4, a1, a3, n] - 
    S2[a6, a5, a2, a4, a3, a1, n] - S2[a6, a5, a4, a2, a1, a3, n] - 
    S2[a6, a5, a4, a2, a3, a1, n] - S2[a6, a5, a4, a3, a2, a1, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a3_, a4_, a6_, a1_, a2_, a5_, n_] :> 
  -(S2[a3, a4, n]*S2[a1, a2, a5, a6, n]) - S2[a3, a4, n]*
     S2[a1, a2, a6, a5, n] + S2[a1, a2, SP[a3, a5], SP[a4, a6], n] + 
    S2[a1, a2, SP[a3, a6], SP[a4, a5], n] - S2[a3, a4, n]*
     S2[a1, a6, a2, a5, n] + S2[a1, a6, SP[a2, a3], SP[a4, a5], n] + 
    S2[a1, SP[a2, a3], a5, SP[a4, a6], n] + S2[a1, SP[a2, a3], a6, 
     SP[a4, a5], n] + S2[a1, SP[a2, a3], SP[a4, a5], a6, n] + 
    S2[a1, SP[a2, a3], SP[a4, a6], a5, n] + S2[a1, SP[a3, a6], a2, 
     SP[a4, a5], n] + S2[a1, SP[a3, a6], SP[a2, a4], a5, n] + 
    S2[SP[a1, a3], a2, a5, SP[a4, a6], n] + S2[SP[a1, a3], a2, a6, 
     SP[a4, a5], n] + S2[SP[a1, a3], a2, SP[a4, a5], a6, n] + 
    S2[SP[a1, a3], a2, SP[a4, a6], a5, n] + S2[SP[a1, a3], a6, a2, 
     SP[a4, a5], n] + S2[SP[a1, a3], a6, SP[a2, a4], a5, n] + 
    S2[SP[a1, a3], SP[a2, a4], a5, a6, n] + S2[SP[a1, a3], SP[a2, a4], a6, 
     a5, n] + S2[SP[a1, a3], SP[a4, a6], a2, a5, n] - 
    S2[a1, a2, a3, a5, SP[a4, a6], n] - S2[a1, a2, a3, a6, SP[a4, a5], n] - 
    S2[a1, a2, a3, SP[a4, a5], a6, n] - S2[a1, a2, a3, SP[a4, a6], a5, n] - 
    S2[a6, n]*S2[a1, a2, a4, a3, a5, n] - S2[a1, a2, a4, a3, SP[a5, a6], n] - 
    S2[a6, n]*S2[a1, a2, a4, a5, a3, n] + 
    S2[a3, n]*S2[a1, a2, a4, a5, a6, n] + 
    S2[a3, n]*S2[a1, a2, a4, a6, a5, n] + S2[a1, a2, a4, a6, SP[a3, a5], n] + 
    S2[a1, a2, a4, SP[a3, a5], a6, n] - S2[a1, a2, a4, SP[a5, a6], a3, n] - 
    S2[a1, a2, a5, a3, SP[a4, a6], n] - S2[a6, n]*S2[a1, a2, a5, a4, a3, n] + 
    S2[a3, n]*S2[a1, a2, a5, a4, a6, n] + 
    S2[a3, n]*S2[a1, a2, a5, a6, a4, n] + S2[a1, a2, a5, a6, SP[a3, a4], n] + 
    S2[a1, a2, a5, SP[a3, a4], a6, n] - S2[a1, a2, a5, SP[a4, a6], a3, n] - 
    S2[a1, a2, a6, a3, SP[a4, a5], n] + S2[a3, n]*S2[a1, a2, a6, a4, a5, n] + 
    S2[a1, a2, a6, a4, SP[a3, a5], n] + S2[a3, n]*S2[a1, a2, a6, a5, a4, n] + 
    S2[a1, a2, a6, a5, SP[a3, a4], n] + S2[a1, a2, a6, SP[a3, a4], a5, n] + 
    S2[a1, a2, SP[a3, a4], a5, a6, n] + S2[a1, a2, SP[a3, a4], a6, a5, n] - 
    S2[a1, a2, SP[a4, a6], a3, a5, n] - S2[a1, a2, SP[a4, a6], a5, a3, n] - 
    S2[a1, a2, SP[a5, a6], a4, a3, n] - S2[a1, a3, a2, a5, SP[a4, a6], n] - 
    S2[a1, a3, a2, a6, SP[a4, a5], n] - S2[a1, a3, a2, SP[a4, a5], a6, n] - 
    S2[a1, a3, a2, SP[a4, a6], a5, n] - S2[a1, a3, a6, a2, SP[a4, a5], n] - 
    S2[a1, a3, a6, SP[a2, a4], a5, n] - S2[a1, a3, SP[a2, a4], a5, a6, n] - 
    S2[a1, a3, SP[a2, a4], a6, a5, n] - S2[a1, a3, SP[a4, a6], a2, a5, n] - 
    S2[a6, n]*S2[a1, a4, a2, a3, a5, n] - S2[a1, a4, a2, a3, SP[a5, a6], n] - 
    S2[a6, n]*S2[a1, a4, a2, a5, a3, n] + 
    S2[a3, n]*S2[a1, a4, a2, a5, a6, n] + 
    S2[a3, n]*S2[a1, a4, a2, a6, a5, n] + S2[a1, a4, a2, a6, SP[a3, a5], n] + 
    S2[a1, a4, a2, SP[a3, a5], a6, n] - S2[a1, a4, a2, SP[a5, a6], a3, n] - 
    S2[a6, n]*S2[a1, a4, a3, a2, a5, n] - S2[a1, a4, a3, a2, SP[a5, a6], n] - 
    S2[a1, a4, a3, SP[a2, a6], a5, n] + S2[a3, n]*S2[a1, a4, a6, a2, a5, n] + 
    S2[a1, a4, a6, a2, SP[a3, a5], n] + S2[a1, a4, a6, SP[a2, a3], a5, n] + 
    S2[a1, a4, SP[a2, a3], a5, a6, n] + S2[a1, a4, SP[a2, a3], a6, a5, n] - 
    S2[a1, a4, SP[a2, a6], a3, a5, n] - S2[a1, a4, SP[a2, a6], a5, a3, n] - 
    S2[a1, a6, a2, a3, SP[a4, a5], n] + S2[a3, n]*S2[a1, a6, a2, a4, a5, n] + 
    S2[a1, a6, a2, a4, SP[a3, a5], n] + S2[a3, n]*S2[a1, a6, a2, a5, a4, n] + 
    S2[a1, a6, a2, a5, SP[a3, a4], n] + S2[a1, a6, a2, SP[a3, a4], a5, n] - 
    S2[a1, a6, a3, a2, SP[a4, a5], n] - S2[a1, a6, a3, SP[a2, a4], a5, n] + 
    S2[a3, n]*S2[a1, a6, a4, a2, a5, n] + S2[a1, a6, a4, a2, SP[a3, a5], n] + 
    S2[a1, a6, a4, SP[a2, a3], a5, n] + S2[a1, a6, SP[a3, a4], a2, a5, n] - 
    S2[a1, SP[a2, a6], a4, a3, a5, n] - S2[a1, SP[a2, a6], a4, a5, a3, n] - 
    S2[a1, SP[a2, a6], a5, a4, a3, n] + S2[a1, SP[a3, a4], a2, a5, a6, n] + 
    S2[a1, SP[a3, a4], a2, a6, a5, n] + S2[a1, SP[a3, a4], a6, a2, a5, n] - 
    S2[a1, SP[a4, a6], a2, a3, a5, n] - S2[a1, SP[a4, a6], a2, a5, a3, n] - 
    S2[a1, SP[a4, a6], a3, a2, a5, n] - S2[a3, a1, a2, a5, SP[a4, a6], n] - 
    S2[a3, a1, a2, a6, SP[a4, a5], n] - S2[a3, a1, a2, SP[a4, a5], a6, n] - 
    S2[a3, a1, a2, SP[a4, a6], a5, n] - S2[a3, a1, a6, a2, SP[a4, a5], n] - 
    S2[a3, a1, a6, SP[a2, a4], a5, n] - S2[a3, a1, SP[a2, a4], a5, a6, n] - 
    S2[a3, a1, SP[a2, a4], a6, a5, n] - S2[a3, a1, SP[a4, a6], a2, a5, n] + 
    S2[a6, n]*S2[a3, a4, a1, a2, a5, n] + S2[a3, a4, a1, a2, SP[a5, a6], n] + 
    S2[a3, a4, a1, SP[a2, a6], a5, n] + S2[a3, a4, SP[a1, a6], a2, a5, n] - 
    S2[a3, SP[a1, a4], a2, a5, a6, n] - S2[a3, SP[a1, a4], a2, a6, a5, n] - 
    S2[a3, SP[a1, a4], a6, a2, a5, n] + S2[a3, SP[a4, a6], a1, a2, a5, n] - 
    S2[a3, n]*S2[a6, a4, a1, a2, a5, n] - S2[a6, a4, a1, a2, SP[a3, a5], n] - 
    S2[a6, a4, a1, SP[a2, a3], a5, n] - S2[a6, a4, SP[a1, a3], a2, a5, n] - 
    S2[a6, SP[a3, a4], a1, a2, a5, n] - S2[SP[a1, a6], a2, a4, a3, a5, n] - 
    S2[SP[a1, a6], a2, a4, a5, a3, n] - S2[SP[a1, a6], a2, a5, a4, a3, n] - 
    S2[SP[a1, a6], a4, a2, a3, a5, n] - S2[SP[a1, a6], a4, a2, a5, a3, n] - 
    S2[SP[a1, a6], a4, a3, a2, a5, n] + S2[a6, a1, a2, a4, a3, a5, n] + 
    S2[a6, a1, a2, a4, a5, a3, n] + S2[a6, a1, a2, a5, a4, a3, n] + 
    S2[a6, a1, a4, a2, a3, a5, n] + S2[a6, a1, a4, a2, a5, a3, n] + 
    S2[a6, a1, a4, a3, a2, a5, n] + S2[a6, a4, a1, a2, a3, a5, n] + 
    S2[a6, a4, a1, a2, a5, a3, n] + S2[a6, a4, a1, a3, a2, a5, n] + 
    S2[a6, a4, a3, a1, a2, a5, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a3_, a4_, a6_, a1_, a5_, a2_, n_] :> 
  -(S2[a3, a4, n]*S2[a1, a5, a2, a6, n]) - S2[a3, a4, n]*
     S2[a1, a5, a6, a2, n] + S2[a1, a5, SP[a2, a3], SP[a4, a6], n] + 
    S2[a1, a5, SP[a3, a6], SP[a2, a4], n] - S2[a3, a4, n]*
     S2[a1, a6, a5, a2, n] + S2[a1, a6, SP[a3, a5], SP[a2, a4], n] + 
    S2[a1, SP[a3, a5], a2, SP[a4, a6], n] + S2[a1, SP[a3, a5], a6, 
     SP[a2, a4], n] + S2[a1, SP[a3, a5], SP[a2, a4], a6, n] + 
    S2[a1, SP[a3, a5], SP[a4, a6], a2, n] + S2[a1, SP[a3, a6], a5, 
     SP[a2, a4], n] + S2[a1, SP[a3, a6], SP[a4, a5], a2, n] + 
    S2[SP[a1, a3], a5, a2, SP[a4, a6], n] + S2[SP[a1, a3], a5, a6, 
     SP[a2, a4], n] + S2[SP[a1, a3], a5, SP[a2, a4], a6, n] + 
    S2[SP[a1, a3], a5, SP[a4, a6], a2, n] + S2[SP[a1, a3], a6, a5, 
     SP[a2, a4], n] + S2[SP[a1, a3], a6, SP[a4, a5], a2, n] + 
    S2[SP[a1, a3], SP[a4, a5], a2, a6, n] + S2[SP[a1, a3], SP[a4, a5], a6, 
     a2, n] + S2[SP[a1, a3], SP[a4, a6], a5, a2, n] - 
    S2[a1, a3, a5, a2, SP[a4, a6], n] - S2[a1, a3, a5, a6, SP[a2, a4], n] - 
    S2[a1, a3, a5, SP[a2, a4], a6, n] - S2[a1, a3, a5, SP[a4, a6], a2, n] - 
    S2[a1, a3, a6, a5, SP[a2, a4], n] - S2[a1, a3, a6, SP[a4, a5], a2, n] - 
    S2[a1, a3, SP[a4, a5], a2, a6, n] - S2[a1, a3, SP[a4, a5], a6, a2, n] - 
    S2[a1, a3, SP[a4, a6], a5, a2, n] - S2[a6, n]*S2[a1, a4, a3, a5, a2, n] - 
    S2[a1, a4, a3, a5, SP[a2, a6], n] - S2[a1, a4, a3, SP[a5, a6], a2, n] - 
    S2[a6, n]*S2[a1, a4, a5, a2, a3, n] + 
    S2[a3, n]*S2[a1, a4, a5, a2, a6, n] - 
    S2[a6, n]*S2[a1, a4, a5, a3, a2, n] - S2[a1, a4, a5, a3, SP[a2, a6], n] + 
    S2[a3, n]*S2[a1, a4, a5, a6, a2, n] + S2[a1, a4, a5, a6, SP[a2, a3], n] + 
    S2[a1, a4, a5, SP[a2, a3], a6, n] - S2[a1, a4, a5, SP[a2, a6], a3, n] + 
    S2[a3, n]*S2[a1, a4, a6, a5, a2, n] + S2[a1, a4, a6, a5, SP[a2, a3], n] + 
    S2[a1, a4, a6, SP[a3, a5], a2, n] + S2[a1, a4, SP[a3, a5], a2, a6, n] + 
    S2[a1, a4, SP[a3, a5], a6, a2, n] - S2[a1, a4, SP[a5, a6], a2, a3, n] - 
    S2[a1, a4, SP[a5, a6], a3, a2, n] - S2[a1, a5, a2, a3, SP[a4, a6], n] - 
    S2[a6, n]*S2[a1, a5, a2, a4, a3, n] + 
    S2[a3, n]*S2[a1, a5, a2, a4, a6, n] + 
    S2[a3, n]*S2[a1, a5, a2, a6, a4, n] + S2[a1, a5, a2, a6, SP[a3, a4], n] + 
    S2[a1, a5, a2, SP[a3, a4], a6, n] - S2[a1, a5, a2, SP[a4, a6], a3, n] - 
    S2[a1, a5, a3, a2, SP[a4, a6], n] - S2[a1, a5, a3, a6, SP[a2, a4], n] - 
    S2[a1, a5, a3, SP[a2, a4], a6, n] - S2[a1, a5, a3, SP[a4, a6], a2, n] - 
    S2[a6, n]*S2[a1, a5, a4, a2, a3, n] + 
    S2[a3, n]*S2[a1, a5, a4, a2, a6, n] - 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] - S2[a1, a5, a4, a3, SP[a2, a6], n] + 
    S2[a3, n]*S2[a1, a5, a4, a6, a2, n] + S2[a1, a5, a4, a6, SP[a2, a3], n] + 
    S2[a1, a5, a4, SP[a2, a3], a6, n] - S2[a1, a5, a4, SP[a2, a6], a3, n] + 
    S2[a3, n]*S2[a1, a5, a6, a2, a4, n] + S2[a1, a5, a6, a2, SP[a3, a4], n] - 
    S2[a1, a5, a6, a3, SP[a2, a4], n] + S2[a3, n]*S2[a1, a5, a6, a4, a2, n] + 
    S2[a1, a5, a6, a4, SP[a2, a3], n] + S2[a1, a5, a6, SP[a3, a4], a2, n] - 
    S2[a1, a5, SP[a2, a6], a4, a3, n] + S2[a1, a5, SP[a3, a4], a2, a6, n] + 
    S2[a1, a5, SP[a3, a4], a6, a2, n] - S2[a1, a5, SP[a4, a6], a2, a3, n] - 
    S2[a1, a5, SP[a4, a6], a3, a2, n] - S2[a1, a6, a3, a5, SP[a2, a4], n] - 
    S2[a1, a6, a3, SP[a4, a5], a2, n] + S2[a3, n]*S2[a1, a6, a4, a5, a2, n] + 
    S2[a1, a6, a4, a5, SP[a2, a3], n] + S2[a1, a6, a4, SP[a3, a5], a2, n] + 
    S2[a3, n]*S2[a1, a6, a5, a2, a4, n] + S2[a1, a6, a5, a2, SP[a3, a4], n] - 
    S2[a1, a6, a5, a3, SP[a2, a4], n] + S2[a3, n]*S2[a1, a6, a5, a4, a2, n] + 
    S2[a1, a6, a5, a4, SP[a2, a3], n] + S2[a1, a6, a5, SP[a3, a4], a2, n] + 
    S2[a1, a6, SP[a3, a4], a5, a2, n] + S2[a1, SP[a3, a4], a5, a2, a6, n] + 
    S2[a1, SP[a3, a4], a5, a6, a2, n] + S2[a1, SP[a3, a4], a6, a5, a2, n] - 
    S2[a1, SP[a4, a6], a3, a5, a2, n] - S2[a1, SP[a4, a6], a5, a2, a3, n] - 
    S2[a1, SP[a4, a6], a5, a3, a2, n] - S2[a1, SP[a5, a6], a2, a4, a3, n] - 
    S2[a1, SP[a5, a6], a4, a2, a3, n] - S2[a1, SP[a5, a6], a4, a3, a2, n] - 
    S2[a3, a1, a5, a2, SP[a4, a6], n] - S2[a3, a1, a5, a6, SP[a2, a4], n] - 
    S2[a3, a1, a5, SP[a2, a4], a6, n] - S2[a3, a1, a5, SP[a4, a6], a2, n] - 
    S2[a3, a1, a6, a5, SP[a2, a4], n] - S2[a3, a1, a6, SP[a4, a5], a2, n] - 
    S2[a3, a1, SP[a4, a5], a2, a6, n] - S2[a3, a1, SP[a4, a5], a6, a2, n] - 
    S2[a3, a1, SP[a4, a6], a5, a2, n] + S2[a6, n]*S2[a3, a4, a1, a5, a2, n] + 
    S2[a3, a4, a1, a5, SP[a2, a6], n] + S2[a3, a4, a1, SP[a5, a6], a2, n] + 
    S2[a3, a4, SP[a1, a6], a5, a2, n] - S2[a3, SP[a1, a4], a5, a2, a6, n] - 
    S2[a3, SP[a1, a4], a5, a6, a2, n] - S2[a3, SP[a1, a4], a6, a5, a2, n] + 
    S2[a3, SP[a4, a6], a1, a5, a2, n] - S2[a3, n]*S2[a6, a4, a1, a5, a2, n] - 
    S2[a6, a4, a1, a5, SP[a2, a3], n] - S2[a6, a4, a1, SP[a3, a5], a2, n] - 
    S2[a6, a4, SP[a1, a3], a5, a2, n] - S2[a6, SP[a3, a4], a1, a5, a2, n] - 
    S2[SP[a1, a6], a4, a3, a5, a2, n] - S2[SP[a1, a6], a4, a5, a2, a3, n] - 
    S2[SP[a1, a6], a4, a5, a3, a2, n] - S2[SP[a1, a6], a5, a2, a4, a3, n] - 
    S2[SP[a1, a6], a5, a4, a2, a3, n] - S2[SP[a1, a6], a5, a4, a3, a2, n] + 
    S2[a6, a1, a4, a3, a5, a2, n] + S2[a6, a1, a4, a5, a2, a3, n] + 
    S2[a6, a1, a4, a5, a3, a2, n] + S2[a6, a1, a5, a2, a4, a3, n] + 
    S2[a6, a1, a5, a4, a2, a3, n] + S2[a6, a1, a5, a4, a3, a2, n] + 
    S2[a6, a4, a1, a3, a5, a2, n] + S2[a6, a4, a1, a5, a2, a3, n] + 
    S2[a6, a4, a1, a5, a3, a2, n] + S2[a6, a4, a3, a1, a5, a2, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a3_, a4_, a6_, a2_, a1_, a5_, n_] :> 
  S2[a3, a4, n]*S2[a1, a2, a5, a6, n] + S2[a3, a4, n]*S2[a1, a2, a6, a5, n] - 
    S2[a1, a2, SP[a3, a5], SP[a4, a6], n] - S2[a1, a2, SP[a3, a6], 
     SP[a4, a5], n] + S2[a3, a4, n]*S2[a1, a5, a2, a6, n] - 
    S2[a1, a5, SP[a2, a3], SP[a4, a6], n] - S2[a1, SP[a2, a3], a5, 
     SP[a4, a6], n] - S2[a1, SP[a2, a3], a6, SP[a4, a5], n] - 
    S2[a1, SP[a2, a3], SP[a4, a5], a6, n] - S2[a1, SP[a2, a3], SP[a4, a6], 
     a5, n] - S2[a1, SP[a3, a5], a2, SP[a4, a6], n] - 
    S2[a1, SP[a3, a5], SP[a2, a4], a6, n] + S2[a1, a5, n]*
     S2[a2, a4, a3, a6, n] + S2[a1, a5, n]*S2[a2, a4, a6, a3, n] - 
    S2[a2, a4, SP[a1, a3], SP[a5, a6], n] - S2[a2, a4, SP[a1, a6], 
     SP[a3, a5], n] + S2[a1, a5, n]*S2[a2, a6, a4, a3, n] - 
    S2[a2, a6, SP[a1, a4], SP[a3, a5], n] - S2[a2, SP[a1, a4], a3, 
     SP[a5, a6], n] - S2[a2, SP[a1, a4], a6, SP[a3, a5], n] - 
    S2[a2, SP[a1, a4], SP[a3, a5], a6, n] - S2[a2, SP[a1, a4], SP[a5, a6], 
     a3, n] - S2[a2, SP[a1, a6], a4, SP[a3, a5], n] - 
    S2[a2, SP[a1, a6], SP[a4, a5], a3, n] - S2[a1, a5, n]*
     S2[a3, a4, a2, a6, n] + S2[a3, a4, SP[a1, a2], SP[a5, a6], n] + 
    S2[a3, SP[a1, a4], a2, SP[a5, a6], n] + S2[a3, SP[a1, a4], SP[a2, a5], 
     a6, n] - S2[SP[a1, a2], a4, a3, SP[a5, a6], n] - 
    S2[SP[a1, a2], a4, a6, SP[a3, a5], n] - S2[SP[a1, a2], a4, SP[a3, a5], 
     a6, n] - S2[SP[a1, a2], a4, SP[a5, a6], a3, n] - 
    S2[SP[a1, a2], a6, a4, SP[a3, a5], n] - S2[SP[a1, a2], a6, SP[a4, a5], 
     a3, n] - S2[SP[a1, a2], SP[a4, a5], a3, a6, n] - 
    S2[SP[a1, a2], SP[a4, a5], a6, a3, n] - S2[SP[a1, a2], SP[a5, a6], a4, 
     a3, n] - S2[SP[a1, a3], a2, a5, SP[a4, a6], n] - 
    S2[SP[a1, a3], a2, a6, SP[a4, a5], n] - S2[SP[a1, a3], a2, SP[a4, a5], 
     a6, n] - S2[SP[a1, a3], a2, SP[a4, a6], a5, n] + 
    S2[SP[a1, a3], a4, a2, SP[a5, a6], n] + S2[SP[a1, a3], a4, SP[a2, a5], 
     a6, n] - S2[SP[a1, a3], a5, a2, SP[a4, a6], n] - 
    S2[SP[a1, a3], a5, SP[a2, a4], a6, n] - S2[SP[a1, a3], SP[a2, a4], a5, 
     a6, n] - S2[SP[a1, a3], SP[a2, a4], a6, a5, n] + 
    S2[a1, a2, a3, a5, SP[a4, a6], n] + S2[a1, a2, a3, a6, SP[a4, a5], n] + 
    S2[a1, a2, a3, SP[a4, a5], a6, n] + S2[a1, a2, a3, SP[a4, a6], a5, n] + 
    S2[a6, n]*S2[a1, a2, a4, a3, a5, n] + 
    2*S2[a1, a2, a4, a3, SP[a5, a6], n] + 
    S2[a6, n]*S2[a1, a2, a4, a5, a3, n] - 
    S2[a3, n]*S2[a1, a2, a4, a5, a6, n] - 
    S2[a3, n]*S2[a1, a2, a4, a6, a5, n] + 
    2*S2[a1, a2, a4, SP[a5, a6], a3, n] + S2[a1, a2, a5, a3, SP[a4, a6], n] + 
    S2[a6, n]*S2[a1, a2, a5, a4, a3, n] - 
    S2[a3, n]*S2[a1, a2, a5, a4, a6, n] - 
    S2[a3, n]*S2[a1, a2, a5, a6, a4, n] - S2[a1, a2, a5, a6, SP[a3, a4], n] - 
    S2[a1, a2, a5, SP[a3, a4], a6, n] + S2[a1, a2, a5, SP[a4, a6], a3, n] + 
    S2[a1, a2, a6, a3, SP[a4, a5], n] - S2[a3, n]*S2[a1, a2, a6, a4, a5, n] - 
    S2[a3, n]*S2[a1, a2, a6, a5, a4, n] - S2[a1, a2, a6, a5, SP[a3, a4], n] - 
    S2[a1, a2, a6, SP[a3, a4], a5, n] + S2[a1, a2, a6, SP[a4, a5], a3, n] - 
    S2[a1, a2, SP[a3, a4], a5, a6, n] - S2[a1, a2, SP[a3, a4], a6, a5, n] + 
    S2[a1, a2, SP[a4, a5], a3, a6, n] + S2[a1, a2, SP[a4, a5], a6, a3, n] + 
    S2[a1, a2, SP[a4, a6], a3, a5, n] + S2[a1, a2, SP[a4, a6], a5, a3, n] + 
    2*S2[a1, a2, SP[a5, a6], a4, a3, n] + S2[a1, a3, a2, a5, SP[a4, a6], n] + 
    S2[a1, a3, a2, a6, SP[a4, a5], n] + S2[a1, a3, a2, SP[a4, a5], a6, n] + 
    S2[a1, a3, a2, SP[a4, a6], a5, n] - S2[a1, a3, a4, a2, SP[a5, a6], n] - 
    S2[a1, a3, a4, SP[a2, a5], a6, n] + S2[a1, a3, a5, a2, SP[a4, a6], n] + 
    S2[a1, a3, a5, SP[a2, a4], a6, n] + S2[a1, a3, SP[a2, a4], a5, a6, n] + 
    S2[a1, a3, SP[a2, a4], a6, a5, n] + S2[a6, n]*S2[a1, a4, a2, a3, a5, n] + 
    S2[a1, a4, a2, a3, SP[a5, a6], n] + S2[a6, n]*S2[a1, a4, a2, a5, a3, n] + 
    S2[a1, a4, a2, a5, SP[a3, a6], n] + S2[a1, a4, a2, SP[a3, a6], a5, n] + 
    S2[a1, a4, a2, SP[a5, a6], a3, n] + S2[a6, n]*S2[a1, a4, a3, a2, a5, n] + 
    S2[a1, a4, a3, a2, SP[a5, a6], n] + S2[a6, n]*S2[a1, a4, a3, a5, a2, n] - 
    S2[a2, n]*S2[a1, a4, a3, a5, a6, n] - 
    S2[a2, n]*S2[a1, a4, a3, a6, a5, n] - S2[a1, a4, a3, a6, SP[a2, a5], n] - 
    S2[a1, a4, a3, SP[a2, a5], a6, n] + S2[a1, a4, a3, SP[a5, a6], a2, n] + 
    S2[a6, n]*S2[a1, a4, a5, a2, a3, n] + S2[a1, a4, a5, a2, SP[a3, a6], n] + 
    S2[a6, n]*S2[a1, a4, a5, a3, a2, n] - 
    S2[a2, n]*S2[a1, a4, a5, a3, a6, n] - 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] - S2[a1, a4, a5, a6, SP[a2, a3], n] - 
    S2[a1, a4, a5, SP[a2, a3], a6, n] + S2[a1, a4, a5, SP[a3, a6], a2, n] - 
    S2[a2, n]*S2[a1, a4, a6, a3, a5, n] - S2[a1, a4, a6, a3, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a4, a6, a5, a3, n] - S2[a1, a4, a6, a5, SP[a2, a3], n] - 
    S2[a1, a4, a6, SP[a2, a3], a5, n] - S2[a1, a4, a6, SP[a2, a5], a3, n] - 
    S2[a1, a4, SP[a2, a3], a5, a6, n] - S2[a1, a4, SP[a2, a3], a6, a5, n] - 
    S2[a1, a4, SP[a2, a5], a3, a6, n] - S2[a1, a4, SP[a2, a5], a6, a3, n] + 
    S2[a1, a4, SP[a3, a6], a2, a5, n] + S2[a1, a4, SP[a3, a6], a5, a2, n] + 
    S2[a1, a4, SP[a5, a6], a2, a3, n] + S2[a1, a4, SP[a5, a6], a3, a2, n] + 
    S2[a1, a5, a2, a3, SP[a4, a6], n] + S2[a6, n]*S2[a1, a5, a2, a4, a3, n] - 
    S2[a3, n]*S2[a1, a5, a2, a4, a6, n] - 
    S2[a3, n]*S2[a1, a5, a2, a6, a4, n] - S2[a1, a5, a2, a6, SP[a3, a4], n] - 
    S2[a1, a5, a2, SP[a3, a4], a6, n] + S2[a1, a5, a2, SP[a4, a6], a3, n] + 
    S2[a1, a5, a3, a2, SP[a4, a6], n] + S2[a1, a5, a3, SP[a2, a4], a6, n] + 
    S2[a6, n]*S2[a1, a5, a4, a2, a3, n] + S2[a1, a5, a4, a2, SP[a3, a6], n] + 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] - 
    S2[a2, n]*S2[a1, a5, a4, a3, a6, n] - 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] - S2[a1, a5, a4, a6, SP[a2, a3], n] - 
    S2[a1, a5, a4, SP[a2, a3], a6, n] + S2[a1, a5, a4, SP[a3, a6], a2, n] - 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] - S2[a1, a5, a6, a4, SP[a2, a3], n] - 
    S2[a1, a5, a6, SP[a2, a4], a3, n] - S2[a1, a5, SP[a2, a4], a3, a6, n] - 
    S2[a1, a5, SP[a2, a4], a6, a3, n] + S2[a1, a5, SP[a4, a6], a2, a3, n] + 
    S2[a1, a5, SP[a4, a6], a3, a2, n] - S2[a2, n]*S2[a1, a6, a4, a3, a5, n] - 
    S2[a1, a6, a4, a3, SP[a2, a5], n] - S2[a2, n]*S2[a1, a6, a4, a5, a3, n] - 
    S2[a1, a6, a4, a5, SP[a2, a3], n] - S2[a1, a6, a4, SP[a2, a3], a5, n] - 
    S2[a1, a6, a4, SP[a2, a5], a3, n] - S2[a2, n]*S2[a1, a6, a5, a4, a3, n] - 
    S2[a1, a6, a5, a4, SP[a2, a3], n] - S2[a1, a6, a5, SP[a2, a4], a3, n] - 
    S2[a1, a6, SP[a2, a4], a3, a5, n] - S2[a1, a6, SP[a2, a4], a5, a3, n] - 
    S2[a1, a6, SP[a2, a5], a4, a3, n] - S2[a1, SP[a2, a4], a3, a5, a6, n] - 
    S2[a1, SP[a2, a4], a3, a6, a5, n] - S2[a1, SP[a2, a4], a5, a3, a6, n] - 
    S2[a1, SP[a2, a4], a5, a6, a3, n] - S2[a1, SP[a2, a4], a6, a3, a5, n] - 
    S2[a1, SP[a2, a4], a6, a5, a3, n] + S2[a1, SP[a4, a6], a2, a3, a5, n] + 
    S2[a1, SP[a4, a6], a2, a5, a3, n] + S2[a1, SP[a4, a6], a3, a2, a5, n] + 
    S2[a1, SP[a4, a6], a3, a5, a2, n] + S2[a1, SP[a4, a6], a5, a2, a3, n] + 
    S2[a1, SP[a4, a6], a5, a3, a2, n] + S2[a1, SP[a5, a6], a2, a4, a3, n] + 
    S2[a1, SP[a5, a6], a4, a2, a3, n] + S2[a1, SP[a5, a6], a4, a3, a2, n] + 
    S2[a2, a1, a4, a3, SP[a5, a6], n] + S2[a2, a1, a4, a6, SP[a3, a5], n] + 
    S2[a2, a1, a4, SP[a3, a5], a6, n] + S2[a2, a1, a4, SP[a5, a6], a3, n] + 
    S2[a2, a1, a6, a4, SP[a3, a5], n] + S2[a2, a1, a6, SP[a4, a5], a3, n] + 
    S2[a2, a1, SP[a4, a5], a3, a6, n] + S2[a2, a1, SP[a4, a5], a6, a3, n] + 
    S2[a2, a1, SP[a5, a6], a4, a3, n] + S2[a2, a4, a1, a3, SP[a5, a6], n] - 
    S2[a3, n]*S2[a2, a4, a1, a5, a6, n] - S2[a2, a4, a1, a5, SP[a3, a6], n] - 
    S2[a3, n]*S2[a2, a4, a1, a6, a5, n] - S2[a2, a4, a1, SP[a3, a6], a5, n] + 
    S2[a2, a4, a1, SP[a5, a6], a3, n] + S2[a2, a4, a3, a1, SP[a5, a6], n] + 
    S2[a2, a4, a3, SP[a1, a6], a5, n] - S2[a3, n]*S2[a2, a4, a6, a1, a5, n] + 
    S2[a2, a4, SP[a1, a6], a3, a5, n] + S2[a2, a4, SP[a1, a6], a5, a3, n] - 
    S2[a2, a4, SP[a3, a6], a1, a5, n] + S2[a2, a6, a1, a4, SP[a3, a5], n] + 
    S2[a2, a6, a1, SP[a4, a5], a3, n] + S2[a2, a6, a4, a1, SP[a3, a5], n] + 
    S2[a2, a6, a4, SP[a1, a3], a5, n] + S2[a2, a6, SP[a1, a4], a3, a5, n] + 
    S2[a2, a6, SP[a1, a4], a5, a3, n] + S2[a2, SP[a1, a4], a3, a5, a6, n] + 
    S2[a2, SP[a1, a4], a3, a6, a5, n] + S2[a2, SP[a1, a4], a5, a3, a6, n] + 
    S2[a2, SP[a1, a4], a5, a6, a3, n] + S2[a2, SP[a1, a4], a6, a3, a5, n] + 
    S2[a2, SP[a1, a4], a6, a5, a3, n] + S2[a2, SP[a1, a6], a4, a3, a5, n] + 
    S2[a2, SP[a1, a6], a4, a5, a3, n] + S2[a2, SP[a1, a6], a5, a4, a3, n] - 
    S2[a2, SP[a3, a4], a1, a5, a6, n] - S2[a2, SP[a3, a4], a1, a6, a5, n] - 
    S2[a2, SP[a3, a4], a6, a1, a5, n] + S2[a3, a1, a2, a5, SP[a4, a6], n] + 
    S2[a3, a1, a2, a6, SP[a4, a5], n] + S2[a3, a1, a2, SP[a4, a5], a6, n] + 
    S2[a3, a1, a2, SP[a4, a6], a5, n] - S2[a3, a1, a4, a2, SP[a5, a6], n] - 
    S2[a3, a1, a4, SP[a2, a5], a6, n] + S2[a3, a1, a5, a2, SP[a4, a6], n] + 
    S2[a3, a1, a5, SP[a2, a4], a6, n] + S2[a3, a1, SP[a2, a4], a5, a6, n] + 
    S2[a3, a1, SP[a2, a4], a6, a5, n] - S2[a6, n]*S2[a3, a4, a1, a2, a5, n] - 
    2*S2[a3, a4, a1, a2, SP[a5, a6], n] - 
    S2[a6, n]*S2[a3, a4, a1, a5, a2, n] + 
    S2[a2, n]*S2[a3, a4, a1, a5, a6, n] + 
    S2[a2, n]*S2[a3, a4, a1, a6, a5, n] + S2[a3, a4, a1, a6, SP[a2, a5], n] - 
    S2[a3, a4, a1, SP[a5, a6], a2, n] - S2[a3, a4, a2, a1, SP[a5, a6], n] - 
    S2[a3, a4, a2, SP[a1, a6], a5, n] + S2[a2, n]*S2[a3, a4, a6, a1, a5, n] + 
    S2[a3, a4, a6, a1, SP[a2, a5], n] + S2[a3, a4, a6, SP[a1, a2], a5, n] - 
    S2[a3, a4, SP[a1, a6], a2, a5, n] - S2[a3, a4, SP[a1, a6], a5, a2, n] + 
    S2[a3, a4, SP[a2, a6], a1, a5, n] + S2[a3, SP[a2, a4], a1, a5, a6, n] + 
    S2[a3, SP[a2, a4], a1, a6, a5, n] + S2[a3, SP[a2, a4], a6, a1, a5, n] - 
    S2[a3, SP[a4, a6], a1, a2, a5, n] - S2[a3, SP[a4, a6], a1, a5, a2, n] - 
    S2[a2, n]*S2[a6, a1, a4, a3, a5, n] - S2[a6, a1, a4, a3, SP[a2, a5], n] - 
    S2[a2, n]*S2[a6, a1, a4, a5, a3, n] - S2[a6, a1, a4, a5, SP[a2, a3], n] - 
    S2[a6, a1, a4, SP[a2, a3], a5, n] - S2[a6, a1, a4, SP[a2, a5], a3, n] - 
    S2[a2, n]*S2[a6, a1, a5, a4, a3, n] - S2[a6, a1, a5, a4, SP[a2, a3], n] - 
    S2[a6, a1, a5, SP[a2, a4], a3, n] - S2[a6, a1, SP[a2, a4], a3, a5, n] - 
    S2[a6, a1, SP[a2, a4], a5, a3, n] - S2[a6, a1, SP[a2, a5], a4, a3, n] + 
    S2[a3, n]*S2[a6, a4, a1, a2, a5, n] + S2[a6, a4, a1, a2, SP[a3, a5], n] - 
    S2[a2, n]*S2[a6, a4, a1, a3, a5, n] - S2[a6, a4, a1, a3, SP[a2, a5], n] + 
    S2[a3, n]*S2[a6, a4, a1, a5, a2, n] - 
    S2[a2, n]*S2[a6, a4, a1, a5, a3, n] - S2[a6, a4, a1, SP[a2, a5], a3, n] + 
    S2[a6, a4, a1, SP[a3, a5], a2, n] - S2[a2, n]*S2[a6, a4, a3, a1, a5, n] - 
    S2[a6, a4, a3, a1, SP[a2, a5], n] - S2[a6, a4, a3, SP[a1, a2], a5, n] - 
    S2[a6, a4, SP[a1, a2], a3, a5, n] - S2[a6, a4, SP[a1, a2], a5, a3, n] + 
    S2[a6, a4, SP[a1, a3], a2, a5, n] + S2[a6, a4, SP[a1, a3], a5, a2, n] - 
    S2[a6, a4, SP[a2, a3], a1, a5, n] - S2[a6, SP[a1, a2], a4, a3, a5, n] - 
    S2[a6, SP[a1, a2], a4, a5, a3, n] - S2[a6, SP[a1, a2], a5, a4, a3, n] - 
    S2[a6, SP[a2, a4], a1, a3, a5, n] - S2[a6, SP[a2, a4], a1, a5, a3, n] - 
    S2[a6, SP[a2, a4], a3, a1, a5, n] + S2[a6, SP[a3, a4], a1, a2, a5, n] + 
    S2[a6, SP[a3, a4], a1, a5, a2, n] + S2[SP[a1, a6], a2, a4, a3, a5, n] + 
    S2[SP[a1, a6], a2, a4, a5, a3, n] + S2[SP[a1, a6], a2, a5, a4, a3, n] + 
    S2[SP[a1, a6], a4, a2, a3, a5, n] + S2[SP[a1, a6], a4, a2, a5, a3, n] + 
    S2[SP[a1, a6], a4, a3, a2, a5, n] + S2[SP[a1, a6], a4, a3, a5, a2, n] + 
    S2[SP[a1, a6], a4, a5, a2, a3, n] + S2[SP[a1, a6], a4, a5, a3, a2, n] + 
    S2[SP[a1, a6], a5, a2, a4, a3, n] + S2[SP[a1, a6], a5, a4, a2, a3, n] + 
    S2[SP[a1, a6], a5, a4, a3, a2, n] - S2[SP[a2, a6], a1, a4, a3, a5, n] - 
    S2[SP[a2, a6], a1, a4, a5, a3, n] - S2[SP[a2, a6], a1, a5, a4, a3, n] - 
    S2[SP[a2, a6], a4, a1, a3, a5, n] - S2[SP[a2, a6], a4, a1, a5, a3, n] - 
    S2[SP[a2, a6], a4, a3, a1, a5, n] + S2[a6, a2, a1, a4, a3, a5, n] + 
    S2[a6, a2, a1, a4, a5, a3, n] + S2[a6, a2, a1, a5, a4, a3, n] + 
    S2[a6, a2, a4, a1, a3, a5, n] + S2[a6, a2, a4, a1, a5, a3, n] + 
    S2[a6, a2, a4, a3, a1, a5, n] + S2[a6, a4, a2, a1, a3, a5, n] + 
    S2[a6, a4, a2, a1, a5, a3, n] + S2[a6, a4, a2, a3, a1, a5, n] + 
    S2[a6, a4, a3, a2, a1, a5, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a3_, a4_, a6_, a2_, a5_, a1_, n_] :> 
  -(S2[a3, a4, n]*S2[a1, a5, a2, a6, n]) + S2[a1, a5, SP[a2, a3], SP[a4, a6], 
     n] + S2[a1, SP[a3, a5], a2, SP[a4, a6], n] + 
    S2[a1, SP[a3, a5], SP[a2, a4], a6, n] - S2[a1, a5, n]*
     S2[a2, a4, a3, a6, n] - S2[a1, a5, n]*S2[a2, a4, a6, a3, n] + 
    S2[a2, a4, SP[a1, a3], SP[a5, a6], n] + S2[a2, a4, SP[a1, a6], 
     SP[a3, a5], n] - S2[a1, a5, n]*S2[a2, a6, a4, a3, n] + 
    S2[a2, a6, SP[a1, a4], SP[a3, a5], n] + S2[a2, SP[a1, a4], a3, 
     SP[a5, a6], n] + S2[a2, SP[a1, a4], a6, SP[a3, a5], n] + 
    S2[a2, SP[a1, a4], SP[a3, a5], a6, n] + S2[a2, SP[a1, a4], SP[a5, a6], 
     a3, n] + S2[a2, SP[a1, a6], a4, SP[a3, a5], n] + 
    S2[a2, SP[a1, a6], SP[a4, a5], a3, n] + S2[a1, a5, n]*
     S2[a3, a4, a2, a6, n] - S2[a3, a4, SP[a1, a2], SP[a5, a6], n] - 
    S2[a3, SP[a1, a4], a2, SP[a5, a6], n] - S2[a3, SP[a1, a4], SP[a2, a5], 
     a6, n] + S2[SP[a1, a2], a4, a3, SP[a5, a6], n] + 
    S2[SP[a1, a2], a4, a6, SP[a3, a5], n] + S2[SP[a1, a2], a4, SP[a3, a5], 
     a6, n] + S2[SP[a1, a2], a4, SP[a5, a6], a3, n] + 
    S2[SP[a1, a2], a6, a4, SP[a3, a5], n] + S2[SP[a1, a2], a6, SP[a4, a5], 
     a3, n] + S2[SP[a1, a2], SP[a4, a5], a3, a6, n] + 
    S2[SP[a1, a2], SP[a4, a5], a6, a3, n] + S2[SP[a1, a2], SP[a5, a6], a4, 
     a3, n] - S2[SP[a1, a3], a4, a2, SP[a5, a6], n] - 
    S2[SP[a1, a3], a4, SP[a2, a5], a6, n] + S2[SP[a1, a3], a5, a2, 
     SP[a4, a6], n] + S2[SP[a1, a3], a5, SP[a2, a4], a6, n] - 
    S2[a1, a2, a4, a3, SP[a5, a6], n] - S2[a1, a2, a4, a6, SP[a3, a5], n] - 
    S2[a1, a2, a4, SP[a3, a5], a6, n] - S2[a1, a2, a4, SP[a5, a6], a3, n] - 
    S2[a1, a2, a6, a4, SP[a3, a5], n] - S2[a1, a2, a6, SP[a4, a5], a3, n] - 
    S2[a1, a2, SP[a4, a5], a3, a6, n] - S2[a1, a2, SP[a4, a5], a6, a3, n] - 
    S2[a1, a2, SP[a5, a6], a4, a3, n] + S2[a1, a3, a4, a2, SP[a5, a6], n] + 
    S2[a1, a3, a4, SP[a2, a5], a6, n] - S2[a1, a3, a5, a2, SP[a4, a6], n] - 
    S2[a1, a3, a5, SP[a2, a4], a6, n] - S2[a3, n]*S2[a1, a4, a2, a5, a6, n] - 
    S2[a1, a4, a2, a5, SP[a3, a6], n] - S2[a3, n]*S2[a1, a4, a2, a6, a5, n] - 
    S2[a1, a4, a2, a6, SP[a3, a5], n] - S2[a1, a4, a2, SP[a3, a5], a6, n] - 
    S2[a1, a4, a2, SP[a3, a6], a5, n] - S2[a6, n]*S2[a1, a4, a3, a5, a2, n] + 
    S2[a2, n]*S2[a1, a4, a3, a5, a6, n] + 
    S2[a2, n]*S2[a1, a4, a3, a6, a5, n] + S2[a1, a4, a3, a6, SP[a2, a5], n] + 
    S2[a1, a4, a3, SP[a2, a5], a6, n] + S2[a1, a4, a3, SP[a2, a6], a5, n] - 
    S2[a1, a4, a3, SP[a5, a6], a2, n] - S2[a6, n]*S2[a1, a4, a5, a2, a3, n] - 
    S2[a1, a4, a5, a2, SP[a3, a6], n] - S2[a6, n]*S2[a1, a4, a5, a3, a2, n] + 
    S2[a2, n]*S2[a1, a4, a5, a3, a6, n] + 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] + S2[a1, a4, a5, a6, SP[a2, a3], n] + 
    S2[a1, a4, a5, SP[a2, a3], a6, n] - S2[a1, a4, a5, SP[a3, a6], a2, n] - 
    S2[a3, n]*S2[a1, a4, a6, a2, a5, n] - S2[a1, a4, a6, a2, SP[a3, a5], n] + 
    S2[a2, n]*S2[a1, a4, a6, a3, a5, n] + S2[a1, a4, a6, a3, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a4, a6, a5, a3, n] + S2[a1, a4, a6, a5, SP[a2, a3], n] + 
    S2[a1, a4, a6, SP[a2, a5], a3, n] + S2[a1, a4, SP[a2, a5], a3, a6, n] + 
    S2[a1, a4, SP[a2, a5], a6, a3, n] + S2[a1, a4, SP[a2, a6], a3, a5, n] + 
    S2[a1, a4, SP[a2, a6], a5, a3, n] - S2[a1, a4, SP[a3, a6], a2, a5, n] - 
    S2[a1, a4, SP[a3, a6], a5, a2, n] - S2[a1, a4, SP[a5, a6], a2, a3, n] - 
    S2[a1, a4, SP[a5, a6], a3, a2, n] - S2[a1, a5, a2, a3, SP[a4, a6], n] - 
    S2[a6, n]*S2[a1, a5, a2, a4, a3, n] + 
    S2[a3, n]*S2[a1, a5, a2, a4, a6, n] + 
    S2[a3, n]*S2[a1, a5, a2, a6, a4, n] + S2[a1, a5, a2, a6, SP[a3, a4], n] + 
    S2[a1, a5, a2, SP[a3, a4], a6, n] - S2[a1, a5, a2, SP[a4, a6], a3, n] - 
    S2[a1, a5, a3, a2, SP[a4, a6], n] - S2[a1, a5, a3, SP[a2, a4], a6, n] - 
    S2[a6, n]*S2[a1, a5, a4, a2, a3, n] - S2[a1, a5, a4, a2, SP[a3, a6], n] - 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] + 
    S2[a2, n]*S2[a1, a5, a4, a3, a6, n] + 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] + S2[a1, a5, a4, a6, SP[a2, a3], n] + 
    S2[a1, a5, a4, SP[a2, a3], a6, n] - S2[a1, a5, a4, SP[a3, a6], a2, n] + 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] + S2[a1, a5, a6, a4, SP[a2, a3], n] + 
    S2[a1, a5, a6, SP[a2, a4], a3, n] + S2[a1, a5, SP[a2, a4], a3, a6, n] + 
    S2[a1, a5, SP[a2, a4], a6, a3, n] - S2[a1, a5, SP[a4, a6], a2, a3, n] - 
    S2[a1, a5, SP[a4, a6], a3, a2, n] + S2[a2, n]*S2[a1, a6, a4, a3, a5, n] + 
    S2[a1, a6, a4, a3, SP[a2, a5], n] + S2[a2, n]*S2[a1, a6, a4, a5, a3, n] + 
    S2[a1, a6, a4, a5, SP[a2, a3], n] + S2[a1, a6, a4, SP[a2, a3], a5, n] + 
    S2[a1, a6, a4, SP[a2, a5], a3, n] + S2[a2, n]*S2[a1, a6, a5, a4, a3, n] + 
    S2[a1, a6, a5, a4, SP[a2, a3], n] + S2[a1, a6, a5, SP[a2, a4], a3, n] + 
    S2[a1, a6, SP[a2, a4], a3, a5, n] + S2[a1, a6, SP[a2, a4], a5, a3, n] + 
    S2[a1, a6, SP[a2, a5], a4, a3, n] + S2[a1, SP[a2, a4], a3, a5, a6, n] + 
    S2[a1, SP[a2, a4], a3, a6, a5, n] + S2[a1, SP[a2, a4], a5, a3, a6, n] + 
    S2[a1, SP[a2, a4], a5, a6, a3, n] + S2[a1, SP[a2, a4], a6, a3, a5, n] + 
    S2[a1, SP[a2, a4], a6, a5, a3, n] + S2[a1, SP[a2, a6], a4, a3, a5, n] + 
    S2[a1, SP[a2, a6], a4, a5, a3, n] + S2[a1, SP[a2, a6], a5, a4, a3, n] - 
    S2[a1, SP[a3, a4], a2, a5, a6, n] - S2[a1, SP[a3, a4], a2, a6, a5, n] - 
    S2[a1, SP[a3, a4], a6, a2, a5, n] - S2[a1, SP[a4, a6], a3, a5, a2, n] - 
    S2[a1, SP[a4, a6], a5, a2, a3, n] - S2[a1, SP[a4, a6], a5, a3, a2, n] - 
    S2[a1, SP[a5, a6], a2, a4, a3, n] - S2[a1, SP[a5, a6], a4, a2, a3, n] - 
    S2[a1, SP[a5, a6], a4, a3, a2, n] - S2[a2, a1, a4, a3, SP[a5, a6], n] - 
    S2[a2, a1, a4, a6, SP[a3, a5], n] - S2[a2, a1, a4, SP[a3, a5], a6, n] - 
    S2[a2, a1, a4, SP[a5, a6], a3, n] - S2[a2, a1, a6, a4, SP[a3, a5], n] - 
    S2[a2, a1, a6, SP[a4, a5], a3, n] - S2[a2, a1, SP[a4, a5], a3, a6, n] - 
    S2[a2, a1, SP[a4, a5], a6, a3, n] - S2[a2, a1, SP[a5, a6], a4, a3, n] - 
    S2[a2, a4, a1, a3, SP[a5, a6], n] + S2[a3, n]*S2[a2, a4, a1, a5, a6, n] + 
    S2[a2, a4, a1, a5, SP[a3, a6], n] + S2[a3, n]*S2[a2, a4, a1, a6, a5, n] + 
    S2[a2, a4, a1, SP[a3, a6], a5, n] - S2[a2, a4, a1, SP[a5, a6], a3, n] - 
    S2[a2, a4, a3, a1, SP[a5, a6], n] - S2[a2, a4, a3, SP[a1, a6], a5, n] + 
    S2[a3, n]*S2[a2, a4, a6, a1, a5, n] - S2[a2, a4, SP[a1, a6], a3, a5, n] - 
    S2[a2, a4, SP[a1, a6], a5, a3, n] + S2[a2, a4, SP[a3, a6], a1, a5, n] - 
    S2[a2, a6, a1, a4, SP[a3, a5], n] - S2[a2, a6, a1, SP[a4, a5], a3, n] - 
    S2[a2, a6, a4, a1, SP[a3, a5], n] - S2[a2, a6, a4, SP[a1, a3], a5, n] - 
    S2[a2, a6, SP[a1, a4], a3, a5, n] - S2[a2, a6, SP[a1, a4], a5, a3, n] - 
    S2[a2, SP[a1, a4], a3, a5, a6, n] - S2[a2, SP[a1, a4], a3, a6, a5, n] - 
    S2[a2, SP[a1, a4], a5, a3, a6, n] - S2[a2, SP[a1, a4], a5, a6, a3, n] - 
    S2[a2, SP[a1, a4], a6, a3, a5, n] - S2[a2, SP[a1, a4], a6, a5, a3, n] - 
    S2[a2, SP[a1, a6], a4, a3, a5, n] - S2[a2, SP[a1, a6], a4, a5, a3, n] - 
    S2[a2, SP[a1, a6], a5, a4, a3, n] + S2[a2, SP[a3, a4], a1, a5, a6, n] + 
    S2[a2, SP[a3, a4], a1, a6, a5, n] + S2[a2, SP[a3, a4], a6, a1, a5, n] + 
    S2[a3, a1, a4, a2, SP[a5, a6], n] + S2[a3, a1, a4, SP[a2, a5], a6, n] - 
    S2[a3, a1, a5, a2, SP[a4, a6], n] - S2[a3, a1, a5, SP[a2, a4], a6, n] + 
    S2[a3, a4, a1, a2, SP[a5, a6], n] + S2[a6, n]*S2[a3, a4, a1, a5, a2, n] - 
    S2[a2, n]*S2[a3, a4, a1, a5, a6, n] - 
    S2[a2, n]*S2[a3, a4, a1, a6, a5, n] - S2[a3, a4, a1, a6, SP[a2, a5], n] - 
    S2[a3, a4, a1, SP[a2, a6], a5, n] + S2[a3, a4, a1, SP[a5, a6], a2, n] + 
    S2[a3, a4, a2, a1, SP[a5, a6], n] + S2[a3, a4, a2, SP[a1, a6], a5, n] - 
    S2[a2, n]*S2[a3, a4, a6, a1, a5, n] - S2[a3, a4, a6, a1, SP[a2, a5], n] + 
    S2[a1, n]*S2[a3, a4, a6, a2, a5, n] + S2[a3, a4, a6, a2, SP[a1, a5], n] + 
    S2[a3, a4, SP[a1, a6], a2, a5, n] + S2[a3, a4, SP[a1, a6], a5, a2, n] - 
    S2[a3, a4, SP[a2, a6], a1, a5, n] + S2[a3, SP[a1, a4], a2, a5, a6, n] + 
    S2[a3, SP[a1, a4], a2, a6, a5, n] + S2[a3, SP[a1, a4], a6, a2, a5, n] - 
    S2[a3, SP[a2, a4], a1, a5, a6, n] - S2[a3, SP[a2, a4], a1, a6, a5, n] - 
    S2[a3, SP[a2, a4], a6, a1, a5, n] + S2[a3, SP[a4, a6], a1, a5, a2, n] + 
    S2[a2, n]*S2[a6, a1, a4, a3, a5, n] + S2[a6, a1, a4, a3, SP[a2, a5], n] + 
    S2[a2, n]*S2[a6, a1, a4, a5, a3, n] + S2[a6, a1, a4, a5, SP[a2, a3], n] + 
    S2[a6, a1, a4, SP[a2, a3], a5, n] + S2[a6, a1, a4, SP[a2, a5], a3, n] + 
    S2[a2, n]*S2[a6, a1, a5, a4, a3, n] + S2[a6, a1, a5, a4, SP[a2, a3], n] + 
    S2[a6, a1, a5, SP[a2, a4], a3, n] + S2[a6, a1, SP[a2, a4], a3, a5, n] + 
    S2[a6, a1, SP[a2, a4], a5, a3, n] + S2[a6, a1, SP[a2, a5], a4, a3, n] - 
    S2[a1, n]*S2[a6, a2, a4, a3, a5, n] - S2[a6, a2, a4, a3, SP[a1, a5], n] - 
    S2[a1, n]*S2[a6, a2, a4, a5, a3, n] - S2[a6, a2, a4, a5, SP[a1, a3], n] - 
    S2[a6, a2, a4, SP[a1, a3], a5, n] - S2[a6, a2, a4, SP[a1, a5], a3, n] - 
    S2[a1, n]*S2[a6, a2, a5, a4, a3, n] - S2[a6, a2, a5, a4, SP[a1, a3], n] - 
    S2[a6, a2, a5, SP[a1, a4], a3, n] - S2[a6, a2, SP[a1, a4], a3, a5, n] - 
    S2[a6, a2, SP[a1, a4], a5, a3, n] - S2[a6, a2, SP[a1, a5], a4, a3, n] + 
    S2[a2, n]*S2[a6, a4, a1, a3, a5, n] + S2[a6, a4, a1, a3, SP[a2, a5], n] - 
    S2[a3, n]*S2[a6, a4, a1, a5, a2, n] + 
    S2[a2, n]*S2[a6, a4, a1, a5, a3, n] + S2[a6, a4, a1, SP[a2, a3], a5, n] + 
    S2[a6, a4, a1, SP[a2, a5], a3, n] - S2[a6, a4, a1, SP[a3, a5], a2, n] - 
    S2[a1, n]*S2[a6, a4, a2, a3, a5, n] - S2[a6, a4, a2, a3, SP[a1, a5], n] - 
    S2[a1, n]*S2[a6, a4, a2, a5, a3, n] - S2[a6, a4, a2, a5, SP[a1, a3], n] - 
    S2[a6, a4, a2, SP[a1, a3], a5, n] - S2[a6, a4, a2, SP[a1, a5], a3, n] + 
    S2[a2, n]*S2[a6, a4, a3, a1, a5, n] + S2[a6, a4, a3, a1, SP[a2, a5], n] - 
    S2[a1, n]*S2[a6, a4, a3, a2, a5, n] - S2[a6, a4, a3, a2, SP[a1, a5], n] - 
    S2[a6, a4, SP[a1, a3], a2, a5, n] - S2[a6, a4, SP[a1, a3], a5, a2, n] + 
    S2[a6, a4, SP[a2, a3], a1, a5, n] - S2[a6, SP[a1, a4], a2, a3, a5, n] - 
    S2[a6, SP[a1, a4], a2, a5, a3, n] - S2[a6, SP[a1, a4], a3, a2, a5, n] + 
    S2[a6, SP[a2, a4], a1, a3, a5, n] + S2[a6, SP[a2, a4], a1, a5, a3, n] + 
    S2[a6, SP[a2, a4], a3, a1, a5, n] - S2[a6, SP[a3, a4], a1, a5, a2, n] - 
    S2[SP[a1, a6], a2, a4, a3, a5, n] - S2[SP[a1, a6], a2, a4, a5, a3, n] - 
    S2[SP[a1, a6], a2, a5, a4, a3, n] - S2[SP[a1, a6], a4, a2, a3, a5, n] - 
    S2[SP[a1, a6], a4, a2, a5, a3, n] - S2[SP[a1, a6], a4, a3, a2, a5, n] - 
    S2[SP[a1, a6], a4, a3, a5, a2, n] - S2[SP[a1, a6], a4, a5, a2, a3, n] - 
    S2[SP[a1, a6], a4, a5, a3, a2, n] - S2[SP[a1, a6], a5, a2, a4, a3, n] - 
    S2[SP[a1, a6], a5, a4, a2, a3, n] - S2[SP[a1, a6], a5, a4, a3, a2, n] + 
    S2[SP[a2, a6], a1, a4, a3, a5, n] + S2[SP[a2, a6], a1, a4, a5, a3, n] + 
    S2[SP[a2, a6], a1, a5, a4, a3, n] + S2[SP[a2, a6], a4, a1, a3, a5, n] + 
    S2[SP[a2, a6], a4, a1, a5, a3, n] + S2[SP[a2, a6], a4, a3, a1, a5, n] + 
    S2[a6, a2, a4, a3, a5, a1, n] + S2[a6, a2, a4, a5, a1, a3, n] + 
    S2[a6, a2, a4, a5, a3, a1, n] + S2[a6, a2, a5, a1, a4, a3, n] + 
    S2[a6, a2, a5, a4, a1, a3, n] + S2[a6, a2, a5, a4, a3, a1, n] + 
    S2[a6, a4, a2, a3, a5, a1, n] + S2[a6, a4, a2, a5, a1, a3, n] + 
    S2[a6, a4, a2, a5, a3, a1, n] + S2[a6, a4, a3, a2, a5, a1, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a3_, a4_, a6_, a5_, a1_, a2_, n_] :> 
  S2[a3, a4, n]*S2[a1, a2, a5, a6, n] - S2[a1, a2, SP[a3, a5], SP[a4, a6], 
     n] + S2[a3, a4, n]*S2[a1, a5, a2, a6, n] + 
    S2[a3, a4, n]*S2[a1, a5, a6, a2, n] - S2[a1, a5, SP[a2, a3], SP[a4, a6], 
     n] - S2[a1, a5, SP[a3, a6], SP[a2, a4], n] - S2[a1, SP[a2, a3], a5, 
     SP[a4, a6], n] - S2[a1, SP[a2, a3], SP[a4, a5], a6, n] - 
    S2[a1, SP[a3, a5], a2, SP[a4, a6], n] - S2[a1, SP[a3, a5], a6, 
     SP[a2, a4], n] - S2[a1, SP[a3, a5], SP[a2, a4], a6, n] - 
    S2[a1, SP[a3, a5], SP[a4, a6], a2, n] + S2[a1, a2, n]*
     S2[a3, a4, a6, a5, n] - S2[a3, a4, SP[a1, a6], SP[a2, a5], n] + 
    S2[a1, a2, n]*S2[a3, a6, a4, a5, n] + S2[a1, a2, n]*
     S2[a3, a6, a5, a4, n] - S2[a3, a6, SP[a1, a4], SP[a2, a5], n] - 
    S2[a3, a6, SP[a1, a5], SP[a2, a4], n] - S2[a3, SP[a1, a4], a6, 
     SP[a2, a5], n] - S2[a3, SP[a1, a4], SP[a2, a6], a5, n] - 
    S2[a3, SP[a1, a6], a4, SP[a2, a5], n] - S2[a3, SP[a1, a6], a5, 
     SP[a2, a4], n] - S2[a3, SP[a1, a6], SP[a2, a4], a5, n] - 
    S2[a3, SP[a1, a6], SP[a2, a5], a4, n] - S2[a1, a2, n]*
     S2[a5, a6, a3, a4, n] + S2[a5, a6, SP[a1, a3], SP[a2, a4], n] + 
    S2[a5, SP[a1, a6], a3, SP[a2, a4], n] + S2[a5, SP[a1, a6], SP[a2, a3], 
     a4, n] - S2[SP[a1, a3], a2, a5, SP[a4, a6], n] - 
    S2[SP[a1, a3], a2, SP[a4, a5], a6, n] - S2[SP[a1, a3], a4, a6, 
     SP[a2, a5], n] - S2[SP[a1, a3], a4, SP[a2, a6], a5, n] - 
    S2[SP[a1, a3], a5, a2, SP[a4, a6], n] - S2[SP[a1, a3], a5, a6, 
     SP[a2, a4], n] - S2[SP[a1, a3], a5, SP[a2, a4], a6, n] - 
    S2[SP[a1, a3], a5, SP[a4, a6], a2, n] - S2[SP[a1, a3], a6, a4, 
     SP[a2, a5], n] - S2[SP[a1, a3], a6, a5, SP[a2, a4], n] - 
    S2[SP[a1, a3], a6, SP[a2, a4], a5, n] - S2[SP[a1, a3], a6, SP[a2, a5], 
     a4, n] - S2[SP[a1, a3], SP[a2, a4], a5, a6, n] - 
    S2[SP[a1, a3], SP[a2, a4], a6, a5, n] - S2[SP[a1, a3], SP[a2, a6], a4, 
     a5, n] - S2[SP[a1, a3], SP[a2, a6], a5, a4, n] - 
    S2[SP[a1, a3], SP[a4, a5], a2, a6, n] - S2[SP[a1, a3], SP[a4, a5], a6, 
     a2, n] + S2[SP[a1, a5], a6, a3, SP[a2, a4], n] + 
    S2[SP[a1, a5], a6, SP[a2, a3], a4, n] + S2[SP[a1, a5], SP[a2, a6], a3, 
     a4, n] + S2[a1, a2, a3, a5, SP[a4, a6], n] + S2[a1, a2, a3, SP[a4, a5], 
     a6, n] + S2[a6, n]*S2[a1, a2, a4, a3, a5, n] + 
    S2[a1, a2, a4, a3, SP[a5, a6], n] + S2[a6, n]*S2[a1, a2, a4, a5, a3, n] - 
    S2[a3, n]*S2[a1, a2, a4, a5, a6, n] - 
    S2[a3, n]*S2[a1, a2, a4, a6, a5, n] - S2[a1, a2, a4, a6, SP[a3, a5], n] - 
    S2[a1, a2, a4, SP[a3, a5], a6, n] + S2[a1, a2, a4, SP[a5, a6], a3, n] + 
    S2[a1, a2, a5, a3, SP[a4, a6], n] + S2[a6, n]*S2[a1, a2, a5, a4, a3, n] - 
    S2[a3, n]*S2[a1, a2, a5, a4, a6, n] - 
    S2[a3, n]*S2[a1, a2, a5, a6, a4, n] - S2[a1, a2, a5, a6, SP[a3, a4], n] - 
    S2[a1, a2, a5, SP[a3, a4], a6, n] + S2[a1, a2, a5, SP[a4, a6], a3, n] + 
    S2[a5, n]*S2[a1, a2, a6, a3, a4, n] + S2[a1, a2, a6, a3, SP[a4, a5], n] - 
    S2[a3, n]*S2[a1, a2, a6, a4, a5, n] - S2[a1, a2, a6, a4, SP[a3, a5], n] - 
    S2[a3, n]*S2[a1, a2, a6, a5, a4, n] - S2[a1, a2, a6, a5, SP[a3, a4], n] - 
    S2[a1, a2, a6, SP[a3, a4], a5, n] - S2[a1, a2, SP[a3, a4], a5, a6, n] - 
    S2[a1, a2, SP[a3, a4], a6, a5, n] - S2[a1, a2, SP[a3, a6], a4, a5, n] - 
    S2[a1, a2, SP[a3, a6], a5, a4, n] + S2[a1, a2, SP[a4, a6], a3, a5, n] + 
    S2[a1, a2, SP[a4, a6], a5, a3, n] + S2[a1, a2, SP[a5, a6], a3, a4, n] + 
    S2[a1, a2, SP[a5, a6], a4, a3, n] + S2[a1, a3, a2, a5, SP[a4, a6], n] + 
    S2[a1, a3, a2, SP[a4, a5], a6, n] + S2[a1, a3, a4, a6, SP[a2, a5], n] + 
    S2[a1, a3, a4, SP[a2, a6], a5, n] + S2[a1, a3, a5, a2, SP[a4, a6], n] + 
    S2[a1, a3, a5, a6, SP[a2, a4], n] + S2[a1, a3, a5, SP[a2, a4], a6, n] + 
    S2[a1, a3, a5, SP[a4, a6], a2, n] + S2[a1, a3, a6, a4, SP[a2, a5], n] + 
    S2[a1, a3, a6, a5, SP[a2, a4], n] + S2[a1, a3, a6, SP[a2, a4], a5, n] + 
    S2[a1, a3, a6, SP[a2, a5], a4, n] + S2[a1, a3, SP[a2, a4], a5, a6, n] + 
    S2[a1, a3, SP[a2, a4], a6, a5, n] + S2[a1, a3, SP[a2, a6], a4, a5, n] + 
    S2[a1, a3, SP[a2, a6], a5, a4, n] + S2[a1, a3, SP[a4, a5], a2, a6, n] + 
    S2[a1, a3, SP[a4, a5], a6, a2, n] + S2[a6, n]*S2[a1, a4, a2, a3, a5, n] + 
    S2[a1, a4, a2, a3, SP[a5, a6], n] + S2[a6, n]*S2[a1, a4, a2, a5, a3, n] - 
    S2[a3, n]*S2[a1, a4, a2, a5, a6, n] - 
    S2[a3, n]*S2[a1, a4, a2, a6, a5, n] - S2[a1, a4, a2, a6, SP[a3, a5], n] - 
    S2[a1, a4, a2, SP[a3, a5], a6, n] + S2[a1, a4, a2, SP[a5, a6], a3, n] + 
    S2[a6, n]*S2[a1, a4, a3, a2, a5, n] + S2[a1, a4, a3, a2, SP[a5, a6], n] + 
    S2[a6, n]*S2[a1, a4, a3, a5, a2, n] + S2[a1, a4, a3, a5, SP[a2, a6], n] + 
    S2[a1, a4, a3, SP[a2, a6], a5, n] + S2[a1, a4, a3, SP[a5, a6], a2, n] + 
    S2[a6, n]*S2[a1, a4, a5, a2, a3, n] - 
    S2[a3, n]*S2[a1, a4, a5, a2, a6, n] + 
    S2[a6, n]*S2[a1, a4, a5, a3, a2, n] + S2[a1, a4, a5, a3, SP[a2, a6], n] - 
    S2[a3, n]*S2[a1, a4, a5, a6, a2, n] - S2[a1, a4, a5, a6, SP[a2, a3], n] - 
    S2[a1, a4, a5, SP[a2, a3], a6, n] + S2[a1, a4, a5, SP[a2, a6], a3, n] - 
    S2[a3, n]*S2[a1, a4, a6, a2, a5, n] - S2[a1, a4, a6, a2, SP[a3, a5], n] - 
    S2[a3, n]*S2[a1, a4, a6, a5, a2, n] - S2[a1, a4, a6, a5, SP[a2, a3], n] - 
    S2[a1, a4, a6, SP[a2, a3], a5, n] - S2[a1, a4, a6, SP[a3, a5], a2, n] - 
    S2[a1, a4, SP[a2, a3], a5, a6, n] - S2[a1, a4, SP[a2, a3], a6, a5, n] + 
    S2[a1, a4, SP[a2, a6], a3, a5, n] + S2[a1, a4, SP[a2, a6], a5, a3, n] - 
    S2[a1, a4, SP[a3, a5], a2, a6, n] - S2[a1, a4, SP[a3, a5], a6, a2, n] + 
    S2[a1, a4, SP[a5, a6], a2, a3, n] + S2[a1, a4, SP[a5, a6], a3, a2, n] + 
    S2[a1, a5, a2, a3, SP[a4, a6], n] + S2[a6, n]*S2[a1, a5, a2, a4, a3, n] - 
    S2[a3, n]*S2[a1, a5, a2, a4, a6, n] - 
    S2[a3, n]*S2[a1, a5, a2, a6, a4, n] - S2[a1, a5, a2, a6, SP[a3, a4], n] - 
    S2[a1, a5, a2, SP[a3, a4], a6, n] + S2[a1, a5, a2, SP[a4, a6], a3, n] + 
    S2[a1, a5, a3, a2, SP[a4, a6], n] + S2[a1, a5, a3, a6, SP[a2, a4], n] + 
    S2[a1, a5, a3, SP[a2, a4], a6, n] + S2[a1, a5, a3, SP[a4, a6], a2, n] + 
    S2[a6, n]*S2[a1, a5, a4, a2, a3, n] - 
    S2[a3, n]*S2[a1, a5, a4, a2, a6, n] + 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] + S2[a1, a5, a4, a3, SP[a2, a6], n] - 
    S2[a3, n]*S2[a1, a5, a4, a6, a2, n] - S2[a1, a5, a4, a6, SP[a2, a3], n] - 
    S2[a1, a5, a4, SP[a2, a3], a6, n] + S2[a1, a5, a4, SP[a2, a6], a3, n] - 
    S2[a3, n]*S2[a1, a5, a6, a2, a4, n] - S2[a1, a5, a6, a2, SP[a3, a4], n] - 
    S2[a3, n]*S2[a1, a5, a6, a4, a2, n] - S2[a1, a5, a6, a4, SP[a2, a3], n] - 
    S2[a1, a5, a6, SP[a2, a3], a4, n] - S2[a1, a5, a6, SP[a3, a4], a2, n] - 
    S2[a1, a5, SP[a2, a6], a3, a4, n] + S2[a1, a5, SP[a2, a6], a4, a3, n] - 
    S2[a1, a5, SP[a3, a4], a2, a6, n] - S2[a1, a5, SP[a3, a4], a6, a2, n] + 
    S2[a1, a5, SP[a4, a6], a2, a3, n] + S2[a1, a5, SP[a4, a6], a3, a2, n] + 
    S2[a5, n]*S2[a1, a6, a2, a3, a4, n] + S2[a1, a6, a2, a3, SP[a4, a5], n] - 
    S2[a3, n]*S2[a1, a6, a2, a4, a5, n] - S2[a1, a6, a2, a4, SP[a3, a5], n] - 
    S2[a3, n]*S2[a1, a6, a2, a5, a4, n] - S2[a1, a6, a2, a5, SP[a3, a4], n] - 
    S2[a1, a6, a2, SP[a3, a4], a5, n] + S2[a5, n]*S2[a1, a6, a3, a2, a4, n] + 
    S2[a1, a6, a3, a2, SP[a4, a5], n] + S2[a5, n]*S2[a1, a6, a3, a4, a2, n] + 
    S2[a1, a6, a3, a4, SP[a2, a5], n] + S2[a1, a6, a3, SP[a2, a5], a4, n] + 
    S2[a1, a6, a3, SP[a4, a5], a2, n] - S2[a3, n]*S2[a1, a6, a4, a2, a5, n] - 
    S2[a1, a6, a4, a2, SP[a3, a5], n] - S2[a3, n]*S2[a1, a6, a4, a5, a2, n] - 
    S2[a1, a6, a4, a5, SP[a2, a3], n] - S2[a1, a6, a4, SP[a2, a3], a5, n] - 
    S2[a1, a6, a4, SP[a3, a5], a2, n] - S2[a3, n]*S2[a1, a6, a5, a2, a4, n] - 
    S2[a1, a6, a5, a2, SP[a3, a4], n] - S2[a3, n]*S2[a1, a6, a5, a4, a2, n] - 
    S2[a1, a6, a5, a4, SP[a2, a3], n] - S2[a1, a6, a5, SP[a2, a3], a4, n] - 
    S2[a1, a6, a5, SP[a3, a4], a2, n] - S2[a1, a6, SP[a2, a3], a4, a5, n] - 
    S2[a1, a6, SP[a2, a3], a5, a4, n] + S2[a1, a6, SP[a2, a5], a3, a4, n] - 
    S2[a1, a6, SP[a3, a4], a2, a5, n] - S2[a1, a6, SP[a3, a4], a5, a2, n] + 
    S2[a1, SP[a2, a6], a4, a3, a5, n] + S2[a1, SP[a2, a6], a4, a5, a3, n] + 
    S2[a1, SP[a2, a6], a5, a4, a3, n] - S2[a1, SP[a3, a4], a2, a5, a6, n] - 
    S2[a1, SP[a3, a4], a2, a6, a5, n] - S2[a1, SP[a3, a4], a5, a2, a6, n] - 
    S2[a1, SP[a3, a4], a5, a6, a2, n] - S2[a1, SP[a3, a4], a6, a2, a5, n] - 
    S2[a1, SP[a3, a4], a6, a5, a2, n] - S2[a1, SP[a3, a6], a2, a4, a5, n] - 
    S2[a1, SP[a3, a6], a2, a5, a4, n] - S2[a1, SP[a3, a6], a4, a2, a5, n] - 
    S2[a1, SP[a3, a6], a4, a5, a2, n] - S2[a1, SP[a3, a6], a5, a2, a4, n] - 
    S2[a1, SP[a3, a6], a5, a4, a2, n] + S2[a1, SP[a4, a6], a2, a3, a5, n] + 
    S2[a1, SP[a4, a6], a2, a5, a3, n] + S2[a1, SP[a4, a6], a3, a2, a5, n] + 
    S2[a1, SP[a4, a6], a3, a5, a2, n] + S2[a1, SP[a4, a6], a5, a2, a3, n] + 
    S2[a1, SP[a4, a6], a5, a3, a2, n] + S2[a1, SP[a5, a6], a2, a3, a4, n] + 
    S2[a1, SP[a5, a6], a2, a4, a3, n] + S2[a1, SP[a5, a6], a3, a2, a4, n] + 
    S2[a1, SP[a5, a6], a3, a4, a2, n] + S2[a1, SP[a5, a6], a4, a2, a3, n] + 
    S2[a1, SP[a5, a6], a4, a3, a2, n] + S2[a3, a1, a2, a5, SP[a4, a6], n] + 
    S2[a3, a1, a2, SP[a4, a5], a6, n] + S2[a3, a1, a4, a6, SP[a2, a5], n] + 
    S2[a3, a1, a4, SP[a2, a6], a5, n] + S2[a3, a1, a5, a2, SP[a4, a6], n] + 
    S2[a3, a1, a5, a6, SP[a2, a4], n] + S2[a3, a1, a5, SP[a2, a4], a6, n] + 
    S2[a3, a1, a5, SP[a4, a6], a2, n] + S2[a3, a1, a6, a4, SP[a2, a5], n] + 
    S2[a3, a1, a6, a5, SP[a2, a4], n] + S2[a3, a1, a6, SP[a2, a4], a5, n] + 
    S2[a3, a1, a6, SP[a2, a5], a4, n] + S2[a3, a1, SP[a2, a4], a5, a6, n] + 
    S2[a3, a1, SP[a2, a4], a6, a5, n] + S2[a3, a1, SP[a2, a6], a4, a5, n] + 
    S2[a3, a1, SP[a2, a6], a5, a4, n] + S2[a3, a1, SP[a4, a5], a2, a6, n] + 
    S2[a3, a1, SP[a4, a5], a6, a2, n] - S2[a6, n]*S2[a3, a4, a1, a2, a5, n] - 
    S2[a3, a4, a1, a2, SP[a5, a6], n] - S2[a6, n]*S2[a3, a4, a1, a5, a2, n] - 
    S2[a3, a4, a1, a5, SP[a2, a6], n] + S2[a3, a4, a1, a6, SP[a2, a5], n] - 
    S2[a3, a4, a1, SP[a5, a6], a2, n] + S2[a3, a4, a6, a1, SP[a2, a5], n] + 
    S2[a3, a4, a6, SP[a1, a5], a2, n] - S2[a5, n]*S2[a3, a6, a1, a2, a4, n] - 
    S2[a3, a6, a1, a2, SP[a4, a5], n] - S2[a5, n]*S2[a3, a6, a1, a4, a2, n] + 
    S2[a3, a6, a1, a5, SP[a2, a4], n] + S2[a3, a6, a1, SP[a2, a4], a5, n] - 
    S2[a3, a6, a1, SP[a4, a5], a2, n] + S2[a3, a6, a4, a1, SP[a2, a5], n] + 
    S2[a3, a6, a4, SP[a1, a5], a2, n] + S2[a3, a6, a5, a1, SP[a2, a4], n] + 
    S2[a3, a6, a5, SP[a1, a4], a2, n] + S2[a3, a6, SP[a1, a4], a2, a5, n] + 
    S2[a3, a6, SP[a1, a4], a5, a2, n] + S2[a3, SP[a1, a4], a2, a5, a6, n] + 
    S2[a3, SP[a1, a4], a2, a6, a5, n] + S2[a3, SP[a1, a4], a5, a2, a6, n] + 
    S2[a3, SP[a1, a4], a5, a6, a2, n] + S2[a3, SP[a1, a4], a6, a2, a5, n] + 
    S2[a3, SP[a1, a4], a6, a5, a2, n] + S2[a3, SP[a1, a6], a2, a4, a5, n] + 
    S2[a3, SP[a1, a6], a2, a5, a4, n] + S2[a3, SP[a1, a6], a4, a2, a5, n] + 
    S2[a3, SP[a1, a6], a4, a5, a2, n] + S2[a3, SP[a1, a6], a5, a2, a4, n] + 
    S2[a3, SP[a1, a6], a5, a4, a2, n] - S2[a3, SP[a4, a6], a1, a2, a5, n] - 
    S2[a3, SP[a4, a6], a1, a5, a2, n] - S2[a3, SP[a5, a6], a1, a2, a4, n] - 
    S2[a3, SP[a5, a6], a1, a4, a2, n] - S2[a5, a1, a6, a3, SP[a2, a4], n] - 
    S2[a5, a1, a6, SP[a2, a3], a4, n] - S2[a5, a1, SP[a2, a6], a3, a4, n] + 
    S2[a3, n]*S2[a5, a6, a1, a2, a4, n] + S2[a5, a6, a1, a2, SP[a3, a4], n] - 
    S2[a5, a6, a1, a3, SP[a2, a4], n] + S2[a3, n]*S2[a5, a6, a1, a4, a2, n] + 
    S2[a5, a6, a1, a4, SP[a2, a3], n] + S2[a5, a6, a1, SP[a3, a4], a2, n] - 
    S2[a5, a6, a3, a1, SP[a2, a4], n] - S2[a5, a6, a3, SP[a1, a4], a2, n] - 
    S2[a5, SP[a1, a6], a2, a3, a4, n] - S2[a5, SP[a1, a6], a3, a2, a4, n] - 
    S2[a5, SP[a1, a6], a3, a4, a2, n] + S2[a5, SP[a3, a6], a1, a2, a4, n] + 
    S2[a5, SP[a3, a6], a1, a4, a2, n] - S2[a5, n]*S2[a6, a1, a2, a4, a3, n] - 
    S2[a6, a1, a2, a4, SP[a3, a5], n] - S2[a6, a1, a2, SP[a4, a5], a3, n] - 
    S2[a5, n]*S2[a6, a1, a4, a2, a3, n] - S2[a6, a1, a4, a2, SP[a3, a5], n] - 
    S2[a5, n]*S2[a6, a1, a4, a3, a2, n] - S2[a6, a1, a4, a3, SP[a2, a5], n] - 
    S2[a6, a1, a4, SP[a2, a5], a3, n] - S2[a6, a1, a4, SP[a3, a5], a2, n] - 
    S2[a6, a1, SP[a2, a5], a4, a3, n] - S2[a6, a1, SP[a4, a5], a2, a3, n] - 
    S2[a6, a1, SP[a4, a5], a3, a2, n] + S2[a5, n]*S2[a6, a3, a4, a1, a2, n] + 
    S2[a6, a3, a4, a1, SP[a2, a5], n] + S2[a6, a3, a4, SP[a1, a5], a2, n] + 
    S2[a6, a3, SP[a4, a5], a1, a2, n] - S2[a3, n]*S2[a6, a4, a5, a1, a2, n] - 
    S2[a6, a4, a5, a1, SP[a2, a3], n] - S2[a6, a4, a5, SP[a1, a3], a2, n] - 
    S2[a6, a4, SP[a3, a5], a1, a2, n] - S2[a3, n]*S2[a6, a5, a4, a1, a2, n] - 
    S2[a6, a5, a4, a1, SP[a2, a3], n] - S2[a6, a5, a4, SP[a1, a3], a2, n] - 
    S2[a6, a5, SP[a3, a4], a1, a2, n] - S2[a6, SP[a1, a5], a2, a4, a3, n] - 
    S2[a6, SP[a1, a5], a4, a2, a3, n] - S2[a6, SP[a1, a5], a4, a3, a2, n] - 
    S2[a6, SP[a3, a4], a5, a1, a2, n] + S2[SP[a1, a6], a2, a4, a3, a5, n] + 
    S2[SP[a1, a6], a2, a4, a5, a3, n] + S2[SP[a1, a6], a2, a5, a4, a3, n] + 
    S2[SP[a1, a6], a4, a2, a3, a5, n] + S2[SP[a1, a6], a4, a2, a5, a3, n] + 
    S2[SP[a1, a6], a4, a3, a2, a5, n] + S2[SP[a1, a6], a4, a3, a5, a2, n] + 
    S2[SP[a1, a6], a4, a5, a2, a3, n] + S2[SP[a1, a6], a4, a5, a3, a2, n] + 
    S2[SP[a1, a6], a5, a2, a4, a3, n] + S2[SP[a1, a6], a5, a4, a2, a3, n] + 
    S2[SP[a1, a6], a5, a4, a3, a2, n] - S2[SP[a3, a6], a4, a1, a2, a5, n] - 
    S2[SP[a3, a6], a4, a1, a5, a2, n] - S2[SP[a3, a6], a4, a5, a1, a2, n] - 
    S2[SP[a3, a6], a5, a4, a1, a2, n] - S2[SP[a5, a6], a1, a2, a4, a3, n] - 
    S2[SP[a5, a6], a1, a4, a2, a3, n] - S2[SP[a5, a6], a1, a4, a3, a2, n] + 
    S2[SP[a5, a6], a3, a4, a1, a2, n] + S2[a6, a4, a3, a5, a1, a2, n] + 
    S2[a6, a4, a5, a1, a2, a3, n] + S2[a6, a4, a5, a1, a3, a2, n] + 
    S2[a6, a4, a5, a3, a1, a2, n] + S2[a6, a5, a1, a2, a4, a3, n] + 
    S2[a6, a5, a1, a4, a2, a3, n] + S2[a6, a5, a1, a4, a3, a2, n] + 
    S2[a6, a5, a4, a1, a2, a3, n] + S2[a6, a5, a4, a1, a3, a2, n] + 
    S2[a6, a5, a4, a3, a1, a2, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a3_, a4_, a6_, a5_, a2_, a1_, n_] :> 
  -(S2[a3, a4, n]*S2[a1, a2, a5, a6, n]) + S2[a1, a2, SP[a3, a5], SP[a4, a6], 
     n] + S2[a1, SP[a2, a3], a5, SP[a4, a6], n] + 
    S2[a1, SP[a2, a3], SP[a4, a5], a6, n] - S2[a1, a2, n]*
     S2[a3, a4, a6, a5, n] + S2[a3, a4, SP[a1, a6], SP[a2, a5], n] - 
    S2[a1, a2, n]*S2[a3, a6, a4, a5, n] - S2[a1, a2, n]*
     S2[a3, a6, a5, a4, n] + S2[a3, a6, SP[a1, a4], SP[a2, a5], n] + 
    S2[a3, a6, SP[a1, a5], SP[a2, a4], n] + S2[a3, SP[a1, a4], a6, 
     SP[a2, a5], n] + S2[a3, SP[a1, a4], SP[a2, a6], a5, n] + 
    S2[a3, SP[a1, a6], a4, SP[a2, a5], n] + S2[a3, SP[a1, a6], a5, 
     SP[a2, a4], n] + S2[a3, SP[a1, a6], SP[a2, a4], a5, n] + 
    S2[a3, SP[a1, a6], SP[a2, a5], a4, n] + S2[a1, a2, n]*
     S2[a5, a6, a3, a4, n] - S2[a5, a6, SP[a1, a3], SP[a2, a4], n] - 
    S2[a5, SP[a1, a6], a3, SP[a2, a4], n] - S2[a5, SP[a1, a6], SP[a2, a3], 
     a4, n] + S2[SP[a1, a3], a2, a5, SP[a4, a6], n] + 
    S2[SP[a1, a3], a2, SP[a4, a5], a6, n] + S2[SP[a1, a3], a4, a6, 
     SP[a2, a5], n] + S2[SP[a1, a3], a4, SP[a2, a6], a5, n] + 
    S2[SP[a1, a3], a6, a4, SP[a2, a5], n] + S2[SP[a1, a3], a6, a5, 
     SP[a2, a4], n] + S2[SP[a1, a3], a6, SP[a2, a4], a5, n] + 
    S2[SP[a1, a3], a6, SP[a2, a5], a4, n] + S2[SP[a1, a3], SP[a2, a4], a5, 
     a6, n] + S2[SP[a1, a3], SP[a2, a4], a6, a5, n] + 
    S2[SP[a1, a3], SP[a2, a6], a4, a5, n] + S2[SP[a1, a3], SP[a2, a6], a5, 
     a4, n] - S2[SP[a1, a5], a6, a3, SP[a2, a4], n] - 
    S2[SP[a1, a5], a6, SP[a2, a3], a4, n] - S2[SP[a1, a5], SP[a2, a6], a3, 
     a4, n] - S2[a1, a2, a3, a5, SP[a4, a6], n] - S2[a1, a2, a3, SP[a4, a5], 
     a6, n] - S2[a6, n]*S2[a1, a2, a4, a3, a5, n] - 
    S2[a1, a2, a4, a3, SP[a5, a6], n] - S2[a6, n]*S2[a1, a2, a4, a5, a3, n] + 
    S2[a3, n]*S2[a1, a2, a4, a5, a6, n] + 
    S2[a3, n]*S2[a1, a2, a4, a6, a5, n] + S2[a1, a2, a4, a6, SP[a3, a5], n] + 
    S2[a1, a2, a4, SP[a3, a5], a6, n] - S2[a1, a2, a4, SP[a5, a6], a3, n] - 
    S2[a1, a2, a5, a3, SP[a4, a6], n] - S2[a6, n]*S2[a1, a2, a5, a4, a3, n] + 
    S2[a3, n]*S2[a1, a2, a5, a4, a6, n] + 
    S2[a3, n]*S2[a1, a2, a5, a6, a4, n] + S2[a1, a2, a5, a6, SP[a3, a4], n] + 
    S2[a1, a2, a5, SP[a3, a4], a6, n] - S2[a1, a2, a5, SP[a4, a6], a3, n] - 
    S2[a5, n]*S2[a1, a2, a6, a3, a4, n] - S2[a1, a2, a6, a3, SP[a4, a5], n] + 
    S2[a3, n]*S2[a1, a2, a6, a4, a5, n] + S2[a1, a2, a6, a4, SP[a3, a5], n] + 
    S2[a3, n]*S2[a1, a2, a6, a5, a4, n] + S2[a1, a2, a6, a5, SP[a3, a4], n] + 
    S2[a1, a2, a6, SP[a3, a4], a5, n] + S2[a1, a2, SP[a3, a4], a5, a6, n] + 
    S2[a1, a2, SP[a3, a4], a6, a5, n] + S2[a1, a2, SP[a3, a6], a4, a5, n] + 
    S2[a1, a2, SP[a3, a6], a5, a4, n] - S2[a1, a2, SP[a4, a6], a3, a5, n] - 
    S2[a1, a2, SP[a4, a6], a5, a3, n] - S2[a1, a2, SP[a5, a6], a3, a4, n] - 
    S2[a1, a2, SP[a5, a6], a4, a3, n] - S2[a1, a3, a2, a5, SP[a4, a6], n] - 
    S2[a1, a3, a2, SP[a4, a5], a6, n] - S2[a1, a3, a4, a6, SP[a2, a5], n] - 
    S2[a1, a3, a4, SP[a2, a6], a5, n] - S2[a1, a3, a6, a4, SP[a2, a5], n] - 
    S2[a1, a3, a6, a5, SP[a2, a4], n] - S2[a1, a3, a6, SP[a2, a4], a5, n] - 
    S2[a1, a3, a6, SP[a2, a5], a4, n] - S2[a1, a3, SP[a2, a4], a5, a6, n] - 
    S2[a1, a3, SP[a2, a4], a6, a5, n] - S2[a1, a3, SP[a2, a6], a4, a5, n] - 
    S2[a1, a3, SP[a2, a6], a5, a4, n] - S2[a6, n]*S2[a1, a4, a2, a3, a5, n] - 
    S2[a1, a4, a2, a3, SP[a5, a6], n] - S2[a6, n]*S2[a1, a4, a2, a5, a3, n] + 
    S2[a3, n]*S2[a1, a4, a2, a5, a6, n] + 
    S2[a3, n]*S2[a1, a4, a2, a6, a5, n] + S2[a1, a4, a2, a6, SP[a3, a5], n] + 
    S2[a1, a4, a2, SP[a3, a5], a6, n] - S2[a1, a4, a2, SP[a5, a6], a3, n] - 
    S2[a6, n]*S2[a1, a4, a3, a2, a5, n] - S2[a1, a4, a3, a2, SP[a5, a6], n] - 
    S2[a1, a4, a3, SP[a2, a6], a5, n] + S2[a3, n]*S2[a1, a4, a6, a2, a5, n] + 
    S2[a1, a4, a6, a2, SP[a3, a5], n] + S2[a1, a4, a6, SP[a2, a3], a5, n] + 
    S2[a1, a4, SP[a2, a3], a5, a6, n] + S2[a1, a4, SP[a2, a3], a6, a5, n] - 
    S2[a1, a4, SP[a2, a6], a3, a5, n] - S2[a1, a4, SP[a2, a6], a5, a3, n] + 
    S2[a1, a5, a6, a3, SP[a2, a4], n] + S2[a1, a5, a6, SP[a2, a3], a4, n] + 
    S2[a1, a5, SP[a2, a6], a3, a4, n] - S2[a5, n]*S2[a1, a6, a2, a3, a4, n] - 
    S2[a1, a6, a2, a3, SP[a4, a5], n] + S2[a3, n]*S2[a1, a6, a2, a4, a5, n] + 
    S2[a1, a6, a2, a4, SP[a3, a5], n] + S2[a3, n]*S2[a1, a6, a2, a5, a4, n] + 
    S2[a1, a6, a2, a5, SP[a3, a4], n] + S2[a1, a6, a2, SP[a3, a4], a5, n] - 
    S2[a5, n]*S2[a1, a6, a3, a2, a4, n] - S2[a1, a6, a3, a2, SP[a4, a5], n] - 
    S2[a5, n]*S2[a1, a6, a3, a4, a2, n] - S2[a1, a6, a3, a4, SP[a2, a5], n] - 
    S2[a1, a6, a3, SP[a2, a5], a4, n] - S2[a1, a6, a3, SP[a4, a5], a2, n] + 
    S2[a3, n]*S2[a1, a6, a4, a2, a5, n] + S2[a1, a6, a4, a2, SP[a3, a5], n] + 
    S2[a3, n]*S2[a1, a6, a4, a5, a2, n] + S2[a1, a6, a4, a5, SP[a2, a3], n] + 
    S2[a1, a6, a4, SP[a2, a3], a5, n] + S2[a1, a6, a4, SP[a3, a5], a2, n] + 
    S2[a3, n]*S2[a1, a6, a5, a2, a4, n] + S2[a1, a6, a5, a2, SP[a3, a4], n] + 
    S2[a3, n]*S2[a1, a6, a5, a4, a2, n] + S2[a1, a6, a5, a4, SP[a2, a3], n] + 
    S2[a1, a6, a5, SP[a2, a3], a4, n] + S2[a1, a6, a5, SP[a3, a4], a2, n] + 
    S2[a1, a6, SP[a2, a3], a4, a5, n] + S2[a1, a6, SP[a2, a3], a5, a4, n] - 
    S2[a1, a6, SP[a2, a5], a3, a4, n] + S2[a1, a6, SP[a3, a4], a2, a5, n] + 
    S2[a1, a6, SP[a3, a4], a5, a2, n] - S2[a1, SP[a2, a6], a4, a3, a5, n] - 
    S2[a1, SP[a2, a6], a4, a5, a3, n] - S2[a1, SP[a2, a6], a5, a4, a3, n] + 
    S2[a1, SP[a3, a4], a2, a5, a6, n] + S2[a1, SP[a3, a4], a2, a6, a5, n] + 
    S2[a1, SP[a3, a4], a6, a2, a5, n] + S2[a1, SP[a3, a6], a2, a4, a5, n] + 
    S2[a1, SP[a3, a6], a2, a5, a4, n] + S2[a1, SP[a3, a6], a4, a2, a5, n] + 
    S2[a1, SP[a3, a6], a4, a5, a2, n] + S2[a1, SP[a3, a6], a5, a2, a4, n] + 
    S2[a1, SP[a3, a6], a5, a4, a2, n] - S2[a1, SP[a4, a6], a2, a3, a5, n] - 
    S2[a1, SP[a4, a6], a2, a5, a3, n] - S2[a1, SP[a4, a6], a3, a2, a5, n] - 
    S2[a1, SP[a5, a6], a2, a3, a4, n] - S2[a1, SP[a5, a6], a3, a2, a4, n] - 
    S2[a1, SP[a5, a6], a3, a4, a2, n] - S2[a3, a1, a2, a5, SP[a4, a6], n] - 
    S2[a3, a1, a2, SP[a4, a5], a6, n] - S2[a3, a1, a4, a6, SP[a2, a5], n] - 
    S2[a3, a1, a4, SP[a2, a6], a5, n] - S2[a3, a1, a6, a4, SP[a2, a5], n] - 
    S2[a3, a1, a6, a5, SP[a2, a4], n] - S2[a3, a1, a6, SP[a2, a4], a5, n] - 
    S2[a3, a1, a6, SP[a2, a5], a4, n] - S2[a3, a1, SP[a2, a4], a5, a6, n] - 
    S2[a3, a1, SP[a2, a4], a6, a5, n] - S2[a3, a1, SP[a2, a6], a4, a5, n] - 
    S2[a3, a1, SP[a2, a6], a5, a4, n] + S2[a6, n]*S2[a3, a4, a1, a2, a5, n] + 
    S2[a3, a4, a1, a2, SP[a5, a6], n] - S2[a3, a4, a1, a6, SP[a2, a5], n] - 
    S2[a3, a4, a6, a1, SP[a2, a5], n] + S2[a1, n]*S2[a3, a4, a6, a5, a2, n] + 
    S2[a3, a4, a6, a5, SP[a1, a2], n] + S2[a5, n]*S2[a3, a6, a1, a2, a4, n] + 
    S2[a3, a6, a1, a2, SP[a4, a5], n] + S2[a5, n]*S2[a3, a6, a1, a4, a2, n] - 
    S2[a3, a6, a1, a5, SP[a2, a4], n] - S2[a3, a6, a1, SP[a2, a4], a5, n] + 
    S2[a3, a6, a1, SP[a4, a5], a2, n] - S2[a3, a6, a4, a1, SP[a2, a5], n] - 
    S2[a3, a6, a4, SP[a1, a5], a2, n] - S2[a3, a6, a5, a1, SP[a2, a4], n] - 
    S2[a3, a6, a5, SP[a1, a4], a2, n] - S2[a3, a6, SP[a1, a4], a2, a5, n] - 
    S2[a3, a6, SP[a1, a4], a5, a2, n] - S2[a3, SP[a1, a4], a2, a5, a6, n] - 
    S2[a3, SP[a1, a4], a2, a6, a5, n] - S2[a3, SP[a1, a4], a6, a2, a5, n] - 
    S2[a3, SP[a1, a6], a2, a4, a5, n] - S2[a3, SP[a1, a6], a2, a5, a4, n] - 
    S2[a3, SP[a1, a6], a4, a2, a5, n] - S2[a3, SP[a1, a6], a4, a5, a2, n] - 
    S2[a3, SP[a1, a6], a5, a2, a4, n] - S2[a3, SP[a1, a6], a5, a4, a2, n] + 
    S2[a3, SP[a4, a6], a1, a2, a5, n] + S2[a3, SP[a5, a6], a1, a2, a4, n] + 
    S2[a3, SP[a5, a6], a1, a4, a2, n] + S2[a5, a1, a6, a3, SP[a2, a4], n] + 
    S2[a5, a1, a6, SP[a2, a3], a4, n] + S2[a5, a1, SP[a2, a6], a3, a4, n] - 
    S2[a3, n]*S2[a5, a6, a1, a2, a4, n] - S2[a5, a6, a1, a2, SP[a3, a4], n] + 
    S2[a5, a6, a1, a3, SP[a2, a4], n] - S2[a3, n]*S2[a5, a6, a1, a4, a2, n] - 
    S2[a5, a6, a1, a4, SP[a2, a3], n] - S2[a5, a6, a1, SP[a3, a4], a2, n] + 
    S2[a5, a6, a3, a1, SP[a2, a4], n] + S2[a5, a6, a3, SP[a1, a4], a2, n] + 
    S2[a5, SP[a1, a6], a2, a3, a4, n] + S2[a5, SP[a1, a6], a3, a2, a4, n] + 
    S2[a5, SP[a1, a6], a3, a4, a2, n] - S2[a5, SP[a3, a6], a1, a2, a4, n] - 
    S2[a5, SP[a3, a6], a1, a4, a2, n] + S2[a5, n]*S2[a6, a1, a2, a4, a3, n] + 
    S2[a6, a1, a2, a4, SP[a3, a5], n] + S2[a6, a1, a2, SP[a4, a5], a3, n] + 
    S2[a5, n]*S2[a6, a1, a4, a2, a3, n] + S2[a6, a1, a4, a2, SP[a3, a5], n] + 
    S2[a5, n]*S2[a6, a1, a4, a3, a2, n] + S2[a6, a1, a4, a3, SP[a2, a5], n] + 
    S2[a6, a1, a4, SP[a2, a5], a3, n] + S2[a6, a1, a4, SP[a3, a5], a2, n] + 
    S2[a6, a1, SP[a2, a5], a4, a3, n] + S2[a6, a1, SP[a4, a5], a2, a3, n] + 
    S2[a6, a1, SP[a4, a5], a3, a2, n] - S2[a5, n]*S2[a6, a3, a4, a1, a2, n] - 
    S2[a6, a3, a4, a1, SP[a2, a5], n] - S2[a6, a3, a4, SP[a1, a5], a2, n] - 
    S2[a6, a3, SP[a4, a5], a1, a2, n] + S2[a3, n]*S2[a6, a4, a1, a5, a2, n] + 
    S2[a6, a4, a1, a5, SP[a2, a3], n] + S2[a6, a4, a1, SP[a3, a5], a2, n] - 
    S2[a1, n]*S2[a6, a4, a3, a5, a2, n] - S2[a6, a4, a3, a5, SP[a1, a2], n] - 
    S2[a6, a4, a3, SP[a1, a5], a2, n] + S2[a3, n]*S2[a6, a4, a5, a1, a2, n] + 
    S2[a6, a4, a5, a1, SP[a2, a3], n] - S2[a1, n]*S2[a6, a4, a5, a2, a3, n] - 
    S2[a6, a4, a5, a2, SP[a1, a3], n] - S2[a1, n]*S2[a6, a4, a5, a3, a2, n] - 
    S2[a6, a4, a5, a3, SP[a1, a2], n] - S2[a6, a4, a5, SP[a1, a2], a3, n] - 
    S2[a6, a4, SP[a1, a5], a2, a3, n] - S2[a6, a4, SP[a1, a5], a3, a2, n] + 
    S2[a6, a4, SP[a3, a5], a1, a2, n] - S2[a1, n]*S2[a6, a5, a2, a4, a3, n] - 
    S2[a6, a5, a2, a4, SP[a1, a3], n] - S2[a6, a5, a2, SP[a1, a4], a3, n] + 
    S2[a3, n]*S2[a6, a5, a4, a1, a2, n] + S2[a6, a5, a4, a1, SP[a2, a3], n] - 
    S2[a1, n]*S2[a6, a5, a4, a2, a3, n] - S2[a6, a5, a4, a2, SP[a1, a3], n] - 
    S2[a1, n]*S2[a6, a5, a4, a3, a2, n] - S2[a6, a5, a4, a3, SP[a1, a2], n] - 
    S2[a6, a5, a4, SP[a1, a2], a3, n] - S2[a6, a5, SP[a1, a2], a4, a3, n] - 
    S2[a6, a5, SP[a1, a4], a2, a3, n] - S2[a6, a5, SP[a1, a4], a3, a2, n] + 
    S2[a6, a5, SP[a3, a4], a1, a2, n] - S2[a6, SP[a1, a4], a3, a5, a2, n] - 
    S2[a6, SP[a1, a4], a5, a2, a3, n] - S2[a6, SP[a1, a4], a5, a3, a2, n] + 
    S2[a6, SP[a3, a4], a1, a5, a2, n] + S2[a6, SP[a3, a4], a5, a1, a2, n] - 
    S2[SP[a1, a6], a2, a4, a3, a5, n] - S2[SP[a1, a6], a2, a4, a5, a3, n] - 
    S2[SP[a1, a6], a2, a5, a4, a3, n] - S2[SP[a1, a6], a4, a2, a3, a5, n] - 
    S2[SP[a1, a6], a4, a2, a5, a3, n] - S2[SP[a1, a6], a4, a3, a2, a5, n] - 
    S2[SP[a1, a6], a4, a3, a5, a2, n] - S2[SP[a1, a6], a4, a5, a2, a3, n] - 
    S2[SP[a1, a6], a4, a5, a3, a2, n] - S2[SP[a1, a6], a5, a2, a4, a3, n] - 
    S2[SP[a1, a6], a5, a4, a2, a3, n] - S2[SP[a1, a6], a5, a4, a3, a2, n] + 
    S2[SP[a3, a6], a4, a1, a2, a5, n] + S2[SP[a3, a6], a4, a1, a5, a2, n] + 
    S2[SP[a3, a6], a4, a5, a1, a2, n] + S2[SP[a3, a6], a5, a4, a1, a2, n] + 
    S2[SP[a5, a6], a1, a2, a4, a3, n] + S2[SP[a5, a6], a1, a4, a2, a3, n] + 
    S2[SP[a5, a6], a1, a4, a3, a2, n] - S2[SP[a5, a6], a3, a4, a1, a2, n] + 
    S2[a6, a4, a3, a5, a2, a1, n] + S2[a6, a4, a5, a2, a1, a3, n] + 
    S2[a6, a4, a5, a2, a3, a1, n] + S2[a6, a4, a5, a3, a2, a1, n] + 
    S2[a6, a5, a2, a1, a4, a3, n] + S2[a6, a5, a2, a4, a1, a3, n] + 
    S2[a6, a5, a2, a4, a3, a1, n] + S2[a6, a5, a4, a2, a1, a3, n] + 
    S2[a6, a5, a4, a2, a3, a1, n] + S2[a6, a5, a4, a3, a2, a1, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a3_, a5_, a1_, a2_, a4_, a6_, n_] :> 
  S2[a1, a5, a3, n]*S2[a2, a4, a6, n] + S2[SP[a1, a2], SP[a4, a5], 
     SP[a3, a6], n] + S2[a3, a5, n]*S2[a1, a2, a4, a6, n] + 
    S2[a4, a6, n]*S2[a1, a2, a5, a3, n] - S2[a1, a2, SP[a3, a4], SP[a5, a6], 
     n] - 2*S2[a1, a2, SP[a4, a5], SP[a3, a6], n] + 
    S2[a4, a6, n]*S2[a1, a5, a2, a3, n] + S2[a4, a6, n]*
     S2[a1, a5, a3, a2, n] - S2[a1, a5, SP[a2, a4], SP[a3, a6], n] - 
    S2[a1, a5, SP[a3, a4], SP[a2, a6], n] - S2[a1, SP[a2, a3], a4, 
     SP[a5, a6], n] - S2[a1, SP[a2, a3], SP[a4, a5], a6, n] - 
    S2[a1, SP[a2, a4], a5, SP[a3, a6], n] - S2[a1, SP[a2, a4], SP[a5, a6], 
     a3, n] - S2[a1, SP[a2, a5], a4, SP[a3, a6], n] - 
    S2[a1, SP[a2, a5], SP[a3, a4], a6, n] - S2[a1, SP[a4, a5], a2, 
     SP[a3, a6], n] - S2[a1, SP[a4, a5], a3, SP[a2, a6], n] - 
    S2[a1, SP[a4, a5], SP[a2, a6], a3, n] - S2[a1, SP[a4, a5], SP[a3, a6], 
     a2, n] - S2[a2, a1, SP[a4, a5], SP[a3, a6], n] - 
    S2[a2, SP[a1, a4], a5, SP[a3, a6], n] - S2[a2, SP[a1, a4], SP[a5, a6], 
     a3, n] - S2[SP[a1, a2], a4, a5, SP[a3, a6], n] - 
    S2[SP[a1, a2], a4, SP[a5, a6], a3, n] - S2[SP[a1, a2], a5, a4, 
     SP[a3, a6], n] - S2[SP[a1, a2], a5, SP[a3, a4], a6, n] - 
    S2[SP[a1, a2], SP[a4, a5], a3, a6, n] - S2[SP[a1, a2], SP[a4, a5], a6, 
     a3, n] - S2[SP[a1, a3], a2, a4, SP[a5, a6], n] - 
    S2[SP[a1, a3], a2, SP[a4, a5], a6, n] - S2[SP[a1, a3], SP[a2, a5], a4, 
     a6, n] - S2[SP[a1, a4], a2, a5, SP[a3, a6], n] - 
    S2[SP[a1, a4], a2, SP[a5, a6], a3, n] - S2[SP[a1, a4], a5, a2, 
     SP[a3, a6], n] - S2[SP[a1, a4], a5, a3, SP[a2, a6], n] - 
    S2[SP[a1, a4], a5, SP[a2, a6], a3, n] - S2[SP[a1, a4], a5, SP[a3, a6], 
     a2, n] - S2[SP[a1, a4], SP[a2, a6], a5, a3, n] - 
    S2[SP[a1, a4], SP[a5, a6], a2, a3, n] - S2[SP[a1, a4], SP[a5, a6], a3, 
     a2, n] + S2[a1, a2, a3, a4, SP[a5, a6], n] + S2[a1, a2, a3, SP[a4, a5], 
     a6, n] + S2[a1, a2, a4, a3, SP[a5, a6], n] + 
    S2[a6, n]*S2[a1, a2, a4, a5, a3, n] - 
    S2[a3, n]*S2[a1, a2, a4, a5, a6, n] + 
    2*S2[a1, a2, a4, a5, SP[a3, a6], n] - 
    S2[a3, n]*S2[a1, a2, a4, a6, a5, n] - S2[a1, a2, a4, a6, SP[a3, a5], n] - 
    S2[a1, a2, a4, SP[a3, a5], a6, n] + 3*S2[a1, a2, a4, SP[a5, a6], a3, n] + 
    S2[a6, n]*S2[a1, a2, a5, a3, a4, n] - 
    S2[a4, n]*S2[a1, a2, a5, a3, a6, n] + 
    S2[a6, n]*S2[a1, a2, a5, a4, a3, n] - 
    S2[a3, n]*S2[a1, a2, a5, a4, a6, n] + 
    2*S2[a1, a2, a5, a4, SP[a3, a6], n] - 
    S2[a4, n]*S2[a1, a2, a5, a6, a3, n] - S2[a1, a2, a5, a6, SP[a3, a4], n] + 
    S2[a1, a2, a5, SP[a3, a6], a4, n] - S2[a4, n]*S2[a1, a2, a6, a5, a3, n] - 
    S2[a1, a2, a6, a5, SP[a3, a4], n] - S2[a1, a2, a6, SP[a4, a5], a3, n] - 
    S2[a1, a2, SP[a3, a5], a4, a6, n] + S2[a1, a2, SP[a4, a5], a3, a6, n] + 
    S2[a1, a2, SP[a4, a5], a6, a3, n] + S2[a1, a2, SP[a5, a6], a3, a4, n] + 
    S2[a1, a2, SP[a5, a6], a4, a3, n] + S2[a1, a3, a2, a4, SP[a5, a6], n] + 
    S2[a1, a3, a2, SP[a4, a5], a6, n] + S2[a1, a3, SP[a2, a5], a4, a6, n] + 
    S2[a6, n]*S2[a1, a4, a2, a5, a3, n] + 
    2*S2[a1, a4, a2, a5, SP[a3, a6], n] + 
    2*S2[a1, a4, a2, SP[a5, a6], a3, n] + 
    S2[a6, n]*S2[a1, a4, a5, a2, a3, n] + 
    2*S2[a1, a4, a5, a2, SP[a3, a6], n] + 
    S2[a6, n]*S2[a1, a4, a5, a3, a2, n] - 
    S2[a2, n]*S2[a1, a4, a5, a3, a6, n] + S2[a1, a4, a5, a3, SP[a2, a6], n] - 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] - S2[a1, a4, a5, a6, SP[a2, a3], n] - 
    S2[a1, a4, a5, SP[a2, a3], a6, n] + S2[a1, a4, a5, SP[a2, a6], a3, n] + 
    2*S2[a1, a4, a5, SP[a3, a6], a2, n] - 
    S2[a2, n]*S2[a1, a4, a6, a5, a3, n] - S2[a1, a4, a6, a5, SP[a2, a3], n] - 
    S2[a1, a4, a6, SP[a2, a5], a3, n] - S2[a1, a4, SP[a2, a5], a3, a6, n] - 
    S2[a1, a4, SP[a2, a5], a6, a3, n] + S2[a1, a4, SP[a2, a6], a5, a3, n] + 
    2*S2[a1, a4, SP[a5, a6], a2, a3, n] + 
    2*S2[a1, a4, SP[a5, a6], a3, a2, n] + 
    S2[a6, n]*S2[a1, a5, a2, a3, a4, n] - 
    S2[a4, n]*S2[a1, a5, a2, a3, a6, n] + 
    S2[a6, n]*S2[a1, a5, a2, a4, a3, n] - 
    S2[a3, n]*S2[a1, a5, a2, a4, a6, n] + 
    2*S2[a1, a5, a2, a4, SP[a3, a6], n] - 
    S2[a4, n]*S2[a1, a5, a2, a6, a3, n] - S2[a1, a5, a2, a6, SP[a3, a4], n] + 
    S2[a1, a5, a2, SP[a3, a6], a4, n] + S2[a6, n]*S2[a1, a5, a3, a2, a4, n] - 
    S2[a4, n]*S2[a1, a5, a3, a2, a6, n] + 
    S2[a6, n]*S2[a1, a5, a3, a4, a2, n] - 
    S2[a2, n]*S2[a1, a5, a3, a4, a6, n] + S2[a1, a5, a3, a4, SP[a2, a6], n] - 
    S2[a4, n]*S2[a1, a5, a3, a6, a2, n] - S2[a1, a5, a3, a6, SP[a2, a4], n] - 
    S2[a1, a5, a3, SP[a2, a4], a6, n] + S2[a1, a5, a3, SP[a2, a6], a4, n] + 
    S2[a6, n]*S2[a1, a5, a4, a2, a3, n] + 
    2*S2[a1, a5, a4, a2, SP[a3, a6], n] + 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] - 
    S2[a2, n]*S2[a1, a5, a4, a3, a6, n] + S2[a1, a5, a4, a3, SP[a2, a6], n] - 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] - S2[a1, a5, a4, a6, SP[a2, a3], n] - 
    S2[a1, a5, a4, SP[a2, a3], a6, n] + S2[a1, a5, a4, SP[a2, a6], a3, n] + 
    2*S2[a1, a5, a4, SP[a3, a6], a2, n] - 
    S2[a4, n]*S2[a1, a5, a6, a2, a3, n] - S2[a1, a5, a6, a2, SP[a3, a4], n] - 
    S2[a4, n]*S2[a1, a5, a6, a3, a2, n] - S2[a1, a5, a6, a3, SP[a2, a4], n] - 
    S2[a1, a5, a6, SP[a2, a4], a3, n] - S2[a1, a5, a6, SP[a3, a4], a2, n] - 
    S2[a1, a5, SP[a2, a3], a4, a6, n] - S2[a1, a5, SP[a2, a4], a3, a6, n] - 
    S2[a1, a5, SP[a2, a4], a6, a3, n] + S2[a1, a5, SP[a2, a6], a3, a4, n] + 
    S2[a1, a5, SP[a2, a6], a4, a3, n] + S2[a1, a5, SP[a3, a6], a2, a4, n] + 
    S2[a1, a5, SP[a3, a6], a4, a2, n] - S2[a4, n]*S2[a1, a6, a2, a5, a3, n] - 
    S2[a1, a6, a2, a5, SP[a3, a4], n] - S2[a1, a6, a2, SP[a4, a5], a3, n] - 
    S2[a4, n]*S2[a1, a6, a5, a2, a3, n] - S2[a1, a6, a5, a2, SP[a3, a4], n] - 
    S2[a4, n]*S2[a1, a6, a5, a3, a2, n] - S2[a1, a6, a5, a3, SP[a2, a4], n] - 
    S2[a1, a6, a5, SP[a2, a4], a3, n] - S2[a1, a6, a5, SP[a3, a4], a2, n] - 
    S2[a1, a6, SP[a2, a4], a5, a3, n] - S2[a1, a6, SP[a4, a5], a2, a3, n] - 
    S2[a1, a6, SP[a4, a5], a3, a2, n] - S2[a1, SP[a2, a4], a5, a3, a6, n] - 
    S2[a1, SP[a2, a4], a5, a6, a3, n] - S2[a1, SP[a2, a4], a6, a5, a3, n] + 
    S2[a1, SP[a2, a6], a4, a5, a3, n] + S2[a1, SP[a2, a6], a5, a3, a4, n] + 
    S2[a1, SP[a2, a6], a5, a4, a3, n] - S2[a1, SP[a3, a5], a2, a4, a6, n] + 
    S2[a1, SP[a5, a6], a2, a3, a4, n] + S2[a1, SP[a5, a6], a2, a4, a3, n] + 
    S2[a1, SP[a5, a6], a3, a2, a4, n] + S2[a1, SP[a5, a6], a3, a4, a2, n] + 
    S2[a1, SP[a5, a6], a4, a2, a3, n] + S2[a1, SP[a5, a6], a4, a3, a2, n] + 
    S2[a2, a1, a4, a5, SP[a3, a6], n] + S2[a2, a1, a4, SP[a5, a6], a3, n] + 
    S2[a2, a1, a5, a4, SP[a3, a6], n] + S2[a2, a1, a5, SP[a3, a4], a6, n] + 
    S2[a2, a1, SP[a4, a5], a3, a6, n] + S2[a2, a1, SP[a4, a5], a6, a3, n] - 
    S2[a6, n]*S2[a2, a4, a1, a5, a3, n] + S2[a2, SP[a1, a4], a5, a3, a6, n] + 
    S2[a2, SP[a1, a4], a5, a6, a3, n] + S2[a2, SP[a1, a4], a6, a5, a3, n] - 
    S2[a2, SP[a4, a6], a1, a5, a3, n] + S2[a3, a1, a2, a4, SP[a5, a6], n] + 
    S2[a3, a1, a2, SP[a4, a5], a6, n] + S2[a3, a1, SP[a2, a5], a4, a6, n] + 
    S2[a3, SP[a1, a5], a2, a4, a6, n] + S2[a4, a1, a2, a5, SP[a3, a6], n] + 
    S2[a4, a1, a2, SP[a5, a6], a3, n] + S2[a4, a1, a5, a2, SP[a3, a6], n] + 
    S2[a4, a1, a5, a3, SP[a2, a6], n] + S2[a4, a1, a5, SP[a2, a6], a3, n] + 
    S2[a4, a1, a5, SP[a3, a6], a2, n] + S2[a4, a1, SP[a2, a6], a5, a3, n] + 
    S2[a4, a1, SP[a5, a6], a2, a3, n] + S2[a4, a1, SP[a5, a6], a3, a2, n] + 
    S2[a4, SP[a1, a6], a2, a5, a3, n] + S2[a4, SP[a1, a6], a5, a2, a3, n] + 
    S2[a4, SP[a1, a6], a5, a3, a2, n] - S2[a4, n]*S2[a6, a1, a2, a5, a3, n] - 
    S2[a6, a1, a2, a5, SP[a3, a4], n] - S2[a6, a1, a2, SP[a4, a5], a3, n] - 
    S2[a4, n]*S2[a6, a1, a5, a2, a3, n] - S2[a6, a1, a5, a2, SP[a3, a4], n] - 
    S2[a4, n]*S2[a6, a1, a5, a3, a2, n] - S2[a6, a1, a5, a3, SP[a2, a4], n] - 
    S2[a6, a1, a5, SP[a2, a4], a3, n] - S2[a6, a1, a5, SP[a3, a4], a2, n] - 
    S2[a6, a1, SP[a2, a4], a5, a3, n] - S2[a6, a1, SP[a4, a5], a2, a3, n] - 
    S2[a6, a1, SP[a4, a5], a3, a2, n] + S2[a2, n]*S2[a6, a4, a1, a5, a3, n] + 
    S2[a6, a4, a1, a5, SP[a2, a3], n] + S2[a6, a4, a1, SP[a2, a5], a3, n] + 
    S2[a6, a4, SP[a1, a2], a5, a3, n] - S2[a6, SP[a1, a4], a2, a5, a3, n] - 
    S2[a6, SP[a1, a4], a5, a2, a3, n] - S2[a6, SP[a1, a4], a5, a3, a2, n] + 
    S2[a6, SP[a2, a4], a1, a5, a3, n] + S2[SP[a1, a6], a2, a4, a5, a3, n] + 
    S2[SP[a1, a6], a2, a5, a3, a4, n] + S2[SP[a1, a6], a2, a5, a4, a3, n] + 
    S2[SP[a1, a6], a4, a2, a5, a3, n] + S2[SP[a1, a6], a4, a5, a2, a3, n] + 
    S2[SP[a1, a6], a4, a5, a3, a2, n] + S2[SP[a1, a6], a5, a2, a3, a4, n] + 
    S2[SP[a1, a6], a5, a2, a4, a3, n] + S2[SP[a1, a6], a5, a3, a2, a4, n] + 
    S2[SP[a1, a6], a5, a3, a4, a2, n] + S2[SP[a1, a6], a5, a4, a2, a3, n] + 
    S2[SP[a1, a6], a5, a4, a3, a2, n] - S2[SP[a4, a6], a1, a2, a5, a3, n] - 
    S2[SP[a4, a6], a1, a5, a2, a3, n] - S2[SP[a4, a6], a1, a5, a3, a2, n] - 
    S2[a6, a4, a2, a1, a5, a3, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a3_, a5_, a1_, a2_, a6_, a4_, n_] :> 
  S2[a1, a5, a3, n]*S2[a2, a6, a4, n] + S2[SP[a1, a2], SP[a5, a6], 
     SP[a3, a4], n] - S2[a4, a6, n]*S2[a1, a2, a5, a3, n] + 
    S2[a3, a5, n]*S2[a1, a2, a6, a4, n] - S2[a1, a2, SP[a3, a6], SP[a4, a5], 
     n] + S2[a1, a2, SP[a4, a5], SP[a3, a6], n] - S2[a1, a2, SP[a5, a6], 
     SP[a3, a4], n] - S2[a4, a6, n]*S2[a1, a5, a2, a3, n] - 
    S2[a4, a6, n]*S2[a1, a5, a3, a2, n] + S2[a1, a5, SP[a2, a4], SP[a3, a6], 
     n] + S2[a1, a5, SP[a3, a4], SP[a2, a6], n] - S2[a1, SP[a2, a3], a6, 
     SP[a4, a5], n] - S2[a1, SP[a2, a3], SP[a5, a6], a4, n] + 
    S2[a1, SP[a2, a4], a5, SP[a3, a6], n] + S2[a1, SP[a2, a4], SP[a5, a6], 
     a3, n] - S2[a1, SP[a2, a5], a6, SP[a3, a4], n] - 
    S2[a1, SP[a2, a5], SP[a3, a6], a4, n] + S2[a1, SP[a4, a5], a2, 
     SP[a3, a6], n] + S2[a1, SP[a4, a5], a3, SP[a2, a6], n] + 
    S2[a1, SP[a4, a5], SP[a2, a6], a3, n] + S2[a1, SP[a4, a5], SP[a3, a6], 
     a2, n] - S2[a2, a1, SP[a5, a6], SP[a3, a4], n] - 
    S2[a2, SP[a1, a6], a5, SP[a3, a4], n] - S2[a2, SP[a1, a6], SP[a4, a5], 
     a3, n] - S2[SP[a1, a2], a5, a6, SP[a3, a4], n] - 
    S2[SP[a1, a2], a5, SP[a3, a6], a4, n] - S2[SP[a1, a2], a6, a5, 
     SP[a3, a4], n] - S2[SP[a1, a2], a6, SP[a4, a5], a3, n] - 
    S2[SP[a1, a2], SP[a5, a6], a3, a4, n] - S2[SP[a1, a2], SP[a5, a6], a4, 
     a3, n] - S2[SP[a1, a3], a2, a6, SP[a4, a5], n] - 
    S2[SP[a1, a3], a2, SP[a5, a6], a4, n] - S2[SP[a1, a3], SP[a2, a5], a6, 
     a4, n] + S2[SP[a1, a4], a2, a5, SP[a3, a6], n] + 
    S2[SP[a1, a4], a2, SP[a5, a6], a3, n] + S2[SP[a1, a4], a5, a2, 
     SP[a3, a6], n] + S2[SP[a1, a4], a5, a3, SP[a2, a6], n] + 
    S2[SP[a1, a4], a5, SP[a2, a6], a3, n] + S2[SP[a1, a4], a5, SP[a3, a6], 
     a2, n] + S2[SP[a1, a4], SP[a2, a6], a5, a3, n] + 
    S2[SP[a1, a4], SP[a5, a6], a2, a3, n] + S2[SP[a1, a4], SP[a5, a6], a3, 
     a2, n] + S2[a1, a2, a3, a6, SP[a4, a5], n] + S2[a1, a2, a3, SP[a5, a6], 
     a4, n] - S2[a1, a2, a4, a5, SP[a3, a6], n] - S2[a1, a2, a4, SP[a5, a6], 
     a3, n] + S2[a4, n]*S2[a1, a2, a5, a3, a6, n] + 
    S2[a1, a2, a5, a3, SP[a4, a6], n] - S2[a1, a2, a5, a4, SP[a3, a6], n] + 
    S2[a4, n]*S2[a1, a2, a5, a6, a3, n] - 
    S2[a3, n]*S2[a1, a2, a5, a6, a4, n] + S2[a1, a2, a5, a6, SP[a3, a4], n] + 
    S2[a1, a2, a5, SP[a4, a6], a3, n] + S2[a1, a2, a6, a3, SP[a4, a5], n] - 
    S2[a3, n]*S2[a1, a2, a6, a4, a5, n] - S2[a1, a2, a6, a4, SP[a3, a5], n] + 
    S2[a4, n]*S2[a1, a2, a6, a5, a3, n] - 
    S2[a3, n]*S2[a1, a2, a6, a5, a4, n] + S2[a1, a2, a6, a5, SP[a3, a4], n] - 
    S2[a1, a2, a6, SP[a3, a5], a4, n] + 2*S2[a1, a2, a6, SP[a4, a5], a3, n] - 
    S2[a1, a2, SP[a3, a5], a6, a4, n] + S2[a1, a2, SP[a4, a6], a5, a3, n] + 
    S2[a1, a2, SP[a5, a6], a3, a4, n] + S2[a1, a2, SP[a5, a6], a4, a3, n] + 
    S2[a1, a3, a2, a6, SP[a4, a5], n] + S2[a1, a3, a2, SP[a5, a6], a4, n] + 
    S2[a1, a3, SP[a2, a5], a6, a4, n] - S2[a1, a4, a2, a5, SP[a3, a6], n] - 
    S2[a1, a4, a2, SP[a5, a6], a3, n] - S2[a1, a4, a5, a2, SP[a3, a6], n] - 
    S2[a1, a4, a5, a3, SP[a2, a6], n] - S2[a1, a4, a5, SP[a2, a6], a3, n] - 
    S2[a1, a4, a5, SP[a3, a6], a2, n] - S2[a1, a4, SP[a2, a6], a5, a3, n] - 
    S2[a1, a4, SP[a5, a6], a2, a3, n] - S2[a1, a4, SP[a5, a6], a3, a2, n] + 
    S2[a4, n]*S2[a1, a5, a2, a3, a6, n] + S2[a1, a5, a2, a3, SP[a4, a6], n] - 
    S2[a1, a5, a2, a4, SP[a3, a6], n] + S2[a4, n]*S2[a1, a5, a2, a6, a3, n] - 
    S2[a3, n]*S2[a1, a5, a2, a6, a4, n] + S2[a1, a5, a2, a6, SP[a3, a4], n] + 
    S2[a1, a5, a2, SP[a4, a6], a3, n] + S2[a4, n]*S2[a1, a5, a3, a2, a6, n] + 
    S2[a1, a5, a3, a2, SP[a4, a6], n] - S2[a1, a5, a3, a4, SP[a2, a6], n] + 
    S2[a4, n]*S2[a1, a5, a3, a6, a2, n] - 
    S2[a2, n]*S2[a1, a5, a3, a6, a4, n] - S2[a1, a5, a3, SP[a2, a6], a4, n] + 
    S2[a1, a5, a3, SP[a4, a6], a2, n] - S2[a1, a5, a4, a2, SP[a3, a6], n] - 
    S2[a1, a5, a4, a3, SP[a2, a6], n] - S2[a1, a5, a4, SP[a2, a6], a3, n] - 
    S2[a1, a5, a4, SP[a3, a6], a2, n] + S2[a4, n]*S2[a1, a5, a6, a2, a3, n] + 
    S2[a1, a5, a6, a2, SP[a3, a4], n] + S2[a4, n]*S2[a1, a5, a6, a3, a2, n] - 
    S2[a2, n]*S2[a1, a5, a6, a3, a4, n] - 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] - S2[a1, a5, a6, a4, SP[a2, a3], n] - 
    S2[a1, a5, a6, SP[a2, a3], a4, n] + S2[a1, a5, a6, SP[a3, a4], a2, n] - 
    S2[a1, a5, SP[a2, a3], a6, a4, n] - S2[a1, a5, SP[a2, a6], a3, a4, n] - 
    S2[a1, a5, SP[a2, a6], a4, a3, n] + S2[a1, a5, SP[a4, a6], a2, a3, n] + 
    S2[a1, a5, SP[a4, a6], a3, a2, n] + S2[a4, n]*S2[a1, a6, a2, a5, a3, n] + 
    S2[a1, a6, a2, a5, SP[a3, a4], n] + S2[a1, a6, a2, SP[a4, a5], a3, n] - 
    S2[a2, n]*S2[a1, a6, a4, a5, a3, n] - S2[a1, a6, a4, a5, SP[a2, a3], n] - 
    S2[a1, a6, a4, SP[a2, a5], a3, n] + S2[a4, n]*S2[a1, a6, a5, a2, a3, n] + 
    S2[a1, a6, a5, a2, SP[a3, a4], n] + S2[a4, n]*S2[a1, a6, a5, a3, a2, n] - 
    S2[a2, n]*S2[a1, a6, a5, a3, a4, n] - 
    S2[a2, n]*S2[a1, a6, a5, a4, a3, n] - S2[a1, a6, a5, a4, SP[a2, a3], n] - 
    S2[a1, a6, a5, SP[a2, a3], a4, n] + S2[a1, a6, a5, SP[a3, a4], a2, n] - 
    S2[a1, a6, SP[a2, a5], a3, a4, n] - S2[a1, a6, SP[a2, a5], a4, a3, n] + 
    S2[a1, a6, SP[a4, a5], a2, a3, n] + S2[a1, a6, SP[a4, a5], a3, a2, n] - 
    S2[a1, SP[a2, a6], a4, a5, a3, n] - S2[a1, SP[a2, a6], a5, a3, a4, n] - 
    S2[a1, SP[a2, a6], a5, a4, a3, n] - S2[a1, SP[a3, a5], a2, a6, a4, n] + 
    S2[a1, SP[a4, a6], a2, a5, a3, n] + S2[a1, SP[a4, a6], a5, a2, a3, n] + 
    S2[a1, SP[a4, a6], a5, a3, a2, n] + S2[a2, a1, a5, a6, SP[a3, a4], n] + 
    S2[a2, a1, a5, SP[a3, a6], a4, n] + S2[a2, a1, a6, a5, SP[a3, a4], n] + 
    S2[a2, a1, a6, SP[a4, a5], a3, n] + S2[a2, a1, SP[a5, a6], a3, a4, n] + 
    S2[a2, a1, SP[a5, a6], a4, a3, n] + S2[a2, a6, a1, a5, SP[a3, a4], n] + 
    S2[a2, a6, a1, SP[a4, a5], a3, n] + S2[a2, a6, SP[a1, a4], a5, a3, n] + 
    S2[a2, SP[a1, a6], a4, a5, a3, n] + S2[a2, SP[a1, a6], a5, a3, a4, n] + 
    S2[a2, SP[a1, a6], a5, a4, a3, n] + S2[a3, a1, a2, a6, SP[a4, a5], n] + 
    S2[a3, a1, a2, SP[a5, a6], a4, n] + S2[a3, a1, SP[a2, a5], a6, a4, n] + 
    S2[a3, SP[a1, a5], a2, a6, a4, n] - S2[a4, a1, a2, a5, SP[a3, a6], n] - 
    S2[a4, a1, a2, SP[a5, a6], a3, n] - S2[a4, a1, a5, a2, SP[a3, a6], n] - 
    S2[a4, a1, a5, a3, SP[a2, a6], n] - S2[a4, a1, a5, SP[a2, a6], a3, n] - 
    S2[a4, a1, a5, SP[a3, a6], a2, n] - S2[a4, a1, SP[a2, a6], a5, a3, n] - 
    S2[a4, a1, SP[a5, a6], a2, a3, n] - S2[a4, a1, SP[a5, a6], a3, a2, n] - 
    S2[a4, SP[a1, a6], a2, a5, a3, n] - S2[a4, SP[a1, a6], a5, a2, a3, n] - 
    S2[a4, SP[a1, a6], a5, a3, a2, n] + S2[a4, n]*S2[a6, a1, a2, a5, a3, n] + 
    S2[a6, a1, a2, a5, SP[a3, a4], n] + S2[a6, a1, a2, SP[a4, a5], a3, n] - 
    S2[a2, n]*S2[a6, a1, a4, a5, a3, n] - S2[a6, a1, a4, a5, SP[a2, a3], n] - 
    S2[a6, a1, a4, SP[a2, a5], a3, n] + S2[a4, n]*S2[a6, a1, a5, a2, a3, n] + 
    S2[a6, a1, a5, a2, SP[a3, a4], n] + S2[a4, n]*S2[a6, a1, a5, a3, a2, n] - 
    S2[a2, n]*S2[a6, a1, a5, a3, a4, n] - 
    S2[a2, n]*S2[a6, a1, a5, a4, a3, n] - S2[a6, a1, a5, a4, SP[a2, a3], n] - 
    S2[a6, a1, a5, SP[a2, a3], a4, n] + S2[a6, a1, a5, SP[a3, a4], a2, n] - 
    S2[a6, a1, SP[a2, a5], a3, a4, n] - S2[a6, a1, SP[a2, a5], a4, a3, n] + 
    S2[a6, a1, SP[a4, a5], a2, a3, n] + S2[a6, a1, SP[a4, a5], a3, a2, n] - 
    S2[a2, n]*S2[a6, a4, a1, a5, a3, n] - S2[a6, a4, a1, a5, SP[a2, a3], n] - 
    S2[a6, a4, a1, SP[a2, a5], a3, n] - S2[a6, a4, SP[a1, a2], a5, a3, n] - 
    S2[a6, SP[a1, a2], a4, a5, a3, n] - S2[a6, SP[a1, a2], a5, a3, a4, n] - 
    S2[a6, SP[a1, a2], a5, a4, a3, n] + S2[a6, SP[a1, a4], a2, a5, a3, n] + 
    S2[a6, SP[a1, a4], a5, a2, a3, n] + S2[a6, SP[a1, a4], a5, a3, a2, n] - 
    S2[a6, SP[a2, a4], a1, a5, a3, n] - S2[SP[a2, a6], a1, a4, a5, a3, n] - 
    S2[SP[a2, a6], a1, a5, a3, a4, n] - S2[SP[a2, a6], a1, a5, a4, a3, n] - 
    S2[SP[a2, a6], a4, a1, a5, a3, n] + S2[SP[a4, a6], a1, a2, a5, a3, n] + 
    S2[SP[a4, a6], a1, a5, a2, a3, n] + S2[SP[a4, a6], a1, a5, a3, a2, n] + 
    S2[a6, a2, a1, a4, a5, a3, n] + S2[a6, a2, a1, a5, a3, a4, n] + 
    S2[a6, a2, a1, a5, a4, a3, n] + S2[a6, a2, a4, a1, a5, a3, n] + 
    S2[a6, a4, a2, a1, a5, a3, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a3_, a5_, a1_, a4_, a2_, a6_, n_] :> 
  -(S2[a1, a5, a3, n]*S2[a2, a4, a6, n]) - S2[a1, a5, a3, n]*
     S2[a2, a6, a4, n] - S2[SP[a1, a2], SP[a4, a5], SP[a3, a6], n] - 
    S2[SP[a1, a2], SP[a5, a6], SP[a3, a4], n] + S2[a1, a2, SP[a4, a5], 
     SP[a3, a6], n] + S2[a1, a2, SP[a5, a6], SP[a3, a4], n] + 
    S2[a3, a5, n]*S2[a1, a4, a2, a6, n] + S2[a2, a6, n]*
     S2[a1, a4, a5, a3, n] - S2[a1, a4, SP[a2, a3], SP[a5, a6], n] - 
    S2[a1, a4, SP[a2, a5], SP[a3, a6], n] + S2[a2, a6, n]*
     S2[a1, a5, a3, a4, n] + S2[a2, a6, n]*S2[a1, a5, a4, a3, n] - 
    S2[a1, a5, SP[a2, a3], SP[a4, a6], n] - S2[a1, a5, SP[a2, a4], 
     SP[a3, a6], n] - S2[a1, SP[a2, a4], a5, SP[a3, a6], n] - 
    S2[a1, SP[a2, a4], SP[a5, a6], a3, n] - S2[a1, SP[a2, a5], a3, 
     SP[a4, a6], n] + S2[a1, SP[a2, a5], a6, SP[a3, a4], n] + 
    S2[a1, SP[a2, a5], SP[a3, a4], a6, n] - S2[a1, SP[a2, a5], SP[a4, a6], 
     a3, n] - S2[a1, SP[a3, a4], a2, SP[a5, a6], n] - 
    S2[a1, SP[a3, a4], SP[a2, a5], a6, n] + S2[a2, a1, SP[a4, a5], 
     SP[a3, a6], n] + S2[a2, a1, SP[a5, a6], SP[a3, a4], n] + 
    S2[a2, SP[a1, a4], a5, SP[a3, a6], n] + S2[a2, SP[a1, a4], SP[a5, a6], 
     a3, n] + S2[a2, SP[a1, a6], a5, SP[a3, a4], n] + 
    S2[a2, SP[a1, a6], SP[a4, a5], a3, n] - S2[SP[a1, a2], a5, a3, 
     SP[a4, a6], n] + S2[SP[a1, a2], a5, a6, SP[a3, a4], n] + 
    S2[SP[a1, a2], a5, SP[a3, a4], a6, n] - S2[SP[a1, a2], a5, SP[a4, a6], 
     a3, n] + S2[SP[a1, a2], a6, a5, SP[a3, a4], n] + 
    S2[SP[a1, a2], a6, SP[a4, a5], a3, n] + S2[SP[a1, a2], SP[a4, a5], a3, 
     a6, n] + S2[SP[a1, a2], SP[a4, a5], a6, a3, n] - 
    S2[SP[a1, a2], SP[a4, a6], a5, a3, n] - S2[SP[a1, a3], a4, a2, 
     SP[a5, a6], n] - S2[SP[a1, a3], a4, SP[a2, a5], a6, n] - 
    S2[SP[a1, a3], SP[a4, a5], a2, a6, n] + S2[a1, a2, a5, a3, SP[a4, a6], 
     n] - S2[a1, a2, a5, a6, SP[a3, a4], n] - S2[a1, a2, a5, SP[a3, a4], a6, 
     n] + S2[a1, a2, a5, SP[a4, a6], a3, n] - S2[a1, a2, a6, a5, SP[a3, a4], 
     n] - S2[a1, a2, a6, SP[a4, a5], a3, n] - S2[a1, a2, SP[a4, a5], a3, a6, 
     n] - S2[a1, a2, SP[a4, a5], a6, a3, n] + S2[a1, a2, SP[a4, a6], a5, a3, 
     n] + S2[a1, a3, a4, a2, SP[a5, a6], n] + S2[a1, a3, a4, SP[a2, a5], a6, 
     n] + S2[a1, a3, SP[a4, a5], a2, a6, n] + S2[a1, a4, a2, a3, SP[a5, a6], 
     n] - S2[a3, n]*S2[a1, a4, a2, a5, a6, n] - 
    S2[a3, n]*S2[a1, a4, a2, a6, a5, n] - S2[a1, a4, a2, a6, SP[a3, a5], n] - 
    S2[a1, a4, a2, SP[a3, a5], a6, n] + S2[a1, a4, a2, SP[a5, a6], a3, n] + 
    S2[a1, a4, a3, a2, SP[a5, a6], n] + S2[a1, a4, a3, SP[a2, a5], a6, n] - 
    S2[a3, n]*S2[a1, a4, a5, a2, a6, n] + S2[a1, a4, SP[a2, a5], a3, a6, n] + 
    S2[a1, a4, SP[a2, a5], a6, a3, n] - S2[a1, a4, SP[a3, a5], a2, a6, n] + 
    S2[a1, a5, a2, a3, SP[a4, a6], n] - S2[a1, a5, a2, a6, SP[a3, a4], n] - 
    S2[a1, a5, a2, SP[a3, a4], a6, n] + S2[a1, a5, a2, SP[a4, a6], a3, n] + 
    S2[a1, a5, a3, a2, SP[a4, a6], n] + S2[a1, a5, a3, SP[a2, a4], a6, n] - 
    S2[a3, n]*S2[a1, a5, a4, a2, a6, n] + S2[a1, a5, SP[a2, a4], a3, a6, n] + 
    S2[a1, a5, SP[a2, a4], a6, a3, n] - S2[a1, a5, SP[a3, a4], a2, a6, n] + 
    S2[a1, SP[a2, a4], a5, a3, a6, n] + S2[a1, SP[a2, a4], a5, a6, a3, n] + 
    S2[a1, SP[a2, a4], a6, a5, a3, n] - S2[a1, SP[a3, a5], a4, a2, a6, n] + 
    S2[a2, a1, a5, a3, SP[a4, a6], n] - S2[a2, a1, a5, a6, SP[a3, a4], n] - 
    S2[a2, a1, a5, SP[a3, a4], a6, n] + S2[a2, a1, a5, SP[a4, a6], a3, n] - 
    S2[a2, a1, a6, a5, SP[a3, a4], n] - S2[a2, a1, a6, SP[a4, a5], a3, n] - 
    S2[a2, a1, SP[a4, a5], a3, a6, n] - S2[a2, a1, SP[a4, a5], a6, a3, n] + 
    S2[a2, a1, SP[a4, a6], a5, a3, n] + S2[a6, n]*S2[a2, a4, a1, a5, a3, n] - 
    S2[a2, a6, a1, a5, SP[a3, a4], n] - S2[a2, a6, a1, SP[a4, a5], a3, n] - 
    S2[a2, a6, SP[a1, a4], a5, a3, n] - S2[a2, SP[a1, a4], a5, a3, a6, n] - 
    S2[a2, SP[a1, a4], a5, a6, a3, n] - S2[a2, SP[a1, a4], a6, a5, a3, n] + 
    S2[a2, SP[a4, a6], a1, a5, a3, n] + S2[a3, a1, a4, a2, SP[a5, a6], n] + 
    S2[a3, a1, a4, SP[a2, a5], a6, n] + S2[a3, a1, SP[a4, a5], a2, a6, n] + 
    S2[a3, SP[a1, a5], a4, a2, a6, n] + S2[SP[a2, a6], a4, a1, a5, a3, n] - 
    S2[a6, a2, a4, a1, a5, a3, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a3_, a5_, a1_, a4_, a6_, a2_, n_] :> 
  S2[a1, a5, a3, n]*S2[a2, a6, a4, n] + S2[SP[a1, a2], SP[a5, a6], 
     SP[a3, a4], n] - S2[a1, a2, SP[a5, a6], SP[a3, a4], n] - 
    S2[a2, a6, n]*S2[a1, a4, a5, a3, n] + S2[a3, a5, n]*
     S2[a1, a4, a6, a2, n] + S2[a1, a4, SP[a2, a5], SP[a3, a6], n] - 
    S2[a1, a4, SP[a3, a6], SP[a2, a5], n] - S2[a2, a6, n]*
     S2[a1, a5, a3, a4, n] - S2[a2, a6, n]*S2[a1, a5, a4, a3, n] + 
    S2[a1, a5, SP[a2, a3], SP[a4, a6], n] + S2[a1, a5, SP[a2, a4], 
     SP[a3, a6], n] + S2[a1, SP[a2, a4], a5, SP[a3, a6], n] + 
    S2[a1, SP[a2, a4], SP[a5, a6], a3, n] + S2[a1, SP[a2, a5], a3, 
     SP[a4, a6], n] + S2[a1, SP[a2, a5], a4, SP[a3, a6], n] - 
    S2[a1, SP[a2, a5], a6, SP[a3, a4], n] + S2[a1, SP[a2, a5], SP[a4, a6], 
     a3, n] - S2[a1, SP[a3, a4], a6, SP[a2, a5], n] - 
    S2[a1, SP[a3, a4], SP[a5, a6], a2, n] - S2[a2, a1, SP[a5, a6], 
     SP[a3, a4], n] - S2[a2, SP[a1, a6], a5, SP[a3, a4], n] - 
    S2[a2, SP[a1, a6], SP[a4, a5], a3, n] + S2[SP[a1, a2], a4, a5, 
     SP[a3, a6], n] + S2[SP[a1, a2], a4, SP[a5, a6], a3, n] + 
    S2[SP[a1, a2], a5, a3, SP[a4, a6], n] + S2[SP[a1, a2], a5, a4, 
     SP[a3, a6], n] - S2[SP[a1, a2], a5, a6, SP[a3, a4], n] + 
    S2[SP[a1, a2], a5, SP[a4, a6], a3, n] - S2[SP[a1, a2], a6, a5, 
     SP[a3, a4], n] - S2[SP[a1, a2], a6, SP[a4, a5], a3, n] + 
    S2[SP[a1, a2], SP[a4, a6], a5, a3, n] - S2[SP[a1, a3], a4, a6, 
     SP[a2, a5], n] - S2[SP[a1, a3], a4, SP[a5, a6], a2, n] - 
    S2[SP[a1, a3], SP[a4, a5], a6, a2, n] - S2[a1, a2, a4, a5, SP[a3, a6], 
     n] - S2[a1, a2, a4, SP[a5, a6], a3, n] - S2[a1, a2, a5, a3, SP[a4, a6], 
     n] - S2[a1, a2, a5, a4, SP[a3, a6], n] + S2[a1, a2, a5, a6, SP[a3, a4], 
     n] - S2[a1, a2, a5, SP[a4, a6], a3, n] + S2[a1, a2, a6, a5, SP[a3, a4], 
     n] + S2[a1, a2, a6, SP[a4, a5], a3, n] - S2[a1, a2, SP[a4, a6], a5, a3, 
     n] + S2[a1, a3, a4, a6, SP[a2, a5], n] + S2[a1, a3, a4, SP[a5, a6], a2, 
     n] + S2[a1, a3, SP[a4, a5], a6, a2, n] - S2[a1, a4, a2, a5, SP[a3, a6], 
     n] - S2[a1, a4, a2, SP[a5, a6], a3, n] + S2[a1, a4, a3, a6, SP[a2, a5], 
     n] + S2[a1, a4, a3, SP[a5, a6], a2, n] - S2[a1, a4, a5, a2, SP[a3, a6], 
     n] + S2[a2, n]*S2[a1, a4, a5, a3, a6, n] + S2[a1, a4, a5, a3, 
     SP[a2, a6], n] - S2[a3, n]*S2[a1, a4, a5, a6, a2, n] + 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] + S2[a1, a4, a5, SP[a2, a6], a3, n] - 
    S2[a1, a4, a5, SP[a3, a6], a2, n] - S2[a3, n]*S2[a1, a4, a6, a2, a5, n] - 
    S2[a1, a4, a6, a2, SP[a3, a5], n] + S2[a1, a4, a6, a3, SP[a2, a5], n] - 
    S2[a3, n]*S2[a1, a4, a6, a5, a2, n] + 
    S2[a2, n]*S2[a1, a4, a6, a5, a3, n] + S2[a1, a4, a6, SP[a2, a5], a3, n] - 
    S2[a1, a4, a6, SP[a3, a5], a2, n] + S2[a1, a4, SP[a2, a6], a5, a3, n] - 
    S2[a1, a4, SP[a3, a5], a6, a2, n] - S2[a1, a5, a2, a3, SP[a4, a6], n] - 
    S2[a1, a5, a2, a4, SP[a3, a6], n] + S2[a1, a5, a2, a6, SP[a3, a4], n] - 
    S2[a1, a5, a2, SP[a4, a6], a3, n] - S2[a1, a5, a3, a2, SP[a4, a6], n] + 
    S2[a2, n]*S2[a1, a5, a3, a4, a6, n] + S2[a1, a5, a3, a4, SP[a2, a6], n] - 
    S2[a1, a5, a4, a2, SP[a3, a6], n] + S2[a2, n]*S2[a1, a5, a4, a3, a6, n] + 
    S2[a1, a5, a4, a3, SP[a2, a6], n] - S2[a3, n]*S2[a1, a5, a4, a6, a2, n] + 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] + S2[a1, a5, a4, SP[a2, a6], a3, n] - 
    S2[a1, a5, a4, SP[a3, a6], a2, n] - S2[a1, a5, SP[a3, a4], a6, a2, n] - 
    S2[a1, SP[a3, a5], a4, a6, a2, n] - S2[a2, a1, a4, a5, SP[a3, a6], n] - 
    S2[a2, a1, a4, SP[a5, a6], a3, n] - S2[a2, a1, a5, a3, SP[a4, a6], n] - 
    S2[a2, a1, a5, a4, SP[a3, a6], n] + S2[a2, a1, a5, a6, SP[a3, a4], n] - 
    S2[a2, a1, a5, SP[a4, a6], a3, n] + S2[a2, a1, a6, a5, SP[a3, a4], n] + 
    S2[a2, a1, a6, SP[a4, a5], a3, n] - S2[a2, a1, SP[a4, a6], a5, a3, n] + 
    S2[a2, a6, a1, a5, SP[a3, a4], n] + S2[a2, a6, a1, SP[a4, a5], a3, n] + 
    S2[a2, a6, SP[a1, a4], a5, a3, n] + S2[a3, a1, a4, a6, SP[a2, a5], n] + 
    S2[a3, a1, a4, SP[a5, a6], a2, n] + S2[a3, a1, SP[a4, a5], a6, a2, n] + 
    S2[a3, SP[a1, a5], a4, a6, a2, n] - S2[a2, n]*S2[a6, a4, a1, a5, a3, n] - 
    S2[a6, a4, a1, a5, SP[a2, a3], n] - S2[a6, a4, a1, SP[a2, a5], a3, n] - 
    S2[a6, a4, SP[a1, a2], a5, a3, n] - S2[a6, SP[a2, a4], a1, a5, a3, n] - 
    S2[SP[a2, a6], a4, a1, a5, a3, n] + S2[a6, a2, a4, a1, a5, a3, n] + 
    S2[a6, a4, a1, a2, a5, a3, n] + S2[a6, a4, a1, a5, a2, a3, n] + 
    S2[a6, a4, a1, a5, a3, a2, n] + S2[a6, a4, a2, a1, a5, a3, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a3_, a5_, a1_, a6_, a2_, a4_, n_] :> 
  -(S2[a1, a5, a3, n]*S2[a2, a4, a6, n]) - S2[a1, a5, a3, n]*
     S2[a2, a6, a4, n] - S2[SP[a1, a2], SP[a4, a5], SP[a3, a6], n] - 
    S2[SP[a1, a2], SP[a5, a6], SP[a3, a4], n] + S2[a1, a2, SP[a4, a5], 
     SP[a3, a6], n] + S2[a1, a2, SP[a5, a6], SP[a3, a4], n] + 
    S2[a3, a5, n]*S2[a1, a6, a2, a4, n] - S2[a1, a6, SP[a2, a3], SP[a4, a5], 
     n] + S2[a1, SP[a2, a5], a4, SP[a3, a6], n] + S2[a1, SP[a2, a5], a6, 
     SP[a3, a4], n] + S2[a1, SP[a2, a5], SP[a3, a4], a6, n] + 
    S2[a1, SP[a2, a5], SP[a3, a6], a4, n] - S2[a1, SP[a3, a6], a2, 
     SP[a4, a5], n] - S2[a1, SP[a3, a6], SP[a2, a5], a4, n] + 
    S2[a2, a1, SP[a4, a5], SP[a3, a6], n] + S2[a2, a1, SP[a5, a6], 
     SP[a3, a4], n] + S2[a2, SP[a1, a4], a5, SP[a3, a6], n] + 
    S2[a2, SP[a1, a4], SP[a5, a6], a3, n] + S2[a2, SP[a1, a6], a5, 
     SP[a3, a4], n] + S2[a2, SP[a1, a6], SP[a4, a5], a3, n] + 
    S2[SP[a1, a2], a4, a5, SP[a3, a6], n] + S2[SP[a1, a2], a4, SP[a5, a6], 
     a3, n] + S2[SP[a1, a2], a5, a4, SP[a3, a6], n] + 
    S2[SP[a1, a2], a5, a6, SP[a3, a4], n] + S2[SP[a1, a2], a5, SP[a3, a4], 
     a6, n] + S2[SP[a1, a2], a5, SP[a3, a6], a4, n] + 
    S2[SP[a1, a2], a6, a5, SP[a3, a4], n] + S2[SP[a1, a2], a6, SP[a4, a5], 
     a3, n] + S2[SP[a1, a2], SP[a4, a5], a3, a6, n] + 
    S2[SP[a1, a2], SP[a4, a5], a6, a3, n] + S2[SP[a1, a2], SP[a5, a6], a3, 
     a4, n] + S2[SP[a1, a2], SP[a5, a6], a4, a3, n] - 
    S2[SP[a1, a3], a6, a2, SP[a4, a5], n] - S2[SP[a1, a3], a6, SP[a2, a5], 
     a4, n] - S2[SP[a1, a3], SP[a5, a6], a2, a4, n] - 
    S2[a1, a2, a4, a5, SP[a3, a6], n] - S2[a1, a2, a4, SP[a5, a6], a3, n] - 
    S2[a1, a2, a5, a4, SP[a3, a6], n] - S2[a1, a2, a5, a6, SP[a3, a4], n] - 
    S2[a1, a2, a5, SP[a3, a4], a6, n] - S2[a1, a2, a5, SP[a3, a6], a4, n] - 
    S2[a1, a2, a6, a5, SP[a3, a4], n] - S2[a1, a2, a6, SP[a4, a5], a3, n] - 
    S2[a1, a2, SP[a4, a5], a3, a6, n] - S2[a1, a2, SP[a4, a5], a6, a3, n] - 
    S2[a1, a2, SP[a5, a6], a3, a4, n] - S2[a1, a2, SP[a5, a6], a4, a3, n] + 
    S2[a1, a3, a6, a2, SP[a4, a5], n] + S2[a1, a3, a6, SP[a2, a5], a4, n] + 
    S2[a1, a3, SP[a5, a6], a2, a4, n] - S2[a6, n]*S2[a1, a4, a2, a5, a3, n] - 
    S2[a1, a4, a2, a5, SP[a3, a6], n] - S2[a1, a4, a2, SP[a5, a6], a3, n] - 
    S2[a6, n]*S2[a1, a4, a5, a2, a3, n] - S2[a1, a4, a5, a2, SP[a3, a6], n] - 
    S2[a6, n]*S2[a1, a4, a5, a3, a2, n] + 
    S2[a2, n]*S2[a1, a4, a5, a3, a6, n] + 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] + S2[a1, a4, a5, a6, SP[a2, a3], n] + 
    S2[a1, a4, a5, SP[a2, a3], a6, n] - S2[a1, a4, a5, SP[a3, a6], a2, n] + 
    S2[a2, n]*S2[a1, a4, a6, a5, a3, n] + S2[a1, a4, a6, a5, SP[a2, a3], n] + 
    S2[a1, a4, a6, SP[a2, a5], a3, n] + S2[a1, a4, SP[a2, a5], a3, a6, n] + 
    S2[a1, a4, SP[a2, a5], a6, a3, n] - S2[a1, a4, SP[a5, a6], a2, a3, n] - 
    S2[a1, a4, SP[a5, a6], a3, a2, n] - S2[a1, a5, a2, a4, SP[a3, a6], n] - 
    S2[a1, a5, a2, a6, SP[a3, a4], n] - S2[a1, a5, a2, SP[a3, a4], a6, n] - 
    S2[a1, a5, a2, SP[a3, a6], a4, n] - S2[a6, n]*S2[a1, a5, a3, a4, a2, n] + 
    S2[a2, n]*S2[a1, a5, a3, a4, a6, n] + 
    S2[a2, n]*S2[a1, a5, a3, a6, a4, n] + S2[a1, a5, a3, a6, SP[a2, a4], n] + 
    S2[a1, a5, a3, SP[a2, a4], a6, n] + S2[a1, a5, a3, SP[a2, a6], a4, n] - 
    S2[a1, a5, a3, SP[a4, a6], a2, n] - S2[a6, n]*S2[a1, a5, a4, a2, a3, n] - 
    S2[a1, a5, a4, a2, SP[a3, a6], n] - S2[a6, n]*S2[a1, a5, a4, a3, a2, n] + 
    S2[a2, n]*S2[a1, a5, a4, a3, a6, n] + 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] + S2[a1, a5, a4, a6, SP[a2, a3], n] + 
    S2[a1, a5, a4, SP[a2, a3], a6, n] - S2[a1, a5, a4, SP[a3, a6], a2, n] - 
    S2[a3, n]*S2[a1, a5, a6, a2, a4, n] - S2[a1, a5, a6, a2, SP[a3, a4], n] + 
    S2[a2, n]*S2[a1, a5, a6, a3, a4, n] + S2[a1, a5, a6, a3, SP[a2, a4], n] + 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] + S2[a1, a5, a6, a4, SP[a2, a3], n] + 
    S2[a1, a5, a6, SP[a2, a4], a3, n] + S2[a1, a5, SP[a2, a4], a3, a6, n] + 
    S2[a1, a5, SP[a2, a4], a6, a3, n] + S2[a1, a5, SP[a2, a6], a3, a4, n] + 
    S2[a1, a5, SP[a2, a6], a4, a3, n] - S2[a1, a5, SP[a3, a6], a2, a4, n] - 
    S2[a1, a5, SP[a3, a6], a4, a2, n] - S2[a1, a5, SP[a4, a6], a2, a3, n] - 
    S2[a1, a5, SP[a4, a6], a3, a2, n] + S2[a1, a6, a2, a3, SP[a4, a5], n] - 
    S2[a3, n]*S2[a1, a6, a2, a4, a5, n] - S2[a1, a6, a2, a4, SP[a3, a5], n] - 
    S2[a3, n]*S2[a1, a6, a2, a5, a4, n] - S2[a1, a6, a2, a5, SP[a3, a4], n] - 
    S2[a1, a6, a2, SP[a3, a5], a4, n] + S2[a1, a6, a3, a2, SP[a4, a5], n] + 
    S2[a1, a6, a3, SP[a2, a5], a4, n] + S2[a2, n]*S2[a1, a6, a4, a5, a3, n] + 
    S2[a1, a6, a4, a5, SP[a2, a3], n] + S2[a1, a6, a4, SP[a2, a5], a3, n] - 
    S2[a3, n]*S2[a1, a6, a5, a2, a4, n] - S2[a1, a6, a5, a2, SP[a3, a4], n] + 
    S2[a2, n]*S2[a1, a6, a5, a3, a4, n] + S2[a1, a6, a5, a3, SP[a2, a4], n] + 
    S2[a2, n]*S2[a1, a6, a5, a4, a3, n] + S2[a1, a6, a5, a4, SP[a2, a3], n] + 
    S2[a1, a6, a5, SP[a2, a4], a3, n] + S2[a1, a6, SP[a2, a4], a5, a3, n] + 
    S2[a1, a6, SP[a2, a5], a3, a4, n] + S2[a1, a6, SP[a2, a5], a4, a3, n] - 
    S2[a1, a6, SP[a3, a5], a2, a4, n] + S2[a1, SP[a2, a4], a5, a3, a6, n] + 
    S2[a1, SP[a2, a4], a5, a6, a3, n] + S2[a1, SP[a2, a4], a6, a5, a3, n] + 
    S2[a1, SP[a2, a6], a4, a5, a3, n] + S2[a1, SP[a2, a6], a5, a3, a4, n] + 
    S2[a1, SP[a2, a6], a5, a4, a3, n] - S2[a1, SP[a3, a5], a6, a2, a4, n] - 
    S2[a1, SP[a4, a6], a2, a5, a3, n] - S2[a1, SP[a4, a6], a5, a2, a3, n] - 
    S2[a1, SP[a4, a6], a5, a3, a2, n] - S2[a1, SP[a5, a6], a3, a4, a2, n] - 
    S2[a1, SP[a5, a6], a4, a2, a3, n] - S2[a1, SP[a5, a6], a4, a3, a2, n] - 
    S2[a2, a1, a4, a5, SP[a3, a6], n] - S2[a2, a1, a4, SP[a5, a6], a3, n] - 
    S2[a2, a1, a5, a4, SP[a3, a6], n] - S2[a2, a1, a5, a6, SP[a3, a4], n] - 
    S2[a2, a1, a5, SP[a3, a4], a6, n] - S2[a2, a1, a5, SP[a3, a6], a4, n] - 
    S2[a2, a1, a6, a5, SP[a3, a4], n] - S2[a2, a1, a6, SP[a4, a5], a3, n] - 
    S2[a2, a1, SP[a4, a5], a3, a6, n] - S2[a2, a1, SP[a4, a5], a6, a3, n] - 
    S2[a2, a1, SP[a5, a6], a3, a4, n] - S2[a2, a1, SP[a5, a6], a4, a3, n] + 
    S2[a6, n]*S2[a2, a4, a1, a5, a3, n] - S2[a2, a6, a1, a5, SP[a3, a4], n] - 
    S2[a2, a6, a1, SP[a4, a5], a3, n] - S2[a2, a6, SP[a1, a4], a5, a3, n] - 
    S2[a2, SP[a1, a4], a5, a3, a6, n] - S2[a2, SP[a1, a4], a5, a6, a3, n] - 
    S2[a2, SP[a1, a4], a6, a5, a3, n] - S2[a2, SP[a1, a6], a4, a5, a3, n] - 
    S2[a2, SP[a1, a6], a5, a3, a4, n] - S2[a2, SP[a1, a6], a5, a4, a3, n] + 
    S2[a2, SP[a4, a6], a1, a5, a3, n] + S2[a3, a1, a6, a2, SP[a4, a5], n] + 
    S2[a3, a1, a6, SP[a2, a5], a4, n] + S2[a3, a1, SP[a5, a6], a2, a4, n] + 
    S2[a3, SP[a1, a5], a6, a2, a4, n] + S2[a2, n]*S2[a6, a1, a4, a5, a3, n] + 
    S2[a6, a1, a4, a5, SP[a2, a3], n] + S2[a6, a1, a4, SP[a2, a5], a3, n] + 
    S2[a2, n]*S2[a6, a1, a5, a3, a4, n] + S2[a6, a1, a5, a3, SP[a2, a4], n] + 
    S2[a2, n]*S2[a6, a1, a5, a4, a3, n] + S2[a6, a1, a5, a4, SP[a2, a3], n] + 
    S2[a6, a1, a5, SP[a2, a3], a4, n] + S2[a6, a1, a5, SP[a2, a4], a3, n] + 
    S2[a6, a1, SP[a2, a4], a5, a3, n] + S2[a6, a1, SP[a2, a5], a3, a4, n] + 
    S2[a6, a1, SP[a2, a5], a4, a3, n] + S2[a6, SP[a1, a2], a4, a5, a3, n] + 
    S2[a6, SP[a1, a2], a5, a3, a4, n] + S2[a6, SP[a1, a2], a5, a4, a3, n] - 
    S2[SP[a1, a6], a4, a2, a5, a3, n] - S2[SP[a1, a6], a4, a5, a2, a3, n] - 
    S2[SP[a1, a6], a4, a5, a3, a2, n] - S2[SP[a1, a6], a5, a3, a4, a2, n] - 
    S2[SP[a1, a6], a5, a4, a2, a3, n] - S2[SP[a1, a6], a5, a4, a3, a2, n] + 
    S2[SP[a2, a6], a1, a4, a5, a3, n] + S2[SP[a2, a6], a1, a5, a3, a4, n] + 
    S2[SP[a2, a6], a1, a5, a4, a3, n] + S2[SP[a2, a6], a4, a1, a5, a3, n] - 
    S2[a6, a1, a2, a4, a5, a3, n] - S2[a6, a1, a2, a5, a3, a4, n] - 
    S2[a6, a1, a2, a5, a4, a3, n] - S2[a6, a1, a5, a2, a3, a4, n] - 
    S2[a6, a1, a5, a2, a4, a3, n] - S2[a6, a1, a5, a3, a2, a4, n] - 
    S2[a6, a2, a1, a4, a5, a3, n] - S2[a6, a2, a1, a5, a3, a4, n] - 
    S2[a6, a2, a1, a5, a4, a3, n] - S2[a6, a2, a4, a1, a5, a3, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a3_, a5_, a1_, a6_, a4_, a2_, n_] :> 
  S2[a1, a5, a3, n]*S2[a2, a4, a6, n] + S2[SP[a1, a2], SP[a4, a5], 
     SP[a3, a6], n] - S2[a1, a2, SP[a4, a5], SP[a3, a6], n] + 
    S2[a3, a5, n]*S2[a1, a6, a4, a2, n] - S2[a1, a6, SP[a3, a4], SP[a2, a5], 
     n] - S2[a1, SP[a2, a5], a4, SP[a3, a6], n] - 
    S2[a1, SP[a2, a5], SP[a3, a4], a6, n] - S2[a1, SP[a3, a6], a4, 
     SP[a2, a5], n] - S2[a1, SP[a3, a6], SP[a4, a5], a2, n] - 
    S2[a2, a1, SP[a4, a5], SP[a3, a6], n] - S2[a2, SP[a1, a4], a5, 
     SP[a3, a6], n] - S2[a2, SP[a1, a4], SP[a5, a6], a3, n] - 
    S2[SP[a1, a2], a4, a5, SP[a3, a6], n] - S2[SP[a1, a2], a4, SP[a5, a6], 
     a3, n] - S2[SP[a1, a2], a5, a4, SP[a3, a6], n] - 
    S2[SP[a1, a2], a5, SP[a3, a4], a6, n] - S2[SP[a1, a2], SP[a4, a5], a3, 
     a6, n] - S2[SP[a1, a2], SP[a4, a5], a6, a3, n] - 
    S2[SP[a1, a3], a6, a4, SP[a2, a5], n] - S2[SP[a1, a3], a6, SP[a4, a5], 
     a2, n] - S2[SP[a1, a3], SP[a5, a6], a4, a2, n] + 
    S2[a1, a2, a4, a5, SP[a3, a6], n] + S2[a1, a2, a4, SP[a5, a6], a3, n] + 
    S2[a1, a2, a5, a4, SP[a3, a6], n] + S2[a1, a2, a5, SP[a3, a4], a6, n] + 
    S2[a1, a2, SP[a4, a5], a3, a6, n] + S2[a1, a2, SP[a4, a5], a6, a3, n] + 
    S2[a1, a3, a6, a4, SP[a2, a5], n] + S2[a1, a3, a6, SP[a4, a5], a2, n] + 
    S2[a1, a3, SP[a5, a6], a4, a2, n] + S2[a6, n]*S2[a1, a4, a2, a5, a3, n] + 
    S2[a1, a4, a2, a5, SP[a3, a6], n] + S2[a1, a4, a2, SP[a5, a6], a3, n] + 
    S2[a6, n]*S2[a1, a4, a5, a2, a3, n] + S2[a1, a4, a5, a2, SP[a3, a6], n] + 
    S2[a6, n]*S2[a1, a4, a5, a3, a2, n] - 
    S2[a2, n]*S2[a1, a4, a5, a3, a6, n] - 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] - S2[a1, a4, a5, a6, SP[a2, a3], n] - 
    S2[a1, a4, a5, SP[a2, a3], a6, n] + S2[a1, a4, a5, SP[a3, a6], a2, n] - 
    S2[a2, n]*S2[a1, a4, a6, a5, a3, n] - S2[a1, a4, a6, a5, SP[a2, a3], n] - 
    S2[a1, a4, a6, SP[a2, a5], a3, n] - S2[a1, a4, SP[a2, a5], a3, a6, n] - 
    S2[a1, a4, SP[a2, a5], a6, a3, n] + S2[a1, a4, SP[a5, a6], a2, a3, n] + 
    S2[a1, a4, SP[a5, a6], a3, a2, n] + S2[a1, a5, a2, a4, SP[a3, a6], n] + 
    S2[a1, a5, a2, SP[a3, a4], a6, n] + S2[a6, n]*S2[a1, a5, a3, a4, a2, n] - 
    S2[a2, n]*S2[a1, a5, a3, a4, a6, n] - S2[a1, a5, a3, SP[a2, a4], a6, n] + 
    S2[a1, a5, a3, SP[a4, a6], a2, n] + S2[a6, n]*S2[a1, a5, a4, a2, a3, n] + 
    S2[a1, a5, a4, a2, SP[a3, a6], n] + S2[a6, n]*S2[a1, a5, a4, a3, a2, n] - 
    S2[a2, n]*S2[a1, a5, a4, a3, a6, n] - 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] - S2[a1, a5, a4, a6, SP[a2, a3], n] - 
    S2[a1, a5, a4, SP[a2, a3], a6, n] + S2[a1, a5, a4, SP[a3, a6], a2, n] - 
    S2[a3, n]*S2[a1, a5, a6, a4, a2, n] - S2[a1, a5, a6, a4, SP[a2, a3], n] - 
    S2[a1, a5, a6, SP[a3, a4], a2, n] - S2[a1, a5, SP[a2, a4], a3, a6, n] - 
    S2[a1, a5, SP[a2, a4], a6, a3, n] + S2[a1, a5, SP[a4, a6], a2, a3, n] + 
    S2[a1, a5, SP[a4, a6], a3, a2, n] + S2[a1, a6, a3, a4, SP[a2, a5], n] + 
    S2[a1, a6, a3, SP[a4, a5], a2, n] - S2[a3, n]*S2[a1, a6, a4, a2, a5, n] - 
    S2[a1, a6, a4, a2, SP[a3, a5], n] + S2[a1, a6, a4, a3, SP[a2, a5], n] - 
    S2[a3, n]*S2[a1, a6, a4, a5, a2, n] - S2[a1, a6, a4, a5, SP[a2, a3], n] - 
    S2[a1, a6, a4, SP[a3, a5], a2, n] - S2[a3, n]*S2[a1, a6, a5, a4, a2, n] - 
    S2[a1, a6, a5, a4, SP[a2, a3], n] - S2[a1, a6, a5, SP[a3, a4], a2, n] - 
    S2[a1, a6, SP[a3, a5], a4, a2, n] - S2[a1, SP[a2, a4], a5, a3, a6, n] - 
    S2[a1, SP[a2, a4], a5, a6, a3, n] - S2[a1, SP[a2, a4], a6, a5, a3, n] - 
    S2[a1, SP[a3, a5], a6, a4, a2, n] + S2[a1, SP[a4, a6], a2, a5, a3, n] + 
    S2[a1, SP[a4, a6], a5, a2, a3, n] + S2[a1, SP[a4, a6], a5, a3, a2, n] + 
    S2[a1, SP[a5, a6], a3, a4, a2, n] + S2[a1, SP[a5, a6], a4, a2, a3, n] + 
    S2[a1, SP[a5, a6], a4, a3, a2, n] + S2[a2, a1, a4, a5, SP[a3, a6], n] + 
    S2[a2, a1, a4, SP[a5, a6], a3, n] + S2[a2, a1, a5, a4, SP[a3, a6], n] + 
    S2[a2, a1, a5, SP[a3, a4], a6, n] + S2[a2, a1, SP[a4, a5], a3, a6, n] + 
    S2[a2, a1, SP[a4, a5], a6, a3, n] - S2[a6, n]*S2[a2, a4, a1, a5, a3, n] + 
    S2[a2, SP[a1, a4], a5, a3, a6, n] + S2[a2, SP[a1, a4], a5, a6, a3, n] + 
    S2[a2, SP[a1, a4], a6, a5, a3, n] - S2[a2, SP[a4, a6], a1, a5, a3, n] + 
    S2[a3, a1, a6, a4, SP[a2, a5], n] + S2[a3, a1, a6, SP[a4, a5], a2, n] + 
    S2[a3, a1, SP[a5, a6], a4, a2, n] + S2[a3, SP[a1, a5], a6, a4, a2, n] + 
    S2[a2, n]*S2[a6, a4, a1, a5, a3, n] + S2[a6, a4, a1, a5, SP[a2, a3], n] + 
    S2[a6, a4, a1, SP[a2, a5], a3, n] + S2[a6, a4, SP[a1, a2], a5, a3, n] + 
    S2[a6, SP[a2, a4], a1, a5, a3, n] + S2[SP[a1, a6], a4, a2, a5, a3, n] + 
    S2[SP[a1, a6], a4, a5, a2, a3, n] + S2[SP[a1, a6], a4, a5, a3, a2, n] + 
    S2[SP[a1, a6], a5, a3, a4, a2, n] + S2[SP[a1, a6], a5, a4, a2, a3, n] + 
    S2[SP[a1, a6], a5, a4, a3, a2, n] - S2[a6, a1, a4, a2, a5, a3, n] - 
    S2[a6, a1, a4, a5, a2, a3, n] - S2[a6, a1, a4, a5, a3, a2, n] - 
    S2[a6, a1, a5, a3, a4, a2, n] - S2[a6, a1, a5, a4, a2, a3, n] - 
    S2[a6, a1, a5, a4, a3, a2, n] - S2[a6, a4, a1, a2, a5, a3, n] - 
    S2[a6, a4, a1, a5, a2, a3, n] - S2[a6, a4, a1, a5, a3, a2, n] - 
    S2[a6, a4, a2, a1, a5, a3, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a3_, a5_, a2_, a1_, a4_, a6_, n_] :> 
  S2[a1, a4, a6, n]*S2[a2, a5, a3, n] + S2[SP[a1, a2], SP[a4, a5], 
     SP[a3, a6], n] - S2[a3, a5, n]*S2[a1, a2, a4, a6, n] - 
    S2[a4, a6, n]*S2[a1, a2, a5, a3, n] + S2[a1, a2, SP[a3, a4], SP[a5, a6], 
     n] - S2[a3, a5, n]*S2[a1, a4, a2, a6, n] - 
    S2[a3, a5, n]*S2[a1, a4, a6, a2, n] + S2[a1, a4, SP[a2, a3], SP[a5, a6], 
     n] + S2[a1, a4, SP[a3, a6], SP[a2, a5], n] + S2[a1, SP[a2, a3], a4, 
     SP[a5, a6], n] + S2[a1, SP[a2, a3], SP[a4, a5], a6, n] + 
    S2[a1, SP[a3, a4], a2, SP[a5, a6], n] + S2[a1, SP[a3, a4], a6, 
     SP[a2, a5], n] + S2[a1, SP[a3, a4], SP[a2, a5], a6, n] + 
    S2[a1, SP[a3, a4], SP[a5, a6], a2, n] - S2[a2, a1, SP[a4, a5], 
     SP[a3, a6], n] - S2[a2, SP[a1, a5], a4, SP[a3, a6], n] - 
    S2[a2, SP[a1, a5], SP[a3, a4], a6, n] - S2[SP[a1, a2], a4, a5, 
     SP[a3, a6], n] - S2[SP[a1, a2], a4, SP[a5, a6], a3, n] - 
    S2[SP[a1, a2], a5, a4, SP[a3, a6], n] - S2[SP[a1, a2], a5, SP[a3, a4], 
     a6, n] - S2[SP[a1, a2], SP[a4, a5], a3, a6, n] - 
    S2[SP[a1, a2], SP[a4, a5], a6, a3, n] + S2[SP[a1, a3], a2, a4, 
     SP[a5, a6], n] + S2[SP[a1, a3], a2, SP[a4, a5], a6, n] + 
    S2[SP[a1, a3], a4, a2, SP[a5, a6], n] + S2[SP[a1, a3], a4, a6, 
     SP[a2, a5], n] + S2[SP[a1, a3], a4, SP[a2, a5], a6, n] + 
    S2[SP[a1, a3], a4, SP[a5, a6], a2, n] + S2[SP[a1, a3], SP[a2, a5], a4, 
     a6, n] + S2[SP[a1, a3], SP[a4, a5], a2, a6, n] + 
    S2[SP[a1, a3], SP[a4, a5], a6, a2, n] + S2[SP[a1, a4], a2, a5, 
     SP[a3, a6], n] + S2[SP[a1, a4], a2, SP[a5, a6], a3, n] + 
    S2[SP[a1, a4], SP[a2, a6], a5, a3, n] - S2[a1, a2, a3, a4, SP[a5, a6], 
     n] - S2[a1, a2, a3, SP[a4, a5], a6, n] - S2[a1, a2, a4, a3, SP[a5, a6], 
     n] - S2[a6, n]*S2[a1, a2, a4, a5, a3, n] + 
    S2[a3, n]*S2[a1, a2, a4, a5, a6, n] + 
    S2[a3, n]*S2[a1, a2, a4, a6, a5, n] + S2[a1, a2, a4, a6, SP[a3, a5], n] + 
    S2[a1, a2, a4, SP[a3, a5], a6, n] - S2[a1, a2, a4, SP[a5, a6], a3, n] - 
    S2[a6, n]*S2[a1, a2, a5, a3, a4, n] + 
    S2[a4, n]*S2[a1, a2, a5, a3, a6, n] - 
    S2[a6, n]*S2[a1, a2, a5, a4, a3, n] + 
    S2[a3, n]*S2[a1, a2, a5, a4, a6, n] + 
    S2[a4, n]*S2[a1, a2, a5, a6, a3, n] + S2[a1, a2, a5, a6, SP[a3, a4], n] + 
    2*S2[a1, a2, a5, SP[a3, a4], a6, n] - S2[a1, a2, a5, SP[a3, a6], a4, n] + 
    S2[a4, n]*S2[a1, a2, a6, a5, a3, n] + S2[a1, a2, a6, a5, SP[a3, a4], n] + 
    S2[a1, a2, a6, SP[a4, a5], a3, n] + S2[a1, a2, SP[a3, a5], a4, a6, n] + 
    S2[a1, a2, SP[a4, a5], a3, a6, n] + S2[a1, a2, SP[a4, a5], a6, a3, n] - 
    S2[a1, a2, SP[a5, a6], a3, a4, n] - S2[a1, a2, SP[a5, a6], a4, a3, n] - 
    S2[a1, a3, a2, a4, SP[a5, a6], n] - S2[a1, a3, a2, SP[a4, a5], a6, n] - 
    S2[a1, a3, a4, a2, SP[a5, a6], n] - S2[a1, a3, a4, a6, SP[a2, a5], n] - 
    S2[a1, a3, a4, SP[a2, a5], a6, n] - S2[a1, a3, a4, SP[a5, a6], a2, n] - 
    S2[a1, a3, SP[a2, a5], a4, a6, n] - S2[a1, a3, SP[a4, a5], a2, a6, n] - 
    S2[a1, a3, SP[a4, a5], a6, a2, n] - S2[a1, a4, a2, a3, SP[a5, a6], n] - 
    S2[a6, n]*S2[a1, a4, a2, a5, a3, n] + 
    S2[a3, n]*S2[a1, a4, a2, a5, a6, n] + 
    S2[a3, n]*S2[a1, a4, a2, a6, a5, n] + S2[a1, a4, a2, a6, SP[a3, a5], n] + 
    S2[a1, a4, a2, SP[a3, a5], a6, n] - S2[a1, a4, a2, SP[a5, a6], a3, n] - 
    S2[a1, a4, a3, a2, SP[a5, a6], n] - S2[a1, a4, a3, a6, SP[a2, a5], n] - 
    S2[a1, a4, a3, SP[a2, a5], a6, n] - S2[a1, a4, a3, SP[a5, a6], a2, n] + 
    S2[a3, n]*S2[a1, a4, a5, a2, a6, n] + S2[a1, a4, a5, a2, SP[a3, a6], n] - 
    S2[a2, n]*S2[a1, a4, a5, a3, a6, n] - S2[a1, a4, a5, a3, SP[a2, a6], n] + 
    S2[a3, n]*S2[a1, a4, a5, a6, a2, n] - 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] - S2[a1, a4, a5, SP[a2, a6], a3, n] + 
    S2[a1, a4, a5, SP[a3, a6], a2, n] + S2[a3, n]*S2[a1, a4, a6, a2, a5, n] + 
    S2[a1, a4, a6, a2, SP[a3, a5], n] - S2[a1, a4, a6, a3, SP[a2, a5], n] + 
    S2[a3, n]*S2[a1, a4, a6, a5, a2, n] - 
    S2[a2, n]*S2[a1, a4, a6, a5, a3, n] - S2[a1, a4, a6, SP[a2, a5], a3, n] + 
    S2[a1, a4, a6, SP[a3, a5], a2, n] - S2[a1, a4, SP[a2, a5], a3, a6, n] - 
    S2[a1, a4, SP[a2, a5], a6, a3, n] - 2*S2[a1, a4, SP[a2, a6], a5, a3, n] + 
    S2[a1, a4, SP[a3, a5], a2, a6, n] + S2[a1, a4, SP[a3, a5], a6, a2, n] + 
    S2[a3, n]*S2[a1, a5, a2, a4, a6, n] + S2[a1, a5, a2, a4, SP[a3, a6], n] + 
    S2[a1, a5, a2, SP[a3, a4], a6, n] - S2[a2, n]*S2[a1, a5, a3, a4, a6, n] - 
    S2[a1, a5, a3, a4, SP[a2, a6], n] - S2[a1, a5, a3, SP[a2, a4], a6, n] + 
    S2[a3, n]*S2[a1, a5, a4, a2, a6, n] + S2[a1, a5, a4, a2, SP[a3, a6], n] - 
    S2[a2, n]*S2[a1, a5, a4, a3, a6, n] - S2[a1, a5, a4, a3, SP[a2, a6], n] + 
    S2[a3, n]*S2[a1, a5, a4, a6, a2, n] - 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] - S2[a1, a5, a4, SP[a2, a6], a3, n] + 
    S2[a1, a5, a4, SP[a3, a6], a2, n] - S2[a1, a5, SP[a2, a4], a3, a6, n] - 
    S2[a1, a5, SP[a2, a4], a6, a3, n] + S2[a1, a5, SP[a3, a4], a2, a6, n] + 
    S2[a1, a5, SP[a3, a4], a6, a2, n] + S2[a4, n]*S2[a1, a6, a2, a5, a3, n] + 
    S2[a1, a6, a2, a5, SP[a3, a4], n] + S2[a1, a6, a2, SP[a4, a5], a3, n] + 
    S2[a1, a6, SP[a2, a4], a5, a3, n] - S2[a1, SP[a2, a5], a3, a4, a6, n] - 
    S2[a1, SP[a2, a5], a4, a3, a6, n] - S2[a1, SP[a2, a5], a4, a6, a3, n] - 
    S2[a1, SP[a2, a6], a4, a5, a3, n] - S2[a1, SP[a2, a6], a5, a3, a4, n] - 
    S2[a1, SP[a2, a6], a5, a4, a3, n] + S2[a1, SP[a3, a5], a2, a4, a6, n] + 
    S2[a1, SP[a3, a5], a4, a2, a6, n] + S2[a1, SP[a3, a5], a4, a6, a2, n] + 
    S2[a2, a1, a4, a5, SP[a3, a6], n] + S2[a2, a1, a4, SP[a5, a6], a3, n] + 
    S2[a2, a1, a5, a4, SP[a3, a6], n] + S2[a2, a1, a5, SP[a3, a4], a6, n] + 
    S2[a2, a1, SP[a4, a5], a3, a6, n] + S2[a2, a1, SP[a4, a5], a6, a3, n] - 
    S2[a3, n]*S2[a2, a5, a1, a4, a6, n] + S2[a2, SP[a1, a5], a3, a4, a6, n] + 
    S2[a2, SP[a1, a5], a4, a3, a6, n] + S2[a2, SP[a1, a5], a4, a6, a3, n] - 
    S2[a2, SP[a3, a5], a1, a4, a6, n] - S2[a3, a1, a2, a4, SP[a5, a6], n] - 
    S2[a3, a1, a2, SP[a4, a5], a6, n] - S2[a3, a1, a4, a2, SP[a5, a6], n] - 
    S2[a3, a1, a4, a6, SP[a2, a5], n] - S2[a3, a1, a4, SP[a2, a5], a6, n] - 
    S2[a3, a1, a4, SP[a5, a6], a2, n] - S2[a3, a1, SP[a2, a5], a4, a6, n] - 
    S2[a3, a1, SP[a4, a5], a2, a6, n] - S2[a3, a1, SP[a4, a5], a6, a2, n] + 
    S2[a2, n]*S2[a3, a5, a1, a4, a6, n] + S2[a3, a5, a1, a4, SP[a2, a6], n] + 
    S2[a3, a5, a1, SP[a2, a4], a6, n] + S2[a3, a5, SP[a1, a2], a4, a6, n] - 
    S2[a3, SP[a1, a5], a2, a4, a6, n] - S2[a3, SP[a1, a5], a4, a2, a6, n] - 
    S2[a3, SP[a1, a5], a4, a6, a2, n] + S2[a3, SP[a2, a5], a1, a4, a6, n] - 
    S2[a4, a1, a2, a5, SP[a3, a6], n] - S2[a4, a1, a2, SP[a5, a6], a3, n] - 
    S2[a4, a1, SP[a2, a6], a5, a3, n] - S2[a4, SP[a1, a6], a2, a5, a3, n] + 
    S2[a4, n]*S2[a6, a1, a2, a5, a3, n] + S2[a6, a1, a2, a5, SP[a3, a4], n] + 
    S2[a6, a1, a2, SP[a4, a5], a3, n] + S2[a6, a1, SP[a2, a4], a5, a3, n] + 
    S2[a6, SP[a1, a4], a2, a5, a3, n] - S2[SP[a1, a6], a2, a4, a5, a3, n] - 
    S2[SP[a1, a6], a2, a5, a3, a4, n] - S2[SP[a1, a6], a2, a5, a4, a3, n] - 
    S2[SP[a1, a6], a4, a2, a5, a3, n] + S2[SP[a4, a6], a1, a2, a5, a3, n] - 
    S2[a6, a4, a1, a2, a5, a3, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a3_, a5_, a2_, a1_, a6_, a4_, n_] :> 
  S2[a1, a6, a4, n]*S2[a2, a5, a3, n] + S2[SP[a1, a2], SP[a5, a6], 
     SP[a3, a4], n] + S2[a4, a6, n]*S2[a1, a2, a5, a3, n] - 
    S2[a3, a5, n]*S2[a1, a2, a6, a4, n] + S2[a1, a2, SP[a3, a6], SP[a4, a5], 
     n] - S2[a1, a2, SP[a4, a5], SP[a3, a6], n] - S2[a1, a2, SP[a5, a6], 
     SP[a3, a4], n] - S2[a3, a5, n]*S2[a1, a6, a2, a4, n] - 
    S2[a3, a5, n]*S2[a1, a6, a4, a2, n] + S2[a1, a6, SP[a2, a3], SP[a4, a5], 
     n] + S2[a1, a6, SP[a3, a4], SP[a2, a5], n] + S2[a1, SP[a2, a3], a6, 
     SP[a4, a5], n] + S2[a1, SP[a2, a3], SP[a5, a6], a4, n] - 
    S2[a1, SP[a2, a4], a5, SP[a3, a6], n] - S2[a1, SP[a2, a4], SP[a5, a6], 
     a3, n] - S2[a1, SP[a2, a6], a5, SP[a3, a4], n] - 
    S2[a1, SP[a2, a6], SP[a4, a5], a3, n] + S2[a1, SP[a3, a6], a2, 
     SP[a4, a5], n] + S2[a1, SP[a3, a6], a4, SP[a2, a5], n] + 
    S2[a1, SP[a3, a6], SP[a2, a5], a4, n] + S2[a1, SP[a3, a6], SP[a4, a5], 
     a2, n] - S2[a2, a1, SP[a5, a6], SP[a3, a4], n] - 
    S2[a2, SP[a1, a5], a6, SP[a3, a4], n] - S2[a2, SP[a1, a5], SP[a3, a6], 
     a4, n] - S2[SP[a1, a2], a5, a6, SP[a3, a4], n] - 
    S2[SP[a1, a2], a5, SP[a3, a6], a4, n] - S2[SP[a1, a2], a6, a5, 
     SP[a3, a4], n] - S2[SP[a1, a2], a6, SP[a4, a5], a3, n] - 
    S2[SP[a1, a2], SP[a5, a6], a3, a4, n] - S2[SP[a1, a2], SP[a5, a6], a4, 
     a3, n] + S2[SP[a1, a3], a2, a6, SP[a4, a5], n] + 
    S2[SP[a1, a3], a2, SP[a5, a6], a4, n] + S2[SP[a1, a3], a6, a2, 
     SP[a4, a5], n] + S2[SP[a1, a3], a6, a4, SP[a2, a5], n] + 
    S2[SP[a1, a3], a6, SP[a2, a5], a4, n] + S2[SP[a1, a3], a6, SP[a4, a5], 
     a2, n] + S2[SP[a1, a3], SP[a2, a5], a6, a4, n] + 
    S2[SP[a1, a3], SP[a5, a6], a2, a4, n] + S2[SP[a1, a3], SP[a5, a6], a4, 
     a2, n] - S2[SP[a1, a4], a2, a5, SP[a3, a6], n] - 
    S2[SP[a1, a4], a2, SP[a5, a6], a3, n] - S2[SP[a1, a4], SP[a2, a6], a5, 
     a3, n] - S2[a1, a2, a3, a6, SP[a4, a5], n] - S2[a1, a2, a3, SP[a5, a6], 
     a4, n] + S2[a1, a2, a4, a5, SP[a3, a6], n] + S2[a1, a2, a4, SP[a5, a6], 
     a3, n] - S2[a4, n]*S2[a1, a2, a5, a3, a6, n] - 
    S2[a1, a2, a5, a3, SP[a4, a6], n] + S2[a1, a2, a5, a4, SP[a3, a6], n] - 
    S2[a4, n]*S2[a1, a2, a5, a6, a3, n] + 
    S2[a3, n]*S2[a1, a2, a5, a6, a4, n] + S2[a1, a2, a5, a6, SP[a3, a4], n] + 
    2*S2[a1, a2, a5, SP[a3, a6], a4, n] - S2[a1, a2, a5, SP[a4, a6], a3, n] - 
    S2[a1, a2, a6, a3, SP[a4, a5], n] + S2[a3, n]*S2[a1, a2, a6, a4, a5, n] + 
    S2[a1, a2, a6, a4, SP[a3, a5], n] - S2[a4, n]*S2[a1, a2, a6, a5, a3, n] + 
    S2[a3, n]*S2[a1, a2, a6, a5, a4, n] + S2[a1, a2, a6, a5, SP[a3, a4], n] + 
    S2[a1, a2, a6, SP[a3, a5], a4, n] + S2[a1, a2, SP[a3, a5], a6, a4, n] - 
    S2[a1, a2, SP[a4, a6], a5, a3, n] + S2[a1, a2, SP[a5, a6], a3, a4, n] + 
    S2[a1, a2, SP[a5, a6], a4, a3, n] - S2[a1, a3, a2, a6, SP[a4, a5], n] - 
    S2[a1, a3, a2, SP[a5, a6], a4, n] - S2[a1, a3, a6, a2, SP[a4, a5], n] - 
    S2[a1, a3, a6, a4, SP[a2, a5], n] - S2[a1, a3, a6, SP[a2, a5], a4, n] - 
    S2[a1, a3, a6, SP[a4, a5], a2, n] - S2[a1, a3, SP[a2, a5], a6, a4, n] - 
    S2[a1, a3, SP[a5, a6], a2, a4, n] - S2[a1, a3, SP[a5, a6], a4, a2, n] + 
    S2[a1, a4, a2, a5, SP[a3, a6], n] + S2[a1, a4, a2, SP[a5, a6], a3, n] + 
    S2[a1, a4, SP[a2, a6], a5, a3, n] + S2[a3, n]*S2[a1, a5, a2, a6, a4, n] + 
    S2[a1, a5, a2, a6, SP[a3, a4], n] + S2[a1, a5, a2, SP[a3, a6], a4, n] - 
    S2[a2, n]*S2[a1, a5, a3, a6, a4, n] - S2[a1, a5, a3, a6, SP[a2, a4], n] - 
    S2[a1, a5, a3, SP[a2, a6], a4, n] + S2[a3, n]*S2[a1, a5, a6, a2, a4, n] + 
    S2[a1, a5, a6, a2, SP[a3, a4], n] - S2[a2, n]*S2[a1, a5, a6, a3, a4, n] - 
    S2[a1, a5, a6, a3, SP[a2, a4], n] + S2[a3, n]*S2[a1, a5, a6, a4, a2, n] - 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] - S2[a1, a5, a6, SP[a2, a4], a3, n] + 
    S2[a1, a5, a6, SP[a3, a4], a2, n] - S2[a1, a5, SP[a2, a6], a3, a4, n] - 
    S2[a1, a5, SP[a2, a6], a4, a3, n] + S2[a1, a5, SP[a3, a6], a2, a4, n] + 
    S2[a1, a5, SP[a3, a6], a4, a2, n] - S2[a1, a6, a2, a3, SP[a4, a5], n] + 
    S2[a3, n]*S2[a1, a6, a2, a4, a5, n] + S2[a1, a6, a2, a4, SP[a3, a5], n] - 
    S2[a4, n]*S2[a1, a6, a2, a5, a3, n] + 
    S2[a3, n]*S2[a1, a6, a2, a5, a4, n] + S2[a1, a6, a2, a5, SP[a3, a4], n] + 
    S2[a1, a6, a2, SP[a3, a5], a4, n] - S2[a1, a6, a3, a2, SP[a4, a5], n] - 
    S2[a1, a6, a3, a4, SP[a2, a5], n] - S2[a1, a6, a3, SP[a2, a5], a4, n] - 
    S2[a1, a6, a3, SP[a4, a5], a2, n] + S2[a3, n]*S2[a1, a6, a4, a2, a5, n] + 
    S2[a1, a6, a4, a2, SP[a3, a5], n] - S2[a1, a6, a4, a3, SP[a2, a5], n] + 
    S2[a3, n]*S2[a1, a6, a4, a5, a2, n] - 
    S2[a2, n]*S2[a1, a6, a4, a5, a3, n] - S2[a1, a6, a4, SP[a2, a5], a3, n] + 
    S2[a1, a6, a4, SP[a3, a5], a2, n] + S2[a3, n]*S2[a1, a6, a5, a2, a4, n] + 
    S2[a1, a6, a5, a2, SP[a3, a4], n] - S2[a2, n]*S2[a1, a6, a5, a3, a4, n] - 
    S2[a1, a6, a5, a3, SP[a2, a4], n] + S2[a3, n]*S2[a1, a6, a5, a4, a2, n] - 
    S2[a2, n]*S2[a1, a6, a5, a4, a3, n] - S2[a1, a6, a5, SP[a2, a4], a3, n] + 
    S2[a1, a6, a5, SP[a3, a4], a2, n] - S2[a1, a6, SP[a2, a4], a5, a3, n] - 
    S2[a1, a6, SP[a2, a5], a3, a4, n] - S2[a1, a6, SP[a2, a5], a4, a3, n] + 
    S2[a1, a6, SP[a3, a5], a2, a4, n] + S2[a1, a6, SP[a3, a5], a4, a2, n] - 
    S2[a1, SP[a2, a5], a3, a6, a4, n] - S2[a1, SP[a2, a5], a6, a3, a4, n] - 
    S2[a1, SP[a2, a5], a6, a4, a3, n] + S2[a1, SP[a3, a5], a2, a6, a4, n] + 
    S2[a1, SP[a3, a5], a6, a2, a4, n] + S2[a1, SP[a3, a5], a6, a4, a2, n] - 
    S2[a1, SP[a4, a6], a2, a5, a3, n] + S2[a2, a1, a5, a6, SP[a3, a4], n] + 
    S2[a2, a1, a5, SP[a3, a6], a4, n] + S2[a2, a1, a6, a5, SP[a3, a4], n] + 
    S2[a2, a1, a6, SP[a4, a5], a3, n] + S2[a2, a1, SP[a5, a6], a3, a4, n] + 
    S2[a2, a1, SP[a5, a6], a4, a3, n] - S2[a3, n]*S2[a2, a5, a1, a6, a4, n] + 
    S2[a2, SP[a1, a5], a3, a6, a4, n] + S2[a2, SP[a1, a5], a6, a3, a4, n] + 
    S2[a2, SP[a1, a5], a6, a4, a3, n] - S2[a2, SP[a3, a5], a1, a6, a4, n] - 
    S2[a3, a1, a2, a6, SP[a4, a5], n] - S2[a3, a1, a2, SP[a5, a6], a4, n] - 
    S2[a3, a1, a6, a2, SP[a4, a5], n] - S2[a3, a1, a6, a4, SP[a2, a5], n] - 
    S2[a3, a1, a6, SP[a2, a5], a4, n] - S2[a3, a1, a6, SP[a4, a5], a2, n] - 
    S2[a3, a1, SP[a2, a5], a6, a4, n] - S2[a3, a1, SP[a5, a6], a2, a4, n] - 
    S2[a3, a1, SP[a5, a6], a4, a2, n] + S2[a2, n]*S2[a3, a5, a1, a6, a4, n] + 
    S2[a3, a5, a1, a6, SP[a2, a4], n] + S2[a3, a5, a1, SP[a2, a6], a4, n] + 
    S2[a3, a5, SP[a1, a2], a6, a4, n] - S2[a3, SP[a1, a5], a2, a6, a4, n] - 
    S2[a3, SP[a1, a5], a6, a2, a4, n] - S2[a3, SP[a1, a5], a6, a4, a2, n] + 
    S2[a3, SP[a2, a5], a1, a6, a4, n] + S2[a4, a1, a2, a5, SP[a3, a6], n] + 
    S2[a4, a1, a2, SP[a5, a6], a3, n] + S2[a4, a1, SP[a2, a6], a5, a3, n] + 
    S2[a4, SP[a1, a6], a2, a5, a3, n] - S2[a4, n]*S2[a6, a1, a2, a5, a3, n] - 
    S2[a6, a1, a2, a5, SP[a3, a4], n] - S2[a6, a1, a2, SP[a4, a5], a3, n] - 
    S2[a6, a1, SP[a2, a4], a5, a3, n] - S2[a6, SP[a1, a4], a2, a5, a3, n] - 
    S2[SP[a4, a6], a1, a2, a5, a3, n] + S2[a6, a1, a2, a4, a5, a3, n] + 
    S2[a6, a1, a2, a5, a3, a4, n] + S2[a6, a1, a2, a5, a4, a3, n] + 
    S2[a6, a1, a4, a2, a5, a3, n] + S2[a6, a4, a1, a2, a5, a3, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a3_, a5_, a2_, a4_, a1_, a6_, n_] :> 
  -(S2[a1, a4, a6, n]*S2[a2, a5, a3, n]) - S2[a1, a6, a4, n]*
     S2[a2, a5, a3, n] - S2[SP[a1, a2], SP[a4, a5], SP[a3, a6], n] - 
    S2[SP[a1, a2], SP[a5, a6], SP[a3, a4], n] + S2[a1, a2, SP[a4, a5], 
     SP[a3, a6], n] + S2[a1, a2, SP[a5, a6], SP[a3, a4], n] + 
    S2[a3, a5, n]*S2[a1, a4, a2, a6, n] + S2[a3, a5, n]*
     S2[a1, a4, a6, a2, n] - S2[a1, a4, SP[a2, a3], SP[a5, a6], n] - 
    S2[a1, a4, SP[a3, a6], SP[a2, a5], n] + S2[a3, a5, n]*
     S2[a1, a6, a4, a2, n] - S2[a1, a6, SP[a3, a4], SP[a2, a5], n] + 
    S2[a1, SP[a2, a4], a5, SP[a3, a6], n] + S2[a1, SP[a2, a4], SP[a5, a6], 
     a3, n] + S2[a1, SP[a2, a6], a5, SP[a3, a4], n] + 
    S2[a1, SP[a2, a6], SP[a4, a5], a3, n] - S2[a1, SP[a3, a4], a2, 
     SP[a5, a6], n] - S2[a1, SP[a3, a4], a6, SP[a2, a5], n] - 
    S2[a1, SP[a3, a4], SP[a2, a5], a6, n] - S2[a1, SP[a3, a4], SP[a5, a6], 
     a2, n] - S2[a1, SP[a3, a6], a4, SP[a2, a5], n] - 
    S2[a1, SP[a3, a6], SP[a4, a5], a2, n] + S2[a2, a1, SP[a4, a5], 
     SP[a3, a6], n] + S2[a2, a1, SP[a5, a6], SP[a3, a4], n] + 
    S2[a2, SP[a1, a5], a4, SP[a3, a6], n] + S2[a2, SP[a1, a5], a6, 
     SP[a3, a4], n] + S2[a2, SP[a1, a5], SP[a3, a4], a6, n] + 
    S2[a2, SP[a1, a5], SP[a3, a6], a4, n] + S2[a1, a6, n]*
     S2[a3, a5, a2, a4, n] - S2[a3, a5, SP[a1, a2], SP[a4, a6], n] - 
    S2[a3, SP[a1, a5], a2, SP[a4, a6], n] - S2[a3, SP[a1, a5], SP[a2, a6], 
     a4, n] + S2[SP[a1, a2], a4, a5, SP[a3, a6], n] + 
    S2[SP[a1, a2], a4, SP[a5, a6], a3, n] + S2[SP[a1, a2], a5, a4, 
     SP[a3, a6], n] + S2[SP[a1, a2], a5, a6, SP[a3, a4], n] + 
    S2[SP[a1, a2], a5, SP[a3, a4], a6, n] + S2[SP[a1, a2], a5, SP[a3, a6], 
     a4, n] + S2[SP[a1, a2], a6, a5, SP[a3, a4], n] + 
    S2[SP[a1, a2], a6, SP[a4, a5], a3, n] + S2[SP[a1, a2], SP[a4, a5], a3, 
     a6, n] + S2[SP[a1, a2], SP[a4, a5], a6, a3, n] + 
    S2[SP[a1, a2], SP[a5, a6], a3, a4, n] + S2[SP[a1, a2], SP[a5, a6], a4, 
     a3, n] - S2[SP[a1, a3], a4, a2, SP[a5, a6], n] - 
    S2[SP[a1, a3], a4, a6, SP[a2, a5], n] - S2[SP[a1, a3], a4, SP[a2, a5], 
     a6, n] - S2[SP[a1, a3], a4, SP[a5, a6], a2, n] - 
    S2[SP[a1, a3], a5, a2, SP[a4, a6], n] - S2[SP[a1, a3], a5, SP[a2, a6], 
     a4, n] - S2[SP[a1, a3], a6, a4, SP[a2, a5], n] - 
    S2[SP[a1, a3], a6, SP[a4, a5], a2, n] - S2[SP[a1, a3], SP[a4, a5], a2, 
     a6, n] - S2[SP[a1, a3], SP[a4, a5], a6, a2, n] - 
    S2[SP[a1, a3], SP[a5, a6], a2, a4, n] - S2[SP[a1, a3], SP[a5, a6], a4, 
     a2, n] - S2[a1, a2, a4, a5, SP[a3, a6], n] - S2[a1, a2, a4, SP[a5, a6], 
     a3, n] - S2[a1, a2, a5, a4, SP[a3, a6], n] - 
    S2[a1, a2, a5, a6, SP[a3, a4], n] - S2[a1, a2, a5, SP[a3, a4], a6, n] - 
    S2[a1, a2, a5, SP[a3, a6], a4, n] - S2[a1, a2, a6, a5, SP[a3, a4], n] - 
    S2[a1, a2, a6, SP[a4, a5], a3, n] - S2[a1, a2, SP[a4, a5], a3, a6, n] - 
    S2[a1, a2, SP[a4, a5], a6, a3, n] - S2[a1, a2, SP[a5, a6], a3, a4, n] - 
    S2[a1, a2, SP[a5, a6], a4, a3, n] + S2[a1, a3, a4, a2, SP[a5, a6], n] + 
    S2[a1, a3, a4, a6, SP[a2, a5], n] + S2[a1, a3, a4, SP[a2, a5], a6, n] + 
    S2[a1, a3, a4, SP[a5, a6], a2, n] + S2[a1, a3, a5, a2, SP[a4, a6], n] + 
    S2[a1, a3, a5, SP[a2, a6], a4, n] + S2[a1, a3, a6, a4, SP[a2, a5], n] + 
    S2[a1, a3, a6, SP[a4, a5], a2, n] + S2[a1, a3, SP[a4, a5], a2, a6, n] + 
    S2[a1, a3, SP[a4, a5], a6, a2, n] + S2[a1, a3, SP[a5, a6], a2, a4, n] + 
    S2[a1, a3, SP[a5, a6], a4, a2, n] + S2[a1, a4, a2, a3, SP[a5, a6], n] + 
    S2[a6, n]*S2[a1, a4, a2, a5, a3, n] - 
    S2[a3, n]*S2[a1, a4, a2, a5, a6, n] - S2[a1, a4, a2, a5, SP[a3, a6], n] - 
    S2[a3, n]*S2[a1, a4, a2, a6, a5, n] - S2[a1, a4, a2, a6, SP[a3, a5], n] - 
    S2[a1, a4, a2, SP[a3, a5], a6, n] + S2[a1, a4, a3, a2, SP[a5, a6], n] + 
    S2[a1, a4, a3, a6, SP[a2, a5], n] + S2[a1, a4, a3, SP[a2, a5], a6, n] + 
    S2[a1, a4, a3, SP[a5, a6], a2, n] - S2[a3, n]*S2[a1, a4, a5, a2, a6, n] - 
    S2[a1, a4, a5, a2, SP[a3, a6], n] + S2[a2, n]*S2[a1, a4, a5, a3, a6, n] + 
    S2[a1, a4, a5, a3, SP[a2, a6], n] - S2[a3, n]*S2[a1, a4, a5, a6, a2, n] + 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] + S2[a1, a4, a5, SP[a2, a6], a3, n] - 
    S2[a1, a4, a5, SP[a3, a6], a2, n] - S2[a3, n]*S2[a1, a4, a6, a2, a5, n] - 
    S2[a1, a4, a6, a2, SP[a3, a5], n] + S2[a1, a4, a6, a3, SP[a2, a5], n] - 
    S2[a3, n]*S2[a1, a4, a6, a5, a2, n] + 
    S2[a2, n]*S2[a1, a4, a6, a5, a3, n] + S2[a1, a4, a6, SP[a2, a5], a3, n] - 
    S2[a1, a4, a6, SP[a3, a5], a2, n] + S2[a1, a4, SP[a2, a5], a3, a6, n] + 
    S2[a1, a4, SP[a2, a5], a6, a3, n] + S2[a1, a4, SP[a2, a6], a5, a3, n] - 
    S2[a1, a4, SP[a3, a5], a2, a6, n] - S2[a1, a4, SP[a3, a5], a6, a2, n] - 
    S2[a3, n]*S2[a1, a5, a2, a4, a6, n] - S2[a1, a5, a2, a4, SP[a3, a6], n] - 
    S2[a3, n]*S2[a1, a5, a2, a6, a4, n] - S2[a1, a5, a2, a6, SP[a3, a4], n] - 
    S2[a1, a5, a2, SP[a3, a4], a6, n] - S2[a1, a5, a2, SP[a3, a6], a4, n] + 
    S2[a2, n]*S2[a1, a5, a3, a4, a6, n] + S2[a1, a5, a3, a4, SP[a2, a6], n] + 
    S2[a2, n]*S2[a1, a5, a3, a6, a4, n] + S2[a1, a5, a3, a6, SP[a2, a4], n] + 
    S2[a1, a5, a3, SP[a2, a4], a6, n] + S2[a1, a5, a3, SP[a2, a6], a4, n] - 
    S2[a3, n]*S2[a1, a5, a4, a2, a6, n] - S2[a1, a5, a4, a2, SP[a3, a6], n] + 
    S2[a2, n]*S2[a1, a5, a4, a3, a6, n] + S2[a1, a5, a4, a3, SP[a2, a6], n] - 
    S2[a3, n]*S2[a1, a5, a4, a6, a2, n] + 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] + S2[a1, a5, a4, SP[a2, a6], a3, n] - 
    S2[a1, a5, a4, SP[a3, a6], a2, n] - S2[a3, n]*S2[a1, a5, a6, a2, a4, n] - 
    S2[a1, a5, a6, a2, SP[a3, a4], n] + S2[a2, n]*S2[a1, a5, a6, a3, a4, n] + 
    S2[a1, a5, a6, a3, SP[a2, a4], n] - S2[a3, n]*S2[a1, a5, a6, a4, a2, n] + 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] + S2[a1, a5, a6, SP[a2, a4], a3, n] - 
    S2[a1, a5, a6, SP[a3, a4], a2, n] + S2[a1, a5, SP[a2, a4], a3, a6, n] + 
    S2[a1, a5, SP[a2, a4], a6, a3, n] + S2[a1, a5, SP[a2, a6], a3, a4, n] + 
    S2[a1, a5, SP[a2, a6], a4, a3, n] - S2[a1, a5, SP[a3, a4], a2, a6, n] - 
    S2[a1, a5, SP[a3, a4], a6, a2, n] - S2[a1, a5, SP[a3, a6], a2, a4, n] - 
    S2[a1, a5, SP[a3, a6], a4, a2, n] - S2[a1, a6, a2, a5, SP[a3, a4], n] - 
    S2[a1, a6, a2, SP[a4, a5], a3, n] + S2[a1, a6, a3, a4, SP[a2, a5], n] + 
    S2[a1, a6, a3, SP[a4, a5], a2, n] - S2[a3, n]*S2[a1, a6, a4, a2, a5, n] - 
    S2[a1, a6, a4, a2, SP[a3, a5], n] + S2[a1, a6, a4, a3, SP[a2, a5], n] - 
    S2[a3, n]*S2[a1, a6, a4, a5, a2, n] + 
    S2[a2, n]*S2[a1, a6, a4, a5, a3, n] + S2[a1, a6, a4, SP[a2, a5], a3, n] - 
    S2[a1, a6, a4, SP[a3, a5], a2, n] - S2[a3, n]*S2[a1, a6, a5, a2, a4, n] - 
    S2[a1, a6, a5, a2, SP[a3, a4], n] + S2[a2, n]*S2[a1, a6, a5, a3, a4, n] + 
    S2[a1, a6, a5, a3, SP[a2, a4], n] - S2[a3, n]*S2[a1, a6, a5, a4, a2, n] + 
    S2[a2, n]*S2[a1, a6, a5, a4, a3, n] + S2[a1, a6, a5, SP[a2, a4], a3, n] - 
    S2[a1, a6, a5, SP[a3, a4], a2, n] + S2[a1, a6, SP[a2, a5], a3, a4, n] + 
    S2[a1, a6, SP[a2, a5], a4, a3, n] - S2[a1, a6, SP[a3, a5], a2, a4, n] - 
    S2[a1, a6, SP[a3, a5], a4, a2, n] + S2[a1, SP[a2, a5], a3, a4, a6, n] + 
    S2[a1, SP[a2, a5], a3, a6, a4, n] + S2[a1, SP[a2, a5], a4, a3, a6, n] + 
    S2[a1, SP[a2, a5], a4, a6, a3, n] + S2[a1, SP[a2, a5], a6, a3, a4, n] + 
    S2[a1, SP[a2, a5], a6, a4, a3, n] - S2[a1, SP[a3, a5], a2, a4, a6, n] - 
    S2[a1, SP[a3, a5], a2, a6, a4, n] - S2[a1, SP[a3, a5], a4, a2, a6, n] - 
    S2[a1, SP[a3, a5], a4, a6, a2, n] - S2[a1, SP[a3, a5], a6, a2, a4, n] - 
    S2[a1, SP[a3, a5], a6, a4, a2, n] + S2[a1, SP[a4, a6], a2, a5, a3, n] - 
    S2[a2, a1, a4, a5, SP[a3, a6], n] - S2[a2, a1, a4, SP[a5, a6], a3, n] - 
    S2[a2, a1, a5, a4, SP[a3, a6], n] - S2[a2, a1, a5, a6, SP[a3, a4], n] - 
    S2[a2, a1, a5, SP[a3, a4], a6, n] - S2[a2, a1, a5, SP[a3, a6], a4, n] - 
    S2[a2, a1, a6, a5, SP[a3, a4], n] - S2[a2, a1, a6, SP[a4, a5], a3, n] - 
    S2[a2, a1, SP[a4, a5], a3, a6, n] - S2[a2, a1, SP[a4, a5], a6, a3, n] - 
    S2[a2, a1, SP[a5, a6], a3, a4, n] - S2[a2, a1, SP[a5, a6], a4, a3, n] + 
    S2[a3, n]*S2[a2, a5, a1, a4, a6, n] + 
    S2[a3, n]*S2[a2, a5, a1, a6, a4, n] - S2[a2, SP[a1, a5], a3, a4, a6, n] - 
    S2[a2, SP[a1, a5], a3, a6, a4, n] - S2[a2, SP[a1, a5], a4, a3, a6, n] - 
    S2[a2, SP[a1, a5], a4, a6, a3, n] - S2[a2, SP[a1, a5], a6, a3, a4, n] - 
    S2[a2, SP[a1, a5], a6, a4, a3, n] + S2[a2, SP[a3, a5], a1, a4, a6, n] + 
    S2[a2, SP[a3, a5], a1, a6, a4, n] + S2[a3, a1, a4, a2, SP[a5, a6], n] + 
    S2[a3, a1, a4, a6, SP[a2, a5], n] + S2[a3, a1, a4, SP[a2, a5], a6, n] + 
    S2[a3, a1, a4, SP[a5, a6], a2, n] + S2[a3, a1, a5, a2, SP[a4, a6], n] + 
    S2[a3, a1, a5, SP[a2, a6], a4, n] + S2[a3, a1, a6, a4, SP[a2, a5], n] + 
    S2[a3, a1, a6, SP[a4, a5], a2, n] + S2[a3, a1, SP[a4, a5], a2, a6, n] + 
    S2[a3, a1, SP[a4, a5], a6, a2, n] + S2[a3, a1, SP[a5, a6], a2, a4, n] + 
    S2[a3, a1, SP[a5, a6], a4, a2, n] + S2[a3, a5, a1, a2, SP[a4, a6], n] - 
    S2[a2, n]*S2[a3, a5, a1, a4, a6, n] - S2[a3, a5, a1, a4, SP[a2, a6], n] - 
    S2[a2, n]*S2[a3, a5, a1, a6, a4, n] - S2[a3, a5, a1, a6, SP[a2, a4], n] - 
    S2[a3, a5, a1, SP[a2, a4], a6, n] + S2[a3, a5, a2, a1, SP[a4, a6], n] + 
    S2[a3, a5, a2, SP[a1, a4], a6, n] + S2[a3, SP[a1, a5], a2, a4, a6, n] + 
    S2[a3, SP[a1, a5], a2, a6, a4, n] + S2[a3, SP[a1, a5], a4, a2, a6, n] + 
    S2[a3, SP[a1, a5], a4, a6, a2, n] + S2[a3, SP[a1, a5], a6, a2, a4, n] + 
    S2[a3, SP[a1, a5], a6, a4, a2, n] - S2[a3, SP[a2, a5], a1, a4, a6, n] - 
    S2[a3, SP[a2, a5], a1, a6, a4, n] + S2[SP[a1, a6], a4, a2, a5, a3, n] - 
    S2[a6, a1, a4, a2, a5, a3, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a3_, a5_, a2_, a4_, a6_, a1_, n_] :> 
  S2[a1, a6, a4, n]*S2[a2, a5, a3, n] + S2[SP[a1, a2], SP[a5, a6], 
     SP[a3, a4], n] - S2[a1, a2, SP[a5, a6], SP[a3, a4], n] - 
    S2[a3, a5, n]*S2[a1, a6, a4, a2, n] + S2[a1, a6, SP[a3, a4], SP[a2, a5], 
     n] - S2[a1, SP[a2, a6], a5, SP[a3, a4], n] - 
    S2[a1, SP[a2, a6], SP[a4, a5], a3, n] + S2[a1, SP[a3, a6], a4, 
     SP[a2, a5], n] + S2[a1, SP[a3, a6], SP[a4, a5], a2, n] - 
    S2[a2, a1, SP[a5, a6], SP[a3, a4], n] - S2[a2, SP[a1, a5], a6, 
     SP[a3, a4], n] - S2[a2, SP[a1, a5], SP[a3, a6], a4, n] - 
    S2[a1, a6, n]*S2[a3, a5, a2, a4, n] + S2[a3, a5, SP[a1, a2], SP[a4, a6], 
     n] + S2[a3, SP[a1, a5], a2, SP[a4, a6], n] + 
    S2[a3, SP[a1, a5], SP[a2, a6], a4, n] - S2[SP[a1, a2], a5, a6, 
     SP[a3, a4], n] - S2[SP[a1, a2], a5, SP[a3, a6], a4, n] - 
    S2[SP[a1, a2], a6, a5, SP[a3, a4], n] - S2[SP[a1, a2], a6, SP[a4, a5], 
     a3, n] - S2[SP[a1, a2], SP[a5, a6], a3, a4, n] - 
    S2[SP[a1, a2], SP[a5, a6], a4, a3, n] + S2[SP[a1, a3], a5, a2, 
     SP[a4, a6], n] + S2[SP[a1, a3], a5, SP[a2, a6], a4, n] + 
    S2[SP[a1, a3], a6, a4, SP[a2, a5], n] + S2[SP[a1, a3], a6, SP[a4, a5], 
     a2, n] + S2[SP[a1, a3], SP[a5, a6], a2, a4, n] + 
    S2[SP[a1, a3], SP[a5, a6], a4, a2, n] + S2[a1, a2, a5, a6, SP[a3, a4], 
     n] + S2[a1, a2, a5, SP[a3, a6], a4, n] + S2[a1, a2, a6, a5, SP[a3, a4], 
     n] + S2[a1, a2, a6, SP[a4, a5], a3, n] + S2[a1, a2, SP[a5, a6], a3, a4, 
     n] + S2[a1, a2, SP[a5, a6], a4, a3, n] - S2[a1, a3, a5, a2, SP[a4, a6], 
     n] - S2[a1, a3, a5, SP[a2, a6], a4, n] - S2[a1, a3, a6, a4, SP[a2, a5], 
     n] - S2[a1, a3, a6, SP[a4, a5], a2, n] - S2[a1, a3, SP[a5, a6], a2, a4, 
     n] - S2[a1, a3, SP[a5, a6], a4, a2, n] + 
    S2[a3, n]*S2[a1, a5, a2, a6, a4, n] + S2[a1, a5, a2, a6, SP[a3, a4], n] + 
    S2[a1, a5, a2, SP[a3, a6], a4, n] - S2[a2, n]*S2[a1, a5, a3, a6, a4, n] - 
    S2[a1, a5, a3, a6, SP[a2, a4], n] - S2[a1, a5, a3, SP[a2, a6], a4, n] + 
    S2[a3, n]*S2[a1, a5, a6, a2, a4, n] + S2[a1, a5, a6, a2, SP[a3, a4], n] - 
    S2[a2, n]*S2[a1, a5, a6, a3, a4, n] - S2[a1, a5, a6, a3, SP[a2, a4], n] + 
    S2[a3, n]*S2[a1, a5, a6, a4, a2, n] - 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] - S2[a1, a5, a6, SP[a2, a4], a3, n] + 
    S2[a1, a5, a6, SP[a3, a4], a2, n] - S2[a1, a5, SP[a2, a6], a3, a4, n] - 
    S2[a1, a5, SP[a2, a6], a4, a3, n] + S2[a1, a5, SP[a3, a6], a2, a4, n] + 
    S2[a1, a5, SP[a3, a6], a4, a2, n] + S2[a1, a6, a2, a5, SP[a3, a4], n] + 
    S2[a1, a6, a2, SP[a4, a5], a3, n] - S2[a1, a6, a3, a4, SP[a2, a5], n] - 
    S2[a1, a6, a3, SP[a4, a5], a2, n] + S2[a3, n]*S2[a1, a6, a4, a2, a5, n] + 
    S2[a1, a6, a4, a2, SP[a3, a5], n] - S2[a1, a6, a4, a3, SP[a2, a5], n] + 
    S2[a3, n]*S2[a1, a6, a4, a5, a2, n] - 
    S2[a2, n]*S2[a1, a6, a4, a5, a3, n] - S2[a1, a6, a4, SP[a2, a5], a3, n] + 
    S2[a1, a6, a4, SP[a3, a5], a2, n] + S2[a3, n]*S2[a1, a6, a5, a2, a4, n] + 
    S2[a1, a6, a5, a2, SP[a3, a4], n] - S2[a2, n]*S2[a1, a6, a5, a3, a4, n] - 
    S2[a1, a6, a5, a3, SP[a2, a4], n] + S2[a3, n]*S2[a1, a6, a5, a4, a2, n] - 
    S2[a2, n]*S2[a1, a6, a5, a4, a3, n] - S2[a1, a6, a5, SP[a2, a4], a3, n] + 
    S2[a1, a6, a5, SP[a3, a4], a2, n] - S2[a1, a6, SP[a2, a5], a3, a4, n] - 
    S2[a1, a6, SP[a2, a5], a4, a3, n] + S2[a1, a6, SP[a3, a5], a2, a4, n] + 
    S2[a1, a6, SP[a3, a5], a4, a2, n] - S2[a1, SP[a2, a5], a3, a6, a4, n] - 
    S2[a1, SP[a2, a5], a6, a3, a4, n] - S2[a1, SP[a2, a5], a6, a4, a3, n] + 
    S2[a1, SP[a3, a5], a2, a6, a4, n] + S2[a1, SP[a3, a5], a6, a2, a4, n] + 
    S2[a1, SP[a3, a5], a6, a4, a2, n] + S2[a2, a1, a5, a6, SP[a3, a4], n] + 
    S2[a2, a1, a5, SP[a3, a6], a4, n] + S2[a2, a1, a6, a5, SP[a3, a4], n] + 
    S2[a2, a1, a6, SP[a4, a5], a3, n] + S2[a2, a1, SP[a5, a6], a3, a4, n] + 
    S2[a2, a1, SP[a5, a6], a4, a3, n] - S2[a3, n]*S2[a2, a5, a1, a6, a4, n] + 
    S2[a2, SP[a1, a5], a3, a6, a4, n] + S2[a2, SP[a1, a5], a6, a3, a4, n] + 
    S2[a2, SP[a1, a5], a6, a4, a3, n] - S2[a2, SP[a3, a5], a1, a6, a4, n] - 
    S2[a3, a1, a5, a2, SP[a4, a6], n] - S2[a3, a1, a5, SP[a2, a6], a4, n] - 
    S2[a3, a1, a6, a4, SP[a2, a5], n] - S2[a3, a1, a6, SP[a4, a5], a2, n] - 
    S2[a3, a1, SP[a5, a6], a2, a4, n] - S2[a3, a1, SP[a5, a6], a4, a2, n] - 
    S2[a3, a5, a1, a2, SP[a4, a6], n] + S2[a2, n]*S2[a3, a5, a1, a6, a4, n] + 
    S2[a3, a5, a1, a6, SP[a2, a4], n] - S2[a3, a5, a2, a1, SP[a4, a6], n] + 
    S2[a1, n]*S2[a3, a5, a2, a4, a6, n] + S2[a3, a5, a2, a4, SP[a1, a6], n] - 
    S2[a3, SP[a1, a5], a2, a6, a4, n] - S2[a3, SP[a1, a5], a6, a2, a4, n] - 
    S2[a3, SP[a1, a5], a6, a4, a2, n] + S2[a3, SP[a2, a5], a1, a6, a4, n] - 
    S2[a1, n]*S2[a6, a4, a2, a5, a3, n] - S2[a6, a4, a2, a5, SP[a1, a3], n] - 
    S2[a6, a4, a2, SP[a1, a5], a3, n] - S2[a6, a4, SP[a1, a2], a5, a3, n] - 
    S2[a6, SP[a1, a4], a2, a5, a3, n] - S2[SP[a1, a6], a4, a2, a5, a3, n] + 
    S2[a6, a1, a4, a2, a5, a3, n] + S2[a6, a4, a1, a2, a5, a3, n] + 
    S2[a6, a4, a2, a1, a5, a3, n] + S2[a6, a4, a2, a5, a1, a3, n] + 
    S2[a6, a4, a2, a5, a3, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a3_, a5_, a2_, a6_, a1_, a4_, n_] :> 
  -(S2[a1, a4, a6, n]*S2[a2, a5, a3, n]) - S2[a1, a6, a4, n]*
     S2[a2, a5, a3, n] - S2[SP[a1, a2], SP[a4, a5], SP[a3, a6], n] - 
    S2[SP[a1, a2], SP[a5, a6], SP[a3, a4], n] + S2[a1, a2, SP[a4, a5], 
     SP[a3, a6], n] + S2[a1, a2, SP[a5, a6], SP[a3, a4], n] + 
    S2[a3, a5, n]*S2[a1, a4, a6, a2, n] - S2[a1, a4, SP[a3, a6], SP[a2, a5], 
     n] + S2[a3, a5, n]*S2[a1, a6, a2, a4, n] + 
    S2[a3, a5, n]*S2[a1, a6, a4, a2, n] - S2[a1, a6, SP[a2, a3], SP[a4, a5], 
     n] - S2[a1, a6, SP[a3, a4], SP[a2, a5], n] + S2[a1, SP[a2, a4], a5, 
     SP[a3, a6], n] + S2[a1, SP[a2, a4], SP[a5, a6], a3, n] + 
    S2[a1, SP[a2, a6], a5, SP[a3, a4], n] + S2[a1, SP[a2, a6], SP[a4, a5], 
     a3, n] - S2[a1, SP[a3, a4], a6, SP[a2, a5], n] - 
    S2[a1, SP[a3, a4], SP[a5, a6], a2, n] - S2[a1, SP[a3, a6], a2, 
     SP[a4, a5], n] - S2[a1, SP[a3, a6], a4, SP[a2, a5], n] - 
    S2[a1, SP[a3, a6], SP[a2, a5], a4, n] - S2[a1, SP[a3, a6], SP[a4, a5], 
     a2, n] + S2[a2, a1, SP[a4, a5], SP[a3, a6], n] + 
    S2[a2, a1, SP[a5, a6], SP[a3, a4], n] - S2[a1, a4, n]*
     S2[a2, a5, a3, a6, n] - S2[a1, a4, n]*S2[a2, a5, a6, a3, n] + 
    S2[a2, a5, SP[a1, a3], SP[a4, a6], n] + S2[a2, a5, SP[a1, a6], 
     SP[a3, a4], n] - S2[a1, a4, n]*S2[a2, a6, a5, a3, n] + 
    S2[a2, a6, SP[a1, a5], SP[a3, a4], n] + S2[a2, SP[a1, a5], a3, 
     SP[a4, a6], n] + S2[a2, SP[a1, a5], a4, SP[a3, a6], n] + 
    2*S2[a2, SP[a1, a5], a6, SP[a3, a4], n] + 
    2*S2[a2, SP[a1, a5], SP[a3, a4], a6, n] + S2[a2, SP[a1, a5], SP[a3, a6], 
     a4, n] + S2[a2, SP[a1, a5], SP[a4, a6], a3, n] + 
    S2[a2, SP[a1, a6], a5, SP[a3, a4], n] + S2[a2, SP[a1, a6], SP[a4, a5], 
     a3, n] + S2[a1, a4, n]*S2[a3, a5, a2, a6, n] - 
    S2[a3, a5, SP[a1, a2], SP[a4, a6], n] - S2[a3, SP[a1, a5], a2, 
     SP[a4, a6], n] - S2[a3, SP[a1, a5], SP[a2, a4], a6, n] + 
    S2[SP[a1, a2], a4, a5, SP[a3, a6], n] + S2[SP[a1, a2], a4, SP[a5, a6], 
     a3, n] + S2[SP[a1, a2], a5, a3, SP[a4, a6], n] + 
    S2[SP[a1, a2], a5, a4, SP[a3, a6], n] + 
    2*S2[SP[a1, a2], a5, a6, SP[a3, a4], n] + 
    2*S2[SP[a1, a2], a5, SP[a3, a4], a6, n] + S2[SP[a1, a2], a5, SP[a3, a6], 
     a4, n] + S2[SP[a1, a2], a5, SP[a4, a6], a3, n] + 
    2*S2[SP[a1, a2], a6, a5, SP[a3, a4], n] + 
    2*S2[SP[a1, a2], a6, SP[a4, a5], a3, n] + 
    2*S2[SP[a1, a2], SP[a4, a5], a3, a6, n] + 
    2*S2[SP[a1, a2], SP[a4, a5], a6, a3, n] + S2[SP[a1, a2], SP[a4, a6], a5, 
     a3, n] + S2[SP[a1, a2], SP[a5, a6], a3, a4, n] + 
    S2[SP[a1, a2], SP[a5, a6], a4, a3, n] - S2[SP[a1, a3], a4, a6, 
     SP[a2, a5], n] - S2[SP[a1, a3], a4, SP[a5, a6], a2, n] - 
    S2[SP[a1, a3], a5, a2, SP[a4, a6], n] - S2[SP[a1, a3], a5, SP[a2, a4], 
     a6, n] - S2[SP[a1, a3], a6, a2, SP[a4, a5], n] - 
    S2[SP[a1, a3], a6, a4, SP[a2, a5], n] - S2[SP[a1, a3], a6, SP[a2, a5], 
     a4, n] - S2[SP[a1, a3], a6, SP[a4, a5], a2, n] - 
    S2[SP[a1, a3], SP[a4, a5], a2, a6, n] - S2[SP[a1, a3], SP[a4, a5], a6, 
     a2, n] - S2[SP[a1, a3], SP[a5, a6], a2, a4, n] - 
    S2[SP[a1, a3], SP[a5, a6], a4, a2, n] - S2[a1, a2, a4, a5, SP[a3, a6], 
     n] - S2[a1, a2, a4, SP[a5, a6], a3, n] - S2[a1, a2, a5, a3, SP[a4, a6], 
     n] - S2[a1, a2, a5, a4, SP[a3, a6], n] - 
    2*S2[a1, a2, a5, a6, SP[a3, a4], n] - 
    2*S2[a1, a2, a5, SP[a3, a4], a6, n] - S2[a1, a2, a5, SP[a3, a6], a4, n] - 
    S2[a1, a2, a5, SP[a4, a6], a3, n] - 2*S2[a1, a2, a6, a5, SP[a3, a4], n] - 
    2*S2[a1, a2, a6, SP[a4, a5], a3, n] - 
    2*S2[a1, a2, SP[a4, a5], a3, a6, n] - 
    2*S2[a1, a2, SP[a4, a5], a6, a3, n] - S2[a1, a2, SP[a4, a6], a5, a3, n] - 
    S2[a1, a2, SP[a5, a6], a3, a4, n] - S2[a1, a2, SP[a5, a6], a4, a3, n] + 
    S2[a1, a3, a4, a6, SP[a2, a5], n] + S2[a1, a3, a4, SP[a5, a6], a2, n] + 
    S2[a1, a3, a5, a2, SP[a4, a6], n] + S2[a1, a3, a5, SP[a2, a4], a6, n] + 
    S2[a1, a3, a6, a2, SP[a4, a5], n] + S2[a1, a3, a6, a4, SP[a2, a5], n] + 
    S2[a1, a3, a6, SP[a2, a5], a4, n] + S2[a1, a3, a6, SP[a4, a5], a2, n] + 
    S2[a1, a3, SP[a4, a5], a2, a6, n] + S2[a1, a3, SP[a4, a5], a6, a2, n] + 
    S2[a1, a3, SP[a5, a6], a2, a4, n] + S2[a1, a3, SP[a5, a6], a4, a2, n] - 
    S2[a1, a4, a2, a5, SP[a3, a6], n] - S2[a1, a4, a2, SP[a5, a6], a3, n] + 
    S2[a1, a4, a3, a6, SP[a2, a5], n] + S2[a1, a4, a3, SP[a5, a6], a2, n] - 
    S2[a6, n]*S2[a1, a4, a5, a2, a3, n] - 
    S2[a3, n]*S2[a1, a4, a5, a2, a6, n] - 
    2*S2[a1, a4, a5, a2, SP[a3, a6], n] - 
    S2[a6, n]*S2[a1, a4, a5, a3, a2, n] + 
    2*S2[a2, n]*S2[a1, a4, a5, a3, a6, n] + S2[a1, a4, a5, a3, SP[a2, a6], 
     n] - S2[a3, n]*S2[a1, a4, a5, a6, a2, n] + 
    2*S2[a2, n]*S2[a1, a4, a5, a6, a3, n] + S2[a1, a4, a5, a6, SP[a2, a3], 
     n] + S2[a1, a4, a5, SP[a2, a3], a6, n] + S2[a1, a4, a5, SP[a2, a6], a3, 
     n] - 2*S2[a1, a4, a5, SP[a3, a6], a2, n] - 
    S2[a3, n]*S2[a1, a4, a6, a2, a5, n] - S2[a1, a4, a6, a2, SP[a3, a5], n] + 
    S2[a1, a4, a6, a3, SP[a2, a5], n] - S2[a3, n]*S2[a1, a4, a6, a5, a2, n] + 
    2*S2[a2, n]*S2[a1, a4, a6, a5, a3, n] + S2[a1, a4, a6, a5, SP[a2, a3], 
     n] + 2*S2[a1, a4, a6, SP[a2, a5], a3, n] - S2[a1, a4, a6, SP[a3, a5], 
     a2, n] + 2*S2[a1, a4, SP[a2, a5], a3, a6, n] + 
    2*S2[a1, a4, SP[a2, a5], a6, a3, n] + S2[a1, a4, SP[a2, a6], a5, a3, n] - 
    S2[a1, a4, SP[a3, a5], a2, a6, n] - S2[a1, a4, SP[a3, a5], a6, a2, n] - 
    S2[a1, a4, SP[a5, a6], a2, a3, n] - S2[a1, a4, SP[a5, a6], a3, a2, n] - 
    S2[a6, n]*S2[a1, a5, a2, a3, a4, n] - S2[a1, a5, a2, a3, SP[a4, a6], n] - 
    S2[a6, n]*S2[a1, a5, a2, a4, a3, n] - 
    S2[a3, n]*S2[a1, a5, a2, a4, a6, n] - 
    2*S2[a1, a5, a2, a4, SP[a3, a6], n] - 
    S2[a3, n]*S2[a1, a5, a2, a6, a4, n] - S2[a1, a5, a2, a6, SP[a3, a4], n] - 
    S2[a1, a5, a2, SP[a3, a4], a6, n] - 2*S2[a1, a5, a2, SP[a3, a6], a4, n] - 
    S2[a1, a5, a2, SP[a4, a6], a3, n] - S2[a6, n]*S2[a1, a5, a3, a2, a4, n] - 
    S2[a1, a5, a3, a2, SP[a4, a6], n] - S2[a6, n]*S2[a1, a5, a3, a4, a2, n] + 
    2*S2[a2, n]*S2[a1, a5, a3, a4, a6, n] + S2[a1, a5, a3, a4, SP[a2, a6], 
     n] + 2*S2[a2, n]*S2[a1, a5, a3, a6, a4, n] + 
    2*S2[a1, a5, a3, a6, SP[a2, a4], n] + 
    2*S2[a1, a5, a3, SP[a2, a4], a6, n] + S2[a1, a5, a3, SP[a2, a6], a4, n] - 
    S2[a1, a5, a3, SP[a4, a6], a2, n] - S2[a6, n]*S2[a1, a5, a4, a2, a3, n] - 
    S2[a3, n]*S2[a1, a5, a4, a2, a6, n] - 
    2*S2[a1, a5, a4, a2, SP[a3, a6], n] - 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] + 
    2*S2[a2, n]*S2[a1, a5, a4, a3, a6, n] + S2[a1, a5, a4, a3, SP[a2, a6], 
     n] - S2[a3, n]*S2[a1, a5, a4, a6, a2, n] + 
    2*S2[a2, n]*S2[a1, a5, a4, a6, a3, n] + S2[a1, a5, a4, a6, SP[a2, a3], 
     n] + S2[a1, a5, a4, SP[a2, a3], a6, n] + S2[a1, a5, a4, SP[a2, a6], a3, 
     n] - 2*S2[a1, a5, a4, SP[a3, a6], a2, n] - 
    S2[a3, n]*S2[a1, a5, a6, a2, a4, n] - S2[a1, a5, a6, a2, SP[a3, a4], n] + 
    2*S2[a2, n]*S2[a1, a5, a6, a3, a4, n] + 
    2*S2[a1, a5, a6, a3, SP[a2, a4], n] - 
    S2[a3, n]*S2[a1, a5, a6, a4, a2, n] + 
    2*S2[a2, n]*S2[a1, a5, a6, a4, a3, n] + S2[a1, a5, a6, a4, SP[a2, a3], 
     n] + S2[a1, a5, a6, SP[a2, a3], a4, n] + 
    2*S2[a1, a5, a6, SP[a2, a4], a3, n] - S2[a1, a5, a6, SP[a3, a4], a2, n] + 
    S2[a1, a5, SP[a2, a3], a4, a6, n] + S2[a1, a5, SP[a2, a3], a6, a4, n] + 
    2*S2[a1, a5, SP[a2, a4], a3, a6, n] + 
    2*S2[a1, a5, SP[a2, a4], a6, a3, n] + S2[a1, a5, SP[a2, a6], a3, a4, n] + 
    S2[a1, a5, SP[a2, a6], a4, a3, n] - S2[a1, a5, SP[a3, a4], a2, a6, n] - 
    S2[a1, a5, SP[a3, a4], a6, a2, n] - 2*S2[a1, a5, SP[a3, a6], a2, a4, n] - 
    2*S2[a1, a5, SP[a3, a6], a4, a2, n] - S2[a1, a5, SP[a4, a6], a2, a3, n] - 
    S2[a1, a5, SP[a4, a6], a3, a2, n] + S2[a1, a6, a2, a3, SP[a4, a5], n] - 
    S2[a3, n]*S2[a1, a6, a2, a4, a5, n] - S2[a1, a6, a2, a4, SP[a3, a5], n] - 
    S2[a3, n]*S2[a1, a6, a2, a5, a4, n] - 
    2*S2[a1, a6, a2, a5, SP[a3, a4], n] - S2[a1, a6, a2, SP[a3, a5], a4, n] - 
    S2[a1, a6, a2, SP[a4, a5], a3, n] + S2[a1, a6, a3, a2, SP[a4, a5], n] + 
    S2[a1, a6, a3, a4, SP[a2, a5], n] + S2[a1, a6, a3, SP[a2, a5], a4, n] + 
    S2[a1, a6, a3, SP[a4, a5], a2, n] - S2[a3, n]*S2[a1, a6, a4, a2, a5, n] - 
    S2[a1, a6, a4, a2, SP[a3, a5], n] + S2[a1, a6, a4, a3, SP[a2, a5], n] - 
    S2[a3, n]*S2[a1, a6, a4, a5, a2, n] + 
    2*S2[a2, n]*S2[a1, a6, a4, a5, a3, n] + S2[a1, a6, a4, a5, SP[a2, a3], 
     n] + 2*S2[a1, a6, a4, SP[a2, a5], a3, n] - S2[a1, a6, a4, SP[a3, a5], 
     a2, n] - S2[a3, n]*S2[a1, a6, a5, a2, a4, n] - 
    S2[a1, a6, a5, a2, SP[a3, a4], n] + 2*S2[a2, n]*
     S2[a1, a6, a5, a3, a4, n] + 2*S2[a1, a6, a5, a3, SP[a2, a4], n] - 
    S2[a3, n]*S2[a1, a6, a5, a4, a2, n] + 
    2*S2[a2, n]*S2[a1, a6, a5, a4, a3, n] + S2[a1, a6, a5, a4, SP[a2, a3], 
     n] + S2[a1, a6, a5, SP[a2, a3], a4, n] + 
    2*S2[a1, a6, a5, SP[a2, a4], a3, n] - S2[a1, a6, a5, SP[a3, a4], a2, n] + 
    S2[a1, a6, SP[a2, a4], a5, a3, n] + 2*S2[a1, a6, SP[a2, a5], a3, a4, n] + 
    2*S2[a1, a6, SP[a2, a5], a4, a3, n] - S2[a1, a6, SP[a3, a5], a2, a4, n] - 
    S2[a1, a6, SP[a3, a5], a4, a2, n] + 2*S2[a1, SP[a2, a5], a3, a4, a6, n] + 
    2*S2[a1, SP[a2, a5], a3, a6, a4, n] + 
    2*S2[a1, SP[a2, a5], a4, a3, a6, n] + 
    2*S2[a1, SP[a2, a5], a4, a6, a3, n] + 
    2*S2[a1, SP[a2, a5], a6, a3, a4, n] + 
    2*S2[a1, SP[a2, a5], a6, a4, a3, n] + S2[a1, SP[a2, a6], a4, a5, a3, n] + 
    S2[a1, SP[a2, a6], a5, a3, a4, n] + S2[a1, SP[a2, a6], a5, a4, a3, n] - 
    S2[a1, SP[a3, a5], a2, a4, a6, n] - S2[a1, SP[a3, a5], a2, a6, a4, n] - 
    S2[a1, SP[a3, a5], a4, a2, a6, n] - S2[a1, SP[a3, a5], a4, a6, a2, n] - 
    S2[a1, SP[a3, a5], a6, a2, a4, n] - S2[a1, SP[a3, a5], a6, a4, a2, n] - 
    S2[a1, SP[a4, a6], a5, a2, a3, n] - S2[a1, SP[a4, a6], a5, a3, a2, n] - 
    S2[a1, SP[a5, a6], a2, a3, a4, n] - S2[a1, SP[a5, a6], a2, a4, a3, n] - 
    S2[a1, SP[a5, a6], a3, a2, a4, n] - S2[a1, SP[a5, a6], a3, a4, a2, n] - 
    S2[a1, SP[a5, a6], a4, a2, a3, n] - S2[a1, SP[a5, a6], a4, a3, a2, n] - 
    S2[a2, a1, a4, a5, SP[a3, a6], n] - S2[a2, a1, a4, SP[a5, a6], a3, n] - 
    S2[a2, a1, a5, a3, SP[a4, a6], n] - S2[a2, a1, a5, a4, SP[a3, a6], n] - 
    2*S2[a2, a1, a5, a6, SP[a3, a4], n] - 
    2*S2[a2, a1, a5, SP[a3, a4], a6, n] - S2[a2, a1, a5, SP[a3, a6], a4, n] - 
    S2[a2, a1, a5, SP[a4, a6], a3, n] - 2*S2[a2, a1, a6, a5, SP[a3, a4], n] - 
    2*S2[a2, a1, a6, SP[a4, a5], a3, n] - 
    2*S2[a2, a1, SP[a4, a5], a3, a6, n] - 
    2*S2[a2, a1, SP[a4, a5], a6, a3, n] - S2[a2, a1, SP[a4, a6], a5, a3, n] - 
    S2[a2, a1, SP[a5, a6], a3, a4, n] - S2[a2, a1, SP[a5, a6], a4, a3, n] + 
    S2[a6, n]*S2[a2, a5, a1, a3, a4, n] + 
    S2[a6, n]*S2[a2, a5, a1, a4, a3, n] + 
    S2[a3, n]*S2[a2, a5, a1, a4, a6, n] + S2[a2, a5, a1, a4, SP[a3, a6], n] + 
    S2[a3, n]*S2[a2, a5, a1, a6, a4, n] - S2[a2, a5, a1, a6, SP[a3, a4], n] - 
    S2[a2, a5, a1, SP[a3, a4], a6, n] + S2[a2, a5, a1, SP[a3, a6], a4, n] + 
    S2[a6, n]*S2[a2, a5, a3, a1, a4, n] - S2[a2, a5, a6, a1, SP[a3, a4], n] - 
    S2[a2, a5, a6, SP[a1, a3], a4, n] - S2[a2, a5, SP[a1, a3], a4, a6, n] - 
    S2[a2, a5, SP[a1, a3], a6, a4, n] + S2[a2, a5, SP[a3, a6], a1, a4, n] - 
    S2[a2, a6, a1, a5, SP[a3, a4], n] - S2[a2, a6, a1, SP[a4, a5], a3, n] - 
    S2[a2, a6, a5, a1, SP[a3, a4], n] - S2[a2, a6, a5, SP[a1, a3], a4, n] - 
    S2[a2, a6, SP[a1, a5], a3, a4, n] - S2[a2, a6, SP[a1, a5], a4, a3, n] - 
    2*S2[a2, SP[a1, a5], a3, a4, a6, n] - 
    2*S2[a2, SP[a1, a5], a3, a6, a4, n] - 
    2*S2[a2, SP[a1, a5], a4, a3, a6, n] - 
    2*S2[a2, SP[a1, a5], a4, a6, a3, n] - 
    2*S2[a2, SP[a1, a5], a6, a3, a4, n] - 
    2*S2[a2, SP[a1, a5], a6, a4, a3, n] - S2[a2, SP[a1, a6], a4, a5, a3, n] - 
    S2[a2, SP[a1, a6], a5, a3, a4, n] - S2[a2, SP[a1, a6], a5, a4, a3, n] + 
    S2[a2, SP[a3, a5], a1, a4, a6, n] + S2[a2, SP[a3, a5], a1, a6, a4, n] + 
    S2[a2, SP[a5, a6], a1, a3, a4, n] + S2[a2, SP[a5, a6], a1, a4, a3, n] + 
    S2[a2, SP[a5, a6], a3, a1, a4, n] + S2[a3, a1, a4, a6, SP[a2, a5], n] + 
    S2[a3, a1, a4, SP[a5, a6], a2, n] + S2[a3, a1, a5, a2, SP[a4, a6], n] + 
    S2[a3, a1, a5, SP[a2, a4], a6, n] + S2[a3, a1, a6, a2, SP[a4, a5], n] + 
    S2[a3, a1, a6, a4, SP[a2, a5], n] + S2[a3, a1, a6, SP[a2, a5], a4, n] + 
    S2[a3, a1, a6, SP[a4, a5], a2, n] + S2[a3, a1, SP[a4, a5], a2, a6, n] + 
    S2[a3, a1, SP[a4, a5], a6, a2, n] + S2[a3, a1, SP[a5, a6], a2, a4, n] + 
    S2[a3, a1, SP[a5, a6], a4, a2, n] + S2[a3, a5, a1, a2, SP[a4, a6], n] - 
    S2[a2, n]*S2[a3, a5, a1, a4, a6, n] - S2[a3, a5, a1, a4, SP[a2, a6], n] - 
    S2[a2, n]*S2[a3, a5, a1, a6, a4, n] - S2[a3, a5, a1, a6, SP[a2, a4], n] - 
    S2[a3, a5, a1, SP[a2, a6], a4, n] + S2[a3, a5, a2, a1, SP[a4, a6], n] + 
    S2[a3, a5, a2, SP[a1, a6], a4, n] + S2[a3, SP[a1, a5], a2, a4, a6, n] + 
    S2[a3, SP[a1, a5], a2, a6, a4, n] + S2[a3, SP[a1, a5], a4, a2, a6, n] + 
    S2[a3, SP[a1, a5], a4, a6, a2, n] + S2[a3, SP[a1, a5], a6, a2, a4, n] + 
    S2[a3, SP[a1, a5], a6, a4, a2, n] - S2[a3, SP[a2, a5], a1, a4, a6, n] - 
    S2[a3, SP[a2, a5], a1, a6, a4, n] + S2[a2, n]*S2[a6, a1, a4, a5, a3, n] + 
    S2[a6, a1, a4, a5, SP[a2, a3], n] + S2[a6, a1, a4, SP[a2, a5], a3, n] + 
    S2[a2, n]*S2[a6, a1, a5, a3, a4, n] + S2[a6, a1, a5, a3, SP[a2, a4], n] + 
    S2[a2, n]*S2[a6, a1, a5, a4, a3, n] + S2[a6, a1, a5, a4, SP[a2, a3], n] + 
    S2[a6, a1, a5, SP[a2, a3], a4, n] + S2[a6, a1, a5, SP[a2, a4], a3, n] + 
    S2[a6, a1, SP[a2, a4], a5, a3, n] + S2[a6, a1, SP[a2, a5], a3, a4, n] + 
    S2[a6, a1, SP[a2, a5], a4, a3, n] + S2[a6, SP[a1, a2], a4, a5, a3, n] + 
    S2[a6, SP[a1, a2], a5, a3, a4, n] + S2[a6, SP[a1, a2], a5, a4, a3, n] - 
    S2[SP[a1, a6], a4, a5, a2, a3, n] - S2[SP[a1, a6], a4, a5, a3, a2, n] - 
    S2[SP[a1, a6], a5, a2, a3, a4, n] - S2[SP[a1, a6], a5, a2, a4, a3, n] - 
    S2[SP[a1, a6], a5, a3, a2, a4, n] - S2[SP[a1, a6], a5, a3, a4, a2, n] - 
    S2[SP[a1, a6], a5, a4, a2, a3, n] - S2[SP[a1, a6], a5, a4, a3, a2, n] + 
    S2[SP[a2, a6], a1, a4, a5, a3, n] + S2[SP[a2, a6], a1, a5, a3, a4, n] + 
    S2[SP[a2, a6], a1, a5, a4, a3, n] + S2[SP[a2, a6], a5, a1, a3, a4, n] + 
    S2[SP[a2, a6], a5, a1, a4, a3, n] + S2[SP[a2, a6], a5, a3, a1, a4, n] - 
    S2[a6, a1, a2, a4, a5, a3, n] - S2[a6, a1, a2, a5, a3, a4, n] - 
    S2[a6, a1, a2, a5, a4, a3, n] - S2[a6, a1, a4, a2, a5, a3, n] - 
    S2[a6, a2, a1, a4, a5, a3, n] - S2[a6, a2, a1, a5, a3, a4, n] - 
    S2[a6, a2, a1, a5, a4, a3, n] - S2[a6, a2, a5, a1, a3, a4, n] - 
    S2[a6, a2, a5, a1, a4, a3, n] - S2[a6, a2, a5, a3, a1, a4, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a3_, a5_, a2_, a6_, a4_, a1_, n_] :> 
  S2[a1, a4, a6, n]*S2[a2, a5, a3, n] + S2[SP[a1, a2], SP[a4, a5], 
     SP[a3, a6], n] - S2[a1, a2, SP[a4, a5], SP[a3, a6], n] - 
    S2[a3, a5, n]*S2[a1, a4, a6, a2, n] + S2[a1, a4, SP[a3, a6], SP[a2, a5], 
     n] - S2[a1, SP[a2, a4], a5, SP[a3, a6], n] - 
    S2[a1, SP[a2, a4], SP[a5, a6], a3, n] + S2[a1, SP[a3, a4], a6, 
     SP[a2, a5], n] + S2[a1, SP[a3, a4], SP[a5, a6], a2, n] - 
    S2[a2, a1, SP[a4, a5], SP[a3, a6], n] + S2[a1, a4, n]*
     S2[a2, a5, a3, a6, n] + S2[a1, a4, n]*S2[a2, a5, a6, a3, n] - 
    S2[a2, a5, SP[a1, a3], SP[a4, a6], n] - S2[a2, a5, SP[a1, a6], 
     SP[a3, a4], n] + S2[a1, a4, n]*S2[a2, a6, a5, a3, n] - 
    S2[a2, a6, SP[a1, a5], SP[a3, a4], n] - S2[a2, SP[a1, a5], a3, 
     SP[a4, a6], n] - S2[a2, SP[a1, a5], a4, SP[a3, a6], n] - 
    S2[a2, SP[a1, a5], a6, SP[a3, a4], n] - 
    2*S2[a2, SP[a1, a5], SP[a3, a4], a6, n] - S2[a2, SP[a1, a5], SP[a4, a6], 
     a3, n] - S2[a2, SP[a1, a6], a5, SP[a3, a4], n] - 
    S2[a2, SP[a1, a6], SP[a4, a5], a3, n] - S2[a1, a4, n]*
     S2[a3, a5, a2, a6, n] + S2[a3, a5, SP[a1, a2], SP[a4, a6], n] + 
    S2[a3, SP[a1, a5], a2, SP[a4, a6], n] + S2[a3, SP[a1, a5], SP[a2, a4], 
     a6, n] - S2[SP[a1, a2], a4, a5, SP[a3, a6], n] - 
    S2[SP[a1, a2], a4, SP[a5, a6], a3, n] - S2[SP[a1, a2], a5, a3, 
     SP[a4, a6], n] - S2[SP[a1, a2], a5, a4, SP[a3, a6], n] - 
    S2[SP[a1, a2], a5, a6, SP[a3, a4], n] - 
    2*S2[SP[a1, a2], a5, SP[a3, a4], a6, n] - S2[SP[a1, a2], a5, SP[a4, a6], 
     a3, n] - S2[SP[a1, a2], a6, a5, SP[a3, a4], n] - 
    S2[SP[a1, a2], a6, SP[a4, a5], a3, n] - 
    2*S2[SP[a1, a2], SP[a4, a5], a3, a6, n] - 
    2*S2[SP[a1, a2], SP[a4, a5], a6, a3, n] - S2[SP[a1, a2], SP[a4, a6], a5, 
     a3, n] + S2[SP[a1, a3], a4, a6, SP[a2, a5], n] + 
    S2[SP[a1, a3], a4, SP[a5, a6], a2, n] + S2[SP[a1, a3], a5, a2, 
     SP[a4, a6], n] + S2[SP[a1, a3], a5, SP[a2, a4], a6, n] + 
    S2[SP[a1, a3], SP[a4, a5], a2, a6, n] + S2[SP[a1, a3], SP[a4, a5], a6, 
     a2, n] + S2[a1, a2, a4, a5, SP[a3, a6], n] + S2[a1, a2, a4, SP[a5, a6], 
     a3, n] + S2[a1, a2, a5, a3, SP[a4, a6], n] + 
    S2[a1, a2, a5, a4, SP[a3, a6], n] + S2[a1, a2, a5, a6, SP[a3, a4], n] + 
    2*S2[a1, a2, a5, SP[a3, a4], a6, n] + S2[a1, a2, a5, SP[a4, a6], a3, n] + 
    S2[a1, a2, a6, a5, SP[a3, a4], n] + S2[a1, a2, a6, SP[a4, a5], a3, n] + 
    2*S2[a1, a2, SP[a4, a5], a3, a6, n] + 
    2*S2[a1, a2, SP[a4, a5], a6, a3, n] + S2[a1, a2, SP[a4, a6], a5, a3, n] - 
    S2[a1, a3, a4, a6, SP[a2, a5], n] - S2[a1, a3, a4, SP[a5, a6], a2, n] - 
    S2[a1, a3, a5, a2, SP[a4, a6], n] - S2[a1, a3, a5, SP[a2, a4], a6, n] - 
    S2[a1, a3, SP[a4, a5], a2, a6, n] - S2[a1, a3, SP[a4, a5], a6, a2, n] + 
    S2[a1, a4, a2, a5, SP[a3, a6], n] + S2[a1, a4, a2, SP[a5, a6], a3, n] - 
    S2[a1, a4, a3, a6, SP[a2, a5], n] - S2[a1, a4, a3, SP[a5, a6], a2, n] + 
    S2[a6, n]*S2[a1, a4, a5, a2, a3, n] + 
    S2[a3, n]*S2[a1, a4, a5, a2, a6, n] + 
    2*S2[a1, a4, a5, a2, SP[a3, a6], n] + 
    S2[a6, n]*S2[a1, a4, a5, a3, a2, n] - 
    2*S2[a2, n]*S2[a1, a4, a5, a3, a6, n] - S2[a1, a4, a5, a3, SP[a2, a6], 
     n] + S2[a3, n]*S2[a1, a4, a5, a6, a2, n] - 
    2*S2[a2, n]*S2[a1, a4, a5, a6, a3, n] - S2[a1, a4, a5, a6, SP[a2, a3], 
     n] - S2[a1, a4, a5, SP[a2, a3], a6, n] - S2[a1, a4, a5, SP[a2, a6], a3, 
     n] + 2*S2[a1, a4, a5, SP[a3, a6], a2, n] + 
    S2[a3, n]*S2[a1, a4, a6, a2, a5, n] + S2[a1, a4, a6, a2, SP[a3, a5], n] - 
    S2[a1, a4, a6, a3, SP[a2, a5], n] + S2[a3, n]*S2[a1, a4, a6, a5, a2, n] - 
    2*S2[a2, n]*S2[a1, a4, a6, a5, a3, n] - S2[a1, a4, a6, a5, SP[a2, a3], 
     n] - 2*S2[a1, a4, a6, SP[a2, a5], a3, n] + S2[a1, a4, a6, SP[a3, a5], 
     a2, n] - 2*S2[a1, a4, SP[a2, a5], a3, a6, n] - 
    2*S2[a1, a4, SP[a2, a5], a6, a3, n] - S2[a1, a4, SP[a2, a6], a5, a3, n] + 
    S2[a1, a4, SP[a3, a5], a2, a6, n] + S2[a1, a4, SP[a3, a5], a6, a2, n] + 
    S2[a1, a4, SP[a5, a6], a2, a3, n] + S2[a1, a4, SP[a5, a6], a3, a2, n] + 
    S2[a6, n]*S2[a1, a5, a2, a3, a4, n] + S2[a1, a5, a2, a3, SP[a4, a6], n] + 
    S2[a6, n]*S2[a1, a5, a2, a4, a3, n] + 
    S2[a3, n]*S2[a1, a5, a2, a4, a6, n] + 
    2*S2[a1, a5, a2, a4, SP[a3, a6], n] + S2[a1, a5, a2, SP[a3, a4], a6, n] + 
    S2[a1, a5, a2, SP[a3, a6], a4, n] + S2[a1, a5, a2, SP[a4, a6], a3, n] + 
    S2[a6, n]*S2[a1, a5, a3, a2, a4, n] + S2[a1, a5, a3, a2, SP[a4, a6], n] + 
    S2[a6, n]*S2[a1, a5, a3, a4, a2, n] - 
    2*S2[a2, n]*S2[a1, a5, a3, a4, a6, n] - S2[a1, a5, a3, a4, SP[a2, a6], 
     n] - S2[a2, n]*S2[a1, a5, a3, a6, a4, n] - S2[a1, a5, a3, a6, 
     SP[a2, a4], n] - 2*S2[a1, a5, a3, SP[a2, a4], a6, n] + 
    S2[a1, a5, a3, SP[a4, a6], a2, n] + S2[a6, n]*S2[a1, a5, a4, a2, a3, n] + 
    S2[a3, n]*S2[a1, a5, a4, a2, a6, n] + 
    2*S2[a1, a5, a4, a2, SP[a3, a6], n] + 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] - 
    2*S2[a2, n]*S2[a1, a5, a4, a3, a6, n] - S2[a1, a5, a4, a3, SP[a2, a6], 
     n] + S2[a3, n]*S2[a1, a5, a4, a6, a2, n] - 
    2*S2[a2, n]*S2[a1, a5, a4, a6, a3, n] - S2[a1, a5, a4, a6, SP[a2, a3], 
     n] - S2[a1, a5, a4, SP[a2, a3], a6, n] - S2[a1, a5, a4, SP[a2, a6], a3, 
     n] + 2*S2[a1, a5, a4, SP[a3, a6], a2, n] - 
    S2[a2, n]*S2[a1, a5, a6, a3, a4, n] - S2[a1, a5, a6, a3, SP[a2, a4], n] - 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] - S2[a1, a5, a6, a4, SP[a2, a3], n] - 
    S2[a1, a5, a6, SP[a2, a3], a4, n] - S2[a1, a5, a6, SP[a2, a4], a3, n] - 
    S2[a1, a5, SP[a2, a3], a4, a6, n] - S2[a1, a5, SP[a2, a3], a6, a4, n] - 
    2*S2[a1, a5, SP[a2, a4], a3, a6, n] - 
    2*S2[a1, a5, SP[a2, a4], a6, a3, n] + S2[a1, a5, SP[a3, a4], a2, a6, n] + 
    S2[a1, a5, SP[a3, a4], a6, a2, n] + S2[a1, a5, SP[a3, a6], a2, a4, n] + 
    S2[a1, a5, SP[a3, a6], a4, a2, n] + S2[a1, a5, SP[a4, a6], a2, a3, n] + 
    S2[a1, a5, SP[a4, a6], a3, a2, n] - S2[a2, n]*S2[a1, a6, a4, a5, a3, n] - 
    S2[a1, a6, a4, a5, SP[a2, a3], n] - S2[a1, a6, a4, SP[a2, a5], a3, n] - 
    S2[a2, n]*S2[a1, a6, a5, a3, a4, n] - S2[a1, a6, a5, a3, SP[a2, a4], n] - 
    S2[a2, n]*S2[a1, a6, a5, a4, a3, n] - S2[a1, a6, a5, a4, SP[a2, a3], n] - 
    S2[a1, a6, a5, SP[a2, a3], a4, n] - S2[a1, a6, a5, SP[a2, a4], a3, n] - 
    S2[a1, a6, SP[a2, a4], a5, a3, n] - S2[a1, a6, SP[a2, a5], a3, a4, n] - 
    S2[a1, a6, SP[a2, a5], a4, a3, n] - 2*S2[a1, SP[a2, a5], a3, a4, a6, n] - 
    S2[a1, SP[a2, a5], a3, a6, a4, n] - 2*S2[a1, SP[a2, a5], a4, a3, a6, n] - 
    2*S2[a1, SP[a2, a5], a4, a6, a3, n] - S2[a1, SP[a2, a5], a6, a3, a4, n] - 
    S2[a1, SP[a2, a5], a6, a4, a3, n] - S2[a1, SP[a2, a6], a4, a5, a3, n] - 
    S2[a1, SP[a2, a6], a5, a3, a4, n] - S2[a1, SP[a2, a6], a5, a4, a3, n] + 
    S2[a1, SP[a3, a5], a2, a4, a6, n] + S2[a1, SP[a3, a5], a4, a2, a6, n] + 
    S2[a1, SP[a3, a5], a4, a6, a2, n] + S2[a1, SP[a4, a6], a5, a2, a3, n] + 
    S2[a1, SP[a4, a6], a5, a3, a2, n] + S2[a1, SP[a5, a6], a2, a3, a4, n] + 
    S2[a1, SP[a5, a6], a2, a4, a3, n] + S2[a1, SP[a5, a6], a3, a2, a4, n] + 
    S2[a1, SP[a5, a6], a3, a4, a2, n] + S2[a1, SP[a5, a6], a4, a2, a3, n] + 
    S2[a1, SP[a5, a6], a4, a3, a2, n] + S2[a2, a1, a4, a5, SP[a3, a6], n] + 
    S2[a2, a1, a4, SP[a5, a6], a3, n] + S2[a2, a1, a5, a3, SP[a4, a6], n] + 
    S2[a2, a1, a5, a4, SP[a3, a6], n] + S2[a2, a1, a5, a6, SP[a3, a4], n] + 
    2*S2[a2, a1, a5, SP[a3, a4], a6, n] + S2[a2, a1, a5, SP[a4, a6], a3, n] + 
    S2[a2, a1, a6, a5, SP[a3, a4], n] + S2[a2, a1, a6, SP[a4, a5], a3, n] + 
    2*S2[a2, a1, SP[a4, a5], a3, a6, n] + 
    2*S2[a2, a1, SP[a4, a5], a6, a3, n] + S2[a2, a1, SP[a4, a6], a5, a3, n] - 
    S2[a6, n]*S2[a2, a5, a1, a3, a4, n] - 
    S2[a6, n]*S2[a2, a5, a1, a4, a3, n] - 
    S2[a3, n]*S2[a2, a5, a1, a4, a6, n] - S2[a2, a5, a1, a4, SP[a3, a6], n] + 
    S2[a2, a5, a1, a6, SP[a3, a4], n] + S2[a2, a5, a1, SP[a3, a4], a6, n] - 
    S2[a2, a5, a1, SP[a3, a6], a4, n] - S2[a6, n]*S2[a2, a5, a3, a1, a4, n] + 
    S2[a2, a5, a6, a1, SP[a3, a4], n] + S2[a2, a5, a6, SP[a1, a3], a4, n] + 
    S2[a2, a5, SP[a1, a3], a4, a6, n] + S2[a2, a5, SP[a1, a3], a6, a4, n] - 
    S2[a2, a5, SP[a3, a6], a1, a4, n] + S2[a2, a6, a1, a5, SP[a3, a4], n] + 
    S2[a2, a6, a1, SP[a4, a5], a3, n] + S2[a2, a6, a5, a1, SP[a3, a4], n] + 
    S2[a2, a6, a5, SP[a1, a3], a4, n] + S2[a2, a6, SP[a1, a5], a3, a4, n] + 
    S2[a2, a6, SP[a1, a5], a4, a3, n] + 2*S2[a2, SP[a1, a5], a3, a4, a6, n] + 
    S2[a2, SP[a1, a5], a3, a6, a4, n] + 2*S2[a2, SP[a1, a5], a4, a3, a6, n] + 
    2*S2[a2, SP[a1, a5], a4, a6, a3, n] + S2[a2, SP[a1, a5], a6, a3, a4, n] + 
    S2[a2, SP[a1, a5], a6, a4, a3, n] + S2[a2, SP[a1, a6], a4, a5, a3, n] + 
    S2[a2, SP[a1, a6], a5, a3, a4, n] + S2[a2, SP[a1, a6], a5, a4, a3, n] - 
    S2[a2, SP[a3, a5], a1, a4, a6, n] - S2[a2, SP[a5, a6], a1, a3, a4, n] - 
    S2[a2, SP[a5, a6], a1, a4, a3, n] - S2[a2, SP[a5, a6], a3, a1, a4, n] - 
    S2[a3, a1, a4, a6, SP[a2, a5], n] - S2[a3, a1, a4, SP[a5, a6], a2, n] - 
    S2[a3, a1, a5, a2, SP[a4, a6], n] - S2[a3, a1, a5, SP[a2, a4], a6, n] - 
    S2[a3, a1, SP[a4, a5], a2, a6, n] - S2[a3, a1, SP[a4, a5], a6, a2, n] - 
    S2[a3, a5, a1, a2, SP[a4, a6], n] + S2[a2, n]*S2[a3, a5, a1, a4, a6, n] + 
    S2[a3, a5, a1, a4, SP[a2, a6], n] - S2[a3, a5, a2, a1, SP[a4, a6], n] + 
    S2[a1, n]*S2[a3, a5, a2, a6, a4, n] + S2[a3, a5, a2, a6, SP[a1, a4], n] - 
    S2[a3, SP[a1, a5], a2, a4, a6, n] - S2[a3, SP[a1, a5], a4, a2, a6, n] - 
    S2[a3, SP[a1, a5], a4, a6, a2, n] + S2[a3, SP[a2, a5], a1, a4, a6, n] - 
    S2[a2, n]*S2[a6, a1, a4, a5, a3, n] - S2[a6, a1, a4, a5, SP[a2, a3], n] - 
    S2[a6, a1, a4, SP[a2, a5], a3, n] - S2[a2, n]*S2[a6, a1, a5, a3, a4, n] - 
    S2[a6, a1, a5, a3, SP[a2, a4], n] - S2[a2, n]*S2[a6, a1, a5, a4, a3, n] - 
    S2[a6, a1, a5, a4, SP[a2, a3], n] - S2[a6, a1, a5, SP[a2, a3], a4, n] - 
    S2[a6, a1, a5, SP[a2, a4], a3, n] - S2[a6, a1, SP[a2, a4], a5, a3, n] - 
    S2[a6, a1, SP[a2, a5], a3, a4, n] - S2[a6, a1, SP[a2, a5], a4, a3, n] + 
    S2[a1, n]*S2[a6, a2, a4, a5, a3, n] + S2[a6, a2, a4, a5, SP[a1, a3], n] + 
    S2[a6, a2, a4, SP[a1, a5], a3, n] + S2[a1, n]*S2[a6, a2, a5, a3, a4, n] + 
    S2[a6, a2, a5, a3, SP[a1, a4], n] + S2[a1, n]*S2[a6, a2, a5, a4, a3, n] + 
    S2[a6, a2, a5, a4, SP[a1, a3], n] + S2[a6, a2, a5, SP[a1, a3], a4, n] + 
    S2[a6, a2, a5, SP[a1, a4], a3, n] + S2[a6, a2, SP[a1, a4], a5, a3, n] + 
    S2[a6, a2, SP[a1, a5], a3, a4, n] + S2[a6, a2, SP[a1, a5], a4, a3, n] + 
    S2[a1, n]*S2[a6, a4, a2, a5, a3, n] + S2[a6, a4, a2, a5, SP[a1, a3], n] + 
    S2[a6, a4, a2, SP[a1, a5], a3, n] + S2[a6, a4, SP[a1, a2], a5, a3, n] + 
    S2[a6, SP[a1, a4], a2, a5, a3, n] + S2[SP[a1, a6], a2, a4, a5, a3, n] + 
    S2[SP[a1, a6], a2, a5, a3, a4, n] + S2[SP[a1, a6], a2, a5, a4, a3, n] + 
    S2[SP[a1, a6], a4, a2, a5, a3, n] + S2[SP[a1, a6], a4, a5, a2, a3, n] + 
    S2[SP[a1, a6], a4, a5, a3, a2, n] + S2[SP[a1, a6], a5, a2, a3, a4, n] + 
    S2[SP[a1, a6], a5, a2, a4, a3, n] + S2[SP[a1, a6], a5, a3, a2, a4, n] + 
    S2[SP[a1, a6], a5, a3, a4, a2, n] + S2[SP[a1, a6], a5, a4, a2, a3, n] + 
    S2[SP[a1, a6], a5, a4, a3, a2, n] - S2[SP[a2, a6], a1, a4, a5, a3, n] - 
    S2[SP[a2, a6], a1, a5, a3, a4, n] - S2[SP[a2, a6], a1, a5, a4, a3, n] - 
    S2[SP[a2, a6], a5, a1, a3, a4, n] - S2[SP[a2, a6], a5, a1, a4, a3, n] - 
    S2[SP[a2, a6], a5, a3, a1, a4, n] - S2[a6, a2, a4, a1, a5, a3, n] - 
    S2[a6, a2, a4, a5, a1, a3, n] - S2[a6, a2, a4, a5, a3, a1, n] - 
    S2[a6, a2, a5, a3, a4, a1, n] - S2[a6, a2, a5, a4, a1, a3, n] - 
    S2[a6, a2, a5, a4, a3, a1, n] - S2[a6, a4, a1, a2, a5, a3, n] - 
    S2[a6, a4, a2, a1, a5, a3, n] - S2[a6, a4, a2, a5, a1, a3, n] - 
    S2[a6, a4, a2, a5, a3, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a3_, a5_, a4_, a1_, a2_, a6_, n_] :> 
  S2[a1, a2, a6, n]*S2[a3, a5, a4, n] + S2[SP[a1, a3], SP[a2, a5], 
     SP[a4, a6], n] - S2[a3, a5, n]*S2[a1, a2, a4, a6, n] - 
    S2[a3, a5, n]*S2[a1, a2, a6, a4, n] + S2[a1, a2, SP[a3, a4], SP[a5, a6], 
     n] + S2[a1, a2, SP[a3, a6], SP[a4, a5], n] - S2[a1, a3, SP[a2, a5], 
     SP[a4, a6], n] - S2[a3, a5, n]*S2[a1, a4, a2, a6, n] - 
    S2[a2, a6, n]*S2[a1, a4, a5, a3, n] + S2[a1, a4, SP[a2, a3], SP[a5, a6], 
     n] + S2[a1, a4, SP[a2, a5], SP[a3, a6], n] + S2[a1, SP[a2, a3], a4, 
     SP[a5, a6], n] - S2[a1, SP[a2, a3], a5, SP[a4, a6], n] + 
    S2[a1, SP[a2, a3], a6, SP[a4, a5], n] + S2[a1, SP[a2, a3], SP[a4, a5], 
     a6, n] + S2[a1, SP[a2, a4], a5, SP[a3, a6], n] + 
    S2[a1, SP[a2, a4], SP[a5, a6], a3, n] + S2[a1, SP[a3, a4], a2, 
     SP[a5, a6], n] + S2[a1, SP[a3, a4], SP[a2, a5], a6, n] - 
    S2[a3, a1, SP[a2, a5], SP[a4, a6], n] - S2[a3, SP[a1, a5], a2, 
     SP[a4, a6], n] - S2[a3, SP[a1, a5], SP[a2, a4], a6, n] + 
    S2[SP[a1, a2], a4, a5, SP[a3, a6], n] + S2[SP[a1, a2], a4, SP[a5, a6], 
     a3, n] + S2[SP[a1, a2], SP[a4, a6], a5, a3, n] + 
    S2[SP[a1, a3], a2, a4, SP[a5, a6], n] - S2[SP[a1, a3], a2, a5, 
     SP[a4, a6], n] + S2[SP[a1, a3], a2, a6, SP[a4, a5], n] + 
    S2[SP[a1, a3], a2, SP[a4, a5], a6, n] + S2[SP[a1, a3], a4, a2, 
     SP[a5, a6], n] + S2[SP[a1, a3], a4, SP[a2, a5], a6, n] - 
    S2[SP[a1, a3], a5, a2, SP[a4, a6], n] - S2[SP[a1, a3], a5, SP[a2, a4], 
     a6, n] + S2[SP[a1, a3], SP[a4, a5], a2, a6, n] - 
    S2[a1, a2, a3, a4, SP[a5, a6], n] + S2[a1, a2, a3, a5, SP[a4, a6], n] - 
    S2[a1, a2, a3, a6, SP[a4, a5], n] - S2[a1, a2, a3, SP[a4, a5], a6, n] - 
    S2[a1, a2, a4, a3, SP[a5, a6], n] - S2[a6, n]*S2[a1, a2, a4, a5, a3, n] + 
    S2[a3, n]*S2[a1, a2, a4, a5, a6, n] - S2[a1, a2, a4, a5, SP[a3, a6], n] + 
    S2[a3, n]*S2[a1, a2, a4, a6, a5, n] + S2[a1, a2, a4, a6, SP[a3, a5], n] + 
    S2[a1, a2, a4, SP[a3, a5], a6, n] - 2*S2[a1, a2, a4, SP[a5, a6], a3, n] - 
    S2[a1, a2, a6, a3, SP[a4, a5], n] + S2[a3, n]*S2[a1, a2, a6, a4, a5, n] + 
    S2[a1, a2, a6, a4, SP[a3, a5], n] - 2*S2[a1, a2, SP[a4, a6], a5, a3, n] - 
    S2[a1, a3, a2, a4, SP[a5, a6], n] + S2[a1, a3, a2, a5, SP[a4, a6], n] - 
    S2[a1, a3, a2, a6, SP[a4, a5], n] - S2[a1, a3, a2, SP[a4, a5], a6, n] - 
    S2[a1, a3, a4, a2, SP[a5, a6], n] - S2[a1, a3, a4, SP[a2, a5], a6, n] + 
    S2[a1, a3, a5, a2, SP[a4, a6], n] + S2[a1, a3, a5, SP[a2, a4], a6, n] - 
    S2[a1, a3, SP[a4, a5], a2, a6, n] - S2[a1, a4, a2, a3, SP[a5, a6], n] - 
    S2[a6, n]*S2[a1, a4, a2, a5, a3, n] + 
    S2[a3, n]*S2[a1, a4, a2, a5, a6, n] - S2[a1, a4, a2, a5, SP[a3, a6], n] + 
    S2[a3, n]*S2[a1, a4, a2, a6, a5, n] + S2[a1, a4, a2, a6, SP[a3, a5], n] + 
    S2[a1, a4, a2, SP[a3, a5], a6, n] - 2*S2[a1, a4, a2, SP[a5, a6], a3, n] - 
    S2[a1, a4, a3, a2, SP[a5, a6], n] - S2[a1, a4, a3, SP[a2, a5], a6, n] - 
    S2[a6, n]*S2[a1, a4, a5, a2, a3, n] + 
    S2[a3, n]*S2[a1, a4, a5, a2, a6, n] - S2[a1, a4, a5, a2, SP[a3, a6], n] - 
    S2[a6, n]*S2[a1, a4, a5, a3, a2, n] + 
    S2[a2, n]*S2[a1, a4, a5, a3, a6, n] + 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] + S2[a1, a4, a5, a6, SP[a2, a3], n] + 
    S2[a1, a4, a5, SP[a2, a3], a6, n] - S2[a1, a4, a5, SP[a3, a6], a2, n] + 
    S2[a2, n]*S2[a1, a4, a6, a5, a3, n] + S2[a1, a4, a6, a5, SP[a2, a3], n] + 
    S2[a1, a4, a6, SP[a2, a5], a3, n] + S2[a1, a4, SP[a3, a5], a2, a6, n] - 
    S2[a1, a4, SP[a5, a6], a2, a3, n] - S2[a1, a4, SP[a5, a6], a3, a2, n] + 
    S2[a2, n]*S2[a1, a6, a4, a5, a3, n] + S2[a1, a6, a4, a5, SP[a2, a3], n] + 
    S2[a1, a6, a4, SP[a2, a5], a3, n] + S2[a1, a6, SP[a2, a4], a5, a3, n] - 
    S2[a1, SP[a4, a6], a2, a5, a3, n] - S2[a1, SP[a4, a6], a5, a2, a3, n] - 
    S2[a1, SP[a4, a6], a5, a3, a2, n] - S2[a2, a1, a4, a5, SP[a3, a6], n] - 
    S2[a2, a1, a4, SP[a5, a6], a3, n] - S2[a2, a1, SP[a4, a6], a5, a3, n] - 
    S2[a2, SP[a1, a6], a4, a5, a3, n] - S2[a3, a1, a2, a4, SP[a5, a6], n] + 
    S2[a3, a1, a2, a5, SP[a4, a6], n] - S2[a3, a1, a2, a6, SP[a4, a5], n] - 
    S2[a3, a1, a2, SP[a4, a5], a6, n] - S2[a3, a1, a4, a2, SP[a5, a6], n] - 
    S2[a3, a1, a4, SP[a2, a5], a6, n] + S2[a3, a1, a5, a2, SP[a4, a6], n] + 
    S2[a3, a1, a5, SP[a2, a4], a6, n] - S2[a3, a1, SP[a4, a5], a2, a6, n] + 
    S2[a3, a5, a1, a2, SP[a4, a6], n] + S2[a3, a5, a1, SP[a2, a4], a6, n] + 
    S2[a3, a5, SP[a1, a4], a2, a6, n] + S2[a2, n]*S2[a6, a1, a4, a5, a3, n] + 
    S2[a6, a1, a4, a5, SP[a2, a3], n] + S2[a6, a1, a4, SP[a2, a5], a3, n] + 
    S2[a6, a1, SP[a2, a4], a5, a3, n] + S2[a6, SP[a1, a2], a4, a5, a3, n] - 
    S2[SP[a1, a6], a2, a4, a5, a3, n] - S2[SP[a1, a6], a4, a2, a5, a3, n] - 
    S2[SP[a1, a6], a4, a5, a2, a3, n] - S2[SP[a1, a6], a4, a5, a3, a2, n] + 
    S2[SP[a2, a6], a1, a4, a5, a3, n] - S2[a6, a2, a1, a4, a5, a3, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a3_, a5_, a4_, a1_, a6_, a2_, n_] :> 
  S2[a1, a6, a2, n]*S2[a3, a5, a4, n] + S2[SP[a1, a3], SP[a5, a6], 
     SP[a2, a4], n] - S2[a1, a3, SP[a5, a6], SP[a2, a4], n] + 
    S2[a2, a6, n]*S2[a1, a4, a5, a3, n] - S2[a3, a5, n]*
     S2[a1, a4, a6, a2, n] - S2[a1, a4, SP[a2, a5], SP[a3, a6], n] + 
    S2[a1, a4, SP[a3, a6], SP[a2, a5], n] - S2[a3, a5, n]*
     S2[a1, a6, a2, a4, n] - S2[a3, a5, n]*S2[a1, a6, a4, a2, n] + 
    S2[a1, a6, SP[a2, a3], SP[a4, a5], n] + S2[a1, a6, SP[a3, a4], 
     SP[a2, a5], n] - S2[a1, SP[a2, a4], a5, SP[a3, a6], n] - 
    S2[a1, SP[a2, a4], SP[a5, a6], a3, n] + S2[a1, SP[a3, a4], a6, 
     SP[a2, a5], n] + S2[a1, SP[a3, a4], SP[a5, a6], a2, n] + 
    S2[a1, SP[a3, a6], a2, SP[a4, a5], n] + S2[a1, SP[a3, a6], a4, 
     SP[a2, a5], n] - S2[a1, SP[a3, a6], a5, SP[a2, a4], n] + 
    S2[a1, SP[a3, a6], SP[a4, a5], a2, n] - S2[a3, a1, SP[a5, a6], 
     SP[a2, a4], n] - S2[a3, SP[a1, a5], a6, SP[a2, a4], n] - 
    S2[a3, SP[a1, a5], SP[a4, a6], a2, n] - S2[SP[a1, a2], a4, a5, 
     SP[a3, a6], n] - S2[SP[a1, a2], a4, SP[a5, a6], a3, n] - 
    S2[SP[a1, a2], SP[a4, a6], a5, a3, n] + S2[SP[a1, a3], a4, a6, 
     SP[a2, a5], n] + S2[SP[a1, a3], a4, SP[a5, a6], a2, n] - 
    S2[SP[a1, a3], a5, a6, SP[a2, a4], n] - S2[SP[a1, a3], a5, SP[a4, a6], 
     a2, n] + S2[SP[a1, a3], a6, a2, SP[a4, a5], n] + 
    S2[SP[a1, a3], a6, a4, SP[a2, a5], n] - S2[SP[a1, a3], a6, a5, 
     SP[a2, a4], n] + S2[SP[a1, a3], a6, SP[a4, a5], a2, n] + 
    S2[SP[a1, a3], SP[a4, a5], a6, a2, n] + S2[a1, a2, a4, a5, SP[a3, a6], 
     n] + S2[a1, a2, a4, SP[a5, a6], a3, n] + S2[a1, a2, SP[a4, a6], a5, a3, 
     n] - S2[a1, a3, a4, a6, SP[a2, a5], n] - S2[a1, a3, a4, SP[a5, a6], a2, 
     n] + S2[a1, a3, a5, a6, SP[a2, a4], n] + S2[a1, a3, a5, SP[a4, a6], a2, 
     n] - S2[a1, a3, a6, a2, SP[a4, a5], n] - S2[a1, a3, a6, a4, SP[a2, a5], 
     n] + S2[a1, a3, a6, a5, SP[a2, a4], n] - S2[a1, a3, a6, SP[a4, a5], a2, 
     n] - S2[a1, a3, SP[a4, a5], a6, a2, n] + S2[a1, a4, a2, a5, SP[a3, a6], 
     n] + S2[a1, a4, a2, SP[a5, a6], a3, n] - S2[a1, a4, a3, a6, SP[a2, a5], 
     n] - S2[a1, a4, a3, SP[a5, a6], a2, n] + S2[a1, a4, a5, a2, SP[a3, a6], 
     n] - S2[a2, n]*S2[a1, a4, a5, a3, a6, n] - S2[a1, a4, a5, a3, 
     SP[a2, a6], n] + S2[a3, n]*S2[a1, a4, a5, a6, a2, n] - 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] - S2[a1, a4, a5, SP[a2, a6], a3, n] + 
    S2[a1, a4, a5, SP[a3, a6], a2, n] + S2[a3, n]*S2[a1, a4, a6, a2, a5, n] + 
    S2[a1, a4, a6, a2, SP[a3, a5], n] - S2[a1, a4, a6, a3, SP[a2, a5], n] + 
    S2[a3, n]*S2[a1, a4, a6, a5, a2, n] - 
    S2[a2, n]*S2[a1, a4, a6, a5, a3, n] - S2[a1, a4, a6, SP[a2, a5], a3, n] + 
    S2[a1, a4, a6, SP[a3, a5], a2, n] - S2[a1, a4, SP[a2, a6], a5, a3, n] + 
    S2[a1, a4, SP[a3, a5], a6, a2, n] - S2[a1, a6, a2, a3, SP[a4, a5], n] + 
    S2[a3, n]*S2[a1, a6, a2, a4, a5, n] + S2[a1, a6, a2, a4, SP[a3, a5], n] - 
    S2[a1, a6, a3, a2, SP[a4, a5], n] - S2[a1, a6, a3, a4, SP[a2, a5], n] + 
    S2[a1, a6, a3, a5, SP[a2, a4], n] - S2[a1, a6, a3, SP[a4, a5], a2, n] + 
    S2[a3, n]*S2[a1, a6, a4, a2, a5, n] + S2[a1, a6, a4, a2, SP[a3, a5], n] - 
    S2[a1, a6, a4, a3, SP[a2, a5], n] + S2[a3, n]*S2[a1, a6, a4, a5, a2, n] - 
    S2[a2, n]*S2[a1, a6, a4, a5, a3, n] - S2[a1, a6, a4, SP[a2, a5], a3, n] + 
    S2[a1, a6, a4, SP[a3, a5], a2, n] - S2[a1, a6, SP[a2, a4], a5, a3, n] - 
    S2[a1, SP[a2, a6], a4, a5, a3, n] + S2[a2, a1, a4, a5, SP[a3, a6], n] + 
    S2[a2, a1, a4, SP[a5, a6], a3, n] + S2[a2, a1, SP[a4, a6], a5, a3, n] + 
    S2[a2, SP[a1, a6], a4, a5, a3, n] - S2[a3, a1, a4, a6, SP[a2, a5], n] - 
    S2[a3, a1, a4, SP[a5, a6], a2, n] + S2[a3, a1, a5, a6, SP[a2, a4], n] + 
    S2[a3, a1, a5, SP[a4, a6], a2, n] - S2[a3, a1, a6, a2, SP[a4, a5], n] - 
    S2[a3, a1, a6, a4, SP[a2, a5], n] + S2[a3, a1, a6, a5, SP[a2, a4], n] - 
    S2[a3, a1, a6, SP[a4, a5], a2, n] - S2[a3, a1, SP[a4, a5], a6, a2, n] + 
    S2[a3, a5, a1, a6, SP[a2, a4], n] + S2[a3, a5, a1, SP[a4, a6], a2, n] + 
    S2[a3, a5, SP[a1, a4], a6, a2, n] - S2[a2, n]*S2[a6, a1, a4, a5, a3, n] - 
    S2[a6, a1, a4, a5, SP[a2, a3], n] - S2[a6, a1, a4, SP[a2, a5], a3, n] - 
    S2[a6, a1, SP[a2, a4], a5, a3, n] - S2[a6, SP[a1, a2], a4, a5, a3, n] - 
    S2[SP[a2, a6], a1, a4, a5, a3, n] + S2[a6, a1, a2, a4, a5, a3, n] + 
    S2[a6, a1, a4, a2, a5, a3, n] + S2[a6, a1, a4, a5, a2, a3, n] + 
    S2[a6, a1, a4, a5, a3, a2, n] + S2[a6, a2, a1, a4, a5, a3, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a3_, a5_, a4_, a2_, a1_, a6_, n_] :> 
  -(S2[a1, a2, a6, n]*S2[a3, a5, a4, n]) - S2[a1, a6, a2, n]*
     S2[a3, a5, a4, n] - S2[SP[a1, a3], SP[a2, a5], SP[a4, a6], n] - 
    S2[SP[a1, a3], SP[a5, a6], SP[a2, a4], n] + 
    S2[a3, a5, n]*S2[a1, a2, a4, a6, n] + S2[a3, a5, n]*
     S2[a1, a2, a6, a4, n] - S2[a1, a2, SP[a3, a4], SP[a5, a6], n] - 
    S2[a1, a2, SP[a3, a6], SP[a4, a5], n] + S2[a1, a3, SP[a2, a5], 
     SP[a4, a6], n] + S2[a1, a3, SP[a5, a6], SP[a2, a4], n] + 
    S2[a3, a5, n]*S2[a1, a6, a2, a4, n] - S2[a1, a6, SP[a2, a3], SP[a4, a5], 
     n] - S2[a1, SP[a2, a3], a4, SP[a5, a6], n] + S2[a1, SP[a2, a3], a5, 
     SP[a4, a6], n] - S2[a1, SP[a2, a3], a6, SP[a4, a5], n] - 
    S2[a1, SP[a2, a3], SP[a4, a5], a6, n] - S2[a1, SP[a3, a6], a2, 
     SP[a4, a5], n] + S2[a1, SP[a3, a6], a5, SP[a2, a4], n] + 
    S2[a1, a6, n]*S2[a2, a5, a3, a4, n] + S2[a1, a6, n]*
     S2[a2, a5, a4, a3, n] - S2[a2, a5, SP[a1, a3], SP[a4, a6], n] - 
    S2[a2, a5, SP[a1, a4], SP[a3, a6], n] - S2[a2, SP[a1, a5], a3, 
     SP[a4, a6], n] - S2[a2, SP[a1, a5], a4, SP[a3, a6], n] - 
    S2[a2, SP[a1, a5], SP[a3, a6], a4, n] - S2[a2, SP[a1, a5], SP[a4, a6], 
     a3, n] + S2[a3, a1, SP[a2, a5], SP[a4, a6], n] + 
    S2[a3, a1, SP[a5, a6], SP[a2, a4], n] - S2[a1, a6, n]*
     S2[a3, a5, a2, a4, n] + S2[a3, a5, SP[a1, a2], SP[a4, a6], n] + 
    2*S2[a3, SP[a1, a5], a2, SP[a4, a6], n] + S2[a3, SP[a1, a5], a6, 
     SP[a2, a4], n] + S2[a3, SP[a1, a5], SP[a2, a4], a6, n] + 
    S2[a3, SP[a1, a5], SP[a2, a6], a4, n] + S2[a3, SP[a1, a5], SP[a4, a6], 
     a2, n] - S2[SP[a1, a2], a5, a3, SP[a4, a6], n] - 
    S2[SP[a1, a2], a5, a4, SP[a3, a6], n] - S2[SP[a1, a2], a5, SP[a3, a6], 
     a4, n] - S2[SP[a1, a2], a5, SP[a4, a6], a3, n] - 
    S2[SP[a1, a2], SP[a5, a6], a3, a4, n] - S2[SP[a1, a2], SP[a5, a6], a4, 
     a3, n] - S2[SP[a1, a3], a2, a4, SP[a5, a6], n] + 
    S2[SP[a1, a3], a2, a5, SP[a4, a6], n] - S2[SP[a1, a3], a2, a6, 
     SP[a4, a5], n] - S2[SP[a1, a3], a2, SP[a4, a5], a6, n] + 
    2*S2[SP[a1, a3], a5, a2, SP[a4, a6], n] + S2[SP[a1, a3], a5, a6, 
     SP[a2, a4], n] + S2[SP[a1, a3], a5, SP[a2, a4], a6, n] + 
    S2[SP[a1, a3], a5, SP[a2, a6], a4, n] + S2[SP[a1, a3], a5, SP[a4, a6], 
     a2, n] - S2[SP[a1, a3], a6, a2, SP[a4, a5], n] + 
    S2[SP[a1, a3], a6, a5, SP[a2, a4], n] + S2[SP[a1, a3], SP[a5, a6], a2, 
     a4, n] + S2[SP[a1, a3], SP[a5, a6], a4, a2, n] + 
    S2[a1, a2, a3, a4, SP[a5, a6], n] - S2[a1, a2, a3, a5, SP[a4, a6], n] + 
    S2[a1, a2, a3, a6, SP[a4, a5], n] + S2[a1, a2, a3, SP[a4, a5], a6, n] + 
    S2[a1, a2, a4, a3, SP[a5, a6], n] + S2[a6, n]*S2[a1, a2, a4, a5, a3, n] - 
    S2[a3, n]*S2[a1, a2, a4, a5, a6, n] - 
    S2[a3, n]*S2[a1, a2, a4, a6, a5, n] - S2[a1, a2, a4, a6, SP[a3, a5], n] - 
    S2[a1, a2, a4, SP[a3, a5], a6, n] + S2[a1, a2, a4, SP[a5, a6], a3, n] + 
    S2[a1, a2, a5, a3, SP[a4, a6], n] + S2[a1, a2, a5, a4, SP[a3, a6], n] + 
    S2[a1, a2, a5, SP[a3, a6], a4, n] + S2[a1, a2, a5, SP[a4, a6], a3, n] + 
    S2[a1, a2, a6, a3, SP[a4, a5], n] - S2[a3, n]*S2[a1, a2, a6, a4, a5, n] - 
    S2[a1, a2, a6, a4, SP[a3, a5], n] + S2[a1, a2, SP[a4, a6], a5, a3, n] + 
    S2[a1, a2, SP[a5, a6], a3, a4, n] + S2[a1, a2, SP[a5, a6], a4, a3, n] + 
    S2[a1, a3, a2, a4, SP[a5, a6], n] - S2[a1, a3, a2, a5, SP[a4, a6], n] + 
    S2[a1, a3, a2, a6, SP[a4, a5], n] + S2[a1, a3, a2, SP[a4, a5], a6, n] - 
    2*S2[a1, a3, a5, a2, SP[a4, a6], n] - S2[a1, a3, a5, a6, SP[a2, a4], n] - 
    S2[a1, a3, a5, SP[a2, a4], a6, n] - S2[a1, a3, a5, SP[a2, a6], a4, n] - 
    S2[a1, a3, a5, SP[a4, a6], a2, n] + S2[a1, a3, a6, a2, SP[a4, a5], n] - 
    S2[a1, a3, a6, a5, SP[a2, a4], n] - S2[a1, a3, SP[a5, a6], a2, a4, n] - 
    S2[a1, a3, SP[a5, a6], a4, a2, n] + S2[a3, n]*S2[a1, a5, a2, a4, a6, n] + 
    S2[a1, a5, a2, a4, SP[a3, a6], n] + S2[a3, n]*S2[a1, a5, a2, a6, a4, n] + 
    S2[a1, a5, a2, a6, SP[a3, a4], n] + S2[a1, a5, a2, SP[a3, a4], a6, n] + 
    S2[a1, a5, a2, SP[a3, a6], a4, n] - S2[a2, n]*S2[a1, a5, a3, a4, a6, n] - 
    S2[a1, a5, a3, a4, SP[a2, a6], n] - S2[a2, n]*S2[a1, a5, a3, a6, a4, n] - 
    S2[a1, a5, a3, a6, SP[a2, a4], n] - S2[a1, a5, a3, SP[a2, a4], a6, n] - 
    S2[a1, a5, a3, SP[a2, a6], a4, n] + S2[a3, n]*S2[a1, a5, a4, a2, a6, n] + 
    S2[a1, a5, a4, a2, SP[a3, a6], n] - S2[a2, n]*S2[a1, a5, a4, a3, a6, n] - 
    S2[a1, a5, a4, a3, SP[a2, a6], n] + S2[a3, n]*S2[a1, a5, a4, a6, a2, n] - 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] - S2[a1, a5, a4, SP[a2, a6], a3, n] + 
    S2[a1, a5, a4, SP[a3, a6], a2, n] + S2[a3, n]*S2[a1, a5, a6, a2, a4, n] + 
    S2[a1, a5, a6, a2, SP[a3, a4], n] - S2[a2, n]*S2[a1, a5, a6, a3, a4, n] - 
    S2[a1, a5, a6, a3, SP[a2, a4], n] + S2[a3, n]*S2[a1, a5, a6, a4, a2, n] - 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] - S2[a1, a5, a6, SP[a2, a4], a3, n] + 
    S2[a1, a5, a6, SP[a3, a4], a2, n] - S2[a1, a5, SP[a2, a4], a3, a6, n] - 
    S2[a1, a5, SP[a2, a4], a6, a3, n] - S2[a1, a5, SP[a2, a6], a3, a4, n] - 
    S2[a1, a5, SP[a2, a6], a4, a3, n] + S2[a1, a5, SP[a3, a4], a2, a6, n] + 
    S2[a1, a5, SP[a3, a4], a6, a2, n] + S2[a1, a5, SP[a3, a6], a2, a4, n] + 
    S2[a1, a5, SP[a3, a6], a4, a2, n] + S2[a1, a6, a2, a3, SP[a4, a5], n] - 
    S2[a3, n]*S2[a1, a6, a2, a4, a5, n] - S2[a1, a6, a2, a4, SP[a3, a5], n] + 
    S2[a1, a6, a3, a2, SP[a4, a5], n] - S2[a1, a6, a3, a5, SP[a2, a4], n] + 
    S2[a3, n]*S2[a1, a6, a5, a2, a4, n] + S2[a1, a6, a5, a2, SP[a3, a4], n] - 
    S2[a2, n]*S2[a1, a6, a5, a3, a4, n] - S2[a1, a6, a5, a3, SP[a2, a4], n] + 
    S2[a3, n]*S2[a1, a6, a5, a4, a2, n] - 
    S2[a2, n]*S2[a1, a6, a5, a4, a3, n] - S2[a1, a6, a5, SP[a2, a4], a3, n] + 
    S2[a1, a6, a5, SP[a3, a4], a2, n] - S2[a1, a6, SP[a2, a5], a3, a4, n] - 
    S2[a1, a6, SP[a2, a5], a4, a3, n] + S2[a1, a6, SP[a3, a5], a2, a4, n] + 
    S2[a1, a6, SP[a3, a5], a4, a2, n] - S2[a1, SP[a2, a5], a3, a4, a6, n] - 
    S2[a1, SP[a2, a5], a3, a6, a4, n] - S2[a1, SP[a2, a5], a4, a3, a6, n] - 
    S2[a1, SP[a2, a5], a4, a6, a3, n] - S2[a1, SP[a2, a5], a6, a3, a4, n] - 
    S2[a1, SP[a2, a5], a6, a4, a3, n] + S2[a1, SP[a2, a6], a4, a5, a3, n] + 
    S2[a1, SP[a3, a5], a2, a4, a6, n] + S2[a1, SP[a3, a5], a2, a6, a4, n] + 
    S2[a1, SP[a3, a5], a4, a2, a6, n] + S2[a1, SP[a3, a5], a4, a6, a2, n] + 
    S2[a1, SP[a3, a5], a6, a2, a4, n] + S2[a1, SP[a3, a5], a6, a4, a2, n] + 
    S2[a2, a1, a5, a3, SP[a4, a6], n] + S2[a2, a1, a5, a4, SP[a3, a6], n] + 
    S2[a2, a1, a5, SP[a3, a6], a4, n] + S2[a2, a1, a5, SP[a4, a6], a3, n] + 
    S2[a2, a1, SP[a5, a6], a3, a4, n] + S2[a2, a1, SP[a5, a6], a4, a3, n] + 
    S2[a2, a5, a1, a3, SP[a4, a6], n] - S2[a3, n]*S2[a2, a5, a1, a4, a6, n] - 
    S2[a3, n]*S2[a2, a5, a1, a6, a4, n] - S2[a2, a5, a1, a6, SP[a3, a4], n] - 
    S2[a2, a5, a1, SP[a3, a4], a6, n] + S2[a2, a5, a1, SP[a4, a6], a3, n] + 
    S2[a2, a5, a3, a1, SP[a4, a6], n] + S2[a2, a5, a3, SP[a1, a4], a6, n] - 
    S2[a3, n]*S2[a2, a5, a4, a1, a6, n] + S2[a2, a5, SP[a1, a4], a3, a6, n] + 
    S2[a2, a5, SP[a1, a4], a6, a3, n] - S2[a2, a5, SP[a3, a4], a1, a6, n] + 
    S2[a2, SP[a1, a5], a3, a4, a6, n] + S2[a2, SP[a1, a5], a3, a6, a4, n] + 
    S2[a2, SP[a1, a5], a4, a3, a6, n] + S2[a2, SP[a1, a5], a4, a6, a3, n] + 
    S2[a2, SP[a1, a5], a6, a3, a4, n] + S2[a2, SP[a1, a5], a6, a4, a3, n] - 
    S2[a2, SP[a3, a5], a1, a4, a6, n] - S2[a2, SP[a3, a5], a1, a6, a4, n] - 
    S2[a2, SP[a3, a5], a4, a1, a6, n] + S2[a3, a1, a2, a4, SP[a5, a6], n] - 
    S2[a3, a1, a2, a5, SP[a4, a6], n] + S2[a3, a1, a2, a6, SP[a4, a5], n] + 
    S2[a3, a1, a2, SP[a4, a5], a6, n] - 2*S2[a3, a1, a5, a2, SP[a4, a6], n] - 
    S2[a3, a1, a5, a6, SP[a2, a4], n] - S2[a3, a1, a5, SP[a2, a4], a6, n] - 
    S2[a3, a1, a5, SP[a2, a6], a4, n] - S2[a3, a1, a5, SP[a4, a6], a2, n] + 
    S2[a3, a1, a6, a2, SP[a4, a5], n] - S2[a3, a1, a6, a5, SP[a2, a4], n] - 
    S2[a3, a1, SP[a5, a6], a2, a4, n] - S2[a3, a1, SP[a5, a6], a4, a2, n] - 
    2*S2[a3, a5, a1, a2, SP[a4, a6], n] + 
    S2[a2, n]*S2[a3, a5, a1, a4, a6, n] + S2[a3, a5, a1, a4, SP[a2, a6], n] + 
    S2[a2, n]*S2[a3, a5, a1, a6, a4, n] - S2[a3, a5, a1, SP[a4, a6], a2, n] - 
    S2[a3, a5, a2, a1, SP[a4, a6], n] - S2[a3, a5, a2, SP[a1, a4], a6, n] + 
    S2[a2, n]*S2[a3, a5, a4, a1, a6, n] + S2[a3, a5, a4, a1, SP[a2, a6], n] + 
    S2[a3, a5, a4, SP[a1, a2], a6, n] - S2[a3, a5, SP[a1, a4], a2, a6, n] - 
    S2[a3, a5, SP[a1, a4], a6, a2, n] + S2[a3, a5, SP[a2, a4], a1, a6, n] - 
    S2[a3, SP[a1, a5], a2, a4, a6, n] - S2[a3, SP[a1, a5], a2, a6, a4, n] - 
    S2[a3, SP[a1, a5], a4, a2, a6, n] - S2[a3, SP[a1, a5], a4, a6, a2, n] - 
    S2[a3, SP[a1, a5], a6, a2, a4, n] - S2[a3, SP[a1, a5], a6, a4, a2, n] + 
    S2[a3, SP[a2, a5], a1, a4, a6, n] + S2[a3, SP[a2, a5], a1, a6, a4, n] + 
    S2[a3, SP[a2, a5], a4, a1, a6, n] + S2[SP[a1, a6], a2, a4, a5, a3, n] - 
    S2[a6, a1, a2, a4, a5, a3, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a3_, a5_, a4_, a2_, a6_, a1_, n_] :> 
  S2[a1, a6, a2, n]*S2[a3, a5, a4, n] + S2[SP[a1, a3], SP[a5, a6], 
     SP[a2, a4], n] - S2[a1, a3, SP[a5, a6], SP[a2, a4], n] - 
    S2[a3, a5, n]*S2[a1, a6, a2, a4, n] + S2[a1, a6, SP[a2, a3], SP[a4, a5], 
     n] + S2[a1, SP[a3, a6], a2, SP[a4, a5], n] - S2[a1, SP[a3, a6], a5, 
     SP[a2, a4], n] - S2[a1, a6, n]*S2[a2, a5, a3, a4, n] - 
    S2[a1, a6, n]*S2[a2, a5, a4, a3, n] + S2[a2, a5, SP[a1, a3], SP[a4, a6], 
     n] + S2[a2, a5, SP[a1, a4], SP[a3, a6], n] + S2[a2, SP[a1, a5], a3, 
     SP[a4, a6], n] + S2[a2, SP[a1, a5], a4, SP[a3, a6], n] + 
    S2[a2, SP[a1, a5], SP[a3, a6], a4, n] + S2[a2, SP[a1, a5], SP[a4, a6], 
     a3, n] - S2[a3, a1, SP[a5, a6], SP[a2, a4], n] + 
    S2[a1, a6, n]*S2[a3, a5, a2, a4, n] - S2[a3, a5, SP[a1, a2], SP[a4, a6], 
     n] - S2[a3, SP[a1, a5], a2, SP[a4, a6], n] - S2[a3, SP[a1, a5], a6, 
     SP[a2, a4], n] - S2[a3, SP[a1, a5], SP[a2, a6], a4, n] - 
    S2[a3, SP[a1, a5], SP[a4, a6], a2, n] + S2[SP[a1, a2], a5, a3, 
     SP[a4, a6], n] + S2[SP[a1, a2], a5, a4, SP[a3, a6], n] + 
    S2[SP[a1, a2], a5, SP[a3, a6], a4, n] + S2[SP[a1, a2], a5, SP[a4, a6], 
     a3, n] + S2[SP[a1, a2], SP[a5, a6], a3, a4, n] + 
    S2[SP[a1, a2], SP[a5, a6], a4, a3, n] - S2[SP[a1, a3], a5, a2, 
     SP[a4, a6], n] - S2[SP[a1, a3], a5, a6, SP[a2, a4], n] - 
    S2[SP[a1, a3], a5, SP[a2, a6], a4, n] - S2[SP[a1, a3], a5, SP[a4, a6], 
     a2, n] + S2[SP[a1, a3], a6, a2, SP[a4, a5], n] - 
    S2[SP[a1, a3], a6, a5, SP[a2, a4], n] - S2[SP[a1, a3], SP[a5, a6], a2, 
     a4, n] - S2[SP[a1, a3], SP[a5, a6], a4, a2, n] - 
    S2[a1, a2, a5, a3, SP[a4, a6], n] - S2[a1, a2, a5, a4, SP[a3, a6], n] - 
    S2[a1, a2, a5, SP[a3, a6], a4, n] - S2[a1, a2, a5, SP[a4, a6], a3, n] - 
    S2[a1, a2, SP[a5, a6], a3, a4, n] - S2[a1, a2, SP[a5, a6], a4, a3, n] + 
    S2[a1, a3, a5, a2, SP[a4, a6], n] + S2[a1, a3, a5, a6, SP[a2, a4], n] + 
    S2[a1, a3, a5, SP[a2, a6], a4, n] + S2[a1, a3, a5, SP[a4, a6], a2, n] - 
    S2[a1, a3, a6, a2, SP[a4, a5], n] + S2[a1, a3, a6, a5, SP[a2, a4], n] + 
    S2[a1, a3, SP[a5, a6], a2, a4, n] + S2[a1, a3, SP[a5, a6], a4, a2, n] - 
    S2[a3, n]*S2[a1, a5, a2, a4, a6, n] - S2[a1, a5, a2, a4, SP[a3, a6], n] - 
    S2[a3, n]*S2[a1, a5, a2, a6, a4, n] - S2[a1, a5, a2, a6, SP[a3, a4], n] - 
    S2[a1, a5, a2, SP[a3, a4], a6, n] - S2[a1, a5, a2, SP[a3, a6], a4, n] + 
    S2[a2, n]*S2[a1, a5, a3, a4, a6, n] + S2[a1, a5, a3, a4, SP[a2, a6], n] + 
    S2[a2, n]*S2[a1, a5, a3, a6, a4, n] + S2[a1, a5, a3, a6, SP[a2, a4], n] + 
    S2[a1, a5, a3, SP[a2, a4], a6, n] + S2[a1, a5, a3, SP[a2, a6], a4, n] - 
    S2[a3, n]*S2[a1, a5, a4, a2, a6, n] - S2[a1, a5, a4, a2, SP[a3, a6], n] + 
    S2[a2, n]*S2[a1, a5, a4, a3, a6, n] + S2[a1, a5, a4, a3, SP[a2, a6], n] - 
    S2[a3, n]*S2[a1, a5, a4, a6, a2, n] + 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] + S2[a1, a5, a4, SP[a2, a6], a3, n] - 
    S2[a1, a5, a4, SP[a3, a6], a2, n] - S2[a3, n]*S2[a1, a5, a6, a2, a4, n] - 
    S2[a1, a5, a6, a2, SP[a3, a4], n] + S2[a2, n]*S2[a1, a5, a6, a3, a4, n] + 
    S2[a1, a5, a6, a3, SP[a2, a4], n] - S2[a3, n]*S2[a1, a5, a6, a4, a2, n] + 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] + S2[a1, a5, a6, SP[a2, a4], a3, n] - 
    S2[a1, a5, a6, SP[a3, a4], a2, n] + S2[a1, a5, SP[a2, a4], a3, a6, n] + 
    S2[a1, a5, SP[a2, a4], a6, a3, n] + S2[a1, a5, SP[a2, a6], a3, a4, n] + 
    S2[a1, a5, SP[a2, a6], a4, a3, n] - S2[a1, a5, SP[a3, a4], a2, a6, n] - 
    S2[a1, a5, SP[a3, a4], a6, a2, n] - S2[a1, a5, SP[a3, a6], a2, a4, n] - 
    S2[a1, a5, SP[a3, a6], a4, a2, n] - S2[a1, a6, a2, a3, SP[a4, a5], n] + 
    S2[a3, n]*S2[a1, a6, a2, a4, a5, n] + S2[a1, a6, a2, a4, SP[a3, a5], n] - 
    S2[a1, a6, a3, a2, SP[a4, a5], n] + S2[a1, a6, a3, a5, SP[a2, a4], n] - 
    S2[a3, n]*S2[a1, a6, a5, a2, a4, n] - S2[a1, a6, a5, a2, SP[a3, a4], n] + 
    S2[a2, n]*S2[a1, a6, a5, a3, a4, n] + S2[a1, a6, a5, a3, SP[a2, a4], n] - 
    S2[a3, n]*S2[a1, a6, a5, a4, a2, n] + 
    S2[a2, n]*S2[a1, a6, a5, a4, a3, n] + S2[a1, a6, a5, SP[a2, a4], a3, n] - 
    S2[a1, a6, a5, SP[a3, a4], a2, n] + S2[a1, a6, SP[a2, a5], a3, a4, n] + 
    S2[a1, a6, SP[a2, a5], a4, a3, n] - S2[a1, a6, SP[a3, a5], a2, a4, n] - 
    S2[a1, a6, SP[a3, a5], a4, a2, n] + S2[a1, SP[a2, a5], a3, a4, a6, n] + 
    S2[a1, SP[a2, a5], a3, a6, a4, n] + S2[a1, SP[a2, a5], a4, a3, a6, n] + 
    S2[a1, SP[a2, a5], a4, a6, a3, n] + S2[a1, SP[a2, a5], a6, a3, a4, n] + 
    S2[a1, SP[a2, a5], a6, a4, a3, n] - S2[a1, SP[a3, a5], a2, a4, a6, n] - 
    S2[a1, SP[a3, a5], a2, a6, a4, n] - S2[a1, SP[a3, a5], a4, a2, a6, n] - 
    S2[a1, SP[a3, a5], a4, a6, a2, n] - S2[a1, SP[a3, a5], a6, a2, a4, n] - 
    S2[a1, SP[a3, a5], a6, a4, a2, n] - S2[a2, a1, a5, a3, SP[a4, a6], n] - 
    S2[a2, a1, a5, a4, SP[a3, a6], n] - S2[a2, a1, a5, SP[a3, a6], a4, n] - 
    S2[a2, a1, a5, SP[a4, a6], a3, n] - S2[a2, a1, SP[a5, a6], a3, a4, n] - 
    S2[a2, a1, SP[a5, a6], a4, a3, n] - S2[a2, a5, a1, a3, SP[a4, a6], n] + 
    S2[a3, n]*S2[a2, a5, a1, a4, a6, n] + 
    S2[a3, n]*S2[a2, a5, a1, a6, a4, n] + S2[a2, a5, a1, a6, SP[a3, a4], n] + 
    S2[a2, a5, a1, SP[a3, a4], a6, n] - S2[a2, a5, a1, SP[a4, a6], a3, n] - 
    S2[a2, a5, a3, a1, SP[a4, a6], n] - S2[a2, a5, a3, SP[a1, a4], a6, n] + 
    S2[a3, n]*S2[a2, a5, a4, a1, a6, n] - S2[a2, a5, SP[a1, a4], a3, a6, n] - 
    S2[a2, a5, SP[a1, a4], a6, a3, n] + S2[a2, a5, SP[a3, a4], a1, a6, n] - 
    S2[a2, SP[a1, a5], a3, a4, a6, n] - S2[a2, SP[a1, a5], a3, a6, a4, n] - 
    S2[a2, SP[a1, a5], a4, a3, a6, n] - S2[a2, SP[a1, a5], a4, a6, a3, n] - 
    S2[a2, SP[a1, a5], a6, a3, a4, n] - S2[a2, SP[a1, a5], a6, a4, a3, n] + 
    S2[a2, SP[a3, a5], a1, a4, a6, n] + S2[a2, SP[a3, a5], a1, a6, a4, n] + 
    S2[a2, SP[a3, a5], a4, a1, a6, n] + S2[a3, a1, a5, a2, SP[a4, a6], n] + 
    S2[a3, a1, a5, a6, SP[a2, a4], n] + S2[a3, a1, a5, SP[a2, a6], a4, n] + 
    S2[a3, a1, a5, SP[a4, a6], a2, n] - S2[a3, a1, a6, a2, SP[a4, a5], n] + 
    S2[a3, a1, a6, a5, SP[a2, a4], n] + S2[a3, a1, SP[a5, a6], a2, a4, n] + 
    S2[a3, a1, SP[a5, a6], a4, a2, n] + S2[a3, a5, a1, a2, SP[a4, a6], n] - 
    S2[a2, n]*S2[a3, a5, a1, a4, a6, n] - S2[a3, a5, a1, a4, SP[a2, a6], n] - 
    S2[a2, n]*S2[a3, a5, a1, a6, a4, n] - S2[a3, a5, a1, SP[a2, a4], a6, n] + 
    S2[a3, a5, a1, SP[a4, a6], a2, n] + S2[a3, a5, a2, a1, SP[a4, a6], n] + 
    S2[a3, a5, a2, SP[a1, a4], a6, n] - S2[a2, n]*S2[a3, a5, a4, a1, a6, n] - 
    S2[a3, a5, a4, a1, SP[a2, a6], n] + S2[a1, n]*S2[a3, a5, a4, a2, a6, n] + 
    S2[a3, a5, a4, a2, SP[a1, a6], n] + S2[a3, a5, SP[a1, a4], a2, a6, n] + 
    S2[a3, a5, SP[a1, a4], a6, a2, n] - S2[a3, a5, SP[a2, a4], a1, a6, n] + 
    S2[a3, SP[a1, a5], a2, a4, a6, n] + S2[a3, SP[a1, a5], a2, a6, a4, n] + 
    S2[a3, SP[a1, a5], a4, a2, a6, n] + S2[a3, SP[a1, a5], a4, a6, a2, n] + 
    S2[a3, SP[a1, a5], a6, a2, a4, n] + S2[a3, SP[a1, a5], a6, a4, a2, n] - 
    S2[a3, SP[a2, a5], a1, a4, a6, n] - S2[a3, SP[a2, a5], a1, a6, a4, n] - 
    S2[a3, SP[a2, a5], a4, a1, a6, n] - S2[a1, n]*S2[a6, a2, a4, a5, a3, n] - 
    S2[a6, a2, a4, a5, SP[a1, a3], n] - S2[a6, a2, a4, SP[a1, a5], a3, n] - 
    S2[a6, a2, SP[a1, a4], a5, a3, n] - S2[a6, SP[a1, a2], a4, a5, a3, n] - 
    S2[SP[a1, a6], a2, a4, a5, a3, n] + S2[a6, a1, a2, a4, a5, a3, n] + 
    S2[a6, a2, a1, a4, a5, a3, n] + S2[a6, a2, a4, a1, a5, a3, n] + 
    S2[a6, a2, a4, a5, a1, a3, n] + S2[a6, a2, a4, a5, a3, a1, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a3_, a5_, a4_, a6_, a1_, a2_, n_] :> 
  -(S2[a1, a2, a6, n]*S2[a3, a5, a4, n]) - S2[a1, a6, a2, n]*
     S2[a3, a5, a4, n] - S2[SP[a1, a3], SP[a2, a5], SP[a4, a6], n] - 
    S2[SP[a1, a3], SP[a5, a6], SP[a2, a4], n] + 
    S2[a3, a5, n]*S2[a1, a2, a6, a4, n] - S2[a1, a2, SP[a3, a6], SP[a4, a5], 
     n] + S2[a1, a3, SP[a2, a5], SP[a4, a6], n] + S2[a1, a3, SP[a5, a6], 
     SP[a2, a4], n] + S2[a3, a5, n]*S2[a1, a6, a2, a4, n] + 
    S2[a3, a5, n]*S2[a1, a6, a4, a2, n] - S2[a1, a6, SP[a2, a3], SP[a4, a5], 
     n] - S2[a1, a6, SP[a3, a4], SP[a2, a5], n] + S2[a1, SP[a2, a3], a5, 
     SP[a4, a6], n] - S2[a1, SP[a2, a3], a6, SP[a4, a5], n] - 
    S2[a1, SP[a3, a6], a2, SP[a4, a5], n] - S2[a1, SP[a3, a6], a4, 
     SP[a2, a5], n] + S2[a1, SP[a3, a6], a5, SP[a2, a4], n] - 
    S2[a1, SP[a3, a6], SP[a4, a5], a2, n] + S2[a3, a1, SP[a2, a5], 
     SP[a4, a6], n] + S2[a3, a1, SP[a5, a6], SP[a2, a4], n] - 
    S2[a1, a2, n]*S2[a3, a5, a6, a4, n] + S2[a3, a5, SP[a1, a6], SP[a2, a4], 
     n] - S2[a1, a2, n]*S2[a3, a6, a4, a5, n] - 
    S2[a1, a2, n]*S2[a3, a6, a5, a4, n] + S2[a3, a6, SP[a1, a4], SP[a2, a5], 
     n] + S2[a3, a6, SP[a1, a5], SP[a2, a4], n] + S2[a3, SP[a1, a5], a2, 
     SP[a4, a6], n] + 2*S2[a3, SP[a1, a5], a6, SP[a2, a4], n] + 
    S2[a3, SP[a1, a5], SP[a2, a4], a6, n] + S2[a3, SP[a1, a5], SP[a2, a6], 
     a4, n] + S2[a3, SP[a1, a5], SP[a4, a6], a2, n] + 
    S2[a3, SP[a1, a6], a4, SP[a2, a5], n] + S2[a3, SP[a1, a6], a5, 
     SP[a2, a4], n] + S2[a3, SP[a1, a6], SP[a2, a4], a5, n] + 
    S2[a3, SP[a1, a6], SP[a2, a5], a4, n] + S2[a1, a2, n]*
     S2[a4, a6, a3, a5, n] - S2[a4, a6, SP[a1, a3], SP[a2, a5], n] - 
    S2[a4, SP[a1, a6], a3, SP[a2, a5], n] - S2[a4, SP[a1, a6], SP[a2, a3], 
     a5, n] + S2[SP[a1, a3], a2, a5, SP[a4, a6], n] - 
    S2[SP[a1, a3], a2, a6, SP[a4, a5], n] + S2[SP[a1, a3], a5, a2, 
     SP[a4, a6], n] + 2*S2[SP[a1, a3], a5, a6, SP[a2, a4], n] + 
    S2[SP[a1, a3], a5, SP[a2, a4], a6, n] + S2[SP[a1, a3], a5, SP[a2, a6], 
     a4, n] + S2[SP[a1, a3], a5, SP[a4, a6], a2, n] - 
    S2[SP[a1, a3], a6, a2, SP[a4, a5], n] + 
    2*S2[SP[a1, a3], a6, a5, SP[a2, a4], n] + S2[SP[a1, a3], a6, SP[a2, a4], 
     a5, n] + S2[SP[a1, a3], a6, SP[a2, a5], a4, n] - 
    S2[SP[a1, a3], a6, SP[a4, a5], a2, n] + S2[SP[a1, a3], SP[a2, a5], a4, 
     a6, n] + S2[SP[a1, a3], SP[a2, a5], a6, a4, n] + 
    S2[SP[a1, a3], SP[a2, a6], a4, a5, n] + S2[SP[a1, a3], SP[a2, a6], a5, 
     a4, n] - S2[SP[a1, a4], a6, a3, SP[a2, a5], n] - 
    S2[SP[a1, a4], a6, SP[a2, a3], a5, n] - S2[SP[a1, a4], SP[a2, a6], a3, 
     a5, n] - S2[a1, a2, a3, a5, SP[a4, a6], n] + 
    S2[a1, a2, a3, a6, SP[a4, a5], n] - S2[a6, n]*S2[a1, a2, a5, a3, a4, n] - 
    S2[a1, a2, a5, a3, SP[a4, a6], n] - S2[a6, n]*S2[a1, a2, a5, a4, a3, n] + 
    S2[a3, n]*S2[a1, a2, a5, a4, a6, n] + 
    S2[a3, n]*S2[a1, a2, a5, a6, a4, n] + S2[a1, a2, a5, a6, SP[a3, a4], n] + 
    S2[a1, a2, a5, SP[a3, a4], a6, n] - S2[a1, a2, a5, SP[a4, a6], a3, n] - 
    S2[a4, n]*S2[a1, a2, a6, a3, a5, n] + 
    S2[a3, n]*S2[a1, a2, a6, a5, a4, n] + S2[a1, a2, a6, a5, SP[a3, a4], n] + 
    S2[a1, a2, a6, SP[a3, a5], a4, n] + S2[a1, a2, SP[a3, a5], a4, a6, n] + 
    S2[a1, a2, SP[a3, a5], a6, a4, n] + S2[a1, a2, SP[a3, a6], a4, a5, n] + 
    S2[a1, a2, SP[a3, a6], a5, a4, n] - S2[a1, a2, SP[a4, a6], a3, a5, n] - 
    S2[a1, a2, SP[a5, a6], a3, a4, n] - S2[a1, a2, SP[a5, a6], a4, a3, n] - 
    S2[a1, a3, a2, a5, SP[a4, a6], n] + S2[a1, a3, a2, a6, SP[a4, a5], n] - 
    S2[a1, a3, a5, a2, SP[a4, a6], n] - 2*S2[a1, a3, a5, a6, SP[a2, a4], n] - 
    S2[a1, a3, a5, SP[a2, a4], a6, n] - S2[a1, a3, a5, SP[a2, a6], a4, n] - 
    S2[a1, a3, a5, SP[a4, a6], a2, n] + S2[a1, a3, a6, a2, SP[a4, a5], n] - 
    2*S2[a1, a3, a6, a5, SP[a2, a4], n] - S2[a1, a3, a6, SP[a2, a4], a5, n] - 
    S2[a1, a3, a6, SP[a2, a5], a4, n] + S2[a1, a3, a6, SP[a4, a5], a2, n] - 
    S2[a1, a3, SP[a2, a5], a4, a6, n] - S2[a1, a3, SP[a2, a5], a6, a4, n] - 
    S2[a1, a3, SP[a2, a6], a4, a5, n] - S2[a1, a3, SP[a2, a6], a5, a4, n] + 
    S2[a1, a4, a6, a3, SP[a2, a5], n] + S2[a1, a4, a6, SP[a2, a3], a5, n] + 
    S2[a1, a4, SP[a2, a6], a3, a5, n] - S2[a6, n]*S2[a1, a5, a2, a3, a4, n] - 
    S2[a1, a5, a2, a3, SP[a4, a6], n] - S2[a6, n]*S2[a1, a5, a2, a4, a3, n] + 
    S2[a3, n]*S2[a1, a5, a2, a4, a6, n] + 
    S2[a3, n]*S2[a1, a5, a2, a6, a4, n] + S2[a1, a5, a2, a6, SP[a3, a4], n] + 
    S2[a1, a5, a2, SP[a3, a4], a6, n] - S2[a1, a5, a2, SP[a4, a6], a3, n] - 
    S2[a6, n]*S2[a1, a5, a3, a2, a4, n] - S2[a1, a5, a3, a2, SP[a4, a6], n] - 
    S2[a6, n]*S2[a1, a5, a3, a4, a2, n] - S2[a1, a5, a3, a4, SP[a2, a6], n] - 
    S2[a1, a5, a3, SP[a2, a6], a4, n] - S2[a1, a5, a3, SP[a4, a6], a2, n] - 
    S2[a6, n]*S2[a1, a5, a4, a2, a3, n] + 
    S2[a3, n]*S2[a1, a5, a4, a2, a6, n] - 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] - S2[a1, a5, a4, a3, SP[a2, a6], n] + 
    S2[a3, n]*S2[a1, a5, a4, a6, a2, n] + S2[a1, a5, a4, a6, SP[a2, a3], n] + 
    S2[a1, a5, a4, SP[a2, a3], a6, n] - S2[a1, a5, a4, SP[a2, a6], a3, n] + 
    S2[a3, n]*S2[a1, a5, a6, a2, a4, n] + S2[a1, a5, a6, a2, SP[a3, a4], n] + 
    S2[a3, n]*S2[a1, a5, a6, a4, a2, n] + S2[a1, a5, a6, a4, SP[a2, a3], n] + 
    S2[a1, a5, a6, SP[a2, a3], a4, n] + S2[a1, a5, a6, SP[a3, a4], a2, n] + 
    S2[a1, a5, SP[a2, a3], a4, a6, n] + S2[a1, a5, SP[a2, a3], a6, a4, n] - 
    S2[a1, a5, SP[a2, a6], a3, a4, n] - S2[a1, a5, SP[a2, a6], a4, a3, n] + 
    S2[a1, a5, SP[a3, a4], a2, a6, n] + S2[a1, a5, SP[a3, a4], a6, a2, n] - 
    S2[a1, a5, SP[a4, a6], a2, a3, n] - S2[a1, a5, SP[a4, a6], a3, a2, n] - 
    S2[a4, n]*S2[a1, a6, a2, a3, a5, n] + 
    S2[a3, n]*S2[a1, a6, a2, a5, a4, n] + S2[a1, a6, a2, a5, SP[a3, a4], n] + 
    S2[a1, a6, a2, SP[a3, a5], a4, n] - S2[a4, n]*S2[a1, a6, a3, a2, a5, n] + 
    S2[a1, a6, a3, a4, SP[a2, a5], n] - S2[a4, n]*S2[a1, a6, a3, a5, a2, n] - 
    2*S2[a1, a6, a3, a5, SP[a2, a4], n] - S2[a1, a6, a3, SP[a2, a4], a5, n] + 
    S2[a1, a6, a4, a3, SP[a2, a5], n] + S2[a1, a6, a4, SP[a2, a3], a5, n] + 
    S2[a3, n]*S2[a1, a6, a5, a2, a4, n] + S2[a1, a6, a5, a2, SP[a3, a4], n] + 
    S2[a3, n]*S2[a1, a6, a5, a4, a2, n] + S2[a1, a6, a5, a4, SP[a2, a3], n] + 
    S2[a1, a6, a5, SP[a2, a3], a4, n] + S2[a1, a6, a5, SP[a3, a4], a2, n] + 
    S2[a1, a6, SP[a2, a3], a4, a5, n] + S2[a1, a6, SP[a2, a3], a5, a4, n] - 
    S2[a1, a6, SP[a2, a4], a3, a5, n] + S2[a1, a6, SP[a3, a5], a2, a4, n] + 
    S2[a1, a6, SP[a3, a5], a4, a2, n] - S2[a1, SP[a2, a6], a5, a3, a4, n] - 
    S2[a1, SP[a2, a6], a5, a4, a3, n] + S2[a1, SP[a3, a5], a2, a4, a6, n] + 
    S2[a1, SP[a3, a5], a2, a6, a4, n] + S2[a1, SP[a3, a5], a4, a2, a6, n] + 
    S2[a1, SP[a3, a5], a4, a6, a2, n] + S2[a1, SP[a3, a5], a6, a2, a4, n] + 
    S2[a1, SP[a3, a5], a6, a4, a2, n] + S2[a1, SP[a3, a6], a2, a4, a5, n] + 
    S2[a1, SP[a3, a6], a2, a5, a4, n] + S2[a1, SP[a3, a6], a4, a2, a5, n] + 
    S2[a1, SP[a3, a6], a4, a5, a2, n] + S2[a1, SP[a3, a6], a5, a2, a4, n] + 
    S2[a1, SP[a3, a6], a5, a4, a2, n] - S2[a1, SP[a4, a6], a2, a3, a5, n] - 
    S2[a1, SP[a4, a6], a3, a2, a5, n] - S2[a1, SP[a4, a6], a3, a5, a2, n] - 
    S2[a1, SP[a5, a6], a2, a3, a4, n] - S2[a1, SP[a5, a6], a2, a4, a3, n] - 
    S2[a1, SP[a5, a6], a3, a2, a4, n] - S2[a1, SP[a5, a6], a3, a4, a2, n] - 
    S2[a1, SP[a5, a6], a4, a2, a3, n] - S2[a1, SP[a5, a6], a4, a3, a2, n] - 
    S2[a3, a1, a2, a5, SP[a4, a6], n] + S2[a3, a1, a2, a6, SP[a4, a5], n] - 
    S2[a3, a1, a5, a2, SP[a4, a6], n] - 2*S2[a3, a1, a5, a6, SP[a2, a4], n] - 
    S2[a3, a1, a5, SP[a2, a4], a6, n] - S2[a3, a1, a5, SP[a2, a6], a4, n] - 
    S2[a3, a1, a5, SP[a4, a6], a2, n] + S2[a3, a1, a6, a2, SP[a4, a5], n] - 
    2*S2[a3, a1, a6, a5, SP[a2, a4], n] - S2[a3, a1, a6, SP[a2, a4], a5, n] - 
    S2[a3, a1, a6, SP[a2, a5], a4, n] + S2[a3, a1, a6, SP[a4, a5], a2, n] - 
    S2[a3, a1, SP[a2, a5], a4, a6, n] - S2[a3, a1, SP[a2, a5], a6, a4, n] - 
    S2[a3, a1, SP[a2, a6], a4, a5, n] - S2[a3, a1, SP[a2, a6], a5, a4, n] + 
    S2[a6, n]*S2[a3, a5, a1, a2, a4, n] + 
    S2[a6, n]*S2[a3, a5, a1, a4, a2, n] + S2[a3, a5, a1, a4, SP[a2, a6], n] - 
    2*S2[a3, a5, a1, a6, SP[a2, a4], n] - S2[a3, a5, a1, SP[a2, a4], a6, n] + 
    S2[a6, n]*S2[a3, a5, a4, a1, a2, n] + S2[a3, a5, a4, a1, SP[a2, a6], n] + 
    S2[a3, a5, a4, SP[a1, a6], a2, n] - S2[a3, a5, a6, a1, SP[a2, a4], n] - 
    S2[a3, a5, a6, SP[a1, a4], a2, n] - S2[a3, a5, SP[a1, a4], a2, a6, n] - 
    S2[a3, a5, SP[a1, a4], a6, a2, n] + S2[a3, a5, SP[a4, a6], a1, a2, n] + 
    S2[a4, n]*S2[a3, a6, a1, a2, a5, n] + S2[a3, a6, a1, a2, SP[a4, a5], n] - 
    S2[a3, a6, a1, a4, SP[a2, a5], n] + S2[a4, n]*S2[a3, a6, a1, a5, a2, n] - 
    S2[a3, a6, a1, SP[a2, a5], a4, n] + S2[a3, a6, a1, SP[a4, a5], a2, n] - 
    S2[a3, a6, a4, a1, SP[a2, a5], n] - S2[a3, a6, a4, SP[a1, a5], a2, n] - 
    S2[a3, a6, a5, a1, SP[a2, a4], n] - S2[a3, a6, a5, SP[a1, a4], a2, n] - 
    S2[a3, a6, SP[a1, a5], a2, a4, n] - S2[a3, a6, SP[a1, a5], a4, a2, n] - 
    S2[a3, SP[a1, a5], a2, a4, a6, n] - S2[a3, SP[a1, a5], a2, a6, a4, n] - 
    S2[a3, SP[a1, a5], a4, a2, a6, n] - S2[a3, SP[a1, a5], a4, a6, a2, n] - 
    S2[a3, SP[a1, a5], a6, a2, a4, n] - S2[a3, SP[a1, a5], a6, a4, a2, n] - 
    S2[a3, SP[a1, a6], a2, a4, a5, n] - S2[a3, SP[a1, a6], a2, a5, a4, n] - 
    S2[a3, SP[a1, a6], a4, a2, a5, n] - S2[a3, SP[a1, a6], a4, a5, a2, n] - 
    S2[a3, SP[a1, a6], a5, a2, a4, n] - S2[a3, SP[a1, a6], a5, a4, a2, n] + 
    S2[a3, SP[a4, a6], a1, a2, a5, n] + S2[a3, SP[a4, a6], a1, a5, a2, n] + 
    S2[a3, SP[a5, a6], a1, a2, a4, n] + S2[a3, SP[a5, a6], a1, a4, a2, n] + 
    S2[a3, SP[a5, a6], a4, a1, a2, n] + S2[a4, a1, a6, a3, SP[a2, a5], n] + 
    S2[a4, a1, a6, SP[a2, a3], a5, n] + S2[a4, a1, SP[a2, a6], a3, a5, n] - 
    S2[a3, n]*S2[a4, a6, a1, a2, a5, n] - S2[a4, a6, a1, a2, SP[a3, a5], n] + 
    S2[a4, a6, a1, a3, SP[a2, a5], n] - S2[a3, n]*S2[a4, a6, a1, a5, a2, n] - 
    S2[a4, a6, a1, a5, SP[a2, a3], n] - S2[a4, a6, a1, SP[a3, a5], a2, n] + 
    S2[a4, a6, a3, a1, SP[a2, a5], n] + S2[a4, a6, a3, SP[a1, a5], a2, n] + 
    S2[a4, SP[a1, a6], a2, a3, a5, n] + S2[a4, SP[a1, a6], a3, a2, a5, n] + 
    S2[a4, SP[a1, a6], a3, a5, a2, n] - S2[a4, SP[a3, a6], a1, a2, a5, n] - 
    S2[a4, SP[a3, a6], a1, a5, a2, n] + S2[a4, n]*S2[a6, a1, a2, a5, a3, n] + 
    S2[a6, a1, a2, a5, SP[a3, a4], n] + S2[a6, a1, a2, SP[a4, a5], a3, n] + 
    S2[a4, n]*S2[a6, a1, a5, a2, a3, n] + S2[a6, a1, a5, a2, SP[a3, a4], n] + 
    S2[a4, n]*S2[a6, a1, a5, a3, a2, n] + S2[a6, a1, a5, a3, SP[a2, a4], n] + 
    S2[a6, a1, a5, SP[a2, a4], a3, n] + S2[a6, a1, a5, SP[a3, a4], a2, n] + 
    S2[a6, a1, SP[a2, a4], a5, a3, n] + S2[a6, a1, SP[a4, a5], a2, a3, n] + 
    S2[a6, a1, SP[a4, a5], a3, a2, n] - S2[a4, n]*S2[a6, a3, a5, a1, a2, n] - 
    S2[a6, a3, a5, a1, SP[a2, a4], n] - S2[a6, a3, a5, SP[a1, a4], a2, n] - 
    S2[a6, a3, SP[a4, a5], a1, a2, n] + S2[a3, n]*S2[a6, a4, a5, a1, a2, n] + 
    S2[a6, a4, a5, a1, SP[a2, a3], n] + S2[a6, a4, a5, SP[a1, a3], a2, n] + 
    S2[a6, a4, SP[a3, a5], a1, a2, n] + S2[a6, SP[a1, a4], a2, a5, a3, n] + 
    S2[a6, SP[a1, a4], a5, a2, a3, n] + S2[a6, SP[a1, a4], a5, a3, a2, n] - 
    S2[SP[a1, a6], a2, a5, a3, a4, n] - S2[SP[a1, a6], a2, a5, a4, a3, n] - 
    S2[SP[a1, a6], a5, a2, a3, a4, n] - S2[SP[a1, a6], a5, a2, a4, a3, n] - 
    S2[SP[a1, a6], a5, a3, a2, a4, n] - S2[SP[a1, a6], a5, a3, a4, a2, n] - 
    S2[SP[a1, a6], a5, a4, a2, a3, n] - S2[SP[a1, a6], a5, a4, a3, a2, n] + 
    S2[SP[a3, a6], a4, a5, a1, a2, n] + S2[SP[a3, a6], a5, a1, a2, a4, n] + 
    S2[SP[a3, a6], a5, a1, a4, a2, n] + S2[SP[a3, a6], a5, a4, a1, a2, n] + 
    S2[SP[a4, a6], a1, a2, a5, a3, n] + S2[SP[a4, a6], a1, a5, a2, a3, n] + 
    S2[SP[a4, a6], a1, a5, a3, a2, n] - S2[SP[a4, a6], a3, a5, a1, a2, n] - 
    S2[a6, a1, a2, a4, a5, a3, n] - S2[a6, a1, a4, a2, a5, a3, n] - 
    S2[a6, a1, a4, a5, a2, a3, n] - S2[a6, a1, a4, a5, a3, a2, n] - 
    S2[a6, a4, a1, a2, a5, a3, n] - S2[a6, a4, a1, a5, a2, a3, n] - 
    S2[a6, a4, a1, a5, a3, a2, n] - S2[a6, a4, a5, a1, a2, a3, n] - 
    S2[a6, a4, a5, a1, a3, a2, n] - S2[a6, a4, a5, a3, a1, a2, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a3_, a5_, a4_, a6_, a2_, a1_, n_] :> 
  S2[a1, a2, a6, n]*S2[a3, a5, a4, n] + S2[SP[a1, a3], SP[a2, a5], 
     SP[a4, a6], n] - S2[a3, a5, n]*S2[a1, a2, a6, a4, n] + 
    S2[a1, a2, SP[a3, a6], SP[a4, a5], n] - S2[a1, a3, SP[a2, a5], 
     SP[a4, a6], n] - S2[a1, SP[a2, a3], a5, SP[a4, a6], n] + 
    S2[a1, SP[a2, a3], a6, SP[a4, a5], n] - S2[a3, a1, SP[a2, a5], 
     SP[a4, a6], n] + S2[a1, a2, n]*S2[a3, a5, a6, a4, n] - 
    S2[a3, a5, SP[a1, a6], SP[a2, a4], n] + S2[a1, a2, n]*
     S2[a3, a6, a4, a5, n] + S2[a1, a2, n]*S2[a3, a6, a5, a4, n] - 
    S2[a3, a6, SP[a1, a4], SP[a2, a5], n] - S2[a3, a6, SP[a1, a5], 
     SP[a2, a4], n] - S2[a3, SP[a1, a5], a2, SP[a4, a6], n] - 
    S2[a3, SP[a1, a5], a6, SP[a2, a4], n] - S2[a3, SP[a1, a5], SP[a2, a4], 
     a6, n] - S2[a3, SP[a1, a5], SP[a2, a6], a4, n] - 
    S2[a3, SP[a1, a6], a4, SP[a2, a5], n] - S2[a3, SP[a1, a6], a5, 
     SP[a2, a4], n] - S2[a3, SP[a1, a6], SP[a2, a4], a5, n] - 
    S2[a3, SP[a1, a6], SP[a2, a5], a4, n] - S2[a1, a2, n]*
     S2[a4, a6, a3, a5, n] + S2[a4, a6, SP[a1, a3], SP[a2, a5], n] + 
    S2[a4, SP[a1, a6], a3, SP[a2, a5], n] + S2[a4, SP[a1, a6], SP[a2, a3], 
     a5, n] - S2[SP[a1, a3], a2, a5, SP[a4, a6], n] + 
    S2[SP[a1, a3], a2, a6, SP[a4, a5], n] - S2[SP[a1, a3], a5, a2, 
     SP[a4, a6], n] - S2[SP[a1, a3], a5, a6, SP[a2, a4], n] - 
    S2[SP[a1, a3], a5, SP[a2, a4], a6, n] - S2[SP[a1, a3], a5, SP[a2, a6], 
     a4, n] - S2[SP[a1, a3], a6, a4, SP[a2, a5], n] - 
    S2[SP[a1, a3], a6, a5, SP[a2, a4], n] - S2[SP[a1, a3], a6, SP[a2, a4], 
     a5, n] - S2[SP[a1, a3], a6, SP[a2, a5], a4, n] - 
    S2[SP[a1, a3], SP[a2, a5], a4, a6, n] - S2[SP[a1, a3], SP[a2, a5], a6, 
     a4, n] - S2[SP[a1, a3], SP[a2, a6], a4, a5, n] - 
    S2[SP[a1, a3], SP[a2, a6], a5, a4, n] + S2[SP[a1, a4], a6, a3, 
     SP[a2, a5], n] + S2[SP[a1, a4], a6, SP[a2, a3], a5, n] + 
    S2[SP[a1, a4], SP[a2, a6], a3, a5, n] + S2[a1, a2, a3, a5, SP[a4, a6], 
     n] - S2[a1, a2, a3, a6, SP[a4, a5], n] + 
    S2[a6, n]*S2[a1, a2, a5, a3, a4, n] + S2[a1, a2, a5, a3, SP[a4, a6], n] + 
    S2[a6, n]*S2[a1, a2, a5, a4, a3, n] - 
    S2[a3, n]*S2[a1, a2, a5, a4, a6, n] - 
    S2[a3, n]*S2[a1, a2, a5, a6, a4, n] - S2[a1, a2, a5, a6, SP[a3, a4], n] - 
    S2[a1, a2, a5, SP[a3, a4], a6, n] + S2[a1, a2, a5, SP[a4, a6], a3, n] + 
    S2[a4, n]*S2[a1, a2, a6, a3, a5, n] - 
    S2[a3, n]*S2[a1, a2, a6, a5, a4, n] - S2[a1, a2, a6, a5, SP[a3, a4], n] - 
    S2[a1, a2, a6, SP[a3, a5], a4, n] - S2[a1, a2, SP[a3, a5], a4, a6, n] - 
    S2[a1, a2, SP[a3, a5], a6, a4, n] - S2[a1, a2, SP[a3, a6], a4, a5, n] - 
    S2[a1, a2, SP[a3, a6], a5, a4, n] + S2[a1, a2, SP[a4, a6], a3, a5, n] + 
    S2[a1, a2, SP[a5, a6], a3, a4, n] + S2[a1, a2, SP[a5, a6], a4, a3, n] + 
    S2[a1, a3, a2, a5, SP[a4, a6], n] - S2[a1, a3, a2, a6, SP[a4, a5], n] + 
    S2[a1, a3, a5, a2, SP[a4, a6], n] + S2[a1, a3, a5, a6, SP[a2, a4], n] + 
    S2[a1, a3, a5, SP[a2, a4], a6, n] + S2[a1, a3, a5, SP[a2, a6], a4, n] + 
    S2[a1, a3, a6, a4, SP[a2, a5], n] + S2[a1, a3, a6, a5, SP[a2, a4], n] + 
    S2[a1, a3, a6, SP[a2, a4], a5, n] + S2[a1, a3, a6, SP[a2, a5], a4, n] + 
    S2[a1, a3, SP[a2, a5], a4, a6, n] + S2[a1, a3, SP[a2, a5], a6, a4, n] + 
    S2[a1, a3, SP[a2, a6], a4, a5, n] + S2[a1, a3, SP[a2, a6], a5, a4, n] - 
    S2[a1, a4, a6, a3, SP[a2, a5], n] - S2[a1, a4, a6, SP[a2, a3], a5, n] - 
    S2[a1, a4, SP[a2, a6], a3, a5, n] + S2[a6, n]*S2[a1, a5, a2, a3, a4, n] + 
    S2[a1, a5, a2, a3, SP[a4, a6], n] + S2[a6, n]*S2[a1, a5, a2, a4, a3, n] - 
    S2[a3, n]*S2[a1, a5, a2, a4, a6, n] - 
    S2[a3, n]*S2[a1, a5, a2, a6, a4, n] - S2[a1, a5, a2, a6, SP[a3, a4], n] - 
    S2[a1, a5, a2, SP[a3, a4], a6, n] + S2[a1, a5, a2, SP[a4, a6], a3, n] + 
    S2[a6, n]*S2[a1, a5, a3, a2, a4, n] + S2[a1, a5, a3, a2, SP[a4, a6], n] + 
    S2[a6, n]*S2[a1, a5, a3, a4, a2, n] + S2[a1, a5, a3, a4, SP[a2, a6], n] + 
    S2[a1, a5, a3, SP[a2, a6], a4, n] + S2[a1, a5, a3, SP[a4, a6], a2, n] + 
    S2[a6, n]*S2[a1, a5, a4, a2, a3, n] - 
    S2[a3, n]*S2[a1, a5, a4, a2, a6, n] + 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] + S2[a1, a5, a4, a3, SP[a2, a6], n] - 
    S2[a3, n]*S2[a1, a5, a4, a6, a2, n] - S2[a1, a5, a4, a6, SP[a2, a3], n] - 
    S2[a1, a5, a4, SP[a2, a3], a6, n] + S2[a1, a5, a4, SP[a2, a6], a3, n] - 
    S2[a3, n]*S2[a1, a5, a6, a2, a4, n] - S2[a1, a5, a6, a2, SP[a3, a4], n] - 
    S2[a3, n]*S2[a1, a5, a6, a4, a2, n] - S2[a1, a5, a6, a4, SP[a2, a3], n] - 
    S2[a1, a5, a6, SP[a2, a3], a4, n] - S2[a1, a5, a6, SP[a3, a4], a2, n] - 
    S2[a1, a5, SP[a2, a3], a4, a6, n] - S2[a1, a5, SP[a2, a3], a6, a4, n] + 
    S2[a1, a5, SP[a2, a6], a3, a4, n] + S2[a1, a5, SP[a2, a6], a4, a3, n] - 
    S2[a1, a5, SP[a3, a4], a2, a6, n] - S2[a1, a5, SP[a3, a4], a6, a2, n] + 
    S2[a1, a5, SP[a4, a6], a2, a3, n] + S2[a1, a5, SP[a4, a6], a3, a2, n] + 
    S2[a4, n]*S2[a1, a6, a2, a3, a5, n] + S2[a1, a6, a2, a3, SP[a4, a5], n] - 
    S2[a3, n]*S2[a1, a6, a2, a4, a5, n] - S2[a1, a6, a2, a4, SP[a3, a5], n] - 
    S2[a3, n]*S2[a1, a6, a2, a5, a4, n] - S2[a1, a6, a2, a5, SP[a3, a4], n] - 
    S2[a1, a6, a2, SP[a3, a5], a4, n] + S2[a4, n]*S2[a1, a6, a3, a2, a5, n] + 
    S2[a1, a6, a3, a2, SP[a4, a5], n] + S2[a4, n]*S2[a1, a6, a3, a5, a2, n] + 
    S2[a1, a6, a3, a5, SP[a2, a4], n] + S2[a1, a6, a3, SP[a2, a4], a5, n] + 
    S2[a1, a6, a3, SP[a4, a5], a2, n] - S2[a3, n]*S2[a1, a6, a4, a2, a5, n] - 
    S2[a1, a6, a4, a2, SP[a3, a5], n] - S2[a3, n]*S2[a1, a6, a4, a5, a2, n] - 
    S2[a1, a6, a4, a5, SP[a2, a3], n] - S2[a1, a6, a4, SP[a2, a3], a5, n] - 
    S2[a1, a6, a4, SP[a3, a5], a2, n] - S2[a3, n]*S2[a1, a6, a5, a2, a4, n] - 
    S2[a1, a6, a5, a2, SP[a3, a4], n] - S2[a3, n]*S2[a1, a6, a5, a4, a2, n] - 
    S2[a1, a6, a5, a4, SP[a2, a3], n] - S2[a1, a6, a5, SP[a2, a3], a4, n] - 
    S2[a1, a6, a5, SP[a3, a4], a2, n] - S2[a1, a6, SP[a2, a3], a4, a5, n] - 
    S2[a1, a6, SP[a2, a3], a5, a4, n] + S2[a1, a6, SP[a2, a4], a3, a5, n] - 
    S2[a1, a6, SP[a3, a5], a2, a4, n] - S2[a1, a6, SP[a3, a5], a4, a2, n] + 
    S2[a1, SP[a2, a6], a5, a3, a4, n] + S2[a1, SP[a2, a6], a5, a4, a3, n] - 
    S2[a1, SP[a3, a5], a2, a4, a6, n] - S2[a1, SP[a3, a5], a2, a6, a4, n] - 
    S2[a1, SP[a3, a5], a4, a2, a6, n] - S2[a1, SP[a3, a5], a4, a6, a2, n] - 
    S2[a1, SP[a3, a5], a6, a2, a4, n] - S2[a1, SP[a3, a5], a6, a4, a2, n] - 
    S2[a1, SP[a3, a6], a2, a4, a5, n] - S2[a1, SP[a3, a6], a2, a5, a4, n] - 
    S2[a1, SP[a3, a6], a4, a2, a5, n] - S2[a1, SP[a3, a6], a4, a5, a2, n] - 
    S2[a1, SP[a3, a6], a5, a2, a4, n] - S2[a1, SP[a3, a6], a5, a4, a2, n] + 
    S2[a1, SP[a4, a6], a2, a3, a5, n] + S2[a1, SP[a4, a6], a3, a2, a5, n] + 
    S2[a1, SP[a4, a6], a3, a5, a2, n] + S2[a1, SP[a5, a6], a2, a3, a4, n] + 
    S2[a1, SP[a5, a6], a2, a4, a3, n] + S2[a1, SP[a5, a6], a3, a2, a4, n] + 
    S2[a1, SP[a5, a6], a3, a4, a2, n] + S2[a1, SP[a5, a6], a4, a2, a3, n] + 
    S2[a1, SP[a5, a6], a4, a3, a2, n] + S2[a3, a1, a2, a5, SP[a4, a6], n] - 
    S2[a3, a1, a2, a6, SP[a4, a5], n] + S2[a3, a1, a5, a2, SP[a4, a6], n] + 
    S2[a3, a1, a5, a6, SP[a2, a4], n] + S2[a3, a1, a5, SP[a2, a4], a6, n] + 
    S2[a3, a1, a5, SP[a2, a6], a4, n] + S2[a3, a1, a6, a4, SP[a2, a5], n] + 
    S2[a3, a1, a6, a5, SP[a2, a4], n] + S2[a3, a1, a6, SP[a2, a4], a5, n] + 
    S2[a3, a1, a6, SP[a2, a5], a4, n] + S2[a3, a1, SP[a2, a5], a4, a6, n] + 
    S2[a3, a1, SP[a2, a5], a6, a4, n] + S2[a3, a1, SP[a2, a6], a4, a5, n] + 
    S2[a3, a1, SP[a2, a6], a5, a4, n] - S2[a6, n]*S2[a3, a5, a1, a2, a4, n] - 
    S2[a6, n]*S2[a3, a5, a1, a4, a2, n] - S2[a3, a5, a1, a4, SP[a2, a6], n] + 
    S2[a3, a5, a1, a6, SP[a2, a4], n] + S2[a3, a5, a1, SP[a2, a4], a6, n] - 
    S2[a3, a5, a1, SP[a4, a6], a2, n] - S2[a6, n]*S2[a3, a5, a4, a1, a2, n] - 
    S2[a3, a5, a4, a1, SP[a2, a6], n] + S2[a1, n]*S2[a3, a5, a4, a6, a2, n] + 
    S2[a3, a5, a4, a6, SP[a1, a2], n] + S2[a3, a5, a6, a1, SP[a2, a4], n] + 
    S2[a3, a5, a6, SP[a1, a4], a2, n] + S2[a3, a5, SP[a1, a4], a2, a6, n] + 
    S2[a3, a5, SP[a1, a4], a6, a2, n] - S2[a3, a5, SP[a4, a6], a1, a2, n] - 
    S2[a4, n]*S2[a3, a6, a1, a2, a5, n] - S2[a3, a6, a1, a2, SP[a4, a5], n] + 
    S2[a3, a6, a1, a4, SP[a2, a5], n] - S2[a4, n]*S2[a3, a6, a1, a5, a2, n] + 
    S2[a3, a6, a1, SP[a2, a5], a4, n] - S2[a3, a6, a1, SP[a4, a5], a2, n] + 
    S2[a3, a6, a4, a1, SP[a2, a5], n] + S2[a3, a6, a4, SP[a1, a5], a2, n] + 
    S2[a3, a6, a5, a1, SP[a2, a4], n] + S2[a3, a6, a5, SP[a1, a4], a2, n] + 
    S2[a3, a6, SP[a1, a5], a2, a4, n] + S2[a3, a6, SP[a1, a5], a4, a2, n] + 
    S2[a3, SP[a1, a5], a2, a4, a6, n] + S2[a3, SP[a1, a5], a2, a6, a4, n] + 
    S2[a3, SP[a1, a5], a4, a2, a6, n] + S2[a3, SP[a1, a5], a4, a6, a2, n] + 
    S2[a3, SP[a1, a5], a6, a2, a4, n] + S2[a3, SP[a1, a5], a6, a4, a2, n] + 
    S2[a3, SP[a1, a6], a2, a4, a5, n] + S2[a3, SP[a1, a6], a2, a5, a4, n] + 
    S2[a3, SP[a1, a6], a4, a2, a5, n] + S2[a3, SP[a1, a6], a4, a5, a2, n] + 
    S2[a3, SP[a1, a6], a5, a2, a4, n] + S2[a3, SP[a1, a6], a5, a4, a2, n] - 
    S2[a3, SP[a4, a6], a1, a2, a5, n] - S2[a3, SP[a4, a6], a1, a5, a2, n] - 
    S2[a3, SP[a5, a6], a1, a2, a4, n] - S2[a3, SP[a5, a6], a1, a4, a2, n] - 
    S2[a3, SP[a5, a6], a4, a1, a2, n] - S2[a4, a1, a6, a3, SP[a2, a5], n] - 
    S2[a4, a1, a6, SP[a2, a3], a5, n] - S2[a4, a1, SP[a2, a6], a3, a5, n] + 
    S2[a3, n]*S2[a4, a6, a1, a2, a5, n] + S2[a4, a6, a1, a2, SP[a3, a5], n] - 
    S2[a4, a6, a1, a3, SP[a2, a5], n] + S2[a3, n]*S2[a4, a6, a1, a5, a2, n] + 
    S2[a4, a6, a1, a5, SP[a2, a3], n] + S2[a4, a6, a1, SP[a3, a5], a2, n] - 
    S2[a4, a6, a3, a1, SP[a2, a5], n] - S2[a4, a6, a3, SP[a1, a5], a2, n] - 
    S2[a4, SP[a1, a6], a2, a3, a5, n] - S2[a4, SP[a1, a6], a3, a2, a5, n] - 
    S2[a4, SP[a1, a6], a3, a5, a2, n] + S2[a4, SP[a3, a6], a1, a2, a5, n] + 
    S2[a4, SP[a3, a6], a1, a5, a2, n] - S2[a4, n]*S2[a6, a1, a2, a5, a3, n] - 
    S2[a6, a1, a2, a5, SP[a3, a4], n] - S2[a6, a1, a2, SP[a4, a5], a3, n] - 
    S2[a4, n]*S2[a6, a1, a5, a2, a3, n] - S2[a6, a1, a5, a2, SP[a3, a4], n] - 
    S2[a4, n]*S2[a6, a1, a5, a3, a2, n] - S2[a6, a1, a5, a3, SP[a2, a4], n] - 
    S2[a6, a1, a5, SP[a2, a4], a3, n] - S2[a6, a1, a5, SP[a3, a4], a2, n] - 
    S2[a6, a1, SP[a2, a4], a5, a3, n] - S2[a6, a1, SP[a4, a5], a2, a3, n] - 
    S2[a6, a1, SP[a4, a5], a3, a2, n] + S2[a1, n]*S2[a6, a2, a4, a5, a3, n] + 
    S2[a6, a2, a4, a5, SP[a1, a3], n] + S2[a6, a2, a4, SP[a1, a5], a3, n] + 
    S2[a6, a2, SP[a1, a4], a5, a3, n] + S2[a4, n]*S2[a6, a3, a5, a1, a2, n] + 
    S2[a6, a3, a5, a1, SP[a2, a4], n] + S2[a6, a3, a5, SP[a1, a4], a2, n] + 
    S2[a6, a3, SP[a4, a5], a1, a2, n] + S2[a1, n]*S2[a6, a4, a2, a5, a3, n] + 
    S2[a6, a4, a2, a5, SP[a1, a3], n] + S2[a6, a4, a2, SP[a1, a5], a3, n] - 
    S2[a3, n]*S2[a6, a4, a5, a1, a2, n] - S2[a6, a4, a5, a1, SP[a2, a3], n] + 
    S2[a1, n]*S2[a6, a4, a5, a2, a3, n] + S2[a6, a4, a5, a2, SP[a1, a3], n] + 
    S2[a1, n]*S2[a6, a4, a5, a3, a2, n] + S2[a6, a4, a5, a3, SP[a1, a2], n] + 
    S2[a6, a4, a5, SP[a1, a2], a3, n] + S2[a6, a4, SP[a1, a2], a5, a3, n] + 
    S2[a6, a4, SP[a1, a5], a2, a3, n] + S2[a6, a4, SP[a1, a5], a3, a2, n] - 
    S2[a6, a4, SP[a3, a5], a1, a2, n] + S2[a6, SP[a1, a2], a4, a5, a3, n] + 
    S2[SP[a1, a6], a2, a4, a5, a3, n] + S2[SP[a1, a6], a2, a5, a3, a4, n] + 
    S2[SP[a1, a6], a2, a5, a4, a3, n] + S2[SP[a1, a6], a4, a2, a5, a3, n] + 
    S2[SP[a1, a6], a4, a5, a2, a3, n] + S2[SP[a1, a6], a4, a5, a3, a2, n] + 
    S2[SP[a1, a6], a5, a2, a3, a4, n] + S2[SP[a1, a6], a5, a2, a4, a3, n] + 
    S2[SP[a1, a6], a5, a3, a2, a4, n] + S2[SP[a1, a6], a5, a3, a4, a2, n] + 
    S2[SP[a1, a6], a5, a4, a2, a3, n] + S2[SP[a1, a6], a5, a4, a3, a2, n] - 
    S2[SP[a3, a6], a4, a5, a1, a2, n] - S2[SP[a3, a6], a5, a1, a2, a4, n] - 
    S2[SP[a3, a6], a5, a1, a4, a2, n] - S2[SP[a3, a6], a5, a4, a1, a2, n] - 
    S2[SP[a4, a6], a1, a2, a5, a3, n] - S2[SP[a4, a6], a1, a5, a2, a3, n] - 
    S2[SP[a4, a6], a1, a5, a3, a2, n] + S2[SP[a4, a6], a3, a5, a1, a2, n] - 
    S2[a6, a2, a1, a4, a5, a3, n] - S2[a6, a2, a4, a1, a5, a3, n] - 
    S2[a6, a2, a4, a5, a1, a3, n] - S2[a6, a2, a4, a5, a3, a1, n] - 
    S2[a6, a4, a2, a1, a5, a3, n] - S2[a6, a4, a2, a5, a1, a3, n] - 
    S2[a6, a4, a2, a5, a3, a1, n] - S2[a6, a4, a5, a2, a1, a3, n] - 
    S2[a6, a4, a5, a2, a3, a1, n] - S2[a6, a4, a5, a3, a2, a1, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a3_, a5_, a6_, a1_, a2_, a4_, n_] :> 
  -(S2[a3, a5, n]*S2[a1, a2, a4, a6, n]) - S2[a3, a5, n]*
     S2[a1, a2, a6, a4, n] + S2[a1, a2, SP[a3, a4], SP[a5, a6], n] + 
    S2[a1, a2, SP[a3, a6], SP[a4, a5], n] - S2[a3, a5, n]*
     S2[a1, a6, a2, a4, n] + S2[a1, a6, SP[a2, a3], SP[a4, a5], n] + 
    S2[a1, SP[a2, a3], a4, SP[a5, a6], n] + S2[a1, SP[a2, a3], a6, 
     SP[a4, a5], n] + S2[a1, SP[a2, a3], SP[a4, a5], a6, n] + 
    S2[a1, SP[a2, a3], SP[a5, a6], a4, n] + S2[a1, SP[a3, a6], a2, 
     SP[a4, a5], n] + S2[a1, SP[a3, a6], SP[a2, a5], a4, n] + 
    S2[SP[a1, a3], a2, a4, SP[a5, a6], n] + S2[SP[a1, a3], a2, a6, 
     SP[a4, a5], n] + S2[SP[a1, a3], a2, SP[a4, a5], a6, n] + 
    S2[SP[a1, a3], a2, SP[a5, a6], a4, n] + S2[SP[a1, a3], a6, a2, 
     SP[a4, a5], n] + S2[SP[a1, a3], a6, SP[a2, a5], a4, n] + 
    S2[SP[a1, a3], SP[a2, a5], a4, a6, n] + S2[SP[a1, a3], SP[a2, a5], a6, 
     a4, n] + S2[SP[a1, a3], SP[a5, a6], a2, a4, n] - 
    S2[a1, a2, a3, a4, SP[a5, a6], n] - S2[a1, a2, a3, a6, SP[a4, a5], n] - 
    S2[a1, a2, a3, SP[a4, a5], a6, n] - S2[a1, a2, a3, SP[a5, a6], a4, n] - 
    S2[a1, a2, a4, a3, SP[a5, a6], n] - S2[a6, n]*S2[a1, a2, a4, a5, a3, n] + 
    S2[a3, n]*S2[a1, a2, a4, a5, a6, n] + 
    S2[a3, n]*S2[a1, a2, a4, a6, a5, n] + S2[a1, a2, a4, a6, SP[a3, a5], n] + 
    S2[a1, a2, a4, SP[a3, a5], a6, n] - S2[a1, a2, a4, SP[a5, a6], a3, n] - 
    S2[a6, n]*S2[a1, a2, a5, a3, a4, n] - S2[a1, a2, a5, a3, SP[a4, a6], n] - 
    S2[a6, n]*S2[a1, a2, a5, a4, a3, n] + 
    S2[a3, n]*S2[a1, a2, a5, a4, a6, n] + 
    S2[a3, n]*S2[a1, a2, a5, a6, a4, n] + S2[a1, a2, a5, a6, SP[a3, a4], n] + 
    S2[a1, a2, a5, SP[a3, a4], a6, n] - S2[a1, a2, a5, SP[a4, a6], a3, n] - 
    S2[a1, a2, a6, a3, SP[a4, a5], n] + S2[a3, n]*S2[a1, a2, a6, a4, a5, n] + 
    S2[a1, a2, a6, a4, SP[a3, a5], n] + S2[a3, n]*S2[a1, a2, a6, a5, a4, n] + 
    S2[a1, a2, a6, a5, SP[a3, a4], n] + S2[a1, a2, a6, SP[a3, a5], a4, n] + 
    S2[a1, a2, SP[a3, a5], a4, a6, n] + S2[a1, a2, SP[a3, a5], a6, a4, n] - 
    S2[a1, a2, SP[a4, a6], a5, a3, n] - S2[a1, a2, SP[a5, a6], a3, a4, n] - 
    S2[a1, a2, SP[a5, a6], a4, a3, n] - S2[a1, a3, a2, a4, SP[a5, a6], n] - 
    S2[a1, a3, a2, a6, SP[a4, a5], n] - S2[a1, a3, a2, SP[a4, a5], a6, n] - 
    S2[a1, a3, a2, SP[a5, a6], a4, n] - S2[a1, a3, a6, a2, SP[a4, a5], n] - 
    S2[a1, a3, a6, SP[a2, a5], a4, n] - S2[a1, a3, SP[a2, a5], a4, a6, n] - 
    S2[a1, a3, SP[a2, a5], a6, a4, n] - S2[a1, a3, SP[a5, a6], a2, a4, n] - 
    S2[a6, n]*S2[a1, a5, a2, a3, a4, n] - S2[a1, a5, a2, a3, SP[a4, a6], n] - 
    S2[a6, n]*S2[a1, a5, a2, a4, a3, n] + 
    S2[a3, n]*S2[a1, a5, a2, a4, a6, n] + 
    S2[a3, n]*S2[a1, a5, a2, a6, a4, n] + S2[a1, a5, a2, a6, SP[a3, a4], n] + 
    S2[a1, a5, a2, SP[a3, a4], a6, n] - S2[a1, a5, a2, SP[a4, a6], a3, n] - 
    S2[a6, n]*S2[a1, a5, a3, a2, a4, n] - S2[a1, a5, a3, a2, SP[a4, a6], n] - 
    S2[a1, a5, a3, SP[a2, a6], a4, n] + S2[a3, n]*S2[a1, a5, a6, a2, a4, n] + 
    S2[a1, a5, a6, a2, SP[a3, a4], n] + S2[a1, a5, a6, SP[a2, a3], a4, n] + 
    S2[a1, a5, SP[a2, a3], a4, a6, n] + S2[a1, a5, SP[a2, a3], a6, a4, n] - 
    S2[a1, a5, SP[a2, a6], a3, a4, n] - S2[a1, a5, SP[a2, a6], a4, a3, n] - 
    S2[a1, a6, a2, a3, SP[a4, a5], n] + S2[a3, n]*S2[a1, a6, a2, a4, a5, n] + 
    S2[a1, a6, a2, a4, SP[a3, a5], n] + S2[a3, n]*S2[a1, a6, a2, a5, a4, n] + 
    S2[a1, a6, a2, a5, SP[a3, a4], n] + S2[a1, a6, a2, SP[a3, a5], a4, n] - 
    S2[a1, a6, a3, a2, SP[a4, a5], n] - S2[a1, a6, a3, SP[a2, a5], a4, n] + 
    S2[a3, n]*S2[a1, a6, a5, a2, a4, n] + S2[a1, a6, a5, a2, SP[a3, a4], n] + 
    S2[a1, a6, a5, SP[a2, a3], a4, n] + S2[a1, a6, SP[a3, a5], a2, a4, n] - 
    S2[a1, SP[a2, a6], a4, a5, a3, n] - S2[a1, SP[a2, a6], a5, a3, a4, n] - 
    S2[a1, SP[a2, a6], a5, a4, a3, n] + S2[a1, SP[a3, a5], a2, a4, a6, n] + 
    S2[a1, SP[a3, a5], a2, a6, a4, n] + S2[a1, SP[a3, a5], a6, a2, a4, n] - 
    S2[a1, SP[a5, a6], a2, a3, a4, n] - S2[a1, SP[a5, a6], a2, a4, a3, n] - 
    S2[a1, SP[a5, a6], a3, a2, a4, n] - S2[a3, a1, a2, a4, SP[a5, a6], n] - 
    S2[a3, a1, a2, a6, SP[a4, a5], n] - S2[a3, a1, a2, SP[a4, a5], a6, n] - 
    S2[a3, a1, a2, SP[a5, a6], a4, n] - S2[a3, a1, a6, a2, SP[a4, a5], n] - 
    S2[a3, a1, a6, SP[a2, a5], a4, n] - S2[a3, a1, SP[a2, a5], a4, a6, n] - 
    S2[a3, a1, SP[a2, a5], a6, a4, n] - S2[a3, a1, SP[a5, a6], a2, a4, n] + 
    S2[a6, n]*S2[a3, a5, a1, a2, a4, n] + S2[a3, a5, a1, a2, SP[a4, a6], n] + 
    S2[a3, a5, a1, SP[a2, a6], a4, n] + S2[a3, a5, SP[a1, a6], a2, a4, n] - 
    S2[a3, SP[a1, a5], a2, a4, a6, n] - S2[a3, SP[a1, a5], a2, a6, a4, n] - 
    S2[a3, SP[a1, a5], a6, a2, a4, n] + S2[a3, SP[a5, a6], a1, a2, a4, n] - 
    S2[a3, n]*S2[a6, a5, a1, a2, a4, n] - S2[a6, a5, a1, a2, SP[a3, a4], n] - 
    S2[a6, a5, a1, SP[a2, a3], a4, n] - S2[a6, a5, SP[a1, a3], a2, a4, n] - 
    S2[a6, SP[a3, a5], a1, a2, a4, n] - S2[SP[a1, a6], a2, a4, a5, a3, n] - 
    S2[SP[a1, a6], a2, a5, a3, a4, n] - S2[SP[a1, a6], a2, a5, a4, a3, n] - 
    S2[SP[a1, a6], a5, a2, a3, a4, n] - S2[SP[a1, a6], a5, a2, a4, a3, n] - 
    S2[SP[a1, a6], a5, a3, a2, a4, n] + S2[a6, a1, a2, a4, a5, a3, n] + 
    S2[a6, a1, a2, a5, a3, a4, n] + S2[a6, a1, a2, a5, a4, a3, n] + 
    S2[a6, a1, a5, a2, a3, a4, n] + S2[a6, a1, a5, a2, a4, a3, n] + 
    S2[a6, a1, a5, a3, a2, a4, n] + S2[a6, a5, a1, a2, a3, a4, n] + 
    S2[a6, a5, a1, a2, a4, a3, n] + S2[a6, a5, a1, a3, a2, a4, n] + 
    S2[a6, a5, a3, a1, a2, a4, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a3_, a5_, a6_, a1_, a4_, a2_, n_] :> 
  -(S2[a3, a5, n]*S2[a1, a4, a2, a6, n]) - S2[a3, a5, n]*
     S2[a1, a4, a6, a2, n] + S2[a1, a4, SP[a2, a3], SP[a5, a6], n] + 
    S2[a1, a4, SP[a3, a6], SP[a2, a5], n] - S2[a3, a5, n]*
     S2[a1, a6, a4, a2, n] + S2[a1, a6, SP[a3, a4], SP[a2, a5], n] + 
    S2[a1, SP[a3, a4], a2, SP[a5, a6], n] + S2[a1, SP[a3, a4], a6, 
     SP[a2, a5], n] + S2[a1, SP[a3, a4], SP[a2, a5], a6, n] + 
    S2[a1, SP[a3, a4], SP[a5, a6], a2, n] + S2[a1, SP[a3, a6], a4, 
     SP[a2, a5], n] + S2[a1, SP[a3, a6], SP[a4, a5], a2, n] + 
    S2[SP[a1, a3], a4, a2, SP[a5, a6], n] + S2[SP[a1, a3], a4, a6, 
     SP[a2, a5], n] + S2[SP[a1, a3], a4, SP[a2, a5], a6, n] + 
    S2[SP[a1, a3], a4, SP[a5, a6], a2, n] + S2[SP[a1, a3], a6, a4, 
     SP[a2, a5], n] + S2[SP[a1, a3], a6, SP[a4, a5], a2, n] + 
    S2[SP[a1, a3], SP[a4, a5], a2, a6, n] + S2[SP[a1, a3], SP[a4, a5], a6, 
     a2, n] + S2[SP[a1, a3], SP[a5, a6], a4, a2, n] - 
    S2[a1, a3, a4, a2, SP[a5, a6], n] - S2[a1, a3, a4, a6, SP[a2, a5], n] - 
    S2[a1, a3, a4, SP[a2, a5], a6, n] - S2[a1, a3, a4, SP[a5, a6], a2, n] - 
    S2[a1, a3, a6, a4, SP[a2, a5], n] - S2[a1, a3, a6, SP[a4, a5], a2, n] - 
    S2[a1, a3, SP[a4, a5], a2, a6, n] - S2[a1, a3, SP[a4, a5], a6, a2, n] - 
    S2[a1, a3, SP[a5, a6], a4, a2, n] - S2[a1, a4, a2, a3, SP[a5, a6], n] - 
    S2[a6, n]*S2[a1, a4, a2, a5, a3, n] + 
    S2[a3, n]*S2[a1, a4, a2, a5, a6, n] + 
    S2[a3, n]*S2[a1, a4, a2, a6, a5, n] + S2[a1, a4, a2, a6, SP[a3, a5], n] + 
    S2[a1, a4, a2, SP[a3, a5], a6, n] - S2[a1, a4, a2, SP[a5, a6], a3, n] - 
    S2[a1, a4, a3, a2, SP[a5, a6], n] - S2[a1, a4, a3, a6, SP[a2, a5], n] - 
    S2[a1, a4, a3, SP[a2, a5], a6, n] - S2[a1, a4, a3, SP[a5, a6], a2, n] - 
    S2[a6, n]*S2[a1, a4, a5, a2, a3, n] + 
    S2[a3, n]*S2[a1, a4, a5, a2, a6, n] - 
    S2[a6, n]*S2[a1, a4, a5, a3, a2, n] - S2[a1, a4, a5, a3, SP[a2, a6], n] + 
    S2[a3, n]*S2[a1, a4, a5, a6, a2, n] + S2[a1, a4, a5, a6, SP[a2, a3], n] + 
    S2[a1, a4, a5, SP[a2, a3], a6, n] - S2[a1, a4, a5, SP[a2, a6], a3, n] + 
    S2[a3, n]*S2[a1, a4, a6, a2, a5, n] + S2[a1, a4, a6, a2, SP[a3, a5], n] - 
    S2[a1, a4, a6, a3, SP[a2, a5], n] + S2[a3, n]*S2[a1, a4, a6, a5, a2, n] + 
    S2[a1, a4, a6, a5, SP[a2, a3], n] + S2[a1, a4, a6, SP[a3, a5], a2, n] - 
    S2[a1, a4, SP[a2, a6], a5, a3, n] + S2[a1, a4, SP[a3, a5], a2, a6, n] + 
    S2[a1, a4, SP[a3, a5], a6, a2, n] - S2[a1, a4, SP[a5, a6], a2, a3, n] - 
    S2[a1, a4, SP[a5, a6], a3, a2, n] - S2[a6, n]*S2[a1, a5, a3, a4, a2, n] - 
    S2[a1, a5, a3, a4, SP[a2, a6], n] - S2[a1, a5, a3, SP[a4, a6], a2, n] - 
    S2[a6, n]*S2[a1, a5, a4, a2, a3, n] + 
    S2[a3, n]*S2[a1, a5, a4, a2, a6, n] - 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] - S2[a1, a5, a4, a3, SP[a2, a6], n] + 
    S2[a3, n]*S2[a1, a5, a4, a6, a2, n] + S2[a1, a5, a4, a6, SP[a2, a3], n] + 
    S2[a1, a5, a4, SP[a2, a3], a6, n] - S2[a1, a5, a4, SP[a2, a6], a3, n] + 
    S2[a3, n]*S2[a1, a5, a6, a4, a2, n] + S2[a1, a5, a6, a4, SP[a2, a3], n] + 
    S2[a1, a5, a6, SP[a3, a4], a2, n] + S2[a1, a5, SP[a3, a4], a2, a6, n] + 
    S2[a1, a5, SP[a3, a4], a6, a2, n] - S2[a1, a5, SP[a4, a6], a2, a3, n] - 
    S2[a1, a5, SP[a4, a6], a3, a2, n] - S2[a1, a6, a3, a4, SP[a2, a5], n] - 
    S2[a1, a6, a3, SP[a4, a5], a2, n] + S2[a3, n]*S2[a1, a6, a4, a2, a5, n] + 
    S2[a1, a6, a4, a2, SP[a3, a5], n] - S2[a1, a6, a4, a3, SP[a2, a5], n] + 
    S2[a3, n]*S2[a1, a6, a4, a5, a2, n] + S2[a1, a6, a4, a5, SP[a2, a3], n] + 
    S2[a1, a6, a4, SP[a3, a5], a2, n] + S2[a3, n]*S2[a1, a6, a5, a4, a2, n] + 
    S2[a1, a6, a5, a4, SP[a2, a3], n] + S2[a1, a6, a5, SP[a3, a4], a2, n] + 
    S2[a1, a6, SP[a3, a5], a4, a2, n] + S2[a1, SP[a3, a5], a4, a2, a6, n] + 
    S2[a1, SP[a3, a5], a4, a6, a2, n] + S2[a1, SP[a3, a5], a6, a4, a2, n] - 
    S2[a1, SP[a4, a6], a2, a5, a3, n] - S2[a1, SP[a4, a6], a5, a2, a3, n] - 
    S2[a1, SP[a4, a6], a5, a3, a2, n] - S2[a1, SP[a5, a6], a3, a4, a2, n] - 
    S2[a1, SP[a5, a6], a4, a2, a3, n] - S2[a1, SP[a5, a6], a4, a3, a2, n] - 
    S2[a3, a1, a4, a2, SP[a5, a6], n] - S2[a3, a1, a4, a6, SP[a2, a5], n] - 
    S2[a3, a1, a4, SP[a2, a5], a6, n] - S2[a3, a1, a4, SP[a5, a6], a2, n] - 
    S2[a3, a1, a6, a4, SP[a2, a5], n] - S2[a3, a1, a6, SP[a4, a5], a2, n] - 
    S2[a3, a1, SP[a4, a5], a2, a6, n] - S2[a3, a1, SP[a4, a5], a6, a2, n] - 
    S2[a3, a1, SP[a5, a6], a4, a2, n] + S2[a6, n]*S2[a3, a5, a1, a4, a2, n] + 
    S2[a3, a5, a1, a4, SP[a2, a6], n] + S2[a3, a5, a1, SP[a4, a6], a2, n] + 
    S2[a3, a5, SP[a1, a6], a4, a2, n] - S2[a3, SP[a1, a5], a4, a2, a6, n] - 
    S2[a3, SP[a1, a5], a4, a6, a2, n] - S2[a3, SP[a1, a5], a6, a4, a2, n] + 
    S2[a3, SP[a5, a6], a1, a4, a2, n] - S2[a3, n]*S2[a6, a5, a1, a4, a2, n] - 
    S2[a6, a5, a1, a4, SP[a2, a3], n] - S2[a6, a5, a1, SP[a3, a4], a2, n] - 
    S2[a6, a5, SP[a1, a3], a4, a2, n] - S2[a6, SP[a3, a5], a1, a4, a2, n] - 
    S2[SP[a1, a6], a4, a2, a5, a3, n] - S2[SP[a1, a6], a4, a5, a2, a3, n] - 
    S2[SP[a1, a6], a4, a5, a3, a2, n] - S2[SP[a1, a6], a5, a3, a4, a2, n] - 
    S2[SP[a1, a6], a5, a4, a2, a3, n] - S2[SP[a1, a6], a5, a4, a3, a2, n] + 
    S2[a6, a1, a4, a2, a5, a3, n] + S2[a6, a1, a4, a5, a2, a3, n] + 
    S2[a6, a1, a4, a5, a3, a2, n] + S2[a6, a1, a5, a3, a4, a2, n] + 
    S2[a6, a1, a5, a4, a2, a3, n] + S2[a6, a1, a5, a4, a3, a2, n] + 
    S2[a6, a5, a1, a3, a4, a2, n] + S2[a6, a5, a1, a4, a2, a3, n] + 
    S2[a6, a5, a1, a4, a3, a2, n] + S2[a6, a5, a3, a1, a4, a2, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a3_, a5_, a6_, a2_, a1_, a4_, n_] :> 
  S2[a3, a5, n]*S2[a1, a2, a4, a6, n] + S2[a3, a5, n]*S2[a1, a2, a6, a4, n] - 
    S2[a1, a2, SP[a3, a4], SP[a5, a6], n] - S2[a1, a2, SP[a3, a6], 
     SP[a4, a5], n] + S2[a3, a5, n]*S2[a1, a4, a2, a6, n] - 
    S2[a1, a4, SP[a2, a3], SP[a5, a6], n] - S2[a1, SP[a2, a3], a4, 
     SP[a5, a6], n] - S2[a1, SP[a2, a3], a6, SP[a4, a5], n] - 
    S2[a1, SP[a2, a3], SP[a4, a5], a6, n] - S2[a1, SP[a2, a3], SP[a5, a6], 
     a4, n] - S2[a1, SP[a3, a4], a2, SP[a5, a6], n] - 
    S2[a1, SP[a3, a4], SP[a2, a5], a6, n] + S2[a1, a4, n]*
     S2[a2, a5, a3, a6, n] + S2[a1, a4, n]*S2[a2, a5, a6, a3, n] - 
    S2[a2, a5, SP[a1, a3], SP[a4, a6], n] - S2[a2, a5, SP[a1, a6], 
     SP[a3, a4], n] + S2[a1, a4, n]*S2[a2, a6, a5, a3, n] - 
    S2[a2, a6, SP[a1, a5], SP[a3, a4], n] - S2[a2, SP[a1, a5], a3, 
     SP[a4, a6], n] - S2[a2, SP[a1, a5], a6, SP[a3, a4], n] - 
    S2[a2, SP[a1, a5], SP[a3, a4], a6, n] - S2[a2, SP[a1, a5], SP[a4, a6], 
     a3, n] - S2[a2, SP[a1, a6], a5, SP[a3, a4], n] - 
    S2[a2, SP[a1, a6], SP[a4, a5], a3, n] - S2[a1, a4, n]*
     S2[a3, a5, a2, a6, n] + S2[a3, a5, SP[a1, a2], SP[a4, a6], n] + 
    S2[a3, SP[a1, a5], a2, SP[a4, a6], n] + S2[a3, SP[a1, a5], SP[a2, a4], 
     a6, n] - S2[SP[a1, a2], a5, a3, SP[a4, a6], n] - 
    S2[SP[a1, a2], a5, a6, SP[a3, a4], n] - S2[SP[a1, a2], a5, SP[a3, a4], 
     a6, n] - S2[SP[a1, a2], a5, SP[a4, a6], a3, n] - 
    S2[SP[a1, a2], a6, a5, SP[a3, a4], n] - S2[SP[a1, a2], a6, SP[a4, a5], 
     a3, n] - S2[SP[a1, a2], SP[a4, a5], a3, a6, n] - 
    S2[SP[a1, a2], SP[a4, a5], a6, a3, n] - S2[SP[a1, a2], SP[a4, a6], a5, 
     a3, n] - S2[SP[a1, a3], a2, a4, SP[a5, a6], n] - 
    S2[SP[a1, a3], a2, a6, SP[a4, a5], n] - S2[SP[a1, a3], a2, SP[a4, a5], 
     a6, n] - S2[SP[a1, a3], a2, SP[a5, a6], a4, n] - 
    S2[SP[a1, a3], a4, a2, SP[a5, a6], n] - S2[SP[a1, a3], a4, SP[a2, a5], 
     a6, n] + S2[SP[a1, a3], a5, a2, SP[a4, a6], n] + 
    S2[SP[a1, a3], a5, SP[a2, a4], a6, n] - S2[SP[a1, a3], SP[a2, a5], a4, 
     a6, n] - S2[SP[a1, a3], SP[a2, a5], a6, a4, n] + 
    S2[a1, a2, a3, a4, SP[a5, a6], n] + S2[a1, a2, a3, a6, SP[a4, a5], n] + 
    S2[a1, a2, a3, SP[a4, a5], a6, n] + S2[a1, a2, a3, SP[a5, a6], a4, n] + 
    S2[a1, a2, a4, a3, SP[a5, a6], n] + S2[a6, n]*S2[a1, a2, a4, a5, a3, n] - 
    S2[a3, n]*S2[a1, a2, a4, a5, a6, n] - 
    S2[a3, n]*S2[a1, a2, a4, a6, a5, n] - S2[a1, a2, a4, a6, SP[a3, a5], n] - 
    S2[a1, a2, a4, SP[a3, a5], a6, n] + S2[a1, a2, a4, SP[a5, a6], a3, n] + 
    S2[a6, n]*S2[a1, a2, a5, a3, a4, n] + 
    2*S2[a1, a2, a5, a3, SP[a4, a6], n] + 
    S2[a6, n]*S2[a1, a2, a5, a4, a3, n] - 
    S2[a3, n]*S2[a1, a2, a5, a4, a6, n] - 
    S2[a3, n]*S2[a1, a2, a5, a6, a4, n] + 
    2*S2[a1, a2, a5, SP[a4, a6], a3, n] + S2[a1, a2, a6, a3, SP[a4, a5], n] - 
    S2[a3, n]*S2[a1, a2, a6, a4, a5, n] - S2[a1, a2, a6, a4, SP[a3, a5], n] - 
    S2[a3, n]*S2[a1, a2, a6, a5, a4, n] - S2[a1, a2, a6, SP[a3, a5], a4, n] + 
    S2[a1, a2, a6, SP[a4, a5], a3, n] - S2[a1, a2, SP[a3, a5], a4, a6, n] - 
    S2[a1, a2, SP[a3, a5], a6, a4, n] + S2[a1, a2, SP[a4, a5], a3, a6, n] + 
    S2[a1, a2, SP[a4, a5], a6, a3, n] + 2*S2[a1, a2, SP[a4, a6], a5, a3, n] + 
    S2[a1, a2, SP[a5, a6], a3, a4, n] + S2[a1, a2, SP[a5, a6], a4, a3, n] + 
    S2[a1, a3, a2, a4, SP[a5, a6], n] + S2[a1, a3, a2, a6, SP[a4, a5], n] + 
    S2[a1, a3, a2, SP[a4, a5], a6, n] + S2[a1, a3, a2, SP[a5, a6], a4, n] + 
    S2[a1, a3, a4, a2, SP[a5, a6], n] + S2[a1, a3, a4, SP[a2, a5], a6, n] - 
    S2[a1, a3, a5, a2, SP[a4, a6], n] - S2[a1, a3, a5, SP[a2, a4], a6, n] + 
    S2[a1, a3, SP[a2, a5], a4, a6, n] + S2[a1, a3, SP[a2, a5], a6, a4, n] + 
    S2[a1, a4, a2, a3, SP[a5, a6], n] + S2[a6, n]*S2[a1, a4, a2, a5, a3, n] - 
    S2[a3, n]*S2[a1, a4, a2, a5, a6, n] - 
    S2[a3, n]*S2[a1, a4, a2, a6, a5, n] - S2[a1, a4, a2, a6, SP[a3, a5], n] - 
    S2[a1, a4, a2, SP[a3, a5], a6, n] + S2[a1, a4, a2, SP[a5, a6], a3, n] + 
    S2[a1, a4, a3, a2, SP[a5, a6], n] + S2[a1, a4, a3, SP[a2, a5], a6, n] + 
    S2[a6, n]*S2[a1, a4, a5, a2, a3, n] + S2[a1, a4, a5, a2, SP[a3, a6], n] + 
    S2[a6, n]*S2[a1, a4, a5, a3, a2, n] - 
    S2[a2, n]*S2[a1, a4, a5, a3, a6, n] - 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] - S2[a1, a4, a5, a6, SP[a2, a3], n] - 
    S2[a1, a4, a5, SP[a2, a3], a6, n] + S2[a1, a4, a5, SP[a3, a6], a2, n] - 
    S2[a2, n]*S2[a1, a4, a6, a5, a3, n] - S2[a1, a4, a6, a5, SP[a2, a3], n] - 
    S2[a1, a4, a6, SP[a2, a5], a3, n] - S2[a1, a4, SP[a2, a5], a3, a6, n] - 
    S2[a1, a4, SP[a2, a5], a6, a3, n] + S2[a1, a4, SP[a5, a6], a2, a3, n] + 
    S2[a1, a4, SP[a5, a6], a3, a2, n] + S2[a6, n]*S2[a1, a5, a2, a3, a4, n] + 
    S2[a1, a5, a2, a3, SP[a4, a6], n] + S2[a6, n]*S2[a1, a5, a2, a4, a3, n] + 
    S2[a1, a5, a2, a4, SP[a3, a6], n] + S2[a1, a5, a2, SP[a3, a6], a4, n] + 
    S2[a1, a5, a2, SP[a4, a6], a3, n] + S2[a6, n]*S2[a1, a5, a3, a2, a4, n] + 
    S2[a1, a5, a3, a2, SP[a4, a6], n] + S2[a6, n]*S2[a1, a5, a3, a4, a2, n] - 
    S2[a2, n]*S2[a1, a5, a3, a4, a6, n] - 
    S2[a2, n]*S2[a1, a5, a3, a6, a4, n] - S2[a1, a5, a3, a6, SP[a2, a4], n] - 
    S2[a1, a5, a3, SP[a2, a4], a6, n] + S2[a1, a5, a3, SP[a4, a6], a2, n] + 
    S2[a6, n]*S2[a1, a5, a4, a2, a3, n] + S2[a1, a5, a4, a2, SP[a3, a6], n] + 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] - 
    S2[a2, n]*S2[a1, a5, a4, a3, a6, n] - 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] - S2[a1, a5, a4, a6, SP[a2, a3], n] - 
    S2[a1, a5, a4, SP[a2, a3], a6, n] + S2[a1, a5, a4, SP[a3, a6], a2, n] - 
    S2[a2, n]*S2[a1, a5, a6, a3, a4, n] - S2[a1, a5, a6, a3, SP[a2, a4], n] - 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] - S2[a1, a5, a6, a4, SP[a2, a3], n] - 
    S2[a1, a5, a6, SP[a2, a3], a4, n] - S2[a1, a5, a6, SP[a2, a4], a3, n] - 
    S2[a1, a5, SP[a2, a3], a4, a6, n] - S2[a1, a5, SP[a2, a3], a6, a4, n] - 
    S2[a1, a5, SP[a2, a4], a3, a6, n] - S2[a1, a5, SP[a2, a4], a6, a3, n] + 
    S2[a1, a5, SP[a3, a6], a2, a4, n] + S2[a1, a5, SP[a3, a6], a4, a2, n] + 
    S2[a1, a5, SP[a4, a6], a2, a3, n] + S2[a1, a5, SP[a4, a6], a3, a2, n] - 
    S2[a2, n]*S2[a1, a6, a4, a5, a3, n] - S2[a1, a6, a4, a5, SP[a2, a3], n] - 
    S2[a1, a6, a4, SP[a2, a5], a3, n] - S2[a2, n]*S2[a1, a6, a5, a3, a4, n] - 
    S2[a1, a6, a5, a3, SP[a2, a4], n] - S2[a2, n]*S2[a1, a6, a5, a4, a3, n] - 
    S2[a1, a6, a5, a4, SP[a2, a3], n] - S2[a1, a6, a5, SP[a2, a3], a4, n] - 
    S2[a1, a6, a5, SP[a2, a4], a3, n] - S2[a1, a6, SP[a2, a4], a5, a3, n] - 
    S2[a1, a6, SP[a2, a5], a3, a4, n] - S2[a1, a6, SP[a2, a5], a4, a3, n] - 
    S2[a1, SP[a2, a5], a3, a4, a6, n] - S2[a1, SP[a2, a5], a3, a6, a4, n] - 
    S2[a1, SP[a2, a5], a4, a3, a6, n] - S2[a1, SP[a2, a5], a4, a6, a3, n] - 
    S2[a1, SP[a2, a5], a6, a3, a4, n] - S2[a1, SP[a2, a5], a6, a4, a3, n] + 
    S2[a1, SP[a4, a6], a2, a5, a3, n] + S2[a1, SP[a4, a6], a5, a2, a3, n] + 
    S2[a1, SP[a4, a6], a5, a3, a2, n] + S2[a1, SP[a5, a6], a2, a3, a4, n] + 
    S2[a1, SP[a5, a6], a2, a4, a3, n] + S2[a1, SP[a5, a6], a3, a2, a4, n] + 
    S2[a1, SP[a5, a6], a3, a4, a2, n] + S2[a1, SP[a5, a6], a4, a2, a3, n] + 
    S2[a1, SP[a5, a6], a4, a3, a2, n] + S2[a2, a1, a5, a3, SP[a4, a6], n] + 
    S2[a2, a1, a5, a6, SP[a3, a4], n] + S2[a2, a1, a5, SP[a3, a4], a6, n] + 
    S2[a2, a1, a5, SP[a4, a6], a3, n] + S2[a2, a1, a6, a5, SP[a3, a4], n] + 
    S2[a2, a1, a6, SP[a4, a5], a3, n] + S2[a2, a1, SP[a4, a5], a3, a6, n] + 
    S2[a2, a1, SP[a4, a5], a6, a3, n] + S2[a2, a1, SP[a4, a6], a5, a3, n] + 
    S2[a2, a5, a1, a3, SP[a4, a6], n] - S2[a3, n]*S2[a2, a5, a1, a4, a6, n] - 
    S2[a2, a5, a1, a4, SP[a3, a6], n] - S2[a3, n]*S2[a2, a5, a1, a6, a4, n] - 
    S2[a2, a5, a1, SP[a3, a6], a4, n] + S2[a2, a5, a1, SP[a4, a6], a3, n] + 
    S2[a2, a5, a3, a1, SP[a4, a6], n] + S2[a2, a5, a3, SP[a1, a6], a4, n] - 
    S2[a3, n]*S2[a2, a5, a6, a1, a4, n] + S2[a2, a5, SP[a1, a6], a3, a4, n] + 
    S2[a2, a5, SP[a1, a6], a4, a3, n] - S2[a2, a5, SP[a3, a6], a1, a4, n] + 
    S2[a2, a6, a1, a5, SP[a3, a4], n] + S2[a2, a6, a1, SP[a4, a5], a3, n] + 
    S2[a2, a6, a5, a1, SP[a3, a4], n] + S2[a2, a6, a5, SP[a1, a3], a4, n] + 
    S2[a2, a6, SP[a1, a5], a3, a4, n] + S2[a2, a6, SP[a1, a5], a4, a3, n] + 
    S2[a2, SP[a1, a5], a3, a4, a6, n] + S2[a2, SP[a1, a5], a3, a6, a4, n] + 
    S2[a2, SP[a1, a5], a4, a3, a6, n] + S2[a2, SP[a1, a5], a4, a6, a3, n] + 
    S2[a2, SP[a1, a5], a6, a3, a4, n] + S2[a2, SP[a1, a5], a6, a4, a3, n] + 
    S2[a2, SP[a1, a6], a4, a5, a3, n] + S2[a2, SP[a1, a6], a5, a3, a4, n] + 
    S2[a2, SP[a1, a6], a5, a4, a3, n] - S2[a2, SP[a3, a5], a1, a4, a6, n] - 
    S2[a2, SP[a3, a5], a1, a6, a4, n] - S2[a2, SP[a3, a5], a6, a1, a4, n] + 
    S2[a3, a1, a2, a4, SP[a5, a6], n] + S2[a3, a1, a2, a6, SP[a4, a5], n] + 
    S2[a3, a1, a2, SP[a4, a5], a6, n] + S2[a3, a1, a2, SP[a5, a6], a4, n] + 
    S2[a3, a1, a4, a2, SP[a5, a6], n] + S2[a3, a1, a4, SP[a2, a5], a6, n] - 
    S2[a3, a1, a5, a2, SP[a4, a6], n] - S2[a3, a1, a5, SP[a2, a4], a6, n] + 
    S2[a3, a1, SP[a2, a5], a4, a6, n] + S2[a3, a1, SP[a2, a5], a6, a4, n] - 
    S2[a6, n]*S2[a3, a5, a1, a2, a4, n] - 
    2*S2[a3, a5, a1, a2, SP[a4, a6], n] - 
    S2[a6, n]*S2[a3, a5, a1, a4, a2, n] + 
    S2[a2, n]*S2[a3, a5, a1, a4, a6, n] + 
    S2[a2, n]*S2[a3, a5, a1, a6, a4, n] + S2[a3, a5, a1, a6, SP[a2, a4], n] - 
    S2[a3, a5, a1, SP[a4, a6], a2, n] - S2[a3, a5, a2, a1, SP[a4, a6], n] - 
    S2[a3, a5, a2, SP[a1, a6], a4, n] + S2[a2, n]*S2[a3, a5, a6, a1, a4, n] + 
    S2[a3, a5, a6, a1, SP[a2, a4], n] + S2[a3, a5, a6, SP[a1, a2], a4, n] - 

    S2[a3, a5, SP[a1, a6], a2, a4, n] - S2[a3, a5, SP[a1, a6], a4, a2, n] + 
    S2[a3, a5, SP[a2, a6], a1, a4, n] + S2[a3, SP[a2, a5], a1, a4, a6, n] + 
    S2[a3, SP[a2, a5], a1, a6, a4, n] + S2[a3, SP[a2, a5], a6, a1, a4, n] - 
    S2[a3, SP[a5, a6], a1, a2, a4, n] - S2[a3, SP[a5, a6], a1, a4, a2, n] - 
    S2[a2, n]*S2[a6, a1, a4, a5, a3, n] - S2[a6, a1, a4, a5, SP[a2, a3], n] - 
    S2[a6, a1, a4, SP[a2, a5], a3, n] - S2[a2, n]*S2[a6, a1, a5, a3, a4, n] - 
    S2[a6, a1, a5, a3, SP[a2, a4], n] - S2[a2, n]*S2[a6, a1, a5, a4, a3, n] - 
    S2[a6, a1, a5, a4, SP[a2, a3], n] - S2[a6, a1, a5, SP[a2, a3], a4, n] - 
    S2[a6, a1, a5, SP[a2, a4], a3, n] - S2[a6, a1, SP[a2, a4], a5, a3, n] - 
    S2[a6, a1, SP[a2, a5], a3, a4, n] - S2[a6, a1, SP[a2, a5], a4, a3, n] + 
    S2[a3, n]*S2[a6, a5, a1, a2, a4, n] + S2[a6, a5, a1, a2, SP[a3, a4], n] - 
    S2[a2, n]*S2[a6, a5, a1, a3, a4, n] - S2[a6, a5, a1, a3, SP[a2, a4], n] + 
    S2[a3, n]*S2[a6, a5, a1, a4, a2, n] - 
    S2[a2, n]*S2[a6, a5, a1, a4, a3, n] - S2[a6, a5, a1, SP[a2, a4], a3, n] + 
    S2[a6, a5, a1, SP[a3, a4], a2, n] - S2[a2, n]*S2[a6, a5, a3, a1, a4, n] - 
    S2[a6, a5, a3, a1, SP[a2, a4], n] - S2[a6, a5, a3, SP[a1, a2], a4, n] - 
    S2[a6, a5, SP[a1, a2], a3, a4, n] - S2[a6, a5, SP[a1, a2], a4, a3, n] + 
    S2[a6, a5, SP[a1, a3], a2, a4, n] + S2[a6, a5, SP[a1, a3], a4, a2, n] - 
    S2[a6, a5, SP[a2, a3], a1, a4, n] - S2[a6, SP[a1, a2], a4, a5, a3, n] - 
    S2[a6, SP[a1, a2], a5, a3, a4, n] - S2[a6, SP[a1, a2], a5, a4, a3, n] - 
    S2[a6, SP[a2, a5], a1, a3, a4, n] - S2[a6, SP[a2, a5], a1, a4, a3, n] - 
    S2[a6, SP[a2, a5], a3, a1, a4, n] + S2[a6, SP[a3, a5], a1, a2, a4, n] + 
    S2[a6, SP[a3, a5], a1, a4, a2, n] + S2[SP[a1, a6], a2, a4, a5, a3, n] + 
    S2[SP[a1, a6], a2, a5, a3, a4, n] + S2[SP[a1, a6], a2, a5, a4, a3, n] + 
    S2[SP[a1, a6], a4, a2, a5, a3, n] + S2[SP[a1, a6], a4, a5, a2, a3, n] + 
    S2[SP[a1, a6], a4, a5, a3, a2, n] + S2[SP[a1, a6], a5, a2, a3, a4, n] + 
    S2[SP[a1, a6], a5, a2, a4, a3, n] + S2[SP[a1, a6], a5, a3, a2, a4, n] + 
    S2[SP[a1, a6], a5, a3, a4, a2, n] + S2[SP[a1, a6], a5, a4, a2, a3, n] + 
    S2[SP[a1, a6], a5, a4, a3, a2, n] - S2[SP[a2, a6], a1, a4, a5, a3, n] - 
    S2[SP[a2, a6], a1, a5, a3, a4, n] - S2[SP[a2, a6], a1, a5, a4, a3, n] - 
    S2[SP[a2, a6], a5, a1, a3, a4, n] - S2[SP[a2, a6], a5, a1, a4, a3, n] - 
    S2[SP[a2, a6], a5, a3, a1, a4, n] + S2[a6, a2, a1, a4, a5, a3, n] + 
    S2[a6, a2, a1, a5, a3, a4, n] + S2[a6, a2, a1, a5, a4, a3, n] + 
    S2[a6, a2, a5, a1, a3, a4, n] + S2[a6, a2, a5, a1, a4, a3, n] + 
    S2[a6, a2, a5, a3, a1, a4, n] + S2[a6, a5, a2, a1, a3, a4, n] + 
    S2[a6, a5, a2, a1, a4, a3, n] + S2[a6, a5, a2, a3, a1, a4, n] + 
    S2[a6, a5, a3, a2, a1, a4, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a3_, a5_, a6_, a2_, a4_, a1_, n_] :> 
  -(S2[a3, a5, n]*S2[a1, a4, a2, a6, n]) + S2[a1, a4, SP[a2, a3], SP[a5, a6], 
     n] + S2[a1, SP[a3, a4], a2, SP[a5, a6], n] + 
    S2[a1, SP[a3, a4], SP[a2, a5], a6, n] - S2[a1, a4, n]*
     S2[a2, a5, a3, a6, n] - S2[a1, a4, n]*S2[a2, a5, a6, a3, n] + 
    S2[a2, a5, SP[a1, a3], SP[a4, a6], n] + S2[a2, a5, SP[a1, a6], 
     SP[a3, a4], n] - S2[a1, a4, n]*S2[a2, a6, a5, a3, n] + 
    S2[a2, a6, SP[a1, a5], SP[a3, a4], n] + S2[a2, SP[a1, a5], a3, 
     SP[a4, a6], n] + S2[a2, SP[a1, a5], a6, SP[a3, a4], n] + 
    S2[a2, SP[a1, a5], SP[a3, a4], a6, n] + S2[a2, SP[a1, a5], SP[a4, a6], 
     a3, n] + S2[a2, SP[a1, a6], a5, SP[a3, a4], n] + 
    S2[a2, SP[a1, a6], SP[a4, a5], a3, n] + S2[a1, a4, n]*
     S2[a3, a5, a2, a6, n] - S2[a3, a5, SP[a1, a2], SP[a4, a6], n] - 
    S2[a3, SP[a1, a5], a2, SP[a4, a6], n] - S2[a3, SP[a1, a5], SP[a2, a4], 
     a6, n] + S2[SP[a1, a2], a5, a3, SP[a4, a6], n] + 
    S2[SP[a1, a2], a5, a6, SP[a3, a4], n] + S2[SP[a1, a2], a5, SP[a3, a4], 
     a6, n] + S2[SP[a1, a2], a5, SP[a4, a6], a3, n] + 
    S2[SP[a1, a2], a6, a5, SP[a3, a4], n] + S2[SP[a1, a2], a6, SP[a4, a5], 
     a3, n] + S2[SP[a1, a2], SP[a4, a5], a3, a6, n] + 
    S2[SP[a1, a2], SP[a4, a5], a6, a3, n] + S2[SP[a1, a2], SP[a4, a6], a5, 
     a3, n] + S2[SP[a1, a3], a4, a2, SP[a5, a6], n] + 
    S2[SP[a1, a3], a4, SP[a2, a5], a6, n] - S2[SP[a1, a3], a5, a2, 
     SP[a4, a6], n] - S2[SP[a1, a3], a5, SP[a2, a4], a6, n] - 
    S2[a1, a2, a5, a3, SP[a4, a6], n] - S2[a1, a2, a5, a6, SP[a3, a4], n] - 
    S2[a1, a2, a5, SP[a3, a4], a6, n] - S2[a1, a2, a5, SP[a4, a6], a3, n] - 
    S2[a1, a2, a6, a5, SP[a3, a4], n] - S2[a1, a2, a6, SP[a4, a5], a3, n] - 
    S2[a1, a2, SP[a4, a5], a3, a6, n] - S2[a1, a2, SP[a4, a5], a6, a3, n] - 
    S2[a1, a2, SP[a4, a6], a5, a3, n] - S2[a1, a3, a4, a2, SP[a5, a6], n] - 
    S2[a1, a3, a4, SP[a2, a5], a6, n] + S2[a1, a3, a5, a2, SP[a4, a6], n] + 
    S2[a1, a3, a5, SP[a2, a4], a6, n] - S2[a1, a4, a2, a3, SP[a5, a6], n] - 
    S2[a6, n]*S2[a1, a4, a2, a5, a3, n] + 
    S2[a3, n]*S2[a1, a4, a2, a5, a6, n] + 
    S2[a3, n]*S2[a1, a4, a2, a6, a5, n] + S2[a1, a4, a2, a6, SP[a3, a5], n] + 
    S2[a1, a4, a2, SP[a3, a5], a6, n] - S2[a1, a4, a2, SP[a5, a6], a3, n] - 
    S2[a1, a4, a3, a2, SP[a5, a6], n] - S2[a1, a4, a3, SP[a2, a5], a6, n] - 
    S2[a6, n]*S2[a1, a4, a5, a2, a3, n] - S2[a1, a4, a5, a2, SP[a3, a6], n] - 
    S2[a6, n]*S2[a1, a4, a5, a3, a2, n] + 
    S2[a2, n]*S2[a1, a4, a5, a3, a6, n] + 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] + S2[a1, a4, a5, a6, SP[a2, a3], n] + 
    S2[a1, a4, a5, SP[a2, a3], a6, n] - S2[a1, a4, a5, SP[a3, a6], a2, n] + 
    S2[a2, n]*S2[a1, a4, a6, a5, a3, n] + S2[a1, a4, a6, a5, SP[a2, a3], n] + 
    S2[a1, a4, a6, SP[a2, a5], a3, n] + S2[a1, a4, SP[a2, a5], a3, a6, n] + 
    S2[a1, a4, SP[a2, a5], a6, a3, n] - S2[a1, a4, SP[a5, a6], a2, a3, n] - 
    S2[a1, a4, SP[a5, a6], a3, a2, n] - S2[a3, n]*S2[a1, a5, a2, a4, a6, n] - 
    S2[a1, a5, a2, a4, SP[a3, a6], n] - S2[a3, n]*S2[a1, a5, a2, a6, a4, n] - 
    S2[a1, a5, a2, a6, SP[a3, a4], n] - S2[a1, a5, a2, SP[a3, a4], a6, n] - 
    S2[a1, a5, a2, SP[a3, a6], a4, n] - S2[a6, n]*S2[a1, a5, a3, a4, a2, n] + 
    S2[a2, n]*S2[a1, a5, a3, a4, a6, n] + 
    S2[a2, n]*S2[a1, a5, a3, a6, a4, n] + S2[a1, a5, a3, a6, SP[a2, a4], n] + 
    S2[a1, a5, a3, SP[a2, a4], a6, n] + S2[a1, a5, a3, SP[a2, a6], a4, n] - 
    S2[a1, a5, a3, SP[a4, a6], a2, n] - S2[a6, n]*S2[a1, a5, a4, a2, a3, n] - 
    S2[a1, a5, a4, a2, SP[a3, a6], n] - S2[a6, n]*S2[a1, a5, a4, a3, a2, n] + 
    S2[a2, n]*S2[a1, a5, a4, a3, a6, n] + 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] + S2[a1, a5, a4, a6, SP[a2, a3], n] + 
    S2[a1, a5, a4, SP[a2, a3], a6, n] - S2[a1, a5, a4, SP[a3, a6], a2, n] - 
    S2[a3, n]*S2[a1, a5, a6, a2, a4, n] - S2[a1, a5, a6, a2, SP[a3, a4], n] + 
    S2[a2, n]*S2[a1, a5, a6, a3, a4, n] + S2[a1, a5, a6, a3, SP[a2, a4], n] + 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] + S2[a1, a5, a6, a4, SP[a2, a3], n] + 
    S2[a1, a5, a6, SP[a2, a4], a3, n] + S2[a1, a5, SP[a2, a4], a3, a6, n] + 
    S2[a1, a5, SP[a2, a4], a6, a3, n] + S2[a1, a5, SP[a2, a6], a3, a4, n] + 
    S2[a1, a5, SP[a2, a6], a4, a3, n] - S2[a1, a5, SP[a3, a6], a2, a4, n] - 
    S2[a1, a5, SP[a3, a6], a4, a2, n] - S2[a1, a5, SP[a4, a6], a2, a3, n] - 
    S2[a1, a5, SP[a4, a6], a3, a2, n] + S2[a2, n]*S2[a1, a6, a4, a5, a3, n] + 
    S2[a1, a6, a4, a5, SP[a2, a3], n] + S2[a1, a6, a4, SP[a2, a5], a3, n] + 
    S2[a2, n]*S2[a1, a6, a5, a3, a4, n] + S2[a1, a6, a5, a3, SP[a2, a4], n] + 
    S2[a2, n]*S2[a1, a6, a5, a4, a3, n] + S2[a1, a6, a5, a4, SP[a2, a3], n] + 
    S2[a1, a6, a5, SP[a2, a3], a4, n] + S2[a1, a6, a5, SP[a2, a4], a3, n] + 
    S2[a1, a6, SP[a2, a4], a5, a3, n] + S2[a1, a6, SP[a2, a5], a3, a4, n] + 
    S2[a1, a6, SP[a2, a5], a4, a3, n] + S2[a1, SP[a2, a5], a3, a4, a6, n] + 
    S2[a1, SP[a2, a5], a3, a6, a4, n] + S2[a1, SP[a2, a5], a4, a3, a6, n] + 
    S2[a1, SP[a2, a5], a4, a6, a3, n] + S2[a1, SP[a2, a5], a6, a3, a4, n] + 
    S2[a1, SP[a2, a5], a6, a4, a3, n] + S2[a1, SP[a2, a6], a4, a5, a3, n] + 
    S2[a1, SP[a2, a6], a5, a3, a4, n] + S2[a1, SP[a2, a6], a5, a4, a3, n] - 
    S2[a1, SP[a3, a5], a2, a4, a6, n] - S2[a1, SP[a3, a5], a2, a6, a4, n] - 
    S2[a1, SP[a3, a5], a6, a2, a4, n] - S2[a1, SP[a4, a6], a2, a5, a3, n] - 
    S2[a1, SP[a4, a6], a5, a2, a3, n] - S2[a1, SP[a4, a6], a5, a3, a2, n] - 
    S2[a1, SP[a5, a6], a3, a4, a2, n] - S2[a1, SP[a5, a6], a4, a2, a3, n] - 
    S2[a1, SP[a5, a6], a4, a3, a2, n] - S2[a2, a1, a5, a3, SP[a4, a6], n] - 
    S2[a2, a1, a5, a6, SP[a3, a4], n] - S2[a2, a1, a5, SP[a3, a4], a6, n] - 
    S2[a2, a1, a5, SP[a4, a6], a3, n] - S2[a2, a1, a6, a5, SP[a3, a4], n] - 
    S2[a2, a1, a6, SP[a4, a5], a3, n] - S2[a2, a1, SP[a4, a5], a3, a6, n] - 
    S2[a2, a1, SP[a4, a5], a6, a3, n] - S2[a2, a1, SP[a4, a6], a5, a3, n] - 
    S2[a2, a5, a1, a3, SP[a4, a6], n] + S2[a3, n]*S2[a2, a5, a1, a4, a6, n] + 
    S2[a2, a5, a1, a4, SP[a3, a6], n] + S2[a3, n]*S2[a2, a5, a1, a6, a4, n] + 
    S2[a2, a5, a1, SP[a3, a6], a4, n] - S2[a2, a5, a1, SP[a4, a6], a3, n] - 
    S2[a2, a5, a3, a1, SP[a4, a6], n] - S2[a2, a5, a3, SP[a1, a6], a4, n] + 
    S2[a3, n]*S2[a2, a5, a6, a1, a4, n] - S2[a2, a5, SP[a1, a6], a3, a4, n] - 
    S2[a2, a5, SP[a1, a6], a4, a3, n] + S2[a2, a5, SP[a3, a6], a1, a4, n] - 
    S2[a2, a6, a1, a5, SP[a3, a4], n] - S2[a2, a6, a1, SP[a4, a5], a3, n] - 
    S2[a2, a6, a5, a1, SP[a3, a4], n] - S2[a2, a6, a5, SP[a1, a3], a4, n] - 
    S2[a2, a6, SP[a1, a5], a3, a4, n] - S2[a2, a6, SP[a1, a5], a4, a3, n] - 
    S2[a2, SP[a1, a5], a3, a4, a6, n] - S2[a2, SP[a1, a5], a3, a6, a4, n] - 
    S2[a2, SP[a1, a5], a4, a3, a6, n] - S2[a2, SP[a1, a5], a4, a6, a3, n] - 
    S2[a2, SP[a1, a5], a6, a3, a4, n] - S2[a2, SP[a1, a5], a6, a4, a3, n] - 
    S2[a2, SP[a1, a6], a4, a5, a3, n] - S2[a2, SP[a1, a6], a5, a3, a4, n] - 
    S2[a2, SP[a1, a6], a5, a4, a3, n] + S2[a2, SP[a3, a5], a1, a4, a6, n] + 
    S2[a2, SP[a3, a5], a1, a6, a4, n] + S2[a2, SP[a3, a5], a6, a1, a4, n] - 
    S2[a3, a1, a4, a2, SP[a5, a6], n] - S2[a3, a1, a4, SP[a2, a5], a6, n] + 
    S2[a3, a1, a5, a2, SP[a4, a6], n] + S2[a3, a1, a5, SP[a2, a4], a6, n] + 
    S2[a3, a5, a1, a2, SP[a4, a6], n] + S2[a6, n]*S2[a3, a5, a1, a4, a2, n] - 
    S2[a2, n]*S2[a3, a5, a1, a4, a6, n] - 
    S2[a2, n]*S2[a3, a5, a1, a6, a4, n] - S2[a3, a5, a1, a6, SP[a2, a4], n] - 
    S2[a3, a5, a1, SP[a2, a6], a4, n] + S2[a3, a5, a1, SP[a4, a6], a2, n] + 
    S2[a3, a5, a2, a1, SP[a4, a6], n] + S2[a3, a5, a2, SP[a1, a6], a4, n] - 
    S2[a2, n]*S2[a3, a5, a6, a1, a4, n] - S2[a3, a5, a6, a1, SP[a2, a4], n] + 
    S2[a1, n]*S2[a3, a5, a6, a2, a4, n] + S2[a3, a5, a6, a2, SP[a1, a4], n] + 
    S2[a3, a5, SP[a1, a6], a2, a4, n] + S2[a3, a5, SP[a1, a6], a4, a2, n] - 
    S2[a3, a5, SP[a2, a6], a1, a4, n] + S2[a3, SP[a1, a5], a2, a4, a6, n] + 
    S2[a3, SP[a1, a5], a2, a6, a4, n] + S2[a3, SP[a1, a5], a6, a2, a4, n] - 
    S2[a3, SP[a2, a5], a1, a4, a6, n] - S2[a3, SP[a2, a5], a1, a6, a4, n] - 
    S2[a3, SP[a2, a5], a6, a1, a4, n] + S2[a3, SP[a5, a6], a1, a4, a2, n] + 
    S2[a2, n]*S2[a6, a1, a4, a5, a3, n] + S2[a6, a1, a4, a5, SP[a2, a3], n] + 
    S2[a6, a1, a4, SP[a2, a5], a3, n] + S2[a2, n]*S2[a6, a1, a5, a3, a4, n] + 
    S2[a6, a1, a5, a3, SP[a2, a4], n] + S2[a2, n]*S2[a6, a1, a5, a4, a3, n] + 
    S2[a6, a1, a5, a4, SP[a2, a3], n] + S2[a6, a1, a5, SP[a2, a3], a4, n] + 
    S2[a6, a1, a5, SP[a2, a4], a3, n] + S2[a6, a1, SP[a2, a4], a5, a3, n] + 
    S2[a6, a1, SP[a2, a5], a3, a4, n] + S2[a6, a1, SP[a2, a5], a4, a3, n] - 
    S2[a1, n]*S2[a6, a2, a4, a5, a3, n] - S2[a6, a2, a4, a5, SP[a1, a3], n] - 
    S2[a6, a2, a4, SP[a1, a5], a3, n] - S2[a1, n]*S2[a6, a2, a5, a3, a4, n] - 
    S2[a6, a2, a5, a3, SP[a1, a4], n] - S2[a1, n]*S2[a6, a2, a5, a4, a3, n] - 
    S2[a6, a2, a5, a4, SP[a1, a3], n] - S2[a6, a2, a5, SP[a1, a3], a4, n] - 
    S2[a6, a2, a5, SP[a1, a4], a3, n] - S2[a6, a2, SP[a1, a4], a5, a3, n] - 
    S2[a6, a2, SP[a1, a5], a3, a4, n] - S2[a6, a2, SP[a1, a5], a4, a3, n] + 
    S2[a2, n]*S2[a6, a5, a1, a3, a4, n] + S2[a6, a5, a1, a3, SP[a2, a4], n] - 
    S2[a3, n]*S2[a6, a5, a1, a4, a2, n] + 
    S2[a2, n]*S2[a6, a5, a1, a4, a3, n] + S2[a6, a5, a1, SP[a2, a3], a4, n] + 
    S2[a6, a5, a1, SP[a2, a4], a3, n] - S2[a6, a5, a1, SP[a3, a4], a2, n] - 
    S2[a1, n]*S2[a6, a5, a2, a3, a4, n] - S2[a6, a5, a2, a3, SP[a1, a4], n] - 
    S2[a1, n]*S2[a6, a5, a2, a4, a3, n] - S2[a6, a5, a2, a4, SP[a1, a3], n] - 
    S2[a6, a5, a2, SP[a1, a3], a4, n] - S2[a6, a5, a2, SP[a1, a4], a3, n] + 
    S2[a2, n]*S2[a6, a5, a3, a1, a4, n] + S2[a6, a5, a3, a1, SP[a2, a4], n] - 
    S2[a1, n]*S2[a6, a5, a3, a2, a4, n] - S2[a6, a5, a3, a2, SP[a1, a4], n] - 
    S2[a6, a5, SP[a1, a3], a2, a4, n] - S2[a6, a5, SP[a1, a3], a4, a2, n] + 
    S2[a6, a5, SP[a2, a3], a1, a4, n] - S2[a6, SP[a1, a5], a2, a3, a4, n] - 
    S2[a6, SP[a1, a5], a2, a4, a3, n] - S2[a6, SP[a1, a5], a3, a2, a4, n] + 
    S2[a6, SP[a2, a5], a1, a3, a4, n] + S2[a6, SP[a2, a5], a1, a4, a3, n] + 
    S2[a6, SP[a2, a5], a3, a1, a4, n] - S2[a6, SP[a3, a5], a1, a4, a2, n] - 
    S2[SP[a1, a6], a2, a4, a5, a3, n] - S2[SP[a1, a6], a2, a5, a3, a4, n] - 
    S2[SP[a1, a6], a2, a5, a4, a3, n] - S2[SP[a1, a6], a4, a2, a5, a3, n] - 
    S2[SP[a1, a6], a4, a5, a2, a3, n] - S2[SP[a1, a6], a4, a5, a3, a2, n] - 
    S2[SP[a1, a6], a5, a2, a3, a4, n] - S2[SP[a1, a6], a5, a2, a4, a3, n] - 
    S2[SP[a1, a6], a5, a3, a2, a4, n] - S2[SP[a1, a6], a5, a3, a4, a2, n] - 
    S2[SP[a1, a6], a5, a4, a2, a3, n] - S2[SP[a1, a6], a5, a4, a3, a2, n] + 
    S2[SP[a2, a6], a1, a4, a5, a3, n] + S2[SP[a2, a6], a1, a5, a3, a4, n] + 
    S2[SP[a2, a6], a1, a5, a4, a3, n] + S2[SP[a2, a6], a5, a1, a3, a4, n] + 
    S2[SP[a2, a6], a5, a1, a4, a3, n] + S2[SP[a2, a6], a5, a3, a1, a4, n] + 
    S2[a6, a2, a4, a1, a5, a3, n] + S2[a6, a2, a4, a5, a1, a3, n] + 
    S2[a6, a2, a4, a5, a3, a1, n] + S2[a6, a2, a5, a3, a4, a1, n] + 
    S2[a6, a2, a5, a4, a1, a3, n] + S2[a6, a2, a5, a4, a3, a1, n] + 
    S2[a6, a5, a2, a3, a4, a1, n] + S2[a6, a5, a2, a4, a1, a3, n] + 
    S2[a6, a5, a2, a4, a3, a1, n] + S2[a6, a5, a3, a2, a4, a1, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a3_, a5_, a6_, a4_, a1_, a2_, n_] :> 
  S2[a3, a5, n]*S2[a1, a2, a4, a6, n] - S2[a1, a2, SP[a3, a4], SP[a5, a6], 
     n] + S2[a3, a5, n]*S2[a1, a4, a2, a6, n] + 
    S2[a3, a5, n]*S2[a1, a4, a6, a2, n] - S2[a1, a4, SP[a2, a3], SP[a5, a6], 
     n] - S2[a1, a4, SP[a3, a6], SP[a2, a5], n] - S2[a1, SP[a2, a3], a4, 
     SP[a5, a6], n] - S2[a1, SP[a2, a3], SP[a4, a5], a6, n] - 
    S2[a1, SP[a3, a4], a2, SP[a5, a6], n] - S2[a1, SP[a3, a4], a6, 
     SP[a2, a5], n] - S2[a1, SP[a3, a4], SP[a2, a5], a6, n] - 
    S2[a1, SP[a3, a4], SP[a5, a6], a2, n] + S2[a1, a2, n]*
     S2[a3, a5, a6, a4, n] - S2[a3, a5, SP[a1, a6], SP[a2, a4], n] + 
    S2[a1, a2, n]*S2[a3, a6, a4, a5, n] + S2[a1, a2, n]*
     S2[a3, a6, a5, a4, n] - S2[a3, a6, SP[a1, a4], SP[a2, a5], n] - 
    S2[a3, a6, SP[a1, a5], SP[a2, a4], n] - S2[a3, SP[a1, a5], a6, 
     SP[a2, a4], n] - S2[a3, SP[a1, a5], SP[a2, a6], a4, n] - 
    S2[a3, SP[a1, a6], a4, SP[a2, a5], n] - S2[a3, SP[a1, a6], a5, 
     SP[a2, a4], n] - S2[a3, SP[a1, a6], SP[a2, a4], a5, n] - 
    S2[a3, SP[a1, a6], SP[a2, a5], a4, n] - S2[a1, a2, n]*
     S2[a4, a6, a3, a5, n] + S2[a4, a6, SP[a1, a3], SP[a2, a5], n] + 
    S2[a4, SP[a1, a6], a3, SP[a2, a5], n] + S2[a4, SP[a1, a6], SP[a2, a3], 
     a5, n] - S2[SP[a1, a3], a2, a4, SP[a5, a6], n] - 
    S2[SP[a1, a3], a2, SP[a4, a5], a6, n] - S2[SP[a1, a3], a4, a2, 
     SP[a5, a6], n] - S2[SP[a1, a3], a4, a6, SP[a2, a5], n] - 
    S2[SP[a1, a3], a4, SP[a2, a5], a6, n] - S2[SP[a1, a3], a4, SP[a5, a6], 
     a2, n] - S2[SP[a1, a3], a5, a6, SP[a2, a4], n] - 
    S2[SP[a1, a3], a5, SP[a2, a6], a4, n] - S2[SP[a1, a3], a6, a4, 
     SP[a2, a5], n] - S2[SP[a1, a3], a6, a5, SP[a2, a4], n] - 
    S2[SP[a1, a3], a6, SP[a2, a4], a5, n] - S2[SP[a1, a3], a6, SP[a2, a5], 
     a4, n] - S2[SP[a1, a3], SP[a2, a5], a4, a6, n] - 
    S2[SP[a1, a3], SP[a2, a5], a6, a4, n] - S2[SP[a1, a3], SP[a2, a6], a4, 
     a5, n] - S2[SP[a1, a3], SP[a2, a6], a5, a4, n] - 
    S2[SP[a1, a3], SP[a4, a5], a2, a6, n] - S2[SP[a1, a3], SP[a4, a5], a6, 
     a2, n] + S2[SP[a1, a4], a6, a3, SP[a2, a5], n] + 
    S2[SP[a1, a4], a6, SP[a2, a3], a5, n] + S2[SP[a1, a4], SP[a2, a6], a3, 
     a5, n] + S2[a1, a2, a3, a4, SP[a5, a6], n] + S2[a1, a2, a3, SP[a4, a5], 
     a6, n] + S2[a1, a2, a4, a3, SP[a5, a6], n] + 
    S2[a6, n]*S2[a1, a2, a4, a5, a3, n] - 
    S2[a3, n]*S2[a1, a2, a4, a5, a6, n] - 
    S2[a3, n]*S2[a1, a2, a4, a6, a5, n] - S2[a1, a2, a4, a6, SP[a3, a5], n] - 
    S2[a1, a2, a4, SP[a3, a5], a6, n] + S2[a1, a2, a4, SP[a5, a6], a3, n] + 
    S2[a6, n]*S2[a1, a2, a5, a3, a4, n] + S2[a1, a2, a5, a3, SP[a4, a6], n] + 
    S2[a6, n]*S2[a1, a2, a5, a4, a3, n] - 
    S2[a3, n]*S2[a1, a2, a5, a4, a6, n] - 
    S2[a3, n]*S2[a1, a2, a5, a6, a4, n] - S2[a1, a2, a5, a6, SP[a3, a4], n] - 
    S2[a1, a2, a5, SP[a3, a4], a6, n] + S2[a1, a2, a5, SP[a4, a6], a3, n] + 
    S2[a4, n]*S2[a1, a2, a6, a3, a5, n] + S2[a1, a2, a6, a3, SP[a4, a5], n] - 
    S2[a3, n]*S2[a1, a2, a6, a4, a5, n] - S2[a1, a2, a6, a4, SP[a3, a5], n] - 
    S2[a3, n]*S2[a1, a2, a6, a5, a4, n] - S2[a1, a2, a6, a5, SP[a3, a4], n] - 
    S2[a1, a2, a6, SP[a3, a5], a4, n] - S2[a1, a2, SP[a3, a5], a4, a6, n] - 
    S2[a1, a2, SP[a3, a5], a6, a4, n] - S2[a1, a2, SP[a3, a6], a4, a5, n] - 
    S2[a1, a2, SP[a3, a6], a5, a4, n] + S2[a1, a2, SP[a4, a6], a3, a5, n] + 
    S2[a1, a2, SP[a4, a6], a5, a3, n] + S2[a1, a2, SP[a5, a6], a3, a4, n] + 
    S2[a1, a2, SP[a5, a6], a4, a3, n] + S2[a1, a3, a2, a4, SP[a5, a6], n] + 
    S2[a1, a3, a2, SP[a4, a5], a6, n] + S2[a1, a3, a4, a2, SP[a5, a6], n] + 
    S2[a1, a3, a4, a6, SP[a2, a5], n] + S2[a1, a3, a4, SP[a2, a5], a6, n] + 
    S2[a1, a3, a4, SP[a5, a6], a2, n] + S2[a1, a3, a5, a6, SP[a2, a4], n] + 
    S2[a1, a3, a5, SP[a2, a6], a4, n] + S2[a1, a3, a6, a4, SP[a2, a5], n] + 
    S2[a1, a3, a6, a5, SP[a2, a4], n] + S2[a1, a3, a6, SP[a2, a4], a5, n] + 
    S2[a1, a3, a6, SP[a2, a5], a4, n] + S2[a1, a3, SP[a2, a5], a4, a6, n] + 
    S2[a1, a3, SP[a2, a5], a6, a4, n] + S2[a1, a3, SP[a2, a6], a4, a5, n] + 
    S2[a1, a3, SP[a2, a6], a5, a4, n] + S2[a1, a3, SP[a4, a5], a2, a6, n] + 
    S2[a1, a3, SP[a4, a5], a6, a2, n] + S2[a1, a4, a2, a3, SP[a5, a6], n] + 
    S2[a6, n]*S2[a1, a4, a2, a5, a3, n] - 
    S2[a3, n]*S2[a1, a4, a2, a5, a6, n] - 
    S2[a3, n]*S2[a1, a4, a2, a6, a5, n] - S2[a1, a4, a2, a6, SP[a3, a5], n] - 
    S2[a1, a4, a2, SP[a3, a5], a6, n] + S2[a1, a4, a2, SP[a5, a6], a3, n] + 
    S2[a1, a4, a3, a2, SP[a5, a6], n] + S2[a1, a4, a3, a6, SP[a2, a5], n] + 
    S2[a1, a4, a3, SP[a2, a5], a6, n] + S2[a1, a4, a3, SP[a5, a6], a2, n] + 
    S2[a6, n]*S2[a1, a4, a5, a2, a3, n] - 
    S2[a3, n]*S2[a1, a4, a5, a2, a6, n] + 
    S2[a6, n]*S2[a1, a4, a5, a3, a2, n] + S2[a1, a4, a5, a3, SP[a2, a6], n] - 
    S2[a3, n]*S2[a1, a4, a5, a6, a2, n] - S2[a1, a4, a5, a6, SP[a2, a3], n] - 
    S2[a1, a4, a5, SP[a2, a3], a6, n] + S2[a1, a4, a5, SP[a2, a6], a3, n] - 
    S2[a3, n]*S2[a1, a4, a6, a2, a5, n] - S2[a1, a4, a6, a2, SP[a3, a5], n] - 
    S2[a3, n]*S2[a1, a4, a6, a5, a2, n] - S2[a1, a4, a6, a5, SP[a2, a3], n] - 
    S2[a1, a4, a6, SP[a2, a3], a5, n] - S2[a1, a4, a6, SP[a3, a5], a2, n] - 
    S2[a1, a4, SP[a2, a6], a3, a5, n] + S2[a1, a4, SP[a2, a6], a5, a3, n] - 
    S2[a1, a4, SP[a3, a5], a2, a6, n] - S2[a1, a4, SP[a3, a5], a6, a2, n] + 
    S2[a1, a4, SP[a5, a6], a2, a3, n] + S2[a1, a4, SP[a5, a6], a3, a2, n] + 
    S2[a6, n]*S2[a1, a5, a2, a3, a4, n] + S2[a1, a5, a2, a3, SP[a4, a6], n] + 
    S2[a6, n]*S2[a1, a5, a2, a4, a3, n] - 
    S2[a3, n]*S2[a1, a5, a2, a4, a6, n] - 
    S2[a3, n]*S2[a1, a5, a2, a6, a4, n] - S2[a1, a5, a2, a6, SP[a3, a4], n] - 
    S2[a1, a5, a2, SP[a3, a4], a6, n] + S2[a1, a5, a2, SP[a4, a6], a3, n] + 
    S2[a6, n]*S2[a1, a5, a3, a2, a4, n] + S2[a1, a5, a3, a2, SP[a4, a6], n] + 
    S2[a6, n]*S2[a1, a5, a3, a4, a2, n] + S2[a1, a5, a3, a4, SP[a2, a6], n] + 
    S2[a1, a5, a3, SP[a2, a6], a4, n] + S2[a1, a5, a3, SP[a4, a6], a2, n] + 
    S2[a6, n]*S2[a1, a5, a4, a2, a3, n] - 
    S2[a3, n]*S2[a1, a5, a4, a2, a6, n] + 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] + S2[a1, a5, a4, a3, SP[a2, a6], n] - 
    S2[a3, n]*S2[a1, a5, a4, a6, a2, n] - S2[a1, a5, a4, a6, SP[a2, a3], n] - 
    S2[a1, a5, a4, SP[a2, a3], a6, n] + S2[a1, a5, a4, SP[a2, a6], a3, n] - 
    S2[a3, n]*S2[a1, a5, a6, a2, a4, n] - S2[a1, a5, a6, a2, SP[a3, a4], n] - 
    S2[a3, n]*S2[a1, a5, a6, a4, a2, n] - S2[a1, a5, a6, a4, SP[a2, a3], n] - 
    S2[a1, a5, a6, SP[a2, a3], a4, n] - S2[a1, a5, a6, SP[a3, a4], a2, n] - 
    S2[a1, a5, SP[a2, a3], a4, a6, n] - S2[a1, a5, SP[a2, a3], a6, a4, n] + 
    S2[a1, a5, SP[a2, a6], a3, a4, n] + S2[a1, a5, SP[a2, a6], a4, a3, n] - 
    S2[a1, a5, SP[a3, a4], a2, a6, n] - S2[a1, a5, SP[a3, a4], a6, a2, n] + 
    S2[a1, a5, SP[a4, a6], a2, a3, n] + S2[a1, a5, SP[a4, a6], a3, a2, n] + 
    S2[a4, n]*S2[a1, a6, a2, a3, a5, n] + S2[a1, a6, a2, a3, SP[a4, a5], n] - 
    S2[a3, n]*S2[a1, a6, a2, a4, a5, n] - S2[a1, a6, a2, a4, SP[a3, a5], n] - 
    S2[a3, n]*S2[a1, a6, a2, a5, a4, n] - S2[a1, a6, a2, a5, SP[a3, a4], n] - 
    S2[a1, a6, a2, SP[a3, a5], a4, n] + S2[a4, n]*S2[a1, a6, a3, a2, a5, n] + 
    S2[a1, a6, a3, a2, SP[a4, a5], n] + S2[a4, n]*S2[a1, a6, a3, a5, a2, n] + 
    S2[a1, a6, a3, a5, SP[a2, a4], n] + S2[a1, a6, a3, SP[a2, a4], a5, n] + 
    S2[a1, a6, a3, SP[a4, a5], a2, n] - S2[a3, n]*S2[a1, a6, a4, a2, a5, n] - 
    S2[a1, a6, a4, a2, SP[a3, a5], n] - S2[a3, n]*S2[a1, a6, a4, a5, a2, n] - 
    S2[a1, a6, a4, a5, SP[a2, a3], n] - S2[a1, a6, a4, SP[a2, a3], a5, n] - 
    S2[a1, a6, a4, SP[a3, a5], a2, n] - S2[a3, n]*S2[a1, a6, a5, a2, a4, n] - 
    S2[a1, a6, a5, a2, SP[a3, a4], n] - S2[a3, n]*S2[a1, a6, a5, a4, a2, n] - 
    S2[a1, a6, a5, a4, SP[a2, a3], n] - S2[a1, a6, a5, SP[a2, a3], a4, n] - 
    S2[a1, a6, a5, SP[a3, a4], a2, n] - S2[a1, a6, SP[a2, a3], a4, a5, n] - 
    S2[a1, a6, SP[a2, a3], a5, a4, n] + S2[a1, a6, SP[a2, a4], a3, a5, n] - 
    S2[a1, a6, SP[a3, a5], a2, a4, n] - S2[a1, a6, SP[a3, a5], a4, a2, n] + 
    S2[a1, SP[a2, a6], a4, a5, a3, n] + S2[a1, SP[a2, a6], a5, a3, a4, n] + 
    S2[a1, SP[a2, a6], a5, a4, a3, n] - S2[a1, SP[a3, a5], a2, a4, a6, n] - 
    S2[a1, SP[a3, a5], a2, a6, a4, n] - S2[a1, SP[a3, a5], a4, a2, a6, n] - 
    S2[a1, SP[a3, a5], a4, a6, a2, n] - S2[a1, SP[a3, a5], a6, a2, a4, n] - 
    S2[a1, SP[a3, a5], a6, a4, a2, n] - S2[a1, SP[a3, a6], a2, a4, a5, n] - 
    S2[a1, SP[a3, a6], a2, a5, a4, n] - S2[a1, SP[a3, a6], a4, a2, a5, n] - 
    S2[a1, SP[a3, a6], a4, a5, a2, n] - S2[a1, SP[a3, a6], a5, a2, a4, n] - 
    S2[a1, SP[a3, a6], a5, a4, a2, n] + S2[a1, SP[a4, a6], a2, a3, a5, n] + 
    S2[a1, SP[a4, a6], a2, a5, a3, n] + S2[a1, SP[a4, a6], a3, a2, a5, n] + 
    S2[a1, SP[a4, a6], a3, a5, a2, n] + S2[a1, SP[a4, a6], a5, a2, a3, n] + 
    S2[a1, SP[a4, a6], a5, a3, a2, n] + S2[a1, SP[a5, a6], a2, a3, a4, n] + 
    S2[a1, SP[a5, a6], a2, a4, a3, n] + S2[a1, SP[a5, a6], a3, a2, a4, n] + 
    S2[a1, SP[a5, a6], a3, a4, a2, n] + S2[a1, SP[a5, a6], a4, a2, a3, n] + 
    S2[a1, SP[a5, a6], a4, a3, a2, n] + S2[a3, a1, a2, a4, SP[a5, a6], n] + 
    S2[a3, a1, a2, SP[a4, a5], a6, n] + S2[a3, a1, a4, a2, SP[a5, a6], n] + 
    S2[a3, a1, a4, a6, SP[a2, a5], n] + S2[a3, a1, a4, SP[a2, a5], a6, n] + 
    S2[a3, a1, a4, SP[a5, a6], a2, n] + S2[a3, a1, a5, a6, SP[a2, a4], n] + 
    S2[a3, a1, a5, SP[a2, a6], a4, n] + S2[a3, a1, a6, a4, SP[a2, a5], n] + 
    S2[a3, a1, a6, a5, SP[a2, a4], n] + S2[a3, a1, a6, SP[a2, a4], a5, n] + 
    S2[a3, a1, a6, SP[a2, a5], a4, n] + S2[a3, a1, SP[a2, a5], a4, a6, n] + 
    S2[a3, a1, SP[a2, a5], a6, a4, n] + S2[a3, a1, SP[a2, a6], a4, a5, n] + 
    S2[a3, a1, SP[a2, a6], a5, a4, n] + S2[a3, a1, SP[a4, a5], a2, a6, n] + 
    S2[a3, a1, SP[a4, a5], a6, a2, n] - S2[a6, n]*S2[a3, a5, a1, a2, a4, n] - 
    S2[a3, a5, a1, a2, SP[a4, a6], n] - S2[a6, n]*S2[a3, a5, a1, a4, a2, n] - 
    S2[a3, a5, a1, a4, SP[a2, a6], n] + S2[a3, a5, a1, a6, SP[a2, a4], n] - 
    S2[a3, a5, a1, SP[a4, a6], a2, n] + S2[a3, a5, a6, a1, SP[a2, a4], n] + 
    S2[a3, a5, a6, SP[a1, a4], a2, n] - S2[a4, n]*S2[a3, a6, a1, a2, a5, n] - 
    S2[a3, a6, a1, a2, SP[a4, a5], n] + S2[a3, a6, a1, a4, SP[a2, a5], n] - 
    S2[a4, n]*S2[a3, a6, a1, a5, a2, n] + S2[a3, a6, a1, SP[a2, a5], a4, n] - 
    S2[a3, a6, a1, SP[a4, a5], a2, n] + S2[a3, a6, a4, a1, SP[a2, a5], n] + 
    S2[a3, a6, a4, SP[a1, a5], a2, n] + S2[a3, a6, a5, a1, SP[a2, a4], n] + 
    S2[a3, a6, a5, SP[a1, a4], a2, n] + S2[a3, a6, SP[a1, a5], a2, a4, n] + 
    S2[a3, a6, SP[a1, a5], a4, a2, n] + S2[a3, SP[a1, a5], a2, a4, a6, n] + 
    S2[a3, SP[a1, a5], a2, a6, a4, n] + S2[a3, SP[a1, a5], a4, a2, a6, n] + 
    S2[a3, SP[a1, a5], a4, a6, a2, n] + S2[a3, SP[a1, a5], a6, a2, a4, n] + 
    S2[a3, SP[a1, a5], a6, a4, a2, n] + S2[a3, SP[a1, a6], a2, a4, a5, n] + 
    S2[a3, SP[a1, a6], a2, a5, a4, n] + S2[a3, SP[a1, a6], a4, a2, a5, n] + 
    S2[a3, SP[a1, a6], a4, a5, a2, n] + S2[a3, SP[a1, a6], a5, a2, a4, n] + 
    S2[a3, SP[a1, a6], a5, a4, a2, n] - S2[a3, SP[a4, a6], a1, a2, a5, n] - 
    S2[a3, SP[a4, a6], a1, a5, a2, n] - S2[a3, SP[a5, a6], a1, a2, a4, n] - 
    S2[a3, SP[a5, a6], a1, a4, a2, n] - S2[a4, a1, a6, a3, SP[a2, a5], n] - 
    S2[a4, a1, a6, SP[a2, a3], a5, n] - S2[a4, a1, SP[a2, a6], a3, a5, n] + 
    S2[a3, n]*S2[a4, a6, a1, a2, a5, n] + S2[a4, a6, a1, a2, SP[a3, a5], n] - 
    S2[a4, a6, a1, a3, SP[a2, a5], n] + S2[a3, n]*S2[a4, a6, a1, a5, a2, n] + 
    S2[a4, a6, a1, a5, SP[a2, a3], n] + S2[a4, a6, a1, SP[a3, a5], a2, n] - 
    S2[a4, a6, a3, a1, SP[a2, a5], n] - S2[a4, a6, a3, SP[a1, a5], a2, n] - 
    S2[a4, SP[a1, a6], a2, a3, a5, n] - S2[a4, SP[a1, a6], a3, a2, a5, n] - 
    S2[a4, SP[a1, a6], a3, a5, a2, n] + S2[a4, SP[a3, a6], a1, a2, a5, n] + 
    S2[a4, SP[a3, a6], a1, a5, a2, n] - S2[a4, n]*S2[a6, a1, a2, a5, a3, n] - 
    S2[a6, a1, a2, a5, SP[a3, a4], n] - S2[a6, a1, a2, SP[a4, a5], a3, n] - 
    S2[a4, n]*S2[a6, a1, a5, a2, a3, n] - S2[a6, a1, a5, a2, SP[a3, a4], n] - 
    S2[a4, n]*S2[a6, a1, a5, a3, a2, n] - S2[a6, a1, a5, a3, SP[a2, a4], n] - 
    S2[a6, a1, a5, SP[a2, a4], a3, n] - S2[a6, a1, a5, SP[a3, a4], a2, n] - 
    S2[a6, a1, SP[a2, a4], a5, a3, n] - S2[a6, a1, SP[a4, a5], a2, a3, n] - 
    S2[a6, a1, SP[a4, a5], a3, a2, n] + S2[a4, n]*S2[a6, a3, a5, a1, a2, n] + 
    S2[a6, a3, a5, a1, SP[a2, a4], n] + S2[a6, a3, a5, SP[a1, a4], a2, n] + 
    S2[a6, a3, SP[a4, a5], a1, a2, n] - S2[a3, n]*S2[a6, a4, a5, a1, a2, n] - 
    S2[a6, a4, a5, a1, SP[a2, a3], n] - S2[a6, a4, a5, SP[a1, a3], a2, n] - 
    S2[a6, a4, SP[a3, a5], a1, a2, n] - S2[a3, n]*S2[a6, a5, a4, a1, a2, n] - 
    S2[a6, a5, a4, a1, SP[a2, a3], n] - S2[a6, a5, a4, SP[a1, a3], a2, n] - 
    S2[a6, a5, SP[a3, a4], a1, a2, n] - S2[a6, SP[a1, a4], a2, a5, a3, n] - 
    S2[a6, SP[a1, a4], a5, a2, a3, n] - S2[a6, SP[a1, a4], a5, a3, a2, n] - 
    S2[a6, SP[a3, a5], a4, a1, a2, n] + S2[SP[a1, a6], a2, a4, a5, a3, n] + 
    S2[SP[a1, a6], a2, a5, a3, a4, n] + S2[SP[a1, a6], a2, a5, a4, a3, n] + 
    S2[SP[a1, a6], a4, a2, a5, a3, n] + S2[SP[a1, a6], a4, a5, a2, a3, n] + 
    S2[SP[a1, a6], a4, a5, a3, a2, n] + S2[SP[a1, a6], a5, a2, a3, a4, n] + 
    S2[SP[a1, a6], a5, a2, a4, a3, n] + S2[SP[a1, a6], a5, a3, a2, a4, n] + 
    S2[SP[a1, a6], a5, a3, a4, a2, n] + S2[SP[a1, a6], a5, a4, a2, a3, n] + 
    S2[SP[a1, a6], a5, a4, a3, a2, n] - S2[SP[a3, a6], a4, a5, a1, a2, n] - 
    S2[SP[a3, a6], a5, a1, a2, a4, n] - S2[SP[a3, a6], a5, a1, a4, a2, n] - 
    S2[SP[a3, a6], a5, a4, a1, a2, n] - S2[SP[a4, a6], a1, a2, a5, a3, n] - 
    S2[SP[a4, a6], a1, a5, a2, a3, n] - S2[SP[a4, a6], a1, a5, a3, a2, n] + 
    S2[SP[a4, a6], a3, a5, a1, a2, n] + S2[a6, a4, a1, a2, a5, a3, n] + 
    S2[a6, a4, a1, a5, a2, a3, n] + S2[a6, a4, a1, a5, a3, a2, n] + 
    S2[a6, a4, a5, a1, a2, a3, n] + S2[a6, a4, a5, a1, a3, a2, n] + 
    S2[a6, a4, a5, a3, a1, a2, n] + S2[a6, a5, a3, a4, a1, a2, n] + 
    S2[a6, a5, a4, a1, a2, a3, n] + S2[a6, a5, a4, a1, a3, a2, n] + 
    S2[a6, a5, a4, a3, a1, a2, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a3_, a5_, a6_, a4_, a2_, a1_, n_] :> 
  -(S2[a3, a5, n]*S2[a1, a2, a4, a6, n]) + S2[a1, a2, SP[a3, a4], SP[a5, a6], 
     n] + S2[a1, SP[a2, a3], a4, SP[a5, a6], n] + 
    S2[a1, SP[a2, a3], SP[a4, a5], a6, n] - S2[a1, a2, n]*
     S2[a3, a5, a6, a4, n] + S2[a3, a5, SP[a1, a6], SP[a2, a4], n] - 
    S2[a1, a2, n]*S2[a3, a6, a4, a5, n] - S2[a1, a2, n]*
     S2[a3, a6, a5, a4, n] + S2[a3, a6, SP[a1, a4], SP[a2, a5], n] + 
    S2[a3, a6, SP[a1, a5], SP[a2, a4], n] + S2[a3, SP[a1, a5], a6, 
     SP[a2, a4], n] + S2[a3, SP[a1, a5], SP[a2, a6], a4, n] + 
    S2[a3, SP[a1, a6], a4, SP[a2, a5], n] + S2[a3, SP[a1, a6], a5, 
     SP[a2, a4], n] + S2[a3, SP[a1, a6], SP[a2, a4], a5, n] + 
    S2[a3, SP[a1, a6], SP[a2, a5], a4, n] + S2[a1, a2, n]*
     S2[a4, a6, a3, a5, n] - S2[a4, a6, SP[a1, a3], SP[a2, a5], n] - 
    S2[a4, SP[a1, a6], a3, SP[a2, a5], n] - S2[a4, SP[a1, a6], SP[a2, a3], 
     a5, n] + S2[SP[a1, a3], a2, a4, SP[a5, a6], n] + 
    S2[SP[a1, a3], a2, SP[a4, a5], a6, n] + S2[SP[a1, a3], a5, a6, 
     SP[a2, a4], n] + S2[SP[a1, a3], a5, SP[a2, a6], a4, n] + 
    S2[SP[a1, a3], a6, a4, SP[a2, a5], n] + S2[SP[a1, a3], a6, a5, 
     SP[a2, a4], n] + S2[SP[a1, a3], a6, SP[a2, a4], a5, n] + 
    S2[SP[a1, a3], a6, SP[a2, a5], a4, n] + S2[SP[a1, a3], SP[a2, a5], a4, 
     a6, n] + S2[SP[a1, a3], SP[a2, a5], a6, a4, n] + 
    S2[SP[a1, a3], SP[a2, a6], a4, a5, n] + S2[SP[a1, a3], SP[a2, a6], a5, 
     a4, n] - S2[SP[a1, a4], a6, a3, SP[a2, a5], n] - 
    S2[SP[a1, a4], a6, SP[a2, a3], a5, n] - S2[SP[a1, a4], SP[a2, a6], a3, 
     a5, n] - S2[a1, a2, a3, a4, SP[a5, a6], n] - S2[a1, a2, a3, SP[a4, a5], 
     a6, n] - S2[a1, a2, a4, a3, SP[a5, a6], n] - 
    S2[a6, n]*S2[a1, a2, a4, a5, a3, n] + 
    S2[a3, n]*S2[a1, a2, a4, a5, a6, n] + 
    S2[a3, n]*S2[a1, a2, a4, a6, a5, n] + S2[a1, a2, a4, a6, SP[a3, a5], n] + 
    S2[a1, a2, a4, SP[a3, a5], a6, n] - S2[a1, a2, a4, SP[a5, a6], a3, n] - 
    S2[a6, n]*S2[a1, a2, a5, a3, a4, n] - S2[a1, a2, a5, a3, SP[a4, a6], n] - 
    S2[a6, n]*S2[a1, a2, a5, a4, a3, n] + 
    S2[a3, n]*S2[a1, a2, a5, a4, a6, n] + 
    S2[a3, n]*S2[a1, a2, a5, a6, a4, n] + S2[a1, a2, a5, a6, SP[a3, a4], n] + 
    S2[a1, a2, a5, SP[a3, a4], a6, n] - S2[a1, a2, a5, SP[a4, a6], a3, n] - 
    S2[a4, n]*S2[a1, a2, a6, a3, a5, n] - S2[a1, a2, a6, a3, SP[a4, a5], n] + 
    S2[a3, n]*S2[a1, a2, a6, a4, a5, n] + S2[a1, a2, a6, a4, SP[a3, a5], n] + 
    S2[a3, n]*S2[a1, a2, a6, a5, a4, n] + S2[a1, a2, a6, a5, SP[a3, a4], n] + 
    S2[a1, a2, a6, SP[a3, a5], a4, n] + S2[a1, a2, SP[a3, a5], a4, a6, n] + 
    S2[a1, a2, SP[a3, a5], a6, a4, n] + S2[a1, a2, SP[a3, a6], a4, a5, n] + 
    S2[a1, a2, SP[a3, a6], a5, a4, n] - S2[a1, a2, SP[a4, a6], a3, a5, n] - 
    S2[a1, a2, SP[a4, a6], a5, a3, n] - S2[a1, a2, SP[a5, a6], a3, a4, n] - 
    S2[a1, a2, SP[a5, a6], a4, a3, n] - S2[a1, a3, a2, a4, SP[a5, a6], n] - 
    S2[a1, a3, a2, SP[a4, a5], a6, n] - S2[a1, a3, a5, a6, SP[a2, a4], n] - 
    S2[a1, a3, a5, SP[a2, a6], a4, n] - S2[a1, a3, a6, a4, SP[a2, a5], n] - 
    S2[a1, a3, a6, a5, SP[a2, a4], n] - S2[a1, a3, a6, SP[a2, a4], a5, n] - 
    S2[a1, a3, a6, SP[a2, a5], a4, n] - S2[a1, a3, SP[a2, a5], a4, a6, n] - 
    S2[a1, a3, SP[a2, a5], a6, a4, n] - S2[a1, a3, SP[a2, a6], a4, a5, n] - 
    S2[a1, a3, SP[a2, a6], a5, a4, n] + S2[a1, a4, a6, a3, SP[a2, a5], n] + 
    S2[a1, a4, a6, SP[a2, a3], a5, n] + S2[a1, a4, SP[a2, a6], a3, a5, n] - 
    S2[a6, n]*S2[a1, a5, a2, a3, a4, n] - S2[a1, a5, a2, a3, SP[a4, a6], n] - 
    S2[a6, n]*S2[a1, a5, a2, a4, a3, n] + 
    S2[a3, n]*S2[a1, a5, a2, a4, a6, n] + 
    S2[a3, n]*S2[a1, a5, a2, a6, a4, n] + S2[a1, a5, a2, a6, SP[a3, a4], n] + 
    S2[a1, a5, a2, SP[a3, a4], a6, n] - S2[a1, a5, a2, SP[a4, a6], a3, n] - 
    S2[a6, n]*S2[a1, a5, a3, a2, a4, n] - S2[a1, a5, a3, a2, SP[a4, a6], n] - 
    S2[a1, a5, a3, SP[a2, a6], a4, n] + S2[a3, n]*S2[a1, a5, a6, a2, a4, n] + 
    S2[a1, a5, a6, a2, SP[a3, a4], n] + S2[a1, a5, a6, SP[a2, a3], a4, n] + 
    S2[a1, a5, SP[a2, a3], a4, a6, n] + S2[a1, a5, SP[a2, a3], a6, a4, n] - 
    S2[a1, a5, SP[a2, a6], a3, a4, n] - S2[a1, a5, SP[a2, a6], a4, a3, n] - 
    S2[a4, n]*S2[a1, a6, a2, a3, a5, n] - S2[a1, a6, a2, a3, SP[a4, a5], n] + 
    S2[a3, n]*S2[a1, a6, a2, a4, a5, n] + S2[a1, a6, a2, a4, SP[a3, a5], n] + 
    S2[a3, n]*S2[a1, a6, a2, a5, a4, n] + S2[a1, a6, a2, a5, SP[a3, a4], n] + 
    S2[a1, a6, a2, SP[a3, a5], a4, n] - S2[a4, n]*S2[a1, a6, a3, a2, a5, n] - 
    S2[a1, a6, a3, a2, SP[a4, a5], n] - S2[a4, n]*S2[a1, a6, a3, a5, a2, n] - 
    S2[a1, a6, a3, a5, SP[a2, a4], n] - S2[a1, a6, a3, SP[a2, a4], a5, n] - 
    S2[a1, a6, a3, SP[a4, a5], a2, n] + S2[a3, n]*S2[a1, a6, a4, a2, a5, n] + 
    S2[a1, a6, a4, a2, SP[a3, a5], n] + S2[a3, n]*S2[a1, a6, a4, a5, a2, n] + 
    S2[a1, a6, a4, a5, SP[a2, a3], n] + S2[a1, a6, a4, SP[a2, a3], a5, n] + 
    S2[a1, a6, a4, SP[a3, a5], a2, n] + S2[a3, n]*S2[a1, a6, a5, a2, a4, n] + 
    S2[a1, a6, a5, a2, SP[a3, a4], n] + S2[a3, n]*S2[a1, a6, a5, a4, a2, n] + 
    S2[a1, a6, a5, a4, SP[a2, a3], n] + S2[a1, a6, a5, SP[a2, a3], a4, n] + 
    S2[a1, a6, a5, SP[a3, a4], a2, n] + S2[a1, a6, SP[a2, a3], a4, a5, n] + 
    S2[a1, a6, SP[a2, a3], a5, a4, n] - S2[a1, a6, SP[a2, a4], a3, a5, n] + 
    S2[a1, a6, SP[a3, a5], a2, a4, n] + S2[a1, a6, SP[a3, a5], a4, a2, n] - 
    S2[a1, SP[a2, a6], a4, a5, a3, n] - S2[a1, SP[a2, a6], a5, a3, a4, n] - 
    S2[a1, SP[a2, a6], a5, a4, a3, n] + S2[a1, SP[a3, a5], a2, a4, a6, n] + 
    S2[a1, SP[a3, a5], a2, a6, a4, n] + S2[a1, SP[a3, a5], a6, a2, a4, n] + 
    S2[a1, SP[a3, a6], a2, a4, a5, n] + S2[a1, SP[a3, a6], a2, a5, a4, n] + 
    S2[a1, SP[a3, a6], a4, a2, a5, n] + S2[a1, SP[a3, a6], a4, a5, a2, n] + 
    S2[a1, SP[a3, a6], a5, a2, a4, n] + S2[a1, SP[a3, a6], a5, a4, a2, n] - 
    S2[a1, SP[a4, a6], a2, a3, a5, n] - S2[a1, SP[a4, a6], a3, a2, a5, n] - 
    S2[a1, SP[a4, a6], a3, a5, a2, n] - S2[a1, SP[a5, a6], a2, a3, a4, n] - 
    S2[a1, SP[a5, a6], a2, a4, a3, n] - S2[a1, SP[a5, a6], a3, a2, a4, n] - 
    S2[a3, a1, a2, a4, SP[a5, a6], n] - S2[a3, a1, a2, SP[a4, a5], a6, n] - 
    S2[a3, a1, a5, a6, SP[a2, a4], n] - S2[a3, a1, a5, SP[a2, a6], a4, n] - 
    S2[a3, a1, a6, a4, SP[a2, a5], n] - S2[a3, a1, a6, a5, SP[a2, a4], n] - 
    S2[a3, a1, a6, SP[a2, a4], a5, n] - S2[a3, a1, a6, SP[a2, a5], a4, n] - 
    S2[a3, a1, SP[a2, a5], a4, a6, n] - S2[a3, a1, SP[a2, a5], a6, a4, n] - 
    S2[a3, a1, SP[a2, a6], a4, a5, n] - S2[a3, a1, SP[a2, a6], a5, a4, n] + 
    S2[a6, n]*S2[a3, a5, a1, a2, a4, n] + S2[a3, a5, a1, a2, SP[a4, a6], n] - 
    S2[a3, a5, a1, a6, SP[a2, a4], n] - S2[a3, a5, a6, a1, SP[a2, a4], n] + 
    S2[a1, n]*S2[a3, a5, a6, a4, a2, n] + S2[a3, a5, a6, a4, SP[a1, a2], n] + 
    S2[a4, n]*S2[a3, a6, a1, a2, a5, n] + S2[a3, a6, a1, a2, SP[a4, a5], n] - 
    S2[a3, a6, a1, a4, SP[a2, a5], n] + S2[a4, n]*S2[a3, a6, a1, a5, a2, n] - 
    S2[a3, a6, a1, SP[a2, a5], a4, n] + S2[a3, a6, a1, SP[a4, a5], a2, n] - 
    S2[a3, a6, a4, a1, SP[a2, a5], n] - S2[a3, a6, a4, SP[a1, a5], a2, n] - 
    S2[a3, a6, a5, a1, SP[a2, a4], n] - S2[a3, a6, a5, SP[a1, a4], a2, n] - 
    S2[a3, a6, SP[a1, a5], a2, a4, n] - S2[a3, a6, SP[a1, a5], a4, a2, n] - 
    S2[a3, SP[a1, a5], a2, a4, a6, n] - S2[a3, SP[a1, a5], a2, a6, a4, n] - 
    S2[a3, SP[a1, a5], a6, a2, a4, n] - S2[a3, SP[a1, a6], a2, a4, a5, n] - 
    S2[a3, SP[a1, a6], a2, a5, a4, n] - S2[a3, SP[a1, a6], a4, a2, a5, n] - 
    S2[a3, SP[a1, a6], a4, a5, a2, n] - S2[a3, SP[a1, a6], a5, a2, a4, n] - 
    S2[a3, SP[a1, a6], a5, a4, a2, n] + S2[a3, SP[a4, a6], a1, a2, a5, n] + 
    S2[a3, SP[a4, a6], a1, a5, a2, n] + S2[a3, SP[a5, a6], a1, a2, a4, n] + 
    S2[a4, a1, a6, a3, SP[a2, a5], n] + S2[a4, a1, a6, SP[a2, a3], a5, n] + 
    S2[a4, a1, SP[a2, a6], a3, a5, n] - S2[a3, n]*S2[a4, a6, a1, a2, a5, n] - 
    S2[a4, a6, a1, a2, SP[a3, a5], n] + S2[a4, a6, a1, a3, SP[a2, a5], n] - 
    S2[a3, n]*S2[a4, a6, a1, a5, a2, n] - S2[a4, a6, a1, a5, SP[a2, a3], n] - 
    S2[a4, a6, a1, SP[a3, a5], a2, n] + S2[a4, a6, a3, a1, SP[a2, a5], n] + 
    S2[a4, a6, a3, SP[a1, a5], a2, n] + S2[a4, SP[a1, a6], a2, a3, a5, n] + 
    S2[a4, SP[a1, a6], a3, a2, a5, n] + S2[a4, SP[a1, a6], a3, a5, a2, n] - 
    S2[a4, SP[a3, a6], a1, a2, a5, n] - S2[a4, SP[a3, a6], a1, a5, a2, n] + 
    S2[a4, n]*S2[a6, a1, a2, a5, a3, n] + S2[a6, a1, a2, a5, SP[a3, a4], n] + 
    S2[a6, a1, a2, SP[a4, a5], a3, n] + S2[a4, n]*S2[a6, a1, a5, a2, a3, n] + 
    S2[a6, a1, a5, a2, SP[a3, a4], n] + S2[a4, n]*S2[a6, a1, a5, a3, a2, n] + 
    S2[a6, a1, a5, a3, SP[a2, a4], n] + S2[a6, a1, a5, SP[a2, a4], a3, n] + 
    S2[a6, a1, a5, SP[a3, a4], a2, n] + S2[a6, a1, SP[a2, a4], a5, a3, n] + 
    S2[a6, a1, SP[a4, a5], a2, a3, n] + S2[a6, a1, SP[a4, a5], a3, a2, n] - 
    S2[a4, n]*S2[a6, a3, a5, a1, a2, n] - S2[a6, a3, a5, a1, SP[a2, a4], n] - 
    S2[a6, a3, a5, SP[a1, a4], a2, n] - S2[a6, a3, SP[a4, a5], a1, a2, n] - 
    S2[a1, n]*S2[a6, a4, a2, a5, a3, n] - S2[a6, a4, a2, a5, SP[a1, a3], n] - 
    S2[a6, a4, a2, SP[a1, a5], a3, n] + S2[a3, n]*S2[a6, a4, a5, a1, a2, n] + 
    S2[a6, a4, a5, a1, SP[a2, a3], n] - S2[a1, n]*S2[a6, a4, a5, a2, a3, n] - 
    S2[a6, a4, a5, a2, SP[a1, a3], n] - S2[a1, n]*S2[a6, a4, a5, a3, a2, n] - 
    S2[a6, a4, a5, a3, SP[a1, a2], n] - S2[a6, a4, a5, SP[a1, a2], a3, n] - 
    S2[a6, a4, SP[a1, a2], a5, a3, n] - S2[a6, a4, SP[a1, a5], a2, a3, n] - 
    S2[a6, a4, SP[a1, a5], a3, a2, n] + S2[a6, a4, SP[a3, a5], a1, a2, n] + 
    S2[a3, n]*S2[a6, a5, a1, a4, a2, n] + S2[a6, a5, a1, a4, SP[a2, a3], n] + 
    S2[a6, a5, a1, SP[a3, a4], a2, n] - S2[a1, n]*S2[a6, a5, a3, a4, a2, n] - 
    S2[a6, a5, a3, a4, SP[a1, a2], n] - S2[a6, a5, a3, SP[a1, a4], a2, n] + 
    S2[a3, n]*S2[a6, a5, a4, a1, a2, n] + S2[a6, a5, a4, a1, SP[a2, a3], n] - 
    S2[a1, n]*S2[a6, a5, a4, a2, a3, n] - S2[a6, a5, a4, a2, SP[a1, a3], n] - 
    S2[a1, n]*S2[a6, a5, a4, a3, a2, n] - S2[a6, a5, a4, a3, SP[a1, a2], n] - 
    S2[a6, a5, a4, SP[a1, a2], a3, n] - S2[a6, a5, SP[a1, a4], a2, a3, n] - 
    S2[a6, a5, SP[a1, a4], a3, a2, n] + S2[a6, a5, SP[a3, a4], a1, a2, n] - 
    S2[a6, SP[a1, a5], a3, a4, a2, n] - S2[a6, SP[a1, a5], a4, a2, a3, n] - 
    S2[a6, SP[a1, a5], a4, a3, a2, n] + S2[a6, SP[a3, a5], a1, a4, a2, n] + 
    S2[a6, SP[a3, a5], a4, a1, a2, n] - S2[SP[a1, a6], a2, a4, a5, a3, n] - 
    S2[SP[a1, a6], a2, a5, a3, a4, n] - S2[SP[a1, a6], a2, a5, a4, a3, n] - 
    S2[SP[a1, a6], a4, a2, a5, a3, n] - S2[SP[a1, a6], a4, a5, a2, a3, n] - 
    S2[SP[a1, a6], a4, a5, a3, a2, n] - S2[SP[a1, a6], a5, a2, a3, a4, n] - 
    S2[SP[a1, a6], a5, a2, a4, a3, n] - S2[SP[a1, a6], a5, a3, a2, a4, n] - 
    S2[SP[a1, a6], a5, a3, a4, a2, n] - S2[SP[a1, a6], a5, a4, a2, a3, n] - 
    S2[SP[a1, a6], a5, a4, a3, a2, n] + S2[SP[a3, a6], a4, a5, a1, a2, n] + 
    S2[SP[a3, a6], a5, a1, a2, a4, n] + S2[SP[a3, a6], a5, a1, a4, a2, n] + 
    S2[SP[a3, a6], a5, a4, a1, a2, n] + S2[SP[a4, a6], a1, a2, a5, a3, n] + 
    S2[SP[a4, a6], a1, a5, a2, a3, n] + S2[SP[a4, a6], a1, a5, a3, a2, n] - 
    S2[SP[a4, a6], a3, a5, a1, a2, n] + S2[a6, a4, a2, a1, a5, a3, n] + 
    S2[a6, a4, a2, a5, a1, a3, n] + S2[a6, a4, a2, a5, a3, a1, n] + 
    S2[a6, a4, a5, a2, a1, a3, n] + S2[a6, a4, a5, a2, a3, a1, n] + 
    S2[a6, a4, a5, a3, a2, a1, n] + S2[a6, a5, a3, a4, a2, a1, n] + 
    S2[a6, a5, a4, a2, a1, a3, n] + S2[a6, a5, a4, a2, a3, a1, n] + 
    S2[a6, a5, a4, a3, a2, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a3_, a6_, a1_, a2_, a4_, a5_, n_] :> 
  S2[a3, n]*S2[a6, a1, a2, a4, a5, n] + S2[a6, a1, a2, a4, SP[a3, a5], n] + 
    S2[a6, a1, a2, SP[a3, a4], a5, n] + S2[a6, a1, SP[a2, a3], a4, a5, n] + 
    S2[a6, SP[a1, a3], a2, a4, a5, n] + S2[SP[a3, a6], a1, a2, a4, a5, n] - 
    S2[a6, a1, a2, a3, a4, a5, n] - S2[a6, a1, a2, a4, a3, a5, n] - 
    S2[a6, a1, a2, a4, a5, a3, n] - S2[a6, a1, a3, a2, a4, a5, n] - 
    S2[a6, a3, a1, a2, a4, a5, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a3_, a6_, a1_, a2_, a5_, a4_, n_] :> 
  S2[a3, n]*S2[a6, a1, a2, a5, a4, n] + S2[a6, a1, a2, a5, SP[a3, a4], n] + 
    S2[a6, a1, a2, SP[a3, a5], a4, n] + S2[a6, a1, SP[a2, a3], a5, a4, n] + 
    S2[a6, SP[a1, a3], a2, a5, a4, n] + S2[SP[a3, a6], a1, a2, a5, a4, n] - 
    S2[a6, a1, a2, a3, a5, a4, n] - S2[a6, a1, a2, a5, a3, a4, n] - 
    S2[a6, a1, a2, a5, a4, a3, n] - S2[a6, a1, a3, a2, a5, a4, n] - 
    S2[a6, a3, a1, a2, a5, a4, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a3_, a6_, a1_, a4_, a2_, a5_, n_] :> 
  S2[a3, n]*S2[a6, a1, a4, a2, a5, n] + S2[a6, a1, a4, a2, SP[a3, a5], n] + 
    S2[a6, a1, a4, SP[a2, a3], a5, n] + S2[a6, a1, SP[a3, a4], a2, a5, n] + 
    S2[a6, SP[a1, a3], a4, a2, a5, n] + S2[SP[a3, a6], a1, a4, a2, a5, n] - 
    S2[a6, a1, a3, a4, a2, a5, n] - S2[a6, a1, a4, a2, a3, a5, n] - 
    S2[a6, a1, a4, a2, a5, a3, n] - S2[a6, a1, a4, a3, a2, a5, n] - 
    S2[a6, a3, a1, a4, a2, a5, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a3_, a6_, a1_, a4_, a5_, a2_, n_] :> 
  S2[a3, n]*S2[a6, a1, a4, a5, a2, n] + S2[a6, a1, a4, a5, SP[a2, a3], n] + 
    S2[a6, a1, a4, SP[a3, a5], a2, n] + S2[a6, a1, SP[a3, a4], a5, a2, n] + 
    S2[a6, SP[a1, a3], a4, a5, a2, n] + S2[SP[a3, a6], a1, a4, a5, a2, n] - 
    S2[a6, a1, a3, a4, a5, a2, n] - S2[a6, a1, a4, a3, a5, a2, n] - 
    S2[a6, a1, a4, a5, a2, a3, n] - S2[a6, a1, a4, a5, a3, a2, n] - 
    S2[a6, a3, a1, a4, a5, a2, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a3_, a6_, a1_, a5_, a2_, a4_, n_] :> 
  S2[a3, n]*S2[a6, a1, a5, a2, a4, n] + S2[a6, a1, a5, a2, SP[a3, a4], n] + 
    S2[a6, a1, a5, SP[a2, a3], a4, n] + S2[a6, a1, SP[a3, a5], a2, a4, n] + 
    S2[a6, SP[a1, a3], a5, a2, a4, n] + S2[SP[a3, a6], a1, a5, a2, a4, n] - 
    S2[a6, a1, a3, a5, a2, a4, n] - S2[a6, a1, a5, a2, a3, a4, n] - 
    S2[a6, a1, a5, a2, a4, a3, n] - S2[a6, a1, a5, a3, a2, a4, n] - 
    S2[a6, a3, a1, a5, a2, a4, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a3_, a6_, a1_, a5_, a4_, a2_, n_] :> 
  S2[a3, n]*S2[a6, a1, a5, a4, a2, n] + S2[a6, a1, a5, a4, SP[a2, a3], n] + 
    S2[a6, a1, a5, SP[a3, a4], a2, n] + S2[a6, a1, SP[a3, a5], a4, a2, n] + 
    S2[a6, SP[a1, a3], a5, a4, a2, n] + S2[SP[a3, a6], a1, a5, a4, a2, n] - 
    S2[a6, a1, a3, a5, a4, a2, n] - S2[a6, a1, a5, a3, a4, a2, n] - 
    S2[a6, a1, a5, a4, a2, a3, n] - S2[a6, a1, a5, a4, a3, a2, n] - 
    S2[a6, a3, a1, a5, a4, a2, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a3_, a6_, a2_, a1_, a4_, a5_, n_] :> 
  -(S2[a3, n]*S2[a2, a6, a1, a4, a5, n]) - S2[a2, a6, a1, a4, SP[a3, a5], 
     n] - S2[a2, a6, a1, SP[a3, a4], a5, n] - S2[a2, a6, SP[a1, a3], a4, a5, 
     n] - S2[a2, SP[a3, a6], a1, a4, a5, n] + 
    S2[a2, n]*S2[a3, a6, a1, a4, a5, n] + S2[a3, a6, a1, a4, SP[a2, a5], n] + 
    S2[a3, a6, a1, SP[a2, a4], a5, n] + S2[a3, a6, SP[a1, a2], a4, a5, n] + 
    S2[a3, SP[a2, a6], a1, a4, a5, n] - S2[a3, n]*S2[a6, a1, a2, a4, a5, n] - 
    S2[a6, a1, a2, a4, SP[a3, a5], n] - S2[a6, a1, a2, SP[a3, a4], a5, n] + 
    S2[a2, n]*S2[a6, a1, a3, a4, a5, n] + S2[a6, a1, a3, a4, SP[a2, a5], n] + 
    S2[a6, a1, a3, SP[a2, a4], a5, n] - S2[a3, n]*S2[a6, a1, a4, a2, a5, n] - 
    S2[a6, a1, a4, a2, SP[a3, a5], n] + S2[a2, n]*S2[a6, a1, a4, a3, a5, n] + 
    S2[a6, a1, a4, a3, SP[a2, a5], n] - S2[a3, n]*S2[a6, a1, a4, a5, a2, n] + 
    S2[a2, n]*S2[a6, a1, a4, a5, a3, n] + S2[a6, a1, a4, SP[a2, a5], a3, n] - 
    S2[a6, a1, a4, SP[a3, a5], a2, n] + S2[a6, a1, SP[a2, a4], a3, a5, n] + 
    S2[a6, a1, SP[a2, a4], a5, a3, n] - S2[a6, a1, SP[a3, a4], a2, a5, n] - 
    S2[a6, a1, SP[a3, a4], a5, a2, n] + S2[a2, n]*S2[a6, a3, a1, a4, a5, n] + 
    S2[a6, a3, a1, a4, SP[a2, a5], n] + S2[a6, a3, a1, SP[a2, a4], a5, n] + 
    S2[a6, a3, SP[a1, a2], a4, a5, n] + S2[a6, SP[a1, a2], a3, a4, a5, n] + 
    S2[a6, SP[a1, a2], a4, a3, a5, n] + S2[a6, SP[a1, a2], a4, a5, a3, n] - 
    S2[a6, SP[a1, a3], a2, a4, a5, n] - S2[a6, SP[a1, a3], a4, a2, a5, n] - 
    S2[a6, SP[a1, a3], a4, a5, a2, n] + S2[a6, SP[a2, a3], a1, a4, a5, n] + 
    S2[SP[a2, a6], a1, a3, a4, a5, n] + S2[SP[a2, a6], a1, a4, a3, a5, n] + 
    S2[SP[a2, a6], a1, a4, a5, a3, n] + S2[SP[a2, a6], a3, a1, a4, a5, n] - 
    S2[SP[a3, a6], a1, a2, a4, a5, n] - S2[SP[a3, a6], a1, a4, a2, a5, n] - 
    S2[SP[a3, a6], a1, a4, a5, a2, n] - S2[a6, a2, a1, a3, a4, a5, n] - 
    S2[a6, a2, a1, a4, a3, a5, n] - S2[a6, a2, a1, a4, a5, a3, n] - 
    S2[a6, a2, a3, a1, a4, a5, n] - S2[a6, a3, a2, a1, a4, a5, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a3_, a6_, a2_, a1_, a5_, a4_, n_] :> 
  -(S2[a3, n]*S2[a2, a6, a1, a5, a4, n]) - S2[a2, a6, a1, a5, SP[a3, a4], 
     n] - S2[a2, a6, a1, SP[a3, a5], a4, n] - S2[a2, a6, SP[a1, a3], a5, a4, 
     n] - S2[a2, SP[a3, a6], a1, a5, a4, n] + 
    S2[a2, n]*S2[a3, a6, a1, a5, a4, n] + S2[a3, a6, a1, a5, SP[a2, a4], n] + 
    S2[a3, a6, a1, SP[a2, a5], a4, n] + S2[a3, a6, SP[a1, a2], a5, a4, n] + 
    S2[a3, SP[a2, a6], a1, a5, a4, n] - S2[a3, n]*S2[a6, a1, a2, a5, a4, n] - 
    S2[a6, a1, a2, a5, SP[a3, a4], n] - S2[a6, a1, a2, SP[a3, a5], a4, n] + 
    S2[a2, n]*S2[a6, a1, a3, a5, a4, n] + S2[a6, a1, a3, a5, SP[a2, a4], n] + 
    S2[a6, a1, a3, SP[a2, a5], a4, n] - S2[a3, n]*S2[a6, a1, a5, a2, a4, n] - 
    S2[a6, a1, a5, a2, SP[a3, a4], n] + S2[a2, n]*S2[a6, a1, a5, a3, a4, n] + 
    S2[a6, a1, a5, a3, SP[a2, a4], n] - S2[a3, n]*S2[a6, a1, a5, a4, a2, n] + 
    S2[a2, n]*S2[a6, a1, a5, a4, a3, n] + S2[a6, a1, a5, SP[a2, a4], a3, n] - 
    S2[a6, a1, a5, SP[a3, a4], a2, n] + S2[a6, a1, SP[a2, a5], a3, a4, n] + 
    S2[a6, a1, SP[a2, a5], a4, a3, n] - S2[a6, a1, SP[a3, a5], a2, a4, n] - 
    S2[a6, a1, SP[a3, a5], a4, a2, n] + S2[a2, n]*S2[a6, a3, a1, a5, a4, n] + 
    S2[a6, a3, a1, a5, SP[a2, a4], n] + S2[a6, a3, a1, SP[a2, a5], a4, n] + 
    S2[a6, a3, SP[a1, a2], a5, a4, n] + S2[a6, SP[a1, a2], a3, a5, a4, n] + 
    S2[a6, SP[a1, a2], a5, a3, a4, n] + S2[a6, SP[a1, a2], a5, a4, a3, n] - 
    S2[a6, SP[a1, a3], a2, a5, a4, n] - S2[a6, SP[a1, a3], a5, a2, a4, n] - 
    S2[a6, SP[a1, a3], a5, a4, a2, n] + S2[a6, SP[a2, a3], a1, a5, a4, n] + 
    S2[SP[a2, a6], a1, a3, a5, a4, n] + S2[SP[a2, a6], a1, a5, a3, a4, n] + 
    S2[SP[a2, a6], a1, a5, a4, a3, n] + S2[SP[a2, a6], a3, a1, a5, a4, n] - 
    S2[SP[a3, a6], a1, a2, a5, a4, n] - S2[SP[a3, a6], a1, a5, a2, a4, n] - 
    S2[SP[a3, a6], a1, a5, a4, a2, n] - S2[a6, a2, a1, a3, a5, a4, n] - 
    S2[a6, a2, a1, a5, a3, a4, n] - S2[a6, a2, a1, a5, a4, a3, n] - 
    S2[a6, a2, a3, a1, a5, a4, n] - S2[a6, a3, a2, a1, a5, a4, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a3_, a6_, a2_, a4_, a1_, a5_, n_] :> 
  S2[a3, n]*S2[a6, a2, a4, a1, a5, n] + S2[a6, a2, a4, a1, SP[a3, a5], n] + 
    S2[a6, a2, a4, SP[a1, a3], a5, n] + S2[a6, a2, SP[a3, a4], a1, a5, n] + 
    S2[a6, SP[a2, a3], a4, a1, a5, n] + S2[SP[a3, a6], a2, a4, a1, a5, n] - 
    S2[a6, a2, a3, a4, a1, a5, n] - S2[a6, a2, a4, a1, a3, a5, n] - 
    S2[a6, a2, a4, a1, a5, a3, n] - S2[a6, a2, a4, a3, a1, a5, n] - 
    S2[a6, a3, a2, a4, a1, a5, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a3_, a6_, a2_, a4_, a5_, a1_, n_] :> 
  -(S2[a3, n]*S2[a1, a6, a2, a4, a5, n]) - S2[a1, a6, a2, a4, SP[a3, a5], 
     n] - S2[a1, a6, a2, SP[a3, a4], a5, n] - S2[a1, a6, SP[a2, a3], a4, a5, 
     n] - S2[a1, SP[a3, a6], a2, a4, a5, n] + 
    S2[a3, n]*S2[a2, a6, a1, a4, a5, n] + S2[a2, a6, a1, a4, SP[a3, a5], n] + 
    S2[a2, a6, a1, SP[a3, a4], a5, n] + S2[a2, a6, SP[a1, a3], a4, a5, n] + 
    S2[a2, SP[a3, a6], a1, a4, a5, n] - S2[a2, n]*S2[a3, a6, a1, a4, a5, n] - 
    S2[a3, a6, a1, a4, SP[a2, a5], n] - S2[a3, a6, a1, SP[a2, a4], a5, n] + 
    S2[a1, n]*S2[a3, a6, a2, a4, a5, n] + S2[a3, a6, a2, a4, SP[a1, a5], n] + 
    S2[a3, a6, a2, SP[a1, a4], a5, n] + S2[a3, SP[a1, a6], a2, a4, a5, n] - 
    S2[a3, SP[a2, a6], a1, a4, a5, n] - S2[a2, n]*S2[a6, a1, a3, a4, a5, n] - 
    S2[a6, a1, a3, a4, SP[a2, a5], n] - S2[a6, a1, a3, SP[a2, a4], a5, n] + 

    S2[a3, n]*S2[a6, a1, a4, a2, a5, n] + S2[a6, a1, a4, a2, SP[a3, a5], n] - 
    S2[a2, n]*S2[a6, a1, a4, a3, a5, n] - S2[a6, a1, a4, a3, SP[a2, a5], n] + 
    S2[a3, n]*S2[a6, a1, a4, a5, a2, n] - 
    S2[a2, n]*S2[a6, a1, a4, a5, a3, n] - S2[a6, a1, a4, SP[a2, a5], a3, n] + 
    S2[a6, a1, a4, SP[a3, a5], a2, n] - S2[a6, a1, SP[a2, a3], a4, a5, n] - 
    S2[a6, a1, SP[a2, a4], a3, a5, n] - S2[a6, a1, SP[a2, a4], a5, a3, n] + 
    S2[a6, a1, SP[a3, a4], a2, a5, n] + S2[a6, a1, SP[a3, a4], a5, a2, n] + 
    S2[a1, n]*S2[a6, a2, a3, a4, a5, n] + S2[a6, a2, a3, a4, SP[a1, a5], n] + 
    S2[a6, a2, a3, SP[a1, a4], a5, n] - S2[a3, n]*S2[a6, a2, a4, a1, a5, n] - 
    S2[a6, a2, a4, a1, SP[a3, a5], n] + S2[a1, n]*S2[a6, a2, a4, a3, a5, n] + 
    S2[a6, a2, a4, a3, SP[a1, a5], n] + S2[a1, n]*S2[a6, a2, a4, a5, a3, n] + 
    S2[a6, a2, a4, a5, SP[a1, a3], n] + S2[a6, a2, a4, SP[a1, a5], a3, n] + 
    S2[a6, a2, SP[a1, a3], a4, a5, n] + S2[a6, a2, SP[a1, a4], a3, a5, n] + 
    S2[a6, a2, SP[a1, a4], a5, a3, n] - S2[a6, a2, SP[a3, a4], a1, a5, n] - 
    S2[a2, n]*S2[a6, a3, a1, a4, a5, n] - S2[a6, a3, a1, a4, SP[a2, a5], n] - 
    S2[a6, a3, a1, SP[a2, a4], a5, n] + S2[a1, n]*S2[a6, a3, a2, a4, a5, n] + 
    S2[a6, a3, a2, a4, SP[a1, a5], n] + S2[a6, a3, a2, SP[a1, a4], a5, n] + 
    S2[a6, SP[a1, a3], a2, a4, a5, n] + S2[a6, SP[a1, a3], a4, a2, a5, n] + 
    S2[a6, SP[a1, a3], a4, a5, a2, n] - S2[a6, SP[a2, a3], a1, a4, a5, n] - 
    S2[a6, SP[a2, a3], a4, a1, a5, n] + S2[SP[a1, a6], a2, a3, a4, a5, n] + 
    S2[SP[a1, a6], a2, a4, a3, a5, n] + S2[SP[a1, a6], a2, a4, a5, a3, n] + 
    S2[SP[a1, a6], a3, a2, a4, a5, n] - S2[SP[a2, a6], a1, a3, a4, a5, n] - 
    S2[SP[a2, a6], a1, a4, a3, a5, n] - S2[SP[a2, a6], a1, a4, a5, a3, n] - 
    S2[SP[a2, a6], a3, a1, a4, a5, n] + S2[SP[a3, a6], a1, a4, a2, a5, n] + 
    S2[SP[a3, a6], a1, a4, a5, a2, n] - S2[SP[a3, a6], a2, a4, a1, a5, n] - 
    S2[a6, a2, a3, a4, a5, a1, n] - S2[a6, a2, a4, a3, a5, a1, n] - 
    S2[a6, a2, a4, a5, a1, a3, n] - S2[a6, a2, a4, a5, a3, a1, n] - 
    S2[a6, a3, a2, a4, a5, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a3_, a6_, a2_, a5_, a1_, a4_, n_] :> 
  S2[a3, n]*S2[a6, a2, a5, a1, a4, n] + S2[a6, a2, a5, a1, SP[a3, a4], n] + 
    S2[a6, a2, a5, SP[a1, a3], a4, n] + S2[a6, a2, SP[a3, a5], a1, a4, n] + 
    S2[a6, SP[a2, a3], a5, a1, a4, n] + S2[SP[a3, a6], a2, a5, a1, a4, n] - 
    S2[a6, a2, a3, a5, a1, a4, n] - S2[a6, a2, a5, a1, a3, a4, n] - 
    S2[a6, a2, a5, a1, a4, a3, n] - S2[a6, a2, a5, a3, a1, a4, n] - 
    S2[a6, a3, a2, a5, a1, a4, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a3_, a6_, a2_, a5_, a4_, a1_, n_] :> 
  -(S2[a3, n]*S2[a1, a6, a2, a5, a4, n]) - S2[a1, a6, a2, a5, SP[a3, a4], 
     n] - S2[a1, a6, a2, SP[a3, a5], a4, n] - S2[a1, a6, SP[a2, a3], a5, a4, 
     n] - S2[a1, SP[a3, a6], a2, a5, a4, n] + 
    S2[a3, n]*S2[a2, a6, a1, a5, a4, n] + S2[a2, a6, a1, a5, SP[a3, a4], n] + 
    S2[a2, a6, a1, SP[a3, a5], a4, n] + S2[a2, a6, SP[a1, a3], a5, a4, n] + 
    S2[a2, SP[a3, a6], a1, a5, a4, n] - S2[a2, n]*S2[a3, a6, a1, a5, a4, n] - 
    S2[a3, a6, a1, a5, SP[a2, a4], n] - S2[a3, a6, a1, SP[a2, a5], a4, n] + 
    S2[a1, n]*S2[a3, a6, a2, a5, a4, n] + S2[a3, a6, a2, a5, SP[a1, a4], n] + 
    S2[a3, a6, a2, SP[a1, a5], a4, n] + S2[a3, SP[a1, a6], a2, a5, a4, n] - 
    S2[a3, SP[a2, a6], a1, a5, a4, n] - S2[a2, n]*S2[a6, a1, a3, a5, a4, n] - 
    S2[a6, a1, a3, a5, SP[a2, a4], n] - S2[a6, a1, a3, SP[a2, a5], a4, n] + 
    S2[a3, n]*S2[a6, a1, a5, a2, a4, n] + S2[a6, a1, a5, a2, SP[a3, a4], n] - 
    S2[a2, n]*S2[a6, a1, a5, a3, a4, n] - S2[a6, a1, a5, a3, SP[a2, a4], n] + 
    S2[a3, n]*S2[a6, a1, a5, a4, a2, n] - 
    S2[a2, n]*S2[a6, a1, a5, a4, a3, n] - S2[a6, a1, a5, SP[a2, a4], a3, n] + 
    S2[a6, a1, a5, SP[a3, a4], a2, n] - S2[a6, a1, SP[a2, a3], a5, a4, n] - 
    S2[a6, a1, SP[a2, a5], a3, a4, n] - S2[a6, a1, SP[a2, a5], a4, a3, n] + 
    S2[a6, a1, SP[a3, a5], a2, a4, n] + S2[a6, a1, SP[a3, a5], a4, a2, n] + 
    S2[a1, n]*S2[a6, a2, a3, a5, a4, n] + S2[a6, a2, a3, a5, SP[a1, a4], n] + 
    S2[a6, a2, a3, SP[a1, a5], a4, n] - S2[a3, n]*S2[a6, a2, a5, a1, a4, n] - 
    S2[a6, a2, a5, a1, SP[a3, a4], n] + S2[a1, n]*S2[a6, a2, a5, a3, a4, n] + 
    S2[a6, a2, a5, a3, SP[a1, a4], n] + S2[a1, n]*S2[a6, a2, a5, a4, a3, n] + 
    S2[a6, a2, a5, a4, SP[a1, a3], n] + S2[a6, a2, a5, SP[a1, a4], a3, n] + 
    S2[a6, a2, SP[a1, a3], a5, a4, n] + S2[a6, a2, SP[a1, a5], a3, a4, n] + 
    S2[a6, a2, SP[a1, a5], a4, a3, n] - S2[a6, a2, SP[a3, a5], a1, a4, n] - 
    S2[a2, n]*S2[a6, a3, a1, a5, a4, n] - S2[a6, a3, a1, a5, SP[a2, a4], n] - 
    S2[a6, a3, a1, SP[a2, a5], a4, n] + S2[a1, n]*S2[a6, a3, a2, a5, a4, n] + 
    S2[a6, a3, a2, a5, SP[a1, a4], n] + S2[a6, a3, a2, SP[a1, a5], a4, n] + 
    S2[a6, SP[a1, a3], a2, a5, a4, n] + S2[a6, SP[a1, a3], a5, a2, a4, n] + 
    S2[a6, SP[a1, a3], a5, a4, a2, n] - S2[a6, SP[a2, a3], a1, a5, a4, n] - 
    S2[a6, SP[a2, a3], a5, a1, a4, n] + S2[SP[a1, a6], a2, a3, a5, a4, n] + 
    S2[SP[a1, a6], a2, a5, a3, a4, n] + S2[SP[a1, a6], a2, a5, a4, a3, n] + 
    S2[SP[a1, a6], a3, a2, a5, a4, n] - S2[SP[a2, a6], a1, a3, a5, a4, n] - 
    S2[SP[a2, a6], a1, a5, a3, a4, n] - S2[SP[a2, a6], a1, a5, a4, a3, n] - 
    S2[SP[a2, a6], a3, a1, a5, a4, n] + S2[SP[a3, a6], a1, a5, a2, a4, n] + 
    S2[SP[a3, a6], a1, a5, a4, a2, n] - S2[SP[a3, a6], a2, a5, a1, a4, n] - 
    S2[a6, a2, a3, a5, a4, a1, n] - S2[a6, a2, a5, a3, a4, a1, n] - 
    S2[a6, a2, a5, a4, a1, a3, n] - S2[a6, a2, a5, a4, a3, a1, n] - 
    S2[a6, a3, a2, a5, a4, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a3_, a6_, a4_, a1_, a2_, a5_, n_] :> 
  S2[a3, n]*S2[a6, a4, a1, a2, a5, n] + S2[a6, a4, a1, a2, SP[a3, a5], n] + 
    S2[a6, a4, a1, SP[a2, a3], a5, n] + S2[a6, a4, SP[a1, a3], a2, a5, n] + 
    S2[a6, SP[a3, a4], a1, a2, a5, n] + S2[SP[a3, a6], a4, a1, a2, a5, n] - 
    S2[a6, a3, a4, a1, a2, a5, n] - S2[a6, a4, a1, a2, a3, a5, n] - 
    S2[a6, a4, a1, a2, a5, a3, n] - S2[a6, a4, a1, a3, a2, a5, n] - 
    S2[a6, a4, a3, a1, a2, a5, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a3_, a6_, a4_, a1_, a5_, a2_, n_] :> 
  S2[a3, n]*S2[a6, a4, a1, a5, a2, n] + S2[a6, a4, a1, a5, SP[a2, a3], n] + 
    S2[a6, a4, a1, SP[a3, a5], a2, n] + S2[a6, a4, SP[a1, a3], a5, a2, n] + 
    S2[a6, SP[a3, a4], a1, a5, a2, n] + S2[SP[a3, a6], a4, a1, a5, a2, n] - 
    S2[a6, a3, a4, a1, a5, a2, n] - S2[a6, a4, a1, a3, a5, a2, n] - 
    S2[a6, a4, a1, a5, a2, a3, n] - S2[a6, a4, a1, a5, a3, a2, n] - 
    S2[a6, a4, a3, a1, a5, a2, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a3_, a6_, a4_, a2_, a1_, a5_, n_] :> 
  -(S2[a3, n]*S2[a2, a6, a4, a1, a5, n]) - S2[a2, a6, a4, a1, SP[a3, a5], 
     n] - S2[a2, a6, a4, SP[a1, a3], a5, n] - S2[a2, a6, SP[a3, a4], a1, a5, 
     n] - S2[a2, SP[a3, a6], a4, a1, a5, n] + 
    S2[a2, n]*S2[a3, a6, a4, a1, a5, n] + S2[a3, a6, a4, a1, SP[a2, a5], n] + 
    S2[a3, a6, a4, SP[a1, a2], a5, n] + S2[a3, a6, SP[a2, a4], a1, a5, n] + 
    S2[a3, SP[a2, a6], a4, a1, a5, n] - S2[a3, n]*S2[a6, a2, a4, a1, a5, n] - 
    S2[a6, a2, a4, a1, SP[a3, a5], n] - S2[a6, a2, a4, SP[a1, a3], a5, n] - 
    S2[a6, a2, SP[a3, a4], a1, a5, n] + S2[a2, n]*S2[a6, a3, a4, a1, a5, n] + 
    S2[a6, a3, a4, a1, SP[a2, a5], n] + S2[a6, a3, a4, SP[a1, a2], a5, n] + 
    S2[a6, a3, SP[a2, a4], a1, a5, n] - S2[a3, n]*S2[a6, a4, a1, a2, a5, n] - 
    S2[a6, a4, a1, a2, SP[a3, a5], n] + S2[a2, n]*S2[a6, a4, a1, a3, a5, n] + 
    S2[a6, a4, a1, a3, SP[a2, a5], n] - S2[a3, n]*S2[a6, a4, a1, a5, a2, n] + 
    S2[a2, n]*S2[a6, a4, a1, a5, a3, n] + S2[a6, a4, a1, SP[a2, a5], a3, n] - 
    S2[a6, a4, a1, SP[a3, a5], a2, n] + S2[a2, n]*S2[a6, a4, a3, a1, a5, n] + 
    S2[a6, a4, a3, a1, SP[a2, a5], n] + S2[a6, a4, a3, SP[a1, a2], a5, n] + 
    S2[a6, a4, SP[a1, a2], a3, a5, n] + S2[a6, a4, SP[a1, a2], a5, a3, n] - 
    S2[a6, a4, SP[a1, a3], a2, a5, n] - S2[a6, a4, SP[a1, a3], a5, a2, n] + 
    S2[a6, a4, SP[a2, a3], a1, a5, n] + S2[a6, SP[a2, a4], a1, a3, a5, n] + 
    S2[a6, SP[a2, a4], a1, a5, a3, n] + S2[a6, SP[a2, a4], a3, a1, a5, n] - 
    S2[a6, SP[a3, a4], a1, a2, a5, n] - S2[a6, SP[a3, a4], a1, a5, a2, n] + 
    S2[SP[a2, a6], a3, a4, a1, a5, n] + S2[SP[a2, a6], a4, a1, a3, a5, n] + 
    S2[SP[a2, a6], a4, a1, a5, a3, n] + S2[SP[a2, a6], a4, a3, a1, a5, n] - 
    S2[SP[a3, a6], a2, a4, a1, a5, n] - S2[SP[a3, a6], a4, a1, a2, a5, n] - 
    S2[SP[a3, a6], a4, a1, a5, a2, n] - S2[a6, a3, a4, a2, a1, a5, n] - 
    S2[a6, a4, a2, a1, a3, a5, n] - S2[a6, a4, a2, a1, a5, a3, n] - 
    S2[a6, a4, a2, a3, a1, a5, n] - S2[a6, a4, a3, a2, a1, a5, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a3_, a6_, a4_, a2_, a5_, a1_, n_] :> 
  -(S2[a3, n]*S2[a1, a6, a4, a2, a5, n]) - S2[a1, a6, a4, a2, SP[a3, a5], 
     n] - S2[a1, a6, a4, SP[a2, a3], a5, n] - S2[a1, a6, SP[a3, a4], a2, a5, 
     n] - S2[a1, SP[a3, a6], a4, a2, a5, n] + 
    S2[a3, n]*S2[a2, a6, a4, a1, a5, n] + S2[a2, a6, a4, a1, SP[a3, a5], n] + 
    S2[a2, a6, a4, SP[a1, a3], a5, n] + S2[a2, a6, SP[a3, a4], a1, a5, n] + 
    S2[a2, SP[a3, a6], a4, a1, a5, n] - S2[a2, n]*S2[a3, a6, a4, a1, a5, n] - 
    S2[a3, a6, a4, a1, SP[a2, a5], n] + S2[a1, n]*S2[a3, a6, a4, a2, a5, n] + 
    S2[a3, a6, a4, a2, SP[a1, a5], n] + S2[a3, a6, SP[a1, a4], a2, a5, n] - 
    S2[a3, a6, SP[a2, a4], a1, a5, n] + S2[a3, SP[a1, a6], a4, a2, a5, n] - 
    S2[a3, SP[a2, a6], a4, a1, a5, n] - S2[a3, n]*S2[a6, a1, a4, a2, a5, n] - 
    S2[a6, a1, a4, a2, SP[a3, a5], n] - S2[a6, a1, a4, SP[a2, a3], a5, n] - 
    S2[a6, a1, SP[a3, a4], a2, a5, n] + S2[a3, n]*S2[a6, a2, a4, a1, a5, n] + 
    S2[a6, a2, a4, a1, SP[a3, a5], n] + S2[a6, a2, a4, SP[a1, a3], a5, n] + 
    S2[a6, a2, SP[a3, a4], a1, a5, n] - S2[a2, n]*S2[a6, a3, a4, a1, a5, n] - 
    S2[a6, a3, a4, a1, SP[a2, a5], n] + S2[a1, n]*S2[a6, a3, a4, a2, a5, n] + 
    S2[a6, a3, a4, a2, SP[a1, a5], n] + S2[a6, a3, SP[a1, a4], a2, a5, n] - 
    S2[a6, a3, SP[a2, a4], a1, a5, n] - S2[a2, n]*S2[a6, a4, a1, a3, a5, n] - 
    S2[a6, a4, a1, a3, SP[a2, a5], n] + S2[a3, n]*S2[a6, a4, a1, a5, a2, n] - 
    S2[a2, n]*S2[a6, a4, a1, a5, a3, n] - S2[a6, a4, a1, SP[a2, a3], a5, n] - 
    S2[a6, a4, a1, SP[a2, a5], a3, n] + S2[a6, a4, a1, SP[a3, a5], a2, n] + 
    S2[a1, n]*S2[a6, a4, a2, a3, a5, n] + S2[a6, a4, a2, a3, SP[a1, a5], n] + 
    S2[a1, n]*S2[a6, a4, a2, a5, a3, n] + S2[a6, a4, a2, a5, SP[a1, a3], n] + 
    S2[a6, a4, a2, SP[a1, a3], a5, n] + S2[a6, a4, a2, SP[a1, a5], a3, n] - 
    S2[a2, n]*S2[a6, a4, a3, a1, a5, n] - S2[a6, a4, a3, a1, SP[a2, a5], n] + 
    S2[a1, n]*S2[a6, a4, a3, a2, a5, n] + S2[a6, a4, a3, a2, SP[a1, a5], n] + 
    S2[a6, a4, SP[a1, a3], a2, a5, n] + S2[a6, a4, SP[a1, a3], a5, a2, n] - 
    S2[a6, a4, SP[a2, a3], a1, a5, n] + S2[a6, SP[a1, a4], a2, a3, a5, n] + 
    S2[a6, SP[a1, a4], a2, a5, a3, n] + S2[a6, SP[a1, a4], a3, a2, a5, n] - 
    S2[a6, SP[a2, a4], a1, a3, a5, n] - S2[a6, SP[a2, a4], a1, a5, a3, n] - 
    S2[a6, SP[a2, a4], a3, a1, a5, n] + S2[a6, SP[a3, a4], a1, a5, a2, n] + 
    S2[SP[a1, a6], a3, a4, a2, a5, n] + S2[SP[a1, a6], a4, a2, a3, a5, n] + 
    S2[SP[a1, a6], a4, a2, a5, a3, n] + S2[SP[a1, a6], a4, a3, a2, a5, n] - 
    S2[SP[a2, a6], a3, a4, a1, a5, n] - S2[SP[a2, a6], a4, a1, a3, a5, n] - 
    S2[SP[a2, a6], a4, a1, a5, a3, n] - S2[SP[a2, a6], a4, a3, a1, a5, n] - 
    S2[SP[a3, a6], a1, a4, a2, a5, n] + S2[SP[a3, a6], a2, a4, a1, a5, n] + 
    S2[SP[a3, a6], a4, a1, a5, a2, n] - S2[a6, a3, a4, a2, a5, a1, n] - 
    S2[a6, a4, a2, a3, a5, a1, n] - S2[a6, a4, a2, a5, a1, a3, n] - 
    S2[a6, a4, a2, a5, a3, a1, n] - S2[a6, a4, a3, a2, a5, a1, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a3_, a6_, a4_, a5_, a1_, a2_, n_] :> 
  S2[a3, n]*S2[a6, a4, a5, a1, a2, n] + S2[a6, a4, a5, a1, SP[a2, a3], n] + 
    S2[a6, a4, a5, SP[a1, a3], a2, n] + S2[a6, a4, SP[a3, a5], a1, a2, n] + 
    S2[a6, SP[a3, a4], a5, a1, a2, n] + S2[SP[a3, a6], a4, a5, a1, a2, n] - 
    S2[a6, a3, a4, a5, a1, a2, n] - S2[a6, a4, a3, a5, a1, a2, n] - 
    S2[a6, a4, a5, a1, a2, a3, n] - S2[a6, a4, a5, a1, a3, a2, n] - 
    S2[a6, a4, a5, a3, a1, a2, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a3_, a6_, a4_, a5_, a2_, a1_, n_] :> 
  -(S2[a3, n]*S2[a1, a6, a4, a5, a2, n]) - S2[a1, a6, a4, a5, SP[a2, a3], 
     n] - S2[a1, a6, a4, SP[a3, a5], a2, n] - S2[a1, a6, SP[a3, a4], a5, a2, 
     n] - S2[a1, SP[a3, a6], a4, a5, a2, n] + 
    S2[a1, n]*S2[a3, a6, a4, a5, a2, n] + S2[a3, a6, a4, a5, SP[a1, a2], n] + 
    S2[a3, a6, a4, SP[a1, a5], a2, n] + S2[a3, a6, SP[a1, a4], a5, a2, n] + 
    S2[a3, SP[a1, a6], a4, a5, a2, n] - S2[a3, n]*S2[a6, a1, a4, a5, a2, n] - 
    S2[a6, a1, a4, a5, SP[a2, a3], n] - S2[a6, a1, a4, SP[a3, a5], a2, n] - 
    S2[a6, a1, SP[a3, a4], a5, a2, n] + S2[a1, n]*S2[a6, a3, a4, a5, a2, n] + 
    S2[a6, a3, a4, a5, SP[a1, a2], n] + S2[a6, a3, a4, SP[a1, a5], a2, n] + 
    S2[a6, a3, SP[a1, a4], a5, a2, n] - S2[a3, n]*S2[a6, a4, a1, a5, a2, n] - 
    S2[a6, a4, a1, a5, SP[a2, a3], n] - S2[a6, a4, a1, SP[a3, a5], a2, n] + 
    S2[a1, n]*S2[a6, a4, a3, a5, a2, n] + S2[a6, a4, a3, a5, SP[a1, a2], n] + 
    S2[a6, a4, a3, SP[a1, a5], a2, n] - S2[a3, n]*S2[a6, a4, a5, a1, a2, n] - 
    S2[a6, a4, a5, a1, SP[a2, a3], n] + S2[a1, n]*S2[a6, a4, a5, a2, a3, n] + 
    S2[a6, a4, a5, a2, SP[a1, a3], n] + S2[a1, n]*S2[a6, a4, a5, a3, a2, n] + 
    S2[a6, a4, a5, a3, SP[a1, a2], n] + S2[a6, a4, a5, SP[a1, a2], a3, n] + 
    S2[a6, a4, SP[a1, a5], a2, a3, n] + S2[a6, a4, SP[a1, a5], a3, a2, n] - 
    S2[a6, a4, SP[a3, a5], a1, a2, n] + S2[a6, SP[a1, a4], a3, a5, a2, n] + 
    S2[a6, SP[a1, a4], a5, a2, a3, n] + S2[a6, SP[a1, a4], a5, a3, a2, n] - 
    S2[a6, SP[a3, a4], a1, a5, a2, n] - S2[a6, SP[a3, a4], a5, a1, a2, n] + 
    S2[SP[a1, a6], a3, a4, a5, a2, n] + S2[SP[a1, a6], a4, a3, a5, a2, n] + 
    S2[SP[a1, a6], a4, a5, a2, a3, n] + S2[SP[a1, a6], a4, a5, a3, a2, n] - 
    S2[SP[a3, a6], a1, a4, a5, a2, n] - S2[SP[a3, a6], a4, a1, a5, a2, n] - 
    S2[SP[a3, a6], a4, a5, a1, a2, n] - S2[a6, a3, a4, a5, a2, a1, n] - 
    S2[a6, a4, a3, a5, a2, a1, n] - S2[a6, a4, a5, a2, a1, a3, n] - 
    S2[a6, a4, a5, a2, a3, a1, n] - S2[a6, a4, a5, a3, a2, a1, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a3_, a6_, a5_, a1_, a2_, a4_, n_] :> 
  S2[a3, n]*S2[a6, a5, a1, a2, a4, n] + S2[a6, a5, a1, a2, SP[a3, a4], n] + 
    S2[a6, a5, a1, SP[a2, a3], a4, n] + S2[a6, a5, SP[a1, a3], a2, a4, n] + 
    S2[a6, SP[a3, a5], a1, a2, a4, n] + S2[SP[a3, a6], a5, a1, a2, a4, n] - 
    S2[a6, a3, a5, a1, a2, a4, n] - S2[a6, a5, a1, a2, a3, a4, n] - 
    S2[a6, a5, a1, a2, a4, a3, n] - S2[a6, a5, a1, a3, a2, a4, n] - 
    S2[a6, a5, a3, a1, a2, a4, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a3_, a6_, a5_, a1_, a4_, a2_, n_] :> 
  S2[a3, n]*S2[a6, a5, a1, a4, a2, n] + S2[a6, a5, a1, a4, SP[a2, a3], n] + 
    S2[a6, a5, a1, SP[a3, a4], a2, n] + S2[a6, a5, SP[a1, a3], a4, a2, n] + 
    S2[a6, SP[a3, a5], a1, a4, a2, n] + S2[SP[a3, a6], a5, a1, a4, a2, n] - 
    S2[a6, a3, a5, a1, a4, a2, n] - S2[a6, a5, a1, a3, a4, a2, n] - 
    S2[a6, a5, a1, a4, a2, a3, n] - S2[a6, a5, a1, a4, a3, a2, n] - 
    S2[a6, a5, a3, a1, a4, a2, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a3_, a6_, a5_, a2_, a1_, a4_, n_] :> 
  -(S2[a3, n]*S2[a2, a6, a5, a1, a4, n]) - S2[a2, a6, a5, a1, SP[a3, a4], 
     n] - S2[a2, a6, a5, SP[a1, a3], a4, n] - S2[a2, a6, SP[a3, a5], a1, a4, 
     n] - S2[a2, SP[a3, a6], a5, a1, a4, n] + 
    S2[a2, n]*S2[a3, a6, a5, a1, a4, n] + S2[a3, a6, a5, a1, SP[a2, a4], n] + 
    S2[a3, a6, a5, SP[a1, a2], a4, n] + S2[a3, a6, SP[a2, a5], a1, a4, n] + 
    S2[a3, SP[a2, a6], a5, a1, a4, n] - S2[a3, n]*S2[a6, a2, a5, a1, a4, n] - 
    S2[a6, a2, a5, a1, SP[a3, a4], n] - S2[a6, a2, a5, SP[a1, a3], a4, n] - 
    S2[a6, a2, SP[a3, a5], a1, a4, n] + S2[a2, n]*S2[a6, a3, a5, a1, a4, n] + 
    S2[a6, a3, a5, a1, SP[a2, a4], n] + S2[a6, a3, a5, SP[a1, a2], a4, n] + 
    S2[a6, a3, SP[a2, a5], a1, a4, n] - S2[a3, n]*S2[a6, a5, a1, a2, a4, n] - 
    S2[a6, a5, a1, a2, SP[a3, a4], n] + S2[a2, n]*S2[a6, a5, a1, a3, a4, n] + 
    S2[a6, a5, a1, a3, SP[a2, a4], n] - S2[a3, n]*S2[a6, a5, a1, a4, a2, n] + 
    S2[a2, n]*S2[a6, a5, a1, a4, a3, n] + S2[a6, a5, a1, SP[a2, a4], a3, n] - 
    S2[a6, a5, a1, SP[a3, a4], a2, n] + S2[a2, n]*S2[a6, a5, a3, a1, a4, n] + 
    S2[a6, a5, a3, a1, SP[a2, a4], n] + S2[a6, a5, a3, SP[a1, a2], a4, n] + 
    S2[a6, a5, SP[a1, a2], a3, a4, n] + S2[a6, a5, SP[a1, a2], a4, a3, n] - 
    S2[a6, a5, SP[a1, a3], a2, a4, n] - S2[a6, a5, SP[a1, a3], a4, a2, n] + 
    S2[a6, a5, SP[a2, a3], a1, a4, n] + S2[a6, SP[a2, a5], a1, a3, a4, n] + 
    S2[a6, SP[a2, a5], a1, a4, a3, n] + S2[a6, SP[a2, a5], a3, a1, a4, n] - 
    S2[a6, SP[a3, a5], a1, a2, a4, n] - S2[a6, SP[a3, a5], a1, a4, a2, n] + 
    S2[SP[a2, a6], a3, a5, a1, a4, n] + S2[SP[a2, a6], a5, a1, a3, a4, n] + 
    S2[SP[a2, a6], a5, a1, a4, a3, n] + S2[SP[a2, a6], a5, a3, a1, a4, n] - 
    S2[SP[a3, a6], a2, a5, a1, a4, n] - S2[SP[a3, a6], a5, a1, a2, a4, n] - 
    S2[SP[a3, a6], a5, a1, a4, a2, n] - S2[a6, a3, a5, a2, a1, a4, n] - 
    S2[a6, a5, a2, a1, a3, a4, n] - S2[a6, a5, a2, a1, a4, a3, n] - 
    S2[a6, a5, a2, a3, a1, a4, n] - S2[a6, a5, a3, a2, a1, a4, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a3_, a6_, a5_, a2_, a4_, a1_, n_] :> 
  -(S2[a3, n]*S2[a1, a6, a5, a2, a4, n]) - S2[a1, a6, a5, a2, SP[a3, a4], 
     n] - S2[a1, a6, a5, SP[a2, a3], a4, n] - S2[a1, a6, SP[a3, a5], a2, a4, 
     n] - S2[a1, SP[a3, a6], a5, a2, a4, n] + 
    S2[a3, n]*S2[a2, a6, a5, a1, a4, n] + S2[a2, a6, a5, a1, SP[a3, a4], n] + 
    S2[a2, a6, a5, SP[a1, a3], a4, n] + S2[a2, a6, SP[a3, a5], a1, a4, n] + 
    S2[a2, SP[a3, a6], a5, a1, a4, n] - S2[a2, n]*S2[a3, a6, a5, a1, a4, n] - 
    S2[a3, a6, a5, a1, SP[a2, a4], n] + S2[a1, n]*S2[a3, a6, a5, a2, a4, n] + 
    S2[a3, a6, a5, a2, SP[a1, a4], n] + S2[a3, a6, SP[a1, a5], a2, a4, n] - 
    S2[a3, a6, SP[a2, a5], a1, a4, n] + S2[a3, SP[a1, a6], a5, a2, a4, n] - 
    S2[a3, SP[a2, a6], a5, a1, a4, n] - S2[a3, n]*S2[a6, a1, a5, a2, a4, n] - 
    S2[a6, a1, a5, a2, SP[a3, a4], n] - S2[a6, a1, a5, SP[a2, a3], a4, n] - 
    S2[a6, a1, SP[a3, a5], a2, a4, n] + S2[a3, n]*S2[a6, a2, a5, a1, a4, n] + 
    S2[a6, a2, a5, a1, SP[a3, a4], n] + S2[a6, a2, a5, SP[a1, a3], a4, n] + 
    S2[a6, a2, SP[a3, a5], a1, a4, n] - S2[a2, n]*S2[a6, a3, a5, a1, a4, n] - 
    S2[a6, a3, a5, a1, SP[a2, a4], n] + S2[a1, n]*S2[a6, a3, a5, a2, a4, n] + 
    S2[a6, a3, a5, a2, SP[a1, a4], n] + S2[a6, a3, SP[a1, a5], a2, a4, n] - 
    S2[a6, a3, SP[a2, a5], a1, a4, n] - S2[a2, n]*S2[a6, a5, a1, a3, a4, n] - 
    S2[a6, a5, a1, a3, SP[a2, a4], n] + S2[a3, n]*S2[a6, a5, a1, a4, a2, n] - 
    S2[a2, n]*S2[a6, a5, a1, a4, a3, n] - S2[a6, a5, a1, SP[a2, a3], a4, n] - 
    S2[a6, a5, a1, SP[a2, a4], a3, n] + S2[a6, a5, a1, SP[a3, a4], a2, n] + 
    S2[a1, n]*S2[a6, a5, a2, a3, a4, n] + S2[a6, a5, a2, a3, SP[a1, a4], n] + 
    S2[a1, n]*S2[a6, a5, a2, a4, a3, n] + S2[a6, a5, a2, a4, SP[a1, a3], n] + 
    S2[a6, a5, a2, SP[a1, a3], a4, n] + S2[a6, a5, a2, SP[a1, a4], a3, n] - 
    S2[a2, n]*S2[a6, a5, a3, a1, a4, n] - S2[a6, a5, a3, a1, SP[a2, a4], n] + 
    S2[a1, n]*S2[a6, a5, a3, a2, a4, n] + S2[a6, a5, a3, a2, SP[a1, a4], n] + 
    S2[a6, a5, SP[a1, a3], a2, a4, n] + S2[a6, a5, SP[a1, a3], a4, a2, n] - 
    S2[a6, a5, SP[a2, a3], a1, a4, n] + S2[a6, SP[a1, a5], a2, a3, a4, n] + 
    S2[a6, SP[a1, a5], a2, a4, a3, n] + S2[a6, SP[a1, a5], a3, a2, a4, n] - 
    S2[a6, SP[a2, a5], a1, a3, a4, n] - S2[a6, SP[a2, a5], a1, a4, a3, n] - 
    S2[a6, SP[a2, a5], a3, a1, a4, n] + S2[a6, SP[a3, a5], a1, a4, a2, n] + 
    S2[SP[a1, a6], a3, a5, a2, a4, n] + S2[SP[a1, a6], a5, a2, a3, a4, n] + 
    S2[SP[a1, a6], a5, a2, a4, a3, n] + S2[SP[a1, a6], a5, a3, a2, a4, n] - 
    S2[SP[a2, a6], a3, a5, a1, a4, n] - S2[SP[a2, a6], a5, a1, a3, a4, n] - 
    S2[SP[a2, a6], a5, a1, a4, a3, n] - S2[SP[a2, a6], a5, a3, a1, a4, n] - 
    S2[SP[a3, a6], a1, a5, a2, a4, n] + S2[SP[a3, a6], a2, a5, a1, a4, n] + 
    S2[SP[a3, a6], a5, a1, a4, a2, n] - S2[a6, a3, a5, a2, a4, a1, n] - 
    S2[a6, a5, a2, a3, a4, a1, n] - S2[a6, a5, a2, a4, a1, a3, n] - 
    S2[a6, a5, a2, a4, a3, a1, n] - S2[a6, a5, a3, a2, a4, a1, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a3_, a6_, a5_, a4_, a1_, a2_, n_] :> 
  S2[a3, n]*S2[a6, a5, a4, a1, a2, n] + S2[a6, a5, a4, a1, SP[a2, a3], n] + 
    S2[a6, a5, a4, SP[a1, a3], a2, n] + S2[a6, a5, SP[a3, a4], a1, a2, n] + 
    S2[a6, SP[a3, a5], a4, a1, a2, n] + S2[SP[a3, a6], a5, a4, a1, a2, n] - 
    S2[a6, a3, a5, a4, a1, a2, n] - S2[a6, a5, a3, a4, a1, a2, n] - 
    S2[a6, a5, a4, a1, a2, a3, n] - S2[a6, a5, a4, a1, a3, a2, n] - 
    S2[a6, a5, a4, a3, a1, a2, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a3_, a6_, a5_, a4_, a2_, a1_, n_] :> 
  -(S2[a3, n]*S2[a1, a6, a5, a4, a2, n]) - S2[a1, a6, a5, a4, SP[a2, a3], 
     n] - S2[a1, a6, a5, SP[a3, a4], a2, n] - S2[a1, a6, SP[a3, a5], a4, a2, 
     n] - S2[a1, SP[a3, a6], a5, a4, a2, n] + 
    S2[a1, n]*S2[a3, a6, a5, a4, a2, n] + S2[a3, a6, a5, a4, SP[a1, a2], n] + 
    S2[a3, a6, a5, SP[a1, a4], a2, n] + S2[a3, a6, SP[a1, a5], a4, a2, n] + 
    S2[a3, SP[a1, a6], a5, a4, a2, n] - S2[a3, n]*S2[a6, a1, a5, a4, a2, n] - 
    S2[a6, a1, a5, a4, SP[a2, a3], n] - S2[a6, a1, a5, SP[a3, a4], a2, n] - 
    S2[a6, a1, SP[a3, a5], a4, a2, n] + S2[a1, n]*S2[a6, a3, a5, a4, a2, n] + 
    S2[a6, a3, a5, a4, SP[a1, a2], n] + S2[a6, a3, a5, SP[a1, a4], a2, n] + 
    S2[a6, a3, SP[a1, a5], a4, a2, n] - S2[a3, n]*S2[a6, a5, a1, a4, a2, n] - 
    S2[a6, a5, a1, a4, SP[a2, a3], n] - S2[a6, a5, a1, SP[a3, a4], a2, n] + 
    S2[a1, n]*S2[a6, a5, a3, a4, a2, n] + S2[a6, a5, a3, a4, SP[a1, a2], n] + 
    S2[a6, a5, a3, SP[a1, a4], a2, n] - S2[a3, n]*S2[a6, a5, a4, a1, a2, n] - 
    S2[a6, a5, a4, a1, SP[a2, a3], n] + S2[a1, n]*S2[a6, a5, a4, a2, a3, n] + 
    S2[a6, a5, a4, a2, SP[a1, a3], n] + S2[a1, n]*S2[a6, a5, a4, a3, a2, n] + 
    S2[a6, a5, a4, a3, SP[a1, a2], n] + S2[a6, a5, a4, SP[a1, a2], a3, n] + 
    S2[a6, a5, SP[a1, a4], a2, a3, n] + S2[a6, a5, SP[a1, a4], a3, a2, n] - 
    S2[a6, a5, SP[a3, a4], a1, a2, n] + S2[a6, SP[a1, a5], a3, a4, a2, n] + 
    S2[a6, SP[a1, a5], a4, a2, a3, n] + S2[a6, SP[a1, a5], a4, a3, a2, n] - 
    S2[a6, SP[a3, a5], a1, a4, a2, n] - S2[a6, SP[a3, a5], a4, a1, a2, n] + 
    S2[SP[a1, a6], a3, a5, a4, a2, n] + S2[SP[a1, a6], a5, a3, a4, a2, n] + 
    S2[SP[a1, a6], a5, a4, a2, a3, n] + S2[SP[a1, a6], a5, a4, a3, a2, n] - 
    S2[SP[a3, a6], a1, a5, a4, a2, n] - S2[SP[a3, a6], a5, a1, a4, a2, n] - 
    S2[SP[a3, a6], a5, a4, a1, a2, n] - S2[a6, a3, a5, a4, a2, a1, n] - 
    S2[a6, a5, a3, a4, a2, a1, n] - S2[a6, a5, a4, a2, a1, a3, n] - 
    S2[a6, a5, a4, a2, a3, a1, n] - S2[a6, a5, a4, a3, a2, a1, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a4_, a1_, a2_, a3_, a5_, a6_, n_] :> 
  -(S2[a1, a2, a4, n]*S2[a3, a5, a6, n]) - S2[a1, a4, a2, n]*
     S2[a3, a5, a6, n] - S2[SP[a1, a3], SP[a2, a5], SP[a4, a6], n] - 
    S2[SP[a1, a3], SP[a4, a5], SP[a2, a6], n] - 
    S2[a5, a6, n]*S2[a1, a2, a3, a4, n] - S2[a5, a6, n]*
     S2[a1, a2, a4, a3, n] + S2[a1, a2, SP[a3, a5], SP[a4, a6], n] + 
    S2[a1, a2, SP[a4, a5], SP[a3, a6], n] + S2[a1, a3, SP[a2, a5], 
     SP[a4, a6], n] + S2[a1, a3, SP[a4, a5], SP[a2, a6], n] - 
    S2[a5, a6, n]*S2[a1, a4, a2, a3, n] + S2[a1, a4, SP[a2, a5], SP[a3, a6], 
     n] + S2[a1, SP[a2, a3], a5, SP[a4, a6], n] + 
    S2[a1, SP[a2, a3], SP[a4, a5], a6, n] + S2[a1, SP[a2, a5], a3, 
     SP[a4, a6], n] + S2[a1, SP[a2, a5], a4, SP[a3, a6], n] + 
    S2[a1, SP[a2, a5], SP[a3, a6], a4, n] + S2[a1, SP[a2, a5], SP[a4, a6], 
     a3, n] + S2[a1, SP[a3, a4], a5, SP[a2, a6], n] + 
    S2[a1, SP[a3, a4], SP[a2, a5], a6, n] + S2[a1, SP[a4, a5], a2, 
     SP[a3, a6], n] + S2[a1, SP[a4, a5], SP[a2, a6], a3, n] - 
    S2[a1, a4, n]*S2[a2, a3, a5, a6, n] - S2[a1, a4, n]*
     S2[a2, a3, a6, a5, n] + S2[a2, a3, SP[a1, a5], SP[a4, a6], n] + 
    S2[a2, a3, SP[a1, a6], SP[a4, a5], n] - S2[a1, a4, n]*
     S2[a2, a6, a3, a5, n] - S2[a1, a4, n]*S2[a2, a6, a5, a3, n] + 
    S2[a2, a6, SP[a1, a3], SP[a4, a5], n] + S2[a2, a6, SP[a1, a5], 
     SP[a3, a4], n] + S2[a2, SP[a1, a3], a5, SP[a4, a6], n] + 
    S2[a2, SP[a1, a3], a6, SP[a4, a5], n] + S2[a2, SP[a1, a3], SP[a4, a5], 
     a6, n] + S2[a2, SP[a1, a3], SP[a4, a6], a5, n] + 
    S2[a2, SP[a1, a6], a3, SP[a4, a5], n] + S2[a2, SP[a1, a6], a5, 
     SP[a3, a4], n] + S2[a2, SP[a1, a6], SP[a3, a4], a5, n] + 
    S2[a2, SP[a1, a6], SP[a4, a5], a3, n] + S2[a3, a1, SP[a2, a5], 
     SP[a4, a6], n] + S2[a3, a1, SP[a4, a5], SP[a2, a6], n] + 
    S2[a3, SP[a1, a5], a2, SP[a4, a6], n] + S2[a3, SP[a1, a5], a4, 
     SP[a2, a6], n] + S2[a3, SP[a1, a5], SP[a2, a6], a4, n] + 
    S2[a3, SP[a1, a5], SP[a4, a6], a2, n] + S2[a1, a4, n]*
     S2[a5, a6, a2, a3, n] - S2[a5, a6, SP[a1, a2], SP[a3, a4], n] - 
    S2[a5, SP[a1, a6], a2, SP[a3, a4], n] - S2[a5, SP[a1, a6], SP[a2, a4], 
     a3, n] + S2[SP[a1, a2], a3, a5, SP[a4, a6], n] + 
    S2[SP[a1, a2], a3, a6, SP[a4, a5], n] + S2[SP[a1, a2], a3, SP[a4, a5], 
     a6, n] + S2[SP[a1, a2], a3, SP[a4, a6], a5, n] + 
    S2[SP[a1, a2], a6, a3, SP[a4, a5], n] + S2[SP[a1, a2], a6, a5, 
     SP[a3, a4], n] + S2[SP[a1, a2], a6, SP[a3, a4], a5, n] + 
    S2[SP[a1, a2], a6, SP[a4, a5], a3, n] + S2[SP[a1, a2], SP[a3, a4], a5, 
     a6, n] + S2[SP[a1, a2], SP[a3, a4], a6, a5, n] + 
    S2[SP[a1, a2], SP[a4, a6], a3, a5, n] + S2[SP[a1, a2], SP[a4, a6], a5, 
     a3, n] + S2[SP[a1, a3], a2, a5, SP[a4, a6], n] + 
    S2[SP[a1, a3], a2, SP[a4, a5], a6, n] + S2[SP[a1, a3], a4, a5, 
     SP[a2, a6], n] + S2[SP[a1, a3], a4, SP[a2, a5], a6, n] + 
    S2[SP[a1, a3], a5, a2, SP[a4, a6], n] + S2[SP[a1, a3], a5, a4, 
     SP[a2, a6], n] + S2[SP[a1, a3], a5, SP[a2, a6], a4, n] + 
    S2[SP[a1, a3], a5, SP[a4, a6], a2, n] + S2[SP[a1, a3], SP[a2, a5], a4, 
     a6, n] + S2[SP[a1, a3], SP[a2, a5], a6, a4, n] + 
    S2[SP[a1, a3], SP[a4, a5], a2, a6, n] + S2[SP[a1, a3], SP[a4, a5], a6, 
     a2, n] + S2[SP[a1, a5], a2, a3, SP[a4, a6], n] + 
    S2[SP[a1, a5], a2, a4, SP[a3, a6], n] + S2[SP[a1, a5], a2, SP[a3, a6], 
     a4, n] + S2[SP[a1, a5], a2, SP[a4, a6], a3, n] + 
    S2[SP[a1, a5], a4, a2, SP[a3, a6], n] + S2[SP[a1, a5], a4, SP[a2, a6], 
     a3, n] - S2[SP[a1, a5], a6, a2, SP[a3, a4], n] - 
    S2[SP[a1, a5], a6, SP[a2, a4], a3, n] + S2[SP[a1, a5], SP[a2, a6], a3, 
     a4, n] + S2[SP[a1, a5], SP[a2, a6], a4, a3, n] - 
    S2[a6, n]*S2[a1, a2, a3, a4, a5, n] + 
    S2[a5, n]*S2[a1, a2, a3, a4, a6, n] - 
    S2[a6, n]*S2[a1, a2, a3, a5, a4, n] + 
    S2[a4, n]*S2[a1, a2, a3, a5, a6, n] - 
    3*S2[a1, a2, a3, a5, SP[a4, a6], n] + 
    S2[a5, n]*S2[a1, a2, a3, a6, a4, n] - S2[a1, a2, a3, SP[a4, a5], a6, n] - 
    2*S2[a1, a2, a3, SP[a4, a6], a5, n] - 
    S2[a6, n]*S2[a1, a2, a4, a3, a5, n] + 
    S2[a5, n]*S2[a1, a2, a4, a3, a6, n] - 
    S2[a6, n]*S2[a1, a2, a4, a5, a3, n] + 
    S2[a3, n]*S2[a1, a2, a4, a5, a6, n] - S2[a1, a2, a4, a5, SP[a3, a6], n] + 
    S2[a5, n]*S2[a1, a2, a4, a6, a3, n] + S2[a1, a2, a4, a6, SP[a3, a5], n] + 
    S2[a1, a2, a4, SP[a3, a5], a6, n] - S2[a1, a2, a4, SP[a3, a6], a5, n] - 
    S2[a6, n]*S2[a1, a2, a5, a3, a4, n] - 
    2*S2[a1, a2, a5, a3, SP[a4, a6], n] - 
    S2[a6, n]*S2[a1, a2, a5, a4, a3, n] + 
    S2[a3, n]*S2[a1, a2, a5, a4, a6, n] - S2[a1, a2, a5, a4, SP[a3, a6], n] + 
    S2[a3, n]*S2[a1, a2, a5, a6, a4, n] + S2[a1, a2, a5, a6, SP[a3, a4], n] + 
    S2[a1, a2, a5, SP[a3, a4], a6, n] - S2[a1, a2, a5, SP[a3, a6], a4, n] - 
    2*S2[a1, a2, a5, SP[a4, a6], a3, n] + 
    S2[a5, n]*S2[a1, a2, a6, a3, a4, n] + 
    S2[a5, n]*S2[a1, a2, a6, a4, a3, n] + S2[a1, a2, a6, a4, SP[a3, a5], n] - 
    S2[a1, a2, a6, a5, SP[a3, a4], n] - S2[a1, a2, a6, SP[a3, a4], a5, n] + 
    S2[a1, a2, a6, SP[a3, a5], a4, n] - S2[a1, a2, SP[a3, a4], a6, a5, n] + 
    S2[a1, a2, SP[a3, a5], a4, a6, n] + S2[a1, a2, SP[a3, a5], a6, a4, n] - 
    S2[a1, a2, SP[a3, a6], a4, a5, n] - S2[a1, a2, SP[a3, a6], a5, a4, n] - 
    2*S2[a1, a2, SP[a4, a6], a3, a5, n] - 
    2*S2[a1, a2, SP[a4, a6], a5, a3, n] - 
    S2[a6, n]*S2[a1, a3, a2, a4, a5, n] - S2[a1, a3, a2, a4, SP[a5, a6], n] - 
    S2[a6, n]*S2[a1, a3, a2, a5, a4, n] - 
    2*S2[a1, a3, a2, a5, SP[a4, a6], n] - S2[a1, a3, a2, SP[a4, a5], a6, n] - 
    S2[a1, a3, a2, SP[a4, a6], a5, n] - S2[a1, a3, a2, SP[a5, a6], a4, n] - 
    S2[a6, n]*S2[a1, a3, a4, a2, a5, n] - S2[a1, a3, a4, a2, SP[a5, a6], n] - 
    S2[a6, n]*S2[a1, a3, a4, a5, a2, n] + 
    S2[a2, n]*S2[a1, a3, a4, a5, a6, n] - S2[a1, a3, a4, a5, SP[a2, a6], n] + 
    S2[a2, n]*S2[a1, a3, a4, a6, a5, n] + S2[a1, a3, a4, a6, SP[a2, a5], n] - 
    S2[a1, a3, a4, SP[a5, a6], a2, n] - S2[a6, n]*S2[a1, a3, a5, a2, a4, n] - 
    2*S2[a1, a3, a5, a2, SP[a4, a6], n] - 
    S2[a6, n]*S2[a1, a3, a5, a4, a2, n] + 
    S2[a2, n]*S2[a1, a3, a5, a4, a6, n] - S2[a1, a3, a5, a4, SP[a2, a6], n] + 
    S2[a2, n]*S2[a1, a3, a5, a6, a4, n] + S2[a1, a3, a5, a6, SP[a2, a4], n] + 
    S2[a1, a3, a5, SP[a2, a4], a6, n] - S2[a1, a3, a5, SP[a2, a6], a4, n] - 
    2*S2[a1, a3, a5, SP[a4, a6], a2, n] + 
    S2[a2, n]*S2[a1, a3, a6, a4, a5, n] + S2[a1, a3, a6, a4, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a3, a6, a5, a4, n] + S2[a1, a3, a6, a5, SP[a2, a4], n] + 
    S2[a1, a3, a6, SP[a2, a4], a5, n] + S2[a1, a3, a6, SP[a2, a5], a4, n] + 
    S2[a1, a3, SP[a2, a4], a5, a6, n] + S2[a1, a3, SP[a2, a4], a6, a5, n] - 
    S2[a1, a3, SP[a4, a5], a2, a6, n] - S2[a1, a3, SP[a4, a5], a6, a2, n] - 
    S2[a1, a3, SP[a4, a6], a2, a5, n] - S2[a1, a3, SP[a4, a6], a5, a2, n] - 
    S2[a1, a3, SP[a5, a6], a2, a4, n] - S2[a1, a3, SP[a5, a6], a4, a2, n] - 
    S2[a6, n]*S2[a1, a4, a2, a3, a5, n] + 
    S2[a5, n]*S2[a1, a4, a2, a3, a6, n] - 
    S2[a6, n]*S2[a1, a4, a2, a5, a3, n] + 
    S2[a3, n]*S2[a1, a4, a2, a5, a6, n] - S2[a1, a4, a2, a5, SP[a3, a6], n] + 
    S2[a5, n]*S2[a1, a4, a2, a6, a3, n] + S2[a1, a4, a2, a6, SP[a3, a5], n] + 
    S2[a1, a4, a2, SP[a3, a5], a6, n] - S2[a1, a4, a2, SP[a3, a6], a5, n] - 
    S2[a6, n]*S2[a1, a4, a3, a2, a5, n] - S2[a1, a4, a3, a2, SP[a5, a6], n] - 
    S2[a6, n]*S2[a1, a4, a3, a5, a2, n] + 
    S2[a2, n]*S2[a1, a4, a3, a5, a6, n] - S2[a1, a4, a3, a5, SP[a2, a6], n] + 
    S2[a2, n]*S2[a1, a4, a3, a6, a5, n] + S2[a1, a4, a3, a6, SP[a2, a5], n] - 
    S2[a1, a4, a3, SP[a5, a6], a2, n] - S2[a6, n]*S2[a1, a4, a5, a2, a3, n] + 
    S2[a3, n]*S2[a1, a4, a5, a2, a6, n] - S2[a1, a4, a5, a2, SP[a3, a6], n] - 
    S2[a6, n]*S2[a1, a4, a5, a3, a2, n] - S2[a1, a4, a5, a3, SP[a2, a6], n] + 
    S2[a3, n]*S2[a1, a4, a5, a6, a2, n] + S2[a1, a4, a5, a6, SP[a2, a3], n] + 
    S2[a1, a4, a5, SP[a2, a3], a6, n] - 2*S2[a1, a4, a5, SP[a2, a6], a3, n] + 
    S2[a2, n]*S2[a1, a4, a6, a3, a5, n] + S2[a1, a4, a6, a3, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a4, a6, a5, a3, n] + S2[a1, a4, a6, a5, SP[a2, a3], n] + 
    S2[a1, a4, a6, SP[a2, a3], a5, n] + S2[a1, a4, a6, SP[a2, a5], a3, n] + 
    S2[a1, a4, SP[a2, a3], a5, a6, n] + S2[a1, a4, SP[a2, a3], a6, a5, n] + 
    S2[a1, a4, SP[a3, a5], a2, a6, n] + S2[a1, a4, SP[a3, a5], a6, a2, n] - 
    S2[a1, a4, SP[a3, a6], a2, a5, n] - S2[a1, a4, SP[a3, a6], a5, a2, n] - 
    S2[a1, a4, SP[a5, a6], a2, a3, n] - S2[a1, a4, SP[a5, a6], a3, a2, n] - 
    S2[a6, n]*S2[a1, a5, a2, a3, a4, n] - 
    2*S2[a1, a5, a2, a3, SP[a4, a6], n] - 
    S2[a6, n]*S2[a1, a5, a2, a4, a3, n] + 
    S2[a3, n]*S2[a1, a5, a2, a4, a6, n] - S2[a1, a5, a2, a4, SP[a3, a6], n] + 
    S2[a3, n]*S2[a1, a5, a2, a6, a4, n] + S2[a1, a5, a2, a6, SP[a3, a4], n] + 
    S2[a1, a5, a2, SP[a3, a4], a6, n] - S2[a1, a5, a2, SP[a3, a6], a4, n] - 
    2*S2[a1, a5, a2, SP[a4, a6], a3, n] - 
    S2[a6, n]*S2[a1, a5, a3, a2, a4, n] - S2[a1, a5, a3, a2, SP[a4, a6], n] - 
    S2[a6, n]*S2[a1, a5, a3, a4, a2, n] - S2[a1, a5, a3, a4, SP[a2, a6], n] - 
    S2[a1, a5, a3, SP[a2, a6], a4, n] - S2[a1, a5, a3, SP[a4, a6], a2, n] - 
    S2[a6, n]*S2[a1, a5, a4, a2, a3, n] + 
    S2[a3, n]*S2[a1, a5, a4, a2, a6, n] - S2[a1, a5, a4, a2, SP[a3, a6], n] - 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] - S2[a1, a5, a4, a3, SP[a2, a6], n] + 
    S2[a3, n]*S2[a1, a5, a4, a6, a2, n] + S2[a1, a5, a4, a6, SP[a2, a3], n] + 
    S2[a1, a5, a4, SP[a2, a3], a6, n] - 2*S2[a1, a5, a4, SP[a2, a6], a3, n] + 
    S2[a3, n]*S2[a1, a5, a6, a2, a4, n] + 
    2*S2[a1, a5, a6, a2, SP[a3, a4], n] + 
    S2[a3, n]*S2[a1, a5, a6, a4, a2, n] + S2[a1, a5, a6, a4, SP[a2, a3], n] + 
    S2[a1, a5, a6, SP[a2, a3], a4, n] + S2[a1, a5, a6, SP[a2, a4], a3, n] + 
    S2[a1, a5, a6, SP[a3, a4], a2, n] + S2[a1, a5, SP[a2, a3], a4, a6, n] + 
    S2[a1, a5, SP[a2, a3], a6, a4, n] - 2*S2[a1, a5, SP[a2, a6], a3, a4, n] - 
    2*S2[a1, a5, SP[a2, a6], a4, a3, n] + S2[a1, a5, SP[a3, a4], a2, a6, n] + 
    S2[a1, a5, SP[a3, a4], a6, a2, n] - S2[a1, a5, SP[a4, a6], a2, a3, n] - 
    S2[a1, a5, SP[a4, a6], a3, a2, n] + S2[a2, n]*S2[a1, a6, a3, a4, a5, n] + 
    S2[a1, a6, a3, a4, SP[a2, a5], n] + S2[a2, n]*S2[a1, a6, a3, a5, a4, n] + 
    S2[a1, a6, a3, a5, SP[a2, a4], n] + S2[a1, a6, a3, SP[a2, a4], a5, n] + 
    S2[a1, a6, a3, SP[a2, a5], a4, n] + S2[a2, n]*S2[a1, a6, a4, a3, a5, n] + 
    S2[a1, a6, a4, a3, SP[a2, a5], n] + S2[a2, n]*S2[a1, a6, a4, a5, a3, n] + 
    S2[a1, a6, a4, a5, SP[a2, a3], n] + S2[a1, a6, a4, SP[a2, a3], a5, n] + 
    S2[a1, a6, a4, SP[a2, a5], a3, n] + S2[a2, n]*S2[a1, a6, a5, a3, a4, n] + 
    S2[a1, a6, a5, a3, SP[a2, a4], n] + S2[a2, n]*S2[a1, a6, a5, a4, a3, n] + 
    S2[a1, a6, a5, a4, SP[a2, a3], n] + S2[a1, a6, a5, SP[a2, a3], a4, n] + 
    S2[a1, a6, a5, SP[a2, a4], a3, n] + S2[a1, a6, SP[a2, a3], a4, a5, n] + 
    S2[a1, a6, SP[a2, a3], a5, a4, n] + S2[a1, a6, SP[a2, a4], a3, a5, n] + 
    S2[a1, a6, SP[a2, a4], a5, a3, n] + S2[a1, a6, SP[a2, a5], a3, a4, n] + 
    S2[a1, a6, SP[a2, a5], a4, a3, n] + S2[a1, SP[a2, a3], a4, a5, a6, n] + 
    S2[a1, SP[a2, a3], a4, a6, a5, n] + S2[a1, SP[a2, a3], a5, a4, a6, n] + 
    S2[a1, SP[a2, a3], a5, a6, a4, n] + S2[a1, SP[a2, a3], a6, a4, a5, n] + 
    S2[a1, SP[a2, a3], a6, a5, a4, n] + S2[a1, SP[a2, a4], a3, a5, a6, n] + 
    S2[a1, SP[a3, a5], a2, a4, a6, n] + S2[a1, SP[a3, a5], a2, a6, a4, n] + 
    S2[a1, SP[a3, a5], a4, a2, a6, n] + S2[a1, SP[a3, a5], a4, a6, a2, n] + 
    S2[a1, SP[a3, a5], a6, a2, a4, n] + S2[a1, SP[a3, a5], a6, a4, a2, n] - 
    S2[a1, SP[a3, a6], a2, a4, a5, n] - S2[a1, SP[a3, a6], a2, a5, a4, n] - 
    S2[a1, SP[a3, a6], a4, a2, a5, n] - S2[a1, SP[a3, a6], a4, a5, a2, n] - 
    S2[a1, SP[a3, a6], a5, a2, a4, n] - S2[a1, SP[a3, a6], a5, a4, a2, n] - 
    S2[a1, SP[a4, a6], a2, a3, a5, n] - S2[a1, SP[a4, a6], a2, a5, a3, n] - 
    S2[a1, SP[a4, a6], a3, a2, a5, n] - S2[a1, SP[a4, a6], a3, a5, a2, n] - 
    S2[a1, SP[a4, a6], a5, a2, a3, n] - S2[a1, SP[a4, a6], a5, a3, a2, n] - 
    S2[a1, SP[a5, a6], a2, a3, a4, n] - S2[a1, SP[a5, a6], a2, a4, a3, n] - 
    S2[a1, SP[a5, a6], a3, a2, a4, n] - S2[a1, SP[a5, a6], a3, a4, a2, n] - 
    S2[a1, SP[a5, a6], a4, a2, a3, n] - S2[a1, SP[a5, a6], a4, a3, a2, n] - 
    S2[a2, a1, a3, a5, SP[a4, a6], n] - S2[a2, a1, a3, a6, SP[a4, a5], n] - 
    S2[a2, a1, a3, SP[a4, a5], a6, n] - S2[a2, a1, a3, SP[a4, a6], a5, n] - 
    S2[a2, a1, a6, a3, SP[a4, a5], n] - S2[a2, a1, a6, a5, SP[a3, a4], n] - 
    S2[a2, a1, a6, SP[a3, a4], a5, n] - S2[a2, a1, a6, SP[a4, a5], a3, n] - 
    S2[a2, a1, SP[a3, a4], a5, a6, n] - S2[a2, a1, SP[a3, a4], a6, a5, n] - 
    S2[a2, a1, SP[a4, a6], a3, a5, n] - S2[a2, a1, SP[a4, a6], a5, a3, n] + 
    S2[a6, n]*S2[a2, a3, a1, a4, a5, n] + S2[a2, a3, a1, a4, SP[a5, a6], n] + 
    S2[a6, n]*S2[a2, a3, a1, a5, a4, n] - S2[a2, a3, a1, a6, SP[a4, a5], n] - 
    S2[a2, a3, a1, SP[a4, a5], a6, n] + S2[a2, a3, a1, SP[a5, a6], a4, n] + 
    S2[a6, n]*S2[a2, a3, a5, a1, a4, n] - S2[a2, a3, a6, a1, SP[a4, a5], n] - 
    S2[a2, a3, a6, SP[a1, a5], a4, n] - S2[a2, a3, SP[a1, a5], a4, a6, n] - 
    S2[a2, a3, SP[a1, a5], a6, a4, n] + S2[a2, a3, SP[a5, a6], a1, a4, n] + 
    S2[a5, n]*S2[a2, a6, a1, a3, a4, n] + 
    S2[a5, n]*S2[a2, a6, a1, a4, a3, n] + S2[a2, a6, a1, a4, SP[a3, a5], n] - 
    S2[a2, a6, a1, a5, SP[a3, a4], n] - S2[a2, a6, a1, SP[a3, a4], a5, n] + 
    S2[a2, a6, a1, SP[a3, a5], a4, n] - S2[a2, a6, a3, a1, SP[a4, a5], n] - 
    S2[a2, a6, a3, SP[a1, a5], a4, n] - S2[a2, a6, a5, a1, SP[a3, a4], n] - 
    S2[a2, a6, a5, SP[a1, a3], a4, n] - S2[a2, a6, SP[a1, a3], a4, a5, n] - 
    S2[a2, a6, SP[a1, a3], a5, a4, n] - S2[a2, SP[a1, a3], a4, a5, a6, n] - 
    S2[a2, SP[a1, a3], a4, a6, a5, n] - S2[a2, SP[a1, a3], a5, a4, a6, n] - 
    S2[a2, SP[a1, a3], a5, a6, a4, n] - S2[a2, SP[a1, a3], a6, a4, a5, n] - 
    S2[a2, SP[a1, a3], a6, a5, a4, n] - S2[a2, SP[a1, a6], a3, a4, a5, n] - 
    S2[a2, SP[a1, a6], a3, a5, a4, n] - S2[a2, SP[a1, a6], a4, a3, a5, n] - 
    S2[a2, SP[a1, a6], a4, a5, a3, n] - S2[a2, SP[a1, a6], a5, a3, a4, n] - 
    S2[a2, SP[a1, a6], a5, a4, a3, n] + S2[a2, SP[a3, a6], a1, a4, a5, n] + 
    S2[a2, SP[a3, a6], a1, a5, a4, n] + S2[a2, SP[a3, a6], a5, a1, a4, n] + 
    S2[a2, SP[a5, a6], a1, a3, a4, n] + S2[a2, SP[a5, a6], a1, a4, a3, n] - 
    S2[a3, a1, a2, a5, SP[a4, a6], n] - S2[a3, a1, a2, SP[a4, a5], a6, n] - 
    S2[a3, a1, a4, a5, SP[a2, a6], n] - S2[a3, a1, a4, SP[a2, a5], a6, n] - 
    S2[a3, a1, a5, a2, SP[a4, a6], n] - S2[a3, a1, a5, a4, SP[a2, a6], n] - 
    S2[a3, a1, a5, SP[a2, a6], a4, n] - S2[a3, a1, a5, SP[a4, a6], a2, n] - 
    S2[a3, a1, SP[a2, a5], a4, a6, n] - S2[a3, a1, SP[a2, a5], a6, a4, n] - 
    S2[a3, a1, SP[a4, a5], a2, a6, n] - S2[a3, a1, SP[a4, a5], a6, a2, n] + 
    S2[a6, n]*S2[a3, a5, a1, a2, a4, n] + 
    S2[a6, n]*S2[a3, a5, a1, a4, a2, n] - S2[a3, SP[a1, a5], a2, a4, a6, n] - 
    S2[a3, SP[a1, a5], a2, a6, a4, n] - S2[a3, SP[a1, a5], a4, a2, a6, n] - 
    S2[a3, SP[a1, a5], a4, a6, a2, n] - S2[a3, SP[a1, a5], a6, a2, a4, n] - 
    S2[a3, SP[a1, a5], a6, a4, a2, n] + S2[a3, SP[a5, a6], a1, a2, a4, n] + 
    S2[a3, SP[a5, a6], a1, a4, a2, n] - S2[a5, a1, a2, a3, SP[a4, a6], n] - 
    S2[a5, a1, a2, a4, SP[a3, a6], n] - S2[a5, a1, a2, SP[a3, a6], a4, n] - 
    S2[a5, a1, a2, SP[a4, a6], a3, n] - S2[a5, a1, a4, a2, SP[a3, a6], n] - 
    S2[a5, a1, a4, SP[a2, a6], a3, n] + S2[a5, a1, a6, a2, SP[a3, a4], n] + 
    S2[a5, a1, a6, SP[a2, a4], a3, n] - S2[a5, a1, SP[a2, a6], a3, a4, n] - 
    S2[a5, a1, SP[a2, a6], a4, a3, n] + S2[a5, a6, a1, a2, SP[a3, a4], n] - 
    S2[a2, n]*S2[a5, a6, a1, a3, a4, n] - S2[a5, a6, a1, a3, SP[a2, a4], n] - 
    S2[a2, n]*S2[a5, a6, a1, a4, a3, n] - S2[a5, a6, a1, a4, SP[a2, a3], n] - 
    S2[a5, a6, a1, SP[a2, a3], a4, n] + S2[a5, a6, a2, a1, SP[a3, a4], n] + 
    S2[a5, a6, a2, SP[a1, a3], a4, n] - S2[a5, SP[a2, a6], a1, a3, a4, n] - 
    S2[a5, SP[a2, a6], a1, a4, a3, n] + S2[a5, n]*S2[a6, a1, a2, a3, a4, n] + 
    S2[a6, a1, a2, a3, SP[a4, a5], n] + S2[a5, n]*S2[a6, a1, a2, a4, a3, n] + 
    S2[a6, a1, a2, a4, SP[a3, a5], n] + S2[a6, a1, a2, SP[a3, a5], a4, n] + 
    S2[a6, a1, a2, SP[a4, a5], a3, n] + S2[a5, n]*S2[a6, a1, a3, a2, a4, n] + 
    S2[a6, a1, a3, a2, SP[a4, a5], n] + S2[a5, n]*S2[a6, a1, a3, a4, a2, n] + 
    S2[a6, a1, a3, a4, SP[a2, a5], n] + S2[a6, a1, a3, SP[a2, a5], a4, n] + 
    S2[a6, a1, a3, SP[a4, a5], a2, n] + S2[a5, n]*S2[a6, a1, a4, a2, a3, n] + 
    S2[a6, a1, a4, a2, SP[a3, a5], n] + S2[a5, n]*S2[a6, a1, a4, a3, a2, n] + 
    S2[a6, a1, a4, a3, SP[a2, a5], n] + S2[a6, a1, a4, SP[a2, a5], a3, n] + 
    S2[a6, a1, a4, SP[a3, a5], a2, n] + S2[a6, a1, SP[a2, a5], a3, a4, n] + 
    S2[a6, a1, SP[a2, a5], a4, a3, n] + S2[a6, a1, SP[a3, a5], a2, a4, n] + 
    S2[a6, a1, SP[a3, a5], a4, a2, n] + S2[a6, a1, SP[a4, a5], a2, a3, n] + 
    S2[a6, a1, SP[a4, a5], a3, a2, n] - S2[a5, n]*S2[a6, a2, a3, a1, a4, n] - 
    S2[a6, a2, a3, a1, SP[a4, a5], n] - S2[a6, a2, a3, SP[a1, a5], a4, n] - 
    S2[a6, a2, SP[a3, a5], a1, a4, n] - S2[a3, n]*S2[a6, a5, a1, a2, a4, n] - 
    S2[a6, a5, a1, a2, SP[a3, a4], n] - S2[a3, n]*S2[a6, a5, a1, a4, a2, n] - 
    S2[a6, a5, a1, a4, SP[a2, a3], n] - S2[a6, a5, a1, SP[a2, a3], a4, n] - 
    S2[a6, a5, a1, SP[a3, a4], a2, n] + S2[a2, n]*S2[a6, a5, a3, a1, a4, n] + 
    S2[a6, a5, a3, a1, SP[a2, a4], n] + S2[a6, a5, a3, SP[a1, a2], a4, n] - 
    S2[a6, a5, SP[a1, a3], a2, a4, n] - S2[a6, a5, SP[a1, a3], a4, a2, n] + 
    S2[a6, a5, SP[a2, a3], a1, a4, n] + S2[a6, SP[a1, a5], a2, a3, a4, n] + 
    S2[a6, SP[a1, a5], a2, a4, a3, n] + S2[a6, SP[a1, a5], a3, a2, a4, n] + 
    S2[a6, SP[a1, a5], a3, a4, a2, n] + S2[a6, SP[a1, a5], a4, a2, a3, n] + 
    S2[a6, SP[a1, a5], a4, a3, a2, n] - S2[a6, SP[a3, a5], a1, a2, a4, n] - 
    S2[a6, SP[a3, a5], a1, a4, a2, n] + S2[SP[a1, a4], a2, a3, a5, a6, n] - 
    S2[SP[a1, a6], a2, a3, a4, a5, n] - S2[SP[a1, a6], a2, a3, a5, a4, n] - 
    S2[SP[a1, a6], a2, a4, a3, a5, n] - S2[SP[a1, a6], a2, a4, a5, a3, n] - 
    S2[SP[a1, a6], a2, a5, a3, a4, n] - S2[SP[a1, a6], a2, a5, a4, a3, n] - 
    S2[SP[a1, a6], a3, a2, a4, a5, n] - S2[SP[a1, a6], a3, a2, a5, a4, n] - 
    S2[SP[a1, a6], a3, a4, a2, a5, n] - S2[SP[a1, a6], a3, a4, a5, a2, n] - 
    S2[SP[a1, a6], a3, a5, a2, a4, n] - S2[SP[a1, a6], a3, a5, a4, a2, n] - 
    S2[SP[a1, a6], a4, a2, a3, a5, n] - S2[SP[a1, a6], a4, a2, a5, a3, n] - 
    S2[SP[a1, a6], a4, a3, a2, a5, n] - S2[SP[a1, a6], a4, a3, a5, a2, n] - 
    S2[SP[a1, a6], a4, a5, a2, a3, n] - S2[SP[a1, a6], a4, a5, a3, a2, n] - 
    S2[SP[a1, a6], a5, a2, a3, a4, n] - S2[SP[a1, a6], a5, a2, a4, a3, n] - 
    S2[SP[a1, a6], a5, a3, a2, a4, n] - S2[SP[a1, a6], a5, a3, a4, a2, n] - 
    S2[SP[a1, a6], a5, a4, a2, a3, n] - S2[SP[a1, a6], a5, a4, a3, a2, n] + 
    S2[SP[a2, a6], a3, a1, a4, a5, n] + S2[SP[a2, a6], a3, a1, a5, a4, n] + 
    S2[SP[a2, a6], a3, a5, a1, a4, n] + S2[SP[a2, a6], a5, a3, a1, a4, n] + 
    S2[SP[a5, a6], a1, a2, a3, a4, n] + S2[SP[a5, a6], a1, a2, a4, a3, n] + 
    S2[SP[a5, a6], a1, a3, a2, a4, n] + S2[SP[a5, a6], a1, a3, a4, a2, n] + 
    S2[SP[a5, a6], a1, a4, a2, a3, n] + S2[SP[a5, a6], a1, a4, a3, a2, n] - 
    S2[SP[a5, a6], a2, a3, a1, a4, n] - S2[a6, a5, a3, a2, a1, a4, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a4_, a1_, a2_, a3_, a6_, a5_, n_] :> 
  -(S2[a1, a2, a4, n]*S2[a3, a6, a5, n]) - S2[a1, a4, a2, n]*
     S2[a3, a6, a5, n] - S2[SP[a1, a3], SP[a2, a6], SP[a4, a5], n] - 
    S2[SP[a1, a3], SP[a4, a6], SP[a2, a5], n] + 
    S2[a5, a6, n]*S2[a1, a2, a3, a4, n] + S2[a5, a6, n]*
     S2[a1, a2, a4, a3, n] - S2[a1, a2, SP[a3, a5], SP[a4, a6], n] - 
    S2[a1, a2, SP[a4, a5], SP[a3, a6], n] + S2[a1, a3, SP[a2, a6], 
     SP[a4, a5], n] + S2[a1, a3, SP[a4, a6], SP[a2, a5], n] + 
    S2[a5, a6, n]*S2[a1, a4, a2, a3, n] - S2[a1, a4, SP[a2, a5], SP[a3, a6], 
     n] + S2[a1, SP[a2, a3], a6, SP[a4, a5], n] + 
    S2[a1, SP[a2, a3], SP[a4, a6], a5, n] - S2[a1, SP[a2, a5], a3, 
     SP[a4, a6], n] - S2[a1, SP[a2, a5], a4, SP[a3, a6], n] - 
    S2[a1, SP[a2, a5], SP[a3, a6], a4, n] - S2[a1, SP[a2, a5], SP[a4, a6], 
     a3, n] + S2[a1, SP[a3, a4], a6, SP[a2, a5], n] + 
    S2[a1, SP[a3, a4], SP[a2, a6], a5, n] - S2[a1, SP[a4, a5], a2, 
     SP[a3, a6], n] - S2[a1, SP[a4, a5], SP[a2, a6], a3, n] + 
    S2[a1, a4, n]*S2[a2, a6, a3, a5, n] + S2[a1, a4, n]*
     S2[a2, a6, a5, a3, n] - S2[a2, a6, SP[a1, a3], SP[a4, a5], n] - 
    S2[a2, a6, SP[a1, a5], SP[a3, a4], n] - S2[a2, SP[a1, a6], a3, 
     SP[a4, a5], n] - S2[a2, SP[a1, a6], a5, SP[a3, a4], n] - 
    S2[a2, SP[a1, a6], SP[a3, a4], a5, n] - S2[a2, SP[a1, a6], SP[a4, a5], 
     a3, n] + S2[a3, a1, SP[a2, a6], SP[a4, a5], n] + 
    S2[a3, a1, SP[a4, a6], SP[a2, a5], n] + S2[a3, SP[a1, a6], a2, 
     SP[a4, a5], n] + S2[a3, SP[a1, a6], a4, SP[a2, a5], n] + 
    S2[a3, SP[a1, a6], SP[a2, a5], a4, n] + S2[a3, SP[a1, a6], SP[a4, a5], 
     a2, n] - S2[a1, a4, n]*S2[a5, a6, a2, a3, n] + 
    S2[a5, a6, SP[a1, a2], SP[a3, a4], n] + S2[a5, SP[a1, a6], a2, 
     SP[a3, a4], n] + S2[a5, SP[a1, a6], SP[a2, a4], a3, n] - 
    S2[SP[a1, a2], a6, a3, SP[a4, a5], n] - S2[SP[a1, a2], a6, a5, 
     SP[a3, a4], n] - S2[SP[a1, a2], a6, SP[a3, a4], a5, n] - 
    S2[SP[a1, a2], a6, SP[a4, a5], a3, n] - S2[SP[a1, a2], SP[a4, a6], a3, 
     a5, n] - S2[SP[a1, a2], SP[a4, a6], a5, a3, n] + 
    S2[SP[a1, a3], a2, a6, SP[a4, a5], n] + S2[SP[a1, a3], a2, SP[a4, a6], 
     a5, n] + S2[SP[a1, a3], a4, a6, SP[a2, a5], n] + 
    S2[SP[a1, a3], a4, SP[a2, a6], a5, n] + S2[SP[a1, a3], a6, a2, 
     SP[a4, a5], n] + S2[SP[a1, a3], a6, a4, SP[a2, a5], n] + 
    S2[SP[a1, a3], a6, SP[a2, a5], a4, n] + S2[SP[a1, a3], a6, SP[a4, a5], 
     a2, n] + S2[SP[a1, a3], SP[a2, a6], a4, a5, n] + 
    S2[SP[a1, a3], SP[a2, a6], a5, a4, n] + S2[SP[a1, a3], SP[a4, a6], a2, 
     a5, n] + S2[SP[a1, a3], SP[a4, a6], a5, a2, n] - 
    S2[SP[a1, a5], a2, a3, SP[a4, a6], n] - S2[SP[a1, a5], a2, a4, 
     SP[a3, a6], n] - S2[SP[a1, a5], a2, SP[a3, a6], a4, n] - 
    S2[SP[a1, a5], a2, SP[a4, a6], a3, n] - S2[SP[a1, a5], a4, a2, 
     SP[a3, a6], n] - S2[SP[a1, a5], a4, SP[a2, a6], a3, n] + 
    S2[SP[a1, a5], a6, a2, SP[a3, a4], n] + S2[SP[a1, a5], a6, SP[a2, a4], 
     a3, n] - S2[SP[a1, a5], SP[a2, a6], a3, a4, n] - 
    S2[SP[a1, a5], SP[a2, a6], a4, a3, n] - 
    S2[a5, n]*S2[a1, a2, a3, a4, a6, n] - S2[a1, a2, a3, a4, SP[a5, a6], n] + 
    S2[a1, a2, a3, a5, SP[a4, a6], n] - S2[a5, n]*S2[a1, a2, a3, a6, a4, n] + 
    S2[a4, n]*S2[a1, a2, a3, a6, a5, n] - S2[a1, a2, a3, a6, SP[a4, a5], n] - 
    S2[a1, a2, a3, SP[a5, a6], a4, n] - S2[a5, n]*S2[a1, a2, a4, a3, a6, n] - 
    S2[a1, a2, a4, a3, SP[a5, a6], n] + S2[a1, a2, a4, a5, SP[a3, a6], n] - 
    S2[a5, n]*S2[a1, a2, a4, a6, a3, n] + 
    S2[a3, n]*S2[a1, a2, a4, a6, a5, n] + S2[a1, a2, a4, SP[a3, a6], a5, n] - 
    S2[a1, a2, a4, SP[a5, a6], a3, n] + S2[a1, a2, a5, a3, SP[a4, a6], n] + 
    S2[a1, a2, a5, a4, SP[a3, a6], n] + S2[a1, a2, a5, SP[a3, a6], a4, n] + 
    S2[a1, a2, a5, SP[a4, a6], a3, n] - S2[a5, n]*S2[a1, a2, a6, a3, a4, n] - 
    S2[a5, n]*S2[a1, a2, a6, a4, a3, n] + 
    S2[a3, n]*S2[a1, a2, a6, a4, a5, n] + 
    S2[a3, n]*S2[a1, a2, a6, a5, a4, n] + 
    2*S2[a1, a2, a6, a5, SP[a3, a4], n] + 
    2*S2[a1, a2, a6, SP[a3, a4], a5, n] + S2[a1, a2, SP[a3, a4], a6, a5, n] + 
    S2[a1, a2, SP[a3, a6], a4, a5, n] + S2[a1, a2, SP[a3, a6], a5, a4, n] + 
    S2[a1, a2, SP[a4, a6], a3, a5, n] + S2[a1, a2, SP[a4, a6], a5, a3, n] - 
    S2[a1, a2, SP[a5, a6], a3, a4, n] - S2[a1, a2, SP[a5, a6], a4, a3, n] - 
    S2[a1, a3, a2, a6, SP[a4, a5], n] - S2[a1, a3, a2, SP[a4, a6], a5, n] - 
    S2[a1, a3, a4, a6, SP[a2, a5], n] - S2[a1, a3, a4, SP[a2, a6], a5, n] - 
    S2[a1, a3, a6, a2, SP[a4, a5], n] - S2[a1, a3, a6, a4, SP[a2, a5], n] - 
    S2[a1, a3, a6, SP[a2, a5], a4, n] - S2[a1, a3, a6, SP[a4, a5], a2, n] - 
    S2[a1, a3, SP[a2, a6], a4, a5, n] - S2[a1, a3, SP[a2, a6], a5, a4, n] - 
    S2[a1, a3, SP[a4, a6], a2, a5, n] - S2[a1, a3, SP[a4, a6], a5, a2, n] - 
    S2[a5, n]*S2[a1, a4, a2, a3, a6, n] - S2[a1, a4, a2, a3, SP[a5, a6], n] + 
    S2[a1, a4, a2, a5, SP[a3, a6], n] - S2[a5, n]*S2[a1, a4, a2, a6, a3, n] + 
    S2[a3, n]*S2[a1, a4, a2, a6, a5, n] + S2[a1, a4, a2, SP[a3, a6], a5, n] - 
    S2[a1, a4, a2, SP[a5, a6], a3, n] - S2[a1, a4, a3, a6, SP[a2, a5], n] - 
    S2[a1, a4, a3, SP[a2, a6], a5, n] + S2[a1, a4, a5, a2, SP[a3, a6], n] + 
    S2[a1, a4, a5, SP[a2, a6], a3, n] + S2[a3, n]*S2[a1, a4, a6, a2, a5, n] + 
    S2[a1, a4, a6, a2, SP[a3, a5], n] - S2[a2, n]*S2[a1, a4, a6, a3, a5, n] - 
    S2[a1, a4, a6, a3, SP[a2, a5], n] + S2[a3, n]*S2[a1, a4, a6, a5, a2, n] - 
    S2[a2, n]*S2[a1, a4, a6, a5, a3, n] - S2[a1, a4, a6, SP[a2, a5], a3, n] + 
    S2[a1, a4, a6, SP[a3, a5], a2, n] - S2[a1, a4, SP[a2, a6], a3, a5, n] - 
    S2[a1, a4, SP[a2, a6], a5, a3, n] + S2[a1, a4, SP[a3, a6], a2, a5, n] + 
    S2[a1, a4, SP[a3, a6], a5, a2, n] + S2[a1, a5, a2, a3, SP[a4, a6], n] + 
    S2[a1, a5, a2, a4, SP[a3, a6], n] + S2[a1, a5, a2, SP[a3, a6], a4, n] + 
    S2[a1, a5, a2, SP[a4, a6], a3, n] + S2[a1, a5, a4, a2, SP[a3, a6], n] + 
    S2[a1, a5, a4, SP[a2, a6], a3, n] - S2[a1, a5, a6, a2, SP[a3, a4], n] - 
    S2[a1, a5, a6, SP[a2, a4], a3, n] + S2[a1, a5, SP[a2, a6], a3, a4, n] + 
    S2[a1, a5, SP[a2, a6], a4, a3, n] + S2[a3, n]*S2[a1, a6, a2, a4, a5, n] + 
    S2[a1, a6, a2, a4, SP[a3, a5], n] + S2[a3, n]*S2[a1, a6, a2, a5, a4, n] + 
    S2[a1, a6, a2, a5, SP[a3, a4], n] + S2[a1, a6, a2, SP[a3, a4], a5, n] + 
    S2[a1, a6, a2, SP[a3, a5], a4, n] - S2[a2, n]*S2[a1, a6, a3, a4, a5, n] - 
    S2[a1, a6, a3, a4, SP[a2, a5], n] - S2[a2, n]*S2[a1, a6, a3, a5, a4, n] - 
    S2[a1, a6, a3, a5, SP[a2, a4], n] - S2[a1, a6, a3, SP[a2, a4], a5, n] - 
    S2[a1, a6, a3, SP[a2, a5], a4, n] + S2[a3, n]*S2[a1, a6, a4, a2, a5, n] + 
    S2[a1, a6, a4, a2, SP[a3, a5], n] - S2[a2, n]*S2[a1, a6, a4, a3, a5, n] - 
    S2[a1, a6, a4, a3, SP[a2, a5], n] + S2[a3, n]*S2[a1, a6, a4, a5, a2, n] - 
    S2[a2, n]*S2[a1, a6, a4, a5, a3, n] - S2[a1, a6, a4, SP[a2, a5], a3, n] + 
    S2[a1, a6, a4, SP[a3, a5], a2, n] + S2[a3, n]*S2[a1, a6, a5, a2, a4, n] + 
    S2[a1, a6, a5, a2, SP[a3, a4], n] - S2[a2, n]*S2[a1, a6, a5, a3, a4, n] - 
    S2[a1, a6, a5, a3, SP[a2, a4], n] + S2[a3, n]*S2[a1, a6, a5, a4, a2, n] - 
    S2[a2, n]*S2[a1, a6, a5, a4, a3, n] - S2[a1, a6, a5, SP[a2, a4], a3, n] + 
    S2[a1, a6, a5, SP[a3, a4], a2, n] - S2[a1, a6, SP[a2, a4], a3, a5, n] - 
    S2[a1, a6, SP[a2, a4], a5, a3, n] - S2[a1, a6, SP[a2, a5], a3, a4, n] - 
    S2[a1, a6, SP[a2, a5], a4, a3, n] + S2[a1, a6, SP[a3, a4], a2, a5, n] + 
    S2[a1, a6, SP[a3, a4], a5, a2, n] + S2[a1, a6, SP[a3, a5], a2, a4, n] + 
    S2[a1, a6, SP[a3, a5], a4, a2, n] + S2[a1, SP[a2, a4], a3, a6, a5, n] - 
    S2[a1, SP[a2, a6], a3, a4, a5, n] - S2[a1, SP[a2, a6], a3, a5, a4, n] - 
    S2[a1, SP[a2, a6], a4, a3, a5, n] - S2[a1, SP[a2, a6], a4, a5, a3, n] - 
    S2[a1, SP[a2, a6], a5, a3, a4, n] - S2[a1, SP[a2, a6], a5, a4, a3, n] + 
    S2[a1, SP[a3, a6], a2, a4, a5, n] + S2[a1, SP[a3, a6], a2, a5, a4, n] + 
    S2[a1, SP[a3, a6], a4, a2, a5, n] + S2[a1, SP[a3, a6], a4, a5, a2, n] + 
    S2[a1, SP[a3, a6], a5, a2, a4, n] + S2[a1, SP[a3, a6], a5, a4, a2, n] + 
    S2[a2, a1, a6, a3, SP[a4, a5], n] + S2[a2, a1, a6, a5, SP[a3, a4], n] + 
    S2[a2, a1, a6, SP[a3, a4], a5, n] + S2[a2, a1, a6, SP[a4, a5], a3, n] + 
    S2[a2, a1, SP[a4, a6], a3, a5, n] + S2[a2, a1, SP[a4, a6], a5, a3, n] - 
    S2[a5, n]*S2[a2, a6, a1, a3, a4, n] - 
    S2[a5, n]*S2[a2, a6, a1, a4, a3, n] - S2[a2, a6, a1, a4, SP[a3, a5], n] + 
    S2[a2, a6, a1, a5, SP[a3, a4], n] + S2[a2, a6, a1, SP[a3, a4], a5, n] - 
    S2[a2, a6, a1, SP[a3, a5], a4, n] + S2[a2, a6, a3, a1, SP[a4, a5], n] + 
    S2[a2, a6, a3, SP[a1, a5], a4, n] + S2[a2, a6, a5, a1, SP[a3, a4], n] + 
    S2[a2, a6, a5, SP[a1, a3], a4, n] + S2[a2, a6, SP[a1, a3], a4, a5, n] + 
    S2[a2, a6, SP[a1, a3], a5, a4, n] + S2[a2, SP[a1, a6], a3, a4, a5, n] + 
    S2[a2, SP[a1, a6], a3, a5, a4, n] + S2[a2, SP[a1, a6], a4, a3, a5, n] + 
    S2[a2, SP[a1, a6], a4, a5, a3, n] + S2[a2, SP[a1, a6], a5, a3, a4, n] + 
    S2[a2, SP[a1, a6], a5, a4, a3, n] - S2[a2, SP[a5, a6], a1, a3, a4, n] - 
    S2[a2, SP[a5, a6], a1, a4, a3, n] - S2[a3, a1, a2, a6, SP[a4, a5], n] - 
    S2[a3, a1, a2, SP[a4, a6], a5, n] - S2[a3, a1, a4, a6, SP[a2, a5], n] - 
    S2[a3, a1, a4, SP[a2, a6], a5, n] - S2[a3, a1, a6, a2, SP[a4, a5], n] - 
    S2[a3, a1, a6, a4, SP[a2, a5], n] - S2[a3, a1, a6, SP[a2, a5], a4, n] - 
    S2[a3, a1, a6, SP[a4, a5], a2, n] - S2[a3, a1, SP[a2, a6], a4, a5, n] - 
    S2[a3, a1, SP[a2, a6], a5, a4, n] - S2[a3, a1, SP[a4, a6], a2, a5, n] - 
    S2[a3, a1, SP[a4, a6], a5, a2, n] - S2[a3, a6, a1, a2, SP[a4, a5], n] - 
    S2[a3, a6, a1, a4, SP[a2, a5], n] - S2[a3, a6, a1, SP[a2, a5], a4, n] - 
    S2[a3, a6, a1, SP[a4, a5], a2, n] - S2[a3, a6, SP[a1, a5], a2, a4, n] - 
    S2[a3, a6, SP[a1, a5], a4, a2, n] - S2[a3, SP[a1, a6], a2, a4, a5, n] - 
    S2[a3, SP[a1, a6], a2, a5, a4, n] - S2[a3, SP[a1, a6], a4, a2, a5, n] - 
    S2[a3, SP[a1, a6], a4, a5, a2, n] - S2[a3, SP[a1, a6], a5, a2, a4, n] - 
    S2[a3, SP[a1, a6], a5, a4, a2, n] + S2[a5, a1, a2, a3, SP[a4, a6], n] + 
    S2[a5, a1, a2, a4, SP[a3, a6], n] + S2[a5, a1, a2, SP[a3, a6], a4, n] + 
    S2[a5, a1, a2, SP[a4, a6], a3, n] + S2[a5, a1, a4, a2, SP[a3, a6], n] + 
    S2[a5, a1, a4, SP[a2, a6], a3, n] - S2[a5, a1, a6, a2, SP[a3, a4], n] - 
    S2[a5, a1, a6, SP[a2, a4], a3, n] + S2[a5, a1, SP[a2, a6], a3, a4, n] + 
    S2[a5, a1, SP[a2, a6], a4, a3, n] - S2[a5, a6, a1, a2, SP[a3, a4], n] + 
    S2[a2, n]*S2[a5, a6, a1, a3, a4, n] + S2[a5, a6, a1, a3, SP[a2, a4], n] + 
    S2[a2, n]*S2[a5, a6, a1, a4, a3, n] + S2[a5, a6, a1, a4, SP[a2, a3], n] + 
    S2[a5, a6, a1, SP[a2, a3], a4, n] - S2[a5, a6, a2, a1, SP[a3, a4], n] - 
    S2[a5, a6, a2, SP[a1, a3], a4, n] + S2[a5, SP[a2, a6], a1, a3, a4, n] + 
    S2[a5, SP[a2, a6], a1, a4, a3, n] - S2[a5, n]*S2[a6, a1, a2, a3, a4, n] - 
    S2[a6, a1, a2, a3, SP[a4, a5], n] - S2[a5, n]*S2[a6, a1, a2, a4, a3, n] + 
    S2[a3, n]*S2[a6, a1, a2, a4, a5, n] + 
    S2[a3, n]*S2[a6, a1, a2, a5, a4, n] + S2[a6, a1, a2, a5, SP[a3, a4], n] + 
    S2[a6, a1, a2, SP[a3, a4], a5, n] - S2[a6, a1, a2, SP[a4, a5], a3, n] - 
    S2[a5, n]*S2[a6, a1, a3, a2, a4, n] - S2[a6, a1, a3, a2, SP[a4, a5], n] - 
    S2[a5, n]*S2[a6, a1, a3, a4, a2, n] - S2[a6, a1, a3, a4, SP[a2, a5], n] - 
    S2[a6, a1, a3, SP[a2, a5], a4, n] - S2[a6, a1, a3, SP[a4, a5], a2, n] - 
    S2[a5, n]*S2[a6, a1, a4, a2, a3, n] + 
    S2[a3, n]*S2[a6, a1, a4, a2, a5, n] - 
    S2[a5, n]*S2[a6, a1, a4, a3, a2, n] - S2[a6, a1, a4, a3, SP[a2, a5], n] + 
    S2[a3, n]*S2[a6, a1, a4, a5, a2, n] + S2[a6, a1, a4, a5, SP[a2, a3], n] + 
    S2[a6, a1, a4, SP[a2, a3], a5, n] - S2[a6, a1, a4, SP[a2, a5], a3, n] + 
    S2[a3, n]*S2[a6, a1, a5, a2, a4, n] + S2[a6, a1, a5, a2, SP[a3, a4], n] + 
    S2[a3, n]*S2[a6, a1, a5, a4, a2, n] + S2[a6, a1, a5, a4, SP[a2, a3], n] + 
    S2[a6, a1, a5, SP[a2, a3], a4, n] + S2[a6, a1, a5, SP[a3, a4], a2, n] + 
    S2[a6, a1, SP[a2, a3], a4, a5, n] + S2[a6, a1, SP[a2, a3], a5, a4, n] - 
    S2[a6, a1, SP[a2, a5], a3, a4, n] - S2[a6, a1, SP[a2, a5], a4, a3, n] + 
    S2[a6, a1, SP[a3, a4], a2, a5, n] + S2[a6, a1, SP[a3, a4], a5, a2, n] - 
    S2[a6, a1, SP[a4, a5], a2, a3, n] - S2[a6, a1, SP[a4, a5], a3, a2, n] + 
    S2[a5, n]*S2[a6, a2, a3, a1, a4, n] + S2[a6, a2, a3, a1, SP[a4, a5], n] + 
    S2[a6, a2, a3, SP[a1, a5], a4, n] + S2[a6, a2, SP[a3, a5], a1, a4, n] - 
    S2[a2, n]*S2[a6, a3, a1, a4, a5, n] - S2[a6, a3, a1, a4, SP[a2, a5], n] - 
    S2[a2, n]*S2[a6, a3, a1, a5, a4, n] - S2[a6, a3, a1, a5, SP[a2, a4], n] - 
    S2[a6, a3, a1, SP[a2, a4], a5, n] - S2[a6, a3, a1, SP[a2, a5], a4, n] - 
    S2[a2, n]*S2[a6, a3, a5, a1, a4, n] - S2[a6, a3, a5, a1, SP[a2, a4], n] - 
    S2[a6, a3, a5, SP[a1, a2], a4, n] - S2[a6, a3, SP[a1, a2], a4, a5, n] - 
    S2[a6, a3, SP[a1, a2], a5, a4, n] - S2[a6, a3, SP[a2, a5], a1, a4, n] + 
    S2[a3, n]*S2[a6, a5, a1, a2, a4, n] + S2[a6, a5, a1, a2, SP[a3, a4], n] + 
    S2[a3, n]*S2[a6, a5, a1, a4, a2, n] + S2[a6, a5, a1, a4, SP[a2, a3], n] + 
    S2[a6, a5, a1, SP[a2, a3], a4, n] + S2[a6, a5, a1, SP[a3, a4], a2, n] - 
    S2[a2, n]*S2[a6, a5, a3, a1, a4, n] - S2[a6, a5, a3, a1, SP[a2, a4], n] - 
    S2[a6, a5, a3, SP[a1, a2], a4, n] + S2[a6, a5, SP[a1, a3], a2, a4, n] + 
    S2[a6, a5, SP[a1, a3], a4, a2, n] - S2[a6, a5, SP[a2, a3], a1, a4, n] + 
    S2[a6, SP[a1, a3], a2, a4, a5, n] + S2[a6, SP[a1, a3], a2, a5, a4, n] + 
    S2[a6, SP[a1, a3], a4, a2, a5, n] + S2[a6, SP[a1, a3], a4, a5, a2, n] + 
    S2[a6, SP[a1, a3], a5, a2, a4, n] + S2[a6, SP[a1, a3], a5, a4, a2, n] - 
    S2[a6, SP[a1, a5], a2, a3, a4, n] - S2[a6, SP[a1, a5], a2, a4, a3, n] - 
    S2[a6, SP[a1, a5], a3, a2, a4, n] - S2[a6, SP[a1, a5], a3, a4, a2, n] - 
    S2[a6, SP[a1, a5], a4, a2, a3, n] - S2[a6, SP[a1, a5], a4, a3, a2, n] - 
    S2[a6, SP[a2, a3], a1, a4, a5, n] - S2[a6, SP[a2, a3], a1, a5, a4, n] - 
    S2[a6, SP[a2, a3], a5, a1, a4, n] + S2[a6, SP[a3, a5], a1, a2, a4, n] + 
    S2[a6, SP[a3, a5], a1, a4, a2, n] + S2[SP[a1, a4], a2, a3, a6, a5, n] - 
    S2[SP[a2, a6], a3, a1, a4, a5, n] - S2[SP[a2, a6], a3, a1, a5, a4, n] - 
    S2[SP[a2, a6], a3, a5, a1, a4, n] - S2[SP[a2, a6], a5, a3, a1, a4, n] + 
    S2[SP[a3, a6], a1, a2, a4, a5, n] + S2[SP[a3, a6], a1, a2, a5, a4, n] + 
    S2[SP[a3, a6], a1, a4, a2, a5, n] + S2[SP[a3, a6], a1, a4, a5, a2, n] + 
    S2[SP[a3, a6], a1, a5, a2, a4, n] + S2[SP[a3, a6], a1, a5, a4, a2, n] + 
    S2[SP[a3, a6], a5, a1, a2, a4, n] + S2[SP[a3, a6], a5, a1, a4, a2, n] - 
    S2[SP[a5, a6], a1, a2, a3, a4, n] - S2[SP[a5, a6], a1, a2, a4, a3, n] - 
    S2[SP[a5, a6], a1, a3, a2, a4, n] - S2[SP[a5, a6], a1, a3, a4, a2, n] - 
    S2[SP[a5, a6], a1, a4, a2, a3, n] - S2[SP[a5, a6], a1, a4, a3, a2, n] + 
    S2[SP[a5, a6], a2, a3, a1, a4, n] + S2[a6, a3, a2, a1, a4, a5, n] + 
    S2[a6, a3, a2, a1, a5, a4, n] + S2[a6, a3, a2, a5, a1, a4, n] + 
    S2[a6, a3, a5, a2, a1, a4, n] + S2[a6, a5, a3, a2, a1, a4, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a4_, a1_, a2_, a5_, a3_, a6_, n_] :> 
  S2[a1, a2, a4, n]*S2[a3, a5, a6, n] + S2[a1, a4, a2, n]*S2[a3, a5, a6, n] + 
    S2[a1, a2, a4, n]*S2[a3, a6, a5, n] + S2[a1, a4, a2, n]*
     S2[a3, a6, a5, n] + S2[SP[a1, a3], SP[a2, a5], SP[a4, a6], n] + 
    S2[SP[a1, a3], SP[a2, a6], SP[a4, a5], n] + S2[SP[a1, a3], SP[a4, a5], 
     SP[a2, a6], n] + S2[SP[a1, a3], SP[a4, a6], SP[a2, a5], n] - 
    S2[a3, a6, n]*S2[a1, a2, a4, a5, n] - S2[a3, a6, n]*
     S2[a1, a2, a5, a4, n] + S2[a1, a2, SP[a3, a4], SP[a5, a6], n] + 
    S2[a1, a2, SP[a3, a5], SP[a4, a6], n] - S2[a1, a3, SP[a2, a5], 
     SP[a4, a6], n] - S2[a1, a3, SP[a2, a6], SP[a4, a5], n] - 
    S2[a1, a3, SP[a4, a5], SP[a2, a6], n] - S2[a1, a3, SP[a4, a6], 
     SP[a2, a5], n] - S2[a3, a6, n]*S2[a1, a4, a2, a5, n] + 
    S2[a1, a4, SP[a2, a3], SP[a5, a6], n] + S2[a1, SP[a2, a3], a4, 
     SP[a5, a6], n] - S2[a1, SP[a2, a3], a6, SP[a4, a5], n] - 
    S2[a1, SP[a2, a3], SP[a4, a5], a6, n] + S2[a1, SP[a2, a3], SP[a5, a6], 
     a4, n] + S2[a1, SP[a3, a4], a2, SP[a5, a6], n] - 
    S2[a1, SP[a3, a4], a5, SP[a2, a6], n] - S2[a1, SP[a3, a4], a6, 
     SP[a2, a5], n] - S2[a1, SP[a3, a4], SP[a2, a5], a6, n] - 
    S2[a1, a4, n]*S2[a2, a5, a3, a6, n] - S2[a1, a4, n]*
     S2[a2, a5, a6, a3, n] + S2[a2, a5, SP[a1, a3], SP[a4, a6], n] + 
    S2[a2, a5, SP[a1, a6], SP[a3, a4], n] - S2[a1, a4, n]*
     S2[a2, a6, a3, a5, n] - S2[a1, a4, n]*S2[a2, a6, a5, a3, n] + 
    S2[a2, a6, SP[a1, a3], SP[a4, a5], n] + S2[a2, a6, SP[a1, a5], 
     SP[a3, a4], n] + S2[a2, SP[a1, a5], a3, SP[a4, a6], n] + 
    S2[a2, SP[a1, a5], a6, SP[a3, a4], n] + S2[a2, SP[a1, a5], SP[a3, a4], 
     a6, n] + S2[a2, SP[a1, a5], SP[a4, a6], a3, n] + 
    S2[a2, SP[a1, a6], a3, SP[a4, a5], n] + S2[a2, SP[a1, a6], a5, 
     SP[a3, a4], n] + S2[a2, SP[a1, a6], SP[a3, a4], a5, n] + 
    S2[a2, SP[a1, a6], SP[a4, a5], a3, n] - S2[a3, a1, SP[a2, a5], 
     SP[a4, a6], n] - S2[a3, a1, SP[a2, a6], SP[a4, a5], n] - 
    S2[a3, a1, SP[a4, a5], SP[a2, a6], n] - S2[a3, a1, SP[a4, a6], 
     SP[a2, a5], n] + S2[a1, a4, n]*S2[a3, a6, a2, a5, n] - 
    S2[a3, a6, SP[a1, a2], SP[a4, a5], n] - S2[a3, SP[a1, a5], a2, 
     SP[a4, a6], n] - S2[a3, SP[a1, a5], a4, SP[a2, a6], n] - 
    S2[a3, SP[a1, a5], SP[a2, a6], a4, n] - S2[a3, SP[a1, a5], SP[a4, a6], 
     a2, n] - 2*S2[a3, SP[a1, a6], a2, SP[a4, a5], n] - 
    S2[a3, SP[a1, a6], a4, SP[a2, a5], n] - S2[a3, SP[a1, a6], SP[a2, a4], 
     a5, n] - S2[a3, SP[a1, a6], SP[a2, a5], a4, n] - 
    S2[a3, SP[a1, a6], SP[a4, a5], a2, n] + S2[SP[a1, a2], a5, a3, 
     SP[a4, a6], n] + S2[SP[a1, a2], a5, a6, SP[a3, a4], n] + 
    S2[SP[a1, a2], a5, SP[a3, a4], a6, n] + S2[SP[a1, a2], a5, SP[a4, a6], 
     a3, n] + S2[SP[a1, a2], a6, a3, SP[a4, a5], n] + 
    S2[SP[a1, a2], a6, a5, SP[a3, a4], n] + S2[SP[a1, a2], a6, SP[a3, a4], 
     a5, n] + S2[SP[a1, a2], a6, SP[a4, a5], a3, n] + 
    S2[SP[a1, a2], SP[a4, a5], a3, a6, n] + S2[SP[a1, a2], SP[a4, a5], a6, 
     a3, n] + S2[SP[a1, a2], SP[a4, a6], a3, a5, n] + 
    S2[SP[a1, a2], SP[a4, a6], a5, a3, n] + S2[SP[a1, a3], a2, a4, 
     SP[a5, a6], n] - S2[SP[a1, a3], a2, a6, SP[a4, a5], n] - 
    S2[SP[a1, a3], a2, SP[a4, a5], a6, n] + S2[SP[a1, a3], a2, SP[a5, a6], 
     a4, n] + S2[SP[a1, a3], a4, a2, SP[a5, a6], n] - 
    S2[SP[a1, a3], a4, a5, SP[a2, a6], n] - S2[SP[a1, a3], a4, a6, 
     SP[a2, a5], n] - S2[SP[a1, a3], a4, SP[a2, a5], a6, n] - 
    S2[SP[a1, a3], a5, a2, SP[a4, a6], n] - S2[SP[a1, a3], a5, a4, 
     SP[a2, a6], n] - S2[SP[a1, a3], a5, SP[a2, a6], a4, n] - 
    S2[SP[a1, a3], a5, SP[a4, a6], a2, n] - 
    2*S2[SP[a1, a3], a6, a2, SP[a4, a5], n] - S2[SP[a1, a3], a6, a4, 
     SP[a2, a5], n] - S2[SP[a1, a3], a6, SP[a2, a4], a5, n] - 
    S2[SP[a1, a3], a6, SP[a2, a5], a4, n] - S2[SP[a1, a3], a6, SP[a4, a5], 
     a2, n] - S2[SP[a1, a3], SP[a2, a5], a4, a6, n] - 
    S2[SP[a1, a3], SP[a2, a5], a6, a4, n] - S2[SP[a1, a3], SP[a4, a5], a2, 
     a6, n] - S2[SP[a1, a3], SP[a4, a5], a6, a2, n] - 
    S2[SP[a1, a3], SP[a4, a6], a2, a5, n] - S2[SP[a1, a3], SP[a4, a6], a5, 
     a2, n] - S2[a1, a2, a3, a4, SP[a5, a6], n] + 
    S2[a1, a2, a3, a6, SP[a4, a5], n] + S2[a1, a2, a3, SP[a4, a5], a6, n] - 
    S2[a1, a2, a3, SP[a5, a6], a4, n] - S2[a1, a2, a4, a3, SP[a5, a6], n] - 
    S2[a1, a2, a4, SP[a3, a5], a6, n] + S2[a4, n]*S2[a1, a2, a5, a3, a6, n] - 
    S2[a1, a2, a5, a3, SP[a4, a6], n] - S2[a1, a2, a5, a6, SP[a3, a4], n] - 
    S2[a1, a2, a5, SP[a3, a4], a6, n] - S2[a1, a2, a5, SP[a4, a6], a3, n] - 
    S2[a1, a2, a6, a3, SP[a4, a5], n] - S2[a1, a2, a6, a5, SP[a3, a4], n] - 
    S2[a1, a2, a6, SP[a3, a4], a5, n] - S2[a1, a2, a6, SP[a4, a5], a3, n] - 
    S2[a1, a2, SP[a3, a5], a4, a6, n] - S2[a1, a2, SP[a3, a5], a6, a4, n] - 
    S2[a1, a2, SP[a4, a5], a6, a3, n] - S2[a1, a2, SP[a4, a6], a3, a5, n] - 
    S2[a1, a2, SP[a4, a6], a5, a3, n] - S2[a1, a3, a2, a4, SP[a5, a6], n] + 
    S2[a1, a3, a2, a6, SP[a4, a5], n] + S2[a1, a3, a2, SP[a4, a5], a6, n] - 
    S2[a1, a3, a2, SP[a5, a6], a4, n] - S2[a1, a3, a4, a2, SP[a5, a6], n] + 
    S2[a1, a3, a4, a5, SP[a2, a6], n] + S2[a1, a3, a4, a6, SP[a2, a5], n] + 
    S2[a1, a3, a4, SP[a2, a5], a6, n] + S2[a1, a3, a5, a2, SP[a4, a6], n] + 
    S2[a1, a3, a5, a4, SP[a2, a6], n] + S2[a1, a3, a5, SP[a2, a6], a4, n] + 
    S2[a1, a3, a5, SP[a4, a6], a2, n] + 2*S2[a1, a3, a6, a2, SP[a4, a5], n] + 
    S2[a1, a3, a6, a4, SP[a2, a5], n] + S2[a1, a3, a6, SP[a2, a4], a5, n] + 
    S2[a1, a3, a6, SP[a2, a5], a4, n] + S2[a1, a3, a6, SP[a4, a5], a2, n] + 
    S2[a1, a3, SP[a2, a5], a4, a6, n] + S2[a1, a3, SP[a2, a5], a6, a4, n] + 
    S2[a1, a3, SP[a4, a5], a2, a6, n] + S2[a1, a3, SP[a4, a5], a6, a2, n] + 
    S2[a1, a3, SP[a4, a6], a2, a5, n] + S2[a1, a3, SP[a4, a6], a5, a2, n] - 
    S2[a1, a4, a2, a3, SP[a5, a6], n] - S2[a1, a4, a2, SP[a3, a5], a6, n] - 
    S2[a1, a4, a3, a2, SP[a5, a6], n] + S2[a1, a4, a3, a5, SP[a2, a6], n] + 
    S2[a1, a4, a3, a6, SP[a2, a5], n] + S2[a1, a4, a3, SP[a2, a5], a6, n] - 
    S2[a3, n]*S2[a1, a4, a5, a2, a6, n] - S2[a1, a4, a5, a2, SP[a3, a6], n] + 
    S2[a2, n]*S2[a1, a4, a5, a3, a6, n] + S2[a1, a4, a5, a3, SP[a2, a6], n] - 
    S2[a3, n]*S2[a1, a4, a5, a6, a2, n] + 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] + S2[a1, a4, a5, SP[a2, a6], a3, n] - 
    S2[a1, a4, a5, SP[a3, a6], a2, n] - S2[a3, n]*S2[a1, a4, a6, a2, a5, n] - 
    S2[a1, a4, a6, a2, SP[a3, a5], n] + S2[a2, n]*S2[a1, a4, a6, a3, a5, n] + 
    S2[a1, a4, a6, a3, SP[a2, a5], n] - S2[a3, n]*S2[a1, a4, a6, a5, a2, n] + 
    S2[a2, n]*S2[a1, a4, a6, a5, a3, n] + S2[a1, a4, a6, SP[a2, a5], a3, n] - 
    S2[a1, a4, a6, SP[a3, a5], a2, n] + S2[a1, a4, SP[a2, a5], a3, a6, n] + 
    S2[a1, a4, SP[a2, a5], a6, a3, n] + S2[a1, a4, SP[a2, a6], a3, a5, n] + 
    S2[a1, a4, SP[a2, a6], a5, a3, n] - S2[a1, a4, SP[a3, a5], a2, a6, n] - 
    S2[a1, a4, SP[a3, a5], a6, a2, n] - S2[a1, a4, SP[a3, a6], a2, a5, n] - 
    S2[a1, a4, SP[a3, a6], a5, a2, n] - S2[a3, n]*S2[a1, a5, a2, a4, a6, n] - 
    S2[a1, a5, a2, a4, SP[a3, a6], n] - S2[a3, n]*S2[a1, a5, a2, a6, a4, n] - 
    S2[a1, a5, a2, a6, SP[a3, a4], n] - S2[a1, a5, a2, SP[a3, a4], a6, n] - 
    S2[a1, a5, a2, SP[a3, a6], a4, n] + S2[a2, n]*S2[a1, a5, a3, a4, a6, n] + 
    S2[a1, a5, a3, a4, SP[a2, a6], n] + S2[a2, n]*S2[a1, a5, a3, a6, a4, n] + 
    S2[a1, a5, a3, a6, SP[a2, a4], n] + S2[a1, a5, a3, SP[a2, a4], a6, n] + 
    S2[a1, a5, a3, SP[a2, a6], a4, n] - S2[a3, n]*S2[a1, a5, a4, a2, a6, n] - 
    S2[a1, a5, a4, a2, SP[a3, a6], n] + S2[a2, n]*S2[a1, a5, a4, a3, a6, n] + 
    S2[a1, a5, a4, a3, SP[a2, a6], n] - S2[a3, n]*S2[a1, a5, a4, a6, a2, n] + 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] + S2[a1, a5, a4, SP[a2, a6], a3, n] - 
    S2[a1, a5, a4, SP[a3, a6], a2, n] - S2[a3, n]*S2[a1, a5, a6, a2, a4, n] - 
    S2[a1, a5, a6, a2, SP[a3, a4], n] + S2[a2, n]*S2[a1, a5, a6, a3, a4, n] + 
    S2[a1, a5, a6, a3, SP[a2, a4], n] - S2[a3, n]*S2[a1, a5, a6, a4, a2, n] + 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] + S2[a1, a5, a6, SP[a2, a4], a3, n] - 
    S2[a1, a5, a6, SP[a3, a4], a2, n] + S2[a1, a5, SP[a2, a4], a3, a6, n] + 
    S2[a1, a5, SP[a2, a4], a6, a3, n] + S2[a1, a5, SP[a2, a6], a3, a4, n] + 
    S2[a1, a5, SP[a2, a6], a4, a3, n] - S2[a1, a5, SP[a3, a4], a2, a6, n] - 
    S2[a1, a5, SP[a3, a4], a6, a2, n] - S2[a1, a5, SP[a3, a6], a2, a4, n] - 
    S2[a1, a5, SP[a3, a6], a4, a2, n] - S2[a3, n]*S2[a1, a6, a2, a4, a5, n] - 
    S2[a1, a6, a2, a4, SP[a3, a5], n] - S2[a3, n]*S2[a1, a6, a2, a5, a4, n] - 
    S2[a1, a6, a2, a5, SP[a3, a4], n] - S2[a1, a6, a2, SP[a3, a4], a5, n] - 
    S2[a1, a6, a2, SP[a3, a5], a4, n] + S2[a2, n]*S2[a1, a6, a3, a4, a5, n] + 
    S2[a1, a6, a3, a4, SP[a2, a5], n] + S2[a2, n]*S2[a1, a6, a3, a5, a4, n] + 
    S2[a1, a6, a3, a5, SP[a2, a4], n] + S2[a1, a6, a3, SP[a2, a4], a5, n] + 
    S2[a1, a6, a3, SP[a2, a5], a4, n] - S2[a3, n]*S2[a1, a6, a4, a2, a5, n] - 
    S2[a1, a6, a4, a2, SP[a3, a5], n] + S2[a2, n]*S2[a1, a6, a4, a3, a5, n] + 
    S2[a1, a6, a4, a3, SP[a2, a5], n] - S2[a3, n]*S2[a1, a6, a4, a5, a2, n] + 
    S2[a2, n]*S2[a1, a6, a4, a5, a3, n] + S2[a1, a6, a4, SP[a2, a5], a3, n] - 
    S2[a1, a6, a4, SP[a3, a5], a2, n] - S2[a3, n]*S2[a1, a6, a5, a2, a4, n] - 
    S2[a1, a6, a5, a2, SP[a3, a4], n] + S2[a2, n]*S2[a1, a6, a5, a3, a4, n] + 
    S2[a1, a6, a5, a3, SP[a2, a4], n] - S2[a3, n]*S2[a1, a6, a5, a4, a2, n] + 
    S2[a2, n]*S2[a1, a6, a5, a4, a3, n] + S2[a1, a6, a5, SP[a2, a4], a3, n] - 
    S2[a1, a6, a5, SP[a3, a4], a2, n] + S2[a1, a6, SP[a2, a4], a3, a5, n] + 
    S2[a1, a6, SP[a2, a4], a5, a3, n] + S2[a1, a6, SP[a2, a5], a3, a4, n] + 
    S2[a1, a6, SP[a2, a5], a4, a3, n] - S2[a1, a6, SP[a3, a4], a2, a5, n] - 
    S2[a1, a6, SP[a3, a4], a5, a2, n] - S2[a1, a6, SP[a3, a5], a2, a4, n] - 
    S2[a1, a6, SP[a3, a5], a4, a2, n] + S2[a1, SP[a2, a4], a5, a3, a6, n] + 
    S2[a1, SP[a2, a5], a3, a4, a6, n] + S2[a1, SP[a2, a5], a3, a6, a4, n] + 
    S2[a1, SP[a2, a5], a4, a3, a6, n] + S2[a1, SP[a2, a5], a4, a6, a3, n] + 
    S2[a1, SP[a2, a5], a6, a3, a4, n] + S2[a1, SP[a2, a5], a6, a4, a3, n] + 
    S2[a1, SP[a2, a6], a3, a4, a5, n] + S2[a1, SP[a2, a6], a3, a5, a4, n] + 
    S2[a1, SP[a2, a6], a4, a3, a5, n] + S2[a1, SP[a2, a6], a4, a5, a3, n] + 
    S2[a1, SP[a2, a6], a5, a3, a4, n] + S2[a1, SP[a2, a6], a5, a4, a3, n] - 
    S2[a1, SP[a3, a5], a2, a4, a6, n] - S2[a1, SP[a3, a5], a2, a6, a4, n] - 
    S2[a1, SP[a3, a5], a4, a2, a6, n] - S2[a1, SP[a3, a5], a4, a6, a2, n] - 
    S2[a1, SP[a3, a5], a6, a2, a4, n] - S2[a1, SP[a3, a5], a6, a4, a2, n] - 
    S2[a1, SP[a3, a6], a2, a4, a5, n] - S2[a1, SP[a3, a6], a2, a5, a4, n] - 
    S2[a1, SP[a3, a6], a4, a2, a5, n] - S2[a1, SP[a3, a6], a4, a5, a2, n] - 
    S2[a1, SP[a3, a6], a5, a2, a4, n] - S2[a1, SP[a3, a6], a5, a4, a2, n] - 
    S2[a2, a1, a5, a3, SP[a4, a6], n] - S2[a2, a1, a5, a6, SP[a3, a4], n] - 
    S2[a2, a1, a5, SP[a3, a4], a6, n] - S2[a2, a1, a5, SP[a4, a6], a3, n] - 
    S2[a2, a1, a6, a3, SP[a4, a5], n] - S2[a2, a1, a6, a5, SP[a3, a4], n] - 
    S2[a2, a1, a6, SP[a3, a4], a5, n] - S2[a2, a1, a6, SP[a4, a5], a3, n] - 
    S2[a2, a1, SP[a4, a5], a3, a6, n] - S2[a2, a1, SP[a4, a5], a6, a3, n] - 
    S2[a2, a1, SP[a4, a6], a3, a5, n] - S2[a2, a1, SP[a4, a6], a5, a3, n] + 
    S2[a6, n]*S2[a2, a5, a1, a3, a4, n] + 
    S2[a6, n]*S2[a2, a5, a1, a4, a3, n] + S2[a2, a5, a1, a4, SP[a3, a6], n] - 
    S2[a2, a5, a1, a6, SP[a3, a4], n] - S2[a2, a5, a1, SP[a3, a4], a6, n] + 
    S2[a2, a5, a1, SP[a3, a6], a4, n] + S2[a6, n]*S2[a2, a5, a3, a1, a4, n] - 
    S2[a2, a5, a6, a1, SP[a3, a4], n] - S2[a2, a5, a6, SP[a1, a3], a4, n] - 
    S2[a2, a5, SP[a1, a3], a4, a6, n] - S2[a2, a5, SP[a1, a3], a6, a4, n] + 
    S2[a2, a5, SP[a3, a6], a1, a4, n] - S2[a2, a6, a1, a3, SP[a4, a5], n] + 
    S2[a3, n]*S2[a2, a6, a1, a4, a5, n] + S2[a2, a6, a1, a4, SP[a3, a5], n] + 
    S2[a3, n]*S2[a2, a6, a1, a5, a4, n] + S2[a2, a6, a1, SP[a3, a5], a4, n] - 
    S2[a2, a6, a1, SP[a4, a5], a3, n] - S2[a2, a6, a3, a1, SP[a4, a5], n] - 
    S2[a2, a6, a3, SP[a1, a5], a4, n] - S2[a2, a6, a5, a1, SP[a3, a4], n] - 
    S2[a2, a6, a5, SP[a1, a3], a4, n] - S2[a2, a6, SP[a1, a5], a3, a4, n] - 
    S2[a2, a6, SP[a1, a5], a4, a3, n] - S2[a2, SP[a1, a5], a3, a4, a6, n] - 
    S2[a2, SP[a1, a5], a3, a6, a4, n] - S2[a2, SP[a1, a5], a4, a3, a6, n] - 
    S2[a2, SP[a1, a5], a4, a6, a3, n] - S2[a2, SP[a1, a5], a6, a3, a4, n] - 
    S2[a2, SP[a1, a5], a6, a4, a3, n] - S2[a2, SP[a1, a6], a3, a4, a5, n] - 
    S2[a2, SP[a1, a6], a3, a5, a4, n] - S2[a2, SP[a1, a6], a4, a3, a5, n] - 
    S2[a2, SP[a1, a6], a4, a5, a3, n] - S2[a2, SP[a1, a6], a5, a3, a4, n] - 
    S2[a2, SP[a1, a6], a5, a4, a3, n] + S2[a2, SP[a3, a6], a1, a4, a5, n] + 
    S2[a2, SP[a3, a6], a1, a5, a4, n] + S2[a2, SP[a5, a6], a1, a3, a4, n] + 
    S2[a2, SP[a5, a6], a1, a4, a3, n] + S2[a2, SP[a5, a6], a3, a1, a4, n] - 
    S2[a3, a1, a2, a4, SP[a5, a6], n] + S2[a3, a1, a2, a6, SP[a4, a5], n] + 
    S2[a3, a1, a2, SP[a4, a5], a6, n] - S2[a3, a1, a2, SP[a5, a6], a4, n] - 
    S2[a3, a1, a4, a2, SP[a5, a6], n] + S2[a3, a1, a4, a5, SP[a2, a6], n] + 
    S2[a3, a1, a4, a6, SP[a2, a5], n] + S2[a3, a1, a4, SP[a2, a5], a6, n] + 
    S2[a3, a1, a5, a2, SP[a4, a6], n] + S2[a3, a1, a5, a4, SP[a2, a6], n] + 
    S2[a3, a1, a5, SP[a2, a6], a4, n] + S2[a3, a1, a5, SP[a4, a6], a2, n] + 
    2*S2[a3, a1, a6, a2, SP[a4, a5], n] + S2[a3, a1, a6, a4, SP[a2, a5], n] + 
    S2[a3, a1, a6, SP[a2, a4], a5, n] + S2[a3, a1, a6, SP[a2, a5], a4, n] + 
    S2[a3, a1, a6, SP[a4, a5], a2, n] + S2[a3, a1, SP[a2, a5], a4, a6, n] + 
    S2[a3, a1, SP[a2, a5], a6, a4, n] + S2[a3, a1, SP[a4, a5], a2, a6, n] + 
    S2[a3, a1, SP[a4, a5], a6, a2, n] + S2[a3, a1, SP[a4, a6], a2, a5, n] + 
    S2[a3, a1, SP[a4, a6], a5, a2, n] - S2[a6, n]*S2[a3, a5, a1, a2, a4, n] - 
    S2[a6, n]*S2[a3, a5, a1, a4, a2, n] + 
    2*S2[a3, a6, a1, a2, SP[a4, a5], n] - 
    S2[a2, n]*S2[a3, a6, a1, a4, a5, n] - 
    S2[a2, n]*S2[a3, a6, a1, a5, a4, n] - S2[a3, a6, a1, a5, SP[a2, a4], n] + 
    S2[a3, a6, a1, SP[a4, a5], a2, n] + S2[a3, a6, a2, a1, SP[a4, a5], n] + 
    S2[a3, a6, a2, SP[a1, a5], a4, n] + S2[a3, a6, SP[a1, a5], a2, a4, n] + 
    S2[a3, a6, SP[a1, a5], a4, a2, n] + S2[a3, SP[a1, a5], a2, a4, a6, n] + 
    S2[a3, SP[a1, a5], a2, a6, a4, n] + S2[a3, SP[a1, a5], a4, a2, a6, n] + 
    S2[a3, SP[a1, a5], a4, a6, a2, n] + S2[a3, SP[a1, a5], a6, a2, a4, n] + 
    S2[a3, SP[a1, a5], a6, a4, a2, n] + S2[a3, SP[a1, a6], a2, a4, a5, n] + 
    S2[a3, SP[a1, a6], a2, a5, a4, n] + S2[a3, SP[a1, a6], a4, a2, a5, n] + 
    S2[a3, SP[a1, a6], a4, a5, a2, n] + S2[a3, SP[a1, a6], a5, a2, a4, n] + 
    S2[a3, SP[a1, a6], a5, a4, a2, n] - S2[a3, SP[a2, a6], a1, a4, a5, n] - 
    S2[a3, SP[a2, a6], a1, a5, a4, n] - S2[a3, SP[a5, a6], a1, a2, a4, n] - 
    S2[a3, SP[a5, a6], a1, a4, a2, n] - S2[a3, n]*S2[a6, a2, a5, a1, a4, n] - 
    S2[a6, a2, a5, a1, SP[a3, a4], n] - S2[a6, a2, a5, SP[a1, a3], a4, n] - 
    S2[a6, a2, SP[a3, a5], a1, a4, n] + S2[a2, n]*S2[a6, a3, a5, a1, a4, n] + 
    S2[a6, a3, a5, a1, SP[a2, a4], n] + S2[a6, a3, a5, SP[a1, a2], a4, n] + 
    S2[a6, a3, SP[a2, a5], a1, a4, n] + S2[SP[a1, a4], a2, a5, a3, a6, n] + 
    S2[SP[a2, a6], a3, a5, a1, a4, n] + S2[SP[a2, a6], a5, a1, a3, a4, n] + 
    S2[SP[a2, a6], a5, a1, a4, a3, n] + S2[SP[a2, a6], a5, a3, a1, a4, n] - 
    S2[SP[a3, a6], a2, a5, a1, a4, n] - S2[SP[a3, a6], a5, a1, a2, a4, n] - 
    S2[SP[a3, a6], a5, a1, a4, a2, n] - S2[a6, a3, a5, a2, a1, a4, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a4_, a1_, a2_, a5_, a6_, a3_, n_] :> 
  -(S2[a1, a2, a4, n]*S2[a3, a6, a5, n]) - S2[a1, a4, a2, n]*
     S2[a3, a6, a5, n] - S2[SP[a1, a3], SP[a2, a6], SP[a4, a5], n] - 
    S2[SP[a1, a3], SP[a4, a6], SP[a2, a5], n] + 
    S2[a3, a6, n]*S2[a1, a2, a4, a5, n] + S2[a3, a6, n]*
     S2[a1, a2, a5, a4, n] - S2[a1, a2, SP[a3, a4], SP[a5, a6], n] - 
    S2[a1, a2, SP[a3, a5], SP[a4, a6], n] + S2[a1, a3, SP[a2, a6], 
     SP[a4, a5], n] + S2[a1, a3, SP[a4, a6], SP[a2, a5], n] + 
    S2[a3, a6, n]*S2[a1, a4, a2, a5, n] - S2[a1, a4, SP[a2, a3], SP[a5, a6], 
     n] - S2[a1, SP[a2, a3], a4, SP[a5, a6], n] - S2[a1, SP[a2, a3], a5, 
     SP[a4, a6], n] + S2[a1, SP[a2, a3], a6, SP[a4, a5], n] - 
    S2[a1, SP[a2, a3], SP[a5, a6], a4, n] - S2[a1, SP[a3, a4], a2, 
     SP[a5, a6], n] + S2[a1, SP[a3, a4], a6, SP[a2, a5], n] + 
    S2[a1, a4, n]*S2[a2, a6, a3, a5, n] + S2[a1, a4, n]*
     S2[a2, a6, a5, a3, n] - S2[a2, a6, SP[a1, a3], SP[a4, a5], n] - 
    S2[a2, a6, SP[a1, a5], SP[a3, a4], n] - S2[a2, SP[a1, a6], a3, 
     SP[a4, a5], n] - S2[a2, SP[a1, a6], a5, SP[a3, a4], n] - 
    S2[a2, SP[a1, a6], SP[a3, a4], a5, n] - S2[a2, SP[a1, a6], SP[a4, a5], 
     a3, n] + S2[a3, a1, SP[a2, a6], SP[a4, a5], n] + 
    S2[a3, a1, SP[a4, a6], SP[a2, a5], n] - S2[a1, a4, n]*
     S2[a3, a6, a2, a5, n] + S2[a3, a6, SP[a1, a2], SP[a4, a5], n] + 
    2*S2[a3, SP[a1, a6], a2, SP[a4, a5], n] + S2[a3, SP[a1, a6], a4, 
     SP[a2, a5], n] + S2[a3, SP[a1, a6], SP[a2, a4], a5, n] + 
    S2[a3, SP[a1, a6], SP[a2, a5], a4, n] + S2[a3, SP[a1, a6], SP[a4, a5], 
     a2, n] - S2[SP[a1, a2], a6, a3, SP[a4, a5], n] - 
    S2[SP[a1, a2], a6, a5, SP[a3, a4], n] - S2[SP[a1, a2], a6, SP[a3, a4], 
     a5, n] - S2[SP[a1, a2], a6, SP[a4, a5], a3, n] - 
    S2[SP[a1, a2], SP[a4, a6], a3, a5, n] - S2[SP[a1, a2], SP[a4, a6], a5, 
     a3, n] - S2[SP[a1, a3], a2, a4, SP[a5, a6], n] - 
    S2[SP[a1, a3], a2, a5, SP[a4, a6], n] + S2[SP[a1, a3], a2, a6, 
     SP[a4, a5], n] - S2[SP[a1, a3], a2, SP[a5, a6], a4, n] - 
    S2[SP[a1, a3], a4, a2, SP[a5, a6], n] + S2[SP[a1, a3], a4, a6, 
     SP[a2, a5], n] + 2*S2[SP[a1, a3], a6, a2, SP[a4, a5], n] + 
    S2[SP[a1, a3], a6, a4, SP[a2, a5], n] + S2[SP[a1, a3], a6, SP[a2, a4], 
     a5, n] + S2[SP[a1, a3], a6, SP[a2, a5], a4, n] + 
    S2[SP[a1, a3], a6, SP[a4, a5], a2, n] + S2[SP[a1, a3], SP[a4, a6], a2, 
     a5, n] + S2[SP[a1, a3], SP[a4, a6], a5, a2, n] + 
    S2[a1, a2, a3, a4, SP[a5, a6], n] + S2[a1, a2, a3, a5, SP[a4, a6], n] - 
    S2[a1, a2, a3, a6, SP[a4, a5], n] + S2[a1, a2, a3, SP[a5, a6], a4, n] + 
    S2[a1, a2, a4, a3, SP[a5, a6], n] - S2[a3, n]*S2[a1, a2, a4, a5, a6, n] - 
    S2[a1, a2, a4, a5, SP[a3, a6], n] + S2[a1, a2, a5, a3, SP[a4, a6], n] - 
    S2[a3, n]*S2[a1, a2, a5, a4, a6, n] - S2[a1, a2, a5, a4, SP[a3, a6], n] + 
    S2[a4, n]*S2[a1, a2, a5, a6, a3, n] - 
    S2[a3, n]*S2[a1, a2, a5, a6, a4, n] - S2[a1, a2, a5, SP[a3, a6], a4, n] + 
    S2[a1, a2, a5, SP[a4, a6], a3, n] + S2[a1, a2, a6, a3, SP[a4, a5], n] + 
    S2[a1, a2, a6, a5, SP[a3, a4], n] + S2[a1, a2, a6, SP[a3, a4], a5, n] + 
    S2[a1, a2, a6, SP[a4, a5], a3, n] + S2[a1, a2, SP[a4, a5], a6, a3, n] + 
    S2[a1, a2, SP[a4, a6], a3, a5, n] + S2[a1, a2, SP[a4, a6], a5, a3, n] + 
    S2[a1, a3, a2, a4, SP[a5, a6], n] + S2[a1, a3, a2, a5, SP[a4, a6], n] - 
    S2[a1, a3, a2, a6, SP[a4, a5], n] + S2[a1, a3, a2, SP[a5, a6], a4, n] + 
    S2[a1, a3, a4, a2, SP[a5, a6], n] - S2[a1, a3, a4, a6, SP[a2, a5], n] - 
    2*S2[a1, a3, a6, a2, SP[a4, a5], n] - S2[a1, a3, a6, a4, SP[a2, a5], n] - 
    S2[a1, a3, a6, SP[a2, a4], a5, n] - S2[a1, a3, a6, SP[a2, a5], a4, n] - 
    S2[a1, a3, a6, SP[a4, a5], a2, n] - S2[a1, a3, SP[a4, a6], a2, a5, n] - 
    S2[a1, a3, SP[a4, a6], a5, a2, n] + S2[a1, a4, a2, a3, SP[a5, a6], n] - 
    S2[a3, n]*S2[a1, a4, a2, a5, a6, n] - S2[a1, a4, a2, a5, SP[a3, a6], n] + 
    S2[a1, a4, a3, a2, SP[a5, a6], n] - S2[a1, a4, a3, a6, SP[a2, a5], n] + 
    S2[a3, n]*S2[a1, a4, a6, a2, a5, n] + S2[a1, a4, a6, a2, SP[a3, a5], n] - 
    S2[a2, n]*S2[a1, a4, a6, a3, a5, n] - S2[a1, a4, a6, a3, SP[a2, a5], n] + 
    S2[a3, n]*S2[a1, a4, a6, a5, a2, n] - 
    S2[a2, n]*S2[a1, a4, a6, a5, a3, n] - S2[a1, a4, a6, SP[a2, a5], a3, n] + 
    S2[a1, a4, a6, SP[a3, a5], a2, n] - S2[a1, a4, SP[a2, a6], a3, a5, n] - 
    S2[a1, a4, SP[a2, a6], a5, a3, n] + S2[a1, a4, SP[a3, a6], a2, a5, n] + 
    S2[a1, a4, SP[a3, a6], a5, a2, n] + S2[a3, n]*S2[a1, a6, a2, a4, a5, n] + 
    S2[a1, a6, a2, a4, SP[a3, a5], n] + S2[a3, n]*S2[a1, a6, a2, a5, a4, n] + 
    S2[a1, a6, a2, a5, SP[a3, a4], n] + S2[a1, a6, a2, SP[a3, a4], a5, n] + 
    S2[a1, a6, a2, SP[a3, a5], a4, n] - S2[a2, n]*S2[a1, a6, a3, a4, a5, n] - 
    S2[a1, a6, a3, a4, SP[a2, a5], n] - S2[a2, n]*S2[a1, a6, a3, a5, a4, n] - 
    S2[a1, a6, a3, a5, SP[a2, a4], n] - S2[a1, a6, a3, SP[a2, a4], a5, n] - 
    S2[a1, a6, a3, SP[a2, a5], a4, n] + S2[a3, n]*S2[a1, a6, a4, a2, a5, n] + 
    S2[a1, a6, a4, a2, SP[a3, a5], n] - S2[a2, n]*S2[a1, a6, a4, a3, a5, n] - 
    S2[a1, a6, a4, a3, SP[a2, a5], n] + S2[a3, n]*S2[a1, a6, a4, a5, a2, n] - 
    S2[a2, n]*S2[a1, a6, a4, a5, a3, n] - S2[a1, a6, a4, SP[a2, a5], a3, n] + 
    S2[a1, a6, a4, SP[a3, a5], a2, n] + S2[a3, n]*S2[a1, a6, a5, a2, a4, n] + 
    S2[a1, a6, a5, a2, SP[a3, a4], n] - S2[a2, n]*S2[a1, a6, a5, a3, a4, n] - 
    S2[a1, a6, a5, a3, SP[a2, a4], n] + S2[a3, n]*S2[a1, a6, a5, a4, a2, n] - 
    S2[a2, n]*S2[a1, a6, a5, a4, a3, n] - S2[a1, a6, a5, SP[a2, a4], a3, n] + 
    S2[a1, a6, a5, SP[a3, a4], a2, n] - S2[a1, a6, SP[a2, a4], a3, a5, n] - 
    S2[a1, a6, SP[a2, a4], a5, a3, n] - S2[a1, a6, SP[a2, a5], a3, a4, n] - 
    S2[a1, a6, SP[a2, a5], a4, a3, n] + S2[a1, a6, SP[a3, a4], a2, a5, n] + 
    S2[a1, a6, SP[a3, a4], a5, a2, n] + S2[a1, a6, SP[a3, a5], a2, a4, n] + 
    S2[a1, a6, SP[a3, a5], a4, a2, n] + S2[a1, SP[a2, a4], a5, a6, a3, n] - 
    S2[a1, SP[a2, a6], a3, a4, a5, n] - S2[a1, SP[a2, a6], a3, a5, a4, n] - 
    S2[a1, SP[a2, a6], a4, a3, a5, n] - S2[a1, SP[a2, a6], a4, a5, a3, n] - 
    S2[a1, SP[a2, a6], a5, a3, a4, n] - S2[a1, SP[a2, a6], a5, a4, a3, n] + 
    S2[a1, SP[a3, a6], a2, a4, a5, n] + S2[a1, SP[a3, a6], a2, a5, a4, n] + 
    S2[a1, SP[a3, a6], a4, a2, a5, n] + S2[a1, SP[a3, a6], a4, a5, a2, n] + 
    S2[a1, SP[a3, a6], a5, a2, a4, n] + S2[a1, SP[a3, a6], a5, a4, a2, n] + 
    S2[a2, a1, a6, a3, SP[a4, a5], n] + S2[a2, a1, a6, a5, SP[a3, a4], n] + 
    S2[a2, a1, a6, SP[a3, a4], a5, n] + S2[a2, a1, a6, SP[a4, a5], a3, n] + 
    S2[a2, a1, SP[a4, a6], a3, a5, n] + S2[a2, a1, SP[a4, a6], a5, a3, n] + 
    S2[a2, a6, a1, a3, SP[a4, a5], n] - S2[a3, n]*S2[a2, a6, a1, a4, a5, n] - 
    S2[a2, a6, a1, a4, SP[a3, a5], n] - S2[a3, n]*S2[a2, a6, a1, a5, a4, n] - 
    S2[a2, a6, a1, SP[a3, a5], a4, n] + S2[a2, a6, a1, SP[a4, a5], a3, n] + 
    S2[a2, a6, a3, a1, SP[a4, a5], n] + S2[a2, a6, a3, SP[a1, a5], a4, n] + 
    S2[a2, a6, a5, a1, SP[a3, a4], n] + S2[a2, a6, a5, SP[a1, a3], a4, n] + 
    S2[a2, a6, SP[a1, a5], a3, a4, n] + S2[a2, a6, SP[a1, a5], a4, a3, n] + 
    S2[a2, SP[a1, a6], a3, a4, a5, n] + S2[a2, SP[a1, a6], a3, a5, a4, n] + 
    S2[a2, SP[a1, a6], a4, a3, a5, n] + S2[a2, SP[a1, a6], a4, a5, a3, n] + 
    S2[a2, SP[a1, a6], a5, a3, a4, n] + S2[a2, SP[a1, a6], a5, a4, a3, n] - 
    S2[a2, SP[a3, a6], a1, a4, a5, n] - S2[a2, SP[a3, a6], a1, a5, a4, n] + 
    S2[a3, a1, a2, a4, SP[a5, a6], n] + S2[a3, a1, a2, a5, SP[a4, a6], n] - 
    S2[a3, a1, a2, a6, SP[a4, a5], n] + S2[a3, a1, a2, SP[a5, a6], a4, n] + 
    S2[a3, a1, a4, a2, SP[a5, a6], n] - S2[a3, a1, a4, a6, SP[a2, a5], n] - 
    2*S2[a3, a1, a6, a2, SP[a4, a5], n] - S2[a3, a1, a6, a4, SP[a2, a5], n] - 
    S2[a3, a1, a6, SP[a2, a4], a5, n] - S2[a3, a1, a6, SP[a2, a5], a4, n] - 
    S2[a3, a1, a6, SP[a4, a5], a2, n] - S2[a3, a1, SP[a4, a6], a2, a5, n] - 
    S2[a3, a1, SP[a4, a6], a5, a2, n] - 2*S2[a3, a6, a1, a2, SP[a4, a5], n] + 
    S2[a2, n]*S2[a3, a6, a1, a4, a5, n] + 
    S2[a2, n]*S2[a3, a6, a1, a5, a4, n] + S2[a3, a6, a1, a5, SP[a2, a4], n] - 
    S2[a3, a6, a1, SP[a4, a5], a2, n] - S2[a3, a6, a2, a1, SP[a4, a5], n] - 
    S2[a3, a6, a2, SP[a1, a5], a4, n] - S2[a3, a6, SP[a1, a5], a2, a4, n] - 
    S2[a3, a6, SP[a1, a5], a4, a2, n] - S2[a3, SP[a1, a6], a2, a4, a5, n] - 
    S2[a3, SP[a1, a6], a2, a5, a4, n] - S2[a3, SP[a1, a6], a4, a2, a5, n] - 
    S2[a3, SP[a1, a6], a4, a5, a2, n] - S2[a3, SP[a1, a6], a5, a2, a4, n] - 
    S2[a3, SP[a1, a6], a5, a4, a2, n] + S2[a3, SP[a2, a6], a1, a4, a5, n] + 
    S2[a3, SP[a2, a6], a1, a5, a4, n] + S2[a3, n]*S2[a6, a2, a5, a1, a4, n] + 
    S2[a6, a2, a5, a1, SP[a3, a4], n] + S2[a6, a2, a5, SP[a1, a3], a4, n] + 
    S2[a6, a2, SP[a3, a5], a1, a4, n] - S2[a2, n]*S2[a6, a3, a5, a1, a4, n] - 
    S2[a6, a3, a5, a1, SP[a2, a4], n] - S2[a6, a3, a5, SP[a1, a2], a4, n] - 
    S2[a6, a3, SP[a2, a5], a1, a4, n] + S2[a3, n]*S2[a6, a5, a1, a2, a4, n] + 
    S2[a6, a5, a1, a2, SP[a3, a4], n] - S2[a2, n]*S2[a6, a5, a1, a3, a4, n] - 
    S2[a6, a5, a1, a3, SP[a2, a4], n] + S2[a3, n]*S2[a6, a5, a1, a4, a2, n] - 
    S2[a2, n]*S2[a6, a5, a1, a4, a3, n] - S2[a6, a5, a1, SP[a2, a4], a3, n] + 
    S2[a6, a5, a1, SP[a3, a4], a2, n] - S2[a2, n]*S2[a6, a5, a3, a1, a4, n] - 
    S2[a6, a5, a3, a1, SP[a2, a4], n] - S2[a6, a5, a3, SP[a1, a2], a4, n] - 
    S2[a6, a5, SP[a1, a2], a3, a4, n] - S2[a6, a5, SP[a1, a2], a4, a3, n] + 
    S2[a6, a5, SP[a1, a3], a2, a4, n] + S2[a6, a5, SP[a1, a3], a4, a2, n] - 
    S2[a6, a5, SP[a2, a3], a1, a4, n] - S2[a6, SP[a2, a5], a1, a3, a4, n] - 
    S2[a6, SP[a2, a5], a1, a4, a3, n] - S2[a6, SP[a2, a5], a3, a1, a4, n] + 
    S2[a6, SP[a3, a5], a1, a2, a4, n] + S2[a6, SP[a3, a5], a1, a4, a2, n] + 
    S2[SP[a1, a4], a2, a5, a6, a3, n] - S2[SP[a2, a6], a3, a5, a1, a4, n] - 
    S2[SP[a2, a6], a5, a1, a3, a4, n] - S2[SP[a2, a6], a5, a1, a4, a3, n] - 
    S2[SP[a2, a6], a5, a3, a1, a4, n] + S2[SP[a3, a6], a2, a5, a1, a4, n] + 
    S2[SP[a3, a6], a5, a1, a2, a4, n] + S2[SP[a3, a6], a5, a1, a4, a2, n] + 
    S2[a6, a3, a5, a2, a1, a4, n] + S2[a6, a5, a2, a1, a3, a4, n] + 
    S2[a6, a5, a2, a1, a4, a3, n] + S2[a6, a5, a2, a3, a1, a4, n] + 
    S2[a6, a5, a3, a2, a1, a4, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a4_, a1_, a2_, a6_, a3_, a5_, n_] :> 
  S2[a1, a2, a4, n]*S2[a3, a5, a6, n] + S2[a1, a4, a2, n]*S2[a3, a5, a6, n] + 
    S2[a1, a2, a4, n]*S2[a3, a6, a5, n] + S2[a1, a4, a2, n]*
     S2[a3, a6, a5, n] + S2[SP[a1, a3], SP[a2, a5], SP[a4, a6], n] + 
    S2[SP[a1, a3], SP[a2, a6], SP[a4, a5], n] + S2[SP[a1, a3], SP[a4, a5], 
     SP[a2, a6], n] + S2[SP[a1, a3], SP[a4, a6], SP[a2, a5], n] - 
    S2[a1, a3, SP[a2, a5], SP[a4, a6], n] - S2[a1, a3, SP[a2, a6], 
     SP[a4, a5], n] - S2[a1, a3, SP[a4, a5], SP[a2, a6], n] - 
    S2[a1, a3, SP[a4, a6], SP[a2, a5], n] - S2[a1, SP[a2, a3], a5, 
     SP[a4, a6], n] - S2[a1, SP[a2, a3], a6, SP[a4, a5], n] - 
    S2[a1, SP[a2, a3], SP[a4, a5], a6, n] - S2[a1, SP[a2, a3], SP[a4, a6], 
     a5, n] - S2[a1, SP[a3, a4], a5, SP[a2, a6], n] - 
    S2[a1, SP[a3, a4], a6, SP[a2, a5], n] - S2[a1, SP[a3, a4], SP[a2, a5], 
     a6, n] - S2[a1, SP[a3, a4], SP[a2, a6], a5, n] - 
    S2[a1, a4, n]*S2[a2, a6, a3, a5, n] + S2[a2, a6, SP[a1, a3], SP[a4, a5], 
     n] + S2[a2, SP[a1, a6], a3, SP[a4, a5], n] + 
    S2[a2, SP[a1, a6], SP[a3, a4], a5, n] - S2[a3, a1, SP[a2, a5], 
     SP[a4, a6], n] - S2[a3, a1, SP[a2, a6], SP[a4, a5], n] - 
    S2[a3, a1, SP[a4, a5], SP[a2, a6], n] - S2[a3, a1, SP[a4, a6], 
     SP[a2, a5], n] - S2[a3, SP[a1, a5], a2, SP[a4, a6], n] - 
    S2[a3, SP[a1, a5], a4, SP[a2, a6], n] - S2[a3, SP[a1, a5], SP[a2, a6], 
     a4, n] - S2[a3, SP[a1, a5], SP[a4, a6], a2, n] - 
    S2[a3, SP[a1, a6], a2, SP[a4, a5], n] - S2[a3, SP[a1, a6], a4, 
     SP[a2, a5], n] - S2[a3, SP[a1, a6], SP[a2, a5], a4, n] - 
    S2[a3, SP[a1, a6], SP[a4, a5], a2, n] + S2[SP[a1, a2], a6, a3, 
     SP[a4, a5], n] + S2[SP[a1, a2], a6, SP[a3, a4], a5, n] + 
    S2[SP[a1, a2], SP[a4, a6], a3, a5, n] - S2[SP[a1, a3], a2, a5, 
     SP[a4, a6], n] - S2[SP[a1, a3], a2, a6, SP[a4, a5], n] - 
    S2[SP[a1, a3], a2, SP[a4, a5], a6, n] - S2[SP[a1, a3], a2, SP[a4, a6], 
     a5, n] - S2[SP[a1, a3], a4, a5, SP[a2, a6], n] - 
    S2[SP[a1, a3], a4, a6, SP[a2, a5], n] - S2[SP[a1, a3], a4, SP[a2, a5], 
     a6, n] - S2[SP[a1, a3], a4, SP[a2, a6], a5, n] - 
    S2[SP[a1, a3], a5, a2, SP[a4, a6], n] - S2[SP[a1, a3], a5, a4, 
     SP[a2, a6], n] - S2[SP[a1, a3], a5, SP[a2, a6], a4, n] - 
    S2[SP[a1, a3], a5, SP[a4, a6], a2, n] - S2[SP[a1, a3], a6, a2, 
     SP[a4, a5], n] - S2[SP[a1, a3], a6, a4, SP[a2, a5], n] - 
    S2[SP[a1, a3], a6, SP[a2, a5], a4, n] - S2[SP[a1, a3], a6, SP[a4, a5], 
     a2, n] - S2[SP[a1, a3], SP[a2, a5], a4, a6, n] - 
    S2[SP[a1, a3], SP[a2, a5], a6, a4, n] - S2[SP[a1, a3], SP[a2, a6], a4, 
     a5, n] - S2[SP[a1, a3], SP[a2, a6], a5, a4, n] - 
    S2[SP[a1, a3], SP[a4, a5], a2, a6, n] - S2[SP[a1, a3], SP[a4, a5], a6, 
     a2, n] - S2[SP[a1, a3], SP[a4, a6], a2, a5, n] - 
    S2[SP[a1, a3], SP[a4, a6], a5, a2, n] + S2[a1, a2, a3, a5, SP[a4, a6], 
     n] + S2[a1, a2, a3, a6, SP[a4, a5], n] + S2[a1, a2, a3, SP[a4, a5], a6, 
     n] + S2[a1, a2, a3, SP[a4, a6], a5, n] + 
    S2[a6, n]*S2[a1, a2, a4, a5, a3, n] - 
    S2[a3, n]*S2[a1, a2, a4, a5, a6, n] - 
    S2[a3, n]*S2[a1, a2, a4, a6, a5, n] - S2[a1, a2, a4, a6, SP[a3, a5], n] - 
    S2[a1, a2, a4, SP[a3, a5], a6, n] - S2[a1, a2, a4, SP[a3, a6], a5, n] + 
    S2[a1, a2, a4, SP[a5, a6], a3, n] + S2[a6, n]*S2[a1, a2, a5, a3, a4, n] + 
    S2[a1, a2, a5, a3, SP[a4, a6], n] + S2[a6, n]*S2[a1, a2, a5, a4, a3, n] - 
    S2[a3, n]*S2[a1, a2, a5, a4, a6, n] - 
    S2[a3, n]*S2[a1, a2, a5, a6, a4, n] - S2[a1, a2, a5, a6, SP[a3, a4], n] - 
    S2[a1, a2, a5, SP[a3, a4], a6, n] + S2[a1, a2, a5, SP[a4, a6], a3, n] + 
    S2[a4, n]*S2[a1, a2, a6, a3, a5, n] - 
    S2[a3, n]*S2[a1, a2, a6, a4, a5, n] - S2[a1, a2, a6, a4, SP[a3, a5], n] - 
    S2[a3, n]*S2[a1, a2, a6, a5, a4, n] - S2[a1, a2, a6, a5, SP[a3, a4], n] - 
    S2[a1, a2, a6, SP[a3, a4], a5, n] - S2[a1, a2, a6, SP[a3, a5], a4, n] - 
    S2[a1, a2, SP[a3, a5], a4, a6, n] - S2[a1, a2, SP[a3, a5], a6, a4, n] - 
    S2[a1, a2, SP[a3, a6], a4, a5, n] - S2[a1, a2, SP[a3, a6], a5, a4, n] + 
    S2[a1, a2, SP[a4, a6], a5, a3, n] + S2[a1, a2, SP[a5, a6], a3, a4, n] + 
    S2[a1, a2, SP[a5, a6], a4, a3, n] + S2[a1, a3, a2, a5, SP[a4, a6], n] + 
    S2[a1, a3, a2, a6, SP[a4, a5], n] + S2[a1, a3, a2, SP[a4, a5], a6, n] + 
    S2[a1, a3, a2, SP[a4, a6], a5, n] + S2[a1, a3, a4, a5, SP[a2, a6], n] + 
    S2[a1, a3, a4, a6, SP[a2, a5], n] + S2[a1, a3, a4, SP[a2, a5], a6, n] + 
    S2[a1, a3, a4, SP[a2, a6], a5, n] + S2[a1, a3, a5, a2, SP[a4, a6], n] + 
    S2[a1, a3, a5, a4, SP[a2, a6], n] + S2[a1, a3, a5, SP[a2, a6], a4, n] + 
    S2[a1, a3, a5, SP[a4, a6], a2, n] + S2[a1, a3, a6, a2, SP[a4, a5], n] + 
    S2[a1, a3, a6, a4, SP[a2, a5], n] + S2[a1, a3, a6, SP[a2, a5], a4, n] + 
    S2[a1, a3, a6, SP[a4, a5], a2, n] + S2[a1, a3, SP[a2, a5], a4, a6, n] + 
    S2[a1, a3, SP[a2, a5], a6, a4, n] + S2[a1, a3, SP[a2, a6], a4, a5, n] + 
    S2[a1, a3, SP[a2, a6], a5, a4, n] + S2[a1, a3, SP[a4, a5], a2, a6, n] + 
    S2[a1, a3, SP[a4, a5], a6, a2, n] + S2[a1, a3, SP[a4, a6], a2, a5, n] + 
    S2[a1, a3, SP[a4, a6], a5, a2, n] + S2[a6, n]*S2[a1, a4, a2, a5, a3, n] - 
    S2[a3, n]*S2[a1, a4, a2, a5, a6, n] - 
    S2[a3, n]*S2[a1, a4, a2, a6, a5, n] - S2[a1, a4, a2, a6, SP[a3, a5], n] - 
    S2[a1, a4, a2, SP[a3, a5], a6, n] - S2[a1, a4, a2, SP[a3, a6], a5, n] + 
    S2[a1, a4, a2, SP[a5, a6], a3, n] + S2[a1, a4, a3, a5, SP[a2, a6], n] + 
    S2[a1, a4, a3, a6, SP[a2, a5], n] + S2[a1, a4, a3, SP[a2, a5], a6, n] + 
    S2[a1, a4, a3, SP[a2, a6], a5, n] + S2[a6, n]*S2[a1, a4, a5, a2, a3, n] - 
    S2[a3, n]*S2[a1, a4, a5, a2, a6, n] + 
    S2[a6, n]*S2[a1, a4, a5, a3, a2, n] + S2[a1, a4, a5, a3, SP[a2, a6], n] - 
    S2[a3, n]*S2[a1, a4, a5, a6, a2, n] - S2[a1, a4, a5, a6, SP[a2, a3], n] - 
    S2[a1, a4, a5, SP[a2, a3], a6, n] + S2[a1, a4, a5, SP[a2, a6], a3, n] - 
    S2[a3, n]*S2[a1, a4, a6, a2, a5, n] - S2[a1, a4, a6, a2, SP[a3, a5], n] + 
    S2[a2, n]*S2[a1, a4, a6, a3, a5, n] + S2[a1, a4, a6, a3, SP[a2, a5], n] - 
    S2[a3, n]*S2[a1, a4, a6, a5, a2, n] - S2[a1, a4, a6, a5, SP[a2, a3], n] - 
    S2[a1, a4, a6, SP[a3, a5], a2, n] + S2[a1, a4, SP[a2, a6], a3, a5, n] + 
    S2[a1, a4, SP[a2, a6], a5, a3, n] - S2[a1, a4, SP[a3, a5], a2, a6, n] - 
    S2[a1, a4, SP[a3, a5], a6, a2, n] - S2[a1, a4, SP[a3, a6], a2, a5, n] - 
    S2[a1, a4, SP[a3, a6], a5, a2, n] + S2[a1, a4, SP[a5, a6], a2, a3, n] + 
    S2[a1, a4, SP[a5, a6], a3, a2, n] + S2[a6, n]*S2[a1, a5, a2, a3, a4, n] + 
    S2[a1, a5, a2, a3, SP[a4, a6], n] + S2[a6, n]*S2[a1, a5, a2, a4, a3, n] - 
    S2[a3, n]*S2[a1, a5, a2, a4, a6, n] - 
    S2[a3, n]*S2[a1, a5, a2, a6, a4, n] - S2[a1, a5, a2, a6, SP[a3, a4], n] - 
    S2[a1, a5, a2, SP[a3, a4], a6, n] + S2[a1, a5, a2, SP[a4, a6], a3, n] + 
    S2[a6, n]*S2[a1, a5, a3, a2, a4, n] + S2[a1, a5, a3, a2, SP[a4, a6], n] + 
    S2[a6, n]*S2[a1, a5, a3, a4, a2, n] + S2[a1, a5, a3, a4, SP[a2, a6], n] + 
    S2[a1, a5, a3, SP[a2, a6], a4, n] + S2[a1, a5, a3, SP[a4, a6], a2, n] + 
    S2[a6, n]*S2[a1, a5, a4, a2, a3, n] - 
    S2[a3, n]*S2[a1, a5, a4, a2, a6, n] + 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] + S2[a1, a5, a4, a3, SP[a2, a6], n] - 
    S2[a3, n]*S2[a1, a5, a4, a6, a2, n] - S2[a1, a5, a4, a6, SP[a2, a3], n] - 
    S2[a1, a5, a4, SP[a2, a3], a6, n] + S2[a1, a5, a4, SP[a2, a6], a3, n] - 
    S2[a3, n]*S2[a1, a5, a6, a2, a4, n] - S2[a1, a5, a6, a2, SP[a3, a4], n] - 
    S2[a3, n]*S2[a1, a5, a6, a4, a2, n] - S2[a1, a5, a6, a4, SP[a2, a3], n] - 
    S2[a1, a5, a6, SP[a2, a3], a4, n] - S2[a1, a5, a6, SP[a3, a4], a2, n] - 
    S2[a1, a5, SP[a2, a3], a4, a6, n] - S2[a1, a5, SP[a2, a3], a6, a4, n] + 
    S2[a1, a5, SP[a2, a6], a3, a4, n] + S2[a1, a5, SP[a2, a6], a4, a3, n] - 
    S2[a1, a5, SP[a3, a4], a2, a6, n] - S2[a1, a5, SP[a3, a4], a6, a2, n] + 
    S2[a1, a5, SP[a4, a6], a2, a3, n] + S2[a1, a5, SP[a4, a6], a3, a2, n] - 
    S2[a3, n]*S2[a1, a6, a2, a4, a5, n] - S2[a1, a6, a2, a4, SP[a3, a5], n] - 
    S2[a3, n]*S2[a1, a6, a2, a5, a4, n] - S2[a1, a6, a2, a5, SP[a3, a4], n] - 
    S2[a1, a6, a2, SP[a3, a4], a5, n] - S2[a1, a6, a2, SP[a3, a5], a4, n] + 
    S2[a2, n]*S2[a1, a6, a3, a4, a5, n] + S2[a1, a6, a3, a4, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a6, a3, a5, a4, n] + S2[a1, a6, a3, a5, SP[a2, a4], n] + 
    S2[a1, a6, a3, SP[a2, a4], a5, n] + S2[a1, a6, a3, SP[a2, a5], a4, n] - 
    S2[a3, n]*S2[a1, a6, a4, a2, a5, n] - S2[a1, a6, a4, a2, SP[a3, a5], n] + 
    S2[a2, n]*S2[a1, a6, a4, a3, a5, n] + S2[a1, a6, a4, a3, SP[a2, a5], n] - 
    S2[a3, n]*S2[a1, a6, a4, a5, a2, n] - S2[a1, a6, a4, a5, SP[a2, a3], n] - 
    S2[a1, a6, a4, SP[a3, a5], a2, n] - S2[a3, n]*S2[a1, a6, a5, a2, a4, n] - 
    S2[a1, a6, a5, a2, SP[a3, a4], n] - S2[a3, n]*S2[a1, a6, a5, a4, a2, n] - 
    S2[a1, a6, a5, a4, SP[a2, a3], n] - S2[a1, a6, a5, SP[a2, a3], a4, n] - 
    S2[a1, a6, a5, SP[a3, a4], a2, n] + S2[a1, a6, SP[a2, a4], a3, a5, n] - 
    S2[a1, a6, SP[a3, a4], a2, a5, n] - S2[a1, a6, SP[a3, a4], a5, a2, n] - 
    S2[a1, a6, SP[a3, a5], a2, a4, n] - S2[a1, a6, SP[a3, a5], a4, a2, n] + 
    S2[a1, SP[a2, a4], a6, a3, a5, n] + S2[a1, SP[a2, a6], a3, a4, a5, n] + 
    S2[a1, SP[a2, a6], a3, a5, a4, n] + S2[a1, SP[a2, a6], a4, a3, a5, n] + 
    S2[a1, SP[a2, a6], a4, a5, a3, n] + S2[a1, SP[a2, a6], a5, a3, a4, n] + 
    S2[a1, SP[a2, a6], a5, a4, a3, n] - S2[a1, SP[a3, a5], a2, a4, a6, n] - 
    S2[a1, SP[a3, a5], a2, a6, a4, n] - S2[a1, SP[a3, a5], a4, a2, a6, n] - 
    S2[a1, SP[a3, a5], a4, a6, a2, n] - S2[a1, SP[a3, a5], a6, a2, a4, n] - 
    S2[a1, SP[a3, a5], a6, a4, a2, n] - S2[a1, SP[a3, a6], a2, a4, a5, n] - 
    S2[a1, SP[a3, a6], a2, a5, a4, n] - S2[a1, SP[a3, a6], a4, a2, a5, n] - 
    S2[a1, SP[a3, a6], a4, a5, a2, n] - S2[a1, SP[a3, a6], a5, a2, a4, n] - 
    S2[a1, SP[a3, a6], a5, a4, a2, n] + S2[a1, SP[a4, a6], a2, a5, a3, n] + 
    S2[a1, SP[a4, a6], a5, a2, a3, n] + S2[a1, SP[a4, a6], a5, a3, a2, n] + 
    S2[a1, SP[a5, a6], a2, a3, a4, n] + S2[a1, SP[a5, a6], a2, a4, a3, n] + 
    S2[a1, SP[a5, a6], a3, a2, a4, n] + S2[a1, SP[a5, a6], a3, a4, a2, n] + 
    S2[a1, SP[a5, a6], a4, a2, a3, n] + S2[a1, SP[a5, a6], a4, a3, a2, n] - 
    S2[a2, a1, a6, a3, SP[a4, a5], n] - S2[a2, a1, a6, SP[a3, a4], a5, n] - 
    S2[a2, a1, SP[a4, a6], a3, a5, n] - S2[a2, a6, a1, a3, SP[a4, a5], n] - 
    S2[a2, a6, a1, SP[a3, a4], a5, n] - S2[a2, a6, a3, a1, SP[a4, a5], n] - 
    S2[a2, a6, a3, SP[a1, a5], a4, n] - S2[a2, a6, SP[a1, a3], a4, a5, n] - 
    S2[a2, a6, SP[a1, a3], a5, a4, n] - S2[a2, SP[a1, a6], a3, a4, a5, n] - 
    S2[a2, SP[a1, a6], a3, a5, a4, n] - S2[a2, SP[a1, a6], a4, a3, a5, n] + 
    S2[a3, a1, a2, a5, SP[a4, a6], n] + S2[a3, a1, a2, a6, SP[a4, a5], n] + 
    S2[a3, a1, a2, SP[a4, a5], a6, n] + S2[a3, a1, a2, SP[a4, a6], a5, n] + 
    S2[a3, a1, a4, a5, SP[a2, a6], n] + S2[a3, a1, a4, a6, SP[a2, a5], n] + 
    S2[a3, a1, a4, SP[a2, a5], a6, n] + S2[a3, a1, a4, SP[a2, a6], a5, n] + 
    S2[a3, a1, a5, a2, SP[a4, a6], n] + S2[a3, a1, a5, a4, SP[a2, a6], n] + 
    S2[a3, a1, a5, SP[a2, a6], a4, n] + S2[a3, a1, a5, SP[a4, a6], a2, n] + 
    S2[a3, a1, a6, a2, SP[a4, a5], n] + S2[a3, a1, a6, a4, SP[a2, a5], n] + 
    S2[a3, a1, a6, SP[a2, a5], a4, n] + S2[a3, a1, a6, SP[a4, a5], a2, n] + 
    S2[a3, a1, SP[a2, a5], a4, a6, n] + S2[a3, a1, SP[a2, a5], a6, a4, n] + 
    S2[a3, a1, SP[a2, a6], a4, a5, n] + S2[a3, a1, SP[a2, a6], a5, a4, n] + 
    S2[a3, a1, SP[a4, a5], a2, a6, n] + S2[a3, a1, SP[a4, a5], a6, a2, n] + 
    S2[a3, a1, SP[a4, a6], a2, a5, n] + S2[a3, a1, SP[a4, a6], a5, a2, n] - 
    S2[a6, n]*S2[a3, a5, a1, a2, a4, n] - 
    S2[a6, n]*S2[a3, a5, a1, a4, a2, n] + S2[a3, a6, a1, a2, SP[a4, a5], n] + 
    S2[a3, a6, a1, a4, SP[a2, a5], n] + S2[a3, a6, a1, SP[a2, a5], a4, n] + 
    S2[a3, a6, a1, SP[a4, a5], a2, n] + S2[a3, a6, SP[a1, a5], a2, a4, n] + 
    S2[a3, a6, SP[a1, a5], a4, a2, n] + S2[a3, SP[a1, a5], a2, a4, a6, n] + 
    S2[a3, SP[a1, a5], a2, a6, a4, n] + S2[a3, SP[a1, a5], a4, a2, a6, n] + 
    S2[a3, SP[a1, a5], a4, a6, a2, n] + S2[a3, SP[a1, a5], a6, a2, a4, n] + 
    S2[a3, SP[a1, a5], a6, a4, a2, n] + S2[a3, SP[a1, a6], a2, a4, a5, n] + 
    S2[a3, SP[a1, a6], a2, a5, a4, n] + S2[a3, SP[a1, a6], a4, a2, a5, n] + 
    S2[a3, SP[a1, a6], a4, a5, a2, n] + S2[a3, SP[a1, a6], a5, a2, a4, n] + 
    S2[a3, SP[a1, a6], a5, a4, a2, n] - S2[a3, SP[a5, a6], a1, a2, a4, n] - 
    S2[a3, SP[a5, a6], a1, a4, a2, n] - S2[a3, n]*S2[a6, a1, a2, a4, a5, n] - 
    S2[a6, a1, a2, a4, SP[a3, a5], n] - S2[a3, n]*S2[a6, a1, a2, a5, a4, n] - 
    S2[a6, a1, a2, a5, SP[a3, a4], n] - S2[a6, a1, a2, SP[a3, a4], a5, n] - 
    S2[a6, a1, a2, SP[a3, a5], a4, n] + S2[a2, n]*S2[a6, a1, a3, a4, a5, n] + 
    S2[a6, a1, a3, a4, SP[a2, a5], n] + S2[a2, n]*S2[a6, a1, a3, a5, a4, n] + 
    S2[a6, a1, a3, a5, SP[a2, a4], n] + S2[a6, a1, a3, SP[a2, a4], a5, n] + 
    S2[a6, a1, a3, SP[a2, a5], a4, n] - S2[a3, n]*S2[a6, a1, a4, a2, a5, n] - 
    S2[a6, a1, a4, a2, SP[a3, a5], n] + S2[a2, n]*S2[a6, a1, a4, a3, a5, n] + 
    S2[a6, a1, a4, a3, SP[a2, a5], n] - S2[a3, n]*S2[a6, a1, a4, a5, a2, n] - 
    S2[a6, a1, a4, a5, SP[a2, a3], n] - S2[a6, a1, a4, SP[a3, a5], a2, n] - 
    S2[a3, n]*S2[a6, a1, a5, a2, a4, n] - S2[a6, a1, a5, a2, SP[a3, a4], n] - 
    S2[a3, n]*S2[a6, a1, a5, a4, a2, n] - S2[a6, a1, a5, a4, SP[a2, a3], n] - 
    S2[a6, a1, a5, SP[a2, a3], a4, n] - S2[a6, a1, a5, SP[a3, a4], a2, n] + 
    S2[a6, a1, SP[a2, a4], a3, a5, n] - S2[a6, a1, SP[a3, a4], a2, a5, n] - 
    S2[a6, a1, SP[a3, a4], a5, a2, n] - S2[a6, a1, SP[a3, a5], a2, a4, n] - 
    S2[a6, a1, SP[a3, a5], a4, a2, n] + S2[a2, n]*S2[a6, a3, a1, a4, a5, n] + 
    S2[a6, a3, a1, a4, SP[a2, a5], n] + S2[a2, n]*S2[a6, a3, a1, a5, a4, n] + 
    S2[a6, a3, a1, a5, SP[a2, a4], n] + S2[a6, a3, a1, SP[a2, a4], a5, n] + 
    S2[a6, a3, a1, SP[a2, a5], a4, n] + S2[a2, n]*S2[a6, a3, a5, a1, a4, n] + 
    S2[a6, a3, a5, a1, SP[a2, a4], n] + S2[a6, a3, a5, SP[a1, a2], a4, n] + 
    S2[a6, a3, SP[a1, a2], a4, a5, n] + S2[a6, a3, SP[a1, a2], a5, a4, n] + 
    S2[a6, a3, SP[a2, a5], a1, a4, n] + S2[a6, SP[a1, a2], a3, a4, a5, n] + 
    S2[a6, SP[a1, a2], a3, a5, a4, n] + S2[a6, SP[a1, a2], a4, a3, a5, n] - 
    S2[a6, SP[a1, a3], a2, a4, a5, n] - S2[a6, SP[a1, a3], a2, a5, a4, n] - 
    S2[a6, SP[a1, a3], a4, a2, a5, n] - S2[a6, SP[a1, a3], a4, a5, a2, n] - 
    S2[a6, SP[a1, a3], a5, a2, a4, n] - S2[a6, SP[a1, a3], a5, a4, a2, n] + 
    S2[a6, SP[a2, a3], a1, a4, a5, n] + S2[a6, SP[a2, a3], a1, a5, a4, n] + 
    S2[a6, SP[a2, a3], a5, a1, a4, n] + S2[SP[a1, a4], a2, a6, a3, a5, n] + 
    S2[SP[a1, a6], a2, a4, a5, a3, n] + S2[SP[a1, a6], a2, a5, a3, a4, n] + 
    S2[SP[a1, a6], a2, a5, a4, a3, n] + S2[SP[a1, a6], a4, a2, a5, a3, n] + 
    S2[SP[a1, a6], a4, a5, a2, a3, n] + S2[SP[a1, a6], a4, a5, a3, a2, n] + 
    S2[SP[a1, a6], a5, a2, a3, a4, n] + S2[SP[a1, a6], a5, a2, a4, a3, n] + 
    S2[SP[a1, a6], a5, a3, a2, a4, n] + S2[SP[a1, a6], a5, a3, a4, a2, n] + 
    S2[SP[a1, a6], a5, a4, a2, a3, n] + S2[SP[a1, a6], a5, a4, a3, a2, n] + 
    S2[SP[a2, a6], a1, a3, a4, a5, n] + S2[SP[a2, a6], a1, a3, a5, a4, n] + 
    S2[SP[a2, a6], a1, a4, a3, a5, n] + S2[SP[a2, a6], a3, a1, a4, a5, n] + 
    S2[SP[a2, a6], a3, a1, a5, a4, n] + S2[SP[a2, a6], a3, a5, a1, a4, n] - 
    S2[SP[a3, a6], a1, a2, a4, a5, n] - S2[SP[a3, a6], a1, a2, a5, a4, n] - 
    S2[SP[a3, a6], a1, a4, a2, a5, n] - S2[SP[a3, a6], a1, a4, a5, a2, n] - 
    S2[SP[a3, a6], a1, a5, a2, a4, n] - S2[SP[a3, a6], a1, a5, a4, a2, n] - 
    S2[SP[a3, a6], a5, a1, a2, a4, n] - S2[SP[a3, a6], a5, a1, a4, a2, n] - 
    S2[a6, a2, a1, a3, a4, a5, n] - S2[a6, a2, a1, a3, a5, a4, n] - 
    S2[a6, a2, a1, a4, a3, a5, n] - S2[a6, a2, a3, a1, a4, a5, n] - 
    S2[a6, a2, a3, a1, a5, a4, n] - S2[a6, a2, a3, a5, a1, a4, n] - 
    S2[a6, a3, a2, a1, a4, a5, n] - S2[a6, a3, a2, a1, a5, a4, n] - 
    S2[a6, a3, a2, a5, a1, a4, n] - S2[a6, a3, a5, a2, a1, a4, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a4_, a1_, a2_, a6_, a5_, a3_, n_] :> 
  -(S2[a1, a2, a4, n]*S2[a3, a5, a6, n]) - S2[a1, a4, a2, n]*
     S2[a3, a5, a6, n] - S2[SP[a1, a3], SP[a2, a5], SP[a4, a6], n] - 
    S2[SP[a1, a3], SP[a4, a5], SP[a2, a6], n] + S2[a1, a3, SP[a2, a5], 
     SP[a4, a6], n] + S2[a1, a3, SP[a4, a5], SP[a2, a6], n] + 
    S2[a1, SP[a2, a3], a5, SP[a4, a6], n] + S2[a1, SP[a2, a3], SP[a4, a5], 
     a6, n] + S2[a1, SP[a3, a4], a5, SP[a2, a6], n] + 
    S2[a1, SP[a3, a4], SP[a2, a5], a6, n] - S2[a1, a4, n]*
     S2[a2, a6, a5, a3, n] + S2[a2, a6, SP[a1, a5], SP[a3, a4], n] + 
    S2[a2, SP[a1, a6], a5, SP[a3, a4], n] + S2[a2, SP[a1, a6], SP[a4, a5], 
     a3, n] + S2[a3, a1, SP[a2, a5], SP[a4, a6], n] + 
    S2[a3, a1, SP[a4, a5], SP[a2, a6], n] + S2[a3, SP[a1, a5], a2, 
     SP[a4, a6], n] + S2[a3, SP[a1, a5], a4, SP[a2, a6], n] + 
    S2[a3, SP[a1, a5], SP[a2, a6], a4, n] + S2[a3, SP[a1, a5], SP[a4, a6], 
     a2, n] + S2[SP[a1, a2], a6, a5, SP[a3, a4], n] + 
    S2[SP[a1, a2], a6, SP[a4, a5], a3, n] + S2[SP[a1, a2], SP[a4, a6], a5, 
     a3, n] + S2[SP[a1, a3], a2, a5, SP[a4, a6], n] + 
    S2[SP[a1, a3], a2, SP[a4, a5], a6, n] + S2[SP[a1, a3], a4, a5, 
     SP[a2, a6], n] + S2[SP[a1, a3], a4, SP[a2, a5], a6, n] + 
    S2[SP[a1, a3], a5, a2, SP[a4, a6], n] + S2[SP[a1, a3], a5, a4, 
     SP[a2, a6], n] + S2[SP[a1, a3], a5, SP[a2, a6], a4, n] + 
    S2[SP[a1, a3], a5, SP[a4, a6], a2, n] + S2[SP[a1, a3], SP[a2, a5], a4, 
     a6, n] + S2[SP[a1, a3], SP[a2, a5], a6, a4, n] + 
    S2[SP[a1, a3], SP[a4, a5], a2, a6, n] + S2[SP[a1, a3], SP[a4, a5], a6, 
     a2, n] - S2[a1, a2, a3, a5, SP[a4, a6], n] - S2[a1, a2, a3, SP[a4, a5], 
     a6, n] - S2[a6, n]*S2[a1, a2, a4, a5, a3, n] + 
    S2[a3, n]*S2[a1, a2, a4, a5, a6, n] + S2[a1, a2, a4, SP[a3, a5], a6, n] - 
    S2[a1, a2, a4, SP[a5, a6], a3, n] - S2[a6, n]*S2[a1, a2, a5, a3, a4, n] - 
    S2[a1, a2, a5, a3, SP[a4, a6], n] - S2[a6, n]*S2[a1, a2, a5, a4, a3, n] + 
    S2[a3, n]*S2[a1, a2, a5, a4, a6, n] + 
    S2[a3, n]*S2[a1, a2, a5, a6, a4, n] + S2[a1, a2, a5, a6, SP[a3, a4], n] + 
    S2[a1, a2, a5, SP[a3, a4], a6, n] - S2[a1, a2, a5, SP[a4, a6], a3, n] + 
    S2[a4, n]*S2[a1, a2, a6, a5, a3, n] + S2[a1, a2, SP[a3, a5], a4, a6, n] + 
    S2[a1, a2, SP[a3, a5], a6, a4, n] - S2[a1, a2, SP[a4, a6], a5, a3, n] - 
    S2[a1, a2, SP[a5, a6], a3, a4, n] - S2[a1, a2, SP[a5, a6], a4, a3, n] - 
    S2[a1, a3, a2, a5, SP[a4, a6], n] - S2[a1, a3, a2, SP[a4, a5], a6, n] - 
    S2[a1, a3, a4, a5, SP[a2, a6], n] - S2[a1, a3, a4, SP[a2, a5], a6, n] - 
    S2[a1, a3, a5, a2, SP[a4, a6], n] - S2[a1, a3, a5, a4, SP[a2, a6], n] - 
    S2[a1, a3, a5, SP[a2, a6], a4, n] - S2[a1, a3, a5, SP[a4, a6], a2, n] - 
    S2[a1, a3, SP[a2, a5], a4, a6, n] - S2[a1, a3, SP[a2, a5], a6, a4, n] - 
    S2[a1, a3, SP[a4, a5], a2, a6, n] - S2[a1, a3, SP[a4, a5], a6, a2, n] - 
    S2[a6, n]*S2[a1, a4, a2, a5, a3, n] + 
    S2[a3, n]*S2[a1, a4, a2, a5, a6, n] + S2[a1, a4, a2, SP[a3, a5], a6, n] - 
    S2[a1, a4, a2, SP[a5, a6], a3, n] - S2[a1, a4, a3, a5, SP[a2, a6], n] - 
    S2[a1, a4, a3, SP[a2, a5], a6, n] - S2[a6, n]*S2[a1, a4, a5, a2, a3, n] + 
    S2[a3, n]*S2[a1, a4, a5, a2, a6, n] - 
    S2[a6, n]*S2[a1, a4, a5, a3, a2, n] - S2[a1, a4, a5, a3, SP[a2, a6], n] + 
    S2[a3, n]*S2[a1, a4, a5, a6, a2, n] + S2[a1, a4, a5, a6, SP[a2, a3], n] + 
    S2[a1, a4, a5, SP[a2, a3], a6, n] - S2[a1, a4, a5, SP[a2, a6], a3, n] + 
    S2[a2, n]*S2[a1, a4, a6, a5, a3, n] + S2[a1, a4, a6, a5, SP[a2, a3], n] + 
    S2[a1, a4, a6, SP[a2, a5], a3, n] + S2[a1, a4, SP[a3, a5], a2, a6, n] + 
    S2[a1, a4, SP[a3, a5], a6, a2, n] - S2[a1, a4, SP[a5, a6], a2, a3, n] - 
    S2[a1, a4, SP[a5, a6], a3, a2, n] - S2[a6, n]*S2[a1, a5, a2, a3, a4, n] - 
    S2[a1, a5, a2, a3, SP[a4, a6], n] - S2[a6, n]*S2[a1, a5, a2, a4, a3, n] + 
    S2[a3, n]*S2[a1, a5, a2, a4, a6, n] + 
    S2[a3, n]*S2[a1, a5, a2, a6, a4, n] + S2[a1, a5, a2, a6, SP[a3, a4], n] + 
    S2[a1, a5, a2, SP[a3, a4], a6, n] - S2[a1, a5, a2, SP[a4, a6], a3, n] - 
    S2[a6, n]*S2[a1, a5, a3, a2, a4, n] - S2[a1, a5, a3, a2, SP[a4, a6], n] - 
    S2[a6, n]*S2[a1, a5, a3, a4, a2, n] - S2[a1, a5, a3, a4, SP[a2, a6], n] - 
    S2[a1, a5, a3, SP[a2, a6], a4, n] - S2[a1, a5, a3, SP[a4, a6], a2, n] - 
    S2[a6, n]*S2[a1, a5, a4, a2, a3, n] + 
    S2[a3, n]*S2[a1, a5, a4, a2, a6, n] - 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] - S2[a1, a5, a4, a3, SP[a2, a6], n] + 
    S2[a3, n]*S2[a1, a5, a4, a6, a2, n] + S2[a1, a5, a4, a6, SP[a2, a3], n] + 
    S2[a1, a5, a4, SP[a2, a3], a6, n] - S2[a1, a5, a4, SP[a2, a6], a3, n] + 
    S2[a3, n]*S2[a1, a5, a6, a2, a4, n] + S2[a1, a5, a6, a2, SP[a3, a4], n] + 
    S2[a3, n]*S2[a1, a5, a6, a4, a2, n] + S2[a1, a5, a6, a4, SP[a2, a3], n] + 
    S2[a1, a5, a6, SP[a2, a3], a4, n] + S2[a1, a5, a6, SP[a3, a4], a2, n] + 
    S2[a1, a5, SP[a2, a3], a4, a6, n] + S2[a1, a5, SP[a2, a3], a6, a4, n] - 
    S2[a1, a5, SP[a2, a6], a3, a4, n] - S2[a1, a5, SP[a2, a6], a4, a3, n] + 
    S2[a1, a5, SP[a3, a4], a2, a6, n] + S2[a1, a5, SP[a3, a4], a6, a2, n] - 
    S2[a1, a5, SP[a4, a6], a2, a3, n] - S2[a1, a5, SP[a4, a6], a3, a2, n] + 
    S2[a2, n]*S2[a1, a6, a4, a5, a3, n] + S2[a1, a6, a4, a5, SP[a2, a3], n] + 
    S2[a1, a6, a4, SP[a2, a5], a3, n] + S2[a2, n]*S2[a1, a6, a5, a3, a4, n] + 
    S2[a1, a6, a5, a3, SP[a2, a4], n] + S2[a2, n]*S2[a1, a6, a5, a4, a3, n] + 
    S2[a1, a6, a5, a4, SP[a2, a3], n] + S2[a1, a6, a5, SP[a2, a3], a4, n] + 
    S2[a1, a6, a5, SP[a2, a4], a3, n] + S2[a1, a6, SP[a2, a4], a5, a3, n] + 
    S2[a1, a6, SP[a2, a5], a3, a4, n] + S2[a1, a6, SP[a2, a5], a4, a3, n] + 
    S2[a1, SP[a2, a4], a6, a5, a3, n] + S2[a1, SP[a3, a5], a2, a4, a6, n] + 
    S2[a1, SP[a3, a5], a2, a6, a4, n] + S2[a1, SP[a3, a5], a4, a2, a6, n] + 
    S2[a1, SP[a3, a5], a4, a6, a2, n] + S2[a1, SP[a3, a5], a6, a2, a4, n] + 
    S2[a1, SP[a3, a5], a6, a4, a2, n] - S2[a1, SP[a4, a6], a2, a5, a3, n] - 
    S2[a1, SP[a4, a6], a5, a2, a3, n] - S2[a1, SP[a4, a6], a5, a3, a2, n] - 
    S2[a1, SP[a5, a6], a2, a3, a4, n] - S2[a1, SP[a5, a6], a2, a4, a3, n] - 
    S2[a1, SP[a5, a6], a3, a2, a4, n] - S2[a1, SP[a5, a6], a3, a4, a2, n] - 
    S2[a1, SP[a5, a6], a4, a2, a3, n] - S2[a1, SP[a5, a6], a4, a3, a2, n] - 
    S2[a2, a1, a6, a5, SP[a3, a4], n] - S2[a2, a1, a6, SP[a4, a5], a3, n] - 
    S2[a2, a1, SP[a4, a6], a5, a3, n] - S2[a2, a6, a1, a5, SP[a3, a4], n] - 
    S2[a2, a6, a1, SP[a4, a5], a3, n] - S2[a2, a6, a5, a1, SP[a3, a4], n] - 
    S2[a2, a6, a5, SP[a1, a3], a4, n] - S2[a2, a6, SP[a1, a5], a3, a4, n] - 
    S2[a2, a6, SP[a1, a5], a4, a3, n] - S2[a2, SP[a1, a6], a4, a5, a3, n] - 
    S2[a2, SP[a1, a6], a5, a3, a4, n] - S2[a2, SP[a1, a6], a5, a4, a3, n] - 
    S2[a3, a1, a2, a5, SP[a4, a6], n] - S2[a3, a1, a2, SP[a4, a5], a6, n] - 
    S2[a3, a1, a4, a5, SP[a2, a6], n] - S2[a3, a1, a4, SP[a2, a5], a6, n] - 
    S2[a3, a1, a5, a2, SP[a4, a6], n] - S2[a3, a1, a5, a4, SP[a2, a6], n] - 
    S2[a3, a1, a5, SP[a2, a6], a4, n] - S2[a3, a1, a5, SP[a4, a6], a2, n] - 
    S2[a3, a1, SP[a2, a5], a4, a6, n] - S2[a3, a1, SP[a2, a5], a6, a4, n] - 
    S2[a3, a1, SP[a4, a5], a2, a6, n] - S2[a3, a1, SP[a4, a5], a6, a2, n] + 
    S2[a6, n]*S2[a3, a5, a1, a2, a4, n] + 
    S2[a6, n]*S2[a3, a5, a1, a4, a2, n] - S2[a3, SP[a1, a5], a2, a4, a6, n] - 
    S2[a3, SP[a1, a5], a2, a6, a4, n] - S2[a3, SP[a1, a5], a4, a2, a6, n] - 
    S2[a3, SP[a1, a5], a4, a6, a2, n] - S2[a3, SP[a1, a5], a6, a2, a4, n] - 
    S2[a3, SP[a1, a5], a6, a4, a2, n] + S2[a3, SP[a5, a6], a1, a2, a4, n] + 
    S2[a3, SP[a5, a6], a1, a4, a2, n] + S2[a2, n]*S2[a6, a1, a4, a5, a3, n] + 
    S2[a6, a1, a4, a5, SP[a2, a3], n] + S2[a6, a1, a4, SP[a2, a5], a3, n] + 
    S2[a2, n]*S2[a6, a1, a5, a3, a4, n] + S2[a6, a1, a5, a3, SP[a2, a4], n] + 
    S2[a2, n]*S2[a6, a1, a5, a4, a3, n] + S2[a6, a1, a5, a4, SP[a2, a3], n] + 
    S2[a6, a1, a5, SP[a2, a3], a4, n] + S2[a6, a1, a5, SP[a2, a4], a3, n] + 
    S2[a6, a1, SP[a2, a4], a5, a3, n] + S2[a6, a1, SP[a2, a5], a3, a4, n] + 
    S2[a6, a1, SP[a2, a5], a4, a3, n] - S2[a3, n]*S2[a6, a5, a1, a2, a4, n] - 
    S2[a6, a5, a1, a2, SP[a3, a4], n] + S2[a2, n]*S2[a6, a5, a1, a3, a4, n] + 
    S2[a6, a5, a1, a3, SP[a2, a4], n] - S2[a3, n]*S2[a6, a5, a1, a4, a2, n] + 
    S2[a2, n]*S2[a6, a5, a1, a4, a3, n] + S2[a6, a5, a1, SP[a2, a4], a3, n] - 
    S2[a6, a5, a1, SP[a3, a4], a2, n] + S2[a2, n]*S2[a6, a5, a3, a1, a4, n] + 
    S2[a6, a5, a3, a1, SP[a2, a4], n] + S2[a6, a5, a3, SP[a1, a2], a4, n] + 
    S2[a6, a5, SP[a1, a2], a3, a4, n] + S2[a6, a5, SP[a1, a2], a4, a3, n] - 
    S2[a6, a5, SP[a1, a3], a2, a4, n] - S2[a6, a5, SP[a1, a3], a4, a2, n] + 
    S2[a6, a5, SP[a2, a3], a1, a4, n] + S2[a6, SP[a1, a2], a4, a5, a3, n] + 
    S2[a6, SP[a1, a2], a5, a3, a4, n] + S2[a6, SP[a1, a2], a5, a4, a3, n] + 
    S2[a6, SP[a2, a5], a1, a3, a4, n] + S2[a6, SP[a2, a5], a1, a4, a3, n] + 
    S2[a6, SP[a2, a5], a3, a1, a4, n] - S2[a6, SP[a3, a5], a1, a2, a4, n] - 
    S2[a6, SP[a3, a5], a1, a4, a2, n] + S2[SP[a1, a4], a2, a6, a5, a3, n] - 
    S2[SP[a1, a6], a2, a4, a5, a3, n] - S2[SP[a1, a6], a2, a5, a3, a4, n] - 
    S2[SP[a1, a6], a2, a5, a4, a3, n] - S2[SP[a1, a6], a4, a2, a5, a3, n] - 
    S2[SP[a1, a6], a4, a5, a2, a3, n] - S2[SP[a1, a6], a4, a5, a3, a2, n] - 
    S2[SP[a1, a6], a5, a2, a3, a4, n] - S2[SP[a1, a6], a5, a2, a4, a3, n] - 
    S2[SP[a1, a6], a5, a3, a2, a4, n] - S2[SP[a1, a6], a5, a3, a4, a2, n] - 
    S2[SP[a1, a6], a5, a4, a2, a3, n] - S2[SP[a1, a6], a5, a4, a3, a2, n] + 
    S2[SP[a2, a6], a1, a4, a5, a3, n] + S2[SP[a2, a6], a1, a5, a3, a4, n] + 
    S2[SP[a2, a6], a1, a5, a4, a3, n] + S2[SP[a2, a6], a5, a1, a3, a4, n] + 
    S2[SP[a2, a6], a5, a1, a4, a3, n] + S2[SP[a2, a6], a5, a3, a1, a4, n] - 
    S2[a6, a2, a1, a4, a5, a3, n] - S2[a6, a2, a1, a5, a3, a4, n] - 
    S2[a6, a2, a1, a5, a4, a3, n] - S2[a6, a2, a5, a1, a3, a4, n] - 
    S2[a6, a2, a5, a1, a4, a3, n] - S2[a6, a2, a5, a3, a1, a4, n] - 
    S2[a6, a5, a2, a1, a3, a4, n] - S2[a6, a5, a2, a1, a4, a3, n] - 
    S2[a6, a5, a2, a3, a1, a4, n] - S2[a6, a5, a3, a2, a1, a4, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a4_, a1_, a3_, a2_, a5_, a6_, n_] :> 
  -(S2[a1, a3, a4, n]*S2[a2, a5, a6, n]) - S2[a1, a4, a3, n]*
     S2[a2, a5, a6, n] - S2[SP[a1, a2], SP[a3, a5], SP[a4, a6], n] - 
    S2[SP[a1, a2], SP[a4, a5], SP[a3, a6], n] + S2[a1, a2, SP[a3, a5], 
     SP[a4, a6], n] + S2[a1, a2, SP[a4, a5], SP[a3, a6], n] - 
    S2[a5, a6, n]*S2[a1, a3, a2, a4, n] - S2[a5, a6, n]*
     S2[a1, a3, a4, a2, n] + S2[a1, a3, SP[a2, a5], SP[a4, a6], n] + 
    S2[a1, a3, SP[a4, a5], SP[a2, a6], n] - S2[a5, a6, n]*
     S2[a1, a4, a3, a2, n] + S2[a1, a4, SP[a3, a5], SP[a2, a6], n] + 
    S2[a1, SP[a2, a3], a5, SP[a4, a6], n] + S2[a1, SP[a2, a3], SP[a4, a5], 
     a6, n] + S2[a1, SP[a2, a4], a5, SP[a3, a6], n] + 
    S2[a1, SP[a2, a4], SP[a3, a5], a6, n] + S2[a1, SP[a3, a5], a2, 
     SP[a4, a6], n] + S2[a1, SP[a3, a5], a4, SP[a2, a6], n] + 
    S2[a1, SP[a3, a5], SP[a2, a6], a4, n] + S2[a1, SP[a3, a5], SP[a4, a6], 
     a2, n] + S2[a1, SP[a4, a5], a3, SP[a2, a6], n] + 
    S2[a1, SP[a4, a5], SP[a3, a6], a2, n] + S2[a2, a1, SP[a3, a5], 
     SP[a4, a6], n] + S2[a2, a1, SP[a4, a5], SP[a3, a6], n] + 
    S2[a1, a4, n]*S2[a2, a3, a5, a6, n] + S2[a1, a4, n]*
     S2[a2, a3, a6, a5, n] - S2[a2, a3, SP[a1, a5], SP[a4, a6], n] - 
    S2[a2, a3, SP[a1, a6], SP[a4, a5], n] + S2[a1, a4, n]*
     S2[a2, a5, a3, a6, n] + S2[a1, a4, n]*S2[a2, a5, a6, a3, n] - 
    S2[a2, a5, SP[a1, a3], SP[a4, a6], n] - S2[a2, a5, SP[a1, a6], 
     SP[a3, a4], n] + S2[a1, a4, n]*S2[a2, a6, a3, a5, n] + 
    S2[a1, a4, n]*S2[a2, a6, a5, a3, n] - S2[a2, a6, SP[a1, a3], SP[a4, a5], 
     n] - S2[a2, a6, SP[a1, a5], SP[a3, a4], n] - S2[a2, SP[a1, a3], a5, 
     SP[a4, a6], n] - S2[a2, SP[a1, a3], a6, SP[a4, a5], n] - 
    S2[a2, SP[a1, a3], SP[a4, a5], a6, n] - S2[a2, SP[a1, a3], SP[a4, a6], 
     a5, n] + S2[a2, SP[a1, a5], a4, SP[a3, a6], n] - 
    S2[a2, SP[a1, a5], a6, SP[a3, a4], n] - S2[a2, SP[a1, a5], SP[a3, a4], 
     a6, n] + S2[a2, SP[a1, a5], SP[a3, a6], a4, n] - 
    S2[a2, SP[a1, a6], a3, SP[a4, a5], n] - S2[a2, SP[a1, a6], a5, 
     SP[a3, a4], n] - S2[a2, SP[a1, a6], SP[a3, a4], a5, n] - 
    S2[a2, SP[a1, a6], SP[a4, a5], a3, n] - S2[a1, a4, n]*
     S2[a5, a6, a2, a3, n] + S2[a5, a6, SP[a1, a2], SP[a3, a4], n] + 
    S2[a5, SP[a1, a6], a2, SP[a3, a4], n] + S2[a5, SP[a1, a6], SP[a2, a4], 
     a3, n] - S2[SP[a1, a2], a3, a6, SP[a4, a5], n] - 
    S2[SP[a1, a2], a3, SP[a4, a6], a5, n] + S2[SP[a1, a2], a4, a5, 
     SP[a3, a6], n] + S2[SP[a1, a2], a4, SP[a3, a5], a6, n] + 
    S2[SP[a1, a2], a5, a4, SP[a3, a6], n] - S2[SP[a1, a2], a5, a6, 
     SP[a3, a4], n] - S2[SP[a1, a2], a5, SP[a3, a4], a6, n] + 
    S2[SP[a1, a2], a5, SP[a3, a6], a4, n] - S2[SP[a1, a2], a6, a3, 
     SP[a4, a5], n] - S2[SP[a1, a2], a6, a5, SP[a3, a4], n] - 
    S2[SP[a1, a2], a6, SP[a3, a4], a5, n] - S2[SP[a1, a2], a6, SP[a4, a5], 
     a3, n] - S2[SP[a1, a2], SP[a3, a4], a5, a6, n] - 
    S2[SP[a1, a2], SP[a3, a4], a6, a5, n] + S2[SP[a1, a2], SP[a3, a5], a4, 
     a6, n] + S2[SP[a1, a2], SP[a3, a5], a6, a4, n] - 
    S2[SP[a1, a2], SP[a4, a6], a3, a5, n] - S2[SP[a1, a2], SP[a4, a6], a5, 
     a3, n] + S2[SP[a1, a5], a3, a2, SP[a4, a6], n] + 
    S2[SP[a1, a5], a3, a4, SP[a2, a6], n] + S2[SP[a1, a5], a3, SP[a2, a6], 
     a4, n] + S2[SP[a1, a5], a3, SP[a4, a6], a2, n] + 
    S2[SP[a1, a5], a4, a3, SP[a2, a6], n] + S2[SP[a1, a5], a4, SP[a3, a6], 
     a2, n] + S2[SP[a1, a5], a6, a2, SP[a3, a4], n] + 
    S2[SP[a1, a5], a6, SP[a2, a4], a3, n] + S2[SP[a1, a5], SP[a3, a6], a2, 
     a4, n] + S2[SP[a1, a5], SP[a3, a6], a4, a2, n] + 
    S2[SP[a1, a5], SP[a4, a6], a2, a3, n] + S2[SP[a1, a5], SP[a4, a6], a3, 
     a2, n] + S2[a1, a2, a3, a6, SP[a4, a5], n] + S2[a1, a2, a3, SP[a4, a6], 
     a5, n] - S2[a1, a2, a4, a5, SP[a3, a6], n] - S2[a1, a2, a4, SP[a3, a5], 
     a6, n] - S2[a1, a2, a5, a4, SP[a3, a6], n] + 
    S2[a1, a2, a5, a6, SP[a3, a4], n] + S2[a1, a2, a5, SP[a3, a4], a6, n] - 
    S2[a1, a2, a5, SP[a3, a6], a4, n] + S2[a1, a2, a6, a3, SP[a4, a5], n] + 
    S2[a1, a2, a6, a5, SP[a3, a4], n] + S2[a1, a2, a6, SP[a3, a4], a5, n] + 
    S2[a1, a2, a6, SP[a4, a5], a3, n] + S2[a1, a2, SP[a3, a4], a5, a6, n] + 
    S2[a1, a2, SP[a3, a4], a6, a5, n] - S2[a1, a2, SP[a3, a5], a4, a6, n] - 
    S2[a1, a2, SP[a3, a5], a6, a4, n] + S2[a1, a2, SP[a4, a6], a3, a5, n] + 
    S2[a1, a2, SP[a4, a6], a5, a3, n] + S2[a5, n]*S2[a1, a3, a2, a4, a6, n] + 
    S2[a1, a3, a2, a4, SP[a5, a6], n] + S2[a4, n]*S2[a1, a3, a2, a5, a6, n] - 
    S2[a1, a3, a2, a5, SP[a4, a6], n] + S2[a5, n]*S2[a1, a3, a2, a6, a4, n] + 
    S2[a1, a3, a2, a6, SP[a4, a5], n] + S2[a1, a3, a2, SP[a5, a6], a4, n] + 
    S2[a5, n]*S2[a1, a3, a4, a2, a6, n] + S2[a1, a3, a4, a2, SP[a5, a6], n] - 
    S2[a1, a3, a4, a5, SP[a2, a6], n] + S2[a5, n]*S2[a1, a3, a4, a6, a2, n] - 
    S2[a2, n]*S2[a1, a3, a4, a6, a5, n] - S2[a1, a3, a4, SP[a2, a6], a5, n] + 
    S2[a1, a3, a4, SP[a5, a6], a2, n] - S2[a1, a3, a5, a2, SP[a4, a6], n] - 
    S2[a1, a3, a5, a4, SP[a2, a6], n] - S2[a1, a3, a5, SP[a2, a6], a4, n] - 
    S2[a1, a3, a5, SP[a4, a6], a2, n] + S2[a5, n]*S2[a1, a3, a6, a2, a4, n] + 
    S2[a1, a3, a6, a2, SP[a4, a5], n] + S2[a5, n]*S2[a1, a3, a6, a4, a2, n] - 
    S2[a2, n]*S2[a1, a3, a6, a4, a5, n] - 
    S2[a2, n]*S2[a1, a3, a6, a5, a4, n] - S2[a1, a3, a6, a5, SP[a2, a4], n] - 
    S2[a1, a3, a6, SP[a2, a4], a5, n] + S2[a1, a3, a6, SP[a4, a5], a2, n] - 
    S2[a1, a3, SP[a2, a4], a6, a5, n] - S2[a1, a3, SP[a2, a6], a4, a5, n] - 
    S2[a1, a3, SP[a2, a6], a5, a4, n] + S2[a1, a3, SP[a5, a6], a2, a4, n] + 
    S2[a1, a3, SP[a5, a6], a4, a2, n] - S2[a1, a4, a2, a5, SP[a3, a6], n] - 
    S2[a1, a4, a2, SP[a3, a5], a6, n] + S2[a5, n]*S2[a1, a4, a3, a2, a6, n] + 
    S2[a1, a4, a3, a2, SP[a5, a6], n] - S2[a1, a4, a3, a5, SP[a2, a6], n] + 
    S2[a5, n]*S2[a1, a4, a3, a6, a2, n] - 
    S2[a2, n]*S2[a1, a4, a3, a6, a5, n] - S2[a1, a4, a3, SP[a2, a6], a5, n] + 
    S2[a1, a4, a3, SP[a5, a6], a2, n] - S2[a1, a4, a5, a3, SP[a2, a6], n] - 
    S2[a1, a4, a5, SP[a3, a6], a2, n] + S2[a5, n]*S2[a1, a4, a6, a2, a3, n] + 
    S2[a1, a4, a6, a2, SP[a3, a5], n] + S2[a5, n]*S2[a1, a4, a6, a3, a2, n] - 
    S2[a2, n]*S2[a1, a4, a6, a3, a5, n] - 
    S2[a2, n]*S2[a1, a4, a6, a5, a3, n] - S2[a1, a4, a6, a5, SP[a2, a3], n] - 
    S2[a1, a4, a6, SP[a2, a3], a5, n] + S2[a1, a4, a6, SP[a3, a5], a2, n] - 
    S2[a1, a4, SP[a2, a3], a5, a6, n] - S2[a1, a4, SP[a2, a3], a6, a5, n] - 
    S2[a1, a4, SP[a2, a6], a3, a5, n] - S2[a1, a4, SP[a2, a6], a5, a3, n] + 
    S2[a1, a4, SP[a5, a6], a2, a3, n] + S2[a1, a4, SP[a5, a6], a3, a2, n] - 
    S2[a1, a5, a3, a2, SP[a4, a6], n] - S2[a1, a5, a3, a4, SP[a2, a6], n] - 
    S2[a1, a5, a3, SP[a2, a6], a4, n] - S2[a1, a5, a3, SP[a4, a6], a2, n] - 
    S2[a1, a5, a4, a3, SP[a2, a6], n] - S2[a1, a5, a4, SP[a3, a6], a2, n] - 
    S2[a1, a5, a6, a2, SP[a3, a4], n] - S2[a1, a5, a6, SP[a2, a4], a3, n] - 
    S2[a1, a5, SP[a3, a6], a2, a4, n] - S2[a1, a5, SP[a3, a6], a4, a2, n] - 
    S2[a1, a5, SP[a4, a6], a2, a3, n] - S2[a1, a5, SP[a4, a6], a3, a2, n] + 
    S2[a5, n]*S2[a1, a6, a2, a3, a4, n] + S2[a1, a6, a2, a3, SP[a4, a5], n] + 
    S2[a5, n]*S2[a1, a6, a2, a4, a3, n] + S2[a1, a6, a2, a4, SP[a3, a5], n] + 
    S2[a1, a6, a2, SP[a3, a5], a4, n] + S2[a1, a6, a2, SP[a4, a5], a3, n] + 
    S2[a5, n]*S2[a1, a6, a3, a2, a4, n] + S2[a1, a6, a3, a2, SP[a4, a5], n] + 
    S2[a5, n]*S2[a1, a6, a3, a4, a2, n] - 
    S2[a2, n]*S2[a1, a6, a3, a4, a5, n] - 
    S2[a2, n]*S2[a1, a6, a3, a5, a4, n] - S2[a1, a6, a3, a5, SP[a2, a4], n] - 
    S2[a1, a6, a3, SP[a2, a4], a5, n] + S2[a1, a6, a3, SP[a4, a5], a2, n] + 
    S2[a5, n]*S2[a1, a6, a4, a2, a3, n] + S2[a1, a6, a4, a2, SP[a3, a5], n] + 
    S2[a5, n]*S2[a1, a6, a4, a3, a2, n] - 
    S2[a2, n]*S2[a1, a6, a4, a3, a5, n] - 
    S2[a2, n]*S2[a1, a6, a4, a5, a3, n] - S2[a1, a6, a4, a5, SP[a2, a3], n] - 
    S2[a1, a6, a4, SP[a2, a3], a5, n] + S2[a1, a6, a4, SP[a3, a5], a2, n] - 
    S2[a2, n]*S2[a1, a6, a5, a3, a4, n] - S2[a1, a6, a5, a3, SP[a2, a4], n] - 
    S2[a2, n]*S2[a1, a6, a5, a4, a3, n] - S2[a1, a6, a5, a4, SP[a2, a3], n] - 
    S2[a1, a6, a5, SP[a2, a3], a4, n] - S2[a1, a6, a5, SP[a2, a4], a3, n] - 
    S2[a1, a6, SP[a2, a3], a4, a5, n] - S2[a1, a6, SP[a2, a3], a5, a4, n] - 
    S2[a1, a6, SP[a2, a4], a3, a5, n] - S2[a1, a6, SP[a2, a4], a5, a3, n] + 
    S2[a1, a6, SP[a3, a5], a2, a4, n] + S2[a1, a6, SP[a3, a5], a4, a2, n] + 
    S2[a1, a6, SP[a4, a5], a2, a3, n] + S2[a1, a6, SP[a4, a5], a3, a2, n] - 
    S2[a1, SP[a2, a3], a4, a5, a6, n] - S2[a1, SP[a2, a3], a4, a6, a5, n] - 
    S2[a1, SP[a2, a3], a5, a4, a6, n] - S2[a1, SP[a2, a3], a5, a6, a4, n] - 
    S2[a1, SP[a2, a3], a6, a4, a5, n] - S2[a1, SP[a2, a3], a6, a5, a4, n] - 
    S2[a1, SP[a2, a6], a3, a4, a5, n] - S2[a1, SP[a2, a6], a3, a5, a4, n] - 
    S2[a1, SP[a2, a6], a4, a3, a5, n] - S2[a1, SP[a2, a6], a4, a5, a3, n] - 
    S2[a1, SP[a2, a6], a5, a3, a4, n] - S2[a1, SP[a2, a6], a5, a4, a3, n] + 
    S2[a1, SP[a3, a4], a2, a5, a6, n] + S2[a1, SP[a5, a6], a2, a3, a4, n] + 
    S2[a1, SP[a5, a6], a2, a4, a3, n] + S2[a1, SP[a5, a6], a3, a2, a4, n] + 
    S2[a1, SP[a5, a6], a3, a4, a2, n] + S2[a1, SP[a5, a6], a4, a2, a3, n] + 
    S2[a1, SP[a5, a6], a4, a3, a2, n] + S2[a2, a1, a3, a6, SP[a4, a5], n] + 
    S2[a2, a1, a3, SP[a4, a6], a5, n] - S2[a2, a1, a4, a5, SP[a3, a6], n] - 
    S2[a2, a1, a4, SP[a3, a5], a6, n] - S2[a2, a1, a5, a4, SP[a3, a6], n] + 
    S2[a2, a1, a5, a6, SP[a3, a4], n] + S2[a2, a1, a5, SP[a3, a4], a6, n] - 
    S2[a2, a1, a5, SP[a3, a6], a4, n] + S2[a2, a1, a6, a3, SP[a4, a5], n] + 
    S2[a2, a1, a6, a5, SP[a3, a4], n] + S2[a2, a1, a6, SP[a3, a4], a5, n] + 
    S2[a2, a1, a6, SP[a4, a5], a3, n] + S2[a2, a1, SP[a3, a4], a5, a6, n] + 
    S2[a2, a1, SP[a3, a4], a6, a5, n] - S2[a2, a1, SP[a3, a5], a4, a6, n] - 
    S2[a2, a1, SP[a3, a5], a6, a4, n] + S2[a2, a1, SP[a4, a6], a3, a5, n] + 
    S2[a2, a1, SP[a4, a6], a5, a3, n] - S2[a6, n]*S2[a2, a3, a1, a4, a5, n] - 
    S2[a2, a3, a1, a4, SP[a5, a6], n] - S2[a6, n]*S2[a2, a3, a1, a5, a4, n] + 
    S2[a2, a3, a1, a6, SP[a4, a5], n] + S2[a2, a3, a1, SP[a4, a5], a6, n] - 
    S2[a2, a3, a1, SP[a5, a6], a4, n] - S2[a6, n]*S2[a2, a3, a5, a1, a4, n] + 
    S2[a2, a3, a6, a1, SP[a4, a5], n] + S2[a2, a3, a6, SP[a1, a5], a4, n] + 
    S2[a2, a3, SP[a1, a5], a4, a6, n] + S2[a2, a3, SP[a1, a5], a6, a4, n] - 
    S2[a2, a3, SP[a5, a6], a1, a4, n] - S2[a2, a5, a1, a4, SP[a3, a6], n] + 
    S2[a2, a5, a1, a6, SP[a3, a4], n] + S2[a2, a5, a1, SP[a3, a4], a6, n] - 
    S2[a2, a5, a1, SP[a3, a6], a4, n] - S2[a6, n]*S2[a2, a5, a3, a1, a4, n] + 
    S2[a2, a5, a6, a1, SP[a3, a4], n] + S2[a2, a5, a6, SP[a1, a3], a4, n] + 
    S2[a2, a5, SP[a1, a3], a4, a6, n] + S2[a2, a5, SP[a1, a3], a6, a4, n] - 
    S2[a2, a5, SP[a3, a6], a1, a4, n] - S2[a5, n]*S2[a2, a6, a1, a3, a4, n] - 
    S2[a5, n]*S2[a2, a6, a1, a4, a3, n] - S2[a2, a6, a1, a4, SP[a3, a5], n] + 
    S2[a2, a6, a1, a5, SP[a3, a4], n] + S2[a2, a6, a1, SP[a3, a4], a5, n] - 
    S2[a2, a6, a1, SP[a3, a5], a4, n] + S2[a2, a6, a3, a1, SP[a4, a5], n] + 
    S2[a2, a6, a3, SP[a1, a5], a4, n] + S2[a2, a6, a5, a1, SP[a3, a4], n] + 
    S2[a2, a6, a5, SP[a1, a3], a4, n] + S2[a2, a6, SP[a1, a3], a4, a5, n] + 
    S2[a2, a6, SP[a1, a3], a5, a4, n] + S2[a2, SP[a1, a3], a4, a5, a6, n] + 
    S2[a2, SP[a1, a3], a4, a6, a5, n] + S2[a2, SP[a1, a3], a5, a4, a6, n] + 
    S2[a2, SP[a1, a3], a5, a6, a4, n] + S2[a2, SP[a1, a3], a6, a4, a5, n] + 
    S2[a2, SP[a1, a3], a6, a5, a4, n] + S2[a2, SP[a1, a6], a3, a4, a5, n] + 
    S2[a2, SP[a1, a6], a3, a5, a4, n] + S2[a2, SP[a1, a6], a4, a3, a5, n] + 
    S2[a2, SP[a1, a6], a4, a5, a3, n] + S2[a2, SP[a1, a6], a5, a3, a4, n] + 
    S2[a2, SP[a1, a6], a5, a4, a3, n] - S2[a2, SP[a3, a6], a1, a4, a5, n] - 
    S2[a2, SP[a3, a6], a1, a5, a4, n] - S2[a2, SP[a3, a6], a5, a1, a4, n] - 
    S2[a2, SP[a5, a6], a1, a3, a4, n] - S2[a2, SP[a5, a6], a1, a4, a3, n] - 
    S2[a2, SP[a5, a6], a3, a1, a4, n] - S2[a5, a1, a3, a2, SP[a4, a6], n] - 
    S2[a5, a1, a3, a4, SP[a2, a6], n] - S2[a5, a1, a3, SP[a2, a6], a4, n] - 
    S2[a5, a1, a3, SP[a4, a6], a2, n] - S2[a5, a1, a4, a3, SP[a2, a6], n] - 
    S2[a5, a1, a4, SP[a3, a6], a2, n] - S2[a5, a1, a6, a2, SP[a3, a4], n] - 
    S2[a5, a1, a6, SP[a2, a4], a3, n] - S2[a5, a1, SP[a3, a6], a2, a4, n] - 
    S2[a5, a1, SP[a3, a6], a4, a2, n] - S2[a5, a1, SP[a4, a6], a2, a3, n] - 
    S2[a5, a1, SP[a4, a6], a3, a2, n] - S2[a5, a6, a1, a2, SP[a3, a4], n] + 
    S2[a2, n]*S2[a5, a6, a1, a3, a4, n] + S2[a5, a6, a1, a3, SP[a2, a4], n] + 
    S2[a2, n]*S2[a5, a6, a1, a4, a3, n] + S2[a5, a6, a1, a4, SP[a2, a3], n] + 
    S2[a5, a6, a1, SP[a2, a3], a4, n] - S2[a5, a6, a2, a1, SP[a3, a4], n] - 
    S2[a5, a6, a2, SP[a1, a3], a4, n] - S2[a5, SP[a1, a6], a2, a3, a4, n] - 
    S2[a5, SP[a1, a6], a2, a4, a3, n] - S2[a5, SP[a1, a6], a3, a2, a4, n] - 
    S2[a5, SP[a1, a6], a3, a4, a2, n] - S2[a5, SP[a1, a6], a4, a2, a3, n] - 
    S2[a5, SP[a1, a6], a4, a3, a2, n] + S2[a5, SP[a2, a6], a1, a3, a4, n] + 
    S2[a5, SP[a2, a6], a1, a4, a3, n] + S2[a5, n]*S2[a6, a2, a3, a1, a4, n] + 
    S2[a6, a2, a3, a1, SP[a4, a5], n] + S2[a6, a2, a3, SP[a1, a5], a4, n] + 
    S2[a6, a2, SP[a3, a5], a1, a4, n] + S2[a6, SP[a2, a5], a3, a1, a4, n] + 
    S2[SP[a1, a4], a3, a2, a5, a6, n] - S2[SP[a2, a6], a3, a1, a4, a5, n] - 
    S2[SP[a2, a6], a3, a1, a5, a4, n] - S2[SP[a2, a6], a3, a5, a1, a4, n] - 
    S2[SP[a2, a6], a5, a3, a1, a4, n] + S2[SP[a5, a6], a2, a3, a1, a4, n] - 
    S2[a6, a5, a2, a3, a1, a4, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a4_, a1_, a3_, a2_, a6_, a5_, n_] :> 
  -(S2[a1, a3, a4, n]*S2[a2, a6, a5, n]) - S2[a1, a4, a3, n]*
     S2[a2, a6, a5, n] - S2[SP[a1, a2], SP[a3, a6], SP[a4, a5], n] - 
    S2[SP[a1, a2], SP[a4, a6], SP[a3, a5], n] + S2[a1, a2, SP[a3, a6], 
     SP[a4, a5], n] + S2[a1, a2, SP[a4, a6], SP[a3, a5], n] + 
    S2[a5, a6, n]*S2[a1, a3, a2, a4, n] + S2[a5, a6, n]*
     S2[a1, a3, a4, a2, n] - S2[a1, a3, SP[a2, a5], SP[a4, a6], n] - 
    S2[a1, a3, SP[a4, a5], SP[a2, a6], n] + S2[a5, a6, n]*
     S2[a1, a4, a3, a2, n] - S2[a1, a4, SP[a3, a5], SP[a2, a6], n] + 
    S2[a1, SP[a2, a3], a6, SP[a4, a5], n] + S2[a1, SP[a2, a3], SP[a4, a6], 
     a5, n] + S2[a1, SP[a2, a4], a6, SP[a3, a5], n] + 
    S2[a1, SP[a2, a4], SP[a3, a6], a5, n] - S2[a1, SP[a3, a5], a2, 
     SP[a4, a6], n] - S2[a1, SP[a3, a5], a4, SP[a2, a6], n] - 
    S2[a1, SP[a3, a5], SP[a2, a6], a4, n] - S2[a1, SP[a3, a5], SP[a4, a6], 
     a2, n] - S2[a1, SP[a4, a5], a3, SP[a2, a6], n] - 
    S2[a1, SP[a4, a5], SP[a3, a6], a2, n] + S2[a2, a1, SP[a3, a6], 
     SP[a4, a5], n] + S2[a2, a1, SP[a4, a6], SP[a3, a5], n] + 
    S2[a2, SP[a1, a6], a3, SP[a4, a5], n] + S2[a2, SP[a1, a6], a4, 
     SP[a3, a5], n] + S2[a2, SP[a1, a6], SP[a3, a5], a4, n] + 
    S2[a2, SP[a1, a6], SP[a4, a5], a3, n] + S2[a1, a4, n]*
     S2[a5, a6, a2, a3, n] - S2[a5, a6, SP[a1, a2], SP[a3, a4], n] - 
    S2[a5, SP[a1, a6], a2, SP[a3, a4], n] - S2[a5, SP[a1, a6], SP[a2, a4], 
     a3, n] + S2[SP[a1, a2], a3, a6, SP[a4, a5], n] + 
    S2[SP[a1, a2], a3, SP[a4, a6], a5, n] + S2[SP[a1, a2], a4, a6, 
     SP[a3, a5], n] + S2[SP[a1, a2], a4, SP[a3, a6], a5, n] + 
    S2[SP[a1, a2], a6, a3, SP[a4, a5], n] + S2[SP[a1, a2], a6, a4, 
     SP[a3, a5], n] + S2[SP[a1, a2], a6, SP[a3, a5], a4, n] + 
    S2[SP[a1, a2], a6, SP[a4, a5], a3, n] + S2[SP[a1, a2], SP[a3, a6], a4, 
     a5, n] + S2[SP[a1, a2], SP[a3, a6], a5, a4, n] + 
    S2[SP[a1, a2], SP[a4, a6], a3, a5, n] + S2[SP[a1, a2], SP[a4, a6], a5, 
     a3, n] - S2[SP[a1, a5], a3, a2, SP[a4, a6], n] - 
    S2[SP[a1, a5], a3, a4, SP[a2, a6], n] - S2[SP[a1, a5], a3, SP[a2, a6], 
     a4, n] - S2[SP[a1, a5], a3, SP[a4, a6], a2, n] - 
    S2[SP[a1, a5], a4, a3, SP[a2, a6], n] - S2[SP[a1, a5], a4, SP[a3, a6], 
     a2, n] - S2[SP[a1, a5], a6, a2, SP[a3, a4], n] - 
    S2[SP[a1, a5], a6, SP[a2, a4], a3, n] - S2[SP[a1, a5], SP[a3, a6], a2, 
     a4, n] - S2[SP[a1, a5], SP[a3, a6], a4, a2, n] - 
    S2[SP[a1, a5], SP[a4, a6], a2, a3, n] - S2[SP[a1, a5], SP[a4, a6], a3, 
     a2, n] - S2[a1, a2, a3, a6, SP[a4, a5], n] - S2[a1, a2, a3, SP[a4, a6], 
     a5, n] - S2[a1, a2, a4, a6, SP[a3, a5], n] - S2[a1, a2, a4, SP[a3, a6], 
     a5, n] - S2[a1, a2, a6, a3, SP[a4, a5], n] - 
    S2[a1, a2, a6, a4, SP[a3, a5], n] - S2[a1, a2, a6, SP[a3, a5], a4, n] - 
    S2[a1, a2, a6, SP[a4, a5], a3, n] - S2[a1, a2, SP[a3, a6], a4, a5, n] - 
    S2[a1, a2, SP[a3, a6], a5, a4, n] - S2[a1, a2, SP[a4, a6], a3, a5, n] - 
    S2[a1, a2, SP[a4, a6], a5, a3, n] - S2[a5, n]*S2[a1, a3, a2, a4, a6, n] - 
    S2[a1, a3, a2, a4, SP[a5, a6], n] + S2[a1, a3, a2, a5, SP[a4, a6], n] - 
    S2[a5, n]*S2[a1, a3, a2, a6, a4, n] + 
    S2[a4, n]*S2[a1, a3, a2, a6, a5, n] - S2[a1, a3, a2, a6, SP[a4, a5], n] - 
    S2[a1, a3, a2, SP[a5, a6], a4, n] - S2[a5, n]*S2[a1, a3, a4, a2, a6, n] - 
    S2[a1, a3, a4, a2, SP[a5, a6], n] + S2[a1, a3, a4, a5, SP[a2, a6], n] - 
    S2[a5, n]*S2[a1, a3, a4, a6, a2, n] + 
    S2[a2, n]*S2[a1, a3, a4, a6, a5, n] + S2[a1, a3, a4, SP[a2, a6], a5, n] - 
    S2[a1, a3, a4, SP[a5, a6], a2, n] + S2[a1, a3, a5, a2, SP[a4, a6], n] + 
    S2[a1, a3, a5, a4, SP[a2, a6], n] + S2[a1, a3, a5, SP[a2, a6], a4, n] + 
    S2[a1, a3, a5, SP[a4, a6], a2, n] - S2[a5, n]*S2[a1, a3, a6, a2, a4, n] - 
    S2[a1, a3, a6, a2, SP[a4, a5], n] - S2[a5, n]*S2[a1, a3, a6, a4, a2, n] + 
    S2[a2, n]*S2[a1, a3, a6, a4, a5, n] + 
    S2[a2, n]*S2[a1, a3, a6, a5, a4, n] + S2[a1, a3, a6, a5, SP[a2, a4], n] + 
    S2[a1, a3, a6, SP[a2, a4], a5, n] - S2[a1, a3, a6, SP[a4, a5], a2, n] + 
    S2[a1, a3, SP[a2, a4], a6, a5, n] + S2[a1, a3, SP[a2, a6], a4, a5, n] + 
    S2[a1, a3, SP[a2, a6], a5, a4, n] - S2[a1, a3, SP[a5, a6], a2, a4, n] - 
    S2[a1, a3, SP[a5, a6], a4, a2, n] - S2[a1, a4, a2, a6, SP[a3, a5], n] - 
    S2[a1, a4, a2, SP[a3, a6], a5, n] - S2[a5, n]*S2[a1, a4, a3, a2, a6, n] - 
    S2[a1, a4, a3, a2, SP[a5, a6], n] + S2[a1, a4, a3, a5, SP[a2, a6], n] - 
    S2[a5, n]*S2[a1, a4, a3, a6, a2, n] + 
    S2[a2, n]*S2[a1, a4, a3, a6, a5, n] + S2[a1, a4, a3, SP[a2, a6], a5, n] - 
    S2[a1, a4, a3, SP[a5, a6], a2, n] + S2[a1, a4, a5, a3, SP[a2, a6], n] + 
    S2[a1, a4, a5, SP[a3, a6], a2, n] - S2[a5, n]*S2[a1, a4, a6, a2, a3, n] - 
    S2[a1, a4, a6, a2, SP[a3, a5], n] - S2[a5, n]*S2[a1, a4, a6, a3, a2, n] + 
    S2[a2, n]*S2[a1, a4, a6, a3, a5, n] + 
    S2[a2, n]*S2[a1, a4, a6, a5, a3, n] + S2[a1, a4, a6, a5, SP[a2, a3], n] + 
    S2[a1, a4, a6, SP[a2, a3], a5, n] - S2[a1, a4, a6, SP[a3, a5], a2, n] + 
    S2[a1, a4, SP[a2, a6], a3, a5, n] + S2[a1, a4, SP[a2, a6], a5, a3, n] - 
    S2[a1, a4, SP[a5, a6], a2, a3, n] - S2[a1, a4, SP[a5, a6], a3, a2, n] + 
    S2[a1, a5, a3, a2, SP[a4, a6], n] + S2[a1, a5, a3, a4, SP[a2, a6], n] + 
    S2[a1, a5, a3, SP[a2, a6], a4, n] + S2[a1, a5, a3, SP[a4, a6], a2, n] + 
    S2[a1, a5, a4, a3, SP[a2, a6], n] + S2[a1, a5, a4, SP[a3, a6], a2, n] + 
    S2[a1, a5, a6, a2, SP[a3, a4], n] + S2[a1, a5, a6, SP[a2, a4], a3, n] + 
    S2[a1, a5, SP[a3, a6], a2, a4, n] + S2[a1, a5, SP[a3, a6], a4, a2, n] + 
    S2[a1, a5, SP[a4, a6], a2, a3, n] + S2[a1, a5, SP[a4, a6], a3, a2, n] - 
    S2[a5, n]*S2[a1, a6, a2, a3, a4, n] - S2[a1, a6, a2, a3, SP[a4, a5], n] - 
    S2[a5, n]*S2[a1, a6, a2, a4, a3, n] - S2[a1, a6, a2, a4, SP[a3, a5], n] - 
    S2[a1, a6, a2, SP[a3, a5], a4, n] - S2[a1, a6, a2, SP[a4, a5], a3, n] - 
    S2[a5, n]*S2[a1, a6, a3, a2, a4, n] - S2[a1, a6, a3, a2, SP[a4, a5], n] - 
    S2[a5, n]*S2[a1, a6, a3, a4, a2, n] + 
    S2[a2, n]*S2[a1, a6, a3, a4, a5, n] + 
    S2[a2, n]*S2[a1, a6, a3, a5, a4, n] + S2[a1, a6, a3, a5, SP[a2, a4], n] + 
    S2[a1, a6, a3, SP[a2, a4], a5, n] - S2[a1, a6, a3, SP[a4, a5], a2, n] - 
    S2[a5, n]*S2[a1, a6, a4, a2, a3, n] - S2[a1, a6, a4, a2, SP[a3, a5], n] - 
    S2[a5, n]*S2[a1, a6, a4, a3, a2, n] + 
    S2[a2, n]*S2[a1, a6, a4, a3, a5, n] + 
    S2[a2, n]*S2[a1, a6, a4, a5, a3, n] + S2[a1, a6, a4, a5, SP[a2, a3], n] + 
    S2[a1, a6, a4, SP[a2, a3], a5, n] - S2[a1, a6, a4, SP[a3, a5], a2, n] + 
    S2[a2, n]*S2[a1, a6, a5, a3, a4, n] + S2[a1, a6, a5, a3, SP[a2, a4], n] + 
    S2[a2, n]*S2[a1, a6, a5, a4, a3, n] + S2[a1, a6, a5, a4, SP[a2, a3], n] + 
    S2[a1, a6, a5, SP[a2, a3], a4, n] + S2[a1, a6, a5, SP[a2, a4], a3, n] + 
    S2[a1, a6, SP[a2, a3], a4, a5, n] + S2[a1, a6, SP[a2, a3], a5, a4, n] + 
    S2[a1, a6, SP[a2, a4], a3, a5, n] + S2[a1, a6, SP[a2, a4], a5, a3, n] - 
    S2[a1, a6, SP[a3, a5], a2, a4, n] - S2[a1, a6, SP[a3, a5], a4, a2, n] - 
    S2[a1, a6, SP[a4, a5], a2, a3, n] - S2[a1, a6, SP[a4, a5], a3, a2, n] + 
    S2[a1, SP[a2, a6], a3, a4, a5, n] + S2[a1, SP[a2, a6], a3, a5, a4, n] + 
    S2[a1, SP[a2, a6], a4, a3, a5, n] + S2[a1, SP[a2, a6], a4, a5, a3, n] + 
    S2[a1, SP[a2, a6], a5, a3, a4, n] + S2[a1, SP[a2, a6], a5, a4, a3, n] + 
    S2[a1, SP[a3, a4], a2, a6, a5, n] - S2[a1, SP[a5, a6], a2, a3, a4, n] - 
    S2[a1, SP[a5, a6], a2, a4, a3, n] - S2[a1, SP[a5, a6], a3, a2, a4, n] - 
    S2[a1, SP[a5, a6], a3, a4, a2, n] - S2[a1, SP[a5, a6], a4, a2, a3, n] - 
    S2[a1, SP[a5, a6], a4, a3, a2, n] - S2[a2, a1, a3, a6, SP[a4, a5], n] - 
    S2[a2, a1, a3, SP[a4, a6], a5, n] - S2[a2, a1, a4, a6, SP[a3, a5], n] - 
    S2[a2, a1, a4, SP[a3, a6], a5, n] - S2[a2, a1, a6, a3, SP[a4, a5], n] - 
    S2[a2, a1, a6, a4, SP[a3, a5], n] - S2[a2, a1, a6, SP[a3, a5], a4, n] - 
    S2[a2, a1, a6, SP[a4, a5], a3, n] - S2[a2, a1, SP[a3, a6], a4, a5, n] - 
    S2[a2, a1, SP[a3, a6], a5, a4, n] - S2[a2, a1, SP[a4, a6], a3, a5, n] - 
    S2[a2, a1, SP[a4, a6], a5, a3, n] + S2[a5, n]*S2[a2, a6, a1, a3, a4, n] + 
    S2[a5, n]*S2[a2, a6, a1, a4, a3, n] - S2[a2, SP[a1, a6], a3, a4, a5, n] - 
    S2[a2, SP[a1, a6], a3, a5, a4, n] - S2[a2, SP[a1, a6], a4, a3, a5, n] - 
    S2[a2, SP[a1, a6], a4, a5, a3, n] - S2[a2, SP[a1, a6], a5, a3, a4, n] - 
    S2[a2, SP[a1, a6], a5, a4, a3, n] + S2[a2, SP[a5, a6], a1, a3, a4, n] + 
    S2[a2, SP[a5, a6], a1, a4, a3, n] + S2[a5, a1, a3, a2, SP[a4, a6], n] + 
    S2[a5, a1, a3, a4, SP[a2, a6], n] + S2[a5, a1, a3, SP[a2, a6], a4, n] + 
    S2[a5, a1, a3, SP[a4, a6], a2, n] + S2[a5, a1, a4, a3, SP[a2, a6], n] + 
    S2[a5, a1, a4, SP[a3, a6], a2, n] + S2[a5, a1, a6, a2, SP[a3, a4], n] + 
    S2[a5, a1, a6, SP[a2, a4], a3, n] + S2[a5, a1, SP[a3, a6], a2, a4, n] + 
    S2[a5, a1, SP[a3, a6], a4, a2, n] + S2[a5, a1, SP[a4, a6], a2, a3, n] + 
    S2[a5, a1, SP[a4, a6], a3, a2, n] + S2[a5, a6, a1, a2, SP[a3, a4], n] - 
    S2[a2, n]*S2[a5, a6, a1, a3, a4, n] - S2[a5, a6, a1, a3, SP[a2, a4], n] - 
    S2[a2, n]*S2[a5, a6, a1, a4, a3, n] - S2[a5, a6, a1, a4, SP[a2, a3], n] - 
    S2[a5, a6, a1, SP[a2, a3], a4, n] + S2[a5, a6, a2, a1, SP[a3, a4], n] + 
    S2[a5, a6, a2, SP[a1, a3], a4, n] + S2[a5, SP[a1, a6], a2, a3, a4, n] + 
    S2[a5, SP[a1, a6], a2, a4, a3, n] + S2[a5, SP[a1, a6], a3, a2, a4, n] + 
    S2[a5, SP[a1, a6], a3, a4, a2, n] + S2[a5, SP[a1, a6], a4, a2, a3, n] + 
    S2[a5, SP[a1, a6], a4, a3, a2, n] - S2[a5, SP[a2, a6], a1, a3, a4, n] - 
    S2[a5, SP[a2, a6], a1, a4, a3, n] - S2[a5, n]*S2[a6, a2, a3, a1, a4, n] - 
    S2[a6, a2, a3, a1, SP[a4, a5], n] - S2[a6, a2, a3, SP[a1, a5], a4, n] - 
    S2[a6, a2, SP[a3, a5], a1, a4, n] - S2[a6, SP[a2, a5], a3, a1, a4, n] + 
    S2[SP[a1, a4], a3, a2, a6, a5, n] - S2[SP[a5, a6], a2, a3, a1, a4, n] + 
    S2[a6, a2, a3, a1, a4, a5, n] + S2[a6, a2, a3, a1, a5, a4, n] + 
    S2[a6, a2, a3, a5, a1, a4, n] + S2[a6, a2, a5, a3, a1, a4, n] + 
    S2[a6, a5, a2, a3, a1, a4, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a4_, a1_, a3_, a5_, a2_, a6_, n_] :> 
  S2[a1, a3, a4, n]*S2[a2, a5, a6, n] + S2[a1, a4, a3, n]*S2[a2, a5, a6, n] + 
    S2[a1, a3, a4, n]*S2[a2, a6, a5, n] + S2[a1, a4, a3, n]*
     S2[a2, a6, a5, n] + S2[SP[a1, a2], SP[a3, a5], SP[a4, a6], n] + 
    S2[SP[a1, a2], SP[a3, a6], SP[a4, a5], n] + S2[SP[a1, a2], SP[a4, a5], 
     SP[a3, a6], n] + S2[SP[a1, a2], SP[a4, a6], SP[a3, a5], n] - 
    S2[a1, a2, SP[a3, a5], SP[a4, a6], n] - S2[a1, a2, SP[a3, a6], 
     SP[a4, a5], n] - S2[a1, a2, SP[a4, a5], SP[a3, a6], n] - 
    S2[a1, a2, SP[a4, a6], SP[a3, a5], n] - S2[a2, a6, n]*
     S2[a1, a3, a4, a5, n] - S2[a2, a6, n]*S2[a1, a3, a5, a4, n] + 
    S2[a1, a3, SP[a2, a4], SP[a5, a6], n] + S2[a1, a3, SP[a2, a5], 
     SP[a4, a6], n] - S2[a2, a6, n]*S2[a1, a4, a3, a5, n] + 
    S2[a1, a4, SP[a2, a3], SP[a5, a6], n] + S2[a1, SP[a2, a3], a4, 
     SP[a5, a6], n] - S2[a1, SP[a2, a3], a6, SP[a4, a5], n] - 
    S2[a1, SP[a2, a3], SP[a4, a5], a6, n] + S2[a1, SP[a2, a3], SP[a5, a6], 
     a4, n] + S2[a1, SP[a2, a4], a3, SP[a5, a6], n] - 
    S2[a1, SP[a2, a4], a5, SP[a3, a6], n] - S2[a1, SP[a2, a4], a6, 
     SP[a3, a5], n] - S2[a1, SP[a2, a4], SP[a3, a5], a6, n] - 
    S2[a2, a1, SP[a3, a5], SP[a4, a6], n] - S2[a2, a1, SP[a3, a6], 
     SP[a4, a5], n] - S2[a2, a1, SP[a4, a5], SP[a3, a6], n] - 
    S2[a2, a1, SP[a4, a6], SP[a3, a5], n] - S2[a1, a4, n]*
     S2[a2, a5, a3, a6, n] - S2[a1, a4, n]*S2[a2, a5, a6, a3, n] + 
    S2[a2, a5, SP[a1, a3], SP[a4, a6], n] + S2[a2, a5, SP[a1, a6], 
     SP[a3, a4], n] - S2[a1, a4, n]*S2[a2, a6, a5, a3, n] + 
    S2[a2, a6, SP[a1, a5], SP[a3, a4], n] - S2[a2, SP[a1, a5], a4, 
     SP[a3, a6], n] + S2[a2, SP[a1, a5], a6, SP[a3, a4], n] + 
    S2[a2, SP[a1, a5], SP[a3, a4], a6, n] - S2[a2, SP[a1, a5], SP[a3, a6], 
     a4, n] - S2[a2, SP[a1, a6], a3, SP[a4, a5], n] - 
    S2[a2, SP[a1, a6], a4, SP[a3, a5], n] + S2[a2, SP[a1, a6], a5, 
     SP[a3, a4], n] - S2[a2, SP[a1, a6], SP[a3, a5], a4, n] + 
    S2[SP[a1, a2], a3, a4, SP[a5, a6], n] - S2[SP[a1, a2], a3, a6, 
     SP[a4, a5], n] - S2[SP[a1, a2], a3, SP[a4, a5], a6, n] + 
    S2[SP[a1, a2], a3, SP[a5, a6], a4, n] + S2[SP[a1, a2], a4, a3, 
     SP[a5, a6], n] - S2[SP[a1, a2], a4, a5, SP[a3, a6], n] - 
    S2[SP[a1, a2], a4, a6, SP[a3, a5], n] - S2[SP[a1, a2], a4, SP[a3, a5], 
     a6, n] - S2[SP[a1, a2], a5, a4, SP[a3, a6], n] + 
    S2[SP[a1, a2], a5, a6, SP[a3, a4], n] + S2[SP[a1, a2], a5, SP[a3, a4], 
     a6, n] - S2[SP[a1, a2], a5, SP[a3, a6], a4, n] - 
    S2[SP[a1, a2], a6, a3, SP[a4, a5], n] - S2[SP[a1, a2], a6, a4, 
     SP[a3, a5], n] + S2[SP[a1, a2], a6, a5, SP[a3, a4], n] - 
    S2[SP[a1, a2], a6, SP[a3, a5], a4, n] - S2[SP[a1, a2], SP[a3, a5], a4, 
     a6, n] - S2[SP[a1, a2], SP[a3, a5], a6, a4, n] - 
    S2[a1, a2, a3, a4, SP[a5, a6], n] + S2[a1, a2, a3, a6, SP[a4, a5], n] + 
    S2[a1, a2, a3, SP[a4, a5], a6, n] - S2[a1, a2, a3, SP[a5, a6], a4, n] - 
    S2[a1, a2, a4, a3, SP[a5, a6], n] + S2[a1, a2, a4, a5, SP[a3, a6], n] + 
    S2[a1, a2, a4, a6, SP[a3, a5], n] + S2[a1, a2, a4, SP[a3, a5], a6, n] + 
    S2[a1, a2, a5, a4, SP[a3, a6], n] - S2[a1, a2, a5, a6, SP[a3, a4], n] - 
    S2[a1, a2, a5, SP[a3, a4], a6, n] + S2[a1, a2, a5, SP[a3, a6], a4, n] + 
    S2[a1, a2, a6, a3, SP[a4, a5], n] + S2[a1, a2, a6, a4, SP[a3, a5], n] - 
    S2[a1, a2, a6, a5, SP[a3, a4], n] + S2[a1, a2, a6, SP[a3, a5], a4, n] + 
    S2[a1, a2, SP[a3, a5], a4, a6, n] + S2[a1, a2, SP[a3, a5], a6, a4, n] - 
    S2[a1, a3, a2, a4, SP[a5, a6], n] + S2[a1, a3, a2, a6, SP[a4, a5], n] + 
    S2[a1, a3, a2, SP[a4, a5], a6, n] - S2[a1, a3, a2, SP[a5, a6], a4, n] - 
    S2[a1, a3, a4, a2, SP[a5, a6], n] - S2[a1, a3, a4, SP[a2, a5], a6, n] + 
    S2[a4, n]*S2[a1, a3, a5, a2, a6, n] - S2[a1, a3, SP[a2, a5], a4, a6, n] - 
    S2[a1, a3, SP[a2, a5], a6, a4, n] + S2[a1, a3, SP[a4, a5], a2, a6, n] - 
    S2[a1, a4, a2, a3, SP[a5, a6], n] + S2[a1, a4, a2, a5, SP[a3, a6], n] + 
    S2[a1, a4, a2, a6, SP[a3, a5], n] + S2[a1, a4, a2, SP[a3, a5], a6, n] - 
    S2[a1, a4, a3, a2, SP[a5, a6], n] - S2[a1, a4, a3, SP[a2, a5], a6, n] + 
    S2[a1, SP[a3, a4], a5, a2, a6, n] - S2[a2, a1, a3, a4, SP[a5, a6], n] + 
    S2[a2, a1, a3, a6, SP[a4, a5], n] + S2[a2, a1, a3, SP[a4, a5], a6, n] - 
    S2[a2, a1, a3, SP[a5, a6], a4, n] - S2[a2, a1, a4, a3, SP[a5, a6], n] + 
    S2[a2, a1, a4, a5, SP[a3, a6], n] + S2[a2, a1, a4, a6, SP[a3, a5], n] + 
    S2[a2, a1, a4, SP[a3, a5], a6, n] + S2[a2, a1, a5, a4, SP[a3, a6], n] - 
    S2[a2, a1, a5, a6, SP[a3, a4], n] - S2[a2, a1, a5, SP[a3, a4], a6, n] + 
    S2[a2, a1, a5, SP[a3, a6], a4, n] + S2[a2, a1, a6, a3, SP[a4, a5], n] + 
    S2[a2, a1, a6, a4, SP[a3, a5], n] - S2[a2, a1, a6, a5, SP[a3, a4], n] + 
    S2[a2, a1, a6, SP[a3, a5], a4, n] + S2[a2, a1, SP[a3, a5], a4, a6, n] + 
    S2[a2, a1, SP[a3, a5], a6, a4, n] + S2[a2, a5, a1, a4, SP[a3, a6], n] - 
    S2[a2, a5, a1, a6, SP[a3, a4], n] - S2[a2, a5, a1, SP[a3, a4], a6, n] + 
    S2[a2, a5, a1, SP[a3, a6], a4, n] + S2[a6, n]*S2[a2, a5, a3, a1, a4, n] - 
    S2[a2, a5, a6, a1, SP[a3, a4], n] - S2[a2, a5, a6, SP[a1, a3], a4, n] - 
    S2[a2, a5, SP[a1, a3], a4, a6, n] - S2[a2, a5, SP[a1, a3], a6, a4, n] + 
    S2[a2, a5, SP[a3, a6], a1, a4, n] + S2[a2, a6, a1, a3, SP[a4, a5], n] + 
    S2[a2, a6, a1, a4, SP[a3, a5], n] - S2[a2, a6, a1, a5, SP[a3, a4], n] + 
    S2[a2, a6, a1, SP[a3, a5], a4, n] - S2[a2, a6, a5, a1, SP[a3, a4], n] - 
    S2[a2, a6, a5, SP[a1, a3], a4, n] + S2[a2, SP[a5, a6], a3, a1, a4, n] + 
    S2[SP[a1, a4], a3, a5, a2, a6, n] + S2[SP[a2, a6], a5, a3, a1, a4, n] - 
    S2[a6, a2, a5, a3, a1, a4, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a4_, a1_, a3_, a5_, a6_, a2_, n_] :> 
  -(S2[a1, a3, a4, n]*S2[a2, a6, a5, n]) - S2[a1, a4, a3, n]*
     S2[a2, a6, a5, n] - S2[SP[a1, a2], SP[a3, a6], SP[a4, a5], n] - 
    S2[SP[a1, a2], SP[a4, a6], SP[a3, a5], n] + S2[a1, a2, SP[a3, a6], 
     SP[a4, a5], n] + S2[a1, a2, SP[a4, a6], SP[a3, a5], n] + 
    S2[a2, a6, n]*S2[a1, a3, a4, a5, n] + S2[a2, a6, n]*
     S2[a1, a3, a5, a4, n] - S2[a1, a3, SP[a2, a4], SP[a5, a6], n] - 
    S2[a1, a3, SP[a2, a5], SP[a4, a6], n] + S2[a2, a6, n]*
     S2[a1, a4, a3, a5, n] - S2[a1, a4, SP[a2, a3], SP[a5, a6], n] - 
    S2[a1, SP[a2, a3], a4, SP[a5, a6], n] - S2[a1, SP[a2, a3], a5, 
     SP[a4, a6], n] + S2[a1, SP[a2, a3], a6, SP[a4, a5], n] - 
    S2[a1, SP[a2, a3], SP[a5, a6], a4, n] - S2[a1, SP[a2, a4], a3, 
     SP[a5, a6], n] + S2[a1, SP[a2, a4], a6, SP[a3, a5], n] + 
    S2[a2, a1, SP[a3, a6], SP[a4, a5], n] + S2[a2, a1, SP[a4, a6], 
     SP[a3, a5], n] + S2[a1, a4, n]*S2[a2, a6, a5, a3, n] - 
    S2[a2, a6, SP[a1, a5], SP[a3, a4], n] + S2[a2, SP[a1, a6], a3, 
     SP[a4, a5], n] + S2[a2, SP[a1, a6], a4, SP[a3, a5], n] - 
    S2[a2, SP[a1, a6], a5, SP[a3, a4], n] + S2[a2, SP[a1, a6], SP[a3, a5], 
     a4, n] - S2[SP[a1, a2], a3, a4, SP[a5, a6], n] - 
    S2[SP[a1, a2], a3, a5, SP[a4, a6], n] + S2[SP[a1, a2], a3, a6, 
     SP[a4, a5], n] - S2[SP[a1, a2], a3, SP[a5, a6], a4, n] - 
    S2[SP[a1, a2], a4, a3, SP[a5, a6], n] + S2[SP[a1, a2], a4, a6, 
     SP[a3, a5], n] + S2[SP[a1, a2], a6, a3, SP[a4, a5], n] + 
    S2[SP[a1, a2], a6, a4, SP[a3, a5], n] - S2[SP[a1, a2], a6, a5, 
     SP[a3, a4], n] + S2[SP[a1, a2], a6, SP[a3, a5], a4, n] + 
    S2[a1, a2, a3, a4, SP[a5, a6], n] + S2[a1, a2, a3, a5, SP[a4, a6], n] - 
    S2[a1, a2, a3, a6, SP[a4, a5], n] + S2[a1, a2, a3, SP[a5, a6], a4, n] + 
    S2[a1, a2, a4, a3, SP[a5, a6], n] - S2[a1, a2, a4, a6, SP[a3, a5], n] - 
    S2[a1, a2, a6, a3, SP[a4, a5], n] - S2[a1, a2, a6, a4, SP[a3, a5], n] + 
    S2[a1, a2, a6, a5, SP[a3, a4], n] - S2[a1, a2, a6, SP[a3, a5], a4, n] + 
    S2[a1, a3, a2, a4, SP[a5, a6], n] + S2[a1, a3, a2, a5, SP[a4, a6], n] - 
    S2[a1, a3, a2, a6, SP[a4, a5], n] + S2[a1, a3, a2, SP[a5, a6], a4, n] + 
    S2[a1, a3, a4, a2, SP[a5, a6], n] - S2[a2, n]*S2[a1, a3, a4, a5, a6, n] - 
    S2[a1, a3, a4, a5, SP[a2, a6], n] + S2[a1, a3, a5, a2, SP[a4, a6], n] - 
    S2[a2, n]*S2[a1, a3, a5, a4, a6, n] - S2[a1, a3, a5, a4, SP[a2, a6], n] + 
    S2[a4, n]*S2[a1, a3, a5, a6, a2, n] - 
    S2[a2, n]*S2[a1, a3, a5, a6, a4, n] - S2[a1, a3, a5, SP[a2, a6], a4, n] + 
    S2[a1, a3, a5, SP[a4, a6], a2, n] + S2[a1, a3, SP[a4, a5], a6, a2, n] + 
    S2[a1, a4, a2, a3, SP[a5, a6], n] - S2[a1, a4, a2, a6, SP[a3, a5], n] + 
    S2[a1, a4, a3, a2, SP[a5, a6], n] - S2[a2, n]*S2[a1, a4, a3, a5, a6, n] - 
    S2[a1, a4, a3, a5, SP[a2, a6], n] + S2[a1, SP[a3, a4], a5, a6, a2, n] + 
    S2[a2, a1, a3, a4, SP[a5, a6], n] + S2[a2, a1, a3, a5, SP[a4, a6], n] - 
    S2[a2, a1, a3, a6, SP[a4, a5], n] + S2[a2, a1, a3, SP[a5, a6], a4, n] + 
    S2[a2, a1, a4, a3, SP[a5, a6], n] - S2[a2, a1, a4, a6, SP[a3, a5], n] - 
    S2[a2, a1, a6, a3, SP[a4, a5], n] - S2[a2, a1, a6, a4, SP[a3, a5], n] + 
    S2[a2, a1, a6, a5, SP[a3, a4], n] - S2[a2, a1, a6, SP[a3, a5], a4, n] - 
    S2[a2, a6, a1, a3, SP[a4, a5], n] - S2[a2, a6, a1, a4, SP[a3, a5], n] + 
    S2[a2, a6, a1, a5, SP[a3, a4], n] - S2[a2, a6, a1, SP[a3, a5], a4, n] + 
    S2[a2, a6, a5, a1, SP[a3, a4], n] + S2[a2, a6, a5, SP[a1, a3], a4, n] - 
    S2[a2, n]*S2[a6, a5, a3, a1, a4, n] - S2[a6, a5, a3, a1, SP[a2, a4], n] - 
    S2[a6, a5, a3, SP[a1, a2], a4, n] - S2[a6, a5, SP[a2, a3], a1, a4, n] - 
    S2[a6, SP[a2, a5], a3, a1, a4, n] + S2[SP[a1, a4], a3, a5, a6, a2, n] - 
    S2[SP[a2, a6], a5, a3, a1, a4, n] + S2[a6, a2, a5, a3, a1, a4, n] + 
    S2[a6, a5, a2, a3, a1, a4, n] + S2[a6, a5, a3, a1, a2, a4, n] + 
    S2[a6, a5, a3, a1, a4, a2, n] + S2[a6, a5, a3, a2, a1, a4, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a4_, a1_, a3_, a6_, a2_, a5_, n_] :> 
  S2[a1, a3, a4, n]*S2[a2, a5, a6, n] + S2[a1, a4, a3, n]*S2[a2, a5, a6, n] + 
    S2[a1, a3, a4, n]*S2[a2, a6, a5, n] + S2[a1, a4, a3, n]*
     S2[a2, a6, a5, n] + S2[SP[a1, a2], SP[a3, a5], SP[a4, a6], n] + 
    S2[SP[a1, a2], SP[a3, a6], SP[a4, a5], n] + S2[SP[a1, a2], SP[a4, a5], 
     SP[a3, a6], n] + S2[SP[a1, a2], SP[a4, a6], SP[a3, a5], n] - 
    S2[a1, a2, SP[a3, a5], SP[a4, a6], n] - S2[a1, a2, SP[a3, a6], 
     SP[a4, a5], n] - S2[a1, a2, SP[a4, a5], SP[a3, a6], n] - 
    S2[a1, a2, SP[a4, a6], SP[a3, a5], n] - S2[a1, SP[a2, a3], a5, 
     SP[a4, a6], n] - S2[a1, SP[a2, a3], a6, SP[a4, a5], n] - 
    S2[a1, SP[a2, a3], SP[a4, a5], a6, n] - S2[a1, SP[a2, a3], SP[a4, a6], 
     a5, n] - S2[a1, SP[a2, a4], a5, SP[a3, a6], n] - 
    S2[a1, SP[a2, a4], a6, SP[a3, a5], n] - S2[a1, SP[a2, a4], SP[a3, a5], 
     a6, n] - S2[a1, SP[a2, a4], SP[a3, a6], a5, n] - 
    S2[a2, a1, SP[a3, a5], SP[a4, a6], n] - S2[a2, a1, SP[a3, a6], 
     SP[a4, a5], n] - S2[a2, a1, SP[a4, a5], SP[a3, a6], n] - 
    S2[a2, a1, SP[a4, a6], SP[a3, a5], n] - S2[a2, SP[a1, a5], a3, 
     SP[a4, a6], n] - S2[a2, SP[a1, a5], a4, SP[a3, a6], n] - 
    S2[a2, SP[a1, a5], SP[a3, a6], a4, n] - S2[a2, SP[a1, a5], SP[a4, a6], 
     a3, n] - S2[a2, SP[a1, a6], a3, SP[a4, a5], n] - 
    S2[a2, SP[a1, a6], a4, SP[a3, a5], n] - S2[a2, SP[a1, a6], SP[a3, a5], 
     a4, n] - S2[a2, SP[a1, a6], SP[a4, a5], a3, n] - 
    S2[a1, a4, n]*S2[a3, a6, a2, a5, n] + S2[a3, a6, SP[a1, a2], SP[a4, a5], 
     n] + S2[a3, SP[a1, a6], a2, SP[a4, a5], n] + 
    S2[a3, SP[a1, a6], SP[a2, a4], a5, n] - S2[SP[a1, a2], a3, a5, 
     SP[a4, a6], n] - S2[SP[a1, a2], a3, a6, SP[a4, a5], n] - 
    S2[SP[a1, a2], a3, SP[a4, a5], a6, n] - S2[SP[a1, a2], a3, SP[a4, a6], 
     a5, n] - S2[SP[a1, a2], a4, a5, SP[a3, a6], n] - 
    S2[SP[a1, a2], a4, a6, SP[a3, a5], n] - S2[SP[a1, a2], a4, SP[a3, a5], 
     a6, n] - S2[SP[a1, a2], a4, SP[a3, a6], a5, n] - 
    S2[SP[a1, a2], a5, a3, SP[a4, a6], n] - S2[SP[a1, a2], a5, a4, 
     SP[a3, a6], n] - S2[SP[a1, a2], a5, SP[a3, a6], a4, n] - 
    S2[SP[a1, a2], a5, SP[a4, a6], a3, n] - S2[SP[a1, a2], a6, a3, 
     SP[a4, a5], n] - S2[SP[a1, a2], a6, a4, SP[a3, a5], n] - 
    S2[SP[a1, a2], a6, SP[a3, a5], a4, n] - S2[SP[a1, a2], a6, SP[a4, a5], 
     a3, n] - S2[SP[a1, a2], SP[a3, a5], a4, a6, n] - 
    S2[SP[a1, a2], SP[a3, a5], a6, a4, n] - S2[SP[a1, a2], SP[a3, a6], a4, 
     a5, n] - S2[SP[a1, a2], SP[a3, a6], a5, a4, n] - 
    S2[SP[a1, a2], SP[a4, a5], a3, a6, n] - S2[SP[a1, a2], SP[a4, a5], a6, 
     a3, n] - S2[SP[a1, a2], SP[a4, a6], a3, a5, n] - 
    S2[SP[a1, a2], SP[a4, a6], a5, a3, n] + S2[SP[a1, a3], a6, a2, 
     SP[a4, a5], n] + S2[SP[a1, a3], a6, SP[a2, a4], a5, n] + 
    S2[SP[a1, a3], SP[a4, a6], a2, a5, n] + S2[a1, a2, a3, a5, SP[a4, a6], 
     n] + S2[a1, a2, a3, a6, SP[a4, a5], n] + S2[a1, a2, a3, SP[a4, a5], a6, 
     n] + S2[a1, a2, a3, SP[a4, a6], a5, n] + S2[a1, a2, a4, a5, SP[a3, a6], 
     n] + S2[a1, a2, a4, a6, SP[a3, a5], n] + S2[a1, a2, a4, SP[a3, a5], a6, 
     n] + S2[a1, a2, a4, SP[a3, a6], a5, n] + S2[a1, a2, a5, a3, SP[a4, a6], 
     n] + S2[a1, a2, a5, a4, SP[a3, a6], n] + S2[a1, a2, a5, SP[a3, a6], a4, 
     n] + S2[a1, a2, a5, SP[a4, a6], a3, n] + S2[a1, a2, a6, a3, SP[a4, a5], 
     n] + S2[a1, a2, a6, a4, SP[a3, a5], n] + S2[a1, a2, a6, SP[a3, a5], a4, 
     n] + S2[a1, a2, a6, SP[a4, a5], a3, n] + S2[a1, a2, SP[a3, a5], a4, a6, 
     n] + S2[a1, a2, SP[a3, a5], a6, a4, n] + S2[a1, a2, SP[a3, a6], a4, a5, 
     n] + S2[a1, a2, SP[a3, a6], a5, a4, n] + S2[a1, a2, SP[a4, a5], a3, a6, 
     n] + S2[a1, a2, SP[a4, a5], a6, a3, n] + S2[a1, a2, SP[a4, a6], a3, a5, 
     n] + S2[a1, a2, SP[a4, a6], a5, a3, n] + S2[a1, a3, a2, a5, SP[a4, a6], 
     n] + S2[a1, a3, a2, a6, SP[a4, a5], n] + S2[a1, a3, a2, SP[a4, a5], a6, 
     n] + S2[a1, a3, a2, SP[a4, a6], a5, n] + 
    S2[a6, n]*S2[a1, a3, a4, a5, a2, n] - 
    S2[a2, n]*S2[a1, a3, a4, a5, a6, n] - 
    S2[a2, n]*S2[a1, a3, a4, a6, a5, n] - S2[a1, a3, a4, a6, SP[a2, a5], n] - 
    S2[a1, a3, a4, SP[a2, a5], a6, n] - S2[a1, a3, a4, SP[a2, a6], a5, n] + 
    S2[a1, a3, a4, SP[a5, a6], a2, n] + S2[a6, n]*S2[a1, a3, a5, a2, a4, n] + 
    S2[a1, a3, a5, a2, SP[a4, a6], n] + S2[a6, n]*S2[a1, a3, a5, a4, a2, n] - 
    S2[a2, n]*S2[a1, a3, a5, a4, a6, n] - 
    S2[a2, n]*S2[a1, a3, a5, a6, a4, n] - S2[a1, a3, a5, a6, SP[a2, a4], n] - 
    S2[a1, a3, a5, SP[a2, a4], a6, n] + S2[a1, a3, a5, SP[a4, a6], a2, n] + 
    S2[a4, n]*S2[a1, a3, a6, a2, a5, n] - 
    S2[a2, n]*S2[a1, a3, a6, a4, a5, n] - S2[a1, a3, a6, a4, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a3, a6, a5, a4, n] - S2[a1, a3, a6, a5, SP[a2, a4], n] - 
    S2[a1, a3, a6, SP[a2, a4], a5, n] - S2[a1, a3, a6, SP[a2, a5], a4, n] - 
    S2[a1, a3, SP[a2, a5], a4, a6, n] - S2[a1, a3, SP[a2, a5], a6, a4, n] - 
    S2[a1, a3, SP[a2, a6], a4, a5, n] - S2[a1, a3, SP[a2, a6], a5, a4, n] + 
    S2[a1, a3, SP[a4, a6], a5, a2, n] + S2[a1, a3, SP[a5, a6], a2, a4, n] + 
    S2[a1, a3, SP[a5, a6], a4, a2, n] + S2[a1, a4, a2, a5, SP[a3, a6], n] + 
    S2[a1, a4, a2, a6, SP[a3, a5], n] + S2[a1, a4, a2, SP[a3, a5], a6, n] + 
    S2[a1, a4, a2, SP[a3, a6], a5, n] + S2[a6, n]*S2[a1, a4, a3, a5, a2, n] - 
    S2[a2, n]*S2[a1, a4, a3, a5, a6, n] - 
    S2[a2, n]*S2[a1, a4, a3, a6, a5, n] - S2[a1, a4, a3, a6, SP[a2, a5], n] - 
    S2[a1, a4, a3, SP[a2, a5], a6, n] - S2[a1, a4, a3, SP[a2, a6], a5, n] + 
    S2[a1, a4, a3, SP[a5, a6], a2, n] + S2[a6, n]*S2[a1, a4, a5, a2, a3, n] + 
    S2[a1, a4, a5, a2, SP[a3, a6], n] + S2[a6, n]*S2[a1, a4, a5, a3, a2, n] - 
    S2[a2, n]*S2[a1, a4, a5, a3, a6, n] - 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] - S2[a1, a4, a5, a6, SP[a2, a3], n] - 
    S2[a1, a4, a5, SP[a2, a3], a6, n] + S2[a1, a4, a5, SP[a3, a6], a2, n] + 
    S2[a3, n]*S2[a1, a4, a6, a2, a5, n] + S2[a1, a4, a6, a2, SP[a3, a5], n] - 
    S2[a2, n]*S2[a1, a4, a6, a3, a5, n] - S2[a1, a4, a6, a3, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a4, a6, a5, a3, n] - S2[a1, a4, a6, a5, SP[a2, a3], n] - 
    S2[a1, a4, a6, SP[a2, a5], a3, n] - S2[a1, a4, SP[a2, a5], a3, a6, n] - 
    S2[a1, a4, SP[a2, a5], a6, a3, n] - S2[a1, a4, SP[a2, a6], a3, a5, n] - 
    S2[a1, a4, SP[a2, a6], a5, a3, n] + S2[a1, a4, SP[a3, a6], a2, a5, n] + 
    S2[a1, a4, SP[a3, a6], a5, a2, n] + S2[a1, a4, SP[a5, a6], a2, a3, n] + 
    S2[a1, a4, SP[a5, a6], a3, a2, n] + S2[a6, n]*S2[a1, a5, a2, a3, a4, n] + 
    S2[a1, a5, a2, a3, SP[a4, a6], n] + S2[a6, n]*S2[a1, a5, a2, a4, a3, n] + 
    S2[a1, a5, a2, a4, SP[a3, a6], n] + S2[a1, a5, a2, SP[a3, a6], a4, n] + 
    S2[a1, a5, a2, SP[a4, a6], a3, n] + S2[a6, n]*S2[a1, a5, a3, a2, a4, n] + 
    S2[a1, a5, a3, a2, SP[a4, a6], n] + S2[a6, n]*S2[a1, a5, a3, a4, a2, n] - 
    S2[a2, n]*S2[a1, a5, a3, a4, a6, n] - 
    S2[a2, n]*S2[a1, a5, a3, a6, a4, n] - S2[a1, a5, a3, a6, SP[a2, a4], n] - 
    S2[a1, a5, a3, SP[a2, a4], a6, n] + S2[a1, a5, a3, SP[a4, a6], a2, n] + 
    S2[a6, n]*S2[a1, a5, a4, a2, a3, n] + S2[a1, a5, a4, a2, SP[a3, a6], n] + 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] - 
    S2[a2, n]*S2[a1, a5, a4, a3, a6, n] - 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] - S2[a1, a5, a4, a6, SP[a2, a3], n] - 
    S2[a1, a5, a4, SP[a2, a3], a6, n] + S2[a1, a5, a4, SP[a3, a6], a2, n] - 
    S2[a2, n]*S2[a1, a5, a6, a3, a4, n] - S2[a1, a5, a6, a3, SP[a2, a4], n] - 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] - S2[a1, a5, a6, a4, SP[a2, a3], n] - 
    S2[a1, a5, a6, SP[a2, a3], a4, n] - S2[a1, a5, a6, SP[a2, a4], a3, n] - 
    S2[a1, a5, SP[a2, a3], a4, a6, n] - S2[a1, a5, SP[a2, a3], a6, a4, n] - 
    S2[a1, a5, SP[a2, a4], a3, a6, n] - S2[a1, a5, SP[a2, a4], a6, a3, n] + 
    S2[a1, a5, SP[a3, a6], a2, a4, n] + S2[a1, a5, SP[a3, a6], a4, a2, n] + 
    S2[a1, a5, SP[a4, a6], a2, a3, n] + S2[a1, a5, SP[a4, a6], a3, a2, n] + 
    S2[a3, n]*S2[a1, a6, a2, a4, a5, n] + S2[a1, a6, a2, a4, SP[a3, a5], n] + 
    S2[a3, n]*S2[a1, a6, a2, a5, a4, n] + S2[a1, a6, a2, a5, SP[a3, a4], n] + 
    S2[a1, a6, a2, SP[a3, a4], a5, n] + S2[a1, a6, a2, SP[a3, a5], a4, n] - 
    S2[a2, n]*S2[a1, a6, a3, a4, a5, n] - S2[a1, a6, a3, a4, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a6, a3, a5, a4, n] - S2[a1, a6, a3, a5, SP[a2, a4], n] - 
    S2[a1, a6, a3, SP[a2, a4], a5, n] - S2[a1, a6, a3, SP[a2, a5], a4, n] + 
    S2[a3, n]*S2[a1, a6, a4, a2, a5, n] + S2[a1, a6, a4, a2, SP[a3, a5], n] - 
    S2[a2, n]*S2[a1, a6, a4, a3, a5, n] - S2[a1, a6, a4, a3, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a6, a4, a5, a3, n] - S2[a1, a6, a4, a5, SP[a2, a3], n] - 
    S2[a1, a6, a4, SP[a2, a5], a3, n] - S2[a2, n]*S2[a1, a6, a5, a3, a4, n] - 
    S2[a1, a6, a5, a3, SP[a2, a4], n] - S2[a2, n]*S2[a1, a6, a5, a4, a3, n] - 
    S2[a1, a6, a5, a4, SP[a2, a3], n] - S2[a1, a6, a5, SP[a2, a3], a4, n] - 
    S2[a1, a6, a5, SP[a2, a4], a3, n] - S2[a1, a6, SP[a2, a4], a3, a5, n] - 
    S2[a1, a6, SP[a2, a4], a5, a3, n] - S2[a1, a6, SP[a2, a5], a3, a4, n] - 
    S2[a1, a6, SP[a2, a5], a4, a3, n] + S2[a1, a6, SP[a3, a4], a2, a5, n] - 
    S2[a1, SP[a2, a5], a3, a4, a6, n] - S2[a1, SP[a2, a5], a3, a6, a4, n] - 
    S2[a1, SP[a2, a5], a4, a3, a6, n] - S2[a1, SP[a2, a5], a4, a6, a3, n] - 
    S2[a1, SP[a2, a5], a6, a3, a4, n] - S2[a1, SP[a2, a5], a6, a4, a3, n] - 
    S2[a1, SP[a2, a6], a3, a4, a5, n] - S2[a1, SP[a2, a6], a3, a5, a4, n] - 
    S2[a1, SP[a2, a6], a4, a3, a5, n] - S2[a1, SP[a2, a6], a4, a5, a3, n] - 
    S2[a1, SP[a2, a6], a5, a3, a4, n] - S2[a1, SP[a2, a6], a5, a4, a3, n] + 
    S2[a1, SP[a3, a4], a6, a2, a5, n] + S2[a1, SP[a3, a6], a2, a4, a5, n] + 
    S2[a1, SP[a3, a6], a2, a5, a4, n] + S2[a1, SP[a3, a6], a4, a2, a5, n] + 
    S2[a1, SP[a3, a6], a4, a5, a2, n] + S2[a1, SP[a3, a6], a5, a2, a4, n] + 
    S2[a1, SP[a3, a6], a5, a4, a2, n] + S2[a1, SP[a4, a6], a3, a5, a2, n] + 
    S2[a1, SP[a4, a6], a5, a2, a3, n] + S2[a1, SP[a4, a6], a5, a3, a2, n] + 
    S2[a1, SP[a5, a6], a2, a3, a4, n] + S2[a1, SP[a5, a6], a2, a4, a3, n] + 
    S2[a1, SP[a5, a6], a3, a2, a4, n] + S2[a1, SP[a5, a6], a3, a4, a2, n] + 
    S2[a1, SP[a5, a6], a4, a2, a3, n] + S2[a1, SP[a5, a6], a4, a3, a2, n] + 
    S2[a2, a1, a3, a5, SP[a4, a6], n] + S2[a2, a1, a3, a6, SP[a4, a5], n] + 
    S2[a2, a1, a3, SP[a4, a5], a6, n] + S2[a2, a1, a3, SP[a4, a6], a5, n] + 
    S2[a2, a1, a4, a5, SP[a3, a6], n] + S2[a2, a1, a4, a6, SP[a3, a5], n] + 
    S2[a2, a1, a4, SP[a3, a5], a6, n] + S2[a2, a1, a4, SP[a3, a6], a5, n] + 
    S2[a2, a1, a5, a3, SP[a4, a6], n] + S2[a2, a1, a5, a4, SP[a3, a6], n] + 
    S2[a2, a1, a5, SP[a3, a6], a4, n] + S2[a2, a1, a5, SP[a4, a6], a3, n] + 
    S2[a2, a1, a6, a3, SP[a4, a5], n] + S2[a2, a1, a6, a4, SP[a3, a5], n] + 
    S2[a2, a1, a6, SP[a3, a5], a4, n] + S2[a2, a1, a6, SP[a4, a5], a3, n] + 
    S2[a2, a1, SP[a3, a5], a4, a6, n] + S2[a2, a1, SP[a3, a5], a6, a4, n] + 
    S2[a2, a1, SP[a3, a6], a4, a5, n] + S2[a2, a1, SP[a3, a6], a5, a4, n] + 
    S2[a2, a1, SP[a4, a5], a3, a6, n] + S2[a2, a1, SP[a4, a5], a6, a3, n] + 
    S2[a2, a1, SP[a4, a6], a3, a5, n] + S2[a2, a1, SP[a4, a6], a5, a3, n] - 
    S2[a6, n]*S2[a2, a5, a1, a3, a4, n] - 
    S2[a6, n]*S2[a2, a5, a1, a4, a3, n] + S2[a2, a6, a1, a3, SP[a4, a5], n] - 
    S2[a3, n]*S2[a2, a6, a1, a4, a5, n] - 
    S2[a3, n]*S2[a2, a6, a1, a5, a4, n] - S2[a2, a6, a1, a5, SP[a3, a4], n] - 
    S2[a2, a6, a1, SP[a3, a4], a5, n] + S2[a2, a6, a1, SP[a4, a5], a3, n] - 
    S2[a2, a6, SP[a1, a3], a4, a5, n] - S2[a2, a6, SP[a1, a3], a5, a4, n] + 
    S2[a2, a6, SP[a1, a5], a3, a4, n] + S2[a2, a6, SP[a1, a5], a4, a3, n] + 
    S2[a2, SP[a1, a5], a3, a4, a6, n] + S2[a2, SP[a1, a5], a3, a6, a4, n] + 
    S2[a2, SP[a1, a5], a4, a3, a6, n] + S2[a2, SP[a1, a5], a4, a6, a3, n] + 
    S2[a2, SP[a1, a5], a6, a3, a4, n] + S2[a2, SP[a1, a5], a6, a4, a3, n] + 
    S2[a2, SP[a1, a6], a3, a4, a5, n] + S2[a2, SP[a1, a6], a3, a5, a4, n] + 
    S2[a2, SP[a1, a6], a4, a3, a5, n] + S2[a2, SP[a1, a6], a4, a5, a3, n] + 
    S2[a2, SP[a1, a6], a5, a3, a4, n] + S2[a2, SP[a1, a6], a5, a4, a3, n] - 
    S2[a2, SP[a3, a6], a1, a4, a5, n] - S2[a2, SP[a3, a6], a1, a5, a4, n] - 
    S2[a2, SP[a5, a6], a1, a3, a4, n] - S2[a2, SP[a5, a6], a1, a4, a3, n] - 
    S2[a3, a1, a6, a2, SP[a4, a5], n] - S2[a3, a1, a6, SP[a2, a4], a5, n] - 
    S2[a3, a1, SP[a4, a6], a2, a5, n] - S2[a3, a6, a1, a2, SP[a4, a5], n] + 
    S2[a2, n]*S2[a3, a6, a1, a4, a5, n] + S2[a3, a6, a1, a4, SP[a2, a5], n] + 
    S2[a2, n]*S2[a3, a6, a1, a5, a4, n] + S2[a3, a6, a1, a5, SP[a2, a4], n] + 
    S2[a3, a6, a1, SP[a2, a5], a4, n] - S2[a3, a6, a2, a1, SP[a4, a5], n] - 
    S2[a3, a6, a2, SP[a1, a5], a4, n] - S2[a3, SP[a1, a6], a2, a4, a5, n] - 
    S2[a3, SP[a1, a6], a2, a5, a4, n] - S2[a3, SP[a1, a6], a4, a2, a5, n] + 
    S2[a3, SP[a2, a6], a1, a4, a5, n] + S2[a3, SP[a2, a6], a1, a5, a4, n] - 
    S2[a3, n]*S2[a6, a1, a4, a5, a2, n] - S2[a6, a1, a4, a5, SP[a2, a3], n] - 
    S2[a6, a1, a4, SP[a3, a5], a2, n] - S2[a3, n]*S2[a6, a1, a5, a2, a4, n] - 
    S2[a6, a1, a5, a2, SP[a3, a4], n] - S2[a3, n]*S2[a6, a1, a5, a4, a2, n] - 
    S2[a6, a1, a5, a4, SP[a2, a3], n] - S2[a6, a1, a5, SP[a2, a3], a4, n] - 
    S2[a6, a1, a5, SP[a3, a4], a2, n] - S2[a6, a1, SP[a3, a4], a5, a2, n] - 
    S2[a6, a1, SP[a3, a5], a2, a4, n] - S2[a6, a1, SP[a3, a5], a4, a2, n] + 
    S2[a3, n]*S2[a6, a2, a5, a1, a4, n] + S2[a6, a2, a5, a1, SP[a3, a4], n] + 
    S2[a6, a2, a5, SP[a1, a3], a4, n] + S2[a6, a2, SP[a3, a5], a1, a4, n] + 
    S2[a2, n]*S2[a6, a3, a1, a4, a5, n] + S2[a6, a3, a1, a4, SP[a2, a5], n] + 
    S2[a2, n]*S2[a6, a3, a1, a5, a4, n] + S2[a6, a3, a1, a5, SP[a2, a4], n] + 
    S2[a6, a3, a1, SP[a2, a4], a5, n] + S2[a6, a3, a1, SP[a2, a5], a4, n] + 
    S2[a6, a3, SP[a1, a2], a4, a5, n] + S2[a6, a3, SP[a1, a2], a5, a4, n] - 
    S2[a6, SP[a1, a3], a4, a5, a2, n] - S2[a6, SP[a1, a3], a5, a2, a4, n] - 
    S2[a6, SP[a1, a3], a5, a4, a2, n] + S2[a6, SP[a2, a3], a1, a4, a5, n] + 
    S2[a6, SP[a2, a3], a1, a5, a4, n] + S2[a6, SP[a2, a3], a5, a1, a4, n] + 
    S2[SP[a1, a4], a3, a6, a2, a5, n] + S2[SP[a1, a6], a3, a4, a5, a2, n] + 
    S2[SP[a1, a6], a3, a5, a2, a4, n] + S2[SP[a1, a6], a3, a5, a4, a2, n] + 
    S2[SP[a1, a6], a4, a3, a5, a2, n] + S2[SP[a1, a6], a4, a5, a2, a3, n] + 
    S2[SP[a1, a6], a4, a5, a3, a2, n] + S2[SP[a1, a6], a5, a2, a3, a4, n] + 
    S2[SP[a1, a6], a5, a2, a4, a3, n] + S2[SP[a1, a6], a5, a3, a2, a4, n] + 
    S2[SP[a1, a6], a5, a3, a4, a2, n] + S2[SP[a1, a6], a5, a4, a2, a3, n] + 
    S2[SP[a1, a6], a5, a4, a3, a2, n] + S2[SP[a2, a6], a3, a1, a4, a5, n] + 
    S2[SP[a2, a6], a3, a1, a5, a4, n] - S2[SP[a2, a6], a5, a1, a3, a4, n] - 
    S2[SP[a2, a6], a5, a1, a4, a3, n] - S2[SP[a3, a6], a1, a4, a5, a2, n] - 
    S2[SP[a3, a6], a1, a5, a2, a4, n] - S2[SP[a3, a6], a1, a5, a4, a2, n] + 
    S2[SP[a3, a6], a2, a5, a1, a4, n] - S2[a6, a2, a3, a1, a4, a5, n] - 
    S2[a6, a2, a3, a1, a5, a4, n] - S2[a6, a2, a3, a5, a1, a4, n] - 
    S2[a6, a2, a5, a3, a1, a4, n] - S2[a6, a3, a1, a2, a4, a5, n] - 
    S2[a6, a3, a1, a2, a5, a4, n] - S2[a6, a3, a1, a4, a2, a5, n] - 
    S2[a6, a3, a2, a1, a4, a5, n] - S2[a6, a3, a2, a1, a5, a4, n] - 
    S2[a6, a3, a2, a5, a1, a4, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a4_, a1_, a3_, a6_, a5_, a2_, n_] :> 
  -(S2[a1, a3, a4, n]*S2[a2, a5, a6, n]) - S2[a1, a4, a3, n]*
     S2[a2, a5, a6, n] - S2[SP[a1, a2], SP[a3, a5], SP[a4, a6], n] - 
    S2[SP[a1, a2], SP[a4, a5], SP[a3, a6], n] + S2[a1, a2, SP[a3, a5], 
     SP[a4, a6], n] + S2[a1, a2, SP[a4, a5], SP[a3, a6], n] + 
    S2[a1, SP[a2, a3], a5, SP[a4, a6], n] + S2[a1, SP[a2, a3], SP[a4, a5], 
     a6, n] + S2[a1, SP[a2, a4], a5, SP[a3, a6], n] + 
    S2[a1, SP[a2, a4], SP[a3, a5], a6, n] + S2[a2, a1, SP[a3, a5], 
     SP[a4, a6], n] + S2[a2, a1, SP[a4, a5], SP[a3, a6], n] - 
    S2[a1, a4, n]*S2[a2, a6, a3, a5, n] - S2[a1, a4, n]*
     S2[a2, a6, a5, a3, n] + S2[a2, a6, SP[a1, a3], SP[a4, a5], n] + 
    S2[a2, a6, SP[a1, a5], SP[a3, a4], n] + S2[a2, SP[a1, a5], a3, 
     SP[a4, a6], n] + S2[a2, SP[a1, a5], a4, SP[a3, a6], n] + 
    S2[a2, SP[a1, a5], SP[a3, a6], a4, n] + S2[a2, SP[a1, a5], SP[a4, a6], 
     a3, n] + S2[a2, SP[a1, a6], a3, SP[a4, a5], n] + 
    S2[a2, SP[a1, a6], a5, SP[a3, a4], n] + S2[a2, SP[a1, a6], SP[a3, a4], 
     a5, n] + S2[a2, SP[a1, a6], SP[a4, a5], a3, n] + 
    S2[a1, a4, n]*S2[a3, a6, a2, a5, n] - S2[a3, a6, SP[a1, a2], SP[a4, a5], 
     n] - S2[a3, SP[a1, a6], a2, SP[a4, a5], n] - 
    S2[a3, SP[a1, a6], SP[a2, a4], a5, n] + S2[SP[a1, a2], a3, a5, 
     SP[a4, a6], n] + S2[SP[a1, a2], a3, SP[a4, a5], a6, n] + 
    S2[SP[a1, a2], a4, a5, SP[a3, a6], n] + S2[SP[a1, a2], a4, SP[a3, a5], 
     a6, n] + S2[SP[a1, a2], a5, a3, SP[a4, a6], n] + 
    S2[SP[a1, a2], a5, a4, SP[a3, a6], n] + S2[SP[a1, a2], a5, SP[a3, a6], 
     a4, n] + S2[SP[a1, a2], a5, SP[a4, a6], a3, n] + 
    S2[SP[a1, a2], a6, a3, SP[a4, a5], n] + S2[SP[a1, a2], a6, a5, 
     SP[a3, a4], n] + S2[SP[a1, a2], a6, SP[a3, a4], a5, n] + 
    S2[SP[a1, a2], a6, SP[a4, a5], a3, n] + S2[SP[a1, a2], SP[a3, a5], a4, 
     a6, n] + S2[SP[a1, a2], SP[a3, a5], a6, a4, n] + 
    S2[SP[a1, a2], SP[a4, a5], a3, a6, n] + S2[SP[a1, a2], SP[a4, a5], a6, 
     a3, n] + S2[SP[a1, a2], SP[a4, a6], a3, a5, n] + 
    S2[SP[a1, a2], SP[a4, a6], a5, a3, n] - S2[SP[a1, a3], a6, a2, 
     SP[a4, a5], n] - S2[SP[a1, a3], a6, SP[a2, a4], a5, n] - 
    S2[SP[a1, a3], SP[a4, a6], a2, a5, n] - S2[a1, a2, a3, a5, SP[a4, a6], 
     n] - S2[a1, a2, a3, SP[a4, a5], a6, n] - S2[a1, a2, a4, a5, SP[a3, a6], 
     n] - S2[a1, a2, a4, SP[a3, a5], a6, n] - S2[a1, a2, a5, a3, SP[a4, a6], 
     n] - S2[a1, a2, a5, a4, SP[a3, a6], n] - S2[a1, a2, a5, SP[a3, a6], a4, 
     n] - S2[a1, a2, a5, SP[a4, a6], a3, n] - S2[a1, a2, a6, a3, SP[a4, a5], 
     n] - S2[a1, a2, a6, a5, SP[a3, a4], n] - S2[a1, a2, a6, SP[a3, a4], a5, 
     n] - S2[a1, a2, a6, SP[a4, a5], a3, n] - S2[a1, a2, SP[a3, a5], a4, a6, 
     n] - S2[a1, a2, SP[a3, a5], a6, a4, n] - S2[a1, a2, SP[a4, a5], a3, a6, 
     n] - S2[a1, a2, SP[a4, a5], a6, a3, n] - S2[a1, a2, SP[a4, a6], a3, a5, 
     n] - S2[a1, a2, SP[a4, a6], a5, a3, n] - S2[a1, a3, a2, a5, SP[a4, a6], 
     n] - S2[a1, a3, a2, SP[a4, a5], a6, n] - 
    S2[a6, n]*S2[a1, a3, a4, a5, a2, n] + 
    S2[a2, n]*S2[a1, a3, a4, a5, a6, n] + S2[a1, a3, a4, SP[a2, a5], a6, n] - 
    S2[a1, a3, a4, SP[a5, a6], a2, n] - S2[a6, n]*S2[a1, a3, a5, a2, a4, n] - 
    S2[a1, a3, a5, a2, SP[a4, a6], n] - S2[a6, n]*S2[a1, a3, a5, a4, a2, n] + 
    S2[a2, n]*S2[a1, a3, a5, a4, a6, n] + 
    S2[a2, n]*S2[a1, a3, a5, a6, a4, n] + S2[a1, a3, a5, a6, SP[a2, a4], n] + 
    S2[a1, a3, a5, SP[a2, a4], a6, n] - S2[a1, a3, a5, SP[a4, a6], a2, n] + 
    S2[a1, a3, a6, a2, SP[a4, a5], n] + S2[a4, n]*S2[a1, a3, a6, a5, a2, n] + 
    S2[a1, a3, a6, a5, SP[a2, a4], n] + S2[a1, a3, a6, SP[a2, a4], a5, n] + 
    S2[a1, a3, a6, SP[a4, a5], a2, n] + S2[a1, a3, SP[a2, a5], a4, a6, n] + 
    S2[a1, a3, SP[a2, a5], a6, a4, n] + S2[a1, a3, SP[a4, a6], a2, a5, n] - 
    S2[a1, a3, SP[a5, a6], a2, a4, n] - S2[a1, a3, SP[a5, a6], a4, a2, n] - 
    S2[a1, a4, a2, a5, SP[a3, a6], n] - S2[a1, a4, a2, SP[a3, a5], a6, n] - 
    S2[a6, n]*S2[a1, a4, a3, a5, a2, n] + 
    S2[a2, n]*S2[a1, a4, a3, a5, a6, n] + S2[a1, a4, a3, SP[a2, a5], a6, n] - 
    S2[a1, a4, a3, SP[a5, a6], a2, n] - S2[a6, n]*S2[a1, a4, a5, a2, a3, n] - 
    S2[a1, a4, a5, a2, SP[a3, a6], n] - S2[a6, n]*S2[a1, a4, a5, a3, a2, n] + 
    S2[a2, n]*S2[a1, a4, a5, a3, a6, n] + 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] + S2[a1, a4, a5, a6, SP[a2, a3], n] + 
    S2[a1, a4, a5, SP[a2, a3], a6, n] - S2[a1, a4, a5, SP[a3, a6], a2, n] - 
    S2[a3, n]*S2[a1, a4, a6, a2, a5, n] - S2[a1, a4, a6, a2, SP[a3, a5], n] + 
    S2[a2, n]*S2[a1, a4, a6, a3, a5, n] + S2[a1, a4, a6, a3, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a4, a6, a5, a3, n] + S2[a1, a4, a6, a5, SP[a2, a3], n] + 
    S2[a1, a4, a6, SP[a2, a5], a3, n] + S2[a1, a4, SP[a2, a5], a3, a6, n] + 
    S2[a1, a4, SP[a2, a5], a6, a3, n] + S2[a1, a4, SP[a2, a6], a3, a5, n] + 
    S2[a1, a4, SP[a2, a6], a5, a3, n] - S2[a1, a4, SP[a3, a6], a2, a5, n] - 
    S2[a1, a4, SP[a3, a6], a5, a2, n] - S2[a1, a4, SP[a5, a6], a2, a3, n] - 
    S2[a1, a4, SP[a5, a6], a3, a2, n] - S2[a6, n]*S2[a1, a5, a2, a3, a4, n] - 
    S2[a1, a5, a2, a3, SP[a4, a6], n] - S2[a6, n]*S2[a1, a5, a2, a4, a3, n] - 
    S2[a1, a5, a2, a4, SP[a3, a6], n] - S2[a1, a5, a2, SP[a3, a6], a4, n] - 
    S2[a1, a5, a2, SP[a4, a6], a3, n] - S2[a6, n]*S2[a1, a5, a3, a2, a4, n] - 
    S2[a1, a5, a3, a2, SP[a4, a6], n] - S2[a6, n]*S2[a1, a5, a3, a4, a2, n] + 
    S2[a2, n]*S2[a1, a5, a3, a4, a6, n] + 
    S2[a2, n]*S2[a1, a5, a3, a6, a4, n] + S2[a1, a5, a3, a6, SP[a2, a4], n] + 
    S2[a1, a5, a3, SP[a2, a4], a6, n] - S2[a1, a5, a3, SP[a4, a6], a2, n] - 
    S2[a6, n]*S2[a1, a5, a4, a2, a3, n] - S2[a1, a5, a4, a2, SP[a3, a6], n] - 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] + 
    S2[a2, n]*S2[a1, a5, a4, a3, a6, n] + 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] + S2[a1, a5, a4, a6, SP[a2, a3], n] + 
    S2[a1, a5, a4, SP[a2, a3], a6, n] - S2[a1, a5, a4, SP[a3, a6], a2, n] + 
    S2[a2, n]*S2[a1, a5, a6, a3, a4, n] + S2[a1, a5, a6, a3, SP[a2, a4], n] + 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] + S2[a1, a5, a6, a4, SP[a2, a3], n] + 
    S2[a1, a5, a6, SP[a2, a3], a4, n] + S2[a1, a5, a6, SP[a2, a4], a3, n] + 
    S2[a1, a5, SP[a2, a3], a4, a6, n] + S2[a1, a5, SP[a2, a3], a6, a4, n] + 
    S2[a1, a5, SP[a2, a4], a3, a6, n] + S2[a1, a5, SP[a2, a4], a6, a3, n] - 
    S2[a1, a5, SP[a3, a6], a2, a4, n] - S2[a1, a5, SP[a3, a6], a4, a2, n] - 
    S2[a1, a5, SP[a4, a6], a2, a3, n] - S2[a1, a5, SP[a4, a6], a3, a2, n] - 
    S2[a3, n]*S2[a1, a6, a2, a4, a5, n] - S2[a1, a6, a2, a4, SP[a3, a5], n] - 
    S2[a3, n]*S2[a1, a6, a2, a5, a4, n] - S2[a1, a6, a2, a5, SP[a3, a4], n] - 
    S2[a1, a6, a2, SP[a3, a4], a5, n] - S2[a1, a6, a2, SP[a3, a5], a4, n] + 
    S2[a2, n]*S2[a1, a6, a3, a4, a5, n] + S2[a1, a6, a3, a4, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a6, a3, a5, a4, n] + S2[a1, a6, a3, a5, SP[a2, a4], n] + 
    S2[a1, a6, a3, SP[a2, a4], a5, n] + S2[a1, a6, a3, SP[a2, a5], a4, n] - 
    S2[a3, n]*S2[a1, a6, a4, a2, a5, n] - S2[a1, a6, a4, a2, SP[a3, a5], n] + 
    S2[a2, n]*S2[a1, a6, a4, a3, a5, n] + S2[a1, a6, a4, a3, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a6, a4, a5, a3, n] + S2[a1, a6, a4, a5, SP[a2, a3], n] + 
    S2[a1, a6, a4, SP[a2, a5], a3, n] + S2[a2, n]*S2[a1, a6, a5, a3, a4, n] + 
    S2[a1, a6, a5, a3, SP[a2, a4], n] + S2[a2, n]*S2[a1, a6, a5, a4, a3, n] + 
    S2[a1, a6, a5, a4, SP[a2, a3], n] + S2[a1, a6, a5, SP[a2, a3], a4, n] + 
    S2[a1, a6, a5, SP[a2, a4], a3, n] + S2[a1, a6, SP[a2, a4], a3, a5, n] + 
    S2[a1, a6, SP[a2, a4], a5, a3, n] + S2[a1, a6, SP[a2, a5], a3, a4, n] + 
    S2[a1, a6, SP[a2, a5], a4, a3, n] - S2[a1, a6, SP[a3, a4], a2, a5, n] + 
    S2[a1, SP[a2, a5], a3, a4, a6, n] + S2[a1, SP[a2, a5], a3, a6, a4, n] + 
    S2[a1, SP[a2, a5], a4, a3, a6, n] + S2[a1, SP[a2, a5], a4, a6, a3, n] + 
    S2[a1, SP[a2, a5], a6, a3, a4, n] + S2[a1, SP[a2, a5], a6, a4, a3, n] + 
    S2[a1, SP[a2, a6], a3, a4, a5, n] + S2[a1, SP[a2, a6], a3, a5, a4, n] + 
    S2[a1, SP[a2, a6], a4, a3, a5, n] + S2[a1, SP[a2, a6], a4, a5, a3, n] + 
    S2[a1, SP[a2, a6], a5, a3, a4, n] + S2[a1, SP[a2, a6], a5, a4, a3, n] + 
    S2[a1, SP[a3, a4], a6, a5, a2, n] - S2[a1, SP[a3, a6], a2, a4, a5, n] - 
    S2[a1, SP[a3, a6], a2, a5, a4, n] - S2[a1, SP[a3, a6], a4, a2, a5, n] - 
    S2[a1, SP[a3, a6], a4, a5, a2, n] - S2[a1, SP[a3, a6], a5, a2, a4, n] - 
    S2[a1, SP[a3, a6], a5, a4, a2, n] - S2[a1, SP[a4, a6], a3, a5, a2, n] - 
    S2[a1, SP[a4, a6], a5, a2, a3, n] - S2[a1, SP[a4, a6], a5, a3, a2, n] - 
    S2[a1, SP[a5, a6], a2, a3, a4, n] - S2[a1, SP[a5, a6], a2, a4, a3, n] - 
    S2[a1, SP[a5, a6], a3, a2, a4, n] - S2[a1, SP[a5, a6], a3, a4, a2, n] - 
    S2[a1, SP[a5, a6], a4, a2, a3, n] - S2[a1, SP[a5, a6], a4, a3, a2, n] - 
    S2[a2, a1, a3, a5, SP[a4, a6], n] - S2[a2, a1, a3, SP[a4, a5], a6, n] - 
    S2[a2, a1, a4, a5, SP[a3, a6], n] - S2[a2, a1, a4, SP[a3, a5], a6, n] - 
    S2[a2, a1, a5, a3, SP[a4, a6], n] - S2[a2, a1, a5, a4, SP[a3, a6], n] - 
    S2[a2, a1, a5, SP[a3, a6], a4, n] - S2[a2, a1, a5, SP[a4, a6], a3, n] - 
    S2[a2, a1, a6, a3, SP[a4, a5], n] - S2[a2, a1, a6, a5, SP[a3, a4], n] - 
    S2[a2, a1, a6, SP[a3, a4], a5, n] - S2[a2, a1, a6, SP[a4, a5], a3, n] - 
    S2[a2, a1, SP[a3, a5], a4, a6, n] - S2[a2, a1, SP[a3, a5], a6, a4, n] - 
    S2[a2, a1, SP[a4, a5], a3, a6, n] - S2[a2, a1, SP[a4, a5], a6, a3, n] - 
    S2[a2, a1, SP[a4, a6], a3, a5, n] - S2[a2, a1, SP[a4, a6], a5, a3, n] + 
    S2[a6, n]*S2[a2, a5, a1, a3, a4, n] + 
    S2[a6, n]*S2[a2, a5, a1, a4, a3, n] - S2[a2, a6, a1, a3, SP[a4, a5], n] + 
    S2[a3, n]*S2[a2, a6, a1, a4, a5, n] + S2[a2, a6, a1, a4, SP[a3, a5], n] + 
    S2[a3, n]*S2[a2, a6, a1, a5, a4, n] + S2[a2, a6, a1, SP[a3, a5], a4, n] - 
    S2[a2, a6, a1, SP[a4, a5], a3, n] - S2[a2, a6, a3, a1, SP[a4, a5], n] - 
    S2[a2, a6, a3, SP[a1, a5], a4, n] - S2[a2, a6, a5, a1, SP[a3, a4], n] - 
    S2[a2, a6, a5, SP[a1, a3], a4, n] - S2[a2, a6, SP[a1, a5], a3, a4, n] - 
    S2[a2, a6, SP[a1, a5], a4, a3, n] - S2[a2, SP[a1, a5], a3, a4, a6, n] - 
    S2[a2, SP[a1, a5], a3, a6, a4, n] - S2[a2, SP[a1, a5], a4, a3, a6, n] - 
    S2[a2, SP[a1, a5], a4, a6, a3, n] - S2[a2, SP[a1, a5], a6, a3, a4, n] - 
    S2[a2, SP[a1, a5], a6, a4, a3, n] - S2[a2, SP[a1, a6], a3, a4, a5, n] - 
    S2[a2, SP[a1, a6], a3, a5, a4, n] - S2[a2, SP[a1, a6], a4, a3, a5, n] - 
    S2[a2, SP[a1, a6], a4, a5, a3, n] - S2[a2, SP[a1, a6], a5, a3, a4, n] - 
    S2[a2, SP[a1, a6], a5, a4, a3, n] + S2[a2, SP[a3, a6], a1, a4, a5, n] + 
    S2[a2, SP[a3, a6], a1, a5, a4, n] + S2[a2, SP[a5, a6], a1, a3, a4, n] + 
    S2[a2, SP[a5, a6], a1, a4, a3, n] + S2[a3, a1, a6, a2, SP[a4, a5], n] + 
    S2[a3, a1, a6, SP[a2, a4], a5, n] + S2[a3, a1, SP[a4, a6], a2, a5, n] + 
    S2[a3, a6, a1, a2, SP[a4, a5], n] - S2[a2, n]*S2[a3, a6, a1, a4, a5, n] - 
    S2[a3, a6, a1, a4, SP[a2, a5], n] - S2[a2, n]*S2[a3, a6, a1, a5, a4, n] - 
    S2[a3, a6, a1, a5, SP[a2, a4], n] - S2[a3, a6, a1, SP[a2, a5], a4, n] + 
    S2[a3, a6, a2, a1, SP[a4, a5], n] + S2[a3, a6, a2, SP[a1, a5], a4, n] + 
    S2[a3, SP[a1, a6], a2, a4, a5, n] + S2[a3, SP[a1, a6], a2, a5, a4, n] + 
    S2[a3, SP[a1, a6], a4, a2, a5, n] - S2[a3, SP[a2, a6], a1, a4, a5, n] - 
    S2[a3, SP[a2, a6], a1, a5, a4, n] + S2[a3, n]*S2[a6, a1, a4, a5, a2, n] + 
    S2[a6, a1, a4, a5, SP[a2, a3], n] + S2[a6, a1, a4, SP[a3, a5], a2, n] + 
    S2[a3, n]*S2[a6, a1, a5, a2, a4, n] + S2[a6, a1, a5, a2, SP[a3, a4], n] + 
    S2[a3, n]*S2[a6, a1, a5, a4, a2, n] + S2[a6, a1, a5, a4, SP[a2, a3], n] + 
    S2[a6, a1, a5, SP[a2, a3], a4, n] + S2[a6, a1, a5, SP[a3, a4], a2, n] + 
    S2[a6, a1, SP[a3, a4], a5, a2, n] + S2[a6, a1, SP[a3, a5], a2, a4, n] + 
    S2[a6, a1, SP[a3, a5], a4, a2, n] - S2[a3, n]*S2[a6, a2, a5, a1, a4, n] - 
    S2[a6, a2, a5, a1, SP[a3, a4], n] - S2[a6, a2, a5, SP[a1, a3], a4, n] - 
    S2[a6, a2, SP[a3, a5], a1, a4, n] + S2[a2, n]*S2[a6, a3, a5, a1, a4, n] + 
    S2[a6, a3, a5, a1, SP[a2, a4], n] + S2[a6, a3, a5, SP[a1, a2], a4, n] + 
    S2[a6, a3, SP[a2, a5], a1, a4, n] + S2[a2, n]*S2[a6, a5, a3, a1, a4, n] + 
    S2[a6, a5, a3, a1, SP[a2, a4], n] + S2[a6, a5, a3, SP[a1, a2], a4, n] + 
    S2[a6, a5, SP[a2, a3], a1, a4, n] + S2[a6, SP[a1, a3], a4, a5, a2, n] + 
    S2[a6, SP[a1, a3], a5, a2, a4, n] + S2[a6, SP[a1, a3], a5, a4, a2, n] + 
    S2[a6, SP[a2, a5], a3, a1, a4, n] + S2[SP[a1, a4], a3, a6, a5, a2, n] - 
    S2[SP[a1, a6], a3, a4, a5, a2, n] - S2[SP[a1, a6], a3, a5, a2, a4, n] - 
    S2[SP[a1, a6], a3, a5, a4, a2, n] - S2[SP[a1, a6], a4, a3, a5, a2, n] - 
    S2[SP[a1, a6], a4, a5, a2, a3, n] - S2[SP[a1, a6], a4, a5, a3, a2, n] - 
    S2[SP[a1, a6], a5, a2, a3, a4, n] - S2[SP[a1, a6], a5, a2, a4, a3, n] - 
    S2[SP[a1, a6], a5, a3, a2, a4, n] - S2[SP[a1, a6], a5, a3, a4, a2, n] - 
    S2[SP[a1, a6], a5, a4, a2, a3, n] - S2[SP[a1, a6], a5, a4, a3, a2, n] + 
    S2[SP[a2, a6], a3, a5, a1, a4, n] + S2[SP[a2, a6], a5, a1, a3, a4, n] + 
    S2[SP[a2, a6], a5, a1, a4, a3, n] + S2[SP[a2, a6], a5, a3, a1, a4, n] + 
    S2[SP[a3, a6], a1, a4, a5, a2, n] + S2[SP[a3, a6], a1, a5, a2, a4, n] + 
    S2[SP[a3, a6], a1, a5, a4, a2, n] - S2[SP[a3, a6], a2, a5, a1, a4, n] - 
    S2[a6, a3, a1, a4, a5, a2, n] - S2[a6, a3, a1, a5, a2, a4, n] - 
    S2[a6, a3, a1, a5, a4, a2, n] - S2[a6, a3, a5, a1, a2, a4, n] - 
    S2[a6, a3, a5, a1, a4, a2, n] - S2[a6, a3, a5, a2, a1, a4, n] - 
    S2[a6, a5, a2, a3, a1, a4, n] - S2[a6, a5, a3, a1, a2, a4, n] - 
    S2[a6, a5, a3, a1, a4, a2, n] - S2[a6, a5, a3, a2, a1, a4, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a4_, a1_, a5_, a2_, a3_, a6_, n_] :> 
  -(S2[a1, a4, a5, n]*S2[a2, a3, a6, n]) - S2[a1, a5, a4, n]*
     S2[a2, a3, a6, n] - S2[SP[a1, a2], SP[a3, a4], SP[a5, a6], n] - 
    S2[SP[a1, a2], SP[a3, a5], SP[a4, a6], n] + S2[a1, a2, SP[a3, a4], 
     SP[a5, a6], n] + S2[a1, a2, SP[a3, a5], SP[a4, a6], n] - 
    S2[a3, a6, n]*S2[a1, a4, a5, a2, n] + S2[a1, a4, SP[a3, a5], SP[a2, a6], 
     n] - S2[a3, a6, n]*S2[a1, a5, a2, a4, n] - 
    S2[a3, a6, n]*S2[a1, a5, a4, a2, n] + S2[a1, a5, SP[a2, a3], SP[a4, a6], 
     n] + S2[a1, a5, SP[a3, a4], SP[a2, a6], n] + S2[a1, SP[a2, a4], a3, 
     SP[a5, a6], n] + S2[a1, SP[a2, a4], SP[a3, a5], a6, n] + 
    S2[a1, SP[a2, a5], a3, SP[a4, a6], n] + S2[a1, SP[a2, a5], SP[a3, a4], 
     a6, n] + S2[a1, SP[a3, a4], a5, SP[a2, a6], n] + 
    S2[a1, SP[a3, a4], SP[a5, a6], a2, n] + S2[a1, SP[a3, a5], a2, 
     SP[a4, a6], n] + S2[a1, SP[a3, a5], a4, SP[a2, a6], n] + 
    S2[a1, SP[a3, a5], SP[a2, a6], a4, n] + S2[a1, SP[a3, a5], SP[a4, a6], 
     a2, n] + S2[a2, a1, SP[a3, a4], SP[a5, a6], n] + 
    S2[a2, a1, SP[a3, a5], SP[a4, a6], n] + S2[a1, a4, n]*
     S2[a2, a3, a5, a6, n] + S2[a1, a4, n]*S2[a2, a3, a6, a5, n] - 
    S2[a2, a3, SP[a1, a5], SP[a4, a6], n] - S2[a2, a3, SP[a1, a6], 
     SP[a4, a5], n] + S2[a1, a4, n]*S2[a2, a5, a3, a6, n] + 
    S2[a1, a4, n]*S2[a2, a5, a6, a3, n] - S2[a2, a5, SP[a1, a3], SP[a4, a6], 
     n] - S2[a2, a5, SP[a1, a6], SP[a3, a4], n] + 
    S2[a1, a4, n]*S2[a2, a6, a3, a5, n] + S2[a1, a4, n]*
     S2[a2, a6, a5, a3, n] - S2[a2, a6, SP[a1, a3], SP[a4, a5], n] - 
    S2[a2, a6, SP[a1, a5], SP[a3, a4], n] + S2[a2, SP[a1, a3], a4, 
     SP[a5, a6], n] - S2[a2, SP[a1, a3], a6, SP[a4, a5], n] - 
    S2[a2, SP[a1, a3], SP[a4, a5], a6, n] + S2[a2, SP[a1, a3], SP[a5, a6], 
     a4, n] - S2[a2, SP[a1, a5], a3, SP[a4, a6], n] - 
    S2[a2, SP[a1, a5], a6, SP[a3, a4], n] - S2[a2, SP[a1, a5], SP[a3, a4], 
     a6, n] - S2[a2, SP[a1, a5], SP[a4, a6], a3, n] - 
    S2[a2, SP[a1, a6], a3, SP[a4, a5], n] - S2[a2, SP[a1, a6], a5, 
     SP[a3, a4], n] - S2[a2, SP[a1, a6], SP[a3, a4], a5, n] - 
    S2[a2, SP[a1, a6], SP[a4, a5], a3, n] - S2[a1, a4, n]*
     S2[a3, a6, a2, a5, n] + S2[a3, a6, SP[a1, a2], SP[a4, a5], n] + 
    S2[a3, SP[a1, a6], a2, SP[a4, a5], n] + S2[a3, SP[a1, a6], SP[a2, a4], 
     a5, n] + S2[SP[a1, a2], a3, a4, SP[a5, a6], n] - 
    S2[SP[a1, a2], a3, a6, SP[a4, a5], n] - S2[SP[a1, a2], a3, SP[a4, a5], 
     a6, n] + S2[SP[a1, a2], a3, SP[a5, a6], a4, n] + 
    S2[SP[a1, a2], a4, a3, SP[a5, a6], n] + S2[SP[a1, a2], a4, SP[a3, a5], 
     a6, n] - S2[SP[a1, a2], a5, a6, SP[a3, a4], n] - 
    S2[SP[a1, a2], a5, SP[a4, a6], a3, n] - S2[SP[a1, a2], a6, a3, 
     SP[a4, a5], n] - S2[SP[a1, a2], a6, a5, SP[a3, a4], n] - 
    S2[SP[a1, a2], a6, SP[a3, a4], a5, n] - S2[SP[a1, a2], a6, SP[a4, a5], 
     a3, n] + S2[SP[a1, a2], SP[a3, a5], a4, a6, n] + 
    S2[SP[a1, a2], SP[a3, a5], a6, a4, n] - S2[SP[a1, a2], SP[a4, a5], a3, 
     a6, n] - S2[SP[a1, a2], SP[a4, a5], a6, a3, n] - 
    S2[SP[a1, a2], SP[a4, a6], a3, a5, n] - S2[SP[a1, a2], SP[a4, a6], a5, 
     a3, n] + S2[SP[a1, a3], a4, a5, SP[a2, a6], n] + 
    S2[SP[a1, a3], a4, SP[a5, a6], a2, n] + S2[SP[a1, a3], a5, a2, 
     SP[a4, a6], n] + S2[SP[a1, a3], a5, a4, SP[a2, a6], n] + 
    S2[SP[a1, a3], a5, SP[a2, a6], a4, n] + S2[SP[a1, a3], a5, SP[a4, a6], 
     a2, n] + S2[SP[a1, a3], a6, a2, SP[a4, a5], n] + 
    S2[SP[a1, a3], a6, SP[a2, a4], a5, n] + S2[SP[a1, a3], SP[a4, a6], a2, 
     a5, n] + S2[SP[a1, a3], SP[a4, a6], a5, a2, n] + 
    S2[SP[a1, a3], SP[a5, a6], a2, a4, n] + S2[SP[a1, a3], SP[a5, a6], a4, 
     a2, n] - S2[a1, a2, a3, a4, SP[a5, a6], n] + 
    S2[a1, a2, a3, a6, SP[a4, a5], n] + S2[a1, a2, a3, SP[a4, a5], a6, n] - 
    S2[a1, a2, a3, SP[a5, a6], a4, n] - S2[a1, a2, a4, a3, SP[a5, a6], n] - 
    S2[a1, a2, a4, SP[a3, a5], a6, n] + S2[a1, a2, a5, a6, SP[a3, a4], n] + 
    S2[a1, a2, a5, SP[a4, a6], a3, n] + S2[a1, a2, a6, a3, SP[a4, a5], n] + 
    S2[a1, a2, a6, a5, SP[a3, a4], n] + S2[a1, a2, a6, SP[a3, a4], a5, n] + 
    S2[a1, a2, a6, SP[a4, a5], a3, n] - S2[a1, a2, SP[a3, a5], a4, a6, n] - 
    S2[a1, a2, SP[a3, a5], a6, a4, n] + S2[a1, a2, SP[a4, a5], a3, a6, n] + 
    S2[a1, a2, SP[a4, a5], a6, a3, n] + S2[a1, a2, SP[a4, a6], a3, a5, n] + 
    S2[a1, a2, SP[a4, a6], a5, a3, n] - S2[a1, a3, a4, a5, SP[a2, a6], n] - 
    S2[a1, a3, a4, SP[a5, a6], a2, n] - S2[a1, a3, a5, a2, SP[a4, a6], n] - 
    S2[a1, a3, a5, a4, SP[a2, a6], n] - S2[a1, a3, a5, SP[a2, a6], a4, n] - 
    S2[a1, a3, a5, SP[a4, a6], a2, n] - S2[a1, a3, a6, a2, SP[a4, a5], n] - 
    S2[a1, a3, a6, SP[a2, a4], a5, n] - S2[a1, a3, SP[a4, a6], a2, a5, n] - 
    S2[a1, a3, SP[a4, a6], a5, a2, n] - S2[a1, a3, SP[a5, a6], a2, a4, n] - 
    S2[a1, a3, SP[a5, a6], a4, a2, n] - S2[a1, a4, a2, a3, SP[a5, a6], n] - 
    S2[a1, a4, a2, SP[a3, a5], a6, n] - S2[a1, a4, a3, a5, SP[a2, a6], n] - 
    S2[a1, a4, a3, SP[a5, a6], a2, n] + S2[a3, n]*S2[a1, a4, a5, a2, a6, n] + 
    S2[a1, a4, a5, a2, SP[a3, a6], n] - S2[a1, a4, a5, a3, SP[a2, a6], n] + 
    S2[a3, n]*S2[a1, a4, a5, a6, a2, n] - 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] - S2[a1, a4, a5, SP[a2, a6], a3, n] + 
    S2[a1, a4, a5, SP[a3, a6], a2, n] + S2[a3, n]*S2[a1, a4, a6, a2, a5, n] + 
    S2[a1, a4, a6, a2, SP[a3, a5], n] - S2[a2, n]*S2[a1, a4, a6, a3, a5, n] - 
    S2[a1, a4, a6, a3, SP[a2, a5], n] + S2[a3, n]*S2[a1, a4, a6, a5, a2, n] - 
    S2[a2, n]*S2[a1, a4, a6, a5, a3, n] - S2[a1, a4, a6, SP[a2, a5], a3, n] + 
    S2[a1, a4, a6, SP[a3, a5], a2, n] - S2[a1, a4, SP[a2, a5], a3, a6, n] - 
    S2[a1, a4, SP[a2, a5], a6, a3, n] - S2[a1, a4, SP[a2, a6], a3, a5, n] - 
    S2[a1, a4, SP[a2, a6], a5, a3, n] + S2[a1, a4, SP[a3, a6], a2, a5, n] + 
    S2[a1, a4, SP[a3, a6], a5, a2, n] + S2[a4, n]*S2[a1, a5, a2, a3, a6, n] - 
    S2[a1, a5, a2, a3, SP[a4, a6], n] + S2[a3, n]*S2[a1, a5, a2, a4, a6, n] + 
    S2[a1, a5, a2, a4, SP[a3, a6], n] + S2[a3, n]*S2[a1, a5, a2, a6, a4, n] + 
    S2[a1, a5, a2, a6, SP[a3, a4], n] + S2[a1, a5, a2, SP[a3, a6], a4, n] - 
    S2[a1, a5, a3, a2, SP[a4, a6], n] - S2[a1, a5, a3, a4, SP[a2, a6], n] - 
    S2[a1, a5, a3, SP[a2, a6], a4, n] - S2[a1, a5, a3, SP[a4, a6], a2, n] + 
    S2[a3, n]*S2[a1, a5, a4, a2, a6, n] + S2[a1, a5, a4, a2, SP[a3, a6], n] - 
    S2[a1, a5, a4, a3, SP[a2, a6], n] + S2[a3, n]*S2[a1, a5, a4, a6, a2, n] - 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] - S2[a1, a5, a4, SP[a2, a6], a3, n] + 
    S2[a1, a5, a4, SP[a3, a6], a2, n] + S2[a3, n]*S2[a1, a5, a6, a2, a4, n] + 
    S2[a1, a5, a6, a2, SP[a3, a4], n] - S2[a2, n]*S2[a1, a5, a6, a3, a4, n] - 
    S2[a1, a5, a6, a3, SP[a2, a4], n] + S2[a3, n]*S2[a1, a5, a6, a4, a2, n] - 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] - S2[a1, a5, a6, SP[a2, a4], a3, n] + 
    S2[a1, a5, a6, SP[a3, a4], a2, n] - S2[a1, a5, SP[a2, a4], a6, a3, n] - 
    S2[a1, a5, SP[a2, a6], a3, a4, n] - S2[a1, a5, SP[a2, a6], a4, a3, n] + 
    S2[a1, a5, SP[a3, a6], a2, a4, n] + S2[a1, a5, SP[a3, a6], a4, a2, n] + 
    S2[a3, n]*S2[a1, a6, a2, a4, a5, n] + S2[a1, a6, a2, a4, SP[a3, a5], n] + 
    S2[a3, n]*S2[a1, a6, a2, a5, a4, n] + S2[a1, a6, a2, a5, SP[a3, a4], n] + 
    S2[a1, a6, a2, SP[a3, a4], a5, n] + S2[a1, a6, a2, SP[a3, a5], a4, n] - 
    S2[a2, n]*S2[a1, a6, a3, a4, a5, n] - S2[a1, a6, a3, a4, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a6, a3, a5, a4, n] - S2[a1, a6, a3, a5, SP[a2, a4], n] - 
    S2[a1, a6, a3, SP[a2, a4], a5, n] - S2[a1, a6, a3, SP[a2, a5], a4, n] + 
    S2[a3, n]*S2[a1, a6, a4, a2, a5, n] + S2[a1, a6, a4, a2, SP[a3, a5], n] - 
    S2[a2, n]*S2[a1, a6, a4, a3, a5, n] - S2[a1, a6, a4, a3, SP[a2, a5], n] + 
    S2[a3, n]*S2[a1, a6, a4, a5, a2, n] - 
    S2[a2, n]*S2[a1, a6, a4, a5, a3, n] - S2[a1, a6, a4, SP[a2, a5], a3, n] + 
    S2[a1, a6, a4, SP[a3, a5], a2, n] + S2[a3, n]*S2[a1, a6, a5, a2, a4, n] + 
    S2[a1, a6, a5, a2, SP[a3, a4], n] - S2[a2, n]*S2[a1, a6, a5, a3, a4, n] - 
    S2[a1, a6, a5, a3, SP[a2, a4], n] + S2[a3, n]*S2[a1, a6, a5, a4, a2, n] - 
    S2[a2, n]*S2[a1, a6, a5, a4, a3, n] - S2[a1, a6, a5, SP[a2, a4], a3, n] + 
    S2[a1, a6, a5, SP[a3, a4], a2, n] - S2[a1, a6, SP[a2, a4], a3, a5, n] - 
    S2[a1, a6, SP[a2, a4], a5, a3, n] - S2[a1, a6, SP[a2, a5], a3, a4, n] - 
    S2[a1, a6, SP[a2, a5], a4, a3, n] + S2[a1, a6, SP[a3, a4], a2, a5, n] + 
    S2[a1, a6, SP[a3, a4], a5, a2, n] + S2[a1, a6, SP[a3, a5], a2, a4, n] + 
    S2[a1, a6, SP[a3, a5], a4, a2, n] - S2[a1, SP[a2, a5], a3, a4, a6, n] - 
    S2[a1, SP[a2, a5], a3, a6, a4, n] - S2[a1, SP[a2, a5], a4, a3, a6, n] - 
    S2[a1, SP[a2, a5], a4, a6, a3, n] - S2[a1, SP[a2, a5], a6, a3, a4, n] - 
    S2[a1, SP[a2, a5], a6, a4, a3, n] - S2[a1, SP[a2, a6], a3, a4, a5, n] - 
    S2[a1, SP[a2, a6], a3, a5, a4, n] - S2[a1, SP[a2, a6], a4, a3, a5, n] - 
    S2[a1, SP[a2, a6], a4, a5, a3, n] - S2[a1, SP[a2, a6], a5, a3, a4, n] - 
    S2[a1, SP[a2, a6], a5, a4, a3, n] + S2[a1, SP[a3, a6], a2, a4, a5, n] + 
    S2[a1, SP[a3, a6], a2, a5, a4, n] + S2[a1, SP[a3, a6], a4, a2, a5, n] + 
    S2[a1, SP[a3, a6], a4, a5, a2, n] + S2[a1, SP[a3, a6], a5, a2, a4, n] + 
    S2[a1, SP[a3, a6], a5, a4, a2, n] + S2[a1, SP[a4, a5], a2, a3, a6, n] - 
    S2[a2, a1, a3, a4, SP[a5, a6], n] + S2[a2, a1, a3, a6, SP[a4, a5], n] + 
    S2[a2, a1, a3, SP[a4, a5], a6, n] - S2[a2, a1, a3, SP[a5, a6], a4, n] - 
    S2[a2, a1, a4, a3, SP[a5, a6], n] - S2[a2, a1, a4, SP[a3, a5], a6, n] + 
    S2[a2, a1, a5, a6, SP[a3, a4], n] + S2[a2, a1, a5, SP[a4, a6], a3, n] + 
    S2[a2, a1, a6, a3, SP[a4, a5], n] + S2[a2, a1, a6, a5, SP[a3, a4], n] + 
    S2[a2, a1, a6, SP[a3, a4], a5, n] + S2[a2, a1, a6, SP[a4, a5], a3, n] - 
    S2[a2, a1, SP[a3, a5], a4, a6, n] - S2[a2, a1, SP[a3, a5], a6, a4, n] + 
    S2[a2, a1, SP[a4, a5], a3, a6, n] + S2[a2, a1, SP[a4, a5], a6, a3, n] + 
    S2[a2, a1, SP[a4, a6], a3, a5, n] + S2[a2, a1, SP[a4, a6], a5, a3, n] - 
    S2[a2, a3, a1, a4, SP[a5, a6], n] + S2[a2, a3, a1, a6, SP[a4, a5], n] + 
    S2[a2, a3, a1, SP[a4, a5], a6, n] - S2[a2, a3, a1, SP[a5, a6], a4, n] - 
    S2[a6, n]*S2[a2, a3, a5, a1, a4, n] + S2[a2, a3, a6, a1, SP[a4, a5], n] + 
    S2[a2, a3, a6, SP[a1, a5], a4, n] + S2[a2, a3, SP[a1, a5], a4, a6, n] + 
    S2[a2, a3, SP[a1, a5], a6, a4, n] - S2[a2, a3, SP[a5, a6], a1, a4, n] - 
    S2[a6, n]*S2[a2, a5, a1, a3, a4, n] - 
    S2[a6, n]*S2[a2, a5, a1, a4, a3, n] - S2[a2, a5, a1, a4, SP[a3, a6], n] + 
    S2[a2, a5, a1, a6, SP[a3, a4], n] + S2[a2, a5, a1, SP[a3, a4], a6, n] - 
    S2[a2, a5, a1, SP[a3, a6], a4, n] - S2[a6, n]*S2[a2, a5, a3, a1, a4, n] + 
    S2[a2, a5, a6, a1, SP[a3, a4], n] + S2[a2, a5, a6, SP[a1, a3], a4, n] + 
    S2[a2, a5, SP[a1, a3], a4, a6, n] + S2[a2, a5, SP[a1, a3], a6, a4, n] - 
    S2[a2, a5, SP[a3, a6], a1, a4, n] + S2[a2, a6, a1, a3, SP[a4, a5], n] - 
    S2[a3, n]*S2[a2, a6, a1, a4, a5, n] - S2[a2, a6, a1, a4, SP[a3, a5], n] - 
    S2[a3, n]*S2[a2, a6, a1, a5, a4, n] - S2[a2, a6, a1, SP[a3, a5], a4, n] + 
    S2[a2, a6, a1, SP[a4, a5], a3, n] + S2[a2, a6, a3, a1, SP[a4, a5], n] + 
    S2[a2, a6, a3, SP[a1, a5], a4, n] + S2[a2, a6, a5, a1, SP[a3, a4], n] + 
    S2[a2, a6, a5, SP[a1, a3], a4, n] + S2[a2, a6, SP[a1, a5], a3, a4, n] + 
    S2[a2, a6, SP[a1, a5], a4, a3, n] + S2[a2, SP[a1, a5], a3, a4, a6, n] + 
    S2[a2, SP[a1, a5], a3, a6, a4, n] + S2[a2, SP[a1, a5], a4, a3, a6, n] + 
    S2[a2, SP[a1, a5], a4, a6, a3, n] + S2[a2, SP[a1, a5], a6, a3, a4, n] + 
    S2[a2, SP[a1, a5], a6, a4, a3, n] + S2[a2, SP[a1, a6], a3, a4, a5, n] + 
    S2[a2, SP[a1, a6], a3, a5, a4, n] + S2[a2, SP[a1, a6], a4, a3, a5, n] + 
    S2[a2, SP[a1, a6], a4, a5, a3, n] + S2[a2, SP[a1, a6], a5, a3, a4, n] + 
    S2[a2, SP[a1, a6], a5, a4, a3, n] - S2[a2, SP[a3, a6], a1, a4, a5, n] - 
    S2[a2, SP[a3, a6], a1, a5, a4, n] - S2[a2, SP[a3, a6], a5, a1, a4, n] - 
    S2[a2, SP[a5, a6], a1, a3, a4, n] - S2[a2, SP[a5, a6], a1, a4, a3, n] - 
    S2[a2, SP[a5, a6], a3, a1, a4, n] - S2[a3, a1, a4, a5, SP[a2, a6], n] - 
    S2[a3, a1, a4, SP[a5, a6], a2, n] - S2[a3, a1, a5, a2, SP[a4, a6], n] - 
    S2[a3, a1, a5, a4, SP[a2, a6], n] - S2[a3, a1, a5, SP[a2, a6], a4, n] - 
    S2[a3, a1, a5, SP[a4, a6], a2, n] - S2[a3, a1, a6, a2, SP[a4, a5], n] - 
    S2[a3, a1, a6, SP[a2, a4], a5, n] - S2[a3, a1, SP[a4, a6], a2, a5, n] - 
    S2[a3, a1, SP[a4, a6], a5, a2, n] - S2[a3, a1, SP[a5, a6], a2, a4, n] - 
    S2[a3, a1, SP[a5, a6], a4, a2, n] - S2[a3, a6, a1, a2, SP[a4, a5], n] + 
    S2[a2, n]*S2[a3, a6, a1, a4, a5, n] + S2[a3, a6, a1, a4, SP[a2, a5], n] + 
    S2[a2, n]*S2[a3, a6, a1, a5, a4, n] + S2[a3, a6, a1, a5, SP[a2, a4], n] + 
    S2[a3, a6, a1, SP[a2, a5], a4, n] - S2[a3, a6, a2, a1, SP[a4, a5], n] - 
    S2[a3, a6, a2, SP[a1, a5], a4, n] - S2[a3, SP[a1, a6], a2, a4, a5, n] - 
    S2[a3, SP[a1, a6], a2, a5, a4, n] - S2[a3, SP[a1, a6], a4, a2, a5, n] - 
    S2[a3, SP[a1, a6], a4, a5, a2, n] - S2[a3, SP[a1, a6], a5, a2, a4, n] - 
    S2[a3, SP[a1, a6], a5, a4, a2, n] + S2[a3, SP[a2, a6], a1, a4, a5, n] + 
    S2[a3, SP[a2, a6], a1, a5, a4, n] + S2[a3, n]*S2[a6, a2, a5, a1, a4, n] + 
    S2[a6, a2, a5, a1, SP[a3, a4], n] + S2[a6, a2, a5, SP[a1, a3], a4, n] + 
    S2[a6, a2, SP[a3, a5], a1, a4, n] + S2[a6, SP[a2, a3], a5, a1, a4, n] + 
    S2[SP[a1, a4], a5, a2, a3, a6, n] - S2[SP[a2, a6], a3, a5, a1, a4, n] - 
    S2[SP[a2, a6], a5, a1, a3, a4, n] - S2[SP[a2, a6], a5, a1, a4, a3, n] - 
    S2[SP[a2, a6], a5, a3, a1, a4, n] + S2[SP[a3, a6], a2, a5, a1, a4, n] - 
    S2[a6, a3, a2, a5, a1, a4, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a4_, a1_, a5_, a2_, a6_, a3_, n_] :> 
  -(S2[a1, a4, a5, n]*S2[a2, a6, a3, n]) - S2[a1, a5, a4, n]*
     S2[a2, a6, a3, n] - S2[SP[a1, a2], SP[a4, a6], SP[a3, a5], n] - 
    S2[SP[a1, a2], SP[a5, a6], SP[a3, a4], n] + S2[a1, a2, SP[a4, a6], 
     SP[a3, a5], n] + S2[a1, a2, SP[a5, a6], SP[a3, a4], n] + 
    S2[a3, a6, n]*S2[a1, a4, a5, a2, n] - S2[a1, a4, SP[a3, a5], SP[a2, a6], 
     n] + S2[a3, a6, n]*S2[a1, a5, a2, a4, n] + 
    S2[a3, a6, n]*S2[a1, a5, a4, a2, n] - S2[a1, a5, SP[a2, a3], SP[a4, a6], 
     n] - S2[a1, a5, SP[a3, a4], SP[a2, a6], n] + S2[a1, SP[a2, a4], a6, 
     SP[a3, a5], n] + S2[a1, SP[a2, a4], SP[a5, a6], a3, n] + 
    S2[a1, SP[a2, a5], a6, SP[a3, a4], n] + S2[a1, SP[a2, a5], SP[a4, a6], 
     a3, n] - S2[a1, SP[a3, a4], a5, SP[a2, a6], n] - 
    S2[a1, SP[a3, a4], SP[a5, a6], a2, n] - S2[a1, SP[a3, a5], a2, 
     SP[a4, a6], n] - S2[a1, SP[a3, a5], a4, SP[a2, a6], n] - 
    S2[a1, SP[a3, a5], SP[a2, a6], a4, n] - S2[a1, SP[a3, a5], SP[a4, a6], 
     a2, n] + S2[a2, a1, SP[a4, a6], SP[a3, a5], n] + 
    S2[a2, a1, SP[a5, a6], SP[a3, a4], n] + S2[a2, SP[a1, a6], a4, 
     SP[a3, a5], n] + S2[a2, SP[a1, a6], a5, SP[a3, a4], n] + 
    S2[a2, SP[a1, a6], SP[a3, a4], a5, n] + S2[a2, SP[a1, a6], SP[a3, a5], 
     a4, n] + S2[a1, a4, n]*S2[a3, a6, a2, a5, n] - 
    S2[a3, a6, SP[a1, a2], SP[a4, a5], n] - S2[a3, SP[a1, a6], a2, 
     SP[a4, a5], n] - S2[a3, SP[a1, a6], SP[a2, a4], a5, n] + 
    S2[SP[a1, a2], a4, a6, SP[a3, a5], n] + S2[SP[a1, a2], a4, SP[a5, a6], 
     a3, n] + S2[SP[a1, a2], a5, a6, SP[a3, a4], n] + 
    S2[SP[a1, a2], a5, SP[a4, a6], a3, n] + S2[SP[a1, a2], a6, a4, 
     SP[a3, a5], n] + S2[SP[a1, a2], a6, a5, SP[a3, a4], n] + 
    S2[SP[a1, a2], a6, SP[a3, a4], a5, n] + S2[SP[a1, a2], a6, SP[a3, a5], 
     a4, n] + S2[SP[a1, a2], SP[a4, a6], a3, a5, n] + 
    S2[SP[a1, a2], SP[a4, a6], a5, a3, n] + S2[SP[a1, a2], SP[a5, a6], a3, 
     a4, n] + S2[SP[a1, a2], SP[a5, a6], a4, a3, n] - 
    S2[SP[a1, a3], a4, a5, SP[a2, a6], n] - S2[SP[a1, a3], a4, SP[a5, a6], 
     a2, n] - S2[SP[a1, a3], a5, a2, SP[a4, a6], n] - 
    S2[SP[a1, a3], a5, a4, SP[a2, a6], n] - S2[SP[a1, a3], a5, SP[a2, a6], 
     a4, n] - S2[SP[a1, a3], a5, SP[a4, a6], a2, n] - 
    S2[SP[a1, a3], a6, a2, SP[a4, a5], n] - S2[SP[a1, a3], a6, SP[a2, a4], 
     a5, n] - S2[SP[a1, a3], SP[a4, a6], a2, a5, n] - 
    S2[SP[a1, a3], SP[a4, a6], a5, a2, n] - S2[SP[a1, a3], SP[a5, a6], a2, 
     a4, n] - S2[SP[a1, a3], SP[a5, a6], a4, a2, n] - 
    S2[a1, a2, a4, a6, SP[a3, a5], n] - S2[a1, a2, a4, SP[a5, a6], a3, n] - 
    S2[a1, a2, a5, a6, SP[a3, a4], n] - S2[a1, a2, a5, SP[a4, a6], a3, n] - 
    S2[a1, a2, a6, a4, SP[a3, a5], n] - S2[a1, a2, a6, a5, SP[a3, a4], n] - 
    S2[a1, a2, a6, SP[a3, a4], a5, n] - S2[a1, a2, a6, SP[a3, a5], a4, n] - 
    S2[a1, a2, SP[a4, a6], a3, a5, n] - S2[a1, a2, SP[a4, a6], a5, a3, n] - 
    S2[a1, a2, SP[a5, a6], a3, a4, n] - S2[a1, a2, SP[a5, a6], a4, a3, n] + 
    S2[a1, a3, a4, a5, SP[a2, a6], n] + S2[a1, a3, a4, SP[a5, a6], a2, n] + 
    S2[a1, a3, a5, a2, SP[a4, a6], n] + S2[a1, a3, a5, a4, SP[a2, a6], n] + 
    S2[a1, a3, a5, SP[a2, a6], a4, n] + S2[a1, a3, a5, SP[a4, a6], a2, n] + 
    S2[a1, a3, a6, a2, SP[a4, a5], n] + S2[a1, a3, a6, SP[a2, a4], a5, n] + 
    S2[a1, a3, SP[a4, a6], a2, a5, n] + S2[a1, a3, SP[a4, a6], a5, a2, n] + 
    S2[a1, a3, SP[a5, a6], a2, a4, n] + S2[a1, a3, SP[a5, a6], a4, a2, n] - 
    S2[a1, a4, a2, a6, SP[a3, a5], n] - S2[a1, a4, a2, SP[a5, a6], a3, n] + 
    S2[a1, a4, a3, a5, SP[a2, a6], n] + S2[a1, a4, a3, SP[a5, a6], a2, n] - 
    S2[a3, n]*S2[a1, a4, a5, a2, a6, n] - S2[a1, a4, a5, a2, SP[a3, a6], n] + 
    S2[a1, a4, a5, a3, SP[a2, a6], n] - S2[a3, n]*S2[a1, a4, a5, a6, a2, n] + 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] + S2[a1, a4, a5, SP[a2, a6], a3, n] - 
    S2[a1, a4, a5, SP[a3, a6], a2, n] - S2[a3, n]*S2[a1, a4, a6, a2, a5, n] - 
    S2[a1, a4, a6, a2, SP[a3, a5], n] + S2[a2, n]*S2[a1, a4, a6, a3, a5, n] + 
    S2[a1, a4, a6, a3, SP[a2, a5], n] - S2[a3, n]*S2[a1, a4, a6, a5, a2, n] + 
    S2[a2, n]*S2[a1, a4, a6, a5, a3, n] + S2[a1, a4, a6, SP[a2, a5], a3, n] - 
    S2[a1, a4, a6, SP[a3, a5], a2, n] + S2[a1, a4, SP[a2, a6], a3, a5, n] + 
    S2[a1, a4, SP[a2, a6], a5, a3, n] - S2[a1, a4, SP[a3, a6], a2, a5, n] - 
    S2[a1, a4, SP[a3, a6], a5, a2, n] + S2[a1, a5, a2, a3, SP[a4, a6], n] - 
    S2[a3, n]*S2[a1, a5, a2, a4, a6, n] - S2[a1, a5, a2, a4, SP[a3, a6], n] + 
    S2[a4, n]*S2[a1, a5, a2, a6, a3, n] - 
    S2[a3, n]*S2[a1, a5, a2, a6, a4, n] - S2[a1, a5, a2, a6, SP[a3, a4], n] - 
    S2[a1, a5, a2, SP[a3, a6], a4, n] + S2[a1, a5, a3, a2, SP[a4, a6], n] + 
    S2[a1, a5, a3, a4, SP[a2, a6], n] + S2[a1, a5, a3, SP[a2, a6], a4, n] + 
    S2[a1, a5, a3, SP[a4, a6], a2, n] - S2[a3, n]*S2[a1, a5, a4, a2, a6, n] - 
    S2[a1, a5, a4, a2, SP[a3, a6], n] + S2[a1, a5, a4, a3, SP[a2, a6], n] - 
    S2[a3, n]*S2[a1, a5, a4, a6, a2, n] + 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] + S2[a1, a5, a4, SP[a2, a6], a3, n] - 
    S2[a1, a5, a4, SP[a3, a6], a2, n] - S2[a3, n]*S2[a1, a5, a6, a2, a4, n] - 
    S2[a1, a5, a6, a2, SP[a3, a4], n] + S2[a2, n]*S2[a1, a5, a6, a3, a4, n] + 
    S2[a1, a5, a6, a3, SP[a2, a4], n] - S2[a3, n]*S2[a1, a5, a6, a4, a2, n] + 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] + S2[a1, a5, a6, SP[a2, a4], a3, n] - 
    S2[a1, a5, a6, SP[a3, a4], a2, n] + S2[a1, a5, SP[a2, a4], a6, a3, n] + 
    S2[a1, a5, SP[a2, a6], a3, a4, n] + S2[a1, a5, SP[a2, a6], a4, a3, n] - 
    S2[a1, a5, SP[a3, a6], a2, a4, n] - S2[a1, a5, SP[a3, a6], a4, a2, n] - 
    S2[a3, n]*S2[a1, a6, a2, a4, a5, n] - S2[a1, a6, a2, a4, SP[a3, a5], n] - 
    S2[a3, n]*S2[a1, a6, a2, a5, a4, n] - S2[a1, a6, a2, a5, SP[a3, a4], n] - 
    S2[a1, a6, a2, SP[a3, a4], a5, n] - S2[a1, a6, a2, SP[a3, a5], a4, n] + 
    S2[a2, n]*S2[a1, a6, a3, a4, a5, n] + S2[a1, a6, a3, a4, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a6, a3, a5, a4, n] + S2[a1, a6, a3, a5, SP[a2, a4], n] + 
    S2[a1, a6, a3, SP[a2, a4], a5, n] + S2[a1, a6, a3, SP[a2, a5], a4, n] - 
    S2[a3, n]*S2[a1, a6, a4, a2, a5, n] - S2[a1, a6, a4, a2, SP[a3, a5], n] + 
    S2[a2, n]*S2[a1, a6, a4, a3, a5, n] + S2[a1, a6, a4, a3, SP[a2, a5], n] - 
    S2[a3, n]*S2[a1, a6, a4, a5, a2, n] + 
    S2[a2, n]*S2[a1, a6, a4, a5, a3, n] + S2[a1, a6, a4, SP[a2, a5], a3, n] - 
    S2[a1, a6, a4, SP[a3, a5], a2, n] - S2[a3, n]*S2[a1, a6, a5, a2, a4, n] - 
    S2[a1, a6, a5, a2, SP[a3, a4], n] + S2[a2, n]*S2[a1, a6, a5, a3, a4, n] + 
    S2[a1, a6, a5, a3, SP[a2, a4], n] - S2[a3, n]*S2[a1, a6, a5, a4, a2, n] + 
    S2[a2, n]*S2[a1, a6, a5, a4, a3, n] + S2[a1, a6, a5, SP[a2, a4], a3, n] - 
    S2[a1, a6, a5, SP[a3, a4], a2, n] + S2[a1, a6, SP[a2, a4], a3, a5, n] + 
    S2[a1, a6, SP[a2, a4], a5, a3, n] + S2[a1, a6, SP[a2, a5], a3, a4, n] + 
    S2[a1, a6, SP[a2, a5], a4, a3, n] - S2[a1, a6, SP[a3, a4], a2, a5, n] - 
    S2[a1, a6, SP[a3, a4], a5, a2, n] - S2[a1, a6, SP[a3, a5], a2, a4, n] - 
    S2[a1, a6, SP[a3, a5], a4, a2, n] + S2[a1, SP[a2, a6], a3, a4, a5, n] + 
    S2[a1, SP[a2, a6], a3, a5, a4, n] + S2[a1, SP[a2, a6], a4, a3, a5, n] + 
    S2[a1, SP[a2, a6], a4, a5, a3, n] + S2[a1, SP[a2, a6], a5, a3, a4, n] + 
    S2[a1, SP[a2, a6], a5, a4, a3, n] - S2[a1, SP[a3, a6], a2, a4, a5, n] - 
    S2[a1, SP[a3, a6], a2, a5, a4, n] - S2[a1, SP[a3, a6], a4, a2, a5, n] - 
    S2[a1, SP[a3, a6], a4, a5, a2, n] - S2[a1, SP[a3, a6], a5, a2, a4, n] - 
    S2[a1, SP[a3, a6], a5, a4, a2, n] + S2[a1, SP[a4, a5], a2, a6, a3, n] - 
    S2[a2, a1, a4, a6, SP[a3, a5], n] - S2[a2, a1, a4, SP[a5, a6], a3, n] - 
    S2[a2, a1, a5, a6, SP[a3, a4], n] - S2[a2, a1, a5, SP[a4, a6], a3, n] - 
    S2[a2, a1, a6, a4, SP[a3, a5], n] - S2[a2, a1, a6, a5, SP[a3, a4], n] - 
    S2[a2, a1, a6, SP[a3, a4], a5, n] - S2[a2, a1, a6, SP[a3, a5], a4, n] - 
    S2[a2, a1, SP[a4, a6], a3, a5, n] - S2[a2, a1, SP[a4, a6], a5, a3, n] - 
    S2[a2, a1, SP[a5, a6], a3, a4, n] - S2[a2, a1, SP[a5, a6], a4, a3, n] + 
    S2[a3, n]*S2[a2, a6, a1, a4, a5, n] + 
    S2[a3, n]*S2[a2, a6, a1, a5, a4, n] - S2[a2, SP[a1, a6], a3, a4, a5, n] - 
    S2[a2, SP[a1, a6], a3, a5, a4, n] - S2[a2, SP[a1, a6], a4, a3, a5, n] - 
    S2[a2, SP[a1, a6], a4, a5, a3, n] - S2[a2, SP[a1, a6], a5, a3, a4, n] - 
    S2[a2, SP[a1, a6], a5, a4, a3, n] + S2[a2, SP[a3, a6], a1, a4, a5, n] + 
    S2[a2, SP[a3, a6], a1, a5, a4, n] + S2[a3, a1, a4, a5, SP[a2, a6], n] + 
    S2[a3, a1, a4, SP[a5, a6], a2, n] + S2[a3, a1, a5, a2, SP[a4, a6], n] + 
    S2[a3, a1, a5, a4, SP[a2, a6], n] + S2[a3, a1, a5, SP[a2, a6], a4, n] + 
    S2[a3, a1, a5, SP[a4, a6], a2, n] + S2[a3, a1, a6, a2, SP[a4, a5], n] + 
    S2[a3, a1, a6, SP[a2, a4], a5, n] + S2[a3, a1, SP[a4, a6], a2, a5, n] + 
    S2[a3, a1, SP[a4, a6], a5, a2, n] + S2[a3, a1, SP[a5, a6], a2, a4, n] + 
    S2[a3, a1, SP[a5, a6], a4, a2, n] + S2[a3, a6, a1, a2, SP[a4, a5], n] - 
    S2[a2, n]*S2[a3, a6, a1, a4, a5, n] - S2[a3, a6, a1, a4, SP[a2, a5], n] - 
    S2[a2, n]*S2[a3, a6, a1, a5, a4, n] - S2[a3, a6, a1, a5, SP[a2, a4], n] - 
    S2[a3, a6, a1, SP[a2, a5], a4, n] + S2[a3, a6, a2, a1, SP[a4, a5], n] + 
    S2[a3, a6, a2, SP[a1, a5], a4, n] + S2[a3, SP[a1, a6], a2, a4, a5, n] + 
    S2[a3, SP[a1, a6], a2, a5, a4, n] + S2[a3, SP[a1, a6], a4, a2, a5, n] + 
    S2[a3, SP[a1, a6], a4, a5, a2, n] + S2[a3, SP[a1, a6], a5, a2, a4, n] + 
    S2[a3, SP[a1, a6], a5, a4, a2, n] - S2[a3, SP[a2, a6], a1, a4, a5, n] - 
    S2[a3, SP[a2, a6], a1, a5, a4, n] - S2[a3, n]*S2[a6, a2, a5, a1, a4, n] - 
    S2[a6, a2, a5, a1, SP[a3, a4], n] - S2[a6, a2, a5, SP[a1, a3], a4, n] - 
    S2[a6, a2, SP[a3, a5], a1, a4, n] - S2[a6, SP[a2, a3], a5, a1, a4, n] + 
    S2[SP[a1, a4], a5, a2, a6, a3, n] - S2[SP[a3, a6], a2, a5, a1, a4, n] + 
    S2[a6, a2, a3, a5, a1, a4, n] + S2[a6, a2, a5, a1, a3, a4, n] + 
    S2[a6, a2, a5, a1, a4, a3, n] + S2[a6, a2, a5, a3, a1, a4, n] + 
    S2[a6, a3, a2, a5, a1, a4, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a4_, a1_, a5_, a3_, a2_, a6_, n_] :> 
  S2[a1, a4, a5, n]*S2[a2, a3, a6, n] + S2[a1, a5, a4, n]*S2[a2, a3, a6, n] + 
    S2[a1, a4, a5, n]*S2[a2, a6, a3, n] + S2[a1, a5, a4, n]*
     S2[a2, a6, a3, n] + S2[SP[a1, a2], SP[a3, a4], SP[a5, a6], n] + 
    S2[SP[a1, a2], SP[a3, a5], SP[a4, a6], n] + S2[SP[a1, a2], SP[a4, a6], 
     SP[a3, a5], n] + S2[SP[a1, a2], SP[a5, a6], SP[a3, a4], n] - 
    S2[a1, a2, SP[a3, a4], SP[a5, a6], n] - S2[a1, a2, SP[a3, a5], 
     SP[a4, a6], n] - S2[a1, a2, SP[a4, a6], SP[a3, a5], n] - 
    S2[a1, a2, SP[a5, a6], SP[a3, a4], n] - S2[a2, a6, n]*
     S2[a1, a4, a5, a3, n] + S2[a1, a4, SP[a2, a5], SP[a3, a6], n] - 
    S2[a2, a6, n]*S2[a1, a5, a3, a4, n] - S2[a2, a6, n]*
     S2[a1, a5, a4, a3, n] + S2[a1, a5, SP[a2, a3], SP[a4, a6], n] + 
    S2[a1, a5, SP[a2, a4], SP[a3, a6], n] - S2[a1, SP[a2, a4], a3, 
     SP[a5, a6], n] + S2[a1, SP[a2, a4], a5, SP[a3, a6], n] - 
    S2[a1, SP[a2, a4], a6, SP[a3, a5], n] - S2[a1, SP[a2, a4], SP[a3, a5], 
     a6, n] + S2[a1, SP[a2, a5], a4, SP[a3, a6], n] - 
    S2[a1, SP[a2, a5], a6, SP[a3, a4], n] - S2[a1, SP[a2, a5], SP[a3, a4], 
     a6, n] + S2[a1, SP[a2, a5], SP[a3, a6], a4, n] - 
    S2[a2, a1, SP[a3, a4], SP[a5, a6], n] - S2[a2, a1, SP[a3, a5], 
     SP[a4, a6], n] - S2[a2, a1, SP[a4, a6], SP[a3, a5], n] - 
    S2[a2, a1, SP[a5, a6], SP[a3, a4], n] - S2[a1, a4, n]*
     S2[a2, a3, a5, a6, n] - S2[a1, a4, n]*S2[a2, a3, a6, a5, n] + 
    S2[a2, a3, SP[a1, a5], SP[a4, a6], n] + S2[a2, a3, SP[a1, a6], 
     SP[a4, a5], n] - S2[a1, a4, n]*S2[a2, a6, a3, a5, n] + 
    S2[a2, a6, SP[a1, a3], SP[a4, a5], n] - S2[a2, SP[a1, a3], a4, 
     SP[a5, a6], n] + S2[a2, SP[a1, a3], a6, SP[a4, a5], n] + 
    S2[a2, SP[a1, a3], SP[a4, a5], a6, n] - S2[a2, SP[a1, a3], SP[a5, a6], 
     a4, n] + S2[a2, SP[a1, a6], a3, SP[a4, a5], n] - 
    S2[a2, SP[a1, a6], a4, SP[a3, a5], n] - S2[a2, SP[a1, a6], a5, 
     SP[a3, a4], n] - S2[a2, SP[a1, a6], SP[a3, a5], a4, n] - 
    S2[SP[a1, a2], a3, a4, SP[a5, a6], n] + S2[SP[a1, a2], a3, a6, 
     SP[a4, a5], n] + S2[SP[a1, a2], a3, SP[a4, a5], a6, n] - 
    S2[SP[a1, a2], a3, SP[a5, a6], a4, n] - S2[SP[a1, a2], a4, a3, 
     SP[a5, a6], n] + S2[SP[a1, a2], a4, a5, SP[a3, a6], n] - 
    S2[SP[a1, a2], a4, a6, SP[a3, a5], n] - S2[SP[a1, a2], a4, SP[a3, a5], 
     a6, n] + S2[SP[a1, a2], a5, a4, SP[a3, a6], n] - 
    S2[SP[a1, a2], a5, a6, SP[a3, a4], n] - S2[SP[a1, a2], a5, SP[a3, a4], 
     a6, n] + S2[SP[a1, a2], a5, SP[a3, a6], a4, n] + 
    S2[SP[a1, a2], a6, a3, SP[a4, a5], n] - S2[SP[a1, a2], a6, a4, 
     SP[a3, a5], n] - S2[SP[a1, a2], a6, a5, SP[a3, a4], n] - 
    S2[SP[a1, a2], a6, SP[a3, a5], a4, n] - S2[SP[a1, a2], SP[a3, a5], a4, 
     a6, n] - S2[SP[a1, a2], SP[a3, a5], a6, a4, n] + 
    S2[a1, a2, a3, a4, SP[a5, a6], n] - S2[a1, a2, a3, a6, SP[a4, a5], n] - 
    S2[a1, a2, a3, SP[a4, a5], a6, n] + S2[a1, a2, a3, SP[a5, a6], a4, n] + 
    S2[a1, a2, a4, a3, SP[a5, a6], n] - S2[a1, a2, a4, a5, SP[a3, a6], n] + 
    S2[a1, a2, a4, a6, SP[a3, a5], n] + S2[a1, a2, a4, SP[a3, a5], a6, n] - 
    S2[a1, a2, a5, a4, SP[a3, a6], n] + S2[a1, a2, a5, a6, SP[a3, a4], n] + 
    S2[a1, a2, a5, SP[a3, a4], a6, n] - S2[a1, a2, a5, SP[a3, a6], a4, n] - 
    S2[a1, a2, a6, a3, SP[a4, a5], n] + S2[a1, a2, a6, a4, SP[a3, a5], n] + 
    S2[a1, a2, a6, a5, SP[a3, a4], n] + S2[a1, a2, a6, SP[a3, a5], a4, n] + 
    S2[a1, a2, SP[a3, a5], a4, a6, n] + S2[a1, a2, SP[a3, a5], a6, a4, n] + 
    S2[a1, a4, a2, a3, SP[a5, a6], n] - S2[a1, a4, a2, a5, SP[a3, a6], n] + 
    S2[a1, a4, a2, a6, SP[a3, a5], n] + S2[a1, a4, a2, SP[a3, a5], a6, n] - 
    S2[a1, a4, a5, a2, SP[a3, a6], n] - S2[a1, a4, a5, SP[a2, a3], a6, n] - 
    S2[a1, a5, a2, a4, SP[a3, a6], n] + S2[a1, a5, a2, a6, SP[a3, a4], n] + 
    S2[a1, a5, a2, SP[a3, a4], a6, n] - S2[a1, a5, a2, SP[a3, a6], a4, n] + 
    S2[a4, n]*S2[a1, a5, a3, a2, a6, n] - S2[a1, a5, a4, a2, SP[a3, a6], n] - 
    S2[a1, a5, a4, SP[a2, a3], a6, n] - S2[a1, a5, SP[a2, a3], a4, a6, n] - 
    S2[a1, a5, SP[a2, a3], a6, a4, n] + S2[a1, a5, SP[a3, a4], a2, a6, n] + 
    S2[a1, SP[a4, a5], a3, a2, a6, n] + S2[a2, a1, a3, a4, SP[a5, a6], n] - 
    S2[a2, a1, a3, a6, SP[a4, a5], n] - S2[a2, a1, a3, SP[a4, a5], a6, n] + 
    S2[a2, a1, a3, SP[a5, a6], a4, n] + S2[a2, a1, a4, a3, SP[a5, a6], n] - 
    S2[a2, a1, a4, a5, SP[a3, a6], n] + S2[a2, a1, a4, a6, SP[a3, a5], n] + 
    S2[a2, a1, a4, SP[a3, a5], a6, n] - S2[a2, a1, a5, a4, SP[a3, a6], n] + 
    S2[a2, a1, a5, a6, SP[a3, a4], n] + S2[a2, a1, a5, SP[a3, a4], a6, n] - 
    S2[a2, a1, a5, SP[a3, a6], a4, n] - S2[a2, a1, a6, a3, SP[a4, a5], n] + 
    S2[a2, a1, a6, a4, SP[a3, a5], n] + S2[a2, a1, a6, a5, SP[a3, a4], n] + 
    S2[a2, a1, a6, SP[a3, a5], a4, n] + S2[a2, a1, SP[a3, a5], a4, a6, n] + 
    S2[a2, a1, SP[a3, a5], a6, a4, n] + S2[a2, a3, a1, a4, SP[a5, a6], n] - 
    S2[a2, a3, a1, a6, SP[a4, a5], n] - S2[a2, a3, a1, SP[a4, a5], a6, n] + 
    S2[a2, a3, a1, SP[a5, a6], a4, n] + S2[a6, n]*S2[a2, a3, a5, a1, a4, n] - 
    S2[a2, a3, a6, a1, SP[a4, a5], n] - S2[a2, a3, a6, SP[a1, a5], a4, n] - 
    S2[a2, a3, SP[a1, a5], a4, a6, n] - S2[a2, a3, SP[a1, a5], a6, a4, n] + 
    S2[a2, a3, SP[a5, a6], a1, a4, n] - S2[a2, a6, a1, a3, SP[a4, a5], n] + 
    S2[a2, a6, a1, a4, SP[a3, a5], n] + S2[a2, a6, a1, a5, SP[a3, a4], n] + 
    S2[a2, a6, a1, SP[a3, a5], a4, n] - S2[a2, a6, a3, a1, SP[a4, a5], n] - 
    S2[a2, a6, a3, SP[a1, a5], a4, n] + S2[a2, SP[a3, a6], a5, a1, a4, n] + 
    S2[SP[a1, a4], a5, a3, a2, a6, n] + S2[SP[a2, a6], a3, a5, a1, a4, n] - 
    S2[a6, a2, a3, a5, a1, a4, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a4_, a1_, a5_, a3_, a6_, a2_, n_] :> 
  -(S2[a1, a4, a5, n]*S2[a2, a6, a3, n]) - S2[a1, a5, a4, n]*
     S2[a2, a6, a3, n] - S2[SP[a1, a2], SP[a4, a6], SP[a3, a5], n] - 
    S2[SP[a1, a2], SP[a5, a6], SP[a3, a4], n] + S2[a1, a2, SP[a4, a6], 
     SP[a3, a5], n] + S2[a1, a2, SP[a5, a6], SP[a3, a4], n] + 
    S2[a2, a6, n]*S2[a1, a4, a5, a3, n] - S2[a1, a4, SP[a2, a5], SP[a3, a6], 
     n] + S2[a2, a6, n]*S2[a1, a5, a3, a4, n] + 
    S2[a2, a6, n]*S2[a1, a5, a4, a3, n] - S2[a1, a5, SP[a2, a3], SP[a4, a6], 
     n] - S2[a1, a5, SP[a2, a4], SP[a3, a6], n] - S2[a1, SP[a2, a4], a5, 
     SP[a3, a6], n] + S2[a1, SP[a2, a4], a6, SP[a3, a5], n] - 
    S2[a1, SP[a2, a5], a3, SP[a4, a6], n] - S2[a1, SP[a2, a5], a4, 
     SP[a3, a6], n] + S2[a1, SP[a2, a5], a6, SP[a3, a4], n] - 
    S2[a1, SP[a2, a5], SP[a3, a6], a4, n] + S2[a2, a1, SP[a4, a6], 
     SP[a3, a5], n] + S2[a2, a1, SP[a5, a6], SP[a3, a4], n] + 
    S2[a1, a4, n]*S2[a2, a6, a3, a5, n] - S2[a2, a6, SP[a1, a3], SP[a4, a5], 
     n] - S2[a2, SP[a1, a6], a3, SP[a4, a5], n] + S2[a2, SP[a1, a6], a4, 
     SP[a3, a5], n] + S2[a2, SP[a1, a6], a5, SP[a3, a4], n] + 
    S2[a2, SP[a1, a6], SP[a3, a5], a4, n] - S2[SP[a1, a2], a4, a5, 
     SP[a3, a6], n] + S2[SP[a1, a2], a4, a6, SP[a3, a5], n] - 
    S2[SP[a1, a2], a5, a3, SP[a4, a6], n] - S2[SP[a1, a2], a5, a4, 
     SP[a3, a6], n] + S2[SP[a1, a2], a5, a6, SP[a3, a4], n] - 
    S2[SP[a1, a2], a5, SP[a3, a6], a4, n] - S2[SP[a1, a2], a6, a3, 
     SP[a4, a5], n] + S2[SP[a1, a2], a6, a4, SP[a3, a5], n] + 
    S2[SP[a1, a2], a6, a5, SP[a3, a4], n] + S2[SP[a1, a2], a6, SP[a3, a5], 
     a4, n] + S2[a1, a2, a4, a5, SP[a3, a6], n] - 
    S2[a1, a2, a4, a6, SP[a3, a5], n] + S2[a1, a2, a5, a3, SP[a4, a6], n] + 
    S2[a1, a2, a5, a4, SP[a3, a6], n] - S2[a1, a2, a5, a6, SP[a3, a4], n] + 
    S2[a1, a2, a5, SP[a3, a6], a4, n] + S2[a1, a2, a6, a3, SP[a4, a5], n] - 
    S2[a1, a2, a6, a4, SP[a3, a5], n] - S2[a1, a2, a6, a5, SP[a3, a4], n] - 
    S2[a1, a2, a6, SP[a3, a5], a4, n] + S2[a1, a4, a2, a5, SP[a3, a6], n] - 
    S2[a1, a4, a2, a6, SP[a3, a5], n] + S2[a1, a4, a5, a2, SP[a3, a6], n] - 
    S2[a2, n]*S2[a1, a4, a5, a3, a6, n] - S2[a1, a4, a5, a3, SP[a2, a6], n] + 
    S2[a1, a5, a2, a3, SP[a4, a6], n] + S2[a1, a5, a2, a4, SP[a3, a6], n] - 
    S2[a1, a5, a2, a6, SP[a3, a4], n] + S2[a1, a5, a2, SP[a3, a6], a4, n] + 
    S2[a1, a5, a3, a2, SP[a4, a6], n] - S2[a2, n]*S2[a1, a5, a3, a4, a6, n] - 
    S2[a1, a5, a3, a4, SP[a2, a6], n] + S2[a4, n]*S2[a1, a5, a3, a6, a2, n] - 
    S2[a2, n]*S2[a1, a5, a3, a6, a4, n] - S2[a1, a5, a3, SP[a2, a6], a4, n] + 
    S2[a1, a5, a3, SP[a4, a6], a2, n] + S2[a1, a5, a4, a2, SP[a3, a6], n] - 
    S2[a2, n]*S2[a1, a5, a4, a3, a6, n] - S2[a1, a5, a4, a3, SP[a2, a6], n] + 
    S2[a1, a5, SP[a3, a4], a6, a2, n] + S2[a1, SP[a4, a5], a3, a6, a2, n] + 
    S2[a2, a1, a4, a5, SP[a3, a6], n] - S2[a2, a1, a4, a6, SP[a3, a5], n] + 
    S2[a2, a1, a5, a3, SP[a4, a6], n] + S2[a2, a1, a5, a4, SP[a3, a6], n] - 
    S2[a2, a1, a5, a6, SP[a3, a4], n] + S2[a2, a1, a5, SP[a3, a6], a4, n] + 
    S2[a2, a1, a6, a3, SP[a4, a5], n] - S2[a2, a1, a6, a4, SP[a3, a5], n] - 
    S2[a2, a1, a6, a5, SP[a3, a4], n] - S2[a2, a1, a6, SP[a3, a5], a4, n] + 
    S2[a2, a6, a1, a3, SP[a4, a5], n] - S2[a2, a6, a1, a4, SP[a3, a5], n] - 
    S2[a2, a6, a1, a5, SP[a3, a4], n] - S2[a2, a6, a1, SP[a3, a5], a4, n] + 
    S2[a2, a6, a3, a1, SP[a4, a5], n] + S2[a2, a6, a3, SP[a1, a5], a4, n] - 
    S2[a2, n]*S2[a6, a3, a5, a1, a4, n] - S2[a6, a3, a5, a1, SP[a2, a4], n] - 
    S2[a6, a3, a5, SP[a1, a2], a4, n] - S2[a6, a3, SP[a2, a5], a1, a4, n] - 
    S2[a6, SP[a2, a3], a5, a1, a4, n] + S2[SP[a1, a4], a5, a3, a6, a2, n] - 
    S2[SP[a2, a6], a3, a5, a1, a4, n] + S2[a6, a2, a3, a5, a1, a4, n] + 
    S2[a6, a3, a2, a5, a1, a4, n] + S2[a6, a3, a5, a1, a2, a4, n] + 
    S2[a6, a3, a5, a1, a4, a2, n] + S2[a6, a3, a5, a2, a1, a4, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a4_, a1_, a5_, a6_, a2_, a3_, n_] :> 
  S2[a1, a4, a5, n]*S2[a2, a3, a6, n] + S2[a1, a5, a4, n]*S2[a2, a3, a6, n] + 
    S2[a1, a4, a5, n]*S2[a2, a6, a3, n] + S2[a1, a5, a4, n]*
     S2[a2, a6, a3, n] + S2[SP[a1, a2], SP[a3, a4], SP[a5, a6], n] + 
    S2[SP[a1, a2], SP[a3, a5], SP[a4, a6], n] + S2[SP[a1, a2], SP[a4, a6], 
     SP[a3, a5], n] + S2[SP[a1, a2], SP[a5, a6], SP[a3, a4], n] - 
    S2[a1, a2, SP[a3, a4], SP[a5, a6], n] - S2[a1, a2, SP[a3, a5], 
     SP[a4, a6], n] - S2[a1, a2, SP[a4, a6], SP[a3, a5], n] - 
    S2[a1, a2, SP[a5, a6], SP[a3, a4], n] - S2[a1, SP[a2, a4], a3, 
     SP[a5, a6], n] - S2[a1, SP[a2, a4], a6, SP[a3, a5], n] - 
    S2[a1, SP[a2, a4], SP[a3, a5], a6, n] - S2[a1, SP[a2, a4], SP[a5, a6], 
     a3, n] - S2[a1, SP[a2, a5], a3, SP[a4, a6], n] - 
    S2[a1, SP[a2, a5], a6, SP[a3, a4], n] - S2[a1, SP[a2, a5], SP[a3, a4], 
     a6, n] - S2[a1, SP[a2, a5], SP[a4, a6], a3, n] - 
    S2[a2, a1, SP[a3, a4], SP[a5, a6], n] - S2[a2, a1, SP[a3, a5], 
     SP[a4, a6], n] - S2[a2, a1, SP[a4, a6], SP[a3, a5], n] - 
    S2[a2, a1, SP[a5, a6], SP[a3, a4], n] - S2[a2, SP[a1, a3], a4, 
     SP[a5, a6], n] - S2[a2, SP[a1, a3], a5, SP[a4, a6], n] - 
    S2[a2, SP[a1, a3], SP[a4, a6], a5, n] - S2[a2, SP[a1, a3], SP[a5, a6], 
     a4, n] - S2[a2, SP[a1, a6], a4, SP[a3, a5], n] - 
    S2[a2, SP[a1, a6], a5, SP[a3, a4], n] - S2[a2, SP[a1, a6], SP[a3, a4], 
     a5, n] - S2[a2, SP[a1, a6], SP[a3, a5], a4, n] - 
    S2[a1, a4, n]*S2[a5, a6, a2, a3, n] + S2[a5, a6, SP[a1, a2], SP[a3, a4], 
     n] + S2[a5, SP[a1, a6], a2, SP[a3, a4], n] + 
    S2[a5, SP[a1, a6], SP[a2, a4], a3, n] - S2[SP[a1, a2], a3, a4, 
     SP[a5, a6], n] - S2[SP[a1, a2], a3, a5, SP[a4, a6], n] - 
    S2[SP[a1, a2], a3, SP[a4, a6], a5, n] - S2[SP[a1, a2], a3, SP[a5, a6], 
     a4, n] - S2[SP[a1, a2], a4, a3, SP[a5, a6], n] - 
    S2[SP[a1, a2], a4, a6, SP[a3, a5], n] - S2[SP[a1, a2], a4, SP[a3, a5], 
     a6, n] - S2[SP[a1, a2], a4, SP[a5, a6], a3, n] - 
    S2[SP[a1, a2], a5, a3, SP[a4, a6], n] - S2[SP[a1, a2], a5, a6, 
     SP[a3, a4], n] - S2[SP[a1, a2], a5, SP[a3, a4], a6, n] - 
    S2[SP[a1, a2], a5, SP[a4, a6], a3, n] - S2[SP[a1, a2], a6, a4, 
     SP[a3, a5], n] - S2[SP[a1, a2], a6, a5, SP[a3, a4], n] - 
    S2[SP[a1, a2], a6, SP[a3, a4], a5, n] - S2[SP[a1, a2], a6, SP[a3, a5], 
     a4, n] - S2[SP[a1, a2], SP[a3, a4], a5, a6, n] - 
    S2[SP[a1, a2], SP[a3, a4], a6, a5, n] - S2[SP[a1, a2], SP[a3, a5], a4, 
     a6, n] - S2[SP[a1, a2], SP[a3, a5], a6, a4, n] - 
    S2[SP[a1, a2], SP[a4, a6], a3, a5, n] - S2[SP[a1, a2], SP[a4, a6], a5, 
     a3, n] - S2[SP[a1, a2], SP[a5, a6], a3, a4, n] - 
    S2[SP[a1, a2], SP[a5, a6], a4, a3, n] + S2[SP[a1, a5], a6, a2, 
     SP[a3, a4], n] + S2[SP[a1, a5], a6, SP[a2, a4], a3, n] + 
    S2[SP[a1, a5], SP[a4, a6], a2, a3, n] + S2[a1, a2, a3, a4, SP[a5, a6], 
     n] + S2[a1, a2, a3, a5, SP[a4, a6], n] + S2[a1, a2, a3, SP[a4, a6], a5, 
     n] + S2[a1, a2, a3, SP[a5, a6], a4, n] + S2[a1, a2, a4, a3, SP[a5, a6], 
     n] + S2[a1, a2, a4, a6, SP[a3, a5], n] + S2[a1, a2, a4, SP[a3, a5], a6, 
     n] + S2[a1, a2, a4, SP[a5, a6], a3, n] + S2[a1, a2, a5, a3, SP[a4, a6], 
     n] + S2[a1, a2, a5, a6, SP[a3, a4], n] + S2[a1, a2, a5, SP[a3, a4], a6, 
     n] + S2[a1, a2, a5, SP[a4, a6], a3, n] + S2[a1, a2, a6, a4, SP[a3, a5], 
     n] + S2[a1, a2, a6, a5, SP[a3, a4], n] + S2[a1, a2, a6, SP[a3, a4], a5, 
     n] + S2[a1, a2, a6, SP[a3, a5], a4, n] + S2[a1, a2, SP[a3, a4], a5, a6, 
     n] + S2[a1, a2, SP[a3, a4], a6, a5, n] + S2[a1, a2, SP[a3, a5], a4, a6, 
     n] + S2[a1, a2, SP[a3, a5], a6, a4, n] + S2[a1, a2, SP[a4, a6], a3, a5, 
     n] + S2[a1, a2, SP[a4, a6], a5, a3, n] + S2[a1, a2, SP[a5, a6], a3, a4, 
     n] + S2[a1, a2, SP[a5, a6], a4, a3, n] + 
    S2[a6, n]*S2[a1, a3, a2, a4, a5, n] + S2[a1, a3, a2, a4, SP[a5, a6], n] + 
    S2[a6, n]*S2[a1, a3, a2, a5, a4, n] + S2[a1, a3, a2, a5, SP[a4, a6], n] + 
    S2[a1, a3, a2, SP[a4, a6], a5, n] + S2[a1, a3, a2, SP[a5, a6], a4, n] + 
    S2[a6, n]*S2[a1, a3, a4, a2, a5, n] + S2[a1, a3, a4, a2, SP[a5, a6], n] + 
    S2[a6, n]*S2[a1, a3, a4, a5, a2, n] - 
    S2[a2, n]*S2[a1, a3, a4, a5, a6, n] - 
    S2[a2, n]*S2[a1, a3, a4, a6, a5, n] - S2[a1, a3, a4, a6, SP[a2, a5], n] - 
    S2[a1, a3, a4, SP[a2, a5], a6, n] + S2[a1, a3, a4, SP[a5, a6], a2, n] + 
    S2[a6, n]*S2[a1, a3, a5, a2, a4, n] + S2[a1, a3, a5, a2, SP[a4, a6], n] + 
    S2[a6, n]*S2[a1, a3, a5, a4, a2, n] - 
    S2[a2, n]*S2[a1, a3, a5, a4, a6, n] - 
    S2[a2, n]*S2[a1, a3, a5, a6, a4, n] - S2[a1, a3, a5, a6, SP[a2, a4], n] - 
    S2[a1, a3, a5, SP[a2, a4], a6, n] + S2[a1, a3, a5, SP[a4, a6], a2, n] - 
    S2[a2, n]*S2[a1, a3, a6, a4, a5, n] - S2[a1, a3, a6, a4, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a3, a6, a5, a4, n] - S2[a1, a3, a6, a5, SP[a2, a4], n] - 
    S2[a1, a3, a6, SP[a2, a4], a5, n] - S2[a1, a3, a6, SP[a2, a5], a4, n] - 
    S2[a1, a3, SP[a2, a4], a5, a6, n] - S2[a1, a3, SP[a2, a4], a6, a5, n] - 
    S2[a1, a3, SP[a2, a5], a4, a6, n] - S2[a1, a3, SP[a2, a5], a6, a4, n] + 
    S2[a1, a3, SP[a4, a6], a2, a5, n] + S2[a1, a3, SP[a4, a6], a5, a2, n] + 
    S2[a1, a3, SP[a5, a6], a2, a4, n] + S2[a1, a3, SP[a5, a6], a4, a2, n] + 
    S2[a1, a4, a2, a3, SP[a5, a6], n] + S2[a1, a4, a2, a6, SP[a3, a5], n] + 
    S2[a1, a4, a2, SP[a3, a5], a6, n] + S2[a1, a4, a2, SP[a5, a6], a3, n] + 
    S2[a6, n]*S2[a1, a4, a3, a2, a5, n] + S2[a1, a4, a3, a2, SP[a5, a6], n] + 
    S2[a6, n]*S2[a1, a4, a3, a5, a2, n] - 
    S2[a2, n]*S2[a1, a4, a3, a5, a6, n] - 
    S2[a2, n]*S2[a1, a4, a3, a6, a5, n] - S2[a1, a4, a3, a6, SP[a2, a5], n] - 
    S2[a1, a4, a3, SP[a2, a5], a6, n] + S2[a1, a4, a3, SP[a5, a6], a2, n] + 
    S2[a6, n]*S2[a1, a4, a5, a3, a2, n] - 
    S2[a2, n]*S2[a1, a4, a5, a3, a6, n] - 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] - S2[a1, a4, a5, a6, SP[a2, a3], n] - 
    S2[a1, a4, a5, SP[a2, a3], a6, n] - S2[a1, a4, a5, SP[a2, a6], a3, n] + 
    S2[a1, a4, a5, SP[a3, a6], a2, n] + S2[a5, n]*S2[a1, a4, a6, a2, a3, n] + 
    S2[a1, a4, a6, a2, SP[a3, a5], n] - S2[a2, n]*S2[a1, a4, a6, a3, a5, n] - 
    S2[a1, a4, a6, a3, SP[a2, a5], n] - S2[a2, n]*S2[a1, a4, a6, a5, a3, n] - 
    S2[a1, a4, a6, a5, SP[a2, a3], n] - S2[a1, a4, a6, SP[a2, a3], a5, n] - 
    S2[a1, a4, SP[a2, a3], a5, a6, n] - S2[a1, a4, SP[a2, a3], a6, a5, n] - 
    S2[a1, a4, SP[a2, a6], a3, a5, n] - S2[a1, a4, SP[a2, a6], a5, a3, n] + 
    S2[a1, a4, SP[a3, a6], a2, a5, n] + S2[a1, a4, SP[a3, a6], a5, a2, n] + 
    S2[a1, a4, SP[a5, a6], a2, a3, n] + S2[a1, a4, SP[a5, a6], a3, a2, n] + 
    S2[a1, a5, a2, a3, SP[a4, a6], n] + S2[a1, a5, a2, a6, SP[a3, a4], n] + 
    S2[a1, a5, a2, SP[a3, a4], a6, n] + S2[a1, a5, a2, SP[a4, a6], a3, n] + 
    S2[a6, n]*S2[a1, a5, a3, a2, a4, n] + S2[a1, a5, a3, a2, SP[a4, a6], n] + 
    S2[a6, n]*S2[a1, a5, a3, a4, a2, n] - 
    S2[a2, n]*S2[a1, a5, a3, a4, a6, n] - 
    S2[a2, n]*S2[a1, a5, a3, a6, a4, n] - S2[a1, a5, a3, a6, SP[a2, a4], n] - 
    S2[a1, a5, a3, SP[a2, a4], a6, n] + S2[a1, a5, a3, SP[a4, a6], a2, n] + 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] - 
    S2[a2, n]*S2[a1, a5, a4, a3, a6, n] - 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] - S2[a1, a5, a4, a6, SP[a2, a3], n] - 
    S2[a1, a5, a4, SP[a2, a3], a6, n] - S2[a1, a5, a4, SP[a2, a6], a3, n] + 
    S2[a1, a5, a4, SP[a3, a6], a2, n] + S2[a4, n]*S2[a1, a5, a6, a2, a3, n] - 
    S2[a2, n]*S2[a1, a5, a6, a3, a4, n] - S2[a1, a5, a6, a3, SP[a2, a4], n] - 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] - S2[a1, a5, a6, a4, SP[a2, a3], n] - 
    S2[a1, a5, a6, SP[a2, a3], a4, n] - S2[a1, a5, a6, SP[a2, a4], a3, n] - 
    S2[a1, a5, SP[a2, a3], a4, a6, n] - S2[a1, a5, SP[a2, a3], a6, a4, n] - 
    S2[a1, a5, SP[a2, a6], a3, a4, n] - S2[a1, a5, SP[a2, a6], a4, a3, n] + 
    S2[a1, a5, SP[a3, a6], a2, a4, n] + S2[a1, a5, SP[a3, a6], a4, a2, n] + 
    S2[a1, a5, SP[a4, a6], a3, a2, n] + S2[a5, n]*S2[a1, a6, a2, a3, a4, n] + 
    S2[a1, a6, a2, a3, SP[a4, a5], n] + S2[a5, n]*S2[a1, a6, a2, a4, a3, n] + 
    S2[a1, a6, a2, a4, SP[a3, a5], n] + S2[a1, a6, a2, SP[a3, a5], a4, n] + 
    S2[a1, a6, a2, SP[a4, a5], a3, n] - S2[a2, n]*S2[a1, a6, a3, a4, a5, n] - 
    S2[a1, a6, a3, a4, SP[a2, a5], n] - S2[a2, n]*S2[a1, a6, a3, a5, a4, n] - 
    S2[a1, a6, a3, a5, SP[a2, a4], n] - S2[a1, a6, a3, SP[a2, a4], a5, n] - 
    S2[a1, a6, a3, SP[a2, a5], a4, n] + S2[a5, n]*S2[a1, a6, a4, a2, a3, n] + 
    S2[a1, a6, a4, a2, SP[a3, a5], n] - S2[a2, n]*S2[a1, a6, a4, a3, a5, n] - 
    S2[a1, a6, a4, a3, SP[a2, a5], n] - S2[a2, n]*S2[a1, a6, a4, a5, a3, n] - 
    S2[a1, a6, a4, a5, SP[a2, a3], n] - S2[a1, a6, a4, SP[a2, a3], a5, n] - 
    S2[a2, n]*S2[a1, a6, a5, a3, a4, n] - S2[a1, a6, a5, a3, SP[a2, a4], n] - 
    S2[a2, n]*S2[a1, a6, a5, a4, a3, n] - S2[a1, a6, a5, a4, SP[a2, a3], n] - 
    S2[a1, a6, a5, SP[a2, a3], a4, n] - S2[a1, a6, a5, SP[a2, a4], a3, n] - 
    S2[a1, a6, SP[a2, a3], a4, a5, n] - S2[a1, a6, SP[a2, a3], a5, a4, n] - 
    S2[a1, a6, SP[a2, a4], a3, a5, n] - S2[a1, a6, SP[a2, a4], a5, a3, n] + 
    S2[a1, a6, SP[a4, a5], a2, a3, n] - S2[a1, SP[a2, a3], a4, a5, a6, n] - 
    S2[a1, SP[a2, a3], a4, a6, a5, n] - S2[a1, SP[a2, a3], a5, a4, a6, n] - 
    S2[a1, SP[a2, a3], a5, a6, a4, n] - S2[a1, SP[a2, a3], a6, a4, a5, n] - 
    S2[a1, SP[a2, a3], a6, a5, a4, n] - S2[a1, SP[a2, a6], a3, a4, a5, n] - 
    S2[a1, SP[a2, a6], a3, a5, a4, n] - S2[a1, SP[a2, a6], a4, a3, a5, n] - 
    S2[a1, SP[a2, a6], a4, a5, a3, n] - S2[a1, SP[a2, a6], a5, a3, a4, n] - 
    S2[a1, SP[a2, a6], a5, a4, a3, n] + S2[a1, SP[a3, a6], a2, a4, a5, n] + 
    S2[a1, SP[a3, a6], a2, a5, a4, n] + S2[a1, SP[a3, a6], a4, a2, a5, n] + 
    S2[a1, SP[a3, a6], a4, a5, a2, n] + S2[a1, SP[a3, a6], a5, a2, a4, n] + 
    S2[a1, SP[a3, a6], a5, a4, a2, n] + S2[a1, SP[a4, a5], a6, a2, a3, n] + 
    S2[a1, SP[a4, a6], a3, a2, a5, n] + S2[a1, SP[a4, a6], a3, a5, a2, n] + 
    S2[a1, SP[a4, a6], a5, a3, a2, n] + S2[a1, SP[a5, a6], a2, a3, a4, n] + 
    S2[a1, SP[a5, a6], a2, a4, a3, n] + S2[a1, SP[a5, a6], a3, a2, a4, n] + 
    S2[a1, SP[a5, a6], a3, a4, a2, n] + S2[a1, SP[a5, a6], a4, a2, a3, n] + 
    S2[a1, SP[a5, a6], a4, a3, a2, n] + S2[a2, a1, a3, a4, SP[a5, a6], n] + 
    S2[a2, a1, a3, a5, SP[a4, a6], n] + S2[a2, a1, a3, SP[a4, a6], a5, n] + 
    S2[a2, a1, a3, SP[a5, a6], a4, n] + S2[a2, a1, a4, a3, SP[a5, a6], n] + 
    S2[a2, a1, a4, a6, SP[a3, a5], n] + S2[a2, a1, a4, SP[a3, a5], a6, n] + 
    S2[a2, a1, a4, SP[a5, a6], a3, n] + S2[a2, a1, a5, a3, SP[a4, a6], n] + 
    S2[a2, a1, a5, a6, SP[a3, a4], n] + S2[a2, a1, a5, SP[a3, a4], a6, n] + 
    S2[a2, a1, a5, SP[a4, a6], a3, n] + S2[a2, a1, a6, a4, SP[a3, a5], n] + 
    S2[a2, a1, a6, a5, SP[a3, a4], n] + S2[a2, a1, a6, SP[a3, a4], a5, n] + 
    S2[a2, a1, a6, SP[a3, a5], a4, n] + S2[a2, a1, SP[a3, a4], a5, a6, n] + 
    S2[a2, a1, SP[a3, a4], a6, a5, n] + S2[a2, a1, SP[a3, a5], a4, a6, n] + 
    S2[a2, a1, SP[a3, a5], a6, a4, n] + S2[a2, a1, SP[a4, a6], a3, a5, n] + 
    S2[a2, a1, SP[a4, a6], a5, a3, n] + S2[a2, a1, SP[a5, a6], a3, a4, n] + 
    S2[a2, a1, SP[a5, a6], a4, a3, n] - S2[a6, n]*S2[a2, a3, a1, a4, a5, n] - 
    S2[a6, n]*S2[a2, a3, a1, a5, a4, n] - 
    S2[a5, n]*S2[a2, a6, a1, a3, a4, n] - S2[a2, a6, a1, a3, SP[a4, a5], n] - 
    S2[a5, n]*S2[a2, a6, a1, a4, a3, n] + S2[a2, a6, a1, a5, SP[a3, a4], n] + 
    S2[a2, a6, a1, SP[a3, a4], a5, n] - S2[a2, a6, a1, SP[a4, a5], a3, n] + 
    S2[a2, a6, SP[a1, a3], a4, a5, n] + S2[a2, a6, SP[a1, a3], a5, a4, n] - 
    S2[a2, a6, SP[a1, a5], a3, a4, n] - S2[a2, a6, SP[a1, a5], a4, a3, n] + 
    S2[a2, SP[a1, a3], a4, a5, a6, n] + S2[a2, SP[a1, a3], a4, a6, a5, n] + 
    S2[a2, SP[a1, a3], a5, a4, a6, n] + S2[a2, SP[a1, a3], a5, a6, a4, n] + 
    S2[a2, SP[a1, a3], a6, a4, a5, n] + S2[a2, SP[a1, a3], a6, a5, a4, n] + 
    S2[a2, SP[a1, a6], a3, a4, a5, n] + S2[a2, SP[a1, a6], a3, a5, a4, n] + 
    S2[a2, SP[a1, a6], a4, a3, a5, n] + S2[a2, SP[a1, a6], a4, a5, a3, n] + 
    S2[a2, SP[a1, a6], a5, a3, a4, n] + S2[a2, SP[a1, a6], a5, a4, a3, n] - 
    S2[a2, SP[a3, a6], a1, a4, a5, n] - S2[a2, SP[a3, a6], a1, a5, a4, n] - 
    S2[a2, SP[a5, a6], a1, a3, a4, n] - S2[a2, SP[a5, a6], a1, a4, a3, n] - 
    S2[a5, a1, a6, a2, SP[a3, a4], n] - S2[a5, a1, a6, SP[a2, a4], a3, n] - 
    S2[a5, a1, SP[a4, a6], a2, a3, n] - S2[a5, a6, a1, a2, SP[a3, a4], n] + 
    S2[a2, n]*S2[a5, a6, a1, a3, a4, n] + S2[a5, a6, a1, a3, SP[a2, a4], n] + 
    S2[a2, n]*S2[a5, a6, a1, a4, a3, n] + S2[a5, a6, a1, a4, SP[a2, a3], n] + 
    S2[a5, a6, a1, SP[a2, a3], a4, n] - S2[a5, a6, a2, a1, SP[a3, a4], n] - 
    S2[a5, a6, a2, SP[a1, a3], a4, n] - S2[a5, SP[a1, a6], a2, a3, a4, n] - 
    S2[a5, SP[a1, a6], a2, a4, a3, n] - S2[a5, SP[a1, a6], a4, a2, a3, n] + 
    S2[a5, SP[a2, a6], a1, a3, a4, n] + S2[a5, SP[a2, a6], a1, a4, a3, n] - 
    S2[a5, n]*S2[a6, a1, a3, a2, a4, n] - S2[a6, a1, a3, a2, SP[a4, a5], n] - 
    S2[a5, n]*S2[a6, a1, a3, a4, a2, n] - S2[a6, a1, a3, a4, SP[a2, a5], n] - 
    S2[a6, a1, a3, SP[a2, a5], a4, n] - S2[a6, a1, a3, SP[a4, a5], a2, n] - 
    S2[a5, n]*S2[a6, a1, a4, a3, a2, n] - S2[a6, a1, a4, a3, SP[a2, a5], n] - 
    S2[a6, a1, a4, SP[a3, a5], a2, n] - S2[a6, a1, SP[a3, a5], a2, a4, n] - 
    S2[a6, a1, SP[a3, a5], a4, a2, n] - S2[a6, a1, SP[a4, a5], a3, a2, n] + 
    S2[a5, n]*S2[a6, a2, a3, a1, a4, n] + S2[a6, a2, a3, a1, SP[a4, a5], n] + 
    S2[a6, a2, a3, SP[a1, a5], a4, n] + S2[a6, a2, SP[a3, a5], a1, a4, n] + 
    S2[a2, n]*S2[a6, a5, a1, a3, a4, n] + S2[a6, a5, a1, a3, SP[a2, a4], n] + 
    S2[a2, n]*S2[a6, a5, a1, a4, a3, n] + S2[a6, a5, a1, a4, SP[a2, a3], n] + 
    S2[a6, a5, a1, SP[a2, a3], a4, n] + S2[a6, a5, a1, SP[a2, a4], a3, n] + 
    S2[a6, a5, SP[a1, a2], a3, a4, n] + S2[a6, a5, SP[a1, a2], a4, a3, n] - 
    S2[a6, SP[a1, a5], a3, a2, a4, n] - S2[a6, SP[a1, a5], a3, a4, a2, n] - 
    S2[a6, SP[a1, a5], a4, a3, a2, n] + S2[a6, SP[a2, a5], a1, a3, a4, n] + 
    S2[a6, SP[a2, a5], a1, a4, a3, n] + S2[a6, SP[a2, a5], a3, a1, a4, n] + 
    S2[SP[a1, a4], a5, a6, a2, a3, n] + S2[SP[a1, a6], a3, a2, a4, a5, n] + 
    S2[SP[a1, a6], a3, a2, a5, a4, n] + S2[SP[a1, a6], a3, a4, a2, a5, n] + 
    S2[SP[a1, a6], a3, a4, a5, a2, n] + S2[SP[a1, a6], a3, a5, a2, a4, n] + 
    S2[SP[a1, a6], a3, a5, a4, a2, n] + S2[SP[a1, a6], a4, a3, a2, a5, n] + 
    S2[SP[a1, a6], a4, a3, a5, a2, n] + S2[SP[a1, a6], a4, a5, a3, a2, n] + 
    S2[SP[a1, a6], a5, a3, a2, a4, n] + S2[SP[a1, a6], a5, a3, a4, a2, n] + 
    S2[SP[a1, a6], a5, a4, a3, a2, n] - S2[SP[a2, a6], a3, a1, a4, a5, n] - 
    S2[SP[a2, a6], a3, a1, a5, a4, n] + S2[SP[a2, a6], a5, a1, a3, a4, n] + 
    S2[SP[a2, a6], a5, a1, a4, a3, n] - S2[SP[a5, a6], a1, a3, a2, a4, n] - 
    S2[SP[a5, a6], a1, a3, a4, a2, n] - S2[SP[a5, a6], a1, a4, a3, a2, n] + 
    S2[SP[a5, a6], a2, a3, a1, a4, n] - S2[a6, a2, a3, a5, a1, a4, n] - 
    S2[a6, a2, a5, a1, a3, a4, n] - S2[a6, a2, a5, a1, a4, a3, n] - 
    S2[a6, a2, a5, a3, a1, a4, n] - S2[a6, a5, a1, a2, a3, a4, n] - 
    S2[a6, a5, a1, a2, a4, a3, n] - S2[a6, a5, a1, a4, a2, a3, n] - 
    S2[a6, a5, a2, a1, a3, a4, n] - S2[a6, a5, a2, a1, a4, a3, n] - 
    S2[a6, a5, a2, a3, a1, a4, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a4_, a1_, a5_, a6_, a3_, a2_, n_] :> 
  -(S2[a1, a4, a5, n]*S2[a2, a3, a6, n]) - S2[a1, a5, a4, n]*
     S2[a2, a3, a6, n] - S2[SP[a1, a2], SP[a3, a4], SP[a5, a6], n] - 
    S2[SP[a1, a2], SP[a3, a5], SP[a4, a6], n] + S2[a1, a2, SP[a3, a4], 
     SP[a5, a6], n] + S2[a1, a2, SP[a3, a5], SP[a4, a6], n] + 
    S2[a1, SP[a2, a4], a3, SP[a5, a6], n] + S2[a1, SP[a2, a4], SP[a3, a5], 
     a6, n] + S2[a1, SP[a2, a5], a3, SP[a4, a6], n] + 
    S2[a1, SP[a2, a5], SP[a3, a4], a6, n] + S2[a2, a1, SP[a3, a4], 
     SP[a5, a6], n] + S2[a2, a1, SP[a3, a5], SP[a4, a6], n] - 
    S2[a1, a4, n]*S2[a2, a6, a3, a5, n] - S2[a1, a4, n]*
     S2[a2, a6, a5, a3, n] + S2[a2, a6, SP[a1, a3], SP[a4, a5], n] + 
    S2[a2, a6, SP[a1, a5], SP[a3, a4], n] + S2[a2, SP[a1, a3], a4, 
     SP[a5, a6], n] + S2[a2, SP[a1, a3], a5, SP[a4, a6], n] + 
    S2[a2, SP[a1, a3], SP[a4, a6], a5, n] + S2[a2, SP[a1, a3], SP[a5, a6], 
     a4, n] + S2[a2, SP[a1, a6], a3, SP[a4, a5], n] + 
    S2[a2, SP[a1, a6], a5, SP[a3, a4], n] + S2[a2, SP[a1, a6], SP[a3, a4], 
     a5, n] + S2[a2, SP[a1, a6], SP[a4, a5], a3, n] + 
    S2[a1, a4, n]*S2[a5, a6, a2, a3, n] - S2[a5, a6, SP[a1, a2], SP[a3, a4], 
     n] - S2[a5, SP[a1, a6], a2, SP[a3, a4], n] - 
    S2[a5, SP[a1, a6], SP[a2, a4], a3, n] + S2[SP[a1, a2], a3, a4, 
     SP[a5, a6], n] + S2[SP[a1, a2], a3, a5, SP[a4, a6], n] + 
    S2[SP[a1, a2], a3, SP[a4, a6], a5, n] + S2[SP[a1, a2], a3, SP[a5, a6], 
     a4, n] + S2[SP[a1, a2], a4, a3, SP[a5, a6], n] + 
    S2[SP[a1, a2], a4, SP[a3, a5], a6, n] + S2[SP[a1, a2], a5, a3, 
     SP[a4, a6], n] + S2[SP[a1, a2], a5, SP[a3, a4], a6, n] + 
    S2[SP[a1, a2], a6, a3, SP[a4, a5], n] + S2[SP[a1, a2], a6, a5, 
     SP[a3, a4], n] + S2[SP[a1, a2], a6, SP[a3, a4], a5, n] + 
    S2[SP[a1, a2], a6, SP[a4, a5], a3, n] + S2[SP[a1, a2], SP[a3, a4], a5, 
     a6, n] + S2[SP[a1, a2], SP[a3, a4], a6, a5, n] + 
    S2[SP[a1, a2], SP[a3, a5], a4, a6, n] + S2[SP[a1, a2], SP[a3, a5], a6, 
     a4, n] + S2[SP[a1, a2], SP[a4, a6], a3, a5, n] + 
    S2[SP[a1, a2], SP[a4, a6], a5, a3, n] - S2[SP[a1, a5], a6, a2, 
     SP[a3, a4], n] - S2[SP[a1, a5], a6, SP[a2, a4], a3, n] - 
    S2[SP[a1, a5], SP[a4, a6], a2, a3, n] - S2[a1, a2, a3, a4, SP[a5, a6], 
     n] - S2[a1, a2, a3, a5, SP[a4, a6], n] - S2[a1, a2, a3, SP[a4, a6], a5, 
     n] - S2[a1, a2, a3, SP[a5, a6], a4, n] - S2[a1, a2, a4, a3, SP[a5, a6], 
     n] - S2[a1, a2, a4, SP[a3, a5], a6, n] - S2[a1, a2, a5, a3, SP[a4, a6], 
     n] - S2[a1, a2, a5, SP[a3, a4], a6, n] - S2[a1, a2, a6, a3, SP[a4, a5], 
     n] - S2[a1, a2, a6, a5, SP[a3, a4], n] - S2[a1, a2, a6, SP[a3, a4], a5, 
     n] - S2[a1, a2, a6, SP[a4, a5], a3, n] - S2[a1, a2, SP[a3, a4], a5, a6, 
     n] - S2[a1, a2, SP[a3, a4], a6, a5, n] - S2[a1, a2, SP[a3, a5], a4, a6, 
     n] - S2[a1, a2, SP[a3, a5], a6, a4, n] - S2[a1, a2, SP[a4, a6], a3, a5, 
     n] - S2[a1, a2, SP[a4, a6], a5, a3, n] - 
    S2[a6, n]*S2[a1, a3, a2, a4, a5, n] - S2[a1, a3, a2, a4, SP[a5, a6], n] - 
    S2[a6, n]*S2[a1, a3, a2, a5, a4, n] - S2[a1, a3, a2, a5, SP[a4, a6], n] - 
    S2[a1, a3, a2, SP[a4, a6], a5, n] - S2[a1, a3, a2, SP[a5, a6], a4, n] - 
    S2[a6, n]*S2[a1, a3, a4, a2, a5, n] - S2[a1, a3, a4, a2, SP[a5, a6], n] - 
    S2[a6, n]*S2[a1, a3, a4, a5, a2, n] + 
    S2[a2, n]*S2[a1, a3, a4, a5, a6, n] + 
    S2[a2, n]*S2[a1, a3, a4, a6, a5, n] + S2[a1, a3, a4, a6, SP[a2, a5], n] + 
    S2[a1, a3, a4, SP[a2, a5], a6, n] - S2[a1, a3, a4, SP[a5, a6], a2, n] - 
    S2[a6, n]*S2[a1, a3, a5, a2, a4, n] - S2[a1, a3, a5, a2, SP[a4, a6], n] - 
    S2[a6, n]*S2[a1, a3, a5, a4, a2, n] + 
    S2[a2, n]*S2[a1, a3, a5, a4, a6, n] + 
    S2[a2, n]*S2[a1, a3, a5, a6, a4, n] + S2[a1, a3, a5, a6, SP[a2, a4], n] + 
    S2[a1, a3, a5, SP[a2, a4], a6, n] - S2[a1, a3, a5, SP[a4, a6], a2, n] + 
    S2[a2, n]*S2[a1, a3, a6, a4, a5, n] + S2[a1, a3, a6, a4, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a3, a6, a5, a4, n] + S2[a1, a3, a6, a5, SP[a2, a4], n] + 
    S2[a1, a3, a6, SP[a2, a4], a5, n] + S2[a1, a3, a6, SP[a2, a5], a4, n] + 
    S2[a1, a3, SP[a2, a4], a5, a6, n] + S2[a1, a3, SP[a2, a4], a6, a5, n] + 
    S2[a1, a3, SP[a2, a5], a4, a6, n] + S2[a1, a3, SP[a2, a5], a6, a4, n] - 
    S2[a1, a3, SP[a4, a6], a2, a5, n] - S2[a1, a3, SP[a4, a6], a5, a2, n] - 
    S2[a1, a3, SP[a5, a6], a2, a4, n] - S2[a1, a3, SP[a5, a6], a4, a2, n] - 
    S2[a1, a4, a2, a3, SP[a5, a6], n] - S2[a1, a4, a2, SP[a3, a5], a6, n] - 
    S2[a6, n]*S2[a1, a4, a3, a2, a5, n] - S2[a1, a4, a3, a2, SP[a5, a6], n] - 
    S2[a6, n]*S2[a1, a4, a3, a5, a2, n] + 
    S2[a2, n]*S2[a1, a4, a3, a5, a6, n] + 
    S2[a2, n]*S2[a1, a4, a3, a6, a5, n] + S2[a1, a4, a3, a6, SP[a2, a5], n] + 
    S2[a1, a4, a3, SP[a2, a5], a6, n] - S2[a1, a4, a3, SP[a5, a6], a2, n] - 
    S2[a6, n]*S2[a1, a4, a5, a3, a2, n] + 
    S2[a2, n]*S2[a1, a4, a5, a3, a6, n] + S2[a1, a4, a5, SP[a2, a3], a6, n] - 
    S2[a1, a4, a5, SP[a3, a6], a2, n] - S2[a5, n]*S2[a1, a4, a6, a2, a3, n] - 
    S2[a1, a4, a6, a2, SP[a3, a5], n] + S2[a2, n]*S2[a1, a4, a6, a3, a5, n] + 
    S2[a1, a4, a6, a3, SP[a2, a5], n] + S2[a2, n]*S2[a1, a4, a6, a5, a3, n] + 
    S2[a1, a4, a6, a5, SP[a2, a3], n] + S2[a1, a4, a6, SP[a2, a3], a5, n] + 
    S2[a1, a4, SP[a2, a3], a5, a6, n] + S2[a1, a4, SP[a2, a3], a6, a5, n] + 
    S2[a1, a4, SP[a2, a6], a3, a5, n] + S2[a1, a4, SP[a2, a6], a5, a3, n] - 
    S2[a1, a4, SP[a3, a6], a2, a5, n] - S2[a1, a4, SP[a3, a6], a5, a2, n] - 
    S2[a1, a4, SP[a5, a6], a2, a3, n] - S2[a1, a4, SP[a5, a6], a3, a2, n] - 
    S2[a1, a5, a2, a3, SP[a4, a6], n] - S2[a1, a5, a2, SP[a3, a4], a6, n] - 
    S2[a6, n]*S2[a1, a5, a3, a2, a4, n] - S2[a1, a5, a3, a2, SP[a4, a6], n] - 
    S2[a6, n]*S2[a1, a5, a3, a4, a2, n] + 
    S2[a2, n]*S2[a1, a5, a3, a4, a6, n] + 
    S2[a2, n]*S2[a1, a5, a3, a6, a4, n] + S2[a1, a5, a3, a6, SP[a2, a4], n] + 
    S2[a1, a5, a3, SP[a2, a4], a6, n] - S2[a1, a5, a3, SP[a4, a6], a2, n] - 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] + 
    S2[a2, n]*S2[a1, a5, a4, a3, a6, n] + S2[a1, a5, a4, SP[a2, a3], a6, n] - 
    S2[a1, a5, a4, SP[a3, a6], a2, n] + S2[a1, a5, a6, a2, SP[a3, a4], n] + 
    S2[a4, n]*S2[a1, a5, a6, a3, a2, n] + S2[a1, a5, a6, a3, SP[a2, a4], n] + 
    S2[a1, a5, a6, SP[a2, a4], a3, n] + S2[a1, a5, a6, SP[a3, a4], a2, n] + 
    S2[a1, a5, SP[a2, a3], a4, a6, n] + S2[a1, a5, SP[a2, a3], a6, a4, n] - 
    S2[a1, a5, SP[a3, a6], a2, a4, n] - S2[a1, a5, SP[a3, a6], a4, a2, n] + 
    S2[a1, a5, SP[a4, a6], a2, a3, n] - S2[a5, n]*S2[a1, a6, a2, a3, a4, n] - 
    S2[a1, a6, a2, a3, SP[a4, a5], n] - S2[a5, n]*S2[a1, a6, a2, a4, a3, n] - 
    S2[a1, a6, a2, a4, SP[a3, a5], n] - S2[a1, a6, a2, SP[a3, a5], a4, n] - 
    S2[a1, a6, a2, SP[a4, a5], a3, n] + S2[a2, n]*S2[a1, a6, a3, a4, a5, n] + 
    S2[a1, a6, a3, a4, SP[a2, a5], n] + S2[a2, n]*S2[a1, a6, a3, a5, a4, n] + 
    S2[a1, a6, a3, a5, SP[a2, a4], n] + S2[a1, a6, a3, SP[a2, a4], a5, n] + 
    S2[a1, a6, a3, SP[a2, a5], a4, n] - S2[a5, n]*S2[a1, a6, a4, a2, a3, n] - 
    S2[a1, a6, a4, a2, SP[a3, a5], n] + S2[a2, n]*S2[a1, a6, a4, a3, a5, n] + 
    S2[a1, a6, a4, a3, SP[a2, a5], n] + S2[a2, n]*S2[a1, a6, a4, a5, a3, n] + 
    S2[a1, a6, a4, a5, SP[a2, a3], n] + S2[a1, a6, a4, SP[a2, a3], a5, n] + 
    S2[a2, n]*S2[a1, a6, a5, a3, a4, n] + S2[a1, a6, a5, a3, SP[a2, a4], n] + 
    S2[a2, n]*S2[a1, a6, a5, a4, a3, n] + S2[a1, a6, a5, a4, SP[a2, a3], n] + 
    S2[a1, a6, a5, SP[a2, a3], a4, n] + S2[a1, a6, a5, SP[a2, a4], a3, n] + 
    S2[a1, a6, SP[a2, a3], a4, a5, n] + S2[a1, a6, SP[a2, a3], a5, a4, n] + 
    S2[a1, a6, SP[a2, a4], a3, a5, n] + S2[a1, a6, SP[a2, a4], a5, a3, n] - 
    S2[a1, a6, SP[a4, a5], a2, a3, n] + S2[a1, SP[a2, a3], a4, a5, a6, n] + 
    S2[a1, SP[a2, a3], a4, a6, a5, n] + S2[a1, SP[a2, a3], a5, a4, a6, n] + 
    S2[a1, SP[a2, a3], a5, a6, a4, n] + S2[a1, SP[a2, a3], a6, a4, a5, n] + 
    S2[a1, SP[a2, a3], a6, a5, a4, n] + S2[a1, SP[a2, a6], a3, a4, a5, n] + 
    S2[a1, SP[a2, a6], a3, a5, a4, n] + S2[a1, SP[a2, a6], a4, a3, a5, n] + 
    S2[a1, SP[a2, a6], a4, a5, a3, n] + S2[a1, SP[a2, a6], a5, a3, a4, n] + 
    S2[a1, SP[a2, a6], a5, a4, a3, n] - S2[a1, SP[a3, a6], a2, a4, a5, n] - 
    S2[a1, SP[a3, a6], a2, a5, a4, n] - S2[a1, SP[a3, a6], a4, a2, a5, n] - 
    S2[a1, SP[a3, a6], a4, a5, a2, n] - S2[a1, SP[a3, a6], a5, a2, a4, n] - 
    S2[a1, SP[a3, a6], a5, a4, a2, n] + S2[a1, SP[a4, a5], a6, a3, a2, n] - 
    S2[a1, SP[a4, a6], a3, a2, a5, n] - S2[a1, SP[a4, a6], a3, a5, a2, n] - 
    S2[a1, SP[a4, a6], a5, a3, a2, n] - S2[a1, SP[a5, a6], a2, a3, a4, n] - 
    S2[a1, SP[a5, a6], a2, a4, a3, n] - S2[a1, SP[a5, a6], a3, a2, a4, n] - 
    S2[a1, SP[a5, a6], a3, a4, a2, n] - S2[a1, SP[a5, a6], a4, a2, a3, n] - 
    S2[a1, SP[a5, a6], a4, a3, a2, n] - S2[a2, a1, a3, a4, SP[a5, a6], n] - 
    S2[a2, a1, a3, a5, SP[a4, a6], n] - S2[a2, a1, a3, SP[a4, a6], a5, n] - 
    S2[a2, a1, a3, SP[a5, a6], a4, n] - S2[a2, a1, a4, a3, SP[a5, a6], n] - 
    S2[a2, a1, a4, SP[a3, a5], a6, n] - S2[a2, a1, a5, a3, SP[a4, a6], n] - 
    S2[a2, a1, a5, SP[a3, a4], a6, n] - S2[a2, a1, a6, a3, SP[a4, a5], n] - 
    S2[a2, a1, a6, a5, SP[a3, a4], n] - S2[a2, a1, a6, SP[a3, a4], a5, n] - 
    S2[a2, a1, a6, SP[a4, a5], a3, n] - S2[a2, a1, SP[a3, a4], a5, a6, n] - 
    S2[a2, a1, SP[a3, a4], a6, a5, n] - S2[a2, a1, SP[a3, a5], a4, a6, n] - 
    S2[a2, a1, SP[a3, a5], a6, a4, n] - S2[a2, a1, SP[a4, a6], a3, a5, n] - 
    S2[a2, a1, SP[a4, a6], a5, a3, n] + S2[a6, n]*S2[a2, a3, a1, a4, a5, n] + 
    S2[a6, n]*S2[a2, a3, a1, a5, a4, n] + 
    S2[a5, n]*S2[a2, a6, a1, a3, a4, n] + 
    S2[a5, n]*S2[a2, a6, a1, a4, a3, n] + S2[a2, a6, a1, a4, SP[a3, a5], n] - 
    S2[a2, a6, a1, a5, SP[a3, a4], n] - S2[a2, a6, a1, SP[a3, a4], a5, n] + 
    S2[a2, a6, a1, SP[a3, a5], a4, n] - S2[a2, a6, a3, a1, SP[a4, a5], n] - 
    S2[a2, a6, a3, SP[a1, a5], a4, n] - S2[a2, a6, a5, a1, SP[a3, a4], n] - 
    S2[a2, a6, a5, SP[a1, a3], a4, n] - S2[a2, a6, SP[a1, a3], a4, a5, n] - 
    S2[a2, a6, SP[a1, a3], a5, a4, n] - S2[a2, SP[a1, a3], a4, a5, a6, n] - 
    S2[a2, SP[a1, a3], a4, a6, a5, n] - S2[a2, SP[a1, a3], a5, a4, a6, n] - 
    S2[a2, SP[a1, a3], a5, a6, a4, n] - S2[a2, SP[a1, a3], a6, a4, a5, n] - 
    S2[a2, SP[a1, a3], a6, a5, a4, n] - S2[a2, SP[a1, a6], a3, a4, a5, n] - 
    S2[a2, SP[a1, a6], a3, a5, a4, n] - S2[a2, SP[a1, a6], a4, a3, a5, n] - 
    S2[a2, SP[a1, a6], a4, a5, a3, n] - S2[a2, SP[a1, a6], a5, a3, a4, n] - 
    S2[a2, SP[a1, a6], a5, a4, a3, n] + S2[a2, SP[a3, a6], a1, a4, a5, n] + 
    S2[a2, SP[a3, a6], a1, a5, a4, n] + S2[a2, SP[a5, a6], a1, a3, a4, n] + 
    S2[a2, SP[a5, a6], a1, a4, a3, n] + S2[a5, a1, a6, a2, SP[a3, a4], n] + 
    S2[a5, a1, a6, SP[a2, a4], a3, n] + S2[a5, a1, SP[a4, a6], a2, a3, n] + 
    S2[a5, a6, a1, a2, SP[a3, a4], n] - S2[a2, n]*S2[a5, a6, a1, a3, a4, n] - 
    S2[a5, a6, a1, a3, SP[a2, a4], n] - S2[a2, n]*S2[a5, a6, a1, a4, a3, n] - 
    S2[a5, a6, a1, a4, SP[a2, a3], n] - S2[a5, a6, a1, SP[a2, a3], a4, n] + 
    S2[a5, a6, a2, a1, SP[a3, a4], n] + S2[a5, a6, a2, SP[a1, a3], a4, n] + 
    S2[a5, SP[a1, a6], a2, a3, a4, n] + S2[a5, SP[a1, a6], a2, a4, a3, n] + 
    S2[a5, SP[a1, a6], a4, a2, a3, n] - S2[a5, SP[a2, a6], a1, a3, a4, n] - 
    S2[a5, SP[a2, a6], a1, a4, a3, n] + S2[a5, n]*S2[a6, a1, a3, a2, a4, n] + 
    S2[a6, a1, a3, a2, SP[a4, a5], n] + S2[a5, n]*S2[a6, a1, a3, a4, a2, n] + 
    S2[a6, a1, a3, a4, SP[a2, a5], n] + S2[a6, a1, a3, SP[a2, a5], a4, n] + 
    S2[a6, a1, a3, SP[a4, a5], a2, n] + S2[a5, n]*S2[a6, a1, a4, a3, a2, n] + 
    S2[a6, a1, a4, a3, SP[a2, a5], n] + S2[a6, a1, a4, SP[a3, a5], a2, n] + 
    S2[a6, a1, SP[a3, a5], a2, a4, n] + S2[a6, a1, SP[a3, a5], a4, a2, n] + 
    S2[a6, a1, SP[a4, a5], a3, a2, n] - S2[a5, n]*S2[a6, a2, a3, a1, a4, n] - 
    S2[a6, a2, a3, a1, SP[a4, a5], n] - S2[a6, a2, a3, SP[a1, a5], a4, n] - 
    S2[a6, a2, SP[a3, a5], a1, a4, n] + S2[a2, n]*S2[a6, a3, a5, a1, a4, n] + 
    S2[a6, a3, a5, a1, SP[a2, a4], n] + S2[a6, a3, a5, SP[a1, a2], a4, n] + 
    S2[a6, a3, SP[a2, a5], a1, a4, n] + S2[a2, n]*S2[a6, a5, a3, a1, a4, n] + 
    S2[a6, a5, a3, a1, SP[a2, a4], n] + S2[a6, a5, a3, SP[a1, a2], a4, n] + 
    S2[a6, a5, SP[a2, a3], a1, a4, n] + S2[a6, SP[a1, a5], a3, a2, a4, n] + 
    S2[a6, SP[a1, a5], a3, a4, a2, n] + S2[a6, SP[a1, a5], a4, a3, a2, n] + 
    S2[a6, SP[a2, a3], a5, a1, a4, n] + S2[SP[a1, a4], a5, a6, a3, a2, n] - 
    S2[SP[a1, a6], a3, a2, a4, a5, n] - S2[SP[a1, a6], a3, a2, a5, a4, n] - 
    S2[SP[a1, a6], a3, a4, a2, a5, n] - S2[SP[a1, a6], a3, a4, a5, a2, n] - 
    S2[SP[a1, a6], a3, a5, a2, a4, n] - S2[SP[a1, a6], a3, a5, a4, a2, n] - 
    S2[SP[a1, a6], a4, a3, a2, a5, n] - S2[SP[a1, a6], a4, a3, a5, a2, n] - 
    S2[SP[a1, a6], a4, a5, a3, a2, n] - S2[SP[a1, a6], a5, a3, a2, a4, n] - 
    S2[SP[a1, a6], a5, a3, a4, a2, n] - S2[SP[a1, a6], a5, a4, a3, a2, n] + 
    S2[SP[a2, a6], a3, a1, a4, a5, n] + S2[SP[a2, a6], a3, a1, a5, a4, n] + 
    S2[SP[a2, a6], a3, a5, a1, a4, n] + S2[SP[a2, a6], a5, a3, a1, a4, n] + 
    S2[SP[a5, a6], a1, a3, a2, a4, n] + S2[SP[a5, a6], a1, a3, a4, a2, n] + 
    S2[SP[a5, a6], a1, a4, a3, a2, n] - S2[SP[a5, a6], a2, a3, a1, a4, n] - 
    S2[a6, a3, a2, a5, a1, a4, n] - S2[a6, a3, a5, a1, a2, a4, n] - 
    S2[a6, a3, a5, a1, a4, a2, n] - S2[a6, a3, a5, a2, a1, a4, n] - 
    S2[a6, a5, a1, a3, a2, a4, n] - S2[a6, a5, a1, a3, a4, a2, n] - 
    S2[a6, a5, a1, a4, a3, a2, n] - S2[a6, a5, a3, a1, a2, a4, n] - 
    S2[a6, a5, a3, a1, a4, a2, n] - S2[a6, a5, a3, a2, a1, a4, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a4_, a1_, a6_, a2_, a3_, a5_, n_] :> 
  S2[a1, a4, n]*S2[a2, a3, a5, a6, n] + S2[a1, a4, n]*S2[a2, a3, a6, a5, n] - 
    S2[a2, a3, SP[a1, a5], SP[a4, a6], n] - S2[a2, a3, SP[a1, a6], 
     SP[a4, a5], n] + S2[a1, a4, n]*S2[a2, a6, a3, a5, n] - 
    S2[a2, a6, SP[a1, a3], SP[a4, a5], n] - S2[a2, SP[a1, a3], a5, 
     SP[a4, a6], n] - S2[a2, SP[a1, a3], a6, SP[a4, a5], n] - 
    S2[a2, SP[a1, a3], SP[a4, a5], a6, n] - S2[a2, SP[a1, a3], SP[a4, a6], 
     a5, n] - S2[a2, SP[a1, a6], a3, SP[a4, a5], n] - 
    S2[a2, SP[a1, a6], SP[a3, a4], a5, n] - S2[SP[a1, a2], a3, a5, 
     SP[a4, a6], n] - S2[SP[a1, a2], a3, a6, SP[a4, a5], n] - 
    S2[SP[a1, a2], a3, SP[a4, a5], a6, n] - S2[SP[a1, a2], a3, SP[a4, a6], 
     a5, n] - S2[SP[a1, a2], a6, a3, SP[a4, a5], n] - 
    S2[SP[a1, a2], a6, SP[a3, a4], a5, n] - S2[SP[a1, a2], SP[a3, a4], a5, 
     a6, n] - S2[SP[a1, a2], SP[a3, a4], a6, a5, n] - 
    S2[SP[a1, a2], SP[a4, a6], a3, a5, n] + S2[a1, a2, a3, a5, SP[a4, a6], 
     n] + S2[a1, a2, a3, a6, SP[a4, a5], n] + S2[a1, a2, a3, SP[a4, a5], a6, 
     n] + S2[a1, a2, a3, SP[a4, a6], a5, n] + S2[a1, a2, a6, a3, SP[a4, a5], 
     n] + S2[a1, a2, a6, SP[a3, a4], a5, n] + S2[a1, a2, SP[a3, a4], a5, a6, 
     n] + S2[a1, a2, SP[a3, a4], a6, a5, n] + S2[a1, a2, SP[a4, a6], a3, a5, 
     n] + S2[a6, n]*S2[a1, a3, a2, a4, a5, n] + S2[a1, a3, a2, a4, 
     SP[a5, a6], n] + S2[a6, n]*S2[a1, a3, a2, a5, a4, n] + 
    S2[a1, a3, a2, a5, SP[a4, a6], n] + S2[a1, a3, a2, SP[a4, a6], a5, n] + 
    S2[a1, a3, a2, SP[a5, a6], a4, n] + S2[a6, n]*S2[a1, a3, a4, a2, a5, n] + 
    S2[a1, a3, a4, a2, SP[a5, a6], n] + S2[a6, n]*S2[a1, a3, a4, a5, a2, n] - 
    S2[a2, n]*S2[a1, a3, a4, a5, a6, n] - 
    S2[a2, n]*S2[a1, a3, a4, a6, a5, n] - S2[a1, a3, a4, a6, SP[a2, a5], n] - 
    S2[a1, a3, a4, SP[a2, a5], a6, n] + S2[a1, a3, a4, SP[a5, a6], a2, n] + 
    S2[a6, n]*S2[a1, a3, a5, a2, a4, n] + S2[a1, a3, a5, a2, SP[a4, a6], n] + 
    S2[a6, n]*S2[a1, a3, a5, a4, a2, n] - 
    S2[a2, n]*S2[a1, a3, a5, a4, a6, n] - 
    S2[a2, n]*S2[a1, a3, a5, a6, a4, n] - S2[a1, a3, a5, a6, SP[a2, a4], n] - 
    S2[a1, a3, a5, SP[a2, a4], a6, n] + S2[a1, a3, a5, SP[a4, a6], a2, n] - 
    S2[a2, n]*S2[a1, a3, a6, a4, a5, n] - S2[a1, a3, a6, a4, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a3, a6, a5, a4, n] - S2[a1, a3, a6, a5, SP[a2, a4], n] - 
    S2[a1, a3, a6, SP[a2, a4], a5, n] - S2[a1, a3, a6, SP[a2, a5], a4, n] - 
    S2[a1, a3, SP[a2, a4], a5, a6, n] - S2[a1, a3, SP[a2, a4], a6, a5, n] - 
    S2[a1, a3, SP[a2, a5], a4, a6, n] - S2[a1, a3, SP[a2, a5], a6, a4, n] + 
    S2[a1, a3, SP[a4, a6], a2, a5, n] + S2[a1, a3, SP[a4, a6], a5, a2, n] + 
    S2[a1, a3, SP[a5, a6], a2, a4, n] + S2[a1, a3, SP[a5, a6], a4, a2, n] + 
    S2[a6, n]*S2[a1, a4, a3, a2, a5, n] + S2[a1, a4, a3, a2, SP[a5, a6], n] + 
    S2[a6, n]*S2[a1, a4, a3, a5, a2, n] - 
    S2[a2, n]*S2[a1, a4, a3, a5, a6, n] - 
    S2[a2, n]*S2[a1, a4, a3, a6, a5, n] - S2[a1, a4, a3, a6, SP[a2, a5], n] - 
    S2[a1, a4, a3, SP[a2, a5], a6, n] + S2[a1, a4, a3, SP[a5, a6], a2, n] - 
    S2[a2, n]*S2[a1, a4, a6, a3, a5, n] - S2[a1, a4, a6, a3, SP[a2, a5], n] - 
    S2[a1, a4, a6, SP[a2, a3], a5, n] - S2[a1, a4, SP[a2, a3], a5, a6, n] - 
    S2[a1, a4, SP[a2, a3], a6, a5, n] - S2[a1, a4, SP[a2, a6], a3, a5, n] + 
    S2[a1, a4, SP[a3, a6], a2, a5, n] + S2[a1, a4, SP[a3, a6], a5, a2, n] + 
    S2[a4, n]*S2[a1, a6, a2, a3, a5, n] + S2[a1, a6, a2, a3, SP[a4, a5], n] + 
    S2[a1, a6, a2, SP[a3, a4], a5, n] - S2[a2, n]*S2[a1, a6, a3, a4, a5, n] - 
    S2[a1, a6, a3, a4, SP[a2, a5], n] - S2[a2, n]*S2[a1, a6, a3, a5, a4, n] - 
    S2[a1, a6, a3, a5, SP[a2, a4], n] - S2[a1, a6, a3, SP[a2, a4], a5, n] - 
    S2[a1, a6, a3, SP[a2, a5], a4, n] - S2[a2, n]*S2[a1, a6, a4, a3, a5, n] - 
    S2[a1, a6, a4, a3, SP[a2, a5], n] - S2[a1, a6, a4, SP[a2, a3], a5, n] - 
    S2[a1, a6, SP[a2, a3], a4, a5, n] - S2[a1, a6, SP[a2, a3], a5, a4, n] - 
    S2[a1, SP[a2, a3], a4, a5, a6, n] - S2[a1, SP[a2, a3], a4, a6, a5, n] - 
    S2[a1, SP[a2, a3], a5, a4, a6, n] - S2[a1, SP[a2, a3], a5, a6, a4, n] - 
    S2[a1, SP[a2, a3], a6, a4, a5, n] - S2[a1, SP[a2, a3], a6, a5, a4, n] - 
    S2[a1, SP[a2, a6], a3, a4, a5, n] - S2[a1, SP[a2, a6], a3, a5, a4, n] - 
    S2[a1, SP[a2, a6], a4, a3, a5, n] + S2[a1, SP[a3, a6], a2, a4, a5, n] + 
    S2[a1, SP[a3, a6], a2, a5, a4, n] + S2[a1, SP[a3, a6], a4, a2, a5, n] + 
    S2[a1, SP[a3, a6], a4, a5, a2, n] + S2[a1, SP[a3, a6], a5, a2, a4, n] + 
    S2[a1, SP[a3, a6], a5, a4, a2, n] + S2[a1, SP[a4, a6], a2, a3, a5, n] + 
    S2[a1, SP[a4, a6], a3, a2, a5, n] + S2[a1, SP[a4, a6], a3, a5, a2, n] + 
    S2[a2, a1, a3, a5, SP[a4, a6], n] + S2[a2, a1, a3, a6, SP[a4, a5], n] + 
    S2[a2, a1, a3, SP[a4, a5], a6, n] + S2[a2, a1, a3, SP[a4, a6], a5, n] + 
    S2[a2, a1, a6, a3, SP[a4, a5], n] + S2[a2, a1, a6, SP[a3, a4], a5, n] + 
    S2[a2, a1, SP[a3, a4], a5, a6, n] + S2[a2, a1, SP[a3, a4], a6, a5, n] + 
    S2[a2, a1, SP[a4, a6], a3, a5, n] - S2[a6, n]*S2[a2, a3, a1, a4, a5, n] - 
    S2[a2, a3, a1, a4, SP[a5, a6], n] - S2[a6, n]*S2[a2, a3, a1, a5, a4, n] + 
    S2[a2, a3, a1, a6, SP[a4, a5], n] + S2[a2, a3, a1, SP[a4, a5], a6, n] - 
    S2[a2, a3, a1, SP[a5, a6], a4, n] - S2[a6, n]*S2[a2, a3, a5, a1, a4, n] + 
    S2[a2, a3, a6, a1, SP[a4, a5], n] + S2[a2, a3, a6, SP[a1, a5], a4, n] + 
    S2[a2, a3, SP[a1, a5], a4, a6, n] + S2[a2, a3, SP[a1, a5], a6, a4, n] - 
    S2[a2, a3, SP[a5, a6], a1, a4, n] + S2[a2, a6, a1, a3, SP[a4, a5], n] + 
    S2[a2, a6, a1, SP[a3, a4], a5, n] + S2[a2, a6, a3, a1, SP[a4, a5], n] + 
    S2[a2, a6, a3, SP[a1, a5], a4, n] + S2[a2, a6, SP[a1, a3], a4, a5, n] + 
    S2[a2, a6, SP[a1, a3], a5, a4, n] + S2[a2, SP[a1, a3], a4, a5, a6, n] + 
    S2[a2, SP[a1, a3], a4, a6, a5, n] + S2[a2, SP[a1, a3], a5, a4, a6, n] + 
    S2[a2, SP[a1, a3], a5, a6, a4, n] + S2[a2, SP[a1, a3], a6, a4, a5, n] + 
    S2[a2, SP[a1, a3], a6, a5, a4, n] + S2[a2, SP[a1, a6], a3, a4, a5, n] + 
    S2[a2, SP[a1, a6], a3, a5, a4, n] + S2[a2, SP[a1, a6], a4, a3, a5, n] - 
    S2[a2, SP[a3, a6], a1, a4, a5, n] - S2[a2, SP[a3, a6], a1, a5, a4, n] - 
    S2[a2, SP[a3, a6], a5, a1, a4, n] - S2[a2, n]*S2[a6, a1, a3, a4, a5, n] - 
    S2[a6, a1, a3, a4, SP[a2, a5], n] - S2[a2, n]*S2[a6, a1, a3, a5, a4, n] - 
    S2[a6, a1, a3, a5, SP[a2, a4], n] - S2[a6, a1, a3, SP[a2, a4], a5, n] - 
    S2[a6, a1, a3, SP[a2, a5], a4, n] - S2[a2, n]*S2[a6, a1, a4, a3, a5, n] - 
    S2[a6, a1, a4, a3, SP[a2, a5], n] - S2[a6, a1, a4, SP[a2, a3], a5, n] - 
    S2[a6, a1, SP[a2, a3], a4, a5, n] - S2[a6, a1, SP[a2, a3], a5, a4, n] - 
    S2[a6, a1, SP[a2, a4], a3, a5, n] - S2[a6, SP[a1, a2], a3, a4, a5, n] - 
    S2[a6, SP[a1, a2], a3, a5, a4, n] - S2[a6, SP[a1, a2], a4, a3, a5, n] + 
    S2[SP[a1, a4], a6, a2, a3, a5, n] + S2[SP[a1, a6], a3, a2, a4, a5, n] + 
    S2[SP[a1, a6], a3, a2, a5, a4, n] + S2[SP[a1, a6], a3, a4, a2, a5, n] + 
    S2[SP[a1, a6], a3, a4, a5, a2, n] + S2[SP[a1, a6], a3, a5, a2, a4, n] + 
    S2[SP[a1, a6], a3, a5, a4, a2, n] + S2[SP[a1, a6], a4, a3, a2, a5, n] + 
    S2[SP[a1, a6], a4, a3, a5, a2, n] - S2[SP[a2, a6], a1, a3, a4, a5, n] - 
    S2[SP[a2, a6], a1, a3, a5, a4, n] - S2[SP[a2, a6], a1, a4, a3, a5, n] - 
    S2[SP[a2, a6], a3, a1, a4, a5, n] - S2[SP[a2, a6], a3, a1, a5, a4, n] - 
    S2[SP[a2, a6], a3, a5, a1, a4, n] + S2[a6, a1, a2, a3, a4, a5, n] + 
    S2[a6, a1, a2, a3, a5, a4, n] + S2[a6, a1, a2, a4, a3, a5, n] + 
    S2[a6, a1, a4, a2, a3, a5, n] + S2[a6, a2, a1, a3, a4, a5, n] + 
    S2[a6, a2, a1, a3, a5, a4, n] + S2[a6, a2, a1, a4, a3, a5, n] + 
    S2[a6, a2, a3, a1, a4, a5, n] + S2[a6, a2, a3, a1, a5, a4, n] + 
    S2[a6, a2, a3, a5, a1, a4, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a4_, a1_, a6_, a2_, a5_, a3_, n_] :> 
  S2[a1, a4, n]*S2[a2, a5, a3, a6, n] + S2[a1, a4, n]*S2[a2, a5, a6, a3, n] - 
    S2[a2, a5, SP[a1, a3], SP[a4, a6], n] - S2[a2, a5, SP[a1, a6], 
     SP[a3, a4], n] + S2[a1, a4, n]*S2[a2, a6, a5, a3, n] - 
    S2[a2, a6, SP[a1, a5], SP[a3, a4], n] - S2[a2, SP[a1, a5], a3, 
     SP[a4, a6], n] - S2[a2, SP[a1, a5], a6, SP[a3, a4], n] - 
    S2[a2, SP[a1, a5], SP[a3, a4], a6, n] - S2[a2, SP[a1, a5], SP[a4, a6], 
     a3, n] - S2[a2, SP[a1, a6], a5, SP[a3, a4], n] - 
    S2[a2, SP[a1, a6], SP[a4, a5], a3, n] - S2[SP[a1, a2], a5, a3, 
     SP[a4, a6], n] - S2[SP[a1, a2], a5, a6, SP[a3, a4], n] - 
    S2[SP[a1, a2], a5, SP[a3, a4], a6, n] - S2[SP[a1, a2], a5, SP[a4, a6], 
     a3, n] - S2[SP[a1, a2], a6, a5, SP[a3, a4], n] - 
    S2[SP[a1, a2], a6, SP[a4, a5], a3, n] - S2[SP[a1, a2], SP[a4, a5], a3, 
     a6, n] - S2[SP[a1, a2], SP[a4, a5], a6, a3, n] - 
    S2[SP[a1, a2], SP[a4, a6], a5, a3, n] + S2[a1, a2, a5, a3, SP[a4, a6], 
     n] + S2[a1, a2, a5, a6, SP[a3, a4], n] + S2[a1, a2, a5, SP[a3, a4], a6, 
     n] + S2[a1, a2, a5, SP[a4, a6], a3, n] + S2[a1, a2, a6, a5, SP[a3, a4], 
     n] + S2[a1, a2, a6, SP[a4, a5], a3, n] + S2[a1, a2, SP[a4, a5], a3, a6, 
     n] + S2[a1, a2, SP[a4, a5], a6, a3, n] + S2[a1, a2, SP[a4, a6], a5, a3, 
     n] + S2[a6, n]*S2[a1, a4, a5, a2, a3, n] + S2[a1, a4, a5, a2, 
     SP[a3, a6], n] + S2[a6, n]*S2[a1, a4, a5, a3, a2, n] - 
    S2[a2, n]*S2[a1, a4, a5, a3, a6, n] - 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] - S2[a1, a4, a5, a6, SP[a2, a3], n] - 
    S2[a1, a4, a5, SP[a2, a3], a6, n] + S2[a1, a4, a5, SP[a3, a6], a2, n] - 
    S2[a2, n]*S2[a1, a4, a6, a5, a3, n] - S2[a1, a4, a6, a5, SP[a2, a3], n] - 
    S2[a1, a4, a6, SP[a2, a5], a3, n] - S2[a1, a4, SP[a2, a5], a3, a6, n] - 
    S2[a1, a4, SP[a2, a5], a6, a3, n] - S2[a1, a4, SP[a2, a6], a5, a3, n] + 
    S2[a1, a4, SP[a5, a6], a2, a3, n] + S2[a1, a4, SP[a5, a6], a3, a2, n] + 
    S2[a6, n]*S2[a1, a5, a2, a3, a4, n] + S2[a1, a5, a2, a3, SP[a4, a6], n] + 
    S2[a6, n]*S2[a1, a5, a2, a4, a3, n] + S2[a1, a5, a2, a4, SP[a3, a6], n] + 
    S2[a1, a5, a2, SP[a3, a6], a4, n] + S2[a1, a5, a2, SP[a4, a6], a3, n] + 
    S2[a6, n]*S2[a1, a5, a3, a2, a4, n] + S2[a1, a5, a3, a2, SP[a4, a6], n] + 
    S2[a6, n]*S2[a1, a5, a3, a4, a2, n] - 
    S2[a2, n]*S2[a1, a5, a3, a4, a6, n] - 
    S2[a2, n]*S2[a1, a5, a3, a6, a4, n] - S2[a1, a5, a3, a6, SP[a2, a4], n] - 
    S2[a1, a5, a3, SP[a2, a4], a6, n] + S2[a1, a5, a3, SP[a4, a6], a2, n] + 
    S2[a6, n]*S2[a1, a5, a4, a2, a3, n] + S2[a1, a5, a4, a2, SP[a3, a6], n] + 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] - 
    S2[a2, n]*S2[a1, a5, a4, a3, a6, n] - 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] - S2[a1, a5, a4, a6, SP[a2, a3], n] - 
    S2[a1, a5, a4, SP[a2, a3], a6, n] + S2[a1, a5, a4, SP[a3, a6], a2, n] - 
    S2[a2, n]*S2[a1, a5, a6, a3, a4, n] - S2[a1, a5, a6, a3, SP[a2, a4], n] - 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] - S2[a1, a5, a6, a4, SP[a2, a3], n] - 
    S2[a1, a5, a6, SP[a2, a3], a4, n] - S2[a1, a5, a6, SP[a2, a4], a3, n] - 
    S2[a1, a5, SP[a2, a3], a4, a6, n] - S2[a1, a5, SP[a2, a3], a6, a4, n] - 
    S2[a1, a5, SP[a2, a4], a3, a6, n] - S2[a1, a5, SP[a2, a4], a6, a3, n] + 
    S2[a1, a5, SP[a3, a6], a2, a4, n] + S2[a1, a5, SP[a3, a6], a4, a2, n] + 
    S2[a1, a5, SP[a4, a6], a2, a3, n] + S2[a1, a5, SP[a4, a6], a3, a2, n] + 
    S2[a4, n]*S2[a1, a6, a2, a5, a3, n] + S2[a1, a6, a2, a5, SP[a3, a4], n] + 
    S2[a1, a6, a2, SP[a4, a5], a3, n] - S2[a2, n]*S2[a1, a6, a4, a5, a3, n] - 
    S2[a1, a6, a4, a5, SP[a2, a3], n] - S2[a1, a6, a4, SP[a2, a5], a3, n] - 
    S2[a2, n]*S2[a1, a6, a5, a3, a4, n] - S2[a1, a6, a5, a3, SP[a2, a4], n] - 
    S2[a2, n]*S2[a1, a6, a5, a4, a3, n] - S2[a1, a6, a5, a4, SP[a2, a3], n] - 
    S2[a1, a6, a5, SP[a2, a3], a4, n] - S2[a1, a6, a5, SP[a2, a4], a3, n] - 
    S2[a1, a6, SP[a2, a5], a3, a4, n] - S2[a1, a6, SP[a2, a5], a4, a3, n] - 
    S2[a1, SP[a2, a5], a3, a4, a6, n] - S2[a1, SP[a2, a5], a3, a6, a4, n] - 
    S2[a1, SP[a2, a5], a4, a3, a6, n] - S2[a1, SP[a2, a5], a4, a6, a3, n] - 
    S2[a1, SP[a2, a5], a6, a3, a4, n] - S2[a1, SP[a2, a5], a6, a4, a3, n] - 
    S2[a1, SP[a2, a6], a4, a5, a3, n] - S2[a1, SP[a2, a6], a5, a3, a4, n] - 
    S2[a1, SP[a2, a6], a5, a4, a3, n] + S2[a1, SP[a4, a6], a2, a5, a3, n] + 
    S2[a1, SP[a4, a6], a5, a2, a3, n] + S2[a1, SP[a4, a6], a5, a3, a2, n] + 
    S2[a1, SP[a5, a6], a2, a3, a4, n] + S2[a1, SP[a5, a6], a2, a4, a3, n] + 
    S2[a1, SP[a5, a6], a3, a2, a4, n] + S2[a1, SP[a5, a6], a3, a4, a2, n] + 
    S2[a1, SP[a5, a6], a4, a2, a3, n] + S2[a1, SP[a5, a6], a4, a3, a2, n] + 
    S2[a2, a1, a5, a3, SP[a4, a6], n] + S2[a2, a1, a5, a6, SP[a3, a4], n] + 
    S2[a2, a1, a5, SP[a3, a4], a6, n] + S2[a2, a1, a5, SP[a4, a6], a3, n] + 
    S2[a2, a1, a6, a5, SP[a3, a4], n] + S2[a2, a1, a6, SP[a4, a5], a3, n] + 
    S2[a2, a1, SP[a4, a5], a3, a6, n] + S2[a2, a1, SP[a4, a5], a6, a3, n] + 
    S2[a2, a1, SP[a4, a6], a5, a3, n] - S2[a6, n]*S2[a2, a5, a1, a3, a4, n] - 
    S2[a6, n]*S2[a2, a5, a1, a4, a3, n] - S2[a2, a5, a1, a4, SP[a3, a6], n] + 
    S2[a2, a5, a1, a6, SP[a3, a4], n] + S2[a2, a5, a1, SP[a3, a4], a6, n] - 
    S2[a2, a5, a1, SP[a3, a6], a4, n] - S2[a6, n]*S2[a2, a5, a3, a1, a4, n] + 
    S2[a2, a5, a6, a1, SP[a3, a4], n] + S2[a2, a5, a6, SP[a1, a3], a4, n] + 
    S2[a2, a5, SP[a1, a3], a4, a6, n] + S2[a2, a5, SP[a1, a3], a6, a4, n] - 
    S2[a2, a5, SP[a3, a6], a1, a4, n] + S2[a2, a6, a1, a5, SP[a3, a4], n] + 
    S2[a2, a6, a1, SP[a4, a5], a3, n] + S2[a2, a6, a5, a1, SP[a3, a4], n] + 
    S2[a2, a6, a5, SP[a1, a3], a4, n] + S2[a2, a6, SP[a1, a5], a3, a4, n] + 
    S2[a2, a6, SP[a1, a5], a4, a3, n] + S2[a2, SP[a1, a5], a3, a4, a6, n] + 
    S2[a2, SP[a1, a5], a3, a6, a4, n] + S2[a2, SP[a1, a5], a4, a3, a6, n] + 
    S2[a2, SP[a1, a5], a4, a6, a3, n] + S2[a2, SP[a1, a5], a6, a3, a4, n] + 
    S2[a2, SP[a1, a5], a6, a4, a3, n] + S2[a2, SP[a1, a6], a4, a5, a3, n] + 
    S2[a2, SP[a1, a6], a5, a3, a4, n] + S2[a2, SP[a1, a6], a5, a4, a3, n] - 
    S2[a2, SP[a5, a6], a1, a3, a4, n] - S2[a2, SP[a5, a6], a1, a4, a3, n] - 
    S2[a2, SP[a5, a6], a3, a1, a4, n] - S2[a2, n]*S2[a6, a1, a4, a5, a3, n] - 
    S2[a6, a1, a4, a5, SP[a2, a3], n] - S2[a6, a1, a4, SP[a2, a5], a3, n] - 
    S2[a2, n]*S2[a6, a1, a5, a3, a4, n] - S2[a6, a1, a5, a3, SP[a2, a4], n] - 
    S2[a2, n]*S2[a6, a1, a5, a4, a3, n] - S2[a6, a1, a5, a4, SP[a2, a3], n] - 
    S2[a6, a1, a5, SP[a2, a3], a4, n] - S2[a6, a1, a5, SP[a2, a4], a3, n] - 
    S2[a6, a1, SP[a2, a4], a5, a3, n] - S2[a6, a1, SP[a2, a5], a3, a4, n] - 
    S2[a6, a1, SP[a2, a5], a4, a3, n] - S2[a6, SP[a1, a2], a4, a5, a3, n] - 
    S2[a6, SP[a1, a2], a5, a3, a4, n] - S2[a6, SP[a1, a2], a5, a4, a3, n] + 
    S2[SP[a1, a4], a6, a2, a5, a3, n] + S2[SP[a1, a6], a4, a5, a2, a3, n] + 
    S2[SP[a1, a6], a4, a5, a3, a2, n] + S2[SP[a1, a6], a5, a2, a3, a4, n] + 
    S2[SP[a1, a6], a5, a2, a4, a3, n] + S2[SP[a1, a6], a5, a3, a2, a4, n] + 
    S2[SP[a1, a6], a5, a3, a4, a2, n] + S2[SP[a1, a6], a5, a4, a2, a3, n] + 
    S2[SP[a1, a6], a5, a4, a3, a2, n] - S2[SP[a2, a6], a1, a4, a5, a3, n] - 
    S2[SP[a2, a6], a1, a5, a3, a4, n] - S2[SP[a2, a6], a1, a5, a4, a3, n] - 
    S2[SP[a2, a6], a5, a1, a3, a4, n] - S2[SP[a2, a6], a5, a1, a4, a3, n] - 
    S2[SP[a2, a6], a5, a3, a1, a4, n] + S2[a6, a1, a2, a4, a5, a3, n] + 
    S2[a6, a1, a2, a5, a3, a4, n] + S2[a6, a1, a2, a5, a4, a3, n] + 
    S2[a6, a1, a4, a2, a5, a3, n] + S2[a6, a2, a1, a4, a5, a3, n] + 
    S2[a6, a2, a1, a5, a3, a4, n] + S2[a6, a2, a1, a5, a4, a3, n] + 
    S2[a6, a2, a5, a1, a3, a4, n] + S2[a6, a2, a5, a1, a4, a3, n] + 
    S2[a6, a2, a5, a3, a1, a4, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a4_, a1_, a6_, a3_, a2_, a5_, n_] :> 
  -(S2[a1, a4, n]*S2[a2, a3, a5, a6, n]) - S2[a1, a4, n]*
     S2[a2, a3, a6, a5, n] + S2[a2, a3, SP[a1, a5], SP[a4, a6], n] + 
    S2[a2, a3, SP[a1, a6], SP[a4, a5], n] - S2[a1, a4, n]*
     S2[a2, a5, a3, a6, n] - S2[a1, a4, n]*S2[a2, a5, a6, a3, n] + 
    S2[a2, a5, SP[a1, a3], SP[a4, a6], n] + S2[a2, a5, SP[a1, a6], 
     SP[a3, a4], n] - S2[a1, a4, n]*S2[a2, a6, a3, a5, n] - 
    S2[a1, a4, n]*S2[a2, a6, a5, a3, n] + S2[a2, a6, SP[a1, a3], SP[a4, a5], 
     n] + S2[a2, a6, SP[a1, a5], SP[a3, a4], n] + S2[a2, SP[a1, a3], a5, 
     SP[a4, a6], n] + S2[a2, SP[a1, a3], a6, SP[a4, a5], n] + 
    S2[a2, SP[a1, a3], SP[a4, a5], a6, n] + S2[a2, SP[a1, a3], SP[a4, a6], 
     a5, n] + S2[a2, SP[a1, a5], a3, SP[a4, a6], n] + 
    S2[a2, SP[a1, a5], a6, SP[a3, a4], n] + S2[a2, SP[a1, a5], SP[a3, a4], 
     a6, n] + S2[a2, SP[a1, a5], SP[a4, a6], a3, n] + 
    S2[a2, SP[a1, a6], a3, SP[a4, a5], n] + S2[a2, SP[a1, a6], a5, 
     SP[a3, a4], n] + S2[a2, SP[a1, a6], SP[a3, a4], a5, n] + 
    S2[a2, SP[a1, a6], SP[a4, a5], a3, n] + S2[a1, a4, n]*
     S2[a3, a6, a2, a5, n] - S2[a3, a6, SP[a1, a2], SP[a4, a5], n] - 
    S2[a3, SP[a1, a6], a2, SP[a4, a5], n] - S2[a3, SP[a1, a6], SP[a2, a4], 
     a5, n] + S2[SP[a1, a2], a3, a5, SP[a4, a6], n] + 
    S2[SP[a1, a2], a3, a6, SP[a4, a5], n] + S2[SP[a1, a2], a3, SP[a4, a5], 
     a6, n] + S2[SP[a1, a2], a3, SP[a4, a6], a5, n] + 
    S2[SP[a1, a2], a5, a3, SP[a4, a6], n] + S2[SP[a1, a2], a5, a6, 
     SP[a3, a4], n] + S2[SP[a1, a2], a5, SP[a3, a4], a6, n] + 
    S2[SP[a1, a2], a5, SP[a4, a6], a3, n] + S2[SP[a1, a2], a6, a3, 
     SP[a4, a5], n] + S2[SP[a1, a2], a6, a5, SP[a3, a4], n] + 
    S2[SP[a1, a2], a6, SP[a3, a4], a5, n] + S2[SP[a1, a2], a6, SP[a4, a5], 
     a3, n] + S2[SP[a1, a2], SP[a3, a4], a5, a6, n] + 
    S2[SP[a1, a2], SP[a3, a4], a6, a5, n] + S2[SP[a1, a2], SP[a4, a5], a3, 
     a6, n] + S2[SP[a1, a2], SP[a4, a5], a6, a3, n] + 
    S2[SP[a1, a2], SP[a4, a6], a3, a5, n] + S2[SP[a1, a2], SP[a4, a6], a5, 
     a3, n] - S2[SP[a1, a3], a6, a2, SP[a4, a5], n] - 
    S2[SP[a1, a3], a6, SP[a2, a4], a5, n] - S2[SP[a1, a3], SP[a4, a6], a2, 
     a5, n] - S2[a1, a2, a3, a5, SP[a4, a6], n] - 
    S2[a1, a2, a3, a6, SP[a4, a5], n] - S2[a1, a2, a3, SP[a4, a5], a6, n] - 
    S2[a1, a2, a3, SP[a4, a6], a5, n] - S2[a1, a2, a5, a3, SP[a4, a6], n] - 
    S2[a1, a2, a5, a6, SP[a3, a4], n] - S2[a1, a2, a5, SP[a3, a4], a6, n] - 
    S2[a1, a2, a5, SP[a4, a6], a3, n] - S2[a1, a2, a6, a3, SP[a4, a5], n] - 
    S2[a1, a2, a6, a5, SP[a3, a4], n] - S2[a1, a2, a6, SP[a3, a4], a5, n] - 

    S2[a1, a2, a6, SP[a4, a5], a3, n] - S2[a1, a2, SP[a3, a4], a5, a6, n] - 
    S2[a1, a2, SP[a3, a4], a6, a5, n] - S2[a1, a2, SP[a4, a5], a3, a6, n] - 
    S2[a1, a2, SP[a4, a5], a6, a3, n] - S2[a1, a2, SP[a4, a6], a3, a5, n] - 
    S2[a1, a2, SP[a4, a6], a5, a3, n] - S2[a6, n]*S2[a1, a3, a2, a4, a5, n] - 
    S2[a1, a3, a2, a4, SP[a5, a6], n] - S2[a6, n]*S2[a1, a3, a2, a5, a4, n] - 
    S2[a1, a3, a2, a5, SP[a4, a6], n] - S2[a1, a3, a2, SP[a4, a6], a5, n] - 
    S2[a1, a3, a2, SP[a5, a6], a4, n] - S2[a6, n]*S2[a1, a3, a4, a2, a5, n] - 
    S2[a1, a3, a4, a2, SP[a5, a6], n] - S2[a6, n]*S2[a1, a3, a4, a5, a2, n] + 
    S2[a2, n]*S2[a1, a3, a4, a5, a6, n] + 
    S2[a2, n]*S2[a1, a3, a4, a6, a5, n] + S2[a1, a3, a4, a6, SP[a2, a5], n] + 
    S2[a1, a3, a4, SP[a2, a5], a6, n] - S2[a1, a3, a4, SP[a5, a6], a2, n] - 
    S2[a6, n]*S2[a1, a3, a5, a2, a4, n] - S2[a1, a3, a5, a2, SP[a4, a6], n] - 
    S2[a6, n]*S2[a1, a3, a5, a4, a2, n] + 
    S2[a2, n]*S2[a1, a3, a5, a4, a6, n] + 
    S2[a2, n]*S2[a1, a3, a5, a6, a4, n] + S2[a1, a3, a5, a6, SP[a2, a4], n] + 
    S2[a1, a3, a5, SP[a2, a4], a6, n] - S2[a1, a3, a5, SP[a4, a6], a2, n] + 
    S2[a1, a3, a6, a2, SP[a4, a5], n] + S2[a2, n]*S2[a1, a3, a6, a4, a5, n] + 
    S2[a1, a3, a6, a4, SP[a2, a5], n] + S2[a2, n]*S2[a1, a3, a6, a5, a4, n] + 
    S2[a1, a3, a6, a5, SP[a2, a4], n] + 2*S2[a1, a3, a6, SP[a2, a4], a5, n] + 
    S2[a1, a3, a6, SP[a2, a5], a4, n] + S2[a1, a3, SP[a2, a4], a5, a6, n] + 
    S2[a1, a3, SP[a2, a4], a6, a5, n] + S2[a1, a3, SP[a2, a5], a4, a6, n] + 
    S2[a1, a3, SP[a2, a5], a6, a4, n] - S2[a1, a3, SP[a4, a6], a5, a2, n] - 
    S2[a1, a3, SP[a5, a6], a2, a4, n] - S2[a1, a3, SP[a5, a6], a4, a2, n] - 
    S2[a6, n]*S2[a1, a4, a3, a2, a5, n] - S2[a1, a4, a3, a2, SP[a5, a6], n] - 
    S2[a6, n]*S2[a1, a4, a3, a5, a2, n] + 
    S2[a2, n]*S2[a1, a4, a3, a5, a6, n] + 
    S2[a2, n]*S2[a1, a4, a3, a6, a5, n] + S2[a1, a4, a3, a6, SP[a2, a5], n] + 
    S2[a1, a4, a3, SP[a2, a5], a6, n] - S2[a1, a4, a3, SP[a5, a6], a2, n] - 
    S2[a6, n]*S2[a1, a4, a5, a2, a3, n] - S2[a1, a4, a5, a2, SP[a3, a6], n] - 
    S2[a6, n]*S2[a1, a4, a5, a3, a2, n] + 
    S2[a2, n]*S2[a1, a4, a5, a3, a6, n] + 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] + S2[a1, a4, a5, a6, SP[a2, a3], n] + 
    S2[a1, a4, a5, SP[a2, a3], a6, n] - S2[a1, a4, a5, SP[a3, a6], a2, n] - 
    S2[a3, n]*S2[a1, a4, a6, a2, a5, n] - S2[a1, a4, a6, a2, SP[a3, a5], n] + 
    S2[a2, n]*S2[a1, a4, a6, a3, a5, n] + S2[a1, a4, a6, a3, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a4, a6, a5, a3, n] + S2[a1, a4, a6, a5, SP[a2, a3], n] + 
    S2[a1, a4, a6, SP[a2, a5], a3, n] + S2[a1, a4, SP[a2, a3], a5, a6, n] + 
    S2[a1, a4, SP[a2, a3], a6, a5, n] + S2[a1, a4, SP[a2, a5], a3, a6, n] + 
    S2[a1, a4, SP[a2, a5], a6, a3, n] + S2[a1, a4, SP[a2, a6], a3, a5, n] + 
    S2[a1, a4, SP[a2, a6], a5, a3, n] - 2*S2[a1, a4, SP[a3, a6], a2, a5, n] - 
    S2[a1, a4, SP[a3, a6], a5, a2, n] - S2[a1, a4, SP[a5, a6], a2, a3, n] - 
    S2[a1, a4, SP[a5, a6], a3, a2, n] - S2[a6, n]*S2[a1, a5, a2, a3, a4, n] - 
    S2[a1, a5, a2, a3, SP[a4, a6], n] - S2[a6, n]*S2[a1, a5, a2, a4, a3, n] - 
    S2[a1, a5, a2, a4, SP[a3, a6], n] - S2[a1, a5, a2, SP[a3, a6], a4, n] - 
    S2[a1, a5, a2, SP[a4, a6], a3, n] - S2[a6, n]*S2[a1, a5, a3, a2, a4, n] - 
    S2[a1, a5, a3, a2, SP[a4, a6], n] - S2[a6, n]*S2[a1, a5, a3, a4, a2, n] + 
    S2[a2, n]*S2[a1, a5, a3, a4, a6, n] + 
    S2[a2, n]*S2[a1, a5, a3, a6, a4, n] + S2[a1, a5, a3, a6, SP[a2, a4], n] + 
    S2[a1, a5, a3, SP[a2, a4], a6, n] - S2[a1, a5, a3, SP[a4, a6], a2, n] - 
    S2[a6, n]*S2[a1, a5, a4, a2, a3, n] - S2[a1, a5, a4, a2, SP[a3, a6], n] - 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] + 
    S2[a2, n]*S2[a1, a5, a4, a3, a6, n] + 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] + S2[a1, a5, a4, a6, SP[a2, a3], n] + 
    S2[a1, a5, a4, SP[a2, a3], a6, n] - S2[a1, a5, a4, SP[a3, a6], a2, n] + 
    S2[a2, n]*S2[a1, a5, a6, a3, a4, n] + S2[a1, a5, a6, a3, SP[a2, a4], n] + 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] + S2[a1, a5, a6, a4, SP[a2, a3], n] + 
    S2[a1, a5, a6, SP[a2, a3], a4, n] + S2[a1, a5, a6, SP[a2, a4], a3, n] + 
    S2[a1, a5, SP[a2, a3], a4, a6, n] + S2[a1, a5, SP[a2, a3], a6, a4, n] + 
    S2[a1, a5, SP[a2, a4], a3, a6, n] + S2[a1, a5, SP[a2, a4], a6, a3, n] - 
    S2[a1, a5, SP[a3, a6], a2, a4, n] - S2[a1, a5, SP[a3, a6], a4, a2, n] - 
    S2[a1, a5, SP[a4, a6], a2, a3, n] - S2[a1, a5, SP[a4, a6], a3, a2, n] - 
    S2[a3, n]*S2[a1, a6, a2, a4, a5, n] - S2[a1, a6, a2, a4, SP[a3, a5], n] - 
    S2[a3, n]*S2[a1, a6, a2, a5, a4, n] - S2[a1, a6, a2, a5, SP[a3, a4], n] - 
    S2[a1, a6, a2, SP[a3, a4], a5, n] - S2[a1, a6, a2, SP[a3, a5], a4, n] + 
    S2[a4, n]*S2[a1, a6, a3, a2, a5, n] + S2[a1, a6, a3, a2, SP[a4, a5], n] + 
    S2[a2, n]*S2[a1, a6, a3, a4, a5, n] + S2[a1, a6, a3, a4, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a6, a3, a5, a4, n] + S2[a1, a6, a3, a5, SP[a2, a4], n] + 
    2*S2[a1, a6, a3, SP[a2, a4], a5, n] + S2[a1, a6, a3, SP[a2, a5], a4, n] - 
    S2[a3, n]*S2[a1, a6, a4, a2, a5, n] - S2[a1, a6, a4, a2, SP[a3, a5], n] + 
    S2[a2, n]*S2[a1, a6, a4, a3, a5, n] + S2[a1, a6, a4, a3, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a6, a4, a5, a3, n] + S2[a1, a6, a4, a5, SP[a2, a3], n] + 
    S2[a1, a6, a4, SP[a2, a5], a3, n] + S2[a2, n]*S2[a1, a6, a5, a3, a4, n] + 
    S2[a1, a6, a5, a3, SP[a2, a4], n] + S2[a2, n]*S2[a1, a6, a5, a4, a3, n] + 
    S2[a1, a6, a5, a4, SP[a2, a3], n] + S2[a1, a6, a5, SP[a2, a3], a4, n] + 
    S2[a1, a6, a5, SP[a2, a4], a3, n] + S2[a1, a6, SP[a2, a4], a3, a5, n] + 
    S2[a1, a6, SP[a2, a4], a5, a3, n] + S2[a1, a6, SP[a2, a5], a3, a4, n] + 
    S2[a1, a6, SP[a2, a5], a4, a3, n] + S2[a1, SP[a2, a3], a4, a5, a6, n] + 
    S2[a1, SP[a2, a3], a4, a6, a5, n] + S2[a1, SP[a2, a3], a5, a4, a6, n] + 
    S2[a1, SP[a2, a3], a5, a6, a4, n] + S2[a1, SP[a2, a3], a6, a4, a5, n] + 
    S2[a1, SP[a2, a3], a6, a5, a4, n] + S2[a1, SP[a2, a5], a3, a4, a6, n] + 
    S2[a1, SP[a2, a5], a3, a6, a4, n] + S2[a1, SP[a2, a5], a4, a3, a6, n] + 
    S2[a1, SP[a2, a5], a4, a6, a3, n] + S2[a1, SP[a2, a5], a6, a3, a4, n] + 
    S2[a1, SP[a2, a5], a6, a4, a3, n] + S2[a1, SP[a2, a6], a3, a4, a5, n] + 
    S2[a1, SP[a2, a6], a3, a5, a4, n] + S2[a1, SP[a2, a6], a4, a3, a5, n] + 
    S2[a1, SP[a2, a6], a4, a5, a3, n] + S2[a1, SP[a2, a6], a5, a3, a4, n] + 
    S2[a1, SP[a2, a6], a5, a4, a3, n] - 2*S2[a1, SP[a3, a6], a2, a4, a5, n] - 
    2*S2[a1, SP[a3, a6], a2, a5, a4, n] - 
    2*S2[a1, SP[a3, a6], a4, a2, a5, n] - S2[a1, SP[a3, a6], a4, a5, a2, n] - 
    S2[a1, SP[a3, a6], a5, a2, a4, n] - S2[a1, SP[a3, a6], a5, a4, a2, n] - 
    S2[a1, SP[a4, a6], a3, a5, a2, n] - S2[a1, SP[a4, a6], a5, a2, a3, n] - 
    S2[a1, SP[a4, a6], a5, a3, a2, n] - S2[a1, SP[a5, a6], a2, a3, a4, n] - 
    S2[a1, SP[a5, a6], a2, a4, a3, n] - S2[a1, SP[a5, a6], a3, a2, a4, n] - 
    S2[a1, SP[a5, a6], a3, a4, a2, n] - S2[a1, SP[a5, a6], a4, a2, a3, n] - 
    S2[a1, SP[a5, a6], a4, a3, a2, n] - S2[a2, a1, a3, a5, SP[a4, a6], n] - 
    S2[a2, a1, a3, a6, SP[a4, a5], n] - S2[a2, a1, a3, SP[a4, a5], a6, n] - 
    S2[a2, a1, a3, SP[a4, a6], a5, n] - S2[a2, a1, a5, a3, SP[a4, a6], n] - 
    S2[a2, a1, a5, a6, SP[a3, a4], n] - S2[a2, a1, a5, SP[a3, a4], a6, n] - 
    S2[a2, a1, a5, SP[a4, a6], a3, n] - S2[a2, a1, a6, a3, SP[a4, a5], n] - 
    S2[a2, a1, a6, a5, SP[a3, a4], n] - S2[a2, a1, a6, SP[a3, a4], a5, n] - 
    S2[a2, a1, a6, SP[a4, a5], a3, n] - S2[a2, a1, SP[a3, a4], a5, a6, n] - 
    S2[a2, a1, SP[a3, a4], a6, a5, n] - S2[a2, a1, SP[a4, a5], a3, a6, n] - 
    S2[a2, a1, SP[a4, a5], a6, a3, n] - S2[a2, a1, SP[a4, a6], a3, a5, n] - 
    S2[a2, a1, SP[a4, a6], a5, a3, n] + S2[a6, n]*S2[a2, a3, a1, a4, a5, n] + 
    S2[a2, a3, a1, a4, SP[a5, a6], n] + S2[a6, n]*S2[a2, a3, a1, a5, a4, n] - 
    S2[a2, a3, a1, a6, SP[a4, a5], n] - S2[a2, a3, a1, SP[a4, a5], a6, n] + 
    S2[a2, a3, a1, SP[a5, a6], a4, n] + S2[a6, n]*S2[a2, a3, a5, a1, a4, n] - 
    S2[a2, a3, a6, a1, SP[a4, a5], n] - S2[a2, a3, a6, SP[a1, a5], a4, n] - 
    S2[a2, a3, SP[a1, a5], a4, a6, n] - S2[a2, a3, SP[a1, a5], a6, a4, n] + 
    S2[a2, a3, SP[a5, a6], a1, a4, n] + S2[a6, n]*S2[a2, a5, a1, a3, a4, n] + 
    S2[a6, n]*S2[a2, a5, a1, a4, a3, n] + S2[a2, a5, a1, a4, SP[a3, a6], n] - 
    S2[a2, a5, a1, a6, SP[a3, a4], n] - S2[a2, a5, a1, SP[a3, a4], a6, n] + 
    S2[a2, a5, a1, SP[a3, a6], a4, n] + S2[a6, n]*S2[a2, a5, a3, a1, a4, n] - 
    S2[a2, a5, a6, a1, SP[a3, a4], n] - S2[a2, a5, a6, SP[a1, a3], a4, n] - 
    S2[a2, a5, SP[a1, a3], a4, a6, n] - S2[a2, a5, SP[a1, a3], a6, a4, n] + 
    S2[a2, a5, SP[a3, a6], a1, a4, n] - S2[a2, a6, a1, a3, SP[a4, a5], n] + 
    S2[a3, n]*S2[a2, a6, a1, a4, a5, n] + S2[a2, a6, a1, a4, SP[a3, a5], n] + 
    S2[a3, n]*S2[a2, a6, a1, a5, a4, n] + S2[a2, a6, a1, SP[a3, a5], a4, n] - 
    S2[a2, a6, a1, SP[a4, a5], a3, n] - S2[a2, a6, a3, a1, SP[a4, a5], n] - 
    S2[a2, a6, a3, SP[a1, a5], a4, n] - S2[a2, a6, a5, a1, SP[a3, a4], n] - 
    S2[a2, a6, a5, SP[a1, a3], a4, n] - S2[a2, a6, SP[a1, a5], a3, a4, n] - 
    S2[a2, a6, SP[a1, a5], a4, a3, n] - S2[a2, SP[a1, a3], a4, a5, a6, n] - 
    S2[a2, SP[a1, a3], a4, a6, a5, n] - S2[a2, SP[a1, a3], a5, a4, a6, n] - 
    S2[a2, SP[a1, a3], a5, a6, a4, n] - S2[a2, SP[a1, a3], a6, a4, a5, n] - 
    S2[a2, SP[a1, a3], a6, a5, a4, n] - S2[a2, SP[a1, a5], a3, a4, a6, n] - 
    S2[a2, SP[a1, a5], a3, a6, a4, n] - S2[a2, SP[a1, a5], a4, a3, a6, n] - 
    S2[a2, SP[a1, a5], a4, a6, a3, n] - S2[a2, SP[a1, a5], a6, a3, a4, n] - 
    S2[a2, SP[a1, a5], a6, a4, a3, n] - S2[a2, SP[a1, a6], a3, a4, a5, n] - 
    S2[a2, SP[a1, a6], a3, a5, a4, n] - S2[a2, SP[a1, a6], a4, a3, a5, n] - 
    S2[a2, SP[a1, a6], a4, a5, a3, n] - S2[a2, SP[a1, a6], a5, a3, a4, n] - 
    S2[a2, SP[a1, a6], a5, a4, a3, n] + 2*S2[a2, SP[a3, a6], a1, a4, a5, n] + 
    2*S2[a2, SP[a3, a6], a1, a5, a4, n] + S2[a2, SP[a3, a6], a5, a1, a4, n] + 
    S2[a2, SP[a5, a6], a1, a3, a4, n] + S2[a2, SP[a5, a6], a1, a4, a3, n] + 
    S2[a2, SP[a5, a6], a3, a1, a4, n] + S2[a3, a1, a6, a2, SP[a4, a5], n] + 
    S2[a3, a1, a6, SP[a2, a4], a5, n] + S2[a3, a1, SP[a4, a6], a2, a5, n] + 
    S2[a3, a6, a1, a2, SP[a4, a5], n] - S2[a2, n]*S2[a3, a6, a1, a4, a5, n] - 
    S2[a3, a6, a1, a4, SP[a2, a5], n] - S2[a2, n]*S2[a3, a6, a1, a5, a4, n] - 
    S2[a3, a6, a1, a5, SP[a2, a4], n] - S2[a3, a6, a1, SP[a2, a5], a4, n] + 
    S2[a3, a6, a2, a1, SP[a4, a5], n] + S2[a3, a6, a2, SP[a1, a5], a4, n] + 
    S2[a3, SP[a1, a6], a2, a4, a5, n] + S2[a3, SP[a1, a6], a2, a5, a4, n] + 
    S2[a3, SP[a1, a6], a4, a2, a5, n] - S2[a3, SP[a2, a6], a1, a4, a5, n] - 
    S2[a3, SP[a2, a6], a1, a5, a4, n] + S2[a3, n]*S2[a6, a1, a4, a5, a2, n] + 
    S2[a6, a1, a4, a5, SP[a2, a3], n] + S2[a6, a1, a4, SP[a3, a5], a2, n] + 
    S2[a3, n]*S2[a6, a1, a5, a2, a4, n] + S2[a6, a1, a5, a2, SP[a3, a4], n] + 
    S2[a3, n]*S2[a6, a1, a5, a4, a2, n] + S2[a6, a1, a5, a4, SP[a2, a3], n] + 
    S2[a6, a1, a5, SP[a2, a3], a4, n] + S2[a6, a1, a5, SP[a3, a4], a2, n] + 
    S2[a6, a1, SP[a3, a4], a5, a2, n] + S2[a6, a1, SP[a3, a5], a2, a4, n] + 
    S2[a6, a1, SP[a3, a5], a4, a2, n] - S2[a3, n]*S2[a6, a2, a5, a1, a4, n] - 
    S2[a6, a2, a5, a1, SP[a3, a4], n] - S2[a6, a2, a5, SP[a1, a3], a4, n] - 
    S2[a6, a2, SP[a3, a5], a1, a4, n] - S2[a2, n]*S2[a6, a3, a1, a4, a5, n] - 
    S2[a6, a3, a1, a4, SP[a2, a5], n] - S2[a2, n]*S2[a6, a3, a1, a5, a4, n] - 
    S2[a6, a3, a1, a5, SP[a2, a4], n] - S2[a6, a3, a1, SP[a2, a4], a5, n] - 
    S2[a6, a3, a1, SP[a2, a5], a4, n] - S2[a6, a3, SP[a1, a2], a4, a5, n] - 
    S2[a6, a3, SP[a1, a2], a5, a4, n] + S2[a6, SP[a1, a3], a4, a5, a2, n] + 
    S2[a6, SP[a1, a3], a5, a2, a4, n] + S2[a6, SP[a1, a3], a5, a4, a2, n] - 
    S2[a6, SP[a2, a3], a1, a4, a5, n] - S2[a6, SP[a2, a3], a1, a5, a4, n] - 
    S2[a6, SP[a2, a3], a5, a1, a4, n] + S2[SP[a1, a4], a6, a3, a2, a5, n] - 
    S2[SP[a1, a6], a3, a2, a4, a5, n] - S2[SP[a1, a6], a3, a2, a5, a4, n] - 
    S2[SP[a1, a6], a3, a4, a2, a5, n] - S2[SP[a1, a6], a3, a4, a5, a2, n] - 
    S2[SP[a1, a6], a3, a5, a2, a4, n] - S2[SP[a1, a6], a3, a5, a4, a2, n] - 
    S2[SP[a1, a6], a4, a3, a2, a5, n] - S2[SP[a1, a6], a4, a3, a5, a2, n] - 
    S2[SP[a1, a6], a4, a5, a2, a3, n] - S2[SP[a1, a6], a4, a5, a3, a2, n] - 
    S2[SP[a1, a6], a5, a2, a3, a4, n] - S2[SP[a1, a6], a5, a2, a4, a3, n] - 
    S2[SP[a1, a6], a5, a3, a2, a4, n] - S2[SP[a1, a6], a5, a3, a4, a2, n] - 
    S2[SP[a1, a6], a5, a4, a2, a3, n] - S2[SP[a1, a6], a5, a4, a3, a2, n] + 
    S2[SP[a2, a6], a3, a5, a1, a4, n] + S2[SP[a2, a6], a5, a1, a3, a4, n] + 
    S2[SP[a2, a6], a5, a1, a4, a3, n] + S2[SP[a2, a6], a5, a3, a1, a4, n] + 
    S2[SP[a3, a6], a1, a4, a5, a2, n] + S2[SP[a3, a6], a1, a5, a2, a4, n] + 
    S2[SP[a3, a6], a1, a5, a4, a2, n] - S2[SP[a3, a6], a2, a5, a1, a4, n] + 
    S2[a6, a1, a3, a2, a4, a5, n] + S2[a6, a1, a3, a2, a5, a4, n] + 
    S2[a6, a1, a3, a4, a2, a5, n] + S2[a6, a1, a4, a3, a2, a5, n] + 
    S2[a6, a3, a1, a2, a4, a5, n] + S2[a6, a3, a1, a2, a5, a4, n] + 
    S2[a6, a3, a1, a4, a2, a5, n] + S2[a6, a3, a2, a1, a4, a5, n] + 
    S2[a6, a3, a2, a1, a5, a4, n] + S2[a6, a3, a2, a5, a1, a4, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a4_, a1_, a6_, a3_, a5_, a2_, n_] :> 
  S2[a1, a4, n]*S2[a2, a5, a3, a6, n] + S2[a1, a4, n]*S2[a2, a5, a6, a3, n] - 
    S2[a2, a5, SP[a1, a3], SP[a4, a6], n] - S2[a2, a5, SP[a1, a6], 
     SP[a3, a4], n] + S2[a1, a4, n]*S2[a2, a6, a3, a5, n] + 
    S2[a1, a4, n]*S2[a2, a6, a5, a3, n] - S2[a2, a6, SP[a1, a3], SP[a4, a5], 
     n] - S2[a2, a6, SP[a1, a5], SP[a3, a4], n] - S2[a2, SP[a1, a5], a3, 
     SP[a4, a6], n] - S2[a2, SP[a1, a5], a6, SP[a3, a4], n] - 
    S2[a2, SP[a1, a5], SP[a3, a4], a6, n] - S2[a2, SP[a1, a5], SP[a4, a6], 
     a3, n] - S2[a2, SP[a1, a6], a3, SP[a4, a5], n] - 
    S2[a2, SP[a1, a6], a5, SP[a3, a4], n] - S2[a2, SP[a1, a6], SP[a3, a4], 
     a5, n] - S2[a2, SP[a1, a6], SP[a4, a5], a3, n] - 
    S2[a1, a4, n]*S2[a3, a6, a2, a5, n] + S2[a3, a6, SP[a1, a2], SP[a4, a5], 
     n] + S2[a3, SP[a1, a6], a2, SP[a4, a5], n] + 
    S2[a3, SP[a1, a6], SP[a2, a4], a5, n] - S2[SP[a1, a2], a5, a3, 
     SP[a4, a6], n] - S2[SP[a1, a2], a5, a6, SP[a3, a4], n] - 
    S2[SP[a1, a2], a5, SP[a3, a4], a6, n] - S2[SP[a1, a2], a5, SP[a4, a6], 
     a3, n] - S2[SP[a1, a2], a6, a3, SP[a4, a5], n] - 
    S2[SP[a1, a2], a6, a5, SP[a3, a4], n] - S2[SP[a1, a2], a6, SP[a3, a4], 
     a5, n] - S2[SP[a1, a2], a6, SP[a4, a5], a3, n] - 
    S2[SP[a1, a2], SP[a4, a5], a3, a6, n] - S2[SP[a1, a2], SP[a4, a5], a6, 
     a3, n] - S2[SP[a1, a2], SP[a4, a6], a3, a5, n] - 
    S2[SP[a1, a2], SP[a4, a6], a5, a3, n] + S2[SP[a1, a3], a6, a2, 
     SP[a4, a5], n] + S2[SP[a1, a3], a6, SP[a2, a4], a5, n] + 
    S2[SP[a1, a3], SP[a4, a6], a2, a5, n] + S2[a1, a2, a5, a3, SP[a4, a6], 
     n] + S2[a1, a2, a5, a6, SP[a3, a4], n] + S2[a1, a2, a5, SP[a3, a4], a6, 
     n] + S2[a1, a2, a5, SP[a4, a6], a3, n] + S2[a1, a2, a6, a3, SP[a4, a5], 
     n] + S2[a1, a2, a6, a5, SP[a3, a4], n] + S2[a1, a2, a6, SP[a3, a4], a5, 
     n] + S2[a1, a2, a6, SP[a4, a5], a3, n] + S2[a1, a2, SP[a4, a5], a3, a6, 
     n] + S2[a1, a2, SP[a4, a5], a6, a3, n] + S2[a1, a2, SP[a4, a6], a3, a5, 
     n] + S2[a1, a2, SP[a4, a6], a5, a3, n] - S2[a1, a3, a6, a2, SP[a4, a5], 
     n] - S2[a1, a3, a6, SP[a2, a4], a5, n] - S2[a1, a3, SP[a4, a6], a2, a5, 
     n] + S2[a6, n]*S2[a1, a4, a5, a2, a3, n] + S2[a1, a4, a5, a2, 
     SP[a3, a6], n] + S2[a6, n]*S2[a1, a4, a5, a3, a2, n] - 
    S2[a2, n]*S2[a1, a4, a5, a3, a6, n] - 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] - S2[a1, a4, a5, a6, SP[a2, a3], n] - 
    S2[a1, a4, a5, SP[a2, a3], a6, n] + S2[a1, a4, a5, SP[a3, a6], a2, n] + 
    S2[a3, n]*S2[a1, a4, a6, a2, a5, n] + S2[a1, a4, a6, a2, SP[a3, a5], n] - 
    S2[a2, n]*S2[a1, a4, a6, a3, a5, n] - S2[a1, a4, a6, a3, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a4, a6, a5, a3, n] - S2[a1, a4, a6, a5, SP[a2, a3], n] - 
    S2[a1, a4, a6, SP[a2, a5], a3, n] - S2[a1, a4, SP[a2, a5], a3, a6, n] - 
    S2[a1, a4, SP[a2, a5], a6, a3, n] - S2[a1, a4, SP[a2, a6], a3, a5, n] - 
    S2[a1, a4, SP[a2, a6], a5, a3, n] + S2[a1, a4, SP[a3, a6], a2, a5, n] + 
    S2[a1, a4, SP[a5, a6], a2, a3, n] + S2[a1, a4, SP[a5, a6], a3, a2, n] + 
    S2[a6, n]*S2[a1, a5, a2, a3, a4, n] + S2[a1, a5, a2, a3, SP[a4, a6], n] + 
    S2[a6, n]*S2[a1, a5, a2, a4, a3, n] + S2[a1, a5, a2, a4, SP[a3, a6], n] + 
    S2[a1, a5, a2, SP[a3, a6], a4, n] + S2[a1, a5, a2, SP[a4, a6], a3, n] + 
    S2[a6, n]*S2[a1, a5, a3, a2, a4, n] + S2[a1, a5, a3, a2, SP[a4, a6], n] + 
    S2[a6, n]*S2[a1, a5, a3, a4, a2, n] - 
    S2[a2, n]*S2[a1, a5, a3, a4, a6, n] - 
    S2[a2, n]*S2[a1, a5, a3, a6, a4, n] - S2[a1, a5, a3, a6, SP[a2, a4], n] - 
    S2[a1, a5, a3, SP[a2, a4], a6, n] + S2[a1, a5, a3, SP[a4, a6], a2, n] + 
    S2[a6, n]*S2[a1, a5, a4, a2, a3, n] + S2[a1, a5, a4, a2, SP[a3, a6], n] + 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] - 
    S2[a2, n]*S2[a1, a5, a4, a3, a6, n] - 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] - S2[a1, a5, a4, a6, SP[a2, a3], n] - 
    S2[a1, a5, a4, SP[a2, a3], a6, n] + S2[a1, a5, a4, SP[a3, a6], a2, n] - 
    S2[a2, n]*S2[a1, a5, a6, a3, a4, n] - S2[a1, a5, a6, a3, SP[a2, a4], n] - 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] - S2[a1, a5, a6, a4, SP[a2, a3], n] - 
    S2[a1, a5, a6, SP[a2, a3], a4, n] - S2[a1, a5, a6, SP[a2, a4], a3, n] - 
    S2[a1, a5, SP[a2, a3], a4, a6, n] - S2[a1, a5, SP[a2, a3], a6, a4, n] - 
    S2[a1, a5, SP[a2, a4], a3, a6, n] - S2[a1, a5, SP[a2, a4], a6, a3, n] + 
    S2[a1, a5, SP[a3, a6], a2, a4, n] + S2[a1, a5, SP[a3, a6], a4, a2, n] + 
    S2[a1, a5, SP[a4, a6], a2, a3, n] + S2[a1, a5, SP[a4, a6], a3, a2, n] + 
    S2[a3, n]*S2[a1, a6, a2, a4, a5, n] + S2[a1, a6, a2, a4, SP[a3, a5], n] + 
    S2[a3, n]*S2[a1, a6, a2, a5, a4, n] + S2[a1, a6, a2, a5, SP[a3, a4], n] + 
    S2[a1, a6, a2, SP[a3, a4], a5, n] + S2[a1, a6, a2, SP[a3, a5], a4, n] - 
    S2[a2, n]*S2[a1, a6, a3, a4, a5, n] - S2[a1, a6, a3, a4, SP[a2, a5], n] + 
    S2[a4, n]*S2[a1, a6, a3, a5, a2, n] - 
    S2[a2, n]*S2[a1, a6, a3, a5, a4, n] - S2[a1, a6, a3, SP[a2, a4], a5, n] - 
    S2[a1, a6, a3, SP[a2, a5], a4, n] + S2[a1, a6, a3, SP[a4, a5], a2, n] + 
    S2[a3, n]*S2[a1, a6, a4, a2, a5, n] + S2[a1, a6, a4, a2, SP[a3, a5], n] - 
    S2[a2, n]*S2[a1, a6, a4, a3, a5, n] - S2[a1, a6, a4, a3, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a6, a4, a5, a3, n] - S2[a1, a6, a4, a5, SP[a2, a3], n] - 
    S2[a1, a6, a4, SP[a2, a5], a3, n] - S2[a2, n]*S2[a1, a6, a5, a3, a4, n] - 
    S2[a1, a6, a5, a3, SP[a2, a4], n] - S2[a2, n]*S2[a1, a6, a5, a4, a3, n] - 
    S2[a1, a6, a5, a4, SP[a2, a3], n] - S2[a1, a6, a5, SP[a2, a3], a4, n] - 
    S2[a1, a6, a5, SP[a2, a4], a3, n] - S2[a1, a6, SP[a2, a4], a3, a5, n] - 
    S2[a1, a6, SP[a2, a4], a5, a3, n] - S2[a1, a6, SP[a2, a5], a3, a4, n] - 
    S2[a1, a6, SP[a2, a5], a4, a3, n] + S2[a1, a6, SP[a3, a4], a2, a5, n] + 
    S2[a1, a6, SP[a3, a4], a5, a2, n] - S2[a1, SP[a2, a5], a3, a4, a6, n] - 
    S2[a1, SP[a2, a5], a3, a6, a4, n] - S2[a1, SP[a2, a5], a4, a3, a6, n] - 
    S2[a1, SP[a2, a5], a4, a6, a3, n] - S2[a1, SP[a2, a5], a6, a3, a4, n] - 
    S2[a1, SP[a2, a5], a6, a4, a3, n] - S2[a1, SP[a2, a6], a3, a4, a5, n] - 
    S2[a1, SP[a2, a6], a3, a5, a4, n] - S2[a1, SP[a2, a6], a4, a3, a5, n] - 
    S2[a1, SP[a2, a6], a4, a5, a3, n] - S2[a1, SP[a2, a6], a5, a3, a4, n] - 
    S2[a1, SP[a2, a6], a5, a4, a3, n] + S2[a1, SP[a3, a6], a2, a4, a5, n] + 
    S2[a1, SP[a3, a6], a2, a5, a4, n] + S2[a1, SP[a3, a6], a4, a2, a5, n] + 
    S2[a1, SP[a4, a6], a3, a5, a2, n] + S2[a1, SP[a4, a6], a5, a2, a3, n] + 
    S2[a1, SP[a4, a6], a5, a3, a2, n] + S2[a1, SP[a5, a6], a2, a3, a4, n] + 
    S2[a1, SP[a5, a6], a2, a4, a3, n] + S2[a1, SP[a5, a6], a3, a2, a4, n] + 
    S2[a1, SP[a5, a6], a3, a4, a2, n] + S2[a1, SP[a5, a6], a4, a2, a3, n] + 
    S2[a1, SP[a5, a6], a4, a3, a2, n] + S2[a2, a1, a5, a3, SP[a4, a6], n] + 
    S2[a2, a1, a5, a6, SP[a3, a4], n] + S2[a2, a1, a5, SP[a3, a4], a6, n] + 
    S2[a2, a1, a5, SP[a4, a6], a3, n] + S2[a2, a1, a6, a3, SP[a4, a5], n] + 
    S2[a2, a1, a6, a5, SP[a3, a4], n] + S2[a2, a1, a6, SP[a3, a4], a5, n] + 
    S2[a2, a1, a6, SP[a4, a5], a3, n] + S2[a2, a1, SP[a4, a5], a3, a6, n] + 
    S2[a2, a1, SP[a4, a5], a6, a3, n] + S2[a2, a1, SP[a4, a6], a3, a5, n] + 
    S2[a2, a1, SP[a4, a6], a5, a3, n] - S2[a6, n]*S2[a2, a5, a1, a3, a4, n] - 
    S2[a6, n]*S2[a2, a5, a1, a4, a3, n] - S2[a2, a5, a1, a4, SP[a3, a6], n] + 
    S2[a2, a5, a1, a6, SP[a3, a4], n] + S2[a2, a5, a1, SP[a3, a4], a6, n] - 
    S2[a2, a5, a1, SP[a3, a6], a4, n] - S2[a6, n]*S2[a2, a5, a3, a1, a4, n] + 
    S2[a2, a5, a6, a1, SP[a3, a4], n] + S2[a2, a5, a6, SP[a1, a3], a4, n] + 
    S2[a2, a5, SP[a1, a3], a4, a6, n] + S2[a2, a5, SP[a1, a3], a6, a4, n] - 
    S2[a2, a5, SP[a3, a6], a1, a4, n] + S2[a2, a6, a1, a3, SP[a4, a5], n] - 
    S2[a3, n]*S2[a2, a6, a1, a4, a5, n] - S2[a2, a6, a1, a4, SP[a3, a5], n] - 
    S2[a3, n]*S2[a2, a6, a1, a5, a4, n] - S2[a2, a6, a1, SP[a3, a5], a4, n] + 
    S2[a2, a6, a1, SP[a4, a5], a3, n] + S2[a2, a6, a3, a1, SP[a4, a5], n] + 
    S2[a2, a6, a3, SP[a1, a5], a4, n] + S2[a2, a6, a5, a1, SP[a3, a4], n] + 
    S2[a2, a6, a5, SP[a1, a3], a4, n] + S2[a2, a6, SP[a1, a5], a3, a4, n] + 
    S2[a2, a6, SP[a1, a5], a4, a3, n] + S2[a2, SP[a1, a5], a3, a4, a6, n] + 
    S2[a2, SP[a1, a5], a3, a6, a4, n] + S2[a2, SP[a1, a5], a4, a3, a6, n] + 
    S2[a2, SP[a1, a5], a4, a6, a3, n] + S2[a2, SP[a1, a5], a6, a3, a4, n] + 
    S2[a2, SP[a1, a5], a6, a4, a3, n] + S2[a2, SP[a1, a6], a3, a4, a5, n] + 
    S2[a2, SP[a1, a6], a3, a5, a4, n] + S2[a2, SP[a1, a6], a4, a3, a5, n] + 
    S2[a2, SP[a1, a6], a4, a5, a3, n] + S2[a2, SP[a1, a6], a5, a3, a4, n] + 
    S2[a2, SP[a1, a6], a5, a4, a3, n] - S2[a2, SP[a3, a6], a1, a4, a5, n] - 
    S2[a2, SP[a3, a6], a1, a5, a4, n] - S2[a2, SP[a5, a6], a1, a3, a4, n] - 
    S2[a2, SP[a5, a6], a1, a4, a3, n] - S2[a2, SP[a5, a6], a3, a1, a4, n] - 
    S2[a3, a1, a6, a2, SP[a4, a5], n] - S2[a3, a1, a6, SP[a2, a4], a5, n] - 
    S2[a3, a1, SP[a4, a6], a2, a5, n] - S2[a3, a6, a1, a2, SP[a4, a5], n] + 
    S2[a2, n]*S2[a3, a6, a1, a4, a5, n] + S2[a3, a6, a1, a4, SP[a2, a5], n] + 
    S2[a2, n]*S2[a3, a6, a1, a5, a4, n] + S2[a3, a6, a1, a5, SP[a2, a4], n] + 
    S2[a3, a6, a1, SP[a2, a5], a4, n] - S2[a3, a6, a2, a1, SP[a4, a5], n] - 
    S2[a3, a6, a2, SP[a1, a5], a4, n] - S2[a3, SP[a1, a6], a2, a4, a5, n] - 
    S2[a3, SP[a1, a6], a2, a5, a4, n] - S2[a3, SP[a1, a6], a4, a2, a5, n] + 
    S2[a3, SP[a2, a6], a1, a4, a5, n] + S2[a3, SP[a2, a6], a1, a5, a4, n] - 
    S2[a3, n]*S2[a6, a1, a4, a5, a2, n] - S2[a6, a1, a4, a5, SP[a2, a3], n] - 
    S2[a6, a1, a4, SP[a3, a5], a2, n] - S2[a3, n]*S2[a6, a1, a5, a2, a4, n] - 
    S2[a6, a1, a5, a2, SP[a3, a4], n] - S2[a3, n]*S2[a6, a1, a5, a4, a2, n] - 
    S2[a6, a1, a5, a4, SP[a2, a3], n] - S2[a6, a1, a5, SP[a2, a3], a4, n] - 
    S2[a6, a1, a5, SP[a3, a4], a2, n] - S2[a6, a1, SP[a3, a4], a5, a2, n] - 
    S2[a6, a1, SP[a3, a5], a2, a4, n] - S2[a6, a1, SP[a3, a5], a4, a2, n] + 
    S2[a3, n]*S2[a6, a2, a5, a1, a4, n] + S2[a6, a2, a5, a1, SP[a3, a4], n] + 
    S2[a6, a2, a5, SP[a1, a3], a4, n] + S2[a6, a2, SP[a3, a5], a1, a4, n] - 
    S2[a2, n]*S2[a6, a3, a5, a1, a4, n] - S2[a6, a3, a5, a1, SP[a2, a4], n] - 
    S2[a6, a3, a5, SP[a1, a2], a4, n] - S2[a6, a3, SP[a2, a5], a1, a4, n] - 
    S2[a6, SP[a1, a3], a4, a5, a2, n] - S2[a6, SP[a1, a3], a5, a2, a4, n] - 
    S2[a6, SP[a1, a3], a5, a4, a2, n] + S2[SP[a1, a4], a6, a3, a5, a2, n] + 
    S2[SP[a1, a6], a4, a5, a2, a3, n] + S2[SP[a1, a6], a4, a5, a3, a2, n] + 
    S2[SP[a1, a6], a5, a2, a3, a4, n] + S2[SP[a1, a6], a5, a2, a4, a3, n] + 
    S2[SP[a1, a6], a5, a3, a2, a4, n] + S2[SP[a1, a6], a5, a3, a4, a2, n] + 
    S2[SP[a1, a6], a5, a4, a2, a3, n] + S2[SP[a1, a6], a5, a4, a3, a2, n] - 
    S2[SP[a2, a6], a3, a5, a1, a4, n] - S2[SP[a2, a6], a5, a1, a3, a4, n] - 
    S2[SP[a2, a6], a5, a1, a4, a3, n] - S2[SP[a2, a6], a5, a3, a1, a4, n] - 
    S2[SP[a3, a6], a1, a4, a5, a2, n] - S2[SP[a3, a6], a1, a5, a2, a4, n] - 
    S2[SP[a3, a6], a1, a5, a4, a2, n] + S2[SP[a3, a6], a2, a5, a1, a4, n] + 
    S2[a6, a1, a3, a4, a5, a2, n] + S2[a6, a1, a3, a5, a2, a4, n] + 
    S2[a6, a1, a3, a5, a4, a2, n] + S2[a6, a1, a4, a3, a5, a2, n] + 
    S2[a6, a3, a1, a4, a5, a2, n] + S2[a6, a3, a1, a5, a2, a4, n] + 
    S2[a6, a3, a1, a5, a4, a2, n] + S2[a6, a3, a5, a1, a2, a4, n] + 
    S2[a6, a3, a5, a1, a4, a2, n] + S2[a6, a3, a5, a2, a1, a4, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a4_, a1_, a6_, a5_, a2_, a3_, n_] :> 
  -(S2[a1, a4, n]*S2[a2, a3, a5, a6, n]) - S2[a1, a4, n]*
     S2[a2, a3, a6, a5, n] + S2[a2, a3, SP[a1, a5], SP[a4, a6], n] + 
    S2[a2, a3, SP[a1, a6], SP[a4, a5], n] - S2[a1, a4, n]*
     S2[a2, a5, a3, a6, n] - S2[a1, a4, n]*S2[a2, a5, a6, a3, n] + 
    S2[a2, a5, SP[a1, a3], SP[a4, a6], n] + S2[a2, a5, SP[a1, a6], 
     SP[a3, a4], n] - S2[a1, a4, n]*S2[a2, a6, a3, a5, n] - 
    S2[a1, a4, n]*S2[a2, a6, a5, a3, n] + S2[a2, a6, SP[a1, a3], SP[a4, a5], 
     n] + S2[a2, a6, SP[a1, a5], SP[a3, a4], n] + S2[a2, SP[a1, a3], a5, 
     SP[a4, a6], n] + S2[a2, SP[a1, a3], a6, SP[a4, a5], n] + 
    S2[a2, SP[a1, a3], SP[a4, a5], a6, n] + S2[a2, SP[a1, a3], SP[a4, a6], 
     a5, n] + S2[a2, SP[a1, a5], a3, SP[a4, a6], n] + 
    S2[a2, SP[a1, a5], a6, SP[a3, a4], n] + S2[a2, SP[a1, a5], SP[a3, a4], 
     a6, n] + S2[a2, SP[a1, a5], SP[a4, a6], a3, n] + 
    S2[a2, SP[a1, a6], a3, SP[a4, a5], n] + S2[a2, SP[a1, a6], a5, 
     SP[a3, a4], n] + S2[a2, SP[a1, a6], SP[a3, a4], a5, n] + 
    S2[a2, SP[a1, a6], SP[a4, a5], a3, n] + S2[a1, a4, n]*
     S2[a5, a6, a2, a3, n] - S2[a5, a6, SP[a1, a2], SP[a3, a4], n] - 
    S2[a5, SP[a1, a6], a2, SP[a3, a4], n] - S2[a5, SP[a1, a6], SP[a2, a4], 
     a3, n] + S2[SP[a1, a2], a3, a5, SP[a4, a6], n] + 
    S2[SP[a1, a2], a3, a6, SP[a4, a5], n] + S2[SP[a1, a2], a3, SP[a4, a5], 
     a6, n] + S2[SP[a1, a2], a3, SP[a4, a6], a5, n] + 
    S2[SP[a1, a2], a5, a3, SP[a4, a6], n] + S2[SP[a1, a2], a5, a6, 
     SP[a3, a4], n] + S2[SP[a1, a2], a5, SP[a3, a4], a6, n] + 
    S2[SP[a1, a2], a5, SP[a4, a6], a3, n] + S2[SP[a1, a2], a6, a3, 
     SP[a4, a5], n] + S2[SP[a1, a2], a6, a5, SP[a3, a4], n] + 
    S2[SP[a1, a2], a6, SP[a3, a4], a5, n] + S2[SP[a1, a2], a6, SP[a4, a5], 
     a3, n] + S2[SP[a1, a2], SP[a3, a4], a5, a6, n] + 
    S2[SP[a1, a2], SP[a3, a4], a6, a5, n] + S2[SP[a1, a2], SP[a4, a5], a3, 
     a6, n] + S2[SP[a1, a2], SP[a4, a5], a6, a3, n] + 
    S2[SP[a1, a2], SP[a4, a6], a3, a5, n] + S2[SP[a1, a2], SP[a4, a6], a5, 
     a3, n] - S2[SP[a1, a5], a6, a2, SP[a3, a4], n] - 
    S2[SP[a1, a5], a6, SP[a2, a4], a3, n] - S2[SP[a1, a5], SP[a4, a6], a2, 
     a3, n] - S2[a1, a2, a3, a5, SP[a4, a6], n] - 
    S2[a1, a2, a3, a6, SP[a4, a5], n] - S2[a1, a2, a3, SP[a4, a5], a6, n] - 
    S2[a1, a2, a3, SP[a4, a6], a5, n] - S2[a1, a2, a5, a3, SP[a4, a6], n] - 
    S2[a1, a2, a5, a6, SP[a3, a4], n] - S2[a1, a2, a5, SP[a3, a4], a6, n] - 
    S2[a1, a2, a5, SP[a4, a6], a3, n] - S2[a1, a2, a6, a3, SP[a4, a5], n] - 
    S2[a1, a2, a6, a5, SP[a3, a4], n] - S2[a1, a2, a6, SP[a3, a4], a5, n] - 
    S2[a1, a2, a6, SP[a4, a5], a3, n] - S2[a1, a2, SP[a3, a4], a5, a6, n] - 
    S2[a1, a2, SP[a3, a4], a6, a5, n] - S2[a1, a2, SP[a4, a5], a3, a6, n] - 
    S2[a1, a2, SP[a4, a5], a6, a3, n] - S2[a1, a2, SP[a4, a6], a3, a5, n] - 
    S2[a1, a2, SP[a4, a6], a5, a3, n] - S2[a6, n]*S2[a1, a3, a2, a4, a5, n] - 
    S2[a1, a3, a2, a4, SP[a5, a6], n] - S2[a6, n]*S2[a1, a3, a2, a5, a4, n] - 
    S2[a1, a3, a2, a5, SP[a4, a6], n] - S2[a1, a3, a2, SP[a4, a6], a5, n] - 
    S2[a1, a3, a2, SP[a5, a6], a4, n] - S2[a6, n]*S2[a1, a3, a4, a2, a5, n] - 
    S2[a1, a3, a4, a2, SP[a5, a6], n] - S2[a6, n]*S2[a1, a3, a4, a5, a2, n] + 
    S2[a2, n]*S2[a1, a3, a4, a5, a6, n] + 
    S2[a2, n]*S2[a1, a3, a4, a6, a5, n] + S2[a1, a3, a4, a6, SP[a2, a5], n] + 
    S2[a1, a3, a4, SP[a2, a5], a6, n] - S2[a1, a3, a4, SP[a5, a6], a2, n] - 
    S2[a6, n]*S2[a1, a3, a5, a2, a4, n] - S2[a1, a3, a5, a2, SP[a4, a6], n] - 
    S2[a6, n]*S2[a1, a3, a5, a4, a2, n] + 
    S2[a2, n]*S2[a1, a3, a5, a4, a6, n] + 
    S2[a2, n]*S2[a1, a3, a5, a6, a4, n] + S2[a1, a3, a5, a6, SP[a2, a4], n] + 
    S2[a1, a3, a5, SP[a2, a4], a6, n] - S2[a1, a3, a5, SP[a4, a6], a2, n] + 
    S2[a2, n]*S2[a1, a3, a6, a4, a5, n] + S2[a1, a3, a6, a4, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a3, a6, a5, a4, n] + S2[a1, a3, a6, a5, SP[a2, a4], n] + 
    S2[a1, a3, a6, SP[a2, a4], a5, n] + S2[a1, a3, a6, SP[a2, a5], a4, n] + 
    S2[a1, a3, SP[a2, a4], a5, a6, n] + S2[a1, a3, SP[a2, a4], a6, a5, n] + 
    S2[a1, a3, SP[a2, a5], a4, a6, n] + S2[a1, a3, SP[a2, a5], a6, a4, n] - 
    S2[a1, a3, SP[a4, a6], a2, a5, n] - S2[a1, a3, SP[a4, a6], a5, a2, n] - 
    S2[a1, a3, SP[a5, a6], a2, a4, n] - S2[a1, a3, SP[a5, a6], a4, a2, n] - 
    S2[a6, n]*S2[a1, a4, a3, a2, a5, n] - S2[a1, a4, a3, a2, SP[a5, a6], n] - 
    S2[a6, n]*S2[a1, a4, a3, a5, a2, n] + 
    S2[a2, n]*S2[a1, a4, a3, a5, a6, n] + 
    S2[a2, n]*S2[a1, a4, a3, a6, a5, n] + S2[a1, a4, a3, a6, SP[a2, a5], n] + 
    S2[a1, a4, a3, SP[a2, a5], a6, n] - S2[a1, a4, a3, SP[a5, a6], a2, n] - 
    S2[a6, n]*S2[a1, a4, a5, a2, a3, n] - S2[a1, a4, a5, a2, SP[a3, a6], n] - 
    S2[a6, n]*S2[a1, a4, a5, a3, a2, n] + 
    S2[a2, n]*S2[a1, a4, a5, a3, a6, n] + 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] + S2[a1, a4, a5, a6, SP[a2, a3], n] + 
    S2[a1, a4, a5, SP[a2, a3], a6, n] - S2[a1, a4, a5, SP[a3, a6], a2, n] - 
    S2[a5, n]*S2[a1, a4, a6, a2, a3, n] - S2[a1, a4, a6, a2, SP[a3, a5], n] + 
    S2[a2, n]*S2[a1, a4, a6, a3, a5, n] + S2[a1, a4, a6, a3, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a4, a6, a5, a3, n] + S2[a1, a4, a6, a5, SP[a2, a3], n] + 
    S2[a1, a4, a6, SP[a2, a3], a5, n] + S2[a1, a4, SP[a2, a3], a5, a6, n] + 
    S2[a1, a4, SP[a2, a3], a6, a5, n] + S2[a1, a4, SP[a2, a5], a3, a6, n] + 
    S2[a1, a4, SP[a2, a5], a6, a3, n] + S2[a1, a4, SP[a2, a6], a3, a5, n] + 
    S2[a1, a4, SP[a2, a6], a5, a3, n] - S2[a1, a4, SP[a3, a6], a2, a5, n] - 
    S2[a1, a4, SP[a3, a6], a5, a2, n] - 2*S2[a1, a4, SP[a5, a6], a2, a3, n] - 
    S2[a1, a4, SP[a5, a6], a3, a2, n] - S2[a6, n]*S2[a1, a5, a2, a3, a4, n] - 
    S2[a1, a5, a2, a3, SP[a4, a6], n] - S2[a6, n]*S2[a1, a5, a2, a4, a3, n] - 
    S2[a1, a5, a2, a4, SP[a3, a6], n] - S2[a1, a5, a2, SP[a3, a6], a4, n] - 
    S2[a1, a5, a2, SP[a4, a6], a3, n] - S2[a6, n]*S2[a1, a5, a3, a2, a4, n] - 
    S2[a1, a5, a3, a2, SP[a4, a6], n] - S2[a6, n]*S2[a1, a5, a3, a4, a2, n] + 
    S2[a2, n]*S2[a1, a5, a3, a4, a6, n] + 
    S2[a2, n]*S2[a1, a5, a3, a6, a4, n] + S2[a1, a5, a3, a6, SP[a2, a4], n] + 
    S2[a1, a5, a3, SP[a2, a4], a6, n] - S2[a1, a5, a3, SP[a4, a6], a2, n] - 
    S2[a6, n]*S2[a1, a5, a4, a2, a3, n] - S2[a1, a5, a4, a2, SP[a3, a6], n] - 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] + 
    S2[a2, n]*S2[a1, a5, a4, a3, a6, n] + 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] + S2[a1, a5, a4, a6, SP[a2, a3], n] + 
    S2[a1, a5, a4, SP[a2, a3], a6, n] - S2[a1, a5, a4, SP[a3, a6], a2, n] + 
    S2[a1, a5, a6, a2, SP[a3, a4], n] + S2[a2, n]*S2[a1, a5, a6, a3, a4, n] + 
    S2[a1, a5, a6, a3, SP[a2, a4], n] + S2[a2, n]*S2[a1, a5, a6, a4, a3, n] + 
    S2[a1, a5, a6, a4, SP[a2, a3], n] + S2[a1, a5, a6, SP[a2, a3], a4, n] + 
    2*S2[a1, a5, a6, SP[a2, a4], a3, n] + S2[a1, a5, SP[a2, a3], a4, a6, n] + 
    S2[a1, a5, SP[a2, a3], a6, a4, n] + S2[a1, a5, SP[a2, a4], a3, a6, n] + 
    S2[a1, a5, SP[a2, a4], a6, a3, n] - S2[a1, a5, SP[a3, a6], a2, a4, n] - 
    S2[a1, a5, SP[a3, a6], a4, a2, n] - S2[a1, a5, SP[a4, a6], a3, a2, n] - 
    S2[a5, n]*S2[a1, a6, a2, a3, a4, n] - S2[a1, a6, a2, a3, SP[a4, a5], n] - 
    S2[a5, n]*S2[a1, a6, a2, a4, a3, n] - S2[a1, a6, a2, a4, SP[a3, a5], n] - 
    S2[a1, a6, a2, SP[a3, a5], a4, n] - S2[a1, a6, a2, SP[a4, a5], a3, n] + 
    S2[a2, n]*S2[a1, a6, a3, a4, a5, n] + S2[a1, a6, a3, a4, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a6, a3, a5, a4, n] + S2[a1, a6, a3, a5, SP[a2, a4], n] + 
    S2[a1, a6, a3, SP[a2, a4], a5, n] + S2[a1, a6, a3, SP[a2, a5], a4, n] - 
    S2[a5, n]*S2[a1, a6, a4, a2, a3, n] - S2[a1, a6, a4, a2, SP[a3, a5], n] + 
    S2[a2, n]*S2[a1, a6, a4, a3, a5, n] + S2[a1, a6, a4, a3, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a6, a4, a5, a3, n] + S2[a1, a6, a4, a5, SP[a2, a3], n] + 
    S2[a1, a6, a4, SP[a2, a3], a5, n] + S2[a4, n]*S2[a1, a6, a5, a2, a3, n] + 
    S2[a1, a6, a5, a2, SP[a3, a4], n] + S2[a2, n]*S2[a1, a6, a5, a3, a4, n] + 
    S2[a1, a6, a5, a3, SP[a2, a4], n] + S2[a2, n]*S2[a1, a6, a5, a4, a3, n] + 
    S2[a1, a6, a5, a4, SP[a2, a3], n] + S2[a1, a6, a5, SP[a2, a3], a4, n] + 
    2*S2[a1, a6, a5, SP[a2, a4], a3, n] + S2[a1, a6, SP[a2, a3], a4, a5, n] + 
    S2[a1, a6, SP[a2, a3], a5, a4, n] + S2[a1, a6, SP[a2, a4], a3, a5, n] + 
    S2[a1, a6, SP[a2, a4], a5, a3, n] + S2[a1, SP[a2, a3], a4, a5, a6, n] + 
    S2[a1, SP[a2, a3], a4, a6, a5, n] + S2[a1, SP[a2, a3], a5, a4, a6, n] + 
    S2[a1, SP[a2, a3], a5, a6, a4, n] + S2[a1, SP[a2, a3], a6, a4, a5, n] + 
    S2[a1, SP[a2, a3], a6, a5, a4, n] + S2[a1, SP[a2, a5], a3, a4, a6, n] + 
    S2[a1, SP[a2, a5], a3, a6, a4, n] + S2[a1, SP[a2, a5], a4, a3, a6, n] + 
    S2[a1, SP[a2, a5], a4, a6, a3, n] + S2[a1, SP[a2, a5], a6, a3, a4, n] + 
    S2[a1, SP[a2, a5], a6, a4, a3, n] + S2[a1, SP[a2, a6], a3, a4, a5, n] + 
    S2[a1, SP[a2, a6], a3, a5, a4, n] + S2[a1, SP[a2, a6], a4, a3, a5, n] + 
    S2[a1, SP[a2, a6], a4, a5, a3, n] + S2[a1, SP[a2, a6], a5, a3, a4, n] + 
    S2[a1, SP[a2, a6], a5, a4, a3, n] - S2[a1, SP[a3, a6], a2, a4, a5, n] - 
    S2[a1, SP[a3, a6], a2, a5, a4, n] - S2[a1, SP[a3, a6], a4, a2, a5, n] - 
    S2[a1, SP[a3, a6], a4, a5, a2, n] - S2[a1, SP[a3, a6], a5, a2, a4, n] - 
    S2[a1, SP[a3, a6], a5, a4, a2, n] - S2[a1, SP[a4, a6], a3, a2, a5, n] - 
    S2[a1, SP[a4, a6], a3, a5, a2, n] - S2[a1, SP[a4, a6], a5, a3, a2, n] - 
    2*S2[a1, SP[a5, a6], a2, a3, a4, n] - 
    2*S2[a1, SP[a5, a6], a2, a4, a3, n] - S2[a1, SP[a5, a6], a3, a2, a4, n] - 
    S2[a1, SP[a5, a6], a3, a4, a2, n] - 2*S2[a1, SP[a5, a6], a4, a2, a3, n] - 
    S2[a1, SP[a5, a6], a4, a3, a2, n] - S2[a2, a1, a3, a5, SP[a4, a6], n] - 
    S2[a2, a1, a3, a6, SP[a4, a5], n] - S2[a2, a1, a3, SP[a4, a5], a6, n] - 
    S2[a2, a1, a3, SP[a4, a6], a5, n] - S2[a2, a1, a5, a3, SP[a4, a6], n] - 
    S2[a2, a1, a5, a6, SP[a3, a4], n] - S2[a2, a1, a5, SP[a3, a4], a6, n] - 
    S2[a2, a1, a5, SP[a4, a6], a3, n] - S2[a2, a1, a6, a3, SP[a4, a5], n] - 
    S2[a2, a1, a6, a5, SP[a3, a4], n] - S2[a2, a1, a6, SP[a3, a4], a5, n] - 
    S2[a2, a1, a6, SP[a4, a5], a3, n] - S2[a2, a1, SP[a3, a4], a5, a6, n] - 
    S2[a2, a1, SP[a3, a4], a6, a5, n] - S2[a2, a1, SP[a4, a5], a3, a6, n] - 
    S2[a2, a1, SP[a4, a5], a6, a3, n] - S2[a2, a1, SP[a4, a6], a3, a5, n] - 
    S2[a2, a1, SP[a4, a6], a5, a3, n] + S2[a6, n]*S2[a2, a3, a1, a4, a5, n] + 
    S2[a2, a3, a1, a4, SP[a5, a6], n] + S2[a6, n]*S2[a2, a3, a1, a5, a4, n] - 
    S2[a2, a3, a1, a6, SP[a4, a5], n] - S2[a2, a3, a1, SP[a4, a5], a6, n] + 
    S2[a2, a3, a1, SP[a5, a6], a4, n] + S2[a6, n]*S2[a2, a3, a5, a1, a4, n] - 
    S2[a2, a3, a6, a1, SP[a4, a5], n] - S2[a2, a3, a6, SP[a1, a5], a4, n] - 
    S2[a2, a3, SP[a1, a5], a4, a6, n] - S2[a2, a3, SP[a1, a5], a6, a4, n] + 
    S2[a2, a3, SP[a5, a6], a1, a4, n] + S2[a6, n]*S2[a2, a5, a1, a3, a4, n] + 
    S2[a6, n]*S2[a2, a5, a1, a4, a3, n] + S2[a2, a5, a1, a4, SP[a3, a6], n] - 
    S2[a2, a5, a1, a6, SP[a3, a4], n] - S2[a2, a5, a1, SP[a3, a4], a6, n] + 
    S2[a2, a5, a1, SP[a3, a6], a4, n] + S2[a6, n]*S2[a2, a5, a3, a1, a4, n] - 
    S2[a2, a5, a6, a1, SP[a3, a4], n] - S2[a2, a5, a6, SP[a1, a3], a4, n] - 
    S2[a2, a5, SP[a1, a3], a4, a6, n] - S2[a2, a5, SP[a1, a3], a6, a4, n] + 
    S2[a2, a5, SP[a3, a6], a1, a4, n] + S2[a5, n]*S2[a2, a6, a1, a3, a4, n] + 
    S2[a5, n]*S2[a2, a6, a1, a4, a3, n] + S2[a2, a6, a1, a4, SP[a3, a5], n] - 
    S2[a2, a6, a1, a5, SP[a3, a4], n] - S2[a2, a6, a1, SP[a3, a4], a5, n] + 
    S2[a2, a6, a1, SP[a3, a5], a4, n] - S2[a2, a6, a3, a1, SP[a4, a5], n] - 
    S2[a2, a6, a3, SP[a1, a5], a4, n] - S2[a2, a6, a5, a1, SP[a3, a4], n] - 
    S2[a2, a6, a5, SP[a1, a3], a4, n] - S2[a2, a6, SP[a1, a3], a4, a5, n] - 
    S2[a2, a6, SP[a1, a3], a5, a4, n] - S2[a2, SP[a1, a3], a4, a5, a6, n] - 
    S2[a2, SP[a1, a3], a4, a6, a5, n] - S2[a2, SP[a1, a3], a5, a4, a6, n] - 
    S2[a2, SP[a1, a3], a5, a6, a4, n] - S2[a2, SP[a1, a3], a6, a4, a5, n] - 
    S2[a2, SP[a1, a3], a6, a5, a4, n] - S2[a2, SP[a1, a5], a3, a4, a6, n] - 
    S2[a2, SP[a1, a5], a3, a6, a4, n] - S2[a2, SP[a1, a5], a4, a3, a6, n] - 
    S2[a2, SP[a1, a5], a4, a6, a3, n] - S2[a2, SP[a1, a5], a6, a3, a4, n] - 
    S2[a2, SP[a1, a5], a6, a4, a3, n] - S2[a2, SP[a1, a6], a3, a4, a5, n] - 
    S2[a2, SP[a1, a6], a3, a5, a4, n] - S2[a2, SP[a1, a6], a4, a3, a5, n] - 
    S2[a2, SP[a1, a6], a4, a5, a3, n] - S2[a2, SP[a1, a6], a5, a3, a4, n] - 
    S2[a2, SP[a1, a6], a5, a4, a3, n] + S2[a2, SP[a3, a6], a1, a4, a5, n] + 
    S2[a2, SP[a3, a6], a1, a5, a4, n] + S2[a2, SP[a3, a6], a5, a1, a4, n] + 
    2*S2[a2, SP[a5, a6], a1, a3, a4, n] + 
    2*S2[a2, SP[a5, a6], a1, a4, a3, n] + S2[a2, SP[a5, a6], a3, a1, a4, n] + 
    S2[a5, a1, a6, a2, SP[a3, a4], n] + S2[a5, a1, a6, SP[a2, a4], a3, n] + 
    S2[a5, a1, SP[a4, a6], a2, a3, n] + S2[a5, a6, a1, a2, SP[a3, a4], n] - 
    S2[a2, n]*S2[a5, a6, a1, a3, a4, n] - S2[a5, a6, a1, a3, SP[a2, a4], n] - 
    S2[a2, n]*S2[a5, a6, a1, a4, a3, n] - S2[a5, a6, a1, a4, SP[a2, a3], n] - 
    S2[a5, a6, a1, SP[a2, a3], a4, n] + S2[a5, a6, a2, a1, SP[a3, a4], n] + 
    S2[a5, a6, a2, SP[a1, a3], a4, n] + S2[a5, SP[a1, a6], a2, a3, a4, n] + 
    S2[a5, SP[a1, a6], a2, a4, a3, n] + S2[a5, SP[a1, a6], a4, a2, a3, n] - 
    S2[a5, SP[a2, a6], a1, a3, a4, n] - S2[a5, SP[a2, a6], a1, a4, a3, n] + 
    S2[a5, n]*S2[a6, a1, a3, a2, a4, n] + S2[a6, a1, a3, a2, SP[a4, a5], n] + 
    S2[a5, n]*S2[a6, a1, a3, a4, a2, n] + S2[a6, a1, a3, a4, SP[a2, a5], n] + 
    S2[a6, a1, a3, SP[a2, a5], a4, n] + S2[a6, a1, a3, SP[a4, a5], a2, n] + 
    S2[a5, n]*S2[a6, a1, a4, a3, a2, n] + S2[a6, a1, a4, a3, SP[a2, a5], n] + 
    S2[a6, a1, a4, SP[a3, a5], a2, n] + S2[a6, a1, SP[a3, a5], a2, a4, n] + 
    S2[a6, a1, SP[a3, a5], a4, a2, n] + S2[a6, a1, SP[a4, a5], a3, a2, n] - 
    S2[a5, n]*S2[a6, a2, a3, a1, a4, n] - S2[a6, a2, a3, a1, SP[a4, a5], n] - 
    S2[a6, a2, a3, SP[a1, a5], a4, n] - S2[a6, a2, SP[a3, a5], a1, a4, n] - 
    S2[a2, n]*S2[a6, a5, a1, a3, a4, n] - S2[a6, a5, a1, a3, SP[a2, a4], n] - 
    S2[a2, n]*S2[a6, a5, a1, a4, a3, n] - S2[a6, a5, a1, a4, SP[a2, a3], n] - 
    S2[a6, a5, a1, SP[a2, a3], a4, n] - S2[a6, a5, a1, SP[a2, a4], a3, n] - 
    S2[a6, a5, SP[a1, a2], a3, a4, n] - S2[a6, a5, SP[a1, a2], a4, a3, n] + 
    S2[a6, SP[a1, a5], a3, a2, a4, n] + S2[a6, SP[a1, a5], a3, a4, a2, n] + 
    S2[a6, SP[a1, a5], a4, a3, a2, n] - S2[a6, SP[a2, a5], a1, a3, a4, n] - 
    S2[a6, SP[a2, a5], a1, a4, a3, n] - S2[a6, SP[a2, a5], a3, a1, a4, n] + 
    S2[SP[a1, a4], a6, a5, a2, a3, n] - S2[SP[a1, a6], a3, a2, a4, a5, n] - 
    S2[SP[a1, a6], a3, a2, a5, a4, n] - S2[SP[a1, a6], a3, a4, a2, a5, n] - 
    S2[SP[a1, a6], a3, a4, a5, a2, n] - S2[SP[a1, a6], a3, a5, a2, a4, n] - 
    S2[SP[a1, a6], a3, a5, a4, a2, n] - S2[SP[a1, a6], a4, a3, a2, a5, n] - 
    S2[SP[a1, a6], a4, a3, a5, a2, n] - S2[SP[a1, a6], a4, a5, a2, a3, n] - 
    S2[SP[a1, a6], a4, a5, a3, a2, n] - S2[SP[a1, a6], a5, a2, a3, a4, n] - 
    S2[SP[a1, a6], a5, a2, a4, a3, n] - S2[SP[a1, a6], a5, a3, a2, a4, n] - 
    S2[SP[a1, a6], a5, a3, a4, a2, n] - S2[SP[a1, a6], a5, a4, a2, a3, n] - 
    S2[SP[a1, a6], a5, a4, a3, a2, n] + S2[SP[a2, a6], a3, a1, a4, a5, n] + 
    S2[SP[a2, a6], a3, a1, a5, a4, n] + S2[SP[a2, a6], a3, a5, a1, a4, n] + 
    S2[SP[a2, a6], a5, a3, a1, a4, n] + S2[SP[a5, a6], a1, a3, a2, a4, n] + 
    S2[SP[a5, a6], a1, a3, a4, a2, n] + S2[SP[a5, a6], a1, a4, a3, a2, n] - 
    S2[SP[a5, a6], a2, a3, a1, a4, n] + S2[a6, a1, a4, a5, a2, a3, n] + 
    S2[a6, a1, a5, a2, a3, a4, n] + S2[a6, a1, a5, a2, a4, a3, n] + 
    S2[a6, a1, a5, a4, a2, a3, n] + S2[a6, a5, a1, a2, a3, a4, n] + 
    S2[a6, a5, a1, a2, a4, a3, n] + S2[a6, a5, a1, a4, a2, a3, n] + 
    S2[a6, a5, a2, a1, a3, a4, n] + S2[a6, a5, a2, a1, a4, a3, n] + 
    S2[a6, a5, a2, a3, a1, a4, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a4_, a1_, a6_, a5_, a3_, a2_, n_] :> 
  S2[a1, a4, n]*S2[a2, a3, a5, a6, n] + S2[a1, a4, n]*S2[a2, a3, a6, a5, n] - 
    S2[a2, a3, SP[a1, a5], SP[a4, a6], n] - S2[a2, a3, SP[a1, a6], 
     SP[a4, a5], n] + S2[a1, a4, n]*S2[a2, a6, a3, a5, n] + 
    S2[a1, a4, n]*S2[a2, a6, a5, a3, n] - S2[a2, a6, SP[a1, a3], SP[a4, a5], 
     n] - S2[a2, a6, SP[a1, a5], SP[a3, a4], n] - S2[a2, SP[a1, a3], a5, 
     SP[a4, a6], n] - S2[a2, SP[a1, a3], a6, SP[a4, a5], n] - 
    S2[a2, SP[a1, a3], SP[a4, a5], a6, n] - S2[a2, SP[a1, a3], SP[a4, a6], 
     a5, n] - S2[a2, SP[a1, a6], a3, SP[a4, a5], n] - 
    S2[a2, SP[a1, a6], a5, SP[a3, a4], n] - S2[a2, SP[a1, a6], SP[a3, a4], 
     a5, n] - S2[a2, SP[a1, a6], SP[a4, a5], a3, n] - 
    S2[a1, a4, n]*S2[a5, a6, a2, a3, n] + S2[a5, a6, SP[a1, a2], SP[a3, a4], 
     n] + S2[a5, SP[a1, a6], a2, SP[a3, a4], n] + 
    S2[a5, SP[a1, a6], SP[a2, a4], a3, n] - S2[SP[a1, a2], a3, a5, 
     SP[a4, a6], n] - S2[SP[a1, a2], a3, a6, SP[a4, a5], n] - 
    S2[SP[a1, a2], a3, SP[a4, a5], a6, n] - S2[SP[a1, a2], a3, SP[a4, a6], 
     a5, n] - S2[SP[a1, a2], a6, a3, SP[a4, a5], n] - 
    S2[SP[a1, a2], a6, a5, SP[a3, a4], n] - S2[SP[a1, a2], a6, SP[a3, a4], 
     a5, n] - S2[SP[a1, a2], a6, SP[a4, a5], a3, n] - 
    S2[SP[a1, a2], SP[a3, a4], a5, a6, n] - S2[SP[a1, a2], SP[a3, a4], a6, 
     a5, n] - S2[SP[a1, a2], SP[a4, a6], a3, a5, n] - 
    S2[SP[a1, a2], SP[a4, a6], a5, a3, n] + S2[SP[a1, a5], a6, a2, 
     SP[a3, a4], n] + S2[SP[a1, a5], a6, SP[a2, a4], a3, n] + 
    S2[SP[a1, a5], SP[a4, a6], a2, a3, n] + S2[a1, a2, a3, a5, SP[a4, a6], 
     n] + S2[a1, a2, a3, a6, SP[a4, a5], n] + S2[a1, a2, a3, SP[a4, a5], a6, 
     n] + S2[a1, a2, a3, SP[a4, a6], a5, n] + S2[a1, a2, a6, a3, SP[a4, a5], 
     n] + S2[a1, a2, a6, a5, SP[a3, a4], n] + S2[a1, a2, a6, SP[a3, a4], a5, 
     n] + S2[a1, a2, a6, SP[a4, a5], a3, n] + S2[a1, a2, SP[a3, a4], a5, a6, 
     n] + S2[a1, a2, SP[a3, a4], a6, a5, n] + S2[a1, a2, SP[a4, a6], a3, a5, 
     n] + S2[a1, a2, SP[a4, a6], a5, a3, n] + 
    S2[a6, n]*S2[a1, a3, a2, a4, a5, n] + S2[a1, a3, a2, a4, SP[a5, a6], n] + 
    S2[a6, n]*S2[a1, a3, a2, a5, a4, n] + S2[a1, a3, a2, a5, SP[a4, a6], n] + 
    S2[a1, a3, a2, SP[a4, a6], a5, n] + S2[a1, a3, a2, SP[a5, a6], a4, n] + 
    S2[a6, n]*S2[a1, a3, a4, a2, a5, n] + S2[a1, a3, a4, a2, SP[a5, a6], n] + 
    S2[a6, n]*S2[a1, a3, a4, a5, a2, n] - 
    S2[a2, n]*S2[a1, a3, a4, a5, a6, n] - 
    S2[a2, n]*S2[a1, a3, a4, a6, a5, n] - S2[a1, a3, a4, a6, SP[a2, a5], n] - 
    S2[a1, a3, a4, SP[a2, a5], a6, n] + S2[a1, a3, a4, SP[a5, a6], a2, n] + 
    S2[a6, n]*S2[a1, a3, a5, a2, a4, n] + S2[a1, a3, a5, a2, SP[a4, a6], n] + 
    S2[a6, n]*S2[a1, a3, a5, a4, a2, n] - 
    S2[a2, n]*S2[a1, a3, a5, a4, a6, n] - 
    S2[a2, n]*S2[a1, a3, a5, a6, a4, n] - S2[a1, a3, a5, a6, SP[a2, a4], n] - 
    S2[a1, a3, a5, SP[a2, a4], a6, n] + S2[a1, a3, a5, SP[a4, a6], a2, n] - 
    S2[a2, n]*S2[a1, a3, a6, a4, a5, n] - S2[a1, a3, a6, a4, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a3, a6, a5, a4, n] - S2[a1, a3, a6, a5, SP[a2, a4], n] - 
    S2[a1, a3, a6, SP[a2, a4], a5, n] - S2[a1, a3, a6, SP[a2, a5], a4, n] - 
    S2[a1, a3, SP[a2, a4], a5, a6, n] - S2[a1, a3, SP[a2, a4], a6, a5, n] - 
    S2[a1, a3, SP[a2, a5], a4, a6, n] - S2[a1, a3, SP[a2, a5], a6, a4, n] + 
    S2[a1, a3, SP[a4, a6], a2, a5, n] + S2[a1, a3, SP[a4, a6], a5, a2, n] + 
    S2[a1, a3, SP[a5, a6], a2, a4, n] + S2[a1, a3, SP[a5, a6], a4, a2, n] + 
    S2[a6, n]*S2[a1, a4, a3, a2, a5, n] + S2[a1, a4, a3, a2, SP[a5, a6], n] + 
    S2[a6, n]*S2[a1, a4, a3, a5, a2, n] - 
    S2[a2, n]*S2[a1, a4, a3, a5, a6, n] - 
    S2[a2, n]*S2[a1, a4, a3, a6, a5, n] - S2[a1, a4, a3, a6, SP[a2, a5], n] - 
    S2[a1, a4, a3, SP[a2, a5], a6, n] + S2[a1, a4, a3, SP[a5, a6], a2, n] + 
    S2[a5, n]*S2[a1, a4, a6, a2, a3, n] + S2[a1, a4, a6, a2, SP[a3, a5], n] - 
    S2[a2, n]*S2[a1, a4, a6, a3, a5, n] - S2[a1, a4, a6, a3, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a4, a6, a5, a3, n] - S2[a1, a4, a6, a5, SP[a2, a3], n] - 
    S2[a1, a4, a6, SP[a2, a3], a5, n] - S2[a1, a4, SP[a2, a3], a5, a6, n] - 
    S2[a1, a4, SP[a2, a3], a6, a5, n] - S2[a1, a4, SP[a2, a6], a3, a5, n] - 
    S2[a1, a4, SP[a2, a6], a5, a3, n] + S2[a1, a4, SP[a3, a6], a2, a5, n] + 
    S2[a1, a4, SP[a3, a6], a5, a2, n] + S2[a1, a4, SP[a5, a6], a2, a3, n] - 
    S2[a1, a5, a6, a2, SP[a3, a4], n] - S2[a1, a5, a6, SP[a2, a4], a3, n] - 
    S2[a1, a5, SP[a4, a6], a2, a3, n] + S2[a5, n]*S2[a1, a6, a2, a3, a4, n] + 
    S2[a1, a6, a2, a3, SP[a4, a5], n] + S2[a5, n]*S2[a1, a6, a2, a4, a3, n] + 
    S2[a1, a6, a2, a4, SP[a3, a5], n] + S2[a1, a6, a2, SP[a3, a5], a4, n] + 
    S2[a1, a6, a2, SP[a4, a5], a3, n] - S2[a2, n]*S2[a1, a6, a3, a4, a5, n] - 
    S2[a1, a6, a3, a4, SP[a2, a5], n] - S2[a2, n]*S2[a1, a6, a3, a5, a4, n] - 
    S2[a1, a6, a3, a5, SP[a2, a4], n] - S2[a1, a6, a3, SP[a2, a4], a5, n] - 
    S2[a1, a6, a3, SP[a2, a5], a4, n] + S2[a5, n]*S2[a1, a6, a4, a2, a3, n] + 
    S2[a1, a6, a4, a2, SP[a3, a5], n] - S2[a2, n]*S2[a1, a6, a4, a3, a5, n] - 
    S2[a1, a6, a4, a3, SP[a2, a5], n] - S2[a2, n]*S2[a1, a6, a4, a5, a3, n] - 
    S2[a1, a6, a4, a5, SP[a2, a3], n] - S2[a1, a6, a4, SP[a2, a3], a5, n] + 
    S2[a4, n]*S2[a1, a6, a5, a3, a2, n] - 
    S2[a2, n]*S2[a1, a6, a5, a3, a4, n] - 
    S2[a2, n]*S2[a1, a6, a5, a4, a3, n] - S2[a1, a6, a5, a4, SP[a2, a3], n] - 
    S2[a1, a6, a5, SP[a2, a3], a4, n] - S2[a1, a6, a5, SP[a2, a4], a3, n] + 
    S2[a1, a6, a5, SP[a3, a4], a2, n] - S2[a1, a6, SP[a2, a3], a4, a5, n] - 
    S2[a1, a6, SP[a2, a3], a5, a4, n] - S2[a1, a6, SP[a2, a4], a3, a5, n] - 
    S2[a1, a6, SP[a2, a4], a5, a3, n] + S2[a1, a6, SP[a4, a5], a2, a3, n] + 
    S2[a1, a6, SP[a4, a5], a3, a2, n] - S2[a1, SP[a2, a3], a4, a5, a6, n] - 
    S2[a1, SP[a2, a3], a4, a6, a5, n] - S2[a1, SP[a2, a3], a5, a4, a6, n] - 
    S2[a1, SP[a2, a3], a5, a6, a4, n] - S2[a1, SP[a2, a3], a6, a4, a5, n] - 
    S2[a1, SP[a2, a3], a6, a5, a4, n] - S2[a1, SP[a2, a6], a3, a4, a5, n] - 
    S2[a1, SP[a2, a6], a3, a5, a4, n] - S2[a1, SP[a2, a6], a4, a3, a5, n] - 
    S2[a1, SP[a2, a6], a4, a5, a3, n] - S2[a1, SP[a2, a6], a5, a3, a4, n] - 
    S2[a1, SP[a2, a6], a5, a4, a3, n] + S2[a1, SP[a3, a6], a2, a4, a5, n] + 
    S2[a1, SP[a3, a6], a2, a5, a4, n] + S2[a1, SP[a3, a6], a4, a2, a5, n] + 
    S2[a1, SP[a3, a6], a4, a5, a2, n] + S2[a1, SP[a3, a6], a5, a2, a4, n] + 
    S2[a1, SP[a3, a6], a5, a4, a2, n] + S2[a1, SP[a4, a6], a3, a2, a5, n] + 
    S2[a1, SP[a4, a6], a3, a5, a2, n] + S2[a1, SP[a4, a6], a5, a3, a2, n] + 
    S2[a1, SP[a5, a6], a2, a3, a4, n] + S2[a1, SP[a5, a6], a2, a4, a3, n] + 
    S2[a1, SP[a5, a6], a4, a2, a3, n] + S2[a2, a1, a3, a5, SP[a4, a6], n] + 
    S2[a2, a1, a3, a6, SP[a4, a5], n] + S2[a2, a1, a3, SP[a4, a5], a6, n] + 
    S2[a2, a1, a3, SP[a4, a6], a5, n] + S2[a2, a1, a6, a3, SP[a4, a5], n] + 
    S2[a2, a1, a6, a5, SP[a3, a4], n] + S2[a2, a1, a6, SP[a3, a4], a5, n] + 
    S2[a2, a1, a6, SP[a4, a5], a3, n] + S2[a2, a1, SP[a3, a4], a5, a6, n] + 
    S2[a2, a1, SP[a3, a4], a6, a5, n] + S2[a2, a1, SP[a4, a6], a3, a5, n] + 
    S2[a2, a1, SP[a4, a6], a5, a3, n] - S2[a6, n]*S2[a2, a3, a1, a4, a5, n] - 
    S2[a2, a3, a1, a4, SP[a5, a6], n] - S2[a6, n]*S2[a2, a3, a1, a5, a4, n] + 
    S2[a2, a3, a1, a6, SP[a4, a5], n] + S2[a2, a3, a1, SP[a4, a5], a6, n] - 
    S2[a2, a3, a1, SP[a5, a6], a4, n] - S2[a6, n]*S2[a2, a3, a5, a1, a4, n] + 
    S2[a2, a3, a6, a1, SP[a4, a5], n] + S2[a2, a3, a6, SP[a1, a5], a4, n] + 
    S2[a2, a3, SP[a1, a5], a4, a6, n] + S2[a2, a3, SP[a1, a5], a6, a4, n] - 
    S2[a2, a3, SP[a5, a6], a1, a4, n] - S2[a5, n]*S2[a2, a6, a1, a3, a4, n] - 
    S2[a5, n]*S2[a2, a6, a1, a4, a3, n] - S2[a2, a6, a1, a4, SP[a3, a5], n] + 
    S2[a2, a6, a1, a5, SP[a3, a4], n] + S2[a2, a6, a1, SP[a3, a4], a5, n] - 
    S2[a2, a6, a1, SP[a3, a5], a4, n] + S2[a2, a6, a3, a1, SP[a4, a5], n] + 
    S2[a2, a6, a3, SP[a1, a5], a4, n] + S2[a2, a6, a5, a1, SP[a3, a4], n] + 
    S2[a2, a6, a5, SP[a1, a3], a4, n] + S2[a2, a6, SP[a1, a3], a4, a5, n] + 
    S2[a2, a6, SP[a1, a3], a5, a4, n] + S2[a2, SP[a1, a3], a4, a5, a6, n] + 
    S2[a2, SP[a1, a3], a4, a6, a5, n] + S2[a2, SP[a1, a3], a5, a4, a6, n] + 
    S2[a2, SP[a1, a3], a5, a6, a4, n] + S2[a2, SP[a1, a3], a6, a4, a5, n] + 
    S2[a2, SP[a1, a3], a6, a5, a4, n] + S2[a2, SP[a1, a6], a3, a4, a5, n] + 
    S2[a2, SP[a1, a6], a3, a5, a4, n] + S2[a2, SP[a1, a6], a4, a3, a5, n] + 
    S2[a2, SP[a1, a6], a4, a5, a3, n] + S2[a2, SP[a1, a6], a5, a3, a4, n] + 
    S2[a2, SP[a1, a6], a5, a4, a3, n] - S2[a2, SP[a3, a6], a1, a4, a5, n] - 
    S2[a2, SP[a3, a6], a1, a5, a4, n] - S2[a2, SP[a3, a6], a5, a1, a4, n] - 
    S2[a2, SP[a5, a6], a1, a3, a4, n] - S2[a2, SP[a5, a6], a1, a4, a3, n] - 
    S2[a5, a1, a6, a2, SP[a3, a4], n] - S2[a5, a1, a6, SP[a2, a4], a3, n] - 
    S2[a5, a1, SP[a4, a6], a2, a3, n] - S2[a5, a6, a1, a2, SP[a3, a4], n] + 
    S2[a2, n]*S2[a5, a6, a1, a3, a4, n] + S2[a5, a6, a1, a3, SP[a2, a4], n] + 
    S2[a2, n]*S2[a5, a6, a1, a4, a3, n] + S2[a5, a6, a1, a4, SP[a2, a3], n] + 
    S2[a5, a6, a1, SP[a2, a3], a4, n] - S2[a5, a6, a2, a1, SP[a3, a4], n] - 
    S2[a5, a6, a2, SP[a1, a3], a4, n] - S2[a5, SP[a1, a6], a2, a3, a4, n] - 
    S2[a5, SP[a1, a6], a2, a4, a3, n] - S2[a5, SP[a1, a6], a4, a2, a3, n] + 
    S2[a5, SP[a2, a6], a1, a3, a4, n] + S2[a5, SP[a2, a6], a1, a4, a3, n] - 
    S2[a5, n]*S2[a6, a1, a3, a2, a4, n] - S2[a6, a1, a3, a2, SP[a4, a5], n] - 
    S2[a5, n]*S2[a6, a1, a3, a4, a2, n] - S2[a6, a1, a3, a4, SP[a2, a5], n] - 
    S2[a6, a1, a3, SP[a2, a5], a4, n] - S2[a6, a1, a3, SP[a4, a5], a2, n] - 
    S2[a5, n]*S2[a6, a1, a4, a3, a2, n] - S2[a6, a1, a4, a3, SP[a2, a5], n] - 
    S2[a6, a1, a4, SP[a3, a5], a2, n] - S2[a6, a1, SP[a3, a5], a2, a4, n] - 
    S2[a6, a1, SP[a3, a5], a4, a2, n] - S2[a6, a1, SP[a4, a5], a3, a2, n] + 
    S2[a5, n]*S2[a6, a2, a3, a1, a4, n] + S2[a6, a2, a3, a1, SP[a4, a5], n] + 
    S2[a6, a2, a3, SP[a1, a5], a4, n] + S2[a6, a2, SP[a3, a5], a1, a4, n] - 
    S2[a2, n]*S2[a6, a5, a3, a1, a4, n] - S2[a6, a5, a3, a1, SP[a2, a4], n] - 
    S2[a6, a5, a3, SP[a1, a2], a4, n] - S2[a6, a5, SP[a2, a3], a1, a4, n] - 
    S2[a6, SP[a1, a5], a3, a2, a4, n] - S2[a6, SP[a1, a5], a3, a4, a2, n] - 
    S2[a6, SP[a1, a5], a4, a3, a2, n] + S2[SP[a1, a4], a6, a5, a3, a2, n] + 
    S2[SP[a1, a6], a3, a2, a4, a5, n] + S2[SP[a1, a6], a3, a2, a5, a4, n] + 
    S2[SP[a1, a6], a3, a4, a2, a5, n] + S2[SP[a1, a6], a3, a4, a5, a2, n] + 
    S2[SP[a1, a6], a3, a5, a2, a4, n] + S2[SP[a1, a6], a3, a5, a4, a2, n] + 
    S2[SP[a1, a6], a4, a3, a2, a5, n] + S2[SP[a1, a6], a4, a3, a5, a2, n] - 
    S2[SP[a2, a6], a3, a1, a4, a5, n] - S2[SP[a2, a6], a3, a1, a5, a4, n] - 
    S2[SP[a2, a6], a3, a5, a1, a4, n] - S2[SP[a2, a6], a5, a3, a1, a4, n] - 
    S2[SP[a5, a6], a1, a3, a2, a4, n] - S2[SP[a5, a6], a1, a3, a4, a2, n] - 
    S2[SP[a5, a6], a1, a4, a3, a2, n] + S2[SP[a5, a6], a2, a3, a1, a4, n] + 
    S2[a6, a1, a4, a5, a3, a2, n] + S2[a6, a1, a5, a3, a2, a4, n] + 
    S2[a6, a1, a5, a3, a4, a2, n] + S2[a6, a1, a5, a4, a3, a2, n] + 
    S2[a6, a5, a1, a3, a2, a4, n] + S2[a6, a5, a1, a3, a4, a2, n] + 
    S2[a6, a5, a1, a4, a3, a2, n] + S2[a6, a5, a3, a1, a2, a4, n] + 
    S2[a6, a5, a3, a1, a4, a2, n] + S2[a6, a5, a3, a2, a1, a4, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a4_, a2_, a1_, a3_, a5_, a6_, n_] :> 
  S2[a1, a2, a4, n]*S2[a3, a5, a6, n] + S2[SP[a1, a3], SP[a2, a5], 
     SP[a4, a6], n] + S2[a5, a6, n]*S2[a1, a2, a3, a4, n] + 
    S2[a5, a6, n]*S2[a1, a2, a4, a3, n] - S2[a1, a2, SP[a3, a5], SP[a4, a6], 
     n] - S2[a1, a2, SP[a4, a5], SP[a3, a6], n] + 
    S2[a5, a6, n]*S2[a1, a3, a2, a4, n] - S2[a2, a4, n]*
     S2[a1, a3, a5, a6, n] - S2[a1, a3, SP[a2, a5], SP[a4, a6], n] - 
    S2[a1, SP[a2, a5], a3, SP[a4, a6], n] - S2[a1, SP[a2, a5], a4, 
     SP[a3, a6], n] - S2[a1, SP[a2, a5], SP[a3, a6], a4, n] - 
    S2[a1, SP[a2, a5], SP[a4, a6], a3, n] - S2[a1, SP[a3, a5], a2, 
     SP[a4, a6], n] - S2[a1, SP[a3, a5], SP[a2, a6], a4, n] - 
    S2[a3, a1, SP[a2, a5], SP[a4, a6], n] - S2[a3, SP[a1, a5], a2, 
     SP[a4, a6], n] - S2[a3, SP[a1, a5], SP[a2, a6], a4, n] + 
    S2[SP[a1, a2], a3, a5, SP[a4, a6], n] + S2[SP[a1, a2], a3, SP[a4, a5], 
     a6, n] + S2[SP[a1, a2], SP[a3, a4], a5, a6, n] - 
    S2[SP[a1, a3], a2, a5, SP[a4, a6], n] - S2[SP[a1, a3], a2, SP[a4, a5], 
     a6, n] - S2[SP[a1, a3], a5, a2, SP[a4, a6], n] - 
    S2[SP[a1, a3], a5, SP[a2, a6], a4, n] - S2[SP[a1, a3], SP[a2, a5], a4, 
     a6, n] - S2[SP[a1, a3], SP[a2, a5], a6, a4, n] - 
    S2[SP[a1, a5], a2, a3, SP[a4, a6], n] - S2[SP[a1, a5], a2, a4, 
     SP[a3, a6], n] - S2[SP[a1, a5], a2, SP[a3, a6], a4, n] - 
    S2[SP[a1, a5], a2, SP[a4, a6], a3, n] - S2[SP[a1, a5], a3, a2, 
     SP[a4, a6], n] - S2[SP[a1, a5], a3, SP[a2, a6], a4, n] - 
    S2[SP[a1, a5], SP[a2, a6], a3, a4, n] - S2[SP[a1, a5], SP[a2, a6], a4, 
     a3, n] - S2[SP[a1, a5], SP[a3, a6], a2, a4, n] + 
    S2[a6, n]*S2[a1, a2, a3, a4, a5, n] - 
    S2[a5, n]*S2[a1, a2, a3, a4, a6, n] + 
    S2[a6, n]*S2[a1, a2, a3, a5, a4, n] - 
    S2[a4, n]*S2[a1, a2, a3, a5, a6, n] + S2[a1, a2, a3, a5, SP[a4, a6], n] - 
    S2[a5, n]*S2[a1, a2, a3, a6, a4, n] - S2[a1, a2, a3, a6, SP[a4, a5], n] - 
    S2[a1, a2, a3, SP[a4, a5], a6, n] + S2[a1, a2, a3, SP[a4, a6], a5, n] + 
    S2[a6, n]*S2[a1, a2, a4, a3, a5, n] - 
    S2[a5, n]*S2[a1, a2, a4, a3, a6, n] + 
    S2[a6, n]*S2[a1, a2, a4, a5, a3, n] - 
    S2[a3, n]*S2[a1, a2, a4, a5, a6, n] + S2[a1, a2, a4, a5, SP[a3, a6], n] - 
    S2[a5, n]*S2[a1, a2, a4, a6, a3, n] - S2[a1, a2, a4, a6, SP[a3, a5], n] - 
    S2[a1, a2, a4, SP[a3, a5], a6, n] + S2[a1, a2, a4, SP[a3, a6], a5, n] + 
    S2[a6, n]*S2[a1, a2, a5, a3, a4, n] + 
    2*S2[a1, a2, a5, a3, SP[a4, a6], n] + 
    S2[a6, n]*S2[a1, a2, a5, a4, a3, n] - 
    S2[a3, n]*S2[a1, a2, a5, a4, a6, n] + S2[a1, a2, a5, a4, SP[a3, a6], n] - 
    S2[a3, n]*S2[a1, a2, a5, a6, a4, n] - S2[a1, a2, a5, a6, SP[a3, a4], n] - 
    S2[a1, a2, a5, SP[a3, a4], a6, n] + S2[a1, a2, a5, SP[a3, a6], a4, n] + 
    2*S2[a1, a2, a5, SP[a4, a6], a3, n] - 
    S2[a5, n]*S2[a1, a2, a6, a3, a4, n] - S2[a1, a2, a6, a3, SP[a4, a5], n] - 
    S2[a5, n]*S2[a1, a2, a6, a4, a3, n] - S2[a1, a2, a6, a4, SP[a3, a5], n] - 
    S2[a1, a2, a6, SP[a3, a5], a4, n] - S2[a1, a2, a6, SP[a4, a5], a3, n] - 
    2*S2[a1, a2, SP[a3, a4], a5, a6, n] - S2[a1, a2, SP[a3, a5], a4, a6, n] - 
    S2[a1, a2, SP[a3, a5], a6, a4, n] + S2[a1, a2, SP[a3, a6], a4, a5, n] + 
    S2[a1, a2, SP[a3, a6], a5, a4, n] + S2[a1, a2, SP[a4, a6], a3, a5, n] + 
    S2[a1, a2, SP[a4, a6], a5, a3, n] + S2[a6, n]*S2[a1, a3, a2, a4, a5, n] - 
    S2[a5, n]*S2[a1, a3, a2, a4, a6, n] + 
    S2[a6, n]*S2[a1, a3, a2, a5, a4, n] - 
    S2[a4, n]*S2[a1, a3, a2, a5, a6, n] + S2[a1, a3, a2, a5, SP[a4, a6], n] - 
    S2[a5, n]*S2[a1, a3, a2, a6, a4, n] - S2[a1, a3, a2, a6, SP[a4, a5], n] - 
    S2[a1, a3, a2, SP[a4, a5], a6, n] + S2[a1, a3, a2, SP[a4, a6], a5, n] + 
    S2[a2, n]*S2[a1, a3, a4, a5, a6, n] + S2[a1, a3, a4, a5, SP[a2, a6], n] + 
    S2[a1, a3, a4, SP[a2, a5], a6, n] + S2[a6, n]*S2[a1, a3, a5, a2, a4, n] - 
    S2[a4, n]*S2[a1, a3, a5, a2, a6, n] + S2[a1, a3, a5, a2, SP[a4, a6], n] + 
    S2[a2, n]*S2[a1, a3, a5, a4, a6, n] + S2[a1, a3, a5, a4, SP[a2, a6], n] - 
    S2[a4, n]*S2[a1, a3, a5, a6, a2, n] + 
    S2[a2, n]*S2[a1, a3, a5, a6, a4, n] + 
    3*S2[a1, a3, a5, SP[a2, a6], a4, n] - S2[a1, a3, a5, SP[a4, a6], a2, n] - 
    S2[a5, n]*S2[a1, a3, a6, a2, a4, n] - S2[a1, a3, a6, a2, SP[a4, a5], n] - 
    S2[a1, a3, a6, SP[a2, a5], a4, n] + S2[a1, a3, SP[a2, a5], a4, a6, n] + 
    S2[a1, a3, SP[a2, a5], a6, a4, n] + S2[a1, a3, SP[a2, a6], a4, a5, n] + 
    S2[a1, a3, SP[a2, a6], a5, a4, n] - S2[a1, a3, SP[a4, a5], a2, a6, n] - 
    S2[a1, a3, SP[a4, a5], a6, a2, n] + S2[a2, n]*S2[a1, a4, a3, a5, a6, n] + 
    S2[a1, a4, a3, a5, SP[a2, a6], n] + S2[a1, a4, a3, SP[a2, a5], a6, n] + 
    S2[a1, a4, SP[a2, a3], a5, a6, n] + S2[a6, n]*S2[a1, a5, a2, a3, a4, n] + 
    2*S2[a1, a5, a2, a3, SP[a4, a6], n] + 
    S2[a6, n]*S2[a1, a5, a2, a4, a3, n] - 
    S2[a3, n]*S2[a1, a5, a2, a4, a6, n] + S2[a1, a5, a2, a4, SP[a3, a6], n] - 
    S2[a3, n]*S2[a1, a5, a2, a6, a4, n] - S2[a1, a5, a2, a6, SP[a3, a4], n] - 
    S2[a1, a5, a2, SP[a3, a4], a6, n] + S2[a1, a5, a2, SP[a3, a6], a4, n] + 
    2*S2[a1, a5, a2, SP[a4, a6], a3, n] + 
    S2[a6, n]*S2[a1, a5, a3, a2, a4, n] + 
    2*S2[a1, a5, a3, a2, SP[a4, a6], n] + 
    2*S2[a1, a5, a3, SP[a2, a6], a4, n] - 
    S2[a3, n]*S2[a1, a5, a6, a2, a4, n] - S2[a1, a5, a6, a2, SP[a3, a4], n] - 
    S2[a1, a5, a6, SP[a2, a3], a4, n] - S2[a1, a5, SP[a2, a3], a4, a6, n] - 
    S2[a1, a5, SP[a2, a3], a6, a4, n] + 2*S2[a1, a5, SP[a2, a6], a3, a4, n] + 
    2*S2[a1, a5, SP[a2, a6], a4, a3, n] + S2[a1, a5, SP[a3, a6], a2, a4, n] - 
    S2[a5, n]*S2[a1, a6, a2, a3, a4, n] - S2[a1, a6, a2, a3, SP[a4, a5], n] - 
    S2[a5, n]*S2[a1, a6, a2, a4, a3, n] - S2[a1, a6, a2, a4, SP[a3, a5], n] - 
    S2[a1, a6, a2, SP[a3, a5], a4, n] - S2[a1, a6, a2, SP[a4, a5], a3, n] - 
    S2[a5, n]*S2[a1, a6, a3, a2, a4, n] - S2[a1, a6, a3, a2, SP[a4, a5], n] - 
    S2[a1, a6, a3, SP[a2, a5], a4, n] - S2[a1, a6, SP[a2, a5], a3, a4, n] - 
    S2[a1, a6, SP[a2, a5], a4, a3, n] - S2[a1, a6, SP[a3, a5], a2, a4, n] + 
    S2[a1, SP[a2, a6], a3, a4, a5, n] + S2[a1, SP[a2, a6], a3, a5, a4, n] + 
    S2[a1, SP[a2, a6], a4, a3, a5, n] + S2[a1, SP[a2, a6], a4, a5, a3, n] + 
    S2[a1, SP[a2, a6], a5, a3, a4, n] + S2[a1, SP[a2, a6], a5, a4, a3, n] - 
    S2[a1, SP[a3, a4], a2, a5, a6, n] - S2[a1, SP[a3, a4], a5, a2, a6, n] - 
    S2[a1, SP[a3, a4], a5, a6, a2, n] - S2[a1, SP[a3, a5], a2, a4, a6, n] - 
    S2[a1, SP[a3, a5], a2, a6, a4, n] - S2[a1, SP[a3, a5], a6, a2, a4, n] + 
    S2[a1, SP[a3, a6], a2, a4, a5, n] + S2[a1, SP[a3, a6], a2, a5, a4, n] + 
    S2[a1, SP[a3, a6], a5, a2, a4, n] - S2[a2, a1, a3, a5, SP[a4, a6], n] - 
    S2[a2, a1, a3, SP[a4, a5], a6, n] - S2[a2, a1, SP[a3, a4], a5, a6, n] - 
    S2[a2, SP[a1, a4], a3, a5, a6, n] + S2[a3, a1, a2, a5, SP[a4, a6], n] + 
    S2[a3, a1, a2, SP[a4, a5], a6, n] + S2[a3, a1, a5, a2, SP[a4, a6], n] + 
    S2[a3, a1, a5, SP[a2, a6], a4, n] + S2[a3, a1, SP[a2, a5], a4, a6, n] + 
    S2[a3, a1, SP[a2, a5], a6, a4, n] - S2[a6, n]*S2[a3, a5, a1, a2, a4, n] + 
    S2[a3, SP[a1, a5], a2, a4, a6, n] + S2[a3, SP[a1, a5], a2, a6, a4, n] + 
    S2[a3, SP[a1, a5], a6, a2, a4, n] - S2[a3, SP[a5, a6], a1, a2, a4, n] + 
    S2[a2, n]*S2[a4, a1, a3, a5, a6, n] + S2[a4, a1, a3, a5, SP[a2, a6], n] + 
    S2[a4, a1, a3, SP[a2, a5], a6, n] + S2[a4, a1, SP[a2, a3], a5, a6, n] + 
    S2[a4, SP[a1, a2], a3, a5, a6, n] + S2[a5, a1, a2, a3, SP[a4, a6], n] + 
    S2[a5, a1, a2, a4, SP[a3, a6], n] + S2[a5, a1, a2, SP[a3, a6], a4, n] + 
    S2[a5, a1, a2, SP[a4, a6], a3, n] + S2[a5, a1, a3, a2, SP[a4, a6], n] + 
    S2[a5, a1, a3, SP[a2, a6], a4, n] + S2[a5, a1, SP[a2, a6], a3, a4, n] + 
    S2[a5, a1, SP[a2, a6], a4, a3, n] + S2[a5, a1, SP[a3, a6], a2, a4, n] + 
    S2[a5, SP[a1, a6], a2, a3, a4, n] + S2[a5, SP[a1, a6], a2, a4, a3, n] + 
    S2[a5, SP[a1, a6], a3, a2, a4, n] - S2[a5, n]*S2[a6, a1, a2, a3, a4, n] - 
    S2[a6, a1, a2, a3, SP[a4, a5], n] - S2[a5, n]*S2[a6, a1, a2, a4, a3, n] - 
    S2[a6, a1, a2, a4, SP[a3, a5], n] - S2[a6, a1, a2, SP[a3, a5], a4, n] - 
    S2[a6, a1, a2, SP[a4, a5], a3, n] - S2[a5, n]*S2[a6, a1, a3, a2, a4, n] - 
    S2[a6, a1, a3, a2, SP[a4, a5], n] - S2[a6, a1, a3, SP[a2, a5], a4, n] - 
    S2[a6, a1, SP[a2, a5], a3, a4, n] - S2[a6, a1, SP[a2, a5], a4, a3, n] - 
    S2[a6, a1, SP[a3, a5], a2, a4, n] + S2[a3, n]*S2[a6, a5, a1, a2, a4, n] + 
    S2[a6, a5, a1, a2, SP[a3, a4], n] + S2[a6, a5, a1, SP[a2, a3], a4, n] + 
    S2[a6, a5, SP[a1, a3], a2, a4, n] - S2[a6, SP[a1, a5], a2, a3, a4, n] - 
    S2[a6, SP[a1, a5], a2, a4, a3, n] - S2[a6, SP[a1, a5], a3, a2, a4, n] + 
    S2[a6, SP[a3, a5], a1, a2, a4, n] - S2[SP[a1, a4], a2, a3, a5, a6, n] - 
    S2[SP[a1, a4], a3, a2, a5, a6, n] - S2[SP[a1, a4], a3, a5, a2, a6, n] - 
    S2[SP[a1, a4], a3, a5, a6, a2, n] + S2[SP[a1, a6], a2, a3, a4, a5, n] + 
    S2[SP[a1, a6], a2, a3, a5, a4, n] + S2[SP[a1, a6], a2, a4, a3, a5, n] + 
    S2[SP[a1, a6], a2, a4, a5, a3, n] + S2[SP[a1, a6], a2, a5, a3, a4, n] + 
    S2[SP[a1, a6], a2, a5, a4, a3, n] + S2[SP[a1, a6], a3, a2, a4, a5, n] + 
    S2[SP[a1, a6], a3, a2, a5, a4, n] + S2[SP[a1, a6], a3, a5, a2, a4, n] + 
    S2[SP[a1, a6], a5, a2, a3, a4, n] + S2[SP[a1, a6], a5, a2, a4, a3, n] + 
    S2[SP[a1, a6], a5, a3, a2, a4, n] + S2[SP[a2, a4], a1, a3, a5, a6, n] - 
    S2[SP[a5, a6], a1, a2, a3, a4, n] - S2[SP[a5, a6], a1, a2, a4, a3, n] - 
    S2[SP[a5, a6], a1, a3, a2, a4, n] - S2[a6, a5, a3, a1, a2, a4, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a4_, a2_, a1_, a3_, a6_, a5_, n_] :> 
  S2[a1, a2, a4, n]*S2[a3, a6, a5, n] + S2[SP[a1, a3], SP[a2, a6], 
     SP[a4, a5], n] - S2[a5, a6, n]*S2[a1, a2, a3, a4, n] - 
    S2[a5, a6, n]*S2[a1, a2, a4, a3, n] + S2[a1, a2, SP[a3, a5], SP[a4, a6], 
     n] + S2[a1, a2, SP[a4, a5], SP[a3, a6], n] - 
    S2[a5, a6, n]*S2[a1, a3, a2, a4, n] - S2[a2, a4, n]*
     S2[a1, a3, a6, a5, n] + S2[a1, a3, SP[a2, a5], SP[a4, a6], n] + 
    S2[a1, SP[a2, a5], a3, SP[a4, a6], n] + S2[a1, SP[a2, a5], a4, 
     SP[a3, a6], n] + S2[a1, SP[a2, a5], SP[a3, a6], a4, n] + 
    S2[a1, SP[a2, a5], SP[a4, a6], a3, n] + S2[a1, SP[a3, a5], a2, 
     SP[a4, a6], n] + S2[a1, SP[a3, a5], SP[a2, a6], a4, n] - 
    S2[a3, a1, SP[a2, a6], SP[a4, a5], n] - S2[a3, SP[a1, a6], a2, 
     SP[a4, a5], n] - S2[a3, SP[a1, a6], SP[a2, a5], a4, n] + 
    S2[SP[a1, a2], a3, a6, SP[a4, a5], n] + S2[SP[a1, a2], a3, SP[a4, a6], 
     a5, n] + S2[SP[a1, a2], SP[a3, a4], a6, a5, n] - 
    S2[SP[a1, a3], a2, a6, SP[a4, a5], n] - S2[SP[a1, a3], a2, SP[a4, a6], 
     a5, n] - S2[SP[a1, a3], a6, a2, SP[a4, a5], n] - 
    S2[SP[a1, a3], a6, SP[a2, a5], a4, n] - S2[SP[a1, a3], SP[a2, a6], a4, 
     a5, n] - S2[SP[a1, a3], SP[a2, a6], a5, a4, n] + 
    S2[SP[a1, a5], a2, a3, SP[a4, a6], n] + S2[SP[a1, a5], a2, a4, 
     SP[a3, a6], n] + S2[SP[a1, a5], a2, SP[a3, a6], a4, n] + 
    S2[SP[a1, a5], a2, SP[a4, a6], a3, n] + S2[SP[a1, a5], a3, a2, 
     SP[a4, a6], n] + S2[SP[a1, a5], a3, SP[a2, a6], a4, n] + 
    S2[SP[a1, a5], SP[a2, a6], a3, a4, n] + S2[SP[a1, a5], SP[a2, a6], a4, 
     a3, n] + S2[SP[a1, a5], SP[a3, a6], a2, a4, n] + 
    S2[a5, n]*S2[a1, a2, a3, a4, a6, n] + S2[a1, a2, a3, a4, SP[a5, a6], n] - 
    S2[a1, a2, a3, a5, SP[a4, a6], n] + S2[a5, n]*S2[a1, a2, a3, a6, a4, n] - 
    S2[a4, n]*S2[a1, a2, a3, a6, a5, n] - S2[a1, a2, a3, SP[a4, a6], a5, n] + 
    S2[a1, a2, a3, SP[a5, a6], a4, n] + S2[a5, n]*S2[a1, a2, a4, a3, a6, n] + 
    S2[a1, a2, a4, a3, SP[a5, a6], n] - S2[a1, a2, a4, a5, SP[a3, a6], n] + 
    S2[a5, n]*S2[a1, a2, a4, a6, a3, n] - 
    S2[a3, n]*S2[a1, a2, a4, a6, a5, n] - S2[a1, a2, a4, SP[a3, a6], a5, n] + 
    S2[a1, a2, a4, SP[a5, a6], a3, n] - S2[a1, a2, a5, a3, SP[a4, a6], n] - 
    S2[a1, a2, a5, a4, SP[a3, a6], n] - S2[a1, a2, a5, SP[a3, a6], a4, n] - 
    S2[a1, a2, a5, SP[a4, a6], a3, n] + S2[a5, n]*S2[a1, a2, a6, a3, a4, n] + 
    S2[a1, a2, a6, a3, SP[a4, a5], n] + S2[a5, n]*S2[a1, a2, a6, a4, a3, n] - 
    S2[a3, n]*S2[a1, a2, a6, a4, a5, n] - 
    S2[a3, n]*S2[a1, a2, a6, a5, a4, n] - S2[a1, a2, a6, a5, SP[a3, a4], n] - 
    S2[a1, a2, a6, SP[a3, a4], a5, n] + S2[a1, a2, a6, SP[a4, a5], a3, n] - 
    2*S2[a1, a2, SP[a3, a4], a6, a5, n] - S2[a1, a2, SP[a3, a6], a4, a5, n] - 
    S2[a1, a2, SP[a3, a6], a5, a4, n] + S2[a1, a2, SP[a5, a6], a3, a4, n] + 
    S2[a1, a2, SP[a5, a6], a4, a3, n] + S2[a5, n]*S2[a1, a3, a2, a4, a6, n] + 
    S2[a1, a3, a2, a4, SP[a5, a6], n] - S2[a1, a3, a2, a5, SP[a4, a6], n] + 
    S2[a5, n]*S2[a1, a3, a2, a6, a4, n] - 
    S2[a4, n]*S2[a1, a3, a2, a6, a5, n] - S2[a1, a3, a2, SP[a4, a6], a5, n] + 
    S2[a1, a3, a2, SP[a5, a6], a4, n] + S2[a2, n]*S2[a1, a3, a4, a6, a5, n] + 
    S2[a1, a3, a4, a6, SP[a2, a5], n] + S2[a1, a3, a4, SP[a2, a6], a5, n] - 
    S2[a1, a3, a5, a2, SP[a4, a6], n] - S2[a1, a3, a5, SP[a2, a6], a4, n] + 
    S2[a5, n]*S2[a1, a3, a6, a2, a4, n] - 
    S2[a4, n]*S2[a1, a3, a6, a2, a5, n] + 
    S2[a2, n]*S2[a1, a3, a6, a4, a5, n] + S2[a1, a3, a6, a4, SP[a2, a5], n] - 
    S2[a4, n]*S2[a1, a3, a6, a5, a2, n] + 
    S2[a2, n]*S2[a1, a3, a6, a5, a4, n] + 
    2*S2[a1, a3, a6, SP[a2, a5], a4, n] - S2[a1, a3, a6, SP[a4, a5], a2, n] + 
    S2[a1, a3, SP[a2, a6], a4, a5, n] + S2[a1, a3, SP[a2, a6], a5, a4, n] - 
    S2[a1, a3, SP[a4, a6], a2, a5, n] - S2[a1, a3, SP[a4, a6], a5, a2, n] + 
    S2[a1, a3, SP[a5, a6], a2, a4, n] + S2[a2, n]*S2[a1, a4, a3, a6, a5, n] + 
    S2[a1, a4, a3, a6, SP[a2, a5], n] + S2[a1, a4, a3, SP[a2, a6], a5, n] + 
    S2[a1, a4, SP[a2, a3], a6, a5, n] - S2[a1, a5, a2, a3, SP[a4, a6], n] - 
    S2[a1, a5, a2, a4, SP[a3, a6], n] - S2[a1, a5, a2, SP[a3, a6], a4, n] - 
    S2[a1, a5, a2, SP[a4, a6], a3, n] - S2[a1, a5, a3, a2, SP[a4, a6], n] - 
    S2[a1, a5, a3, SP[a2, a6], a4, n] - S2[a1, a5, SP[a2, a6], a3, a4, n] - 
    S2[a1, a5, SP[a2, a6], a4, a3, n] - S2[a1, a5, SP[a3, a6], a2, a4, n] + 
    S2[a5, n]*S2[a1, a6, a2, a3, a4, n] + S2[a1, a6, a2, a3, SP[a4, a5], n] + 
    S2[a5, n]*S2[a1, a6, a2, a4, a3, n] - 
    S2[a3, n]*S2[a1, a6, a2, a4, a5, n] - 
    S2[a3, n]*S2[a1, a6, a2, a5, a4, n] - S2[a1, a6, a2, a5, SP[a3, a4], n] - 
    S2[a1, a6, a2, SP[a3, a4], a5, n] + S2[a1, a6, a2, SP[a4, a5], a3, n] + 
    S2[a5, n]*S2[a1, a6, a3, a2, a4, n] + S2[a1, a6, a3, a2, SP[a4, a5], n] + 
    S2[a1, a6, a3, SP[a2, a5], a4, n] - S2[a3, n]*S2[a1, a6, a5, a2, a4, n] - 
    S2[a1, a6, a5, a2, SP[a3, a4], n] - S2[a1, a6, a5, SP[a2, a3], a4, n] - 
    S2[a1, a6, SP[a2, a3], a4, a5, n] - S2[a1, a6, SP[a2, a3], a5, a4, n] + 
    S2[a1, a6, SP[a2, a5], a3, a4, n] + S2[a1, a6, SP[a2, a5], a4, a3, n] - 
    S2[a1, SP[a3, a4], a2, a6, a5, n] - S2[a1, SP[a3, a4], a6, a2, a5, n] - 
    S2[a1, SP[a3, a4], a6, a5, a2, n] - S2[a1, SP[a3, a6], a2, a4, a5, n] - 
    S2[a1, SP[a3, a6], a2, a5, a4, n] - S2[a1, SP[a3, a6], a5, a2, a4, n] + 
    S2[a1, SP[a5, a6], a2, a3, a4, n] + S2[a1, SP[a5, a6], a2, a4, a3, n] + 
    S2[a1, SP[a5, a6], a3, a2, a4, n] - S2[a2, a1, a3, a6, SP[a4, a5], n] - 
    S2[a2, a1, a3, SP[a4, a6], a5, n] - S2[a2, a1, SP[a3, a4], a6, a5, n] - 
    S2[a2, SP[a1, a4], a3, a6, a5, n] + S2[a3, a1, a2, a6, SP[a4, a5], n] + 
    S2[a3, a1, a2, SP[a4, a6], a5, n] + S2[a3, a1, a6, a2, SP[a4, a5], n] + 
    S2[a3, a1, a6, SP[a2, a5], a4, n] + S2[a3, a1, SP[a2, a6], a4, a5, n] + 
    S2[a3, a1, SP[a2, a6], a5, a4, n] + S2[a3, a6, a1, a2, SP[a4, a5], n] + 
    S2[a3, a6, a1, SP[a2, a5], a4, n] + S2[a3, a6, SP[a1, a5], a2, a4, n] + 
    S2[a3, SP[a1, a6], a2, a4, a5, n] + S2[a3, SP[a1, a6], a2, a5, a4, n] + 
    S2[a3, SP[a1, a6], a5, a2, a4, n] + S2[a2, n]*S2[a4, a1, a3, a6, a5, n] + 
    S2[a4, a1, a3, a6, SP[a2, a5], n] + S2[a4, a1, a3, SP[a2, a6], a5, n] + 
    S2[a4, a1, SP[a2, a3], a6, a5, n] + S2[a4, SP[a1, a2], a3, a6, a5, n] - 
    S2[a5, a1, a2, a3, SP[a4, a6], n] - S2[a5, a1, a2, a4, SP[a3, a6], n] - 
    S2[a5, a1, a2, SP[a3, a6], a4, n] - S2[a5, a1, a2, SP[a4, a6], a3, n] - 
    S2[a5, a1, a3, a2, SP[a4, a6], n] - S2[a5, a1, a3, SP[a2, a6], a4, n] - 
    S2[a5, a1, SP[a2, a6], a3, a4, n] - S2[a5, a1, SP[a2, a6], a4, a3, n] - 
    S2[a5, a1, SP[a3, a6], a2, a4, n] - S2[a5, SP[a1, a6], a2, a3, a4, n] - 
    S2[a5, SP[a1, a6], a2, a4, a3, n] - S2[a5, SP[a1, a6], a3, a2, a4, n] + 
    S2[a5, n]*S2[a6, a1, a2, a3, a4, n] + S2[a6, a1, a2, a3, SP[a4, a5], n] + 
    S2[a5, n]*S2[a6, a1, a2, a4, a3, n] - 
    S2[a3, n]*S2[a6, a1, a2, a4, a5, n] - 
    S2[a3, n]*S2[a6, a1, a2, a5, a4, n] - S2[a6, a1, a2, a5, SP[a3, a4], n] - 
    S2[a6, a1, a2, SP[a3, a4], a5, n] + S2[a6, a1, a2, SP[a4, a5], a3, n] + 
    S2[a5, n]*S2[a6, a1, a3, a2, a4, n] + S2[a6, a1, a3, a2, SP[a4, a5], n] + 
    S2[a6, a1, a3, SP[a2, a5], a4, n] - S2[a3, n]*S2[a6, a1, a5, a2, a4, n] - 
    S2[a6, a1, a5, a2, SP[a3, a4], n] - S2[a6, a1, a5, SP[a2, a3], a4, n] - 
    S2[a6, a1, SP[a2, a3], a4, a5, n] - S2[a6, a1, SP[a2, a3], a5, a4, n] + 
    S2[a6, a1, SP[a2, a5], a3, a4, n] + S2[a6, a1, SP[a2, a5], a4, a3, n] - 
    S2[a3, n]*S2[a6, a5, a1, a2, a4, n] - S2[a6, a5, a1, a2, SP[a3, a4], n] - 
    S2[a6, a5, a1, SP[a2, a3], a4, n] - S2[a6, a5, SP[a1, a3], a2, a4, n] - 
    S2[a6, SP[a1, a3], a2, a4, a5, n] - S2[a6, SP[a1, a3], a2, a5, a4, n] - 
    S2[a6, SP[a1, a3], a5, a2, a4, n] + S2[a6, SP[a1, a5], a2, a3, a4, n] + 
    S2[a6, SP[a1, a5], a2, a4, a3, n] + S2[a6, SP[a1, a5], a3, a2, a4, n] - 
    S2[a6, SP[a3, a5], a1, a2, a4, n] - S2[SP[a1, a4], a2, a3, a6, a5, n] - 
    S2[SP[a1, a4], a3, a2, a6, a5, n] - S2[SP[a1, a4], a3, a6, a2, a5, n] - 
    S2[SP[a1, a4], a3, a6, a5, a2, n] + S2[SP[a2, a4], a1, a3, a6, a5, n] - 
    S2[SP[a3, a6], a1, a2, a4, a5, n] - S2[SP[a3, a6], a1, a2, a5, a4, n] - 
    S2[SP[a3, a6], a1, a5, a2, a4, n] - S2[SP[a3, a6], a5, a1, a2, a4, n] + 
    S2[SP[a5, a6], a1, a2, a3, a4, n] + S2[SP[a5, a6], a1, a2, a4, a3, n] + 
    S2[SP[a5, a6], a1, a3, a2, a4, n] + S2[a6, a3, a1, a2, a4, a5, n] + 
    S2[a6, a3, a1, a2, a5, a4, n] + S2[a6, a3, a1, a5, a2, a4, n] + 
    S2[a6, a3, a5, a1, a2, a4, n] + S2[a6, a5, a3, a1, a2, a4, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a4_, a2_, a1_, a5_, a3_, a6_, n_] :> 
  -(S2[a1, a2, a4, n]*S2[a3, a5, a6, n]) - S2[a1, a2, a4, n]*
     S2[a3, a6, a5, n] - S2[SP[a1, a3], SP[a2, a5], SP[a4, a6], n] - 
    S2[SP[a1, a3], SP[a2, a6], SP[a4, a5], n] + 
    S2[a3, a6, n]*S2[a1, a2, a4, a5, n] + S2[a3, a6, n]*
     S2[a1, a2, a5, a4, n] - S2[a1, a2, SP[a3, a4], SP[a5, a6], n] - 
    S2[a1, a2, SP[a3, a5], SP[a4, a6], n] + S2[a1, a3, SP[a2, a5], 
     SP[a4, a6], n] + S2[a1, a3, SP[a2, a6], SP[a4, a5], n] + 
    S2[a3, a6, n]*S2[a1, a5, a2, a4, n] - S2[a2, a4, n]*
     S2[a1, a5, a3, a6, n] - S2[a1, SP[a2, a3], a4, SP[a5, a6], n] + 
    S2[a1, SP[a2, a3], a6, SP[a4, a5], n] + S2[a1, SP[a2, a3], SP[a4, a5], 
     a6, n] - S2[a1, SP[a2, a3], SP[a5, a6], a4, n] + 
    S2[a1, SP[a2, a5], a3, SP[a4, a6], n] + S2[a1, SP[a2, a5], SP[a3, a4], 
     a6, n] - S2[a1, SP[a3, a5], a2, SP[a4, a6], n] - 
    S2[a1, SP[a3, a5], SP[a2, a6], a4, n] + S2[a3, a1, SP[a2, a5], 
     SP[a4, a6], n] + S2[a3, a1, SP[a2, a6], SP[a4, a5], n] + 
    S2[a3, SP[a1, a5], a2, SP[a4, a6], n] + S2[a3, SP[a1, a5], SP[a2, a6], 
     a4, n] + S2[a3, SP[a1, a6], a2, SP[a4, a5], n] + 
    S2[a3, SP[a1, a6], SP[a2, a5], a4, n] + S2[SP[a1, a2], a5, a3, 
     SP[a4, a6], n] + S2[SP[a1, a2], a5, SP[a3, a4], a6, n] + 
    S2[SP[a1, a2], SP[a4, a5], a3, a6, n] - S2[SP[a1, a3], a2, a4, 
     SP[a5, a6], n] + S2[SP[a1, a3], a2, a6, SP[a4, a5], n] + 
    S2[SP[a1, a3], a2, SP[a4, a5], a6, n] - S2[SP[a1, a3], a2, SP[a5, a6], 
     a4, n] + S2[SP[a1, a3], a6, a2, SP[a4, a5], n] + 
    S2[SP[a1, a3], a6, SP[a2, a5], a4, n] + S2[SP[a1, a3], SP[a2, a5], a4, 
     a6, n] + S2[SP[a1, a3], SP[a2, a5], a6, a4, n] - 
    S2[SP[a1, a3], SP[a5, a6], a2, a4, n] + S2[a1, a2, a3, a4, SP[a5, a6], 
     n] - S2[a1, a2, a3, a6, SP[a4, a5], n] - S2[a1, a2, a3, SP[a4, a5], a6, 
     n] + S2[a1, a2, a3, SP[a5, a6], a4, n] + S2[a1, a2, a4, a3, SP[a5, a6], 
     n] + S2[a1, a2, a4, SP[a3, a5], a6, n] - 
    S2[a4, n]*S2[a1, a2, a5, a3, a6, n] - S2[a1, a2, a5, a3, SP[a4, a6], n] - 
    S2[a1, a2, a5, SP[a3, a4], a6, n] + S2[a1, a2, SP[a3, a5], a4, a6, n] + 
    S2[a1, a2, SP[a3, a5], a6, a4, n] - 2*S2[a1, a2, SP[a4, a5], a3, a6, n] + 
    S2[a1, a3, a2, a4, SP[a5, a6], n] - S2[a1, a3, a2, a6, SP[a4, a5], n] - 
    S2[a1, a3, a2, SP[a4, a5], a6, n] + S2[a1, a3, a2, SP[a5, a6], a4, n] - 
    S2[a1, a3, a6, a2, SP[a4, a5], n] - S2[a1, a3, a6, SP[a2, a5], a4, n] - 
    S2[a1, a3, SP[a2, a5], a4, a6, n] - S2[a1, a3, SP[a2, a5], a6, a4, n] + 
    S2[a1, a3, SP[a5, a6], a2, a4, n] + S2[a2, n]*S2[a1, a4, a5, a3, a6, n] + 
    S2[a1, a4, a5, a3, SP[a2, a6], n] + S2[a1, a4, a5, SP[a2, a3], a6, n] + 
    S2[a1, a4, SP[a2, a5], a3, a6, n] - S2[a4, n]*S2[a1, a5, a2, a3, a6, n] - 
    S2[a1, a5, a2, a3, SP[a4, a6], n] - S2[a1, a5, a2, SP[a3, a4], a6, n] - 
    S2[a4, n]*S2[a1, a5, a3, a2, a6, n] - S2[a1, a5, a3, a2, SP[a4, a6], n] + 
    S2[a2, n]*S2[a1, a5, a3, a4, a6, n] + S2[a1, a5, a3, a4, SP[a2, a6], n] - 
    S2[a4, n]*S2[a1, a5, a3, a6, a2, n] + 
    S2[a2, n]*S2[a1, a5, a3, a6, a4, n] + S2[a1, a5, a3, SP[a2, a6], a4, n] - 
    S2[a1, a5, a3, SP[a4, a6], a2, n] + S2[a2, n]*S2[a1, a5, a4, a3, a6, n] + 
    S2[a1, a5, a4, a3, SP[a2, a6], n] + S2[a1, a5, a4, SP[a2, a3], a6, n] + 
    S2[a1, a5, SP[a2, a3], a4, a6, n] + S2[a1, a5, SP[a2, a3], a6, a4, n] - 
    S2[a1, a5, SP[a3, a4], a2, a6, n] - S2[a1, a5, SP[a3, a4], a6, a2, n] + 
    S2[a1, SP[a3, a5], a2, a4, a6, n] + S2[a1, SP[a3, a5], a2, a6, a4, n] + 
    S2[a1, SP[a3, a5], a6, a2, a4, n] - S2[a1, SP[a4, a5], a2, a3, a6, n] - 
    S2[a1, SP[a4, a5], a3, a2, a6, n] - S2[a1, SP[a4, a5], a3, a6, a2, n] - 
    S2[a2, a1, a5, a3, SP[a4, a6], n] - S2[a2, a1, a5, SP[a3, a4], a6, n] - 
    S2[a2, a1, SP[a4, a5], a3, a6, n] - S2[a2, SP[a1, a4], a5, a3, a6, n] + 
    S2[a3, a1, a2, a4, SP[a5, a6], n] - S2[a3, a1, a2, a6, SP[a4, a5], n] - 
    S2[a3, a1, a2, SP[a4, a5], a6, n] + S2[a3, a1, a2, SP[a5, a6], a4, n] - 
    S2[a3, a1, a6, a2, SP[a4, a5], n] - S2[a3, a1, a6, SP[a2, a5], a4, n] - 
    S2[a3, a1, SP[a2, a5], a4, a6, n] - S2[a3, a1, SP[a2, a5], a6, a4, n] + 
    S2[a3, a1, SP[a5, a6], a2, a4, n] + S2[a6, n]*S2[a3, a5, a1, a2, a4, n] - 
    S2[a3, a6, a1, a2, SP[a4, a5], n] - S2[a3, a6, a1, SP[a2, a5], a4, n] - 
    S2[a3, a6, SP[a1, a5], a2, a4, n] - S2[a3, SP[a1, a5], a2, a4, a6, n] - 
    S2[a3, SP[a1, a5], a2, a6, a4, n] - S2[a3, SP[a1, a5], a6, a2, a4, n] + 
    S2[a3, SP[a5, a6], a1, a2, a4, n] + S2[a2, n]*S2[a4, a1, a5, a3, a6, n] + 
    S2[a4, a1, a5, a3, SP[a2, a6], n] + S2[a4, a1, a5, SP[a2, a3], a6, n] + 
    S2[a4, a1, SP[a2, a5], a3, a6, n] + S2[a4, SP[a1, a2], a5, a3, a6, n] - 
    S2[SP[a1, a4], a2, a5, a3, a6, n] - S2[SP[a1, a4], a5, a2, a3, a6, n] - 
    S2[SP[a1, a4], a5, a3, a2, a6, n] - S2[SP[a1, a4], a5, a3, a6, a2, n] + 
    S2[SP[a2, a4], a1, a5, a3, a6, n] + S2[SP[a3, a6], a5, a1, a2, a4, n] - 
    S2[a6, a3, a5, a1, a2, a4, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a4_, a2_, a1_, a5_, a6_, a3_, n_] :> 
  S2[a1, a2, a4, n]*S2[a3, a6, a5, n] + S2[SP[a1, a3], SP[a2, a6], 
     SP[a4, a5], n] - S2[a3, a6, n]*S2[a1, a2, a4, a5, n] - 
    S2[a3, a6, n]*S2[a1, a2, a5, a4, n] + S2[a1, a2, SP[a3, a4], SP[a5, a6], 
     n] + S2[a1, a2, SP[a3, a5], SP[a4, a6], n] - S2[a1, a3, SP[a2, a6], 
     SP[a4, a5], n] - S2[a3, a6, n]*S2[a1, a5, a2, a4, n] - 
    S2[a2, a4, n]*S2[a1, a5, a6, a3, n] + S2[a1, a5, SP[a2, a3], SP[a4, a6], 
     n] + S2[a1, a5, SP[a2, a6], SP[a3, a4], n] + S2[a1, SP[a2, a3], a4, 
     SP[a5, a6], n] + S2[a1, SP[a2, a3], a5, SP[a4, a6], n] - 
    S2[a1, SP[a2, a3], a6, SP[a4, a5], n] + S2[a1, SP[a2, a3], SP[a5, a6], 
     a4, n] + S2[a1, SP[a2, a5], a6, SP[a3, a4], n] + 
    S2[a1, SP[a2, a5], SP[a4, a6], a3, n] + S2[a1, SP[a3, a5], a2, 
     SP[a4, a6], n] + S2[a1, SP[a3, a5], SP[a2, a6], a4, n] - 
    S2[a3, a1, SP[a2, a6], SP[a4, a5], n] - S2[a3, SP[a1, a6], a2, 
     SP[a4, a5], n] - S2[a3, SP[a1, a6], SP[a2, a5], a4, n] + 
    S2[SP[a1, a2], a5, a6, SP[a3, a4], n] + S2[SP[a1, a2], a5, SP[a4, a6], 
     a3, n] + S2[SP[a1, a2], SP[a4, a5], a6, a3, n] + 
    S2[SP[a1, a3], a2, a4, SP[a5, a6], n] + S2[SP[a1, a3], a2, a5, 
     SP[a4, a6], n] - S2[SP[a1, a3], a2, a6, SP[a4, a5], n] + 
    S2[SP[a1, a3], a2, SP[a5, a6], a4, n] + S2[SP[a1, a3], a5, a2, 
     SP[a4, a6], n] + S2[SP[a1, a3], a5, SP[a2, a6], a4, n] - 
    S2[SP[a1, a3], a6, a2, SP[a4, a5], n] - S2[SP[a1, a3], a6, SP[a2, a5], 
     a4, n] + S2[SP[a1, a3], SP[a5, a6], a2, a4, n] - 
    S2[a1, a2, a3, a4, SP[a5, a6], n] - S2[a1, a2, a3, a5, SP[a4, a6], n] + 
    S2[a1, a2, a3, a6, SP[a4, a5], n] - S2[a1, a2, a3, SP[a5, a6], a4, n] - 
    S2[a1, a2, a4, a3, SP[a5, a6], n] + S2[a3, n]*S2[a1, a2, a4, a5, a6, n] + 
    S2[a1, a2, a4, a5, SP[a3, a6], n] - S2[a1, a2, a5, a3, SP[a4, a6], n] + 
    S2[a3, n]*S2[a1, a2, a5, a4, a6, n] + S2[a1, a2, a5, a4, SP[a3, a6], n] - 
    S2[a4, n]*S2[a1, a2, a5, a6, a3, n] + 
    S2[a3, n]*S2[a1, a2, a5, a6, a4, n] - S2[a1, a2, a5, a6, SP[a3, a4], n] + 
    S2[a1, a2, a5, SP[a3, a6], a4, n] - 2*S2[a1, a2, a5, SP[a4, a6], a3, n] - 
    2*S2[a1, a2, SP[a4, a5], a6, a3, n] - S2[a1, a3, a2, a4, SP[a5, a6], n] - 
    S2[a1, a3, a2, a5, SP[a4, a6], n] + S2[a1, a3, a2, a6, SP[a4, a5], n] - 
    S2[a1, a3, a2, SP[a5, a6], a4, n] - S2[a1, a3, a5, a2, SP[a4, a6], n] - 
    S2[a1, a3, a5, SP[a2, a6], a4, n] + S2[a1, a3, a6, a2, SP[a4, a5], n] + 
    S2[a1, a3, a6, SP[a2, a5], a4, n] - S2[a1, a3, SP[a5, a6], a2, a4, n] + 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] + S2[a1, a4, a5, a6, SP[a2, a3], n] + 
    S2[a1, a4, a5, SP[a2, a6], a3, n] + S2[a1, a4, SP[a2, a5], a6, a3, n] - 
    S2[a1, a5, a2, a3, SP[a4, a6], n] + S2[a3, n]*S2[a1, a5, a2, a4, a6, n] + 
    S2[a1, a5, a2, a4, SP[a3, a6], n] - S2[a4, n]*S2[a1, a5, a2, a6, a3, n] + 
    S2[a3, n]*S2[a1, a5, a2, a6, a4, n] - S2[a1, a5, a2, a6, SP[a3, a4], n] + 
    S2[a1, a5, a2, SP[a3, a6], a4, n] - 2*S2[a1, a5, a2, SP[a4, a6], a3, n] - 
    S2[a1, a5, a3, a2, SP[a4, a6], n] - S2[a1, a5, a3, SP[a2, a6], a4, n] + 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] + S2[a1, a5, a4, a6, SP[a2, a3], n] + 
    S2[a1, a5, a4, SP[a2, a6], a3, n] - S2[a4, n]*S2[a1, a5, a6, a2, a3, n] + 
    S2[a3, n]*S2[a1, a5, a6, a2, a4, n] - S2[a1, a5, a6, a2, SP[a3, a4], n] - 
    S2[a4, n]*S2[a1, a5, a6, a3, a2, n] + 
    S2[a2, n]*S2[a1, a5, a6, a3, a4, n] + 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] + S2[a1, a5, a6, a4, SP[a2, a3], n] + 
    S2[a1, a5, a6, SP[a2, a3], a4, n] - S2[a1, a5, a6, SP[a3, a4], a2, n] + 
    S2[a1, a5, SP[a3, a6], a2, a4, n] - S2[a1, a5, SP[a4, a6], a2, a3, n] - 
    S2[a1, a5, SP[a4, a6], a3, a2, n] - S2[a1, SP[a4, a5], a2, a6, a3, n] - 
    S2[a1, SP[a4, a5], a6, a2, a3, n] - S2[a1, SP[a4, a5], a6, a3, a2, n] - 
    S2[a2, a1, a5, a6, SP[a3, a4], n] - S2[a2, a1, a5, SP[a4, a6], a3, n] - 
    S2[a2, a1, SP[a4, a5], a6, a3, n] - S2[a2, SP[a1, a4], a5, a6, a3, n] - 
    S2[a3, a1, a2, a4, SP[a5, a6], n] - S2[a3, a1, a2, a5, SP[a4, a6], n] + 
    S2[a3, a1, a2, a6, SP[a4, a5], n] - S2[a3, a1, a2, SP[a5, a6], a4, n] - 
    S2[a3, a1, a5, a2, SP[a4, a6], n] - S2[a3, a1, a5, SP[a2, a6], a4, n] + 
    S2[a3, a1, a6, a2, SP[a4, a5], n] + S2[a3, a1, a6, SP[a2, a5], a4, n] - 
    S2[a3, a1, SP[a5, a6], a2, a4, n] + S2[a3, a6, a1, a2, SP[a4, a5], n] + 
    S2[a3, a6, a1, SP[a2, a5], a4, n] + S2[a3, a6, SP[a1, a5], a2, a4, n] + 
    S2[a2, n]*S2[a4, a1, a5, a6, a3, n] + S2[a4, a1, a5, a6, SP[a2, a3], n] + 
    S2[a4, a1, a5, SP[a2, a6], a3, n] + S2[a4, a1, SP[a2, a5], a6, a3, n] + 
    S2[a4, SP[a1, a2], a5, a6, a3, n] - S2[a3, n]*S2[a6, a5, a1, a2, a4, n] - 
    S2[a6, a5, a1, a2, SP[a3, a4], n] - S2[a6, a5, a1, SP[a2, a3], a4, n] - 
    S2[a6, a5, SP[a1, a3], a2, a4, n] - S2[a6, SP[a3, a5], a1, a2, a4, n] - 
    S2[SP[a1, a4], a2, a5, a6, a3, n] - S2[SP[a1, a4], a5, a2, a6, a3, n] - 
    S2[SP[a1, a4], a5, a6, a2, a3, n] - S2[SP[a1, a4], a5, a6, a3, a2, n] + 
    S2[SP[a2, a4], a1, a5, a6, a3, n] - S2[SP[a3, a6], a5, a1, a2, a4, n] + 
    S2[a6, a3, a5, a1, a2, a4, n] + S2[a6, a5, a1, a2, a3, a4, n] + 
    S2[a6, a5, a1, a2, a4, a3, n] + S2[a6, a5, a1, a3, a2, a4, n] + 
    S2[a6, a5, a3, a1, a2, a4, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a4_, a2_, a1_, a6_, a3_, a5_, n_] :> 
  -(S2[a1, a2, a4, n]*S2[a3, a5, a6, n]) - S2[a1, a2, a4, n]*
     S2[a3, a6, a5, n] - S2[SP[a1, a3], SP[a2, a5], SP[a4, a6], n] - 
    S2[SP[a1, a3], SP[a2, a6], SP[a4, a5], n] + S2[a1, a3, SP[a2, a5], 
     SP[a4, a6], n] + S2[a1, a3, SP[a2, a6], SP[a4, a5], n] - 
    S2[a2, a4, n]*S2[a1, a6, a3, a5, n] + S2[a1, a6, SP[a2, a3], SP[a4, a5], 
     n] + S2[a1, SP[a2, a3], a5, SP[a4, a6], n] + S2[a1, SP[a2, a3], a6, 
     SP[a4, a5], n] + S2[a1, SP[a2, a3], SP[a4, a5], a6, n] + 
    S2[a1, SP[a2, a3], SP[a4, a6], a5, n] + S2[a1, SP[a2, a6], a3, 
     SP[a4, a5], n] + S2[a1, SP[a2, a6], SP[a3, a4], a5, n] + 
    S2[a3, a1, SP[a2, a5], SP[a4, a6], n] + S2[a3, a1, SP[a2, a6], 
     SP[a4, a5], n] + S2[a3, SP[a1, a5], a2, SP[a4, a6], n] + 
    S2[a3, SP[a1, a5], SP[a2, a6], a4, n] + S2[a3, SP[a1, a6], a2, 
     SP[a4, a5], n] + S2[a3, SP[a1, a6], SP[a2, a5], a4, n] + 
    S2[SP[a1, a2], a6, a3, SP[a4, a5], n] + S2[SP[a1, a2], a6, SP[a3, a4], 
     a5, n] + S2[SP[a1, a2], SP[a4, a6], a3, a5, n] + 
    S2[SP[a1, a3], a2, a5, SP[a4, a6], n] + S2[SP[a1, a3], a2, a6, 
     SP[a4, a5], n] + S2[SP[a1, a3], a2, SP[a4, a5], a6, n] + 
    S2[SP[a1, a3], a2, SP[a4, a6], a5, n] + S2[SP[a1, a3], a5, a2, 
     SP[a4, a6], n] + S2[SP[a1, a3], a5, SP[a2, a6], a4, n] + 
    S2[SP[a1, a3], a6, a2, SP[a4, a5], n] + S2[SP[a1, a3], a6, SP[a2, a5], 
     a4, n] + S2[SP[a1, a3], SP[a2, a5], a4, a6, n] + 
    S2[SP[a1, a3], SP[a2, a5], a6, a4, n] + S2[SP[a1, a3], SP[a2, a6], a4, 
     a5, n] + S2[SP[a1, a3], SP[a2, a6], a5, a4, n] - 
    S2[a1, a2, a3, a5, SP[a4, a6], n] - S2[a1, a2, a3, a6, SP[a4, a5], n] - 
    S2[a1, a2, a3, SP[a4, a5], a6, n] - S2[a1, a2, a3, SP[a4, a6], a5, n] - 
    S2[a6, n]*S2[a1, a2, a4, a5, a3, n] + 
    S2[a3, n]*S2[a1, a2, a4, a5, a6, n] + 
    S2[a3, n]*S2[a1, a2, a4, a6, a5, n] + S2[a1, a2, a4, a6, SP[a3, a5], n] + 
    S2[a1, a2, a4, SP[a3, a5], a6, n] + S2[a1, a2, a4, SP[a3, a6], a5, n] - 
    S2[a1, a2, a4, SP[a5, a6], a3, n] - S2[a6, n]*S2[a1, a2, a5, a3, a4, n] - 
    S2[a1, a2, a5, a3, SP[a4, a6], n] - S2[a6, n]*S2[a1, a2, a5, a4, a3, n] + 
    S2[a3, n]*S2[a1, a2, a5, a4, a6, n] + 
    S2[a3, n]*S2[a1, a2, a5, a6, a4, n] + S2[a1, a2, a5, a6, SP[a3, a4], n] + 
    S2[a1, a2, a5, SP[a3, a4], a6, n] - S2[a1, a2, a5, SP[a4, a6], a3, n] - 
    S2[a4, n]*S2[a1, a2, a6, a3, a5, n] - 
    2*S2[a1, a2, a6, a3, SP[a4, a5], n] + 
    S2[a3, n]*S2[a1, a2, a6, a4, a5, n] + S2[a1, a2, a6, a4, SP[a3, a5], n] + 
    S2[a3, n]*S2[a1, a2, a6, a5, a4, n] + S2[a1, a2, a6, a5, SP[a3, a4], n] - 
    S2[a1, a2, a6, SP[a3, a4], a5, n] + S2[a1, a2, a6, SP[a3, a5], a4, n] + 
    S2[a1, a2, SP[a3, a5], a4, a6, n] + S2[a1, a2, SP[a3, a5], a6, a4, n] + 
    S2[a1, a2, SP[a3, a6], a4, a5, n] + S2[a1, a2, SP[a3, a6], a5, a4, n] - 
    2*S2[a1, a2, SP[a4, a6], a3, a5, n] - S2[a1, a2, SP[a4, a6], a5, a3, n] - 
    S2[a1, a2, SP[a5, a6], a3, a4, n] - S2[a1, a2, SP[a5, a6], a4, a3, n] - 
    S2[a1, a3, a2, a5, SP[a4, a6], n] - S2[a1, a3, a2, a6, SP[a4, a5], n] - 
    S2[a1, a3, a2, SP[a4, a5], a6, n] - S2[a1, a3, a2, SP[a4, a6], a5, n] - 
    S2[a1, a3, a5, a2, SP[a4, a6], n] - S2[a1, a3, a5, SP[a2, a6], a4, n] - 
    S2[a1, a3, a6, a2, SP[a4, a5], n] - S2[a1, a3, a6, SP[a2, a5], a4, n] - 
    S2[a1, a3, SP[a2, a5], a4, a6, n] - S2[a1, a3, SP[a2, a5], a6, a4, n] - 
    S2[a1, a3, SP[a2, a6], a4, a5, n] - S2[a1, a3, SP[a2, a6], a5, a4, n] + 
    S2[a2, n]*S2[a1, a4, a6, a3, a5, n] + S2[a1, a4, a6, a3, SP[a2, a5], n] + 
    S2[a1, a4, a6, SP[a2, a3], a5, n] + S2[a1, a4, SP[a2, a6], a3, a5, n] - 
    S2[a6, n]*S2[a1, a5, a2, a3, a4, n] - S2[a1, a5, a2, a3, SP[a4, a6], n] - 
    S2[a6, n]*S2[a1, a5, a2, a4, a3, n] + 
    S2[a3, n]*S2[a1, a5, a2, a4, a6, n] + 
    S2[a3, n]*S2[a1, a5, a2, a6, a4, n] + S2[a1, a5, a2, a6, SP[a3, a4], n] + 
    S2[a1, a5, a2, SP[a3, a4], a6, n] - S2[a1, a5, a2, SP[a4, a6], a3, n] - 
    S2[a6, n]*S2[a1, a5, a3, a2, a4, n] - S2[a1, a5, a3, a2, SP[a4, a6], n] - 
    S2[a1, a5, a3, SP[a2, a6], a4, n] + S2[a3, n]*S2[a1, a5, a6, a2, a4, n] + 
    S2[a1, a5, a6, a2, SP[a3, a4], n] + S2[a1, a5, a6, SP[a2, a3], a4, n] + 
    S2[a1, a5, SP[a2, a3], a4, a6, n] + S2[a1, a5, SP[a2, a3], a6, a4, n] - 
    S2[a1, a5, SP[a2, a6], a3, a4, n] - S2[a1, a5, SP[a2, a6], a4, a3, n] - 
    S2[a4, n]*S2[a1, a6, a2, a3, a5, n] - 
    2*S2[a1, a6, a2, a3, SP[a4, a5], n] + 
    S2[a3, n]*S2[a1, a6, a2, a4, a5, n] + S2[a1, a6, a2, a4, SP[a3, a5], n] + 
    S2[a3, n]*S2[a1, a6, a2, a5, a4, n] + S2[a1, a6, a2, a5, SP[a3, a4], n] - 
    S2[a1, a6, a2, SP[a3, a4], a5, n] + S2[a1, a6, a2, SP[a3, a5], a4, n] - 
    S2[a4, n]*S2[a1, a6, a3, a2, a5, n] - 
    2*S2[a1, a6, a3, a2, SP[a4, a5], n] + 
    S2[a2, n]*S2[a1, a6, a3, a4, a5, n] + S2[a1, a6, a3, a4, SP[a2, a5], n] - 
    S2[a4, n]*S2[a1, a6, a3, a5, a2, n] + 
    S2[a2, n]*S2[a1, a6, a3, a5, a4, n] - S2[a1, a6, a3, SP[a4, a5], a2, n] + 
    S2[a2, n]*S2[a1, a6, a4, a3, a5, n] + S2[a1, a6, a4, a3, SP[a2, a5], n] + 
    S2[a1, a6, a4, SP[a2, a3], a5, n] + S2[a3, n]*S2[a1, a6, a5, a2, a4, n] + 
    S2[a1, a6, a5, a2, SP[a3, a4], n] + S2[a1, a6, a5, SP[a2, a3], a4, n] + 
    S2[a1, a6, SP[a2, a3], a4, a5, n] + S2[a1, a6, SP[a2, a3], a5, a4, n] - 
    S2[a1, a6, SP[a3, a4], a2, a5, n] - S2[a1, a6, SP[a3, a4], a5, a2, n] + 
    S2[a1, a6, SP[a3, a5], a2, a4, n] - S2[a1, SP[a2, a6], a4, a5, a3, n] - 
    S2[a1, SP[a2, a6], a5, a3, a4, n] - S2[a1, SP[a2, a6], a5, a4, a3, n] + 
    S2[a1, SP[a3, a5], a2, a4, a6, n] + S2[a1, SP[a3, a5], a2, a6, a4, n] + 
    S2[a1, SP[a3, a5], a6, a2, a4, n] + S2[a1, SP[a3, a6], a2, a4, a5, n] + 
    S2[a1, SP[a3, a6], a2, a5, a4, n] + S2[a1, SP[a3, a6], a5, a2, a4, n] - 
    S2[a1, SP[a4, a6], a2, a3, a5, n] - S2[a1, SP[a4, a6], a3, a2, a5, n] - 
    S2[a1, SP[a4, a6], a3, a5, a2, n] - S2[a1, SP[a5, a6], a2, a3, a4, n] - 
    S2[a1, SP[a5, a6], a2, a4, a3, n] - S2[a1, SP[a5, a6], a3, a2, a4, n] - 
    S2[a2, a1, a6, a3, SP[a4, a5], n] - S2[a2, a1, a6, SP[a3, a4], a5, n] - 
    S2[a2, a1, SP[a4, a6], a3, a5, n] - S2[a2, SP[a1, a4], a6, a3, a5, n] - 
    S2[a3, a1, a2, a5, SP[a4, a6], n] - S2[a3, a1, a2, a6, SP[a4, a5], n] - 
    S2[a3, a1, a2, SP[a4, a5], a6, n] - S2[a3, a1, a2, SP[a4, a6], a5, n] - 
    S2[a3, a1, a5, a2, SP[a4, a6], n] - S2[a3, a1, a5, SP[a2, a6], a4, n] - 
    S2[a3, a1, a6, a2, SP[a4, a5], n] - S2[a3, a1, a6, SP[a2, a5], a4, n] - 
    S2[a3, a1, SP[a2, a5], a4, a6, n] - S2[a3, a1, SP[a2, a5], a6, a4, n] - 
    S2[a3, a1, SP[a2, a6], a4, a5, n] - S2[a3, a1, SP[a2, a6], a5, a4, n] + 
    S2[a6, n]*S2[a3, a5, a1, a2, a4, n] - S2[a3, a6, a1, a2, SP[a4, a5], n] - 
    S2[a3, a6, a1, SP[a2, a5], a4, n] - S2[a3, a6, SP[a1, a5], a2, a4, n] - 
    S2[a3, SP[a1, a5], a2, a4, a6, n] - S2[a3, SP[a1, a5], a2, a6, a4, n] - 
    S2[a3, SP[a1, a5], a6, a2, a4, n] - S2[a3, SP[a1, a6], a2, a4, a5, n] - 
    S2[a3, SP[a1, a6], a2, a5, a4, n] - S2[a3, SP[a1, a6], a5, a2, a4, n] + 
    S2[a3, SP[a5, a6], a1, a2, a4, n] + S2[a2, n]*S2[a4, a1, a6, a3, a5, n] + 
    S2[a4, a1, a6, a3, SP[a2, a5], n] + S2[a4, a1, a6, SP[a2, a3], a5, n] + 
    S2[a4, a1, SP[a2, a6], a3, a5, n] + S2[a4, SP[a1, a2], a6, a3, a5, n] + 
    S2[a3, n]*S2[a6, a1, a2, a4, a5, n] + S2[a6, a1, a2, a4, SP[a3, a5], n] + 
    S2[a3, n]*S2[a6, a1, a2, a5, a4, n] + S2[a6, a1, a2, a5, SP[a3, a4], n] + 
    S2[a6, a1, a2, SP[a3, a4], a5, n] + S2[a6, a1, a2, SP[a3, a5], a4, n] + 
    S2[a3, n]*S2[a6, a1, a5, a2, a4, n] + S2[a6, a1, a5, a2, SP[a3, a4], n] + 
    S2[a6, a1, a5, SP[a2, a3], a4, n] + S2[a6, a1, SP[a2, a3], a4, a5, n] + 
    S2[a6, a1, SP[a2, a3], a5, a4, n] + S2[a6, a1, SP[a3, a5], a2, a4, n] + 
    S2[a6, SP[a1, a3], a2, a4, a5, n] + S2[a6, SP[a1, a3], a2, a5, a4, n] + 
    S2[a6, SP[a1, a3], a5, a2, a4, n] - S2[SP[a1, a4], a2, a6, a3, a5, n] - 
    S2[SP[a1, a4], a6, a2, a3, a5, n] - S2[SP[a1, a4], a6, a3, a2, a5, n] - 
    S2[SP[a1, a4], a6, a3, a5, a2, n] - S2[SP[a1, a6], a2, a4, a5, a3, n] - 
    S2[SP[a1, a6], a2, a5, a3, a4, n] - S2[SP[a1, a6], a2, a5, a4, a3, n] - 
    S2[SP[a1, a6], a5, a2, a3, a4, n] - S2[SP[a1, a6], a5, a2, a4, a3, n] - 
    S2[SP[a1, a6], a5, a3, a2, a4, n] + S2[SP[a2, a4], a1, a6, a3, a5, n] + 
    S2[SP[a3, a6], a1, a2, a4, a5, n] + S2[SP[a3, a6], a1, a2, a5, a4, n] + 
    S2[SP[a3, a6], a1, a5, a2, a4, n] + S2[SP[a3, a6], a5, a1, a2, a4, n] - 
    S2[a6, a1, a2, a3, a4, a5, n] - S2[a6, a1, a2, a3, a5, a4, n] - 
    S2[a6, a1, a2, a4, a3, a5, n] - S2[a6, a1, a3, a2, a4, a5, n] - 
    S2[a6, a1, a3, a2, a5, a4, n] - S2[a6, a1, a3, a5, a2, a4, n] - 
    S2[a6, a3, a1, a2, a4, a5, n] - S2[a6, a3, a1, a2, a5, a4, n] - 
    S2[a6, a3, a1, a5, a2, a4, n] - S2[a6, a3, a5, a1, a2, a4, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a4_, a2_, a1_, a6_, a5_, a3_, n_] :> 
  S2[a1, a2, a4, n]*S2[a3, a5, a6, n] + S2[SP[a1, a3], SP[a2, a5], 
     SP[a4, a6], n] - S2[a1, a3, SP[a2, a5], SP[a4, a6], n] - 
    S2[a2, a4, n]*S2[a1, a6, a5, a3, n] + S2[a1, a6, SP[a2, a5], SP[a3, a4], 
     n] - S2[a1, SP[a2, a3], a5, SP[a4, a6], n] - 
    S2[a1, SP[a2, a3], SP[a4, a5], a6, n] + S2[a1, SP[a2, a6], a5, 
     SP[a3, a4], n] + S2[a1, SP[a2, a6], SP[a4, a5], a3, n] - 
    S2[a3, a1, SP[a2, a5], SP[a4, a6], n] - S2[a3, SP[a1, a5], a2, 
     SP[a4, a6], n] - S2[a3, SP[a1, a5], SP[a2, a6], a4, n] + 
    S2[SP[a1, a2], a6, a5, SP[a3, a4], n] + S2[SP[a1, a2], a6, SP[a4, a5], 
     a3, n] + S2[SP[a1, a2], SP[a4, a6], a5, a3, n] - 
    S2[SP[a1, a3], a2, a5, SP[a4, a6], n] - S2[SP[a1, a3], a2, SP[a4, a5], 
     a6, n] - S2[SP[a1, a3], a5, a2, SP[a4, a6], n] - 
    S2[SP[a1, a3], a5, SP[a2, a6], a4, n] - S2[SP[a1, a3], SP[a2, a5], a4, 
     a6, n] - S2[SP[a1, a3], SP[a2, a5], a6, a4, n] + 
    S2[a1, a2, a3, a5, SP[a4, a6], n] + S2[a1, a2, a3, SP[a4, a5], a6, n] + 
    S2[a6, n]*S2[a1, a2, a4, a5, a3, n] - 
    S2[a3, n]*S2[a1, a2, a4, a5, a6, n] - S2[a1, a2, a4, SP[a3, a5], a6, n] + 
    S2[a1, a2, a4, SP[a5, a6], a3, n] + S2[a6, n]*S2[a1, a2, a5, a3, a4, n] + 
    S2[a1, a2, a5, a3, SP[a4, a6], n] + S2[a6, n]*S2[a1, a2, a5, a4, a3, n] - 
    S2[a3, n]*S2[a1, a2, a5, a4, a6, n] - 
    S2[a3, n]*S2[a1, a2, a5, a6, a4, n] - S2[a1, a2, a5, a6, SP[a3, a4], n] - 
    S2[a1, a2, a5, SP[a3, a4], a6, n] + S2[a1, a2, a5, SP[a4, a6], a3, n] - 
    S2[a4, n]*S2[a1, a2, a6, a5, a3, n] - 
    2*S2[a1, a2, a6, a5, SP[a3, a4], n] - 
    2*S2[a1, a2, a6, SP[a4, a5], a3, n] - S2[a1, a2, SP[a3, a5], a4, a6, n] - 
    S2[a1, a2, SP[a3, a5], a6, a4, n] - S2[a1, a2, SP[a4, a6], a5, a3, n] + 
    S2[a1, a2, SP[a5, a6], a3, a4, n] + S2[a1, a2, SP[a5, a6], a4, a3, n] + 
    S2[a1, a3, a2, a5, SP[a4, a6], n] + S2[a1, a3, a2, SP[a4, a5], a6, n] + 
    S2[a1, a3, a5, a2, SP[a4, a6], n] + S2[a1, a3, a5, SP[a2, a6], a4, n] + 
    S2[a1, a3, SP[a2, a5], a4, a6, n] + S2[a1, a3, SP[a2, a5], a6, a4, n] + 
    S2[a2, n]*S2[a1, a4, a6, a5, a3, n] + S2[a1, a4, a6, a5, SP[a2, a3], n] + 
    S2[a1, a4, a6, SP[a2, a5], a3, n] + S2[a1, a4, SP[a2, a6], a5, a3, n] + 
    S2[a6, n]*S2[a1, a5, a2, a3, a4, n] + S2[a1, a5, a2, a3, SP[a4, a6], n] + 
    S2[a6, n]*S2[a1, a5, a2, a4, a3, n] - 
    S2[a3, n]*S2[a1, a5, a2, a4, a6, n] - 
    S2[a3, n]*S2[a1, a5, a2, a6, a4, n] - S2[a1, a5, a2, a6, SP[a3, a4], n] - 
    S2[a1, a5, a2, SP[a3, a4], a6, n] + S2[a1, a5, a2, SP[a4, a6], a3, n] + 
    S2[a6, n]*S2[a1, a5, a3, a2, a4, n] + S2[a1, a5, a3, a2, SP[a4, a6], n] + 
    S2[a1, a5, a3, SP[a2, a6], a4, n] - S2[a3, n]*S2[a1, a5, a6, a2, a4, n] - 
    S2[a1, a5, a6, a2, SP[a3, a4], n] - S2[a1, a5, a6, SP[a2, a3], a4, n] - 
    S2[a1, a5, SP[a2, a3], a4, a6, n] - S2[a1, a5, SP[a2, a3], a6, a4, n] + 
    S2[a1, a5, SP[a2, a6], a3, a4, n] + S2[a1, a5, SP[a2, a6], a4, a3, n] - 
    S2[a4, n]*S2[a1, a6, a2, a5, a3, n] - 
    2*S2[a1, a6, a2, a5, SP[a3, a4], n] - 
    2*S2[a1, a6, a2, SP[a4, a5], a3, n] + 
    S2[a2, n]*S2[a1, a6, a4, a5, a3, n] + S2[a1, a6, a4, a5, SP[a2, a3], n] + 
    S2[a1, a6, a4, SP[a2, a5], a3, n] - S2[a4, n]*S2[a1, a6, a5, a2, a3, n] - 
    2*S2[a1, a6, a5, a2, SP[a3, a4], n] - 
    S2[a4, n]*S2[a1, a6, a5, a3, a2, n] + 
    S2[a2, n]*S2[a1, a6, a5, a3, a4, n] + 
    S2[a2, n]*S2[a1, a6, a5, a4, a3, n] + S2[a1, a6, a5, a4, SP[a2, a3], n] - 
    S2[a1, a6, a5, SP[a3, a4], a2, n] - S2[a1, a6, SP[a4, a5], a2, a3, n] - 
    S2[a1, a6, SP[a4, a5], a3, a2, n] + S2[a1, SP[a2, a6], a4, a5, a3, n] + 
    S2[a1, SP[a2, a6], a5, a3, a4, n] + S2[a1, SP[a2, a6], a5, a4, a3, n] - 
    S2[a1, SP[a3, a5], a2, a4, a6, n] - S2[a1, SP[a3, a5], a2, a6, a4, n] - 
    S2[a1, SP[a3, a5], a6, a2, a4, n] - S2[a1, SP[a4, a6], a2, a5, a3, n] - 
    S2[a1, SP[a4, a6], a5, a2, a3, n] - S2[a1, SP[a4, a6], a5, a3, a2, n] + 
    S2[a1, SP[a5, a6], a2, a3, a4, n] + S2[a1, SP[a5, a6], a2, a4, a3, n] + 
    S2[a1, SP[a5, a6], a3, a2, a4, n] - S2[a2, a1, a6, a5, SP[a3, a4], n] - 
    S2[a2, a1, a6, SP[a4, a5], a3, n] - S2[a2, a1, SP[a4, a6], a5, a3, n] - 
    S2[a2, SP[a1, a4], a6, a5, a3, n] + S2[a3, a1, a2, a5, SP[a4, a6], n] + 
    S2[a3, a1, a2, SP[a4, a5], a6, n] + S2[a3, a1, a5, a2, SP[a4, a6], n] + 
    S2[a3, a1, a5, SP[a2, a6], a4, n] + S2[a3, a1, SP[a2, a5], a4, a6, n] + 
    S2[a3, a1, SP[a2, a5], a6, a4, n] - S2[a6, n]*S2[a3, a5, a1, a2, a4, n] + 
    S2[a3, SP[a1, a5], a2, a4, a6, n] + S2[a3, SP[a1, a5], a2, a6, a4, n] + 
    S2[a3, SP[a1, a5], a6, a2, a4, n] - S2[a3, SP[a5, a6], a1, a2, a4, n] + 
    S2[a2, n]*S2[a4, a1, a6, a5, a3, n] + S2[a4, a1, a6, a5, SP[a2, a3], n] + 
    S2[a4, a1, a6, SP[a2, a5], a3, n] + S2[a4, a1, SP[a2, a6], a5, a3, n] + 
    S2[a4, SP[a1, a2], a6, a5, a3, n] + S2[a3, n]*S2[a6, a5, a1, a2, a4, n] + 
    S2[a6, a5, a1, a2, SP[a3, a4], n] + S2[a6, a5, a1, SP[a2, a3], a4, n] + 
    S2[a6, a5, SP[a1, a3], a2, a4, n] + S2[a6, SP[a3, a5], a1, a2, a4, n] - 
    S2[SP[a1, a4], a2, a6, a5, a3, n] - S2[SP[a1, a4], a6, a2, a5, a3, n] - 
    S2[SP[a1, a4], a6, a5, a2, a3, n] - S2[SP[a1, a4], a6, a5, a3, a2, n] + 
    S2[SP[a1, a6], a2, a4, a5, a3, n] + S2[SP[a1, a6], a2, a5, a3, a4, n] + 
    S2[SP[a1, a6], a2, a5, a4, a3, n] + S2[SP[a1, a6], a5, a2, a3, a4, n] + 
    S2[SP[a1, a6], a5, a2, a4, a3, n] + S2[SP[a1, a6], a5, a3, a2, a4, n] + 
    S2[SP[a2, a4], a1, a6, a5, a3, n] - S2[a6, a1, a2, a4, a5, a3, n] - 
    S2[a6, a1, a2, a5, a3, a4, n] - S2[a6, a1, a2, a5, a4, a3, n] - 
    S2[a6, a1, a5, a2, a3, a4, n] - S2[a6, a1, a5, a2, a4, a3, n] - 
    S2[a6, a1, a5, a3, a2, a4, n] - S2[a6, a5, a1, a2, a3, a4, n] - 
    S2[a6, a5, a1, a2, a4, a3, n] - S2[a6, a5, a1, a3, a2, a4, n] - 
    S2[a6, a5, a3, a1, a2, a4, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a4_, a2_, a3_, a1_, a5_, a6_, n_] :> 
  -(S2[a1, a5, a6, n]*S2[a2, a3, a4, n]) - S2[a1, a5, a6, n]*
     S2[a2, a4, a3, n] - S2[SP[a1, a2], SP[a3, a5], SP[a4, a6], n] - 
    S2[SP[a1, a2], SP[a4, a5], SP[a3, a6], n] + S2[a1, a2, SP[a3, a5], 
     SP[a4, a6], n] + S2[a1, a2, SP[a4, a5], SP[a3, a6], n] - 
    S2[a5, a6, n]*S2[a1, a3, a2, a4, n] + S2[a2, a4, n]*
     S2[a1, a3, a5, a6, n] + S2[a2, a4, n]*S2[a1, a5, a3, a6, n] + 
    S2[a2, a4, n]*S2[a1, a5, a6, a3, n] - S2[a1, a5, SP[a2, a3], SP[a4, a6], 
     n] - S2[a1, a5, SP[a2, a6], SP[a3, a4], n] - S2[a1, SP[a2, a3], a5, 
     SP[a4, a6], n] - S2[a1, SP[a2, a3], SP[a4, a5], a6, n] + 
    S2[a1, SP[a2, a5], a4, SP[a3, a6], n] - S2[a1, SP[a2, a5], a6, 
     SP[a3, a4], n] - S2[a1, SP[a2, a5], SP[a3, a4], a6, n] + 
    S2[a1, SP[a2, a5], SP[a3, a6], a4, n] + S2[a1, SP[a3, a5], a2, 
     SP[a4, a6], n] + S2[a1, SP[a3, a5], SP[a2, a6], a4, n] + 
    S2[a2, a1, SP[a3, a5], SP[a4, a6], n] + S2[a2, a1, SP[a4, a5], 
     SP[a3, a6], n] + S2[a2, SP[a1, a3], a5, SP[a4, a6], n] + 
    S2[a2, SP[a1, a3], SP[a4, a5], a6, n] + S2[a2, SP[a1, a4], a5, 
     SP[a3, a6], n] + S2[a2, SP[a1, a4], SP[a3, a5], a6, n] + 
    S2[SP[a1, a2], a4, a5, SP[a3, a6], n] + S2[SP[a1, a2], a4, SP[a3, a5], 
     a6, n] + S2[SP[a1, a2], a5, a4, SP[a3, a6], n] - 
    S2[SP[a1, a2], a5, a6, SP[a3, a4], n] - S2[SP[a1, a2], a5, SP[a3, a4], 
     a6, n] + S2[SP[a1, a2], a5, SP[a3, a6], a4, n] - 
    S2[SP[a1, a2], SP[a3, a4], a5, a6, n] + S2[SP[a1, a2], SP[a3, a5], a4, 
     a6, n] + S2[SP[a1, a2], SP[a3, a5], a6, a4, n] + 
    S2[SP[a1, a5], a3, a2, SP[a4, a6], n] + S2[SP[a1, a5], a3, SP[a2, a6], 
     a4, n] + S2[SP[a1, a5], SP[a3, a6], a2, a4, n] - 
    S2[a1, a2, a4, a5, SP[a3, a6], n] - S2[a1, a2, a4, SP[a3, a5], a6, n] - 
    S2[a1, a2, a5, a4, SP[a3, a6], n] + S2[a1, a2, a5, a6, SP[a3, a4], n] + 
    S2[a1, a2, a5, SP[a3, a4], a6, n] - S2[a1, a2, a5, SP[a3, a6], a4, n] + 
    S2[a1, a2, SP[a3, a4], a5, a6, n] - S2[a1, a2, SP[a3, a5], a4, a6, n] - 
    S2[a1, a2, SP[a3, a5], a6, a4, n] - S2[a6, n]*S2[a1, a3, a2, a4, a5, n] + 
    S2[a5, n]*S2[a1, a3, a2, a4, a6, n] - 
    S2[a6, n]*S2[a1, a3, a2, a5, a4, n] - S2[a1, a3, a2, a5, SP[a4, a6], n] + 
    S2[a5, n]*S2[a1, a3, a2, a6, a4, n] + S2[a1, a3, a2, a6, SP[a4, a5], n] + 
    S2[a1, a3, a2, SP[a4, a5], a6, n] - S2[a1, a3, a2, SP[a4, a6], a5, n] - 
    S2[a6, n]*S2[a1, a3, a5, a2, a4, n] - S2[a1, a3, a5, a2, SP[a4, a6], n] - 
    S2[a1, a3, a5, SP[a2, a6], a4, n] + S2[a5, n]*S2[a1, a3, a6, a2, a4, n] + 
    S2[a1, a3, a6, a2, SP[a4, a5], n] + S2[a1, a3, a6, SP[a2, a5], a4, n] + 
    S2[a1, a3, SP[a2, a5], a4, a6, n] + S2[a1, a3, SP[a2, a5], a6, a4, n] - 
    S2[a1, a3, SP[a2, a6], a4, a5, n] - S2[a1, a3, SP[a2, a6], a5, a4, n] - 
    S2[a1, a5, a2, a4, SP[a3, a6], n] + S2[a1, a5, a2, a6, SP[a3, a4], n] + 
    S2[a1, a5, a2, SP[a3, a4], a6, n] - S2[a1, a5, a2, SP[a3, a6], a4, n] - 
    S2[a6, n]*S2[a1, a5, a3, a2, a4, n] - S2[a1, a5, a3, a2, SP[a4, a6], n] - 
    S2[a1, a5, a3, SP[a2, a6], a4, n] + S2[a1, a5, a6, a2, SP[a3, a4], n] + 
    S2[a1, a5, a6, SP[a2, a3], a4, n] + S2[a1, a5, SP[a2, a3], a4, a6, n] + 
    S2[a1, a5, SP[a2, a3], a6, a4, n] - 2*S2[a1, a5, SP[a3, a6], a2, a4, n] + 
    S2[a5, n]*S2[a1, a6, a3, a2, a4, n] + S2[a1, a6, a3, a2, SP[a4, a5], n] + 
    S2[a1, a6, a3, SP[a2, a5], a4, n] + S2[a1, a6, SP[a3, a5], a2, a4, n] + 
    S2[a1, SP[a2, a3], a4, a5, a6, n] + S2[a1, SP[a2, a3], a5, a4, a6, n] + 
    S2[a1, SP[a2, a3], a5, a6, a4, n] - S2[a1, SP[a3, a6], a2, a4, a5, n] - 
    S2[a1, SP[a3, a6], a2, a5, a4, n] - S2[a1, SP[a3, a6], a5, a2, a4, n] - 
    S2[a2, a1, a4, a5, SP[a3, a6], n] - S2[a2, a1, a4, SP[a3, a5], a6, n] - 
    S2[a2, a1, a5, a4, SP[a3, a6], n] + S2[a2, a1, a5, a6, SP[a3, a4], n] + 
    S2[a2, a1, a5, SP[a3, a4], a6, n] - S2[a2, a1, a5, SP[a3, a6], a4, n] + 
    S2[a2, a1, SP[a3, a4], a5, a6, n] - S2[a2, a1, SP[a3, a5], a4, a6, n] - 
    S2[a2, a1, SP[a3, a5], a6, a4, n] + S2[a4, n]*S2[a2, a3, a1, a5, a6, n] - 
    S2[a2, a4, a1, a5, SP[a3, a6], n] - S2[a2, a4, a1, SP[a3, a5], a6, n] - 
    S2[a2, a4, SP[a1, a3], a5, a6, n] - S2[a2, SP[a1, a3], a4, a5, a6, n] - 
    S2[a2, SP[a1, a3], a5, a4, a6, n] - S2[a2, SP[a1, a3], a5, a6, a4, n] + 
    S2[a2, SP[a3, a4], a1, a5, a6, n] - S2[a5, a1, a3, a2, SP[a4, a6], n] - 
    S2[a5, a1, a3, SP[a2, a6], a4, n] - S2[a5, a1, SP[a3, a6], a2, a4, n] - 
    S2[a5, SP[a1, a6], a3, a2, a4, n] + S2[a5, n]*S2[a6, a1, a3, a2, a4, n] + 
    S2[a6, a1, a3, a2, SP[a4, a5], n] + S2[a6, a1, a3, SP[a2, a5], a4, n] + 
    S2[a6, a1, SP[a3, a5], a2, a4, n] + S2[a6, SP[a1, a5], a3, a2, a4, n] - 
    S2[SP[a1, a6], a3, a2, a4, a5, n] - S2[SP[a1, a6], a3, a2, a5, a4, n] - 
    S2[SP[a1, a6], a3, a5, a2, a4, n] - S2[SP[a1, a6], a5, a3, a2, a4, n] + 
    S2[SP[a2, a4], a3, a1, a5, a6, n] + S2[SP[a5, a6], a1, a3, a2, a4, n] - 
    S2[a6, a5, a1, a3, a2, a4, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a4_, a2_, a3_, a1_, a6_, a5_, n_] :> 
  -(S2[a1, a6, a5, n]*S2[a2, a3, a4, n]) - S2[a1, a6, a5, n]*
     S2[a2, a4, a3, n] - S2[SP[a1, a2], SP[a3, a6], SP[a4, a5], n] - 
    S2[SP[a1, a2], SP[a4, a6], SP[a3, a5], n] + S2[a1, a2, SP[a3, a6], 
     SP[a4, a5], n] + S2[a1, a2, SP[a4, a6], SP[a3, a5], n] + 
    S2[a5, a6, n]*S2[a1, a3, a2, a4, n] + S2[a2, a4, n]*
     S2[a1, a3, a6, a5, n] - S2[a1, a3, SP[a2, a5], SP[a4, a6], n] - 
    S2[a1, a3, SP[a2, a6], SP[a4, a5], n] + S2[a2, a4, n]*
     S2[a1, a6, a3, a5, n] + S2[a2, a4, n]*S2[a1, a6, a5, a3, n] - 
    S2[a1, a6, SP[a2, a3], SP[a4, a5], n] - S2[a1, a6, SP[a2, a5], 
     SP[a3, a4], n] - S2[a1, SP[a2, a3], a6, SP[a4, a5], n] - 
    S2[a1, SP[a2, a3], SP[a4, a6], a5, n] + S2[a1, SP[a2, a6], a4, 
     SP[a3, a5], n] - S2[a1, SP[a2, a6], a5, SP[a3, a4], n] - 
    S2[a1, SP[a2, a6], SP[a3, a4], a5, n] + S2[a1, SP[a2, a6], SP[a3, a5], 
     a4, n] - S2[a1, SP[a3, a5], a2, SP[a4, a6], n] - 
    S2[a1, SP[a3, a5], SP[a2, a6], a4, n] + S2[a2, a1, SP[a3, a6], 
     SP[a4, a5], n] + S2[a2, a1, SP[a4, a6], SP[a3, a5], n] + 
    S2[a2, SP[a1, a3], a6, SP[a4, a5], n] + S2[a2, SP[a1, a3], SP[a4, a6], 
     a5, n] + S2[a2, SP[a1, a4], a6, SP[a3, a5], n] + 
    S2[a2, SP[a1, a4], SP[a3, a6], a5, n] + S2[SP[a1, a2], a4, a6, 
     SP[a3, a5], n] + S2[SP[a1, a2], a4, SP[a3, a6], a5, n] + 
    S2[SP[a1, a2], a6, a4, SP[a3, a5], n] - S2[SP[a1, a2], a6, a5, 
     SP[a3, a4], n] - S2[SP[a1, a2], a6, SP[a3, a4], a5, n] + 
    S2[SP[a1, a2], a6, SP[a3, a5], a4, n] - S2[SP[a1, a2], SP[a3, a4], a6, 
     a5, n] + S2[SP[a1, a2], SP[a3, a6], a4, a5, n] + 
    S2[SP[a1, a2], SP[a3, a6], a5, a4, n] - S2[SP[a1, a5], a3, a2, 
     SP[a4, a6], n] - S2[SP[a1, a5], a3, SP[a2, a6], a4, n] - 
    S2[SP[a1, a5], SP[a3, a6], a2, a4, n] - S2[a1, a2, a4, a6, SP[a3, a5], 
     n] - S2[a1, a2, a4, SP[a3, a6], a5, n] - S2[a1, a2, a6, a4, SP[a3, a5], 
     n] + S2[a1, a2, a6, a5, SP[a3, a4], n] + S2[a1, a2, a6, SP[a3, a4], a5, 
     n] - S2[a1, a2, a6, SP[a3, a5], a4, n] + S2[a1, a2, SP[a3, a4], a6, a5, 
     n] - S2[a1, a2, SP[a3, a6], a4, a5, n] - S2[a1, a2, SP[a3, a6], a5, a4, 
     n] - S2[a5, n]*S2[a1, a3, a2, a4, a6, n] - S2[a1, a3, a2, a4, 
     SP[a5, a6], n] + S2[a1, a3, a2, a5, SP[a4, a6], n] - 
    S2[a5, n]*S2[a1, a3, a2, a6, a4, n] + S2[a1, a3, a2, SP[a4, a6], a5, n] - 
    S2[a1, a3, a2, SP[a5, a6], a4, n] + S2[a1, a3, a5, a2, SP[a4, a6], n] + 
    S2[a1, a3, a5, SP[a2, a6], a4, n] - S2[a5, n]*S2[a1, a3, a6, a2, a4, n] + 
    S2[a1, a3, SP[a2, a6], a4, a5, n] + S2[a1, a3, SP[a2, a6], a5, a4, n] - 
    S2[a1, a3, SP[a5, a6], a2, a4, n] + S2[a1, a5, a3, a2, SP[a4, a6], n] + 
    S2[a1, a5, a3, SP[a2, a6], a4, n] + S2[a1, a5, SP[a3, a6], a2, a4, n] - 
    S2[a1, a6, a2, a4, SP[a3, a5], n] + S2[a1, a6, a2, a5, SP[a3, a4], n] + 
    S2[a1, a6, a2, SP[a3, a4], a5, n] - S2[a1, a6, a2, SP[a3, a5], a4, n] - 
    S2[a5, n]*S2[a1, a6, a3, a2, a4, n] + S2[a1, a6, a5, a2, SP[a3, a4], n] + 
    S2[a1, a6, a5, SP[a2, a3], a4, n] + S2[a1, a6, SP[a2, a3], a4, a5, n] + 
    S2[a1, a6, SP[a2, a3], a5, a4, n] - S2[a1, a6, SP[a3, a5], a2, a4, n] + 
    S2[a1, SP[a2, a3], a4, a6, a5, n] + S2[a1, SP[a2, a3], a6, a4, a5, n] + 
    S2[a1, SP[a2, a3], a6, a5, a4, n] - S2[a1, SP[a5, a6], a3, a2, a4, n] - 
    S2[a2, a1, a4, a6, SP[a3, a5], n] - S2[a2, a1, a4, SP[a3, a6], a5, n] - 
    S2[a2, a1, a6, a4, SP[a3, a5], n] + S2[a2, a1, a6, a5, SP[a3, a4], n] + 
    S2[a2, a1, a6, SP[a3, a4], a5, n] - S2[a2, a1, a6, SP[a3, a5], a4, n] + 
    S2[a2, a1, SP[a3, a4], a6, a5, n] - S2[a2, a1, SP[a3, a6], a4, a5, n] - 
    S2[a2, a1, SP[a3, a6], a5, a4, n] + S2[a4, n]*S2[a2, a3, a1, a6, a5, n] - 
    S2[a2, a4, a1, a6, SP[a3, a5], n] - S2[a2, a4, a1, SP[a3, a6], a5, n] - 
    S2[a2, a4, SP[a1, a3], a6, a5, n] - S2[a2, SP[a1, a3], a4, a6, a5, n] - 
    S2[a2, SP[a1, a3], a6, a4, a5, n] - S2[a2, SP[a1, a3], a6, a5, a4, n] + 
    S2[a2, SP[a3, a4], a1, a6, a5, n] + S2[a5, a1, a3, a2, SP[a4, a6], n] + 
    S2[a5, a1, a3, SP[a2, a6], a4, n] + S2[a5, a1, SP[a3, a6], a2, a4, n] + 
    S2[a5, SP[a1, a6], a3, a2, a4, n] - S2[a5, n]*S2[a6, a1, a3, a2, a4, n] - 
    S2[a6, a1, a3, a2, SP[a4, a5], n] - S2[a6, a1, a3, SP[a2, a5], a4, n] - 
    S2[a6, a1, SP[a3, a5], a2, a4, n] - S2[a6, SP[a1, a5], a3, a2, a4, n] + 
    S2[SP[a2, a4], a3, a1, a6, a5, n] - S2[SP[a5, a6], a1, a3, a2, a4, n] + 
    S2[a6, a1, a3, a2, a4, a5, n] + S2[a6, a1, a3, a2, a5, a4, n] + 
    S2[a6, a1, a3, a5, a2, a4, n] + S2[a6, a1, a5, a3, a2, a4, n] + 
    S2[a6, a5, a1, a3, a2, a4, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a4_, a2_, a3_, a5_, a1_, a6_, n_] :> 
  S2[a1, a5, a6, n]*S2[a2, a3, a4, n] + S2[a1, a6, a5, n]*S2[a2, a3, a4, n] + 
    S2[a1, a5, a6, n]*S2[a2, a4, a3, n] + S2[a1, a6, a5, n]*
     S2[a2, a4, a3, n] + S2[SP[a1, a2], SP[a3, a5], SP[a4, a6], n] + 
    S2[SP[a1, a2], SP[a3, a6], SP[a4, a5], n] + S2[SP[a1, a2], SP[a4, a5], 
     SP[a3, a6], n] + S2[SP[a1, a2], SP[a4, a6], SP[a3, a5], n] - 
    S2[a1, a2, SP[a3, a5], SP[a4, a6], n] - S2[a1, a2, SP[a3, a6], 
     SP[a4, a5], n] - S2[a1, a2, SP[a4, a5], SP[a3, a6], n] - 
    S2[a1, a2, SP[a4, a6], SP[a3, a5], n] - S2[a2, a4, n]*
     S2[a1, a5, a3, a6, n] - S2[a2, a4, n]*S2[a1, a5, a6, a3, n] + 
    S2[a1, a5, SP[a2, a3], SP[a4, a6], n] + S2[a1, a5, SP[a2, a6], 
     SP[a3, a4], n] - S2[a2, a4, n]*S2[a1, a6, a5, a3, n] + 
    S2[a1, a6, SP[a2, a5], SP[a3, a4], n] - S2[a1, SP[a2, a5], a4, 
     SP[a3, a6], n] + S2[a1, SP[a2, a5], a6, SP[a3, a4], n] + 
    S2[a1, SP[a2, a5], SP[a3, a4], a6, n] - S2[a1, SP[a2, a5], SP[a3, a6], 
     a4, n] - S2[a1, SP[a2, a6], a3, SP[a4, a5], n] - 
    S2[a1, SP[a2, a6], a4, SP[a3, a5], n] + S2[a1, SP[a2, a6], a5, 
     SP[a3, a4], n] - S2[a1, SP[a2, a6], SP[a3, a5], a4, n] - 
    S2[a2, a1, SP[a3, a5], SP[a4, a6], n] - S2[a2, a1, SP[a3, a6], 
     SP[a4, a5], n] - S2[a2, a1, SP[a4, a5], SP[a3, a6], n] - 
    S2[a2, a1, SP[a4, a6], SP[a3, a5], n] - S2[a1, a6, n]*
     S2[a2, a3, a4, a5, n] - S2[a1, a6, n]*S2[a2, a3, a5, a4, n] + 
    S2[a2, a3, SP[a1, a4], SP[a5, a6], n] + S2[a2, a3, SP[a1, a5], 
     SP[a4, a6], n] - S2[a1, a6, n]*S2[a2, a4, a3, a5, n] + 
    S2[a2, a4, SP[a1, a3], SP[a5, a6], n] + S2[a2, SP[a1, a3], a4, 
     SP[a5, a6], n] - S2[a2, SP[a1, a3], a6, SP[a4, a5], n] - 
    S2[a2, SP[a1, a3], SP[a4, a5], a6, n] + S2[a2, SP[a1, a3], SP[a5, a6], 
     a4, n] + S2[a2, SP[a1, a4], a3, SP[a5, a6], n] - 
    S2[a2, SP[a1, a4], a5, SP[a3, a6], n] - S2[a2, SP[a1, a4], a6, 
     SP[a3, a5], n] - S2[a2, SP[a1, a4], SP[a3, a5], a6, n] + 
    S2[SP[a1, a2], a3, a4, SP[a5, a6], n] - S2[SP[a1, a2], a3, a6, 
     SP[a4, a5], n] - S2[SP[a1, a2], a3, SP[a4, a5], a6, n] + 
    S2[SP[a1, a2], a3, SP[a5, a6], a4, n] + S2[SP[a1, a2], a4, a3, 
     SP[a5, a6], n] - S2[SP[a1, a2], a4, a5, SP[a3, a6], n] - 
    S2[SP[a1, a2], a4, a6, SP[a3, a5], n] - S2[SP[a1, a2], a4, SP[a3, a5], 
     a6, n] - S2[SP[a1, a2], a5, a4, SP[a3, a6], n] + 
    S2[SP[a1, a2], a5, a6, SP[a3, a4], n] + S2[SP[a1, a2], a5, SP[a3, a4], 
     a6, n] - S2[SP[a1, a2], a5, SP[a3, a6], a4, n] - 
    S2[SP[a1, a2], a6, a3, SP[a4, a5], n] - S2[SP[a1, a2], a6, a4, 
     SP[a3, a5], n] + S2[SP[a1, a2], a6, a5, SP[a3, a4], n] - 
    S2[SP[a1, a2], a6, SP[a3, a5], a4, n] - S2[SP[a1, a2], SP[a3, a5], a4, 
     a6, n] - S2[SP[a1, a2], SP[a3, a5], a6, a4, n] - 
    S2[a1, a2, a3, a4, SP[a5, a6], n] + S2[a1, a2, a3, a6, SP[a4, a5], n] + 
    S2[a1, a2, a3, SP[a4, a5], a6, n] - S2[a1, a2, a3, SP[a5, a6], a4, n] - 
    S2[a1, a2, a4, a3, SP[a5, a6], n] + S2[a1, a2, a4, a5, SP[a3, a6], n] + 
    S2[a1, a2, a4, a6, SP[a3, a5], n] + S2[a1, a2, a4, SP[a3, a5], a6, n] + 
    S2[a1, a2, a5, a4, SP[a3, a6], n] - S2[a1, a2, a5, a6, SP[a3, a4], n] - 
    S2[a1, a2, a5, SP[a3, a4], a6, n] + S2[a1, a2, a5, SP[a3, a6], a4, n] + 
    S2[a1, a2, a6, a3, SP[a4, a5], n] + S2[a1, a2, a6, a4, SP[a3, a5], n] - 
    S2[a1, a2, a6, a5, SP[a3, a4], n] + S2[a1, a2, a6, SP[a3, a5], a4, n] + 
    S2[a1, a2, SP[a3, a5], a4, a6, n] + S2[a1, a2, SP[a3, a5], a6, a4, n] + 
    S2[a1, a5, a2, a4, SP[a3, a6], n] - S2[a1, a5, a2, a6, SP[a3, a4], n] - 
    S2[a1, a5, a2, SP[a3, a4], a6, n] + S2[a1, a5, a2, SP[a3, a6], a4, n] + 
    S2[a6, n]*S2[a1, a5, a3, a2, a4, n] - S2[a1, a5, a6, a2, SP[a3, a4], n] - 
    S2[a1, a5, a6, SP[a2, a3], a4, n] - S2[a1, a5, SP[a2, a3], a4, a6, n] - 
    S2[a1, a5, SP[a2, a3], a6, a4, n] + S2[a1, a5, SP[a3, a6], a2, a4, n] + 
    S2[a1, a6, a2, a3, SP[a4, a5], n] + S2[a1, a6, a2, a4, SP[a3, a5], n] - 
    S2[a1, a6, a2, a5, SP[a3, a4], n] + S2[a1, a6, a2, SP[a3, a5], a4, n] - 
    S2[a1, a6, a5, a2, SP[a3, a4], n] - S2[a1, a6, a5, SP[a2, a3], a4, n] + 
    S2[a1, SP[a5, a6], a3, a2, a4, n] - S2[a2, a1, a3, a4, SP[a5, a6], n] + 
    S2[a2, a1, a3, a6, SP[a4, a5], n] + S2[a2, a1, a3, SP[a4, a5], a6, n] - 
    S2[a2, a1, a3, SP[a5, a6], a4, n] - S2[a2, a1, a4, a3, SP[a5, a6], n] + 
    S2[a2, a1, a4, a5, SP[a3, a6], n] + S2[a2, a1, a4, a6, SP[a3, a5], n] + 
    S2[a2, a1, a4, SP[a3, a5], a6, n] + S2[a2, a1, a5, a4, SP[a3, a6], n] - 
    S2[a2, a1, a5, a6, SP[a3, a4], n] - S2[a2, a1, a5, SP[a3, a4], a6, n] + 
    S2[a2, a1, a5, SP[a3, a6], a4, n] + S2[a2, a1, a6, a3, SP[a4, a5], n] + 
    S2[a2, a1, a6, a4, SP[a3, a5], n] - S2[a2, a1, a6, a5, SP[a3, a4], n] + 
    S2[a2, a1, a6, SP[a3, a5], a4, n] + S2[a2, a1, SP[a3, a5], a4, a6, n] + 
    S2[a2, a1, SP[a3, a5], a6, a4, n] - S2[a2, a3, a1, a4, SP[a5, a6], n] + 
    S2[a2, a3, a1, a6, SP[a4, a5], n] + S2[a2, a3, a1, SP[a4, a5], a6, n] - 
    S2[a2, a3, a1, SP[a5, a6], a4, n] - S2[a2, a3, a4, a1, SP[a5, a6], n] - 
    S2[a2, a3, a4, SP[a1, a5], a6, n] + S2[a4, n]*S2[a2, a3, a5, a1, a6, n] - 
    S2[a2, a3, SP[a1, a5], a4, a6, n] - S2[a2, a3, SP[a1, a5], a6, a4, n] + 
    S2[a2, a3, SP[a4, a5], a1, a6, n] - S2[a2, a4, a1, a3, SP[a5, a6], n] + 
    S2[a2, a4, a1, a5, SP[a3, a6], n] + S2[a2, a4, a1, a6, SP[a3, a5], n] + 
    S2[a2, a4, a1, SP[a3, a5], a6, n] - S2[a2, a4, a3, a1, SP[a5, a6], n] - 
    S2[a2, a4, a3, SP[a1, a5], a6, n] + S2[a2, SP[a3, a4], a5, a1, a6, n] + 
    S2[SP[a1, a6], a5, a3, a2, a4, n] + S2[SP[a2, a4], a3, a5, a1, a6, n] - 
    S2[a6, a1, a5, a3, a2, a4, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a4_, a2_, a3_, a5_, a6_, a1_, n_] :> 
  -(S2[a1, a6, a5, n]*S2[a2, a3, a4, n]) - S2[a1, a6, a5, n]*
     S2[a2, a4, a3, n] - S2[SP[a1, a2], SP[a3, a6], SP[a4, a5], n] - 
    S2[SP[a1, a2], SP[a4, a6], SP[a3, a5], n] + S2[a1, a2, SP[a3, a6], 
     SP[a4, a5], n] + S2[a1, a2, SP[a4, a6], SP[a3, a5], n] + 
    S2[a2, a4, n]*S2[a1, a6, a5, a3, n] - S2[a1, a6, SP[a2, a5], SP[a3, a4], 
     n] + S2[a1, SP[a2, a6], a3, SP[a4, a5], n] + S2[a1, SP[a2, a6], a4, 
     SP[a3, a5], n] - S2[a1, SP[a2, a6], a5, SP[a3, a4], n] + 
    S2[a1, SP[a2, a6], SP[a3, a5], a4, n] + S2[a2, a1, SP[a3, a6], 
     SP[a4, a5], n] + S2[a2, a1, SP[a4, a6], SP[a3, a5], n] + 
    S2[a1, a6, n]*S2[a2, a3, a4, a5, n] + S2[a1, a6, n]*
     S2[a2, a3, a5, a4, n] - S2[a2, a3, SP[a1, a4], SP[a5, a6], n] - 
    S2[a2, a3, SP[a1, a5], SP[a4, a6], n] + S2[a1, a6, n]*
     S2[a2, a4, a3, a5, n] - S2[a2, a4, SP[a1, a3], SP[a5, a6], n] - 
    S2[a2, SP[a1, a3], a4, SP[a5, a6], n] - S2[a2, SP[a1, a3], a5, 
     SP[a4, a6], n] + S2[a2, SP[a1, a3], a6, SP[a4, a5], n] - 
    S2[a2, SP[a1, a3], SP[a5, a6], a4, n] - S2[a2, SP[a1, a4], a3, 
     SP[a5, a6], n] + S2[a2, SP[a1, a4], a6, SP[a3, a5], n] - 
    S2[SP[a1, a2], a3, a4, SP[a5, a6], n] - S2[SP[a1, a2], a3, a5, 
     SP[a4, a6], n] + S2[SP[a1, a2], a3, a6, SP[a4, a5], n] - 
    S2[SP[a1, a2], a3, SP[a5, a6], a4, n] - S2[SP[a1, a2], a4, a3, 
     SP[a5, a6], n] + S2[SP[a1, a2], a4, a6, SP[a3, a5], n] + 
    S2[SP[a1, a2], a6, a3, SP[a4, a5], n] + S2[SP[a1, a2], a6, a4, 
     SP[a3, a5], n] - S2[SP[a1, a2], a6, a5, SP[a3, a4], n] + 
    S2[SP[a1, a2], a6, SP[a3, a5], a4, n] + S2[a1, a2, a3, a4, SP[a5, a6], 
     n] + S2[a1, a2, a3, a5, SP[a4, a6], n] - S2[a1, a2, a3, a6, SP[a4, a5], 
     n] + S2[a1, a2, a3, SP[a5, a6], a4, n] + S2[a1, a2, a4, a3, SP[a5, a6], 
     n] - S2[a1, a2, a4, a6, SP[a3, a5], n] - S2[a1, a2, a6, a3, SP[a4, a5], 
     n] - S2[a1, a2, a6, a4, SP[a3, a5], n] + S2[a1, a2, a6, a5, SP[a3, a4], 
     n] - S2[a1, a2, a6, SP[a3, a5], a4, n] + 
    S2[a4, n]*S2[a1, a3, a2, a5, a6, n] + S2[a1, a3, a2, a5, SP[a4, a6], n] + 
    S2[a1, a3, a2, SP[a4, a5], a6, n] - S2[a2, n]*S2[a1, a3, a4, a5, a6, n] - 
    S2[a1, a3, a4, a5, SP[a2, a6], n] - S2[a1, a3, a4, SP[a2, a5], a6, n] + 
    S2[a4, n]*S2[a1, a3, a5, a2, a6, n] + S2[a1, a3, a5, a2, SP[a4, a6], n] - 
    S2[a2, n]*S2[a1, a3, a5, a4, a6, n] - S2[a1, a3, a5, a4, SP[a2, a6], n] + 
    S2[a4, n]*S2[a1, a3, a5, a6, a2, n] - 
    S2[a2, n]*S2[a1, a3, a5, a6, a4, n] - S2[a1, a3, a5, SP[a2, a6], a4, n] + 
    S2[a1, a3, a5, SP[a4, a6], a2, n] - S2[a1, a3, SP[a2, a5], a4, a6, n] - 
    S2[a1, a3, SP[a2, a5], a6, a4, n] + S2[a1, a3, SP[a4, a5], a2, a6, n] + 
    S2[a1, a3, SP[a4, a5], a6, a2, n] - S2[a2, n]*S2[a1, a4, a3, a5, a6, n] - 
    S2[a1, a4, a3, a5, SP[a2, a6], n] - S2[a1, a4, a3, SP[a2, a5], a6, n] - 
    S2[a1, a4, SP[a2, a3], a5, a6, n] - S2[a1, a6, a2, a3, SP[a4, a5], n] - 
    S2[a1, a6, a2, a4, SP[a3, a5], n] + S2[a1, a6, a2, a5, SP[a3, a4], n] - 
    S2[a1, a6, a2, SP[a3, a5], a4, n] + S2[a1, a6, a5, a2, SP[a3, a4], n] + 
    S2[a1, a6, a5, SP[a2, a3], a4, n] - S2[a1, SP[a2, a3], a4, a5, a6, n] - 
    S2[a1, SP[a2, a3], a5, a4, a6, n] - S2[a1, SP[a2, a3], a5, a6, a4, n] - 
    S2[a1, SP[a2, a4], a3, a5, a6, n] + S2[a1, SP[a3, a4], a2, a5, a6, n] + 
    S2[a1, SP[a3, a4], a5, a2, a6, n] + S2[a1, SP[a3, a4], a5, a6, a2, n] + 
    S2[a2, a1, a3, a4, SP[a5, a6], n] + S2[a2, a1, a3, a5, SP[a4, a6], n] - 
    S2[a2, a1, a3, a6, SP[a4, a5], n] + S2[a2, a1, a3, SP[a5, a6], a4, n] + 
    S2[a2, a1, a4, a3, SP[a5, a6], n] - S2[a2, a1, a4, a6, SP[a3, a5], n] - 
    S2[a2, a1, a6, a3, SP[a4, a5], n] - S2[a2, a1, a6, a4, SP[a3, a5], n] + 
    S2[a2, a1, a6, a5, SP[a3, a4], n] - S2[a2, a1, a6, SP[a3, a5], a4, n] + 
    S2[a2, a3, a1, a4, SP[a5, a6], n] - S2[a4, n]*S2[a2, a3, a1, a5, a6, n] - 
    S2[a2, a3, a1, a6, SP[a4, a5], n] - S2[a2, a3, a1, SP[a4, a5], a6, n] + 
    S2[a2, a3, a1, SP[a5, a6], a4, n] + S2[a2, a3, a4, a1, SP[a5, a6], n] + 
    S2[a2, a3, a4, SP[a1, a5], a6, n] - S2[a4, n]*S2[a2, a3, a5, a1, a6, n] + 
    S2[a2, a3, SP[a1, a5], a4, a6, n] + S2[a2, a3, SP[a1, a5], a6, a4, n] - 
    S2[a2, a3, SP[a4, a5], a1, a6, n] + S2[a2, a4, a1, a3, SP[a5, a6], n] - 
    S2[a2, a4, a1, a6, SP[a3, a5], n] + S2[a2, a4, a3, a1, SP[a5, a6], n] + 
    S2[a2, a4, a3, SP[a1, a5], a6, n] + S2[a2, a4, SP[a1, a3], a5, a6, n] + 
    S2[a2, SP[a1, a3], a4, a5, a6, n] + S2[a2, SP[a1, a3], a5, a4, a6, n] + 
    S2[a2, SP[a1, a3], a5, a6, a4, n] + S2[a2, SP[a1, a4], a3, a5, a6, n] - 
    S2[a2, SP[a3, a4], a1, a5, a6, n] - S2[a2, SP[a3, a4], a5, a1, a6, n] - 
    S2[a2, n]*S2[a4, a1, a3, a5, a6, n] - S2[a4, a1, a3, a5, SP[a2, a6], n] - 
    S2[a4, a1, a3, SP[a2, a5], a6, n] - S2[a4, a1, SP[a2, a3], a5, a6, n] + 
    S2[a1, n]*S2[a4, a2, a3, a5, a6, n] + S2[a4, a2, a3, a5, SP[a1, a6], n] + 
    S2[a4, a2, a3, SP[a1, a5], a6, n] + S2[a4, a2, SP[a1, a3], a5, a6, n] - 
    S2[a1, n]*S2[a6, a5, a3, a2, a4, n] - S2[a6, a5, a3, a2, SP[a1, a4], n] - 
    S2[a6, a5, a3, SP[a1, a2], a4, n] - S2[a6, a5, SP[a1, a3], a2, a4, n] - 
    S2[a6, SP[a1, a5], a3, a2, a4, n] + S2[SP[a1, a4], a2, a3, a5, a6, n] + 
    S2[SP[a1, a4], a3, a2, a5, a6, n] + S2[SP[a1, a4], a3, a5, a2, a6, n] + 
    S2[SP[a1, a4], a3, a5, a6, a2, n] - S2[SP[a1, a6], a5, a3, a2, a4, n] - 
    S2[SP[a2, a4], a1, a3, a5, a6, n] - S2[SP[a2, a4], a3, a1, a5, a6, n] - 
    S2[SP[a2, a4], a3, a5, a1, a6, n] + S2[a6, a1, a5, a3, a2, a4, n] + 
    S2[a6, a5, a1, a3, a2, a4, n] + S2[a6, a5, a3, a1, a2, a4, n] + 
    S2[a6, a5, a3, a2, a1, a4, n] + S2[a6, a5, a3, a2, a4, a1, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a4_, a2_, a3_, a6_, a1_, a5_, n_] :> 
  S2[a1, a5, a6, n]*S2[a2, a3, a4, n] + S2[a1, a6, a5, n]*S2[a2, a3, a4, n] + 
    S2[a1, a5, a6, n]*S2[a2, a4, a3, n] + S2[a1, a6, a5, n]*
     S2[a2, a4, a3, n] + S2[SP[a1, a2], SP[a3, a5], SP[a4, a6], n] + 
    S2[SP[a1, a2], SP[a3, a6], SP[a4, a5], n] + S2[SP[a1, a2], SP[a4, a5], 
     SP[a3, a6], n] + S2[SP[a1, a2], SP[a4, a6], SP[a3, a5], n] - 
    S2[a1, a2, SP[a3, a5], SP[a4, a6], n] - S2[a1, a2, SP[a3, a6], 
     SP[a4, a5], n] - S2[a1, a2, SP[a4, a5], SP[a3, a6], n] - 
    S2[a1, a2, SP[a4, a6], SP[a3, a5], n] - S2[a2, a4, n]*
     S2[a1, a5, a6, a3, n] + S2[a1, a5, SP[a2, a6], SP[a3, a4], n] - 
    S2[a2, a4, n]*S2[a1, a6, a3, a5, n] - S2[a2, a4, n]*
     S2[a1, a6, a5, a3, n] + S2[a1, a6, SP[a2, a3], SP[a4, a5], n] + 
    S2[a1, a6, SP[a2, a5], SP[a3, a4], n] - S2[a1, SP[a2, a5], a3, 
     SP[a4, a6], n] - S2[a1, SP[a2, a5], a4, SP[a3, a6], n] + 
    S2[a1, SP[a2, a5], a6, SP[a3, a4], n] - S2[a1, SP[a2, a5], SP[a3, a6], 
     a4, n] - S2[a1, SP[a2, a6], a4, SP[a3, a5], n] + 
    S2[a1, SP[a2, a6], a5, SP[a3, a4], n] + S2[a1, SP[a2, a6], SP[a3, a4], 
     a5, n] - S2[a1, SP[a2, a6], SP[a3, a5], a4, n] - 
    S2[a2, a1, SP[a3, a5], SP[a4, a6], n] - S2[a2, a1, SP[a3, a6], 
     SP[a4, a5], n] - S2[a2, a1, SP[a4, a5], SP[a3, a6], n] - 
    S2[a2, a1, SP[a4, a6], SP[a3, a5], n] + S2[a1, a5, n]*
     S2[a2, a4, a6, a3, n] - S2[a2, a4, SP[a1, a6], SP[a3, a5], n] + 
    S2[a1, a5, n]*S2[a2, a6, a3, a4, n] + S2[a1, a5, n]*
     S2[a2, a6, a4, a3, n] - S2[a2, a6, SP[a1, a3], SP[a4, a5], n] - 
    S2[a2, a6, SP[a1, a4], SP[a3, a5], n] - S2[a2, SP[a1, a3], a5, 
     SP[a4, a6], n] - S2[a2, SP[a1, a3], a6, SP[a4, a5], n] - 
    S2[a2, SP[a1, a3], SP[a4, a5], a6, n] - S2[a2, SP[a1, a3], SP[a4, a6], 
     a5, n] - S2[a2, SP[a1, a4], a5, SP[a3, a6], n] - 
    2*S2[a2, SP[a1, a4], a6, SP[a3, a5], n] - S2[a2, SP[a1, a4], SP[a3, a5], 
     a6, n] - S2[a2, SP[a1, a4], SP[a3, a6], a5, n] - 
    S2[a2, SP[a1, a4], SP[a5, a6], a3, n] - S2[a2, SP[a1, a6], a3, 
     SP[a4, a5], n] - S2[a2, SP[a1, a6], a4, SP[a3, a5], n] - 
    S2[a2, SP[a1, a6], SP[a3, a5], a4, n] - S2[a2, SP[a1, a6], SP[a4, a5], 
     a3, n] - S2[a1, a5, n]*S2[a3, a6, a2, a4, n] + 
    S2[a3, a6, SP[a1, a2], SP[a4, a5], n] + S2[a3, SP[a1, a6], a2, 
     SP[a4, a5], n] + S2[a3, SP[a1, a6], SP[a2, a5], a4, n] - 
    S2[SP[a1, a2], a3, a5, SP[a4, a6], n] - S2[SP[a1, a2], a3, a6, 
     SP[a4, a5], n] - S2[SP[a1, a2], a3, SP[a4, a5], a6, n] - 
    S2[SP[a1, a2], a3, SP[a4, a6], a5, n] - S2[SP[a1, a2], a4, a5, 
     SP[a3, a6], n] - 2*S2[SP[a1, a2], a4, a6, SP[a3, a5], n] - 
    S2[SP[a1, a2], a4, SP[a3, a5], a6, n] - S2[SP[a1, a2], a4, SP[a3, a6], 
     a5, n] - S2[SP[a1, a2], a4, SP[a5, a6], a3, n] - 
    S2[SP[a1, a2], a5, a3, SP[a4, a6], n] - S2[SP[a1, a2], a5, a4, 
     SP[a3, a6], n] + S2[SP[a1, a2], a5, a6, SP[a3, a4], n] - 
    S2[SP[a1, a2], a5, SP[a3, a6], a4, n] - S2[SP[a1, a2], a6, a3, 
     SP[a4, a5], n] - 2*S2[SP[a1, a2], a6, a4, SP[a3, a5], n] + 
    S2[SP[a1, a2], a6, a5, SP[a3, a4], n] + S2[SP[a1, a2], a6, SP[a3, a4], 
     a5, n] - 2*S2[SP[a1, a2], a6, SP[a3, a5], a4, n] - 
    S2[SP[a1, a2], a6, SP[a4, a5], a3, n] - S2[SP[a1, a2], SP[a3, a5], a4, 
     a6, n] - S2[SP[a1, a2], SP[a3, a5], a6, a4, n] - 
    S2[SP[a1, a2], SP[a3, a6], a4, a5, n] - S2[SP[a1, a2], SP[a3, a6], a5, 
     a4, n] - S2[SP[a1, a2], SP[a4, a5], a3, a6, n] - 
    S2[SP[a1, a2], SP[a4, a5], a6, a3, n] - S2[SP[a1, a2], SP[a5, a6], a3, 
     a4, n] - S2[SP[a1, a2], SP[a5, a6], a4, a3, n] + 
    S2[SP[a1, a3], a6, a2, SP[a4, a5], n] + S2[SP[a1, a3], a6, SP[a2, a5], 
     a4, n] + S2[SP[a1, a3], SP[a5, a6], a2, a4, n] + 
    S2[a1, a2, a3, a5, SP[a4, a6], n] + S2[a1, a2, a3, a6, SP[a4, a5], n] + 
    S2[a1, a2, a3, SP[a4, a5], a6, n] + S2[a1, a2, a3, SP[a4, a6], a5, n] + 
    S2[a1, a2, a4, a5, SP[a3, a6], n] + 2*S2[a1, a2, a4, a6, SP[a3, a5], n] + 
    S2[a1, a2, a4, SP[a3, a5], a6, n] + S2[a1, a2, a4, SP[a3, a6], a5, n] + 
    S2[a1, a2, a4, SP[a5, a6], a3, n] + S2[a1, a2, a5, a3, SP[a4, a6], n] + 
    S2[a1, a2, a5, a4, SP[a3, a6], n] - S2[a1, a2, a5, a6, SP[a3, a4], n] + 
    S2[a1, a2, a5, SP[a3, a6], a4, n] + S2[a1, a2, a6, a3, SP[a4, a5], n] + 
    2*S2[a1, a2, a6, a4, SP[a3, a5], n] - S2[a1, a2, a6, a5, SP[a3, a4], n] - 
    S2[a1, a2, a6, SP[a3, a4], a5, n] + 2*S2[a1, a2, a6, SP[a3, a5], a4, n] + 
    S2[a1, a2, a6, SP[a4, a5], a3, n] + S2[a1, a2, SP[a3, a5], a4, a6, n] + 
    S2[a1, a2, SP[a3, a5], a6, a4, n] + S2[a1, a2, SP[a3, a6], a4, a5, n] + 
    S2[a1, a2, SP[a3, a6], a5, a4, n] + S2[a1, a2, SP[a4, a5], a3, a6, n] + 
    S2[a1, a2, SP[a4, a5], a6, a3, n] + S2[a1, a2, SP[a5, a6], a3, a4, n] + 
    S2[a1, a2, SP[a5, a6], a4, a3, n] + S2[a6, n]*S2[a1, a3, a2, a4, a5, n] + 
    S2[a1, a3, a2, a4, SP[a5, a6], n] + S2[a6, n]*S2[a1, a3, a2, a5, a4, n] + 
    S2[a1, a3, a2, a5, SP[a4, a6], n] + S2[a1, a3, a2, SP[a4, a6], a5, n] + 
    S2[a1, a3, a2, SP[a5, a6], a4, n] + S2[a6, n]*S2[a1, a3, a4, a2, a5, n] + 
    S2[a1, a3, a4, a2, SP[a5, a6], n] + S2[a6, n]*S2[a1, a3, a4, a5, a2, n] - 
    S2[a2, n]*S2[a1, a3, a4, a5, a6, n] - 
    S2[a2, n]*S2[a1, a3, a4, a6, a5, n] - S2[a1, a3, a4, a6, SP[a2, a5], n] - 
    S2[a1, a3, a4, SP[a2, a5], a6, n] + S2[a1, a3, a4, SP[a5, a6], a2, n] + 
    S2[a6, n]*S2[a1, a3, a5, a2, a4, n] + S2[a1, a3, a5, a2, SP[a4, a6], n] + 
    S2[a6, n]*S2[a1, a3, a5, a4, a2, n] - 
    S2[a2, n]*S2[a1, a3, a5, a4, a6, n] - 
    S2[a2, n]*S2[a1, a3, a5, a6, a4, n] - S2[a1, a3, a5, a6, SP[a2, a4], n] - 
    S2[a1, a3, a5, SP[a2, a4], a6, n] + S2[a1, a3, a5, SP[a4, a6], a2, n] - 
    S2[a1, a3, a6, a2, SP[a4, a5], n] - S2[a2, n]*S2[a1, a3, a6, a4, a5, n] - 
    S2[a1, a3, a6, a4, SP[a2, a5], n] - S2[a2, n]*S2[a1, a3, a6, a5, a4, n] - 
    S2[a1, a3, a6, a5, SP[a2, a4], n] - S2[a1, a3, a6, SP[a2, a4], a5, n] - 
    2*S2[a1, a3, a6, SP[a2, a5], a4, n] - S2[a1, a3, SP[a2, a4], a5, a6, n] - 
    S2[a1, a3, SP[a2, a4], a6, a5, n] - S2[a1, a3, SP[a2, a5], a4, a6, n] - 
    S2[a1, a3, SP[a2, a5], a6, a4, n] + S2[a1, a3, SP[a4, a6], a2, a5, n] + 
    S2[a1, a3, SP[a4, a6], a5, a2, n] + S2[a1, a3, SP[a5, a6], a4, a2, n] + 
    S2[a6, n]*S2[a1, a4, a2, a3, a5, n] + S2[a1, a4, a2, a3, SP[a5, a6], n] + 
    S2[a6, n]*S2[a1, a4, a2, a5, a3, n] + S2[a1, a4, a2, a5, SP[a3, a6], n] + 
    S2[a1, a4, a2, SP[a3, a6], a5, n] + S2[a1, a4, a2, SP[a5, a6], a3, n] + 
    S2[a6, n]*S2[a1, a4, a3, a2, a5, n] + S2[a1, a4, a3, a2, SP[a5, a6], n] + 
    S2[a6, n]*S2[a1, a4, a3, a5, a2, n] - 
    S2[a2, n]*S2[a1, a4, a3, a5, a6, n] - 
    S2[a2, n]*S2[a1, a4, a3, a6, a5, n] - S2[a1, a4, a3, a6, SP[a2, a5], n] - 
    S2[a1, a4, a3, SP[a2, a5], a6, n] + S2[a1, a4, a3, SP[a5, a6], a2, n] + 
    S2[a6, n]*S2[a1, a4, a5, a2, a3, n] + S2[a1, a4, a5, a2, SP[a3, a6], n] + 
    S2[a6, n]*S2[a1, a4, a5, a3, a2, n] - 
    S2[a2, n]*S2[a1, a4, a5, a3, a6, n] - 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] - S2[a1, a4, a5, a6, SP[a2, a3], n] - 
    S2[a1, a4, a5, SP[a2, a3], a6, n] + S2[a1, a4, a5, SP[a3, a6], a2, n] - 
    S2[a2, n]*S2[a1, a4, a6, a3, a5, n] - S2[a1, a4, a6, a3, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a4, a6, a5, a3, n] - S2[a1, a4, a6, a5, SP[a2, a3], n] - 
    S2[a1, a4, a6, SP[a2, a3], a5, n] - S2[a1, a4, a6, SP[a2, a5], a3, n] - 
    S2[a1, a4, SP[a2, a3], a5, a6, n] - S2[a1, a4, SP[a2, a3], a6, a5, n] - 
    S2[a1, a4, SP[a2, a5], a3, a6, n] - S2[a1, a4, SP[a2, a5], a6, a3, n] + 
    S2[a1, a4, SP[a3, a6], a2, a5, n] + S2[a1, a4, SP[a3, a6], a5, a2, n] + 
    S2[a1, a4, SP[a5, a6], a2, a3, n] + S2[a1, a4, SP[a5, a6], a3, a2, n] + 
    S2[a1, a5, a2, a3, SP[a4, a6], n] + S2[a1, a5, a2, a4, SP[a3, a6], n] - 
    S2[a1, a5, a2, a6, SP[a3, a4], n] + S2[a1, a5, a2, SP[a3, a6], a4, n] + 
    S2[a6, n]*S2[a1, a5, a3, a2, a4, n] + S2[a1, a5, a3, a2, SP[a4, a6], n] + 
    S2[a6, n]*S2[a1, a5, a3, a4, a2, n] - 
    S2[a2, n]*S2[a1, a5, a3, a4, a6, n] - 
    S2[a2, n]*S2[a1, a5, a3, a6, a4, n] - S2[a1, a5, a3, a6, SP[a2, a4], n] - 
    S2[a1, a5, a3, SP[a2, a4], a6, n] + S2[a1, a5, a3, SP[a4, a6], a2, n] + 
    S2[a6, n]*S2[a1, a5, a4, a2, a3, n] + S2[a1, a5, a4, a2, SP[a3, a6], n] + 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] - 
    S2[a2, n]*S2[a1, a5, a4, a3, a6, n] - 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] - S2[a1, a5, a4, a6, SP[a2, a3], n] - 
    S2[a1, a5, a4, SP[a2, a3], a6, n] + S2[a1, a5, a4, SP[a3, a6], a2, n] + 
    S2[a3, n]*S2[a1, a5, a6, a2, a4, n] - 
    S2[a2, n]*S2[a1, a5, a6, a3, a4, n] - S2[a1, a5, a6, a3, SP[a2, a4], n] - 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] - S2[a1, a5, a6, a4, SP[a2, a3], n] - 
    S2[a1, a5, a6, SP[a2, a3], a4, n] - S2[a1, a5, a6, SP[a2, a4], a3, n] - 
    S2[a1, a5, SP[a2, a3], a4, a6, n] - S2[a1, a5, SP[a2, a3], a6, a4, n] - 
    S2[a1, a5, SP[a2, a4], a3, a6, n] - S2[a1, a5, SP[a2, a4], a6, a3, n] - 
    S2[a1, a5, SP[a2, a6], a3, a4, n] - S2[a1, a5, SP[a2, a6], a4, a3, n] + 
    2*S2[a1, a5, SP[a3, a6], a2, a4, n] + S2[a1, a5, SP[a3, a6], a4, a2, n] + 
    S2[a1, a5, SP[a4, a6], a2, a3, n] + S2[a1, a5, SP[a4, a6], a3, a2, n] + 
    S2[a3, n]*S2[a1, a6, a2, a4, a5, n] + 
    2*S2[a1, a6, a2, a4, SP[a3, a5], n] + 
    S2[a3, n]*S2[a1, a6, a2, a5, a4, n] + 
    2*S2[a1, a6, a2, SP[a3, a5], a4, n] - S2[a1, a6, a3, a2, SP[a4, a5], n] - 
    S2[a2, n]*S2[a1, a6, a3, a4, a5, n] - S2[a1, a6, a3, a4, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a6, a3, a5, a4, n] - S2[a1, a6, a3, a5, SP[a2, a4], n] - 
    S2[a1, a6, a3, SP[a2, a4], a5, n] - 2*S2[a1, a6, a3, SP[a2, a5], a4, n] - 
    S2[a2, n]*S2[a1, a6, a4, a3, a5, n] - S2[a1, a6, a4, a3, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a6, a4, a5, a3, n] - S2[a1, a6, a4, a5, SP[a2, a3], n] - 
    S2[a1, a6, a4, SP[a2, a3], a5, n] - S2[a1, a6, a4, SP[a2, a5], a3, n] + 
    S2[a3, n]*S2[a1, a6, a5, a2, a4, n] - 
    S2[a2, n]*S2[a1, a6, a5, a3, a4, n] - S2[a1, a6, a5, a3, SP[a2, a4], n] - 
    S2[a2, n]*S2[a1, a6, a5, a4, a3, n] - S2[a1, a6, a5, a4, SP[a2, a3], n] - 
    S2[a1, a6, a5, SP[a2, a3], a4, n] - S2[a1, a6, a5, SP[a2, a4], a3, n] - 
    S2[a1, a6, SP[a2, a3], a4, a5, n] - S2[a1, a6, SP[a2, a3], a5, a4, n] - 
    S2[a1, a6, SP[a2, a4], a3, a5, n] - S2[a1, a6, SP[a2, a4], a5, a3, n] - 
    S2[a1, a6, SP[a2, a5], a3, a4, n] - S2[a1, a6, SP[a2, a5], a4, a3, n] + 
    S2[a1, a6, SP[a3, a5], a2, a4, n] - S2[a1, SP[a2, a3], a4, a5, a6, n] - 
    S2[a1, SP[a2, a3], a4, a6, a5, n] - S2[a1, SP[a2, a3], a5, a4, a6, n] - 
    S2[a1, SP[a2, a3], a5, a6, a4, n] - S2[a1, SP[a2, a3], a6, a4, a5, n] - 
    S2[a1, SP[a2, a3], a6, a5, a4, n] - S2[a1, SP[a2, a4], a3, a5, a6, n] - 
    S2[a1, SP[a2, a4], a3, a6, a5, n] - S2[a1, SP[a2, a4], a5, a3, a6, n] - 
    S2[a1, SP[a2, a4], a5, a6, a3, n] - S2[a1, SP[a2, a4], a6, a3, a5, n] - 
    S2[a1, SP[a2, a4], a6, a5, a3, n] - S2[a1, SP[a2, a6], a3, a4, a5, n] - 
    S2[a1, SP[a2, a6], a3, a5, a4, n] - S2[a1, SP[a2, a6], a4, a3, a5, n] - 
    S2[a1, SP[a2, a6], a4, a5, a3, n] - S2[a1, SP[a2, a6], a5, a3, a4, n] - 
    S2[a1, SP[a2, a6], a5, a4, a3, n] + 2*S2[a1, SP[a3, a6], a2, a4, a5, n] + 
    2*S2[a1, SP[a3, a6], a2, a5, a4, n] + S2[a1, SP[a3, a6], a4, a2, a5, n] + 
    S2[a1, SP[a3, a6], a4, a5, a2, n] + 2*S2[a1, SP[a3, a6], a5, a2, a4, n] + 
    S2[a1, SP[a3, a6], a5, a4, a2, n] + S2[a1, SP[a4, a6], a2, a3, a5, n] + 
    S2[a1, SP[a4, a6], a2, a5, a3, n] + S2[a1, SP[a4, a6], a3, a2, a5, n] + 
    S2[a1, SP[a4, a6], a3, a5, a2, n] + S2[a1, SP[a4, a6], a5, a2, a3, n] + 
    S2[a1, SP[a4, a6], a5, a3, a2, n] + S2[a1, SP[a5, a6], a3, a2, a4, n] + 
    S2[a1, SP[a5, a6], a3, a4, a2, n] + S2[a1, SP[a5, a6], a4, a2, a3, n] + 
    S2[a1, SP[a5, a6], a4, a3, a2, n] + S2[a2, a1, a3, a5, SP[a4, a6], n] + 
    S2[a2, a1, a3, a6, SP[a4, a5], n] + S2[a2, a1, a3, SP[a4, a5], a6, n] + 
    S2[a2, a1, a3, SP[a4, a6], a5, n] + S2[a2, a1, a4, a5, SP[a3, a6], n] + 
    2*S2[a2, a1, a4, a6, SP[a3, a5], n] + S2[a2, a1, a4, SP[a3, a5], a6, n] + 
    S2[a2, a1, a4, SP[a3, a6], a5, n] + S2[a2, a1, a4, SP[a5, a6], a3, n] + 
    S2[a2, a1, a5, a3, SP[a4, a6], n] + S2[a2, a1, a5, a4, SP[a3, a6], n] - 
    S2[a2, a1, a5, a6, SP[a3, a4], n] + S2[a2, a1, a5, SP[a3, a6], a4, n] + 
    S2[a2, a1, a6, a3, SP[a4, a5], n] + 2*S2[a2, a1, a6, a4, SP[a3, a5], n] - 
    S2[a2, a1, a6, a5, SP[a3, a4], n] - S2[a2, a1, a6, SP[a3, a4], a5, n] + 
    2*S2[a2, a1, a6, SP[a3, a5], a4, n] + S2[a2, a1, a6, SP[a4, a5], a3, n] + 
    S2[a2, a1, SP[a3, a5], a4, a6, n] + S2[a2, a1, SP[a3, a5], a6, a4, n] + 
    S2[a2, a1, SP[a3, a6], a4, a5, n] + S2[a2, a1, SP[a3, a6], a5, a4, n] + 
    S2[a2, a1, SP[a4, a5], a3, a6, n] + S2[a2, a1, SP[a4, a5], a6, a3, n] + 
    S2[a2, a1, SP[a5, a6], a3, a4, n] + S2[a2, a1, SP[a5, a6], a4, a3, n] - 
    S2[a6, n]*S2[a2, a3, a1, a4, a5, n] - S2[a2, a3, a1, a4, SP[a5, a6], n] - 
    S2[a6, n]*S2[a2, a3, a1, a5, a4, n] + S2[a2, a3, a1, a6, SP[a4, a5], n] + 
    S2[a2, a3, a1, SP[a4, a5], a6, n] - S2[a2, a3, a1, SP[a5, a6], a4, n] - 
    S2[a6, n]*S2[a2, a3, a4, a1, a5, n] - S2[a2, a3, a4, a1, SP[a5, a6], n] - 
    S2[a2, a3, a4, SP[a1, a6], a5, n] + S2[a4, n]*S2[a2, a3, a6, a1, a5, n] + 
    S2[a2, a3, a6, a1, SP[a4, a5], n] + S2[a2, a3, a6, SP[a1, a4], a5, n] + 
    S2[a2, a3, SP[a1, a4], a5, a6, n] + S2[a2, a3, SP[a1, a4], a6, a5, n] - 
    S2[a2, a3, SP[a1, a6], a4, a5, n] - S2[a2, a3, SP[a1, a6], a5, a4, n] - 
    S2[a6, n]*S2[a2, a4, a1, a3, a5, n] - S2[a2, a4, a1, a3, SP[a5, a6], n] - 
    S2[a6, n]*S2[a2, a4, a1, a5, a3, n] + 
    2*S2[a2, a4, a1, a6, SP[a3, a5], n] + S2[a2, a4, a1, SP[a3, a5], a6, n] - 
    S2[a6, n]*S2[a2, a4, a3, a1, a5, n] - S2[a2, a4, a3, a1, SP[a5, a6], n] - 
    S2[a2, a4, a3, SP[a1, a6], a5, n] + S2[a2, a4, a6, a1, SP[a3, a5], n] + 
    S2[a2, a4, a6, SP[a1, a3], a5, n] + S2[a2, a4, SP[a1, a3], a5, a6, n] + 
    S2[a2, a4, SP[a1, a3], a6, a5, n] - S2[a2, a4, SP[a3, a6], a1, a5, n] + 
    S2[a2, a6, a1, a3, SP[a4, a5], n] - S2[a3, n]*S2[a2, a6, a1, a4, a5, n] - 
    S2[a3, n]*S2[a2, a6, a1, a5, a4, n] - S2[a2, a6, a1, a5, SP[a3, a4], n] - 
    S2[a2, a6, a1, SP[a3, a4], a5, n] + S2[a2, a6, a1, SP[a4, a5], a3, n] + 
    S2[a2, a6, a3, a1, SP[a4, a5], n] + S2[a2, a6, a3, SP[a1, a4], a5, n] + 
    S2[a2, a6, a4, a1, SP[a3, a5], n] + S2[a2, a6, a4, SP[a1, a3], a5, n] + 
    S2[a2, a6, SP[a1, a4], a3, a5, n] + S2[a2, a6, SP[a1, a4], a5, a3, n] + 
    S2[a2, SP[a1, a3], a4, a5, a6, n] + S2[a2, SP[a1, a3], a4, a6, a5, n] + 
    S2[a2, SP[a1, a3], a5, a4, a6, n] + S2[a2, SP[a1, a3], a5, a6, a4, n] + 
    S2[a2, SP[a1, a3], a6, a4, a5, n] + S2[a2, SP[a1, a3], a6, a5, a4, n] + 
    S2[a2, SP[a1, a4], a3, a5, a6, n] + S2[a2, SP[a1, a4], a3, a6, a5, n] + 
    S2[a2, SP[a1, a4], a5, a3, a6, n] + S2[a2, SP[a1, a4], a5, a6, a3, n] + 
    S2[a2, SP[a1, a4], a6, a3, a5, n] + S2[a2, SP[a1, a4], a6, a5, a3, n] + 
    S2[a2, SP[a1, a6], a3, a4, a5, n] + S2[a2, SP[a1, a6], a3, a5, a4, n] + 
    S2[a2, SP[a1, a6], a4, a3, a5, n] + S2[a2, SP[a1, a6], a4, a5, a3, n] + 
    S2[a2, SP[a1, a6], a5, a3, a4, n] + S2[a2, SP[a1, a6], a5, a4, a3, n] + 
    S2[a2, SP[a3, a4], a6, a1, a5, n] - 2*S2[a2, SP[a3, a6], a1, a4, a5, n] - 
    2*S2[a2, SP[a3, a6], a1, a5, a4, n] - S2[a2, SP[a3, a6], a4, a1, a5, n] - 
    S2[a2, SP[a4, a6], a1, a3, a5, n] - S2[a2, SP[a4, a6], a1, a5, a3, n] - 
    S2[a2, SP[a4, a6], a3, a1, a5, n] - S2[a3, a1, a6, a2, SP[a4, a5], n] - 
    S2[a3, a1, a6, SP[a2, a5], a4, n] - S2[a3, a1, SP[a5, a6], a2, a4, n] - 
    S2[a3, a6, a1, a2, SP[a4, a5], n] + S2[a2, n]*S2[a3, a6, a1, a4, a5, n] + 
    S2[a3, a6, a1, a4, SP[a2, a5], n] + S2[a2, n]*S2[a3, a6, a1, a5, a4, n] + 
    S2[a3, a6, a1, a5, SP[a2, a4], n] + S2[a3, a6, a1, SP[a2, a4], a5, n] - 
    S2[a3, a6, a2, a1, SP[a4, a5], n] - S2[a3, a6, a2, SP[a1, a4], a5, n] - 
    S2[a3, SP[a1, a6], a2, a4, a5, n] - S2[a3, SP[a1, a6], a2, a5, a4, n] - 
    S2[a3, SP[a1, a6], a5, a2, a4, n] + S2[a3, SP[a2, a6], a1, a4, a5, n] + 
    S2[a3, SP[a2, a6], a1, a5, a4, n] - S2[a3, n]*S2[a6, a1, a4, a2, a5, n] - 
    S2[a6, a1, a4, a2, SP[a3, a5], n] - S2[a3, n]*S2[a6, a1, a4, a5, a2, n] - 
    S2[a6, a1, a4, a5, SP[a2, a3], n] - S2[a6, a1, a4, SP[a2, a3], a5, n] - 
    S2[a6, a1, a4, SP[a3, a5], a2, n] - S2[a3, n]*S2[a6, a1, a5, a4, a2, n] - 
    S2[a6, a1, a5, a4, SP[a2, a3], n] - S2[a6, a1, a5, SP[a3, a4], a2, n] - 
    S2[a6, a1, SP[a3, a4], a2, a5, n] - S2[a6, a1, SP[a3, a4], a5, a2, n] - 
    S2[a6, a1, SP[a3, a5], a4, a2, n] + S2[a3, n]*S2[a6, a2, a4, a1, a5, n] + 
    S2[a6, a2, a4, a1, SP[a3, a5], n] + S2[a6, a2, a4, SP[a1, a3], a5, n] + 
    S2[a6, a2, SP[a3, a4], a1, a5, n] + S2[a2, n]*S2[a6, a3, a1, a4, a5, n] + 
    S2[a6, a3, a1, a4, SP[a2, a5], n] + S2[a2, n]*S2[a6, a3, a1, a5, a4, n] + 
    S2[a6, a3, a1, a5, SP[a2, a4], n] + S2[a6, a3, a1, SP[a2, a4], a5, n] + 
    S2[a6, a3, a1, SP[a2, a5], a4, n] + S2[a6, a3, SP[a1, a2], a4, a5, n] + 
    S2[a6, a3, SP[a1, a2], a5, a4, n] - S2[a6, SP[a1, a3], a4, a2, a5, n] - 
    S2[a6, SP[a1, a3], a4, a5, a2, n] - S2[a6, SP[a1, a3], a5, a4, a2, n] + 
    S2[a6, SP[a2, a3], a1, a4, a5, n] + S2[a6, SP[a2, a3], a1, a5, a4, n] + 
    S2[a6, SP[a2, a3], a4, a1, a5, n] + S2[SP[a1, a6], a3, a2, a4, a5, n] + 
    S2[SP[a1, a6], a3, a2, a5, a4, n] + S2[SP[a1, a6], a3, a4, a2, a5, n] + 
    S2[SP[a1, a6], a3, a4, a5, a2, n] + S2[SP[a1, a6], a3, a5, a2, a4, n] + 
    S2[SP[a1, a6], a3, a5, a4, a2, n] + S2[SP[a1, a6], a4, a2, a3, a5, n] + 
    S2[SP[a1, a6], a4, a2, a5, a3, n] + S2[SP[a1, a6], a4, a3, a2, a5, n] + 
    S2[SP[a1, a6], a4, a3, a5, a2, n] + S2[SP[a1, a6], a4, a5, a2, a3, n] + 
    S2[SP[a1, a6], a4, a5, a3, a2, n] + S2[SP[a1, a6], a5, a3, a2, a4, n] + 
    S2[SP[a1, a6], a5, a3, a4, a2, n] + S2[SP[a1, a6], a5, a4, a2, a3, n] + 
    S2[SP[a1, a6], a5, a4, a3, a2, n] + S2[SP[a2, a4], a3, a6, a1, a5, n] - 
    S2[SP[a2, a6], a3, a4, a1, a5, n] - S2[SP[a2, a6], a4, a1, a3, a5, n] - 
    S2[SP[a2, a6], a4, a1, a5, a3, n] - S2[SP[a2, a6], a4, a3, a1, a5, n] - 
    S2[SP[a3, a6], a1, a4, a2, a5, n] - S2[SP[a3, a6], a1, a4, a5, a2, n] - 
    S2[SP[a3, a6], a1, a5, a4, a2, n] + S2[SP[a3, a6], a2, a4, a1, a5, n] - 
    S2[a6, a1, a3, a2, a4, a5, n] - S2[a6, a1, a3, a2, a5, a4, n] - 
    S2[a6, a1, a3, a5, a2, a4, n] - S2[a6, a1, a5, a3, a2, a4, n] - 
    S2[a6, a3, a1, a2, a4, a5, n] - S2[a6, a3, a1, a2, a5, a4, n] - 
    S2[a6, a3, a1, a5, a2, a4, n] - S2[a6, a3, a2, a1, a4, a5, n] - 
    S2[a6, a3, a2, a1, a5, a4, n] - S2[a6, a3, a2, a4, a1, a5, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a4_, a2_, a3_, a6_, a5_, a1_, n_] :> 
  -(S2[a1, a5, a6, n]*S2[a2, a3, a4, n]) - S2[a1, a5, a6, n]*
     S2[a2, a4, a3, n] - S2[SP[a1, a2], SP[a3, a5], SP[a4, a6], n] - 
    S2[SP[a1, a2], SP[a4, a5], SP[a3, a6], n] + S2[a1, a2, SP[a3, a5], 
     SP[a4, a6], n] + S2[a1, a2, SP[a4, a5], SP[a3, a6], n] + 
    S2[a2, a4, n]*S2[a1, a5, a6, a3, n] - S2[a1, a5, SP[a2, a6], SP[a3, a4], 
     n] + S2[a1, SP[a2, a5], a3, SP[a4, a6], n] + S2[a1, SP[a2, a5], a4, 
     SP[a3, a6], n] - S2[a1, SP[a2, a5], a6, SP[a3, a4], n] + 
    S2[a1, SP[a2, a5], SP[a3, a6], a4, n] + S2[a2, a1, SP[a3, a5], 
     SP[a4, a6], n] + S2[a2, a1, SP[a4, a5], SP[a3, a6], n] - 
    S2[a1, a5, n]*S2[a2, a4, a6, a3, n] + S2[a2, a4, SP[a1, a6], SP[a3, a5], 
     n] - S2[a1, a5, n]*S2[a2, a6, a3, a4, n] - 
    S2[a1, a5, n]*S2[a2, a6, a4, a3, n] + S2[a2, a6, SP[a1, a3], SP[a4, a5], 
     n] + S2[a2, a6, SP[a1, a4], SP[a3, a5], n] + S2[a2, SP[a1, a3], a5, 
     SP[a4, a6], n] + S2[a2, SP[a1, a3], SP[a4, a5], a6, n] + 
    S2[a2, SP[a1, a4], a5, SP[a3, a6], n] + S2[a2, SP[a1, a4], a6, 
     SP[a3, a5], n] + S2[a2, SP[a1, a4], SP[a3, a5], a6, n] + 
    S2[a2, SP[a1, a4], SP[a5, a6], a3, n] + S2[a2, SP[a1, a6], a3, 
     SP[a4, a5], n] + S2[a2, SP[a1, a6], a4, SP[a3, a5], n] + 
    S2[a2, SP[a1, a6], SP[a3, a5], a4, n] + S2[a2, SP[a1, a6], SP[a4, a5], 
     a3, n] + S2[a1, a5, n]*S2[a3, a6, a2, a4, n] - 
    S2[a3, a6, SP[a1, a2], SP[a4, a5], n] - S2[a3, SP[a1, a6], a2, 
     SP[a4, a5], n] - S2[a3, SP[a1, a6], SP[a2, a5], a4, n] + 
    S2[SP[a1, a2], a3, a5, SP[a4, a6], n] + S2[SP[a1, a2], a3, SP[a4, a5], 
     a6, n] + S2[SP[a1, a2], a4, a5, SP[a3, a6], n] + 
    S2[SP[a1, a2], a4, a6, SP[a3, a5], n] + S2[SP[a1, a2], a4, SP[a3, a5], 
     a6, n] + S2[SP[a1, a2], a4, SP[a5, a6], a3, n] + 
    S2[SP[a1, a2], a5, a3, SP[a4, a6], n] + S2[SP[a1, a2], a5, a4, 
     SP[a3, a6], n] - S2[SP[a1, a2], a5, a6, SP[a3, a4], n] + 
    S2[SP[a1, a2], a5, SP[a3, a6], a4, n] + S2[SP[a1, a2], a6, a3, 
     SP[a4, a5], n] + S2[SP[a1, a2], a6, a4, SP[a3, a5], n] + 
    S2[SP[a1, a2], a6, SP[a3, a5], a4, n] + S2[SP[a1, a2], a6, SP[a4, a5], 
     a3, n] + S2[SP[a1, a2], SP[a3, a5], a4, a6, n] + 
    S2[SP[a1, a2], SP[a3, a5], a6, a4, n] + S2[SP[a1, a2], SP[a4, a5], a3, 
     a6, n] + S2[SP[a1, a2], SP[a4, a5], a6, a3, n] + 
    S2[SP[a1, a2], SP[a5, a6], a3, a4, n] + S2[SP[a1, a2], SP[a5, a6], a4, 
     a3, n] - S2[SP[a1, a3], a6, a2, SP[a4, a5], n] - 
    S2[SP[a1, a3], a6, SP[a2, a5], a4, n] - S2[SP[a1, a3], SP[a5, a6], a2, 
     a4, n] - S2[a1, a2, a3, a5, SP[a4, a6], n] - S2[a1, a2, a3, SP[a4, a5], 
     a6, n] - S2[a1, a2, a4, a5, SP[a3, a6], n] - 
    S2[a1, a2, a4, a6, SP[a3, a5], n] - S2[a1, a2, a4, SP[a3, a5], a6, n] - 
    S2[a1, a2, a4, SP[a5, a6], a3, n] - S2[a1, a2, a5, a3, SP[a4, a6], n] - 
    S2[a1, a2, a5, a4, SP[a3, a6], n] + S2[a1, a2, a5, a6, SP[a3, a4], n] - 
    S2[a1, a2, a5, SP[a3, a6], a4, n] - S2[a1, a2, a6, a3, SP[a4, a5], n] - 
    S2[a1, a2, a6, a4, SP[a3, a5], n] - S2[a1, a2, a6, SP[a3, a5], a4, n] - 
    S2[a1, a2, a6, SP[a4, a5], a3, n] - S2[a1, a2, SP[a3, a5], a4, a6, n] - 
    S2[a1, a2, SP[a3, a5], a6, a4, n] - S2[a1, a2, SP[a4, a5], a3, a6, n] - 
    S2[a1, a2, SP[a4, a5], a6, a3, n] - S2[a1, a2, SP[a5, a6], a3, a4, n] - 
    S2[a1, a2, SP[a5, a6], a4, a3, n] - S2[a6, n]*S2[a1, a3, a2, a4, a5, n] - 
    S2[a1, a3, a2, a4, SP[a5, a6], n] - S2[a6, n]*S2[a1, a3, a2, a5, a4, n] - 
    S2[a1, a3, a2, a5, SP[a4, a6], n] + S2[a4, n]*S2[a1, a3, a2, a6, a5, n] + 
    S2[a1, a3, a2, a6, SP[a4, a5], n] - S2[a1, a3, a2, SP[a5, a6], a4, n] - 
    S2[a6, n]*S2[a1, a3, a4, a2, a5, n] - S2[a1, a3, a4, a2, SP[a5, a6], n] - 
    S2[a6, n]*S2[a1, a3, a4, a5, a2, n] + 
    S2[a2, n]*S2[a1, a3, a4, a5, a6, n] + S2[a1, a3, a4, SP[a2, a5], a6, n] - 
    S2[a1, a3, a4, SP[a2, a6], a5, n] - S2[a1, a3, a4, SP[a5, a6], a2, n] - 
    S2[a6, n]*S2[a1, a3, a5, a2, a4, n] - S2[a1, a3, a5, a2, SP[a4, a6], n] - 
    S2[a6, n]*S2[a1, a3, a5, a4, a2, n] + 
    S2[a2, n]*S2[a1, a3, a5, a4, a6, n] + 
    S2[a2, n]*S2[a1, a3, a5, a6, a4, n] + S2[a1, a3, a5, a6, SP[a2, a4], n] + 
    S2[a1, a3, a5, SP[a2, a4], a6, n] - S2[a1, a3, a5, SP[a4, a6], a2, n] + 
    S2[a4, n]*S2[a1, a3, a6, a2, a5, n] + 
    2*S2[a1, a3, a6, a2, SP[a4, a5], n] + 
    S2[a4, n]*S2[a1, a3, a6, a5, a2, n] + S2[a1, a3, a6, a5, SP[a2, a4], n] + 
    S2[a1, a3, a6, SP[a2, a4], a5, n] + S2[a1, a3, a6, SP[a2, a5], a4, n] + 
    S2[a1, a3, a6, SP[a4, a5], a2, n] + S2[a1, a3, SP[a2, a4], a5, a6, n] + 
    S2[a1, a3, SP[a2, a4], a6, a5, n] + S2[a1, a3, SP[a2, a5], a4, a6, n] + 
    S2[a1, a3, SP[a2, a5], a6, a4, n] - S2[a1, a3, SP[a2, a6], a4, a5, n] - 
    S2[a1, a3, SP[a2, a6], a5, a4, n] - S2[a1, a3, SP[a5, a6], a4, a2, n] - 
    S2[a6, n]*S2[a1, a4, a2, a3, a5, n] - S2[a1, a4, a2, a3, SP[a5, a6], n] - 
    S2[a6, n]*S2[a1, a4, a2, a5, a3, n] - S2[a1, a4, a2, a5, SP[a3, a6], n] - 
    S2[a1, a4, a2, SP[a3, a6], a5, n] - S2[a1, a4, a2, SP[a5, a6], a3, n] - 
    S2[a6, n]*S2[a1, a4, a3, a2, a5, n] - S2[a1, a4, a3, a2, SP[a5, a6], n] - 
    S2[a6, n]*S2[a1, a4, a3, a5, a2, n] + 
    S2[a2, n]*S2[a1, a4, a3, a5, a6, n] + S2[a1, a4, a3, SP[a2, a5], a6, n] - 
    S2[a1, a4, a3, SP[a2, a6], a5, n] - S2[a1, a4, a3, SP[a5, a6], a2, n] - 
    S2[a6, n]*S2[a1, a4, a5, a2, a3, n] - S2[a1, a4, a5, a2, SP[a3, a6], n] - 
    S2[a6, n]*S2[a1, a4, a5, a3, a2, n] + 
    S2[a2, n]*S2[a1, a4, a5, a3, a6, n] + 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] + S2[a1, a4, a5, a6, SP[a2, a3], n] + 
    S2[a1, a4, a5, SP[a2, a3], a6, n] - S2[a1, a4, a5, SP[a3, a6], a2, n] + 
    S2[a2, n]*S2[a1, a4, a6, a3, a5, n] + S2[a1, a4, a6, a3, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a4, a6, a5, a3, n] + S2[a1, a4, a6, a5, SP[a2, a3], n] + 
    S2[a1, a4, a6, SP[a2, a3], a5, n] + S2[a1, a4, a6, SP[a2, a5], a3, n] + 
    S2[a1, a4, SP[a2, a3], a5, a6, n] + S2[a1, a4, SP[a2, a5], a3, a6, n] + 
    S2[a1, a4, SP[a2, a5], a6, a3, n] - S2[a1, a4, SP[a3, a6], a2, a5, n] - 
    S2[a1, a4, SP[a3, a6], a5, a2, n] - S2[a1, a4, SP[a5, a6], a2, a3, n] - 
    S2[a1, a4, SP[a5, a6], a3, a2, n] - S2[a1, a5, a2, a3, SP[a4, a6], n] - 
    S2[a1, a5, a2, a4, SP[a3, a6], n] + S2[a1, a5, a2, a6, SP[a3, a4], n] - 
    S2[a1, a5, a2, SP[a3, a6], a4, n] - S2[a6, n]*S2[a1, a5, a3, a2, a4, n] - 
    S2[a1, a5, a3, a2, SP[a4, a6], n] - S2[a6, n]*S2[a1, a5, a3, a4, a2, n] + 
    S2[a2, n]*S2[a1, a5, a3, a4, a6, n] + 
    S2[a2, n]*S2[a1, a5, a3, a6, a4, n] + S2[a1, a5, a3, a6, SP[a2, a4], n] + 
    S2[a1, a5, a3, SP[a2, a4], a6, n] - S2[a1, a5, a3, SP[a4, a6], a2, n] - 
    S2[a6, n]*S2[a1, a5, a4, a2, a3, n] - S2[a1, a5, a4, a2, SP[a3, a6], n] - 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] + 
    S2[a2, n]*S2[a1, a5, a4, a3, a6, n] + 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] + S2[a1, a5, a4, a6, SP[a2, a3], n] + 
    S2[a1, a5, a4, SP[a2, a3], a6, n] - S2[a1, a5, a4, SP[a3, a6], a2, n] - 
    S2[a3, n]*S2[a1, a5, a6, a2, a4, n] + 
    S2[a2, n]*S2[a1, a5, a6, a3, a4, n] + S2[a1, a5, a6, a3, SP[a2, a4], n] + 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] + S2[a1, a5, a6, a4, SP[a2, a3], n] + 
    S2[a1, a5, a6, SP[a2, a3], a4, n] + S2[a1, a5, a6, SP[a2, a4], a3, n] + 
    S2[a1, a5, SP[a2, a3], a4, a6, n] + S2[a1, a5, SP[a2, a3], a6, a4, n] + 
    S2[a1, a5, SP[a2, a4], a3, a6, n] + S2[a1, a5, SP[a2, a4], a6, a3, n] + 
    S2[a1, a5, SP[a2, a6], a3, a4, n] + S2[a1, a5, SP[a2, a6], a4, a3, n] - 
    2*S2[a1, a5, SP[a3, a6], a2, a4, n] - S2[a1, a5, SP[a3, a6], a4, a2, n] - 
    S2[a1, a5, SP[a4, a6], a2, a3, n] - S2[a1, a5, SP[a4, a6], a3, a2, n] - 
    S2[a3, n]*S2[a1, a6, a2, a4, a5, n] - S2[a1, a6, a2, a4, SP[a3, a5], n] - 
    S2[a3, n]*S2[a1, a6, a2, a5, a4, n] - S2[a1, a6, a2, a5, SP[a3, a4], n] - 
    S2[a1, a6, a2, SP[a3, a4], a5, n] - S2[a1, a6, a2, SP[a3, a5], a4, n] + 
    S2[a2, n]*S2[a1, a6, a3, a4, a5, n] + S2[a1, a6, a3, a4, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a6, a3, a5, a4, n] + S2[a1, a6, a3, a5, SP[a2, a4], n] + 
    S2[a1, a6, a3, SP[a2, a4], a5, n] + S2[a1, a6, a3, SP[a2, a5], a4, n] + 
    S2[a2, n]*S2[a1, a6, a4, a3, a5, n] + S2[a1, a6, a4, a3, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a6, a4, a5, a3, n] + S2[a1, a6, a4, a5, SP[a2, a3], n] + 
    S2[a1, a6, a4, SP[a2, a3], a5, n] + S2[a1, a6, a4, SP[a2, a5], a3, n] - 
    S2[a3, n]*S2[a1, a6, a5, a2, a4, n] - S2[a1, a6, a5, a2, SP[a3, a4], n] + 
    S2[a2, n]*S2[a1, a6, a5, a3, a4, n] + S2[a1, a6, a5, a3, SP[a2, a4], n] + 
    S2[a2, n]*S2[a1, a6, a5, a4, a3, n] + S2[a1, a6, a5, a4, SP[a2, a3], n] + 
    S2[a1, a6, a5, SP[a2, a4], a3, n] + S2[a1, a6, SP[a2, a4], a3, a5, n] + 
    S2[a1, a6, SP[a2, a4], a5, a3, n] + S2[a1, a6, SP[a2, a5], a3, a4, n] + 
    S2[a1, a6, SP[a2, a5], a4, a3, n] - S2[a1, a6, SP[a3, a5], a2, a4, n] + 
    S2[a1, SP[a2, a3], a4, a5, a6, n] + S2[a1, SP[a2, a3], a5, a4, a6, n] + 
    S2[a1, SP[a2, a3], a5, a6, a4, n] + S2[a1, SP[a2, a4], a3, a5, a6, n] + 
    S2[a1, SP[a2, a4], a5, a3, a6, n] + S2[a1, SP[a2, a4], a5, a6, a3, n] + 
    S2[a1, SP[a2, a4], a6, a3, a5, n] + S2[a1, SP[a2, a4], a6, a5, a3, n] + 
    S2[a1, SP[a2, a6], a3, a4, a5, n] + S2[a1, SP[a2, a6], a3, a5, a4, n] + 
    S2[a1, SP[a2, a6], a4, a3, a5, n] + S2[a1, SP[a2, a6], a4, a5, a3, n] + 
    S2[a1, SP[a2, a6], a5, a3, a4, n] + S2[a1, SP[a2, a6], a5, a4, a3, n] + 
    S2[a1, SP[a3, a4], a2, a6, a5, n] + S2[a1, SP[a3, a4], a6, a2, a5, n] + 
    S2[a1, SP[a3, a4], a6, a5, a2, n] - 2*S2[a1, SP[a3, a6], a2, a4, a5, n] - 
    2*S2[a1, SP[a3, a6], a2, a5, a4, n] - S2[a1, SP[a3, a6], a4, a2, a5, n] - 
    S2[a1, SP[a3, a6], a4, a5, a2, n] - 2*S2[a1, SP[a3, a6], a5, a2, a4, n] - 
    S2[a1, SP[a3, a6], a5, a4, a2, n] - S2[a1, SP[a4, a6], a2, a3, a5, n] - 
    S2[a1, SP[a4, a6], a2, a5, a3, n] - S2[a1, SP[a4, a6], a3, a2, a5, n] - 
    S2[a1, SP[a4, a6], a3, a5, a2, n] - S2[a1, SP[a4, a6], a5, a2, a3, n] - 
    S2[a1, SP[a4, a6], a5, a3, a2, n] - S2[a1, SP[a5, a6], a3, a2, a4, n] - 
    S2[a1, SP[a5, a6], a3, a4, a2, n] - S2[a1, SP[a5, a6], a4, a2, a3, n] - 
    S2[a1, SP[a5, a6], a4, a3, a2, n] - S2[a2, a1, a3, a5, SP[a4, a6], n] - 
    S2[a2, a1, a3, SP[a4, a5], a6, n] - S2[a2, a1, a4, a5, SP[a3, a6], n] - 
    S2[a2, a1, a4, a6, SP[a3, a5], n] - S2[a2, a1, a4, SP[a3, a5], a6, n] - 
    S2[a2, a1, a4, SP[a5, a6], a3, n] - S2[a2, a1, a5, a3, SP[a4, a6], n] - 
    S2[a2, a1, a5, a4, SP[a3, a6], n] + S2[a2, a1, a5, a6, SP[a3, a4], n] - 
    S2[a2, a1, a5, SP[a3, a6], a4, n] - S2[a2, a1, a6, a3, SP[a4, a5], n] - 
    S2[a2, a1, a6, a4, SP[a3, a5], n] - S2[a2, a1, a6, SP[a3, a5], a4, n] - 
    S2[a2, a1, a6, SP[a4, a5], a3, n] - S2[a2, a1, SP[a3, a5], a4, a6, n] - 
    S2[a2, a1, SP[a3, a5], a6, a4, n] - S2[a2, a1, SP[a4, a5], a3, a6, n] - 
    S2[a2, a1, SP[a4, a5], a6, a3, n] - S2[a2, a1, SP[a5, a6], a3, a4, n] - 
    S2[a2, a1, SP[a5, a6], a4, a3, n] + S2[a6, n]*S2[a2, a3, a1, a4, a5, n] + 
    S2[a2, a3, a1, a4, SP[a5, a6], n] + S2[a6, n]*S2[a2, a3, a1, a5, a4, n] - 
    S2[a4, n]*S2[a2, a3, a1, a6, a5, n] - S2[a2, a3, a1, a6, SP[a4, a5], n] - 
    S2[a2, a3, a1, SP[a4, a5], a6, n] + S2[a2, a3, a1, SP[a5, a6], a4, n] + 
    S2[a6, n]*S2[a2, a3, a4, a1, a5, n] + S2[a2, a3, a4, a1, SP[a5, a6], n] + 
    S2[a2, a3, a4, SP[a1, a6], a5, n] - S2[a4, n]*S2[a2, a3, a6, a1, a5, n] - 
    S2[a2, a3, a6, a1, SP[a4, a5], n] - S2[a2, a3, a6, SP[a1, a4], a5, n] - 
    S2[a2, a3, SP[a1, a4], a5, a6, n] - S2[a2, a3, SP[a1, a4], a6, a5, n] + 
    S2[a2, a3, SP[a1, a6], a4, a5, n] + S2[a2, a3, SP[a1, a6], a5, a4, n] + 
    S2[a6, n]*S2[a2, a4, a1, a3, a5, n] + S2[a2, a4, a1, a3, SP[a5, a6], n] + 
    S2[a6, n]*S2[a2, a4, a1, a5, a3, n] - S2[a2, a4, a1, a6, SP[a3, a5], n] - 
    S2[a2, a4, a1, SP[a3, a5], a6, n] + S2[a2, a4, a1, SP[a3, a6], a5, n] + 
    S2[a6, n]*S2[a2, a4, a3, a1, a5, n] + S2[a2, a4, a3, a1, SP[a5, a6], n] + 
    S2[a2, a4, a3, SP[a1, a6], a5, n] - S2[a2, a4, a6, a1, SP[a3, a5], n] - 
    S2[a2, a4, a6, SP[a1, a3], a5, n] - S2[a2, a4, SP[a1, a3], a5, a6, n] + 
    S2[a2, a4, SP[a3, a6], a1, a5, n] - S2[a2, a6, a1, a3, SP[a4, a5], n] + 
    S2[a3, n]*S2[a2, a6, a1, a4, a5, n] + 
    S2[a3, n]*S2[a2, a6, a1, a5, a4, n] + S2[a2, a6, a1, a5, SP[a3, a4], n] + 
    S2[a2, a6, a1, SP[a3, a4], a5, n] - S2[a2, a6, a1, SP[a4, a5], a3, n] - 
    S2[a2, a6, a3, a1, SP[a4, a5], n] - S2[a2, a6, a3, SP[a1, a4], a5, n] - 
    S2[a2, a6, a4, a1, SP[a3, a5], n] - S2[a2, a6, a4, SP[a1, a3], a5, n] - 
    S2[a2, a6, SP[a1, a4], a3, a5, n] - S2[a2, a6, SP[a1, a4], a5, a3, n] - 
    S2[a2, SP[a1, a3], a4, a5, a6, n] - S2[a2, SP[a1, a3], a5, a4, a6, n] - 
    S2[a2, SP[a1, a3], a5, a6, a4, n] - S2[a2, SP[a1, a4], a3, a5, a6, n] - 
    S2[a2, SP[a1, a4], a5, a3, a6, n] - S2[a2, SP[a1, a4], a5, a6, a3, n] - 
    S2[a2, SP[a1, a4], a6, a3, a5, n] - S2[a2, SP[a1, a4], a6, a5, a3, n] - 
    S2[a2, SP[a1, a6], a3, a4, a5, n] - S2[a2, SP[a1, a6], a3, a5, a4, n] - 
    S2[a2, SP[a1, a6], a4, a3, a5, n] - S2[a2, SP[a1, a6], a4, a5, a3, n] - 
    S2[a2, SP[a1, a6], a5, a3, a4, n] - S2[a2, SP[a1, a6], a5, a4, a3, n] - 
    S2[a2, SP[a3, a4], a1, a6, a5, n] - S2[a2, SP[a3, a4], a6, a1, a5, n] + 
    2*S2[a2, SP[a3, a6], a1, a4, a5, n] + 
    2*S2[a2, SP[a3, a6], a1, a5, a4, n] + S2[a2, SP[a3, a6], a4, a1, a5, n] + 
    S2[a2, SP[a4, a6], a1, a3, a5, n] + S2[a2, SP[a4, a6], a1, a5, a3, n] + 
    S2[a2, SP[a4, a6], a3, a1, a5, n] + S2[a3, a1, a6, a2, SP[a4, a5], n] + 
    S2[a3, a1, a6, SP[a2, a5], a4, n] + S2[a3, a1, SP[a5, a6], a2, a4, n] + 
    S2[a3, a6, a1, a2, SP[a4, a5], n] - S2[a2, n]*S2[a3, a6, a1, a4, a5, n] - 
    S2[a3, a6, a1, a4, SP[a2, a5], n] - S2[a2, n]*S2[a3, a6, a1, a5, a4, n] - 
    S2[a3, a6, a1, a5, SP[a2, a4], n] - S2[a3, a6, a1, SP[a2, a4], a5, n] + 
    S2[a3, a6, a2, a1, SP[a4, a5], n] + S2[a3, a6, a2, SP[a1, a4], a5, n] + 
    S2[a3, SP[a1, a6], a2, a4, a5, n] + S2[a3, SP[a1, a6], a2, a5, a4, n] + 
    S2[a3, SP[a1, a6], a5, a2, a4, n] - S2[a3, SP[a2, a6], a1, a4, a5, n] - 
    S2[a3, SP[a2, a6], a1, a5, a4, n] - S2[a2, n]*S2[a4, a1, a3, a6, a5, n] - 
    S2[a4, a1, a3, a6, SP[a2, a5], n] - S2[a4, a1, a3, SP[a2, a6], a5, n] - 
    S2[a4, a1, SP[a2, a3], a6, a5, n] + S2[a1, n]*S2[a4, a2, a3, a6, a5, n] + 
    S2[a4, a2, a3, a6, SP[a1, a5], n] + S2[a4, a2, a3, SP[a1, a6], a5, n] + 
    S2[a4, a2, SP[a1, a3], a6, a5, n] + S2[a3, n]*S2[a6, a1, a4, a2, a5, n] + 
    S2[a6, a1, a4, a2, SP[a3, a5], n] + S2[a3, n]*S2[a6, a1, a4, a5, a2, n] + 
    S2[a6, a1, a4, a5, SP[a2, a3], n] + S2[a6, a1, a4, SP[a2, a3], a5, n] + 
    S2[a6, a1, a4, SP[a3, a5], a2, n] + S2[a3, n]*S2[a6, a1, a5, a4, a2, n] + 
    S2[a6, a1, a5, a4, SP[a2, a3], n] + S2[a6, a1, a5, SP[a3, a4], a2, n] + 
    S2[a6, a1, SP[a3, a4], a2, a5, n] + S2[a6, a1, SP[a3, a4], a5, a2, n] + 
    S2[a6, a1, SP[a3, a5], a4, a2, n] - S2[a3, n]*S2[a6, a2, a4, a1, a5, n] - 
    S2[a6, a2, a4, a1, SP[a3, a5], n] - S2[a6, a2, a4, SP[a1, a3], a5, n] - 
    S2[a6, a2, SP[a3, a4], a1, a5, n] - S2[a2, n]*S2[a6, a3, a1, a4, a5, n] - 
    S2[a6, a3, a1, a4, SP[a2, a5], n] - S2[a2, n]*S2[a6, a3, a1, a5, a4, n] - 
    S2[a6, a3, a1, a5, SP[a2, a4], n] - S2[a6, a3, a1, SP[a2, a4], a5, n] - 
    S2[a6, a3, a1, SP[a2, a5], a4, n] + S2[a1, n]*S2[a6, a3, a2, a4, a5, n] + 
    S2[a6, a3, a2, a4, SP[a1, a5], n] + S2[a1, n]*S2[a6, a3, a2, a5, a4, n] + 
    S2[a6, a3, a2, a5, SP[a1, a4], n] + S2[a6, a3, a2, SP[a1, a4], a5, n] + 
    S2[a6, a3, a2, SP[a1, a5], a4, n] + S2[a1, n]*S2[a6, a3, a5, a2, a4, n] + 
    S2[a6, a3, a5, a2, SP[a1, a4], n] + S2[a6, a3, a5, SP[a1, a2], a4, n] + 
    S2[a6, a3, SP[a1, a5], a2, a4, n] + S2[a1, n]*S2[a6, a5, a3, a2, a4, n] + 
    S2[a6, a5, a3, a2, SP[a1, a4], n] + S2[a6, a5, a3, SP[a1, a2], a4, n] + 
    S2[a6, a5, SP[a1, a3], a2, a4, n] + S2[a6, SP[a1, a3], a2, a4, a5, n] + 
    S2[a6, SP[a1, a3], a2, a5, a4, n] + S2[a6, SP[a1, a3], a4, a2, a5, n] + 
    S2[a6, SP[a1, a3], a4, a5, a2, n] + S2[a6, SP[a1, a3], a5, a2, a4, n] + 
    S2[a6, SP[a1, a3], a5, a4, a2, n] + S2[a6, SP[a1, a5], a3, a2, a4, n] - 
    S2[a6, SP[a2, a3], a1, a4, a5, n] - S2[a6, SP[a2, a3], a1, a5, a4, n] - 
    S2[a6, SP[a2, a3], a4, a1, a5, n] + S2[SP[a1, a4], a2, a3, a6, a5, n] + 
    S2[SP[a1, a4], a3, a2, a6, a5, n] + S2[SP[a1, a4], a3, a6, a2, a5, n] + 
    S2[SP[a1, a4], a3, a6, a5, a2, n] - S2[SP[a1, a6], a3, a4, a2, a5, n] - 
    S2[SP[a1, a6], a3, a4, a5, a2, n] - S2[SP[a1, a6], a3, a5, a4, a2, n] - 
    S2[SP[a1, a6], a4, a2, a3, a5, n] - S2[SP[a1, a6], a4, a2, a5, a3, n] - 
    S2[SP[a1, a6], a4, a3, a2, a5, n] - S2[SP[a1, a6], a4, a3, a5, a2, n] - 
    S2[SP[a1, a6], a4, a5, a2, a3, n] - S2[SP[a1, a6], a4, a5, a3, a2, n] - 
    S2[SP[a1, a6], a5, a3, a4, a2, n] - S2[SP[a1, a6], a5, a4, a2, a3, n] - 
    S2[SP[a1, a6], a5, a4, a3, a2, n] - S2[SP[a2, a4], a1, a3, a6, a5, n] - 
    S2[SP[a2, a4], a3, a1, a6, a5, n] - S2[SP[a2, a4], a3, a6, a1, a5, n] + 
    S2[SP[a2, a6], a3, a4, a1, a5, n] + S2[SP[a2, a6], a4, a1, a3, a5, n] + 
    S2[SP[a2, a6], a4, a1, a5, a3, n] + S2[SP[a2, a6], a4, a3, a1, a5, n] + 
    S2[SP[a3, a6], a1, a4, a2, a5, n] + S2[SP[a3, a6], a1, a4, a5, a2, n] + 
    S2[SP[a3, a6], a1, a5, a4, a2, n] - S2[SP[a3, a6], a2, a4, a1, a5, n] - 
    S2[a6, a3, a2, a4, a5, a1, n] - S2[a6, a3, a2, a5, a1, a4, n] - 
    S2[a6, a3, a2, a5, a4, a1, n] - S2[a6, a3, a5, a1, a2, a4, n] - 
    S2[a6, a3, a5, a2, a1, a4, n] - S2[a6, a3, a5, a2, a4, a1, n] - 
    S2[a6, a5, a1, a3, a2, a4, n] - S2[a6, a5, a3, a1, a2, a4, n] - 
    S2[a6, a5, a3, a2, a1, a4, n] - S2[a6, a5, a3, a2, a4, a1, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a4_, a2_, a5_, a1_, a3_, a6_, n_] :> 
  -(S2[a1, a3, a6, n]*S2[a2, a4, a5, n]) - S2[a1, a3, a6, n]*
     S2[a2, a5, a4, n] - S2[SP[a1, a2], SP[a3, a4], SP[a5, a6], n] - 
    S2[SP[a1, a2], SP[a3, a5], SP[a4, a6], n] + S2[a1, a2, SP[a3, a4], 
     SP[a5, a6], n] + S2[a1, a2, SP[a3, a5], SP[a4, a6], n] + 
    S2[a2, a4, n]*S2[a1, a3, a5, a6, n] + S2[a2, a4, n]*
     S2[a1, a3, a6, a5, n] - S2[a1, a3, SP[a2, a5], SP[a4, a6], n] - 
    S2[a1, a3, SP[a2, a6], SP[a4, a5], n] - S2[a3, a6, n]*
     S2[a1, a5, a2, a4, n] + S2[a2, a4, n]*S2[a1, a5, a3, a6, n] + 
    S2[a1, SP[a2, a3], a4, SP[a5, a6], n] - S2[a1, SP[a2, a3], a6, 
     SP[a4, a5], n] - S2[a1, SP[a2, a3], SP[a4, a5], a6, n] + 
    S2[a1, SP[a2, a3], SP[a5, a6], a4, n] - S2[a1, SP[a2, a5], a3, 
     SP[a4, a6], n] - S2[a1, SP[a2, a5], SP[a3, a4], a6, n] + 
    S2[a1, SP[a3, a5], a2, SP[a4, a6], n] + S2[a1, SP[a3, a5], SP[a2, a6], 
     a4, n] + S2[a2, a1, SP[a3, a4], SP[a5, a6], n] + 
    S2[a2, a1, SP[a3, a5], SP[a4, a6], n] + S2[a2, SP[a1, a4], a3, 
     SP[a5, a6], n] + S2[a2, SP[a1, a4], SP[a3, a5], a6, n] + 
    S2[a2, SP[a1, a5], a3, SP[a4, a6], n] + S2[a2, SP[a1, a5], SP[a3, a4], 
     a6, n] + S2[SP[a1, a2], a3, a4, SP[a5, a6], n] - 
    S2[SP[a1, a2], a3, a6, SP[a4, a5], n] - S2[SP[a1, a2], a3, SP[a4, a5], 
     a6, n] + S2[SP[a1, a2], a3, SP[a5, a6], a4, n] + 
    S2[SP[a1, a2], a4, a3, SP[a5, a6], n] + S2[SP[a1, a2], a4, SP[a3, a5], 
     a6, n] + S2[SP[a1, a2], SP[a3, a5], a4, a6, n] + 
    S2[SP[a1, a2], SP[a3, a5], a6, a4, n] - S2[SP[a1, a2], SP[a4, a5], a3, 
     a6, n] + S2[SP[a1, a3], a5, a2, SP[a4, a6], n] + 
    S2[SP[a1, a3], a5, SP[a2, a6], a4, n] + S2[SP[a1, a3], SP[a5, a6], a2, 
     a4, n] - S2[a1, a2, a3, a4, SP[a5, a6], n] + 
    S2[a1, a2, a3, a6, SP[a4, a5], n] + S2[a1, a2, a3, SP[a4, a5], a6, n] - 
    S2[a1, a2, a3, SP[a5, a6], a4, n] - S2[a1, a2, a4, a3, SP[a5, a6], n] - 
    S2[a1, a2, a4, SP[a3, a5], a6, n] - S2[a1, a2, SP[a3, a5], a4, a6, n] - 
    S2[a1, a2, SP[a3, a5], a6, a4, n] + S2[a1, a2, SP[a4, a5], a3, a6, n] - 
    S2[a1, a3, a2, a4, SP[a5, a6], n] + S2[a1, a3, a2, a6, SP[a4, a5], n] + 
    S2[a1, a3, a2, SP[a4, a5], a6, n] - S2[a1, a3, a2, SP[a5, a6], a4, n] - 
    S2[a6, n]*S2[a1, a3, a5, a2, a4, n] - S2[a1, a3, a5, a2, SP[a4, a6], n] - 
    S2[a1, a3, a5, SP[a2, a6], a4, n] + S2[a1, a3, a6, a2, SP[a4, a5], n] + 
    S2[a1, a3, a6, SP[a2, a5], a4, n] + S2[a1, a3, SP[a2, a5], a4, a6, n] + 
    S2[a1, a3, SP[a2, a5], a6, a4, n] - 2*S2[a1, a3, SP[a5, a6], a2, a4, n] - 
    S2[a6, n]*S2[a1, a5, a2, a3, a4, n] - S2[a1, a5, a2, a3, SP[a4, a6], n] - 
    S2[a6, n]*S2[a1, a5, a2, a4, a3, n] + 
    S2[a3, n]*S2[a1, a5, a2, a4, a6, n] + 
    S2[a3, n]*S2[a1, a5, a2, a6, a4, n] + S2[a1, a5, a2, a6, SP[a3, a4], n] + 
    S2[a1, a5, a2, SP[a3, a4], a6, n] - S2[a1, a5, a2, SP[a4, a6], a3, n] - 
    S2[a6, n]*S2[a1, a5, a3, a2, a4, n] - S2[a1, a5, a3, a2, SP[a4, a6], n] - 
    S2[a1, a5, a3, SP[a2, a6], a4, n] + S2[a3, n]*S2[a1, a5, a6, a2, a4, n] + 
    S2[a1, a5, a6, a2, SP[a3, a4], n] + S2[a1, a5, a6, SP[a2, a3], a4, n] + 
    S2[a1, a5, SP[a2, a3], a4, a6, n] + S2[a1, a5, SP[a2, a3], a6, a4, n] - 
    S2[a1, a5, SP[a2, a6], a3, a4, n] - S2[a1, a5, SP[a2, a6], a4, a3, n] + 
    S2[a3, n]*S2[a1, a6, a5, a2, a4, n] + S2[a1, a6, a5, a2, SP[a3, a4], n] + 
    S2[a1, a6, a5, SP[a2, a3], a4, n] + S2[a1, a6, SP[a3, a5], a2, a4, n] + 
    S2[a1, SP[a2, a5], a3, a4, a6, n] + S2[a1, SP[a2, a5], a3, a6, a4, n] + 
    S2[a1, SP[a2, a5], a4, a3, a6, n] - S2[a1, SP[a5, a6], a2, a3, a4, n] - 
    S2[a1, SP[a5, a6], a2, a4, a3, n] - S2[a1, SP[a5, a6], a3, a2, a4, n] - 
    S2[a2, a1, a3, a4, SP[a5, a6], n] + S2[a2, a1, a3, a6, SP[a4, a5], n] + 
    S2[a2, a1, a3, SP[a4, a5], a6, n] - S2[a2, a1, a3, SP[a5, a6], a4, n] - 
    S2[a2, a1, a4, a3, SP[a5, a6], n] - S2[a2, a1, a4, SP[a3, a5], a6, n] - 
    S2[a2, a1, SP[a3, a5], a4, a6, n] - S2[a2, a1, SP[a3, a5], a6, a4, n] + 
    S2[a2, a1, SP[a4, a5], a3, a6, n] - S2[a2, a4, a1, a3, SP[a5, a6], n] - 
    S2[a2, a4, a1, SP[a3, a5], a6, n] - S2[a2, a4, SP[a1, a5], a3, a6, n] + 
    S2[a4, n]*S2[a2, a5, a1, a3, a6, n] - S2[a2, SP[a1, a5], a3, a4, a6, n] - 
    S2[a2, SP[a1, a5], a3, a6, a4, n] - S2[a2, SP[a1, a5], a4, a3, a6, n] + 
    S2[a2, SP[a4, a5], a1, a3, a6, n] - S2[a3, a1, a5, a2, SP[a4, a6], n] - 
    S2[a3, a1, a5, SP[a2, a6], a4, n] - S2[a3, a1, SP[a5, a6], a2, a4, n] - 
    S2[a3, SP[a1, a6], a5, a2, a4, n] + S2[a3, n]*S2[a6, a1, a5, a2, a4, n] + 
    S2[a6, a1, a5, a2, SP[a3, a4], n] + S2[a6, a1, a5, SP[a2, a3], a4, n] + 
    S2[a6, a1, SP[a3, a5], a2, a4, n] + S2[a6, SP[a1, a3], a5, a2, a4, n] - 
    S2[SP[a1, a6], a3, a5, a2, a4, n] - S2[SP[a1, a6], a5, a2, a3, a4, n] - 
    S2[SP[a1, a6], a5, a2, a4, a3, n] - S2[SP[a1, a6], a5, a3, a2, a4, n] + 
    S2[SP[a2, a4], a5, a1, a3, a6, n] + S2[SP[a3, a6], a1, a5, a2, a4, n] - 
    S2[a6, a3, a1, a5, a2, a4, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a4_, a2_, a5_, a1_, a6_, a3_, n_] :> 
  -(S2[a1, a6, a3, n]*S2[a2, a4, a5, n]) - S2[a1, a6, a3, n]*
     S2[a2, a5, a4, n] - S2[SP[a1, a2], SP[a4, a6], SP[a3, a5], n] - 
    S2[SP[a1, a2], SP[a5, a6], SP[a3, a4], n] + S2[a1, a2, SP[a4, a6], 
     SP[a3, a5], n] + S2[a1, a2, SP[a5, a6], SP[a3, a4], n] + 
    S2[a3, a6, n]*S2[a1, a5, a2, a4, n] + S2[a2, a4, n]*
     S2[a1, a5, a6, a3, n] - S2[a1, a5, SP[a2, a3], SP[a4, a6], n] - 
    S2[a1, a5, SP[a2, a6], SP[a3, a4], n] + S2[a2, a4, n]*
     S2[a1, a6, a3, a5, n] + S2[a2, a4, n]*S2[a1, a6, a5, a3, n] - 
    S2[a1, a6, SP[a2, a3], SP[a4, a5], n] - S2[a1, a6, SP[a2, a5], 
     SP[a3, a4], n] - S2[a1, SP[a2, a5], a6, SP[a3, a4], n] - 
    S2[a1, SP[a2, a5], SP[a4, a6], a3, n] - S2[a1, SP[a2, a6], a3, 
     SP[a4, a5], n] + S2[a1, SP[a2, a6], a4, SP[a3, a5], n] + 
    S2[a1, SP[a2, a6], SP[a3, a5], a4, n] - S2[a1, SP[a2, a6], SP[a4, a5], 
     a3, n] - S2[a1, SP[a3, a5], a2, SP[a4, a6], n] - 
    S2[a1, SP[a3, a5], SP[a2, a6], a4, n] + S2[a2, a1, SP[a4, a6], 
     SP[a3, a5], n] + S2[a2, a1, SP[a5, a6], SP[a3, a4], n] + 
    S2[a2, SP[a1, a4], a6, SP[a3, a5], n] + S2[a2, SP[a1, a4], SP[a5, a6], 
     a3, n] + S2[a2, SP[a1, a5], a6, SP[a3, a4], n] + 
    S2[a2, SP[a1, a5], SP[a4, a6], a3, n] + S2[SP[a1, a2], a4, a6, 
     SP[a3, a5], n] + S2[SP[a1, a2], a4, SP[a5, a6], a3, n] - 
    S2[SP[a1, a2], a6, a3, SP[a4, a5], n] + S2[SP[a1, a2], a6, a4, 
     SP[a3, a5], n] + S2[SP[a1, a2], a6, SP[a3, a5], a4, n] - 
    S2[SP[a1, a2], a6, SP[a4, a5], a3, n] - S2[SP[a1, a2], SP[a4, a5], a6, 
     a3, n] + S2[SP[a1, a2], SP[a5, a6], a3, a4, n] + 
    S2[SP[a1, a2], SP[a5, a6], a4, a3, n] - S2[SP[a1, a3], a5, a2, 
     SP[a4, a6], n] - S2[SP[a1, a3], a5, SP[a2, a6], a4, n] - 
    S2[SP[a1, a3], SP[a5, a6], a2, a4, n] - S2[a1, a2, a4, a6, SP[a3, a5], 
     n] - S2[a1, a2, a4, SP[a5, a6], a3, n] + S2[a1, a2, a6, a3, SP[a4, a5], 
     n] - S2[a1, a2, a6, a4, SP[a3, a5], n] - S2[a1, a2, a6, SP[a3, a5], a4, 
     n] + S2[a1, a2, a6, SP[a4, a5], a3, n] + S2[a1, a2, SP[a4, a5], a6, a3, 
     n] - S2[a1, a2, SP[a5, a6], a3, a4, n] - S2[a1, a2, SP[a5, a6], a4, a3, 
     n] + S2[a1, a3, a5, a2, SP[a4, a6], n] + S2[a1, a3, a5, SP[a2, a6], a4, 
     n] + S2[a1, a3, SP[a5, a6], a2, a4, n] + S2[a1, a5, a2, a3, SP[a4, a6], 
     n] - S2[a3, n]*S2[a1, a5, a2, a4, a6, n] - S2[a1, a5, a2, a4, 
     SP[a3, a6], n] - S2[a3, n]*S2[a1, a5, a2, a6, a4, n] - 
    S2[a1, a5, a2, SP[a3, a6], a4, n] + S2[a1, a5, a2, SP[a4, a6], a3, n] + 
    S2[a1, a5, a3, a2, SP[a4, a6], n] + S2[a1, a5, a3, SP[a2, a6], a4, n] - 
    S2[a3, n]*S2[a1, a5, a6, a2, a4, n] + S2[a1, a5, SP[a2, a6], a3, a4, n] + 
    S2[a1, a5, SP[a2, a6], a4, a3, n] - S2[a1, a5, SP[a3, a6], a2, a4, n] + 
    S2[a1, a6, a2, a3, SP[a4, a5], n] - S2[a1, a6, a2, a4, SP[a3, a5], n] - 
    S2[a1, a6, a2, SP[a3, a5], a4, n] + S2[a1, a6, a2, SP[a4, a5], a3, n] + 
    S2[a1, a6, a3, a2, SP[a4, a5], n] + S2[a1, a6, a3, SP[a2, a5], a4, n] - 
    S2[a3, n]*S2[a1, a6, a5, a2, a4, n] + S2[a1, a6, SP[a2, a5], a3, a4, n] + 
    S2[a1, a6, SP[a2, a5], a4, a3, n] - S2[a1, a6, SP[a3, a5], a2, a4, n] + 
    S2[a1, SP[a2, a5], a4, a6, a3, n] + S2[a1, SP[a2, a5], a6, a3, a4, n] + 
    S2[a1, SP[a2, a5], a6, a4, a3, n] - S2[a1, SP[a3, a6], a5, a2, a4, n] - 
    S2[a2, a1, a4, a6, SP[a3, a5], n] - S2[a2, a1, a4, SP[a5, a6], a3, n] + 
    S2[a2, a1, a6, a3, SP[a4, a5], n] - S2[a2, a1, a6, a4, SP[a3, a5], n] - 
    S2[a2, a1, a6, SP[a3, a5], a4, n] + S2[a2, a1, a6, SP[a4, a5], a3, n] + 
    S2[a2, a1, SP[a4, a5], a6, a3, n] - S2[a2, a1, SP[a5, a6], a3, a4, n] - 
    S2[a2, a1, SP[a5, a6], a4, a3, n] - S2[a2, a4, a1, a6, SP[a3, a5], n] - 
    S2[a2, a4, a1, SP[a5, a6], a3, n] - S2[a2, a4, SP[a1, a5], a6, a3, n] + 
    S2[a4, n]*S2[a2, a5, a1, a6, a3, n] - S2[a2, SP[a1, a5], a4, a6, a3, n] - 
    S2[a2, SP[a1, a5], a6, a3, a4, n] - S2[a2, SP[a1, a5], a6, a4, a3, n] + 
    S2[a2, SP[a4, a5], a1, a6, a3, n] + S2[a3, a1, a5, a2, SP[a4, a6], n] + 
    S2[a3, a1, a5, SP[a2, a6], a4, n] + S2[a3, a1, SP[a5, a6], a2, a4, n] + 
    S2[a3, SP[a1, a6], a5, a2, a4, n] - S2[a3, n]*S2[a6, a1, a5, a2, a4, n] - 
    S2[a6, a1, a5, a2, SP[a3, a4], n] - S2[a6, a1, a5, SP[a2, a3], a4, n] - 
    S2[a6, a1, SP[a3, a5], a2, a4, n] - S2[a6, SP[a1, a3], a5, a2, a4, n] + 
    S2[SP[a2, a4], a5, a1, a6, a3, n] - S2[SP[a3, a6], a1, a5, a2, a4, n] + 
    S2[a6, a1, a3, a5, a2, a4, n] + S2[a6, a1, a5, a2, a3, a4, n] + 
    S2[a6, a1, a5, a2, a4, a3, n] + S2[a6, a1, a5, a3, a2, a4, n] + 
    S2[a6, a3, a1, a5, a2, a4, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a4_, a2_, a5_, a3_, a1_, a6_, n_] :> 
  S2[a1, a3, a6, n]*S2[a2, a4, a5, n] + S2[a1, a6, a3, n]*S2[a2, a4, a5, n] + 
    S2[a1, a3, a6, n]*S2[a2, a5, a4, n] + S2[a1, a6, a3, n]*
     S2[a2, a5, a4, n] + S2[SP[a1, a2], SP[a3, a4], SP[a5, a6], n] + 
    S2[SP[a1, a2], SP[a3, a5], SP[a4, a6], n] + S2[SP[a1, a2], SP[a4, a6], 
     SP[a3, a5], n] + S2[SP[a1, a2], SP[a5, a6], SP[a3, a4], n] - 
    S2[a1, a2, SP[a3, a4], SP[a5, a6], n] - S2[a1, a2, SP[a3, a5], 
     SP[a4, a6], n] - S2[a1, a2, SP[a4, a6], SP[a3, a5], n] - 
    S2[a1, a2, SP[a5, a6], SP[a3, a4], n] - S2[a2, a4, n]*
     S2[a1, a3, a5, a6, n] - S2[a2, a4, n]*S2[a1, a3, a6, a5, n] + 
    S2[a1, a3, SP[a2, a5], SP[a4, a6], n] + S2[a1, a3, SP[a2, a6], 
     SP[a4, a5], n] - S2[a2, a4, n]*S2[a1, a6, a3, a5, n] + 
    S2[a1, a6, SP[a2, a3], SP[a4, a5], n] - S2[a1, SP[a2, a3], a4, 
     SP[a5, a6], n] + S2[a1, SP[a2, a3], a6, SP[a4, a5], n] + 
    S2[a1, SP[a2, a3], SP[a4, a5], a6, n] - S2[a1, SP[a2, a3], SP[a5, a6], 
     a4, n] + S2[a1, SP[a2, a6], a3, SP[a4, a5], n] - 
    S2[a1, SP[a2, a6], a4, SP[a3, a5], n] - S2[a1, SP[a2, a6], a5, 
     SP[a3, a4], n] - S2[a1, SP[a2, a6], SP[a3, a5], a4, n] - 
    S2[a2, a1, SP[a3, a4], SP[a5, a6], n] - S2[a2, a1, SP[a3, a5], 
     SP[a4, a6], n] - S2[a2, a1, SP[a4, a6], SP[a3, a5], n] - 
    S2[a2, a1, SP[a5, a6], SP[a3, a4], n] - S2[a1, a6, n]*
     S2[a2, a4, a5, a3, n] + S2[a2, a4, SP[a1, a5], SP[a3, a6], n] - 
    S2[a1, a6, n]*S2[a2, a5, a3, a4, n] - S2[a1, a6, n]*
     S2[a2, a5, a4, a3, n] + S2[a2, a5, SP[a1, a3], SP[a4, a6], n] + 
    S2[a2, a5, SP[a1, a4], SP[a3, a6], n] - S2[a2, SP[a1, a4], a3, 
     SP[a5, a6], n] + S2[a2, SP[a1, a4], a5, SP[a3, a6], n] - 
    S2[a2, SP[a1, a4], a6, SP[a3, a5], n] - S2[a2, SP[a1, a4], SP[a3, a5], 
     a6, n] + S2[a2, SP[a1, a5], a4, SP[a3, a6], n] - 
    S2[a2, SP[a1, a5], a6, SP[a3, a4], n] - S2[a2, SP[a1, a5], SP[a3, a4], 
     a6, n] + S2[a2, SP[a1, a5], SP[a3, a6], a4, n] - 
    S2[SP[a1, a2], a3, a4, SP[a5, a6], n] + S2[SP[a1, a2], a3, a6, 
     SP[a4, a5], n] + S2[SP[a1, a2], a3, SP[a4, a5], a6, n] - 
    S2[SP[a1, a2], a3, SP[a5, a6], a4, n] - S2[SP[a1, a2], a4, a3, 
     SP[a5, a6], n] + S2[SP[a1, a2], a4, a5, SP[a3, a6], n] - 
    S2[SP[a1, a2], a4, a6, SP[a3, a5], n] - S2[SP[a1, a2], a4, SP[a3, a5], 
     a6, n] + S2[SP[a1, a2], a5, a4, SP[a3, a6], n] - 
    S2[SP[a1, a2], a5, a6, SP[a3, a4], n] - S2[SP[a1, a2], a5, SP[a3, a4], 
     a6, n] + S2[SP[a1, a2], a5, SP[a3, a6], a4, n] + 
    S2[SP[a1, a2], a6, a3, SP[a4, a5], n] - S2[SP[a1, a2], a6, a4, 
     SP[a3, a5], n] - S2[SP[a1, a2], a6, a5, SP[a3, a4], n] - 
    S2[SP[a1, a2], a6, SP[a3, a5], a4, n] - S2[SP[a1, a2], SP[a3, a5], a4, 
     a6, n] - S2[SP[a1, a2], SP[a3, a5], a6, a4, n] + 
    S2[a1, a2, a3, a4, SP[a5, a6], n] - S2[a1, a2, a3, a6, SP[a4, a5], n] - 
    S2[a1, a2, a3, SP[a4, a5], a6, n] + S2[a1, a2, a3, SP[a5, a6], a4, n] + 
    S2[a1, a2, a4, a3, SP[a5, a6], n] - S2[a1, a2, a4, a5, SP[a3, a6], n] + 
    S2[a1, a2, a4, a6, SP[a3, a5], n] + S2[a1, a2, a4, SP[a3, a5], a6, n] - 
    S2[a1, a2, a5, a4, SP[a3, a6], n] + S2[a1, a2, a5, a6, SP[a3, a4], n] + 
    S2[a1, a2, a5, SP[a3, a4], a6, n] - S2[a1, a2, a5, SP[a3, a6], a4, n] - 
    S2[a1, a2, a6, a3, SP[a4, a5], n] + S2[a1, a2, a6, a4, SP[a3, a5], n] + 
    S2[a1, a2, a6, a5, SP[a3, a4], n] + S2[a1, a2, a6, SP[a3, a5], a4, n] + 
    S2[a1, a2, SP[a3, a5], a4, a6, n] + S2[a1, a2, SP[a3, a5], a6, a4, n] + 
    S2[a1, a3, a2, a4, SP[a5, a6], n] - S2[a1, a3, a2, a6, SP[a4, a5], n] - 
    S2[a1, a3, a2, SP[a4, a5], a6, n] + S2[a1, a3, a2, SP[a5, a6], a4, n] + 
    S2[a6, n]*S2[a1, a3, a5, a2, a4, n] - S2[a1, a3, a6, a2, SP[a4, a5], n] - 
    S2[a1, a3, a6, SP[a2, a5], a4, n] - S2[a1, a3, SP[a2, a5], a4, a6, n] - 
    S2[a1, a3, SP[a2, a5], a6, a4, n] + S2[a1, a3, SP[a5, a6], a2, a4, n] - 
    S2[a1, a6, a2, a3, SP[a4, a5], n] + S2[a1, a6, a2, a4, SP[a3, a5], n] + 
    S2[a1, a6, a2, a5, SP[a3, a4], n] + S2[a1, a6, a2, SP[a3, a5], a4, n] - 
    S2[a1, a6, a3, a2, SP[a4, a5], n] - S2[a1, a6, a3, SP[a2, a5], a4, n] + 
    S2[a1, SP[a3, a6], a5, a2, a4, n] + S2[a2, a1, a3, a4, SP[a5, a6], n] - 
    S2[a2, a1, a3, a6, SP[a4, a5], n] - S2[a2, a1, a3, SP[a4, a5], a6, n] + 
    S2[a2, a1, a3, SP[a5, a6], a4, n] + S2[a2, a1, a4, a3, SP[a5, a6], n] - 
    S2[a2, a1, a4, a5, SP[a3, a6], n] + S2[a2, a1, a4, a6, SP[a3, a5], n] + 
    S2[a2, a1, a4, SP[a3, a5], a6, n] - S2[a2, a1, a5, a4, SP[a3, a6], n] + 
    S2[a2, a1, a5, a6, SP[a3, a4], n] + S2[a2, a1, a5, SP[a3, a4], a6, n] - 
    S2[a2, a1, a5, SP[a3, a6], a4, n] - S2[a2, a1, a6, a3, SP[a4, a5], n] + 
    S2[a2, a1, a6, a4, SP[a3, a5], n] + S2[a2, a1, a6, a5, SP[a3, a4], n] + 
    S2[a2, a1, a6, SP[a3, a5], a4, n] + S2[a2, a1, SP[a3, a5], a4, a6, n] + 
    S2[a2, a1, SP[a3, a5], a6, a4, n] + S2[a2, a4, a1, a3, SP[a5, a6], n] - 
    S2[a2, a4, a1, a5, SP[a3, a6], n] + S2[a2, a4, a1, a6, SP[a3, a5], n] + 
    S2[a2, a4, a1, SP[a3, a5], a6, n] - S2[a2, a4, a5, a1, SP[a3, a6], n] - 
    S2[a2, a4, a5, SP[a1, a3], a6, n] - S2[a2, a5, a1, a4, SP[a3, a6], n] + 
    S2[a2, a5, a1, a6, SP[a3, a4], n] + S2[a2, a5, a1, SP[a3, a4], a6, n] - 
    S2[a2, a5, a1, SP[a3, a6], a4, n] + S2[a4, n]*S2[a2, a5, a3, a1, a6, n] - 
    S2[a2, a5, a4, a1, SP[a3, a6], n] - S2[a2, a5, a4, SP[a1, a3], a6, n] - 
    S2[a2, a5, SP[a1, a3], a4, a6, n] - S2[a2, a5, SP[a1, a3], a6, a4, n] + 
    S2[a2, a5, SP[a3, a4], a1, a6, n] + S2[a2, SP[a4, a5], a3, a1, a6, n] + 
    S2[SP[a1, a6], a3, a5, a2, a4, n] + S2[SP[a2, a4], a5, a3, a1, a6, n] - 
    S2[a6, a1, a3, a5, a2, a4, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a4_, a2_, a5_, a3_, a6_, a1_, n_] :> 
  -(S2[a1, a6, a3, n]*S2[a2, a4, a5, n]) - S2[a1, a6, a3, n]*
     S2[a2, a5, a4, n] - S2[SP[a1, a2], SP[a4, a6], SP[a3, a5], n] - 
    S2[SP[a1, a2], SP[a5, a6], SP[a3, a4], n] + S2[a1, a2, SP[a4, a6], 
     SP[a3, a5], n] + S2[a1, a2, SP[a5, a6], SP[a3, a4], n] + 
    S2[a2, a4, n]*S2[a1, a6, a3, a5, n] - S2[a1, a6, SP[a2, a3], SP[a4, a5], 
     n] - S2[a1, SP[a2, a6], a3, SP[a4, a5], n] + S2[a1, SP[a2, a6], a4, 
     SP[a3, a5], n] + S2[a1, SP[a2, a6], a5, SP[a3, a4], n] + 
    S2[a1, SP[a2, a6], SP[a3, a5], a4, n] + S2[a2, a1, SP[a4, a6], 
     SP[a3, a5], n] + S2[a2, a1, SP[a5, a6], SP[a3, a4], n] + 
    S2[a1, a6, n]*S2[a2, a4, a5, a3, n] - S2[a2, a4, SP[a1, a5], SP[a3, a6], 
     n] + S2[a1, a6, n]*S2[a2, a5, a3, a4, n] + 
    S2[a1, a6, n]*S2[a2, a5, a4, a3, n] - S2[a2, a5, SP[a1, a3], SP[a4, a6], 
     n] - S2[a2, a5, SP[a1, a4], SP[a3, a6], n] - S2[a2, SP[a1, a4], a5, 
     SP[a3, a6], n] + S2[a2, SP[a1, a4], a6, SP[a3, a5], n] - 
    S2[a2, SP[a1, a5], a3, SP[a4, a6], n] - S2[a2, SP[a1, a5], a4, 
     SP[a3, a6], n] + S2[a2, SP[a1, a5], a6, SP[a3, a4], n] - 
    S2[a2, SP[a1, a5], SP[a3, a6], a4, n] - S2[SP[a1, a2], a4, a5, 
     SP[a3, a6], n] + S2[SP[a1, a2], a4, a6, SP[a3, a5], n] - 
    S2[SP[a1, a2], a5, a3, SP[a4, a6], n] - S2[SP[a1, a2], a5, a4, 
     SP[a3, a6], n] + S2[SP[a1, a2], a5, a6, SP[a3, a4], n] - 
    S2[SP[a1, a2], a5, SP[a3, a6], a4, n] - S2[SP[a1, a2], a6, a3, 
     SP[a4, a5], n] + S2[SP[a1, a2], a6, a4, SP[a3, a5], n] + 
    S2[SP[a1, a2], a6, a5, SP[a3, a4], n] + S2[SP[a1, a2], a6, SP[a3, a5], 
     a4, n] + S2[a1, a2, a4, a5, SP[a3, a6], n] - 
    S2[a1, a2, a4, a6, SP[a3, a5], n] + S2[a1, a2, a5, a3, SP[a4, a6], n] + 
    S2[a1, a2, a5, a4, SP[a3, a6], n] - S2[a1, a2, a5, a6, SP[a3, a4], n] + 
    S2[a1, a2, a5, SP[a3, a6], a4, n] + S2[a1, a2, a6, a3, SP[a4, a5], n] - 
    S2[a1, a2, a6, a4, SP[a3, a5], n] - S2[a1, a2, a6, a5, SP[a3, a4], n] - 
    S2[a1, a2, a6, SP[a3, a5], a4, n] - S2[a2, n]*S2[a1, a4, a5, a3, a6, n] - 
    S2[a1, a4, a5, a3, SP[a2, a6], n] - S2[a1, a4, a5, SP[a2, a3], a6, n] - 
    S2[a1, a4, SP[a2, a5], a3, a6, n] + S2[a4, n]*S2[a1, a5, a2, a3, a6, n] + 
    S2[a1, a5, a2, a3, SP[a4, a6], n] + S2[a1, a5, a2, SP[a3, a4], a6, n] + 
    S2[a4, n]*S2[a1, a5, a3, a2, a6, n] + S2[a1, a5, a3, a2, SP[a4, a6], n] - 
    S2[a2, n]*S2[a1, a5, a3, a4, a6, n] - S2[a1, a5, a3, a4, SP[a2, a6], n] + 
    S2[a4, n]*S2[a1, a5, a3, a6, a2, n] - 
    S2[a2, n]*S2[a1, a5, a3, a6, a4, n] - S2[a1, a5, a3, SP[a2, a6], a4, n] + 
    S2[a1, a5, a3, SP[a4, a6], a2, n] - S2[a2, n]*S2[a1, a5, a4, a3, a6, n] - 
    S2[a1, a5, a4, a3, SP[a2, a6], n] - S2[a1, a5, a4, SP[a2, a3], a6, n] - 
    S2[a1, a5, SP[a2, a3], a4, a6, n] - S2[a1, a5, SP[a2, a3], a6, a4, n] + 
    S2[a1, a5, SP[a3, a4], a2, a6, n] + S2[a1, a5, SP[a3, a4], a6, a2, n] + 
    S2[a1, a6, a2, a3, SP[a4, a5], n] - S2[a1, a6, a2, a4, SP[a3, a5], n] - 
    S2[a1, a6, a2, a5, SP[a3, a4], n] - S2[a1, a6, a2, SP[a3, a5], a4, n] + 
    S2[a1, a6, a3, a2, SP[a4, a5], n] + S2[a1, a6, a3, SP[a2, a5], a4, n] - 
    S2[a1, SP[a2, a4], a5, a3, a6, n] - S2[a1, SP[a2, a5], a3, a4, a6, n] - 
    S2[a1, SP[a2, a5], a3, a6, a4, n] - S2[a1, SP[a2, a5], a4, a3, a6, n] + 
    S2[a1, SP[a4, a5], a2, a3, a6, n] + S2[a1, SP[a4, a5], a3, a2, a6, n] + 
    S2[a1, SP[a4, a5], a3, a6, a2, n] + S2[a2, a1, a4, a5, SP[a3, a6], n] - 
    S2[a2, a1, a4, a6, SP[a3, a5], n] + S2[a2, a1, a5, a3, SP[a4, a6], n] + 
    S2[a2, a1, a5, a4, SP[a3, a6], n] - S2[a2, a1, a5, a6, SP[a3, a4], n] + 
    S2[a2, a1, a5, SP[a3, a6], a4, n] + S2[a2, a1, a6, a3, SP[a4, a5], n] - 
    S2[a2, a1, a6, a4, SP[a3, a5], n] - S2[a2, a1, a6, a5, SP[a3, a4], n] - 
    S2[a2, a1, a6, SP[a3, a5], a4, n] + S2[a2, a4, a1, a5, SP[a3, a6], n] - 
    S2[a2, a4, a1, a6, SP[a3, a5], n] + S2[a2, a4, a5, a1, SP[a3, a6], n] + 
    S2[a2, a4, a5, SP[a1, a3], a6, n] + S2[a2, a4, SP[a1, a5], a3, a6, n] - 
    S2[a4, n]*S2[a2, a5, a1, a3, a6, n] + S2[a2, a5, a1, a4, SP[a3, a6], n] - 
    S2[a2, a5, a1, a6, SP[a3, a4], n] - S2[a2, a5, a1, SP[a3, a4], a6, n] + 
    S2[a2, a5, a1, SP[a3, a6], a4, n] - S2[a4, n]*S2[a2, a5, a3, a1, a6, n] + 
    S2[a2, a5, a4, a1, SP[a3, a6], n] + S2[a2, a5, a4, SP[a1, a3], a6, n] + 
    S2[a2, a5, SP[a1, a3], a4, a6, n] + S2[a2, a5, SP[a1, a3], a6, a4, n] - 
    S2[a2, a5, SP[a3, a4], a1, a6, n] + S2[a2, SP[a1, a4], a5, a3, a6, n] + 
    S2[a2, SP[a1, a5], a3, a4, a6, n] + S2[a2, SP[a1, a5], a3, a6, a4, n] + 
    S2[a2, SP[a1, a5], a4, a3, a6, n] - S2[a2, SP[a4, a5], a1, a3, a6, n] - 
    S2[a2, SP[a4, a5], a3, a1, a6, n] - S2[a2, n]*S2[a4, a1, a5, a3, a6, n] - 
    S2[a4, a1, a5, a3, SP[a2, a6], n] - S2[a4, a1, a5, SP[a2, a3], a6, n] - 
    S2[a4, a1, SP[a2, a5], a3, a6, n] + S2[a1, n]*S2[a4, a2, a5, a3, a6, n] + 
    S2[a4, a2, a5, a3, SP[a1, a6], n] + S2[a4, a2, a5, SP[a1, a3], a6, n] + 
    S2[a4, a2, SP[a1, a5], a3, a6, n] - S2[a1, n]*S2[a6, a3, a5, a2, a4, n] - 
    S2[a6, a3, a5, a2, SP[a1, a4], n] - S2[a6, a3, a5, SP[a1, a2], a4, n] - 
    S2[a6, a3, SP[a1, a5], a2, a4, n] - S2[a6, SP[a1, a3], a5, a2, a4, n] + 
    S2[SP[a1, a4], a2, a5, a3, a6, n] + S2[SP[a1, a4], a5, a2, a3, a6, n] + 
    S2[SP[a1, a4], a5, a3, a2, a6, n] + S2[SP[a1, a4], a5, a3, a6, a2, n] - 
    S2[SP[a1, a6], a3, a5, a2, a4, n] - S2[SP[a2, a4], a1, a5, a3, a6, n] - 
    S2[SP[a2, a4], a5, a1, a3, a6, n] - S2[SP[a2, a4], a5, a3, a1, a6, n] + 
    S2[a6, a1, a3, a5, a2, a4, n] + S2[a6, a3, a1, a5, a2, a4, n] + 
    S2[a6, a3, a5, a1, a2, a4, n] + S2[a6, a3, a5, a2, a1, a4, n] + 
    S2[a6, a3, a5, a2, a4, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a4_, a2_, a5_, a6_, a1_, a3_, n_] :> 
  S2[a1, a3, a6, n]*S2[a2, a4, a5, n] + S2[a1, a6, a3, n]*S2[a2, a4, a5, n] + 
    S2[a1, a3, a6, n]*S2[a2, a5, a4, n] + S2[a1, a6, a3, n]*
     S2[a2, a5, a4, n] + S2[SP[a1, a2], SP[a3, a4], SP[a5, a6], n] + 
    S2[SP[a1, a2], SP[a3, a5], SP[a4, a6], n] + S2[SP[a1, a2], SP[a4, a6], 
     SP[a3, a5], n] + S2[SP[a1, a2], SP[a5, a6], SP[a3, a4], n] - 
    S2[a1, a2, SP[a3, a4], SP[a5, a6], n] - S2[a1, a2, SP[a3, a5], 
     SP[a4, a6], n] - S2[a1, a2, SP[a4, a6], SP[a3, a5], n] - 
    S2[a1, a2, SP[a5, a6], SP[a3, a4], n] - S2[a2, a4, n]*
     S2[a1, a3, a6, a5, n] + S2[a1, a3, SP[a2, a6], SP[a4, a5], n] - 
    S2[a2, a4, n]*S2[a1, a6, a3, a5, n] - S2[a2, a4, n]*
     S2[a1, a6, a5, a3, n] + S2[a1, a6, SP[a2, a3], SP[a4, a5], n] + 
    S2[a1, a6, SP[a2, a5], SP[a3, a4], n] - S2[a1, SP[a2, a3], a4, 
     SP[a5, a6], n] - S2[a1, SP[a2, a3], a5, SP[a4, a6], n] + 
    S2[a1, SP[a2, a3], a6, SP[a4, a5], n] - S2[a1, SP[a2, a3], SP[a5, a6], 
     a4, n] + S2[a1, SP[a2, a6], a3, SP[a4, a5], n] - 
    S2[a1, SP[a2, a6], a4, SP[a3, a5], n] - S2[a1, SP[a2, a6], SP[a3, a5], 
     a4, n] + S2[a1, SP[a2, a6], SP[a4, a5], a3, n] - 
    S2[a2, a1, SP[a3, a4], SP[a5, a6], n] - S2[a2, a1, SP[a3, a5], 
     SP[a4, a6], n] - S2[a2, a1, SP[a4, a6], SP[a3, a5], n] - 
    S2[a2, a1, SP[a5, a6], SP[a3, a4], n] + S2[a1, a3, n]*
     S2[a2, a4, a6, a5, n] - S2[a2, a4, SP[a1, a6], SP[a3, a5], n] + 
    S2[a1, a3, n]*S2[a2, a6, a4, a5, n] + S2[a1, a3, n]*
     S2[a2, a6, a5, a4, n] - S2[a2, a6, SP[a1, a4], SP[a3, a5], n] - 
    S2[a2, a6, SP[a1, a5], SP[a3, a4], n] - S2[a2, SP[a1, a4], a3, 
     SP[a5, a6], n] - 2*S2[a2, SP[a1, a4], a6, SP[a3, a5], n] - 
    S2[a2, SP[a1, a4], SP[a3, a5], a6, n] - S2[a2, SP[a1, a4], SP[a3, a6], 
     a5, n] - S2[a2, SP[a1, a4], SP[a5, a6], a3, n] - 
    S2[a2, SP[a1, a5], a3, SP[a4, a6], n] - S2[a2, SP[a1, a5], a6, 
     SP[a3, a4], n] - S2[a2, SP[a1, a5], SP[a3, a4], a6, n] - 
    S2[a2, SP[a1, a5], SP[a4, a6], a3, n] - S2[a2, SP[a1, a6], a4, 
     SP[a3, a5], n] - S2[a2, SP[a1, a6], a5, SP[a3, a4], n] - 
    S2[a2, SP[a1, a6], SP[a3, a4], a5, n] - S2[a2, SP[a1, a6], SP[a3, a5], 
     a4, n] - S2[a1, a3, n]*S2[a5, a6, a2, a4, n] + 
    S2[a5, a6, SP[a1, a2], SP[a3, a4], n] + S2[a5, SP[a1, a6], a2, 
     SP[a3, a4], n] + S2[a5, SP[a1, a6], SP[a2, a3], a4, n] - 
    S2[SP[a1, a2], a3, a4, SP[a5, a6], n] - S2[SP[a1, a2], a3, a5, 
     SP[a4, a6], n] + S2[SP[a1, a2], a3, a6, SP[a4, a5], n] - 
    S2[SP[a1, a2], a3, SP[a5, a6], a4, n] - S2[SP[a1, a2], a4, a3, 
     SP[a5, a6], n] - 2*S2[SP[a1, a2], a4, a6, SP[a3, a5], n] - 
    S2[SP[a1, a2], a4, SP[a3, a5], a6, n] - S2[SP[a1, a2], a4, SP[a3, a6], 
     a5, n] - S2[SP[a1, a2], a4, SP[a5, a6], a3, n] - 
    S2[SP[a1, a2], a5, a3, SP[a4, a6], n] - S2[SP[a1, a2], a5, a6, 
     SP[a3, a4], n] - S2[SP[a1, a2], a5, SP[a3, a4], a6, n] - 
    S2[SP[a1, a2], a5, SP[a4, a6], a3, n] + S2[SP[a1, a2], a6, a3, 
     SP[a4, a5], n] - 2*S2[SP[a1, a2], a6, a4, SP[a3, a5], n] - 
    S2[SP[a1, a2], a6, a5, SP[a3, a4], n] - S2[SP[a1, a2], a6, SP[a3, a4], 
     a5, n] - 2*S2[SP[a1, a2], a6, SP[a3, a5], a4, n] + 
    S2[SP[a1, a2], a6, SP[a4, a5], a3, n] - S2[SP[a1, a2], SP[a3, a4], a5, 
     a6, n] - S2[SP[a1, a2], SP[a3, a4], a6, a5, n] - 
    S2[SP[a1, a2], SP[a3, a5], a4, a6, n] - S2[SP[a1, a2], SP[a3, a5], a6, 
     a4, n] - S2[SP[a1, a2], SP[a3, a6], a4, a5, n] - 
    S2[SP[a1, a2], SP[a3, a6], a5, a4, n] - S2[SP[a1, a2], SP[a5, a6], a3, 
     a4, n] - S2[SP[a1, a2], SP[a5, a6], a4, a3, n] + 
    S2[SP[a1, a5], a6, a2, SP[a3, a4], n] + S2[SP[a1, a5], a6, SP[a2, a3], 
     a4, n] + S2[SP[a1, a5], SP[a3, a6], a2, a4, n] + 
    S2[a1, a2, a3, a4, SP[a5, a6], n] + S2[a1, a2, a3, a5, SP[a4, a6], n] - 
    S2[a1, a2, a3, a6, SP[a4, a5], n] + S2[a1, a2, a3, SP[a5, a6], a4, n] + 
    S2[a1, a2, a4, a3, SP[a5, a6], n] + 2*S2[a1, a2, a4, a6, SP[a3, a5], n] + 
    S2[a1, a2, a4, SP[a3, a5], a6, n] + S2[a1, a2, a4, SP[a3, a6], a5, n] + 
    S2[a1, a2, a4, SP[a5, a6], a3, n] + S2[a1, a2, a5, a3, SP[a4, a6], n] + 
    S2[a1, a2, a5, a6, SP[a3, a4], n] + S2[a1, a2, a5, SP[a3, a4], a6, n] + 
    S2[a1, a2, a5, SP[a4, a6], a3, n] - S2[a1, a2, a6, a3, SP[a4, a5], n] + 
    2*S2[a1, a2, a6, a4, SP[a3, a5], n] + S2[a1, a2, a6, a5, SP[a3, a4], n] + 
    S2[a1, a2, a6, SP[a3, a4], a5, n] + 2*S2[a1, a2, a6, SP[a3, a5], a4, n] - 
    S2[a1, a2, a6, SP[a4, a5], a3, n] + S2[a1, a2, SP[a3, a4], a5, a6, n] + 
    S2[a1, a2, SP[a3, a4], a6, a5, n] + S2[a1, a2, SP[a3, a5], a4, a6, n] + 
    S2[a1, a2, SP[a3, a5], a6, a4, n] + S2[a1, a2, SP[a3, a6], a4, a5, n] + 
    S2[a1, a2, SP[a3, a6], a5, a4, n] + S2[a1, a2, SP[a5, a6], a3, a4, n] + 
    S2[a1, a2, SP[a5, a6], a4, a3, n] + S2[a1, a3, a2, a4, SP[a5, a6], n] + 
    S2[a1, a3, a2, a5, SP[a4, a6], n] - S2[a1, a3, a2, a6, SP[a4, a5], n] + 
    S2[a1, a3, a2, SP[a5, a6], a4, n] + S2[a6, n]*S2[a1, a3, a4, a2, a5, n] + 
    S2[a1, a3, a4, a2, SP[a5, a6], n] + S2[a6, n]*S2[a1, a3, a4, a5, a2, n] - 
    S2[a2, n]*S2[a1, a3, a4, a5, a6, n] - 
    S2[a2, n]*S2[a1, a3, a4, a6, a5, n] - S2[a1, a3, a4, a6, SP[a2, a5], n] - 
    S2[a1, a3, a4, SP[a2, a5], a6, n] + S2[a1, a3, a4, SP[a5, a6], a2, n] + 
    S2[a6, n]*S2[a1, a3, a5, a2, a4, n] + S2[a1, a3, a5, a2, SP[a4, a6], n] + 
    S2[a6, n]*S2[a1, a3, a5, a4, a2, n] - 
    S2[a2, n]*S2[a1, a3, a5, a4, a6, n] - 
    S2[a2, n]*S2[a1, a3, a5, a6, a4, n] - S2[a1, a3, a5, a6, SP[a2, a4], n] - 
    S2[a1, a3, a5, SP[a2, a4], a6, n] + S2[a1, a3, a5, SP[a4, a6], a2, n] + 
    S2[a5, n]*S2[a1, a3, a6, a2, a4, n] - 
    S2[a2, n]*S2[a1, a3, a6, a4, a5, n] - S2[a1, a3, a6, a4, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a3, a6, a5, a4, n] - S2[a1, a3, a6, a5, SP[a2, a4], n] - 
    S2[a1, a3, a6, SP[a2, a4], a5, n] - S2[a1, a3, a6, SP[a2, a5], a4, n] - 
    S2[a1, a3, SP[a2, a4], a5, a6, n] - S2[a1, a3, SP[a2, a4], a6, a5, n] - 
    S2[a1, a3, SP[a2, a5], a4, a6, n] - S2[a1, a3, SP[a2, a5], a6, a4, n] - 
    S2[a1, a3, SP[a2, a6], a4, a5, n] - S2[a1, a3, SP[a2, a6], a5, a4, n] + 
    S2[a1, a3, SP[a4, a6], a2, a5, n] + S2[a1, a3, SP[a4, a6], a5, a2, n] + 
    2*S2[a1, a3, SP[a5, a6], a2, a4, n] + S2[a1, a3, SP[a5, a6], a4, a2, n] + 
    S2[a6, n]*S2[a1, a4, a2, a3, a5, n] + S2[a1, a4, a2, a3, SP[a5, a6], n] + 
    S2[a6, n]*S2[a1, a4, a2, a5, a3, n] + S2[a1, a4, a2, a5, SP[a3, a6], n] + 
    S2[a1, a4, a2, SP[a3, a6], a5, n] + S2[a1, a4, a2, SP[a5, a6], a3, n] + 
    S2[a6, n]*S2[a1, a4, a3, a2, a5, n] + S2[a1, a4, a3, a2, SP[a5, a6], n] + 
    S2[a6, n]*S2[a1, a4, a3, a5, a2, n] - 
    S2[a2, n]*S2[a1, a4, a3, a5, a6, n] - 
    S2[a2, n]*S2[a1, a4, a3, a6, a5, n] - S2[a1, a4, a3, a6, SP[a2, a5], n] - 
    S2[a1, a4, a3, SP[a2, a5], a6, n] + S2[a1, a4, a3, SP[a5, a6], a2, n] + 
    S2[a6, n]*S2[a1, a4, a5, a2, a3, n] + S2[a1, a4, a5, a2, SP[a3, a6], n] + 
    S2[a6, n]*S2[a1, a4, a5, a3, a2, n] - 
    S2[a2, n]*S2[a1, a4, a5, a3, a6, n] - 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] - S2[a1, a4, a5, a6, SP[a2, a3], n] - 
    S2[a1, a4, a5, SP[a2, a3], a6, n] + S2[a1, a4, a5, SP[a3, a6], a2, n] - 
    S2[a2, n]*S2[a1, a4, a6, a3, a5, n] - S2[a1, a4, a6, a3, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a4, a6, a5, a3, n] - S2[a1, a4, a6, a5, SP[a2, a3], n] - 
    S2[a1, a4, a6, SP[a2, a3], a5, n] - S2[a1, a4, a6, SP[a2, a5], a3, n] - 
    S2[a1, a4, SP[a2, a3], a5, a6, n] - S2[a1, a4, SP[a2, a3], a6, a5, n] - 
    S2[a1, a4, SP[a2, a5], a3, a6, n] - S2[a1, a4, SP[a2, a5], a6, a3, n] + 
    S2[a1, a4, SP[a3, a6], a2, a5, n] + S2[a1, a4, SP[a3, a6], a5, a2, n] + 
    S2[a1, a4, SP[a5, a6], a2, a3, n] + S2[a1, a4, SP[a5, a6], a3, a2, n] + 
    S2[a6, n]*S2[a1, a5, a2, a3, a4, n] + S2[a1, a5, a2, a3, SP[a4, a6], n] + 
    S2[a6, n]*S2[a1, a5, a2, a4, a3, n] + S2[a1, a5, a2, a4, SP[a3, a6], n] + 
    S2[a1, a5, a2, SP[a3, a6], a4, n] + S2[a1, a5, a2, SP[a4, a6], a3, n] + 
    S2[a6, n]*S2[a1, a5, a3, a2, a4, n] + S2[a1, a5, a3, a2, SP[a4, a6], n] + 
    S2[a6, n]*S2[a1, a5, a3, a4, a2, n] - 
    S2[a2, n]*S2[a1, a5, a3, a4, a6, n] - 
    S2[a2, n]*S2[a1, a5, a3, a6, a4, n] - S2[a1, a5, a3, a6, SP[a2, a4], n] - 
    S2[a1, a5, a3, SP[a2, a4], a6, n] + S2[a1, a5, a3, SP[a4, a6], a2, n] + 
    S2[a6, n]*S2[a1, a5, a4, a2, a3, n] + S2[a1, a5, a4, a2, SP[a3, a6], n] + 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] - 
    S2[a2, n]*S2[a1, a5, a4, a3, a6, n] - 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] - S2[a1, a5, a4, a6, SP[a2, a3], n] - 
    S2[a1, a5, a4, SP[a2, a3], a6, n] + S2[a1, a5, a4, SP[a3, a6], a2, n] - 
    S2[a1, a5, a6, a2, SP[a3, a4], n] - S2[a2, n]*S2[a1, a5, a6, a3, a4, n] - 
    S2[a1, a5, a6, a3, SP[a2, a4], n] - S2[a2, n]*S2[a1, a5, a6, a4, a3, n] - 
    S2[a1, a5, a6, a4, SP[a2, a3], n] - 2*S2[a1, a5, a6, SP[a2, a3], a4, n] - 
    S2[a1, a5, a6, SP[a2, a4], a3, n] - S2[a1, a5, SP[a2, a3], a4, a6, n] - 
    S2[a1, a5, SP[a2, a3], a6, a4, n] - S2[a1, a5, SP[a2, a4], a3, a6, n] - 
    S2[a1, a5, SP[a2, a4], a6, a3, n] + S2[a1, a5, SP[a3, a6], a4, a2, n] + 
    S2[a1, a5, SP[a4, a6], a2, a3, n] + S2[a1, a5, SP[a4, a6], a3, a2, n] + 
    S2[a5, n]*S2[a1, a6, a2, a3, a4, n] + 
    S2[a5, n]*S2[a1, a6, a2, a4, a3, n] + 
    2*S2[a1, a6, a2, a4, SP[a3, a5], n] + 
    2*S2[a1, a6, a2, SP[a3, a5], a4, n] + 
    S2[a5, n]*S2[a1, a6, a3, a2, a4, n] - 
    S2[a2, n]*S2[a1, a6, a3, a4, a5, n] - S2[a1, a6, a3, a4, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a6, a3, a5, a4, n] - S2[a1, a6, a3, a5, SP[a2, a4], n] - 
    S2[a1, a6, a3, SP[a2, a4], a5, n] - S2[a1, a6, a3, SP[a2, a5], a4, n] - 
    S2[a2, n]*S2[a1, a6, a4, a3, a5, n] - S2[a1, a6, a4, a3, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a6, a4, a5, a3, n] - S2[a1, a6, a4, a5, SP[a2, a3], n] - 
    S2[a1, a6, a4, SP[a2, a3], a5, n] - S2[a1, a6, a4, SP[a2, a5], a3, n] - 
    S2[a1, a6, a5, a2, SP[a3, a4], n] - S2[a2, n]*S2[a1, a6, a5, a3, a4, n] - 
    S2[a1, a6, a5, a3, SP[a2, a4], n] - S2[a2, n]*S2[a1, a6, a5, a4, a3, n] - 
    S2[a1, a6, a5, a4, SP[a2, a3], n] - 2*S2[a1, a6, a5, SP[a2, a3], a4, n] - 
    S2[a1, a6, a5, SP[a2, a4], a3, n] - S2[a1, a6, SP[a2, a3], a4, a5, n] - 
    S2[a1, a6, SP[a2, a3], a5, a4, n] - S2[a1, a6, SP[a2, a4], a3, a5, n] - 
    S2[a1, a6, SP[a2, a4], a5, a3, n] - S2[a1, a6, SP[a2, a5], a3, a4, n] - 
    S2[a1, a6, SP[a2, a5], a4, a3, n] + S2[a1, a6, SP[a3, a5], a2, a4, n] - 
    S2[a1, SP[a2, a4], a3, a5, a6, n] - S2[a1, SP[a2, a4], a3, a6, a5, n] - 
    S2[a1, SP[a2, a4], a5, a3, a6, n] - S2[a1, SP[a2, a4], a5, a6, a3, n] - 
    S2[a1, SP[a2, a4], a6, a3, a5, n] - S2[a1, SP[a2, a4], a6, a5, a3, n] - 
    S2[a1, SP[a2, a5], a3, a4, a6, n] - S2[a1, SP[a2, a5], a3, a6, a4, n] - 
    S2[a1, SP[a2, a5], a4, a3, a6, n] - S2[a1, SP[a2, a5], a4, a6, a3, n] - 
    S2[a1, SP[a2, a5], a6, a3, a4, n] - S2[a1, SP[a2, a5], a6, a4, a3, n] - 
    S2[a1, SP[a2, a6], a3, a4, a5, n] - S2[a1, SP[a2, a6], a3, a5, a4, n] - 
    S2[a1, SP[a2, a6], a4, a3, a5, n] - S2[a1, SP[a2, a6], a4, a5, a3, n] - 
    S2[a1, SP[a2, a6], a5, a3, a4, n] - S2[a1, SP[a2, a6], a5, a4, a3, n] + 
    S2[a1, SP[a3, a6], a4, a2, a5, n] + S2[a1, SP[a3, a6], a4, a5, a2, n] + 
    S2[a1, SP[a3, a6], a5, a2, a4, n] + S2[a1, SP[a3, a6], a5, a4, a2, n] + 
    S2[a1, SP[a4, a6], a2, a3, a5, n] + S2[a1, SP[a4, a6], a2, a5, a3, n] + 
    S2[a1, SP[a4, a6], a3, a2, a5, n] + S2[a1, SP[a4, a6], a3, a5, a2, n] + 
    S2[a1, SP[a4, a6], a5, a2, a3, n] + S2[a1, SP[a4, a6], a5, a3, a2, n] + 
    2*S2[a1, SP[a5, a6], a2, a3, a4, n] + 
    2*S2[a1, SP[a5, a6], a2, a4, a3, n] + 
    2*S2[a1, SP[a5, a6], a3, a2, a4, n] + S2[a1, SP[a5, a6], a3, a4, a2, n] + 
    S2[a1, SP[a5, a6], a4, a2, a3, n] + S2[a1, SP[a5, a6], a4, a3, a2, n] + 
    S2[a2, a1, a3, a4, SP[a5, a6], n] + S2[a2, a1, a3, a5, SP[a4, a6], n] - 
    S2[a2, a1, a3, a6, SP[a4, a5], n] + S2[a2, a1, a3, SP[a5, a6], a4, n] + 
    S2[a2, a1, a4, a3, SP[a5, a6], n] + 2*S2[a2, a1, a4, a6, SP[a3, a5], n] + 
    S2[a2, a1, a4, SP[a3, a5], a6, n] + S2[a2, a1, a4, SP[a3, a6], a5, n] + 
    S2[a2, a1, a4, SP[a5, a6], a3, n] + S2[a2, a1, a5, a3, SP[a4, a6], n] + 
    S2[a2, a1, a5, a6, SP[a3, a4], n] + S2[a2, a1, a5, SP[a3, a4], a6, n] + 
    S2[a2, a1, a5, SP[a4, a6], a3, n] - S2[a2, a1, a6, a3, SP[a4, a5], n] + 
    2*S2[a2, a1, a6, a4, SP[a3, a5], n] + S2[a2, a1, a6, a5, SP[a3, a4], n] + 
    S2[a2, a1, a6, SP[a3, a4], a5, n] + 2*S2[a2, a1, a6, SP[a3, a5], a4, n] - 
    S2[a2, a1, a6, SP[a4, a5], a3, n] + S2[a2, a1, SP[a3, a4], a5, a6, n] + 
    S2[a2, a1, SP[a3, a4], a6, a5, n] + S2[a2, a1, SP[a3, a5], a4, a6, n] + 
    S2[a2, a1, SP[a3, a5], a6, a4, n] + S2[a2, a1, SP[a3, a6], a4, a5, n] + 
    S2[a2, a1, SP[a3, a6], a5, a4, n] + S2[a2, a1, SP[a5, a6], a3, a4, n] + 
    S2[a2, a1, SP[a5, a6], a4, a3, n] - S2[a6, n]*S2[a2, a4, a1, a3, a5, n] - 
    S2[a6, n]*S2[a2, a4, a1, a5, a3, n] - S2[a2, a4, a1, a5, SP[a3, a6], n] + 
    2*S2[a2, a4, a1, a6, SP[a3, a5], n] + S2[a2, a4, a1, SP[a3, a5], a6, n] - 
    S2[a6, n]*S2[a2, a4, a5, a1, a3, n] - S2[a2, a4, a5, a1, SP[a3, a6], n] - 
    S2[a2, a4, a5, SP[a1, a6], a3, n] + S2[a2, a4, a6, a1, SP[a3, a5], n] + 
    S2[a2, a4, a6, SP[a1, a5], a3, n] + S2[a2, a4, SP[a1, a5], a3, a6, n] + 
    S2[a2, a4, SP[a1, a5], a6, a3, n] - S2[a2, a4, SP[a5, a6], a1, a3, n] - 
    S2[a6, n]*S2[a2, a5, a1, a3, a4, n] - 
    S2[a6, n]*S2[a2, a5, a1, a4, a3, n] - S2[a2, a5, a1, a4, SP[a3, a6], n] + 
    S2[a2, a5, a1, a6, SP[a3, a4], n] + S2[a2, a5, a1, SP[a3, a4], a6, n] - 
    S2[a2, a5, a1, SP[a3, a6], a4, n] - S2[a6, n]*S2[a2, a5, a4, a1, a3, n] - 
    S2[a2, a5, a4, a1, SP[a3, a6], n] - S2[a2, a5, a4, SP[a1, a6], a3, n] + 
    S2[a4, n]*S2[a2, a5, a6, a1, a3, n] + S2[a2, a5, a6, a1, SP[a3, a4], n] + 
    S2[a2, a5, a6, SP[a1, a4], a3, n] + S2[a2, a5, SP[a1, a4], a3, a6, n] + 
    S2[a2, a5, SP[a1, a4], a6, a3, n] - S2[a2, a5, SP[a1, a6], a3, a4, n] - 
    S2[a2, a5, SP[a1, a6], a4, a3, n] - S2[a5, n]*S2[a2, a6, a1, a3, a4, n] - 
    S2[a2, a6, a1, a3, SP[a4, a5], n] - S2[a5, n]*S2[a2, a6, a1, a4, a3, n] + 

    S2[a2, a6, a1, a5, SP[a3, a4], n] + S2[a2, a6, a1, SP[a3, a4], a5, n] - 
    S2[a2, a6, a1, SP[a4, a5], a3, n] + S2[a2, a6, a4, a1, SP[a3, a5], n] + 
    S2[a2, a6, a4, SP[a1, a5], a3, n] + S2[a2, a6, a5, a1, SP[a3, a4], n] + 
    S2[a2, a6, a5, SP[a1, a4], a3, n] + S2[a2, a6, SP[a1, a4], a3, a5, n] + 
    S2[a2, a6, SP[a1, a4], a5, a3, n] + S2[a2, SP[a1, a4], a3, a5, a6, n] + 
    S2[a2, SP[a1, a4], a3, a6, a5, n] + S2[a2, SP[a1, a4], a5, a3, a6, n] + 
    S2[a2, SP[a1, a4], a5, a6, a3, n] + S2[a2, SP[a1, a4], a6, a3, a5, n] + 
    S2[a2, SP[a1, a4], a6, a5, a3, n] + S2[a2, SP[a1, a5], a3, a4, a6, n] + 
    S2[a2, SP[a1, a5], a3, a6, a4, n] + S2[a2, SP[a1, a5], a4, a3, a6, n] + 
    S2[a2, SP[a1, a5], a4, a6, a3, n] + S2[a2, SP[a1, a5], a6, a3, a4, n] + 
    S2[a2, SP[a1, a5], a6, a4, a3, n] + S2[a2, SP[a1, a6], a3, a4, a5, n] + 
    S2[a2, SP[a1, a6], a3, a5, a4, n] + S2[a2, SP[a1, a6], a4, a3, a5, n] + 
    S2[a2, SP[a1, a6], a4, a5, a3, n] + S2[a2, SP[a1, a6], a5, a3, a4, n] + 
    S2[a2, SP[a1, a6], a5, a4, a3, n] + S2[a2, SP[a4, a5], a6, a1, a3, n] - 
    S2[a2, SP[a4, a6], a1, a3, a5, n] - S2[a2, SP[a4, a6], a1, a5, a3, n] - 
    S2[a2, SP[a4, a6], a5, a1, a3, n] - 2*S2[a2, SP[a5, a6], a1, a3, a4, n] - 
    2*S2[a2, SP[a5, a6], a1, a4, a3, n] - S2[a2, SP[a5, a6], a4, a1, a3, n] - 
    S2[a5, a1, a6, a2, SP[a3, a4], n] - S2[a5, a1, a6, SP[a2, a3], a4, n] - 
    S2[a5, a1, SP[a3, a6], a2, a4, n] - S2[a5, a6, a1, a2, SP[a3, a4], n] + 
    S2[a2, n]*S2[a5, a6, a1, a3, a4, n] + S2[a5, a6, a1, a3, SP[a2, a4], n] + 
    S2[a2, n]*S2[a5, a6, a1, a4, a3, n] + S2[a5, a6, a1, a4, SP[a2, a3], n] + 
    S2[a5, a6, a1, SP[a2, a4], a3, n] - S2[a5, a6, a2, a1, SP[a3, a4], n] - 
    S2[a5, a6, a2, SP[a1, a4], a3, n] - S2[a5, SP[a1, a6], a2, a3, a4, n] - 
    S2[a5, SP[a1, a6], a2, a4, a3, n] - S2[a5, SP[a1, a6], a3, a2, a4, n] + 
    S2[a5, SP[a2, a6], a1, a3, a4, n] + S2[a5, SP[a2, a6], a1, a4, a3, n] - 
    S2[a5, n]*S2[a6, a1, a3, a4, a2, n] - S2[a6, a1, a3, a4, SP[a2, a5], n] - 
    S2[a6, a1, a3, SP[a4, a5], a2, n] - S2[a5, n]*S2[a6, a1, a4, a2, a3, n] - 
    S2[a6, a1, a4, a2, SP[a3, a5], n] - S2[a5, n]*S2[a6, a1, a4, a3, a2, n] - 
    S2[a6, a1, a4, a3, SP[a2, a5], n] - S2[a6, a1, a4, SP[a2, a5], a3, n] - 
    S2[a6, a1, a4, SP[a3, a5], a2, n] - S2[a6, a1, SP[a3, a5], a4, a2, n] - 
    S2[a6, a1, SP[a4, a5], a2, a3, n] - S2[a6, a1, SP[a4, a5], a3, a2, n] + 
    S2[a5, n]*S2[a6, a2, a4, a1, a3, n] + S2[a6, a2, a4, a1, SP[a3, a5], n] + 
    S2[a6, a2, a4, SP[a1, a5], a3, n] + S2[a6, a2, SP[a4, a5], a1, a3, n] + 
    S2[a2, n]*S2[a6, a5, a1, a3, a4, n] + S2[a6, a5, a1, a3, SP[a2, a4], n] + 
    S2[a2, n]*S2[a6, a5, a1, a4, a3, n] + S2[a6, a5, a1, a4, SP[a2, a3], n] + 
    S2[a6, a5, a1, SP[a2, a3], a4, n] + S2[a6, a5, a1, SP[a2, a4], a3, n] + 
    S2[a6, a5, SP[a1, a2], a3, a4, n] + S2[a6, a5, SP[a1, a2], a4, a3, n] - 
    S2[a6, SP[a1, a5], a3, a4, a2, n] - S2[a6, SP[a1, a5], a4, a2, a3, n] - 
    S2[a6, SP[a1, a5], a4, a3, a2, n] + S2[a6, SP[a2, a5], a1, a3, a4, n] + 
    S2[a6, SP[a2, a5], a1, a4, a3, n] + S2[a6, SP[a2, a5], a4, a1, a3, n] + 
    S2[SP[a1, a6], a3, a4, a2, a5, n] + S2[SP[a1, a6], a3, a4, a5, a2, n] + 
    S2[SP[a1, a6], a3, a5, a2, a4, n] + S2[SP[a1, a6], a3, a5, a4, a2, n] + 
    S2[SP[a1, a6], a4, a2, a3, a5, n] + S2[SP[a1, a6], a4, a2, a5, a3, n] + 
    S2[SP[a1, a6], a4, a3, a2, a5, n] + S2[SP[a1, a6], a4, a3, a5, a2, n] + 
    S2[SP[a1, a6], a4, a5, a2, a3, n] + S2[SP[a1, a6], a4, a5, a3, a2, n] + 
    S2[SP[a1, a6], a5, a2, a3, a4, n] + S2[SP[a1, a6], a5, a2, a4, a3, n] + 
    S2[SP[a1, a6], a5, a3, a2, a4, n] + S2[SP[a1, a6], a5, a3, a4, a2, n] + 
    S2[SP[a1, a6], a5, a4, a2, a3, n] + S2[SP[a1, a6], a5, a4, a3, a2, n] + 
    S2[SP[a2, a4], a5, a6, a1, a3, n] - S2[SP[a2, a6], a4, a1, a3, a5, n] - 
    S2[SP[a2, a6], a4, a1, a5, a3, n] - S2[SP[a2, a6], a4, a5, a1, a3, n] - 
    S2[SP[a2, a6], a5, a4, a1, a3, n] - S2[SP[a5, a6], a1, a3, a4, a2, n] - 
    S2[SP[a5, a6], a1, a4, a2, a3, n] - S2[SP[a5, a6], a1, a4, a3, a2, n] + 
    S2[SP[a5, a6], a2, a4, a1, a3, n] - S2[a6, a1, a3, a5, a2, a4, n] - 
    S2[a6, a1, a5, a2, a3, a4, n] - S2[a6, a1, a5, a2, a4, a3, n] - 
    S2[a6, a1, a5, a3, a2, a4, n] - S2[a6, a5, a1, a2, a3, a4, n] - 
    S2[a6, a5, a1, a2, a4, a3, n] - S2[a6, a5, a1, a3, a2, a4, n] - 
    S2[a6, a5, a2, a1, a3, a4, n] - S2[a6, a5, a2, a1, a4, a3, n] - 
    S2[a6, a5, a2, a4, a1, a3, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a4_, a2_, a5_, a6_, a3_, a1_, n_] :> 
  -(S2[a1, a3, a6, n]*S2[a2, a4, a5, n]) - S2[a1, a3, a6, n]*
     S2[a2, a5, a4, n] - S2[SP[a1, a2], SP[a3, a4], SP[a5, a6], n] - 
    S2[SP[a1, a2], SP[a3, a5], SP[a4, a6], n] + S2[a1, a2, SP[a3, a4], 
     SP[a5, a6], n] + S2[a1, a2, SP[a3, a5], SP[a4, a6], n] + 
    S2[a2, a4, n]*S2[a1, a3, a6, a5, n] - S2[a1, a3, SP[a2, a6], SP[a4, a5], 
     n] + S2[a1, SP[a2, a3], a4, SP[a5, a6], n] + S2[a1, SP[a2, a3], a5, 
     SP[a4, a6], n] - S2[a1, SP[a2, a3], a6, SP[a4, a5], n] + 
    S2[a1, SP[a2, a3], SP[a5, a6], a4, n] + S2[a2, a1, SP[a3, a4], 
     SP[a5, a6], n] + S2[a2, a1, SP[a3, a5], SP[a4, a6], n] - 
    S2[a1, a3, n]*S2[a2, a4, a6, a5, n] + S2[a2, a4, SP[a1, a6], SP[a3, a5], 
     n] - S2[a1, a3, n]*S2[a2, a6, a4, a5, n] - 
    S2[a1, a3, n]*S2[a2, a6, a5, a4, n] + S2[a2, a6, SP[a1, a4], SP[a3, a5], 
     n] + S2[a2, a6, SP[a1, a5], SP[a3, a4], n] + S2[a2, SP[a1, a4], a3, 
     SP[a5, a6], n] + S2[a2, SP[a1, a4], a6, SP[a3, a5], n] + 
    S2[a2, SP[a1, a4], SP[a3, a5], a6, n] + S2[a2, SP[a1, a4], SP[a3, a6], 
     a5, n] + S2[a2, SP[a1, a5], a3, SP[a4, a6], n] + 
    S2[a2, SP[a1, a5], SP[a3, a4], a6, n] + S2[a2, SP[a1, a6], a4, 
     SP[a3, a5], n] + S2[a2, SP[a1, a6], a5, SP[a3, a4], n] + 
    S2[a2, SP[a1, a6], SP[a3, a4], a5, n] + S2[a2, SP[a1, a6], SP[a3, a5], 
     a4, n] + S2[a1, a3, n]*S2[a5, a6, a2, a4, n] - 
    S2[a5, a6, SP[a1, a2], SP[a3, a4], n] - S2[a5, SP[a1, a6], a2, 
     SP[a3, a4], n] - S2[a5, SP[a1, a6], SP[a2, a3], a4, n] + 
    S2[SP[a1, a2], a3, a4, SP[a5, a6], n] + S2[SP[a1, a2], a3, a5, 
     SP[a4, a6], n] - S2[SP[a1, a2], a3, a6, SP[a4, a5], n] + 
    S2[SP[a1, a2], a3, SP[a5, a6], a4, n] + S2[SP[a1, a2], a4, a3, 
     SP[a5, a6], n] + S2[SP[a1, a2], a4, a6, SP[a3, a5], n] + 
    S2[SP[a1, a2], a4, SP[a3, a5], a6, n] + S2[SP[a1, a2], a4, SP[a3, a6], 
     a5, n] + S2[SP[a1, a2], a5, a3, SP[a4, a6], n] + 
    S2[SP[a1, a2], a5, SP[a3, a4], a6, n] + S2[SP[a1, a2], a6, a4, 
     SP[a3, a5], n] + S2[SP[a1, a2], a6, a5, SP[a3, a4], n] + 
    S2[SP[a1, a2], a6, SP[a3, a4], a5, n] + S2[SP[a1, a2], a6, SP[a3, a5], 
     a4, n] + S2[SP[a1, a2], SP[a3, a4], a5, a6, n] + 
    S2[SP[a1, a2], SP[a3, a4], a6, a5, n] + S2[SP[a1, a2], SP[a3, a5], a4, 
     a6, n] + S2[SP[a1, a2], SP[a3, a5], a6, a4, n] + 
    S2[SP[a1, a2], SP[a3, a6], a4, a5, n] + S2[SP[a1, a2], SP[a3, a6], a5, 
     a4, n] - S2[SP[a1, a5], a6, a2, SP[a3, a4], n] - 
    S2[SP[a1, a5], a6, SP[a2, a3], a4, n] - S2[SP[a1, a5], SP[a3, a6], a2, 
     a4, n] - S2[a1, a2, a3, a4, SP[a5, a6], n] - 
    S2[a1, a2, a3, a5, SP[a4, a6], n] + S2[a1, a2, a3, a6, SP[a4, a5], n] - 
    S2[a1, a2, a3, SP[a5, a6], a4, n] - S2[a1, a2, a4, a3, SP[a5, a6], n] - 
    S2[a1, a2, a4, a6, SP[a3, a5], n] - S2[a1, a2, a4, SP[a3, a5], a6, n] - 
    S2[a1, a2, a4, SP[a3, a6], a5, n] - S2[a1, a2, a5, a3, SP[a4, a6], n] - 
    S2[a1, a2, a5, SP[a3, a4], a6, n] - S2[a1, a2, a6, a4, SP[a3, a5], n] - 
    S2[a1, a2, a6, a5, SP[a3, a4], n] - S2[a1, a2, a6, SP[a3, a4], a5, n] - 
    S2[a1, a2, a6, SP[a3, a5], a4, n] - S2[a1, a2, SP[a3, a4], a5, a6, n] - 
    S2[a1, a2, SP[a3, a4], a6, a5, n] - S2[a1, a2, SP[a3, a5], a4, a6, n] - 
    S2[a1, a2, SP[a3, a5], a6, a4, n] - S2[a1, a2, SP[a3, a6], a4, a5, n] - 
    S2[a1, a2, SP[a3, a6], a5, a4, n] - S2[a1, a3, a2, a4, SP[a5, a6], n] - 
    S2[a1, a3, a2, a5, SP[a4, a6], n] + S2[a1, a3, a2, a6, SP[a4, a5], n] - 
    S2[a1, a3, a2, SP[a5, a6], a4, n] - S2[a6, n]*S2[a1, a3, a4, a2, a5, n] - 
    S2[a1, a3, a4, a2, SP[a5, a6], n] - S2[a6, n]*S2[a1, a3, a4, a5, a2, n] + 
    S2[a2, n]*S2[a1, a3, a4, a5, a6, n] + 
    S2[a2, n]*S2[a1, a3, a4, a6, a5, n] + S2[a1, a3, a4, a6, SP[a2, a5], n] + 
    S2[a1, a3, a4, SP[a2, a5], a6, n] - S2[a1, a3, a4, SP[a5, a6], a2, n] - 
    S2[a6, n]*S2[a1, a3, a5, a2, a4, n] - S2[a1, a3, a5, a2, SP[a4, a6], n] - 
    S2[a6, n]*S2[a1, a3, a5, a4, a2, n] + 
    S2[a2, n]*S2[a1, a3, a5, a4, a6, n] + 
    S2[a2, n]*S2[a1, a3, a5, a6, a4, n] + S2[a1, a3, a5, a6, SP[a2, a4], n] + 
    S2[a1, a3, a5, SP[a2, a4], a6, n] - S2[a1, a3, a5, SP[a4, a6], a2, n] - 
    S2[a5, n]*S2[a1, a3, a6, a2, a4, n] + 
    S2[a2, n]*S2[a1, a3, a6, a4, a5, n] + S2[a1, a3, a6, a4, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a3, a6, a5, a4, n] + S2[a1, a3, a6, a5, SP[a2, a4], n] + 
    S2[a1, a3, a6, SP[a2, a4], a5, n] + S2[a1, a3, a6, SP[a2, a5], a4, n] + 
    S2[a1, a3, SP[a2, a4], a5, a6, n] + S2[a1, a3, SP[a2, a4], a6, a5, n] + 
    S2[a1, a3, SP[a2, a5], a4, a6, n] + S2[a1, a3, SP[a2, a5], a6, a4, n] + 
    S2[a1, a3, SP[a2, a6], a4, a5, n] + S2[a1, a3, SP[a2, a6], a5, a4, n] - 
    S2[a1, a3, SP[a4, a6], a2, a5, n] - S2[a1, a3, SP[a4, a6], a5, a2, n] - 
    2*S2[a1, a3, SP[a5, a6], a2, a4, n] - S2[a1, a3, SP[a5, a6], a4, a2, n] - 
    S2[a6, n]*S2[a1, a4, a2, a3, a5, n] - S2[a1, a4, a2, a3, SP[a5, a6], n] - 
    S2[a6, n]*S2[a1, a4, a2, a5, a3, n] - S2[a1, a4, a2, a5, SP[a3, a6], n] - 
    S2[a1, a4, a2, SP[a3, a6], a5, n] - S2[a1, a4, a2, SP[a5, a6], a3, n] - 
    S2[a6, n]*S2[a1, a4, a3, a2, a5, n] - S2[a1, a4, a3, a2, SP[a5, a6], n] - 
    S2[a6, n]*S2[a1, a4, a3, a5, a2, n] + 
    S2[a2, n]*S2[a1, a4, a3, a5, a6, n] + 
    S2[a2, n]*S2[a1, a4, a3, a6, a5, n] + S2[a1, a4, a3, a6, SP[a2, a5], n] + 
    S2[a1, a4, a3, SP[a2, a5], a6, n] - S2[a1, a4, a3, SP[a5, a6], a2, n] - 
    S2[a6, n]*S2[a1, a4, a5, a2, a3, n] - S2[a1, a4, a5, a2, SP[a3, a6], n] - 
    S2[a6, n]*S2[a1, a4, a5, a3, a2, n] + 
    S2[a2, n]*S2[a1, a4, a5, a3, a6, n] + S2[a1, a4, a5, SP[a2, a3], a6, n] - 
    S2[a1, a4, a5, SP[a2, a6], a3, n] - S2[a1, a4, a5, SP[a3, a6], a2, n] + 
    S2[a2, n]*S2[a1, a4, a6, a3, a5, n] + S2[a1, a4, a6, a3, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a4, a6, a5, a3, n] + S2[a1, a4, a6, a5, SP[a2, a3], n] + 
    S2[a1, a4, a6, SP[a2, a3], a5, n] + S2[a1, a4, a6, SP[a2, a5], a3, n] + 
    S2[a1, a4, SP[a2, a3], a5, a6, n] + S2[a1, a4, SP[a2, a3], a6, a5, n] + 
    S2[a1, a4, SP[a2, a5], a3, a6, n] - S2[a1, a4, SP[a3, a6], a2, a5, n] - 
    S2[a1, a4, SP[a3, a6], a5, a2, n] - S2[a1, a4, SP[a5, a6], a2, a3, n] - 
    S2[a1, a4, SP[a5, a6], a3, a2, n] - S2[a6, n]*S2[a1, a5, a2, a3, a4, n] - 
    S2[a1, a5, a2, a3, SP[a4, a6], n] - S2[a6, n]*S2[a1, a5, a2, a4, a3, n] - 
    S2[a1, a5, a2, a4, SP[a3, a6], n] + S2[a4, n]*S2[a1, a5, a2, a6, a3, n] + 
    S2[a1, a5, a2, a6, SP[a3, a4], n] - S2[a1, a5, a2, SP[a3, a6], a4, n] - 
    S2[a6, n]*S2[a1, a5, a3, a2, a4, n] - S2[a1, a5, a3, a2, SP[a4, a6], n] - 
    S2[a6, n]*S2[a1, a5, a3, a4, a2, n] + 
    S2[a2, n]*S2[a1, a5, a3, a4, a6, n] + 
    S2[a2, n]*S2[a1, a5, a3, a6, a4, n] + S2[a1, a5, a3, a6, SP[a2, a4], n] + 
    S2[a1, a5, a3, SP[a2, a4], a6, n] - S2[a1, a5, a3, SP[a4, a6], a2, n] - 
    S2[a6, n]*S2[a1, a5, a4, a2, a3, n] - S2[a1, a5, a4, a2, SP[a3, a6], n] - 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] + 
    S2[a2, n]*S2[a1, a5, a4, a3, a6, n] + S2[a1, a5, a4, SP[a2, a3], a6, n] - 
    S2[a1, a5, a4, SP[a2, a6], a3, n] - S2[a1, a5, a4, SP[a3, a6], a2, n] + 
    S2[a4, n]*S2[a1, a5, a6, a2, a3, n] + 
    2*S2[a1, a5, a6, a2, SP[a3, a4], n] + 
    S2[a4, n]*S2[a1, a5, a6, a3, a2, n] + S2[a1, a5, a6, a3, SP[a2, a4], n] + 
    S2[a1, a5, a6, SP[a2, a3], a4, n] + S2[a1, a5, a6, SP[a2, a4], a3, n] + 
    S2[a1, a5, a6, SP[a3, a4], a2, n] + S2[a1, a5, SP[a2, a3], a4, a6, n] + 
    S2[a1, a5, SP[a2, a3], a6, a4, n] + S2[a1, a5, SP[a2, a4], a3, a6, n] + 
    S2[a1, a5, SP[a2, a4], a6, a3, n] - S2[a1, a5, SP[a2, a6], a3, a4, n] - 
    S2[a1, a5, SP[a2, a6], a4, a3, n] - S2[a1, a5, SP[a3, a6], a4, a2, n] - 
    S2[a5, n]*S2[a1, a6, a2, a3, a4, n] - S2[a1, a6, a2, a3, SP[a4, a5], n] - 
    S2[a5, n]*S2[a1, a6, a2, a4, a3, n] - S2[a1, a6, a2, a4, SP[a3, a5], n] - 
    S2[a1, a6, a2, SP[a3, a5], a4, n] - S2[a1, a6, a2, SP[a4, a5], a3, n] - 
    S2[a5, n]*S2[a1, a6, a3, a2, a4, n] - S2[a1, a6, a3, a2, SP[a4, a5], n] + 
    S2[a2, n]*S2[a1, a6, a3, a4, a5, n] + S2[a1, a6, a3, a4, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a6, a3, a5, a4, n] + S2[a1, a6, a3, a5, SP[a2, a4], n] + 
    S2[a1, a6, a3, SP[a2, a4], a5, n] + S2[a2, n]*S2[a1, a6, a4, a3, a5, n] + 
    S2[a1, a6, a4, a3, SP[a2, a5], n] + S2[a2, n]*S2[a1, a6, a4, a5, a3, n] + 
    S2[a1, a6, a4, a5, SP[a2, a3], n] + S2[a1, a6, a4, SP[a2, a3], a5, n] + 
    S2[a1, a6, a4, SP[a2, a5], a3, n] + S2[a2, n]*S2[a1, a6, a5, a3, a4, n] + 
    S2[a1, a6, a5, a3, SP[a2, a4], n] + S2[a2, n]*S2[a1, a6, a5, a4, a3, n] + 
    S2[a1, a6, a5, a4, SP[a2, a3], n] + S2[a1, a6, a5, SP[a2, a3], a4, n] + 
    S2[a1, a6, a5, SP[a2, a4], a3, n] + S2[a1, a6, SP[a2, a3], a4, a5, n] + 
    S2[a1, a6, SP[a2, a3], a5, a4, n] + S2[a1, a6, SP[a2, a4], a3, a5, n] + 
    S2[a1, a6, SP[a2, a4], a5, a3, n] - S2[a1, a6, SP[a3, a5], a2, a4, n] + 
    S2[a1, SP[a2, a4], a3, a5, a6, n] + S2[a1, SP[a2, a4], a3, a6, a5, n] + 
    S2[a1, SP[a2, a4], a5, a3, a6, n] + S2[a1, SP[a2, a4], a6, a3, a5, n] + 
    S2[a1, SP[a2, a4], a6, a5, a3, n] + S2[a1, SP[a2, a5], a3, a4, a6, n] + 
    S2[a1, SP[a2, a5], a3, a6, a4, n] + S2[a1, SP[a2, a5], a4, a3, a6, n] + 
    S2[a1, SP[a2, a6], a3, a4, a5, n] + S2[a1, SP[a2, a6], a3, a5, a4, n] + 
    S2[a1, SP[a2, a6], a4, a3, a5, n] + S2[a1, SP[a2, a6], a4, a5, a3, n] + 
    S2[a1, SP[a2, a6], a5, a3, a4, n] + S2[a1, SP[a2, a6], a5, a4, a3, n] - 
    S2[a1, SP[a3, a6], a4, a2, a5, n] - S2[a1, SP[a3, a6], a4, a5, a2, n] - 
    S2[a1, SP[a3, a6], a5, a2, a4, n] - S2[a1, SP[a3, a6], a5, a4, a2, n] + 
    S2[a1, SP[a4, a5], a2, a6, a3, n] + S2[a1, SP[a4, a5], a6, a2, a3, n] + 
    S2[a1, SP[a4, a5], a6, a3, a2, n] - S2[a1, SP[a4, a6], a2, a3, a5, n] - 
    S2[a1, SP[a4, a6], a2, a5, a3, n] - S2[a1, SP[a4, a6], a3, a2, a5, n] - 
    S2[a1, SP[a4, a6], a3, a5, a2, n] - S2[a1, SP[a4, a6], a5, a2, a3, n] - 
    S2[a1, SP[a4, a6], a5, a3, a2, n] - 2*S2[a1, SP[a5, a6], a2, a3, a4, n] - 
    2*S2[a1, SP[a5, a6], a2, a4, a3, n] - 
    2*S2[a1, SP[a5, a6], a3, a2, a4, n] - S2[a1, SP[a5, a6], a3, a4, a2, n] - 
    S2[a1, SP[a5, a6], a4, a2, a3, n] - S2[a1, SP[a5, a6], a4, a3, a2, n] - 
    S2[a2, a1, a3, a4, SP[a5, a6], n] - S2[a2, a1, a3, a5, SP[a4, a6], n] + 
    S2[a2, a1, a3, a6, SP[a4, a5], n] - S2[a2, a1, a3, SP[a5, a6], a4, n] - 
    S2[a2, a1, a4, a3, SP[a5, a6], n] - S2[a2, a1, a4, a6, SP[a3, a5], n] - 
    S2[a2, a1, a4, SP[a3, a5], a6, n] - S2[a2, a1, a4, SP[a3, a6], a5, n] - 
    S2[a2, a1, a5, a3, SP[a4, a6], n] - S2[a2, a1, a5, SP[a3, a4], a6, n] - 
    S2[a2, a1, a6, a4, SP[a3, a5], n] - S2[a2, a1, a6, a5, SP[a3, a4], n] - 
    S2[a2, a1, a6, SP[a3, a4], a5, n] - S2[a2, a1, a6, SP[a3, a5], a4, n] - 
    S2[a2, a1, SP[a3, a4], a5, a6, n] - S2[a2, a1, SP[a3, a4], a6, a5, n] - 
    S2[a2, a1, SP[a3, a5], a4, a6, n] - S2[a2, a1, SP[a3, a5], a6, a4, n] - 
    S2[a2, a1, SP[a3, a6], a4, a5, n] - S2[a2, a1, SP[a3, a6], a5, a4, n] + 
    S2[a6, n]*S2[a2, a4, a1, a3, a5, n] + 
    S2[a6, n]*S2[a2, a4, a1, a5, a3, n] + S2[a2, a4, a1, a5, SP[a3, a6], n] - 
    S2[a2, a4, a1, a6, SP[a3, a5], n] - S2[a2, a4, a1, SP[a3, a5], a6, n] + 
    S2[a2, a4, a1, SP[a5, a6], a3, n] + S2[a6, n]*S2[a2, a4, a5, a1, a3, n] + 
    S2[a2, a4, a5, a1, SP[a3, a6], n] + S2[a2, a4, a5, SP[a1, a6], a3, n] - 
    S2[a2, a4, a6, a1, SP[a3, a5], n] - S2[a2, a4, a6, SP[a1, a5], a3, n] - 
    S2[a2, a4, SP[a1, a5], a3, a6, n] + S2[a2, a4, SP[a5, a6], a1, a3, n] + 
    S2[a6, n]*S2[a2, a5, a1, a3, a4, n] + 
    S2[a6, n]*S2[a2, a5, a1, a4, a3, n] + S2[a2, a5, a1, a4, SP[a3, a6], n] - 
    S2[a4, n]*S2[a2, a5, a1, a6, a3, n] - S2[a2, a5, a1, a6, SP[a3, a4], n] - 
    S2[a2, a5, a1, SP[a3, a4], a6, n] + S2[a2, a5, a1, SP[a3, a6], a4, n] + 
    S2[a6, n]*S2[a2, a5, a4, a1, a3, n] + S2[a2, a5, a4, a1, SP[a3, a6], n] + 
    S2[a2, a5, a4, SP[a1, a6], a3, n] - S2[a4, n]*S2[a2, a5, a6, a1, a3, n] - 
    S2[a2, a5, a6, a1, SP[a3, a4], n] - S2[a2, a5, a6, SP[a1, a4], a3, n] - 
    S2[a2, a5, SP[a1, a4], a3, a6, n] - S2[a2, a5, SP[a1, a4], a6, a3, n] + 
    S2[a2, a5, SP[a1, a6], a3, a4, n] + S2[a2, a5, SP[a1, a6], a4, a3, n] + 
    S2[a5, n]*S2[a2, a6, a1, a3, a4, n] + S2[a2, a6, a1, a3, SP[a4, a5], n] + 
    S2[a5, n]*S2[a2, a6, a1, a4, a3, n] - S2[a2, a6, a1, a5, SP[a3, a4], n] - 
    S2[a2, a6, a1, SP[a3, a4], a5, n] + S2[a2, a6, a1, SP[a4, a5], a3, n] - 
    S2[a2, a6, a4, a1, SP[a3, a5], n] - S2[a2, a6, a4, SP[a1, a5], a3, n] - 
    S2[a2, a6, a5, a1, SP[a3, a4], n] - S2[a2, a6, a5, SP[a1, a4], a3, n] - 
    S2[a2, a6, SP[a1, a4], a3, a5, n] - S2[a2, a6, SP[a1, a4], a5, a3, n] - 
    S2[a2, SP[a1, a4], a3, a5, a6, n] - S2[a2, SP[a1, a4], a3, a6, a5, n] - 
    S2[a2, SP[a1, a4], a5, a3, a6, n] - S2[a2, SP[a1, a4], a6, a3, a5, n] - 
    S2[a2, SP[a1, a4], a6, a5, a3, n] - S2[a2, SP[a1, a5], a3, a4, a6, n] - 
    S2[a2, SP[a1, a5], a3, a6, a4, n] - S2[a2, SP[a1, a5], a4, a3, a6, n] - 
    S2[a2, SP[a1, a6], a3, a4, a5, n] - S2[a2, SP[a1, a6], a3, a5, a4, n] - 
    S2[a2, SP[a1, a6], a4, a3, a5, n] - S2[a2, SP[a1, a6], a4, a5, a3, n] - 
    S2[a2, SP[a1, a6], a5, a3, a4, n] - S2[a2, SP[a1, a6], a5, a4, a3, n] - 
    S2[a2, SP[a4, a5], a1, a6, a3, n] - S2[a2, SP[a4, a5], a6, a1, a3, n] + 
    S2[a2, SP[a4, a6], a1, a3, a5, n] + S2[a2, SP[a4, a6], a1, a5, a3, n] + 
    S2[a2, SP[a4, a6], a5, a1, a3, n] + 2*S2[a2, SP[a5, a6], a1, a3, a4, n] + 
    2*S2[a2, SP[a5, a6], a1, a4, a3, n] + S2[a2, SP[a5, a6], a4, a1, a3, n] - 
    S2[a2, n]*S2[a4, a1, a5, a6, a3, n] - S2[a4, a1, a5, a6, SP[a2, a3], n] - 
    S2[a4, a1, a5, SP[a2, a6], a3, n] - S2[a4, a1, SP[a2, a5], a6, a3, n] + 
    S2[a1, n]*S2[a4, a2, a5, a6, a3, n] + S2[a4, a2, a5, a6, SP[a1, a3], n] + 
    S2[a4, a2, a5, SP[a1, a6], a3, n] + S2[a4, a2, SP[a1, a5], a6, a3, n] + 
    S2[a5, a1, a6, a2, SP[a3, a4], n] + S2[a5, a1, a6, SP[a2, a3], a4, n] + 
    S2[a5, a1, SP[a3, a6], a2, a4, n] + S2[a5, a6, a1, a2, SP[a3, a4], n] - 
    S2[a2, n]*S2[a5, a6, a1, a3, a4, n] - S2[a5, a6, a1, a3, SP[a2, a4], n] - 
    S2[a2, n]*S2[a5, a6, a1, a4, a3, n] - S2[a5, a6, a1, a4, SP[a2, a3], n] - 
    S2[a5, a6, a1, SP[a2, a4], a3, n] + S2[a5, a6, a2, a1, SP[a3, a4], n] + 
    S2[a5, a6, a2, SP[a1, a4], a3, n] + S2[a5, SP[a1, a6], a2, a3, a4, n] + 
    S2[a5, SP[a1, a6], a2, a4, a3, n] + S2[a5, SP[a1, a6], a3, a2, a4, n] - 
    S2[a5, SP[a2, a6], a1, a3, a4, n] - S2[a5, SP[a2, a6], a1, a4, a3, n] + 
    S2[a5, n]*S2[a6, a1, a3, a4, a2, n] + S2[a6, a1, a3, a4, SP[a2, a5], n] + 
    S2[a6, a1, a3, SP[a4, a5], a2, n] + S2[a5, n]*S2[a6, a1, a4, a2, a3, n] + 
    S2[a6, a1, a4, a2, SP[a3, a5], n] + S2[a5, n]*S2[a6, a1, a4, a3, a2, n] + 
    S2[a6, a1, a4, a3, SP[a2, a5], n] + S2[a6, a1, a4, SP[a2, a5], a3, n] + 
    S2[a6, a1, a4, SP[a3, a5], a2, n] + S2[a6, a1, SP[a3, a5], a4, a2, n] + 
    S2[a6, a1, SP[a4, a5], a2, a3, n] + S2[a6, a1, SP[a4, a5], a3, a2, n] - 
    S2[a5, n]*S2[a6, a2, a4, a1, a3, n] - S2[a6, a2, a4, a1, SP[a3, a5], n] - 
    S2[a6, a2, a4, SP[a1, a5], a3, n] - S2[a6, a2, SP[a4, a5], a1, a3, n] + 
    S2[a1, n]*S2[a6, a3, a5, a2, a4, n] + S2[a6, a3, a5, a2, SP[a1, a4], n] + 
    S2[a6, a3, a5, SP[a1, a2], a4, n] + S2[a6, a3, SP[a1, a5], a2, a4, n] - 
    S2[a2, n]*S2[a6, a5, a1, a3, a4, n] - S2[a6, a5, a1, a3, SP[a2, a4], n] - 
    S2[a2, n]*S2[a6, a5, a1, a4, a3, n] - S2[a6, a5, a1, a4, SP[a2, a3], n] - 
    S2[a6, a5, a1, SP[a2, a3], a4, n] - S2[a6, a5, a1, SP[a2, a4], a3, n] + 
    S2[a1, n]*S2[a6, a5, a2, a3, a4, n] + S2[a6, a5, a2, a3, SP[a1, a4], n] + 
    S2[a1, n]*S2[a6, a5, a2, a4, a3, n] + S2[a6, a5, a2, a4, SP[a1, a3], n] + 
    S2[a6, a5, a2, SP[a1, a3], a4, n] + S2[a6, a5, a2, SP[a1, a4], a3, n] + 
    S2[a1, n]*S2[a6, a5, a3, a2, a4, n] + S2[a6, a5, a3, a2, SP[a1, a4], n] + 
    S2[a6, a5, a3, SP[a1, a2], a4, n] + S2[a6, a5, SP[a1, a3], a2, a4, n] + 
    S2[a6, SP[a1, a3], a5, a2, a4, n] + S2[a6, SP[a1, a5], a2, a3, a4, n] + 
    S2[a6, SP[a1, a5], a2, a4, a3, n] + S2[a6, SP[a1, a5], a3, a2, a4, n] + 
    S2[a6, SP[a1, a5], a3, a4, a2, n] + S2[a6, SP[a1, a5], a4, a2, a3, n] + 
    S2[a6, SP[a1, a5], a4, a3, a2, n] - S2[a6, SP[a2, a5], a1, a3, a4, n] - 
    S2[a6, SP[a2, a5], a1, a4, a3, n] - S2[a6, SP[a2, a5], a4, a1, a3, n] + 
    S2[SP[a1, a4], a2, a5, a6, a3, n] + S2[SP[a1, a4], a5, a2, a6, a3, n] + 
    S2[SP[a1, a4], a5, a6, a2, a3, n] + S2[SP[a1, a4], a5, a6, a3, a2, n] - 
    S2[SP[a1, a6], a3, a4, a2, a5, n] - S2[SP[a1, a6], a3, a4, a5, a2, n] - 
    S2[SP[a1, a6], a3, a5, a4, a2, n] - S2[SP[a1, a6], a4, a2, a3, a5, n] - 
    S2[SP[a1, a6], a4, a2, a5, a3, n] - S2[SP[a1, a6], a4, a3, a2, a5, n] - 
    S2[SP[a1, a6], a4, a3, a5, a2, n] - S2[SP[a1, a6], a4, a5, a2, a3, n] - 
    S2[SP[a1, a6], a4, a5, a3, a2, n] - S2[SP[a1, a6], a5, a3, a4, a2, n] - 
    S2[SP[a1, a6], a5, a4, a2, a3, n] - S2[SP[a1, a6], a5, a4, a3, a2, n] - 
    S2[SP[a2, a4], a1, a5, a6, a3, n] - S2[SP[a2, a4], a5, a1, a6, a3, n] - 
    S2[SP[a2, a4], a5, a6, a1, a3, n] + S2[SP[a2, a6], a4, a1, a3, a5, n] + 
    S2[SP[a2, a6], a4, a1, a5, a3, n] + S2[SP[a2, a6], a4, a5, a1, a3, n] + 
    S2[SP[a2, a6], a5, a4, a1, a3, n] + S2[SP[a5, a6], a1, a3, a4, a2, n] + 
    S2[SP[a5, a6], a1, a4, a2, a3, n] + S2[SP[a5, a6], a1, a4, a3, a2, n] - 
    S2[SP[a5, a6], a2, a4, a1, a3, n] - S2[a6, a3, a1, a5, a2, a4, n] - 
    S2[a6, a3, a5, a1, a2, a4, n] - S2[a6, a3, a5, a2, a1, a4, n] - 
    S2[a6, a3, a5, a2, a4, a1, n] - S2[a6, a5, a2, a3, a1, a4, n] - 
    S2[a6, a5, a2, a3, a4, a1, n] - S2[a6, a5, a2, a4, a3, a1, n] - 
    S2[a6, a5, a3, a1, a2, a4, n] - S2[a6, a5, a3, a2, a1, a4, n] - 
    S2[a6, a5, a3, a2, a4, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a4_, a2_, a6_, a1_, a3_, a5_, n_] :> 
  S2[a2, a4, n]*S2[a1, a3, a5, a6, n] + S2[a2, a4, n]*S2[a1, a3, a6, a5, n] - 
    S2[a1, a3, SP[a2, a5], SP[a4, a6], n] - S2[a1, a3, SP[a2, a6], 
     SP[a4, a5], n] + S2[a2, a4, n]*S2[a1, a6, a3, a5, n] - 
    S2[a1, a6, SP[a2, a3], SP[a4, a5], n] - S2[a1, SP[a2, a3], a5, 
     SP[a4, a6], n] - S2[a1, SP[a2, a3], a6, SP[a4, a5], n] - 
    S2[a1, SP[a2, a3], SP[a4, a5], a6, n] - S2[a1, SP[a2, a3], SP[a4, a6], 
     a5, n] - S2[a1, SP[a2, a6], a3, SP[a4, a5], n] - 
    S2[a1, SP[a2, a6], SP[a3, a4], a5, n] - S2[SP[a1, a2], a3, a5, 
     SP[a4, a6], n] - S2[SP[a1, a2], a3, a6, SP[a4, a5], n] - 
    S2[SP[a1, a2], a3, SP[a4, a5], a6, n] - S2[SP[a1, a2], a3, SP[a4, a6], 
     a5, n] - S2[SP[a1, a2], a6, a3, SP[a4, a5], n] - 
    S2[SP[a1, a2], a6, SP[a3, a4], a5, n] - S2[SP[a1, a2], SP[a3, a4], a5, 
     a6, n] - S2[SP[a1, a2], SP[a3, a4], a6, a5, n] - 
    S2[SP[a1, a2], SP[a4, a6], a3, a5, n] + S2[a1, a2, a3, a5, SP[a4, a6], 
     n] + S2[a1, a2, a3, a6, SP[a4, a5], n] + S2[a1, a2, a3, SP[a4, a5], a6, 
     n] + S2[a1, a2, a3, SP[a4, a6], a5, n] + S2[a1, a2, a6, a3, SP[a4, a5], 
     n] + S2[a1, a2, a6, SP[a3, a4], a5, n] + S2[a1, a2, SP[a3, a4], a5, a6, 
     n] + S2[a1, a2, SP[a3, a4], a6, a5, n] + S2[a1, a2, SP[a4, a6], a3, a5, 
     n] + S2[a1, a3, a2, a5, SP[a4, a6], n] + S2[a1, a3, a2, a6, SP[a4, a5], 
     n] + S2[a1, a3, a2, SP[a4, a5], a6, n] + S2[a1, a3, a2, SP[a4, a6], a5, 
     n] + S2[a6, n]*S2[a1, a3, a4, a2, a5, n] + S2[a1, a3, a4, a2, 
     SP[a5, a6], n] + S2[a6, n]*S2[a1, a3, a4, a5, a2, n] - 
    S2[a2, n]*S2[a1, a3, a4, a5, a6, n] - 
    S2[a2, n]*S2[a1, a3, a4, a6, a5, n] - S2[a1, a3, a4, a6, SP[a2, a5], n] - 
    S2[a1, a3, a4, SP[a2, a5], a6, n] + S2[a1, a3, a4, SP[a5, a6], a2, n] + 
    S2[a1, a3, a5, a2, SP[a4, a6], n] + S2[a6, n]*S2[a1, a3, a5, a4, a2, n] - 
    S2[a2, n]*S2[a1, a3, a5, a4, a6, n] - 
    S2[a2, n]*S2[a1, a3, a5, a6, a4, n] - S2[a1, a3, a5, a6, SP[a2, a4], n] - 
    S2[a1, a3, a5, SP[a2, a4], a6, n] + S2[a1, a3, a5, SP[a4, a6], a2, n] + 
    S2[a1, a3, a6, a2, SP[a4, a5], n] - S2[a2, n]*S2[a1, a3, a6, a4, a5, n] - 
    S2[a1, a3, a6, a4, SP[a2, a5], n] - S2[a2, n]*S2[a1, a3, a6, a5, a4, n] - 
    S2[a1, a3, a6, a5, SP[a2, a4], n] - S2[a1, a3, a6, SP[a2, a4], a5, n] - 
    S2[a1, a3, SP[a2, a4], a5, a6, n] - S2[a1, a3, SP[a2, a4], a6, a5, n] + 
    S2[a1, a3, SP[a4, a6], a2, a5, n] + S2[a1, a3, SP[a4, a6], a5, a2, n] + 
    S2[a1, a3, SP[a5, a6], a4, a2, n] + S2[a6, n]*S2[a1, a4, a2, a3, a5, n] + 
    S2[a1, a4, a2, a3, SP[a5, a6], n] + S2[a1, a4, a2, SP[a3, a6], a5, n] + 
    S2[a6, n]*S2[a1, a4, a3, a2, a5, n] + S2[a1, a4, a3, a2, SP[a5, a6], n] + 
    S2[a6, n]*S2[a1, a4, a3, a5, a2, n] - 
    S2[a2, n]*S2[a1, a4, a3, a5, a6, n] - 
    S2[a2, n]*S2[a1, a4, a3, a6, a5, n] - S2[a1, a4, a3, a6, SP[a2, a5], n] - 
    S2[a1, a4, a3, SP[a2, a5], a6, n] + S2[a1, a4, a3, SP[a5, a6], a2, n] - 
    S2[a2, n]*S2[a1, a4, a6, a3, a5, n] - S2[a1, a4, a6, a3, SP[a2, a5], n] - 
    S2[a1, a4, a6, SP[a2, a3], a5, n] - S2[a1, a4, SP[a2, a3], a5, a6, n] - 
    S2[a1, a4, SP[a2, a3], a6, a5, n] + S2[a1, a4, SP[a3, a6], a2, a5, n] + 
    S2[a1, a4, SP[a3, a6], a5, a2, n] + S2[a1, a6, a2, a3, SP[a4, a5], n] + 
    S2[a1, a6, a2, SP[a3, a4], a5, n] + S2[a1, a6, a3, a2, SP[a4, a5], n] - 
    S2[a2, n]*S2[a1, a6, a3, a4, a5, n] - S2[a1, a6, a3, a4, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a6, a3, a5, a4, n] - S2[a1, a6, a3, a5, SP[a2, a4], n] - 
    S2[a1, a6, a3, SP[a2, a4], a5, n] - S2[a2, n]*S2[a1, a6, a4, a3, a5, n] - 
    S2[a1, a6, a4, a3, SP[a2, a5], n] - S2[a1, a6, a4, SP[a2, a3], a5, n] - 
    S2[a1, a6, SP[a2, a4], a3, a5, n] - S2[a1, SP[a2, a4], a3, a5, a6, n] - 
    S2[a1, SP[a2, a4], a3, a6, a5, n] - S2[a1, SP[a2, a4], a6, a3, a5, n] + 
    S2[a1, SP[a3, a6], a4, a2, a5, n] + S2[a1, SP[a3, a6], a4, a5, a2, n] + 
    S2[a1, SP[a3, a6], a5, a4, a2, n] + S2[a1, SP[a4, a6], a2, a3, a5, n] + 
    S2[a1, SP[a4, a6], a3, a2, a5, n] + S2[a1, SP[a4, a6], a3, a5, a2, n] + 
    S2[a2, a1, a3, a5, SP[a4, a6], n] + S2[a2, a1, a3, a6, SP[a4, a5], n] + 
    S2[a2, a1, a3, SP[a4, a5], a6, n] + S2[a2, a1, a3, SP[a4, a6], a5, n] + 
    S2[a2, a1, a6, a3, SP[a4, a5], n] + S2[a2, a1, a6, SP[a3, a4], a5, n] + 
    S2[a2, a1, SP[a3, a4], a5, a6, n] + S2[a2, a1, SP[a3, a4], a6, a5, n] + 
    S2[a2, a1, SP[a4, a6], a3, a5, n] - S2[a6, n]*S2[a2, a4, a1, a3, a5, n] - 
    S2[a2, a4, a1, a3, SP[a5, a6], n] - S2[a2, a4, a1, SP[a3, a6], a5, n] - 
    S2[a2, a4, SP[a1, a6], a3, a5, n] + S2[a4, n]*S2[a2, a6, a1, a3, a5, n] + 
    S2[a2, a6, a1, a3, SP[a4, a5], n] + S2[a2, a6, a1, SP[a3, a4], a5, n] + 
    S2[a2, a6, SP[a1, a4], a3, a5, n] + S2[a2, SP[a1, a4], a3, a5, a6, n] + 
    S2[a2, SP[a1, a4], a3, a6, a5, n] + S2[a2, SP[a1, a4], a6, a3, a5, n] - 
    S2[a2, n]*S2[a6, a1, a3, a4, a5, n] - S2[a6, a1, a3, a4, SP[a2, a5], n] - 
    S2[a2, n]*S2[a6, a1, a3, a5, a4, n] - S2[a6, a1, a3, a5, SP[a2, a4], n] - 
    S2[a6, a1, a3, SP[a2, a4], a5, n] - S2[a6, a1, a3, SP[a2, a5], a4, n] - 
    S2[a2, n]*S2[a6, a1, a4, a3, a5, n] - S2[a6, a1, a4, a3, SP[a2, a5], n] - 
    S2[a6, a1, a4, SP[a2, a3], a5, n] - S2[a6, a1, SP[a2, a3], a4, a5, n] - 
    S2[a6, a1, SP[a2, a3], a5, a4, n] - S2[a6, a1, SP[a2, a4], a3, a5, n] - 
    S2[a6, SP[a1, a2], a3, a4, a5, n] - S2[a6, SP[a1, a2], a3, a5, a4, n] - 
    S2[a6, SP[a1, a2], a4, a3, a5, n] + S2[SP[a1, a6], a3, a4, a2, a5, n] + 
    S2[SP[a1, a6], a3, a4, a5, a2, n] + S2[SP[a1, a6], a3, a5, a4, a2, n] + 
    S2[SP[a1, a6], a4, a2, a3, a5, n] + S2[SP[a1, a6], a4, a3, a2, a5, n] + 
    S2[SP[a1, a6], a4, a3, a5, a2, n] + S2[SP[a2, a4], a6, a1, a3, a5, n] - 
    S2[SP[a2, a6], a1, a3, a4, a5, n] - S2[SP[a2, a6], a1, a3, a5, a4, n] - 
    S2[SP[a2, a6], a1, a4, a3, a5, n] - S2[SP[a2, a6], a4, a1, a3, a5, n] + 
    S2[a6, a1, a2, a3, a4, a5, n] + S2[a6, a1, a2, a3, a5, a4, n] + 
    S2[a6, a1, a2, a4, a3, a5, n] + S2[a6, a1, a3, a2, a4, a5, n] + 
    S2[a6, a1, a3, a2, a5, a4, n] + S2[a6, a1, a3, a5, a2, a4, n] + 
    S2[a6, a2, a1, a3, a4, a5, n] + S2[a6, a2, a1, a3, a5, a4, n] + 
    S2[a6, a2, a1, a4, a3, a5, n] + S2[a6, a2, a4, a1, a3, a5, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a4_, a2_, a6_, a1_, a5_, a3_, n_] :> 
  S2[a2, a4, n]*S2[a1, a5, a3, a6, n] + S2[a2, a4, n]*S2[a1, a5, a6, a3, n] - 
    S2[a1, a5, SP[a2, a3], SP[a4, a6], n] - S2[a1, a5, SP[a2, a6], 
     SP[a3, a4], n] + S2[a2, a4, n]*S2[a1, a6, a5, a3, n] - 
    S2[a1, a6, SP[a2, a5], SP[a3, a4], n] - S2[a1, SP[a2, a5], a3, 
     SP[a4, a6], n] - S2[a1, SP[a2, a5], a6, SP[a3, a4], n] - 
    S2[a1, SP[a2, a5], SP[a3, a4], a6, n] - S2[a1, SP[a2, a5], SP[a4, a6], 
     a3, n] - S2[a1, SP[a2, a6], a5, SP[a3, a4], n] - 
    S2[a1, SP[a2, a6], SP[a4, a5], a3, n] - S2[SP[a1, a2], a5, a3, 
     SP[a4, a6], n] - S2[SP[a1, a2], a5, a6, SP[a3, a4], n] - 
    S2[SP[a1, a2], a5, SP[a3, a4], a6, n] - S2[SP[a1, a2], a5, SP[a4, a6], 
     a3, n] - S2[SP[a1, a2], a6, a5, SP[a3, a4], n] - 
    S2[SP[a1, a2], a6, SP[a4, a5], a3, n] - S2[SP[a1, a2], SP[a4, a5], a3, 
     a6, n] - S2[SP[a1, a2], SP[a4, a5], a6, a3, n] - 
    S2[SP[a1, a2], SP[a4, a6], a5, a3, n] + S2[a1, a2, a5, a3, SP[a4, a6], 
     n] + S2[a1, a2, a5, a6, SP[a3, a4], n] + S2[a1, a2, a5, SP[a3, a4], a6, 
     n] + S2[a1, a2, a5, SP[a4, a6], a3, n] + S2[a1, a2, a6, a5, SP[a3, a4], 
     n] + S2[a1, a2, a6, SP[a4, a5], a3, n] + S2[a1, a2, SP[a4, a5], a3, a6, 
     n] + S2[a1, a2, SP[a4, a5], a6, a3, n] + S2[a1, a2, SP[a4, a6], a5, a3, 
     n] + S2[a6, n]*S2[a1, a4, a2, a5, a3, n] + S2[a1, a4, a2, a5, 
     SP[a3, a6], n] + S2[a1, a4, a2, SP[a5, a6], a3, n] + 
    S2[a6, n]*S2[a1, a4, a5, a2, a3, n] + S2[a1, a4, a5, a2, SP[a3, a6], n] + 
    S2[a6, n]*S2[a1, a4, a5, a3, a2, n] - 
    S2[a2, n]*S2[a1, a4, a5, a3, a6, n] - 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] - S2[a1, a4, a5, a6, SP[a2, a3], n] - 
    S2[a1, a4, a5, SP[a2, a3], a6, n] + S2[a1, a4, a5, SP[a3, a6], a2, n] - 
    S2[a2, n]*S2[a1, a4, a6, a5, a3, n] - S2[a1, a4, a6, a5, SP[a2, a3], n] - 
    S2[a1, a4, a6, SP[a2, a5], a3, n] - S2[a1, a4, SP[a2, a5], a3, a6, n] - 
    S2[a1, a4, SP[a2, a5], a6, a3, n] + S2[a1, a4, SP[a5, a6], a2, a3, n] + 
    S2[a1, a4, SP[a5, a6], a3, a2, n] + S2[a1, a5, a2, a3, SP[a4, a6], n] + 
    S2[a1, a5, a2, a6, SP[a3, a4], n] + S2[a1, a5, a2, SP[a3, a4], a6, n] + 
    S2[a1, a5, a2, SP[a4, a6], a3, n] + S2[a1, a5, a3, a2, SP[a4, a6], n] + 
    S2[a6, n]*S2[a1, a5, a3, a4, a2, n] - 
    S2[a2, n]*S2[a1, a5, a3, a4, a6, n] - 
    S2[a2, n]*S2[a1, a5, a3, a6, a4, n] - S2[a1, a5, a3, a6, SP[a2, a4], n] - 
    S2[a1, a5, a3, SP[a2, a4], a6, n] + S2[a1, a5, a3, SP[a4, a6], a2, n] + 
    S2[a6, n]*S2[a1, a5, a4, a2, a3, n] + S2[a1, a5, a4, a2, SP[a3, a6], n] + 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] - 
    S2[a2, n]*S2[a1, a5, a4, a3, a6, n] - 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] - S2[a1, a5, a4, a6, SP[a2, a3], n] - 
    S2[a1, a5, a4, SP[a2, a3], a6, n] + S2[a1, a5, a4, SP[a3, a6], a2, n] + 
    S2[a1, a5, a6, a2, SP[a3, a4], n] - S2[a2, n]*S2[a1, a5, a6, a3, a4, n] - 
    S2[a1, a5, a6, a3, SP[a2, a4], n] - S2[a2, n]*S2[a1, a5, a6, a4, a3, n] - 
    S2[a1, a5, a6, a4, SP[a2, a3], n] - S2[a1, a5, a6, SP[a2, a4], a3, n] - 
    S2[a1, a5, SP[a2, a4], a3, a6, n] - S2[a1, a5, SP[a2, a4], a6, a3, n] + 
    S2[a1, a5, SP[a3, a6], a4, a2, n] + S2[a1, a5, SP[a4, a6], a2, a3, n] + 
    S2[a1, a5, SP[a4, a6], a3, a2, n] + S2[a1, a6, a2, a5, SP[a3, a4], n] + 
    S2[a1, a6, a2, SP[a4, a5], a3, n] - S2[a2, n]*S2[a1, a6, a4, a5, a3, n] - 
    S2[a1, a6, a4, a5, SP[a2, a3], n] - S2[a1, a6, a4, SP[a2, a5], a3, n] + 
    S2[a1, a6, a5, a2, SP[a3, a4], n] - S2[a2, n]*S2[a1, a6, a5, a3, a4, n] - 
    S2[a1, a6, a5, a3, SP[a2, a4], n] - S2[a2, n]*S2[a1, a6, a5, a4, a3, n] - 
    S2[a1, a6, a5, a4, SP[a2, a3], n] - S2[a1, a6, a5, SP[a2, a4], a3, n] - 
    S2[a1, a6, SP[a2, a4], a5, a3, n] - S2[a1, SP[a2, a4], a5, a3, a6, n] - 
    S2[a1, SP[a2, a4], a5, a6, a3, n] - S2[a1, SP[a2, a4], a6, a5, a3, n] + 
    S2[a1, SP[a4, a6], a2, a5, a3, n] + S2[a1, SP[a4, a6], a5, a2, a3, n] + 
    S2[a1, SP[a4, a6], a5, a3, a2, n] + S2[a1, SP[a5, a6], a3, a4, a2, n] + 
    S2[a1, SP[a5, a6], a4, a2, a3, n] + S2[a1, SP[a5, a6], a4, a3, a2, n] + 
    S2[a2, a1, a5, a3, SP[a4, a6], n] + S2[a2, a1, a5, a6, SP[a3, a4], n] + 
    S2[a2, a1, a5, SP[a3, a4], a6, n] + S2[a2, a1, a5, SP[a4, a6], a3, n] + 
    S2[a2, a1, a6, a5, SP[a3, a4], n] + S2[a2, a1, a6, SP[a4, a5], a3, n] + 
    S2[a2, a1, SP[a4, a5], a3, a6, n] + S2[a2, a1, SP[a4, a5], a6, a3, n] + 
    S2[a2, a1, SP[a4, a6], a5, a3, n] - S2[a6, n]*S2[a2, a4, a1, a5, a3, n] - 
    S2[a2, a4, a1, a5, SP[a3, a6], n] - S2[a2, a4, a1, SP[a5, a6], a3, n] - 
    S2[a2, a4, SP[a1, a6], a5, a3, n] + S2[a4, n]*S2[a2, a6, a1, a5, a3, n] + 
    S2[a2, a6, a1, a5, SP[a3, a4], n] + S2[a2, a6, a1, SP[a4, a5], a3, n] + 
    S2[a2, a6, SP[a1, a4], a5, a3, n] + S2[a2, SP[a1, a4], a5, a3, a6, n] + 
    S2[a2, SP[a1, a4], a5, a6, a3, n] + S2[a2, SP[a1, a4], a6, a5, a3, n] - 
    S2[a2, n]*S2[a6, a1, a4, a5, a3, n] - S2[a6, a1, a4, a5, SP[a2, a3], n] - 
    S2[a6, a1, a4, SP[a2, a5], a3, n] - S2[a2, n]*S2[a6, a1, a5, a3, a4, n] - 
    S2[a6, a1, a5, a3, SP[a2, a4], n] - S2[a2, n]*S2[a6, a1, a5, a4, a3, n] - 
    S2[a6, a1, a5, a4, SP[a2, a3], n] - S2[a6, a1, a5, SP[a2, a3], a4, n] - 
    S2[a6, a1, a5, SP[a2, a4], a3, n] - S2[a6, a1, SP[a2, a4], a5, a3, n] - 
    S2[a6, a1, SP[a2, a5], a3, a4, n] - S2[a6, a1, SP[a2, a5], a4, a3, n] - 
    S2[a6, SP[a1, a2], a4, a5, a3, n] - S2[a6, SP[a1, a2], a5, a3, a4, n] - 
    S2[a6, SP[a1, a2], a5, a4, a3, n] + S2[SP[a1, a6], a4, a2, a5, a3, n] + 
    S2[SP[a1, a6], a4, a5, a2, a3, n] + S2[SP[a1, a6], a4, a5, a3, a2, n] + 
    S2[SP[a1, a6], a5, a3, a4, a2, n] + S2[SP[a1, a6], a5, a4, a2, a3, n] + 
    S2[SP[a1, a6], a5, a4, a3, a2, n] + S2[SP[a2, a4], a6, a1, a5, a3, n] - 
    S2[SP[a2, a6], a1, a4, a5, a3, n] - S2[SP[a2, a6], a1, a5, a3, a4, n] - 
    S2[SP[a2, a6], a1, a5, a4, a3, n] - S2[SP[a2, a6], a4, a1, a5, a3, n] + 
    S2[a6, a1, a2, a4, a5, a3, n] + S2[a6, a1, a2, a5, a3, a4, n] + 
    S2[a6, a1, a2, a5, a4, a3, n] + S2[a6, a1, a5, a2, a3, a4, n] + 
    S2[a6, a1, a5, a2, a4, a3, n] + S2[a6, a1, a5, a3, a2, a4, n] + 
    S2[a6, a2, a1, a4, a5, a3, n] + S2[a6, a2, a1, a5, a3, a4, n] + 
    S2[a6, a2, a1, a5, a4, a3, n] + S2[a6, a2, a4, a1, a5, a3, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a4_, a2_, a6_, a3_, a1_, a5_, n_] :> 
  -(S2[a2, a4, n]*S2[a1, a3, a5, a6, n]) - S2[a2, a4, n]*
     S2[a1, a3, a6, a5, n] + S2[a1, a3, SP[a2, a5], SP[a4, a6], n] + 
    S2[a1, a3, SP[a2, a6], SP[a4, a5], n] - S2[a2, a4, n]*
     S2[a1, a5, a3, a6, n] + S2[a1, a5, SP[a2, a3], SP[a4, a6], n] + 
    S2[a1, SP[a2, a3], a5, SP[a4, a6], n] + S2[a1, SP[a2, a3], a6, 
     SP[a4, a5], n] + S2[a1, SP[a2, a3], SP[a4, a5], a6, n] + 
    S2[a1, SP[a2, a3], SP[a4, a6], a5, n] + S2[a1, SP[a2, a5], a3, 
     SP[a4, a6], n] + S2[a1, SP[a2, a5], SP[a3, a4], a6, n] - 
    S2[a1, a5, n]*S2[a2, a4, a6, a3, n] + S2[a2, a4, SP[a1, a6], SP[a3, a5], 
     n] - S2[a1, a5, n]*S2[a2, a6, a3, a4, n] - 
    S2[a1, a5, n]*S2[a2, a6, a4, a3, n] + S2[a2, a6, SP[a1, a3], SP[a4, a5], 
     n] + S2[a2, a6, SP[a1, a4], SP[a3, a5], n] + S2[a2, SP[a1, a4], a6, 
     SP[a3, a5], n] + S2[a2, SP[a1, a4], SP[a5, a6], a3, n] + 
    S2[a2, SP[a1, a6], a3, SP[a4, a5], n] + S2[a2, SP[a1, a6], a4, 
     SP[a3, a5], n] + S2[a2, SP[a1, a6], SP[a3, a5], a4, n] + 
    S2[a2, SP[a1, a6], SP[a4, a5], a3, n] + S2[a1, a5, n]*
     S2[a3, a6, a2, a4, n] - S2[a3, a6, SP[a1, a2], SP[a4, a5], n] - 
    S2[a3, SP[a1, a6], a2, SP[a4, a5], n] - S2[a3, SP[a1, a6], SP[a2, a5], 
     a4, n] + S2[SP[a1, a2], a3, a5, SP[a4, a6], n] + 
    S2[SP[a1, a2], a3, a6, SP[a4, a5], n] + S2[SP[a1, a2], a3, SP[a4, a5], 
     a6, n] + S2[SP[a1, a2], a3, SP[a4, a6], a5, n] + 
    S2[SP[a1, a2], a4, a6, SP[a3, a5], n] + S2[SP[a1, a2], a4, SP[a5, a6], 
     a3, n] + S2[SP[a1, a2], a5, a3, SP[a4, a6], n] + 
    S2[SP[a1, a2], a5, SP[a3, a4], a6, n] + S2[SP[a1, a2], a6, a3, 
     SP[a4, a5], n] + S2[SP[a1, a2], a6, a4, SP[a3, a5], n] + 
    S2[SP[a1, a2], a6, SP[a3, a5], a4, n] + S2[SP[a1, a2], a6, SP[a4, a5], 
     a3, n] + S2[SP[a1, a2], SP[a3, a4], a5, a6, n] + 
    S2[SP[a1, a2], SP[a3, a4], a6, a5, n] + S2[SP[a1, a2], SP[a4, a5], a3, 
     a6, n] + S2[SP[a1, a2], SP[a4, a5], a6, a3, n] + 
    S2[SP[a1, a2], SP[a5, a6], a3, a4, n] + S2[SP[a1, a2], SP[a5, a6], a4, 
     a3, n] - S2[SP[a1, a3], a6, a2, SP[a4, a5], n] - 
    S2[SP[a1, a3], a6, SP[a2, a5], a4, n] - S2[SP[a1, a3], SP[a5, a6], a2, 
     a4, n] - S2[a1, a2, a3, a5, SP[a4, a6], n] - 
    S2[a1, a2, a3, a6, SP[a4, a5], n] - S2[a1, a2, a3, SP[a4, a5], a6, n] - 
    S2[a1, a2, a3, SP[a4, a6], a5, n] - S2[a1, a2, a4, a6, SP[a3, a5], n] - 
    S2[a1, a2, a4, SP[a5, a6], a3, n] - S2[a1, a2, a5, a3, SP[a4, a6], n] - 
    S2[a1, a2, a5, SP[a3, a4], a6, n] - S2[a1, a2, a6, a3, SP[a4, a5], n] - 
    S2[a1, a2, a6, a4, SP[a3, a5], n] - S2[a1, a2, a6, SP[a3, a5], a4, n] - 
    S2[a1, a2, a6, SP[a4, a5], a3, n] - S2[a1, a2, SP[a3, a4], a5, a6, n] - 
    S2[a1, a2, SP[a3, a4], a6, a5, n] - S2[a1, a2, SP[a4, a5], a3, a6, n] - 
    S2[a1, a2, SP[a4, a5], a6, a3, n] - S2[a1, a2, SP[a5, a6], a3, a4, n] - 
    S2[a1, a2, SP[a5, a6], a4, a3, n] - S2[a1, a3, a2, a5, SP[a4, a6], n] - 
    S2[a1, a3, a2, a6, SP[a4, a5], n] - S2[a1, a3, a2, SP[a4, a5], a6, n] - 
    S2[a1, a3, a2, SP[a4, a6], a5, n] - S2[a6, n]*S2[a1, a3, a4, a2, a5, n] - 
    S2[a1, a3, a4, a2, SP[a5, a6], n] - S2[a6, n]*S2[a1, a3, a4, a5, a2, n] + 
    S2[a2, n]*S2[a1, a3, a4, a5, a6, n] + 
    S2[a2, n]*S2[a1, a3, a4, a6, a5, n] + S2[a1, a3, a4, a6, SP[a2, a5], n] + 
    S2[a1, a3, a4, SP[a2, a5], a6, n] - S2[a1, a3, a4, SP[a5, a6], a2, n] - 
    S2[a1, a3, a5, a2, SP[a4, a6], n] - S2[a6, n]*S2[a1, a3, a5, a4, a2, n] + 
    S2[a2, n]*S2[a1, a3, a5, a4, a6, n] + 
    S2[a2, n]*S2[a1, a3, a5, a6, a4, n] + S2[a1, a3, a5, a6, SP[a2, a4], n] + 
    S2[a1, a3, a5, SP[a2, a4], a6, n] - S2[a1, a3, a5, SP[a4, a6], a2, n] + 
    S2[a2, n]*S2[a1, a3, a6, a4, a5, n] + S2[a1, a3, a6, a4, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a3, a6, a5, a4, n] + S2[a1, a3, a6, a5, SP[a2, a4], n] + 
    S2[a1, a3, a6, SP[a2, a4], a5, n] + S2[a1, a3, a6, SP[a2, a5], a4, n] + 
    S2[a1, a3, SP[a2, a4], a5, a6, n] + S2[a1, a3, SP[a2, a4], a6, a5, n] - 
    S2[a1, a3, SP[a4, a6], a2, a5, n] - S2[a1, a3, SP[a4, a6], a5, a2, n] + 
    S2[a1, a3, SP[a5, a6], a2, a4, n] - S2[a1, a3, SP[a5, a6], a4, a2, n] - 
    S2[a6, n]*S2[a1, a4, a2, a3, a5, n] - S2[a1, a4, a2, a3, SP[a5, a6], n] - 
    S2[a6, n]*S2[a1, a4, a2, a5, a3, n] - S2[a1, a4, a2, a5, SP[a3, a6], n] - 
    S2[a1, a4, a2, SP[a3, a6], a5, n] - S2[a1, a4, a2, SP[a5, a6], a3, n] - 
    S2[a6, n]*S2[a1, a4, a3, a2, a5, n] - S2[a1, a4, a3, a2, SP[a5, a6], n] - 
    S2[a6, n]*S2[a1, a4, a3, a5, a2, n] + 
    S2[a2, n]*S2[a1, a4, a3, a5, a6, n] + 
    S2[a2, n]*S2[a1, a4, a3, a6, a5, n] + S2[a1, a4, a3, a6, SP[a2, a5], n] + 
    S2[a1, a4, a3, SP[a2, a5], a6, n] - S2[a1, a4, a3, SP[a5, a6], a2, n] - 
    S2[a6, n]*S2[a1, a4, a5, a2, a3, n] - S2[a1, a4, a5, a2, SP[a3, a6], n] - 
    S2[a6, n]*S2[a1, a4, a5, a3, a2, n] + 
    S2[a2, n]*S2[a1, a4, a5, a3, a6, n] + 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] + S2[a1, a4, a5, a6, SP[a2, a3], n] + 
    S2[a1, a4, a5, SP[a2, a3], a6, n] - S2[a1, a4, a5, SP[a3, a6], a2, n] + 
    S2[a2, n]*S2[a1, a4, a6, a3, a5, n] + S2[a1, a4, a6, a3, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a4, a6, a5, a3, n] + S2[a1, a4, a6, a5, SP[a2, a3], n] + 
    S2[a1, a4, a6, SP[a2, a3], a5, n] + S2[a1, a4, a6, SP[a2, a5], a3, n] + 
    S2[a1, a4, SP[a2, a3], a5, a6, n] + S2[a1, a4, SP[a2, a3], a6, a5, n] + 
    S2[a1, a4, SP[a2, a5], a3, a6, n] + S2[a1, a4, SP[a2, a5], a6, a3, n] - 
    S2[a1, a4, SP[a3, a6], a2, a5, n] - S2[a1, a4, SP[a3, a6], a5, a2, n] - 
    S2[a1, a4, SP[a5, a6], a2, a3, n] - S2[a1, a4, SP[a5, a6], a3, a2, n] - 
    S2[a1, a5, a2, a3, SP[a4, a6], n] - S2[a1, a5, a2, SP[a3, a4], a6, n] - 
    S2[a1, a5, a3, a2, SP[a4, a6], n] - S2[a6, n]*S2[a1, a5, a3, a4, a2, n] + 
    S2[a2, n]*S2[a1, a5, a3, a4, a6, n] + 
    S2[a2, n]*S2[a1, a5, a3, a6, a4, n] + S2[a1, a5, a3, a6, SP[a2, a4], n] + 
    S2[a1, a5, a3, SP[a2, a4], a6, n] - S2[a1, a5, a3, SP[a4, a6], a2, n] - 
    S2[a6, n]*S2[a1, a5, a4, a2, a3, n] - S2[a1, a5, a4, a2, SP[a3, a6], n] - 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] + 
    S2[a2, n]*S2[a1, a5, a4, a3, a6, n] + 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] + S2[a1, a5, a4, a6, SP[a2, a3], n] + 
    S2[a1, a5, a4, SP[a2, a3], a6, n] - S2[a1, a5, a4, SP[a3, a6], a2, n] - 
    S2[a3, n]*S2[a1, a5, a6, a2, a4, n] - S2[a1, a5, a6, a2, SP[a3, a4], n] + 
    S2[a2, n]*S2[a1, a5, a6, a3, a4, n] + S2[a1, a5, a6, a3, SP[a2, a4], n] + 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] + S2[a1, a5, a6, a4, SP[a2, a3], n] + 
    S2[a1, a5, a6, SP[a2, a4], a3, n] + S2[a1, a5, SP[a2, a4], a3, a6, n] + 
    S2[a1, a5, SP[a2, a4], a6, a3, n] + S2[a1, a5, SP[a2, a6], a3, a4, n] + 
    S2[a1, a5, SP[a2, a6], a4, a3, n] - S2[a1, a5, SP[a3, a6], a2, a4, n] - 
    S2[a1, a5, SP[a3, a6], a4, a2, n] - S2[a1, a5, SP[a4, a6], a2, a3, n] - 
    S2[a1, a5, SP[a4, a6], a3, a2, n] - S2[a3, n]*S2[a1, a6, a2, a4, a5, n] - 
    S2[a1, a6, a2, a4, SP[a3, a5], n] - S2[a3, n]*S2[a1, a6, a2, a5, a4, n] - 
    S2[a1, a6, a2, a5, SP[a3, a4], n] - S2[a1, a6, a2, SP[a3, a4], a5, n] - 
    S2[a1, a6, a2, SP[a3, a5], a4, n] + S2[a2, n]*S2[a1, a6, a3, a4, a5, n] + 
    S2[a1, a6, a3, a4, SP[a2, a5], n] + S2[a2, n]*S2[a1, a6, a3, a5, a4, n] + 
    S2[a1, a6, a3, a5, SP[a2, a4], n] + S2[a1, a6, a3, SP[a2, a4], a5, n] + 
    S2[a1, a6, a3, SP[a2, a5], a4, n] + S2[a2, n]*S2[a1, a6, a4, a3, a5, n] + 
    S2[a1, a6, a4, a3, SP[a2, a5], n] + S2[a2, n]*S2[a1, a6, a4, a5, a3, n] + 
    S2[a1, a6, a4, a5, SP[a2, a3], n] + S2[a1, a6, a4, SP[a2, a3], a5, n] + 
    S2[a1, a6, a4, SP[a2, a5], a3, n] - S2[a3, n]*S2[a1, a6, a5, a2, a4, n] - 
    S2[a1, a6, a5, a2, SP[a3, a4], n] + S2[a2, n]*S2[a1, a6, a5, a3, a4, n] + 
    S2[a1, a6, a5, a3, SP[a2, a4], n] + S2[a2, n]*S2[a1, a6, a5, a4, a3, n] + 
    S2[a1, a6, a5, a4, SP[a2, a3], n] + S2[a1, a6, a5, SP[a2, a4], a3, n] + 
    S2[a1, a6, SP[a2, a4], a3, a5, n] + S2[a1, a6, SP[a2, a4], a5, a3, n] + 
    S2[a1, a6, SP[a2, a5], a3, a4, n] + S2[a1, a6, SP[a2, a5], a4, a3, n] - 
    S2[a1, a6, SP[a3, a5], a2, a4, n] + S2[a1, SP[a2, a4], a3, a5, a6, n] + 
    S2[a1, SP[a2, a4], a3, a6, a5, n] + S2[a1, SP[a2, a4], a5, a3, a6, n] + 
    S2[a1, SP[a2, a4], a5, a6, a3, n] + S2[a1, SP[a2, a4], a6, a3, a5, n] + 
    S2[a1, SP[a2, a4], a6, a5, a3, n] + S2[a1, SP[a2, a6], a3, a4, a5, n] + 
    S2[a1, SP[a2, a6], a3, a5, a4, n] + S2[a1, SP[a2, a6], a4, a3, a5, n] + 
    S2[a1, SP[a2, a6], a4, a5, a3, n] + S2[a1, SP[a2, a6], a5, a3, a4, n] + 
    S2[a1, SP[a2, a6], a5, a4, a3, n] - S2[a1, SP[a3, a6], a2, a4, a5, n] - 
    S2[a1, SP[a3, a6], a2, a5, a4, n] - S2[a1, SP[a3, a6], a4, a2, a5, n] - 
    S2[a1, SP[a3, a6], a4, a5, a2, n] - S2[a1, SP[a3, a6], a5, a2, a4, n] - 
    S2[a1, SP[a3, a6], a5, a4, a2, n] - S2[a1, SP[a4, a6], a2, a3, a5, n] - 
    S2[a1, SP[a4, a6], a2, a5, a3, n] - S2[a1, SP[a4, a6], a3, a2, a5, n] - 
    S2[a1, SP[a4, a6], a3, a5, a2, n] - S2[a1, SP[a4, a6], a5, a2, a3, n] - 
    S2[a1, SP[a4, a6], a5, a3, a2, n] - S2[a1, SP[a5, a6], a3, a4, a2, n] - 
    S2[a1, SP[a5, a6], a4, a2, a3, n] - S2[a1, SP[a5, a6], a4, a3, a2, n] - 
    S2[a2, a1, a3, a5, SP[a4, a6], n] - S2[a2, a1, a3, a6, SP[a4, a5], n] - 
    S2[a2, a1, a3, SP[a4, a5], a6, n] - S2[a2, a1, a3, SP[a4, a6], a5, n] - 
    S2[a2, a1, a4, a6, SP[a3, a5], n] - S2[a2, a1, a4, SP[a5, a6], a3, n] - 
    S2[a2, a1, a5, a3, SP[a4, a6], n] - S2[a2, a1, a5, SP[a3, a4], a6, n] - 
    S2[a2, a1, a6, a3, SP[a4, a5], n] - S2[a2, a1, a6, a4, SP[a3, a5], n] - 
    S2[a2, a1, a6, SP[a3, a5], a4, n] - S2[a2, a1, a6, SP[a4, a5], a3, n] - 
    S2[a2, a1, SP[a3, a4], a5, a6, n] - S2[a2, a1, SP[a3, a4], a6, a5, n] - 
    S2[a2, a1, SP[a4, a5], a3, a6, n] - S2[a2, a1, SP[a4, a5], a6, a3, n] - 
    S2[a2, a1, SP[a5, a6], a3, a4, n] - S2[a2, a1, SP[a5, a6], a4, a3, n] + 
    S2[a6, n]*S2[a2, a4, a1, a3, a5, n] + S2[a2, a4, a1, a3, SP[a5, a6], n] + 
    S2[a6, n]*S2[a2, a4, a1, a5, a3, n] + S2[a2, a4, a1, a5, SP[a3, a6], n] - 
    S2[a2, a4, a1, a6, SP[a3, a5], n] + S2[a2, a4, a1, SP[a3, a6], a5, n] - 
    S2[a2, a4, a6, a1, SP[a3, a5], n] - S2[a2, a4, a6, SP[a1, a3], a5, n] - 
    S2[a2, a6, a1, a3, SP[a4, a5], n] + S2[a3, n]*S2[a2, a6, a1, a4, a5, n] + 
    S2[a3, n]*S2[a2, a6, a1, a5, a4, n] + S2[a2, a6, a1, a5, SP[a3, a4], n] + 
    S2[a2, a6, a1, SP[a3, a4], a5, n] - S2[a2, a6, a1, SP[a4, a5], a3, n] + 
    S2[a4, n]*S2[a2, a6, a3, a1, a5, n] - S2[a2, a6, a4, a1, SP[a3, a5], n] - 
    S2[a2, a6, a4, SP[a1, a3], a5, n] - S2[a2, a6, SP[a1, a4], a3, a5, n] - 
    S2[a2, a6, SP[a1, a4], a5, a3, n] + S2[a2, a6, SP[a3, a4], a1, a5, n] - 
    S2[a2, SP[a1, a4], a3, a5, a6, n] - S2[a2, SP[a1, a4], a3, a6, a5, n] - 
    S2[a2, SP[a1, a4], a5, a3, a6, n] - S2[a2, SP[a1, a4], a5, a6, a3, n] - 
    S2[a2, SP[a1, a4], a6, a3, a5, n] - S2[a2, SP[a1, a4], a6, a5, a3, n] - 
    S2[a2, SP[a1, a6], a3, a4, a5, n] - S2[a2, SP[a1, a6], a3, a5, a4, n] - 
    S2[a2, SP[a1, a6], a4, a3, a5, n] - S2[a2, SP[a1, a6], a4, a5, a3, n] - 
    S2[a2, SP[a1, a6], a5, a3, a4, n] - S2[a2, SP[a1, a6], a5, a4, a3, n] + 
    S2[a2, SP[a3, a6], a1, a4, a5, n] + S2[a2, SP[a3, a6], a1, a5, a4, n] + 
    S2[a2, SP[a4, a6], a1, a3, a5, n] + S2[a2, SP[a4, a6], a1, a5, a3, n] + 
    S2[a2, SP[a4, a6], a3, a1, a5, n] + S2[a3, a1, a6, a2, SP[a4, a5], n] + 
    S2[a3, a1, a6, SP[a2, a5], a4, n] + S2[a3, a1, SP[a5, a6], a2, a4, n] + 
    S2[a3, a6, a1, a2, SP[a4, a5], n] - S2[a2, n]*S2[a3, a6, a1, a4, a5, n] - 
    S2[a3, a6, a1, a4, SP[a2, a5], n] - S2[a2, n]*S2[a3, a6, a1, a5, a4, n] - 
    S2[a3, a6, a1, a5, SP[a2, a4], n] - S2[a3, a6, a1, SP[a2, a4], a5, n] + 
    S2[a3, a6, a2, a1, SP[a4, a5], n] + S2[a3, a6, a2, SP[a1, a4], a5, n] + 
    S2[a3, SP[a1, a6], a2, a4, a5, n] + S2[a3, SP[a1, a6], a2, a5, a4, n] + 
    S2[a3, SP[a1, a6], a5, a2, a4, n] - S2[a3, SP[a2, a6], a1, a4, a5, n] - 
    S2[a3, SP[a2, a6], a1, a5, a4, n] + S2[a3, n]*S2[a6, a1, a4, a2, a5, n] + 
    S2[a6, a1, a4, a2, SP[a3, a5], n] + S2[a3, n]*S2[a6, a1, a4, a5, a2, n] + 
    S2[a6, a1, a4, a5, SP[a2, a3], n] + S2[a6, a1, a4, SP[a2, a3], a5, n] + 
    S2[a6, a1, a4, SP[a3, a5], a2, n] + S2[a3, n]*S2[a6, a1, a5, a4, a2, n] + 
    S2[a6, a1, a5, a4, SP[a2, a3], n] + S2[a6, a1, a5, SP[a3, a4], a2, n] + 
    S2[a6, a1, SP[a3, a4], a2, a5, n] + S2[a6, a1, SP[a3, a4], a5, a2, n] + 
    S2[a6, a1, SP[a3, a5], a4, a2, n] - S2[a3, n]*S2[a6, a2, a4, a1, a5, n] - 
    S2[a6, a2, a4, a1, SP[a3, a5], n] - S2[a6, a2, a4, SP[a1, a3], a5, n] - 
    S2[a6, a2, SP[a3, a4], a1, a5, n] - S2[a2, n]*S2[a6, a3, a1, a4, a5, n] - 
    S2[a6, a3, a1, a4, SP[a2, a5], n] - S2[a2, n]*S2[a6, a3, a1, a5, a4, n] - 
    S2[a6, a3, a1, a5, SP[a2, a4], n] - S2[a6, a3, a1, SP[a2, a4], a5, n] - 
    S2[a6, a3, a1, SP[a2, a5], a4, n] - S2[a6, a3, SP[a1, a2], a4, a5, n] - 
    S2[a6, a3, SP[a1, a2], a5, a4, n] + S2[a6, SP[a1, a3], a4, a2, a5, n] + 
    S2[a6, SP[a1, a3], a4, a5, a2, n] + S2[a6, SP[a1, a3], a5, a4, a2, n] - 
    S2[a6, SP[a2, a3], a1, a4, a5, n] - S2[a6, SP[a2, a3], a1, a5, a4, n] - 
    S2[a6, SP[a2, a3], a4, a1, a5, n] - S2[SP[a1, a6], a3, a4, a2, a5, n] - 
    S2[SP[a1, a6], a3, a4, a5, a2, n] - S2[SP[a1, a6], a3, a5, a4, a2, n] - 
    S2[SP[a1, a6], a4, a2, a3, a5, n] - S2[SP[a1, a6], a4, a2, a5, a3, n] - 
    S2[SP[a1, a6], a4, a3, a2, a5, n] - S2[SP[a1, a6], a4, a3, a5, a2, n] - 
    S2[SP[a1, a6], a4, a5, a2, a3, n] - S2[SP[a1, a6], a4, a5, a3, a2, n] - 
    S2[SP[a1, a6], a5, a3, a4, a2, n] - S2[SP[a1, a6], a5, a4, a2, a3, n] - 
    S2[SP[a1, a6], a5, a4, a3, a2, n] + S2[SP[a2, a4], a6, a3, a1, a5, n] - 
    S2[SP[a2, a6], a3, a1, a4, a5, n] - S2[SP[a2, a6], a3, a1, a5, a4, n] + 
    S2[SP[a2, a6], a4, a1, a3, a5, n] + S2[SP[a2, a6], a4, a1, a5, a3, n] + 
    S2[SP[a3, a6], a1, a4, a2, a5, n] + S2[SP[a3, a6], a1, a4, a5, a2, n] + 
    S2[SP[a3, a6], a1, a5, a4, a2, n] - S2[SP[a3, a6], a2, a4, a1, a5, n] + 
    S2[a6, a2, a3, a1, a4, a5, n] + S2[a6, a2, a3, a1, a5, a4, n] + 
    S2[a6, a2, a3, a4, a1, a5, n] + S2[a6, a2, a4, a3, a1, a5, n] + 
    S2[a6, a3, a1, a2, a4, a5, n] + S2[a6, a3, a1, a2, a5, a4, n] + 
    S2[a6, a3, a1, a5, a2, a4, n] + S2[a6, a3, a2, a1, a4, a5, n] + 
    S2[a6, a3, a2, a1, a5, a4, n] + S2[a6, a3, a2, a4, a1, a5, n] /; 

   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a4_, a2_, a6_, a3_, a5_, a1_, n_] :> 
  S2[a2, a4, n]*S2[a1, a5, a3, a6, n] - S2[a1, a5, SP[a2, a3], SP[a4, a6], 
     n] - S2[a1, SP[a2, a5], a3, SP[a4, a6], n] - 
    S2[a1, SP[a2, a5], SP[a3, a4], a6, n] + S2[a1, a5, n]*
     S2[a2, a4, a6, a3, n] - S2[a2, a4, SP[a1, a6], SP[a3, a5], n] + 
    S2[a1, a5, n]*S2[a2, a6, a3, a4, n] + S2[a1, a5, n]*
     S2[a2, a6, a4, a3, n] - S2[a2, a6, SP[a1, a3], SP[a4, a5], n] - 
    S2[a2, a6, SP[a1, a4], SP[a3, a5], n] - S2[a2, SP[a1, a4], a6, 
     SP[a3, a5], n] - S2[a2, SP[a1, a4], SP[a5, a6], a3, n] - 
    S2[a2, SP[a1, a6], a3, SP[a4, a5], n] - S2[a2, SP[a1, a6], a4, 
     SP[a3, a5], n] - S2[a2, SP[a1, a6], SP[a3, a5], a4, n] - 
    S2[a2, SP[a1, a6], SP[a4, a5], a3, n] - S2[a1, a5, n]*
     S2[a3, a6, a2, a4, n] + S2[a3, a6, SP[a1, a2], SP[a4, a5], n] + 
    S2[a3, SP[a1, a6], a2, SP[a4, a5], n] + S2[a3, SP[a1, a6], SP[a2, a5], 
     a4, n] - S2[SP[a1, a2], a4, a6, SP[a3, a5], n] - 
    S2[SP[a1, a2], a4, SP[a5, a6], a3, n] - S2[SP[a1, a2], a5, a3, 
     SP[a4, a6], n] - S2[SP[a1, a2], a5, SP[a3, a4], a6, n] - 
    S2[SP[a1, a2], a6, a3, SP[a4, a5], n] - S2[SP[a1, a2], a6, a4, 
     SP[a3, a5], n] - S2[SP[a1, a2], a6, SP[a3, a5], a4, n] - 
    S2[SP[a1, a2], a6, SP[a4, a5], a3, n] - S2[SP[a1, a2], SP[a4, a5], a3, 
     a6, n] - S2[SP[a1, a2], SP[a4, a5], a6, a3, n] - 
    S2[SP[a1, a2], SP[a5, a6], a3, a4, n] - S2[SP[a1, a2], SP[a5, a6], a4, 
     a3, n] + S2[SP[a1, a3], a6, a2, SP[a4, a5], n] + 
    S2[SP[a1, a3], a6, SP[a2, a5], a4, n] + S2[SP[a1, a3], SP[a5, a6], a2, 
     a4, n] + S2[a1, a2, a4, a6, SP[a3, a5], n] + S2[a1, a2, a4, SP[a5, a6], 
     a3, n] + S2[a1, a2, a5, a3, SP[a4, a6], n] + S2[a1, a2, a5, SP[a3, a4], 
     a6, n] + S2[a1, a2, a6, a3, SP[a4, a5], n] + 
    S2[a1, a2, a6, a4, SP[a3, a5], n] + S2[a1, a2, a6, SP[a3, a5], a4, n] + 
    S2[a1, a2, a6, SP[a4, a5], a3, n] + S2[a1, a2, SP[a4, a5], a3, a6, n] + 
    S2[a1, a2, SP[a4, a5], a6, a3, n] + S2[a1, a2, SP[a5, a6], a3, a4, n] + 
    S2[a1, a2, SP[a5, a6], a4, a3, n] - S2[a1, a3, a6, a2, SP[a4, a5], n] - 
    S2[a1, a3, a6, SP[a2, a5], a4, n] - S2[a1, a3, SP[a5, a6], a2, a4, n] + 
    S2[a6, n]*S2[a1, a4, a2, a5, a3, n] + S2[a1, a4, a2, a5, SP[a3, a6], n] + 
    S2[a1, a4, a2, SP[a5, a6], a3, n] + S2[a6, n]*S2[a1, a4, a5, a2, a3, n] + 
    S2[a1, a4, a5, a2, SP[a3, a6], n] + S2[a6, n]*S2[a1, a4, a5, a3, a2, n] - 
    S2[a2, n]*S2[a1, a4, a5, a3, a6, n] - 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] - S2[a1, a4, a5, a6, SP[a2, a3], n] - 
    S2[a1, a4, a5, SP[a2, a3], a6, n] + S2[a1, a4, a5, SP[a3, a6], a2, n] - 
    S2[a2, n]*S2[a1, a4, a6, a3, a5, n] - S2[a1, a4, a6, a3, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a4, a6, a5, a3, n] - S2[a1, a4, a6, a5, SP[a2, a3], n] - 
    S2[a1, a4, a6, SP[a2, a3], a5, n] - S2[a1, a4, a6, SP[a2, a5], a3, n] - 
    S2[a1, a4, SP[a2, a5], a3, a6, n] - S2[a1, a4, SP[a2, a5], a6, a3, n] - 
    S2[a1, a4, SP[a2, a6], a3, a5, n] + S2[a1, a4, SP[a5, a6], a2, a3, n] + 
    S2[a1, a4, SP[a5, a6], a3, a2, n] + S2[a1, a5, a2, a3, SP[a4, a6], n] + 
    S2[a1, a5, a2, SP[a3, a4], a6, n] + S2[a1, a5, a3, a2, SP[a4, a6], n] + 
    S2[a6, n]*S2[a1, a5, a3, a4, a2, n] - 
    S2[a2, n]*S2[a1, a5, a3, a4, a6, n] - 
    S2[a2, n]*S2[a1, a5, a3, a6, a4, n] - S2[a1, a5, a3, a6, SP[a2, a4], n] - 
    S2[a1, a5, a3, SP[a2, a4], a6, n] + S2[a1, a5, a3, SP[a4, a6], a2, n] + 
    S2[a6, n]*S2[a1, a5, a4, a2, a3, n] + S2[a1, a5, a4, a2, SP[a3, a6], n] + 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] - 
    S2[a2, n]*S2[a1, a5, a4, a3, a6, n] - 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] - S2[a1, a5, a4, a6, SP[a2, a3], n] - 
    S2[a1, a5, a4, SP[a2, a3], a6, n] + S2[a1, a5, a4, SP[a3, a6], a2, n] + 
    S2[a3, n]*S2[a1, a5, a6, a2, a4, n] + S2[a1, a5, a6, a2, SP[a3, a4], n] - 
    S2[a2, n]*S2[a1, a5, a6, a3, a4, n] - S2[a1, a5, a6, a3, SP[a2, a4], n] - 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] - S2[a1, a5, a6, a4, SP[a2, a3], n] - 
    S2[a1, a5, a6, SP[a2, a4], a3, n] - S2[a1, a5, SP[a2, a4], a3, a6, n] - 
    S2[a1, a5, SP[a2, a4], a6, a3, n] - S2[a1, a5, SP[a2, a6], a3, a4, n] - 
    S2[a1, a5, SP[a2, a6], a4, a3, n] + S2[a1, a5, SP[a3, a6], a2, a4, n] + 
    S2[a1, a5, SP[a3, a6], a4, a2, n] + S2[a1, a5, SP[a4, a6], a2, a3, n] + 
    S2[a1, a5, SP[a4, a6], a3, a2, n] + S2[a4, n]*S2[a1, a6, a2, a3, a5, n] + 
    S2[a1, a6, a2, a3, SP[a4, a5], n] + S2[a3, n]*S2[a1, a6, a2, a4, a5, n] + 
    S2[a1, a6, a2, a4, SP[a3, a5], n] + S2[a3, n]*S2[a1, a6, a2, a5, a4, n] + 
    S2[a1, a6, a2, a5, SP[a3, a4], n] + 2*S2[a1, a6, a2, SP[a3, a4], a5, n] + 
    S2[a1, a6, a2, SP[a3, a5], a4, n] + S2[a4, n]*S2[a1, a6, a3, a2, a5, n] + 
    S2[a1, a6, a3, a2, SP[a4, a5], n] - S2[a2, n]*S2[a1, a6, a3, a4, a5, n] - 
    S2[a1, a6, a3, a4, SP[a2, a5], n] + S2[a4, n]*S2[a1, a6, a3, a5, a2, n] - 
    S2[a2, n]*S2[a1, a6, a3, a5, a4, n] - S2[a1, a6, a3, SP[a2, a5], a4, n] + 
    S2[a1, a6, a3, SP[a4, a5], a2, n] - S2[a2, n]*S2[a1, a6, a4, a3, a5, n] - 
    S2[a1, a6, a4, a3, SP[a2, a5], n] - S2[a2, n]*S2[a1, a6, a4, a5, a3, n] - 
    S2[a1, a6, a4, a5, SP[a2, a3], n] - S2[a1, a6, a4, SP[a2, a3], a5, n] - 
    S2[a1, a6, a4, SP[a2, a5], a3, n] + S2[a3, n]*S2[a1, a6, a5, a2, a4, n] + 
    S2[a1, a6, a5, a2, SP[a3, a4], n] - S2[a2, n]*S2[a1, a6, a5, a3, a4, n] - 
    S2[a1, a6, a5, a3, SP[a2, a4], n] - S2[a2, n]*S2[a1, a6, a5, a4, a3, n] - 
    S2[a1, a6, a5, a4, SP[a2, a3], n] - S2[a1, a6, a5, SP[a2, a4], a3, n] - 
    S2[a1, a6, SP[a2, a4], a5, a3, n] - S2[a1, a6, SP[a2, a5], a3, a4, n] - 
    S2[a1, a6, SP[a2, a5], a4, a3, n] + S2[a1, a6, SP[a3, a4], a2, a5, n] + 
    S2[a1, a6, SP[a3, a4], a5, a2, n] + S2[a1, a6, SP[a3, a5], a2, a4, n] - 
    S2[a1, SP[a2, a4], a5, a3, a6, n] - S2[a1, SP[a2, a4], a5, a6, a3, n] - 
    S2[a1, SP[a2, a4], a6, a3, a5, n] - S2[a1, SP[a2, a4], a6, a5, a3, n] - 
    S2[a1, SP[a2, a6], a3, a4, a5, n] - S2[a1, SP[a2, a6], a3, a5, a4, n] - 
    S2[a1, SP[a2, a6], a4, a3, a5, n] - S2[a1, SP[a2, a6], a4, a5, a3, n] - 
    S2[a1, SP[a2, a6], a5, a3, a4, n] - S2[a1, SP[a2, a6], a5, a4, a3, n] + 
    S2[a1, SP[a3, a6], a2, a4, a5, n] + S2[a1, SP[a3, a6], a2, a5, a4, n] + 
    S2[a1, SP[a3, a6], a5, a2, a4, n] + S2[a1, SP[a4, a6], a2, a3, a5, n] + 
    S2[a1, SP[a4, a6], a2, a5, a3, n] + S2[a1, SP[a4, a6], a3, a2, a5, n] + 
    S2[a1, SP[a4, a6], a3, a5, a2, n] + S2[a1, SP[a4, a6], a5, a2, a3, n] + 
    S2[a1, SP[a4, a6], a5, a3, a2, n] + S2[a1, SP[a5, a6], a3, a4, a2, n] + 
    S2[a1, SP[a5, a6], a4, a2, a3, n] + S2[a1, SP[a5, a6], a4, a3, a2, n] + 
    S2[a2, a1, a4, a6, SP[a3, a5], n] + S2[a2, a1, a4, SP[a5, a6], a3, n] + 
    S2[a2, a1, a5, a3, SP[a4, a6], n] + S2[a2, a1, a5, SP[a3, a4], a6, n] + 
    S2[a2, a1, a6, a3, SP[a4, a5], n] + S2[a2, a1, a6, a4, SP[a3, a5], n] + 
    S2[a2, a1, a6, SP[a3, a5], a4, n] + S2[a2, a1, a6, SP[a4, a5], a3, n] + 
    S2[a2, a1, SP[a4, a5], a3, a6, n] + S2[a2, a1, SP[a4, a5], a6, a3, n] + 
    S2[a2, a1, SP[a5, a6], a3, a4, n] + S2[a2, a1, SP[a5, a6], a4, a3, n] - 
    S2[a6, n]*S2[a2, a4, a1, a5, a3, n] - S2[a2, a4, a1, a5, SP[a3, a6], n] + 
    S2[a2, a4, a1, a6, SP[a3, a5], n] + S2[a2, a4, a6, a1, SP[a3, a5], n] + 
    S2[a2, a4, a6, SP[a1, a3], a5, n] + S2[a2, a4, SP[a1, a6], a3, a5, n] - 
    S2[a4, n]*S2[a2, a6, a1, a3, a5, n] - 
    S2[a3, n]*S2[a2, a6, a1, a4, a5, n] - 
    S2[a3, n]*S2[a2, a6, a1, a5, a4, n] - S2[a2, a6, a1, a5, SP[a3, a4], n] - 
    2*S2[a2, a6, a1, SP[a3, a4], a5, n] + S2[a2, a6, a1, SP[a4, a5], a3, n] - 
    S2[a4, n]*S2[a2, a6, a3, a1, a5, n] + S2[a2, a6, a4, a1, SP[a3, a5], n] + 
    S2[a2, a6, a4, SP[a1, a3], a5, n] + S2[a2, a6, SP[a1, a4], a5, a3, n] - 
    S2[a2, a6, SP[a3, a4], a1, a5, n] + S2[a2, SP[a1, a4], a5, a3, a6, n] + 
    S2[a2, SP[a1, a4], a5, a6, a3, n] + S2[a2, SP[a1, a4], a6, a3, a5, n] + 
    S2[a2, SP[a1, a4], a6, a5, a3, n] + S2[a2, SP[a1, a6], a3, a4, a5, n] + 
    S2[a2, SP[a1, a6], a3, a5, a4, n] + S2[a2, SP[a1, a6], a4, a3, a5, n] + 
    S2[a2, SP[a1, a6], a4, a5, a3, n] + S2[a2, SP[a1, a6], a5, a3, a4, n] + 
    S2[a2, SP[a1, a6], a5, a4, a3, n] - S2[a2, SP[a3, a6], a1, a4, a5, n] - 
    S2[a2, SP[a3, a6], a1, a5, a4, n] - S2[a2, SP[a4, a6], a1, a3, a5, n] - 
    S2[a2, SP[a4, a6], a1, a5, a3, n] - S2[a2, SP[a4, a6], a3, a1, a5, n] - 
    S2[a3, a1, a6, a2, SP[a4, a5], n] - S2[a3, a1, a6, SP[a2, a5], a4, n] - 
    S2[a3, a1, SP[a5, a6], a2, a4, n] - S2[a3, a6, a1, a2, SP[a4, a5], n] + 
    S2[a2, n]*S2[a3, a6, a1, a4, a5, n] + S2[a3, a6, a1, a4, SP[a2, a5], n] + 
    S2[a2, n]*S2[a3, a6, a1, a5, a4, n] + S2[a3, a6, a1, a5, SP[a2, a4], n] + 
    S2[a3, a6, a1, SP[a2, a4], a5, n] - S2[a3, a6, a2, a1, SP[a4, a5], n] - 
    S2[a3, a6, a2, SP[a1, a4], a5, n] - S2[a3, SP[a1, a6], a2, a4, a5, n] - 
    S2[a3, SP[a1, a6], a2, a5, a4, n] - S2[a3, SP[a1, a6], a5, a2, a4, n] + 
    S2[a3, SP[a2, a6], a1, a4, a5, n] + S2[a3, SP[a2, a6], a1, a5, a4, n] - 
    S2[a2, n]*S2[a4, a1, a6, a3, a5, n] - S2[a4, a1, a6, a3, SP[a2, a5], n] - 
    S2[a4, a1, a6, SP[a2, a3], a5, n] - S2[a4, a1, SP[a2, a6], a3, a5, n] + 
    S2[a1, n]*S2[a4, a2, a6, a3, a5, n] + S2[a4, a2, a6, a3, SP[a1, a5], n] + 
    S2[a4, a2, a6, SP[a1, a3], a5, n] + S2[a4, a2, SP[a1, a6], a3, a5, n] + 
    S2[a2, n]*S2[a6, a1, a3, a4, a5, n] + S2[a6, a1, a3, a4, SP[a2, a5], n] + 
    S2[a2, n]*S2[a6, a1, a3, a5, a4, n] + S2[a6, a1, a3, a5, SP[a2, a4], n] + 
    S2[a6, a1, a3, SP[a2, a4], a5, n] + S2[a6, a1, a3, SP[a2, a5], a4, n] - 
    S2[a3, n]*S2[a6, a1, a4, a2, a5, n] - S2[a6, a1, a4, a2, SP[a3, a5], n] + 
    S2[a2, n]*S2[a6, a1, a4, a3, a5, n] + S2[a6, a1, a4, a3, SP[a2, a5], n] - 
    S2[a3, n]*S2[a6, a1, a4, a5, a2, n] - S2[a6, a1, a4, a5, SP[a2, a3], n] - 
    S2[a6, a1, a4, SP[a3, a5], a2, n] - S2[a3, n]*S2[a6, a1, a5, a4, a2, n] - 
    S2[a6, a1, a5, a4, SP[a2, a3], n] - S2[a6, a1, a5, SP[a3, a4], a2, n] + 
    S2[a6, a1, SP[a2, a3], a4, a5, n] + S2[a6, a1, SP[a2, a3], a5, a4, n] + 
    S2[a6, a1, SP[a2, a4], a3, a5, n] - S2[a6, a1, SP[a3, a4], a2, a5, n] - 
    S2[a6, a1, SP[a3, a4], a5, a2, n] - S2[a6, a1, SP[a3, a5], a4, a2, n] - 
    S2[a1, n]*S2[a6, a2, a3, a4, a5, n] - S2[a6, a2, a3, a4, SP[a1, a5], n] - 
    S2[a1, n]*S2[a6, a2, a3, a5, a4, n] - S2[a6, a2, a3, a5, SP[a1, a4], n] - 
    S2[a6, a2, a3, SP[a1, a4], a5, n] - S2[a6, a2, a3, SP[a1, a5], a4, n] + 
    S2[a3, n]*S2[a6, a2, a4, a1, a5, n] + S2[a6, a2, a4, a1, SP[a3, a5], n] - 
    S2[a1, n]*S2[a6, a2, a4, a3, a5, n] - S2[a6, a2, a4, a3, SP[a1, a5], n] - 
    S2[a6, a2, SP[a1, a3], a4, a5, n] - S2[a6, a2, SP[a1, a3], a5, a4, n] - 
    S2[a6, a2, SP[a1, a4], a3, a5, n] + S2[a6, a2, SP[a3, a4], a1, a5, n] + 
    S2[a2, n]*S2[a6, a3, a1, a4, a5, n] + S2[a6, a3, a1, a4, SP[a2, a5], n] + 
    S2[a2, n]*S2[a6, a3, a1, a5, a4, n] + S2[a6, a3, a1, a5, SP[a2, a4], n] + 
    S2[a6, a3, a1, SP[a2, a4], a5, n] + S2[a6, a3, a1, SP[a2, a5], a4, n] - 
    S2[a1, n]*S2[a6, a3, a2, a4, a5, n] - S2[a6, a3, a2, a4, SP[a1, a5], n] - 
    S2[a1, n]*S2[a6, a3, a2, a5, a4, n] - S2[a6, a3, a2, a5, SP[a1, a4], n] - 
    S2[a6, a3, a2, SP[a1, a4], a5, n] - S2[a6, a3, a2, SP[a1, a5], a4, n] - 
    S2[a1, n]*S2[a6, a3, a5, a2, a4, n] - S2[a6, a3, a5, a2, SP[a1, a4], n] - 
    S2[a6, a3, a5, SP[a1, a2], a4, n] - S2[a6, a3, SP[a1, a5], a2, a4, n] - 
    S2[a6, SP[a1, a3], a2, a4, a5, n] - S2[a6, SP[a1, a3], a2, a5, a4, n] - 
    S2[a6, SP[a1, a3], a4, a2, a5, n] - S2[a6, SP[a1, a3], a4, a5, a2, n] - 
    S2[a6, SP[a1, a3], a5, a2, a4, n] - S2[a6, SP[a1, a3], a5, a4, a2, n] + 
    S2[a6, SP[a2, a3], a1, a4, a5, n] + S2[a6, SP[a2, a3], a1, a5, a4, n] + 
    S2[a6, SP[a2, a3], a4, a1, a5, n] + S2[SP[a1, a4], a2, a6, a3, a5, n] + 
    S2[SP[a1, a4], a6, a2, a3, a5, n] + S2[SP[a1, a4], a6, a3, a2, a5, n] + 
    S2[SP[a1, a4], a6, a3, a5, a2, n] - S2[SP[a1, a6], a2, a3, a4, a5, n] - 
    S2[SP[a1, a6], a2, a3, a5, a4, n] - S2[SP[a1, a6], a2, a4, a3, a5, n] - 
    S2[SP[a1, a6], a3, a2, a4, a5, n] - S2[SP[a1, a6], a3, a2, a5, a4, n] - 
    S2[SP[a1, a6], a3, a5, a2, a4, n] + S2[SP[a1, a6], a4, a2, a5, a3, n] + 
    S2[SP[a1, a6], a4, a5, a2, a3, n] + S2[SP[a1, a6], a4, a5, a3, a2, n] + 
    S2[SP[a1, a6], a5, a3, a4, a2, n] + S2[SP[a1, a6], a5, a4, a2, a3, n] + 
    S2[SP[a1, a6], a5, a4, a3, a2, n] - S2[SP[a2, a4], a1, a6, a3, a5, n] - 
    S2[SP[a2, a4], a6, a1, a3, a5, n] - S2[SP[a2, a4], a6, a3, a1, a5, n] + 
    S2[SP[a2, a6], a1, a3, a4, a5, n] + S2[SP[a2, a6], a1, a3, a5, a4, n] + 
    S2[SP[a2, a6], a1, a4, a3, a5, n] + S2[SP[a2, a6], a3, a1, a4, a5, n] + 
    S2[SP[a2, a6], a3, a1, a5, a4, n] - S2[SP[a2, a6], a4, a1, a5, a3, n] - 
    S2[SP[a3, a6], a1, a4, a2, a5, n] - S2[SP[a3, a6], a1, a4, a5, a2, n] - 
    S2[SP[a3, a6], a1, a5, a4, a2, n] + S2[SP[a3, a6], a2, a4, a1, a5, n] + 
    S2[a6, a2, a3, a4, a5, a1, n] + S2[a6, a2, a3, a5, a1, a4, n] + 
    S2[a6, a2, a3, a5, a4, a1, n] + S2[a6, a2, a4, a3, a5, a1, n] + 
    S2[a6, a3, a2, a4, a5, a1, n] + S2[a6, a3, a2, a5, a1, a4, n] + 
    S2[a6, a3, a2, a5, a4, a1, n] + S2[a6, a3, a5, a1, a2, a4, n] + 
    S2[a6, a3, a5, a2, a1, a4, n] + S2[a6, a3, a5, a2, a4, a1, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a4_, a2_, a6_, a5_, a1_, a3_, n_] :> 
  -(S2[a2, a4, n]*S2[a1, a3, a5, a6, n]) + S2[a1, a3, SP[a2, a5], SP[a4, a6], 
     n] - S2[a2, a4, n]*S2[a1, a5, a3, a6, n] - 
    S2[a2, a4, n]*S2[a1, a5, a6, a3, n] + S2[a1, a5, SP[a2, a3], SP[a4, a6], 
     n] + S2[a1, a5, SP[a2, a6], SP[a3, a4], n] + S2[a1, SP[a2, a3], a5, 
     SP[a4, a6], n] + S2[a1, SP[a2, a3], SP[a4, a5], a6, n] + 
    S2[a1, SP[a2, a5], a3, SP[a4, a6], n] + S2[a1, SP[a2, a5], a6, 
     SP[a3, a4], n] + S2[a1, SP[a2, a5], SP[a3, a4], a6, n] + 
    S2[a1, SP[a2, a5], SP[a4, a6], a3, n] - S2[a1, a3, n]*
     S2[a2, a4, a6, a5, n] + S2[a2, a4, SP[a1, a6], SP[a3, a5], n] - 
    S2[a1, a3, n]*S2[a2, a6, a4, a5, n] - S2[a1, a3, n]*
     S2[a2, a6, a5, a4, n] + S2[a2, a6, SP[a1, a4], SP[a3, a5], n] + 
    S2[a2, a6, SP[a1, a5], SP[a3, a4], n] + S2[a2, SP[a1, a4], a6, 
     SP[a3, a5], n] + S2[a2, SP[a1, a4], SP[a3, a6], a5, n] + 
    S2[a2, SP[a1, a6], a4, SP[a3, a5], n] + S2[a2, SP[a1, a6], a5, 
     SP[a3, a4], n] + S2[a2, SP[a1, a6], SP[a3, a4], a5, n] + 
    S2[a2, SP[a1, a6], SP[a3, a5], a4, n] + S2[a1, a3, n]*
     S2[a5, a6, a2, a4, n] - S2[a5, a6, SP[a1, a2], SP[a3, a4], n] - 
    S2[a5, SP[a1, a6], a2, SP[a3, a4], n] - S2[a5, SP[a1, a6], SP[a2, a3], 
     a4, n] + S2[SP[a1, a2], a3, a5, SP[a4, a6], n] + 
    S2[SP[a1, a2], a3, SP[a4, a5], a6, n] + S2[SP[a1, a2], a4, a6, 
     SP[a3, a5], n] + S2[SP[a1, a2], a4, SP[a3, a6], a5, n] + 
    S2[SP[a1, a2], a5, a3, SP[a4, a6], n] + S2[SP[a1, a2], a5, a6, 
     SP[a3, a4], n] + S2[SP[a1, a2], a5, SP[a3, a4], a6, n] + 
    S2[SP[a1, a2], a5, SP[a4, a6], a3, n] + S2[SP[a1, a2], a6, a4, 
     SP[a3, a5], n] + S2[SP[a1, a2], a6, a5, SP[a3, a4], n] + 
    S2[SP[a1, a2], a6, SP[a3, a4], a5, n] + S2[SP[a1, a2], a6, SP[a3, a5], 
     a4, n] + S2[SP[a1, a2], SP[a3, a4], a5, a6, n] + 
    S2[SP[a1, a2], SP[a3, a4], a6, a5, n] + S2[SP[a1, a2], SP[a3, a6], a4, 
     a5, n] + S2[SP[a1, a2], SP[a3, a6], a5, a4, n] + 
    S2[SP[a1, a2], SP[a4, a5], a3, a6, n] + S2[SP[a1, a2], SP[a4, a5], a6, 
     a3, n] - S2[SP[a1, a5], a6, a2, SP[a3, a4], n] - 
    S2[SP[a1, a5], a6, SP[a2, a3], a4, n] - S2[SP[a1, a5], SP[a3, a6], a2, 
     a4, n] - S2[a1, a2, a3, a5, SP[a4, a6], n] - S2[a1, a2, a3, SP[a4, a5], 
     a6, n] - S2[a1, a2, a4, a6, SP[a3, a5], n] - S2[a1, a2, a4, SP[a3, a6], 
     a5, n] - S2[a1, a2, a5, a3, SP[a4, a6], n] - 
    S2[a1, a2, a5, a6, SP[a3, a4], n] - S2[a1, a2, a5, SP[a3, a4], a6, n] - 
    S2[a1, a2, a5, SP[a4, a6], a3, n] - S2[a1, a2, a6, a4, SP[a3, a5], n] - 
    S2[a1, a2, a6, a5, SP[a3, a4], n] - S2[a1, a2, a6, SP[a3, a4], a5, n] - 
    S2[a1, a2, a6, SP[a3, a5], a4, n] - S2[a1, a2, SP[a3, a4], a5, a6, n] - 
    S2[a1, a2, SP[a3, a4], a6, a5, n] - S2[a1, a2, SP[a3, a6], a4, a5, n] - 
    S2[a1, a2, SP[a3, a6], a5, a4, n] - S2[a1, a2, SP[a4, a5], a3, a6, n] - 
    S2[a1, a2, SP[a4, a5], a6, a3, n] - S2[a1, a3, a2, a5, SP[a4, a6], n] - 
    S2[a1, a3, a2, SP[a4, a5], a6, n] - S2[a6, n]*S2[a1, a3, a4, a2, a5, n] - 
    S2[a1, a3, a4, a2, SP[a5, a6], n] - S2[a6, n]*S2[a1, a3, a4, a5, a2, n] + 
    S2[a2, n]*S2[a1, a3, a4, a5, a6, n] + 
    S2[a2, n]*S2[a1, a3, a4, a6, a5, n] + S2[a1, a3, a4, a6, SP[a2, a5], n] + 
    S2[a1, a3, a4, SP[a2, a5], a6, n] - S2[a1, a3, a4, SP[a5, a6], a2, n] - 
    S2[a1, a3, a5, a2, SP[a4, a6], n] - S2[a6, n]*S2[a1, a3, a5, a4, a2, n] + 
    S2[a2, n]*S2[a1, a3, a5, a4, a6, n] + 
    S2[a2, n]*S2[a1, a3, a5, a6, a4, n] + S2[a1, a3, a5, a6, SP[a2, a4], n] + 
    S2[a1, a3, a5, SP[a2, a4], a6, n] - S2[a1, a3, a5, SP[a4, a6], a2, n] - 
    S2[a5, n]*S2[a1, a3, a6, a2, a4, n] - S2[a1, a3, a6, a2, SP[a4, a5], n] + 
    S2[a2, n]*S2[a1, a3, a6, a4, a5, n] + S2[a1, a3, a6, a4, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a3, a6, a5, a4, n] + S2[a1, a3, a6, a5, SP[a2, a4], n] + 
    S2[a1, a3, a6, SP[a2, a4], a5, n] + S2[a1, a3, SP[a2, a4], a5, a6, n] + 
    S2[a1, a3, SP[a2, a4], a6, a5, n] + S2[a1, a3, SP[a2, a6], a4, a5, n] + 
    S2[a1, a3, SP[a2, a6], a5, a4, n] - S2[a1, a3, SP[a4, a6], a2, a5, n] - 
    S2[a1, a3, SP[a4, a6], a5, a2, n] - S2[a1, a3, SP[a5, a6], a2, a4, n] - 
    S2[a1, a3, SP[a5, a6], a4, a2, n] - S2[a6, n]*S2[a1, a4, a2, a3, a5, n] - 
    S2[a1, a4, a2, a3, SP[a5, a6], n] - S2[a6, n]*S2[a1, a4, a2, a5, a3, n] - 
    S2[a1, a4, a2, a5, SP[a3, a6], n] - S2[a1, a4, a2, SP[a3, a6], a5, n] - 
    S2[a1, a4, a2, SP[a5, a6], a3, n] - S2[a6, n]*S2[a1, a4, a3, a2, a5, n] - 
    S2[a1, a4, a3, a2, SP[a5, a6], n] - S2[a6, n]*S2[a1, a4, a3, a5, a2, n] + 
    S2[a2, n]*S2[a1, a4, a3, a5, a6, n] + 
    S2[a2, n]*S2[a1, a4, a3, a6, a5, n] + S2[a1, a4, a3, a6, SP[a2, a5], n] + 
    S2[a1, a4, a3, SP[a2, a5], a6, n] - S2[a1, a4, a3, SP[a5, a6], a2, n] - 
    S2[a6, n]*S2[a1, a4, a5, a2, a3, n] - S2[a1, a4, a5, a2, SP[a3, a6], n] - 
    S2[a6, n]*S2[a1, a4, a5, a3, a2, n] + 
    S2[a2, n]*S2[a1, a4, a5, a3, a6, n] + 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] + S2[a1, a4, a5, a6, SP[a2, a3], n] + 
    S2[a1, a4, a5, SP[a2, a3], a6, n] - S2[a1, a4, a5, SP[a3, a6], a2, n] + 
    S2[a2, n]*S2[a1, a4, a6, a3, a5, n] + S2[a1, a4, a6, a3, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a4, a6, a5, a3, n] + S2[a1, a4, a6, a5, SP[a2, a3], n] + 
    S2[a1, a4, a6, SP[a2, a3], a5, n] + S2[a1, a4, a6, SP[a2, a5], a3, n] + 
    S2[a1, a4, SP[a2, a3], a5, a6, n] + S2[a1, a4, SP[a2, a3], a6, a5, n] + 
    S2[a1, a4, SP[a2, a5], a3, a6, n] + S2[a1, a4, SP[a2, a5], a6, a3, n] - 
    S2[a1, a4, SP[a3, a6], a2, a5, n] - S2[a1, a4, SP[a3, a6], a5, a2, n] - 
    S2[a1, a4, SP[a5, a6], a2, a3, n] - S2[a1, a4, SP[a5, a6], a3, a2, n] - 
    S2[a1, a5, a2, a3, SP[a4, a6], n] - S2[a1, a5, a2, a6, SP[a3, a4], n] - 
    S2[a1, a5, a2, SP[a3, a4], a6, n] - S2[a1, a5, a2, SP[a4, a6], a3, n] - 
    S2[a1, a5, a3, a2, SP[a4, a6], n] - S2[a6, n]*S2[a1, a5, a3, a4, a2, n] + 
    S2[a2, n]*S2[a1, a5, a3, a4, a6, n] + 
    S2[a2, n]*S2[a1, a5, a3, a6, a4, n] + S2[a1, a5, a3, a6, SP[a2, a4], n] + 
    S2[a1, a5, a3, SP[a2, a4], a6, n] - S2[a1, a5, a3, SP[a4, a6], a2, n] - 
    S2[a6, n]*S2[a1, a5, a4, a2, a3, n] - S2[a1, a5, a4, a2, SP[a3, a6], n] - 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] + 
    S2[a2, n]*S2[a1, a5, a4, a3, a6, n] + 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] + S2[a1, a5, a4, a6, SP[a2, a3], n] + 
    S2[a1, a5, a4, SP[a2, a3], a6, n] - S2[a1, a5, a4, SP[a3, a6], a2, n] + 
    S2[a2, n]*S2[a1, a5, a6, a3, a4, n] + S2[a1, a5, a6, a3, SP[a2, a4], n] + 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] + S2[a1, a5, a6, a4, SP[a2, a3], n] + 
    S2[a1, a5, a6, SP[a2, a3], a4, n] + S2[a1, a5, a6, SP[a2, a4], a3, n] + 
    S2[a1, a5, SP[a2, a4], a3, a6, n] + S2[a1, a5, SP[a2, a4], a6, a3, n] + 
    S2[a1, a5, SP[a3, a6], a2, a4, n] - S2[a1, a5, SP[a3, a6], a4, a2, n] - 
    S2[a1, a5, SP[a4, a6], a2, a3, n] - S2[a1, a5, SP[a4, a6], a3, a2, n] - 
    S2[a5, n]*S2[a1, a6, a2, a3, a4, n] - S2[a1, a6, a2, a3, SP[a4, a5], n] - 
    S2[a5, n]*S2[a1, a6, a2, a4, a3, n] - S2[a1, a6, a2, a4, SP[a3, a5], n] - 
    S2[a1, a6, a2, SP[a3, a5], a4, n] - S2[a1, a6, a2, SP[a4, a5], a3, n] - 
    S2[a5, n]*S2[a1, a6, a3, a2, a4, n] - S2[a1, a6, a3, a2, SP[a4, a5], n] + 
    S2[a2, n]*S2[a1, a6, a3, a4, a5, n] + S2[a1, a6, a3, a4, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a6, a3, a5, a4, n] + S2[a1, a6, a3, a5, SP[a2, a4], n] + 
    S2[a1, a6, a3, SP[a2, a4], a5, n] + S2[a2, n]*S2[a1, a6, a4, a3, a5, n] + 
    S2[a1, a6, a4, a3, SP[a2, a5], n] + S2[a2, n]*S2[a1, a6, a4, a5, a3, n] + 
    S2[a1, a6, a4, a5, SP[a2, a3], n] + S2[a1, a6, a4, SP[a2, a3], a5, n] + 
    S2[a1, a6, a4, SP[a2, a5], a3, n] + S2[a2, n]*S2[a1, a6, a5, a3, a4, n] + 
    S2[a1, a6, a5, a3, SP[a2, a4], n] + S2[a2, n]*S2[a1, a6, a5, a4, a3, n] + 
    S2[a1, a6, a5, a4, SP[a2, a3], n] + S2[a1, a6, a5, SP[a2, a3], a4, n] + 
    S2[a1, a6, a5, SP[a2, a4], a3, n] + S2[a1, a6, SP[a2, a3], a4, a5, n] + 
    S2[a1, a6, SP[a2, a3], a5, a4, n] + S2[a1, a6, SP[a2, a4], a3, a5, n] + 
    S2[a1, a6, SP[a2, a4], a5, a3, n] - S2[a1, a6, SP[a3, a5], a2, a4, n] + 
    S2[a1, SP[a2, a4], a3, a5, a6, n] + S2[a1, SP[a2, a4], a3, a6, a5, n] + 
    S2[a1, SP[a2, a4], a5, a3, a6, n] + S2[a1, SP[a2, a4], a5, a6, a3, n] + 
    S2[a1, SP[a2, a4], a6, a3, a5, n] + S2[a1, SP[a2, a4], a6, a5, a3, n] + 
    S2[a1, SP[a2, a6], a3, a4, a5, n] + S2[a1, SP[a2, a6], a3, a5, a4, n] + 
    S2[a1, SP[a2, a6], a4, a3, a5, n] + S2[a1, SP[a2, a6], a4, a5, a3, n] + 
    S2[a1, SP[a2, a6], a5, a3, a4, n] + S2[a1, SP[a2, a6], a5, a4, a3, n] - 
    S2[a1, SP[a3, a6], a4, a2, a5, n] - S2[a1, SP[a3, a6], a4, a5, a2, n] - 
    S2[a1, SP[a3, a6], a5, a4, a2, n] - S2[a1, SP[a4, a6], a2, a3, a5, n] - 
    S2[a1, SP[a4, a6], a2, a5, a3, n] - S2[a1, SP[a4, a6], a3, a2, a5, n] - 
    S2[a1, SP[a4, a6], a3, a5, a2, n] - S2[a1, SP[a4, a6], a5, a2, a3, n] - 
    S2[a1, SP[a4, a6], a5, a3, a2, n] - S2[a1, SP[a5, a6], a2, a3, a4, n] - 
    S2[a1, SP[a5, a6], a2, a4, a3, n] - S2[a1, SP[a5, a6], a3, a2, a4, n] - 
    S2[a1, SP[a5, a6], a3, a4, a2, n] - S2[a1, SP[a5, a6], a4, a2, a3, n] - 
    S2[a1, SP[a5, a6], a4, a3, a2, n] - S2[a2, a1, a3, a5, SP[a4, a6], n] - 
    S2[a2, a1, a3, SP[a4, a5], a6, n] - S2[a2, a1, a4, a6, SP[a3, a5], n] - 
    S2[a2, a1, a4, SP[a3, a6], a5, n] - S2[a2, a1, a5, a3, SP[a4, a6], n] - 
    S2[a2, a1, a5, a6, SP[a3, a4], n] - S2[a2, a1, a5, SP[a3, a4], a6, n] - 
    S2[a2, a1, a5, SP[a4, a6], a3, n] - S2[a2, a1, a6, a4, SP[a3, a5], n] - 
    S2[a2, a1, a6, a5, SP[a3, a4], n] - S2[a2, a1, a6, SP[a3, a4], a5, n] - 
    S2[a2, a1, a6, SP[a3, a5], a4, n] - S2[a2, a1, SP[a3, a4], a5, a6, n] - 
    S2[a2, a1, SP[a3, a4], a6, a5, n] - S2[a2, a1, SP[a3, a6], a4, a5, n] - 
    S2[a2, a1, SP[a3, a6], a5, a4, n] - S2[a2, a1, SP[a4, a5], a3, a6, n] - 
    S2[a2, a1, SP[a4, a5], a6, a3, n] + S2[a6, n]*S2[a2, a4, a1, a3, a5, n] + 
    S2[a2, a4, a1, a3, SP[a5, a6], n] + S2[a6, n]*S2[a2, a4, a1, a5, a3, n] + 
    S2[a2, a4, a1, a5, SP[a3, a6], n] - S2[a2, a4, a1, a6, SP[a3, a5], n] + 
    S2[a2, a4, a1, SP[a5, a6], a3, n] - S2[a2, a4, a6, a1, SP[a3, a5], n] - 
    S2[a2, a4, a6, SP[a1, a5], a3, n] + S2[a5, n]*S2[a2, a6, a1, a3, a4, n] + 
    S2[a2, a6, a1, a3, SP[a4, a5], n] + S2[a5, n]*S2[a2, a6, a1, a4, a3, n] - 
    S2[a2, a6, a1, a5, SP[a3, a4], n] - S2[a2, a6, a1, SP[a3, a4], a5, n] + 
    S2[a2, a6, a1, SP[a4, a5], a3, n] - S2[a2, a6, a4, a1, SP[a3, a5], n] - 
    S2[a2, a6, a4, SP[a1, a5], a3, n] + S2[a4, n]*S2[a2, a6, a5, a1, a3, n] - 
    S2[a2, a6, SP[a1, a4], a3, a5, n] - S2[a2, a6, SP[a1, a4], a5, a3, n] + 
    S2[a2, a6, SP[a4, a5], a1, a3, n] - S2[a2, SP[a1, a4], a3, a5, a6, n] - 
    S2[a2, SP[a1, a4], a3, a6, a5, n] - S2[a2, SP[a1, a4], a5, a3, a6, n] - 
    S2[a2, SP[a1, a4], a5, a6, a3, n] - S2[a2, SP[a1, a4], a6, a3, a5, n] - 
    S2[a2, SP[a1, a4], a6, a5, a3, n] - S2[a2, SP[a1, a6], a3, a4, a5, n] - 
    S2[a2, SP[a1, a6], a3, a5, a4, n] - S2[a2, SP[a1, a6], a4, a3, a5, n] - 
    S2[a2, SP[a1, a6], a4, a5, a3, n] - S2[a2, SP[a1, a6], a5, a3, a4, n] - 
    S2[a2, SP[a1, a6], a5, a4, a3, n] + S2[a2, SP[a4, a6], a1, a3, a5, n] + 
    S2[a2, SP[a4, a6], a1, a5, a3, n] + S2[a2, SP[a4, a6], a5, a1, a3, n] + 
    S2[a2, SP[a5, a6], a1, a3, a4, n] + S2[a2, SP[a5, a6], a1, a4, a3, n] + 
    S2[a5, a1, a6, a2, SP[a3, a4], n] + S2[a5, a1, a6, SP[a2, a3], a4, n] + 
    S2[a5, a1, SP[a3, a6], a2, a4, n] + S2[a5, a6, a1, a2, SP[a3, a4], n] - 
    S2[a2, n]*S2[a5, a6, a1, a3, a4, n] - S2[a5, a6, a1, a3, SP[a2, a4], n] - 
    S2[a2, n]*S2[a5, a6, a1, a4, a3, n] - S2[a5, a6, a1, a4, SP[a2, a3], n] - 
    S2[a5, a6, a1, SP[a2, a4], a3, n] + S2[a5, a6, a2, a1, SP[a3, a4], n] + 
    S2[a5, a6, a2, SP[a1, a4], a3, n] + S2[a5, SP[a1, a6], a2, a3, a4, n] + 
    S2[a5, SP[a1, a6], a2, a4, a3, n] + S2[a5, SP[a1, a6], a3, a2, a4, n] - 
    S2[a5, SP[a2, a6], a1, a3, a4, n] - S2[a5, SP[a2, a6], a1, a4, a3, n] + 
    S2[a5, n]*S2[a6, a1, a3, a4, a2, n] + S2[a6, a1, a3, a4, SP[a2, a5], n] + 
    S2[a6, a1, a3, SP[a4, a5], a2, n] + S2[a5, n]*S2[a6, a1, a4, a2, a3, n] + 
    S2[a6, a1, a4, a2, SP[a3, a5], n] + S2[a5, n]*S2[a6, a1, a4, a3, a2, n] + 
    S2[a6, a1, a4, a3, SP[a2, a5], n] + S2[a6, a1, a4, SP[a2, a5], a3, n] + 
    S2[a6, a1, a4, SP[a3, a5], a2, n] + S2[a6, a1, SP[a3, a5], a4, a2, n] + 
    S2[a6, a1, SP[a4, a5], a2, a3, n] + S2[a6, a1, SP[a4, a5], a3, a2, n] - 
    S2[a5, n]*S2[a6, a2, a4, a1, a3, n] - S2[a6, a2, a4, a1, SP[a3, a5], n] - 
    S2[a6, a2, a4, SP[a1, a5], a3, n] - S2[a6, a2, SP[a4, a5], a1, a3, n] - 
    S2[a2, n]*S2[a6, a5, a1, a3, a4, n] - S2[a6, a5, a1, a3, SP[a2, a4], n] - 
    S2[a2, n]*S2[a6, a5, a1, a4, a3, n] - S2[a6, a5, a1, a4, SP[a2, a3], n] - 
    S2[a6, a5, a1, SP[a2, a3], a4, n] - S2[a6, a5, a1, SP[a2, a4], a3, n] - 
    S2[a6, a5, SP[a1, a2], a3, a4, n] - S2[a6, a5, SP[a1, a2], a4, a3, n] + 
    S2[a6, SP[a1, a5], a3, a4, a2, n] + S2[a6, SP[a1, a5], a4, a2, a3, n] + 
    S2[a6, SP[a1, a5], a4, a3, a2, n] - S2[a6, SP[a2, a5], a1, a3, a4, n] - 
    S2[a6, SP[a2, a5], a1, a4, a3, n] - S2[a6, SP[a2, a5], a4, a1, a3, n] - 
    S2[SP[a1, a6], a3, a4, a2, a5, n] - S2[SP[a1, a6], a3, a4, a5, a2, n] - 
    S2[SP[a1, a6], a3, a5, a4, a2, n] - S2[SP[a1, a6], a4, a2, a3, a5, n] - 
    S2[SP[a1, a6], a4, a2, a5, a3, n] - S2[SP[a1, a6], a4, a3, a2, a5, n] - 
    S2[SP[a1, a6], a4, a3, a5, a2, n] - S2[SP[a1, a6], a4, a5, a2, a3, n] - 
    S2[SP[a1, a6], a4, a5, a3, a2, n] - S2[SP[a1, a6], a5, a3, a4, a2, n] - 
    S2[SP[a1, a6], a5, a4, a2, a3, n] - S2[SP[a1, a6], a5, a4, a3, a2, n] + 
    S2[SP[a2, a4], a6, a5, a1, a3, n] + S2[SP[a2, a6], a4, a1, a3, a5, n] + 
    S2[SP[a2, a6], a4, a1, a5, a3, n] - S2[SP[a2, a6], a5, a1, a3, a4, n] - 
    S2[SP[a2, a6], a5, a1, a4, a3, n] + S2[SP[a5, a6], a1, a3, a4, a2, n] + 
    S2[SP[a5, a6], a1, a4, a2, a3, n] + S2[SP[a5, a6], a1, a4, a3, a2, n] - 
    S2[SP[a5, a6], a2, a4, a1, a3, n] + S2[a6, a2, a4, a5, a1, a3, n] + 
    S2[a6, a2, a5, a1, a3, a4, n] + S2[a6, a2, a5, a1, a4, a3, n] + 
    S2[a6, a2, a5, a4, a1, a3, n] + S2[a6, a5, a1, a2, a3, a4, n] + 
    S2[a6, a5, a1, a2, a4, a3, n] + S2[a6, a5, a1, a3, a2, a4, n] + 
    S2[a6, a5, a2, a1, a3, a4, n] + S2[a6, a5, a2, a1, a4, a3, n] + 
    S2[a6, a5, a2, a4, a1, a3, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a4_, a2_, a6_, a5_, a3_, a1_, n_] :> 
  S2[a2, a4, n]*S2[a1, a3, a5, a6, n] - S2[a1, a3, SP[a2, a5], SP[a4, a6], 
     n] - S2[a1, SP[a2, a3], a5, SP[a4, a6], n] - 
    S2[a1, SP[a2, a3], SP[a4, a5], a6, n] + S2[a1, a3, n]*
     S2[a2, a4, a6, a5, n] - S2[a2, a4, SP[a1, a6], SP[a3, a5], n] + 
    S2[a1, a3, n]*S2[a2, a6, a4, a5, n] + S2[a1, a3, n]*
     S2[a2, a6, a5, a4, n] - S2[a2, a6, SP[a1, a4], SP[a3, a5], n] - 
    S2[a2, a6, SP[a1, a5], SP[a3, a4], n] - S2[a2, SP[a1, a4], a6, 
     SP[a3, a5], n] - S2[a2, SP[a1, a4], SP[a3, a6], a5, n] - 
    S2[a2, SP[a1, a6], a4, SP[a3, a5], n] - S2[a2, SP[a1, a6], a5, 
     SP[a3, a4], n] - S2[a2, SP[a1, a6], SP[a3, a4], a5, n] - 
    S2[a2, SP[a1, a6], SP[a3, a5], a4, n] - S2[a1, a3, n]*
     S2[a5, a6, a2, a4, n] + S2[a5, a6, SP[a1, a2], SP[a3, a4], n] + 
    S2[a5, SP[a1, a6], a2, SP[a3, a4], n] + S2[a5, SP[a1, a6], SP[a2, a3], 
     a4, n] - S2[SP[a1, a2], a3, a5, SP[a4, a6], n] - 
    S2[SP[a1, a2], a3, SP[a4, a5], a6, n] - S2[SP[a1, a2], a4, a6, 
     SP[a3, a5], n] - S2[SP[a1, a2], a4, SP[a3, a6], a5, n] - 
    S2[SP[a1, a2], a6, a4, SP[a3, a5], n] - S2[SP[a1, a2], a6, a5, 
     SP[a3, a4], n] - S2[SP[a1, a2], a6, SP[a3, a4], a5, n] - 
    S2[SP[a1, a2], a6, SP[a3, a5], a4, n] - S2[SP[a1, a2], SP[a3, a4], a5, 
     a6, n] - S2[SP[a1, a2], SP[a3, a4], a6, a5, n] - 
    S2[SP[a1, a2], SP[a3, a6], a4, a5, n] - S2[SP[a1, a2], SP[a3, a6], a5, 
     a4, n] + S2[SP[a1, a5], a6, a2, SP[a3, a4], n] + 
    S2[SP[a1, a5], a6, SP[a2, a3], a4, n] + S2[SP[a1, a5], SP[a3, a6], a2, 
     a4, n] + S2[a1, a2, a3, a5, SP[a4, a6], n] + S2[a1, a2, a3, SP[a4, a5], 
     a6, n] + S2[a1, a2, a4, a6, SP[a3, a5], n] + S2[a1, a2, a4, SP[a3, a6], 
     a5, n] + S2[a1, a2, a6, a4, SP[a3, a5], n] + 
    S2[a1, a2, a6, a5, SP[a3, a4], n] + S2[a1, a2, a6, SP[a3, a4], a5, n] + 
    S2[a1, a2, a6, SP[a3, a5], a4, n] + S2[a1, a2, SP[a3, a4], a5, a6, n] + 
    S2[a1, a2, SP[a3, a4], a6, a5, n] + S2[a1, a2, SP[a3, a6], a4, a5, n] + 
    S2[a1, a2, SP[a3, a6], a5, a4, n] + S2[a1, a3, a2, a5, SP[a4, a6], n] + 
    S2[a1, a3, a2, SP[a4, a5], a6, n] + S2[a6, n]*S2[a1, a3, a4, a2, a5, n] + 
    S2[a1, a3, a4, a2, SP[a5, a6], n] + S2[a6, n]*S2[a1, a3, a4, a5, a2, n] - 
    S2[a2, n]*S2[a1, a3, a4, a5, a6, n] - 
    S2[a2, n]*S2[a1, a3, a4, a6, a5, n] - S2[a1, a3, a4, a6, SP[a2, a5], n] - 
    S2[a1, a3, a4, SP[a2, a5], a6, n] + S2[a1, a3, a4, SP[a5, a6], a2, n] + 
    S2[a1, a3, a5, a2, SP[a4, a6], n] + S2[a6, n]*S2[a1, a3, a5, a4, a2, n] - 
    S2[a2, n]*S2[a1, a3, a5, a4, a6, n] - 
    S2[a2, n]*S2[a1, a3, a5, a6, a4, n] - S2[a1, a3, a5, a6, SP[a2, a4], n] - 
    S2[a1, a3, a5, SP[a2, a4], a6, n] + S2[a1, a3, a5, SP[a4, a6], a2, n] + 
    S2[a5, n]*S2[a1, a3, a6, a2, a4, n] + S2[a1, a3, a6, a2, SP[a4, a5], n] - 
    S2[a2, n]*S2[a1, a3, a6, a4, a5, n] - S2[a1, a3, a6, a4, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a3, a6, a5, a4, n] - S2[a1, a3, a6, a5, SP[a2, a4], n] - 
    S2[a1, a3, a6, SP[a2, a4], a5, n] - S2[a1, a3, SP[a2, a4], a5, a6, n] - 
    S2[a1, a3, SP[a2, a4], a6, a5, n] - S2[a1, a3, SP[a2, a6], a4, a5, n] - 
    S2[a1, a3, SP[a2, a6], a5, a4, n] + S2[a1, a3, SP[a4, a6], a2, a5, n] + 
    S2[a1, a3, SP[a4, a6], a5, a2, n] + S2[a1, a3, SP[a5, a6], a2, a4, n] + 
    S2[a1, a3, SP[a5, a6], a4, a2, n] + S2[a6, n]*S2[a1, a4, a2, a3, a5, n] + 
    S2[a1, a4, a2, a3, SP[a5, a6], n] + S2[a1, a4, a2, SP[a3, a6], a5, n] + 
    S2[a6, n]*S2[a1, a4, a3, a2, a5, n] + S2[a1, a4, a3, a2, SP[a5, a6], n] + 
    S2[a6, n]*S2[a1, a4, a3, a5, a2, n] - 
    S2[a2, n]*S2[a1, a4, a3, a5, a6, n] - 
    S2[a2, n]*S2[a1, a4, a3, a6, a5, n] - S2[a1, a4, a3, a6, SP[a2, a5], n] - 
    S2[a1, a4, a3, SP[a2, a5], a6, n] + S2[a1, a4, a3, SP[a5, a6], a2, n] - 
    S2[a2, n]*S2[a1, a4, a6, a3, a5, n] - S2[a1, a4, a6, a3, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a4, a6, a5, a3, n] - S2[a1, a4, a6, a5, SP[a2, a3], n] - 
    S2[a1, a4, a6, SP[a2, a3], a5, n] - S2[a1, a4, a6, SP[a2, a5], a3, n] - 
    S2[a1, a4, SP[a2, a3], a5, a6, n] - S2[a1, a4, SP[a2, a3], a6, a5, n] - 
    S2[a1, a4, SP[a2, a6], a5, a3, n] + S2[a1, a4, SP[a3, a6], a2, a5, n] + 
    S2[a1, a4, SP[a3, a6], a5, a2, n] - S2[a1, a5, a6, a2, SP[a3, a4], n] - 
    S2[a1, a5, a6, SP[a2, a3], a4, n] - S2[a1, a5, SP[a3, a6], a2, a4, n] + 
    S2[a5, n]*S2[a1, a6, a2, a3, a4, n] + S2[a1, a6, a2, a3, SP[a4, a5], n] + 
    S2[a5, n]*S2[a1, a6, a2, a4, a3, n] + S2[a1, a6, a2, a4, SP[a3, a5], n] + 
    S2[a4, n]*S2[a1, a6, a2, a5, a3, n] + S2[a1, a6, a2, a5, SP[a3, a4], n] + 
    S2[a1, a6, a2, SP[a3, a5], a4, n] + 2*S2[a1, a6, a2, SP[a4, a5], a3, n] + 
    S2[a5, n]*S2[a1, a6, a3, a2, a4, n] + S2[a1, a6, a3, a2, SP[a4, a5], n] - 
    S2[a2, n]*S2[a1, a6, a3, a4, a5, n] - S2[a1, a6, a3, a4, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a6, a3, a5, a4, n] - S2[a1, a6, a3, a5, SP[a2, a4], n] - 
    S2[a1, a6, a3, SP[a2, a4], a5, n] - S2[a2, n]*S2[a1, a6, a4, a3, a5, n] - 
    S2[a1, a6, a4, a3, SP[a2, a5], n] - S2[a2, n]*S2[a1, a6, a4, a5, a3, n] - 
    S2[a1, a6, a4, a5, SP[a2, a3], n] - S2[a1, a6, a4, SP[a2, a3], a5, n] - 
    S2[a1, a6, a4, SP[a2, a5], a3, n] + S2[a4, n]*S2[a1, a6, a5, a2, a3, n] + 
    S2[a1, a6, a5, a2, SP[a3, a4], n] + S2[a4, n]*S2[a1, a6, a5, a3, a2, n] - 
    S2[a2, n]*S2[a1, a6, a5, a3, a4, n] - 
    S2[a2, n]*S2[a1, a6, a5, a4, a3, n] - S2[a1, a6, a5, a4, SP[a2, a3], n] - 
    S2[a1, a6, a5, SP[a2, a3], a4, n] + S2[a1, a6, a5, SP[a3, a4], a2, n] - 
    S2[a1, a6, SP[a2, a3], a4, a5, n] - S2[a1, a6, SP[a2, a3], a5, a4, n] - 
    S2[a1, a6, SP[a2, a4], a3, a5, n] + S2[a1, a6, SP[a3, a5], a2, a4, n] + 
    S2[a1, a6, SP[a4, a5], a2, a3, n] + S2[a1, a6, SP[a4, a5], a3, a2, n] - 
    S2[a1, SP[a2, a4], a3, a5, a6, n] - S2[a1, SP[a2, a4], a3, a6, a5, n] - 
    S2[a1, SP[a2, a4], a6, a3, a5, n] - S2[a1, SP[a2, a4], a6, a5, a3, n] - 
    S2[a1, SP[a2, a6], a3, a4, a5, n] - S2[a1, SP[a2, a6], a3, a5, a4, n] - 
    S2[a1, SP[a2, a6], a4, a3, a5, n] - S2[a1, SP[a2, a6], a4, a5, a3, n] - 
    S2[a1, SP[a2, a6], a5, a3, a4, n] - S2[a1, SP[a2, a6], a5, a4, a3, n] + 
    S2[a1, SP[a3, a6], a4, a2, a5, n] + S2[a1, SP[a3, a6], a4, a5, a2, n] + 
    S2[a1, SP[a3, a6], a5, a4, a2, n] + S2[a1, SP[a4, a6], a2, a3, a5, n] + 
    S2[a1, SP[a4, a6], a2, a5, a3, n] + S2[a1, SP[a4, a6], a3, a2, a5, n] + 
    S2[a1, SP[a4, a6], a3, a5, a2, n] + S2[a1, SP[a4, a6], a5, a2, a3, n] + 
    S2[a1, SP[a4, a6], a5, a3, a2, n] + S2[a1, SP[a5, a6], a2, a3, a4, n] + 
    S2[a1, SP[a5, a6], a2, a4, a3, n] + S2[a1, SP[a5, a6], a3, a2, a4, n] + 
    S2[a2, a1, a3, a5, SP[a4, a6], n] + S2[a2, a1, a3, SP[a4, a5], a6, n] + 
    S2[a2, a1, a4, a6, SP[a3, a5], n] + S2[a2, a1, a4, SP[a3, a6], a5, n] + 
    S2[a2, a1, a6, a4, SP[a3, a5], n] + S2[a2, a1, a6, a5, SP[a3, a4], n] + 
    S2[a2, a1, a6, SP[a3, a4], a5, n] + S2[a2, a1, a6, SP[a3, a5], a4, n] + 
    S2[a2, a1, SP[a3, a4], a5, a6, n] + S2[a2, a1, SP[a3, a4], a6, a5, n] + 
    S2[a2, a1, SP[a3, a6], a4, a5, n] + S2[a2, a1, SP[a3, a6], a5, a4, n] - 
    S2[a6, n]*S2[a2, a4, a1, a3, a5, n] - S2[a2, a4, a1, a3, SP[a5, a6], n] + 
    S2[a2, a4, a1, a6, SP[a3, a5], n] + S2[a2, a4, a6, a1, SP[a3, a5], n] + 
    S2[a2, a4, a6, SP[a1, a5], a3, n] + S2[a2, a4, SP[a1, a6], a5, a3, n] - 
    S2[a5, n]*S2[a2, a6, a1, a3, a4, n] - S2[a2, a6, a1, a3, SP[a4, a5], n] - 
    S2[a5, n]*S2[a2, a6, a1, a4, a3, n] - 
    S2[a4, n]*S2[a2, a6, a1, a5, a3, n] + S2[a2, a6, a1, SP[a3, a4], a5, n] - 
    2*S2[a2, a6, a1, SP[a4, a5], a3, n] + S2[a2, a6, a4, a1, SP[a3, a5], n] + 
    S2[a2, a6, a4, SP[a1, a5], a3, n] - S2[a4, n]*S2[a2, a6, a5, a1, a3, n] + 
    S2[a2, a6, SP[a1, a4], a3, a5, n] - S2[a2, a6, SP[a4, a5], a1, a3, n] + 
    S2[a2, SP[a1, a4], a3, a5, a6, n] + S2[a2, SP[a1, a4], a3, a6, a5, n] + 
    S2[a2, SP[a1, a4], a6, a3, a5, n] + S2[a2, SP[a1, a4], a6, a5, a3, n] + 
    S2[a2, SP[a1, a6], a3, a4, a5, n] + S2[a2, SP[a1, a6], a3, a5, a4, n] + 
    S2[a2, SP[a1, a6], a4, a3, a5, n] + S2[a2, SP[a1, a6], a4, a5, a3, n] + 
    S2[a2, SP[a1, a6], a5, a3, a4, n] + S2[a2, SP[a1, a6], a5, a4, a3, n] - 
    S2[a2, SP[a4, a6], a1, a3, a5, n] - S2[a2, SP[a4, a6], a1, a5, a3, n] - 
    S2[a2, SP[a4, a6], a5, a1, a3, n] - S2[a2, SP[a5, a6], a1, a3, a4, n] - 
    S2[a2, SP[a5, a6], a1, a4, a3, n] - S2[a2, n]*S2[a4, a1, a6, a5, a3, n] - 
    S2[a4, a1, a6, a5, SP[a2, a3], n] - S2[a4, a1, a6, SP[a2, a5], a3, n] - 
    S2[a4, a1, SP[a2, a6], a5, a3, n] + S2[a1, n]*S2[a4, a2, a6, a5, a3, n] + 
    S2[a4, a2, a6, a5, SP[a1, a3], n] + S2[a4, a2, a6, SP[a1, a5], a3, n] + 
    S2[a4, a2, SP[a1, a6], a5, a3, n] - S2[a5, a1, a6, a2, SP[a3, a4], n] - 
    S2[a5, a1, a6, SP[a2, a3], a4, n] - S2[a5, a1, SP[a3, a6], a2, a4, n] - 
    S2[a5, a6, a1, a2, SP[a3, a4], n] + S2[a2, n]*S2[a5, a6, a1, a3, a4, n] + 
    S2[a5, a6, a1, a3, SP[a2, a4], n] + S2[a2, n]*S2[a5, a6, a1, a4, a3, n] + 
    S2[a5, a6, a1, a4, SP[a2, a3], n] + S2[a5, a6, a1, SP[a2, a4], a3, n] - 
    S2[a5, a6, a2, a1, SP[a3, a4], n] - S2[a5, a6, a2, SP[a1, a4], a3, n] - 
    S2[a5, SP[a1, a6], a2, a3, a4, n] - S2[a5, SP[a1, a6], a2, a4, a3, n] - 
    S2[a5, SP[a1, a6], a3, a2, a4, n] + S2[a5, SP[a2, a6], a1, a3, a4, n] + 
    S2[a5, SP[a2, a6], a1, a4, a3, n] - S2[a5, n]*S2[a6, a1, a3, a4, a2, n] - 
    S2[a6, a1, a3, a4, SP[a2, a5], n] - S2[a6, a1, a3, SP[a4, a5], a2, n] - 
    S2[a5, n]*S2[a6, a1, a4, a2, a3, n] - S2[a6, a1, a4, a2, SP[a3, a5], n] - 
    S2[a5, n]*S2[a6, a1, a4, a3, a2, n] - S2[a6, a1, a4, a3, SP[a2, a5], n] + 
    S2[a2, n]*S2[a6, a1, a4, a5, a3, n] + S2[a6, a1, a4, a5, SP[a2, a3], n] - 
    S2[a6, a1, a4, SP[a3, a5], a2, n] + S2[a2, n]*S2[a6, a1, a5, a3, a4, n] + 
    S2[a6, a1, a5, a3, SP[a2, a4], n] + S2[a2, n]*S2[a6, a1, a5, a4, a3, n] + 
    S2[a6, a1, a5, a4, SP[a2, a3], n] + S2[a6, a1, a5, SP[a2, a3], a4, n] + 
    S2[a6, a1, a5, SP[a2, a4], a3, n] + S2[a6, a1, SP[a2, a4], a5, a3, n] + 
    S2[a6, a1, SP[a2, a5], a3, a4, n] + S2[a6, a1, SP[a2, a5], a4, a3, n] - 
    S2[a6, a1, SP[a3, a5], a4, a2, n] - S2[a6, a1, SP[a4, a5], a2, a3, n] - 
    S2[a6, a1, SP[a4, a5], a3, a2, n] + S2[a5, n]*S2[a6, a2, a4, a1, a3, n] + 
    S2[a6, a2, a4, a1, SP[a3, a5], n] - S2[a1, n]*S2[a6, a2, a4, a5, a3, n] - 
    S2[a6, a2, a4, a5, SP[a1, a3], n] - S2[a1, n]*S2[a6, a2, a5, a3, a4, n] - 
    S2[a6, a2, a5, a3, SP[a1, a4], n] - S2[a1, n]*S2[a6, a2, a5, a4, a3, n] - 
    S2[a6, a2, a5, a4, SP[a1, a3], n] - S2[a6, a2, a5, SP[a1, a3], a4, n] - 
    S2[a6, a2, a5, SP[a1, a4], a3, n] - S2[a6, a2, SP[a1, a4], a5, a3, n] - 
    S2[a6, a2, SP[a1, a5], a3, a4, n] - S2[a6, a2, SP[a1, a5], a4, a3, n] + 
    S2[a6, a2, SP[a4, a5], a1, a3, n] + S2[a2, n]*S2[a6, a5, a1, a3, a4, n] + 
    S2[a6, a5, a1, a3, SP[a2, a4], n] + S2[a2, n]*S2[a6, a5, a1, a4, a3, n] + 
    S2[a6, a5, a1, a4, SP[a2, a3], n] + S2[a6, a5, a1, SP[a2, a3], a4, n] + 
    S2[a6, a5, a1, SP[a2, a4], a3, n] - S2[a1, n]*S2[a6, a5, a2, a3, a4, n] - 
    S2[a6, a5, a2, a3, SP[a1, a4], n] - S2[a1, n]*S2[a6, a5, a2, a4, a3, n] - 
    S2[a6, a5, a2, a4, SP[a1, a3], n] - S2[a6, a5, a2, SP[a1, a3], a4, n] - 
    S2[a6, a5, a2, SP[a1, a4], a3, n] - S2[a1, n]*S2[a6, a5, a3, a2, a4, n] - 
    S2[a6, a5, a3, a2, SP[a1, a4], n] - S2[a6, a5, a3, SP[a1, a2], a4, n] - 
    S2[a6, a5, SP[a1, a3], a2, a4, n] - S2[a6, SP[a1, a5], a2, a3, a4, n] - 
    S2[a6, SP[a1, a5], a2, a4, a3, n] - S2[a6, SP[a1, a5], a3, a2, a4, n] - 
    S2[a6, SP[a1, a5], a3, a4, a2, n] - S2[a6, SP[a1, a5], a4, a2, a3, n] - 
    S2[a6, SP[a1, a5], a4, a3, a2, n] + S2[a6, SP[a2, a5], a1, a3, a4, n] + 
    S2[a6, SP[a2, a5], a1, a4, a3, n] + S2[a6, SP[a2, a5], a4, a1, a3, n] + 
    S2[SP[a1, a4], a2, a6, a5, a3, n] + S2[SP[a1, a4], a6, a2, a5, a3, n] + 
    S2[SP[a1, a4], a6, a5, a2, a3, n] + S2[SP[a1, a4], a6, a5, a3, a2, n] - 
    S2[SP[a1, a6], a2, a4, a5, a3, n] - S2[SP[a1, a6], a2, a5, a3, a4, n] - 
    S2[SP[a1, a6], a2, a5, a4, a3, n] + S2[SP[a1, a6], a3, a4, a2, a5, n] + 
    S2[SP[a1, a6], a3, a4, a5, a2, n] + S2[SP[a1, a6], a3, a5, a4, a2, n] + 
    S2[SP[a1, a6], a4, a2, a3, a5, n] + S2[SP[a1, a6], a4, a3, a2, a5, n] + 
    S2[SP[a1, a6], a4, a3, a5, a2, n] - S2[SP[a1, a6], a5, a2, a3, a4, n] - 
    S2[SP[a1, a6], a5, a2, a4, a3, n] - S2[SP[a1, a6], a5, a3, a2, a4, n] - 
    S2[SP[a2, a4], a1, a6, a5, a3, n] - S2[SP[a2, a4], a6, a1, a5, a3, n] - 
    S2[SP[a2, a4], a6, a5, a1, a3, n] + S2[SP[a2, a6], a1, a4, a5, a3, n] + 
    S2[SP[a2, a6], a1, a5, a3, a4, n] + S2[SP[a2, a6], a1, a5, a4, a3, n] - 
    S2[SP[a2, a6], a4, a1, a3, a5, n] + S2[SP[a2, a6], a5, a1, a3, a4, n] + 
    S2[SP[a2, a6], a5, a1, a4, a3, n] - S2[SP[a5, a6], a1, a3, a4, a2, n] - 
    S2[SP[a5, a6], a1, a4, a2, a3, n] - S2[SP[a5, a6], a1, a4, a3, a2, n] + 
    S2[SP[a5, a6], a2, a4, a1, a3, n] + S2[a6, a2, a4, a5, a3, a1, n] + 
    S2[a6, a2, a5, a3, a1, a4, n] + S2[a6, a2, a5, a3, a4, a1, n] + 
    S2[a6, a2, a5, a4, a3, a1, n] + S2[a6, a5, a2, a3, a1, a4, n] + 
    S2[a6, a5, a2, a3, a4, a1, n] + S2[a6, a5, a2, a4, a3, a1, n] + 
    S2[a6, a5, a3, a1, a2, a4, n] + S2[a6, a5, a3, a2, a1, a4, n] + 
    S2[a6, a5, a3, a2, a4, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a4_, a3_, a1_, a2_, a5_, a6_, n_] :> 
  S2[a1, a3, a4, n]*S2[a2, a5, a6, n] + S2[SP[a1, a2], SP[a3, a5], 
     SP[a4, a6], n] + S2[a5, a6, n]*S2[a1, a2, a3, a4, n] - 
    S2[a3, a4, n]*S2[a1, a2, a5, a6, n] - S2[a1, a2, SP[a3, a5], SP[a4, a6], 
     n] + S2[a5, a6, n]*S2[a1, a3, a2, a4, n] + 
    S2[a5, a6, n]*S2[a1, a3, a4, a2, n] - S2[a1, a3, SP[a2, a5], SP[a4, a6], 
     n] - S2[a1, a3, SP[a4, a5], SP[a2, a6], n] - S2[a1, SP[a2, a5], a3, 
     SP[a4, a6], n] - S2[a1, SP[a2, a5], SP[a3, a6], a4, n] - 
    S2[a1, SP[a3, a5], a2, SP[a4, a6], n] - S2[a1, SP[a3, a5], a4, 
     SP[a2, a6], n] - S2[a1, SP[a3, a5], SP[a2, a6], a4, n] - 
    S2[a1, SP[a3, a5], SP[a4, a6], a2, n] - S2[a2, a1, SP[a3, a5], 
     SP[a4, a6], n] - S2[a2, SP[a1, a5], a3, SP[a4, a6], n] - 
    S2[a2, SP[a1, a5], SP[a3, a6], a4, n] - S2[SP[a1, a2], a3, a5, 
     SP[a4, a6], n] - S2[SP[a1, a2], a3, SP[a4, a5], a6, n] - 
    S2[SP[a1, a2], a5, a3, SP[a4, a6], n] - S2[SP[a1, a2], a5, SP[a3, a6], 
     a4, n] - S2[SP[a1, a2], SP[a3, a5], a4, a6, n] - 
    S2[SP[a1, a2], SP[a3, a5], a6, a4, n] + S2[SP[a1, a3], a2, a5, 
     SP[a4, a6], n] + S2[SP[a1, a3], a2, SP[a4, a5], a6, n] + 
    S2[SP[a1, a3], SP[a2, a4], a5, a6, n] - S2[SP[a1, a5], a2, a3, 
     SP[a4, a6], n] - S2[SP[a1, a5], a2, SP[a3, a6], a4, n] - 
    S2[SP[a1, a5], a3, a2, SP[a4, a6], n] - S2[SP[a1, a5], a3, a4, 
     SP[a2, a6], n] - S2[SP[a1, a5], a3, SP[a2, a6], a4, n] - 
    S2[SP[a1, a5], a3, SP[a4, a6], a2, n] - S2[SP[a1, a5], SP[a2, a6], a3, 
     a4, n] - S2[SP[a1, a5], SP[a3, a6], a2, a4, n] - 
    S2[SP[a1, a5], SP[a3, a6], a4, a2, n] + 
    S2[a6, n]*S2[a1, a2, a3, a4, a5, n] - 
    S2[a5, n]*S2[a1, a2, a3, a4, a6, n] + 
    S2[a6, n]*S2[a1, a2, a3, a5, a4, n] - 
    S2[a4, n]*S2[a1, a2, a3, a5, a6, n] + S2[a1, a2, a3, a5, SP[a4, a6], n] - 
    S2[a5, n]*S2[a1, a2, a3, a6, a4, n] - S2[a1, a2, a3, a6, SP[a4, a5], n] - 
    S2[a1, a2, a3, SP[a4, a5], a6, n] + S2[a1, a2, a3, SP[a4, a6], a5, n] + 
    S2[a3, n]*S2[a1, a2, a4, a5, a6, n] + S2[a1, a2, a4, a5, SP[a3, a6], n] + 
    S2[a1, a2, a4, SP[a3, a5], a6, n] + S2[a6, n]*S2[a1, a2, a5, a3, a4, n] - 
    S2[a4, n]*S2[a1, a2, a5, a3, a6, n] + S2[a1, a2, a5, a3, SP[a4, a6], n] + 
    S2[a3, n]*S2[a1, a2, a5, a4, a6, n] + S2[a1, a2, a5, a4, SP[a3, a6], n] - 
    S2[a4, n]*S2[a1, a2, a5, a6, a3, n] + 
    S2[a3, n]*S2[a1, a2, a5, a6, a4, n] + 
    3*S2[a1, a2, a5, SP[a3, a6], a4, n] - S2[a1, a2, a5, SP[a4, a6], a3, n] - 
    S2[a5, n]*S2[a1, a2, a6, a3, a4, n] - S2[a1, a2, a6, a3, SP[a4, a5], n] - 
    S2[a1, a2, a6, SP[a3, a5], a4, n] + S2[a1, a2, SP[a3, a5], a4, a6, n] + 
    S2[a1, a2, SP[a3, a5], a6, a4, n] + S2[a1, a2, SP[a3, a6], a4, a5, n] + 
    S2[a1, a2, SP[a3, a6], a5, a4, n] - S2[a1, a2, SP[a4, a5], a3, a6, n] - 
    S2[a1, a2, SP[a4, a5], a6, a3, n] + S2[a6, n]*S2[a1, a3, a2, a4, a5, n] - 
    S2[a5, n]*S2[a1, a3, a2, a4, a6, n] + 
    S2[a6, n]*S2[a1, a3, a2, a5, a4, n] - 
    S2[a4, n]*S2[a1, a3, a2, a5, a6, n] + S2[a1, a3, a2, a5, SP[a4, a6], n] - 
    S2[a5, n]*S2[a1, a3, a2, a6, a4, n] - S2[a1, a3, a2, a6, SP[a4, a5], n] - 
    S2[a1, a3, a2, SP[a4, a5], a6, n] + S2[a1, a3, a2, SP[a4, a6], a5, n] + 
    S2[a6, n]*S2[a1, a3, a4, a2, a5, n] - 
    S2[a5, n]*S2[a1, a3, a4, a2, a6, n] + 
    S2[a6, n]*S2[a1, a3, a4, a5, a2, n] - 
    S2[a2, n]*S2[a1, a3, a4, a5, a6, n] + S2[a1, a3, a4, a5, SP[a2, a6], n] - 
    S2[a5, n]*S2[a1, a3, a4, a6, a2, n] - S2[a1, a3, a4, a6, SP[a2, a5], n] - 
    S2[a1, a3, a4, SP[a2, a5], a6, n] + S2[a1, a3, a4, SP[a2, a6], a5, n] + 
    S2[a6, n]*S2[a1, a3, a5, a2, a4, n] + 
    2*S2[a1, a3, a5, a2, SP[a4, a6], n] + 
    S2[a6, n]*S2[a1, a3, a5, a4, a2, n] - 
    S2[a2, n]*S2[a1, a3, a5, a4, a6, n] + S2[a1, a3, a5, a4, SP[a2, a6], n] - 
    S2[a2, n]*S2[a1, a3, a5, a6, a4, n] - S2[a1, a3, a5, a6, SP[a2, a4], n] - 
    S2[a1, a3, a5, SP[a2, a4], a6, n] + S2[a1, a3, a5, SP[a2, a6], a4, n] + 
    2*S2[a1, a3, a5, SP[a4, a6], a2, n] - 
    S2[a5, n]*S2[a1, a3, a6, a2, a4, n] - S2[a1, a3, a6, a2, SP[a4, a5], n] - 
    S2[a5, n]*S2[a1, a3, a6, a4, a2, n] - S2[a1, a3, a6, a4, SP[a2, a5], n] - 
    S2[a1, a3, a6, SP[a2, a5], a4, n] - S2[a1, a3, a6, SP[a4, a5], a2, n] - 
    2*S2[a1, a3, SP[a2, a4], a5, a6, n] - S2[a1, a3, SP[a2, a5], a4, a6, n] - 
    S2[a1, a3, SP[a2, a5], a6, a4, n] + S2[a1, a3, SP[a2, a6], a4, a5, n] + 
    S2[a1, a3, SP[a2, a6], a5, a4, n] + S2[a1, a3, SP[a4, a6], a2, a5, n] + 
    S2[a1, a3, SP[a4, a6], a5, a2, n] + S2[a3, n]*S2[a1, a4, a2, a5, a6, n] + 
    S2[a1, a4, a2, a5, SP[a3, a6], n] + S2[a1, a4, a2, SP[a3, a5], a6, n] + 
    S2[a1, a4, SP[a2, a3], a5, a6, n] + S2[a6, n]*S2[a1, a5, a2, a3, a4, n] + 
    2*S2[a1, a5, a2, a3, SP[a4, a6], n] + 
    2*S2[a1, a5, a2, SP[a3, a6], a4, n] + 
    S2[a6, n]*S2[a1, a5, a3, a2, a4, n] + 
    2*S2[a1, a5, a3, a2, SP[a4, a6], n] + 
    S2[a6, n]*S2[a1, a5, a3, a4, a2, n] - 
    S2[a2, n]*S2[a1, a5, a3, a4, a6, n] + S2[a1, a5, a3, a4, SP[a2, a6], n] - 
    S2[a2, n]*S2[a1, a5, a3, a6, a4, n] - S2[a1, a5, a3, a6, SP[a2, a4], n] - 
    S2[a1, a5, a3, SP[a2, a4], a6, n] + S2[a1, a5, a3, SP[a2, a6], a4, n] + 
    2*S2[a1, a5, a3, SP[a4, a6], a2, n] - 
    S2[a2, n]*S2[a1, a5, a6, a3, a4, n] - S2[a1, a5, a6, a3, SP[a2, a4], n] - 
    S2[a1, a5, a6, SP[a2, a3], a4, n] - S2[a1, a5, SP[a2, a3], a4, a6, n] - 
    S2[a1, a5, SP[a2, a3], a6, a4, n] + S2[a1, a5, SP[a2, a6], a3, a4, n] + 
    2*S2[a1, a5, SP[a3, a6], a2, a4, n] + 
    2*S2[a1, a5, SP[a3, a6], a4, a2, n] - 
    S2[a5, n]*S2[a1, a6, a2, a3, a4, n] - S2[a1, a6, a2, a3, SP[a4, a5], n] - 
    S2[a1, a6, a2, SP[a3, a5], a4, n] - S2[a5, n]*S2[a1, a6, a3, a2, a4, n] - 
    S2[a1, a6, a3, a2, SP[a4, a5], n] - S2[a5, n]*S2[a1, a6, a3, a4, a2, n] - 
    S2[a1, a6, a3, a4, SP[a2, a5], n] - S2[a1, a6, a3, SP[a2, a5], a4, n] - 
    S2[a1, a6, a3, SP[a4, a5], a2, n] - S2[a1, a6, SP[a2, a5], a3, a4, n] - 
    S2[a1, a6, SP[a3, a5], a2, a4, n] - S2[a1, a6, SP[a3, a5], a4, a2, n] - 
    S2[a1, SP[a2, a4], a3, a5, a6, n] - S2[a1, SP[a2, a4], a5, a3, a6, n] - 
    S2[a1, SP[a2, a4], a5, a6, a3, n] - S2[a1, SP[a2, a5], a3, a4, a6, n] - 
    S2[a1, SP[a2, a5], a3, a6, a4, n] - S2[a1, SP[a2, a5], a6, a3, a4, n] + 
    S2[a1, SP[a2, a6], a3, a4, a5, n] + S2[a1, SP[a2, a6], a3, a5, a4, n] + 
    S2[a1, SP[a2, a6], a5, a3, a4, n] + S2[a1, SP[a3, a6], a2, a4, a5, n] + 
    S2[a1, SP[a3, a6], a2, a5, a4, n] + S2[a1, SP[a3, a6], a4, a2, a5, n] + 
    S2[a1, SP[a3, a6], a4, a5, a2, n] + S2[a1, SP[a3, a6], a5, a2, a4, n] + 
    S2[a1, SP[a3, a6], a5, a4, a2, n] + S2[a2, a1, a3, a5, SP[a4, a6], n] + 
    S2[a2, a1, a3, SP[a4, a5], a6, n] + S2[a2, a1, a5, a3, SP[a4, a6], n] + 
    S2[a2, a1, a5, SP[a3, a6], a4, n] + S2[a2, a1, SP[a3, a5], a4, a6, n] + 
    S2[a2, a1, SP[a3, a5], a6, a4, n] - S2[a6, n]*S2[a2, a5, a1, a3, a4, n] + 
    S2[a2, SP[a1, a5], a3, a4, a6, n] + S2[a2, SP[a1, a5], a3, a6, a4, n] + 
    S2[a2, SP[a1, a5], a6, a3, a4, n] - S2[a2, SP[a5, a6], a1, a3, a4, n] - 
    S2[a3, a1, a2, a5, SP[a4, a6], n] - S2[a3, a1, a2, SP[a4, a5], a6, n] - 
    S2[a3, a1, SP[a2, a4], a5, a6, n] - S2[a3, SP[a1, a4], a2, a5, a6, n] + 
    S2[a3, n]*S2[a4, a1, a2, a5, a6, n] + S2[a4, a1, a2, a5, SP[a3, a6], n] + 
    S2[a4, a1, a2, SP[a3, a5], a6, n] + S2[a4, a1, SP[a2, a3], a5, a6, n] + 
    S2[a4, SP[a1, a3], a2, a5, a6, n] + S2[a5, a1, a2, a3, SP[a4, a6], n] + 
    S2[a5, a1, a2, SP[a3, a6], a4, n] + S2[a5, a1, a3, a2, SP[a4, a6], n] + 
    S2[a5, a1, a3, a4, SP[a2, a6], n] + S2[a5, a1, a3, SP[a2, a6], a4, n] + 
    S2[a5, a1, a3, SP[a4, a6], a2, n] + S2[a5, a1, SP[a2, a6], a3, a4, n] + 
    S2[a5, a1, SP[a3, a6], a2, a4, n] + S2[a5, a1, SP[a3, a6], a4, a2, n] + 
    S2[a5, SP[a1, a6], a2, a3, a4, n] + S2[a5, SP[a1, a6], a3, a2, a4, n] + 
    S2[a5, SP[a1, a6], a3, a4, a2, n] - S2[a5, n]*S2[a6, a1, a2, a3, a4, n] - 
    S2[a6, a1, a2, a3, SP[a4, a5], n] - S2[a6, a1, a2, SP[a3, a5], a4, n] - 
    S2[a5, n]*S2[a6, a1, a3, a2, a4, n] - S2[a6, a1, a3, a2, SP[a4, a5], n] - 
    S2[a5, n]*S2[a6, a1, a3, a4, a2, n] - S2[a6, a1, a3, a4, SP[a2, a5], n] - 
    S2[a6, a1, a3, SP[a2, a5], a4, n] - S2[a6, a1, a3, SP[a4, a5], a2, n] - 
    S2[a6, a1, SP[a2, a5], a3, a4, n] - S2[a6, a1, SP[a3, a5], a2, a4, n] - 
    S2[a6, a1, SP[a3, a5], a4, a2, n] + S2[a2, n]*S2[a6, a5, a1, a3, a4, n] + 
    S2[a6, a5, a1, a3, SP[a2, a4], n] + S2[a6, a5, a1, SP[a2, a3], a4, n] + 
    S2[a6, a5, SP[a1, a2], a3, a4, n] - S2[a6, SP[a1, a5], a2, a3, a4, n] - 
    S2[a6, SP[a1, a5], a3, a2, a4, n] - S2[a6, SP[a1, a5], a3, a4, a2, n] + 
    S2[a6, SP[a2, a5], a1, a3, a4, n] - S2[SP[a1, a4], a2, a3, a5, a6, n] - 
    S2[SP[a1, a4], a2, a5, a3, a6, n] - S2[SP[a1, a4], a2, a5, a6, a3, n] - 
    S2[SP[a1, a4], a3, a2, a5, a6, n] + S2[SP[a1, a6], a2, a3, a4, a5, n] + 
    S2[SP[a1, a6], a2, a3, a5, a4, n] + S2[SP[a1, a6], a2, a5, a3, a4, n] + 
    S2[SP[a1, a6], a3, a2, a4, a5, n] + S2[SP[a1, a6], a3, a2, a5, a4, n] + 
    S2[SP[a1, a6], a3, a4, a2, a5, n] + S2[SP[a1, a6], a3, a4, a5, a2, n] + 
    S2[SP[a1, a6], a3, a5, a2, a4, n] + S2[SP[a1, a6], a3, a5, a4, a2, n] + 
    S2[SP[a1, a6], a5, a2, a3, a4, n] + S2[SP[a1, a6], a5, a3, a2, a4, n] + 
    S2[SP[a1, a6], a5, a3, a4, a2, n] + S2[SP[a3, a4], a1, a2, a5, a6, n] - 
    S2[SP[a5, a6], a1, a2, a3, a4, n] - S2[SP[a5, a6], a1, a3, a2, a4, n] - 
    S2[SP[a5, a6], a1, a3, a4, a2, n] - S2[a6, a5, a2, a1, a3, a4, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a4_, a3_, a1_, a2_, a6_, a5_, n_] :> 
  S2[a1, a3, a4, n]*S2[a2, a6, a5, n] + S2[SP[a1, a2], SP[a3, a6], 
     SP[a4, a5], n] - S2[a5, a6, n]*S2[a1, a2, a3, a4, n] - 
    S2[a3, a4, n]*S2[a1, a2, a6, a5, n] + S2[a1, a2, SP[a3, a5], SP[a4, a6], 
     n] - S2[a5, a6, n]*S2[a1, a3, a2, a4, n] - 
    S2[a5, a6, n]*S2[a1, a3, a4, a2, n] + S2[a1, a3, SP[a2, a5], SP[a4, a6], 
     n] + S2[a1, a3, SP[a4, a5], SP[a2, a6], n] + S2[a1, SP[a2, a5], a3, 
     SP[a4, a6], n] + S2[a1, SP[a2, a5], SP[a3, a6], a4, n] + 
    S2[a1, SP[a3, a5], a2, SP[a4, a6], n] + S2[a1, SP[a3, a5], a4, 
     SP[a2, a6], n] + S2[a1, SP[a3, a5], SP[a2, a6], a4, n] + 
    S2[a1, SP[a3, a5], SP[a4, a6], a2, n] - S2[a2, a1, SP[a3, a6], 
     SP[a4, a5], n] - S2[a2, SP[a1, a6], a3, SP[a4, a5], n] - 
    S2[a2, SP[a1, a6], SP[a3, a5], a4, n] - S2[SP[a1, a2], a3, a6, 
     SP[a4, a5], n] - S2[SP[a1, a2], a3, SP[a4, a6], a5, n] - 
    S2[SP[a1, a2], a6, a3, SP[a4, a5], n] - S2[SP[a1, a2], a6, SP[a3, a5], 
     a4, n] - S2[SP[a1, a2], SP[a3, a6], a4, a5, n] - 
    S2[SP[a1, a2], SP[a3, a6], a5, a4, n] + S2[SP[a1, a3], a2, a6, 
     SP[a4, a5], n] + S2[SP[a1, a3], a2, SP[a4, a6], a5, n] + 
    S2[SP[a1, a3], SP[a2, a4], a6, a5, n] + S2[SP[a1, a5], a2, a3, 
     SP[a4, a6], n] + S2[SP[a1, a5], a2, SP[a3, a6], a4, n] + 
    S2[SP[a1, a5], a3, a2, SP[a4, a6], n] + S2[SP[a1, a5], a3, a4, 
     SP[a2, a6], n] + S2[SP[a1, a5], a3, SP[a2, a6], a4, n] + 
    S2[SP[a1, a5], a3, SP[a4, a6], a2, n] + S2[SP[a1, a5], SP[a2, a6], a3, 
     a4, n] + S2[SP[a1, a5], SP[a3, a6], a2, a4, n] + 
    S2[SP[a1, a5], SP[a3, a6], a4, a2, n] + 
    S2[a5, n]*S2[a1, a2, a3, a4, a6, n] + S2[a1, a2, a3, a4, SP[a5, a6], n] - 
    S2[a1, a2, a3, a5, SP[a4, a6], n] + S2[a5, n]*S2[a1, a2, a3, a6, a4, n] - 
    S2[a4, n]*S2[a1, a2, a3, a6, a5, n] - S2[a1, a2, a3, SP[a4, a6], a5, n] + 
    S2[a1, a2, a3, SP[a5, a6], a4, n] + S2[a3, n]*S2[a1, a2, a4, a6, a5, n] + 
    S2[a1, a2, a4, a6, SP[a3, a5], n] + S2[a1, a2, a4, SP[a3, a6], a5, n] - 
    S2[a1, a2, a5, a3, SP[a4, a6], n] - S2[a1, a2, a5, SP[a3, a6], a4, n] + 
    S2[a5, n]*S2[a1, a2, a6, a3, a4, n] - 
    S2[a4, n]*S2[a1, a2, a6, a3, a5, n] + 
    S2[a3, n]*S2[a1, a2, a6, a4, a5, n] + S2[a1, a2, a6, a4, SP[a3, a5], n] - 
    S2[a4, n]*S2[a1, a2, a6, a5, a3, n] + 
    S2[a3, n]*S2[a1, a2, a6, a5, a4, n] + 
    2*S2[a1, a2, a6, SP[a3, a5], a4, n] - S2[a1, a2, a6, SP[a4, a5], a3, n] + 
    S2[a1, a2, SP[a3, a6], a4, a5, n] + S2[a1, a2, SP[a3, a6], a5, a4, n] - 
    S2[a1, a2, SP[a4, a6], a3, a5, n] - S2[a1, a2, SP[a4, a6], a5, a3, n] + 
    S2[a1, a2, SP[a5, a6], a3, a4, n] + S2[a5, n]*S2[a1, a3, a2, a4, a6, n] + 
    S2[a1, a3, a2, a4, SP[a5, a6], n] - S2[a1, a3, a2, a5, SP[a4, a6], n] + 
    S2[a5, n]*S2[a1, a3, a2, a6, a4, n] - 
    S2[a4, n]*S2[a1, a3, a2, a6, a5, n] - S2[a1, a3, a2, SP[a4, a6], a5, n] + 
    S2[a1, a3, a2, SP[a5, a6], a4, n] + S2[a5, n]*S2[a1, a3, a4, a2, a6, n] + 
    S2[a1, a3, a4, a2, SP[a5, a6], n] - S2[a1, a3, a4, a5, SP[a2, a6], n] + 
    S2[a5, n]*S2[a1, a3, a4, a6, a2, n] - 
    S2[a2, n]*S2[a1, a3, a4, a6, a5, n] - S2[a1, a3, a4, SP[a2, a6], a5, n] + 
    S2[a1, a3, a4, SP[a5, a6], a2, n] - S2[a1, a3, a5, a2, SP[a4, a6], n] - 
    S2[a1, a3, a5, a4, SP[a2, a6], n] - S2[a1, a3, a5, SP[a2, a6], a4, n] - 
    S2[a1, a3, a5, SP[a4, a6], a2, n] + S2[a5, n]*S2[a1, a3, a6, a2, a4, n] + 
    S2[a1, a3, a6, a2, SP[a4, a5], n] + S2[a5, n]*S2[a1, a3, a6, a4, a2, n] - 
    S2[a2, n]*S2[a1, a3, a6, a4, a5, n] - 
    S2[a2, n]*S2[a1, a3, a6, a5, a4, n] - S2[a1, a3, a6, a5, SP[a2, a4], n] - 
    S2[a1, a3, a6, SP[a2, a4], a5, n] + S2[a1, a3, a6, SP[a4, a5], a2, n] - 
    2*S2[a1, a3, SP[a2, a4], a6, a5, n] - S2[a1, a3, SP[a2, a6], a4, a5, n] - 
    S2[a1, a3, SP[a2, a6], a5, a4, n] + S2[a1, a3, SP[a5, a6], a2, a4, n] + 
    S2[a1, a3, SP[a5, a6], a4, a2, n] + S2[a3, n]*S2[a1, a4, a2, a6, a5, n] + 
    S2[a1, a4, a2, a6, SP[a3, a5], n] + S2[a1, a4, a2, SP[a3, a6], a5, n] + 
    S2[a1, a4, SP[a2, a3], a6, a5, n] - S2[a1, a5, a2, a3, SP[a4, a6], n] - 
    S2[a1, a5, a2, SP[a3, a6], a4, n] - S2[a1, a5, a3, a2, SP[a4, a6], n] - 
    S2[a1, a5, a3, a4, SP[a2, a6], n] - S2[a1, a5, a3, SP[a2, a6], a4, n] - 
    S2[a1, a5, a3, SP[a4, a6], a2, n] - S2[a1, a5, SP[a2, a6], a3, a4, n] - 
    S2[a1, a5, SP[a3, a6], a2, a4, n] - S2[a1, a5, SP[a3, a6], a4, a2, n] + 
    S2[a5, n]*S2[a1, a6, a2, a3, a4, n] + S2[a1, a6, a2, a3, SP[a4, a5], n] + 
    S2[a1, a6, a2, SP[a3, a5], a4, n] + S2[a5, n]*S2[a1, a6, a3, a2, a4, n] + 
    S2[a1, a6, a3, a2, SP[a4, a5], n] + S2[a5, n]*S2[a1, a6, a3, a4, a2, n] - 
    S2[a2, n]*S2[a1, a6, a3, a4, a5, n] - 
    S2[a2, n]*S2[a1, a6, a3, a5, a4, n] - S2[a1, a6, a3, a5, SP[a2, a4], n] - 
    S2[a1, a6, a3, SP[a2, a4], a5, n] + S2[a1, a6, a3, SP[a4, a5], a2, n] - 
    S2[a2, n]*S2[a1, a6, a5, a3, a4, n] - S2[a1, a6, a5, a3, SP[a2, a4], n] - 
    S2[a1, a6, a5, SP[a2, a3], a4, n] - S2[a1, a6, SP[a2, a3], a4, a5, n] - 
    S2[a1, a6, SP[a2, a3], a5, a4, n] + S2[a1, a6, SP[a3, a5], a2, a4, n] + 
    S2[a1, a6, SP[a3, a5], a4, a2, n] - S2[a1, SP[a2, a4], a3, a6, a5, n] - 
    S2[a1, SP[a2, a4], a6, a3, a5, n] - S2[a1, SP[a2, a4], a6, a5, a3, n] - 
    S2[a1, SP[a2, a6], a3, a4, a5, n] - S2[a1, SP[a2, a6], a3, a5, a4, n] - 
    S2[a1, SP[a2, a6], a5, a3, a4, n] + S2[a1, SP[a5, a6], a2, a3, a4, n] + 
    S2[a1, SP[a5, a6], a3, a2, a4, n] + S2[a1, SP[a5, a6], a3, a4, a2, n] + 
    S2[a2, a1, a3, a6, SP[a4, a5], n] + S2[a2, a1, a3, SP[a4, a6], a5, n] + 
    S2[a2, a1, a6, a3, SP[a4, a5], n] + S2[a2, a1, a6, SP[a3, a5], a4, n] + 
    S2[a2, a1, SP[a3, a6], a4, a5, n] + S2[a2, a1, SP[a3, a6], a5, a4, n] + 
    S2[a2, a6, a1, a3, SP[a4, a5], n] + S2[a2, a6, a1, SP[a3, a5], a4, n] + 
    S2[a2, a6, SP[a1, a5], a3, a4, n] + S2[a2, SP[a1, a6], a3, a4, a5, n] + 
    S2[a2, SP[a1, a6], a3, a5, a4, n] + S2[a2, SP[a1, a6], a5, a3, a4, n] - 
    S2[a3, a1, a2, a6, SP[a4, a5], n] - S2[a3, a1, a2, SP[a4, a6], a5, n] - 
    S2[a3, a1, SP[a2, a4], a6, a5, n] - S2[a3, SP[a1, a4], a2, a6, a5, n] + 
    S2[a3, n]*S2[a4, a1, a2, a6, a5, n] + S2[a4, a1, a2, a6, SP[a3, a5], n] + 
    S2[a4, a1, a2, SP[a3, a6], a5, n] + S2[a4, a1, SP[a2, a3], a6, a5, n] + 
    S2[a4, SP[a1, a3], a2, a6, a5, n] - S2[a5, a1, a2, a3, SP[a4, a6], n] - 
    S2[a5, a1, a2, SP[a3, a6], a4, n] - S2[a5, a1, a3, a2, SP[a4, a6], n] - 
    S2[a5, a1, a3, a4, SP[a2, a6], n] - S2[a5, a1, a3, SP[a2, a6], a4, n] - 
    S2[a5, a1, a3, SP[a4, a6], a2, n] - S2[a5, a1, SP[a2, a6], a3, a4, n] - 
    S2[a5, a1, SP[a3, a6], a2, a4, n] - S2[a5, a1, SP[a3, a6], a4, a2, n] - 
    S2[a5, SP[a1, a6], a2, a3, a4, n] - S2[a5, SP[a1, a6], a3, a2, a4, n] - 
    S2[a5, SP[a1, a6], a3, a4, a2, n] + S2[a5, n]*S2[a6, a1, a2, a3, a4, n] + 
    S2[a6, a1, a2, a3, SP[a4, a5], n] + S2[a6, a1, a2, SP[a3, a5], a4, n] + 
    S2[a5, n]*S2[a6, a1, a3, a2, a4, n] + S2[a6, a1, a3, a2, SP[a4, a5], n] + 
    S2[a5, n]*S2[a6, a1, a3, a4, a2, n] - 
    S2[a2, n]*S2[a6, a1, a3, a4, a5, n] - 
    S2[a2, n]*S2[a6, a1, a3, a5, a4, n] - S2[a6, a1, a3, a5, SP[a2, a4], n] - 
    S2[a6, a1, a3, SP[a2, a4], a5, n] + S2[a6, a1, a3, SP[a4, a5], a2, n] - 
    S2[a2, n]*S2[a6, a1, a5, a3, a4, n] - S2[a6, a1, a5, a3, SP[a2, a4], n] - 
    S2[a6, a1, a5, SP[a2, a3], a4, n] - S2[a6, a1, SP[a2, a3], a4, a5, n] - 
    S2[a6, a1, SP[a2, a3], a5, a4, n] + S2[a6, a1, SP[a3, a5], a2, a4, n] + 
    S2[a6, a1, SP[a3, a5], a4, a2, n] - S2[a2, n]*S2[a6, a5, a1, a3, a4, n] - 
    S2[a6, a5, a1, a3, SP[a2, a4], n] - S2[a6, a5, a1, SP[a2, a3], a4, n] - 
    S2[a6, a5, SP[a1, a2], a3, a4, n] - S2[a6, SP[a1, a2], a3, a4, a5, n] - 
    S2[a6, SP[a1, a2], a3, a5, a4, n] - S2[a6, SP[a1, a2], a5, a3, a4, n] + 
    S2[a6, SP[a1, a5], a2, a3, a4, n] + S2[a6, SP[a1, a5], a3, a2, a4, n] + 
    S2[a6, SP[a1, a5], a3, a4, a2, n] - S2[a6, SP[a2, a5], a1, a3, a4, n] - 
    S2[SP[a1, a4], a2, a3, a6, a5, n] - S2[SP[a1, a4], a2, a6, a3, a5, n] - 
    S2[SP[a1, a4], a2, a6, a5, a3, n] - S2[SP[a1, a4], a3, a2, a6, a5, n] - 
    S2[SP[a2, a6], a1, a3, a4, a5, n] - S2[SP[a2, a6], a1, a3, a5, a4, n] - 
    S2[SP[a2, a6], a1, a5, a3, a4, n] - S2[SP[a2, a6], a5, a1, a3, a4, n] + 
    S2[SP[a3, a4], a1, a2, a6, a5, n] + S2[SP[a5, a6], a1, a2, a3, a4, n] + 
    S2[SP[a5, a6], a1, a3, a2, a4, n] + S2[SP[a5, a6], a1, a3, a4, a2, n] + 
    S2[a6, a2, a1, a3, a4, a5, n] + S2[a6, a2, a1, a3, a5, a4, n] + 
    S2[a6, a2, a1, a5, a3, a4, n] + S2[a6, a2, a5, a1, a3, a4, n] + 
    S2[a6, a5, a2, a1, a3, a4, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a4_, a3_, a1_, a5_, a2_, a6_, n_] :> 
  -(S2[a1, a3, a4, n]*S2[a2, a5, a6, n]) - S2[a1, a3, a4, n]*
     S2[a2, a6, a5, n] - S2[SP[a1, a2], SP[a3, a5], SP[a4, a6], n] - 
    S2[SP[a1, a2], SP[a3, a6], SP[a4, a5], n] + S2[a1, a2, SP[a3, a5], 
     SP[a4, a6], n] + S2[a1, a2, SP[a3, a6], SP[a4, a5], n] + 
    S2[a2, a6, n]*S2[a1, a3, a4, a5, n] + S2[a2, a6, n]*
     S2[a1, a3, a5, a4, n] - S2[a1, a3, SP[a2, a4], SP[a5, a6], n] - 
    S2[a1, a3, SP[a2, a5], SP[a4, a6], n] - S2[a3, a4, n]*
     S2[a1, a5, a2, a6, n] + S2[a2, a6, n]*S2[a1, a5, a3, a4, n] - 
    S2[a1, SP[a2, a3], a4, SP[a5, a6], n] + S2[a1, SP[a2, a3], a6, 
     SP[a4, a5], n] + S2[a1, SP[a2, a3], SP[a4, a5], a6, n] - 
    S2[a1, SP[a2, a3], SP[a5, a6], a4, n] - S2[a1, SP[a2, a5], a3, 
     SP[a4, a6], n] - S2[a1, SP[a2, a5], SP[a3, a6], a4, n] + 
    S2[a1, SP[a3, a5], a2, SP[a4, a6], n] + S2[a1, SP[a3, a5], SP[a2, a4], 
     a6, n] + S2[a2, a1, SP[a3, a5], SP[a4, a6], n] + 
    S2[a2, a1, SP[a3, a6], SP[a4, a5], n] + S2[a2, SP[a1, a5], a3, 
     SP[a4, a6], n] + S2[a2, SP[a1, a5], SP[a3, a6], a4, n] + 
    S2[a2, SP[a1, a6], a3, SP[a4, a5], n] + S2[a2, SP[a1, a6], SP[a3, a5], 
     a4, n] - S2[SP[a1, a2], a3, a4, SP[a5, a6], n] + 
    S2[SP[a1, a2], a3, a6, SP[a4, a5], n] + S2[SP[a1, a2], a3, SP[a4, a5], 
     a6, n] - S2[SP[a1, a2], a3, SP[a5, a6], a4, n] + 
    S2[SP[a1, a2], a6, a3, SP[a4, a5], n] + S2[SP[a1, a2], a6, SP[a3, a5], 
     a4, n] + S2[SP[a1, a2], SP[a3, a5], a4, a6, n] + 
    S2[SP[a1, a2], SP[a3, a5], a6, a4, n] - S2[SP[a1, a2], SP[a5, a6], a3, 
     a4, n] + S2[SP[a1, a3], a5, a2, SP[a4, a6], n] + 
    S2[SP[a1, a3], a5, SP[a2, a4], a6, n] + S2[SP[a1, a3], SP[a4, a5], a2, 
     a6, n] + S2[a1, a2, a3, a4, SP[a5, a6], n] - 
    S2[a1, a2, a3, a6, SP[a4, a5], n] - S2[a1, a2, a3, SP[a4, a5], a6, n] + 
    S2[a1, a2, a3, SP[a5, a6], a4, n] - S2[a1, a2, a6, a3, SP[a4, a5], n] - 
    S2[a1, a2, a6, SP[a3, a5], a4, n] - S2[a1, a2, SP[a3, a5], a4, a6, n] - 
    S2[a1, a2, SP[a3, a5], a6, a4, n] + S2[a1, a2, SP[a5, a6], a3, a4, n] + 
    S2[a1, a3, a2, a4, SP[a5, a6], n] - S2[a1, a3, a2, a6, SP[a4, a5], n] - 
    S2[a1, a3, a2, SP[a4, a5], a6, n] + S2[a1, a3, a2, SP[a5, a6], a4, n] + 
    S2[a1, a3, a4, a2, SP[a5, a6], n] + S2[a1, a3, a4, SP[a2, a5], a6, n] - 
    S2[a4, n]*S2[a1, a3, a5, a2, a6, n] - S2[a1, a3, a5, a2, SP[a4, a6], n] - 
    S2[a1, a3, a5, SP[a2, a4], a6, n] + S2[a1, a3, SP[a2, a5], a4, a6, n] + 
    S2[a1, a3, SP[a2, a5], a6, a4, n] - 2*S2[a1, a3, SP[a4, a5], a2, a6, n] + 
    S2[a3, n]*S2[a1, a4, a5, a2, a6, n] + S2[a1, a4, a5, a2, SP[a3, a6], n] + 
    S2[a1, a4, a5, SP[a2, a3], a6, n] + S2[a1, a4, SP[a3, a5], a2, a6, n] - 
    S2[a4, n]*S2[a1, a5, a2, a3, a6, n] - S2[a1, a5, a2, a3, SP[a4, a6], n] + 
    S2[a3, n]*S2[a1, a5, a2, a4, a6, n] + S2[a1, a5, a2, a4, SP[a3, a6], n] - 
    S2[a4, n]*S2[a1, a5, a2, a6, a3, n] + 
    S2[a3, n]*S2[a1, a5, a2, a6, a4, n] + S2[a1, a5, a2, SP[a3, a6], a4, n] - 
    S2[a1, a5, a2, SP[a4, a6], a3, n] - S2[a4, n]*S2[a1, a5, a3, a2, a6, n] - 
    S2[a1, a5, a3, a2, SP[a4, a6], n] - S2[a1, a5, a3, SP[a2, a4], a6, n] + 
    S2[a3, n]*S2[a1, a5, a4, a2, a6, n] + S2[a1, a5, a4, a2, SP[a3, a6], n] + 
    S2[a1, a5, a4, SP[a2, a3], a6, n] + S2[a1, a5, SP[a2, a3], a4, a6, n] + 
    S2[a1, a5, SP[a2, a3], a6, a4, n] - S2[a1, a5, SP[a2, a4], a3, a6, n] - 
    S2[a1, a5, SP[a2, a4], a6, a3, n] + S2[a1, SP[a2, a5], a3, a4, a6, n] + 
    S2[a1, SP[a2, a5], a3, a6, a4, n] + S2[a1, SP[a2, a5], a6, a3, a4, n] - 
    S2[a1, SP[a4, a5], a2, a3, a6, n] - S2[a1, SP[a4, a5], a2, a6, a3, n] - 
    S2[a1, SP[a4, a5], a3, a2, a6, n] + S2[a2, a1, a3, a4, SP[a5, a6], n] - 
    S2[a2, a1, a3, a6, SP[a4, a5], n] - S2[a2, a1, a3, SP[a4, a5], a6, n] + 
    S2[a2, a1, a3, SP[a5, a6], a4, n] - S2[a2, a1, a6, a3, SP[a4, a5], n] - 
    S2[a2, a1, a6, SP[a3, a5], a4, n] - S2[a2, a1, SP[a3, a5], a4, a6, n] - 
    S2[a2, a1, SP[a3, a5], a6, a4, n] + S2[a2, a1, SP[a5, a6], a3, a4, n] + 
    S2[a6, n]*S2[a2, a5, a1, a3, a4, n] - S2[a2, a6, a1, a3, SP[a4, a5], n] - 
    S2[a2, a6, a1, SP[a3, a5], a4, n] - S2[a2, a6, SP[a1, a5], a3, a4, n] - 
    S2[a2, SP[a1, a5], a3, a4, a6, n] - S2[a2, SP[a1, a5], a3, a6, a4, n] - 
    S2[a2, SP[a1, a5], a6, a3, a4, n] + S2[a2, SP[a5, a6], a1, a3, a4, n] - 
    S2[a3, a1, a5, a2, SP[a4, a6], n] - S2[a3, a1, a5, SP[a2, a4], a6, n] - 
    S2[a3, a1, SP[a4, a5], a2, a6, n] - S2[a3, SP[a1, a4], a5, a2, a6, n] + 
    S2[a3, n]*S2[a4, a1, a5, a2, a6, n] + S2[a4, a1, a5, a2, SP[a3, a6], n] + 
    S2[a4, a1, a5, SP[a2, a3], a6, n] + S2[a4, a1, SP[a3, a5], a2, a6, n] + 
    S2[a4, SP[a1, a3], a5, a2, a6, n] - S2[SP[a1, a4], a3, a5, a2, a6, n] - 
    S2[SP[a1, a4], a5, a2, a3, a6, n] - S2[SP[a1, a4], a5, a2, a6, a3, n] - 
    S2[SP[a1, a4], a5, a3, a2, a6, n] + S2[SP[a2, a6], a5, a1, a3, a4, n] + 
    S2[SP[a3, a4], a1, a5, a2, a6, n] - S2[a6, a2, a5, a1, a3, a4, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a4_, a3_, a1_, a5_, a6_, a2_, n_] :> 
  S2[a1, a3, a4, n]*S2[a2, a6, a5, n] + S2[SP[a1, a2], SP[a3, a6], 
     SP[a4, a5], n] - S2[a1, a2, SP[a3, a6], SP[a4, a5], n] - 
    S2[a2, a6, n]*S2[a1, a3, a4, a5, n] - S2[a2, a6, n]*
     S2[a1, a3, a5, a4, n] + S2[a1, a3, SP[a2, a4], SP[a5, a6], n] + 
    S2[a1, a3, SP[a2, a5], SP[a4, a6], n] - S2[a2, a6, n]*
     S2[a1, a5, a3, a4, n] - S2[a3, a4, n]*S2[a1, a5, a6, a2, n] + 
    S2[a1, a5, SP[a2, a3], SP[a4, a6], n] + S2[a1, a5, SP[a3, a6], 
     SP[a2, a4], n] + S2[a1, SP[a2, a3], a4, SP[a5, a6], n] + 
    S2[a1, SP[a2, a3], a5, SP[a4, a6], n] - S2[a1, SP[a2, a3], a6, 
     SP[a4, a5], n] + S2[a1, SP[a2, a3], SP[a5, a6], a4, n] + 
    S2[a1, SP[a2, a5], a3, SP[a4, a6], n] + S2[a1, SP[a2, a5], SP[a3, a6], 
     a4, n] + S2[a1, SP[a3, a5], a6, SP[a2, a4], n] + 
    S2[a1, SP[a3, a5], SP[a4, a6], a2, n] - S2[a2, a1, SP[a3, a6], 
     SP[a4, a5], n] - S2[a2, SP[a1, a6], a3, SP[a4, a5], n] - 
    S2[a2, SP[a1, a6], SP[a3, a5], a4, n] + S2[SP[a1, a2], a3, a4, 
     SP[a5, a6], n] + S2[SP[a1, a2], a3, a5, SP[a4, a6], n] - 
    S2[SP[a1, a2], a3, a6, SP[a4, a5], n] + S2[SP[a1, a2], a3, SP[a5, a6], 
     a4, n] + S2[SP[a1, a2], a5, a3, SP[a4, a6], n] + 
    S2[SP[a1, a2], a5, SP[a3, a6], a4, n] - S2[SP[a1, a2], a6, a3, 
     SP[a4, a5], n] - S2[SP[a1, a2], a6, SP[a3, a5], a4, n] + 
    S2[SP[a1, a2], SP[a5, a6], a3, a4, n] + S2[SP[a1, a3], a5, a6, 
     SP[a2, a4], n] + S2[SP[a1, a3], a5, SP[a4, a6], a2, n] + 
    S2[SP[a1, a3], SP[a4, a5], a6, a2, n] - S2[a1, a2, a3, a4, SP[a5, a6], 
     n] - S2[a1, a2, a3, a5, SP[a4, a6], n] + S2[a1, a2, a3, a6, SP[a4, a5], 
     n] - S2[a1, a2, a3, SP[a5, a6], a4, n] - S2[a1, a2, a5, a3, SP[a4, a6], 
     n] - S2[a1, a2, a5, SP[a3, a6], a4, n] + S2[a1, a2, a6, a3, SP[a4, a5], 
     n] + S2[a1, a2, a6, SP[a3, a5], a4, n] - S2[a1, a2, SP[a5, a6], a3, a4, 
     n] - S2[a1, a3, a2, a4, SP[a5, a6], n] - S2[a1, a3, a2, a5, SP[a4, a6], 
     n] + S2[a1, a3, a2, a6, SP[a4, a5], n] - S2[a1, a3, a2, SP[a5, a6], a4, 
     n] - S2[a1, a3, a4, a2, SP[a5, a6], n] + 
    S2[a2, n]*S2[a1, a3, a4, a5, a6, n] + S2[a1, a3, a4, a5, SP[a2, a6], n] - 
    S2[a1, a3, a5, a2, SP[a4, a6], n] + S2[a2, n]*S2[a1, a3, a5, a4, a6, n] + 
    S2[a1, a3, a5, a4, SP[a2, a6], n] - S2[a4, n]*S2[a1, a3, a5, a6, a2, n] + 
    S2[a2, n]*S2[a1, a3, a5, a6, a4, n] - S2[a1, a3, a5, a6, SP[a2, a4], n] + 
    S2[a1, a3, a5, SP[a2, a6], a4, n] - 2*S2[a1, a3, a5, SP[a4, a6], a2, n] - 
    2*S2[a1, a3, SP[a4, a5], a6, a2, n] + 
    S2[a3, n]*S2[a1, a4, a5, a6, a2, n] + S2[a1, a4, a5, a6, SP[a2, a3], n] + 
    S2[a1, a4, a5, SP[a3, a6], a2, n] + S2[a1, a4, SP[a3, a5], a6, a2, n] - 
    S2[a1, a5, a2, a3, SP[a4, a6], n] - S2[a1, a5, a2, SP[a3, a6], a4, n] - 
    S2[a1, a5, a3, a2, SP[a4, a6], n] + S2[a2, n]*S2[a1, a5, a3, a4, a6, n] + 
    S2[a1, a5, a3, a4, SP[a2, a6], n] - S2[a4, n]*S2[a1, a5, a3, a6, a2, n] + 
    S2[a2, n]*S2[a1, a5, a3, a6, a4, n] - S2[a1, a5, a3, a6, SP[a2, a4], n] + 
    S2[a1, a5, a3, SP[a2, a6], a4, n] - 2*S2[a1, a5, a3, SP[a4, a6], a2, n] + 
    S2[a3, n]*S2[a1, a5, a4, a6, a2, n] + S2[a1, a5, a4, a6, SP[a2, a3], n] + 
    S2[a1, a5, a4, SP[a3, a6], a2, n] - S2[a4, n]*S2[a1, a5, a6, a2, a3, n] + 
    S2[a3, n]*S2[a1, a5, a6, a2, a4, n] - 
    S2[a4, n]*S2[a1, a5, a6, a3, a2, n] + 
    S2[a2, n]*S2[a1, a5, a6, a3, a4, n] - S2[a1, a5, a6, a3, SP[a2, a4], n] + 
    S2[a3, n]*S2[a1, a5, a6, a4, a2, n] + S2[a1, a5, a6, a4, SP[a2, a3], n] + 
    S2[a1, a5, a6, SP[a2, a3], a4, n] - S2[a1, a5, a6, SP[a2, a4], a3, n] + 
    S2[a1, a5, SP[a2, a6], a3, a4, n] - S2[a1, a5, SP[a4, a6], a2, a3, n] - 
    S2[a1, a5, SP[a4, a6], a3, a2, n] - S2[a1, SP[a4, a5], a3, a6, a2, n] - 
    S2[a1, SP[a4, a5], a6, a2, a3, n] - S2[a1, SP[a4, a5], a6, a3, a2, n] - 
    S2[a2, a1, a3, a4, SP[a5, a6], n] - S2[a2, a1, a3, a5, SP[a4, a6], n] + 
    S2[a2, a1, a3, a6, SP[a4, a5], n] - S2[a2, a1, a3, SP[a5, a6], a4, n] - 
    S2[a2, a1, a5, a3, SP[a4, a6], n] - S2[a2, a1, a5, SP[a3, a6], a4, n] + 
    S2[a2, a1, a6, a3, SP[a4, a5], n] + S2[a2, a1, a6, SP[a3, a5], a4, n] - 
    S2[a2, a1, SP[a5, a6], a3, a4, n] + S2[a2, a6, a1, a3, SP[a4, a5], n] + 
    S2[a2, a6, a1, SP[a3, a5], a4, n] + S2[a2, a6, SP[a1, a5], a3, a4, n] - 
    S2[a3, a1, a5, a6, SP[a2, a4], n] - S2[a3, a1, a5, SP[a4, a6], a2, n] - 
    S2[a3, a1, SP[a4, a5], a6, a2, n] - S2[a3, SP[a1, a4], a5, a6, a2, n] + 
    S2[a3, n]*S2[a4, a1, a5, a6, a2, n] + S2[a4, a1, a5, a6, SP[a2, a3], n] + 
    S2[a4, a1, a5, SP[a3, a6], a2, n] + S2[a4, a1, SP[a3, a5], a6, a2, n] + 
    S2[a4, SP[a1, a3], a5, a6, a2, n] - S2[a2, n]*S2[a6, a5, a1, a3, a4, n] - 
    S2[a6, a5, a1, a3, SP[a2, a4], n] - S2[a6, a5, a1, SP[a2, a3], a4, n] - 
    S2[a6, a5, SP[a1, a2], a3, a4, n] - S2[a6, SP[a2, a5], a1, a3, a4, n] - 
    S2[SP[a1, a4], a3, a5, a6, a2, n] - S2[SP[a1, a4], a5, a3, a6, a2, n] - 
    S2[SP[a1, a4], a5, a6, a2, a3, n] - S2[SP[a1, a4], a5, a6, a3, a2, n] - 
    S2[SP[a2, a6], a5, a1, a3, a4, n] + S2[SP[a3, a4], a1, a5, a6, a2, n] + 
    S2[a6, a2, a5, a1, a3, a4, n] + S2[a6, a5, a1, a2, a3, a4, n] + 
    S2[a6, a5, a1, a3, a2, a4, n] + S2[a6, a5, a1, a3, a4, a2, n] + 
    S2[a6, a5, a2, a1, a3, a4, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a4_, a3_, a1_, a6_, a2_, a5_, n_] :> 
  -(S2[a1, a3, a4, n]*S2[a2, a5, a6, n]) - S2[a1, a3, a4, n]*
     S2[a2, a6, a5, n] - S2[SP[a1, a2], SP[a3, a5], SP[a4, a6], n] - 
    S2[SP[a1, a2], SP[a3, a6], SP[a4, a5], n] + S2[a1, a2, SP[a3, a5], 
     SP[a4, a6], n] + S2[a1, a2, SP[a3, a6], SP[a4, a5], n] - 
    S2[a3, a4, n]*S2[a1, a6, a2, a5, n] + S2[a1, a6, SP[a2, a3], SP[a4, a5], 
     n] + S2[a1, SP[a2, a3], a5, SP[a4, a6], n] + S2[a1, SP[a2, a3], a6, 
     SP[a4, a5], n] + S2[a1, SP[a2, a3], SP[a4, a5], a6, n] + 
    S2[a1, SP[a2, a3], SP[a4, a6], a5, n] + S2[a1, SP[a3, a6], a2, 
     SP[a4, a5], n] + S2[a1, SP[a3, a6], SP[a2, a4], a5, n] + 
    S2[a2, a1, SP[a3, a5], SP[a4, a6], n] + S2[a2, a1, SP[a3, a6], 
     SP[a4, a5], n] + S2[a2, SP[a1, a5], a3, SP[a4, a6], n] + 
    S2[a2, SP[a1, a5], SP[a3, a6], a4, n] + S2[a2, SP[a1, a6], a3, 
     SP[a4, a5], n] + S2[a2, SP[a1, a6], SP[a3, a5], a4, n] + 
    S2[SP[a1, a2], a3, a5, SP[a4, a6], n] + S2[SP[a1, a2], a3, a6, 
     SP[a4, a5], n] + S2[SP[a1, a2], a3, SP[a4, a5], a6, n] + 
    S2[SP[a1, a2], a3, SP[a4, a6], a5, n] + S2[SP[a1, a2], a5, a3, 
     SP[a4, a6], n] + S2[SP[a1, a2], a5, SP[a3, a6], a4, n] + 
    S2[SP[a1, a2], a6, a3, SP[a4, a5], n] + S2[SP[a1, a2], a6, SP[a3, a5], 
     a4, n] + S2[SP[a1, a2], SP[a3, a5], a4, a6, n] + 
    S2[SP[a1, a2], SP[a3, a5], a6, a4, n] + S2[SP[a1, a2], SP[a3, a6], a4, 
     a5, n] + S2[SP[a1, a2], SP[a3, a6], a5, a4, n] + 
    S2[SP[a1, a3], a6, a2, SP[a4, a5], n] + S2[SP[a1, a3], a6, SP[a2, a4], 
     a5, n] + S2[SP[a1, a3], SP[a4, a6], a2, a5, n] - 
    S2[a1, a2, a3, a5, SP[a4, a6], n] - S2[a1, a2, a3, a6, SP[a4, a5], n] - 
    S2[a1, a2, a3, SP[a4, a5], a6, n] - S2[a1, a2, a3, SP[a4, a6], a5, n] - 
    S2[a1, a2, a5, a3, SP[a4, a6], n] - S2[a1, a2, a5, SP[a3, a6], a4, n] - 
    S2[a1, a2, a6, a3, SP[a4, a5], n] - S2[a1, a2, a6, SP[a3, a5], a4, n] - 
    S2[a1, a2, SP[a3, a5], a4, a6, n] - S2[a1, a2, SP[a3, a5], a6, a4, n] - 
    S2[a1, a2, SP[a3, a6], a4, a5, n] - S2[a1, a2, SP[a3, a6], a5, a4, n] - 
    S2[a1, a3, a2, a5, SP[a4, a6], n] - S2[a1, a3, a2, a6, SP[a4, a5], n] - 
    S2[a1, a3, a2, SP[a4, a5], a6, n] - S2[a1, a3, a2, SP[a4, a6], a5, n] - 
    S2[a6, n]*S2[a1, a3, a4, a5, a2, n] + 
    S2[a2, n]*S2[a1, a3, a4, a5, a6, n] + 
    S2[a2, n]*S2[a1, a3, a4, a6, a5, n] + S2[a1, a3, a4, a6, SP[a2, a5], n] + 
    S2[a1, a3, a4, SP[a2, a5], a6, n] + S2[a1, a3, a4, SP[a2, a6], a5, n] - 
    S2[a1, a3, a4, SP[a5, a6], a2, n] - S2[a6, n]*S2[a1, a3, a5, a2, a4, n] - 
    S2[a1, a3, a5, a2, SP[a4, a6], n] - S2[a6, n]*S2[a1, a3, a5, a4, a2, n] + 
    S2[a2, n]*S2[a1, a3, a5, a4, a6, n] + 
    S2[a2, n]*S2[a1, a3, a5, a6, a4, n] + S2[a1, a3, a5, a6, SP[a2, a4], n] + 
    S2[a1, a3, a5, SP[a2, a4], a6, n] - S2[a1, a3, a5, SP[a4, a6], a2, n] - 
    S2[a4, n]*S2[a1, a3, a6, a2, a5, n] - 
    2*S2[a1, a3, a6, a2, SP[a4, a5], n] + 
    S2[a2, n]*S2[a1, a3, a6, a4, a5, n] + S2[a1, a3, a6, a4, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a3, a6, a5, a4, n] + S2[a1, a3, a6, a5, SP[a2, a4], n] - 
    S2[a1, a3, a6, SP[a2, a4], a5, n] + S2[a1, a3, a6, SP[a2, a5], a4, n] + 
    S2[a1, a3, SP[a2, a5], a4, a6, n] + S2[a1, a3, SP[a2, a5], a6, a4, n] + 
    S2[a1, a3, SP[a2, a6], a4, a5, n] + S2[a1, a3, SP[a2, a6], a5, a4, n] - 
    2*S2[a1, a3, SP[a4, a6], a2, a5, n] - S2[a1, a3, SP[a4, a6], a5, a2, n] - 
    S2[a1, a3, SP[a5, a6], a2, a4, n] - S2[a1, a3, SP[a5, a6], a4, a2, n] + 
    S2[a3, n]*S2[a1, a4, a6, a2, a5, n] + S2[a1, a4, a6, a2, SP[a3, a5], n] + 
    S2[a1, a4, a6, SP[a2, a3], a5, n] + S2[a1, a4, SP[a3, a6], a2, a5, n] - 
    S2[a6, n]*S2[a1, a5, a2, a3, a4, n] - S2[a1, a5, a2, a3, SP[a4, a6], n] - 
    S2[a1, a5, a2, SP[a3, a6], a4, n] - S2[a6, n]*S2[a1, a5, a3, a2, a4, n] - 
    S2[a1, a5, a3, a2, SP[a4, a6], n] - S2[a6, n]*S2[a1, a5, a3, a4, a2, n] + 
    S2[a2, n]*S2[a1, a5, a3, a4, a6, n] + 
    S2[a2, n]*S2[a1, a5, a3, a6, a4, n] + S2[a1, a5, a3, a6, SP[a2, a4], n] + 
    S2[a1, a5, a3, SP[a2, a4], a6, n] - S2[a1, a5, a3, SP[a4, a6], a2, n] + 
    S2[a2, n]*S2[a1, a5, a6, a3, a4, n] + S2[a1, a5, a6, a3, SP[a2, a4], n] + 
    S2[a1, a5, a6, SP[a2, a3], a4, n] + S2[a1, a5, SP[a2, a3], a4, a6, n] + 
    S2[a1, a5, SP[a2, a3], a6, a4, n] - S2[a1, a5, SP[a3, a6], a2, a4, n] - 
    S2[a1, a5, SP[a3, a6], a4, a2, n] - S2[a4, n]*S2[a1, a6, a2, a3, a5, n] - 
    2*S2[a1, a6, a2, a3, SP[a4, a5], n] + 
    S2[a3, n]*S2[a1, a6, a2, a4, a5, n] + S2[a1, a6, a2, a4, SP[a3, a5], n] - 
    S2[a4, n]*S2[a1, a6, a2, a5, a3, n] + 
    S2[a3, n]*S2[a1, a6, a2, a5, a4, n] - S2[a1, a6, a2, SP[a4, a5], a3, n] - 
    S2[a4, n]*S2[a1, a6, a3, a2, a5, n] - 
    2*S2[a1, a6, a3, a2, SP[a4, a5], n] + 
    S2[a2, n]*S2[a1, a6, a3, a4, a5, n] + S2[a1, a6, a3, a4, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a6, a3, a5, a4, n] + S2[a1, a6, a3, a5, SP[a2, a4], n] - 
    S2[a1, a6, a3, SP[a2, a4], a5, n] + S2[a1, a6, a3, SP[a2, a5], a4, n] + 
    S2[a3, n]*S2[a1, a6, a4, a2, a5, n] + S2[a1, a6, a4, a2, SP[a3, a5], n] + 
    S2[a1, a6, a4, SP[a2, a3], a5, n] + S2[a2, n]*S2[a1, a6, a5, a3, a4, n] + 
    S2[a1, a6, a5, a3, SP[a2, a4], n] + S2[a1, a6, a5, SP[a2, a3], a4, n] + 
    S2[a1, a6, SP[a2, a3], a4, a5, n] + S2[a1, a6, SP[a2, a3], a5, a4, n] - 
    S2[a1, a6, SP[a2, a4], a3, a5, n] - S2[a1, a6, SP[a2, a4], a5, a3, n] + 
    S2[a1, a6, SP[a2, a5], a3, a4, n] + S2[a1, SP[a2, a5], a3, a4, a6, n] + 
    S2[a1, SP[a2, a5], a3, a6, a4, n] + S2[a1, SP[a2, a5], a6, a3, a4, n] + 
    S2[a1, SP[a2, a6], a3, a4, a5, n] + S2[a1, SP[a2, a6], a3, a5, a4, n] + 
    S2[a1, SP[a2, a6], a5, a3, a4, n] - S2[a1, SP[a3, a6], a4, a5, a2, n] - 
    S2[a1, SP[a3, a6], a5, a2, a4, n] - S2[a1, SP[a3, a6], a5, a4, a2, n] - 
    S2[a1, SP[a4, a6], a2, a3, a5, n] - S2[a1, SP[a4, a6], a2, a5, a3, n] - 
    S2[a1, SP[a4, a6], a3, a2, a5, n] - S2[a1, SP[a5, a6], a2, a3, a4, n] - 
    S2[a1, SP[a5, a6], a3, a2, a4, n] - S2[a1, SP[a5, a6], a3, a4, a2, n] - 
    S2[a2, a1, a3, a5, SP[a4, a6], n] - S2[a2, a1, a3, a6, SP[a4, a5], n] - 
    S2[a2, a1, a3, SP[a4, a5], a6, n] - S2[a2, a1, a3, SP[a4, a6], a5, n] - 
    S2[a2, a1, a5, a3, SP[a4, a6], n] - S2[a2, a1, a5, SP[a3, a6], a4, n] - 
    S2[a2, a1, a6, a3, SP[a4, a5], n] - S2[a2, a1, a6, SP[a3, a5], a4, n] - 
    S2[a2, a1, SP[a3, a5], a4, a6, n] - S2[a2, a1, SP[a3, a5], a6, a4, n] - 
    S2[a2, a1, SP[a3, a6], a4, a5, n] - S2[a2, a1, SP[a3, a6], a5, a4, n] + 
    S2[a6, n]*S2[a2, a5, a1, a3, a4, n] - S2[a2, a6, a1, a3, SP[a4, a5], n] - 
    S2[a2, a6, a1, SP[a3, a5], a4, n] - S2[a2, a6, SP[a1, a5], a3, a4, n] - 
    S2[a2, SP[a1, a5], a3, a4, a6, n] - S2[a2, SP[a1, a5], a3, a6, a4, n] - 
    S2[a2, SP[a1, a5], a6, a3, a4, n] - S2[a2, SP[a1, a6], a3, a4, a5, n] - 
    S2[a2, SP[a1, a6], a3, a5, a4, n] - S2[a2, SP[a1, a6], a5, a3, a4, n] + 
    S2[a2, SP[a5, a6], a1, a3, a4, n] - S2[a3, a1, a6, a2, SP[a4, a5], n] - 
    S2[a3, a1, a6, SP[a2, a4], a5, n] - S2[a3, a1, SP[a4, a6], a2, a5, n] - 
    S2[a3, SP[a1, a4], a6, a2, a5, n] + S2[a3, n]*S2[a4, a1, a6, a2, a5, n] + 
    S2[a4, a1, a6, a2, SP[a3, a5], n] + S2[a4, a1, a6, SP[a2, a3], a5, n] + 
    S2[a4, a1, SP[a3, a6], a2, a5, n] + S2[a4, SP[a1, a3], a6, a2, a5, n] + 
    S2[a2, n]*S2[a6, a1, a3, a4, a5, n] + S2[a6, a1, a3, a4, SP[a2, a5], n] + 
    S2[a2, n]*S2[a6, a1, a3, a5, a4, n] + S2[a6, a1, a3, a5, SP[a2, a4], n] + 
    S2[a6, a1, a3, SP[a2, a4], a5, n] + S2[a6, a1, a3, SP[a2, a5], a4, n] + 
    S2[a2, n]*S2[a6, a1, a5, a3, a4, n] + S2[a6, a1, a5, a3, SP[a2, a4], n] + 
    S2[a6, a1, a5, SP[a2, a3], a4, n] + S2[a6, a1, SP[a2, a3], a4, a5, n] + 
    S2[a6, a1, SP[a2, a3], a5, a4, n] + S2[a6, a1, SP[a2, a5], a3, a4, n] + 
    S2[a6, SP[a1, a2], a3, a4, a5, n] + S2[a6, SP[a1, a2], a3, a5, a4, n] + 
    S2[a6, SP[a1, a2], a5, a3, a4, n] - S2[SP[a1, a4], a3, a6, a2, a5, n] - 
    S2[SP[a1, a4], a6, a2, a3, a5, n] - S2[SP[a1, a4], a6, a2, a5, a3, n] - 
    S2[SP[a1, a4], a6, a3, a2, a5, n] - S2[SP[a1, a6], a3, a4, a5, a2, n] - 
    S2[SP[a1, a6], a3, a5, a2, a4, n] - S2[SP[a1, a6], a3, a5, a4, a2, n] - 
    S2[SP[a1, a6], a5, a2, a3, a4, n] - S2[SP[a1, a6], a5, a3, a2, a4, n] - 
    S2[SP[a1, a6], a5, a3, a4, a2, n] + S2[SP[a2, a6], a1, a3, a4, a5, n] + 
    S2[SP[a2, a6], a1, a3, a5, a4, n] + S2[SP[a2, a6], a1, a5, a3, a4, n] + 
    S2[SP[a2, a6], a5, a1, a3, a4, n] + S2[SP[a3, a4], a1, a6, a2, a5, n] - 
    S2[a6, a1, a2, a3, a4, a5, n] - S2[a6, a1, a2, a3, a5, a4, n] - 
    S2[a6, a1, a2, a5, a3, a4, n] - S2[a6, a1, a3, a2, a4, a5, n] - 
    S2[a6, a1, a3, a2, a5, a4, n] - S2[a6, a1, a3, a4, a2, a5, n] - 
    S2[a6, a2, a1, a3, a4, a5, n] - S2[a6, a2, a1, a3, a5, a4, n] - 
    S2[a6, a2, a1, a5, a3, a4, n] - S2[a6, a2, a5, a1, a3, a4, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a4_, a3_, a1_, a6_, a5_, a2_, n_] :> 
  S2[a1, a3, a4, n]*S2[a2, a5, a6, n] + S2[SP[a1, a2], SP[a3, a5], 
     SP[a4, a6], n] - S2[a1, a2, SP[a3, a5], SP[a4, a6], n] - 
    S2[a3, a4, n]*S2[a1, a6, a5, a2, n] + S2[a1, a6, SP[a3, a5], SP[a2, a4], 
     n] - S2[a1, SP[a2, a3], a5, SP[a4, a6], n] - 
    S2[a1, SP[a2, a3], SP[a4, a5], a6, n] + S2[a1, SP[a3, a6], a5, 
     SP[a2, a4], n] + S2[a1, SP[a3, a6], SP[a4, a5], a2, n] - 
    S2[a2, a1, SP[a3, a5], SP[a4, a6], n] - S2[a2, SP[a1, a5], a3, 
     SP[a4, a6], n] - S2[a2, SP[a1, a5], SP[a3, a6], a4, n] - 
    S2[SP[a1, a2], a3, a5, SP[a4, a6], n] - S2[SP[a1, a2], a3, SP[a4, a5], 
     a6, n] - S2[SP[a1, a2], a5, a3, SP[a4, a6], n] - 
    S2[SP[a1, a2], a5, SP[a3, a6], a4, n] - S2[SP[a1, a2], SP[a3, a5], a4, 
     a6, n] - S2[SP[a1, a2], SP[a3, a5], a6, a4, n] + 
    S2[SP[a1, a3], a6, a5, SP[a2, a4], n] + S2[SP[a1, a3], a6, SP[a4, a5], 
     a2, n] + S2[SP[a1, a3], SP[a4, a6], a5, a2, n] + 
    S2[a1, a2, a3, a5, SP[a4, a6], n] + S2[a1, a2, a3, SP[a4, a5], a6, n] + 
    S2[a1, a2, a5, a3, SP[a4, a6], n] + S2[a1, a2, a5, SP[a3, a6], a4, n] + 
    S2[a1, a2, SP[a3, a5], a4, a6, n] + S2[a1, a2, SP[a3, a5], a6, a4, n] + 
    S2[a1, a3, a2, a5, SP[a4, a6], n] + S2[a1, a3, a2, SP[a4, a5], a6, n] + 
    S2[a6, n]*S2[a1, a3, a4, a5, a2, n] - 
    S2[a2, n]*S2[a1, a3, a4, a5, a6, n] - S2[a1, a3, a4, SP[a2, a5], a6, n] + 
    S2[a1, a3, a4, SP[a5, a6], a2, n] + S2[a6, n]*S2[a1, a3, a5, a2, a4, n] + 
    S2[a1, a3, a5, a2, SP[a4, a6], n] + S2[a6, n]*S2[a1, a3, a5, a4, a2, n] - 
    S2[a2, n]*S2[a1, a3, a5, a4, a6, n] - 
    S2[a2, n]*S2[a1, a3, a5, a6, a4, n] - S2[a1, a3, a5, a6, SP[a2, a4], n] - 
    S2[a1, a3, a5, SP[a2, a4], a6, n] + S2[a1, a3, a5, SP[a4, a6], a2, n] - 
    S2[a4, n]*S2[a1, a3, a6, a5, a2, n] - 
    2*S2[a1, a3, a6, a5, SP[a2, a4], n] - 
    2*S2[a1, a3, a6, SP[a4, a5], a2, n] - S2[a1, a3, SP[a2, a5], a4, a6, n] - 
    S2[a1, a3, SP[a2, a5], a6, a4, n] - S2[a1, a3, SP[a4, a6], a5, a2, n] + 
    S2[a1, a3, SP[a5, a6], a2, a4, n] + S2[a1, a3, SP[a5, a6], a4, a2, n] + 
    S2[a3, n]*S2[a1, a4, a6, a5, a2, n] + S2[a1, a4, a6, a5, SP[a2, a3], n] + 
    S2[a1, a4, a6, SP[a3, a5], a2, n] + S2[a1, a4, SP[a3, a6], a5, a2, n] + 
    S2[a6, n]*S2[a1, a5, a2, a3, a4, n] + S2[a1, a5, a2, a3, SP[a4, a6], n] + 
    S2[a1, a5, a2, SP[a3, a6], a4, n] + S2[a6, n]*S2[a1, a5, a3, a2, a4, n] + 
    S2[a1, a5, a3, a2, SP[a4, a6], n] + S2[a6, n]*S2[a1, a5, a3, a4, a2, n] - 
    S2[a2, n]*S2[a1, a5, a3, a4, a6, n] - 
    S2[a2, n]*S2[a1, a5, a3, a6, a4, n] - S2[a1, a5, a3, a6, SP[a2, a4], n] - 
    S2[a1, a5, a3, SP[a2, a4], a6, n] + S2[a1, a5, a3, SP[a4, a6], a2, n] - 
    S2[a2, n]*S2[a1, a5, a6, a3, a4, n] - S2[a1, a5, a6, a3, SP[a2, a4], n] - 
    S2[a1, a5, a6, SP[a2, a3], a4, n] - S2[a1, a5, SP[a2, a3], a4, a6, n] - 
    S2[a1, a5, SP[a2, a3], a6, a4, n] + S2[a1, a5, SP[a3, a6], a2, a4, n] + 
    S2[a1, a5, SP[a3, a6], a4, a2, n] - S2[a4, n]*S2[a1, a6, a3, a5, a2, n] - 
    2*S2[a1, a6, a3, a5, SP[a2, a4], n] - 
    2*S2[a1, a6, a3, SP[a4, a5], a2, n] + 
    S2[a3, n]*S2[a1, a6, a4, a5, a2, n] + S2[a1, a6, a4, a5, SP[a2, a3], n] + 
    S2[a1, a6, a4, SP[a3, a5], a2, n] - S2[a4, n]*S2[a1, a6, a5, a2, a3, n] + 
    S2[a3, n]*S2[a1, a6, a5, a2, a4, n] - 
    S2[a4, n]*S2[a1, a6, a5, a3, a2, n] - 
    2*S2[a1, a6, a5, a3, SP[a2, a4], n] + 
    S2[a3, n]*S2[a1, a6, a5, a4, a2, n] + S2[a1, a6, a5, a4, SP[a2, a3], n] - 
    S2[a1, a6, a5, SP[a2, a4], a3, n] - S2[a1, a6, SP[a4, a5], a2, a3, n] - 
    S2[a1, a6, SP[a4, a5], a3, a2, n] - S2[a1, SP[a2, a5], a3, a4, a6, n] - 
    S2[a1, SP[a2, a5], a3, a6, a4, n] - S2[a1, SP[a2, a5], a6, a3, a4, n] + 
    S2[a1, SP[a3, a6], a4, a5, a2, n] + S2[a1, SP[a3, a6], a5, a2, a4, n] + 
    S2[a1, SP[a3, a6], a5, a4, a2, n] - S2[a1, SP[a4, a6], a3, a5, a2, n] - 
    S2[a1, SP[a4, a6], a5, a2, a3, n] - S2[a1, SP[a4, a6], a5, a3, a2, n] + 
    S2[a1, SP[a5, a6], a2, a3, a4, n] + S2[a1, SP[a5, a6], a3, a2, a4, n] + 
    S2[a1, SP[a5, a6], a3, a4, a2, n] + S2[a2, a1, a3, a5, SP[a4, a6], n] + 
    S2[a2, a1, a3, SP[a4, a5], a6, n] + S2[a2, a1, a5, a3, SP[a4, a6], n] + 
    S2[a2, a1, a5, SP[a3, a6], a4, n] + S2[a2, a1, SP[a3, a5], a4, a6, n] + 
    S2[a2, a1, SP[a3, a5], a6, a4, n] - S2[a6, n]*S2[a2, a5, a1, a3, a4, n] + 
    S2[a2, SP[a1, a5], a3, a4, a6, n] + S2[a2, SP[a1, a5], a3, a6, a4, n] + 
    S2[a2, SP[a1, a5], a6, a3, a4, n] - S2[a2, SP[a5, a6], a1, a3, a4, n] - 
    S2[a3, a1, a6, a5, SP[a2, a4], n] - S2[a3, a1, a6, SP[a4, a5], a2, n] - 
    S2[a3, a1, SP[a4, a6], a5, a2, n] - S2[a3, SP[a1, a4], a6, a5, a2, n] + 
    S2[a3, n]*S2[a4, a1, a6, a5, a2, n] + S2[a4, a1, a6, a5, SP[a2, a3], n] + 
    S2[a4, a1, a6, SP[a3, a5], a2, n] + S2[a4, a1, SP[a3, a6], a5, a2, n] + 
    S2[a4, SP[a1, a3], a6, a5, a2, n] + S2[a2, n]*S2[a6, a5, a1, a3, a4, n] + 
    S2[a6, a5, a1, a3, SP[a2, a4], n] + S2[a6, a5, a1, SP[a2, a3], a4, n] + 
    S2[a6, a5, SP[a1, a2], a3, a4, n] + S2[a6, SP[a2, a5], a1, a3, a4, n] - 
    S2[SP[a1, a4], a3, a6, a5, a2, n] - S2[SP[a1, a4], a6, a3, a5, a2, n] - 
    S2[SP[a1, a4], a6, a5, a2, a3, n] - S2[SP[a1, a4], a6, a5, a3, a2, n] + 
    S2[SP[a1, a6], a3, a4, a5, a2, n] + S2[SP[a1, a6], a3, a5, a2, a4, n] + 
    S2[SP[a1, a6], a3, a5, a4, a2, n] + S2[SP[a1, a6], a5, a2, a3, a4, n] + 
    S2[SP[a1, a6], a5, a3, a2, a4, n] + S2[SP[a1, a6], a5, a3, a4, a2, n] + 
    S2[SP[a3, a4], a1, a6, a5, a2, n] - S2[a6, a1, a3, a4, a5, a2, n] - 
    S2[a6, a1, a3, a5, a2, a4, n] - S2[a6, a1, a3, a5, a4, a2, n] - 
    S2[a6, a1, a5, a2, a3, a4, n] - S2[a6, a1, a5, a3, a2, a4, n] - 
    S2[a6, a1, a5, a3, a4, a2, n] - S2[a6, a5, a1, a2, a3, a4, n] - 
    S2[a6, a5, a1, a3, a2, a4, n] - S2[a6, a5, a1, a3, a4, a2, n] - 
    S2[a6, a5, a2, a1, a3, a4, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a4_, a3_, a2_, a1_, a5_, a6_, n_] :> 
  S2[a1, a5, a6, n]*S2[a2, a3, a4, n] + S2[SP[a1, a2], SP[a3, a5], 
     SP[a4, a6], n] - S2[a5, a6, n]*S2[a1, a2, a3, a4, n] + 
    S2[a3, a4, n]*S2[a1, a2, a5, a6, n] - S2[a1, a2, SP[a3, a5], SP[a4, a6], 
     n] + S2[a3, a4, n]*S2[a1, a5, a2, a6, n] + 
    S2[a3, a4, n]*S2[a1, a5, a6, a2, n] - S2[a1, a5, SP[a2, a3], SP[a4, a6], 
     n] - S2[a1, a5, SP[a3, a6], SP[a2, a4], n] - S2[a1, SP[a2, a3], a5, 
     SP[a4, a6], n] - S2[a1, SP[a2, a3], SP[a4, a5], a6, n] - 
    S2[a1, SP[a3, a5], a2, SP[a4, a6], n] - S2[a1, SP[a3, a5], a6, 
     SP[a2, a4], n] - S2[a1, SP[a3, a5], SP[a2, a4], a6, n] - 
    S2[a1, SP[a3, a5], SP[a4, a6], a2, n] - S2[a2, a1, SP[a3, a5], 
     SP[a4, a6], n] - S2[a2, SP[a1, a3], a5, SP[a4, a6], n] - 
    S2[a2, SP[a1, a3], SP[a4, a5], a6, n] - S2[SP[a1, a2], a3, a5, 
     SP[a4, a6], n] - S2[SP[a1, a2], a3, SP[a4, a5], a6, n] - 
    S2[SP[a1, a2], a5, a3, SP[a4, a6], n] - S2[SP[a1, a2], a5, SP[a3, a6], 
     a4, n] - S2[SP[a1, a2], SP[a3, a5], a4, a6, n] - 
    S2[SP[a1, a2], SP[a3, a5], a6, a4, n] - S2[SP[a1, a3], a2, a5, 
     SP[a4, a6], n] - S2[SP[a1, a3], a2, SP[a4, a5], a6, n] - 
    S2[SP[a1, a3], a5, a2, SP[a4, a6], n] - S2[SP[a1, a3], a5, a6, 
     SP[a2, a4], n] - S2[SP[a1, a3], a5, SP[a2, a4], a6, n] - 
    S2[SP[a1, a3], a5, SP[a4, a6], a2, n] - S2[SP[a1, a3], SP[a2, a4], a5, 
     a6, n] - S2[SP[a1, a3], SP[a4, a5], a2, a6, n] - 
    S2[SP[a1, a3], SP[a4, a5], a6, a2, n] + S2[SP[a1, a5], a2, a3, 
     SP[a4, a6], n] + S2[SP[a1, a5], a2, SP[a3, a6], a4, n] + 
    S2[SP[a1, a5], SP[a2, a6], a3, a4, n] - 
    S2[a6, n]*S2[a1, a2, a3, a4, a5, n] + 
    S2[a5, n]*S2[a1, a2, a3, a4, a6, n] - 
    S2[a6, n]*S2[a1, a2, a3, a5, a4, n] + 
    S2[a4, n]*S2[a1, a2, a3, a5, a6, n] + S2[a1, a2, a3, a5, SP[a4, a6], n] + 
    S2[a5, n]*S2[a1, a2, a3, a6, a4, n] + S2[a1, a2, a3, a6, SP[a4, a5], n] + 
    3*S2[a1, a2, a3, SP[a4, a5], a6, n] - S2[a1, a2, a3, SP[a4, a6], a5, n] - 
    S2[a3, n]*S2[a1, a2, a4, a5, a6, n] - S2[a1, a2, a4, a5, SP[a3, a6], n] - 
    S2[a1, a2, a4, SP[a3, a5], a6, n] - S2[a6, n]*S2[a1, a2, a5, a3, a4, n] + 
    S2[a4, n]*S2[a1, a2, a5, a3, a6, n] + S2[a1, a2, a5, a3, SP[a4, a6], n] - 
    S2[a3, n]*S2[a1, a2, a5, a4, a6, n] - S2[a1, a2, a5, a4, SP[a3, a6], n] + 
    S2[a4, n]*S2[a1, a2, a5, a6, a3, n] - 
    S2[a3, n]*S2[a1, a2, a5, a6, a4, n] - S2[a1, a2, a5, SP[a3, a6], a4, n] + 
    S2[a1, a2, a5, SP[a4, a6], a3, n] + S2[a5, n]*S2[a1, a2, a6, a3, a4, n] + 
    S2[a1, a2, a6, a3, SP[a4, a5], n] + S2[a1, a2, a6, SP[a3, a5], a4, n] + 
    S2[a1, a2, SP[a3, a5], a4, a6, n] + S2[a1, a2, SP[a3, a5], a6, a4, n] - 
    S2[a1, a2, SP[a3, a6], a4, a5, n] - S2[a1, a2, SP[a3, a6], a5, a4, n] + 
    S2[a1, a2, SP[a4, a5], a3, a6, n] + S2[a1, a2, SP[a4, a5], a6, a3, n] + 
    S2[a4, n]*S2[a1, a3, a2, a5, a6, n] + 
    2*S2[a1, a3, a2, a5, SP[a4, a6], n] + 
    2*S2[a1, a3, a2, SP[a4, a5], a6, n] - 
    S2[a2, n]*S2[a1, a3, a4, a5, a6, n] - S2[a1, a3, a4, a5, SP[a2, a6], n] - 
    S2[a1, a3, a4, SP[a2, a5], a6, n] + S2[a4, n]*S2[a1, a3, a5, a2, a6, n] + 
    2*S2[a1, a3, a5, a2, SP[a4, a6], n] - 
    S2[a2, n]*S2[a1, a3, a5, a4, a6, n] - S2[a1, a3, a5, a4, SP[a2, a6], n] + 
    S2[a4, n]*S2[a1, a3, a5, a6, a2, n] - 
    S2[a2, n]*S2[a1, a3, a5, a6, a4, n] + S2[a1, a3, a5, a6, SP[a2, a4], n] + 
    S2[a1, a3, a5, SP[a2, a4], a6, n] - S2[a1, a3, a5, SP[a2, a6], a4, n] + 
    2*S2[a1, a3, a5, SP[a4, a6], a2, n] + S2[a1, a3, SP[a2, a4], a5, a6, n] - 
    S2[a1, a3, SP[a2, a5], a4, a6, n] - S2[a1, a3, SP[a2, a5], a6, a4, n] + 
    2*S2[a1, a3, SP[a4, a5], a2, a6, n] + 
    2*S2[a1, a3, SP[a4, a5], a6, a2, n] - 
    S2[a3, n]*S2[a1, a4, a2, a5, a6, n] - S2[a1, a4, a2, a5, SP[a3, a6], n] - 
    S2[a1, a4, a2, SP[a3, a5], a6, n] - S2[a3, n]*S2[a1, a4, a5, a2, a6, n] - 
    S2[a1, a4, a5, a2, SP[a3, a6], n] - S2[a3, n]*S2[a1, a4, a5, a6, a2, n] - 
    S2[a1, a4, a5, a6, SP[a2, a3], n] - S2[a1, a4, a5, SP[a2, a3], a6, n] - 
    S2[a1, a4, a5, SP[a3, a6], a2, n] - S2[a1, a4, SP[a2, a3], a5, a6, n] - 
    S2[a1, a4, SP[a3, a5], a2, a6, n] - S2[a1, a4, SP[a3, a5], a6, a2, n] - 
    S2[a6, n]*S2[a1, a5, a2, a3, a4, n] + 
    S2[a4, n]*S2[a1, a5, a2, a3, a6, n] + S2[a1, a5, a2, a3, SP[a4, a6], n] - 
    S2[a3, n]*S2[a1, a5, a2, a4, a6, n] - S2[a1, a5, a2, a4, SP[a3, a6], n] + 
    S2[a4, n]*S2[a1, a5, a2, a6, a3, n] - 
    S2[a3, n]*S2[a1, a5, a2, a6, a4, n] - S2[a1, a5, a2, SP[a3, a6], a4, n] + 
    S2[a1, a5, a2, SP[a4, a6], a3, n] + S2[a4, n]*S2[a1, a5, a3, a2, a6, n] + 
    2*S2[a1, a5, a3, a2, SP[a4, a6], n] - 
    S2[a2, n]*S2[a1, a5, a3, a4, a6, n] - S2[a1, a5, a3, a4, SP[a2, a6], n] + 
    S2[a4, n]*S2[a1, a5, a3, a6, a2, n] - 
    S2[a2, n]*S2[a1, a5, a3, a6, a4, n] + S2[a1, a5, a3, a6, SP[a2, a4], n] + 
    S2[a1, a5, a3, SP[a2, a4], a6, n] - S2[a1, a5, a3, SP[a2, a6], a4, n] + 
    2*S2[a1, a5, a3, SP[a4, a6], a2, n] - 
    S2[a3, n]*S2[a1, a5, a4, a2, a6, n] - S2[a1, a5, a4, a2, SP[a3, a6], n] - 
    S2[a3, n]*S2[a1, a5, a4, a6, a2, n] - S2[a1, a5, a4, a6, SP[a2, a3], n] - 
    S2[a1, a5, a4, SP[a2, a3], a6, n] - S2[a1, a5, a4, SP[a3, a6], a2, n] + 
    S2[a4, n]*S2[a1, a5, a6, a2, a3, n] - 
    S2[a3, n]*S2[a1, a5, a6, a2, a4, n] + 
    S2[a4, n]*S2[a1, a5, a6, a3, a2, n] - 
    S2[a2, n]*S2[a1, a5, a6, a3, a4, n] + S2[a1, a5, a6, a3, SP[a2, a4], n] - 
    S2[a3, n]*S2[a1, a5, a6, a4, a2, n] - S2[a1, a5, a6, a4, SP[a2, a3], n] - 
    S2[a1, a5, a6, SP[a2, a3], a4, n] + S2[a1, a5, a6, SP[a2, a4], a3, n] - 
    S2[a1, a5, SP[a2, a3], a4, a6, n] - S2[a1, a5, SP[a2, a3], a6, a4, n] + 
    S2[a1, a5, SP[a2, a4], a3, a6, n] + S2[a1, a5, SP[a2, a4], a6, a3, n] - 
    2*S2[a1, a5, SP[a2, a6], a3, a4, n] + S2[a1, a5, SP[a4, a6], a2, a3, n] + 
    S2[a1, a5, SP[a4, a6], a3, a2, n] + S2[a5, n]*S2[a1, a6, a2, a3, a4, n] + 
    S2[a1, a6, a2, a3, SP[a4, a5], n] + S2[a1, a6, a2, SP[a3, a5], a4, n] + 
    S2[a1, a6, SP[a2, a5], a3, a4, n] - S2[a1, SP[a2, a3], a4, a5, a6, n] - 
    S2[a1, SP[a2, a3], a5, a4, a6, n] - S2[a1, SP[a2, a3], a5, a6, a4, n] + 
    S2[a1, SP[a2, a4], a3, a5, a6, n] + S2[a1, SP[a2, a4], a5, a3, a6, n] + 
    S2[a1, SP[a2, a4], a5, a6, a3, n] - S2[a1, SP[a2, a6], a3, a4, a5, n] - 
    S2[a1, SP[a2, a6], a3, a5, a4, n] - S2[a1, SP[a2, a6], a5, a3, a4, n] + 
    S2[a1, SP[a4, a5], a2, a3, a6, n] + S2[a1, SP[a4, a5], a2, a6, a3, n] + 
    S2[a1, SP[a4, a5], a3, a2, a6, n] + S2[a1, SP[a4, a5], a3, a6, a2, n] + 
    S2[a1, SP[a4, a5], a6, a2, a3, n] + S2[a1, SP[a4, a5], a6, a3, a2, n] + 
    S2[a2, a1, a3, a5, SP[a4, a6], n] + S2[a2, a1, a3, SP[a4, a5], a6, n] + 
    S2[a2, a1, a5, a3, SP[a4, a6], n] + S2[a2, a1, a5, SP[a3, a6], a4, n] + 
    S2[a2, a1, SP[a3, a5], a4, a6, n] + S2[a2, a1, SP[a3, a5], a6, a4, n] - 
    S2[a4, n]*S2[a2, a3, a1, a5, a6, n] + S2[a2, SP[a1, a3], a4, a5, a6, n] + 
    S2[a2, SP[a1, a3], a5, a4, a6, n] + S2[a2, SP[a1, a3], a5, a6, a4, n] - 
    S2[a2, SP[a3, a4], a1, a5, a6, n] + S2[a3, a1, a2, a5, SP[a4, a6], n] + 
    S2[a3, a1, a2, SP[a4, a5], a6, n] + S2[a3, a1, a5, a2, SP[a4, a6], n] + 
    S2[a3, a1, a5, a6, SP[a2, a4], n] + S2[a3, a1, a5, SP[a2, a4], a6, n] + 
    S2[a3, a1, a5, SP[a4, a6], a2, n] + S2[a3, a1, SP[a2, a4], a5, a6, n] + 
    S2[a3, a1, SP[a4, a5], a2, a6, n] + S2[a3, a1, SP[a4, a5], a6, a2, n] + 
    S2[a3, SP[a1, a4], a2, a5, a6, n] + S2[a3, SP[a1, a4], a5, a2, a6, n] + 
    S2[a3, SP[a1, a4], a5, a6, a2, n] - S2[a3, n]*S2[a4, a1, a2, a5, a6, n] - 
    S2[a4, a1, a2, a5, SP[a3, a6], n] - S2[a4, a1, a2, SP[a3, a5], a6, n] - 
    S2[a3, n]*S2[a4, a1, a5, a2, a6, n] - S2[a4, a1, a5, a2, SP[a3, a6], n] - 
    S2[a3, n]*S2[a4, a1, a5, a6, a2, n] - S2[a4, a1, a5, a6, SP[a2, a3], n] - 
    S2[a4, a1, a5, SP[a2, a3], a6, n] - S2[a4, a1, a5, SP[a3, a6], a2, n] - 
    S2[a4, a1, SP[a2, a3], a5, a6, n] - S2[a4, a1, SP[a3, a5], a2, a6, n] - 
    S2[a4, a1, SP[a3, a5], a6, a2, n] + S2[a2, n]*S2[a4, a3, a1, a5, a6, n] + 
    S2[a4, a3, a1, a5, SP[a2, a6], n] + S2[a4, a3, a1, SP[a2, a5], a6, n] + 
    S2[a4, a3, SP[a1, a2], a5, a6, n] - S2[a4, SP[a1, a3], a2, a5, a6, n] - 
    S2[a4, SP[a1, a3], a5, a2, a6, n] - S2[a4, SP[a1, a3], a5, a6, a2, n] + 
    S2[a4, SP[a2, a3], a1, a5, a6, n] - S2[a5, a1, a2, a3, SP[a4, a6], n] - 
    S2[a5, a1, a2, SP[a3, a6], a4, n] - S2[a5, a1, SP[a2, a6], a3, a4, n] - 
    S2[a5, SP[a1, a6], a2, a3, a4, n] + S2[a5, n]*S2[a6, a1, a2, a3, a4, n] + 
    S2[a6, a1, a2, a3, SP[a4, a5], n] + S2[a6, a1, a2, SP[a3, a5], a4, n] + 
    S2[a6, a1, SP[a2, a5], a3, a4, n] + S2[a6, SP[a1, a5], a2, a3, a4, n] + 
    S2[SP[a1, a4], a2, a3, a5, a6, n] + S2[SP[a1, a4], a2, a5, a3, a6, n] + 
    S2[SP[a1, a4], a2, a5, a6, a3, n] + S2[SP[a1, a4], a3, a2, a5, a6, n] + 
    S2[SP[a1, a4], a3, a5, a2, a6, n] + S2[SP[a1, a4], a3, a5, a6, a2, n] + 
    S2[SP[a1, a4], a5, a2, a3, a6, n] + S2[SP[a1, a4], a5, a2, a6, a3, n] + 
    S2[SP[a1, a4], a5, a3, a2, a6, n] + S2[SP[a1, a4], a5, a3, a6, a2, n] + 
    S2[SP[a1, a4], a5, a6, a2, a3, n] + S2[SP[a1, a4], a5, a6, a3, a2, n] - 
    S2[SP[a1, a6], a2, a3, a4, a5, n] - S2[SP[a1, a6], a2, a3, a5, a4, n] - 
    S2[SP[a1, a6], a2, a5, a3, a4, n] - S2[SP[a1, a6], a5, a2, a3, a4, n] - 
    S2[SP[a3, a4], a1, a2, a5, a6, n] - S2[SP[a3, a4], a1, a5, a2, a6, n] - 
    S2[SP[a3, a4], a1, a5, a6, a2, n] + S2[SP[a5, a6], a1, a2, a3, a4, n] - 
    S2[a6, a5, a1, a2, a3, a4, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a4_, a3_, a2_, a1_, a6_, a5_, n_] :> 
  S2[a1, a6, a5, n]*S2[a2, a3, a4, n] + S2[SP[a1, a2], SP[a3, a6], 
     SP[a4, a5], n] + S2[a5, a6, n]*S2[a1, a2, a3, a4, n] + 
    S2[a3, a4, n]*S2[a1, a2, a6, a5, n] - S2[a1, a2, SP[a3, a5], SP[a4, a6], 
     n] - 2*S2[a1, a2, SP[a3, a6], SP[a4, a5], n] + 
    S2[a3, a4, n]*S2[a1, a6, a2, a5, n] + S2[a3, a4, n]*
     S2[a1, a6, a5, a2, n] - S2[a1, a6, SP[a2, a3], SP[a4, a5], n] - 
    S2[a1, a6, SP[a3, a5], SP[a2, a4], n] - S2[a1, SP[a2, a3], a6, 
     SP[a4, a5], n] - S2[a1, SP[a2, a3], SP[a4, a6], a5, n] - 
    S2[a1, SP[a2, a5], a3, SP[a4, a6], n] - S2[a1, SP[a2, a5], SP[a3, a6], 
     a4, n] - S2[a1, SP[a2, a6], a3, SP[a4, a5], n] - 
    S2[a1, SP[a2, a6], SP[a3, a5], a4, n] - S2[a1, SP[a3, a6], a2, 
     SP[a4, a5], n] - S2[a1, SP[a3, a6], a5, SP[a2, a4], n] - 
    S2[a1, SP[a3, a6], SP[a2, a4], a5, n] - S2[a1, SP[a3, a6], SP[a4, a5], 
     a2, n] - S2[a2, a1, SP[a3, a6], SP[a4, a5], n] - 
    S2[a2, SP[a1, a3], a6, SP[a4, a5], n] - S2[a2, SP[a1, a3], SP[a4, a6], 
     a5, n] - S2[SP[a1, a2], a3, a6, SP[a4, a5], n] - 
    S2[SP[a1, a2], a3, SP[a4, a6], a5, n] - S2[SP[a1, a2], a6, a3, 
     SP[a4, a5], n] - S2[SP[a1, a2], a6, SP[a3, a5], a4, n] - 
    S2[SP[a1, a2], SP[a3, a6], a4, a5, n] - S2[SP[a1, a2], SP[a3, a6], a5, 
     a4, n] - S2[SP[a1, a3], a2, a6, SP[a4, a5], n] - 
    S2[SP[a1, a3], a2, SP[a4, a6], a5, n] - S2[SP[a1, a3], a6, a2, 
     SP[a4, a5], n] - S2[SP[a1, a3], a6, a5, SP[a2, a4], n] - 
    S2[SP[a1, a3], a6, SP[a2, a4], a5, n] - S2[SP[a1, a3], a6, SP[a4, a5], 
     a2, n] - S2[SP[a1, a3], SP[a2, a4], a6, a5, n] - 
    S2[SP[a1, a3], SP[a4, a6], a2, a5, n] - S2[SP[a1, a3], SP[a4, a6], a5, 
     a2, n] - S2[SP[a1, a5], a2, a3, SP[a4, a6], n] - 
    S2[SP[a1, a5], a2, SP[a3, a6], a4, n] - S2[SP[a1, a5], SP[a2, a6], a3, 
     a4, n] - S2[a5, n]*S2[a1, a2, a3, a4, a6, n] - 
    S2[a1, a2, a3, a4, SP[a5, a6], n] + S2[a1, a2, a3, a5, SP[a4, a6], n] - 
    S2[a5, n]*S2[a1, a2, a3, a6, a4, n] + 
    S2[a4, n]*S2[a1, a2, a3, a6, a5, n] + 
    2*S2[a1, a2, a3, a6, SP[a4, a5], n] + 
    3*S2[a1, a2, a3, SP[a4, a6], a5, n] - S2[a1, a2, a3, SP[a5, a6], a4, n] - 
    S2[a3, n]*S2[a1, a2, a4, a6, a5, n] - S2[a1, a2, a4, a6, SP[a3, a5], n] - 
    S2[a1, a2, a4, SP[a3, a6], a5, n] + S2[a1, a2, a5, a3, SP[a4, a6], n] + 
    S2[a1, a2, a5, SP[a3, a6], a4, n] - S2[a5, n]*S2[a1, a2, a6, a3, a4, n] + 
    S2[a4, n]*S2[a1, a2, a6, a3, a5, n] + 
    2*S2[a1, a2, a6, a3, SP[a4, a5], n] - 
    S2[a3, n]*S2[a1, a2, a6, a4, a5, n] - S2[a1, a2, a6, a4, SP[a3, a5], n] + 
    S2[a4, n]*S2[a1, a2, a6, a5, a3, n] - 
    S2[a3, n]*S2[a1, a2, a6, a5, a4, n] + S2[a1, a2, a6, SP[a4, a5], a3, n] + 
    S2[a1, a2, SP[a3, a6], a4, a5, n] + S2[a1, a2, SP[a3, a6], a5, a4, n] + 
    S2[a1, a2, SP[a4, a6], a3, a5, n] + S2[a1, a2, SP[a4, a6], a5, a3, n] - 
    S2[a1, a2, SP[a5, a6], a3, a4, n] + S2[a4, n]*S2[a1, a3, a2, a6, a5, n] + 
    2*S2[a1, a3, a2, a6, SP[a4, a5], n] + 
    2*S2[a1, a3, a2, SP[a4, a6], a5, n] - 
    S2[a2, n]*S2[a1, a3, a4, a6, a5, n] - S2[a1, a3, a4, a6, SP[a2, a5], n] - 
    S2[a1, a3, a4, SP[a2, a6], a5, n] + S2[a4, n]*S2[a1, a3, a6, a2, a5, n] + 
    2*S2[a1, a3, a6, a2, SP[a4, a5], n] - 
    S2[a2, n]*S2[a1, a3, a6, a4, a5, n] - S2[a1, a3, a6, a4, SP[a2, a5], n] + 
    S2[a4, n]*S2[a1, a3, a6, a5, a2, n] - 
    S2[a2, n]*S2[a1, a3, a6, a5, a4, n] + S2[a1, a3, a6, a5, SP[a2, a4], n] + 
    S2[a1, a3, a6, SP[a2, a4], a5, n] - S2[a1, a3, a6, SP[a2, a5], a4, n] + 
    2*S2[a1, a3, a6, SP[a4, a5], a2, n] + S2[a1, a3, SP[a2, a4], a6, a5, n] - 
    S2[a1, a3, SP[a2, a6], a4, a5, n] - S2[a1, a3, SP[a2, a6], a5, a4, n] + 
    2*S2[a1, a3, SP[a4, a6], a2, a5, n] + 
    2*S2[a1, a3, SP[a4, a6], a5, a2, n] - 
    S2[a3, n]*S2[a1, a4, a2, a6, a5, n] - S2[a1, a4, a2, a6, SP[a3, a5], n] - 
    S2[a1, a4, a2, SP[a3, a6], a5, n] - S2[a3, n]*S2[a1, a4, a6, a2, a5, n] - 
    S2[a1, a4, a6, a2, SP[a3, a5], n] - S2[a3, n]*S2[a1, a4, a6, a5, a2, n] - 
    S2[a1, a4, a6, a5, SP[a2, a3], n] - S2[a1, a4, a6, SP[a2, a3], a5, n] - 
    S2[a1, a4, a6, SP[a3, a5], a2, n] - S2[a1, a4, SP[a2, a3], a6, a5, n] - 
    S2[a1, a4, SP[a3, a6], a2, a5, n] - S2[a1, a4, SP[a3, a6], a5, a2, n] + 
    S2[a1, a5, a2, a3, SP[a4, a6], n] + S2[a1, a5, a2, SP[a3, a6], a4, n] + 
    S2[a1, a5, SP[a2, a6], a3, a4, n] - S2[a5, n]*S2[a1, a6, a2, a3, a4, n] + 
    S2[a4, n]*S2[a1, a6, a2, a3, a5, n] + 
    2*S2[a1, a6, a2, a3, SP[a4, a5], n] - 
    S2[a3, n]*S2[a1, a6, a2, a4, a5, n] - S2[a1, a6, a2, a4, SP[a3, a5], n] + 
    S2[a4, n]*S2[a1, a6, a2, a5, a3, n] - 
    S2[a3, n]*S2[a1, a6, a2, a5, a4, n] + S2[a1, a6, a2, SP[a4, a5], a3, n] + 
    S2[a4, n]*S2[a1, a6, a3, a2, a5, n] + 
    2*S2[a1, a6, a3, a2, SP[a4, a5], n] - 
    S2[a2, n]*S2[a1, a6, a3, a4, a5, n] - S2[a1, a6, a3, a4, SP[a2, a5], n] + 
    S2[a4, n]*S2[a1, a6, a3, a5, a2, n] - 
    S2[a2, n]*S2[a1, a6, a3, a5, a4, n] + S2[a1, a6, a3, a5, SP[a2, a4], n] + 
    S2[a1, a6, a3, SP[a2, a4], a5, n] - S2[a1, a6, a3, SP[a2, a5], a4, n] + 
    2*S2[a1, a6, a3, SP[a4, a5], a2, n] - 
    S2[a3, n]*S2[a1, a6, a4, a2, a5, n] - S2[a1, a6, a4, a2, SP[a3, a5], n] - 
    S2[a3, n]*S2[a1, a6, a4, a5, a2, n] - S2[a1, a6, a4, a5, SP[a2, a3], n] - 
    S2[a1, a6, a4, SP[a2, a3], a5, n] - S2[a1, a6, a4, SP[a3, a5], a2, n] + 
    S2[a4, n]*S2[a1, a6, a5, a2, a3, n] - 
    S2[a3, n]*S2[a1, a6, a5, a2, a4, n] + 
    S2[a4, n]*S2[a1, a6, a5, a3, a2, n] - 
    S2[a2, n]*S2[a1, a6, a5, a3, a4, n] + S2[a1, a6, a5, a3, SP[a2, a4], n] - 
    S2[a3, n]*S2[a1, a6, a5, a4, a2, n] - S2[a1, a6, a5, a4, SP[a2, a3], n] - 
    S2[a1, a6, a5, SP[a2, a3], a4, n] + S2[a1, a6, a5, SP[a2, a4], a3, n] - 
    S2[a1, a6, SP[a2, a3], a4, a5, n] - S2[a1, a6, SP[a2, a3], a5, a4, n] + 
    S2[a1, a6, SP[a2, a4], a3, a5, n] + S2[a1, a6, SP[a2, a4], a5, a3, n] - 
    S2[a1, a6, SP[a2, a5], a3, a4, n] + S2[a1, a6, SP[a4, a5], a2, a3, n] + 
    S2[a1, a6, SP[a4, a5], a3, a2, n] - S2[a1, SP[a2, a3], a4, a6, a5, n] - 
    S2[a1, SP[a2, a3], a6, a4, a5, n] - S2[a1, SP[a2, a3], a6, a5, a4, n] + 
    S2[a1, SP[a2, a4], a3, a6, a5, n] + S2[a1, SP[a2, a4], a6, a3, a5, n] + 
    S2[a1, SP[a2, a4], a6, a5, a3, n] + S2[a1, SP[a4, a6], a2, a3, a5, n] + 
    S2[a1, SP[a4, a6], a2, a5, a3, n] + S2[a1, SP[a4, a6], a3, a2, a5, n] + 
    S2[a1, SP[a4, a6], a3, a5, a2, n] + S2[a1, SP[a4, a6], a5, a2, a3, n] + 
    S2[a1, SP[a4, a6], a5, a3, a2, n] - S2[a1, SP[a5, a6], a2, a3, a4, n] + 
    S2[a2, a1, a3, a6, SP[a4, a5], n] + S2[a2, a1, a3, SP[a4, a6], a5, n] + 
    S2[a2, a1, a6, a3, SP[a4, a5], n] + S2[a2, a1, a6, SP[a3, a5], a4, n] + 
    S2[a2, a1, SP[a3, a6], a4, a5, n] + S2[a2, a1, SP[a3, a6], a5, a4, n] - 
    S2[a4, n]*S2[a2, a3, a1, a6, a5, n] + S2[a2, SP[a1, a3], a4, a6, a5, n] + 
    S2[a2, SP[a1, a3], a6, a4, a5, n] + S2[a2, SP[a1, a3], a6, a5, a4, n] - 
    S2[a2, SP[a3, a4], a1, a6, a5, n] + S2[a3, a1, a2, a6, SP[a4, a5], n] + 
    S2[a3, a1, a2, SP[a4, a6], a5, n] + S2[a3, a1, a6, a2, SP[a4, a5], n] + 
    S2[a3, a1, a6, a5, SP[a2, a4], n] + S2[a3, a1, a6, SP[a2, a4], a5, n] + 
    S2[a3, a1, a6, SP[a4, a5], a2, n] + S2[a3, a1, SP[a2, a4], a6, a5, n] + 
    S2[a3, a1, SP[a4, a6], a2, a5, n] + S2[a3, a1, SP[a4, a6], a5, a2, n] + 
    S2[a3, SP[a1, a4], a2, a6, a5, n] + S2[a3, SP[a1, a4], a6, a2, a5, n] + 
    S2[a3, SP[a1, a4], a6, a5, a2, n] - S2[a3, n]*S2[a4, a1, a2, a6, a5, n] - 
    S2[a4, a1, a2, a6, SP[a3, a5], n] - S2[a4, a1, a2, SP[a3, a6], a5, n] - 
    S2[a3, n]*S2[a4, a1, a6, a2, a5, n] - S2[a4, a1, a6, a2, SP[a3, a5], n] - 
    S2[a3, n]*S2[a4, a1, a6, a5, a2, n] - S2[a4, a1, a6, a5, SP[a2, a3], n] - 
    S2[a4, a1, a6, SP[a2, a3], a5, n] - S2[a4, a1, a6, SP[a3, a5], a2, n] - 
    S2[a4, a1, SP[a2, a3], a6, a5, n] - S2[a4, a1, SP[a3, a6], a2, a5, n] - 
    S2[a4, a1, SP[a3, a6], a5, a2, n] + S2[a2, n]*S2[a4, a3, a1, a6, a5, n] + 
    S2[a4, a3, a1, a6, SP[a2, a5], n] + S2[a4, a3, a1, SP[a2, a6], a5, n] + 
    S2[a4, a3, SP[a1, a2], a6, a5, n] - S2[a4, SP[a1, a3], a2, a6, a5, n] - 
    S2[a4, SP[a1, a3], a6, a2, a5, n] - S2[a4, SP[a1, a3], a6, a5, a2, n] + 
    S2[a4, SP[a2, a3], a1, a6, a5, n] + S2[a5, a1, a2, a3, SP[a4, a6], n] + 
    S2[a5, a1, a2, SP[a3, a6], a4, n] + S2[a5, a1, SP[a2, a6], a3, a4, n] + 
    S2[a5, SP[a1, a6], a2, a3, a4, n] - S2[a5, n]*S2[a6, a1, a2, a3, a4, n] - 
    S2[a6, a1, a2, a3, SP[a4, a5], n] - S2[a6, a1, a2, SP[a3, a5], a4, n] - 
    S2[a6, a1, SP[a2, a5], a3, a4, n] - S2[a6, SP[a1, a5], a2, a3, a4, n] + 
    S2[SP[a1, a4], a2, a3, a6, a5, n] + S2[SP[a1, a4], a2, a6, a3, a5, n] + 
    S2[SP[a1, a4], a2, a6, a5, a3, n] + S2[SP[a1, a4], a3, a2, a6, a5, n] + 
    S2[SP[a1, a4], a3, a6, a2, a5, n] + S2[SP[a1, a4], a3, a6, a5, a2, n] + 
    S2[SP[a1, a4], a6, a2, a3, a5, n] + S2[SP[a1, a4], a6, a2, a5, a3, n] + 
    S2[SP[a1, a4], a6, a3, a2, a5, n] + S2[SP[a1, a4], a6, a3, a5, a2, n] + 
    S2[SP[a1, a4], a6, a5, a2, a3, n] + S2[SP[a1, a4], a6, a5, a3, a2, n] - 
    S2[SP[a3, a4], a1, a2, a6, a5, n] - S2[SP[a3, a4], a1, a6, a2, a5, n] - 
    S2[SP[a3, a4], a1, a6, a5, a2, n] - S2[SP[a5, a6], a1, a2, a3, a4, n] + 
    S2[a6, a1, a2, a3, a4, a5, n] + S2[a6, a1, a2, a3, a5, a4, n] + 
    S2[a6, a1, a2, a5, a3, a4, n] + S2[a6, a1, a5, a2, a3, a4, n] + 
    S2[a6, a5, a1, a2, a3, a4, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a4_, a3_, a2_, a5_, a1_, a6_, n_] :> 
  -(S2[a1, a5, a6, n]*S2[a2, a3, a4, n]) - S2[a1, a6, a5, n]*
     S2[a2, a3, a4, n] - S2[SP[a1, a2], SP[a3, a5], SP[a4, a6], n] - 
    S2[SP[a1, a2], SP[a3, a6], SP[a4, a5], n] + S2[a1, a2, SP[a3, a5], 
     SP[a4, a6], n] + S2[a1, a2, SP[a3, a6], SP[a4, a5], n] - 
    S2[a3, a4, n]*S2[a1, a5, a2, a6, n] - S2[a3, a4, n]*
     S2[a1, a5, a6, a2, n] + S2[a1, a5, SP[a2, a3], SP[a4, a6], n] + 
    S2[a1, a5, SP[a3, a6], SP[a2, a4], n] - S2[a3, a4, n]*
     S2[a1, a6, a5, a2, n] + S2[a1, a6, SP[a3, a5], SP[a2, a4], n] + 
    S2[a1, SP[a2, a5], a3, SP[a4, a6], n] + S2[a1, SP[a2, a5], SP[a3, a6], 
     a4, n] + S2[a1, SP[a2, a6], a3, SP[a4, a5], n] + 
    S2[a1, SP[a2, a6], SP[a3, a5], a4, n] + S2[a1, SP[a3, a5], a2, 
     SP[a4, a6], n] + S2[a1, SP[a3, a5], a6, SP[a2, a4], n] + 
    S2[a1, SP[a3, a5], SP[a2, a4], a6, n] + S2[a1, SP[a3, a5], SP[a4, a6], 
     a2, n] + S2[a1, SP[a3, a6], a5, SP[a2, a4], n] + 
    S2[a1, SP[a3, a6], SP[a4, a5], a2, n] + S2[a2, a1, SP[a3, a5], 
     SP[a4, a6], n] + S2[a2, a1, SP[a3, a6], SP[a4, a5], n] + 
    S2[a1, a6, n]*S2[a2, a3, a4, a5, n] + S2[a1, a6, n]*
     S2[a2, a3, a5, a4, n] - S2[a2, a3, SP[a1, a4], SP[a5, a6], n] - 
    S2[a2, a3, SP[a1, a5], SP[a4, a6], n] + S2[a1, a6, n]*
     S2[a2, a4, a3, a5, n] + S2[a1, a6, n]*S2[a2, a4, a5, a3, n] - 
    S2[a2, a4, SP[a1, a3], SP[a5, a6], n] - S2[a2, a4, SP[a1, a5], 
     SP[a3, a6], n] + S2[a1, a6, n]*S2[a2, a5, a3, a4, n] + 
    S2[a1, a6, n]*S2[a2, a5, a4, a3, n] - S2[a2, a5, SP[a1, a3], SP[a4, a6], 
     n] - S2[a2, a5, SP[a1, a4], SP[a3, a6], n] - S2[a2, SP[a1, a3], a4, 
     SP[a5, a6], n] + S2[a2, SP[a1, a3], a6, SP[a4, a5], n] + 
    S2[a2, SP[a1, a3], SP[a4, a5], a6, n] - S2[a2, SP[a1, a3], SP[a5, a6], 
     a4, n] - S2[a2, SP[a1, a4], a3, SP[a5, a6], n] - 
    S2[a2, SP[a1, a4], a5, SP[a3, a6], n] - S2[a2, SP[a1, a4], SP[a3, a6], 
     a5, n] - S2[a2, SP[a1, a4], SP[a5, a6], a3, n] - 
    S2[a2, SP[a1, a5], a3, SP[a4, a6], n] - S2[a2, SP[a1, a5], a4, 
     SP[a3, a6], n] - S2[a2, SP[a1, a5], SP[a3, a6], a4, n] - 
    S2[a2, SP[a1, a5], SP[a4, a6], a3, n] - S2[a1, a6, n]*
     S2[a3, a4, a2, a5, n] + S2[a3, a4, SP[a1, a2], SP[a5, a6], n] + 
    S2[a3, SP[a1, a4], a2, SP[a5, a6], n] + S2[a3, SP[a1, a4], SP[a2, a6], 
     a5, n] - S2[SP[a1, a2], a3, a4, SP[a5, a6], n] + 
    S2[SP[a1, a2], a3, a6, SP[a4, a5], n] + S2[SP[a1, a2], a3, SP[a4, a5], 
     a6, n] - S2[SP[a1, a2], a3, SP[a5, a6], a4, n] - 
    S2[SP[a1, a2], a4, a3, SP[a5, a6], n] - S2[SP[a1, a2], a4, a5, 
     SP[a3, a6], n] - S2[SP[a1, a2], a4, SP[a3, a6], a5, n] - 
    S2[SP[a1, a2], a4, SP[a5, a6], a3, n] - S2[SP[a1, a2], a5, a4, 
     SP[a3, a6], n] - S2[SP[a1, a2], a5, SP[a4, a6], a3, n] + 
    S2[SP[a1, a2], a6, a3, SP[a4, a5], n] + S2[SP[a1, a2], a6, SP[a3, a5], 
     a4, n] + S2[SP[a1, a2], SP[a3, a5], a4, a6, n] + 
    S2[SP[a1, a2], SP[a3, a5], a6, a4, n] - S2[SP[a1, a2], SP[a4, a6], a3, 
     a5, n] - S2[SP[a1, a2], SP[a4, a6], a5, a3, n] - 
    S2[SP[a1, a2], SP[a5, a6], a3, a4, n] - S2[SP[a1, a2], SP[a5, a6], a4, 
     a3, n] + S2[SP[a1, a3], a4, a2, SP[a5, a6], n] + 
    S2[SP[a1, a3], a4, SP[a2, a6], a5, n] + S2[SP[a1, a3], a5, a2, 
     SP[a4, a6], n] + S2[SP[a1, a3], a5, a6, SP[a2, a4], n] + 
    S2[SP[a1, a3], a5, SP[a2, a4], a6, n] + S2[SP[a1, a3], a5, SP[a4, a6], 
     a2, n] + S2[SP[a1, a3], a6, a5, SP[a2, a4], n] + 
    S2[SP[a1, a3], a6, SP[a4, a5], a2, n] + S2[SP[a1, a3], SP[a4, a5], a2, 
     a6, n] + S2[SP[a1, a3], SP[a4, a5], a6, a2, n] + 
    S2[SP[a1, a3], SP[a4, a6], a2, a5, n] + S2[SP[a1, a3], SP[a4, a6], a5, 
     a2, n] + S2[a1, a2, a3, a4, SP[a5, a6], n] - 
    S2[a1, a2, a3, a6, SP[a4, a5], n] - S2[a1, a2, a3, SP[a4, a5], a6, n] + 
    S2[a1, a2, a3, SP[a5, a6], a4, n] + S2[a1, a2, a4, a3, SP[a5, a6], n] + 
    S2[a1, a2, a4, a5, SP[a3, a6], n] + S2[a1, a2, a4, SP[a3, a6], a5, n] + 
    S2[a1, a2, a4, SP[a5, a6], a3, n] + S2[a1, a2, a5, a4, SP[a3, a6], n] + 
    S2[a1, a2, a5, SP[a4, a6], a3, n] - S2[a1, a2, a6, a3, SP[a4, a5], n] - 
    S2[a1, a2, a6, SP[a3, a5], a4, n] - S2[a1, a2, SP[a3, a5], a4, a6, n] - 
    S2[a1, a2, SP[a3, a5], a6, a4, n] + S2[a1, a2, SP[a4, a6], a3, a5, n] + 
    S2[a1, a2, SP[a4, a6], a5, a3, n] + S2[a1, a2, SP[a5, a6], a3, a4, n] + 
    S2[a1, a2, SP[a5, a6], a4, a3, n] - S2[a1, a3, a4, a2, SP[a5, a6], n] - 
    S2[a1, a3, a4, SP[a2, a6], a5, n] - S2[a1, a3, a5, a2, SP[a4, a6], n] - 
    S2[a1, a3, a5, a6, SP[a2, a4], n] - S2[a1, a3, a5, SP[a2, a4], a6, n] - 
    S2[a1, a3, a5, SP[a4, a6], a2, n] - S2[a1, a3, a6, a5, SP[a2, a4], n] - 
    S2[a1, a3, a6, SP[a4, a5], a2, n] - S2[a1, a3, SP[a4, a5], a2, a6, n] - 
    S2[a1, a3, SP[a4, a5], a6, a2, n] - S2[a1, a3, SP[a4, a6], a2, a5, n] - 
    S2[a1, a3, SP[a4, a6], a5, a2, n] + S2[a3, n]*S2[a1, a4, a2, a5, a6, n] + 
    S2[a1, a4, a2, a5, SP[a3, a6], n] + S2[a3, n]*S2[a1, a4, a2, a6, a5, n] + 
    S2[a1, a4, a2, a6, SP[a3, a5], n] + S2[a1, a4, a2, SP[a3, a5], a6, n] + 
    S2[a1, a4, a2, SP[a3, a6], a5, n] - S2[a2, n]*S2[a1, a4, a3, a5, a6, n] - 
    S2[a1, a4, a3, a5, SP[a2, a6], n] - S2[a2, n]*S2[a1, a4, a3, a6, a5, n] - 
    S2[a1, a4, a3, a6, SP[a2, a5], n] - S2[a1, a4, a3, SP[a2, a5], a6, n] - 
    S2[a1, a4, a3, SP[a2, a6], a5, n] + S2[a3, n]*S2[a1, a4, a5, a2, a6, n] + 
    S2[a1, a4, a5, a2, SP[a3, a6], n] - S2[a2, n]*S2[a1, a4, a5, a3, a6, n] - 
    S2[a1, a4, a5, a3, SP[a2, a6], n] + S2[a3, n]*S2[a1, a4, a5, a6, a2, n] - 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] - S2[a1, a4, a5, SP[a2, a6], a3, n] + 
    S2[a1, a4, a5, SP[a3, a6], a2, n] + S2[a3, n]*S2[a1, a4, a6, a2, a5, n] + 
    S2[a1, a4, a6, a2, SP[a3, a5], n] - S2[a2, n]*S2[a1, a4, a6, a3, a5, n] - 
    S2[a1, a4, a6, a3, SP[a2, a5], n] + S2[a3, n]*S2[a1, a4, a6, a5, a2, n] - 
    S2[a2, n]*S2[a1, a4, a6, a5, a3, n] - S2[a1, a4, a6, SP[a2, a5], a3, n] + 
    S2[a1, a4, a6, SP[a3, a5], a2, n] - S2[a1, a4, SP[a2, a5], a3, a6, n] - 
    S2[a1, a4, SP[a2, a5], a6, a3, n] - S2[a1, a4, SP[a2, a6], a3, a5, n] - 
    S2[a1, a4, SP[a2, a6], a5, a3, n] + S2[a1, a4, SP[a3, a5], a2, a6, n] + 
    S2[a1, a4, SP[a3, a5], a6, a2, n] + S2[a1, a4, SP[a3, a6], a2, a5, n] + 
    S2[a1, a4, SP[a3, a6], a5, a2, n] + S2[a6, n]*S2[a1, a5, a2, a3, a4, n] - 
    S2[a1, a5, a2, a3, SP[a4, a6], n] + S2[a3, n]*S2[a1, a5, a2, a4, a6, n] + 
    S2[a1, a5, a2, a4, SP[a3, a6], n] + S2[a3, n]*S2[a1, a5, a2, a6, a4, n] + 
    S2[a1, a5, a2, a6, SP[a3, a4], n] + S2[a1, a5, a2, SP[a3, a4], a6, n] - 
    S2[a1, a5, a3, a2, SP[a4, a6], n] - S2[a1, a5, a3, a6, SP[a2, a4], n] - 
    S2[a1, a5, a3, SP[a2, a4], a6, n] - S2[a1, a5, a3, SP[a4, a6], a2, n] + 
    S2[a3, n]*S2[a1, a5, a4, a2, a6, n] + S2[a1, a5, a4, a2, SP[a3, a6], n] - 
    S2[a2, n]*S2[a1, a5, a4, a3, a6, n] - S2[a1, a5, a4, a3, SP[a2, a6], n] + 
    S2[a3, n]*S2[a1, a5, a4, a6, a2, n] - 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] - S2[a1, a5, a4, SP[a2, a6], a3, n] + 
    S2[a1, a5, a4, SP[a3, a6], a2, n] + S2[a3, n]*S2[a1, a5, a6, a2, a4, n] + 
    S2[a1, a5, a6, a2, SP[a3, a4], n] - S2[a1, a5, a6, a3, SP[a2, a4], n] + 
    S2[a3, n]*S2[a1, a5, a6, a4, a2, n] - 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] - S2[a1, a5, a6, SP[a2, a4], a3, n] + 
    S2[a1, a5, a6, SP[a3, a4], a2, n] - S2[a1, a5, SP[a2, a4], a3, a6, n] - 
    S2[a1, a5, SP[a2, a4], a6, a3, n] - S2[a1, a5, SP[a2, a6], a4, a3, n] + 
    S2[a1, a5, SP[a3, a4], a2, a6, n] + S2[a1, a5, SP[a3, a4], a6, a2, n] - 
    S2[a1, a6, a2, a3, SP[a4, a5], n] - S2[a1, a6, a2, SP[a3, a5], a4, n] - 
    S2[a1, a6, a3, a5, SP[a2, a4], n] - S2[a1, a6, a3, SP[a4, a5], a2, n] + 
    S2[a3, n]*S2[a1, a6, a4, a2, a5, n] + S2[a1, a6, a4, a2, SP[a3, a5], n] - 
    S2[a2, n]*S2[a1, a6, a4, a3, a5, n] - S2[a1, a6, a4, a3, SP[a2, a5], n] + 
    S2[a3, n]*S2[a1, a6, a4, a5, a2, n] - 
    S2[a2, n]*S2[a1, a6, a4, a5, a3, n] - S2[a1, a6, a4, SP[a2, a5], a3, n] + 
    S2[a1, a6, a4, SP[a3, a5], a2, n] + S2[a3, n]*S2[a1, a6, a5, a2, a4, n] + 
    S2[a1, a6, a5, a2, SP[a3, a4], n] - S2[a1, a6, a5, a3, SP[a2, a4], n] + 
    S2[a3, n]*S2[a1, a6, a5, a4, a2, n] - 
    S2[a2, n]*S2[a1, a6, a5, a4, a3, n] - S2[a1, a6, a5, SP[a2, a4], a3, n] + 
    S2[a1, a6, a5, SP[a3, a4], a2, n] - S2[a1, a6, SP[a2, a4], a3, a5, n] - 
    S2[a1, a6, SP[a2, a4], a5, a3, n] - S2[a1, a6, SP[a2, a5], a3, a4, n] - 
    S2[a1, a6, SP[a2, a5], a4, a3, n] + S2[a1, a6, SP[a3, a4], a2, a5, n] + 
    S2[a1, a6, SP[a3, a4], a5, a2, n] - S2[a1, SP[a2, a4], a3, a5, a6, n] - 
    S2[a1, SP[a2, a4], a3, a6, a5, n] - S2[a1, SP[a2, a4], a5, a3, a6, n] - 
    S2[a1, SP[a2, a4], a5, a6, a3, n] - S2[a1, SP[a2, a4], a6, a3, a5, n] - 
    S2[a1, SP[a2, a4], a6, a5, a3, n] - S2[a1, SP[a2, a5], a3, a4, a6, n] - 
    S2[a1, SP[a2, a5], a3, a6, a4, n] - S2[a1, SP[a2, a5], a4, a3, a6, n] - 
    S2[a1, SP[a2, a5], a4, a6, a3, n] - S2[a1, SP[a2, a5], a6, a3, a4, n] - 
    S2[a1, SP[a2, a5], a6, a4, a3, n] + S2[a1, SP[a3, a4], a2, a5, a6, n] + 
    S2[a1, SP[a3, a4], a2, a6, a5, n] + S2[a1, SP[a3, a4], a5, a2, a6, n] + 
    S2[a1, SP[a3, a4], a5, a6, a2, n] + S2[a1, SP[a3, a4], a6, a2, a5, n] + 
    S2[a1, SP[a3, a4], a6, a5, a2, n] + S2[a1, SP[a5, a6], a2, a3, a4, n] + 
    S2[a2, a1, a3, a4, SP[a5, a6], n] - S2[a2, a1, a3, a6, SP[a4, a5], n] - 
    S2[a2, a1, a3, SP[a4, a5], a6, n] + S2[a2, a1, a3, SP[a5, a6], a4, n] + 
    S2[a2, a1, a4, a3, SP[a5, a6], n] + S2[a2, a1, a4, a5, SP[a3, a6], n] + 
    S2[a2, a1, a4, SP[a3, a6], a5, n] + S2[a2, a1, a4, SP[a5, a6], a3, n] + 
    S2[a2, a1, a5, a4, SP[a3, a6], n] + S2[a2, a1, a5, SP[a4, a6], a3, n] - 
    S2[a2, a1, a6, a3, SP[a4, a5], n] - S2[a2, a1, a6, SP[a3, a5], a4, n] - 
    S2[a2, a1, SP[a3, a5], a4, a6, n] - S2[a2, a1, SP[a3, a5], a6, a4, n] + 
    S2[a2, a1, SP[a4, a6], a3, a5, n] + S2[a2, a1, SP[a4, a6], a5, a3, n] + 
    S2[a2, a1, SP[a5, a6], a3, a4, n] + S2[a2, a1, SP[a5, a6], a4, a3, n] + 
    S2[a2, a3, a1, a4, SP[a5, a6], n] - S2[a2, a3, a1, a6, SP[a4, a5], n] - 
    S2[a2, a3, a1, SP[a4, a5], a6, n] + S2[a2, a3, a1, SP[a5, a6], a4, n] + 
    S2[a2, a3, a4, a1, SP[a5, a6], n] + S2[a2, a3, a4, SP[a1, a5], a6, n] - 
    S2[a4, n]*S2[a2, a3, a5, a1, a6, n] + S2[a2, a3, SP[a1, a5], a4, a6, n] + 
    S2[a2, a3, SP[a1, a5], a6, a4, n] - S2[a2, a3, SP[a4, a5], a1, a6, n] + 
    S2[a2, a4, a1, a3, SP[a5, a6], n] - S2[a3, n]*S2[a2, a4, a1, a5, a6, n] - 
    S2[a3, n]*S2[a2, a4, a1, a6, a5, n] - S2[a2, a4, a1, a6, SP[a3, a5], n] - 
    S2[a2, a4, a1, SP[a3, a5], a6, n] + S2[a2, a4, a1, SP[a5, a6], a3, n] + 
    S2[a2, a4, a3, a1, SP[a5, a6], n] + S2[a2, a4, a3, SP[a1, a5], a6, n] + 
    S2[a2, a4, a5, a1, SP[a3, a6], n] + S2[a2, a4, a5, SP[a1, a3], a6, n] + 
    S2[a2, a4, SP[a1, a5], a3, a6, n] + S2[a2, a4, SP[a1, a5], a6, a3, n] - 
    S2[a4, n]*S2[a2, a5, a1, a3, a6, n] + S2[a2, a5, a1, a4, SP[a3, a6], n] - 
    S2[a4, n]*S2[a2, a5, a1, a6, a3, n] - S2[a2, a5, a1, a6, SP[a3, a4], n] - 
    S2[a2, a5, a1, SP[a3, a4], a6, n] + S2[a2, a5, a1, SP[a3, a6], a4, n] - 
    S2[a4, n]*S2[a2, a5, a3, a1, a6, n] + S2[a2, a5, a4, a1, SP[a3, a6], n] + 
    S2[a2, a5, a4, SP[a1, a3], a6, n] + S2[a2, a5, SP[a1, a3], a4, a6, n] + 
    S2[a2, a5, SP[a1, a3], a6, a4, n] - S2[a2, a5, SP[a3, a4], a1, a6, n] + 
    S2[a2, SP[a1, a4], a3, a5, a6, n] + S2[a2, SP[a1, a4], a3, a6, a5, n] + 
    S2[a2, SP[a1, a4], a5, a3, a6, n] + S2[a2, SP[a1, a4], a5, a6, a3, n] + 
    S2[a2, SP[a1, a4], a6, a3, a5, n] + S2[a2, SP[a1, a4], a6, a5, a3, n] + 
    S2[a2, SP[a1, a5], a3, a4, a6, n] + S2[a2, SP[a1, a5], a3, a6, a4, n] + 
    S2[a2, SP[a1, a5], a4, a3, a6, n] + S2[a2, SP[a1, a5], a4, a6, a3, n] + 
    S2[a2, SP[a1, a5], a6, a3, a4, n] + S2[a2, SP[a1, a5], a6, a4, a3, n] - 
    S2[a2, SP[a3, a4], a1, a5, a6, n] - S2[a2, SP[a3, a4], a1, a6, a5, n] - 
    S2[a2, SP[a3, a4], a5, a1, a6, n] - S2[a2, SP[a4, a5], a1, a3, a6, n] - 
    S2[a2, SP[a4, a5], a1, a6, a3, n] - S2[a2, SP[a4, a5], a3, a1, a6, n] - 
    S2[a3, a1, a4, a2, SP[a5, a6], n] - S2[a3, a1, a4, SP[a2, a6], a5, n] - 
    S2[a3, a1, a5, a2, SP[a4, a6], n] - S2[a3, a1, a5, a6, SP[a2, a4], n] - 
    S2[a3, a1, a5, SP[a2, a4], a6, n] - S2[a3, a1, a5, SP[a4, a6], a2, n] - 
    S2[a3, a1, a6, a5, SP[a2, a4], n] - S2[a3, a1, a6, SP[a4, a5], a2, n] - 
    S2[a3, a1, SP[a4, a5], a2, a6, n] - S2[a3, a1, SP[a4, a5], a6, a2, n] - 
    S2[a3, a1, SP[a4, a6], a2, a5, n] - S2[a3, a1, SP[a4, a6], a5, a2, n] - 
    S2[a3, a4, a1, a2, SP[a5, a6], n] + S2[a2, n]*S2[a3, a4, a1, a5, a6, n] + 
    S2[a3, a4, a1, a5, SP[a2, a6], n] + S2[a2, n]*S2[a3, a4, a1, a6, a5, n] + 
    S2[a3, a4, a1, a6, SP[a2, a5], n] + S2[a3, a4, a1, SP[a2, a5], a6, n] - 
    S2[a3, a4, a2, a1, SP[a5, a6], n] - S2[a3, a4, a2, SP[a1, a5], a6, n] - 
    S2[a3, SP[a1, a4], a2, a5, a6, n] - S2[a3, SP[a1, a4], a2, a6, a5, n] - 
    S2[a3, SP[a1, a4], a5, a2, a6, n] - S2[a3, SP[a1, a4], a5, a6, a2, n] - 
    S2[a3, SP[a1, a4], a6, a2, a5, n] - S2[a3, SP[a1, a4], a6, a5, a2, n] + 
    S2[a3, SP[a2, a4], a1, a5, a6, n] + S2[a3, SP[a2, a4], a1, a6, a5, n] + 
    S2[a3, n]*S2[a4, a2, a5, a1, a6, n] + S2[a4, a2, a5, a1, SP[a3, a6], n] + 
    S2[a4, a2, a5, SP[a1, a3], a6, n] + S2[a4, a2, SP[a3, a5], a1, a6, n] + 
    S2[a4, SP[a2, a3], a5, a1, a6, n] + S2[SP[a1, a6], a5, a2, a3, a4, n] - 
    S2[SP[a2, a4], a3, a5, a1, a6, n] - S2[SP[a2, a4], a5, a1, a3, a6, n] - 
    S2[SP[a2, a4], a5, a1, a6, a3, n] - S2[SP[a2, a4], a5, a3, a1, a6, n] + 
    S2[SP[a3, a4], a2, a5, a1, a6, n] - S2[a6, a1, a5, a2, a3, a4, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a4_, a3_, a2_, a5_, a6_, a1_, n_] :> 
  S2[a1, a6, a5, n]*S2[a2, a3, a4, n] + S2[SP[a1, a2], SP[a3, a6], 
     SP[a4, a5], n] - S2[a1, a2, SP[a3, a6], SP[a4, a5], n] + 
    S2[a3, a4, n]*S2[a1, a6, a5, a2, n] - S2[a1, a6, SP[a3, a5], SP[a2, a4], 
     n] - S2[a1, SP[a2, a6], a3, SP[a4, a5], n] - 
    S2[a1, SP[a2, a6], SP[a3, a5], a4, n] - S2[a1, SP[a3, a6], a5, 
     SP[a2, a4], n] - S2[a1, SP[a3, a6], SP[a4, a5], a2, n] - 
    S2[a2, a1, SP[a3, a6], SP[a4, a5], n] - S2[a1, a6, n]*
     S2[a2, a3, a4, a5, n] - S2[a1, a6, n]*S2[a2, a3, a5, a4, n] + 
    S2[a2, a3, SP[a1, a4], SP[a5, a6], n] + S2[a2, a3, SP[a1, a5], 
     SP[a4, a6], n] - S2[a1, a6, n]*S2[a2, a4, a3, a5, n] - 
    S2[a1, a6, n]*S2[a2, a4, a5, a3, n] + S2[a2, a4, SP[a1, a3], SP[a5, a6], 
     n] + S2[a2, a4, SP[a1, a5], SP[a3, a6], n] - 
    S2[a1, a6, n]*S2[a2, a5, a3, a4, n] - S2[a1, a6, n]*
     S2[a2, a5, a4, a3, n] + S2[a2, a5, SP[a1, a3], SP[a4, a6], n] + 
    S2[a2, a5, SP[a1, a4], SP[a3, a6], n] + S2[a2, SP[a1, a3], a4, 
     SP[a5, a6], n] + S2[a2, SP[a1, a3], a5, SP[a4, a6], n] - 
    S2[a2, SP[a1, a3], a6, SP[a4, a5], n] + S2[a2, SP[a1, a3], SP[a5, a6], 
     a4, n] + S2[a2, SP[a1, a4], a3, SP[a5, a6], n] + 
    S2[a2, SP[a1, a4], a5, SP[a3, a6], n] + S2[a2, SP[a1, a4], SP[a3, a6], 
     a5, n] + S2[a2, SP[a1, a4], SP[a5, a6], a3, n] + 
    S2[a2, SP[a1, a5], a3, SP[a4, a6], n] + S2[a2, SP[a1, a5], a4, 
     SP[a3, a6], n] + S2[a2, SP[a1, a5], SP[a3, a6], a4, n] + 
    S2[a2, SP[a1, a5], SP[a4, a6], a3, n] + S2[a1, a6, n]*
     S2[a3, a4, a2, a5, n] - S2[a3, a4, SP[a1, a2], SP[a5, a6], n] - 
    S2[a3, SP[a1, a4], a2, SP[a5, a6], n] - S2[a3, SP[a1, a4], SP[a2, a6], 
     a5, n] + S2[SP[a1, a2], a3, a4, SP[a5, a6], n] + 
    S2[SP[a1, a2], a3, a5, SP[a4, a6], n] - S2[SP[a1, a2], a3, a6, 
     SP[a4, a5], n] + S2[SP[a1, a2], a3, SP[a5, a6], a4, n] + 
    S2[SP[a1, a2], a4, a3, SP[a5, a6], n] + S2[SP[a1, a2], a4, a5, 
     SP[a3, a6], n] + S2[SP[a1, a2], a4, SP[a3, a6], a5, n] + 
    S2[SP[a1, a2], a4, SP[a5, a6], a3, n] + S2[SP[a1, a2], a5, a3, 
     SP[a4, a6], n] + S2[SP[a1, a2], a5, a4, SP[a3, a6], n] + 
    S2[SP[a1, a2], a5, SP[a3, a6], a4, n] + S2[SP[a1, a2], a5, SP[a4, a6], 
     a3, n] - S2[SP[a1, a2], a6, a3, SP[a4, a5], n] - 
    S2[SP[a1, a2], a6, SP[a3, a5], a4, n] + S2[SP[a1, a2], SP[a4, a6], a3, 
     a5, n] + S2[SP[a1, a2], SP[a4, a6], a5, a3, n] + 
    S2[SP[a1, a2], SP[a5, a6], a3, a4, n] + S2[SP[a1, a2], SP[a5, a6], a4, 
     a3, n] - S2[SP[a1, a3], a4, a2, SP[a5, a6], n] - 
    S2[SP[a1, a3], a4, SP[a2, a6], a5, n] - S2[SP[a1, a3], a6, a5, 
     SP[a2, a4], n] - S2[SP[a1, a3], a6, SP[a4, a5], a2, n] - 
    S2[SP[a1, a3], SP[a4, a6], a2, a5, n] - S2[SP[a1, a3], SP[a4, a6], a5, 
     a2, n] - S2[a1, a2, a3, a4, SP[a5, a6], n] - 
    S2[a1, a2, a3, a5, SP[a4, a6], n] + S2[a1, a2, a3, a6, SP[a4, a5], n] - 
    S2[a1, a2, a3, SP[a5, a6], a4, n] - S2[a1, a2, a4, a3, SP[a5, a6], n] - 
    S2[a1, a2, a4, a5, SP[a3, a6], n] - S2[a1, a2, a4, SP[a3, a6], a5, n] - 
    S2[a1, a2, a4, SP[a5, a6], a3, n] - S2[a1, a2, a5, a3, SP[a4, a6], n] - 
    S2[a1, a2, a5, a4, SP[a3, a6], n] - S2[a1, a2, a5, SP[a3, a6], a4, n] - 
    S2[a1, a2, a5, SP[a4, a6], a3, n] + S2[a1, a2, a6, a3, SP[a4, a5], n] + 
    S2[a1, a2, a6, SP[a3, a5], a4, n] - S2[a1, a2, SP[a4, a6], a3, a5, n] - 
    S2[a1, a2, SP[a4, a6], a5, a3, n] - S2[a1, a2, SP[a5, a6], a3, a4, n] - 
    S2[a1, a2, SP[a5, a6], a4, a3, n] - S2[a4, n]*S2[a1, a3, a2, a5, a6, n] - 
    S2[a1, a3, a2, a5, SP[a4, a6], n] - S2[a1, a3, a2, SP[a4, a5], a6, n] + 
    S2[a1, a3, a4, a2, SP[a5, a6], n] + S2[a2, n]*S2[a1, a3, a4, a5, a6, n] + 
    S2[a1, a3, a4, a5, SP[a2, a6], n] + S2[a1, a3, a4, SP[a2, a5], a6, n] + 
    S2[a1, a3, a4, SP[a2, a6], a5, n] - S2[a4, n]*S2[a1, a3, a5, a2, a6, n] - 
    S2[a1, a3, a5, a2, SP[a4, a6], n] + S2[a2, n]*S2[a1, a3, a5, a4, a6, n] + 
    S2[a1, a3, a5, a4, SP[a2, a6], n] - S2[a4, n]*S2[a1, a3, a5, a6, a2, n] + 
    S2[a2, n]*S2[a1, a3, a5, a6, a4, n] + S2[a1, a3, a5, SP[a2, a6], a4, n] - 
    S2[a1, a3, a5, SP[a4, a6], a2, n] + S2[a1, a3, a6, a5, SP[a2, a4], n] + 
    S2[a1, a3, a6, SP[a4, a5], a2, n] + S2[a1, a3, SP[a2, a5], a4, a6, n] + 
    S2[a1, a3, SP[a2, a5], a6, a4, n] - S2[a1, a3, SP[a4, a5], a2, a6, n] - 
    S2[a1, a3, SP[a4, a5], a6, a2, n] + S2[a1, a3, SP[a4, a6], a2, a5, n] + 
    S2[a1, a3, SP[a4, a6], a5, a2, n] - S2[a3, n]*S2[a1, a4, a2, a5, a6, n] - 
    S2[a1, a4, a2, a5, SP[a3, a6], n] - S2[a3, n]*S2[a1, a4, a2, a6, a5, n] - 
    S2[a1, a4, a2, a6, SP[a3, a5], n] - S2[a1, a4, a2, SP[a3, a5], a6, n] - 
    S2[a1, a4, a2, SP[a3, a6], a5, n] + S2[a2, n]*S2[a1, a4, a3, a5, a6, n] + 
    S2[a1, a4, a3, a5, SP[a2, a6], n] + S2[a2, n]*S2[a1, a4, a3, a6, a5, n] + 
    S2[a1, a4, a3, a6, SP[a2, a5], n] + S2[a1, a4, a3, SP[a2, a5], a6, n] + 
    S2[a1, a4, a3, SP[a2, a6], a5, n] + S2[a2, n]*S2[a1, a4, a5, a3, a6, n] + 
    S2[a1, a4, a5, a3, SP[a2, a6], n] + S2[a2, n]*S2[a1, a4, a5, a6, a3, n] + 
    S2[a1, a4, a5, a6, SP[a2, a3], n] + S2[a1, a4, a5, SP[a2, a3], a6, n] + 
    S2[a1, a4, a5, SP[a2, a6], a3, n] - S2[a3, n]*S2[a1, a4, a6, a2, a5, n] - 
    S2[a1, a4, a6, a2, SP[a3, a5], n] + S2[a2, n]*S2[a1, a4, a6, a3, a5, n] + 
    S2[a1, a4, a6, a3, SP[a2, a5], n] - S2[a3, n]*S2[a1, a4, a6, a5, a2, n] + 
    S2[a2, n]*S2[a1, a4, a6, a5, a3, n] + S2[a1, a4, a6, SP[a2, a5], a3, n] - 
    S2[a1, a4, a6, SP[a3, a5], a2, n] + S2[a1, a4, SP[a2, a5], a3, a6, n] + 
    S2[a1, a4, SP[a2, a5], a6, a3, n] + S2[a1, a4, SP[a2, a6], a3, a5, n] + 
    S2[a1, a4, SP[a2, a6], a5, a3, n] - S2[a1, a4, SP[a3, a6], a2, a5, n] - 
    S2[a1, a4, SP[a3, a6], a5, a2, n] - S2[a4, n]*S2[a1, a5, a2, a3, a6, n] - 
    S2[a1, a5, a2, a3, SP[a4, a6], n] - S2[a4, n]*S2[a1, a5, a2, a6, a3, n] - 
    S2[a1, a5, a2, a6, SP[a3, a4], n] - S2[a1, a5, a2, SP[a3, a4], a6, n] - 
    S2[a1, a5, a2, SP[a4, a6], a3, n] - S2[a4, n]*S2[a1, a5, a3, a2, a6, n] - 
    S2[a1, a5, a3, a2, SP[a4, a6], n] + S2[a2, n]*S2[a1, a5, a3, a4, a6, n] + 
    S2[a1, a5, a3, a4, SP[a2, a6], n] - S2[a4, n]*S2[a1, a5, a3, a6, a2, n] + 
    S2[a2, n]*S2[a1, a5, a3, a6, a4, n] + S2[a1, a5, a3, SP[a2, a6], a4, n] - 
    S2[a1, a5, a3, SP[a4, a6], a2, n] + S2[a2, n]*S2[a1, a5, a4, a3, a6, n] + 
    S2[a1, a5, a4, a3, SP[a2, a6], n] + S2[a2, n]*S2[a1, a5, a4, a6, a3, n] + 
    S2[a1, a5, a4, a6, SP[a2, a3], n] + S2[a1, a5, a4, SP[a2, a3], a6, n] + 
    S2[a1, a5, a4, SP[a2, a6], a3, n] - S2[a4, n]*S2[a1, a5, a6, a2, a3, n] - 
    S2[a1, a5, a6, a2, SP[a3, a4], n] - S2[a4, n]*S2[a1, a5, a6, a3, a2, n] + 
    S2[a2, n]*S2[a1, a5, a6, a3, a4, n] + 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] + S2[a1, a5, a6, a4, SP[a2, a3], n] + 
    S2[a1, a5, a6, SP[a2, a3], a4, n] - S2[a1, a5, a6, SP[a3, a4], a2, n] + 
    S2[a1, a5, SP[a2, a3], a4, a6, n] + S2[a1, a5, SP[a2, a3], a6, a4, n] + 
    S2[a1, a5, SP[a2, a6], a3, a4, n] + S2[a1, a5, SP[a2, a6], a4, a3, n] - 
    S2[a1, a5, SP[a3, a4], a2, a6, n] - S2[a1, a5, SP[a3, a4], a6, a2, n] - 
    S2[a1, a5, SP[a4, a6], a2, a3, n] - S2[a1, a5, SP[a4, a6], a3, a2, n] + 
    S2[a1, a6, a2, a3, SP[a4, a5], n] + S2[a1, a6, a2, SP[a3, a5], a4, n] + 
    S2[a1, a6, a3, a5, SP[a2, a4], n] + S2[a1, a6, a3, SP[a4, a5], a2, n] - 
    S2[a3, n]*S2[a1, a6, a4, a2, a5, n] - S2[a1, a6, a4, a2, SP[a3, a5], n] + 
    S2[a2, n]*S2[a1, a6, a4, a3, a5, n] + S2[a1, a6, a4, a3, SP[a2, a5], n] - 
    S2[a3, n]*S2[a1, a6, a4, a5, a2, n] + 
    S2[a2, n]*S2[a1, a6, a4, a5, a3, n] + S2[a1, a6, a4, SP[a2, a5], a3, n] - 
    S2[a1, a6, a4, SP[a3, a5], a2, n] - S2[a3, n]*S2[a1, a6, a5, a2, a4, n] - 
    S2[a1, a6, a5, a2, SP[a3, a4], n] + S2[a1, a6, a5, a3, SP[a2, a4], n] - 
    S2[a3, n]*S2[a1, a6, a5, a4, a2, n] + 
    S2[a2, n]*S2[a1, a6, a5, a4, a3, n] + S2[a1, a6, a5, SP[a2, a4], a3, n] - 
    S2[a1, a6, a5, SP[a3, a4], a2, n] + S2[a1, a6, SP[a2, a4], a3, a5, n] + 
    S2[a1, a6, SP[a2, a4], a5, a3, n] + S2[a1, a6, SP[a2, a5], a3, a4, n] + 
    S2[a1, a6, SP[a2, a5], a4, a3, n] - S2[a1, a6, SP[a3, a4], a2, a5, n] - 
    S2[a1, a6, SP[a3, a4], a5, a2, n] + S2[a1, SP[a2, a3], a4, a5, a6, n] + 
    S2[a1, SP[a2, a3], a5, a4, a6, n] + S2[a1, SP[a2, a3], a5, a6, a4, n] + 
    S2[a1, SP[a2, a4], a3, a5, a6, n] + S2[a1, SP[a2, a4], a3, a6, a5, n] + 
    S2[a1, SP[a2, a4], a5, a3, a6, n] + S2[a1, SP[a2, a4], a5, a6, a3, n] + 
    S2[a1, SP[a2, a4], a6, a3, a5, n] + S2[a1, SP[a2, a4], a6, a5, a3, n] + 
    S2[a1, SP[a2, a5], a3, a4, a6, n] + S2[a1, SP[a2, a5], a3, a6, a4, n] + 
    S2[a1, SP[a2, a5], a4, a3, a6, n] + S2[a1, SP[a2, a5], a4, a6, a3, n] + 
    S2[a1, SP[a2, a5], a6, a3, a4, n] + S2[a1, SP[a2, a5], a6, a4, a3, n] - 
    2*S2[a1, SP[a3, a4], a2, a5, a6, n] - S2[a1, SP[a3, a4], a2, a6, a5, n] - 
    S2[a1, SP[a3, a4], a5, a2, a6, n] - S2[a1, SP[a3, a4], a5, a6, a2, n] - 
    S2[a1, SP[a3, a4], a6, a2, a5, n] - S2[a1, SP[a3, a4], a6, a5, a2, n] - 
    S2[a1, SP[a4, a5], a2, a3, a6, n] - S2[a1, SP[a4, a5], a2, a6, a3, n] - 
    S2[a1, SP[a4, a5], a3, a2, a6, n] - S2[a1, SP[a4, a5], a3, a6, a2, n] - 
    S2[a1, SP[a4, a5], a6, a2, a3, n] - S2[a1, SP[a4, a5], a6, a3, a2, n] - 
    S2[a2, a1, a3, a4, SP[a5, a6], n] - S2[a2, a1, a3, a5, SP[a4, a6], n] + 
    S2[a2, a1, a3, a6, SP[a4, a5], n] - S2[a2, a1, a3, SP[a5, a6], a4, n] - 
    S2[a2, a1, a4, a3, SP[a5, a6], n] - S2[a2, a1, a4, a5, SP[a3, a6], n] - 
    S2[a2, a1, a4, SP[a3, a6], a5, n] - S2[a2, a1, a4, SP[a5, a6], a3, n] - 
    S2[a2, a1, a5, a3, SP[a4, a6], n] - S2[a2, a1, a5, a4, SP[a3, a6], n] - 
    S2[a2, a1, a5, SP[a3, a6], a4, n] - S2[a2, a1, a5, SP[a4, a6], a3, n] + 
    S2[a2, a1, a6, a3, SP[a4, a5], n] + S2[a2, a1, a6, SP[a3, a5], a4, n] - 
    S2[a2, a1, SP[a4, a6], a3, a5, n] - S2[a2, a1, SP[a4, a6], a5, a3, n] - 
    S2[a2, a1, SP[a5, a6], a3, a4, n] - S2[a2, a1, SP[a5, a6], a4, a3, n] - 
    S2[a2, a3, a1, a4, SP[a5, a6], n] + S2[a4, n]*S2[a2, a3, a1, a5, a6, n] + 
    S2[a2, a3, a1, a6, SP[a4, a5], n] + S2[a2, a3, a1, SP[a4, a5], a6, n] - 
    S2[a2, a3, a1, SP[a5, a6], a4, n] - S2[a2, a3, a4, a1, SP[a5, a6], n] - 
    S2[a2, a3, a4, SP[a1, a5], a6, n] + S2[a4, n]*S2[a2, a3, a5, a1, a6, n] - 
    S2[a2, a3, SP[a1, a5], a4, a6, n] - S2[a2, a3, SP[a1, a5], a6, a4, n] + 
    S2[a2, a3, SP[a4, a5], a1, a6, n] - S2[a2, a4, a1, a3, SP[a5, a6], n] + 
    S2[a3, n]*S2[a2, a4, a1, a5, a6, n] + 
    S2[a3, n]*S2[a2, a4, a1, a6, a5, n] + S2[a2, a4, a1, a6, SP[a3, a5], n] + 
    S2[a2, a4, a1, SP[a3, a5], a6, n] - S2[a2, a4, a1, SP[a5, a6], a3, n] - 
    S2[a2, a4, a3, a1, SP[a5, a6], n] - S2[a2, a4, a3, SP[a1, a5], a6, n] - 
    S2[a2, a4, a5, a1, SP[a3, a6], n] - S2[a2, a4, a5, SP[a1, a3], a6, n] - 
    S2[a2, a4, SP[a1, a5], a3, a6, n] - S2[a2, a4, SP[a1, a5], a6, a3, n] + 
    S2[a4, n]*S2[a2, a5, a1, a3, a6, n] - S2[a2, a5, a1, a4, SP[a3, a6], n] + 
    S2[a4, n]*S2[a2, a5, a1, a6, a3, n] + S2[a2, a5, a1, a6, SP[a3, a4], n] + 
    S2[a2, a5, a1, SP[a3, a4], a6, n] - S2[a2, a5, a1, SP[a3, a6], a4, n] + 
    S2[a4, n]*S2[a2, a5, a3, a1, a6, n] - S2[a2, a5, a4, a1, SP[a3, a6], n] - 
    S2[a2, a5, a4, SP[a1, a3], a6, n] - S2[a2, a5, SP[a1, a3], a4, a6, n] - 
    S2[a2, a5, SP[a1, a3], a6, a4, n] + S2[a2, a5, SP[a3, a4], a1, a6, n] - 
    S2[a2, SP[a1, a3], a4, a5, a6, n] - S2[a2, SP[a1, a3], a5, a4, a6, n] - 
    S2[a2, SP[a1, a3], a5, a6, a4, n] - S2[a2, SP[a1, a4], a3, a5, a6, n] - 
    S2[a2, SP[a1, a4], a3, a6, a5, n] - S2[a2, SP[a1, a4], a5, a3, a6, n] - 
    S2[a2, SP[a1, a4], a5, a6, a3, n] - S2[a2, SP[a1, a4], a6, a3, a5, n] - 
    S2[a2, SP[a1, a4], a6, a5, a3, n] - S2[a2, SP[a1, a5], a3, a4, a6, n] - 
    S2[a2, SP[a1, a5], a3, a6, a4, n] - S2[a2, SP[a1, a5], a4, a3, a6, n] - 
    S2[a2, SP[a1, a5], a4, a6, a3, n] - S2[a2, SP[a1, a5], a6, a3, a4, n] - 
    S2[a2, SP[a1, a5], a6, a4, a3, n] + 2*S2[a2, SP[a3, a4], a1, a5, a6, n] + 
    S2[a2, SP[a3, a4], a1, a6, a5, n] + S2[a2, SP[a3, a4], a5, a1, a6, n] + 
    S2[a2, SP[a4, a5], a1, a3, a6, n] + S2[a2, SP[a4, a5], a1, a6, a3, n] + 
    S2[a2, SP[a4, a5], a3, a1, a6, n] + S2[a3, a1, a4, a2, SP[a5, a6], n] + 
    S2[a3, a1, a4, SP[a2, a6], a5, n] + S2[a3, a1, a6, a5, SP[a2, a4], n] + 
    S2[a3, a1, a6, SP[a4, a5], a2, n] + S2[a3, a1, SP[a4, a6], a2, a5, n] + 
    S2[a3, a1, SP[a4, a6], a5, a2, n] + S2[a3, a4, a1, a2, SP[a5, a6], n] - 
    S2[a2, n]*S2[a3, a4, a1, a5, a6, n] - S2[a3, a4, a1, a5, SP[a2, a6], n] - 
    S2[a2, n]*S2[a3, a4, a1, a6, a5, n] - S2[a3, a4, a1, a6, SP[a2, a5], n] - 
    S2[a3, a4, a1, SP[a2, a5], a6, n] + S2[a3, a4, a2, a1, SP[a5, a6], n] + 
    S2[a3, a4, a2, SP[a1, a5], a6, n] + S2[a3, SP[a1, a4], a2, a5, a6, n] + 
    S2[a3, SP[a1, a4], a2, a6, a5, n] + S2[a3, SP[a1, a4], a6, a2, a5, n] + 
    S2[a3, SP[a1, a4], a6, a5, a2, n] - S2[a3, SP[a2, a4], a1, a5, a6, n] - 
    S2[a3, SP[a2, a4], a1, a6, a5, n] + S2[a3, n]*S2[a4, a1, a5, a2, a6, n] + 
    S2[a4, a1, a5, a2, SP[a3, a6], n] + S2[a3, n]*S2[a4, a1, a5, a6, a2, n] + 
    S2[a4, a1, a5, a6, SP[a2, a3], n] + S2[a4, a1, a5, SP[a2, a3], a6, n] + 
    S2[a4, a1, a5, SP[a3, a6], a2, n] + S2[a4, a1, SP[a3, a5], a2, a6, n] + 
    S2[a4, a1, SP[a3, a5], a6, a2, n] - S2[a3, n]*S2[a4, a2, a5, a1, a6, n] - 
    S2[a4, a2, a5, a1, SP[a3, a6], n] - S2[a4, a2, a5, SP[a1, a3], a6, n] - 
    S2[a4, a2, SP[a3, a5], a1, a6, n] - S2[a2, n]*S2[a4, a3, a1, a5, a6, n] - 
    S2[a4, a3, a1, a5, SP[a2, a6], n] - S2[a4, a3, a1, SP[a2, a5], a6, n] + 
    S2[a1, n]*S2[a4, a3, a2, a5, a6, n] + S2[a4, a3, a2, a5, SP[a1, a6], n] + 
    S2[a4, a3, a2, SP[a1, a5], a6, n] + S2[a4, SP[a1, a3], a2, a5, a6, n] + 
    S2[a4, SP[a1, a3], a5, a2, a6, n] + S2[a4, SP[a1, a3], a5, a6, a2, n] - 
    S2[a4, SP[a2, a3], a1, a5, a6, n] - S2[a4, SP[a2, a3], a5, a1, a6, n] - 
    S2[a1, n]*S2[a6, a5, a2, a3, a4, n] - S2[a6, a5, a2, a3, SP[a1, a4], n] - 
    S2[a6, a5, a2, SP[a1, a3], a4, n] - S2[a6, a5, SP[a1, a2], a3, a4, n] - 
    S2[a6, SP[a1, a5], a2, a3, a4, n] - S2[SP[a1, a4], a3, a5, a2, a6, n] - 
    S2[SP[a1, a4], a3, a5, a6, a2, n] - S2[SP[a1, a4], a5, a2, a3, a6, n] - 
    S2[SP[a1, a4], a5, a2, a6, a3, n] - S2[SP[a1, a4], a5, a3, a2, a6, n] - 
    S2[SP[a1, a4], a5, a3, a6, a2, n] - S2[SP[a1, a4], a5, a6, a2, a3, n] - 
    S2[SP[a1, a4], a5, a6, a3, a2, n] - S2[SP[a1, a6], a5, a2, a3, a4, n] + 
    S2[SP[a2, a4], a3, a5, a1, a6, n] + S2[SP[a2, a4], a5, a1, a3, a6, n] + 
    S2[SP[a2, a4], a5, a1, a6, a3, n] + S2[SP[a2, a4], a5, a3, a1, a6, n] + 
    S2[SP[a3, a4], a1, a5, a2, a6, n] + S2[SP[a3, a4], a1, a5, a6, a2, n] - 
    S2[SP[a3, a4], a2, a5, a1, a6, n] + S2[a6, a1, a5, a2, a3, a4, n] + 
    S2[a6, a5, a1, a2, a3, a4, n] + S2[a6, a5, a2, a1, a3, a4, n] + 
    S2[a6, a5, a2, a3, a1, a4, n] + S2[a6, a5, a2, a3, a4, a1, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a4_, a3_, a2_, a6_, a1_, a5_, n_] :> 
  -(S2[a1, a5, a6, n]*S2[a2, a3, a4, n]) - S2[a1, a6, a5, n]*
     S2[a2, a3, a4, n] - S2[SP[a1, a2], SP[a3, a5], SP[a4, a6], n] - 
    S2[SP[a1, a2], SP[a3, a6], SP[a4, a5], n] + S2[a1, a2, SP[a3, a5], 
     SP[a4, a6], n] + S2[a1, a2, SP[a3, a6], SP[a4, a5], n] - 
    S2[a3, a4, n]*S2[a1, a5, a6, a2, n] + S2[a1, a5, SP[a3, a6], SP[a2, a4], 
     n] - S2[a3, a4, n]*S2[a1, a6, a2, a5, n] - 
    S2[a3, a4, n]*S2[a1, a6, a5, a2, n] + S2[a1, a6, SP[a2, a3], SP[a4, a5], 
     n] + S2[a1, a6, SP[a3, a5], SP[a2, a4], n] + S2[a1, SP[a2, a5], a3, 
     SP[a4, a6], n] + S2[a1, SP[a2, a5], SP[a3, a6], a4, n] + 
    S2[a1, SP[a2, a6], a3, SP[a4, a5], n] + S2[a1, SP[a2, a6], SP[a3, a5], 
     a4, n] + S2[a1, SP[a3, a5], a6, SP[a2, a4], n] + 
    S2[a1, SP[a3, a5], SP[a4, a6], a2, n] + S2[a1, SP[a3, a6], a2, 
     SP[a4, a5], n] + S2[a1, SP[a3, a6], a5, SP[a2, a4], n] + 
    S2[a1, SP[a3, a6], SP[a2, a4], a5, n] + S2[a1, SP[a3, a6], SP[a4, a5], 
     a2, n] + S2[a2, a1, SP[a3, a5], SP[a4, a6], n] + 
    S2[a2, a1, SP[a3, a6], SP[a4, a5], n] + S2[a1, a5, n]*
     S2[a2, a4, a3, a6, n] + S2[a1, a5, n]*S2[a2, a4, a6, a3, n] - 
    S2[a2, a4, SP[a1, a3], SP[a5, a6], n] - S2[a2, a4, SP[a1, a6], 
     SP[a3, a5], n] + S2[a1, a5, n]*S2[a2, a6, a4, a3, n] - 
    S2[a2, a6, SP[a1, a4], SP[a3, a5], n] + S2[a2, SP[a1, a3], a5, 
     SP[a4, a6], n] + S2[a2, SP[a1, a3], a6, SP[a4, a5], n] + 
    S2[a2, SP[a1, a3], SP[a4, a5], a6, n] + S2[a2, SP[a1, a3], SP[a4, a6], 
     a5, n] - S2[a2, SP[a1, a4], a3, SP[a5, a6], n] - 
    S2[a2, SP[a1, a4], a6, SP[a3, a5], n] - S2[a2, SP[a1, a4], SP[a3, a5], 
     a6, n] - S2[a2, SP[a1, a4], SP[a5, a6], a3, n] - 
    S2[a2, SP[a1, a6], a4, SP[a3, a5], n] - S2[a2, SP[a1, a6], SP[a4, a5], 
     a3, n] - S2[a1, a5, n]*S2[a3, a4, a2, a6, n] + 
    S2[a3, a4, SP[a1, a2], SP[a5, a6], n] + S2[a3, SP[a1, a4], a2, 
     SP[a5, a6], n] + S2[a3, SP[a1, a4], SP[a2, a5], a6, n] + 
    S2[SP[a1, a2], a3, a5, SP[a4, a6], n] + S2[SP[a1, a2], a3, a6, 
     SP[a4, a5], n] + S2[SP[a1, a2], a3, SP[a4, a5], a6, n] + 
    S2[SP[a1, a2], a3, SP[a4, a6], a5, n] - S2[SP[a1, a2], a4, a3, 
     SP[a5, a6], n] - S2[SP[a1, a2], a4, a6, SP[a3, a5], n] - 
    S2[SP[a1, a2], a4, SP[a3, a5], a6, n] - S2[SP[a1, a2], a4, SP[a5, a6], 
     a3, n] + S2[SP[a1, a2], a5, a3, SP[a4, a6], n] + 
    S2[SP[a1, a2], a5, SP[a3, a6], a4, n] + S2[SP[a1, a2], a6, a3, 
     SP[a4, a5], n] - S2[SP[a1, a2], a6, a4, SP[a3, a5], n] + 
    S2[SP[a1, a2], a6, SP[a3, a5], a4, n] - S2[SP[a1, a2], a6, SP[a4, a5], 
     a3, n] + S2[SP[a1, a2], SP[a3, a5], a4, a6, n] + 
    S2[SP[a1, a2], SP[a3, a5], a6, a4, n] + S2[SP[a1, a2], SP[a3, a6], a4, 
     a5, n] + S2[SP[a1, a2], SP[a3, a6], a5, a4, n] - 
    S2[SP[a1, a2], SP[a4, a5], a3, a6, n] - S2[SP[a1, a2], SP[a4, a5], a6, 
     a3, n] - S2[SP[a1, a2], SP[a5, a6], a4, a3, n] + 
    S2[SP[a1, a3], a4, a2, SP[a5, a6], n] + S2[SP[a1, a3], a4, SP[a2, a5], 
     a6, n] + S2[SP[a1, a3], a5, a6, SP[a2, a4], n] + 
    S2[SP[a1, a3], a5, SP[a4, a6], a2, n] + S2[SP[a1, a3], a6, a2, 
     SP[a4, a5], n] + S2[SP[a1, a3], a6, a5, SP[a2, a4], n] + 
    S2[SP[a1, a3], a6, SP[a2, a4], a5, n] + S2[SP[a1, a3], a6, SP[a4, a5], 
     a2, n] + S2[SP[a1, a3], SP[a4, a5], a2, a6, n] + 
    S2[SP[a1, a3], SP[a4, a5], a6, a2, n] + S2[SP[a1, a3], SP[a4, a6], a2, 
     a5, n] + S2[SP[a1, a3], SP[a4, a6], a5, a2, n] - 
    S2[a1, a2, a3, a5, SP[a4, a6], n] - S2[a1, a2, a3, a6, SP[a4, a5], n] - 
    S2[a1, a2, a3, SP[a4, a5], a6, n] - S2[a1, a2, a3, SP[a4, a6], a5, n] + 
    S2[a1, a2, a4, a3, SP[a5, a6], n] + S2[a1, a2, a4, a6, SP[a3, a5], n] + 
    S2[a1, a2, a4, SP[a3, a5], a6, n] + S2[a1, a2, a4, SP[a5, a6], a3, n] - 
    S2[a1, a2, a5, a3, SP[a4, a6], n] - S2[a1, a2, a5, SP[a3, a6], a4, n] - 
    S2[a1, a2, a6, a3, SP[a4, a5], n] + S2[a1, a2, a6, a4, SP[a3, a5], n] - 
    S2[a1, a2, a6, SP[a3, a5], a4, n] + S2[a1, a2, a6, SP[a4, a5], a3, n] - 
    S2[a1, a2, SP[a3, a5], a4, a6, n] - S2[a1, a2, SP[a3, a5], a6, a4, n] - 
    S2[a1, a2, SP[a3, a6], a4, a5, n] - S2[a1, a2, SP[a3, a6], a5, a4, n] + 
    S2[a1, a2, SP[a4, a5], a3, a6, n] + S2[a1, a2, SP[a4, a5], a6, a3, n] + 
    S2[a1, a2, SP[a5, a6], a4, a3, n] - S2[a6, n]*S2[a1, a3, a2, a4, a5, n] - 
    S2[a1, a3, a2, a4, SP[a5, a6], n] - S2[a6, n]*S2[a1, a3, a2, a5, a4, n] - 
    S2[a1, a3, a2, a5, SP[a4, a6], n] - S2[a1, a3, a2, SP[a4, a6], a5, n] - 
    S2[a1, a3, a2, SP[a5, a6], a4, n] - S2[a6, n]*S2[a1, a3, a4, a2, a5, n] - 
    2*S2[a1, a3, a4, a2, SP[a5, a6], n] - 
    S2[a6, n]*S2[a1, a3, a4, a5, a2, n] + 
    S2[a2, n]*S2[a1, a3, a4, a5, a6, n] + 
    S2[a2, n]*S2[a1, a3, a4, a6, a5, n] + S2[a1, a3, a4, a6, SP[a2, a5], n] - 
    S2[a1, a3, a4, SP[a5, a6], a2, n] - S2[a6, n]*S2[a1, a3, a5, a2, a4, n] - 
    S2[a1, a3, a5, a2, SP[a4, a6], n] - S2[a6, n]*S2[a1, a3, a5, a4, a2, n] + 
    S2[a2, n]*S2[a1, a3, a5, a4, a6, n] + 
    S2[a2, n]*S2[a1, a3, a5, a6, a4, n] + S2[a1, a3, a5, SP[a2, a4], a6, n] - 
    2*S2[a1, a3, a5, SP[a4, a6], a2, n] - S2[a1, a3, a6, a2, SP[a4, a5], n] + 
    S2[a2, n]*S2[a1, a3, a6, a4, a5, n] + S2[a1, a3, a6, a4, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a3, a6, a5, a4, n] + S2[a1, a3, a6, SP[a2, a5], a4, n] - 
    S2[a1, a3, a6, SP[a4, a5], a2, n] + S2[a1, a3, SP[a2, a4], a5, a6, n] + 
    S2[a1, a3, SP[a2, a4], a6, a5, n] + S2[a1, a3, SP[a2, a5], a4, a6, n] + 
    S2[a1, a3, SP[a2, a5], a6, a4, n] - S2[a1, a3, SP[a4, a5], a2, a6, n] - 
    S2[a1, a3, SP[a4, a5], a6, a2, n] - 2*S2[a1, a3, SP[a4, a6], a2, a5, n] - 
    2*S2[a1, a3, SP[a4, a6], a5, a2, n] - S2[a1, a3, SP[a5, a6], a2, a4, n] - 
    S2[a1, a3, SP[a5, a6], a4, a2, n] + S2[a3, n]*S2[a1, a4, a2, a5, a6, n] + 
    S2[a1, a4, a2, a5, SP[a3, a6], n] + S2[a3, n]*S2[a1, a4, a2, a6, a5, n] + 
    S2[a1, a4, a2, a6, SP[a3, a5], n] + S2[a1, a4, a2, SP[a3, a5], a6, n] + 
    S2[a1, a4, a2, SP[a3, a6], a5, n] - S2[a2, n]*S2[a1, a4, a3, a5, a6, n] - 
    S2[a1, a4, a3, a5, SP[a2, a6], n] - S2[a2, n]*S2[a1, a4, a3, a6, a5, n] - 
    S2[a1, a4, a3, a6, SP[a2, a5], n] - S2[a1, a4, a3, SP[a2, a5], a6, n] - 
    S2[a1, a4, a3, SP[a2, a6], a5, n] + S2[a3, n]*S2[a1, a4, a5, a2, a6, n] + 
    S2[a1, a4, a5, a2, SP[a3, a6], n] - S2[a2, n]*S2[a1, a4, a5, a3, a6, n] - 
    S2[a1, a4, a5, a3, SP[a2, a6], n] + S2[a3, n]*S2[a1, a4, a5, a6, a2, n] - 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] - S2[a1, a4, a5, SP[a2, a6], a3, n] + 
    S2[a1, a4, a5, SP[a3, a6], a2, n] + S2[a3, n]*S2[a1, a4, a6, a2, a5, n] + 
    S2[a1, a4, a6, a2, SP[a3, a5], n] - S2[a2, n]*S2[a1, a4, a6, a3, a5, n] - 
    S2[a1, a4, a6, a3, SP[a2, a5], n] + S2[a3, n]*S2[a1, a4, a6, a5, a2, n] - 
    S2[a2, n]*S2[a1, a4, a6, a5, a3, n] - S2[a1, a4, a6, SP[a2, a5], a3, n] + 
    S2[a1, a4, a6, SP[a3, a5], a2, n] - S2[a1, a4, SP[a2, a5], a3, a6, n] - 
    S2[a1, a4, SP[a2, a5], a6, a3, n] - S2[a1, a4, SP[a2, a6], a3, a5, n] - 
    S2[a1, a4, SP[a2, a6], a5, a3, n] + S2[a1, a4, SP[a3, a5], a2, a6, n] + 
    S2[a1, a4, SP[a3, a5], a6, a2, n] + S2[a1, a4, SP[a3, a6], a2, a5, n] + 
    S2[a1, a4, SP[a3, a6], a5, a2, n] - S2[a1, a5, a2, a3, SP[a4, a6], n] - 
    S2[a1, a5, a2, SP[a3, a6], a4, n] - S2[a6, n]*S2[a1, a5, a3, a2, a4, n] - 
    S2[a1, a5, a3, a2, SP[a4, a6], n] - S2[a6, n]*S2[a1, a5, a3, a4, a2, n] + 
    S2[a2, n]*S2[a1, a5, a3, a4, a6, n] + 
    S2[a2, n]*S2[a1, a5, a3, a6, a4, n] + S2[a1, a5, a3, SP[a2, a4], a6, n] - 
    2*S2[a1, a5, a3, SP[a4, a6], a2, n] + 
    S2[a3, n]*S2[a1, a5, a4, a2, a6, n] + S2[a1, a5, a4, a2, SP[a3, a6], n] - 
    S2[a2, n]*S2[a1, a5, a4, a3, a6, n] - S2[a1, a5, a4, a3, SP[a2, a6], n] + 
    S2[a3, n]*S2[a1, a5, a4, a6, a2, n] - 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] - S2[a1, a5, a4, SP[a2, a6], a3, n] + 
    S2[a1, a5, a4, SP[a3, a6], a2, n] + S2[a3, n]*S2[a1, a5, a6, a2, a4, n] + 
    S2[a1, a5, a6, a2, SP[a3, a4], n] + S2[a2, n]*S2[a1, a5, a6, a3, a4, n] + 
    S2[a3, n]*S2[a1, a5, a6, a4, a2, n] - 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] + S2[a1, a5, a6, SP[a2, a3], a4, n] - 
    S2[a1, a5, a6, SP[a2, a4], a3, n] + S2[a1, a5, a6, SP[a3, a4], a2, n] + 
    S2[a1, a5, SP[a2, a3], a4, a6, n] + S2[a1, a5, SP[a2, a3], a6, a4, n] - 
    S2[a1, a5, SP[a2, a4], a3, a6, n] - S2[a1, a5, SP[a2, a4], a6, a3, n] - 
    S2[a1, a5, SP[a2, a6], a4, a3, n] + S2[a1, a5, SP[a3, a4], a2, a6, n] + 
    S2[a1, a5, SP[a3, a4], a6, a2, n] - S2[a1, a5, SP[a3, a6], a2, a4, n] - 
    S2[a1, a5, SP[a3, a6], a4, a2, n] - 2*S2[a1, a6, a2, a3, SP[a4, a5], n] + 
    S2[a3, n]*S2[a1, a6, a2, a4, a5, n] + S2[a1, a6, a2, a4, SP[a3, a5], n] + 
    S2[a3, n]*S2[a1, a6, a2, a5, a4, n] + S2[a1, a6, a2, a5, SP[a3, a4], n] + 
    S2[a1, a6, a2, SP[a3, a4], a5, n] - S2[a1, a6, a2, SP[a3, a5], a4, n] - 
    S2[a1, a6, a3, a2, SP[a4, a5], n] + S2[a2, n]*S2[a1, a6, a3, a4, a5, n] + 
    S2[a1, a6, a3, a4, SP[a2, a5], n] + S2[a2, n]*S2[a1, a6, a3, a5, a4, n] + 
    S2[a1, a6, a3, SP[a2, a5], a4, n] - S2[a1, a6, a3, SP[a4, a5], a2, n] + 
    S2[a3, n]*S2[a1, a6, a4, a2, a5, n] + S2[a1, a6, a4, a2, SP[a3, a5], n] - 
    S2[a2, n]*S2[a1, a6, a4, a3, a5, n] - S2[a1, a6, a4, a3, SP[a2, a5], n] + 
    S2[a3, n]*S2[a1, a6, a4, a5, a2, n] - 
    S2[a2, n]*S2[a1, a6, a4, a5, a3, n] - S2[a1, a6, a4, SP[a2, a5], a3, n] + 
    S2[a1, a6, a4, SP[a3, a5], a2, n] + S2[a3, n]*S2[a1, a6, a5, a2, a4, n] + 
    S2[a1, a6, a5, a2, SP[a3, a4], n] + S2[a2, n]*S2[a1, a6, a5, a3, a4, n] + 
    S2[a3, n]*S2[a1, a6, a5, a4, a2, n] - 
    S2[a2, n]*S2[a1, a6, a5, a4, a3, n] + S2[a1, a6, a5, SP[a2, a3], a4, n] - 
    S2[a1, a6, a5, SP[a2, a4], a3, n] + S2[a1, a6, a5, SP[a3, a4], a2, n] + 
    S2[a1, a6, SP[a2, a3], a4, a5, n] + S2[a1, a6, SP[a2, a3], a5, a4, n] - 
    S2[a1, a6, SP[a2, a4], a3, a5, n] - S2[a1, a6, SP[a2, a4], a5, a3, n] - 
    S2[a1, a6, SP[a2, a5], a4, a3, n] + S2[a1, a6, SP[a3, a4], a2, a5, n] + 
    S2[a1, a6, SP[a3, a4], a5, a2, n] + S2[a1, SP[a2, a3], a4, a5, a6, n] + 
    S2[a1, SP[a2, a3], a4, a6, a5, n] + S2[a1, SP[a2, a3], a5, a4, a6, n] + 
    S2[a1, SP[a2, a3], a5, a6, a4, n] + S2[a1, SP[a2, a3], a6, a4, a5, n] + 
    S2[a1, SP[a2, a3], a6, a5, a4, n] - S2[a1, SP[a2, a4], a3, a5, a6, n] - 
    S2[a1, SP[a2, a4], a3, a6, a5, n] - S2[a1, SP[a2, a4], a5, a3, a6, n] - 
    S2[a1, SP[a2, a4], a5, a6, a3, n] - S2[a1, SP[a2, a4], a6, a3, a5, n] - 
    S2[a1, SP[a2, a4], a6, a5, a3, n] - S2[a1, SP[a2, a6], a4, a3, a5, n] - 
    S2[a1, SP[a2, a6], a4, a5, a3, n] - S2[a1, SP[a2, a6], a5, a4, a3, n] + 
    S2[a1, SP[a3, a4], a2, a5, a6, n] + S2[a1, SP[a3, a4], a2, a6, a5, n] + 
    S2[a1, SP[a3, a4], a5, a2, a6, n] + S2[a1, SP[a3, a4], a5, a6, a2, n] + 
    S2[a1, SP[a3, a4], a6, a2, a5, n] + S2[a1, SP[a3, a4], a6, a5, a2, n] - 
    S2[a1, SP[a3, a6], a2, a4, a5, n] - S2[a1, SP[a3, a6], a2, a5, a4, n] - 
    S2[a1, SP[a3, a6], a4, a2, a5, n] - S2[a1, SP[a3, a6], a4, a5, a2, n] - 
    S2[a1, SP[a3, a6], a5, a2, a4, n] - S2[a1, SP[a3, a6], a5, a4, a2, n] - 
    S2[a1, SP[a5, a6], a3, a2, a4, n] - S2[a1, SP[a5, a6], a3, a4, a2, n] - 
    S2[a2, a1, a3, a5, SP[a4, a6], n] - S2[a2, a1, a3, a6, SP[a4, a5], n] - 
    S2[a2, a1, a3, SP[a4, a5], a6, n] - S2[a2, a1, a3, SP[a4, a6], a5, n] + 
    S2[a2, a1, a4, a3, SP[a5, a6], n] + S2[a2, a1, a4, a6, SP[a3, a5], n] + 
    S2[a2, a1, a4, SP[a3, a5], a6, n] + S2[a2, a1, a4, SP[a5, a6], a3, n] - 
    S2[a2, a1, a5, a3, SP[a4, a6], n] - S2[a2, a1, a5, SP[a3, a6], a4, n] - 
    S2[a2, a1, a6, a3, SP[a4, a5], n] + S2[a2, a1, a6, a4, SP[a3, a5], n] - 
    S2[a2, a1, a6, SP[a3, a5], a4, n] + S2[a2, a1, a6, SP[a4, a5], a3, n] - 
    S2[a2, a1, SP[a3, a5], a4, a6, n] - S2[a2, a1, SP[a3, a5], a6, a4, n] - 
    S2[a2, a1, SP[a3, a6], a4, a5, n] - S2[a2, a1, SP[a3, a6], a5, a4, n] + 
    S2[a2, a1, SP[a4, a5], a3, a6, n] + S2[a2, a1, SP[a4, a5], a6, a3, n] + 
    S2[a2, a1, SP[a5, a6], a4, a3, n] + S2[a6, n]*S2[a2, a3, a1, a4, a5, n] + 
    S2[a2, a3, a1, a4, SP[a5, a6], n] + S2[a6, n]*S2[a2, a3, a1, a5, a4, n] - 
    S2[a2, a3, a1, a6, SP[a4, a5], n] - S2[a2, a3, a1, SP[a4, a5], a6, n] + 
    S2[a2, a3, a1, SP[a5, a6], a4, n] + S2[a6, n]*S2[a2, a3, a4, a1, a5, n] + 
    S2[a2, a3, a4, a1, SP[a5, a6], n] + S2[a2, a3, a4, SP[a1, a6], a5, n] - 
    S2[a4, n]*S2[a2, a3, a6, a1, a5, n] - S2[a2, a3, a6, a1, SP[a4, a5], n] - 
    S2[a2, a3, a6, SP[a1, a4], a5, n] - S2[a2, a3, SP[a1, a4], a5, a6, n] - 
    S2[a2, a3, SP[a1, a4], a6, a5, n] + S2[a2, a3, SP[a1, a6], a4, a5, n] + 
    S2[a2, a3, SP[a1, a6], a5, a4, n] + S2[a2, a4, a1, a3, SP[a5, a6], n] - 
    S2[a3, n]*S2[a2, a4, a1, a5, a6, n] - S2[a2, a4, a1, a5, SP[a3, a6], n] - 
    S2[a3, n]*S2[a2, a4, a1, a6, a5, n] - S2[a2, a4, a1, SP[a3, a6], a5, n] + 
    S2[a2, a4, a1, SP[a5, a6], a3, n] + S2[a2, a4, a3, a1, SP[a5, a6], n] + 
    S2[a2, a4, a3, SP[a1, a6], a5, n] + S2[a2, a4, a6, a1, SP[a3, a5], n] + 
    S2[a2, a4, a6, SP[a1, a3], a5, n] + S2[a2, a4, SP[a1, a6], a3, a5, n] + 
    S2[a2, a4, SP[a1, a6], a5, a3, n] - S2[a4, n]*S2[a2, a6, a1, a3, a5, n] - 
    S2[a2, a6, a1, a3, SP[a4, a5], n] + S2[a2, a6, a1, a4, SP[a3, a5], n] - 
    S2[a4, n]*S2[a2, a6, a1, a5, a3, n] - S2[a2, a6, a1, a5, SP[a3, a4], n] - 
    S2[a2, a6, a1, SP[a3, a4], a5, n] - S2[a4, n]*S2[a2, a6, a3, a1, a5, n] - 
    S2[a2, a6, a3, a1, SP[a4, a5], n] - S2[a2, a6, a3, SP[a1, a4], a5, n] + 
    S2[a2, a6, a4, a1, SP[a3, a5], n] + S2[a2, a6, a4, SP[a1, a3], a5, n] - 
    S2[a2, a6, SP[a3, a4], a1, a5, n] - S2[a2, SP[a1, a3], a4, a5, a6, n] - 
    S2[a2, SP[a1, a3], a4, a6, a5, n] - S2[a2, SP[a1, a3], a5, a4, a6, n] - 
    S2[a2, SP[a1, a3], a5, a6, a4, n] - S2[a2, SP[a1, a3], a6, a4, a5, n] - 
    S2[a2, SP[a1, a3], a6, a5, a4, n] + S2[a2, SP[a1, a4], a3, a5, a6, n] + 
    S2[a2, SP[a1, a4], a3, a6, a5, n] + S2[a2, SP[a1, a4], a5, a3, a6, n] + 
    S2[a2, SP[a1, a4], a5, a6, a3, n] + S2[a2, SP[a1, a4], a6, a3, a5, n] + 
    S2[a2, SP[a1, a4], a6, a5, a3, n] + S2[a2, SP[a1, a6], a4, a3, a5, n] + 
    S2[a2, SP[a1, a6], a4, a5, a3, n] + S2[a2, SP[a1, a6], a5, a4, a3, n] - 
    S2[a2, SP[a3, a4], a1, a5, a6, n] - S2[a2, SP[a3, a4], a1, a6, a5, n] - 
    S2[a2, SP[a3, a4], a6, a1, a5, n] + S2[a2, SP[a3, a6], a1, a4, a5, n] + 
    S2[a2, SP[a3, a6], a1, a5, a4, n] + S2[a2, SP[a3, a6], a4, a1, a5, n] - 
    S2[a2, SP[a4, a6], a1, a3, a5, n] - S2[a2, SP[a4, a6], a1, a5, a3, n] - 
    S2[a2, SP[a4, a6], a3, a1, a5, n] - S2[a3, a1, a4, a2, SP[a5, a6], n] - 
    S2[a3, a1, a4, SP[a2, a5], a6, n] - S2[a3, a1, a5, a6, SP[a2, a4], n] - 
    S2[a3, a1, a5, SP[a4, a6], a2, n] - S2[a3, a1, a6, a2, SP[a4, a5], n] - 
    S2[a3, a1, a6, a5, SP[a2, a4], n] - S2[a3, a1, a6, SP[a2, a4], a5, n] - 
    S2[a3, a1, a6, SP[a4, a5], a2, n] - S2[a3, a1, SP[a4, a5], a2, a6, n] - 
    S2[a3, a1, SP[a4, a5], a6, a2, n] - S2[a3, a1, SP[a4, a6], a2, a5, n] - 
    S2[a3, a1, SP[a4, a6], a5, a2, n] - S2[a3, a4, a1, a2, SP[a5, a6], n] + 
    S2[a2, n]*S2[a3, a4, a1, a5, a6, n] + S2[a3, a4, a1, a5, SP[a2, a6], n] + 
    S2[a2, n]*S2[a3, a4, a1, a6, a5, n] + S2[a3, a4, a1, a6, SP[a2, a5], n] + 
    S2[a3, a4, a1, SP[a2, a6], a5, n] - S2[a3, a4, a2, a1, SP[a5, a6], n] - 
    S2[a3, a4, a2, SP[a1, a6], a5, n] - S2[a3, SP[a1, a4], a2, a5, a6, n] - 
    S2[a3, SP[a1, a4], a2, a6, a5, n] - S2[a3, SP[a1, a4], a5, a2, a6, n] - 
    S2[a3, SP[a1, a4], a5, a6, a2, n] - S2[a3, SP[a1, a4], a6, a2, a5, n] - 
    S2[a3, SP[a1, a4], a6, a5, a2, n] + S2[a3, SP[a2, a4], a1, a5, a6, n] + 
    S2[a3, SP[a2, a4], a1, a6, a5, n] + S2[a3, n]*S2[a4, a2, a6, a1, a5, n] + 
    S2[a4, a2, a6, a1, SP[a3, a5], n] + S2[a4, a2, a6, SP[a1, a3], a5, n] + 
    S2[a4, a2, SP[a3, a6], a1, a5, n] + S2[a4, SP[a2, a3], a6, a1, a5, n] + 
    S2[a2, n]*S2[a6, a1, a3, a4, a5, n] + S2[a6, a1, a3, a4, SP[a2, a5], n] + 
    S2[a2, n]*S2[a6, a1, a3, a5, a4, n] + S2[a6, a1, a3, a5, SP[a2, a4], n] + 
    S2[a6, a1, a3, SP[a2, a4], a5, n] + S2[a6, a1, a3, SP[a2, a5], a4, n] + 
    S2[a2, n]*S2[a6, a1, a5, a3, a4, n] + S2[a6, a1, a5, a3, SP[a2, a4], n] + 
    S2[a6, a1, a5, SP[a2, a3], a4, n] + S2[a6, a1, SP[a2, a3], a4, a5, n] + 
    S2[a6, a1, SP[a2, a3], a5, a4, n] + S2[a6, a1, SP[a2, a5], a3, a4, n] + 
    S2[a6, SP[a1, a2], a3, a4, a5, n] + S2[a6, SP[a1, a2], a3, a5, a4, n] + 
    S2[a6, SP[a1, a2], a5, a3, a4, n] - S2[SP[a1, a6], a3, a2, a4, a5, n] - 
    S2[SP[a1, a6], a3, a2, a5, a4, n] - S2[SP[a1, a6], a3, a4, a2, a5, n] - 
    S2[SP[a1, a6], a3, a4, a5, a2, n] - S2[SP[a1, a6], a3, a5, a2, a4, n] - 
    S2[SP[a1, a6], a3, a5, a4, a2, n] - S2[SP[a1, a6], a5, a3, a2, a4, n] - 
    S2[SP[a1, a6], a5, a3, a4, a2, n] - S2[SP[a2, a4], a3, a6, a1, a5, n] - 
    S2[SP[a2, a4], a6, a1, a3, a5, n] - S2[SP[a2, a4], a6, a1, a5, a3, n] - 
    S2[SP[a2, a4], a6, a3, a1, a5, n] + S2[SP[a2, a6], a1, a3, a4, a5, n] + 
    S2[SP[a2, a6], a1, a3, a5, a4, n] + S2[SP[a2, a6], a1, a5, a3, a4, n] + 
    S2[SP[a2, a6], a3, a1, a4, a5, n] + S2[SP[a2, a6], a3, a1, a5, a4, n] + 
    S2[SP[a2, a6], a3, a4, a1, a5, n] + S2[SP[a3, a4], a2, a6, a1, a5, n] - 
    S2[a6, a1, a2, a3, a4, a5, n] - S2[a6, a1, a2, a3, a5, a4, n] - 
    S2[a6, a1, a2, a5, a3, a4, n] - S2[a6, a1, a5, a2, a3, a4, n] - 
    S2[a6, a2, a1, a3, a4, a5, n] - S2[a6, a2, a1, a3, a5, a4, n] - 
    S2[a6, a2, a1, a5, a3, a4, n] - S2[a6, a2, a3, a1, a4, a5, n] - 
    S2[a6, a2, a3, a1, a5, a4, n] - S2[a6, a2, a3, a4, a1, a5, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a4_, a3_, a2_, a6_, a5_, a1_, n_] :> 
  S2[a1, a5, a6, n]*S2[a2, a3, a4, n] + S2[SP[a1, a2], SP[a3, a5], 
     SP[a4, a6], n] - S2[a1, a2, SP[a3, a5], SP[a4, a6], n] + 
    S2[a3, a4, n]*S2[a1, a5, a6, a2, n] - S2[a1, a5, SP[a3, a6], SP[a2, a4], 
     n] - S2[a1, SP[a2, a5], a3, SP[a4, a6], n] - 
    S2[a1, SP[a2, a5], SP[a3, a6], a4, n] - S2[a1, SP[a3, a5], a6, 
     SP[a2, a4], n] - S2[a1, SP[a3, a5], SP[a4, a6], a2, n] - 
    S2[a2, a1, SP[a3, a5], SP[a4, a6], n] - S2[a1, a5, n]*
     S2[a2, a4, a3, a6, n] - S2[a1, a5, n]*S2[a2, a4, a6, a3, n] + 
    S2[a2, a4, SP[a1, a3], SP[a5, a6], n] + S2[a2, a4, SP[a1, a6], 
     SP[a3, a5], n] - S2[a1, a5, n]*S2[a2, a6, a4, a3, n] + 
    S2[a2, a6, SP[a1, a4], SP[a3, a5], n] - S2[a2, SP[a1, a3], a5, 
     SP[a4, a6], n] - S2[a2, SP[a1, a3], SP[a4, a5], a6, n] + 
    S2[a2, SP[a1, a4], a3, SP[a5, a6], n] + S2[a2, SP[a1, a4], a6, 
     SP[a3, a5], n] + S2[a2, SP[a1, a4], SP[a3, a5], a6, n] + 
    S2[a2, SP[a1, a4], SP[a5, a6], a3, n] + S2[a2, SP[a1, a6], a4, 
     SP[a3, a5], n] + S2[a2, SP[a1, a6], SP[a4, a5], a3, n] + 
    S2[a1, a5, n]*S2[a3, a4, a2, a6, n] - S2[a3, a4, SP[a1, a2], SP[a5, a6], 
     n] - S2[a3, SP[a1, a4], a2, SP[a5, a6], n] - 
    S2[a3, SP[a1, a4], SP[a2, a5], a6, n] - S2[SP[a1, a2], a3, a5, 
     SP[a4, a6], n] - S2[SP[a1, a2], a3, SP[a4, a5], a6, n] + 
    S2[SP[a1, a2], a4, a3, SP[a5, a6], n] + S2[SP[a1, a2], a4, a6, 
     SP[a3, a5], n] + S2[SP[a1, a2], a4, SP[a3, a5], a6, n] + 
    S2[SP[a1, a2], a4, SP[a5, a6], a3, n] - S2[SP[a1, a2], a5, a3, 
     SP[a4, a6], n] - S2[SP[a1, a2], a5, SP[a3, a6], a4, n] + 
    S2[SP[a1, a2], a6, a4, SP[a3, a5], n] + S2[SP[a1, a2], a6, SP[a4, a5], 
     a3, n] - S2[SP[a1, a2], SP[a3, a5], a4, a6, n] - 
    S2[SP[a1, a2], SP[a3, a5], a6, a4, n] + S2[SP[a1, a2], SP[a4, a5], a3, 
     a6, n] + S2[SP[a1, a2], SP[a4, a5], a6, a3, n] + 
    S2[SP[a1, a2], SP[a5, a6], a4, a3, n] - S2[SP[a1, a3], a4, a2, 
     SP[a5, a6], n] - S2[SP[a1, a3], a4, SP[a2, a5], a6, n] - 
    S2[SP[a1, a3], a5, a6, SP[a2, a4], n] - S2[SP[a1, a3], a5, SP[a4, a6], 
     a2, n] - S2[SP[a1, a3], SP[a4, a5], a2, a6, n] - 
    S2[SP[a1, a3], SP[a4, a5], a6, a2, n] + S2[a1, a2, a3, a5, SP[a4, a6], 
     n] + S2[a1, a2, a3, SP[a4, a5], a6, n] - S2[a1, a2, a4, a3, SP[a5, a6], 
     n] - S2[a1, a2, a4, a6, SP[a3, a5], n] - S2[a1, a2, a4, SP[a3, a5], a6, 
     n] - S2[a1, a2, a4, SP[a5, a6], a3, n] + S2[a1, a2, a5, a3, SP[a4, a6], 
     n] + S2[a1, a2, a5, SP[a3, a6], a4, n] - S2[a1, a2, a6, a4, SP[a3, a5], 
     n] - S2[a1, a2, a6, SP[a4, a5], a3, n] + S2[a1, a2, SP[a3, a5], a4, a6, 
     n] + S2[a1, a2, SP[a3, a5], a6, a4, n] - S2[a1, a2, SP[a4, a5], a3, a6, 
     n] - S2[a1, a2, SP[a4, a5], a6, a3, n] - S2[a1, a2, SP[a5, a6], a4, a3, 
     n] + S2[a6, n]*S2[a1, a3, a2, a4, a5, n] + S2[a1, a3, a2, a4, 
     SP[a5, a6], n] + S2[a6, n]*S2[a1, a3, a2, a5, a4, n] + 
    S2[a1, a3, a2, a5, SP[a4, a6], n] - S2[a4, n]*S2[a1, a3, a2, a6, a5, n] - 
    S2[a1, a3, a2, a6, SP[a4, a5], n] + S2[a1, a3, a2, SP[a5, a6], a4, n] + 
    S2[a6, n]*S2[a1, a3, a4, a2, a5, n] + 
    2*S2[a1, a3, a4, a2, SP[a5, a6], n] + 
    S2[a6, n]*S2[a1, a3, a4, a5, a2, n] - 
    S2[a2, n]*S2[a1, a3, a4, a5, a6, n] + S2[a1, a3, a4, SP[a2, a6], a5, n] + 
    S2[a1, a3, a4, SP[a5, a6], a2, n] + S2[a6, n]*S2[a1, a3, a5, a2, a4, n] + 
    S2[a1, a3, a5, a2, SP[a4, a6], n] + S2[a6, n]*S2[a1, a3, a5, a4, a2, n] - 
    S2[a2, n]*S2[a1, a3, a5, a4, a6, n] - 
    S2[a2, n]*S2[a1, a3, a5, a6, a4, n] - S2[a1, a3, a5, SP[a2, a4], a6, n] + 
    2*S2[a1, a3, a5, SP[a4, a6], a2, n] - 
    S2[a4, n]*S2[a1, a3, a6, a2, a5, n] - S2[a1, a3, a6, a2, SP[a4, a5], n] - 
    S2[a4, n]*S2[a1, a3, a6, a5, a2, n] - S2[a1, a3, a6, a5, SP[a2, a4], n] - 
    S2[a1, a3, a6, SP[a2, a4], a5, n] - S2[a1, a3, a6, SP[a4, a5], a2, n] - 
    S2[a1, a3, SP[a2, a4], a5, a6, n] - S2[a1, a3, SP[a2, a4], a6, a5, n] - 
    S2[a1, a3, SP[a2, a5], a4, a6, n] - S2[a1, a3, SP[a2, a5], a6, a4, n] + 
    S2[a1, a3, SP[a2, a6], a4, a5, n] + S2[a1, a3, SP[a2, a6], a5, a4, n] + 
    S2[a1, a3, SP[a4, a5], a2, a6, n] + S2[a1, a3, SP[a4, a5], a6, a2, n] + 
    S2[a1, a3, SP[a5, a6], a2, a4, n] + S2[a1, a3, SP[a5, a6], a4, a2, n] - 
    S2[a3, n]*S2[a1, a4, a2, a5, a6, n] - S2[a1, a4, a2, a5, SP[a3, a6], n] - 
    S2[a3, n]*S2[a1, a4, a2, a6, a5, n] - S2[a1, a4, a2, a6, SP[a3, a5], n] - 
    S2[a1, a4, a2, SP[a3, a5], a6, n] - S2[a1, a4, a2, SP[a3, a6], a5, n] + 
    S2[a2, n]*S2[a1, a4, a3, a5, a6, n] + S2[a1, a4, a3, a5, SP[a2, a6], n] + 
    S2[a2, n]*S2[a1, a4, a3, a6, a5, n] + S2[a1, a4, a3, a6, SP[a2, a5], n] + 
    S2[a1, a4, a3, SP[a2, a5], a6, n] + S2[a1, a4, a3, SP[a2, a6], a5, n] - 
    S2[a3, n]*S2[a1, a4, a5, a2, a6, n] - S2[a1, a4, a5, a2, SP[a3, a6], n] + 
    S2[a2, n]*S2[a1, a4, a5, a3, a6, n] + S2[a1, a4, a5, a3, SP[a2, a6], n] - 
    S2[a3, n]*S2[a1, a4, a5, a6, a2, n] + 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] + S2[a1, a4, a5, SP[a2, a6], a3, n] - 
    S2[a1, a4, a5, SP[a3, a6], a2, n] + S2[a2, n]*S2[a1, a4, a6, a3, a5, n] + 
    S2[a1, a4, a6, a3, SP[a2, a5], n] + S2[a2, n]*S2[a1, a4, a6, a5, a3, n] + 
    S2[a1, a4, a6, a5, SP[a2, a3], n] + S2[a1, a4, a6, SP[a2, a3], a5, n] + 
    S2[a1, a4, a6, SP[a2, a5], a3, n] + S2[a1, a4, SP[a2, a5], a3, a6, n] + 
    S2[a1, a4, SP[a2, a5], a6, a3, n] + S2[a1, a4, SP[a2, a6], a3, a5, n] + 
    S2[a1, a4, SP[a2, a6], a5, a3, n] - S2[a1, a4, SP[a3, a5], a2, a6, n] - 
    S2[a1, a4, SP[a3, a5], a6, a2, n] + S2[a1, a5, a2, a3, SP[a4, a6], n] + 
    S2[a1, a5, a2, SP[a3, a6], a4, n] + S2[a6, n]*S2[a1, a5, a3, a2, a4, n] + 
    S2[a1, a5, a3, a2, SP[a4, a6], n] + S2[a6, n]*S2[a1, a5, a3, a4, a2, n] - 
    S2[a2, n]*S2[a1, a5, a3, a4, a6, n] - 
    S2[a2, n]*S2[a1, a5, a3, a6, a4, n] - S2[a1, a5, a3, SP[a2, a4], a6, n] + 
    2*S2[a1, a5, a3, SP[a4, a6], a2, n] - 
    S2[a3, n]*S2[a1, a5, a4, a2, a6, n] - S2[a1, a5, a4, a2, SP[a3, a6], n] + 
    S2[a2, n]*S2[a1, a5, a4, a3, a6, n] + S2[a1, a5, a4, a3, SP[a2, a6], n] - 
    S2[a3, n]*S2[a1, a5, a4, a6, a2, n] + 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] + S2[a1, a5, a4, SP[a2, a6], a3, n] - 
    S2[a1, a5, a4, SP[a3, a6], a2, n] - S2[a3, n]*S2[a1, a5, a6, a2, a4, n] - 
    S2[a1, a5, a6, a2, SP[a3, a4], n] - S2[a2, n]*S2[a1, a5, a6, a3, a4, n] - 
    S2[a3, n]*S2[a1, a5, a6, a4, a2, n] + 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] - S2[a1, a5, a6, SP[a2, a3], a4, n] + 
    S2[a1, a5, a6, SP[a2, a4], a3, n] - S2[a1, a5, a6, SP[a3, a4], a2, n] - 
    S2[a1, a5, SP[a2, a3], a4, a6, n] - S2[a1, a5, SP[a2, a3], a6, a4, n] + 
    S2[a1, a5, SP[a2, a4], a3, a6, n] + S2[a1, a5, SP[a2, a4], a6, a3, n] + 
    S2[a1, a5, SP[a2, a6], a4, a3, n] - S2[a1, a5, SP[a3, a4], a2, a6, n] - 
    S2[a1, a5, SP[a3, a4], a6, a2, n] + S2[a1, a5, SP[a3, a6], a2, a4, n] + 
    S2[a1, a5, SP[a3, a6], a4, a2, n] - S2[a4, n]*S2[a1, a6, a2, a3, a5, n] - 
    S2[a1, a6, a2, a3, SP[a4, a5], n] - S2[a4, n]*S2[a1, a6, a2, a5, a3, n] - 
    S2[a1, a6, a2, a5, SP[a3, a4], n] - S2[a1, a6, a2, SP[a3, a4], a5, n] - 
    S2[a1, a6, a2, SP[a4, a5], a3, n] - S2[a4, n]*S2[a1, a6, a3, a2, a5, n] - 
    S2[a1, a6, a3, a2, SP[a4, a5], n] - S2[a4, n]*S2[a1, a6, a3, a5, a2, n] - 
    S2[a1, a6, a3, a5, SP[a2, a4], n] - S2[a1, a6, a3, SP[a2, a4], a5, n] - 
    S2[a1, a6, a3, SP[a4, a5], a2, n] + S2[a2, n]*S2[a1, a6, a4, a3, a5, n] + 
    S2[a1, a6, a4, a3, SP[a2, a5], n] + S2[a2, n]*S2[a1, a6, a4, a5, a3, n] + 
    S2[a1, a6, a4, a5, SP[a2, a3], n] + S2[a1, a6, a4, SP[a2, a3], a5, n] + 
    S2[a1, a6, a4, SP[a2, a5], a3, n] - S2[a4, n]*S2[a1, a6, a5, a2, a3, n] - 
    S2[a1, a6, a5, a2, SP[a3, a4], n] - S2[a4, n]*S2[a1, a6, a5, a3, a2, n] - 
    S2[a1, a6, a5, a3, SP[a2, a4], n] + S2[a2, n]*S2[a1, a6, a5, a4, a3, n] + 
    S2[a1, a6, a5, a4, SP[a2, a3], n] - S2[a1, a6, a5, SP[a3, a4], a2, n] + 
    S2[a1, a6, SP[a2, a5], a4, a3, n] - S2[a1, a6, SP[a3, a4], a2, a5, n] - 
    S2[a1, a6, SP[a3, a4], a5, a2, n] - S2[a1, a6, SP[a4, a5], a2, a3, n] - 
    S2[a1, a6, SP[a4, a5], a3, a2, n] - S2[a1, SP[a2, a3], a4, a5, a6, n] - 
    S2[a1, SP[a2, a3], a5, a4, a6, n] - S2[a1, SP[a2, a3], a5, a6, a4, n] + 
    S2[a1, SP[a2, a4], a3, a5, a6, n] + S2[a1, SP[a2, a4], a3, a6, a5, n] + 
    S2[a1, SP[a2, a4], a5, a3, a6, n] + S2[a1, SP[a2, a4], a5, a6, a3, n] + 
    S2[a1, SP[a2, a4], a6, a3, a5, n] + S2[a1, SP[a2, a4], a6, a5, a3, n] + 
    S2[a1, SP[a2, a6], a4, a3, a5, n] + S2[a1, SP[a2, a6], a4, a5, a3, n] + 
    S2[a1, SP[a2, a6], a5, a4, a3, n] - S2[a1, SP[a3, a4], a2, a5, a6, n] - 
    2*S2[a1, SP[a3, a4], a2, a6, a5, n] - S2[a1, SP[a3, a4], a5, a2, a6, n] - 
    S2[a1, SP[a3, a4], a5, a6, a2, n] - S2[a1, SP[a3, a4], a6, a2, a5, n] - 
    S2[a1, SP[a3, a4], a6, a5, a2, n] + S2[a1, SP[a3, a6], a2, a4, a5, n] + 
    S2[a1, SP[a3, a6], a2, a5, a4, n] + S2[a1, SP[a3, a6], a4, a2, a5, n] + 
    S2[a1, SP[a3, a6], a4, a5, a2, n] + S2[a1, SP[a3, a6], a5, a2, a4, n] + 
    S2[a1, SP[a3, a6], a5, a4, a2, n] - S2[a1, SP[a4, a6], a2, a3, a5, n] - 
    S2[a1, SP[a4, a6], a2, a5, a3, n] - S2[a1, SP[a4, a6], a3, a2, a5, n] - 
    S2[a1, SP[a4, a6], a3, a5, a2, n] - S2[a1, SP[a4, a6], a5, a2, a3, n] - 
    S2[a1, SP[a4, a6], a5, a3, a2, n] + S2[a1, SP[a5, a6], a3, a2, a4, n] + 
    S2[a1, SP[a5, a6], a3, a4, a2, n] + S2[a2, a1, a3, a5, SP[a4, a6], n] + 
    S2[a2, a1, a3, SP[a4, a5], a6, n] - S2[a2, a1, a4, a3, SP[a5, a6], n] - 
    S2[a2, a1, a4, a6, SP[a3, a5], n] - S2[a2, a1, a4, SP[a3, a5], a6, n] - 
    S2[a2, a1, a4, SP[a5, a6], a3, n] + S2[a2, a1, a5, a3, SP[a4, a6], n] + 
    S2[a2, a1, a5, SP[a3, a6], a4, n] - S2[a2, a1, a6, a4, SP[a3, a5], n] - 
    S2[a2, a1, a6, SP[a4, a5], a3, n] + S2[a2, a1, SP[a3, a5], a4, a6, n] + 
    S2[a2, a1, SP[a3, a5], a6, a4, n] - S2[a2, a1, SP[a4, a5], a3, a6, n] - 
    S2[a2, a1, SP[a4, a5], a6, a3, n] - S2[a2, a1, SP[a5, a6], a4, a3, n] - 
    S2[a6, n]*S2[a2, a3, a1, a4, a5, n] - S2[a2, a3, a1, a4, SP[a5, a6], n] - 
    S2[a6, n]*S2[a2, a3, a1, a5, a4, n] + 
    S2[a4, n]*S2[a2, a3, a1, a6, a5, n] + S2[a2, a3, a1, a6, SP[a4, a5], n] + 
    S2[a2, a3, a1, SP[a4, a5], a6, n] - S2[a2, a3, a1, SP[a5, a6], a4, n] - 
    S2[a6, n]*S2[a2, a3, a4, a1, a5, n] - S2[a2, a3, a4, a1, SP[a5, a6], n] - 
    S2[a2, a3, a4, SP[a1, a6], a5, n] + S2[a4, n]*S2[a2, a3, a6, a1, a5, n] + 
    S2[a2, a3, a6, a1, SP[a4, a5], n] + S2[a2, a3, a6, SP[a1, a4], a5, n] + 
    S2[a2, a3, SP[a1, a4], a5, a6, n] + S2[a2, a3, SP[a1, a4], a6, a5, n] - 
    S2[a2, a3, SP[a1, a6], a4, a5, n] - S2[a2, a3, SP[a1, a6], a5, a4, n] - 
    S2[a2, a4, a1, a3, SP[a5, a6], n] + S2[a3, n]*S2[a2, a4, a1, a5, a6, n] + 
    S2[a2, a4, a1, a5, SP[a3, a6], n] + S2[a3, n]*S2[a2, a4, a1, a6, a5, n] + 
    S2[a2, a4, a1, SP[a3, a6], a5, n] - S2[a2, a4, a1, SP[a5, a6], a3, n] - 
    S2[a2, a4, a3, a1, SP[a5, a6], n] - S2[a2, a4, a3, SP[a1, a6], a5, n] - 
    S2[a2, a4, a6, a1, SP[a3, a5], n] - S2[a2, a4, a6, SP[a1, a3], a5, n] - 
    S2[a2, a4, SP[a1, a6], a3, a5, n] - S2[a2, a4, SP[a1, a6], a5, a3, n] + 
    S2[a4, n]*S2[a2, a6, a1, a3, a5, n] + S2[a2, a6, a1, a3, SP[a4, a5], n] - 
    S2[a2, a6, a1, a4, SP[a3, a5], n] + S2[a4, n]*S2[a2, a6, a1, a5, a3, n] + 
    S2[a2, a6, a1, a5, SP[a3, a4], n] + S2[a2, a6, a1, SP[a3, a4], a5, n] + 
    S2[a4, n]*S2[a2, a6, a3, a1, a5, n] + S2[a2, a6, a3, a1, SP[a4, a5], n] + 
    S2[a2, a6, a3, SP[a1, a4], a5, n] - S2[a2, a6, a4, a1, SP[a3, a5], n] - 
    S2[a2, a6, a4, SP[a1, a3], a5, n] + S2[a2, a6, SP[a3, a4], a1, a5, n] + 
    S2[a2, SP[a1, a3], a4, a5, a6, n] + S2[a2, SP[a1, a3], a5, a4, a6, n] + 
    S2[a2, SP[a1, a3], a5, a6, a4, n] - S2[a2, SP[a1, a4], a3, a5, a6, n] - 
    S2[a2, SP[a1, a4], a3, a6, a5, n] - S2[a2, SP[a1, a4], a5, a3, a6, n] - 
    S2[a2, SP[a1, a4], a5, a6, a3, n] - S2[a2, SP[a1, a4], a6, a3, a5, n] - 
    S2[a2, SP[a1, a4], a6, a5, a3, n] - S2[a2, SP[a1, a6], a4, a3, a5, n] - 
    S2[a2, SP[a1, a6], a4, a5, a3, n] - S2[a2, SP[a1, a6], a5, a4, a3, n] + 
    S2[a2, SP[a3, a4], a1, a5, a6, n] + 2*S2[a2, SP[a3, a4], a1, a6, a5, n] + 
    S2[a2, SP[a3, a4], a6, a1, a5, n] - S2[a2, SP[a3, a6], a1, a4, a5, n] - 
    S2[a2, SP[a3, a6], a1, a5, a4, n] - S2[a2, SP[a3, a6], a4, a1, a5, n] + 
    S2[a2, SP[a4, a6], a1, a3, a5, n] + S2[a2, SP[a4, a6], a1, a5, a3, n] + 
    S2[a2, SP[a4, a6], a3, a1, a5, n] + S2[a3, a1, a4, a2, SP[a5, a6], n] + 
    S2[a3, a1, a4, SP[a2, a5], a6, n] + S2[a3, a1, a5, a6, SP[a2, a4], n] + 
    S2[a3, a1, a5, SP[a4, a6], a2, n] + S2[a3, a1, SP[a4, a5], a2, a6, n] + 
    S2[a3, a1, SP[a4, a5], a6, a2, n] + S2[a3, a4, a1, a2, SP[a5, a6], n] - 
    S2[a2, n]*S2[a3, a4, a1, a5, a6, n] - S2[a3, a4, a1, a5, SP[a2, a6], n] - 
    S2[a2, n]*S2[a3, a4, a1, a6, a5, n] - S2[a3, a4, a1, a6, SP[a2, a5], n] - 
    S2[a3, a4, a1, SP[a2, a6], a5, n] + S2[a3, a4, a2, a1, SP[a5, a6], n] + 
    S2[a3, a4, a2, SP[a1, a6], a5, n] + S2[a3, SP[a1, a4], a2, a5, a6, n] + 
    S2[a3, SP[a1, a4], a2, a6, a5, n] + S2[a3, SP[a1, a4], a5, a2, a6, n] + 
    S2[a3, SP[a1, a4], a5, a6, a2, n] - S2[a3, SP[a2, a4], a1, a5, a6, n] - 
    S2[a3, SP[a2, a4], a1, a6, a5, n] + S2[a3, n]*S2[a4, a1, a6, a2, a5, n] + 
    S2[a4, a1, a6, a2, SP[a3, a5], n] + S2[a3, n]*S2[a4, a1, a6, a5, a2, n] + 
    S2[a4, a1, a6, a5, SP[a2, a3], n] + S2[a4, a1, a6, SP[a2, a3], a5, n] + 
    S2[a4, a1, a6, SP[a3, a5], a2, n] + S2[a4, a1, SP[a3, a6], a2, a5, n] + 
    S2[a4, a1, SP[a3, a6], a5, a2, n] - S2[a3, n]*S2[a4, a2, a6, a1, a5, n] - 
    S2[a4, a2, a6, a1, SP[a3, a5], n] - S2[a4, a2, a6, SP[a1, a3], a5, n] - 
    S2[a4, a2, SP[a3, a6], a1, a5, n] - S2[a2, n]*S2[a4, a3, a1, a6, a5, n] - 
    S2[a4, a3, a1, a6, SP[a2, a5], n] - S2[a4, a3, a1, SP[a2, a6], a5, n] + 
    S2[a1, n]*S2[a4, a3, a2, a6, a5, n] + S2[a4, a3, a2, a6, SP[a1, a5], n] + 
    S2[a4, a3, a2, SP[a1, a6], a5, n] + S2[a4, SP[a1, a3], a2, a6, a5, n] + 
    S2[a4, SP[a1, a3], a6, a2, a5, n] + S2[a4, SP[a1, a3], a6, a5, a2, n] - 
    S2[a4, SP[a2, a3], a1, a6, a5, n] - S2[a4, SP[a2, a3], a6, a1, a5, n] - 
    S2[a2, n]*S2[a6, a1, a3, a4, a5, n] - S2[a6, a1, a3, a4, SP[a2, a5], n] - 
    S2[a2, n]*S2[a6, a1, a3, a5, a4, n] - S2[a6, a1, a3, a5, SP[a2, a4], n] - 
    S2[a6, a1, a3, SP[a2, a4], a5, n] - S2[a6, a1, a3, SP[a2, a5], a4, n] - 
    S2[a2, n]*S2[a6, a1, a5, a3, a4, n] - S2[a6, a1, a5, a3, SP[a2, a4], n] - 
    S2[a6, a1, a5, SP[a2, a3], a4, n] - S2[a6, a1, SP[a2, a3], a4, a5, n] - 
    S2[a6, a1, SP[a2, a3], a5, a4, n] - S2[a6, a1, SP[a2, a5], a3, a4, n] + 
    S2[a1, n]*S2[a6, a2, a3, a4, a5, n] + S2[a6, a2, a3, a4, SP[a1, a5], n] + 
    S2[a1, n]*S2[a6, a2, a3, a5, a4, n] + S2[a6, a2, a3, a5, SP[a1, a4], n] + 
    S2[a6, a2, a3, SP[a1, a4], a5, n] + S2[a6, a2, a3, SP[a1, a5], a4, n] + 
    S2[a1, n]*S2[a6, a2, a5, a3, a4, n] + S2[a6, a2, a5, a3, SP[a1, a4], n] + 
    S2[a6, a2, a5, SP[a1, a3], a4, n] + S2[a6, a2, SP[a1, a3], a4, a5, n] + 
    S2[a6, a2, SP[a1, a3], a5, a4, n] + S2[a6, a2, SP[a1, a5], a3, a4, n] + 
    S2[a1, n]*S2[a6, a5, a2, a3, a4, n] + S2[a6, a5, a2, a3, SP[a1, a4], n] + 
    S2[a6, a5, a2, SP[a1, a3], a4, n] + S2[a6, a5, SP[a1, a2], a3, a4, n] + 
    S2[a6, SP[a1, a5], a2, a3, a4, n] - S2[SP[a1, a4], a3, a6, a2, a5, n] - 
    S2[SP[a1, a4], a3, a6, a5, a2, n] - S2[SP[a1, a4], a6, a2, a3, a5, n] - 
    S2[SP[a1, a4], a6, a2, a5, a3, n] - S2[SP[a1, a4], a6, a3, a2, a5, n] - 
    S2[SP[a1, a4], a6, a3, a5, a2, n] - S2[SP[a1, a4], a6, a5, a2, a3, n] - 
    S2[SP[a1, a4], a6, a5, a3, a2, n] + S2[SP[a1, a6], a2, a3, a4, a5, n] + 
    S2[SP[a1, a6], a2, a3, a5, a4, n] + S2[SP[a1, a6], a2, a5, a3, a4, n] + 
    S2[SP[a1, a6], a3, a2, a4, a5, n] + S2[SP[a1, a6], a3, a2, a5, a4, n] + 
    S2[SP[a1, a6], a3, a4, a2, a5, n] + S2[SP[a1, a6], a3, a4, a5, a2, n] + 
    S2[SP[a1, a6], a3, a5, a2, a4, n] + S2[SP[a1, a6], a3, a5, a4, a2, n] + 
    S2[SP[a1, a6], a5, a2, a3, a4, n] + S2[SP[a1, a6], a5, a3, a2, a4, n] + 
    S2[SP[a1, a6], a5, a3, a4, a2, n] + S2[SP[a2, a4], a3, a6, a1, a5, n] + 
    S2[SP[a2, a4], a6, a1, a3, a5, n] + S2[SP[a2, a4], a6, a1, a5, a3, n] + 
    S2[SP[a2, a4], a6, a3, a1, a5, n] - S2[SP[a2, a6], a1, a3, a4, a5, n] - 
    S2[SP[a2, a6], a1, a3, a5, a4, n] - S2[SP[a2, a6], a1, a5, a3, a4, n] - 
    S2[SP[a2, a6], a3, a1, a4, a5, n] - S2[SP[a2, a6], a3, a1, a5, a4, n] - 
    S2[SP[a2, a6], a3, a4, a1, a5, n] + S2[SP[a3, a4], a1, a6, a2, a5, n] + 
    S2[SP[a3, a4], a1, a6, a5, a2, n] - S2[SP[a3, a4], a2, a6, a1, a5, n] - 
    S2[a6, a2, a3, a4, a5, a1, n] - S2[a6, a2, a3, a5, a1, a4, n] - 
    S2[a6, a2, a3, a5, a4, a1, n] - S2[a6, a2, a5, a1, a3, a4, n] - 
    S2[a6, a2, a5, a3, a1, a4, n] - S2[a6, a2, a5, a3, a4, a1, n] - 
    S2[a6, a5, a1, a2, a3, a4, n] - S2[a6, a5, a2, a1, a3, a4, n] - 
    S2[a6, a5, a2, a3, a1, a4, n] - S2[a6, a5, a2, a3, a4, a1, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a4_, a3_, a5_, a1_, a2_, a6_, n_] :> 
  -(S2[a1, a2, a6, n]*S2[a3, a4, a5, n]) - S2[a1, a2, a6, n]*
     S2[a3, a5, a4, n] - S2[SP[a1, a3], SP[a2, a4], SP[a5, a6], n] - 
    S2[SP[a1, a3], SP[a2, a5], SP[a4, a6], n] + 
    S2[a3, a4, n]*S2[a1, a2, a5, a6, n] + S2[a3, a4, n]*
     S2[a1, a2, a6, a5, n] - S2[a1, a2, SP[a3, a5], SP[a4, a6], n] - 
    S2[a1, a2, SP[a3, a6], SP[a4, a5], n] + S2[a1, a3, SP[a2, a4], 
     SP[a5, a6], n] + S2[a1, a3, SP[a2, a5], SP[a4, a6], n] + 
    S2[a3, a4, n]*S2[a1, a5, a2, a6, n] - S2[a2, a6, n]*
     S2[a1, a5, a3, a4, n] + S2[a1, SP[a2, a3], a4, SP[a5, a6], n] - 
    S2[a1, SP[a2, a3], a6, SP[a4, a5], n] - S2[a1, SP[a2, a3], SP[a4, a5], 
     a6, n] + S2[a1, SP[a2, a3], SP[a5, a6], a4, n] + 
    S2[a1, SP[a2, a5], a3, SP[a4, a6], n] + S2[a1, SP[a2, a5], SP[a3, a6], 
     a4, n] - S2[a1, SP[a3, a5], a2, SP[a4, a6], n] - 
    S2[a1, SP[a3, a5], SP[a2, a4], a6, n] + S2[a3, a1, SP[a2, a4], 
     SP[a5, a6], n] + S2[a3, a1, SP[a2, a5], SP[a4, a6], n] + 
    S2[a3, SP[a1, a4], a2, SP[a5, a6], n] + S2[a3, SP[a1, a4], SP[a2, a5], 
     a6, n] + S2[a3, SP[a1, a5], a2, SP[a4, a6], n] + 
    S2[a3, SP[a1, a5], SP[a2, a4], a6, n] + S2[SP[a1, a2], a5, a3, 
     SP[a4, a6], n] + S2[SP[a1, a2], a5, SP[a3, a6], a4, n] + 
    S2[SP[a1, a2], SP[a5, a6], a3, a4, n] + S2[SP[a1, a3], a2, a4, 
     SP[a5, a6], n] - S2[SP[a1, a3], a2, a6, SP[a4, a5], n] - 
    S2[SP[a1, a3], a2, SP[a4, a5], a6, n] + S2[SP[a1, a3], a2, SP[a5, a6], 
     a4, n] + S2[SP[a1, a3], a4, a2, SP[a5, a6], n] + 
    S2[SP[a1, a3], a4, SP[a2, a5], a6, n] + S2[SP[a1, a3], SP[a2, a5], a4, 
     a6, n] + S2[SP[a1, a3], SP[a2, a5], a6, a4, n] - 
    S2[SP[a1, a3], SP[a4, a5], a2, a6, n] - S2[a1, a2, a3, a4, SP[a5, a6], 
     n] + S2[a1, a2, a3, a6, SP[a4, a5], n] + S2[a1, a2, a3, SP[a4, a5], a6, 
     n] - S2[a1, a2, a3, SP[a5, a6], a4, n] - 
    S2[a6, n]*S2[a1, a2, a5, a3, a4, n] - S2[a1, a2, a5, a3, SP[a4, a6], n] - 
    S2[a1, a2, a5, SP[a3, a6], a4, n] + S2[a1, a2, a6, a3, SP[a4, a5], n] + 
    S2[a1, a2, a6, SP[a3, a5], a4, n] + S2[a1, a2, SP[a3, a5], a4, a6, n] + 
    S2[a1, a2, SP[a3, a5], a6, a4, n] - 2*S2[a1, a2, SP[a5, a6], a3, a4, n] - 
    S2[a1, a3, a2, a4, SP[a5, a6], n] + S2[a1, a3, a2, a6, SP[a4, a5], n] + 
    S2[a1, a3, a2, SP[a4, a5], a6, n] - S2[a1, a3, a2, SP[a5, a6], a4, n] - 
    S2[a1, a3, a4, a2, SP[a5, a6], n] - S2[a1, a3, a4, SP[a2, a5], a6, n] - 
    S2[a1, a3, SP[a2, a5], a4, a6, n] - S2[a1, a3, SP[a2, a5], a6, a4, n] + 
    S2[a1, a3, SP[a4, a5], a2, a6, n] - S2[a6, n]*S2[a1, a5, a2, a3, a4, n] - 
    S2[a1, a5, a2, a3, SP[a4, a6], n] - S2[a1, a5, a2, SP[a3, a6], a4, n] - 
    S2[a6, n]*S2[a1, a5, a3, a2, a4, n] - S2[a1, a5, a3, a2, SP[a4, a6], n] - 
    S2[a6, n]*S2[a1, a5, a3, a4, a2, n] + 
    S2[a2, n]*S2[a1, a5, a3, a4, a6, n] + 
    S2[a2, n]*S2[a1, a5, a3, a6, a4, n] + S2[a1, a5, a3, a6, SP[a2, a4], n] + 
    S2[a1, a5, a3, SP[a2, a4], a6, n] - S2[a1, a5, a3, SP[a4, a6], a2, n] + 
    S2[a2, n]*S2[a1, a5, a6, a3, a4, n] + S2[a1, a5, a6, a3, SP[a2, a4], n] + 
    S2[a1, a5, a6, SP[a2, a3], a4, n] + S2[a1, a5, SP[a2, a3], a4, a6, n] + 
    S2[a1, a5, SP[a2, a3], a6, a4, n] - S2[a1, a5, SP[a3, a6], a2, a4, n] - 
    S2[a1, a5, SP[a3, a6], a4, a2, n] + S2[a2, n]*S2[a1, a6, a5, a3, a4, n] + 
    S2[a1, a6, a5, a3, SP[a2, a4], n] + S2[a1, a6, a5, SP[a2, a3], a4, n] + 
    S2[a1, a6, SP[a2, a5], a3, a4, n] + S2[a1, SP[a3, a5], a2, a4, a6, n] + 
    S2[a1, SP[a3, a5], a2, a6, a4, n] + S2[a1, SP[a3, a5], a4, a2, a6, n] - 
    S2[a1, SP[a5, a6], a2, a3, a4, n] - S2[a1, SP[a5, a6], a3, a2, a4, n] - 
    S2[a1, SP[a5, a6], a3, a4, a2, n] - S2[a2, a1, a5, a3, SP[a4, a6], n] - 
    S2[a2, a1, a5, SP[a3, a6], a4, n] - S2[a2, a1, SP[a5, a6], a3, a4, n] - 
    S2[a2, SP[a1, a6], a5, a3, a4, n] - S2[a3, a1, a2, a4, SP[a5, a6], n] + 
    S2[a3, a1, a2, a6, SP[a4, a5], n] + S2[a3, a1, a2, SP[a4, a5], a6, n] - 
    S2[a3, a1, a2, SP[a5, a6], a4, n] - S2[a3, a1, a4, a2, SP[a5, a6], n] - 
    S2[a3, a1, a4, SP[a2, a5], a6, n] - S2[a3, a1, SP[a2, a5], a4, a6, n] - 
    S2[a3, a1, SP[a2, a5], a6, a4, n] + S2[a3, a1, SP[a4, a5], a2, a6, n] - 
    S2[a3, a4, a1, a2, SP[a5, a6], n] - S2[a3, a4, a1, SP[a2, a5], a6, n] - 
    S2[a3, a4, SP[a1, a5], a2, a6, n] + S2[a4, n]*S2[a3, a5, a1, a2, a6, n] - 
    S2[a3, SP[a1, a5], a2, a4, a6, n] - S2[a3, SP[a1, a5], a2, a6, a4, n] - 
    S2[a3, SP[a1, a5], a4, a2, a6, n] + S2[a3, SP[a4, a5], a1, a2, a6, n] + 
    S2[a2, n]*S2[a6, a1, a5, a3, a4, n] + S2[a6, a1, a5, a3, SP[a2, a4], n] + 
    S2[a6, a1, a5, SP[a2, a3], a4, n] + S2[a6, a1, SP[a2, a5], a3, a4, n] + 
    S2[a6, SP[a1, a2], a5, a3, a4, n] - S2[SP[a1, a6], a2, a5, a3, a4, n] - 
    S2[SP[a1, a6], a5, a2, a3, a4, n] - S2[SP[a1, a6], a5, a3, a2, a4, n] - 
    S2[SP[a1, a6], a5, a3, a4, a2, n] + S2[SP[a2, a6], a1, a5, a3, a4, n] + 
    S2[SP[a3, a4], a5, a1, a2, a6, n] - S2[a6, a2, a1, a5, a3, a4, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a4_, a3_, a5_, a1_, a6_, a2_, n_] :> 
  -(S2[a1, a6, a2, n]*S2[a3, a4, a5, n]) - S2[a1, a6, a2, n]*
     S2[a3, a5, a4, n] - S2[SP[a1, a3], SP[a4, a6], SP[a2, a5], n] - 
    S2[SP[a1, a3], SP[a5, a6], SP[a2, a4], n] + S2[a1, a3, SP[a4, a6], 
     SP[a2, a5], n] + S2[a1, a3, SP[a5, a6], SP[a2, a4], n] + 
    S2[a2, a6, n]*S2[a1, a5, a3, a4, n] + S2[a3, a4, n]*
     S2[a1, a5, a6, a2, n] - S2[a1, a5, SP[a2, a3], SP[a4, a6], n] - 
    S2[a1, a5, SP[a3, a6], SP[a2, a4], n] + S2[a3, a4, n]*
     S2[a1, a6, a2, a5, n] + S2[a3, a4, n]*S2[a1, a6, a5, a2, n] - 
    S2[a1, a6, SP[a2, a3], SP[a4, a5], n] - S2[a1, a6, SP[a3, a5], 
     SP[a2, a4], n] - S2[a1, SP[a2, a5], a3, SP[a4, a6], n] - 
    S2[a1, SP[a2, a5], SP[a3, a6], a4, n] - S2[a1, SP[a3, a5], a6, 
     SP[a2, a4], n] - S2[a1, SP[a3, a5], SP[a4, a6], a2, n] - 
    S2[a1, SP[a3, a6], a2, SP[a4, a5], n] + S2[a1, SP[a3, a6], a4, 
     SP[a2, a5], n] + S2[a1, SP[a3, a6], SP[a2, a5], a4, n] - 
    S2[a1, SP[a3, a6], SP[a4, a5], a2, n] + S2[a3, a1, SP[a4, a6], 
     SP[a2, a5], n] + S2[a3, a1, SP[a5, a6], SP[a2, a4], n] + 
    S2[a3, SP[a1, a4], a6, SP[a2, a5], n] + S2[a3, SP[a1, a4], SP[a5, a6], 
     a2, n] + S2[a3, SP[a1, a5], a6, SP[a2, a4], n] + 
    S2[a3, SP[a1, a5], SP[a4, a6], a2, n] - S2[SP[a1, a2], a5, a3, 
     SP[a4, a6], n] - S2[SP[a1, a2], a5, SP[a3, a6], a4, n] - 
    S2[SP[a1, a2], SP[a5, a6], a3, a4, n] + S2[SP[a1, a3], a4, a6, 
     SP[a2, a5], n] + S2[SP[a1, a3], a4, SP[a5, a6], a2, n] - 
    S2[SP[a1, a3], a6, a2, SP[a4, a5], n] + S2[SP[a1, a3], a6, a4, 
     SP[a2, a5], n] + S2[SP[a1, a3], a6, SP[a2, a5], a4, n] - 
    S2[SP[a1, a3], a6, SP[a4, a5], a2, n] - S2[SP[a1, a3], SP[a4, a5], a6, 
     a2, n] + S2[SP[a1, a3], SP[a5, a6], a2, a4, n] + 
    S2[SP[a1, a3], SP[a5, a6], a4, a2, n] + S2[a1, a2, a5, a3, SP[a4, a6], 
     n] + S2[a1, a2, a5, SP[a3, a6], a4, n] + S2[a1, a2, SP[a5, a6], a3, a4, 
     n] - S2[a1, a3, a4, a6, SP[a2, a5], n] - S2[a1, a3, a4, SP[a5, a6], a2, 
     n] + S2[a1, a3, a6, a2, SP[a4, a5], n] - S2[a1, a3, a6, a4, SP[a2, a5], 
     n] - S2[a1, a3, a6, SP[a2, a5], a4, n] + S2[a1, a3, a6, SP[a4, a5], a2, 
     n] + S2[a1, a3, SP[a4, a5], a6, a2, n] - S2[a1, a3, SP[a5, a6], a2, a4, 
     n] - S2[a1, a3, SP[a5, a6], a4, a2, n] + S2[a1, a5, a2, a3, SP[a4, a6], 
     n] + S2[a1, a5, a2, SP[a3, a6], a4, n] + S2[a1, a5, a3, a2, SP[a4, a6], 
     n] - S2[a2, n]*S2[a1, a5, a3, a4, a6, n] - S2[a1, a5, a3, a4, 
     SP[a2, a6], n] - S2[a2, n]*S2[a1, a5, a3, a6, a4, n] - 
    S2[a1, a5, a3, SP[a2, a6], a4, n] + S2[a1, a5, a3, SP[a4, a6], a2, n] - 
    S2[a2, n]*S2[a1, a5, a6, a3, a4, n] - S2[a1, a5, SP[a2, a6], a3, a4, n] + 
    S2[a1, a5, SP[a3, a6], a2, a4, n] + S2[a1, a5, SP[a3, a6], a4, a2, n] + 
    S2[a1, a6, a2, a3, SP[a4, a5], n] + S2[a1, a6, a2, SP[a3, a5], a4, n] + 
    S2[a1, a6, a3, a2, SP[a4, a5], n] - S2[a1, a6, a3, a4, SP[a2, a5], n] - 
    S2[a1, a6, a3, SP[a2, a5], a4, n] + S2[a1, a6, a3, SP[a4, a5], a2, n] - 
    S2[a2, n]*S2[a1, a6, a5, a3, a4, n] - S2[a1, a6, SP[a2, a5], a3, a4, n] + 
    S2[a1, a6, SP[a3, a5], a2, a4, n] + S2[a1, a6, SP[a3, a5], a4, a2, n] - 
    S2[a1, SP[a2, a6], a5, a3, a4, n] + S2[a1, SP[a3, a5], a4, a6, a2, n] + 
    S2[a1, SP[a3, a5], a6, a2, a4, n] + S2[a1, SP[a3, a5], a6, a4, a2, n] + 
    S2[a2, a1, a5, a3, SP[a4, a6], n] + S2[a2, a1, a5, SP[a3, a6], a4, n] + 
    S2[a2, a1, SP[a5, a6], a3, a4, n] + S2[a2, SP[a1, a6], a5, a3, a4, n] - 
    S2[a3, a1, a4, a6, SP[a2, a5], n] - S2[a3, a1, a4, SP[a5, a6], a2, n] + 
    S2[a3, a1, a6, a2, SP[a4, a5], n] - S2[a3, a1, a6, a4, SP[a2, a5], n] - 
    S2[a3, a1, a6, SP[a2, a5], a4, n] + S2[a3, a1, a6, SP[a4, a5], a2, n] + 
    S2[a3, a1, SP[a4, a5], a6, a2, n] - S2[a3, a1, SP[a5, a6], a2, a4, n] - 
    S2[a3, a1, SP[a5, a6], a4, a2, n] - S2[a3, a4, a1, a6, SP[a2, a5], n] - 
    S2[a3, a4, a1, SP[a5, a6], a2, n] - S2[a3, a4, SP[a1, a5], a6, a2, n] + 
    S2[a4, n]*S2[a3, a5, a1, a6, a2, n] - S2[a3, SP[a1, a5], a4, a6, a2, n] - 
    S2[a3, SP[a1, a5], a6, a2, a4, n] - S2[a3, SP[a1, a5], a6, a4, a2, n] + 
    S2[a3, SP[a4, a5], a1, a6, a2, n] - S2[a2, n]*S2[a6, a1, a5, a3, a4, n] - 
    S2[a6, a1, a5, a3, SP[a2, a4], n] - S2[a6, a1, a5, SP[a2, a3], a4, n] - 
    S2[a6, a1, SP[a2, a5], a3, a4, n] - S2[a6, SP[a1, a2], a5, a3, a4, n] - 
    S2[SP[a2, a6], a1, a5, a3, a4, n] + S2[SP[a3, a4], a5, a1, a6, a2, n] + 
    S2[a6, a1, a2, a5, a3, a4, n] + S2[a6, a1, a5, a2, a3, a4, n] + 
    S2[a6, a1, a5, a3, a2, a4, n] + S2[a6, a1, a5, a3, a4, a2, n] + 
    S2[a6, a2, a1, a5, a3, a4, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a4_, a3_, a5_, a2_, a1_, a6_, n_] :> 
  S2[a1, a2, a6, n]*S2[a3, a4, a5, n] + S2[a1, a6, a2, n]*S2[a3, a4, a5, n] + 
    S2[a1, a2, a6, n]*S2[a3, a5, a4, n] + S2[a1, a6, a2, n]*
     S2[a3, a5, a4, n] + S2[SP[a1, a3], SP[a2, a4], SP[a5, a6], n] + 
    S2[SP[a1, a3], SP[a2, a5], SP[a4, a6], n] + S2[SP[a1, a3], SP[a4, a6], 
     SP[a2, a5], n] + S2[SP[a1, a3], SP[a5, a6], SP[a2, a4], n] - 
    S2[a3, a4, n]*S2[a1, a2, a5, a6, n] - S2[a3, a4, n]*
     S2[a1, a2, a6, a5, n] + S2[a1, a2, SP[a3, a5], SP[a4, a6], n] + 
    S2[a1, a2, SP[a3, a6], SP[a4, a5], n] - S2[a1, a3, SP[a2, a4], 
     SP[a5, a6], n] - S2[a1, a3, SP[a2, a5], SP[a4, a6], n] - 
    S2[a1, a3, SP[a4, a6], SP[a2, a5], n] - S2[a1, a3, SP[a5, a6], 
     SP[a2, a4], n] - S2[a3, a4, n]*S2[a1, a6, a2, a5, n] + 
    S2[a1, a6, SP[a2, a3], SP[a4, a5], n] - S2[a1, SP[a2, a3], a4, 
     SP[a5, a6], n] + S2[a1, SP[a2, a3], a6, SP[a4, a5], n] + 
    S2[a1, SP[a2, a3], SP[a4, a5], a6, n] - S2[a1, SP[a2, a3], SP[a5, a6], 
     a4, n] + S2[a1, SP[a3, a6], a2, SP[a4, a5], n] - 
    S2[a1, SP[a3, a6], a4, SP[a2, a5], n] - S2[a1, SP[a3, a6], a5, 
     SP[a2, a4], n] - S2[a1, SP[a3, a6], SP[a2, a5], a4, n] - 
    S2[a1, a6, n]*S2[a2, a4, a3, a5, n] - S2[a1, a6, n]*
     S2[a2, a4, a5, a3, n] + S2[a2, a4, SP[a1, a3], SP[a5, a6], n] + 
    S2[a2, a4, SP[a1, a5], SP[a3, a6], n] - S2[a1, a6, n]*
     S2[a2, a5, a3, a4, n] - S2[a1, a6, n]*S2[a2, a5, a4, a3, n] + 
    S2[a2, a5, SP[a1, a3], SP[a4, a6], n] + S2[a2, a5, SP[a1, a4], 
     SP[a3, a6], n] + S2[a2, SP[a1, a4], a3, SP[a5, a6], n] + 
    S2[a2, SP[a1, a4], a5, SP[a3, a6], n] + S2[a2, SP[a1, a4], SP[a3, a6], 
     a5, n] + S2[a2, SP[a1, a4], SP[a5, a6], a3, n] + 
    S2[a2, SP[a1, a5], a3, SP[a4, a6], n] + S2[a2, SP[a1, a5], a4, 
     SP[a3, a6], n] + S2[a2, SP[a1, a5], SP[a3, a6], a4, n] + 
    S2[a2, SP[a1, a5], SP[a4, a6], a3, n] - S2[a3, a1, SP[a2, a4], 
     SP[a5, a6], n] - S2[a3, a1, SP[a2, a5], SP[a4, a6], n] - 
    S2[a3, a1, SP[a4, a6], SP[a2, a5], n] - S2[a3, a1, SP[a5, a6], 
     SP[a2, a4], n] + S2[a1, a6, n]*S2[a3, a4, a2, a5, n] - 
    S2[a3, a4, SP[a1, a2], SP[a5, a6], n] - 
    2*S2[a3, SP[a1, a4], a2, SP[a5, a6], n] - S2[a3, SP[a1, a4], a6, 
     SP[a2, a5], n] - S2[a3, SP[a1, a4], SP[a2, a5], a6, n] - 
    S2[a3, SP[a1, a4], SP[a2, a6], a5, n] - S2[a3, SP[a1, a4], SP[a5, a6], 
     a2, n] - S2[a3, SP[a1, a5], a2, SP[a4, a6], n] - 
    S2[a3, SP[a1, a5], a6, SP[a2, a4], n] - S2[a3, SP[a1, a5], SP[a2, a4], 
     a6, n] - S2[a3, SP[a1, a5], SP[a4, a6], a2, n] + 
    S2[SP[a1, a2], a4, a3, SP[a5, a6], n] + S2[SP[a1, a2], a4, a5, 
     SP[a3, a6], n] + S2[SP[a1, a2], a4, SP[a3, a6], a5, n] + 
    S2[SP[a1, a2], a4, SP[a5, a6], a3, n] + S2[SP[a1, a2], a5, a3, 
     SP[a4, a6], n] + S2[SP[a1, a2], a5, a4, SP[a3, a6], n] + 
    S2[SP[a1, a2], a5, SP[a3, a6], a4, n] + S2[SP[a1, a2], a5, SP[a4, a6], 
     a3, n] + S2[SP[a1, a2], SP[a4, a6], a3, a5, n] + 
    S2[SP[a1, a2], SP[a4, a6], a5, a3, n] + S2[SP[a1, a2], SP[a5, a6], a3, 
     a4, n] + S2[SP[a1, a2], SP[a5, a6], a4, a3, n] - 
    S2[SP[a1, a3], a2, a4, SP[a5, a6], n] + S2[SP[a1, a3], a2, a6, 
     SP[a4, a5], n] + S2[SP[a1, a3], a2, SP[a4, a5], a6, n] - 
    S2[SP[a1, a3], a2, SP[a5, a6], a4, n] - 
    2*S2[SP[a1, a3], a4, a2, SP[a5, a6], n] - S2[SP[a1, a3], a4, a6, 
     SP[a2, a5], n] - S2[SP[a1, a3], a4, SP[a2, a5], a6, n] - 
    S2[SP[a1, a3], a4, SP[a2, a6], a5, n] - S2[SP[a1, a3], a4, SP[a5, a6], 
     a2, n] - S2[SP[a1, a3], a5, a2, SP[a4, a6], n] - 
    S2[SP[a1, a3], a5, a6, SP[a2, a4], n] - S2[SP[a1, a3], a5, SP[a2, a4], 
     a6, n] - S2[SP[a1, a3], a5, SP[a4, a6], a2, n] + 
    S2[SP[a1, a3], a6, a2, SP[a4, a5], n] - S2[SP[a1, a3], a6, a4, 
     SP[a2, a5], n] - S2[SP[a1, a3], a6, a5, SP[a2, a4], n] - 
    S2[SP[a1, a3], a6, SP[a2, a5], a4, n] - S2[SP[a1, a3], SP[a2, a5], a4, 
     a6, n] - S2[SP[a1, a3], SP[a2, a5], a6, a4, n] - 
    S2[SP[a1, a3], SP[a4, a6], a2, a5, n] - S2[SP[a1, a3], SP[a4, a6], a5, 
     a2, n] - S2[SP[a1, a3], SP[a5, a6], a2, a4, n] - 
    S2[SP[a1, a3], SP[a5, a6], a4, a2, n] + S2[a1, a2, a3, a4, SP[a5, a6], 
     n] - S2[a1, a2, a3, a6, SP[a4, a5], n] - S2[a1, a2, a3, SP[a4, a5], a6, 
     n] + S2[a1, a2, a3, SP[a5, a6], a4, n] - S2[a1, a2, a4, a3, SP[a5, a6], 
     n] - S2[a1, a2, a4, a5, SP[a3, a6], n] - S2[a1, a2, a4, SP[a3, a6], a5, 
     n] - S2[a1, a2, a4, SP[a5, a6], a3, n] + 
    S2[a6, n]*S2[a1, a2, a5, a3, a4, n] - S2[a1, a2, a5, a3, SP[a4, a6], n] - 
    S2[a1, a2, a5, a4, SP[a3, a6], n] - S2[a1, a2, a5, SP[a3, a6], a4, n] - 
    S2[a1, a2, a5, SP[a4, a6], a3, n] - S2[a1, a2, a6, a3, SP[a4, a5], n] - 
    S2[a1, a2, a6, SP[a3, a5], a4, n] - S2[a1, a2, SP[a3, a5], a4, a6, n] - 
    S2[a1, a2, SP[a3, a5], a6, a4, n] - S2[a1, a2, SP[a4, a6], a3, a5, n] - 
    S2[a1, a2, SP[a4, a6], a5, a3, n] - S2[a1, a2, SP[a5, a6], a4, a3, n] + 
    S2[a1, a3, a2, a4, SP[a5, a6], n] - S2[a1, a3, a2, a6, SP[a4, a5], n] - 
    S2[a1, a3, a2, SP[a4, a5], a6, n] + S2[a1, a3, a2, SP[a5, a6], a4, n] + 
    2*S2[a1, a3, a4, a2, SP[a5, a6], n] + S2[a1, a3, a4, a6, SP[a2, a5], n] + 
    S2[a1, a3, a4, SP[a2, a5], a6, n] + S2[a1, a3, a4, SP[a2, a6], a5, n] + 
    S2[a1, a3, a4, SP[a5, a6], a2, n] + S2[a1, a3, a5, a2, SP[a4, a6], n] + 
    S2[a1, a3, a5, a6, SP[a2, a4], n] + S2[a1, a3, a5, SP[a2, a4], a6, n] + 
    S2[a1, a3, a5, SP[a4, a6], a2, n] - S2[a1, a3, a6, a2, SP[a4, a5], n] + 
    S2[a1, a3, a6, a4, SP[a2, a5], n] + S2[a1, a3, a6, a5, SP[a2, a4], n] + 
    S2[a1, a3, a6, SP[a2, a5], a4, n] + S2[a1, a3, SP[a2, a5], a4, a6, n] + 
    S2[a1, a3, SP[a2, a5], a6, a4, n] + S2[a1, a3, SP[a4, a6], a2, a5, n] + 
    S2[a1, a3, SP[a4, a6], a5, a2, n] + S2[a1, a3, SP[a5, a6], a2, a4, n] + 
    S2[a1, a3, SP[a5, a6], a4, a2, n] - S2[a3, n]*S2[a1, a4, a2, a5, a6, n] - 
    S2[a1, a4, a2, a5, SP[a3, a6], n] - S2[a3, n]*S2[a1, a4, a2, a6, a5, n] - 
    S2[a1, a4, a2, a6, SP[a3, a5], n] - S2[a1, a4, a2, SP[a3, a5], a6, n] - 
    S2[a1, a4, a2, SP[a3, a6], a5, n] + S2[a2, n]*S2[a1, a4, a3, a5, a6, n] + 
    S2[a1, a4, a3, a5, SP[a2, a6], n] + S2[a2, n]*S2[a1, a4, a3, a6, a5, n] + 
    S2[a1, a4, a3, a6, SP[a2, a5], n] + S2[a1, a4, a3, SP[a2, a5], a6, n] + 
    S2[a1, a4, a3, SP[a2, a6], a5, n] - S2[a3, n]*S2[a1, a4, a5, a2, a6, n] - 
    S2[a1, a4, a5, a2, SP[a3, a6], n] + S2[a2, n]*S2[a1, a4, a5, a3, a6, n] + 
    S2[a1, a4, a5, a3, SP[a2, a6], n] - S2[a3, n]*S2[a1, a4, a5, a6, a2, n] + 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] + S2[a1, a4, a5, SP[a2, a6], a3, n] - 
    S2[a1, a4, a5, SP[a3, a6], a2, n] - S2[a3, n]*S2[a1, a4, a6, a2, a5, n] - 
    S2[a1, a4, a6, a2, SP[a3, a5], n] + S2[a2, n]*S2[a1, a4, a6, a3, a5, n] + 
    S2[a1, a4, a6, a3, SP[a2, a5], n] - S2[a3, n]*S2[a1, a4, a6, a5, a2, n] + 
    S2[a2, n]*S2[a1, a4, a6, a5, a3, n] + S2[a1, a4, a6, SP[a2, a5], a3, n] - 
    S2[a1, a4, a6, SP[a3, a5], a2, n] + S2[a1, a4, SP[a2, a5], a3, a6, n] + 
    S2[a1, a4, SP[a2, a5], a6, a3, n] + S2[a1, a4, SP[a2, a6], a3, a5, n] + 
    S2[a1, a4, SP[a2, a6], a5, a3, n] - S2[a1, a4, SP[a3, a5], a2, a6, n] - 
    S2[a1, a4, SP[a3, a5], a6, a2, n] - S2[a1, a4, SP[a3, a6], a2, a5, n] - 
    S2[a1, a4, SP[a3, a6], a5, a2, n] - S2[a3, n]*S2[a1, a5, a2, a4, a6, n] - 
    S2[a1, a5, a2, a4, SP[a3, a6], n] - S2[a3, n]*S2[a1, a5, a2, a6, a4, n] - 
    S2[a1, a5, a2, a6, SP[a3, a4], n] - S2[a1, a5, a2, SP[a3, a4], a6, n] - 
    S2[a1, a5, a2, SP[a3, a6], a4, n] + S2[a2, n]*S2[a1, a5, a3, a4, a6, n] + 
    S2[a1, a5, a3, a4, SP[a2, a6], n] + S2[a2, n]*S2[a1, a5, a3, a6, a4, n] + 
    S2[a1, a5, a3, a6, SP[a2, a4], n] + S2[a1, a5, a3, SP[a2, a4], a6, n] + 
    S2[a1, a5, a3, SP[a2, a6], a4, n] - S2[a3, n]*S2[a1, a5, a4, a2, a6, n] - 
    S2[a1, a5, a4, a2, SP[a3, a6], n] + S2[a2, n]*S2[a1, a5, a4, a3, a6, n] + 
    S2[a1, a5, a4, a3, SP[a2, a6], n] - S2[a3, n]*S2[a1, a5, a4, a6, a2, n] + 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] + S2[a1, a5, a4, SP[a2, a6], a3, n] - 
    S2[a1, a5, a4, SP[a3, a6], a2, n] - S2[a3, n]*S2[a1, a5, a6, a2, a4, n] - 
    S2[a1, a5, a6, a2, SP[a3, a4], n] + S2[a2, n]*S2[a1, a5, a6, a3, a4, n] + 
    S2[a1, a5, a6, a3, SP[a2, a4], n] - S2[a3, n]*S2[a1, a5, a6, a4, a2, n] + 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] + S2[a1, a5, a6, SP[a2, a4], a3, n] - 
    S2[a1, a5, a6, SP[a3, a4], a2, n] + S2[a1, a5, SP[a2, a4], a3, a6, n] + 
    S2[a1, a5, SP[a2, a4], a6, a3, n] + S2[a1, a5, SP[a2, a6], a3, a4, n] + 
    S2[a1, a5, SP[a2, a6], a4, a3, n] - S2[a1, a5, SP[a3, a4], a2, a6, n] - 
    S2[a1, a5, SP[a3, a4], a6, a2, n] - S2[a1, a5, SP[a3, a6], a2, a4, n] - 
    S2[a1, a5, SP[a3, a6], a4, a2, n] - S2[a1, a6, a2, a3, SP[a4, a5], n] - 
    S2[a1, a6, a2, SP[a3, a5], a4, n] - S2[a1, a6, a3, a2, SP[a4, a5], n] + 
    S2[a1, a6, a3, a4, SP[a2, a5], n] + S2[a1, a6, a3, a5, SP[a2, a4], n] + 
    S2[a1, a6, a3, SP[a2, a5], a4, n] - S2[a3, n]*S2[a1, a6, a4, a2, a5, n] - 
    S2[a1, a6, a4, a2, SP[a3, a5], n] + S2[a2, n]*S2[a1, a6, a4, a3, a5, n] + 
    S2[a1, a6, a4, a3, SP[a2, a5], n] - S2[a3, n]*S2[a1, a6, a4, a5, a2, n] + 
    S2[a2, n]*S2[a1, a6, a4, a5, a3, n] + S2[a1, a6, a4, SP[a2, a5], a3, n] - 
    S2[a1, a6, a4, SP[a3, a5], a2, n] - S2[a3, n]*S2[a1, a6, a5, a2, a4, n] - 
    S2[a1, a6, a5, a2, SP[a3, a4], n] + S2[a2, n]*S2[a1, a6, a5, a3, a4, n] + 
    S2[a1, a6, a5, a3, SP[a2, a4], n] - S2[a3, n]*S2[a1, a6, a5, a4, a2, n] + 
    S2[a2, n]*S2[a1, a6, a5, a4, a3, n] + S2[a1, a6, a5, SP[a2, a4], a3, n] - 
    S2[a1, a6, a5, SP[a3, a4], a2, n] + S2[a1, a6, SP[a2, a4], a3, a5, n] + 
    S2[a1, a6, SP[a2, a4], a5, a3, n] + S2[a1, a6, SP[a2, a5], a3, a4, n] + 
    S2[a1, a6, SP[a2, a5], a4, a3, n] - S2[a1, a6, SP[a3, a4], a2, a5, n] - 
    S2[a1, a6, SP[a3, a4], a5, a2, n] - S2[a1, a6, SP[a3, a5], a2, a4, n] - 
    S2[a1, a6, SP[a3, a5], a4, a2, n] + S2[a1, SP[a2, a4], a3, a5, a6, n] + 
    S2[a1, SP[a2, a4], a3, a6, a5, n] + S2[a1, SP[a2, a4], a5, a3, a6, n] + 
    S2[a1, SP[a2, a4], a5, a6, a3, n] + S2[a1, SP[a2, a4], a6, a3, a5, n] + 
    S2[a1, SP[a2, a4], a6, a5, a3, n] + S2[a1, SP[a2, a5], a3, a4, a6, n] + 
    S2[a1, SP[a2, a5], a3, a6, a4, n] + S2[a1, SP[a2, a5], a4, a3, a6, n] + 
    S2[a1, SP[a2, a5], a4, a6, a3, n] + S2[a1, SP[a2, a5], a6, a3, a4, n] + 
    S2[a1, SP[a2, a5], a6, a4, a3, n] + S2[a1, SP[a2, a6], a5, a3, a4, n] - 
    S2[a1, SP[a3, a4], a2, a5, a6, n] - S2[a1, SP[a3, a4], a2, a6, a5, n] - 
    S2[a1, SP[a3, a4], a5, a2, a6, n] - S2[a1, SP[a3, a4], a5, a6, a2, n] - 
    S2[a1, SP[a3, a4], a6, a2, a5, n] - S2[a1, SP[a3, a4], a6, a5, a2, n] - 
    S2[a1, SP[a3, a5], a2, a4, a6, n] - S2[a1, SP[a3, a5], a2, a6, a4, n] - 
    S2[a1, SP[a3, a5], a4, a2, a6, n] - S2[a1, SP[a3, a5], a4, a6, a2, n] - 
    S2[a1, SP[a3, a5], a6, a2, a4, n] - S2[a1, SP[a3, a5], a6, a4, a2, n] - 
    S2[a2, a1, a4, a3, SP[a5, a6], n] - S2[a2, a1, a4, a5, SP[a3, a6], n] - 
    S2[a2, a1, a4, SP[a3, a6], a5, n] - S2[a2, a1, a4, SP[a5, a6], a3, n] - 
    S2[a2, a1, a5, a3, SP[a4, a6], n] - S2[a2, a1, a5, a4, SP[a3, a6], n] - 
    S2[a2, a1, a5, SP[a3, a6], a4, n] - S2[a2, a1, a5, SP[a4, a6], a3, n] - 
    S2[a2, a1, SP[a4, a6], a3, a5, n] - S2[a2, a1, SP[a4, a6], a5, a3, n] - 
    S2[a2, a1, SP[a5, a6], a3, a4, n] - S2[a2, a1, SP[a5, a6], a4, a3, n] - 
    S2[a2, a4, a1, a3, SP[a5, a6], n] + S2[a3, n]*S2[a2, a4, a1, a5, a6, n] + 
    S2[a3, n]*S2[a2, a4, a1, a6, a5, n] + S2[a2, a4, a1, a6, SP[a3, a5], n] + 
    S2[a2, a4, a1, SP[a3, a5], a6, n] - S2[a2, a4, a1, SP[a5, a6], a3, n] - 
    S2[a2, a4, a3, a1, SP[a5, a6], n] - S2[a2, a4, a3, SP[a1, a5], a6, n] - 
    S2[a2, a4, a5, a1, SP[a3, a6], n] - S2[a2, a4, a5, SP[a1, a3], a6, n] - 
    S2[a2, a4, SP[a1, a5], a3, a6, n] - S2[a2, a4, SP[a1, a5], a6, a3, n] + 
    S2[a4, n]*S2[a2, a5, a1, a3, a6, n] - S2[a2, a5, a1, a4, SP[a3, a6], n] + 
    S2[a4, n]*S2[a2, a5, a1, a6, a3, n] + S2[a2, a5, a1, a6, SP[a3, a4], n] + 
    S2[a2, a5, a1, SP[a3, a4], a6, n] - S2[a2, a5, a1, SP[a3, a6], a4, n] + 
    S2[a4, n]*S2[a2, a5, a3, a1, a6, n] - S2[a2, a5, a4, a1, SP[a3, a6], n] - 
    S2[a2, a5, a4, SP[a1, a3], a6, n] - S2[a2, a5, SP[a1, a3], a4, a6, n] - 
    S2[a2, a5, SP[a1, a3], a6, a4, n] + S2[a2, a5, SP[a3, a4], a1, a6, n] - 
    S2[a2, SP[a1, a4], a3, a5, a6, n] - S2[a2, SP[a1, a4], a3, a6, a5, n] - 
    S2[a2, SP[a1, a4], a5, a3, a6, n] - S2[a2, SP[a1, a4], a5, a6, a3, n] - 
    S2[a2, SP[a1, a4], a6, a3, a5, n] - S2[a2, SP[a1, a4], a6, a5, a3, n] - 
    S2[a2, SP[a1, a5], a3, a4, a6, n] - S2[a2, SP[a1, a5], a3, a6, a4, n] - 
    S2[a2, SP[a1, a5], a4, a3, a6, n] - S2[a2, SP[a1, a5], a4, a6, a3, n] - 
    S2[a2, SP[a1, a5], a6, a3, a4, n] - S2[a2, SP[a1, a5], a6, a4, a3, n] + 
    S2[a2, SP[a3, a4], a1, a5, a6, n] + S2[a2, SP[a3, a4], a1, a6, a5, n] + 
    S2[a2, SP[a4, a5], a1, a3, a6, n] + S2[a2, SP[a4, a5], a1, a6, a3, n] + 
    S2[a2, SP[a4, a5], a3, a1, a6, n] + S2[a3, a1, a2, a4, SP[a5, a6], n] - 
    S2[a3, a1, a2, a6, SP[a4, a5], n] - S2[a3, a1, a2, SP[a4, a5], a6, n] + 
    S2[a3, a1, a2, SP[a5, a6], a4, n] + 2*S2[a3, a1, a4, a2, SP[a5, a6], n] + 
    S2[a3, a1, a4, a6, SP[a2, a5], n] + S2[a3, a1, a4, SP[a2, a5], a6, n] + 
    S2[a3, a1, a4, SP[a2, a6], a5, n] + S2[a3, a1, a4, SP[a5, a6], a2, n] + 
    S2[a3, a1, a5, a2, SP[a4, a6], n] + S2[a3, a1, a5, a6, SP[a2, a4], n] + 
    S2[a3, a1, a5, SP[a2, a4], a6, n] + S2[a3, a1, a5, SP[a4, a6], a2, n] - 
    S2[a3, a1, a6, a2, SP[a4, a5], n] + S2[a3, a1, a6, a4, SP[a2, a5], n] + 
    S2[a3, a1, a6, a5, SP[a2, a4], n] + S2[a3, a1, a6, SP[a2, a5], a4, n] + 
    S2[a3, a1, SP[a2, a5], a4, a6, n] + S2[a3, a1, SP[a2, a5], a6, a4, n] + 
    S2[a3, a1, SP[a4, a6], a2, a5, n] + S2[a3, a1, SP[a4, a6], a5, a2, n] + 
    S2[a3, a1, SP[a5, a6], a2, a4, n] + S2[a3, a1, SP[a5, a6], a4, a2, n] + 
    2*S2[a3, a4, a1, a2, SP[a5, a6], n] - 
    S2[a2, n]*S2[a3, a4, a1, a5, a6, n] - S2[a3, a4, a1, a5, SP[a2, a6], n] - 
    S2[a2, n]*S2[a3, a4, a1, a6, a5, n] + S2[a3, a4, a1, SP[a5, a6], a2, n] + 
    S2[a3, a4, a2, a1, SP[a5, a6], n] + S2[a3, a4, a2, SP[a1, a5], a6, n] + 
    S2[a3, a4, SP[a1, a5], a2, a6, n] + S2[a3, a4, SP[a1, a5], a6, a2, n] - 
    S2[a4, n]*S2[a3, a5, a1, a2, a6, n] - 
    S2[a4, n]*S2[a3, a5, a1, a6, a2, n] + S2[a3, SP[a1, a4], a2, a5, a6, n] + 
    S2[a3, SP[a1, a4], a2, a6, a5, n] + S2[a3, SP[a1, a4], a5, a2, a6, n] + 
    S2[a3, SP[a1, a4], a5, a6, a2, n] + S2[a3, SP[a1, a4], a6, a2, a5, n] + 
    S2[a3, SP[a1, a4], a6, a5, a2, n] + S2[a3, SP[a1, a5], a2, a4, a6, n] + 
    S2[a3, SP[a1, a5], a2, a6, a4, n] + S2[a3, SP[a1, a5], a4, a2, a6, n] + 
    S2[a3, SP[a1, a5], a4, a6, a2, n] + S2[a3, SP[a1, a5], a6, a2, a4, n] + 
    S2[a3, SP[a1, a5], a6, a4, a2, n] - S2[a3, SP[a2, a4], a1, a5, a6, n] - 
    S2[a3, SP[a2, a4], a1, a6, a5, n] - S2[a3, SP[a4, a5], a1, a2, a6, n] - 
    S2[a3, SP[a4, a5], a1, a6, a2, n] - S2[a3, n]*S2[a4, a2, a5, a1, a6, n] - 
    S2[a4, a2, a5, a1, SP[a3, a6], n] - S2[a4, a2, a5, SP[a1, a3], a6, n] - 
    S2[a4, a2, SP[a3, a5], a1, a6, n] + S2[a2, n]*S2[a4, a3, a5, a1, a6, n] + 
    S2[a4, a3, a5, a1, SP[a2, a6], n] + S2[a4, a3, a5, SP[a1, a2], a6, n] + 
    S2[a4, a3, SP[a2, a5], a1, a6, n] + S2[SP[a1, a6], a2, a5, a3, a4, n] + 
    S2[SP[a2, a4], a3, a5, a1, a6, n] + S2[SP[a2, a4], a5, a1, a3, a6, n] + 
    S2[SP[a2, a4], a5, a1, a6, a3, n] + S2[SP[a2, a4], a5, a3, a1, a6, n] - 
    S2[SP[a3, a4], a2, a5, a1, a6, n] - S2[SP[a3, a4], a5, a1, a2, a6, n] - 
    S2[SP[a3, a4], a5, a1, a6, a2, n] - S2[a6, a1, a2, a5, a3, a4, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a4_, a3_, a5_, a2_, a6_, a1_, n_] :> 
  -(S2[a1, a6, a2, n]*S2[a3, a4, a5, n]) - S2[a1, a6, a2, n]*
     S2[a3, a5, a4, n] - S2[SP[a1, a3], SP[a4, a6], SP[a2, a5], n] - 
    S2[SP[a1, a3], SP[a5, a6], SP[a2, a4], n] + S2[a1, a3, SP[a4, a6], 
     SP[a2, a5], n] + S2[a1, a3, SP[a5, a6], SP[a2, a4], n] + 
    S2[a3, a4, n]*S2[a1, a6, a2, a5, n] - S2[a1, a6, SP[a2, a3], SP[a4, a5], 
     n] - S2[a1, SP[a3, a6], a2, SP[a4, a5], n] + S2[a1, SP[a3, a6], a4, 
     SP[a2, a5], n] + S2[a1, SP[a3, a6], a5, SP[a2, a4], n] + 
    S2[a1, SP[a3, a6], SP[a2, a5], a4, n] + S2[a1, a6, n]*
     S2[a2, a4, a3, a5, n] + S2[a1, a6, n]*S2[a2, a4, a5, a3, n] - 
    S2[a2, a4, SP[a1, a3], SP[a5, a6], n] - S2[a2, a4, SP[a1, a5], 
     SP[a3, a6], n] + S2[a1, a6, n]*S2[a2, a5, a3, a4, n] + 
    S2[a1, a6, n]*S2[a2, a5, a4, a3, n] - S2[a2, a5, SP[a1, a3], SP[a4, a6], 
     n] - S2[a2, a5, SP[a1, a4], SP[a3, a6], n] - S2[a2, SP[a1, a4], a3, 
     SP[a5, a6], n] - S2[a2, SP[a1, a4], a5, SP[a3, a6], n] - 
    S2[a2, SP[a1, a4], SP[a3, a6], a5, n] - S2[a2, SP[a1, a4], SP[a5, a6], 
     a3, n] - S2[a2, SP[a1, a5], a3, SP[a4, a6], n] - 
    S2[a2, SP[a1, a5], a4, SP[a3, a6], n] - S2[a2, SP[a1, a5], SP[a3, a6], 
     a4, n] - S2[a2, SP[a1, a5], SP[a4, a6], a3, n] + 
    S2[a3, a1, SP[a4, a6], SP[a2, a5], n] + S2[a3, a1, SP[a5, a6], 
     SP[a2, a4], n] - S2[a1, a6, n]*S2[a3, a4, a2, a5, n] + 
    S2[a3, a4, SP[a1, a2], SP[a5, a6], n] + S2[a3, SP[a1, a4], a2, 
     SP[a5, a6], n] + S2[a3, SP[a1, a4], a6, SP[a2, a5], n] + 
    S2[a3, SP[a1, a4], SP[a2, a6], a5, n] + S2[a3, SP[a1, a4], SP[a5, a6], 
     a2, n] + S2[a3, SP[a1, a5], a6, SP[a2, a4], n] + 
    S2[a3, SP[a1, a5], SP[a4, a6], a2, n] - S2[SP[a1, a2], a4, a3, 
     SP[a5, a6], n] - S2[SP[a1, a2], a4, a5, SP[a3, a6], n] - 
    S2[SP[a1, a2], a4, SP[a3, a6], a5, n] - S2[SP[a1, a2], a4, SP[a5, a6], 
     a3, n] - S2[SP[a1, a2], a5, a3, SP[a4, a6], n] - 
    S2[SP[a1, a2], a5, a4, SP[a3, a6], n] - S2[SP[a1, a2], a5, SP[a3, a6], 
     a4, n] - S2[SP[a1, a2], a5, SP[a4, a6], a3, n] - 
    S2[SP[a1, a2], SP[a4, a6], a3, a5, n] - S2[SP[a1, a2], SP[a4, a6], a5, 
     a3, n] - S2[SP[a1, a2], SP[a5, a6], a3, a4, n] - 
    S2[SP[a1, a2], SP[a5, a6], a4, a3, n] + S2[SP[a1, a3], a4, a2, 
     SP[a5, a6], n] + S2[SP[a1, a3], a4, a6, SP[a2, a5], n] + 
    S2[SP[a1, a3], a4, SP[a2, a6], a5, n] + S2[SP[a1, a3], a4, SP[a5, a6], 
     a2, n] + S2[SP[a1, a3], a5, a6, SP[a2, a4], n] + 
    S2[SP[a1, a3], a5, SP[a4, a6], a2, n] - S2[SP[a1, a3], a6, a2, 
     SP[a4, a5], n] + S2[SP[a1, a3], a6, a4, SP[a2, a5], n] + 
    S2[SP[a1, a3], a6, a5, SP[a2, a4], n] + S2[SP[a1, a3], a6, SP[a2, a5], 
     a4, n] + S2[SP[a1, a3], SP[a4, a6], a2, a5, n] + 
    S2[SP[a1, a3], SP[a4, a6], a5, a2, n] + S2[SP[a1, a3], SP[a5, a6], a2, 
     a4, n] + S2[SP[a1, a3], SP[a5, a6], a4, a2, n] + 
    S2[a1, a2, a4, a3, SP[a5, a6], n] + S2[a1, a2, a4, a5, SP[a3, a6], n] + 
    S2[a1, a2, a4, SP[a3, a6], a5, n] + S2[a1, a2, a4, SP[a5, a6], a3, n] + 
    S2[a1, a2, a5, a3, SP[a4, a6], n] + S2[a1, a2, a5, a4, SP[a3, a6], n] + 
    S2[a1, a2, a5, SP[a3, a6], a4, n] + S2[a1, a2, a5, SP[a4, a6], a3, n] + 
    S2[a1, a2, SP[a4, a6], a3, a5, n] + S2[a1, a2, SP[a4, a6], a5, a3, n] + 
    S2[a1, a2, SP[a5, a6], a3, a4, n] + S2[a1, a2, SP[a5, a6], a4, a3, n] - 
    S2[a1, a3, a4, a2, SP[a5, a6], n] - S2[a1, a3, a4, a6, SP[a2, a5], n] - 
    S2[a1, a3, a4, SP[a2, a6], a5, n] - S2[a1, a3, a4, SP[a5, a6], a2, n] - 
    S2[a1, a3, a5, a6, SP[a2, a4], n] - S2[a1, a3, a5, SP[a4, a6], a2, n] + 
    S2[a1, a3, a6, a2, SP[a4, a5], n] - S2[a1, a3, a6, a4, SP[a2, a5], n] - 
    S2[a1, a3, a6, a5, SP[a2, a4], n] - S2[a1, a3, a6, SP[a2, a5], a4, n] - 
    S2[a1, a3, SP[a4, a6], a2, a5, n] - S2[a1, a3, SP[a4, a6], a5, a2, n] - 
    S2[a1, a3, SP[a5, a6], a2, a4, n] - S2[a1, a3, SP[a5, a6], a4, a2, n] + 
    S2[a3, n]*S2[a1, a4, a2, a5, a6, n] + S2[a1, a4, a2, a5, SP[a3, a6], n] + 
    S2[a3, n]*S2[a1, a4, a2, a6, a5, n] + S2[a1, a4, a2, a6, SP[a3, a5], n] + 
    S2[a1, a4, a2, SP[a3, a5], a6, n] + S2[a1, a4, a2, SP[a3, a6], a5, n] - 
    S2[a2, n]*S2[a1, a4, a3, a5, a6, n] - S2[a1, a4, a3, a5, SP[a2, a6], n] - 
    S2[a2, n]*S2[a1, a4, a3, a6, a5, n] - S2[a1, a4, a3, a6, SP[a2, a5], n] - 
    S2[a1, a4, a3, SP[a2, a5], a6, n] - S2[a1, a4, a3, SP[a2, a6], a5, n] - 
    S2[a2, n]*S2[a1, a4, a5, a3, a6, n] - S2[a1, a4, a5, a3, SP[a2, a6], n] + 
    S2[a3, n]*S2[a1, a4, a5, a6, a2, n] - 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] - S2[a1, a4, a5, SP[a2, a3], a6, n] - 
    S2[a1, a4, a5, SP[a2, a6], a3, n] + S2[a1, a4, a5, SP[a3, a6], a2, n] + 
    S2[a3, n]*S2[a1, a4, a6, a2, a5, n] + S2[a1, a4, a6, a2, SP[a3, a5], n] - 
    S2[a2, n]*S2[a1, a4, a6, a3, a5, n] - S2[a1, a4, a6, a3, SP[a2, a5], n] + 
    S2[a3, n]*S2[a1, a4, a6, a5, a2, n] - 
    S2[a2, n]*S2[a1, a4, a6, a5, a3, n] - S2[a1, a4, a6, SP[a2, a5], a3, n] + 
    S2[a1, a4, a6, SP[a3, a5], a2, n] - S2[a1, a4, SP[a2, a5], a3, a6, n] - 
    S2[a1, a4, SP[a2, a5], a6, a3, n] - S2[a1, a4, SP[a2, a6], a3, a5, n] - 
    S2[a1, a4, SP[a2, a6], a5, a3, n] + S2[a1, a4, SP[a3, a5], a6, a2, n] + 
    S2[a1, a4, SP[a3, a6], a2, a5, n] + S2[a1, a4, SP[a3, a6], a5, a2, n] + 
    S2[a4, n]*S2[a1, a5, a2, a3, a6, n] + S2[a1, a5, a2, a3, SP[a4, a6], n] + 
    S2[a4, n]*S2[a1, a5, a2, a6, a3, n] + S2[a1, a5, a2, a6, SP[a3, a4], n] + 
    S2[a1, a5, a2, SP[a3, a4], a6, n] + S2[a1, a5, a2, SP[a4, a6], a3, n] + 
    S2[a4, n]*S2[a1, a5, a3, a2, a6, n] + S2[a1, a5, a3, a2, SP[a4, a6], n] - 
    S2[a2, n]*S2[a1, a5, a3, a4, a6, n] - S2[a1, a5, a3, a4, SP[a2, a6], n] - 
    S2[a2, n]*S2[a1, a5, a3, a6, a4, n] - S2[a1, a5, a3, a6, SP[a2, a4], n] - 
    S2[a1, a5, a3, SP[a2, a6], a4, n] - S2[a2, n]*S2[a1, a5, a4, a3, a6, n] - 
    S2[a1, a5, a4, a3, SP[a2, a6], n] + S2[a3, n]*S2[a1, a5, a4, a6, a2, n] - 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] - S2[a1, a5, a4, SP[a2, a3], a6, n] - 
    S2[a1, a5, a4, SP[a2, a6], a3, n] + S2[a1, a5, a4, SP[a3, a6], a2, n] + 
    S2[a3, n]*S2[a1, a5, a6, a2, a4, n] + S2[a1, a5, a6, a2, SP[a3, a4], n] - 
    S2[a2, n]*S2[a1, a5, a6, a3, a4, n] - S2[a1, a5, a6, a3, SP[a2, a4], n] + 
    S2[a3, n]*S2[a1, a5, a6, a4, a2, n] - 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] - S2[a1, a5, a6, SP[a2, a4], a3, n] + 
    S2[a1, a5, a6, SP[a3, a4], a2, n] - S2[a1, a5, SP[a2, a3], a4, a6, n] - 
    S2[a1, a5, SP[a2, a3], a6, a4, n] - S2[a1, a5, SP[a2, a6], a3, a4, n] - 
    S2[a1, a5, SP[a2, a6], a4, a3, n] + S2[a1, a5, SP[a3, a4], a2, a6, n] + 
    S2[a1, a5, SP[a3, a4], a6, a2, n] + S2[a1, a5, SP[a3, a6], a2, a4, n] + 
    S2[a1, a5, SP[a3, a6], a4, a2, n] + S2[a1, a6, a2, a3, SP[a4, a5], n] + 
    S2[a1, a6, a2, SP[a3, a5], a4, n] + S2[a1, a6, a3, a2, SP[a4, a5], n] - 
    S2[a1, a6, a3, a4, SP[a2, a5], n] - S2[a1, a6, a3, a5, SP[a2, a4], n] - 
    S2[a1, a6, a3, SP[a2, a5], a4, n] + S2[a3, n]*S2[a1, a6, a4, a2, a5, n] + 
    S2[a1, a6, a4, a2, SP[a3, a5], n] - S2[a2, n]*S2[a1, a6, a4, a3, a5, n] - 
    S2[a1, a6, a4, a3, SP[a2, a5], n] + S2[a3, n]*S2[a1, a6, a4, a5, a2, n] - 
    S2[a2, n]*S2[a1, a6, a4, a5, a3, n] - S2[a1, a6, a4, SP[a2, a5], a3, n] + 
    S2[a1, a6, a4, SP[a3, a5], a2, n] + S2[a3, n]*S2[a1, a6, a5, a2, a4, n] + 
    S2[a1, a6, a5, a2, SP[a3, a4], n] - S2[a2, n]*S2[a1, a6, a5, a3, a4, n] - 
    S2[a1, a6, a5, a3, SP[a2, a4], n] + S2[a3, n]*S2[a1, a6, a5, a4, a2, n] - 
    S2[a2, n]*S2[a1, a6, a5, a4, a3, n] - S2[a1, a6, a5, SP[a2, a4], a3, n] + 
    S2[a1, a6, a5, SP[a3, a4], a2, n] - S2[a1, a6, SP[a2, a4], a3, a5, n] - 
    S2[a1, a6, SP[a2, a4], a5, a3, n] - S2[a1, a6, SP[a2, a5], a3, a4, n] - 
    S2[a1, a6, SP[a2, a5], a4, a3, n] + S2[a1, a6, SP[a3, a4], a2, a5, n] + 
    S2[a1, a6, SP[a3, a4], a5, a2, n] + S2[a1, a6, SP[a3, a5], a2, a4, n] + 
    S2[a1, a6, SP[a3, a5], a4, a2, n] - S2[a1, SP[a2, a4], a3, a5, a6, n] - 
    S2[a1, SP[a2, a4], a3, a6, a5, n] - S2[a1, SP[a2, a4], a5, a3, a6, n] - 
    S2[a1, SP[a2, a4], a5, a6, a3, n] - S2[a1, SP[a2, a4], a6, a3, a5, n] - 
    S2[a1, SP[a2, a4], a6, a5, a3, n] - S2[a1, SP[a2, a5], a3, a4, a6, n] - 
    S2[a1, SP[a2, a5], a3, a6, a4, n] - S2[a1, SP[a2, a5], a4, a3, a6, n] - 
    S2[a1, SP[a2, a5], a4, a6, a3, n] - S2[a1, SP[a2, a5], a6, a3, a4, n] - 
    S2[a1, SP[a2, a5], a6, a4, a3, n] + S2[a1, SP[a3, a4], a2, a5, a6, n] + 
    S2[a1, SP[a3, a4], a2, a6, a5, n] + S2[a1, SP[a3, a4], a5, a6, a2, n] + 
    S2[a1, SP[a3, a4], a6, a2, a5, n] + S2[a1, SP[a3, a4], a6, a5, a2, n] + 
    S2[a1, SP[a3, a5], a4, a6, a2, n] + S2[a1, SP[a3, a5], a6, a2, a4, n] + 
    S2[a1, SP[a3, a5], a6, a4, a2, n] + S2[a1, SP[a4, a5], a2, a3, a6, n] + 
    S2[a1, SP[a4, a5], a2, a6, a3, n] + S2[a1, SP[a4, a5], a3, a2, a6, n] + 
    S2[a2, a1, a4, a3, SP[a5, a6], n] + S2[a2, a1, a4, a5, SP[a3, a6], n] + 
    S2[a2, a1, a4, SP[a3, a6], a5, n] + S2[a2, a1, a4, SP[a5, a6], a3, n] + 
    S2[a2, a1, a5, a3, SP[a4, a6], n] + S2[a2, a1, a5, a4, SP[a3, a6], n] + 
    S2[a2, a1, a5, SP[a3, a6], a4, n] + S2[a2, a1, a5, SP[a4, a6], a3, n] + 
    S2[a2, a1, SP[a4, a6], a3, a5, n] + S2[a2, a1, SP[a4, a6], a5, a3, n] + 
    S2[a2, a1, SP[a5, a6], a3, a4, n] + S2[a2, a1, SP[a5, a6], a4, a3, n] + 
    S2[a2, a4, a1, a3, SP[a5, a6], n] - S2[a3, n]*S2[a2, a4, a1, a5, a6, n] - 
    S2[a3, n]*S2[a2, a4, a1, a6, a5, n] - S2[a2, a4, a1, a6, SP[a3, a5], n] - 
    S2[a2, a4, a1, SP[a3, a5], a6, n] + S2[a2, a4, a1, SP[a5, a6], a3, n] + 
    S2[a2, a4, a3, a1, SP[a5, a6], n] + S2[a2, a4, a3, SP[a1, a5], a6, n] + 
    S2[a2, a4, a5, a1, SP[a3, a6], n] + S2[a2, a4, a5, SP[a1, a3], a6, n] + 
    S2[a2, a4, SP[a1, a5], a3, a6, n] + S2[a2, a4, SP[a1, a5], a6, a3, n] - 
    S2[a4, n]*S2[a2, a5, a1, a3, a6, n] + S2[a2, a5, a1, a4, SP[a3, a6], n] - 
    S2[a4, n]*S2[a2, a5, a1, a6, a3, n] - S2[a2, a5, a1, a6, SP[a3, a4], n] - 
    S2[a2, a5, a1, SP[a3, a4], a6, n] + S2[a2, a5, a1, SP[a3, a6], a4, n] - 
    S2[a4, n]*S2[a2, a5, a3, a1, a6, n] + S2[a2, a5, a4, a1, SP[a3, a6], n] + 
    S2[a2, a5, a4, SP[a1, a3], a6, n] + S2[a2, a5, SP[a1, a3], a4, a6, n] + 
    S2[a2, a5, SP[a1, a3], a6, a4, n] - S2[a2, a5, SP[a3, a4], a1, a6, n] + 
    S2[a2, SP[a1, a4], a3, a5, a6, n] + S2[a2, SP[a1, a4], a3, a6, a5, n] + 
    S2[a2, SP[a1, a4], a5, a3, a6, n] + S2[a2, SP[a1, a4], a5, a6, a3, n] + 
    S2[a2, SP[a1, a4], a6, a3, a5, n] + S2[a2, SP[a1, a4], a6, a5, a3, n] + 
    S2[a2, SP[a1, a5], a3, a4, a6, n] + S2[a2, SP[a1, a5], a3, a6, a4, n] + 
    S2[a2, SP[a1, a5], a4, a3, a6, n] + S2[a2, SP[a1, a5], a4, a6, a3, n] + 
    S2[a2, SP[a1, a5], a6, a3, a4, n] + S2[a2, SP[a1, a5], a6, a4, a3, n] - 
    S2[a2, SP[a3, a4], a1, a5, a6, n] - S2[a2, SP[a3, a4], a1, a6, a5, n] - 
    S2[a2, SP[a4, a5], a1, a3, a6, n] - S2[a2, SP[a4, a5], a1, a6, a3, n] - 
    S2[a2, SP[a4, a5], a3, a1, a6, n] - S2[a3, a1, a4, a2, SP[a5, a6], n] - 
    S2[a3, a1, a4, a6, SP[a2, a5], n] - S2[a3, a1, a4, SP[a2, a6], a5, n] - 
    S2[a3, a1, a4, SP[a5, a6], a2, n] - S2[a3, a1, a5, a6, SP[a2, a4], n] - 
    S2[a3, a1, a5, SP[a4, a6], a2, n] + S2[a3, a1, a6, a2, SP[a4, a5], n] - 
    S2[a3, a1, a6, a4, SP[a2, a5], n] - S2[a3, a1, a6, a5, SP[a2, a4], n] - 
    S2[a3, a1, a6, SP[a2, a5], a4, n] - S2[a3, a1, SP[a4, a6], a2, a5, n] - 
    S2[a3, a1, SP[a4, a6], a5, a2, n] - S2[a3, a1, SP[a5, a6], a2, a4, n] - 
    S2[a3, a1, SP[a5, a6], a4, a2, n] - S2[a3, a4, a1, a2, SP[a5, a6], n] + 
    S2[a2, n]*S2[a3, a4, a1, a5, a6, n] + S2[a3, a4, a1, a5, SP[a2, a6], n] + 
    S2[a2, n]*S2[a3, a4, a1, a6, a5, n] + S2[a3, a4, a1, SP[a2, a5], a6, n] - 
    S2[a3, a4, a1, SP[a5, a6], a2, n] - S2[a3, a4, a2, a1, SP[a5, a6], n] - 
    S2[a3, a4, a2, SP[a1, a5], a6, n] - S2[a3, a4, SP[a1, a5], a6, a2, n] + 
    S2[a4, n]*S2[a3, a5, a1, a6, a2, n] - S2[a3, SP[a1, a4], a2, a5, a6, n] - 
    S2[a3, SP[a1, a4], a2, a6, a5, n] - S2[a3, SP[a1, a4], a5, a6, a2, n] - 
    S2[a3, SP[a1, a4], a6, a2, a5, n] - S2[a3, SP[a1, a4], a6, a5, a2, n] - 
    S2[a3, SP[a1, a5], a4, a6, a2, n] - S2[a3, SP[a1, a5], a6, a2, a4, n] - 
    S2[a3, SP[a1, a5], a6, a4, a2, n] + S2[a3, SP[a2, a4], a1, a5, a6, n] + 
    S2[a3, SP[a2, a4], a1, a6, a5, n] + S2[a3, SP[a4, a5], a1, a6, a2, n] - 
    S2[a3, n]*S2[a4, a1, a5, a2, a6, n] - S2[a4, a1, a5, a2, SP[a3, a6], n] - 
    S2[a4, a1, a5, SP[a2, a3], a6, n] - S2[a4, a1, SP[a3, a5], a2, a6, n] + 
    S2[a3, n]*S2[a4, a2, a5, a1, a6, n] + S2[a4, a2, a5, a1, SP[a3, a6], n] + 
    S2[a4, a2, a5, SP[a1, a3], a6, n] + S2[a4, a2, SP[a3, a5], a1, a6, n] - 
    S2[a2, n]*S2[a4, a3, a5, a1, a6, n] - S2[a4, a3, a5, a1, SP[a2, a6], n] + 
    S2[a1, n]*S2[a4, a3, a5, a2, a6, n] + S2[a4, a3, a5, a2, SP[a1, a6], n] + 
    S2[a4, a3, SP[a1, a5], a2, a6, n] - S2[a4, a3, SP[a2, a5], a1, a6, n] - 
    S2[a1, n]*S2[a6, a2, a5, a3, a4, n] - S2[a6, a2, a5, a3, SP[a1, a4], n] - 
    S2[a6, a2, a5, SP[a1, a3], a4, n] - S2[a6, a2, SP[a1, a5], a3, a4, n] - 
    S2[a6, SP[a1, a2], a5, a3, a4, n] + S2[SP[a1, a4], a3, a5, a2, a6, n] + 
    S2[SP[a1, a4], a5, a2, a3, a6, n] + S2[SP[a1, a4], a5, a2, a6, a3, n] + 
    S2[SP[a1, a4], a5, a3, a2, a6, n] - S2[SP[a1, a6], a2, a5, a3, a4, n] - 
    S2[SP[a2, a4], a3, a5, a1, a6, n] - S2[SP[a2, a4], a5, a1, a3, a6, n] - 
    S2[SP[a2, a4], a5, a1, a6, a3, n] - S2[SP[a2, a4], a5, a3, a1, a6, n] - 
    S2[SP[a3, a4], a1, a5, a2, a6, n] + S2[SP[a3, a4], a2, a5, a1, a6, n] + 
    S2[SP[a3, a4], a5, a1, a6, a2, n] + S2[a6, a1, a2, a5, a3, a4, n] + 
    S2[a6, a2, a1, a5, a3, a4, n] + S2[a6, a2, a5, a1, a3, a4, n] + 
    S2[a6, a2, a5, a3, a1, a4, n] + S2[a6, a2, a5, a3, a4, a1, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a4_, a3_, a5_, a6_, a1_, a2_, n_] :> 
  S2[a1, a2, a6, n]*S2[a3, a4, a5, n] + S2[a1, a6, a2, n]*S2[a3, a4, a5, n] + 
    S2[a1, a2, a6, n]*S2[a3, a5, a4, n] + S2[a1, a6, a2, n]*
     S2[a3, a5, a4, n] + S2[SP[a1, a3], SP[a2, a4], SP[a5, a6], n] + 
    S2[SP[a1, a3], SP[a2, a5], SP[a4, a6], n] + S2[SP[a1, a3], SP[a4, a6], 
     SP[a2, a5], n] + S2[SP[a1, a3], SP[a5, a6], SP[a2, a4], n] - 
    S2[a3, a4, n]*S2[a1, a2, a6, a5, n] + S2[a1, a2, SP[a3, a6], SP[a4, a5], 
     n] - S2[a1, a3, SP[a2, a4], SP[a5, a6], n] - S2[a1, a3, SP[a2, a5], 
     SP[a4, a6], n] - S2[a1, a3, SP[a4, a6], SP[a2, a5], n] - 
    S2[a1, a3, SP[a5, a6], SP[a2, a4], n] - S2[a3, a4, n]*
     S2[a1, a6, a2, a5, n] - S2[a3, a4, n]*S2[a1, a6, a5, a2, n] + 
    S2[a1, a6, SP[a2, a3], SP[a4, a5], n] + S2[a1, a6, SP[a3, a5], 
     SP[a2, a4], n] - S2[a1, SP[a2, a3], a4, SP[a5, a6], n] - 
    S2[a1, SP[a2, a3], a5, SP[a4, a6], n] + S2[a1, SP[a2, a3], a6, 
     SP[a4, a5], n] - S2[a1, SP[a2, a3], SP[a5, a6], a4, n] + 
    S2[a1, SP[a3, a6], a2, SP[a4, a5], n] - S2[a1, SP[a3, a6], a4, 
     SP[a2, a5], n] - S2[a1, SP[a3, a6], SP[a2, a5], a4, n] + 
    S2[a1, SP[a3, a6], SP[a4, a5], a2, n] - S2[a3, a1, SP[a2, a4], 
     SP[a5, a6], n] - S2[a3, a1, SP[a2, a5], SP[a4, a6], n] - 
    S2[a3, a1, SP[a4, a6], SP[a2, a5], n] - S2[a3, a1, SP[a5, a6], 
     SP[a2, a4], n] + S2[a1, a2, n]*S2[a3, a4, a6, a5, n] - 
    S2[a3, a4, SP[a1, a6], SP[a2, a5], n] + S2[a1, a2, n]*
     S2[a3, a6, a4, a5, n] + S2[a1, a2, n]*S2[a3, a6, a5, a4, n] - 
    S2[a3, a6, SP[a1, a4], SP[a2, a5], n] - S2[a3, a6, SP[a1, a5], 
     SP[a2, a4], n] - S2[a3, SP[a1, a4], a2, SP[a5, a6], n] - 
    2*S2[a3, SP[a1, a4], a6, SP[a2, a5], n] - S2[a3, SP[a1, a4], SP[a2, a5], 
     a6, n] - S2[a3, SP[a1, a4], SP[a2, a6], a5, n] - 
    S2[a3, SP[a1, a4], SP[a5, a6], a2, n] - S2[a3, SP[a1, a5], a2, 
     SP[a4, a6], n] - S2[a3, SP[a1, a5], a6, SP[a2, a4], n] - 
    S2[a3, SP[a1, a5], SP[a2, a4], a6, n] - S2[a3, SP[a1, a5], SP[a4, a6], 
     a2, n] - S2[a3, SP[a1, a6], a4, SP[a2, a5], n] - 
    S2[a3, SP[a1, a6], a5, SP[a2, a4], n] - S2[a3, SP[a1, a6], SP[a2, a4], 
     a5, n] - S2[a3, SP[a1, a6], SP[a2, a5], a4, n] - 
    S2[a1, a2, n]*S2[a5, a6, a3, a4, n] + S2[a5, a6, SP[a1, a3], SP[a2, a4], 
     n] + S2[a5, SP[a1, a6], a3, SP[a2, a4], n] + 
    S2[a5, SP[a1, a6], SP[a2, a3], a4, n] - S2[SP[a1, a3], a2, a4, 
     SP[a5, a6], n] - S2[SP[a1, a3], a2, a5, SP[a4, a6], n] + 
    S2[SP[a1, a3], a2, a6, SP[a4, a5], n] - S2[SP[a1, a3], a2, SP[a5, a6], 
     a4, n] - S2[SP[a1, a3], a4, a2, SP[a5, a6], n] - 
    2*S2[SP[a1, a3], a4, a6, SP[a2, a5], n] - S2[SP[a1, a3], a4, SP[a2, a5], 
     a6, n] - S2[SP[a1, a3], a4, SP[a2, a6], a5, n] - 
    S2[SP[a1, a3], a4, SP[a5, a6], a2, n] - S2[SP[a1, a3], a5, a2, 
     SP[a4, a6], n] - S2[SP[a1, a3], a5, a6, SP[a2, a4], n] - 
    S2[SP[a1, a3], a5, SP[a2, a4], a6, n] - S2[SP[a1, a3], a5, SP[a4, a6], 
     a2, n] + S2[SP[a1, a3], a6, a2, SP[a4, a5], n] - 
    2*S2[SP[a1, a3], a6, a4, SP[a2, a5], n] - S2[SP[a1, a3], a6, a5, 
     SP[a2, a4], n] - S2[SP[a1, a3], a6, SP[a2, a4], a5, n] - 
    2*S2[SP[a1, a3], a6, SP[a2, a5], a4, n] + S2[SP[a1, a3], a6, SP[a4, a5], 
     a2, n] - S2[SP[a1, a3], SP[a2, a4], a5, a6, n] - 
    S2[SP[a1, a3], SP[a2, a4], a6, a5, n] - S2[SP[a1, a3], SP[a2, a5], a4, 
     a6, n] - S2[SP[a1, a3], SP[a2, a5], a6, a4, n] - 
    S2[SP[a1, a3], SP[a2, a6], a4, a5, n] - S2[SP[a1, a3], SP[a2, a6], a5, 
     a4, n] - S2[SP[a1, a3], SP[a5, a6], a2, a4, n] - 
    S2[SP[a1, a3], SP[a5, a6], a4, a2, n] + S2[SP[a1, a5], a6, a3, 
     SP[a2, a4], n] + S2[SP[a1, a5], a6, SP[a2, a3], a4, n] + 
    S2[SP[a1, a5], SP[a2, a6], a3, a4, n] + S2[a1, a2, a3, a4, SP[a5, a6], 
     n] + S2[a1, a2, a3, a5, SP[a4, a6], n] - S2[a1, a2, a3, a6, SP[a4, a5], 
     n] + S2[a1, a2, a3, SP[a5, a6], a4, n] + 
    S2[a6, n]*S2[a1, a2, a4, a3, a5, n] + S2[a1, a2, a4, a3, SP[a5, a6], n] + 
    S2[a6, n]*S2[a1, a2, a4, a5, a3, n] - 
    S2[a3, n]*S2[a1, a2, a4, a5, a6, n] - 
    S2[a3, n]*S2[a1, a2, a4, a6, a5, n] - S2[a1, a2, a4, a6, SP[a3, a5], n] - 
    S2[a1, a2, a4, SP[a3, a5], a6, n] + S2[a1, a2, a4, SP[a5, a6], a3, n] + 
    S2[a6, n]*S2[a1, a2, a5, a3, a4, n] + S2[a1, a2, a5, a3, SP[a4, a6], n] + 
    S2[a6, n]*S2[a1, a2, a5, a4, a3, n] - 
    S2[a3, n]*S2[a1, a2, a5, a4, a6, n] - 
    S2[a3, n]*S2[a1, a2, a5, a6, a4, n] - S2[a1, a2, a5, a6, SP[a3, a4], n] - 
    S2[a1, a2, a5, SP[a3, a4], a6, n] + S2[a1, a2, a5, SP[a4, a6], a3, n] + 
    S2[a5, n]*S2[a1, a2, a6, a3, a4, n] - 
    S2[a3, n]*S2[a1, a2, a6, a4, a5, n] - S2[a1, a2, a6, a4, SP[a3, a5], n] - 
    S2[a3, n]*S2[a1, a2, a6, a5, a4, n] - S2[a1, a2, a6, a5, SP[a3, a4], n] - 
    S2[a1, a2, a6, SP[a3, a4], a5, n] - S2[a1, a2, a6, SP[a3, a5], a4, n] - 
    S2[a1, a2, SP[a3, a4], a5, a6, n] - S2[a1, a2, SP[a3, a4], a6, a5, n] - 
    S2[a1, a2, SP[a3, a5], a4, a6, n] - S2[a1, a2, SP[a3, a5], a6, a4, n] - 
    S2[a1, a2, SP[a3, a6], a4, a5, n] - S2[a1, a2, SP[a3, a6], a5, a4, n] + 
    S2[a1, a2, SP[a4, a6], a3, a5, n] + S2[a1, a2, SP[a4, a6], a5, a3, n] + 
    2*S2[a1, a2, SP[a5, a6], a3, a4, n] + S2[a1, a2, SP[a5, a6], a4, a3, n] + 
    S2[a1, a3, a2, a4, SP[a5, a6], n] + S2[a1, a3, a2, a5, SP[a4, a6], n] - 
    S2[a1, a3, a2, a6, SP[a4, a5], n] + S2[a1, a3, a2, SP[a5, a6], a4, n] + 
    S2[a1, a3, a4, a2, SP[a5, a6], n] + 2*S2[a1, a3, a4, a6, SP[a2, a5], n] + 
    S2[a1, a3, a4, SP[a2, a5], a6, n] + S2[a1, a3, a4, SP[a2, a6], a5, n] + 
    S2[a1, a3, a4, SP[a5, a6], a2, n] + S2[a1, a3, a5, a2, SP[a4, a6], n] + 
    S2[a1, a3, a5, a6, SP[a2, a4], n] + S2[a1, a3, a5, SP[a2, a4], a6, n] + 
    S2[a1, a3, a5, SP[a4, a6], a2, n] - S2[a1, a3, a6, a2, SP[a4, a5], n] + 
    2*S2[a1, a3, a6, a4, SP[a2, a5], n] + S2[a1, a3, a6, a5, SP[a2, a4], n] + 
    S2[a1, a3, a6, SP[a2, a4], a5, n] + 2*S2[a1, a3, a6, SP[a2, a5], a4, n] - 
    S2[a1, a3, a6, SP[a4, a5], a2, n] + S2[a1, a3, SP[a2, a4], a5, a6, n] + 
    S2[a1, a3, SP[a2, a4], a6, a5, n] + S2[a1, a3, SP[a2, a5], a4, a6, n] + 
    S2[a1, a3, SP[a2, a5], a6, a4, n] + S2[a1, a3, SP[a2, a6], a4, a5, n] + 
    S2[a1, a3, SP[a2, a6], a5, a4, n] + S2[a1, a3, SP[a5, a6], a2, a4, n] + 
    S2[a1, a3, SP[a5, a6], a4, a2, n] + S2[a6, n]*S2[a1, a4, a2, a3, a5, n] + 
    S2[a1, a4, a2, a3, SP[a5, a6], n] + S2[a6, n]*S2[a1, a4, a2, a5, a3, n] - 
    S2[a3, n]*S2[a1, a4, a2, a5, a6, n] - 
    S2[a3, n]*S2[a1, a4, a2, a6, a5, n] - S2[a1, a4, a2, a6, SP[a3, a5], n] - 
    S2[a1, a4, a2, SP[a3, a5], a6, n] + S2[a1, a4, a2, SP[a5, a6], a3, n] + 
    S2[a6, n]*S2[a1, a4, a3, a2, a5, n] + S2[a1, a4, a3, a2, SP[a5, a6], n] + 
    S2[a6, n]*S2[a1, a4, a3, a5, a2, n] + S2[a1, a4, a3, a5, SP[a2, a6], n] + 
    S2[a1, a4, a3, SP[a2, a6], a5, n] + S2[a1, a4, a3, SP[a5, a6], a2, n] + 
    S2[a6, n]*S2[a1, a4, a5, a2, a3, n] - 
    S2[a3, n]*S2[a1, a4, a5, a2, a6, n] + 
    S2[a6, n]*S2[a1, a4, a5, a3, a2, n] + S2[a1, a4, a5, a3, SP[a2, a6], n] - 
    S2[a3, n]*S2[a1, a4, a5, a6, a2, n] - S2[a1, a4, a5, a6, SP[a2, a3], n] - 
    S2[a1, a4, a5, SP[a2, a3], a6, n] + S2[a1, a4, a5, SP[a2, a6], a3, n] - 
    S2[a3, n]*S2[a1, a4, a6, a2, a5, n] - S2[a1, a4, a6, a2, SP[a3, a5], n] - 
    S2[a3, n]*S2[a1, a4, a6, a5, a2, n] - S2[a1, a4, a6, a5, SP[a2, a3], n] - 
    S2[a1, a4, a6, SP[a2, a3], a5, n] - S2[a1, a4, a6, SP[a3, a5], a2, n] - 
    S2[a1, a4, SP[a2, a3], a5, a6, n] - S2[a1, a4, SP[a2, a3], a6, a5, n] + 
    S2[a1, a4, SP[a2, a6], a3, a5, n] + S2[a1, a4, SP[a2, a6], a5, a3, n] - 
    S2[a1, a4, SP[a3, a5], a2, a6, n] - S2[a1, a4, SP[a3, a5], a6, a2, n] + 
    S2[a1, a4, SP[a5, a6], a2, a3, n] + S2[a1, a4, SP[a5, a6], a3, a2, n] + 
    S2[a6, n]*S2[a1, a5, a2, a3, a4, n] + S2[a1, a5, a2, a3, SP[a4, a6], n] + 
    S2[a6, n]*S2[a1, a5, a2, a4, a3, n] - 
    S2[a3, n]*S2[a1, a5, a2, a4, a6, n] - 
    S2[a3, n]*S2[a1, a5, a2, a6, a4, n] - S2[a1, a5, a2, a6, SP[a3, a4], n] - 
    S2[a1, a5, a2, SP[a3, a4], a6, n] + S2[a1, a5, a2, SP[a4, a6], a3, n] + 
    S2[a6, n]*S2[a1, a5, a3, a2, a4, n] + S2[a1, a5, a3, a2, SP[a4, a6], n] + 
    S2[a6, n]*S2[a1, a5, a3, a4, a2, n] + S2[a1, a5, a3, a4, SP[a2, a6], n] + 
    S2[a1, a5, a3, SP[a2, a6], a4, n] + S2[a1, a5, a3, SP[a4, a6], a2, n] + 
    S2[a6, n]*S2[a1, a5, a4, a2, a3, n] - 
    S2[a3, n]*S2[a1, a5, a4, a2, a6, n] + 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] + S2[a1, a5, a4, a3, SP[a2, a6], n] - 
    S2[a3, n]*S2[a1, a5, a4, a6, a2, n] - S2[a1, a5, a4, a6, SP[a2, a3], n] - 
    S2[a1, a5, a4, SP[a2, a3], a6, n] + S2[a1, a5, a4, SP[a2, a6], a3, n] - 
    S2[a3, n]*S2[a1, a5, a6, a2, a4, n] - S2[a1, a5, a6, a2, SP[a3, a4], n] - 
    S2[a1, a5, a6, a3, SP[a2, a4], n] - S2[a3, n]*S2[a1, a5, a6, a4, a2, n] - 
    S2[a1, a5, a6, a4, SP[a2, a3], n] - 2*S2[a1, a5, a6, SP[a2, a3], a4, n] - 
    S2[a1, a5, a6, SP[a3, a4], a2, n] - S2[a1, a5, SP[a2, a3], a4, a6, n] - 
    S2[a1, a5, SP[a2, a3], a6, a4, n] + S2[a1, a5, SP[a2, a6], a4, a3, n] - 
    S2[a1, a5, SP[a3, a4], a2, a6, n] - S2[a1, a5, SP[a3, a4], a6, a2, n] + 
    S2[a1, a5, SP[a4, a6], a2, a3, n] + S2[a1, a5, SP[a4, a6], a3, a2, n] + 
    S2[a5, n]*S2[a1, a6, a2, a3, a4, n] - 
    S2[a3, n]*S2[a1, a6, a2, a4, a5, n] - S2[a1, a6, a2, a4, SP[a3, a5], n] - 
    S2[a3, n]*S2[a1, a6, a2, a5, a4, n] - S2[a1, a6, a2, a5, SP[a3, a4], n] - 
    S2[a1, a6, a2, SP[a3, a4], a5, n] - S2[a1, a6, a2, SP[a3, a5], a4, n] + 
    S2[a5, n]*S2[a1, a6, a3, a2, a4, n] + 
    S2[a5, n]*S2[a1, a6, a3, a4, a2, n] + 
    2*S2[a1, a6, a3, a4, SP[a2, a5], n] + 
    2*S2[a1, a6, a3, SP[a2, a5], a4, n] - 
    S2[a3, n]*S2[a1, a6, a4, a2, a5, n] - S2[a1, a6, a4, a2, SP[a3, a5], n] - 
    S2[a3, n]*S2[a1, a6, a4, a5, a2, n] - S2[a1, a6, a4, a5, SP[a2, a3], n] - 
    S2[a1, a6, a4, SP[a2, a3], a5, n] - S2[a1, a6, a4, SP[a3, a5], a2, n] - 
    S2[a3, n]*S2[a1, a6, a5, a2, a4, n] - S2[a1, a6, a5, a2, SP[a3, a4], n] - 
    S2[a1, a6, a5, a3, SP[a2, a4], n] - S2[a3, n]*S2[a1, a6, a5, a4, a2, n] - 
    S2[a1, a6, a5, a4, SP[a2, a3], n] - 2*S2[a1, a6, a5, SP[a2, a3], a4, n] - 
    S2[a1, a6, a5, SP[a3, a4], a2, n] - S2[a1, a6, SP[a2, a3], a4, a5, n] - 
    S2[a1, a6, SP[a2, a3], a5, a4, n] + S2[a1, a6, SP[a2, a5], a3, a4, n] - 
    S2[a1, a6, SP[a3, a4], a2, a5, n] - S2[a1, a6, SP[a3, a4], a5, a2, n] - 
    S2[a1, a6, SP[a3, a5], a2, a4, n] - S2[a1, a6, SP[a3, a5], a4, a2, n] + 
    S2[a1, SP[a2, a6], a4, a3, a5, n] + S2[a1, SP[a2, a6], a4, a5, a3, n] + 
    S2[a1, SP[a2, a6], a5, a3, a4, n] + S2[a1, SP[a2, a6], a5, a4, a3, n] - 
    S2[a1, SP[a3, a4], a2, a5, a6, n] - S2[a1, SP[a3, a4], a2, a6, a5, n] - 
    S2[a1, SP[a3, a4], a5, a2, a6, n] - S2[a1, SP[a3, a4], a5, a6, a2, n] - 
    S2[a1, SP[a3, a4], a6, a2, a5, n] - S2[a1, SP[a3, a4], a6, a5, a2, n] - 
    S2[a1, SP[a3, a5], a2, a4, a6, n] - S2[a1, SP[a3, a5], a2, a6, a4, n] - 
    S2[a1, SP[a3, a5], a4, a2, a6, n] - S2[a1, SP[a3, a5], a4, a6, a2, n] - 
    S2[a1, SP[a3, a5], a6, a2, a4, n] - S2[a1, SP[a3, a5], a6, a4, a2, n] - 
    S2[a1, SP[a3, a6], a2, a4, a5, n] - S2[a1, SP[a3, a6], a2, a5, a4, n] - 
    S2[a1, SP[a3, a6], a4, a2, a5, n] - S2[a1, SP[a3, a6], a4, a5, a2, n] - 
    S2[a1, SP[a3, a6], a5, a2, a4, n] - S2[a1, SP[a3, a6], a5, a4, a2, n] + 
    S2[a1, SP[a4, a6], a2, a3, a5, n] + S2[a1, SP[a4, a6], a2, a5, a3, n] + 
    S2[a1, SP[a4, a6], a3, a2, a5, n] + S2[a1, SP[a4, a6], a3, a5, a2, n] + 
    S2[a1, SP[a4, a6], a5, a2, a3, n] + S2[a1, SP[a4, a6], a5, a3, a2, n] + 
    2*S2[a1, SP[a5, a6], a2, a3, a4, n] + S2[a1, SP[a5, a6], a2, a4, a3, n] + 
    2*S2[a1, SP[a5, a6], a3, a2, a4, n] + 
    2*S2[a1, SP[a5, a6], a3, a4, a2, n] + S2[a1, SP[a5, a6], a4, a2, a3, n] + 
    S2[a1, SP[a5, a6], a4, a3, a2, n] + S2[a3, a1, a2, a4, SP[a5, a6], n] + 
    S2[a3, a1, a2, a5, SP[a4, a6], n] - S2[a3, a1, a2, a6, SP[a4, a5], n] + 
    S2[a3, a1, a2, SP[a5, a6], a4, n] + S2[a3, a1, a4, a2, SP[a5, a6], n] + 
    2*S2[a3, a1, a4, a6, SP[a2, a5], n] + S2[a3, a1, a4, SP[a2, a5], a6, n] + 
    S2[a3, a1, a4, SP[a2, a6], a5, n] + S2[a3, a1, a4, SP[a5, a6], a2, n] + 
    S2[a3, a1, a5, a2, SP[a4, a6], n] + S2[a3, a1, a5, a6, SP[a2, a4], n] + 
    S2[a3, a1, a5, SP[a2, a4], a6, n] + S2[a3, a1, a5, SP[a4, a6], a2, n] - 
    S2[a3, a1, a6, a2, SP[a4, a5], n] + 2*S2[a3, a1, a6, a4, SP[a2, a5], n] + 
    S2[a3, a1, a6, a5, SP[a2, a4], n] + S2[a3, a1, a6, SP[a2, a4], a5, n] + 
    2*S2[a3, a1, a6, SP[a2, a5], a4, n] - S2[a3, a1, a6, SP[a4, a5], a2, n] + 
    S2[a3, a1, SP[a2, a4], a5, a6, n] + S2[a3, a1, SP[a2, a4], a6, a5, n] + 
    S2[a3, a1, SP[a2, a5], a4, a6, n] + S2[a3, a1, SP[a2, a5], a6, a4, n] + 
    S2[a3, a1, SP[a2, a6], a4, a5, n] + S2[a3, a1, SP[a2, a6], a5, a4, n] + 
    S2[a3, a1, SP[a5, a6], a2, a4, n] + S2[a3, a1, SP[a5, a6], a4, a2, n] - 
    S2[a6, n]*S2[a3, a4, a1, a2, a5, n] - 
    S2[a6, n]*S2[a3, a4, a1, a5, a2, n] - S2[a3, a4, a1, a5, SP[a2, a6], n] + 
    2*S2[a3, a4, a1, a6, SP[a2, a5], n] + S2[a3, a4, a1, SP[a2, a5], a6, n] - 
    S2[a6, n]*S2[a3, a4, a5, a1, a2, n] - S2[a3, a4, a5, a1, SP[a2, a6], n] - 
    S2[a3, a4, a5, SP[a1, a6], a2, n] + S2[a3, a4, a6, a1, SP[a2, a5], n] + 
    S2[a3, a4, a6, SP[a1, a5], a2, n] + S2[a3, a4, SP[a1, a5], a2, a6, n] + 
    S2[a3, a4, SP[a1, a5], a6, a2, n] - S2[a3, a4, SP[a5, a6], a1, a2, n] - 
    S2[a6, n]*S2[a3, a5, a1, a2, a4, n] - 
    S2[a6, n]*S2[a3, a5, a1, a4, a2, n] - S2[a3, a5, a1, a4, SP[a2, a6], n] + 
    S2[a3, a5, a1, a6, SP[a2, a4], n] + S2[a3, a5, a1, SP[a2, a4], a6, n] - 
    S2[a3, a5, a1, SP[a2, a6], a4, n] - S2[a6, n]*S2[a3, a5, a4, a1, a2, n] - 
    S2[a3, a5, a4, a1, SP[a2, a6], n] - S2[a3, a5, a4, SP[a1, a6], a2, n] + 
    S2[a4, n]*S2[a3, a5, a6, a1, a2, n] + S2[a3, a5, a6, a1, SP[a2, a4], n] + 
    S2[a3, a5, a6, SP[a1, a4], a2, n] + S2[a3, a5, SP[a1, a4], a2, a6, n] + 
    S2[a3, a5, SP[a1, a4], a6, a2, n] - S2[a3, a5, SP[a1, a6], a2, a4, n] - 
    S2[a3, a5, SP[a1, a6], a4, a2, n] - S2[a5, n]*S2[a3, a6, a1, a2, a4, n] - 
    S2[a3, a6, a1, a2, SP[a4, a5], n] - S2[a5, n]*S2[a3, a6, a1, a4, a2, n] + 
    S2[a3, a6, a1, a5, SP[a2, a4], n] + S2[a3, a6, a1, SP[a2, a4], a5, n] - 
    S2[a3, a6, a1, SP[a4, a5], a2, n] + S2[a3, a6, a4, a1, SP[a2, a5], n] + 
    S2[a3, a6, a4, SP[a1, a5], a2, n] + S2[a3, a6, a5, a1, SP[a2, a4], n] + 
    S2[a3, a6, a5, SP[a1, a4], a2, n] + S2[a3, a6, SP[a1, a4], a2, a5, n] + 
    S2[a3, a6, SP[a1, a4], a5, a2, n] + S2[a3, SP[a1, a4], a2, a5, a6, n] + 
    S2[a3, SP[a1, a4], a2, a6, a5, n] + S2[a3, SP[a1, a4], a5, a2, a6, n] + 
    S2[a3, SP[a1, a4], a5, a6, a2, n] + S2[a3, SP[a1, a4], a6, a2, a5, n] + 
    S2[a3, SP[a1, a4], a6, a5, a2, n] + S2[a3, SP[a1, a5], a2, a4, a6, n] + 
    S2[a3, SP[a1, a5], a2, a6, a4, n] + S2[a3, SP[a1, a5], a4, a2, a6, n] + 
    S2[a3, SP[a1, a5], a4, a6, a2, n] + S2[a3, SP[a1, a5], a6, a2, a4, n] + 
    S2[a3, SP[a1, a5], a6, a4, a2, n] + S2[a3, SP[a1, a6], a2, a4, a5, n] + 
    S2[a3, SP[a1, a6], a2, a5, a4, n] + S2[a3, SP[a1, a6], a4, a2, a5, n] + 
    S2[a3, SP[a1, a6], a4, a5, a2, n] + S2[a3, SP[a1, a6], a5, a2, a4, n] + 
    S2[a3, SP[a1, a6], a5, a4, a2, n] + S2[a3, SP[a4, a5], a6, a1, a2, n] - 
    S2[a3, SP[a4, a6], a1, a2, a5, n] - S2[a3, SP[a4, a6], a1, a5, a2, n] - 
    S2[a3, SP[a4, a6], a5, a1, a2, n] - 2*S2[a3, SP[a5, a6], a1, a2, a4, n] - 
    2*S2[a3, SP[a5, a6], a1, a4, a2, n] - S2[a3, SP[a5, a6], a4, a1, a2, n] - 
    S2[a5, a1, a6, a3, SP[a2, a4], n] - S2[a5, a1, a6, SP[a2, a3], a4, n] - 
    S2[a5, a1, SP[a2, a6], a3, a4, n] + S2[a3, n]*S2[a5, a6, a1, a2, a4, n] + 
    S2[a5, a6, a1, a2, SP[a3, a4], n] - S2[a5, a6, a1, a3, SP[a2, a4], n] + 
    S2[a3, n]*S2[a5, a6, a1, a4, a2, n] + S2[a5, a6, a1, a4, SP[a2, a3], n] + 
    S2[a5, a6, a1, SP[a3, a4], a2, n] - S2[a5, a6, a3, a1, SP[a2, a4], n] - 
    S2[a5, a6, a3, SP[a1, a4], a2, n] - S2[a5, SP[a1, a6], a2, a3, a4, n] - 
    S2[a5, SP[a1, a6], a3, a2, a4, n] - S2[a5, SP[a1, a6], a3, a4, a2, n] + 
    S2[a5, SP[a3, a6], a1, a2, a4, n] + S2[a5, SP[a3, a6], a1, a4, a2, n] - 
    S2[a5, n]*S2[a6, a1, a2, a4, a3, n] - S2[a6, a1, a2, a4, SP[a3, a5], n] - 
    S2[a6, a1, a2, SP[a4, a5], a3, n] - S2[a5, n]*S2[a6, a1, a4, a2, a3, n] - 
    S2[a6, a1, a4, a2, SP[a3, a5], n] - S2[a5, n]*S2[a6, a1, a4, a3, a2, n] - 
    S2[a6, a1, a4, a3, SP[a2, a5], n] - S2[a6, a1, a4, SP[a2, a5], a3, n] - 
    S2[a6, a1, a4, SP[a3, a5], a2, n] - S2[a6, a1, SP[a2, a5], a4, a3, n] - 
    S2[a6, a1, SP[a4, a5], a2, a3, n] - S2[a6, a1, SP[a4, a5], a3, a2, n] + 
    S2[a5, n]*S2[a6, a3, a4, a1, a2, n] + S2[a6, a3, a4, a1, SP[a2, a5], n] + 
    S2[a6, a3, a4, SP[a1, a5], a2, n] + S2[a6, a3, SP[a4, a5], a1, a2, n] + 
    S2[a3, n]*S2[a6, a5, a1, a2, a4, n] + S2[a6, a5, a1, a2, SP[a3, a4], n] + 
    S2[a3, n]*S2[a6, a5, a1, a4, a2, n] + S2[a6, a5, a1, a4, SP[a2, a3], n] + 
    S2[a6, a5, a1, SP[a2, a3], a4, n] + S2[a6, a5, a1, SP[a3, a4], a2, n] + 
    S2[a6, a5, SP[a1, a3], a2, a4, n] + S2[a6, a5, SP[a1, a3], a4, a2, n] - 
    S2[a6, SP[a1, a5], a2, a4, a3, n] - S2[a6, SP[a1, a5], a4, a2, a3, n] - 
    S2[a6, SP[a1, a5], a4, a3, a2, n] + S2[a6, SP[a3, a5], a1, a2, a4, n] + 
    S2[a6, SP[a3, a5], a1, a4, a2, n] + S2[a6, SP[a3, a5], a4, a1, a2, n] + 
    S2[SP[a1, a6], a2, a4, a3, a5, n] + S2[SP[a1, a6], a2, a4, a5, a3, n] + 
    S2[SP[a1, a6], a2, a5, a3, a4, n] + S2[SP[a1, a6], a2, a5, a4, a3, n] + 
    S2[SP[a1, a6], a4, a2, a3, a5, n] + S2[SP[a1, a6], a4, a2, a5, a3, n] + 
    S2[SP[a1, a6], a4, a3, a2, a5, n] + S2[SP[a1, a6], a4, a3, a5, a2, n] + 
    S2[SP[a1, a6], a4, a5, a2, a3, n] + S2[SP[a1, a6], a4, a5, a3, a2, n] + 
    S2[SP[a1, a6], a5, a2, a3, a4, n] + S2[SP[a1, a6], a5, a2, a4, a3, n] + 
    S2[SP[a1, a6], a5, a3, a2, a4, n] + S2[SP[a1, a6], a5, a3, a4, a2, n] + 
    S2[SP[a1, a6], a5, a4, a2, a3, n] + S2[SP[a1, a6], a5, a4, a3, a2, n] + 
    S2[SP[a3, a4], a5, a6, a1, a2, n] - S2[SP[a3, a6], a4, a1, a2, a5, n] - 
    S2[SP[a3, a6], a4, a1, a5, a2, n] - S2[SP[a3, a6], a4, a5, a1, a2, n] - 
    S2[SP[a3, a6], a5, a4, a1, a2, n] - S2[SP[a5, a6], a1, a2, a4, a3, n] - 
    S2[SP[a5, a6], a1, a4, a2, a3, n] - S2[SP[a5, a6], a1, a4, a3, a2, n] + 
    S2[SP[a5, a6], a3, a4, a1, a2, n] - S2[a6, a1, a2, a5, a3, a4, n] - 
    S2[a6, a1, a5, a2, a3, a4, n] - S2[a6, a1, a5, a3, a2, a4, n] - 
    S2[a6, a1, a5, a3, a4, a2, n] - S2[a6, a5, a1, a2, a3, a4, n] - 
    S2[a6, a5, a1, a3, a2, a4, n] - S2[a6, a5, a1, a3, a4, a2, n] - 
    S2[a6, a5, a3, a1, a2, a4, n] - S2[a6, a5, a3, a1, a4, a2, n] - 
    S2[a6, a5, a3, a4, a1, a2, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a4_, a3_, a5_, a6_, a2_, a1_, n_] :> 
  -(S2[a1, a2, a6, n]*S2[a3, a4, a5, n]) - S2[a1, a2, a6, n]*
     S2[a3, a5, a4, n] - S2[SP[a1, a3], SP[a2, a4], SP[a5, a6], n] - 
    S2[SP[a1, a3], SP[a2, a5], SP[a4, a6], n] + 
    S2[a3, a4, n]*S2[a1, a2, a6, a5, n] - S2[a1, a2, SP[a3, a6], SP[a4, a5], 
     n] + S2[a1, a3, SP[a2, a4], SP[a5, a6], n] + S2[a1, a3, SP[a2, a5], 
     SP[a4, a6], n] + S2[a1, SP[a2, a3], a4, SP[a5, a6], n] + 
    S2[a1, SP[a2, a3], a5, SP[a4, a6], n] - S2[a1, SP[a2, a3], a6, 
     SP[a4, a5], n] + S2[a1, SP[a2, a3], SP[a5, a6], a4, n] + 
    S2[a3, a1, SP[a2, a4], SP[a5, a6], n] + S2[a3, a1, SP[a2, a5], 
     SP[a4, a6], n] - S2[a1, a2, n]*S2[a3, a4, a6, a5, n] + 
    S2[a3, a4, SP[a1, a6], SP[a2, a5], n] - S2[a1, a2, n]*
     S2[a3, a6, a4, a5, n] - S2[a1, a2, n]*S2[a3, a6, a5, a4, n] + 
    S2[a3, a6, SP[a1, a4], SP[a2, a5], n] + S2[a3, a6, SP[a1, a5], 
     SP[a2, a4], n] + S2[a3, SP[a1, a4], a2, SP[a5, a6], n] + 
    S2[a3, SP[a1, a4], a6, SP[a2, a5], n] + S2[a3, SP[a1, a4], SP[a2, a5], 
     a6, n] + S2[a3, SP[a1, a4], SP[a2, a6], a5, n] + 
    S2[a3, SP[a1, a5], a2, SP[a4, a6], n] + S2[a3, SP[a1, a5], SP[a2, a4], 
     a6, n] + S2[a3, SP[a1, a6], a4, SP[a2, a5], n] + 
    S2[a3, SP[a1, a6], a5, SP[a2, a4], n] + S2[a3, SP[a1, a6], SP[a2, a4], 
     a5, n] + S2[a3, SP[a1, a6], SP[a2, a5], a4, n] + 
    S2[a1, a2, n]*S2[a5, a6, a3, a4, n] - S2[a5, a6, SP[a1, a3], SP[a2, a4], 
     n] - S2[a5, SP[a1, a6], a3, SP[a2, a4], n] - 
    S2[a5, SP[a1, a6], SP[a2, a3], a4, n] + S2[SP[a1, a3], a2, a4, 
     SP[a5, a6], n] + S2[SP[a1, a3], a2, a5, SP[a4, a6], n] - 
    S2[SP[a1, a3], a2, a6, SP[a4, a5], n] + S2[SP[a1, a3], a2, SP[a5, a6], 
     a4, n] + S2[SP[a1, a3], a4, a2, SP[a5, a6], n] + 
    S2[SP[a1, a3], a4, a6, SP[a2, a5], n] + S2[SP[a1, a3], a4, SP[a2, a5], 
     a6, n] + S2[SP[a1, a3], a4, SP[a2, a6], a5, n] + 
    S2[SP[a1, a3], a5, a2, SP[a4, a6], n] + S2[SP[a1, a3], a5, SP[a2, a4], 
     a6, n] + S2[SP[a1, a3], a6, a4, SP[a2, a5], n] + 
    S2[SP[a1, a3], a6, a5, SP[a2, a4], n] + S2[SP[a1, a3], a6, SP[a2, a4], 
     a5, n] + S2[SP[a1, a3], a6, SP[a2, a5], a4, n] + 
    S2[SP[a1, a3], SP[a2, a4], a5, a6, n] + S2[SP[a1, a3], SP[a2, a4], a6, 
     a5, n] + S2[SP[a1, a3], SP[a2, a5], a4, a6, n] + 
    S2[SP[a1, a3], SP[a2, a5], a6, a4, n] + S2[SP[a1, a3], SP[a2, a6], a4, 
     a5, n] + S2[SP[a1, a3], SP[a2, a6], a5, a4, n] - 
    S2[SP[a1, a5], a6, a3, SP[a2, a4], n] - S2[SP[a1, a5], a6, SP[a2, a3], 
     a4, n] - S2[SP[a1, a5], SP[a2, a6], a3, a4, n] - 
    S2[a1, a2, a3, a4, SP[a5, a6], n] - S2[a1, a2, a3, a5, SP[a4, a6], n] + 
    S2[a1, a2, a3, a6, SP[a4, a5], n] - S2[a1, a2, a3, SP[a5, a6], a4, n] - 
    S2[a6, n]*S2[a1, a2, a4, a3, a5, n] - S2[a1, a2, a4, a3, SP[a5, a6], n] - 
    S2[a6, n]*S2[a1, a2, a4, a5, a3, n] + 
    S2[a3, n]*S2[a1, a2, a4, a5, a6, n] + 
    S2[a3, n]*S2[a1, a2, a4, a6, a5, n] + S2[a1, a2, a4, a6, SP[a3, a5], n] + 
    S2[a1, a2, a4, SP[a3, a5], a6, n] - S2[a1, a2, a4, SP[a5, a6], a3, n] - 
    S2[a6, n]*S2[a1, a2, a5, a3, a4, n] - S2[a1, a2, a5, a3, SP[a4, a6], n] - 
    S2[a6, n]*S2[a1, a2, a5, a4, a3, n] + 
    S2[a3, n]*S2[a1, a2, a5, a4, a6, n] + 
    S2[a3, n]*S2[a1, a2, a5, a6, a4, n] + S2[a1, a2, a5, a6, SP[a3, a4], n] + 
    S2[a1, a2, a5, SP[a3, a4], a6, n] - S2[a1, a2, a5, SP[a4, a6], a3, n] - 
    S2[a5, n]*S2[a1, a2, a6, a3, a4, n] + 
    S2[a3, n]*S2[a1, a2, a6, a4, a5, n] + S2[a1, a2, a6, a4, SP[a3, a5], n] + 
    S2[a3, n]*S2[a1, a2, a6, a5, a4, n] + S2[a1, a2, a6, a5, SP[a3, a4], n] + 
    S2[a1, a2, a6, SP[a3, a4], a5, n] + S2[a1, a2, a6, SP[a3, a5], a4, n] + 
    S2[a1, a2, SP[a3, a4], a5, a6, n] + S2[a1, a2, SP[a3, a4], a6, a5, n] + 
    S2[a1, a2, SP[a3, a5], a4, a6, n] + S2[a1, a2, SP[a3, a5], a6, a4, n] + 
    S2[a1, a2, SP[a3, a6], a4, a5, n] + S2[a1, a2, SP[a3, a6], a5, a4, n] - 
    S2[a1, a2, SP[a4, a6], a3, a5, n] - S2[a1, a2, SP[a4, a6], a5, a3, n] - 
    2*S2[a1, a2, SP[a5, a6], a3, a4, n] - S2[a1, a2, SP[a5, a6], a4, a3, n] - 
    S2[a1, a3, a2, a4, SP[a5, a6], n] - S2[a1, a3, a2, a5, SP[a4, a6], n] + 
    S2[a1, a3, a2, a6, SP[a4, a5], n] - S2[a1, a3, a2, SP[a5, a6], a4, n] - 
    S2[a1, a3, a4, a2, SP[a5, a6], n] - S2[a1, a3, a4, a6, SP[a2, a5], n] - 
    S2[a1, a3, a4, SP[a2, a5], a6, n] - S2[a1, a3, a4, SP[a2, a6], a5, n] - 
    S2[a1, a3, a5, a2, SP[a4, a6], n] - S2[a1, a3, a5, SP[a2, a4], a6, n] - 
    S2[a1, a3, a6, a4, SP[a2, a5], n] - S2[a1, a3, a6, a5, SP[a2, a4], n] - 
    S2[a1, a3, a6, SP[a2, a4], a5, n] - S2[a1, a3, a6, SP[a2, a5], a4, n] - 
    S2[a1, a3, SP[a2, a4], a5, a6, n] - S2[a1, a3, SP[a2, a4], a6, a5, n] - 
    S2[a1, a3, SP[a2, a5], a4, a6, n] - S2[a1, a3, SP[a2, a5], a6, a4, n] - 
    S2[a1, a3, SP[a2, a6], a4, a5, n] - S2[a1, a3, SP[a2, a6], a5, a4, n] - 
    S2[a6, n]*S2[a1, a4, a2, a3, a5, n] - S2[a1, a4, a2, a3, SP[a5, a6], n] - 
    S2[a6, n]*S2[a1, a4, a2, a5, a3, n] + 
    S2[a3, n]*S2[a1, a4, a2, a5, a6, n] + 
    S2[a3, n]*S2[a1, a4, a2, a6, a5, n] + S2[a1, a4, a2, a6, SP[a3, a5], n] + 
    S2[a1, a4, a2, SP[a3, a5], a6, n] - S2[a1, a4, a2, SP[a5, a6], a3, n] - 
    S2[a6, n]*S2[a1, a4, a3, a2, a5, n] - S2[a1, a4, a3, a2, SP[a5, a6], n] - 
    S2[a6, n]*S2[a1, a4, a3, a5, a2, n] - S2[a1, a4, a3, a5, SP[a2, a6], n] - 
    S2[a1, a4, a3, SP[a2, a6], a5, n] - S2[a1, a4, a3, SP[a5, a6], a2, n] - 
    S2[a6, n]*S2[a1, a4, a5, a2, a3, n] + 
    S2[a3, n]*S2[a1, a4, a5, a2, a6, n] - 
    S2[a6, n]*S2[a1, a4, a5, a3, a2, n] - S2[a1, a4, a5, a3, SP[a2, a6], n] + 
    S2[a1, a4, a5, SP[a2, a3], a6, n] - S2[a1, a4, a5, SP[a2, a6], a3, n] - 
    S2[a1, a4, a5, SP[a3, a6], a2, n] + S2[a3, n]*S2[a1, a4, a6, a2, a5, n] + 
    S2[a1, a4, a6, a2, SP[a3, a5], n] + S2[a3, n]*S2[a1, a4, a6, a5, a2, n] + 
    S2[a1, a4, a6, a5, SP[a2, a3], n] + S2[a1, a4, a6, SP[a2, a3], a5, n] + 
    S2[a1, a4, a6, SP[a3, a5], a2, n] + S2[a1, a4, SP[a2, a3], a5, a6, n] + 
    S2[a1, a4, SP[a2, a3], a6, a5, n] - S2[a1, a4, SP[a2, a6], a3, a5, n] - 
    S2[a1, a4, SP[a2, a6], a5, a3, n] + S2[a1, a4, SP[a3, a5], a2, a6, n] - 
    S2[a1, a4, SP[a5, a6], a2, a3, n] - S2[a1, a4, SP[a5, a6], a3, a2, n] - 
    S2[a6, n]*S2[a1, a5, a2, a3, a4, n] - S2[a1, a5, a2, a3, SP[a4, a6], n] - 
    S2[a6, n]*S2[a1, a5, a2, a4, a3, n] + 
    S2[a3, n]*S2[a1, a5, a2, a4, a6, n] + 
    S2[a3, n]*S2[a1, a5, a2, a6, a4, n] + S2[a1, a5, a2, a6, SP[a3, a4], n] + 
    S2[a1, a5, a2, SP[a3, a4], a6, n] - S2[a1, a5, a2, SP[a4, a6], a3, n] - 
    S2[a6, n]*S2[a1, a5, a3, a2, a4, n] - S2[a1, a5, a3, a2, SP[a4, a6], n] - 
    S2[a6, n]*S2[a1, a5, a3, a4, a2, n] - S2[a1, a5, a3, a4, SP[a2, a6], n] + 
    S2[a4, n]*S2[a1, a5, a3, a6, a2, n] + S2[a1, a5, a3, a6, SP[a2, a4], n] - 
    S2[a1, a5, a3, SP[a2, a6], a4, n] - S2[a6, n]*S2[a1, a5, a4, a2, a3, n] + 
    S2[a3, n]*S2[a1, a5, a4, a2, a6, n] - 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] - S2[a1, a5, a4, a3, SP[a2, a6], n] + 
    S2[a1, a5, a4, SP[a2, a3], a6, n] - S2[a1, a5, a4, SP[a2, a6], a3, n] - 
    S2[a1, a5, a4, SP[a3, a6], a2, n] + S2[a4, n]*S2[a1, a5, a6, a2, a3, n] + 
    S2[a1, a5, a6, a2, SP[a3, a4], n] + S2[a4, n]*S2[a1, a5, a6, a3, a2, n] + 
    2*S2[a1, a5, a6, a3, SP[a2, a4], n] + S2[a1, a5, a6, SP[a2, a3], a4, n] + 
    S2[a1, a5, a6, SP[a2, a4], a3, n] + S2[a1, a5, a6, SP[a3, a4], a2, n] + 
    S2[a1, a5, SP[a2, a3], a4, a6, n] + S2[a1, a5, SP[a2, a3], a6, a4, n] - 
    S2[a1, a5, SP[a2, a6], a4, a3, n] + S2[a1, a5, SP[a3, a4], a2, a6, n] + 
    S2[a1, a5, SP[a3, a4], a6, a2, n] - S2[a1, a5, SP[a3, a6], a2, a4, n] - 
    S2[a1, a5, SP[a3, a6], a4, a2, n] - S2[a5, n]*S2[a1, a6, a2, a3, a4, n] - 
    S2[a1, a6, a2, a3, SP[a4, a5], n] + S2[a3, n]*S2[a1, a6, a2, a4, a5, n] + 
    S2[a1, a6, a2, a4, SP[a3, a5], n] + S2[a3, n]*S2[a1, a6, a2, a5, a4, n] + 
    S2[a1, a6, a2, a5, SP[a3, a4], n] + S2[a1, a6, a2, SP[a3, a4], a5, n] - 
    S2[a5, n]*S2[a1, a6, a3, a2, a4, n] - S2[a1, a6, a3, a2, SP[a4, a5], n] - 
    S2[a5, n]*S2[a1, a6, a3, a4, a2, n] - S2[a1, a6, a3, a4, SP[a2, a5], n] - 
    S2[a1, a6, a3, SP[a2, a5], a4, n] - S2[a1, a6, a3, SP[a4, a5], a2, n] + 
    S2[a3, n]*S2[a1, a6, a4, a2, a5, n] + S2[a1, a6, a4, a2, SP[a3, a5], n] + 
    S2[a3, n]*S2[a1, a6, a4, a5, a2, n] + S2[a1, a6, a4, a5, SP[a2, a3], n] + 
    S2[a1, a6, a4, SP[a2, a3], a5, n] + S2[a1, a6, a4, SP[a3, a5], a2, n] + 
    S2[a3, n]*S2[a1, a6, a5, a2, a4, n] + S2[a1, a6, a5, a2, SP[a3, a4], n] + 
    S2[a3, n]*S2[a1, a6, a5, a4, a2, n] + S2[a1, a6, a5, a4, SP[a2, a3], n] + 
    S2[a1, a6, a5, SP[a2, a3], a4, n] + S2[a1, a6, a5, SP[a3, a4], a2, n] + 
    S2[a1, a6, SP[a2, a3], a4, a5, n] + S2[a1, a6, SP[a2, a3], a5, a4, n] - 
    S2[a1, a6, SP[a2, a5], a3, a4, n] + S2[a1, a6, SP[a3, a4], a2, a5, n] + 
    S2[a1, a6, SP[a3, a4], a5, a2, n] - S2[a1, SP[a2, a6], a4, a3, a5, n] - 
    S2[a1, SP[a2, a6], a4, a5, a3, n] - S2[a1, SP[a2, a6], a5, a3, a4, n] - 
    S2[a1, SP[a2, a6], a5, a4, a3, n] + S2[a1, SP[a3, a4], a2, a5, a6, n] + 
    S2[a1, SP[a3, a4], a2, a6, a5, n] + S2[a1, SP[a3, a4], a5, a2, a6, n] + 
    S2[a1, SP[a3, a4], a6, a2, a5, n] + S2[a1, SP[a3, a4], a6, a5, a2, n] + 
    S2[a1, SP[a3, a5], a2, a4, a6, n] + S2[a1, SP[a3, a5], a2, a6, a4, n] + 
    S2[a1, SP[a3, a5], a4, a2, a6, n] + S2[a1, SP[a3, a6], a2, a4, a5, n] + 
    S2[a1, SP[a3, a6], a2, a5, a4, n] + S2[a1, SP[a3, a6], a4, a2, a5, n] + 
    S2[a1, SP[a3, a6], a4, a5, a2, n] + S2[a1, SP[a3, a6], a5, a2, a4, n] + 
    S2[a1, SP[a3, a6], a5, a4, a2, n] + S2[a1, SP[a4, a5], a3, a6, a2, n] + 
    S2[a1, SP[a4, a5], a6, a2, a3, n] + S2[a1, SP[a4, a5], a6, a3, a2, n] - 
    S2[a1, SP[a4, a6], a2, a3, a5, n] - S2[a1, SP[a4, a6], a2, a5, a3, n] - 
    S2[a1, SP[a4, a6], a3, a2, a5, n] - S2[a1, SP[a4, a6], a3, a5, a2, n] - 
    S2[a1, SP[a4, a6], a5, a2, a3, n] - S2[a1, SP[a4, a6], a5, a3, a2, n] - 
    2*S2[a1, SP[a5, a6], a2, a3, a4, n] - S2[a1, SP[a5, a6], a2, a4, a3, n] - 
    2*S2[a1, SP[a5, a6], a3, a2, a4, n] - 
    2*S2[a1, SP[a5, a6], a3, a4, a2, n] - S2[a1, SP[a5, a6], a4, a2, a3, n] - 
    S2[a1, SP[a5, a6], a4, a3, a2, n] - S2[a3, a1, a2, a4, SP[a5, a6], n] - 
    S2[a3, a1, a2, a5, SP[a4, a6], n] + S2[a3, a1, a2, a6, SP[a4, a5], n] - 
    S2[a3, a1, a2, SP[a5, a6], a4, n] - S2[a3, a1, a4, a2, SP[a5, a6], n] - 
    S2[a3, a1, a4, a6, SP[a2, a5], n] - S2[a3, a1, a4, SP[a2, a5], a6, n] - 
    S2[a3, a1, a4, SP[a2, a6], a5, n] - S2[a3, a1, a5, a2, SP[a4, a6], n] - 
    S2[a3, a1, a5, SP[a2, a4], a6, n] - S2[a3, a1, a6, a4, SP[a2, a5], n] - 
    S2[a3, a1, a6, a5, SP[a2, a4], n] - S2[a3, a1, a6, SP[a2, a4], a5, n] - 
    S2[a3, a1, a6, SP[a2, a5], a4, n] - S2[a3, a1, SP[a2, a4], a5, a6, n] - 
    S2[a3, a1, SP[a2, a4], a6, a5, n] - S2[a3, a1, SP[a2, a5], a4, a6, n] - 
    S2[a3, a1, SP[a2, a5], a6, a4, n] - S2[a3, a1, SP[a2, a6], a4, a5, n] - 
    S2[a3, a1, SP[a2, a6], a5, a4, n] + S2[a6, n]*S2[a3, a4, a1, a2, a5, n] + 
    S2[a6, n]*S2[a3, a4, a1, a5, a2, n] + S2[a3, a4, a1, a5, SP[a2, a6], n] - 
    S2[a3, a4, a1, a6, SP[a2, a5], n] - S2[a3, a4, a1, SP[a2, a5], a6, n] + 
    S2[a3, a4, a1, SP[a5, a6], a2, n] + S2[a6, n]*S2[a3, a4, a5, a1, a2, n] + 
    S2[a3, a4, a5, a1, SP[a2, a6], n] + S2[a3, a4, a5, SP[a1, a6], a2, n] - 
    S2[a3, a4, a6, a1, SP[a2, a5], n] - S2[a3, a4, a6, SP[a1, a5], a2, n] - 
    S2[a3, a4, SP[a1, a5], a2, a6, n] + S2[a3, a4, SP[a5, a6], a1, a2, n] + 
    S2[a6, n]*S2[a3, a5, a1, a2, a4, n] + 
    S2[a6, n]*S2[a3, a5, a1, a4, a2, n] + S2[a3, a5, a1, a4, SP[a2, a6], n] - 
    S2[a4, n]*S2[a3, a5, a1, a6, a2, n] - S2[a3, a5, a1, a6, SP[a2, a4], n] - 
    S2[a3, a5, a1, SP[a2, a4], a6, n] + S2[a3, a5, a1, SP[a2, a6], a4, n] + 
    S2[a6, n]*S2[a3, a5, a4, a1, a2, n] + S2[a3, a5, a4, a1, SP[a2, a6], n] + 
    S2[a3, a5, a4, SP[a1, a6], a2, n] - S2[a4, n]*S2[a3, a5, a6, a1, a2, n] - 
    S2[a3, a5, a6, a1, SP[a2, a4], n] - S2[a3, a5, a6, SP[a1, a4], a2, n] - 
    S2[a3, a5, SP[a1, a4], a2, a6, n] - S2[a3, a5, SP[a1, a4], a6, a2, n] + 
    S2[a3, a5, SP[a1, a6], a2, a4, n] + S2[a3, a5, SP[a1, a6], a4, a2, n] + 
    S2[a5, n]*S2[a3, a6, a1, a2, a4, n] + S2[a3, a6, a1, a2, SP[a4, a5], n] + 
    S2[a5, n]*S2[a3, a6, a1, a4, a2, n] - S2[a3, a6, a1, a5, SP[a2, a4], n] - 
    S2[a3, a6, a1, SP[a2, a4], a5, n] + S2[a3, a6, a1, SP[a4, a5], a2, n] - 
    S2[a3, a6, a4, a1, SP[a2, a5], n] - S2[a3, a6, a4, SP[a1, a5], a2, n] - 
    S2[a3, a6, a5, a1, SP[a2, a4], n] - S2[a3, a6, a5, SP[a1, a4], a2, n] - 
    S2[a3, a6, SP[a1, a4], a2, a5, n] - S2[a3, a6, SP[a1, a4], a5, a2, n] - 
    S2[a3, SP[a1, a4], a2, a5, a6, n] - S2[a3, SP[a1, a4], a2, a6, a5, n] - 
    S2[a3, SP[a1, a4], a5, a2, a6, n] - S2[a3, SP[a1, a4], a6, a2, a5, n] - 
    S2[a3, SP[a1, a4], a6, a5, a2, n] - S2[a3, SP[a1, a5], a2, a4, a6, n] - 
    S2[a3, SP[a1, a5], a2, a6, a4, n] - S2[a3, SP[a1, a5], a4, a2, a6, n] - 
    S2[a3, SP[a1, a6], a2, a4, a5, n] - S2[a3, SP[a1, a6], a2, a5, a4, n] - 
    S2[a3, SP[a1, a6], a4, a2, a5, n] - S2[a3, SP[a1, a6], a4, a5, a2, n] - 
    S2[a3, SP[a1, a6], a5, a2, a4, n] - S2[a3, SP[a1, a6], a5, a4, a2, n] - 
    S2[a3, SP[a4, a5], a1, a6, a2, n] - S2[a3, SP[a4, a5], a6, a1, a2, n] + 
    S2[a3, SP[a4, a6], a1, a2, a5, n] + S2[a3, SP[a4, a6], a1, a5, a2, n] + 
    S2[a3, SP[a4, a6], a5, a1, a2, n] + 2*S2[a3, SP[a5, a6], a1, a2, a4, n] + 
    2*S2[a3, SP[a5, a6], a1, a4, a2, n] + S2[a3, SP[a5, a6], a4, a1, a2, n] - 
    S2[a3, n]*S2[a4, a1, a5, a6, a2, n] - S2[a4, a1, a5, a6, SP[a2, a3], n] - 
    S2[a4, a1, a5, SP[a3, a6], a2, n] - S2[a4, a1, SP[a3, a5], a6, a2, n] + 
    S2[a1, n]*S2[a4, a3, a5, a6, a2, n] + S2[a4, a3, a5, a6, SP[a1, a2], n] + 
    S2[a4, a3, a5, SP[a1, a6], a2, n] + S2[a4, a3, SP[a1, a5], a6, a2, n] + 
    S2[a5, a1, a6, a3, SP[a2, a4], n] + S2[a5, a1, a6, SP[a2, a3], a4, n] + 
    S2[a5, a1, SP[a2, a6], a3, a4, n] - S2[a3, n]*S2[a5, a6, a1, a2, a4, n] - 
    S2[a5, a6, a1, a2, SP[a3, a4], n] + S2[a5, a6, a1, a3, SP[a2, a4], n] - 
    S2[a3, n]*S2[a5, a6, a1, a4, a2, n] - S2[a5, a6, a1, a4, SP[a2, a3], n] - 
    S2[a5, a6, a1, SP[a3, a4], a2, n] + S2[a5, a6, a3, a1, SP[a2, a4], n] + 
    S2[a5, a6, a3, SP[a1, a4], a2, n] + S2[a5, SP[a1, a6], a2, a3, a4, n] + 
    S2[a5, SP[a1, a6], a3, a2, a4, n] + S2[a5, SP[a1, a6], a3, a4, a2, n] - 
    S2[a5, SP[a3, a6], a1, a2, a4, n] - S2[a5, SP[a3, a6], a1, a4, a2, n] + 
    S2[a5, n]*S2[a6, a1, a2, a4, a3, n] + S2[a6, a1, a2, a4, SP[a3, a5], n] + 
    S2[a6, a1, a2, SP[a4, a5], a3, n] + S2[a5, n]*S2[a6, a1, a4, a2, a3, n] + 
    S2[a6, a1, a4, a2, SP[a3, a5], n] + S2[a5, n]*S2[a6, a1, a4, a3, a2, n] + 
    S2[a6, a1, a4, a3, SP[a2, a5], n] + S2[a6, a1, a4, SP[a2, a5], a3, n] + 
    S2[a6, a1, a4, SP[a3, a5], a2, n] + S2[a6, a1, SP[a2, a5], a4, a3, n] + 
    S2[a6, a1, SP[a4, a5], a2, a3, n] + S2[a6, a1, SP[a4, a5], a3, a2, n] + 
    S2[a1, n]*S2[a6, a2, a5, a3, a4, n] + S2[a6, a2, a5, a3, SP[a1, a4], n] + 
    S2[a6, a2, a5, SP[a1, a3], a4, n] + S2[a6, a2, SP[a1, a5], a3, a4, n] - 
    S2[a5, n]*S2[a6, a3, a4, a1, a2, n] - S2[a6, a3, a4, a1, SP[a2, a5], n] - 
    S2[a6, a3, a4, SP[a1, a5], a2, n] - S2[a6, a3, SP[a4, a5], a1, a2, n] - 
    S2[a3, n]*S2[a6, a5, a1, a2, a4, n] - S2[a6, a5, a1, a2, SP[a3, a4], n] - 
    S2[a3, n]*S2[a6, a5, a1, a4, a2, n] - S2[a6, a5, a1, a4, SP[a2, a3], n] - 
    S2[a6, a5, a1, SP[a2, a3], a4, n] - S2[a6, a5, a1, SP[a3, a4], a2, n] + 
    S2[a1, n]*S2[a6, a5, a2, a3, a4, n] + S2[a6, a5, a2, a3, SP[a1, a4], n] + 
    S2[a6, a5, a2, SP[a1, a3], a4, n] + S2[a1, n]*S2[a6, a5, a3, a2, a4, n] + 
    S2[a6, a5, a3, a2, SP[a1, a4], n] + S2[a1, n]*S2[a6, a5, a3, a4, a2, n] + 
    S2[a6, a5, a3, a4, SP[a1, a2], n] + S2[a6, a5, a3, SP[a1, a2], a4, n] + 
    S2[a6, a5, a3, SP[a1, a4], a2, n] + S2[a6, a5, SP[a1, a2], a3, a4, n] + 
    S2[a6, SP[a1, a2], a5, a3, a4, n] + S2[a6, SP[a1, a5], a2, a3, a4, n] + 
    S2[a6, SP[a1, a5], a2, a4, a3, n] + S2[a6, SP[a1, a5], a3, a2, a4, n] + 
    S2[a6, SP[a1, a5], a3, a4, a2, n] + S2[a6, SP[a1, a5], a4, a2, a3, n] + 
    S2[a6, SP[a1, a5], a4, a3, a2, n] - S2[a6, SP[a3, a5], a1, a2, a4, n] - 
    S2[a6, SP[a3, a5], a1, a4, a2, n] - S2[a6, SP[a3, a5], a4, a1, a2, n] + 
    S2[SP[a1, a4], a3, a5, a6, a2, n] + S2[SP[a1, a4], a5, a3, a6, a2, n] + 
    S2[SP[a1, a4], a5, a6, a2, a3, n] + S2[SP[a1, a4], a5, a6, a3, a2, n] - 
    S2[SP[a1, a6], a2, a4, a3, a5, n] - S2[SP[a1, a6], a2, a4, a5, a3, n] - 
    S2[SP[a1, a6], a2, a5, a4, a3, n] - S2[SP[a1, a6], a4, a2, a3, a5, n] - 
    S2[SP[a1, a6], a4, a2, a5, a3, n] - S2[SP[a1, a6], a4, a3, a2, a5, n] - 
    S2[SP[a1, a6], a4, a3, a5, a2, n] - S2[SP[a1, a6], a4, a5, a2, a3, n] - 
    S2[SP[a1, a6], a4, a5, a3, a2, n] - S2[SP[a1, a6], a5, a2, a4, a3, n] - 
    S2[SP[a1, a6], a5, a4, a2, a3, n] - S2[SP[a1, a6], a5, a4, a3, a2, n] - 
    S2[SP[a3, a4], a1, a5, a6, a2, n] - S2[SP[a3, a4], a5, a1, a6, a2, n] - 
    S2[SP[a3, a4], a5, a6, a1, a2, n] + S2[SP[a3, a6], a4, a1, a2, a5, n] + 
    S2[SP[a3, a6], a4, a1, a5, a2, n] + S2[SP[a3, a6], a4, a5, a1, a2, n] + 
    S2[SP[a3, a6], a5, a4, a1, a2, n] + S2[SP[a5, a6], a1, a2, a4, a3, n] + 
    S2[SP[a5, a6], a1, a4, a2, a3, n] + S2[SP[a5, a6], a1, a4, a3, a2, n] - 
    S2[SP[a5, a6], a3, a4, a1, a2, n] - S2[a6, a2, a1, a5, a3, a4, n] - 
    S2[a6, a2, a5, a1, a3, a4, n] - S2[a6, a2, a5, a3, a1, a4, n] - 
    S2[a6, a2, a5, a3, a4, a1, n] - S2[a6, a5, a2, a1, a3, a4, n] - 
    S2[a6, a5, a2, a3, a1, a4, n] - S2[a6, a5, a2, a3, a4, a1, n] - 
    S2[a6, a5, a3, a2, a1, a4, n] - S2[a6, a5, a3, a2, a4, a1, n] - 
    S2[a6, a5, a3, a4, a2, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a4_, a3_, a6_, a1_, a2_, a5_, n_] :> 
  S2[a3, a4, n]*S2[a1, a2, a5, a6, n] + S2[a3, a4, n]*S2[a1, a2, a6, a5, n] - 
    S2[a1, a2, SP[a3, a5], SP[a4, a6], n] - S2[a1, a2, SP[a3, a6], 
     SP[a4, a5], n] + S2[a3, a4, n]*S2[a1, a6, a2, a5, n] - 
    S2[a1, a6, SP[a2, a3], SP[a4, a5], n] - S2[a1, SP[a2, a3], a5, 
     SP[a4, a6], n] - S2[a1, SP[a2, a3], a6, SP[a4, a5], n] - 
    S2[a1, SP[a2, a3], SP[a4, a5], a6, n] - S2[a1, SP[a2, a3], SP[a4, a6], 
     a5, n] - S2[a1, SP[a3, a6], a2, SP[a4, a5], n] - 
    S2[a1, SP[a3, a6], SP[a2, a4], a5, n] - S2[SP[a1, a3], a2, a5, 
     SP[a4, a6], n] - S2[SP[a1, a3], a2, a6, SP[a4, a5], n] - 
    S2[SP[a1, a3], a2, SP[a4, a5], a6, n] - S2[SP[a1, a3], a2, SP[a4, a6], 
     a5, n] - S2[SP[a1, a3], a6, a2, SP[a4, a5], n] - 
    S2[SP[a1, a3], a6, SP[a2, a4], a5, n] - S2[SP[a1, a3], SP[a2, a4], a5, 
     a6, n] - S2[SP[a1, a3], SP[a2, a4], a6, a5, n] - 
    S2[SP[a1, a3], SP[a4, a6], a2, a5, n] + S2[a1, a2, a3, a5, SP[a4, a6], 
     n] + S2[a1, a2, a3, a6, SP[a4, a5], n] + S2[a1, a2, a3, SP[a4, a5], a6, 
     n] + S2[a1, a2, a3, SP[a4, a6], a5, n] + 
    S2[a6, n]*S2[a1, a2, a4, a3, a5, n] + S2[a1, a2, a4, a3, SP[a5, a6], n] + 
    S2[a6, n]*S2[a1, a2, a4, a5, a3, n] - 
    S2[a3, n]*S2[a1, a2, a4, a5, a6, n] - 
    S2[a3, n]*S2[a1, a2, a4, a6, a5, n] - S2[a1, a2, a4, a6, SP[a3, a5], n] - 
    S2[a1, a2, a4, SP[a3, a5], a6, n] + S2[a1, a2, a4, SP[a5, a6], a3, n] + 
    S2[a1, a2, a5, a3, SP[a4, a6], n] + S2[a6, n]*S2[a1, a2, a5, a4, a3, n] - 
    S2[a3, n]*S2[a1, a2, a5, a4, a6, n] - 
    S2[a3, n]*S2[a1, a2, a5, a6, a4, n] - S2[a1, a2, a5, a6, SP[a3, a4], n] - 
    S2[a1, a2, a5, SP[a3, a4], a6, n] + S2[a1, a2, a5, SP[a4, a6], a3, n] + 
    S2[a1, a2, a6, a3, SP[a4, a5], n] - S2[a3, n]*S2[a1, a2, a6, a4, a5, n] - 
    S2[a1, a2, a6, a4, SP[a3, a5], n] - S2[a3, n]*S2[a1, a2, a6, a5, a4, n] - 
    S2[a1, a2, a6, a5, SP[a3, a4], n] - S2[a1, a2, a6, SP[a3, a4], a5, n] - 
    S2[a1, a2, SP[a3, a4], a5, a6, n] - S2[a1, a2, SP[a3, a4], a6, a5, n] + 
    S2[a1, a2, SP[a4, a6], a3, a5, n] + S2[a1, a2, SP[a4, a6], a5, a3, n] + 
    S2[a1, a2, SP[a5, a6], a4, a3, n] + S2[a1, a3, a2, a5, SP[a4, a6], n] + 
    S2[a1, a3, a2, a6, SP[a4, a5], n] + S2[a1, a3, a2, SP[a4, a5], a6, n] + 
    S2[a1, a3, a2, SP[a4, a6], a5, n] + S2[a1, a3, a6, a2, SP[a4, a5], n] + 
    S2[a1, a3, a6, SP[a2, a4], a5, n] + S2[a1, a3, SP[a2, a4], a5, a6, n] + 
    S2[a1, a3, SP[a2, a4], a6, a5, n] + S2[a1, a3, SP[a4, a6], a2, a5, n] + 
    S2[a6, n]*S2[a1, a4, a2, a3, a5, n] + S2[a1, a4, a2, a3, SP[a5, a6], n] + 
    S2[a6, n]*S2[a1, a4, a2, a5, a3, n] - 
    S2[a3, n]*S2[a1, a4, a2, a5, a6, n] - 
    S2[a3, n]*S2[a1, a4, a2, a6, a5, n] - S2[a1, a4, a2, a6, SP[a3, a5], n] - 
    S2[a1, a4, a2, SP[a3, a5], a6, n] + S2[a1, a4, a2, SP[a5, a6], a3, n] + 
    S2[a6, n]*S2[a1, a4, a3, a2, a5, n] + S2[a1, a4, a3, a2, SP[a5, a6], n] + 
    S2[a1, a4, a3, SP[a2, a6], a5, n] - S2[a3, n]*S2[a1, a4, a6, a2, a5, n] - 
    S2[a1, a4, a6, a2, SP[a3, a5], n] - S2[a1, a4, a6, SP[a2, a3], a5, n] - 
    S2[a1, a4, SP[a2, a3], a5, a6, n] - S2[a1, a4, SP[a2, a3], a6, a5, n] + 
    S2[a1, a4, SP[a2, a6], a3, a5, n] + S2[a1, a4, SP[a2, a6], a5, a3, n] + 
    S2[a1, a6, a2, a3, SP[a4, a5], n] - S2[a3, n]*S2[a1, a6, a2, a4, a5, n] - 
    S2[a1, a6, a2, a4, SP[a3, a5], n] - S2[a3, n]*S2[a1, a6, a2, a5, a4, n] - 
    S2[a1, a6, a2, a5, SP[a3, a4], n] - S2[a1, a6, a2, SP[a3, a4], a5, n] + 
    S2[a1, a6, a3, a2, SP[a4, a5], n] + S2[a1, a6, a3, SP[a2, a4], a5, n] - 
    S2[a3, n]*S2[a1, a6, a4, a2, a5, n] - S2[a1, a6, a4, a2, SP[a3, a5], n] - 
    S2[a1, a6, a4, SP[a2, a3], a5, n] - S2[a1, a6, SP[a3, a4], a2, a5, n] + 
    S2[a1, SP[a2, a6], a4, a3, a5, n] + S2[a1, SP[a2, a6], a4, a5, a3, n] + 
    S2[a1, SP[a2, a6], a5, a4, a3, n] - S2[a1, SP[a3, a4], a2, a5, a6, n] - 
    S2[a1, SP[a3, a4], a2, a6, a5, n] - S2[a1, SP[a3, a4], a6, a2, a5, n] + 
    S2[a1, SP[a4, a6], a2, a3, a5, n] + S2[a1, SP[a4, a6], a2, a5, a3, n] + 
    S2[a1, SP[a4, a6], a3, a2, a5, n] + S2[a3, a1, a2, a5, SP[a4, a6], n] + 
    S2[a3, a1, a2, a6, SP[a4, a5], n] + S2[a3, a1, a2, SP[a4, a5], a6, n] + 
    S2[a3, a1, a2, SP[a4, a6], a5, n] + S2[a3, a1, a6, a2, SP[a4, a5], n] + 
    S2[a3, a1, a6, SP[a2, a4], a5, n] + S2[a3, a1, SP[a2, a4], a5, a6, n] + 
    S2[a3, a1, SP[a2, a4], a6, a5, n] + S2[a3, a1, SP[a4, a6], a2, a5, n] - 
    S2[a6, n]*S2[a3, a4, a1, a2, a5, n] - S2[a3, a4, a1, a2, SP[a5, a6], n] - 
    S2[a3, a4, a1, SP[a2, a6], a5, n] - S2[a3, a4, SP[a1, a6], a2, a5, n] + 
    S2[a4, n]*S2[a3, a6, a1, a2, a5, n] + S2[a3, a6, a1, a2, SP[a4, a5], n] + 
    S2[a3, a6, a1, SP[a2, a4], a5, n] + S2[a3, a6, SP[a1, a4], a2, a5, n] + 
    S2[a3, SP[a1, a4], a2, a5, a6, n] + S2[a3, SP[a1, a4], a2, a6, a5, n] + 
    S2[a3, SP[a1, a4], a6, a2, a5, n] - S2[a3, n]*S2[a6, a1, a2, a4, a5, n] - 
    S2[a6, a1, a2, a4, SP[a3, a5], n] - S2[a3, n]*S2[a6, a1, a2, a5, a4, n] - 
    S2[a6, a1, a2, a5, SP[a3, a4], n] - S2[a6, a1, a2, SP[a3, a4], a5, n] - 
    S2[a6, a1, a2, SP[a3, a5], a4, n] - S2[a3, n]*S2[a6, a1, a4, a2, a5, n] - 
    S2[a6, a1, a4, a2, SP[a3, a5], n] - S2[a6, a1, a4, SP[a2, a3], a5, n] - 
    S2[a6, a1, SP[a2, a3], a4, a5, n] - S2[a6, a1, SP[a2, a3], a5, a4, n] - 
    S2[a6, a1, SP[a3, a4], a2, a5, n] - S2[a6, SP[a1, a3], a2, a4, a5, n] - 
    S2[a6, SP[a1, a3], a2, a5, a4, n] - S2[a6, SP[a1, a3], a4, a2, a5, n] + 
    S2[SP[a1, a6], a2, a4, a3, a5, n] + S2[SP[a1, a6], a2, a4, a5, a3, n] + 
    S2[SP[a1, a6], a2, a5, a4, a3, n] + S2[SP[a1, a6], a4, a2, a3, a5, n] + 
    S2[SP[a1, a6], a4, a2, a5, a3, n] + S2[SP[a1, a6], a4, a3, a2, a5, n] + 
    S2[SP[a3, a4], a6, a1, a2, a5, n] - S2[SP[a3, a6], a1, a2, a4, a5, n] - 
    S2[SP[a3, a6], a1, a2, a5, a4, n] - S2[SP[a3, a6], a1, a4, a2, a5, n] - 
    S2[SP[a3, a6], a4, a1, a2, a5, n] + S2[a6, a1, a2, a3, a4, a5, n] + 
    S2[a6, a1, a2, a3, a5, a4, n] + S2[a6, a1, a2, a5, a3, a4, n] + 
    S2[a6, a1, a3, a2, a4, a5, n] + S2[a6, a1, a3, a2, a5, a4, n] + 
    S2[a6, a1, a3, a4, a2, a5, n] + S2[a6, a3, a1, a2, a4, a5, n] + 
    S2[a6, a3, a1, a2, a5, a4, n] + S2[a6, a3, a1, a4, a2, a5, n] + 
    S2[a6, a3, a4, a1, a2, a5, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a4_, a3_, a6_, a1_, a5_, a2_, n_] :> 
  S2[a3, a4, n]*S2[a1, a5, a2, a6, n] + S2[a3, a4, n]*S2[a1, a5, a6, a2, n] - 
    S2[a1, a5, SP[a2, a3], SP[a4, a6], n] - S2[a1, a5, SP[a3, a6], 
     SP[a2, a4], n] + S2[a3, a4, n]*S2[a1, a6, a5, a2, n] - 
    S2[a1, a6, SP[a3, a5], SP[a2, a4], n] - S2[a1, SP[a3, a5], a2, 
     SP[a4, a6], n] - S2[a1, SP[a3, a5], a6, SP[a2, a4], n] - 
    S2[a1, SP[a3, a5], SP[a2, a4], a6, n] - S2[a1, SP[a3, a5], SP[a4, a6], 
     a2, n] - S2[a1, SP[a3, a6], a5, SP[a2, a4], n] - 
    S2[a1, SP[a3, a6], SP[a4, a5], a2, n] - S2[SP[a1, a3], a5, a2, 
     SP[a4, a6], n] - S2[SP[a1, a3], a5, a6, SP[a2, a4], n] - 
    S2[SP[a1, a3], a5, SP[a2, a4], a6, n] - S2[SP[a1, a3], a5, SP[a4, a6], 
     a2, n] - S2[SP[a1, a3], a6, a5, SP[a2, a4], n] - 
    S2[SP[a1, a3], a6, SP[a4, a5], a2, n] - S2[SP[a1, a3], SP[a4, a5], a2, 
     a6, n] - S2[SP[a1, a3], SP[a4, a5], a6, a2, n] - 
    S2[SP[a1, a3], SP[a4, a6], a5, a2, n] + S2[a1, a3, a5, a2, SP[a4, a6], 
     n] + S2[a1, a3, a5, a6, SP[a2, a4], n] + S2[a1, a3, a5, SP[a2, a4], a6, 
     n] + S2[a1, a3, a5, SP[a4, a6], a2, n] + S2[a1, a3, a6, a5, SP[a2, a4], 
     n] + S2[a1, a3, a6, SP[a4, a5], a2, n] + S2[a1, a3, SP[a4, a5], a2, a6, 
     n] + S2[a1, a3, SP[a4, a5], a6, a2, n] + S2[a1, a3, SP[a4, a6], a5, a2, 
     n] + S2[a6, n]*S2[a1, a4, a3, a5, a2, n] + S2[a1, a4, a3, a5, 
     SP[a2, a6], n] + S2[a1, a4, a3, SP[a5, a6], a2, n] + 
    S2[a6, n]*S2[a1, a4, a5, a2, a3, n] - 
    S2[a3, n]*S2[a1, a4, a5, a2, a6, n] + 
    S2[a6, n]*S2[a1, a4, a5, a3, a2, n] + S2[a1, a4, a5, a3, SP[a2, a6], n] - 
    S2[a3, n]*S2[a1, a4, a5, a6, a2, n] - S2[a1, a4, a5, a6, SP[a2, a3], n] - 
    S2[a1, a4, a5, SP[a2, a3], a6, n] + S2[a1, a4, a5, SP[a2, a6], a3, n] - 
    S2[a3, n]*S2[a1, a4, a6, a5, a2, n] - S2[a1, a4, a6, a5, SP[a2, a3], n] - 
    S2[a1, a4, a6, SP[a3, a5], a2, n] - S2[a1, a4, SP[a3, a5], a2, a6, n] - 
    S2[a1, a4, SP[a3, a5], a6, a2, n] + S2[a1, a4, SP[a5, a6], a2, a3, n] + 
    S2[a1, a4, SP[a5, a6], a3, a2, n] + S2[a1, a5, a2, a3, SP[a4, a6], n] + 
    S2[a6, n]*S2[a1, a5, a2, a4, a3, n] - 
    S2[a3, n]*S2[a1, a5, a2, a4, a6, n] - 
    S2[a3, n]*S2[a1, a5, a2, a6, a4, n] - S2[a1, a5, a2, a6, SP[a3, a4], n] - 
    S2[a1, a5, a2, SP[a3, a4], a6, n] + S2[a1, a5, a2, SP[a4, a6], a3, n] + 
    S2[a1, a5, a3, a2, SP[a4, a6], n] + S2[a1, a5, a3, a6, SP[a2, a4], n] + 
    S2[a1, a5, a3, SP[a2, a4], a6, n] + S2[a1, a5, a3, SP[a4, a6], a2, n] + 
    S2[a6, n]*S2[a1, a5, a4, a2, a3, n] - 
    S2[a3, n]*S2[a1, a5, a4, a2, a6, n] + 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] + S2[a1, a5, a4, a3, SP[a2, a6], n] - 
    S2[a3, n]*S2[a1, a5, a4, a6, a2, n] - S2[a1, a5, a4, a6, SP[a2, a3], n] - 
    S2[a1, a5, a4, SP[a2, a3], a6, n] + S2[a1, a5, a4, SP[a2, a6], a3, n] - 
    S2[a3, n]*S2[a1, a5, a6, a2, a4, n] - S2[a1, a5, a6, a2, SP[a3, a4], n] + 
    S2[a1, a5, a6, a3, SP[a2, a4], n] - S2[a3, n]*S2[a1, a5, a6, a4, a2, n] - 
    S2[a1, a5, a6, a4, SP[a2, a3], n] - S2[a1, a5, a6, SP[a3, a4], a2, n] + 
    S2[a1, a5, SP[a2, a6], a4, a3, n] - S2[a1, a5, SP[a3, a4], a2, a6, n] - 
    S2[a1, a5, SP[a3, a4], a6, a2, n] + S2[a1, a5, SP[a4, a6], a2, a3, n] + 
    S2[a1, a5, SP[a4, a6], a3, a2, n] + S2[a1, a6, a3, a5, SP[a2, a4], n] + 
    S2[a1, a6, a3, SP[a4, a5], a2, n] - S2[a3, n]*S2[a1, a6, a4, a5, a2, n] - 
    S2[a1, a6, a4, a5, SP[a2, a3], n] - S2[a1, a6, a4, SP[a3, a5], a2, n] - 
    S2[a3, n]*S2[a1, a6, a5, a2, a4, n] - S2[a1, a6, a5, a2, SP[a3, a4], n] + 
    S2[a1, a6, a5, a3, SP[a2, a4], n] - S2[a3, n]*S2[a1, a6, a5, a4, a2, n] - 
    S2[a1, a6, a5, a4, SP[a2, a3], n] - S2[a1, a6, a5, SP[a3, a4], a2, n] - 
    S2[a1, a6, SP[a3, a4], a5, a2, n] - S2[a1, SP[a3, a4], a5, a2, a6, n] - 
    S2[a1, SP[a3, a4], a5, a6, a2, n] - S2[a1, SP[a3, a4], a6, a5, a2, n] + 
    S2[a1, SP[a4, a6], a3, a5, a2, n] + S2[a1, SP[a4, a6], a5, a2, a3, n] + 
    S2[a1, SP[a4, a6], a5, a3, a2, n] + S2[a1, SP[a5, a6], a2, a4, a3, n] + 
    S2[a1, SP[a5, a6], a4, a2, a3, n] + S2[a1, SP[a5, a6], a4, a3, a2, n] + 
    S2[a3, a1, a5, a2, SP[a4, a6], n] + S2[a3, a1, a5, a6, SP[a2, a4], n] + 
    S2[a3, a1, a5, SP[a2, a4], a6, n] + S2[a3, a1, a5, SP[a4, a6], a2, n] + 
    S2[a3, a1, a6, a5, SP[a2, a4], n] + S2[a3, a1, a6, SP[a4, a5], a2, n] + 
    S2[a3, a1, SP[a4, a5], a2, a6, n] + S2[a3, a1, SP[a4, a5], a6, a2, n] + 
    S2[a3, a1, SP[a4, a6], a5, a2, n] - S2[a6, n]*S2[a3, a4, a1, a5, a2, n] - 
    S2[a3, a4, a1, a5, SP[a2, a6], n] - S2[a3, a4, a1, SP[a5, a6], a2, n] - 
    S2[a3, a4, SP[a1, a6], a5, a2, n] + S2[a4, n]*S2[a3, a6, a1, a5, a2, n] + 
    S2[a3, a6, a1, a5, SP[a2, a4], n] + S2[a3, a6, a1, SP[a4, a5], a2, n] + 
    S2[a3, a6, SP[a1, a4], a5, a2, n] + S2[a3, SP[a1, a4], a5, a2, a6, n] + 
    S2[a3, SP[a1, a4], a5, a6, a2, n] + S2[a3, SP[a1, a4], a6, a5, a2, n] - 
    S2[a3, n]*S2[a6, a1, a4, a5, a2, n] - S2[a6, a1, a4, a5, SP[a2, a3], n] - 
    S2[a6, a1, a4, SP[a3, a5], a2, n] - S2[a3, n]*S2[a6, a1, a5, a2, a4, n] - 
    S2[a6, a1, a5, a2, SP[a3, a4], n] - S2[a3, n]*S2[a6, a1, a5, a4, a2, n] - 
    S2[a6, a1, a5, a4, SP[a2, a3], n] - S2[a6, a1, a5, SP[a2, a3], a4, n] - 
    S2[a6, a1, a5, SP[a3, a4], a2, n] - S2[a6, a1, SP[a3, a4], a5, a2, n] - 
    S2[a6, a1, SP[a3, a5], a2, a4, n] - S2[a6, a1, SP[a3, a5], a4, a2, n] - 
    S2[a6, SP[a1, a3], a4, a5, a2, n] - S2[a6, SP[a1, a3], a5, a2, a4, n] - 
    S2[a6, SP[a1, a3], a5, a4, a2, n] + S2[SP[a1, a6], a4, a3, a5, a2, n] + 
    S2[SP[a1, a6], a4, a5, a2, a3, n] + S2[SP[a1, a6], a4, a5, a3, a2, n] + 
    S2[SP[a1, a6], a5, a2, a4, a3, n] + S2[SP[a1, a6], a5, a4, a2, a3, n] + 
    S2[SP[a1, a6], a5, a4, a3, a2, n] + S2[SP[a3, a4], a6, a1, a5, a2, n] - 
    S2[SP[a3, a6], a1, a4, a5, a2, n] - S2[SP[a3, a6], a1, a5, a2, a4, n] - 
    S2[SP[a3, a6], a1, a5, a4, a2, n] - S2[SP[a3, a6], a4, a1, a5, a2, n] + 
    S2[a6, a1, a3, a4, a5, a2, n] + S2[a6, a1, a3, a5, a2, a4, n] + 
    S2[a6, a1, a3, a5, a4, a2, n] + S2[a6, a1, a5, a2, a3, a4, n] + 
    S2[a6, a1, a5, a3, a2, a4, n] + S2[a6, a1, a5, a3, a4, a2, n] + 
    S2[a6, a3, a1, a4, a5, a2, n] + S2[a6, a3, a1, a5, a2, a4, n] + 
    S2[a6, a3, a1, a5, a4, a2, n] + S2[a6, a3, a4, a1, a5, a2, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a4_, a3_, a6_, a2_, a1_, a5_, n_] :> 
  -(S2[a3, a4, n]*S2[a1, a2, a5, a6, n]) - S2[a3, a4, n]*
     S2[a1, a2, a6, a5, n] + S2[a1, a2, SP[a3, a5], SP[a4, a6], n] + 
    S2[a1, a2, SP[a3, a6], SP[a4, a5], n] - S2[a3, a4, n]*
     S2[a1, a5, a2, a6, n] + S2[a1, a5, SP[a2, a3], SP[a4, a6], n] + 
    S2[a1, SP[a2, a3], a5, SP[a4, a6], n] + S2[a1, SP[a2, a3], a6, 
     SP[a4, a5], n] + S2[a1, SP[a2, a3], SP[a4, a5], a6, n] + 
    S2[a1, SP[a2, a3], SP[a4, a6], a5, n] + S2[a1, SP[a3, a5], a2, 
     SP[a4, a6], n] + S2[a1, SP[a3, a5], SP[a2, a4], a6, n] - 
    S2[a1, a5, n]*S2[a2, a4, a3, a6, n] - S2[a1, a5, n]*
     S2[a2, a4, a6, a3, n] + S2[a2, a4, SP[a1, a3], SP[a5, a6], n] + 
    S2[a2, a4, SP[a1, a6], SP[a3, a5], n] - S2[a1, a5, n]*
     S2[a2, a6, a4, a3, n] + S2[a2, a6, SP[a1, a4], SP[a3, a5], n] + 
    S2[a2, SP[a1, a4], a3, SP[a5, a6], n] + S2[a2, SP[a1, a4], a6, 
     SP[a3, a5], n] + S2[a2, SP[a1, a4], SP[a3, a5], a6, n] + 
    S2[a2, SP[a1, a4], SP[a5, a6], a3, n] + S2[a2, SP[a1, a6], a4, 
     SP[a3, a5], n] + S2[a2, SP[a1, a6], SP[a4, a5], a3, n] + 
    S2[a1, a5, n]*S2[a3, a4, a2, a6, n] - S2[a3, a4, SP[a1, a2], SP[a5, a6], 
     n] - S2[a3, SP[a1, a4], a2, SP[a5, a6], n] - 
    S2[a3, SP[a1, a4], SP[a2, a5], a6, n] + S2[SP[a1, a2], a4, a3, 
     SP[a5, a6], n] + S2[SP[a1, a2], a4, a6, SP[a3, a5], n] + 
    S2[SP[a1, a2], a4, SP[a3, a5], a6, n] + S2[SP[a1, a2], a4, SP[a5, a6], 
     a3, n] + S2[SP[a1, a2], a6, a4, SP[a3, a5], n] + 
    S2[SP[a1, a2], a6, SP[a4, a5], a3, n] + S2[SP[a1, a2], SP[a4, a5], a3, 
     a6, n] + S2[SP[a1, a2], SP[a4, a5], a6, a3, n] + 
    S2[SP[a1, a2], SP[a5, a6], a4, a3, n] + S2[SP[a1, a3], a2, a5, 
     SP[a4, a6], n] + S2[SP[a1, a3], a2, a6, SP[a4, a5], n] + 
    S2[SP[a1, a3], a2, SP[a4, a5], a6, n] + S2[SP[a1, a3], a2, SP[a4, a6], 
     a5, n] - S2[SP[a1, a3], a4, a2, SP[a5, a6], n] - 
    S2[SP[a1, a3], a4, SP[a2, a5], a6, n] + S2[SP[a1, a3], a5, a2, 
     SP[a4, a6], n] + S2[SP[a1, a3], a5, SP[a2, a4], a6, n] + 
    S2[SP[a1, a3], SP[a2, a4], a5, a6, n] + S2[SP[a1, a3], SP[a2, a4], a6, 
     a5, n] - S2[a1, a2, a3, a5, SP[a4, a6], n] - 
    S2[a1, a2, a3, a6, SP[a4, a5], n] - S2[a1, a2, a3, SP[a4, a5], a6, n] - 
    S2[a1, a2, a3, SP[a4, a6], a5, n] - S2[a6, n]*S2[a1, a2, a4, a3, a5, n] - 
    2*S2[a1, a2, a4, a3, SP[a5, a6], n] - 
    S2[a6, n]*S2[a1, a2, a4, a5, a3, n] + 
    S2[a3, n]*S2[a1, a2, a4, a5, a6, n] + 
    S2[a3, n]*S2[a1, a2, a4, a6, a5, n] - 
    2*S2[a1, a2, a4, SP[a5, a6], a3, n] - S2[a1, a2, a5, a3, SP[a4, a6], n] - 
    S2[a6, n]*S2[a1, a2, a5, a4, a3, n] + 
    S2[a3, n]*S2[a1, a2, a5, a4, a6, n] + 
    S2[a3, n]*S2[a1, a2, a5, a6, a4, n] + S2[a1, a2, a5, a6, SP[a3, a4], n] + 
    S2[a1, a2, a5, SP[a3, a4], a6, n] - S2[a1, a2, a5, SP[a4, a6], a3, n] - 
    S2[a1, a2, a6, a3, SP[a4, a5], n] + S2[a3, n]*S2[a1, a2, a6, a4, a5, n] + 
    S2[a3, n]*S2[a1, a2, a6, a5, a4, n] + S2[a1, a2, a6, a5, SP[a3, a4], n] + 
    S2[a1, a2, a6, SP[a3, a4], a5, n] - S2[a1, a2, a6, SP[a4, a5], a3, n] + 
    S2[a1, a2, SP[a3, a4], a5, a6, n] + S2[a1, a2, SP[a3, a4], a6, a5, n] - 
    S2[a1, a2, SP[a4, a5], a3, a6, n] - S2[a1, a2, SP[a4, a5], a6, a3, n] - 
    S2[a1, a2, SP[a4, a6], a3, a5, n] - S2[a1, a2, SP[a4, a6], a5, a3, n] - 
    2*S2[a1, a2, SP[a5, a6], a4, a3, n] - S2[a1, a3, a2, a5, SP[a4, a6], n] - 
    S2[a1, a3, a2, a6, SP[a4, a5], n] - S2[a1, a3, a2, SP[a4, a5], a6, n] - 
    S2[a1, a3, a2, SP[a4, a6], a5, n] + S2[a1, a3, a4, a2, SP[a5, a6], n] + 
    S2[a1, a3, a4, SP[a2, a5], a6, n] - S2[a1, a3, a5, a2, SP[a4, a6], n] - 
    S2[a1, a3, a5, SP[a2, a4], a6, n] - S2[a1, a3, SP[a2, a4], a5, a6, n] - 
    S2[a1, a3, SP[a2, a4], a6, a5, n] - S2[a6, n]*S2[a1, a4, a2, a3, a5, n] - 
    S2[a1, a4, a2, a3, SP[a5, a6], n] - S2[a6, n]*S2[a1, a4, a2, a5, a3, n] - 
    S2[a1, a4, a2, a5, SP[a3, a6], n] - S2[a1, a4, a2, SP[a3, a6], a5, n] - 
    S2[a1, a4, a2, SP[a5, a6], a3, n] - S2[a6, n]*S2[a1, a4, a3, a2, a5, n] - 
    S2[a1, a4, a3, a2, SP[a5, a6], n] - S2[a6, n]*S2[a1, a4, a3, a5, a2, n] + 
    S2[a2, n]*S2[a1, a4, a3, a5, a6, n] + 
    S2[a2, n]*S2[a1, a4, a3, a6, a5, n] + S2[a1, a4, a3, a6, SP[a2, a5], n] + 
    S2[a1, a4, a3, SP[a2, a5], a6, n] - S2[a1, a4, a3, SP[a5, a6], a2, n] - 
    S2[a6, n]*S2[a1, a4, a5, a2, a3, n] - S2[a1, a4, a5, a2, SP[a3, a6], n] - 
    S2[a6, n]*S2[a1, a4, a5, a3, a2, n] + 
    S2[a2, n]*S2[a1, a4, a5, a3, a6, n] + 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] + S2[a1, a4, a5, a6, SP[a2, a3], n] + 
    S2[a1, a4, a5, SP[a2, a3], a6, n] - S2[a1, a4, a5, SP[a3, a6], a2, n] + 
    S2[a2, n]*S2[a1, a4, a6, a3, a5, n] + S2[a1, a4, a6, a3, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a4, a6, a5, a3, n] + S2[a1, a4, a6, a5, SP[a2, a3], n] + 
    S2[a1, a4, a6, SP[a2, a3], a5, n] + S2[a1, a4, a6, SP[a2, a5], a3, n] + 
    S2[a1, a4, SP[a2, a3], a5, a6, n] + S2[a1, a4, SP[a2, a3], a6, a5, n] + 
    S2[a1, a4, SP[a2, a5], a3, a6, n] + S2[a1, a4, SP[a2, a5], a6, a3, n] - 
    S2[a1, a4, SP[a3, a6], a2, a5, n] - S2[a1, a4, SP[a3, a6], a5, a2, n] - 
    S2[a1, a4, SP[a5, a6], a2, a3, n] - S2[a1, a4, SP[a5, a6], a3, a2, n] - 
    S2[a1, a5, a2, a3, SP[a4, a6], n] - S2[a6, n]*S2[a1, a5, a2, a4, a3, n] + 
    S2[a3, n]*S2[a1, a5, a2, a4, a6, n] + 
    S2[a3, n]*S2[a1, a5, a2, a6, a4, n] + S2[a1, a5, a2, a6, SP[a3, a4], n] + 
    S2[a1, a5, a2, SP[a3, a4], a6, n] - S2[a1, a5, a2, SP[a4, a6], a3, n] - 
    S2[a1, a5, a3, a2, SP[a4, a6], n] - S2[a1, a5, a3, SP[a2, a4], a6, n] - 
    S2[a6, n]*S2[a1, a5, a4, a2, a3, n] - S2[a1, a5, a4, a2, SP[a3, a6], n] - 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] + 
    S2[a2, n]*S2[a1, a5, a4, a3, a6, n] + 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] + S2[a1, a5, a4, a6, SP[a2, a3], n] + 
    S2[a1, a5, a4, SP[a2, a3], a6, n] - S2[a1, a5, a4, SP[a3, a6], a2, n] + 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] + S2[a1, a5, a6, a4, SP[a2, a3], n] + 
    S2[a1, a5, a6, SP[a2, a4], a3, n] + S2[a1, a5, SP[a2, a4], a3, a6, n] + 
    S2[a1, a5, SP[a2, a4], a6, a3, n] - S2[a1, a5, SP[a4, a6], a2, a3, n] - 
    S2[a1, a5, SP[a4, a6], a3, a2, n] + S2[a2, n]*S2[a1, a6, a4, a3, a5, n] + 
    S2[a1, a6, a4, a3, SP[a2, a5], n] + S2[a2, n]*S2[a1, a6, a4, a5, a3, n] + 
    S2[a1, a6, a4, a5, SP[a2, a3], n] + S2[a1, a6, a4, SP[a2, a3], a5, n] + 
    S2[a1, a6, a4, SP[a2, a5], a3, n] + S2[a2, n]*S2[a1, a6, a5, a4, a3, n] + 
    S2[a1, a6, a5, a4, SP[a2, a3], n] + S2[a1, a6, a5, SP[a2, a4], a3, n] + 
    S2[a1, a6, SP[a2, a4], a3, a5, n] + S2[a1, a6, SP[a2, a4], a5, a3, n] + 
    S2[a1, a6, SP[a2, a5], a4, a3, n] + S2[a1, SP[a2, a4], a3, a5, a6, n] + 
    S2[a1, SP[a2, a4], a3, a6, a5, n] + S2[a1, SP[a2, a4], a5, a3, a6, n] + 
    S2[a1, SP[a2, a4], a5, a6, a3, n] + S2[a1, SP[a2, a4], a6, a3, a5, n] + 
    S2[a1, SP[a2, a4], a6, a5, a3, n] - S2[a1, SP[a4, a6], a2, a3, a5, n] - 
    S2[a1, SP[a4, a6], a2, a5, a3, n] - S2[a1, SP[a4, a6], a3, a2, a5, n] - 
    S2[a1, SP[a4, a6], a3, a5, a2, n] - S2[a1, SP[a4, a6], a5, a2, a3, n] - 
    S2[a1, SP[a4, a6], a5, a3, a2, n] - S2[a1, SP[a5, a6], a2, a4, a3, n] - 
    S2[a1, SP[a5, a6], a4, a2, a3, n] - S2[a1, SP[a5, a6], a4, a3, a2, n] - 
    S2[a2, a1, a4, a3, SP[a5, a6], n] - S2[a2, a1, a4, a6, SP[a3, a5], n] - 
    S2[a2, a1, a4, SP[a3, a5], a6, n] - S2[a2, a1, a4, SP[a5, a6], a3, n] - 
    S2[a2, a1, a6, a4, SP[a3, a5], n] - S2[a2, a1, a6, SP[a4, a5], a3, n] - 
    S2[a2, a1, SP[a4, a5], a3, a6, n] - S2[a2, a1, SP[a4, a5], a6, a3, n] - 
    S2[a2, a1, SP[a5, a6], a4, a3, n] - S2[a2, a4, a1, a3, SP[a5, a6], n] + 
    S2[a3, n]*S2[a2, a4, a1, a5, a6, n] + S2[a2, a4, a1, a5, SP[a3, a6], n] + 
    S2[a3, n]*S2[a2, a4, a1, a6, a5, n] + S2[a2, a4, a1, SP[a3, a6], a5, n] - 
    S2[a2, a4, a1, SP[a5, a6], a3, n] - S2[a2, a4, a3, a1, SP[a5, a6], n] - 
    S2[a2, a4, a3, SP[a1, a6], a5, n] - S2[a2, a4, a6, a1, SP[a3, a5], n] - 
    S2[a2, a4, a6, SP[a1, a3], a5, n] - S2[a2, a4, SP[a1, a6], a3, a5, n] - 
    S2[a2, a4, SP[a1, a6], a5, a3, n] + S2[a4, n]*S2[a2, a6, a1, a3, a5, n] + 
    S2[a2, a6, a1, a3, SP[a4, a5], n] - S2[a2, a6, a1, a4, SP[a3, a5], n] + 
    S2[a4, n]*S2[a2, a6, a1, a5, a3, n] + S2[a2, a6, a1, a5, SP[a3, a4], n] + 
    S2[a2, a6, a1, SP[a3, a4], a5, n] + S2[a4, n]*S2[a2, a6, a3, a1, a5, n] + 
    S2[a2, a6, a3, a1, SP[a4, a5], n] + S2[a2, a6, a3, SP[a1, a4], a5, n] - 
    S2[a2, a6, a4, a1, SP[a3, a5], n] - S2[a2, a6, a4, SP[a1, a3], a5, n] + 
    S2[a2, a6, SP[a3, a4], a1, a5, n] - S2[a2, SP[a1, a4], a3, a5, a6, n] - 
    S2[a2, SP[a1, a4], a3, a6, a5, n] - S2[a2, SP[a1, a4], a5, a3, a6, n] - 
    S2[a2, SP[a1, a4], a5, a6, a3, n] - S2[a2, SP[a1, a4], a6, a3, a5, n] - 
    S2[a2, SP[a1, a4], a6, a5, a3, n] - S2[a2, SP[a1, a6], a4, a3, a5, n] - 
    S2[a2, SP[a1, a6], a4, a5, a3, n] - S2[a2, SP[a1, a6], a5, a4, a3, n] + 
    S2[a2, SP[a3, a4], a1, a5, a6, n] + S2[a2, SP[a3, a4], a1, a6, a5, n] + 
    S2[a2, SP[a4, a6], a1, a3, a5, n] + S2[a2, SP[a4, a6], a1, a5, a3, n] + 
    S2[a2, SP[a4, a6], a3, a1, a5, n] - S2[a3, a1, a2, a5, SP[a4, a6], n] - 
    S2[a3, a1, a2, a6, SP[a4, a5], n] - S2[a3, a1, a2, SP[a4, a5], a6, n] - 
    S2[a3, a1, a2, SP[a4, a6], a5, n] + S2[a3, a1, a4, a2, SP[a5, a6], n] + 
    S2[a3, a1, a4, SP[a2, a5], a6, n] - S2[a3, a1, a5, a2, SP[a4, a6], n] - 
    S2[a3, a1, a5, SP[a2, a4], a6, n] - S2[a3, a1, SP[a2, a4], a5, a6, n] - 
    S2[a3, a1, SP[a2, a4], a6, a5, n] + S2[a6, n]*S2[a3, a4, a1, a2, a5, n] + 
    2*S2[a3, a4, a1, a2, SP[a5, a6], n] + 
    S2[a6, n]*S2[a3, a4, a1, a5, a2, n] - 
    S2[a2, n]*S2[a3, a4, a1, a5, a6, n] - 
    S2[a2, n]*S2[a3, a4, a1, a6, a5, n] - S2[a3, a4, a1, a6, SP[a2, a5], n] + 
    S2[a3, a4, a1, SP[a5, a6], a2, n] + S2[a3, a4, a2, a1, SP[a5, a6], n] + 
    S2[a3, a4, a2, SP[a1, a6], a5, n] + S2[a3, a4, SP[a1, a6], a2, a5, n] + 
    S2[a3, a4, SP[a1, a6], a5, a2, n] - S2[a4, n]*S2[a3, a6, a1, a2, a5, n] - 
    S2[a3, a6, a1, a2, SP[a4, a5], n] - S2[a4, n]*S2[a3, a6, a1, a5, a2, n] - 
    S2[a3, a6, a1, a5, SP[a2, a4], n] - S2[a3, a6, a1, SP[a2, a4], a5, n] - 
    S2[a3, a6, a1, SP[a4, a5], a2, n] - S2[a3, a6, SP[a1, a4], a2, a5, n] - 
    S2[a3, a6, SP[a1, a4], a5, a2, n] - S2[a3, SP[a2, a4], a1, a5, a6, n] - 
    S2[a3, SP[a2, a4], a1, a6, a5, n] - S2[a3, n]*S2[a4, a2, a6, a1, a5, n] - 
    S2[a4, a2, a6, a1, SP[a3, a5], n] - S2[a4, a2, a6, SP[a1, a3], a5, n] - 
    S2[a4, a2, SP[a3, a6], a1, a5, n] + S2[a2, n]*S2[a4, a3, a6, a1, a5, n] + 
    S2[a4, a3, a6, a1, SP[a2, a5], n] + S2[a4, a3, a6, SP[a1, a2], a5, n] + 
    S2[a4, a3, SP[a2, a6], a1, a5, n] + S2[a3, n]*S2[a6, a1, a2, a4, a5, n] + 
    S2[a6, a1, a2, a4, SP[a3, a5], n] + S2[a3, n]*S2[a6, a1, a2, a5, a4, n] + 
    S2[a6, a1, a2, a5, SP[a3, a4], n] + S2[a6, a1, a2, SP[a3, a4], a5, n] + 
    S2[a6, a1, a2, SP[a3, a5], a4, n] - S2[a2, n]*S2[a6, a1, a3, a4, a5, n] - 
    S2[a6, a1, a3, a4, SP[a2, a5], n] - S2[a2, n]*S2[a6, a1, a3, a5, a4, n] - 
    S2[a6, a1, a3, a5, SP[a2, a4], n] - S2[a6, a1, a3, SP[a2, a4], a5, n] - 
    S2[a6, a1, a3, SP[a2, a5], a4, n] + S2[a3, n]*S2[a6, a1, a4, a2, a5, n] + 
    S2[a6, a1, a4, a2, SP[a3, a5], n] + S2[a3, n]*S2[a6, a1, a4, a5, a2, n] + 
    S2[a6, a1, a4, a5, SP[a2, a3], n] + S2[a6, a1, a4, SP[a2, a3], a5, n] + 
    S2[a6, a1, a4, SP[a3, a5], a2, n] + S2[a3, n]*S2[a6, a1, a5, a2, a4, n] + 
    S2[a6, a1, a5, a2, SP[a3, a4], n] - S2[a2, n]*S2[a6, a1, a5, a3, a4, n] - 
    S2[a6, a1, a5, a3, SP[a2, a4], n] + S2[a3, n]*S2[a6, a1, a5, a4, a2, n] + 
    S2[a6, a1, a5, a4, SP[a2, a3], n] + S2[a6, a1, a5, SP[a3, a4], a2, n] - 
    S2[a6, a1, SP[a2, a5], a3, a4, n] + S2[a6, a1, SP[a3, a4], a2, a5, n] + 
    S2[a6, a1, SP[a3, a4], a5, a2, n] + S2[a6, a1, SP[a3, a5], a2, a4, n] + 
    S2[a6, a1, SP[a3, a5], a4, a2, n] - S2[a2, n]*S2[a6, a3, a1, a4, a5, n] - 
    S2[a6, a3, a1, a4, SP[a2, a5], n] - S2[a2, n]*S2[a6, a3, a1, a5, a4, n] - 
    S2[a6, a3, a1, a5, SP[a2, a4], n] - S2[a6, a3, a1, SP[a2, a4], a5, n] - 
    S2[a6, a3, a1, SP[a2, a5], a4, n] - S2[a2, n]*S2[a6, a3, a4, a1, a5, n] - 
    S2[a6, a3, a4, a1, SP[a2, a5], n] - S2[a6, a3, a4, SP[a1, a2], a5, n] - 
    S2[a6, a3, SP[a1, a2], a4, a5, n] - S2[a6, a3, SP[a1, a2], a5, a4, n] - 
    S2[a6, a3, SP[a2, a4], a1, a5, n] - S2[a6, SP[a1, a2], a3, a4, a5, n] - 
    S2[a6, SP[a1, a2], a3, a5, a4, n] - S2[a6, SP[a1, a2], a5, a3, a4, n] + 
    S2[a6, SP[a1, a3], a2, a4, a5, n] + S2[a6, SP[a1, a3], a2, a5, a4, n] + 
    S2[a6, SP[a1, a3], a4, a2, a5, n] + S2[a6, SP[a1, a3], a4, a5, a2, n] + 
    S2[a6, SP[a1, a3], a5, a2, a4, n] + S2[a6, SP[a1, a3], a5, a4, a2, n] - 
    S2[a6, SP[a2, a3], a1, a4, a5, n] - S2[a6, SP[a2, a3], a1, a5, a4, n] - 
    S2[a6, SP[a2, a3], a4, a1, a5, n] - S2[SP[a1, a6], a2, a4, a3, a5, n] - 
    S2[SP[a1, a6], a2, a4, a5, a3, n] - S2[SP[a1, a6], a2, a5, a4, a3, n] - 
    S2[SP[a1, a6], a4, a2, a3, a5, n] - S2[SP[a1, a6], a4, a2, a5, a3, n] - 
    S2[SP[a1, a6], a4, a3, a2, a5, n] - S2[SP[a1, a6], a4, a3, a5, a2, n] - 
    S2[SP[a1, a6], a4, a5, a2, a3, n] - S2[SP[a1, a6], a4, a5, a3, a2, n] - 
    S2[SP[a1, a6], a5, a2, a4, a3, n] - S2[SP[a1, a6], a5, a4, a2, a3, n] - 
    S2[SP[a1, a6], a5, a4, a3, a2, n] + S2[SP[a2, a4], a3, a6, a1, a5, n] + 
    S2[SP[a2, a4], a6, a1, a3, a5, n] + S2[SP[a2, a4], a6, a1, a5, a3, n] + 
    S2[SP[a2, a4], a6, a3, a1, a5, n] - S2[SP[a2, a6], a1, a3, a4, a5, n] - 
    S2[SP[a2, a6], a1, a3, a5, a4, n] - S2[SP[a2, a6], a1, a5, a3, a4, n] - 
    S2[SP[a2, a6], a3, a1, a4, a5, n] - S2[SP[a2, a6], a3, a1, a5, a4, n] - 
    S2[SP[a2, a6], a3, a4, a1, a5, n] - S2[SP[a3, a4], a2, a6, a1, a5, n] - 
    S2[SP[a3, a4], a6, a1, a2, a5, n] - S2[SP[a3, a4], a6, a1, a5, a2, n] + 
    S2[SP[a3, a6], a1, a2, a4, a5, n] + S2[SP[a3, a6], a1, a2, a5, a4, n] + 
    S2[SP[a3, a6], a1, a4, a2, a5, n] + S2[SP[a3, a6], a1, a4, a5, a2, n] + 
    S2[SP[a3, a6], a1, a5, a2, a4, n] + S2[SP[a3, a6], a1, a5, a4, a2, n] + 
    S2[SP[a3, a6], a4, a1, a2, a5, n] + S2[SP[a3, a6], a4, a1, a5, a2, n] + 
    S2[a6, a2, a1, a3, a4, a5, n] + S2[a6, a2, a1, a3, a5, a4, n] + 
    S2[a6, a2, a1, a5, a3, a4, n] + S2[a6, a2, a3, a1, a4, a5, n] + 
    S2[a6, a2, a3, a1, a5, a4, n] + S2[a6, a2, a3, a4, a1, a5, n] + 
    S2[a6, a3, a2, a1, a4, a5, n] + S2[a6, a3, a2, a1, a5, a4, n] + 
    S2[a6, a3, a2, a4, a1, a5, n] + S2[a6, a3, a4, a2, a1, a5, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a4_, a3_, a6_, a2_, a5_, a1_, n_] :> 
  S2[a3, a4, n]*S2[a1, a5, a2, a6, n] - S2[a1, a5, SP[a2, a3], SP[a4, a6], 
     n] - S2[a1, SP[a3, a5], a2, SP[a4, a6], n] - 
    S2[a1, SP[a3, a5], SP[a2, a4], a6, n] + S2[a1, a5, n]*
     S2[a2, a4, a3, a6, n] + S2[a1, a5, n]*S2[a2, a4, a6, a3, n] - 
    S2[a2, a4, SP[a1, a3], SP[a5, a6], n] - S2[a2, a4, SP[a1, a6], 
     SP[a3, a5], n] + S2[a1, a5, n]*S2[a2, a6, a4, a3, n] - 
    S2[a2, a6, SP[a1, a4], SP[a3, a5], n] - S2[a2, SP[a1, a4], a3, 
     SP[a5, a6], n] - S2[a2, SP[a1, a4], a6, SP[a3, a5], n] - 
    S2[a2, SP[a1, a4], SP[a3, a5], a6, n] - S2[a2, SP[a1, a4], SP[a5, a6], 
     a3, n] - S2[a2, SP[a1, a6], a4, SP[a3, a5], n] - 
    S2[a2, SP[a1, a6], SP[a4, a5], a3, n] - S2[a1, a5, n]*
     S2[a3, a4, a2, a6, n] + S2[a3, a4, SP[a1, a2], SP[a5, a6], n] + 
    S2[a3, SP[a1, a4], a2, SP[a5, a6], n] + S2[a3, SP[a1, a4], SP[a2, a5], 
     a6, n] - S2[SP[a1, a2], a4, a3, SP[a5, a6], n] - 
    S2[SP[a1, a2], a4, a6, SP[a3, a5], n] - S2[SP[a1, a2], a4, SP[a3, a5], 
     a6, n] - S2[SP[a1, a2], a4, SP[a5, a6], a3, n] - 
    S2[SP[a1, a2], a6, a4, SP[a3, a5], n] - S2[SP[a1, a2], a6, SP[a4, a5], 
     a3, n] - S2[SP[a1, a2], SP[a4, a5], a3, a6, n] - 
    S2[SP[a1, a2], SP[a4, a5], a6, a3, n] - S2[SP[a1, a2], SP[a5, a6], a4, 
     a3, n] + S2[SP[a1, a3], a4, a2, SP[a5, a6], n] + 
    S2[SP[a1, a3], a4, SP[a2, a5], a6, n] - S2[SP[a1, a3], a5, a2, 
     SP[a4, a6], n] - S2[SP[a1, a3], a5, SP[a2, a4], a6, n] + 
    S2[a1, a2, a4, a3, SP[a5, a6], n] + S2[a1, a2, a4, a6, SP[a3, a5], n] + 
    S2[a1, a2, a4, SP[a3, a5], a6, n] + S2[a1, a2, a4, SP[a5, a6], a3, n] + 
    S2[a1, a2, a6, a4, SP[a3, a5], n] + S2[a1, a2, a6, SP[a4, a5], a3, n] + 
    S2[a1, a2, SP[a4, a5], a3, a6, n] + S2[a1, a2, SP[a4, a5], a6, a3, n] + 
    S2[a1, a2, SP[a5, a6], a4, a3, n] - S2[a1, a3, a4, a2, SP[a5, a6], n] - 
    S2[a1, a3, a4, SP[a2, a5], a6, n] + S2[a1, a3, a5, a2, SP[a4, a6], n] + 
    S2[a1, a3, a5, SP[a2, a4], a6, n] + S2[a3, n]*S2[a1, a4, a2, a5, a6, n] + 
    S2[a1, a4, a2, a5, SP[a3, a6], n] + S2[a3, n]*S2[a1, a4, a2, a6, a5, n] + 
    S2[a1, a4, a2, a6, SP[a3, a5], n] + S2[a1, a4, a2, SP[a3, a5], a6, n] + 
    S2[a1, a4, a2, SP[a3, a6], a5, n] + S2[a6, n]*S2[a1, a4, a3, a5, a2, n] - 
    S2[a2, n]*S2[a1, a4, a3, a5, a6, n] - 
    S2[a2, n]*S2[a1, a4, a3, a6, a5, n] - S2[a1, a4, a3, a6, SP[a2, a5], n] - 
    S2[a1, a4, a3, SP[a2, a5], a6, n] - S2[a1, a4, a3, SP[a2, a6], a5, n] + 
    S2[a1, a4, a3, SP[a5, a6], a2, n] + S2[a6, n]*S2[a1, a4, a5, a2, a3, n] + 
    S2[a1, a4, a5, a2, SP[a3, a6], n] + S2[a6, n]*S2[a1, a4, a5, a3, a2, n] - 
    S2[a2, n]*S2[a1, a4, a5, a3, a6, n] - 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] - S2[a1, a4, a5, a6, SP[a2, a3], n] - 
    S2[a1, a4, a5, SP[a2, a3], a6, n] + S2[a1, a4, a5, SP[a3, a6], a2, n] - 
    S2[a2, n]*S2[a1, a4, a6, a3, a5, n] - S2[a1, a4, a6, a3, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a4, a6, a5, a3, n] - S2[a1, a4, a6, a5, SP[a2, a3], n] - 
    S2[a1, a4, a6, SP[a2, a3], a5, n] - S2[a1, a4, a6, SP[a2, a5], a3, n] - 
    S2[a1, a4, SP[a2, a5], a3, a6, n] - S2[a1, a4, SP[a2, a5], a6, a3, n] - 
    S2[a1, a4, SP[a2, a6], a3, a5, n] - S2[a1, a4, SP[a2, a6], a5, a3, n] + 
    S2[a1, a4, SP[a3, a6], a5, a2, n] + S2[a1, a4, SP[a5, a6], a2, a3, n] + 
    S2[a1, a4, SP[a5, a6], a3, a2, n] + S2[a1, a5, a2, a3, SP[a4, a6], n] + 
    S2[a6, n]*S2[a1, a5, a2, a4, a3, n] - 
    S2[a3, n]*S2[a1, a5, a2, a4, a6, n] - 
    S2[a3, n]*S2[a1, a5, a2, a6, a4, n] - S2[a1, a5, a2, a6, SP[a3, a4], n] - 
    S2[a1, a5, a2, SP[a3, a4], a6, n] + S2[a1, a5, a2, SP[a4, a6], a3, n] + 
    S2[a1, a5, a3, a2, SP[a4, a6], n] + S2[a1, a5, a3, SP[a2, a4], a6, n] + 
    S2[a6, n]*S2[a1, a5, a4, a2, a3, n] + S2[a1, a5, a4, a2, SP[a3, a6], n] + 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] - 
    S2[a2, n]*S2[a1, a5, a4, a3, a6, n] - 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] - S2[a1, a5, a4, a6, SP[a2, a3], n] - 
    S2[a1, a5, a4, SP[a2, a3], a6, n] + S2[a1, a5, a4, SP[a3, a6], a2, n] - 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] - S2[a1, a5, a6, a4, SP[a2, a3], n] - 
    S2[a1, a5, a6, SP[a2, a4], a3, n] - S2[a1, a5, SP[a2, a4], a3, a6, n] - 
    S2[a1, a5, SP[a2, a4], a6, a3, n] + S2[a1, a5, SP[a4, a6], a2, a3, n] + 
    S2[a1, a5, SP[a4, a6], a3, a2, n] + S2[a4, n]*S2[a1, a6, a2, a3, a5, n] + 
    S2[a1, a6, a2, a3, SP[a4, a5], n] + S2[a4, n]*S2[a1, a6, a2, a5, a3, n] + 
    S2[a1, a6, a2, a5, SP[a3, a4], n] + S2[a1, a6, a2, SP[a3, a4], a5, n] + 
    S2[a1, a6, a2, SP[a4, a5], a3, n] + S2[a4, n]*S2[a1, a6, a3, a2, a5, n] + 
    S2[a1, a6, a3, a2, SP[a4, a5], n] + S2[a1, a6, a3, SP[a2, a4], a5, n] - 
    S2[a2, n]*S2[a1, a6, a4, a3, a5, n] - S2[a1, a6, a4, a3, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a6, a4, a5, a3, n] - S2[a1, a6, a4, a5, SP[a2, a3], n] - 
    S2[a1, a6, a4, SP[a2, a3], a5, n] - S2[a1, a6, a4, SP[a2, a5], a3, n] - 
    S2[a2, n]*S2[a1, a6, a5, a4, a3, n] - S2[a1, a6, a5, a4, SP[a2, a3], n] - 
    S2[a1, a6, a5, SP[a2, a4], a3, n] - S2[a1, a6, SP[a2, a5], a4, a3, n] + 
    S2[a1, a6, SP[a3, a4], a2, a5, n] - S2[a1, SP[a2, a4], a3, a5, a6, n] - 
    S2[a1, SP[a2, a4], a3, a6, a5, n] - S2[a1, SP[a2, a4], a5, a3, a6, n] - 
    S2[a1, SP[a2, a4], a5, a6, a3, n] - S2[a1, SP[a2, a4], a6, a3, a5, n] - 
    S2[a1, SP[a2, a4], a6, a5, a3, n] - S2[a1, SP[a2, a6], a4, a3, a5, n] - 
    S2[a1, SP[a2, a6], a4, a5, a3, n] - S2[a1, SP[a2, a6], a5, a4, a3, n] + 
    S2[a1, SP[a3, a4], a2, a5, a6, n] + S2[a1, SP[a3, a4], a2, a6, a5, n] + 
    S2[a1, SP[a4, a6], a2, a3, a5, n] + S2[a1, SP[a4, a6], a2, a5, a3, n] + 
    S2[a1, SP[a4, a6], a3, a2, a5, n] + S2[a1, SP[a4, a6], a3, a5, a2, n] + 
    S2[a1, SP[a4, a6], a5, a2, a3, n] + S2[a1, SP[a4, a6], a5, a3, a2, n] + 
    S2[a1, SP[a5, a6], a2, a4, a3, n] + S2[a1, SP[a5, a6], a4, a2, a3, n] + 
    S2[a1, SP[a5, a6], a4, a3, a2, n] + S2[a2, a1, a4, a3, SP[a5, a6], n] + 
    S2[a2, a1, a4, a6, SP[a3, a5], n] + S2[a2, a1, a4, SP[a3, a5], a6, n] + 
    S2[a2, a1, a4, SP[a5, a6], a3, n] + S2[a2, a1, a6, a4, SP[a3, a5], n] + 
    S2[a2, a1, a6, SP[a4, a5], a3, n] + S2[a2, a1, SP[a4, a5], a3, a6, n] + 
    S2[a2, a1, SP[a4, a5], a6, a3, n] + S2[a2, a1, SP[a5, a6], a4, a3, n] + 
    S2[a2, a4, a1, a3, SP[a5, a6], n] - S2[a3, n]*S2[a2, a4, a1, a5, a6, n] - 
    S2[a2, a4, a1, a5, SP[a3, a6], n] - S2[a3, n]*S2[a2, a4, a1, a6, a5, n] - 
    S2[a2, a4, a1, SP[a3, a6], a5, n] + S2[a2, a4, a1, SP[a5, a6], a3, n] + 
    S2[a2, a4, a3, a1, SP[a5, a6], n] + S2[a2, a4, a3, SP[a1, a6], a5, n] + 
    S2[a2, a4, a6, a1, SP[a3, a5], n] + S2[a2, a4, a6, SP[a1, a3], a5, n] + 
    S2[a2, a4, SP[a1, a6], a3, a5, n] + S2[a2, a4, SP[a1, a6], a5, a3, n] - 
    S2[a4, n]*S2[a2, a6, a1, a3, a5, n] - S2[a2, a6, a1, a3, SP[a4, a5], n] + 
    S2[a2, a6, a1, a4, SP[a3, a5], n] - S2[a4, n]*S2[a2, a6, a1, a5, a3, n] - 
    S2[a2, a6, a1, a5, SP[a3, a4], n] - S2[a2, a6, a1, SP[a3, a4], a5, n] - 
    S2[a4, n]*S2[a2, a6, a3, a1, a5, n] - S2[a2, a6, a3, a1, SP[a4, a5], n] - 
    S2[a2, a6, a3, SP[a1, a4], a5, n] + S2[a2, a6, a4, a1, SP[a3, a5], n] + 
    S2[a2, a6, a4, SP[a1, a3], a5, n] - S2[a2, a6, SP[a3, a4], a1, a5, n] + 
    S2[a2, SP[a1, a4], a3, a5, a6, n] + S2[a2, SP[a1, a4], a3, a6, a5, n] + 
    S2[a2, SP[a1, a4], a5, a3, a6, n] + S2[a2, SP[a1, a4], a5, a6, a3, n] + 
    S2[a2, SP[a1, a4], a6, a3, a5, n] + S2[a2, SP[a1, a4], a6, a5, a3, n] + 
    S2[a2, SP[a1, a6], a4, a3, a5, n] + S2[a2, SP[a1, a6], a4, a5, a3, n] + 
    S2[a2, SP[a1, a6], a5, a4, a3, n] - S2[a2, SP[a3, a4], a1, a5, a6, n] - 
    S2[a2, SP[a3, a4], a1, a6, a5, n] - S2[a2, SP[a4, a6], a1, a3, a5, n] - 
    S2[a2, SP[a4, a6], a1, a5, a3, n] - S2[a2, SP[a4, a6], a3, a1, a5, n] - 
    S2[a3, a1, a4, a2, SP[a5, a6], n] - S2[a3, a1, a4, SP[a2, a5], a6, n] + 
    S2[a3, a1, a5, a2, SP[a4, a6], n] + S2[a3, a1, a5, SP[a2, a4], a6, n] - 
    S2[a3, a4, a1, a2, SP[a5, a6], n] - S2[a6, n]*S2[a3, a4, a1, a5, a2, n] + 
    S2[a2, n]*S2[a3, a4, a1, a5, a6, n] + 
    S2[a2, n]*S2[a3, a4, a1, a6, a5, n] + S2[a3, a4, a1, a6, SP[a2, a5], n] + 
    S2[a3, a4, a1, SP[a2, a6], a5, n] - S2[a3, a4, a1, SP[a5, a6], a2, n] - 
    S2[a3, a4, a2, a1, SP[a5, a6], n] - S2[a3, a4, a2, SP[a1, a6], a5, n] - 
    S2[a3, a4, SP[a1, a6], a5, a2, n] + S2[a4, n]*S2[a3, a6, a1, a5, a2, n] + 
    S2[a3, a6, a1, a5, SP[a2, a4], n] + S2[a3, a6, a1, SP[a4, a5], a2, n] + 
    S2[a3, a6, SP[a1, a4], a5, a2, n] - S2[a3, SP[a1, a4], a2, a5, a6, n] - 
    S2[a3, SP[a1, a4], a2, a6, a5, n] + S2[a3, SP[a2, a4], a1, a5, a6, n] + 
    S2[a3, SP[a2, a4], a1, a6, a5, n] - S2[a3, n]*S2[a4, a1, a6, a2, a5, n] - 
    S2[a4, a1, a6, a2, SP[a3, a5], n] - S2[a4, a1, a6, SP[a2, a3], a5, n] - 
    S2[a4, a1, SP[a3, a6], a2, a5, n] + S2[a3, n]*S2[a4, a2, a6, a1, a5, n] + 
    S2[a4, a2, a6, a1, SP[a3, a5], n] + S2[a4, a2, a6, SP[a1, a3], a5, n] + 
    S2[a4, a2, SP[a3, a6], a1, a5, n] - S2[a2, n]*S2[a4, a3, a6, a1, a5, n] - 
    S2[a4, a3, a6, a1, SP[a2, a5], n] + S2[a1, n]*S2[a4, a3, a6, a2, a5, n] + 
    S2[a4, a3, a6, a2, SP[a1, a5], n] + S2[a4, a3, SP[a1, a6], a2, a5, n] - 
    S2[a4, a3, SP[a2, a6], a1, a5, n] + S2[a2, n]*S2[a6, a1, a3, a4, a5, n] + 
    S2[a6, a1, a3, a4, SP[a2, a5], n] + S2[a2, n]*S2[a6, a1, a3, a5, a4, n] + 
    S2[a6, a1, a3, a5, SP[a2, a4], n] + S2[a6, a1, a3, SP[a2, a4], a5, n] + 
    S2[a6, a1, a3, SP[a2, a5], a4, n] - S2[a3, n]*S2[a6, a1, a4, a5, a2, n] - 
    S2[a6, a1, a4, a5, SP[a2, a3], n] - S2[a6, a1, a4, SP[a3, a5], a2, n] - 
    S2[a3, n]*S2[a6, a1, a5, a2, a4, n] - S2[a6, a1, a5, a2, SP[a3, a4], n] + 
    S2[a2, n]*S2[a6, a1, a5, a3, a4, n] + S2[a6, a1, a5, a3, SP[a2, a4], n] - 
    S2[a3, n]*S2[a6, a1, a5, a4, a2, n] - S2[a6, a1, a5, a4, SP[a2, a3], n] - 
    S2[a6, a1, a5, SP[a3, a4], a2, n] + S2[a6, a1, SP[a2, a3], a4, a5, n] + 
    S2[a6, a1, SP[a2, a3], a5, a4, n] + S2[a6, a1, SP[a2, a5], a3, a4, n] - 
    S2[a6, a1, SP[a3, a4], a5, a2, n] - S2[a6, a1, SP[a3, a5], a2, a4, n] - 
    S2[a6, a1, SP[a3, a5], a4, a2, n] - S2[a1, n]*S2[a6, a2, a3, a4, a5, n] - 
    S2[a6, a2, a3, a4, SP[a1, a5], n] - S2[a1, n]*S2[a6, a2, a3, a5, a4, n] - 
    S2[a6, a2, a3, a5, SP[a1, a4], n] - S2[a6, a2, a3, SP[a1, a4], a5, n] - 
    S2[a6, a2, a3, SP[a1, a5], a4, n] - S2[a1, n]*S2[a6, a2, a5, a3, a4, n] - 
    S2[a6, a2, a5, a3, SP[a1, a4], n] - S2[a6, a2, a5, SP[a1, a3], a4, n] - 
    S2[a6, a2, SP[a1, a3], a4, a5, n] - S2[a6, a2, SP[a1, a3], a5, a4, n] - 
    S2[a6, a2, SP[a1, a5], a3, a4, n] + S2[a2, n]*S2[a6, a3, a1, a4, a5, n] + 
    S2[a6, a3, a1, a4, SP[a2, a5], n] + S2[a2, n]*S2[a6, a3, a1, a5, a4, n] + 
    S2[a6, a3, a1, a5, SP[a2, a4], n] + S2[a6, a3, a1, SP[a2, a4], a5, n] + 
    S2[a6, a3, a1, SP[a2, a5], a4, n] - S2[a1, n]*S2[a6, a3, a2, a4, a5, n] - 
    S2[a6, a3, a2, a4, SP[a1, a5], n] - S2[a1, n]*S2[a6, a3, a2, a5, a4, n] - 
    S2[a6, a3, a2, a5, SP[a1, a4], n] - S2[a6, a3, a2, SP[a1, a4], a5, n] - 
    S2[a6, a3, a2, SP[a1, a5], a4, n] + S2[a2, n]*S2[a6, a3, a4, a1, a5, n] + 
    S2[a6, a3, a4, a1, SP[a2, a5], n] - S2[a1, n]*S2[a6, a3, a4, a2, a5, n] - 
    S2[a6, a3, a4, a2, SP[a1, a5], n] - S2[a6, a3, SP[a1, a4], a2, a5, n] + 
    S2[a6, a3, SP[a2, a4], a1, a5, n] - S2[a6, SP[a1, a3], a2, a4, a5, n] - 
    S2[a6, SP[a1, a3], a2, a5, a4, n] - S2[a6, SP[a1, a3], a4, a2, a5, n] - 
    S2[a6, SP[a1, a3], a4, a5, a2, n] - S2[a6, SP[a1, a3], a5, a2, a4, n] - 
    S2[a6, SP[a1, a3], a5, a4, a2, n] + S2[a6, SP[a2, a3], a1, a4, a5, n] + 
    S2[a6, SP[a2, a3], a1, a5, a4, n] + S2[a6, SP[a2, a3], a4, a1, a5, n] + 
    S2[SP[a1, a4], a3, a6, a2, a5, n] + S2[SP[a1, a4], a6, a2, a3, a5, n] + 
    S2[SP[a1, a4], a6, a2, a5, a3, n] + S2[SP[a1, a4], a6, a3, a2, a5, n] - 
    S2[SP[a1, a6], a2, a3, a4, a5, n] - S2[SP[a1, a6], a2, a3, a5, a4, n] - 
    S2[SP[a1, a6], a2, a5, a3, a4, n] - S2[SP[a1, a6], a3, a2, a4, a5, n] - 
    S2[SP[a1, a6], a3, a2, a5, a4, n] - S2[SP[a1, a6], a3, a4, a2, a5, n] + 
    S2[SP[a1, a6], a4, a3, a5, a2, n] + S2[SP[a1, a6], a4, a5, a2, a3, n] + 
    S2[SP[a1, a6], a4, a5, a3, a2, n] + S2[SP[a1, a6], a5, a2, a4, a3, n] + 
    S2[SP[a1, a6], a5, a4, a2, a3, n] + S2[SP[a1, a6], a5, a4, a3, a2, n] - 
    S2[SP[a2, a4], a3, a6, a1, a5, n] - S2[SP[a2, a4], a6, a1, a3, a5, n] - 
    S2[SP[a2, a4], a6, a1, a5, a3, n] - S2[SP[a2, a4], a6, a3, a1, a5, n] + 
    S2[SP[a2, a6], a1, a3, a4, a5, n] + S2[SP[a2, a6], a1, a3, a5, a4, n] + 
    S2[SP[a2, a6], a1, a5, a3, a4, n] + S2[SP[a2, a6], a3, a1, a4, a5, n] + 
    S2[SP[a2, a6], a3, a1, a5, a4, n] + S2[SP[a2, a6], a3, a4, a1, a5, n] - 
    S2[SP[a3, a4], a1, a6, a2, a5, n] + S2[SP[a3, a4], a2, a6, a1, a5, n] + 
    S2[SP[a3, a4], a6, a1, a5, a2, n] - S2[SP[a3, a6], a1, a4, a5, a2, n] - 
    S2[SP[a3, a6], a1, a5, a2, a4, n] - S2[SP[a3, a6], a1, a5, a4, a2, n] - 
    S2[SP[a3, a6], a4, a1, a5, a2, n] + S2[a6, a2, a3, a4, a5, a1, n] + 
    S2[a6, a2, a3, a5, a1, a4, n] + S2[a6, a2, a3, a5, a4, a1, n] + 
    S2[a6, a2, a5, a1, a3, a4, n] + S2[a6, a2, a5, a3, a1, a4, n] + 
    S2[a6, a2, a5, a3, a4, a1, n] + S2[a6, a3, a2, a4, a5, a1, n] + 
    S2[a6, a3, a2, a5, a1, a4, n] + S2[a6, a3, a2, a5, a4, a1, n] + 
    S2[a6, a3, a4, a2, a5, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a4_, a3_, a6_, a5_, a1_, a2_, n_] :> 
  -(S2[a3, a4, n]*S2[a1, a2, a5, a6, n]) + S2[a1, a2, SP[a3, a5], SP[a4, a6], 
     n] - S2[a3, a4, n]*S2[a1, a5, a2, a6, n] - 
    S2[a3, a4, n]*S2[a1, a5, a6, a2, n] + S2[a1, a5, SP[a2, a3], SP[a4, a6], 
     n] + S2[a1, a5, SP[a3, a6], SP[a2, a4], n] + S2[a1, SP[a2, a3], a5, 
     SP[a4, a6], n] + S2[a1, SP[a2, a3], SP[a4, a5], a6, n] + 
    S2[a1, SP[a3, a5], a2, SP[a4, a6], n] + S2[a1, SP[a3, a5], a6, 
     SP[a2, a4], n] + S2[a1, SP[a3, a5], SP[a2, a4], a6, n] + 
    S2[a1, SP[a3, a5], SP[a4, a6], a2, n] - S2[a1, a2, n]*
     S2[a3, a4, a6, a5, n] + S2[a3, a4, SP[a1, a6], SP[a2, a5], n] - 
    S2[a1, a2, n]*S2[a3, a6, a4, a5, n] - S2[a1, a2, n]*
     S2[a3, a6, a5, a4, n] + S2[a3, a6, SP[a1, a4], SP[a2, a5], n] + 
    S2[a3, a6, SP[a1, a5], SP[a2, a4], n] + S2[a3, SP[a1, a4], a6, 
     SP[a2, a5], n] + S2[a3, SP[a1, a4], SP[a2, a6], a5, n] + 
    S2[a3, SP[a1, a6], a4, SP[a2, a5], n] + S2[a3, SP[a1, a6], a5, 
     SP[a2, a4], n] + S2[a3, SP[a1, a6], SP[a2, a4], a5, n] + 
    S2[a3, SP[a1, a6], SP[a2, a5], a4, n] + S2[a1, a2, n]*
     S2[a5, a6, a3, a4, n] - S2[a5, a6, SP[a1, a3], SP[a2, a4], n] - 
    S2[a5, SP[a1, a6], a3, SP[a2, a4], n] - S2[a5, SP[a1, a6], SP[a2, a3], 
     a4, n] + S2[SP[a1, a3], a2, a5, SP[a4, a6], n] + 
    S2[SP[a1, a3], a2, SP[a4, a5], a6, n] + S2[SP[a1, a3], a4, a6, 
     SP[a2, a5], n] + S2[SP[a1, a3], a4, SP[a2, a6], a5, n] + 
    S2[SP[a1, a3], a5, a2, SP[a4, a6], n] + S2[SP[a1, a3], a5, a6, 
     SP[a2, a4], n] + S2[SP[a1, a3], a5, SP[a2, a4], a6, n] + 
    S2[SP[a1, a3], a5, SP[a4, a6], a2, n] + S2[SP[a1, a3], a6, a4, 
     SP[a2, a5], n] + S2[SP[a1, a3], a6, a5, SP[a2, a4], n] + 
    S2[SP[a1, a3], a6, SP[a2, a4], a5, n] + S2[SP[a1, a3], a6, SP[a2, a5], 
     a4, n] + S2[SP[a1, a3], SP[a2, a4], a5, a6, n] + 
    S2[SP[a1, a3], SP[a2, a4], a6, a5, n] + S2[SP[a1, a3], SP[a2, a6], a4, 
     a5, n] + S2[SP[a1, a3], SP[a2, a6], a5, a4, n] + 
    S2[SP[a1, a3], SP[a4, a5], a2, a6, n] + S2[SP[a1, a3], SP[a4, a5], a6, 
     a2, n] - S2[SP[a1, a5], a6, a3, SP[a2, a4], n] - 
    S2[SP[a1, a5], a6, SP[a2, a3], a4, n] - S2[SP[a1, a5], SP[a2, a6], a3, 
     a4, n] - S2[a1, a2, a3, a5, SP[a4, a6], n] - S2[a1, a2, a3, SP[a4, a5], 
     a6, n] - S2[a6, n]*S2[a1, a2, a4, a3, a5, n] - 
    S2[a1, a2, a4, a3, SP[a5, a6], n] - S2[a6, n]*S2[a1, a2, a4, a5, a3, n] + 
    S2[a3, n]*S2[a1, a2, a4, a5, a6, n] + 
    S2[a3, n]*S2[a1, a2, a4, a6, a5, n] + S2[a1, a2, a4, a6, SP[a3, a5], n] + 
    S2[a1, a2, a4, SP[a3, a5], a6, n] - S2[a1, a2, a4, SP[a5, a6], a3, n] - 
    S2[a1, a2, a5, a3, SP[a4, a6], n] - S2[a6, n]*S2[a1, a2, a5, a4, a3, n] + 
    S2[a3, n]*S2[a1, a2, a5, a4, a6, n] + 
    S2[a3, n]*S2[a1, a2, a5, a6, a4, n] + S2[a1, a2, a5, a6, SP[a3, a4], n] + 
    S2[a1, a2, a5, SP[a3, a4], a6, n] - S2[a1, a2, a5, SP[a4, a6], a3, n] - 
    S2[a5, n]*S2[a1, a2, a6, a3, a4, n] - S2[a1, a2, a6, a3, SP[a4, a5], n] + 
    S2[a3, n]*S2[a1, a2, a6, a4, a5, n] + S2[a1, a2, a6, a4, SP[a3, a5], n] + 
    S2[a3, n]*S2[a1, a2, a6, a5, a4, n] + S2[a1, a2, a6, a5, SP[a3, a4], n] + 
    S2[a1, a2, a6, SP[a3, a4], a5, n] + S2[a1, a2, SP[a3, a4], a5, a6, n] + 
    S2[a1, a2, SP[a3, a4], a6, a5, n] + S2[a1, a2, SP[a3, a6], a4, a5, n] + 
    S2[a1, a2, SP[a3, a6], a5, a4, n] - S2[a1, a2, SP[a4, a6], a3, a5, n] - 
    S2[a1, a2, SP[a4, a6], a5, a3, n] - S2[a1, a2, SP[a5, a6], a3, a4, n] - 
    S2[a1, a2, SP[a5, a6], a4, a3, n] - S2[a1, a3, a2, a5, SP[a4, a6], n] - 
    S2[a1, a3, a2, SP[a4, a5], a6, n] - S2[a1, a3, a4, a6, SP[a2, a5], n] - 
    S2[a1, a3, a4, SP[a2, a6], a5, n] - S2[a1, a3, a5, a2, SP[a4, a6], n] - 
    S2[a1, a3, a5, a6, SP[a2, a4], n] - S2[a1, a3, a5, SP[a2, a4], a6, n] - 
    S2[a1, a3, a5, SP[a4, a6], a2, n] - S2[a1, a3, a6, a4, SP[a2, a5], n] - 
    S2[a1, a3, a6, a5, SP[a2, a4], n] - S2[a1, a3, a6, SP[a2, a4], a5, n] - 
    S2[a1, a3, a6, SP[a2, a5], a4, n] - S2[a1, a3, SP[a2, a4], a5, a6, n] - 
    S2[a1, a3, SP[a2, a4], a6, a5, n] - S2[a1, a3, SP[a2, a6], a4, a5, n] - 
    S2[a1, a3, SP[a2, a6], a5, a4, n] - S2[a1, a3, SP[a4, a5], a2, a6, n] - 
    S2[a1, a3, SP[a4, a5], a6, a2, n] - S2[a6, n]*S2[a1, a4, a2, a3, a5, n] - 
    S2[a1, a4, a2, a3, SP[a5, a6], n] - S2[a6, n]*S2[a1, a4, a2, a5, a3, n] + 
    S2[a3, n]*S2[a1, a4, a2, a5, a6, n] + 
    S2[a3, n]*S2[a1, a4, a2, a6, a5, n] + S2[a1, a4, a2, a6, SP[a3, a5], n] + 
    S2[a1, a4, a2, SP[a3, a5], a6, n] - S2[a1, a4, a2, SP[a5, a6], a3, n] - 
    S2[a6, n]*S2[a1, a4, a3, a2, a5, n] - S2[a1, a4, a3, a2, SP[a5, a6], n] - 
    S2[a6, n]*S2[a1, a4, a3, a5, a2, n] - S2[a1, a4, a3, a5, SP[a2, a6], n] - 
    S2[a1, a4, a3, SP[a2, a6], a5, n] - S2[a1, a4, a3, SP[a5, a6], a2, n] - 
    S2[a6, n]*S2[a1, a4, a5, a2, a3, n] + 
    S2[a3, n]*S2[a1, a4, a5, a2, a6, n] - 
    S2[a6, n]*S2[a1, a4, a5, a3, a2, n] - S2[a1, a4, a5, a3, SP[a2, a6], n] + 
    S2[a3, n]*S2[a1, a4, a5, a6, a2, n] + S2[a1, a4, a5, a6, SP[a2, a3], n] + 
    S2[a1, a4, a5, SP[a2, a3], a6, n] - S2[a1, a4, a5, SP[a2, a6], a3, n] + 
    S2[a3, n]*S2[a1, a4, a6, a2, a5, n] + S2[a1, a4, a6, a2, SP[a3, a5], n] + 
    S2[a3, n]*S2[a1, a4, a6, a5, a2, n] + S2[a1, a4, a6, a5, SP[a2, a3], n] + 
    S2[a1, a4, a6, SP[a2, a3], a5, n] + S2[a1, a4, a6, SP[a3, a5], a2, n] + 
    S2[a1, a4, SP[a2, a3], a5, a6, n] + S2[a1, a4, SP[a2, a3], a6, a5, n] - 
    S2[a1, a4, SP[a2, a6], a3, a5, n] - S2[a1, a4, SP[a2, a6], a5, a3, n] + 
    S2[a1, a4, SP[a3, a5], a2, a6, n] + S2[a1, a4, SP[a3, a5], a6, a2, n] - 
    S2[a1, a4, SP[a5, a6], a2, a3, n] - S2[a1, a4, SP[a5, a6], a3, a2, n] - 
    S2[a1, a5, a2, a3, SP[a4, a6], n] - S2[a6, n]*S2[a1, a5, a2, a4, a3, n] + 
    S2[a3, n]*S2[a1, a5, a2, a4, a6, n] + 
    S2[a3, n]*S2[a1, a5, a2, a6, a4, n] + S2[a1, a5, a2, a6, SP[a3, a4], n] + 
    S2[a1, a5, a2, SP[a3, a4], a6, n] - S2[a1, a5, a2, SP[a4, a6], a3, n] - 
    S2[a1, a5, a3, a2, SP[a4, a6], n] - S2[a1, a5, a3, a6, SP[a2, a4], n] - 
    S2[a1, a5, a3, SP[a2, a4], a6, n] - S2[a1, a5, a3, SP[a4, a6], a2, n] - 
    S2[a6, n]*S2[a1, a5, a4, a2, a3, n] + 
    S2[a3, n]*S2[a1, a5, a4, a2, a6, n] - 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] - S2[a1, a5, a4, a3, SP[a2, a6], n] + 
    S2[a3, n]*S2[a1, a5, a4, a6, a2, n] + S2[a1, a5, a4, a6, SP[a2, a3], n] + 
    S2[a1, a5, a4, SP[a2, a3], a6, n] - S2[a1, a5, a4, SP[a2, a6], a3, n] + 
    S2[a3, n]*S2[a1, a5, a6, a2, a4, n] + S2[a1, a5, a6, a2, SP[a3, a4], n] + 
    S2[a3, n]*S2[a1, a5, a6, a4, a2, n] + S2[a1, a5, a6, a4, SP[a2, a3], n] + 
    S2[a1, a5, a6, SP[a2, a3], a4, n] + S2[a1, a5, a6, SP[a3, a4], a2, n] + 
    S2[a1, a5, SP[a2, a6], a3, a4, n] - S2[a1, a5, SP[a2, a6], a4, a3, n] + 
    S2[a1, a5, SP[a3, a4], a2, a6, n] + S2[a1, a5, SP[a3, a4], a6, a2, n] - 
    S2[a1, a5, SP[a4, a6], a2, a3, n] - S2[a1, a5, SP[a4, a6], a3, a2, n] - 
    S2[a5, n]*S2[a1, a6, a2, a3, a4, n] - S2[a1, a6, a2, a3, SP[a4, a5], n] + 
    S2[a3, n]*S2[a1, a6, a2, a4, a5, n] + S2[a1, a6, a2, a4, SP[a3, a5], n] + 
    S2[a3, n]*S2[a1, a6, a2, a5, a4, n] + S2[a1, a6, a2, a5, SP[a3, a4], n] + 
    S2[a1, a6, a2, SP[a3, a4], a5, n] - S2[a5, n]*S2[a1, a6, a3, a2, a4, n] - 
    S2[a1, a6, a3, a2, SP[a4, a5], n] - S2[a5, n]*S2[a1, a6, a3, a4, a2, n] - 
    S2[a1, a6, a3, a4, SP[a2, a5], n] - S2[a1, a6, a3, SP[a2, a5], a4, n] - 
    S2[a1, a6, a3, SP[a4, a5], a2, n] + S2[a3, n]*S2[a1, a6, a4, a2, a5, n] + 
    S2[a1, a6, a4, a2, SP[a3, a5], n] + S2[a3, n]*S2[a1, a6, a4, a5, a2, n] + 
    S2[a1, a6, a4, a5, SP[a2, a3], n] + S2[a1, a6, a4, SP[a2, a3], a5, n] + 
    S2[a1, a6, a4, SP[a3, a5], a2, n] + S2[a3, n]*S2[a1, a6, a5, a2, a4, n] + 
    S2[a1, a6, a5, a2, SP[a3, a4], n] + S2[a3, n]*S2[a1, a6, a5, a4, a2, n] + 
    S2[a1, a6, a5, a4, SP[a2, a3], n] + S2[a1, a6, a5, SP[a2, a3], a4, n] + 
    S2[a1, a6, a5, SP[a3, a4], a2, n] + S2[a1, a6, SP[a2, a3], a4, a5, n] + 
    S2[a1, a6, SP[a2, a3], a5, a4, n] - S2[a1, a6, SP[a2, a5], a3, a4, n] + 
    S2[a1, a6, SP[a3, a4], a2, a5, n] + S2[a1, a6, SP[a3, a4], a5, a2, n] - 
    S2[a1, SP[a2, a6], a4, a3, a5, n] - S2[a1, SP[a2, a6], a4, a5, a3, n] - 
    S2[a1, SP[a2, a6], a5, a4, a3, n] + S2[a1, SP[a3, a4], a2, a5, a6, n] + 
    S2[a1, SP[a3, a4], a2, a6, a5, n] + S2[a1, SP[a3, a4], a5, a2, a6, n] + 
    S2[a1, SP[a3, a4], a5, a6, a2, n] + S2[a1, SP[a3, a4], a6, a2, a5, n] + 
    S2[a1, SP[a3, a4], a6, a5, a2, n] + S2[a1, SP[a3, a6], a2, a4, a5, n] + 
    S2[a1, SP[a3, a6], a2, a5, a4, n] + S2[a1, SP[a3, a6], a4, a2, a5, n] + 
    S2[a1, SP[a3, a6], a4, a5, a2, n] + S2[a1, SP[a3, a6], a5, a2, a4, n] + 
    S2[a1, SP[a3, a6], a5, a4, a2, n] - S2[a1, SP[a4, a6], a2, a3, a5, n] - 
    S2[a1, SP[a4, a6], a2, a5, a3, n] - S2[a1, SP[a4, a6], a3, a2, a5, n] - 
    S2[a1, SP[a4, a6], a3, a5, a2, n] - S2[a1, SP[a4, a6], a5, a2, a3, n] - 
    S2[a1, SP[a4, a6], a5, a3, a2, n] - S2[a1, SP[a5, a6], a2, a3, a4, n] - 
    S2[a1, SP[a5, a6], a2, a4, a3, n] - S2[a1, SP[a5, a6], a3, a2, a4, n] - 
    S2[a1, SP[a5, a6], a3, a4, a2, n] - S2[a1, SP[a5, a6], a4, a2, a3, n] - 
    S2[a1, SP[a5, a6], a4, a3, a2, n] - S2[a3, a1, a2, a5, SP[a4, a6], n] - 
    S2[a3, a1, a2, SP[a4, a5], a6, n] - S2[a3, a1, a4, a6, SP[a2, a5], n] - 
    S2[a3, a1, a4, SP[a2, a6], a5, n] - S2[a3, a1, a5, a2, SP[a4, a6], n] - 
    S2[a3, a1, a5, a6, SP[a2, a4], n] - S2[a3, a1, a5, SP[a2, a4], a6, n] - 
    S2[a3, a1, a5, SP[a4, a6], a2, n] - S2[a3, a1, a6, a4, SP[a2, a5], n] - 
    S2[a3, a1, a6, a5, SP[a2, a4], n] - S2[a3, a1, a6, SP[a2, a4], a5, n] - 
    S2[a3, a1, a6, SP[a2, a5], a4, n] - S2[a3, a1, SP[a2, a4], a5, a6, n] - 
    S2[a3, a1, SP[a2, a4], a6, a5, n] - S2[a3, a1, SP[a2, a6], a4, a5, n] - 
    S2[a3, a1, SP[a2, a6], a5, a4, n] - S2[a3, a1, SP[a4, a5], a2, a6, n] - 
    S2[a3, a1, SP[a4, a5], a6, a2, n] + S2[a6, n]*S2[a3, a4, a1, a2, a5, n] + 
    S2[a3, a4, a1, a2, SP[a5, a6], n] + S2[a6, n]*S2[a3, a4, a1, a5, a2, n] + 
    S2[a3, a4, a1, a5, SP[a2, a6], n] - S2[a3, a4, a1, a6, SP[a2, a5], n] + 
    S2[a3, a4, a1, SP[a5, a6], a2, n] - S2[a3, a4, a6, a1, SP[a2, a5], n] - 
    S2[a3, a4, a6, SP[a1, a5], a2, n] + S2[a5, n]*S2[a3, a6, a1, a2, a4, n] + 
    S2[a3, a6, a1, a2, SP[a4, a5], n] + S2[a5, n]*S2[a3, a6, a1, a4, a2, n] - 
    S2[a3, a6, a1, a5, SP[a2, a4], n] - S2[a3, a6, a1, SP[a2, a4], a5, n] + 
    S2[a3, a6, a1, SP[a4, a5], a2, n] - S2[a3, a6, a4, a1, SP[a2, a5], n] - 
    S2[a3, a6, a4, SP[a1, a5], a2, n] + S2[a4, n]*S2[a3, a6, a5, a1, a2, n] - 
    S2[a3, a6, SP[a1, a4], a2, a5, n] - S2[a3, a6, SP[a1, a4], a5, a2, n] + 
    S2[a3, a6, SP[a4, a5], a1, a2, n] - S2[a3, SP[a1, a4], a2, a5, a6, n] - 
    S2[a3, SP[a1, a4], a2, a6, a5, n] - S2[a3, SP[a1, a4], a5, a2, a6, n] - 
    S2[a3, SP[a1, a4], a5, a6, a2, n] - S2[a3, SP[a1, a4], a6, a2, a5, n] - 
    S2[a3, SP[a1, a4], a6, a5, a2, n] - S2[a3, SP[a1, a6], a2, a4, a5, n] - 
    S2[a3, SP[a1, a6], a2, a5, a4, n] - S2[a3, SP[a1, a6], a4, a2, a5, n] - 
    S2[a3, SP[a1, a6], a4, a5, a2, n] - S2[a3, SP[a1, a6], a5, a2, a4, n] - 
    S2[a3, SP[a1, a6], a5, a4, a2, n] + S2[a3, SP[a4, a6], a1, a2, a5, n] + 
    S2[a3, SP[a4, a6], a1, a5, a2, n] + S2[a3, SP[a4, a6], a5, a1, a2, n] + 
    S2[a3, SP[a5, a6], a1, a2, a4, n] + S2[a3, SP[a5, a6], a1, a4, a2, n] + 
    S2[a5, a1, a6, a3, SP[a2, a4], n] + S2[a5, a1, a6, SP[a2, a3], a4, n] + 
    S2[a5, a1, SP[a2, a6], a3, a4, n] - S2[a3, n]*S2[a5, a6, a1, a2, a4, n] - 
    S2[a5, a6, a1, a2, SP[a3, a4], n] + S2[a5, a6, a1, a3, SP[a2, a4], n] - 
    S2[a3, n]*S2[a5, a6, a1, a4, a2, n] - S2[a5, a6, a1, a4, SP[a2, a3], n] - 
    S2[a5, a6, a1, SP[a3, a4], a2, n] + S2[a5, a6, a3, a1, SP[a2, a4], n] + 
    S2[a5, a6, a3, SP[a1, a4], a2, n] + S2[a5, SP[a1, a6], a2, a3, a4, n] + 
    S2[a5, SP[a1, a6], a3, a2, a4, n] + S2[a5, SP[a1, a6], a3, a4, a2, n] - 
    S2[a5, SP[a3, a6], a1, a2, a4, n] - S2[a5, SP[a3, a6], a1, a4, a2, n] + 
    S2[a5, n]*S2[a6, a1, a2, a4, a3, n] + S2[a6, a1, a2, a4, SP[a3, a5], n] + 
    S2[a6, a1, a2, SP[a4, a5], a3, n] + S2[a5, n]*S2[a6, a1, a4, a2, a3, n] + 
    S2[a6, a1, a4, a2, SP[a3, a5], n] + S2[a5, n]*S2[a6, a1, a4, a3, a2, n] + 
    S2[a6, a1, a4, a3, SP[a2, a5], n] + S2[a6, a1, a4, SP[a2, a5], a3, n] + 
    S2[a6, a1, a4, SP[a3, a5], a2, n] + S2[a6, a1, SP[a2, a5], a4, a3, n] + 
    S2[a6, a1, SP[a4, a5], a2, a3, n] + S2[a6, a1, SP[a4, a5], a3, a2, n] - 
    S2[a5, n]*S2[a6, a3, a4, a1, a2, n] - S2[a6, a3, a4, a1, SP[a2, a5], n] - 
    S2[a6, a3, a4, SP[a1, a5], a2, n] - S2[a6, a3, SP[a4, a5], a1, a2, n] - 
    S2[a3, n]*S2[a6, a5, a1, a2, a4, n] - S2[a6, a5, a1, a2, SP[a3, a4], n] - 
    S2[a3, n]*S2[a6, a5, a1, a4, a2, n] - S2[a6, a5, a1, a4, SP[a2, a3], n] - 
    S2[a6, a5, a1, SP[a2, a3], a4, n] - S2[a6, a5, a1, SP[a3, a4], a2, n] - 
    S2[a6, a5, SP[a1, a3], a2, a4, n] - S2[a6, a5, SP[a1, a3], a4, a2, n] + 
    S2[a6, SP[a1, a5], a2, a4, a3, n] + S2[a6, SP[a1, a5], a4, a2, a3, n] + 
    S2[a6, SP[a1, a5], a4, a3, a2, n] - S2[a6, SP[a3, a5], a1, a2, a4, n] - 
    S2[a6, SP[a3, a5], a1, a4, a2, n] - S2[a6, SP[a3, a5], a4, a1, a2, n] - 
    S2[SP[a1, a6], a2, a4, a3, a5, n] - S2[SP[a1, a6], a2, a4, a5, a3, n] - 
    S2[SP[a1, a6], a2, a5, a4, a3, n] - S2[SP[a1, a6], a4, a2, a3, a5, n] - 
    S2[SP[a1, a6], a4, a2, a5, a3, n] - S2[SP[a1, a6], a4, a3, a2, a5, n] - 
    S2[SP[a1, a6], a4, a3, a5, a2, n] - S2[SP[a1, a6], a4, a5, a2, a3, n] - 
    S2[SP[a1, a6], a4, a5, a3, a2, n] - S2[SP[a1, a6], a5, a2, a4, a3, n] - 
    S2[SP[a1, a6], a5, a4, a2, a3, n] - S2[SP[a1, a6], a5, a4, a3, a2, n] + 
    S2[SP[a3, a4], a6, a5, a1, a2, n] + S2[SP[a3, a6], a4, a1, a2, a5, n] + 
    S2[SP[a3, a6], a4, a1, a5, a2, n] - S2[SP[a3, a6], a5, a1, a2, a4, n] - 
    S2[SP[a3, a6], a5, a1, a4, a2, n] + S2[SP[a5, a6], a1, a2, a4, a3, n] + 
    S2[SP[a5, a6], a1, a4, a2, a3, n] + S2[SP[a5, a6], a1, a4, a3, a2, n] - 
    S2[SP[a5, a6], a3, a4, a1, a2, n] + S2[a6, a3, a4, a5, a1, a2, n] + 
    S2[a6, a3, a5, a1, a2, a4, n] + S2[a6, a3, a5, a1, a4, a2, n] + 
    S2[a6, a3, a5, a4, a1, a2, n] + S2[a6, a5, a1, a2, a3, a4, n] + 
    S2[a6, a5, a1, a3, a2, a4, n] + S2[a6, a5, a1, a3, a4, a2, n] + 
    S2[a6, a5, a3, a1, a2, a4, n] + S2[a6, a5, a3, a1, a4, a2, n] + 
    S2[a6, a5, a3, a4, a1, a2, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a4_, a3_, a6_, a5_, a2_, a1_, n_] :> 
  S2[a3, a4, n]*S2[a1, a2, a5, a6, n] - S2[a1, a2, SP[a3, a5], SP[a4, a6], 
     n] - S2[a1, SP[a2, a3], a5, SP[a4, a6], n] - 
    S2[a1, SP[a2, a3], SP[a4, a5], a6, n] + S2[a1, a2, n]*
     S2[a3, a4, a6, a5, n] - S2[a3, a4, SP[a1, a6], SP[a2, a5], n] + 
    S2[a1, a2, n]*S2[a3, a6, a4, a5, n] + S2[a1, a2, n]*
     S2[a3, a6, a5, a4, n] - S2[a3, a6, SP[a1, a4], SP[a2, a5], n] - 
    S2[a3, a6, SP[a1, a5], SP[a2, a4], n] - S2[a3, SP[a1, a4], a6, 
     SP[a2, a5], n] - S2[a3, SP[a1, a4], SP[a2, a6], a5, n] - 
    S2[a3, SP[a1, a6], a4, SP[a2, a5], n] - S2[a3, SP[a1, a6], a5, 
     SP[a2, a4], n] - S2[a3, SP[a1, a6], SP[a2, a4], a5, n] - 
    S2[a3, SP[a1, a6], SP[a2, a5], a4, n] - S2[a1, a2, n]*
     S2[a5, a6, a3, a4, n] + S2[a5, a6, SP[a1, a3], SP[a2, a4], n] + 
    S2[a5, SP[a1, a6], a3, SP[a2, a4], n] + S2[a5, SP[a1, a6], SP[a2, a3], 
     a4, n] - S2[SP[a1, a3], a2, a5, SP[a4, a6], n] - 
    S2[SP[a1, a3], a2, SP[a4, a5], a6, n] - S2[SP[a1, a3], a4, a6, 
     SP[a2, a5], n] - S2[SP[a1, a3], a4, SP[a2, a6], a5, n] - 
    S2[SP[a1, a3], a6, a4, SP[a2, a5], n] - S2[SP[a1, a3], a6, a5, 
     SP[a2, a4], n] - S2[SP[a1, a3], a6, SP[a2, a4], a5, n] - 
    S2[SP[a1, a3], a6, SP[a2, a5], a4, n] - S2[SP[a1, a3], SP[a2, a4], a5, 
     a6, n] - S2[SP[a1, a3], SP[a2, a4], a6, a5, n] - 
    S2[SP[a1, a3], SP[a2, a6], a4, a5, n] - S2[SP[a1, a3], SP[a2, a6], a5, 
     a4, n] + S2[SP[a1, a5], a6, a3, SP[a2, a4], n] + 
    S2[SP[a1, a5], a6, SP[a2, a3], a4, n] + S2[SP[a1, a5], SP[a2, a6], a3, 
     a4, n] + S2[a1, a2, a3, a5, SP[a4, a6], n] + S2[a1, a2, a3, SP[a4, a5], 
     a6, n] + S2[a6, n]*S2[a1, a2, a4, a3, a5, n] + 
    S2[a1, a2, a4, a3, SP[a5, a6], n] + S2[a6, n]*S2[a1, a2, a4, a5, a3, n] - 
    S2[a3, n]*S2[a1, a2, a4, a5, a6, n] - 
    S2[a3, n]*S2[a1, a2, a4, a6, a5, n] - S2[a1, a2, a4, a6, SP[a3, a5], n] - 
    S2[a1, a2, a4, SP[a3, a5], a6, n] + S2[a1, a2, a4, SP[a5, a6], a3, n] + 
    S2[a1, a2, a5, a3, SP[a4, a6], n] + S2[a6, n]*S2[a1, a2, a5, a4, a3, n] - 
    S2[a3, n]*S2[a1, a2, a5, a4, a6, n] - 
    S2[a3, n]*S2[a1, a2, a5, a6, a4, n] - S2[a1, a2, a5, a6, SP[a3, a4], n] - 
    S2[a1, a2, a5, SP[a3, a4], a6, n] + S2[a1, a2, a5, SP[a4, a6], a3, n] + 
    S2[a5, n]*S2[a1, a2, a6, a3, a4, n] + S2[a1, a2, a6, a3, SP[a4, a5], n] - 
    S2[a3, n]*S2[a1, a2, a6, a4, a5, n] - S2[a1, a2, a6, a4, SP[a3, a5], n] - 
    S2[a3, n]*S2[a1, a2, a6, a5, a4, n] - S2[a1, a2, a6, a5, SP[a3, a4], n] - 
    S2[a1, a2, a6, SP[a3, a4], a5, n] - S2[a1, a2, SP[a3, a4], a5, a6, n] - 
    S2[a1, a2, SP[a3, a4], a6, a5, n] - S2[a1, a2, SP[a3, a6], a4, a5, n] - 
    S2[a1, a2, SP[a3, a6], a5, a4, n] + S2[a1, a2, SP[a4, a6], a3, a5, n] + 
    S2[a1, a2, SP[a4, a6], a5, a3, n] + S2[a1, a2, SP[a5, a6], a3, a4, n] + 
    S2[a1, a2, SP[a5, a6], a4, a3, n] + S2[a1, a3, a2, a5, SP[a4, a6], n] + 
    S2[a1, a3, a2, SP[a4, a5], a6, n] + S2[a1, a3, a4, a6, SP[a2, a5], n] + 
    S2[a1, a3, a4, SP[a2, a6], a5, n] + S2[a1, a3, a6, a4, SP[a2, a5], n] + 
    S2[a1, a3, a6, a5, SP[a2, a4], n] + S2[a1, a3, a6, SP[a2, a4], a5, n] + 
    S2[a1, a3, a6, SP[a2, a5], a4, n] + S2[a1, a3, SP[a2, a4], a5, a6, n] + 
    S2[a1, a3, SP[a2, a4], a6, a5, n] + S2[a1, a3, SP[a2, a6], a4, a5, n] + 
    S2[a1, a3, SP[a2, a6], a5, a4, n] + S2[a6, n]*S2[a1, a4, a2, a3, a5, n] + 
    S2[a1, a4, a2, a3, SP[a5, a6], n] + S2[a6, n]*S2[a1, a4, a2, a5, a3, n] - 
    S2[a3, n]*S2[a1, a4, a2, a5, a6, n] - 
    S2[a3, n]*S2[a1, a4, a2, a6, a5, n] - S2[a1, a4, a2, a6, SP[a3, a5], n] - 
    S2[a1, a4, a2, SP[a3, a5], a6, n] + S2[a1, a4, a2, SP[a5, a6], a3, n] + 
    S2[a6, n]*S2[a1, a4, a3, a2, a5, n] + S2[a1, a4, a3, a2, SP[a5, a6], n] + 
    S2[a1, a4, a3, SP[a2, a6], a5, n] - S2[a3, n]*S2[a1, a4, a6, a2, a5, n] - 
    S2[a1, a4, a6, a2, SP[a3, a5], n] - S2[a3, n]*S2[a1, a4, a6, a5, a2, n] - 
    S2[a1, a4, a6, a5, SP[a2, a3], n] - S2[a1, a4, a6, SP[a2, a3], a5, n] - 
    S2[a1, a4, a6, SP[a3, a5], a2, n] - S2[a1, a4, SP[a2, a3], a5, a6, n] - 
    S2[a1, a4, SP[a2, a3], a6, a5, n] + S2[a1, a4, SP[a2, a6], a3, a5, n] + 
    S2[a1, a4, SP[a2, a6], a5, a3, n] - S2[a1, a4, SP[a3, a6], a5, a2, n] - 
    S2[a1, a5, a6, a3, SP[a2, a4], n] - S2[a1, a5, a6, SP[a2, a3], a4, n] - 
    S2[a1, a5, SP[a2, a6], a3, a4, n] + S2[a5, n]*S2[a1, a6, a2, a3, a4, n] + 
    S2[a1, a6, a2, a3, SP[a4, a5], n] - S2[a3, n]*S2[a1, a6, a2, a4, a5, n] - 
    S2[a1, a6, a2, a4, SP[a3, a5], n] - S2[a3, n]*S2[a1, a6, a2, a5, a4, n] - 
    S2[a1, a6, a2, a5, SP[a3, a4], n] - S2[a1, a6, a2, SP[a3, a4], a5, n] + 
    S2[a5, n]*S2[a1, a6, a3, a2, a4, n] + S2[a1, a6, a3, a2, SP[a4, a5], n] + 
    S2[a5, n]*S2[a1, a6, a3, a4, a2, n] + S2[a1, a6, a3, a4, SP[a2, a5], n] + 
    S2[a4, n]*S2[a1, a6, a3, a5, a2, n] + S2[a1, a6, a3, a5, SP[a2, a4], n] + 
    S2[a1, a6, a3, SP[a2, a5], a4, n] + 2*S2[a1, a6, a3, SP[a4, a5], a2, n] - 
    S2[a3, n]*S2[a1, a6, a4, a2, a5, n] - S2[a1, a6, a4, a2, SP[a3, a5], n] - 
    S2[a3, n]*S2[a1, a6, a4, a5, a2, n] - S2[a1, a6, a4, a5, SP[a2, a3], n] - 
    S2[a1, a6, a4, SP[a2, a3], a5, n] - S2[a1, a6, a4, SP[a3, a5], a2, n] + 
    S2[a4, n]*S2[a1, a6, a5, a2, a3, n] - 
    S2[a3, n]*S2[a1, a6, a5, a2, a4, n] + 
    S2[a4, n]*S2[a1, a6, a5, a3, a2, n] + S2[a1, a6, a5, a3, SP[a2, a4], n] - 
    S2[a3, n]*S2[a1, a6, a5, a4, a2, n] - S2[a1, a6, a5, a4, SP[a2, a3], n] - 
    S2[a1, a6, a5, SP[a2, a3], a4, n] + S2[a1, a6, a5, SP[a2, a4], a3, n] - 
    S2[a1, a6, SP[a2, a3], a4, a5, n] - S2[a1, a6, SP[a2, a3], a5, a4, n] + 
    S2[a1, a6, SP[a2, a5], a3, a4, n] - S2[a1, a6, SP[a3, a4], a2, a5, n] + 
    S2[a1, a6, SP[a4, a5], a2, a3, n] + S2[a1, a6, SP[a4, a5], a3, a2, n] + 
    S2[a1, SP[a2, a6], a4, a3, a5, n] + S2[a1, SP[a2, a6], a4, a5, a3, n] + 
    S2[a1, SP[a2, a6], a5, a4, a3, n] - S2[a1, SP[a3, a4], a2, a5, a6, n] - 
    S2[a1, SP[a3, a4], a2, a6, a5, n] - S2[a1, SP[a3, a4], a6, a2, a5, n] - 
    S2[a1, SP[a3, a4], a6, a5, a2, n] - S2[a1, SP[a3, a6], a2, a4, a5, n] - 
    S2[a1, SP[a3, a6], a2, a5, a4, n] - S2[a1, SP[a3, a6], a4, a2, a5, n] - 
    S2[a1, SP[a3, a6], a4, a5, a2, n] - S2[a1, SP[a3, a6], a5, a2, a4, n] - 
    S2[a1, SP[a3, a6], a5, a4, a2, n] + S2[a1, SP[a4, a6], a2, a3, a5, n] + 
    S2[a1, SP[a4, a6], a2, a5, a3, n] + S2[a1, SP[a4, a6], a3, a2, a5, n] + 
    S2[a1, SP[a4, a6], a3, a5, a2, n] + S2[a1, SP[a4, a6], a5, a2, a3, n] + 
    S2[a1, SP[a4, a6], a5, a3, a2, n] + S2[a1, SP[a5, a6], a2, a3, a4, n] + 
    S2[a1, SP[a5, a6], a3, a2, a4, n] + S2[a1, SP[a5, a6], a3, a4, a2, n] + 
    S2[a3, a1, a2, a5, SP[a4, a6], n] + S2[a3, a1, a2, SP[a4, a5], a6, n] + 
    S2[a3, a1, a4, a6, SP[a2, a5], n] + S2[a3, a1, a4, SP[a2, a6], a5, n] + 
    S2[a3, a1, a6, a4, SP[a2, a5], n] + S2[a3, a1, a6, a5, SP[a2, a4], n] + 
    S2[a3, a1, a6, SP[a2, a4], a5, n] + S2[a3, a1, a6, SP[a2, a5], a4, n] + 
    S2[a3, a1, SP[a2, a4], a5, a6, n] + S2[a3, a1, SP[a2, a4], a6, a5, n] + 
    S2[a3, a1, SP[a2, a6], a4, a5, n] + S2[a3, a1, SP[a2, a6], a5, a4, n] - 
    S2[a6, n]*S2[a3, a4, a1, a2, a5, n] - S2[a3, a4, a1, a2, SP[a5, a6], n] + 
    S2[a3, a4, a1, a6, SP[a2, a5], n] + S2[a3, a4, a6, a1, SP[a2, a5], n] + 
    S2[a3, a4, a6, SP[a1, a5], a2, n] + S2[a3, a4, SP[a1, a6], a5, a2, n] - 
    S2[a5, n]*S2[a3, a6, a1, a2, a4, n] - S2[a3, a6, a1, a2, SP[a4, a5], n] - 
    S2[a5, n]*S2[a3, a6, a1, a4, a2, n] - 
    S2[a4, n]*S2[a3, a6, a1, a5, a2, n] + S2[a3, a6, a1, SP[a2, a4], a5, n] - 
    2*S2[a3, a6, a1, SP[a4, a5], a2, n] + S2[a3, a6, a4, a1, SP[a2, a5], n] + 
    S2[a3, a6, a4, SP[a1, a5], a2, n] - S2[a4, n]*S2[a3, a6, a5, a1, a2, n] + 
    S2[a3, a6, SP[a1, a4], a2, a5, n] - S2[a3, a6, SP[a4, a5], a1, a2, n] + 
    S2[a3, SP[a1, a4], a2, a5, a6, n] + S2[a3, SP[a1, a4], a2, a6, a5, n] + 
    S2[a3, SP[a1, a4], a6, a2, a5, n] + S2[a3, SP[a1, a4], a6, a5, a2, n] + 
    S2[a3, SP[a1, a6], a2, a4, a5, n] + S2[a3, SP[a1, a6], a2, a5, a4, n] + 
    S2[a3, SP[a1, a6], a4, a2, a5, n] + S2[a3, SP[a1, a6], a4, a5, a2, n] + 
    S2[a3, SP[a1, a6], a5, a2, a4, n] + S2[a3, SP[a1, a6], a5, a4, a2, n] - 
    S2[a3, SP[a4, a6], a1, a2, a5, n] - S2[a3, SP[a4, a6], a1, a5, a2, n] - 
    S2[a3, SP[a4, a6], a5, a1, a2, n] - S2[a3, SP[a5, a6], a1, a2, a4, n] - 
    S2[a3, SP[a5, a6], a1, a4, a2, n] - S2[a3, n]*S2[a4, a1, a6, a5, a2, n] - 
    S2[a4, a1, a6, a5, SP[a2, a3], n] - S2[a4, a1, a6, SP[a3, a5], a2, n] - 
    S2[a4, a1, SP[a3, a6], a5, a2, n] + S2[a1, n]*S2[a4, a3, a6, a5, a2, n] + 
    S2[a4, a3, a6, a5, SP[a1, a2], n] + S2[a4, a3, a6, SP[a1, a5], a2, n] + 
    S2[a4, a3, SP[a1, a6], a5, a2, n] - S2[a5, a1, a6, a3, SP[a2, a4], n] - 
    S2[a5, a1, a6, SP[a2, a3], a4, n] - S2[a5, a1, SP[a2, a6], a3, a4, n] + 
    S2[a3, n]*S2[a5, a6, a1, a2, a4, n] + S2[a5, a6, a1, a2, SP[a3, a4], n] - 
    S2[a5, a6, a1, a3, SP[a2, a4], n] + S2[a3, n]*S2[a5, a6, a1, a4, a2, n] + 
    S2[a5, a6, a1, a4, SP[a2, a3], n] + S2[a5, a6, a1, SP[a3, a4], a2, n] - 
    S2[a5, a6, a3, a1, SP[a2, a4], n] - S2[a5, a6, a3, SP[a1, a4], a2, n] - 
    S2[a5, SP[a1, a6], a2, a3, a4, n] - S2[a5, SP[a1, a6], a3, a2, a4, n] - 
    S2[a5, SP[a1, a6], a3, a4, a2, n] + S2[a5, SP[a3, a6], a1, a2, a4, n] + 
    S2[a5, SP[a3, a6], a1, a4, a2, n] - S2[a5, n]*S2[a6, a1, a2, a4, a3, n] - 
    S2[a6, a1, a2, a4, SP[a3, a5], n] - S2[a6, a1, a2, SP[a4, a5], a3, n] - 
    S2[a5, n]*S2[a6, a1, a4, a2, a3, n] - S2[a6, a1, a4, a2, SP[a3, a5], n] - 
    S2[a5, n]*S2[a6, a1, a4, a3, a2, n] - S2[a6, a1, a4, a3, SP[a2, a5], n] + 
    S2[a3, n]*S2[a6, a1, a4, a5, a2, n] + S2[a6, a1, a4, a5, SP[a2, a3], n] - 
    S2[a6, a1, a4, SP[a2, a5], a3, n] + S2[a3, n]*S2[a6, a1, a5, a2, a4, n] + 
    S2[a6, a1, a5, a2, SP[a3, a4], n] + S2[a3, n]*S2[a6, a1, a5, a4, a2, n] + 
    S2[a6, a1, a5, a4, SP[a2, a3], n] + S2[a6, a1, a5, SP[a2, a3], a4, n] + 
    S2[a6, a1, a5, SP[a3, a4], a2, n] - S2[a6, a1, SP[a2, a5], a4, a3, n] + 
    S2[a6, a1, SP[a3, a4], a5, a2, n] + S2[a6, a1, SP[a3, a5], a2, a4, n] + 
    S2[a6, a1, SP[a3, a5], a4, a2, n] - S2[a6, a1, SP[a4, a5], a2, a3, n] - 
    S2[a6, a1, SP[a4, a5], a3, a2, n] + S2[a5, n]*S2[a6, a3, a4, a1, a2, n] + 
    S2[a6, a3, a4, a1, SP[a2, a5], n] - S2[a1, n]*S2[a6, a3, a4, a5, a2, n] - 
    S2[a6, a3, a4, a5, SP[a1, a2], n] - S2[a1, n]*S2[a6, a3, a5, a2, a4, n] - 
    S2[a6, a3, a5, a2, SP[a1, a4], n] - S2[a1, n]*S2[a6, a3, a5, a4, a2, n] - 
    S2[a6, a3, a5, a4, SP[a1, a2], n] - S2[a6, a3, a5, SP[a1, a2], a4, n] - 
    S2[a6, a3, a5, SP[a1, a4], a2, n] - S2[a6, a3, SP[a1, a4], a5, a2, n] - 
    S2[a6, a3, SP[a1, a5], a2, a4, n] - S2[a6, a3, SP[a1, a5], a4, a2, n] + 
    S2[a6, a3, SP[a4, a5], a1, a2, n] + S2[a3, n]*S2[a6, a5, a1, a2, a4, n] + 
    S2[a6, a5, a1, a2, SP[a3, a4], n] + S2[a3, n]*S2[a6, a5, a1, a4, a2, n] + 
    S2[a6, a5, a1, a4, SP[a2, a3], n] + S2[a6, a5, a1, SP[a2, a3], a4, n] + 
    S2[a6, a5, a1, SP[a3, a4], a2, n] - S2[a1, n]*S2[a6, a5, a2, a3, a4, n] - 
    S2[a6, a5, a2, a3, SP[a1, a4], n] - S2[a6, a5, a2, SP[a1, a3], a4, n] - 
    S2[a1, n]*S2[a6, a5, a3, a2, a4, n] - S2[a6, a5, a3, a2, SP[a1, a4], n] - 
    S2[a1, n]*S2[a6, a5, a3, a4, a2, n] - S2[a6, a5, a3, a4, SP[a1, a2], n] - 
    S2[a6, a5, a3, SP[a1, a2], a4, n] - S2[a6, a5, a3, SP[a1, a4], a2, n] - 
    S2[a6, a5, SP[a1, a2], a3, a4, n] - S2[a6, SP[a1, a5], a2, a3, a4, n] - 
    S2[a6, SP[a1, a5], a2, a4, a3, n] - S2[a6, SP[a1, a5], a3, a2, a4, n] - 
    S2[a6, SP[a1, a5], a3, a4, a2, n] - S2[a6, SP[a1, a5], a4, a2, a3, n] - 
    S2[a6, SP[a1, a5], a4, a3, a2, n] + S2[a6, SP[a3, a5], a1, a2, a4, n] + 
    S2[a6, SP[a3, a5], a1, a4, a2, n] + S2[a6, SP[a3, a5], a4, a1, a2, n] + 
    S2[SP[a1, a4], a3, a6, a5, a2, n] + S2[SP[a1, a4], a6, a3, a5, a2, n] + 
    S2[SP[a1, a4], a6, a5, a2, a3, n] + S2[SP[a1, a4], a6, a5, a3, a2, n] + 
    S2[SP[a1, a6], a2, a4, a3, a5, n] + S2[SP[a1, a6], a2, a4, a5, a3, n] + 
    S2[SP[a1, a6], a2, a5, a4, a3, n] - S2[SP[a1, a6], a3, a4, a5, a2, n] - 
    S2[SP[a1, a6], a3, a5, a2, a4, n] - S2[SP[a1, a6], a3, a5, a4, a2, n] + 
    S2[SP[a1, a6], a4, a2, a3, a5, n] + S2[SP[a1, a6], a4, a2, a5, a3, n] + 
    S2[SP[a1, a6], a4, a3, a2, a5, n] - S2[SP[a1, a6], a5, a2, a3, a4, n] - 
    S2[SP[a1, a6], a5, a3, a2, a4, n] - S2[SP[a1, a6], a5, a3, a4, a2, n] - 
    S2[SP[a3, a4], a1, a6, a5, a2, n] - S2[SP[a3, a4], a6, a1, a5, a2, n] - 
    S2[SP[a3, a4], a6, a5, a1, a2, n] + S2[SP[a3, a6], a1, a4, a5, a2, n] + 
    S2[SP[a3, a6], a1, a5, a2, a4, n] + S2[SP[a3, a6], a1, a5, a4, a2, n] - 
    S2[SP[a3, a6], a4, a1, a2, a5, n] + S2[SP[a3, a6], a5, a1, a2, a4, n] + 
    S2[SP[a3, a6], a5, a1, a4, a2, n] - S2[SP[a5, a6], a1, a2, a4, a3, n] - 
    S2[SP[a5, a6], a1, a4, a2, a3, n] - S2[SP[a5, a6], a1, a4, a3, a2, n] + 
    S2[SP[a5, a6], a3, a4, a1, a2, n] + S2[a6, a3, a4, a5, a2, a1, n] + 
    S2[a6, a3, a5, a2, a1, a4, n] + S2[a6, a3, a5, a2, a4, a1, n] + 
    S2[a6, a3, a5, a4, a2, a1, n] + S2[a6, a5, a2, a1, a3, a4, n] + 
    S2[a6, a5, a2, a3, a1, a4, n] + S2[a6, a5, a2, a3, a4, a1, n] + 
    S2[a6, a5, a3, a2, a1, a4, n] + S2[a6, a5, a3, a2, a4, a1, n] + 
    S2[a6, a5, a3, a4, a2, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a4_, a5_, a1_, a2_, a3_, a6_, n_] :> 
  S2[a1, a5, a4, n]*S2[a2, a3, a6, n] + S2[SP[a1, a2], SP[a3, a5], 
     SP[a4, a6], n] + S2[a4, a5, n]*S2[a1, a2, a3, a6, n] + 
    S2[a3, a6, n]*S2[a1, a2, a5, a4, n] - S2[a1, a2, SP[a3, a4], SP[a5, a6], 
     n] - 2*S2[a1, a2, SP[a3, a5], SP[a4, a6], n] + 
    S2[a3, a6, n]*S2[a1, a5, a2, a4, n] + S2[a3, a6, n]*
     S2[a1, a5, a4, a2, n] - S2[a1, a5, SP[a2, a3], SP[a4, a6], n] - 
    S2[a1, a5, SP[a3, a4], SP[a2, a6], n] - S2[a1, SP[a2, a3], a5, 
     SP[a4, a6], n] - S2[a1, SP[a2, a3], SP[a5, a6], a4, n] - 
    S2[a1, SP[a2, a4], a3, SP[a5, a6], n] - S2[a1, SP[a2, a4], SP[a3, a5], 
     a6, n] - S2[a1, SP[a2, a5], a3, SP[a4, a6], n] - 
    S2[a1, SP[a2, a5], SP[a3, a4], a6, n] - S2[a1, SP[a3, a5], a2, 
     SP[a4, a6], n] - S2[a1, SP[a3, a5], a4, SP[a2, a6], n] - 
    S2[a1, SP[a3, a5], SP[a2, a6], a4, n] - S2[a1, SP[a3, a5], SP[a4, a6], 
     a2, n] - S2[a2, a1, SP[a3, a5], SP[a4, a6], n] - 
    S2[a2, SP[a1, a3], a5, SP[a4, a6], n] - S2[a2, SP[a1, a3], SP[a5, a6], 
     a4, n] - S2[SP[a1, a2], a3, a5, SP[a4, a6], n] - 
    S2[SP[a1, a2], a3, SP[a5, a6], a4, n] - S2[SP[a1, a2], a5, a3, 
     SP[a4, a6], n] - S2[SP[a1, a2], a5, SP[a3, a4], a6, n] - 
    S2[SP[a1, a2], SP[a3, a5], a4, a6, n] - S2[SP[a1, a2], SP[a3, a5], a6, 
     a4, n] - S2[SP[a1, a3], a2, a5, SP[a4, a6], n] - 
    S2[SP[a1, a3], a2, SP[a5, a6], a4, n] - S2[SP[a1, a3], a5, a2, 
     SP[a4, a6], n] - S2[SP[a1, a3], a5, a4, SP[a2, a6], n] - 
    S2[SP[a1, a3], a5, SP[a2, a6], a4, n] - S2[SP[a1, a3], a5, SP[a4, a6], 
     a2, n] - S2[SP[a1, a3], SP[a2, a6], a5, a4, n] - 
    S2[SP[a1, a3], SP[a5, a6], a2, a4, n] - S2[SP[a1, a3], SP[a5, a6], a4, 
     a2, n] - S2[SP[a1, a4], a2, a3, SP[a5, a6], n] - 
    S2[SP[a1, a4], a2, SP[a3, a5], a6, n] - S2[SP[a1, a4], SP[a2, a5], a3, 
     a6, n] + S2[a1, a2, a3, a4, SP[a5, a6], n] + 
    S2[a6, n]*S2[a1, a2, a3, a5, a4, n] - 
    S2[a4, n]*S2[a1, a2, a3, a5, a6, n] + 
    2*S2[a1, a2, a3, a5, SP[a4, a6], n] - 
    S2[a4, n]*S2[a1, a2, a3, a6, a5, n] - S2[a1, a2, a3, a6, SP[a4, a5], n] - 
    S2[a1, a2, a3, SP[a4, a5], a6, n] + 3*S2[a1, a2, a3, SP[a5, a6], a4, n] + 
    S2[a1, a2, a4, a3, SP[a5, a6], n] + S2[a1, a2, a4, SP[a3, a5], a6, n] + 
    S2[a6, n]*S2[a1, a2, a5, a3, a4, n] - 
    S2[a4, n]*S2[a1, a2, a5, a3, a6, n] + 
    2*S2[a1, a2, a5, a3, SP[a4, a6], n] + 
    S2[a6, n]*S2[a1, a2, a5, a4, a3, n] - 
    S2[a3, n]*S2[a1, a2, a5, a4, a6, n] - 
    S2[a3, n]*S2[a1, a2, a5, a6, a4, n] - S2[a1, a2, a5, a6, SP[a3, a4], n] + 
    S2[a1, a2, a5, SP[a4, a6], a3, n] - S2[a3, n]*S2[a1, a2, a6, a5, a4, n] - 
    S2[a1, a2, a6, a5, SP[a3, a4], n] - S2[a1, a2, a6, SP[a3, a5], a4, n] + 
    S2[a1, a2, SP[a3, a5], a4, a6, n] + S2[a1, a2, SP[a3, a5], a6, a4, n] - 
    S2[a1, a2, SP[a4, a5], a3, a6, n] + S2[a1, a2, SP[a5, a6], a3, a4, n] + 
    S2[a1, a2, SP[a5, a6], a4, a3, n] + S2[a6, n]*S2[a1, a3, a2, a5, a4, n] + 
    2*S2[a1, a3, a2, a5, SP[a4, a6], n] + 
    2*S2[a1, a3, a2, SP[a5, a6], a4, n] + 
    S2[a6, n]*S2[a1, a3, a5, a2, a4, n] + 
    2*S2[a1, a3, a5, a2, SP[a4, a6], n] + 
    S2[a6, n]*S2[a1, a3, a5, a4, a2, n] - 
    S2[a2, n]*S2[a1, a3, a5, a4, a6, n] + S2[a1, a3, a5, a4, SP[a2, a6], n] - 
    S2[a2, n]*S2[a1, a3, a5, a6, a4, n] - S2[a1, a3, a5, a6, SP[a2, a4], n] - 
    S2[a1, a3, a5, SP[a2, a4], a6, n] + S2[a1, a3, a5, SP[a2, a6], a4, n] + 
    2*S2[a1, a3, a5, SP[a4, a6], a2, n] - 
    S2[a2, n]*S2[a1, a3, a6, a5, a4, n] - S2[a1, a3, a6, a5, SP[a2, a4], n] - 
    S2[a1, a3, a6, SP[a2, a5], a4, n] - S2[a1, a3, SP[a2, a5], a4, a6, n] - 
    S2[a1, a3, SP[a2, a5], a6, a4, n] + S2[a1, a3, SP[a2, a6], a5, a4, n] + 
    2*S2[a1, a3, SP[a5, a6], a2, a4, n] + 
    2*S2[a1, a3, SP[a5, a6], a4, a2, n] + S2[a1, a4, a2, a3, SP[a5, a6], n] + 
    S2[a1, a4, a2, SP[a3, a5], a6, n] + S2[a1, a4, SP[a2, a5], a3, a6, n] + 
    S2[a6, n]*S2[a1, a5, a2, a3, a4, n] - 
    S2[a4, n]*S2[a1, a5, a2, a3, a6, n] + 
    2*S2[a1, a5, a2, a3, SP[a4, a6], n] + 
    S2[a6, n]*S2[a1, a5, a2, a4, a3, n] - 
    S2[a3, n]*S2[a1, a5, a2, a4, a6, n] - 
    S2[a3, n]*S2[a1, a5, a2, a6, a4, n] - S2[a1, a5, a2, a6, SP[a3, a4], n] + 
    S2[a1, a5, a2, SP[a4, a6], a3, n] + S2[a6, n]*S2[a1, a5, a3, a2, a4, n] + 
    2*S2[a1, a5, a3, a2, SP[a4, a6], n] + 
    S2[a6, n]*S2[a1, a5, a3, a4, a2, n] - 
    S2[a2, n]*S2[a1, a5, a3, a4, a6, n] + S2[a1, a5, a3, a4, SP[a2, a6], n] - 
    S2[a2, n]*S2[a1, a5, a3, a6, a4, n] - S2[a1, a5, a3, a6, SP[a2, a4], n] - 
    S2[a1, a5, a3, SP[a2, a4], a6, n] + S2[a1, a5, a3, SP[a2, a6], a4, n] + 
    2*S2[a1, a5, a3, SP[a4, a6], a2, n] + 
    S2[a6, n]*S2[a1, a5, a4, a2, a3, n] - 
    S2[a3, n]*S2[a1, a5, a4, a2, a6, n] + 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] - 
    S2[a2, n]*S2[a1, a5, a4, a3, a6, n] + S2[a1, a5, a4, a3, SP[a2, a6], n] - 
    S2[a3, n]*S2[a1, a5, a4, a6, a2, n] - S2[a1, a5, a4, a6, SP[a2, a3], n] - 
    S2[a1, a5, a4, SP[a2, a3], a6, n] + S2[a1, a5, a4, SP[a2, a6], a3, n] - 
    S2[a3, n]*S2[a1, a5, a6, a2, a4, n] - S2[a1, a5, a6, a2, SP[a3, a4], n] - 
    S2[a3, n]*S2[a1, a5, a6, a4, a2, n] - S2[a1, a5, a6, a4, SP[a2, a3], n] - 
    S2[a1, a5, a6, SP[a2, a3], a4, n] - S2[a1, a5, a6, SP[a3, a4], a2, n] - 
    S2[a1, a5, SP[a2, a3], a4, a6, n] - S2[a1, a5, SP[a2, a3], a6, a4, n] - 
    S2[a1, a5, SP[a2, a4], a3, a6, n] + S2[a1, a5, SP[a2, a6], a3, a4, n] + 
    S2[a1, a5, SP[a2, a6], a4, a3, n] + S2[a1, a5, SP[a4, a6], a2, a3, n] + 
    S2[a1, a5, SP[a4, a6], a3, a2, n] - S2[a3, n]*S2[a1, a6, a2, a5, a4, n] - 
    S2[a1, a6, a2, a5, SP[a3, a4], n] - S2[a1, a6, a2, SP[a3, a5], a4, n] - 
    S2[a3, n]*S2[a1, a6, a5, a2, a4, n] - S2[a1, a6, a5, a2, SP[a3, a4], n] - 
    S2[a3, n]*S2[a1, a6, a5, a4, a2, n] - S2[a1, a6, a5, a4, SP[a2, a3], n] - 
    S2[a1, a6, a5, SP[a2, a3], a4, n] - S2[a1, a6, a5, SP[a3, a4], a2, n] - 
    S2[a1, a6, SP[a2, a3], a5, a4, n] - S2[a1, a6, SP[a3, a5], a2, a4, n] - 
    S2[a1, a6, SP[a3, a5], a4, a2, n] - S2[a1, SP[a2, a3], a5, a4, a6, n] - 
    S2[a1, SP[a2, a3], a5, a6, a4, n] - S2[a1, SP[a2, a3], a6, a5, a4, n] + 
    S2[a1, SP[a2, a6], a3, a5, a4, n] + S2[a1, SP[a2, a6], a5, a3, a4, n] + 
    S2[a1, SP[a2, a6], a5, a4, a3, n] - S2[a1, SP[a4, a5], a2, a3, a6, n] + 
    S2[a1, SP[a5, a6], a2, a3, a4, n] + S2[a1, SP[a5, a6], a2, a4, a3, n] + 
    S2[a1, SP[a5, a6], a3, a2, a4, n] + S2[a1, SP[a5, a6], a3, a4, a2, n] + 
    S2[a1, SP[a5, a6], a4, a2, a3, n] + S2[a1, SP[a5, a6], a4, a3, a2, n] + 
    S2[a2, a1, a3, a5, SP[a4, a6], n] + S2[a2, a1, a3, SP[a5, a6], a4, n] + 
    S2[a2, a1, a5, a3, SP[a4, a6], n] + S2[a2, a1, a5, SP[a3, a4], a6, n] + 
    S2[a2, a1, SP[a3, a5], a4, a6, n] + S2[a2, a1, SP[a3, a5], a6, a4, n] - 
    S2[a6, n]*S2[a2, a3, a1, a5, a4, n] + S2[a2, SP[a1, a3], a5, a4, a6, n] + 
    S2[a2, SP[a1, a3], a5, a6, a4, n] + S2[a2, SP[a1, a3], a6, a5, a4, n] - 
    S2[a2, SP[a3, a6], a1, a5, a4, n] + S2[a3, a1, a2, a5, SP[a4, a6], n] + 
    S2[a3, a1, a2, SP[a5, a6], a4, n] + S2[a3, a1, a5, a2, SP[a4, a6], n] + 
    S2[a3, a1, a5, a4, SP[a2, a6], n] + S2[a3, a1, a5, SP[a2, a6], a4, n] + 
    S2[a3, a1, a5, SP[a4, a6], a2, n] + S2[a3, a1, SP[a2, a6], a5, a4, n] + 
    S2[a3, a1, SP[a5, a6], a2, a4, n] + S2[a3, a1, SP[a5, a6], a4, a2, n] + 
    S2[a3, SP[a1, a6], a2, a5, a4, n] + S2[a3, SP[a1, a6], a5, a2, a4, n] + 
    S2[a3, SP[a1, a6], a5, a4, a2, n] + S2[a4, a1, a2, a3, SP[a5, a6], n] + 
    S2[a4, a1, a2, SP[a3, a5], a6, n] + S2[a4, a1, SP[a2, a5], a3, a6, n] + 
    S2[a4, SP[a1, a5], a2, a3, a6, n] - S2[a3, n]*S2[a6, a1, a2, a5, a4, n] - 
    S2[a6, a1, a2, a5, SP[a3, a4], n] - S2[a6, a1, a2, SP[a3, a5], a4, n] - 
    S2[a3, n]*S2[a6, a1, a5, a2, a4, n] - S2[a6, a1, a5, a2, SP[a3, a4], n] - 
    S2[a3, n]*S2[a6, a1, a5, a4, a2, n] - S2[a6, a1, a5, a4, SP[a2, a3], n] - 
    S2[a6, a1, a5, SP[a2, a3], a4, n] - S2[a6, a1, a5, SP[a3, a4], a2, n] - 
    S2[a6, a1, SP[a2, a3], a5, a4, n] - S2[a6, a1, SP[a3, a5], a2, a4, n] - 
    S2[a6, a1, SP[a3, a5], a4, a2, n] + S2[a2, n]*S2[a6, a3, a1, a5, a4, n] + 
    S2[a6, a3, a1, a5, SP[a2, a4], n] + S2[a6, a3, a1, SP[a2, a5], a4, n] + 
    S2[a6, a3, SP[a1, a2], a5, a4, n] - S2[a6, SP[a1, a3], a2, a5, a4, n] - 
    S2[a6, SP[a1, a3], a5, a2, a4, n] - S2[a6, SP[a1, a3], a5, a4, a2, n] + 
    S2[a6, SP[a2, a3], a1, a5, a4, n] + S2[SP[a1, a6], a2, a3, a5, a4, n] + 
    S2[SP[a1, a6], a2, a5, a3, a4, n] + S2[SP[a1, a6], a2, a5, a4, a3, n] + 
    S2[SP[a1, a6], a3, a2, a5, a4, n] + S2[SP[a1, a6], a3, a5, a2, a4, n] + 
    S2[SP[a1, a6], a3, a5, a4, a2, n] + S2[SP[a1, a6], a5, a2, a3, a4, n] + 
    S2[SP[a1, a6], a5, a2, a4, a3, n] + S2[SP[a1, a6], a5, a3, a2, a4, n] + 
    S2[SP[a1, a6], a5, a3, a4, a2, n] + S2[SP[a1, a6], a5, a4, a2, a3, n] + 
    S2[SP[a1, a6], a5, a4, a3, a2, n] - S2[SP[a3, a6], a1, a2, a5, a4, n] - 
    S2[SP[a3, a6], a1, a5, a2, a4, n] - S2[SP[a3, a6], a1, a5, a4, a2, n] - 
    S2[a6, a3, a2, a1, a5, a4, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a4_, a5_, a1_, a2_, a6_, a3_, n_] :> 
  S2[a1, a5, a4, n]*S2[a2, a6, a3, n] + S2[SP[a1, a2], SP[a5, a6], 
     SP[a3, a4], n] - S2[a3, a6, n]*S2[a1, a2, a5, a4, n] + 
    S2[a4, a5, n]*S2[a1, a2, a6, a3, n] + S2[a1, a2, SP[a3, a5], SP[a4, a6], 
     n] - S2[a1, a2, SP[a4, a6], SP[a3, a5], n] - S2[a1, a2, SP[a5, a6], 
     SP[a3, a4], n] - S2[a3, a6, n]*S2[a1, a5, a2, a4, n] - 
    S2[a3, a6, n]*S2[a1, a5, a4, a2, n] + S2[a1, a5, SP[a2, a3], SP[a4, a6], 
     n] + S2[a1, a5, SP[a3, a4], SP[a2, a6], n] + S2[a1, SP[a2, a3], a5, 
     SP[a4, a6], n] + S2[a1, SP[a2, a3], SP[a5, a6], a4, n] - 
    S2[a1, SP[a2, a4], a6, SP[a3, a5], n] - S2[a1, SP[a2, a4], SP[a5, a6], 
     a3, n] - S2[a1, SP[a2, a5], a6, SP[a3, a4], n] - 
    S2[a1, SP[a2, a5], SP[a4, a6], a3, n] + S2[a1, SP[a3, a5], a2, 
     SP[a4, a6], n] + S2[a1, SP[a3, a5], a4, SP[a2, a6], n] + 
    S2[a1, SP[a3, a5], SP[a2, a6], a4, n] + S2[a1, SP[a3, a5], SP[a4, a6], 
     a2, n] - S2[a2, a1, SP[a5, a6], SP[a3, a4], n] - 
    S2[a2, SP[a1, a6], a5, SP[a3, a4], n] - S2[a2, SP[a1, a6], SP[a3, a5], 
     a4, n] - S2[SP[a1, a2], a5, a6, SP[a3, a4], n] - 
    S2[SP[a1, a2], a5, SP[a4, a6], a3, n] - S2[SP[a1, a2], a6, a5, 
     SP[a3, a4], n] - S2[SP[a1, a2], a6, SP[a3, a5], a4, n] - 
    S2[SP[a1, a2], SP[a5, a6], a3, a4, n] - S2[SP[a1, a2], SP[a5, a6], a4, 
     a3, n] + S2[SP[a1, a3], a2, a5, SP[a4, a6], n] + 
    S2[SP[a1, a3], a2, SP[a5, a6], a4, n] + S2[SP[a1, a3], a5, a2, 
     SP[a4, a6], n] + S2[SP[a1, a3], a5, a4, SP[a2, a6], n] + 
    S2[SP[a1, a3], a5, SP[a2, a6], a4, n] + S2[SP[a1, a3], a5, SP[a4, a6], 
     a2, n] + S2[SP[a1, a3], SP[a2, a6], a5, a4, n] + 
    S2[SP[a1, a3], SP[a5, a6], a2, a4, n] + S2[SP[a1, a3], SP[a5, a6], a4, 
     a2, n] - S2[SP[a1, a4], a2, a6, SP[a3, a5], n] - 
    S2[SP[a1, a4], a2, SP[a5, a6], a3, n] - S2[SP[a1, a4], SP[a2, a5], a6, 
     a3, n] - S2[a1, a2, a3, a5, SP[a4, a6], n] - S2[a1, a2, a3, SP[a5, a6], 
     a4, n] + S2[a1, a2, a4, a6, SP[a3, a5], n] + S2[a1, a2, a4, SP[a5, a6], 
     a3, n] - S2[a1, a2, a5, a3, SP[a4, a6], n] + 
    S2[a3, n]*S2[a1, a2, a5, a4, a6, n] + S2[a1, a2, a5, a4, SP[a3, a6], n] - 
    S2[a4, n]*S2[a1, a2, a5, a6, a3, n] + 
    S2[a3, n]*S2[a1, a2, a5, a6, a4, n] + S2[a1, a2, a5, a6, SP[a3, a4], n] + 
    S2[a1, a2, a5, SP[a3, a6], a4, n] - S2[a4, n]*S2[a1, a2, a6, a3, a5, n] - 
    S2[a1, a2, a6, a3, SP[a4, a5], n] + S2[a1, a2, a6, a4, SP[a3, a5], n] - 
    S2[a4, n]*S2[a1, a2, a6, a5, a3, n] + 
    S2[a3, n]*S2[a1, a2, a6, a5, a4, n] + S2[a1, a2, a6, a5, SP[a3, a4], n] + 
    2*S2[a1, a2, a6, SP[a3, a5], a4, n] - S2[a1, a2, a6, SP[a4, a5], a3, n] + 
    S2[a1, a2, SP[a3, a6], a5, a4, n] - S2[a1, a2, SP[a4, a5], a6, a3, n] + 
    S2[a1, a2, SP[a5, a6], a3, a4, n] + S2[a1, a2, SP[a5, a6], a4, a3, n] - 
    S2[a1, a3, a2, a5, SP[a4, a6], n] - S2[a1, a3, a2, SP[a5, a6], a4, n] - 
    S2[a1, a3, a5, a2, SP[a4, a6], n] - S2[a1, a3, a5, a4, SP[a2, a6], n] - 
    S2[a1, a3, a5, SP[a2, a6], a4, n] - S2[a1, a3, a5, SP[a4, a6], a2, n] - 
    S2[a1, a3, SP[a2, a6], a5, a4, n] - S2[a1, a3, SP[a5, a6], a2, a4, n] - 
    S2[a1, a3, SP[a5, a6], a4, a2, n] + S2[a1, a4, a2, a6, SP[a3, a5], n] + 
    S2[a1, a4, a2, SP[a5, a6], a3, n] + S2[a1, a4, SP[a2, a5], a6, a3, n] - 
    S2[a1, a5, a2, a3, SP[a4, a6], n] + S2[a3, n]*S2[a1, a5, a2, a4, a6, n] + 
    S2[a1, a5, a2, a4, SP[a3, a6], n] - S2[a4, n]*S2[a1, a5, a2, a6, a3, n] + 
    S2[a3, n]*S2[a1, a5, a2, a6, a4, n] + S2[a1, a5, a2, a6, SP[a3, a4], n] + 
    S2[a1, a5, a2, SP[a3, a6], a4, n] - S2[a1, a5, a3, a2, SP[a4, a6], n] - 
    S2[a1, a5, a3, a4, SP[a2, a6], n] - S2[a1, a5, a3, SP[a2, a6], a4, n] - 
    S2[a1, a5, a3, SP[a4, a6], a2, n] + S2[a3, n]*S2[a1, a5, a4, a2, a6, n] + 
    S2[a1, a5, a4, a2, SP[a3, a6], n] - S2[a1, a5, a4, a3, SP[a2, a6], n] + 
    S2[a3, n]*S2[a1, a5, a4, a6, a2, n] - 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] - S2[a1, a5, a4, SP[a2, a6], a3, n] + 
    S2[a1, a5, a4, SP[a3, a6], a2, n] + S2[a3, n]*S2[a1, a5, a6, a2, a4, n] + 
    S2[a1, a5, a6, a2, SP[a3, a4], n] - S2[a2, n]*S2[a1, a5, a6, a3, a4, n] - 
    S2[a1, a5, a6, a3, SP[a2, a4], n] + S2[a3, n]*S2[a1, a5, a6, a4, a2, n] - 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] - S2[a1, a5, a6, SP[a2, a4], a3, n] + 
    S2[a1, a5, a6, SP[a3, a4], a2, n] - S2[a1, a5, SP[a2, a4], a6, a3, n] - 
    S2[a1, a5, SP[a2, a6], a3, a4, n] - S2[a1, a5, SP[a2, a6], a4, a3, n] + 
    S2[a1, a5, SP[a3, a6], a2, a4, n] + S2[a1, a5, SP[a3, a6], a4, a2, n] + 
    S2[a3, n]*S2[a1, a6, a2, a5, a4, n] + S2[a1, a6, a2, a5, SP[a3, a4], n] + 
    S2[a1, a6, a2, SP[a3, a5], a4, n] - S2[a2, n]*S2[a1, a6, a3, a5, a4, n] - 
    S2[a1, a6, a3, a5, SP[a2, a4], n] - S2[a1, a6, a3, SP[a2, a5], a4, n] + 
    S2[a3, n]*S2[a1, a6, a5, a2, a4, n] + S2[a1, a6, a5, a2, SP[a3, a4], n] - 
    S2[a2, n]*S2[a1, a6, a5, a3, a4, n] - S2[a1, a6, a5, a3, SP[a2, a4], n] + 
    S2[a3, n]*S2[a1, a6, a5, a4, a2, n] - 
    S2[a2, n]*S2[a1, a6, a5, a4, a3, n] - S2[a1, a6, a5, SP[a2, a4], a3, n] + 
    S2[a1, a6, a5, SP[a3, a4], a2, n] - S2[a1, a6, SP[a2, a5], a3, a4, n] - 
    S2[a1, a6, SP[a2, a5], a4, a3, n] + S2[a1, a6, SP[a3, a5], a2, a4, n] + 
    S2[a1, a6, SP[a3, a5], a4, a2, n] - S2[a1, SP[a2, a6], a3, a5, a4, n] - 
    S2[a1, SP[a2, a6], a5, a3, a4, n] - S2[a1, SP[a2, a6], a5, a4, a3, n] + 
    S2[a1, SP[a3, a6], a2, a5, a4, n] + S2[a1, SP[a3, a6], a5, a2, a4, n] + 
    S2[a1, SP[a3, a6], a5, a4, a2, n] - S2[a1, SP[a4, a5], a2, a6, a3, n] + 
    S2[a2, a1, a5, a6, SP[a3, a4], n] + S2[a2, a1, a5, SP[a4, a6], a3, n] + 
    S2[a2, a1, a6, a5, SP[a3, a4], n] + S2[a2, a1, a6, SP[a3, a5], a4, n] + 
    S2[a2, a1, SP[a5, a6], a3, a4, n] + S2[a2, a1, SP[a5, a6], a4, a3, n] + 
    S2[a2, a6, a1, a5, SP[a3, a4], n] + S2[a2, a6, a1, SP[a3, a5], a4, n] + 
    S2[a2, a6, SP[a1, a3], a5, a4, n] + S2[a2, SP[a1, a6], a3, a5, a4, n] + 
    S2[a2, SP[a1, a6], a5, a3, a4, n] + S2[a2, SP[a1, a6], a5, a4, a3, n] - 
    S2[a3, a1, a2, a5, SP[a4, a6], n] - S2[a3, a1, a2, SP[a5, a6], a4, n] - 
    S2[a3, a1, a5, a2, SP[a4, a6], n] - S2[a3, a1, a5, a4, SP[a2, a6], n] - 
    S2[a3, a1, a5, SP[a2, a6], a4, n] - S2[a3, a1, a5, SP[a4, a6], a2, n] - 
    S2[a3, a1, SP[a2, a6], a5, a4, n] - S2[a3, a1, SP[a5, a6], a2, a4, n] - 
    S2[a3, a1, SP[a5, a6], a4, a2, n] - S2[a3, SP[a1, a6], a2, a5, a4, n] - 
    S2[a3, SP[a1, a6], a5, a2, a4, n] - S2[a3, SP[a1, a6], a5, a4, a2, n] + 
    S2[a4, a1, a2, a6, SP[a3, a5], n] + S2[a4, a1, a2, SP[a5, a6], a3, n] + 
    S2[a4, a1, SP[a2, a5], a6, a3, n] + S2[a4, SP[a1, a5], a2, a6, a3, n] + 
    S2[a3, n]*S2[a6, a1, a2, a5, a4, n] + S2[a6, a1, a2, a5, SP[a3, a4], n] + 
    S2[a6, a1, a2, SP[a3, a5], a4, n] - S2[a2, n]*S2[a6, a1, a3, a5, a4, n] - 
    S2[a6, a1, a3, a5, SP[a2, a4], n] - S2[a6, a1, a3, SP[a2, a5], a4, n] + 
    S2[a3, n]*S2[a6, a1, a5, a2, a4, n] + S2[a6, a1, a5, a2, SP[a3, a4], n] - 
    S2[a2, n]*S2[a6, a1, a5, a3, a4, n] - S2[a6, a1, a5, a3, SP[a2, a4], n] + 
    S2[a3, n]*S2[a6, a1, a5, a4, a2, n] - 
    S2[a2, n]*S2[a6, a1, a5, a4, a3, n] - S2[a6, a1, a5, SP[a2, a4], a3, n] + 
    S2[a6, a1, a5, SP[a3, a4], a2, n] - S2[a6, a1, SP[a2, a5], a3, a4, n] - 
    S2[a6, a1, SP[a2, a5], a4, a3, n] + S2[a6, a1, SP[a3, a5], a2, a4, n] + 
    S2[a6, a1, SP[a3, a5], a4, a2, n] - S2[a2, n]*S2[a6, a3, a1, a5, a4, n] - 
    S2[a6, a3, a1, a5, SP[a2, a4], n] - S2[a6, a3, a1, SP[a2, a5], a4, n] - 
    S2[a6, a3, SP[a1, a2], a5, a4, n] - S2[a6, SP[a1, a2], a3, a5, a4, n] - 
    S2[a6, SP[a1, a2], a5, a3, a4, n] - S2[a6, SP[a1, a2], a5, a4, a3, n] + 
    S2[a6, SP[a1, a3], a2, a5, a4, n] + S2[a6, SP[a1, a3], a5, a2, a4, n] + 
    S2[a6, SP[a1, a3], a5, a4, a2, n] - S2[a6, SP[a2, a3], a1, a5, a4, n] - 
    S2[SP[a2, a6], a1, a3, a5, a4, n] - S2[SP[a2, a6], a1, a5, a3, a4, n] - 
    S2[SP[a2, a6], a1, a5, a4, a3, n] - S2[SP[a2, a6], a3, a1, a5, a4, n] + 
    S2[SP[a3, a6], a1, a2, a5, a4, n] + S2[SP[a3, a6], a1, a5, a2, a4, n] + 
    S2[SP[a3, a6], a1, a5, a4, a2, n] + S2[a6, a2, a1, a3, a5, a4, n] + 
    S2[a6, a2, a1, a5, a3, a4, n] + S2[a6, a2, a1, a5, a4, a3, n] + 
    S2[a6, a2, a3, a1, a5, a4, n] + S2[a6, a3, a2, a1, a5, a4, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a4_, a5_, a1_, a3_, a2_, a6_, n_] :> 
  -(S2[a1, a5, a4, n]*S2[a2, a3, a6, n]) - S2[a1, a5, a4, n]*
     S2[a2, a6, a3, n] - S2[SP[a1, a2], SP[a3, a5], SP[a4, a6], n] - 
    S2[SP[a1, a2], SP[a5, a6], SP[a3, a4], n] + S2[a1, a2, SP[a3, a5], 
     SP[a4, a6], n] + S2[a1, a2, SP[a5, a6], SP[a3, a4], n] + 
    S2[a4, a5, n]*S2[a1, a3, a2, a6, n] + S2[a2, a6, n]*
     S2[a1, a3, a5, a4, n] - S2[a1, a3, SP[a2, a4], SP[a5, a6], n] - 
    S2[a1, a3, SP[a2, a5], SP[a4, a6], n] + S2[a2, a6, n]*
     S2[a1, a5, a3, a4, n] + S2[a2, a6, n]*S2[a1, a5, a4, a3, n] - 
    S2[a1, a5, SP[a2, a3], SP[a4, a6], n] - S2[a1, a5, SP[a2, a4], 
     SP[a3, a6], n] - S2[a1, SP[a2, a3], a5, SP[a4, a6], n] - 
    S2[a1, SP[a2, a3], SP[a5, a6], a4, n] - S2[a1, SP[a2, a5], a4, 
     SP[a3, a6], n] + S2[a1, SP[a2, a5], a6, SP[a3, a4], n] + 
    S2[a1, SP[a2, a5], SP[a3, a4], a6, n] - S2[a1, SP[a2, a5], SP[a3, a6], 
     a4, n] - S2[a1, SP[a3, a4], a2, SP[a5, a6], n] - 
    S2[a1, SP[a3, a4], SP[a2, a5], a6, n] + S2[a2, a1, SP[a3, a5], 
     SP[a4, a6], n] + S2[a2, a1, SP[a5, a6], SP[a3, a4], n] + 
    S2[a2, SP[a1, a3], a5, SP[a4, a6], n] + S2[a2, SP[a1, a3], SP[a5, a6], 
     a4, n] + S2[a2, SP[a1, a6], a5, SP[a3, a4], n] + 
    S2[a2, SP[a1, a6], SP[a3, a5], a4, n] - S2[SP[a1, a2], a5, a4, 
     SP[a3, a6], n] + S2[SP[a1, a2], a5, a6, SP[a3, a4], n] + 
    S2[SP[a1, a2], a5, SP[a3, a4], a6, n] - S2[SP[a1, a2], a5, SP[a3, a6], 
     a4, n] + S2[SP[a1, a2], a6, a5, SP[a3, a4], n] + 
    S2[SP[a1, a2], a6, SP[a3, a5], a4, n] + S2[SP[a1, a2], SP[a3, a5], a4, 
     a6, n] + S2[SP[a1, a2], SP[a3, a5], a6, a4, n] - 
    S2[SP[a1, a2], SP[a3, a6], a5, a4, n] - S2[SP[a1, a4], a3, a2, 
     SP[a5, a6], n] - S2[SP[a1, a4], a3, SP[a2, a5], a6, n] - 
    S2[SP[a1, a4], SP[a3, a5], a2, a6, n] + S2[a1, a2, a5, a4, SP[a3, a6], 
     n] - S2[a1, a2, a5, a6, SP[a3, a4], n] - S2[a1, a2, a5, SP[a3, a4], a6, 
     n] + S2[a1, a2, a5, SP[a3, a6], a4, n] - S2[a1, a2, a6, a5, SP[a3, a4], 
     n] - S2[a1, a2, a6, SP[a3, a5], a4, n] - S2[a1, a2, SP[a3, a5], a4, a6, 
     n] - S2[a1, a2, SP[a3, a5], a6, a4, n] + S2[a1, a2, SP[a3, a6], a5, a4, 
     n] + S2[a1, a3, a2, a4, SP[a5, a6], n] - 
    S2[a4, n]*S2[a1, a3, a2, a5, a6, n] - 
    S2[a4, n]*S2[a1, a3, a2, a6, a5, n] - S2[a1, a3, a2, a6, SP[a4, a5], n] - 
    S2[a1, a3, a2, SP[a4, a5], a6, n] + S2[a1, a3, a2, SP[a5, a6], a4, n] + 
    S2[a1, a3, a4, a2, SP[a5, a6], n] + S2[a1, a3, a4, SP[a2, a5], a6, n] - 
    S2[a4, n]*S2[a1, a3, a5, a2, a6, n] + S2[a1, a3, SP[a2, a5], a4, a6, n] + 
    S2[a1, a3, SP[a2, a5], a6, a4, n] - S2[a1, a3, SP[a4, a5], a2, a6, n] + 
    S2[a1, a4, a3, a2, SP[a5, a6], n] + S2[a1, a4, a3, SP[a2, a5], a6, n] + 
    S2[a1, a4, SP[a3, a5], a2, a6, n] + S2[a1, a5, a2, a4, SP[a3, a6], n] - 
    S2[a1, a5, a2, a6, SP[a3, a4], n] - S2[a1, a5, a2, SP[a3, a4], a6, n] + 
    S2[a1, a5, a2, SP[a3, a6], a4, n] - S2[a4, n]*S2[a1, a5, a3, a2, a6, n] + 
    S2[a1, a5, a4, a2, SP[a3, a6], n] + S2[a1, a5, a4, SP[a2, a3], a6, n] + 
    S2[a1, a5, SP[a2, a3], a4, a6, n] + S2[a1, a5, SP[a2, a3], a6, a4, n] - 
    S2[a1, a5, SP[a3, a4], a2, a6, n] + S2[a1, SP[a2, a3], a5, a4, a6, n] + 
    S2[a1, SP[a2, a3], a5, a6, a4, n] + S2[a1, SP[a2, a3], a6, a5, a4, n] - 
    S2[a1, SP[a4, a5], a3, a2, a6, n] + S2[a2, a1, a5, a4, SP[a3, a6], n] - 
    S2[a2, a1, a5, a6, SP[a3, a4], n] - S2[a2, a1, a5, SP[a3, a4], a6, n] + 
    S2[a2, a1, a5, SP[a3, a6], a4, n] - S2[a2, a1, a6, a5, SP[a3, a4], n] - 
    S2[a2, a1, a6, SP[a3, a5], a4, n] - S2[a2, a1, SP[a3, a5], a4, a6, n] - 
    S2[a2, a1, SP[a3, a5], a6, a4, n] + S2[a2, a1, SP[a3, a6], a5, a4, n] + 
    S2[a6, n]*S2[a2, a3, a1, a5, a4, n] - S2[a2, a6, a1, a5, SP[a3, a4], n] - 
    S2[a2, a6, a1, SP[a3, a5], a4, n] - S2[a2, a6, SP[a1, a3], a5, a4, n] - 
    S2[a2, SP[a1, a3], a5, a4, a6, n] - S2[a2, SP[a1, a3], a5, a6, a4, n] - 
    S2[a2, SP[a1, a3], a6, a5, a4, n] + S2[a2, SP[a3, a6], a1, a5, a4, n] + 
    S2[a4, a1, a3, a2, SP[a5, a6], n] + S2[a4, a1, a3, SP[a2, a5], a6, n] + 
    S2[a4, a1, SP[a3, a5], a2, a6, n] + S2[a4, SP[a1, a5], a3, a2, a6, n] + 
    S2[SP[a2, a6], a3, a1, a5, a4, n] - S2[a6, a2, a3, a1, a5, a4, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a4_, a5_, a1_, a3_, a6_, a2_, n_] :> 
  S2[a1, a5, a4, n]*S2[a2, a6, a3, n] + S2[SP[a1, a2], SP[a5, a6], 
     SP[a3, a4], n] - S2[a1, a2, SP[a5, a6], SP[a3, a4], n] - 
    S2[a2, a6, n]*S2[a1, a3, a5, a4, n] + S2[a4, a5, n]*
     S2[a1, a3, a6, a2, n] + S2[a1, a3, SP[a2, a5], SP[a4, a6], n] - 
    S2[a1, a3, SP[a4, a6], SP[a2, a5], n] - S2[a2, a6, n]*
     S2[a1, a5, a3, a4, n] - S2[a2, a6, n]*S2[a1, a5, a4, a3, n] + 
    S2[a1, a5, SP[a2, a3], SP[a4, a6], n] + S2[a1, a5, SP[a2, a4], 
     SP[a3, a6], n] + S2[a1, SP[a2, a3], a5, SP[a4, a6], n] + 
    S2[a1, SP[a2, a3], SP[a5, a6], a4, n] + S2[a1, SP[a2, a5], a3, 
     SP[a4, a6], n] + S2[a1, SP[a2, a5], a4, SP[a3, a6], n] - 
    S2[a1, SP[a2, a5], a6, SP[a3, a4], n] + S2[a1, SP[a2, a5], SP[a3, a6], 
     a4, n] - S2[a1, SP[a3, a4], a6, SP[a2, a5], n] - 
    S2[a1, SP[a3, a4], SP[a5, a6], a2, n] - S2[a2, a1, SP[a5, a6], 
     SP[a3, a4], n] - S2[a2, SP[a1, a6], a5, SP[a3, a4], n] - 
    S2[a2, SP[a1, a6], SP[a3, a5], a4, n] + S2[SP[a1, a2], a3, a5, 
     SP[a4, a6], n] + S2[SP[a1, a2], a3, SP[a5, a6], a4, n] + 
    S2[SP[a1, a2], a5, a3, SP[a4, a6], n] + S2[SP[a1, a2], a5, a4, 
     SP[a3, a6], n] - S2[SP[a1, a2], a5, a6, SP[a3, a4], n] + 
    S2[SP[a1, a2], a5, SP[a3, a6], a4, n] - S2[SP[a1, a2], a6, a5, 
     SP[a3, a4], n] - S2[SP[a1, a2], a6, SP[a3, a5], a4, n] + 
    S2[SP[a1, a2], SP[a3, a6], a5, a4, n] - S2[SP[a1, a4], a3, a6, 
     SP[a2, a5], n] - S2[SP[a1, a4], a3, SP[a5, a6], a2, n] - 
    S2[SP[a1, a4], SP[a3, a5], a6, a2, n] - S2[a1, a2, a3, a5, SP[a4, a6], 
     n] - S2[a1, a2, a3, SP[a5, a6], a4, n] - S2[a1, a2, a5, a3, SP[a4, a6], 
     n] - S2[a1, a2, a5, a4, SP[a3, a6], n] + S2[a1, a2, a5, a6, SP[a3, a4], 
     n] - S2[a1, a2, a5, SP[a3, a6], a4, n] + S2[a1, a2, a6, a5, SP[a3, a4], 
     n] + S2[a1, a2, a6, SP[a3, a5], a4, n] - S2[a1, a2, SP[a3, a6], a5, a4, 
     n] - S2[a1, a3, a2, a5, SP[a4, a6], n] - S2[a1, a3, a2, SP[a5, a6], a4, 
     n] + S2[a1, a3, a4, a6, SP[a2, a5], n] + S2[a1, a3, a4, SP[a5, a6], a2, 
     n] - S2[a1, a3, a5, a2, SP[a4, a6], n] + 
    S2[a2, n]*S2[a1, a3, a5, a4, a6, n] + S2[a1, a3, a5, a4, SP[a2, a6], n] - 
    S2[a4, n]*S2[a1, a3, a5, a6, a2, n] + 
    S2[a2, n]*S2[a1, a3, a5, a6, a4, n] + S2[a1, a3, a5, SP[a2, a6], a4, n] - 
    S2[a1, a3, a5, SP[a4, a6], a2, n] - S2[a4, n]*S2[a1, a3, a6, a2, a5, n] - 
    S2[a1, a3, a6, a2, SP[a4, a5], n] + S2[a1, a3, a6, a4, SP[a2, a5], n] - 
    S2[a4, n]*S2[a1, a3, a6, a5, a2, n] + 
    S2[a2, n]*S2[a1, a3, a6, a5, a4, n] + S2[a1, a3, a6, SP[a2, a5], a4, n] - 
    S2[a1, a3, a6, SP[a4, a5], a2, n] + S2[a1, a3, SP[a2, a6], a5, a4, n] - 
    S2[a1, a3, SP[a4, a5], a6, a2, n] + S2[a1, a4, a3, a6, SP[a2, a5], n] + 
    S2[a1, a4, a3, SP[a5, a6], a2, n] + S2[a1, a4, SP[a3, a5], a6, a2, n] - 
    S2[a1, a5, a2, a3, SP[a4, a6], n] - S2[a1, a5, a2, a4, SP[a3, a6], n] + 
    S2[a1, a5, a2, a6, SP[a3, a4], n] - S2[a1, a5, a2, SP[a3, a6], a4, n] - 
    S2[a1, a5, a3, a2, SP[a4, a6], n] + S2[a2, n]*S2[a1, a5, a3, a4, a6, n] + 
    S2[a1, a5, a3, a4, SP[a2, a6], n] - S2[a4, n]*S2[a1, a5, a3, a6, a2, n] + 
    S2[a2, n]*S2[a1, a5, a3, a6, a4, n] + S2[a1, a5, a3, SP[a2, a6], a4, n] - 
    S2[a1, a5, a3, SP[a4, a6], a2, n] - S2[a1, a5, a4, a2, SP[a3, a6], n] + 
    S2[a2, n]*S2[a1, a5, a4, a3, a6, n] + S2[a1, a5, a4, a3, SP[a2, a6], n] - 
    S2[a1, a5, SP[a3, a4], a6, a2, n] - S2[a1, SP[a4, a5], a3, a6, a2, n] - 
    S2[a2, a1, a3, a5, SP[a4, a6], n] - S2[a2, a1, a3, SP[a5, a6], a4, n] - 
    S2[a2, a1, a5, a3, SP[a4, a6], n] - S2[a2, a1, a5, a4, SP[a3, a6], n] + 
    S2[a2, a1, a5, a6, SP[a3, a4], n] - S2[a2, a1, a5, SP[a3, a6], a4, n] + 
    S2[a2, a1, a6, a5, SP[a3, a4], n] + S2[a2, a1, a6, SP[a3, a5], a4, n] - 
    S2[a2, a1, SP[a3, a6], a5, a4, n] + S2[a2, a6, a1, a5, SP[a3, a4], n] + 
    S2[a2, a6, a1, SP[a3, a5], a4, n] + S2[a2, a6, SP[a1, a3], a5, a4, n] + 
    S2[a4, a1, a3, a6, SP[a2, a5], n] + S2[a4, a1, a3, SP[a5, a6], a2, n] + 
    S2[a4, a1, SP[a3, a5], a6, a2, n] + S2[a4, SP[a1, a5], a3, a6, a2, n] - 
    S2[a2, n]*S2[a6, a3, a1, a5, a4, n] - S2[a6, a3, a1, a5, SP[a2, a4], n] - 
    S2[a6, a3, a1, SP[a2, a5], a4, n] - S2[a6, a3, SP[a1, a2], a5, a4, n] - 
    S2[a6, SP[a2, a3], a1, a5, a4, n] - S2[SP[a2, a6], a3, a1, a5, a4, n] + 
    S2[a6, a2, a3, a1, a5, a4, n] + S2[a6, a3, a1, a2, a5, a4, n] + 
    S2[a6, a3, a1, a5, a2, a4, n] + S2[a6, a3, a1, a5, a4, a2, n] + 
    S2[a6, a3, a2, a1, a5, a4, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a4_, a5_, a1_, a6_, a2_, a3_, n_] :> 
  -(S2[a1, a5, a4, n]*S2[a2, a3, a6, n]) - S2[a1, a5, a4, n]*
     S2[a2, a6, a3, n] - S2[SP[a1, a2], SP[a3, a5], SP[a4, a6], n] - 
    S2[SP[a1, a2], SP[a5, a6], SP[a3, a4], n] + S2[a1, a2, SP[a3, a5], 
     SP[a4, a6], n] + S2[a1, a2, SP[a5, a6], SP[a3, a4], n] + 
    S2[a4, a5, n]*S2[a1, a6, a2, a3, n] - S2[a1, a6, SP[a2, a4], SP[a3, a5], 
     n] + S2[a1, SP[a2, a5], a3, SP[a4, a6], n] + S2[a1, SP[a2, a5], a6, 
     SP[a3, a4], n] + S2[a1, SP[a2, a5], SP[a3, a4], a6, n] + 
    S2[a1, SP[a2, a5], SP[a4, a6], a3, n] - S2[a1, SP[a4, a6], a2, 
     SP[a3, a5], n] - S2[a1, SP[a4, a6], SP[a2, a5], a3, n] + 
    S2[a2, a1, SP[a3, a5], SP[a4, a6], n] + S2[a2, a1, SP[a5, a6], 
     SP[a3, a4], n] + S2[a2, SP[a1, a3], a5, SP[a4, a6], n] + 
    S2[a2, SP[a1, a3], SP[a5, a6], a4, n] + S2[a2, SP[a1, a6], a5, 
     SP[a3, a4], n] + S2[a2, SP[a1, a6], SP[a3, a5], a4, n] + 
    S2[SP[a1, a2], a3, a5, SP[a4, a6], n] + S2[SP[a1, a2], a3, SP[a5, a6], 
     a4, n] + S2[SP[a1, a2], a5, a3, SP[a4, a6], n] + 
    S2[SP[a1, a2], a5, a6, SP[a3, a4], n] + S2[SP[a1, a2], a5, SP[a3, a4], 
     a6, n] + S2[SP[a1, a2], a5, SP[a4, a6], a3, n] + 
    S2[SP[a1, a2], a6, a5, SP[a3, a4], n] + S2[SP[a1, a2], a6, SP[a3, a5], 
     a4, n] + S2[SP[a1, a2], SP[a3, a5], a4, a6, n] + 
    S2[SP[a1, a2], SP[a3, a5], a6, a4, n] + S2[SP[a1, a2], SP[a5, a6], a3, 
     a4, n] + S2[SP[a1, a2], SP[a5, a6], a4, a3, n] - 
    S2[SP[a1, a4], a6, a2, SP[a3, a5], n] - S2[SP[a1, a4], a6, SP[a2, a5], 
     a3, n] - S2[SP[a1, a4], SP[a5, a6], a2, a3, n] - 
    S2[a1, a2, a3, a5, SP[a4, a6], n] - S2[a1, a2, a3, SP[a5, a6], a4, n] - 
    S2[a1, a2, a5, a3, SP[a4, a6], n] - S2[a1, a2, a5, a6, SP[a3, a4], n] - 
    S2[a1, a2, a5, SP[a3, a4], a6, n] - S2[a1, a2, a5, SP[a4, a6], a3, n] - 
    S2[a1, a2, a6, a5, SP[a3, a4], n] - S2[a1, a2, a6, SP[a3, a5], a4, n] - 
    S2[a1, a2, SP[a3, a5], a4, a6, n] - S2[a1, a2, SP[a3, a5], a6, a4, n] - 
    S2[a1, a2, SP[a5, a6], a3, a4, n] - S2[a1, a2, SP[a5, a6], a4, a3, n] - 
    S2[a6, n]*S2[a1, a3, a2, a5, a4, n] - S2[a1, a3, a2, a5, SP[a4, a6], n] - 
    S2[a1, a3, a2, SP[a5, a6], a4, n] - S2[a6, n]*S2[a1, a3, a5, a2, a4, n] - 
    S2[a1, a3, a5, a2, SP[a4, a6], n] - S2[a6, n]*S2[a1, a3, a5, a4, a2, n] + 
    S2[a2, n]*S2[a1, a3, a5, a4, a6, n] + 
    S2[a2, n]*S2[a1, a3, a5, a6, a4, n] + S2[a1, a3, a5, a6, SP[a2, a4], n] + 
    S2[a1, a3, a5, SP[a2, a4], a6, n] - S2[a1, a3, a5, SP[a4, a6], a2, n] + 
    S2[a2, n]*S2[a1, a3, a6, a5, a4, n] + S2[a1, a3, a6, a5, SP[a2, a4], n] + 
    S2[a1, a3, a6, SP[a2, a5], a4, n] + S2[a1, a3, SP[a2, a5], a4, a6, n] + 
    S2[a1, a3, SP[a2, a5], a6, a4, n] - S2[a1, a3, SP[a5, a6], a2, a4, n] - 
    S2[a1, a3, SP[a5, a6], a4, a2, n] + S2[a1, a4, a6, a2, SP[a3, a5], n] + 
    S2[a1, a4, a6, SP[a2, a5], a3, n] + S2[a1, a4, SP[a5, a6], a2, a3, n] - 
    S2[a1, a5, a2, a3, SP[a4, a6], n] - S2[a1, a5, a2, a6, SP[a3, a4], n] - 
    S2[a1, a5, a2, SP[a3, a4], a6, n] - S2[a1, a5, a2, SP[a4, a6], a3, n] - 
    S2[a6, n]*S2[a1, a5, a3, a2, a4, n] - S2[a1, a5, a3, a2, SP[a4, a6], n] - 
    S2[a6, n]*S2[a1, a5, a3, a4, a2, n] + 
    S2[a2, n]*S2[a1, a5, a3, a4, a6, n] + 
    S2[a2, n]*S2[a1, a5, a3, a6, a4, n] + S2[a1, a5, a3, a6, SP[a2, a4], n] + 
    S2[a1, a5, a3, SP[a2, a4], a6, n] - S2[a1, a5, a3, SP[a4, a6], a2, n] - 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] + 
    S2[a2, n]*S2[a1, a5, a4, a3, a6, n] + 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] + S2[a1, a5, a4, a6, SP[a2, a3], n] + 
    S2[a1, a5, a4, SP[a2, a3], a6, n] + S2[a1, a5, a4, SP[a2, a6], a3, n] - 
    S2[a1, a5, a4, SP[a3, a6], a2, n] - S2[a4, n]*S2[a1, a5, a6, a2, a3, n] - 
    S2[a1, a5, a6, a2, SP[a3, a4], n] + S2[a2, n]*S2[a1, a5, a6, a3, a4, n] + 
    S2[a1, a5, a6, a3, SP[a2, a4], n] + S2[a2, n]*S2[a1, a5, a6, a4, a3, n] + 
    S2[a1, a5, a6, a4, SP[a2, a3], n] + S2[a1, a5, a6, SP[a2, a3], a4, n] + 
    S2[a1, a5, SP[a2, a3], a4, a6, n] + S2[a1, a5, SP[a2, a3], a6, a4, n] + 
    S2[a1, a5, SP[a2, a6], a3, a4, n] + S2[a1, a5, SP[a2, a6], a4, a3, n] - 
    S2[a1, a5, SP[a3, a6], a2, a4, n] - S2[a1, a5, SP[a3, a6], a4, a2, n] - 
    S2[a1, a5, SP[a4, a6], a2, a3, n] - S2[a1, a5, SP[a4, a6], a3, a2, n] - 
    S2[a4, n]*S2[a1, a6, a2, a3, a5, n] - S2[a1, a6, a2, a3, SP[a4, a5], n] + 
    S2[a1, a6, a2, a4, SP[a3, a5], n] - S2[a4, n]*S2[a1, a6, a2, a5, a3, n] - 
    S2[a1, a6, a2, a5, SP[a3, a4], n] - S2[a1, a6, a2, SP[a4, a5], a3, n] + 
    S2[a2, n]*S2[a1, a6, a3, a5, a4, n] + S2[a1, a6, a3, a5, SP[a2, a4], n] + 
    S2[a1, a6, a3, SP[a2, a5], a4, n] + S2[a1, a6, a4, a2, SP[a3, a5], n] + 
    S2[a1, a6, a4, SP[a2, a5], a3, n] - S2[a4, n]*S2[a1, a6, a5, a2, a3, n] - 
    S2[a1, a6, a5, a2, SP[a3, a4], n] + S2[a2, n]*S2[a1, a6, a5, a3, a4, n] + 
    S2[a1, a6, a5, a3, SP[a2, a4], n] + S2[a2, n]*S2[a1, a6, a5, a4, a3, n] + 
    S2[a1, a6, a5, a4, SP[a2, a3], n] + S2[a1, a6, a5, SP[a2, a3], a4, n] + 
    S2[a1, a6, SP[a2, a3], a5, a4, n] + S2[a1, a6, SP[a2, a5], a3, a4, n] + 
    S2[a1, a6, SP[a2, a5], a4, a3, n] - S2[a1, a6, SP[a4, a5], a2, a3, n] + 
    S2[a1, SP[a2, a3], a5, a4, a6, n] + S2[a1, SP[a2, a3], a5, a6, a4, n] + 
    S2[a1, SP[a2, a3], a6, a5, a4, n] + S2[a1, SP[a2, a6], a3, a5, a4, n] + 
    S2[a1, SP[a2, a6], a5, a3, a4, n] + S2[a1, SP[a2, a6], a5, a4, a3, n] - 
    S2[a1, SP[a3, a6], a2, a5, a4, n] - S2[a1, SP[a3, a6], a5, a2, a4, n] - 
    S2[a1, SP[a3, a6], a5, a4, a2, n] - S2[a1, SP[a4, a5], a6, a2, a3, n] - 
    S2[a1, SP[a5, a6], a3, a2, a4, n] - S2[a1, SP[a5, a6], a3, a4, a2, n] - 
    S2[a1, SP[a5, a6], a4, a3, a2, n] - S2[a2, a1, a3, a5, SP[a4, a6], n] - 
    S2[a2, a1, a3, SP[a5, a6], a4, n] - S2[a2, a1, a5, a3, SP[a4, a6], n] - 
    S2[a2, a1, a5, a6, SP[a3, a4], n] - S2[a2, a1, a5, SP[a3, a4], a6, n] - 
    S2[a2, a1, a5, SP[a4, a6], a3, n] - S2[a2, a1, a6, a5, SP[a3, a4], n] - 
    S2[a2, a1, a6, SP[a3, a5], a4, n] - S2[a2, a1, SP[a3, a5], a4, a6, n] - 
    S2[a2, a1, SP[a3, a5], a6, a4, n] - S2[a2, a1, SP[a5, a6], a3, a4, n] - 
    S2[a2, a1, SP[a5, a6], a4, a3, n] + S2[a6, n]*S2[a2, a3, a1, a5, a4, n] - 
    S2[a2, a6, a1, a5, SP[a3, a4], n] - S2[a2, a6, a1, SP[a3, a5], a4, n] - 
    S2[a2, a6, SP[a1, a3], a5, a4, n] - S2[a2, SP[a1, a3], a5, a4, a6, n] - 
    S2[a2, SP[a1, a3], a5, a6, a4, n] - S2[a2, SP[a1, a3], a6, a5, a4, n] - 
    S2[a2, SP[a1, a6], a3, a5, a4, n] - S2[a2, SP[a1, a6], a5, a3, a4, n] - 
    S2[a2, SP[a1, a6], a5, a4, a3, n] + S2[a2, SP[a3, a6], a1, a5, a4, n] + 
    S2[a4, a1, a6, a2, SP[a3, a5], n] + S2[a4, a1, a6, SP[a2, a5], a3, n] + 
    S2[a4, a1, SP[a5, a6], a2, a3, n] + S2[a4, SP[a1, a5], a6, a2, a3, n] + 
    S2[a2, n]*S2[a6, a1, a3, a5, a4, n] + S2[a6, a1, a3, a5, SP[a2, a4], n] + 
    S2[a6, a1, a3, SP[a2, a5], a4, n] + S2[a2, n]*S2[a6, a1, a5, a3, a4, n] + 
    S2[a6, a1, a5, a3, SP[a2, a4], n] + S2[a2, n]*S2[a6, a1, a5, a4, a3, n] + 
    S2[a6, a1, a5, a4, SP[a2, a3], n] + S2[a6, a1, a5, SP[a2, a3], a4, n] + 
    S2[a6, a1, a5, SP[a2, a4], a3, n] + S2[a6, a1, SP[a2, a3], a5, a4, n] + 
    S2[a6, a1, SP[a2, a5], a3, a4, n] + S2[a6, a1, SP[a2, a5], a4, a3, n] + 
    S2[a6, SP[a1, a2], a3, a5, a4, n] + S2[a6, SP[a1, a2], a5, a3, a4, n] + 
    S2[a6, SP[a1, a2], a5, a4, a3, n] - S2[SP[a1, a6], a3, a2, a5, a4, n] - 
    S2[SP[a1, a6], a3, a5, a2, a4, n] - S2[SP[a1, a6], a3, a5, a4, a2, n] - 
    S2[SP[a1, a6], a5, a3, a2, a4, n] - S2[SP[a1, a6], a5, a3, a4, a2, n] - 
    S2[SP[a1, a6], a5, a4, a3, a2, n] + S2[SP[a2, a6], a1, a3, a5, a4, n] + 
    S2[SP[a2, a6], a1, a5, a3, a4, n] + S2[SP[a2, a6], a1, a5, a4, a3, n] + 
    S2[SP[a2, a6], a3, a1, a5, a4, n] - S2[a6, a1, a2, a3, a5, a4, n] - 
    S2[a6, a1, a2, a5, a3, a4, n] - S2[a6, a1, a2, a5, a4, a3, n] - 
    S2[a6, a1, a5, a2, a3, a4, n] - S2[a6, a1, a5, a2, a4, a3, n] - 
    S2[a6, a1, a5, a4, a2, a3, n] - S2[a6, a2, a1, a3, a5, a4, n] - 
    S2[a6, a2, a1, a5, a3, a4, n] - S2[a6, a2, a1, a5, a4, a3, n] - 
    S2[a6, a2, a3, a1, a5, a4, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a4_, a5_, a1_, a6_, a3_, a2_, n_] :> 
  S2[a1, a5, a4, n]*S2[a2, a3, a6, n] + S2[SP[a1, a2], SP[a3, a5], 
     SP[a4, a6], n] - S2[a1, a2, SP[a3, a5], SP[a4, a6], n] + 
    S2[a4, a5, n]*S2[a1, a6, a3, a2, n] - S2[a1, a6, SP[a3, a4], SP[a2, a5], 
     n] - S2[a1, SP[a2, a5], a3, SP[a4, a6], n] - 
    S2[a1, SP[a2, a5], SP[a3, a4], a6, n] - S2[a1, SP[a4, a6], a3, 
     SP[a2, a5], n] - S2[a1, SP[a4, a6], SP[a3, a5], a2, n] - 
    S2[a2, a1, SP[a3, a5], SP[a4, a6], n] - S2[a2, SP[a1, a3], a5, 
     SP[a4, a6], n] - S2[a2, SP[a1, a3], SP[a5, a6], a4, n] - 
    S2[SP[a1, a2], a3, a5, SP[a4, a6], n] - S2[SP[a1, a2], a3, SP[a5, a6], 
     a4, n] - S2[SP[a1, a2], a5, a3, SP[a4, a6], n] - 
    S2[SP[a1, a2], a5, SP[a3, a4], a6, n] - S2[SP[a1, a2], SP[a3, a5], a4, 
     a6, n] - S2[SP[a1, a2], SP[a3, a5], a6, a4, n] - 
    S2[SP[a1, a4], a6, a3, SP[a2, a5], n] - S2[SP[a1, a4], a6, SP[a3, a5], 
     a2, n] - S2[SP[a1, a4], SP[a5, a6], a3, a2, n] + 
    S2[a1, a2, a3, a5, SP[a4, a6], n] + S2[a1, a2, a3, SP[a5, a6], a4, n] + 
    S2[a1, a2, a5, a3, SP[a4, a6], n] + S2[a1, a2, a5, SP[a3, a4], a6, n] + 
    S2[a1, a2, SP[a3, a5], a4, a6, n] + S2[a1, a2, SP[a3, a5], a6, a4, n] + 
    S2[a6, n]*S2[a1, a3, a2, a5, a4, n] + S2[a1, a3, a2, a5, SP[a4, a6], n] + 
    S2[a1, a3, a2, SP[a5, a6], a4, n] + S2[a6, n]*S2[a1, a3, a5, a2, a4, n] + 
    S2[a1, a3, a5, a2, SP[a4, a6], n] + S2[a6, n]*S2[a1, a3, a5, a4, a2, n] - 
    S2[a2, n]*S2[a1, a3, a5, a4, a6, n] - 
    S2[a2, n]*S2[a1, a3, a5, a6, a4, n] - S2[a1, a3, a5, a6, SP[a2, a4], n] - 
    S2[a1, a3, a5, SP[a2, a4], a6, n] + S2[a1, a3, a5, SP[a4, a6], a2, n] - 
    S2[a2, n]*S2[a1, a3, a6, a5, a4, n] - S2[a1, a3, a6, a5, SP[a2, a4], n] - 
    S2[a1, a3, a6, SP[a2, a5], a4, n] - S2[a1, a3, SP[a2, a5], a4, a6, n] - 
    S2[a1, a3, SP[a2, a5], a6, a4, n] + S2[a1, a3, SP[a5, a6], a2, a4, n] + 
    S2[a1, a3, SP[a5, a6], a4, a2, n] + S2[a1, a4, a6, a3, SP[a2, a5], n] + 
    S2[a1, a4, a6, SP[a3, a5], a2, n] + S2[a1, a4, SP[a5, a6], a3, a2, n] + 
    S2[a1, a5, a2, a3, SP[a4, a6], n] + S2[a1, a5, a2, SP[a3, a4], a6, n] + 
    S2[a6, n]*S2[a1, a5, a3, a2, a4, n] + S2[a1, a5, a3, a2, SP[a4, a6], n] + 
    S2[a6, n]*S2[a1, a5, a3, a4, a2, n] - 
    S2[a2, n]*S2[a1, a5, a3, a4, a6, n] - 
    S2[a2, n]*S2[a1, a5, a3, a6, a4, n] - S2[a1, a5, a3, a6, SP[a2, a4], n] - 
    S2[a1, a5, a3, SP[a2, a4], a6, n] + S2[a1, a5, a3, SP[a4, a6], a2, n] + 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] - 
    S2[a2, n]*S2[a1, a5, a4, a3, a6, n] - S2[a1, a5, a4, SP[a2, a3], a6, n] + 
    S2[a1, a5, a4, SP[a3, a6], a2, n] - S2[a4, n]*S2[a1, a5, a6, a3, a2, n] - 
    S2[a1, a5, a6, a3, SP[a2, a4], n] - S2[a1, a5, a6, SP[a3, a4], a2, n] - 
    S2[a1, a5, SP[a2, a3], a4, a6, n] - S2[a1, a5, SP[a2, a3], a6, a4, n] + 
    S2[a1, a5, SP[a3, a6], a2, a4, n] + S2[a1, a5, SP[a3, a6], a4, a2, n] - 
    S2[a4, n]*S2[a1, a6, a3, a2, a5, n] - S2[a1, a6, a3, a2, SP[a4, a5], n] + 
    S2[a1, a6, a3, a4, SP[a2, a5], n] - S2[a4, n]*S2[a1, a6, a3, a5, a2, n] - 
    S2[a1, a6, a3, a5, SP[a2, a4], n] - S2[a1, a6, a3, SP[a4, a5], a2, n] + 
    S2[a1, a6, a4, a3, SP[a2, a5], n] + S2[a1, a6, a4, SP[a3, a5], a2, n] - 
    S2[a4, n]*S2[a1, a6, a5, a3, a2, n] - S2[a1, a6, a5, a3, SP[a2, a4], n] - 
    S2[a1, a6, a5, SP[a3, a4], a2, n] - S2[a1, a6, SP[a4, a5], a3, a2, n] - 
    S2[a1, SP[a2, a3], a5, a4, a6, n] - S2[a1, SP[a2, a3], a5, a6, a4, n] - 
    S2[a1, SP[a2, a3], a6, a5, a4, n] + S2[a1, SP[a3, a6], a2, a5, a4, n] + 
    S2[a1, SP[a3, a6], a5, a2, a4, n] + S2[a1, SP[a3, a6], a5, a4, a2, n] - 
    S2[a1, SP[a4, a5], a6, a3, a2, n] + S2[a1, SP[a5, a6], a3, a2, a4, n] + 
    S2[a1, SP[a5, a6], a3, a4, a2, n] + S2[a1, SP[a5, a6], a4, a3, a2, n] + 
    S2[a2, a1, a3, a5, SP[a4, a6], n] + S2[a2, a1, a3, SP[a5, a6], a4, n] + 
    S2[a2, a1, a5, a3, SP[a4, a6], n] + S2[a2, a1, a5, SP[a3, a4], a6, n] + 
    S2[a2, a1, SP[a3, a5], a4, a6, n] + S2[a2, a1, SP[a3, a5], a6, a4, n] - 
    S2[a6, n]*S2[a2, a3, a1, a5, a4, n] + S2[a2, SP[a1, a3], a5, a4, a6, n] + 
    S2[a2, SP[a1, a3], a5, a6, a4, n] + S2[a2, SP[a1, a3], a6, a5, a4, n] - 
    S2[a2, SP[a3, a6], a1, a5, a4, n] + S2[a4, a1, a6, a3, SP[a2, a5], n] + 
    S2[a4, a1, a6, SP[a3, a5], a2, n] + S2[a4, a1, SP[a5, a6], a3, a2, n] + 
    S2[a4, SP[a1, a5], a6, a3, a2, n] + S2[a2, n]*S2[a6, a3, a1, a5, a4, n] + 
    S2[a6, a3, a1, a5, SP[a2, a4], n] + S2[a6, a3, a1, SP[a2, a5], a4, n] + 
    S2[a6, a3, SP[a1, a2], a5, a4, n] + S2[a6, SP[a2, a3], a1, a5, a4, n] + 
    S2[SP[a1, a6], a3, a2, a5, a4, n] + S2[SP[a1, a6], a3, a5, a2, a4, n] + 
    S2[SP[a1, a6], a3, a5, a4, a2, n] + S2[SP[a1, a6], a5, a3, a2, a4, n] + 
    S2[SP[a1, a6], a5, a3, a4, a2, n] + S2[SP[a1, a6], a5, a4, a3, a2, n] - 
    S2[a6, a1, a3, a2, a5, a4, n] - S2[a6, a1, a3, a5, a2, a4, n] - 
    S2[a6, a1, a3, a5, a4, a2, n] - S2[a6, a1, a5, a3, a2, a4, n] - 
    S2[a6, a1, a5, a3, a4, a2, n] - S2[a6, a1, a5, a4, a3, a2, n] - 
    S2[a6, a3, a1, a2, a5, a4, n] - S2[a6, a3, a1, a5, a2, a4, n] - 
    S2[a6, a3, a1, a5, a4, a2, n] - S2[a6, a3, a2, a1, a5, a4, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a4_, a5_, a2_, a1_, a3_, a6_, n_] :> 
  S2[a1, a3, a6, n]*S2[a2, a5, a4, n] + S2[SP[a1, a2], SP[a3, a5], 
     SP[a4, a6], n] - S2[a4, a5, n]*S2[a1, a2, a3, a6, n] - 
    S2[a3, a6, n]*S2[a1, a2, a5, a4, n] + S2[a1, a2, SP[a3, a4], SP[a5, a6], 
     n] - S2[a4, a5, n]*S2[a1, a3, a2, a6, n] - 
    S2[a4, a5, n]*S2[a1, a3, a6, a2, n] + S2[a1, a3, SP[a2, a4], SP[a5, a6], 
     n] + S2[a1, a3, SP[a4, a6], SP[a2, a5], n] + S2[a1, SP[a2, a4], a3, 
     SP[a5, a6], n] + S2[a1, SP[a2, a4], SP[a3, a5], a6, n] + 
    S2[a1, SP[a3, a4], a2, SP[a5, a6], n] + S2[a1, SP[a3, a4], a6, 
     SP[a2, a5], n] + S2[a1, SP[a3, a4], SP[a2, a5], a6, n] + 
    S2[a1, SP[a3, a4], SP[a5, a6], a2, n] - S2[a2, a1, SP[a3, a5], 
     SP[a4, a6], n] - S2[a2, SP[a1, a5], a3, SP[a4, a6], n] - 
    S2[a2, SP[a1, a5], SP[a3, a4], a6, n] - S2[SP[a1, a2], a3, a5, 
     SP[a4, a6], n] - S2[SP[a1, a2], a3, SP[a5, a6], a4, n] - 
    S2[SP[a1, a2], a5, a3, SP[a4, a6], n] - S2[SP[a1, a2], a5, SP[a3, a4], 
     a6, n] - S2[SP[a1, a2], SP[a3, a5], a4, a6, n] - 
    S2[SP[a1, a2], SP[a3, a5], a6, a4, n] + S2[SP[a1, a3], a2, a5, 
     SP[a4, a6], n] + S2[SP[a1, a3], a2, SP[a5, a6], a4, n] + 
    S2[SP[a1, a3], SP[a2, a6], a5, a4, n] + S2[SP[a1, a4], a2, a3, 
     SP[a5, a6], n] + S2[SP[a1, a4], a2, SP[a3, a5], a6, n] + 
    S2[SP[a1, a4], a3, a2, SP[a5, a6], n] + S2[SP[a1, a4], a3, a6, 
     SP[a2, a5], n] + S2[SP[a1, a4], a3, SP[a2, a5], a6, n] + 
    S2[SP[a1, a4], a3, SP[a5, a6], a2, n] + S2[SP[a1, a4], SP[a2, a5], a3, 
     a6, n] + S2[SP[a1, a4], SP[a3, a5], a2, a6, n] + 
    S2[SP[a1, a4], SP[a3, a5], a6, a2, n] - S2[a1, a2, a3, a4, SP[a5, a6], 
     n] - S2[a6, n]*S2[a1, a2, a3, a5, a4, n] + 
    S2[a4, n]*S2[a1, a2, a3, a5, a6, n] + 
    S2[a4, n]*S2[a1, a2, a3, a6, a5, n] + S2[a1, a2, a3, a6, SP[a4, a5], n] + 
    S2[a1, a2, a3, SP[a4, a5], a6, n] - S2[a1, a2, a3, SP[a5, a6], a4, n] - 
    S2[a1, a2, a4, a3, SP[a5, a6], n] - S2[a1, a2, a4, SP[a3, a5], a6, n] - 
    S2[a6, n]*S2[a1, a2, a5, a3, a4, n] + 
    S2[a4, n]*S2[a1, a2, a5, a3, a6, n] - 
    S2[a6, n]*S2[a1, a2, a5, a4, a3, n] + 
    S2[a3, n]*S2[a1, a2, a5, a4, a6, n] + 
    S2[a3, n]*S2[a1, a2, a5, a6, a4, n] + S2[a1, a2, a5, a6, SP[a3, a4], n] + 
    2*S2[a1, a2, a5, SP[a3, a4], a6, n] - S2[a1, a2, a5, SP[a4, a6], a3, n] + 
    S2[a3, n]*S2[a1, a2, a6, a5, a4, n] + S2[a1, a2, a6, a5, SP[a3, a4], n] + 
    S2[a1, a2, a6, SP[a3, a5], a4, n] + S2[a1, a2, SP[a3, a5], a4, a6, n] + 
    S2[a1, a2, SP[a3, a5], a6, a4, n] + S2[a1, a2, SP[a4, a5], a3, a6, n] - 
    S2[a1, a2, SP[a5, a6], a3, a4, n] - S2[a1, a2, SP[a5, a6], a4, a3, n] - 
    S2[a1, a3, a2, a4, SP[a5, a6], n] - S2[a6, n]*S2[a1, a3, a2, a5, a4, n] + 
    S2[a4, n]*S2[a1, a3, a2, a5, a6, n] + 
    S2[a4, n]*S2[a1, a3, a2, a6, a5, n] + S2[a1, a3, a2, a6, SP[a4, a5], n] + 
    S2[a1, a3, a2, SP[a4, a5], a6, n] - S2[a1, a3, a2, SP[a5, a6], a4, n] - 
    S2[a1, a3, a4, a2, SP[a5, a6], n] - S2[a1, a3, a4, a6, SP[a2, a5], n] - 
    S2[a1, a3, a4, SP[a2, a5], a6, n] - S2[a1, a3, a4, SP[a5, a6], a2, n] + 
    S2[a4, n]*S2[a1, a3, a5, a2, a6, n] + S2[a1, a3, a5, a2, SP[a4, a6], n] - 
    S2[a2, n]*S2[a1, a3, a5, a4, a6, n] - S2[a1, a3, a5, a4, SP[a2, a6], n] + 
    S2[a4, n]*S2[a1, a3, a5, a6, a2, n] - 
    S2[a2, n]*S2[a1, a3, a5, a6, a4, n] - S2[a1, a3, a5, SP[a2, a6], a4, n] + 
    S2[a1, a3, a5, SP[a4, a6], a2, n] + S2[a4, n]*S2[a1, a3, a6, a2, a5, n] + 
    S2[a1, a3, a6, a2, SP[a4, a5], n] - S2[a1, a3, a6, a4, SP[a2, a5], n] + 
    S2[a4, n]*S2[a1, a3, a6, a5, a2, n] - 
    S2[a2, n]*S2[a1, a3, a6, a5, a4, n] - S2[a1, a3, a6, SP[a2, a5], a4, n] + 
    S2[a1, a3, a6, SP[a4, a5], a2, n] - S2[a1, a3, SP[a2, a5], a4, a6, n] - 
    S2[a1, a3, SP[a2, a5], a6, a4, n] - 2*S2[a1, a3, SP[a2, a6], a5, a4, n] + 
    S2[a1, a3, SP[a4, a5], a2, a6, n] + S2[a1, a3, SP[a4, a5], a6, a2, n] - 
    S2[a1, a4, a2, a3, SP[a5, a6], n] - S2[a1, a4, a2, SP[a3, a5], a6, n] - 
    S2[a1, a4, a3, a2, SP[a5, a6], n] - S2[a1, a4, a3, a6, SP[a2, a5], n] - 
    S2[a1, a4, a3, SP[a2, a5], a6, n] - S2[a1, a4, a3, SP[a5, a6], a2, n] - 
    S2[a1, a4, SP[a2, a5], a3, a6, n] - S2[a1, a4, SP[a3, a5], a2, a6, n] - 
    S2[a1, a4, SP[a3, a5], a6, a2, n] + S2[a4, n]*S2[a1, a5, a2, a3, a6, n] + 
    S2[a1, a5, a2, a3, SP[a4, a6], n] + S2[a1, a5, a2, SP[a3, a4], a6, n] + 
    S2[a4, n]*S2[a1, a5, a3, a2, a6, n] + S2[a1, a5, a3, a2, SP[a4, a6], n] - 
    S2[a2, n]*S2[a1, a5, a3, a4, a6, n] - S2[a1, a5, a3, a4, SP[a2, a6], n] + 
    S2[a4, n]*S2[a1, a5, a3, a6, a2, n] - 
    S2[a2, n]*S2[a1, a5, a3, a6, a4, n] - S2[a1, a5, a3, SP[a2, a6], a4, n] + 
    S2[a1, a5, a3, SP[a4, a6], a2, n] - S2[a2, n]*S2[a1, a5, a4, a3, a6, n] - 
    S2[a1, a5, a4, a3, SP[a2, a6], n] - S2[a1, a5, a4, SP[a2, a3], a6, n] - 
    S2[a1, a5, SP[a2, a3], a4, a6, n] - S2[a1, a5, SP[a2, a3], a6, a4, n] + 
    S2[a1, a5, SP[a3, a4], a2, a6, n] + S2[a1, a5, SP[a3, a4], a6, a2, n] + 
    S2[a3, n]*S2[a1, a6, a2, a5, a4, n] + S2[a1, a6, a2, a5, SP[a3, a4], n] + 
    S2[a1, a6, a2, SP[a3, a5], a4, n] + S2[a1, a6, SP[a2, a3], a5, a4, n] - 
    S2[a1, SP[a2, a5], a3, a4, a6, n] - S2[a1, SP[a2, a5], a3, a6, a4, n] - 
    S2[a1, SP[a2, a5], a4, a3, a6, n] - S2[a1, SP[a2, a6], a3, a5, a4, n] - 
    S2[a1, SP[a2, a6], a5, a3, a4, n] - S2[a1, SP[a2, a6], a5, a4, a3, n] + 
    S2[a1, SP[a4, a5], a2, a3, a6, n] + S2[a1, SP[a4, a5], a3, a2, a6, n] + 
    S2[a1, SP[a4, a5], a3, a6, a2, n] + S2[a2, a1, a3, a5, SP[a4, a6], n] + 
    S2[a2, a1, a3, SP[a5, a6], a4, n] + S2[a2, a1, a5, a3, SP[a4, a6], n] + 
    S2[a2, a1, a5, SP[a3, a4], a6, n] + S2[a2, a1, SP[a3, a5], a4, a6, n] + 
    S2[a2, a1, SP[a3, a5], a6, a4, n] - S2[a4, n]*S2[a2, a5, a1, a3, a6, n] + 
    S2[a2, SP[a1, a5], a3, a4, a6, n] + S2[a2, SP[a1, a5], a3, a6, a4, n] + 
    S2[a2, SP[a1, a5], a4, a3, a6, n] - S2[a2, SP[a4, a5], a1, a3, a6, n] - 
    S2[a3, a1, a2, a5, SP[a4, a6], n] - S2[a3, a1, a2, SP[a5, a6], a4, n] - 
    S2[a3, a1, SP[a2, a6], a5, a4, n] - S2[a3, SP[a1, a6], a2, a5, a4, n] - 
    S2[a4, a1, a2, a3, SP[a5, a6], n] - S2[a4, a1, a2, SP[a3, a5], a6, n] - 
    S2[a4, a1, a3, a2, SP[a5, a6], n] - S2[a4, a1, a3, a6, SP[a2, a5], n] - 
    S2[a4, a1, a3, SP[a2, a5], a6, n] - S2[a4, a1, a3, SP[a5, a6], a2, n] - 
    S2[a4, a1, SP[a2, a5], a3, a6, n] - S2[a4, a1, SP[a3, a5], a2, a6, n] - 
    S2[a4, a1, SP[a3, a5], a6, a2, n] + S2[a2, n]*S2[a4, a5, a1, a3, a6, n] + 
    S2[a4, a5, a1, a3, SP[a2, a6], n] + S2[a4, a5, a1, SP[a2, a3], a6, n] + 
    S2[a4, a5, SP[a1, a2], a3, a6, n] - S2[a4, SP[a1, a5], a2, a3, a6, n] - 
    S2[a4, SP[a1, a5], a3, a2, a6, n] - S2[a4, SP[a1, a5], a3, a6, a2, n] + 
    S2[a4, SP[a2, a5], a1, a3, a6, n] + S2[a3, n]*S2[a6, a1, a2, a5, a4, n] + 
    S2[a6, a1, a2, a5, SP[a3, a4], n] + S2[a6, a1, a2, SP[a3, a5], a4, n] + 
    S2[a6, a1, SP[a2, a3], a5, a4, n] + S2[a6, SP[a1, a3], a2, a5, a4, n] - 
    S2[SP[a1, a6], a2, a3, a5, a4, n] - S2[SP[a1, a6], a2, a5, a3, a4, n] - 
    S2[SP[a1, a6], a2, a5, a4, a3, n] - S2[SP[a1, a6], a3, a2, a5, a4, n] + 
    S2[SP[a3, a6], a1, a2, a5, a4, n] - S2[a6, a3, a1, a2, a5, a4, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a4_, a5_, a2_, a1_, a6_, a3_, n_] :> 
  S2[a1, a6, a3, n]*S2[a2, a5, a4, n] + S2[SP[a1, a2], SP[a5, a6], 
     SP[a3, a4], n] + S2[a3, a6, n]*S2[a1, a2, a5, a4, n] - 
    S2[a4, a5, n]*S2[a1, a2, a6, a3, n] - S2[a1, a2, SP[a3, a5], SP[a4, a6], 
     n] + S2[a1, a2, SP[a4, a6], SP[a3, a5], n] - S2[a1, a2, SP[a5, a6], 
     SP[a3, a4], n] - S2[a4, a5, n]*S2[a1, a6, a2, a3, n] - 
    S2[a4, a5, n]*S2[a1, a6, a3, a2, n] + S2[a1, a6, SP[a2, a4], SP[a3, a5], 
     n] + S2[a1, a6, SP[a3, a4], SP[a2, a5], n] - S2[a1, SP[a2, a3], a5, 
     SP[a4, a6], n] - S2[a1, SP[a2, a3], SP[a5, a6], a4, n] + 
    S2[a1, SP[a2, a4], a6, SP[a3, a5], n] + S2[a1, SP[a2, a4], SP[a5, a6], 
     a3, n] - S2[a1, SP[a2, a6], a5, SP[a3, a4], n] - 
    S2[a1, SP[a2, a6], SP[a3, a5], a4, n] + S2[a1, SP[a4, a6], a2, 
     SP[a3, a5], n] + S2[a1, SP[a4, a6], a3, SP[a2, a5], n] + 
    S2[a1, SP[a4, a6], SP[a2, a5], a3, n] + S2[a1, SP[a4, a6], SP[a3, a5], 
     a2, n] - S2[a2, a1, SP[a5, a6], SP[a3, a4], n] - 
    S2[a2, SP[a1, a5], a6, SP[a3, a4], n] - S2[a2, SP[a1, a5], SP[a4, a6], 
     a3, n] - S2[SP[a1, a2], a5, a6, SP[a3, a4], n] - 
    S2[SP[a1, a2], a5, SP[a4, a6], a3, n] - S2[SP[a1, a2], a6, a5, 
     SP[a3, a4], n] - S2[SP[a1, a2], a6, SP[a3, a5], a4, n] - 
    S2[SP[a1, a2], SP[a5, a6], a3, a4, n] - S2[SP[a1, a2], SP[a5, a6], a4, 
     a3, n] - S2[SP[a1, a3], a2, a5, SP[a4, a6], n] - 
    S2[SP[a1, a3], a2, SP[a5, a6], a4, n] - S2[SP[a1, a3], SP[a2, a6], a5, 
     a4, n] + S2[SP[a1, a4], a2, a6, SP[a3, a5], n] + 
    S2[SP[a1, a4], a2, SP[a5, a6], a3, n] + S2[SP[a1, a4], a6, a2, 
     SP[a3, a5], n] + S2[SP[a1, a4], a6, a3, SP[a2, a5], n] + 
    S2[SP[a1, a4], a6, SP[a2, a5], a3, n] + S2[SP[a1, a4], a6, SP[a3, a5], 
     a2, n] + S2[SP[a1, a4], SP[a2, a5], a6, a3, n] + 
    S2[SP[a1, a4], SP[a5, a6], a2, a3, n] + S2[SP[a1, a4], SP[a5, a6], a3, 
     a2, n] + S2[a1, a2, a3, a5, SP[a4, a6], n] + S2[a1, a2, a3, SP[a5, a6], 
     a4, n] - S2[a1, a2, a4, a6, SP[a3, a5], n] - S2[a1, a2, a4, SP[a5, a6], 
     a3, n] + S2[a1, a2, a5, a3, SP[a4, a6], n] - 
    S2[a3, n]*S2[a1, a2, a5, a4, a6, n] - S2[a1, a2, a5, a4, SP[a3, a6], n] + 
    S2[a4, n]*S2[a1, a2, a5, a6, a3, n] - 
    S2[a3, n]*S2[a1, a2, a5, a6, a4, n] + S2[a1, a2, a5, a6, SP[a3, a4], n] - 
    S2[a1, a2, a5, SP[a3, a6], a4, n] + 2*S2[a1, a2, a5, SP[a4, a6], a3, n] + 
    S2[a4, n]*S2[a1, a2, a6, a3, a5, n] + S2[a1, a2, a6, a3, SP[a4, a5], n] - 
    S2[a1, a2, a6, a4, SP[a3, a5], n] + S2[a4, n]*S2[a1, a2, a6, a5, a3, n] - 
    S2[a3, n]*S2[a1, a2, a6, a5, a4, n] + S2[a1, a2, a6, a5, SP[a3, a4], n] + 
    S2[a1, a2, a6, SP[a4, a5], a3, n] - S2[a1, a2, SP[a3, a6], a5, a4, n] + 
    S2[a1, a2, SP[a4, a5], a6, a3, n] + S2[a1, a2, SP[a5, a6], a3, a4, n] + 
    S2[a1, a2, SP[a5, a6], a4, a3, n] + S2[a1, a3, a2, a5, SP[a4, a6], n] + 
    S2[a1, a3, a2, SP[a5, a6], a4, n] + S2[a1, a3, SP[a2, a6], a5, a4, n] - 
    S2[a1, a4, a2, a6, SP[a3, a5], n] - S2[a1, a4, a2, SP[a5, a6], a3, n] - 
    S2[a1, a4, a6, a2, SP[a3, a5], n] - S2[a1, a4, a6, a3, SP[a2, a5], n] - 
    S2[a1, a4, a6, SP[a2, a5], a3, n] - S2[a1, a4, a6, SP[a3, a5], a2, n] - 
    S2[a1, a4, SP[a2, a5], a6, a3, n] - S2[a1, a4, SP[a5, a6], a2, a3, n] - 
    S2[a1, a4, SP[a5, a6], a3, a2, n] + S2[a4, n]*S2[a1, a5, a2, a6, a3, n] + 
    S2[a1, a5, a2, a6, SP[a3, a4], n] + S2[a1, a5, a2, SP[a4, a6], a3, n] - 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] - S2[a1, a5, a4, a6, SP[a2, a3], n] - 
    S2[a1, a5, a4, SP[a2, a6], a3, n] + S2[a4, n]*S2[a1, a5, a6, a2, a3, n] + 
    S2[a1, a5, a6, a2, SP[a3, a4], n] + S2[a4, n]*S2[a1, a5, a6, a3, a2, n] - 
    S2[a2, n]*S2[a1, a5, a6, a3, a4, n] - 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] - S2[a1, a5, a6, a4, SP[a2, a3], n] - 
    S2[a1, a5, a6, SP[a2, a3], a4, n] + S2[a1, a5, a6, SP[a3, a4], a2, n] - 
    S2[a1, a5, SP[a2, a6], a3, a4, n] - S2[a1, a5, SP[a2, a6], a4, a3, n] + 
    S2[a1, a5, SP[a4, a6], a2, a3, n] + S2[a1, a5, SP[a4, a6], a3, a2, n] + 
    S2[a4, n]*S2[a1, a6, a2, a3, a5, n] + S2[a1, a6, a2, a3, SP[a4, a5], n] - 
    S2[a1, a6, a2, a4, SP[a3, a5], n] + S2[a4, n]*S2[a1, a6, a2, a5, a3, n] - 
    S2[a3, n]*S2[a1, a6, a2, a5, a4, n] + S2[a1, a6, a2, a5, SP[a3, a4], n] + 
    S2[a1, a6, a2, SP[a4, a5], a3, n] + S2[a4, n]*S2[a1, a6, a3, a2, a5, n] + 
    S2[a1, a6, a3, a2, SP[a4, a5], n] - S2[a1, a6, a3, a4, SP[a2, a5], n] + 
    S2[a4, n]*S2[a1, a6, a3, a5, a2, n] - 
    S2[a2, n]*S2[a1, a6, a3, a5, a4, n] - S2[a1, a6, a3, SP[a2, a5], a4, n] + 
    S2[a1, a6, a3, SP[a4, a5], a2, n] - S2[a1, a6, a4, a2, SP[a3, a5], n] - 
    S2[a1, a6, a4, a3, SP[a2, a5], n] - S2[a1, a6, a4, SP[a2, a5], a3, n] - 
    S2[a1, a6, a4, SP[a3, a5], a2, n] + S2[a4, n]*S2[a1, a6, a5, a2, a3, n] + 
    S2[a1, a6, a5, a2, SP[a3, a4], n] + S2[a4, n]*S2[a1, a6, a5, a3, a2, n] - 
    S2[a2, n]*S2[a1, a6, a5, a3, a4, n] - 
    S2[a2, n]*S2[a1, a6, a5, a4, a3, n] - S2[a1, a6, a5, a4, SP[a2, a3], n] - 
    S2[a1, a6, a5, SP[a2, a3], a4, n] + S2[a1, a6, a5, SP[a3, a4], a2, n] - 
    S2[a1, a6, SP[a2, a3], a5, a4, n] - S2[a1, a6, SP[a2, a5], a3, a4, n] - 
    S2[a1, a6, SP[a2, a5], a4, a3, n] + S2[a1, a6, SP[a4, a5], a2, a3, n] + 
    S2[a1, a6, SP[a4, a5], a3, a2, n] - S2[a1, SP[a2, a5], a4, a6, a3, n] - 
    S2[a1, SP[a2, a5], a6, a3, a4, n] - S2[a1, SP[a2, a5], a6, a4, a3, n] - 
    S2[a1, SP[a3, a6], a2, a5, a4, n] + S2[a1, SP[a4, a5], a2, a6, a3, n] + 
    S2[a1, SP[a4, a5], a6, a2, a3, n] + S2[a1, SP[a4, a5], a6, a3, a2, n] + 
    S2[a2, a1, a5, a6, SP[a3, a4], n] + S2[a2, a1, a5, SP[a4, a6], a3, n] + 
    S2[a2, a1, a6, a5, SP[a3, a4], n] + S2[a2, a1, a6, SP[a3, a5], a4, n] + 
    S2[a2, a1, SP[a5, a6], a3, a4, n] + S2[a2, a1, SP[a5, a6], a4, a3, n] - 
    S2[a4, n]*S2[a2, a5, a1, a6, a3, n] + S2[a2, SP[a1, a5], a4, a6, a3, n] + 
    S2[a2, SP[a1, a5], a6, a3, a4, n] + S2[a2, SP[a1, a5], a6, a4, a3, n] - 
    S2[a2, SP[a4, a5], a1, a6, a3, n] + S2[a3, a1, a2, a5, SP[a4, a6], n] + 
    S2[a3, a1, a2, SP[a5, a6], a4, n] + S2[a3, a1, SP[a2, a6], a5, a4, n] + 
    S2[a3, SP[a1, a6], a2, a5, a4, n] - S2[a4, a1, a2, a6, SP[a3, a5], n] - 
    S2[a4, a1, a2, SP[a5, a6], a3, n] - S2[a4, a1, a6, a2, SP[a3, a5], n] - 
    S2[a4, a1, a6, a3, SP[a2, a5], n] - S2[a4, a1, a6, SP[a2, a5], a3, n] - 
    S2[a4, a1, a6, SP[a3, a5], a2, n] - S2[a4, a1, SP[a2, a5], a6, a3, n] - 
    S2[a4, a1, SP[a5, a6], a2, a3, n] - S2[a4, a1, SP[a5, a6], a3, a2, n] + 
    S2[a2, n]*S2[a4, a5, a1, a6, a3, n] + S2[a4, a5, a1, a6, SP[a2, a3], n] + 
    S2[a4, a5, a1, SP[a2, a6], a3, n] + S2[a4, a5, SP[a1, a2], a6, a3, n] - 
    S2[a4, SP[a1, a5], a2, a6, a3, n] - S2[a4, SP[a1, a5], a6, a2, a3, n] - 
    S2[a4, SP[a1, a5], a6, a3, a2, n] + S2[a4, SP[a2, a5], a1, a6, a3, n] - 
    S2[a3, n]*S2[a6, a1, a2, a5, a4, n] - S2[a6, a1, a2, a5, SP[a3, a4], n] - 
    S2[a6, a1, a2, SP[a3, a5], a4, n] - S2[a6, a1, SP[a2, a3], a5, a4, n] - 
    S2[a6, SP[a1, a3], a2, a5, a4, n] - S2[SP[a3, a6], a1, a2, a5, a4, n] + 
    S2[a6, a1, a2, a3, a5, a4, n] + S2[a6, a1, a2, a5, a3, a4, n] + 
    S2[a6, a1, a2, a5, a4, a3, n] + S2[a6, a1, a3, a2, a5, a4, n] + 
    S2[a6, a3, a1, a2, a5, a4, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a4_, a5_, a2_, a3_, a1_, a6_, n_] :> 
  -(S2[a1, a3, a6, n]*S2[a2, a5, a4, n]) - S2[a1, a6, a3, n]*
     S2[a2, a5, a4, n] - S2[SP[a1, a2], SP[a3, a5], SP[a4, a6], n] - 
    S2[SP[a1, a2], SP[a5, a6], SP[a3, a4], n] + S2[a1, a2, SP[a3, a5], 
     SP[a4, a6], n] + S2[a1, a2, SP[a5, a6], SP[a3, a4], n] + 
    S2[a4, a5, n]*S2[a1, a3, a2, a6, n] + S2[a4, a5, n]*
     S2[a1, a3, a6, a2, n] - S2[a1, a3, SP[a2, a4], SP[a5, a6], n] - 
    S2[a1, a3, SP[a4, a6], SP[a2, a5], n] + S2[a4, a5, n]*
     S2[a1, a6, a3, a2, n] - S2[a1, a6, SP[a3, a4], SP[a2, a5], n] + 
    S2[a1, SP[a2, a3], a5, SP[a4, a6], n] + S2[a1, SP[a2, a3], SP[a5, a6], 
     a4, n] + S2[a1, SP[a2, a6], a5, SP[a3, a4], n] + 
    S2[a1, SP[a2, a6], SP[a3, a5], a4, n] - S2[a1, SP[a3, a4], a2, 
     SP[a5, a6], n] - S2[a1, SP[a3, a4], a6, SP[a2, a5], n] - 
    S2[a1, SP[a3, a4], SP[a2, a5], a6, n] - S2[a1, SP[a3, a4], SP[a5, a6], 
     a2, n] - S2[a1, SP[a4, a6], a3, SP[a2, a5], n] - 
    S2[a1, SP[a4, a6], SP[a3, a5], a2, n] + S2[a2, a1, SP[a3, a5], 
     SP[a4, a6], n] + S2[a2, a1, SP[a5, a6], SP[a3, a4], n] + 
    S2[a2, SP[a1, a5], a3, SP[a4, a6], n] + S2[a2, SP[a1, a5], a6, 
     SP[a3, a4], n] + S2[a2, SP[a1, a5], SP[a3, a4], a6, n] + 
    S2[a2, SP[a1, a5], SP[a4, a6], a3, n] + S2[a1, a6, n]*
     S2[a4, a5, a2, a3, n] - S2[a4, a5, SP[a1, a2], SP[a3, a6], n] - 
    S2[a4, SP[a1, a5], a2, SP[a3, a6], n] - S2[a4, SP[a1, a5], SP[a2, a6], 
     a3, n] + S2[SP[a1, a2], a3, a5, SP[a4, a6], n] + 
    S2[SP[a1, a2], a3, SP[a5, a6], a4, n] + S2[SP[a1, a2], a5, a3, 
     SP[a4, a6], n] + S2[SP[a1, a2], a5, a6, SP[a3, a4], n] + 
    S2[SP[a1, a2], a5, SP[a3, a4], a6, n] + S2[SP[a1, a2], a5, SP[a4, a6], 
     a3, n] + S2[SP[a1, a2], a6, a5, SP[a3, a4], n] + 
    S2[SP[a1, a2], a6, SP[a3, a5], a4, n] + S2[SP[a1, a2], SP[a3, a5], a4, 
     a6, n] + S2[SP[a1, a2], SP[a3, a5], a6, a4, n] + 
    S2[SP[a1, a2], SP[a5, a6], a3, a4, n] + S2[SP[a1, a2], SP[a5, a6], a4, 
     a3, n] - S2[SP[a1, a4], a3, a2, SP[a5, a6], n] - 
    S2[SP[a1, a4], a3, a6, SP[a2, a5], n] - S2[SP[a1, a4], a3, SP[a2, a5], 
     a6, n] - S2[SP[a1, a4], a3, SP[a5, a6], a2, n] - 
    S2[SP[a1, a4], a5, a2, SP[a3, a6], n] - S2[SP[a1, a4], a5, SP[a2, a6], 
     a3, n] - S2[SP[a1, a4], a6, a3, SP[a2, a5], n] - 
    S2[SP[a1, a4], a6, SP[a3, a5], a2, n] - S2[SP[a1, a4], SP[a3, a5], a2, 
     a6, n] - S2[SP[a1, a4], SP[a3, a5], a6, a2, n] - 
    S2[SP[a1, a4], SP[a5, a6], a2, a3, n] - S2[SP[a1, a4], SP[a5, a6], a3, 
     a2, n] - S2[a1, a2, a3, a5, SP[a4, a6], n] - S2[a1, a2, a3, SP[a5, a6], 
     a4, n] - S2[a1, a2, a5, a3, SP[a4, a6], n] - 
    S2[a1, a2, a5, a6, SP[a3, a4], n] - S2[a1, a2, a5, SP[a3, a4], a6, n] - 
    S2[a1, a2, a5, SP[a4, a6], a3, n] - S2[a1, a2, a6, a5, SP[a3, a4], n] - 
    S2[a1, a2, a6, SP[a3, a5], a4, n] - S2[a1, a2, SP[a3, a5], a4, a6, n] - 
    S2[a1, a2, SP[a3, a5], a6, a4, n] - S2[a1, a2, SP[a5, a6], a3, a4, n] - 
    S2[a1, a2, SP[a5, a6], a4, a3, n] + S2[a1, a3, a2, a4, SP[a5, a6], n] + 
    S2[a6, n]*S2[a1, a3, a2, a5, a4, n] - 
    S2[a4, n]*S2[a1, a3, a2, a5, a6, n] - S2[a1, a3, a2, a5, SP[a4, a6], n] - 
    S2[a4, n]*S2[a1, a3, a2, a6, a5, n] - S2[a1, a3, a2, a6, SP[a4, a5], n] - 
    S2[a1, a3, a2, SP[a4, a5], a6, n] + S2[a1, a3, a4, a2, SP[a5, a6], n] + 
    S2[a1, a3, a4, a6, SP[a2, a5], n] + S2[a1, a3, a4, SP[a2, a5], a6, n] + 
    S2[a1, a3, a4, SP[a5, a6], a2, n] - S2[a4, n]*S2[a1, a3, a5, a2, a6, n] - 
    S2[a1, a3, a5, a2, SP[a4, a6], n] + S2[a2, n]*S2[a1, a3, a5, a4, a6, n] + 
    S2[a1, a3, a5, a4, SP[a2, a6], n] - S2[a4, n]*S2[a1, a3, a5, a6, a2, n] + 
    S2[a2, n]*S2[a1, a3, a5, a6, a4, n] + S2[a1, a3, a5, SP[a2, a6], a4, n] - 
    S2[a1, a3, a5, SP[a4, a6], a2, n] - S2[a4, n]*S2[a1, a3, a6, a2, a5, n] - 
    S2[a1, a3, a6, a2, SP[a4, a5], n] + S2[a1, a3, a6, a4, SP[a2, a5], n] - 
    S2[a4, n]*S2[a1, a3, a6, a5, a2, n] + 
    S2[a2, n]*S2[a1, a3, a6, a5, a4, n] + S2[a1, a3, a6, SP[a2, a5], a4, n] - 
    S2[a1, a3, a6, SP[a4, a5], a2, n] + S2[a1, a3, SP[a2, a5], a4, a6, n] + 
    S2[a1, a3, SP[a2, a5], a6, a4, n] + S2[a1, a3, SP[a2, a6], a5, a4, n] - 
    S2[a1, a3, SP[a4, a5], a2, a6, n] - S2[a1, a3, SP[a4, a5], a6, a2, n] + 
    S2[a1, a4, a3, a2, SP[a5, a6], n] + S2[a1, a4, a3, a6, SP[a2, a5], n] + 
    S2[a1, a4, a3, SP[a2, a5], a6, n] + S2[a1, a4, a3, SP[a5, a6], a2, n] + 
    S2[a1, a4, a5, a2, SP[a3, a6], n] + S2[a1, a4, a5, SP[a2, a6], a3, n] + 
    S2[a1, a4, a6, a3, SP[a2, a5], n] + S2[a1, a4, a6, SP[a3, a5], a2, n] + 
    S2[a1, a4, SP[a3, a5], a2, a6, n] + S2[a1, a4, SP[a3, a5], a6, a2, n] + 
    S2[a1, a4, SP[a5, a6], a2, a3, n] + S2[a1, a4, SP[a5, a6], a3, a2, n] - 
    S2[a4, n]*S2[a1, a5, a2, a3, a6, n] - S2[a1, a5, a2, a3, SP[a4, a6], n] - 
    S2[a4, n]*S2[a1, a5, a2, a6, a3, n] - S2[a1, a5, a2, a6, SP[a3, a4], n] - 
    S2[a1, a5, a2, SP[a3, a4], a6, n] - S2[a1, a5, a2, SP[a4, a6], a3, n] - 
    S2[a4, n]*S2[a1, a5, a3, a2, a6, n] - S2[a1, a5, a3, a2, SP[a4, a6], n] + 
    S2[a2, n]*S2[a1, a5, a3, a4, a6, n] + S2[a1, a5, a3, a4, SP[a2, a6], n] - 
    S2[a4, n]*S2[a1, a5, a3, a6, a2, n] + 
    S2[a2, n]*S2[a1, a5, a3, a6, a4, n] + S2[a1, a5, a3, SP[a2, a6], a4, n] - 
    S2[a1, a5, a3, SP[a4, a6], a2, n] + S2[a2, n]*S2[a1, a5, a4, a3, a6, n] + 
    S2[a1, a5, a4, a3, SP[a2, a6], n] + S2[a2, n]*S2[a1, a5, a4, a6, a3, n] + 
    S2[a1, a5, a4, a6, SP[a2, a3], n] + S2[a1, a5, a4, SP[a2, a3], a6, n] + 
    S2[a1, a5, a4, SP[a2, a6], a3, n] - S2[a4, n]*S2[a1, a5, a6, a2, a3, n] - 
    S2[a1, a5, a6, a2, SP[a3, a4], n] - S2[a4, n]*S2[a1, a5, a6, a3, a2, n] + 
    S2[a2, n]*S2[a1, a5, a6, a3, a4, n] + 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] + S2[a1, a5, a6, a4, SP[a2, a3], n] + 
    S2[a1, a5, a6, SP[a2, a3], a4, n] - S2[a1, a5, a6, SP[a3, a4], a2, n] + 
    S2[a1, a5, SP[a2, a3], a4, a6, n] + S2[a1, a5, SP[a2, a3], a6, a4, n] + 
    S2[a1, a5, SP[a2, a6], a3, a4, n] + S2[a1, a5, SP[a2, a6], a4, a3, n] - 
    S2[a1, a5, SP[a3, a4], a2, a6, n] - S2[a1, a5, SP[a3, a4], a6, a2, n] - 
    S2[a1, a5, SP[a4, a6], a2, a3, n] - S2[a1, a5, SP[a4, a6], a3, a2, n] - 
    S2[a1, a6, a2, a5, SP[a3, a4], n] - S2[a1, a6, a2, SP[a3, a5], a4, n] - 
    S2[a4, n]*S2[a1, a6, a3, a2, a5, n] - S2[a1, a6, a3, a2, SP[a4, a5], n] + 
    S2[a1, a6, a3, a4, SP[a2, a5], n] - S2[a4, n]*S2[a1, a6, a3, a5, a2, n] + 
    S2[a2, n]*S2[a1, a6, a3, a5, a4, n] + S2[a1, a6, a3, SP[a2, a5], a4, n] - 
    S2[a1, a6, a3, SP[a4, a5], a2, n] + S2[a1, a6, a4, a3, SP[a2, a5], n] + 
    S2[a1, a6, a4, SP[a3, a5], a2, n] - S2[a4, n]*S2[a1, a6, a5, a2, a3, n] - 
    S2[a1, a6, a5, a2, SP[a3, a4], n] - S2[a4, n]*S2[a1, a6, a5, a3, a2, n] + 
    S2[a2, n]*S2[a1, a6, a5, a3, a4, n] + 
    S2[a2, n]*S2[a1, a6, a5, a4, a3, n] + S2[a1, a6, a5, a4, SP[a2, a3], n] + 
    S2[a1, a6, a5, SP[a2, a3], a4, n] - S2[a1, a6, a5, SP[a3, a4], a2, n] + 
    S2[a1, a6, SP[a2, a5], a3, a4, n] + S2[a1, a6, SP[a2, a5], a4, a3, n] - 
    S2[a1, a6, SP[a4, a5], a2, a3, n] - S2[a1, a6, SP[a4, a5], a3, a2, n] + 
    S2[a1, SP[a2, a5], a3, a4, a6, n] + S2[a1, SP[a2, a5], a3, a6, a4, n] + 
    S2[a1, SP[a2, a5], a4, a3, a6, n] + S2[a1, SP[a2, a5], a4, a6, a3, n] + 
    S2[a1, SP[a2, a5], a6, a3, a4, n] + S2[a1, SP[a2, a5], a6, a4, a3, n] + 
    S2[a1, SP[a3, a6], a2, a5, a4, n] - S2[a1, SP[a4, a5], a2, a3, a6, n] - 
    S2[a1, SP[a4, a5], a2, a6, a3, n] - S2[a1, SP[a4, a5], a3, a2, a6, n] - 
    S2[a1, SP[a4, a5], a3, a6, a2, n] - S2[a1, SP[a4, a5], a6, a2, a3, n] - 
    S2[a1, SP[a4, a5], a6, a3, a2, n] - S2[a2, a1, a3, a5, SP[a4, a6], n] - 
    S2[a2, a1, a3, SP[a5, a6], a4, n] - S2[a2, a1, a5, a3, SP[a4, a6], n] - 
    S2[a2, a1, a5, a6, SP[a3, a4], n] - S2[a2, a1, a5, SP[a3, a4], a6, n] - 
    S2[a2, a1, a5, SP[a4, a6], a3, n] - S2[a2, a1, a6, a5, SP[a3, a4], n] - 
    S2[a2, a1, a6, SP[a3, a5], a4, n] - S2[a2, a1, SP[a3, a5], a4, a6, n] - 
    S2[a2, a1, SP[a3, a5], a6, a4, n] - S2[a2, a1, SP[a5, a6], a3, a4, n] - 
    S2[a2, a1, SP[a5, a6], a4, a3, n] + S2[a4, n]*S2[a2, a5, a1, a3, a6, n] + 
    S2[a4, n]*S2[a2, a5, a1, a6, a3, n] - S2[a2, SP[a1, a5], a3, a4, a6, n] - 
    S2[a2, SP[a1, a5], a3, a6, a4, n] - S2[a2, SP[a1, a5], a4, a3, a6, n] - 
    S2[a2, SP[a1, a5], a4, a6, a3, n] - S2[a2, SP[a1, a5], a6, a3, a4, n] - 
    S2[a2, SP[a1, a5], a6, a4, a3, n] + S2[a2, SP[a4, a5], a1, a3, a6, n] + 
    S2[a2, SP[a4, a5], a1, a6, a3, n] + S2[a4, a1, a3, a2, SP[a5, a6], n] + 
    S2[a4, a1, a3, a6, SP[a2, a5], n] + S2[a4, a1, a3, SP[a2, a5], a6, n] + 
    S2[a4, a1, a3, SP[a5, a6], a2, n] + S2[a4, a1, a5, a2, SP[a3, a6], n] + 
    S2[a4, a1, a5, SP[a2, a6], a3, n] + S2[a4, a1, a6, a3, SP[a2, a5], n] + 
    S2[a4, a1, a6, SP[a3, a5], a2, n] + S2[a4, a1, SP[a3, a5], a2, a6, n] + 
    S2[a4, a1, SP[a3, a5], a6, a2, n] + S2[a4, a1, SP[a5, a6], a2, a3, n] + 
    S2[a4, a1, SP[a5, a6], a3, a2, n] + S2[a4, a5, a1, a2, SP[a3, a6], n] - 
    S2[a2, n]*S2[a4, a5, a1, a3, a6, n] - S2[a4, a5, a1, a3, SP[a2, a6], n] - 
    S2[a2, n]*S2[a4, a5, a1, a6, a3, n] - S2[a4, a5, a1, a6, SP[a2, a3], n] - 
    S2[a4, a5, a1, SP[a2, a3], a6, n] + S2[a4, a5, a2, a1, SP[a3, a6], n] + 
    S2[a4, a5, a2, SP[a1, a3], a6, n] + S2[a4, SP[a1, a5], a2, a3, a6, n] + 
    S2[a4, SP[a1, a5], a2, a6, a3, n] + S2[a4, SP[a1, a5], a3, a2, a6, n] + 
    S2[a4, SP[a1, a5], a3, a6, a2, n] + S2[a4, SP[a1, a5], a6, a2, a3, n] + 
    S2[a4, SP[a1, a5], a6, a3, a2, n] - S2[a4, SP[a2, a5], a1, a3, a6, n] - 
    S2[a4, SP[a2, a5], a1, a6, a3, n] + S2[SP[a1, a6], a3, a2, a5, a4, n] - 
    S2[a6, a1, a3, a2, a5, a4, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a4_, a5_, a2_, a3_, a6_, a1_, n_] :> 
  S2[a1, a6, a3, n]*S2[a2, a5, a4, n] + S2[SP[a1, a2], SP[a5, a6], 
     SP[a3, a4], n] - S2[a1, a2, SP[a5, a6], SP[a3, a4], n] - 
    S2[a4, a5, n]*S2[a1, a6, a3, a2, n] + S2[a1, a6, SP[a3, a4], SP[a2, a5], 
     n] - S2[a1, SP[a2, a6], a5, SP[a3, a4], n] - 
    S2[a1, SP[a2, a6], SP[a3, a5], a4, n] + S2[a1, SP[a4, a6], a3, 
     SP[a2, a5], n] + S2[a1, SP[a4, a6], SP[a3, a5], a2, n] - 
    S2[a2, a1, SP[a5, a6], SP[a3, a4], n] - S2[a2, SP[a1, a5], a6, 
     SP[a3, a4], n] - S2[a2, SP[a1, a5], SP[a4, a6], a3, n] - 
    S2[a1, a6, n]*S2[a4, a5, a2, a3, n] + S2[a4, a5, SP[a1, a2], SP[a3, a6], 
     n] + S2[a4, SP[a1, a5], a2, SP[a3, a6], n] + 
    S2[a4, SP[a1, a5], SP[a2, a6], a3, n] - S2[SP[a1, a2], a5, a6, 
     SP[a3, a4], n] - S2[SP[a1, a2], a5, SP[a4, a6], a3, n] - 
    S2[SP[a1, a2], a6, a5, SP[a3, a4], n] - S2[SP[a1, a2], a6, SP[a3, a5], 
     a4, n] - S2[SP[a1, a2], SP[a5, a6], a3, a4, n] - 
    S2[SP[a1, a2], SP[a5, a6], a4, a3, n] + S2[SP[a1, a4], a5, a2, 
     SP[a3, a6], n] + S2[SP[a1, a4], a5, SP[a2, a6], a3, n] + 
    S2[SP[a1, a4], a6, a3, SP[a2, a5], n] + S2[SP[a1, a4], a6, SP[a3, a5], 
     a2, n] + S2[SP[a1, a4], SP[a5, a6], a2, a3, n] + 
    S2[SP[a1, a4], SP[a5, a6], a3, a2, n] + S2[a1, a2, a5, a6, SP[a3, a4], 
     n] + S2[a1, a2, a5, SP[a4, a6], a3, n] + S2[a1, a2, a6, a5, SP[a3, a4], 
     n] + S2[a1, a2, a6, SP[a3, a5], a4, n] + S2[a1, a2, SP[a5, a6], a3, a4, 
     n] + S2[a1, a2, SP[a5, a6], a4, a3, n] - S2[a1, a4, a5, a2, SP[a3, a6], 
     n] - S2[a1, a4, a5, SP[a2, a6], a3, n] - S2[a1, a4, a6, a3, SP[a2, a5], 
     n] - S2[a1, a4, a6, SP[a3, a5], a2, n] - S2[a1, a4, SP[a5, a6], a2, a3, 
     n] - S2[a1, a4, SP[a5, a6], a3, a2, n] + 
    S2[a4, n]*S2[a1, a5, a2, a6, a3, n] + S2[a1, a5, a2, a6, SP[a3, a4], n] + 
    S2[a1, a5, a2, SP[a4, a6], a3, n] - S2[a2, n]*S2[a1, a5, a4, a6, a3, n] - 
    S2[a1, a5, a4, a6, SP[a2, a3], n] - S2[a1, a5, a4, SP[a2, a6], a3, n] + 
    S2[a4, n]*S2[a1, a5, a6, a2, a3, n] + S2[a1, a5, a6, a2, SP[a3, a4], n] + 
    S2[a4, n]*S2[a1, a5, a6, a3, a2, n] - 
    S2[a2, n]*S2[a1, a5, a6, a3, a4, n] - 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] - S2[a1, a5, a6, a4, SP[a2, a3], n] - 
    S2[a1, a5, a6, SP[a2, a3], a4, n] + S2[a1, a5, a6, SP[a3, a4], a2, n] - 
    S2[a1, a5, SP[a2, a6], a3, a4, n] - S2[a1, a5, SP[a2, a6], a4, a3, n] + 
    S2[a1, a5, SP[a4, a6], a2, a3, n] + S2[a1, a5, SP[a4, a6], a3, a2, n] + 
    S2[a1, a6, a2, a5, SP[a3, a4], n] + S2[a1, a6, a2, SP[a3, a5], a4, n] + 
    S2[a4, n]*S2[a1, a6, a3, a2, a5, n] + S2[a1, a6, a3, a2, SP[a4, a5], n] - 
    S2[a1, a6, a3, a4, SP[a2, a5], n] + S2[a4, n]*S2[a1, a6, a3, a5, a2, n] - 
    S2[a2, n]*S2[a1, a6, a3, a5, a4, n] - S2[a1, a6, a3, SP[a2, a5], a4, n] + 
    S2[a1, a6, a3, SP[a4, a5], a2, n] - S2[a1, a6, a4, a3, SP[a2, a5], n] - 
    S2[a1, a6, a4, SP[a3, a5], a2, n] + S2[a4, n]*S2[a1, a6, a5, a2, a3, n] + 
    S2[a1, a6, a5, a2, SP[a3, a4], n] + S2[a4, n]*S2[a1, a6, a5, a3, a2, n] - 
    S2[a2, n]*S2[a1, a6, a5, a3, a4, n] - 
    S2[a2, n]*S2[a1, a6, a5, a4, a3, n] - S2[a1, a6, a5, a4, SP[a2, a3], n] - 
    S2[a1, a6, a5, SP[a2, a3], a4, n] + S2[a1, a6, a5, SP[a3, a4], a2, n] - 
    S2[a1, a6, SP[a2, a5], a3, a4, n] - S2[a1, a6, SP[a2, a5], a4, a3, n] + 
    S2[a1, a6, SP[a4, a5], a2, a3, n] + S2[a1, a6, SP[a4, a5], a3, a2, n] - 
    S2[a1, SP[a2, a5], a4, a6, a3, n] - S2[a1, SP[a2, a5], a6, a3, a4, n] - 
    S2[a1, SP[a2, a5], a6, a4, a3, n] + S2[a1, SP[a4, a5], a2, a6, a3, n] + 
    S2[a1, SP[a4, a5], a6, a2, a3, n] + S2[a1, SP[a4, a5], a6, a3, a2, n] + 
    S2[a2, a1, a5, a6, SP[a3, a4], n] + S2[a2, a1, a5, SP[a4, a6], a3, n] + 
    S2[a2, a1, a6, a5, SP[a3, a4], n] + S2[a2, a1, a6, SP[a3, a5], a4, n] + 
    S2[a2, a1, SP[a5, a6], a3, a4, n] + S2[a2, a1, SP[a5, a6], a4, a3, n] - 
    S2[a4, n]*S2[a2, a5, a1, a6, a3, n] + S2[a2, SP[a1, a5], a4, a6, a3, n] + 
    S2[a2, SP[a1, a5], a6, a3, a4, n] + S2[a2, SP[a1, a5], a6, a4, a3, n] - 
    S2[a2, SP[a4, a5], a1, a6, a3, n] - S2[a4, a1, a5, a2, SP[a3, a6], n] - 
    S2[a4, a1, a5, SP[a2, a6], a3, n] - S2[a4, a1, a6, a3, SP[a2, a5], n] - 
    S2[a4, a1, a6, SP[a3, a5], a2, n] - S2[a4, a1, SP[a5, a6], a2, a3, n] - 
    S2[a4, a1, SP[a5, a6], a3, a2, n] - S2[a4, a5, a1, a2, SP[a3, a6], n] + 
    S2[a2, n]*S2[a4, a5, a1, a6, a3, n] + S2[a4, a5, a1, a6, SP[a2, a3], n] - 
    S2[a4, a5, a2, a1, SP[a3, a6], n] + S2[a1, n]*S2[a4, a5, a2, a3, a6, n] + 
    S2[a4, a5, a2, a3, SP[a1, a6], n] - S2[a4, SP[a1, a5], a2, a6, a3, n] - 
    S2[a4, SP[a1, a5], a6, a2, a3, n] - S2[a4, SP[a1, a5], a6, a3, a2, n] + 
    S2[a4, SP[a2, a5], a1, a6, a3, n] - S2[a1, n]*S2[a6, a3, a2, a5, a4, n] - 
    S2[a6, a3, a2, a5, SP[a1, a4], n] - S2[a6, a3, a2, SP[a1, a5], a4, n] - 
    S2[a6, a3, SP[a1, a2], a5, a4, n] - S2[a6, SP[a1, a3], a2, a5, a4, n] - 
    S2[SP[a1, a6], a3, a2, a5, a4, n] + S2[a6, a1, a3, a2, a5, a4, n] + 
    S2[a6, a3, a1, a2, a5, a4, n] + S2[a6, a3, a2, a1, a5, a4, n] + 
    S2[a6, a3, a2, a5, a1, a4, n] + S2[a6, a3, a2, a5, a4, a1, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a4_, a5_, a2_, a6_, a1_, a3_, n_] :> 
  -(S2[a1, a3, a6, n]*S2[a2, a5, a4, n]) - S2[a1, a6, a3, n]*
     S2[a2, a5, a4, n] - S2[SP[a1, a2], SP[a3, a5], SP[a4, a6], n] - 
    S2[SP[a1, a2], SP[a5, a6], SP[a3, a4], n] + S2[a1, a2, SP[a3, a5], 
     SP[a4, a6], n] + S2[a1, a2, SP[a5, a6], SP[a3, a4], n] + 
    S2[a4, a5, n]*S2[a1, a3, a6, a2, n] - S2[a1, a3, SP[a4, a6], SP[a2, a5], 
     n] + S2[a4, a5, n]*S2[a1, a6, a2, a3, n] + 
    S2[a4, a5, n]*S2[a1, a6, a3, a2, n] - S2[a1, a6, SP[a2, a4], SP[a3, a5], 
     n] - S2[a1, a6, SP[a3, a4], SP[a2, a5], n] + S2[a1, SP[a2, a3], a5, 
     SP[a4, a6], n] + S2[a1, SP[a2, a3], SP[a5, a6], a4, n] + 
    S2[a1, SP[a2, a6], a5, SP[a3, a4], n] + S2[a1, SP[a2, a6], SP[a3, a5], 
     a4, n] - S2[a1, SP[a3, a4], a6, SP[a2, a5], n] - 
    S2[a1, SP[a3, a4], SP[a5, a6], a2, n] - S2[a1, SP[a4, a6], a2, 
     SP[a3, a5], n] - S2[a1, SP[a4, a6], a3, SP[a2, a5], n] - 
    S2[a1, SP[a4, a6], SP[a2, a5], a3, n] - S2[a1, SP[a4, a6], SP[a3, a5], 
     a2, n] + S2[a2, a1, SP[a3, a5], SP[a4, a6], n] + 
    S2[a2, a1, SP[a5, a6], SP[a3, a4], n] - S2[a1, a3, n]*
     S2[a2, a5, a4, a6, n] - S2[a1, a3, n]*S2[a2, a5, a6, a4, n] + 
    S2[a2, a5, SP[a1, a4], SP[a3, a6], n] + S2[a2, a5, SP[a1, a6], 
     SP[a3, a4], n] - S2[a1, a3, n]*S2[a2, a6, a5, a4, n] + 
    S2[a2, a6, SP[a1, a5], SP[a3, a4], n] + S2[a2, SP[a1, a5], a3, 
     SP[a4, a6], n] + S2[a2, SP[a1, a5], a4, SP[a3, a6], n] + 
    2*S2[a2, SP[a1, a5], a6, SP[a3, a4], n] + 
    2*S2[a2, SP[a1, a5], SP[a3, a4], a6, n] + S2[a2, SP[a1, a5], SP[a3, a6], 
     a4, n] + S2[a2, SP[a1, a5], SP[a4, a6], a3, n] + 
    S2[a2, SP[a1, a6], a5, SP[a3, a4], n] + S2[a2, SP[a1, a6], SP[a3, a5], 
     a4, n] + S2[a1, a3, n]*S2[a4, a5, a2, a6, n] - 
    S2[a4, a5, SP[a1, a2], SP[a3, a6], n] - S2[a4, SP[a1, a5], a2, 
     SP[a3, a6], n] - S2[a4, SP[a1, a5], SP[a2, a3], a6, n] + 
    S2[SP[a1, a2], a3, a5, SP[a4, a6], n] + S2[SP[a1, a2], a3, SP[a5, a6], 
     a4, n] + S2[SP[a1, a2], a5, a3, SP[a4, a6], n] + 
    S2[SP[a1, a2], a5, a4, SP[a3, a6], n] + 
    2*S2[SP[a1, a2], a5, a6, SP[a3, a4], n] + 
    2*S2[SP[a1, a2], a5, SP[a3, a4], a6, n] + S2[SP[a1, a2], a5, SP[a3, a6], 
     a4, n] + S2[SP[a1, a2], a5, SP[a4, a6], a3, n] + 
    2*S2[SP[a1, a2], a6, a5, SP[a3, a4], n] + 
    2*S2[SP[a1, a2], a6, SP[a3, a5], a4, n] + 
    2*S2[SP[a1, a2], SP[a3, a5], a4, a6, n] + 
    2*S2[SP[a1, a2], SP[a3, a5], a6, a4, n] + S2[SP[a1, a2], SP[a3, a6], a5, 
     a4, n] + S2[SP[a1, a2], SP[a5, a6], a3, a4, n] + 
    S2[SP[a1, a2], SP[a5, a6], a4, a3, n] - S2[SP[a1, a4], a3, a6, 
     SP[a2, a5], n] - S2[SP[a1, a4], a3, SP[a5, a6], a2, n] - 
    S2[SP[a1, a4], a5, a2, SP[a3, a6], n] - S2[SP[a1, a4], a5, SP[a2, a3], 
     a6, n] - S2[SP[a1, a4], a6, a2, SP[a3, a5], n] - 
    S2[SP[a1, a4], a6, a3, SP[a2, a5], n] - S2[SP[a1, a4], a6, SP[a2, a5], 
     a3, n] - S2[SP[a1, a4], a6, SP[a3, a5], a2, n] - 
    S2[SP[a1, a4], SP[a3, a5], a2, a6, n] - S2[SP[a1, a4], SP[a3, a5], a6, 
     a2, n] - S2[SP[a1, a4], SP[a5, a6], a2, a3, n] - 
    S2[SP[a1, a4], SP[a5, a6], a3, a2, n] - S2[a1, a2, a3, a5, SP[a4, a6], 
     n] - S2[a1, a2, a3, SP[a5, a6], a4, n] - S2[a1, a2, a5, a3, SP[a4, a6], 
     n] - S2[a1, a2, a5, a4, SP[a3, a6], n] - 
    2*S2[a1, a2, a5, a6, SP[a3, a4], n] - 
    2*S2[a1, a2, a5, SP[a3, a4], a6, n] - S2[a1, a2, a5, SP[a3, a6], a4, n] - 
    S2[a1, a2, a5, SP[a4, a6], a3, n] - 2*S2[a1, a2, a6, a5, SP[a3, a4], n] - 
    2*S2[a1, a2, a6, SP[a3, a5], a4, n] - 
    2*S2[a1, a2, SP[a3, a5], a4, a6, n] - 
    2*S2[a1, a2, SP[a3, a5], a6, a4, n] - S2[a1, a2, SP[a3, a6], a5, a4, n] - 
    S2[a1, a2, SP[a5, a6], a3, a4, n] - S2[a1, a2, SP[a5, a6], a4, a3, n] - 
    S2[a1, a3, a2, a5, SP[a4, a6], n] - S2[a1, a3, a2, SP[a5, a6], a4, n] + 
    S2[a1, a3, a4, a6, SP[a2, a5], n] + S2[a1, a3, a4, SP[a5, a6], a2, n] - 
    S2[a6, n]*S2[a1, a3, a5, a2, a4, n] - 
    S2[a4, n]*S2[a1, a3, a5, a2, a6, n] - 
    2*S2[a1, a3, a5, a2, SP[a4, a6], n] - 
    S2[a6, n]*S2[a1, a3, a5, a4, a2, n] + 
    2*S2[a2, n]*S2[a1, a3, a5, a4, a6, n] + S2[a1, a3, a5, a4, SP[a2, a6], 
     n] - S2[a4, n]*S2[a1, a3, a5, a6, a2, n] + 
    2*S2[a2, n]*S2[a1, a3, a5, a6, a4, n] + S2[a1, a3, a5, a6, SP[a2, a4], 
     n] + S2[a1, a3, a5, SP[a2, a4], a6, n] + S2[a1, a3, a5, SP[a2, a6], a4, 
     n] - 2*S2[a1, a3, a5, SP[a4, a6], a2, n] - 
    S2[a4, n]*S2[a1, a3, a6, a2, a5, n] - S2[a1, a3, a6, a2, SP[a4, a5], n] + 
    S2[a1, a3, a6, a4, SP[a2, a5], n] - S2[a4, n]*S2[a1, a3, a6, a5, a2, n] + 
    2*S2[a2, n]*S2[a1, a3, a6, a5, a4, n] + S2[a1, a3, a6, a5, SP[a2, a4], 
     n] + 2*S2[a1, a3, a6, SP[a2, a5], a4, n] - S2[a1, a3, a6, SP[a4, a5], 
     a2, n] + 2*S2[a1, a3, SP[a2, a5], a4, a6, n] + 
    2*S2[a1, a3, SP[a2, a5], a6, a4, n] + S2[a1, a3, SP[a2, a6], a5, a4, n] - 
    S2[a1, a3, SP[a4, a5], a2, a6, n] - S2[a1, a3, SP[a4, a5], a6, a2, n] - 
    S2[a1, a3, SP[a5, a6], a2, a4, n] - S2[a1, a3, SP[a5, a6], a4, a2, n] + 
    S2[a1, a4, a3, a6, SP[a2, a5], n] + S2[a1, a4, a3, SP[a5, a6], a2, n] + 
    S2[a1, a4, a5, a2, SP[a3, a6], n] + S2[a1, a4, a5, SP[a2, a3], a6, n] + 
    S2[a1, a4, a6, a2, SP[a3, a5], n] + S2[a1, a4, a6, a3, SP[a2, a5], n] + 
    S2[a1, a4, a6, SP[a2, a5], a3, n] + S2[a1, a4, a6, SP[a3, a5], a2, n] + 
    S2[a1, a4, SP[a3, a5], a2, a6, n] + S2[a1, a4, SP[a3, a5], a6, a2, n] + 
    S2[a1, a4, SP[a5, a6], a2, a3, n] + S2[a1, a4, SP[a5, a6], a3, a2, n] - 
    S2[a6, n]*S2[a1, a5, a2, a3, a4, n] - 
    S2[a4, n]*S2[a1, a5, a2, a3, a6, n] - 
    2*S2[a1, a5, a2, a3, SP[a4, a6], n] - 
    S2[a6, n]*S2[a1, a5, a2, a4, a3, n] - S2[a1, a5, a2, a4, SP[a3, a6], n] - 
    S2[a4, n]*S2[a1, a5, a2, a6, a3, n] - S2[a1, a5, a2, a6, SP[a3, a4], n] - 
    S2[a1, a5, a2, SP[a3, a4], a6, n] - S2[a1, a5, a2, SP[a3, a6], a4, n] - 
    2*S2[a1, a5, a2, SP[a4, a6], a3, n] - 
    S2[a6, n]*S2[a1, a5, a3, a2, a4, n] - 
    S2[a4, n]*S2[a1, a5, a3, a2, a6, n] - 
    2*S2[a1, a5, a3, a2, SP[a4, a6], n] - 
    S2[a6, n]*S2[a1, a5, a3, a4, a2, n] + 
    2*S2[a2, n]*S2[a1, a5, a3, a4, a6, n] + S2[a1, a5, a3, a4, SP[a2, a6], 
     n] - S2[a4, n]*S2[a1, a5, a3, a6, a2, n] + 
    2*S2[a2, n]*S2[a1, a5, a3, a6, a4, n] + S2[a1, a5, a3, a6, SP[a2, a4], 
     n] + S2[a1, a5, a3, SP[a2, a4], a6, n] + S2[a1, a5, a3, SP[a2, a6], a4, 
     n] - 2*S2[a1, a5, a3, SP[a4, a6], a2, n] - 
    S2[a6, n]*S2[a1, a5, a4, a2, a3, n] - S2[a1, a5, a4, a2, SP[a3, a6], n] - 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] + 
    2*S2[a2, n]*S2[a1, a5, a4, a3, a6, n] + S2[a1, a5, a4, a3, SP[a2, a6], 
     n] + 2*S2[a2, n]*S2[a1, a5, a4, a6, a3, n] + 
    2*S2[a1, a5, a4, a6, SP[a2, a3], n] + 
    2*S2[a1, a5, a4, SP[a2, a3], a6, n] + S2[a1, a5, a4, SP[a2, a6], a3, n] - 
    S2[a1, a5, a4, SP[a3, a6], a2, n] - S2[a4, n]*S2[a1, a5, a6, a2, a3, n] - 
    S2[a1, a5, a6, a2, SP[a3, a4], n] - S2[a4, n]*S2[a1, a5, a6, a3, a2, n] + 
    2*S2[a2, n]*S2[a1, a5, a6, a3, a4, n] + S2[a1, a5, a6, a3, SP[a2, a4], 
     n] + 2*S2[a2, n]*S2[a1, a5, a6, a4, a3, n] + 
    2*S2[a1, a5, a6, a4, SP[a2, a3], n] + 
    2*S2[a1, a5, a6, SP[a2, a3], a4, n] + S2[a1, a5, a6, SP[a2, a4], a3, n] - 
    S2[a1, a5, a6, SP[a3, a4], a2, n] + 2*S2[a1, a5, SP[a2, a3], a4, a6, n] + 
    2*S2[a1, a5, SP[a2, a3], a6, a4, n] + S2[a1, a5, SP[a2, a4], a3, a6, n] + 
    S2[a1, a5, SP[a2, a4], a6, a3, n] + S2[a1, a5, SP[a2, a6], a3, a4, n] + 
    S2[a1, a5, SP[a2, a6], a4, a3, n] - S2[a1, a5, SP[a3, a4], a2, a6, n] - 
    S2[a1, a5, SP[a3, a4], a6, a2, n] - S2[a1, a5, SP[a3, a6], a2, a4, n] - 
    S2[a1, a5, SP[a3, a6], a4, a2, n] - 2*S2[a1, a5, SP[a4, a6], a2, a3, n] - 
    2*S2[a1, a5, SP[a4, a6], a3, a2, n] - 
    S2[a4, n]*S2[a1, a6, a2, a3, a5, n] - S2[a1, a6, a2, a3, SP[a4, a5], n] + 
    S2[a1, a6, a2, a4, SP[a3, a5], n] - S2[a4, n]*S2[a1, a6, a2, a5, a3, n] - 
    2*S2[a1, a6, a2, a5, SP[a3, a4], n] - S2[a1, a6, a2, SP[a3, a5], a4, n] - 
    S2[a1, a6, a2, SP[a4, a5], a3, n] - S2[a4, n]*S2[a1, a6, a3, a2, a5, n] - 
    S2[a1, a6, a3, a2, SP[a4, a5], n] + S2[a1, a6, a3, a4, SP[a2, a5], n] - 
    S2[a4, n]*S2[a1, a6, a3, a5, a2, n] + 
    2*S2[a2, n]*S2[a1, a6, a3, a5, a4, n] + S2[a1, a6, a3, a5, SP[a2, a4], 
     n] + 2*S2[a1, a6, a3, SP[a2, a5], a4, n] - S2[a1, a6, a3, SP[a4, a5], 
     a2, n] + S2[a1, a6, a4, a2, SP[a3, a5], n] + 
    S2[a1, a6, a4, a3, SP[a2, a5], n] + S2[a1, a6, a4, SP[a2, a5], a3, n] + 
    S2[a1, a6, a4, SP[a3, a5], a2, n] - S2[a4, n]*S2[a1, a6, a5, a2, a3, n] - 
    S2[a1, a6, a5, a2, SP[a3, a4], n] - S2[a4, n]*S2[a1, a6, a5, a3, a2, n] + 
    2*S2[a2, n]*S2[a1, a6, a5, a3, a4, n] + S2[a1, a6, a5, a3, SP[a2, a4], 
     n] + 2*S2[a2, n]*S2[a1, a6, a5, a4, a3, n] + 
    2*S2[a1, a6, a5, a4, SP[a2, a3], n] + 
    2*S2[a1, a6, a5, SP[a2, a3], a4, n] + S2[a1, a6, a5, SP[a2, a4], a3, n] - 
    S2[a1, a6, a5, SP[a3, a4], a2, n] + S2[a1, a6, SP[a2, a3], a5, a4, n] + 
    2*S2[a1, a6, SP[a2, a5], a3, a4, n] + 
    2*S2[a1, a6, SP[a2, a5], a4, a3, n] - S2[a1, a6, SP[a4, a5], a2, a3, n] - 
    S2[a1, a6, SP[a4, a5], a3, a2, n] + 2*S2[a1, SP[a2, a5], a3, a4, a6, n] + 
    2*S2[a1, SP[a2, a5], a3, a6, a4, n] + 
    2*S2[a1, SP[a2, a5], a4, a3, a6, n] + 
    2*S2[a1, SP[a2, a5], a4, a6, a3, n] + 
    2*S2[a1, SP[a2, a5], a6, a3, a4, n] + 
    2*S2[a1, SP[a2, a5], a6, a4, a3, n] + S2[a1, SP[a2, a6], a3, a5, a4, n] + 
    S2[a1, SP[a2, a6], a5, a3, a4, n] + S2[a1, SP[a2, a6], a5, a4, a3, n] - 
    S2[a1, SP[a3, a6], a5, a2, a4, n] - S2[a1, SP[a3, a6], a5, a4, a2, n] - 
    S2[a1, SP[a4, a5], a2, a3, a6, n] - S2[a1, SP[a4, a5], a2, a6, a3, n] - 
    S2[a1, SP[a4, a5], a3, a2, a6, n] - S2[a1, SP[a4, a5], a3, a6, a2, n] - 
    S2[a1, SP[a4, a5], a6, a2, a3, n] - S2[a1, SP[a4, a5], a6, a3, a2, n] - 
    S2[a1, SP[a5, a6], a2, a3, a4, n] - S2[a1, SP[a5, a6], a2, a4, a3, n] - 
    S2[a1, SP[a5, a6], a3, a2, a4, n] - S2[a1, SP[a5, a6], a3, a4, a2, n] - 
    S2[a1, SP[a5, a6], a4, a2, a3, n] - S2[a1, SP[a5, a6], a4, a3, a2, n] - 
    S2[a2, a1, a3, a5, SP[a4, a6], n] - S2[a2, a1, a3, SP[a5, a6], a4, n] - 
    S2[a2, a1, a5, a3, SP[a4, a6], n] - S2[a2, a1, a5, a4, SP[a3, a6], n] - 
    2*S2[a2, a1, a5, a6, SP[a3, a4], n] - 
    2*S2[a2, a1, a5, SP[a3, a4], a6, n] - S2[a2, a1, a5, SP[a3, a6], a4, n] - 
    S2[a2, a1, a5, SP[a4, a6], a3, n] - 2*S2[a2, a1, a6, a5, SP[a3, a4], n] - 
    2*S2[a2, a1, a6, SP[a3, a5], a4, n] - 
    2*S2[a2, a1, SP[a3, a5], a4, a6, n] - 
    2*S2[a2, a1, SP[a3, a5], a6, a4, n] - S2[a2, a1, SP[a3, a6], a5, a4, n] - 
    S2[a2, a1, SP[a5, a6], a3, a4, n] - S2[a2, a1, SP[a5, a6], a4, a3, n] + 
    S2[a6, n]*S2[a2, a5, a1, a3, a4, n] + 
    S2[a4, n]*S2[a2, a5, a1, a3, a6, n] + S2[a2, a5, a1, a3, SP[a4, a6], n] + 
    S2[a6, n]*S2[a2, a5, a1, a4, a3, n] + 
    S2[a4, n]*S2[a2, a5, a1, a6, a3, n] - S2[a2, a5, a1, a6, SP[a3, a4], n] - 
    S2[a2, a5, a1, SP[a3, a4], a6, n] + S2[a2, a5, a1, SP[a4, a6], a3, n] + 
    S2[a6, n]*S2[a2, a5, a4, a1, a3, n] - S2[a2, a5, a6, a1, SP[a3, a4], n] - 
    S2[a2, a5, a6, SP[a1, a4], a3, n] - S2[a2, a5, SP[a1, a4], a3, a6, n] - 
    S2[a2, a5, SP[a1, a4], a6, a3, n] + S2[a2, a5, SP[a4, a6], a1, a3, n] - 
    S2[a2, a6, a1, a5, SP[a3, a4], n] - S2[a2, a6, a1, SP[a3, a5], a4, n] - 
    S2[a2, a6, a5, a1, SP[a3, a4], n] - S2[a2, a6, a5, SP[a1, a4], a3, n] - 
    S2[a2, a6, SP[a1, a5], a3, a4, n] - S2[a2, a6, SP[a1, a5], a4, a3, n] - 
    2*S2[a2, SP[a1, a5], a3, a4, a6, n] - 
    2*S2[a2, SP[a1, a5], a3, a6, a4, n] - 
    2*S2[a2, SP[a1, a5], a4, a3, a6, n] - 
    2*S2[a2, SP[a1, a5], a4, a6, a3, n] - 
    2*S2[a2, SP[a1, a5], a6, a3, a4, n] - 
    2*S2[a2, SP[a1, a5], a6, a4, a3, n] - S2[a2, SP[a1, a6], a3, a5, a4, n] - 
    S2[a2, SP[a1, a6], a5, a3, a4, n] - S2[a2, SP[a1, a6], a5, a4, a3, n] + 
    S2[a2, SP[a4, a5], a1, a3, a6, n] + S2[a2, SP[a4, a5], a1, a6, a3, n] + 
    S2[a2, SP[a5, a6], a1, a3, a4, n] + S2[a2, SP[a5, a6], a1, a4, a3, n] + 
    S2[a2, SP[a5, a6], a4, a1, a3, n] + S2[a4, a1, a3, a6, SP[a2, a5], n] + 
    S2[a4, a1, a3, SP[a5, a6], a2, n] + S2[a4, a1, a5, a2, SP[a3, a6], n] + 
    S2[a4, a1, a5, SP[a2, a3], a6, n] + S2[a4, a1, a6, a2, SP[a3, a5], n] + 
    S2[a4, a1, a6, a3, SP[a2, a5], n] + S2[a4, a1, a6, SP[a2, a5], a3, n] + 
    S2[a4, a1, a6, SP[a3, a5], a2, n] + S2[a4, a1, SP[a3, a5], a2, a6, n] + 
    S2[a4, a1, SP[a3, a5], a6, a2, n] + S2[a4, a1, SP[a5, a6], a2, a3, n] + 
    S2[a4, a1, SP[a5, a6], a3, a2, n] + S2[a4, a5, a1, a2, SP[a3, a6], n] - 
    S2[a2, n]*S2[a4, a5, a1, a3, a6, n] - S2[a4, a5, a1, a3, SP[a2, a6], n] - 
    S2[a2, n]*S2[a4, a5, a1, a6, a3, n] - S2[a4, a5, a1, a6, SP[a2, a3], n] - 
    S2[a4, a5, a1, SP[a2, a6], a3, n] + S2[a4, a5, a2, a1, SP[a3, a6], n] + 
    S2[a4, a5, a2, SP[a1, a6], a3, n] + S2[a4, SP[a1, a5], a2, a3, a6, n] + 
    S2[a4, SP[a1, a5], a2, a6, a3, n] + S2[a4, SP[a1, a5], a3, a2, a6, n] + 
    S2[a4, SP[a1, a5], a3, a6, a2, n] + S2[a4, SP[a1, a5], a6, a2, a3, n] + 
    S2[a4, SP[a1, a5], a6, a3, a2, n] - S2[a4, SP[a2, a5], a1, a3, a6, n] - 
    S2[a4, SP[a2, a5], a1, a6, a3, n] + S2[a2, n]*S2[a6, a1, a3, a5, a4, n] + 
    S2[a6, a1, a3, a5, SP[a2, a4], n] + S2[a6, a1, a3, SP[a2, a5], a4, n] + 
    S2[a2, n]*S2[a6, a1, a5, a3, a4, n] + S2[a6, a1, a5, a3, SP[a2, a4], n] + 
    S2[a2, n]*S2[a6, a1, a5, a4, a3, n] + S2[a6, a1, a5, a4, SP[a2, a3], n] + 
    S2[a6, a1, a5, SP[a2, a3], a4, n] + S2[a6, a1, a5, SP[a2, a4], a3, n] + 
    S2[a6, a1, SP[a2, a3], a5, a4, n] + S2[a6, a1, SP[a2, a5], a3, a4, n] + 
    S2[a6, a1, SP[a2, a5], a4, a3, n] + S2[a6, SP[a1, a2], a3, a5, a4, n] + 
    S2[a6, SP[a1, a2], a5, a3, a4, n] + S2[a6, SP[a1, a2], a5, a4, a3, n] - 
    S2[SP[a1, a6], a3, a5, a2, a4, n] - S2[SP[a1, a6], a3, a5, a4, a2, n] - 
    S2[SP[a1, a6], a5, a2, a3, a4, n] - S2[SP[a1, a6], a5, a2, a4, a3, n] - 
    S2[SP[a1, a6], a5, a3, a2, a4, n] - S2[SP[a1, a6], a5, a3, a4, a2, n] - 
    S2[SP[a1, a6], a5, a4, a2, a3, n] - S2[SP[a1, a6], a5, a4, a3, a2, n] + 
    S2[SP[a2, a6], a1, a3, a5, a4, n] + S2[SP[a2, a6], a1, a5, a3, a4, n] + 
    S2[SP[a2, a6], a1, a5, a4, a3, n] + S2[SP[a2, a6], a5, a1, a3, a4, n] + 
    S2[SP[a2, a6], a5, a1, a4, a3, n] + S2[SP[a2, a6], a5, a4, a1, a3, n] - 
    S2[a6, a1, a2, a3, a5, a4, n] - S2[a6, a1, a2, a5, a3, a4, n] - 
    S2[a6, a1, a2, a5, a4, a3, n] - S2[a6, a1, a3, a2, a5, a4, n] - 
    S2[a6, a2, a1, a3, a5, a4, n] - S2[a6, a2, a1, a5, a3, a4, n] - 
    S2[a6, a2, a1, a5, a4, a3, n] - S2[a6, a2, a5, a1, a3, a4, n] - 
    S2[a6, a2, a5, a1, a4, a3, n] - S2[a6, a2, a5, a4, a1, a3, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a4_, a5_, a2_, a6_, a3_, a1_, n_] :> 
  S2[a1, a3, a6, n]*S2[a2, a5, a4, n] + S2[SP[a1, a2], SP[a3, a5], 
     SP[a4, a6], n] - S2[a1, a2, SP[a3, a5], SP[a4, a6], n] - 
    S2[a4, a5, n]*S2[a1, a3, a6, a2, n] + S2[a1, a3, SP[a4, a6], SP[a2, a5], 
     n] - S2[a1, SP[a2, a3], a5, SP[a4, a6], n] - 
    S2[a1, SP[a2, a3], SP[a5, a6], a4, n] + S2[a1, SP[a3, a4], a6, 
     SP[a2, a5], n] + S2[a1, SP[a3, a4], SP[a5, a6], a2, n] - 
    S2[a2, a1, SP[a3, a5], SP[a4, a6], n] + S2[a1, a3, n]*
     S2[a2, a5, a4, a6, n] + S2[a1, a3, n]*S2[a2, a5, a6, a4, n] - 
    S2[a2, a5, SP[a1, a4], SP[a3, a6], n] - S2[a2, a5, SP[a1, a6], 
     SP[a3, a4], n] + S2[a1, a3, n]*S2[a2, a6, a5, a4, n] - 
    S2[a2, a6, SP[a1, a5], SP[a3, a4], n] - S2[a2, SP[a1, a5], a3, 
     SP[a4, a6], n] - S2[a2, SP[a1, a5], a4, SP[a3, a6], n] - 
    S2[a2, SP[a1, a5], a6, SP[a3, a4], n] - 
    2*S2[a2, SP[a1, a5], SP[a3, a4], a6, n] - S2[a2, SP[a1, a5], SP[a3, a6], 
     a4, n] - S2[a2, SP[a1, a6], a5, SP[a3, a4], n] - 
    S2[a2, SP[a1, a6], SP[a3, a5], a4, n] - S2[a1, a3, n]*
     S2[a4, a5, a2, a6, n] + S2[a4, a5, SP[a1, a2], SP[a3, a6], n] + 
    S2[a4, SP[a1, a5], a2, SP[a3, a6], n] + S2[a4, SP[a1, a5], SP[a2, a3], 
     a6, n] - S2[SP[a1, a2], a3, a5, SP[a4, a6], n] - 
    S2[SP[a1, a2], a3, SP[a5, a6], a4, n] - S2[SP[a1, a2], a5, a3, 
     SP[a4, a6], n] - S2[SP[a1, a2], a5, a4, SP[a3, a6], n] - 
    S2[SP[a1, a2], a5, a6, SP[a3, a4], n] - 
    2*S2[SP[a1, a2], a5, SP[a3, a4], a6, n] - S2[SP[a1, a2], a5, SP[a3, a6], 
     a4, n] - S2[SP[a1, a2], a6, a5, SP[a3, a4], n] - 
    S2[SP[a1, a2], a6, SP[a3, a5], a4, n] - 
    2*S2[SP[a1, a2], SP[a3, a5], a4, a6, n] - 
    2*S2[SP[a1, a2], SP[a3, a5], a6, a4, n] - S2[SP[a1, a2], SP[a3, a6], a5, 
     a4, n] + S2[SP[a1, a4], a3, a6, SP[a2, a5], n] + 
    S2[SP[a1, a4], a3, SP[a5, a6], a2, n] + S2[SP[a1, a4], a5, a2, 
     SP[a3, a6], n] + S2[SP[a1, a4], a5, SP[a2, a3], a6, n] + 
    S2[SP[a1, a4], SP[a3, a5], a2, a6, n] + S2[SP[a1, a4], SP[a3, a5], a6, 
     a2, n] + S2[a1, a2, a3, a5, SP[a4, a6], n] + S2[a1, a2, a3, SP[a5, a6], 
     a4, n] + S2[a1, a2, a5, a3, SP[a4, a6], n] + 
    S2[a1, a2, a5, a4, SP[a3, a6], n] + S2[a1, a2, a5, a6, SP[a3, a4], n] + 
    2*S2[a1, a2, a5, SP[a3, a4], a6, n] + S2[a1, a2, a5, SP[a3, a6], a4, n] + 
    S2[a1, a2, a6, a5, SP[a3, a4], n] + S2[a1, a2, a6, SP[a3, a5], a4, n] + 
    2*S2[a1, a2, SP[a3, a5], a4, a6, n] + 
    2*S2[a1, a2, SP[a3, a5], a6, a4, n] + S2[a1, a2, SP[a3, a6], a5, a4, n] + 
    S2[a1, a3, a2, a5, SP[a4, a6], n] + S2[a1, a3, a2, SP[a5, a6], a4, n] - 
    S2[a1, a3, a4, a6, SP[a2, a5], n] - S2[a1, a3, a4, SP[a5, a6], a2, n] + 
    S2[a6, n]*S2[a1, a3, a5, a2, a4, n] + 
    S2[a4, n]*S2[a1, a3, a5, a2, a6, n] + 
    2*S2[a1, a3, a5, a2, SP[a4, a6], n] + 
    S2[a6, n]*S2[a1, a3, a5, a4, a2, n] - 
    2*S2[a2, n]*S2[a1, a3, a5, a4, a6, n] - S2[a1, a3, a5, a4, SP[a2, a6], 
     n] + S2[a4, n]*S2[a1, a3, a5, a6, a2, n] - 
    2*S2[a2, n]*S2[a1, a3, a5, a6, a4, n] - S2[a1, a3, a5, a6, SP[a2, a4], 
     n] - S2[a1, a3, a5, SP[a2, a4], a6, n] - S2[a1, a3, a5, SP[a2, a6], a4, 
     n] + 2*S2[a1, a3, a5, SP[a4, a6], a2, n] + 
    S2[a4, n]*S2[a1, a3, a6, a2, a5, n] + S2[a1, a3, a6, a2, SP[a4, a5], n] - 
    S2[a1, a3, a6, a4, SP[a2, a5], n] + S2[a4, n]*S2[a1, a3, a6, a5, a2, n] - 
    2*S2[a2, n]*S2[a1, a3, a6, a5, a4, n] - S2[a1, a3, a6, a5, SP[a2, a4], 
     n] - 2*S2[a1, a3, a6, SP[a2, a5], a4, n] + S2[a1, a3, a6, SP[a4, a5], 
     a2, n] - 2*S2[a1, a3, SP[a2, a5], a4, a6, n] - 
    2*S2[a1, a3, SP[a2, a5], a6, a4, n] - S2[a1, a3, SP[a2, a6], a5, a4, n] + 
    S2[a1, a3, SP[a4, a5], a2, a6, n] + S2[a1, a3, SP[a4, a5], a6, a2, n] + 
    S2[a1, a3, SP[a5, a6], a2, a4, n] + S2[a1, a3, SP[a5, a6], a4, a2, n] - 
    S2[a1, a4, a3, a6, SP[a2, a5], n] - S2[a1, a4, a3, SP[a5, a6], a2, n] - 
    S2[a1, a4, a5, a2, SP[a3, a6], n] - S2[a1, a4, a5, SP[a2, a3], a6, n] - 
    S2[a1, a4, SP[a3, a5], a2, a6, n] - S2[a1, a4, SP[a3, a5], a6, a2, n] + 
    S2[a6, n]*S2[a1, a5, a2, a3, a4, n] + 
    S2[a4, n]*S2[a1, a5, a2, a3, a6, n] + 
    2*S2[a1, a5, a2, a3, SP[a4, a6], n] + 
    S2[a6, n]*S2[a1, a5, a2, a4, a3, n] + S2[a1, a5, a2, a4, SP[a3, a6], n] + 
    S2[a1, a5, a2, SP[a3, a4], a6, n] + S2[a1, a5, a2, SP[a3, a6], a4, n] + 
    S2[a1, a5, a2, SP[a4, a6], a3, n] + S2[a6, n]*S2[a1, a5, a3, a2, a4, n] + 
    S2[a4, n]*S2[a1, a5, a3, a2, a6, n] + 
    2*S2[a1, a5, a3, a2, SP[a4, a6], n] + 
    S2[a6, n]*S2[a1, a5, a3, a4, a2, n] - 
    2*S2[a2, n]*S2[a1, a5, a3, a4, a6, n] - S2[a1, a5, a3, a4, SP[a2, a6], 
     n] + S2[a4, n]*S2[a1, a5, a3, a6, a2, n] - 
    2*S2[a2, n]*S2[a1, a5, a3, a6, a4, n] - S2[a1, a5, a3, a6, SP[a2, a4], 
     n] - S2[a1, a5, a3, SP[a2, a4], a6, n] - S2[a1, a5, a3, SP[a2, a6], a4, 
     n] + 2*S2[a1, a5, a3, SP[a4, a6], a2, n] + 
    S2[a6, n]*S2[a1, a5, a4, a2, a3, n] + S2[a1, a5, a4, a2, SP[a3, a6], n] + 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] - 
    2*S2[a2, n]*S2[a1, a5, a4, a3, a6, n] - S2[a1, a5, a4, a3, SP[a2, a6], 
     n] - S2[a2, n]*S2[a1, a5, a4, a6, a3, n] - S2[a1, a5, a4, a6, 
     SP[a2, a3], n] - 2*S2[a1, a5, a4, SP[a2, a3], a6, n] + 
    S2[a1, a5, a4, SP[a3, a6], a2, n] - S2[a2, n]*S2[a1, a5, a6, a3, a4, n] - 
    S2[a1, a5, a6, a3, SP[a2, a4], n] - S2[a2, n]*S2[a1, a5, a6, a4, a3, n] - 
    S2[a1, a5, a6, a4, SP[a2, a3], n] - S2[a1, a5, a6, SP[a2, a3], a4, n] - 
    S2[a1, a5, a6, SP[a2, a4], a3, n] - 2*S2[a1, a5, SP[a2, a3], a4, a6, n] - 
    2*S2[a1, a5, SP[a2, a3], a6, a4, n] - S2[a1, a5, SP[a2, a4], a3, a6, n] - 
    S2[a1, a5, SP[a2, a4], a6, a3, n] + S2[a1, a5, SP[a3, a4], a2, a6, n] + 
    S2[a1, a5, SP[a3, a4], a6, a2, n] + S2[a1, a5, SP[a3, a6], a2, a4, n] + 
    S2[a1, a5, SP[a3, a6], a4, a2, n] + S2[a1, a5, SP[a4, a6], a2, a3, n] + 
    S2[a1, a5, SP[a4, a6], a3, a2, n] - S2[a2, n]*S2[a1, a6, a3, a5, a4, n] - 
    S2[a1, a6, a3, a5, SP[a2, a4], n] - S2[a1, a6, a3, SP[a2, a5], a4, n] - 
    S2[a2, n]*S2[a1, a6, a5, a3, a4, n] - S2[a1, a6, a5, a3, SP[a2, a4], n] - 
    S2[a2, n]*S2[a1, a6, a5, a4, a3, n] - S2[a1, a6, a5, a4, SP[a2, a3], n] - 
    S2[a1, a6, a5, SP[a2, a3], a4, n] - S2[a1, a6, a5, SP[a2, a4], a3, n] - 
    S2[a1, a6, SP[a2, a3], a5, a4, n] - S2[a1, a6, SP[a2, a5], a3, a4, n] - 
    S2[a1, a6, SP[a2, a5], a4, a3, n] - 2*S2[a1, SP[a2, a5], a3, a4, a6, n] - 
    2*S2[a1, SP[a2, a5], a3, a6, a4, n] - 
    2*S2[a1, SP[a2, a5], a4, a3, a6, n] - S2[a1, SP[a2, a5], a4, a6, a3, n] - 
    S2[a1, SP[a2, a5], a6, a3, a4, n] - S2[a1, SP[a2, a5], a6, a4, a3, n] - 
    S2[a1, SP[a2, a6], a3, a5, a4, n] - S2[a1, SP[a2, a6], a5, a3, a4, n] - 
    S2[a1, SP[a2, a6], a5, a4, a3, n] + S2[a1, SP[a3, a6], a5, a2, a4, n] + 
    S2[a1, SP[a3, a6], a5, a4, a2, n] + S2[a1, SP[a4, a5], a2, a3, a6, n] + 
    S2[a1, SP[a4, a5], a3, a2, a6, n] + S2[a1, SP[a4, a5], a3, a6, a2, n] + 
    S2[a1, SP[a5, a6], a2, a3, a4, n] + S2[a1, SP[a5, a6], a2, a4, a3, n] + 
    S2[a1, SP[a5, a6], a3, a2, a4, n] + S2[a1, SP[a5, a6], a3, a4, a2, n] + 
    S2[a1, SP[a5, a6], a4, a2, a3, n] + S2[a1, SP[a5, a6], a4, a3, a2, n] + 
    S2[a2, a1, a3, a5, SP[a4, a6], n] + S2[a2, a1, a3, SP[a5, a6], a4, n] + 
    S2[a2, a1, a5, a3, SP[a4, a6], n] + S2[a2, a1, a5, a4, SP[a3, a6], n] + 
    S2[a2, a1, a5, a6, SP[a3, a4], n] + 2*S2[a2, a1, a5, SP[a3, a4], a6, n] + 
    S2[a2, a1, a5, SP[a3, a6], a4, n] + S2[a2, a1, a6, a5, SP[a3, a4], n] + 
    S2[a2, a1, a6, SP[a3, a5], a4, n] + 2*S2[a2, a1, SP[a3, a5], a4, a6, n] + 
    2*S2[a2, a1, SP[a3, a5], a6, a4, n] + S2[a2, a1, SP[a3, a6], a5, a4, n] - 
    S2[a6, n]*S2[a2, a5, a1, a3, a4, n] - 
    S2[a4, n]*S2[a2, a5, a1, a3, a6, n] - S2[a2, a5, a1, a3, SP[a4, a6], n] - 
    S2[a6, n]*S2[a2, a5, a1, a4, a3, n] + S2[a2, a5, a1, a6, SP[a3, a4], n] + 
    S2[a2, a5, a1, SP[a3, a4], a6, n] - S2[a2, a5, a1, SP[a4, a6], a3, n] - 
    S2[a6, n]*S2[a2, a5, a4, a1, a3, n] + S2[a2, a5, a6, a1, SP[a3, a4], n] + 
    S2[a2, a5, a6, SP[a1, a4], a3, n] + S2[a2, a5, SP[a1, a4], a3, a6, n] + 
    S2[a2, a5, SP[a1, a4], a6, a3, n] - S2[a2, a5, SP[a4, a6], a1, a3, n] + 
    S2[a2, a6, a1, a5, SP[a3, a4], n] + S2[a2, a6, a1, SP[a3, a5], a4, n] + 
    S2[a2, a6, a5, a1, SP[a3, a4], n] + S2[a2, a6, a5, SP[a1, a4], a3, n] + 
    S2[a2, a6, SP[a1, a5], a3, a4, n] + S2[a2, a6, SP[a1, a5], a4, a3, n] + 
    2*S2[a2, SP[a1, a5], a3, a4, a6, n] + 
    2*S2[a2, SP[a1, a5], a3, a6, a4, n] + 
    2*S2[a2, SP[a1, a5], a4, a3, a6, n] + S2[a2, SP[a1, a5], a4, a6, a3, n] + 
    S2[a2, SP[a1, a5], a6, a3, a4, n] + S2[a2, SP[a1, a5], a6, a4, a3, n] + 
    S2[a2, SP[a1, a6], a3, a5, a4, n] + S2[a2, SP[a1, a6], a5, a3, a4, n] + 
    S2[a2, SP[a1, a6], a5, a4, a3, n] - S2[a2, SP[a4, a5], a1, a3, a6, n] - 
    S2[a2, SP[a5, a6], a1, a3, a4, n] - S2[a2, SP[a5, a6], a1, a4, a3, n] - 
    S2[a2, SP[a5, a6], a4, a1, a3, n] - S2[a4, a1, a3, a6, SP[a2, a5], n] - 
    S2[a4, a1, a3, SP[a5, a6], a2, n] - S2[a4, a1, a5, a2, SP[a3, a6], n] - 
    S2[a4, a1, a5, SP[a2, a3], a6, n] - S2[a4, a1, SP[a3, a5], a2, a6, n] - 
    S2[a4, a1, SP[a3, a5], a6, a2, n] - S2[a4, a5, a1, a2, SP[a3, a6], n] + 
    S2[a2, n]*S2[a4, a5, a1, a3, a6, n] + S2[a4, a5, a1, a3, SP[a2, a6], n] - 
    S2[a4, a5, a2, a1, SP[a3, a6], n] + S2[a1, n]*S2[a4, a5, a2, a6, a3, n] + 
    S2[a4, a5, a2, a6, SP[a1, a3], n] - S2[a4, SP[a1, a5], a2, a3, a6, n] - 
    S2[a4, SP[a1, a5], a3, a2, a6, n] - S2[a4, SP[a1, a5], a3, a6, a2, n] + 
    S2[a4, SP[a2, a5], a1, a3, a6, n] - S2[a2, n]*S2[a6, a1, a3, a5, a4, n] - 
    S2[a6, a1, a3, a5, SP[a2, a4], n] - S2[a6, a1, a3, SP[a2, a5], a4, n] - 
    S2[a2, n]*S2[a6, a1, a5, a3, a4, n] - S2[a6, a1, a5, a3, SP[a2, a4], n] - 
    S2[a2, n]*S2[a6, a1, a5, a4, a3, n] - S2[a6, a1, a5, a4, SP[a2, a3], n] - 
    S2[a6, a1, a5, SP[a2, a3], a4, n] - S2[a6, a1, a5, SP[a2, a4], a3, n] - 
    S2[a6, a1, SP[a2, a3], a5, a4, n] - S2[a6, a1, SP[a2, a5], a3, a4, n] - 
    S2[a6, a1, SP[a2, a5], a4, a3, n] + S2[a1, n]*S2[a6, a2, a3, a5, a4, n] + 
    S2[a6, a2, a3, a5, SP[a1, a4], n] + S2[a6, a2, a3, SP[a1, a5], a4, n] + 
    S2[a1, n]*S2[a6, a2, a5, a3, a4, n] + S2[a6, a2, a5, a3, SP[a1, a4], n] + 
    S2[a1, n]*S2[a6, a2, a5, a4, a3, n] + S2[a6, a2, a5, a4, SP[a1, a3], n] + 
    S2[a6, a2, a5, SP[a1, a3], a4, n] + S2[a6, a2, a5, SP[a1, a4], a3, n] + 
    S2[a6, a2, SP[a1, a3], a5, a4, n] + S2[a6, a2, SP[a1, a5], a3, a4, n] + 
    S2[a6, a2, SP[a1, a5], a4, a3, n] + S2[a1, n]*S2[a6, a3, a2, a5, a4, n] + 
    S2[a6, a3, a2, a5, SP[a1, a4], n] + S2[a6, a3, a2, SP[a1, a5], a4, n] + 
    S2[a6, a3, SP[a1, a2], a5, a4, n] + S2[a6, SP[a1, a3], a2, a5, a4, n] + 
    S2[SP[a1, a6], a2, a3, a5, a4, n] + S2[SP[a1, a6], a2, a5, a3, a4, n] + 
    S2[SP[a1, a6], a2, a5, a4, a3, n] + S2[SP[a1, a6], a3, a2, a5, a4, n] + 
    S2[SP[a1, a6], a3, a5, a2, a4, n] + S2[SP[a1, a6], a3, a5, a4, a2, n] + 
    S2[SP[a1, a6], a5, a2, a3, a4, n] + S2[SP[a1, a6], a5, a2, a4, a3, n] + 
    S2[SP[a1, a6], a5, a3, a2, a4, n] + S2[SP[a1, a6], a5, a3, a4, a2, n] + 
    S2[SP[a1, a6], a5, a4, a2, a3, n] + S2[SP[a1, a6], a5, a4, a3, a2, n] - 
    S2[SP[a2, a6], a1, a3, a5, a4, n] - S2[SP[a2, a6], a1, a5, a3, a4, n] - 
    S2[SP[a2, a6], a1, a5, a4, a3, n] - S2[SP[a2, a6], a5, a1, a3, a4, n] - 
    S2[SP[a2, a6], a5, a1, a4, a3, n] - S2[SP[a2, a6], a5, a4, a1, a3, n] - 
    S2[a6, a2, a3, a1, a5, a4, n] - S2[a6, a2, a3, a5, a1, a4, n] - 
    S2[a6, a2, a3, a5, a4, a1, n] - S2[a6, a2, a5, a3, a1, a4, n] - 
    S2[a6, a2, a5, a3, a4, a1, n] - S2[a6, a2, a5, a4, a3, a1, n] - 
    S2[a6, a3, a1, a2, a5, a4, n] - S2[a6, a3, a2, a1, a5, a4, n] - 
    S2[a6, a3, a2, a5, a1, a4, n] - S2[a6, a3, a2, a5, a4, a1, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a4_, a5_, a3_, a1_, a2_, a6_, n_] :> 
  S2[a1, a2, a6, n]*S2[a3, a5, a4, n] + S2[SP[a1, a3], SP[a2, a5], 
     SP[a4, a6], n] - S2[a4, a5, n]*S2[a1, a2, a3, a6, n] - 
    S2[a4, a5, n]*S2[a1, a2, a6, a3, n] + S2[a1, a2, SP[a3, a4], SP[a5, a6], 
     n] + S2[a1, a2, SP[a4, a6], SP[a3, a5], n] - 
    S2[a4, a5, n]*S2[a1, a3, a2, a6, n] - S2[a2, a6, n]*
     S2[a1, a3, a5, a4, n] + S2[a1, a3, SP[a2, a4], SP[a5, a6], n] + 
    S2[a1, SP[a2, a4], a3, SP[a5, a6], n] + S2[a1, SP[a2, a4], a6, 
     SP[a3, a5], n] + S2[a1, SP[a2, a4], SP[a3, a5], a6, n] + 
    S2[a1, SP[a2, a4], SP[a5, a6], a3, n] + S2[a1, SP[a3, a4], a2, 
     SP[a5, a6], n] + S2[a1, SP[a3, a4], SP[a2, a5], a6, n] - 
    S2[a3, a1, SP[a2, a5], SP[a4, a6], n] - S2[a3, SP[a1, a5], a2, 
     SP[a4, a6], n] - S2[a3, SP[a1, a5], SP[a2, a4], a6, n] + 
    S2[SP[a1, a2], a3, a5, SP[a4, a6], n] + S2[SP[a1, a2], a3, SP[a5, a6], 
     a4, n] + S2[SP[a1, a2], SP[a3, a6], a5, a4, n] - 
    S2[SP[a1, a3], a2, a5, SP[a4, a6], n] - S2[SP[a1, a3], a2, SP[a5, a6], 
     a4, n] - S2[SP[a1, a3], a5, a2, SP[a4, a6], n] - 
    S2[SP[a1, a3], a5, SP[a2, a4], a6, n] - S2[SP[a1, a3], SP[a2, a5], a4, 
     a6, n] - S2[SP[a1, a3], SP[a2, a5], a6, a4, n] + 
    S2[SP[a1, a4], a2, a3, SP[a5, a6], n] + S2[SP[a1, a4], a2, a6, 
     SP[a3, a5], n] + S2[SP[a1, a4], a2, SP[a3, a5], a6, n] + 
    S2[SP[a1, a4], a2, SP[a5, a6], a3, n] + S2[SP[a1, a4], a3, a2, 
     SP[a5, a6], n] + S2[SP[a1, a4], a3, SP[a2, a5], a6, n] + 
    S2[SP[a1, a4], SP[a2, a5], a3, a6, n] + S2[SP[a1, a4], SP[a2, a5], a6, 
     a3, n] + S2[SP[a1, a4], SP[a3, a5], a2, a6, n] - 
    S2[a1, a2, a3, a4, SP[a5, a6], n] - S2[a6, n]*S2[a1, a2, a3, a5, a4, n] + 
    S2[a4, n]*S2[a1, a2, a3, a5, a6, n] + 
    S2[a4, n]*S2[a1, a2, a3, a6, a5, n] + S2[a1, a2, a3, a6, SP[a4, a5], n] + 
    S2[a1, a2, a3, SP[a4, a5], a6, n] - S2[a1, a2, a3, SP[a5, a6], a4, n] - 
    S2[a1, a2, a4, a3, SP[a5, a6], n] - S2[a1, a2, a4, a6, SP[a3, a5], n] - 
    S2[a1, a2, a4, SP[a3, a5], a6, n] - S2[a1, a2, a4, SP[a5, a6], a3, n] + 
    S2[a4, n]*S2[a1, a2, a5, a3, a6, n] + S2[a1, a2, a5, a3, SP[a4, a6], n] - 
    S2[a3, n]*S2[a1, a2, a5, a4, a6, n] - S2[a1, a2, a5, a4, SP[a3, a6], n] + 
    S2[a4, n]*S2[a1, a2, a5, a6, a3, n] - 
    S2[a3, n]*S2[a1, a2, a5, a6, a4, n] - S2[a1, a2, a5, SP[a3, a6], a4, n] + 
    S2[a1, a2, a5, SP[a4, a6], a3, n] + S2[a4, n]*S2[a1, a2, a6, a3, a5, n] + 
    S2[a1, a2, a6, a3, SP[a4, a5], n] - S2[a1, a2, a6, a4, SP[a3, a5], n] + 
    S2[a4, n]*S2[a1, a2, a6, a5, a3, n] - 
    S2[a3, n]*S2[a1, a2, a6, a5, a4, n] - S2[a1, a2, a6, SP[a3, a5], a4, n] + 
    S2[a1, a2, a6, SP[a4, a5], a3, n] - S2[a1, a2, SP[a3, a5], a4, a6, n] - 
    S2[a1, a2, SP[a3, a5], a6, a4, n] - 2*S2[a1, a2, SP[a3, a6], a5, a4, n] + 
    S2[a1, a2, SP[a4, a5], a3, a6, n] + S2[a1, a2, SP[a4, a5], a6, a3, n] - 
    S2[a1, a3, a2, a4, SP[a5, a6], n] - S2[a6, n]*S2[a1, a3, a2, a5, a4, n] + 
    S2[a4, n]*S2[a1, a3, a2, a5, a6, n] + 
    S2[a4, n]*S2[a1, a3, a2, a6, a5, n] + S2[a1, a3, a2, a6, SP[a4, a5], n] + 
    S2[a1, a3, a2, SP[a4, a5], a6, n] - S2[a1, a3, a2, SP[a5, a6], a4, n] - 
    S2[a1, a3, a4, a2, SP[a5, a6], n] - S2[a1, a3, a4, SP[a2, a5], a6, n] - 
    S2[a6, n]*S2[a1, a3, a5, a2, a4, n] + 
    S2[a4, n]*S2[a1, a3, a5, a2, a6, n] - 
    S2[a6, n]*S2[a1, a3, a5, a4, a2, n] + 
    S2[a2, n]*S2[a1, a3, a5, a4, a6, n] + 
    S2[a2, n]*S2[a1, a3, a5, a6, a4, n] + S2[a1, a3, a5, a6, SP[a2, a4], n] + 
    2*S2[a1, a3, a5, SP[a2, a4], a6, n] - S2[a1, a3, a5, SP[a4, a6], a2, n] + 
    S2[a2, n]*S2[a1, a3, a6, a5, a4, n] + S2[a1, a3, a6, a5, SP[a2, a4], n] + 
    S2[a1, a3, a6, SP[a2, a5], a4, n] + S2[a1, a3, SP[a2, a5], a4, a6, n] + 
    S2[a1, a3, SP[a2, a5], a6, a4, n] + S2[a1, a3, SP[a4, a5], a2, a6, n] - 
    S2[a1, a3, SP[a5, a6], a2, a4, n] - S2[a1, a3, SP[a5, a6], a4, a2, n] - 
    S2[a1, a4, a2, a3, SP[a5, a6], n] - S2[a1, a4, a2, a6, SP[a3, a5], n] - 
    S2[a1, a4, a2, SP[a3, a5], a6, n] - S2[a1, a4, a2, SP[a5, a6], a3, n] - 
    S2[a1, a4, a3, a2, SP[a5, a6], n] - S2[a1, a4, a3, SP[a2, a5], a6, n] - 
    S2[a1, a4, SP[a2, a5], a3, a6, n] - S2[a1, a4, SP[a2, a5], a6, a3, n] - 
    S2[a1, a4, SP[a3, a5], a2, a6, n] + S2[a4, n]*S2[a1, a5, a2, a3, a6, n] + 
    S2[a1, a5, a2, a3, SP[a4, a6], n] - S2[a3, n]*S2[a1, a5, a2, a4, a6, n] - 
    S2[a1, a5, a2, a4, SP[a3, a6], n] + S2[a4, n]*S2[a1, a5, a2, a6, a3, n] - 
    S2[a3, n]*S2[a1, a5, a2, a6, a4, n] - S2[a1, a5, a2, SP[a3, a6], a4, n] + 
    S2[a1, a5, a2, SP[a4, a6], a3, n] + S2[a4, n]*S2[a1, a5, a3, a2, a6, n] + 
    S2[a1, a5, a3, a2, SP[a4, a6], n] + S2[a1, a5, a3, SP[a2, a4], a6, n] - 
    S2[a3, n]*S2[a1, a5, a4, a2, a6, n] - S2[a1, a5, a4, a2, SP[a3, a6], n] - 
    S2[a1, a5, a4, SP[a2, a3], a6, n] - S2[a1, a5, SP[a2, a3], a4, a6, n] - 
    S2[a1, a5, SP[a2, a3], a6, a4, n] + S2[a1, a5, SP[a2, a4], a3, a6, n] + 
    S2[a1, a5, SP[a2, a4], a6, a3, n] + S2[a2, n]*S2[a1, a6, a3, a5, a4, n] + 
    S2[a1, a6, a3, a5, SP[a2, a4], n] + S2[a1, a6, a3, SP[a2, a5], a4, n] + 
    S2[a1, a6, SP[a2, a3], a5, a4, n] - S2[a1, SP[a3, a5], a2, a4, a6, n] - 
    S2[a1, SP[a3, a5], a2, a6, a4, n] - S2[a1, SP[a3, a5], a4, a2, a6, n] - 
    S2[a1, SP[a3, a6], a2, a5, a4, n] - S2[a1, SP[a3, a6], a5, a2, a4, n] - 
    S2[a1, SP[a3, a6], a5, a4, a2, n] + S2[a1, SP[a4, a5], a2, a3, a6, n] + 
    S2[a1, SP[a4, a5], a2, a6, a3, n] + S2[a1, SP[a4, a5], a3, a2, a6, n] - 
    S2[a2, a1, a3, a5, SP[a4, a6], n] - S2[a2, a1, a3, SP[a5, a6], a4, n] - 
    S2[a2, a1, SP[a3, a6], a5, a4, n] - S2[a2, SP[a1, a6], a3, a5, a4, n] + 
    S2[a3, a1, a2, a5, SP[a4, a6], n] + S2[a3, a1, a2, SP[a5, a6], a4, n] + 
    S2[a3, a1, a5, a2, SP[a4, a6], n] + S2[a3, a1, a5, SP[a2, a4], a6, n] + 
    S2[a3, a1, SP[a2, a5], a4, a6, n] + S2[a3, a1, SP[a2, a5], a6, a4, n] - 
    S2[a4, n]*S2[a3, a5, a1, a2, a6, n] + S2[a3, SP[a1, a5], a2, a4, a6, n] + 
    S2[a3, SP[a1, a5], a2, a6, a4, n] + S2[a3, SP[a1, a5], a4, a2, a6, n] - 
    S2[a3, SP[a4, a5], a1, a2, a6, n] - S2[a4, a1, a2, a3, SP[a5, a6], n] - 
    S2[a4, a1, a2, a6, SP[a3, a5], n] - S2[a4, a1, a2, SP[a3, a5], a6, n] - 
    S2[a4, a1, a2, SP[a5, a6], a3, n] - S2[a4, a1, a3, a2, SP[a5, a6], n] - 
    S2[a4, a1, a3, SP[a2, a5], a6, n] - S2[a4, a1, SP[a2, a5], a3, a6, n] - 
    S2[a4, a1, SP[a2, a5], a6, a3, n] - S2[a4, a1, SP[a3, a5], a2, a6, n] + 
    S2[a3, n]*S2[a4, a5, a1, a2, a6, n] + S2[a4, a5, a1, a2, SP[a3, a6], n] + 
    S2[a4, a5, a1, SP[a2, a3], a6, n] + S2[a4, a5, SP[a1, a3], a2, a6, n] - 
    S2[a4, SP[a1, a5], a2, a3, a6, n] - S2[a4, SP[a1, a5], a2, a6, a3, n] - 
    S2[a4, SP[a1, a5], a3, a2, a6, n] + S2[a4, SP[a3, a5], a1, a2, a6, n] + 
    S2[a2, n]*S2[a6, a1, a3, a5, a4, n] + S2[a6, a1, a3, a5, SP[a2, a4], n] + 
    S2[a6, a1, a3, SP[a2, a5], a4, n] + S2[a6, a1, SP[a2, a3], a5, a4, n] + 
    S2[a6, SP[a1, a2], a3, a5, a4, n] - S2[SP[a1, a6], a2, a3, a5, a4, n] - 
    S2[SP[a1, a6], a3, a2, a5, a4, n] - S2[SP[a1, a6], a3, a5, a2, a4, n] - 
    S2[SP[a1, a6], a3, a5, a4, a2, n] + S2[SP[a2, a6], a1, a3, a5, a4, n] - 
    S2[a6, a2, a1, a3, a5, a4, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a4_, a5_, a3_, a1_, a6_, a2_, n_] :> 
  S2[a1, a6, a2, n]*S2[a3, a5, a4, n] + S2[SP[a1, a3], SP[a5, a6], 
     SP[a2, a4], n] + S2[a2, a6, n]*S2[a1, a3, a5, a4, n] - 
    S2[a4, a5, n]*S2[a1, a3, a6, a2, n] - S2[a1, a3, SP[a2, a5], SP[a4, a6], 
     n] + S2[a1, a3, SP[a4, a6], SP[a2, a5], n] - S2[a1, a3, SP[a5, a6], 
     SP[a2, a4], n] - S2[a4, a5, n]*S2[a1, a6, a2, a3, n] - 
    S2[a4, a5, n]*S2[a1, a6, a3, a2, n] + S2[a1, a6, SP[a2, a4], SP[a3, a5], 
     n] + S2[a1, a6, SP[a3, a4], SP[a2, a5], n] - S2[a1, SP[a2, a3], a5, 
     SP[a4, a6], n] - S2[a1, SP[a2, a3], SP[a5, a6], a4, n] + 
    S2[a1, SP[a3, a4], a6, SP[a2, a5], n] + S2[a1, SP[a3, a4], SP[a5, a6], 
     a2, n] - S2[a1, SP[a3, a6], a5, SP[a2, a4], n] - 
    S2[a1, SP[a3, a6], SP[a2, a5], a4, n] + S2[a1, SP[a4, a6], a2, 
     SP[a3, a5], n] + S2[a1, SP[a4, a6], a3, SP[a2, a5], n] + 
    S2[a1, SP[a4, a6], SP[a2, a5], a3, n] + S2[a1, SP[a4, a6], SP[a3, a5], 
     a2, n] - S2[a3, a1, SP[a5, a6], SP[a2, a4], n] - 
    S2[a3, SP[a1, a5], a6, SP[a2, a4], n] - S2[a3, SP[a1, a5], SP[a4, a6], 
     a2, n] - S2[SP[a1, a2], a3, a5, SP[a4, a6], n] - 
    S2[SP[a1, a2], a3, SP[a5, a6], a4, n] - S2[SP[a1, a2], SP[a3, a6], a5, 
     a4, n] - S2[SP[a1, a3], a5, a6, SP[a2, a4], n] - 
    S2[SP[a1, a3], a5, SP[a4, a6], a2, n] - S2[SP[a1, a3], a6, a5, 
     SP[a2, a4], n] - S2[SP[a1, a3], a6, SP[a2, a5], a4, n] - 
    S2[SP[a1, a3], SP[a5, a6], a2, a4, n] - S2[SP[a1, a3], SP[a5, a6], a4, 
     a2, n] + S2[SP[a1, a4], a3, a6, SP[a2, a5], n] + 
    S2[SP[a1, a4], a3, SP[a5, a6], a2, n] + S2[SP[a1, a4], a6, a2, 
     SP[a3, a5], n] + S2[SP[a1, a4], a6, a3, SP[a2, a5], n] + 
    S2[SP[a1, a4], a6, SP[a2, a5], a3, n] + S2[SP[a1, a4], a6, SP[a3, a5], 
     a2, n] + S2[SP[a1, a4], SP[a3, a5], a6, a2, n] + 
    S2[SP[a1, a4], SP[a5, a6], a2, a3, n] + S2[SP[a1, a4], SP[a5, a6], a3, 
     a2, n] + S2[a1, a2, a3, a5, SP[a4, a6], n] + S2[a1, a2, a3, SP[a5, a6], 
     a4, n] + S2[a1, a2, SP[a3, a6], a5, a4, n] + 
    S2[a1, a3, a2, a5, SP[a4, a6], n] + S2[a1, a3, a2, SP[a5, a6], a4, n] - 
    S2[a1, a3, a4, a6, SP[a2, a5], n] - S2[a1, a3, a4, SP[a5, a6], a2, n] + 
    S2[a1, a3, a5, a2, SP[a4, a6], n] - S2[a2, n]*S2[a1, a3, a5, a4, a6, n] - 
    S2[a1, a3, a5, a4, SP[a2, a6], n] + S2[a4, n]*S2[a1, a3, a5, a6, a2, n] - 
    S2[a2, n]*S2[a1, a3, a5, a6, a4, n] + S2[a1, a3, a5, a6, SP[a2, a4], n] - 
    S2[a1, a3, a5, SP[a2, a6], a4, n] + 2*S2[a1, a3, a5, SP[a4, a6], a2, n] + 
    S2[a4, n]*S2[a1, a3, a6, a2, a5, n] + S2[a1, a3, a6, a2, SP[a4, a5], n] - 
    S2[a1, a3, a6, a4, SP[a2, a5], n] + S2[a4, n]*S2[a1, a3, a6, a5, a2, n] - 
    S2[a2, n]*S2[a1, a3, a6, a5, a4, n] + S2[a1, a3, a6, a5, SP[a2, a4], n] + 
    S2[a1, a3, a6, SP[a4, a5], a2, n] - S2[a1, a3, SP[a2, a6], a5, a4, n] + 
    S2[a1, a3, SP[a4, a5], a6, a2, n] + S2[a1, a3, SP[a5, a6], a2, a4, n] + 
    S2[a1, a3, SP[a5, a6], a4, a2, n] - S2[a1, a4, a3, a6, SP[a2, a5], n] - 
    S2[a1, a4, a3, SP[a5, a6], a2, n] - S2[a1, a4, a6, a2, SP[a3, a5], n] - 
    S2[a1, a4, a6, a3, SP[a2, a5], n] - S2[a1, a4, a6, SP[a2, a5], a3, n] - 
    S2[a1, a4, a6, SP[a3, a5], a2, n] - S2[a1, a4, SP[a3, a5], a6, a2, n] - 
    S2[a1, a4, SP[a5, a6], a2, a3, n] - S2[a1, a4, SP[a5, a6], a3, a2, n] + 
    S2[a4, n]*S2[a1, a5, a3, a6, a2, n] + S2[a1, a5, a3, a6, SP[a2, a4], n] + 
    S2[a1, a5, a3, SP[a4, a6], a2, n] - S2[a3, n]*S2[a1, a5, a4, a6, a2, n] - 
    S2[a1, a5, a4, a6, SP[a2, a3], n] - S2[a1, a5, a4, SP[a3, a6], a2, n] + 
    S2[a4, n]*S2[a1, a5, a6, a2, a3, n] - 
    S2[a3, n]*S2[a1, a5, a6, a2, a4, n] + 
    S2[a4, n]*S2[a1, a5, a6, a3, a2, n] + S2[a1, a5, a6, a3, SP[a2, a4], n] - 
    S2[a3, n]*S2[a1, a5, a6, a4, a2, n] - S2[a1, a5, a6, a4, SP[a2, a3], n] - 
    S2[a1, a5, a6, SP[a2, a3], a4, n] + S2[a1, a5, a6, SP[a2, a4], a3, n] - 
    S2[a1, a5, SP[a3, a6], a2, a4, n] - S2[a1, a5, SP[a3, a6], a4, a2, n] + 
    S2[a1, a5, SP[a4, a6], a2, a3, n] + S2[a1, a5, SP[a4, a6], a3, a2, n] + 
    S2[a4, n]*S2[a1, a6, a2, a3, a5, n] + S2[a1, a6, a2, a3, SP[a4, a5], n] - 
    S2[a1, a6, a2, a4, SP[a3, a5], n] + S2[a4, n]*S2[a1, a6, a2, a5, a3, n] - 
    S2[a3, n]*S2[a1, a6, a2, a5, a4, n] - S2[a1, a6, a2, SP[a3, a5], a4, n] + 
    S2[a1, a6, a2, SP[a4, a5], a3, n] + S2[a4, n]*S2[a1, a6, a3, a2, a5, n] + 
    S2[a1, a6, a3, a2, SP[a4, a5], n] - S2[a1, a6, a3, a4, SP[a2, a5], n] + 
    S2[a4, n]*S2[a1, a6, a3, a5, a2, n] - 
    S2[a2, n]*S2[a1, a6, a3, a5, a4, n] + S2[a1, a6, a3, a5, SP[a2, a4], n] + 
    S2[a1, a6, a3, SP[a4, a5], a2, n] - S2[a1, a6, a4, a2, SP[a3, a5], n] - 
    S2[a1, a6, a4, a3, SP[a2, a5], n] - S2[a1, a6, a4, SP[a2, a5], a3, n] - 
    S2[a1, a6, a4, SP[a3, a5], a2, n] + S2[a4, n]*S2[a1, a6, a5, a2, a3, n] - 
    S2[a3, n]*S2[a1, a6, a5, a2, a4, n] + 
    S2[a4, n]*S2[a1, a6, a5, a3, a2, n] + S2[a1, a6, a5, a3, SP[a2, a4], n] - 
    S2[a3, n]*S2[a1, a6, a5, a4, a2, n] - S2[a1, a6, a5, a4, SP[a2, a3], n] - 
    S2[a1, a6, a5, SP[a2, a3], a4, n] + S2[a1, a6, a5, SP[a2, a4], a3, n] - 
    S2[a1, a6, SP[a2, a3], a5, a4, n] - S2[a1, a6, SP[a3, a5], a2, a4, n] - 
    S2[a1, a6, SP[a3, a5], a4, a2, n] + S2[a1, a6, SP[a4, a5], a2, a3, n] + 
    S2[a1, a6, SP[a4, a5], a3, a2, n] - S2[a1, SP[a2, a6], a3, a5, a4, n] - 
    S2[a1, SP[a3, a5], a4, a6, a2, n] - S2[a1, SP[a3, a5], a6, a2, a4, n] - 
    S2[a1, SP[a3, a5], a6, a4, a2, n] + S2[a1, SP[a4, a5], a3, a6, a2, n] + 
    S2[a1, SP[a4, a5], a6, a2, a3, n] + S2[a1, SP[a4, a5], a6, a3, a2, n] + 
    S2[a2, a1, a3, a5, SP[a4, a6], n] + S2[a2, a1, a3, SP[a5, a6], a4, n] + 
    S2[a2, a1, SP[a3, a6], a5, a4, n] + S2[a2, SP[a1, a6], a3, a5, a4, n] + 
    S2[a3, a1, a5, a6, SP[a2, a4], n] + S2[a3, a1, a5, SP[a4, a6], a2, n] + 
    S2[a3, a1, a6, a5, SP[a2, a4], n] + S2[a3, a1, a6, SP[a2, a5], a4, n] + 
    S2[a3, a1, SP[a5, a6], a2, a4, n] + S2[a3, a1, SP[a5, a6], a4, a2, n] - 
    S2[a4, n]*S2[a3, a5, a1, a6, a2, n] + S2[a3, SP[a1, a5], a4, a6, a2, n] + 
    S2[a3, SP[a1, a5], a6, a2, a4, n] + S2[a3, SP[a1, a5], a6, a4, a2, n] - 
    S2[a3, SP[a4, a5], a1, a6, a2, n] - S2[a4, a1, a3, a6, SP[a2, a5], n] - 
    S2[a4, a1, a3, SP[a5, a6], a2, n] - S2[a4, a1, a6, a2, SP[a3, a5], n] - 
    S2[a4, a1, a6, a3, SP[a2, a5], n] - S2[a4, a1, a6, SP[a2, a5], a3, n] - 
    S2[a4, a1, a6, SP[a3, a5], a2, n] - S2[a4, a1, SP[a3, a5], a6, a2, n] - 
    S2[a4, a1, SP[a5, a6], a2, a3, n] - S2[a4, a1, SP[a5, a6], a3, a2, n] + 
    S2[a3, n]*S2[a4, a5, a1, a6, a2, n] + S2[a4, a5, a1, a6, SP[a2, a3], n] + 
    S2[a4, a5, a1, SP[a3, a6], a2, n] + S2[a4, a5, SP[a1, a3], a6, a2, n] - 
    S2[a4, SP[a1, a5], a3, a6, a2, n] - S2[a4, SP[a1, a5], a6, a2, a3, n] - 
    S2[a4, SP[a1, a5], a6, a3, a2, n] + S2[a4, SP[a3, a5], a1, a6, a2, n] - 
    S2[a2, n]*S2[a6, a1, a3, a5, a4, n] - S2[a6, a1, a3, a5, SP[a2, a4], n] - 
    S2[a6, a1, a3, SP[a2, a5], a4, n] - S2[a6, a1, SP[a2, a3], a5, a4, n] - 
    S2[a6, SP[a1, a2], a3, a5, a4, n] - S2[SP[a2, a6], a1, a3, a5, a4, n] + 
    S2[a6, a1, a2, a3, a5, a4, n] + S2[a6, a1, a3, a2, a5, a4, n] + 
    S2[a6, a1, a3, a5, a2, a4, n] + S2[a6, a1, a3, a5, a4, a2, n] + 
    S2[a6, a2, a1, a3, a5, a4, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a4_, a5_, a3_, a2_, a1_, a6_, n_] :> 
  -(S2[a1, a2, a6, n]*S2[a3, a5, a4, n]) - S2[a1, a6, a2, n]*
     S2[a3, a5, a4, n] - S2[SP[a1, a3], SP[a2, a5], SP[a4, a6], n] - 
    S2[SP[a1, a3], SP[a5, a6], SP[a2, a4], n] + 
    S2[a4, a5, n]*S2[a1, a2, a3, a6, n] + S2[a4, a5, n]*
     S2[a1, a2, a6, a3, n] - S2[a1, a2, SP[a3, a4], SP[a5, a6], n] - 
    S2[a1, a2, SP[a4, a6], SP[a3, a5], n] + S2[a1, a3, SP[a2, a5], 
     SP[a4, a6], n] + S2[a1, a3, SP[a5, a6], SP[a2, a4], n] + 
    S2[a4, a5, n]*S2[a1, a6, a2, a3, n] - S2[a1, a6, SP[a2, a4], SP[a3, a5], 
     n] + S2[a1, SP[a2, a3], a5, SP[a4, a6], n] + 
    S2[a1, SP[a2, a3], SP[a5, a6], a4, n] - S2[a1, SP[a2, a4], a3, 
     SP[a5, a6], n] - S2[a1, SP[a2, a4], a6, SP[a3, a5], n] - 
    S2[a1, SP[a2, a4], SP[a3, a5], a6, n] - S2[a1, SP[a2, a4], SP[a5, a6], 
     a3, n] + S2[a1, SP[a3, a6], a5, SP[a2, a4], n] + 
    S2[a1, SP[a3, a6], SP[a2, a5], a4, n] - S2[a1, SP[a4, a6], a2, 
     SP[a3, a5], n] - S2[a1, SP[a4, a6], SP[a2, a5], a3, n] + 
    S2[a1, a6, n]*S2[a2, a5, a3, a4, n] + S2[a1, a6, n]*
     S2[a2, a5, a4, a3, n] - S2[a2, a5, SP[a1, a3], SP[a4, a6], n] - 
    S2[a2, a5, SP[a1, a4], SP[a3, a6], n] - S2[a2, SP[a1, a5], a3, 
     SP[a4, a6], n] - S2[a2, SP[a1, a5], a4, SP[a3, a6], n] - 
    S2[a2, SP[a1, a5], SP[a3, a6], a4, n] - S2[a2, SP[a1, a5], SP[a4, a6], 
     a3, n] + S2[a3, a1, SP[a2, a5], SP[a4, a6], n] + 
    S2[a3, a1, SP[a5, a6], SP[a2, a4], n] + S2[a3, SP[a1, a5], a2, 
     SP[a4, a6], n] + S2[a3, SP[a1, a5], a6, SP[a2, a4], n] + 
    S2[a3, SP[a1, a5], SP[a2, a4], a6, n] + S2[a3, SP[a1, a5], SP[a4, a6], 
     a2, n] - S2[a1, a6, n]*S2[a4, a5, a2, a3, n] + 
    S2[a4, a5, SP[a1, a2], SP[a3, a6], n] + S2[a4, SP[a1, a5], a2, 
     SP[a3, a6], n] + S2[a4, SP[a1, a5], SP[a2, a6], a3, n] - 
    S2[SP[a1, a2], a5, a3, SP[a4, a6], n] - S2[SP[a1, a2], a5, a4, 
     SP[a3, a6], n] - S2[SP[a1, a2], a5, SP[a3, a6], a4, n] - 
    S2[SP[a1, a2], a5, SP[a4, a6], a3, n] - S2[SP[a1, a2], SP[a5, a6], a3, 
     a4, n] - S2[SP[a1, a2], SP[a5, a6], a4, a3, n] + 
    S2[SP[a1, a3], a2, a5, SP[a4, a6], n] + S2[SP[a1, a3], a2, SP[a5, a6], 
     a4, n] + S2[SP[a1, a3], a5, a2, SP[a4, a6], n] + 
    S2[SP[a1, a3], a5, a6, SP[a2, a4], n] + S2[SP[a1, a3], a5, SP[a2, a4], 
     a6, n] + S2[SP[a1, a3], a5, SP[a4, a6], a2, n] + 
    S2[SP[a1, a3], a6, a5, SP[a2, a4], n] + S2[SP[a1, a3], a6, SP[a2, a5], 
     a4, n] + S2[SP[a1, a3], SP[a2, a5], a4, a6, n] + 
    S2[SP[a1, a3], SP[a2, a5], a6, a4, n] + S2[SP[a1, a3], SP[a5, a6], a2, 
     a4, n] + S2[SP[a1, a3], SP[a5, a6], a4, a2, n] - 
    S2[SP[a1, a4], a2, a3, SP[a5, a6], n] - S2[SP[a1, a4], a2, a6, 
     SP[a3, a5], n] - S2[SP[a1, a4], a2, SP[a3, a5], a6, n] - 
    S2[SP[a1, a4], a2, SP[a5, a6], a3, n] + S2[SP[a1, a4], a5, a2, 
     SP[a3, a6], n] + S2[SP[a1, a4], a5, SP[a2, a6], a3, n] - 
    S2[SP[a1, a4], a6, a2, SP[a3, a5], n] - S2[SP[a1, a4], a6, SP[a2, a5], 
     a3, n] - S2[SP[a1, a4], SP[a2, a5], a3, a6, n] - 
    S2[SP[a1, a4], SP[a2, a5], a6, a3, n] + S2[a1, a2, a3, a4, SP[a5, a6], 
     n] + S2[a6, n]*S2[a1, a2, a3, a5, a4, n] - 
    S2[a4, n]*S2[a1, a2, a3, a5, a6, n] - S2[a1, a2, a3, a5, SP[a4, a6], n] - 
    S2[a4, n]*S2[a1, a2, a3, a6, a5, n] - S2[a1, a2, a3, a6, SP[a4, a5], n] - 
    S2[a1, a2, a3, SP[a4, a5], a6, n] + S2[a1, a2, a4, a3, SP[a5, a6], n] + 
    S2[a1, a2, a4, a6, SP[a3, a5], n] + S2[a1, a2, a4, SP[a3, a5], a6, n] + 
    S2[a1, a2, a4, SP[a5, a6], a3, n] - S2[a4, n]*S2[a1, a2, a5, a3, a6, n] + 
    S2[a3, n]*S2[a1, a2, a5, a4, a6, n] + 
    2*S2[a1, a2, a5, a4, SP[a3, a6], n] - 
    S2[a4, n]*S2[a1, a2, a5, a6, a3, n] + 
    S2[a3, n]*S2[a1, a2, a5, a6, a4, n] + 
    2*S2[a1, a2, a5, SP[a3, a6], a4, n] - 
    S2[a4, n]*S2[a1, a2, a6, a3, a5, n] - S2[a1, a2, a6, a3, SP[a4, a5], n] + 
    S2[a1, a2, a6, a4, SP[a3, a5], n] - S2[a4, n]*S2[a1, a2, a6, a5, a3, n] + 
    S2[a3, n]*S2[a1, a2, a6, a5, a4, n] + S2[a1, a2, a6, SP[a3, a5], a4, n] - 
    S2[a1, a2, a6, SP[a4, a5], a3, n] + S2[a1, a2, SP[a3, a5], a4, a6, n] + 
    S2[a1, a2, SP[a3, a5], a6, a4, n] + S2[a1, a2, SP[a3, a6], a5, a4, n] - 
    S2[a1, a2, SP[a4, a5], a3, a6, n] - S2[a1, a2, SP[a4, a5], a6, a3, n] + 
    S2[a1, a2, SP[a5, a6], a3, a4, n] + S2[a1, a2, SP[a5, a6], a4, a3, n] - 
    S2[a1, a3, a2, a5, SP[a4, a6], n] - S2[a1, a3, a2, SP[a5, a6], a4, n] - 
    S2[a1, a3, a5, a2, SP[a4, a6], n] - S2[a1, a3, a5, a6, SP[a2, a4], n] - 
    S2[a1, a3, a5, SP[a2, a4], a6, n] - S2[a1, a3, a5, SP[a4, a6], a2, n] - 
    S2[a1, a3, a6, a5, SP[a2, a4], n] - S2[a1, a3, a6, SP[a2, a5], a4, n] - 
    S2[a1, a3, SP[a2, a5], a4, a6, n] - S2[a1, a3, SP[a2, a5], a6, a4, n] - 
    S2[a1, a3, SP[a5, a6], a2, a4, n] - S2[a1, a3, SP[a5, a6], a4, a2, n] + 
    S2[a1, a4, a2, a3, SP[a5, a6], n] + S2[a1, a4, a2, a6, SP[a3, a5], n] + 
    S2[a1, a4, a2, SP[a3, a5], a6, n] + S2[a1, a4, a2, SP[a5, a6], a3, n] - 
    S2[a1, a4, a5, a2, SP[a3, a6], n] - S2[a1, a4, a5, SP[a2, a6], a3, n] + 
    S2[a1, a4, a6, a2, SP[a3, a5], n] + S2[a1, a4, a6, SP[a2, a5], a3, n] + 
    S2[a1, a4, SP[a2, a5], a3, a6, n] + S2[a1, a4, SP[a2, a5], a6, a3, n] + 
    S2[a3, n]*S2[a1, a5, a2, a4, a6, n] + S2[a1, a5, a2, a4, SP[a3, a6], n] + 
    S2[a3, n]*S2[a1, a5, a2, a6, a4, n] + S2[a1, a5, a2, a6, SP[a3, a4], n] + 
    S2[a1, a5, a2, SP[a3, a4], a6, n] + S2[a1, a5, a2, SP[a3, a6], a4, n] - 
    S2[a2, n]*S2[a1, a5, a3, a4, a6, n] - S2[a1, a5, a3, a4, SP[a2, a6], n] - 
    S2[a2, n]*S2[a1, a5, a3, a6, a4, n] - S2[a1, a5, a3, a6, SP[a2, a4], n] - 
    S2[a1, a5, a3, SP[a2, a4], a6, n] - S2[a1, a5, a3, SP[a2, a6], a4, n] + 
    S2[a3, n]*S2[a1, a5, a4, a2, a6, n] + S2[a1, a5, a4, a2, SP[a3, a6], n] - 
    S2[a2, n]*S2[a1, a5, a4, a3, a6, n] - S2[a1, a5, a4, a3, SP[a2, a6], n] + 
    S2[a3, n]*S2[a1, a5, a4, a6, a2, n] - 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] - S2[a1, a5, a4, SP[a2, a6], a3, n] + 
    S2[a1, a5, a4, SP[a3, a6], a2, n] + S2[a3, n]*S2[a1, a5, a6, a2, a4, n] + 
    S2[a1, a5, a6, a2, SP[a3, a4], n] - S2[a2, n]*S2[a1, a5, a6, a3, a4, n] - 
    S2[a1, a5, a6, a3, SP[a2, a4], n] + S2[a3, n]*S2[a1, a5, a6, a4, a2, n] - 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] - S2[a1, a5, a6, SP[a2, a4], a3, n] + 
    S2[a1, a5, a6, SP[a3, a4], a2, n] - S2[a1, a5, SP[a2, a4], a3, a6, n] - 
    S2[a1, a5, SP[a2, a4], a6, a3, n] - S2[a1, a5, SP[a2, a6], a3, a4, n] - 
    S2[a1, a5, SP[a2, a6], a4, a3, n] + S2[a1, a5, SP[a3, a4], a2, a6, n] + 
    S2[a1, a5, SP[a3, a4], a6, a2, n] + S2[a1, a5, SP[a3, a6], a2, a4, n] + 
    S2[a1, a5, SP[a3, a6], a4, a2, n] - S2[a4, n]*S2[a1, a6, a2, a3, a5, n] - 
    S2[a1, a6, a2, a3, SP[a4, a5], n] + S2[a1, a6, a2, a4, SP[a3, a5], n] - 
    S2[a4, n]*S2[a1, a6, a2, a5, a3, n] + 
    S2[a3, n]*S2[a1, a6, a2, a5, a4, n] + S2[a1, a6, a2, SP[a3, a5], a4, n] - 
    S2[a1, a6, a2, SP[a4, a5], a3, n] - S2[a1, a6, a3, a5, SP[a2, a4], n] - 
    S2[a1, a6, a3, SP[a2, a5], a4, n] + S2[a1, a6, a4, a2, SP[a3, a5], n] + 
    S2[a1, a6, a4, SP[a2, a5], a3, n] + S2[a3, n]*S2[a1, a6, a5, a2, a4, n] + 
    S2[a1, a6, a5, a2, SP[a3, a4], n] - S2[a2, n]*S2[a1, a6, a5, a3, a4, n] - 
    S2[a1, a6, a5, a3, SP[a2, a4], n] + S2[a3, n]*S2[a1, a6, a5, a4, a2, n] - 
    S2[a2, n]*S2[a1, a6, a5, a4, a3, n] - S2[a1, a6, a5, SP[a2, a4], a3, n] + 
    S2[a1, a6, a5, SP[a3, a4], a2, n] - S2[a1, a6, SP[a2, a5], a3, a4, n] - 
    S2[a1, a6, SP[a2, a5], a4, a3, n] + S2[a1, a6, SP[a3, a5], a2, a4, n] + 
    S2[a1, a6, SP[a3, a5], a4, a2, n] - S2[a1, SP[a2, a5], a3, a4, a6, n] - 
    S2[a1, SP[a2, a5], a3, a6, a4, n] - S2[a1, SP[a2, a5], a4, a3, a6, n] - 
    S2[a1, SP[a2, a5], a4, a6, a3, n] - S2[a1, SP[a2, a5], a6, a3, a4, n] - 
    S2[a1, SP[a2, a5], a6, a4, a3, n] + S2[a1, SP[a2, a6], a3, a5, a4, n] + 
    S2[a1, SP[a3, a5], a2, a4, a6, n] + S2[a1, SP[a3, a5], a2, a6, a4, n] + 
    S2[a1, SP[a3, a5], a4, a2, a6, n] + S2[a1, SP[a3, a5], a4, a6, a2, n] + 
    S2[a1, SP[a3, a5], a6, a2, a4, n] + S2[a1, SP[a3, a5], a6, a4, a2, n] + 
    S2[a2, a1, a5, a3, SP[a4, a6], n] + S2[a2, a1, a5, a4, SP[a3, a6], n] + 
    S2[a2, a1, a5, SP[a3, a6], a4, n] + S2[a2, a1, a5, SP[a4, a6], a3, n] + 
    S2[a2, a1, SP[a5, a6], a3, a4, n] + S2[a2, a1, SP[a5, a6], a4, a3, n] - 
    S2[a4, n]*S2[a2, a5, a1, a3, a6, n] + S2[a2, a5, a1, a4, SP[a3, a6], n] - 
    S2[a4, n]*S2[a2, a5, a1, a6, a3, n] - S2[a2, a5, a1, a6, SP[a3, a4], n] - 
    S2[a2, a5, a1, SP[a3, a4], a6, n] + S2[a2, a5, a1, SP[a3, a6], a4, n] - 
    S2[a4, n]*S2[a2, a5, a3, a1, a6, n] + S2[a2, a5, a4, a1, SP[a3, a6], n] + 
    S2[a2, a5, a4, SP[a1, a3], a6, n] + S2[a2, a5, SP[a1, a3], a4, a6, n] + 
    S2[a2, a5, SP[a1, a3], a6, a4, n] - S2[a2, a5, SP[a3, a4], a1, a6, n] + 
    S2[a2, SP[a1, a5], a3, a4, a6, n] + S2[a2, SP[a1, a5], a3, a6, a4, n] + 
    S2[a2, SP[a1, a5], a4, a3, a6, n] + S2[a2, SP[a1, a5], a4, a6, a3, n] + 
    S2[a2, SP[a1, a5], a6, a3, a4, n] + S2[a2, SP[a1, a5], a6, a4, a3, n] - 
    S2[a2, SP[a4, a5], a1, a3, a6, n] - S2[a2, SP[a4, a5], a1, a6, a3, n] - 
    S2[a2, SP[a4, a5], a3, a1, a6, n] - S2[a3, a1, a2, a5, SP[a4, a6], n] - 
    S2[a3, a1, a2, SP[a5, a6], a4, n] - S2[a3, a1, a5, a2, SP[a4, a6], n] - 
    S2[a3, a1, a5, a6, SP[a2, a4], n] - S2[a3, a1, a5, SP[a2, a4], a6, n] - 
    S2[a3, a1, a5, SP[a4, a6], a2, n] - S2[a3, a1, a6, a5, SP[a2, a4], n] - 
    S2[a3, a1, a6, SP[a2, a5], a4, n] - S2[a3, a1, SP[a2, a5], a4, a6, n] - 
    S2[a3, a1, SP[a2, a5], a6, a4, n] - S2[a3, a1, SP[a5, a6], a2, a4, n] - 
    S2[a3, a1, SP[a5, a6], a4, a2, n] + S2[a4, n]*S2[a3, a5, a1, a2, a6, n] + 
    S2[a4, n]*S2[a3, a5, a1, a6, a2, n] - S2[a3, SP[a1, a5], a2, a4, a6, n] - 
    S2[a3, SP[a1, a5], a2, a6, a4, n] - S2[a3, SP[a1, a5], a4, a2, a6, n] - 
    S2[a3, SP[a1, a5], a4, a6, a2, n] - S2[a3, SP[a1, a5], a6, a2, a4, n] - 
    S2[a3, SP[a1, a5], a6, a4, a2, n] + S2[a3, SP[a4, a5], a1, a2, a6, n] + 
    S2[a3, SP[a4, a5], a1, a6, a2, n] + S2[a4, a1, a2, a3, SP[a5, a6], n] + 
    S2[a4, a1, a2, a6, SP[a3, a5], n] + S2[a4, a1, a2, SP[a3, a5], a6, n] + 
    S2[a4, a1, a2, SP[a5, a6], a3, n] - S2[a4, a1, a5, a2, SP[a3, a6], n] - 
    S2[a4, a1, a5, SP[a2, a6], a3, n] + S2[a4, a1, a6, a2, SP[a3, a5], n] + 
    S2[a4, a1, a6, SP[a2, a5], a3, n] + S2[a4, a1, SP[a2, a5], a3, a6, n] + 
    S2[a4, a1, SP[a2, a5], a6, a3, n] - S2[a3, n]*S2[a4, a5, a1, a2, a6, n] - 
    2*S2[a4, a5, a1, a2, SP[a3, a6], n] + 
    S2[a2, n]*S2[a4, a5, a1, a3, a6, n] + S2[a4, a5, a1, a3, SP[a2, a6], n] - 
    S2[a3, n]*S2[a4, a5, a1, a6, a2, n] + 
    S2[a2, n]*S2[a4, a5, a1, a6, a3, n] - S2[a4, a5, a1, SP[a3, a6], a2, n] - 
    S2[a4, a5, a2, a1, SP[a3, a6], n] - S2[a4, a5, a2, SP[a1, a3], a6, n] + 
    S2[a2, n]*S2[a4, a5, a3, a1, a6, n] + S2[a4, a5, a3, a1, SP[a2, a6], n] + 
    S2[a4, a5, a3, SP[a1, a2], a6, n] - S2[a4, a5, SP[a1, a3], a2, a6, n] - 
    S2[a4, a5, SP[a1, a3], a6, a2, n] + S2[a4, a5, SP[a2, a3], a1, a6, n] + 
    S2[a4, SP[a2, a5], a1, a3, a6, n] + S2[a4, SP[a2, a5], a1, a6, a3, n] + 
    S2[a4, SP[a2, a5], a3, a1, a6, n] - S2[a4, SP[a3, a5], a1, a2, a6, n] - 
    S2[a4, SP[a3, a5], a1, a6, a2, n] + S2[SP[a1, a6], a2, a3, a5, a4, n] - 
    S2[a6, a1, a2, a3, a5, a4, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a4_, a5_, a3_, a2_, a6_, a1_, n_] :> 
  S2[a1, a6, a2, n]*S2[a3, a5, a4, n] + S2[SP[a1, a3], SP[a5, a6], 
     SP[a2, a4], n] - S2[a1, a3, SP[a5, a6], SP[a2, a4], n] - 
    S2[a4, a5, n]*S2[a1, a6, a2, a3, n] + S2[a1, a6, SP[a2, a4], SP[a3, a5], 
     n] - S2[a1, SP[a3, a6], a5, SP[a2, a4], n] - 
    S2[a1, SP[a3, a6], SP[a2, a5], a4, n] + S2[a1, SP[a4, a6], a2, 
     SP[a3, a5], n] + S2[a1, SP[a4, a6], SP[a2, a5], a3, n] - 
    S2[a1, a6, n]*S2[a2, a5, a3, a4, n] - S2[a1, a6, n]*
     S2[a2, a5, a4, a3, n] + S2[a2, a5, SP[a1, a3], SP[a4, a6], n] + 
    S2[a2, a5, SP[a1, a4], SP[a3, a6], n] + S2[a2, SP[a1, a5], a3, 
     SP[a4, a6], n] + S2[a2, SP[a1, a5], a4, SP[a3, a6], n] + 
    S2[a2, SP[a1, a5], SP[a3, a6], a4, n] + S2[a2, SP[a1, a5], SP[a4, a6], 
     a3, n] - S2[a3, a1, SP[a5, a6], SP[a2, a4], n] - 
    S2[a3, SP[a1, a5], a6, SP[a2, a4], n] - S2[a3, SP[a1, a5], SP[a4, a6], 
     a2, n] + S2[a1, a6, n]*S2[a4, a5, a2, a3, n] - 
    S2[a4, a5, SP[a1, a2], SP[a3, a6], n] - S2[a4, SP[a1, a5], a2, 
     SP[a3, a6], n] - S2[a4, SP[a1, a5], SP[a2, a6], a3, n] + 
    S2[SP[a1, a2], a5, a3, SP[a4, a6], n] + S2[SP[a1, a2], a5, a4, 
     SP[a3, a6], n] + S2[SP[a1, a2], a5, SP[a3, a6], a4, n] + 
    S2[SP[a1, a2], a5, SP[a4, a6], a3, n] + S2[SP[a1, a2], SP[a5, a6], a3, 
     a4, n] + S2[SP[a1, a2], SP[a5, a6], a4, a3, n] - 
    S2[SP[a1, a3], a5, a6, SP[a2, a4], n] - S2[SP[a1, a3], a5, SP[a4, a6], 
     a2, n] - S2[SP[a1, a3], a6, a5, SP[a2, a4], n] - 
    S2[SP[a1, a3], a6, SP[a2, a5], a4, n] - S2[SP[a1, a3], SP[a5, a6], a2, 
     a4, n] - S2[SP[a1, a3], SP[a5, a6], a4, a2, n] - 
    S2[SP[a1, a4], a5, a2, SP[a3, a6], n] - S2[SP[a1, a4], a5, SP[a2, a6], 
     a3, n] + S2[SP[a1, a4], a6, a2, SP[a3, a5], n] + 
    S2[SP[a1, a4], a6, SP[a2, a5], a3, n] - S2[a1, a2, a5, a3, SP[a4, a6], 
     n] - S2[a1, a2, a5, a4, SP[a3, a6], n] - S2[a1, a2, a5, SP[a3, a6], a4, 
     n] - S2[a1, a2, a5, SP[a4, a6], a3, n] - S2[a1, a2, SP[a5, a6], a3, a4, 
     n] - S2[a1, a2, SP[a5, a6], a4, a3, n] + S2[a1, a3, a5, a6, SP[a2, a4], 
     n] + S2[a1, a3, a5, SP[a4, a6], a2, n] + S2[a1, a3, a6, a5, SP[a2, a4], 
     n] + S2[a1, a3, a6, SP[a2, a5], a4, n] + S2[a1, a3, SP[a5, a6], a2, a4, 
     n] + S2[a1, a3, SP[a5, a6], a4, a2, n] + S2[a1, a4, a5, a2, SP[a3, a6], 
     n] + S2[a1, a4, a5, SP[a2, a6], a3, n] - S2[a1, a4, a6, a2, SP[a3, a5], 
     n] - S2[a1, a4, a6, SP[a2, a5], a3, n] - 
    S2[a4, n]*S2[a1, a5, a2, a3, a6, n] - S2[a1, a5, a2, a3, SP[a4, a6], n] - 
    S2[a4, n]*S2[a1, a5, a2, a6, a3, n] - S2[a1, a5, a2, a6, SP[a3, a4], n] - 
    S2[a1, a5, a2, SP[a3, a4], a6, n] - S2[a1, a5, a2, SP[a4, a6], a3, n] - 
    S2[a4, n]*S2[a1, a5, a3, a2, a6, n] - S2[a1, a5, a3, a2, SP[a4, a6], n] + 
    S2[a2, n]*S2[a1, a5, a3, a4, a6, n] + S2[a1, a5, a3, a4, SP[a2, a6], n] + 
    S2[a2, n]*S2[a1, a5, a3, a6, a4, n] + S2[a1, a5, a3, a6, SP[a2, a4], n] + 
    S2[a1, a5, a3, SP[a2, a6], a4, n] + S2[a2, n]*S2[a1, a5, a4, a3, a6, n] + 
    S2[a1, a5, a4, a3, SP[a2, a6], n] - S2[a3, n]*S2[a1, a5, a4, a6, a2, n] + 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] + S2[a1, a5, a4, SP[a2, a3], a6, n] + 
    S2[a1, a5, a4, SP[a2, a6], a3, n] - S2[a1, a5, a4, SP[a3, a6], a2, n] - 
    S2[a3, n]*S2[a1, a5, a6, a2, a4, n] - S2[a1, a5, a6, a2, SP[a3, a4], n] + 
    S2[a2, n]*S2[a1, a5, a6, a3, a4, n] + S2[a1, a5, a6, a3, SP[a2, a4], n] - 
    S2[a3, n]*S2[a1, a5, a6, a4, a2, n] + 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] + S2[a1, a5, a6, SP[a2, a4], a3, n] - 
    S2[a1, a5, a6, SP[a3, a4], a2, n] + S2[a1, a5, SP[a2, a3], a4, a6, n] + 
    S2[a1, a5, SP[a2, a3], a6, a4, n] + S2[a1, a5, SP[a2, a6], a3, a4, n] + 
    S2[a1, a5, SP[a2, a6], a4, a3, n] - S2[a1, a5, SP[a3, a4], a2, a6, n] - 
    S2[a1, a5, SP[a3, a4], a6, a2, n] - S2[a1, a5, SP[a3, a6], a2, a4, n] - 
    S2[a1, a5, SP[a3, a6], a4, a2, n] + S2[a4, n]*S2[a1, a6, a2, a3, a5, n] + 
    S2[a1, a6, a2, a3, SP[a4, a5], n] - S2[a1, a6, a2, a4, SP[a3, a5], n] + 
    S2[a4, n]*S2[a1, a6, a2, a5, a3, n] - 
    S2[a3, n]*S2[a1, a6, a2, a5, a4, n] - S2[a1, a6, a2, SP[a3, a5], a4, n] + 
    S2[a1, a6, a2, SP[a4, a5], a3, n] + S2[a1, a6, a3, a5, SP[a2, a4], n] + 
    S2[a1, a6, a3, SP[a2, a5], a4, n] - S2[a1, a6, a4, a2, SP[a3, a5], n] - 
    S2[a1, a6, a4, SP[a2, a5], a3, n] - S2[a3, n]*S2[a1, a6, a5, a2, a4, n] - 
    S2[a1, a6, a5, a2, SP[a3, a4], n] + S2[a2, n]*S2[a1, a6, a5, a3, a4, n] + 
    S2[a1, a6, a5, a3, SP[a2, a4], n] - S2[a3, n]*S2[a1, a6, a5, a4, a2, n] + 
    S2[a2, n]*S2[a1, a6, a5, a4, a3, n] + S2[a1, a6, a5, SP[a2, a4], a3, n] - 
    S2[a1, a6, a5, SP[a3, a4], a2, n] + S2[a1, a6, SP[a2, a5], a3, a4, n] + 
    S2[a1, a6, SP[a2, a5], a4, a3, n] - S2[a1, a6, SP[a3, a5], a2, a4, n] - 
    S2[a1, a6, SP[a3, a5], a4, a2, n] + S2[a1, SP[a2, a5], a3, a4, a6, n] + 
    S2[a1, SP[a2, a5], a3, a6, a4, n] + S2[a1, SP[a2, a5], a4, a3, a6, n] + 
    S2[a1, SP[a2, a5], a4, a6, a3, n] + S2[a1, SP[a2, a5], a6, a3, a4, n] + 
    S2[a1, SP[a2, a5], a6, a4, a3, n] - S2[a1, SP[a3, a5], a4, a6, a2, n] - 
    S2[a1, SP[a3, a5], a6, a2, a4, n] - S2[a1, SP[a3, a5], a6, a4, a2, n] - 
    S2[a1, SP[a4, a5], a2, a3, a6, n] - S2[a1, SP[a4, a5], a2, a6, a3, n] - 
    S2[a1, SP[a4, a5], a3, a2, a6, n] - S2[a2, a1, a5, a3, SP[a4, a6], n] - 
    S2[a2, a1, a5, a4, SP[a3, a6], n] - S2[a2, a1, a5, SP[a3, a6], a4, n] - 
    S2[a2, a1, a5, SP[a4, a6], a3, n] - S2[a2, a1, SP[a5, a6], a3, a4, n] - 
    S2[a2, a1, SP[a5, a6], a4, a3, n] + S2[a4, n]*S2[a2, a5, a1, a3, a6, n] - 
    S2[a2, a5, a1, a4, SP[a3, a6], n] + S2[a4, n]*S2[a2, a5, a1, a6, a3, n] + 
    S2[a2, a5, a1, a6, SP[a3, a4], n] + S2[a2, a5, a1, SP[a3, a4], a6, n] - 
    S2[a2, a5, a1, SP[a3, a6], a4, n] + S2[a4, n]*S2[a2, a5, a3, a1, a6, n] - 
    S2[a2, a5, a4, a1, SP[a3, a6], n] - S2[a2, a5, a4, SP[a1, a3], a6, n] - 
    S2[a2, a5, SP[a1, a3], a4, a6, n] - S2[a2, a5, SP[a1, a3], a6, a4, n] + 
    S2[a2, a5, SP[a3, a4], a1, a6, n] - S2[a2, SP[a1, a5], a3, a4, a6, n] - 
    S2[a2, SP[a1, a5], a3, a6, a4, n] - S2[a2, SP[a1, a5], a4, a3, a6, n] - 
    S2[a2, SP[a1, a5], a4, a6, a3, n] - S2[a2, SP[a1, a5], a6, a3, a4, n] - 
    S2[a2, SP[a1, a5], a6, a4, a3, n] + S2[a2, SP[a4, a5], a1, a3, a6, n] + 
    S2[a2, SP[a4, a5], a1, a6, a3, n] + S2[a2, SP[a4, a5], a3, a1, a6, n] + 
    S2[a3, a1, a5, a6, SP[a2, a4], n] + S2[a3, a1, a5, SP[a4, a6], a2, n] + 
    S2[a3, a1, a6, a5, SP[a2, a4], n] + S2[a3, a1, a6, SP[a2, a5], a4, n] + 
    S2[a3, a1, SP[a5, a6], a2, a4, n] + S2[a3, a1, SP[a5, a6], a4, a2, n] - 
    S2[a4, n]*S2[a3, a5, a1, a6, a2, n] + S2[a3, SP[a1, a5], a4, a6, a2, n] + 
    S2[a3, SP[a1, a5], a6, a2, a4, n] + S2[a3, SP[a1, a5], a6, a4, a2, n] - 
    S2[a3, SP[a4, a5], a1, a6, a2, n] + S2[a4, a1, a5, a2, SP[a3, a6], n] + 
    S2[a4, a1, a5, SP[a2, a6], a3, n] - S2[a4, a1, a6, a2, SP[a3, a5], n] - 
    S2[a4, a1, a6, SP[a2, a5], a3, n] + S2[a4, a5, a1, a2, SP[a3, a6], n] - 
    S2[a2, n]*S2[a4, a5, a1, a3, a6, n] - S2[a4, a5, a1, a3, SP[a2, a6], n] + 
    S2[a3, n]*S2[a4, a5, a1, a6, a2, n] - 
    S2[a2, n]*S2[a4, a5, a1, a6, a3, n] - S2[a4, a5, a1, SP[a2, a3], a6, n] + 
    S2[a4, a5, a1, SP[a3, a6], a2, n] + S2[a4, a5, a2, a1, SP[a3, a6], n] + 
    S2[a4, a5, a2, SP[a1, a3], a6, n] - S2[a2, n]*S2[a4, a5, a3, a1, a6, n] - 
    S2[a4, a5, a3, a1, SP[a2, a6], n] + S2[a1, n]*S2[a4, a5, a3, a2, a6, n] + 
    S2[a4, a5, a3, a2, SP[a1, a6], n] + S2[a4, a5, SP[a1, a3], a2, a6, n] + 
    S2[a4, a5, SP[a1, a3], a6, a2, n] - S2[a4, a5, SP[a2, a3], a1, a6, n] + 
    S2[a4, SP[a1, a5], a2, a3, a6, n] + S2[a4, SP[a1, a5], a2, a6, a3, n] + 
    S2[a4, SP[a1, a5], a3, a2, a6, n] - S2[a4, SP[a2, a5], a1, a3, a6, n] - 
    S2[a4, SP[a2, a5], a1, a6, a3, n] - S2[a4, SP[a2, a5], a3, a1, a6, n] + 
    S2[a4, SP[a3, a5], a1, a6, a2, n] - S2[a1, n]*S2[a6, a2, a3, a5, a4, n] - 
    S2[a6, a2, a3, a5, SP[a1, a4], n] - S2[a6, a2, a3, SP[a1, a5], a4, n] - 
    S2[a6, a2, SP[a1, a3], a5, a4, n] - S2[a6, SP[a1, a2], a3, a5, a4, n] - 
    S2[SP[a1, a6], a2, a3, a5, a4, n] + S2[a6, a1, a2, a3, a5, a4, n] + 
    S2[a6, a2, a1, a3, a5, a4, n] + S2[a6, a2, a3, a1, a5, a4, n] + 
    S2[a6, a2, a3, a5, a1, a4, n] + S2[a6, a2, a3, a5, a4, a1, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a4_, a5_, a3_, a6_, a1_, a2_, n_] :> 
  -(S2[a1, a2, a6, n]*S2[a3, a5, a4, n]) - S2[a1, a6, a2, n]*
     S2[a3, a5, a4, n] - S2[SP[a1, a3], SP[a2, a5], SP[a4, a6], n] - 
    S2[SP[a1, a3], SP[a5, a6], SP[a2, a4], n] + 
    S2[a4, a5, n]*S2[a1, a2, a6, a3, n] - S2[a1, a2, SP[a4, a6], SP[a3, a5], 
     n] + S2[a1, a3, SP[a2, a5], SP[a4, a6], n] + S2[a1, a3, SP[a5, a6], 
     SP[a2, a4], n] + S2[a4, a5, n]*S2[a1, a6, a2, a3, n] + 
    S2[a4, a5, n]*S2[a1, a6, a3, a2, n] - S2[a1, a6, SP[a2, a4], SP[a3, a5], 
     n] - S2[a1, a6, SP[a3, a4], SP[a2, a5], n] + S2[a1, SP[a2, a3], a5, 
     SP[a4, a6], n] + S2[a1, SP[a2, a3], SP[a5, a6], a4, n] - 
    S2[a1, SP[a2, a4], a6, SP[a3, a5], n] - S2[a1, SP[a2, a4], SP[a5, a6], 
     a3, n] + S2[a1, SP[a3, a6], a5, SP[a2, a4], n] + 
    S2[a1, SP[a3, a6], SP[a2, a5], a4, n] - S2[a1, SP[a4, a6], a2, 
     SP[a3, a5], n] - S2[a1, SP[a4, a6], a3, SP[a2, a5], n] - 
    S2[a1, SP[a4, a6], SP[a2, a5], a3, n] - S2[a1, SP[a4, a6], SP[a3, a5], 
     a2, n] + S2[a3, a1, SP[a2, a5], SP[a4, a6], n] + 
    S2[a3, a1, SP[a5, a6], SP[a2, a4], n] - S2[a1, a2, n]*
     S2[a3, a5, a4, a6, n] - S2[a1, a2, n]*S2[a3, a5, a6, a4, n] + 
    S2[a3, a5, SP[a1, a4], SP[a2, a6], n] + S2[a3, a5, SP[a1, a6], 
     SP[a2, a4], n] - S2[a1, a2, n]*S2[a3, a6, a5, a4, n] + 
    S2[a3, a6, SP[a1, a5], SP[a2, a4], n] + S2[a3, SP[a1, a5], a2, 
     SP[a4, a6], n] + S2[a3, SP[a1, a5], a4, SP[a2, a6], n] + 
    2*S2[a3, SP[a1, a5], a6, SP[a2, a4], n] + 
    2*S2[a3, SP[a1, a5], SP[a2, a4], a6, n] + S2[a3, SP[a1, a5], SP[a2, a6], 
     a4, n] + S2[a3, SP[a1, a5], SP[a4, a6], a2, n] + 
    S2[a3, SP[a1, a6], a5, SP[a2, a4], n] + S2[a3, SP[a1, a6], SP[a2, a5], 
     a4, n] + S2[a1, a2, n]*S2[a4, a5, a3, a6, n] - 
    S2[a4, a5, SP[a1, a3], SP[a2, a6], n] - S2[a4, SP[a1, a5], a3, 
     SP[a2, a6], n] - S2[a4, SP[a1, a5], SP[a2, a3], a6, n] + 
    S2[SP[a1, a3], a2, a5, SP[a4, a6], n] + S2[SP[a1, a3], a2, SP[a5, a6], 
     a4, n] + S2[SP[a1, a3], a5, a2, SP[a4, a6], n] + 
    S2[SP[a1, a3], a5, a4, SP[a2, a6], n] + 
    2*S2[SP[a1, a3], a5, a6, SP[a2, a4], n] + 
    2*S2[SP[a1, a3], a5, SP[a2, a4], a6, n] + S2[SP[a1, a3], a5, SP[a2, a6], 
     a4, n] + S2[SP[a1, a3], a5, SP[a4, a6], a2, n] + 
    2*S2[SP[a1, a3], a6, a5, SP[a2, a4], n] + 
    2*S2[SP[a1, a3], a6, SP[a2, a5], a4, n] + 
    2*S2[SP[a1, a3], SP[a2, a5], a4, a6, n] + 
    2*S2[SP[a1, a3], SP[a2, a5], a6, a4, n] + S2[SP[a1, a3], SP[a2, a6], a5, 
     a4, n] + S2[SP[a1, a3], SP[a5, a6], a2, a4, n] + 
    S2[SP[a1, a3], SP[a5, a6], a4, a2, n] - S2[SP[a1, a4], a2, a6, 
     SP[a3, a5], n] - S2[SP[a1, a4], a2, SP[a5, a6], a3, n] - 
    S2[SP[a1, a4], a5, a3, SP[a2, a6], n] - S2[SP[a1, a4], a5, SP[a2, a3], 
     a6, n] - S2[SP[a1, a4], a6, a2, SP[a3, a5], n] - 
    S2[SP[a1, a4], a6, a3, SP[a2, a5], n] - S2[SP[a1, a4], a6, SP[a2, a5], 
     a3, n] - S2[SP[a1, a4], a6, SP[a3, a5], a2, n] - 
    S2[SP[a1, a4], SP[a2, a5], a3, a6, n] - S2[SP[a1, a4], SP[a2, a5], a6, 
     a3, n] - S2[SP[a1, a4], SP[a5, a6], a2, a3, n] - 
    S2[SP[a1, a4], SP[a5, a6], a3, a2, n] - S2[a1, a2, a3, a5, SP[a4, a6], 
     n] - S2[a1, a2, a3, SP[a5, a6], a4, n] + S2[a1, a2, a4, a6, SP[a3, a5], 
     n] + S2[a1, a2, a4, SP[a5, a6], a3, n] - 
    S2[a6, n]*S2[a1, a2, a5, a3, a4, n] - 
    S2[a4, n]*S2[a1, a2, a5, a3, a6, n] - 
    2*S2[a1, a2, a5, a3, SP[a4, a6], n] - 
    S2[a6, n]*S2[a1, a2, a5, a4, a3, n] + 
    2*S2[a3, n]*S2[a1, a2, a5, a4, a6, n] + S2[a1, a2, a5, a4, SP[a3, a6], 
     n] - S2[a4, n]*S2[a1, a2, a5, a6, a3, n] + 
    2*S2[a3, n]*S2[a1, a2, a5, a6, a4, n] + S2[a1, a2, a5, a6, SP[a3, a4], 
     n] + S2[a1, a2, a5, SP[a3, a4], a6, n] + S2[a1, a2, a5, SP[a3, a6], a4, 
     n] - 2*S2[a1, a2, a5, SP[a4, a6], a3, n] - 
    S2[a4, n]*S2[a1, a2, a6, a3, a5, n] - S2[a1, a2, a6, a3, SP[a4, a5], n] + 
    S2[a1, a2, a6, a4, SP[a3, a5], n] - S2[a4, n]*S2[a1, a2, a6, a5, a3, n] + 
    2*S2[a3, n]*S2[a1, a2, a6, a5, a4, n] + S2[a1, a2, a6, a5, SP[a3, a4], 
     n] + 2*S2[a1, a2, a6, SP[a3, a5], a4, n] - S2[a1, a2, a6, SP[a4, a5], 
     a3, n] + 2*S2[a1, a2, SP[a3, a5], a4, a6, n] + 
    2*S2[a1, a2, SP[a3, a5], a6, a4, n] + S2[a1, a2, SP[a3, a6], a5, a4, n] - 
    S2[a1, a2, SP[a4, a5], a3, a6, n] - S2[a1, a2, SP[a4, a5], a6, a3, n] - 
    S2[a1, a2, SP[a5, a6], a3, a4, n] - S2[a1, a2, SP[a5, a6], a4, a3, n] - 
    S2[a1, a3, a2, a5, SP[a4, a6], n] - S2[a1, a3, a2, SP[a5, a6], a4, n] - 
    S2[a1, a3, a5, a2, SP[a4, a6], n] - S2[a1, a3, a5, a4, SP[a2, a6], n] - 
    2*S2[a1, a3, a5, a6, SP[a2, a4], n] - 
    2*S2[a1, a3, a5, SP[a2, a4], a6, n] - S2[a1, a3, a5, SP[a2, a6], a4, n] - 
    S2[a1, a3, a5, SP[a4, a6], a2, n] - 2*S2[a1, a3, a6, a5, SP[a2, a4], n] - 
    2*S2[a1, a3, a6, SP[a2, a5], a4, n] - 
    2*S2[a1, a3, SP[a2, a5], a4, a6, n] - 
    2*S2[a1, a3, SP[a2, a5], a6, a4, n] - S2[a1, a3, SP[a2, a6], a5, a4, n] - 
    S2[a1, a3, SP[a5, a6], a2, a4, n] - S2[a1, a3, SP[a5, a6], a4, a2, n] + 
    S2[a1, a4, a2, a6, SP[a3, a5], n] + S2[a1, a4, a2, SP[a5, a6], a3, n] + 
    S2[a1, a4, a5, a3, SP[a2, a6], n] + S2[a1, a4, a5, SP[a2, a3], a6, n] + 
    S2[a1, a4, a6, a2, SP[a3, a5], n] + S2[a1, a4, a6, a3, SP[a2, a5], n] + 
    S2[a1, a4, a6, SP[a2, a5], a3, n] + S2[a1, a4, a6, SP[a3, a5], a2, n] + 
    S2[a1, a4, SP[a2, a5], a3, a6, n] + S2[a1, a4, SP[a2, a5], a6, a3, n] + 
    S2[a1, a4, SP[a5, a6], a2, a3, n] + S2[a1, a4, SP[a5, a6], a3, a2, n] - 
    S2[a6, n]*S2[a1, a5, a2, a3, a4, n] - 
    S2[a4, n]*S2[a1, a5, a2, a3, a6, n] - 
    2*S2[a1, a5, a2, a3, SP[a4, a6], n] - 
    S2[a6, n]*S2[a1, a5, a2, a4, a3, n] + 
    2*S2[a3, n]*S2[a1, a5, a2, a4, a6, n] + S2[a1, a5, a2, a4, SP[a3, a6], 
     n] - S2[a4, n]*S2[a1, a5, a2, a6, a3, n] + 
    2*S2[a3, n]*S2[a1, a5, a2, a6, a4, n] + S2[a1, a5, a2, a6, SP[a3, a4], 
     n] + S2[a1, a5, a2, SP[a3, a4], a6, n] + S2[a1, a5, a2, SP[a3, a6], a4, 
     n] - 2*S2[a1, a5, a2, SP[a4, a6], a3, n] - 
    S2[a6, n]*S2[a1, a5, a3, a2, a4, n] - 
    S2[a4, n]*S2[a1, a5, a3, a2, a6, n] - 
    2*S2[a1, a5, a3, a2, SP[a4, a6], n] - 
    S2[a6, n]*S2[a1, a5, a3, a4, a2, n] - S2[a1, a5, a3, a4, SP[a2, a6], n] - 
    S2[a4, n]*S2[a1, a5, a3, a6, a2, n] - S2[a1, a5, a3, a6, SP[a2, a4], n] - 
    S2[a1, a5, a3, SP[a2, a4], a6, n] - S2[a1, a5, a3, SP[a2, a6], a4, n] - 
    2*S2[a1, a5, a3, SP[a4, a6], a2, n] - 
    S2[a6, n]*S2[a1, a5, a4, a2, a3, n] + 
    2*S2[a3, n]*S2[a1, a5, a4, a2, a6, n] + S2[a1, a5, a4, a2, SP[a3, a6], 
     n] - S2[a6, n]*S2[a1, a5, a4, a3, a2, n] - S2[a1, a5, a4, a3, 
     SP[a2, a6], n] + 2*S2[a3, n]*S2[a1, a5, a4, a6, a2, n] + 
    2*S2[a1, a5, a4, a6, SP[a2, a3], n] + 
    2*S2[a1, a5, a4, SP[a2, a3], a6, n] - S2[a1, a5, a4, SP[a2, a6], a3, n] + 
    S2[a1, a5, a4, SP[a3, a6], a2, n] - S2[a4, n]*S2[a1, a5, a6, a2, a3, n] + 
    2*S2[a3, n]*S2[a1, a5, a6, a2, a4, n] + S2[a1, a5, a6, a2, SP[a3, a4], 
     n] - S2[a4, n]*S2[a1, a5, a6, a3, a2, n] - S2[a1, a5, a6, a3, 
     SP[a2, a4], n] + 2*S2[a3, n]*S2[a1, a5, a6, a4, a2, n] + 
    2*S2[a1, a5, a6, a4, SP[a2, a3], n] + 
    2*S2[a1, a5, a6, SP[a2, a3], a4, n] - S2[a1, a5, a6, SP[a2, a4], a3, n] + 
    S2[a1, a5, a6, SP[a3, a4], a2, n] + 2*S2[a1, a5, SP[a2, a3], a4, a6, n] + 
    2*S2[a1, a5, SP[a2, a3], a6, a4, n] - S2[a1, a5, SP[a2, a4], a3, a6, n] - 
    S2[a1, a5, SP[a2, a4], a6, a3, n] - S2[a1, a5, SP[a2, a6], a3, a4, n] - 
    S2[a1, a5, SP[a2, a6], a4, a3, n] + S2[a1, a5, SP[a3, a4], a2, a6, n] + 
    S2[a1, a5, SP[a3, a4], a6, a2, n] + S2[a1, a5, SP[a3, a6], a2, a4, n] + 
    S2[a1, a5, SP[a3, a6], a4, a2, n] - 2*S2[a1, a5, SP[a4, a6], a2, a3, n] - 
    2*S2[a1, a5, SP[a4, a6], a3, a2, n] - 
    S2[a4, n]*S2[a1, a6, a2, a3, a5, n] - S2[a1, a6, a2, a3, SP[a4, a5], n] + 
    S2[a1, a6, a2, a4, SP[a3, a5], n] - S2[a4, n]*S2[a1, a6, a2, a5, a3, n] + 
    2*S2[a3, n]*S2[a1, a6, a2, a5, a4, n] + S2[a1, a6, a2, a5, SP[a3, a4], 
     n] + 2*S2[a1, a6, a2, SP[a3, a5], a4, n] - S2[a1, a6, a2, SP[a4, a5], 
     a3, n] - S2[a4, n]*S2[a1, a6, a3, a2, a5, n] - 
    S2[a1, a6, a3, a2, SP[a4, a5], n] + S2[a1, a6, a3, a4, SP[a2, a5], n] - 
    S2[a4, n]*S2[a1, a6, a3, a5, a2, n] - 
    2*S2[a1, a6, a3, a5, SP[a2, a4], n] - S2[a1, a6, a3, SP[a2, a5], a4, n] - 
    S2[a1, a6, a3, SP[a4, a5], a2, n] + S2[a1, a6, a4, a2, SP[a3, a5], n] + 
    S2[a1, a6, a4, a3, SP[a2, a5], n] + S2[a1, a6, a4, SP[a2, a5], a3, n] + 
    S2[a1, a6, a4, SP[a3, a5], a2, n] - S2[a4, n]*S2[a1, a6, a5, a2, a3, n] + 
    2*S2[a3, n]*S2[a1, a6, a5, a2, a4, n] + S2[a1, a6, a5, a2, SP[a3, a4], 
     n] - S2[a4, n]*S2[a1, a6, a5, a3, a2, n] - S2[a1, a6, a5, a3, 
     SP[a2, a4], n] + 2*S2[a3, n]*S2[a1, a6, a5, a4, a2, n] + 
    2*S2[a1, a6, a5, a4, SP[a2, a3], n] + 
    2*S2[a1, a6, a5, SP[a2, a3], a4, n] - S2[a1, a6, a5, SP[a2, a4], a3, n] + 
    S2[a1, a6, a5, SP[a3, a4], a2, n] + S2[a1, a6, SP[a2, a3], a5, a4, n] + 
    2*S2[a1, a6, SP[a3, a5], a2, a4, n] + 
    2*S2[a1, a6, SP[a3, a5], a4, a2, n] - S2[a1, a6, SP[a4, a5], a2, a3, n] - 
    S2[a1, a6, SP[a4, a5], a3, a2, n] - S2[a1, SP[a2, a6], a5, a3, a4, n] - 
    S2[a1, SP[a2, a6], a5, a4, a3, n] + 2*S2[a1, SP[a3, a5], a2, a4, a6, n] + 
    2*S2[a1, SP[a3, a5], a2, a6, a4, n] + 
    2*S2[a1, SP[a3, a5], a4, a2, a6, n] + 
    2*S2[a1, SP[a3, a5], a4, a6, a2, n] + 
    2*S2[a1, SP[a3, a5], a6, a2, a4, n] + 
    2*S2[a1, SP[a3, a5], a6, a4, a2, n] + S2[a1, SP[a3, a6], a2, a5, a4, n] + 
    S2[a1, SP[a3, a6], a5, a2, a4, n] + S2[a1, SP[a3, a6], a5, a4, a2, n] - 
    S2[a1, SP[a4, a5], a2, a3, a6, n] - S2[a1, SP[a4, a5], a2, a6, a3, n] - 
    S2[a1, SP[a4, a5], a3, a2, a6, n] - S2[a1, SP[a4, a5], a3, a6, a2, n] - 
    S2[a1, SP[a4, a5], a6, a2, a3, n] - S2[a1, SP[a4, a5], a6, a3, a2, n] - 
    S2[a1, SP[a5, a6], a2, a3, a4, n] - S2[a1, SP[a5, a6], a2, a4, a3, n] - 
    S2[a1, SP[a5, a6], a3, a2, a4, n] - S2[a1, SP[a5, a6], a3, a4, a2, n] - 
    S2[a1, SP[a5, a6], a4, a2, a3, n] - S2[a1, SP[a5, a6], a4, a3, a2, n] - 
    S2[a3, a1, a2, a5, SP[a4, a6], n] - S2[a3, a1, a2, SP[a5, a6], a4, n] - 
    S2[a3, a1, a5, a2, SP[a4, a6], n] - S2[a3, a1, a5, a4, SP[a2, a6], n] - 
    2*S2[a3, a1, a5, a6, SP[a2, a4], n] - 
    2*S2[a3, a1, a5, SP[a2, a4], a6, n] - S2[a3, a1, a5, SP[a2, a6], a4, n] - 
    S2[a3, a1, a5, SP[a4, a6], a2, n] - 2*S2[a3, a1, a6, a5, SP[a2, a4], n] - 
    2*S2[a3, a1, a6, SP[a2, a5], a4, n] - 
    2*S2[a3, a1, SP[a2, a5], a4, a6, n] - 
    2*S2[a3, a1, SP[a2, a5], a6, a4, n] - S2[a3, a1, SP[a2, a6], a5, a4, n] - 
    S2[a3, a1, SP[a5, a6], a2, a4, n] - S2[a3, a1, SP[a5, a6], a4, a2, n] + 
    S2[a6, n]*S2[a3, a5, a1, a2, a4, n] + 
    S2[a4, n]*S2[a3, a5, a1, a2, a6, n] + S2[a3, a5, a1, a2, SP[a4, a6], n] + 
    S2[a6, n]*S2[a3, a5, a1, a4, a2, n] + 
    S2[a4, n]*S2[a3, a5, a1, a6, a2, n] - S2[a3, a5, a1, a6, SP[a2, a4], n] - 
    S2[a3, a5, a1, SP[a2, a4], a6, n] + S2[a3, a5, a1, SP[a4, a6], a2, n] + 
    S2[a6, n]*S2[a3, a5, a4, a1, a2, n] - S2[a3, a5, a6, a1, SP[a2, a4], n] - 
    S2[a3, a5, a6, SP[a1, a4], a2, n] - S2[a3, a5, SP[a1, a4], a2, a6, n] - 
    S2[a3, a5, SP[a1, a4], a6, a2, n] + S2[a3, a5, SP[a4, a6], a1, a2, n] - 
    S2[a3, a6, a1, a5, SP[a2, a4], n] - S2[a3, a6, a1, SP[a2, a5], a4, n] - 
    S2[a3, a6, a5, a1, SP[a2, a4], n] - S2[a3, a6, a5, SP[a1, a4], a2, n] - 
    S2[a3, a6, SP[a1, a5], a2, a4, n] - S2[a3, a6, SP[a1, a5], a4, a2, n] - 
    2*S2[a3, SP[a1, a5], a2, a4, a6, n] - 
    2*S2[a3, SP[a1, a5], a2, a6, a4, n] - 
    2*S2[a3, SP[a1, a5], a4, a2, a6, n] - 
    2*S2[a3, SP[a1, a5], a4, a6, a2, n] - 
    2*S2[a3, SP[a1, a5], a6, a2, a4, n] - 
    2*S2[a3, SP[a1, a5], a6, a4, a2, n] - S2[a3, SP[a1, a6], a2, a5, a4, n] - 
    S2[a3, SP[a1, a6], a5, a2, a4, n] - S2[a3, SP[a1, a6], a5, a4, a2, n] + 
    S2[a3, SP[a4, a5], a1, a2, a6, n] + S2[a3, SP[a4, a5], a1, a6, a2, n] + 
    S2[a3, SP[a5, a6], a1, a2, a4, n] + S2[a3, SP[a5, a6], a1, a4, a2, n] + 
    S2[a3, SP[a5, a6], a4, a1, a2, n] + S2[a4, a1, a2, a6, SP[a3, a5], n] + 
    S2[a4, a1, a2, SP[a5, a6], a3, n] + S2[a4, a1, a5, a3, SP[a2, a6], n] + 
    S2[a4, a1, a5, SP[a2, a3], a6, n] + S2[a4, a1, a6, a2, SP[a3, a5], n] + 
    S2[a4, a1, a6, a3, SP[a2, a5], n] + S2[a4, a1, a6, SP[a2, a5], a3, n] + 
    S2[a4, a1, a6, SP[a3, a5], a2, n] + S2[a4, a1, SP[a2, a5], a3, a6, n] + 
    S2[a4, a1, SP[a2, a5], a6, a3, n] + S2[a4, a1, SP[a5, a6], a2, a3, n] + 
    S2[a4, a1, SP[a5, a6], a3, a2, n] - S2[a3, n]*S2[a4, a5, a1, a2, a6, n] - 
    S2[a4, a5, a1, a2, SP[a3, a6], n] + S2[a4, a5, a1, a3, SP[a2, a6], n] - 
    S2[a3, n]*S2[a4, a5, a1, a6, a2, n] - S2[a4, a5, a1, a6, SP[a2, a3], n] - 
    S2[a4, a5, a1, SP[a3, a6], a2, n] + S2[a4, a5, a3, a1, SP[a2, a6], n] + 
    S2[a4, a5, a3, SP[a1, a6], a2, n] + S2[a4, SP[a1, a5], a2, a3, a6, n] + 
    S2[a4, SP[a1, a5], a2, a6, a3, n] + S2[a4, SP[a1, a5], a3, a2, a6, n] + 
    S2[a4, SP[a1, a5], a3, a6, a2, n] + S2[a4, SP[a1, a5], a6, a2, a3, n] + 
    S2[a4, SP[a1, a5], a6, a3, a2, n] - S2[a4, SP[a3, a5], a1, a2, a6, n] - 
    S2[a4, SP[a3, a5], a1, a6, a2, n] + S2[a3, n]*S2[a6, a1, a2, a5, a4, n] + 
    S2[a6, a1, a2, a5, SP[a3, a4], n] + S2[a6, a1, a2, SP[a3, a5], a4, n] + 
    S2[a3, n]*S2[a6, a1, a5, a2, a4, n] + S2[a6, a1, a5, a2, SP[a3, a4], n] + 
    S2[a3, n]*S2[a6, a1, a5, a4, a2, n] + S2[a6, a1, a5, a4, SP[a2, a3], n] + 
    S2[a6, a1, a5, SP[a2, a3], a4, n] + S2[a6, a1, a5, SP[a3, a4], a2, n] + 
    S2[a6, a1, SP[a2, a3], a5, a4, n] + S2[a6, a1, SP[a3, a5], a2, a4, n] + 
    S2[a6, a1, SP[a3, a5], a4, a2, n] + S2[a6, SP[a1, a3], a2, a5, a4, n] + 
    S2[a6, SP[a1, a3], a5, a2, a4, n] + S2[a6, SP[a1, a3], a5, a4, a2, n] - 
    S2[SP[a1, a6], a2, a5, a3, a4, n] - S2[SP[a1, a6], a2, a5, a4, a3, n] - 
    S2[SP[a1, a6], a5, a2, a3, a4, n] - S2[SP[a1, a6], a5, a2, a4, a3, n] - 
    S2[SP[a1, a6], a5, a3, a2, a4, n] - S2[SP[a1, a6], a5, a3, a4, a2, n] - 
    S2[SP[a1, a6], a5, a4, a2, a3, n] - S2[SP[a1, a6], a5, a4, a3, a2, n] + 
    S2[SP[a3, a6], a1, a2, a5, a4, n] + S2[SP[a3, a6], a1, a5, a2, a4, n] + 
    S2[SP[a3, a6], a1, a5, a4, a2, n] + S2[SP[a3, a6], a5, a1, a2, a4, n] + 
    S2[SP[a3, a6], a5, a1, a4, a2, n] + S2[SP[a3, a6], a5, a4, a1, a2, n] - 
    S2[a6, a1, a2, a3, a5, a4, n] - S2[a6, a1, a3, a2, a5, a4, n] - 
    S2[a6, a1, a3, a5, a2, a4, n] - S2[a6, a1, a3, a5, a4, a2, n] - 
    S2[a6, a3, a1, a2, a5, a4, n] - S2[a6, a3, a1, a5, a2, a4, n] - 
    S2[a6, a3, a1, a5, a4, a2, n] - S2[a6, a3, a5, a1, a2, a4, n] - 
    S2[a6, a3, a5, a1, a4, a2, n] - S2[a6, a3, a5, a4, a1, a2, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a4_, a5_, a3_, a6_, a2_, a1_, n_] :> 
  S2[a1, a2, a6, n]*S2[a3, a5, a4, n] + S2[SP[a1, a3], SP[a2, a5], 
     SP[a4, a6], n] - S2[a4, a5, n]*S2[a1, a2, a6, a3, n] + 
    S2[a1, a2, SP[a4, a6], SP[a3, a5], n] - S2[a1, a3, SP[a2, a5], 
     SP[a4, a6], n] - S2[a1, SP[a2, a3], a5, SP[a4, a6], n] - 
    S2[a1, SP[a2, a3], SP[a5, a6], a4, n] + S2[a1, SP[a2, a4], a6, 
     SP[a3, a5], n] + S2[a1, SP[a2, a4], SP[a5, a6], a3, n] - 
    S2[a3, a1, SP[a2, a5], SP[a4, a6], n] + S2[a1, a2, n]*
     S2[a3, a5, a4, a6, n] + S2[a1, a2, n]*S2[a3, a5, a6, a4, n] - 
    S2[a3, a5, SP[a1, a4], SP[a2, a6], n] - S2[a3, a5, SP[a1, a6], 
     SP[a2, a4], n] + S2[a1, a2, n]*S2[a3, a6, a5, a4, n] - 
    S2[a3, a6, SP[a1, a5], SP[a2, a4], n] - S2[a3, SP[a1, a5], a2, 
     SP[a4, a6], n] - S2[a3, SP[a1, a5], a4, SP[a2, a6], n] - 
    S2[a3, SP[a1, a5], a6, SP[a2, a4], n] - 
    2*S2[a3, SP[a1, a5], SP[a2, a4], a6, n] - S2[a3, SP[a1, a5], SP[a2, a6], 
     a4, n] - S2[a3, SP[a1, a6], a5, SP[a2, a4], n] - 
    S2[a3, SP[a1, a6], SP[a2, a5], a4, n] - S2[a1, a2, n]*
     S2[a4, a5, a3, a6, n] + S2[a4, a5, SP[a1, a3], SP[a2, a6], n] + 
    S2[a4, SP[a1, a5], a3, SP[a2, a6], n] + S2[a4, SP[a1, a5], SP[a2, a3], 
     a6, n] - S2[SP[a1, a3], a2, a5, SP[a4, a6], n] - 
    S2[SP[a1, a3], a2, SP[a5, a6], a4, n] - S2[SP[a1, a3], a5, a2, 
     SP[a4, a6], n] - S2[SP[a1, a3], a5, a4, SP[a2, a6], n] - 
    S2[SP[a1, a3], a5, a6, SP[a2, a4], n] - 
    2*S2[SP[a1, a3], a5, SP[a2, a4], a6, n] - S2[SP[a1, a3], a5, SP[a2, a6], 
     a4, n] - S2[SP[a1, a3], a6, a5, SP[a2, a4], n] - 
    S2[SP[a1, a3], a6, SP[a2, a5], a4, n] - 
    2*S2[SP[a1, a3], SP[a2, a5], a4, a6, n] - 
    2*S2[SP[a1, a3], SP[a2, a5], a6, a4, n] - S2[SP[a1, a3], SP[a2, a6], a5, 
     a4, n] + S2[SP[a1, a4], a2, a6, SP[a3, a5], n] + 
    S2[SP[a1, a4], a2, SP[a5, a6], a3, n] + S2[SP[a1, a4], a5, a3, 
     SP[a2, a6], n] + S2[SP[a1, a4], a5, SP[a2, a3], a6, n] + 
    S2[SP[a1, a4], SP[a2, a5], a3, a6, n] + S2[SP[a1, a4], SP[a2, a5], a6, 
     a3, n] + S2[a1, a2, a3, a5, SP[a4, a6], n] + S2[a1, a2, a3, SP[a5, a6], 
     a4, n] - S2[a1, a2, a4, a6, SP[a3, a5], n] - S2[a1, a2, a4, SP[a5, a6], 
     a3, n] + S2[a6, n]*S2[a1, a2, a5, a3, a4, n] + 
    S2[a4, n]*S2[a1, a2, a5, a3, a6, n] + 
    2*S2[a1, a2, a5, a3, SP[a4, a6], n] + 
    S2[a6, n]*S2[a1, a2, a5, a4, a3, n] - 
    2*S2[a3, n]*S2[a1, a2, a5, a4, a6, n] - S2[a1, a2, a5, a4, SP[a3, a6], 
     n] + S2[a4, n]*S2[a1, a2, a5, a6, a3, n] - 
    2*S2[a3, n]*S2[a1, a2, a5, a6, a4, n] - S2[a1, a2, a5, a6, SP[a3, a4], 
     n] - S2[a1, a2, a5, SP[a3, a4], a6, n] - S2[a1, a2, a5, SP[a3, a6], a4, 
     n] + 2*S2[a1, a2, a5, SP[a4, a6], a3, n] + 
    S2[a4, n]*S2[a1, a2, a6, a3, a5, n] + S2[a1, a2, a6, a3, SP[a4, a5], n] - 
    S2[a1, a2, a6, a4, SP[a3, a5], n] + S2[a4, n]*S2[a1, a2, a6, a5, a3, n] - 
    2*S2[a3, n]*S2[a1, a2, a6, a5, a4, n] - S2[a1, a2, a6, a5, SP[a3, a4], 
     n] - 2*S2[a1, a2, a6, SP[a3, a5], a4, n] + S2[a1, a2, a6, SP[a4, a5], 
     a3, n] - 2*S2[a1, a2, SP[a3, a5], a4, a6, n] - 
    2*S2[a1, a2, SP[a3, a5], a6, a4, n] - S2[a1, a2, SP[a3, a6], a5, a4, n] + 
    S2[a1, a2, SP[a4, a5], a3, a6, n] + S2[a1, a2, SP[a4, a5], a6, a3, n] + 
    S2[a1, a2, SP[a5, a6], a3, a4, n] + S2[a1, a2, SP[a5, a6], a4, a3, n] + 
    S2[a1, a3, a2, a5, SP[a4, a6], n] + S2[a1, a3, a2, SP[a5, a6], a4, n] + 
    S2[a1, a3, a5, a2, SP[a4, a6], n] + S2[a1, a3, a5, a4, SP[a2, a6], n] + 
    S2[a1, a3, a5, a6, SP[a2, a4], n] + 2*S2[a1, a3, a5, SP[a2, a4], a6, n] + 
    S2[a1, a3, a5, SP[a2, a6], a4, n] + S2[a1, a3, a6, a5, SP[a2, a4], n] + 
    S2[a1, a3, a6, SP[a2, a5], a4, n] + 2*S2[a1, a3, SP[a2, a5], a4, a6, n] + 
    2*S2[a1, a3, SP[a2, a5], a6, a4, n] + S2[a1, a3, SP[a2, a6], a5, a4, n] - 
    S2[a1, a4, a2, a6, SP[a3, a5], n] - S2[a1, a4, a2, SP[a5, a6], a3, n] - 
    S2[a1, a4, a5, a3, SP[a2, a6], n] - S2[a1, a4, a5, SP[a2, a3], a6, n] - 
    S2[a1, a4, SP[a2, a5], a3, a6, n] - S2[a1, a4, SP[a2, a5], a6, a3, n] + 
    S2[a6, n]*S2[a1, a5, a2, a3, a4, n] + 
    S2[a4, n]*S2[a1, a5, a2, a3, a6, n] + 
    2*S2[a1, a5, a2, a3, SP[a4, a6], n] + 
    S2[a6, n]*S2[a1, a5, a2, a4, a3, n] - 
    2*S2[a3, n]*S2[a1, a5, a2, a4, a6, n] - S2[a1, a5, a2, a4, SP[a3, a6], 
     n] + S2[a4, n]*S2[a1, a5, a2, a6, a3, n] - 
    2*S2[a3, n]*S2[a1, a5, a2, a6, a4, n] - S2[a1, a5, a2, a6, SP[a3, a4], 
     n] - S2[a1, a5, a2, SP[a3, a4], a6, n] - S2[a1, a5, a2, SP[a3, a6], a4, 
     n] + 2*S2[a1, a5, a2, SP[a4, a6], a3, n] + 
    S2[a6, n]*S2[a1, a5, a3, a2, a4, n] + 
    S2[a4, n]*S2[a1, a5, a3, a2, a6, n] + 
    2*S2[a1, a5, a3, a2, SP[a4, a6], n] + 
    S2[a6, n]*S2[a1, a5, a3, a4, a2, n] + S2[a1, a5, a3, a4, SP[a2, a6], n] + 
    S2[a1, a5, a3, SP[a2, a4], a6, n] + S2[a1, a5, a3, SP[a2, a6], a4, n] + 
    S2[a1, a5, a3, SP[a4, a6], a2, n] + S2[a6, n]*S2[a1, a5, a4, a2, a3, n] - 
    2*S2[a3, n]*S2[a1, a5, a4, a2, a6, n] - S2[a1, a5, a4, a2, SP[a3, a6], 
     n] + S2[a6, n]*S2[a1, a5, a4, a3, a2, n] + S2[a1, a5, a4, a3, 
     SP[a2, a6], n] - S2[a3, n]*S2[a1, a5, a4, a6, a2, n] - 
    S2[a1, a5, a4, a6, SP[a2, a3], n] - 2*S2[a1, a5, a4, SP[a2, a3], a6, n] + 
    S2[a1, a5, a4, SP[a2, a6], a3, n] - S2[a3, n]*S2[a1, a5, a6, a2, a4, n] - 
    S2[a1, a5, a6, a2, SP[a3, a4], n] - S2[a3, n]*S2[a1, a5, a6, a4, a2, n] - 
    S2[a1, a5, a6, a4, SP[a2, a3], n] - S2[a1, a5, a6, SP[a2, a3], a4, n] - 
    S2[a1, a5, a6, SP[a3, a4], a2, n] - 2*S2[a1, a5, SP[a2, a3], a4, a6, n] - 
    2*S2[a1, a5, SP[a2, a3], a6, a4, n] + S2[a1, a5, SP[a2, a4], a3, a6, n] + 
    S2[a1, a5, SP[a2, a4], a6, a3, n] + S2[a1, a5, SP[a2, a6], a3, a4, n] + 
    S2[a1, a5, SP[a2, a6], a4, a3, n] - S2[a1, a5, SP[a3, a4], a2, a6, n] - 
    S2[a1, a5, SP[a3, a4], a6, a2, n] + S2[a1, a5, SP[a4, a6], a2, a3, n] + 
    S2[a1, a5, SP[a4, a6], a3, a2, n] - S2[a3, n]*S2[a1, a6, a2, a5, a4, n] - 
    S2[a1, a6, a2, a5, SP[a3, a4], n] - S2[a1, a6, a2, SP[a3, a5], a4, n] - 
    S2[a3, n]*S2[a1, a6, a5, a2, a4, n] - S2[a1, a6, a5, a2, SP[a3, a4], n] - 
    S2[a3, n]*S2[a1, a6, a5, a4, a2, n] - S2[a1, a6, a5, a4, SP[a2, a3], n] - 
    S2[a1, a6, a5, SP[a2, a3], a4, n] - S2[a1, a6, a5, SP[a3, a4], a2, n] - 
    S2[a1, a6, SP[a2, a3], a5, a4, n] - S2[a1, a6, SP[a3, a5], a2, a4, n] - 
    S2[a1, a6, SP[a3, a5], a4, a2, n] + S2[a1, SP[a2, a6], a5, a3, a4, n] + 
    S2[a1, SP[a2, a6], a5, a4, a3, n] - 2*S2[a1, SP[a3, a5], a2, a4, a6, n] - 
    2*S2[a1, SP[a3, a5], a2, a6, a4, n] - 
    2*S2[a1, SP[a3, a5], a4, a2, a6, n] - S2[a1, SP[a3, a5], a4, a6, a2, n] - 
    S2[a1, SP[a3, a5], a6, a2, a4, n] - S2[a1, SP[a3, a5], a6, a4, a2, n] - 
    S2[a1, SP[a3, a6], a2, a5, a4, n] - S2[a1, SP[a3, a6], a5, a2, a4, n] - 
    S2[a1, SP[a3, a6], a5, a4, a2, n] + S2[a1, SP[a4, a5], a2, a3, a6, n] + 
    S2[a1, SP[a4, a5], a2, a6, a3, n] + S2[a1, SP[a4, a5], a3, a2, a6, n] + 
    S2[a1, SP[a5, a6], a2, a3, a4, n] + S2[a1, SP[a5, a6], a2, a4, a3, n] + 
    S2[a1, SP[a5, a6], a3, a2, a4, n] + S2[a1, SP[a5, a6], a3, a4, a2, n] + 
    S2[a1, SP[a5, a6], a4, a2, a3, n] + S2[a1, SP[a5, a6], a4, a3, a2, n] + 
    S2[a3, a1, a2, a5, SP[a4, a6], n] + S2[a3, a1, a2, SP[a5, a6], a4, n] + 
    S2[a3, a1, a5, a2, SP[a4, a6], n] + S2[a3, a1, a5, a4, SP[a2, a6], n] + 
    S2[a3, a1, a5, a6, SP[a2, a4], n] + 2*S2[a3, a1, a5, SP[a2, a4], a6, n] + 
    S2[a3, a1, a5, SP[a2, a6], a4, n] + S2[a3, a1, a6, a5, SP[a2, a4], n] + 
    S2[a3, a1, a6, SP[a2, a5], a4, n] + 2*S2[a3, a1, SP[a2, a5], a4, a6, n] + 
    2*S2[a3, a1, SP[a2, a5], a6, a4, n] + S2[a3, a1, SP[a2, a6], a5, a4, n] - 
    S2[a6, n]*S2[a3, a5, a1, a2, a4, n] - 
    S2[a4, n]*S2[a3, a5, a1, a2, a6, n] - S2[a3, a5, a1, a2, SP[a4, a6], n] - 
    S2[a6, n]*S2[a3, a5, a1, a4, a2, n] + S2[a3, a5, a1, a6, SP[a2, a4], n] + 
    S2[a3, a5, a1, SP[a2, a4], a6, n] - S2[a3, a5, a1, SP[a4, a6], a2, n] - 
    S2[a6, n]*S2[a3, a5, a4, a1, a2, n] + S2[a3, a5, a6, a1, SP[a2, a4], n] + 
    S2[a3, a5, a6, SP[a1, a4], a2, n] + S2[a3, a5, SP[a1, a4], a2, a6, n] + 
    S2[a3, a5, SP[a1, a4], a6, a2, n] - S2[a3, a5, SP[a4, a6], a1, a2, n] + 
    S2[a3, a6, a1, a5, SP[a2, a4], n] + S2[a3, a6, a1, SP[a2, a5], a4, n] + 
    S2[a3, a6, a5, a1, SP[a2, a4], n] + S2[a3, a6, a5, SP[a1, a4], a2, n] + 
    S2[a3, a6, SP[a1, a5], a2, a4, n] + S2[a3, a6, SP[a1, a5], a4, a2, n] + 
    2*S2[a3, SP[a1, a5], a2, a4, a6, n] + 
    2*S2[a3, SP[a1, a5], a2, a6, a4, n] + 
    2*S2[a3, SP[a1, a5], a4, a2, a6, n] + S2[a3, SP[a1, a5], a4, a6, a2, n] + 
    S2[a3, SP[a1, a5], a6, a2, a4, n] + S2[a3, SP[a1, a5], a6, a4, a2, n] + 
    S2[a3, SP[a1, a6], a2, a5, a4, n] + S2[a3, SP[a1, a6], a5, a2, a4, n] + 
    S2[a3, SP[a1, a6], a5, a4, a2, n] - S2[a3, SP[a4, a5], a1, a2, a6, n] - 
    S2[a3, SP[a5, a6], a1, a2, a4, n] - S2[a3, SP[a5, a6], a1, a4, a2, n] - 
    S2[a3, SP[a5, a6], a4, a1, a2, n] - S2[a4, a1, a2, a6, SP[a3, a5], n] - 
    S2[a4, a1, a2, SP[a5, a6], a3, n] - S2[a4, a1, a5, a3, SP[a2, a6], n] - 
    S2[a4, a1, a5, SP[a2, a3], a6, n] - S2[a4, a1, SP[a2, a5], a3, a6, n] - 
    S2[a4, a1, SP[a2, a5], a6, a3, n] + S2[a3, n]*S2[a4, a5, a1, a2, a6, n] + 
    S2[a4, a5, a1, a2, SP[a3, a6], n] - S2[a4, a5, a1, a3, SP[a2, a6], n] - 
    S2[a4, a5, a3, a1, SP[a2, a6], n] + S2[a1, n]*S2[a4, a5, a3, a6, a2, n] + 
    S2[a4, a5, a3, a6, SP[a1, a2], n] - S2[a4, SP[a1, a5], a2, a3, a6, n] - 
    S2[a4, SP[a1, a5], a2, a6, a3, n] - S2[a4, SP[a1, a5], a3, a2, a6, n] + 
    S2[a4, SP[a3, a5], a1, a2, a6, n] - S2[a3, n]*S2[a6, a1, a2, a5, a4, n] - 
    S2[a6, a1, a2, a5, SP[a3, a4], n] - S2[a6, a1, a2, SP[a3, a5], a4, n] - 
    S2[a3, n]*S2[a6, a1, a5, a2, a4, n] - S2[a6, a1, a5, a2, SP[a3, a4], n] - 
    S2[a3, n]*S2[a6, a1, a5, a4, a2, n] - S2[a6, a1, a5, a4, SP[a2, a3], n] - 
    S2[a6, a1, a5, SP[a2, a3], a4, n] - S2[a6, a1, a5, SP[a3, a4], a2, n] - 
    S2[a6, a1, SP[a2, a3], a5, a4, n] - S2[a6, a1, SP[a3, a5], a2, a4, n] - 
    S2[a6, a1, SP[a3, a5], a4, a2, n] + S2[a1, n]*S2[a6, a2, a3, a5, a4, n] + 
    S2[a6, a2, a3, a5, SP[a1, a4], n] + S2[a6, a2, a3, SP[a1, a5], a4, n] + 
    S2[a6, a2, SP[a1, a3], a5, a4, n] + S2[a1, n]*S2[a6, a3, a2, a5, a4, n] + 
    S2[a6, a3, a2, a5, SP[a1, a4], n] + S2[a6, a3, a2, SP[a1, a5], a4, n] + 
    S2[a1, n]*S2[a6, a3, a5, a2, a4, n] + S2[a6, a3, a5, a2, SP[a1, a4], n] + 
    S2[a1, n]*S2[a6, a3, a5, a4, a2, n] + S2[a6, a3, a5, a4, SP[a1, a2], n] + 
    S2[a6, a3, a5, SP[a1, a2], a4, n] + S2[a6, a3, a5, SP[a1, a4], a2, n] + 
    S2[a6, a3, SP[a1, a2], a5, a4, n] + S2[a6, a3, SP[a1, a5], a2, a4, n] + 
    S2[a6, a3, SP[a1, a5], a4, a2, n] + S2[a6, SP[a1, a2], a3, a5, a4, n] + 
    S2[SP[a1, a6], a2, a3, a5, a4, n] + S2[SP[a1, a6], a2, a5, a3, a4, n] + 
    S2[SP[a1, a6], a2, a5, a4, a3, n] + S2[SP[a1, a6], a3, a2, a5, a4, n] + 
    S2[SP[a1, a6], a3, a5, a2, a4, n] + S2[SP[a1, a6], a3, a5, a4, a2, n] + 
    S2[SP[a1, a6], a5, a2, a3, a4, n] + S2[SP[a1, a6], a5, a2, a4, a3, n] + 
    S2[SP[a1, a6], a5, a3, a2, a4, n] + S2[SP[a1, a6], a5, a3, a4, a2, n] + 
    S2[SP[a1, a6], a5, a4, a2, a3, n] + S2[SP[a1, a6], a5, a4, a3, a2, n] - 
    S2[SP[a3, a6], a1, a2, a5, a4, n] - S2[SP[a3, a6], a1, a5, a2, a4, n] - 
    S2[SP[a3, a6], a1, a5, a4, a2, n] - S2[SP[a3, a6], a5, a1, a2, a4, n] - 
    S2[SP[a3, a6], a5, a1, a4, a2, n] - S2[SP[a3, a6], a5, a4, a1, a2, n] - 
    S2[a6, a2, a1, a3, a5, a4, n] - S2[a6, a2, a3, a1, a5, a4, n] - 
    S2[a6, a2, a3, a5, a1, a4, n] - S2[a6, a2, a3, a5, a4, a1, n] - 
    S2[a6, a3, a2, a1, a5, a4, n] - S2[a6, a3, a2, a5, a1, a4, n] - 
    S2[a6, a3, a2, a5, a4, a1, n] - S2[a6, a3, a5, a2, a1, a4, n] - 
    S2[a6, a3, a5, a2, a4, a1, n] - S2[a6, a3, a5, a4, a2, a1, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a4_, a5_, a6_, a1_, a2_, a3_, n_] :> 
  -(S2[a4, a5, n]*S2[a1, a2, a3, a6, n]) - S2[a4, a5, n]*
     S2[a1, a2, a6, a3, n] + S2[a1, a2, SP[a3, a4], SP[a5, a6], n] + 
    S2[a1, a2, SP[a4, a6], SP[a3, a5], n] - S2[a4, a5, n]*
     S2[a1, a6, a2, a3, n] + S2[a1, a6, SP[a2, a4], SP[a3, a5], n] + 
    S2[a1, SP[a2, a4], a3, SP[a5, a6], n] + S2[a1, SP[a2, a4], a6, 
     SP[a3, a5], n] + S2[a1, SP[a2, a4], SP[a3, a5], a6, n] + 
    S2[a1, SP[a2, a4], SP[a5, a6], a3, n] + S2[a1, SP[a4, a6], a2, 
     SP[a3, a5], n] + S2[a1, SP[a4, a6], SP[a2, a5], a3, n] + 
    S2[SP[a1, a4], a2, a3, SP[a5, a6], n] + S2[SP[a1, a4], a2, a6, 
     SP[a3, a5], n] + S2[SP[a1, a4], a2, SP[a3, a5], a6, n] + 
    S2[SP[a1, a4], a2, SP[a5, a6], a3, n] + S2[SP[a1, a4], a6, a2, 
     SP[a3, a5], n] + S2[SP[a1, a4], a6, SP[a2, a5], a3, n] + 
    S2[SP[a1, a4], SP[a2, a5], a3, a6, n] + S2[SP[a1, a4], SP[a2, a5], a6, 
     a3, n] + S2[SP[a1, a4], SP[a5, a6], a2, a3, n] - 
    S2[a1, a2, a3, a4, SP[a5, a6], n] - S2[a6, n]*S2[a1, a2, a3, a5, a4, n] + 
    S2[a4, n]*S2[a1, a2, a3, a5, a6, n] + 
    S2[a4, n]*S2[a1, a2, a3, a6, a5, n] + S2[a1, a2, a3, a6, SP[a4, a5], n] + 
    S2[a1, a2, a3, SP[a4, a5], a6, n] - S2[a1, a2, a3, SP[a5, a6], a4, n] - 
    S2[a1, a2, a4, a3, SP[a5, a6], n] - S2[a1, a2, a4, a6, SP[a3, a5], n] - 
    S2[a1, a2, a4, SP[a3, a5], a6, n] - S2[a1, a2, a4, SP[a5, a6], a3, n] - 
    S2[a6, n]*S2[a1, a2, a5, a3, a4, n] + 
    S2[a4, n]*S2[a1, a2, a5, a3, a6, n] - 
    S2[a6, n]*S2[a1, a2, a5, a4, a3, n] - S2[a1, a2, a5, a4, SP[a3, a6], n] + 
    S2[a4, n]*S2[a1, a2, a5, a6, a3, n] + S2[a1, a2, a5, a6, SP[a3, a4], n] + 
    S2[a1, a2, a5, SP[a3, a4], a6, n] - S2[a1, a2, a5, SP[a3, a6], a4, n] + 
    S2[a4, n]*S2[a1, a2, a6, a3, a5, n] + S2[a1, a2, a6, a3, SP[a4, a5], n] - 
    S2[a1, a2, a6, a4, SP[a3, a5], n] + S2[a4, n]*S2[a1, a2, a6, a5, a3, n] + 
    S2[a1, a2, a6, a5, SP[a3, a4], n] + S2[a1, a2, a6, SP[a4, a5], a3, n] - 
    S2[a1, a2, SP[a3, a6], a5, a4, n] + S2[a1, a2, SP[a4, a5], a3, a6, n] + 
    S2[a1, a2, SP[a4, a5], a6, a3, n] - S2[a1, a2, SP[a5, a6], a3, a4, n] - 
    S2[a1, a2, SP[a5, a6], a4, a3, n] - S2[a1, a4, a2, a3, SP[a5, a6], n] - 
    S2[a1, a4, a2, a6, SP[a3, a5], n] - S2[a1, a4, a2, SP[a3, a5], a6, n] - 
    S2[a1, a4, a2, SP[a5, a6], a3, n] - S2[a1, a4, a6, a2, SP[a3, a5], n] - 
    S2[a1, a4, a6, SP[a2, a5], a3, n] - S2[a1, a4, SP[a2, a5], a3, a6, n] - 
    S2[a1, a4, SP[a2, a5], a6, a3, n] - S2[a1, a4, SP[a5, a6], a2, a3, n] - 
    S2[a6, n]*S2[a1, a5, a2, a3, a4, n] + 
    S2[a4, n]*S2[a1, a5, a2, a3, a6, n] - 
    S2[a6, n]*S2[a1, a5, a2, a4, a3, n] - S2[a1, a5, a2, a4, SP[a3, a6], n] + 
    S2[a4, n]*S2[a1, a5, a2, a6, a3, n] + S2[a1, a5, a2, a6, SP[a3, a4], n] + 
    S2[a1, a5, a2, SP[a3, a4], a6, n] - S2[a1, a5, a2, SP[a3, a6], a4, n] - 
    S2[a6, n]*S2[a1, a5, a4, a2, a3, n] - S2[a1, a5, a4, a2, SP[a3, a6], n] - 
    S2[a1, a5, a4, SP[a2, a6], a3, n] + S2[a4, n]*S2[a1, a5, a6, a2, a3, n] + 
    S2[a1, a5, a6, a2, SP[a3, a4], n] + S2[a1, a5, a6, SP[a2, a4], a3, n] + 
    S2[a1, a5, SP[a2, a4], a3, a6, n] + S2[a1, a5, SP[a2, a4], a6, a3, n] - 
    S2[a1, a5, SP[a2, a6], a3, a4, n] - S2[a1, a5, SP[a2, a6], a4, a3, n] + 
    S2[a4, n]*S2[a1, a6, a2, a3, a5, n] + S2[a1, a6, a2, a3, SP[a4, a5], n] - 
    S2[a1, a6, a2, a4, SP[a3, a5], n] + S2[a4, n]*S2[a1, a6, a2, a5, a3, n] + 
    S2[a1, a6, a2, a5, SP[a3, a4], n] + S2[a1, a6, a2, SP[a4, a5], a3, n] - 
    S2[a1, a6, a4, a2, SP[a3, a5], n] - S2[a1, a6, a4, SP[a2, a5], a3, n] + 
    S2[a4, n]*S2[a1, a6, a5, a2, a3, n] + S2[a1, a6, a5, a2, SP[a3, a4], n] + 
    S2[a1, a6, a5, SP[a2, a4], a3, n] + S2[a1, a6, SP[a4, a5], a2, a3, n] - 
    S2[a1, SP[a2, a6], a3, a5, a4, n] - S2[a1, SP[a2, a6], a5, a3, a4, n] - 
    S2[a1, SP[a2, a6], a5, a4, a3, n] + S2[a1, SP[a4, a5], a2, a3, a6, n] + 
    S2[a1, SP[a4, a5], a2, a6, a3, n] + S2[a1, SP[a4, a5], a6, a2, a3, n] - 
    S2[a1, SP[a5, a6], a2, a3, a4, n] - S2[a1, SP[a5, a6], a2, a4, a3, n] - 
    S2[a1, SP[a5, a6], a4, a2, a3, n] - S2[a4, a1, a2, a3, SP[a5, a6], n] - 
    S2[a4, a1, a2, a6, SP[a3, a5], n] - S2[a4, a1, a2, SP[a3, a5], a6, n] - 
    S2[a4, a1, a2, SP[a5, a6], a3, n] - S2[a4, a1, a6, a2, SP[a3, a5], n] - 
    S2[a4, a1, a6, SP[a2, a5], a3, n] - S2[a4, a1, SP[a2, a5], a3, a6, n] - 
    S2[a4, a1, SP[a2, a5], a6, a3, n] - S2[a4, a1, SP[a5, a6], a2, a3, n] + 
    S2[a6, n]*S2[a4, a5, a1, a2, a3, n] + S2[a4, a5, a1, a2, SP[a3, a6], n] + 
    S2[a4, a5, a1, SP[a2, a6], a3, n] + S2[a4, a5, SP[a1, a6], a2, a3, n] - 
    S2[a4, SP[a1, a5], a2, a3, a6, n] - S2[a4, SP[a1, a5], a2, a6, a3, n] - 
    S2[a4, SP[a1, a5], a6, a2, a3, n] + S2[a4, SP[a5, a6], a1, a2, a3, n] - 
    S2[a4, n]*S2[a6, a5, a1, a2, a3, n] - S2[a6, a5, a1, a2, SP[a3, a4], n] - 
    S2[a6, a5, a1, SP[a2, a4], a3, n] - S2[a6, a5, SP[a1, a4], a2, a3, n] - 
    S2[a6, SP[a4, a5], a1, a2, a3, n] - S2[SP[a1, a6], a2, a3, a5, a4, n] - 
    S2[SP[a1, a6], a2, a5, a3, a4, n] - S2[SP[a1, a6], a2, a5, a4, a3, n] - 
    S2[SP[a1, a6], a5, a2, a3, a4, n] - S2[SP[a1, a6], a5, a2, a4, a3, n] - 
    S2[SP[a1, a6], a5, a4, a2, a3, n] + S2[a6, a1, a2, a3, a5, a4, n] + 
    S2[a6, a1, a2, a5, a3, a4, n] + S2[a6, a1, a2, a5, a4, a3, n] + 
    S2[a6, a1, a5, a2, a3, a4, n] + S2[a6, a1, a5, a2, a4, a3, n] + 
    S2[a6, a1, a5, a4, a2, a3, n] + S2[a6, a5, a1, a2, a3, a4, n] + 
    S2[a6, a5, a1, a2, a4, a3, n] + S2[a6, a5, a1, a4, a2, a3, n] + 
    S2[a6, a5, a4, a1, a2, a3, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a4_, a5_, a6_, a1_, a3_, a2_, n_] :> 
  -(S2[a4, a5, n]*S2[a1, a3, a2, a6, n]) - S2[a4, a5, n]*
     S2[a1, a3, a6, a2, n] + S2[a1, a3, SP[a2, a4], SP[a5, a6], n] + 
    S2[a1, a3, SP[a4, a6], SP[a2, a5], n] - S2[a4, a5, n]*
     S2[a1, a6, a3, a2, n] + S2[a1, a6, SP[a3, a4], SP[a2, a5], n] + 
    S2[a1, SP[a3, a4], a2, SP[a5, a6], n] + S2[a1, SP[a3, a4], a6, 
     SP[a2, a5], n] + S2[a1, SP[a3, a4], SP[a2, a5], a6, n] + 
    S2[a1, SP[a3, a4], SP[a5, a6], a2, n] + S2[a1, SP[a4, a6], a3, 
     SP[a2, a5], n] + S2[a1, SP[a4, a6], SP[a3, a5], a2, n] + 
    S2[SP[a1, a4], a3, a2, SP[a5, a6], n] + S2[SP[a1, a4], a3, a6, 
     SP[a2, a5], n] + S2[SP[a1, a4], a3, SP[a2, a5], a6, n] + 
    S2[SP[a1, a4], a3, SP[a5, a6], a2, n] + S2[SP[a1, a4], a6, a3, 
     SP[a2, a5], n] + S2[SP[a1, a4], a6, SP[a3, a5], a2, n] + 
    S2[SP[a1, a4], SP[a3, a5], a2, a6, n] + S2[SP[a1, a4], SP[a3, a5], a6, 
     a2, n] + S2[SP[a1, a4], SP[a5, a6], a3, a2, n] - 
    S2[a1, a3, a2, a4, SP[a5, a6], n] - S2[a6, n]*S2[a1, a3, a2, a5, a4, n] + 
    S2[a4, n]*S2[a1, a3, a2, a5, a6, n] + 
    S2[a4, n]*S2[a1, a3, a2, a6, a5, n] + S2[a1, a3, a2, a6, SP[a4, a5], n] + 
    S2[a1, a3, a2, SP[a4, a5], a6, n] - S2[a1, a3, a2, SP[a5, a6], a4, n] - 
    S2[a1, a3, a4, a2, SP[a5, a6], n] - S2[a1, a3, a4, a6, SP[a2, a5], n] - 
    S2[a1, a3, a4, SP[a2, a5], a6, n] - S2[a1, a3, a4, SP[a5, a6], a2, n] - 
    S2[a6, n]*S2[a1, a3, a5, a2, a4, n] + 
    S2[a4, n]*S2[a1, a3, a5, a2, a6, n] - 
    S2[a6, n]*S2[a1, a3, a5, a4, a2, n] - S2[a1, a3, a5, a4, SP[a2, a6], n] + 
    S2[a4, n]*S2[a1, a3, a5, a6, a2, n] + S2[a1, a3, a5, a6, SP[a2, a4], n] + 
    S2[a1, a3, a5, SP[a2, a4], a6, n] - S2[a1, a3, a5, SP[a2, a6], a4, n] + 
    S2[a4, n]*S2[a1, a3, a6, a2, a5, n] + S2[a1, a3, a6, a2, SP[a4, a5], n] - 
    S2[a1, a3, a6, a4, SP[a2, a5], n] + S2[a4, n]*S2[a1, a3, a6, a5, a2, n] + 
    S2[a1, a3, a6, a5, SP[a2, a4], n] + S2[a1, a3, a6, SP[a4, a5], a2, n] - 
    S2[a1, a3, SP[a2, a6], a5, a4, n] + S2[a1, a3, SP[a4, a5], a2, a6, n] + 
    S2[a1, a3, SP[a4, a5], a6, a2, n] - S2[a1, a3, SP[a5, a6], a2, a4, n] - 
    S2[a1, a3, SP[a5, a6], a4, a2, n] - S2[a1, a4, a3, a2, SP[a5, a6], n] - 
    S2[a1, a4, a3, a6, SP[a2, a5], n] - S2[a1, a4, a3, SP[a2, a5], a6, n] - 
    S2[a1, a4, a3, SP[a5, a6], a2, n] - S2[a1, a4, a6, a3, SP[a2, a5], n] - 
    S2[a1, a4, a6, SP[a3, a5], a2, n] - S2[a1, a4, SP[a3, a5], a2, a6, n] - 
    S2[a1, a4, SP[a3, a5], a6, a2, n] - S2[a1, a4, SP[a5, a6], a3, a2, n] - 
    S2[a6, n]*S2[a1, a5, a3, a2, a4, n] + 
    S2[a4, n]*S2[a1, a5, a3, a2, a6, n] - 
    S2[a6, n]*S2[a1, a5, a3, a4, a2, n] - S2[a1, a5, a3, a4, SP[a2, a6], n] + 
    S2[a4, n]*S2[a1, a5, a3, a6, a2, n] + S2[a1, a5, a3, a6, SP[a2, a4], n] + 
    S2[a1, a5, a3, SP[a2, a4], a6, n] - S2[a1, a5, a3, SP[a2, a6], a4, n] - 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] - S2[a1, a5, a4, a3, SP[a2, a6], n] - 
    S2[a1, a5, a4, SP[a3, a6], a2, n] + S2[a4, n]*S2[a1, a5, a6, a3, a2, n] + 
    S2[a1, a5, a6, a3, SP[a2, a4], n] + S2[a1, a5, a6, SP[a3, a4], a2, n] + 
    S2[a1, a5, SP[a3, a4], a2, a6, n] + S2[a1, a5, SP[a3, a4], a6, a2, n] - 
    S2[a1, a5, SP[a3, a6], a2, a4, n] - S2[a1, a5, SP[a3, a6], a4, a2, n] + 
    S2[a4, n]*S2[a1, a6, a3, a2, a5, n] + S2[a1, a6, a3, a2, SP[a4, a5], n] - 
    S2[a1, a6, a3, a4, SP[a2, a5], n] + S2[a4, n]*S2[a1, a6, a3, a5, a2, n] + 
    S2[a1, a6, a3, a5, SP[a2, a4], n] + S2[a1, a6, a3, SP[a4, a5], a2, n] - 
    S2[a1, a6, a4, a3, SP[a2, a5], n] - S2[a1, a6, a4, SP[a3, a5], a2, n] + 
    S2[a4, n]*S2[a1, a6, a5, a3, a2, n] + S2[a1, a6, a5, a3, SP[a2, a4], n] + 
    S2[a1, a6, a5, SP[a3, a4], a2, n] + S2[a1, a6, SP[a4, a5], a3, a2, n] - 
    S2[a1, SP[a3, a6], a2, a5, a4, n] - S2[a1, SP[a3, a6], a5, a2, a4, n] - 
    S2[a1, SP[a3, a6], a5, a4, a2, n] + S2[a1, SP[a4, a5], a3, a2, a6, n] + 
    S2[a1, SP[a4, a5], a3, a6, a2, n] + S2[a1, SP[a4, a5], a6, a3, a2, n] - 
    S2[a1, SP[a5, a6], a3, a2, a4, n] - S2[a1, SP[a5, a6], a3, a4, a2, n] - 
    S2[a1, SP[a5, a6], a4, a3, a2, n] - S2[a4, a1, a3, a2, SP[a5, a6], n] - 
    S2[a4, a1, a3, a6, SP[a2, a5], n] - S2[a4, a1, a3, SP[a2, a5], a6, n] - 
    S2[a4, a1, a3, SP[a5, a6], a2, n] - S2[a4, a1, a6, a3, SP[a2, a5], n] - 
    S2[a4, a1, a6, SP[a3, a5], a2, n] - S2[a4, a1, SP[a3, a5], a2, a6, n] - 
    S2[a4, a1, SP[a3, a5], a6, a2, n] - S2[a4, a1, SP[a5, a6], a3, a2, n] + 
    S2[a6, n]*S2[a4, a5, a1, a3, a2, n] + S2[a4, a5, a1, a3, SP[a2, a6], n] + 
    S2[a4, a5, a1, SP[a3, a6], a2, n] + S2[a4, a5, SP[a1, a6], a3, a2, n] - 
    S2[a4, SP[a1, a5], a3, a2, a6, n] - S2[a4, SP[a1, a5], a3, a6, a2, n] - 
    S2[a4, SP[a1, a5], a6, a3, a2, n] + S2[a4, SP[a5, a6], a1, a3, a2, n] - 
    S2[a4, n]*S2[a6, a5, a1, a3, a2, n] - S2[a6, a5, a1, a3, SP[a2, a4], n] - 
    S2[a6, a5, a1, SP[a3, a4], a2, n] - S2[a6, a5, SP[a1, a4], a3, a2, n] - 
    S2[a6, SP[a4, a5], a1, a3, a2, n] - S2[SP[a1, a6], a3, a2, a5, a4, n] - 
    S2[SP[a1, a6], a3, a5, a2, a4, n] - S2[SP[a1, a6], a3, a5, a4, a2, n] - 
    S2[SP[a1, a6], a5, a3, a2, a4, n] - S2[SP[a1, a6], a5, a3, a4, a2, n] - 
    S2[SP[a1, a6], a5, a4, a3, a2, n] + S2[a6, a1, a3, a2, a5, a4, n] + 
    S2[a6, a1, a3, a5, a2, a4, n] + S2[a6, a1, a3, a5, a4, a2, n] + 
    S2[a6, a1, a5, a3, a2, a4, n] + S2[a6, a1, a5, a3, a4, a2, n] + 
    S2[a6, a1, a5, a4, a3, a2, n] + S2[a6, a5, a1, a3, a2, a4, n] + 
    S2[a6, a5, a1, a3, a4, a2, n] + S2[a6, a5, a1, a4, a3, a2, n] + 
    S2[a6, a5, a4, a1, a3, a2, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a4_, a5_, a6_, a2_, a1_, a3_, n_] :> 
  S2[a4, a5, n]*S2[a1, a2, a3, a6, n] + S2[a4, a5, n]*S2[a1, a2, a6, a3, n] - 
    S2[a1, a2, SP[a3, a4], SP[a5, a6], n] - S2[a1, a2, SP[a4, a6], 
     SP[a3, a5], n] + S2[a4, a5, n]*S2[a1, a3, a2, a6, n] - 
    S2[a1, a3, SP[a2, a4], SP[a5, a6], n] - S2[a1, SP[a2, a4], a3, 
     SP[a5, a6], n] - S2[a1, SP[a2, a4], a6, SP[a3, a5], n] - 
    S2[a1, SP[a2, a4], SP[a3, a5], a6, n] - S2[a1, SP[a2, a4], SP[a5, a6], 
     a3, n] - S2[a1, SP[a3, a4], a2, SP[a5, a6], n] - 
    S2[a1, SP[a3, a4], SP[a2, a5], a6, n] + S2[a1, a3, n]*
     S2[a2, a5, a4, a6, n] + S2[a1, a3, n]*S2[a2, a5, a6, a4, n] - 
    S2[a2, a5, SP[a1, a4], SP[a3, a6], n] - S2[a2, a5, SP[a1, a6], 
     SP[a3, a4], n] + S2[a1, a3, n]*S2[a2, a6, a5, a4, n] - 
    S2[a2, a6, SP[a1, a5], SP[a3, a4], n] - S2[a2, SP[a1, a5], a4, 
     SP[a3, a6], n] - S2[a2, SP[a1, a5], a6, SP[a3, a4], n] - 
    S2[a2, SP[a1, a5], SP[a3, a4], a6, n] - S2[a2, SP[a1, a5], SP[a3, a6], 
     a4, n] - S2[a2, SP[a1, a6], a5, SP[a3, a4], n] - 
    S2[a2, SP[a1, a6], SP[a3, a5], a4, n] - S2[a1, a3, n]*
     S2[a4, a5, a2, a6, n] + S2[a4, a5, SP[a1, a2], SP[a3, a6], n] + 
    S2[a4, SP[a1, a5], a2, SP[a3, a6], n] + S2[a4, SP[a1, a5], SP[a2, a3], 
     a6, n] - S2[SP[a1, a2], a5, a4, SP[a3, a6], n] - 
    S2[SP[a1, a2], a5, a6, SP[a3, a4], n] - S2[SP[a1, a2], a5, SP[a3, a4], 
     a6, n] - S2[SP[a1, a2], a5, SP[a3, a6], a4, n] - 
    S2[SP[a1, a2], a6, a5, SP[a3, a4], n] - S2[SP[a1, a2], a6, SP[a3, a5], 
     a4, n] - S2[SP[a1, a2], SP[a3, a5], a4, a6, n] - 
    S2[SP[a1, a2], SP[a3, a5], a6, a4, n] - S2[SP[a1, a2], SP[a3, a6], a5, 
     a4, n] - S2[SP[a1, a4], a2, a3, SP[a5, a6], n] - 
    S2[SP[a1, a4], a2, a6, SP[a3, a5], n] - S2[SP[a1, a4], a2, SP[a3, a5], 
     a6, n] - S2[SP[a1, a4], a2, SP[a5, a6], a3, n] - 
    S2[SP[a1, a4], a3, a2, SP[a5, a6], n] - S2[SP[a1, a4], a3, SP[a2, a5], 
     a6, n] + S2[SP[a1, a4], a5, a2, SP[a3, a6], n] + 
    S2[SP[a1, a4], a5, SP[a2, a3], a6, n] - S2[SP[a1, a4], SP[a2, a5], a3, 
     a6, n] - S2[SP[a1, a4], SP[a2, a5], a6, a3, n] + 
    S2[a1, a2, a3, a4, SP[a5, a6], n] + S2[a6, n]*S2[a1, a2, a3, a5, a4, n] - 
    S2[a4, n]*S2[a1, a2, a3, a5, a6, n] - 
    S2[a4, n]*S2[a1, a2, a3, a6, a5, n] - S2[a1, a2, a3, a6, SP[a4, a5], n] - 
    S2[a1, a2, a3, SP[a4, a5], a6, n] + S2[a1, a2, a3, SP[a5, a6], a4, n] + 
    S2[a1, a2, a4, a3, SP[a5, a6], n] + S2[a1, a2, a4, a6, SP[a3, a5], n] + 
    S2[a1, a2, a4, SP[a3, a5], a6, n] + S2[a1, a2, a4, SP[a5, a6], a3, n] + 
    S2[a6, n]*S2[a1, a2, a5, a3, a4, n] - 
    S2[a4, n]*S2[a1, a2, a5, a3, a6, n] + 
    S2[a6, n]*S2[a1, a2, a5, a4, a3, n] + 
    2*S2[a1, a2, a5, a4, SP[a3, a6], n] - 
    S2[a4, n]*S2[a1, a2, a5, a6, a3, n] + 
    2*S2[a1, a2, a5, SP[a3, a6], a4, n] - 
    S2[a4, n]*S2[a1, a2, a6, a3, a5, n] - S2[a1, a2, a6, a3, SP[a4, a5], n] + 
    S2[a1, a2, a6, a4, SP[a3, a5], n] - S2[a4, n]*S2[a1, a2, a6, a5, a3, n] + 
    S2[a1, a2, a6, SP[a3, a5], a4, n] - S2[a1, a2, a6, SP[a4, a5], a3, n] + 
    S2[a1, a2, SP[a3, a5], a4, a6, n] + S2[a1, a2, SP[a3, a5], a6, a4, n] + 
    2*S2[a1, a2, SP[a3, a6], a5, a4, n] - S2[a1, a2, SP[a4, a5], a3, a6, n] - 
    S2[a1, a2, SP[a4, a5], a6, a3, n] + S2[a1, a2, SP[a5, a6], a3, a4, n] + 
    S2[a1, a2, SP[a5, a6], a4, a3, n] + S2[a1, a3, a2, a4, SP[a5, a6], n] + 
    S2[a6, n]*S2[a1, a3, a2, a5, a4, n] - 
    S2[a4, n]*S2[a1, a3, a2, a5, a6, n] - 
    S2[a4, n]*S2[a1, a3, a2, a6, a5, n] - S2[a1, a3, a2, a6, SP[a4, a5], n] - 
    S2[a1, a3, a2, SP[a4, a5], a6, n] + S2[a1, a3, a2, SP[a5, a6], a4, n] + 
    S2[a1, a3, a4, a2, SP[a5, a6], n] + S2[a1, a3, a4, SP[a2, a5], a6, n] + 
    S2[a6, n]*S2[a1, a3, a5, a2, a4, n] + S2[a1, a3, a5, a2, SP[a4, a6], n] + 
    S2[a6, n]*S2[a1, a3, a5, a4, a2, n] - 
    S2[a2, n]*S2[a1, a3, a5, a4, a6, n] - 
    S2[a2, n]*S2[a1, a3, a5, a6, a4, n] - S2[a1, a3, a5, a6, SP[a2, a4], n] - 
    S2[a1, a3, a5, SP[a2, a4], a6, n] + S2[a1, a3, a5, SP[a4, a6], a2, n] - 
    S2[a2, n]*S2[a1, a3, a6, a5, a4, n] - S2[a1, a3, a6, a5, SP[a2, a4], n] - 
    S2[a1, a3, a6, SP[a2, a5], a4, n] - S2[a1, a3, SP[a2, a5], a4, a6, n] - 
    S2[a1, a3, SP[a2, a5], a6, a4, n] + S2[a1, a3, SP[a5, a6], a2, a4, n] + 
    S2[a1, a3, SP[a5, a6], a4, a2, n] + S2[a1, a4, a2, a3, SP[a5, a6], n] + 
    S2[a1, a4, a2, a6, SP[a3, a5], n] + S2[a1, a4, a2, SP[a3, a5], a6, n] + 
    S2[a1, a4, a2, SP[a5, a6], a3, n] + S2[a1, a4, a3, a2, SP[a5, a6], n] + 
    S2[a1, a4, a3, SP[a2, a5], a6, n] - S2[a1, a4, a5, a2, SP[a3, a6], n] - 
    S2[a1, a4, a5, SP[a2, a3], a6, n] + S2[a1, a4, SP[a2, a5], a3, a6, n] + 
    S2[a1, a4, SP[a2, a5], a6, a3, n] + S2[a6, n]*S2[a1, a5, a2, a3, a4, n] + 
    S2[a1, a5, a2, a3, SP[a4, a6], n] + S2[a6, n]*S2[a1, a5, a2, a4, a3, n] + 
    S2[a1, a5, a2, a4, SP[a3, a6], n] + S2[a1, a5, a2, SP[a3, a6], a4, n] + 
    S2[a1, a5, a2, SP[a4, a6], a3, n] + S2[a6, n]*S2[a1, a5, a3, a2, a4, n] + 
    S2[a1, a5, a3, a2, SP[a4, a6], n] + S2[a6, n]*S2[a1, a5, a3, a4, a2, n] - 
    S2[a2, n]*S2[a1, a5, a3, a4, a6, n] - 
    S2[a2, n]*S2[a1, a5, a3, a6, a4, n] - S2[a1, a5, a3, a6, SP[a2, a4], n] - 
    S2[a1, a5, a3, SP[a2, a4], a6, n] + S2[a1, a5, a3, SP[a4, a6], a2, n] + 
    S2[a6, n]*S2[a1, a5, a4, a2, a3, n] + S2[a1, a5, a4, a2, SP[a3, a6], n] + 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] - 
    S2[a2, n]*S2[a1, a5, a4, a3, a6, n] - 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] - S2[a1, a5, a4, a6, SP[a2, a3], n] - 
    S2[a1, a5, a4, SP[a2, a3], a6, n] + S2[a1, a5, a4, SP[a3, a6], a2, n] - 
    S2[a2, n]*S2[a1, a5, a6, a3, a4, n] - S2[a1, a5, a6, a3, SP[a2, a4], n] - 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] - S2[a1, a5, a6, a4, SP[a2, a3], n] - 
    S2[a1, a5, a6, SP[a2, a3], a4, n] - S2[a1, a5, a6, SP[a2, a4], a3, n] - 
    S2[a1, a5, SP[a2, a3], a4, a6, n] - S2[a1, a5, SP[a2, a3], a6, a4, n] - 
    S2[a1, a5, SP[a2, a4], a3, a6, n] - S2[a1, a5, SP[a2, a4], a6, a3, n] + 
    S2[a1, a5, SP[a3, a6], a2, a4, n] + S2[a1, a5, SP[a3, a6], a4, a2, n] + 
    S2[a1, a5, SP[a4, a6], a2, a3, n] + S2[a1, a5, SP[a4, a6], a3, a2, n] - 
    S2[a2, n]*S2[a1, a6, a3, a5, a4, n] - S2[a1, a6, a3, a5, SP[a2, a4], n] - 
    S2[a1, a6, a3, SP[a2, a5], a4, n] - S2[a2, n]*S2[a1, a6, a5, a3, a4, n] - 
    S2[a1, a6, a5, a3, SP[a2, a4], n] - S2[a2, n]*S2[a1, a6, a5, a4, a3, n] - 
    S2[a1, a6, a5, a4, SP[a2, a3], n] - S2[a1, a6, a5, SP[a2, a3], a4, n] - 
    S2[a1, a6, a5, SP[a2, a4], a3, n] - S2[a1, a6, SP[a2, a3], a5, a4, n] - 
    S2[a1, a6, SP[a2, a5], a3, a4, n] - S2[a1, a6, SP[a2, a5], a4, a3, n] - 
    S2[a1, SP[a2, a5], a3, a4, a6, n] - S2[a1, SP[a2, a5], a3, a6, a4, n] - 
    S2[a1, SP[a2, a5], a4, a3, a6, n] - S2[a1, SP[a2, a5], a4, a6, a3, n] - 
    S2[a1, SP[a2, a5], a6, a3, a4, n] - S2[a1, SP[a2, a5], a6, a4, a3, n] + 
    S2[a1, SP[a3, a6], a2, a5, a4, n] + S2[a1, SP[a3, a6], a5, a2, a4, n] + 
    S2[a1, SP[a3, a6], a5, a4, a2, n] + S2[a1, SP[a5, a6], a2, a3, a4, n] + 
    S2[a1, SP[a5, a6], a2, a4, a3, n] + S2[a1, SP[a5, a6], a3, a2, a4, n] + 
    S2[a1, SP[a5, a6], a3, a4, a2, n] + S2[a1, SP[a5, a6], a4, a2, a3, n] + 
    S2[a1, SP[a5, a6], a4, a3, a2, n] + S2[a2, a1, a5, a4, SP[a3, a6], n] + 
    S2[a2, a1, a5, a6, SP[a3, a4], n] + S2[a2, a1, a5, SP[a3, a4], a6, n] + 
    S2[a2, a1, a5, SP[a3, a6], a4, n] + S2[a2, a1, a6, a5, SP[a3, a4], n] + 
    S2[a2, a1, a6, SP[a3, a5], a4, n] + S2[a2, a1, SP[a3, a5], a4, a6, n] + 
    S2[a2, a1, SP[a3, a5], a6, a4, n] + S2[a2, a1, SP[a3, a6], a5, a4, n] - 
    S2[a4, n]*S2[a2, a5, a1, a3, a6, n] - S2[a2, a5, a1, a3, SP[a4, a6], n] + 
    S2[a2, a5, a1, a4, SP[a3, a6], n] - S2[a4, n]*S2[a2, a5, a1, a6, a3, n] + 
    S2[a2, a5, a1, SP[a3, a6], a4, n] - S2[a2, a5, a1, SP[a4, a6], a3, n] + 
    S2[a2, a5, a4, a1, SP[a3, a6], n] + S2[a2, a5, a4, SP[a1, a6], a3, n] - 
    S2[a4, n]*S2[a2, a5, a6, a1, a3, n] + S2[a2, a5, SP[a1, a6], a3, a4, n] + 
    S2[a2, a5, SP[a1, a6], a4, a3, n] - S2[a2, a5, SP[a4, a6], a1, a3, n] + 
    S2[a2, a6, a1, a5, SP[a3, a4], n] + S2[a2, a6, a1, SP[a3, a5], a4, n] + 
    S2[a2, a6, a5, a1, SP[a3, a4], n] + S2[a2, a6, a5, SP[a1, a4], a3, n] + 
    S2[a2, a6, SP[a1, a5], a3, a4, n] + S2[a2, a6, SP[a1, a5], a4, a3, n] + 
    S2[a2, SP[a1, a5], a3, a4, a6, n] + S2[a2, SP[a1, a5], a3, a6, a4, n] + 
    S2[a2, SP[a1, a5], a4, a3, a6, n] + S2[a2, SP[a1, a5], a4, a6, a3, n] + 
    S2[a2, SP[a1, a5], a6, a3, a4, n] + S2[a2, SP[a1, a5], a6, a4, a3, n] + 
    S2[a2, SP[a1, a6], a3, a5, a4, n] + S2[a2, SP[a1, a6], a5, a3, a4, n] + 
    S2[a2, SP[a1, a6], a5, a4, a3, n] - S2[a2, SP[a4, a5], a1, a3, a6, n] - 
    S2[a2, SP[a4, a5], a1, a6, a3, n] - S2[a2, SP[a4, a5], a6, a1, a3, n] + 
    S2[a4, a1, a2, a3, SP[a5, a6], n] + S2[a4, a1, a2, a6, SP[a3, a5], n] + 
    S2[a4, a1, a2, SP[a3, a5], a6, n] + S2[a4, a1, a2, SP[a5, a6], a3, n] + 
    S2[a4, a1, a3, a2, SP[a5, a6], n] + S2[a4, a1, a3, SP[a2, a5], a6, n] - 
    S2[a4, a1, a5, a2, SP[a3, a6], n] - S2[a4, a1, a5, SP[a2, a3], a6, n] + 
    S2[a4, a1, SP[a2, a5], a3, a6, n] + S2[a4, a1, SP[a2, a5], a6, a3, n] - 
    S2[a6, n]*S2[a4, a5, a1, a2, a3, n] - 
    2*S2[a4, a5, a1, a2, SP[a3, a6], n] - 
    S2[a6, n]*S2[a4, a5, a1, a3, a2, n] + 
    S2[a2, n]*S2[a4, a5, a1, a3, a6, n] + 
    S2[a2, n]*S2[a4, a5, a1, a6, a3, n] + S2[a4, a5, a1, a6, SP[a2, a3], n] - 
    S2[a4, a5, a1, SP[a3, a6], a2, n] - S2[a4, a5, a2, a1, SP[a3, a6], n] - 
    S2[a4, a5, a2, SP[a1, a6], a3, n] + S2[a2, n]*S2[a4, a5, a6, a1, a3, n] + 
    S2[a4, a5, a6, a1, SP[a2, a3], n] + S2[a4, a5, a6, SP[a1, a2], a3, n] - 
    S2[a4, a5, SP[a1, a6], a2, a3, n] - S2[a4, a5, SP[a1, a6], a3, a2, n] + 
    S2[a4, a5, SP[a2, a6], a1, a3, n] + S2[a4, SP[a2, a5], a1, a3, a6, n] + 
    S2[a4, SP[a2, a5], a1, a6, a3, n] + S2[a4, SP[a2, a5], a6, a1, a3, n] - 
    S2[a4, SP[a5, a6], a1, a2, a3, n] - S2[a4, SP[a5, a6], a1, a3, a2, n] - 
    S2[a2, n]*S2[a6, a1, a3, a5, a4, n] - S2[a6, a1, a3, a5, SP[a2, a4], n] - 
    S2[a6, a1, a3, SP[a2, a5], a4, n] - S2[a2, n]*S2[a6, a1, a5, a3, a4, n] - 
    S2[a6, a1, a5, a3, SP[a2, a4], n] - S2[a2, n]*S2[a6, a1, a5, a4, a3, n] - 
    S2[a6, a1, a5, a4, SP[a2, a3], n] - S2[a6, a1, a5, SP[a2, a3], a4, n] - 
    S2[a6, a1, a5, SP[a2, a4], a3, n] - S2[a6, a1, SP[a2, a3], a5, a4, n] - 
    S2[a6, a1, SP[a2, a5], a3, a4, n] - S2[a6, a1, SP[a2, a5], a4, a3, n] + 
    S2[a4, n]*S2[a6, a5, a1, a2, a3, n] + S2[a6, a5, a1, a2, SP[a3, a4], n] + 
    S2[a4, n]*S2[a6, a5, a1, a3, a2, n] - 
    S2[a2, n]*S2[a6, a5, a1, a3, a4, n] - 
    S2[a2, n]*S2[a6, a5, a1, a4, a3, n] - S2[a6, a5, a1, a4, SP[a2, a3], n] - 
    S2[a6, a5, a1, SP[a2, a3], a4, n] + S2[a6, a5, a1, SP[a3, a4], a2, n] - 
    S2[a2, n]*S2[a6, a5, a4, a1, a3, n] - S2[a6, a5, a4, a1, SP[a2, a3], n] - 
    S2[a6, a5, a4, SP[a1, a2], a3, n] - S2[a6, a5, SP[a1, a2], a3, a4, n] - 
    S2[a6, a5, SP[a1, a2], a4, a3, n] + S2[a6, a5, SP[a1, a4], a2, a3, n] + 
    S2[a6, a5, SP[a1, a4], a3, a2, n] - S2[a6, a5, SP[a2, a4], a1, a3, n] - 
    S2[a6, SP[a1, a2], a3, a5, a4, n] - S2[a6, SP[a1, a2], a5, a3, a4, n] - 
    S2[a6, SP[a1, a2], a5, a4, a3, n] - S2[a6, SP[a2, a5], a1, a3, a4, n] - 
    S2[a6, SP[a2, a5], a1, a4, a3, n] - S2[a6, SP[a2, a5], a4, a1, a3, n] + 
    S2[a6, SP[a4, a5], a1, a2, a3, n] + S2[a6, SP[a4, a5], a1, a3, a2, n] + 
    S2[SP[a1, a6], a2, a3, a5, a4, n] + S2[SP[a1, a6], a2, a5, a3, a4, n] + 
    S2[SP[a1, a6], a2, a5, a4, a3, n] + S2[SP[a1, a6], a3, a2, a5, a4, n] + 
    S2[SP[a1, a6], a3, a5, a2, a4, n] + S2[SP[a1, a6], a3, a5, a4, a2, n] + 
    S2[SP[a1, a6], a5, a2, a3, a4, n] + S2[SP[a1, a6], a5, a2, a4, a3, n] + 
    S2[SP[a1, a6], a5, a3, a2, a4, n] + S2[SP[a1, a6], a5, a3, a4, a2, n] + 
    S2[SP[a1, a6], a5, a4, a2, a3, n] + S2[SP[a1, a6], a5, a4, a3, a2, n] - 
    S2[SP[a2, a6], a1, a3, a5, a4, n] - S2[SP[a2, a6], a1, a5, a3, a4, n] - 
    S2[SP[a2, a6], a1, a5, a4, a3, n] - S2[SP[a2, a6], a5, a1, a3, a4, n] - 
    S2[SP[a2, a6], a5, a1, a4, a3, n] - S2[SP[a2, a6], a5, a4, a1, a3, n] + 
    S2[a6, a2, a1, a3, a5, a4, n] + S2[a6, a2, a1, a5, a3, a4, n] + 
    S2[a6, a2, a1, a5, a4, a3, n] + S2[a6, a2, a5, a1, a3, a4, n] + 
    S2[a6, a2, a5, a1, a4, a3, n] + S2[a6, a2, a5, a4, a1, a3, n] + 
    S2[a6, a5, a2, a1, a3, a4, n] + S2[a6, a5, a2, a1, a4, a3, n] + 
    S2[a6, a5, a2, a4, a1, a3, n] + S2[a6, a5, a4, a2, a1, a3, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a4_, a5_, a6_, a2_, a3_, a1_, n_] :> 
  -(S2[a4, a5, n]*S2[a1, a3, a2, a6, n]) + S2[a1, a3, SP[a2, a4], SP[a5, a6], 
     n] + S2[a1, SP[a3, a4], a2, SP[a5, a6], n] + 
    S2[a1, SP[a3, a4], SP[a2, a5], a6, n] - S2[a1, a3, n]*
     S2[a2, a5, a4, a6, n] - S2[a1, a3, n]*S2[a2, a5, a6, a4, n] + 
    S2[a2, a5, SP[a1, a4], SP[a3, a6], n] + S2[a2, a5, SP[a1, a6], 
     SP[a3, a4], n] - S2[a1, a3, n]*S2[a2, a6, a5, a4, n] + 
    S2[a2, a6, SP[a1, a5], SP[a3, a4], n] + S2[a2, SP[a1, a5], a4, 
     SP[a3, a6], n] + S2[a2, SP[a1, a5], a6, SP[a3, a4], n] + 
    S2[a2, SP[a1, a5], SP[a3, a4], a6, n] + S2[a2, SP[a1, a5], SP[a3, a6], 
     a4, n] + S2[a2, SP[a1, a6], a5, SP[a3, a4], n] + 
    S2[a2, SP[a1, a6], SP[a3, a5], a4, n] + S2[a1, a3, n]*
     S2[a4, a5, a2, a6, n] - S2[a4, a5, SP[a1, a2], SP[a3, a6], n] - 
    S2[a4, SP[a1, a5], a2, SP[a3, a6], n] - S2[a4, SP[a1, a5], SP[a2, a3], 
     a6, n] + S2[SP[a1, a2], a5, a4, SP[a3, a6], n] + 
    S2[SP[a1, a2], a5, a6, SP[a3, a4], n] + S2[SP[a1, a2], a5, SP[a3, a4], 
     a6, n] + S2[SP[a1, a2], a5, SP[a3, a6], a4, n] + 
    S2[SP[a1, a2], a6, a5, SP[a3, a4], n] + S2[SP[a1, a2], a6, SP[a3, a5], 
     a4, n] + S2[SP[a1, a2], SP[a3, a5], a4, a6, n] + 
    S2[SP[a1, a2], SP[a3, a5], a6, a4, n] + S2[SP[a1, a2], SP[a3, a6], a5, 
     a4, n] + S2[SP[a1, a4], a3, a2, SP[a5, a6], n] + 
    S2[SP[a1, a4], a3, SP[a2, a5], a6, n] - S2[SP[a1, a4], a5, a2, 
     SP[a3, a6], n] - S2[SP[a1, a4], a5, SP[a2, a3], a6, n] - 
    S2[a1, a2, a5, a4, SP[a3, a6], n] - S2[a1, a2, a5, a6, SP[a3, a4], n] - 
    S2[a1, a2, a5, SP[a3, a4], a6, n] - S2[a1, a2, a5, SP[a3, a6], a4, n] - 
    S2[a1, a2, a6, a5, SP[a3, a4], n] - S2[a1, a2, a6, SP[a3, a5], a4, n] - 
    S2[a1, a2, SP[a3, a5], a4, a6, n] - S2[a1, a2, SP[a3, a5], a6, a4, n] - 
    S2[a1, a2, SP[a3, a6], a5, a4, n] - S2[a1, a3, a2, a4, SP[a5, a6], n] - 
    S2[a6, n]*S2[a1, a3, a2, a5, a4, n] + 
    S2[a4, n]*S2[a1, a3, a2, a5, a6, n] + 
    S2[a4, n]*S2[a1, a3, a2, a6, a5, n] + S2[a1, a3, a2, a6, SP[a4, a5], n] + 
    S2[a1, a3, a2, SP[a4, a5], a6, n] - S2[a1, a3, a2, SP[a5, a6], a4, n] - 
    S2[a1, a3, a4, a2, SP[a5, a6], n] - S2[a1, a3, a4, SP[a2, a5], a6, n] - 
    S2[a6, n]*S2[a1, a3, a5, a2, a4, n] - S2[a1, a3, a5, a2, SP[a4, a6], n] - 
    S2[a6, n]*S2[a1, a3, a5, a4, a2, n] + 
    S2[a2, n]*S2[a1, a3, a5, a4, a6, n] + 
    S2[a2, n]*S2[a1, a3, a5, a6, a4, n] + S2[a1, a3, a5, a6, SP[a2, a4], n] + 
    S2[a1, a3, a5, SP[a2, a4], a6, n] - S2[a1, a3, a5, SP[a4, a6], a2, n] + 
    S2[a2, n]*S2[a1, a3, a6, a5, a4, n] + S2[a1, a3, a6, a5, SP[a2, a4], n] + 
    S2[a1, a3, a6, SP[a2, a5], a4, n] + S2[a1, a3, SP[a2, a5], a4, a6, n] + 
    S2[a1, a3, SP[a2, a5], a6, a4, n] - S2[a1, a3, SP[a5, a6], a2, a4, n] - 
    S2[a1, a3, SP[a5, a6], a4, a2, n] - S2[a1, a4, a3, a2, SP[a5, a6], n] - 
    S2[a1, a4, a3, SP[a2, a5], a6, n] + S2[a1, a4, a5, a2, SP[a3, a6], n] + 
    S2[a1, a4, a5, SP[a2, a3], a6, n] - S2[a4, n]*S2[a1, a5, a2, a3, a6, n] - 
    S2[a1, a5, a2, a3, SP[a4, a6], n] - S2[a4, n]*S2[a1, a5, a2, a6, a3, n] - 
    S2[a1, a5, a2, a6, SP[a3, a4], n] - S2[a1, a5, a2, SP[a3, a4], a6, n] - 
    S2[a1, a5, a2, SP[a4, a6], a3, n] - S2[a6, n]*S2[a1, a5, a3, a2, a4, n] - 
    S2[a1, a5, a3, a2, SP[a4, a6], n] - S2[a6, n]*S2[a1, a5, a3, a4, a2, n] + 
    S2[a2, n]*S2[a1, a5, a3, a4, a6, n] + 
    S2[a2, n]*S2[a1, a5, a3, a6, a4, n] + S2[a1, a5, a3, a6, SP[a2, a4], n] + 
    S2[a1, a5, a3, SP[a2, a4], a6, n] - S2[a1, a5, a3, SP[a4, a6], a2, n] - 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] + 
    S2[a2, n]*S2[a1, a5, a4, a3, a6, n] + 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] + S2[a1, a5, a4, a6, SP[a2, a3], n] + 
    S2[a1, a5, a4, SP[a2, a3], a6, n] + S2[a1, a5, a4, SP[a2, a6], a3, n] - 
    S2[a1, a5, a4, SP[a3, a6], a2, n] - S2[a4, n]*S2[a1, a5, a6, a2, a3, n] - 
    S2[a1, a5, a6, a2, SP[a3, a4], n] + S2[a2, n]*S2[a1, a5, a6, a3, a4, n] + 
    S2[a1, a5, a6, a3, SP[a2, a4], n] + S2[a2, n]*S2[a1, a5, a6, a4, a3, n] + 
    S2[a1, a5, a6, a4, SP[a2, a3], n] + S2[a1, a5, a6, SP[a2, a3], a4, n] + 
    S2[a1, a5, SP[a2, a3], a4, a6, n] + S2[a1, a5, SP[a2, a3], a6, a4, n] + 
    S2[a1, a5, SP[a2, a6], a3, a4, n] + S2[a1, a5, SP[a2, a6], a4, a3, n] - 
    S2[a1, a5, SP[a3, a6], a2, a4, n] - S2[a1, a5, SP[a3, a6], a4, a2, n] - 
    S2[a1, a5, SP[a4, a6], a2, a3, n] - S2[a1, a5, SP[a4, a6], a3, a2, n] + 
    S2[a2, n]*S2[a1, a6, a3, a5, a4, n] + S2[a1, a6, a3, a5, SP[a2, a4], n] + 
    S2[a1, a6, a3, SP[a2, a5], a4, n] + S2[a2, n]*S2[a1, a6, a5, a3, a4, n] + 
    S2[a1, a6, a5, a3, SP[a2, a4], n] + S2[a2, n]*S2[a1, a6, a5, a4, a3, n] + 
    S2[a1, a6, a5, a4, SP[a2, a3], n] + S2[a1, a6, a5, SP[a2, a3], a4, n] + 
    S2[a1, a6, a5, SP[a2, a4], a3, n] + S2[a1, a6, SP[a2, a3], a5, a4, n] + 
    S2[a1, a6, SP[a2, a5], a3, a4, n] + S2[a1, a6, SP[a2, a5], a4, a3, n] + 
    S2[a1, SP[a2, a5], a3, a4, a6, n] + S2[a1, SP[a2, a5], a3, a6, a4, n] + 
    S2[a1, SP[a2, a5], a4, a3, a6, n] + S2[a1, SP[a2, a5], a4, a6, a3, n] + 
    S2[a1, SP[a2, a5], a6, a3, a4, n] + S2[a1, SP[a2, a5], a6, a4, a3, n] + 
    S2[a1, SP[a2, a6], a3, a5, a4, n] + S2[a1, SP[a2, a6], a5, a3, a4, n] + 
    S2[a1, SP[a2, a6], a5, a4, a3, n] - S2[a1, SP[a3, a6], a2, a5, a4, n] - 
    S2[a1, SP[a3, a6], a5, a2, a4, n] - S2[a1, SP[a3, a6], a5, a4, a2, n] - 
    S2[a1, SP[a4, a5], a2, a3, a6, n] - S2[a1, SP[a4, a5], a2, a6, a3, n] - 
    S2[a1, SP[a4, a5], a6, a2, a3, n] - S2[a1, SP[a5, a6], a3, a2, a4, n] - 
    S2[a1, SP[a5, a6], a3, a4, a2, n] - S2[a1, SP[a5, a6], a4, a3, a2, n] - 
    S2[a2, a1, a5, a4, SP[a3, a6], n] - S2[a2, a1, a5, a6, SP[a3, a4], n] - 
    S2[a2, a1, a5, SP[a3, a4], a6, n] - S2[a2, a1, a5, SP[a3, a6], a4, n] - 
    S2[a2, a1, a6, a5, SP[a3, a4], n] - S2[a2, a1, a6, SP[a3, a5], a4, n] - 
    S2[a2, a1, SP[a3, a5], a4, a6, n] - S2[a2, a1, SP[a3, a5], a6, a4, n] - 
    S2[a2, a1, SP[a3, a6], a5, a4, n] + S2[a4, n]*S2[a2, a5, a1, a3, a6, n] + 
    S2[a2, a5, a1, a3, SP[a4, a6], n] - S2[a2, a5, a1, a4, SP[a3, a6], n] + 
    S2[a4, n]*S2[a2, a5, a1, a6, a3, n] - S2[a2, a5, a1, SP[a3, a6], a4, n] + 
    S2[a2, a5, a1, SP[a4, a6], a3, n] - S2[a2, a5, a4, a1, SP[a3, a6], n] - 
    S2[a2, a5, a4, SP[a1, a6], a3, n] + S2[a4, n]*S2[a2, a5, a6, a1, a3, n] - 
    S2[a2, a5, SP[a1, a6], a3, a4, n] - S2[a2, a5, SP[a1, a6], a4, a3, n] + 
    S2[a2, a5, SP[a4, a6], a1, a3, n] - S2[a2, a6, a1, a5, SP[a3, a4], n] - 
    S2[a2, a6, a1, SP[a3, a5], a4, n] - S2[a2, a6, a5, a1, SP[a3, a4], n] - 
    S2[a2, a6, a5, SP[a1, a4], a3, n] - S2[a2, a6, SP[a1, a5], a3, a4, n] - 
    S2[a2, a6, SP[a1, a5], a4, a3, n] - S2[a2, SP[a1, a5], a3, a4, a6, n] - 
    S2[a2, SP[a1, a5], a3, a6, a4, n] - S2[a2, SP[a1, a5], a4, a3, a6, n] - 
    S2[a2, SP[a1, a5], a4, a6, a3, n] - S2[a2, SP[a1, a5], a6, a3, a4, n] - 
    S2[a2, SP[a1, a5], a6, a4, a3, n] - S2[a2, SP[a1, a6], a3, a5, a4, n] - 
    S2[a2, SP[a1, a6], a5, a3, a4, n] - S2[a2, SP[a1, a6], a5, a4, a3, n] + 
    S2[a2, SP[a4, a5], a1, a3, a6, n] + S2[a2, SP[a4, a5], a1, a6, a3, n] + 
    S2[a2, SP[a4, a5], a6, a1, a3, n] - S2[a4, a1, a3, a2, SP[a5, a6], n] - 
    S2[a4, a1, a3, SP[a2, a5], a6, n] + S2[a4, a1, a5, a2, SP[a3, a6], n] + 
    S2[a4, a1, a5, SP[a2, a3], a6, n] + S2[a4, a5, a1, a2, SP[a3, a6], n] + 
    S2[a6, n]*S2[a4, a5, a1, a3, a2, n] - 
    S2[a2, n]*S2[a4, a5, a1, a3, a6, n] - 
    S2[a2, n]*S2[a4, a5, a1, a6, a3, n] - S2[a4, a5, a1, a6, SP[a2, a3], n] - 
    S2[a4, a5, a1, SP[a2, a6], a3, n] + S2[a4, a5, a1, SP[a3, a6], a2, n] + 
    S2[a4, a5, a2, a1, SP[a3, a6], n] + S2[a4, a5, a2, SP[a1, a6], a3, n] - 
    S2[a2, n]*S2[a4, a5, a6, a1, a3, n] - S2[a4, a5, a6, a1, SP[a2, a3], n] + 
    S2[a1, n]*S2[a4, a5, a6, a2, a3, n] + S2[a4, a5, a6, a2, SP[a1, a3], n] + 
    S2[a4, a5, SP[a1, a6], a2, a3, n] + S2[a4, a5, SP[a1, a6], a3, a2, n] - 
    S2[a4, a5, SP[a2, a6], a1, a3, n] + S2[a4, SP[a1, a5], a2, a3, a6, n] + 
    S2[a4, SP[a1, a5], a2, a6, a3, n] + S2[a4, SP[a1, a5], a6, a2, a3, n] - 
    S2[a4, SP[a2, a5], a1, a3, a6, n] - S2[a4, SP[a2, a5], a1, a6, a3, n] - 
    S2[a4, SP[a2, a5], a6, a1, a3, n] + S2[a4, SP[a5, a6], a1, a3, a2, n] + 
    S2[a2, n]*S2[a6, a1, a3, a5, a4, n] + S2[a6, a1, a3, a5, SP[a2, a4], n] + 
    S2[a6, a1, a3, SP[a2, a5], a4, n] + S2[a2, n]*S2[a6, a1, a5, a3, a4, n] + 
    S2[a6, a1, a5, a3, SP[a2, a4], n] + S2[a2, n]*S2[a6, a1, a5, a4, a3, n] + 
    S2[a6, a1, a5, a4, SP[a2, a3], n] + S2[a6, a1, a5, SP[a2, a3], a4, n] + 
    S2[a6, a1, a5, SP[a2, a4], a3, n] + S2[a6, a1, SP[a2, a3], a5, a4, n] + 
    S2[a6, a1, SP[a2, a5], a3, a4, n] + S2[a6, a1, SP[a2, a5], a4, a3, n] - 
    S2[a1, n]*S2[a6, a2, a3, a5, a4, n] - S2[a6, a2, a3, a5, SP[a1, a4], n] - 
    S2[a6, a2, a3, SP[a1, a5], a4, n] - S2[a1, n]*S2[a6, a2, a5, a3, a4, n] - 
    S2[a6, a2, a5, a3, SP[a1, a4], n] - S2[a1, n]*S2[a6, a2, a5, a4, a3, n] - 
    S2[a6, a2, a5, a4, SP[a1, a3], n] - S2[a6, a2, a5, SP[a1, a3], a4, n] - 
    S2[a6, a2, a5, SP[a1, a4], a3, n] - S2[a6, a2, SP[a1, a3], a5, a4, n] - 
    S2[a6, a2, SP[a1, a5], a3, a4, n] - S2[a6, a2, SP[a1, a5], a4, a3, n] - 
    S2[a4, n]*S2[a6, a5, a1, a3, a2, n] + 
    S2[a2, n]*S2[a6, a5, a1, a3, a4, n] + 
    S2[a2, n]*S2[a6, a5, a1, a4, a3, n] + S2[a6, a5, a1, a4, SP[a2, a3], n] + 
    S2[a6, a5, a1, SP[a2, a3], a4, n] + S2[a6, a5, a1, SP[a2, a4], a3, n] - 
    S2[a6, a5, a1, SP[a3, a4], a2, n] - S2[a1, n]*S2[a6, a5, a2, a3, a4, n] - 
    S2[a6, a5, a2, a3, SP[a1, a4], n] - S2[a1, n]*S2[a6, a5, a2, a4, a3, n] - 
    S2[a6, a5, a2, a4, SP[a1, a3], n] - S2[a6, a5, a2, SP[a1, a3], a4, n] - 
    S2[a6, a5, a2, SP[a1, a4], a3, n] + S2[a2, n]*S2[a6, a5, a4, a1, a3, n] + 
    S2[a6, a5, a4, a1, SP[a2, a3], n] - S2[a1, n]*S2[a6, a5, a4, a2, a3, n] - 
    S2[a6, a5, a4, a2, SP[a1, a3], n] - S2[a6, a5, SP[a1, a4], a2, a3, n] - 
    S2[a6, a5, SP[a1, a4], a3, a2, n] + S2[a6, a5, SP[a2, a4], a1, a3, n] - 
    S2[a6, SP[a1, a5], a2, a3, a4, n] - S2[a6, SP[a1, a5], a2, a4, a3, n] - 
    S2[a6, SP[a1, a5], a4, a2, a3, n] + S2[a6, SP[a2, a5], a1, a3, a4, n] + 
    S2[a6, SP[a2, a5], a1, a4, a3, n] + S2[a6, SP[a2, a5], a4, a1, a3, n] - 
    S2[a6, SP[a4, a5], a1, a3, a2, n] - S2[SP[a1, a6], a2, a3, a5, a4, n] - 
    S2[SP[a1, a6], a2, a5, a3, a4, n] - S2[SP[a1, a6], a2, a5, a4, a3, n] - 
    S2[SP[a1, a6], a3, a2, a5, a4, n] - S2[SP[a1, a6], a3, a5, a2, a4, n] - 
    S2[SP[a1, a6], a3, a5, a4, a2, n] - S2[SP[a1, a6], a5, a2, a3, a4, n] - 
    S2[SP[a1, a6], a5, a2, a4, a3, n] - S2[SP[a1, a6], a5, a3, a2, a4, n] - 
    S2[SP[a1, a6], a5, a3, a4, a2, n] - S2[SP[a1, a6], a5, a4, a2, a3, n] - 
    S2[SP[a1, a6], a5, a4, a3, a2, n] + S2[SP[a2, a6], a1, a3, a5, a4, n] + 
    S2[SP[a2, a6], a1, a5, a3, a4, n] + S2[SP[a2, a6], a1, a5, a4, a3, n] + 
    S2[SP[a2, a6], a5, a1, a3, a4, n] + S2[SP[a2, a6], a5, a1, a4, a3, n] + 
    S2[SP[a2, a6], a5, a4, a1, a3, n] + S2[a6, a2, a3, a1, a5, a4, n] + 
    S2[a6, a2, a3, a5, a1, a4, n] + S2[a6, a2, a3, a5, a4, a1, n] + 
    S2[a6, a2, a5, a3, a1, a4, n] + S2[a6, a2, a5, a3, a4, a1, n] + 
    S2[a6, a2, a5, a4, a3, a1, n] + S2[a6, a5, a2, a3, a1, a4, n] + 
    S2[a6, a5, a2, a3, a4, a1, n] + S2[a6, a5, a2, a4, a3, a1, n] + 
    S2[a6, a5, a4, a2, a3, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a4_, a5_, a6_, a3_, a1_, a2_, n_] :> 
  S2[a4, a5, n]*S2[a1, a2, a3, a6, n] - S2[a1, a2, SP[a3, a4], SP[a5, a6], 
     n] + S2[a4, a5, n]*S2[a1, a3, a2, a6, n] + 
    S2[a4, a5, n]*S2[a1, a3, a6, a2, n] - S2[a1, a3, SP[a2, a4], SP[a5, a6], 
     n] - S2[a1, a3, SP[a4, a6], SP[a2, a5], n] - S2[a1, SP[a2, a4], a3, 
     SP[a5, a6], n] - S2[a1, SP[a2, a4], SP[a3, a5], a6, n] - 
    S2[a1, SP[a3, a4], a2, SP[a5, a6], n] - S2[a1, SP[a3, a4], a6, 
     SP[a2, a5], n] - S2[a1, SP[a3, a4], SP[a2, a5], a6, n] - 
    S2[a1, SP[a3, a4], SP[a5, a6], a2, n] + S2[a1, a2, n]*
     S2[a3, a5, a4, a6, n] + S2[a1, a2, n]*S2[a3, a5, a6, a4, n] - 
    S2[a3, a5, SP[a1, a4], SP[a2, a6], n] - S2[a3, a5, SP[a1, a6], 
     SP[a2, a4], n] + S2[a1, a2, n]*S2[a3, a6, a5, a4, n] - 
    S2[a3, a6, SP[a1, a5], SP[a2, a4], n] - S2[a3, SP[a1, a5], a4, 
     SP[a2, a6], n] - S2[a3, SP[a1, a5], a6, SP[a2, a4], n] - 
    S2[a3, SP[a1, a5], SP[a2, a4], a6, n] - S2[a3, SP[a1, a5], SP[a2, a6], 
     a4, n] - S2[a3, SP[a1, a6], a5, SP[a2, a4], n] - 
    S2[a3, SP[a1, a6], SP[a2, a5], a4, n] - S2[a1, a2, n]*
     S2[a4, a5, a3, a6, n] + S2[a4, a5, SP[a1, a3], SP[a2, a6], n] + 
    S2[a4, SP[a1, a5], a3, SP[a2, a6], n] + S2[a4, SP[a1, a5], SP[a2, a3], 
     a6, n] - S2[SP[a1, a3], a5, a4, SP[a2, a6], n] - 
    S2[SP[a1, a3], a5, a6, SP[a2, a4], n] - S2[SP[a1, a3], a5, SP[a2, a4], 
     a6, n] - S2[SP[a1, a3], a5, SP[a2, a6], a4, n] - 
    S2[SP[a1, a3], a6, a5, SP[a2, a4], n] - S2[SP[a1, a3], a6, SP[a2, a5], 
     a4, n] - S2[SP[a1, a3], SP[a2, a5], a4, a6, n] - 
    S2[SP[a1, a3], SP[a2, a5], a6, a4, n] - S2[SP[a1, a3], SP[a2, a6], a5, 
     a4, n] - S2[SP[a1, a4], a2, a3, SP[a5, a6], n] - 
    S2[SP[a1, a4], a2, SP[a3, a5], a6, n] - S2[SP[a1, a4], a3, a2, 
     SP[a5, a6], n] - S2[SP[a1, a4], a3, a6, SP[a2, a5], n] - 
    S2[SP[a1, a4], a3, SP[a2, a5], a6, n] - S2[SP[a1, a4], a3, SP[a5, a6], 
     a2, n] + S2[SP[a1, a4], a5, a3, SP[a2, a6], n] + 
    S2[SP[a1, a4], a5, SP[a2, a3], a6, n] - S2[SP[a1, a4], SP[a3, a5], a2, 
     a6, n] - S2[SP[a1, a4], SP[a3, a5], a6, a2, n] + 
    S2[a1, a2, a3, a4, SP[a5, a6], n] + S2[a6, n]*S2[a1, a2, a3, a5, a4, n] - 
    S2[a4, n]*S2[a1, a2, a3, a5, a6, n] - 
    S2[a4, n]*S2[a1, a2, a3, a6, a5, n] - S2[a1, a2, a3, a6, SP[a4, a5], n] - 
    S2[a1, a2, a3, SP[a4, a5], a6, n] + S2[a1, a2, a3, SP[a5, a6], a4, n] + 
    S2[a1, a2, a4, a3, SP[a5, a6], n] + S2[a1, a2, a4, SP[a3, a5], a6, n] + 
    S2[a6, n]*S2[a1, a2, a5, a3, a4, n] + S2[a1, a2, a5, a3, SP[a4, a6], n] + 
    S2[a6, n]*S2[a1, a2, a5, a4, a3, n] - 
    S2[a3, n]*S2[a1, a2, a5, a4, a6, n] - 
    S2[a3, n]*S2[a1, a2, a5, a6, a4, n] - S2[a1, a2, a5, a6, SP[a3, a4], n] - 
    S2[a1, a2, a5, SP[a3, a4], a6, n] + S2[a1, a2, a5, SP[a4, a6], a3, n] - 
    S2[a3, n]*S2[a1, a2, a6, a5, a4, n] - S2[a1, a2, a6, a5, SP[a3, a4], n] - 
    S2[a1, a2, a6, SP[a3, a5], a4, n] - S2[a1, a2, SP[a3, a5], a4, a6, n] - 
    S2[a1, a2, SP[a3, a5], a6, a4, n] + S2[a1, a2, SP[a5, a6], a3, a4, n] + 
    S2[a1, a2, SP[a5, a6], a4, a3, n] + S2[a1, a3, a2, a4, SP[a5, a6], n] + 
    S2[a6, n]*S2[a1, a3, a2, a5, a4, n] - 
    S2[a4, n]*S2[a1, a3, a2, a5, a6, n] - 
    S2[a4, n]*S2[a1, a3, a2, a6, a5, n] - S2[a1, a3, a2, a6, SP[a4, a5], n] - 
    S2[a1, a3, a2, SP[a4, a5], a6, n] + S2[a1, a3, a2, SP[a5, a6], a4, n] + 
    S2[a1, a3, a4, a2, SP[a5, a6], n] + S2[a1, a3, a4, a6, SP[a2, a5], n] + 
    S2[a1, a3, a4, SP[a2, a5], a6, n] + S2[a1, a3, a4, SP[a5, a6], a2, n] + 
    S2[a6, n]*S2[a1, a3, a5, a2, a4, n] - 
    S2[a4, n]*S2[a1, a3, a5, a2, a6, n] + 
    S2[a6, n]*S2[a1, a3, a5, a4, a2, n] + 
    2*S2[a1, a3, a5, a4, SP[a2, a6], n] - 
    S2[a4, n]*S2[a1, a3, a5, a6, a2, n] + 
    2*S2[a1, a3, a5, SP[a2, a6], a4, n] - 
    S2[a4, n]*S2[a1, a3, a6, a2, a5, n] - S2[a1, a3, a6, a2, SP[a4, a5], n] + 
    S2[a1, a3, a6, a4, SP[a2, a5], n] - S2[a4, n]*S2[a1, a3, a6, a5, a2, n] + 
    S2[a1, a3, a6, SP[a2, a5], a4, n] - S2[a1, a3, a6, SP[a4, a5], a2, n] + 
    S2[a1, a3, SP[a2, a5], a4, a6, n] + S2[a1, a3, SP[a2, a5], a6, a4, n] + 
    2*S2[a1, a3, SP[a2, a6], a5, a4, n] - S2[a1, a3, SP[a4, a5], a2, a6, n] - 
    S2[a1, a3, SP[a4, a5], a6, a2, n] + S2[a1, a3, SP[a5, a6], a2, a4, n] + 
    S2[a1, a3, SP[a5, a6], a4, a2, n] + S2[a1, a4, a2, a3, SP[a5, a6], n] + 
    S2[a1, a4, a2, SP[a3, a5], a6, n] + S2[a1, a4, a3, a2, SP[a5, a6], n] + 
    S2[a1, a4, a3, a6, SP[a2, a5], n] + S2[a1, a4, a3, SP[a2, a5], a6, n] + 
    S2[a1, a4, a3, SP[a5, a6], a2, n] - S2[a1, a4, a5, a3, SP[a2, a6], n] - 
    S2[a1, a4, a5, SP[a2, a3], a6, n] + S2[a1, a4, SP[a3, a5], a2, a6, n] + 
    S2[a1, a4, SP[a3, a5], a6, a2, n] + S2[a6, n]*S2[a1, a5, a2, a3, a4, n] + 
    S2[a1, a5, a2, a3, SP[a4, a6], n] + S2[a6, n]*S2[a1, a5, a2, a4, a3, n] - 
    S2[a3, n]*S2[a1, a5, a2, a4, a6, n] - 
    S2[a3, n]*S2[a1, a5, a2, a6, a4, n] - S2[a1, a5, a2, a6, SP[a3, a4], n] - 
    S2[a1, a5, a2, SP[a3, a4], a6, n] + S2[a1, a5, a2, SP[a4, a6], a3, n] + 
    S2[a6, n]*S2[a1, a5, a3, a2, a4, n] + S2[a1, a5, a3, a2, SP[a4, a6], n] + 
    S2[a6, n]*S2[a1, a5, a3, a4, a2, n] + S2[a1, a5, a3, a4, SP[a2, a6], n] + 
    S2[a1, a5, a3, SP[a2, a6], a4, n] + S2[a1, a5, a3, SP[a4, a6], a2, n] + 
    S2[a6, n]*S2[a1, a5, a4, a2, a3, n] - 
    S2[a3, n]*S2[a1, a5, a4, a2, a6, n] + 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] + S2[a1, a5, a4, a3, SP[a2, a6], n] - 
    S2[a3, n]*S2[a1, a5, a4, a6, a2, n] - S2[a1, a5, a4, a6, SP[a2, a3], n] - 
    S2[a1, a5, a4, SP[a2, a3], a6, n] + S2[a1, a5, a4, SP[a2, a6], a3, n] - 
    S2[a3, n]*S2[a1, a5, a6, a2, a4, n] - S2[a1, a5, a6, a2, SP[a3, a4], n] - 
    S2[a3, n]*S2[a1, a5, a6, a4, a2, n] - S2[a1, a5, a6, a4, SP[a2, a3], n] - 
    S2[a1, a5, a6, SP[a2, a3], a4, n] - S2[a1, a5, a6, SP[a3, a4], a2, n] - 
    S2[a1, a5, SP[a2, a3], a4, a6, n] - S2[a1, a5, SP[a2, a3], a6, a4, n] + 
    S2[a1, a5, SP[a2, a6], a3, a4, n] + S2[a1, a5, SP[a2, a6], a4, a3, n] - 
    S2[a1, a5, SP[a3, a4], a2, a6, n] - S2[a1, a5, SP[a3, a4], a6, a2, n] + 
    S2[a1, a5, SP[a4, a6], a2, a3, n] + S2[a1, a5, SP[a4, a6], a3, a2, n] - 
    S2[a3, n]*S2[a1, a6, a2, a5, a4, n] - S2[a1, a6, a2, a5, SP[a3, a4], n] - 
    S2[a1, a6, a2, SP[a3, a5], a4, n] - S2[a3, n]*S2[a1, a6, a5, a2, a4, n] - 
    S2[a1, a6, a5, a2, SP[a3, a4], n] - S2[a3, n]*S2[a1, a6, a5, a4, a2, n] - 
    S2[a1, a6, a5, a4, SP[a2, a3], n] - S2[a1, a6, a5, SP[a2, a3], a4, n] - 
    S2[a1, a6, a5, SP[a3, a4], a2, n] - S2[a1, a6, SP[a2, a3], a5, a4, n] - 
    S2[a1, a6, SP[a3, a5], a2, a4, n] - S2[a1, a6, SP[a3, a5], a4, a2, n] + 
    S2[a1, SP[a2, a6], a3, a5, a4, n] + S2[a1, SP[a2, a6], a5, a3, a4, n] + 
    S2[a1, SP[a2, a6], a5, a4, a3, n] - S2[a1, SP[a3, a5], a2, a4, a6, n] - 
    S2[a1, SP[a3, a5], a2, a6, a4, n] - S2[a1, SP[a3, a5], a4, a2, a6, n] - 
    S2[a1, SP[a3, a5], a4, a6, a2, n] - S2[a1, SP[a3, a5], a6, a2, a4, n] - 
    S2[a1, SP[a3, a5], a6, a4, a2, n] + S2[a1, SP[a5, a6], a2, a3, a4, n] + 
    S2[a1, SP[a5, a6], a2, a4, a3, n] + S2[a1, SP[a5, a6], a3, a2, a4, n] + 
    S2[a1, SP[a5, a6], a3, a4, a2, n] + S2[a1, SP[a5, a6], a4, a2, a3, n] + 
    S2[a1, SP[a5, a6], a4, a3, a2, n] + S2[a3, a1, a5, a4, SP[a2, a6], n] + 
    S2[a3, a1, a5, a6, SP[a2, a4], n] + S2[a3, a1, a5, SP[a2, a4], a6, n] + 
    S2[a3, a1, a5, SP[a2, a6], a4, n] + S2[a3, a1, a6, a5, SP[a2, a4], n] + 
    S2[a3, a1, a6, SP[a2, a5], a4, n] + S2[a3, a1, SP[a2, a5], a4, a6, n] + 
    S2[a3, a1, SP[a2, a5], a6, a4, n] + S2[a3, a1, SP[a2, a6], a5, a4, n] - 
    S2[a4, n]*S2[a3, a5, a1, a2, a6, n] - S2[a3, a5, a1, a2, SP[a4, a6], n] + 
    S2[a3, a5, a1, a4, SP[a2, a6], n] - S2[a4, n]*S2[a3, a5, a1, a6, a2, n] + 
    S2[a3, a5, a1, SP[a2, a6], a4, n] - S2[a3, a5, a1, SP[a4, a6], a2, n] + 
    S2[a3, a5, a4, a1, SP[a2, a6], n] + S2[a3, a5, a4, SP[a1, a6], a2, n] - 
    S2[a4, n]*S2[a3, a5, a6, a1, a2, n] + S2[a3, a5, SP[a1, a6], a2, a4, n] + 
    S2[a3, a5, SP[a1, a6], a4, a2, n] - S2[a3, a5, SP[a4, a6], a1, a2, n] + 
    S2[a3, a6, a1, a5, SP[a2, a4], n] + S2[a3, a6, a1, SP[a2, a5], a4, n] + 
    S2[a3, a6, a5, a1, SP[a2, a4], n] + S2[a3, a6, a5, SP[a1, a4], a2, n] + 
    S2[a3, a6, SP[a1, a5], a2, a4, n] + S2[a3, a6, SP[a1, a5], a4, a2, n] + 
    S2[a3, SP[a1, a5], a2, a4, a6, n] + S2[a3, SP[a1, a5], a2, a6, a4, n] + 
    S2[a3, SP[a1, a5], a4, a2, a6, n] + S2[a3, SP[a1, a5], a4, a6, a2, n] + 
    S2[a3, SP[a1, a5], a6, a2, a4, n] + S2[a3, SP[a1, a5], a6, a4, a2, n] + 
    S2[a3, SP[a1, a6], a2, a5, a4, n] + S2[a3, SP[a1, a6], a5, a2, a4, n] + 
    S2[a3, SP[a1, a6], a5, a4, a2, n] - S2[a3, SP[a4, a5], a1, a2, a6, n] - 
    S2[a3, SP[a4, a5], a1, a6, a2, n] - S2[a3, SP[a4, a5], a6, a1, a2, n] + 
    S2[a4, a1, a2, a3, SP[a5, a6], n] + S2[a4, a1, a2, SP[a3, a5], a6, n] + 
    S2[a4, a1, a3, a2, SP[a5, a6], n] + S2[a4, a1, a3, a6, SP[a2, a5], n] + 
    S2[a4, a1, a3, SP[a2, a5], a6, n] + S2[a4, a1, a3, SP[a5, a6], a2, n] - 
    S2[a4, a1, a5, a3, SP[a2, a6], n] - S2[a4, a1, a5, SP[a2, a3], a6, n] + 
    S2[a4, a1, SP[a3, a5], a2, a6, n] + S2[a4, a1, SP[a3, a5], a6, a2, n] - 
    S2[a6, n]*S2[a4, a5, a1, a2, a3, n] + 
    S2[a3, n]*S2[a4, a5, a1, a2, a6, n] - 
    S2[a6, n]*S2[a4, a5, a1, a3, a2, n] - 
    2*S2[a4, a5, a1, a3, SP[a2, a6], n] + 
    S2[a3, n]*S2[a4, a5, a1, a6, a2, n] + S2[a4, a5, a1, a6, SP[a2, a3], n] - 
    S2[a4, a5, a1, SP[a2, a6], a3, n] - S2[a4, a5, a3, a1, SP[a2, a6], n] - 
    S2[a4, a5, a3, SP[a1, a6], a2, n] + S2[a3, n]*S2[a4, a5, a6, a1, a2, n] + 
    S2[a4, a5, a6, a1, SP[a2, a3], n] + S2[a4, a5, a6, SP[a1, a3], a2, n] - 
    S2[a4, a5, SP[a1, a6], a2, a3, n] - S2[a4, a5, SP[a1, a6], a3, a2, n] + 
    S2[a4, a5, SP[a3, a6], a1, a2, n] + S2[a4, SP[a3, a5], a1, a2, a6, n] + 
    S2[a4, SP[a3, a5], a1, a6, a2, n] + S2[a4, SP[a3, a5], a6, a1, a2, n] - 
    S2[a4, SP[a5, a6], a1, a2, a3, n] - S2[a4, SP[a5, a6], a1, a3, a2, n] - 
    S2[a3, n]*S2[a6, a1, a2, a5, a4, n] - S2[a6, a1, a2, a5, SP[a3, a4], n] - 
    S2[a6, a1, a2, SP[a3, a5], a4, n] - S2[a3, n]*S2[a6, a1, a5, a2, a4, n] - 
    S2[a6, a1, a5, a2, SP[a3, a4], n] - S2[a3, n]*S2[a6, a1, a5, a4, a2, n] - 
    S2[a6, a1, a5, a4, SP[a2, a3], n] - S2[a6, a1, a5, SP[a2, a3], a4, n] - 
    S2[a6, a1, a5, SP[a3, a4], a2, n] - S2[a6, a1, SP[a2, a3], a5, a4, n] - 
    S2[a6, a1, SP[a3, a5], a2, a4, n] - S2[a6, a1, SP[a3, a5], a4, a2, n] + 
    S2[a4, n]*S2[a6, a5, a1, a2, a3, n] - 
    S2[a3, n]*S2[a6, a5, a1, a2, a4, n] + 
    S2[a4, n]*S2[a6, a5, a1, a3, a2, n] + S2[a6, a5, a1, a3, SP[a2, a4], n] - 
    S2[a3, n]*S2[a6, a5, a1, a4, a2, n] - S2[a6, a5, a1, a4, SP[a2, a3], n] - 
    S2[a6, a5, a1, SP[a2, a3], a4, n] + S2[a6, a5, a1, SP[a2, a4], a3, n] - 
    S2[a3, n]*S2[a6, a5, a4, a1, a2, n] - S2[a6, a5, a4, a1, SP[a2, a3], n] - 
    S2[a6, a5, a4, SP[a1, a3], a2, n] - S2[a6, a5, SP[a1, a3], a2, a4, n] - 
    S2[a6, a5, SP[a1, a3], a4, a2, n] + S2[a6, a5, SP[a1, a4], a2, a3, n] + 
    S2[a6, a5, SP[a1, a4], a3, a2, n] - S2[a6, a5, SP[a3, a4], a1, a2, n] - 
    S2[a6, SP[a1, a3], a2, a5, a4, n] - S2[a6, SP[a1, a3], a5, a2, a4, n] - 
    S2[a6, SP[a1, a3], a5, a4, a2, n] - S2[a6, SP[a3, a5], a1, a2, a4, n] - 
    S2[a6, SP[a3, a5], a1, a4, a2, n] - S2[a6, SP[a3, a5], a4, a1, a2, n] + 
    S2[a6, SP[a4, a5], a1, a2, a3, n] + S2[a6, SP[a4, a5], a1, a3, a2, n] + 
    S2[SP[a1, a6], a2, a3, a5, a4, n] + S2[SP[a1, a6], a2, a5, a3, a4, n] + 
    S2[SP[a1, a6], a2, a5, a4, a3, n] + S2[SP[a1, a6], a3, a2, a5, a4, n] + 
    S2[SP[a1, a6], a3, a5, a2, a4, n] + S2[SP[a1, a6], a3, a5, a4, a2, n] + 
    S2[SP[a1, a6], a5, a2, a3, a4, n] + S2[SP[a1, a6], a5, a2, a4, a3, n] + 
    S2[SP[a1, a6], a5, a3, a2, a4, n] + S2[SP[a1, a6], a5, a3, a4, a2, n] + 
    S2[SP[a1, a6], a5, a4, a2, a3, n] + S2[SP[a1, a6], a5, a4, a3, a2, n] - 
    S2[SP[a3, a6], a1, a2, a5, a4, n] - S2[SP[a3, a6], a1, a5, a2, a4, n] - 
    S2[SP[a3, a6], a1, a5, a4, a2, n] - S2[SP[a3, a6], a5, a1, a2, a4, n] - 
    S2[SP[a3, a6], a5, a1, a4, a2, n] - S2[SP[a3, a6], a5, a4, a1, a2, n] + 
    S2[a6, a3, a1, a2, a5, a4, n] + S2[a6, a3, a1, a5, a2, a4, n] + 
    S2[a6, a3, a1, a5, a4, a2, n] + S2[a6, a3, a5, a1, a2, a4, n] + 
    S2[a6, a3, a5, a1, a4, a2, n] + S2[a6, a3, a5, a4, a1, a2, n] + 
    S2[a6, a5, a3, a1, a2, a4, n] + S2[a6, a5, a3, a1, a4, a2, n] + 
    S2[a6, a5, a3, a4, a1, a2, n] + S2[a6, a5, a4, a3, a1, a2, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a4_, a5_, a6_, a3_, a2_, a1_, n_] :> 
  -(S2[a4, a5, n]*S2[a1, a2, a3, a6, n]) + S2[a1, a2, SP[a3, a4], SP[a5, a6], 
     n] + S2[a1, SP[a2, a4], a3, SP[a5, a6], n] + 
    S2[a1, SP[a2, a4], SP[a3, a5], a6, n] - S2[a1, a2, n]*
     S2[a3, a5, a4, a6, n] - S2[a1, a2, n]*S2[a3, a5, a6, a4, n] + 
    S2[a3, a5, SP[a1, a4], SP[a2, a6], n] + S2[a3, a5, SP[a1, a6], 
     SP[a2, a4], n] - S2[a1, a2, n]*S2[a3, a6, a5, a4, n] + 
    S2[a3, a6, SP[a1, a5], SP[a2, a4], n] + S2[a3, SP[a1, a5], a4, 
     SP[a2, a6], n] + S2[a3, SP[a1, a5], a6, SP[a2, a4], n] + 
    S2[a3, SP[a1, a5], SP[a2, a4], a6, n] + S2[a3, SP[a1, a5], SP[a2, a6], 
     a4, n] + S2[a3, SP[a1, a6], a5, SP[a2, a4], n] + 
    S2[a3, SP[a1, a6], SP[a2, a5], a4, n] + S2[a1, a2, n]*
     S2[a4, a5, a3, a6, n] - S2[a4, a5, SP[a1, a3], SP[a2, a6], n] - 
    S2[a4, SP[a1, a5], a3, SP[a2, a6], n] - S2[a4, SP[a1, a5], SP[a2, a3], 
     a6, n] + S2[SP[a1, a3], a5, a4, SP[a2, a6], n] + 
    S2[SP[a1, a3], a5, a6, SP[a2, a4], n] + S2[SP[a1, a3], a5, SP[a2, a4], 
     a6, n] + S2[SP[a1, a3], a5, SP[a2, a6], a4, n] + 
    S2[SP[a1, a3], a6, a5, SP[a2, a4], n] + S2[SP[a1, a3], a6, SP[a2, a5], 
     a4, n] + S2[SP[a1, a3], SP[a2, a5], a4, a6, n] + 
    S2[SP[a1, a3], SP[a2, a5], a6, a4, n] + S2[SP[a1, a3], SP[a2, a6], a5, 
     a4, n] + S2[SP[a1, a4], a2, a3, SP[a5, a6], n] + 
    S2[SP[a1, a4], a2, SP[a3, a5], a6, n] - S2[SP[a1, a4], a5, a3, 
     SP[a2, a6], n] - S2[SP[a1, a4], a5, SP[a2, a3], a6, n] - 
    S2[a1, a2, a3, a4, SP[a5, a6], n] - S2[a6, n]*S2[a1, a2, a3, a5, a4, n] + 
    S2[a4, n]*S2[a1, a2, a3, a5, a6, n] + 
    S2[a4, n]*S2[a1, a2, a3, a6, a5, n] + S2[a1, a2, a3, a6, SP[a4, a5], n] + 
    S2[a1, a2, a3, SP[a4, a5], a6, n] - S2[a1, a2, a3, SP[a5, a6], a4, n] - 
    S2[a1, a2, a4, a3, SP[a5, a6], n] - S2[a1, a2, a4, SP[a3, a5], a6, n] - 
    S2[a6, n]*S2[a1, a2, a5, a3, a4, n] - S2[a1, a2, a5, a3, SP[a4, a6], n] - 
    S2[a6, n]*S2[a1, a2, a5, a4, a3, n] + 
    S2[a3, n]*S2[a1, a2, a5, a4, a6, n] + 
    S2[a3, n]*S2[a1, a2, a5, a6, a4, n] + S2[a1, a2, a5, a6, SP[a3, a4], n] + 
    S2[a1, a2, a5, SP[a3, a4], a6, n] - S2[a1, a2, a5, SP[a4, a6], a3, n] + 
    S2[a3, n]*S2[a1, a2, a6, a5, a4, n] + S2[a1, a2, a6, a5, SP[a3, a4], n] + 
    S2[a1, a2, a6, SP[a3, a5], a4, n] + S2[a1, a2, SP[a3, a5], a4, a6, n] + 
    S2[a1, a2, SP[a3, a5], a6, a4, n] - S2[a1, a2, SP[a5, a6], a3, a4, n] - 
    S2[a1, a2, SP[a5, a6], a4, a3, n] - S2[a1, a3, a5, a4, SP[a2, a6], n] - 
    S2[a1, a3, a5, a6, SP[a2, a4], n] - S2[a1, a3, a5, SP[a2, a4], a6, n] - 
    S2[a1, a3, a5, SP[a2, a6], a4, n] - S2[a1, a3, a6, a5, SP[a2, a4], n] - 
    S2[a1, a3, a6, SP[a2, a5], a4, n] - S2[a1, a3, SP[a2, a5], a4, a6, n] - 
    S2[a1, a3, SP[a2, a5], a6, a4, n] - S2[a1, a3, SP[a2, a6], a5, a4, n] - 
    S2[a1, a4, a2, a3, SP[a5, a6], n] - S2[a1, a4, a2, SP[a3, a5], a6, n] + 
    S2[a1, a4, a5, a3, SP[a2, a6], n] + S2[a1, a4, a5, SP[a2, a3], a6, n] - 
    S2[a6, n]*S2[a1, a5, a2, a3, a4, n] - S2[a1, a5, a2, a3, SP[a4, a6], n] - 
    S2[a6, n]*S2[a1, a5, a2, a4, a3, n] + 
    S2[a3, n]*S2[a1, a5, a2, a4, a6, n] + 
    S2[a3, n]*S2[a1, a5, a2, a6, a4, n] + S2[a1, a5, a2, a6, SP[a3, a4], n] + 
    S2[a1, a5, a2, SP[a3, a4], a6, n] - S2[a1, a5, a2, SP[a4, a6], a3, n] - 
    S2[a4, n]*S2[a1, a5, a3, a2, a6, n] - S2[a1, a5, a3, a2, SP[a4, a6], n] - 
    S2[a4, n]*S2[a1, a5, a3, a6, a2, n] - S2[a1, a5, a3, a6, SP[a2, a4], n] - 
    S2[a1, a5, a3, SP[a2, a4], a6, n] - S2[a1, a5, a3, SP[a4, a6], a2, n] - 
    S2[a6, n]*S2[a1, a5, a4, a2, a3, n] + 
    S2[a3, n]*S2[a1, a5, a4, a2, a6, n] + 
    S2[a3, n]*S2[a1, a5, a4, a6, a2, n] + S2[a1, a5, a4, a6, SP[a2, a3], n] + 
    S2[a1, a5, a4, SP[a2, a3], a6, n] - S2[a1, a5, a4, SP[a2, a6], a3, n] + 
    S2[a1, a5, a4, SP[a3, a6], a2, n] + S2[a3, n]*S2[a1, a5, a6, a2, a4, n] + 
    S2[a1, a5, a6, a2, SP[a3, a4], n] - S2[a4, n]*S2[a1, a5, a6, a3, a2, n] - 
    S2[a1, a5, a6, a3, SP[a2, a4], n] + S2[a3, n]*S2[a1, a5, a6, a4, a2, n] + 
    S2[a1, a5, a6, a4, SP[a2, a3], n] + S2[a1, a5, a6, SP[a2, a3], a4, n] + 
    S2[a1, a5, SP[a2, a3], a4, a6, n] + S2[a1, a5, SP[a2, a3], a6, a4, n] - 
    S2[a1, a5, SP[a2, a6], a3, a4, n] - S2[a1, a5, SP[a2, a6], a4, a3, n] + 
    S2[a1, a5, SP[a3, a6], a2, a4, n] + S2[a1, a5, SP[a3, a6], a4, a2, n] - 
    S2[a1, a5, SP[a4, a6], a2, a3, n] - S2[a1, a5, SP[a4, a6], a3, a2, n] + 
    S2[a3, n]*S2[a1, a6, a2, a5, a4, n] + S2[a1, a6, a2, a5, SP[a3, a4], n] + 
    S2[a1, a6, a2, SP[a3, a5], a4, n] + S2[a3, n]*S2[a1, a6, a5, a2, a4, n] + 
    S2[a1, a6, a5, a2, SP[a3, a4], n] + S2[a3, n]*S2[a1, a6, a5, a4, a2, n] + 
    S2[a1, a6, a5, a4, SP[a2, a3], n] + S2[a1, a6, a5, SP[a2, a3], a4, n] + 
    S2[a1, a6, a5, SP[a3, a4], a2, n] + S2[a1, a6, SP[a2, a3], a5, a4, n] + 
    S2[a1, a6, SP[a3, a5], a2, a4, n] + S2[a1, a6, SP[a3, a5], a4, a2, n] - 
    S2[a1, SP[a2, a6], a3, a5, a4, n] - S2[a1, SP[a2, a6], a5, a3, a4, n] - 
    S2[a1, SP[a2, a6], a5, a4, a3, n] + S2[a1, SP[a3, a5], a2, a4, a6, n] + 
    S2[a1, SP[a3, a5], a2, a6, a4, n] + S2[a1, SP[a3, a5], a4, a2, a6, n] + 
    S2[a1, SP[a3, a5], a4, a6, a2, n] + S2[a1, SP[a3, a5], a6, a2, a4, n] + 
    S2[a1, SP[a3, a5], a6, a4, a2, n] + S2[a1, SP[a3, a6], a2, a5, a4, n] + 
    S2[a1, SP[a3, a6], a5, a2, a4, n] + S2[a1, SP[a3, a6], a5, a4, a2, n] - 
    S2[a1, SP[a4, a5], a3, a2, a6, n] - S2[a1, SP[a4, a5], a3, a6, a2, n] - 
    S2[a1, SP[a4, a5], a6, a3, a2, n] - S2[a1, SP[a5, a6], a2, a3, a4, n] - 
    S2[a1, SP[a5, a6], a2, a4, a3, n] - S2[a1, SP[a5, a6], a4, a2, a3, n] - 
    S2[a3, a1, a5, a4, SP[a2, a6], n] - S2[a3, a1, a5, a6, SP[a2, a4], n] - 
    S2[a3, a1, a5, SP[a2, a4], a6, n] - S2[a3, a1, a5, SP[a2, a6], a4, n] - 
    S2[a3, a1, a6, a5, SP[a2, a4], n] - S2[a3, a1, a6, SP[a2, a5], a4, n] - 
    S2[a3, a1, SP[a2, a5], a4, a6, n] - S2[a3, a1, SP[a2, a5], a6, a4, n] - 
    S2[a3, a1, SP[a2, a6], a5, a4, n] + S2[a4, n]*S2[a3, a5, a1, a2, a6, n] + 
    S2[a3, a5, a1, a2, SP[a4, a6], n] - S2[a3, a5, a1, a4, SP[a2, a6], n] + 
    S2[a4, n]*S2[a3, a5, a1, a6, a2, n] - S2[a3, a5, a1, SP[a2, a6], a4, n] + 
    S2[a3, a5, a1, SP[a4, a6], a2, n] - S2[a3, a5, a4, a1, SP[a2, a6], n] - 
    S2[a3, a5, a4, SP[a1, a6], a2, n] + S2[a4, n]*S2[a3, a5, a6, a1, a2, n] - 
    S2[a3, a5, SP[a1, a6], a2, a4, n] - S2[a3, a5, SP[a1, a6], a4, a2, n] + 
    S2[a3, a5, SP[a4, a6], a1, a2, n] - S2[a3, a6, a1, a5, SP[a2, a4], n] - 
    S2[a3, a6, a1, SP[a2, a5], a4, n] - S2[a3, a6, a5, a1, SP[a2, a4], n] - 
    S2[a3, a6, a5, SP[a1, a4], a2, n] - S2[a3, a6, SP[a1, a5], a2, a4, n] - 
    S2[a3, a6, SP[a1, a5], a4, a2, n] - S2[a3, SP[a1, a5], a2, a4, a6, n] - 
    S2[a3, SP[a1, a5], a2, a6, a4, n] - S2[a3, SP[a1, a5], a4, a2, a6, n] - 
    S2[a3, SP[a1, a5], a4, a6, a2, n] - S2[a3, SP[a1, a5], a6, a2, a4, n] - 
    S2[a3, SP[a1, a5], a6, a4, a2, n] - S2[a3, SP[a1, a6], a2, a5, a4, n] - 
    S2[a3, SP[a1, a6], a5, a2, a4, n] - S2[a3, SP[a1, a6], a5, a4, a2, n] + 
    S2[a3, SP[a4, a5], a1, a2, a6, n] + S2[a3, SP[a4, a5], a1, a6, a2, n] + 
    S2[a3, SP[a4, a5], a6, a1, a2, n] - S2[a4, a1, a2, a3, SP[a5, a6], n] - 
    S2[a4, a1, a2, SP[a3, a5], a6, n] + S2[a4, a1, a5, a3, SP[a2, a6], n] + 
    S2[a4, a1, a5, SP[a2, a3], a6, n] + S2[a6, n]*S2[a4, a5, a1, a2, a3, n] - 
    S2[a3, n]*S2[a4, a5, a1, a2, a6, n] + S2[a4, a5, a1, a3, SP[a2, a6], n] - 
    S2[a3, n]*S2[a4, a5, a1, a6, a2, n] - S2[a4, a5, a1, a6, SP[a2, a3], n] + 
    S2[a4, a5, a1, SP[a2, a6], a3, n] - S2[a4, a5, a1, SP[a3, a6], a2, n] + 
    S2[a4, a5, a3, a1, SP[a2, a6], n] + S2[a4, a5, a3, SP[a1, a6], a2, n] - 
    S2[a3, n]*S2[a4, a5, a6, a1, a2, n] - S2[a4, a5, a6, a1, SP[a2, a3], n] + 
    S2[a1, n]*S2[a4, a5, a6, a3, a2, n] + S2[a4, a5, a6, a3, SP[a1, a2], n] + 
    S2[a4, a5, SP[a1, a6], a2, a3, n] + S2[a4, a5, SP[a1, a6], a3, a2, n] - 
    S2[a4, a5, SP[a3, a6], a1, a2, n] + S2[a4, SP[a1, a5], a3, a2, a6, n] + 
    S2[a4, SP[a1, a5], a3, a6, a2, n] + S2[a4, SP[a1, a5], a6, a3, a2, n] - 
    S2[a4, SP[a3, a5], a1, a2, a6, n] - S2[a4, SP[a3, a5], a1, a6, a2, n] - 
    S2[a4, SP[a3, a5], a6, a1, a2, n] + S2[a4, SP[a5, a6], a1, a2, a3, n] + 
    S2[a3, n]*S2[a6, a1, a2, a5, a4, n] + S2[a6, a1, a2, a5, SP[a3, a4], n] + 
    S2[a6, a1, a2, SP[a3, a5], a4, n] + S2[a3, n]*S2[a6, a1, a5, a2, a4, n] + 
    S2[a6, a1, a5, a2, SP[a3, a4], n] + S2[a3, n]*S2[a6, a1, a5, a4, a2, n] + 
    S2[a6, a1, a5, a4, SP[a2, a3], n] + S2[a6, a1, a5, SP[a2, a3], a4, n] + 
    S2[a6, a1, a5, SP[a3, a4], a2, n] + S2[a6, a1, SP[a2, a3], a5, a4, n] + 
    S2[a6, a1, SP[a3, a5], a2, a4, n] + S2[a6, a1, SP[a3, a5], a4, a2, n] - 
    S2[a1, n]*S2[a6, a3, a2, a5, a4, n] - S2[a6, a3, a2, a5, SP[a1, a4], n] - 
    S2[a6, a3, a2, SP[a1, a5], a4, n] - S2[a1, n]*S2[a6, a3, a5, a2, a4, n] - 
    S2[a6, a3, a5, a2, SP[a1, a4], n] - S2[a1, n]*S2[a6, a3, a5, a4, a2, n] - 
    S2[a6, a3, a5, a4, SP[a1, a2], n] - S2[a6, a3, a5, SP[a1, a2], a4, n] - 
    S2[a6, a3, a5, SP[a1, a4], a2, n] - S2[a6, a3, SP[a1, a2], a5, a4, n] - 
    S2[a6, a3, SP[a1, a5], a2, a4, n] - S2[a6, a3, SP[a1, a5], a4, a2, n] - 
    S2[a4, n]*S2[a6, a5, a1, a2, a3, n] + 
    S2[a3, n]*S2[a6, a5, a1, a2, a4, n] + 
    S2[a3, n]*S2[a6, a5, a1, a4, a2, n] + S2[a6, a5, a1, a4, SP[a2, a3], n] + 
    S2[a6, a5, a1, SP[a2, a3], a4, n] - S2[a6, a5, a1, SP[a2, a4], a3, n] + 
    S2[a6, a5, a1, SP[a3, a4], a2, n] - S2[a1, n]*S2[a6, a5, a3, a2, a4, n] - 
    S2[a6, a5, a3, a2, SP[a1, a4], n] - S2[a1, n]*S2[a6, a5, a3, a4, a2, n] - 
    S2[a6, a5, a3, a4, SP[a1, a2], n] - S2[a6, a5, a3, SP[a1, a2], a4, n] - 
    S2[a6, a5, a3, SP[a1, a4], a2, n] + S2[a3, n]*S2[a6, a5, a4, a1, a2, n] + 
    S2[a6, a5, a4, a1, SP[a2, a3], n] - S2[a1, n]*S2[a6, a5, a4, a3, a2, n] - 
    S2[a6, a5, a4, a3, SP[a1, a2], n] - S2[a6, a5, SP[a1, a4], a2, a3, n] - 
    S2[a6, a5, SP[a1, a4], a3, a2, n] + S2[a6, a5, SP[a3, a4], a1, a2, n] - 
    S2[a6, SP[a1, a5], a3, a2, a4, n] - S2[a6, SP[a1, a5], a3, a4, a2, n] - 
    S2[a6, SP[a1, a5], a4, a3, a2, n] + S2[a6, SP[a3, a5], a1, a2, a4, n] + 
    S2[a6, SP[a3, a5], a1, a4, a2, n] + S2[a6, SP[a3, a5], a4, a1, a2, n] - 
    S2[a6, SP[a4, a5], a1, a2, a3, n] - S2[SP[a1, a6], a2, a3, a5, a4, n] - 
    S2[SP[a1, a6], a2, a5, a3, a4, n] - S2[SP[a1, a6], a2, a5, a4, a3, n] - 
    S2[SP[a1, a6], a3, a2, a5, a4, n] - S2[SP[a1, a6], a3, a5, a2, a4, n] - 
    S2[SP[a1, a6], a3, a5, a4, a2, n] - S2[SP[a1, a6], a5, a2, a3, a4, n] - 
    S2[SP[a1, a6], a5, a2, a4, a3, n] - S2[SP[a1, a6], a5, a3, a2, a4, n] - 
    S2[SP[a1, a6], a5, a3, a4, a2, n] - S2[SP[a1, a6], a5, a4, a2, a3, n] - 
    S2[SP[a1, a6], a5, a4, a3, a2, n] + S2[SP[a3, a6], a1, a2, a5, a4, n] + 
    S2[SP[a3, a6], a1, a5, a2, a4, n] + S2[SP[a3, a6], a1, a5, a4, a2, n] + 
    S2[SP[a3, a6], a5, a1, a2, a4, n] + S2[SP[a3, a6], a5, a1, a4, a2, n] + 
    S2[SP[a3, a6], a5, a4, a1, a2, n] + S2[a6, a3, a2, a1, a5, a4, n] + 
    S2[a6, a3, a2, a5, a1, a4, n] + S2[a6, a3, a2, a5, a4, a1, n] + 
    S2[a6, a3, a5, a2, a1, a4, n] + S2[a6, a3, a5, a2, a4, a1, n] + 
    S2[a6, a3, a5, a4, a2, a1, n] + S2[a6, a5, a3, a2, a1, a4, n] + 
    S2[a6, a5, a3, a2, a4, a1, n] + S2[a6, a5, a3, a4, a2, a1, n] + 
    S2[a6, a5, a4, a3, a2, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a4_, a6_, a1_, a2_, a3_, a5_, n_] :> 
  S2[a4, n]*S2[a6, a1, a2, a3, a5, n] + S2[a6, a1, a2, a3, SP[a4, a5], n] + 
    S2[a6, a1, a2, SP[a3, a4], a5, n] + S2[a6, a1, SP[a2, a4], a3, a5, n] + 
    S2[a6, SP[a1, a4], a2, a3, a5, n] + S2[SP[a4, a6], a1, a2, a3, a5, n] - 
    S2[a6, a1, a2, a3, a4, a5, n] - S2[a6, a1, a2, a3, a5, a4, n] - 
    S2[a6, a1, a2, a4, a3, a5, n] - S2[a6, a1, a4, a2, a3, a5, n] - 
    S2[a6, a4, a1, a2, a3, a5, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a4_, a6_, a1_, a2_, a5_, a3_, n_] :> 
  S2[a4, n]*S2[a6, a1, a2, a5, a3, n] + S2[a6, a1, a2, a5, SP[a3, a4], n] + 
    S2[a6, a1, a2, SP[a4, a5], a3, n] + S2[a6, a1, SP[a2, a4], a5, a3, n] + 
    S2[a6, SP[a1, a4], a2, a5, a3, n] + S2[SP[a4, a6], a1, a2, a5, a3, n] - 
    S2[a6, a1, a2, a4, a5, a3, n] - S2[a6, a1, a2, a5, a3, a4, n] - 
    S2[a6, a1, a2, a5, a4, a3, n] - S2[a6, a1, a4, a2, a5, a3, n] - 
    S2[a6, a4, a1, a2, a5, a3, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a4_, a6_, a1_, a3_, a2_, a5_, n_] :> 
  S2[a4, n]*S2[a6, a1, a3, a2, a5, n] + S2[a6, a1, a3, a2, SP[a4, a5], n] + 
    S2[a6, a1, a3, SP[a2, a4], a5, n] + S2[a6, a1, SP[a3, a4], a2, a5, n] + 
    S2[a6, SP[a1, a4], a3, a2, a5, n] + S2[SP[a4, a6], a1, a3, a2, a5, n] - 
    S2[a6, a1, a3, a2, a4, a5, n] - S2[a6, a1, a3, a2, a5, a4, n] - 
    S2[a6, a1, a3, a4, a2, a5, n] - S2[a6, a1, a4, a3, a2, a5, n] - 
    S2[a6, a4, a1, a3, a2, a5, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a4_, a6_, a1_, a3_, a5_, a2_, n_] :> 
  S2[a4, n]*S2[a6, a1, a3, a5, a2, n] + S2[a6, a1, a3, a5, SP[a2, a4], n] + 
    S2[a6, a1, a3, SP[a4, a5], a2, n] + S2[a6, a1, SP[a3, a4], a5, a2, n] + 
    S2[a6, SP[a1, a4], a3, a5, a2, n] + S2[SP[a4, a6], a1, a3, a5, a2, n] - 
    S2[a6, a1, a3, a4, a5, a2, n] - S2[a6, a1, a3, a5, a2, a4, n] - 
    S2[a6, a1, a3, a5, a4, a2, n] - S2[a6, a1, a4, a3, a5, a2, n] - 
    S2[a6, a4, a1, a3, a5, a2, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a4_, a6_, a1_, a5_, a2_, a3_, n_] :> 
  S2[a4, n]*S2[a6, a1, a5, a2, a3, n] + S2[a6, a1, a5, a2, SP[a3, a4], n] + 
    S2[a6, a1, a5, SP[a2, a4], a3, n] + S2[a6, a1, SP[a4, a5], a2, a3, n] + 
    S2[a6, SP[a1, a4], a5, a2, a3, n] + S2[SP[a4, a6], a1, a5, a2, a3, n] - 
    S2[a6, a1, a4, a5, a2, a3, n] - S2[a6, a1, a5, a2, a3, a4, n] - 
    S2[a6, a1, a5, a2, a4, a3, n] - S2[a6, a1, a5, a4, a2, a3, n] - 
    S2[a6, a4, a1, a5, a2, a3, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a4_, a6_, a1_, a5_, a3_, a2_, n_] :> 
  S2[a4, n]*S2[a6, a1, a5, a3, a2, n] + S2[a6, a1, a5, a3, SP[a2, a4], n] + 
    S2[a6, a1, a5, SP[a3, a4], a2, n] + S2[a6, a1, SP[a4, a5], a3, a2, n] + 
    S2[a6, SP[a1, a4], a5, a3, a2, n] + S2[SP[a4, a6], a1, a5, a3, a2, n] - 
    S2[a6, a1, a4, a5, a3, a2, n] - S2[a6, a1, a5, a3, a2, a4, n] - 
    S2[a6, a1, a5, a3, a4, a2, n] - S2[a6, a1, a5, a4, a3, a2, n] - 
    S2[a6, a4, a1, a5, a3, a2, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a4_, a6_, a2_, a1_, a3_, a5_, n_] :> 
  -(S2[a4, n]*S2[a2, a6, a1, a3, a5, n]) - S2[a2, a6, a1, a3, SP[a4, a5], 
     n] - S2[a2, a6, a1, SP[a3, a4], a5, n] - S2[a2, a6, SP[a1, a4], a3, a5, 
     n] - S2[a2, SP[a4, a6], a1, a3, a5, n] + 
    S2[a2, n]*S2[a4, a6, a1, a3, a5, n] + S2[a4, a6, a1, a3, SP[a2, a5], n] + 
    S2[a4, a6, a1, SP[a2, a3], a5, n] + S2[a4, a6, SP[a1, a2], a3, a5, n] + 
    S2[a4, SP[a2, a6], a1, a3, a5, n] - S2[a4, n]*S2[a6, a1, a2, a3, a5, n] - 
    S2[a6, a1, a2, a3, SP[a4, a5], n] - S2[a6, a1, a2, SP[a3, a4], a5, n] - 
    S2[a4, n]*S2[a6, a1, a3, a2, a5, n] - S2[a6, a1, a3, a2, SP[a4, a5], n] + 
    S2[a2, n]*S2[a6, a1, a3, a4, a5, n] + S2[a6, a1, a3, a4, SP[a2, a5], n] - 
    S2[a4, n]*S2[a6, a1, a3, a5, a2, n] + 
    S2[a2, n]*S2[a6, a1, a3, a5, a4, n] + S2[a6, a1, a3, SP[a2, a5], a4, n] - 
    S2[a6, a1, a3, SP[a4, a5], a2, n] + S2[a2, n]*S2[a6, a1, a4, a3, a5, n] + 
    S2[a6, a1, a4, a3, SP[a2, a5], n] + S2[a6, a1, a4, SP[a2, a3], a5, n] + 
    S2[a6, a1, SP[a2, a3], a4, a5, n] + S2[a6, a1, SP[a2, a3], a5, a4, n] - 
    S2[a6, a1, SP[a3, a4], a2, a5, n] - S2[a6, a1, SP[a3, a4], a5, a2, n] + 
    S2[a2, n]*S2[a6, a4, a1, a3, a5, n] + S2[a6, a4, a1, a3, SP[a2, a5], n] + 
    S2[a6, a4, a1, SP[a2, a3], a5, n] + S2[a6, a4, SP[a1, a2], a3, a5, n] + 
    S2[a6, SP[a1, a2], a3, a4, a5, n] + S2[a6, SP[a1, a2], a3, a5, a4, n] + 
    S2[a6, SP[a1, a2], a4, a3, a5, n] - S2[a6, SP[a1, a4], a2, a3, a5, n] - 
    S2[a6, SP[a1, a4], a3, a2, a5, n] - S2[a6, SP[a1, a4], a3, a5, a2, n] + 
    S2[a6, SP[a2, a4], a1, a3, a5, n] + S2[SP[a2, a6], a1, a3, a4, a5, n] + 
    S2[SP[a2, a6], a1, a3, a5, a4, n] + S2[SP[a2, a6], a1, a4, a3, a5, n] + 
    S2[SP[a2, a6], a4, a1, a3, a5, n] - S2[SP[a4, a6], a1, a2, a3, a5, n] - 
    S2[SP[a4, a6], a1, a3, a2, a5, n] - S2[SP[a4, a6], a1, a3, a5, a2, n] - 
    S2[a6, a2, a1, a3, a4, a5, n] - S2[a6, a2, a1, a3, a5, a4, n] - 
    S2[a6, a2, a1, a4, a3, a5, n] - S2[a6, a2, a4, a1, a3, a5, n] - 
    S2[a6, a4, a2, a1, a3, a5, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a4_, a6_, a2_, a1_, a5_, a3_, n_] :> 
  -(S2[a4, n]*S2[a2, a6, a1, a5, a3, n]) - S2[a2, a6, a1, a5, SP[a3, a4], 
     n] - S2[a2, a6, a1, SP[a4, a5], a3, n] - S2[a2, a6, SP[a1, a4], a5, a3, 
     n] - S2[a2, SP[a4, a6], a1, a5, a3, n] + 
    S2[a2, n]*S2[a4, a6, a1, a5, a3, n] + S2[a4, a6, a1, a5, SP[a2, a3], n] + 
    S2[a4, a6, a1, SP[a2, a5], a3, n] + S2[a4, a6, SP[a1, a2], a5, a3, n] + 
    S2[a4, SP[a2, a6], a1, a5, a3, n] - S2[a4, n]*S2[a6, a1, a2, a5, a3, n] - 
    S2[a6, a1, a2, a5, SP[a3, a4], n] - S2[a6, a1, a2, SP[a4, a5], a3, n] + 
    S2[a2, n]*S2[a6, a1, a4, a5, a3, n] + S2[a6, a1, a4, a5, SP[a2, a3], n] + 
    S2[a6, a1, a4, SP[a2, a5], a3, n] - S2[a4, n]*S2[a6, a1, a5, a2, a3, n] - 
    S2[a6, a1, a5, a2, SP[a3, a4], n] - S2[a4, n]*S2[a6, a1, a5, a3, a2, n] + 
    S2[a2, n]*S2[a6, a1, a5, a3, a4, n] + 
    S2[a2, n]*S2[a6, a1, a5, a4, a3, n] + S2[a6, a1, a5, a4, SP[a2, a3], n] + 
    S2[a6, a1, a5, SP[a2, a3], a4, n] - S2[a6, a1, a5, SP[a3, a4], a2, n] + 
    S2[a6, a1, SP[a2, a5], a3, a4, n] + S2[a6, a1, SP[a2, a5], a4, a3, n] - 
    S2[a6, a1, SP[a4, a5], a2, a3, n] - S2[a6, a1, SP[a4, a5], a3, a2, n] + 
    S2[a2, n]*S2[a6, a4, a1, a5, a3, n] + S2[a6, a4, a1, a5, SP[a2, a3], n] + 
    S2[a6, a4, a1, SP[a2, a5], a3, n] + S2[a6, a4, SP[a1, a2], a5, a3, n] + 
    S2[a6, SP[a1, a2], a4, a5, a3, n] + S2[a6, SP[a1, a2], a5, a3, a4, n] + 
    S2[a6, SP[a1, a2], a5, a4, a3, n] - S2[a6, SP[a1, a4], a2, a5, a3, n] - 
    S2[a6, SP[a1, a4], a5, a2, a3, n] - S2[a6, SP[a1, a4], a5, a3, a2, n] + 
    S2[a6, SP[a2, a4], a1, a5, a3, n] + S2[SP[a2, a6], a1, a4, a5, a3, n] + 
    S2[SP[a2, a6], a1, a5, a3, a4, n] + S2[SP[a2, a6], a1, a5, a4, a3, n] + 
    S2[SP[a2, a6], a4, a1, a5, a3, n] - S2[SP[a4, a6], a1, a2, a5, a3, n] - 
    S2[SP[a4, a6], a1, a5, a2, a3, n] - S2[SP[a4, a6], a1, a5, a3, a2, n] - 
    S2[a6, a2, a1, a4, a5, a3, n] - S2[a6, a2, a1, a5, a3, a4, n] - 
    S2[a6, a2, a1, a5, a4, a3, n] - S2[a6, a2, a4, a1, a5, a3, n] - 
    S2[a6, a4, a2, a1, a5, a3, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a4_, a6_, a2_, a3_, a1_, a5_, n_] :> 
  S2[a4, n]*S2[a6, a2, a3, a1, a5, n] + S2[a6, a2, a3, a1, SP[a4, a5], n] + 
    S2[a6, a2, a3, SP[a1, a4], a5, n] + S2[a6, a2, SP[a3, a4], a1, a5, n] + 
    S2[a6, SP[a2, a4], a3, a1, a5, n] + S2[SP[a4, a6], a2, a3, a1, a5, n] - 
    S2[a6, a2, a3, a1, a4, a5, n] - S2[a6, a2, a3, a1, a5, a4, n] - 
    S2[a6, a2, a3, a4, a1, a5, n] - S2[a6, a2, a4, a3, a1, a5, n] - 
    S2[a6, a4, a2, a3, a1, a5, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a4_, a6_, a2_, a3_, a5_, a1_, n_] :> 
  -(S2[a4, n]*S2[a1, a6, a2, a3, a5, n]) - S2[a1, a6, a2, a3, SP[a4, a5], 
     n] - S2[a1, a6, a2, SP[a3, a4], a5, n] - S2[a1, a6, SP[a2, a4], a3, a5, 
     n] - S2[a1, SP[a4, a6], a2, a3, a5, n] + 
    S2[a4, n]*S2[a2, a6, a1, a3, a5, n] + S2[a2, a6, a1, a3, SP[a4, a5], n] + 
    S2[a2, a6, a1, SP[a3, a4], a5, n] + S2[a2, a6, SP[a1, a4], a3, a5, n] + 
    S2[a2, SP[a4, a6], a1, a3, a5, n] - S2[a2, n]*S2[a4, a6, a1, a3, a5, n] - 
    S2[a4, a6, a1, a3, SP[a2, a5], n] - S2[a4, a6, a1, SP[a2, a3], a5, n] + 
    S2[a1, n]*S2[a4, a6, a2, a3, a5, n] + S2[a4, a6, a2, a3, SP[a1, a5], n] + 
    S2[a4, a6, a2, SP[a1, a3], a5, n] + S2[a4, SP[a1, a6], a2, a3, a5, n] - 
    S2[a4, SP[a2, a6], a1, a3, a5, n] + S2[a4, n]*S2[a6, a1, a3, a2, a5, n] + 
    S2[a6, a1, a3, a2, SP[a4, a5], n] - S2[a2, n]*S2[a6, a1, a3, a4, a5, n] - 
    S2[a6, a1, a3, a4, SP[a2, a5], n] + S2[a4, n]*S2[a6, a1, a3, a5, a2, n] - 
    S2[a2, n]*S2[a6, a1, a3, a5, a4, n] - S2[a6, a1, a3, SP[a2, a5], a4, n] + 
    S2[a6, a1, a3, SP[a4, a5], a2, n] - S2[a2, n]*S2[a6, a1, a4, a3, a5, n] - 
    S2[a6, a1, a4, a3, SP[a2, a5], n] - S2[a6, a1, a4, SP[a2, a3], a5, n] - 
    S2[a6, a1, SP[a2, a3], a4, a5, n] - S2[a6, a1, SP[a2, a3], a5, a4, n] - 
    S2[a6, a1, SP[a2, a4], a3, a5, n] + S2[a6, a1, SP[a3, a4], a2, a5, n] + 
    S2[a6, a1, SP[a3, a4], a5, a2, n] - S2[a4, n]*S2[a6, a2, a3, a1, a5, n] - 
    S2[a6, a2, a3, a1, SP[a4, a5], n] + S2[a1, n]*S2[a6, a2, a3, a4, a5, n] + 
    S2[a6, a2, a3, a4, SP[a1, a5], n] + S2[a1, n]*S2[a6, a2, a3, a5, a4, n] + 
    S2[a6, a2, a3, a5, SP[a1, a4], n] + S2[a6, a2, a3, SP[a1, a5], a4, n] + 
    S2[a1, n]*S2[a6, a2, a4, a3, a5, n] + S2[a6, a2, a4, a3, SP[a1, a5], n] + 
    S2[a6, a2, a4, SP[a1, a3], a5, n] + S2[a6, a2, SP[a1, a3], a4, a5, n] + 
    S2[a6, a2, SP[a1, a3], a5, a4, n] + S2[a6, a2, SP[a1, a4], a3, a5, n] - 
    S2[a6, a2, SP[a3, a4], a1, a5, n] - S2[a2, n]*S2[a6, a4, a1, a3, a5, n] - 
    S2[a6, a4, a1, a3, SP[a2, a5], n] - S2[a6, a4, a1, SP[a2, a3], a5, n] + 
    S2[a1, n]*S2[a6, a4, a2, a3, a5, n] + S2[a6, a4, a2, a3, SP[a1, a5], n] + 
    S2[a6, a4, a2, SP[a1, a3], a5, n] + S2[a6, SP[a1, a4], a2, a3, a5, n] + 
    S2[a6, SP[a1, a4], a3, a2, a5, n] + S2[a6, SP[a1, a4], a3, a5, a2, n] - 
    S2[a6, SP[a2, a4], a1, a3, a5, n] - S2[a6, SP[a2, a4], a3, a1, a5, n] + 
    S2[SP[a1, a6], a2, a3, a4, a5, n] + S2[SP[a1, a6], a2, a3, a5, a4, n] + 
    S2[SP[a1, a6], a2, a4, a3, a5, n] + S2[SP[a1, a6], a4, a2, a3, a5, n] - 
    S2[SP[a2, a6], a1, a3, a4, a5, n] - S2[SP[a2, a6], a1, a3, a5, a4, n] - 
    S2[SP[a2, a6], a1, a4, a3, a5, n] - S2[SP[a2, a6], a4, a1, a3, a5, n] + 
    S2[SP[a4, a6], a1, a3, a2, a5, n] + S2[SP[a4, a6], a1, a3, a5, a2, n] - 
    S2[SP[a4, a6], a2, a3, a1, a5, n] - S2[a6, a2, a3, a4, a5, a1, n] - 
    S2[a6, a2, a3, a5, a1, a4, n] - S2[a6, a2, a3, a5, a4, a1, n] - 
    S2[a6, a2, a4, a3, a5, a1, n] - S2[a6, a4, a2, a3, a5, a1, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a4_, a6_, a2_, a5_, a1_, a3_, n_] :> 
  S2[a4, n]*S2[a6, a2, a5, a1, a3, n] + S2[a6, a2, a5, a1, SP[a3, a4], n] + 
    S2[a6, a2, a5, SP[a1, a4], a3, n] + S2[a6, a2, SP[a4, a5], a1, a3, n] + 
    S2[a6, SP[a2, a4], a5, a1, a3, n] + S2[SP[a4, a6], a2, a5, a1, a3, n] - 
    S2[a6, a2, a4, a5, a1, a3, n] - S2[a6, a2, a5, a1, a3, a4, n] - 
    S2[a6, a2, a5, a1, a4, a3, n] - S2[a6, a2, a5, a4, a1, a3, n] - 
    S2[a6, a4, a2, a5, a1, a3, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a4_, a6_, a2_, a5_, a3_, a1_, n_] :> 
  -(S2[a4, n]*S2[a1, a6, a2, a5, a3, n]) - S2[a1, a6, a2, a5, SP[a3, a4], 
     n] - S2[a1, a6, a2, SP[a4, a5], a3, n] - S2[a1, a6, SP[a2, a4], a5, a3, 
     n] - S2[a1, SP[a4, a6], a2, a5, a3, n] + 
    S2[a4, n]*S2[a2, a6, a1, a5, a3, n] + S2[a2, a6, a1, a5, SP[a3, a4], n] + 
    S2[a2, a6, a1, SP[a4, a5], a3, n] + S2[a2, a6, SP[a1, a4], a5, a3, n] + 
    S2[a2, SP[a4, a6], a1, a5, a3, n] - S2[a2, n]*S2[a4, a6, a1, a5, a3, n] - 
    S2[a4, a6, a1, a5, SP[a2, a3], n] - S2[a4, a6, a1, SP[a2, a5], a3, n] + 
    S2[a1, n]*S2[a4, a6, a2, a5, a3, n] + S2[a4, a6, a2, a5, SP[a1, a3], n] + 
    S2[a4, a6, a2, SP[a1, a5], a3, n] + S2[a4, SP[a1, a6], a2, a5, a3, n] - 
    S2[a4, SP[a2, a6], a1, a5, a3, n] - S2[a2, n]*S2[a6, a1, a4, a5, a3, n] - 
    S2[a6, a1, a4, a5, SP[a2, a3], n] - S2[a6, a1, a4, SP[a2, a5], a3, n] + 
    S2[a4, n]*S2[a6, a1, a5, a2, a3, n] + S2[a6, a1, a5, a2, SP[a3, a4], n] + 
    S2[a4, n]*S2[a6, a1, a5, a3, a2, n] - 
    S2[a2, n]*S2[a6, a1, a5, a3, a4, n] - 
    S2[a2, n]*S2[a6, a1, a5, a4, a3, n] - S2[a6, a1, a5, a4, SP[a2, a3], n] - 
    S2[a6, a1, a5, SP[a2, a3], a4, n] + S2[a6, a1, a5, SP[a3, a4], a2, n] - 
    S2[a6, a1, SP[a2, a4], a5, a3, n] - S2[a6, a1, SP[a2, a5], a3, a4, n] - 
    S2[a6, a1, SP[a2, a5], a4, a3, n] + S2[a6, a1, SP[a4, a5], a2, a3, n] + 
    S2[a6, a1, SP[a4, a5], a3, a2, n] + S2[a1, n]*S2[a6, a2, a4, a5, a3, n] + 
    S2[a6, a2, a4, a5, SP[a1, a3], n] + S2[a6, a2, a4, SP[a1, a5], a3, n] - 
    S2[a4, n]*S2[a6, a2, a5, a1, a3, n] - S2[a6, a2, a5, a1, SP[a3, a4], n] + 
    S2[a1, n]*S2[a6, a2, a5, a3, a4, n] + S2[a6, a2, a5, a3, SP[a1, a4], n] + 
    S2[a1, n]*S2[a6, a2, a5, a4, a3, n] + S2[a6, a2, a5, a4, SP[a1, a3], n] + 
    S2[a6, a2, a5, SP[a1, a3], a4, n] + S2[a6, a2, SP[a1, a4], a5, a3, n] + 
    S2[a6, a2, SP[a1, a5], a3, a4, n] + S2[a6, a2, SP[a1, a5], a4, a3, n] - 
    S2[a6, a2, SP[a4, a5], a1, a3, n] - S2[a2, n]*S2[a6, a4, a1, a5, a3, n] - 
    S2[a6, a4, a1, a5, SP[a2, a3], n] - S2[a6, a4, a1, SP[a2, a5], a3, n] + 
    S2[a1, n]*S2[a6, a4, a2, a5, a3, n] + S2[a6, a4, a2, a5, SP[a1, a3], n] + 
    S2[a6, a4, a2, SP[a1, a5], a3, n] + S2[a6, SP[a1, a4], a2, a5, a3, n] + 
    S2[a6, SP[a1, a4], a5, a2, a3, n] + S2[a6, SP[a1, a4], a5, a3, a2, n] - 
    S2[a6, SP[a2, a4], a1, a5, a3, n] - S2[a6, SP[a2, a4], a5, a1, a3, n] + 
    S2[SP[a1, a6], a2, a4, a5, a3, n] + S2[SP[a1, a6], a2, a5, a3, a4, n] + 
    S2[SP[a1, a6], a2, a5, a4, a3, n] + S2[SP[a1, a6], a4, a2, a5, a3, n] - 
    S2[SP[a2, a6], a1, a4, a5, a3, n] - S2[SP[a2, a6], a1, a5, a3, a4, n] - 
    S2[SP[a2, a6], a1, a5, a4, a3, n] - S2[SP[a2, a6], a4, a1, a5, a3, n] + 
    S2[SP[a4, a6], a1, a5, a2, a3, n] + S2[SP[a4, a6], a1, a5, a3, a2, n] - 
    S2[SP[a4, a6], a2, a5, a1, a3, n] - S2[a6, a2, a4, a5, a3, a1, n] - 
    S2[a6, a2, a5, a3, a1, a4, n] - S2[a6, a2, a5, a3, a4, a1, n] - 
    S2[a6, a2, a5, a4, a3, a1, n] - S2[a6, a4, a2, a5, a3, a1, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a4_, a6_, a3_, a1_, a2_, a5_, n_] :> 
  -(S2[a4, n]*S2[a3, a6, a1, a2, a5, n]) - S2[a3, a6, a1, a2, SP[a4, a5], 
     n] - S2[a3, a6, a1, SP[a2, a4], a5, n] - S2[a3, a6, SP[a1, a4], a2, a5, 
     n] - S2[a3, SP[a4, a6], a1, a2, a5, n] + 
    S2[a3, n]*S2[a4, a6, a1, a2, a5, n] + S2[a4, a6, a1, a2, SP[a3, a5], n] + 
    S2[a4, a6, a1, SP[a2, a3], a5, n] + S2[a4, a6, SP[a1, a3], a2, a5, n] + 
    S2[a4, SP[a3, a6], a1, a2, a5, n] - S2[a4, n]*S2[a6, a1, a2, a3, a5, n] - 
    S2[a6, a1, a2, a3, SP[a4, a5], n] + S2[a3, n]*S2[a6, a1, a2, a4, a5, n] + 
    S2[a6, a1, a2, a4, SP[a3, a5], n] - S2[a4, n]*S2[a6, a1, a2, a5, a3, n] + 
    S2[a3, n]*S2[a6, a1, a2, a5, a4, n] + S2[a6, a1, a2, SP[a3, a5], a4, n] - 
    S2[a6, a1, a2, SP[a4, a5], a3, n] - S2[a4, n]*S2[a6, a1, a3, a2, a5, n] - 
    S2[a6, a1, a3, a2, SP[a4, a5], n] - S2[a6, a1, a3, SP[a2, a4], a5, n] + 
    S2[a3, n]*S2[a6, a1, a4, a2, a5, n] + S2[a6, a1, a4, a2, SP[a3, a5], n] + 
    S2[a6, a1, a4, SP[a2, a3], a5, n] + S2[a6, a1, SP[a2, a3], a4, a5, n] + 
    S2[a6, a1, SP[a2, a3], a5, a4, n] - S2[a6, a1, SP[a2, a4], a3, a5, n] - 
    S2[a6, a1, SP[a2, a4], a5, a3, n] + S2[a3, n]*S2[a6, a4, a1, a2, a5, n] + 
    S2[a6, a4, a1, a2, SP[a3, a5], n] + S2[a6, a4, a1, SP[a2, a3], a5, n] + 
    S2[a6, a4, SP[a1, a3], a2, a5, n] + S2[a6, SP[a1, a3], a2, a4, a5, n] + 
    S2[a6, SP[a1, a3], a2, a5, a4, n] + S2[a6, SP[a1, a3], a4, a2, a5, n] - 
    S2[a6, SP[a1, a4], a2, a3, a5, n] - S2[a6, SP[a1, a4], a2, a5, a3, n] - 
    S2[a6, SP[a1, a4], a3, a2, a5, n] + S2[a6, SP[a3, a4], a1, a2, a5, n] + 
    S2[SP[a3, a6], a1, a2, a4, a5, n] + S2[SP[a3, a6], a1, a2, a5, a4, n] + 
    S2[SP[a3, a6], a1, a4, a2, a5, n] + S2[SP[a3, a6], a4, a1, a2, a5, n] - 
    S2[SP[a4, a6], a1, a2, a3, a5, n] - S2[SP[a4, a6], a1, a2, a5, a3, n] - 
    S2[SP[a4, a6], a1, a3, a2, a5, n] - S2[a6, a3, a1, a2, a4, a5, n] - 
    S2[a6, a3, a1, a2, a5, a4, n] - S2[a6, a3, a1, a4, a2, a5, n] - 
    S2[a6, a3, a4, a1, a2, a5, n] - S2[a6, a4, a3, a1, a2, a5, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a4_, a6_, a3_, a1_, a5_, a2_, n_] :> 
  -(S2[a4, n]*S2[a3, a6, a1, a5, a2, n]) - S2[a3, a6, a1, a5, SP[a2, a4], 
     n] - S2[a3, a6, a1, SP[a4, a5], a2, n] - S2[a3, a6, SP[a1, a4], a5, a2, 
     n] - S2[a3, SP[a4, a6], a1, a5, a2, n] + 
    S2[a3, n]*S2[a4, a6, a1, a5, a2, n] + S2[a4, a6, a1, a5, SP[a2, a3], n] + 
    S2[a4, a6, a1, SP[a3, a5], a2, n] + S2[a4, a6, SP[a1, a3], a5, a2, n] + 
    S2[a4, SP[a3, a6], a1, a5, a2, n] - S2[a4, n]*S2[a6, a1, a3, a5, a2, n] - 
    S2[a6, a1, a3, a5, SP[a2, a4], n] - S2[a6, a1, a3, SP[a4, a5], a2, n] + 
    S2[a3, n]*S2[a6, a1, a4, a5, a2, n] + S2[a6, a1, a4, a5, SP[a2, a3], n] + 
    S2[a6, a1, a4, SP[a3, a5], a2, n] - S2[a4, n]*S2[a6, a1, a5, a2, a3, n] + 
    S2[a3, n]*S2[a6, a1, a5, a2, a4, n] - 
    S2[a4, n]*S2[a6, a1, a5, a3, a2, n] - S2[a6, a1, a5, a3, SP[a2, a4], n] + 
    S2[a3, n]*S2[a6, a1, a5, a4, a2, n] + S2[a6, a1, a5, a4, SP[a2, a3], n] + 
    S2[a6, a1, a5, SP[a2, a3], a4, n] - S2[a6, a1, a5, SP[a2, a4], a3, n] + 
    S2[a6, a1, SP[a3, a5], a2, a4, n] + S2[a6, a1, SP[a3, a5], a4, a2, n] - 
    S2[a6, a1, SP[a4, a5], a2, a3, n] - S2[a6, a1, SP[a4, a5], a3, a2, n] + 
    S2[a3, n]*S2[a6, a4, a1, a5, a2, n] + S2[a6, a4, a1, a5, SP[a2, a3], n] + 
    S2[a6, a4, a1, SP[a3, a5], a2, n] + S2[a6, a4, SP[a1, a3], a5, a2, n] + 
    S2[a6, SP[a1, a3], a4, a5, a2, n] + S2[a6, SP[a1, a3], a5, a2, a4, n] + 
    S2[a6, SP[a1, a3], a5, a4, a2, n] - S2[a6, SP[a1, a4], a3, a5, a2, n] - 
    S2[a6, SP[a1, a4], a5, a2, a3, n] - S2[a6, SP[a1, a4], a5, a3, a2, n] + 
    S2[a6, SP[a3, a4], a1, a5, a2, n] + S2[SP[a3, a6], a1, a4, a5, a2, n] + 
    S2[SP[a3, a6], a1, a5, a2, a4, n] + S2[SP[a3, a6], a1, a5, a4, a2, n] + 
    S2[SP[a3, a6], a4, a1, a5, a2, n] - S2[SP[a4, a6], a1, a3, a5, a2, n] - 
    S2[SP[a4, a6], a1, a5, a2, a3, n] - S2[SP[a4, a6], a1, a5, a3, a2, n] - 
    S2[a6, a3, a1, a4, a5, a2, n] - S2[a6, a3, a1, a5, a2, a4, n] - 
    S2[a6, a3, a1, a5, a4, a2, n] - S2[a6, a3, a4, a1, a5, a2, n] - 
    S2[a6, a4, a3, a1, a5, a2, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a4_, a6_, a3_, a2_, a1_, a5_, n_] :> 
  -(S2[a4, n]*S2[a2, a6, a3, a1, a5, n]) - S2[a2, a6, a3, a1, SP[a4, a5], 
     n] - S2[a2, a6, a3, SP[a1, a4], a5, n] - S2[a2, a6, SP[a3, a4], a1, a5, 
     n] - S2[a2, SP[a4, a6], a3, a1, a5, n] + 
    S2[a4, n]*S2[a3, a6, a1, a2, a5, n] + S2[a3, a6, a1, a2, SP[a4, a5], n] + 
    S2[a4, n]*S2[a3, a6, a1, a5, a2, n] + S2[a3, a6, a1, a5, SP[a2, a4], n] + 
    S2[a3, a6, a1, SP[a2, a4], a5, n] + S2[a3, a6, a1, SP[a4, a5], a2, n] + 
    S2[a3, a6, SP[a1, a4], a2, a5, n] + S2[a3, a6, SP[a1, a4], a5, a2, n] + 
    S2[a3, SP[a4, a6], a1, a2, a5, n] + S2[a3, SP[a4, a6], a1, a5, a2, n] - 
    S2[a3, n]*S2[a4, a6, a1, a2, a5, n] - S2[a4, a6, a1, a2, SP[a3, a5], n] - 
    S2[a3, n]*S2[a4, a6, a1, a5, a2, n] - S2[a4, a6, a1, a5, SP[a2, a3], n] - 
    S2[a4, a6, a1, SP[a2, a3], a5, n] - S2[a4, a6, a1, SP[a3, a5], a2, n] + 
    S2[a2, n]*S2[a4, a6, a3, a1, a5, n] + S2[a4, a6, a3, a1, SP[a2, a5], n] + 
    S2[a4, a6, a3, SP[a1, a2], a5, n] - S2[a4, a6, SP[a1, a3], a2, a5, n] - 
    S2[a4, a6, SP[a1, a3], a5, a2, n] + S2[a4, a6, SP[a2, a3], a1, a5, n] + 
    S2[a4, SP[a2, a6], a3, a1, a5, n] - S2[a4, SP[a3, a6], a1, a2, a5, n] - 
    S2[a4, SP[a3, a6], a1, a5, a2, n] + S2[a4, n]*S2[a6, a1, a2, a3, a5, n] + 
    S2[a6, a1, a2, a3, SP[a4, a5], n] - S2[a3, n]*S2[a6, a1, a2, a4, a5, n] - 
    S2[a6, a1, a2, a4, SP[a3, a5], n] + S2[a4, n]*S2[a6, a1, a2, a5, a3, n] - 
    S2[a3, n]*S2[a6, a1, a2, a5, a4, n] - S2[a6, a1, a2, SP[a3, a5], a4, n] + 
    S2[a6, a1, a2, SP[a4, a5], a3, n] + S2[a4, n]*S2[a6, a1, a3, a2, a5, n] + 
    S2[a6, a1, a3, a2, SP[a4, a5], n] + S2[a4, n]*S2[a6, a1, a3, a5, a2, n] + 
    S2[a6, a1, a3, a5, SP[a2, a4], n] + S2[a6, a1, a3, SP[a2, a4], a5, n] + 
    S2[a6, a1, a3, SP[a4, a5], a2, n] - S2[a3, n]*S2[a6, a1, a4, a2, a5, n] - 
    S2[a6, a1, a4, a2, SP[a3, a5], n] - S2[a3, n]*S2[a6, a1, a4, a5, a2, n] - 
    S2[a6, a1, a4, a5, SP[a2, a3], n] - S2[a6, a1, a4, SP[a2, a3], a5, n] - 
    S2[a6, a1, a4, SP[a3, a5], a2, n] + S2[a4, n]*S2[a6, a1, a5, a2, a3, n] - 
    S2[a3, n]*S2[a6, a1, a5, a2, a4, n] + 
    S2[a4, n]*S2[a6, a1, a5, a3, a2, n] + S2[a6, a1, a5, a3, SP[a2, a4], n] - 
    S2[a3, n]*S2[a6, a1, a5, a4, a2, n] - S2[a6, a1, a5, a4, SP[a2, a3], n] - 
    S2[a6, a1, a5, SP[a2, a3], a4, n] + S2[a6, a1, a5, SP[a2, a4], a3, n] - 
    S2[a6, a1, SP[a2, a3], a4, a5, n] - S2[a6, a1, SP[a2, a3], a5, a4, n] + 
    S2[a6, a1, SP[a2, a4], a3, a5, n] + S2[a6, a1, SP[a2, a4], a5, a3, n] - 
    S2[a6, a1, SP[a3, a5], a2, a4, n] - S2[a6, a1, SP[a3, a5], a4, a2, n] + 
    S2[a6, a1, SP[a4, a5], a2, a3, n] + S2[a6, a1, SP[a4, a5], a3, a2, n] - 
    S2[a4, n]*S2[a6, a2, a3, a1, a5, n] - S2[a6, a2, a3, a1, SP[a4, a5], n] - 
    S2[a6, a2, a3, SP[a1, a4], a5, n] - S2[a6, a2, SP[a3, a4], a1, a5, n] + 
    S2[a2, n]*S2[a6, a3, a1, a4, a5, n] + S2[a6, a3, a1, a4, SP[a2, a5], n] + 
    S2[a2, n]*S2[a6, a3, a1, a5, a4, n] + S2[a6, a3, a1, a5, SP[a2, a4], n] + 
    S2[a6, a3, a1, SP[a2, a4], a5, n] + S2[a6, a3, a1, SP[a2, a5], a4, n] + 
    S2[a2, n]*S2[a6, a3, a4, a1, a5, n] + S2[a6, a3, a4, a1, SP[a2, a5], n] + 
    S2[a6, a3, a4, SP[a1, a2], a5, n] + S2[a6, a3, SP[a1, a2], a4, a5, n] + 
    S2[a6, a3, SP[a1, a2], a5, a4, n] + S2[a6, a3, SP[a2, a4], a1, a5, n] - 
    S2[a3, n]*S2[a6, a4, a1, a2, a5, n] - S2[a6, a4, a1, a2, SP[a3, a5], n] - 
    S2[a3, n]*S2[a6, a4, a1, a5, a2, n] - S2[a6, a4, a1, a5, SP[a2, a3], n] - 
    S2[a6, a4, a1, SP[a2, a3], a5, n] - S2[a6, a4, a1, SP[a3, a5], a2, n] + 
    S2[a2, n]*S2[a6, a4, a3, a1, a5, n] + S2[a6, a4, a3, a1, SP[a2, a5], n] + 
    S2[a6, a4, a3, SP[a1, a2], a5, n] - S2[a6, a4, SP[a1, a3], a2, a5, n] - 
    S2[a6, a4, SP[a1, a3], a5, a2, n] + S2[a6, a4, SP[a2, a3], a1, a5, n] - 
    S2[a6, SP[a1, a3], a2, a4, a5, n] - S2[a6, SP[a1, a3], a2, a5, a4, n] - 
    S2[a6, SP[a1, a3], a4, a2, a5, n] - S2[a6, SP[a1, a3], a4, a5, a2, n] - 
    S2[a6, SP[a1, a3], a5, a2, a4, n] - S2[a6, SP[a1, a3], a5, a4, a2, n] + 
    S2[a6, SP[a1, a4], a2, a3, a5, n] + S2[a6, SP[a1, a4], a2, a5, a3, n] + 
    S2[a6, SP[a1, a4], a3, a2, a5, n] + S2[a6, SP[a1, a4], a3, a5, a2, n] + 
    S2[a6, SP[a1, a4], a5, a2, a3, n] + S2[a6, SP[a1, a4], a5, a3, a2, n] + 
    S2[a6, SP[a2, a3], a1, a4, a5, n] + S2[a6, SP[a2, a3], a1, a5, a4, n] + 
    S2[a6, SP[a2, a3], a4, a1, a5, n] - S2[a6, SP[a3, a4], a1, a2, a5, n] - 
    S2[a6, SP[a3, a4], a1, a5, a2, n] + S2[SP[a2, a6], a3, a1, a4, a5, n] + 
    S2[SP[a2, a6], a3, a1, a5, a4, n] + S2[SP[a2, a6], a3, a4, a1, a5, n] + 
    S2[SP[a2, a6], a4, a3, a1, a5, n] - S2[SP[a3, a6], a1, a2, a4, a5, n] - 
    S2[SP[a3, a6], a1, a2, a5, a4, n] - S2[SP[a3, a6], a1, a4, a2, a5, n] - 
    S2[SP[a3, a6], a1, a4, a5, a2, n] - S2[SP[a3, a6], a1, a5, a2, a4, n] - 
    S2[SP[a3, a6], a1, a5, a4, a2, n] - S2[SP[a3, a6], a4, a1, a2, a5, n] - 
    S2[SP[a3, a6], a4, a1, a5, a2, n] + S2[SP[a4, a6], a1, a2, a3, a5, n] + 
    S2[SP[a4, a6], a1, a2, a5, a3, n] + S2[SP[a4, a6], a1, a3, a2, a5, n] + 
    S2[SP[a4, a6], a1, a3, a5, a2, n] + S2[SP[a4, a6], a1, a5, a2, a3, n] + 
    S2[SP[a4, a6], a1, a5, a3, a2, n] - S2[SP[a4, a6], a2, a3, a1, a5, n] - 
    S2[a6, a3, a2, a1, a4, a5, n] - S2[a6, a3, a2, a1, a5, a4, n] - 
    S2[a6, a3, a2, a4, a1, a5, n] - S2[a6, a3, a4, a2, a1, a5, n] - 
    S2[a6, a4, a3, a2, a1, a5, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a4_, a6_, a3_, a2_, a5_, a1_, n_] :> 
  -(S2[a4, n]*S2[a1, a6, a3, a2, a5, n]) - S2[a1, a6, a3, a2, SP[a4, a5], 
     n] - S2[a1, a6, a3, SP[a2, a4], a5, n] - S2[a1, a6, SP[a3, a4], a2, a5, 
     n] - S2[a1, SP[a4, a6], a3, a2, a5, n] + 
    S2[a4, n]*S2[a2, a6, a3, a1, a5, n] + S2[a2, a6, a3, a1, SP[a4, a5], n] + 
    S2[a2, a6, a3, SP[a1, a4], a5, n] + S2[a2, a6, SP[a3, a4], a1, a5, n] + 
    S2[a2, SP[a4, a6], a3, a1, a5, n] - S2[a4, n]*S2[a3, a6, a1, a5, a2, n] - 
    S2[a3, a6, a1, a5, SP[a2, a4], n] - S2[a3, a6, a1, SP[a4, a5], a2, n] - 
    S2[a3, a6, SP[a1, a4], a5, a2, n] - S2[a3, SP[a4, a6], a1, a5, a2, n] + 
    S2[a3, n]*S2[a4, a6, a1, a5, a2, n] + S2[a4, a6, a1, a5, SP[a2, a3], n] + 
    S2[a4, a6, a1, SP[a3, a5], a2, n] - S2[a2, n]*S2[a4, a6, a3, a1, a5, n] - 
    S2[a4, a6, a3, a1, SP[a2, a5], n] + S2[a1, n]*S2[a4, a6, a3, a2, a5, n] + 
    S2[a4, a6, a3, a2, SP[a1, a5], n] + S2[a4, a6, SP[a1, a3], a2, a5, n] + 
    S2[a4, a6, SP[a1, a3], a5, a2, n] - S2[a4, a6, SP[a2, a3], a1, a5, n] + 
    S2[a4, SP[a1, a6], a3, a2, a5, n] - S2[a4, SP[a2, a6], a3, a1, a5, n] + 
    S2[a4, SP[a3, a6], a1, a5, a2, n] - S2[a4, n]*S2[a6, a1, a3, a2, a5, n] - 
    S2[a6, a1, a3, a2, SP[a4, a5], n] - S2[a4, n]*S2[a6, a1, a3, a5, a2, n] - 
    S2[a6, a1, a3, a5, SP[a2, a4], n] - S2[a6, a1, a3, SP[a2, a4], a5, n] - 
    S2[a6, a1, a3, SP[a4, a5], a2, n] + S2[a3, n]*S2[a6, a1, a4, a5, a2, n] + 
    S2[a6, a1, a4, a5, SP[a2, a3], n] + S2[a6, a1, a4, SP[a3, a5], a2, n] - 
    S2[a4, n]*S2[a6, a1, a5, a2, a3, n] + 
    S2[a3, n]*S2[a6, a1, a5, a2, a4, n] - 
    S2[a4, n]*S2[a6, a1, a5, a3, a2, n] - S2[a6, a1, a5, a3, SP[a2, a4], n] + 
    S2[a3, n]*S2[a6, a1, a5, a4, a2, n] + S2[a6, a1, a5, a4, SP[a2, a3], n] + 
    S2[a6, a1, a5, SP[a2, a3], a4, n] - S2[a6, a1, a5, SP[a2, a4], a3, n] - 
    S2[a6, a1, SP[a3, a4], a2, a5, n] + S2[a6, a1, SP[a3, a5], a2, a4, n] + 
    S2[a6, a1, SP[a3, a5], a4, a2, n] - S2[a6, a1, SP[a4, a5], a2, a3, n] - 
    S2[a6, a1, SP[a4, a5], a3, a2, n] + S2[a4, n]*S2[a6, a2, a3, a1, a5, n] + 
    S2[a6, a2, a3, a1, SP[a4, a5], n] + S2[a6, a2, a3, SP[a1, a4], a5, n] + 
    S2[a6, a2, SP[a3, a4], a1, a5, n] - S2[a2, n]*S2[a6, a3, a1, a4, a5, n] - 
    S2[a6, a3, a1, a4, SP[a2, a5], n] - S2[a2, n]*S2[a6, a3, a1, a5, a4, n] - 
    S2[a6, a3, a1, a5, SP[a2, a4], n] - S2[a6, a3, a1, SP[a2, a4], a5, n] - 
    S2[a6, a3, a1, SP[a2, a5], a4, n] + S2[a1, n]*S2[a6, a3, a2, a4, a5, n] + 
    S2[a6, a3, a2, a4, SP[a1, a5], n] + S2[a1, n]*S2[a6, a3, a2, a5, a4, n] + 
    S2[a6, a3, a2, a5, SP[a1, a4], n] + S2[a6, a3, a2, SP[a1, a4], a5, n] + 
    S2[a6, a3, a2, SP[a1, a5], a4, n] - S2[a2, n]*S2[a6, a3, a4, a1, a5, n] - 
    S2[a6, a3, a4, a1, SP[a2, a5], n] + S2[a1, n]*S2[a6, a3, a4, a2, a5, n] + 
    S2[a6, a3, a4, a2, SP[a1, a5], n] + S2[a6, a3, SP[a1, a4], a2, a5, n] - 
    S2[a6, a3, SP[a2, a4], a1, a5, n] + S2[a3, n]*S2[a6, a4, a1, a5, a2, n] + 
    S2[a6, a4, a1, a5, SP[a2, a3], n] + S2[a6, a4, a1, SP[a3, a5], a2, n] - 
    S2[a2, n]*S2[a6, a4, a3, a1, a5, n] - S2[a6, a4, a3, a1, SP[a2, a5], n] + 
    S2[a1, n]*S2[a6, a4, a3, a2, a5, n] + S2[a6, a4, a3, a2, SP[a1, a5], n] + 
    S2[a6, a4, SP[a1, a3], a2, a5, n] + S2[a6, a4, SP[a1, a3], a5, a2, n] - 
    S2[a6, a4, SP[a2, a3], a1, a5, n] + S2[a6, SP[a1, a3], a2, a4, a5, n] + 
    S2[a6, SP[a1, a3], a2, a5, a4, n] + S2[a6, SP[a1, a3], a4, a2, a5, n] + 
    S2[a6, SP[a1, a3], a4, a5, a2, n] + S2[a6, SP[a1, a3], a5, a2, a4, n] + 
    S2[a6, SP[a1, a3], a5, a4, a2, n] - S2[a6, SP[a1, a4], a3, a5, a2, n] - 
    S2[a6, SP[a1, a4], a5, a2, a3, n] - S2[a6, SP[a1, a4], a5, a3, a2, n] - 
    S2[a6, SP[a2, a3], a1, a4, a5, n] - S2[a6, SP[a2, a3], a1, a5, a4, n] - 
    S2[a6, SP[a2, a3], a4, a1, a5, n] + S2[a6, SP[a3, a4], a1, a5, a2, n] + 
    S2[SP[a1, a6], a3, a2, a4, a5, n] + S2[SP[a1, a6], a3, a2, a5, a4, n] + 
    S2[SP[a1, a6], a3, a4, a2, a5, n] + S2[SP[a1, a6], a4, a3, a2, a5, n] - 
    S2[SP[a2, a6], a3, a1, a4, a5, n] - S2[SP[a2, a6], a3, a1, a5, a4, n] - 
    S2[SP[a2, a6], a3, a4, a1, a5, n] - S2[SP[a2, a6], a4, a3, a1, a5, n] + 
    S2[SP[a3, a6], a1, a4, a5, a2, n] + S2[SP[a3, a6], a1, a5, a2, a4, n] + 
    S2[SP[a3, a6], a1, a5, a4, a2, n] + S2[SP[a3, a6], a4, a1, a5, a2, n] - 
    S2[SP[a4, a6], a1, a3, a2, a5, n] - S2[SP[a4, a6], a1, a3, a5, a2, n] - 
    S2[SP[a4, a6], a1, a5, a2, a3, n] - S2[SP[a4, a6], a1, a5, a3, a2, n] + 
    S2[SP[a4, a6], a2, a3, a1, a5, n] - S2[a6, a3, a2, a4, a5, a1, n] - 
    S2[a6, a3, a2, a5, a1, a4, n] - S2[a6, a3, a2, a5, a4, a1, n] - 
    S2[a6, a3, a4, a2, a5, a1, n] - S2[a6, a4, a3, a2, a5, a1, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a4_, a6_, a3_, a5_, a1_, a2_, n_] :> 
  S2[a4, n]*S2[a6, a3, a5, a1, a2, n] + S2[a6, a3, a5, a1, SP[a2, a4], n] + 
    S2[a6, a3, a5, SP[a1, a4], a2, n] + S2[a6, a3, SP[a4, a5], a1, a2, n] + 
    S2[a6, SP[a3, a4], a5, a1, a2, n] + S2[SP[a4, a6], a3, a5, a1, a2, n] - 
    S2[a6, a3, a4, a5, a1, a2, n] - S2[a6, a3, a5, a1, a2, a4, n] - 
    S2[a6, a3, a5, a1, a4, a2, n] - S2[a6, a3, a5, a4, a1, a2, n] - 
    S2[a6, a4, a3, a5, a1, a2, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a4_, a6_, a3_, a5_, a2_, a1_, n_] :> 
  -(S2[a4, n]*S2[a1, a6, a3, a5, a2, n]) - S2[a1, a6, a3, a5, SP[a2, a4], 
     n] - S2[a1, a6, a3, SP[a4, a5], a2, n] - S2[a1, a6, SP[a3, a4], a5, a2, 
     n] - S2[a1, SP[a4, a6], a3, a5, a2, n] + 
    S2[a4, n]*S2[a3, a6, a1, a5, a2, n] + S2[a3, a6, a1, a5, SP[a2, a4], n] + 
    S2[a3, a6, a1, SP[a4, a5], a2, n] + S2[a3, a6, SP[a1, a4], a5, a2, n] + 
    S2[a3, SP[a4, a6], a1, a5, a2, n] - S2[a3, n]*S2[a4, a6, a1, a5, a2, n] - 
    S2[a4, a6, a1, a5, SP[a2, a3], n] - S2[a4, a6, a1, SP[a3, a5], a2, n] + 
    S2[a1, n]*S2[a4, a6, a3, a5, a2, n] + S2[a4, a6, a3, a5, SP[a1, a2], n] + 
    S2[a4, a6, a3, SP[a1, a5], a2, n] + S2[a4, SP[a1, a6], a3, a5, a2, n] - 
    S2[a4, SP[a3, a6], a1, a5, a2, n] - S2[a3, n]*S2[a6, a1, a4, a5, a2, n] - 
    S2[a6, a1, a4, a5, SP[a2, a3], n] - S2[a6, a1, a4, SP[a3, a5], a2, n] + 
    S2[a4, n]*S2[a6, a1, a5, a2, a3, n] - 
    S2[a3, n]*S2[a6, a1, a5, a2, a4, n] + 
    S2[a4, n]*S2[a6, a1, a5, a3, a2, n] + S2[a6, a1, a5, a3, SP[a2, a4], n] - 
    S2[a3, n]*S2[a6, a1, a5, a4, a2, n] - S2[a6, a1, a5, a4, SP[a2, a3], n] - 
    S2[a6, a1, a5, SP[a2, a3], a4, n] + S2[a6, a1, a5, SP[a2, a4], a3, n] - 
    S2[a6, a1, SP[a3, a4], a5, a2, n] - S2[a6, a1, SP[a3, a5], a2, a4, n] - 
    S2[a6, a1, SP[a3, a5], a4, a2, n] + S2[a6, a1, SP[a4, a5], a2, a3, n] + 
    S2[a6, a1, SP[a4, a5], a3, a2, n] + S2[a1, n]*S2[a6, a3, a4, a5, a2, n] + 
    S2[a6, a3, a4, a5, SP[a1, a2], n] + S2[a6, a3, a4, SP[a1, a5], a2, n] - 
    S2[a4, n]*S2[a6, a3, a5, a1, a2, n] - S2[a6, a3, a5, a1, SP[a2, a4], n] + 
    S2[a1, n]*S2[a6, a3, a5, a2, a4, n] + S2[a6, a3, a5, a2, SP[a1, a4], n] + 
    S2[a1, n]*S2[a6, a3, a5, a4, a2, n] + S2[a6, a3, a5, a4, SP[a1, a2], n] + 
    S2[a6, a3, a5, SP[a1, a2], a4, n] + S2[a6, a3, SP[a1, a4], a5, a2, n] + 
    S2[a6, a3, SP[a1, a5], a2, a4, n] + S2[a6, a3, SP[a1, a5], a4, a2, n] - 
    S2[a6, a3, SP[a4, a5], a1, a2, n] - S2[a3, n]*S2[a6, a4, a1, a5, a2, n] - 
    S2[a6, a4, a1, a5, SP[a2, a3], n] - S2[a6, a4, a1, SP[a3, a5], a2, n] + 
    S2[a1, n]*S2[a6, a4, a3, a5, a2, n] + S2[a6, a4, a3, a5, SP[a1, a2], n] + 
    S2[a6, a4, a3, SP[a1, a5], a2, n] + S2[a6, SP[a1, a4], a3, a5, a2, n] + 
    S2[a6, SP[a1, a4], a5, a2, a3, n] + S2[a6, SP[a1, a4], a5, a3, a2, n] - 
    S2[a6, SP[a3, a4], a1, a5, a2, n] - S2[a6, SP[a3, a4], a5, a1, a2, n] + 
    S2[SP[a1, a6], a3, a4, a5, a2, n] + S2[SP[a1, a6], a3, a5, a2, a4, n] + 
    S2[SP[a1, a6], a3, a5, a4, a2, n] + S2[SP[a1, a6], a4, a3, a5, a2, n] - 
    S2[SP[a3, a6], a1, a4, a5, a2, n] - S2[SP[a3, a6], a1, a5, a2, a4, n] - 
    S2[SP[a3, a6], a1, a5, a4, a2, n] - S2[SP[a3, a6], a4, a1, a5, a2, n] + 
    S2[SP[a4, a6], a1, a5, a2, a3, n] + S2[SP[a4, a6], a1, a5, a3, a2, n] - 
    S2[SP[a4, a6], a3, a5, a1, a2, n] - S2[a6, a3, a4, a5, a2, a1, n] - 
    S2[a6, a3, a5, a2, a1, a4, n] - S2[a6, a3, a5, a2, a4, a1, n] - 
    S2[a6, a3, a5, a4, a2, a1, n] - S2[a6, a4, a3, a5, a2, a1, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a4_, a6_, a5_, a1_, a2_, a3_, n_] :> 
  S2[a4, n]*S2[a6, a5, a1, a2, a3, n] + S2[a6, a5, a1, a2, SP[a3, a4], n] + 
    S2[a6, a5, a1, SP[a2, a4], a3, n] + S2[a6, a5, SP[a1, a4], a2, a3, n] + 
    S2[a6, SP[a4, a5], a1, a2, a3, n] + S2[SP[a4, a6], a5, a1, a2, a3, n] - 
    S2[a6, a4, a5, a1, a2, a3, n] - S2[a6, a5, a1, a2, a3, a4, n] - 
    S2[a6, a5, a1, a2, a4, a3, n] - S2[a6, a5, a1, a4, a2, a3, n] - 
    S2[a6, a5, a4, a1, a2, a3, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a4_, a6_, a5_, a1_, a3_, a2_, n_] :> 
  S2[a4, n]*S2[a6, a5, a1, a3, a2, n] + S2[a6, a5, a1, a3, SP[a2, a4], n] + 
    S2[a6, a5, a1, SP[a3, a4], a2, n] + S2[a6, a5, SP[a1, a4], a3, a2, n] + 
    S2[a6, SP[a4, a5], a1, a3, a2, n] + S2[SP[a4, a6], a5, a1, a3, a2, n] - 
    S2[a6, a4, a5, a1, a3, a2, n] - S2[a6, a5, a1, a3, a2, a4, n] - 
    S2[a6, a5, a1, a3, a4, a2, n] - S2[a6, a5, a1, a4, a3, a2, n] - 
    S2[a6, a5, a4, a1, a3, a2, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a4_, a6_, a5_, a2_, a1_, a3_, n_] :> 
  -(S2[a4, n]*S2[a2, a6, a5, a1, a3, n]) - S2[a2, a6, a5, a1, SP[a3, a4], 
     n] - S2[a2, a6, a5, SP[a1, a4], a3, n] - S2[a2, a6, SP[a4, a5], a1, a3, 
     n] - S2[a2, SP[a4, a6], a5, a1, a3, n] + 
    S2[a2, n]*S2[a4, a6, a5, a1, a3, n] + S2[a4, a6, a5, a1, SP[a2, a3], n] + 
    S2[a4, a6, a5, SP[a1, a2], a3, n] + S2[a4, a6, SP[a2, a5], a1, a3, n] + 
    S2[a4, SP[a2, a6], a5, a1, a3, n] - S2[a4, n]*S2[a6, a2, a5, a1, a3, n] - 
    S2[a6, a2, a5, a1, SP[a3, a4], n] - S2[a6, a2, a5, SP[a1, a4], a3, n] - 
    S2[a6, a2, SP[a4, a5], a1, a3, n] + S2[a2, n]*S2[a6, a4, a5, a1, a3, n] + 
    S2[a6, a4, a5, a1, SP[a2, a3], n] + S2[a6, a4, a5, SP[a1, a2], a3, n] + 
    S2[a6, a4, SP[a2, a5], a1, a3, n] - S2[a4, n]*S2[a6, a5, a1, a2, a3, n] - 
    S2[a6, a5, a1, a2, SP[a3, a4], n] - S2[a4, n]*S2[a6, a5, a1, a3, a2, n] + 
    S2[a2, n]*S2[a6, a5, a1, a3, a4, n] + 
    S2[a2, n]*S2[a6, a5, a1, a4, a3, n] + S2[a6, a5, a1, a4, SP[a2, a3], n] + 
    S2[a6, a5, a1, SP[a2, a3], a4, n] - S2[a6, a5, a1, SP[a3, a4], a2, n] + 
    S2[a2, n]*S2[a6, a5, a4, a1, a3, n] + S2[a6, a5, a4, a1, SP[a2, a3], n] + 
    S2[a6, a5, a4, SP[a1, a2], a3, n] + S2[a6, a5, SP[a1, a2], a3, a4, n] + 
    S2[a6, a5, SP[a1, a2], a4, a3, n] - S2[a6, a5, SP[a1, a4], a2, a3, n] - 
    S2[a6, a5, SP[a1, a4], a3, a2, n] + S2[a6, a5, SP[a2, a4], a1, a3, n] + 
    S2[a6, SP[a2, a5], a1, a3, a4, n] + S2[a6, SP[a2, a5], a1, a4, a3, n] + 
    S2[a6, SP[a2, a5], a4, a1, a3, n] - S2[a6, SP[a4, a5], a1, a2, a3, n] - 
    S2[a6, SP[a4, a5], a1, a3, a2, n] + S2[SP[a2, a6], a4, a5, a1, a3, n] + 
    S2[SP[a2, a6], a5, a1, a3, a4, n] + S2[SP[a2, a6], a5, a1, a4, a3, n] + 
    S2[SP[a2, a6], a5, a4, a1, a3, n] - S2[SP[a4, a6], a2, a5, a1, a3, n] - 
    S2[SP[a4, a6], a5, a1, a2, a3, n] - S2[SP[a4, a6], a5, a1, a3, a2, n] - 
    S2[a6, a4, a5, a2, a1, a3, n] - S2[a6, a5, a2, a1, a3, a4, n] - 
    S2[a6, a5, a2, a1, a4, a3, n] - S2[a6, a5, a2, a4, a1, a3, n] - 
    S2[a6, a5, a4, a2, a1, a3, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a4_, a6_, a5_, a2_, a3_, a1_, n_] :> 
  -(S2[a4, n]*S2[a1, a6, a5, a2, a3, n]) - S2[a1, a6, a5, a2, SP[a3, a4], 
     n] - S2[a1, a6, a5, SP[a2, a4], a3, n] - S2[a1, a6, SP[a4, a5], a2, a3, 
     n] - S2[a1, SP[a4, a6], a5, a2, a3, n] + 
    S2[a4, n]*S2[a2, a6, a5, a1, a3, n] + S2[a2, a6, a5, a1, SP[a3, a4], n] + 
    S2[a2, a6, a5, SP[a1, a4], a3, n] + S2[a2, a6, SP[a4, a5], a1, a3, n] + 
    S2[a2, SP[a4, a6], a5, a1, a3, n] - S2[a2, n]*S2[a4, a6, a5, a1, a3, n] - 
    S2[a4, a6, a5, a1, SP[a2, a3], n] + S2[a1, n]*S2[a4, a6, a5, a2, a3, n] + 
    S2[a4, a6, a5, a2, SP[a1, a3], n] + S2[a4, a6, SP[a1, a5], a2, a3, n] - 
    S2[a4, a6, SP[a2, a5], a1, a3, n] + S2[a4, SP[a1, a6], a5, a2, a3, n] - 
    S2[a4, SP[a2, a6], a5, a1, a3, n] - S2[a4, n]*S2[a6, a1, a5, a2, a3, n] - 
    S2[a6, a1, a5, a2, SP[a3, a4], n] - S2[a6, a1, a5, SP[a2, a4], a3, n] - 
    S2[a6, a1, SP[a4, a5], a2, a3, n] + S2[a4, n]*S2[a6, a2, a5, a1, a3, n] + 
    S2[a6, a2, a5, a1, SP[a3, a4], n] + S2[a6, a2, a5, SP[a1, a4], a3, n] + 
    S2[a6, a2, SP[a4, a5], a1, a3, n] - S2[a2, n]*S2[a6, a4, a5, a1, a3, n] - 
    S2[a6, a4, a5, a1, SP[a2, a3], n] + S2[a1, n]*S2[a6, a4, a5, a2, a3, n] + 
    S2[a6, a4, a5, a2, SP[a1, a3], n] + S2[a6, a4, SP[a1, a5], a2, a3, n] - 
    S2[a6, a4, SP[a2, a5], a1, a3, n] + S2[a4, n]*S2[a6, a5, a1, a3, a2, n] - 
    S2[a2, n]*S2[a6, a5, a1, a3, a4, n] - 
    S2[a2, n]*S2[a6, a5, a1, a4, a3, n] - S2[a6, a5, a1, a4, SP[a2, a3], n] - 
    S2[a6, a5, a1, SP[a2, a3], a4, n] - S2[a6, a5, a1, SP[a2, a4], a3, n] + 
    S2[a6, a5, a1, SP[a3, a4], a2, n] + S2[a1, n]*S2[a6, a5, a2, a3, a4, n] + 
    S2[a6, a5, a2, a3, SP[a1, a4], n] + S2[a1, n]*S2[a6, a5, a2, a4, a3, n] + 
    S2[a6, a5, a2, a4, SP[a1, a3], n] + S2[a6, a5, a2, SP[a1, a3], a4, n] + 
    S2[a6, a5, a2, SP[a1, a4], a3, n] - S2[a2, n]*S2[a6, a5, a4, a1, a3, n] - 
    S2[a6, a5, a4, a1, SP[a2, a3], n] + S2[a1, n]*S2[a6, a5, a4, a2, a3, n] + 
    S2[a6, a5, a4, a2, SP[a1, a3], n] + S2[a6, a5, SP[a1, a4], a2, a3, n] + 
    S2[a6, a5, SP[a1, a4], a3, a2, n] - S2[a6, a5, SP[a2, a4], a1, a3, n] + 
    S2[a6, SP[a1, a5], a2, a3, a4, n] + S2[a6, SP[a1, a5], a2, a4, a3, n] + 
    S2[a6, SP[a1, a5], a4, a2, a3, n] - S2[a6, SP[a2, a5], a1, a3, a4, n] - 
    S2[a6, SP[a2, a5], a1, a4, a3, n] - S2[a6, SP[a2, a5], a4, a1, a3, n] + 
    S2[a6, SP[a4, a5], a1, a3, a2, n] + S2[SP[a1, a6], a4, a5, a2, a3, n] + 
    S2[SP[a1, a6], a5, a2, a3, a4, n] + S2[SP[a1, a6], a5, a2, a4, a3, n] + 
    S2[SP[a1, a6], a5, a4, a2, a3, n] - S2[SP[a2, a6], a4, a5, a1, a3, n] - 
    S2[SP[a2, a6], a5, a1, a3, a4, n] - S2[SP[a2, a6], a5, a1, a4, a3, n] - 
    S2[SP[a2, a6], a5, a4, a1, a3, n] - S2[SP[a4, a6], a1, a5, a2, a3, n] + 
    S2[SP[a4, a6], a2, a5, a1, a3, n] + S2[SP[a4, a6], a5, a1, a3, a2, n] - 
    S2[a6, a4, a5, a2, a3, a1, n] - S2[a6, a5, a2, a3, a1, a4, n] - 
    S2[a6, a5, a2, a3, a4, a1, n] - S2[a6, a5, a2, a4, a3, a1, n] - 
    S2[a6, a5, a4, a2, a3, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a4_, a6_, a5_, a3_, a1_, a2_, n_] :> 
  -(S2[a4, n]*S2[a3, a6, a5, a1, a2, n]) - S2[a3, a6, a5, a1, SP[a2, a4], 
     n] - S2[a3, a6, a5, SP[a1, a4], a2, n] - S2[a3, a6, SP[a4, a5], a1, a2, 
     n] - S2[a3, SP[a4, a6], a5, a1, a2, n] + 
    S2[a3, n]*S2[a4, a6, a5, a1, a2, n] + S2[a4, a6, a5, a1, SP[a2, a3], n] + 
    S2[a4, a6, a5, SP[a1, a3], a2, n] + S2[a4, a6, SP[a3, a5], a1, a2, n] + 
    S2[a4, SP[a3, a6], a5, a1, a2, n] - S2[a4, n]*S2[a6, a3, a5, a1, a2, n] - 
    S2[a6, a3, a5, a1, SP[a2, a4], n] - S2[a6, a3, a5, SP[a1, a4], a2, n] - 
    S2[a6, a3, SP[a4, a5], a1, a2, n] + S2[a3, n]*S2[a6, a4, a5, a1, a2, n] + 
    S2[a6, a4, a5, a1, SP[a2, a3], n] + S2[a6, a4, a5, SP[a1, a3], a2, n] + 
    S2[a6, a4, SP[a3, a5], a1, a2, n] - S2[a4, n]*S2[a6, a5, a1, a2, a3, n] + 
    S2[a3, n]*S2[a6, a5, a1, a2, a4, n] - 
    S2[a4, n]*S2[a6, a5, a1, a3, a2, n] - S2[a6, a5, a1, a3, SP[a2, a4], n] + 
    S2[a3, n]*S2[a6, a5, a1, a4, a2, n] + S2[a6, a5, a1, a4, SP[a2, a3], n] + 
    S2[a6, a5, a1, SP[a2, a3], a4, n] - S2[a6, a5, a1, SP[a2, a4], a3, n] + 
    S2[a3, n]*S2[a6, a5, a4, a1, a2, n] + S2[a6, a5, a4, a1, SP[a2, a3], n] + 
    S2[a6, a5, a4, SP[a1, a3], a2, n] + S2[a6, a5, SP[a1, a3], a2, a4, n] + 
    S2[a6, a5, SP[a1, a3], a4, a2, n] - S2[a6, a5, SP[a1, a4], a2, a3, n] - 
    S2[a6, a5, SP[a1, a4], a3, a2, n] + S2[a6, a5, SP[a3, a4], a1, a2, n] + 
    S2[a6, SP[a3, a5], a1, a2, a4, n] + S2[a6, SP[a3, a5], a1, a4, a2, n] + 
    S2[a6, SP[a3, a5], a4, a1, a2, n] - S2[a6, SP[a4, a5], a1, a2, a3, n] - 
    S2[a6, SP[a4, a5], a1, a3, a2, n] + S2[SP[a3, a6], a4, a5, a1, a2, n] + 
    S2[SP[a3, a6], a5, a1, a2, a4, n] + S2[SP[a3, a6], a5, a1, a4, a2, n] + 
    S2[SP[a3, a6], a5, a4, a1, a2, n] - S2[SP[a4, a6], a3, a5, a1, a2, n] - 
    S2[SP[a4, a6], a5, a1, a2, a3, n] - S2[SP[a4, a6], a5, a1, a3, a2, n] - 
    S2[a6, a4, a5, a3, a1, a2, n] - S2[a6, a5, a3, a1, a2, a4, n] - 
    S2[a6, a5, a3, a1, a4, a2, n] - S2[a6, a5, a3, a4, a1, a2, n] - 
    S2[a6, a5, a4, a3, a1, a2, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a4_, a6_, a5_, a3_, a2_, a1_, n_] :> 
  -(S2[a4, n]*S2[a1, a6, a5, a3, a2, n]) - S2[a1, a6, a5, a3, SP[a2, a4], 
     n] - S2[a1, a6, a5, SP[a3, a4], a2, n] - S2[a1, a6, SP[a4, a5], a3, a2, 
     n] - S2[a1, SP[a4, a6], a5, a3, a2, n] + 
    S2[a4, n]*S2[a3, a6, a5, a1, a2, n] + S2[a3, a6, a5, a1, SP[a2, a4], n] + 
    S2[a3, a6, a5, SP[a1, a4], a2, n] + S2[a3, a6, SP[a4, a5], a1, a2, n] + 
    S2[a3, SP[a4, a6], a5, a1, a2, n] - S2[a3, n]*S2[a4, a6, a5, a1, a2, n] - 
    S2[a4, a6, a5, a1, SP[a2, a3], n] + S2[a1, n]*S2[a4, a6, a5, a3, a2, n] + 
    S2[a4, a6, a5, a3, SP[a1, a2], n] + S2[a4, a6, SP[a1, a5], a3, a2, n] - 
    S2[a4, a6, SP[a3, a5], a1, a2, n] + S2[a4, SP[a1, a6], a5, a3, a2, n] - 
    S2[a4, SP[a3, a6], a5, a1, a2, n] - S2[a4, n]*S2[a6, a1, a5, a3, a2, n] - 
    S2[a6, a1, a5, a3, SP[a2, a4], n] - S2[a6, a1, a5, SP[a3, a4], a2, n] - 
    S2[a6, a1, SP[a4, a5], a3, a2, n] + S2[a4, n]*S2[a6, a3, a5, a1, a2, n] + 
    S2[a6, a3, a5, a1, SP[a2, a4], n] + S2[a6, a3, a5, SP[a1, a4], a2, n] + 
    S2[a6, a3, SP[a4, a5], a1, a2, n] - S2[a3, n]*S2[a6, a4, a5, a1, a2, n] - 
    S2[a6, a4, a5, a1, SP[a2, a3], n] + S2[a1, n]*S2[a6, a4, a5, a3, a2, n] + 
    S2[a6, a4, a5, a3, SP[a1, a2], n] + S2[a6, a4, SP[a1, a5], a3, a2, n] - 
    S2[a6, a4, SP[a3, a5], a1, a2, n] + S2[a4, n]*S2[a6, a5, a1, a2, a3, n] - 
    S2[a3, n]*S2[a6, a5, a1, a2, a4, n] - 
    S2[a3, n]*S2[a6, a5, a1, a4, a2, n] - S2[a6, a5, a1, a4, SP[a2, a3], n] - 
    S2[a6, a5, a1, SP[a2, a3], a4, n] + S2[a6, a5, a1, SP[a2, a4], a3, n] - 
    S2[a6, a5, a1, SP[a3, a4], a2, n] + S2[a1, n]*S2[a6, a5, a3, a2, a4, n] + 
    S2[a6, a5, a3, a2, SP[a1, a4], n] + S2[a1, n]*S2[a6, a5, a3, a4, a2, n] + 
    S2[a6, a5, a3, a4, SP[a1, a2], n] + S2[a6, a5, a3, SP[a1, a2], a4, n] + 
    S2[a6, a5, a3, SP[a1, a4], a2, n] - S2[a3, n]*S2[a6, a5, a4, a1, a2, n] - 
    S2[a6, a5, a4, a1, SP[a2, a3], n] + S2[a1, n]*S2[a6, a5, a4, a3, a2, n] + 
    S2[a6, a5, a4, a3, SP[a1, a2], n] + S2[a6, a5, SP[a1, a4], a2, a3, n] + 
    S2[a6, a5, SP[a1, a4], a3, a2, n] - S2[a6, a5, SP[a3, a4], a1, a2, n] + 
    S2[a6, SP[a1, a5], a3, a2, a4, n] + S2[a6, SP[a1, a5], a3, a4, a2, n] + 
    S2[a6, SP[a1, a5], a4, a3, a2, n] - S2[a6, SP[a3, a5], a1, a2, a4, n] - 
    S2[a6, SP[a3, a5], a1, a4, a2, n] - S2[a6, SP[a3, a5], a4, a1, a2, n] + 
    S2[a6, SP[a4, a5], a1, a2, a3, n] + S2[SP[a1, a6], a4, a5, a3, a2, n] + 
    S2[SP[a1, a6], a5, a3, a2, a4, n] + S2[SP[a1, a6], a5, a3, a4, a2, n] + 
    S2[SP[a1, a6], a5, a4, a3, a2, n] - S2[SP[a3, a6], a4, a5, a1, a2, n] - 
    S2[SP[a3, a6], a5, a1, a2, a4, n] - S2[SP[a3, a6], a5, a1, a4, a2, n] - 
    S2[SP[a3, a6], a5, a4, a1, a2, n] - S2[SP[a4, a6], a1, a5, a3, a2, n] + 
    S2[SP[a4, a6], a3, a5, a1, a2, n] + S2[SP[a4, a6], a5, a1, a2, a3, n] - 
    S2[a6, a4, a5, a3, a2, a1, n] - S2[a6, a5, a3, a2, a1, a4, n] - 
    S2[a6, a5, a3, a2, a4, a1, n] - S2[a6, a5, a3, a4, a2, a1, n] - 
    S2[a6, a5, a4, a3, a2, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a5_, a1_, a2_, a3_, a4_, a6_, n_] :> 
  -(S2[a1, a2, a5, n]*S2[a3, a4, a6, n]) - S2[a1, a5, a2, n]*
     S2[a3, a4, a6, n] - S2[SP[a1, a3], SP[a2, a4], SP[a5, a6], n] - 
    S2[SP[a1, a3], SP[a4, a5], SP[a2, a6], n] - 
    S2[a4, a6, n]*S2[a1, a2, a3, a5, n] - S2[a4, a6, n]*
     S2[a1, a2, a5, a3, n] + S2[a1, a2, SP[a3, a4], SP[a5, a6], n] + 
    S2[a1, a2, SP[a4, a5], SP[a3, a6], n] + S2[a1, a3, SP[a2, a4], 
     SP[a5, a6], n] + S2[a1, a3, SP[a4, a5], SP[a2, a6], n] - 
    S2[a4, a6, n]*S2[a1, a5, a2, a3, n] + S2[a1, a5, SP[a2, a4], SP[a3, a6], 
     n] + S2[a1, SP[a2, a3], a4, SP[a5, a6], n] + 
    S2[a1, SP[a2, a3], SP[a4, a5], a6, n] + S2[a1, SP[a2, a4], a3, 
     SP[a5, a6], n] + S2[a1, SP[a2, a4], a5, SP[a3, a6], n] + 
    S2[a1, SP[a2, a4], SP[a3, a6], a5, n] + S2[a1, SP[a2, a4], SP[a5, a6], 
     a3, n] + S2[a1, SP[a3, a5], a4, SP[a2, a6], n] + 
    S2[a1, SP[a3, a5], SP[a2, a4], a6, n] + S2[a1, SP[a4, a5], a2, 
     SP[a3, a6], n] + S2[a1, SP[a4, a5], SP[a2, a6], a3, n] - 
    S2[a1, a5, n]*S2[a2, a3, a4, a6, n] - S2[a1, a5, n]*
     S2[a2, a3, a6, a4, n] + S2[a2, a3, SP[a1, a4], SP[a5, a6], n] + 
    S2[a2, a3, SP[a1, a6], SP[a4, a5], n] - S2[a1, a5, n]*
     S2[a2, a6, a3, a4, n] - S2[a1, a5, n]*S2[a2, a6, a4, a3, n] + 
    S2[a2, a6, SP[a1, a3], SP[a4, a5], n] + S2[a2, a6, SP[a1, a4], 
     SP[a3, a5], n] + S2[a2, SP[a1, a3], a4, SP[a5, a6], n] + 
    S2[a2, SP[a1, a3], a6, SP[a4, a5], n] + S2[a2, SP[a1, a3], SP[a4, a5], 
     a6, n] + S2[a2, SP[a1, a3], SP[a5, a6], a4, n] + 
    S2[a2, SP[a1, a6], a3, SP[a4, a5], n] + S2[a2, SP[a1, a6], a4, 
     SP[a3, a5], n] + S2[a2, SP[a1, a6], SP[a3, a5], a4, n] + 
    S2[a2, SP[a1, a6], SP[a4, a5], a3, n] + S2[a3, a1, SP[a2, a4], 
     SP[a5, a6], n] + S2[a3, a1, SP[a4, a5], SP[a2, a6], n] + 
    S2[a3, SP[a1, a4], a2, SP[a5, a6], n] + S2[a3, SP[a1, a4], a5, 
     SP[a2, a6], n] + S2[a3, SP[a1, a4], SP[a2, a6], a5, n] + 
    S2[a3, SP[a1, a4], SP[a5, a6], a2, n] + S2[a1, a5, n]*
     S2[a4, a6, a2, a3, n] - S2[a4, a6, SP[a1, a2], SP[a3, a5], n] - 
    S2[a4, SP[a1, a6], a2, SP[a3, a5], n] - S2[a4, SP[a1, a6], SP[a2, a5], 
     a3, n] + S2[SP[a1, a2], a3, a4, SP[a5, a6], n] + 
    S2[SP[a1, a2], a3, a6, SP[a4, a5], n] + S2[SP[a1, a2], a3, SP[a4, a5], 
     a6, n] + S2[SP[a1, a2], a3, SP[a5, a6], a4, n] + 
    S2[SP[a1, a2], a6, a3, SP[a4, a5], n] + S2[SP[a1, a2], a6, a4, 
     SP[a3, a5], n] + S2[SP[a1, a2], a6, SP[a3, a5], a4, n] + 
    S2[SP[a1, a2], a6, SP[a4, a5], a3, n] + S2[SP[a1, a2], SP[a3, a5], a4, 
     a6, n] + S2[SP[a1, a2], SP[a3, a5], a6, a4, n] + 
    S2[SP[a1, a2], SP[a5, a6], a3, a4, n] + S2[SP[a1, a2], SP[a5, a6], a4, 
     a3, n] + S2[SP[a1, a3], a2, a4, SP[a5, a6], n] + 
    S2[SP[a1, a3], a2, SP[a4, a5], a6, n] + S2[SP[a1, a3], a4, a2, 
     SP[a5, a6], n] + S2[SP[a1, a3], a4, a5, SP[a2, a6], n] + 
    S2[SP[a1, a3], a4, SP[a2, a6], a5, n] + S2[SP[a1, a3], a4, SP[a5, a6], 
     a2, n] + S2[SP[a1, a3], a5, a4, SP[a2, a6], n] + 
    S2[SP[a1, a3], a5, SP[a2, a4], a6, n] + S2[SP[a1, a3], SP[a2, a4], a5, 
     a6, n] + S2[SP[a1, a3], SP[a2, a4], a6, a5, n] + 
    S2[SP[a1, a3], SP[a4, a5], a2, a6, n] + S2[SP[a1, a3], SP[a4, a5], a6, 
     a2, n] + S2[SP[a1, a4], a2, a3, SP[a5, a6], n] + 
    S2[SP[a1, a4], a2, a5, SP[a3, a6], n] + S2[SP[a1, a4], a2, SP[a3, a6], 
     a5, n] + S2[SP[a1, a4], a2, SP[a5, a6], a3, n] + 
    S2[SP[a1, a4], a5, a2, SP[a3, a6], n] + S2[SP[a1, a4], a5, SP[a2, a6], 
     a3, n] - S2[SP[a1, a4], a6, a2, SP[a3, a5], n] - 
    S2[SP[a1, a4], a6, SP[a2, a5], a3, n] + S2[SP[a1, a4], SP[a2, a6], a3, 
     a5, n] + S2[SP[a1, a4], SP[a2, a6], a5, a3, n] - 
    S2[a6, n]*S2[a1, a2, a3, a4, a5, n] + 
    S2[a5, n]*S2[a1, a2, a3, a4, a6, n] - 
    3*S2[a1, a2, a3, a4, SP[a5, a6], n] - 
    S2[a6, n]*S2[a1, a2, a3, a5, a4, n] + 
    S2[a4, n]*S2[a1, a2, a3, a5, a6, n] + 
    S2[a4, n]*S2[a1, a2, a3, a6, a5, n] - S2[a1, a2, a3, SP[a4, a5], a6, n] - 
    2*S2[a1, a2, a3, SP[a5, a6], a4, n] - 
    S2[a6, n]*S2[a1, a2, a4, a3, a5, n] - 
    2*S2[a1, a2, a4, a3, SP[a5, a6], n] - 
    S2[a6, n]*S2[a1, a2, a4, a5, a3, n] + 
    S2[a3, n]*S2[a1, a2, a4, a5, a6, n] - S2[a1, a2, a4, a5, SP[a3, a6], n] + 
    S2[a3, n]*S2[a1, a2, a4, a6, a5, n] + S2[a1, a2, a4, a6, SP[a3, a5], n] + 
    S2[a1, a2, a4, SP[a3, a5], a6, n] - S2[a1, a2, a4, SP[a3, a6], a5, n] - 
    2*S2[a1, a2, a4, SP[a5, a6], a3, n] - 
    S2[a6, n]*S2[a1, a2, a5, a3, a4, n] + 
    S2[a4, n]*S2[a1, a2, a5, a3, a6, n] - 
    S2[a6, n]*S2[a1, a2, a5, a4, a3, n] + 
    S2[a3, n]*S2[a1, a2, a5, a4, a6, n] - S2[a1, a2, a5, a4, SP[a3, a6], n] + 
    S2[a4, n]*S2[a1, a2, a5, a6, a3, n] + S2[a1, a2, a5, a6, SP[a3, a4], n] + 
    S2[a1, a2, a5, SP[a3, a4], a6, n] - S2[a1, a2, a5, SP[a3, a6], a4, n] + 
    S2[a4, n]*S2[a1, a2, a6, a3, a5, n] - S2[a1, a2, a6, a4, SP[a3, a5], n] + 
    S2[a4, n]*S2[a1, a2, a6, a5, a3, n] + S2[a1, a2, a6, a5, SP[a3, a4], n] + 
    S2[a1, a2, a6, SP[a3, a4], a5, n] - S2[a1, a2, a6, SP[a3, a5], a4, n] + 
    S2[a1, a2, SP[a3, a4], a5, a6, n] + S2[a1, a2, SP[a3, a4], a6, a5, n] - 
    S2[a1, a2, SP[a3, a5], a6, a4, n] - S2[a1, a2, SP[a3, a6], a4, a5, n] - 
    S2[a1, a2, SP[a3, a6], a5, a4, n] - 2*S2[a1, a2, SP[a5, a6], a3, a4, n] - 
    2*S2[a1, a2, SP[a5, a6], a4, a3, n] - 
    S2[a6, n]*S2[a1, a3, a2, a4, a5, n] - 
    2*S2[a1, a3, a2, a4, SP[a5, a6], n] - 
    S2[a6, n]*S2[a1, a3, a2, a5, a4, n] - S2[a1, a3, a2, a5, SP[a4, a6], n] - 
    S2[a1, a3, a2, SP[a4, a5], a6, n] - S2[a1, a3, a2, SP[a4, a6], a5, n] - 
    S2[a1, a3, a2, SP[a5, a6], a4, n] - S2[a6, n]*S2[a1, a3, a4, a2, a5, n] - 
    2*S2[a1, a3, a4, a2, SP[a5, a6], n] - 
    S2[a6, n]*S2[a1, a3, a4, a5, a2, n] + 
    S2[a2, n]*S2[a1, a3, a4, a5, a6, n] - S2[a1, a3, a4, a5, SP[a2, a6], n] + 
    S2[a2, n]*S2[a1, a3, a4, a6, a5, n] + S2[a1, a3, a4, a6, SP[a2, a5], n] + 
    S2[a1, a3, a4, SP[a2, a5], a6, n] - S2[a1, a3, a4, SP[a2, a6], a5, n] - 
    2*S2[a1, a3, a4, SP[a5, a6], a2, n] - 
    S2[a6, n]*S2[a1, a3, a5, a2, a4, n] - S2[a1, a3, a5, a2, SP[a4, a6], n] - 
    S2[a6, n]*S2[a1, a3, a5, a4, a2, n] + 
    S2[a2, n]*S2[a1, a3, a5, a4, a6, n] - S2[a1, a3, a5, a4, SP[a2, a6], n] + 
    S2[a2, n]*S2[a1, a3, a5, a6, a4, n] + S2[a1, a3, a5, a6, SP[a2, a4], n] - 
    S2[a1, a3, a5, SP[a4, a6], a2, n] + S2[a2, n]*S2[a1, a3, a6, a4, a5, n] + 
    S2[a1, a3, a6, a4, SP[a2, a5], n] + S2[a2, n]*S2[a1, a3, a6, a5, a4, n] + 
    S2[a1, a3, a6, a5, SP[a2, a4], n] + S2[a1, a3, a6, SP[a2, a4], a5, n] + 
    S2[a1, a3, a6, SP[a2, a5], a4, n] + S2[a1, a3, SP[a2, a5], a4, a6, n] + 
    S2[a1, a3, SP[a2, a5], a6, a4, n] - S2[a1, a3, SP[a4, a5], a2, a6, n] - 
    S2[a1, a3, SP[a4, a5], a6, a2, n] - S2[a1, a3, SP[a4, a6], a2, a5, n] - 
    S2[a1, a3, SP[a4, a6], a5, a2, n] - S2[a1, a3, SP[a5, a6], a2, a4, n] - 
    S2[a1, a3, SP[a5, a6], a4, a2, n] - S2[a6, n]*S2[a1, a4, a2, a3, a5, n] - 
    2*S2[a1, a4, a2, a3, SP[a5, a6], n] - 
    S2[a6, n]*S2[a1, a4, a2, a5, a3, n] + 
    S2[a3, n]*S2[a1, a4, a2, a5, a6, n] - S2[a1, a4, a2, a5, SP[a3, a6], n] + 
    S2[a3, n]*S2[a1, a4, a2, a6, a5, n] + S2[a1, a4, a2, a6, SP[a3, a5], n] + 
    S2[a1, a4, a2, SP[a3, a5], a6, n] - S2[a1, a4, a2, SP[a3, a6], a5, n] - 
    2*S2[a1, a4, a2, SP[a5, a6], a3, n] - 
    S2[a6, n]*S2[a1, a4, a3, a2, a5, n] - S2[a1, a4, a3, a2, SP[a5, a6], n] - 
    S2[a6, n]*S2[a1, a4, a3, a5, a2, n] - S2[a1, a4, a3, a5, SP[a2, a6], n] - 
    S2[a1, a4, a3, SP[a2, a6], a5, n] - S2[a1, a4, a3, SP[a5, a6], a2, n] - 
    S2[a6, n]*S2[a1, a4, a5, a2, a3, n] + 
    S2[a3, n]*S2[a1, a4, a5, a2, a6, n] - S2[a1, a4, a5, a2, SP[a3, a6], n] - 
    S2[a6, n]*S2[a1, a4, a5, a3, a2, n] - S2[a1, a4, a5, a3, SP[a2, a6], n] + 
    S2[a3, n]*S2[a1, a4, a5, a6, a2, n] + S2[a1, a4, a5, a6, SP[a2, a3], n] + 
    S2[a1, a4, a5, SP[a2, a3], a6, n] - 2*S2[a1, a4, a5, SP[a2, a6], a3, n] + 
    S2[a3, n]*S2[a1, a4, a6, a2, a5, n] + 
    2*S2[a1, a4, a6, a2, SP[a3, a5], n] + 
    S2[a3, n]*S2[a1, a4, a6, a5, a2, n] + S2[a1, a4, a6, a5, SP[a2, a3], n] + 
    S2[a1, a4, a6, SP[a2, a3], a5, n] + S2[a1, a4, a6, SP[a2, a5], a3, n] + 
    S2[a1, a4, a6, SP[a3, a5], a2, n] + S2[a1, a4, SP[a2, a3], a5, a6, n] + 
    S2[a1, a4, SP[a2, a3], a6, a5, n] - 2*S2[a1, a4, SP[a2, a6], a3, a5, n] - 
    2*S2[a1, a4, SP[a2, a6], a5, a3, n] + S2[a1, a4, SP[a3, a5], a2, a6, n] + 
    S2[a1, a4, SP[a3, a5], a6, a2, n] - S2[a1, a4, SP[a5, a6], a2, a3, n] - 
    S2[a1, a4, SP[a5, a6], a3, a2, n] - S2[a6, n]*S2[a1, a5, a2, a3, a4, n] + 
    S2[a4, n]*S2[a1, a5, a2, a3, a6, n] - 
    S2[a6, n]*S2[a1, a5, a2, a4, a3, n] + 
    S2[a3, n]*S2[a1, a5, a2, a4, a6, n] - S2[a1, a5, a2, a4, SP[a3, a6], n] + 
    S2[a4, n]*S2[a1, a5, a2, a6, a3, n] + S2[a1, a5, a2, a6, SP[a3, a4], n] + 
    S2[a1, a5, a2, SP[a3, a4], a6, n] - S2[a1, a5, a2, SP[a3, a6], a4, n] - 
    S2[a6, n]*S2[a1, a5, a3, a2, a4, n] - S2[a1, a5, a3, a2, SP[a4, a6], n] - 
    S2[a6, n]*S2[a1, a5, a3, a4, a2, n] + 
    S2[a2, n]*S2[a1, a5, a3, a4, a6, n] - S2[a1, a5, a3, a4, SP[a2, a6], n] + 
    S2[a2, n]*S2[a1, a5, a3, a6, a4, n] + S2[a1, a5, a3, a6, SP[a2, a4], n] - 
    S2[a1, a5, a3, SP[a4, a6], a2, n] - S2[a6, n]*S2[a1, a5, a4, a2, a3, n] + 
    S2[a3, n]*S2[a1, a5, a4, a2, a6, n] - S2[a1, a5, a4, a2, SP[a3, a6], n] - 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] - S2[a1, a5, a4, a3, SP[a2, a6], n] + 
    S2[a3, n]*S2[a1, a5, a4, a6, a2, n] + S2[a1, a5, a4, a6, SP[a2, a3], n] + 
    S2[a1, a5, a4, SP[a2, a3], a6, n] - 2*S2[a1, a5, a4, SP[a2, a6], a3, n] + 
    S2[a2, n]*S2[a1, a5, a6, a3, a4, n] + S2[a1, a5, a6, a3, SP[a2, a4], n] + 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] + S2[a1, a5, a6, a4, SP[a2, a3], n] + 
    S2[a1, a5, a6, SP[a2, a3], a4, n] + S2[a1, a5, a6, SP[a2, a4], a3, n] + 
    S2[a1, a5, SP[a2, a3], a4, a6, n] + S2[a1, a5, SP[a2, a3], a6, a4, n] + 
    S2[a1, a5, SP[a3, a4], a2, a6, n] + S2[a1, a5, SP[a3, a4], a6, a2, n] - 
    S2[a1, a5, SP[a3, a6], a2, a4, n] - S2[a1, a5, SP[a3, a6], a4, a2, n] - 
    S2[a1, a5, SP[a4, a6], a2, a3, n] - S2[a1, a5, SP[a4, a6], a3, a2, n] + 
    S2[a2, n]*S2[a1, a6, a3, a4, a5, n] + S2[a1, a6, a3, a4, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a6, a3, a5, a4, n] + S2[a1, a6, a3, a5, SP[a2, a4], n] + 
    S2[a1, a6, a3, SP[a2, a4], a5, n] + S2[a1, a6, a3, SP[a2, a5], a4, n] + 
    S2[a2, n]*S2[a1, a6, a4, a3, a5, n] + S2[a1, a6, a4, a3, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a6, a4, a5, a3, n] + S2[a1, a6, a4, a5, SP[a2, a3], n] + 
    S2[a1, a6, a4, SP[a2, a3], a5, n] + S2[a1, a6, a4, SP[a2, a5], a3, n] + 
    S2[a2, n]*S2[a1, a6, a5, a3, a4, n] + S2[a1, a6, a5, a3, SP[a2, a4], n] + 
    S2[a2, n]*S2[a1, a6, a5, a4, a3, n] + S2[a1, a6, a5, a4, SP[a2, a3], n] + 
    S2[a1, a6, a5, SP[a2, a3], a4, n] + S2[a1, a6, a5, SP[a2, a4], a3, n] + 
    S2[a1, a6, SP[a2, a3], a4, a5, n] + S2[a1, a6, SP[a2, a3], a5, a4, n] + 
    S2[a1, a6, SP[a2, a4], a3, a5, n] + S2[a1, a6, SP[a2, a4], a5, a3, n] + 
    S2[a1, a6, SP[a2, a5], a3, a4, n] + S2[a1, a6, SP[a2, a5], a4, a3, n] + 
    S2[a1, SP[a2, a3], a4, a5, a6, n] + S2[a1, SP[a2, a3], a4, a6, a5, n] + 
    S2[a1, SP[a2, a3], a5, a4, a6, n] + S2[a1, SP[a2, a3], a5, a6, a4, n] + 
    S2[a1, SP[a2, a3], a6, a4, a5, n] + S2[a1, SP[a2, a3], a6, a5, a4, n] + 
    S2[a1, SP[a2, a5], a3, a4, a6, n] + S2[a1, SP[a3, a4], a2, a5, a6, n] + 
    S2[a1, SP[a3, a4], a2, a6, a5, n] + S2[a1, SP[a3, a4], a5, a2, a6, n] + 
    S2[a1, SP[a3, a4], a5, a6, a2, n] + S2[a1, SP[a3, a4], a6, a2, a5, n] + 
    S2[a1, SP[a3, a4], a6, a5, a2, n] - S2[a1, SP[a3, a6], a2, a4, a5, n] - 
    S2[a1, SP[a3, a6], a2, a5, a4, n] - S2[a1, SP[a3, a6], a4, a2, a5, n] - 
    S2[a1, SP[a3, a6], a4, a5, a2, n] - S2[a1, SP[a3, a6], a5, a2, a4, n] - 
    S2[a1, SP[a3, a6], a5, a4, a2, n] - S2[a1, SP[a4, a6], a2, a3, a5, n] - 
    S2[a1, SP[a4, a6], a2, a5, a3, n] - S2[a1, SP[a4, a6], a3, a2, a5, n] - 
    S2[a1, SP[a4, a6], a3, a5, a2, n] - S2[a1, SP[a4, a6], a5, a2, a3, n] - 

    S2[a1, SP[a4, a6], a5, a3, a2, n] - S2[a1, SP[a5, a6], a2, a3, a4, n] - 
    S2[a1, SP[a5, a6], a2, a4, a3, n] - S2[a1, SP[a5, a6], a3, a2, a4, n] - 
    S2[a1, SP[a5, a6], a3, a4, a2, n] - S2[a1, SP[a5, a6], a4, a2, a3, n] - 
    S2[a1, SP[a5, a6], a4, a3, a2, n] - S2[a2, a1, a3, a4, SP[a5, a6], n] - 
    S2[a2, a1, a3, a6, SP[a4, a5], n] - S2[a2, a1, a3, SP[a4, a5], a6, n] - 
    S2[a2, a1, a3, SP[a5, a6], a4, n] - S2[a2, a1, a6, a3, SP[a4, a5], n] - 
    S2[a2, a1, a6, a4, SP[a3, a5], n] - S2[a2, a1, a6, SP[a3, a5], a4, n] - 
    S2[a2, a1, a6, SP[a4, a5], a3, n] - S2[a2, a1, SP[a3, a5], a4, a6, n] - 
    S2[a2, a1, SP[a3, a5], a6, a4, n] - S2[a2, a1, SP[a5, a6], a3, a4, n] - 
    S2[a2, a1, SP[a5, a6], a4, a3, n] + S2[a6, n]*S2[a2, a3, a1, a4, a5, n] + 
    S2[a6, n]*S2[a2, a3, a1, a5, a4, n] + S2[a2, a3, a1, a5, SP[a4, a6], n] - 
    S2[a2, a3, a1, a6, SP[a4, a5], n] - S2[a2, a3, a1, SP[a4, a5], a6, n] + 
    S2[a2, a3, a1, SP[a4, a6], a5, n] + S2[a6, n]*S2[a2, a3, a4, a1, a5, n] - 
    S2[a2, a3, a6, a1, SP[a4, a5], n] - S2[a2, a3, a6, SP[a1, a4], a5, n] - 
    S2[a2, a3, SP[a1, a4], a5, a6, n] - S2[a2, a3, SP[a1, a4], a6, a5, n] + 
    S2[a2, a3, SP[a4, a6], a1, a5, n] + S2[a4, n]*S2[a2, a6, a1, a3, a5, n] - 
    S2[a2, a6, a1, a4, SP[a3, a5], n] + S2[a4, n]*S2[a2, a6, a1, a5, a3, n] + 
    S2[a2, a6, a1, a5, SP[a3, a4], n] + S2[a2, a6, a1, SP[a3, a4], a5, n] - 
    S2[a2, a6, a1, SP[a3, a5], a4, n] - S2[a2, a6, a3, a1, SP[a4, a5], n] - 
    S2[a2, a6, a3, SP[a1, a4], a5, n] - S2[a2, a6, a4, a1, SP[a3, a5], n] - 
    S2[a2, a6, a4, SP[a1, a3], a5, n] - S2[a2, a6, SP[a1, a3], a4, a5, n] - 
    S2[a2, a6, SP[a1, a3], a5, a4, n] - S2[a2, SP[a1, a3], a4, a5, a6, n] - 
    S2[a2, SP[a1, a3], a4, a6, a5, n] - S2[a2, SP[a1, a3], a5, a4, a6, n] - 
    S2[a2, SP[a1, a3], a5, a6, a4, n] - S2[a2, SP[a1, a3], a6, a4, a5, n] - 
    S2[a2, SP[a1, a3], a6, a5, a4, n] - S2[a2, SP[a1, a6], a3, a4, a5, n] - 
    S2[a2, SP[a1, a6], a3, a5, a4, n] - S2[a2, SP[a1, a6], a4, a3, a5, n] - 
    S2[a2, SP[a1, a6], a4, a5, a3, n] - S2[a2, SP[a1, a6], a5, a3, a4, n] - 
    S2[a2, SP[a1, a6], a5, a4, a3, n] + S2[a2, SP[a3, a6], a1, a4, a5, n] + 
    S2[a2, SP[a3, a6], a1, a5, a4, n] + S2[a2, SP[a3, a6], a4, a1, a5, n] + 
    S2[a2, SP[a4, a6], a1, a3, a5, n] + S2[a2, SP[a4, a6], a1, a5, a3, n] - 
    S2[a3, a1, a2, a4, SP[a5, a6], n] - S2[a3, a1, a2, SP[a4, a5], a6, n] - 
    S2[a3, a1, a4, a2, SP[a5, a6], n] - S2[a3, a1, a4, a5, SP[a2, a6], n] - 
    S2[a3, a1, a4, SP[a2, a6], a5, n] - S2[a3, a1, a4, SP[a5, a6], a2, n] - 
    S2[a3, a1, a5, a4, SP[a2, a6], n] - S2[a3, a1, a5, SP[a2, a4], a6, n] - 
    S2[a3, a1, SP[a2, a4], a5, a6, n] - S2[a3, a1, SP[a2, a4], a6, a5, n] - 
    S2[a3, a1, SP[a4, a5], a2, a6, n] - S2[a3, a1, SP[a4, a5], a6, a2, n] + 
    S2[a6, n]*S2[a3, a4, a1, a2, a5, n] + 
    S2[a6, n]*S2[a3, a4, a1, a5, a2, n] - S2[a3, SP[a1, a4], a2, a5, a6, n] - 
    S2[a3, SP[a1, a4], a2, a6, a5, n] - S2[a3, SP[a1, a4], a5, a2, a6, n] - 
    S2[a3, SP[a1, a4], a5, a6, a2, n] - S2[a3, SP[a1, a4], a6, a2, a5, n] - 
    S2[a3, SP[a1, a4], a6, a5, a2, n] + S2[a3, SP[a4, a6], a1, a2, a5, n] + 
    S2[a3, SP[a4, a6], a1, a5, a2, n] - S2[a4, a1, a2, a3, SP[a5, a6], n] - 
    S2[a4, a1, a2, a5, SP[a3, a6], n] - S2[a4, a1, a2, SP[a3, a6], a5, n] - 
    S2[a4, a1, a2, SP[a5, a6], a3, n] - S2[a4, a1, a5, a2, SP[a3, a6], n] - 
    S2[a4, a1, a5, SP[a2, a6], a3, n] + S2[a4, a1, a6, a2, SP[a3, a5], n] + 
    S2[a4, a1, a6, SP[a2, a5], a3, n] - S2[a4, a1, SP[a2, a6], a3, a5, n] - 
    S2[a4, a1, SP[a2, a6], a5, a3, n] + S2[a4, a6, a1, a2, SP[a3, a5], n] - 
    S2[a2, n]*S2[a4, a6, a1, a3, a5, n] - S2[a4, a6, a1, a3, SP[a2, a5], n] - 
    S2[a2, n]*S2[a4, a6, a1, a5, a3, n] - S2[a4, a6, a1, a5, SP[a2, a3], n] - 
    S2[a4, a6, a1, SP[a2, a3], a5, n] + S2[a4, a6, a2, a1, SP[a3, a5], n] + 
    S2[a4, a6, a2, SP[a1, a3], a5, n] - S2[a4, SP[a2, a6], a1, a3, a5, n] - 
    S2[a4, SP[a2, a6], a1, a5, a3, n] + S2[a4, n]*S2[a6, a1, a2, a3, a5, n] + 
    S2[a6, a1, a2, a3, SP[a4, a5], n] + S2[a4, n]*S2[a6, a1, a2, a5, a3, n] + 
    S2[a6, a1, a2, a5, SP[a3, a4], n] + S2[a6, a1, a2, SP[a3, a4], a5, n] + 
    S2[a6, a1, a2, SP[a4, a5], a3, n] + S2[a4, n]*S2[a6, a1, a3, a2, a5, n] + 
    S2[a6, a1, a3, a2, SP[a4, a5], n] + S2[a4, n]*S2[a6, a1, a3, a5, a2, n] + 
    S2[a6, a1, a3, a5, SP[a2, a4], n] + S2[a6, a1, a3, SP[a2, a4], a5, n] + 
    S2[a6, a1, a3, SP[a4, a5], a2, n] + S2[a4, n]*S2[a6, a1, a5, a2, a3, n] + 
    S2[a6, a1, a5, a2, SP[a3, a4], n] + S2[a4, n]*S2[a6, a1, a5, a3, a2, n] + 
    S2[a6, a1, a5, a3, SP[a2, a4], n] + S2[a6, a1, a5, SP[a2, a4], a3, n] + 
    S2[a6, a1, a5, SP[a3, a4], a2, n] + S2[a6, a1, SP[a2, a4], a3, a5, n] + 
    S2[a6, a1, SP[a2, a4], a5, a3, n] + S2[a6, a1, SP[a3, a4], a2, a5, n] + 
    S2[a6, a1, SP[a3, a4], a5, a2, n] + S2[a6, a1, SP[a4, a5], a2, a3, n] + 
    S2[a6, a1, SP[a4, a5], a3, a2, n] - S2[a4, n]*S2[a6, a2, a3, a1, a5, n] - 
    S2[a6, a2, a3, a1, SP[a4, a5], n] - S2[a6, a2, a3, SP[a1, a4], a5, n] - 
    S2[a6, a2, SP[a3, a4], a1, a5, n] - S2[a3, n]*S2[a6, a4, a1, a2, a5, n] - 
    S2[a6, a4, a1, a2, SP[a3, a5], n] - S2[a3, n]*S2[a6, a4, a1, a5, a2, n] - 
    S2[a6, a4, a1, a5, SP[a2, a3], n] - S2[a6, a4, a1, SP[a2, a3], a5, n] - 
    S2[a6, a4, a1, SP[a3, a5], a2, n] + S2[a2, n]*S2[a6, a4, a3, a1, a5, n] + 
    S2[a6, a4, a3, a1, SP[a2, a5], n] + S2[a6, a4, a3, SP[a1, a2], a5, n] - 
    S2[a6, a4, SP[a1, a3], a2, a5, n] - S2[a6, a4, SP[a1, a3], a5, a2, n] + 
    S2[a6, a4, SP[a2, a3], a1, a5, n] + S2[a6, SP[a1, a4], a2, a3, a5, n] + 
    S2[a6, SP[a1, a4], a2, a5, a3, n] + S2[a6, SP[a1, a4], a3, a2, a5, n] + 
    S2[a6, SP[a1, a4], a3, a5, a2, n] + S2[a6, SP[a1, a4], a5, a2, a3, n] + 
    S2[a6, SP[a1, a4], a5, a3, a2, n] - S2[a6, SP[a3, a4], a1, a2, a5, n] - 
    S2[a6, SP[a3, a4], a1, a5, a2, n] + S2[SP[a1, a5], a2, a3, a4, a6, n] - 
    S2[SP[a1, a6], a2, a3, a4, a5, n] - S2[SP[a1, a6], a2, a3, a5, a4, n] - 
    S2[SP[a1, a6], a2, a4, a3, a5, n] - S2[SP[a1, a6], a2, a4, a5, a3, n] - 
    S2[SP[a1, a6], a2, a5, a3, a4, n] - S2[SP[a1, a6], a2, a5, a4, a3, n] - 
    S2[SP[a1, a6], a3, a2, a4, a5, n] - S2[SP[a1, a6], a3, a2, a5, a4, n] - 
    S2[SP[a1, a6], a3, a4, a2, a5, n] - S2[SP[a1, a6], a3, a4, a5, a2, n] - 
    S2[SP[a1, a6], a3, a5, a2, a4, n] - S2[SP[a1, a6], a3, a5, a4, a2, n] - 
    S2[SP[a1, a6], a4, a2, a3, a5, n] - S2[SP[a1, a6], a4, a2, a5, a3, n] - 
    S2[SP[a1, a6], a4, a3, a2, a5, n] - S2[SP[a1, a6], a4, a3, a5, a2, n] - 
    S2[SP[a1, a6], a4, a5, a2, a3, n] - S2[SP[a1, a6], a4, a5, a3, a2, n] - 
    S2[SP[a1, a6], a5, a2, a3, a4, n] - S2[SP[a1, a6], a5, a2, a4, a3, n] - 
    S2[SP[a1, a6], a5, a3, a2, a4, n] - S2[SP[a1, a6], a5, a3, a4, a2, n] - 
    S2[SP[a1, a6], a5, a4, a2, a3, n] - S2[SP[a1, a6], a5, a4, a3, a2, n] + 
    S2[SP[a2, a6], a3, a1, a4, a5, n] + S2[SP[a2, a6], a3, a1, a5, a4, n] + 
    S2[SP[a2, a6], a3, a4, a1, a5, n] + S2[SP[a2, a6], a4, a3, a1, a5, n] + 
    S2[SP[a4, a6], a1, a2, a3, a5, n] + S2[SP[a4, a6], a1, a2, a5, a3, n] + 
    S2[SP[a4, a6], a1, a3, a2, a5, n] + S2[SP[a4, a6], a1, a3, a5, a2, n] + 
    S2[SP[a4, a6], a1, a5, a2, a3, n] + S2[SP[a4, a6], a1, a5, a3, a2, n] - 
    S2[SP[a4, a6], a2, a3, a1, a5, n] - S2[a6, a4, a3, a2, a1, a5, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a5_, a1_, a2_, a3_, a6_, a4_, n_] :> 
  -(S2[a1, a2, a5, n]*S2[a3, a6, a4, n]) - S2[a1, a5, a2, n]*
     S2[a3, a6, a4, n] - S2[SP[a1, a3], SP[a2, a6], SP[a4, a5], n] - 
    S2[SP[a1, a3], SP[a5, a6], SP[a2, a4], n] + 
    S2[a4, a6, n]*S2[a1, a2, a3, a5, n] + S2[a4, a6, n]*
     S2[a1, a2, a5, a3, n] - S2[a1, a2, SP[a3, a4], SP[a5, a6], n] - 
    S2[a1, a2, SP[a4, a5], SP[a3, a6], n] + S2[a1, a3, SP[a2, a6], 
     SP[a4, a5], n] + S2[a1, a3, SP[a5, a6], SP[a2, a4], n] + 
    S2[a4, a6, n]*S2[a1, a5, a2, a3, n] - S2[a1, a5, SP[a2, a4], SP[a3, a6], 
     n] + S2[a1, SP[a2, a3], a6, SP[a4, a5], n] + 
    S2[a1, SP[a2, a3], SP[a5, a6], a4, n] - S2[a1, SP[a2, a4], a3, 
     SP[a5, a6], n] - S2[a1, SP[a2, a4], a5, SP[a3, a6], n] - 
    S2[a1, SP[a2, a4], SP[a3, a6], a5, n] - S2[a1, SP[a2, a4], SP[a5, a6], 
     a3, n] + S2[a1, SP[a3, a5], a6, SP[a2, a4], n] + 
    S2[a1, SP[a3, a5], SP[a2, a6], a4, n] - S2[a1, SP[a4, a5], a2, 
     SP[a3, a6], n] - S2[a1, SP[a4, a5], SP[a2, a6], a3, n] + 
    S2[a1, a5, n]*S2[a2, a6, a3, a4, n] + S2[a1, a5, n]*
     S2[a2, a6, a4, a3, n] - S2[a2, a6, SP[a1, a3], SP[a4, a5], n] - 
    S2[a2, a6, SP[a1, a4], SP[a3, a5], n] - S2[a2, SP[a1, a6], a3, 
     SP[a4, a5], n] - S2[a2, SP[a1, a6], a4, SP[a3, a5], n] - 
    S2[a2, SP[a1, a6], SP[a3, a5], a4, n] - S2[a2, SP[a1, a6], SP[a4, a5], 
     a3, n] + S2[a3, a1, SP[a2, a6], SP[a4, a5], n] + 
    S2[a3, a1, SP[a5, a6], SP[a2, a4], n] + S2[a3, SP[a1, a6], a2, 
     SP[a4, a5], n] + S2[a3, SP[a1, a6], a5, SP[a2, a4], n] + 
    S2[a3, SP[a1, a6], SP[a2, a4], a5, n] + S2[a3, SP[a1, a6], SP[a4, a5], 
     a2, n] - S2[a1, a5, n]*S2[a4, a6, a2, a3, n] + 
    S2[a4, a6, SP[a1, a2], SP[a3, a5], n] + S2[a4, SP[a1, a6], a2, 
     SP[a3, a5], n] + S2[a4, SP[a1, a6], SP[a2, a5], a3, n] - 
    S2[SP[a1, a2], a6, a3, SP[a4, a5], n] - S2[SP[a1, a2], a6, a4, 
     SP[a3, a5], n] - S2[SP[a1, a2], a6, SP[a3, a5], a4, n] - 
    S2[SP[a1, a2], a6, SP[a4, a5], a3, n] - S2[SP[a1, a2], SP[a5, a6], a3, 
     a4, n] - S2[SP[a1, a2], SP[a5, a6], a4, a3, n] + 
    S2[SP[a1, a3], a2, a6, SP[a4, a5], n] + S2[SP[a1, a3], a2, SP[a5, a6], 
     a4, n] + S2[SP[a1, a3], a5, a6, SP[a2, a4], n] + 
    S2[SP[a1, a3], a5, SP[a2, a6], a4, n] + S2[SP[a1, a3], a6, a2, 
     SP[a4, a5], n] + S2[SP[a1, a3], a6, a5, SP[a2, a4], n] + 
    S2[SP[a1, a3], a6, SP[a2, a4], a5, n] + S2[SP[a1, a3], a6, SP[a4, a5], 
     a2, n] + S2[SP[a1, a3], SP[a2, a6], a4, a5, n] + 
    S2[SP[a1, a3], SP[a2, a6], a5, a4, n] + S2[SP[a1, a3], SP[a5, a6], a2, 
     a4, n] + S2[SP[a1, a3], SP[a5, a6], a4, a2, n] - 
    S2[SP[a1, a4], a2, a3, SP[a5, a6], n] - S2[SP[a1, a4], a2, a5, 
     SP[a3, a6], n] - S2[SP[a1, a4], a2, SP[a3, a6], a5, n] - 
    S2[SP[a1, a4], a2, SP[a5, a6], a3, n] - S2[SP[a1, a4], a5, a2, 
     SP[a3, a6], n] - S2[SP[a1, a4], a5, SP[a2, a6], a3, n] + 
    S2[SP[a1, a4], a6, a2, SP[a3, a5], n] + S2[SP[a1, a4], a6, SP[a2, a5], 
     a3, n] - S2[SP[a1, a4], SP[a2, a6], a3, a5, n] - 
    S2[SP[a1, a4], SP[a2, a6], a5, a3, n] + S2[a1, a2, a3, a4, SP[a5, a6], 
     n] - S2[a4, n]*S2[a1, a2, a3, a5, a6, n] - S2[a1, a2, a3, a5, 
     SP[a4, a6], n] + S2[a5, n]*S2[a1, a2, a3, a6, a4, n] - 
    S2[a4, n]*S2[a1, a2, a3, a6, a5, n] - S2[a1, a2, a3, a6, SP[a4, a5], n] - 
    S2[a1, a2, a3, SP[a4, a6], a5, n] + S2[a1, a2, a4, a3, SP[a5, a6], n] + 
    S2[a1, a2, a4, a5, SP[a3, a6], n] + S2[a1, a2, a4, SP[a3, a6], a5, n] + 
    S2[a1, a2, a4, SP[a5, a6], a3, n] - S2[a4, n]*S2[a1, a2, a5, a3, a6, n] - 
    S2[a1, a2, a5, a3, SP[a4, a6], n] + S2[a1, a2, a5, a4, SP[a3, a6], n] - 
    S2[a4, n]*S2[a1, a2, a5, a6, a3, n] + 
    S2[a3, n]*S2[a1, a2, a5, a6, a4, n] + S2[a1, a2, a5, SP[a3, a6], a4, n] - 
    S2[a1, a2, a5, SP[a4, a6], a3, n] - S2[a4, n]*S2[a1, a2, a6, a3, a5, n] + 
    S2[a3, n]*S2[a1, a2, a6, a4, a5, n] + 
    2*S2[a1, a2, a6, a4, SP[a3, a5], n] - 
    S2[a4, n]*S2[a1, a2, a6, a5, a3, n] + 
    S2[a3, n]*S2[a1, a2, a6, a5, a4, n] + 
    2*S2[a1, a2, a6, SP[a3, a5], a4, n] + S2[a1, a2, SP[a3, a5], a6, a4, n] + 
    S2[a1, a2, SP[a3, a6], a4, a5, n] + S2[a1, a2, SP[a3, a6], a5, a4, n] - 
    S2[a1, a2, SP[a4, a6], a3, a5, n] - S2[a1, a2, SP[a4, a6], a5, a3, n] + 
    S2[a1, a2, SP[a5, a6], a3, a4, n] + S2[a1, a2, SP[a5, a6], a4, a3, n] - 
    S2[a1, a3, a2, a6, SP[a4, a5], n] - S2[a1, a3, a2, SP[a5, a6], a4, n] - 
    S2[a1, a3, a5, a6, SP[a2, a4], n] - S2[a1, a3, a5, SP[a2, a6], a4, n] - 
    S2[a1, a3, a6, a2, SP[a4, a5], n] - S2[a1, a3, a6, a5, SP[a2, a4], n] - 
    S2[a1, a3, a6, SP[a2, a4], a5, n] - S2[a1, a3, a6, SP[a4, a5], a2, n] - 
    S2[a1, a3, SP[a2, a6], a4, a5, n] - S2[a1, a3, SP[a2, a6], a5, a4, n] - 
    S2[a1, a3, SP[a5, a6], a2, a4, n] - S2[a1, a3, SP[a5, a6], a4, a2, n] + 
    S2[a1, a4, a2, a3, SP[a5, a6], n] + S2[a1, a4, a2, a5, SP[a3, a6], n] + 
    S2[a1, a4, a2, SP[a3, a6], a5, n] + S2[a1, a4, a2, SP[a5, a6], a3, n] + 
    S2[a1, a4, a5, a2, SP[a3, a6], n] + S2[a1, a4, a5, SP[a2, a6], a3, n] - 
    S2[a1, a4, a6, a2, SP[a3, a5], n] - S2[a1, a4, a6, SP[a2, a5], a3, n] + 
    S2[a1, a4, SP[a2, a6], a3, a5, n] + S2[a1, a4, SP[a2, a6], a5, a3, n] - 
    S2[a4, n]*S2[a1, a5, a2, a3, a6, n] - S2[a1, a5, a2, a3, SP[a4, a6], n] + 
    S2[a1, a5, a2, a4, SP[a3, a6], n] - S2[a4, n]*S2[a1, a5, a2, a6, a3, n] + 
    S2[a3, n]*S2[a1, a5, a2, a6, a4, n] + S2[a1, a5, a2, SP[a3, a6], a4, n] - 
    S2[a1, a5, a2, SP[a4, a6], a3, n] - S2[a1, a5, a3, a6, SP[a2, a4], n] - 
    S2[a1, a5, a3, SP[a2, a6], a4, n] + S2[a1, a5, a4, a2, SP[a3, a6], n] + 
    S2[a1, a5, a4, SP[a2, a6], a3, n] + S2[a3, n]*S2[a1, a5, a6, a2, a4, n] + 
    S2[a1, a5, a6, a2, SP[a3, a4], n] - S2[a2, n]*S2[a1, a5, a6, a3, a4, n] - 
    S2[a1, a5, a6, a3, SP[a2, a4], n] + S2[a3, n]*S2[a1, a5, a6, a4, a2, n] - 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] - S2[a1, a5, a6, SP[a2, a4], a3, n] + 
    S2[a1, a5, a6, SP[a3, a4], a2, n] - S2[a1, a5, SP[a2, a6], a3, a4, n] - 
    S2[a1, a5, SP[a2, a6], a4, a3, n] + S2[a1, a5, SP[a3, a6], a2, a4, n] + 
    S2[a1, a5, SP[a3, a6], a4, a2, n] + S2[a3, n]*S2[a1, a6, a2, a4, a5, n] + 
    S2[a1, a6, a2, a4, SP[a3, a5], n] + S2[a3, n]*S2[a1, a6, a2, a5, a4, n] + 
    S2[a1, a6, a2, a5, SP[a3, a4], n] + S2[a1, a6, a2, SP[a3, a4], a5, n] + 
    S2[a1, a6, a2, SP[a3, a5], a4, n] - S2[a2, n]*S2[a1, a6, a3, a4, a5, n] - 
    S2[a1, a6, a3, a4, SP[a2, a5], n] - S2[a2, n]*S2[a1, a6, a3, a5, a4, n] - 
    S2[a1, a6, a3, a5, SP[a2, a4], n] - S2[a1, a6, a3, SP[a2, a4], a5, n] - 
    S2[a1, a6, a3, SP[a2, a5], a4, n] + S2[a3, n]*S2[a1, a6, a4, a2, a5, n] + 
    S2[a1, a6, a4, a2, SP[a3, a5], n] - S2[a2, n]*S2[a1, a6, a4, a3, a5, n] - 
    S2[a1, a6, a4, a3, SP[a2, a5], n] + S2[a3, n]*S2[a1, a6, a4, a5, a2, n] - 
    S2[a2, n]*S2[a1, a6, a4, a5, a3, n] - S2[a1, a6, a4, SP[a2, a5], a3, n] + 
    S2[a1, a6, a4, SP[a3, a5], a2, n] + S2[a3, n]*S2[a1, a6, a5, a2, a4, n] + 
    S2[a1, a6, a5, a2, SP[a3, a4], n] - S2[a2, n]*S2[a1, a6, a5, a3, a4, n] - 
    S2[a1, a6, a5, a3, SP[a2, a4], n] + S2[a3, n]*S2[a1, a6, a5, a4, a2, n] - 
    S2[a2, n]*S2[a1, a6, a5, a4, a3, n] - S2[a1, a6, a5, SP[a2, a4], a3, n] + 
    S2[a1, a6, a5, SP[a3, a4], a2, n] - S2[a1, a6, SP[a2, a4], a3, a5, n] - 
    S2[a1, a6, SP[a2, a4], a5, a3, n] - S2[a1, a6, SP[a2, a5], a3, a4, n] - 
    S2[a1, a6, SP[a2, a5], a4, a3, n] + S2[a1, a6, SP[a3, a4], a2, a5, n] + 
    S2[a1, a6, SP[a3, a4], a5, a2, n] + S2[a1, a6, SP[a3, a5], a2, a4, n] + 
    S2[a1, a6, SP[a3, a5], a4, a2, n] + S2[a1, SP[a2, a5], a3, a6, a4, n] - 
    S2[a1, SP[a2, a6], a3, a4, a5, n] - S2[a1, SP[a2, a6], a3, a5, a4, n] - 
    S2[a1, SP[a2, a6], a4, a3, a5, n] - S2[a1, SP[a2, a6], a4, a5, a3, n] - 
    S2[a1, SP[a2, a6], a5, a3, a4, n] - S2[a1, SP[a2, a6], a5, a4, a3, n] + 
    S2[a1, SP[a3, a6], a2, a4, a5, n] + S2[a1, SP[a3, a6], a2, a5, a4, n] + 
    S2[a1, SP[a3, a6], a4, a2, a5, n] + S2[a1, SP[a3, a6], a4, a5, a2, n] + 
    S2[a1, SP[a3, a6], a5, a2, a4, n] + S2[a1, SP[a3, a6], a5, a4, a2, n] + 
    S2[a2, a1, a6, a3, SP[a4, a5], n] + S2[a2, a1, a6, a4, SP[a3, a5], n] + 
    S2[a2, a1, a6, SP[a3, a5], a4, n] + S2[a2, a1, a6, SP[a4, a5], a3, n] + 
    S2[a2, a1, SP[a5, a6], a3, a4, n] + S2[a2, a1, SP[a5, a6], a4, a3, n] - 
    S2[a4, n]*S2[a2, a6, a1, a3, a5, n] + S2[a2, a6, a1, a4, SP[a3, a5], n] - 
    S2[a4, n]*S2[a2, a6, a1, a5, a3, n] - S2[a2, a6, a1, a5, SP[a3, a4], n] - 
    S2[a2, a6, a1, SP[a3, a4], a5, n] + S2[a2, a6, a1, SP[a3, a5], a4, n] + 
    S2[a2, a6, a3, a1, SP[a4, a5], n] + S2[a2, a6, a3, SP[a1, a4], a5, n] + 
    S2[a2, a6, a4, a1, SP[a3, a5], n] + S2[a2, a6, a4, SP[a1, a3], a5, n] + 
    S2[a2, a6, SP[a1, a3], a4, a5, n] + S2[a2, a6, SP[a1, a3], a5, a4, n] + 
    S2[a2, SP[a1, a6], a3, a4, a5, n] + S2[a2, SP[a1, a6], a3, a5, a4, n] + 
    S2[a2, SP[a1, a6], a4, a3, a5, n] + S2[a2, SP[a1, a6], a4, a5, a3, n] + 
    S2[a2, SP[a1, a6], a5, a3, a4, n] + S2[a2, SP[a1, a6], a5, a4, a3, n] - 
    S2[a2, SP[a4, a6], a1, a3, a5, n] - S2[a2, SP[a4, a6], a1, a5, a3, n] - 
    S2[a3, a1, a2, a6, SP[a4, a5], n] - S2[a3, a1, a2, SP[a5, a6], a4, n] - 
    S2[a3, a1, a5, a6, SP[a2, a4], n] - S2[a3, a1, a5, SP[a2, a6], a4, n] - 
    S2[a3, a1, a6, a2, SP[a4, a5], n] - S2[a3, a1, a6, a5, SP[a2, a4], n] - 
    S2[a3, a1, a6, SP[a2, a4], a5, n] - S2[a3, a1, a6, SP[a4, a5], a2, n] - 
    S2[a3, a1, SP[a2, a6], a4, a5, n] - S2[a3, a1, SP[a2, a6], a5, a4, n] - 
    S2[a3, a1, SP[a5, a6], a2, a4, n] - S2[a3, a1, SP[a5, a6], a4, a2, n] - 
    S2[a3, a6, a1, a2, SP[a4, a5], n] - S2[a3, a6, a1, a5, SP[a2, a4], n] - 
    S2[a3, a6, a1, SP[a2, a4], a5, n] - S2[a3, a6, a1, SP[a4, a5], a2, n] - 
    S2[a3, a6, SP[a1, a4], a2, a5, n] - S2[a3, a6, SP[a1, a4], a5, a2, n] - 
    S2[a3, SP[a1, a6], a2, a4, a5, n] - S2[a3, SP[a1, a6], a2, a5, a4, n] - 
    S2[a3, SP[a1, a6], a4, a2, a5, n] - S2[a3, SP[a1, a6], a4, a5, a2, n] - 
    S2[a3, SP[a1, a6], a5, a2, a4, n] - S2[a3, SP[a1, a6], a5, a4, a2, n] + 
    S2[a4, a1, a2, a3, SP[a5, a6], n] + S2[a4, a1, a2, a5, SP[a3, a6], n] + 
    S2[a4, a1, a2, SP[a3, a6], a5, n] + S2[a4, a1, a2, SP[a5, a6], a3, n] + 
    S2[a4, a1, a5, a2, SP[a3, a6], n] + S2[a4, a1, a5, SP[a2, a6], a3, n] - 
    S2[a4, a1, a6, a2, SP[a3, a5], n] - S2[a4, a1, a6, SP[a2, a5], a3, n] + 
    S2[a4, a1, SP[a2, a6], a3, a5, n] + S2[a4, a1, SP[a2, a6], a5, a3, n] - 
    S2[a4, a6, a1, a2, SP[a3, a5], n] + S2[a2, n]*S2[a4, a6, a1, a3, a5, n] + 
    S2[a4, a6, a1, a3, SP[a2, a5], n] + S2[a2, n]*S2[a4, a6, a1, a5, a3, n] + 
    S2[a4, a6, a1, a5, SP[a2, a3], n] + S2[a4, a6, a1, SP[a2, a3], a5, n] - 
    S2[a4, a6, a2, a1, SP[a3, a5], n] - S2[a4, a6, a2, SP[a1, a3], a5, n] + 
    S2[a4, SP[a2, a6], a1, a3, a5, n] + S2[a4, SP[a2, a6], a1, a5, a3, n] - 
    S2[a4, n]*S2[a6, a1, a2, a3, a5, n] - S2[a6, a1, a2, a3, SP[a4, a5], n] + 
    S2[a3, n]*S2[a6, a1, a2, a4, a5, n] + S2[a6, a1, a2, a4, SP[a3, a5], n] - 
    S2[a4, n]*S2[a6, a1, a2, a5, a3, n] + 
    S2[a3, n]*S2[a6, a1, a2, a5, a4, n] + S2[a6, a1, a2, SP[a3, a5], a4, n] - 
    S2[a6, a1, a2, SP[a4, a5], a3, n] - S2[a4, n]*S2[a6, a1, a3, a2, a5, n] - 
    S2[a6, a1, a3, a2, SP[a4, a5], n] - S2[a4, n]*S2[a6, a1, a3, a5, a2, n] - 
    S2[a6, a1, a3, a5, SP[a2, a4], n] - S2[a6, a1, a3, SP[a2, a4], a5, n] - 
    S2[a6, a1, a3, SP[a4, a5], a2, n] + S2[a3, n]*S2[a6, a1, a4, a2, a5, n] + 
    S2[a6, a1, a4, a2, SP[a3, a5], n] + S2[a3, n]*S2[a6, a1, a4, a5, a2, n] + 
    S2[a6, a1, a4, a5, SP[a2, a3], n] + S2[a6, a1, a4, SP[a2, a3], a5, n] + 
    S2[a6, a1, a4, SP[a3, a5], a2, n] - S2[a4, n]*S2[a6, a1, a5, a2, a3, n] + 
    S2[a3, n]*S2[a6, a1, a5, a2, a4, n] - 
    S2[a4, n]*S2[a6, a1, a5, a3, a2, n] - S2[a6, a1, a5, a3, SP[a2, a4], n] + 
    S2[a3, n]*S2[a6, a1, a5, a4, a2, n] + S2[a6, a1, a5, a4, SP[a2, a3], n] + 
    S2[a6, a1, a5, SP[a2, a3], a4, n] - S2[a6, a1, a5, SP[a2, a4], a3, n] + 
    S2[a6, a1, SP[a2, a3], a4, a5, n] + S2[a6, a1, SP[a2, a3], a5, a4, n] - 
    S2[a6, a1, SP[a2, a4], a3, a5, n] - S2[a6, a1, SP[a2, a4], a5, a3, n] + 
    S2[a6, a1, SP[a3, a5], a2, a4, n] + S2[a6, a1, SP[a3, a5], a4, a2, n] - 
    S2[a6, a1, SP[a4, a5], a2, a3, n] - S2[a6, a1, SP[a4, a5], a3, a2, n] + 
    S2[a4, n]*S2[a6, a2, a3, a1, a5, n] + S2[a6, a2, a3, a1, SP[a4, a5], n] + 
    S2[a6, a2, a3, SP[a1, a4], a5, n] + S2[a6, a2, SP[a3, a4], a1, a5, n] - 
    S2[a2, n]*S2[a6, a3, a1, a4, a5, n] - S2[a6, a3, a1, a4, SP[a2, a5], n] - 
    S2[a2, n]*S2[a6, a3, a1, a5, a4, n] - S2[a6, a3, a1, a5, SP[a2, a4], n] - 
    S2[a6, a3, a1, SP[a2, a4], a5, n] - S2[a6, a3, a1, SP[a2, a5], a4, n] - 
    S2[a2, n]*S2[a6, a3, a4, a1, a5, n] - S2[a6, a3, a4, a1, SP[a2, a5], n] - 
    S2[a6, a3, a4, SP[a1, a2], a5, n] - S2[a6, a3, SP[a1, a2], a4, a5, n] - 
    S2[a6, a3, SP[a1, a2], a5, a4, n] - S2[a6, a3, SP[a2, a4], a1, a5, n] + 
    S2[a3, n]*S2[a6, a4, a1, a2, a5, n] + S2[a6, a4, a1, a2, SP[a3, a5], n] + 
    S2[a3, n]*S2[a6, a4, a1, a5, a2, n] + S2[a6, a4, a1, a5, SP[a2, a3], n] + 
    S2[a6, a4, a1, SP[a2, a3], a5, n] + S2[a6, a4, a1, SP[a3, a5], a2, n] - 
    S2[a2, n]*S2[a6, a4, a3, a1, a5, n] - S2[a6, a4, a3, a1, SP[a2, a5], n] - 
    S2[a6, a4, a3, SP[a1, a2], a5, n] + S2[a6, a4, SP[a1, a3], a2, a5, n] + 
    S2[a6, a4, SP[a1, a3], a5, a2, n] - S2[a6, a4, SP[a2, a3], a1, a5, n] + 
    S2[a6, SP[a1, a3], a2, a4, a5, n] + S2[a6, SP[a1, a3], a2, a5, a4, n] + 
    S2[a6, SP[a1, a3], a4, a2, a5, n] + S2[a6, SP[a1, a3], a4, a5, a2, n] + 
    S2[a6, SP[a1, a3], a5, a2, a4, n] + S2[a6, SP[a1, a3], a5, a4, a2, n] - 
    S2[a6, SP[a1, a4], a2, a3, a5, n] - S2[a6, SP[a1, a4], a2, a5, a3, n] - 
    S2[a6, SP[a1, a4], a3, a2, a5, n] - S2[a6, SP[a1, a4], a3, a5, a2, n] - 
    S2[a6, SP[a1, a4], a5, a2, a3, n] - S2[a6, SP[a1, a4], a5, a3, a2, n] - 
    S2[a6, SP[a2, a3], a1, a4, a5, n] - S2[a6, SP[a2, a3], a1, a5, a4, n] - 
    S2[a6, SP[a2, a3], a4, a1, a5, n] + S2[a6, SP[a3, a4], a1, a2, a5, n] + 
    S2[a6, SP[a3, a4], a1, a5, a2, n] + S2[SP[a1, a5], a2, a3, a6, a4, n] - 
    S2[SP[a2, a6], a3, a1, a4, a5, n] - S2[SP[a2, a6], a3, a1, a5, a4, n] - 
    S2[SP[a2, a6], a3, a4, a1, a5, n] - S2[SP[a2, a6], a4, a3, a1, a5, n] + 
    S2[SP[a3, a6], a1, a2, a4, a5, n] + S2[SP[a3, a6], a1, a2, a5, a4, n] + 
    S2[SP[a3, a6], a1, a4, a2, a5, n] + S2[SP[a3, a6], a1, a4, a5, a2, n] + 
    S2[SP[a3, a6], a1, a5, a2, a4, n] + S2[SP[a3, a6], a1, a5, a4, a2, n] + 
    S2[SP[a3, a6], a4, a1, a2, a5, n] + S2[SP[a3, a6], a4, a1, a5, a2, n] - 
    S2[SP[a4, a6], a1, a2, a3, a5, n] - S2[SP[a4, a6], a1, a2, a5, a3, n] - 
    S2[SP[a4, a6], a1, a3, a2, a5, n] - S2[SP[a4, a6], a1, a3, a5, a2, n] - 
    S2[SP[a4, a6], a1, a5, a2, a3, n] - S2[SP[a4, a6], a1, a5, a3, a2, n] + 
    S2[SP[a4, a6], a2, a3, a1, a5, n] + S2[a6, a3, a2, a1, a4, a5, n] + 
    S2[a6, a3, a2, a1, a5, a4, n] + S2[a6, a3, a2, a4, a1, a5, n] + 
    S2[a6, a3, a4, a2, a1, a5, n] + S2[a6, a4, a3, a2, a1, a5, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a5_, a1_, a2_, a4_, a3_, a6_, n_] :> 
  S2[a1, a2, a5, n]*S2[a3, a4, a6, n] + S2[a1, a5, a2, n]*S2[a3, a4, a6, n] + 
    S2[a1, a2, a5, n]*S2[a3, a6, a4, n] + S2[a1, a5, a2, n]*
     S2[a3, a6, a4, n] + S2[SP[a1, a3], SP[a2, a4], SP[a5, a6], n] + 
    S2[SP[a1, a3], SP[a2, a6], SP[a4, a5], n] + S2[SP[a1, a3], SP[a4, a5], 
     SP[a2, a6], n] + S2[SP[a1, a3], SP[a5, a6], SP[a2, a4], n] - 
    S2[a3, a6, n]*S2[a1, a2, a4, a5, n] - S2[a3, a6, n]*
     S2[a1, a2, a5, a4, n] + S2[a1, a2, SP[a3, a4], SP[a5, a6], n] + 
    S2[a1, a2, SP[a3, a5], SP[a4, a6], n] - S2[a1, a3, SP[a2, a4], 
     SP[a5, a6], n] - S2[a1, a3, SP[a2, a6], SP[a4, a5], n] - 
    S2[a1, a3, SP[a4, a5], SP[a2, a6], n] - S2[a1, a3, SP[a5, a6], 
     SP[a2, a4], n] - S2[a3, a6, n]*S2[a1, a5, a2, a4, n] + 
    S2[a1, a5, SP[a2, a3], SP[a4, a6], n] + S2[a1, SP[a2, a3], a5, 
     SP[a4, a6], n] - S2[a1, SP[a2, a3], a6, SP[a4, a5], n] - 
    S2[a1, SP[a2, a3], SP[a4, a5], a6, n] + S2[a1, SP[a2, a3], SP[a4, a6], 
     a5, n] + S2[a1, SP[a3, a5], a2, SP[a4, a6], n] - 
    S2[a1, SP[a3, a5], a4, SP[a2, a6], n] - S2[a1, SP[a3, a5], a6, 
     SP[a2, a4], n] - S2[a1, SP[a3, a5], SP[a2, a4], a6, n] - 
    S2[a1, a5, n]*S2[a2, a4, a3, a6, n] - S2[a1, a5, n]*
     S2[a2, a4, a6, a3, n] + S2[a2, a4, SP[a1, a3], SP[a5, a6], n] + 
    S2[a2, a4, SP[a1, a6], SP[a3, a5], n] - S2[a1, a5, n]*
     S2[a2, a6, a3, a4, n] - S2[a1, a5, n]*S2[a2, a6, a4, a3, n] + 
    S2[a2, a6, SP[a1, a3], SP[a4, a5], n] + S2[a2, a6, SP[a1, a4], 
     SP[a3, a5], n] + S2[a2, SP[a1, a4], a3, SP[a5, a6], n] + 
    S2[a2, SP[a1, a4], a6, SP[a3, a5], n] + S2[a2, SP[a1, a4], SP[a3, a5], 
     a6, n] + S2[a2, SP[a1, a4], SP[a5, a6], a3, n] + 
    S2[a2, SP[a1, a6], a3, SP[a4, a5], n] + S2[a2, SP[a1, a6], a4, 
     SP[a3, a5], n] + S2[a2, SP[a1, a6], SP[a3, a5], a4, n] + 
    S2[a2, SP[a1, a6], SP[a4, a5], a3, n] - S2[a3, a1, SP[a2, a4], 
     SP[a5, a6], n] - S2[a3, a1, SP[a2, a6], SP[a4, a5], n] - 
    S2[a3, a1, SP[a4, a5], SP[a2, a6], n] - S2[a3, a1, SP[a5, a6], 
     SP[a2, a4], n] + S2[a1, a5, n]*S2[a3, a6, a2, a4, n] - 
    S2[a3, a6, SP[a1, a2], SP[a4, a5], n] - S2[a3, SP[a1, a4], a2, 
     SP[a5, a6], n] - S2[a3, SP[a1, a4], a5, SP[a2, a6], n] - 
    S2[a3, SP[a1, a4], SP[a2, a6], a5, n] - S2[a3, SP[a1, a4], SP[a5, a6], 
     a2, n] - 2*S2[a3, SP[a1, a6], a2, SP[a4, a5], n] - 
    S2[a3, SP[a1, a6], a5, SP[a2, a4], n] - S2[a3, SP[a1, a6], SP[a2, a4], 
     a5, n] - S2[a3, SP[a1, a6], SP[a2, a5], a4, n] - 
    S2[a3, SP[a1, a6], SP[a4, a5], a2, n] + S2[SP[a1, a2], a4, a3, 
     SP[a5, a6], n] + S2[SP[a1, a2], a4, a6, SP[a3, a5], n] + 
    S2[SP[a1, a2], a4, SP[a3, a5], a6, n] + S2[SP[a1, a2], a4, SP[a5, a6], 
     a3, n] + S2[SP[a1, a2], a6, a3, SP[a4, a5], n] + 
    S2[SP[a1, a2], a6, a4, SP[a3, a5], n] + S2[SP[a1, a2], a6, SP[a3, a5], 
     a4, n] + S2[SP[a1, a2], a6, SP[a4, a5], a3, n] + 
    S2[SP[a1, a2], SP[a4, a5], a3, a6, n] + S2[SP[a1, a2], SP[a4, a5], a6, 
     a3, n] + S2[SP[a1, a2], SP[a5, a6], a3, a4, n] + 
    S2[SP[a1, a2], SP[a5, a6], a4, a3, n] + S2[SP[a1, a3], a2, a5, 
     SP[a4, a6], n] - S2[SP[a1, a3], a2, a6, SP[a4, a5], n] - 
    S2[SP[a1, a3], a2, SP[a4, a5], a6, n] + S2[SP[a1, a3], a2, SP[a4, a6], 
     a5, n] - S2[SP[a1, a3], a4, a2, SP[a5, a6], n] - 
    S2[SP[a1, a3], a4, a5, SP[a2, a6], n] - S2[SP[a1, a3], a4, SP[a2, a6], 
     a5, n] - S2[SP[a1, a3], a4, SP[a5, a6], a2, n] + 
    S2[SP[a1, a3], a5, a2, SP[a4, a6], n] - S2[SP[a1, a3], a5, a4, 
     SP[a2, a6], n] - S2[SP[a1, a3], a5, a6, SP[a2, a4], n] - 
    S2[SP[a1, a3], a5, SP[a2, a4], a6, n] - 
    2*S2[SP[a1, a3], a6, a2, SP[a4, a5], n] - S2[SP[a1, a3], a6, a5, 
     SP[a2, a4], n] - S2[SP[a1, a3], a6, SP[a2, a4], a5, n] - 
    S2[SP[a1, a3], a6, SP[a2, a5], a4, n] - S2[SP[a1, a3], a6, SP[a4, a5], 
     a2, n] - S2[SP[a1, a3], SP[a2, a4], a5, a6, n] - 
    S2[SP[a1, a3], SP[a2, a4], a6, a5, n] - S2[SP[a1, a3], SP[a4, a5], a2, 
     a6, n] - S2[SP[a1, a3], SP[a4, a5], a6, a2, n] - 
    S2[SP[a1, a3], SP[a5, a6], a2, a4, n] - S2[SP[a1, a3], SP[a5, a6], a4, 
     a2, n] - S2[a1, a2, a3, a5, SP[a4, a6], n] + 
    S2[a1, a2, a3, a6, SP[a4, a5], n] + S2[a1, a2, a3, SP[a4, a5], a6, n] - 
    S2[a1, a2, a3, SP[a4, a6], a5, n] + S2[a5, n]*S2[a1, a2, a4, a3, a6, n] - 
    S2[a1, a2, a4, a3, SP[a5, a6], n] - S2[a1, a2, a4, a6, SP[a3, a5], n] - 
    S2[a1, a2, a4, SP[a3, a5], a6, n] - S2[a1, a2, a4, SP[a5, a6], a3, n] - 
    S2[a1, a2, a5, a3, SP[a4, a6], n] - S2[a1, a2, a5, SP[a3, a4], a6, n] - 
    S2[a1, a2, a6, a3, SP[a4, a5], n] - S2[a1, a2, a6, a4, SP[a3, a5], n] - 
    S2[a1, a2, a6, SP[a3, a5], a4, n] - S2[a1, a2, a6, SP[a4, a5], a3, n] - 
    S2[a1, a2, SP[a3, a4], a5, a6, n] - S2[a1, a2, SP[a3, a4], a6, a5, n] - 
    S2[a1, a2, SP[a4, a5], a6, a3, n] - S2[a1, a2, SP[a5, a6], a3, a4, n] - 
    S2[a1, a2, SP[a5, a6], a4, a3, n] - S2[a1, a3, a2, a5, SP[a4, a6], n] + 
    S2[a1, a3, a2, a6, SP[a4, a5], n] + S2[a1, a3, a2, SP[a4, a5], a6, n] - 
    S2[a1, a3, a2, SP[a4, a6], a5, n] + S2[a1, a3, a4, a2, SP[a5, a6], n] + 
    S2[a1, a3, a4, a5, SP[a2, a6], n] + S2[a1, a3, a4, SP[a2, a6], a5, n] + 
    S2[a1, a3, a4, SP[a5, a6], a2, n] - S2[a1, a3, a5, a2, SP[a4, a6], n] + 
    S2[a1, a3, a5, a4, SP[a2, a6], n] + S2[a1, a3, a5, a6, SP[a2, a4], n] + 
    S2[a1, a3, a5, SP[a2, a4], a6, n] + 2*S2[a1, a3, a6, a2, SP[a4, a5], n] + 
    S2[a1, a3, a6, a5, SP[a2, a4], n] + S2[a1, a3, a6, SP[a2, a4], a5, n] + 
    S2[a1, a3, a6, SP[a2, a5], a4, n] + S2[a1, a3, a6, SP[a4, a5], a2, n] + 
    S2[a1, a3, SP[a2, a4], a5, a6, n] + S2[a1, a3, SP[a2, a4], a6, a5, n] + 
    S2[a1, a3, SP[a4, a5], a2, a6, n] + S2[a1, a3, SP[a4, a5], a6, a2, n] + 
    S2[a1, a3, SP[a5, a6], a2, a4, n] + S2[a1, a3, SP[a5, a6], a4, a2, n] - 
    S2[a3, n]*S2[a1, a4, a2, a5, a6, n] - S2[a1, a4, a2, a5, SP[a3, a6], n] - 
    S2[a3, n]*S2[a1, a4, a2, a6, a5, n] - S2[a1, a4, a2, a6, SP[a3, a5], n] - 
    S2[a1, a4, a2, SP[a3, a5], a6, n] - S2[a1, a4, a2, SP[a3, a6], a5, n] + 
    S2[a2, n]*S2[a1, a4, a3, a5, a6, n] + S2[a1, a4, a3, a5, SP[a2, a6], n] + 
    S2[a2, n]*S2[a1, a4, a3, a6, a5, n] + S2[a1, a4, a3, a6, SP[a2, a5], n] + 
    S2[a1, a4, a3, SP[a2, a5], a6, n] + S2[a1, a4, a3, SP[a2, a6], a5, n] - 
    S2[a3, n]*S2[a1, a4, a5, a2, a6, n] - S2[a1, a4, a5, a2, SP[a3, a6], n] + 
    S2[a2, n]*S2[a1, a4, a5, a3, a6, n] + S2[a1, a4, a5, a3, SP[a2, a6], n] - 
    S2[a3, n]*S2[a1, a4, a5, a6, a2, n] + 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] + S2[a1, a4, a5, SP[a2, a6], a3, n] - 
    S2[a1, a4, a5, SP[a3, a6], a2, n] - S2[a3, n]*S2[a1, a4, a6, a2, a5, n] - 
    S2[a1, a4, a6, a2, SP[a3, a5], n] + S2[a2, n]*S2[a1, a4, a6, a3, a5, n] + 
    S2[a1, a4, a6, a3, SP[a2, a5], n] - S2[a3, n]*S2[a1, a4, a6, a5, a2, n] + 
    S2[a2, n]*S2[a1, a4, a6, a5, a3, n] + S2[a1, a4, a6, SP[a2, a5], a3, n] - 
    S2[a1, a4, a6, SP[a3, a5], a2, n] + S2[a1, a4, SP[a2, a5], a3, a6, n] + 
    S2[a1, a4, SP[a2, a5], a6, a3, n] + S2[a1, a4, SP[a2, a6], a3, a5, n] + 
    S2[a1, a4, SP[a2, a6], a5, a3, n] - S2[a1, a4, SP[a3, a5], a2, a6, n] - 
    S2[a1, a4, SP[a3, a5], a6, a2, n] - S2[a1, a4, SP[a3, a6], a2, a5, n] - 
    S2[a1, a4, SP[a3, a6], a5, a2, n] - S2[a1, a5, a2, a3, SP[a4, a6], n] - 
    S2[a1, a5, a2, SP[a3, a4], a6, n] - S2[a1, a5, a3, a2, SP[a4, a6], n] + 
    S2[a1, a5, a3, a4, SP[a2, a6], n] + S2[a1, a5, a3, a6, SP[a2, a4], n] + 
    S2[a1, a5, a3, SP[a2, a4], a6, n] - S2[a3, n]*S2[a1, a5, a4, a2, a6, n] - 
    S2[a1, a5, a4, a2, SP[a3, a6], n] + S2[a2, n]*S2[a1, a5, a4, a3, a6, n] + 
    S2[a1, a5, a4, a3, SP[a2, a6], n] - S2[a3, n]*S2[a1, a5, a4, a6, a2, n] + 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] + S2[a1, a5, a4, SP[a2, a6], a3, n] - 
    S2[a1, a5, a4, SP[a3, a6], a2, n] - S2[a3, n]*S2[a1, a5, a6, a2, a4, n] - 
    S2[a1, a5, a6, a2, SP[a3, a4], n] + S2[a2, n]*S2[a1, a5, a6, a3, a4, n] + 
    S2[a1, a5, a6, a3, SP[a2, a4], n] - S2[a3, n]*S2[a1, a5, a6, a4, a2, n] + 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] + S2[a1, a5, a6, SP[a2, a4], a3, n] - 
    S2[a1, a5, a6, SP[a3, a4], a2, n] + S2[a1, a5, SP[a2, a4], a3, a6, n] + 
    S2[a1, a5, SP[a2, a4], a6, a3, n] + S2[a1, a5, SP[a2, a6], a3, a4, n] + 
    S2[a1, a5, SP[a2, a6], a4, a3, n] - S2[a1, a5, SP[a3, a4], a2, a6, n] - 
    S2[a1, a5, SP[a3, a4], a6, a2, n] - S2[a1, a5, SP[a3, a6], a2, a4, n] - 
    S2[a1, a5, SP[a3, a6], a4, a2, n] - S2[a3, n]*S2[a1, a6, a2, a4, a5, n] - 
    S2[a1, a6, a2, a4, SP[a3, a5], n] - S2[a3, n]*S2[a1, a6, a2, a5, a4, n] - 
    S2[a1, a6, a2, a5, SP[a3, a4], n] - S2[a1, a6, a2, SP[a3, a4], a5, n] - 
    S2[a1, a6, a2, SP[a3, a5], a4, n] + S2[a2, n]*S2[a1, a6, a3, a4, a5, n] + 
    S2[a1, a6, a3, a4, SP[a2, a5], n] + S2[a2, n]*S2[a1, a6, a3, a5, a4, n] + 
    S2[a1, a6, a3, a5, SP[a2, a4], n] + S2[a1, a6, a3, SP[a2, a4], a5, n] + 
    S2[a1, a6, a3, SP[a2, a5], a4, n] - S2[a3, n]*S2[a1, a6, a4, a2, a5, n] - 
    S2[a1, a6, a4, a2, SP[a3, a5], n] + S2[a2, n]*S2[a1, a6, a4, a3, a5, n] + 
    S2[a1, a6, a4, a3, SP[a2, a5], n] - S2[a3, n]*S2[a1, a6, a4, a5, a2, n] + 
    S2[a2, n]*S2[a1, a6, a4, a5, a3, n] + S2[a1, a6, a4, SP[a2, a5], a3, n] - 
    S2[a1, a6, a4, SP[a3, a5], a2, n] - S2[a3, n]*S2[a1, a6, a5, a2, a4, n] - 
    S2[a1, a6, a5, a2, SP[a3, a4], n] + S2[a2, n]*S2[a1, a6, a5, a3, a4, n] + 
    S2[a1, a6, a5, a3, SP[a2, a4], n] - S2[a3, n]*S2[a1, a6, a5, a4, a2, n] + 
    S2[a2, n]*S2[a1, a6, a5, a4, a3, n] + S2[a1, a6, a5, SP[a2, a4], a3, n] - 
    S2[a1, a6, a5, SP[a3, a4], a2, n] + S2[a1, a6, SP[a2, a4], a3, a5, n] + 
    S2[a1, a6, SP[a2, a4], a5, a3, n] + S2[a1, a6, SP[a2, a5], a3, a4, n] + 
    S2[a1, a6, SP[a2, a5], a4, a3, n] - S2[a1, a6, SP[a3, a4], a2, a5, n] - 
    S2[a1, a6, SP[a3, a4], a5, a2, n] - S2[a1, a6, SP[a3, a5], a2, a4, n] - 
    S2[a1, a6, SP[a3, a5], a4, a2, n] + S2[a1, SP[a2, a4], a3, a5, a6, n] + 
    S2[a1, SP[a2, a4], a3, a6, a5, n] + S2[a1, SP[a2, a4], a5, a3, a6, n] + 
    S2[a1, SP[a2, a4], a5, a6, a3, n] + S2[a1, SP[a2, a4], a6, a3, a5, n] + 
    S2[a1, SP[a2, a4], a6, a5, a3, n] + S2[a1, SP[a2, a5], a4, a3, a6, n] + 
    S2[a1, SP[a2, a6], a3, a4, a5, n] + S2[a1, SP[a2, a6], a3, a5, a4, n] + 
    S2[a1, SP[a2, a6], a4, a3, a5, n] + S2[a1, SP[a2, a6], a4, a5, a3, n] + 
    S2[a1, SP[a2, a6], a5, a3, a4, n] + S2[a1, SP[a2, a6], a5, a4, a3, n] - 
    S2[a1, SP[a3, a4], a2, a5, a6, n] - S2[a1, SP[a3, a4], a2, a6, a5, n] - 
    S2[a1, SP[a3, a4], a5, a2, a6, n] - S2[a1, SP[a3, a4], a5, a6, a2, n] - 
    S2[a1, SP[a3, a4], a6, a2, a5, n] - S2[a1, SP[a3, a4], a6, a5, a2, n] - 
    S2[a1, SP[a3, a6], a2, a4, a5, n] - S2[a1, SP[a3, a6], a2, a5, a4, n] - 
    S2[a1, SP[a3, a6], a4, a2, a5, n] - S2[a1, SP[a3, a6], a4, a5, a2, n] - 
    S2[a1, SP[a3, a6], a5, a2, a4, n] - S2[a1, SP[a3, a6], a5, a4, a2, n] - 
    S2[a2, a1, a4, a3, SP[a5, a6], n] - S2[a2, a1, a4, a6, SP[a3, a5], n] - 
    S2[a2, a1, a4, SP[a3, a5], a6, n] - S2[a2, a1, a4, SP[a5, a6], a3, n] - 
    S2[a2, a1, a6, a3, SP[a4, a5], n] - S2[a2, a1, a6, a4, SP[a3, a5], n] - 
    S2[a2, a1, a6, SP[a3, a5], a4, n] - S2[a2, a1, a6, SP[a4, a5], a3, n] - 
    S2[a2, a1, SP[a4, a5], a3, a6, n] - S2[a2, a1, SP[a4, a5], a6, a3, n] - 
    S2[a2, a1, SP[a5, a6], a3, a4, n] - S2[a2, a1, SP[a5, a6], a4, a3, n] + 
    S2[a6, n]*S2[a2, a4, a1, a3, a5, n] + 
    S2[a6, n]*S2[a2, a4, a1, a5, a3, n] + S2[a2, a4, a1, a5, SP[a3, a6], n] - 
    S2[a2, a4, a1, a6, SP[a3, a5], n] - S2[a2, a4, a1, SP[a3, a5], a6, n] + 
    S2[a2, a4, a1, SP[a3, a6], a5, n] + S2[a6, n]*S2[a2, a4, a3, a1, a5, n] - 
    S2[a2, a4, a6, a1, SP[a3, a5], n] - S2[a2, a4, a6, SP[a1, a3], a5, n] - 
    S2[a2, a4, SP[a1, a3], a5, a6, n] - S2[a2, a4, SP[a1, a3], a6, a5, n] + 
    S2[a2, a4, SP[a3, a6], a1, a5, n] - S2[a2, a6, a1, a3, SP[a4, a5], n] + 
    S2[a3, n]*S2[a2, a6, a1, a4, a5, n] + 
    S2[a3, n]*S2[a2, a6, a1, a5, a4, n] + S2[a2, a6, a1, a5, SP[a3, a4], n] + 
    S2[a2, a6, a1, SP[a3, a4], a5, n] - S2[a2, a6, a1, SP[a4, a5], a3, n] - 
    S2[a2, a6, a3, a1, SP[a4, a5], n] - S2[a2, a6, a3, SP[a1, a4], a5, n] - 
    S2[a2, a6, a4, a1, SP[a3, a5], n] - S2[a2, a6, a4, SP[a1, a3], a5, n] - 
    S2[a2, a6, SP[a1, a4], a3, a5, n] - S2[a2, a6, SP[a1, a4], a5, a3, n] - 
    S2[a2, SP[a1, a4], a3, a5, a6, n] - S2[a2, SP[a1, a4], a3, a6, a5, n] - 
    S2[a2, SP[a1, a4], a5, a3, a6, n] - S2[a2, SP[a1, a4], a5, a6, a3, n] - 
    S2[a2, SP[a1, a4], a6, a3, a5, n] - S2[a2, SP[a1, a4], a6, a5, a3, n] - 
    S2[a2, SP[a1, a6], a3, a4, a5, n] - S2[a2, SP[a1, a6], a3, a5, a4, n] - 
    S2[a2, SP[a1, a6], a4, a3, a5, n] - S2[a2, SP[a1, a6], a4, a5, a3, n] - 
    S2[a2, SP[a1, a6], a5, a3, a4, n] - S2[a2, SP[a1, a6], a5, a4, a3, n] + 
    S2[a2, SP[a3, a6], a1, a4, a5, n] + S2[a2, SP[a3, a6], a1, a5, a4, n] + 
    S2[a2, SP[a4, a6], a1, a3, a5, n] + S2[a2, SP[a4, a6], a1, a5, a3, n] + 
    S2[a2, SP[a4, a6], a3, a1, a5, n] - S2[a3, a1, a2, a5, SP[a4, a6], n] + 
    S2[a3, a1, a2, a6, SP[a4, a5], n] + S2[a3, a1, a2, SP[a4, a5], a6, n] - 
    S2[a3, a1, a2, SP[a4, a6], a5, n] + S2[a3, a1, a4, a2, SP[a5, a6], n] + 
    S2[a3, a1, a4, a5, SP[a2, a6], n] + S2[a3, a1, a4, SP[a2, a6], a5, n] + 
    S2[a3, a1, a4, SP[a5, a6], a2, n] - S2[a3, a1, a5, a2, SP[a4, a6], n] + 
    S2[a3, a1, a5, a4, SP[a2, a6], n] + S2[a3, a1, a5, a6, SP[a2, a4], n] + 
    S2[a3, a1, a5, SP[a2, a4], a6, n] + 2*S2[a3, a1, a6, a2, SP[a4, a5], n] + 
    S2[a3, a1, a6, a5, SP[a2, a4], n] + S2[a3, a1, a6, SP[a2, a4], a5, n] + 
    S2[a3, a1, a6, SP[a2, a5], a4, n] + S2[a3, a1, a6, SP[a4, a5], a2, n] + 
    S2[a3, a1, SP[a2, a4], a5, a6, n] + S2[a3, a1, SP[a2, a4], a6, a5, n] + 
    S2[a3, a1, SP[a4, a5], a2, a6, n] + S2[a3, a1, SP[a4, a5], a6, a2, n] + 
    S2[a3, a1, SP[a5, a6], a2, a4, n] + S2[a3, a1, SP[a5, a6], a4, a2, n] - 
    S2[a6, n]*S2[a3, a4, a1, a2, a5, n] - 
    S2[a6, n]*S2[a3, a4, a1, a5, a2, n] + 
    2*S2[a3, a6, a1, a2, SP[a4, a5], n] - 
    S2[a2, n]*S2[a3, a6, a1, a4, a5, n] - S2[a3, a6, a1, a4, SP[a2, a5], n] - 
    S2[a2, n]*S2[a3, a6, a1, a5, a4, n] + S2[a3, a6, a1, SP[a4, a5], a2, n] + 
    S2[a3, a6, a2, a1, SP[a4, a5], n] + S2[a3, a6, a2, SP[a1, a4], a5, n] + 
    S2[a3, a6, SP[a1, a4], a2, a5, n] + S2[a3, a6, SP[a1, a4], a5, a2, n] + 
    S2[a3, SP[a1, a4], a2, a5, a6, n] + S2[a3, SP[a1, a4], a2, a6, a5, n] + 
    S2[a3, SP[a1, a4], a5, a2, a6, n] + S2[a3, SP[a1, a4], a5, a6, a2, n] + 
    S2[a3, SP[a1, a4], a6, a2, a5, n] + S2[a3, SP[a1, a4], a6, a5, a2, n] + 
    S2[a3, SP[a1, a6], a2, a4, a5, n] + S2[a3, SP[a1, a6], a2, a5, a4, n] + 
    S2[a3, SP[a1, a6], a4, a2, a5, n] + S2[a3, SP[a1, a6], a4, a5, a2, n] + 
    S2[a3, SP[a1, a6], a5, a2, a4, n] + S2[a3, SP[a1, a6], a5, a4, a2, n] - 
    S2[a3, SP[a2, a6], a1, a4, a5, n] - S2[a3, SP[a2, a6], a1, a5, a4, n] - 
    S2[a3, SP[a4, a6], a1, a2, a5, n] - S2[a3, SP[a4, a6], a1, a5, a2, n] - 
    S2[a3, n]*S2[a6, a2, a4, a1, a5, n] - S2[a6, a2, a4, a1, SP[a3, a5], n] - 
    S2[a6, a2, a4, SP[a1, a3], a5, n] - S2[a6, a2, SP[a3, a4], a1, a5, n] + 
    S2[a2, n]*S2[a6, a3, a4, a1, a5, n] + S2[a6, a3, a4, a1, SP[a2, a5], n] + 
    S2[a6, a3, a4, SP[a1, a2], a5, n] + S2[a6, a3, SP[a2, a4], a1, a5, n] + 
    S2[SP[a1, a5], a2, a4, a3, a6, n] + S2[SP[a2, a6], a3, a4, a1, a5, n] + 
    S2[SP[a2, a6], a4, a1, a3, a5, n] + S2[SP[a2, a6], a4, a1, a5, a3, n] + 
    S2[SP[a2, a6], a4, a3, a1, a5, n] - S2[SP[a3, a6], a2, a4, a1, a5, n] - 
    S2[SP[a3, a6], a4, a1, a2, a5, n] - S2[SP[a3, a6], a4, a1, a5, a2, n] - 
    S2[a6, a3, a4, a2, a1, a5, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a5_, a1_, a2_, a4_, a6_, a3_, n_] :> 
  -(S2[a1, a2, a5, n]*S2[a3, a6, a4, n]) - S2[a1, a5, a2, n]*
     S2[a3, a6, a4, n] - S2[SP[a1, a3], SP[a2, a6], SP[a4, a5], n] - 
    S2[SP[a1, a3], SP[a5, a6], SP[a2, a4], n] + 
    S2[a3, a6, n]*S2[a1, a2, a4, a5, n] + S2[a3, a6, n]*
     S2[a1, a2, a5, a4, n] - S2[a1, a2, SP[a3, a4], SP[a5, a6], n] - 
    S2[a1, a2, SP[a3, a5], SP[a4, a6], n] + S2[a1, a3, SP[a2, a6], 
     SP[a4, a5], n] + S2[a1, a3, SP[a5, a6], SP[a2, a4], n] + 
    S2[a3, a6, n]*S2[a1, a5, a2, a4, n] - S2[a1, a5, SP[a2, a3], SP[a4, a6], 
     n] - S2[a1, SP[a2, a3], a4, SP[a5, a6], n] - S2[a1, SP[a2, a3], a5, 
     SP[a4, a6], n] + S2[a1, SP[a2, a3], a6, SP[a4, a5], n] - 
    S2[a1, SP[a2, a3], SP[a4, a6], a5, n] - S2[a1, SP[a3, a5], a2, 
     SP[a4, a6], n] + S2[a1, SP[a3, a5], a6, SP[a2, a4], n] + 
    S2[a1, a5, n]*S2[a2, a6, a3, a4, n] + S2[a1, a5, n]*
     S2[a2, a6, a4, a3, n] - S2[a2, a6, SP[a1, a3], SP[a4, a5], n] - 
    S2[a2, a6, SP[a1, a4], SP[a3, a5], n] - S2[a2, SP[a1, a6], a3, 
     SP[a4, a5], n] - S2[a2, SP[a1, a6], a4, SP[a3, a5], n] - 
    S2[a2, SP[a1, a6], SP[a3, a5], a4, n] - S2[a2, SP[a1, a6], SP[a4, a5], 
     a3, n] + S2[a3, a1, SP[a2, a6], SP[a4, a5], n] + 
    S2[a3, a1, SP[a5, a6], SP[a2, a4], n] - S2[a1, a5, n]*
     S2[a3, a6, a2, a4, n] + S2[a3, a6, SP[a1, a2], SP[a4, a5], n] + 
    2*S2[a3, SP[a1, a6], a2, SP[a4, a5], n] + S2[a3, SP[a1, a6], a5, 
     SP[a2, a4], n] + S2[a3, SP[a1, a6], SP[a2, a4], a5, n] + 
    S2[a3, SP[a1, a6], SP[a2, a5], a4, n] + S2[a3, SP[a1, a6], SP[a4, a5], 
     a2, n] - S2[SP[a1, a2], a6, a3, SP[a4, a5], n] - 
    S2[SP[a1, a2], a6, a4, SP[a3, a5], n] - S2[SP[a1, a2], a6, SP[a3, a5], 
     a4, n] - S2[SP[a1, a2], a6, SP[a4, a5], a3, n] - 
    S2[SP[a1, a2], SP[a5, a6], a3, a4, n] - S2[SP[a1, a2], SP[a5, a6], a4, 
     a3, n] - S2[SP[a1, a3], a2, a4, SP[a5, a6], n] - 
    S2[SP[a1, a3], a2, a5, SP[a4, a6], n] + S2[SP[a1, a3], a2, a6, 
     SP[a4, a5], n] - S2[SP[a1, a3], a2, SP[a4, a6], a5, n] - 
    S2[SP[a1, a3], a5, a2, SP[a4, a6], n] + S2[SP[a1, a3], a5, a6, 
     SP[a2, a4], n] + 2*S2[SP[a1, a3], a6, a2, SP[a4, a5], n] + 
    S2[SP[a1, a3], a6, a5, SP[a2, a4], n] + S2[SP[a1, a3], a6, SP[a2, a4], 
     a5, n] + S2[SP[a1, a3], a6, SP[a2, a5], a4, n] + 
    S2[SP[a1, a3], a6, SP[a4, a5], a2, n] + S2[SP[a1, a3], SP[a5, a6], a2, 
     a4, n] + S2[SP[a1, a3], SP[a5, a6], a4, a2, n] + 
    S2[a1, a2, a3, a4, SP[a5, a6], n] + S2[a1, a2, a3, a5, SP[a4, a6], n] - 
    S2[a1, a2, a3, a6, SP[a4, a5], n] + S2[a1, a2, a3, SP[a4, a6], a5, n] + 
    S2[a1, a2, a4, a3, SP[a5, a6], n] - S2[a3, n]*S2[a1, a2, a4, a5, a6, n] - 
    S2[a1, a2, a4, a5, SP[a3, a6], n] + S2[a5, n]*S2[a1, a2, a4, a6, a3, n] - 
    S2[a3, n]*S2[a1, a2, a4, a6, a5, n] - S2[a1, a2, a4, SP[a3, a6], a5, n] + 
    S2[a1, a2, a4, SP[a5, a6], a3, n] + S2[a1, a2, a5, a3, SP[a4, a6], n] - 
    S2[a3, n]*S2[a1, a2, a5, a4, a6, n] - S2[a1, a2, a5, a4, SP[a3, a6], n] + 
    S2[a1, a2, a6, a3, SP[a4, a5], n] + S2[a1, a2, a6, a4, SP[a3, a5], n] + 
    S2[a1, a2, a6, SP[a3, a5], a4, n] + S2[a1, a2, a6, SP[a4, a5], a3, n] + 
    S2[a1, a2, SP[a4, a5], a6, a3, n] + S2[a1, a2, SP[a5, a6], a3, a4, n] + 
    S2[a1, a2, SP[a5, a6], a4, a3, n] + S2[a1, a3, a2, a4, SP[a5, a6], n] + 
    S2[a1, a3, a2, a5, SP[a4, a6], n] - S2[a1, a3, a2, a6, SP[a4, a5], n] + 
    S2[a1, a3, a2, SP[a4, a6], a5, n] + S2[a1, a3, a5, a2, SP[a4, a6], n] - 
    S2[a1, a3, a5, a6, SP[a2, a4], n] - 2*S2[a1, a3, a6, a2, SP[a4, a5], n] - 
    S2[a1, a3, a6, a5, SP[a2, a4], n] - S2[a1, a3, a6, SP[a2, a4], a5, n] - 
    S2[a1, a3, a6, SP[a2, a5], a4, n] - S2[a1, a3, a6, SP[a4, a5], a2, n] - 
    S2[a1, a3, SP[a5, a6], a2, a4, n] - S2[a1, a3, SP[a5, a6], a4, a2, n] + 
    S2[a1, a5, a2, a3, SP[a4, a6], n] - S2[a3, n]*S2[a1, a5, a2, a4, a6, n] - 
    S2[a1, a5, a2, a4, SP[a3, a6], n] + S2[a1, a5, a3, a2, SP[a4, a6], n] - 
    S2[a1, a5, a3, a6, SP[a2, a4], n] + S2[a3, n]*S2[a1, a5, a6, a2, a4, n] + 
    S2[a1, a5, a6, a2, SP[a3, a4], n] - S2[a2, n]*S2[a1, a5, a6, a3, a4, n] - 
    S2[a1, a5, a6, a3, SP[a2, a4], n] + S2[a3, n]*S2[a1, a5, a6, a4, a2, n] - 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] - S2[a1, a5, a6, SP[a2, a4], a3, n] + 
    S2[a1, a5, a6, SP[a3, a4], a2, n] - S2[a1, a5, SP[a2, a6], a3, a4, n] - 
    S2[a1, a5, SP[a2, a6], a4, a3, n] + S2[a1, a5, SP[a3, a6], a2, a4, n] + 
    S2[a1, a5, SP[a3, a6], a4, a2, n] + S2[a3, n]*S2[a1, a6, a2, a4, a5, n] + 
    S2[a1, a6, a2, a4, SP[a3, a5], n] + S2[a3, n]*S2[a1, a6, a2, a5, a4, n] + 
    S2[a1, a6, a2, a5, SP[a3, a4], n] + S2[a1, a6, a2, SP[a3, a4], a5, n] + 
    S2[a1, a6, a2, SP[a3, a5], a4, n] - S2[a2, n]*S2[a1, a6, a3, a4, a5, n] - 
    S2[a1, a6, a3, a4, SP[a2, a5], n] - S2[a2, n]*S2[a1, a6, a3, a5, a4, n] - 
    S2[a1, a6, a3, a5, SP[a2, a4], n] - S2[a1, a6, a3, SP[a2, a4], a5, n] - 
    S2[a1, a6, a3, SP[a2, a5], a4, n] + S2[a3, n]*S2[a1, a6, a4, a2, a5, n] + 
    S2[a1, a6, a4, a2, SP[a3, a5], n] - S2[a2, n]*S2[a1, a6, a4, a3, a5, n] - 
    S2[a1, a6, a4, a3, SP[a2, a5], n] + S2[a3, n]*S2[a1, a6, a4, a5, a2, n] - 
    S2[a2, n]*S2[a1, a6, a4, a5, a3, n] - S2[a1, a6, a4, SP[a2, a5], a3, n] + 
    S2[a1, a6, a4, SP[a3, a5], a2, n] + S2[a3, n]*S2[a1, a6, a5, a2, a4, n] + 
    S2[a1, a6, a5, a2, SP[a3, a4], n] - S2[a2, n]*S2[a1, a6, a5, a3, a4, n] - 
    S2[a1, a6, a5, a3, SP[a2, a4], n] + S2[a3, n]*S2[a1, a6, a5, a4, a2, n] - 
    S2[a2, n]*S2[a1, a6, a5, a4, a3, n] - S2[a1, a6, a5, SP[a2, a4], a3, n] + 
    S2[a1, a6, a5, SP[a3, a4], a2, n] - S2[a1, a6, SP[a2, a4], a3, a5, n] - 
    S2[a1, a6, SP[a2, a4], a5, a3, n] - S2[a1, a6, SP[a2, a5], a3, a4, n] - 
    S2[a1, a6, SP[a2, a5], a4, a3, n] + S2[a1, a6, SP[a3, a4], a2, a5, n] + 
    S2[a1, a6, SP[a3, a4], a5, a2, n] + S2[a1, a6, SP[a3, a5], a2, a4, n] + 
    S2[a1, a6, SP[a3, a5], a4, a2, n] + S2[a1, SP[a2, a5], a4, a6, a3, n] - 
    S2[a1, SP[a2, a6], a3, a4, a5, n] - S2[a1, SP[a2, a6], a3, a5, a4, n] - 
    S2[a1, SP[a2, a6], a4, a3, a5, n] - S2[a1, SP[a2, a6], a4, a5, a3, n] - 
    S2[a1, SP[a2, a6], a5, a3, a4, n] - S2[a1, SP[a2, a6], a5, a4, a3, n] + 
    S2[a1, SP[a3, a6], a2, a4, a5, n] + S2[a1, SP[a3, a6], a2, a5, a4, n] + 
    S2[a1, SP[a3, a6], a4, a2, a5, n] + S2[a1, SP[a3, a6], a4, a5, a2, n] + 
    S2[a1, SP[a3, a6], a5, a2, a4, n] + S2[a1, SP[a3, a6], a5, a4, a2, n] + 
    S2[a2, a1, a6, a3, SP[a4, a5], n] + S2[a2, a1, a6, a4, SP[a3, a5], n] + 
    S2[a2, a1, a6, SP[a3, a5], a4, n] + S2[a2, a1, a6, SP[a4, a5], a3, n] + 
    S2[a2, a1, SP[a5, a6], a3, a4, n] + S2[a2, a1, SP[a5, a6], a4, a3, n] + 
    S2[a2, a6, a1, a3, SP[a4, a5], n] - S2[a3, n]*S2[a2, a6, a1, a4, a5, n] - 
    S2[a3, n]*S2[a2, a6, a1, a5, a4, n] - S2[a2, a6, a1, a5, SP[a3, a4], n] - 
    S2[a2, a6, a1, SP[a3, a4], a5, n] + S2[a2, a6, a1, SP[a4, a5], a3, n] + 
    S2[a2, a6, a3, a1, SP[a4, a5], n] + S2[a2, a6, a3, SP[a1, a4], a5, n] + 
    S2[a2, a6, a4, a1, SP[a3, a5], n] + S2[a2, a6, a4, SP[a1, a3], a5, n] + 
    S2[a2, a6, SP[a1, a4], a3, a5, n] + S2[a2, a6, SP[a1, a4], a5, a3, n] + 
    S2[a2, SP[a1, a6], a3, a4, a5, n] + S2[a2, SP[a1, a6], a3, a5, a4, n] + 
    S2[a2, SP[a1, a6], a4, a3, a5, n] + S2[a2, SP[a1, a6], a4, a5, a3, n] + 
    S2[a2, SP[a1, a6], a5, a3, a4, n] + S2[a2, SP[a1, a6], a5, a4, a3, n] - 
    S2[a2, SP[a3, a6], a1, a4, a5, n] - S2[a2, SP[a3, a6], a1, a5, a4, n] + 
    S2[a3, a1, a2, a4, SP[a5, a6], n] + S2[a3, a1, a2, a5, SP[a4, a6], n] - 
    S2[a3, a1, a2, a6, SP[a4, a5], n] + S2[a3, a1, a2, SP[a4, a6], a5, n] + 
    S2[a3, a1, a5, a2, SP[a4, a6], n] - S2[a3, a1, a5, a6, SP[a2, a4], n] - 
    2*S2[a3, a1, a6, a2, SP[a4, a5], n] - S2[a3, a1, a6, a5, SP[a2, a4], n] - 
    S2[a3, a1, a6, SP[a2, a4], a5, n] - S2[a3, a1, a6, SP[a2, a5], a4, n] - 
    S2[a3, a1, a6, SP[a4, a5], a2, n] - S2[a3, a1, SP[a5, a6], a2, a4, n] - 
    S2[a3, a1, SP[a5, a6], a4, a2, n] - 2*S2[a3, a6, a1, a2, SP[a4, a5], n] + 
    S2[a2, n]*S2[a3, a6, a1, a4, a5, n] + S2[a3, a6, a1, a4, SP[a2, a5], n] + 
    S2[a2, n]*S2[a3, a6, a1, a5, a4, n] - S2[a3, a6, a1, SP[a4, a5], a2, n] - 
    S2[a3, a6, a2, a1, SP[a4, a5], n] - S2[a3, a6, a2, SP[a1, a4], a5, n] - 
    S2[a3, a6, SP[a1, a4], a2, a5, n] - S2[a3, a6, SP[a1, a4], a5, a2, n] - 
    S2[a3, SP[a1, a6], a2, a4, a5, n] - S2[a3, SP[a1, a6], a2, a5, a4, n] - 
    S2[a3, SP[a1, a6], a4, a2, a5, n] - S2[a3, SP[a1, a6], a4, a5, a2, n] - 
    S2[a3, SP[a1, a6], a5, a2, a4, n] - S2[a3, SP[a1, a6], a5, a4, a2, n] + 
    S2[a3, SP[a2, a6], a1, a4, a5, n] + S2[a3, SP[a2, a6], a1, a5, a4, n] + 
    S2[a3, n]*S2[a6, a2, a4, a1, a5, n] + S2[a6, a2, a4, a1, SP[a3, a5], n] + 
    S2[a6, a2, a4, SP[a1, a3], a5, n] + S2[a6, a2, SP[a3, a4], a1, a5, n] - 
    S2[a2, n]*S2[a6, a3, a4, a1, a5, n] - S2[a6, a3, a4, a1, SP[a2, a5], n] - 
    S2[a6, a3, a4, SP[a1, a2], a5, n] - S2[a6, a3, SP[a2, a4], a1, a5, n] + 
    S2[a3, n]*S2[a6, a4, a1, a2, a5, n] + S2[a6, a4, a1, a2, SP[a3, a5], n] - 
    S2[a2, n]*S2[a6, a4, a1, a3, a5, n] - S2[a6, a4, a1, a3, SP[a2, a5], n] + 
    S2[a3, n]*S2[a6, a4, a1, a5, a2, n] - 
    S2[a2, n]*S2[a6, a4, a1, a5, a3, n] - S2[a6, a4, a1, SP[a2, a5], a3, n] + 
    S2[a6, a4, a1, SP[a3, a5], a2, n] - S2[a2, n]*S2[a6, a4, a3, a1, a5, n] - 
    S2[a6, a4, a3, a1, SP[a2, a5], n] - S2[a6, a4, a3, SP[a1, a2], a5, n] - 
    S2[a6, a4, SP[a1, a2], a3, a5, n] - S2[a6, a4, SP[a1, a2], a5, a3, n] + 
    S2[a6, a4, SP[a1, a3], a2, a5, n] + S2[a6, a4, SP[a1, a3], a5, a2, n] - 
    S2[a6, a4, SP[a2, a3], a1, a5, n] - S2[a6, SP[a2, a4], a1, a3, a5, n] - 
    S2[a6, SP[a2, a4], a1, a5, a3, n] - S2[a6, SP[a2, a4], a3, a1, a5, n] + 
    S2[a6, SP[a3, a4], a1, a2, a5, n] + S2[a6, SP[a3, a4], a1, a5, a2, n] + 
    S2[SP[a1, a5], a2, a4, a6, a3, n] - S2[SP[a2, a6], a3, a4, a1, a5, n] - 
    S2[SP[a2, a6], a4, a1, a3, a5, n] - S2[SP[a2, a6], a4, a1, a5, a3, n] - 
    S2[SP[a2, a6], a4, a3, a1, a5, n] + S2[SP[a3, a6], a2, a4, a1, a5, n] + 
    S2[SP[a3, a6], a4, a1, a2, a5, n] + S2[SP[a3, a6], a4, a1, a5, a2, n] + 
    S2[a6, a3, a4, a2, a1, a5, n] + S2[a6, a4, a2, a1, a3, a5, n] + 
    S2[a6, a4, a2, a1, a5, a3, n] + S2[a6, a4, a2, a3, a1, a5, n] + 
    S2[a6, a4, a3, a2, a1, a5, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a5_, a1_, a2_, a6_, a3_, a4_, n_] :> 
  S2[a1, a2, a5, n]*S2[a3, a4, a6, n] + S2[a1, a5, a2, n]*S2[a3, a4, a6, n] + 
    S2[a1, a2, a5, n]*S2[a3, a6, a4, n] + S2[a1, a5, a2, n]*
     S2[a3, a6, a4, n] + S2[SP[a1, a3], SP[a2, a4], SP[a5, a6], n] + 
    S2[SP[a1, a3], SP[a2, a6], SP[a4, a5], n] + S2[SP[a1, a3], SP[a4, a5], 
     SP[a2, a6], n] + S2[SP[a1, a3], SP[a5, a6], SP[a2, a4], n] - 
    S2[a1, a3, SP[a2, a4], SP[a5, a6], n] - S2[a1, a3, SP[a2, a6], 
     SP[a4, a5], n] - S2[a1, a3, SP[a4, a5], SP[a2, a6], n] - 
    S2[a1, a3, SP[a5, a6], SP[a2, a4], n] - S2[a1, SP[a2, a3], a4, 
     SP[a5, a6], n] - S2[a1, SP[a2, a3], a6, SP[a4, a5], n] - 
    S2[a1, SP[a2, a3], SP[a4, a5], a6, n] - S2[a1, SP[a2, a3], SP[a5, a6], 
     a4, n] - S2[a1, SP[a3, a5], a4, SP[a2, a6], n] - 
    S2[a1, SP[a3, a5], a6, SP[a2, a4], n] - S2[a1, SP[a3, a5], SP[a2, a4], 
     a6, n] - S2[a1, SP[a3, a5], SP[a2, a6], a4, n] - 
    S2[a1, a5, n]*S2[a2, a6, a3, a4, n] + S2[a2, a6, SP[a1, a3], SP[a4, a5], 
     n] + S2[a2, SP[a1, a6], a3, SP[a4, a5], n] + 
    S2[a2, SP[a1, a6], SP[a3, a5], a4, n] - S2[a3, a1, SP[a2, a4], 
     SP[a5, a6], n] - S2[a3, a1, SP[a2, a6], SP[a4, a5], n] - 
    S2[a3, a1, SP[a4, a5], SP[a2, a6], n] - S2[a3, a1, SP[a5, a6], 
     SP[a2, a4], n] - S2[a3, SP[a1, a4], a2, SP[a5, a6], n] - 
    S2[a3, SP[a1, a4], a5, SP[a2, a6], n] - S2[a3, SP[a1, a4], SP[a2, a6], 
     a5, n] - S2[a3, SP[a1, a4], SP[a5, a6], a2, n] - 
    S2[a3, SP[a1, a6], a2, SP[a4, a5], n] - S2[a3, SP[a1, a6], a5, 
     SP[a2, a4], n] - S2[a3, SP[a1, a6], SP[a2, a4], a5, n] - 
    S2[a3, SP[a1, a6], SP[a4, a5], a2, n] + S2[SP[a1, a2], a6, a3, 
     SP[a4, a5], n] + S2[SP[a1, a2], a6, SP[a3, a5], a4, n] + 
    S2[SP[a1, a2], SP[a5, a6], a3, a4, n] - S2[SP[a1, a3], a2, a4, 
     SP[a5, a6], n] - S2[SP[a1, a3], a2, a6, SP[a4, a5], n] - 
    S2[SP[a1, a3], a2, SP[a4, a5], a6, n] - S2[SP[a1, a3], a2, SP[a5, a6], 
     a4, n] - S2[SP[a1, a3], a4, a2, SP[a5, a6], n] - 
    S2[SP[a1, a3], a4, a5, SP[a2, a6], n] - S2[SP[a1, a3], a4, SP[a2, a6], 
     a5, n] - S2[SP[a1, a3], a4, SP[a5, a6], a2, n] - 
    S2[SP[a1, a3], a5, a4, SP[a2, a6], n] - S2[SP[a1, a3], a5, a6, 
     SP[a2, a4], n] - S2[SP[a1, a3], a5, SP[a2, a4], a6, n] - 
    S2[SP[a1, a3], a5, SP[a2, a6], a4, n] - S2[SP[a1, a3], a6, a2, 
     SP[a4, a5], n] - S2[SP[a1, a3], a6, a5, SP[a2, a4], n] - 
    S2[SP[a1, a3], a6, SP[a2, a4], a5, n] - S2[SP[a1, a3], a6, SP[a4, a5], 
     a2, n] - S2[SP[a1, a3], SP[a2, a4], a5, a6, n] - 
    S2[SP[a1, a3], SP[a2, a4], a6, a5, n] - S2[SP[a1, a3], SP[a2, a6], a4, 
     a5, n] - S2[SP[a1, a3], SP[a2, a6], a5, a4, n] - 
    S2[SP[a1, a3], SP[a4, a5], a2, a6, n] - S2[SP[a1, a3], SP[a4, a5], a6, 
     a2, n] - S2[SP[a1, a3], SP[a5, a6], a2, a4, n] - 
    S2[SP[a1, a3], SP[a5, a6], a4, a2, n] + S2[a1, a2, a3, a4, SP[a5, a6], 
     n] + S2[a1, a2, a3, a6, SP[a4, a5], n] + S2[a1, a2, a3, SP[a4, a5], a6, 
     n] + S2[a1, a2, a3, SP[a5, a6], a4, n] + 
    S2[a6, n]*S2[a1, a2, a4, a3, a5, n] + S2[a1, a2, a4, a3, SP[a5, a6], n] + 
    S2[a6, n]*S2[a1, a2, a4, a5, a3, n] - 
    S2[a3, n]*S2[a1, a2, a4, a5, a6, n] - 
    S2[a3, n]*S2[a1, a2, a4, a6, a5, n] - S2[a1, a2, a4, a6, SP[a3, a5], n] - 
    S2[a1, a2, a4, SP[a3, a5], a6, n] + S2[a1, a2, a4, SP[a5, a6], a3, n] + 
    S2[a6, n]*S2[a1, a2, a5, a4, a3, n] - 
    S2[a3, n]*S2[a1, a2, a5, a4, a6, n] - 
    S2[a3, n]*S2[a1, a2, a5, a6, a4, n] - S2[a1, a2, a5, a6, SP[a3, a4], n] - 
    S2[a1, a2, a5, SP[a3, a4], a6, n] - S2[a1, a2, a5, SP[a3, a6], a4, n] + 
    S2[a1, a2, a5, SP[a4, a6], a3, n] + S2[a5, n]*S2[a1, a2, a6, a3, a4, n] - 
    S2[a3, n]*S2[a1, a2, a6, a4, a5, n] - S2[a1, a2, a6, a4, SP[a3, a5], n] - 
    S2[a3, n]*S2[a1, a2, a6, a5, a4, n] - S2[a1, a2, a6, a5, SP[a3, a4], n] - 
    S2[a1, a2, a6, SP[a3, a4], a5, n] - S2[a1, a2, a6, SP[a3, a5], a4, n] - 
    S2[a1, a2, SP[a3, a4], a5, a6, n] - S2[a1, a2, SP[a3, a4], a6, a5, n] - 
    S2[a1, a2, SP[a3, a6], a4, a5, n] - S2[a1, a2, SP[a3, a6], a5, a4, n] + 
    S2[a1, a2, SP[a4, a6], a3, a5, n] + S2[a1, a2, SP[a4, a6], a5, a3, n] + 
    S2[a1, a2, SP[a5, a6], a4, a3, n] + S2[a1, a3, a2, a4, SP[a5, a6], n] + 
    S2[a1, a3, a2, a6, SP[a4, a5], n] + S2[a1, a3, a2, SP[a4, a5], a6, n] + 
    S2[a1, a3, a2, SP[a5, a6], a4, n] + S2[a1, a3, a4, a2, SP[a5, a6], n] + 
    S2[a1, a3, a4, a5, SP[a2, a6], n] + S2[a1, a3, a4, SP[a2, a6], a5, n] + 
    S2[a1, a3, a4, SP[a5, a6], a2, n] + S2[a1, a3, a5, a4, SP[a2, a6], n] + 
    S2[a1, a3, a5, a6, SP[a2, a4], n] + S2[a1, a3, a5, SP[a2, a4], a6, n] + 
    S2[a1, a3, a5, SP[a2, a6], a4, n] + S2[a1, a3, a6, a2, SP[a4, a5], n] + 
    S2[a1, a3, a6, a5, SP[a2, a4], n] + S2[a1, a3, a6, SP[a2, a4], a5, n] + 
    S2[a1, a3, a6, SP[a4, a5], a2, n] + S2[a1, a3, SP[a2, a4], a5, a6, n] + 
    S2[a1, a3, SP[a2, a4], a6, a5, n] + S2[a1, a3, SP[a2, a6], a4, a5, n] + 
    S2[a1, a3, SP[a2, a6], a5, a4, n] + S2[a1, a3, SP[a4, a5], a2, a6, n] + 
    S2[a1, a3, SP[a4, a5], a6, a2, n] + S2[a1, a3, SP[a5, a6], a2, a4, n] + 
    S2[a1, a3, SP[a5, a6], a4, a2, n] + S2[a6, n]*S2[a1, a4, a2, a3, a5, n] + 
    S2[a1, a4, a2, a3, SP[a5, a6], n] + S2[a6, n]*S2[a1, a4, a2, a5, a3, n] - 
    S2[a3, n]*S2[a1, a4, a2, a5, a6, n] - 
    S2[a3, n]*S2[a1, a4, a2, a6, a5, n] - S2[a1, a4, a2, a6, SP[a3, a5], n] - 
    S2[a1, a4, a2, SP[a3, a5], a6, n] + S2[a1, a4, a2, SP[a5, a6], a3, n] + 
    S2[a6, n]*S2[a1, a4, a3, a2, a5, n] + S2[a1, a4, a3, a2, SP[a5, a6], n] + 
    S2[a6, n]*S2[a1, a4, a3, a5, a2, n] + S2[a1, a4, a3, a5, SP[a2, a6], n] + 
    S2[a1, a4, a3, SP[a2, a6], a5, n] + S2[a1, a4, a3, SP[a5, a6], a2, n] + 
    S2[a6, n]*S2[a1, a4, a5, a2, a3, n] - 
    S2[a3, n]*S2[a1, a4, a5, a2, a6, n] + 
    S2[a6, n]*S2[a1, a4, a5, a3, a2, n] + S2[a1, a4, a5, a3, SP[a2, a6], n] - 
    S2[a3, n]*S2[a1, a4, a5, a6, a2, n] - S2[a1, a4, a5, a6, SP[a2, a3], n] - 
    S2[a1, a4, a5, SP[a2, a3], a6, n] + S2[a1, a4, a5, SP[a2, a6], a3, n] - 
    S2[a3, n]*S2[a1, a4, a6, a2, a5, n] - S2[a1, a4, a6, a2, SP[a3, a5], n] - 
    S2[a3, n]*S2[a1, a4, a6, a5, a2, n] - S2[a1, a4, a6, a5, SP[a2, a3], n] - 
    S2[a1, a4, a6, SP[a2, a3], a5, n] - S2[a1, a4, a6, SP[a3, a5], a2, n] - 
    S2[a1, a4, SP[a2, a3], a5, a6, n] - S2[a1, a4, SP[a2, a3], a6, a5, n] + 
    S2[a1, a4, SP[a2, a6], a3, a5, n] + S2[a1, a4, SP[a2, a6], a5, a3, n] - 
    S2[a1, a4, SP[a3, a5], a2, a6, n] - S2[a1, a4, SP[a3, a5], a6, a2, n] + 
    S2[a1, a4, SP[a5, a6], a2, a3, n] + S2[a1, a4, SP[a5, a6], a3, a2, n] + 
    S2[a6, n]*S2[a1, a5, a2, a4, a3, n] - 
    S2[a3, n]*S2[a1, a5, a2, a4, a6, n] - 
    S2[a3, n]*S2[a1, a5, a2, a6, a4, n] - S2[a1, a5, a2, a6, SP[a3, a4], n] - 
    S2[a1, a5, a2, SP[a3, a4], a6, n] - S2[a1, a5, a2, SP[a3, a6], a4, n] + 
    S2[a1, a5, a2, SP[a4, a6], a3, n] + S2[a1, a5, a3, a4, SP[a2, a6], n] + 
    S2[a1, a5, a3, a6, SP[a2, a4], n] + S2[a1, a5, a3, SP[a2, a4], a6, n] + 
    S2[a1, a5, a3, SP[a2, a6], a4, n] + S2[a6, n]*S2[a1, a5, a4, a2, a3, n] - 
    S2[a3, n]*S2[a1, a5, a4, a2, a6, n] + 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] + S2[a1, a5, a4, a3, SP[a2, a6], n] - 
    S2[a3, n]*S2[a1, a5, a4, a6, a2, n] - S2[a1, a5, a4, a6, SP[a2, a3], n] - 
    S2[a1, a5, a4, SP[a2, a3], a6, n] + S2[a1, a5, a4, SP[a2, a6], a3, n] - 
    S2[a3, n]*S2[a1, a5, a6, a2, a4, n] - S2[a1, a5, a6, a2, SP[a3, a4], n] + 
    S2[a2, n]*S2[a1, a5, a6, a3, a4, n] + S2[a1, a5, a6, a3, SP[a2, a4], n] - 
    S2[a3, n]*S2[a1, a5, a6, a4, a2, n] - S2[a1, a5, a6, a4, SP[a2, a3], n] - 
    S2[a1, a5, a6, SP[a3, a4], a2, n] + S2[a1, a5, SP[a2, a6], a3, a4, n] + 
    S2[a1, a5, SP[a2, a6], a4, a3, n] - S2[a1, a5, SP[a3, a4], a2, a6, n] - 
    S2[a1, a5, SP[a3, a4], a6, a2, n] - S2[a1, a5, SP[a3, a6], a2, a4, n] - 
    S2[a1, a5, SP[a3, a6], a4, a2, n] + S2[a1, a5, SP[a4, a6], a2, a3, n] + 
    S2[a1, a5, SP[a4, a6], a3, a2, n] - S2[a3, n]*S2[a1, a6, a2, a4, a5, n] - 
    S2[a1, a6, a2, a4, SP[a3, a5], n] - S2[a3, n]*S2[a1, a6, a2, a5, a4, n] - 
    S2[a1, a6, a2, a5, SP[a3, a4], n] - S2[a1, a6, a2, SP[a3, a4], a5, n] - 
    S2[a1, a6, a2, SP[a3, a5], a4, n] + S2[a2, n]*S2[a1, a6, a3, a4, a5, n] + 
    S2[a1, a6, a3, a4, SP[a2, a5], n] + S2[a2, n]*S2[a1, a6, a3, a5, a4, n] + 
    S2[a1, a6, a3, a5, SP[a2, a4], n] + S2[a1, a6, a3, SP[a2, a4], a5, n] + 
    S2[a1, a6, a3, SP[a2, a5], a4, n] - S2[a3, n]*S2[a1, a6, a4, a2, a5, n] - 
    S2[a1, a6, a4, a2, SP[a3, a5], n] - S2[a3, n]*S2[a1, a6, a4, a5, a2, n] - 
    S2[a1, a6, a4, a5, SP[a2, a3], n] - S2[a1, a6, a4, SP[a2, a3], a5, n] - 
    S2[a1, a6, a4, SP[a3, a5], a2, n] - S2[a3, n]*S2[a1, a6, a5, a2, a4, n] - 
    S2[a1, a6, a5, a2, SP[a3, a4], n] + S2[a2, n]*S2[a1, a6, a5, a3, a4, n] + 
    S2[a1, a6, a5, a3, SP[a2, a4], n] - S2[a3, n]*S2[a1, a6, a5, a4, a2, n] - 
    S2[a1, a6, a5, a4, SP[a2, a3], n] - S2[a1, a6, a5, SP[a3, a4], a2, n] + 
    S2[a1, a6, SP[a2, a5], a3, a4, n] - S2[a1, a6, SP[a3, a4], a2, a5, n] - 
    S2[a1, a6, SP[a3, a4], a5, a2, n] - S2[a1, a6, SP[a3, a5], a2, a4, n] - 
    S2[a1, a6, SP[a3, a5], a4, a2, n] + S2[a1, SP[a2, a5], a6, a3, a4, n] + 
    S2[a1, SP[a2, a6], a3, a4, a5, n] + S2[a1, SP[a2, a6], a3, a5, a4, n] + 
    S2[a1, SP[a2, a6], a4, a3, a5, n] + S2[a1, SP[a2, a6], a4, a5, a3, n] + 
    S2[a1, SP[a2, a6], a5, a3, a4, n] + S2[a1, SP[a2, a6], a5, a4, a3, n] - 
    S2[a1, SP[a3, a4], a2, a5, a6, n] - S2[a1, SP[a3, a4], a2, a6, a5, n] - 
    S2[a1, SP[a3, a4], a5, a2, a6, n] - S2[a1, SP[a3, a4], a5, a6, a2, n] - 
    S2[a1, SP[a3, a4], a6, a2, a5, n] - S2[a1, SP[a3, a4], a6, a5, a2, n] - 
    S2[a1, SP[a3, a6], a2, a4, a5, n] - S2[a1, SP[a3, a6], a2, a5, a4, n] - 
    S2[a1, SP[a3, a6], a4, a2, a5, n] - S2[a1, SP[a3, a6], a4, a5, a2, n] - 
    S2[a1, SP[a3, a6], a5, a2, a4, n] - S2[a1, SP[a3, a6], a5, a4, a2, n] + 
    S2[a1, SP[a4, a6], a2, a3, a5, n] + S2[a1, SP[a4, a6], a2, a5, a3, n] + 
    S2[a1, SP[a4, a6], a3, a2, a5, n] + S2[a1, SP[a4, a6], a3, a5, a2, n] + 
    S2[a1, SP[a4, a6], a5, a2, a3, n] + S2[a1, SP[a4, a6], a5, a3, a2, n] + 
    S2[a1, SP[a5, a6], a2, a4, a3, n] + S2[a1, SP[a5, a6], a4, a2, a3, n] + 
    S2[a1, SP[a5, a6], a4, a3, a2, n] - S2[a2, a1, a6, a3, SP[a4, a5], n] - 
    S2[a2, a1, a6, SP[a3, a5], a4, n] - S2[a2, a1, SP[a5, a6], a3, a4, n] - 
    S2[a2, a6, a1, a3, SP[a4, a5], n] - S2[a2, a6, a1, SP[a3, a5], a4, n] - 
    S2[a2, a6, a3, a1, SP[a4, a5], n] - S2[a2, a6, a3, SP[a1, a4], a5, n] - 
    S2[a2, a6, SP[a1, a3], a4, a5, n] - S2[a2, a6, SP[a1, a3], a5, a4, n] - 
    S2[a2, SP[a1, a6], a3, a4, a5, n] - S2[a2, SP[a1, a6], a3, a5, a4, n] - 
    S2[a2, SP[a1, a6], a5, a3, a4, n] + S2[a3, a1, a2, a4, SP[a5, a6], n] + 
    S2[a3, a1, a2, a6, SP[a4, a5], n] + S2[a3, a1, a2, SP[a4, a5], a6, n] + 
    S2[a3, a1, a2, SP[a5, a6], a4, n] + S2[a3, a1, a4, a2, SP[a5, a6], n] + 
    S2[a3, a1, a4, a5, SP[a2, a6], n] + S2[a3, a1, a4, SP[a2, a6], a5, n] + 
    S2[a3, a1, a4, SP[a5, a6], a2, n] + S2[a3, a1, a5, a4, SP[a2, a6], n] + 
    S2[a3, a1, a5, a6, SP[a2, a4], n] + S2[a3, a1, a5, SP[a2, a4], a6, n] + 
    S2[a3, a1, a5, SP[a2, a6], a4, n] + S2[a3, a1, a6, a2, SP[a4, a5], n] + 
    S2[a3, a1, a6, a5, SP[a2, a4], n] + S2[a3, a1, a6, SP[a2, a4], a5, n] + 
    S2[a3, a1, a6, SP[a4, a5], a2, n] + S2[a3, a1, SP[a2, a4], a5, a6, n] + 
    S2[a3, a1, SP[a2, a4], a6, a5, n] + S2[a3, a1, SP[a2, a6], a4, a5, n] + 
    S2[a3, a1, SP[a2, a6], a5, a4, n] + S2[a3, a1, SP[a4, a5], a2, a6, n] + 
    S2[a3, a1, SP[a4, a5], a6, a2, n] + S2[a3, a1, SP[a5, a6], a2, a4, n] + 
    S2[a3, a1, SP[a5, a6], a4, a2, n] - S2[a6, n]*S2[a3, a4, a1, a2, a5, n] - 
    S2[a6, n]*S2[a3, a4, a1, a5, a2, n] + S2[a3, a6, a1, a2, SP[a4, a5], n] + 
    S2[a3, a6, a1, a5, SP[a2, a4], n] + S2[a3, a6, a1, SP[a2, a4], a5, n] + 
    S2[a3, a6, a1, SP[a4, a5], a2, n] + S2[a3, a6, SP[a1, a4], a2, a5, n] + 
    S2[a3, a6, SP[a1, a4], a5, a2, n] + S2[a3, SP[a1, a4], a2, a5, a6, n] + 
    S2[a3, SP[a1, a4], a2, a6, a5, n] + S2[a3, SP[a1, a4], a5, a2, a6, n] + 
    S2[a3, SP[a1, a4], a5, a6, a2, n] + S2[a3, SP[a1, a4], a6, a2, a5, n] + 
    S2[a3, SP[a1, a4], a6, a5, a2, n] + S2[a3, SP[a1, a6], a2, a4, a5, n] + 
    S2[a3, SP[a1, a6], a2, a5, a4, n] + S2[a3, SP[a1, a6], a4, a2, a5, n] + 
    S2[a3, SP[a1, a6], a4, a5, a2, n] + S2[a3, SP[a1, a6], a5, a2, a4, n] + 
    S2[a3, SP[a1, a6], a5, a4, a2, n] - S2[a3, SP[a4, a6], a1, a2, a5, n] - 
    S2[a3, SP[a4, a6], a1, a5, a2, n] - S2[a3, n]*S2[a6, a1, a2, a4, a5, n] - 
    S2[a6, a1, a2, a4, SP[a3, a5], n] - S2[a3, n]*S2[a6, a1, a2, a5, a4, n] - 
    S2[a6, a1, a2, a5, SP[a3, a4], n] - S2[a6, a1, a2, SP[a3, a4], a5, n] - 
    S2[a6, a1, a2, SP[a3, a5], a4, n] + S2[a2, n]*S2[a6, a1, a3, a4, a5, n] + 
    S2[a6, a1, a3, a4, SP[a2, a5], n] + S2[a2, n]*S2[a6, a1, a3, a5, a4, n] + 
    S2[a6, a1, a3, a5, SP[a2, a4], n] + S2[a6, a1, a3, SP[a2, a4], a5, n] + 
    S2[a6, a1, a3, SP[a2, a5], a4, n] - S2[a3, n]*S2[a6, a1, a4, a2, a5, n] - 
    S2[a6, a1, a4, a2, SP[a3, a5], n] - S2[a3, n]*S2[a6, a1, a4, a5, a2, n] - 
    S2[a6, a1, a4, a5, SP[a2, a3], n] - S2[a6, a1, a4, SP[a2, a3], a5, n] - 
    S2[a6, a1, a4, SP[a3, a5], a2, n] - S2[a3, n]*S2[a6, a1, a5, a2, a4, n] - 
    S2[a6, a1, a5, a2, SP[a3, a4], n] + S2[a2, n]*S2[a6, a1, a5, a3, a4, n] + 
    S2[a6, a1, a5, a3, SP[a2, a4], n] - S2[a3, n]*S2[a6, a1, a5, a4, a2, n] - 
    S2[a6, a1, a5, a4, SP[a2, a3], n] - S2[a6, a1, a5, SP[a3, a4], a2, n] + 
    S2[a6, a1, SP[a2, a5], a3, a4, n] - S2[a6, a1, SP[a3, a4], a2, a5, n] - 
    S2[a6, a1, SP[a3, a4], a5, a2, n] - S2[a6, a1, SP[a3, a5], a2, a4, n] - 
    S2[a6, a1, SP[a3, a5], a4, a2, n] + S2[a2, n]*S2[a6, a3, a1, a4, a5, n] + 
    S2[a6, a3, a1, a4, SP[a2, a5], n] + S2[a2, n]*S2[a6, a3, a1, a5, a4, n] + 
    S2[a6, a3, a1, a5, SP[a2, a4], n] + S2[a6, a3, a1, SP[a2, a4], a5, n] + 
    S2[a6, a3, a1, SP[a2, a5], a4, n] + S2[a2, n]*S2[a6, a3, a4, a1, a5, n] + 
    S2[a6, a3, a4, a1, SP[a2, a5], n] + S2[a6, a3, a4, SP[a1, a2], a5, n] + 
    S2[a6, a3, SP[a1, a2], a4, a5, n] + S2[a6, a3, SP[a1, a2], a5, a4, n] + 
    S2[a6, a3, SP[a2, a4], a1, a5, n] + S2[a6, SP[a1, a2], a3, a4, a5, n] + 
    S2[a6, SP[a1, a2], a3, a5, a4, n] + S2[a6, SP[a1, a2], a5, a3, a4, n] - 
    S2[a6, SP[a1, a3], a2, a4, a5, n] - S2[a6, SP[a1, a3], a2, a5, a4, n] - 
    S2[a6, SP[a1, a3], a4, a2, a5, n] - S2[a6, SP[a1, a3], a4, a5, a2, n] - 
    S2[a6, SP[a1, a3], a5, a2, a4, n] - S2[a6, SP[a1, a3], a5, a4, a2, n] + 
    S2[a6, SP[a2, a3], a1, a4, a5, n] + S2[a6, SP[a2, a3], a1, a5, a4, n] + 
    S2[a6, SP[a2, a3], a4, a1, a5, n] + S2[SP[a1, a5], a2, a6, a3, a4, n] + 
    S2[SP[a1, a6], a2, a4, a3, a5, n] + S2[SP[a1, a6], a2, a4, a5, a3, n] + 
    S2[SP[a1, a6], a2, a5, a4, a3, n] + S2[SP[a1, a6], a4, a2, a3, a5, n] + 
    S2[SP[a1, a6], a4, a2, a5, a3, n] + S2[SP[a1, a6], a4, a3, a2, a5, n] + 
    S2[SP[a1, a6], a4, a3, a5, a2, n] + S2[SP[a1, a6], a4, a5, a2, a3, n] + 
    S2[SP[a1, a6], a4, a5, a3, a2, n] + S2[SP[a1, a6], a5, a2, a4, a3, n] + 
    S2[SP[a1, a6], a5, a4, a2, a3, n] + S2[SP[a1, a6], a5, a4, a3, a2, n] + 
    S2[SP[a2, a6], a1, a3, a4, a5, n] + S2[SP[a2, a6], a1, a3, a5, a4, n] + 
    S2[SP[a2, a6], a1, a5, a3, a4, n] + S2[SP[a2, a6], a3, a1, a4, a5, n] + 
    S2[SP[a2, a6], a3, a1, a5, a4, n] + S2[SP[a2, a6], a3, a4, a1, a5, n] - 
    S2[SP[a3, a6], a1, a2, a4, a5, n] - S2[SP[a3, a6], a1, a2, a5, a4, n] - 
    S2[SP[a3, a6], a1, a4, a2, a5, n] - S2[SP[a3, a6], a1, a4, a5, a2, n] - 
    S2[SP[a3, a6], a1, a5, a2, a4, n] - S2[SP[a3, a6], a1, a5, a4, a2, n] - 
    S2[SP[a3, a6], a4, a1, a2, a5, n] - S2[SP[a3, a6], a4, a1, a5, a2, n] - 
    S2[a6, a2, a1, a3, a4, a5, n] - S2[a6, a2, a1, a3, a5, a4, n] - 
    S2[a6, a2, a1, a5, a3, a4, n] - S2[a6, a2, a3, a1, a4, a5, n] - 
    S2[a6, a2, a3, a1, a5, a4, n] - S2[a6, a2, a3, a4, a1, a5, n] - 
    S2[a6, a3, a2, a1, a4, a5, n] - S2[a6, a3, a2, a1, a5, a4, n] - 
    S2[a6, a3, a2, a4, a1, a5, n] - S2[a6, a3, a4, a2, a1, a5, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a5_, a1_, a2_, a6_, a4_, a3_, n_] :> 
  -(S2[a1, a2, a5, n]*S2[a3, a4, a6, n]) - S2[a1, a5, a2, n]*
     S2[a3, a4, a6, n] - S2[SP[a1, a3], SP[a2, a4], SP[a5, a6], n] - 
    S2[SP[a1, a3], SP[a4, a5], SP[a2, a6], n] + S2[a1, a3, SP[a2, a4], 
     SP[a5, a6], n] + S2[a1, a3, SP[a4, a5], SP[a2, a6], n] + 
    S2[a1, SP[a2, a3], a4, SP[a5, a6], n] + S2[a1, SP[a2, a3], SP[a4, a5], 
     a6, n] + S2[a1, SP[a3, a5], a4, SP[a2, a6], n] + 
    S2[a1, SP[a3, a5], SP[a2, a4], a6, n] - S2[a1, a5, n]*
     S2[a2, a6, a4, a3, n] + S2[a2, a6, SP[a1, a4], SP[a3, a5], n] + 
    S2[a2, SP[a1, a6], a4, SP[a3, a5], n] + S2[a2, SP[a1, a6], SP[a4, a5], 
     a3, n] + S2[a3, a1, SP[a2, a4], SP[a5, a6], n] + 
    S2[a3, a1, SP[a4, a5], SP[a2, a6], n] + S2[a3, SP[a1, a4], a2, 
     SP[a5, a6], n] + S2[a3, SP[a1, a4], a5, SP[a2, a6], n] + 
    S2[a3, SP[a1, a4], SP[a2, a6], a5, n] + S2[a3, SP[a1, a4], SP[a5, a6], 
     a2, n] + S2[SP[a1, a2], a6, a4, SP[a3, a5], n] + 
    S2[SP[a1, a2], a6, SP[a4, a5], a3, n] + S2[SP[a1, a2], SP[a5, a6], a4, 
     a3, n] + S2[SP[a1, a3], a2, a4, SP[a5, a6], n] + 
    S2[SP[a1, a3], a2, SP[a4, a5], a6, n] + S2[SP[a1, a3], a4, a2, 
     SP[a5, a6], n] + S2[SP[a1, a3], a4, a5, SP[a2, a6], n] + 
    S2[SP[a1, a3], a4, SP[a2, a6], a5, n] + S2[SP[a1, a3], a4, SP[a5, a6], 
     a2, n] + S2[SP[a1, a3], a5, a4, SP[a2, a6], n] + 
    S2[SP[a1, a3], a5, SP[a2, a4], a6, n] + S2[SP[a1, a3], SP[a2, a4], a5, 
     a6, n] + S2[SP[a1, a3], SP[a2, a4], a6, a5, n] + 
    S2[SP[a1, a3], SP[a4, a5], a2, a6, n] + S2[SP[a1, a3], SP[a4, a5], a6, 
     a2, n] - S2[a1, a2, a3, a4, SP[a5, a6], n] - S2[a1, a2, a3, SP[a4, a5], 
     a6, n] - S2[a6, n]*S2[a1, a2, a4, a3, a5, n] - 
    S2[a1, a2, a4, a3, SP[a5, a6], n] - S2[a6, n]*S2[a1, a2, a4, a5, a3, n] + 
    S2[a3, n]*S2[a1, a2, a4, a5, a6, n] + 
    S2[a3, n]*S2[a1, a2, a4, a6, a5, n] + S2[a1, a2, a4, a6, SP[a3, a5], n] + 
    S2[a1, a2, a4, SP[a3, a5], a6, n] - S2[a1, a2, a4, SP[a5, a6], a3, n] - 
    S2[a6, n]*S2[a1, a2, a5, a4, a3, n] + 
    S2[a3, n]*S2[a1, a2, a5, a4, a6, n] + S2[a1, a2, a5, SP[a3, a4], a6, n] - 
    S2[a1, a2, a5, SP[a4, a6], a3, n] + S2[a5, n]*S2[a1, a2, a6, a4, a3, n] + 
    S2[a1, a2, SP[a3, a4], a5, a6, n] + S2[a1, a2, SP[a3, a4], a6, a5, n] - 
    S2[a1, a2, SP[a4, a6], a3, a5, n] - S2[a1, a2, SP[a4, a6], a5, a3, n] - 
    S2[a1, a2, SP[a5, a6], a4, a3, n] - S2[a1, a3, a2, a4, SP[a5, a6], n] - 
    S2[a1, a3, a2, SP[a4, a5], a6, n] - S2[a1, a3, a4, a2, SP[a5, a6], n] - 
    S2[a1, a3, a4, a5, SP[a2, a6], n] - S2[a1, a3, a4, SP[a2, a6], a5, n] - 
    S2[a1, a3, a4, SP[a5, a6], a2, n] - S2[a1, a3, a5, a4, SP[a2, a6], n] - 
    S2[a1, a3, a5, SP[a2, a4], a6, n] - S2[a1, a3, SP[a2, a4], a5, a6, n] - 
    S2[a1, a3, SP[a2, a4], a6, a5, n] - S2[a1, a3, SP[a4, a5], a2, a6, n] - 
    S2[a1, a3, SP[a4, a5], a6, a2, n] - S2[a6, n]*S2[a1, a4, a2, a3, a5, n] - 
    S2[a1, a4, a2, a3, SP[a5, a6], n] - S2[a6, n]*S2[a1, a4, a2, a5, a3, n] + 
    S2[a3, n]*S2[a1, a4, a2, a5, a6, n] + 
    S2[a3, n]*S2[a1, a4, a2, a6, a5, n] + S2[a1, a4, a2, a6, SP[a3, a5], n] + 
    S2[a1, a4, a2, SP[a3, a5], a6, n] - S2[a1, a4, a2, SP[a5, a6], a3, n] - 
    S2[a6, n]*S2[a1, a4, a3, a2, a5, n] - S2[a1, a4, a3, a2, SP[a5, a6], n] - 
    S2[a6, n]*S2[a1, a4, a3, a5, a2, n] - S2[a1, a4, a3, a5, SP[a2, a6], n] - 
    S2[a1, a4, a3, SP[a2, a6], a5, n] - S2[a1, a4, a3, SP[a5, a6], a2, n] - 
    S2[a6, n]*S2[a1, a4, a5, a2, a3, n] + 
    S2[a3, n]*S2[a1, a4, a5, a2, a6, n] - 
    S2[a6, n]*S2[a1, a4, a5, a3, a2, n] - S2[a1, a4, a5, a3, SP[a2, a6], n] + 
    S2[a3, n]*S2[a1, a4, a5, a6, a2, n] + S2[a1, a4, a5, a6, SP[a2, a3], n] + 
    S2[a1, a4, a5, SP[a2, a3], a6, n] - S2[a1, a4, a5, SP[a2, a6], a3, n] + 
    S2[a3, n]*S2[a1, a4, a6, a2, a5, n] + S2[a1, a4, a6, a2, SP[a3, a5], n] + 
    S2[a3, n]*S2[a1, a4, a6, a5, a2, n] + S2[a1, a4, a6, a5, SP[a2, a3], n] + 
    S2[a1, a4, a6, SP[a2, a3], a5, n] + S2[a1, a4, a6, SP[a3, a5], a2, n] + 
    S2[a1, a4, SP[a2, a3], a5, a6, n] + S2[a1, a4, SP[a2, a3], a6, a5, n] - 
    S2[a1, a4, SP[a2, a6], a3, a5, n] - S2[a1, a4, SP[a2, a6], a5, a3, n] + 
    S2[a1, a4, SP[a3, a5], a2, a6, n] + S2[a1, a4, SP[a3, a5], a6, a2, n] - 
    S2[a1, a4, SP[a5, a6], a2, a3, n] - S2[a1, a4, SP[a5, a6], a3, a2, n] - 
    S2[a6, n]*S2[a1, a5, a2, a4, a3, n] + 
    S2[a3, n]*S2[a1, a5, a2, a4, a6, n] + S2[a1, a5, a2, SP[a3, a4], a6, n] - 
    S2[a1, a5, a2, SP[a4, a6], a3, n] - S2[a1, a5, a3, a4, SP[a2, a6], n] - 
    S2[a1, a5, a3, SP[a2, a4], a6, n] - S2[a6, n]*S2[a1, a5, a4, a2, a3, n] + 
    S2[a3, n]*S2[a1, a5, a4, a2, a6, n] - 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] - S2[a1, a5, a4, a3, SP[a2, a6], n] + 
    S2[a3, n]*S2[a1, a5, a4, a6, a2, n] + S2[a1, a5, a4, a6, SP[a2, a3], n] + 
    S2[a1, a5, a4, SP[a2, a3], a6, n] - S2[a1, a5, a4, SP[a2, a6], a3, n] + 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] + S2[a1, a5, a6, a4, SP[a2, a3], n] + 
    S2[a1, a5, a6, SP[a2, a4], a3, n] + S2[a1, a5, SP[a3, a4], a2, a6, n] + 
    S2[a1, a5, SP[a3, a4], a6, a2, n] - S2[a1, a5, SP[a4, a6], a2, a3, n] - 
    S2[a1, a5, SP[a4, a6], a3, a2, n] + S2[a2, n]*S2[a1, a6, a4, a3, a5, n] + 
    S2[a1, a6, a4, a3, SP[a2, a5], n] + S2[a2, n]*S2[a1, a6, a4, a5, a3, n] + 
    S2[a1, a6, a4, a5, SP[a2, a3], n] + S2[a1, a6, a4, SP[a2, a3], a5, n] + 
    S2[a1, a6, a4, SP[a2, a5], a3, n] + S2[a2, n]*S2[a1, a6, a5, a4, a3, n] + 
    S2[a1, a6, a5, a4, SP[a2, a3], n] + S2[a1, a6, a5, SP[a2, a4], a3, n] + 
    S2[a1, a6, SP[a2, a4], a3, a5, n] + S2[a1, a6, SP[a2, a4], a5, a3, n] + 
    S2[a1, a6, SP[a2, a5], a4, a3, n] + S2[a1, SP[a2, a5], a6, a4, a3, n] + 
    S2[a1, SP[a3, a4], a2, a5, a6, n] + S2[a1, SP[a3, a4], a2, a6, a5, n] + 
    S2[a1, SP[a3, a4], a5, a2, a6, n] + S2[a1, SP[a3, a4], a5, a6, a2, n] + 
    S2[a1, SP[a3, a4], a6, a2, a5, n] + S2[a1, SP[a3, a4], a6, a5, a2, n] - 
    S2[a1, SP[a4, a6], a2, a3, a5, n] - S2[a1, SP[a4, a6], a2, a5, a3, n] - 
    S2[a1, SP[a4, a6], a3, a2, a5, n] - S2[a1, SP[a4, a6], a3, a5, a2, n] - 
    S2[a1, SP[a4, a6], a5, a2, a3, n] - S2[a1, SP[a4, a6], a5, a3, a2, n] - 
    S2[a1, SP[a5, a6], a2, a4, a3, n] - S2[a1, SP[a5, a6], a4, a2, a3, n] - 
    S2[a1, SP[a5, a6], a4, a3, a2, n] - S2[a2, a1, a6, a4, SP[a3, a5], n] - 
    S2[a2, a1, a6, SP[a4, a5], a3, n] - S2[a2, a1, SP[a5, a6], a4, a3, n] - 
    S2[a2, a6, a1, a4, SP[a3, a5], n] - S2[a2, a6, a1, SP[a4, a5], a3, n] - 
    S2[a2, a6, a4, a1, SP[a3, a5], n] - S2[a2, a6, a4, SP[a1, a3], a5, n] - 
    S2[a2, a6, SP[a1, a4], a3, a5, n] - S2[a2, a6, SP[a1, a4], a5, a3, n] - 
    S2[a2, SP[a1, a6], a4, a3, a5, n] - S2[a2, SP[a1, a6], a4, a5, a3, n] - 
    S2[a2, SP[a1, a6], a5, a4, a3, n] - S2[a3, a1, a2, a4, SP[a5, a6], n] - 
    S2[a3, a1, a2, SP[a4, a5], a6, n] - S2[a3, a1, a4, a2, SP[a5, a6], n] - 
    S2[a3, a1, a4, a5, SP[a2, a6], n] - S2[a3, a1, a4, SP[a2, a6], a5, n] - 
    S2[a3, a1, a4, SP[a5, a6], a2, n] - S2[a3, a1, a5, a4, SP[a2, a6], n] - 
    S2[a3, a1, a5, SP[a2, a4], a6, n] - S2[a3, a1, SP[a2, a4], a5, a6, n] - 
    S2[a3, a1, SP[a2, a4], a6, a5, n] - S2[a3, a1, SP[a4, a5], a2, a6, n] - 
    S2[a3, a1, SP[a4, a5], a6, a2, n] + S2[a6, n]*S2[a3, a4, a1, a2, a5, n] + 
    S2[a6, n]*S2[a3, a4, a1, a5, a2, n] - S2[a3, SP[a1, a4], a2, a5, a6, n] - 
    S2[a3, SP[a1, a4], a2, a6, a5, n] - S2[a3, SP[a1, a4], a5, a2, a6, n] - 
    S2[a3, SP[a1, a4], a5, a6, a2, n] - S2[a3, SP[a1, a4], a6, a2, a5, n] - 
    S2[a3, SP[a1, a4], a6, a5, a2, n] + S2[a3, SP[a4, a6], a1, a2, a5, n] + 
    S2[a3, SP[a4, a6], a1, a5, a2, n] + S2[a2, n]*S2[a6, a1, a4, a3, a5, n] + 
    S2[a6, a1, a4, a3, SP[a2, a5], n] + S2[a2, n]*S2[a6, a1, a4, a5, a3, n] + 
    S2[a6, a1, a4, a5, SP[a2, a3], n] + S2[a6, a1, a4, SP[a2, a3], a5, n] + 
    S2[a6, a1, a4, SP[a2, a5], a3, n] + S2[a2, n]*S2[a6, a1, a5, a4, a3, n] + 
    S2[a6, a1, a5, a4, SP[a2, a3], n] + S2[a6, a1, a5, SP[a2, a4], a3, n] + 
    S2[a6, a1, SP[a2, a4], a3, a5, n] + S2[a6, a1, SP[a2, a4], a5, a3, n] + 
    S2[a6, a1, SP[a2, a5], a4, a3, n] - S2[a3, n]*S2[a6, a4, a1, a2, a5, n] - 
    S2[a6, a4, a1, a2, SP[a3, a5], n] + S2[a2, n]*S2[a6, a4, a1, a3, a5, n] + 
    S2[a6, a4, a1, a3, SP[a2, a5], n] - S2[a3, n]*S2[a6, a4, a1, a5, a2, n] + 
    S2[a2, n]*S2[a6, a4, a1, a5, a3, n] + S2[a6, a4, a1, SP[a2, a5], a3, n] - 
    S2[a6, a4, a1, SP[a3, a5], a2, n] + S2[a2, n]*S2[a6, a4, a3, a1, a5, n] + 
    S2[a6, a4, a3, a1, SP[a2, a5], n] + S2[a6, a4, a3, SP[a1, a2], a5, n] + 
    S2[a6, a4, SP[a1, a2], a3, a5, n] + S2[a6, a4, SP[a1, a2], a5, a3, n] - 
    S2[a6, a4, SP[a1, a3], a2, a5, n] - S2[a6, a4, SP[a1, a3], a5, a2, n] + 
    S2[a6, a4, SP[a2, a3], a1, a5, n] + S2[a6, SP[a1, a2], a4, a3, a5, n] + 
    S2[a6, SP[a1, a2], a4, a5, a3, n] + S2[a6, SP[a1, a2], a5, a4, a3, n] + 
    S2[a6, SP[a2, a4], a1, a3, a5, n] + S2[a6, SP[a2, a4], a1, a5, a3, n] + 
    S2[a6, SP[a2, a4], a3, a1, a5, n] - S2[a6, SP[a3, a4], a1, a2, a5, n] - 
    S2[a6, SP[a3, a4], a1, a5, a2, n] + S2[SP[a1, a5], a2, a6, a4, a3, n] - 
    S2[SP[a1, a6], a2, a4, a3, a5, n] - S2[SP[a1, a6], a2, a4, a5, a3, n] - 
    S2[SP[a1, a6], a2, a5, a4, a3, n] - S2[SP[a1, a6], a4, a2, a3, a5, n] - 
    S2[SP[a1, a6], a4, a2, a5, a3, n] - S2[SP[a1, a6], a4, a3, a2, a5, n] - 
    S2[SP[a1, a6], a4, a3, a5, a2, n] - S2[SP[a1, a6], a4, a5, a2, a3, n] - 
    S2[SP[a1, a6], a4, a5, a3, a2, n] - S2[SP[a1, a6], a5, a2, a4, a3, n] - 
    S2[SP[a1, a6], a5, a4, a2, a3, n] - S2[SP[a1, a6], a5, a4, a3, a2, n] + 
    S2[SP[a2, a6], a1, a4, a3, a5, n] + S2[SP[a2, a6], a1, a4, a5, a3, n] + 
    S2[SP[a2, a6], a1, a5, a4, a3, n] + S2[SP[a2, a6], a4, a1, a3, a5, n] + 
    S2[SP[a2, a6], a4, a1, a5, a3, n] + S2[SP[a2, a6], a4, a3, a1, a5, n] - 
    S2[a6, a2, a1, a4, a3, a5, n] - S2[a6, a2, a1, a4, a5, a3, n] - 
    S2[a6, a2, a1, a5, a4, a3, n] - S2[a6, a2, a4, a1, a3, a5, n] - 
    S2[a6, a2, a4, a1, a5, a3, n] - S2[a6, a2, a4, a3, a1, a5, n] - 
    S2[a6, a4, a2, a1, a3, a5, n] - S2[a6, a4, a2, a1, a5, a3, n] - 
    S2[a6, a4, a2, a3, a1, a5, n] - S2[a6, a4, a3, a2, a1, a5, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a5_, a1_, a3_, a2_, a4_, a6_, n_] :> 
  -(S2[a1, a3, a5, n]*S2[a2, a4, a6, n]) - S2[a1, a5, a3, n]*
     S2[a2, a4, a6, n] - S2[SP[a1, a2], SP[a3, a4], SP[a5, a6], n] - 
    S2[SP[a1, a2], SP[a4, a5], SP[a3, a6], n] + S2[a1, a2, SP[a3, a4], 
     SP[a5, a6], n] + S2[a1, a2, SP[a4, a5], SP[a3, a6], n] - 
    S2[a4, a6, n]*S2[a1, a3, a2, a5, n] - S2[a4, a6, n]*
     S2[a1, a3, a5, a2, n] + S2[a1, a3, SP[a2, a4], SP[a5, a6], n] + 
    S2[a1, a3, SP[a4, a5], SP[a2, a6], n] - S2[a4, a6, n]*
     S2[a1, a5, a3, a2, n] + S2[a1, a5, SP[a3, a4], SP[a2, a6], n] + 
    S2[a1, SP[a2, a3], a4, SP[a5, a6], n] + S2[a1, SP[a2, a3], SP[a4, a5], 
     a6, n] + S2[a1, SP[a2, a5], a4, SP[a3, a6], n] + 
    S2[a1, SP[a2, a5], SP[a3, a4], a6, n] + S2[a1, SP[a3, a4], a2, 
     SP[a5, a6], n] + S2[a1, SP[a3, a4], a5, SP[a2, a6], n] + 
    S2[a1, SP[a3, a4], SP[a2, a6], a5, n] + S2[a1, SP[a3, a4], SP[a5, a6], 
     a2, n] + S2[a1, SP[a4, a5], a3, SP[a2, a6], n] + 
    S2[a1, SP[a4, a5], SP[a3, a6], a2, n] + S2[a2, a1, SP[a3, a4], 
     SP[a5, a6], n] + S2[a2, a1, SP[a4, a5], SP[a3, a6], n] + 
    S2[a1, a5, n]*S2[a2, a3, a4, a6, n] + S2[a1, a5, n]*
     S2[a2, a3, a6, a4, n] - S2[a2, a3, SP[a1, a4], SP[a5, a6], n] - 
    S2[a2, a3, SP[a1, a6], SP[a4, a5], n] + S2[a1, a5, n]*
     S2[a2, a4, a3, a6, n] + S2[a1, a5, n]*S2[a2, a4, a6, a3, n] - 
    S2[a2, a4, SP[a1, a3], SP[a5, a6], n] - S2[a2, a4, SP[a1, a6], 
     SP[a3, a5], n] + S2[a1, a5, n]*S2[a2, a6, a3, a4, n] + 
    S2[a1, a5, n]*S2[a2, a6, a4, a3, n] - S2[a2, a6, SP[a1, a3], SP[a4, a5], 
     n] - S2[a2, a6, SP[a1, a4], SP[a3, a5], n] - S2[a2, SP[a1, a3], a4, 
     SP[a5, a6], n] - S2[a2, SP[a1, a3], a6, SP[a4, a5], n] - 
    S2[a2, SP[a1, a3], SP[a4, a5], a6, n] - S2[a2, SP[a1, a3], SP[a5, a6], 
     a4, n] + S2[a2, SP[a1, a4], a5, SP[a3, a6], n] - 
    S2[a2, SP[a1, a4], a6, SP[a3, a5], n] - S2[a2, SP[a1, a4], SP[a3, a5], 
     a6, n] + S2[a2, SP[a1, a4], SP[a3, a6], a5, n] - 
    S2[a2, SP[a1, a6], a3, SP[a4, a5], n] - S2[a2, SP[a1, a6], a4, 
     SP[a3, a5], n] - S2[a2, SP[a1, a6], SP[a3, a5], a4, n] - 
    S2[a2, SP[a1, a6], SP[a4, a5], a3, n] - S2[a1, a5, n]*
     S2[a4, a6, a2, a3, n] + S2[a4, a6, SP[a1, a2], SP[a3, a5], n] + 
    S2[a4, SP[a1, a6], a2, SP[a3, a5], n] + S2[a4, SP[a1, a6], SP[a2, a5], 
     a3, n] - S2[SP[a1, a2], a3, a6, SP[a4, a5], n] - 
    S2[SP[a1, a2], a3, SP[a5, a6], a4, n] + S2[SP[a1, a2], a4, a5, 
     SP[a3, a6], n] - S2[SP[a1, a2], a4, a6, SP[a3, a5], n] - 
    S2[SP[a1, a2], a4, SP[a3, a5], a6, n] + S2[SP[a1, a2], a4, SP[a3, a6], 
     a5, n] + S2[SP[a1, a2], a5, a4, SP[a3, a6], n] + 
    S2[SP[a1, a2], a5, SP[a3, a4], a6, n] - S2[SP[a1, a2], a6, a3, 
     SP[a4, a5], n] - S2[SP[a1, a2], a6, a4, SP[a3, a5], n] - 
    S2[SP[a1, a2], a6, SP[a3, a5], a4, n] - S2[SP[a1, a2], a6, SP[a4, a5], 
     a3, n] + S2[SP[a1, a2], SP[a3, a4], a5, a6, n] + 
    S2[SP[a1, a2], SP[a3, a4], a6, a5, n] - S2[SP[a1, a2], SP[a3, a5], a4, 
     a6, n] - S2[SP[a1, a2], SP[a3, a5], a6, a4, n] - 
    S2[SP[a1, a2], SP[a5, a6], a3, a4, n] - S2[SP[a1, a2], SP[a5, a6], a4, 
     a3, n] + S2[SP[a1, a4], a3, a2, SP[a5, a6], n] + 
    S2[SP[a1, a4], a3, a5, SP[a2, a6], n] + S2[SP[a1, a4], a3, SP[a2, a6], 
     a5, n] + S2[SP[a1, a4], a3, SP[a5, a6], a2, n] + 
    S2[SP[a1, a4], a5, a3, SP[a2, a6], n] + S2[SP[a1, a4], a5, SP[a3, a6], 
     a2, n] + S2[SP[a1, a4], a6, a2, SP[a3, a5], n] + 
    S2[SP[a1, a4], a6, SP[a2, a5], a3, n] + S2[SP[a1, a4], SP[a3, a6], a2, 
     a5, n] + S2[SP[a1, a4], SP[a3, a6], a5, a2, n] + 
    S2[SP[a1, a4], SP[a5, a6], a2, a3, n] + S2[SP[a1, a4], SP[a5, a6], a3, 
     a2, n] + S2[a1, a2, a3, a6, SP[a4, a5], n] + S2[a1, a2, a3, SP[a5, a6], 
     a4, n] - S2[a1, a2, a4, a5, SP[a3, a6], n] + 
    S2[a1, a2, a4, a6, SP[a3, a5], n] + S2[a1, a2, a4, SP[a3, a5], a6, n] - 
    S2[a1, a2, a4, SP[a3, a6], a5, n] - S2[a1, a2, a5, a4, SP[a3, a6], n] - 
    S2[a1, a2, a5, SP[a3, a4], a6, n] + S2[a1, a2, a6, a3, SP[a4, a5], n] + 
    S2[a1, a2, a6, a4, SP[a3, a5], n] + S2[a1, a2, a6, SP[a3, a5], a4, n] + 
    S2[a1, a2, a6, SP[a4, a5], a3, n] - S2[a1, a2, SP[a3, a4], a5, a6, n] - 
    S2[a1, a2, SP[a3, a4], a6, a5, n] + S2[a1, a2, SP[a3, a5], a4, a6, n] + 
    S2[a1, a2, SP[a3, a5], a6, a4, n] + S2[a1, a2, SP[a5, a6], a3, a4, n] + 
    S2[a1, a2, SP[a5, a6], a4, a3, n] + S2[a5, n]*S2[a1, a3, a2, a4, a6, n] - 
    S2[a1, a3, a2, a4, SP[a5, a6], n] + S2[a4, n]*S2[a1, a3, a2, a5, a6, n] + 
    S2[a1, a3, a2, a5, SP[a4, a6], n] + S2[a4, n]*S2[a1, a3, a2, a6, a5, n] + 
    S2[a1, a3, a2, a6, SP[a4, a5], n] + S2[a1, a3, a2, SP[a4, a6], a5, n] - 
    S2[a1, a3, a4, a2, SP[a5, a6], n] - S2[a1, a3, a4, a5, SP[a2, a6], n] - 
    S2[a1, a3, a4, SP[a2, a6], a5, n] - S2[a1, a3, a4, SP[a5, a6], a2, n] + 
    S2[a4, n]*S2[a1, a3, a5, a2, a6, n] + S2[a1, a3, a5, a2, SP[a4, a6], n] - 
    S2[a1, a3, a5, a4, SP[a2, a6], n] + S2[a4, n]*S2[a1, a3, a5, a6, a2, n] - 
    S2[a2, n]*S2[a1, a3, a5, a6, a4, n] - S2[a1, a3, a5, SP[a2, a6], a4, n] + 
    S2[a1, a3, a5, SP[a4, a6], a2, n] + S2[a4, n]*S2[a1, a3, a6, a2, a5, n] + 
    S2[a1, a3, a6, a2, SP[a4, a5], n] - S2[a2, n]*S2[a1, a3, a6, a4, a5, n] - 
    S2[a1, a3, a6, a4, SP[a2, a5], n] + S2[a4, n]*S2[a1, a3, a6, a5, a2, n] - 
    S2[a2, n]*S2[a1, a3, a6, a5, a4, n] - S2[a1, a3, a6, SP[a2, a5], a4, n] + 
    S2[a1, a3, a6, SP[a4, a5], a2, n] - S2[a1, a3, SP[a2, a5], a6, a4, n] - 
    S2[a1, a3, SP[a2, a6], a4, a5, n] - S2[a1, a3, SP[a2, a6], a5, a4, n] + 
    S2[a1, a3, SP[a4, a6], a2, a5, n] + S2[a1, a3, SP[a4, a6], a5, a2, n] - 
    S2[a1, a4, a3, a2, SP[a5, a6], n] - S2[a1, a4, a3, a5, SP[a2, a6], n] - 
    S2[a1, a4, a3, SP[a2, a6], a5, n] - S2[a1, a4, a3, SP[a5, a6], a2, n] - 
    S2[a1, a4, a5, a3, SP[a2, a6], n] - S2[a1, a4, a5, SP[a3, a6], a2, n] - 
    S2[a1, a4, a6, a2, SP[a3, a5], n] - S2[a1, a4, a6, SP[a2, a5], a3, n] - 
    S2[a1, a4, SP[a3, a6], a2, a5, n] - S2[a1, a4, SP[a3, a6], a5, a2, n] - 
    S2[a1, a4, SP[a5, a6], a2, a3, n] - S2[a1, a4, SP[a5, a6], a3, a2, n] - 
    S2[a1, a5, a2, a4, SP[a3, a6], n] - S2[a1, a5, a2, SP[a3, a4], a6, n] + 
    S2[a4, n]*S2[a1, a5, a3, a2, a6, n] + S2[a1, a5, a3, a2, SP[a4, a6], n] - 
    S2[a1, a5, a3, a4, SP[a2, a6], n] + S2[a4, n]*S2[a1, a5, a3, a6, a2, n] - 
    S2[a2, n]*S2[a1, a5, a3, a6, a4, n] - S2[a1, a5, a3, SP[a2, a6], a4, n] + 
    S2[a1, a5, a3, SP[a4, a6], a2, n] - S2[a1, a5, a4, a3, SP[a2, a6], n] - 
    S2[a1, a5, a4, SP[a3, a6], a2, n] + S2[a4, n]*S2[a1, a5, a6, a2, a3, n] + 
    S2[a1, a5, a6, a2, SP[a3, a4], n] + S2[a4, n]*S2[a1, a5, a6, a3, a2, n] - 
    S2[a2, n]*S2[a1, a5, a6, a3, a4, n] - 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] - S2[a1, a5, a6, a4, SP[a2, a3], n] - 
    S2[a1, a5, a6, SP[a2, a3], a4, n] + S2[a1, a5, a6, SP[a3, a4], a2, n] - 
    S2[a1, a5, SP[a2, a3], a4, a6, n] - S2[a1, a5, SP[a2, a3], a6, a4, n] - 
    S2[a1, a5, SP[a2, a6], a3, a4, n] - S2[a1, a5, SP[a2, a6], a4, a3, n] + 
    S2[a1, a5, SP[a4, a6], a2, a3, n] + S2[a1, a5, SP[a4, a6], a3, a2, n] + 
    S2[a4, n]*S2[a1, a6, a2, a3, a5, n] + S2[a1, a6, a2, a3, SP[a4, a5], n] + 
    S2[a4, n]*S2[a1, a6, a2, a5, a3, n] + S2[a1, a6, a2, a5, SP[a3, a4], n] + 
    S2[a1, a6, a2, SP[a3, a4], a5, n] + S2[a1, a6, a2, SP[a4, a5], a3, n] + 
    S2[a4, n]*S2[a1, a6, a3, a2, a5, n] + S2[a1, a6, a3, a2, SP[a4, a5], n] - 
    S2[a2, n]*S2[a1, a6, a3, a4, a5, n] - S2[a1, a6, a3, a4, SP[a2, a5], n] + 
    S2[a4, n]*S2[a1, a6, a3, a5, a2, n] - 
    S2[a2, n]*S2[a1, a6, a3, a5, a4, n] - S2[a1, a6, a3, SP[a2, a5], a4, n] + 
    S2[a1, a6, a3, SP[a4, a5], a2, n] - S2[a2, n]*S2[a1, a6, a4, a3, a5, n] - 
    S2[a1, a6, a4, a3, SP[a2, a5], n] - S2[a2, n]*S2[a1, a6, a4, a5, a3, n] - 
    S2[a1, a6, a4, a5, SP[a2, a3], n] - S2[a1, a6, a4, SP[a2, a3], a5, n] - 
    S2[a1, a6, a4, SP[a2, a5], a3, n] + S2[a4, n]*S2[a1, a6, a5, a2, a3, n] + 
    S2[a1, a6, a5, a2, SP[a3, a4], n] + S2[a4, n]*S2[a1, a6, a5, a3, a2, n] - 
    S2[a2, n]*S2[a1, a6, a5, a3, a4, n] - 
    S2[a2, n]*S2[a1, a6, a5, a4, a3, n] - S2[a1, a6, a5, a4, SP[a2, a3], n] - 
    S2[a1, a6, a5, SP[a2, a3], a4, n] + S2[a1, a6, a5, SP[a3, a4], a2, n] - 
    S2[a1, a6, SP[a2, a3], a4, a5, n] - S2[a1, a6, SP[a2, a3], a5, a4, n] - 
    S2[a1, a6, SP[a2, a5], a3, a4, n] - S2[a1, a6, SP[a2, a5], a4, a3, n] + 
    S2[a1, a6, SP[a3, a4], a2, a5, n] + S2[a1, a6, SP[a3, a4], a5, a2, n] + 
    S2[a1, a6, SP[a4, a5], a2, a3, n] + S2[a1, a6, SP[a4, a5], a3, a2, n] - 
    S2[a1, SP[a2, a3], a4, a5, a6, n] - S2[a1, SP[a2, a3], a4, a6, a5, n] - 
    S2[a1, SP[a2, a3], a5, a4, a6, n] - S2[a1, SP[a2, a3], a5, a6, a4, n] - 
    S2[a1, SP[a2, a3], a6, a4, a5, n] - S2[a1, SP[a2, a3], a6, a5, a4, n] - 
    S2[a1, SP[a2, a6], a3, a4, a5, n] - S2[a1, SP[a2, a6], a3, a5, a4, n] - 
    S2[a1, SP[a2, a6], a4, a3, a5, n] - S2[a1, SP[a2, a6], a4, a5, a3, n] - 
    S2[a1, SP[a2, a6], a5, a3, a4, n] - S2[a1, SP[a2, a6], a5, a4, a3, n] + 
    S2[a1, SP[a3, a5], a2, a4, a6, n] + S2[a1, SP[a4, a6], a2, a3, a5, n] + 
    S2[a1, SP[a4, a6], a2, a5, a3, n] + S2[a1, SP[a4, a6], a3, a2, a5, n] + 
    S2[a1, SP[a4, a6], a3, a5, a2, n] + S2[a1, SP[a4, a6], a5, a2, a3, n] + 
    S2[a1, SP[a4, a6], a5, a3, a2, n] + S2[a2, a1, a3, a6, SP[a4, a5], n] + 
    S2[a2, a1, a3, SP[a5, a6], a4, n] - S2[a2, a1, a4, a5, SP[a3, a6], n] + 
    S2[a2, a1, a4, a6, SP[a3, a5], n] + S2[a2, a1, a4, SP[a3, a5], a6, n] - 
    S2[a2, a1, a4, SP[a3, a6], a5, n] - S2[a2, a1, a5, a4, SP[a3, a6], n] - 
    S2[a2, a1, a5, SP[a3, a4], a6, n] + S2[a2, a1, a6, a3, SP[a4, a5], n] + 
    S2[a2, a1, a6, a4, SP[a3, a5], n] + S2[a2, a1, a6, SP[a3, a5], a4, n] + 
    S2[a2, a1, a6, SP[a4, a5], a3, n] - S2[a2, a1, SP[a3, a4], a5, a6, n] - 
    S2[a2, a1, SP[a3, a4], a6, a5, n] + S2[a2, a1, SP[a3, a5], a4, a6, n] + 
    S2[a2, a1, SP[a3, a5], a6, a4, n] + S2[a2, a1, SP[a5, a6], a3, a4, n] + 
    S2[a2, a1, SP[a5, a6], a4, a3, n] - S2[a6, n]*S2[a2, a3, a1, a4, a5, n] - 
    S2[a6, n]*S2[a2, a3, a1, a5, a4, n] - S2[a2, a3, a1, a5, SP[a4, a6], n] + 
    S2[a2, a3, a1, a6, SP[a4, a5], n] + S2[a2, a3, a1, SP[a4, a5], a6, n] - 
    S2[a2, a3, a1, SP[a4, a6], a5, n] - S2[a6, n]*S2[a2, a3, a4, a1, a5, n] + 
    S2[a2, a3, a6, a1, SP[a4, a5], n] + S2[a2, a3, a6, SP[a1, a4], a5, n] + 
    S2[a2, a3, SP[a1, a4], a5, a6, n] + S2[a2, a3, SP[a1, a4], a6, a5, n] - 
    S2[a2, a3, SP[a4, a6], a1, a5, n] - S2[a2, a4, a1, a5, SP[a3, a6], n] + 
    S2[a2, a4, a1, a6, SP[a3, a5], n] + S2[a2, a4, a1, SP[a3, a5], a6, n] - 
    S2[a2, a4, a1, SP[a3, a6], a5, n] - S2[a6, n]*S2[a2, a4, a3, a1, a5, n] + 
    S2[a2, a4, a6, a1, SP[a3, a5], n] + S2[a2, a4, a6, SP[a1, a3], a5, n] + 
    S2[a2, a4, SP[a1, a3], a5, a6, n] + S2[a2, a4, SP[a1, a3], a6, a5, n] - 
    S2[a2, a4, SP[a3, a6], a1, a5, n] - S2[a4, n]*S2[a2, a6, a1, a3, a5, n] + 
    S2[a2, a6, a1, a4, SP[a3, a5], n] - S2[a4, n]*S2[a2, a6, a1, a5, a3, n] - 
    S2[a2, a6, a1, a5, SP[a3, a4], n] - S2[a2, a6, a1, SP[a3, a4], a5, n] + 
    S2[a2, a6, a1, SP[a3, a5], a4, n] + S2[a2, a6, a3, a1, SP[a4, a5], n] + 
    S2[a2, a6, a3, SP[a1, a4], a5, n] + S2[a2, a6, a4, a1, SP[a3, a5], n] + 
    S2[a2, a6, a4, SP[a1, a3], a5, n] + S2[a2, a6, SP[a1, a3], a4, a5, n] + 
    S2[a2, a6, SP[a1, a3], a5, a4, n] + S2[a2, SP[a1, a3], a4, a5, a6, n] + 
    S2[a2, SP[a1, a3], a4, a6, a5, n] + S2[a2, SP[a1, a3], a5, a4, a6, n] + 
    S2[a2, SP[a1, a3], a5, a6, a4, n] + S2[a2, SP[a1, a3], a6, a4, a5, n] + 
    S2[a2, SP[a1, a3], a6, a5, a4, n] + S2[a2, SP[a1, a6], a3, a4, a5, n] + 
    S2[a2, SP[a1, a6], a3, a5, a4, n] + S2[a2, SP[a1, a6], a4, a3, a5, n] + 
    S2[a2, SP[a1, a6], a4, a5, a3, n] + S2[a2, SP[a1, a6], a5, a3, a4, n] + 
    S2[a2, SP[a1, a6], a5, a4, a3, n] - S2[a2, SP[a3, a6], a1, a4, a5, n] - 
    S2[a2, SP[a3, a6], a1, a5, a4, n] - S2[a2, SP[a3, a6], a4, a1, a5, n] - 
    S2[a2, SP[a4, a6], a1, a3, a5, n] - S2[a2, SP[a4, a6], a1, a5, a3, n] - 
    S2[a2, SP[a4, a6], a3, a1, a5, n] - S2[a4, a1, a3, a2, SP[a5, a6], n] - 
    S2[a4, a1, a3, a5, SP[a2, a6], n] - S2[a4, a1, a3, SP[a2, a6], a5, n] - 
    S2[a4, a1, a3, SP[a5, a6], a2, n] - S2[a4, a1, a5, a3, SP[a2, a6], n] - 
    S2[a4, a1, a5, SP[a3, a6], a2, n] - S2[a4, a1, a6, a2, SP[a3, a5], n] - 
    S2[a4, a1, a6, SP[a2, a5], a3, n] - S2[a4, a1, SP[a3, a6], a2, a5, n] - 
    S2[a4, a1, SP[a3, a6], a5, a2, n] - S2[a4, a1, SP[a5, a6], a2, a3, n] - 
    S2[a4, a1, SP[a5, a6], a3, a2, n] - S2[a4, a6, a1, a2, SP[a3, a5], n] + 
    S2[a2, n]*S2[a4, a6, a1, a3, a5, n] + S2[a4, a6, a1, a3, SP[a2, a5], n] + 
    S2[a2, n]*S2[a4, a6, a1, a5, a3, n] + S2[a4, a6, a1, a5, SP[a2, a3], n] + 
    S2[a4, a6, a1, SP[a2, a3], a5, n] - S2[a4, a6, a2, a1, SP[a3, a5], n] - 
    S2[a4, a6, a2, SP[a1, a3], a5, n] - S2[a4, SP[a1, a6], a2, a3, a5, n] - 
    S2[a4, SP[a1, a6], a2, a5, a3, n] - S2[a4, SP[a1, a6], a3, a2, a5, n] - 
    S2[a4, SP[a1, a6], a3, a5, a2, n] - S2[a4, SP[a1, a6], a5, a2, a3, n] - 
    S2[a4, SP[a1, a6], a5, a3, a2, n] + S2[a4, SP[a2, a6], a1, a3, a5, n] + 
    S2[a4, SP[a2, a6], a1, a5, a3, n] + S2[a4, n]*S2[a6, a2, a3, a1, a5, n] + 
    S2[a6, a2, a3, a1, SP[a4, a5], n] + S2[a6, a2, a3, SP[a1, a4], a5, n] + 
    S2[a6, a2, SP[a3, a4], a1, a5, n] + S2[a6, SP[a2, a4], a3, a1, a5, n] + 
    S2[SP[a1, a5], a3, a2, a4, a6, n] - S2[SP[a2, a6], a3, a1, a4, a5, n] - 
    S2[SP[a2, a6], a3, a1, a5, a4, n] - S2[SP[a2, a6], a3, a4, a1, a5, n] - 
    S2[SP[a2, a6], a4, a3, a1, a5, n] + S2[SP[a4, a6], a2, a3, a1, a5, n] - 
    S2[a6, a4, a2, a3, a1, a5, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a5_, a1_, a3_, a2_, a6_, a4_, n_] :> 
  -(S2[a1, a3, a5, n]*S2[a2, a6, a4, n]) - S2[a1, a5, a3, n]*
     S2[a2, a6, a4, n] - S2[SP[a1, a2], SP[a3, a6], SP[a4, a5], n] - 
    S2[SP[a1, a2], SP[a5, a6], SP[a3, a4], n] + S2[a1, a2, SP[a3, a6], 
     SP[a4, a5], n] + S2[a1, a2, SP[a5, a6], SP[a3, a4], n] + 
    S2[a4, a6, n]*S2[a1, a3, a2, a5, n] + S2[a4, a6, n]*
     S2[a1, a3, a5, a2, n] - S2[a1, a3, SP[a2, a4], SP[a5, a6], n] - 
    S2[a1, a3, SP[a4, a5], SP[a2, a6], n] + S2[a4, a6, n]*
     S2[a1, a5, a3, a2, n] - S2[a1, a5, SP[a3, a4], SP[a2, a6], n] + 
    S2[a1, SP[a2, a3], a6, SP[a4, a5], n] + S2[a1, SP[a2, a3], SP[a5, a6], 
     a4, n] + S2[a1, SP[a2, a5], a6, SP[a3, a4], n] + 
    S2[a1, SP[a2, a5], SP[a3, a6], a4, n] - S2[a1, SP[a3, a4], a2, 
     SP[a5, a6], n] - S2[a1, SP[a3, a4], a5, SP[a2, a6], n] - 
    S2[a1, SP[a3, a4], SP[a2, a6], a5, n] - S2[a1, SP[a3, a4], SP[a5, a6], 
     a2, n] - S2[a1, SP[a4, a5], a3, SP[a2, a6], n] - 
    S2[a1, SP[a4, a5], SP[a3, a6], a2, n] + S2[a2, a1, SP[a3, a6], 
     SP[a4, a5], n] + S2[a2, a1, SP[a5, a6], SP[a3, a4], n] + 
    S2[a2, SP[a1, a6], a3, SP[a4, a5], n] + S2[a2, SP[a1, a6], a5, 
     SP[a3, a4], n] + S2[a2, SP[a1, a6], SP[a3, a4], a5, n] + 
    S2[a2, SP[a1, a6], SP[a4, a5], a3, n] + S2[a1, a5, n]*
     S2[a4, a6, a2, a3, n] - S2[a4, a6, SP[a1, a2], SP[a3, a5], n] - 
    S2[a4, SP[a1, a6], a2, SP[a3, a5], n] - S2[a4, SP[a1, a6], SP[a2, a5], 
     a3, n] + S2[SP[a1, a2], a3, a6, SP[a4, a5], n] + 
    S2[SP[a1, a2], a3, SP[a5, a6], a4, n] + S2[SP[a1, a2], a5, a6, 
     SP[a3, a4], n] + S2[SP[a1, a2], a5, SP[a3, a6], a4, n] + 
    S2[SP[a1, a2], a6, a3, SP[a4, a5], n] + S2[SP[a1, a2], a6, a5, 
     SP[a3, a4], n] + S2[SP[a1, a2], a6, SP[a3, a4], a5, n] + 
    S2[SP[a1, a2], a6, SP[a4, a5], a3, n] + S2[SP[a1, a2], SP[a3, a6], a4, 
     a5, n] + S2[SP[a1, a2], SP[a3, a6], a5, a4, n] + 
    S2[SP[a1, a2], SP[a5, a6], a3, a4, n] + S2[SP[a1, a2], SP[a5, a6], a4, 
     a3, n] - S2[SP[a1, a4], a3, a2, SP[a5, a6], n] - 
    S2[SP[a1, a4], a3, a5, SP[a2, a6], n] - S2[SP[a1, a4], a3, SP[a2, a6], 
     a5, n] - S2[SP[a1, a4], a3, SP[a5, a6], a2, n] - 
    S2[SP[a1, a4], a5, a3, SP[a2, a6], n] - S2[SP[a1, a4], a5, SP[a3, a6], 
     a2, n] - S2[SP[a1, a4], a6, a2, SP[a3, a5], n] - 
    S2[SP[a1, a4], a6, SP[a2, a5], a3, n] - S2[SP[a1, a4], SP[a3, a6], a2, 
     a5, n] - S2[SP[a1, a4], SP[a3, a6], a5, a2, n] - 
    S2[SP[a1, a4], SP[a5, a6], a2, a3, n] - S2[SP[a1, a4], SP[a5, a6], a3, 
     a2, n] - S2[a1, a2, a3, a6, SP[a4, a5], n] - S2[a1, a2, a3, SP[a5, a6], 
     a4, n] - S2[a1, a2, a5, a6, SP[a3, a4], n] - S2[a1, a2, a5, SP[a3, a6], 
     a4, n] - S2[a1, a2, a6, a3, SP[a4, a5], n] - 
    S2[a1, a2, a6, a5, SP[a3, a4], n] - S2[a1, a2, a6, SP[a3, a4], a5, n] - 
    S2[a1, a2, a6, SP[a4, a5], a3, n] - S2[a1, a2, SP[a3, a6], a4, a5, n] - 
    S2[a1, a2, SP[a3, a6], a5, a4, n] - S2[a1, a2, SP[a5, a6], a3, a4, n] - 
    S2[a1, a2, SP[a5, a6], a4, a3, n] + S2[a1, a3, a2, a4, SP[a5, a6], n] - 
    S2[a4, n]*S2[a1, a3, a2, a5, a6, n] - S2[a1, a3, a2, a5, SP[a4, a6], n] + 
    S2[a5, n]*S2[a1, a3, a2, a6, a4, n] - 
    S2[a4, n]*S2[a1, a3, a2, a6, a5, n] - S2[a1, a3, a2, a6, SP[a4, a5], n] - 
    S2[a1, a3, a2, SP[a4, a6], a5, n] + S2[a1, a3, a4, a2, SP[a5, a6], n] + 
    S2[a1, a3, a4, a5, SP[a2, a6], n] + S2[a1, a3, a4, SP[a2, a6], a5, n] + 
    S2[a1, a3, a4, SP[a5, a6], a2, n] - S2[a4, n]*S2[a1, a3, a5, a2, a6, n] - 
    S2[a1, a3, a5, a2, SP[a4, a6], n] + S2[a1, a3, a5, a4, SP[a2, a6], n] - 
    S2[a4, n]*S2[a1, a3, a5, a6, a2, n] + 
    S2[a2, n]*S2[a1, a3, a5, a6, a4, n] + S2[a1, a3, a5, SP[a2, a6], a4, n] - 
    S2[a1, a3, a5, SP[a4, a6], a2, n] - S2[a4, n]*S2[a1, a3, a6, a2, a5, n] - 
    S2[a1, a3, a6, a2, SP[a4, a5], n] + S2[a2, n]*S2[a1, a3, a6, a4, a5, n] + 
    S2[a1, a3, a6, a4, SP[a2, a5], n] - S2[a4, n]*S2[a1, a3, a6, a5, a2, n] + 
    S2[a2, n]*S2[a1, a3, a6, a5, a4, n] + S2[a1, a3, a6, SP[a2, a5], a4, n] - 
    S2[a1, a3, a6, SP[a4, a5], a2, n] + S2[a1, a3, SP[a2, a5], a6, a4, n] + 
    S2[a1, a3, SP[a2, a6], a4, a5, n] + S2[a1, a3, SP[a2, a6], a5, a4, n] - 
    S2[a1, a3, SP[a4, a6], a2, a5, n] - S2[a1, a3, SP[a4, a6], a5, a2, n] + 
    S2[a1, a4, a3, a2, SP[a5, a6], n] + S2[a1, a4, a3, a5, SP[a2, a6], n] + 
    S2[a1, a4, a3, SP[a2, a6], a5, n] + S2[a1, a4, a3, SP[a5, a6], a2, n] + 
    S2[a1, a4, a5, a3, SP[a2, a6], n] + S2[a1, a4, a5, SP[a3, a6], a2, n] + 
    S2[a1, a4, a6, a2, SP[a3, a5], n] + S2[a1, a4, a6, SP[a2, a5], a3, n] + 
    S2[a1, a4, SP[a3, a6], a2, a5, n] + S2[a1, a4, SP[a3, a6], a5, a2, n] + 
    S2[a1, a4, SP[a5, a6], a2, a3, n] + S2[a1, a4, SP[a5, a6], a3, a2, n] - 
    S2[a1, a5, a2, a6, SP[a3, a4], n] - S2[a1, a5, a2, SP[a3, a6], a4, n] - 
    S2[a4, n]*S2[a1, a5, a3, a2, a6, n] - S2[a1, a5, a3, a2, SP[a4, a6], n] + 
    S2[a1, a5, a3, a4, SP[a2, a6], n] - S2[a4, n]*S2[a1, a5, a3, a6, a2, n] + 
    S2[a2, n]*S2[a1, a5, a3, a6, a4, n] + S2[a1, a5, a3, SP[a2, a6], a4, n] - 
    S2[a1, a5, a3, SP[a4, a6], a2, n] + S2[a1, a5, a4, a3, SP[a2, a6], n] + 
    S2[a1, a5, a4, SP[a3, a6], a2, n] - S2[a4, n]*S2[a1, a5, a6, a2, a3, n] - 
    S2[a1, a5, a6, a2, SP[a3, a4], n] - S2[a4, n]*S2[a1, a5, a6, a3, a2, n] + 
    S2[a2, n]*S2[a1, a5, a6, a3, a4, n] + 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] + S2[a1, a5, a6, a4, SP[a2, a3], n] + 
    S2[a1, a5, a6, SP[a2, a3], a4, n] - S2[a1, a5, a6, SP[a3, a4], a2, n] + 
    S2[a1, a5, SP[a2, a6], a3, a4, n] + S2[a1, a5, SP[a2, a6], a4, a3, n] - 
    S2[a1, a5, SP[a4, a6], a2, a3, n] - S2[a1, a5, SP[a4, a6], a3, a2, n] - 
    S2[a4, n]*S2[a1, a6, a2, a3, a5, n] - S2[a1, a6, a2, a3, SP[a4, a5], n] - 
    S2[a4, n]*S2[a1, a6, a2, a5, a3, n] - S2[a1, a6, a2, a5, SP[a3, a4], n] - 
    S2[a1, a6, a2, SP[a3, a4], a5, n] - S2[a1, a6, a2, SP[a4, a5], a3, n] - 
    S2[a4, n]*S2[a1, a6, a3, a2, a5, n] - S2[a1, a6, a3, a2, SP[a4, a5], n] + 
    S2[a2, n]*S2[a1, a6, a3, a4, a5, n] + S2[a1, a6, a3, a4, SP[a2, a5], n] - 
    S2[a4, n]*S2[a1, a6, a3, a5, a2, n] + 
    S2[a2, n]*S2[a1, a6, a3, a5, a4, n] + S2[a1, a6, a3, SP[a2, a5], a4, n] - 
    S2[a1, a6, a3, SP[a4, a5], a2, n] + S2[a2, n]*S2[a1, a6, a4, a3, a5, n] + 
    S2[a1, a6, a4, a3, SP[a2, a5], n] + S2[a2, n]*S2[a1, a6, a4, a5, a3, n] + 
    S2[a1, a6, a4, a5, SP[a2, a3], n] + S2[a1, a6, a4, SP[a2, a3], a5, n] + 
    S2[a1, a6, a4, SP[a2, a5], a3, n] - S2[a4, n]*S2[a1, a6, a5, a2, a3, n] - 
    S2[a1, a6, a5, a2, SP[a3, a4], n] - S2[a4, n]*S2[a1, a6, a5, a3, a2, n] + 
    S2[a2, n]*S2[a1, a6, a5, a3, a4, n] + 
    S2[a2, n]*S2[a1, a6, a5, a4, a3, n] + S2[a1, a6, a5, a4, SP[a2, a3], n] + 
    S2[a1, a6, a5, SP[a2, a3], a4, n] - S2[a1, a6, a5, SP[a3, a4], a2, n] + 
    S2[a1, a6, SP[a2, a3], a4, a5, n] + S2[a1, a6, SP[a2, a3], a5, a4, n] + 
    S2[a1, a6, SP[a2, a5], a3, a4, n] + S2[a1, a6, SP[a2, a5], a4, a3, n] - 
    S2[a1, a6, SP[a3, a4], a2, a5, n] - S2[a1, a6, SP[a3, a4], a5, a2, n] - 
    S2[a1, a6, SP[a4, a5], a2, a3, n] - S2[a1, a6, SP[a4, a5], a3, a2, n] + 
    S2[a1, SP[a2, a6], a3, a4, a5, n] + S2[a1, SP[a2, a6], a3, a5, a4, n] + 
    S2[a1, SP[a2, a6], a4, a3, a5, n] + S2[a1, SP[a2, a6], a4, a5, a3, n] + 
    S2[a1, SP[a2, a6], a5, a3, a4, n] + S2[a1, SP[a2, a6], a5, a4, a3, n] + 
    S2[a1, SP[a3, a5], a2, a6, a4, n] - S2[a1, SP[a4, a6], a2, a3, a5, n] - 
    S2[a1, SP[a4, a6], a2, a5, a3, n] - S2[a1, SP[a4, a6], a3, a2, a5, n] - 
    S2[a1, SP[a4, a6], a3, a5, a2, n] - S2[a1, SP[a4, a6], a5, a2, a3, n] - 
    S2[a1, SP[a4, a6], a5, a3, a2, n] - S2[a2, a1, a3, a6, SP[a4, a5], n] - 
    S2[a2, a1, a3, SP[a5, a6], a4, n] - S2[a2, a1, a5, a6, SP[a3, a4], n] - 
    S2[a2, a1, a5, SP[a3, a6], a4, n] - S2[a2, a1, a6, a3, SP[a4, a5], n] - 
    S2[a2, a1, a6, a5, SP[a3, a4], n] - S2[a2, a1, a6, SP[a3, a4], a5, n] - 
    S2[a2, a1, a6, SP[a4, a5], a3, n] - S2[a2, a1, SP[a3, a6], a4, a5, n] - 
    S2[a2, a1, SP[a3, a6], a5, a4, n] - S2[a2, a1, SP[a5, a6], a3, a4, n] - 
    S2[a2, a1, SP[a5, a6], a4, a3, n] + S2[a4, n]*S2[a2, a6, a1, a3, a5, n] + 
    S2[a4, n]*S2[a2, a6, a1, a5, a3, n] - S2[a2, SP[a1, a6], a3, a4, a5, n] - 
    S2[a2, SP[a1, a6], a3, a5, a4, n] - S2[a2, SP[a1, a6], a4, a3, a5, n] - 
    S2[a2, SP[a1, a6], a4, a5, a3, n] - S2[a2, SP[a1, a6], a5, a3, a4, n] - 
    S2[a2, SP[a1, a6], a5, a4, a3, n] + S2[a2, SP[a4, a6], a1, a3, a5, n] + 
    S2[a2, SP[a4, a6], a1, a5, a3, n] + S2[a4, a1, a3, a2, SP[a5, a6], n] + 
    S2[a4, a1, a3, a5, SP[a2, a6], n] + S2[a4, a1, a3, SP[a2, a6], a5, n] + 
    S2[a4, a1, a3, SP[a5, a6], a2, n] + S2[a4, a1, a5, a3, SP[a2, a6], n] + 
    S2[a4, a1, a5, SP[a3, a6], a2, n] + S2[a4, a1, a6, a2, SP[a3, a5], n] + 
    S2[a4, a1, a6, SP[a2, a5], a3, n] + S2[a4, a1, SP[a3, a6], a2, a5, n] + 
    S2[a4, a1, SP[a3, a6], a5, a2, n] + S2[a4, a1, SP[a5, a6], a2, a3, n] + 
    S2[a4, a1, SP[a5, a6], a3, a2, n] + S2[a4, a6, a1, a2, SP[a3, a5], n] - 
    S2[a2, n]*S2[a4, a6, a1, a3, a5, n] - S2[a4, a6, a1, a3, SP[a2, a5], n] - 
    S2[a2, n]*S2[a4, a6, a1, a5, a3, n] - S2[a4, a6, a1, a5, SP[a2, a3], n] - 
    S2[a4, a6, a1, SP[a2, a3], a5, n] + S2[a4, a6, a2, a1, SP[a3, a5], n] + 
    S2[a4, a6, a2, SP[a1, a3], a5, n] + S2[a4, SP[a1, a6], a2, a3, a5, n] + 
    S2[a4, SP[a1, a6], a2, a5, a3, n] + S2[a4, SP[a1, a6], a3, a2, a5, n] + 
    S2[a4, SP[a1, a6], a3, a5, a2, n] + S2[a4, SP[a1, a6], a5, a2, a3, n] + 
    S2[a4, SP[a1, a6], a5, a3, a2, n] - S2[a4, SP[a2, a6], a1, a3, a5, n] - 
    S2[a4, SP[a2, a6], a1, a5, a3, n] - S2[a4, n]*S2[a6, a2, a3, a1, a5, n] - 
    S2[a6, a2, a3, a1, SP[a4, a5], n] - S2[a6, a2, a3, SP[a1, a4], a5, n] - 
    S2[a6, a2, SP[a3, a4], a1, a5, n] - S2[a6, SP[a2, a4], a3, a1, a5, n] + 
    S2[SP[a1, a5], a3, a2, a6, a4, n] - S2[SP[a4, a6], a2, a3, a1, a5, n] + 
    S2[a6, a2, a3, a1, a4, a5, n] + S2[a6, a2, a3, a1, a5, a4, n] + 
    S2[a6, a2, a3, a4, a1, a5, n] + S2[a6, a2, a4, a3, a1, a5, n] + 
    S2[a6, a4, a2, a3, a1, a5, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a5_, a1_, a3_, a4_, a2_, a6_, n_] :> 
  S2[a1, a3, a5, n]*S2[a2, a4, a6, n] + S2[a1, a5, a3, n]*S2[a2, a4, a6, n] + 
    S2[a1, a3, a5, n]*S2[a2, a6, a4, n] + S2[a1, a5, a3, n]*
     S2[a2, a6, a4, n] + S2[SP[a1, a2], SP[a3, a4], SP[a5, a6], n] + 
    S2[SP[a1, a2], SP[a3, a6], SP[a4, a5], n] + S2[SP[a1, a2], SP[a4, a5], 
     SP[a3, a6], n] + S2[SP[a1, a2], SP[a5, a6], SP[a3, a4], n] - 
    S2[a1, a2, SP[a3, a4], SP[a5, a6], n] - S2[a1, a2, SP[a3, a6], 
     SP[a4, a5], n] - S2[a1, a2, SP[a4, a5], SP[a3, a6], n] - 
    S2[a1, a2, SP[a5, a6], SP[a3, a4], n] - S2[a2, a6, n]*
     S2[a1, a3, a4, a5, n] - S2[a2, a6, n]*S2[a1, a3, a5, a4, n] + 
    S2[a1, a3, SP[a2, a4], SP[a5, a6], n] + S2[a1, a3, SP[a2, a5], 
     SP[a4, a6], n] - S2[a2, a6, n]*S2[a1, a5, a3, a4, n] + 
    S2[a1, a5, SP[a2, a3], SP[a4, a6], n] + S2[a1, SP[a2, a3], a5, 
     SP[a4, a6], n] - S2[a1, SP[a2, a3], a6, SP[a4, a5], n] - 
    S2[a1, SP[a2, a3], SP[a4, a5], a6, n] + S2[a1, SP[a2, a3], SP[a4, a6], 
     a5, n] + S2[a1, SP[a2, a5], a3, SP[a4, a6], n] - 
    S2[a1, SP[a2, a5], a4, SP[a3, a6], n] - S2[a1, SP[a2, a5], a6, 
     SP[a3, a4], n] - S2[a1, SP[a2, a5], SP[a3, a4], a6, n] - 
    S2[a2, a1, SP[a3, a4], SP[a5, a6], n] - S2[a2, a1, SP[a3, a6], 
     SP[a4, a5], n] - S2[a2, a1, SP[a4, a5], SP[a3, a6], n] - 
    S2[a2, a1, SP[a5, a6], SP[a3, a4], n] - S2[a1, a5, n]*
     S2[a2, a4, a3, a6, n] - S2[a1, a5, n]*S2[a2, a4, a6, a3, n] + 
    S2[a2, a4, SP[a1, a3], SP[a5, a6], n] + S2[a2, a4, SP[a1, a6], 
     SP[a3, a5], n] - S2[a1, a5, n]*S2[a2, a6, a4, a3, n] + 
    S2[a2, a6, SP[a1, a4], SP[a3, a5], n] - S2[a2, SP[a1, a4], a5, 
     SP[a3, a6], n] + S2[a2, SP[a1, a4], a6, SP[a3, a5], n] + 
    S2[a2, SP[a1, a4], SP[a3, a5], a6, n] - S2[a2, SP[a1, a4], SP[a3, a6], 
     a5, n] - S2[a2, SP[a1, a6], a3, SP[a4, a5], n] + 
    S2[a2, SP[a1, a6], a4, SP[a3, a5], n] - S2[a2, SP[a1, a6], a5, 
     SP[a3, a4], n] - S2[a2, SP[a1, a6], SP[a3, a4], a5, n] + 
    S2[SP[a1, a2], a3, a5, SP[a4, a6], n] - S2[SP[a1, a2], a3, a6, 
     SP[a4, a5], n] - S2[SP[a1, a2], a3, SP[a4, a5], a6, n] + 
    S2[SP[a1, a2], a3, SP[a4, a6], a5, n] - S2[SP[a1, a2], a4, a5, 
     SP[a3, a6], n] + S2[SP[a1, a2], a4, a6, SP[a3, a5], n] + 
    S2[SP[a1, a2], a4, SP[a3, a5], a6, n] - S2[SP[a1, a2], a4, SP[a3, a6], 
     a5, n] + S2[SP[a1, a2], a5, a3, SP[a4, a6], n] - 
    S2[SP[a1, a2], a5, a4, SP[a3, a6], n] - S2[SP[a1, a2], a5, a6, 
     SP[a3, a4], n] - S2[SP[a1, a2], a5, SP[a3, a4], a6, n] - 
    S2[SP[a1, a2], a6, a3, SP[a4, a5], n] + S2[SP[a1, a2], a6, a4, 
     SP[a3, a5], n] - S2[SP[a1, a2], a6, a5, SP[a3, a4], n] - 
    S2[SP[a1, a2], a6, SP[a3, a4], a5, n] - S2[SP[a1, a2], SP[a3, a4], a5, 
     a6, n] - S2[SP[a1, a2], SP[a3, a4], a6, a5, n] - 
    S2[a1, a2, a3, a5, SP[a4, a6], n] + S2[a1, a2, a3, a6, SP[a4, a5], n] + 
    S2[a1, a2, a3, SP[a4, a5], a6, n] - S2[a1, a2, a3, SP[a4, a6], a5, n] + 
    S2[a1, a2, a4, a5, SP[a3, a6], n] - S2[a1, a2, a4, a6, SP[a3, a5], n] - 
    S2[a1, a2, a4, SP[a3, a5], a6, n] + S2[a1, a2, a4, SP[a3, a6], a5, n] - 
    S2[a1, a2, a5, a3, SP[a4, a6], n] + S2[a1, a2, a5, a4, SP[a3, a6], n] + 
    S2[a1, a2, a5, a6, SP[a3, a4], n] + S2[a1, a2, a5, SP[a3, a4], a6, n] + 
    S2[a1, a2, a6, a3, SP[a4, a5], n] - S2[a1, a2, a6, a4, SP[a3, a5], n] + 
    S2[a1, a2, a6, a5, SP[a3, a4], n] + S2[a1, a2, a6, SP[a3, a4], a5, n] + 
    S2[a1, a2, SP[a3, a4], a5, a6, n] + S2[a1, a2, SP[a3, a4], a6, a5, n] - 
    S2[a1, a3, a2, a5, SP[a4, a6], n] + S2[a1, a3, a2, a6, SP[a4, a5], n] + 
    S2[a1, a3, a2, SP[a4, a5], a6, n] - S2[a1, a3, a2, SP[a4, a6], a5, n] + 
    S2[a5, n]*S2[a1, a3, a4, a2, a6, n] - S2[a1, a3, a5, a2, SP[a4, a6], n] - 
    S2[a1, a3, a5, SP[a2, a4], a6, n] - S2[a1, a3, SP[a2, a4], a5, a6, n] - 
    S2[a1, a3, SP[a2, a4], a6, a5, n] + S2[a1, a3, SP[a4, a5], a2, a6, n] - 
    S2[a1, a5, a2, a3, SP[a4, a6], n] + S2[a1, a5, a2, a4, SP[a3, a6], n] + 
    S2[a1, a5, a2, a6, SP[a3, a4], n] + S2[a1, a5, a2, SP[a3, a4], a6, n] - 
    S2[a1, a5, a3, a2, SP[a4, a6], n] - S2[a1, a5, a3, SP[a2, a4], a6, n] + 
    S2[a1, SP[a3, a5], a4, a2, a6, n] - S2[a2, a1, a3, a5, SP[a4, a6], n] + 
    S2[a2, a1, a3, a6, SP[a4, a5], n] + S2[a2, a1, a3, SP[a4, a5], a6, n] - 
    S2[a2, a1, a3, SP[a4, a6], a5, n] + S2[a2, a1, a4, a5, SP[a3, a6], n] - 
    S2[a2, a1, a4, a6, SP[a3, a5], n] - S2[a2, a1, a4, SP[a3, a5], a6, n] + 
    S2[a2, a1, a4, SP[a3, a6], a5, n] - S2[a2, a1, a5, a3, SP[a4, a6], n] + 
    S2[a2, a1, a5, a4, SP[a3, a6], n] + S2[a2, a1, a5, a6, SP[a3, a4], n] + 
    S2[a2, a1, a5, SP[a3, a4], a6, n] + S2[a2, a1, a6, a3, SP[a4, a5], n] - 
    S2[a2, a1, a6, a4, SP[a3, a5], n] + S2[a2, a1, a6, a5, SP[a3, a4], n] + 
    S2[a2, a1, a6, SP[a3, a4], a5, n] + S2[a2, a1, SP[a3, a4], a5, a6, n] + 
    S2[a2, a1, SP[a3, a4], a6, a5, n] + S2[a2, a4, a1, a5, SP[a3, a6], n] - 
    S2[a2, a4, a1, a6, SP[a3, a5], n] - S2[a2, a4, a1, SP[a3, a5], a6, n] + 
    S2[a2, a4, a1, SP[a3, a6], a5, n] + S2[a6, n]*S2[a2, a4, a3, a1, a5, n] - 
    S2[a2, a4, a6, a1, SP[a3, a5], n] - S2[a2, a4, a6, SP[a1, a3], a5, n] - 
    S2[a2, a4, SP[a1, a3], a5, a6, n] - S2[a2, a4, SP[a1, a3], a6, a5, n] + 
    S2[a2, a4, SP[a3, a6], a1, a5, n] + S2[a2, a6, a1, a3, SP[a4, a5], n] - 
    S2[a2, a6, a1, a4, SP[a3, a5], n] + S2[a2, a6, a1, a5, SP[a3, a4], n] + 
    S2[a2, a6, a1, SP[a3, a4], a5, n] - S2[a2, a6, a4, a1, SP[a3, a5], n] - 
    S2[a2, a6, a4, SP[a1, a3], a5, n] + S2[a2, SP[a4, a6], a3, a1, a5, n] + 
    S2[SP[a1, a5], a3, a4, a2, a6, n] + S2[SP[a2, a6], a4, a3, a1, a5, n] - 
    S2[a6, a2, a4, a3, a1, a5, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a5_, a1_, a3_, a4_, a6_, a2_, n_] :> 
  -(S2[a1, a3, a5, n]*S2[a2, a6, a4, n]) - S2[a1, a5, a3, n]*
     S2[a2, a6, a4, n] - S2[SP[a1, a2], SP[a3, a6], SP[a4, a5], n] - 
    S2[SP[a1, a2], SP[a5, a6], SP[a3, a4], n] + S2[a1, a2, SP[a3, a6], 
     SP[a4, a5], n] + S2[a1, a2, SP[a5, a6], SP[a3, a4], n] + 
    S2[a2, a6, n]*S2[a1, a3, a4, a5, n] + S2[a2, a6, n]*
     S2[a1, a3, a5, a4, n] - S2[a1, a3, SP[a2, a4], SP[a5, a6], n] - 
    S2[a1, a3, SP[a2, a5], SP[a4, a6], n] + S2[a2, a6, n]*
     S2[a1, a5, a3, a4, n] - S2[a1, a5, SP[a2, a3], SP[a4, a6], n] - 
    S2[a1, SP[a2, a3], a4, SP[a5, a6], n] - S2[a1, SP[a2, a3], a5, 
     SP[a4, a6], n] + S2[a1, SP[a2, a3], a6, SP[a4, a5], n] - 
    S2[a1, SP[a2, a3], SP[a4, a6], a5, n] - S2[a1, SP[a2, a5], a3, 
     SP[a4, a6], n] + S2[a1, SP[a2, a5], a6, SP[a3, a4], n] + 
    S2[a2, a1, SP[a3, a6], SP[a4, a5], n] + S2[a2, a1, SP[a5, a6], 
     SP[a3, a4], n] + S2[a1, a5, n]*S2[a2, a6, a4, a3, n] - 
    S2[a2, a6, SP[a1, a4], SP[a3, a5], n] + S2[a2, SP[a1, a6], a3, 
     SP[a4, a5], n] - S2[a2, SP[a1, a6], a4, SP[a3, a5], n] + 
    S2[a2, SP[a1, a6], a5, SP[a3, a4], n] + S2[a2, SP[a1, a6], SP[a3, a4], 
     a5, n] - S2[SP[a1, a2], a3, a4, SP[a5, a6], n] - 
    S2[SP[a1, a2], a3, a5, SP[a4, a6], n] + S2[SP[a1, a2], a3, a6, 
     SP[a4, a5], n] - S2[SP[a1, a2], a3, SP[a4, a6], a5, n] - 
    S2[SP[a1, a2], a5, a3, SP[a4, a6], n] + S2[SP[a1, a2], a5, a6, 
     SP[a3, a4], n] + S2[SP[a1, a2], a6, a3, SP[a4, a5], n] - 
    S2[SP[a1, a2], a6, a4, SP[a3, a5], n] + S2[SP[a1, a2], a6, a5, 
     SP[a3, a4], n] + S2[SP[a1, a2], a6, SP[a3, a4], a5, n] + 
    S2[a1, a2, a3, a4, SP[a5, a6], n] + S2[a1, a2, a3, a5, SP[a4, a6], n] - 
    S2[a1, a2, a3, a6, SP[a4, a5], n] + S2[a1, a2, a3, SP[a4, a6], a5, n] + 
    S2[a1, a2, a5, a3, SP[a4, a6], n] - S2[a1, a2, a5, a6, SP[a3, a4], n] - 
    S2[a1, a2, a6, a3, SP[a4, a5], n] + S2[a1, a2, a6, a4, SP[a3, a5], n] - 
    S2[a1, a2, a6, a5, SP[a3, a4], n] - S2[a1, a2, a6, SP[a3, a4], a5, n] + 
    S2[a1, a3, a2, a4, SP[a5, a6], n] + S2[a1, a3, a2, a5, SP[a4, a6], n] - 
    S2[a1, a3, a2, a6, SP[a4, a5], n] + S2[a1, a3, a2, SP[a4, a6], a5, n] + 
    S2[a1, a3, a4, a2, SP[a5, a6], n] - S2[a2, n]*S2[a1, a3, a4, a5, a6, n] - 
    S2[a1, a3, a4, a5, SP[a2, a6], n] + S2[a5, n]*S2[a1, a3, a4, a6, a2, n] - 
    S2[a2, n]*S2[a1, a3, a4, a6, a5, n] - S2[a1, a3, a4, SP[a2, a6], a5, n] + 
    S2[a1, a3, a4, SP[a5, a6], a2, n] + S2[a1, a3, a5, a2, SP[a4, a6], n] - 
    S2[a2, n]*S2[a1, a3, a5, a4, a6, n] - S2[a1, a3, a5, a4, SP[a2, a6], n] + 
    S2[a1, a3, SP[a4, a5], a6, a2, n] + S2[a1, a5, a2, a3, SP[a4, a6], n] - 
    S2[a1, a5, a2, a6, SP[a3, a4], n] + S2[a1, a5, a3, a2, SP[a4, a6], n] - 
    S2[a2, n]*S2[a1, a5, a3, a4, a6, n] - S2[a1, a5, a3, a4, SP[a2, a6], n] + 
    S2[a1, SP[a3, a5], a4, a6, a2, n] + S2[a2, a1, a3, a4, SP[a5, a6], n] + 
    S2[a2, a1, a3, a5, SP[a4, a6], n] - S2[a2, a1, a3, a6, SP[a4, a5], n] + 
    S2[a2, a1, a3, SP[a4, a6], a5, n] + S2[a2, a1, a5, a3, SP[a4, a6], n] - 
    S2[a2, a1, a5, a6, SP[a3, a4], n] - S2[a2, a1, a6, a3, SP[a4, a5], n] + 
    S2[a2, a1, a6, a4, SP[a3, a5], n] - S2[a2, a1, a6, a5, SP[a3, a4], n] - 
    S2[a2, a1, a6, SP[a3, a4], a5, n] - S2[a2, a6, a1, a3, SP[a4, a5], n] + 
    S2[a2, a6, a1, a4, SP[a3, a5], n] - S2[a2, a6, a1, a5, SP[a3, a4], n] - 
    S2[a2, a6, a1, SP[a3, a4], a5, n] + S2[a2, a6, a4, a1, SP[a3, a5], n] + 
    S2[a2, a6, a4, SP[a1, a3], a5, n] - S2[a2, n]*S2[a6, a4, a3, a1, a5, n] - 
    S2[a6, a4, a3, a1, SP[a2, a5], n] - S2[a6, a4, a3, SP[a1, a2], a5, n] - 
    S2[a6, a4, SP[a2, a3], a1, a5, n] - S2[a6, SP[a2, a4], a3, a1, a5, n] + 
    S2[SP[a1, a5], a3, a4, a6, a2, n] - S2[SP[a2, a6], a4, a3, a1, a5, n] + 
    S2[a6, a2, a4, a3, a1, a5, n] + S2[a6, a4, a2, a3, a1, a5, n] + 
    S2[a6, a4, a3, a1, a2, a5, n] + S2[a6, a4, a3, a1, a5, a2, n] + 
    S2[a6, a4, a3, a2, a1, a5, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a5_, a1_, a3_, a6_, a2_, a4_, n_] :> 
  S2[a1, a3, a5, n]*S2[a2, a4, a6, n] + S2[a1, a5, a3, n]*S2[a2, a4, a6, n] + 
    S2[a1, a3, a5, n]*S2[a2, a6, a4, n] + S2[a1, a5, a3, n]*
     S2[a2, a6, a4, n] + S2[SP[a1, a2], SP[a3, a4], SP[a5, a6], n] + 
    S2[SP[a1, a2], SP[a3, a6], SP[a4, a5], n] + S2[SP[a1, a2], SP[a4, a5], 
     SP[a3, a6], n] + S2[SP[a1, a2], SP[a5, a6], SP[a3, a4], n] - 
    S2[a1, a2, SP[a3, a4], SP[a5, a6], n] - S2[a1, a2, SP[a3, a6], 
     SP[a4, a5], n] - S2[a1, a2, SP[a4, a5], SP[a3, a6], n] - 
    S2[a1, a2, SP[a5, a6], SP[a3, a4], n] - S2[a1, SP[a2, a3], a4, 
     SP[a5, a6], n] - S2[a1, SP[a2, a3], a6, SP[a4, a5], n] - 
    S2[a1, SP[a2, a3], SP[a4, a5], a6, n] - S2[a1, SP[a2, a3], SP[a5, a6], 
     a4, n] - S2[a1, SP[a2, a5], a4, SP[a3, a6], n] - 
    S2[a1, SP[a2, a5], a6, SP[a3, a4], n] - S2[a1, SP[a2, a5], SP[a3, a4], 
     a6, n] - S2[a1, SP[a2, a5], SP[a3, a6], a4, n] - 
    S2[a2, a1, SP[a3, a4], SP[a5, a6], n] - S2[a2, a1, SP[a3, a6], 
     SP[a4, a5], n] - S2[a2, a1, SP[a4, a5], SP[a3, a6], n] - 
    S2[a2, a1, SP[a5, a6], SP[a3, a4], n] - S2[a2, SP[a1, a4], a3, 
     SP[a5, a6], n] - S2[a2, SP[a1, a4], a5, SP[a3, a6], n] - 
    S2[a2, SP[a1, a4], SP[a3, a6], a5, n] - S2[a2, SP[a1, a4], SP[a5, a6], 
     a3, n] - S2[a2, SP[a1, a6], a3, SP[a4, a5], n] - 
    S2[a2, SP[a1, a6], a5, SP[a3, a4], n] - S2[a2, SP[a1, a6], SP[a3, a4], 
     a5, n] - S2[a2, SP[a1, a6], SP[a4, a5], a3, n] - 
    S2[a1, a5, n]*S2[a3, a6, a2, a4, n] + S2[a3, a6, SP[a1, a2], SP[a4, a5], 
     n] + S2[a3, SP[a1, a6], a2, SP[a4, a5], n] + 
    S2[a3, SP[a1, a6], SP[a2, a5], a4, n] - S2[SP[a1, a2], a3, a4, 
     SP[a5, a6], n] - S2[SP[a1, a2], a3, a6, SP[a4, a5], n] - 
    S2[SP[a1, a2], a3, SP[a4, a5], a6, n] - S2[SP[a1, a2], a3, SP[a5, a6], 
     a4, n] - S2[SP[a1, a2], a4, a3, SP[a5, a6], n] - 
    S2[SP[a1, a2], a4, a5, SP[a3, a6], n] - S2[SP[a1, a2], a4, SP[a3, a6], 
     a5, n] - S2[SP[a1, a2], a4, SP[a5, a6], a3, n] - 
    S2[SP[a1, a2], a5, a4, SP[a3, a6], n] - S2[SP[a1, a2], a5, a6, 
     SP[a3, a4], n] - S2[SP[a1, a2], a5, SP[a3, a4], a6, n] - 
    S2[SP[a1, a2], a5, SP[a3, a6], a4, n] - S2[SP[a1, a2], a6, a3, 
     SP[a4, a5], n] - S2[SP[a1, a2], a6, a5, SP[a3, a4], n] - 
    S2[SP[a1, a2], a6, SP[a3, a4], a5, n] - S2[SP[a1, a2], a6, SP[a4, a5], 
     a3, n] - S2[SP[a1, a2], SP[a3, a4], a5, a6, n] - 
    S2[SP[a1, a2], SP[a3, a4], a6, a5, n] - S2[SP[a1, a2], SP[a3, a6], a4, 
     a5, n] - S2[SP[a1, a2], SP[a3, a6], a5, a4, n] - 
    S2[SP[a1, a2], SP[a4, a5], a3, a6, n] - S2[SP[a1, a2], SP[a4, a5], a6, 
     a3, n] - S2[SP[a1, a2], SP[a5, a6], a3, a4, n] - 
    S2[SP[a1, a2], SP[a5, a6], a4, a3, n] + S2[SP[a1, a3], a6, a2, 
     SP[a4, a5], n] + S2[SP[a1, a3], a6, SP[a2, a5], a4, n] + 
    S2[SP[a1, a3], SP[a5, a6], a2, a4, n] + S2[a1, a2, a3, a4, SP[a5, a6], 
     n] + S2[a1, a2, a3, a6, SP[a4, a5], n] + S2[a1, a2, a3, SP[a4, a5], a6, 
     n] + S2[a1, a2, a3, SP[a5, a6], a4, n] + S2[a1, a2, a4, a3, SP[a5, a6], 
     n] + S2[a1, a2, a4, a5, SP[a3, a6], n] + S2[a1, a2, a4, SP[a3, a6], a5, 
     n] + S2[a1, a2, a4, SP[a5, a6], a3, n] + S2[a1, a2, a5, a4, SP[a3, a6], 
     n] + S2[a1, a2, a5, a6, SP[a3, a4], n] + S2[a1, a2, a5, SP[a3, a4], a6, 
     n] + S2[a1, a2, a5, SP[a3, a6], a4, n] + S2[a1, a2, a6, a3, SP[a4, a5], 
     n] + S2[a1, a2, a6, a5, SP[a3, a4], n] + S2[a1, a2, a6, SP[a3, a4], a5, 
     n] + S2[a1, a2, a6, SP[a4, a5], a3, n] + S2[a1, a2, SP[a3, a4], a5, a6, 
     n] + S2[a1, a2, SP[a3, a4], a6, a5, n] + S2[a1, a2, SP[a3, a6], a4, a5, 
     n] + S2[a1, a2, SP[a3, a6], a5, a4, n] + S2[a1, a2, SP[a4, a5], a3, a6, 
     n] + S2[a1, a2, SP[a4, a5], a6, a3, n] + S2[a1, a2, SP[a5, a6], a3, a4, 
     n] + S2[a1, a2, SP[a5, a6], a4, a3, n] + S2[a1, a3, a2, a4, SP[a5, a6], 
     n] + S2[a1, a3, a2, a6, SP[a4, a5], n] + S2[a1, a3, a2, SP[a4, a5], a6, 
     n] + S2[a1, a3, a2, SP[a5, a6], a4, n] + 
    S2[a6, n]*S2[a1, a3, a4, a2, a5, n] + S2[a1, a3, a4, a2, SP[a5, a6], n] + 
    S2[a6, n]*S2[a1, a3, a4, a5, a2, n] - 
    S2[a2, n]*S2[a1, a3, a4, a5, a6, n] - 
    S2[a2, n]*S2[a1, a3, a4, a6, a5, n] - S2[a1, a3, a4, a6, SP[a2, a5], n] - 
    S2[a1, a3, a4, SP[a2, a5], a6, n] + S2[a1, a3, a4, SP[a5, a6], a2, n] + 
    S2[a6, n]*S2[a1, a3, a5, a4, a2, n] - 
    S2[a2, n]*S2[a1, a3, a5, a4, a6, n] - 
    S2[a2, n]*S2[a1, a3, a5, a6, a4, n] - S2[a1, a3, a5, a6, SP[a2, a4], n] - 
    S2[a1, a3, a5, SP[a2, a4], a6, n] - S2[a1, a3, a5, SP[a2, a6], a4, n] + 
    S2[a1, a3, a5, SP[a4, a6], a2, n] + S2[a5, n]*S2[a1, a3, a6, a2, a4, n] - 
    S2[a2, n]*S2[a1, a3, a6, a4, a5, n] - S2[a1, a3, a6, a4, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a3, a6, a5, a4, n] - S2[a1, a3, a6, a5, SP[a2, a4], n] - 
    S2[a1, a3, a6, SP[a2, a4], a5, n] - S2[a1, a3, a6, SP[a2, a5], a4, n] - 
    S2[a1, a3, SP[a2, a4], a5, a6, n] - S2[a1, a3, SP[a2, a4], a6, a5, n] - 
    S2[a1, a3, SP[a2, a6], a4, a5, n] - S2[a1, a3, SP[a2, a6], a5, a4, n] + 
    S2[a1, a3, SP[a4, a6], a2, a5, n] + S2[a1, a3, SP[a4, a6], a5, a2, n] + 
    S2[a1, a3, SP[a5, a6], a4, a2, n] + S2[a6, n]*S2[a1, a4, a2, a3, a5, n] + 
    S2[a1, a4, a2, a3, SP[a5, a6], n] + S2[a6, n]*S2[a1, a4, a2, a5, a3, n] + 
    S2[a1, a4, a2, a5, SP[a3, a6], n] + S2[a1, a4, a2, SP[a3, a6], a5, n] + 
    S2[a1, a4, a2, SP[a5, a6], a3, n] + S2[a6, n]*S2[a1, a4, a3, a2, a5, n] + 
    S2[a1, a4, a3, a2, SP[a5, a6], n] + S2[a6, n]*S2[a1, a4, a3, a5, a2, n] - 
    S2[a2, n]*S2[a1, a4, a3, a5, a6, n] - 
    S2[a2, n]*S2[a1, a4, a3, a6, a5, n] - S2[a1, a4, a3, a6, SP[a2, a5], n] - 
    S2[a1, a4, a3, SP[a2, a5], a6, n] + S2[a1, a4, a3, SP[a5, a6], a2, n] + 
    S2[a6, n]*S2[a1, a4, a5, a2, a3, n] + S2[a1, a4, a5, a2, SP[a3, a6], n] + 
    S2[a6, n]*S2[a1, a4, a5, a3, a2, n] - 
    S2[a2, n]*S2[a1, a4, a5, a3, a6, n] - 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] - S2[a1, a4, a5, a6, SP[a2, a3], n] - 
    S2[a1, a4, a5, SP[a2, a3], a6, n] + S2[a1, a4, a5, SP[a3, a6], a2, n] - 
    S2[a2, n]*S2[a1, a4, a6, a3, a5, n] - S2[a1, a4, a6, a3, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a4, a6, a5, a3, n] - S2[a1, a4, a6, a5, SP[a2, a3], n] - 
    S2[a1, a4, a6, SP[a2, a3], a5, n] - S2[a1, a4, a6, SP[a2, a5], a3, n] - 
    S2[a1, a4, SP[a2, a3], a5, a6, n] - S2[a1, a4, SP[a2, a3], a6, a5, n] - 
    S2[a1, a4, SP[a2, a5], a3, a6, n] - S2[a1, a4, SP[a2, a5], a6, a3, n] + 
    S2[a1, a4, SP[a3, a6], a2, a5, n] + S2[a1, a4, SP[a3, a6], a5, a2, n] + 
    S2[a1, a4, SP[a5, a6], a2, a3, n] + S2[a1, a4, SP[a5, a6], a3, a2, n] + 
    S2[a1, a5, a2, a4, SP[a3, a6], n] + S2[a1, a5, a2, a6, SP[a3, a4], n] + 
    S2[a1, a5, a2, SP[a3, a4], a6, n] + S2[a1, a5, a2, SP[a3, a6], a4, n] + 
    S2[a6, n]*S2[a1, a5, a3, a4, a2, n] - 
    S2[a2, n]*S2[a1, a5, a3, a4, a6, n] - 
    S2[a2, n]*S2[a1, a5, a3, a6, a4, n] - S2[a1, a5, a3, a6, SP[a2, a4], n] - 
    S2[a1, a5, a3, SP[a2, a4], a6, n] - S2[a1, a5, a3, SP[a2, a6], a4, n] + 
    S2[a1, a5, a3, SP[a4, a6], a2, n] + S2[a6, n]*S2[a1, a5, a4, a2, a3, n] + 
    S2[a1, a5, a4, a2, SP[a3, a6], n] + S2[a6, n]*S2[a1, a5, a4, a3, a2, n] - 
    S2[a2, n]*S2[a1, a5, a4, a3, a6, n] - 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] - S2[a1, a5, a4, a6, SP[a2, a3], n] - 
    S2[a1, a5, a4, SP[a2, a3], a6, n] + S2[a1, a5, a4, SP[a3, a6], a2, n] + 
    S2[a3, n]*S2[a1, a5, a6, a2, a4, n] + S2[a1, a5, a6, a2, SP[a3, a4], n] - 
    S2[a2, n]*S2[a1, a5, a6, a3, a4, n] - S2[a1, a5, a6, a3, SP[a2, a4], n] - 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] - S2[a1, a5, a6, a4, SP[a2, a3], n] - 
    S2[a1, a5, a6, SP[a2, a4], a3, n] - S2[a1, a5, SP[a2, a4], a3, a6, n] - 
    S2[a1, a5, SP[a2, a4], a6, a3, n] - S2[a1, a5, SP[a2, a6], a3, a4, n] - 
    S2[a1, a5, SP[a2, a6], a4, a3, n] + S2[a1, a5, SP[a3, a6], a2, a4, n] + 
    S2[a1, a5, SP[a3, a6], a4, a2, n] + S2[a1, a5, SP[a4, a6], a2, a3, n] + 
    S2[a1, a5, SP[a4, a6], a3, a2, n] + S2[a3, n]*S2[a1, a6, a2, a4, a5, n] + 
    S2[a1, a6, a2, a4, SP[a3, a5], n] + S2[a3, n]*S2[a1, a6, a2, a5, a4, n] + 
    S2[a1, a6, a2, a5, SP[a3, a4], n] + S2[a1, a6, a2, SP[a3, a4], a5, n] + 
    S2[a1, a6, a2, SP[a3, a5], a4, n] - S2[a2, n]*S2[a1, a6, a3, a4, a5, n] - 
    S2[a1, a6, a3, a4, SP[a2, a5], n] - S2[a2, n]*S2[a1, a6, a3, a5, a4, n] - 
    S2[a1, a6, a3, a5, SP[a2, a4], n] - S2[a1, a6, a3, SP[a2, a4], a5, n] - 
    S2[a1, a6, a3, SP[a2, a5], a4, n] - S2[a2, n]*S2[a1, a6, a4, a3, a5, n] - 
    S2[a1, a6, a4, a3, SP[a2, a5], n] - S2[a2, n]*S2[a1, a6, a4, a5, a3, n] - 
    S2[a1, a6, a4, a5, SP[a2, a3], n] - S2[a1, a6, a4, SP[a2, a3], a5, n] - 
    S2[a1, a6, a4, SP[a2, a5], a3, n] + S2[a3, n]*S2[a1, a6, a5, a2, a4, n] + 
    S2[a1, a6, a5, a2, SP[a3, a4], n] - S2[a2, n]*S2[a1, a6, a5, a3, a4, n] - 
    S2[a1, a6, a5, a3, SP[a2, a4], n] - S2[a2, n]*S2[a1, a6, a5, a4, a3, n] - 
    S2[a1, a6, a5, a4, SP[a2, a3], n] - S2[a1, a6, a5, SP[a2, a4], a3, n] - 
    S2[a1, a6, SP[a2, a4], a3, a5, n] - S2[a1, a6, SP[a2, a4], a5, a3, n] - 
    S2[a1, a6, SP[a2, a5], a3, a4, n] - S2[a1, a6, SP[a2, a5], a4, a3, n] + 
    S2[a1, a6, SP[a3, a5], a2, a4, n] - S2[a1, SP[a2, a4], a3, a5, a6, n] - 
    S2[a1, SP[a2, a4], a3, a6, a5, n] - S2[a1, SP[a2, a4], a5, a3, a6, n] - 
    S2[a1, SP[a2, a4], a5, a6, a3, n] - S2[a1, SP[a2, a4], a6, a3, a5, n] - 
    S2[a1, SP[a2, a4], a6, a5, a3, n] - S2[a1, SP[a2, a6], a3, a4, a5, n] - 
    S2[a1, SP[a2, a6], a3, a5, a4, n] - S2[a1, SP[a2, a6], a4, a3, a5, n] - 
    S2[a1, SP[a2, a6], a4, a5, a3, n] - S2[a1, SP[a2, a6], a5, a3, a4, n] - 
    S2[a1, SP[a2, a6], a5, a4, a3, n] + S2[a1, SP[a3, a5], a6, a2, a4, n] + 
    S2[a1, SP[a3, a6], a2, a4, a5, n] + S2[a1, SP[a3, a6], a2, a5, a4, n] + 
    S2[a1, SP[a3, a6], a4, a2, a5, n] + S2[a1, SP[a3, a6], a4, a5, a2, n] + 
    S2[a1, SP[a3, a6], a5, a2, a4, n] + S2[a1, SP[a3, a6], a5, a4, a2, n] + 
    S2[a1, SP[a4, a6], a2, a3, a5, n] + S2[a1, SP[a4, a6], a2, a5, a3, n] + 
    S2[a1, SP[a4, a6], a3, a2, a5, n] + S2[a1, SP[a4, a6], a3, a5, a2, n] + 
    S2[a1, SP[a4, a6], a5, a2, a3, n] + S2[a1, SP[a4, a6], a5, a3, a2, n] + 
    S2[a1, SP[a5, a6], a3, a4, a2, n] + S2[a1, SP[a5, a6], a4, a2, a3, n] + 
    S2[a1, SP[a5, a6], a4, a3, a2, n] + S2[a2, a1, a3, a4, SP[a5, a6], n] + 
    S2[a2, a1, a3, a6, SP[a4, a5], n] + S2[a2, a1, a3, SP[a4, a5], a6, n] + 
    S2[a2, a1, a3, SP[a5, a6], a4, n] + S2[a2, a1, a4, a3, SP[a5, a6], n] + 
    S2[a2, a1, a4, a5, SP[a3, a6], n] + S2[a2, a1, a4, SP[a3, a6], a5, n] + 
    S2[a2, a1, a4, SP[a5, a6], a3, n] + S2[a2, a1, a5, a4, SP[a3, a6], n] + 
    S2[a2, a1, a5, a6, SP[a3, a4], n] + S2[a2, a1, a5, SP[a3, a4], a6, n] + 
    S2[a2, a1, a5, SP[a3, a6], a4, n] + S2[a2, a1, a6, a3, SP[a4, a5], n] + 
    S2[a2, a1, a6, a5, SP[a3, a4], n] + S2[a2, a1, a6, SP[a3, a4], a5, n] + 
    S2[a2, a1, a6, SP[a4, a5], a3, n] + S2[a2, a1, SP[a3, a4], a5, a6, n] + 
    S2[a2, a1, SP[a3, a4], a6, a5, n] + S2[a2, a1, SP[a3, a6], a4, a5, n] + 
    S2[a2, a1, SP[a3, a6], a5, a4, n] + S2[a2, a1, SP[a4, a5], a3, a6, n] + 
    S2[a2, a1, SP[a4, a5], a6, a3, n] + S2[a2, a1, SP[a5, a6], a3, a4, n] + 
    S2[a2, a1, SP[a5, a6], a4, a3, n] - S2[a6, n]*S2[a2, a4, a1, a3, a5, n] - 
    S2[a6, n]*S2[a2, a4, a1, a5, a3, n] + S2[a2, a6, a1, a3, SP[a4, a5], n] - 
    S2[a3, n]*S2[a2, a6, a1, a4, a5, n] - S2[a2, a6, a1, a4, SP[a3, a5], n] - 
    S2[a3, n]*S2[a2, a6, a1, a5, a4, n] - S2[a2, a6, a1, SP[a3, a5], a4, n] + 
    S2[a2, a6, a1, SP[a4, a5], a3, n] - S2[a2, a6, SP[a1, a3], a4, a5, n] - 
    S2[a2, a6, SP[a1, a3], a5, a4, n] + S2[a2, a6, SP[a1, a4], a3, a5, n] + 
    S2[a2, a6, SP[a1, a4], a5, a3, n] + S2[a2, SP[a1, a4], a3, a5, a6, n] + 
    S2[a2, SP[a1, a4], a3, a6, a5, n] + S2[a2, SP[a1, a4], a5, a3, a6, n] + 
    S2[a2, SP[a1, a4], a5, a6, a3, n] + S2[a2, SP[a1, a4], a6, a3, a5, n] + 
    S2[a2, SP[a1, a4], a6, a5, a3, n] + S2[a2, SP[a1, a6], a3, a4, a5, n] + 
    S2[a2, SP[a1, a6], a3, a5, a4, n] + S2[a2, SP[a1, a6], a4, a3, a5, n] + 
    S2[a2, SP[a1, a6], a4, a5, a3, n] + S2[a2, SP[a1, a6], a5, a3, a4, n] + 
    S2[a2, SP[a1, a6], a5, a4, a3, n] - S2[a2, SP[a3, a6], a1, a4, a5, n] - 
    S2[a2, SP[a3, a6], a1, a5, a4, n] - S2[a2, SP[a4, a6], a1, a3, a5, n] - 
    S2[a2, SP[a4, a6], a1, a5, a3, n] - S2[a3, a1, a6, a2, SP[a4, a5], n] - 
    S2[a3, a1, a6, SP[a2, a5], a4, n] - S2[a3, a1, SP[a5, a6], a2, a4, n] - 
    S2[a3, a6, a1, a2, SP[a4, a5], n] + S2[a2, n]*S2[a3, a6, a1, a4, a5, n] + 
    S2[a3, a6, a1, a4, SP[a2, a5], n] + S2[a2, n]*S2[a3, a6, a1, a5, a4, n] + 
    S2[a3, a6, a1, a5, SP[a2, a4], n] + S2[a3, a6, a1, SP[a2, a4], a5, n] - 
    S2[a3, a6, a2, a1, SP[a4, a5], n] - S2[a3, a6, a2, SP[a1, a4], a5, n] - 
    S2[a3, SP[a1, a6], a2, a4, a5, n] - S2[a3, SP[a1, a6], a2, a5, a4, n] - 
    S2[a3, SP[a1, a6], a5, a2, a4, n] + S2[a3, SP[a2, a6], a1, a4, a5, n] + 
    S2[a3, SP[a2, a6], a1, a5, a4, n] - S2[a3, n]*S2[a6, a1, a4, a2, a5, n] - 
    S2[a6, a1, a4, a2, SP[a3, a5], n] - S2[a3, n]*S2[a6, a1, a4, a5, a2, n] - 
    S2[a6, a1, a4, a5, SP[a2, a3], n] - S2[a6, a1, a4, SP[a2, a3], a5, n] - 
    S2[a6, a1, a4, SP[a3, a5], a2, n] - S2[a3, n]*S2[a6, a1, a5, a4, a2, n] - 
    S2[a6, a1, a5, a4, SP[a2, a3], n] - S2[a6, a1, a5, SP[a3, a4], a2, n] - 
    S2[a6, a1, SP[a3, a4], a2, a5, n] - S2[a6, a1, SP[a3, a4], a5, a2, n] - 
    S2[a6, a1, SP[a3, a5], a4, a2, n] + S2[a3, n]*S2[a6, a2, a4, a1, a5, n] + 
    S2[a6, a2, a4, a1, SP[a3, a5], n] + S2[a6, a2, a4, SP[a1, a3], a5, n] + 
    S2[a6, a2, SP[a3, a4], a1, a5, n] + S2[a2, n]*S2[a6, a3, a1, a4, a5, n] + 
    S2[a6, a3, a1, a4, SP[a2, a5], n] + S2[a2, n]*S2[a6, a3, a1, a5, a4, n] + 
    S2[a6, a3, a1, a5, SP[a2, a4], n] + S2[a6, a3, a1, SP[a2, a4], a5, n] + 
    S2[a6, a3, a1, SP[a2, a5], a4, n] + S2[a6, a3, SP[a1, a2], a4, a5, n] + 
    S2[a6, a3, SP[a1, a2], a5, a4, n] - S2[a6, SP[a1, a3], a4, a2, a5, n] - 
    S2[a6, SP[a1, a3], a4, a5, a2, n] - S2[a6, SP[a1, a3], a5, a4, a2, n] + 
    S2[a6, SP[a2, a3], a1, a4, a5, n] + S2[a6, SP[a2, a3], a1, a5, a4, n] + 
    S2[a6, SP[a2, a3], a4, a1, a5, n] + S2[SP[a1, a5], a3, a6, a2, a4, n] + 
    S2[SP[a1, a6], a3, a4, a2, a5, n] + S2[SP[a1, a6], a3, a4, a5, a2, n] + 
    S2[SP[a1, a6], a3, a5, a4, a2, n] + S2[SP[a1, a6], a4, a2, a3, a5, n] + 
    S2[SP[a1, a6], a4, a2, a5, a3, n] + S2[SP[a1, a6], a4, a3, a2, a5, n] + 
    S2[SP[a1, a6], a4, a3, a5, a2, n] + S2[SP[a1, a6], a4, a5, a2, a3, n] + 
    S2[SP[a1, a6], a4, a5, a3, a2, n] + S2[SP[a1, a6], a5, a3, a4, a2, n] + 
    S2[SP[a1, a6], a5, a4, a2, a3, n] + S2[SP[a1, a6], a5, a4, a3, a2, n] + 
    S2[SP[a2, a6], a3, a1, a4, a5, n] + S2[SP[a2, a6], a3, a1, a5, a4, n] - 
    S2[SP[a2, a6], a4, a1, a3, a5, n] - S2[SP[a2, a6], a4, a1, a5, a3, n] - 
    S2[SP[a3, a6], a1, a4, a2, a5, n] - S2[SP[a3, a6], a1, a4, a5, a2, n] - 
    S2[SP[a3, a6], a1, a5, a4, a2, n] + S2[SP[a3, a6], a2, a4, a1, a5, n] - 
    S2[a6, a2, a3, a1, a4, a5, n] - S2[a6, a2, a3, a1, a5, a4, n] - 
    S2[a6, a2, a3, a4, a1, a5, n] - S2[a6, a2, a4, a3, a1, a5, n] - 
    S2[a6, a3, a1, a2, a4, a5, n] - S2[a6, a3, a1, a2, a5, a4, n] - 
    S2[a6, a3, a1, a5, a2, a4, n] - S2[a6, a3, a2, a1, a4, a5, n] - 
    S2[a6, a3, a2, a1, a5, a4, n] - S2[a6, a3, a2, a4, a1, a5, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a5_, a1_, a3_, a6_, a4_, a2_, n_] :> 
  -(S2[a1, a3, a5, n]*S2[a2, a4, a6, n]) - S2[a1, a5, a3, n]*
     S2[a2, a4, a6, n] - S2[SP[a1, a2], SP[a3, a4], SP[a5, a6], n] - 
    S2[SP[a1, a2], SP[a4, a5], SP[a3, a6], n] + S2[a1, a2, SP[a3, a4], 
     SP[a5, a6], n] + S2[a1, a2, SP[a4, a5], SP[a3, a6], n] + 
    S2[a1, SP[a2, a3], a4, SP[a5, a6], n] + S2[a1, SP[a2, a3], SP[a4, a5], 
     a6, n] + S2[a1, SP[a2, a5], a4, SP[a3, a6], n] + 
    S2[a1, SP[a2, a5], SP[a3, a4], a6, n] + S2[a2, a1, SP[a3, a4], 
     SP[a5, a6], n] + S2[a2, a1, SP[a4, a5], SP[a3, a6], n] - 
    S2[a1, a5, n]*S2[a2, a6, a3, a4, n] - S2[a1, a5, n]*
     S2[a2, a6, a4, a3, n] + S2[a2, a6, SP[a1, a3], SP[a4, a5], n] + 
    S2[a2, a6, SP[a1, a4], SP[a3, a5], n] + S2[a2, SP[a1, a4], a3, 
     SP[a5, a6], n] + S2[a2, SP[a1, a4], a5, SP[a3, a6], n] + 
    S2[a2, SP[a1, a4], SP[a3, a6], a5, n] + S2[a2, SP[a1, a4], SP[a5, a6], 
     a3, n] + S2[a2, SP[a1, a6], a3, SP[a4, a5], n] + 
    S2[a2, SP[a1, a6], a4, SP[a3, a5], n] + S2[a2, SP[a1, a6], SP[a3, a5], 
     a4, n] + S2[a2, SP[a1, a6], SP[a4, a5], a3, n] + 
    S2[a1, a5, n]*S2[a3, a6, a2, a4, n] - S2[a3, a6, SP[a1, a2], SP[a4, a5], 
     n] - S2[a3, SP[a1, a6], a2, SP[a4, a5], n] - 
    S2[a3, SP[a1, a6], SP[a2, a5], a4, n] + S2[SP[a1, a2], a3, a4, 
     SP[a5, a6], n] + S2[SP[a1, a2], a3, SP[a4, a5], a6, n] + 
    S2[SP[a1, a2], a4, a3, SP[a5, a6], n] + S2[SP[a1, a2], a4, a5, 
     SP[a3, a6], n] + S2[SP[a1, a2], a4, SP[a3, a6], a5, n] + 
    S2[SP[a1, a2], a4, SP[a5, a6], a3, n] + S2[SP[a1, a2], a5, a4, 
     SP[a3, a6], n] + S2[SP[a1, a2], a5, SP[a3, a4], a6, n] + 
    S2[SP[a1, a2], a6, a3, SP[a4, a5], n] + S2[SP[a1, a2], a6, a4, 
     SP[a3, a5], n] + S2[SP[a1, a2], a6, SP[a3, a5], a4, n] + 
    S2[SP[a1, a2], a6, SP[a4, a5], a3, n] + S2[SP[a1, a2], SP[a3, a4], a5, 
     a6, n] + S2[SP[a1, a2], SP[a3, a4], a6, a5, n] + 
    S2[SP[a1, a2], SP[a4, a5], a3, a6, n] + S2[SP[a1, a2], SP[a4, a5], a6, 
     a3, n] + S2[SP[a1, a2], SP[a5, a6], a3, a4, n] + 
    S2[SP[a1, a2], SP[a5, a6], a4, a3, n] - S2[SP[a1, a3], a6, a2, 
     SP[a4, a5], n] - S2[SP[a1, a3], a6, SP[a2, a5], a4, n] - 
    S2[SP[a1, a3], SP[a5, a6], a2, a4, n] - S2[a1, a2, a3, a4, SP[a5, a6], 
     n] - S2[a1, a2, a3, SP[a4, a5], a6, n] - S2[a1, a2, a4, a3, SP[a5, a6], 
     n] - S2[a1, a2, a4, a5, SP[a3, a6], n] - S2[a1, a2, a4, SP[a3, a6], a5, 
     n] - S2[a1, a2, a4, SP[a5, a6], a3, n] - S2[a1, a2, a5, a4, SP[a3, a6], 
     n] - S2[a1, a2, a5, SP[a3, a4], a6, n] - S2[a1, a2, a6, a3, SP[a4, a5], 
     n] - S2[a1, a2, a6, a4, SP[a3, a5], n] - S2[a1, a2, a6, SP[a3, a5], a4, 
     n] - S2[a1, a2, a6, SP[a4, a5], a3, n] - S2[a1, a2, SP[a3, a4], a5, a6, 
     n] - S2[a1, a2, SP[a3, a4], a6, a5, n] - S2[a1, a2, SP[a4, a5], a3, a6, 
     n] - S2[a1, a2, SP[a4, a5], a6, a3, n] - S2[a1, a2, SP[a5, a6], a3, a4, 
     n] - S2[a1, a2, SP[a5, a6], a4, a3, n] - S2[a1, a3, a2, a4, SP[a5, a6], 
     n] - S2[a1, a3, a2, SP[a4, a5], a6, n] - 
    S2[a6, n]*S2[a1, a3, a4, a2, a5, n] - S2[a1, a3, a4, a2, SP[a5, a6], n] - 
    S2[a6, n]*S2[a1, a3, a4, a5, a2, n] + 
    S2[a2, n]*S2[a1, a3, a4, a5, a6, n] + 
    S2[a2, n]*S2[a1, a3, a4, a6, a5, n] + S2[a1, a3, a4, a6, SP[a2, a5], n] + 
    S2[a1, a3, a4, SP[a2, a5], a6, n] - S2[a1, a3, a4, SP[a5, a6], a2, n] - 
    S2[a6, n]*S2[a1, a3, a5, a4, a2, n] + 
    S2[a2, n]*S2[a1, a3, a5, a4, a6, n] + S2[a1, a3, a5, SP[a2, a4], a6, n] - 
    S2[a1, a3, a5, SP[a4, a6], a2, n] + S2[a1, a3, a6, a2, SP[a4, a5], n] + 
    S2[a5, n]*S2[a1, a3, a6, a4, a2, n] + S2[a1, a3, a6, a4, SP[a2, a5], n] + 
    S2[a1, a3, a6, SP[a2, a5], a4, n] + S2[a1, a3, a6, SP[a4, a5], a2, n] + 
    S2[a1, a3, SP[a2, a4], a5, a6, n] + S2[a1, a3, SP[a2, a4], a6, a5, n] - 
    S2[a1, a3, SP[a4, a6], a2, a5, n] - S2[a1, a3, SP[a4, a6], a5, a2, n] + 
    S2[a1, a3, SP[a5, a6], a2, a4, n] - S2[a6, n]*S2[a1, a4, a2, a3, a5, n] - 
    S2[a1, a4, a2, a3, SP[a5, a6], n] - S2[a6, n]*S2[a1, a4, a2, a5, a3, n] - 
    S2[a1, a4, a2, a5, SP[a3, a6], n] - S2[a1, a4, a2, SP[a3, a6], a5, n] - 
    S2[a1, a4, a2, SP[a5, a6], a3, n] - S2[a6, n]*S2[a1, a4, a3, a2, a5, n] - 
    S2[a1, a4, a3, a2, SP[a5, a6], n] - S2[a6, n]*S2[a1, a4, a3, a5, a2, n] + 
    S2[a2, n]*S2[a1, a4, a3, a5, a6, n] + 
    S2[a2, n]*S2[a1, a4, a3, a6, a5, n] + S2[a1, a4, a3, a6, SP[a2, a5], n] + 
    S2[a1, a4, a3, SP[a2, a5], a6, n] - S2[a1, a4, a3, SP[a5, a6], a2, n] - 
    S2[a6, n]*S2[a1, a4, a5, a2, a3, n] - S2[a1, a4, a5, a2, SP[a3, a6], n] - 
    S2[a6, n]*S2[a1, a4, a5, a3, a2, n] + 
    S2[a2, n]*S2[a1, a4, a5, a3, a6, n] + 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] + S2[a1, a4, a5, a6, SP[a2, a3], n] + 
    S2[a1, a4, a5, SP[a2, a3], a6, n] - S2[a1, a4, a5, SP[a3, a6], a2, n] + 
    S2[a2, n]*S2[a1, a4, a6, a3, a5, n] + S2[a1, a4, a6, a3, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a4, a6, a5, a3, n] + S2[a1, a4, a6, a5, SP[a2, a3], n] + 
    S2[a1, a4, a6, SP[a2, a3], a5, n] + S2[a1, a4, a6, SP[a2, a5], a3, n] + 
    S2[a1, a4, SP[a2, a3], a5, a6, n] + S2[a1, a4, SP[a2, a3], a6, a5, n] + 
    S2[a1, a4, SP[a2, a5], a3, a6, n] + S2[a1, a4, SP[a2, a5], a6, a3, n] - 
    S2[a1, a4, SP[a3, a6], a2, a5, n] - S2[a1, a4, SP[a3, a6], a5, a2, n] - 
    S2[a1, a4, SP[a5, a6], a2, a3, n] - S2[a1, a4, SP[a5, a6], a3, a2, n] - 
    S2[a1, a5, a2, a4, SP[a3, a6], n] - S2[a1, a5, a2, SP[a3, a4], a6, n] - 
    S2[a6, n]*S2[a1, a5, a3, a4, a2, n] + 
    S2[a2, n]*S2[a1, a5, a3, a4, a6, n] + S2[a1, a5, a3, SP[a2, a4], a6, n] - 
    S2[a1, a5, a3, SP[a4, a6], a2, n] - S2[a6, n]*S2[a1, a5, a4, a2, a3, n] - 
    S2[a1, a5, a4, a2, SP[a3, a6], n] - S2[a6, n]*S2[a1, a5, a4, a3, a2, n] + 
    S2[a2, n]*S2[a1, a5, a4, a3, a6, n] + 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] + S2[a1, a5, a4, a6, SP[a2, a3], n] + 
    S2[a1, a5, a4, SP[a2, a3], a6, n] - S2[a1, a5, a4, SP[a3, a6], a2, n] - 
    S2[a3, n]*S2[a1, a5, a6, a2, a4, n] - S2[a1, a5, a6, a2, SP[a3, a4], n] + 
    S2[a2, n]*S2[a1, a5, a6, a3, a4, n] + S2[a1, a5, a6, a3, SP[a2, a4], n] + 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] + S2[a1, a5, a6, a4, SP[a2, a3], n] + 
    S2[a1, a5, a6, SP[a2, a4], a3, n] + S2[a1, a5, SP[a2, a4], a3, a6, n] + 
    S2[a1, a5, SP[a2, a4], a6, a3, n] + S2[a1, a5, SP[a2, a6], a3, a4, n] + 
    S2[a1, a5, SP[a2, a6], a4, a3, n] - S2[a1, a5, SP[a3, a6], a2, a4, n] - 
    S2[a1, a5, SP[a3, a6], a4, a2, n] - S2[a1, a5, SP[a4, a6], a2, a3, n] - 
    S2[a1, a5, SP[a4, a6], a3, a2, n] - S2[a3, n]*S2[a1, a6, a2, a4, a5, n] - 
    S2[a1, a6, a2, a4, SP[a3, a5], n] - S2[a3, n]*S2[a1, a6, a2, a5, a4, n] - 
    S2[a1, a6, a2, a5, SP[a3, a4], n] - S2[a1, a6, a2, SP[a3, a4], a5, n] - 
    S2[a1, a6, a2, SP[a3, a5], a4, n] + S2[a2, n]*S2[a1, a6, a3, a4, a5, n] + 
    S2[a1, a6, a3, a4, SP[a2, a5], n] + S2[a2, n]*S2[a1, a6, a3, a5, a4, n] + 
    S2[a1, a6, a3, a5, SP[a2, a4], n] + S2[a1, a6, a3, SP[a2, a4], a5, n] + 
    S2[a1, a6, a3, SP[a2, a5], a4, n] + S2[a2, n]*S2[a1, a6, a4, a3, a5, n] + 
    S2[a1, a6, a4, a3, SP[a2, a5], n] + S2[a2, n]*S2[a1, a6, a4, a5, a3, n] + 
    S2[a1, a6, a4, a5, SP[a2, a3], n] + S2[a1, a6, a4, SP[a2, a3], a5, n] + 
    S2[a1, a6, a4, SP[a2, a5], a3, n] - S2[a3, n]*S2[a1, a6, a5, a2, a4, n] - 
    S2[a1, a6, a5, a2, SP[a3, a4], n] + S2[a2, n]*S2[a1, a6, a5, a3, a4, n] + 
    S2[a1, a6, a5, a3, SP[a2, a4], n] + S2[a2, n]*S2[a1, a6, a5, a4, a3, n] + 
    S2[a1, a6, a5, a4, SP[a2, a3], n] + S2[a1, a6, a5, SP[a2, a4], a3, n] + 
    S2[a1, a6, SP[a2, a4], a3, a5, n] + S2[a1, a6, SP[a2, a4], a5, a3, n] + 
    S2[a1, a6, SP[a2, a5], a3, a4, n] + S2[a1, a6, SP[a2, a5], a4, a3, n] - 
    S2[a1, a6, SP[a3, a5], a2, a4, n] + S2[a1, SP[a2, a4], a3, a5, a6, n] + 
    S2[a1, SP[a2, a4], a3, a6, a5, n] + S2[a1, SP[a2, a4], a5, a3, a6, n] + 
    S2[a1, SP[a2, a4], a5, a6, a3, n] + S2[a1, SP[a2, a4], a6, a3, a5, n] + 
    S2[a1, SP[a2, a4], a6, a5, a3, n] + S2[a1, SP[a2, a6], a3, a4, a5, n] + 
    S2[a1, SP[a2, a6], a3, a5, a4, n] + S2[a1, SP[a2, a6], a4, a3, a5, n] + 
    S2[a1, SP[a2, a6], a4, a5, a3, n] + S2[a1, SP[a2, a6], a5, a3, a4, n] + 
    S2[a1, SP[a2, a6], a5, a4, a3, n] + S2[a1, SP[a3, a5], a6, a4, a2, n] - 
    S2[a1, SP[a3, a6], a2, a4, a5, n] - S2[a1, SP[a3, a6], a2, a5, a4, n] - 
    S2[a1, SP[a3, a6], a4, a2, a5, n] - S2[a1, SP[a3, a6], a4, a5, a2, n] - 
    S2[a1, SP[a3, a6], a5, a2, a4, n] - S2[a1, SP[a3, a6], a5, a4, a2, n] - 
    S2[a1, SP[a4, a6], a2, a3, a5, n] - S2[a1, SP[a4, a6], a2, a5, a3, n] - 
    S2[a1, SP[a4, a6], a3, a2, a5, n] - S2[a1, SP[a4, a6], a3, a5, a2, n] - 
    S2[a1, SP[a4, a6], a5, a2, a3, n] - S2[a1, SP[a4, a6], a5, a3, a2, n] - 
    S2[a1, SP[a5, a6], a3, a4, a2, n] - S2[a1, SP[a5, a6], a4, a2, a3, n] - 
    S2[a1, SP[a5, a6], a4, a3, a2, n] - S2[a2, a1, a3, a4, SP[a5, a6], n] - 
    S2[a2, a1, a3, SP[a4, a5], a6, n] - S2[a2, a1, a4, a3, SP[a5, a6], n] - 
    S2[a2, a1, a4, a5, SP[a3, a6], n] - S2[a2, a1, a4, SP[a3, a6], a5, n] - 
    S2[a2, a1, a4, SP[a5, a6], a3, n] - S2[a2, a1, a5, a4, SP[a3, a6], n] - 
    S2[a2, a1, a5, SP[a3, a4], a6, n] - S2[a2, a1, a6, a3, SP[a4, a5], n] - 
    S2[a2, a1, a6, a4, SP[a3, a5], n] - S2[a2, a1, a6, SP[a3, a5], a4, n] - 
    S2[a2, a1, a6, SP[a4, a5], a3, n] - S2[a2, a1, SP[a3, a4], a5, a6, n] - 
    S2[a2, a1, SP[a3, a4], a6, a5, n] - S2[a2, a1, SP[a4, a5], a3, a6, n] - 
    S2[a2, a1, SP[a4, a5], a6, a3, n] - S2[a2, a1, SP[a5, a6], a3, a4, n] - 
    S2[a2, a1, SP[a5, a6], a4, a3, n] + S2[a6, n]*S2[a2, a4, a1, a3, a5, n] + 
    S2[a6, n]*S2[a2, a4, a1, a5, a3, n] - S2[a2, a6, a1, a3, SP[a4, a5], n] + 
    S2[a3, n]*S2[a2, a6, a1, a4, a5, n] + 
    S2[a3, n]*S2[a2, a6, a1, a5, a4, n] + S2[a2, a6, a1, a5, SP[a3, a4], n] + 
    S2[a2, a6, a1, SP[a3, a4], a5, n] - S2[a2, a6, a1, SP[a4, a5], a3, n] - 
    S2[a2, a6, a3, a1, SP[a4, a5], n] - S2[a2, a6, a3, SP[a1, a4], a5, n] - 
    S2[a2, a6, a4, a1, SP[a3, a5], n] - S2[a2, a6, a4, SP[a1, a3], a5, n] - 
    S2[a2, a6, SP[a1, a4], a3, a5, n] - S2[a2, a6, SP[a1, a4], a5, a3, n] - 
    S2[a2, SP[a1, a4], a3, a5, a6, n] - S2[a2, SP[a1, a4], a3, a6, a5, n] - 
    S2[a2, SP[a1, a4], a5, a3, a6, n] - S2[a2, SP[a1, a4], a5, a6, a3, n] - 
    S2[a2, SP[a1, a4], a6, a3, a5, n] - S2[a2, SP[a1, a4], a6, a5, a3, n] - 
    S2[a2, SP[a1, a6], a3, a4, a5, n] - S2[a2, SP[a1, a6], a3, a5, a4, n] - 
    S2[a2, SP[a1, a6], a4, a3, a5, n] - S2[a2, SP[a1, a6], a4, a5, a3, n] - 
    S2[a2, SP[a1, a6], a5, a3, a4, n] - S2[a2, SP[a1, a6], a5, a4, a3, n] + 
    S2[a2, SP[a3, a6], a1, a4, a5, n] + S2[a2, SP[a3, a6], a1, a5, a4, n] + 
    S2[a2, SP[a4, a6], a1, a3, a5, n] + S2[a2, SP[a4, a6], a1, a5, a3, n] + 
    S2[a3, a1, a6, a2, SP[a4, a5], n] + S2[a3, a1, a6, SP[a2, a5], a4, n] + 
    S2[a3, a1, SP[a5, a6], a2, a4, n] + S2[a3, a6, a1, a2, SP[a4, a5], n] - 
    S2[a2, n]*S2[a3, a6, a1, a4, a5, n] - S2[a3, a6, a1, a4, SP[a2, a5], n] - 
    S2[a2, n]*S2[a3, a6, a1, a5, a4, n] - S2[a3, a6, a1, a5, SP[a2, a4], n] - 
    S2[a3, a6, a1, SP[a2, a4], a5, n] + S2[a3, a6, a2, a1, SP[a4, a5], n] + 
    S2[a3, a6, a2, SP[a1, a4], a5, n] + S2[a3, SP[a1, a6], a2, a4, a5, n] + 
    S2[a3, SP[a1, a6], a2, a5, a4, n] + S2[a3, SP[a1, a6], a5, a2, a4, n] - 
    S2[a3, SP[a2, a6], a1, a4, a5, n] - S2[a3, SP[a2, a6], a1, a5, a4, n] + 
    S2[a3, n]*S2[a6, a1, a4, a2, a5, n] + S2[a6, a1, a4, a2, SP[a3, a5], n] + 
    S2[a3, n]*S2[a6, a1, a4, a5, a2, n] + S2[a6, a1, a4, a5, SP[a2, a3], n] + 
    S2[a6, a1, a4, SP[a2, a3], a5, n] + S2[a6, a1, a4, SP[a3, a5], a2, n] + 
    S2[a3, n]*S2[a6, a1, a5, a4, a2, n] + S2[a6, a1, a5, a4, SP[a2, a3], n] + 
    S2[a6, a1, a5, SP[a3, a4], a2, n] + S2[a6, a1, SP[a3, a4], a2, a5, n] + 
    S2[a6, a1, SP[a3, a4], a5, a2, n] + S2[a6, a1, SP[a3, a5], a4, a2, n] - 
    S2[a3, n]*S2[a6, a2, a4, a1, a5, n] - S2[a6, a2, a4, a1, SP[a3, a5], n] - 
    S2[a6, a2, a4, SP[a1, a3], a5, n] - S2[a6, a2, SP[a3, a4], a1, a5, n] + 
    S2[a2, n]*S2[a6, a3, a4, a1, a5, n] + S2[a6, a3, a4, a1, SP[a2, a5], n] + 
    S2[a6, a3, a4, SP[a1, a2], a5, n] + S2[a6, a3, SP[a2, a4], a1, a5, n] + 
    S2[a2, n]*S2[a6, a4, a3, a1, a5, n] + S2[a6, a4, a3, a1, SP[a2, a5], n] + 
    S2[a6, a4, a3, SP[a1, a2], a5, n] + S2[a6, a4, SP[a2, a3], a1, a5, n] + 
    S2[a6, SP[a1, a3], a4, a2, a5, n] + S2[a6, SP[a1, a3], a4, a5, a2, n] + 
    S2[a6, SP[a1, a3], a5, a4, a2, n] + S2[a6, SP[a2, a4], a3, a1, a5, n] + 
    S2[SP[a1, a5], a3, a6, a4, a2, n] - S2[SP[a1, a6], a3, a4, a2, a5, n] - 
    S2[SP[a1, a6], a3, a4, a5, a2, n] - S2[SP[a1, a6], a3, a5, a4, a2, n] - 
    S2[SP[a1, a6], a4, a2, a3, a5, n] - S2[SP[a1, a6], a4, a2, a5, a3, n] - 
    S2[SP[a1, a6], a4, a3, a2, a5, n] - S2[SP[a1, a6], a4, a3, a5, a2, n] - 
    S2[SP[a1, a6], a4, a5, a2, a3, n] - S2[SP[a1, a6], a4, a5, a3, a2, n] - 
    S2[SP[a1, a6], a5, a3, a4, a2, n] - S2[SP[a1, a6], a5, a4, a2, a3, n] - 
    S2[SP[a1, a6], a5, a4, a3, a2, n] + S2[SP[a2, a6], a3, a4, a1, a5, n] + 
    S2[SP[a2, a6], a4, a1, a3, a5, n] + S2[SP[a2, a6], a4, a1, a5, a3, n] + 
    S2[SP[a2, a6], a4, a3, a1, a5, n] + S2[SP[a3, a6], a1, a4, a2, a5, n] + 
    S2[SP[a3, a6], a1, a4, a5, a2, n] + S2[SP[a3, a6], a1, a5, a4, a2, n] - 
    S2[SP[a3, a6], a2, a4, a1, a5, n] - S2[a6, a3, a1, a4, a2, a5, n] - 
    S2[a6, a3, a1, a4, a5, a2, n] - S2[a6, a3, a1, a5, a4, a2, n] - 
    S2[a6, a3, a4, a1, a2, a5, n] - S2[a6, a3, a4, a1, a5, a2, n] - 
    S2[a6, a3, a4, a2, a1, a5, n] - S2[a6, a4, a2, a3, a1, a5, n] - 
    S2[a6, a4, a3, a1, a2, a5, n] - S2[a6, a4, a3, a1, a5, a2, n] - 
    S2[a6, a4, a3, a2, a1, a5, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a5_, a1_, a4_, a2_, a3_, a6_, n_] :> 
  -(S2[a1, a4, a5, n]*S2[a2, a3, a6, n]) - S2[a1, a5, a4, n]*
     S2[a2, a3, a6, n] - S2[SP[a1, a2], SP[a3, a4], SP[a5, a6], n] - 
    S2[SP[a1, a2], SP[a3, a5], SP[a4, a6], n] + S2[a1, a2, SP[a3, a4], 
     SP[a5, a6], n] + S2[a1, a2, SP[a3, a5], SP[a4, a6], n] - 
    S2[a3, a6, n]*S2[a1, a4, a2, a5, n] - S2[a3, a6, n]*
     S2[a1, a4, a5, a2, n] + S2[a1, a4, SP[a2, a3], SP[a5, a6], n] + 
    S2[a1, a4, SP[a3, a5], SP[a2, a6], n] - S2[a3, a6, n]*
     S2[a1, a5, a4, a2, n] + S2[a1, a5, SP[a3, a4], SP[a2, a6], n] + 
    S2[a1, SP[a2, a4], a3, SP[a5, a6], n] + S2[a1, SP[a2, a4], SP[a3, a5], 
     a6, n] + S2[a1, SP[a2, a5], a3, SP[a4, a6], n] + 
    S2[a1, SP[a2, a5], SP[a3, a4], a6, n] + S2[a1, SP[a3, a4], a2, 
     SP[a5, a6], n] + S2[a1, SP[a3, a4], a5, SP[a2, a6], n] + 
    S2[a1, SP[a3, a4], SP[a2, a6], a5, n] + S2[a1, SP[a3, a4], SP[a5, a6], 
     a2, n] + S2[a1, SP[a3, a5], a4, SP[a2, a6], n] + 
    S2[a1, SP[a3, a5], SP[a4, a6], a2, n] + S2[a2, a1, SP[a3, a4], 
     SP[a5, a6], n] + S2[a2, a1, SP[a3, a5], SP[a4, a6], n] + 
    S2[a1, a5, n]*S2[a2, a3, a4, a6, n] + S2[a1, a5, n]*
     S2[a2, a3, a6, a4, n] - S2[a2, a3, SP[a1, a4], SP[a5, a6], n] - 
    S2[a2, a3, SP[a1, a6], SP[a4, a5], n] + S2[a1, a5, n]*
     S2[a2, a4, a3, a6, n] + S2[a1, a5, n]*S2[a2, a4, a6, a3, n] - 
    S2[a2, a4, SP[a1, a3], SP[a5, a6], n] - S2[a2, a4, SP[a1, a6], 
     SP[a3, a5], n] + S2[a1, a5, n]*S2[a2, a6, a3, a4, n] + 
    S2[a1, a5, n]*S2[a2, a6, a4, a3, n] - S2[a2, a6, SP[a1, a3], SP[a4, a5], 
     n] - S2[a2, a6, SP[a1, a4], SP[a3, a5], n] + S2[a2, SP[a1, a3], a5, 
     SP[a4, a6], n] - S2[a2, SP[a1, a3], a6, SP[a4, a5], n] - 
    S2[a2, SP[a1, a3], SP[a4, a5], a6, n] + S2[a2, SP[a1, a3], SP[a4, a6], 
     a5, n] - S2[a2, SP[a1, a4], a3, SP[a5, a6], n] - 
    S2[a2, SP[a1, a4], a6, SP[a3, a5], n] - S2[a2, SP[a1, a4], SP[a3, a5], 
     a6, n] - S2[a2, SP[a1, a4], SP[a5, a6], a3, n] - 
    S2[a2, SP[a1, a6], a3, SP[a4, a5], n] - S2[a2, SP[a1, a6], a4, 
     SP[a3, a5], n] - S2[a2, SP[a1, a6], SP[a3, a5], a4, n] - 

    S2[a2, SP[a1, a6], SP[a4, a5], a3, n] - S2[a1, a5, n]*
     S2[a3, a6, a2, a4, n] + S2[a3, a6, SP[a1, a2], SP[a4, a5], n] + 
    S2[a3, SP[a1, a6], a2, SP[a4, a5], n] + S2[a3, SP[a1, a6], SP[a2, a5], 
     a4, n] + S2[SP[a1, a2], a3, a5, SP[a4, a6], n] - 
    S2[SP[a1, a2], a3, a6, SP[a4, a5], n] - S2[SP[a1, a2], a3, SP[a4, a5], 
     a6, n] + S2[SP[a1, a2], a3, SP[a4, a6], a5, n] - 
    S2[SP[a1, a2], a4, a6, SP[a3, a5], n] - S2[SP[a1, a2], a4, SP[a5, a6], 
     a3, n] + S2[SP[a1, a2], a5, a3, SP[a4, a6], n] + 
    S2[SP[a1, a2], a5, SP[a3, a4], a6, n] - S2[SP[a1, a2], a6, a3, 
     SP[a4, a5], n] - S2[SP[a1, a2], a6, a4, SP[a3, a5], n] - 
    S2[SP[a1, a2], a6, SP[a3, a5], a4, n] - S2[SP[a1, a2], a6, SP[a4, a5], 
     a3, n] + S2[SP[a1, a2], SP[a3, a4], a5, a6, n] + 
    S2[SP[a1, a2], SP[a3, a4], a6, a5, n] - S2[SP[a1, a2], SP[a4, a5], a3, 
     a6, n] - S2[SP[a1, a2], SP[a4, a5], a6, a3, n] - 
    S2[SP[a1, a2], SP[a5, a6], a3, a4, n] - S2[SP[a1, a2], SP[a5, a6], a4, 
     a3, n] + S2[SP[a1, a3], a4, a2, SP[a5, a6], n] + 
    S2[SP[a1, a3], a4, a5, SP[a2, a6], n] + S2[SP[a1, a3], a4, SP[a2, a6], 
     a5, n] + S2[SP[a1, a3], a4, SP[a5, a6], a2, n] + 
    S2[SP[a1, a3], a5, a4, SP[a2, a6], n] + S2[SP[a1, a3], a5, SP[a4, a6], 
     a2, n] + S2[SP[a1, a3], a6, a2, SP[a4, a5], n] + 
    S2[SP[a1, a3], a6, SP[a2, a5], a4, n] + S2[SP[a1, a3], SP[a4, a6], a2, 
     a5, n] + S2[SP[a1, a3], SP[a4, a6], a5, a2, n] + 
    S2[SP[a1, a3], SP[a5, a6], a2, a4, n] + S2[SP[a1, a3], SP[a5, a6], a4, 
     a2, n] - S2[a1, a2, a3, a5, SP[a4, a6], n] + 
    S2[a1, a2, a3, a6, SP[a4, a5], n] + S2[a1, a2, a3, SP[a4, a5], a6, n] - 
    S2[a1, a2, a3, SP[a4, a6], a5, n] + S2[a1, a2, a4, a6, SP[a3, a5], n] + 
    S2[a1, a2, a4, SP[a5, a6], a3, n] - S2[a1, a2, a5, a3, SP[a4, a6], n] - 
    S2[a1, a2, a5, SP[a3, a4], a6, n] + S2[a1, a2, a6, a3, SP[a4, a5], n] + 
    S2[a1, a2, a6, a4, SP[a3, a5], n] + S2[a1, a2, a6, SP[a3, a5], a4, n] + 
    S2[a1, a2, a6, SP[a4, a5], a3, n] - S2[a1, a2, SP[a3, a4], a5, a6, n] - 
    S2[a1, a2, SP[a3, a4], a6, a5, n] + S2[a1, a2, SP[a4, a5], a3, a6, n] + 
    S2[a1, a2, SP[a4, a5], a6, a3, n] + S2[a1, a2, SP[a5, a6], a3, a4, n] + 
    S2[a1, a2, SP[a5, a6], a4, a3, n] - S2[a1, a3, a4, a2, SP[a5, a6], n] - 
    S2[a1, a3, a4, a5, SP[a2, a6], n] - S2[a1, a3, a4, SP[a2, a6], a5, n] - 
    S2[a1, a3, a4, SP[a5, a6], a2, n] - S2[a1, a3, a5, a4, SP[a2, a6], n] - 
    S2[a1, a3, a5, SP[a4, a6], a2, n] - S2[a1, a3, a6, a2, SP[a4, a5], n] - 
    S2[a1, a3, a6, SP[a2, a5], a4, n] - S2[a1, a3, SP[a4, a6], a2, a5, n] - 
    S2[a1, a3, SP[a4, a6], a5, a2, n] - S2[a1, a3, SP[a5, a6], a2, a4, n] - 
    S2[a1, a3, SP[a5, a6], a4, a2, n] + S2[a5, n]*S2[a1, a4, a2, a3, a6, n] - 
    S2[a1, a4, a2, a3, SP[a5, a6], n] + S2[a3, n]*S2[a1, a4, a2, a5, a6, n] + 
    S2[a1, a4, a2, a5, SP[a3, a6], n] + S2[a3, n]*S2[a1, a4, a2, a6, a5, n] + 
    S2[a1, a4, a2, a6, SP[a3, a5], n] + S2[a1, a4, a2, SP[a3, a6], a5, n] - 
    S2[a1, a4, a3, a2, SP[a5, a6], n] - S2[a1, a4, a3, a5, SP[a2, a6], n] - 
    S2[a1, a4, a3, SP[a2, a6], a5, n] - S2[a1, a4, a3, SP[a5, a6], a2, n] + 
    S2[a3, n]*S2[a1, a4, a5, a2, a6, n] + S2[a1, a4, a5, a2, SP[a3, a6], n] - 
    S2[a1, a4, a5, a3, SP[a2, a6], n] + S2[a3, n]*S2[a1, a4, a5, a6, a2, n] - 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] - S2[a1, a4, a5, SP[a2, a6], a3, n] + 
    S2[a1, a4, a5, SP[a3, a6], a2, n] + S2[a3, n]*S2[a1, a4, a6, a2, a5, n] + 
    S2[a1, a4, a6, a2, SP[a3, a5], n] - S2[a2, n]*S2[a1, a4, a6, a3, a5, n] - 
    S2[a1, a4, a6, a3, SP[a2, a5], n] + S2[a3, n]*S2[a1, a4, a6, a5, a2, n] - 
    S2[a2, n]*S2[a1, a4, a6, a5, a3, n] - S2[a1, a4, a6, SP[a2, a5], a3, n] + 
    S2[a1, a4, a6, SP[a3, a5], a2, n] - S2[a1, a4, SP[a2, a5], a6, a3, n] - 
    S2[a1, a4, SP[a2, a6], a3, a5, n] - S2[a1, a4, SP[a2, a6], a5, a3, n] + 
    S2[a1, a4, SP[a3, a6], a2, a5, n] + S2[a1, a4, SP[a3, a6], a5, a2, n] - 
    S2[a1, a5, a2, a3, SP[a4, a6], n] - S2[a1, a5, a2, SP[a3, a4], a6, n] - 
    S2[a1, a5, a3, a4, SP[a2, a6], n] - S2[a1, a5, a3, SP[a4, a6], a2, n] + 
    S2[a3, n]*S2[a1, a5, a4, a2, a6, n] + S2[a1, a5, a4, a2, SP[a3, a6], n] - 
    S2[a1, a5, a4, a3, SP[a2, a6], n] + S2[a3, n]*S2[a1, a5, a4, a6, a2, n] - 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] - S2[a1, a5, a4, SP[a2, a6], a3, n] + 
    S2[a1, a5, a4, SP[a3, a6], a2, n] + S2[a3, n]*S2[a1, a5, a6, a2, a4, n] + 
    S2[a1, a5, a6, a2, SP[a3, a4], n] - S2[a2, n]*S2[a1, a5, a6, a3, a4, n] - 
    S2[a1, a5, a6, a3, SP[a2, a4], n] + S2[a3, n]*S2[a1, a5, a6, a4, a2, n] - 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] - S2[a1, a5, a6, SP[a2, a4], a3, n] + 
    S2[a1, a5, a6, SP[a3, a4], a2, n] - S2[a1, a5, SP[a2, a4], a3, a6, n] - 
    S2[a1, a5, SP[a2, a4], a6, a3, n] - S2[a1, a5, SP[a2, a6], a3, a4, n] - 
    S2[a1, a5, SP[a2, a6], a4, a3, n] + S2[a1, a5, SP[a3, a6], a2, a4, n] + 
    S2[a1, a5, SP[a3, a6], a4, a2, n] + S2[a3, n]*S2[a1, a6, a2, a4, a5, n] + 
    S2[a1, a6, a2, a4, SP[a3, a5], n] + S2[a3, n]*S2[a1, a6, a2, a5, a4, n] + 
    S2[a1, a6, a2, a5, SP[a3, a4], n] + S2[a1, a6, a2, SP[a3, a4], a5, n] + 
    S2[a1, a6, a2, SP[a3, a5], a4, n] - S2[a2, n]*S2[a1, a6, a3, a4, a5, n] - 
    S2[a1, a6, a3, a4, SP[a2, a5], n] - S2[a2, n]*S2[a1, a6, a3, a5, a4, n] - 
    S2[a1, a6, a3, a5, SP[a2, a4], n] - S2[a1, a6, a3, SP[a2, a4], a5, n] - 
    S2[a1, a6, a3, SP[a2, a5], a4, n] + S2[a3, n]*S2[a1, a6, a4, a2, a5, n] + 
    S2[a1, a6, a4, a2, SP[a3, a5], n] - S2[a2, n]*S2[a1, a6, a4, a3, a5, n] - 
    S2[a1, a6, a4, a3, SP[a2, a5], n] + S2[a3, n]*S2[a1, a6, a4, a5, a2, n] - 
    S2[a2, n]*S2[a1, a6, a4, a5, a3, n] - S2[a1, a6, a4, SP[a2, a5], a3, n] + 
    S2[a1, a6, a4, SP[a3, a5], a2, n] + S2[a3, n]*S2[a1, a6, a5, a2, a4, n] + 
    S2[a1, a6, a5, a2, SP[a3, a4], n] - S2[a2, n]*S2[a1, a6, a5, a3, a4, n] - 
    S2[a1, a6, a5, a3, SP[a2, a4], n] + S2[a3, n]*S2[a1, a6, a5, a4, a2, n] - 
    S2[a2, n]*S2[a1, a6, a5, a4, a3, n] - S2[a1, a6, a5, SP[a2, a4], a3, n] + 
    S2[a1, a6, a5, SP[a3, a4], a2, n] - S2[a1, a6, SP[a2, a4], a3, a5, n] - 
    S2[a1, a6, SP[a2, a4], a5, a3, n] - S2[a1, a6, SP[a2, a5], a3, a4, n] - 
    S2[a1, a6, SP[a2, a5], a4, a3, n] + S2[a1, a6, SP[a3, a4], a2, a5, n] + 
    S2[a1, a6, SP[a3, a4], a5, a2, n] + S2[a1, a6, SP[a3, a5], a2, a4, n] + 
    S2[a1, a6, SP[a3, a5], a4, a2, n] - S2[a1, SP[a2, a4], a3, a5, a6, n] - 
    S2[a1, SP[a2, a4], a3, a6, a5, n] - S2[a1, SP[a2, a4], a5, a3, a6, n] - 
    S2[a1, SP[a2, a4], a5, a6, a3, n] - S2[a1, SP[a2, a4], a6, a3, a5, n] - 
    S2[a1, SP[a2, a4], a6, a5, a3, n] - S2[a1, SP[a2, a6], a3, a4, a5, n] - 
    S2[a1, SP[a2, a6], a3, a5, a4, n] - S2[a1, SP[a2, a6], a4, a3, a5, n] - 
    S2[a1, SP[a2, a6], a4, a5, a3, n] - S2[a1, SP[a2, a6], a5, a3, a4, n] - 
    S2[a1, SP[a2, a6], a5, a4, a3, n] + S2[a1, SP[a3, a6], a2, a4, a5, n] + 
    S2[a1, SP[a3, a6], a2, a5, a4, n] + S2[a1, SP[a3, a6], a4, a2, a5, n] + 
    S2[a1, SP[a3, a6], a4, a5, a2, n] + S2[a1, SP[a3, a6], a5, a2, a4, n] + 
    S2[a1, SP[a3, a6], a5, a4, a2, n] + S2[a1, SP[a4, a5], a2, a3, a6, n] - 
    S2[a2, a1, a3, a5, SP[a4, a6], n] + S2[a2, a1, a3, a6, SP[a4, a5], n] + 
    S2[a2, a1, a3, SP[a4, a5], a6, n] - S2[a2, a1, a3, SP[a4, a6], a5, n] + 
    S2[a2, a1, a4, a6, SP[a3, a5], n] + S2[a2, a1, a4, SP[a5, a6], a3, n] - 
    S2[a2, a1, a5, a3, SP[a4, a6], n] - S2[a2, a1, a5, SP[a3, a4], a6, n] + 
    S2[a2, a1, a6, a3, SP[a4, a5], n] + S2[a2, a1, a6, a4, SP[a3, a5], n] + 
    S2[a2, a1, a6, SP[a3, a5], a4, n] + S2[a2, a1, a6, SP[a4, a5], a3, n] - 
    S2[a2, a1, SP[a3, a4], a5, a6, n] - S2[a2, a1, SP[a3, a4], a6, a5, n] + 
    S2[a2, a1, SP[a4, a5], a3, a6, n] + S2[a2, a1, SP[a4, a5], a6, a3, n] + 
    S2[a2, a1, SP[a5, a6], a3, a4, n] + S2[a2, a1, SP[a5, a6], a4, a3, n] - 
    S2[a2, a3, a1, a5, SP[a4, a6], n] + S2[a2, a3, a1, a6, SP[a4, a5], n] + 
    S2[a2, a3, a1, SP[a4, a5], a6, n] - S2[a2, a3, a1, SP[a4, a6], a5, n] - 
    S2[a6, n]*S2[a2, a3, a4, a1, a5, n] + S2[a2, a3, a6, a1, SP[a4, a5], n] + 
    S2[a2, a3, a6, SP[a1, a4], a5, n] + S2[a2, a3, SP[a1, a4], a5, a6, n] + 
    S2[a2, a3, SP[a1, a4], a6, a5, n] - S2[a2, a3, SP[a4, a6], a1, a5, n] - 
    S2[a6, n]*S2[a2, a4, a1, a3, a5, n] - 
    S2[a6, n]*S2[a2, a4, a1, a5, a3, n] - S2[a2, a4, a1, a5, SP[a3, a6], n] + 
    S2[a2, a4, a1, a6, SP[a3, a5], n] + S2[a2, a4, a1, SP[a3, a5], a6, n] - 
    S2[a2, a4, a1, SP[a3, a6], a5, n] - S2[a6, n]*S2[a2, a4, a3, a1, a5, n] + 
    S2[a2, a4, a6, a1, SP[a3, a5], n] + S2[a2, a4, a6, SP[a1, a3], a5, n] + 
    S2[a2, a4, SP[a1, a3], a5, a6, n] + S2[a2, a4, SP[a1, a3], a6, a5, n] - 
    S2[a2, a4, SP[a3, a6], a1, a5, n] + S2[a2, a6, a1, a3, SP[a4, a5], n] - 
    S2[a3, n]*S2[a2, a6, a1, a4, a5, n] - 
    S2[a3, n]*S2[a2, a6, a1, a5, a4, n] - S2[a2, a6, a1, a5, SP[a3, a4], n] - 
    S2[a2, a6, a1, SP[a3, a4], a5, n] + S2[a2, a6, a1, SP[a4, a5], a3, n] + 
    S2[a2, a6, a3, a1, SP[a4, a5], n] + S2[a2, a6, a3, SP[a1, a4], a5, n] + 
    S2[a2, a6, a4, a1, SP[a3, a5], n] + S2[a2, a6, a4, SP[a1, a3], a5, n] + 
    S2[a2, a6, SP[a1, a4], a3, a5, n] + S2[a2, a6, SP[a1, a4], a5, a3, n] + 
    S2[a2, SP[a1, a4], a3, a5, a6, n] + S2[a2, SP[a1, a4], a3, a6, a5, n] + 
    S2[a2, SP[a1, a4], a5, a3, a6, n] + S2[a2, SP[a1, a4], a5, a6, a3, n] + 
    S2[a2, SP[a1, a4], a6, a3, a5, n] + S2[a2, SP[a1, a4], a6, a5, a3, n] + 
    S2[a2, SP[a1, a6], a3, a4, a5, n] + S2[a2, SP[a1, a6], a3, a5, a4, n] + 
    S2[a2, SP[a1, a6], a4, a3, a5, n] + S2[a2, SP[a1, a6], a4, a5, a3, n] + 
    S2[a2, SP[a1, a6], a5, a3, a4, n] + S2[a2, SP[a1, a6], a5, a4, a3, n] - 
    S2[a2, SP[a3, a6], a1, a4, a5, n] - S2[a2, SP[a3, a6], a1, a5, a4, n] - 
    S2[a2, SP[a3, a6], a4, a1, a5, n] - S2[a2, SP[a4, a6], a1, a3, a5, n] - 
    S2[a2, SP[a4, a6], a1, a5, a3, n] - S2[a2, SP[a4, a6], a3, a1, a5, n] - 
    S2[a3, a1, a4, a2, SP[a5, a6], n] - S2[a3, a1, a4, a5, SP[a2, a6], n] - 
    S2[a3, a1, a4, SP[a2, a6], a5, n] - S2[a3, a1, a4, SP[a5, a6], a2, n] - 
    S2[a3, a1, a5, a4, SP[a2, a6], n] - S2[a3, a1, a5, SP[a4, a6], a2, n] - 
    S2[a3, a1, a6, a2, SP[a4, a5], n] - S2[a3, a1, a6, SP[a2, a5], a4, n] - 
    S2[a3, a1, SP[a4, a6], a2, a5, n] - S2[a3, a1, SP[a4, a6], a5, a2, n] - 
    S2[a3, a1, SP[a5, a6], a2, a4, n] - S2[a3, a1, SP[a5, a6], a4, a2, n] - 
    S2[a3, a6, a1, a2, SP[a4, a5], n] + S2[a2, n]*S2[a3, a6, a1, a4, a5, n] + 
    S2[a3, a6, a1, a4, SP[a2, a5], n] + S2[a2, n]*S2[a3, a6, a1, a5, a4, n] + 
    S2[a3, a6, a1, a5, SP[a2, a4], n] + S2[a3, a6, a1, SP[a2, a4], a5, n] - 
    S2[a3, a6, a2, a1, SP[a4, a5], n] - S2[a3, a6, a2, SP[a1, a4], a5, n] - 
    S2[a3, SP[a1, a6], a2, a4, a5, n] - S2[a3, SP[a1, a6], a2, a5, a4, n] - 
    S2[a3, SP[a1, a6], a4, a2, a5, n] - S2[a3, SP[a1, a6], a4, a5, a2, n] - 
    S2[a3, SP[a1, a6], a5, a2, a4, n] - S2[a3, SP[a1, a6], a5, a4, a2, n] + 
    S2[a3, SP[a2, a6], a1, a4, a5, n] + S2[a3, SP[a2, a6], a1, a5, a4, n] + 
    S2[a3, n]*S2[a6, a2, a4, a1, a5, n] + S2[a6, a2, a4, a1, SP[a3, a5], n] + 
    S2[a6, a2, a4, SP[a1, a3], a5, n] + S2[a6, a2, SP[a3, a4], a1, a5, n] + 
    S2[a6, SP[a2, a3], a4, a1, a5, n] + S2[SP[a1, a5], a4, a2, a3, a6, n] - 
    S2[SP[a2, a6], a3, a4, a1, a5, n] - S2[SP[a2, a6], a4, a1, a3, a5, n] - 
    S2[SP[a2, a6], a4, a1, a5, a3, n] - S2[SP[a2, a6], a4, a3, a1, a5, n] + 
    S2[SP[a3, a6], a2, a4, a1, a5, n] - S2[a6, a3, a2, a4, a1, a5, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a5_, a1_, a4_, a2_, a6_, a3_, n_] :> 
  -(S2[a1, a4, a5, n]*S2[a2, a6, a3, n]) - S2[a1, a5, a4, n]*
     S2[a2, a6, a3, n] - S2[SP[a1, a2], SP[a4, a6], SP[a3, a5], n] - 
    S2[SP[a1, a2], SP[a5, a6], SP[a3, a4], n] + S2[a1, a2, SP[a4, a6], 
     SP[a3, a5], n] + S2[a1, a2, SP[a5, a6], SP[a3, a4], n] + 
    S2[a3, a6, n]*S2[a1, a4, a2, a5, n] + S2[a3, a6, n]*
     S2[a1, a4, a5, a2, n] - S2[a1, a4, SP[a2, a3], SP[a5, a6], n] - 
    S2[a1, a4, SP[a3, a5], SP[a2, a6], n] + S2[a3, a6, n]*
     S2[a1, a5, a4, a2, n] - S2[a1, a5, SP[a3, a4], SP[a2, a6], n] + 
    S2[a1, SP[a2, a4], a6, SP[a3, a5], n] + S2[a1, SP[a2, a4], SP[a5, a6], 
     a3, n] + S2[a1, SP[a2, a5], a6, SP[a3, a4], n] + 
    S2[a1, SP[a2, a5], SP[a4, a6], a3, n] - S2[a1, SP[a3, a4], a2, 
     SP[a5, a6], n] - S2[a1, SP[a3, a4], a5, SP[a2, a6], n] - 
    S2[a1, SP[a3, a4], SP[a2, a6], a5, n] - S2[a1, SP[a3, a4], SP[a5, a6], 
     a2, n] - S2[a1, SP[a3, a5], a4, SP[a2, a6], n] - 
    S2[a1, SP[a3, a5], SP[a4, a6], a2, n] + S2[a2, a1, SP[a4, a6], 
     SP[a3, a5], n] + S2[a2, a1, SP[a5, a6], SP[a3, a4], n] + 
    S2[a2, SP[a1, a6], a4, SP[a3, a5], n] + S2[a2, SP[a1, a6], a5, 
     SP[a3, a4], n] + S2[a2, SP[a1, a6], SP[a3, a4], a5, n] + 
    S2[a2, SP[a1, a6], SP[a3, a5], a4, n] + S2[a1, a5, n]*
     S2[a3, a6, a2, a4, n] - S2[a3, a6, SP[a1, a2], SP[a4, a5], n] - 
    S2[a3, SP[a1, a6], a2, SP[a4, a5], n] - S2[a3, SP[a1, a6], SP[a2, a5], 
     a4, n] + S2[SP[a1, a2], a4, a6, SP[a3, a5], n] + 
    S2[SP[a1, a2], a4, SP[a5, a6], a3, n] + S2[SP[a1, a2], a5, a6, 
     SP[a3, a4], n] + S2[SP[a1, a2], a5, SP[a4, a6], a3, n] + 
    S2[SP[a1, a2], a6, a4, SP[a3, a5], n] + S2[SP[a1, a2], a6, a5, 
     SP[a3, a4], n] + S2[SP[a1, a2], a6, SP[a3, a4], a5, n] + 
    S2[SP[a1, a2], a6, SP[a3, a5], a4, n] + S2[SP[a1, a2], SP[a4, a6], a3, 
     a5, n] + S2[SP[a1, a2], SP[a4, a6], a5, a3, n] + 
    S2[SP[a1, a2], SP[a5, a6], a3, a4, n] + S2[SP[a1, a2], SP[a5, a6], a4, 
     a3, n] - S2[SP[a1, a3], a4, a2, SP[a5, a6], n] - 
    S2[SP[a1, a3], a4, a5, SP[a2, a6], n] - S2[SP[a1, a3], a4, SP[a2, a6], 
     a5, n] - S2[SP[a1, a3], a4, SP[a5, a6], a2, n] - 
    S2[SP[a1, a3], a5, a4, SP[a2, a6], n] - S2[SP[a1, a3], a5, SP[a4, a6], 
     a2, n] - S2[SP[a1, a3], a6, a2, SP[a4, a5], n] - 
    S2[SP[a1, a3], a6, SP[a2, a5], a4, n] - S2[SP[a1, a3], SP[a4, a6], a2, 
     a5, n] - S2[SP[a1, a3], SP[a4, a6], a5, a2, n] - 
    S2[SP[a1, a3], SP[a5, a6], a2, a4, n] - S2[SP[a1, a3], SP[a5, a6], a4, 
     a2, n] - S2[a1, a2, a4, a6, SP[a3, a5], n] - S2[a1, a2, a4, SP[a5, a6], 
     a3, n] - S2[a1, a2, a5, a6, SP[a3, a4], n] - S2[a1, a2, a5, SP[a4, a6], 
     a3, n] - S2[a1, a2, a6, a4, SP[a3, a5], n] - 
    S2[a1, a2, a6, a5, SP[a3, a4], n] - S2[a1, a2, a6, SP[a3, a4], a5, n] - 
    S2[a1, a2, a6, SP[a3, a5], a4, n] - S2[a1, a2, SP[a4, a6], a3, a5, n] - 
    S2[a1, a2, SP[a4, a6], a5, a3, n] - S2[a1, a2, SP[a5, a6], a3, a4, n] - 
    S2[a1, a2, SP[a5, a6], a4, a3, n] + S2[a1, a3, a4, a2, SP[a5, a6], n] + 
    S2[a1, a3, a4, a5, SP[a2, a6], n] + S2[a1, a3, a4, SP[a2, a6], a5, n] + 
    S2[a1, a3, a4, SP[a5, a6], a2, n] + S2[a1, a3, a5, a4, SP[a2, a6], n] + 
    S2[a1, a3, a5, SP[a4, a6], a2, n] + S2[a1, a3, a6, a2, SP[a4, a5], n] + 
    S2[a1, a3, a6, SP[a2, a5], a4, n] + S2[a1, a3, SP[a4, a6], a2, a5, n] + 
    S2[a1, a3, SP[a4, a6], a5, a2, n] + S2[a1, a3, SP[a5, a6], a2, a4, n] + 
    S2[a1, a3, SP[a5, a6], a4, a2, n] + S2[a1, a4, a2, a3, SP[a5, a6], n] - 
    S2[a3, n]*S2[a1, a4, a2, a5, a6, n] - S2[a1, a4, a2, a5, SP[a3, a6], n] + 
    S2[a5, n]*S2[a1, a4, a2, a6, a3, n] - 
    S2[a3, n]*S2[a1, a4, a2, a6, a5, n] - S2[a1, a4, a2, a6, SP[a3, a5], n] - 
    S2[a1, a4, a2, SP[a3, a6], a5, n] + S2[a1, a4, a3, a2, SP[a5, a6], n] + 
    S2[a1, a4, a3, a5, SP[a2, a6], n] + S2[a1, a4, a3, SP[a2, a6], a5, n] + 
    S2[a1, a4, a3, SP[a5, a6], a2, n] - S2[a3, n]*S2[a1, a4, a5, a2, a6, n] - 
    S2[a1, a4, a5, a2, SP[a3, a6], n] + S2[a1, a4, a5, a3, SP[a2, a6], n] - 
    S2[a3, n]*S2[a1, a4, a5, a6, a2, n] + 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] + S2[a1, a4, a5, SP[a2, a6], a3, n] - 
    S2[a1, a4, a5, SP[a3, a6], a2, n] - S2[a3, n]*S2[a1, a4, a6, a2, a5, n] - 
    S2[a1, a4, a6, a2, SP[a3, a5], n] + S2[a2, n]*S2[a1, a4, a6, a3, a5, n] + 
    S2[a1, a4, a6, a3, SP[a2, a5], n] - S2[a3, n]*S2[a1, a4, a6, a5, a2, n] + 
    S2[a2, n]*S2[a1, a4, a6, a5, a3, n] + S2[a1, a4, a6, SP[a2, a5], a3, n] - 
    S2[a1, a4, a6, SP[a3, a5], a2, n] + S2[a1, a4, SP[a2, a5], a6, a3, n] + 
    S2[a1, a4, SP[a2, a6], a3, a5, n] + S2[a1, a4, SP[a2, a6], a5, a3, n] - 
    S2[a1, a4, SP[a3, a6], a2, a5, n] - S2[a1, a4, SP[a3, a6], a5, a2, n] - 
    S2[a1, a5, a2, a6, SP[a3, a4], n] - S2[a1, a5, a2, SP[a4, a6], a3, n] + 
    S2[a1, a5, a3, a4, SP[a2, a6], n] + S2[a1, a5, a3, SP[a4, a6], a2, n] - 
    S2[a3, n]*S2[a1, a5, a4, a2, a6, n] - S2[a1, a5, a4, a2, SP[a3, a6], n] + 
    S2[a1, a5, a4, a3, SP[a2, a6], n] - S2[a3, n]*S2[a1, a5, a4, a6, a2, n] + 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] + S2[a1, a5, a4, SP[a2, a6], a3, n] - 
    S2[a1, a5, a4, SP[a3, a6], a2, n] - S2[a3, n]*S2[a1, a5, a6, a2, a4, n] - 
    S2[a1, a5, a6, a2, SP[a3, a4], n] + S2[a2, n]*S2[a1, a5, a6, a3, a4, n] + 
    S2[a1, a5, a6, a3, SP[a2, a4], n] - S2[a3, n]*S2[a1, a5, a6, a4, a2, n] + 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] + S2[a1, a5, a6, SP[a2, a4], a3, n] - 
    S2[a1, a5, a6, SP[a3, a4], a2, n] + S2[a1, a5, SP[a2, a6], a3, a4, n] + 
    S2[a1, a5, SP[a2, a6], a4, a3, n] - S2[a1, a5, SP[a3, a6], a2, a4, n] - 
    S2[a1, a5, SP[a3, a6], a4, a2, n] - S2[a3, n]*S2[a1, a6, a2, a4, a5, n] - 
    S2[a1, a6, a2, a4, SP[a3, a5], n] - S2[a3, n]*S2[a1, a6, a2, a5, a4, n] - 
    S2[a1, a6, a2, a5, SP[a3, a4], n] - S2[a1, a6, a2, SP[a3, a4], a5, n] - 
    S2[a1, a6, a2, SP[a3, a5], a4, n] + S2[a2, n]*S2[a1, a6, a3, a4, a5, n] + 
    S2[a1, a6, a3, a4, SP[a2, a5], n] + S2[a2, n]*S2[a1, a6, a3, a5, a4, n] + 
    S2[a1, a6, a3, a5, SP[a2, a4], n] + S2[a1, a6, a3, SP[a2, a4], a5, n] + 
    S2[a1, a6, a3, SP[a2, a5], a4, n] - S2[a3, n]*S2[a1, a6, a4, a2, a5, n] - 
    S2[a1, a6, a4, a2, SP[a3, a5], n] + S2[a2, n]*S2[a1, a6, a4, a3, a5, n] + 
    S2[a1, a6, a4, a3, SP[a2, a5], n] - S2[a3, n]*S2[a1, a6, a4, a5, a2, n] + 
    S2[a2, n]*S2[a1, a6, a4, a5, a3, n] + S2[a1, a6, a4, SP[a2, a5], a3, n] - 
    S2[a1, a6, a4, SP[a3, a5], a2, n] - S2[a3, n]*S2[a1, a6, a5, a2, a4, n] - 
    S2[a1, a6, a5, a2, SP[a3, a4], n] + S2[a2, n]*S2[a1, a6, a5, a3, a4, n] + 
    S2[a1, a6, a5, a3, SP[a2, a4], n] - S2[a3, n]*S2[a1, a6, a5, a4, a2, n] + 
    S2[a2, n]*S2[a1, a6, a5, a4, a3, n] + S2[a1, a6, a5, SP[a2, a4], a3, n] - 
    S2[a1, a6, a5, SP[a3, a4], a2, n] + S2[a1, a6, SP[a2, a4], a3, a5, n] + 
    S2[a1, a6, SP[a2, a4], a5, a3, n] + S2[a1, a6, SP[a2, a5], a3, a4, n] + 
    S2[a1, a6, SP[a2, a5], a4, a3, n] - S2[a1, a6, SP[a3, a4], a2, a5, n] - 
    S2[a1, a6, SP[a3, a4], a5, a2, n] - S2[a1, a6, SP[a3, a5], a2, a4, n] - 
    S2[a1, a6, SP[a3, a5], a4, a2, n] + S2[a1, SP[a2, a6], a3, a4, a5, n] + 
    S2[a1, SP[a2, a6], a3, a5, a4, n] + S2[a1, SP[a2, a6], a4, a3, a5, n] + 
    S2[a1, SP[a2, a6], a4, a5, a3, n] + S2[a1, SP[a2, a6], a5, a3, a4, n] + 
    S2[a1, SP[a2, a6], a5, a4, a3, n] - S2[a1, SP[a3, a6], a2, a4, a5, n] - 
    S2[a1, SP[a3, a6], a2, a5, a4, n] - S2[a1, SP[a3, a6], a4, a2, a5, n] - 
    S2[a1, SP[a3, a6], a4, a5, a2, n] - S2[a1, SP[a3, a6], a5, a2, a4, n] - 
    S2[a1, SP[a3, a6], a5, a4, a2, n] + S2[a1, SP[a4, a5], a2, a6, a3, n] - 
    S2[a2, a1, a4, a6, SP[a3, a5], n] - S2[a2, a1, a4, SP[a5, a6], a3, n] - 
    S2[a2, a1, a5, a6, SP[a3, a4], n] - S2[a2, a1, a5, SP[a4, a6], a3, n] - 
    S2[a2, a1, a6, a4, SP[a3, a5], n] - S2[a2, a1, a6, a5, SP[a3, a4], n] - 
    S2[a2, a1, a6, SP[a3, a4], a5, n] - S2[a2, a1, a6, SP[a3, a5], a4, n] - 
    S2[a2, a1, SP[a4, a6], a3, a5, n] - S2[a2, a1, SP[a4, a6], a5, a3, n] - 
    S2[a2, a1, SP[a5, a6], a3, a4, n] - S2[a2, a1, SP[a5, a6], a4, a3, n] + 
    S2[a3, n]*S2[a2, a6, a1, a4, a5, n] + 
    S2[a3, n]*S2[a2, a6, a1, a5, a4, n] - S2[a2, SP[a1, a6], a3, a4, a5, n] - 
    S2[a2, SP[a1, a6], a3, a5, a4, n] - S2[a2, SP[a1, a6], a4, a3, a5, n] - 
    S2[a2, SP[a1, a6], a4, a5, a3, n] - S2[a2, SP[a1, a6], a5, a3, a4, n] - 
    S2[a2, SP[a1, a6], a5, a4, a3, n] + S2[a2, SP[a3, a6], a1, a4, a5, n] + 
    S2[a2, SP[a3, a6], a1, a5, a4, n] + S2[a3, a1, a4, a2, SP[a5, a6], n] + 
    S2[a3, a1, a4, a5, SP[a2, a6], n] + S2[a3, a1, a4, SP[a2, a6], a5, n] + 
    S2[a3, a1, a4, SP[a5, a6], a2, n] + S2[a3, a1, a5, a4, SP[a2, a6], n] + 
    S2[a3, a1, a5, SP[a4, a6], a2, n] + S2[a3, a1, a6, a2, SP[a4, a5], n] + 
    S2[a3, a1, a6, SP[a2, a5], a4, n] + S2[a3, a1, SP[a4, a6], a2, a5, n] + 
    S2[a3, a1, SP[a4, a6], a5, a2, n] + S2[a3, a1, SP[a5, a6], a2, a4, n] + 
    S2[a3, a1, SP[a5, a6], a4, a2, n] + S2[a3, a6, a1, a2, SP[a4, a5], n] - 
    S2[a2, n]*S2[a3, a6, a1, a4, a5, n] - S2[a3, a6, a1, a4, SP[a2, a5], n] - 
    S2[a2, n]*S2[a3, a6, a1, a5, a4, n] - S2[a3, a6, a1, a5, SP[a2, a4], n] - 
    S2[a3, a6, a1, SP[a2, a4], a5, n] + S2[a3, a6, a2, a1, SP[a4, a5], n] + 
    S2[a3, a6, a2, SP[a1, a4], a5, n] + S2[a3, SP[a1, a6], a2, a4, a5, n] + 
    S2[a3, SP[a1, a6], a2, a5, a4, n] + S2[a3, SP[a1, a6], a4, a2, a5, n] + 
    S2[a3, SP[a1, a6], a4, a5, a2, n] + S2[a3, SP[a1, a6], a5, a2, a4, n] + 
    S2[a3, SP[a1, a6], a5, a4, a2, n] - S2[a3, SP[a2, a6], a1, a4, a5, n] - 
    S2[a3, SP[a2, a6], a1, a5, a4, n] - S2[a3, n]*S2[a6, a2, a4, a1, a5, n] - 
    S2[a6, a2, a4, a1, SP[a3, a5], n] - S2[a6, a2, a4, SP[a1, a3], a5, n] - 
    S2[a6, a2, SP[a3, a4], a1, a5, n] - S2[a6, SP[a2, a3], a4, a1, a5, n] + 
    S2[SP[a1, a5], a4, a2, a6, a3, n] - S2[SP[a3, a6], a2, a4, a1, a5, n] + 
    S2[a6, a2, a3, a4, a1, a5, n] + S2[a6, a2, a4, a1, a3, a5, n] + 
    S2[a6, a2, a4, a1, a5, a3, n] + S2[a6, a2, a4, a3, a1, a5, n] + 
    S2[a6, a3, a2, a4, a1, a5, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a5_, a1_, a4_, a3_, a2_, a6_, n_] :> 
  S2[a1, a4, a5, n]*S2[a2, a3, a6, n] + S2[a1, a5, a4, n]*S2[a2, a3, a6, n] + 
    S2[a1, a4, a5, n]*S2[a2, a6, a3, n] + S2[a1, a5, a4, n]*
     S2[a2, a6, a3, n] + S2[SP[a1, a2], SP[a3, a4], SP[a5, a6], n] + 
    S2[SP[a1, a2], SP[a3, a5], SP[a4, a6], n] + S2[SP[a1, a2], SP[a4, a6], 
     SP[a3, a5], n] + S2[SP[a1, a2], SP[a5, a6], SP[a3, a4], n] - 
    S2[a1, a2, SP[a3, a4], SP[a5, a6], n] - S2[a1, a2, SP[a3, a5], 
     SP[a4, a6], n] - S2[a1, a2, SP[a4, a6], SP[a3, a5], n] - 
    S2[a1, a2, SP[a5, a6], SP[a3, a4], n] - S2[a2, a6, n]*
     S2[a1, a4, a3, a5, n] - S2[a2, a6, n]*S2[a1, a4, a5, a3, n] + 
    S2[a1, a4, SP[a2, a3], SP[a5, a6], n] + S2[a1, a4, SP[a2, a5], 
     SP[a3, a6], n] - S2[a2, a6, n]*S2[a1, a5, a4, a3, n] + 
    S2[a1, a5, SP[a2, a4], SP[a3, a6], n] + S2[a1, SP[a2, a4], a5, 
     SP[a3, a6], n] - S2[a1, SP[a2, a4], a6, SP[a3, a5], n] - 
    S2[a1, SP[a2, a4], SP[a3, a5], a6, n] + S2[a1, SP[a2, a4], SP[a3, a6], 
     a5, n] - S2[a1, SP[a2, a5], a3, SP[a4, a6], n] + 
    S2[a1, SP[a2, a5], a4, SP[a3, a6], n] - S2[a1, SP[a2, a5], a6, 
     SP[a3, a4], n] - S2[a1, SP[a2, a5], SP[a3, a4], a6, n] - 
    S2[a2, a1, SP[a3, a4], SP[a5, a6], n] - S2[a2, a1, SP[a3, a5], 
     SP[a4, a6], n] - S2[a2, a1, SP[a4, a6], SP[a3, a5], n] - 
    S2[a2, a1, SP[a5, a6], SP[a3, a4], n] - S2[a1, a5, n]*
     S2[a2, a3, a4, a6, n] - S2[a1, a5, n]*S2[a2, a3, a6, a4, n] + 
    S2[a2, a3, SP[a1, a4], SP[a5, a6], n] + S2[a2, a3, SP[a1, a6], 
     SP[a4, a5], n] - S2[a1, a5, n]*S2[a2, a6, a3, a4, n] + 
    S2[a2, a6, SP[a1, a3], SP[a4, a5], n] - S2[a2, SP[a1, a3], a5, 
     SP[a4, a6], n] + S2[a2, SP[a1, a3], a6, SP[a4, a5], n] + 
    S2[a2, SP[a1, a3], SP[a4, a5], a6, n] - S2[a2, SP[a1, a3], SP[a4, a6], 
     a5, n] + S2[a2, SP[a1, a6], a3, SP[a4, a5], n] - 
    S2[a2, SP[a1, a6], a4, SP[a3, a5], n] - S2[a2, SP[a1, a6], a5, 
     SP[a3, a4], n] - S2[a2, SP[a1, a6], SP[a3, a4], a5, n] - 
    S2[SP[a1, a2], a3, a5, SP[a4, a6], n] + S2[SP[a1, a2], a3, a6, 
     SP[a4, a5], n] + S2[SP[a1, a2], a3, SP[a4, a5], a6, n] - 
    S2[SP[a1, a2], a3, SP[a4, a6], a5, n] + S2[SP[a1, a2], a4, a5, 
     SP[a3, a6], n] - S2[SP[a1, a2], a4, a6, SP[a3, a5], n] - 
    S2[SP[a1, a2], a4, SP[a3, a5], a6, n] + S2[SP[a1, a2], a4, SP[a3, a6], 
     a5, n] - S2[SP[a1, a2], a5, a3, SP[a4, a6], n] + 
    S2[SP[a1, a2], a5, a4, SP[a3, a6], n] - S2[SP[a1, a2], a5, a6, 
     SP[a3, a4], n] - S2[SP[a1, a2], a5, SP[a3, a4], a6, n] + 
    S2[SP[a1, a2], a6, a3, SP[a4, a5], n] - S2[SP[a1, a2], a6, a4, 
     SP[a3, a5], n] - S2[SP[a1, a2], a6, a5, SP[a3, a4], n] - 
    S2[SP[a1, a2], a6, SP[a3, a4], a5, n] - S2[SP[a1, a2], SP[a3, a4], a5, 
     a6, n] - S2[SP[a1, a2], SP[a3, a4], a6, a5, n] + 
    S2[a1, a2, a3, a5, SP[a4, a6], n] - S2[a1, a2, a3, a6, SP[a4, a5], n] - 
    S2[a1, a2, a3, SP[a4, a5], a6, n] + S2[a1, a2, a3, SP[a4, a6], a5, n] - 
    S2[a1, a2, a4, a5, SP[a3, a6], n] + S2[a1, a2, a4, a6, SP[a3, a5], n] + 
    S2[a1, a2, a4, SP[a3, a5], a6, n] - S2[a1, a2, a4, SP[a3, a6], a5, n] + 
    S2[a1, a2, a5, a3, SP[a4, a6], n] - S2[a1, a2, a5, a4, SP[a3, a6], n] + 
    S2[a1, a2, a5, a6, SP[a3, a4], n] + S2[a1, a2, a5, SP[a3, a4], a6, n] - 
    S2[a1, a2, a6, a3, SP[a4, a5], n] + S2[a1, a2, a6, a4, SP[a3, a5], n] + 
    S2[a1, a2, a6, a5, SP[a3, a4], n] + S2[a1, a2, a6, SP[a3, a4], a5, n] + 
    S2[a1, a2, SP[a3, a4], a5, a6, n] + S2[a1, a2, SP[a3, a4], a6, a5, n] - 
    S2[a1, a4, a2, a5, SP[a3, a6], n] + S2[a1, a4, a2, a6, SP[a3, a5], n] + 
    S2[a1, a4, a2, SP[a3, a5], a6, n] - S2[a1, a4, a2, SP[a3, a6], a5, n] + 
    S2[a5, n]*S2[a1, a4, a3, a2, a6, n] - S2[a1, a4, a5, a2, SP[a3, a6], n] - 
    S2[a1, a4, a5, SP[a2, a3], a6, n] - S2[a1, a4, SP[a2, a3], a5, a6, n] - 
    S2[a1, a4, SP[a2, a3], a6, a5, n] + S2[a1, a4, SP[a3, a5], a2, a6, n] + 
    S2[a1, a5, a2, a3, SP[a4, a6], n] - S2[a1, a5, a2, a4, SP[a3, a6], n] + 
    S2[a1, a5, a2, a6, SP[a3, a4], n] + S2[a1, a5, a2, SP[a3, a4], a6, n] - 
    S2[a1, a5, a4, a2, SP[a3, a6], n] - S2[a1, a5, a4, SP[a2, a3], a6, n] + 
    S2[a1, SP[a4, a5], a3, a2, a6, n] + S2[a2, a1, a3, a5, SP[a4, a6], n] - 
    S2[a2, a1, a3, a6, SP[a4, a5], n] - S2[a2, a1, a3, SP[a4, a5], a6, n] + 
    S2[a2, a1, a3, SP[a4, a6], a5, n] - S2[a2, a1, a4, a5, SP[a3, a6], n] + 
    S2[a2, a1, a4, a6, SP[a3, a5], n] + S2[a2, a1, a4, SP[a3, a5], a6, n] - 
    S2[a2, a1, a4, SP[a3, a6], a5, n] + S2[a2, a1, a5, a3, SP[a4, a6], n] - 
    S2[a2, a1, a5, a4, SP[a3, a6], n] + S2[a2, a1, a5, a6, SP[a3, a4], n] + 
    S2[a2, a1, a5, SP[a3, a4], a6, n] - S2[a2, a1, a6, a3, SP[a4, a5], n] + 
    S2[a2, a1, a6, a4, SP[a3, a5], n] + S2[a2, a1, a6, a5, SP[a3, a4], n] + 
    S2[a2, a1, a6, SP[a3, a4], a5, n] + S2[a2, a1, SP[a3, a4], a5, a6, n] + 
    S2[a2, a1, SP[a3, a4], a6, a5, n] + S2[a2, a3, a1, a5, SP[a4, a6], n] - 
    S2[a2, a3, a1, a6, SP[a4, a5], n] - S2[a2, a3, a1, SP[a4, a5], a6, n] + 
    S2[a2, a3, a1, SP[a4, a6], a5, n] + S2[a6, n]*S2[a2, a3, a4, a1, a5, n] - 
    S2[a2, a3, a6, a1, SP[a4, a5], n] - S2[a2, a3, a6, SP[a1, a4], a5, n] - 
    S2[a2, a3, SP[a1, a4], a5, a6, n] - S2[a2, a3, SP[a1, a4], a6, a5, n] + 
    S2[a2, a3, SP[a4, a6], a1, a5, n] - S2[a2, a6, a1, a3, SP[a4, a5], n] + 
    S2[a2, a6, a1, a4, SP[a3, a5], n] + S2[a2, a6, a1, a5, SP[a3, a4], n] + 
    S2[a2, a6, a1, SP[a3, a4], a5, n] - S2[a2, a6, a3, a1, SP[a4, a5], n] - 
    S2[a2, a6, a3, SP[a1, a4], a5, n] + S2[a2, SP[a3, a6], a4, a1, a5, n] + 
    S2[SP[a1, a5], a4, a3, a2, a6, n] + S2[SP[a2, a6], a3, a4, a1, a5, n] - 
    S2[a6, a2, a3, a4, a1, a5, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a5_, a1_, a4_, a3_, a6_, a2_, n_] :> 
  -(S2[a1, a4, a5, n]*S2[a2, a6, a3, n]) - S2[a1, a5, a4, n]*
     S2[a2, a6, a3, n] - S2[SP[a1, a2], SP[a4, a6], SP[a3, a5], n] - 
    S2[SP[a1, a2], SP[a5, a6], SP[a3, a4], n] + S2[a1, a2, SP[a4, a6], 
     SP[a3, a5], n] + S2[a1, a2, SP[a5, a6], SP[a3, a4], n] + 
    S2[a2, a6, n]*S2[a1, a4, a3, a5, n] + S2[a2, a6, n]*
     S2[a1, a4, a5, a3, n] - S2[a1, a4, SP[a2, a3], SP[a5, a6], n] - 
    S2[a1, a4, SP[a2, a5], SP[a3, a6], n] + S2[a2, a6, n]*
     S2[a1, a5, a4, a3, n] - S2[a1, a5, SP[a2, a4], SP[a3, a6], n] - 
    S2[a1, SP[a2, a4], a3, SP[a5, a6], n] - S2[a1, SP[a2, a4], a5, 
     SP[a3, a6], n] + S2[a1, SP[a2, a4], a6, SP[a3, a5], n] - 
    S2[a1, SP[a2, a4], SP[a3, a6], a5, n] - S2[a1, SP[a2, a5], a4, 
     SP[a3, a6], n] + S2[a1, SP[a2, a5], a6, SP[a3, a4], n] + 
    S2[a2, a1, SP[a4, a6], SP[a3, a5], n] + S2[a2, a1, SP[a5, a6], 
     SP[a3, a4], n] + S2[a1, a5, n]*S2[a2, a6, a3, a4, n] - 
    S2[a2, a6, SP[a1, a3], SP[a4, a5], n] - S2[a2, SP[a1, a6], a3, 
     SP[a4, a5], n] + S2[a2, SP[a1, a6], a4, SP[a3, a5], n] + 
    S2[a2, SP[a1, a6], a5, SP[a3, a4], n] + S2[a2, SP[a1, a6], SP[a3, a4], 
     a5, n] - S2[SP[a1, a2], a4, a3, SP[a5, a6], n] - 
    S2[SP[a1, a2], a4, a5, SP[a3, a6], n] + S2[SP[a1, a2], a4, a6, 
     SP[a3, a5], n] - S2[SP[a1, a2], a4, SP[a3, a6], a5, n] - 
    S2[SP[a1, a2], a5, a4, SP[a3, a6], n] + S2[SP[a1, a2], a5, a6, 
     SP[a3, a4], n] - S2[SP[a1, a2], a6, a3, SP[a4, a5], n] + 
    S2[SP[a1, a2], a6, a4, SP[a3, a5], n] + S2[SP[a1, a2], a6, a5, 
     SP[a3, a4], n] + S2[SP[a1, a2], a6, SP[a3, a4], a5, n] + 
    S2[a1, a2, a4, a3, SP[a5, a6], n] + S2[a1, a2, a4, a5, SP[a3, a6], n] - 
    S2[a1, a2, a4, a6, SP[a3, a5], n] + S2[a1, a2, a4, SP[a3, a6], a5, n] + 
    S2[a1, a2, a5, a4, SP[a3, a6], n] - S2[a1, a2, a5, a6, SP[a3, a4], n] + 
    S2[a1, a2, a6, a3, SP[a4, a5], n] - S2[a1, a2, a6, a4, SP[a3, a5], n] - 
    S2[a1, a2, a6, a5, SP[a3, a4], n] - S2[a1, a2, a6, SP[a3, a4], a5, n] + 
    S2[a1, a4, a2, a3, SP[a5, a6], n] + S2[a1, a4, a2, a5, SP[a3, a6], n] - 
    S2[a1, a4, a2, a6, SP[a3, a5], n] + S2[a1, a4, a2, SP[a3, a6], a5, n] + 
    S2[a1, a4, a3, a2, SP[a5, a6], n] - S2[a2, n]*S2[a1, a4, a3, a5, a6, n] - 
    S2[a1, a4, a3, a5, SP[a2, a6], n] + S2[a5, n]*S2[a1, a4, a3, a6, a2, n] - 
    S2[a2, n]*S2[a1, a4, a3, a6, a5, n] - S2[a1, a4, a3, SP[a2, a6], a5, n] + 
    S2[a1, a4, a3, SP[a5, a6], a2, n] + S2[a1, a4, a5, a2, SP[a3, a6], n] - 
    S2[a2, n]*S2[a1, a4, a5, a3, a6, n] - S2[a1, a4, a5, a3, SP[a2, a6], n] + 
    S2[a1, a4, SP[a3, a5], a6, a2, n] + S2[a1, a5, a2, a4, SP[a3, a6], n] - 
    S2[a1, a5, a2, a6, SP[a3, a4], n] + S2[a1, a5, a4, a2, SP[a3, a6], n] - 
    S2[a2, n]*S2[a1, a5, a4, a3, a6, n] - S2[a1, a5, a4, a3, SP[a2, a6], n] + 
    S2[a1, SP[a4, a5], a3, a6, a2, n] + S2[a2, a1, a4, a3, SP[a5, a6], n] + 
    S2[a2, a1, a4, a5, SP[a3, a6], n] - S2[a2, a1, a4, a6, SP[a3, a5], n] + 
    S2[a2, a1, a4, SP[a3, a6], a5, n] + S2[a2, a1, a5, a4, SP[a3, a6], n] - 
    S2[a2, a1, a5, a6, SP[a3, a4], n] + S2[a2, a1, a6, a3, SP[a4, a5], n] - 
    S2[a2, a1, a6, a4, SP[a3, a5], n] - S2[a2, a1, a6, a5, SP[a3, a4], n] - 
    S2[a2, a1, a6, SP[a3, a4], a5, n] + S2[a2, a6, a1, a3, SP[a4, a5], n] - 
    S2[a2, a6, a1, a4, SP[a3, a5], n] - S2[a2, a6, a1, a5, SP[a3, a4], n] - 
    S2[a2, a6, a1, SP[a3, a4], a5, n] + S2[a2, a6, a3, a1, SP[a4, a5], n] + 
    S2[a2, a6, a3, SP[a1, a4], a5, n] - S2[a2, n]*S2[a6, a3, a4, a1, a5, n] - 
    S2[a6, a3, a4, a1, SP[a2, a5], n] - S2[a6, a3, a4, SP[a1, a2], a5, n] - 
    S2[a6, a3, SP[a2, a4], a1, a5, n] - S2[a6, SP[a2, a3], a4, a1, a5, n] + 
    S2[SP[a1, a5], a4, a3, a6, a2, n] - S2[SP[a2, a6], a3, a4, a1, a5, n] + 
    S2[a6, a2, a3, a4, a1, a5, n] + S2[a6, a3, a2, a4, a1, a5, n] + 
    S2[a6, a3, a4, a1, a2, a5, n] + S2[a6, a3, a4, a1, a5, a2, n] + 
    S2[a6, a3, a4, a2, a1, a5, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a5_, a1_, a4_, a6_, a2_, a3_, n_] :> 
  S2[a1, a4, a5, n]*S2[a2, a3, a6, n] + S2[a1, a5, a4, n]*S2[a2, a3, a6, n] + 
    S2[a1, a4, a5, n]*S2[a2, a6, a3, n] + S2[a1, a5, a4, n]*
     S2[a2, a6, a3, n] + S2[SP[a1, a2], SP[a3, a4], SP[a5, a6], n] + 
    S2[SP[a1, a2], SP[a3, a5], SP[a4, a6], n] + S2[SP[a1, a2], SP[a4, a6], 
     SP[a3, a5], n] + S2[SP[a1, a2], SP[a5, a6], SP[a3, a4], n] - 
    S2[a1, a2, SP[a3, a4], SP[a5, a6], n] - S2[a1, a2, SP[a3, a5], 
     SP[a4, a6], n] - S2[a1, a2, SP[a4, a6], SP[a3, a5], n] - 
    S2[a1, a2, SP[a5, a6], SP[a3, a4], n] - S2[a1, SP[a2, a4], a3, 
     SP[a5, a6], n] - S2[a1, SP[a2, a4], a6, SP[a3, a5], n] - 
    S2[a1, SP[a2, a4], SP[a3, a5], a6, n] - S2[a1, SP[a2, a4], SP[a5, a6], 
     a3, n] - S2[a1, SP[a2, a5], a3, SP[a4, a6], n] - 
    S2[a1, SP[a2, a5], a6, SP[a3, a4], n] - S2[a1, SP[a2, a5], SP[a3, a4], 
     a6, n] - S2[a1, SP[a2, a5], SP[a4, a6], a3, n] - 
    S2[a2, a1, SP[a3, a4], SP[a5, a6], n] - S2[a2, a1, SP[a3, a5], 
     SP[a4, a6], n] - S2[a2, a1, SP[a4, a6], SP[a3, a5], n] - 
    S2[a2, a1, SP[a5, a6], SP[a3, a4], n] - S2[a2, SP[a1, a3], a4, 
     SP[a5, a6], n] - S2[a2, SP[a1, a3], a5, SP[a4, a6], n] - 
    S2[a2, SP[a1, a3], SP[a4, a6], a5, n] - S2[a2, SP[a1, a3], SP[a5, a6], 
     a4, n] - S2[a2, SP[a1, a6], a4, SP[a3, a5], n] - 
    S2[a2, SP[a1, a6], a5, SP[a3, a4], n] - S2[a2, SP[a1, a6], SP[a3, a4], 
     a5, n] - S2[a2, SP[a1, a6], SP[a3, a5], a4, n] - 
    S2[a1, a5, n]*S2[a4, a6, a2, a3, n] + S2[a4, a6, SP[a1, a2], SP[a3, a5], 
     n] + S2[a4, SP[a1, a6], a2, SP[a3, a5], n] + 
    S2[a4, SP[a1, a6], SP[a2, a5], a3, n] - S2[SP[a1, a2], a3, a4, 
     SP[a5, a6], n] - S2[SP[a1, a2], a3, a5, SP[a4, a6], n] - 
    S2[SP[a1, a2], a3, SP[a4, a6], a5, n] - S2[SP[a1, a2], a3, SP[a5, a6], 
     a4, n] - S2[SP[a1, a2], a4, a3, SP[a5, a6], n] - 
    S2[SP[a1, a2], a4, a6, SP[a3, a5], n] - S2[SP[a1, a2], a4, SP[a3, a5], 
     a6, n] - S2[SP[a1, a2], a4, SP[a5, a6], a3, n] - 
    S2[SP[a1, a2], a5, a3, SP[a4, a6], n] - S2[SP[a1, a2], a5, a6, 
     SP[a3, a4], n] - S2[SP[a1, a2], a5, SP[a3, a4], a6, n] - 
    S2[SP[a1, a2], a5, SP[a4, a6], a3, n] - S2[SP[a1, a2], a6, a4, 
     SP[a3, a5], n] - S2[SP[a1, a2], a6, a5, SP[a3, a4], n] - 
    S2[SP[a1, a2], a6, SP[a3, a4], a5, n] - S2[SP[a1, a2], a6, SP[a3, a5], 
     a4, n] - S2[SP[a1, a2], SP[a3, a4], a5, a6, n] - 
    S2[SP[a1, a2], SP[a3, a4], a6, a5, n] - S2[SP[a1, a2], SP[a3, a5], a4, 
     a6, n] - S2[SP[a1, a2], SP[a3, a5], a6, a4, n] - 
    S2[SP[a1, a2], SP[a4, a6], a3, a5, n] - S2[SP[a1, a2], SP[a4, a6], a5, 
     a3, n] - S2[SP[a1, a2], SP[a5, a6], a3, a4, n] - 
    S2[SP[a1, a2], SP[a5, a6], a4, a3, n] + S2[SP[a1, a4], a6, a2, 
     SP[a3, a5], n] + S2[SP[a1, a4], a6, SP[a2, a5], a3, n] + 
    S2[SP[a1, a4], SP[a5, a6], a2, a3, n] + S2[a1, a2, a3, a4, SP[a5, a6], 
     n] + S2[a1, a2, a3, a5, SP[a4, a6], n] + S2[a1, a2, a3, SP[a4, a6], a5, 
     n] + S2[a1, a2, a3, SP[a5, a6], a4, n] + S2[a1, a2, a4, a3, SP[a5, a6], 
     n] + S2[a1, a2, a4, a6, SP[a3, a5], n] + S2[a1, a2, a4, SP[a3, a5], a6, 
     n] + S2[a1, a2, a4, SP[a5, a6], a3, n] + S2[a1, a2, a5, a3, SP[a4, a6], 
     n] + S2[a1, a2, a5, a6, SP[a3, a4], n] + S2[a1, a2, a5, SP[a3, a4], a6, 
     n] + S2[a1, a2, a5, SP[a4, a6], a3, n] + S2[a1, a2, a6, a4, SP[a3, a5], 
     n] + S2[a1, a2, a6, a5, SP[a3, a4], n] + S2[a1, a2, a6, SP[a3, a4], a5, 
     n] + S2[a1, a2, a6, SP[a3, a5], a4, n] + S2[a1, a2, SP[a3, a4], a5, a6, 
     n] + S2[a1, a2, SP[a3, a4], a6, a5, n] + S2[a1, a2, SP[a3, a5], a4, a6, 
     n] + S2[a1, a2, SP[a3, a5], a6, a4, n] + S2[a1, a2, SP[a4, a6], a3, a5, 
     n] + S2[a1, a2, SP[a4, a6], a5, a3, n] + S2[a1, a2, SP[a5, a6], a3, a4, 
     n] + S2[a1, a2, SP[a5, a6], a4, a3, n] + 
    S2[a6, n]*S2[a1, a3, a2, a4, a5, n] + S2[a1, a3, a2, a4, SP[a5, a6], n] + 
    S2[a6, n]*S2[a1, a3, a2, a5, a4, n] + S2[a1, a3, a2, a5, SP[a4, a6], n] + 
    S2[a1, a3, a2, SP[a4, a6], a5, n] + S2[a1, a3, a2, SP[a5, a6], a4, n] + 
    S2[a6, n]*S2[a1, a3, a4, a2, a5, n] + S2[a1, a3, a4, a2, SP[a5, a6], n] + 
    S2[a6, n]*S2[a1, a3, a4, a5, a2, n] - 
    S2[a2, n]*S2[a1, a3, a4, a5, a6, n] - 
    S2[a2, n]*S2[a1, a3, a4, a6, a5, n] - S2[a1, a3, a4, a6, SP[a2, a5], n] - 
    S2[a1, a3, a4, SP[a2, a5], a6, n] + S2[a1, a3, a4, SP[a5, a6], a2, n] + 
    S2[a6, n]*S2[a1, a3, a5, a2, a4, n] + S2[a1, a3, a5, a2, SP[a4, a6], n] + 
    S2[a6, n]*S2[a1, a3, a5, a4, a2, n] - 
    S2[a2, n]*S2[a1, a3, a5, a4, a6, n] - 
    S2[a2, n]*S2[a1, a3, a5, a6, a4, n] - S2[a1, a3, a5, a6, SP[a2, a4], n] - 
    S2[a1, a3, a5, SP[a2, a4], a6, n] + S2[a1, a3, a5, SP[a4, a6], a2, n] - 
    S2[a2, n]*S2[a1, a3, a6, a4, a5, n] - S2[a1, a3, a6, a4, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a3, a6, a5, a4, n] - S2[a1, a3, a6, a5, SP[a2, a4], n] - 
    S2[a1, a3, a6, SP[a2, a4], a5, n] - S2[a1, a3, a6, SP[a2, a5], a4, n] - 
    S2[a1, a3, SP[a2, a4], a5, a6, n] - S2[a1, a3, SP[a2, a4], a6, a5, n] - 
    S2[a1, a3, SP[a2, a5], a4, a6, n] - S2[a1, a3, SP[a2, a5], a6, a4, n] + 
    S2[a1, a3, SP[a4, a6], a2, a5, n] + S2[a1, a3, SP[a4, a6], a5, a2, n] + 
    S2[a1, a3, SP[a5, a6], a2, a4, n] + S2[a1, a3, SP[a5, a6], a4, a2, n] + 
    S2[a1, a4, a2, a3, SP[a5, a6], n] + S2[a1, a4, a2, a6, SP[a3, a5], n] + 
    S2[a1, a4, a2, SP[a3, a5], a6, n] + S2[a1, a4, a2, SP[a5, a6], a3, n] + 
    S2[a6, n]*S2[a1, a4, a3, a2, a5, n] + S2[a1, a4, a3, a2, SP[a5, a6], n] + 
    S2[a6, n]*S2[a1, a4, a3, a5, a2, n] - 
    S2[a2, n]*S2[a1, a4, a3, a5, a6, n] - 
    S2[a2, n]*S2[a1, a4, a3, a6, a5, n] - S2[a1, a4, a3, a6, SP[a2, a5], n] - 
    S2[a1, a4, a3, SP[a2, a5], a6, n] + S2[a1, a4, a3, SP[a5, a6], a2, n] + 
    S2[a6, n]*S2[a1, a4, a5, a3, a2, n] - 
    S2[a2, n]*S2[a1, a4, a5, a3, a6, n] - 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] - S2[a1, a4, a5, a6, SP[a2, a3], n] - 
    S2[a1, a4, a5, SP[a2, a3], a6, n] - S2[a1, a4, a5, SP[a2, a6], a3, n] + 
    S2[a1, a4, a5, SP[a3, a6], a2, n] + S2[a5, n]*S2[a1, a4, a6, a2, a3, n] - 
    S2[a2, n]*S2[a1, a4, a6, a3, a5, n] - S2[a1, a4, a6, a3, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a4, a6, a5, a3, n] - S2[a1, a4, a6, a5, SP[a2, a3], n] - 
    S2[a1, a4, a6, SP[a2, a3], a5, n] - S2[a1, a4, a6, SP[a2, a5], a3, n] - 
    S2[a1, a4, SP[a2, a3], a5, a6, n] - S2[a1, a4, SP[a2, a3], a6, a5, n] - 
    S2[a1, a4, SP[a2, a6], a3, a5, n] - S2[a1, a4, SP[a2, a6], a5, a3, n] + 
    S2[a1, a4, SP[a3, a6], a2, a5, n] + S2[a1, a4, SP[a3, a6], a5, a2, n] + 
    S2[a1, a4, SP[a5, a6], a3, a2, n] + S2[a1, a5, a2, a3, SP[a4, a6], n] + 
    S2[a1, a5, a2, a6, SP[a3, a4], n] + S2[a1, a5, a2, SP[a3, a4], a6, n] + 
    S2[a1, a5, a2, SP[a4, a6], a3, n] + S2[a6, n]*S2[a1, a5, a3, a2, a4, n] + 
    S2[a1, a5, a3, a2, SP[a4, a6], n] + S2[a6, n]*S2[a1, a5, a3, a4, a2, n] - 
    S2[a2, n]*S2[a1, a5, a3, a4, a6, n] - 
    S2[a2, n]*S2[a1, a5, a3, a6, a4, n] - S2[a1, a5, a3, a6, SP[a2, a4], n] - 
    S2[a1, a5, a3, SP[a2, a4], a6, n] + S2[a1, a5, a3, SP[a4, a6], a2, n] + 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] - 
    S2[a2, n]*S2[a1, a5, a4, a3, a6, n] - 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] - S2[a1, a5, a4, a6, SP[a2, a3], n] - 
    S2[a1, a5, a4, SP[a2, a3], a6, n] - S2[a1, a5, a4, SP[a2, a6], a3, n] + 
    S2[a1, a5, a4, SP[a3, a6], a2, n] + S2[a4, n]*S2[a1, a5, a6, a2, a3, n] + 
    S2[a1, a5, a6, a2, SP[a3, a4], n] - S2[a2, n]*S2[a1, a5, a6, a3, a4, n] - 
    S2[a1, a5, a6, a3, SP[a2, a4], n] - S2[a2, n]*S2[a1, a5, a6, a4, a3, n] - 
    S2[a1, a5, a6, a4, SP[a2, a3], n] - S2[a1, a5, a6, SP[a2, a3], a4, n] - 
    S2[a1, a5, SP[a2, a3], a4, a6, n] - S2[a1, a5, SP[a2, a3], a6, a4, n] - 
    S2[a1, a5, SP[a2, a6], a3, a4, n] - S2[a1, a5, SP[a2, a6], a4, a3, n] + 
    S2[a1, a5, SP[a3, a6], a2, a4, n] + S2[a1, a5, SP[a3, a6], a4, a2, n] + 
    S2[a1, a5, SP[a4, a6], a2, a3, n] + S2[a1, a5, SP[a4, a6], a3, a2, n] + 
    S2[a4, n]*S2[a1, a6, a2, a3, a5, n] + S2[a1, a6, a2, a3, SP[a4, a5], n] + 
    S2[a4, n]*S2[a1, a6, a2, a5, a3, n] + S2[a1, a6, a2, a5, SP[a3, a4], n] + 
    S2[a1, a6, a2, SP[a3, a4], a5, n] + S2[a1, a6, a2, SP[a4, a5], a3, n] - 
    S2[a2, n]*S2[a1, a6, a3, a4, a5, n] - S2[a1, a6, a3, a4, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a6, a3, a5, a4, n] - S2[a1, a6, a3, a5, SP[a2, a4], n] - 
    S2[a1, a6, a3, SP[a2, a4], a5, n] - S2[a1, a6, a3, SP[a2, a5], a4, n] - 
    S2[a2, n]*S2[a1, a6, a4, a3, a5, n] - S2[a1, a6, a4, a3, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a6, a4, a5, a3, n] - S2[a1, a6, a4, a5, SP[a2, a3], n] - 
    S2[a1, a6, a4, SP[a2, a3], a5, n] - S2[a1, a6, a4, SP[a2, a5], a3, n] + 
    S2[a4, n]*S2[a1, a6, a5, a2, a3, n] + S2[a1, a6, a5, a2, SP[a3, a4], n] - 
    S2[a2, n]*S2[a1, a6, a5, a3, a4, n] - S2[a1, a6, a5, a3, SP[a2, a4], n] - 
    S2[a2, n]*S2[a1, a6, a5, a4, a3, n] - S2[a1, a6, a5, a4, SP[a2, a3], n] - 
    S2[a1, a6, a5, SP[a2, a3], a4, n] - S2[a1, a6, SP[a2, a3], a4, a5, n] - 
    S2[a1, a6, SP[a2, a3], a5, a4, n] - S2[a1, a6, SP[a2, a5], a3, a4, n] - 
    S2[a1, a6, SP[a2, a5], a4, a3, n] + S2[a1, a6, SP[a4, a5], a2, a3, n] - 
    S2[a1, SP[a2, a3], a4, a5, a6, n] - S2[a1, SP[a2, a3], a4, a6, a5, n] - 
    S2[a1, SP[a2, a3], a5, a4, a6, n] - S2[a1, SP[a2, a3], a5, a6, a4, n] - 
    S2[a1, SP[a2, a3], a6, a4, a5, n] - S2[a1, SP[a2, a3], a6, a5, a4, n] - 
    S2[a1, SP[a2, a6], a3, a4, a5, n] - S2[a1, SP[a2, a6], a3, a5, a4, n] - 
    S2[a1, SP[a2, a6], a4, a3, a5, n] - S2[a1, SP[a2, a6], a4, a5, a3, n] - 
    S2[a1, SP[a2, a6], a5, a3, a4, n] - S2[a1, SP[a2, a6], a5, a4, a3, n] + 
    S2[a1, SP[a3, a6], a2, a4, a5, n] + S2[a1, SP[a3, a6], a2, a5, a4, n] + 
    S2[a1, SP[a3, a6], a4, a2, a5, n] + S2[a1, SP[a3, a6], a4, a5, a2, n] + 
    S2[a1, SP[a3, a6], a5, a2, a4, n] + S2[a1, SP[a3, a6], a5, a4, a2, n] + 
    S2[a1, SP[a4, a5], a6, a2, a3, n] + S2[a1, SP[a4, a6], a2, a3, a5, n] + 
    S2[a1, SP[a4, a6], a2, a5, a3, n] + S2[a1, SP[a4, a6], a3, a2, a5, n] + 
    S2[a1, SP[a4, a6], a3, a5, a2, n] + S2[a1, SP[a4, a6], a5, a2, a3, n] + 
    S2[a1, SP[a4, a6], a5, a3, a2, n] + S2[a1, SP[a5, a6], a3, a2, a4, n] + 
    S2[a1, SP[a5, a6], a3, a4, a2, n] + S2[a1, SP[a5, a6], a4, a3, a2, n] + 
    S2[a2, a1, a3, a4, SP[a5, a6], n] + S2[a2, a1, a3, a5, SP[a4, a6], n] + 
    S2[a2, a1, a3, SP[a4, a6], a5, n] + S2[a2, a1, a3, SP[a5, a6], a4, n] + 
    S2[a2, a1, a4, a3, SP[a5, a6], n] + S2[a2, a1, a4, a6, SP[a3, a5], n] + 
    S2[a2, a1, a4, SP[a3, a5], a6, n] + S2[a2, a1, a4, SP[a5, a6], a3, n] + 
    S2[a2, a1, a5, a3, SP[a4, a6], n] + S2[a2, a1, a5, a6, SP[a3, a4], n] + 
    S2[a2, a1, a5, SP[a3, a4], a6, n] + S2[a2, a1, a5, SP[a4, a6], a3, n] + 
    S2[a2, a1, a6, a4, SP[a3, a5], n] + S2[a2, a1, a6, a5, SP[a3, a4], n] + 
    S2[a2, a1, a6, SP[a3, a4], a5, n] + S2[a2, a1, a6, SP[a3, a5], a4, n] + 
    S2[a2, a1, SP[a3, a4], a5, a6, n] + S2[a2, a1, SP[a3, a4], a6, a5, n] + 
    S2[a2, a1, SP[a3, a5], a4, a6, n] + S2[a2, a1, SP[a3, a5], a6, a4, n] + 
    S2[a2, a1, SP[a4, a6], a3, a5, n] + S2[a2, a1, SP[a4, a6], a5, a3, n] + 
    S2[a2, a1, SP[a5, a6], a3, a4, n] + S2[a2, a1, SP[a5, a6], a4, a3, n] - 
    S2[a6, n]*S2[a2, a3, a1, a4, a5, n] - 
    S2[a6, n]*S2[a2, a3, a1, a5, a4, n] - 
    S2[a4, n]*S2[a2, a6, a1, a3, a5, n] - S2[a2, a6, a1, a3, SP[a4, a5], n] + 
    S2[a2, a6, a1, a4, SP[a3, a5], n] - S2[a4, n]*S2[a2, a6, a1, a5, a3, n] + 
    S2[a2, a6, a1, SP[a3, a5], a4, n] - S2[a2, a6, a1, SP[a4, a5], a3, n] + 
    S2[a2, a6, SP[a1, a3], a4, a5, n] + S2[a2, a6, SP[a1, a3], a5, a4, n] - 
    S2[a2, a6, SP[a1, a4], a3, a5, n] - S2[a2, a6, SP[a1, a4], a5, a3, n] + 
    S2[a2, SP[a1, a3], a4, a5, a6, n] + S2[a2, SP[a1, a3], a4, a6, a5, n] + 
    S2[a2, SP[a1, a3], a5, a4, a6, n] + S2[a2, SP[a1, a3], a5, a6, a4, n] + 
    S2[a2, SP[a1, a3], a6, a4, a5, n] + S2[a2, SP[a1, a3], a6, a5, a4, n] + 
    S2[a2, SP[a1, a6], a3, a4, a5, n] + S2[a2, SP[a1, a6], a3, a5, a4, n] + 
    S2[a2, SP[a1, a6], a4, a3, a5, n] + S2[a2, SP[a1, a6], a4, a5, a3, n] + 
    S2[a2, SP[a1, a6], a5, a3, a4, n] + S2[a2, SP[a1, a6], a5, a4, a3, n] - 
    S2[a2, SP[a3, a6], a1, a4, a5, n] - S2[a2, SP[a3, a6], a1, a5, a4, n] - 
    S2[a2, SP[a4, a6], a1, a3, a5, n] - S2[a2, SP[a4, a6], a1, a5, a3, n] - 
    S2[a4, a1, a6, a2, SP[a3, a5], n] - S2[a4, a1, a6, SP[a2, a5], a3, n] - 
    S2[a4, a1, SP[a5, a6], a2, a3, n] - S2[a4, a6, a1, a2, SP[a3, a5], n] + 
    S2[a2, n]*S2[a4, a6, a1, a3, a5, n] + S2[a4, a6, a1, a3, SP[a2, a5], n] + 
    S2[a2, n]*S2[a4, a6, a1, a5, a3, n] + S2[a4, a6, a1, a5, SP[a2, a3], n] + 
    S2[a4, a6, a1, SP[a2, a3], a5, n] - S2[a4, a6, a2, a1, SP[a3, a5], n] - 
    S2[a4, a6, a2, SP[a1, a3], a5, n] - S2[a4, SP[a1, a6], a2, a3, a5, n] - 
    S2[a4, SP[a1, a6], a2, a5, a3, n] - S2[a4, SP[a1, a6], a5, a2, a3, n] + 
    S2[a4, SP[a2, a6], a1, a3, a5, n] + S2[a4, SP[a2, a6], a1, a5, a3, n] - 
    S2[a4, n]*S2[a6, a1, a3, a2, a5, n] - S2[a6, a1, a3, a2, SP[a4, a5], n] - 
    S2[a4, n]*S2[a6, a1, a3, a5, a2, n] - S2[a6, a1, a3, a5, SP[a2, a4], n] - 
    S2[a6, a1, a3, SP[a2, a4], a5, n] - S2[a6, a1, a3, SP[a4, a5], a2, n] - 
    S2[a4, n]*S2[a6, a1, a5, a3, a2, n] - S2[a6, a1, a5, a3, SP[a2, a4], n] - 
    S2[a6, a1, a5, SP[a3, a4], a2, n] - S2[a6, a1, SP[a3, a4], a2, a5, n] - 
    S2[a6, a1, SP[a3, a4], a5, a2, n] - S2[a6, a1, SP[a4, a5], a3, a2, n] + 
    S2[a4, n]*S2[a6, a2, a3, a1, a5, n] + S2[a6, a2, a3, a1, SP[a4, a5], n] + 
    S2[a6, a2, a3, SP[a1, a4], a5, n] + S2[a6, a2, SP[a3, a4], a1, a5, n] + 
    S2[a2, n]*S2[a6, a4, a1, a3, a5, n] + S2[a6, a4, a1, a3, SP[a2, a5], n] + 
    S2[a2, n]*S2[a6, a4, a1, a5, a3, n] + S2[a6, a4, a1, a5, SP[a2, a3], n] + 
    S2[a6, a4, a1, SP[a2, a3], a5, n] + S2[a6, a4, a1, SP[a2, a5], a3, n] + 
    S2[a6, a4, SP[a1, a2], a3, a5, n] + S2[a6, a4, SP[a1, a2], a5, a3, n] - 
    S2[a6, SP[a1, a4], a3, a2, a5, n] - S2[a6, SP[a1, a4], a3, a5, a2, n] - 
    S2[a6, SP[a1, a4], a5, a3, a2, n] + S2[a6, SP[a2, a4], a1, a3, a5, n] + 
    S2[a6, SP[a2, a4], a1, a5, a3, n] + S2[a6, SP[a2, a4], a3, a1, a5, n] + 
    S2[SP[a1, a5], a4, a6, a2, a3, n] + S2[SP[a1, a6], a3, a2, a4, a5, n] + 
    S2[SP[a1, a6], a3, a2, a5, a4, n] + S2[SP[a1, a6], a3, a4, a2, a5, n] + 
    S2[SP[a1, a6], a3, a4, a5, a2, n] + S2[SP[a1, a6], a3, a5, a2, a4, n] + 
    S2[SP[a1, a6], a3, a5, a4, a2, n] + S2[SP[a1, a6], a4, a3, a2, a5, n] + 
    S2[SP[a1, a6], a4, a3, a5, a2, n] + S2[SP[a1, a6], a4, a5, a3, a2, n] + 
    S2[SP[a1, a6], a5, a3, a2, a4, n] + S2[SP[a1, a6], a5, a3, a4, a2, n] + 
    S2[SP[a1, a6], a5, a4, a3, a2, n] - S2[SP[a2, a6], a3, a1, a4, a5, n] - 
    S2[SP[a2, a6], a3, a1, a5, a4, n] + S2[SP[a2, a6], a4, a1, a3, a5, n] + 
    S2[SP[a2, a6], a4, a1, a5, a3, n] - S2[SP[a4, a6], a1, a3, a2, a5, n] - 
    S2[SP[a4, a6], a1, a3, a5, a2, n] - S2[SP[a4, a6], a1, a5, a3, a2, n] + 
    S2[SP[a4, a6], a2, a3, a1, a5, n] - S2[a6, a2, a3, a4, a1, a5, n] - 
    S2[a6, a2, a4, a1, a3, a5, n] - S2[a6, a2, a4, a1, a5, a3, n] - 
    S2[a6, a2, a4, a3, a1, a5, n] - S2[a6, a4, a1, a2, a3, a5, n] - 
    S2[a6, a4, a1, a2, a5, a3, n] - S2[a6, a4, a1, a5, a2, a3, n] - 
    S2[a6, a4, a2, a1, a3, a5, n] - S2[a6, a4, a2, a1, a5, a3, n] - 
    S2[a6, a4, a2, a3, a1, a5, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a5_, a1_, a4_, a6_, a3_, a2_, n_] :> 
  -(S2[a1, a4, a5, n]*S2[a2, a3, a6, n]) - S2[a1, a5, a4, n]*
     S2[a2, a3, a6, n] - S2[SP[a1, a2], SP[a3, a4], SP[a5, a6], n] - 
    S2[SP[a1, a2], SP[a3, a5], SP[a4, a6], n] + S2[a1, a2, SP[a3, a4], 
     SP[a5, a6], n] + S2[a1, a2, SP[a3, a5], SP[a4, a6], n] + 
    S2[a1, SP[a2, a4], a3, SP[a5, a6], n] + S2[a1, SP[a2, a4], SP[a3, a5], 
     a6, n] + S2[a1, SP[a2, a5], a3, SP[a4, a6], n] + 
    S2[a1, SP[a2, a5], SP[a3, a4], a6, n] + S2[a2, a1, SP[a3, a4], 
     SP[a5, a6], n] + S2[a2, a1, SP[a3, a5], SP[a4, a6], n] - 
    S2[a1, a5, n]*S2[a2, a6, a3, a4, n] - S2[a1, a5, n]*
     S2[a2, a6, a4, a3, n] + S2[a2, a6, SP[a1, a3], SP[a4, a5], n] + 
    S2[a2, a6, SP[a1, a4], SP[a3, a5], n] + S2[a2, SP[a1, a3], a4, 
     SP[a5, a6], n] + S2[a2, SP[a1, a3], a5, SP[a4, a6], n] + 
    S2[a2, SP[a1, a3], SP[a4, a6], a5, n] + S2[a2, SP[a1, a3], SP[a5, a6], 
     a4, n] + S2[a2, SP[a1, a6], a3, SP[a4, a5], n] + 
    S2[a2, SP[a1, a6], a4, SP[a3, a5], n] + S2[a2, SP[a1, a6], SP[a3, a5], 
     a4, n] + S2[a2, SP[a1, a6], SP[a4, a5], a3, n] + 
    S2[a1, a5, n]*S2[a4, a6, a2, a3, n] - S2[a4, a6, SP[a1, a2], SP[a3, a5], 
     n] - S2[a4, SP[a1, a6], a2, SP[a3, a5], n] - 
    S2[a4, SP[a1, a6], SP[a2, a5], a3, n] + S2[SP[a1, a2], a3, a4, 
     SP[a5, a6], n] + S2[SP[a1, a2], a3, a5, SP[a4, a6], n] + 
    S2[SP[a1, a2], a3, SP[a4, a6], a5, n] + S2[SP[a1, a2], a3, SP[a5, a6], 
     a4, n] + S2[SP[a1, a2], a4, a3, SP[a5, a6], n] + 
    S2[SP[a1, a2], a4, SP[a3, a5], a6, n] + S2[SP[a1, a2], a5, a3, 
     SP[a4, a6], n] + S2[SP[a1, a2], a5, SP[a3, a4], a6, n] + 
    S2[SP[a1, a2], a6, a3, SP[a4, a5], n] + S2[SP[a1, a2], a6, a4, 
     SP[a3, a5], n] + S2[SP[a1, a2], a6, SP[a3, a5], a4, n] + 
    S2[SP[a1, a2], a6, SP[a4, a5], a3, n] + S2[SP[a1, a2], SP[a3, a4], a5, 
     a6, n] + S2[SP[a1, a2], SP[a3, a4], a6, a5, n] + 
    S2[SP[a1, a2], SP[a3, a5], a4, a6, n] + S2[SP[a1, a2], SP[a3, a5], a6, 
     a4, n] + S2[SP[a1, a2], SP[a5, a6], a3, a4, n] + 
    S2[SP[a1, a2], SP[a5, a6], a4, a3, n] - S2[SP[a1, a4], a6, a2, 
     SP[a3, a5], n] - S2[SP[a1, a4], a6, SP[a2, a5], a3, n] - 
    S2[SP[a1, a4], SP[a5, a6], a2, a3, n] - S2[a1, a2, a3, a4, SP[a5, a6], 
     n] - S2[a1, a2, a3, a5, SP[a4, a6], n] - S2[a1, a2, a3, SP[a4, a6], a5, 
     n] - S2[a1, a2, a3, SP[a5, a6], a4, n] - S2[a1, a2, a4, a3, SP[a5, a6], 
     n] - S2[a1, a2, a4, SP[a3, a5], a6, n] - S2[a1, a2, a5, a3, SP[a4, a6], 
     n] - S2[a1, a2, a5, SP[a3, a4], a6, n] - S2[a1, a2, a6, a3, SP[a4, a5], 
     n] - S2[a1, a2, a6, a4, SP[a3, a5], n] - S2[a1, a2, a6, SP[a3, a5], a4, 
     n] - S2[a1, a2, a6, SP[a4, a5], a3, n] - S2[a1, a2, SP[a3, a4], a5, a6, 
     n] - S2[a1, a2, SP[a3, a4], a6, a5, n] - S2[a1, a2, SP[a3, a5], a4, a6, 
     n] - S2[a1, a2, SP[a3, a5], a6, a4, n] - S2[a1, a2, SP[a5, a6], a3, a4, 
     n] - S2[a1, a2, SP[a5, a6], a4, a3, n] - 
    S2[a6, n]*S2[a1, a3, a2, a4, a5, n] - S2[a1, a3, a2, a4, SP[a5, a6], n] - 
    S2[a6, n]*S2[a1, a3, a2, a5, a4, n] - S2[a1, a3, a2, a5, SP[a4, a6], n] - 
    S2[a1, a3, a2, SP[a4, a6], a5, n] - S2[a1, a3, a2, SP[a5, a6], a4, n] - 
    S2[a6, n]*S2[a1, a3, a4, a2, a5, n] - S2[a1, a3, a4, a2, SP[a5, a6], n] - 
    S2[a6, n]*S2[a1, a3, a4, a5, a2, n] + 
    S2[a2, n]*S2[a1, a3, a4, a5, a6, n] + 
    S2[a2, n]*S2[a1, a3, a4, a6, a5, n] + S2[a1, a3, a4, a6, SP[a2, a5], n] + 
    S2[a1, a3, a4, SP[a2, a5], a6, n] - S2[a1, a3, a4, SP[a5, a6], a2, n] - 
    S2[a6, n]*S2[a1, a3, a5, a2, a4, n] - S2[a1, a3, a5, a2, SP[a4, a6], n] - 
    S2[a6, n]*S2[a1, a3, a5, a4, a2, n] + 
    S2[a2, n]*S2[a1, a3, a5, a4, a6, n] + 
    S2[a2, n]*S2[a1, a3, a5, a6, a4, n] + S2[a1, a3, a5, a6, SP[a2, a4], n] + 
    S2[a1, a3, a5, SP[a2, a4], a6, n] - S2[a1, a3, a5, SP[a4, a6], a2, n] + 
    S2[a2, n]*S2[a1, a3, a6, a4, a5, n] + S2[a1, a3, a6, a4, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a3, a6, a5, a4, n] + S2[a1, a3, a6, a5, SP[a2, a4], n] + 
    S2[a1, a3, a6, SP[a2, a4], a5, n] + S2[a1, a3, a6, SP[a2, a5], a4, n] + 
    S2[a1, a3, SP[a2, a4], a5, a6, n] + S2[a1, a3, SP[a2, a4], a6, a5, n] + 
    S2[a1, a3, SP[a2, a5], a4, a6, n] + S2[a1, a3, SP[a2, a5], a6, a4, n] - 
    S2[a1, a3, SP[a4, a6], a2, a5, n] - S2[a1, a3, SP[a4, a6], a5, a2, n] - 
    S2[a1, a3, SP[a5, a6], a2, a4, n] - S2[a1, a3, SP[a5, a6], a4, a2, n] - 
    S2[a1, a4, a2, a3, SP[a5, a6], n] - S2[a1, a4, a2, SP[a3, a5], a6, n] - 
    S2[a6, n]*S2[a1, a4, a3, a2, a5, n] - S2[a1, a4, a3, a2, SP[a5, a6], n] - 
    S2[a6, n]*S2[a1, a4, a3, a5, a2, n] + 
    S2[a2, n]*S2[a1, a4, a3, a5, a6, n] + 
    S2[a2, n]*S2[a1, a4, a3, a6, a5, n] + S2[a1, a4, a3, a6, SP[a2, a5], n] + 
    S2[a1, a4, a3, SP[a2, a5], a6, n] - S2[a1, a4, a3, SP[a5, a6], a2, n] - 
    S2[a6, n]*S2[a1, a4, a5, a3, a2, n] + 
    S2[a2, n]*S2[a1, a4, a5, a3, a6, n] + S2[a1, a4, a5, SP[a2, a3], a6, n] - 
    S2[a1, a4, a5, SP[a3, a6], a2, n] + S2[a1, a4, a6, a2, SP[a3, a5], n] + 
    S2[a5, n]*S2[a1, a4, a6, a3, a2, n] + S2[a1, a4, a6, a3, SP[a2, a5], n] + 
    S2[a1, a4, a6, SP[a2, a5], a3, n] + S2[a1, a4, a6, SP[a3, a5], a2, n] + 
    S2[a1, a4, SP[a2, a3], a5, a6, n] + S2[a1, a4, SP[a2, a3], a6, a5, n] - 
    S2[a1, a4, SP[a3, a6], a2, a5, n] - S2[a1, a4, SP[a3, a6], a5, a2, n] + 
    S2[a1, a4, SP[a5, a6], a2, a3, n] - S2[a1, a5, a2, a3, SP[a4, a6], n] - 
    S2[a1, a5, a2, SP[a3, a4], a6, n] - S2[a6, n]*S2[a1, a5, a3, a2, a4, n] - 
    S2[a1, a5, a3, a2, SP[a4, a6], n] - S2[a6, n]*S2[a1, a5, a3, a4, a2, n] + 
    S2[a2, n]*S2[a1, a5, a3, a4, a6, n] + 
    S2[a2, n]*S2[a1, a5, a3, a6, a4, n] + S2[a1, a5, a3, a6, SP[a2, a4], n] + 
    S2[a1, a5, a3, SP[a2, a4], a6, n] - S2[a1, a5, a3, SP[a4, a6], a2, n] - 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] + 
    S2[a2, n]*S2[a1, a5, a4, a3, a6, n] + S2[a1, a5, a4, SP[a2, a3], a6, n] - 
    S2[a1, a5, a4, SP[a3, a6], a2, n] - S2[a4, n]*S2[a1, a5, a6, a2, a3, n] - 
    S2[a1, a5, a6, a2, SP[a3, a4], n] + S2[a2, n]*S2[a1, a5, a6, a3, a4, n] + 
    S2[a1, a5, a6, a3, SP[a2, a4], n] + S2[a2, n]*S2[a1, a5, a6, a4, a3, n] + 
    S2[a1, a5, a6, a4, SP[a2, a3], n] + S2[a1, a5, a6, SP[a2, a3], a4, n] + 
    S2[a1, a5, SP[a2, a3], a4, a6, n] + S2[a1, a5, SP[a2, a3], a6, a4, n] + 
    S2[a1, a5, SP[a2, a6], a3, a4, n] + S2[a1, a5, SP[a2, a6], a4, a3, n] - 
    S2[a1, a5, SP[a3, a6], a2, a4, n] - S2[a1, a5, SP[a3, a6], a4, a2, n] - 
    S2[a1, a5, SP[a4, a6], a2, a3, n] - S2[a1, a5, SP[a4, a6], a3, a2, n] - 
    S2[a4, n]*S2[a1, a6, a2, a3, a5, n] - S2[a1, a6, a2, a3, SP[a4, a5], n] - 
    S2[a4, n]*S2[a1, a6, a2, a5, a3, n] - S2[a1, a6, a2, a5, SP[a3, a4], n] - 
    S2[a1, a6, a2, SP[a3, a4], a5, n] - S2[a1, a6, a2, SP[a4, a5], a3, n] + 
    S2[a2, n]*S2[a1, a6, a3, a4, a5, n] + S2[a1, a6, a3, a4, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a6, a3, a5, a4, n] + S2[a1, a6, a3, a5, SP[a2, a4], n] + 
    S2[a1, a6, a3, SP[a2, a4], a5, n] + S2[a1, a6, a3, SP[a2, a5], a4, n] + 
    S2[a2, n]*S2[a1, a6, a4, a3, a5, n] + S2[a1, a6, a4, a3, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a6, a4, a5, a3, n] + S2[a1, a6, a4, a5, SP[a2, a3], n] + 
    S2[a1, a6, a4, SP[a2, a3], a5, n] + S2[a1, a6, a4, SP[a2, a5], a3, n] - 
    S2[a4, n]*S2[a1, a6, a5, a2, a3, n] - S2[a1, a6, a5, a2, SP[a3, a4], n] + 
    S2[a2, n]*S2[a1, a6, a5, a3, a4, n] + S2[a1, a6, a5, a3, SP[a2, a4], n] + 
    S2[a2, n]*S2[a1, a6, a5, a4, a3, n] + S2[a1, a6, a5, a4, SP[a2, a3], n] + 
    S2[a1, a6, a5, SP[a2, a3], a4, n] + S2[a1, a6, SP[a2, a3], a4, a5, n] + 
    S2[a1, a6, SP[a2, a3], a5, a4, n] + S2[a1, a6, SP[a2, a5], a3, a4, n] + 
    S2[a1, a6, SP[a2, a5], a4, a3, n] - S2[a1, a6, SP[a4, a5], a2, a3, n] + 
    S2[a1, SP[a2, a3], a4, a5, a6, n] + S2[a1, SP[a2, a3], a4, a6, a5, n] + 
    S2[a1, SP[a2, a3], a5, a4, a6, n] + S2[a1, SP[a2, a3], a5, a6, a4, n] + 
    S2[a1, SP[a2, a3], a6, a4, a5, n] + S2[a1, SP[a2, a3], a6, a5, a4, n] + 
    S2[a1, SP[a2, a6], a3, a4, a5, n] + S2[a1, SP[a2, a6], a3, a5, a4, n] + 
    S2[a1, SP[a2, a6], a4, a3, a5, n] + S2[a1, SP[a2, a6], a4, a5, a3, n] + 
    S2[a1, SP[a2, a6], a5, a3, a4, n] + S2[a1, SP[a2, a6], a5, a4, a3, n] - 
    S2[a1, SP[a3, a6], a2, a4, a5, n] - S2[a1, SP[a3, a6], a2, a5, a4, n] - 
    S2[a1, SP[a3, a6], a4, a2, a5, n] - S2[a1, SP[a3, a6], a4, a5, a2, n] - 
    S2[a1, SP[a3, a6], a5, a2, a4, n] - S2[a1, SP[a3, a6], a5, a4, a2, n] + 
    S2[a1, SP[a4, a5], a6, a3, a2, n] - S2[a1, SP[a4, a6], a2, a3, a5, n] - 
    S2[a1, SP[a4, a6], a2, a5, a3, n] - S2[a1, SP[a4, a6], a3, a2, a5, n] - 
    S2[a1, SP[a4, a6], a3, a5, a2, n] - S2[a1, SP[a4, a6], a5, a2, a3, n] - 
    S2[a1, SP[a4, a6], a5, a3, a2, n] - S2[a1, SP[a5, a6], a3, a2, a4, n] - 
    S2[a1, SP[a5, a6], a3, a4, a2, n] - S2[a1, SP[a5, a6], a4, a3, a2, n] - 
    S2[a2, a1, a3, a4, SP[a5, a6], n] - S2[a2, a1, a3, a5, SP[a4, a6], n] - 
    S2[a2, a1, a3, SP[a4, a6], a5, n] - S2[a2, a1, a3, SP[a5, a6], a4, n] - 
    S2[a2, a1, a4, a3, SP[a5, a6], n] - S2[a2, a1, a4, SP[a3, a5], a6, n] - 
    S2[a2, a1, a5, a3, SP[a4, a6], n] - S2[a2, a1, a5, SP[a3, a4], a6, n] - 
    S2[a2, a1, a6, a3, SP[a4, a5], n] - S2[a2, a1, a6, a4, SP[a3, a5], n] - 
    S2[a2, a1, a6, SP[a3, a5], a4, n] - S2[a2, a1, a6, SP[a4, a5], a3, n] - 
    S2[a2, a1, SP[a3, a4], a5, a6, n] - S2[a2, a1, SP[a3, a4], a6, a5, n] - 
    S2[a2, a1, SP[a3, a5], a4, a6, n] - S2[a2, a1, SP[a3, a5], a6, a4, n] - 
    S2[a2, a1, SP[a5, a6], a3, a4, n] - S2[a2, a1, SP[a5, a6], a4, a3, n] + 
    S2[a6, n]*S2[a2, a3, a1, a4, a5, n] + 
    S2[a6, n]*S2[a2, a3, a1, a5, a4, n] + 
    S2[a4, n]*S2[a2, a6, a1, a3, a5, n] - S2[a2, a6, a1, a4, SP[a3, a5], n] + 
    S2[a4, n]*S2[a2, a6, a1, a5, a3, n] + S2[a2, a6, a1, a5, SP[a3, a4], n] + 
    S2[a2, a6, a1, SP[a3, a4], a5, n] - S2[a2, a6, a1, SP[a3, a5], a4, n] - 
    S2[a2, a6, a3, a1, SP[a4, a5], n] - S2[a2, a6, a3, SP[a1, a4], a5, n] - 
    S2[a2, a6, a4, a1, SP[a3, a5], n] - S2[a2, a6, a4, SP[a1, a3], a5, n] - 
    S2[a2, a6, SP[a1, a3], a4, a5, n] - S2[a2, a6, SP[a1, a3], a5, a4, n] - 
    S2[a2, SP[a1, a3], a4, a5, a6, n] - S2[a2, SP[a1, a3], a4, a6, a5, n] - 
    S2[a2, SP[a1, a3], a5, a4, a6, n] - S2[a2, SP[a1, a3], a5, a6, a4, n] - 
    S2[a2, SP[a1, a3], a6, a4, a5, n] - S2[a2, SP[a1, a3], a6, a5, a4, n] - 
    S2[a2, SP[a1, a6], a3, a4, a5, n] - S2[a2, SP[a1, a6], a3, a5, a4, n] - 
    S2[a2, SP[a1, a6], a4, a3, a5, n] - S2[a2, SP[a1, a6], a4, a5, a3, n] - 
    S2[a2, SP[a1, a6], a5, a3, a4, n] - S2[a2, SP[a1, a6], a5, a4, a3, n] + 
    S2[a2, SP[a3, a6], a1, a4, a5, n] + S2[a2, SP[a3, a6], a1, a5, a4, n] + 
    S2[a2, SP[a4, a6], a1, a3, a5, n] + S2[a2, SP[a4, a6], a1, a5, a3, n] + 
    S2[a4, a1, a6, a2, SP[a3, a5], n] + S2[a4, a1, a6, SP[a2, a5], a3, n] + 
    S2[a4, a1, SP[a5, a6], a2, a3, n] + S2[a4, a6, a1, a2, SP[a3, a5], n] - 
    S2[a2, n]*S2[a4, a6, a1, a3, a5, n] - S2[a4, a6, a1, a3, SP[a2, a5], n] - 
    S2[a2, n]*S2[a4, a6, a1, a5, a3, n] - S2[a4, a6, a1, a5, SP[a2, a3], n] - 
    S2[a4, a6, a1, SP[a2, a3], a5, n] + S2[a4, a6, a2, a1, SP[a3, a5], n] + 
    S2[a4, a6, a2, SP[a1, a3], a5, n] + S2[a4, SP[a1, a6], a2, a3, a5, n] + 
    S2[a4, SP[a1, a6], a2, a5, a3, n] + S2[a4, SP[a1, a6], a5, a2, a3, n] - 
    S2[a4, SP[a2, a6], a1, a3, a5, n] - S2[a4, SP[a2, a6], a1, a5, a3, n] + 
    S2[a4, n]*S2[a6, a1, a3, a2, a5, n] + S2[a6, a1, a3, a2, SP[a4, a5], n] + 
    S2[a4, n]*S2[a6, a1, a3, a5, a2, n] + S2[a6, a1, a3, a5, SP[a2, a4], n] + 
    S2[a6, a1, a3, SP[a2, a4], a5, n] + S2[a6, a1, a3, SP[a4, a5], a2, n] + 
    S2[a4, n]*S2[a6, a1, a5, a3, a2, n] + S2[a6, a1, a5, a3, SP[a2, a4], n] + 
    S2[a6, a1, a5, SP[a3, a4], a2, n] + S2[a6, a1, SP[a3, a4], a2, a5, n] + 
    S2[a6, a1, SP[a3, a4], a5, a2, n] + S2[a6, a1, SP[a4, a5], a3, a2, n] - 
    S2[a4, n]*S2[a6, a2, a3, a1, a5, n] - S2[a6, a2, a3, a1, SP[a4, a5], n] - 
    S2[a6, a2, a3, SP[a1, a4], a5, n] - S2[a6, a2, SP[a3, a4], a1, a5, n] + 
    S2[a2, n]*S2[a6, a3, a4, a1, a5, n] + S2[a6, a3, a4, a1, SP[a2, a5], n] + 
    S2[a6, a3, a4, SP[a1, a2], a5, n] + S2[a6, a3, SP[a2, a4], a1, a5, n] + 
    S2[a2, n]*S2[a6, a4, a3, a1, a5, n] + S2[a6, a4, a3, a1, SP[a2, a5], n] + 
    S2[a6, a4, a3, SP[a1, a2], a5, n] + S2[a6, a4, SP[a2, a3], a1, a5, n] + 
    S2[a6, SP[a1, a4], a3, a2, a5, n] + S2[a6, SP[a1, a4], a3, a5, a2, n] + 
    S2[a6, SP[a1, a4], a5, a3, a2, n] + S2[a6, SP[a2, a3], a4, a1, a5, n] + 
    S2[SP[a1, a5], a4, a6, a3, a2, n] - S2[SP[a1, a6], a3, a2, a4, a5, n] - 
    S2[SP[a1, a6], a3, a2, a5, a4, n] - S2[SP[a1, a6], a3, a4, a2, a5, n] - 
    S2[SP[a1, a6], a3, a4, a5, a2, n] - S2[SP[a1, a6], a3, a5, a2, a4, n] - 
    S2[SP[a1, a6], a3, a5, a4, a2, n] - S2[SP[a1, a6], a4, a3, a2, a5, n] - 
    S2[SP[a1, a6], a4, a3, a5, a2, n] - S2[SP[a1, a6], a4, a5, a3, a2, n] - 
    S2[SP[a1, a6], a5, a3, a2, a4, n] - S2[SP[a1, a6], a5, a3, a4, a2, n] - 
    S2[SP[a1, a6], a5, a4, a3, a2, n] + S2[SP[a2, a6], a3, a1, a4, a5, n] + 
    S2[SP[a2, a6], a3, a1, a5, a4, n] + S2[SP[a2, a6], a3, a4, a1, a5, n] + 
    S2[SP[a2, a6], a4, a3, a1, a5, n] + S2[SP[a4, a6], a1, a3, a2, a5, n] + 
    S2[SP[a4, a6], a1, a3, a5, a2, n] + S2[SP[a4, a6], a1, a5, a3, a2, n] - 
    S2[SP[a4, a6], a2, a3, a1, a5, n] - S2[a6, a3, a2, a4, a1, a5, n] - 
    S2[a6, a3, a4, a1, a2, a5, n] - S2[a6, a3, a4, a1, a5, a2, n] - 
    S2[a6, a3, a4, a2, a1, a5, n] - S2[a6, a4, a1, a3, a2, a5, n] - 
    S2[a6, a4, a1, a3, a5, a2, n] - S2[a6, a4, a1, a5, a3, a2, n] - 
    S2[a6, a4, a3, a1, a2, a5, n] - S2[a6, a4, a3, a1, a5, a2, n] - 
    S2[a6, a4, a3, a2, a1, a5, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a5_, a1_, a6_, a2_, a3_, a4_, n_] :> 
  S2[a1, a5, n]*S2[a2, a3, a4, a6, n] + S2[a1, a5, n]*S2[a2, a3, a6, a4, n] - 
    S2[a2, a3, SP[a1, a4], SP[a5, a6], n] - S2[a2, a3, SP[a1, a6], 
     SP[a4, a5], n] + S2[a1, a5, n]*S2[a2, a6, a3, a4, n] - 
    S2[a2, a6, SP[a1, a3], SP[a4, a5], n] - S2[a2, SP[a1, a3], a4, 
     SP[a5, a6], n] - S2[a2, SP[a1, a3], a6, SP[a4, a5], n] - 
    S2[a2, SP[a1, a3], SP[a4, a5], a6, n] - S2[a2, SP[a1, a3], SP[a5, a6], 
     a4, n] - S2[a2, SP[a1, a6], a3, SP[a4, a5], n] - 
    S2[a2, SP[a1, a6], SP[a3, a5], a4, n] - S2[SP[a1, a2], a3, a4, 
     SP[a5, a6], n] - S2[SP[a1, a2], a3, a6, SP[a4, a5], n] - 
    S2[SP[a1, a2], a3, SP[a4, a5], a6, n] - S2[SP[a1, a2], a3, SP[a5, a6], 
     a4, n] - S2[SP[a1, a2], a6, a3, SP[a4, a5], n] - 
    S2[SP[a1, a2], a6, SP[a3, a5], a4, n] - S2[SP[a1, a2], SP[a3, a5], a4, 
     a6, n] - S2[SP[a1, a2], SP[a3, a5], a6, a4, n] - 
    S2[SP[a1, a2], SP[a5, a6], a3, a4, n] + S2[a1, a2, a3, a4, SP[a5, a6], 
     n] + S2[a1, a2, a3, a6, SP[a4, a5], n] + S2[a1, a2, a3, SP[a4, a5], a6, 
     n] + S2[a1, a2, a3, SP[a5, a6], a4, n] + S2[a1, a2, a6, a3, SP[a4, a5], 
     n] + S2[a1, a2, a6, SP[a3, a5], a4, n] + S2[a1, a2, SP[a3, a5], a4, a6, 
     n] + S2[a1, a2, SP[a3, a5], a6, a4, n] + S2[a1, a2, SP[a5, a6], a3, a4, 
     n] + S2[a6, n]*S2[a1, a3, a2, a4, a5, n] + S2[a1, a3, a2, a4, 
     SP[a5, a6], n] + S2[a6, n]*S2[a1, a3, a2, a5, a4, n] + 
    S2[a1, a3, a2, a5, SP[a4, a6], n] + S2[a1, a3, a2, SP[a4, a6], a5, n] + 
    S2[a1, a3, a2, SP[a5, a6], a4, n] + S2[a6, n]*S2[a1, a3, a4, a2, a5, n] + 
    S2[a1, a3, a4, a2, SP[a5, a6], n] + S2[a6, n]*S2[a1, a3, a4, a5, a2, n] - 
    S2[a2, n]*S2[a1, a3, a4, a5, a6, n] - 
    S2[a2, n]*S2[a1, a3, a4, a6, a5, n] - S2[a1, a3, a4, a6, SP[a2, a5], n] - 
    S2[a1, a3, a4, SP[a2, a5], a6, n] + S2[a1, a3, a4, SP[a5, a6], a2, n] + 
    S2[a6, n]*S2[a1, a3, a5, a2, a4, n] + S2[a1, a3, a5, a2, SP[a4, a6], n] + 
    S2[a6, n]*S2[a1, a3, a5, a4, a2, n] - 
    S2[a2, n]*S2[a1, a3, a5, a4, a6, n] - 
    S2[a2, n]*S2[a1, a3, a5, a6, a4, n] - S2[a1, a3, a5, a6, SP[a2, a4], n] - 
    S2[a1, a3, a5, SP[a2, a4], a6, n] + S2[a1, a3, a5, SP[a4, a6], a2, n] - 
    S2[a2, n]*S2[a1, a3, a6, a4, a5, n] - S2[a1, a3, a6, a4, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a3, a6, a5, a4, n] - S2[a1, a3, a6, a5, SP[a2, a4], n] - 
    S2[a1, a3, a6, SP[a2, a4], a5, n] - S2[a1, a3, a6, SP[a2, a5], a4, n] - 
    S2[a1, a3, SP[a2, a4], a5, a6, n] - S2[a1, a3, SP[a2, a4], a6, a5, n] - 
    S2[a1, a3, SP[a2, a5], a4, a6, n] - S2[a1, a3, SP[a2, a5], a6, a4, n] + 
    S2[a1, a3, SP[a4, a6], a2, a5, n] + S2[a1, a3, SP[a4, a6], a5, a2, n] + 
    S2[a1, a3, SP[a5, a6], a2, a4, n] + S2[a1, a3, SP[a5, a6], a4, a2, n] + 
    S2[a6, n]*S2[a1, a5, a3, a2, a4, n] + S2[a1, a5, a3, a2, SP[a4, a6], n] + 
    S2[a6, n]*S2[a1, a5, a3, a4, a2, n] - 
    S2[a2, n]*S2[a1, a5, a3, a4, a6, n] - 
    S2[a2, n]*S2[a1, a5, a3, a6, a4, n] - S2[a1, a5, a3, a6, SP[a2, a4], n] - 
    S2[a1, a5, a3, SP[a2, a4], a6, n] + S2[a1, a5, a3, SP[a4, a6], a2, n] - 
    S2[a2, n]*S2[a1, a5, a6, a3, a4, n] - S2[a1, a5, a6, a3, SP[a2, a4], n] - 
    S2[a1, a5, a6, SP[a2, a3], a4, n] - S2[a1, a5, SP[a2, a3], a4, a6, n] - 
    S2[a1, a5, SP[a2, a3], a6, a4, n] - S2[a1, a5, SP[a2, a6], a3, a4, n] + 
    S2[a1, a5, SP[a3, a6], a2, a4, n] + S2[a1, a5, SP[a3, a6], a4, a2, n] + 
    S2[a5, n]*S2[a1, a6, a2, a3, a4, n] + S2[a1, a6, a2, a3, SP[a4, a5], n] + 
    S2[a1, a6, a2, SP[a3, a5], a4, n] - S2[a2, n]*S2[a1, a6, a3, a4, a5, n] - 
    S2[a1, a6, a3, a4, SP[a2, a5], n] - S2[a2, n]*S2[a1, a6, a3, a5, a4, n] - 
    S2[a1, a6, a3, a5, SP[a2, a4], n] - S2[a1, a6, a3, SP[a2, a4], a5, n] - 
    S2[a1, a6, a3, SP[a2, a5], a4, n] - S2[a2, n]*S2[a1, a6, a5, a3, a4, n] - 
    S2[a1, a6, a5, a3, SP[a2, a4], n] - S2[a1, a6, a5, SP[a2, a3], a4, n] - 
    S2[a1, a6, SP[a2, a3], a4, a5, n] - S2[a1, a6, SP[a2, a3], a5, a4, n] - 
    S2[a1, SP[a2, a3], a4, a5, a6, n] - S2[a1, SP[a2, a3], a4, a6, a5, n] - 
    S2[a1, SP[a2, a3], a5, a4, a6, n] - S2[a1, SP[a2, a3], a5, a6, a4, n] - 
    S2[a1, SP[a2, a3], a6, a4, a5, n] - S2[a1, SP[a2, a3], a6, a5, a4, n] - 
    S2[a1, SP[a2, a6], a3, a4, a5, n] - S2[a1, SP[a2, a6], a3, a5, a4, n] - 
    S2[a1, SP[a2, a6], a5, a3, a4, n] + S2[a1, SP[a3, a6], a2, a4, a5, n] + 
    S2[a1, SP[a3, a6], a2, a5, a4, n] + S2[a1, SP[a3, a6], a4, a2, a5, n] + 
    S2[a1, SP[a3, a6], a4, a5, a2, n] + S2[a1, SP[a3, a6], a5, a2, a4, n] + 
    S2[a1, SP[a3, a6], a5, a4, a2, n] + S2[a1, SP[a5, a6], a2, a3, a4, n] + 
    S2[a1, SP[a5, a6], a3, a2, a4, n] + S2[a1, SP[a5, a6], a3, a4, a2, n] + 
    S2[a2, a1, a3, a4, SP[a5, a6], n] + S2[a2, a1, a3, a6, SP[a4, a5], n] + 
    S2[a2, a1, a3, SP[a4, a5], a6, n] + S2[a2, a1, a3, SP[a5, a6], a4, n] + 
    S2[a2, a1, a6, a3, SP[a4, a5], n] + S2[a2, a1, a6, SP[a3, a5], a4, n] + 
    S2[a2, a1, SP[a3, a5], a4, a6, n] + S2[a2, a1, SP[a3, a5], a6, a4, n] + 
    S2[a2, a1, SP[a5, a6], a3, a4, n] - S2[a6, n]*S2[a2, a3, a1, a4, a5, n] - 
    S2[a6, n]*S2[a2, a3, a1, a5, a4, n] - S2[a2, a3, a1, a5, SP[a4, a6], n] + 
    S2[a2, a3, a1, a6, SP[a4, a5], n] + S2[a2, a3, a1, SP[a4, a5], a6, n] - 
    S2[a2, a3, a1, SP[a4, a6], a5, n] - S2[a6, n]*S2[a2, a3, a4, a1, a5, n] + 
    S2[a2, a3, a6, a1, SP[a4, a5], n] + S2[a2, a3, a6, SP[a1, a4], a5, n] + 
    S2[a2, a3, SP[a1, a4], a5, a6, n] + S2[a2, a3, SP[a1, a4], a6, a5, n] - 
    S2[a2, a3, SP[a4, a6], a1, a5, n] + S2[a2, a6, a1, a3, SP[a4, a5], n] + 
    S2[a2, a6, a1, SP[a3, a5], a4, n] + S2[a2, a6, a3, a1, SP[a4, a5], n] + 
    S2[a2, a6, a3, SP[a1, a4], a5, n] + S2[a2, a6, SP[a1, a3], a4, a5, n] + 
    S2[a2, a6, SP[a1, a3], a5, a4, n] + S2[a2, SP[a1, a3], a4, a5, a6, n] + 
    S2[a2, SP[a1, a3], a4, a6, a5, n] + S2[a2, SP[a1, a3], a5, a4, a6, n] + 
    S2[a2, SP[a1, a3], a5, a6, a4, n] + S2[a2, SP[a1, a3], a6, a4, a5, n] + 
    S2[a2, SP[a1, a3], a6, a5, a4, n] + S2[a2, SP[a1, a6], a3, a4, a5, n] + 
    S2[a2, SP[a1, a6], a3, a5, a4, n] + S2[a2, SP[a1, a6], a5, a3, a4, n] - 
    S2[a2, SP[a3, a6], a1, a4, a5, n] - S2[a2, SP[a3, a6], a1, a5, a4, n] - 
    S2[a2, SP[a3, a6], a4, a1, a5, n] - S2[a2, n]*S2[a6, a1, a3, a4, a5, n] - 
    S2[a6, a1, a3, a4, SP[a2, a5], n] - S2[a2, n]*S2[a6, a1, a3, a5, a4, n] - 
    S2[a6, a1, a3, a5, SP[a2, a4], n] - S2[a6, a1, a3, SP[a2, a4], a5, n] - 
    S2[a6, a1, a3, SP[a2, a5], a4, n] - S2[a2, n]*S2[a6, a1, a5, a3, a4, n] - 
    S2[a6, a1, a5, a3, SP[a2, a4], n] - S2[a6, a1, a5, SP[a2, a3], a4, n] - 
    S2[a6, a1, SP[a2, a3], a4, a5, n] - S2[a6, a1, SP[a2, a3], a5, a4, n] - 
    S2[a6, a1, SP[a2, a5], a3, a4, n] - S2[a6, SP[a1, a2], a3, a4, a5, n] - 
    S2[a6, SP[a1, a2], a3, a5, a4, n] - S2[a6, SP[a1, a2], a5, a3, a4, n] + 
    S2[SP[a1, a5], a6, a2, a3, a4, n] + S2[SP[a1, a6], a3, a2, a4, a5, n] + 
    S2[SP[a1, a6], a3, a2, a5, a4, n] + S2[SP[a1, a6], a3, a4, a2, a5, n] + 
    S2[SP[a1, a6], a3, a4, a5, a2, n] + S2[SP[a1, a6], a3, a5, a2, a4, n] + 
    S2[SP[a1, a6], a3, a5, a4, a2, n] + S2[SP[a1, a6], a5, a3, a2, a4, n] + 
    S2[SP[a1, a6], a5, a3, a4, a2, n] - S2[SP[a2, a6], a1, a3, a4, a5, n] - 
    S2[SP[a2, a6], a1, a3, a5, a4, n] - S2[SP[a2, a6], a1, a5, a3, a4, n] - 
    S2[SP[a2, a6], a3, a1, a4, a5, n] - S2[SP[a2, a6], a3, a1, a5, a4, n] - 
    S2[SP[a2, a6], a3, a4, a1, a5, n] + S2[a6, a1, a2, a3, a4, a5, n] + 
    S2[a6, a1, a2, a3, a5, a4, n] + S2[a6, a1, a2, a5, a3, a4, n] + 
    S2[a6, a1, a5, a2, a3, a4, n] + S2[a6, a2, a1, a3, a4, a5, n] + 
    S2[a6, a2, a1, a3, a5, a4, n] + S2[a6, a2, a1, a5, a3, a4, n] + 
    S2[a6, a2, a3, a1, a4, a5, n] + S2[a6, a2, a3, a1, a5, a4, n] + 
    S2[a6, a2, a3, a4, a1, a5, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a5_, a1_, a6_, a2_, a4_, a3_, n_] :> 
  S2[a1, a5, n]*S2[a2, a4, a3, a6, n] + S2[a1, a5, n]*S2[a2, a4, a6, a3, n] - 
    S2[a2, a4, SP[a1, a3], SP[a5, a6], n] - S2[a2, a4, SP[a1, a6], 
     SP[a3, a5], n] + S2[a1, a5, n]*S2[a2, a6, a4, a3, n] - 
    S2[a2, a6, SP[a1, a4], SP[a3, a5], n] - S2[a2, SP[a1, a4], a3, 
     SP[a5, a6], n] - S2[a2, SP[a1, a4], a6, SP[a3, a5], n] - 
    S2[a2, SP[a1, a4], SP[a3, a5], a6, n] - S2[a2, SP[a1, a4], SP[a5, a6], 
     a3, n] - S2[a2, SP[a1, a6], a4, SP[a3, a5], n] - 
    S2[a2, SP[a1, a6], SP[a4, a5], a3, n] - S2[SP[a1, a2], a4, a3, 
     SP[a5, a6], n] - S2[SP[a1, a2], a4, a6, SP[a3, a5], n] - 
    S2[SP[a1, a2], a4, SP[a3, a5], a6, n] - S2[SP[a1, a2], a4, SP[a5, a6], 
     a3, n] - S2[SP[a1, a2], a6, a4, SP[a3, a5], n] - 
    S2[SP[a1, a2], a6, SP[a4, a5], a3, n] - S2[SP[a1, a2], SP[a4, a5], a3, 
     a6, n] - S2[SP[a1, a2], SP[a4, a5], a6, a3, n] - 
    S2[SP[a1, a2], SP[a5, a6], a4, a3, n] + S2[a1, a2, a4, a3, SP[a5, a6], 
     n] + S2[a1, a2, a4, a6, SP[a3, a5], n] + S2[a1, a2, a4, SP[a3, a5], a6, 
     n] + S2[a1, a2, a4, SP[a5, a6], a3, n] + S2[a1, a2, a6, a4, SP[a3, a5], 
     n] + S2[a1, a2, a6, SP[a4, a5], a3, n] + S2[a1, a2, SP[a4, a5], a3, a6, 
     n] + S2[a1, a2, SP[a4, a5], a6, a3, n] + S2[a1, a2, SP[a5, a6], a4, a3, 
     n] + S2[a6, n]*S2[a1, a4, a2, a3, a5, n] + S2[a1, a4, a2, a3, 
     SP[a5, a6], n] + S2[a6, n]*S2[a1, a4, a2, a5, a3, n] + 
    S2[a1, a4, a2, a5, SP[a3, a6], n] + S2[a1, a4, a2, SP[a3, a6], a5, n] + 
    S2[a1, a4, a2, SP[a5, a6], a3, n] + S2[a6, n]*S2[a1, a4, a3, a2, a5, n] + 
    S2[a1, a4, a3, a2, SP[a5, a6], n] + S2[a6, n]*S2[a1, a4, a3, a5, a2, n] - 
    S2[a2, n]*S2[a1, a4, a3, a5, a6, n] - 
    S2[a2, n]*S2[a1, a4, a3, a6, a5, n] - S2[a1, a4, a3, a6, SP[a2, a5], n] - 
    S2[a1, a4, a3, SP[a2, a5], a6, n] + S2[a1, a4, a3, SP[a5, a6], a2, n] + 
    S2[a6, n]*S2[a1, a4, a5, a2, a3, n] + S2[a1, a4, a5, a2, SP[a3, a6], n] + 
    S2[a6, n]*S2[a1, a4, a5, a3, a2, n] - 
    S2[a2, n]*S2[a1, a4, a5, a3, a6, n] - 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] - S2[a1, a4, a5, a6, SP[a2, a3], n] - 
    S2[a1, a4, a5, SP[a2, a3], a6, n] + S2[a1, a4, a5, SP[a3, a6], a2, n] - 
    S2[a2, n]*S2[a1, a4, a6, a3, a5, n] - S2[a1, a4, a6, a3, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a4, a6, a5, a3, n] - S2[a1, a4, a6, a5, SP[a2, a3], n] - 
    S2[a1, a4, a6, SP[a2, a3], a5, n] - S2[a1, a4, a6, SP[a2, a5], a3, n] - 
    S2[a1, a4, SP[a2, a3], a5, a6, n] - S2[a1, a4, SP[a2, a3], a6, a5, n] - 
    S2[a1, a4, SP[a2, a5], a3, a6, n] - S2[a1, a4, SP[a2, a5], a6, a3, n] + 
    S2[a1, a4, SP[a3, a6], a2, a5, n] + S2[a1, a4, SP[a3, a6], a5, a2, n] + 
    S2[a1, a4, SP[a5, a6], a2, a3, n] + S2[a1, a4, SP[a5, a6], a3, a2, n] + 
    S2[a6, n]*S2[a1, a5, a4, a2, a3, n] + S2[a1, a5, a4, a2, SP[a3, a6], n] + 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] - 
    S2[a2, n]*S2[a1, a5, a4, a3, a6, n] - 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] - S2[a1, a5, a4, a6, SP[a2, a3], n] - 
    S2[a1, a5, a4, SP[a2, a3], a6, n] + S2[a1, a5, a4, SP[a3, a6], a2, n] - 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] - S2[a1, a5, a6, a4, SP[a2, a3], n] - 
    S2[a1, a5, a6, SP[a2, a4], a3, n] - S2[a1, a5, SP[a2, a4], a3, a6, n] - 
    S2[a1, a5, SP[a2, a4], a6, a3, n] - S2[a1, a5, SP[a2, a6], a4, a3, n] + 
    S2[a1, a5, SP[a4, a6], a2, a3, n] + S2[a1, a5, SP[a4, a6], a3, a2, n] + 
    S2[a5, n]*S2[a1, a6, a2, a4, a3, n] + S2[a1, a6, a2, a4, SP[a3, a5], n] + 
    S2[a1, a6, a2, SP[a4, a5], a3, n] - S2[a2, n]*S2[a1, a6, a4, a3, a5, n] - 
    S2[a1, a6, a4, a3, SP[a2, a5], n] - S2[a2, n]*S2[a1, a6, a4, a5, a3, n] - 
    S2[a1, a6, a4, a5, SP[a2, a3], n] - S2[a1, a6, a4, SP[a2, a3], a5, n] - 
    S2[a1, a6, a4, SP[a2, a5], a3, n] - S2[a2, n]*S2[a1, a6, a5, a4, a3, n] - 
    S2[a1, a6, a5, a4, SP[a2, a3], n] - S2[a1, a6, a5, SP[a2, a4], a3, n] - 
    S2[a1, a6, SP[a2, a4], a3, a5, n] - S2[a1, a6, SP[a2, a4], a5, a3, n] - 
    S2[a1, SP[a2, a4], a3, a5, a6, n] - S2[a1, SP[a2, a4], a3, a6, a5, n] - 
    S2[a1, SP[a2, a4], a5, a3, a6, n] - S2[a1, SP[a2, a4], a5, a6, a3, n] - 
    S2[a1, SP[a2, a4], a6, a3, a5, n] - S2[a1, SP[a2, a4], a6, a5, a3, n] - 
    S2[a1, SP[a2, a6], a4, a3, a5, n] - S2[a1, SP[a2, a6], a4, a5, a3, n] - 
    S2[a1, SP[a2, a6], a5, a4, a3, n] + S2[a1, SP[a4, a6], a2, a3, a5, n] + 
    S2[a1, SP[a4, a6], a2, a5, a3, n] + S2[a1, SP[a4, a6], a3, a2, a5, n] + 
    S2[a1, SP[a4, a6], a3, a5, a2, n] + S2[a1, SP[a4, a6], a5, a2, a3, n] + 
    S2[a1, SP[a4, a6], a5, a3, a2, n] + S2[a1, SP[a5, a6], a2, a4, a3, n] + 
    S2[a1, SP[a5, a6], a4, a2, a3, n] + S2[a1, SP[a5, a6], a4, a3, a2, n] + 
    S2[a2, a1, a4, a3, SP[a5, a6], n] + S2[a2, a1, a4, a6, SP[a3, a5], n] + 
    S2[a2, a1, a4, SP[a3, a5], a6, n] + S2[a2, a1, a4, SP[a5, a6], a3, n] + 
    S2[a2, a1, a6, a4, SP[a3, a5], n] + S2[a2, a1, a6, SP[a4, a5], a3, n] + 
    S2[a2, a1, SP[a4, a5], a3, a6, n] + S2[a2, a1, SP[a4, a5], a6, a3, n] + 
    S2[a2, a1, SP[a5, a6], a4, a3, n] - S2[a6, n]*S2[a2, a4, a1, a3, a5, n] - 
    S2[a6, n]*S2[a2, a4, a1, a5, a3, n] - S2[a2, a4, a1, a5, SP[a3, a6], n] + 
    S2[a2, a4, a1, a6, SP[a3, a5], n] + S2[a2, a4, a1, SP[a3, a5], a6, n] - 
    S2[a2, a4, a1, SP[a3, a6], a5, n] - S2[a6, n]*S2[a2, a4, a3, a1, a5, n] + 
    S2[a2, a4, a6, a1, SP[a3, a5], n] + S2[a2, a4, a6, SP[a1, a3], a5, n] + 
    S2[a2, a4, SP[a1, a3], a5, a6, n] + S2[a2, a4, SP[a1, a3], a6, a5, n] - 
    S2[a2, a4, SP[a3, a6], a1, a5, n] + S2[a2, a6, a1, a4, SP[a3, a5], n] + 
    S2[a2, a6, a1, SP[a4, a5], a3, n] + S2[a2, a6, a4, a1, SP[a3, a5], n] + 
    S2[a2, a6, a4, SP[a1, a3], a5, n] + S2[a2, a6, SP[a1, a4], a3, a5, n] + 
    S2[a2, a6, SP[a1, a4], a5, a3, n] + S2[a2, SP[a1, a4], a3, a5, a6, n] + 
    S2[a2, SP[a1, a4], a3, a6, a5, n] + S2[a2, SP[a1, a4], a5, a3, a6, n] + 
    S2[a2, SP[a1, a4], a5, a6, a3, n] + S2[a2, SP[a1, a4], a6, a3, a5, n] + 
    S2[a2, SP[a1, a4], a6, a5, a3, n] + S2[a2, SP[a1, a6], a4, a3, a5, n] + 
    S2[a2, SP[a1, a6], a4, a5, a3, n] + S2[a2, SP[a1, a6], a5, a4, a3, n] - 
    S2[a2, SP[a4, a6], a1, a3, a5, n] - S2[a2, SP[a4, a6], a1, a5, a3, n] - 
    S2[a2, SP[a4, a6], a3, a1, a5, n] - S2[a2, n]*S2[a6, a1, a4, a3, a5, n] - 
    S2[a6, a1, a4, a3, SP[a2, a5], n] - S2[a2, n]*S2[a6, a1, a4, a5, a3, n] - 
    S2[a6, a1, a4, a5, SP[a2, a3], n] - S2[a6, a1, a4, SP[a2, a3], a5, n] - 
    S2[a6, a1, a4, SP[a2, a5], a3, n] - S2[a2, n]*S2[a6, a1, a5, a4, a3, n] - 
    S2[a6, a1, a5, a4, SP[a2, a3], n] - S2[a6, a1, a5, SP[a2, a4], a3, n] - 
    S2[a6, a1, SP[a2, a4], a3, a5, n] - S2[a6, a1, SP[a2, a4], a5, a3, n] - 
    S2[a6, a1, SP[a2, a5], a4, a3, n] - S2[a6, SP[a1, a2], a4, a3, a5, n] - 
    S2[a6, SP[a1, a2], a4, a5, a3, n] - S2[a6, SP[a1, a2], a5, a4, a3, n] + 
    S2[SP[a1, a5], a6, a2, a4, a3, n] + S2[SP[a1, a6], a4, a2, a3, a5, n] + 
    S2[SP[a1, a6], a4, a2, a5, a3, n] + S2[SP[a1, a6], a4, a3, a2, a5, n] + 
    S2[SP[a1, a6], a4, a3, a5, a2, n] + S2[SP[a1, a6], a4, a5, a2, a3, n] + 
    S2[SP[a1, a6], a4, a5, a3, a2, n] + S2[SP[a1, a6], a5, a4, a2, a3, n] + 
    S2[SP[a1, a6], a5, a4, a3, a2, n] - S2[SP[a2, a6], a1, a4, a3, a5, n] - 
    S2[SP[a2, a6], a1, a4, a5, a3, n] - S2[SP[a2, a6], a1, a5, a4, a3, n] - 
    S2[SP[a2, a6], a4, a1, a3, a5, n] - S2[SP[a2, a6], a4, a1, a5, a3, n] - 
    S2[SP[a2, a6], a4, a3, a1, a5, n] + S2[a6, a1, a2, a4, a3, a5, n] + 
    S2[a6, a1, a2, a4, a5, a3, n] + S2[a6, a1, a2, a5, a4, a3, n] + 
    S2[a6, a1, a5, a2, a4, a3, n] + S2[a6, a2, a1, a4, a3, a5, n] + 
    S2[a6, a2, a1, a4, a5, a3, n] + S2[a6, a2, a1, a5, a4, a3, n] + 
    S2[a6, a2, a4, a1, a3, a5, n] + S2[a6, a2, a4, a1, a5, a3, n] + 
    S2[a6, a2, a4, a3, a1, a5, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a5_, a1_, a6_, a3_, a2_, a4_, n_] :> 
  -(S2[a1, a5, n]*S2[a2, a3, a4, a6, n]) - S2[a1, a5, n]*
     S2[a2, a3, a6, a4, n] + S2[a2, a3, SP[a1, a4], SP[a5, a6], n] + 
    S2[a2, a3, SP[a1, a6], SP[a4, a5], n] - S2[a1, a5, n]*
     S2[a2, a4, a3, a6, n] - S2[a1, a5, n]*S2[a2, a4, a6, a3, n] + 
    S2[a2, a4, SP[a1, a3], SP[a5, a6], n] + S2[a2, a4, SP[a1, a6], 
     SP[a3, a5], n] - S2[a1, a5, n]*S2[a2, a6, a3, a4, n] - 
    S2[a1, a5, n]*S2[a2, a6, a4, a3, n] + S2[a2, a6, SP[a1, a3], SP[a4, a5], 
     n] + S2[a2, a6, SP[a1, a4], SP[a3, a5], n] + S2[a2, SP[a1, a3], a4, 
     SP[a5, a6], n] + S2[a2, SP[a1, a3], a6, SP[a4, a5], n] + 
    S2[a2, SP[a1, a3], SP[a4, a5], a6, n] + S2[a2, SP[a1, a3], SP[a5, a6], 
     a4, n] + S2[a2, SP[a1, a4], a3, SP[a5, a6], n] + 
    S2[a2, SP[a1, a4], a6, SP[a3, a5], n] + S2[a2, SP[a1, a4], SP[a3, a5], 
     a6, n] + S2[a2, SP[a1, a4], SP[a5, a6], a3, n] + 
    S2[a2, SP[a1, a6], a3, SP[a4, a5], n] + S2[a2, SP[a1, a6], a4, 
     SP[a3, a5], n] + S2[a2, SP[a1, a6], SP[a3, a5], a4, n] + 
    S2[a2, SP[a1, a6], SP[a4, a5], a3, n] + S2[a1, a5, n]*
     S2[a3, a6, a2, a4, n] - S2[a3, a6, SP[a1, a2], SP[a4, a5], n] - 
    S2[a3, SP[a1, a6], a2, SP[a4, a5], n] - S2[a3, SP[a1, a6], SP[a2, a5], 
     a4, n] + S2[SP[a1, a2], a3, a4, SP[a5, a6], n] + 
    S2[SP[a1, a2], a3, a6, SP[a4, a5], n] + S2[SP[a1, a2], a3, SP[a4, a5], 
     a6, n] + S2[SP[a1, a2], a3, SP[a5, a6], a4, n] + 
    S2[SP[a1, a2], a4, a3, SP[a5, a6], n] + S2[SP[a1, a2], a4, a6, 
     SP[a3, a5], n] + S2[SP[a1, a2], a4, SP[a3, a5], a6, n] + 
    S2[SP[a1, a2], a4, SP[a5, a6], a3, n] + S2[SP[a1, a2], a6, a3, 
     SP[a4, a5], n] + S2[SP[a1, a2], a6, a4, SP[a3, a5], n] + 
    S2[SP[a1, a2], a6, SP[a3, a5], a4, n] + S2[SP[a1, a2], a6, SP[a4, a5], 
     a3, n] + S2[SP[a1, a2], SP[a3, a5], a4, a6, n] + 
    S2[SP[a1, a2], SP[a3, a5], a6, a4, n] + S2[SP[a1, a2], SP[a4, a5], a3, 
     a6, n] + S2[SP[a1, a2], SP[a4, a5], a6, a3, n] + 
    S2[SP[a1, a2], SP[a5, a6], a3, a4, n] + S2[SP[a1, a2], SP[a5, a6], a4, 
     a3, n] - S2[SP[a1, a3], a6, a2, SP[a4, a5], n] - 
    S2[SP[a1, a3], a6, SP[a2, a5], a4, n] - S2[SP[a1, a3], SP[a5, a6], a2, 
     a4, n] - S2[a1, a2, a3, a4, SP[a5, a6], n] - 
    S2[a1, a2, a3, a6, SP[a4, a5], n] - S2[a1, a2, a3, SP[a4, a5], a6, n] - 
    S2[a1, a2, a3, SP[a5, a6], a4, n] - S2[a1, a2, a4, a3, SP[a5, a6], n] - 
    S2[a1, a2, a4, a6, SP[a3, a5], n] - S2[a1, a2, a4, SP[a3, a5], a6, n] - 
    S2[a1, a2, a4, SP[a5, a6], a3, n] - S2[a1, a2, a6, a3, SP[a4, a5], n] - 
    S2[a1, a2, a6, a4, SP[a3, a5], n] - S2[a1, a2, a6, SP[a3, a5], a4, n] - 
    S2[a1, a2, a6, SP[a4, a5], a3, n] - S2[a1, a2, SP[a3, a5], a4, a6, n] - 
    S2[a1, a2, SP[a3, a5], a6, a4, n] - S2[a1, a2, SP[a4, a5], a3, a6, n] - 
    S2[a1, a2, SP[a4, a5], a6, a3, n] - S2[a1, a2, SP[a5, a6], a3, a4, n] - 
    S2[a1, a2, SP[a5, a6], a4, a3, n] - S2[a6, n]*S2[a1, a3, a2, a4, a5, n] - 
    S2[a1, a3, a2, a4, SP[a5, a6], n] - S2[a6, n]*S2[a1, a3, a2, a5, a4, n] - 
    S2[a1, a3, a2, a5, SP[a4, a6], n] - S2[a1, a3, a2, SP[a4, a6], a5, n] - 
    S2[a1, a3, a2, SP[a5, a6], a4, n] - S2[a6, n]*S2[a1, a3, a4, a2, a5, n] - 
    S2[a1, a3, a4, a2, SP[a5, a6], n] - S2[a6, n]*S2[a1, a3, a4, a5, a2, n] + 
    S2[a2, n]*S2[a1, a3, a4, a5, a6, n] + 
    S2[a2, n]*S2[a1, a3, a4, a6, a5, n] + S2[a1, a3, a4, a6, SP[a2, a5], n] + 
    S2[a1, a3, a4, SP[a2, a5], a6, n] - S2[a1, a3, a4, SP[a5, a6], a2, n] - 
    S2[a6, n]*S2[a1, a3, a5, a2, a4, n] - S2[a1, a3, a5, a2, SP[a4, a6], n] - 
    S2[a6, n]*S2[a1, a3, a5, a4, a2, n] + 
    S2[a2, n]*S2[a1, a3, a5, a4, a6, n] + 
    S2[a2, n]*S2[a1, a3, a5, a6, a4, n] + S2[a1, a3, a5, a6, SP[a2, a4], n] + 
    S2[a1, a3, a5, SP[a2, a4], a6, n] - S2[a1, a3, a5, SP[a4, a6], a2, n] + 
    S2[a1, a3, a6, a2, SP[a4, a5], n] + S2[a2, n]*S2[a1, a3, a6, a4, a5, n] + 
    S2[a1, a3, a6, a4, SP[a2, a5], n] + S2[a2, n]*S2[a1, a3, a6, a5, a4, n] + 
    S2[a1, a3, a6, a5, SP[a2, a4], n] + S2[a1, a3, a6, SP[a2, a4], a5, n] + 
    2*S2[a1, a3, a6, SP[a2, a5], a4, n] + S2[a1, a3, SP[a2, a4], a5, a6, n] + 
    S2[a1, a3, SP[a2, a4], a6, a5, n] + S2[a1, a3, SP[a2, a5], a4, a6, n] + 
    S2[a1, a3, SP[a2, a5], a6, a4, n] - S2[a1, a3, SP[a4, a6], a2, a5, n] - 
    S2[a1, a3, SP[a4, a6], a5, a2, n] - S2[a1, a3, SP[a5, a6], a4, a2, n] - 
    S2[a6, n]*S2[a1, a4, a2, a3, a5, n] - S2[a1, a4, a2, a3, SP[a5, a6], n] - 
    S2[a6, n]*S2[a1, a4, a2, a5, a3, n] - S2[a1, a4, a2, a5, SP[a3, a6], n] - 
    S2[a1, a4, a2, SP[a3, a6], a5, n] - S2[a1, a4, a2, SP[a5, a6], a3, n] - 
    S2[a6, n]*S2[a1, a4, a3, a2, a5, n] - S2[a1, a4, a3, a2, SP[a5, a6], n] - 
    S2[a6, n]*S2[a1, a4, a3, a5, a2, n] + 
    S2[a2, n]*S2[a1, a4, a3, a5, a6, n] + 
    S2[a2, n]*S2[a1, a4, a3, a6, a5, n] + S2[a1, a4, a3, a6, SP[a2, a5], n] + 
    S2[a1, a4, a3, SP[a2, a5], a6, n] - S2[a1, a4, a3, SP[a5, a6], a2, n] - 
    S2[a6, n]*S2[a1, a4, a5, a2, a3, n] - S2[a1, a4, a5, a2, SP[a3, a6], n] - 
    S2[a6, n]*S2[a1, a4, a5, a3, a2, n] + 
    S2[a2, n]*S2[a1, a4, a5, a3, a6, n] + 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] + S2[a1, a4, a5, a6, SP[a2, a3], n] + 
    S2[a1, a4, a5, SP[a2, a3], a6, n] - S2[a1, a4, a5, SP[a3, a6], a2, n] + 
    S2[a2, n]*S2[a1, a4, a6, a3, a5, n] + S2[a1, a4, a6, a3, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a4, a6, a5, a3, n] + S2[a1, a4, a6, a5, SP[a2, a3], n] + 
    S2[a1, a4, a6, SP[a2, a3], a5, n] + S2[a1, a4, a6, SP[a2, a5], a3, n] + 
    S2[a1, a4, SP[a2, a3], a5, a6, n] + S2[a1, a4, SP[a2, a3], a6, a5, n] + 
    S2[a1, a4, SP[a2, a5], a3, a6, n] + S2[a1, a4, SP[a2, a5], a6, a3, n] - 
    S2[a1, a4, SP[a3, a6], a2, a5, n] - S2[a1, a4, SP[a3, a6], a5, a2, n] - 
    S2[a1, a4, SP[a5, a6], a2, a3, n] - S2[a1, a4, SP[a5, a6], a3, a2, n] - 
    S2[a6, n]*S2[a1, a5, a3, a2, a4, n] - S2[a1, a5, a3, a2, SP[a4, a6], n] - 
    S2[a6, n]*S2[a1, a5, a3, a4, a2, n] + 
    S2[a2, n]*S2[a1, a5, a3, a4, a6, n] + 
    S2[a2, n]*S2[a1, a5, a3, a6, a4, n] + S2[a1, a5, a3, a6, SP[a2, a4], n] + 
    S2[a1, a5, a3, SP[a2, a4], a6, n] - S2[a1, a5, a3, SP[a4, a6], a2, n] - 
    S2[a6, n]*S2[a1, a5, a4, a2, a3, n] - S2[a1, a5, a4, a2, SP[a3, a6], n] - 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] + 
    S2[a2, n]*S2[a1, a5, a4, a3, a6, n] + 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] + S2[a1, a5, a4, a6, SP[a2, a3], n] + 
    S2[a1, a5, a4, SP[a2, a3], a6, n] - S2[a1, a5, a4, SP[a3, a6], a2, n] - 
    S2[a3, n]*S2[a1, a5, a6, a2, a4, n] - S2[a1, a5, a6, a2, SP[a3, a4], n] + 
    S2[a2, n]*S2[a1, a5, a6, a3, a4, n] + S2[a1, a5, a6, a3, SP[a2, a4], n] + 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] + S2[a1, a5, a6, a4, SP[a2, a3], n] + 
    S2[a1, a5, a6, SP[a2, a4], a3, n] + S2[a1, a5, SP[a2, a3], a4, a6, n] + 
    S2[a1, a5, SP[a2, a3], a6, a4, n] + S2[a1, a5, SP[a2, a4], a3, a6, n] + 
    S2[a1, a5, SP[a2, a4], a6, a3, n] + S2[a1, a5, SP[a2, a6], a3, a4, n] + 
    S2[a1, a5, SP[a2, a6], a4, a3, n] - 2*S2[a1, a5, SP[a3, a6], a2, a4, n] - 
    S2[a1, a5, SP[a3, a6], a4, a2, n] - S2[a1, a5, SP[a4, a6], a2, a3, n] - 
    S2[a1, a5, SP[a4, a6], a3, a2, n] - S2[a3, n]*S2[a1, a6, a2, a4, a5, n] - 
    S2[a1, a6, a2, a4, SP[a3, a5], n] - S2[a3, n]*S2[a1, a6, a2, a5, a4, n] - 
    S2[a1, a6, a2, a5, SP[a3, a4], n] - S2[a1, a6, a2, SP[a3, a4], a5, n] - 
    S2[a1, a6, a2, SP[a3, a5], a4, n] + S2[a5, n]*S2[a1, a6, a3, a2, a4, n] + 
    S2[a1, a6, a3, a2, SP[a4, a5], n] + S2[a2, n]*S2[a1, a6, a3, a4, a5, n] + 
    S2[a1, a6, a3, a4, SP[a2, a5], n] + S2[a2, n]*S2[a1, a6, a3, a5, a4, n] + 
    S2[a1, a6, a3, a5, SP[a2, a4], n] + S2[a1, a6, a3, SP[a2, a4], a5, n] + 
    2*S2[a1, a6, a3, SP[a2, a5], a4, n] + 
    S2[a2, n]*S2[a1, a6, a4, a3, a5, n] + S2[a1, a6, a4, a3, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a6, a4, a5, a3, n] + S2[a1, a6, a4, a5, SP[a2, a3], n] + 
    S2[a1, a6, a4, SP[a2, a3], a5, n] + S2[a1, a6, a4, SP[a2, a5], a3, n] - 
    S2[a3, n]*S2[a1, a6, a5, a2, a4, n] - S2[a1, a6, a5, a2, SP[a3, a4], n] + 
    S2[a2, n]*S2[a1, a6, a5, a3, a4, n] + S2[a1, a6, a5, a3, SP[a2, a4], n] + 
    S2[a2, n]*S2[a1, a6, a5, a4, a3, n] + S2[a1, a6, a5, a4, SP[a2, a3], n] + 
    S2[a1, a6, a5, SP[a2, a4], a3, n] + S2[a1, a6, SP[a2, a4], a3, a5, n] + 
    S2[a1, a6, SP[a2, a4], a5, a3, n] + S2[a1, a6, SP[a2, a5], a3, a4, n] + 
    S2[a1, a6, SP[a2, a5], a4, a3, n] + S2[a1, SP[a2, a3], a4, a5, a6, n] + 
    S2[a1, SP[a2, a3], a4, a6, a5, n] + S2[a1, SP[a2, a3], a5, a4, a6, n] + 
    S2[a1, SP[a2, a3], a5, a6, a4, n] + S2[a1, SP[a2, a3], a6, a4, a5, n] + 
    S2[a1, SP[a2, a3], a6, a5, a4, n] + S2[a1, SP[a2, a4], a3, a5, a6, n] + 
    S2[a1, SP[a2, a4], a3, a6, a5, n] + S2[a1, SP[a2, a4], a5, a3, a6, n] + 
    S2[a1, SP[a2, a4], a5, a6, a3, n] + S2[a1, SP[a2, a4], a6, a3, a5, n] + 
    S2[a1, SP[a2, a4], a6, a5, a3, n] + S2[a1, SP[a2, a6], a3, a4, a5, n] + 
    S2[a1, SP[a2, a6], a3, a5, a4, n] + S2[a1, SP[a2, a6], a4, a3, a5, n] + 
    S2[a1, SP[a2, a6], a4, a5, a3, n] + S2[a1, SP[a2, a6], a5, a3, a4, n] + 
    S2[a1, SP[a2, a6], a5, a4, a3, n] - 2*S2[a1, SP[a3, a6], a2, a4, a5, n] - 
    2*S2[a1, SP[a3, a6], a2, a5, a4, n] - S2[a1, SP[a3, a6], a4, a2, a5, n] - 
    S2[a1, SP[a3, a6], a4, a5, a2, n] - 2*S2[a1, SP[a3, a6], a5, a2, a4, n] - 
    S2[a1, SP[a3, a6], a5, a4, a2, n] - S2[a1, SP[a4, a6], a2, a3, a5, n] - 
    S2[a1, SP[a4, a6], a2, a5, a3, n] - S2[a1, SP[a4, a6], a3, a2, a5, n] - 
    S2[a1, SP[a4, a6], a3, a5, a2, n] - S2[a1, SP[a4, a6], a5, a2, a3, n] - 
    S2[a1, SP[a4, a6], a5, a3, a2, n] - S2[a1, SP[a5, a6], a3, a4, a2, n] - 
    S2[a1, SP[a5, a6], a4, a2, a3, n] - S2[a1, SP[a5, a6], a4, a3, a2, n] - 
    S2[a2, a1, a3, a4, SP[a5, a6], n] - S2[a2, a1, a3, a6, SP[a4, a5], n] - 
    S2[a2, a1, a3, SP[a4, a5], a6, n] - S2[a2, a1, a3, SP[a5, a6], a4, n] - 
    S2[a2, a1, a4, a3, SP[a5, a6], n] - S2[a2, a1, a4, a6, SP[a3, a5], n] - 
    S2[a2, a1, a4, SP[a3, a5], a6, n] - S2[a2, a1, a4, SP[a5, a6], a3, n] - 
    S2[a2, a1, a6, a3, SP[a4, a5], n] - S2[a2, a1, a6, a4, SP[a3, a5], n] - 
    S2[a2, a1, a6, SP[a3, a5], a4, n] - S2[a2, a1, a6, SP[a4, a5], a3, n] - 
    S2[a2, a1, SP[a3, a5], a4, a6, n] - S2[a2, a1, SP[a3, a5], a6, a4, n] - 
    S2[a2, a1, SP[a4, a5], a3, a6, n] - S2[a2, a1, SP[a4, a5], a6, a3, n] - 
    S2[a2, a1, SP[a5, a6], a3, a4, n] - S2[a2, a1, SP[a5, a6], a4, a3, n] + 
    S2[a6, n]*S2[a2, a3, a1, a4, a5, n] + 
    S2[a6, n]*S2[a2, a3, a1, a5, a4, n] + S2[a2, a3, a1, a5, SP[a4, a6], n] - 
    S2[a2, a3, a1, a6, SP[a4, a5], n] - S2[a2, a3, a1, SP[a4, a5], a6, n] + 
    S2[a2, a3, a1, SP[a4, a6], a5, n] + S2[a6, n]*S2[a2, a3, a4, a1, a5, n] - 
    S2[a2, a3, a6, a1, SP[a4, a5], n] - S2[a2, a3, a6, SP[a1, a4], a5, n] - 
    S2[a2, a3, SP[a1, a4], a5, a6, n] - S2[a2, a3, SP[a1, a4], a6, a5, n] + 
    S2[a2, a3, SP[a4, a6], a1, a5, n] + S2[a6, n]*S2[a2, a4, a1, a3, a5, n] + 
    S2[a6, n]*S2[a2, a4, a1, a5, a3, n] + S2[a2, a4, a1, a5, SP[a3, a6], n] - 
    S2[a2, a4, a1, a6, SP[a3, a5], n] - S2[a2, a4, a1, SP[a3, a5], a6, n] + 
    S2[a2, a4, a1, SP[a3, a6], a5, n] + S2[a6, n]*S2[a2, a4, a3, a1, a5, n] - 
    S2[a2, a4, a6, a1, SP[a3, a5], n] - S2[a2, a4, a6, SP[a1, a3], a5, n] - 
    S2[a2, a4, SP[a1, a3], a5, a6, n] - S2[a2, a4, SP[a1, a3], a6, a5, n] + 
    S2[a2, a4, SP[a3, a6], a1, a5, n] - S2[a2, a6, a1, a3, SP[a4, a5], n] + 
    S2[a3, n]*S2[a2, a6, a1, a4, a5, n] + 
    S2[a3, n]*S2[a2, a6, a1, a5, a4, n] + S2[a2, a6, a1, a5, SP[a3, a4], n] + 
    S2[a2, a6, a1, SP[a3, a4], a5, n] - S2[a2, a6, a1, SP[a4, a5], a3, n] - 
    S2[a2, a6, a3, a1, SP[a4, a5], n] - S2[a2, a6, a3, SP[a1, a4], a5, n] - 
    S2[a2, a6, a4, a1, SP[a3, a5], n] - S2[a2, a6, a4, SP[a1, a3], a5, n] - 
    S2[a2, a6, SP[a1, a4], a3, a5, n] - S2[a2, a6, SP[a1, a4], a5, a3, n] - 
    S2[a2, SP[a1, a3], a4, a5, a6, n] - S2[a2, SP[a1, a3], a4, a6, a5, n] - 
    S2[a2, SP[a1, a3], a5, a4, a6, n] - S2[a2, SP[a1, a3], a5, a6, a4, n] - 
    S2[a2, SP[a1, a3], a6, a4, a5, n] - S2[a2, SP[a1, a3], a6, a5, a4, n] - 
    S2[a2, SP[a1, a4], a3, a5, a6, n] - S2[a2, SP[a1, a4], a3, a6, a5, n] - 
    S2[a2, SP[a1, a4], a5, a3, a6, n] - S2[a2, SP[a1, a4], a5, a6, a3, n] - 
    S2[a2, SP[a1, a4], a6, a3, a5, n] - S2[a2, SP[a1, a4], a6, a5, a3, n] - 
    S2[a2, SP[a1, a6], a3, a4, a5, n] - S2[a2, SP[a1, a6], a3, a5, a4, n] - 
    S2[a2, SP[a1, a6], a4, a3, a5, n] - S2[a2, SP[a1, a6], a4, a5, a3, n] - 
    S2[a2, SP[a1, a6], a5, a3, a4, n] - S2[a2, SP[a1, a6], a5, a4, a3, n] + 
    2*S2[a2, SP[a3, a6], a1, a4, a5, n] + 
    2*S2[a2, SP[a3, a6], a1, a5, a4, n] + S2[a2, SP[a3, a6], a4, a1, a5, n] + 
    S2[a2, SP[a4, a6], a1, a3, a5, n] + S2[a2, SP[a4, a6], a1, a5, a3, n] + 
    S2[a2, SP[a4, a6], a3, a1, a5, n] + S2[a3, a1, a6, a2, SP[a4, a5], n] + 
    S2[a3, a1, a6, SP[a2, a5], a4, n] + S2[a3, a1, SP[a5, a6], a2, a4, n] + 
    S2[a3, a6, a1, a2, SP[a4, a5], n] - S2[a2, n]*S2[a3, a6, a1, a4, a5, n] - 
    S2[a3, a6, a1, a4, SP[a2, a5], n] - S2[a2, n]*S2[a3, a6, a1, a5, a4, n] - 
    S2[a3, a6, a1, a5, SP[a2, a4], n] - S2[a3, a6, a1, SP[a2, a4], a5, n] + 
    S2[a3, a6, a2, a1, SP[a4, a5], n] + S2[a3, a6, a2, SP[a1, a4], a5, n] + 
    S2[a3, SP[a1, a6], a2, a4, a5, n] + S2[a3, SP[a1, a6], a2, a5, a4, n] + 
    S2[a3, SP[a1, a6], a5, a2, a4, n] - S2[a3, SP[a2, a6], a1, a4, a5, n] - 
    S2[a3, SP[a2, a6], a1, a5, a4, n] + S2[a3, n]*S2[a6, a1, a4, a2, a5, n] + 
    S2[a6, a1, a4, a2, SP[a3, a5], n] + S2[a3, n]*S2[a6, a1, a4, a5, a2, n] + 
    S2[a6, a1, a4, a5, SP[a2, a3], n] + S2[a6, a1, a4, SP[a2, a3], a5, n] + 
    S2[a6, a1, a4, SP[a3, a5], a2, n] + S2[a3, n]*S2[a6, a1, a5, a4, a2, n] + 
    S2[a6, a1, a5, a4, SP[a2, a3], n] + S2[a6, a1, a5, SP[a3, a4], a2, n] + 
    S2[a6, a1, SP[a3, a4], a2, a5, n] + S2[a6, a1, SP[a3, a4], a5, a2, n] + 
    S2[a6, a1, SP[a3, a5], a4, a2, n] - S2[a3, n]*S2[a6, a2, a4, a1, a5, n] - 
    S2[a6, a2, a4, a1, SP[a3, a5], n] - S2[a6, a2, a4, SP[a1, a3], a5, n] - 
    S2[a6, a2, SP[a3, a4], a1, a5, n] - S2[a2, n]*S2[a6, a3, a1, a4, a5, n] - 
    S2[a6, a3, a1, a4, SP[a2, a5], n] - S2[a2, n]*S2[a6, a3, a1, a5, a4, n] - 
    S2[a6, a3, a1, a5, SP[a2, a4], n] - S2[a6, a3, a1, SP[a2, a4], a5, n] - 
    S2[a6, a3, a1, SP[a2, a5], a4, n] - S2[a6, a3, SP[a1, a2], a4, a5, n] - 
    S2[a6, a3, SP[a1, a2], a5, a4, n] + S2[a6, SP[a1, a3], a4, a2, a5, n] + 
    S2[a6, SP[a1, a3], a4, a5, a2, n] + S2[a6, SP[a1, a3], a5, a4, a2, n] - 
    S2[a6, SP[a2, a3], a1, a4, a5, n] - S2[a6, SP[a2, a3], a1, a5, a4, n] - 
    S2[a6, SP[a2, a3], a4, a1, a5, n] + S2[SP[a1, a5], a6, a3, a2, a4, n] - 
    S2[SP[a1, a6], a3, a2, a4, a5, n] - S2[SP[a1, a6], a3, a2, a5, a4, n] - 
    S2[SP[a1, a6], a3, a4, a2, a5, n] - S2[SP[a1, a6], a3, a4, a5, a2, n] - 
    S2[SP[a1, a6], a3, a5, a2, a4, n] - S2[SP[a1, a6], a3, a5, a4, a2, n] - 
    S2[SP[a1, a6], a4, a2, a3, a5, n] - S2[SP[a1, a6], a4, a2, a5, a3, n] - 
    S2[SP[a1, a6], a4, a3, a2, a5, n] - S2[SP[a1, a6], a4, a3, a5, a2, n] - 
    S2[SP[a1, a6], a4, a5, a2, a3, n] - S2[SP[a1, a6], a4, a5, a3, a2, n] - 
    S2[SP[a1, a6], a5, a3, a2, a4, n] - S2[SP[a1, a6], a5, a3, a4, a2, n] - 
    S2[SP[a1, a6], a5, a4, a2, a3, n] - S2[SP[a1, a6], a5, a4, a3, a2, n] + 
    S2[SP[a2, a6], a3, a4, a1, a5, n] + S2[SP[a2, a6], a4, a1, a3, a5, n] + 
    S2[SP[a2, a6], a4, a1, a5, a3, n] + S2[SP[a2, a6], a4, a3, a1, a5, n] + 
    S2[SP[a3, a6], a1, a4, a2, a5, n] + S2[SP[a3, a6], a1, a4, a5, a2, n] + 
    S2[SP[a3, a6], a1, a5, a4, a2, n] - S2[SP[a3, a6], a2, a4, a1, a5, n] + 
    S2[a6, a1, a3, a2, a4, a5, n] + S2[a6, a1, a3, a2, a5, a4, n] + 
    S2[a6, a1, a3, a5, a2, a4, n] + S2[a6, a1, a5, a3, a2, a4, n] + 
    S2[a6, a3, a1, a2, a4, a5, n] + S2[a6, a3, a1, a2, a5, a4, n] + 
    S2[a6, a3, a1, a5, a2, a4, n] + S2[a6, a3, a2, a1, a4, a5, n] + 
    S2[a6, a3, a2, a1, a5, a4, n] + S2[a6, a3, a2, a4, a1, a5, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a5_, a1_, a6_, a3_, a4_, a2_, n_] :> 
  S2[a1, a5, n]*S2[a2, a4, a3, a6, n] + S2[a1, a5, n]*S2[a2, a4, a6, a3, n] - 
    S2[a2, a4, SP[a1, a3], SP[a5, a6], n] - S2[a2, a4, SP[a1, a6], 
     SP[a3, a5], n] + S2[a1, a5, n]*S2[a2, a6, a3, a4, n] + 
    S2[a1, a5, n]*S2[a2, a6, a4, a3, n] - S2[a2, a6, SP[a1, a3], SP[a4, a5], 
     n] - S2[a2, a6, SP[a1, a4], SP[a3, a5], n] - S2[a2, SP[a1, a4], a3, 
     SP[a5, a6], n] - S2[a2, SP[a1, a4], a6, SP[a3, a5], n] - 
    S2[a2, SP[a1, a4], SP[a3, a5], a6, n] - S2[a2, SP[a1, a4], SP[a5, a6], 
     a3, n] - S2[a2, SP[a1, a6], a3, SP[a4, a5], n] - 
    S2[a2, SP[a1, a6], a4, SP[a3, a5], n] - S2[a2, SP[a1, a6], SP[a3, a5], 
     a4, n] - S2[a2, SP[a1, a6], SP[a4, a5], a3, n] - 
    S2[a1, a5, n]*S2[a3, a6, a2, a4, n] + S2[a3, a6, SP[a1, a2], SP[a4, a5], 
     n] + S2[a3, SP[a1, a6], a2, SP[a4, a5], n] + 
    S2[a3, SP[a1, a6], SP[a2, a5], a4, n] - S2[SP[a1, a2], a4, a3, 
     SP[a5, a6], n] - S2[SP[a1, a2], a4, a6, SP[a3, a5], n] - 
    S2[SP[a1, a2], a4, SP[a3, a5], a6, n] - S2[SP[a1, a2], a4, SP[a5, a6], 
     a3, n] - S2[SP[a1, a2], a6, a3, SP[a4, a5], n] - 
    S2[SP[a1, a2], a6, a4, SP[a3, a5], n] - S2[SP[a1, a2], a6, SP[a3, a5], 
     a4, n] - S2[SP[a1, a2], a6, SP[a4, a5], a3, n] - 
    S2[SP[a1, a2], SP[a4, a5], a3, a6, n] - S2[SP[a1, a2], SP[a4, a5], a6, 
     a3, n] - S2[SP[a1, a2], SP[a5, a6], a3, a4, n] - 
    S2[SP[a1, a2], SP[a5, a6], a4, a3, n] + S2[SP[a1, a3], a6, a2, 
     SP[a4, a5], n] + S2[SP[a1, a3], a6, SP[a2, a5], a4, n] + 
    S2[SP[a1, a3], SP[a5, a6], a2, a4, n] + S2[a1, a2, a4, a3, SP[a5, a6], 
     n] + S2[a1, a2, a4, a6, SP[a3, a5], n] + S2[a1, a2, a4, SP[a3, a5], a6, 
     n] + S2[a1, a2, a4, SP[a5, a6], a3, n] + S2[a1, a2, a6, a3, SP[a4, a5], 
     n] + S2[a1, a2, a6, a4, SP[a3, a5], n] + S2[a1, a2, a6, SP[a3, a5], a4, 
     n] + S2[a1, a2, a6, SP[a4, a5], a3, n] + S2[a1, a2, SP[a4, a5], a3, a6, 
     n] + S2[a1, a2, SP[a4, a5], a6, a3, n] + S2[a1, a2, SP[a5, a6], a3, a4, 
     n] + S2[a1, a2, SP[a5, a6], a4, a3, n] - S2[a1, a3, a6, a2, SP[a4, a5], 
     n] - S2[a1, a3, a6, SP[a2, a5], a4, n] - S2[a1, a3, SP[a5, a6], a2, a4, 
     n] + S2[a6, n]*S2[a1, a4, a2, a3, a5, n] + S2[a1, a4, a2, a3, 
     SP[a5, a6], n] + S2[a6, n]*S2[a1, a4, a2, a5, a3, n] + 
    S2[a1, a4, a2, a5, SP[a3, a6], n] + S2[a1, a4, a2, SP[a3, a6], a5, n] + 
    S2[a1, a4, a2, SP[a5, a6], a3, n] + S2[a6, n]*S2[a1, a4, a3, a2, a5, n] + 
    S2[a1, a4, a3, a2, SP[a5, a6], n] + S2[a6, n]*S2[a1, a4, a3, a5, a2, n] - 
    S2[a2, n]*S2[a1, a4, a3, a5, a6, n] - 
    S2[a2, n]*S2[a1, a4, a3, a6, a5, n] - S2[a1, a4, a3, a6, SP[a2, a5], n] - 
    S2[a1, a4, a3, SP[a2, a5], a6, n] + S2[a1, a4, a3, SP[a5, a6], a2, n] + 
    S2[a6, n]*S2[a1, a4, a5, a2, a3, n] + S2[a1, a4, a5, a2, SP[a3, a6], n] + 
    S2[a6, n]*S2[a1, a4, a5, a3, a2, n] - 
    S2[a2, n]*S2[a1, a4, a5, a3, a6, n] - 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] - S2[a1, a4, a5, a6, SP[a2, a3], n] - 
    S2[a1, a4, a5, SP[a2, a3], a6, n] + S2[a1, a4, a5, SP[a3, a6], a2, n] - 
    S2[a2, n]*S2[a1, a4, a6, a3, a5, n] - S2[a1, a4, a6, a3, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a4, a6, a5, a3, n] - S2[a1, a4, a6, a5, SP[a2, a3], n] - 
    S2[a1, a4, a6, SP[a2, a3], a5, n] - S2[a1, a4, a6, SP[a2, a5], a3, n] - 
    S2[a1, a4, SP[a2, a3], a5, a6, n] - S2[a1, a4, SP[a2, a3], a6, a5, n] - 
    S2[a1, a4, SP[a2, a5], a3, a6, n] - S2[a1, a4, SP[a2, a5], a6, a3, n] + 
    S2[a1, a4, SP[a3, a6], a2, a5, n] + S2[a1, a4, SP[a3, a6], a5, a2, n] + 
    S2[a1, a4, SP[a5, a6], a2, a3, n] + S2[a1, a4, SP[a5, a6], a3, a2, n] + 
    S2[a6, n]*S2[a1, a5, a4, a2, a3, n] + S2[a1, a5, a4, a2, SP[a3, a6], n] + 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] - 
    S2[a2, n]*S2[a1, a5, a4, a3, a6, n] - 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] - S2[a1, a5, a4, a6, SP[a2, a3], n] - 
    S2[a1, a5, a4, SP[a2, a3], a6, n] + S2[a1, a5, a4, SP[a3, a6], a2, n] + 
    S2[a3, n]*S2[a1, a5, a6, a2, a4, n] + S2[a1, a5, a6, a2, SP[a3, a4], n] - 
    S2[a2, n]*S2[a1, a5, a6, a3, a4, n] - S2[a1, a5, a6, a3, SP[a2, a4], n] - 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] - S2[a1, a5, a6, a4, SP[a2, a3], n] - 
    S2[a1, a5, a6, SP[a2, a4], a3, n] - S2[a1, a5, SP[a2, a4], a3, a6, n] - 
    S2[a1, a5, SP[a2, a4], a6, a3, n] - S2[a1, a5, SP[a2, a6], a3, a4, n] - 
    S2[a1, a5, SP[a2, a6], a4, a3, n] + S2[a1, a5, SP[a3, a6], a2, a4, n] + 
    S2[a1, a5, SP[a4, a6], a2, a3, n] + S2[a1, a5, SP[a4, a6], a3, a2, n] + 
    S2[a3, n]*S2[a1, a6, a2, a4, a5, n] + S2[a1, a6, a2, a4, SP[a3, a5], n] + 
    S2[a3, n]*S2[a1, a6, a2, a5, a4, n] + S2[a1, a6, a2, a5, SP[a3, a4], n] + 
    S2[a1, a6, a2, SP[a3, a4], a5, n] + S2[a1, a6, a2, SP[a3, a5], a4, n] + 
    S2[a5, n]*S2[a1, a6, a3, a4, a2, n] - 
    S2[a2, n]*S2[a1, a6, a3, a4, a5, n] - 
    S2[a2, n]*S2[a1, a6, a3, a5, a4, n] - S2[a1, a6, a3, a5, SP[a2, a4], n] - 
    S2[a1, a6, a3, SP[a2, a4], a5, n] - S2[a1, a6, a3, SP[a2, a5], a4, n] + 
    S2[a1, a6, a3, SP[a4, a5], a2, n] - S2[a2, n]*S2[a1, a6, a4, a3, a5, n] - 
    S2[a1, a6, a4, a3, SP[a2, a5], n] - S2[a2, n]*S2[a1, a6, a4, a5, a3, n] - 
    S2[a1, a6, a4, a5, SP[a2, a3], n] - S2[a1, a6, a4, SP[a2, a3], a5, n] - 
    S2[a1, a6, a4, SP[a2, a5], a3, n] + S2[a3, n]*S2[a1, a6, a5, a2, a4, n] + 
    S2[a1, a6, a5, a2, SP[a3, a4], n] - S2[a2, n]*S2[a1, a6, a5, a3, a4, n] - 
    S2[a1, a6, a5, a3, SP[a2, a4], n] - S2[a2, n]*S2[a1, a6, a5, a4, a3, n] - 
    S2[a1, a6, a5, a4, SP[a2, a3], n] - S2[a1, a6, a5, SP[a2, a4], a3, n] - 
    S2[a1, a6, SP[a2, a4], a3, a5, n] - S2[a1, a6, SP[a2, a4], a5, a3, n] - 
    S2[a1, a6, SP[a2, a5], a3, a4, n] - S2[a1, a6, SP[a2, a5], a4, a3, n] + 
    S2[a1, a6, SP[a3, a5], a2, a4, n] + S2[a1, a6, SP[a3, a5], a4, a2, n] - 
    S2[a1, SP[a2, a4], a3, a5, a6, n] - S2[a1, SP[a2, a4], a3, a6, a5, n] - 
    S2[a1, SP[a2, a4], a5, a3, a6, n] - S2[a1, SP[a2, a4], a5, a6, a3, n] - 
    S2[a1, SP[a2, a4], a6, a3, a5, n] - S2[a1, SP[a2, a4], a6, a5, a3, n] - 
    S2[a1, SP[a2, a6], a3, a4, a5, n] - S2[a1, SP[a2, a6], a3, a5, a4, n] - 
    S2[a1, SP[a2, a6], a4, a3, a5, n] - S2[a1, SP[a2, a6], a4, a5, a3, n] - 
    S2[a1, SP[a2, a6], a5, a3, a4, n] - S2[a1, SP[a2, a6], a5, a4, a3, n] + 
    S2[a1, SP[a3, a6], a2, a4, a5, n] + S2[a1, SP[a3, a6], a2, a5, a4, n] + 
    S2[a1, SP[a3, a6], a5, a2, a4, n] + S2[a1, SP[a4, a6], a2, a3, a5, n] + 
    S2[a1, SP[a4, a6], a2, a5, a3, n] + S2[a1, SP[a4, a6], a3, a2, a5, n] + 
    S2[a1, SP[a4, a6], a3, a5, a2, n] + S2[a1, SP[a4, a6], a5, a2, a3, n] + 
    S2[a1, SP[a4, a6], a5, a3, a2, n] + S2[a1, SP[a5, a6], a3, a4, a2, n] + 
    S2[a1, SP[a5, a6], a4, a2, a3, n] + S2[a1, SP[a5, a6], a4, a3, a2, n] + 
    S2[a2, a1, a4, a3, SP[a5, a6], n] + S2[a2, a1, a4, a6, SP[a3, a5], n] + 
    S2[a2, a1, a4, SP[a3, a5], a6, n] + S2[a2, a1, a4, SP[a5, a6], a3, n] + 
    S2[a2, a1, a6, a3, SP[a4, a5], n] + S2[a2, a1, a6, a4, SP[a3, a5], n] + 
    S2[a2, a1, a6, SP[a3, a5], a4, n] + S2[a2, a1, a6, SP[a4, a5], a3, n] + 
    S2[a2, a1, SP[a4, a5], a3, a6, n] + S2[a2, a1, SP[a4, a5], a6, a3, n] + 
    S2[a2, a1, SP[a5, a6], a3, a4, n] + S2[a2, a1, SP[a5, a6], a4, a3, n] - 
    S2[a6, n]*S2[a2, a4, a1, a3, a5, n] - 
    S2[a6, n]*S2[a2, a4, a1, a5, a3, n] - S2[a2, a4, a1, a5, SP[a3, a6], n] + 
    S2[a2, a4, a1, a6, SP[a3, a5], n] + S2[a2, a4, a1, SP[a3, a5], a6, n] - 
    S2[a2, a4, a1, SP[a3, a6], a5, n] - S2[a6, n]*S2[a2, a4, a3, a1, a5, n] + 
    S2[a2, a4, a6, a1, SP[a3, a5], n] + S2[a2, a4, a6, SP[a1, a3], a5, n] + 
    S2[a2, a4, SP[a1, a3], a5, a6, n] + S2[a2, a4, SP[a1, a3], a6, a5, n] - 
    S2[a2, a4, SP[a3, a6], a1, a5, n] + S2[a2, a6, a1, a3, SP[a4, a5], n] - 
    S2[a3, n]*S2[a2, a6, a1, a4, a5, n] - 
    S2[a3, n]*S2[a2, a6, a1, a5, a4, n] - S2[a2, a6, a1, a5, SP[a3, a4], n] - 
    S2[a2, a6, a1, SP[a3, a4], a5, n] + S2[a2, a6, a1, SP[a4, a5], a3, n] + 
    S2[a2, a6, a3, a1, SP[a4, a5], n] + S2[a2, a6, a3, SP[a1, a4], a5, n] + 
    S2[a2, a6, a4, a1, SP[a3, a5], n] + S2[a2, a6, a4, SP[a1, a3], a5, n] + 
    S2[a2, a6, SP[a1, a4], a3, a5, n] + S2[a2, a6, SP[a1, a4], a5, a3, n] + 
    S2[a2, SP[a1, a4], a3, a5, a6, n] + S2[a2, SP[a1, a4], a3, a6, a5, n] + 
    S2[a2, SP[a1, a4], a5, a3, a6, n] + S2[a2, SP[a1, a4], a5, a6, a3, n] + 
    S2[a2, SP[a1, a4], a6, a3, a5, n] + S2[a2, SP[a1, a4], a6, a5, a3, n] + 
    S2[a2, SP[a1, a6], a3, a4, a5, n] + S2[a2, SP[a1, a6], a3, a5, a4, n] + 
    S2[a2, SP[a1, a6], a4, a3, a5, n] + S2[a2, SP[a1, a6], a4, a5, a3, n] + 
    S2[a2, SP[a1, a6], a5, a3, a4, n] + S2[a2, SP[a1, a6], a5, a4, a3, n] - 
    S2[a2, SP[a3, a6], a1, a4, a5, n] - S2[a2, SP[a3, a6], a1, a5, a4, n] - 
    S2[a2, SP[a4, a6], a1, a3, a5, n] - S2[a2, SP[a4, a6], a1, a5, a3, n] - 
    S2[a2, SP[a4, a6], a3, a1, a5, n] - S2[a3, a1, a6, a2, SP[a4, a5], n] - 
    S2[a3, a1, a6, SP[a2, a5], a4, n] - S2[a3, a1, SP[a5, a6], a2, a4, n] - 
    S2[a3, a6, a1, a2, SP[a4, a5], n] + S2[a2, n]*S2[a3, a6, a1, a4, a5, n] + 
    S2[a3, a6, a1, a4, SP[a2, a5], n] + S2[a2, n]*S2[a3, a6, a1, a5, a4, n] + 
    S2[a3, a6, a1, a5, SP[a2, a4], n] + S2[a3, a6, a1, SP[a2, a4], a5, n] - 
    S2[a3, a6, a2, a1, SP[a4, a5], n] - S2[a3, a6, a2, SP[a1, a4], a5, n] - 
    S2[a3, SP[a1, a6], a2, a4, a5, n] - S2[a3, SP[a1, a6], a2, a5, a4, n] - 
    S2[a3, SP[a1, a6], a5, a2, a4, n] + S2[a3, SP[a2, a6], a1, a4, a5, n] + 
    S2[a3, SP[a2, a6], a1, a5, a4, n] - S2[a3, n]*S2[a6, a1, a4, a2, a5, n] - 
    S2[a6, a1, a4, a2, SP[a3, a5], n] - S2[a3, n]*S2[a6, a1, a4, a5, a2, n] - 
    S2[a6, a1, a4, a5, SP[a2, a3], n] - S2[a6, a1, a4, SP[a2, a3], a5, n] - 
    S2[a6, a1, a4, SP[a3, a5], a2, n] - S2[a3, n]*S2[a6, a1, a5, a4, a2, n] - 
    S2[a6, a1, a5, a4, SP[a2, a3], n] - S2[a6, a1, a5, SP[a3, a4], a2, n] - 
    S2[a6, a1, SP[a3, a4], a2, a5, n] - S2[a6, a1, SP[a3, a4], a5, a2, n] - 
    S2[a6, a1, SP[a3, a5], a4, a2, n] + S2[a3, n]*S2[a6, a2, a4, a1, a5, n] + 
    S2[a6, a2, a4, a1, SP[a3, a5], n] + S2[a6, a2, a4, SP[a1, a3], a5, n] + 
    S2[a6, a2, SP[a3, a4], a1, a5, n] - S2[a2, n]*S2[a6, a3, a4, a1, a5, n] - 
    S2[a6, a3, a4, a1, SP[a2, a5], n] - S2[a6, a3, a4, SP[a1, a2], a5, n] - 
    S2[a6, a3, SP[a2, a4], a1, a5, n] - S2[a6, SP[a1, a3], a4, a2, a5, n] - 
    S2[a6, SP[a1, a3], a4, a5, a2, n] - S2[a6, SP[a1, a3], a5, a4, a2, n] + 
    S2[SP[a1, a5], a6, a3, a4, a2, n] + S2[SP[a1, a6], a4, a2, a3, a5, n] + 
    S2[SP[a1, a6], a4, a2, a5, a3, n] + S2[SP[a1, a6], a4, a3, a2, a5, n] + 
    S2[SP[a1, a6], a4, a3, a5, a2, n] + S2[SP[a1, a6], a4, a5, a2, a3, n] + 
    S2[SP[a1, a6], a4, a5, a3, a2, n] + S2[SP[a1, a6], a5, a4, a2, a3, n] + 
    S2[SP[a1, a6], a5, a4, a3, a2, n] - S2[SP[a2, a6], a3, a4, a1, a5, n] - 
    S2[SP[a2, a6], a4, a1, a3, a5, n] - S2[SP[a2, a6], a4, a1, a5, a3, n] - 
    S2[SP[a2, a6], a4, a3, a1, a5, n] - S2[SP[a3, a6], a1, a4, a2, a5, n] - 
    S2[SP[a3, a6], a1, a4, a5, a2, n] - S2[SP[a3, a6], a1, a5, a4, a2, n] + 
    S2[SP[a3, a6], a2, a4, a1, a5, n] + S2[a6, a1, a3, a4, a2, a5, n] + 
    S2[a6, a1, a3, a4, a5, a2, n] + S2[a6, a1, a3, a5, a4, a2, n] + 
    S2[a6, a1, a5, a3, a4, a2, n] + S2[a6, a3, a1, a4, a2, a5, n] + 
    S2[a6, a3, a1, a4, a5, a2, n] + S2[a6, a3, a1, a5, a4, a2, n] + 
    S2[a6, a3, a4, a1, a2, a5, n] + S2[a6, a3, a4, a1, a5, a2, n] + 
    S2[a6, a3, a4, a2, a1, a5, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a5_, a1_, a6_, a4_, a2_, a3_, n_] :> 
  -(S2[a1, a5, n]*S2[a2, a3, a4, a6, n]) - S2[a1, a5, n]*
     S2[a2, a3, a6, a4, n] + S2[a2, a3, SP[a1, a4], SP[a5, a6], n] + 
    S2[a2, a3, SP[a1, a6], SP[a4, a5], n] - S2[a1, a5, n]*
     S2[a2, a4, a3, a6, n] - S2[a1, a5, n]*S2[a2, a4, a6, a3, n] + 
    S2[a2, a4, SP[a1, a3], SP[a5, a6], n] + S2[a2, a4, SP[a1, a6], 
     SP[a3, a5], n] - S2[a1, a5, n]*S2[a2, a6, a3, a4, n] - 
    S2[a1, a5, n]*S2[a2, a6, a4, a3, n] + S2[a2, a6, SP[a1, a3], SP[a4, a5], 
     n] + S2[a2, a6, SP[a1, a4], SP[a3, a5], n] + S2[a2, SP[a1, a3], a4, 
     SP[a5, a6], n] + S2[a2, SP[a1, a3], a6, SP[a4, a5], n] + 
    S2[a2, SP[a1, a3], SP[a4, a5], a6, n] + S2[a2, SP[a1, a3], SP[a5, a6], 
     a4, n] + S2[a2, SP[a1, a4], a3, SP[a5, a6], n] + 
    S2[a2, SP[a1, a4], a6, SP[a3, a5], n] + S2[a2, SP[a1, a4], SP[a3, a5], 
     a6, n] + S2[a2, SP[a1, a4], SP[a5, a6], a3, n] + 
    S2[a2, SP[a1, a6], a3, SP[a4, a5], n] + S2[a2, SP[a1, a6], a4, 
     SP[a3, a5], n] + S2[a2, SP[a1, a6], SP[a3, a5], a4, n] + 
    S2[a2, SP[a1, a6], SP[a4, a5], a3, n] + S2[a1, a5, n]*
     S2[a4, a6, a2, a3, n] - S2[a4, a6, SP[a1, a2], SP[a3, a5], n] - 
    S2[a4, SP[a1, a6], a2, SP[a3, a5], n] - S2[a4, SP[a1, a6], SP[a2, a5], 
     a3, n] + S2[SP[a1, a2], a3, a4, SP[a5, a6], n] + 
    S2[SP[a1, a2], a3, a6, SP[a4, a5], n] + S2[SP[a1, a2], a3, SP[a4, a5], 
     a6, n] + S2[SP[a1, a2], a3, SP[a5, a6], a4, n] + 
    S2[SP[a1, a2], a4, a3, SP[a5, a6], n] + S2[SP[a1, a2], a4, a6, 
     SP[a3, a5], n] + S2[SP[a1, a2], a4, SP[a3, a5], a6, n] + 
    S2[SP[a1, a2], a4, SP[a5, a6], a3, n] + S2[SP[a1, a2], a6, a3, 
     SP[a4, a5], n] + S2[SP[a1, a2], a6, a4, SP[a3, a5], n] + 
    S2[SP[a1, a2], a6, SP[a3, a5], a4, n] + S2[SP[a1, a2], a6, SP[a4, a5], 
     a3, n] + S2[SP[a1, a2], SP[a3, a5], a4, a6, n] + 
    S2[SP[a1, a2], SP[a3, a5], a6, a4, n] + S2[SP[a1, a2], SP[a4, a5], a3, 
     a6, n] + S2[SP[a1, a2], SP[a4, a5], a6, a3, n] + 
    S2[SP[a1, a2], SP[a5, a6], a3, a4, n] + S2[SP[a1, a2], SP[a5, a6], a4, 
     a3, n] - S2[SP[a1, a4], a6, a2, SP[a3, a5], n] - 
    S2[SP[a1, a4], a6, SP[a2, a5], a3, n] - S2[SP[a1, a4], SP[a5, a6], a2, 
     a3, n] - S2[a1, a2, a3, a4, SP[a5, a6], n] - 
    S2[a1, a2, a3, a6, SP[a4, a5], n] - S2[a1, a2, a3, SP[a4, a5], a6, n] - 
    S2[a1, a2, a3, SP[a5, a6], a4, n] - S2[a1, a2, a4, a3, SP[a5, a6], n] - 
    S2[a1, a2, a4, a6, SP[a3, a5], n] - S2[a1, a2, a4, SP[a3, a5], a6, n] - 
    S2[a1, a2, a4, SP[a5, a6], a3, n] - S2[a1, a2, a6, a3, SP[a4, a5], n] - 
    S2[a1, a2, a6, a4, SP[a3, a5], n] - S2[a1, a2, a6, SP[a3, a5], a4, n] - 
    S2[a1, a2, a6, SP[a4, a5], a3, n] - S2[a1, a2, SP[a3, a5], a4, a6, n] - 
    S2[a1, a2, SP[a3, a5], a6, a4, n] - S2[a1, a2, SP[a4, a5], a3, a6, n] - 
    S2[a1, a2, SP[a4, a5], a6, a3, n] - S2[a1, a2, SP[a5, a6], a3, a4, n] - 
    S2[a1, a2, SP[a5, a6], a4, a3, n] - S2[a6, n]*S2[a1, a3, a2, a4, a5, n] - 
    S2[a1, a3, a2, a4, SP[a5, a6], n] - S2[a6, n]*S2[a1, a3, a2, a5, a4, n] - 
    S2[a1, a3, a2, a5, SP[a4, a6], n] - S2[a1, a3, a2, SP[a4, a6], a5, n] - 
    S2[a1, a3, a2, SP[a5, a6], a4, n] - S2[a6, n]*S2[a1, a3, a4, a2, a5, n] - 
    S2[a1, a3, a4, a2, SP[a5, a6], n] - S2[a6, n]*S2[a1, a3, a4, a5, a2, n] + 
    S2[a2, n]*S2[a1, a3, a4, a5, a6, n] + 
    S2[a2, n]*S2[a1, a3, a4, a6, a5, n] + S2[a1, a3, a4, a6, SP[a2, a5], n] + 
    S2[a1, a3, a4, SP[a2, a5], a6, n] - S2[a1, a3, a4, SP[a5, a6], a2, n] - 
    S2[a6, n]*S2[a1, a3, a5, a2, a4, n] - S2[a1, a3, a5, a2, SP[a4, a6], n] - 
    S2[a6, n]*S2[a1, a3, a5, a4, a2, n] + 
    S2[a2, n]*S2[a1, a3, a5, a4, a6, n] + 
    S2[a2, n]*S2[a1, a3, a5, a6, a4, n] + S2[a1, a3, a5, a6, SP[a2, a4], n] + 
    S2[a1, a3, a5, SP[a2, a4], a6, n] - S2[a1, a3, a5, SP[a4, a6], a2, n] + 
    S2[a2, n]*S2[a1, a3, a6, a4, a5, n] + S2[a1, a3, a6, a4, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a3, a6, a5, a4, n] + S2[a1, a3, a6, a5, SP[a2, a4], n] + 
    S2[a1, a3, a6, SP[a2, a4], a5, n] + S2[a1, a3, a6, SP[a2, a5], a4, n] + 
    S2[a1, a3, SP[a2, a4], a5, a6, n] + S2[a1, a3, SP[a2, a4], a6, a5, n] + 
    S2[a1, a3, SP[a2, a5], a4, a6, n] + S2[a1, a3, SP[a2, a5], a6, a4, n] - 
    S2[a1, a3, SP[a4, a6], a2, a5, n] - S2[a1, a3, SP[a4, a6], a5, a2, n] - 
    S2[a1, a3, SP[a5, a6], a2, a4, n] - S2[a1, a3, SP[a5, a6], a4, a2, n] - 
    S2[a6, n]*S2[a1, a4, a2, a3, a5, n] - S2[a1, a4, a2, a3, SP[a5, a6], n] - 
    S2[a6, n]*S2[a1, a4, a2, a5, a3, n] - S2[a1, a4, a2, a5, SP[a3, a6], n] - 
    S2[a1, a4, a2, SP[a3, a6], a5, n] - S2[a1, a4, a2, SP[a5, a6], a3, n] - 
    S2[a6, n]*S2[a1, a4, a3, a2, a5, n] - S2[a1, a4, a3, a2, SP[a5, a6], n] - 
    S2[a6, n]*S2[a1, a4, a3, a5, a2, n] + 
    S2[a2, n]*S2[a1, a4, a3, a5, a6, n] + 
    S2[a2, n]*S2[a1, a4, a3, a6, a5, n] + S2[a1, a4, a3, a6, SP[a2, a5], n] + 
    S2[a1, a4, a3, SP[a2, a5], a6, n] - S2[a1, a4, a3, SP[a5, a6], a2, n] - 
    S2[a6, n]*S2[a1, a4, a5, a2, a3, n] - S2[a1, a4, a5, a2, SP[a3, a6], n] - 
    S2[a6, n]*S2[a1, a4, a5, a3, a2, n] + 
    S2[a2, n]*S2[a1, a4, a5, a3, a6, n] + 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] + S2[a1, a4, a5, a6, SP[a2, a3], n] + 
    S2[a1, a4, a5, SP[a2, a3], a6, n] - S2[a1, a4, a5, SP[a3, a6], a2, n] + 
    S2[a1, a4, a6, a2, SP[a3, a5], n] + S2[a2, n]*S2[a1, a4, a6, a3, a5, n] + 
    S2[a1, a4, a6, a3, SP[a2, a5], n] + S2[a2, n]*S2[a1, a4, a6, a5, a3, n] + 
    S2[a1, a4, a6, a5, SP[a2, a3], n] + S2[a1, a4, a6, SP[a2, a3], a5, n] + 
    2*S2[a1, a4, a6, SP[a2, a5], a3, n] + S2[a1, a4, SP[a2, a3], a5, a6, n] + 
    S2[a1, a4, SP[a2, a3], a6, a5, n] + S2[a1, a4, SP[a2, a5], a3, a6, n] + 
    S2[a1, a4, SP[a2, a5], a6, a3, n] - S2[a1, a4, SP[a3, a6], a2, a5, n] - 
    S2[a1, a4, SP[a3, a6], a5, a2, n] - S2[a1, a4, SP[a5, a6], a3, a2, n] - 
    S2[a6, n]*S2[a1, a5, a3, a2, a4, n] - S2[a1, a5, a3, a2, SP[a4, a6], n] - 
    S2[a6, n]*S2[a1, a5, a3, a4, a2, n] + 
    S2[a2, n]*S2[a1, a5, a3, a4, a6, n] + 
    S2[a2, n]*S2[a1, a5, a3, a6, a4, n] + S2[a1, a5, a3, a6, SP[a2, a4], n] + 
    S2[a1, a5, a3, SP[a2, a4], a6, n] - S2[a1, a5, a3, SP[a4, a6], a2, n] - 
    S2[a6, n]*S2[a1, a5, a4, a2, a3, n] - S2[a1, a5, a4, a2, SP[a3, a6], n] - 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] + 
    S2[a2, n]*S2[a1, a5, a4, a3, a6, n] + 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] + S2[a1, a5, a4, a6, SP[a2, a3], n] + 
    S2[a1, a5, a4, SP[a2, a3], a6, n] - S2[a1, a5, a4, SP[a3, a6], a2, n] - 
    S2[a4, n]*S2[a1, a5, a6, a2, a3, n] - S2[a1, a5, a6, a2, SP[a3, a4], n] + 
    S2[a2, n]*S2[a1, a5, a6, a3, a4, n] + S2[a1, a5, a6, a3, SP[a2, a4], n] + 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] + S2[a1, a5, a6, a4, SP[a2, a3], n] + 
    S2[a1, a5, a6, SP[a2, a3], a4, n] + S2[a1, a5, SP[a2, a3], a4, a6, n] + 
    S2[a1, a5, SP[a2, a3], a6, a4, n] + S2[a1, a5, SP[a2, a4], a3, a6, n] + 
    S2[a1, a5, SP[a2, a4], a6, a3, n] + S2[a1, a5, SP[a2, a6], a3, a4, n] + 
    S2[a1, a5, SP[a2, a6], a4, a3, n] - S2[a1, a5, SP[a3, a6], a2, a4, n] - 
    S2[a1, a5, SP[a3, a6], a4, a2, n] - 2*S2[a1, a5, SP[a4, a6], a2, a3, n] - 
    S2[a1, a5, SP[a4, a6], a3, a2, n] - S2[a4, n]*S2[a1, a6, a2, a3, a5, n] - 
    S2[a1, a6, a2, a3, SP[a4, a5], n] - S2[a4, n]*S2[a1, a6, a2, a5, a3, n] - 
    S2[a1, a6, a2, a5, SP[a3, a4], n] - S2[a1, a6, a2, SP[a3, a4], a5, n] - 
    S2[a1, a6, a2, SP[a4, a5], a3, n] + S2[a2, n]*S2[a1, a6, a3, a4, a5, n] + 
    S2[a1, a6, a3, a4, SP[a2, a5], n] + S2[a2, n]*S2[a1, a6, a3, a5, a4, n] + 
    S2[a1, a6, a3, a5, SP[a2, a4], n] + S2[a1, a6, a3, SP[a2, a4], a5, n] + 
    S2[a1, a6, a3, SP[a2, a5], a4, n] + S2[a5, n]*S2[a1, a6, a4, a2, a3, n] + 
    S2[a1, a6, a4, a2, SP[a3, a5], n] + S2[a2, n]*S2[a1, a6, a4, a3, a5, n] + 
    S2[a1, a6, a4, a3, SP[a2, a5], n] + S2[a2, n]*S2[a1, a6, a4, a5, a3, n] + 
    S2[a1, a6, a4, a5, SP[a2, a3], n] + S2[a1, a6, a4, SP[a2, a3], a5, n] + 
    2*S2[a1, a6, a4, SP[a2, a5], a3, n] - 
    S2[a4, n]*S2[a1, a6, a5, a2, a3, n] - S2[a1, a6, a5, a2, SP[a3, a4], n] + 
    S2[a2, n]*S2[a1, a6, a5, a3, a4, n] + S2[a1, a6, a5, a3, SP[a2, a4], n] + 
    S2[a2, n]*S2[a1, a6, a5, a4, a3, n] + S2[a1, a6, a5, a4, SP[a2, a3], n] + 
    S2[a1, a6, a5, SP[a2, a3], a4, n] + S2[a1, a6, SP[a2, a3], a4, a5, n] + 
    S2[a1, a6, SP[a2, a3], a5, a4, n] + S2[a1, a6, SP[a2, a5], a3, a4, n] + 
    S2[a1, a6, SP[a2, a5], a4, a3, n] + S2[a1, SP[a2, a3], a4, a5, a6, n] + 
    S2[a1, SP[a2, a3], a4, a6, a5, n] + S2[a1, SP[a2, a3], a5, a4, a6, n] + 
    S2[a1, SP[a2, a3], a5, a6, a4, n] + S2[a1, SP[a2, a3], a6, a4, a5, n] + 
    S2[a1, SP[a2, a3], a6, a5, a4, n] + S2[a1, SP[a2, a4], a3, a5, a6, n] + 
    S2[a1, SP[a2, a4], a3, a6, a5, n] + S2[a1, SP[a2, a4], a5, a3, a6, n] + 
    S2[a1, SP[a2, a4], a5, a6, a3, n] + S2[a1, SP[a2, a4], a6, a3, a5, n] + 
    S2[a1, SP[a2, a4], a6, a5, a3, n] + S2[a1, SP[a2, a6], a3, a4, a5, n] + 
    S2[a1, SP[a2, a6], a3, a5, a4, n] + S2[a1, SP[a2, a6], a4, a3, a5, n] + 
    S2[a1, SP[a2, a6], a4, a5, a3, n] + S2[a1, SP[a2, a6], a5, a3, a4, n] + 
    S2[a1, SP[a2, a6], a5, a4, a3, n] - S2[a1, SP[a3, a6], a2, a4, a5, n] - 
    S2[a1, SP[a3, a6], a2, a5, a4, n] - S2[a1, SP[a3, a6], a4, a2, a5, n] - 
    S2[a1, SP[a3, a6], a4, a5, a2, n] - S2[a1, SP[a3, a6], a5, a2, a4, n] - 
    S2[a1, SP[a3, a6], a5, a4, a2, n] - 2*S2[a1, SP[a4, a6], a2, a3, a5, n] - 
    2*S2[a1, SP[a4, a6], a2, a5, a3, n] - S2[a1, SP[a4, a6], a3, a2, a5, n] - 
    S2[a1, SP[a4, a6], a3, a5, a2, n] - 2*S2[a1, SP[a4, a6], a5, a2, a3, n] - 
    S2[a1, SP[a4, a6], a5, a3, a2, n] - S2[a1, SP[a5, a6], a3, a2, a4, n] - 
    S2[a1, SP[a5, a6], a3, a4, a2, n] - S2[a1, SP[a5, a6], a4, a3, a2, n] - 
    S2[a2, a1, a3, a4, SP[a5, a6], n] - S2[a2, a1, a3, a6, SP[a4, a5], n] - 
    S2[a2, a1, a3, SP[a4, a5], a6, n] - S2[a2, a1, a3, SP[a5, a6], a4, n] - 
    S2[a2, a1, a4, a3, SP[a5, a6], n] - S2[a2, a1, a4, a6, SP[a3, a5], n] - 
    S2[a2, a1, a4, SP[a3, a5], a6, n] - S2[a2, a1, a4, SP[a5, a6], a3, n] - 
    S2[a2, a1, a6, a3, SP[a4, a5], n] - S2[a2, a1, a6, a4, SP[a3, a5], n] - 
    S2[a2, a1, a6, SP[a3, a5], a4, n] - S2[a2, a1, a6, SP[a4, a5], a3, n] - 
    S2[a2, a1, SP[a3, a5], a4, a6, n] - S2[a2, a1, SP[a3, a5], a6, a4, n] - 
    S2[a2, a1, SP[a4, a5], a3, a6, n] - S2[a2, a1, SP[a4, a5], a6, a3, n] - 
    S2[a2, a1, SP[a5, a6], a3, a4, n] - S2[a2, a1, SP[a5, a6], a4, a3, n] + 
    S2[a6, n]*S2[a2, a3, a1, a4, a5, n] + 
    S2[a6, n]*S2[a2, a3, a1, a5, a4, n] + S2[a2, a3, a1, a5, SP[a4, a6], n] - 
    S2[a2, a3, a1, a6, SP[a4, a5], n] - S2[a2, a3, a1, SP[a4, a5], a6, n] + 
    S2[a2, a3, a1, SP[a4, a6], a5, n] + S2[a6, n]*S2[a2, a3, a4, a1, a5, n] - 
    S2[a2, a3, a6, a1, SP[a4, a5], n] - S2[a2, a3, a6, SP[a1, a4], a5, n] - 
    S2[a2, a3, SP[a1, a4], a5, a6, n] - S2[a2, a3, SP[a1, a4], a6, a5, n] + 
    S2[a2, a3, SP[a4, a6], a1, a5, n] + S2[a6, n]*S2[a2, a4, a1, a3, a5, n] + 
    S2[a6, n]*S2[a2, a4, a1, a5, a3, n] + S2[a2, a4, a1, a5, SP[a3, a6], n] - 
    S2[a2, a4, a1, a6, SP[a3, a5], n] - S2[a2, a4, a1, SP[a3, a5], a6, n] + 
    S2[a2, a4, a1, SP[a3, a6], a5, n] + S2[a6, n]*S2[a2, a4, a3, a1, a5, n] - 
    S2[a2, a4, a6, a1, SP[a3, a5], n] - S2[a2, a4, a6, SP[a1, a3], a5, n] - 
    S2[a2, a4, SP[a1, a3], a5, a6, n] - S2[a2, a4, SP[a1, a3], a6, a5, n] + 
    S2[a2, a4, SP[a3, a6], a1, a5, n] + S2[a4, n]*S2[a2, a6, a1, a3, a5, n] - 
    S2[a2, a6, a1, a4, SP[a3, a5], n] + S2[a4, n]*S2[a2, a6, a1, a5, a3, n] + 
    S2[a2, a6, a1, a5, SP[a3, a4], n] + S2[a2, a6, a1, SP[a3, a4], a5, n] - 
    S2[a2, a6, a1, SP[a3, a5], a4, n] - S2[a2, a6, a3, a1, SP[a4, a5], n] - 
    S2[a2, a6, a3, SP[a1, a4], a5, n] - S2[a2, a6, a4, a1, SP[a3, a5], n] - 
    S2[a2, a6, a4, SP[a1, a3], a5, n] - S2[a2, a6, SP[a1, a3], a4, a5, n] - 
    S2[a2, a6, SP[a1, a3], a5, a4, n] - S2[a2, SP[a1, a3], a4, a5, a6, n] - 
    S2[a2, SP[a1, a3], a4, a6, a5, n] - S2[a2, SP[a1, a3], a5, a4, a6, n] - 
    S2[a2, SP[a1, a3], a5, a6, a4, n] - S2[a2, SP[a1, a3], a6, a4, a5, n] - 
    S2[a2, SP[a1, a3], a6, a5, a4, n] - S2[a2, SP[a1, a4], a3, a5, a6, n] - 
    S2[a2, SP[a1, a4], a3, a6, a5, n] - S2[a2, SP[a1, a4], a5, a3, a6, n] - 
    S2[a2, SP[a1, a4], a5, a6, a3, n] - S2[a2, SP[a1, a4], a6, a3, a5, n] - 
    S2[a2, SP[a1, a4], a6, a5, a3, n] - S2[a2, SP[a1, a6], a3, a4, a5, n] - 
    S2[a2, SP[a1, a6], a3, a5, a4, n] - S2[a2, SP[a1, a6], a4, a3, a5, n] - 
    S2[a2, SP[a1, a6], a4, a5, a3, n] - S2[a2, SP[a1, a6], a5, a3, a4, n] - 
    S2[a2, SP[a1, a6], a5, a4, a3, n] + S2[a2, SP[a3, a6], a1, a4, a5, n] + 
    S2[a2, SP[a3, a6], a1, a5, a4, n] + S2[a2, SP[a3, a6], a4, a1, a5, n] + 
    2*S2[a2, SP[a4, a6], a1, a3, a5, n] + 
    2*S2[a2, SP[a4, a6], a1, a5, a3, n] + S2[a2, SP[a4, a6], a3, a1, a5, n] + 
    S2[a4, a1, a6, a2, SP[a3, a5], n] + S2[a4, a1, a6, SP[a2, a5], a3, n] + 
    S2[a4, a1, SP[a5, a6], a2, a3, n] + S2[a4, a6, a1, a2, SP[a3, a5], n] - 
    S2[a2, n]*S2[a4, a6, a1, a3, a5, n] - S2[a4, a6, a1, a3, SP[a2, a5], n] - 
    S2[a2, n]*S2[a4, a6, a1, a5, a3, n] - S2[a4, a6, a1, a5, SP[a2, a3], n] - 
    S2[a4, a6, a1, SP[a2, a3], a5, n] + S2[a4, a6, a2, a1, SP[a3, a5], n] + 
    S2[a4, a6, a2, SP[a1, a3], a5, n] + S2[a4, SP[a1, a6], a2, a3, a5, n] + 
    S2[a4, SP[a1, a6], a2, a5, a3, n] + S2[a4, SP[a1, a6], a5, a2, a3, n] - 
    S2[a4, SP[a2, a6], a1, a3, a5, n] - S2[a4, SP[a2, a6], a1, a5, a3, n] + 
    S2[a4, n]*S2[a6, a1, a3, a2, a5, n] + S2[a6, a1, a3, a2, SP[a4, a5], n] + 
    S2[a4, n]*S2[a6, a1, a3, a5, a2, n] + S2[a6, a1, a3, a5, SP[a2, a4], n] + 
    S2[a6, a1, a3, SP[a2, a4], a5, n] + S2[a6, a1, a3, SP[a4, a5], a2, n] + 
    S2[a4, n]*S2[a6, a1, a5, a3, a2, n] + S2[a6, a1, a5, a3, SP[a2, a4], n] + 
    S2[a6, a1, a5, SP[a3, a4], a2, n] + S2[a6, a1, SP[a3, a4], a2, a5, n] + 
    S2[a6, a1, SP[a3, a4], a5, a2, n] + S2[a6, a1, SP[a4, a5], a3, a2, n] - 
    S2[a4, n]*S2[a6, a2, a3, a1, a5, n] - S2[a6, a2, a3, a1, SP[a4, a5], n] - 
    S2[a6, a2, a3, SP[a1, a4], a5, n] - S2[a6, a2, SP[a3, a4], a1, a5, n] - 
    S2[a2, n]*S2[a6, a4, a1, a3, a5, n] - S2[a6, a4, a1, a3, SP[a2, a5], n] - 
    S2[a2, n]*S2[a6, a4, a1, a5, a3, n] - S2[a6, a4, a1, a5, SP[a2, a3], n] - 
    S2[a6, a4, a1, SP[a2, a3], a5, n] - S2[a6, a4, a1, SP[a2, a5], a3, n] - 
    S2[a6, a4, SP[a1, a2], a3, a5, n] - S2[a6, a4, SP[a1, a2], a5, a3, n] + 
    S2[a6, SP[a1, a4], a3, a2, a5, n] + S2[a6, SP[a1, a4], a3, a5, a2, n] + 
    S2[a6, SP[a1, a4], a5, a3, a2, n] - S2[a6, SP[a2, a4], a1, a3, a5, n] - 
    S2[a6, SP[a2, a4], a1, a5, a3, n] - S2[a6, SP[a2, a4], a3, a1, a5, n] + 
    S2[SP[a1, a5], a6, a4, a2, a3, n] - S2[SP[a1, a6], a3, a2, a4, a5, n] - 
    S2[SP[a1, a6], a3, a2, a5, a4, n] - S2[SP[a1, a6], a3, a4, a2, a5, n] - 
    S2[SP[a1, a6], a3, a4, a5, a2, n] - S2[SP[a1, a6], a3, a5, a2, a4, n] - 
    S2[SP[a1, a6], a3, a5, a4, a2, n] - S2[SP[a1, a6], a4, a2, a3, a5, n] - 
    S2[SP[a1, a6], a4, a2, a5, a3, n] - S2[SP[a1, a6], a4, a3, a2, a5, n] - 
    S2[SP[a1, a6], a4, a3, a5, a2, n] - S2[SP[a1, a6], a4, a5, a2, a3, n] - 
    S2[SP[a1, a6], a4, a5, a3, a2, n] - S2[SP[a1, a6], a5, a3, a2, a4, n] - 
    S2[SP[a1, a6], a5, a3, a4, a2, n] - S2[SP[a1, a6], a5, a4, a2, a3, n] - 
    S2[SP[a1, a6], a5, a4, a3, a2, n] + S2[SP[a2, a6], a3, a1, a4, a5, n] + 
    S2[SP[a2, a6], a3, a1, a5, a4, n] + S2[SP[a2, a6], a3, a4, a1, a5, n] + 
    S2[SP[a2, a6], a4, a3, a1, a5, n] + S2[SP[a4, a6], a1, a3, a2, a5, n] + 
    S2[SP[a4, a6], a1, a3, a5, a2, n] + S2[SP[a4, a6], a1, a5, a3, a2, n] - 
    S2[SP[a4, a6], a2, a3, a1, a5, n] + S2[a6, a1, a4, a2, a3, a5, n] + 
    S2[a6, a1, a4, a2, a5, a3, n] + S2[a6, a1, a4, a5, a2, a3, n] + 
    S2[a6, a1, a5, a4, a2, a3, n] + S2[a6, a4, a1, a2, a3, a5, n] + 
    S2[a6, a4, a1, a2, a5, a3, n] + S2[a6, a4, a1, a5, a2, a3, n] + 
    S2[a6, a4, a2, a1, a3, a5, n] + S2[a6, a4, a2, a1, a5, a3, n] + 
    S2[a6, a4, a2, a3, a1, a5, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a5_, a1_, a6_, a4_, a3_, a2_, n_] :> 
  S2[a1, a5, n]*S2[a2, a3, a4, a6, n] + S2[a1, a5, n]*S2[a2, a3, a6, a4, n] - 
    S2[a2, a3, SP[a1, a4], SP[a5, a6], n] - S2[a2, a3, SP[a1, a6], 
     SP[a4, a5], n] + S2[a1, a5, n]*S2[a2, a6, a3, a4, n] + 
    S2[a1, a5, n]*S2[a2, a6, a4, a3, n] - S2[a2, a6, SP[a1, a3], SP[a4, a5], 
     n] - S2[a2, a6, SP[a1, a4], SP[a3, a5], n] - S2[a2, SP[a1, a3], a4, 
     SP[a5, a6], n] - S2[a2, SP[a1, a3], a6, SP[a4, a5], n] - 
    S2[a2, SP[a1, a3], SP[a4, a5], a6, n] - S2[a2, SP[a1, a3], SP[a5, a6], 
     a4, n] - S2[a2, SP[a1, a6], a3, SP[a4, a5], n] - 
    S2[a2, SP[a1, a6], a4, SP[a3, a5], n] - S2[a2, SP[a1, a6], SP[a3, a5], 
     a4, n] - S2[a2, SP[a1, a6], SP[a4, a5], a3, n] - 
    S2[a1, a5, n]*S2[a4, a6, a2, a3, n] + S2[a4, a6, SP[a1, a2], SP[a3, a5], 
     n] + S2[a4, SP[a1, a6], a2, SP[a3, a5], n] + 
    S2[a4, SP[a1, a6], SP[a2, a5], a3, n] - S2[SP[a1, a2], a3, a4, 
     SP[a5, a6], n] - S2[SP[a1, a2], a3, a6, SP[a4, a5], n] - 
    S2[SP[a1, a2], a3, SP[a4, a5], a6, n] - S2[SP[a1, a2], a3, SP[a5, a6], 
     a4, n] - S2[SP[a1, a2], a6, a3, SP[a4, a5], n] - 
    S2[SP[a1, a2], a6, a4, SP[a3, a5], n] - S2[SP[a1, a2], a6, SP[a3, a5], 
     a4, n] - S2[SP[a1, a2], a6, SP[a4, a5], a3, n] - 
    S2[SP[a1, a2], SP[a3, a5], a4, a6, n] - S2[SP[a1, a2], SP[a3, a5], a6, 
     a4, n] - S2[SP[a1, a2], SP[a5, a6], a3, a4, n] - 
    S2[SP[a1, a2], SP[a5, a6], a4, a3, n] + S2[SP[a1, a4], a6, a2, 
     SP[a3, a5], n] + S2[SP[a1, a4], a6, SP[a2, a5], a3, n] + 
    S2[SP[a1, a4], SP[a5, a6], a2, a3, n] + S2[a1, a2, a3, a4, SP[a5, a6], 
     n] + S2[a1, a2, a3, a6, SP[a4, a5], n] + S2[a1, a2, a3, SP[a4, a5], a6, 
     n] + S2[a1, a2, a3, SP[a5, a6], a4, n] + S2[a1, a2, a6, a3, SP[a4, a5], 
     n] + S2[a1, a2, a6, a4, SP[a3, a5], n] + S2[a1, a2, a6, SP[a3, a5], a4, 
     n] + S2[a1, a2, a6, SP[a4, a5], a3, n] + S2[a1, a2, SP[a3, a5], a4, a6, 
     n] + S2[a1, a2, SP[a3, a5], a6, a4, n] + S2[a1, a2, SP[a5, a6], a3, a4, 
     n] + S2[a1, a2, SP[a5, a6], a4, a3, n] + 
    S2[a6, n]*S2[a1, a3, a2, a4, a5, n] + S2[a1, a3, a2, a4, SP[a5, a6], n] + 
    S2[a6, n]*S2[a1, a3, a2, a5, a4, n] + S2[a1, a3, a2, a5, SP[a4, a6], n] + 
    S2[a1, a3, a2, SP[a4, a6], a5, n] + S2[a1, a3, a2, SP[a5, a6], a4, n] + 
    S2[a6, n]*S2[a1, a3, a4, a2, a5, n] + S2[a1, a3, a4, a2, SP[a5, a6], n] + 
    S2[a6, n]*S2[a1, a3, a4, a5, a2, n] - 
    S2[a2, n]*S2[a1, a3, a4, a5, a6, n] - 
    S2[a2, n]*S2[a1, a3, a4, a6, a5, n] - S2[a1, a3, a4, a6, SP[a2, a5], n] - 
    S2[a1, a3, a4, SP[a2, a5], a6, n] + S2[a1, a3, a4, SP[a5, a6], a2, n] + 
    S2[a6, n]*S2[a1, a3, a5, a2, a4, n] + S2[a1, a3, a5, a2, SP[a4, a6], n] + 
    S2[a6, n]*S2[a1, a3, a5, a4, a2, n] - 
    S2[a2, n]*S2[a1, a3, a5, a4, a6, n] - 
    S2[a2, n]*S2[a1, a3, a5, a6, a4, n] - S2[a1, a3, a5, a6, SP[a2, a4], n] - 
    S2[a1, a3, a5, SP[a2, a4], a6, n] + S2[a1, a3, a5, SP[a4, a6], a2, n] - 
    S2[a2, n]*S2[a1, a3, a6, a4, a5, n] - S2[a1, a3, a6, a4, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a3, a6, a5, a4, n] - S2[a1, a3, a6, a5, SP[a2, a4], n] - 
    S2[a1, a3, a6, SP[a2, a4], a5, n] - S2[a1, a3, a6, SP[a2, a5], a4, n] - 
    S2[a1, a3, SP[a2, a4], a5, a6, n] - S2[a1, a3, SP[a2, a4], a6, a5, n] - 
    S2[a1, a3, SP[a2, a5], a4, a6, n] - S2[a1, a3, SP[a2, a5], a6, a4, n] + 
    S2[a1, a3, SP[a4, a6], a2, a5, n] + S2[a1, a3, SP[a4, a6], a5, a2, n] + 
    S2[a1, a3, SP[a5, a6], a2, a4, n] + S2[a1, a3, SP[a5, a6], a4, a2, n] - 
    S2[a1, a4, a6, a2, SP[a3, a5], n] - S2[a1, a4, a6, SP[a2, a5], a3, n] - 
    S2[a1, a4, SP[a5, a6], a2, a3, n] + S2[a6, n]*S2[a1, a5, a3, a2, a4, n] + 
    S2[a1, a5, a3, a2, SP[a4, a6], n] + S2[a6, n]*S2[a1, a5, a3, a4, a2, n] - 
    S2[a2, n]*S2[a1, a5, a3, a4, a6, n] - 
    S2[a2, n]*S2[a1, a5, a3, a6, a4, n] - S2[a1, a5, a3, a6, SP[a2, a4], n] - 
    S2[a1, a5, a3, SP[a2, a4], a6, n] + S2[a1, a5, a3, SP[a4, a6], a2, n] + 
    S2[a4, n]*S2[a1, a5, a6, a2, a3, n] + S2[a1, a5, a6, a2, SP[a3, a4], n] - 
    S2[a2, n]*S2[a1, a5, a6, a3, a4, n] - S2[a1, a5, a6, a3, SP[a2, a4], n] - 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] - S2[a1, a5, a6, a4, SP[a2, a3], n] - 
    S2[a1, a5, a6, SP[a2, a3], a4, n] - S2[a1, a5, SP[a2, a3], a4, a6, n] - 
    S2[a1, a5, SP[a2, a3], a6, a4, n] - S2[a1, a5, SP[a2, a6], a3, a4, n] - 
    S2[a1, a5, SP[a2, a6], a4, a3, n] + S2[a1, a5, SP[a3, a6], a2, a4, n] + 
    S2[a1, a5, SP[a3, a6], a4, a2, n] + S2[a1, a5, SP[a4, a6], a2, a3, n] + 
    S2[a4, n]*S2[a1, a6, a2, a3, a5, n] + S2[a1, a6, a2, a3, SP[a4, a5], n] + 
    S2[a4, n]*S2[a1, a6, a2, a5, a3, n] + S2[a1, a6, a2, a5, SP[a3, a4], n] + 
    S2[a1, a6, a2, SP[a3, a4], a5, n] + S2[a1, a6, a2, SP[a4, a5], a3, n] - 
    S2[a2, n]*S2[a1, a6, a3, a4, a5, n] - S2[a1, a6, a3, a4, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a6, a3, a5, a4, n] - S2[a1, a6, a3, a5, SP[a2, a4], n] - 
    S2[a1, a6, a3, SP[a2, a4], a5, n] - S2[a1, a6, a3, SP[a2, a5], a4, n] + 
    S2[a5, n]*S2[a1, a6, a4, a3, a2, n] - 
    S2[a2, n]*S2[a1, a6, a4, a3, a5, n] - 
    S2[a2, n]*S2[a1, a6, a4, a5, a3, n] - S2[a1, a6, a4, a5, SP[a2, a3], n] - 
    S2[a1, a6, a4, SP[a2, a3], a5, n] - S2[a1, a6, a4, SP[a2, a5], a3, n] + 
    S2[a1, a6, a4, SP[a3, a5], a2, n] + S2[a4, n]*S2[a1, a6, a5, a2, a3, n] + 
    S2[a1, a6, a5, a2, SP[a3, a4], n] - S2[a2, n]*S2[a1, a6, a5, a3, a4, n] - 
    S2[a1, a6, a5, a3, SP[a2, a4], n] - S2[a2, n]*S2[a1, a6, a5, a4, a3, n] - 
    S2[a1, a6, a5, a4, SP[a2, a3], n] - S2[a1, a6, a5, SP[a2, a3], a4, n] - 
    S2[a1, a6, SP[a2, a3], a4, a5, n] - S2[a1, a6, SP[a2, a3], a5, a4, n] - 
    S2[a1, a6, SP[a2, a5], a3, a4, n] - S2[a1, a6, SP[a2, a5], a4, a3, n] + 
    S2[a1, a6, SP[a4, a5], a2, a3, n] + S2[a1, a6, SP[a4, a5], a3, a2, n] - 
    S2[a1, SP[a2, a3], a4, a5, a6, n] - S2[a1, SP[a2, a3], a4, a6, a5, n] - 
    S2[a1, SP[a2, a3], a5, a4, a6, n] - S2[a1, SP[a2, a3], a5, a6, a4, n] - 
    S2[a1, SP[a2, a3], a6, a4, a5, n] - S2[a1, SP[a2, a3], a6, a5, a4, n] - 
    S2[a1, SP[a2, a6], a3, a4, a5, n] - S2[a1, SP[a2, a6], a3, a5, a4, n] - 
    S2[a1, SP[a2, a6], a4, a3, a5, n] - S2[a1, SP[a2, a6], a4, a5, a3, n] - 
    S2[a1, SP[a2, a6], a5, a3, a4, n] - S2[a1, SP[a2, a6], a5, a4, a3, n] + 
    S2[a1, SP[a3, a6], a2, a4, a5, n] + S2[a1, SP[a3, a6], a2, a5, a4, n] + 
    S2[a1, SP[a3, a6], a4, a2, a5, n] + S2[a1, SP[a3, a6], a4, a5, a2, n] + 
    S2[a1, SP[a3, a6], a5, a2, a4, n] + S2[a1, SP[a3, a6], a5, a4, a2, n] + 
    S2[a1, SP[a4, a6], a2, a3, a5, n] + S2[a1, SP[a4, a6], a2, a5, a3, n] + 
    S2[a1, SP[a4, a6], a5, a2, a3, n] + S2[a1, SP[a5, a6], a3, a2, a4, n] + 
    S2[a1, SP[a5, a6], a3, a4, a2, n] + S2[a1, SP[a5, a6], a4, a3, a2, n] + 
    S2[a2, a1, a3, a4, SP[a5, a6], n] + S2[a2, a1, a3, a6, SP[a4, a5], n] + 
    S2[a2, a1, a3, SP[a4, a5], a6, n] + S2[a2, a1, a3, SP[a5, a6], a4, n] + 
    S2[a2, a1, a6, a3, SP[a4, a5], n] + S2[a2, a1, a6, a4, SP[a3, a5], n] + 
    S2[a2, a1, a6, SP[a3, a5], a4, n] + S2[a2, a1, a6, SP[a4, a5], a3, n] + 
    S2[a2, a1, SP[a3, a5], a4, a6, n] + S2[a2, a1, SP[a3, a5], a6, a4, n] + 
    S2[a2, a1, SP[a5, a6], a3, a4, n] + S2[a2, a1, SP[a5, a6], a4, a3, n] - 
    S2[a6, n]*S2[a2, a3, a1, a4, a5, n] - 
    S2[a6, n]*S2[a2, a3, a1, a5, a4, n] - S2[a2, a3, a1, a5, SP[a4, a6], n] + 
    S2[a2, a3, a1, a6, SP[a4, a5], n] + S2[a2, a3, a1, SP[a4, a5], a6, n] - 
    S2[a2, a3, a1, SP[a4, a6], a5, n] - S2[a6, n]*S2[a2, a3, a4, a1, a5, n] + 
    S2[a2, a3, a6, a1, SP[a4, a5], n] + S2[a2, a3, a6, SP[a1, a4], a5, n] + 
    S2[a2, a3, SP[a1, a4], a5, a6, n] + S2[a2, a3, SP[a1, a4], a6, a5, n] - 
    S2[a2, a3, SP[a4, a6], a1, a5, n] - S2[a4, n]*S2[a2, a6, a1, a3, a5, n] + 
    S2[a2, a6, a1, a4, SP[a3, a5], n] - S2[a4, n]*S2[a2, a6, a1, a5, a3, n] - 
    S2[a2, a6, a1, a5, SP[a3, a4], n] - S2[a2, a6, a1, SP[a3, a4], a5, n] + 
    S2[a2, a6, a1, SP[a3, a5], a4, n] + S2[a2, a6, a3, a1, SP[a4, a5], n] + 
    S2[a2, a6, a3, SP[a1, a4], a5, n] + S2[a2, a6, a4, a1, SP[a3, a5], n] + 
    S2[a2, a6, a4, SP[a1, a3], a5, n] + S2[a2, a6, SP[a1, a3], a4, a5, n] + 
    S2[a2, a6, SP[a1, a3], a5, a4, n] + S2[a2, SP[a1, a3], a4, a5, a6, n] + 
    S2[a2, SP[a1, a3], a4, a6, a5, n] + S2[a2, SP[a1, a3], a5, a4, a6, n] + 
    S2[a2, SP[a1, a3], a5, a6, a4, n] + S2[a2, SP[a1, a3], a6, a4, a5, n] + 
    S2[a2, SP[a1, a3], a6, a5, a4, n] + S2[a2, SP[a1, a6], a3, a4, a5, n] + 
    S2[a2, SP[a1, a6], a3, a5, a4, n] + S2[a2, SP[a1, a6], a4, a3, a5, n] + 
    S2[a2, SP[a1, a6], a4, a5, a3, n] + S2[a2, SP[a1, a6], a5, a3, a4, n] + 
    S2[a2, SP[a1, a6], a5, a4, a3, n] - S2[a2, SP[a3, a6], a1, a4, a5, n] - 
    S2[a2, SP[a3, a6], a1, a5, a4, n] - S2[a2, SP[a3, a6], a4, a1, a5, n] - 
    S2[a2, SP[a4, a6], a1, a3, a5, n] - S2[a2, SP[a4, a6], a1, a5, a3, n] - 
    S2[a4, a1, a6, a2, SP[a3, a5], n] - S2[a4, a1, a6, SP[a2, a5], a3, n] - 
    S2[a4, a1, SP[a5, a6], a2, a3, n] - S2[a4, a6, a1, a2, SP[a3, a5], n] + 
    S2[a2, n]*S2[a4, a6, a1, a3, a5, n] + S2[a4, a6, a1, a3, SP[a2, a5], n] + 
    S2[a2, n]*S2[a4, a6, a1, a5, a3, n] + S2[a4, a6, a1, a5, SP[a2, a3], n] + 
    S2[a4, a6, a1, SP[a2, a3], a5, n] - S2[a4, a6, a2, a1, SP[a3, a5], n] - 
    S2[a4, a6, a2, SP[a1, a3], a5, n] - S2[a4, SP[a1, a6], a2, a3, a5, n] - 
    S2[a4, SP[a1, a6], a2, a5, a3, n] - S2[a4, SP[a1, a6], a5, a2, a3, n] + 
    S2[a4, SP[a2, a6], a1, a3, a5, n] + S2[a4, SP[a2, a6], a1, a5, a3, n] - 
    S2[a4, n]*S2[a6, a1, a3, a2, a5, n] - S2[a6, a1, a3, a2, SP[a4, a5], n] - 
    S2[a4, n]*S2[a6, a1, a3, a5, a2, n] - S2[a6, a1, a3, a5, SP[a2, a4], n] - 
    S2[a6, a1, a3, SP[a2, a4], a5, n] - S2[a6, a1, a3, SP[a4, a5], a2, n] - 
    S2[a4, n]*S2[a6, a1, a5, a3, a2, n] - S2[a6, a1, a5, a3, SP[a2, a4], n] - 
    S2[a6, a1, a5, SP[a3, a4], a2, n] - S2[a6, a1, SP[a3, a4], a2, a5, n] - 
    S2[a6, a1, SP[a3, a4], a5, a2, n] - S2[a6, a1, SP[a4, a5], a3, a2, n] + 
    S2[a4, n]*S2[a6, a2, a3, a1, a5, n] + S2[a6, a2, a3, a1, SP[a4, a5], n] + 
    S2[a6, a2, a3, SP[a1, a4], a5, n] + S2[a6, a2, SP[a3, a4], a1, a5, n] - 
    S2[a2, n]*S2[a6, a4, a3, a1, a5, n] - S2[a6, a4, a3, a1, SP[a2, a5], n] - 
    S2[a6, a4, a3, SP[a1, a2], a5, n] - S2[a6, a4, SP[a2, a3], a1, a5, n] - 
    S2[a6, SP[a1, a4], a3, a2, a5, n] - S2[a6, SP[a1, a4], a3, a5, a2, n] - 
    S2[a6, SP[a1, a4], a5, a3, a2, n] + S2[SP[a1, a5], a6, a4, a3, a2, n] + 
    S2[SP[a1, a6], a3, a2, a4, a5, n] + S2[SP[a1, a6], a3, a2, a5, a4, n] + 
    S2[SP[a1, a6], a3, a4, a2, a5, n] + S2[SP[a1, a6], a3, a4, a5, a2, n] + 
    S2[SP[a1, a6], a3, a5, a2, a4, n] + S2[SP[a1, a6], a3, a5, a4, a2, n] + 
    S2[SP[a1, a6], a5, a3, a2, a4, n] + S2[SP[a1, a6], a5, a3, a4, a2, n] - 
    S2[SP[a2, a6], a3, a1, a4, a5, n] - S2[SP[a2, a6], a3, a1, a5, a4, n] - 
    S2[SP[a2, a6], a3, a4, a1, a5, n] - S2[SP[a2, a6], a4, a3, a1, a5, n] - 
    S2[SP[a4, a6], a1, a3, a2, a5, n] - S2[SP[a4, a6], a1, a3, a5, a2, n] - 
    S2[SP[a4, a6], a1, a5, a3, a2, n] + S2[SP[a4, a6], a2, a3, a1, a5, n] + 
    S2[a6, a1, a4, a3, a2, a5, n] + S2[a6, a1, a4, a3, a5, a2, n] + 
    S2[a6, a1, a4, a5, a3, a2, n] + S2[a6, a1, a5, a4, a3, a2, n] + 
    S2[a6, a4, a1, a3, a2, a5, n] + S2[a6, a4, a1, a3, a5, a2, n] + 
    S2[a6, a4, a1, a5, a3, a2, n] + S2[a6, a4, a3, a1, a2, a5, n] + 
    S2[a6, a4, a3, a1, a5, a2, n] + S2[a6, a4, a3, a2, a1, a5, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a5_, a2_, a1_, a3_, a4_, a6_, n_] :> 
  S2[a1, a2, a5, n]*S2[a3, a4, a6, n] + S2[SP[a1, a3], SP[a2, a4], 
     SP[a5, a6], n] + S2[a4, a6, n]*S2[a1, a2, a3, a5, n] + 
    S2[a4, a6, n]*S2[a1, a2, a5, a3, n] - S2[a1, a2, SP[a3, a4], SP[a5, a6], 
     n] - S2[a1, a2, SP[a4, a5], SP[a3, a6], n] + 
    S2[a4, a6, n]*S2[a1, a3, a2, a5, n] - S2[a2, a5, n]*
     S2[a1, a3, a4, a6, n] - S2[a1, a3, SP[a2, a4], SP[a5, a6], n] - 
    S2[a1, SP[a2, a4], a3, SP[a5, a6], n] - S2[a1, SP[a2, a4], a5, 
     SP[a3, a6], n] - S2[a1, SP[a2, a4], SP[a3, a6], a5, n] - 
    S2[a1, SP[a2, a4], SP[a5, a6], a3, n] - S2[a1, SP[a3, a4], a2, 
     SP[a5, a6], n] - S2[a1, SP[a3, a4], SP[a2, a6], a5, n] - 
    S2[a3, a1, SP[a2, a4], SP[a5, a6], n] - S2[a3, SP[a1, a4], a2, 
     SP[a5, a6], n] - S2[a3, SP[a1, a4], SP[a2, a6], a5, n] + 
    S2[SP[a1, a2], a3, a4, SP[a5, a6], n] + S2[SP[a1, a2], a3, SP[a4, a5], 
     a6, n] + S2[SP[a1, a2], SP[a3, a5], a4, a6, n] - 
    S2[SP[a1, a3], a2, a4, SP[a5, a6], n] - S2[SP[a1, a3], a2, SP[a4, a5], 
     a6, n] - S2[SP[a1, a3], a4, a2, SP[a5, a6], n] - 
    S2[SP[a1, a3], a4, SP[a2, a6], a5, n] - S2[SP[a1, a3], SP[a2, a4], a5, 
     a6, n] - S2[SP[a1, a3], SP[a2, a4], a6, a5, n] - 
    S2[SP[a1, a4], a2, a3, SP[a5, a6], n] - S2[SP[a1, a4], a2, a5, 
     SP[a3, a6], n] - S2[SP[a1, a4], a2, SP[a3, a6], a5, n] - 
    S2[SP[a1, a4], a2, SP[a5, a6], a3, n] - S2[SP[a1, a4], a3, a2, 
     SP[a5, a6], n] - S2[SP[a1, a4], a3, SP[a2, a6], a5, n] - 
    S2[SP[a1, a4], SP[a2, a6], a3, a5, n] - S2[SP[a1, a4], SP[a2, a6], a5, 
     a3, n] - S2[SP[a1, a4], SP[a3, a6], a2, a5, n] + 
    S2[a6, n]*S2[a1, a2, a3, a4, a5, n] - 
    S2[a5, n]*S2[a1, a2, a3, a4, a6, n] + S2[a1, a2, a3, a4, SP[a5, a6], n] + 
    S2[a6, n]*S2[a1, a2, a3, a5, a4, n] - 
    S2[a4, n]*S2[a1, a2, a3, a5, a6, n] - 
    S2[a4, n]*S2[a1, a2, a3, a6, a5, n] - S2[a1, a2, a3, a6, SP[a4, a5], n] - 
    S2[a1, a2, a3, SP[a4, a5], a6, n] + S2[a1, a2, a3, SP[a5, a6], a4, n] + 
    S2[a6, n]*S2[a1, a2, a4, a3, a5, n] + 
    2*S2[a1, a2, a4, a3, SP[a5, a6], n] + 
    S2[a6, n]*S2[a1, a2, a4, a5, a3, n] - 
    S2[a3, n]*S2[a1, a2, a4, a5, a6, n] + S2[a1, a2, a4, a5, SP[a3, a6], n] - 
    S2[a3, n]*S2[a1, a2, a4, a6, a5, n] - S2[a1, a2, a4, a6, SP[a3, a5], n] - 
    S2[a1, a2, a4, SP[a3, a5], a6, n] + S2[a1, a2, a4, SP[a3, a6], a5, n] + 
    2*S2[a1, a2, a4, SP[a5, a6], a3, n] + 
    S2[a6, n]*S2[a1, a2, a5, a3, a4, n] - 
    S2[a4, n]*S2[a1, a2, a5, a3, a6, n] + 
    S2[a6, n]*S2[a1, a2, a5, a4, a3, n] - 
    S2[a3, n]*S2[a1, a2, a5, a4, a6, n] + S2[a1, a2, a5, a4, SP[a3, a6], n] - 
    S2[a4, n]*S2[a1, a2, a5, a6, a3, n] - S2[a1, a2, a5, a6, SP[a3, a4], n] - 
    S2[a1, a2, a5, SP[a3, a4], a6, n] + S2[a1, a2, a5, SP[a3, a6], a4, n] - 
    S2[a4, n]*S2[a1, a2, a6, a3, a5, n] - S2[a1, a2, a6, a3, SP[a4, a5], n] - 
    S2[a4, n]*S2[a1, a2, a6, a5, a3, n] - S2[a1, a2, a6, a5, SP[a3, a4], n] - 
    S2[a1, a2, a6, SP[a3, a4], a5, n] - S2[a1, a2, a6, SP[a4, a5], a3, n] - 
    S2[a1, a2, SP[a3, a4], a5, a6, n] - S2[a1, a2, SP[a3, a4], a6, a5, n] - 
    2*S2[a1, a2, SP[a3, a5], a4, a6, n] + S2[a1, a2, SP[a3, a6], a4, a5, n] + 
    S2[a1, a2, SP[a3, a6], a5, a4, n] + S2[a1, a2, SP[a5, a6], a3, a4, n] + 
    S2[a1, a2, SP[a5, a6], a4, a3, n] + S2[a6, n]*S2[a1, a3, a2, a4, a5, n] - 
    S2[a5, n]*S2[a1, a3, a2, a4, a6, n] + S2[a1, a3, a2, a4, SP[a5, a6], n] + 
    S2[a6, n]*S2[a1, a3, a2, a5, a4, n] - 
    S2[a4, n]*S2[a1, a3, a2, a5, a6, n] - 
    S2[a4, n]*S2[a1, a3, a2, a6, a5, n] - S2[a1, a3, a2, a6, SP[a4, a5], n] - 
    S2[a1, a3, a2, SP[a4, a5], a6, n] + S2[a1, a3, a2, SP[a5, a6], a4, n] + 
    S2[a6, n]*S2[a1, a3, a4, a2, a5, n] - 
    S2[a5, n]*S2[a1, a3, a4, a2, a6, n] + S2[a1, a3, a4, a2, SP[a5, a6], n] + 
    S2[a2, n]*S2[a1, a3, a4, a5, a6, n] + S2[a1, a3, a4, a5, SP[a2, a6], n] - 
    S2[a5, n]*S2[a1, a3, a4, a6, a2, n] + 
    S2[a2, n]*S2[a1, a3, a4, a6, a5, n] + 
    3*S2[a1, a3, a4, SP[a2, a6], a5, n] - S2[a1, a3, a4, SP[a5, a6], a2, n] + 
    S2[a2, n]*S2[a1, a3, a5, a4, a6, n] + S2[a1, a3, a5, a4, SP[a2, a6], n] + 
    S2[a1, a3, a5, SP[a2, a4], a6, n] - S2[a4, n]*S2[a1, a3, a6, a2, a5, n] - 
    S2[a1, a3, a6, a2, SP[a4, a5], n] - S2[a1, a3, a6, SP[a2, a4], a5, n] + 
    S2[a1, a3, SP[a2, a4], a5, a6, n] + S2[a1, a3, SP[a2, a4], a6, a5, n] + 
    S2[a1, a3, SP[a2, a6], a4, a5, n] + S2[a1, a3, SP[a2, a6], a5, a4, n] - 
    S2[a1, a3, SP[a4, a5], a2, a6, n] - S2[a1, a3, SP[a4, a5], a6, a2, n] + 
    S2[a6, n]*S2[a1, a4, a2, a3, a5, n] + 
    2*S2[a1, a4, a2, a3, SP[a5, a6], n] + 
    S2[a6, n]*S2[a1, a4, a2, a5, a3, n] - 
    S2[a3, n]*S2[a1, a4, a2, a5, a6, n] + S2[a1, a4, a2, a5, SP[a3, a6], n] - 
    S2[a3, n]*S2[a1, a4, a2, a6, a5, n] - S2[a1, a4, a2, a6, SP[a3, a5], n] - 
    S2[a1, a4, a2, SP[a3, a5], a6, n] + S2[a1, a4, a2, SP[a3, a6], a5, n] + 
    2*S2[a1, a4, a2, SP[a5, a6], a3, n] + 
    S2[a6, n]*S2[a1, a4, a3, a2, a5, n] + 
    2*S2[a1, a4, a3, a2, SP[a5, a6], n] + 
    2*S2[a1, a4, a3, SP[a2, a6], a5, n] - 
    S2[a3, n]*S2[a1, a4, a6, a2, a5, n] - S2[a1, a4, a6, a2, SP[a3, a5], n] - 
    S2[a1, a4, a6, SP[a2, a3], a5, n] - S2[a1, a4, SP[a2, a3], a5, a6, n] - 
    S2[a1, a4, SP[a2, a3], a6, a5, n] + 2*S2[a1, a4, SP[a2, a6], a3, a5, n] + 
    2*S2[a1, a4, SP[a2, a6], a5, a3, n] + S2[a1, a4, SP[a3, a6], a2, a5, n] + 
    S2[a2, n]*S2[a1, a5, a3, a4, a6, n] + S2[a1, a5, a3, a4, SP[a2, a6], n] + 
    S2[a1, a5, a3, SP[a2, a4], a6, n] + S2[a1, a5, SP[a2, a3], a4, a6, n] - 
    S2[a4, n]*S2[a1, a6, a2, a3, a5, n] - S2[a1, a6, a2, a3, SP[a4, a5], n] - 
    S2[a4, n]*S2[a1, a6, a2, a5, a3, n] - S2[a1, a6, a2, a5, SP[a3, a4], n] - 
    S2[a1, a6, a2, SP[a3, a4], a5, n] - S2[a1, a6, a2, SP[a4, a5], a3, n] - 
    S2[a4, n]*S2[a1, a6, a3, a2, a5, n] - S2[a1, a6, a3, a2, SP[a4, a5], n] - 
    S2[a1, a6, a3, SP[a2, a4], a5, n] - S2[a1, a6, SP[a2, a4], a3, a5, n] - 
    S2[a1, a6, SP[a2, a4], a5, a3, n] - S2[a1, a6, SP[a3, a4], a2, a5, n] + 
    S2[a1, SP[a2, a6], a3, a4, a5, n] + S2[a1, SP[a2, a6], a3, a5, a4, n] + 
    S2[a1, SP[a2, a6], a4, a3, a5, n] + S2[a1, SP[a2, a6], a4, a5, a3, n] + 
    S2[a1, SP[a2, a6], a5, a3, a4, n] + S2[a1, SP[a2, a6], a5, a4, a3, n] - 
    S2[a1, SP[a3, a4], a2, a5, a6, n] - S2[a1, SP[a3, a4], a2, a6, a5, n] - 
    S2[a1, SP[a3, a4], a6, a2, a5, n] - S2[a1, SP[a3, a5], a2, a4, a6, n] - 
    S2[a1, SP[a3, a5], a4, a2, a6, n] - S2[a1, SP[a3, a5], a4, a6, a2, n] + 
    S2[a1, SP[a3, a6], a2, a4, a5, n] + S2[a1, SP[a3, a6], a2, a5, a4, n] + 
    S2[a1, SP[a3, a6], a4, a2, a5, n] - S2[a2, a1, a3, a4, SP[a5, a6], n] - 
    S2[a2, a1, a3, SP[a4, a5], a6, n] - S2[a2, a1, SP[a3, a5], a4, a6, n] - 
    S2[a2, SP[a1, a5], a3, a4, a6, n] + S2[a3, a1, a2, a4, SP[a5, a6], n] + 
    S2[a3, a1, a2, SP[a4, a5], a6, n] + S2[a3, a1, a4, a2, SP[a5, a6], n] + 
    S2[a3, a1, a4, SP[a2, a6], a5, n] + S2[a3, a1, SP[a2, a4], a5, a6, n] + 
    S2[a3, a1, SP[a2, a4], a6, a5, n] - S2[a6, n]*S2[a3, a4, a1, a2, a5, n] + 
    S2[a3, SP[a1, a4], a2, a5, a6, n] + S2[a3, SP[a1, a4], a2, a6, a5, n] + 
    S2[a3, SP[a1, a4], a6, a2, a5, n] - S2[a3, SP[a4, a6], a1, a2, a5, n] + 
    S2[a4, a1, a2, a3, SP[a5, a6], n] + S2[a4, a1, a2, a5, SP[a3, a6], n] + 
    S2[a4, a1, a2, SP[a3, a6], a5, n] + S2[a4, a1, a2, SP[a5, a6], a3, n] + 
    S2[a4, a1, a3, a2, SP[a5, a6], n] + S2[a4, a1, a3, SP[a2, a6], a5, n] + 
    S2[a4, a1, SP[a2, a6], a3, a5, n] + S2[a4, a1, SP[a2, a6], a5, a3, n] + 
    S2[a4, a1, SP[a3, a6], a2, a5, n] + S2[a4, SP[a1, a6], a2, a3, a5, n] + 
    S2[a4, SP[a1, a6], a2, a5, a3, n] + S2[a4, SP[a1, a6], a3, a2, a5, n] + 
    S2[a2, n]*S2[a5, a1, a3, a4, a6, n] + S2[a5, a1, a3, a4, SP[a2, a6], n] + 
    S2[a5, a1, a3, SP[a2, a4], a6, n] + S2[a5, a1, SP[a2, a3], a4, a6, n] + 
    S2[a5, SP[a1, a2], a3, a4, a6, n] - S2[a4, n]*S2[a6, a1, a2, a3, a5, n] - 
    S2[a6, a1, a2, a3, SP[a4, a5], n] - S2[a4, n]*S2[a6, a1, a2, a5, a3, n] - 
    S2[a6, a1, a2, a5, SP[a3, a4], n] - S2[a6, a1, a2, SP[a3, a4], a5, n] - 
    S2[a6, a1, a2, SP[a4, a5], a3, n] - S2[a4, n]*S2[a6, a1, a3, a2, a5, n] - 
    S2[a6, a1, a3, a2, SP[a4, a5], n] - S2[a6, a1, a3, SP[a2, a4], a5, n] - 
    S2[a6, a1, SP[a2, a4], a3, a5, n] - S2[a6, a1, SP[a2, a4], a5, a3, n] - 
    S2[a6, a1, SP[a3, a4], a2, a5, n] + S2[a3, n]*S2[a6, a4, a1, a2, a5, n] + 
    S2[a6, a4, a1, a2, SP[a3, a5], n] + S2[a6, a4, a1, SP[a2, a3], a5, n] + 
    S2[a6, a4, SP[a1, a3], a2, a5, n] - S2[a6, SP[a1, a4], a2, a3, a5, n] - 
    S2[a6, SP[a1, a4], a2, a5, a3, n] - S2[a6, SP[a1, a4], a3, a2, a5, n] + 
    S2[a6, SP[a3, a4], a1, a2, a5, n] - S2[SP[a1, a5], a2, a3, a4, a6, n] - 
    S2[SP[a1, a5], a3, a2, a4, a6, n] - S2[SP[a1, a5], a3, a4, a2, a6, n] - 
    S2[SP[a1, a5], a3, a4, a6, a2, n] + S2[SP[a1, a6], a2, a3, a4, a5, n] + 
    S2[SP[a1, a6], a2, a3, a5, a4, n] + S2[SP[a1, a6], a2, a4, a3, a5, n] + 
    S2[SP[a1, a6], a2, a4, a5, a3, n] + S2[SP[a1, a6], a2, a5, a3, a4, n] + 
    S2[SP[a1, a6], a2, a5, a4, a3, n] + S2[SP[a1, a6], a3, a2, a4, a5, n] + 
    S2[SP[a1, a6], a3, a2, a5, a4, n] + S2[SP[a1, a6], a3, a4, a2, a5, n] + 
    S2[SP[a1, a6], a4, a2, a3, a5, n] + S2[SP[a1, a6], a4, a2, a5, a3, n] + 
    S2[SP[a1, a6], a4, a3, a2, a5, n] + S2[SP[a2, a5], a1, a3, a4, a6, n] - 
    S2[SP[a4, a6], a1, a2, a3, a5, n] - S2[SP[a4, a6], a1, a2, a5, a3, n] - 
    S2[SP[a4, a6], a1, a3, a2, a5, n] - S2[a6, a4, a3, a1, a2, a5, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a5_, a2_, a1_, a3_, a6_, a4_, n_] :> 
  S2[a1, a2, a5, n]*S2[a3, a6, a4, n] + S2[SP[a1, a3], SP[a2, a6], 
     SP[a4, a5], n] - S2[a4, a6, n]*S2[a1, a2, a3, a5, n] - 
    S2[a4, a6, n]*S2[a1, a2, a5, a3, n] + S2[a1, a2, SP[a3, a4], SP[a5, a6], 
     n] + S2[a1, a2, SP[a4, a5], SP[a3, a6], n] - 
    S2[a4, a6, n]*S2[a1, a3, a2, a5, n] - S2[a2, a5, n]*
     S2[a1, a3, a6, a4, n] + S2[a1, a3, SP[a2, a4], SP[a5, a6], n] + 
    S2[a1, SP[a2, a4], a3, SP[a5, a6], n] + S2[a1, SP[a2, a4], a5, 
     SP[a3, a6], n] + S2[a1, SP[a2, a4], SP[a3, a6], a5, n] + 
    S2[a1, SP[a2, a4], SP[a5, a6], a3, n] + S2[a1, SP[a3, a4], a2, 
     SP[a5, a6], n] + S2[a1, SP[a3, a4], SP[a2, a6], a5, n] - 
    S2[a3, a1, SP[a2, a6], SP[a4, a5], n] - S2[a3, SP[a1, a6], a2, 
     SP[a4, a5], n] - S2[a3, SP[a1, a6], SP[a2, a4], a5, n] + 
    S2[SP[a1, a2], a3, a6, SP[a4, a5], n] + S2[SP[a1, a2], a3, SP[a5, a6], 
     a4, n] + S2[SP[a1, a2], SP[a3, a5], a6, a4, n] - 
    S2[SP[a1, a3], a2, a6, SP[a4, a5], n] - S2[SP[a1, a3], a2, SP[a5, a6], 
     a4, n] - S2[SP[a1, a3], a6, a2, SP[a4, a5], n] - 
    S2[SP[a1, a3], a6, SP[a2, a4], a5, n] - S2[SP[a1, a3], SP[a2, a6], a4, 
     a5, n] - S2[SP[a1, a3], SP[a2, a6], a5, a4, n] + 
    S2[SP[a1, a4], a2, a3, SP[a5, a6], n] + S2[SP[a1, a4], a2, a5, 
     SP[a3, a6], n] + S2[SP[a1, a4], a2, SP[a3, a6], a5, n] + 
    S2[SP[a1, a4], a2, SP[a5, a6], a3, n] + S2[SP[a1, a4], a3, a2, 
     SP[a5, a6], n] + S2[SP[a1, a4], a3, SP[a2, a6], a5, n] + 
    S2[SP[a1, a4], SP[a2, a6], a3, a5, n] + S2[SP[a1, a4], SP[a2, a6], a5, 
     a3, n] + S2[SP[a1, a4], SP[a3, a6], a2, a5, n] - 
    S2[a1, a2, a3, a4, SP[a5, a6], n] + S2[a4, n]*S2[a1, a2, a3, a5, a6, n] + 
    S2[a1, a2, a3, a5, SP[a4, a6], n] - S2[a5, n]*S2[a1, a2, a3, a6, a4, n] + 
    S2[a4, n]*S2[a1, a2, a3, a6, a5, n] + S2[a1, a2, a3, SP[a4, a6], a5, n] - 
    S2[a1, a2, a3, SP[a5, a6], a4, n] - S2[a1, a2, a4, a3, SP[a5, a6], n] - 
    S2[a1, a2, a4, a5, SP[a3, a6], n] - S2[a1, a2, a4, SP[a3, a6], a5, n] - 
    S2[a1, a2, a4, SP[a5, a6], a3, n] + S2[a4, n]*S2[a1, a2, a5, a3, a6, n] + 
    S2[a1, a2, a5, a3, SP[a4, a6], n] - S2[a1, a2, a5, a4, SP[a3, a6], n] + 
    S2[a4, n]*S2[a1, a2, a5, a6, a3, n] - 
    S2[a3, n]*S2[a1, a2, a5, a6, a4, n] - S2[a1, a2, a5, SP[a3, a6], a4, n] + 
    S2[a1, a2, a5, SP[a4, a6], a3, n] + S2[a4, n]*S2[a1, a2, a6, a3, a5, n] + 
    S2[a1, a2, a6, a3, SP[a4, a5], n] - S2[a3, n]*S2[a1, a2, a6, a4, a5, n] - 
    S2[a1, a2, a6, a4, SP[a3, a5], n] + S2[a4, n]*S2[a1, a2, a6, a5, a3, n] - 
    S2[a3, n]*S2[a1, a2, a6, a5, a4, n] - S2[a1, a2, a6, SP[a3, a5], a4, n] + 
    S2[a1, a2, a6, SP[a4, a5], a3, n] - 2*S2[a1, a2, SP[a3, a5], a6, a4, n] - 
    S2[a1, a2, SP[a3, a6], a4, a5, n] - S2[a1, a2, SP[a3, a6], a5, a4, n] + 
    S2[a1, a2, SP[a4, a6], a3, a5, n] + S2[a1, a2, SP[a4, a6], a5, a3, n] - 
    S2[a1, a3, a2, a4, SP[a5, a6], n] + S2[a4, n]*S2[a1, a3, a2, a5, a6, n] + 
    S2[a1, a3, a2, a5, SP[a4, a6], n] - S2[a5, n]*S2[a1, a3, a2, a6, a4, n] + 
    S2[a4, n]*S2[a1, a3, a2, a6, a5, n] + S2[a1, a3, a2, SP[a4, a6], a5, n] - 
    S2[a1, a3, a2, SP[a5, a6], a4, n] - S2[a1, a3, a4, a2, SP[a5, a6], n] - 
    S2[a1, a3, a4, SP[a2, a6], a5, n] + S2[a2, n]*S2[a1, a3, a5, a6, a4, n] + 
    S2[a1, a3, a5, a6, SP[a2, a4], n] + S2[a1, a3, a5, SP[a2, a6], a4, n] - 
    S2[a5, n]*S2[a1, a3, a6, a2, a4, n] + 
    S2[a4, n]*S2[a1, a3, a6, a2, a5, n] - 
    S2[a5, n]*S2[a1, a3, a6, a4, a2, n] + 
    S2[a2, n]*S2[a1, a3, a6, a4, a5, n] + 
    S2[a2, n]*S2[a1, a3, a6, a5, a4, n] + S2[a1, a3, a6, a5, SP[a2, a4], n] + 
    2*S2[a1, a3, a6, SP[a2, a4], a5, n] - S2[a1, a3, a6, SP[a4, a5], a2, n] + 
    S2[a1, a3, SP[a2, a6], a4, a5, n] + S2[a1, a3, SP[a2, a6], a5, a4, n] + 
    S2[a1, a3, SP[a4, a6], a2, a5, n] - S2[a1, a3, SP[a5, a6], a2, a4, n] - 
    S2[a1, a3, SP[a5, a6], a4, a2, n] - S2[a1, a4, a2, a3, SP[a5, a6], n] - 
    S2[a1, a4, a2, a5, SP[a3, a6], n] - S2[a1, a4, a2, SP[a3, a6], a5, n] - 
    S2[a1, a4, a2, SP[a5, a6], a3, n] - S2[a1, a4, a3, a2, SP[a5, a6], n] - 
    S2[a1, a4, a3, SP[a2, a6], a5, n] - S2[a1, a4, SP[a2, a6], a3, a5, n] - 
    S2[a1, a4, SP[a2, a6], a5, a3, n] - S2[a1, a4, SP[a3, a6], a2, a5, n] + 
    S2[a2, n]*S2[a1, a5, a3, a6, a4, n] + S2[a1, a5, a3, a6, SP[a2, a4], n] + 
    S2[a1, a5, a3, SP[a2, a6], a4, n] + S2[a1, a5, SP[a2, a3], a6, a4, n] + 
    S2[a4, n]*S2[a1, a6, a2, a3, a5, n] + S2[a1, a6, a2, a3, SP[a4, a5], n] - 
    S2[a3, n]*S2[a1, a6, a2, a4, a5, n] - S2[a1, a6, a2, a4, SP[a3, a5], n] + 
    S2[a4, n]*S2[a1, a6, a2, a5, a3, n] - 
    S2[a3, n]*S2[a1, a6, a2, a5, a4, n] - S2[a1, a6, a2, SP[a3, a5], a4, n] + 
    S2[a1, a6, a2, SP[a4, a5], a3, n] + S2[a4, n]*S2[a1, a6, a3, a2, a5, n] + 
    S2[a1, a6, a3, a2, SP[a4, a5], n] + S2[a1, a6, a3, SP[a2, a4], a5, n] - 
    S2[a3, n]*S2[a1, a6, a4, a2, a5, n] - S2[a1, a6, a4, a2, SP[a3, a5], n] - 
    S2[a1, a6, a4, SP[a2, a3], a5, n] - S2[a1, a6, SP[a2, a3], a4, a5, n] - 
    S2[a1, a6, SP[a2, a3], a5, a4, n] + S2[a1, a6, SP[a2, a4], a3, a5, n] + 
    S2[a1, a6, SP[a2, a4], a5, a3, n] - S2[a1, SP[a3, a5], a2, a6, a4, n] - 
    S2[a1, SP[a3, a5], a6, a2, a4, n] - S2[a1, SP[a3, a5], a6, a4, a2, n] - 
    S2[a1, SP[a3, a6], a2, a4, a5, n] - S2[a1, SP[a3, a6], a2, a5, a4, n] - 
    S2[a1, SP[a3, a6], a4, a2, a5, n] + S2[a1, SP[a4, a6], a2, a3, a5, n] + 
    S2[a1, SP[a4, a6], a2, a5, a3, n] + S2[a1, SP[a4, a6], a3, a2, a5, n] - 
    S2[a2, a1, a3, a6, SP[a4, a5], n] - S2[a2, a1, a3, SP[a5, a6], a4, n] - 
    S2[a2, a1, SP[a3, a5], a6, a4, n] - S2[a2, SP[a1, a5], a3, a6, a4, n] + 
    S2[a3, a1, a2, a6, SP[a4, a5], n] + S2[a3, a1, a2, SP[a5, a6], a4, n] + 
    S2[a3, a1, a6, a2, SP[a4, a5], n] + S2[a3, a1, a6, SP[a2, a4], a5, n] + 
    S2[a3, a1, SP[a2, a6], a4, a5, n] + S2[a3, a1, SP[a2, a6], a5, a4, n] + 
    S2[a3, a6, a1, a2, SP[a4, a5], n] + S2[a3, a6, a1, SP[a2, a4], a5, n] + 
    S2[a3, a6, SP[a1, a4], a2, a5, n] + S2[a3, SP[a1, a6], a2, a4, a5, n] + 
    S2[a3, SP[a1, a6], a2, a5, a4, n] + S2[a3, SP[a1, a6], a4, a2, a5, n] - 
    S2[a4, a1, a2, a3, SP[a5, a6], n] - S2[a4, a1, a2, a5, SP[a3, a6], n] - 
    S2[a4, a1, a2, SP[a3, a6], a5, n] - S2[a4, a1, a2, SP[a5, a6], a3, n] - 
    S2[a4, a1, a3, a2, SP[a5, a6], n] - S2[a4, a1, a3, SP[a2, a6], a5, n] - 
    S2[a4, a1, SP[a2, a6], a3, a5, n] - S2[a4, a1, SP[a2, a6], a5, a3, n] - 
    S2[a4, a1, SP[a3, a6], a2, a5, n] - S2[a4, SP[a1, a6], a2, a3, a5, n] - 
    S2[a4, SP[a1, a6], a2, a5, a3, n] - S2[a4, SP[a1, a6], a3, a2, a5, n] + 
    S2[a2, n]*S2[a5, a1, a3, a6, a4, n] + S2[a5, a1, a3, a6, SP[a2, a4], n] + 
    S2[a5, a1, a3, SP[a2, a6], a4, n] + S2[a5, a1, SP[a2, a3], a6, a4, n] + 
    S2[a5, SP[a1, a2], a3, a6, a4, n] + S2[a4, n]*S2[a6, a1, a2, a3, a5, n] + 
    S2[a6, a1, a2, a3, SP[a4, a5], n] - S2[a3, n]*S2[a6, a1, a2, a4, a5, n] - 
    S2[a6, a1, a2, a4, SP[a3, a5], n] + S2[a4, n]*S2[a6, a1, a2, a5, a3, n] - 
    S2[a3, n]*S2[a6, a1, a2, a5, a4, n] - S2[a6, a1, a2, SP[a3, a5], a4, n] + 
    S2[a6, a1, a2, SP[a4, a5], a3, n] + S2[a4, n]*S2[a6, a1, a3, a2, a5, n] + 
    S2[a6, a1, a3, a2, SP[a4, a5], n] + S2[a6, a1, a3, SP[a2, a4], a5, n] - 
    S2[a3, n]*S2[a6, a1, a4, a2, a5, n] - S2[a6, a1, a4, a2, SP[a3, a5], n] - 
    S2[a6, a1, a4, SP[a2, a3], a5, n] - S2[a6, a1, SP[a2, a3], a4, a5, n] - 
    S2[a6, a1, SP[a2, a3], a5, a4, n] + S2[a6, a1, SP[a2, a4], a3, a5, n] + 
    S2[a6, a1, SP[a2, a4], a5, a3, n] - S2[a3, n]*S2[a6, a4, a1, a2, a5, n] - 
    S2[a6, a4, a1, a2, SP[a3, a5], n] - S2[a6, a4, a1, SP[a2, a3], a5, n] - 
    S2[a6, a4, SP[a1, a3], a2, a5, n] - S2[a6, SP[a1, a3], a2, a4, a5, n] - 
    S2[a6, SP[a1, a3], a2, a5, a4, n] - S2[a6, SP[a1, a3], a4, a2, a5, n] + 
    S2[a6, SP[a1, a4], a2, a3, a5, n] + S2[a6, SP[a1, a4], a2, a5, a3, n] + 
    S2[a6, SP[a1, a4], a3, a2, a5, n] - S2[a6, SP[a3, a4], a1, a2, a5, n] - 
    S2[SP[a1, a5], a2, a3, a6, a4, n] - S2[SP[a1, a5], a3, a2, a6, a4, n] - 
    S2[SP[a1, a5], a3, a6, a2, a4, n] - S2[SP[a1, a5], a3, a6, a4, a2, n] + 
    S2[SP[a2, a5], a1, a3, a6, a4, n] - S2[SP[a3, a6], a1, a2, a4, a5, n] - 
    S2[SP[a3, a6], a1, a2, a5, a4, n] - S2[SP[a3, a6], a1, a4, a2, a5, n] - 
    S2[SP[a3, a6], a4, a1, a2, a5, n] + S2[SP[a4, a6], a1, a2, a3, a5, n] + 
    S2[SP[a4, a6], a1, a2, a5, a3, n] + S2[SP[a4, a6], a1, a3, a2, a5, n] + 
    S2[a6, a3, a1, a2, a4, a5, n] + S2[a6, a3, a1, a2, a5, a4, n] + 
    S2[a6, a3, a1, a4, a2, a5, n] + S2[a6, a3, a4, a1, a2, a5, n] + 
    S2[a6, a4, a3, a1, a2, a5, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a5_, a2_, a1_, a4_, a3_, a6_, n_] :> 
  -(S2[a1, a2, a5, n]*S2[a3, a4, a6, n]) - S2[a1, a2, a5, n]*
     S2[a3, a6, a4, n] - S2[SP[a1, a3], SP[a2, a4], SP[a5, a6], n] - 
    S2[SP[a1, a3], SP[a2, a6], SP[a4, a5], n] + 
    S2[a3, a6, n]*S2[a1, a2, a4, a5, n] + S2[a3, a6, n]*
     S2[a1, a2, a5, a4, n] - S2[a1, a2, SP[a3, a4], SP[a5, a6], n] - 
    S2[a1, a2, SP[a3, a5], SP[a4, a6], n] + S2[a1, a3, SP[a2, a4], 
     SP[a5, a6], n] + S2[a1, a3, SP[a2, a6], SP[a4, a5], n] + 
    S2[a3, a6, n]*S2[a1, a4, a2, a5, n] - S2[a2, a5, n]*
     S2[a1, a4, a3, a6, n] - S2[a1, SP[a2, a3], a5, SP[a4, a6], n] + 
    S2[a1, SP[a2, a3], a6, SP[a4, a5], n] + S2[a1, SP[a2, a3], SP[a4, a5], 
     a6, n] - S2[a1, SP[a2, a3], SP[a4, a6], a5, n] + 
    S2[a1, SP[a2, a4], a3, SP[a5, a6], n] + S2[a1, SP[a2, a4], SP[a3, a5], 
     a6, n] - S2[a1, SP[a3, a4], a2, SP[a5, a6], n] - 
    S2[a1, SP[a3, a4], SP[a2, a6], a5, n] + S2[a3, a1, SP[a2, a4], 
     SP[a5, a6], n] + S2[a3, a1, SP[a2, a6], SP[a4, a5], n] + 
    S2[a3, SP[a1, a4], a2, SP[a5, a6], n] + S2[a3, SP[a1, a4], SP[a2, a6], 
     a5, n] + S2[a3, SP[a1, a6], a2, SP[a4, a5], n] + 
    S2[a3, SP[a1, a6], SP[a2, a4], a5, n] + S2[SP[a1, a2], a4, a3, 
     SP[a5, a6], n] + S2[SP[a1, a2], a4, SP[a3, a5], a6, n] + 
    S2[SP[a1, a2], SP[a4, a5], a3, a6, n] - S2[SP[a1, a3], a2, a5, 
     SP[a4, a6], n] + S2[SP[a1, a3], a2, a6, SP[a4, a5], n] + 
    S2[SP[a1, a3], a2, SP[a4, a5], a6, n] - S2[SP[a1, a3], a2, SP[a4, a6], 
     a5, n] + S2[SP[a1, a3], a6, a2, SP[a4, a5], n] + 
    S2[SP[a1, a3], a6, SP[a2, a4], a5, n] + S2[SP[a1, a3], SP[a2, a4], a5, 
     a6, n] + S2[SP[a1, a3], SP[a2, a4], a6, a5, n] - 
    S2[SP[a1, a3], SP[a4, a6], a2, a5, n] + S2[a1, a2, a3, a5, SP[a4, a6], 
     n] - S2[a1, a2, a3, a6, SP[a4, a5], n] - S2[a1, a2, a3, SP[a4, a5], a6, 
     n] + S2[a1, a2, a3, SP[a4, a6], a5, n] - 
    S2[a5, n]*S2[a1, a2, a4, a3, a6, n] - S2[a1, a2, a4, a3, SP[a5, a6], n] - 
    S2[a1, a2, a4, SP[a3, a5], a6, n] + S2[a1, a2, a5, a3, SP[a4, a6], n] + 
    S2[a1, a2, a5, SP[a3, a4], a6, n] + S2[a1, a2, SP[a3, a4], a5, a6, n] + 
    S2[a1, a2, SP[a3, a4], a6, a5, n] - 2*S2[a1, a2, SP[a4, a5], a3, a6, n] + 
    S2[a1, a3, a2, a5, SP[a4, a6], n] - S2[a1, a3, a2, a6, SP[a4, a5], n] - 
    S2[a1, a3, a2, SP[a4, a5], a6, n] + S2[a1, a3, a2, SP[a4, a6], a5, n] - 
    S2[a1, a3, a6, a2, SP[a4, a5], n] - S2[a1, a3, a6, SP[a2, a4], a5, n] - 
    S2[a1, a3, SP[a2, a4], a5, a6, n] - S2[a1, a3, SP[a2, a4], a6, a5, n] + 
    S2[a1, a3, SP[a4, a6], a2, a5, n] - S2[a5, n]*S2[a1, a4, a2, a3, a6, n] - 
    S2[a1, a4, a2, a3, SP[a5, a6], n] - S2[a1, a4, a2, SP[a3, a5], a6, n] - 
    S2[a5, n]*S2[a1, a4, a3, a2, a6, n] - S2[a1, a4, a3, a2, SP[a5, a6], n] + 
    S2[a2, n]*S2[a1, a4, a3, a5, a6, n] + S2[a1, a4, a3, a5, SP[a2, a6], n] - 
    S2[a5, n]*S2[a1, a4, a3, a6, a2, n] + 
    S2[a2, n]*S2[a1, a4, a3, a6, a5, n] + S2[a1, a4, a3, SP[a2, a6], a5, n] - 
    S2[a1, a4, a3, SP[a5, a6], a2, n] + S2[a2, n]*S2[a1, a4, a5, a3, a6, n] + 
    S2[a1, a4, a5, a3, SP[a2, a6], n] + S2[a1, a4, a5, SP[a2, a3], a6, n] + 
    S2[a1, a4, SP[a2, a3], a5, a6, n] + S2[a1, a4, SP[a2, a3], a6, a5, n] - 
    S2[a1, a4, SP[a3, a5], a2, a6, n] - S2[a1, a4, SP[a3, a5], a6, a2, n] + 
    S2[a2, n]*S2[a1, a5, a4, a3, a6, n] + S2[a1, a5, a4, a3, SP[a2, a6], n] + 
    S2[a1, a5, a4, SP[a2, a3], a6, n] + S2[a1, a5, SP[a2, a4], a3, a6, n] + 
    S2[a1, SP[a3, a4], a2, a5, a6, n] + S2[a1, SP[a3, a4], a2, a6, a5, n] + 
    S2[a1, SP[a3, a4], a6, a2, a5, n] - S2[a1, SP[a4, a5], a2, a3, a6, n] - 
    S2[a1, SP[a4, a5], a3, a2, a6, n] - S2[a1, SP[a4, a5], a3, a6, a2, n] - 
    S2[a2, a1, a4, a3, SP[a5, a6], n] - S2[a2, a1, a4, SP[a3, a5], a6, n] - 
    S2[a2, a1, SP[a4, a5], a3, a6, n] - S2[a2, SP[a1, a5], a4, a3, a6, n] + 
    S2[a3, a1, a2, a5, SP[a4, a6], n] - S2[a3, a1, a2, a6, SP[a4, a5], n] - 
    S2[a3, a1, a2, SP[a4, a5], a6, n] + S2[a3, a1, a2, SP[a4, a6], a5, n] - 
    S2[a3, a1, a6, a2, SP[a4, a5], n] - S2[a3, a1, a6, SP[a2, a4], a5, n] - 
    S2[a3, a1, SP[a2, a4], a5, a6, n] - S2[a3, a1, SP[a2, a4], a6, a5, n] + 
    S2[a3, a1, SP[a4, a6], a2, a5, n] + S2[a6, n]*S2[a3, a4, a1, a2, a5, n] - 
    S2[a3, a6, a1, a2, SP[a4, a5], n] - S2[a3, a6, a1, SP[a2, a4], a5, n] - 
    S2[a3, a6, SP[a1, a4], a2, a5, n] - S2[a3, SP[a1, a4], a2, a5, a6, n] - 
    S2[a3, SP[a1, a4], a2, a6, a5, n] - S2[a3, SP[a1, a4], a6, a2, a5, n] + 
    S2[a3, SP[a4, a6], a1, a2, a5, n] + S2[a2, n]*S2[a5, a1, a4, a3, a6, n] + 
    S2[a5, a1, a4, a3, SP[a2, a6], n] + S2[a5, a1, a4, SP[a2, a3], a6, n] + 
    S2[a5, a1, SP[a2, a4], a3, a6, n] + S2[a5, SP[a1, a2], a4, a3, a6, n] - 
    S2[SP[a1, a5], a2, a4, a3, a6, n] - S2[SP[a1, a5], a4, a2, a3, a6, n] - 
    S2[SP[a1, a5], a4, a3, a2, a6, n] - S2[SP[a1, a5], a4, a3, a6, a2, n] + 
    S2[SP[a2, a5], a1, a4, a3, a6, n] + S2[SP[a3, a6], a4, a1, a2, a5, n] - 
    S2[a6, a3, a4, a1, a2, a5, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a5_, a2_, a1_, a4_, a6_, a3_, n_] :> 
  S2[a1, a2, a5, n]*S2[a3, a6, a4, n] + S2[SP[a1, a3], SP[a2, a6], 
     SP[a4, a5], n] - S2[a3, a6, n]*S2[a1, a2, a4, a5, n] - 
    S2[a3, a6, n]*S2[a1, a2, a5, a4, n] + S2[a1, a2, SP[a3, a4], SP[a5, a6], 
     n] + S2[a1, a2, SP[a3, a5], SP[a4, a6], n] - S2[a1, a3, SP[a2, a6], 
     SP[a4, a5], n] - S2[a3, a6, n]*S2[a1, a4, a2, a5, n] - 
    S2[a2, a5, n]*S2[a1, a4, a6, a3, n] + S2[a1, a4, SP[a2, a3], SP[a5, a6], 
     n] + S2[a1, a4, SP[a2, a6], SP[a3, a5], n] + S2[a1, SP[a2, a3], a4, 
     SP[a5, a6], n] + S2[a1, SP[a2, a3], a5, SP[a4, a6], n] - 
    S2[a1, SP[a2, a3], a6, SP[a4, a5], n] + S2[a1, SP[a2, a3], SP[a4, a6], 
     a5, n] + S2[a1, SP[a2, a4], a6, SP[a3, a5], n] + 
    S2[a1, SP[a2, a4], SP[a5, a6], a3, n] + S2[a1, SP[a3, a4], a2, 
     SP[a5, a6], n] + S2[a1, SP[a3, a4], SP[a2, a6], a5, n] - 
    S2[a3, a1, SP[a2, a6], SP[a4, a5], n] - S2[a3, SP[a1, a6], a2, 
     SP[a4, a5], n] - S2[a3, SP[a1, a6], SP[a2, a4], a5, n] + 
    S2[SP[a1, a2], a4, a6, SP[a3, a5], n] + S2[SP[a1, a2], a4, SP[a5, a6], 
     a3, n] + S2[SP[a1, a2], SP[a4, a5], a6, a3, n] + 
    S2[SP[a1, a3], a2, a4, SP[a5, a6], n] + S2[SP[a1, a3], a2, a5, 
     SP[a4, a6], n] - S2[SP[a1, a3], a2, a6, SP[a4, a5], n] + 
    S2[SP[a1, a3], a2, SP[a4, a6], a5, n] + S2[SP[a1, a3], a4, a2, 
     SP[a5, a6], n] + S2[SP[a1, a3], a4, SP[a2, a6], a5, n] - 
    S2[SP[a1, a3], a6, a2, SP[a4, a5], n] - S2[SP[a1, a3], a6, SP[a2, a4], 
     a5, n] + S2[SP[a1, a3], SP[a4, a6], a2, a5, n] - 
    S2[a1, a2, a3, a4, SP[a5, a6], n] - S2[a1, a2, a3, a5, SP[a4, a6], n] + 
    S2[a1, a2, a3, a6, SP[a4, a5], n] - S2[a1, a2, a3, SP[a4, a6], a5, n] - 
    S2[a1, a2, a4, a3, SP[a5, a6], n] + S2[a3, n]*S2[a1, a2, a4, a5, a6, n] + 
    S2[a1, a2, a4, a5, SP[a3, a6], n] - S2[a5, n]*S2[a1, a2, a4, a6, a3, n] + 
    S2[a3, n]*S2[a1, a2, a4, a6, a5, n] - S2[a1, a2, a4, a6, SP[a3, a5], n] + 
    S2[a1, a2, a4, SP[a3, a6], a5, n] - 2*S2[a1, a2, a4, SP[a5, a6], a3, n] - 
    S2[a1, a2, a5, a3, SP[a4, a6], n] + S2[a3, n]*S2[a1, a2, a5, a4, a6, n] + 
    S2[a1, a2, a5, a4, SP[a3, a6], n] - 2*S2[a1, a2, SP[a4, a5], a6, a3, n] - 
    S2[a1, a3, a2, a4, SP[a5, a6], n] - S2[a1, a3, a2, a5, SP[a4, a6], n] + 
    S2[a1, a3, a2, a6, SP[a4, a5], n] - S2[a1, a3, a2, SP[a4, a6], a5, n] - 
    S2[a1, a3, a4, a2, SP[a5, a6], n] - S2[a1, a3, a4, SP[a2, a6], a5, n] + 
    S2[a1, a3, a6, a2, SP[a4, a5], n] + S2[a1, a3, a6, SP[a2, a4], a5, n] - 
    S2[a1, a3, SP[a4, a6], a2, a5, n] - S2[a1, a4, a2, a3, SP[a5, a6], n] + 
    S2[a3, n]*S2[a1, a4, a2, a5, a6, n] + S2[a1, a4, a2, a5, SP[a3, a6], n] - 
    S2[a5, n]*S2[a1, a4, a2, a6, a3, n] + 
    S2[a3, n]*S2[a1, a4, a2, a6, a5, n] - S2[a1, a4, a2, a6, SP[a3, a5], n] + 
    S2[a1, a4, a2, SP[a3, a6], a5, n] - 2*S2[a1, a4, a2, SP[a5, a6], a3, n] - 
    S2[a1, a4, a3, a2, SP[a5, a6], n] - S2[a1, a4, a3, SP[a2, a6], a5, n] + 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] + S2[a1, a4, a5, a6, SP[a2, a3], n] + 
    S2[a1, a4, a5, SP[a2, a6], a3, n] - S2[a5, n]*S2[a1, a4, a6, a2, a3, n] + 
    S2[a3, n]*S2[a1, a4, a6, a2, a5, n] - S2[a1, a4, a6, a2, SP[a3, a5], n] - 
    S2[a5, n]*S2[a1, a4, a6, a3, a2, n] + 
    S2[a2, n]*S2[a1, a4, a6, a3, a5, n] + 
    S2[a2, n]*S2[a1, a4, a6, a5, a3, n] + S2[a1, a4, a6, a5, SP[a2, a3], n] + 
    S2[a1, a4, a6, SP[a2, a3], a5, n] - S2[a1, a4, a6, SP[a3, a5], a2, n] + 
    S2[a1, a4, SP[a3, a6], a2, a5, n] - S2[a1, a4, SP[a5, a6], a2, a3, n] - 
    S2[a1, a4, SP[a5, a6], a3, a2, n] + S2[a2, n]*S2[a1, a5, a4, a6, a3, n] + 
    S2[a1, a5, a4, a6, SP[a2, a3], n] + S2[a1, a5, a4, SP[a2, a6], a3, n] + 
    S2[a1, a5, SP[a2, a4], a6, a3, n] - S2[a1, SP[a4, a5], a2, a6, a3, n] - 
    S2[a1, SP[a4, a5], a6, a2, a3, n] - S2[a1, SP[a4, a5], a6, a3, a2, n] - 
    S2[a2, a1, a4, a6, SP[a3, a5], n] - S2[a2, a1, a4, SP[a5, a6], a3, n] - 
    S2[a2, a1, SP[a4, a5], a6, a3, n] - S2[a2, SP[a1, a5], a4, a6, a3, n] - 
    S2[a3, a1, a2, a4, SP[a5, a6], n] - S2[a3, a1, a2, a5, SP[a4, a6], n] + 
    S2[a3, a1, a2, a6, SP[a4, a5], n] - S2[a3, a1, a2, SP[a4, a6], a5, n] - 
    S2[a3, a1, a4, a2, SP[a5, a6], n] - S2[a3, a1, a4, SP[a2, a6], a5, n] + 
    S2[a3, a1, a6, a2, SP[a4, a5], n] + S2[a3, a1, a6, SP[a2, a4], a5, n] - 
    S2[a3, a1, SP[a4, a6], a2, a5, n] + S2[a3, a6, a1, a2, SP[a4, a5], n] + 
    S2[a3, a6, a1, SP[a2, a4], a5, n] + S2[a3, a6, SP[a1, a4], a2, a5, n] + 
    S2[a2, n]*S2[a5, a1, a4, a6, a3, n] + S2[a5, a1, a4, a6, SP[a2, a3], n] + 
    S2[a5, a1, a4, SP[a2, a6], a3, n] + S2[a5, a1, SP[a2, a4], a6, a3, n] + 
    S2[a5, SP[a1, a2], a4, a6, a3, n] - S2[a3, n]*S2[a6, a4, a1, a2, a5, n] - 
    S2[a6, a4, a1, a2, SP[a3, a5], n] - S2[a6, a4, a1, SP[a2, a3], a5, n] - 
    S2[a6, a4, SP[a1, a3], a2, a5, n] - S2[a6, SP[a3, a4], a1, a2, a5, n] - 
    S2[SP[a1, a5], a2, a4, a6, a3, n] - S2[SP[a1, a5], a4, a2, a6, a3, n] - 
    S2[SP[a1, a5], a4, a6, a2, a3, n] - S2[SP[a1, a5], a4, a6, a3, a2, n] + 
    S2[SP[a2, a5], a1, a4, a6, a3, n] - S2[SP[a3, a6], a4, a1, a2, a5, n] + 
    S2[a6, a3, a4, a1, a2, a5, n] + S2[a6, a4, a1, a2, a3, a5, n] + 
    S2[a6, a4, a1, a2, a5, a3, n] + S2[a6, a4, a1, a3, a2, a5, n] + 
    S2[a6, a4, a3, a1, a2, a5, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a5_, a2_, a1_, a6_, a3_, a4_, n_] :> 
  -(S2[a1, a2, a5, n]*S2[a3, a4, a6, n]) - S2[a1, a2, a5, n]*
     S2[a3, a6, a4, n] - S2[SP[a1, a3], SP[a2, a4], SP[a5, a6], n] - 
    S2[SP[a1, a3], SP[a2, a6], SP[a4, a5], n] + S2[a1, a3, SP[a2, a4], 
     SP[a5, a6], n] + S2[a1, a3, SP[a2, a6], SP[a4, a5], n] - 
    S2[a2, a5, n]*S2[a1, a6, a3, a4, n] + S2[a1, a6, SP[a2, a3], SP[a4, a5], 
     n] + S2[a1, SP[a2, a3], a4, SP[a5, a6], n] + S2[a1, SP[a2, a3], a6, 
     SP[a4, a5], n] + S2[a1, SP[a2, a3], SP[a4, a5], a6, n] + 
    S2[a1, SP[a2, a3], SP[a5, a6], a4, n] + S2[a1, SP[a2, a6], a3, 
     SP[a4, a5], n] + S2[a1, SP[a2, a6], SP[a3, a5], a4, n] + 
    S2[a3, a1, SP[a2, a4], SP[a5, a6], n] + S2[a3, a1, SP[a2, a6], 
     SP[a4, a5], n] + S2[a3, SP[a1, a4], a2, SP[a5, a6], n] + 
    S2[a3, SP[a1, a4], SP[a2, a6], a5, n] + S2[a3, SP[a1, a6], a2, 
     SP[a4, a5], n] + S2[a3, SP[a1, a6], SP[a2, a4], a5, n] + 
    S2[SP[a1, a2], a6, a3, SP[a4, a5], n] + S2[SP[a1, a2], a6, SP[a3, a5], 
     a4, n] + S2[SP[a1, a2], SP[a5, a6], a3, a4, n] + 
    S2[SP[a1, a3], a2, a4, SP[a5, a6], n] + S2[SP[a1, a3], a2, a6, 
     SP[a4, a5], n] + S2[SP[a1, a3], a2, SP[a4, a5], a6, n] + 
    S2[SP[a1, a3], a2, SP[a5, a6], a4, n] + S2[SP[a1, a3], a4, a2, 
     SP[a5, a6], n] + S2[SP[a1, a3], a4, SP[a2, a6], a5, n] + 
    S2[SP[a1, a3], a6, a2, SP[a4, a5], n] + S2[SP[a1, a3], a6, SP[a2, a4], 
     a5, n] + S2[SP[a1, a3], SP[a2, a4], a5, a6, n] + 
    S2[SP[a1, a3], SP[a2, a4], a6, a5, n] + S2[SP[a1, a3], SP[a2, a6], a4, 
     a5, n] + S2[SP[a1, a3], SP[a2, a6], a5, a4, n] - 
    S2[a1, a2, a3, a4, SP[a5, a6], n] - S2[a1, a2, a3, a6, SP[a4, a5], n] - 
    S2[a1, a2, a3, SP[a4, a5], a6, n] - S2[a1, a2, a3, SP[a5, a6], a4, n] - 
    S2[a6, n]*S2[a1, a2, a4, a3, a5, n] - S2[a1, a2, a4, a3, SP[a5, a6], n] - 
    S2[a6, n]*S2[a1, a2, a4, a5, a3, n] + 
    S2[a3, n]*S2[a1, a2, a4, a5, a6, n] + 
    S2[a3, n]*S2[a1, a2, a4, a6, a5, n] + S2[a1, a2, a4, a6, SP[a3, a5], n] + 
    S2[a1, a2, a4, SP[a3, a5], a6, n] - S2[a1, a2, a4, SP[a5, a6], a3, n] - 
    S2[a6, n]*S2[a1, a2, a5, a4, a3, n] + 
    S2[a3, n]*S2[a1, a2, a5, a4, a6, n] + 
    S2[a3, n]*S2[a1, a2, a5, a6, a4, n] + S2[a1, a2, a5, a6, SP[a3, a4], n] + 
    S2[a1, a2, a5, SP[a3, a4], a6, n] + S2[a1, a2, a5, SP[a3, a6], a4, n] - 
    S2[a1, a2, a5, SP[a4, a6], a3, n] - S2[a5, n]*S2[a1, a2, a6, a3, a4, n] - 
    2*S2[a1, a2, a6, a3, SP[a4, a5], n] + 
    S2[a3, n]*S2[a1, a2, a6, a4, a5, n] + S2[a1, a2, a6, a4, SP[a3, a5], n] + 
    S2[a3, n]*S2[a1, a2, a6, a5, a4, n] + S2[a1, a2, a6, a5, SP[a3, a4], n] + 
    S2[a1, a2, a6, SP[a3, a4], a5, n] - S2[a1, a2, a6, SP[a3, a5], a4, n] + 
    S2[a1, a2, SP[a3, a4], a5, a6, n] + S2[a1, a2, SP[a3, a4], a6, a5, n] + 
    S2[a1, a2, SP[a3, a6], a4, a5, n] + S2[a1, a2, SP[a3, a6], a5, a4, n] - 
    S2[a1, a2, SP[a4, a6], a3, a5, n] - S2[a1, a2, SP[a4, a6], a5, a3, n] - 
    2*S2[a1, a2, SP[a5, a6], a3, a4, n] - S2[a1, a2, SP[a5, a6], a4, a3, n] - 
    S2[a1, a3, a2, a4, SP[a5, a6], n] - S2[a1, a3, a2, a6, SP[a4, a5], n] - 
    S2[a1, a3, a2, SP[a4, a5], a6, n] - S2[a1, a3, a2, SP[a5, a6], a4, n] - 
    S2[a1, a3, a4, a2, SP[a5, a6], n] - S2[a1, a3, a4, SP[a2, a6], a5, n] - 
    S2[a1, a3, a6, a2, SP[a4, a5], n] - S2[a1, a3, a6, SP[a2, a4], a5, n] - 
    S2[a1, a3, SP[a2, a4], a5, a6, n] - S2[a1, a3, SP[a2, a4], a6, a5, n] - 
    S2[a1, a3, SP[a2, a6], a4, a5, n] - S2[a1, a3, SP[a2, a6], a5, a4, n] - 
    S2[a6, n]*S2[a1, a4, a2, a3, a5, n] - S2[a1, a4, a2, a3, SP[a5, a6], n] - 
    S2[a6, n]*S2[a1, a4, a2, a5, a3, n] + 
    S2[a3, n]*S2[a1, a4, a2, a5, a6, n] + 
    S2[a3, n]*S2[a1, a4, a2, a6, a5, n] + S2[a1, a4, a2, a6, SP[a3, a5], n] + 
    S2[a1, a4, a2, SP[a3, a5], a6, n] - S2[a1, a4, a2, SP[a5, a6], a3, n] - 
    S2[a6, n]*S2[a1, a4, a3, a2, a5, n] - S2[a1, a4, a3, a2, SP[a5, a6], n] - 
    S2[a1, a4, a3, SP[a2, a6], a5, n] + S2[a3, n]*S2[a1, a4, a6, a2, a5, n] + 
    S2[a1, a4, a6, a2, SP[a3, a5], n] + S2[a1, a4, a6, SP[a2, a3], a5, n] + 
    S2[a1, a4, SP[a2, a3], a5, a6, n] + S2[a1, a4, SP[a2, a3], a6, a5, n] - 
    S2[a1, a4, SP[a2, a6], a3, a5, n] - S2[a1, a4, SP[a2, a6], a5, a3, n] + 
    S2[a2, n]*S2[a1, a5, a6, a3, a4, n] + S2[a1, a5, a6, a3, SP[a2, a4], n] + 
    S2[a1, a5, a6, SP[a2, a3], a4, n] + S2[a1, a5, SP[a2, a6], a3, a4, n] - 
    S2[a5, n]*S2[a1, a6, a2, a3, a4, n] - 
    2*S2[a1, a6, a2, a3, SP[a4, a5], n] + 
    S2[a3, n]*S2[a1, a6, a2, a4, a5, n] + S2[a1, a6, a2, a4, SP[a3, a5], n] + 
    S2[a3, n]*S2[a1, a6, a2, a5, a4, n] + S2[a1, a6, a2, a5, SP[a3, a4], n] + 
    S2[a1, a6, a2, SP[a3, a4], a5, n] - S2[a1, a6, a2, SP[a3, a5], a4, n] - 
    S2[a5, n]*S2[a1, a6, a3, a2, a4, n] - 
    2*S2[a1, a6, a3, a2, SP[a4, a5], n] - 
    S2[a5, n]*S2[a1, a6, a3, a4, a2, n] + 
    S2[a2, n]*S2[a1, a6, a3, a4, a5, n] + 
    S2[a2, n]*S2[a1, a6, a3, a5, a4, n] + S2[a1, a6, a3, a5, SP[a2, a4], n] - 
    S2[a1, a6, a3, SP[a4, a5], a2, n] + S2[a3, n]*S2[a1, a6, a4, a2, a5, n] + 
    S2[a1, a6, a4, a2, SP[a3, a5], n] + S2[a1, a6, a4, SP[a2, a3], a5, n] + 
    S2[a2, n]*S2[a1, a6, a5, a3, a4, n] + S2[a1, a6, a5, a3, SP[a2, a4], n] + 
    S2[a1, a6, a5, SP[a2, a3], a4, n] + S2[a1, a6, SP[a2, a3], a4, a5, n] + 
    S2[a1, a6, SP[a2, a3], a5, a4, n] + S2[a1, a6, SP[a3, a4], a2, a5, n] - 
    S2[a1, a6, SP[a3, a5], a2, a4, n] - S2[a1, a6, SP[a3, a5], a4, a2, n] - 
    S2[a1, SP[a2, a6], a4, a3, a5, n] - S2[a1, SP[a2, a6], a4, a5, a3, n] - 
    S2[a1, SP[a2, a6], a5, a4, a3, n] + S2[a1, SP[a3, a4], a2, a5, a6, n] + 
    S2[a1, SP[a3, a4], a2, a6, a5, n] + S2[a1, SP[a3, a4], a6, a2, a5, n] + 
    S2[a1, SP[a3, a6], a2, a4, a5, n] + S2[a1, SP[a3, a6], a2, a5, a4, n] + 
    S2[a1, SP[a3, a6], a4, a2, a5, n] - S2[a1, SP[a4, a6], a2, a3, a5, n] - 
    S2[a1, SP[a4, a6], a2, a5, a3, n] - S2[a1, SP[a4, a6], a3, a2, a5, n] - 
    S2[a1, SP[a5, a6], a2, a3, a4, n] - S2[a1, SP[a5, a6], a3, a2, a4, n] - 
    S2[a1, SP[a5, a6], a3, a4, a2, n] - S2[a2, a1, a6, a3, SP[a4, a5], n] - 
    S2[a2, a1, a6, SP[a3, a5], a4, n] - S2[a2, a1, SP[a5, a6], a3, a4, n] - 
    S2[a2, SP[a1, a5], a6, a3, a4, n] - S2[a3, a1, a2, a4, SP[a5, a6], n] - 
    S2[a3, a1, a2, a6, SP[a4, a5], n] - S2[a3, a1, a2, SP[a4, a5], a6, n] - 
    S2[a3, a1, a2, SP[a5, a6], a4, n] - S2[a3, a1, a4, a2, SP[a5, a6], n] - 
    S2[a3, a1, a4, SP[a2, a6], a5, n] - S2[a3, a1, a6, a2, SP[a4, a5], n] - 
    S2[a3, a1, a6, SP[a2, a4], a5, n] - S2[a3, a1, SP[a2, a4], a5, a6, n] - 
    S2[a3, a1, SP[a2, a4], a6, a5, n] - S2[a3, a1, SP[a2, a6], a4, a5, n] - 
    S2[a3, a1, SP[a2, a6], a5, a4, n] + S2[a6, n]*S2[a3, a4, a1, a2, a5, n] - 
    S2[a3, a6, a1, a2, SP[a4, a5], n] - S2[a3, a6, a1, SP[a2, a4], a5, n] - 
    S2[a3, a6, SP[a1, a4], a2, a5, n] - S2[a3, SP[a1, a4], a2, a5, a6, n] - 
    S2[a3, SP[a1, a4], a2, a6, a5, n] - S2[a3, SP[a1, a4], a6, a2, a5, n] - 
    S2[a3, SP[a1, a6], a2, a4, a5, n] - S2[a3, SP[a1, a6], a2, a5, a4, n] - 
    S2[a3, SP[a1, a6], a4, a2, a5, n] + S2[a3, SP[a4, a6], a1, a2, a5, n] + 
    S2[a2, n]*S2[a5, a1, a6, a3, a4, n] + S2[a5, a1, a6, a3, SP[a2, a4], n] + 
    S2[a5, a1, a6, SP[a2, a3], a4, n] + S2[a5, a1, SP[a2, a6], a3, a4, n] + 
    S2[a5, SP[a1, a2], a6, a3, a4, n] + S2[a3, n]*S2[a6, a1, a2, a4, a5, n] + 
    S2[a6, a1, a2, a4, SP[a3, a5], n] + S2[a3, n]*S2[a6, a1, a2, a5, a4, n] + 
    S2[a6, a1, a2, a5, SP[a3, a4], n] + S2[a6, a1, a2, SP[a3, a4], a5, n] + 
    S2[a6, a1, a2, SP[a3, a5], a4, n] + S2[a3, n]*S2[a6, a1, a4, a2, a5, n] + 
    S2[a6, a1, a4, a2, SP[a3, a5], n] + S2[a6, a1, a4, SP[a2, a3], a5, n] + 
    S2[a6, a1, SP[a2, a3], a4, a5, n] + S2[a6, a1, SP[a2, a3], a5, a4, n] + 
    S2[a6, a1, SP[a3, a4], a2, a5, n] + S2[a6, SP[a1, a3], a2, a4, a5, n] + 
    S2[a6, SP[a1, a3], a2, a5, a4, n] + S2[a6, SP[a1, a3], a4, a2, a5, n] - 
    S2[SP[a1, a5], a2, a6, a3, a4, n] - S2[SP[a1, a5], a6, a2, a3, a4, n] - 
    S2[SP[a1, a5], a6, a3, a2, a4, n] - S2[SP[a1, a5], a6, a3, a4, a2, n] - 
    S2[SP[a1, a6], a2, a4, a3, a5, n] - S2[SP[a1, a6], a2, a4, a5, a3, n] - 
    S2[SP[a1, a6], a2, a5, a4, a3, n] - S2[SP[a1, a6], a4, a2, a3, a5, n] - 
    S2[SP[a1, a6], a4, a2, a5, a3, n] - S2[SP[a1, a6], a4, a3, a2, a5, n] + 
    S2[SP[a2, a5], a1, a6, a3, a4, n] + S2[SP[a3, a6], a1, a2, a4, a5, n] + 
    S2[SP[a3, a6], a1, a2, a5, a4, n] + S2[SP[a3, a6], a1, a4, a2, a5, n] + 
    S2[SP[a3, a6], a4, a1, a2, a5, n] - S2[a6, a1, a2, a3, a4, a5, n] - 
    S2[a6, a1, a2, a3, a5, a4, n] - S2[a6, a1, a2, a5, a3, a4, n] - 
    S2[a6, a1, a3, a2, a4, a5, n] - S2[a6, a1, a3, a2, a5, a4, n] - 
    S2[a6, a1, a3, a4, a2, a5, n] - S2[a6, a3, a1, a2, a4, a5, n] - 
    S2[a6, a3, a1, a2, a5, a4, n] - S2[a6, a3, a1, a4, a2, a5, n] - 
    S2[a6, a3, a4, a1, a2, a5, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a5_, a2_, a1_, a6_, a4_, a3_, n_] :> 
  S2[a1, a2, a5, n]*S2[a3, a4, a6, n] + S2[SP[a1, a3], SP[a2, a4], 
     SP[a5, a6], n] - S2[a1, a3, SP[a2, a4], SP[a5, a6], n] - 
    S2[a2, a5, n]*S2[a1, a6, a4, a3, n] + S2[a1, a6, SP[a2, a4], SP[a3, a5], 
     n] - S2[a1, SP[a2, a3], a4, SP[a5, a6], n] - 
    S2[a1, SP[a2, a3], SP[a4, a5], a6, n] + S2[a1, SP[a2, a6], a4, 
     SP[a3, a5], n] + S2[a1, SP[a2, a6], SP[a4, a5], a3, n] - 
    S2[a3, a1, SP[a2, a4], SP[a5, a6], n] - S2[a3, SP[a1, a4], a2, 
     SP[a5, a6], n] - S2[a3, SP[a1, a4], SP[a2, a6], a5, n] + 
    S2[SP[a1, a2], a6, a4, SP[a3, a5], n] + S2[SP[a1, a2], a6, SP[a4, a5], 
     a3, n] + S2[SP[a1, a2], SP[a5, a6], a4, a3, n] - 
    S2[SP[a1, a3], a2, a4, SP[a5, a6], n] - S2[SP[a1, a3], a2, SP[a4, a5], 
     a6, n] - S2[SP[a1, a3], a4, a2, SP[a5, a6], n] - 
    S2[SP[a1, a3], a4, SP[a2, a6], a5, n] - S2[SP[a1, a3], SP[a2, a4], a5, 
     a6, n] - S2[SP[a1, a3], SP[a2, a4], a6, a5, n] + 
    S2[a1, a2, a3, a4, SP[a5, a6], n] + S2[a1, a2, a3, SP[a4, a5], a6, n] + 
    S2[a6, n]*S2[a1, a2, a4, a3, a5, n] + S2[a1, a2, a4, a3, SP[a5, a6], n] + 
    S2[a6, n]*S2[a1, a2, a4, a5, a3, n] - 
    S2[a3, n]*S2[a1, a2, a4, a5, a6, n] - 
    S2[a3, n]*S2[a1, a2, a4, a6, a5, n] - S2[a1, a2, a4, a6, SP[a3, a5], n] - 
    S2[a1, a2, a4, SP[a3, a5], a6, n] + S2[a1, a2, a4, SP[a5, a6], a3, n] + 
    S2[a6, n]*S2[a1, a2, a5, a4, a3, n] - 
    S2[a3, n]*S2[a1, a2, a5, a4, a6, n] - S2[a1, a2, a5, SP[a3, a4], a6, n] + 
    S2[a1, a2, a5, SP[a4, a6], a3, n] - S2[a5, n]*S2[a1, a2, a6, a4, a3, n] - 
    2*S2[a1, a2, a6, a4, SP[a3, a5], n] - 
    2*S2[a1, a2, a6, SP[a4, a5], a3, n] - S2[a1, a2, SP[a3, a4], a5, a6, n] - 
    S2[a1, a2, SP[a3, a4], a6, a5, n] + S2[a1, a2, SP[a4, a6], a3, a5, n] + 
    S2[a1, a2, SP[a4, a6], a5, a3, n] - S2[a1, a2, SP[a5, a6], a4, a3, n] + 
    S2[a1, a3, a2, a4, SP[a5, a6], n] + S2[a1, a3, a2, SP[a4, a5], a6, n] + 
    S2[a1, a3, a4, a2, SP[a5, a6], n] + S2[a1, a3, a4, SP[a2, a6], a5, n] + 
    S2[a1, a3, SP[a2, a4], a5, a6, n] + S2[a1, a3, SP[a2, a4], a6, a5, n] + 
    S2[a6, n]*S2[a1, a4, a2, a3, a5, n] + S2[a1, a4, a2, a3, SP[a5, a6], n] + 
    S2[a6, n]*S2[a1, a4, a2, a5, a3, n] - 
    S2[a3, n]*S2[a1, a4, a2, a5, a6, n] - 
    S2[a3, n]*S2[a1, a4, a2, a6, a5, n] - S2[a1, a4, a2, a6, SP[a3, a5], n] - 
    S2[a1, a4, a2, SP[a3, a5], a6, n] + S2[a1, a4, a2, SP[a5, a6], a3, n] + 
    S2[a6, n]*S2[a1, a4, a3, a2, a5, n] + S2[a1, a4, a3, a2, SP[a5, a6], n] + 
    S2[a1, a4, a3, SP[a2, a6], a5, n] - S2[a3, n]*S2[a1, a4, a6, a2, a5, n] - 
    S2[a1, a4, a6, a2, SP[a3, a5], n] - S2[a1, a4, a6, SP[a2, a3], a5, n] - 
    S2[a1, a4, SP[a2, a3], a5, a6, n] - S2[a1, a4, SP[a2, a3], a6, a5, n] + 
    S2[a1, a4, SP[a2, a6], a3, a5, n] + S2[a1, a4, SP[a2, a6], a5, a3, n] + 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] + S2[a1, a5, a6, a4, SP[a2, a3], n] + 
    S2[a1, a5, a6, SP[a2, a4], a3, n] + S2[a1, a5, SP[a2, a6], a4, a3, n] - 
    S2[a5, n]*S2[a1, a6, a2, a4, a3, n] - 
    2*S2[a1, a6, a2, a4, SP[a3, a5], n] - 
    2*S2[a1, a6, a2, SP[a4, a5], a3, n] - 
    S2[a5, n]*S2[a1, a6, a4, a2, a3, n] - 
    2*S2[a1, a6, a4, a2, SP[a3, a5], n] - 
    S2[a5, n]*S2[a1, a6, a4, a3, a2, n] + 
    S2[a2, n]*S2[a1, a6, a4, a3, a5, n] + 
    S2[a2, n]*S2[a1, a6, a4, a5, a3, n] + S2[a1, a6, a4, a5, SP[a2, a3], n] - 
    S2[a1, a6, a4, SP[a3, a5], a2, n] + S2[a2, n]*S2[a1, a6, a5, a4, a3, n] + 
    S2[a1, a6, a5, a4, SP[a2, a3], n] + S2[a1, a6, a5, SP[a2, a4], a3, n] - 
    S2[a1, a6, SP[a4, a5], a2, a3, n] - S2[a1, a6, SP[a4, a5], a3, a2, n] + 
    S2[a1, SP[a2, a6], a4, a3, a5, n] + S2[a1, SP[a2, a6], a4, a5, a3, n] + 
    S2[a1, SP[a2, a6], a5, a4, a3, n] - S2[a1, SP[a3, a4], a2, a5, a6, n] - 
    S2[a1, SP[a3, a4], a2, a6, a5, n] - S2[a1, SP[a3, a4], a6, a2, a5, n] + 
    S2[a1, SP[a4, a6], a2, a3, a5, n] + S2[a1, SP[a4, a6], a2, a5, a3, n] + 
    S2[a1, SP[a4, a6], a3, a2, a5, n] - S2[a1, SP[a5, a6], a2, a4, a3, n] - 
    S2[a1, SP[a5, a6], a4, a2, a3, n] - S2[a1, SP[a5, a6], a4, a3, a2, n] - 
    S2[a2, a1, a6, a4, SP[a3, a5], n] - S2[a2, a1, a6, SP[a4, a5], a3, n] - 
    S2[a2, a1, SP[a5, a6], a4, a3, n] - S2[a2, SP[a1, a5], a6, a4, a3, n] + 
    S2[a3, a1, a2, a4, SP[a5, a6], n] + S2[a3, a1, a2, SP[a4, a5], a6, n] + 
    S2[a3, a1, a4, a2, SP[a5, a6], n] + S2[a3, a1, a4, SP[a2, a6], a5, n] + 
    S2[a3, a1, SP[a2, a4], a5, a6, n] + S2[a3, a1, SP[a2, a4], a6, a5, n] - 
    S2[a6, n]*S2[a3, a4, a1, a2, a5, n] + S2[a3, SP[a1, a4], a2, a5, a6, n] + 
    S2[a3, SP[a1, a4], a2, a6, a5, n] + S2[a3, SP[a1, a4], a6, a2, a5, n] - 
    S2[a3, SP[a4, a6], a1, a2, a5, n] + S2[a2, n]*S2[a5, a1, a6, a4, a3, n] + 
    S2[a5, a1, a6, a4, SP[a2, a3], n] + S2[a5, a1, a6, SP[a2, a4], a3, n] + 
    S2[a5, a1, SP[a2, a6], a4, a3, n] + S2[a5, SP[a1, a2], a6, a4, a3, n] + 
    S2[a3, n]*S2[a6, a4, a1, a2, a5, n] + S2[a6, a4, a1, a2, SP[a3, a5], n] + 
    S2[a6, a4, a1, SP[a2, a3], a5, n] + S2[a6, a4, SP[a1, a3], a2, a5, n] + 
    S2[a6, SP[a3, a4], a1, a2, a5, n] - S2[SP[a1, a5], a2, a6, a4, a3, n] - 
    S2[SP[a1, a5], a6, a2, a4, a3, n] - S2[SP[a1, a5], a6, a4, a2, a3, n] - 
    S2[SP[a1, a5], a6, a4, a3, a2, n] + S2[SP[a1, a6], a2, a4, a3, a5, n] + 
    S2[SP[a1, a6], a2, a4, a5, a3, n] + S2[SP[a1, a6], a2, a5, a4, a3, n] + 
    S2[SP[a1, a6], a4, a2, a3, a5, n] + S2[SP[a1, a6], a4, a2, a5, a3, n] + 
    S2[SP[a1, a6], a4, a3, a2, a5, n] + S2[SP[a2, a5], a1, a6, a4, a3, n] - 
    S2[a6, a1, a2, a4, a3, a5, n] - S2[a6, a1, a2, a4, a5, a3, n] - 
    S2[a6, a1, a2, a5, a4, a3, n] - S2[a6, a1, a4, a2, a3, a5, n] - 
    S2[a6, a1, a4, a2, a5, a3, n] - S2[a6, a1, a4, a3, a2, a5, n] - 
    S2[a6, a4, a1, a2, a3, a5, n] - S2[a6, a4, a1, a2, a5, a3, n] - 
    S2[a6, a4, a1, a3, a2, a5, n] - S2[a6, a4, a3, a1, a2, a5, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a5_, a2_, a3_, a1_, a4_, a6_, n_] :> 
  -(S2[a1, a4, a6, n]*S2[a2, a3, a5, n]) - S2[a1, a4, a6, n]*
     S2[a2, a5, a3, n] - S2[SP[a1, a2], SP[a3, a4], SP[a5, a6], n] - 
    S2[SP[a1, a2], SP[a4, a5], SP[a3, a6], n] + S2[a1, a2, SP[a3, a4], 
     SP[a5, a6], n] + S2[a1, a2, SP[a4, a5], SP[a3, a6], n] - 
    S2[a4, a6, n]*S2[a1, a3, a2, a5, n] + S2[a2, a5, n]*
     S2[a1, a3, a4, a6, n] + S2[a2, a5, n]*S2[a1, a4, a3, a6, n] + 
    S2[a2, a5, n]*S2[a1, a4, a6, a3, n] - S2[a1, a4, SP[a2, a3], SP[a5, a6], 
     n] - S2[a1, a4, SP[a2, a6], SP[a3, a5], n] - S2[a1, SP[a2, a3], a4, 
     SP[a5, a6], n] - S2[a1, SP[a2, a3], SP[a4, a5], a6, n] + 
    S2[a1, SP[a2, a4], a5, SP[a3, a6], n] - S2[a1, SP[a2, a4], a6, 
     SP[a3, a5], n] - S2[a1, SP[a2, a4], SP[a3, a5], a6, n] + 
    S2[a1, SP[a2, a4], SP[a3, a6], a5, n] + S2[a1, SP[a3, a4], a2, 
     SP[a5, a6], n] + S2[a1, SP[a3, a4], SP[a2, a6], a5, n] + 
    S2[a2, a1, SP[a3, a4], SP[a5, a6], n] + S2[a2, a1, SP[a4, a5], 
     SP[a3, a6], n] + S2[a2, SP[a1, a3], a4, SP[a5, a6], n] + 
    S2[a2, SP[a1, a3], SP[a4, a5], a6, n] + S2[a2, SP[a1, a5], a4, 
     SP[a3, a6], n] + S2[a2, SP[a1, a5], SP[a3, a4], a6, n] + 
    S2[SP[a1, a2], a4, a5, SP[a3, a6], n] - S2[SP[a1, a2], a4, a6, 
     SP[a3, a5], n] - S2[SP[a1, a2], a4, SP[a3, a5], a6, n] + 
    S2[SP[a1, a2], a4, SP[a3, a6], a5, n] + S2[SP[a1, a2], a5, a4, 
     SP[a3, a6], n] + S2[SP[a1, a2], a5, SP[a3, a4], a6, n] + 
    S2[SP[a1, a2], SP[a3, a4], a5, a6, n] + S2[SP[a1, a2], SP[a3, a4], a6, 
     a5, n] - S2[SP[a1, a2], SP[a3, a5], a4, a6, n] + 
    S2[SP[a1, a4], a3, a2, SP[a5, a6], n] + S2[SP[a1, a4], a3, SP[a2, a6], 
     a5, n] + S2[SP[a1, a4], SP[a3, a6], a2, a5, n] - 
    S2[a1, a2, a4, a5, SP[a3, a6], n] + S2[a1, a2, a4, a6, SP[a3, a5], n] + 
    S2[a1, a2, a4, SP[a3, a5], a6, n] - S2[a1, a2, a4, SP[a3, a6], a5, n] - 
    S2[a1, a2, a5, a4, SP[a3, a6], n] - S2[a1, a2, a5, SP[a3, a4], a6, n] - 
    S2[a1, a2, SP[a3, a4], a5, a6, n] - S2[a1, a2, SP[a3, a4], a6, a5, n] + 
    S2[a1, a2, SP[a3, a5], a4, a6, n] - S2[a6, n]*S2[a1, a3, a2, a4, a5, n] - 
    S2[a1, a3, a2, a4, SP[a5, a6], n] - S2[a6, n]*S2[a1, a3, a2, a5, a4, n] + 
    S2[a4, n]*S2[a1, a3, a2, a5, a6, n] + 
    S2[a4, n]*S2[a1, a3, a2, a6, a5, n] + S2[a1, a3, a2, a6, SP[a4, a5], n] + 
    S2[a1, a3, a2, SP[a4, a5], a6, n] - S2[a1, a3, a2, SP[a5, a6], a4, n] - 
    S2[a6, n]*S2[a1, a3, a4, a2, a5, n] - S2[a1, a3, a4, a2, SP[a5, a6], n] - 
    S2[a1, a3, a4, SP[a2, a6], a5, n] + S2[a4, n]*S2[a1, a3, a6, a2, a5, n] + 
    S2[a1, a3, a6, a2, SP[a4, a5], n] + S2[a1, a3, a6, SP[a2, a4], a5, n] + 
    S2[a1, a3, SP[a2, a4], a5, a6, n] + S2[a1, a3, SP[a2, a4], a6, a5, n] - 
    S2[a1, a3, SP[a2, a6], a4, a5, n] - S2[a1, a3, SP[a2, a6], a5, a4, n] - 
    S2[a1, a4, a2, a5, SP[a3, a6], n] + S2[a1, a4, a2, a6, SP[a3, a5], n] + 
    S2[a1, a4, a2, SP[a3, a5], a6, n] - S2[a1, a4, a2, SP[a3, a6], a5, n] - 
    S2[a6, n]*S2[a1, a4, a3, a2, a5, n] - S2[a1, a4, a3, a2, SP[a5, a6], n] - 
    S2[a1, a4, a3, SP[a2, a6], a5, n] + S2[a1, a4, a6, a2, SP[a3, a5], n] + 
    S2[a1, a4, a6, SP[a2, a3], a5, n] + S2[a1, a4, SP[a2, a3], a5, a6, n] + 
    S2[a1, a4, SP[a2, a3], a6, a5, n] - 2*S2[a1, a4, SP[a3, a6], a2, a5, n] + 
    S2[a4, n]*S2[a1, a6, a3, a2, a5, n] + S2[a1, a6, a3, a2, SP[a4, a5], n] + 
    S2[a1, a6, a3, SP[a2, a4], a5, n] + S2[a1, a6, SP[a3, a4], a2, a5, n] + 
    S2[a1, SP[a2, a3], a4, a5, a6, n] + S2[a1, SP[a2, a3], a4, a6, a5, n] + 
    S2[a1, SP[a2, a3], a5, a4, a6, n] - S2[a1, SP[a3, a6], a2, a4, a5, n] - 
    S2[a1, SP[a3, a6], a2, a5, a4, n] - S2[a1, SP[a3, a6], a4, a2, a5, n] - 
    S2[a2, a1, a4, a5, SP[a3, a6], n] + S2[a2, a1, a4, a6, SP[a3, a5], n] + 
    S2[a2, a1, a4, SP[a3, a5], a6, n] - S2[a2, a1, a4, SP[a3, a6], a5, n] - 
    S2[a2, a1, a5, a4, SP[a3, a6], n] - S2[a2, a1, a5, SP[a3, a4], a6, n] - 
    S2[a2, a1, SP[a3, a4], a5, a6, n] - S2[a2, a1, SP[a3, a4], a6, a5, n] + 
    S2[a2, a1, SP[a3, a5], a4, a6, n] + S2[a5, n]*S2[a2, a3, a1, a4, a6, n] - 
    S2[a2, a5, a1, a4, SP[a3, a6], n] - S2[a2, a5, a1, SP[a3, a4], a6, n] - 
    S2[a2, a5, SP[a1, a3], a4, a6, n] - S2[a2, SP[a1, a3], a4, a5, a6, n] - 
    S2[a2, SP[a1, a3], a4, a6, a5, n] - S2[a2, SP[a1, a3], a5, a4, a6, n] + 
    S2[a2, SP[a3, a5], a1, a4, a6, n] - S2[a4, a1, a3, a2, SP[a5, a6], n] - 
    S2[a4, a1, a3, SP[a2, a6], a5, n] - S2[a4, a1, SP[a3, a6], a2, a5, n] - 
    S2[a4, SP[a1, a6], a3, a2, a5, n] + S2[a4, n]*S2[a6, a1, a3, a2, a5, n] + 
    S2[a6, a1, a3, a2, SP[a4, a5], n] + S2[a6, a1, a3, SP[a2, a4], a5, n] + 
    S2[a6, a1, SP[a3, a4], a2, a5, n] + S2[a6, SP[a1, a4], a3, a2, a5, n] - 
    S2[SP[a1, a6], a3, a2, a4, a5, n] - S2[SP[a1, a6], a3, a2, a5, a4, n] - 
    S2[SP[a1, a6], a3, a4, a2, a5, n] - S2[SP[a1, a6], a4, a3, a2, a5, n] + 
    S2[SP[a2, a5], a3, a1, a4, a6, n] + S2[SP[a4, a6], a1, a3, a2, a5, n] - 
    S2[a6, a4, a1, a3, a2, a5, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a5_, a2_, a3_, a1_, a6_, a4_, n_] :> 
  -(S2[a1, a6, a4, n]*S2[a2, a3, a5, n]) - S2[a1, a6, a4, n]*
     S2[a2, a5, a3, n] - S2[SP[a1, a2], SP[a3, a6], SP[a4, a5], n] - 
    S2[SP[a1, a2], SP[a5, a6], SP[a3, a4], n] + S2[a1, a2, SP[a3, a6], 
     SP[a4, a5], n] + S2[a1, a2, SP[a5, a6], SP[a3, a4], n] + 
    S2[a4, a6, n]*S2[a1, a3, a2, a5, n] + S2[a2, a5, n]*
     S2[a1, a3, a6, a4, n] - S2[a1, a3, SP[a2, a4], SP[a5, a6], n] - 
    S2[a1, a3, SP[a2, a6], SP[a4, a5], n] + S2[a2, a5, n]*
     S2[a1, a6, a3, a4, n] + S2[a2, a5, n]*S2[a1, a6, a4, a3, n] - 
    S2[a1, a6, SP[a2, a3], SP[a4, a5], n] - S2[a1, a6, SP[a2, a4], 
     SP[a3, a5], n] - S2[a1, SP[a2, a3], a6, SP[a4, a5], n] - 
    S2[a1, SP[a2, a3], SP[a5, a6], a4, n] - S2[a1, SP[a2, a6], a4, 
     SP[a3, a5], n] + S2[a1, SP[a2, a6], a5, SP[a3, a4], n] + 
    S2[a1, SP[a2, a6], SP[a3, a4], a5, n] - S2[a1, SP[a2, a6], SP[a3, a5], 
     a4, n] - S2[a1, SP[a3, a4], a2, SP[a5, a6], n] - 
    S2[a1, SP[a3, a4], SP[a2, a6], a5, n] + S2[a2, a1, SP[a3, a6], 
     SP[a4, a5], n] + S2[a2, a1, SP[a5, a6], SP[a3, a4], n] + 
    S2[a2, SP[a1, a3], a6, SP[a4, a5], n] + S2[a2, SP[a1, a3], SP[a5, a6], 
     a4, n] + S2[a2, SP[a1, a5], a6, SP[a3, a4], n] + 
    S2[a2, SP[a1, a5], SP[a3, a6], a4, n] + S2[SP[a1, a2], a5, a6, 
     SP[a3, a4], n] + S2[SP[a1, a2], a5, SP[a3, a6], a4, n] - 
    S2[SP[a1, a2], a6, a4, SP[a3, a5], n] + S2[SP[a1, a2], a6, a5, 
     SP[a3, a4], n] + S2[SP[a1, a2], a6, SP[a3, a4], a5, n] - 
    S2[SP[a1, a2], a6, SP[a3, a5], a4, n] - S2[SP[a1, a2], SP[a3, a5], a6, 
     a4, n] + S2[SP[a1, a2], SP[a3, a6], a4, a5, n] + 
    S2[SP[a1, a2], SP[a3, a6], a5, a4, n] - S2[SP[a1, a4], a3, a2, 
     SP[a5, a6], n] - S2[SP[a1, a4], a3, SP[a2, a6], a5, n] - 
    S2[SP[a1, a4], SP[a3, a6], a2, a5, n] - S2[a1, a2, a5, a6, SP[a3, a4], 
     n] - S2[a1, a2, a5, SP[a3, a6], a4, n] + S2[a1, a2, a6, a4, SP[a3, a5], 
     n] - S2[a1, a2, a6, a5, SP[a3, a4], n] - S2[a1, a2, a6, SP[a3, a4], a5, 
     n] + S2[a1, a2, a6, SP[a3, a5], a4, n] + S2[a1, a2, SP[a3, a5], a6, a4, 
     n] - S2[a1, a2, SP[a3, a6], a4, a5, n] - S2[a1, a2, SP[a3, a6], a5, a4, 
     n] + S2[a1, a3, a2, a4, SP[a5, a6], n] - 
    S2[a4, n]*S2[a1, a3, a2, a5, a6, n] - S2[a1, a3, a2, a5, SP[a4, a6], n] - 
    S2[a4, n]*S2[a1, a3, a2, a6, a5, n] - S2[a1, a3, a2, SP[a4, a6], a5, n] + 
    S2[a1, a3, a2, SP[a5, a6], a4, n] + S2[a1, a3, a4, a2, SP[a5, a6], n] + 
    S2[a1, a3, a4, SP[a2, a6], a5, n] - S2[a4, n]*S2[a1, a3, a6, a2, a5, n] + 
    S2[a1, a3, SP[a2, a6], a4, a5, n] + S2[a1, a3, SP[a2, a6], a5, a4, n] - 
    S2[a1, a3, SP[a4, a6], a2, a5, n] + S2[a1, a4, a3, a2, SP[a5, a6], n] + 
    S2[a1, a4, a3, SP[a2, a6], a5, n] + S2[a1, a4, SP[a3, a6], a2, a5, n] + 
    S2[a1, a6, a2, a4, SP[a3, a5], n] - S2[a1, a6, a2, a5, SP[a3, a4], n] - 
    S2[a1, a6, a2, SP[a3, a4], a5, n] + S2[a1, a6, a2, SP[a3, a5], a4, n] - 
    S2[a4, n]*S2[a1, a6, a3, a2, a5, n] + S2[a1, a6, a4, a2, SP[a3, a5], n] + 
    S2[a1, a6, a4, SP[a2, a3], a5, n] + S2[a1, a6, SP[a2, a3], a4, a5, n] + 
    S2[a1, a6, SP[a2, a3], a5, a4, n] - S2[a1, a6, SP[a3, a4], a2, a5, n] + 
    S2[a1, SP[a2, a3], a5, a6, a4, n] + S2[a1, SP[a2, a3], a6, a4, a5, n] + 
    S2[a1, SP[a2, a3], a6, a5, a4, n] - S2[a1, SP[a4, a6], a3, a2, a5, n] - 
    S2[a2, a1, a5, a6, SP[a3, a4], n] - S2[a2, a1, a5, SP[a3, a6], a4, n] + 
    S2[a2, a1, a6, a4, SP[a3, a5], n] - S2[a2, a1, a6, a5, SP[a3, a4], n] - 
    S2[a2, a1, a6, SP[a3, a4], a5, n] + S2[a2, a1, a6, SP[a3, a5], a4, n] + 
    S2[a2, a1, SP[a3, a5], a6, a4, n] - S2[a2, a1, SP[a3, a6], a4, a5, n] - 
    S2[a2, a1, SP[a3, a6], a5, a4, n] + S2[a5, n]*S2[a2, a3, a1, a6, a4, n] - 
    S2[a2, a5, a1, a6, SP[a3, a4], n] - S2[a2, a5, a1, SP[a3, a6], a4, n] - 
    S2[a2, a5, SP[a1, a3], a6, a4, n] - S2[a2, SP[a1, a3], a5, a6, a4, n] - 
    S2[a2, SP[a1, a3], a6, a4, a5, n] - S2[a2, SP[a1, a3], a6, a5, a4, n] + 
    S2[a2, SP[a3, a5], a1, a6, a4, n] + S2[a4, a1, a3, a2, SP[a5, a6], n] + 
    S2[a4, a1, a3, SP[a2, a6], a5, n] + S2[a4, a1, SP[a3, a6], a2, a5, n] + 
    S2[a4, SP[a1, a6], a3, a2, a5, n] - S2[a4, n]*S2[a6, a1, a3, a2, a5, n] - 
    S2[a6, a1, a3, a2, SP[a4, a5], n] - S2[a6, a1, a3, SP[a2, a4], a5, n] - 
    S2[a6, a1, SP[a3, a4], a2, a5, n] - S2[a6, SP[a1, a4], a3, a2, a5, n] + 
    S2[SP[a2, a5], a3, a1, a6, a4, n] - S2[SP[a4, a6], a1, a3, a2, a5, n] + 
    S2[a6, a1, a3, a2, a4, a5, n] + S2[a6, a1, a3, a2, a5, a4, n] + 
    S2[a6, a1, a3, a4, a2, a5, n] + S2[a6, a1, a4, a3, a2, a5, n] + 
    S2[a6, a4, a1, a3, a2, a5, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a5_, a2_, a3_, a4_, a1_, a6_, n_] :> 
  S2[a1, a4, a6, n]*S2[a2, a3, a5, n] + S2[a1, a6, a4, n]*S2[a2, a3, a5, n] + 
    S2[a1, a4, a6, n]*S2[a2, a5, a3, n] + S2[a1, a6, a4, n]*
     S2[a2, a5, a3, n] + S2[SP[a1, a2], SP[a3, a4], SP[a5, a6], n] + 
    S2[SP[a1, a2], SP[a3, a6], SP[a4, a5], n] + S2[SP[a1, a2], SP[a4, a5], 
     SP[a3, a6], n] + S2[SP[a1, a2], SP[a5, a6], SP[a3, a4], n] - 
    S2[a1, a2, SP[a3, a4], SP[a5, a6], n] - S2[a1, a2, SP[a3, a6], 
     SP[a4, a5], n] - S2[a1, a2, SP[a4, a5], SP[a3, a6], n] - 
    S2[a1, a2, SP[a5, a6], SP[a3, a4], n] - S2[a2, a5, n]*
     S2[a1, a4, a3, a6, n] - S2[a2, a5, n]*S2[a1, a4, a6, a3, n] + 
    S2[a1, a4, SP[a2, a3], SP[a5, a6], n] + S2[a1, a4, SP[a2, a6], 
     SP[a3, a5], n] - S2[a2, a5, n]*S2[a1, a6, a4, a3, n] + 
    S2[a1, a6, SP[a2, a4], SP[a3, a5], n] - S2[a1, SP[a2, a4], a5, 
     SP[a3, a6], n] + S2[a1, SP[a2, a4], a6, SP[a3, a5], n] + 
    S2[a1, SP[a2, a4], SP[a3, a5], a6, n] - S2[a1, SP[a2, a4], SP[a3, a6], 
     a5, n] - S2[a1, SP[a2, a6], a3, SP[a4, a5], n] + 
    S2[a1, SP[a2, a6], a4, SP[a3, a5], n] - S2[a1, SP[a2, a6], a5, 
     SP[a3, a4], n] - S2[a1, SP[a2, a6], SP[a3, a4], a5, n] - 
    S2[a2, a1, SP[a3, a4], SP[a5, a6], n] - S2[a2, a1, SP[a3, a6], 
     SP[a4, a5], n] - S2[a2, a1, SP[a4, a5], SP[a3, a6], n] - 
    S2[a2, a1, SP[a5, a6], SP[a3, a4], n] - S2[a1, a6, n]*
     S2[a2, a3, a4, a5, n] - S2[a1, a6, n]*S2[a2, a3, a5, a4, n] + 
    S2[a2, a3, SP[a1, a4], SP[a5, a6], n] + S2[a2, a3, SP[a1, a5], 
     SP[a4, a6], n] - S2[a1, a6, n]*S2[a2, a5, a3, a4, n] + 
    S2[a2, a5, SP[a1, a3], SP[a4, a6], n] + S2[a2, SP[a1, a3], a5, 
     SP[a4, a6], n] - S2[a2, SP[a1, a3], a6, SP[a4, a5], n] - 
    S2[a2, SP[a1, a3], SP[a4, a5], a6, n] + S2[a2, SP[a1, a3], SP[a4, a6], 
     a5, n] + S2[a2, SP[a1, a5], a3, SP[a4, a6], n] - 
    S2[a2, SP[a1, a5], a4, SP[a3, a6], n] - S2[a2, SP[a1, a5], a6, 
     SP[a3, a4], n] - S2[a2, SP[a1, a5], SP[a3, a4], a6, n] + 
    S2[SP[a1, a2], a3, a5, SP[a4, a6], n] - S2[SP[a1, a2], a3, a6, 
     SP[a4, a5], n] - S2[SP[a1, a2], a3, SP[a4, a5], a6, n] + 
    S2[SP[a1, a2], a3, SP[a4, a6], a5, n] - S2[SP[a1, a2], a4, a5, 
     SP[a3, a6], n] + S2[SP[a1, a2], a4, a6, SP[a3, a5], n] + 
    S2[SP[a1, a2], a4, SP[a3, a5], a6, n] - S2[SP[a1, a2], a4, SP[a3, a6], 
     a5, n] + S2[SP[a1, a2], a5, a3, SP[a4, a6], n] - 
    S2[SP[a1, a2], a5, a4, SP[a3, a6], n] - S2[SP[a1, a2], a5, a6, 
     SP[a3, a4], n] - S2[SP[a1, a2], a5, SP[a3, a4], a6, n] - 
    S2[SP[a1, a2], a6, a3, SP[a4, a5], n] + S2[SP[a1, a2], a6, a4, 
     SP[a3, a5], n] - S2[SP[a1, a2], a6, a5, SP[a3, a4], n] - 
    S2[SP[a1, a2], a6, SP[a3, a4], a5, n] - S2[SP[a1, a2], SP[a3, a4], a5, 
     a6, n] - S2[SP[a1, a2], SP[a3, a4], a6, a5, n] - 
    S2[a1, a2, a3, a5, SP[a4, a6], n] + S2[a1, a2, a3, a6, SP[a4, a5], n] + 
    S2[a1, a2, a3, SP[a4, a5], a6, n] - S2[a1, a2, a3, SP[a4, a6], a5, n] + 
    S2[a1, a2, a4, a5, SP[a3, a6], n] - S2[a1, a2, a4, a6, SP[a3, a5], n] - 
    S2[a1, a2, a4, SP[a3, a5], a6, n] + S2[a1, a2, a4, SP[a3, a6], a5, n] - 
    S2[a1, a2, a5, a3, SP[a4, a6], n] + S2[a1, a2, a5, a4, SP[a3, a6], n] + 
    S2[a1, a2, a5, a6, SP[a3, a4], n] + S2[a1, a2, a5, SP[a3, a4], a6, n] + 
    S2[a1, a2, a6, a3, SP[a4, a5], n] - S2[a1, a2, a6, a4, SP[a3, a5], n] + 
    S2[a1, a2, a6, a5, SP[a3, a4], n] + S2[a1, a2, a6, SP[a3, a4], a5, n] + 
    S2[a1, a2, SP[a3, a4], a5, a6, n] + S2[a1, a2, SP[a3, a4], a6, a5, n] + 
    S2[a1, a4, a2, a5, SP[a3, a6], n] - S2[a1, a4, a2, a6, SP[a3, a5], n] - 
    S2[a1, a4, a2, SP[a3, a5], a6, n] + S2[a1, a4, a2, SP[a3, a6], a5, n] + 
    S2[a6, n]*S2[a1, a4, a3, a2, a5, n] - S2[a1, a4, a6, a2, SP[a3, a5], n] - 
    S2[a1, a4, a6, SP[a2, a3], a5, n] - S2[a1, a4, SP[a2, a3], a5, a6, n] - 
    S2[a1, a4, SP[a2, a3], a6, a5, n] + S2[a1, a4, SP[a3, a6], a2, a5, n] + 
    S2[a1, a6, a2, a3, SP[a4, a5], n] - S2[a1, a6, a2, a4, SP[a3, a5], n] + 
    S2[a1, a6, a2, a5, SP[a3, a4], n] + S2[a1, a6, a2, SP[a3, a4], a5, n] - 
    S2[a1, a6, a4, a2, SP[a3, a5], n] - S2[a1, a6, a4, SP[a2, a3], a5, n] + 
    S2[a1, SP[a4, a6], a3, a2, a5, n] - S2[a2, a1, a3, a5, SP[a4, a6], n] + 
    S2[a2, a1, a3, a6, SP[a4, a5], n] + S2[a2, a1, a3, SP[a4, a5], a6, n] - 
    S2[a2, a1, a3, SP[a4, a6], a5, n] + S2[a2, a1, a4, a5, SP[a3, a6], n] - 
    S2[a2, a1, a4, a6, SP[a3, a5], n] - S2[a2, a1, a4, SP[a3, a5], a6, n] + 
    S2[a2, a1, a4, SP[a3, a6], a5, n] - S2[a2, a1, a5, a3, SP[a4, a6], n] + 
    S2[a2, a1, a5, a4, SP[a3, a6], n] + S2[a2, a1, a5, a6, SP[a3, a4], n] + 
    S2[a2, a1, a5, SP[a3, a4], a6, n] + S2[a2, a1, a6, a3, SP[a4, a5], n] - 
    S2[a2, a1, a6, a4, SP[a3, a5], n] + S2[a2, a1, a6, a5, SP[a3, a4], n] + 
    S2[a2, a1, a6, SP[a3, a4], a5, n] + S2[a2, a1, SP[a3, a4], a5, a6, n] + 
    S2[a2, a1, SP[a3, a4], a6, a5, n] - S2[a2, a3, a1, a5, SP[a4, a6], n] + 
    S2[a2, a3, a1, a6, SP[a4, a5], n] + S2[a2, a3, a1, SP[a4, a5], a6, n] - 
    S2[a2, a3, a1, SP[a4, a6], a5, n] + S2[a5, n]*S2[a2, a3, a4, a1, a6, n] - 
    S2[a2, a3, a5, a1, SP[a4, a6], n] - S2[a2, a3, a5, SP[a1, a4], a6, n] - 
    S2[a2, a3, SP[a1, a4], a5, a6, n] - S2[a2, a3, SP[a1, a4], a6, a5, n] + 
    S2[a2, a3, SP[a4, a5], a1, a6, n] - S2[a2, a5, a1, a3, SP[a4, a6], n] + 
    S2[a2, a5, a1, a4, SP[a3, a6], n] + S2[a2, a5, a1, a6, SP[a3, a4], n] + 
    S2[a2, a5, a1, SP[a3, a4], a6, n] - S2[a2, a5, a3, a1, SP[a4, a6], n] - 
    S2[a2, a5, a3, SP[a1, a4], a6, n] + S2[a2, SP[a3, a5], a4, a1, a6, n] + 
    S2[SP[a1, a6], a4, a3, a2, a5, n] + S2[SP[a2, a5], a3, a4, a1, a6, n] - 
    S2[a6, a1, a4, a3, a2, a5, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a5_, a2_, a3_, a4_, a6_, a1_, n_] :> 
  -(S2[a1, a6, a4, n]*S2[a2, a3, a5, n]) - S2[a1, a6, a4, n]*
     S2[a2, a5, a3, n] - S2[SP[a1, a2], SP[a3, a6], SP[a4, a5], n] - 
    S2[SP[a1, a2], SP[a5, a6], SP[a3, a4], n] + S2[a1, a2, SP[a3, a6], 
     SP[a4, a5], n] + S2[a1, a2, SP[a5, a6], SP[a3, a4], n] + 
    S2[a2, a5, n]*S2[a1, a6, a4, a3, n] - S2[a1, a6, SP[a2, a4], SP[a3, a5], 
     n] + S2[a1, SP[a2, a6], a3, SP[a4, a5], n] - S2[a1, SP[a2, a6], a4, 
     SP[a3, a5], n] + S2[a1, SP[a2, a6], a5, SP[a3, a4], n] + 
    S2[a1, SP[a2, a6], SP[a3, a4], a5, n] + S2[a2, a1, SP[a3, a6], 
     SP[a4, a5], n] + S2[a2, a1, SP[a5, a6], SP[a3, a4], n] + 
    S2[a1, a6, n]*S2[a2, a3, a4, a5, n] + S2[a1, a6, n]*
     S2[a2, a3, a5, a4, n] - S2[a2, a3, SP[a1, a4], SP[a5, a6], n] - 
    S2[a2, a3, SP[a1, a5], SP[a4, a6], n] + S2[a1, a6, n]*
     S2[a2, a5, a3, a4, n] - S2[a2, a5, SP[a1, a3], SP[a4, a6], n] - 
    S2[a2, SP[a1, a3], a4, SP[a5, a6], n] - S2[a2, SP[a1, a3], a5, 
     SP[a4, a6], n] + S2[a2, SP[a1, a3], a6, SP[a4, a5], n] - 
    S2[a2, SP[a1, a3], SP[a4, a6], a5, n] - S2[a2, SP[a1, a5], a3, 
     SP[a4, a6], n] + S2[a2, SP[a1, a5], a6, SP[a3, a4], n] - 
    S2[SP[a1, a2], a3, a4, SP[a5, a6], n] - S2[SP[a1, a2], a3, a5, 
     SP[a4, a6], n] + S2[SP[a1, a2], a3, a6, SP[a4, a5], n] - 
    S2[SP[a1, a2], a3, SP[a4, a6], a5, n] - S2[SP[a1, a2], a5, a3, 
     SP[a4, a6], n] + S2[SP[a1, a2], a5, a6, SP[a3, a4], n] + 
    S2[SP[a1, a2], a6, a3, SP[a4, a5], n] - S2[SP[a1, a2], a6, a4, 
     SP[a3, a5], n] + S2[SP[a1, a2], a6, a5, SP[a3, a4], n] + 
    S2[SP[a1, a2], a6, SP[a3, a4], a5, n] + S2[a1, a2, a3, a4, SP[a5, a6], 
     n] + S2[a1, a2, a3, a5, SP[a4, a6], n] - S2[a1, a2, a3, a6, SP[a4, a5], 
     n] + S2[a1, a2, a3, SP[a4, a6], a5, n] + S2[a1, a2, a5, a3, SP[a4, a6], 
     n] - S2[a1, a2, a5, a6, SP[a3, a4], n] - S2[a1, a2, a6, a3, SP[a4, a5], 
     n] + S2[a1, a2, a6, a4, SP[a3, a5], n] - S2[a1, a2, a6, a5, SP[a3, a4], 
     n] - S2[a1, a2, a6, SP[a3, a4], a5, n] + 
    S2[a5, n]*S2[a1, a3, a2, a4, a6, n] + S2[a1, a3, a2, a4, SP[a5, a6], n] + 
    S2[a1, a3, a2, SP[a4, a5], a6, n] + S2[a5, n]*S2[a1, a3, a4, a2, a6, n] + 
    S2[a1, a3, a4, a2, SP[a5, a6], n] - S2[a2, n]*S2[a1, a3, a4, a5, a6, n] - 
    S2[a1, a3, a4, a5, SP[a2, a6], n] + S2[a5, n]*S2[a1, a3, a4, a6, a2, n] - 
    S2[a2, n]*S2[a1, a3, a4, a6, a5, n] - S2[a1, a3, a4, SP[a2, a6], a5, n] + 
    S2[a1, a3, a4, SP[a5, a6], a2, n] - S2[a2, n]*S2[a1, a3, a5, a4, a6, n] - 
    S2[a1, a3, a5, a4, SP[a2, a6], n] - S2[a1, a3, a5, SP[a2, a4], a6, n] - 
    S2[a1, a3, SP[a2, a4], a5, a6, n] - S2[a1, a3, SP[a2, a4], a6, a5, n] + 
    S2[a1, a3, SP[a4, a5], a2, a6, n] + S2[a1, a3, SP[a4, a5], a6, a2, n] - 
    S2[a2, n]*S2[a1, a5, a3, a4, a6, n] - S2[a1, a5, a3, a4, SP[a2, a6], n] - 
    S2[a1, a5, a3, SP[a2, a4], a6, n] - S2[a1, a5, SP[a2, a3], a4, a6, n] - 
    S2[a1, a6, a2, a3, SP[a4, a5], n] + S2[a1, a6, a2, a4, SP[a3, a5], n] - 
    S2[a1, a6, a2, a5, SP[a3, a4], n] - S2[a1, a6, a2, SP[a3, a4], a5, n] + 
    S2[a1, a6, a4, a2, SP[a3, a5], n] + S2[a1, a6, a4, SP[a2, a3], a5, n] - 
    S2[a1, SP[a2, a3], a4, a5, a6, n] - S2[a1, SP[a2, a3], a4, a6, a5, n] - 
    S2[a1, SP[a2, a3], a5, a4, a6, n] - S2[a1, SP[a2, a5], a3, a4, a6, n] + 
    S2[a1, SP[a3, a5], a2, a4, a6, n] + S2[a1, SP[a3, a5], a4, a2, a6, n] + 
    S2[a1, SP[a3, a5], a4, a6, a2, n] + S2[a2, a1, a3, a4, SP[a5, a6], n] + 
    S2[a2, a1, a3, a5, SP[a4, a6], n] - S2[a2, a1, a3, a6, SP[a4, a5], n] + 
    S2[a2, a1, a3, SP[a4, a6], a5, n] + S2[a2, a1, a5, a3, SP[a4, a6], n] - 
    S2[a2, a1, a5, a6, SP[a3, a4], n] - S2[a2, a1, a6, a3, SP[a4, a5], n] + 
    S2[a2, a1, a6, a4, SP[a3, a5], n] - S2[a2, a1, a6, a5, SP[a3, a4], n] - 
    S2[a2, a1, a6, SP[a3, a4], a5, n] - S2[a5, n]*S2[a2, a3, a1, a4, a6, n] + 
    S2[a2, a3, a1, a5, SP[a4, a6], n] - S2[a2, a3, a1, a6, SP[a4, a5], n] - 
    S2[a2, a3, a1, SP[a4, a5], a6, n] + S2[a2, a3, a1, SP[a4, a6], a5, n] - 
    S2[a5, n]*S2[a2, a3, a4, a1, a6, n] + S2[a2, a3, a5, a1, SP[a4, a6], n] + 
    S2[a2, a3, a5, SP[a1, a4], a6, n] + S2[a2, a3, SP[a1, a4], a5, a6, n] + 
    S2[a2, a3, SP[a1, a4], a6, a5, n] - S2[a2, a3, SP[a4, a5], a1, a6, n] + 
    S2[a2, a5, a1, a3, SP[a4, a6], n] - S2[a2, a5, a1, a6, SP[a3, a4], n] + 
    S2[a2, a5, a3, a1, SP[a4, a6], n] + S2[a2, a5, a3, SP[a1, a4], a6, n] + 
    S2[a2, a5, SP[a1, a3], a4, a6, n] + S2[a2, SP[a1, a3], a4, a5, a6, n] + 
    S2[a2, SP[a1, a3], a4, a6, a5, n] + S2[a2, SP[a1, a3], a5, a4, a6, n] + 
    S2[a2, SP[a1, a5], a3, a4, a6, n] - S2[a2, SP[a3, a5], a1, a4, a6, n] - 
    S2[a2, SP[a3, a5], a4, a1, a6, n] - S2[a2, n]*S2[a5, a1, a3, a4, a6, n] - 
    S2[a5, a1, a3, a4, SP[a2, a6], n] - S2[a5, a1, a3, SP[a2, a4], a6, n] - 
    S2[a5, a1, SP[a2, a3], a4, a6, n] + S2[a1, n]*S2[a5, a2, a3, a4, a6, n] + 
    S2[a5, a2, a3, a4, SP[a1, a6], n] + S2[a5, a2, a3, SP[a1, a4], a6, n] + 
    S2[a5, a2, SP[a1, a3], a4, a6, n] - S2[a1, n]*S2[a6, a4, a3, a2, a5, n] - 
    S2[a6, a4, a3, a2, SP[a1, a5], n] - S2[a6, a4, a3, SP[a1, a2], a5, n] - 
    S2[a6, a4, SP[a1, a3], a2, a5, n] - S2[a6, SP[a1, a4], a3, a2, a5, n] + 
    S2[SP[a1, a5], a2, a3, a4, a6, n] + S2[SP[a1, a5], a3, a2, a4, a6, n] + 
    S2[SP[a1, a5], a3, a4, a2, a6, n] + S2[SP[a1, a5], a3, a4, a6, a2, n] - 
    S2[SP[a1, a6], a4, a3, a2, a5, n] - S2[SP[a2, a5], a1, a3, a4, a6, n] - 
    S2[SP[a2, a5], a3, a1, a4, a6, n] - S2[SP[a2, a5], a3, a4, a1, a6, n] + 
    S2[a6, a1, a4, a3, a2, a5, n] + S2[a6, a4, a1, a3, a2, a5, n] + 
    S2[a6, a4, a3, a1, a2, a5, n] + S2[a6, a4, a3, a2, a1, a5, n] + 
    S2[a6, a4, a3, a2, a5, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a5_, a2_, a3_, a6_, a1_, a4_, n_] :> 
  S2[a1, a4, a6, n]*S2[a2, a3, a5, n] + S2[a1, a6, a4, n]*S2[a2, a3, a5, n] + 
    S2[a1, a4, a6, n]*S2[a2, a5, a3, n] + S2[a1, a6, a4, n]*
     S2[a2, a5, a3, n] + S2[SP[a1, a2], SP[a3, a4], SP[a5, a6], n] + 
    S2[SP[a1, a2], SP[a3, a6], SP[a4, a5], n] + S2[SP[a1, a2], SP[a4, a5], 
     SP[a3, a6], n] + S2[SP[a1, a2], SP[a5, a6], SP[a3, a4], n] - 
    S2[a1, a2, SP[a3, a4], SP[a5, a6], n] - S2[a1, a2, SP[a3, a6], 
     SP[a4, a5], n] - S2[a1, a2, SP[a4, a5], SP[a3, a6], n] - 
    S2[a1, a2, SP[a5, a6], SP[a3, a4], n] - S2[a2, a5, n]*
     S2[a1, a4, a6, a3, n] + S2[a1, a4, SP[a2, a6], SP[a3, a5], n] - 
    S2[a2, a5, n]*S2[a1, a6, a3, a4, n] - S2[a2, a5, n]*
     S2[a1, a6, a4, a3, n] + S2[a1, a6, SP[a2, a3], SP[a4, a5], n] + 
    S2[a1, a6, SP[a2, a4], SP[a3, a5], n] - S2[a1, SP[a2, a4], a3, 
     SP[a5, a6], n] - S2[a1, SP[a2, a4], a5, SP[a3, a6], n] + 
    S2[a1, SP[a2, a4], a6, SP[a3, a5], n] - S2[a1, SP[a2, a4], SP[a3, a6], 
     a5, n] + S2[a1, SP[a2, a6], a4, SP[a3, a5], n] - 
    S2[a1, SP[a2, a6], a5, SP[a3, a4], n] - S2[a1, SP[a2, a6], SP[a3, a4], 
     a5, n] + S2[a1, SP[a2, a6], SP[a3, a5], a4, n] - 
    S2[a2, a1, SP[a3, a4], SP[a5, a6], n] - S2[a2, a1, SP[a3, a6], 
     SP[a4, a5], n] - S2[a2, a1, SP[a4, a5], SP[a3, a6], n] - 
    S2[a2, a1, SP[a5, a6], SP[a3, a4], n] + S2[a1, a4, n]*
     S2[a2, a5, a6, a3, n] - S2[a2, a5, SP[a1, a6], SP[a3, a4], n] + 
    S2[a1, a4, n]*S2[a2, a6, a3, a5, n] + S2[a1, a4, n]*
     S2[a2, a6, a5, a3, n] - S2[a2, a6, SP[a1, a3], SP[a4, a5], n] - 
    S2[a2, a6, SP[a1, a5], SP[a3, a4], n] - S2[a2, SP[a1, a3], a4, 
     SP[a5, a6], n] - S2[a2, SP[a1, a3], a6, SP[a4, a5], n] - 
    S2[a2, SP[a1, a3], SP[a4, a5], a6, n] - S2[a2, SP[a1, a3], SP[a5, a6], 
     a4, n] - S2[a2, SP[a1, a5], a4, SP[a3, a6], n] - 
    2*S2[a2, SP[a1, a5], a6, SP[a3, a4], n] - S2[a2, SP[a1, a5], SP[a3, a4], 
     a6, n] - S2[a2, SP[a1, a5], SP[a3, a6], a4, n] - 
    S2[a2, SP[a1, a5], SP[a4, a6], a3, n] - S2[a2, SP[a1, a6], a3, 
     SP[a4, a5], n] - S2[a2, SP[a1, a6], a5, SP[a3, a4], n] - 
    S2[a2, SP[a1, a6], SP[a3, a4], a5, n] - S2[a2, SP[a1, a6], SP[a4, a5], 
     a3, n] - S2[a1, a4, n]*S2[a3, a6, a2, a5, n] + 
    S2[a3, a6, SP[a1, a2], SP[a4, a5], n] + S2[a3, SP[a1, a6], a2, 
     SP[a4, a5], n] + S2[a3, SP[a1, a6], SP[a2, a4], a5, n] - 
    S2[SP[a1, a2], a3, a4, SP[a5, a6], n] - S2[SP[a1, a2], a3, a6, 
     SP[a4, a5], n] - S2[SP[a1, a2], a3, SP[a4, a5], a6, n] - 
    S2[SP[a1, a2], a3, SP[a5, a6], a4, n] - S2[SP[a1, a2], a4, a3, 
     SP[a5, a6], n] - S2[SP[a1, a2], a4, a5, SP[a3, a6], n] + 
    S2[SP[a1, a2], a4, a6, SP[a3, a5], n] - S2[SP[a1, a2], a4, SP[a3, a6], 
     a5, n] - S2[SP[a1, a2], a5, a4, SP[a3, a6], n] - 
    2*S2[SP[a1, a2], a5, a6, SP[a3, a4], n] - S2[SP[a1, a2], a5, SP[a3, a4], 
     a6, n] - S2[SP[a1, a2], a5, SP[a3, a6], a4, n] - 
    S2[SP[a1, a2], a5, SP[a4, a6], a3, n] - S2[SP[a1, a2], a6, a3, 
     SP[a4, a5], n] + S2[SP[a1, a2], a6, a4, SP[a3, a5], n] - 
    2*S2[SP[a1, a2], a6, a5, SP[a3, a4], n] - 
    2*S2[SP[a1, a2], a6, SP[a3, a4], a5, n] + S2[SP[a1, a2], a6, SP[a3, a5], 
     a4, n] - S2[SP[a1, a2], a6, SP[a4, a5], a3, n] - 
    S2[SP[a1, a2], SP[a3, a4], a5, a6, n] - S2[SP[a1, a2], SP[a3, a4], a6, 
     a5, n] - S2[SP[a1, a2], SP[a3, a6], a4, a5, n] - 
    S2[SP[a1, a2], SP[a3, a6], a5, a4, n] - S2[SP[a1, a2], SP[a4, a5], a3, 
     a6, n] - S2[SP[a1, a2], SP[a4, a5], a6, a3, n] - 
    S2[SP[a1, a2], SP[a4, a6], a3, a5, n] - S2[SP[a1, a2], SP[a4, a6], a5, 
     a3, n] + S2[SP[a1, a3], a6, a2, SP[a4, a5], n] + 
    S2[SP[a1, a3], a6, SP[a2, a4], a5, n] + S2[SP[a1, a3], SP[a4, a6], a2, 
     a5, n] + S2[a1, a2, a3, a4, SP[a5, a6], n] + 
    S2[a1, a2, a3, a6, SP[a4, a5], n] + S2[a1, a2, a3, SP[a4, a5], a6, n] + 
    S2[a1, a2, a3, SP[a5, a6], a4, n] + S2[a1, a2, a4, a3, SP[a5, a6], n] + 
    S2[a1, a2, a4, a5, SP[a3, a6], n] - S2[a1, a2, a4, a6, SP[a3, a5], n] + 
    S2[a1, a2, a4, SP[a3, a6], a5, n] + S2[a1, a2, a5, a4, SP[a3, a6], n] + 
    2*S2[a1, a2, a5, a6, SP[a3, a4], n] + S2[a1, a2, a5, SP[a3, a4], a6, n] + 
    S2[a1, a2, a5, SP[a3, a6], a4, n] + S2[a1, a2, a5, SP[a4, a6], a3, n] + 
    S2[a1, a2, a6, a3, SP[a4, a5], n] - S2[a1, a2, a6, a4, SP[a3, a5], n] + 
    2*S2[a1, a2, a6, a5, SP[a3, a4], n] + 
    2*S2[a1, a2, a6, SP[a3, a4], a5, n] - S2[a1, a2, a6, SP[a3, a5], a4, n] + 
    S2[a1, a2, a6, SP[a4, a5], a3, n] + S2[a1, a2, SP[a3, a4], a5, a6, n] + 
    S2[a1, a2, SP[a3, a4], a6, a5, n] + S2[a1, a2, SP[a3, a6], a4, a5, n] + 
    S2[a1, a2, SP[a3, a6], a5, a4, n] + S2[a1, a2, SP[a4, a5], a3, a6, n] + 
    S2[a1, a2, SP[a4, a5], a6, a3, n] + S2[a1, a2, SP[a4, a6], a3, a5, n] + 
    S2[a1, a2, SP[a4, a6], a5, a3, n] + S2[a6, n]*S2[a1, a3, a2, a4, a5, n] + 
    S2[a1, a3, a2, a4, SP[a5, a6], n] + S2[a6, n]*S2[a1, a3, a2, a5, a4, n] + 
    S2[a1, a3, a2, a5, SP[a4, a6], n] + S2[a1, a3, a2, SP[a4, a6], a5, n] + 
    S2[a1, a3, a2, SP[a5, a6], a4, n] + S2[a6, n]*S2[a1, a3, a4, a2, a5, n] + 
    S2[a1, a3, a4, a2, SP[a5, a6], n] + S2[a6, n]*S2[a1, a3, a4, a5, a2, n] - 
    S2[a2, n]*S2[a1, a3, a4, a5, a6, n] - 
    S2[a2, n]*S2[a1, a3, a4, a6, a5, n] - S2[a1, a3, a4, a6, SP[a2, a5], n] - 
    S2[a1, a3, a4, SP[a2, a5], a6, n] + S2[a1, a3, a4, SP[a5, a6], a2, n] + 
    S2[a6, n]*S2[a1, a3, a5, a2, a4, n] + S2[a1, a3, a5, a2, SP[a4, a6], n] + 
    S2[a6, n]*S2[a1, a3, a5, a4, a2, n] - 
    S2[a2, n]*S2[a1, a3, a5, a4, a6, n] - 
    S2[a2, n]*S2[a1, a3, a5, a6, a4, n] - S2[a1, a3, a5, a6, SP[a2, a4], n] - 
    S2[a1, a3, a5, SP[a2, a4], a6, n] + S2[a1, a3, a5, SP[a4, a6], a2, n] - 
    S2[a1, a3, a6, a2, SP[a4, a5], n] - S2[a2, n]*S2[a1, a3, a6, a4, a5, n] - 
    S2[a1, a3, a6, a4, SP[a2, a5], n] - S2[a2, n]*S2[a1, a3, a6, a5, a4, n] - 
    S2[a1, a3, a6, a5, SP[a2, a4], n] - 2*S2[a1, a3, a6, SP[a2, a4], a5, n] - 
    S2[a1, a3, a6, SP[a2, a5], a4, n] - S2[a1, a3, SP[a2, a4], a5, a6, n] - 
    S2[a1, a3, SP[a2, a4], a6, a5, n] - S2[a1, a3, SP[a2, a5], a4, a6, n] - 
    S2[a1, a3, SP[a2, a5], a6, a4, n] + S2[a1, a3, SP[a4, a6], a5, a2, n] + 
    S2[a1, a3, SP[a5, a6], a2, a4, n] + S2[a1, a3, SP[a5, a6], a4, a2, n] + 
    S2[a1, a4, a2, a3, SP[a5, a6], n] + S2[a1, a4, a2, a5, SP[a3, a6], n] - 
    S2[a1, a4, a2, a6, SP[a3, a5], n] + S2[a1, a4, a2, SP[a3, a6], a5, n] + 
    S2[a6, n]*S2[a1, a4, a3, a2, a5, n] + S2[a1, a4, a3, a2, SP[a5, a6], n] + 
    S2[a6, n]*S2[a1, a4, a3, a5, a2, n] - 
    S2[a2, n]*S2[a1, a4, a3, a5, a6, n] - 
    S2[a2, n]*S2[a1, a4, a3, a6, a5, n] - S2[a1, a4, a3, a6, SP[a2, a5], n] - 
    S2[a1, a4, a3, SP[a2, a5], a6, n] + S2[a1, a4, a3, SP[a5, a6], a2, n] + 
    S2[a6, n]*S2[a1, a4, a5, a2, a3, n] + S2[a1, a4, a5, a2, SP[a3, a6], n] + 
    S2[a6, n]*S2[a1, a4, a5, a3, a2, n] - 
    S2[a2, n]*S2[a1, a4, a5, a3, a6, n] - 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] - S2[a1, a4, a5, a6, SP[a2, a3], n] - 
    S2[a1, a4, a5, SP[a2, a3], a6, n] + S2[a1, a4, a5, SP[a3, a6], a2, n] + 
    S2[a3, n]*S2[a1, a4, a6, a2, a5, n] - 
    S2[a2, n]*S2[a1, a4, a6, a3, a5, n] - S2[a1, a4, a6, a3, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a4, a6, a5, a3, n] - S2[a1, a4, a6, a5, SP[a2, a3], n] - 
    S2[a1, a4, a6, SP[a2, a3], a5, n] - S2[a1, a4, a6, SP[a2, a5], a3, n] - 
    S2[a1, a4, SP[a2, a3], a5, a6, n] - S2[a1, a4, SP[a2, a3], a6, a5, n] - 
    S2[a1, a4, SP[a2, a5], a3, a6, n] - S2[a1, a4, SP[a2, a5], a6, a3, n] - 
    S2[a1, a4, SP[a2, a6], a3, a5, n] - S2[a1, a4, SP[a2, a6], a5, a3, n] + 
    2*S2[a1, a4, SP[a3, a6], a2, a5, n] + S2[a1, a4, SP[a3, a6], a5, a2, n] + 
    S2[a1, a4, SP[a5, a6], a2, a3, n] + S2[a1, a4, SP[a5, a6], a3, a2, n] + 
    S2[a6, n]*S2[a1, a5, a2, a3, a4, n] + S2[a1, a5, a2, a3, SP[a4, a6], n] + 
    S2[a6, n]*S2[a1, a5, a2, a4, a3, n] + S2[a1, a5, a2, a4, SP[a3, a6], n] + 
    S2[a1, a5, a2, SP[a3, a6], a4, n] + S2[a1, a5, a2, SP[a4, a6], a3, n] + 
    S2[a6, n]*S2[a1, a5, a3, a2, a4, n] + S2[a1, a5, a3, a2, SP[a4, a6], n] + 
    S2[a6, n]*S2[a1, a5, a3, a4, a2, n] - 
    S2[a2, n]*S2[a1, a5, a3, a4, a6, n] - 
    S2[a2, n]*S2[a1, a5, a3, a6, a4, n] - S2[a1, a5, a3, a6, SP[a2, a4], n] - 
    S2[a1, a5, a3, SP[a2, a4], a6, n] + S2[a1, a5, a3, SP[a4, a6], a2, n] + 
    S2[a6, n]*S2[a1, a5, a4, a2, a3, n] + S2[a1, a5, a4, a2, SP[a3, a6], n] + 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] - 
    S2[a2, n]*S2[a1, a5, a4, a3, a6, n] - 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] - S2[a1, a5, a4, a6, SP[a2, a3], n] - 
    S2[a1, a5, a4, SP[a2, a3], a6, n] + S2[a1, a5, a4, SP[a3, a6], a2, n] - 
    S2[a2, n]*S2[a1, a5, a6, a3, a4, n] - S2[a1, a5, a6, a3, SP[a2, a4], n] - 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] - S2[a1, a5, a6, a4, SP[a2, a3], n] - 
    S2[a1, a5, a6, SP[a2, a3], a4, n] - S2[a1, a5, a6, SP[a2, a4], a3, n] - 
    S2[a1, a5, SP[a2, a3], a4, a6, n] - S2[a1, a5, SP[a2, a3], a6, a4, n] - 
    S2[a1, a5, SP[a2, a4], a3, a6, n] - S2[a1, a5, SP[a2, a4], a6, a3, n] + 
    S2[a1, a5, SP[a3, a6], a2, a4, n] + S2[a1, a5, SP[a3, a6], a4, a2, n] + 
    S2[a1, a5, SP[a4, a6], a2, a3, n] + S2[a1, a5, SP[a4, a6], a3, a2, n] + 
    S2[a3, n]*S2[a1, a6, a2, a4, a5, n] + 
    S2[a3, n]*S2[a1, a6, a2, a5, a4, n] + 
    2*S2[a1, a6, a2, a5, SP[a3, a4], n] + 
    2*S2[a1, a6, a2, SP[a3, a4], a5, n] - S2[a1, a6, a3, a2, SP[a4, a5], n] - 
    S2[a2, n]*S2[a1, a6, a3, a4, a5, n] - S2[a1, a6, a3, a4, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a6, a3, a5, a4, n] - S2[a1, a6, a3, a5, SP[a2, a4], n] - 
    2*S2[a1, a6, a3, SP[a2, a4], a5, n] - S2[a1, a6, a3, SP[a2, a5], a4, n] + 
    S2[a3, n]*S2[a1, a6, a4, a2, a5, n] - 
    S2[a2, n]*S2[a1, a6, a4, a3, a5, n] - S2[a1, a6, a4, a3, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a6, a4, a5, a3, n] - S2[a1, a6, a4, a5, SP[a2, a3], n] - 
    S2[a1, a6, a4, SP[a2, a3], a5, n] - S2[a1, a6, a4, SP[a2, a5], a3, n] - 
    S2[a2, n]*S2[a1, a6, a5, a3, a4, n] - S2[a1, a6, a5, a3, SP[a2, a4], n] - 
    S2[a2, n]*S2[a1, a6, a5, a4, a3, n] - S2[a1, a6, a5, a4, SP[a2, a3], n] - 
    S2[a1, a6, a5, SP[a2, a3], a4, n] - S2[a1, a6, a5, SP[a2, a4], a3, n] - 
    S2[a1, a6, SP[a2, a3], a4, a5, n] - S2[a1, a6, SP[a2, a3], a5, a4, n] - 
    S2[a1, a6, SP[a2, a4], a3, a5, n] - S2[a1, a6, SP[a2, a4], a5, a3, n] - 
    S2[a1, a6, SP[a2, a5], a3, a4, n] - S2[a1, a6, SP[a2, a5], a4, a3, n] + 
    S2[a1, a6, SP[a3, a4], a2, a5, n] - S2[a1, SP[a2, a3], a4, a5, a6, n] - 
    S2[a1, SP[a2, a3], a4, a6, a5, n] - S2[a1, SP[a2, a3], a5, a4, a6, n] - 
    S2[a1, SP[a2, a3], a5, a6, a4, n] - S2[a1, SP[a2, a3], a6, a4, a5, n] - 
    S2[a1, SP[a2, a3], a6, a5, a4, n] - S2[a1, SP[a2, a5], a3, a4, a6, n] - 
    S2[a1, SP[a2, a5], a3, a6, a4, n] - S2[a1, SP[a2, a5], a4, a3, a6, n] - 
    S2[a1, SP[a2, a5], a4, a6, a3, n] - S2[a1, SP[a2, a5], a6, a3, a4, n] - 
    S2[a1, SP[a2, a5], a6, a4, a3, n] - S2[a1, SP[a2, a6], a3, a4, a5, n] - 
    S2[a1, SP[a2, a6], a3, a5, a4, n] - S2[a1, SP[a2, a6], a4, a3, a5, n] - 
    S2[a1, SP[a2, a6], a4, a5, a3, n] - S2[a1, SP[a2, a6], a5, a3, a4, n] - 
    S2[a1, SP[a2, a6], a5, a4, a3, n] + 2*S2[a1, SP[a3, a6], a2, a4, a5, n] + 
    2*S2[a1, SP[a3, a6], a2, a5, a4, n] + 
    2*S2[a1, SP[a3, a6], a4, a2, a5, n] + S2[a1, SP[a3, a6], a4, a5, a2, n] + 
    S2[a1, SP[a3, a6], a5, a2, a4, n] + S2[a1, SP[a3, a6], a5, a4, a2, n] + 
    S2[a1, SP[a4, a6], a3, a2, a5, n] + S2[a1, SP[a4, a6], a3, a5, a2, n] + 
    S2[a1, SP[a4, a6], a5, a2, a3, n] + S2[a1, SP[a4, a6], a5, a3, a2, n] + 
    S2[a1, SP[a5, a6], a2, a3, a4, n] + S2[a1, SP[a5, a6], a2, a4, a3, n] + 
    S2[a1, SP[a5, a6], a3, a2, a4, n] + S2[a1, SP[a5, a6], a3, a4, a2, n] + 
    S2[a1, SP[a5, a6], a4, a2, a3, n] + S2[a1, SP[a5, a6], a4, a3, a2, n] + 
    S2[a2, a1, a3, a4, SP[a5, a6], n] + S2[a2, a1, a3, a6, SP[a4, a5], n] + 
    S2[a2, a1, a3, SP[a4, a5], a6, n] + S2[a2, a1, a3, SP[a5, a6], a4, n] + 
    S2[a2, a1, a4, a3, SP[a5, a6], n] + S2[a2, a1, a4, a5, SP[a3, a6], n] - 
    S2[a2, a1, a4, a6, SP[a3, a5], n] + S2[a2, a1, a4, SP[a3, a6], a5, n] + 
    S2[a2, a1, a5, a4, SP[a3, a6], n] + 2*S2[a2, a1, a5, a6, SP[a3, a4], n] + 
    S2[a2, a1, a5, SP[a3, a4], a6, n] + S2[a2, a1, a5, SP[a3, a6], a4, n] + 
    S2[a2, a1, a5, SP[a4, a6], a3, n] + S2[a2, a1, a6, a3, SP[a4, a5], n] - 
    S2[a2, a1, a6, a4, SP[a3, a5], n] + 2*S2[a2, a1, a6, a5, SP[a3, a4], n] + 
    2*S2[a2, a1, a6, SP[a3, a4], a5, n] - S2[a2, a1, a6, SP[a3, a5], a4, n] + 
    S2[a2, a1, a6, SP[a4, a5], a3, n] + S2[a2, a1, SP[a3, a4], a5, a6, n] + 
    S2[a2, a1, SP[a3, a4], a6, a5, n] + S2[a2, a1, SP[a3, a6], a4, a5, n] + 
    S2[a2, a1, SP[a3, a6], a5, a4, n] + S2[a2, a1, SP[a4, a5], a3, a6, n] + 
    S2[a2, a1, SP[a4, a5], a6, a3, n] + S2[a2, a1, SP[a4, a6], a3, a5, n] + 
    S2[a2, a1, SP[a4, a6], a5, a3, n] - S2[a6, n]*S2[a2, a3, a1, a4, a5, n] - 
    S2[a6, n]*S2[a2, a3, a1, a5, a4, n] - S2[a2, a3, a1, a5, SP[a4, a6], n] + 
    S2[a2, a3, a1, a6, SP[a4, a5], n] + S2[a2, a3, a1, SP[a4, a5], a6, n] - 
    S2[a2, a3, a1, SP[a4, a6], a5, n] - S2[a6, n]*S2[a2, a3, a5, a1, a4, n] - 
    S2[a2, a3, a5, a1, SP[a4, a6], n] - S2[a2, a3, a5, SP[a1, a6], a4, n] + 
    S2[a5, n]*S2[a2, a3, a6, a1, a4, n] + S2[a2, a3, a6, a1, SP[a4, a5], n] + 
    S2[a2, a3, a6, SP[a1, a5], a4, n] + S2[a2, a3, SP[a1, a5], a4, a6, n] + 
    S2[a2, a3, SP[a1, a5], a6, a4, n] - S2[a2, a3, SP[a1, a6], a4, a5, n] - 
    S2[a2, a3, SP[a1, a6], a5, a4, n] - S2[a6, n]*S2[a2, a5, a1, a3, a4, n] - 
    S2[a2, a5, a1, a3, SP[a4, a6], n] - S2[a6, n]*S2[a2, a5, a1, a4, a3, n] + 
    2*S2[a2, a5, a1, a6, SP[a3, a4], n] + S2[a2, a5, a1, SP[a3, a4], a6, n] - 
    S2[a6, n]*S2[a2, a5, a3, a1, a4, n] - S2[a2, a5, a3, a1, SP[a4, a6], n] - 
    S2[a2, a5, a3, SP[a1, a6], a4, n] + S2[a2, a5, a6, a1, SP[a3, a4], n] + 
    S2[a2, a5, a6, SP[a1, a3], a4, n] + S2[a2, a5, SP[a1, a3], a4, a6, n] + 
    S2[a2, a5, SP[a1, a3], a6, a4, n] - S2[a2, a5, SP[a3, a6], a1, a4, n] + 
    S2[a2, a6, a1, a3, SP[a4, a5], n] - S2[a3, n]*S2[a2, a6, a1, a4, a5, n] - 
    S2[a2, a6, a1, a4, SP[a3, a5], n] - S2[a3, n]*S2[a2, a6, a1, a5, a4, n] - 
    S2[a2, a6, a1, SP[a3, a5], a4, n] + S2[a2, a6, a1, SP[a4, a5], a3, n] + 
    S2[a2, a6, a3, a1, SP[a4, a5], n] + S2[a2, a6, a3, SP[a1, a5], a4, n] + 
    S2[a2, a6, a5, a1, SP[a3, a4], n] + S2[a2, a6, a5, SP[a1, a3], a4, n] + 
    S2[a2, a6, SP[a1, a5], a3, a4, n] + S2[a2, a6, SP[a1, a5], a4, a3, n] + 
    S2[a2, SP[a1, a3], a4, a5, a6, n] + S2[a2, SP[a1, a3], a4, a6, a5, n] + 
    S2[a2, SP[a1, a3], a5, a4, a6, n] + S2[a2, SP[a1, a3], a5, a6, a4, n] + 
    S2[a2, SP[a1, a3], a6, a4, a5, n] + S2[a2, SP[a1, a3], a6, a5, a4, n] + 
    S2[a2, SP[a1, a5], a3, a4, a6, n] + S2[a2, SP[a1, a5], a3, a6, a4, n] + 
    S2[a2, SP[a1, a5], a4, a3, a6, n] + S2[a2, SP[a1, a5], a4, a6, a3, n] + 
    S2[a2, SP[a1, a5], a6, a3, a4, n] + S2[a2, SP[a1, a5], a6, a4, a3, n] + 
    S2[a2, SP[a1, a6], a3, a4, a5, n] + S2[a2, SP[a1, a6], a3, a5, a4, n] + 
    S2[a2, SP[a1, a6], a4, a3, a5, n] + S2[a2, SP[a1, a6], a4, a5, a3, n] + 
    S2[a2, SP[a1, a6], a5, a3, a4, n] + S2[a2, SP[a1, a6], a5, a4, a3, n] + 
    S2[a2, SP[a3, a5], a6, a1, a4, n] - 2*S2[a2, SP[a3, a6], a1, a4, a5, n] - 
    2*S2[a2, SP[a3, a6], a1, a5, a4, n] - S2[a2, SP[a3, a6], a5, a1, a4, n] - 
    S2[a2, SP[a5, a6], a1, a3, a4, n] - S2[a2, SP[a5, a6], a1, a4, a3, n] - 
    S2[a2, SP[a5, a6], a3, a1, a4, n] - S2[a3, a1, a6, a2, SP[a4, a5], n] - 
    S2[a3, a1, a6, SP[a2, a4], a5, n] - S2[a3, a1, SP[a4, a6], a2, a5, n] - 
    S2[a3, a6, a1, a2, SP[a4, a5], n] + S2[a2, n]*S2[a3, a6, a1, a4, a5, n] + 
    S2[a3, a6, a1, a4, SP[a2, a5], n] + S2[a2, n]*S2[a3, a6, a1, a5, a4, n] + 
    S2[a3, a6, a1, a5, SP[a2, a4], n] + S2[a3, a6, a1, SP[a2, a5], a4, n] - 
    S2[a3, a6, a2, a1, SP[a4, a5], n] - S2[a3, a6, a2, SP[a1, a5], a4, n] - 
    S2[a3, SP[a1, a6], a2, a4, a5, n] - S2[a3, SP[a1, a6], a2, a5, a4, n] - 
    S2[a3, SP[a1, a6], a4, a2, a5, n] + S2[a3, SP[a2, a6], a1, a4, a5, n] + 
    S2[a3, SP[a2, a6], a1, a5, a4, n] - S2[a3, n]*S2[a6, a1, a4, a5, a2, n] - 
    S2[a6, a1, a4, a5, SP[a2, a3], n] - S2[a6, a1, a4, SP[a3, a5], a2, n] - 
    S2[a3, n]*S2[a6, a1, a5, a2, a4, n] - S2[a6, a1, a5, a2, SP[a3, a4], n] - 
    S2[a3, n]*S2[a6, a1, a5, a4, a2, n] - S2[a6, a1, a5, a4, SP[a2, a3], n] - 
    S2[a6, a1, a5, SP[a2, a3], a4, n] - S2[a6, a1, a5, SP[a3, a4], a2, n] - 
    S2[a6, a1, SP[a3, a4], a5, a2, n] - S2[a6, a1, SP[a3, a5], a2, a4, n] - 
    S2[a6, a1, SP[a3, a5], a4, a2, n] + S2[a3, n]*S2[a6, a2, a5, a1, a4, n] + 
    S2[a6, a2, a5, a1, SP[a3, a4], n] + S2[a6, a2, a5, SP[a1, a3], a4, n] + 
    S2[a6, a2, SP[a3, a5], a1, a4, n] + S2[a2, n]*S2[a6, a3, a1, a4, a5, n] + 
    S2[a6, a3, a1, a4, SP[a2, a5], n] + S2[a2, n]*S2[a6, a3, a1, a5, a4, n] + 
    S2[a6, a3, a1, a5, SP[a2, a4], n] + S2[a6, a3, a1, SP[a2, a4], a5, n] + 
    S2[a6, a3, a1, SP[a2, a5], a4, n] + S2[a6, a3, SP[a1, a2], a4, a5, n] + 
    S2[a6, a3, SP[a1, a2], a5, a4, n] - S2[a6, SP[a1, a3], a4, a5, a2, n] - 
    S2[a6, SP[a1, a3], a5, a2, a4, n] - S2[a6, SP[a1, a3], a5, a4, a2, n] + 
    S2[a6, SP[a2, a3], a1, a4, a5, n] + S2[a6, SP[a2, a3], a1, a5, a4, n] + 
    S2[a6, SP[a2, a3], a5, a1, a4, n] + S2[SP[a1, a6], a3, a2, a4, a5, n] + 
    S2[SP[a1, a6], a3, a2, a5, a4, n] + S2[SP[a1, a6], a3, a4, a2, a5, n] + 
    S2[SP[a1, a6], a3, a4, a5, a2, n] + S2[SP[a1, a6], a3, a5, a2, a4, n] + 
    S2[SP[a1, a6], a3, a5, a4, a2, n] + S2[SP[a1, a6], a4, a3, a2, a5, n] + 
    S2[SP[a1, a6], a4, a3, a5, a2, n] + S2[SP[a1, a6], a4, a5, a2, a3, n] + 
    S2[SP[a1, a6], a4, a5, a3, a2, n] + S2[SP[a1, a6], a5, a2, a3, a4, n] + 
    S2[SP[a1, a6], a5, a2, a4, a3, n] + S2[SP[a1, a6], a5, a3, a2, a4, n] + 
    S2[SP[a1, a6], a5, a3, a4, a2, n] + S2[SP[a1, a6], a5, a4, a2, a3, n] + 
    S2[SP[a1, a6], a5, a4, a3, a2, n] + S2[SP[a2, a5], a3, a6, a1, a4, n] - 
    S2[SP[a2, a6], a3, a5, a1, a4, n] - S2[SP[a2, a6], a5, a1, a3, a4, n] - 
    S2[SP[a2, a6], a5, a1, a4, a3, n] - S2[SP[a2, a6], a5, a3, a1, a4, n] - 
    S2[SP[a3, a6], a1, a4, a5, a2, n] - S2[SP[a3, a6], a1, a5, a2, a4, n] - 
    S2[SP[a3, a6], a1, a5, a4, a2, n] + S2[SP[a3, a6], a2, a5, a1, a4, n] - 
    S2[a6, a1, a3, a2, a4, a5, n] - S2[a6, a1, a3, a2, a5, a4, n] - 
    S2[a6, a1, a3, a4, a2, a5, n] - S2[a6, a1, a4, a3, a2, a5, n] - 
    S2[a6, a3, a1, a2, a4, a5, n] - S2[a6, a3, a1, a2, a5, a4, n] - 
    S2[a6, a3, a1, a4, a2, a5, n] - S2[a6, a3, a2, a1, a4, a5, n] - 
    S2[a6, a3, a2, a1, a5, a4, n] - S2[a6, a3, a2, a5, a1, a4, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a5_, a2_, a3_, a6_, a4_, a1_, n_] :> 
  -(S2[a1, a4, a6, n]*S2[a2, a3, a5, n]) - S2[a1, a4, a6, n]*
     S2[a2, a5, a3, n] - S2[SP[a1, a2], SP[a3, a4], SP[a5, a6], n] - 
    S2[SP[a1, a2], SP[a4, a5], SP[a3, a6], n] + S2[a1, a2, SP[a3, a4], 
     SP[a5, a6], n] + S2[a1, a2, SP[a4, a5], SP[a3, a6], n] + 
    S2[a2, a5, n]*S2[a1, a4, a6, a3, n] - S2[a1, a4, SP[a2, a6], SP[a3, a5], 
     n] + S2[a1, SP[a2, a4], a3, SP[a5, a6], n] + S2[a1, SP[a2, a4], a5, 
     SP[a3, a6], n] - S2[a1, SP[a2, a4], a6, SP[a3, a5], n] + 
    S2[a1, SP[a2, a4], SP[a3, a6], a5, n] + S2[a2, a1, SP[a3, a4], 
     SP[a5, a6], n] + S2[a2, a1, SP[a4, a5], SP[a3, a6], n] - 
    S2[a1, a4, n]*S2[a2, a5, a6, a3, n] + S2[a2, a5, SP[a1, a6], SP[a3, a4], 
     n] - S2[a1, a4, n]*S2[a2, a6, a3, a5, n] - 
    S2[a1, a4, n]*S2[a2, a6, a5, a3, n] + S2[a2, a6, SP[a1, a3], SP[a4, a5], 
     n] + S2[a2, a6, SP[a1, a5], SP[a3, a4], n] + S2[a2, SP[a1, a3], a4, 
     SP[a5, a6], n] + S2[a2, SP[a1, a3], SP[a4, a5], a6, n] + 
    S2[a2, SP[a1, a5], a4, SP[a3, a6], n] + S2[a2, SP[a1, a5], a6, 
     SP[a3, a4], n] + S2[a2, SP[a1, a5], SP[a3, a4], a6, n] + 
    S2[a2, SP[a1, a5], SP[a4, a6], a3, n] + S2[a2, SP[a1, a6], a3, 
     SP[a4, a5], n] + S2[a2, SP[a1, a6], a5, SP[a3, a4], n] + 
    S2[a2, SP[a1, a6], SP[a3, a4], a5, n] + S2[a2, SP[a1, a6], SP[a4, a5], 
     a3, n] + S2[a1, a4, n]*S2[a3, a6, a2, a5, n] - 
    S2[a3, a6, SP[a1, a2], SP[a4, a5], n] - S2[a3, SP[a1, a6], a2, 
     SP[a4, a5], n] - S2[a3, SP[a1, a6], SP[a2, a4], a5, n] + 
    S2[SP[a1, a2], a3, a4, SP[a5, a6], n] + S2[SP[a1, a2], a3, SP[a4, a5], 
     a6, n] + S2[SP[a1, a2], a4, a3, SP[a5, a6], n] + 
    S2[SP[a1, a2], a4, a5, SP[a3, a6], n] - S2[SP[a1, a2], a4, a6, 
     SP[a3, a5], n] + S2[SP[a1, a2], a4, SP[a3, a6], a5, n] + 
    S2[SP[a1, a2], a5, a4, SP[a3, a6], n] + S2[SP[a1, a2], a5, a6, 
     SP[a3, a4], n] + S2[SP[a1, a2], a5, SP[a3, a4], a6, n] + 
    S2[SP[a1, a2], a5, SP[a4, a6], a3, n] + S2[SP[a1, a2], a6, a3, 
     SP[a4, a5], n] + S2[SP[a1, a2], a6, a5, SP[a3, a4], n] + 
    S2[SP[a1, a2], a6, SP[a3, a4], a5, n] + S2[SP[a1, a2], a6, SP[a4, a5], 
     a3, n] + S2[SP[a1, a2], SP[a3, a4], a5, a6, n] + 
    S2[SP[a1, a2], SP[a3, a4], a6, a5, n] + S2[SP[a1, a2], SP[a4, a5], a3, 
     a6, n] + S2[SP[a1, a2], SP[a4, a5], a6, a3, n] + 
    S2[SP[a1, a2], SP[a4, a6], a3, a5, n] + S2[SP[a1, a2], SP[a4, a6], a5, 
     a3, n] - S2[SP[a1, a3], a6, a2, SP[a4, a5], n] - 
    S2[SP[a1, a3], a6, SP[a2, a4], a5, n] - S2[SP[a1, a3], SP[a4, a6], a2, 
     a5, n] - S2[a1, a2, a3, a4, SP[a5, a6], n] - S2[a1, a2, a3, SP[a4, a5], 
     a6, n] - S2[a1, a2, a4, a3, SP[a5, a6], n] - 
    S2[a1, a2, a4, a5, SP[a3, a6], n] + S2[a1, a2, a4, a6, SP[a3, a5], n] - 
    S2[a1, a2, a4, SP[a3, a6], a5, n] - S2[a1, a2, a5, a4, SP[a3, a6], n] - 
    S2[a1, a2, a5, a6, SP[a3, a4], n] - S2[a1, a2, a5, SP[a3, a4], a6, n] - 
    S2[a1, a2, a5, SP[a4, a6], a3, n] - S2[a1, a2, a6, a3, SP[a4, a5], n] - 
    S2[a1, a2, a6, a5, SP[a3, a4], n] - S2[a1, a2, a6, SP[a3, a4], a5, n] - 
    S2[a1, a2, a6, SP[a4, a5], a3, n] - S2[a1, a2, SP[a3, a4], a5, a6, n] - 
    S2[a1, a2, SP[a3, a4], a6, a5, n] - S2[a1, a2, SP[a4, a5], a3, a6, n] - 
    S2[a1, a2, SP[a4, a5], a6, a3, n] - S2[a1, a2, SP[a4, a6], a3, a5, n] - 
    S2[a1, a2, SP[a4, a6], a5, a3, n] - S2[a6, n]*S2[a1, a3, a2, a4, a5, n] - 
    S2[a1, a3, a2, a4, SP[a5, a6], n] - S2[a6, n]*S2[a1, a3, a2, a5, a4, n] - 
    S2[a1, a3, a2, a5, SP[a4, a6], n] + S2[a5, n]*S2[a1, a3, a2, a6, a4, n] + 
    S2[a1, a3, a2, a6, SP[a4, a5], n] - S2[a1, a3, a2, SP[a4, a6], a5, n] - 
    S2[a6, n]*S2[a1, a3, a4, a2, a5, n] - S2[a1, a3, a4, a2, SP[a5, a6], n] - 
    S2[a6, n]*S2[a1, a3, a4, a5, a2, n] + 
    S2[a2, n]*S2[a1, a3, a4, a5, a6, n] + 
    S2[a2, n]*S2[a1, a3, a4, a6, a5, n] + S2[a1, a3, a4, a6, SP[a2, a5], n] + 
    S2[a1, a3, a4, SP[a2, a5], a6, n] - S2[a1, a3, a4, SP[a5, a6], a2, n] - 
    S2[a6, n]*S2[a1, a3, a5, a2, a4, n] - S2[a1, a3, a5, a2, SP[a4, a6], n] - 
    S2[a6, n]*S2[a1, a3, a5, a4, a2, n] + 
    S2[a2, n]*S2[a1, a3, a5, a4, a6, n] + S2[a1, a3, a5, SP[a2, a4], a6, n] - 
    S2[a1, a3, a5, SP[a2, a6], a4, n] - S2[a1, a3, a5, SP[a4, a6], a2, n] + 
    S2[a5, n]*S2[a1, a3, a6, a2, a4, n] + 
    2*S2[a1, a3, a6, a2, SP[a4, a5], n] + 
    S2[a5, n]*S2[a1, a3, a6, a4, a2, n] + S2[a1, a3, a6, a4, SP[a2, a5], n] + 
    S2[a1, a3, a6, SP[a2, a4], a5, n] + S2[a1, a3, a6, SP[a2, a5], a4, n] + 
    S2[a1, a3, a6, SP[a4, a5], a2, n] + S2[a1, a3, SP[a2, a4], a5, a6, n] + 
    S2[a1, a3, SP[a2, a4], a6, a5, n] + S2[a1, a3, SP[a2, a5], a4, a6, n] + 
    S2[a1, a3, SP[a2, a5], a6, a4, n] - S2[a1, a3, SP[a2, a6], a4, a5, n] - 
    S2[a1, a3, SP[a2, a6], a5, a4, n] - S2[a1, a3, SP[a4, a6], a5, a2, n] - 
    S2[a1, a4, a2, a3, SP[a5, a6], n] - S2[a1, a4, a2, a5, SP[a3, a6], n] + 
    S2[a1, a4, a2, a6, SP[a3, a5], n] - S2[a1, a4, a2, SP[a3, a6], a5, n] - 
    S2[a6, n]*S2[a1, a4, a3, a2, a5, n] - S2[a1, a4, a3, a2, SP[a5, a6], n] - 
    S2[a6, n]*S2[a1, a4, a3, a5, a2, n] + 
    S2[a2, n]*S2[a1, a4, a3, a5, a6, n] + 
    S2[a2, n]*S2[a1, a4, a3, a6, a5, n] + S2[a1, a4, a3, a6, SP[a2, a5], n] + 
    S2[a1, a4, a3, SP[a2, a5], a6, n] - S2[a1, a4, a3, SP[a5, a6], a2, n] - 
    S2[a6, n]*S2[a1, a4, a5, a2, a3, n] - S2[a1, a4, a5, a2, SP[a3, a6], n] - 
    S2[a6, n]*S2[a1, a4, a5, a3, a2, n] + 
    S2[a2, n]*S2[a1, a4, a5, a3, a6, n] + 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] + S2[a1, a4, a5, a6, SP[a2, a3], n] + 
    S2[a1, a4, a5, SP[a2, a3], a6, n] - S2[a1, a4, a5, SP[a3, a6], a2, n] - 
    S2[a3, n]*S2[a1, a4, a6, a2, a5, n] + 
    S2[a2, n]*S2[a1, a4, a6, a3, a5, n] + S2[a1, a4, a6, a3, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a4, a6, a5, a3, n] + S2[a1, a4, a6, a5, SP[a2, a3], n] + 
    S2[a1, a4, a6, SP[a2, a3], a5, n] + S2[a1, a4, a6, SP[a2, a5], a3, n] + 
    S2[a1, a4, SP[a2, a3], a5, a6, n] + S2[a1, a4, SP[a2, a3], a6, a5, n] + 
    S2[a1, a4, SP[a2, a5], a3, a6, n] + S2[a1, a4, SP[a2, a5], a6, a3, n] + 
    S2[a1, a4, SP[a2, a6], a3, a5, n] + S2[a1, a4, SP[a2, a6], a5, a3, n] - 
    2*S2[a1, a4, SP[a3, a6], a2, a5, n] - S2[a1, a4, SP[a3, a6], a5, a2, n] - 
    S2[a1, a4, SP[a5, a6], a2, a3, n] - S2[a1, a4, SP[a5, a6], a3, a2, n] - 
    S2[a6, n]*S2[a1, a5, a2, a3, a4, n] - S2[a1, a5, a2, a3, SP[a4, a6], n] - 
    S2[a6, n]*S2[a1, a5, a2, a4, a3, n] - S2[a1, a5, a2, a4, SP[a3, a6], n] - 
    S2[a1, a5, a2, SP[a3, a6], a4, n] - S2[a1, a5, a2, SP[a4, a6], a3, n] - 
    S2[a6, n]*S2[a1, a5, a3, a2, a4, n] - S2[a1, a5, a3, a2, SP[a4, a6], n] - 
    S2[a6, n]*S2[a1, a5, a3, a4, a2, n] + 
    S2[a2, n]*S2[a1, a5, a3, a4, a6, n] + S2[a1, a5, a3, SP[a2, a4], a6, n] - 
    S2[a1, a5, a3, SP[a2, a6], a4, n] - S2[a1, a5, a3, SP[a4, a6], a2, n] - 
    S2[a6, n]*S2[a1, a5, a4, a2, a3, n] - S2[a1, a5, a4, a2, SP[a3, a6], n] - 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] + 
    S2[a2, n]*S2[a1, a5, a4, a3, a6, n] + 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] + S2[a1, a5, a4, a6, SP[a2, a3], n] + 
    S2[a1, a5, a4, SP[a2, a3], a6, n] - S2[a1, a5, a4, SP[a3, a6], a2, n] + 
    S2[a2, n]*S2[a1, a5, a6, a3, a4, n] + S2[a1, a5, a6, a3, SP[a2, a4], n] + 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] + S2[a1, a5, a6, a4, SP[a2, a3], n] + 
    S2[a1, a5, a6, SP[a2, a3], a4, n] + S2[a1, a5, a6, SP[a2, a4], a3, n] + 
    S2[a1, a5, SP[a2, a3], a4, a6, n] + S2[a1, a5, SP[a2, a4], a3, a6, n] + 
    S2[a1, a5, SP[a2, a4], a6, a3, n] - S2[a1, a5, SP[a3, a6], a2, a4, n] - 
    S2[a1, a5, SP[a3, a6], a4, a2, n] - S2[a1, a5, SP[a4, a6], a2, a3, n] - 
    S2[a1, a5, SP[a4, a6], a3, a2, n] - S2[a3, n]*S2[a1, a6, a2, a4, a5, n] - 
    S2[a1, a6, a2, a4, SP[a3, a5], n] - S2[a3, n]*S2[a1, a6, a2, a5, a4, n] - 
    S2[a1, a6, a2, a5, SP[a3, a4], n] - S2[a1, a6, a2, SP[a3, a4], a5, n] - 
    S2[a1, a6, a2, SP[a3, a5], a4, n] + S2[a2, n]*S2[a1, a6, a3, a4, a5, n] + 
    S2[a1, a6, a3, a4, SP[a2, a5], n] + S2[a2, n]*S2[a1, a6, a3, a5, a4, n] + 
    S2[a1, a6, a3, a5, SP[a2, a4], n] + S2[a1, a6, a3, SP[a2, a4], a5, n] + 
    S2[a1, a6, a3, SP[a2, a5], a4, n] - S2[a3, n]*S2[a1, a6, a4, a2, a5, n] - 
    S2[a1, a6, a4, a2, SP[a3, a5], n] + S2[a2, n]*S2[a1, a6, a4, a3, a5, n] + 
    S2[a1, a6, a4, a3, SP[a2, a5], n] + S2[a2, n]*S2[a1, a6, a4, a5, a3, n] + 
    S2[a1, a6, a4, a5, SP[a2, a3], n] + S2[a1, a6, a4, SP[a2, a5], a3, n] + 
    S2[a2, n]*S2[a1, a6, a5, a3, a4, n] + S2[a1, a6, a5, a3, SP[a2, a4], n] + 
    S2[a2, n]*S2[a1, a6, a5, a4, a3, n] + S2[a1, a6, a5, a4, SP[a2, a3], n] + 
    S2[a1, a6, a5, SP[a2, a3], a4, n] + S2[a1, a6, a5, SP[a2, a4], a3, n] + 
    S2[a1, a6, SP[a2, a4], a3, a5, n] + S2[a1, a6, SP[a2, a4], a5, a3, n] + 
    S2[a1, a6, SP[a2, a5], a3, a4, n] + S2[a1, a6, SP[a2, a5], a4, a3, n] - 
    S2[a1, a6, SP[a3, a4], a2, a5, n] + S2[a1, SP[a2, a3], a4, a5, a6, n] + 
    S2[a1, SP[a2, a3], a4, a6, a5, n] + S2[a1, SP[a2, a3], a5, a4, a6, n] + 
    S2[a1, SP[a2, a5], a3, a4, a6, n] + S2[a1, SP[a2, a5], a4, a3, a6, n] + 
    S2[a1, SP[a2, a5], a4, a6, a3, n] + S2[a1, SP[a2, a5], a6, a3, a4, n] + 
    S2[a1, SP[a2, a5], a6, a4, a3, n] + S2[a1, SP[a2, a6], a3, a4, a5, n] + 
    S2[a1, SP[a2, a6], a3, a5, a4, n] + S2[a1, SP[a2, a6], a4, a3, a5, n] + 
    S2[a1, SP[a2, a6], a4, a5, a3, n] + S2[a1, SP[a2, a6], a5, a3, a4, n] + 
    S2[a1, SP[a2, a6], a5, a4, a3, n] + S2[a1, SP[a3, a5], a2, a6, a4, n] + 
    S2[a1, SP[a3, a5], a6, a2, a4, n] + S2[a1, SP[a3, a5], a6, a4, a2, n] - 
    2*S2[a1, SP[a3, a6], a2, a4, a5, n] - 
    2*S2[a1, SP[a3, a6], a2, a5, a4, n] - 
    2*S2[a1, SP[a3, a6], a4, a2, a5, n] - S2[a1, SP[a3, a6], a4, a5, a2, n] - 
    S2[a1, SP[a3, a6], a5, a2, a4, n] - S2[a1, SP[a3, a6], a5, a4, a2, n] - 
    S2[a1, SP[a4, a6], a3, a2, a5, n] - S2[a1, SP[a4, a6], a3, a5, a2, n] - 
    S2[a1, SP[a4, a6], a5, a2, a3, n] - S2[a1, SP[a4, a6], a5, a3, a2, n] - 
    S2[a1, SP[a5, a6], a2, a3, a4, n] - S2[a1, SP[a5, a6], a2, a4, a3, n] - 
    S2[a1, SP[a5, a6], a3, a2, a4, n] - S2[a1, SP[a5, a6], a3, a4, a2, n] - 
    S2[a1, SP[a5, a6], a4, a2, a3, n] - S2[a1, SP[a5, a6], a4, a3, a2, n] - 
    S2[a2, a1, a3, a4, SP[a5, a6], n] - S2[a2, a1, a3, SP[a4, a5], a6, n] - 
    S2[a2, a1, a4, a3, SP[a5, a6], n] - S2[a2, a1, a4, a5, SP[a3, a6], n] + 
    S2[a2, a1, a4, a6, SP[a3, a5], n] - S2[a2, a1, a4, SP[a3, a6], a5, n] - 
    S2[a2, a1, a5, a4, SP[a3, a6], n] - S2[a2, a1, a5, a6, SP[a3, a4], n] - 
    S2[a2, a1, a5, SP[a3, a4], a6, n] - S2[a2, a1, a5, SP[a4, a6], a3, n] - 
    S2[a2, a1, a6, a3, SP[a4, a5], n] - S2[a2, a1, a6, a5, SP[a3, a4], n] - 
    S2[a2, a1, a6, SP[a3, a4], a5, n] - S2[a2, a1, a6, SP[a4, a5], a3, n] - 
    S2[a2, a1, SP[a3, a4], a5, a6, n] - S2[a2, a1, SP[a3, a4], a6, a5, n] - 
    S2[a2, a1, SP[a4, a5], a3, a6, n] - S2[a2, a1, SP[a4, a5], a6, a3, n] - 
    S2[a2, a1, SP[a4, a6], a3, a5, n] - S2[a2, a1, SP[a4, a6], a5, a3, n] + 
    S2[a6, n]*S2[a2, a3, a1, a4, a5, n] + 
    S2[a6, n]*S2[a2, a3, a1, a5, a4, n] + S2[a2, a3, a1, a5, SP[a4, a6], n] - 
    S2[a5, n]*S2[a2, a3, a1, a6, a4, n] - S2[a2, a3, a1, a6, SP[a4, a5], n] - 
    S2[a2, a3, a1, SP[a4, a5], a6, n] + S2[a2, a3, a1, SP[a4, a6], a5, n] + 
    S2[a6, n]*S2[a2, a3, a5, a1, a4, n] + S2[a2, a3, a5, a1, SP[a4, a6], n] + 
    S2[a2, a3, a5, SP[a1, a6], a4, n] - S2[a5, n]*S2[a2, a3, a6, a1, a4, n] - 
    S2[a2, a3, a6, a1, SP[a4, a5], n] - S2[a2, a3, a6, SP[a1, a5], a4, n] - 
    S2[a2, a3, SP[a1, a5], a4, a6, n] - S2[a2, a3, SP[a1, a5], a6, a4, n] + 
    S2[a2, a3, SP[a1, a6], a4, a5, n] + S2[a2, a3, SP[a1, a6], a5, a4, n] + 
    S2[a6, n]*S2[a2, a5, a1, a3, a4, n] + S2[a2, a5, a1, a3, SP[a4, a6], n] + 
    S2[a6, n]*S2[a2, a5, a1, a4, a3, n] - S2[a2, a5, a1, a6, SP[a3, a4], n] - 
    S2[a2, a5, a1, SP[a3, a4], a6, n] + S2[a2, a5, a1, SP[a3, a6], a4, n] + 
    S2[a6, n]*S2[a2, a5, a3, a1, a4, n] + S2[a2, a5, a3, a1, SP[a4, a6], n] + 
    S2[a2, a5, a3, SP[a1, a6], a4, n] - S2[a2, a5, a6, a1, SP[a3, a4], n] - 
    S2[a2, a5, a6, SP[a1, a3], a4, n] - S2[a2, a5, SP[a1, a3], a4, a6, n] + 
    S2[a2, a5, SP[a3, a6], a1, a4, n] - S2[a2, a6, a1, a3, SP[a4, a5], n] + 
    S2[a3, n]*S2[a2, a6, a1, a4, a5, n] + S2[a2, a6, a1, a4, SP[a3, a5], n] + 
    S2[a3, n]*S2[a2, a6, a1, a5, a4, n] + S2[a2, a6, a1, SP[a3, a5], a4, n] - 
    S2[a2, a6, a1, SP[a4, a5], a3, n] - S2[a2, a6, a3, a1, SP[a4, a5], n] - 
    S2[a2, a6, a3, SP[a1, a5], a4, n] - S2[a2, a6, a5, a1, SP[a3, a4], n] - 
    S2[a2, a6, a5, SP[a1, a3], a4, n] - S2[a2, a6, SP[a1, a5], a3, a4, n] - 
    S2[a2, a6, SP[a1, a5], a4, a3, n] - S2[a2, SP[a1, a3], a4, a5, a6, n] - 
    S2[a2, SP[a1, a3], a4, a6, a5, n] - S2[a2, SP[a1, a3], a5, a4, a6, n] - 
    S2[a2, SP[a1, a5], a3, a4, a6, n] - S2[a2, SP[a1, a5], a4, a3, a6, n] - 
    S2[a2, SP[a1, a5], a4, a6, a3, n] - S2[a2, SP[a1, a5], a6, a3, a4, n] - 
    S2[a2, SP[a1, a5], a6, a4, a3, n] - S2[a2, SP[a1, a6], a3, a4, a5, n] - 
    S2[a2, SP[a1, a6], a3, a5, a4, n] - S2[a2, SP[a1, a6], a4, a3, a5, n] - 
    S2[a2, SP[a1, a6], a4, a5, a3, n] - S2[a2, SP[a1, a6], a5, a3, a4, n] - 
    S2[a2, SP[a1, a6], a5, a4, a3, n] - S2[a2, SP[a3, a5], a1, a6, a4, n] - 
    S2[a2, SP[a3, a5], a6, a1, a4, n] + 2*S2[a2, SP[a3, a6], a1, a4, a5, n] + 
    2*S2[a2, SP[a3, a6], a1, a5, a4, n] + S2[a2, SP[a3, a6], a5, a1, a4, n] + 
    S2[a2, SP[a5, a6], a1, a3, a4, n] + S2[a2, SP[a5, a6], a1, a4, a3, n] + 
    S2[a2, SP[a5, a6], a3, a1, a4, n] + S2[a3, a1, a6, a2, SP[a4, a5], n] + 
    S2[a3, a1, a6, SP[a2, a4], a5, n] + S2[a3, a1, SP[a4, a6], a2, a5, n] + 
    S2[a3, a6, a1, a2, SP[a4, a5], n] - S2[a2, n]*S2[a3, a6, a1, a4, a5, n] - 
    S2[a3, a6, a1, a4, SP[a2, a5], n] - S2[a2, n]*S2[a3, a6, a1, a5, a4, n] - 
    S2[a3, a6, a1, a5, SP[a2, a4], n] - S2[a3, a6, a1, SP[a2, a5], a4, n] + 
    S2[a3, a6, a2, a1, SP[a4, a5], n] + S2[a3, a6, a2, SP[a1, a5], a4, n] + 
    S2[a3, SP[a1, a6], a2, a4, a5, n] + S2[a3, SP[a1, a6], a2, a5, a4, n] + 
    S2[a3, SP[a1, a6], a4, a2, a5, n] - S2[a3, SP[a2, a6], a1, a4, a5, n] - 
    S2[a3, SP[a2, a6], a1, a5, a4, n] - S2[a2, n]*S2[a5, a1, a3, a6, a4, n] - 
    S2[a5, a1, a3, a6, SP[a2, a4], n] - S2[a5, a1, a3, SP[a2, a6], a4, n] - 
    S2[a5, a1, SP[a2, a3], a6, a4, n] + S2[a1, n]*S2[a5, a2, a3, a6, a4, n] + 
    S2[a5, a2, a3, a6, SP[a1, a4], n] + S2[a5, a2, a3, SP[a1, a6], a4, n] + 
    S2[a5, a2, SP[a1, a3], a6, a4, n] + S2[a3, n]*S2[a6, a1, a4, a5, a2, n] + 
    S2[a6, a1, a4, a5, SP[a2, a3], n] + S2[a6, a1, a4, SP[a3, a5], a2, n] + 
    S2[a3, n]*S2[a6, a1, a5, a2, a4, n] + S2[a6, a1, a5, a2, SP[a3, a4], n] + 
    S2[a3, n]*S2[a6, a1, a5, a4, a2, n] + S2[a6, a1, a5, a4, SP[a2, a3], n] + 
    S2[a6, a1, a5, SP[a2, a3], a4, n] + S2[a6, a1, a5, SP[a3, a4], a2, n] + 
    S2[a6, a1, SP[a3, a4], a5, a2, n] + S2[a6, a1, SP[a3, a5], a2, a4, n] + 
    S2[a6, a1, SP[a3, a5], a4, a2, n] - S2[a3, n]*S2[a6, a2, a5, a1, a4, n] - 
    S2[a6, a2, a5, a1, SP[a3, a4], n] - S2[a6, a2, a5, SP[a1, a3], a4, n] - 
    S2[a6, a2, SP[a3, a5], a1, a4, n] - S2[a2, n]*S2[a6, a3, a1, a4, a5, n] - 
    S2[a6, a3, a1, a4, SP[a2, a5], n] - S2[a2, n]*S2[a6, a3, a1, a5, a4, n] - 
    S2[a6, a3, a1, a5, SP[a2, a4], n] - S2[a6, a3, a1, SP[a2, a4], a5, n] - 
    S2[a6, a3, a1, SP[a2, a5], a4, n] + S2[a1, n]*S2[a6, a3, a2, a4, a5, n] + 
    S2[a6, a3, a2, a4, SP[a1, a5], n] + S2[a1, n]*S2[a6, a3, a2, a5, a4, n] + 
    S2[a6, a3, a2, a5, SP[a1, a4], n] + S2[a6, a3, a2, SP[a1, a4], a5, n] + 
    S2[a6, a3, a2, SP[a1, a5], a4, n] + S2[a1, n]*S2[a6, a3, a4, a2, a5, n] + 
    S2[a6, a3, a4, a2, SP[a1, a5], n] + S2[a6, a3, a4, SP[a1, a2], a5, n] + 
    S2[a6, a3, SP[a1, a4], a2, a5, n] + S2[a1, n]*S2[a6, a4, a3, a2, a5, n] + 
    S2[a6, a4, a3, a2, SP[a1, a5], n] + S2[a6, a4, a3, SP[a1, a2], a5, n] + 
    S2[a6, a4, SP[a1, a3], a2, a5, n] + S2[a6, SP[a1, a3], a2, a4, a5, n] + 
    S2[a6, SP[a1, a3], a2, a5, a4, n] + S2[a6, SP[a1, a3], a4, a2, a5, n] + 
    S2[a6, SP[a1, a3], a4, a5, a2, n] + S2[a6, SP[a1, a3], a5, a2, a4, n] + 
    S2[a6, SP[a1, a3], a5, a4, a2, n] + S2[a6, SP[a1, a4], a3, a2, a5, n] - 
    S2[a6, SP[a2, a3], a1, a4, a5, n] - S2[a6, SP[a2, a3], a1, a5, a4, n] - 
    S2[a6, SP[a2, a3], a5, a1, a4, n] + S2[SP[a1, a5], a2, a3, a6, a4, n] + 
    S2[SP[a1, a5], a3, a2, a6, a4, n] + S2[SP[a1, a5], a3, a6, a2, a4, n] + 
    S2[SP[a1, a5], a3, a6, a4, a2, n] - S2[SP[a1, a6], a3, a4, a5, a2, n] - 
    S2[SP[a1, a6], a3, a5, a2, a4, n] - S2[SP[a1, a6], a3, a5, a4, a2, n] - 
    S2[SP[a1, a6], a4, a3, a5, a2, n] - S2[SP[a1, a6], a4, a5, a2, a3, n] - 
    S2[SP[a1, a6], a4, a5, a3, a2, n] - S2[SP[a1, a6], a5, a2, a3, a4, n] - 
    S2[SP[a1, a6], a5, a2, a4, a3, n] - S2[SP[a1, a6], a5, a3, a2, a4, n] - 
    S2[SP[a1, a6], a5, a3, a4, a2, n] - S2[SP[a1, a6], a5, a4, a2, a3, n] - 
    S2[SP[a1, a6], a5, a4, a3, a2, n] - S2[SP[a2, a5], a1, a3, a6, a4, n] - 
    S2[SP[a2, a5], a3, a1, a6, a4, n] - S2[SP[a2, a5], a3, a6, a1, a4, n] + 
    S2[SP[a2, a6], a3, a5, a1, a4, n] + S2[SP[a2, a6], a5, a1, a3, a4, n] + 
    S2[SP[a2, a6], a5, a1, a4, a3, n] + S2[SP[a2, a6], a5, a3, a1, a4, n] + 
    S2[SP[a3, a6], a1, a4, a5, a2, n] + S2[SP[a3, a6], a1, a5, a2, a4, n] + 
    S2[SP[a3, a6], a1, a5, a4, a2, n] - S2[SP[a3, a6], a2, a5, a1, a4, n] - 
    S2[a6, a3, a2, a4, a1, a5, n] - S2[a6, a3, a2, a4, a5, a1, n] - 
    S2[a6, a3, a2, a5, a4, a1, n] - S2[a6, a3, a4, a1, a2, a5, n] - 
    S2[a6, a3, a4, a2, a1, a5, n] - S2[a6, a3, a4, a2, a5, a1, n] - 
    S2[a6, a4, a1, a3, a2, a5, n] - S2[a6, a4, a3, a1, a2, a5, n] - 
    S2[a6, a4, a3, a2, a1, a5, n] - S2[a6, a4, a3, a2, a5, a1, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a5_, a2_, a4_, a1_, a3_, a6_, n_] :> 
  -(S2[a1, a3, a6, n]*S2[a2, a4, a5, n]) - S2[a1, a3, a6, n]*
     S2[a2, a5, a4, n] - S2[SP[a1, a2], SP[a3, a4], SP[a5, a6], n] - 
    S2[SP[a1, a2], SP[a3, a5], SP[a4, a6], n] + S2[a1, a2, SP[a3, a4], 
     SP[a5, a6], n] + S2[a1, a2, SP[a3, a5], SP[a4, a6], n] + 
    S2[a2, a5, n]*S2[a1, a3, a4, a6, n] + S2[a2, a5, n]*
     S2[a1, a3, a6, a4, n] - S2[a1, a3, SP[a2, a4], SP[a5, a6], n] - 
    S2[a1, a3, SP[a2, a6], SP[a4, a5], n] - S2[a3, a6, n]*
     S2[a1, a4, a2, a5, n] + S2[a2, a5, n]*S2[a1, a4, a3, a6, n] + 
    S2[a1, SP[a2, a3], a5, SP[a4, a6], n] - S2[a1, SP[a2, a3], a6, 
     SP[a4, a5], n] - S2[a1, SP[a2, a3], SP[a4, a5], a6, n] + 
    S2[a1, SP[a2, a3], SP[a4, a6], a5, n] - S2[a1, SP[a2, a4], a3, 
     SP[a5, a6], n] - S2[a1, SP[a2, a4], SP[a3, a5], a6, n] + 
    S2[a1, SP[a3, a4], a2, SP[a5, a6], n] + S2[a1, SP[a3, a4], SP[a2, a6], 
     a5, n] + S2[a2, a1, SP[a3, a4], SP[a5, a6], n] + 
    S2[a2, a1, SP[a3, a5], SP[a4, a6], n] + S2[a2, SP[a1, a4], a3, 
     SP[a5, a6], n] + S2[a2, SP[a1, a4], SP[a3, a5], a6, n] + 
    S2[a2, SP[a1, a5], a3, SP[a4, a6], n] + S2[a2, SP[a1, a5], SP[a3, a4], 
     a6, n] + S2[SP[a1, a2], a3, a5, SP[a4, a6], n] - 
    S2[SP[a1, a2], a3, a6, SP[a4, a5], n] - S2[SP[a1, a2], a3, SP[a4, a5], 
     a6, n] + S2[SP[a1, a2], a3, SP[a4, a6], a5, n] + 
    S2[SP[a1, a2], a5, a3, SP[a4, a6], n] + S2[SP[a1, a2], a5, SP[a3, a4], 
     a6, n] + S2[SP[a1, a2], SP[a3, a4], a5, a6, n] + 
    S2[SP[a1, a2], SP[a3, a4], a6, a5, n] - S2[SP[a1, a2], SP[a4, a5], a3, 
     a6, n] + S2[SP[a1, a3], a4, a2, SP[a5, a6], n] + 
    S2[SP[a1, a3], a4, SP[a2, a6], a5, n] + S2[SP[a1, a3], SP[a4, a6], a2, 
     a5, n] - S2[a1, a2, a3, a5, SP[a4, a6], n] + 
    S2[a1, a2, a3, a6, SP[a4, a5], n] + S2[a1, a2, a3, SP[a4, a5], a6, n] - 
    S2[a1, a2, a3, SP[a4, a6], a5, n] - S2[a1, a2, a5, a3, SP[a4, a6], n] - 
    S2[a1, a2, a5, SP[a3, a4], a6, n] - S2[a1, a2, SP[a3, a4], a5, a6, n] - 
    S2[a1, a2, SP[a3, a4], a6, a5, n] + S2[a1, a2, SP[a4, a5], a3, a6, n] - 
    S2[a1, a3, a2, a5, SP[a4, a6], n] + S2[a1, a3, a2, a6, SP[a4, a5], n] + 
    S2[a1, a3, a2, SP[a4, a5], a6, n] - S2[a1, a3, a2, SP[a4, a6], a5, n] - 
    S2[a6, n]*S2[a1, a3, a4, a2, a5, n] - S2[a1, a3, a4, a2, SP[a5, a6], n] - 
    S2[a1, a3, a4, SP[a2, a6], a5, n] + S2[a1, a3, a6, a2, SP[a4, a5], n] + 
    S2[a1, a3, a6, SP[a2, a4], a5, n] + S2[a1, a3, SP[a2, a4], a5, a6, n] + 
    S2[a1, a3, SP[a2, a4], a6, a5, n] - 2*S2[a1, a3, SP[a4, a6], a2, a5, n] - 
    S2[a6, n]*S2[a1, a4, a2, a3, a5, n] - S2[a1, a4, a2, a3, SP[a5, a6], n] - 
    S2[a6, n]*S2[a1, a4, a2, a5, a3, n] + 
    S2[a3, n]*S2[a1, a4, a2, a5, a6, n] + 
    S2[a3, n]*S2[a1, a4, a2, a6, a5, n] + S2[a1, a4, a2, a6, SP[a3, a5], n] + 
    S2[a1, a4, a2, SP[a3, a5], a6, n] - S2[a1, a4, a2, SP[a5, a6], a3, n] - 
    S2[a6, n]*S2[a1, a4, a3, a2, a5, n] - S2[a1, a4, a3, a2, SP[a5, a6], n] - 
    S2[a1, a4, a3, SP[a2, a6], a5, n] + S2[a3, n]*S2[a1, a4, a6, a2, a5, n] + 
    S2[a1, a4, a6, a2, SP[a3, a5], n] + S2[a1, a4, a6, SP[a2, a3], a5, n] + 
    S2[a1, a4, SP[a2, a3], a5, a6, n] + S2[a1, a4, SP[a2, a3], a6, a5, n] - 
    S2[a1, a4, SP[a2, a6], a3, a5, n] - S2[a1, a4, SP[a2, a6], a5, a3, n] + 
    S2[a3, n]*S2[a1, a6, a4, a2, a5, n] + S2[a1, a6, a4, a2, SP[a3, a5], n] + 
    S2[a1, a6, a4, SP[a2, a3], a5, n] + S2[a1, a6, SP[a3, a4], a2, a5, n] + 
    S2[a1, SP[a2, a4], a3, a5, a6, n] + S2[a1, SP[a2, a4], a3, a6, a5, n] + 
    S2[a1, SP[a2, a4], a5, a3, a6, n] - S2[a1, SP[a4, a6], a2, a3, a5, n] - 
    S2[a1, SP[a4, a6], a2, a5, a3, n] - S2[a1, SP[a4, a6], a3, a2, a5, n] - 
    S2[a2, a1, a3, a5, SP[a4, a6], n] + S2[a2, a1, a3, a6, SP[a4, a5], n] + 
    S2[a2, a1, a3, SP[a4, a5], a6, n] - S2[a2, a1, a3, SP[a4, a6], a5, n] - 
    S2[a2, a1, a5, a3, SP[a4, a6], n] - S2[a2, a1, a5, SP[a3, a4], a6, n] - 
    S2[a2, a1, SP[a3, a4], a5, a6, n] - S2[a2, a1, SP[a3, a4], a6, a5, n] + 
    S2[a2, a1, SP[a4, a5], a3, a6, n] + S2[a5, n]*S2[a2, a4, a1, a3, a6, n] - 
    S2[a2, a5, a1, a3, SP[a4, a6], n] - S2[a2, a5, a1, SP[a3, a4], a6, n] - 
    S2[a2, a5, SP[a1, a4], a3, a6, n] - S2[a2, SP[a1, a4], a3, a5, a6, n] - 
    S2[a2, SP[a1, a4], a3, a6, a5, n] - S2[a2, SP[a1, a4], a5, a3, a6, n] + 
    S2[a2, SP[a4, a5], a1, a3, a6, n] - S2[a3, a1, a4, a2, SP[a5, a6], n] - 
    S2[a3, a1, a4, SP[a2, a6], a5, n] - S2[a3, a1, SP[a4, a6], a2, a5, n] - 
    S2[a3, SP[a1, a6], a4, a2, a5, n] + S2[a3, n]*S2[a6, a1, a4, a2, a5, n] + 
    S2[a6, a1, a4, a2, SP[a3, a5], n] + S2[a6, a1, a4, SP[a2, a3], a5, n] + 
    S2[a6, a1, SP[a3, a4], a2, a5, n] + S2[a6, SP[a1, a3], a4, a2, a5, n] - 
    S2[SP[a1, a6], a3, a4, a2, a5, n] - S2[SP[a1, a6], a4, a2, a3, a5, n] - 
    S2[SP[a1, a6], a4, a2, a5, a3, n] - S2[SP[a1, a6], a4, a3, a2, a5, n] + 
    S2[SP[a2, a5], a4, a1, a3, a6, n] + S2[SP[a3, a6], a1, a4, a2, a5, n] - 
    S2[a6, a3, a1, a4, a2, a5, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a5_, a2_, a4_, a1_, a6_, a3_, n_] :> 
  -(S2[a1, a6, a3, n]*S2[a2, a4, a5, n]) - S2[a1, a6, a3, n]*
     S2[a2, a5, a4, n] - S2[SP[a1, a2], SP[a4, a6], SP[a3, a5], n] - 
    S2[SP[a1, a2], SP[a5, a6], SP[a3, a4], n] + S2[a1, a2, SP[a4, a6], 
     SP[a3, a5], n] + S2[a1, a2, SP[a5, a6], SP[a3, a4], n] + 
    S2[a3, a6, n]*S2[a1, a4, a2, a5, n] + S2[a2, a5, n]*
     S2[a1, a4, a6, a3, n] - S2[a1, a4, SP[a2, a3], SP[a5, a6], n] - 
    S2[a1, a4, SP[a2, a6], SP[a3, a5], n] + S2[a2, a5, n]*
     S2[a1, a6, a3, a4, n] + S2[a2, a5, n]*S2[a1, a6, a4, a3, n] - 
    S2[a1, a6, SP[a2, a3], SP[a4, a5], n] - S2[a1, a6, SP[a2, a4], 
     SP[a3, a5], n] - S2[a1, SP[a2, a4], a6, SP[a3, a5], n] - 
    S2[a1, SP[a2, a4], SP[a5, a6], a3, n] - S2[a1, SP[a2, a6], a3, 
     SP[a4, a5], n] + S2[a1, SP[a2, a6], a5, SP[a3, a4], n] + 
    S2[a1, SP[a2, a6], SP[a3, a4], a5, n] - S2[a1, SP[a2, a6], SP[a4, a5], 
     a3, n] - S2[a1, SP[a3, a4], a2, SP[a5, a6], n] - 
    S2[a1, SP[a3, a4], SP[a2, a6], a5, n] + S2[a2, a1, SP[a4, a6], 
     SP[a3, a5], n] + S2[a2, a1, SP[a5, a6], SP[a3, a4], n] + 
    S2[a2, SP[a1, a4], a6, SP[a3, a5], n] + S2[a2, SP[a1, a4], SP[a5, a6], 
     a3, n] + S2[a2, SP[a1, a5], a6, SP[a3, a4], n] + 
    S2[a2, SP[a1, a5], SP[a4, a6], a3, n] + S2[SP[a1, a2], a5, a6, 
     SP[a3, a4], n] + S2[SP[a1, a2], a5, SP[a4, a6], a3, n] - 
    S2[SP[a1, a2], a6, a3, SP[a4, a5], n] + S2[SP[a1, a2], a6, a5, 
     SP[a3, a4], n] + S2[SP[a1, a2], a6, SP[a3, a4], a5, n] - 
    S2[SP[a1, a2], a6, SP[a4, a5], a3, n] - S2[SP[a1, a2], SP[a4, a5], a6, 
     a3, n] + S2[SP[a1, a2], SP[a4, a6], a3, a5, n] + 
    S2[SP[a1, a2], SP[a4, a6], a5, a3, n] - S2[SP[a1, a3], a4, a2, 
     SP[a5, a6], n] - S2[SP[a1, a3], a4, SP[a2, a6], a5, n] - 
    S2[SP[a1, a3], SP[a4, a6], a2, a5, n] - S2[a1, a2, a5, a6, SP[a3, a4], 
     n] - S2[a1, a2, a5, SP[a4, a6], a3, n] + S2[a1, a2, a6, a3, SP[a4, a5], 
     n] - S2[a1, a2, a6, a5, SP[a3, a4], n] - S2[a1, a2, a6, SP[a3, a4], a5, 
     n] + S2[a1, a2, a6, SP[a4, a5], a3, n] + S2[a1, a2, SP[a4, a5], a6, a3, 
     n] - S2[a1, a2, SP[a4, a6], a3, a5, n] - S2[a1, a2, SP[a4, a6], a5, a3, 
     n] + S2[a1, a3, a4, a2, SP[a5, a6], n] + S2[a1, a3, a4, SP[a2, a6], a5, 
     n] + S2[a1, a3, SP[a4, a6], a2, a5, n] + S2[a1, a4, a2, a3, SP[a5, a6], 
     n] - S2[a3, n]*S2[a1, a4, a2, a5, a6, n] - S2[a1, a4, a2, a5, 
     SP[a3, a6], n] - S2[a3, n]*S2[a1, a4, a2, a6, a5, n] - 
    S2[a1, a4, a2, SP[a3, a6], a5, n] + S2[a1, a4, a2, SP[a5, a6], a3, n] + 
    S2[a1, a4, a3, a2, SP[a5, a6], n] + S2[a1, a4, a3, SP[a2, a6], a5, n] - 
    S2[a3, n]*S2[a1, a4, a6, a2, a5, n] + S2[a1, a4, SP[a2, a6], a3, a5, n] + 
    S2[a1, a4, SP[a2, a6], a5, a3, n] - S2[a1, a4, SP[a3, a6], a2, a5, n] + 
    S2[a1, a6, a2, a3, SP[a4, a5], n] - S2[a1, a6, a2, a5, SP[a3, a4], n] - 
    S2[a1, a6, a2, SP[a3, a4], a5, n] + S2[a1, a6, a2, SP[a4, a5], a3, n] + 
    S2[a1, a6, a3, a2, SP[a4, a5], n] + S2[a1, a6, a3, SP[a2, a4], a5, n] - 
    S2[a3, n]*S2[a1, a6, a4, a2, a5, n] + S2[a1, a6, SP[a2, a4], a3, a5, n] + 
    S2[a1, a6, SP[a2, a4], a5, a3, n] - S2[a1, a6, SP[a3, a4], a2, a5, n] + 
    S2[a1, SP[a2, a4], a5, a6, a3, n] + S2[a1, SP[a2, a4], a6, a3, a5, n] + 
    S2[a1, SP[a2, a4], a6, a5, a3, n] - S2[a1, SP[a3, a6], a4, a2, a5, n] - 
    S2[a2, a1, a5, a6, SP[a3, a4], n] - S2[a2, a1, a5, SP[a4, a6], a3, n] + 
    S2[a2, a1, a6, a3, SP[a4, a5], n] - S2[a2, a1, a6, a5, SP[a3, a4], n] - 
    S2[a2, a1, a6, SP[a3, a4], a5, n] + S2[a2, a1, a6, SP[a4, a5], a3, n] + 
    S2[a2, a1, SP[a4, a5], a6, a3, n] - S2[a2, a1, SP[a4, a6], a3, a5, n] - 
    S2[a2, a1, SP[a4, a6], a5, a3, n] + S2[a5, n]*S2[a2, a4, a1, a6, a3, n] - 
    S2[a2, a5, a1, a6, SP[a3, a4], n] - S2[a2, a5, a1, SP[a4, a6], a3, n] - 
    S2[a2, a5, SP[a1, a4], a6, a3, n] - S2[a2, SP[a1, a4], a5, a6, a3, n] - 
    S2[a2, SP[a1, a4], a6, a3, a5, n] - S2[a2, SP[a1, a4], a6, a5, a3, n] + 
    S2[a2, SP[a4, a5], a1, a6, a3, n] + S2[a3, a1, a4, a2, SP[a5, a6], n] + 
    S2[a3, a1, a4, SP[a2, a6], a5, n] + S2[a3, a1, SP[a4, a6], a2, a5, n] + 
    S2[a3, SP[a1, a6], a4, a2, a5, n] - S2[a3, n]*S2[a6, a1, a4, a2, a5, n] - 
    S2[a6, a1, a4, a2, SP[a3, a5], n] - S2[a6, a1, a4, SP[a2, a3], a5, n] - 
    S2[a6, a1, SP[a3, a4], a2, a5, n] - S2[a6, SP[a1, a3], a4, a2, a5, n] + 
    S2[SP[a2, a5], a4, a1, a6, a3, n] - S2[SP[a3, a6], a1, a4, a2, a5, n] + 
    S2[a6, a1, a3, a4, a2, a5, n] + S2[a6, a1, a4, a2, a3, a5, n] + 
    S2[a6, a1, a4, a2, a5, a3, n] + S2[a6, a1, a4, a3, a2, a5, n] + 
    S2[a6, a3, a1, a4, a2, a5, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a5_, a2_, a4_, a3_, a1_, a6_, n_] :> 
  S2[a1, a3, a6, n]*S2[a2, a4, a5, n] + S2[a1, a6, a3, n]*S2[a2, a4, a5, n] + 
    S2[a1, a3, a6, n]*S2[a2, a5, a4, n] + S2[a1, a6, a3, n]*
     S2[a2, a5, a4, n] + S2[SP[a1, a2], SP[a3, a4], SP[a5, a6], n] + 
    S2[SP[a1, a2], SP[a3, a5], SP[a4, a6], n] + S2[SP[a1, a2], SP[a4, a6], 
     SP[a3, a5], n] + S2[SP[a1, a2], SP[a5, a6], SP[a3, a4], n] - 
    S2[a1, a2, SP[a3, a4], SP[a5, a6], n] - S2[a1, a2, SP[a3, a5], 
     SP[a4, a6], n] - S2[a1, a2, SP[a4, a6], SP[a3, a5], n] - 
    S2[a1, a2, SP[a5, a6], SP[a3, a4], n] - S2[a2, a5, n]*
     S2[a1, a3, a4, a6, n] - S2[a2, a5, n]*S2[a1, a3, a6, a4, n] + 
    S2[a1, a3, SP[a2, a4], SP[a5, a6], n] + S2[a1, a3, SP[a2, a6], 
     SP[a4, a5], n] - S2[a2, a5, n]*S2[a1, a6, a3, a4, n] + 
    S2[a1, a6, SP[a2, a3], SP[a4, a5], n] - S2[a1, SP[a2, a3], a5, 
     SP[a4, a6], n] + S2[a1, SP[a2, a3], a6, SP[a4, a5], n] + 
    S2[a1, SP[a2, a3], SP[a4, a5], a6, n] - S2[a1, SP[a2, a3], SP[a4, a6], 
     a5, n] + S2[a1, SP[a2, a6], a3, SP[a4, a5], n] - 
    S2[a1, SP[a2, a6], a4, SP[a3, a5], n] - S2[a1, SP[a2, a6], a5, 
     SP[a3, a4], n] - S2[a1, SP[a2, a6], SP[a3, a4], a5, n] - 
    S2[a2, a1, SP[a3, a4], SP[a5, a6], n] - S2[a2, a1, SP[a3, a5], 
     SP[a4, a6], n] - S2[a2, a1, SP[a4, a6], SP[a3, a5], n] - 
    S2[a2, a1, SP[a5, a6], SP[a3, a4], n] - S2[a1, a6, n]*
     S2[a2, a4, a3, a5, n] - S2[a1, a6, n]*S2[a2, a4, a5, a3, n] + 
    S2[a2, a4, SP[a1, a3], SP[a5, a6], n] + S2[a2, a4, SP[a1, a5], 
     SP[a3, a6], n] - S2[a1, a6, n]*S2[a2, a5, a4, a3, n] + 
    S2[a2, a5, SP[a1, a4], SP[a3, a6], n] + S2[a2, SP[a1, a4], a5, 
     SP[a3, a6], n] - S2[a2, SP[a1, a4], a6, SP[a3, a5], n] - 
    S2[a2, SP[a1, a4], SP[a3, a5], a6, n] + S2[a2, SP[a1, a4], SP[a3, a6], 
     a5, n] - S2[a2, SP[a1, a5], a3, SP[a4, a6], n] + 
    S2[a2, SP[a1, a5], a4, SP[a3, a6], n] - S2[a2, SP[a1, a5], a6, 
     SP[a3, a4], n] - S2[a2, SP[a1, a5], SP[a3, a4], a6, n] - 
    S2[SP[a1, a2], a3, a5, SP[a4, a6], n] + S2[SP[a1, a2], a3, a6, 
     SP[a4, a5], n] + S2[SP[a1, a2], a3, SP[a4, a5], a6, n] - 
    S2[SP[a1, a2], a3, SP[a4, a6], a5, n] + S2[SP[a1, a2], a4, a5, 
     SP[a3, a6], n] - S2[SP[a1, a2], a4, a6, SP[a3, a5], n] - 
    S2[SP[a1, a2], a4, SP[a3, a5], a6, n] + S2[SP[a1, a2], a4, SP[a3, a6], 
     a5, n] - S2[SP[a1, a2], a5, a3, SP[a4, a6], n] + 
    S2[SP[a1, a2], a5, a4, SP[a3, a6], n] - S2[SP[a1, a2], a5, a6, 
     SP[a3, a4], n] - S2[SP[a1, a2], a5, SP[a3, a4], a6, n] + 
    S2[SP[a1, a2], a6, a3, SP[a4, a5], n] - S2[SP[a1, a2], a6, a4, 
     SP[a3, a5], n] - S2[SP[a1, a2], a6, a5, SP[a3, a4], n] - 
    S2[SP[a1, a2], a6, SP[a3, a4], a5, n] - S2[SP[a1, a2], SP[a3, a4], a5, 
     a6, n] - S2[SP[a1, a2], SP[a3, a4], a6, a5, n] + 
    S2[a1, a2, a3, a5, SP[a4, a6], n] - S2[a1, a2, a3, a6, SP[a4, a5], n] - 
    S2[a1, a2, a3, SP[a4, a5], a6, n] + S2[a1, a2, a3, SP[a4, a6], a5, n] - 
    S2[a1, a2, a4, a5, SP[a3, a6], n] + S2[a1, a2, a4, a6, SP[a3, a5], n] + 
    S2[a1, a2, a4, SP[a3, a5], a6, n] - S2[a1, a2, a4, SP[a3, a6], a5, n] + 
    S2[a1, a2, a5, a3, SP[a4, a6], n] - S2[a1, a2, a5, a4, SP[a3, a6], n] + 
    S2[a1, a2, a5, a6, SP[a3, a4], n] + S2[a1, a2, a5, SP[a3, a4], a6, n] - 
    S2[a1, a2, a6, a3, SP[a4, a5], n] + S2[a1, a2, a6, a4, SP[a3, a5], n] + 
    S2[a1, a2, a6, a5, SP[a3, a4], n] + S2[a1, a2, a6, SP[a3, a4], a5, n] + 
    S2[a1, a2, SP[a3, a4], a5, a6, n] + S2[a1, a2, SP[a3, a4], a6, a5, n] + 
    S2[a1, a3, a2, a5, SP[a4, a6], n] - S2[a1, a3, a2, a6, SP[a4, a5], n] - 
    S2[a1, a3, a2, SP[a4, a5], a6, n] + S2[a1, a3, a2, SP[a4, a6], a5, n] + 
    S2[a6, n]*S2[a1, a3, a4, a2, a5, n] - S2[a1, a3, a6, a2, SP[a4, a5], n] - 
    S2[a1, a3, a6, SP[a2, a4], a5, n] - S2[a1, a3, SP[a2, a4], a5, a6, n] - 
    S2[a1, a3, SP[a2, a4], a6, a5, n] + S2[a1, a3, SP[a4, a6], a2, a5, n] - 
    S2[a1, a6, a2, a3, SP[a4, a5], n] + S2[a1, a6, a2, a4, SP[a3, a5], n] + 
    S2[a1, a6, a2, a5, SP[a3, a4], n] + S2[a1, a6, a2, SP[a3, a4], a5, n] - 
    S2[a1, a6, a3, a2, SP[a4, a5], n] - S2[a1, a6, a3, SP[a2, a4], a5, n] + 
    S2[a1, SP[a3, a6], a4, a2, a5, n] + S2[a2, a1, a3, a5, SP[a4, a6], n] - 
    S2[a2, a1, a3, a6, SP[a4, a5], n] - S2[a2, a1, a3, SP[a4, a5], a6, n] + 
    S2[a2, a1, a3, SP[a4, a6], a5, n] - S2[a2, a1, a4, a5, SP[a3, a6], n] + 
    S2[a2, a1, a4, a6, SP[a3, a5], n] + S2[a2, a1, a4, SP[a3, a5], a6, n] - 
    S2[a2, a1, a4, SP[a3, a6], a5, n] + S2[a2, a1, a5, a3, SP[a4, a6], n] - 
    S2[a2, a1, a5, a4, SP[a3, a6], n] + S2[a2, a1, a5, a6, SP[a3, a4], n] + 
    S2[a2, a1, a5, SP[a3, a4], a6, n] - S2[a2, a1, a6, a3, SP[a4, a5], n] + 
    S2[a2, a1, a6, a4, SP[a3, a5], n] + S2[a2, a1, a6, a5, SP[a3, a4], n] + 
    S2[a2, a1, a6, SP[a3, a4], a5, n] + S2[a2, a1, SP[a3, a4], a5, a6, n] + 
    S2[a2, a1, SP[a3, a4], a6, a5, n] - S2[a2, a4, a1, a5, SP[a3, a6], n] + 
    S2[a2, a4, a1, a6, SP[a3, a5], n] + S2[a2, a4, a1, SP[a3, a5], a6, n] - 
    S2[a2, a4, a1, SP[a3, a6], a5, n] + S2[a5, n]*S2[a2, a4, a3, a1, a6, n] - 
    S2[a2, a4, a5, a1, SP[a3, a6], n] - S2[a2, a4, a5, SP[a1, a3], a6, n] - 
    S2[a2, a4, SP[a1, a3], a5, a6, n] - S2[a2, a4, SP[a1, a3], a6, a5, n] + 
    S2[a2, a4, SP[a3, a5], a1, a6, n] + S2[a2, a5, a1, a3, SP[a4, a6], n] - 
    S2[a2, a5, a1, a4, SP[a3, a6], n] + S2[a2, a5, a1, a6, SP[a3, a4], n] + 
    S2[a2, a5, a1, SP[a3, a4], a6, n] - S2[a2, a5, a4, a1, SP[a3, a6], n] - 
    S2[a2, a5, a4, SP[a1, a3], a6, n] + S2[a2, SP[a4, a5], a3, a1, a6, n] + 
    S2[SP[a1, a6], a3, a4, a2, a5, n] + S2[SP[a2, a5], a4, a3, a1, a6, n] - 
    S2[a6, a1, a3, a4, a2, a5, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a5_, a2_, a4_, a3_, a6_, a1_, n_] :> 
  -(S2[a1, a6, a3, n]*S2[a2, a4, a5, n]) - S2[a1, a6, a3, n]*
     S2[a2, a5, a4, n] - S2[SP[a1, a2], SP[a4, a6], SP[a3, a5], n] - 
    S2[SP[a1, a2], SP[a5, a6], SP[a3, a4], n] + S2[a1, a2, SP[a4, a6], 
     SP[a3, a5], n] + S2[a1, a2, SP[a5, a6], SP[a3, a4], n] + 
    S2[a2, a5, n]*S2[a1, a6, a3, a4, n] - S2[a1, a6, SP[a2, a3], SP[a4, a5], 
     n] - S2[a1, SP[a2, a6], a3, SP[a4, a5], n] + S2[a1, SP[a2, a6], a4, 
     SP[a3, a5], n] + S2[a1, SP[a2, a6], a5, SP[a3, a4], n] + 
    S2[a1, SP[a2, a6], SP[a3, a4], a5, n] + S2[a2, a1, SP[a4, a6], 
     SP[a3, a5], n] + S2[a2, a1, SP[a5, a6], SP[a3, a4], n] + 
    S2[a1, a6, n]*S2[a2, a4, a3, a5, n] + S2[a1, a6, n]*
     S2[a2, a4, a5, a3, n] - S2[a2, a4, SP[a1, a3], SP[a5, a6], n] - 
    S2[a2, a4, SP[a1, a5], SP[a3, a6], n] + S2[a1, a6, n]*
     S2[a2, a5, a4, a3, n] - S2[a2, a5, SP[a1, a4], SP[a3, a6], n] - 
    S2[a2, SP[a1, a4], a3, SP[a5, a6], n] - S2[a2, SP[a1, a4], a5, 
     SP[a3, a6], n] + S2[a2, SP[a1, a4], a6, SP[a3, a5], n] - 
    S2[a2, SP[a1, a4], SP[a3, a6], a5, n] - S2[a2, SP[a1, a5], a4, 
     SP[a3, a6], n] + S2[a2, SP[a1, a5], a6, SP[a3, a4], n] - 
    S2[SP[a1, a2], a4, a3, SP[a5, a6], n] - S2[SP[a1, a2], a4, a5, 
     SP[a3, a6], n] + S2[SP[a1, a2], a4, a6, SP[a3, a5], n] - 
    S2[SP[a1, a2], a4, SP[a3, a6], a5, n] - S2[SP[a1, a2], a5, a4, 
     SP[a3, a6], n] + S2[SP[a1, a2], a5, a6, SP[a3, a4], n] - 
    S2[SP[a1, a2], a6, a3, SP[a4, a5], n] + S2[SP[a1, a2], a6, a4, 
     SP[a3, a5], n] + S2[SP[a1, a2], a6, a5, SP[a3, a4], n] + 
    S2[SP[a1, a2], a6, SP[a3, a4], a5, n] + S2[a1, a2, a4, a3, SP[a5, a6], 
     n] + S2[a1, a2, a4, a5, SP[a3, a6], n] - S2[a1, a2, a4, a6, SP[a3, a5], 
     n] + S2[a1, a2, a4, SP[a3, a6], a5, n] + S2[a1, a2, a5, a4, SP[a3, a6], 
     n] - S2[a1, a2, a5, a6, SP[a3, a4], n] + S2[a1, a2, a6, a3, SP[a4, a5], 
     n] - S2[a1, a2, a6, a4, SP[a3, a5], n] - S2[a1, a2, a6, a5, SP[a3, a4], 
     n] - S2[a1, a2, a6, SP[a3, a4], a5, n] + 
    S2[a5, n]*S2[a1, a4, a2, a3, a6, n] + S2[a1, a4, a2, a3, SP[a5, a6], n] + 
    S2[a1, a4, a2, SP[a3, a5], a6, n] + S2[a5, n]*S2[a1, a4, a3, a2, a6, n] + 
    S2[a1, a4, a3, a2, SP[a5, a6], n] - S2[a2, n]*S2[a1, a4, a3, a5, a6, n] - 
    S2[a1, a4, a3, a5, SP[a2, a6], n] + S2[a5, n]*S2[a1, a4, a3, a6, a2, n] - 
    S2[a2, n]*S2[a1, a4, a3, a6, a5, n] - S2[a1, a4, a3, SP[a2, a6], a5, n] + 
    S2[a1, a4, a3, SP[a5, a6], a2, n] - S2[a2, n]*S2[a1, a4, a5, a3, a6, n] - 
    S2[a1, a4, a5, a3, SP[a2, a6], n] - S2[a1, a4, a5, SP[a2, a3], a6, n] - 
    S2[a1, a4, SP[a2, a3], a5, a6, n] - S2[a1, a4, SP[a2, a3], a6, a5, n] + 
    S2[a1, a4, SP[a3, a5], a2, a6, n] + S2[a1, a4, SP[a3, a5], a6, a2, n] - 
    S2[a2, n]*S2[a1, a5, a4, a3, a6, n] - S2[a1, a5, a4, a3, SP[a2, a6], n] - 
    S2[a1, a5, a4, SP[a2, a3], a6, n] - S2[a1, a5, SP[a2, a4], a3, a6, n] + 
    S2[a1, a6, a2, a3, SP[a4, a5], n] - S2[a1, a6, a2, a4, SP[a3, a5], n] - 
    S2[a1, a6, a2, a5, SP[a3, a4], n] - S2[a1, a6, a2, SP[a3, a4], a5, n] + 
    S2[a1, a6, a3, a2, SP[a4, a5], n] + S2[a1, a6, a3, SP[a2, a4], a5, n] - 
    S2[a1, SP[a2, a4], a3, a5, a6, n] - S2[a1, SP[a2, a4], a3, a6, a5, n] - 
    S2[a1, SP[a2, a4], a5, a3, a6, n] - S2[a1, SP[a2, a5], a4, a3, a6, n] + 
    S2[a1, SP[a4, a5], a2, a3, a6, n] + S2[a1, SP[a4, a5], a3, a2, a6, n] + 
    S2[a1, SP[a4, a5], a3, a6, a2, n] + S2[a2, a1, a4, a3, SP[a5, a6], n] + 
    S2[a2, a1, a4, a5, SP[a3, a6], n] - S2[a2, a1, a4, a6, SP[a3, a5], n] + 
    S2[a2, a1, a4, SP[a3, a6], a5, n] + S2[a2, a1, a5, a4, SP[a3, a6], n] - 
    S2[a2, a1, a5, a6, SP[a3, a4], n] + S2[a2, a1, a6, a3, SP[a4, a5], n] - 
    S2[a2, a1, a6, a4, SP[a3, a5], n] - S2[a2, a1, a6, a5, SP[a3, a4], n] - 
    S2[a2, a1, a6, SP[a3, a4], a5, n] - S2[a5, n]*S2[a2, a4, a1, a3, a6, n] + 
    S2[a2, a4, a1, a5, SP[a3, a6], n] - S2[a2, a4, a1, a6, SP[a3, a5], n] - 
    S2[a2, a4, a1, SP[a3, a5], a6, n] + S2[a2, a4, a1, SP[a3, a6], a5, n] - 
    S2[a5, n]*S2[a2, a4, a3, a1, a6, n] + S2[a2, a4, a5, a1, SP[a3, a6], n] + 
    S2[a2, a4, a5, SP[a1, a3], a6, n] + S2[a2, a4, SP[a1, a3], a5, a6, n] + 
    S2[a2, a4, SP[a1, a3], a6, a5, n] - S2[a2, a4, SP[a3, a5], a1, a6, n] + 
    S2[a2, a5, a1, a4, SP[a3, a6], n] - S2[a2, a5, a1, a6, SP[a3, a4], n] + 
    S2[a2, a5, a4, a1, SP[a3, a6], n] + S2[a2, a5, a4, SP[a1, a3], a6, n] + 
    S2[a2, a5, SP[a1, a4], a3, a6, n] + S2[a2, SP[a1, a4], a3, a5, a6, n] + 
    S2[a2, SP[a1, a4], a3, a6, a5, n] + S2[a2, SP[a1, a4], a5, a3, a6, n] + 
    S2[a2, SP[a1, a5], a4, a3, a6, n] - S2[a2, SP[a4, a5], a1, a3, a6, n] - 
    S2[a2, SP[a4, a5], a3, a1, a6, n] - S2[a2, n]*S2[a5, a1, a4, a3, a6, n] - 
    S2[a5, a1, a4, a3, SP[a2, a6], n] - S2[a5, a1, a4, SP[a2, a3], a6, n] - 
    S2[a5, a1, SP[a2, a4], a3, a6, n] + S2[a1, n]*S2[a5, a2, a4, a3, a6, n] + 
    S2[a5, a2, a4, a3, SP[a1, a6], n] + S2[a5, a2, a4, SP[a1, a3], a6, n] + 
    S2[a5, a2, SP[a1, a4], a3, a6, n] - S2[a1, n]*S2[a6, a3, a4, a2, a5, n] - 
    S2[a6, a3, a4, a2, SP[a1, a5], n] - S2[a6, a3, a4, SP[a1, a2], a5, n] - 
    S2[a6, a3, SP[a1, a4], a2, a5, n] - S2[a6, SP[a1, a3], a4, a2, a5, n] + 
    S2[SP[a1, a5], a2, a4, a3, a6, n] + S2[SP[a1, a5], a4, a2, a3, a6, n] + 
    S2[SP[a1, a5], a4, a3, a2, a6, n] + S2[SP[a1, a5], a4, a3, a6, a2, n] - 
    S2[SP[a1, a6], a3, a4, a2, a5, n] - S2[SP[a2, a5], a1, a4, a3, a6, n] - 
    S2[SP[a2, a5], a4, a1, a3, a6, n] - S2[SP[a2, a5], a4, a3, a1, a6, n] + 
    S2[a6, a1, a3, a4, a2, a5, n] + S2[a6, a3, a1, a4, a2, a5, n] + 
    S2[a6, a3, a4, a1, a2, a5, n] + S2[a6, a3, a4, a2, a1, a5, n] + 
    S2[a6, a3, a4, a2, a5, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a5_, a2_, a4_, a6_, a1_, a3_, n_] :> 
  S2[a1, a3, a6, n]*S2[a2, a4, a5, n] + S2[a1, a6, a3, n]*S2[a2, a4, a5, n] + 
    S2[a1, a3, a6, n]*S2[a2, a5, a4, n] + S2[a1, a6, a3, n]*
     S2[a2, a5, a4, n] + S2[SP[a1, a2], SP[a3, a4], SP[a5, a6], n] + 
    S2[SP[a1, a2], SP[a3, a5], SP[a4, a6], n] + S2[SP[a1, a2], SP[a4, a6], 
     SP[a3, a5], n] + S2[SP[a1, a2], SP[a5, a6], SP[a3, a4], n] - 
    S2[a1, a2, SP[a3, a4], SP[a5, a6], n] - S2[a1, a2, SP[a3, a5], 
     SP[a4, a6], n] - S2[a1, a2, SP[a4, a6], SP[a3, a5], n] - 
    S2[a1, a2, SP[a5, a6], SP[a3, a4], n] - S2[a2, a5, n]*
     S2[a1, a3, a6, a4, n] + S2[a1, a3, SP[a2, a6], SP[a4, a5], n] - 
    S2[a2, a5, n]*S2[a1, a6, a3, a4, n] - S2[a2, a5, n]*
     S2[a1, a6, a4, a3, n] + S2[a1, a6, SP[a2, a3], SP[a4, a5], n] + 
    S2[a1, a6, SP[a2, a4], SP[a3, a5], n] - S2[a1, SP[a2, a3], a4, 
     SP[a5, a6], n] - S2[a1, SP[a2, a3], a5, SP[a4, a6], n] + 
    S2[a1, SP[a2, a3], a6, SP[a4, a5], n] - S2[a1, SP[a2, a3], SP[a4, a6], 
     a5, n] + S2[a1, SP[a2, a6], a3, SP[a4, a5], n] - 
    S2[a1, SP[a2, a6], a5, SP[a3, a4], n] - S2[a1, SP[a2, a6], SP[a3, a4], 
     a5, n] + S2[a1, SP[a2, a6], SP[a4, a5], a3, n] - 
    S2[a2, a1, SP[a3, a4], SP[a5, a6], n] - S2[a2, a1, SP[a3, a5], 
     SP[a4, a6], n] - S2[a2, a1, SP[a4, a6], SP[a3, a5], n] - 
    S2[a2, a1, SP[a5, a6], SP[a3, a4], n] + S2[a1, a3, n]*
     S2[a2, a5, a6, a4, n] - S2[a2, a5, SP[a1, a6], SP[a3, a4], n] + 
    S2[a1, a3, n]*S2[a2, a6, a4, a5, n] + S2[a1, a3, n]*
     S2[a2, a6, a5, a4, n] - S2[a2, a6, SP[a1, a4], SP[a3, a5], n] - 
    S2[a2, a6, SP[a1, a5], SP[a3, a4], n] - S2[a2, SP[a1, a4], a3, 
     SP[a5, a6], n] - S2[a2, SP[a1, a4], a6, SP[a3, a5], n] - 
    S2[a2, SP[a1, a4], SP[a3, a5], a6, n] - S2[a2, SP[a1, a4], SP[a5, a6], 
     a3, n] - S2[a2, SP[a1, a5], a3, SP[a4, a6], n] - 
    2*S2[a2, SP[a1, a5], a6, SP[a3, a4], n] - S2[a2, SP[a1, a5], SP[a3, a4], 
     a6, n] - S2[a2, SP[a1, a5], SP[a3, a6], a4, n] - 
    S2[a2, SP[a1, a5], SP[a4, a6], a3, n] - S2[a2, SP[a1, a6], a4, 
     SP[a3, a5], n] - S2[a2, SP[a1, a6], a5, SP[a3, a4], n] - 
    S2[a2, SP[a1, a6], SP[a3, a4], a5, n] - S2[a2, SP[a1, a6], SP[a3, a5], 
     a4, n] - S2[a1, a3, n]*S2[a4, a6, a2, a5, n] + 
    S2[a4, a6, SP[a1, a2], SP[a3, a5], n] + S2[a4, SP[a1, a6], a2, 
     SP[a3, a5], n] + S2[a4, SP[a1, a6], SP[a2, a3], a5, n] - 
    S2[SP[a1, a2], a3, a4, SP[a5, a6], n] - S2[SP[a1, a2], a3, a5, 
     SP[a4, a6], n] + S2[SP[a1, a2], a3, a6, SP[a4, a5], n] - 
    S2[SP[a1, a2], a3, SP[a4, a6], a5, n] - S2[SP[a1, a2], a4, a3, 
     SP[a5, a6], n] - S2[SP[a1, a2], a4, a6, SP[a3, a5], n] - 
    S2[SP[a1, a2], a4, SP[a3, a5], a6, n] - S2[SP[a1, a2], a4, SP[a5, a6], 
     a3, n] - S2[SP[a1, a2], a5, a3, SP[a4, a6], n] - 
    2*S2[SP[a1, a2], a5, a6, SP[a3, a4], n] - S2[SP[a1, a2], a5, SP[a3, a4], 
     a6, n] - S2[SP[a1, a2], a5, SP[a3, a6], a4, n] - 
    S2[SP[a1, a2], a5, SP[a4, a6], a3, n] + S2[SP[a1, a2], a6, a3, 
     SP[a4, a5], n] - S2[SP[a1, a2], a6, a4, SP[a3, a5], n] - 
    2*S2[SP[a1, a2], a6, a5, SP[a3, a4], n] - 
    2*S2[SP[a1, a2], a6, SP[a3, a4], a5, n] - S2[SP[a1, a2], a6, SP[a3, a5], 
     a4, n] + S2[SP[a1, a2], a6, SP[a4, a5], a3, n] - 
    S2[SP[a1, a2], SP[a3, a4], a5, a6, n] - S2[SP[a1, a2], SP[a3, a4], a6, 
     a5, n] - S2[SP[a1, a2], SP[a3, a5], a4, a6, n] - 
    S2[SP[a1, a2], SP[a3, a5], a6, a4, n] - S2[SP[a1, a2], SP[a3, a6], a4, 
     a5, n] - S2[SP[a1, a2], SP[a3, a6], a5, a4, n] - 
    S2[SP[a1, a2], SP[a4, a6], a3, a5, n] - S2[SP[a1, a2], SP[a4, a6], a5, 
     a3, n] + S2[SP[a1, a4], a6, a2, SP[a3, a5], n] + 
    S2[SP[a1, a4], a6, SP[a2, a3], a5, n] + S2[SP[a1, a4], SP[a3, a6], a2, 
     a5, n] + S2[a1, a2, a3, a4, SP[a5, a6], n] + 
    S2[a1, a2, a3, a5, SP[a4, a6], n] - S2[a1, a2, a3, a6, SP[a4, a5], n] + 
    S2[a1, a2, a3, SP[a4, a6], a5, n] + S2[a1, a2, a4, a3, SP[a5, a6], n] + 
    S2[a1, a2, a4, a6, SP[a3, a5], n] + S2[a1, a2, a4, SP[a3, a5], a6, n] + 
    S2[a1, a2, a4, SP[a5, a6], a3, n] + S2[a1, a2, a5, a3, SP[a4, a6], n] + 
    2*S2[a1, a2, a5, a6, SP[a3, a4], n] + S2[a1, a2, a5, SP[a3, a4], a6, n] + 
    S2[a1, a2, a5, SP[a3, a6], a4, n] + S2[a1, a2, a5, SP[a4, a6], a3, n] - 
    S2[a1, a2, a6, a3, SP[a4, a5], n] + S2[a1, a2, a6, a4, SP[a3, a5], n] + 
    2*S2[a1, a2, a6, a5, SP[a3, a4], n] + 
    2*S2[a1, a2, a6, SP[a3, a4], a5, n] + S2[a1, a2, a6, SP[a3, a5], a4, n] - 
    S2[a1, a2, a6, SP[a4, a5], a3, n] + S2[a1, a2, SP[a3, a4], a5, a6, n] + 
    S2[a1, a2, SP[a3, a4], a6, a5, n] + S2[a1, a2, SP[a3, a5], a4, a6, n] + 
    S2[a1, a2, SP[a3, a5], a6, a4, n] + S2[a1, a2, SP[a3, a6], a4, a5, n] + 
    S2[a1, a2, SP[a3, a6], a5, a4, n] + S2[a1, a2, SP[a4, a6], a3, a5, n] + 
    S2[a1, a2, SP[a4, a6], a5, a3, n] + S2[a1, a3, a2, a4, SP[a5, a6], n] + 
    S2[a1, a3, a2, a5, SP[a4, a6], n] - S2[a1, a3, a2, a6, SP[a4, a5], n] + 
    S2[a1, a3, a2, SP[a4, a6], a5, n] + S2[a6, n]*S2[a1, a3, a4, a2, a5, n] + 
    S2[a1, a3, a4, a2, SP[a5, a6], n] + S2[a6, n]*S2[a1, a3, a4, a5, a2, n] - 
    S2[a2, n]*S2[a1, a3, a4, a5, a6, n] - 
    S2[a2, n]*S2[a1, a3, a4, a6, a5, n] - S2[a1, a3, a4, a6, SP[a2, a5], n] - 
    S2[a1, a3, a4, SP[a2, a5], a6, n] + S2[a1, a3, a4, SP[a5, a6], a2, n] + 
    S2[a6, n]*S2[a1, a3, a5, a2, a4, n] + S2[a1, a3, a5, a2, SP[a4, a6], n] + 
    S2[a6, n]*S2[a1, a3, a5, a4, a2, n] - 
    S2[a2, n]*S2[a1, a3, a5, a4, a6, n] - 
    S2[a2, n]*S2[a1, a3, a5, a6, a4, n] - S2[a1, a3, a5, a6, SP[a2, a4], n] - 
    S2[a1, a3, a5, SP[a2, a4], a6, n] + S2[a1, a3, a5, SP[a4, a6], a2, n] + 
    S2[a4, n]*S2[a1, a3, a6, a2, a5, n] - 
    S2[a2, n]*S2[a1, a3, a6, a4, a5, n] - S2[a1, a3, a6, a4, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a3, a6, a5, a4, n] - S2[a1, a3, a6, a5, SP[a2, a4], n] - 
    S2[a1, a3, a6, SP[a2, a4], a5, n] - S2[a1, a3, a6, SP[a2, a5], a4, n] - 
    S2[a1, a3, SP[a2, a4], a5, a6, n] - S2[a1, a3, SP[a2, a4], a6, a5, n] - 
    S2[a1, a3, SP[a2, a5], a4, a6, n] - S2[a1, a3, SP[a2, a5], a6, a4, n] - 
    S2[a1, a3, SP[a2, a6], a4, a5, n] - S2[a1, a3, SP[a2, a6], a5, a4, n] + 
    2*S2[a1, a3, SP[a4, a6], a2, a5, n] + S2[a1, a3, SP[a4, a6], a5, a2, n] + 
    S2[a1, a3, SP[a5, a6], a2, a4, n] + S2[a1, a3, SP[a5, a6], a4, a2, n] + 
    S2[a6, n]*S2[a1, a4, a2, a3, a5, n] + S2[a1, a4, a2, a3, SP[a5, a6], n] + 
    S2[a6, n]*S2[a1, a4, a2, a5, a3, n] + S2[a1, a4, a2, a5, SP[a3, a6], n] + 
    S2[a1, a4, a2, SP[a3, a6], a5, n] + S2[a1, a4, a2, SP[a5, a6], a3, n] + 
    S2[a6, n]*S2[a1, a4, a3, a2, a5, n] + S2[a1, a4, a3, a2, SP[a5, a6], n] + 
    S2[a6, n]*S2[a1, a4, a3, a5, a2, n] - 
    S2[a2, n]*S2[a1, a4, a3, a5, a6, n] - 
    S2[a2, n]*S2[a1, a4, a3, a6, a5, n] - S2[a1, a4, a3, a6, SP[a2, a5], n] - 
    S2[a1, a4, a3, SP[a2, a5], a6, n] + S2[a1, a4, a3, SP[a5, a6], a2, n] + 
    S2[a6, n]*S2[a1, a4, a5, a2, a3, n] + S2[a1, a4, a5, a2, SP[a3, a6], n] + 
    S2[a6, n]*S2[a1, a4, a5, a3, a2, n] - 
    S2[a2, n]*S2[a1, a4, a5, a3, a6, n] - 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] - S2[a1, a4, a5, a6, SP[a2, a3], n] - 
    S2[a1, a4, a5, SP[a2, a3], a6, n] + S2[a1, a4, a5, SP[a3, a6], a2, n] - 
    S2[a1, a4, a6, a2, SP[a3, a5], n] - S2[a2, n]*S2[a1, a4, a6, a3, a5, n] - 
    S2[a1, a4, a6, a3, SP[a2, a5], n] - S2[a2, n]*S2[a1, a4, a6, a5, a3, n] - 
    S2[a1, a4, a6, a5, SP[a2, a3], n] - 2*S2[a1, a4, a6, SP[a2, a3], a5, n] - 
    S2[a1, a4, a6, SP[a2, a5], a3, n] - S2[a1, a4, SP[a2, a3], a5, a6, n] - 
    S2[a1, a4, SP[a2, a3], a6, a5, n] - S2[a1, a4, SP[a2, a5], a3, a6, n] - 
    S2[a1, a4, SP[a2, a5], a6, a3, n] + S2[a1, a4, SP[a3, a6], a5, a2, n] + 
    S2[a1, a4, SP[a5, a6], a2, a3, n] + S2[a1, a4, SP[a5, a6], a3, a2, n] + 
    S2[a6, n]*S2[a1, a5, a2, a3, a4, n] + S2[a1, a5, a2, a3, SP[a4, a6], n] + 
    S2[a6, n]*S2[a1, a5, a2, a4, a3, n] + S2[a1, a5, a2, a4, SP[a3, a6], n] + 
    S2[a1, a5, a2, SP[a3, a6], a4, n] + S2[a1, a5, a2, SP[a4, a6], a3, n] + 
    S2[a6, n]*S2[a1, a5, a3, a2, a4, n] + S2[a1, a5, a3, a2, SP[a4, a6], n] + 
    S2[a6, n]*S2[a1, a5, a3, a4, a2, n] - 
    S2[a2, n]*S2[a1, a5, a3, a4, a6, n] - 
    S2[a2, n]*S2[a1, a5, a3, a6, a4, n] - S2[a1, a5, a3, a6, SP[a2, a4], n] - 
    S2[a1, a5, a3, SP[a2, a4], a6, n] + S2[a1, a5, a3, SP[a4, a6], a2, n] + 
    S2[a6, n]*S2[a1, a5, a4, a2, a3, n] + S2[a1, a5, a4, a2, SP[a3, a6], n] + 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] - 
    S2[a2, n]*S2[a1, a5, a4, a3, a6, n] - 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] - S2[a1, a5, a4, a6, SP[a2, a3], n] - 
    S2[a1, a5, a4, SP[a2, a3], a6, n] + S2[a1, a5, a4, SP[a3, a6], a2, n] - 
    S2[a2, n]*S2[a1, a5, a6, a3, a4, n] - S2[a1, a5, a6, a3, SP[a2, a4], n] - 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] - S2[a1, a5, a6, a4, SP[a2, a3], n] - 
    S2[a1, a5, a6, SP[a2, a3], a4, n] - S2[a1, a5, a6, SP[a2, a4], a3, n] - 
    S2[a1, a5, SP[a2, a3], a4, a6, n] - S2[a1, a5, SP[a2, a3], a6, a4, n] - 
    S2[a1, a5, SP[a2, a4], a3, a6, n] - S2[a1, a5, SP[a2, a4], a6, a3, n] + 
    S2[a1, a5, SP[a3, a6], a2, a4, n] + S2[a1, a5, SP[a3, a6], a4, a2, n] + 
    S2[a1, a5, SP[a4, a6], a2, a3, n] + S2[a1, a5, SP[a4, a6], a3, a2, n] + 
    S2[a4, n]*S2[a1, a6, a2, a3, a5, n] + 
    S2[a4, n]*S2[a1, a6, a2, a5, a3, n] + 
    2*S2[a1, a6, a2, a5, SP[a3, a4], n] + 
    2*S2[a1, a6, a2, SP[a3, a4], a5, n] + 
    S2[a4, n]*S2[a1, a6, a3, a2, a5, n] - 
    S2[a2, n]*S2[a1, a6, a3, a4, a5, n] - S2[a1, a6, a3, a4, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a6, a3, a5, a4, n] - S2[a1, a6, a3, a5, SP[a2, a4], n] - 
    S2[a1, a6, a3, SP[a2, a4], a5, n] - S2[a1, a6, a3, SP[a2, a5], a4, n] - 
    S2[a1, a6, a4, a2, SP[a3, a5], n] - S2[a2, n]*S2[a1, a6, a4, a3, a5, n] - 
    S2[a1, a6, a4, a3, SP[a2, a5], n] - S2[a2, n]*S2[a1, a6, a4, a5, a3, n] - 
    S2[a1, a6, a4, a5, SP[a2, a3], n] - 2*S2[a1, a6, a4, SP[a2, a3], a5, n] - 
    S2[a1, a6, a4, SP[a2, a5], a3, n] - S2[a2, n]*S2[a1, a6, a5, a3, a4, n] - 
    S2[a1, a6, a5, a3, SP[a2, a4], n] - S2[a2, n]*S2[a1, a6, a5, a4, a3, n] - 
    S2[a1, a6, a5, a4, SP[a2, a3], n] - S2[a1, a6, a5, SP[a2, a3], a4, n] - 
    S2[a1, a6, a5, SP[a2, a4], a3, n] - S2[a1, a6, SP[a2, a3], a4, a5, n] - 
    S2[a1, a6, SP[a2, a3], a5, a4, n] - S2[a1, a6, SP[a2, a4], a3, a5, n] - 
    S2[a1, a6, SP[a2, a4], a5, a3, n] - S2[a1, a6, SP[a2, a5], a3, a4, n] - 
    S2[a1, a6, SP[a2, a5], a4, a3, n] + S2[a1, a6, SP[a3, a4], a2, a5, n] - 
    S2[a1, SP[a2, a4], a3, a5, a6, n] - S2[a1, SP[a2, a4], a3, a6, a5, n] - 
    S2[a1, SP[a2, a4], a5, a3, a6, n] - S2[a1, SP[a2, a4], a5, a6, a3, n] - 
    S2[a1, SP[a2, a4], a6, a3, a5, n] - S2[a1, SP[a2, a4], a6, a5, a3, n] - 
    S2[a1, SP[a2, a5], a3, a4, a6, n] - S2[a1, SP[a2, a5], a3, a6, a4, n] - 
    S2[a1, SP[a2, a5], a4, a3, a6, n] - S2[a1, SP[a2, a5], a4, a6, a3, n] - 
    S2[a1, SP[a2, a5], a6, a3, a4, n] - S2[a1, SP[a2, a5], a6, a4, a3, n] - 
    S2[a1, SP[a2, a6], a3, a4, a5, n] - S2[a1, SP[a2, a6], a3, a5, a4, n] - 
    S2[a1, SP[a2, a6], a4, a3, a5, n] - S2[a1, SP[a2, a6], a4, a5, a3, n] - 
    S2[a1, SP[a2, a6], a5, a3, a4, n] - S2[a1, SP[a2, a6], a5, a4, a3, n] + 
    S2[a1, SP[a3, a6], a4, a2, a5, n] + S2[a1, SP[a3, a6], a4, a5, a2, n] + 
    S2[a1, SP[a3, a6], a5, a2, a4, n] + S2[a1, SP[a3, a6], a5, a4, a2, n] + 
    2*S2[a1, SP[a4, a6], a2, a3, a5, n] + 
    2*S2[a1, SP[a4, a6], a2, a5, a3, n] + 
    2*S2[a1, SP[a4, a6], a3, a2, a5, n] + S2[a1, SP[a4, a6], a3, a5, a2, n] + 
    S2[a1, SP[a4, a6], a5, a2, a3, n] + S2[a1, SP[a4, a6], a5, a3, a2, n] + 
    S2[a1, SP[a5, a6], a2, a3, a4, n] + S2[a1, SP[a5, a6], a2, a4, a3, n] + 
    S2[a1, SP[a5, a6], a3, a2, a4, n] + S2[a1, SP[a5, a6], a3, a4, a2, n] + 
    S2[a1, SP[a5, a6], a4, a2, a3, n] + S2[a1, SP[a5, a6], a4, a3, a2, n] + 
    S2[a2, a1, a3, a4, SP[a5, a6], n] + S2[a2, a1, a3, a5, SP[a4, a6], n] - 
    S2[a2, a1, a3, a6, SP[a4, a5], n] + S2[a2, a1, a3, SP[a4, a6], a5, n] + 
    S2[a2, a1, a4, a3, SP[a5, a6], n] + S2[a2, a1, a4, a6, SP[a3, a5], n] + 
    S2[a2, a1, a4, SP[a3, a5], a6, n] + S2[a2, a1, a4, SP[a5, a6], a3, n] + 
    S2[a2, a1, a5, a3, SP[a4, a6], n] + 2*S2[a2, a1, a5, a6, SP[a3, a4], n] + 
    S2[a2, a1, a5, SP[a3, a4], a6, n] + S2[a2, a1, a5, SP[a3, a6], a4, n] + 
    S2[a2, a1, a5, SP[a4, a6], a3, n] - S2[a2, a1, a6, a3, SP[a4, a5], n] + 
    S2[a2, a1, a6, a4, SP[a3, a5], n] + 2*S2[a2, a1, a6, a5, SP[a3, a4], n] + 
    2*S2[a2, a1, a6, SP[a3, a4], a5, n] + S2[a2, a1, a6, SP[a3, a5], a4, n] - 
    S2[a2, a1, a6, SP[a4, a5], a3, n] + S2[a2, a1, SP[a3, a4], a5, a6, n] + 
    S2[a2, a1, SP[a3, a4], a6, a5, n] + S2[a2, a1, SP[a3, a5], a4, a6, n] + 
    S2[a2, a1, SP[a3, a5], a6, a4, n] + S2[a2, a1, SP[a3, a6], a4, a5, n] + 
    S2[a2, a1, SP[a3, a6], a5, a4, n] + S2[a2, a1, SP[a4, a6], a3, a5, n] + 
    S2[a2, a1, SP[a4, a6], a5, a3, n] - S2[a6, n]*S2[a2, a4, a1, a3, a5, n] - 
    S2[a6, n]*S2[a2, a4, a1, a5, a3, n] - S2[a2, a4, a1, a5, SP[a3, a6], n] + 
    S2[a2, a4, a1, a6, SP[a3, a5], n] + S2[a2, a4, a1, SP[a3, a5], a6, n] - 
    S2[a2, a4, a1, SP[a3, a6], a5, n] - S2[a6, n]*S2[a2, a4, a5, a1, a3, n] - 
    S2[a2, a4, a5, a1, SP[a3, a6], n] - S2[a2, a4, a5, SP[a1, a6], a3, n] + 
    S2[a5, n]*S2[a2, a4, a6, a1, a3, n] + S2[a2, a4, a6, a1, SP[a3, a5], n] + 
    S2[a2, a4, a6, SP[a1, a5], a3, n] + S2[a2, a4, SP[a1, a5], a3, a6, n] + 
    S2[a2, a4, SP[a1, a5], a6, a3, n] - S2[a2, a4, SP[a1, a6], a3, a5, n] - 
    S2[a2, a4, SP[a1, a6], a5, a3, n] - S2[a6, n]*S2[a2, a5, a1, a3, a4, n] - 
    S2[a6, n]*S2[a2, a5, a1, a4, a3, n] - S2[a2, a5, a1, a4, SP[a3, a6], n] + 
    2*S2[a2, a5, a1, a6, SP[a3, a4], n] + S2[a2, a5, a1, SP[a3, a4], a6, n] - 
    S2[a6, n]*S2[a2, a5, a4, a1, a3, n] - S2[a2, a5, a4, a1, SP[a3, a6], n] - 
    S2[a2, a5, a4, SP[a1, a6], a3, n] + S2[a2, a5, a6, a1, SP[a3, a4], n] + 
    S2[a2, a5, a6, SP[a1, a4], a3, n] + S2[a2, a5, SP[a1, a4], a3, a6, n] + 
    S2[a2, a5, SP[a1, a4], a6, a3, n] - S2[a2, a5, SP[a4, a6], a1, a3, n] - 
    S2[a4, n]*S2[a2, a6, a1, a3, a5, n] - S2[a2, a6, a1, a3, SP[a4, a5], n] + 
    S2[a2, a6, a1, a4, SP[a3, a5], n] - S2[a4, n]*S2[a2, a6, a1, a5, a3, n] + 
    S2[a2, a6, a1, SP[a3, a5], a4, n] - S2[a2, a6, a1, SP[a4, a5], a3, n] + 
    S2[a2, a6, a4, a1, SP[a3, a5], n] + S2[a2, a6, a4, SP[a1, a5], a3, n] + 
    S2[a2, a6, a5, a1, SP[a3, a4], n] + S2[a2, a6, a5, SP[a1, a4], a3, n] + 
    S2[a2, a6, SP[a1, a5], a3, a4, n] + S2[a2, a6, SP[a1, a5], a4, a3, n] + 
    S2[a2, SP[a1, a4], a3, a5, a6, n] + S2[a2, SP[a1, a4], a3, a6, a5, n] + 
    S2[a2, SP[a1, a4], a5, a3, a6, n] + S2[a2, SP[a1, a4], a5, a6, a3, n] + 
    S2[a2, SP[a1, a4], a6, a3, a5, n] + S2[a2, SP[a1, a4], a6, a5, a3, n] + 
    S2[a2, SP[a1, a5], a3, a4, a6, n] + S2[a2, SP[a1, a5], a3, a6, a4, n] + 
    S2[a2, SP[a1, a5], a4, a3, a6, n] + S2[a2, SP[a1, a5], a4, a6, a3, n] + 
    S2[a2, SP[a1, a5], a6, a3, a4, n] + S2[a2, SP[a1, a5], a6, a4, a3, n] + 
    S2[a2, SP[a1, a6], a3, a4, a5, n] + S2[a2, SP[a1, a6], a3, a5, a4, n] + 
    S2[a2, SP[a1, a6], a4, a3, a5, n] + S2[a2, SP[a1, a6], a4, a5, a3, n] + 
    S2[a2, SP[a1, a6], a5, a3, a4, n] + S2[a2, SP[a1, a6], a5, a4, a3, n] + 
    S2[a2, SP[a4, a5], a6, a1, a3, n] - 2*S2[a2, SP[a4, a6], a1, a3, a5, n] - 
    2*S2[a2, SP[a4, a6], a1, a5, a3, n] - S2[a2, SP[a4, a6], a5, a1, a3, n] - 
    S2[a2, SP[a5, a6], a1, a3, a4, n] - S2[a2, SP[a5, a6], a1, a4, a3, n] - 
    S2[a2, SP[a5, a6], a4, a1, a3, n] - S2[a4, a1, a6, a2, SP[a3, a5], n] - 
    S2[a4, a1, a6, SP[a2, a3], a5, n] - S2[a4, a1, SP[a3, a6], a2, a5, n] - 
    S2[a4, a6, a1, a2, SP[a3, a5], n] + S2[a2, n]*S2[a4, a6, a1, a3, a5, n] + 
    S2[a4, a6, a1, a3, SP[a2, a5], n] + S2[a2, n]*S2[a4, a6, a1, a5, a3, n] + 
    S2[a4, a6, a1, a5, SP[a2, a3], n] + S2[a4, a6, a1, SP[a2, a5], a3, n] - 
    S2[a4, a6, a2, a1, SP[a3, a5], n] - S2[a4, a6, a2, SP[a1, a5], a3, n] - 
    S2[a4, SP[a1, a6], a2, a3, a5, n] - S2[a4, SP[a1, a6], a2, a5, a3, n] - 
    S2[a4, SP[a1, a6], a3, a2, a5, n] + S2[a4, SP[a2, a6], a1, a3, a5, n] + 
    S2[a4, SP[a2, a6], a1, a5, a3, n] - S2[a4, n]*S2[a6, a1, a3, a5, a2, n] - 
    S2[a6, a1, a3, a5, SP[a2, a4], n] - S2[a6, a1, a3, SP[a4, a5], a2, n] - 
    S2[a4, n]*S2[a6, a1, a5, a2, a3, n] - S2[a6, a1, a5, a2, SP[a3, a4], n] - 
    S2[a4, n]*S2[a6, a1, a5, a3, a2, n] - S2[a6, a1, a5, a3, SP[a2, a4], n] - 
    S2[a6, a1, a5, SP[a2, a4], a3, n] - S2[a6, a1, a5, SP[a3, a4], a2, n] - 
    S2[a6, a1, SP[a3, a4], a5, a2, n] - S2[a6, a1, SP[a4, a5], a2, a3, n] - 
    S2[a6, a1, SP[a4, a5], a3, a2, n] + S2[a4, n]*S2[a6, a2, a5, a1, a3, n] + 
    S2[a6, a2, a5, a1, SP[a3, a4], n] + S2[a6, a2, a5, SP[a1, a4], a3, n] + 
    S2[a6, a2, SP[a4, a5], a1, a3, n] + S2[a2, n]*S2[a6, a4, a1, a3, a5, n] + 
    S2[a6, a4, a1, a3, SP[a2, a5], n] + S2[a2, n]*S2[a6, a4, a1, a5, a3, n] + 
    S2[a6, a4, a1, a5, SP[a2, a3], n] + S2[a6, a4, a1, SP[a2, a3], a5, n] + 
    S2[a6, a4, a1, SP[a2, a5], a3, n] + S2[a6, a4, SP[a1, a2], a3, a5, n] + 
    S2[a6, a4, SP[a1, a2], a5, a3, n] - S2[a6, SP[a1, a4], a3, a5, a2, n] - 
    S2[a6, SP[a1, a4], a5, a2, a3, n] - S2[a6, SP[a1, a4], a5, a3, a2, n] + 
    S2[a6, SP[a2, a4], a1, a3, a5, n] + S2[a6, SP[a2, a4], a1, a5, a3, n] + 
    S2[a6, SP[a2, a4], a5, a1, a3, n] + S2[SP[a1, a6], a3, a4, a2, a5, n] + 
    S2[SP[a1, a6], a3, a4, a5, a2, n] + S2[SP[a1, a6], a3, a5, a2, a4, n] + 
    S2[SP[a1, a6], a3, a5, a4, a2, n] + S2[SP[a1, a6], a4, a2, a3, a5, n] + 
    S2[SP[a1, a6], a4, a2, a5, a3, n] + S2[SP[a1, a6], a4, a3, a2, a5, n] + 
    S2[SP[a1, a6], a4, a3, a5, a2, n] + S2[SP[a1, a6], a4, a5, a2, a3, n] + 
    S2[SP[a1, a6], a4, a5, a3, a2, n] + S2[SP[a1, a6], a5, a2, a3, a4, n] + 
    S2[SP[a1, a6], a5, a2, a4, a3, n] + S2[SP[a1, a6], a5, a3, a2, a4, n] + 
    S2[SP[a1, a6], a5, a3, a4, a2, n] + S2[SP[a1, a6], a5, a4, a2, a3, n] + 
    S2[SP[a1, a6], a5, a4, a3, a2, n] + S2[SP[a2, a5], a4, a6, a1, a3, n] - 
    S2[SP[a2, a6], a4, a5, a1, a3, n] - S2[SP[a2, a6], a5, a1, a3, a4, n] - 
    S2[SP[a2, a6], a5, a1, a4, a3, n] - S2[SP[a2, a6], a5, a4, a1, a3, n] - 
    S2[SP[a4, a6], a1, a3, a5, a2, n] - S2[SP[a4, a6], a1, a5, a2, a3, n] - 
    S2[SP[a4, a6], a1, a5, a3, a2, n] + S2[SP[a4, a6], a2, a5, a1, a3, n] - 
    S2[a6, a1, a3, a4, a2, a5, n] - S2[a6, a1, a4, a2, a3, a5, n] - 
    S2[a6, a1, a4, a2, a5, a3, n] - S2[a6, a1, a4, a3, a2, a5, n] - 
    S2[a6, a4, a1, a2, a3, a5, n] - S2[a6, a4, a1, a2, a5, a3, n] - 
    S2[a6, a4, a1, a3, a2, a5, n] - S2[a6, a4, a2, a1, a3, a5, n] - 
    S2[a6, a4, a2, a1, a5, a3, n] - S2[a6, a4, a2, a5, a1, a3, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a5_, a2_, a4_, a6_, a3_, a1_, n_] :> 
  -(S2[a1, a3, a6, n]*S2[a2, a4, a5, n]) - S2[a1, a3, a6, n]*
     S2[a2, a5, a4, n] - S2[SP[a1, a2], SP[a3, a4], SP[a5, a6], n] - 
    S2[SP[a1, a2], SP[a3, a5], SP[a4, a6], n] + S2[a1, a2, SP[a3, a4], 
     SP[a5, a6], n] + S2[a1, a2, SP[a3, a5], SP[a4, a6], n] + 
    S2[a2, a5, n]*S2[a1, a3, a6, a4, n] - S2[a1, a3, SP[a2, a6], SP[a4, a5], 
     n] + S2[a1, SP[a2, a3], a4, SP[a5, a6], n] + S2[a1, SP[a2, a3], a5, 
     SP[a4, a6], n] - S2[a1, SP[a2, a3], a6, SP[a4, a5], n] + 
    S2[a1, SP[a2, a3], SP[a4, a6], a5, n] + S2[a2, a1, SP[a3, a4], 
     SP[a5, a6], n] + S2[a2, a1, SP[a3, a5], SP[a4, a6], n] - 
    S2[a1, a3, n]*S2[a2, a5, a6, a4, n] + S2[a2, a5, SP[a1, a6], SP[a3, a4], 
     n] - S2[a1, a3, n]*S2[a2, a6, a4, a5, n] - 
    S2[a1, a3, n]*S2[a2, a6, a5, a4, n] + S2[a2, a6, SP[a1, a4], SP[a3, a5], 
     n] + S2[a2, a6, SP[a1, a5], SP[a3, a4], n] + S2[a2, SP[a1, a4], a3, 
     SP[a5, a6], n] + S2[a2, SP[a1, a4], SP[a3, a5], a6, n] + 
    S2[a2, SP[a1, a5], a3, SP[a4, a6], n] + S2[a2, SP[a1, a5], a6, 
     SP[a3, a4], n] + S2[a2, SP[a1, a5], SP[a3, a4], a6, n] + 
    S2[a2, SP[a1, a5], SP[a3, a6], a4, n] + S2[a2, SP[a1, a6], a4, 
     SP[a3, a5], n] + S2[a2, SP[a1, a6], a5, SP[a3, a4], n] + 
    S2[a2, SP[a1, a6], SP[a3, a4], a5, n] + S2[a2, SP[a1, a6], SP[a3, a5], 
     a4, n] + S2[a1, a3, n]*S2[a4, a6, a2, a5, n] - 
    S2[a4, a6, SP[a1, a2], SP[a3, a5], n] - S2[a4, SP[a1, a6], a2, 
     SP[a3, a5], n] - S2[a4, SP[a1, a6], SP[a2, a3], a5, n] + 
    S2[SP[a1, a2], a3, a4, SP[a5, a6], n] + S2[SP[a1, a2], a3, a5, 
     SP[a4, a6], n] - S2[SP[a1, a2], a3, a6, SP[a4, a5], n] + 
    S2[SP[a1, a2], a3, SP[a4, a6], a5, n] + S2[SP[a1, a2], a4, a3, 
     SP[a5, a6], n] + S2[SP[a1, a2], a4, SP[a3, a5], a6, n] + 
    S2[SP[a1, a2], a5, a3, SP[a4, a6], n] + S2[SP[a1, a2], a5, a6, 
     SP[a3, a4], n] + S2[SP[a1, a2], a5, SP[a3, a4], a6, n] + 
    S2[SP[a1, a2], a5, SP[a3, a6], a4, n] + S2[SP[a1, a2], a6, a4, 
     SP[a3, a5], n] + S2[SP[a1, a2], a6, a5, SP[a3, a4], n] + 
    S2[SP[a1, a2], a6, SP[a3, a4], a5, n] + S2[SP[a1, a2], a6, SP[a3, a5], 
     a4, n] + S2[SP[a1, a2], SP[a3, a4], a5, a6, n] + 
    S2[SP[a1, a2], SP[a3, a4], a6, a5, n] + S2[SP[a1, a2], SP[a3, a5], a4, 
     a6, n] + S2[SP[a1, a2], SP[a3, a5], a6, a4, n] + 
    S2[SP[a1, a2], SP[a3, a6], a4, a5, n] + S2[SP[a1, a2], SP[a3, a6], a5, 
     a4, n] - S2[SP[a1, a4], a6, a2, SP[a3, a5], n] - 
    S2[SP[a1, a4], a6, SP[a2, a3], a5, n] - S2[SP[a1, a4], SP[a3, a6], a2, 
     a5, n] - S2[a1, a2, a3, a4, SP[a5, a6], n] - 
    S2[a1, a2, a3, a5, SP[a4, a6], n] + S2[a1, a2, a3, a6, SP[a4, a5], n] - 
    S2[a1, a2, a3, SP[a4, a6], a5, n] - S2[a1, a2, a4, a3, SP[a5, a6], n] - 
    S2[a1, a2, a4, SP[a3, a5], a6, n] - S2[a1, a2, a5, a3, SP[a4, a6], n] - 
    S2[a1, a2, a5, a6, SP[a3, a4], n] - S2[a1, a2, a5, SP[a3, a4], a6, n] - 
    S2[a1, a2, a5, SP[a3, a6], a4, n] - S2[a1, a2, a6, a4, SP[a3, a5], n] - 
    S2[a1, a2, a6, a5, SP[a3, a4], n] - S2[a1, a2, a6, SP[a3, a4], a5, n] - 
    S2[a1, a2, a6, SP[a3, a5], a4, n] - S2[a1, a2, SP[a3, a4], a5, a6, n] - 
    S2[a1, a2, SP[a3, a4], a6, a5, n] - S2[a1, a2, SP[a3, a5], a4, a6, n] - 
    S2[a1, a2, SP[a3, a5], a6, a4, n] - S2[a1, a2, SP[a3, a6], a4, a5, n] - 
    S2[a1, a2, SP[a3, a6], a5, a4, n] - S2[a1, a3, a2, a4, SP[a5, a6], n] - 
    S2[a1, a3, a2, a5, SP[a4, a6], n] + S2[a1, a3, a2, a6, SP[a4, a5], n] - 
    S2[a1, a3, a2, SP[a4, a6], a5, n] - S2[a6, n]*S2[a1, a3, a4, a2, a5, n] - 
    S2[a1, a3, a4, a2, SP[a5, a6], n] - S2[a6, n]*S2[a1, a3, a4, a5, a2, n] + 
    S2[a2, n]*S2[a1, a3, a4, a5, a6, n] + 
    S2[a2, n]*S2[a1, a3, a4, a6, a5, n] + S2[a1, a3, a4, a6, SP[a2, a5], n] + 
    S2[a1, a3, a4, SP[a2, a5], a6, n] - S2[a1, a3, a4, SP[a5, a6], a2, n] - 
    S2[a6, n]*S2[a1, a3, a5, a2, a4, n] - S2[a1, a3, a5, a2, SP[a4, a6], n] - 
    S2[a6, n]*S2[a1, a3, a5, a4, a2, n] + 
    S2[a2, n]*S2[a1, a3, a5, a4, a6, n] + 
    S2[a2, n]*S2[a1, a3, a5, a6, a4, n] + S2[a1, a3, a5, a6, SP[a2, a4], n] + 
    S2[a1, a3, a5, SP[a2, a4], a6, n] - S2[a1, a3, a5, SP[a4, a6], a2, n] - 
    S2[a4, n]*S2[a1, a3, a6, a2, a5, n] + 
    S2[a2, n]*S2[a1, a3, a6, a4, a5, n] + S2[a1, a3, a6, a4, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a3, a6, a5, a4, n] + S2[a1, a3, a6, a5, SP[a2, a4], n] + 
    S2[a1, a3, a6, SP[a2, a4], a5, n] + S2[a1, a3, a6, SP[a2, a5], a4, n] + 
    S2[a1, a3, SP[a2, a4], a5, a6, n] + S2[a1, a3, SP[a2, a4], a6, a5, n] + 
    S2[a1, a3, SP[a2, a5], a4, a6, n] + S2[a1, a3, SP[a2, a5], a6, a4, n] + 
    S2[a1, a3, SP[a2, a6], a4, a5, n] + S2[a1, a3, SP[a2, a6], a5, a4, n] - 
    2*S2[a1, a3, SP[a4, a6], a2, a5, n] - S2[a1, a3, SP[a4, a6], a5, a2, n] - 
    S2[a1, a3, SP[a5, a6], a2, a4, n] - S2[a1, a3, SP[a5, a6], a4, a2, n] - 
    S2[a6, n]*S2[a1, a4, a2, a3, a5, n] - S2[a1, a4, a2, a3, SP[a5, a6], n] - 
    S2[a6, n]*S2[a1, a4, a2, a5, a3, n] - S2[a1, a4, a2, a5, SP[a3, a6], n] + 
    S2[a5, n]*S2[a1, a4, a2, a6, a3, n] + S2[a1, a4, a2, a6, SP[a3, a5], n] - 
    S2[a1, a4, a2, SP[a3, a6], a5, n] - S2[a6, n]*S2[a1, a4, a3, a2, a5, n] - 
    S2[a1, a4, a3, a2, SP[a5, a6], n] - S2[a6, n]*S2[a1, a4, a3, a5, a2, n] + 
    S2[a2, n]*S2[a1, a4, a3, a5, a6, n] + 
    S2[a2, n]*S2[a1, a4, a3, a6, a5, n] + S2[a1, a4, a3, a6, SP[a2, a5], n] + 
    S2[a1, a4, a3, SP[a2, a5], a6, n] - S2[a1, a4, a3, SP[a5, a6], a2, n] - 
    S2[a6, n]*S2[a1, a4, a5, a2, a3, n] - S2[a1, a4, a5, a2, SP[a3, a6], n] - 
    S2[a6, n]*S2[a1, a4, a5, a3, a2, n] + 
    S2[a2, n]*S2[a1, a4, a5, a3, a6, n] + S2[a1, a4, a5, SP[a2, a3], a6, n] - 
    S2[a1, a4, a5, SP[a2, a6], a3, n] - S2[a1, a4, a5, SP[a3, a6], a2, n] + 
    S2[a5, n]*S2[a1, a4, a6, a2, a3, n] + 
    2*S2[a1, a4, a6, a2, SP[a3, a5], n] + 
    S2[a5, n]*S2[a1, a4, a6, a3, a2, n] + S2[a1, a4, a6, a3, SP[a2, a5], n] + 
    S2[a1, a4, a6, SP[a2, a3], a5, n] + S2[a1, a4, a6, SP[a2, a5], a3, n] + 
    S2[a1, a4, a6, SP[a3, a5], a2, n] + S2[a1, a4, SP[a2, a3], a5, a6, n] + 
    S2[a1, a4, SP[a2, a3], a6, a5, n] + S2[a1, a4, SP[a2, a5], a3, a6, n] + 
    S2[a1, a4, SP[a2, a5], a6, a3, n] - S2[a1, a4, SP[a2, a6], a3, a5, n] - 
    S2[a1, a4, SP[a2, a6], a5, a3, n] - S2[a1, a4, SP[a3, a6], a5, a2, n] - 
    S2[a6, n]*S2[a1, a5, a2, a3, a4, n] - S2[a1, a5, a2, a3, SP[a4, a6], n] - 
    S2[a6, n]*S2[a1, a5, a2, a4, a3, n] - S2[a1, a5, a2, a4, SP[a3, a6], n] - 
    S2[a1, a5, a2, SP[a3, a6], a4, n] - S2[a1, a5, a2, SP[a4, a6], a3, n] - 
    S2[a6, n]*S2[a1, a5, a3, a2, a4, n] - S2[a1, a5, a3, a2, SP[a4, a6], n] - 
    S2[a6, n]*S2[a1, a5, a3, a4, a2, n] + 
    S2[a2, n]*S2[a1, a5, a3, a4, a6, n] + 
    S2[a2, n]*S2[a1, a5, a3, a6, a4, n] + S2[a1, a5, a3, a6, SP[a2, a4], n] + 
    S2[a1, a5, a3, SP[a2, a4], a6, n] - S2[a1, a5, a3, SP[a4, a6], a2, n] - 
    S2[a6, n]*S2[a1, a5, a4, a2, a3, n] - S2[a1, a5, a4, a2, SP[a3, a6], n] - 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] + 
    S2[a2, n]*S2[a1, a5, a4, a3, a6, n] + S2[a1, a5, a4, SP[a2, a3], a6, n] - 
    S2[a1, a5, a4, SP[a2, a6], a3, n] - S2[a1, a5, a4, SP[a3, a6], a2, n] + 
    S2[a2, n]*S2[a1, a5, a6, a3, a4, n] + S2[a1, a5, a6, a3, SP[a2, a4], n] + 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] + S2[a1, a5, a6, a4, SP[a2, a3], n] + 
    S2[a1, a5, a6, SP[a2, a3], a4, n] + S2[a1, a5, a6, SP[a2, a4], a3, n] + 
    S2[a1, a5, SP[a2, a3], a4, a6, n] + S2[a1, a5, SP[a2, a3], a6, a4, n] + 
    S2[a1, a5, SP[a2, a4], a3, a6, n] - S2[a1, a5, SP[a3, a6], a2, a4, n] - 
    S2[a1, a5, SP[a3, a6], a4, a2, n] - S2[a1, a5, SP[a4, a6], a2, a3, n] - 
    S2[a1, a5, SP[a4, a6], a3, a2, n] - S2[a4, n]*S2[a1, a6, a2, a3, a5, n] - 
    S2[a1, a6, a2, a3, SP[a4, a5], n] - S2[a4, n]*S2[a1, a6, a2, a5, a3, n] - 
    S2[a1, a6, a2, a5, SP[a3, a4], n] - S2[a1, a6, a2, SP[a3, a4], a5, n] - 
    S2[a1, a6, a2, SP[a4, a5], a3, n] - S2[a4, n]*S2[a1, a6, a3, a2, a5, n] - 
    S2[a1, a6, a3, a2, SP[a4, a5], n] + S2[a2, n]*S2[a1, a6, a3, a4, a5, n] + 
    S2[a1, a6, a3, a4, SP[a2, a5], n] + S2[a2, n]*S2[a1, a6, a3, a5, a4, n] + 
    S2[a1, a6, a3, a5, SP[a2, a4], n] + S2[a1, a6, a3, SP[a2, a5], a4, n] + 
    S2[a2, n]*S2[a1, a6, a4, a3, a5, n] + S2[a1, a6, a4, a3, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a6, a4, a5, a3, n] + S2[a1, a6, a4, a5, SP[a2, a3], n] + 
    S2[a1, a6, a4, SP[a2, a3], a5, n] + S2[a1, a6, a4, SP[a2, a5], a3, n] + 
    S2[a2, n]*S2[a1, a6, a5, a3, a4, n] + S2[a1, a6, a5, a3, SP[a2, a4], n] + 
    S2[a2, n]*S2[a1, a6, a5, a4, a3, n] + S2[a1, a6, a5, a4, SP[a2, a3], n] + 
    S2[a1, a6, a5, SP[a2, a3], a4, n] + S2[a1, a6, a5, SP[a2, a4], a3, n] + 
    S2[a1, a6, SP[a2, a3], a4, a5, n] + S2[a1, a6, SP[a2, a3], a5, a4, n] + 
    S2[a1, a6, SP[a2, a5], a3, a4, n] + S2[a1, a6, SP[a2, a5], a4, a3, n] - 
    S2[a1, a6, SP[a3, a4], a2, a5, n] + S2[a1, SP[a2, a4], a3, a5, a6, n] + 
    S2[a1, SP[a2, a4], a3, a6, a5, n] + S2[a1, SP[a2, a4], a5, a3, a6, n] + 
    S2[a1, SP[a2, a5], a3, a4, a6, n] + S2[a1, SP[a2, a5], a3, a6, a4, n] + 
    S2[a1, SP[a2, a5], a4, a3, a6, n] + S2[a1, SP[a2, a5], a6, a3, a4, n] + 
    S2[a1, SP[a2, a5], a6, a4, a3, n] + S2[a1, SP[a2, a6], a3, a4, a5, n] + 
    S2[a1, SP[a2, a6], a3, a5, a4, n] + S2[a1, SP[a2, a6], a4, a3, a5, n] + 
    S2[a1, SP[a2, a6], a4, a5, a3, n] + S2[a1, SP[a2, a6], a5, a3, a4, n] + 
    S2[a1, SP[a2, a6], a5, a4, a3, n] - S2[a1, SP[a3, a6], a4, a2, a5, n] - 
    S2[a1, SP[a3, a6], a4, a5, a2, n] - S2[a1, SP[a3, a6], a5, a2, a4, n] - 
    S2[a1, SP[a3, a6], a5, a4, a2, n] + S2[a1, SP[a4, a5], a2, a6, a3, n] + 
    S2[a1, SP[a4, a5], a6, a2, a3, n] + S2[a1, SP[a4, a5], a6, a3, a2, n] - 
    2*S2[a1, SP[a4, a6], a2, a3, a5, n] - 
    2*S2[a1, SP[a4, a6], a2, a5, a3, n] - 
    2*S2[a1, SP[a4, a6], a3, a2, a5, n] - S2[a1, SP[a4, a6], a3, a5, a2, n] - 
    S2[a1, SP[a4, a6], a5, a2, a3, n] - S2[a1, SP[a4, a6], a5, a3, a2, n] - 
    S2[a1, SP[a5, a6], a2, a3, a4, n] - S2[a1, SP[a5, a6], a2, a4, a3, n] - 
    S2[a1, SP[a5, a6], a3, a2, a4, n] - S2[a1, SP[a5, a6], a3, a4, a2, n] - 
    S2[a1, SP[a5, a6], a4, a2, a3, n] - S2[a1, SP[a5, a6], a4, a3, a2, n] - 
    S2[a2, a1, a3, a4, SP[a5, a6], n] - S2[a2, a1, a3, a5, SP[a4, a6], n] + 
    S2[a2, a1, a3, a6, SP[a4, a5], n] - S2[a2, a1, a3, SP[a4, a6], a5, n] - 
    S2[a2, a1, a4, a3, SP[a5, a6], n] - S2[a2, a1, a4, SP[a3, a5], a6, n] - 
    S2[a2, a1, a5, a3, SP[a4, a6], n] - S2[a2, a1, a5, a6, SP[a3, a4], n] - 
    S2[a2, a1, a5, SP[a3, a4], a6, n] - S2[a2, a1, a5, SP[a3, a6], a4, n] - 
    S2[a2, a1, a6, a4, SP[a3, a5], n] - S2[a2, a1, a6, a5, SP[a3, a4], n] - 
    S2[a2, a1, a6, SP[a3, a4], a5, n] - S2[a2, a1, a6, SP[a3, a5], a4, n] - 
    S2[a2, a1, SP[a3, a4], a5, a6, n] - S2[a2, a1, SP[a3, a4], a6, a5, n] - 
    S2[a2, a1, SP[a3, a5], a4, a6, n] - S2[a2, a1, SP[a3, a5], a6, a4, n] - 
    S2[a2, a1, SP[a3, a6], a4, a5, n] - S2[a2, a1, SP[a3, a6], a5, a4, n] + 
    S2[a6, n]*S2[a2, a4, a1, a3, a5, n] + 
    S2[a6, n]*S2[a2, a4, a1, a5, a3, n] + S2[a2, a4, a1, a5, SP[a3, a6], n] - 
    S2[a5, n]*S2[a2, a4, a1, a6, a3, n] - S2[a2, a4, a1, a6, SP[a3, a5], n] - 
    S2[a2, a4, a1, SP[a3, a5], a6, n] + S2[a2, a4, a1, SP[a3, a6], a5, n] + 
    S2[a6, n]*S2[a2, a4, a5, a1, a3, n] + S2[a2, a4, a5, a1, SP[a3, a6], n] + 
    S2[a2, a4, a5, SP[a1, a6], a3, n] - S2[a5, n]*S2[a2, a4, a6, a1, a3, n] - 
    S2[a2, a4, a6, a1, SP[a3, a5], n] - S2[a2, a4, a6, SP[a1, a5], a3, n] - 
    S2[a2, a4, SP[a1, a5], a3, a6, n] - S2[a2, a4, SP[a1, a5], a6, a3, n] + 
    S2[a2, a4, SP[a1, a6], a3, a5, n] + S2[a2, a4, SP[a1, a6], a5, a3, n] + 
    S2[a6, n]*S2[a2, a5, a1, a3, a4, n] + 
    S2[a6, n]*S2[a2, a5, a1, a4, a3, n] + S2[a2, a5, a1, a4, SP[a3, a6], n] - 
    S2[a2, a5, a1, a6, SP[a3, a4], n] - S2[a2, a5, a1, SP[a3, a4], a6, n] + 
    S2[a2, a5, a1, SP[a4, a6], a3, n] + S2[a6, n]*S2[a2, a5, a4, a1, a3, n] + 
    S2[a2, a5, a4, a1, SP[a3, a6], n] + S2[a2, a5, a4, SP[a1, a6], a3, n] - 
    S2[a2, a5, a6, a1, SP[a3, a4], n] - S2[a2, a5, a6, SP[a1, a4], a3, n] - 
    S2[a2, a5, SP[a1, a4], a3, a6, n] + S2[a2, a5, SP[a4, a6], a1, a3, n] + 
    S2[a4, n]*S2[a2, a6, a1, a3, a5, n] + S2[a2, a6, a1, a3, SP[a4, a5], n] - 
    S2[a2, a6, a1, a4, SP[a3, a5], n] + S2[a4, n]*S2[a2, a6, a1, a5, a3, n] - 
    S2[a2, a6, a1, SP[a3, a5], a4, n] + S2[a2, a6, a1, SP[a4, a5], a3, n] - 
    S2[a2, a6, a4, a1, SP[a3, a5], n] - S2[a2, a6, a4, SP[a1, a5], a3, n] - 
    S2[a2, a6, a5, a1, SP[a3, a4], n] - S2[a2, a6, a5, SP[a1, a4], a3, n] - 
    S2[a2, a6, SP[a1, a5], a3, a4, n] - S2[a2, a6, SP[a1, a5], a4, a3, n] - 
    S2[a2, SP[a1, a4], a3, a5, a6, n] - S2[a2, SP[a1, a4], a3, a6, a5, n] - 
    S2[a2, SP[a1, a4], a5, a3, a6, n] - S2[a2, SP[a1, a5], a3, a4, a6, n] - 
    S2[a2, SP[a1, a5], a3, a6, a4, n] - S2[a2, SP[a1, a5], a4, a3, a6, n] - 
    S2[a2, SP[a1, a5], a6, a3, a4, n] - S2[a2, SP[a1, a5], a6, a4, a3, n] - 
    S2[a2, SP[a1, a6], a3, a4, a5, n] - S2[a2, SP[a1, a6], a3, a5, a4, n] - 
    S2[a2, SP[a1, a6], a4, a3, a5, n] - S2[a2, SP[a1, a6], a4, a5, a3, n] - 
    S2[a2, SP[a1, a6], a5, a3, a4, n] - S2[a2, SP[a1, a6], a5, a4, a3, n] - 
    S2[a2, SP[a4, a5], a1, a6, a3, n] - S2[a2, SP[a4, a5], a6, a1, a3, n] + 
    2*S2[a2, SP[a4, a6], a1, a3, a5, n] + 
    2*S2[a2, SP[a4, a6], a1, a5, a3, n] + S2[a2, SP[a4, a6], a5, a1, a3, n] + 
    S2[a2, SP[a5, a6], a1, a3, a4, n] + S2[a2, SP[a5, a6], a1, a4, a3, n] + 
    S2[a2, SP[a5, a6], a4, a1, a3, n] + S2[a4, a1, a6, a2, SP[a3, a5], n] + 
    S2[a4, a1, a6, SP[a2, a3], a5, n] + S2[a4, a1, SP[a3, a6], a2, a5, n] + 
    S2[a4, a6, a1, a2, SP[a3, a5], n] - S2[a2, n]*S2[a4, a6, a1, a3, a5, n] - 
    S2[a4, a6, a1, a3, SP[a2, a5], n] - S2[a2, n]*S2[a4, a6, a1, a5, a3, n] - 
    S2[a4, a6, a1, a5, SP[a2, a3], n] - S2[a4, a6, a1, SP[a2, a5], a3, n] + 
    S2[a4, a6, a2, a1, SP[a3, a5], n] + S2[a4, a6, a2, SP[a1, a5], a3, n] + 
    S2[a4, SP[a1, a6], a2, a3, a5, n] + S2[a4, SP[a1, a6], a2, a5, a3, n] + 
    S2[a4, SP[a1, a6], a3, a2, a5, n] - S2[a4, SP[a2, a6], a1, a3, a5, n] - 
    S2[a4, SP[a2, a6], a1, a5, a3, n] - S2[a2, n]*S2[a5, a1, a4, a6, a3, n] - 
    S2[a5, a1, a4, a6, SP[a2, a3], n] - S2[a5, a1, a4, SP[a2, a6], a3, n] - 
    S2[a5, a1, SP[a2, a4], a6, a3, n] + S2[a1, n]*S2[a5, a2, a4, a6, a3, n] + 
    S2[a5, a2, a4, a6, SP[a1, a3], n] + S2[a5, a2, a4, SP[a1, a6], a3, n] + 
    S2[a5, a2, SP[a1, a4], a6, a3, n] + S2[a4, n]*S2[a6, a1, a3, a5, a2, n] + 
    S2[a6, a1, a3, a5, SP[a2, a4], n] + S2[a6, a1, a3, SP[a4, a5], a2, n] + 
    S2[a4, n]*S2[a6, a1, a5, a2, a3, n] + S2[a6, a1, a5, a2, SP[a3, a4], n] + 
    S2[a4, n]*S2[a6, a1, a5, a3, a2, n] + S2[a6, a1, a5, a3, SP[a2, a4], n] + 
    S2[a6, a1, a5, SP[a2, a4], a3, n] + S2[a6, a1, a5, SP[a3, a4], a2, n] + 
    S2[a6, a1, SP[a3, a4], a5, a2, n] + S2[a6, a1, SP[a4, a5], a2, a3, n] + 
    S2[a6, a1, SP[a4, a5], a3, a2, n] - S2[a4, n]*S2[a6, a2, a5, a1, a3, n] - 
    S2[a6, a2, a5, a1, SP[a3, a4], n] - S2[a6, a2, a5, SP[a1, a4], a3, n] - 
    S2[a6, a2, SP[a4, a5], a1, a3, n] + S2[a1, n]*S2[a6, a3, a4, a2, a5, n] + 
    S2[a6, a3, a4, a2, SP[a1, a5], n] + S2[a6, a3, a4, SP[a1, a2], a5, n] + 
    S2[a6, a3, SP[a1, a4], a2, a5, n] - S2[a2, n]*S2[a6, a4, a1, a3, a5, n] - 
    S2[a6, a4, a1, a3, SP[a2, a5], n] - S2[a2, n]*S2[a6, a4, a1, a5, a3, n] - 
    S2[a6, a4, a1, a5, SP[a2, a3], n] - S2[a6, a4, a1, SP[a2, a3], a5, n] - 
    S2[a6, a4, a1, SP[a2, a5], a3, n] + S2[a1, n]*S2[a6, a4, a2, a3, a5, n] + 
    S2[a6, a4, a2, a3, SP[a1, a5], n] + S2[a1, n]*S2[a6, a4, a2, a5, a3, n] + 
    S2[a6, a4, a2, a5, SP[a1, a3], n] + S2[a6, a4, a2, SP[a1, a3], a5, n] + 
    S2[a6, a4, a2, SP[a1, a5], a3, n] + S2[a1, n]*S2[a6, a4, a3, a2, a5, n] + 
    S2[a6, a4, a3, a2, SP[a1, a5], n] + S2[a6, a4, a3, SP[a1, a2], a5, n] + 
    S2[a6, a4, SP[a1, a3], a2, a5, n] + S2[a6, SP[a1, a3], a4, a2, a5, n] + 
    S2[a6, SP[a1, a4], a2, a3, a5, n] + S2[a6, SP[a1, a4], a2, a5, a3, n] + 
    S2[a6, SP[a1, a4], a3, a2, a5, n] + S2[a6, SP[a1, a4], a3, a5, a2, n] + 
    S2[a6, SP[a1, a4], a5, a2, a3, n] + S2[a6, SP[a1, a4], a5, a3, a2, n] - 
    S2[a6, SP[a2, a4], a1, a3, a5, n] - S2[a6, SP[a2, a4], a1, a5, a3, n] - 
    S2[a6, SP[a2, a4], a5, a1, a3, n] + S2[SP[a1, a5], a2, a4, a6, a3, n] + 
    S2[SP[a1, a5], a4, a2, a6, a3, n] + S2[SP[a1, a5], a4, a6, a2, a3, n] + 
    S2[SP[a1, a5], a4, a6, a3, a2, n] - S2[SP[a1, a6], a3, a4, a5, a2, n] - 
    S2[SP[a1, a6], a3, a5, a2, a4, n] - S2[SP[a1, a6], a3, a5, a4, a2, n] - 
    S2[SP[a1, a6], a4, a3, a5, a2, n] - S2[SP[a1, a6], a4, a5, a2, a3, n] - 
    S2[SP[a1, a6], a4, a5, a3, a2, n] - S2[SP[a1, a6], a5, a2, a3, a4, n] - 
    S2[SP[a1, a6], a5, a2, a4, a3, n] - S2[SP[a1, a6], a5, a3, a2, a4, n] - 
    S2[SP[a1, a6], a5, a3, a4, a2, n] - S2[SP[a1, a6], a5, a4, a2, a3, n] - 
    S2[SP[a1, a6], a5, a4, a3, a2, n] - S2[SP[a2, a5], a1, a4, a6, a3, n] - 
    S2[SP[a2, a5], a4, a1, a6, a3, n] - S2[SP[a2, a5], a4, a6, a1, a3, n] + 
    S2[SP[a2, a6], a4, a5, a1, a3, n] + S2[SP[a2, a6], a5, a1, a3, a4, n] + 
    S2[SP[a2, a6], a5, a1, a4, a3, n] + S2[SP[a2, a6], a5, a4, a1, a3, n] + 
    S2[SP[a4, a6], a1, a3, a5, a2, n] + S2[SP[a4, a6], a1, a5, a2, a3, n] + 
    S2[SP[a4, a6], a1, a5, a3, a2, n] - S2[SP[a4, a6], a2, a5, a1, a3, n] - 
    S2[a6, a3, a1, a4, a2, a5, n] - S2[a6, a3, a4, a1, a2, a5, n] - 
    S2[a6, a3, a4, a2, a1, a5, n] - S2[a6, a3, a4, a2, a5, a1, n] - 
    S2[a6, a4, a2, a3, a1, a5, n] - S2[a6, a4, a2, a3, a5, a1, n] - 
    S2[a6, a4, a2, a5, a3, a1, n] - S2[a6, a4, a3, a1, a2, a5, n] - 
    S2[a6, a4, a3, a2, a1, a5, n] - S2[a6, a4, a3, a2, a5, a1, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a5_, a2_, a6_, a1_, a3_, a4_, n_] :> 
  S2[a2, a5, n]*S2[a1, a3, a4, a6, n] + S2[a2, a5, n]*S2[a1, a3, a6, a4, n] - 
    S2[a1, a3, SP[a2, a4], SP[a5, a6], n] - S2[a1, a3, SP[a2, a6], 
     SP[a4, a5], n] + S2[a2, a5, n]*S2[a1, a6, a3, a4, n] - 
    S2[a1, a6, SP[a2, a3], SP[a4, a5], n] - S2[a1, SP[a2, a3], a4, 
     SP[a5, a6], n] - S2[a1, SP[a2, a3], a6, SP[a4, a5], n] - 
    S2[a1, SP[a2, a3], SP[a4, a5], a6, n] - S2[a1, SP[a2, a3], SP[a5, a6], 
     a4, n] - S2[a1, SP[a2, a6], a3, SP[a4, a5], n] - 
    S2[a1, SP[a2, a6], SP[a3, a5], a4, n] - S2[SP[a1, a2], a3, a4, 
     SP[a5, a6], n] - S2[SP[a1, a2], a3, a6, SP[a4, a5], n] - 
    S2[SP[a1, a2], a3, SP[a4, a5], a6, n] - S2[SP[a1, a2], a3, SP[a5, a6], 
     a4, n] - S2[SP[a1, a2], a6, a3, SP[a4, a5], n] - 
    S2[SP[a1, a2], a6, SP[a3, a5], a4, n] - S2[SP[a1, a2], SP[a3, a5], a4, 
     a6, n] - S2[SP[a1, a2], SP[a3, a5], a6, a4, n] - 
    S2[SP[a1, a2], SP[a5, a6], a3, a4, n] + S2[a1, a2, a3, a4, SP[a5, a6], 
     n] + S2[a1, a2, a3, a6, SP[a4, a5], n] + S2[a1, a2, a3, SP[a4, a5], a6, 
     n] + S2[a1, a2, a3, SP[a5, a6], a4, n] + S2[a1, a2, a6, a3, SP[a4, a5], 
     n] + S2[a1, a2, a6, SP[a3, a5], a4, n] + S2[a1, a2, SP[a3, a5], a4, a6, 
     n] + S2[a1, a2, SP[a3, a5], a6, a4, n] + S2[a1, a2, SP[a5, a6], a3, a4, 
     n] + S2[a1, a3, a2, a4, SP[a5, a6], n] + S2[a1, a3, a2, a6, SP[a4, a5], 
     n] + S2[a1, a3, a2, SP[a4, a5], a6, n] + S2[a1, a3, a2, SP[a5, a6], a4, 
     n] + S2[a1, a3, a4, a2, SP[a5, a6], n] + 
    S2[a6, n]*S2[a1, a3, a4, a5, a2, n] - 
    S2[a2, n]*S2[a1, a3, a4, a5, a6, n] - 
    S2[a2, n]*S2[a1, a3, a4, a6, a5, n] - S2[a1, a3, a4, a6, SP[a2, a5], n] - 
    S2[a1, a3, a4, SP[a2, a5], a6, n] + S2[a1, a3, a4, SP[a5, a6], a2, n] + 
    S2[a6, n]*S2[a1, a3, a5, a2, a4, n] + S2[a1, a3, a5, a2, SP[a4, a6], n] + 
    S2[a6, n]*S2[a1, a3, a5, a4, a2, n] - 
    S2[a2, n]*S2[a1, a3, a5, a4, a6, n] - 
    S2[a2, n]*S2[a1, a3, a5, a6, a4, n] - S2[a1, a3, a5, a6, SP[a2, a4], n] - 
    S2[a1, a3, a5, SP[a2, a4], a6, n] + S2[a1, a3, a5, SP[a4, a6], a2, n] + 
    S2[a1, a3, a6, a2, SP[a4, a5], n] - S2[a2, n]*S2[a1, a3, a6, a4, a5, n] - 
    S2[a1, a3, a6, a4, SP[a2, a5], n] - S2[a2, n]*S2[a1, a3, a6, a5, a4, n] - 
    S2[a1, a3, a6, a5, SP[a2, a4], n] - S2[a1, a3, a6, SP[a2, a5], a4, n] - 
    S2[a1, a3, SP[a2, a5], a4, a6, n] - S2[a1, a3, SP[a2, a5], a6, a4, n] + 
    S2[a1, a3, SP[a4, a6], a5, a2, n] + S2[a1, a3, SP[a5, a6], a2, a4, n] + 
    S2[a1, a3, SP[a5, a6], a4, a2, n] + S2[a6, n]*S2[a1, a5, a2, a3, a4, n] + 
    S2[a1, a5, a2, a3, SP[a4, a6], n] + S2[a1, a5, a2, SP[a3, a6], a4, n] + 
    S2[a6, n]*S2[a1, a5, a3, a2, a4, n] + S2[a1, a5, a3, a2, SP[a4, a6], n] + 
    S2[a6, n]*S2[a1, a5, a3, a4, a2, n] - 
    S2[a2, n]*S2[a1, a5, a3, a4, a6, n] - 
    S2[a2, n]*S2[a1, a5, a3, a6, a4, n] - S2[a1, a5, a3, a6, SP[a2, a4], n] - 
    S2[a1, a5, a3, SP[a2, a4], a6, n] + S2[a1, a5, a3, SP[a4, a6], a2, n] - 
    S2[a2, n]*S2[a1, a5, a6, a3, a4, n] - S2[a1, a5, a6, a3, SP[a2, a4], n] - 
    S2[a1, a5, a6, SP[a2, a3], a4, n] - S2[a1, a5, SP[a2, a3], a4, a6, n] - 
    S2[a1, a5, SP[a2, a3], a6, a4, n] + S2[a1, a5, SP[a3, a6], a2, a4, n] + 
    S2[a1, a5, SP[a3, a6], a4, a2, n] + S2[a1, a6, a2, a3, SP[a4, a5], n] + 
    S2[a1, a6, a2, SP[a3, a5], a4, n] + S2[a1, a6, a3, a2, SP[a4, a5], n] - 
    S2[a2, n]*S2[a1, a6, a3, a4, a5, n] - S2[a1, a6, a3, a4, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a6, a3, a5, a4, n] - S2[a1, a6, a3, a5, SP[a2, a4], n] - 
    S2[a1, a6, a3, SP[a2, a5], a4, n] - S2[a2, n]*S2[a1, a6, a5, a3, a4, n] - 
    S2[a1, a6, a5, a3, SP[a2, a4], n] - S2[a1, a6, a5, SP[a2, a3], a4, n] - 
    S2[a1, a6, SP[a2, a5], a3, a4, n] - S2[a1, SP[a2, a5], a3, a4, a6, n] - 
    S2[a1, SP[a2, a5], a3, a6, a4, n] - S2[a1, SP[a2, a5], a6, a3, a4, n] + 
    S2[a1, SP[a3, a6], a4, a5, a2, n] + S2[a1, SP[a3, a6], a5, a2, a4, n] + 
    S2[a1, SP[a3, a6], a5, a4, a2, n] + S2[a1, SP[a5, a6], a2, a3, a4, n] + 
    S2[a1, SP[a5, a6], a3, a2, a4, n] + S2[a1, SP[a5, a6], a3, a4, a2, n] + 
    S2[a2, a1, a3, a4, SP[a5, a6], n] + S2[a2, a1, a3, a6, SP[a4, a5], n] + 
    S2[a2, a1, a3, SP[a4, a5], a6, n] + S2[a2, a1, a3, SP[a5, a6], a4, n] + 
    S2[a2, a1, a6, a3, SP[a4, a5], n] + S2[a2, a1, a6, SP[a3, a5], a4, n] + 
    S2[a2, a1, SP[a3, a5], a4, a6, n] + S2[a2, a1, SP[a3, a5], a6, a4, n] + 
    S2[a2, a1, SP[a5, a6], a3, a4, n] - S2[a6, n]*S2[a2, a5, a1, a3, a4, n] - 
    S2[a2, a5, a1, a3, SP[a4, a6], n] - S2[a2, a5, a1, SP[a3, a6], a4, n] - 
    S2[a2, a5, SP[a1, a6], a3, a4, n] + S2[a5, n]*S2[a2, a6, a1, a3, a4, n] + 
    S2[a2, a6, a1, a3, SP[a4, a5], n] + S2[a2, a6, a1, SP[a3, a5], a4, n] + 
    S2[a2, a6, SP[a1, a5], a3, a4, n] + S2[a2, SP[a1, a5], a3, a4, a6, n] + 
    S2[a2, SP[a1, a5], a3, a6, a4, n] + S2[a2, SP[a1, a5], a6, a3, a4, n] - 
    S2[a2, n]*S2[a6, a1, a3, a4, a5, n] - S2[a6, a1, a3, a4, SP[a2, a5], n] - 
    S2[a2, n]*S2[a6, a1, a3, a5, a4, n] - S2[a6, a1, a3, a5, SP[a2, a4], n] - 
    S2[a6, a1, a3, SP[a2, a4], a5, n] - S2[a6, a1, a3, SP[a2, a5], a4, n] - 
    S2[a2, n]*S2[a6, a1, a5, a3, a4, n] - S2[a6, a1, a5, a3, SP[a2, a4], n] - 
    S2[a6, a1, a5, SP[a2, a3], a4, n] - S2[a6, a1, SP[a2, a3], a4, a5, n] - 
    S2[a6, a1, SP[a2, a3], a5, a4, n] - S2[a6, a1, SP[a2, a5], a3, a4, n] - 
    S2[a6, SP[a1, a2], a3, a4, a5, n] - S2[a6, SP[a1, a2], a3, a5, a4, n] - 
    S2[a6, SP[a1, a2], a5, a3, a4, n] + S2[SP[a1, a6], a3, a4, a5, a2, n] + 
    S2[SP[a1, a6], a3, a5, a2, a4, n] + S2[SP[a1, a6], a3, a5, a4, a2, n] + 
    S2[SP[a1, a6], a5, a2, a3, a4, n] + S2[SP[a1, a6], a5, a3, a2, a4, n] + 
    S2[SP[a1, a6], a5, a3, a4, a2, n] + S2[SP[a2, a5], a6, a1, a3, a4, n] - 
    S2[SP[a2, a6], a1, a3, a4, a5, n] - S2[SP[a2, a6], a1, a3, a5, a4, n] - 
    S2[SP[a2, a6], a1, a5, a3, a4, n] - S2[SP[a2, a6], a5, a1, a3, a4, n] + 
    S2[a6, a1, a2, a3, a4, a5, n] + S2[a6, a1, a2, a3, a5, a4, n] + 
    S2[a6, a1, a2, a5, a3, a4, n] + S2[a6, a1, a3, a2, a4, a5, n] + 
    S2[a6, a1, a3, a2, a5, a4, n] + S2[a6, a1, a3, a4, a2, a5, n] + 
    S2[a6, a2, a1, a3, a4, a5, n] + S2[a6, a2, a1, a3, a5, a4, n] + 
    S2[a6, a2, a1, a5, a3, a4, n] + S2[a6, a2, a5, a1, a3, a4, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a5_, a2_, a6_, a1_, a4_, a3_, n_] :> 
  S2[a2, a5, n]*S2[a1, a4, a3, a6, n] + S2[a2, a5, n]*S2[a1, a4, a6, a3, n] - 
    S2[a1, a4, SP[a2, a3], SP[a5, a6], n] - S2[a1, a4, SP[a2, a6], 
     SP[a3, a5], n] + S2[a2, a5, n]*S2[a1, a6, a4, a3, n] - 
    S2[a1, a6, SP[a2, a4], SP[a3, a5], n] - S2[a1, SP[a2, a4], a3, 
     SP[a5, a6], n] - S2[a1, SP[a2, a4], a6, SP[a3, a5], n] - 
    S2[a1, SP[a2, a4], SP[a3, a5], a6, n] - S2[a1, SP[a2, a4], SP[a5, a6], 
     a3, n] - S2[a1, SP[a2, a6], a4, SP[a3, a5], n] - 
    S2[a1, SP[a2, a6], SP[a4, a5], a3, n] - S2[SP[a1, a2], a4, a3, 
     SP[a5, a6], n] - S2[SP[a1, a2], a4, a6, SP[a3, a5], n] - 
    S2[SP[a1, a2], a4, SP[a3, a5], a6, n] - S2[SP[a1, a2], a4, SP[a5, a6], 
     a3, n] - S2[SP[a1, a2], a6, a4, SP[a3, a5], n] - 
    S2[SP[a1, a2], a6, SP[a4, a5], a3, n] - S2[SP[a1, a2], SP[a4, a5], a3, 
     a6, n] - S2[SP[a1, a2], SP[a4, a5], a6, a3, n] - 
    S2[SP[a1, a2], SP[a5, a6], a4, a3, n] + S2[a1, a2, a4, a3, SP[a5, a6], 
     n] + S2[a1, a2, a4, a6, SP[a3, a5], n] + S2[a1, a2, a4, SP[a3, a5], a6, 
     n] + S2[a1, a2, a4, SP[a5, a6], a3, n] + S2[a1, a2, a6, a4, SP[a3, a5], 
     n] + S2[a1, a2, a6, SP[a4, a5], a3, n] + S2[a1, a2, SP[a4, a5], a3, a6, 
     n] + S2[a1, a2, SP[a4, a5], a6, a3, n] + S2[a1, a2, SP[a5, a6], a4, a3, 
     n] + S2[a1, a4, a2, a3, SP[a5, a6], n] + S2[a1, a4, a2, a6, SP[a3, a5], 
     n] + S2[a1, a4, a2, SP[a3, a5], a6, n] + S2[a1, a4, a2, SP[a5, a6], a3, 
     n] + S2[a1, a4, a3, a2, SP[a5, a6], n] + 
    S2[a6, n]*S2[a1, a4, a3, a5, a2, n] - 
    S2[a2, n]*S2[a1, a4, a3, a5, a6, n] - 
    S2[a2, n]*S2[a1, a4, a3, a6, a5, n] - S2[a1, a4, a3, a6, SP[a2, a5], n] - 
    S2[a1, a4, a3, SP[a2, a5], a6, n] + S2[a1, a4, a3, SP[a5, a6], a2, n] + 
    S2[a6, n]*S2[a1, a4, a5, a2, a3, n] + S2[a1, a4, a5, a2, SP[a3, a6], n] + 
    S2[a6, n]*S2[a1, a4, a5, a3, a2, n] - 
    S2[a2, n]*S2[a1, a4, a5, a3, a6, n] - 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] - S2[a1, a4, a5, a6, SP[a2, a3], n] - 
    S2[a1, a4, a5, SP[a2, a3], a6, n] + S2[a1, a4, a5, SP[a3, a6], a2, n] + 
    S2[a1, a4, a6, a2, SP[a3, a5], n] - S2[a2, n]*S2[a1, a4, a6, a3, a5, n] - 
    S2[a1, a4, a6, a3, SP[a2, a5], n] - S2[a2, n]*S2[a1, a4, a6, a5, a3, n] - 
    S2[a1, a4, a6, a5, SP[a2, a3], n] - S2[a1, a4, a6, SP[a2, a5], a3, n] - 
    S2[a1, a4, SP[a2, a5], a3, a6, n] - S2[a1, a4, SP[a2, a5], a6, a3, n] + 
    S2[a1, a4, SP[a3, a6], a5, a2, n] + S2[a1, a4, SP[a5, a6], a2, a3, n] + 
    S2[a1, a4, SP[a5, a6], a3, a2, n] + S2[a6, n]*S2[a1, a5, a2, a4, a3, n] + 
    S2[a1, a5, a2, a4, SP[a3, a6], n] + S2[a1, a5, a2, SP[a4, a6], a3, n] + 
    S2[a6, n]*S2[a1, a5, a4, a2, a3, n] + S2[a1, a5, a4, a2, SP[a3, a6], n] + 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] - 
    S2[a2, n]*S2[a1, a5, a4, a3, a6, n] - 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] - S2[a1, a5, a4, a6, SP[a2, a3], n] - 
    S2[a1, a5, a4, SP[a2, a3], a6, n] + S2[a1, a5, a4, SP[a3, a6], a2, n] - 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] - S2[a1, a5, a6, a4, SP[a2, a3], n] - 
    S2[a1, a5, a6, SP[a2, a4], a3, n] - S2[a1, a5, SP[a2, a4], a3, a6, n] - 
    S2[a1, a5, SP[a2, a4], a6, a3, n] + S2[a1, a5, SP[a4, a6], a2, a3, n] + 
    S2[a1, a5, SP[a4, a6], a3, a2, n] + S2[a1, a6, a2, a4, SP[a3, a5], n] + 
    S2[a1, a6, a2, SP[a4, a5], a3, n] + S2[a1, a6, a4, a2, SP[a3, a5], n] - 
    S2[a2, n]*S2[a1, a6, a4, a3, a5, n] - S2[a1, a6, a4, a3, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a6, a4, a5, a3, n] - S2[a1, a6, a4, a5, SP[a2, a3], n] - 
    S2[a1, a6, a4, SP[a2, a5], a3, n] - S2[a2, n]*S2[a1, a6, a5, a4, a3, n] - 
    S2[a1, a6, a5, a4, SP[a2, a3], n] - S2[a1, a6, a5, SP[a2, a4], a3, n] - 
    S2[a1, a6, SP[a2, a5], a4, a3, n] - S2[a1, SP[a2, a5], a4, a3, a6, n] - 
    S2[a1, SP[a2, a5], a4, a6, a3, n] - S2[a1, SP[a2, a5], a6, a4, a3, n] + 
    S2[a1, SP[a4, a6], a3, a5, a2, n] + S2[a1, SP[a4, a6], a5, a2, a3, n] + 
    S2[a1, SP[a4, a6], a5, a3, a2, n] + S2[a1, SP[a5, a6], a2, a4, a3, n] + 
    S2[a1, SP[a5, a6], a4, a2, a3, n] + S2[a1, SP[a5, a6], a4, a3, a2, n] + 
    S2[a2, a1, a4, a3, SP[a5, a6], n] + S2[a2, a1, a4, a6, SP[a3, a5], n] + 
    S2[a2, a1, a4, SP[a3, a5], a6, n] + S2[a2, a1, a4, SP[a5, a6], a3, n] + 
    S2[a2, a1, a6, a4, SP[a3, a5], n] + S2[a2, a1, a6, SP[a4, a5], a3, n] + 
    S2[a2, a1, SP[a4, a5], a3, a6, n] + S2[a2, a1, SP[a4, a5], a6, a3, n] + 
    S2[a2, a1, SP[a5, a6], a4, a3, n] - S2[a6, n]*S2[a2, a5, a1, a4, a3, n] - 
    S2[a2, a5, a1, a4, SP[a3, a6], n] - S2[a2, a5, a1, SP[a4, a6], a3, n] - 
    S2[a2, a5, SP[a1, a6], a4, a3, n] + S2[a5, n]*S2[a2, a6, a1, a4, a3, n] + 
    S2[a2, a6, a1, a4, SP[a3, a5], n] + S2[a2, a6, a1, SP[a4, a5], a3, n] + 
    S2[a2, a6, SP[a1, a5], a4, a3, n] + S2[a2, SP[a1, a5], a4, a3, a6, n] + 
    S2[a2, SP[a1, a5], a4, a6, a3, n] + S2[a2, SP[a1, a5], a6, a4, a3, n] - 
    S2[a2, n]*S2[a6, a1, a4, a3, a5, n] - S2[a6, a1, a4, a3, SP[a2, a5], n] - 
    S2[a2, n]*S2[a6, a1, a4, a5, a3, n] - S2[a6, a1, a4, a5, SP[a2, a3], n] - 
    S2[a6, a1, a4, SP[a2, a3], a5, n] - S2[a6, a1, a4, SP[a2, a5], a3, n] - 
    S2[a2, n]*S2[a6, a1, a5, a4, a3, n] - S2[a6, a1, a5, a4, SP[a2, a3], n] - 
    S2[a6, a1, a5, SP[a2, a4], a3, n] - S2[a6, a1, SP[a2, a4], a3, a5, n] - 
    S2[a6, a1, SP[a2, a4], a5, a3, n] - S2[a6, a1, SP[a2, a5], a4, a3, n] - 
    S2[a6, SP[a1, a2], a4, a3, a5, n] - S2[a6, SP[a1, a2], a4, a5, a3, n] - 
    S2[a6, SP[a1, a2], a5, a4, a3, n] + S2[SP[a1, a6], a4, a3, a5, a2, n] + 
    S2[SP[a1, a6], a4, a5, a2, a3, n] + S2[SP[a1, a6], a4, a5, a3, a2, n] + 
    S2[SP[a1, a6], a5, a2, a4, a3, n] + S2[SP[a1, a6], a5, a4, a2, a3, n] + 
    S2[SP[a1, a6], a5, a4, a3, a2, n] + S2[SP[a2, a5], a6, a1, a4, a3, n] - 
    S2[SP[a2, a6], a1, a4, a3, a5, n] - S2[SP[a2, a6], a1, a4, a5, a3, n] - 
    S2[SP[a2, a6], a1, a5, a4, a3, n] - S2[SP[a2, a6], a5, a1, a4, a3, n] + 
    S2[a6, a1, a2, a4, a3, a5, n] + S2[a6, a1, a2, a4, a5, a3, n] + 
    S2[a6, a1, a2, a5, a4, a3, n] + S2[a6, a1, a4, a2, a3, a5, n] + 
    S2[a6, a1, a4, a2, a5, a3, n] + S2[a6, a1, a4, a3, a2, a5, n] + 
    S2[a6, a2, a1, a4, a3, a5, n] + S2[a6, a2, a1, a4, a5, a3, n] + 
    S2[a6, a2, a1, a5, a4, a3, n] + S2[a6, a2, a5, a1, a4, a3, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a5_, a2_, a6_, a3_, a1_, a4_, n_] :> 
  -(S2[a2, a5, n]*S2[a1, a3, a4, a6, n]) - S2[a2, a5, n]*
     S2[a1, a3, a6, a4, n] + S2[a1, a3, SP[a2, a4], SP[a5, a6], n] + 
    S2[a1, a3, SP[a2, a6], SP[a4, a5], n] - S2[a2, a5, n]*
     S2[a1, a4, a3, a6, n] + S2[a1, a4, SP[a2, a3], SP[a5, a6], n] + 
    S2[a1, SP[a2, a3], a4, SP[a5, a6], n] + S2[a1, SP[a2, a3], a6, 
     SP[a4, a5], n] + S2[a1, SP[a2, a3], SP[a4, a5], a6, n] + 
    S2[a1, SP[a2, a3], SP[a5, a6], a4, n] + S2[a1, SP[a2, a4], a3, 
     SP[a5, a6], n] + S2[a1, SP[a2, a4], SP[a3, a5], a6, n] - 
    S2[a1, a4, n]*S2[a2, a5, a6, a3, n] + S2[a2, a5, SP[a1, a6], SP[a3, a4], 
     n] - S2[a1, a4, n]*S2[a2, a6, a3, a5, n] - 
    S2[a1, a4, n]*S2[a2, a6, a5, a3, n] + S2[a2, a6, SP[a1, a3], SP[a4, a5], 
     n] + S2[a2, a6, SP[a1, a5], SP[a3, a4], n] + S2[a2, SP[a1, a5], a6, 
     SP[a3, a4], n] + S2[a2, SP[a1, a5], SP[a4, a6], a3, n] + 
    S2[a2, SP[a1, a6], a3, SP[a4, a5], n] + S2[a2, SP[a1, a6], a5, 
     SP[a3, a4], n] + S2[a2, SP[a1, a6], SP[a3, a4], a5, n] + 
    S2[a2, SP[a1, a6], SP[a4, a5], a3, n] + S2[a1, a4, n]*
     S2[a3, a6, a2, a5, n] - S2[a3, a6, SP[a1, a2], SP[a4, a5], n] - 
    S2[a3, SP[a1, a6], a2, SP[a4, a5], n] - S2[a3, SP[a1, a6], SP[a2, a4], 
     a5, n] + S2[SP[a1, a2], a3, a4, SP[a5, a6], n] + 
    S2[SP[a1, a2], a3, a6, SP[a4, a5], n] + S2[SP[a1, a2], a3, SP[a4, a5], 
     a6, n] + S2[SP[a1, a2], a3, SP[a5, a6], a4, n] + 
    S2[SP[a1, a2], a4, a3, SP[a5, a6], n] + S2[SP[a1, a2], a4, SP[a3, a5], 
     a6, n] + S2[SP[a1, a2], a5, a6, SP[a3, a4], n] + 
    S2[SP[a1, a2], a5, SP[a4, a6], a3, n] + S2[SP[a1, a2], a6, a3, 
     SP[a4, a5], n] + S2[SP[a1, a2], a6, a5, SP[a3, a4], n] + 
    S2[SP[a1, a2], a6, SP[a3, a4], a5, n] + S2[SP[a1, a2], a6, SP[a4, a5], 
     a3, n] + S2[SP[a1, a2], SP[a3, a5], a4, a6, n] + 
    S2[SP[a1, a2], SP[a3, a5], a6, a4, n] + S2[SP[a1, a2], SP[a4, a5], a3, 
     a6, n] + S2[SP[a1, a2], SP[a4, a5], a6, a3, n] + 
    S2[SP[a1, a2], SP[a4, a6], a3, a5, n] + S2[SP[a1, a2], SP[a4, a6], a5, 
     a3, n] - S2[SP[a1, a3], a6, a2, SP[a4, a5], n] - 
    S2[SP[a1, a3], a6, SP[a2, a4], a5, n] - S2[SP[a1, a3], SP[a4, a6], a2, 
     a5, n] - S2[a1, a2, a3, a4, SP[a5, a6], n] - 
    S2[a1, a2, a3, a6, SP[a4, a5], n] - S2[a1, a2, a3, SP[a4, a5], a6, n] - 
    S2[a1, a2, a3, SP[a5, a6], a4, n] - S2[a1, a2, a4, a3, SP[a5, a6], n] - 
    S2[a1, a2, a4, SP[a3, a5], a6, n] - S2[a1, a2, a5, a6, SP[a3, a4], n] - 
    S2[a1, a2, a5, SP[a4, a6], a3, n] - S2[a1, a2, a6, a3, SP[a4, a5], n] - 
    S2[a1, a2, a6, a5, SP[a3, a4], n] - S2[a1, a2, a6, SP[a3, a4], a5, n] - 
    S2[a1, a2, a6, SP[a4, a5], a3, n] - S2[a1, a2, SP[a3, a5], a4, a6, n] - 
    S2[a1, a2, SP[a3, a5], a6, a4, n] - S2[a1, a2, SP[a4, a5], a3, a6, n] - 
    S2[a1, a2, SP[a4, a5], a6, a3, n] - S2[a1, a2, SP[a4, a6], a3, a5, n] - 
    S2[a1, a2, SP[a4, a6], a5, a3, n] - S2[a1, a3, a2, a4, SP[a5, a6], n] - 
    S2[a1, a3, a2, a6, SP[a4, a5], n] - S2[a1, a3, a2, SP[a4, a5], a6, n] - 
    S2[a1, a3, a2, SP[a5, a6], a4, n] - S2[a1, a3, a4, a2, SP[a5, a6], n] - 
    S2[a6, n]*S2[a1, a3, a4, a5, a2, n] + 
    S2[a2, n]*S2[a1, a3, a4, a5, a6, n] + 
    S2[a2, n]*S2[a1, a3, a4, a6, a5, n] + S2[a1, a3, a4, a6, SP[a2, a5], n] + 
    S2[a1, a3, a4, SP[a2, a5], a6, n] - S2[a1, a3, a4, SP[a5, a6], a2, n] - 
    S2[a6, n]*S2[a1, a3, a5, a2, a4, n] - S2[a1, a3, a5, a2, SP[a4, a6], n] - 
    S2[a6, n]*S2[a1, a3, a5, a4, a2, n] + 
    S2[a2, n]*S2[a1, a3, a5, a4, a6, n] + 
    S2[a2, n]*S2[a1, a3, a5, a6, a4, n] + S2[a1, a3, a5, a6, SP[a2, a4], n] + 
    S2[a1, a3, a5, SP[a2, a4], a6, n] - S2[a1, a3, a5, SP[a4, a6], a2, n] + 
    S2[a2, n]*S2[a1, a3, a6, a4, a5, n] + S2[a1, a3, a6, a4, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a3, a6, a5, a4, n] + S2[a1, a3, a6, a5, SP[a2, a4], n] + 
    S2[a1, a3, a6, SP[a2, a4], a5, n] + S2[a1, a3, a6, SP[a2, a5], a4, n] + 
    S2[a1, a3, SP[a2, a5], a4, a6, n] + S2[a1, a3, SP[a2, a5], a6, a4, n] + 
    S2[a1, a3, SP[a4, a6], a2, a5, n] - S2[a1, a3, SP[a4, a6], a5, a2, n] - 
    S2[a1, a3, SP[a5, a6], a2, a4, n] - S2[a1, a3, SP[a5, a6], a4, a2, n] - 
    S2[a1, a4, a2, a3, SP[a5, a6], n] - S2[a1, a4, a2, SP[a3, a5], a6, n] - 
    S2[a1, a4, a3, a2, SP[a5, a6], n] - S2[a6, n]*S2[a1, a4, a3, a5, a2, n] + 
    S2[a2, n]*S2[a1, a4, a3, a5, a6, n] + 
    S2[a2, n]*S2[a1, a4, a3, a6, a5, n] + S2[a1, a4, a3, a6, SP[a2, a5], n] + 
    S2[a1, a4, a3, SP[a2, a5], a6, n] - S2[a1, a4, a3, SP[a5, a6], a2, n] - 
    S2[a6, n]*S2[a1, a4, a5, a2, a3, n] - S2[a1, a4, a5, a2, SP[a3, a6], n] - 
    S2[a6, n]*S2[a1, a4, a5, a3, a2, n] + 
    S2[a2, n]*S2[a1, a4, a5, a3, a6, n] + 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] + S2[a1, a4, a5, a6, SP[a2, a3], n] + 
    S2[a1, a4, a5, SP[a2, a3], a6, n] - S2[a1, a4, a5, SP[a3, a6], a2, n] - 
    S2[a3, n]*S2[a1, a4, a6, a2, a5, n] - S2[a1, a4, a6, a2, SP[a3, a5], n] + 
    S2[a2, n]*S2[a1, a4, a6, a3, a5, n] + S2[a1, a4, a6, a3, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a4, a6, a5, a3, n] + S2[a1, a4, a6, a5, SP[a2, a3], n] + 
    S2[a1, a4, a6, SP[a2, a5], a3, n] + S2[a1, a4, SP[a2, a5], a3, a6, n] + 
    S2[a1, a4, SP[a2, a5], a6, a3, n] + S2[a1, a4, SP[a2, a6], a3, a5, n] + 
    S2[a1, a4, SP[a2, a6], a5, a3, n] - S2[a1, a4, SP[a3, a6], a2, a5, n] - 
    S2[a1, a4, SP[a3, a6], a5, a2, n] - S2[a1, a4, SP[a5, a6], a2, a3, n] - 
    S2[a1, a4, SP[a5, a6], a3, a2, n] - S2[a6, n]*S2[a1, a5, a2, a3, a4, n] - 
    S2[a1, a5, a2, a3, SP[a4, a6], n] - S2[a6, n]*S2[a1, a5, a2, a4, a3, n] - 
    S2[a1, a5, a2, a4, SP[a3, a6], n] - S2[a1, a5, a2, SP[a3, a6], a4, n] - 
    S2[a1, a5, a2, SP[a4, a6], a3, n] - S2[a6, n]*S2[a1, a5, a3, a2, a4, n] - 
    S2[a1, a5, a3, a2, SP[a4, a6], n] - S2[a6, n]*S2[a1, a5, a3, a4, a2, n] + 
    S2[a2, n]*S2[a1, a5, a3, a4, a6, n] + 
    S2[a2, n]*S2[a1, a5, a3, a6, a4, n] + S2[a1, a5, a3, a6, SP[a2, a4], n] + 
    S2[a1, a5, a3, SP[a2, a4], a6, n] - S2[a1, a5, a3, SP[a4, a6], a2, n] - 
    S2[a6, n]*S2[a1, a5, a4, a2, a3, n] - S2[a1, a5, a4, a2, SP[a3, a6], n] - 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] + 
    S2[a2, n]*S2[a1, a5, a4, a3, a6, n] + 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] + S2[a1, a5, a4, a6, SP[a2, a3], n] + 
    S2[a1, a5, a4, SP[a2, a3], a6, n] - S2[a1, a5, a4, SP[a3, a6], a2, n] + 
    S2[a2, n]*S2[a1, a5, a6, a3, a4, n] + S2[a1, a5, a6, a3, SP[a2, a4], n] + 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] + S2[a1, a5, a6, a4, SP[a2, a3], n] + 
    S2[a1, a5, a6, SP[a2, a3], a4, n] + S2[a1, a5, a6, SP[a2, a4], a3, n] + 
    S2[a1, a5, SP[a2, a3], a4, a6, n] + S2[a1, a5, SP[a2, a3], a6, a4, n] + 
    S2[a1, a5, SP[a2, a4], a3, a6, n] + S2[a1, a5, SP[a2, a4], a6, a3, n] - 
    S2[a1, a5, SP[a3, a6], a2, a4, n] - S2[a1, a5, SP[a3, a6], a4, a2, n] - 
    S2[a1, a5, SP[a4, a6], a2, a3, n] - S2[a1, a5, SP[a4, a6], a3, a2, n] - 
    S2[a3, n]*S2[a1, a6, a2, a4, a5, n] - S2[a1, a6, a2, a4, SP[a3, a5], n] - 
    S2[a3, n]*S2[a1, a6, a2, a5, a4, n] - S2[a1, a6, a2, a5, SP[a3, a4], n] - 
    S2[a1, a6, a2, SP[a3, a4], a5, n] - S2[a1, a6, a2, SP[a3, a5], a4, n] + 
    S2[a2, n]*S2[a1, a6, a3, a4, a5, n] + S2[a1, a6, a3, a4, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a6, a3, a5, a4, n] + S2[a1, a6, a3, a5, SP[a2, a4], n] + 
    S2[a1, a6, a3, SP[a2, a4], a5, n] + S2[a1, a6, a3, SP[a2, a5], a4, n] - 
    S2[a3, n]*S2[a1, a6, a4, a2, a5, n] - S2[a1, a6, a4, a2, SP[a3, a5], n] + 
    S2[a2, n]*S2[a1, a6, a4, a3, a5, n] + S2[a1, a6, a4, a3, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a6, a4, a5, a3, n] + S2[a1, a6, a4, a5, SP[a2, a3], n] + 
    S2[a1, a6, a4, SP[a2, a5], a3, n] + S2[a2, n]*S2[a1, a6, a5, a3, a4, n] + 
    S2[a1, a6, a5, a3, SP[a2, a4], n] + S2[a2, n]*S2[a1, a6, a5, a4, a3, n] + 
    S2[a1, a6, a5, a4, SP[a2, a3], n] + S2[a1, a6, a5, SP[a2, a3], a4, n] + 
    S2[a1, a6, a5, SP[a2, a4], a3, n] + S2[a1, a6, SP[a2, a4], a3, a5, n] + 
    S2[a1, a6, SP[a2, a4], a5, a3, n] + S2[a1, a6, SP[a2, a5], a3, a4, n] + 
    S2[a1, a6, SP[a2, a5], a4, a3, n] - S2[a1, a6, SP[a3, a4], a2, a5, n] + 
    S2[a1, SP[a2, a5], a3, a4, a6, n] + S2[a1, SP[a2, a5], a3, a6, a4, n] + 
    S2[a1, SP[a2, a5], a4, a3, a6, n] + S2[a1, SP[a2, a5], a4, a6, a3, n] + 
    S2[a1, SP[a2, a5], a6, a3, a4, n] + S2[a1, SP[a2, a5], a6, a4, a3, n] + 
    S2[a1, SP[a2, a6], a3, a4, a5, n] + S2[a1, SP[a2, a6], a3, a5, a4, n] + 
    S2[a1, SP[a2, a6], a4, a3, a5, n] + S2[a1, SP[a2, a6], a4, a5, a3, n] + 
    S2[a1, SP[a2, a6], a5, a3, a4, n] + S2[a1, SP[a2, a6], a5, a4, a3, n] - 
    S2[a1, SP[a3, a6], a2, a4, a5, n] - S2[a1, SP[a3, a6], a2, a5, a4, n] - 
    S2[a1, SP[a3, a6], a4, a2, a5, n] - S2[a1, SP[a3, a6], a4, a5, a2, n] - 
    S2[a1, SP[a3, a6], a5, a2, a4, n] - S2[a1, SP[a3, a6], a5, a4, a2, n] - 
    S2[a1, SP[a4, a6], a3, a5, a2, n] - S2[a1, SP[a4, a6], a5, a2, a3, n] - 
    S2[a1, SP[a4, a6], a5, a3, a2, n] - S2[a1, SP[a5, a6], a2, a3, a4, n] - 
    S2[a1, SP[a5, a6], a2, a4, a3, n] - S2[a1, SP[a5, a6], a3, a2, a4, n] - 
    S2[a1, SP[a5, a6], a3, a4, a2, n] - S2[a1, SP[a5, a6], a4, a2, a3, n] - 
    S2[a1, SP[a5, a6], a4, a3, a2, n] - S2[a2, a1, a3, a4, SP[a5, a6], n] - 
    S2[a2, a1, a3, a6, SP[a4, a5], n] - S2[a2, a1, a3, SP[a4, a5], a6, n] - 
    S2[a2, a1, a3, SP[a5, a6], a4, n] - S2[a2, a1, a4, a3, SP[a5, a6], n] - 
    S2[a2, a1, a4, SP[a3, a5], a6, n] - S2[a2, a1, a5, a6, SP[a3, a4], n] - 
    S2[a2, a1, a5, SP[a4, a6], a3, n] - S2[a2, a1, a6, a3, SP[a4, a5], n] - 
    S2[a2, a1, a6, a5, SP[a3, a4], n] - S2[a2, a1, a6, SP[a3, a4], a5, n] - 
    S2[a2, a1, a6, SP[a4, a5], a3, n] - S2[a2, a1, SP[a3, a5], a4, a6, n] - 
    S2[a2, a1, SP[a3, a5], a6, a4, n] - S2[a2, a1, SP[a4, a5], a3, a6, n] - 
    S2[a2, a1, SP[a4, a5], a6, a3, n] - S2[a2, a1, SP[a4, a6], a3, a5, n] - 
    S2[a2, a1, SP[a4, a6], a5, a3, n] + S2[a6, n]*S2[a2, a5, a1, a3, a4, n] + 
    S2[a2, a5, a1, a3, SP[a4, a6], n] + S2[a6, n]*S2[a2, a5, a1, a4, a3, n] + 
    S2[a2, a5, a1, a4, SP[a3, a6], n] - S2[a2, a5, a1, a6, SP[a3, a4], n] + 
    S2[a2, a5, a1, SP[a3, a6], a4, n] - S2[a2, a5, a6, a1, SP[a3, a4], n] - 
    S2[a2, a5, a6, SP[a1, a3], a4, n] - S2[a2, a6, a1, a3, SP[a4, a5], n] + 
    S2[a3, n]*S2[a2, a6, a1, a4, a5, n] + S2[a2, a6, a1, a4, SP[a3, a5], n] + 
    S2[a3, n]*S2[a2, a6, a1, a5, a4, n] + S2[a2, a6, a1, SP[a3, a5], a4, n] - 
    S2[a2, a6, a1, SP[a4, a5], a3, n] + S2[a5, n]*S2[a2, a6, a3, a1, a4, n] - 
    S2[a2, a6, a5, a1, SP[a3, a4], n] - S2[a2, a6, a5, SP[a1, a3], a4, n] - 
    S2[a2, a6, SP[a1, a5], a3, a4, n] - S2[a2, a6, SP[a1, a5], a4, a3, n] + 
    S2[a2, a6, SP[a3, a5], a1, a4, n] - S2[a2, SP[a1, a5], a3, a4, a6, n] - 
    S2[a2, SP[a1, a5], a3, a6, a4, n] - S2[a2, SP[a1, a5], a4, a3, a6, n] - 
    S2[a2, SP[a1, a5], a4, a6, a3, n] - S2[a2, SP[a1, a5], a6, a3, a4, n] - 
    S2[a2, SP[a1, a5], a6, a4, a3, n] - S2[a2, SP[a1, a6], a3, a4, a5, n] - 
    S2[a2, SP[a1, a6], a3, a5, a4, n] - S2[a2, SP[a1, a6], a4, a3, a5, n] - 
    S2[a2, SP[a1, a6], a4, a5, a3, n] - S2[a2, SP[a1, a6], a5, a3, a4, n] - 
    S2[a2, SP[a1, a6], a5, a4, a3, n] + S2[a2, SP[a3, a6], a1, a4, a5, n] + 
    S2[a2, SP[a3, a6], a1, a5, a4, n] + S2[a2, SP[a5, a6], a1, a3, a4, n] + 
    S2[a2, SP[a5, a6], a1, a4, a3, n] + S2[a2, SP[a5, a6], a3, a1, a4, n] + 
    S2[a3, a1, a6, a2, SP[a4, a5], n] + S2[a3, a1, a6, SP[a2, a4], a5, n] + 
    S2[a3, a1, SP[a4, a6], a2, a5, n] + S2[a3, a6, a1, a2, SP[a4, a5], n] - 
    S2[a2, n]*S2[a3, a6, a1, a4, a5, n] - S2[a3, a6, a1, a4, SP[a2, a5], n] - 
    S2[a2, n]*S2[a3, a6, a1, a5, a4, n] - S2[a3, a6, a1, a5, SP[a2, a4], n] - 
    S2[a3, a6, a1, SP[a2, a5], a4, n] + S2[a3, a6, a2, a1, SP[a4, a5], n] + 
    S2[a3, a6, a2, SP[a1, a5], a4, n] + S2[a3, SP[a1, a6], a2, a4, a5, n] + 
    S2[a3, SP[a1, a6], a2, a5, a4, n] + S2[a3, SP[a1, a6], a4, a2, a5, n] - 
    S2[a3, SP[a2, a6], a1, a4, a5, n] - S2[a3, SP[a2, a6], a1, a5, a4, n] + 
    S2[a3, n]*S2[a6, a1, a4, a5, a2, n] + S2[a6, a1, a4, a5, SP[a2, a3], n] + 
    S2[a6, a1, a4, SP[a3, a5], a2, n] + S2[a3, n]*S2[a6, a1, a5, a2, a4, n] + 
    S2[a6, a1, a5, a2, SP[a3, a4], n] + S2[a3, n]*S2[a6, a1, a5, a4, a2, n] + 
    S2[a6, a1, a5, a4, SP[a2, a3], n] + S2[a6, a1, a5, SP[a2, a3], a4, n] + 
    S2[a6, a1, a5, SP[a3, a4], a2, n] + S2[a6, a1, SP[a3, a4], a5, a2, n] + 
    S2[a6, a1, SP[a3, a5], a2, a4, n] + S2[a6, a1, SP[a3, a5], a4, a2, n] - 
    S2[a3, n]*S2[a6, a2, a5, a1, a4, n] - S2[a6, a2, a5, a1, SP[a3, a4], n] - 
    S2[a6, a2, a5, SP[a1, a3], a4, n] - S2[a6, a2, SP[a3, a5], a1, a4, n] - 
    S2[a2, n]*S2[a6, a3, a1, a4, a5, n] - S2[a6, a3, a1, a4, SP[a2, a5], n] - 
    S2[a2, n]*S2[a6, a3, a1, a5, a4, n] - S2[a6, a3, a1, a5, SP[a2, a4], n] - 
    S2[a6, a3, a1, SP[a2, a4], a5, n] - S2[a6, a3, a1, SP[a2, a5], a4, n] - 
    S2[a6, a3, SP[a1, a2], a4, a5, n] - S2[a6, a3, SP[a1, a2], a5, a4, n] + 
    S2[a6, SP[a1, a3], a4, a5, a2, n] + S2[a6, SP[a1, a3], a5, a2, a4, n] + 
    S2[a6, SP[a1, a3], a5, a4, a2, n] - S2[a6, SP[a2, a3], a1, a4, a5, n] - 
    S2[a6, SP[a2, a3], a1, a5, a4, n] - S2[a6, SP[a2, a3], a5, a1, a4, n] - 
    S2[SP[a1, a6], a3, a4, a5, a2, n] - S2[SP[a1, a6], a3, a5, a2, a4, n] - 
    S2[SP[a1, a6], a3, a5, a4, a2, n] - S2[SP[a1, a6], a4, a3, a5, a2, n] - 
    S2[SP[a1, a6], a4, a5, a2, a3, n] - S2[SP[a1, a6], a4, a5, a3, a2, n] - 
    S2[SP[a1, a6], a5, a2, a3, a4, n] - S2[SP[a1, a6], a5, a2, a4, a3, n] - 
    S2[SP[a1, a6], a5, a3, a2, a4, n] - S2[SP[a1, a6], a5, a3, a4, a2, n] - 
    S2[SP[a1, a6], a5, a4, a2, a3, n] - S2[SP[a1, a6], a5, a4, a3, a2, n] + 
    S2[SP[a2, a5], a6, a3, a1, a4, n] - S2[SP[a2, a6], a3, a1, a4, a5, n] - 
    S2[SP[a2, a6], a3, a1, a5, a4, n] + S2[SP[a2, a6], a5, a1, a3, a4, n] + 
    S2[SP[a2, a6], a5, a1, a4, a3, n] + S2[SP[a3, a6], a1, a4, a5, a2, n] + 
    S2[SP[a3, a6], a1, a5, a2, a4, n] + S2[SP[a3, a6], a1, a5, a4, a2, n] - 
    S2[SP[a3, a6], a2, a5, a1, a4, n] + S2[a6, a2, a3, a1, a4, a5, n] + 
    S2[a6, a2, a3, a1, a5, a4, n] + S2[a6, a2, a3, a5, a1, a4, n] + 
    S2[a6, a2, a5, a3, a1, a4, n] + S2[a6, a3, a1, a2, a4, a5, n] + 
    S2[a6, a3, a1, a2, a5, a4, n] + S2[a6, a3, a1, a4, a2, a5, n] + 
    S2[a6, a3, a2, a1, a4, a5, n] + S2[a6, a3, a2, a1, a5, a4, n] + 
    S2[a6, a3, a2, a5, a1, a4, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a5_, a2_, a6_, a3_, a4_, a1_, n_] :> 
  S2[a2, a5, n]*S2[a1, a4, a3, a6, n] - S2[a1, a4, SP[a2, a3], SP[a5, a6], 
     n] - S2[a1, SP[a2, a4], a3, SP[a5, a6], n] - 
    S2[a1, SP[a2, a4], SP[a3, a5], a6, n] + S2[a1, a4, n]*
     S2[a2, a5, a6, a3, n] - S2[a2, a5, SP[a1, a6], SP[a3, a4], n] + 
    S2[a1, a4, n]*S2[a2, a6, a3, a5, n] + S2[a1, a4, n]*
     S2[a2, a6, a5, a3, n] - S2[a2, a6, SP[a1, a3], SP[a4, a5], n] - 
    S2[a2, a6, SP[a1, a5], SP[a3, a4], n] - S2[a2, SP[a1, a5], a6, 
     SP[a3, a4], n] - S2[a2, SP[a1, a5], SP[a4, a6], a3, n] - 
    S2[a2, SP[a1, a6], a3, SP[a4, a5], n] - S2[a2, SP[a1, a6], a5, 
     SP[a3, a4], n] - S2[a2, SP[a1, a6], SP[a3, a4], a5, n] - 
    S2[a2, SP[a1, a6], SP[a4, a5], a3, n] - S2[a1, a4, n]*
     S2[a3, a6, a2, a5, n] + S2[a3, a6, SP[a1, a2], SP[a4, a5], n] + 
    S2[a3, SP[a1, a6], a2, SP[a4, a5], n] + S2[a3, SP[a1, a6], SP[a2, a4], 
     a5, n] - S2[SP[a1, a2], a4, a3, SP[a5, a6], n] - 
    S2[SP[a1, a2], a4, SP[a3, a5], a6, n] - S2[SP[a1, a2], a5, a6, 
     SP[a3, a4], n] - S2[SP[a1, a2], a5, SP[a4, a6], a3, n] - 
    S2[SP[a1, a2], a6, a3, SP[a4, a5], n] - S2[SP[a1, a2], a6, a5, 
     SP[a3, a4], n] - S2[SP[a1, a2], a6, SP[a3, a4], a5, n] - 
    S2[SP[a1, a2], a6, SP[a4, a5], a3, n] - S2[SP[a1, a2], SP[a4, a5], a3, 
     a6, n] - S2[SP[a1, a2], SP[a4, a5], a6, a3, n] - 
    S2[SP[a1, a2], SP[a4, a6], a3, a5, n] - S2[SP[a1, a2], SP[a4, a6], a5, 
     a3, n] + S2[SP[a1, a3], a6, a2, SP[a4, a5], n] + 
    S2[SP[a1, a3], a6, SP[a2, a4], a5, n] + S2[SP[a1, a3], SP[a4, a6], a2, 
     a5, n] + S2[a1, a2, a4, a3, SP[a5, a6], n] + S2[a1, a2, a4, SP[a3, a5], 
     a6, n] + S2[a1, a2, a5, a6, SP[a3, a4], n] + S2[a1, a2, a5, SP[a4, a6], 
     a3, n] + S2[a1, a2, a6, a3, SP[a4, a5], n] + 
    S2[a1, a2, a6, a5, SP[a3, a4], n] + S2[a1, a2, a6, SP[a3, a4], a5, n] + 
    S2[a1, a2, a6, SP[a4, a5], a3, n] + S2[a1, a2, SP[a4, a5], a3, a6, n] + 
    S2[a1, a2, SP[a4, a5], a6, a3, n] + S2[a1, a2, SP[a4, a6], a3, a5, n] + 
    S2[a1, a2, SP[a4, a6], a5, a3, n] - S2[a1, a3, a6, a2, SP[a4, a5], n] - 
    S2[a1, a3, a6, SP[a2, a4], a5, n] - S2[a1, a3, SP[a4, a6], a2, a5, n] + 
    S2[a1, a4, a2, a3, SP[a5, a6], n] + S2[a1, a4, a2, SP[a3, a5], a6, n] + 
    S2[a1, a4, a3, a2, SP[a5, a6], n] + S2[a6, n]*S2[a1, a4, a3, a5, a2, n] - 
    S2[a2, n]*S2[a1, a4, a3, a5, a6, n] - 
    S2[a2, n]*S2[a1, a4, a3, a6, a5, n] - S2[a1, a4, a3, a6, SP[a2, a5], n] - 
    S2[a1, a4, a3, SP[a2, a5], a6, n] + S2[a1, a4, a3, SP[a5, a6], a2, n] + 
    S2[a6, n]*S2[a1, a4, a5, a2, a3, n] + S2[a1, a4, a5, a2, SP[a3, a6], n] + 
    S2[a6, n]*S2[a1, a4, a5, a3, a2, n] - 
    S2[a2, n]*S2[a1, a4, a5, a3, a6, n] - 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] - S2[a1, a4, a5, a6, SP[a2, a3], n] - 
    S2[a1, a4, a5, SP[a2, a3], a6, n] + S2[a1, a4, a5, SP[a3, a6], a2, n] + 
    S2[a3, n]*S2[a1, a4, a6, a2, a5, n] + S2[a1, a4, a6, a2, SP[a3, a5], n] - 
    S2[a2, n]*S2[a1, a4, a6, a3, a5, n] - S2[a1, a4, a6, a3, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a4, a6, a5, a3, n] - S2[a1, a4, a6, a5, SP[a2, a3], n] - 
    S2[a1, a4, a6, SP[a2, a5], a3, n] - S2[a1, a4, SP[a2, a5], a3, a6, n] - 
    S2[a1, a4, SP[a2, a5], a6, a3, n] - S2[a1, a4, SP[a2, a6], a3, a5, n] - 
    S2[a1, a4, SP[a2, a6], a5, a3, n] + S2[a1, a4, SP[a3, a6], a2, a5, n] + 
    S2[a1, a4, SP[a3, a6], a5, a2, n] + S2[a1, a4, SP[a5, a6], a2, a3, n] + 
    S2[a1, a4, SP[a5, a6], a3, a2, n] + S2[a6, n]*S2[a1, a5, a2, a4, a3, n] + 
    S2[a1, a5, a2, a4, SP[a3, a6], n] + S2[a1, a5, a2, SP[a4, a6], a3, n] + 
    S2[a6, n]*S2[a1, a5, a4, a2, a3, n] + S2[a1, a5, a4, a2, SP[a3, a6], n] + 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] - 
    S2[a2, n]*S2[a1, a5, a4, a3, a6, n] - 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] - S2[a1, a5, a4, a6, SP[a2, a3], n] - 
    S2[a1, a5, a4, SP[a2, a3], a6, n] + S2[a1, a5, a4, SP[a3, a6], a2, n] - 
    S2[a2, n]*S2[a1, a5, a6, a3, a4, n] - S2[a1, a5, a6, a3, SP[a2, a4], n] - 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] - S2[a1, a5, a6, a4, SP[a2, a3], n] - 
    S2[a1, a5, a6, SP[a2, a3], a4, n] - S2[a1, a5, a6, SP[a2, a4], a3, n] - 
    S2[a1, a5, SP[a2, a4], a3, a6, n] - S2[a1, a5, SP[a2, a4], a6, a3, n] - 
    S2[a1, a5, SP[a2, a6], a3, a4, n] + S2[a1, a5, SP[a4, a6], a2, a3, n] + 
    S2[a1, a5, SP[a4, a6], a3, a2, n] + S2[a5, n]*S2[a1, a6, a2, a3, a4, n] + 
    S2[a1, a6, a2, a3, SP[a4, a5], n] + S2[a3, n]*S2[a1, a6, a2, a4, a5, n] + 
    S2[a1, a6, a2, a4, SP[a3, a5], n] + S2[a3, n]*S2[a1, a6, a2, a5, a4, n] + 
    S2[a1, a6, a2, a5, SP[a3, a4], n] + S2[a1, a6, a2, SP[a3, a4], a5, n] + 
    2*S2[a1, a6, a2, SP[a3, a5], a4, n] + 
    S2[a5, n]*S2[a1, a6, a3, a2, a4, n] + S2[a1, a6, a3, a2, SP[a4, a5], n] + 
    S2[a5, n]*S2[a1, a6, a3, a4, a2, n] - 
    S2[a2, n]*S2[a1, a6, a3, a4, a5, n] - 
    S2[a2, n]*S2[a1, a6, a3, a5, a4, n] - S2[a1, a6, a3, a5, SP[a2, a4], n] - 
    S2[a1, a6, a3, SP[a2, a4], a5, n] + S2[a1, a6, a3, SP[a4, a5], a2, n] + 
    S2[a3, n]*S2[a1, a6, a4, a2, a5, n] + S2[a1, a6, a4, a2, SP[a3, a5], n] - 
    S2[a2, n]*S2[a1, a6, a4, a3, a5, n] - S2[a1, a6, a4, a3, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a6, a4, a5, a3, n] - S2[a1, a6, a4, a5, SP[a2, a3], n] - 
    S2[a1, a6, a4, SP[a2, a5], a3, n] - S2[a2, n]*S2[a1, a6, a5, a3, a4, n] - 
    S2[a1, a6, a5, a3, SP[a2, a4], n] - S2[a2, n]*S2[a1, a6, a5, a4, a3, n] - 
    S2[a1, a6, a5, a4, SP[a2, a3], n] - S2[a1, a6, a5, SP[a2, a3], a4, n] - 
    S2[a1, a6, a5, SP[a2, a4], a3, n] - S2[a1, a6, SP[a2, a4], a3, a5, n] - 
    S2[a1, a6, SP[a2, a4], a5, a3, n] - S2[a1, a6, SP[a2, a5], a4, a3, n] + 
    S2[a1, a6, SP[a3, a4], a2, a5, n] + S2[a1, a6, SP[a3, a5], a2, a4, n] + 
    S2[a1, a6, SP[a3, a5], a4, a2, n] - S2[a1, SP[a2, a5], a4, a3, a6, n] - 
    S2[a1, SP[a2, a5], a4, a6, a3, n] - S2[a1, SP[a2, a5], a6, a3, a4, n] - 
    S2[a1, SP[a2, a5], a6, a4, a3, n] - S2[a1, SP[a2, a6], a3, a4, a5, n] - 
    S2[a1, SP[a2, a6], a3, a5, a4, n] - S2[a1, SP[a2, a6], a4, a3, a5, n] - 
    S2[a1, SP[a2, a6], a4, a5, a3, n] - S2[a1, SP[a2, a6], a5, a3, a4, n] - 
    S2[a1, SP[a2, a6], a5, a4, a3, n] + S2[a1, SP[a3, a6], a2, a4, a5, n] + 
    S2[a1, SP[a3, a6], a2, a5, a4, n] + S2[a1, SP[a3, a6], a4, a2, a5, n] + 
    S2[a1, SP[a4, a6], a3, a5, a2, n] + S2[a1, SP[a4, a6], a5, a2, a3, n] + 
    S2[a1, SP[a4, a6], a5, a3, a2, n] + S2[a1, SP[a5, a6], a2, a3, a4, n] + 
    S2[a1, SP[a5, a6], a2, a4, a3, n] + S2[a1, SP[a5, a6], a3, a2, a4, n] + 
    S2[a1, SP[a5, a6], a3, a4, a2, n] + S2[a1, SP[a5, a6], a4, a2, a3, n] + 
    S2[a1, SP[a5, a6], a4, a3, a2, n] + S2[a2, a1, a4, a3, SP[a5, a6], n] + 
    S2[a2, a1, a4, SP[a3, a5], a6, n] + S2[a2, a1, a5, a6, SP[a3, a4], n] + 
    S2[a2, a1, a5, SP[a4, a6], a3, n] + S2[a2, a1, a6, a3, SP[a4, a5], n] + 
    S2[a2, a1, a6, a5, SP[a3, a4], n] + S2[a2, a1, a6, SP[a3, a4], a5, n] + 
    S2[a2, a1, a6, SP[a4, a5], a3, n] + S2[a2, a1, SP[a4, a5], a3, a6, n] + 
    S2[a2, a1, SP[a4, a5], a6, a3, n] + S2[a2, a1, SP[a4, a6], a3, a5, n] + 
    S2[a2, a1, SP[a4, a6], a5, a3, n] - S2[a6, n]*S2[a2, a5, a1, a4, a3, n] - 
    S2[a2, a5, a1, a4, SP[a3, a6], n] + S2[a2, a5, a1, a6, SP[a3, a4], n] + 
    S2[a2, a5, a6, a1, SP[a3, a4], n] + S2[a2, a5, a6, SP[a1, a3], a4, n] + 
    S2[a2, a5, SP[a1, a6], a3, a4, n] - S2[a5, n]*S2[a2, a6, a1, a3, a4, n] - 
    S2[a3, n]*S2[a2, a6, a1, a4, a5, n] - S2[a2, a6, a1, a4, SP[a3, a5], n] - 
    S2[a3, n]*S2[a2, a6, a1, a5, a4, n] - 
    2*S2[a2, a6, a1, SP[a3, a5], a4, n] + S2[a2, a6, a1, SP[a4, a5], a3, n] - 
    S2[a5, n]*S2[a2, a6, a3, a1, a4, n] + S2[a2, a6, a5, a1, SP[a3, a4], n] + 
    S2[a2, a6, a5, SP[a1, a3], a4, n] + S2[a2, a6, SP[a1, a5], a4, a3, n] - 
    S2[a2, a6, SP[a3, a5], a1, a4, n] + S2[a2, SP[a1, a5], a4, a3, a6, n] + 
    S2[a2, SP[a1, a5], a4, a6, a3, n] + S2[a2, SP[a1, a5], a6, a3, a4, n] + 
    S2[a2, SP[a1, a5], a6, a4, a3, n] + S2[a2, SP[a1, a6], a3, a4, a5, n] + 
    S2[a2, SP[a1, a6], a3, a5, a4, n] + S2[a2, SP[a1, a6], a4, a3, a5, n] + 
    S2[a2, SP[a1, a6], a4, a5, a3, n] + S2[a2, SP[a1, a6], a5, a3, a4, n] + 
    S2[a2, SP[a1, a6], a5, a4, a3, n] - S2[a2, SP[a3, a6], a1, a4, a5, n] - 
    S2[a2, SP[a3, a6], a1, a5, a4, n] - S2[a2, SP[a5, a6], a1, a3, a4, n] - 
    S2[a2, SP[a5, a6], a1, a4, a3, n] - S2[a2, SP[a5, a6], a3, a1, a4, n] - 
    S2[a3, a1, a6, a2, SP[a4, a5], n] - S2[a3, a1, a6, SP[a2, a4], a5, n] - 
    S2[a3, a1, SP[a4, a6], a2, a5, n] - S2[a3, a6, a1, a2, SP[a4, a5], n] + 
    S2[a2, n]*S2[a3, a6, a1, a4, a5, n] + S2[a3, a6, a1, a4, SP[a2, a5], n] + 
    S2[a2, n]*S2[a3, a6, a1, a5, a4, n] + S2[a3, a6, a1, a5, SP[a2, a4], n] + 
    S2[a3, a6, a1, SP[a2, a5], a4, n] - S2[a3, a6, a2, a1, SP[a4, a5], n] - 
    S2[a3, a6, a2, SP[a1, a5], a4, n] - S2[a3, SP[a1, a6], a2, a4, a5, n] - 
    S2[a3, SP[a1, a6], a2, a5, a4, n] - S2[a3, SP[a1, a6], a4, a2, a5, n] + 
    S2[a3, SP[a2, a6], a1, a4, a5, n] + S2[a3, SP[a2, a6], a1, a5, a4, n] - 
    S2[a2, n]*S2[a5, a1, a6, a3, a4, n] - S2[a5, a1, a6, a3, SP[a2, a4], n] - 
    S2[a5, a1, a6, SP[a2, a3], a4, n] - S2[a5, a1, SP[a2, a6], a3, a4, n] + 
    S2[a1, n]*S2[a5, a2, a6, a3, a4, n] + S2[a5, a2, a6, a3, SP[a1, a4], n] + 
    S2[a5, a2, a6, SP[a1, a3], a4, n] + S2[a5, a2, SP[a1, a6], a3, a4, n] + 
    S2[a2, n]*S2[a6, a1, a3, a4, a5, n] + S2[a6, a1, a3, a4, SP[a2, a5], n] + 
    S2[a2, n]*S2[a6, a1, a3, a5, a4, n] + S2[a6, a1, a3, a5, SP[a2, a4], n] + 
    S2[a6, a1, a3, SP[a2, a4], a5, n] + S2[a6, a1, a3, SP[a2, a5], a4, n] - 
    S2[a3, n]*S2[a6, a1, a4, a5, a2, n] - S2[a6, a1, a4, a5, SP[a2, a3], n] - 
    S2[a6, a1, a4, SP[a3, a5], a2, n] - S2[a3, n]*S2[a6, a1, a5, a2, a4, n] - 
    S2[a6, a1, a5, a2, SP[a3, a4], n] + S2[a2, n]*S2[a6, a1, a5, a3, a4, n] + 
    S2[a6, a1, a5, a3, SP[a2, a4], n] - S2[a3, n]*S2[a6, a1, a5, a4, a2, n] - 
    S2[a6, a1, a5, a4, SP[a2, a3], n] - S2[a6, a1, a5, SP[a3, a4], a2, n] + 
    S2[a6, a1, SP[a2, a3], a4, a5, n] + S2[a6, a1, SP[a2, a3], a5, a4, n] + 
    S2[a6, a1, SP[a2, a5], a3, a4, n] - S2[a6, a1, SP[a3, a4], a5, a2, n] - 
    S2[a6, a1, SP[a3, a5], a2, a4, n] - S2[a6, a1, SP[a3, a5], a4, a2, n] - 
    S2[a1, n]*S2[a6, a2, a3, a4, a5, n] - S2[a6, a2, a3, a4, SP[a1, a5], n] - 
    S2[a1, n]*S2[a6, a2, a3, a5, a4, n] - S2[a6, a2, a3, a5, SP[a1, a4], n] - 
    S2[a6, a2, a3, SP[a1, a4], a5, n] - S2[a6, a2, a3, SP[a1, a5], a4, n] + 
    S2[a3, n]*S2[a6, a2, a5, a1, a4, n] + S2[a6, a2, a5, a1, SP[a3, a4], n] - 
    S2[a1, n]*S2[a6, a2, a5, a3, a4, n] - S2[a6, a2, a5, a3, SP[a1, a4], n] - 
    S2[a6, a2, SP[a1, a3], a4, a5, n] - S2[a6, a2, SP[a1, a3], a5, a4, n] - 
    S2[a6, a2, SP[a1, a5], a3, a4, n] + S2[a6, a2, SP[a3, a5], a1, a4, n] + 
    S2[a2, n]*S2[a6, a3, a1, a4, a5, n] + S2[a6, a3, a1, a4, SP[a2, a5], n] + 
    S2[a2, n]*S2[a6, a3, a1, a5, a4, n] + S2[a6, a3, a1, a5, SP[a2, a4], n] + 
    S2[a6, a3, a1, SP[a2, a4], a5, n] + S2[a6, a3, a1, SP[a2, a5], a4, n] - 
    S2[a1, n]*S2[a6, a3, a2, a4, a5, n] - S2[a6, a3, a2, a4, SP[a1, a5], n] - 
    S2[a1, n]*S2[a6, a3, a2, a5, a4, n] - S2[a6, a3, a2, a5, SP[a1, a4], n] - 
    S2[a6, a3, a2, SP[a1, a4], a5, n] - S2[a6, a3, a2, SP[a1, a5], a4, n] - 
    S2[a1, n]*S2[a6, a3, a4, a2, a5, n] - S2[a6, a3, a4, a2, SP[a1, a5], n] - 
    S2[a6, a3, a4, SP[a1, a2], a5, n] - S2[a6, a3, SP[a1, a4], a2, a5, n] - 
    S2[a6, SP[a1, a3], a2, a4, a5, n] - S2[a6, SP[a1, a3], a2, a5, a4, n] - 
    S2[a6, SP[a1, a3], a4, a2, a5, n] - S2[a6, SP[a1, a3], a4, a5, a2, n] - 
    S2[a6, SP[a1, a3], a5, a2, a4, n] - S2[a6, SP[a1, a3], a5, a4, a2, n] + 
    S2[a6, SP[a2, a3], a1, a4, a5, n] + S2[a6, SP[a2, a3], a1, a5, a4, n] + 
    S2[a6, SP[a2, a3], a5, a1, a4, n] + S2[SP[a1, a5], a2, a6, a3, a4, n] + 
    S2[SP[a1, a5], a6, a2, a3, a4, n] + S2[SP[a1, a5], a6, a3, a2, a4, n] + 
    S2[SP[a1, a5], a6, a3, a4, a2, n] - S2[SP[a1, a6], a2, a3, a4, a5, n] - 
    S2[SP[a1, a6], a2, a3, a5, a4, n] - S2[SP[a1, a6], a2, a5, a3, a4, n] - 
    S2[SP[a1, a6], a3, a2, a4, a5, n] - S2[SP[a1, a6], a3, a2, a5, a4, n] - 
    S2[SP[a1, a6], a3, a4, a2, a5, n] + S2[SP[a1, a6], a4, a3, a5, a2, n] + 
    S2[SP[a1, a6], a4, a5, a2, a3, n] + S2[SP[a1, a6], a4, a5, a3, a2, n] + 
    S2[SP[a1, a6], a5, a2, a4, a3, n] + S2[SP[a1, a6], a5, a4, a2, a3, n] + 
    S2[SP[a1, a6], a5, a4, a3, a2, n] - S2[SP[a2, a5], a1, a6, a3, a4, n] - 
    S2[SP[a2, a5], a6, a1, a3, a4, n] - S2[SP[a2, a5], a6, a3, a1, a4, n] + 
    S2[SP[a2, a6], a1, a3, a4, a5, n] + S2[SP[a2, a6], a1, a3, a5, a4, n] + 
    S2[SP[a2, a6], a1, a5, a3, a4, n] + S2[SP[a2, a6], a3, a1, a4, a5, n] + 
    S2[SP[a2, a6], a3, a1, a5, a4, n] - S2[SP[a2, a6], a5, a1, a4, a3, n] - 
    S2[SP[a3, a6], a1, a4, a5, a2, n] - S2[SP[a3, a6], a1, a5, a2, a4, n] - 
    S2[SP[a3, a6], a1, a5, a4, a2, n] + S2[SP[a3, a6], a2, a5, a1, a4, n] + 
    S2[a6, a2, a3, a4, a1, a5, n] + S2[a6, a2, a3, a4, a5, a1, n] + 
    S2[a6, a2, a3, a5, a4, a1, n] + S2[a6, a2, a5, a3, a4, a1, n] + 
    S2[a6, a3, a2, a4, a1, a5, n] + S2[a6, a3, a2, a4, a5, a1, n] + 
    S2[a6, a3, a2, a5, a4, a1, n] + S2[a6, a3, a4, a1, a2, a5, n] + 
    S2[a6, a3, a4, a2, a1, a5, n] + S2[a6, a3, a4, a2, a5, a1, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a5_, a2_, a6_, a4_, a1_, a3_, n_] :> 
  -(S2[a2, a5, n]*S2[a1, a3, a4, a6, n]) + S2[a1, a3, SP[a2, a4], SP[a5, a6], 
     n] - S2[a2, a5, n]*S2[a1, a4, a3, a6, n] - 
    S2[a2, a5, n]*S2[a1, a4, a6, a3, n] + S2[a1, a4, SP[a2, a3], SP[a5, a6], 
     n] + S2[a1, a4, SP[a2, a6], SP[a3, a5], n] + S2[a1, SP[a2, a3], a4, 
     SP[a5, a6], n] + S2[a1, SP[a2, a3], SP[a4, a5], a6, n] + 
    S2[a1, SP[a2, a4], a3, SP[a5, a6], n] + S2[a1, SP[a2, a4], a6, 
     SP[a3, a5], n] + S2[a1, SP[a2, a4], SP[a3, a5], a6, n] + 
    S2[a1, SP[a2, a4], SP[a5, a6], a3, n] - S2[a1, a3, n]*
     S2[a2, a5, a6, a4, n] + S2[a2, a5, SP[a1, a6], SP[a3, a4], n] - 
    S2[a1, a3, n]*S2[a2, a6, a4, a5, n] - S2[a1, a3, n]*
     S2[a2, a6, a5, a4, n] + S2[a2, a6, SP[a1, a4], SP[a3, a5], n] + 
    S2[a2, a6, SP[a1, a5], SP[a3, a4], n] + S2[a2, SP[a1, a5], a6, 
     SP[a3, a4], n] + S2[a2, SP[a1, a5], SP[a3, a6], a4, n] + 
    S2[a2, SP[a1, a6], a4, SP[a3, a5], n] + S2[a2, SP[a1, a6], a5, 
     SP[a3, a4], n] + S2[a2, SP[a1, a6], SP[a3, a4], a5, n] + 
    S2[a2, SP[a1, a6], SP[a3, a5], a4, n] + S2[a1, a3, n]*
     S2[a4, a6, a2, a5, n] - S2[a4, a6, SP[a1, a2], SP[a3, a5], n] - 
    S2[a4, SP[a1, a6], a2, SP[a3, a5], n] - S2[a4, SP[a1, a6], SP[a2, a3], 
     a5, n] + S2[SP[a1, a2], a3, a4, SP[a5, a6], n] + 
    S2[SP[a1, a2], a3, SP[a4, a5], a6, n] + S2[SP[a1, a2], a4, a3, 
     SP[a5, a6], n] + S2[SP[a1, a2], a4, a6, SP[a3, a5], n] + 
    S2[SP[a1, a2], a4, SP[a3, a5], a6, n] + S2[SP[a1, a2], a4, SP[a5, a6], 
     a3, n] + S2[SP[a1, a2], a5, a6, SP[a3, a4], n] + 
    S2[SP[a1, a2], a5, SP[a3, a6], a4, n] + S2[SP[a1, a2], a6, a4, 
     SP[a3, a5], n] + S2[SP[a1, a2], a6, a5, SP[a3, a4], n] + 
    S2[SP[a1, a2], a6, SP[a3, a4], a5, n] + S2[SP[a1, a2], a6, SP[a3, a5], 
     a4, n] + S2[SP[a1, a2], SP[a3, a5], a4, a6, n] + 
    S2[SP[a1, a2], SP[a3, a5], a6, a4, n] + S2[SP[a1, a2], SP[a3, a6], a4, 
     a5, n] + S2[SP[a1, a2], SP[a3, a6], a5, a4, n] + 
    S2[SP[a1, a2], SP[a4, a5], a3, a6, n] + S2[SP[a1, a2], SP[a4, a5], a6, 
     a3, n] - S2[SP[a1, a4], a6, a2, SP[a3, a5], n] - 
    S2[SP[a1, a4], a6, SP[a2, a3], a5, n] - S2[SP[a1, a4], SP[a3, a6], a2, 
     a5, n] - S2[a1, a2, a3, a4, SP[a5, a6], n] - S2[a1, a2, a3, SP[a4, a5], 
     a6, n] - S2[a1, a2, a4, a3, SP[a5, a6], n] - 
    S2[a1, a2, a4, a6, SP[a3, a5], n] - S2[a1, a2, a4, SP[a3, a5], a6, n] - 
    S2[a1, a2, a4, SP[a5, a6], a3, n] - S2[a1, a2, a5, a6, SP[a3, a4], n] - 
    S2[a1, a2, a5, SP[a3, a6], a4, n] - S2[a1, a2, a6, a4, SP[a3, a5], n] - 
    S2[a1, a2, a6, a5, SP[a3, a4], n] - S2[a1, a2, a6, SP[a3, a4], a5, n] - 
    S2[a1, a2, a6, SP[a3, a5], a4, n] - S2[a1, a2, SP[a3, a5], a4, a6, n] - 
    S2[a1, a2, SP[a3, a5], a6, a4, n] - S2[a1, a2, SP[a3, a6], a4, a5, n] - 
    S2[a1, a2, SP[a3, a6], a5, a4, n] - S2[a1, a2, SP[a4, a5], a3, a6, n] - 
    S2[a1, a2, SP[a4, a5], a6, a3, n] - S2[a1, a3, a2, a4, SP[a5, a6], n] - 
    S2[a1, a3, a2, SP[a4, a5], a6, n] - S2[a1, a3, a4, a2, SP[a5, a6], n] - 
    S2[a6, n]*S2[a1, a3, a4, a5, a2, n] + 
    S2[a2, n]*S2[a1, a3, a4, a5, a6, n] + 
    S2[a2, n]*S2[a1, a3, a4, a6, a5, n] + S2[a1, a3, a4, a6, SP[a2, a5], n] + 
    S2[a1, a3, a4, SP[a2, a5], a6, n] - S2[a1, a3, a4, SP[a5, a6], a2, n] - 
    S2[a6, n]*S2[a1, a3, a5, a2, a4, n] - S2[a1, a3, a5, a2, SP[a4, a6], n] - 
    S2[a6, n]*S2[a1, a3, a5, a4, a2, n] + 
    S2[a2, n]*S2[a1, a3, a5, a4, a6, n] + 
    S2[a2, n]*S2[a1, a3, a5, a6, a4, n] + S2[a1, a3, a5, a6, SP[a2, a4], n] + 
    S2[a1, a3, a5, SP[a2, a4], a6, n] - S2[a1, a3, a5, SP[a4, a6], a2, n] - 
    S2[a4, n]*S2[a1, a3, a6, a2, a5, n] - S2[a1, a3, a6, a2, SP[a4, a5], n] + 
    S2[a2, n]*S2[a1, a3, a6, a4, a5, n] + S2[a1, a3, a6, a4, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a3, a6, a5, a4, n] + S2[a1, a3, a6, a5, SP[a2, a4], n] + 
    S2[a1, a3, a6, SP[a2, a5], a4, n] + S2[a1, a3, SP[a2, a5], a4, a6, n] + 
    S2[a1, a3, SP[a2, a5], a6, a4, n] + S2[a1, a3, SP[a2, a6], a4, a5, n] + 
    S2[a1, a3, SP[a2, a6], a5, a4, n] - S2[a1, a3, SP[a4, a6], a2, a5, n] - 
    S2[a1, a3, SP[a4, a6], a5, a2, n] - S2[a1, a3, SP[a5, a6], a2, a4, n] - 
    S2[a1, a3, SP[a5, a6], a4, a2, n] - S2[a1, a4, a2, a3, SP[a5, a6], n] - 
    S2[a1, a4, a2, a6, SP[a3, a5], n] - S2[a1, a4, a2, SP[a3, a5], a6, n] - 
    S2[a1, a4, a2, SP[a5, a6], a3, n] - S2[a1, a4, a3, a2, SP[a5, a6], n] - 
    S2[a6, n]*S2[a1, a4, a3, a5, a2, n] + 
    S2[a2, n]*S2[a1, a4, a3, a5, a6, n] + 
    S2[a2, n]*S2[a1, a4, a3, a6, a5, n] + S2[a1, a4, a3, a6, SP[a2, a5], n] + 
    S2[a1, a4, a3, SP[a2, a5], a6, n] - S2[a1, a4, a3, SP[a5, a6], a2, n] - 
    S2[a6, n]*S2[a1, a4, a5, a2, a3, n] - S2[a1, a4, a5, a2, SP[a3, a6], n] - 
    S2[a6, n]*S2[a1, a4, a5, a3, a2, n] + 
    S2[a2, n]*S2[a1, a4, a5, a3, a6, n] + 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] + S2[a1, a4, a5, a6, SP[a2, a3], n] + 
    S2[a1, a4, a5, SP[a2, a3], a6, n] - S2[a1, a4, a5, SP[a3, a6], a2, n] + 
    S2[a2, n]*S2[a1, a4, a6, a3, a5, n] + S2[a1, a4, a6, a3, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a4, a6, a5, a3, n] + S2[a1, a4, a6, a5, SP[a2, a3], n] + 
    S2[a1, a4, a6, SP[a2, a3], a5, n] + S2[a1, a4, a6, SP[a2, a5], a3, n] + 
    S2[a1, a4, SP[a2, a5], a3, a6, n] + S2[a1, a4, SP[a2, a5], a6, a3, n] + 
    S2[a1, a4, SP[a3, a6], a2, a5, n] - S2[a1, a4, SP[a3, a6], a5, a2, n] - 
    S2[a1, a4, SP[a5, a6], a2, a3, n] - S2[a1, a4, SP[a5, a6], a3, a2, n] - 
    S2[a6, n]*S2[a1, a5, a2, a3, a4, n] - S2[a1, a5, a2, a3, SP[a4, a6], n] - 
    S2[a6, n]*S2[a1, a5, a2, a4, a3, n] - S2[a1, a5, a2, a4, SP[a3, a6], n] - 
    S2[a1, a5, a2, SP[a3, a6], a4, n] - S2[a1, a5, a2, SP[a4, a6], a3, n] - 
    S2[a6, n]*S2[a1, a5, a3, a2, a4, n] - S2[a1, a5, a3, a2, SP[a4, a6], n] - 
    S2[a6, n]*S2[a1, a5, a3, a4, a2, n] + 
    S2[a2, n]*S2[a1, a5, a3, a4, a6, n] + 
    S2[a2, n]*S2[a1, a5, a3, a6, a4, n] + S2[a1, a5, a3, a6, SP[a2, a4], n] + 
    S2[a1, a5, a3, SP[a2, a4], a6, n] - S2[a1, a5, a3, SP[a4, a6], a2, n] - 
    S2[a6, n]*S2[a1, a5, a4, a2, a3, n] - S2[a1, a5, a4, a2, SP[a3, a6], n] - 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] + 
    S2[a2, n]*S2[a1, a5, a4, a3, a6, n] + 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] + S2[a1, a5, a4, a6, SP[a2, a3], n] + 
    S2[a1, a5, a4, SP[a2, a3], a6, n] - S2[a1, a5, a4, SP[a3, a6], a2, n] + 
    S2[a2, n]*S2[a1, a5, a6, a3, a4, n] + S2[a1, a5, a6, a3, SP[a2, a4], n] + 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] + S2[a1, a5, a6, a4, SP[a2, a3], n] + 
    S2[a1, a5, a6, SP[a2, a3], a4, n] + S2[a1, a5, a6, SP[a2, a4], a3, n] + 
    S2[a1, a5, SP[a2, a3], a4, a6, n] + S2[a1, a5, SP[a2, a3], a6, a4, n] + 
    S2[a1, a5, SP[a2, a4], a3, a6, n] + S2[a1, a5, SP[a2, a4], a6, a3, n] - 
    S2[a1, a5, SP[a3, a6], a2, a4, n] - S2[a1, a5, SP[a3, a6], a4, a2, n] - 
    S2[a1, a5, SP[a4, a6], a2, a3, n] - S2[a1, a5, SP[a4, a6], a3, a2, n] - 
    S2[a4, n]*S2[a1, a6, a2, a3, a5, n] - S2[a1, a6, a2, a3, SP[a4, a5], n] - 
    S2[a4, n]*S2[a1, a6, a2, a5, a3, n] - S2[a1, a6, a2, a5, SP[a3, a4], n] - 
    S2[a1, a6, a2, SP[a3, a4], a5, n] - S2[a1, a6, a2, SP[a4, a5], a3, n] - 
    S2[a4, n]*S2[a1, a6, a3, a2, a5, n] - S2[a1, a6, a3, a2, SP[a4, a5], n] + 
    S2[a2, n]*S2[a1, a6, a3, a4, a5, n] + S2[a1, a6, a3, a4, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a6, a3, a5, a4, n] + S2[a1, a6, a3, a5, SP[a2, a4], n] + 
    S2[a1, a6, a3, SP[a2, a5], a4, n] + S2[a2, n]*S2[a1, a6, a4, a3, a5, n] + 
    S2[a1, a6, a4, a3, SP[a2, a5], n] + S2[a2, n]*S2[a1, a6, a4, a5, a3, n] + 
    S2[a1, a6, a4, a5, SP[a2, a3], n] + S2[a1, a6, a4, SP[a2, a3], a5, n] + 
    S2[a1, a6, a4, SP[a2, a5], a3, n] + S2[a2, n]*S2[a1, a6, a5, a3, a4, n] + 
    S2[a1, a6, a5, a3, SP[a2, a4], n] + S2[a2, n]*S2[a1, a6, a5, a4, a3, n] + 
    S2[a1, a6, a5, a4, SP[a2, a3], n] + S2[a1, a6, a5, SP[a2, a3], a4, n] + 
    S2[a1, a6, a5, SP[a2, a4], a3, n] + S2[a1, a6, SP[a2, a3], a4, a5, n] + 
    S2[a1, a6, SP[a2, a3], a5, a4, n] + S2[a1, a6, SP[a2, a5], a3, a4, n] + 
    S2[a1, a6, SP[a2, a5], a4, a3, n] - S2[a1, a6, SP[a3, a4], a2, a5, n] + 
    S2[a1, SP[a2, a5], a3, a4, a6, n] + S2[a1, SP[a2, a5], a3, a6, a4, n] + 
    S2[a1, SP[a2, a5], a4, a3, a6, n] + S2[a1, SP[a2, a5], a4, a6, a3, n] + 
    S2[a1, SP[a2, a5], a6, a3, a4, n] + S2[a1, SP[a2, a5], a6, a4, a3, n] + 
    S2[a1, SP[a2, a6], a3, a4, a5, n] + S2[a1, SP[a2, a6], a3, a5, a4, n] + 
    S2[a1, SP[a2, a6], a4, a3, a5, n] + S2[a1, SP[a2, a6], a4, a5, a3, n] + 
    S2[a1, SP[a2, a6], a5, a3, a4, n] + S2[a1, SP[a2, a6], a5, a4, a3, n] - 
    S2[a1, SP[a3, a6], a4, a5, a2, n] - S2[a1, SP[a3, a6], a5, a2, a4, n] - 
    S2[a1, SP[a3, a6], a5, a4, a2, n] - S2[a1, SP[a4, a6], a2, a3, a5, n] - 
    S2[a1, SP[a4, a6], a2, a5, a3, n] - S2[a1, SP[a4, a6], a3, a2, a5, n] - 
    S2[a1, SP[a4, a6], a3, a5, a2, n] - S2[a1, SP[a4, a6], a5, a2, a3, n] - 
    S2[a1, SP[a4, a6], a5, a3, a2, n] - S2[a1, SP[a5, a6], a2, a3, a4, n] - 
    S2[a1, SP[a5, a6], a2, a4, a3, n] - S2[a1, SP[a5, a6], a3, a2, a4, n] - 
    S2[a1, SP[a5, a6], a3, a4, a2, n] - S2[a1, SP[a5, a6], a4, a2, a3, n] - 
    S2[a1, SP[a5, a6], a4, a3, a2, n] - S2[a2, a1, a3, a4, SP[a5, a6], n] - 
    S2[a2, a1, a3, SP[a4, a5], a6, n] - S2[a2, a1, a4, a3, SP[a5, a6], n] - 
    S2[a2, a1, a4, a6, SP[a3, a5], n] - S2[a2, a1, a4, SP[a3, a5], a6, n] - 
    S2[a2, a1, a4, SP[a5, a6], a3, n] - S2[a2, a1, a5, a6, SP[a3, a4], n] - 
    S2[a2, a1, a5, SP[a3, a6], a4, n] - S2[a2, a1, a6, a4, SP[a3, a5], n] - 
    S2[a2, a1, a6, a5, SP[a3, a4], n] - S2[a2, a1, a6, SP[a3, a4], a5, n] - 
    S2[a2, a1, a6, SP[a3, a5], a4, n] - S2[a2, a1, SP[a3, a5], a4, a6, n] - 
    S2[a2, a1, SP[a3, a5], a6, a4, n] - S2[a2, a1, SP[a3, a6], a4, a5, n] - 
    S2[a2, a1, SP[a3, a6], a5, a4, n] - S2[a2, a1, SP[a4, a5], a3, a6, n] - 
    S2[a2, a1, SP[a4, a5], a6, a3, n] + S2[a6, n]*S2[a2, a5, a1, a3, a4, n] + 
    S2[a2, a5, a1, a3, SP[a4, a6], n] + S2[a6, n]*S2[a2, a5, a1, a4, a3, n] + 
    S2[a2, a5, a1, a4, SP[a3, a6], n] - S2[a2, a5, a1, a6, SP[a3, a4], n] + 
    S2[a2, a5, a1, SP[a4, a6], a3, n] - S2[a2, a5, a6, a1, SP[a3, a4], n] - 
    S2[a2, a5, a6, SP[a1, a4], a3, n] + S2[a4, n]*S2[a2, a6, a1, a3, a5, n] + 
    S2[a2, a6, a1, a3, SP[a4, a5], n] - S2[a2, a6, a1, a4, SP[a3, a5], n] + 
    S2[a4, n]*S2[a2, a6, a1, a5, a3, n] - S2[a2, a6, a1, SP[a3, a5], a4, n] + 
    S2[a2, a6, a1, SP[a4, a5], a3, n] + S2[a5, n]*S2[a2, a6, a4, a1, a3, n] - 
    S2[a2, a6, a5, a1, SP[a3, a4], n] - S2[a2, a6, a5, SP[a1, a4], a3, n] - 
    S2[a2, a6, SP[a1, a5], a3, a4, n] - S2[a2, a6, SP[a1, a5], a4, a3, n] + 
    S2[a2, a6, SP[a4, a5], a1, a3, n] - S2[a2, SP[a1, a5], a3, a4, a6, n] - 
    S2[a2, SP[a1, a5], a3, a6, a4, n] - S2[a2, SP[a1, a5], a4, a3, a6, n] - 
    S2[a2, SP[a1, a5], a4, a6, a3, n] - S2[a2, SP[a1, a5], a6, a3, a4, n] - 
    S2[a2, SP[a1, a5], a6, a4, a3, n] - S2[a2, SP[a1, a6], a3, a4, a5, n] - 
    S2[a2, SP[a1, a6], a3, a5, a4, n] - S2[a2, SP[a1, a6], a4, a3, a5, n] - 
    S2[a2, SP[a1, a6], a4, a5, a3, n] - S2[a2, SP[a1, a6], a5, a3, a4, n] - 
    S2[a2, SP[a1, a6], a5, a4, a3, n] + S2[a2, SP[a4, a6], a1, a3, a5, n] + 
    S2[a2, SP[a4, a6], a1, a5, a3, n] + S2[a2, SP[a5, a6], a1, a3, a4, n] + 
    S2[a2, SP[a5, a6], a1, a4, a3, n] + S2[a2, SP[a5, a6], a4, a1, a3, n] + 
    S2[a4, a1, a6, a2, SP[a3, a5], n] + S2[a4, a1, a6, SP[a2, a3], a5, n] + 
    S2[a4, a1, SP[a3, a6], a2, a5, n] + S2[a4, a6, a1, a2, SP[a3, a5], n] - 
    S2[a2, n]*S2[a4, a6, a1, a3, a5, n] - S2[a4, a6, a1, a3, SP[a2, a5], n] - 
    S2[a2, n]*S2[a4, a6, a1, a5, a3, n] - S2[a4, a6, a1, a5, SP[a2, a3], n] - 
    S2[a4, a6, a1, SP[a2, a5], a3, n] + S2[a4, a6, a2, a1, SP[a3, a5], n] + 
    S2[a4, a6, a2, SP[a1, a5], a3, n] + S2[a4, SP[a1, a6], a2, a3, a5, n] + 
    S2[a4, SP[a1, a6], a2, a5, a3, n] + S2[a4, SP[a1, a6], a3, a2, a5, n] - 
    S2[a4, SP[a2, a6], a1, a3, a5, n] - S2[a4, SP[a2, a6], a1, a5, a3, n] + 
    S2[a4, n]*S2[a6, a1, a3, a5, a2, n] + S2[a6, a1, a3, a5, SP[a2, a4], n] + 
    S2[a6, a1, a3, SP[a4, a5], a2, n] + S2[a4, n]*S2[a6, a1, a5, a2, a3, n] + 
    S2[a6, a1, a5, a2, SP[a3, a4], n] + S2[a4, n]*S2[a6, a1, a5, a3, a2, n] + 
    S2[a6, a1, a5, a3, SP[a2, a4], n] + S2[a6, a1, a5, SP[a2, a4], a3, n] + 
    S2[a6, a1, a5, SP[a3, a4], a2, n] + S2[a6, a1, SP[a3, a4], a5, a2, n] + 
    S2[a6, a1, SP[a4, a5], a2, a3, n] + S2[a6, a1, SP[a4, a5], a3, a2, n] - 
    S2[a4, n]*S2[a6, a2, a5, a1, a3, n] - S2[a6, a2, a5, a1, SP[a3, a4], n] - 
    S2[a6, a2, a5, SP[a1, a4], a3, n] - S2[a6, a2, SP[a4, a5], a1, a3, n] - 
    S2[a2, n]*S2[a6, a4, a1, a3, a5, n] - S2[a6, a4, a1, a3, SP[a2, a5], n] - 
    S2[a2, n]*S2[a6, a4, a1, a5, a3, n] - S2[a6, a4, a1, a5, SP[a2, a3], n] - 
    S2[a6, a4, a1, SP[a2, a3], a5, n] - S2[a6, a4, a1, SP[a2, a5], a3, n] - 
    S2[a6, a4, SP[a1, a2], a3, a5, n] - S2[a6, a4, SP[a1, a2], a5, a3, n] + 
    S2[a6, SP[a1, a4], a3, a5, a2, n] + S2[a6, SP[a1, a4], a5, a2, a3, n] + 
    S2[a6, SP[a1, a4], a5, a3, a2, n] - S2[a6, SP[a2, a4], a1, a3, a5, n] - 
    S2[a6, SP[a2, a4], a1, a5, a3, n] - S2[a6, SP[a2, a4], a5, a1, a3, n] - 
    S2[SP[a1, a6], a3, a4, a5, a2, n] - S2[SP[a1, a6], a3, a5, a2, a4, n] - 
    S2[SP[a1, a6], a3, a5, a4, a2, n] - S2[SP[a1, a6], a4, a3, a5, a2, n] - 
    S2[SP[a1, a6], a4, a5, a2, a3, n] - S2[SP[a1, a6], a4, a5, a3, a2, n] - 
    S2[SP[a1, a6], a5, a2, a3, a4, n] - S2[SP[a1, a6], a5, a2, a4, a3, n] - 
    S2[SP[a1, a6], a5, a3, a2, a4, n] - S2[SP[a1, a6], a5, a3, a4, a2, n] - 
    S2[SP[a1, a6], a5, a4, a2, a3, n] - S2[SP[a1, a6], a5, a4, a3, a2, n] + 
    S2[SP[a2, a5], a6, a4, a1, a3, n] - S2[SP[a2, a6], a4, a1, a3, a5, n] - 
    S2[SP[a2, a6], a4, a1, a5, a3, n] + S2[SP[a2, a6], a5, a1, a3, a4, n] + 
    S2[SP[a2, a6], a5, a1, a4, a3, n] + S2[SP[a4, a6], a1, a3, a5, a2, n] + 
    S2[SP[a4, a6], a1, a5, a2, a3, n] + S2[SP[a4, a6], a1, a5, a3, a2, n] - 
    S2[SP[a4, a6], a2, a5, a1, a3, n] + S2[a6, a2, a4, a1, a3, a5, n] + 
    S2[a6, a2, a4, a1, a5, a3, n] + S2[a6, a2, a4, a5, a1, a3, n] + 
    S2[a6, a2, a5, a4, a1, a3, n] + S2[a6, a4, a1, a2, a3, a5, n] + 
    S2[a6, a4, a1, a2, a5, a3, n] + S2[a6, a4, a1, a3, a2, a5, n] + 
    S2[a6, a4, a2, a1, a3, a5, n] + S2[a6, a4, a2, a1, a5, a3, n] + 
    S2[a6, a4, a2, a5, a1, a3, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a5_, a2_, a6_, a4_, a3_, a1_, n_] :> 
  S2[a2, a5, n]*S2[a1, a3, a4, a6, n] - S2[a1, a3, SP[a2, a4], SP[a5, a6], 
     n] - S2[a1, SP[a2, a3], a4, SP[a5, a6], n] - 
    S2[a1, SP[a2, a3], SP[a4, a5], a6, n] + S2[a1, a3, n]*
     S2[a2, a5, a6, a4, n] - S2[a2, a5, SP[a1, a6], SP[a3, a4], n] + 
    S2[a1, a3, n]*S2[a2, a6, a4, a5, n] + S2[a1, a3, n]*
     S2[a2, a6, a5, a4, n] - S2[a2, a6, SP[a1, a4], SP[a3, a5], n] - 
    S2[a2, a6, SP[a1, a5], SP[a3, a4], n] - S2[a2, SP[a1, a5], a6, 
     SP[a3, a4], n] - S2[a2, SP[a1, a5], SP[a3, a6], a4, n] - 
    S2[a2, SP[a1, a6], a4, SP[a3, a5], n] - S2[a2, SP[a1, a6], a5, 
     SP[a3, a4], n] - S2[a2, SP[a1, a6], SP[a3, a4], a5, n] - 
    S2[a2, SP[a1, a6], SP[a3, a5], a4, n] - S2[a1, a3, n]*
     S2[a4, a6, a2, a5, n] + S2[a4, a6, SP[a1, a2], SP[a3, a5], n] + 
    S2[a4, SP[a1, a6], a2, SP[a3, a5], n] + S2[a4, SP[a1, a6], SP[a2, a3], 
     a5, n] - S2[SP[a1, a2], a3, a4, SP[a5, a6], n] - 
    S2[SP[a1, a2], a3, SP[a4, a5], a6, n] - S2[SP[a1, a2], a5, a6, 
     SP[a3, a4], n] - S2[SP[a1, a2], a5, SP[a3, a6], a4, n] - 
    S2[SP[a1, a2], a6, a4, SP[a3, a5], n] - S2[SP[a1, a2], a6, a5, 
     SP[a3, a4], n] - S2[SP[a1, a2], a6, SP[a3, a4], a5, n] - 
    S2[SP[a1, a2], a6, SP[a3, a5], a4, n] - S2[SP[a1, a2], SP[a3, a5], a4, 
     a6, n] - S2[SP[a1, a2], SP[a3, a5], a6, a4, n] - 
    S2[SP[a1, a2], SP[a3, a6], a4, a5, n] - S2[SP[a1, a2], SP[a3, a6], a5, 
     a4, n] + S2[SP[a1, a4], a6, a2, SP[a3, a5], n] + 
    S2[SP[a1, a4], a6, SP[a2, a3], a5, n] + S2[SP[a1, a4], SP[a3, a6], a2, 
     a5, n] + S2[a1, a2, a3, a4, SP[a5, a6], n] + S2[a1, a2, a3, SP[a4, a5], 
     a6, n] + S2[a1, a2, a5, a6, SP[a3, a4], n] + S2[a1, a2, a5, SP[a3, a6], 
     a4, n] + S2[a1, a2, a6, a4, SP[a3, a5], n] + 
    S2[a1, a2, a6, a5, SP[a3, a4], n] + S2[a1, a2, a6, SP[a3, a4], a5, n] + 
    S2[a1, a2, a6, SP[a3, a5], a4, n] + S2[a1, a2, SP[a3, a5], a4, a6, n] + 
    S2[a1, a2, SP[a3, a5], a6, a4, n] + S2[a1, a2, SP[a3, a6], a4, a5, n] + 
    S2[a1, a2, SP[a3, a6], a5, a4, n] + S2[a1, a3, a2, a4, SP[a5, a6], n] + 
    S2[a1, a3, a2, SP[a4, a5], a6, n] + S2[a1, a3, a4, a2, SP[a5, a6], n] + 
    S2[a6, n]*S2[a1, a3, a4, a5, a2, n] - 
    S2[a2, n]*S2[a1, a3, a4, a5, a6, n] - 
    S2[a2, n]*S2[a1, a3, a4, a6, a5, n] - S2[a1, a3, a4, a6, SP[a2, a5], n] - 
    S2[a1, a3, a4, SP[a2, a5], a6, n] + S2[a1, a3, a4, SP[a5, a6], a2, n] + 
    S2[a6, n]*S2[a1, a3, a5, a2, a4, n] + S2[a1, a3, a5, a2, SP[a4, a6], n] + 
    S2[a6, n]*S2[a1, a3, a5, a4, a2, n] - 
    S2[a2, n]*S2[a1, a3, a5, a4, a6, n] - 
    S2[a2, n]*S2[a1, a3, a5, a6, a4, n] - S2[a1, a3, a5, a6, SP[a2, a4], n] - 
    S2[a1, a3, a5, SP[a2, a4], a6, n] + S2[a1, a3, a5, SP[a4, a6], a2, n] + 
    S2[a4, n]*S2[a1, a3, a6, a2, a5, n] + S2[a1, a3, a6, a2, SP[a4, a5], n] - 
    S2[a2, n]*S2[a1, a3, a6, a4, a5, n] - S2[a1, a3, a6, a4, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a3, a6, a5, a4, n] - S2[a1, a3, a6, a5, SP[a2, a4], n] - 
    S2[a1, a3, a6, SP[a2, a5], a4, n] - S2[a1, a3, SP[a2, a5], a4, a6, n] - 
    S2[a1, a3, SP[a2, a5], a6, a4, n] - S2[a1, a3, SP[a2, a6], a4, a5, n] - 
    S2[a1, a3, SP[a2, a6], a5, a4, n] + S2[a1, a3, SP[a4, a6], a2, a5, n] + 
    S2[a1, a3, SP[a4, a6], a5, a2, n] + S2[a1, a3, SP[a5, a6], a2, a4, n] + 
    S2[a1, a3, SP[a5, a6], a4, a2, n] - S2[a1, a4, a6, a2, SP[a3, a5], n] - 
    S2[a1, a4, a6, SP[a2, a3], a5, n] - S2[a1, a4, SP[a3, a6], a2, a5, n] + 
    S2[a6, n]*S2[a1, a5, a2, a3, a4, n] + S2[a1, a5, a2, a3, SP[a4, a6], n] + 
    S2[a1, a5, a2, SP[a3, a6], a4, n] + S2[a6, n]*S2[a1, a5, a3, a2, a4, n] + 
    S2[a1, a5, a3, a2, SP[a4, a6], n] + S2[a6, n]*S2[a1, a5, a3, a4, a2, n] - 
    S2[a2, n]*S2[a1, a5, a3, a4, a6, n] - 
    S2[a2, n]*S2[a1, a5, a3, a6, a4, n] - S2[a1, a5, a3, a6, SP[a2, a4], n] - 
    S2[a1, a5, a3, SP[a2, a4], a6, n] + S2[a1, a5, a3, SP[a4, a6], a2, n] - 
    S2[a2, n]*S2[a1, a5, a6, a3, a4, n] - S2[a1, a5, a6, a3, SP[a2, a4], n] - 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] - S2[a1, a5, a6, a4, SP[a2, a3], n] - 
    S2[a1, a5, a6, SP[a2, a3], a4, n] - S2[a1, a5, a6, SP[a2, a4], a3, n] - 
    S2[a1, a5, SP[a2, a3], a4, a6, n] - S2[a1, a5, SP[a2, a3], a6, a4, n] - 
    S2[a1, a5, SP[a2, a6], a4, a3, n] + S2[a1, a5, SP[a3, a6], a2, a4, n] + 
    S2[a1, a5, SP[a3, a6], a4, a2, n] + S2[a4, n]*S2[a1, a6, a2, a3, a5, n] + 
    S2[a1, a6, a2, a3, SP[a4, a5], n] + S2[a5, n]*S2[a1, a6, a2, a4, a3, n] + 
    S2[a1, a6, a2, a4, SP[a3, a5], n] + S2[a4, n]*S2[a1, a6, a2, a5, a3, n] + 
    S2[a1, a6, a2, a5, SP[a3, a4], n] + S2[a1, a6, a2, SP[a3, a4], a5, n] + 
    2*S2[a1, a6, a2, SP[a4, a5], a3, n] + 
    S2[a4, n]*S2[a1, a6, a3, a2, a5, n] + S2[a1, a6, a3, a2, SP[a4, a5], n] - 
    S2[a2, n]*S2[a1, a6, a3, a4, a5, n] - S2[a1, a6, a3, a4, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a6, a3, a5, a4, n] - S2[a1, a6, a3, a5, SP[a2, a4], n] - 
    S2[a1, a6, a3, SP[a2, a5], a4, n] + S2[a5, n]*S2[a1, a6, a4, a2, a3, n] + 
    S2[a1, a6, a4, a2, SP[a3, a5], n] + S2[a5, n]*S2[a1, a6, a4, a3, a2, n] - 
    S2[a2, n]*S2[a1, a6, a4, a3, a5, n] - 
    S2[a2, n]*S2[a1, a6, a4, a5, a3, n] - S2[a1, a6, a4, a5, SP[a2, a3], n] - 
    S2[a1, a6, a4, SP[a2, a3], a5, n] + S2[a1, a6, a4, SP[a3, a5], a2, n] - 
    S2[a2, n]*S2[a1, a6, a5, a3, a4, n] - S2[a1, a6, a5, a3, SP[a2, a4], n] - 
    S2[a2, n]*S2[a1, a6, a5, a4, a3, n] - S2[a1, a6, a5, a4, SP[a2, a3], n] - 
    S2[a1, a6, a5, SP[a2, a3], a4, n] - S2[a1, a6, a5, SP[a2, a4], a3, n] - 
    S2[a1, a6, SP[a2, a3], a4, a5, n] - S2[a1, a6, SP[a2, a3], a5, a4, n] - 
    S2[a1, a6, SP[a2, a5], a3, a4, n] + S2[a1, a6, SP[a3, a4], a2, a5, n] + 
    S2[a1, a6, SP[a4, a5], a2, a3, n] + S2[a1, a6, SP[a4, a5], a3, a2, n] - 
    S2[a1, SP[a2, a5], a3, a4, a6, n] - S2[a1, SP[a2, a5], a3, a6, a4, n] - 
    S2[a1, SP[a2, a5], a6, a3, a4, n] - S2[a1, SP[a2, a5], a6, a4, a3, n] - 
    S2[a1, SP[a2, a6], a3, a4, a5, n] - S2[a1, SP[a2, a6], a3, a5, a4, n] - 
    S2[a1, SP[a2, a6], a4, a3, a5, n] - S2[a1, SP[a2, a6], a4, a5, a3, n] - 
    S2[a1, SP[a2, a6], a5, a3, a4, n] - S2[a1, SP[a2, a6], a5, a4, a3, n] + 
    S2[a1, SP[a3, a6], a4, a5, a2, n] + S2[a1, SP[a3, a6], a5, a2, a4, n] + 
    S2[a1, SP[a3, a6], a5, a4, a2, n] + S2[a1, SP[a4, a6], a2, a3, a5, n] + 
    S2[a1, SP[a4, a6], a2, a5, a3, n] + S2[a1, SP[a4, a6], a3, a2, a5, n] + 
    S2[a1, SP[a5, a6], a2, a3, a4, n] + S2[a1, SP[a5, a6], a2, a4, a3, n] + 
    S2[a1, SP[a5, a6], a3, a2, a4, n] + S2[a1, SP[a5, a6], a3, a4, a2, n] + 
    S2[a1, SP[a5, a6], a4, a2, a3, n] + S2[a1, SP[a5, a6], a4, a3, a2, n] + 
    S2[a2, a1, a3, a4, SP[a5, a6], n] + S2[a2, a1, a3, SP[a4, a5], a6, n] + 
    S2[a2, a1, a5, a6, SP[a3, a4], n] + S2[a2, a1, a5, SP[a3, a6], a4, n] + 
    S2[a2, a1, a6, a4, SP[a3, a5], n] + S2[a2, a1, a6, a5, SP[a3, a4], n] + 
    S2[a2, a1, a6, SP[a3, a4], a5, n] + S2[a2, a1, a6, SP[a3, a5], a4, n] + 
    S2[a2, a1, SP[a3, a5], a4, a6, n] + S2[a2, a1, SP[a3, a5], a6, a4, n] + 
    S2[a2, a1, SP[a3, a6], a4, a5, n] + S2[a2, a1, SP[a3, a6], a5, a4, n] - 
    S2[a6, n]*S2[a2, a5, a1, a3, a4, n] - S2[a2, a5, a1, a3, SP[a4, a6], n] + 
    S2[a2, a5, a1, a6, SP[a3, a4], n] + S2[a2, a5, a6, a1, SP[a3, a4], n] + 
    S2[a2, a5, a6, SP[a1, a4], a3, n] + S2[a2, a5, SP[a1, a6], a4, a3, n] - 
    S2[a4, n]*S2[a2, a6, a1, a3, a5, n] - S2[a2, a6, a1, a3, SP[a4, a5], n] - 
    S2[a5, n]*S2[a2, a6, a1, a4, a3, n] - 
    S2[a4, n]*S2[a2, a6, a1, a5, a3, n] + S2[a2, a6, a1, SP[a3, a5], a4, n] - 
    2*S2[a2, a6, a1, SP[a4, a5], a3, n] - 
    S2[a5, n]*S2[a2, a6, a4, a1, a3, n] + S2[a2, a6, a5, a1, SP[a3, a4], n] + 
    S2[a2, a6, a5, SP[a1, a4], a3, n] + S2[a2, a6, SP[a1, a5], a3, a4, n] - 
    S2[a2, a6, SP[a4, a5], a1, a3, n] + S2[a2, SP[a1, a5], a3, a4, a6, n] + 
    S2[a2, SP[a1, a5], a3, a6, a4, n] + S2[a2, SP[a1, a5], a6, a3, a4, n] + 
    S2[a2, SP[a1, a5], a6, a4, a3, n] + S2[a2, SP[a1, a6], a3, a4, a5, n] + 
    S2[a2, SP[a1, a6], a3, a5, a4, n] + S2[a2, SP[a1, a6], a4, a3, a5, n] + 
    S2[a2, SP[a1, a6], a4, a5, a3, n] + S2[a2, SP[a1, a6], a5, a3, a4, n] + 
    S2[a2, SP[a1, a6], a5, a4, a3, n] - S2[a2, SP[a4, a6], a1, a3, a5, n] - 
    S2[a2, SP[a4, a6], a1, a5, a3, n] - S2[a2, SP[a5, a6], a1, a3, a4, n] - 
    S2[a2, SP[a5, a6], a1, a4, a3, n] - S2[a2, SP[a5, a6], a4, a1, a3, n] - 
    S2[a4, a1, a6, a2, SP[a3, a5], n] - S2[a4, a1, a6, SP[a2, a3], a5, n] - 
    S2[a4, a1, SP[a3, a6], a2, a5, n] - S2[a4, a6, a1, a2, SP[a3, a5], n] + 
    S2[a2, n]*S2[a4, a6, a1, a3, a5, n] + S2[a4, a6, a1, a3, SP[a2, a5], n] + 
    S2[a2, n]*S2[a4, a6, a1, a5, a3, n] + S2[a4, a6, a1, a5, SP[a2, a3], n] + 
    S2[a4, a6, a1, SP[a2, a5], a3, n] - S2[a4, a6, a2, a1, SP[a3, a5], n] - 
    S2[a4, a6, a2, SP[a1, a5], a3, n] - S2[a4, SP[a1, a6], a2, a3, a5, n] - 
    S2[a4, SP[a1, a6], a2, a5, a3, n] - S2[a4, SP[a1, a6], a3, a2, a5, n] + 
    S2[a4, SP[a2, a6], a1, a3, a5, n] + S2[a4, SP[a2, a6], a1, a5, a3, n] - 
    S2[a2, n]*S2[a5, a1, a6, a4, a3, n] - S2[a5, a1, a6, a4, SP[a2, a3], n] - 
    S2[a5, a1, a6, SP[a2, a4], a3, n] - S2[a5, a1, SP[a2, a6], a4, a3, n] + 
    S2[a1, n]*S2[a5, a2, a6, a4, a3, n] + S2[a5, a2, a6, a4, SP[a1, a3], n] + 
    S2[a5, a2, a6, SP[a1, a4], a3, n] + S2[a5, a2, SP[a1, a6], a4, a3, n] - 
    S2[a4, n]*S2[a6, a1, a3, a5, a2, n] - S2[a6, a1, a3, a5, SP[a2, a4], n] - 
    S2[a6, a1, a3, SP[a4, a5], a2, n] + S2[a2, n]*S2[a6, a1, a4, a3, a5, n] + 
    S2[a6, a1, a4, a3, SP[a2, a5], n] + S2[a2, n]*S2[a6, a1, a4, a5, a3, n] + 
    S2[a6, a1, a4, a5, SP[a2, a3], n] + S2[a6, a1, a4, SP[a2, a3], a5, n] + 
    S2[a6, a1, a4, SP[a2, a5], a3, n] - S2[a4, n]*S2[a6, a1, a5, a2, a3, n] - 
    S2[a6, a1, a5, a2, SP[a3, a4], n] - S2[a4, n]*S2[a6, a1, a5, a3, a2, n] - 
    S2[a6, a1, a5, a3, SP[a2, a4], n] + S2[a2, n]*S2[a6, a1, a5, a4, a3, n] + 
    S2[a6, a1, a5, a4, SP[a2, a3], n] - S2[a6, a1, a5, SP[a3, a4], a2, n] + 
    S2[a6, a1, SP[a2, a4], a3, a5, n] + S2[a6, a1, SP[a2, a4], a5, a3, n] + 
    S2[a6, a1, SP[a2, a5], a4, a3, n] - S2[a6, a1, SP[a3, a4], a5, a2, n] - 
    S2[a6, a1, SP[a4, a5], a2, a3, n] - S2[a6, a1, SP[a4, a5], a3, a2, n] - 
    S2[a1, n]*S2[a6, a2, a4, a3, a5, n] - S2[a6, a2, a4, a3, SP[a1, a5], n] - 
    S2[a1, n]*S2[a6, a2, a4, a5, a3, n] - S2[a6, a2, a4, a5, SP[a1, a3], n] - 
    S2[a6, a2, a4, SP[a1, a3], a5, n] - S2[a6, a2, a4, SP[a1, a5], a3, n] + 
    S2[a4, n]*S2[a6, a2, a5, a1, a3, n] + S2[a6, a2, a5, a1, SP[a3, a4], n] - 
    S2[a1, n]*S2[a6, a2, a5, a4, a3, n] - S2[a6, a2, a5, a4, SP[a1, a3], n] - 
    S2[a6, a2, SP[a1, a4], a3, a5, n] - S2[a6, a2, SP[a1, a4], a5, a3, n] - 
    S2[a6, a2, SP[a1, a5], a4, a3, n] + S2[a6, a2, SP[a4, a5], a1, a3, n] + 
    S2[a2, n]*S2[a6, a4, a1, a3, a5, n] + S2[a6, a4, a1, a3, SP[a2, a5], n] + 
    S2[a2, n]*S2[a6, a4, a1, a5, a3, n] + S2[a6, a4, a1, a5, SP[a2, a3], n] + 
    S2[a6, a4, a1, SP[a2, a3], a5, n] + S2[a6, a4, a1, SP[a2, a5], a3, n] - 
    S2[a1, n]*S2[a6, a4, a2, a3, a5, n] - S2[a6, a4, a2, a3, SP[a1, a5], n] - 
    S2[a1, n]*S2[a6, a4, a2, a5, a3, n] - S2[a6, a4, a2, a5, SP[a1, a3], n] - 
    S2[a6, a4, a2, SP[a1, a3], a5, n] - S2[a6, a4, a2, SP[a1, a5], a3, n] - 
    S2[a1, n]*S2[a6, a4, a3, a2, a5, n] - S2[a6, a4, a3, a2, SP[a1, a5], n] - 
    S2[a6, a4, a3, SP[a1, a2], a5, n] - S2[a6, a4, SP[a1, a3], a2, a5, n] - 
    S2[a6, SP[a1, a4], a2, a3, a5, n] - S2[a6, SP[a1, a4], a2, a5, a3, n] - 
    S2[a6, SP[a1, a4], a3, a2, a5, n] - S2[a6, SP[a1, a4], a3, a5, a2, n] - 
    S2[a6, SP[a1, a4], a5, a2, a3, n] - S2[a6, SP[a1, a4], a5, a3, a2, n] + 
    S2[a6, SP[a2, a4], a1, a3, a5, n] + S2[a6, SP[a2, a4], a1, a5, a3, n] + 
    S2[a6, SP[a2, a4], a5, a1, a3, n] + S2[SP[a1, a5], a2, a6, a4, a3, n] + 
    S2[SP[a1, a5], a6, a2, a4, a3, n] + S2[SP[a1, a5], a6, a4, a2, a3, n] + 
    S2[SP[a1, a5], a6, a4, a3, a2, n] - S2[SP[a1, a6], a2, a4, a3, a5, n] - 
    S2[SP[a1, a6], a2, a4, a5, a3, n] - S2[SP[a1, a6], a2, a5, a4, a3, n] + 
    S2[SP[a1, a6], a3, a4, a5, a2, n] + S2[SP[a1, a6], a3, a5, a2, a4, n] + 
    S2[SP[a1, a6], a3, a5, a4, a2, n] - S2[SP[a1, a6], a4, a2, a3, a5, n] - 
    S2[SP[a1, a6], a4, a2, a5, a3, n] - S2[SP[a1, a6], a4, a3, a2, a5, n] + 
    S2[SP[a1, a6], a5, a2, a3, a4, n] + S2[SP[a1, a6], a5, a3, a2, a4, n] + 
    S2[SP[a1, a6], a5, a3, a4, a2, n] - S2[SP[a2, a5], a1, a6, a4, a3, n] - 
    S2[SP[a2, a5], a6, a1, a4, a3, n] - S2[SP[a2, a5], a6, a4, a1, a3, n] + 
    S2[SP[a2, a6], a1, a4, a3, a5, n] + S2[SP[a2, a6], a1, a4, a5, a3, n] + 
    S2[SP[a2, a6], a1, a5, a4, a3, n] + S2[SP[a2, a6], a4, a1, a3, a5, n] + 
    S2[SP[a2, a6], a4, a1, a5, a3, n] - S2[SP[a2, a6], a5, a1, a3, a4, n] - 
    S2[SP[a4, a6], a1, a3, a5, a2, n] - S2[SP[a4, a6], a1, a5, a2, a3, n] - 
    S2[SP[a4, a6], a1, a5, a3, a2, n] + S2[SP[a4, a6], a2, a5, a1, a3, n] + 
    S2[a6, a2, a4, a3, a1, a5, n] + S2[a6, a2, a4, a3, a5, a1, n] + 
    S2[a6, a2, a4, a5, a3, a1, n] + S2[a6, a2, a5, a4, a3, a1, n] + 
    S2[a6, a4, a2, a3, a1, a5, n] + S2[a6, a4, a2, a3, a5, a1, n] + 
    S2[a6, a4, a2, a5, a3, a1, n] + S2[a6, a4, a3, a1, a2, a5, n] + 
    S2[a6, a4, a3, a2, a1, a5, n] + S2[a6, a4, a3, a2, a5, a1, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a5_, a3_, a1_, a2_, a4_, a6_, n_] :> 
  S2[a1, a3, a5, n]*S2[a2, a4, a6, n] + S2[SP[a1, a2], SP[a3, a4], 
     SP[a5, a6], n] + S2[a4, a6, n]*S2[a1, a2, a3, a5, n] - 
    S2[a3, a5, n]*S2[a1, a2, a4, a6, n] - S2[a1, a2, SP[a3, a4], SP[a5, a6], 
     n] + S2[a4, a6, n]*S2[a1, a3, a2, a5, n] + 
    S2[a4, a6, n]*S2[a1, a3, a5, a2, n] - S2[a1, a3, SP[a2, a4], SP[a5, a6], 
     n] - S2[a1, a3, SP[a4, a5], SP[a2, a6], n] - S2[a1, SP[a2, a4], a3, 
     SP[a5, a6], n] - S2[a1, SP[a2, a4], SP[a3, a6], a5, n] - 
    S2[a1, SP[a3, a4], a2, SP[a5, a6], n] - S2[a1, SP[a3, a4], a5, 
     SP[a2, a6], n] - S2[a1, SP[a3, a4], SP[a2, a6], a5, n] - 
    S2[a1, SP[a3, a4], SP[a5, a6], a2, n] - S2[a2, a1, SP[a3, a4], 
     SP[a5, a6], n] - S2[a2, SP[a1, a4], a3, SP[a5, a6], n] - 
    S2[a2, SP[a1, a4], SP[a3, a6], a5, n] - S2[SP[a1, a2], a3, a4, 
     SP[a5, a6], n] - S2[SP[a1, a2], a3, SP[a4, a5], a6, n] - 
    S2[SP[a1, a2], a4, a3, SP[a5, a6], n] - S2[SP[a1, a2], a4, SP[a3, a6], 
     a5, n] - S2[SP[a1, a2], SP[a3, a4], a5, a6, n] - 
    S2[SP[a1, a2], SP[a3, a4], a6, a5, n] + S2[SP[a1, a3], a2, a4, 
     SP[a5, a6], n] + S2[SP[a1, a3], a2, SP[a4, a5], a6, n] + 
    S2[SP[a1, a3], SP[a2, a5], a4, a6, n] - S2[SP[a1, a4], a2, a3, 
     SP[a5, a6], n] - S2[SP[a1, a4], a2, SP[a3, a6], a5, n] - 
    S2[SP[a1, a4], a3, a2, SP[a5, a6], n] - S2[SP[a1, a4], a3, a5, 
     SP[a2, a6], n] - S2[SP[a1, a4], a3, SP[a2, a6], a5, n] - 
    S2[SP[a1, a4], a3, SP[a5, a6], a2, n] - S2[SP[a1, a4], SP[a2, a6], a3, 
     a5, n] - S2[SP[a1, a4], SP[a3, a6], a2, a5, n] - 
    S2[SP[a1, a4], SP[a3, a6], a5, a2, n] + 
    S2[a6, n]*S2[a1, a2, a3, a4, a5, n] - 
    S2[a5, n]*S2[a1, a2, a3, a4, a6, n] + S2[a1, a2, a3, a4, SP[a5, a6], n] + 
    S2[a6, n]*S2[a1, a2, a3, a5, a4, n] - 
    S2[a4, n]*S2[a1, a2, a3, a5, a6, n] - 
    S2[a4, n]*S2[a1, a2, a3, a6, a5, n] - S2[a1, a2, a3, a6, SP[a4, a5], n] - 
    S2[a1, a2, a3, SP[a4, a5], a6, n] + S2[a1, a2, a3, SP[a5, a6], a4, n] + 
    S2[a6, n]*S2[a1, a2, a4, a3, a5, n] - 
    S2[a5, n]*S2[a1, a2, a4, a3, a6, n] + S2[a1, a2, a4, a3, SP[a5, a6], n] + 
    S2[a3, n]*S2[a1, a2, a4, a5, a6, n] + S2[a1, a2, a4, a5, SP[a3, a6], n] - 
    S2[a5, n]*S2[a1, a2, a4, a6, a3, n] + 
    S2[a3, n]*S2[a1, a2, a4, a6, a5, n] + 
    3*S2[a1, a2, a4, SP[a3, a6], a5, n] - S2[a1, a2, a4, SP[a5, a6], a3, n] + 
    S2[a3, n]*S2[a1, a2, a5, a4, a6, n] + S2[a1, a2, a5, a4, SP[a3, a6], n] + 
    S2[a1, a2, a5, SP[a3, a4], a6, n] - S2[a4, n]*S2[a1, a2, a6, a3, a5, n] - 
    S2[a1, a2, a6, a3, SP[a4, a5], n] - S2[a1, a2, a6, SP[a3, a4], a5, n] + 
    S2[a1, a2, SP[a3, a4], a5, a6, n] + S2[a1, a2, SP[a3, a4], a6, a5, n] + 
    S2[a1, a2, SP[a3, a6], a4, a5, n] + S2[a1, a2, SP[a3, a6], a5, a4, n] - 
    S2[a1, a2, SP[a4, a5], a3, a6, n] - S2[a1, a2, SP[a4, a5], a6, a3, n] + 
    S2[a6, n]*S2[a1, a3, a2, a4, a5, n] - 
    S2[a5, n]*S2[a1, a3, a2, a4, a6, n] + S2[a1, a3, a2, a4, SP[a5, a6], n] + 
    S2[a6, n]*S2[a1, a3, a2, a5, a4, n] - 
    S2[a4, n]*S2[a1, a3, a2, a5, a6, n] - 
    S2[a4, n]*S2[a1, a3, a2, a6, a5, n] - S2[a1, a3, a2, a6, SP[a4, a5], n] - 
    S2[a1, a3, a2, SP[a4, a5], a6, n] + S2[a1, a3, a2, SP[a5, a6], a4, n] + 
    S2[a6, n]*S2[a1, a3, a4, a2, a5, n] + 
    2*S2[a1, a3, a4, a2, SP[a5, a6], n] + 
    S2[a6, n]*S2[a1, a3, a4, a5, a2, n] - 
    S2[a2, n]*S2[a1, a3, a4, a5, a6, n] + S2[a1, a3, a4, a5, SP[a2, a6], n] - 
    S2[a2, n]*S2[a1, a3, a4, a6, a5, n] - S2[a1, a3, a4, a6, SP[a2, a5], n] - 
    S2[a1, a3, a4, SP[a2, a5], a6, n] + S2[a1, a3, a4, SP[a2, a6], a5, n] + 
    2*S2[a1, a3, a4, SP[a5, a6], a2, n] + 
    S2[a6, n]*S2[a1, a3, a5, a2, a4, n] - 
    S2[a4, n]*S2[a1, a3, a5, a2, a6, n] + 
    S2[a6, n]*S2[a1, a3, a5, a4, a2, n] - 
    S2[a2, n]*S2[a1, a3, a5, a4, a6, n] + S2[a1, a3, a5, a4, SP[a2, a6], n] - 
    S2[a4, n]*S2[a1, a3, a5, a6, a2, n] - S2[a1, a3, a5, a6, SP[a2, a4], n] - 
    S2[a1, a3, a5, SP[a2, a4], a6, n] + S2[a1, a3, a5, SP[a2, a6], a4, n] - 
    S2[a4, n]*S2[a1, a3, a6, a2, a5, n] - S2[a1, a3, a6, a2, SP[a4, a5], n] - 
    S2[a4, n]*S2[a1, a3, a6, a5, a2, n] - S2[a1, a3, a6, a5, SP[a2, a4], n] - 
    S2[a1, a3, a6, SP[a2, a4], a5, n] - S2[a1, a3, a6, SP[a4, a5], a2, n] - 
    S2[a1, a3, SP[a2, a4], a5, a6, n] - S2[a1, a3, SP[a2, a4], a6, a5, n] - 
    2*S2[a1, a3, SP[a2, a5], a4, a6, n] + S2[a1, a3, SP[a2, a6], a4, a5, n] + 
    S2[a1, a3, SP[a2, a6], a5, a4, n] + S2[a1, a3, SP[a5, a6], a2, a4, n] + 
    S2[a1, a3, SP[a5, a6], a4, a2, n] + S2[a6, n]*S2[a1, a4, a2, a3, a5, n] + 
    2*S2[a1, a4, a2, a3, SP[a5, a6], n] + 
    2*S2[a1, a4, a2, SP[a3, a6], a5, n] + 
    S2[a6, n]*S2[a1, a4, a3, a2, a5, n] + 
    2*S2[a1, a4, a3, a2, SP[a5, a6], n] + 
    S2[a6, n]*S2[a1, a4, a3, a5, a2, n] - 
    S2[a2, n]*S2[a1, a4, a3, a5, a6, n] + S2[a1, a4, a3, a5, SP[a2, a6], n] - 
    S2[a2, n]*S2[a1, a4, a3, a6, a5, n] - S2[a1, a4, a3, a6, SP[a2, a5], n] - 
    S2[a1, a4, a3, SP[a2, a5], a6, n] + S2[a1, a4, a3, SP[a2, a6], a5, n] + 
    2*S2[a1, a4, a3, SP[a5, a6], a2, n] - 
    S2[a2, n]*S2[a1, a4, a6, a3, a5, n] - S2[a1, a4, a6, a3, SP[a2, a5], n] - 
    S2[a1, a4, a6, SP[a2, a3], a5, n] - S2[a1, a4, SP[a2, a3], a5, a6, n] - 
    S2[a1, a4, SP[a2, a3], a6, a5, n] + S2[a1, a4, SP[a2, a6], a3, a5, n] + 
    2*S2[a1, a4, SP[a3, a6], a2, a5, n] + 
    2*S2[a1, a4, SP[a3, a6], a5, a2, n] + 
    S2[a3, n]*S2[a1, a5, a2, a4, a6, n] + S2[a1, a5, a2, a4, SP[a3, a6], n] + 
    S2[a1, a5, a2, SP[a3, a4], a6, n] + S2[a1, a5, SP[a2, a3], a4, a6, n] - 
    S2[a4, n]*S2[a1, a6, a2, a3, a5, n] - S2[a1, a6, a2, a3, SP[a4, a5], n] - 
    S2[a1, a6, a2, SP[a3, a4], a5, n] - S2[a4, n]*S2[a1, a6, a3, a2, a5, n] - 
    S2[a1, a6, a3, a2, SP[a4, a5], n] - S2[a4, n]*S2[a1, a6, a3, a5, a2, n] - 
    S2[a1, a6, a3, a5, SP[a2, a4], n] - S2[a1, a6, a3, SP[a2, a4], a5, n] - 
    S2[a1, a6, a3, SP[a4, a5], a2, n] - S2[a1, a6, SP[a2, a4], a3, a5, n] - 
    S2[a1, a6, SP[a3, a4], a2, a5, n] - S2[a1, a6, SP[a3, a4], a5, a2, n] - 
    S2[a1, SP[a2, a4], a3, a5, a6, n] - S2[a1, SP[a2, a4], a3, a6, a5, n] - 
    S2[a1, SP[a2, a4], a6, a3, a5, n] - S2[a1, SP[a2, a5], a3, a4, a6, n] - 
    S2[a1, SP[a2, a5], a4, a3, a6, n] - S2[a1, SP[a2, a5], a4, a6, a3, n] + 
    S2[a1, SP[a2, a6], a3, a4, a5, n] + S2[a1, SP[a2, a6], a3, a5, a4, n] + 
    S2[a1, SP[a2, a6], a4, a3, a5, n] + S2[a1, SP[a3, a6], a2, a4, a5, n] + 
    S2[a1, SP[a3, a6], a2, a5, a4, n] + S2[a1, SP[a3, a6], a4, a2, a5, n] + 
    S2[a1, SP[a3, a6], a4, a5, a2, n] + S2[a1, SP[a3, a6], a5, a2, a4, n] + 
    S2[a1, SP[a3, a6], a5, a4, a2, n] + S2[a2, a1, a3, a4, SP[a5, a6], n] + 
    S2[a2, a1, a3, SP[a4, a5], a6, n] + S2[a2, a1, a4, a3, SP[a5, a6], n] + 
    S2[a2, a1, a4, SP[a3, a6], a5, n] + S2[a2, a1, SP[a3, a4], a5, a6, n] + 
    S2[a2, a1, SP[a3, a4], a6, a5, n] - S2[a6, n]*S2[a2, a4, a1, a3, a5, n] + 
    S2[a2, SP[a1, a4], a3, a5, a6, n] + S2[a2, SP[a1, a4], a3, a6, a5, n] + 
    S2[a2, SP[a1, a4], a6, a3, a5, n] - S2[a2, SP[a4, a6], a1, a3, a5, n] - 
    S2[a3, a1, a2, a4, SP[a5, a6], n] - S2[a3, a1, a2, SP[a4, a5], a6, n] - 
    S2[a3, a1, SP[a2, a5], a4, a6, n] - S2[a3, SP[a1, a5], a2, a4, a6, n] + 
    S2[a4, a1, a2, a3, SP[a5, a6], n] + S2[a4, a1, a2, SP[a3, a6], a5, n] + 
    S2[a4, a1, a3, a2, SP[a5, a6], n] + S2[a4, a1, a3, a5, SP[a2, a6], n] + 
    S2[a4, a1, a3, SP[a2, a6], a5, n] + S2[a4, a1, a3, SP[a5, a6], a2, n] + 
    S2[a4, a1, SP[a2, a6], a3, a5, n] + S2[a4, a1, SP[a3, a6], a2, a5, n] + 
    S2[a4, a1, SP[a3, a6], a5, a2, n] + S2[a4, SP[a1, a6], a2, a3, a5, n] + 
    S2[a4, SP[a1, a6], a3, a2, a5, n] + S2[a4, SP[a1, a6], a3, a5, a2, n] + 
    S2[a3, n]*S2[a5, a1, a2, a4, a6, n] + S2[a5, a1, a2, a4, SP[a3, a6], n] + 
    S2[a5, a1, a2, SP[a3, a4], a6, n] + S2[a5, a1, SP[a2, a3], a4, a6, n] + 
    S2[a5, SP[a1, a3], a2, a4, a6, n] - S2[a4, n]*S2[a6, a1, a2, a3, a5, n] - 
    S2[a6, a1, a2, a3, SP[a4, a5], n] - S2[a6, a1, a2, SP[a3, a4], a5, n] - 
    S2[a4, n]*S2[a6, a1, a3, a2, a5, n] - S2[a6, a1, a3, a2, SP[a4, a5], n] - 
    S2[a4, n]*S2[a6, a1, a3, a5, a2, n] - S2[a6, a1, a3, a5, SP[a2, a4], n] - 
    S2[a6, a1, a3, SP[a2, a4], a5, n] - S2[a6, a1, a3, SP[a4, a5], a2, n] - 
    S2[a6, a1, SP[a2, a4], a3, a5, n] - S2[a6, a1, SP[a3, a4], a2, a5, n] - 
    S2[a6, a1, SP[a3, a4], a5, a2, n] + S2[a2, n]*S2[a6, a4, a1, a3, a5, n] + 
    S2[a6, a4, a1, a3, SP[a2, a5], n] + S2[a6, a4, a1, SP[a2, a3], a5, n] + 
    S2[a6, a4, SP[a1, a2], a3, a5, n] - S2[a6, SP[a1, a4], a2, a3, a5, n] - 
    S2[a6, SP[a1, a4], a3, a2, a5, n] - S2[a6, SP[a1, a4], a3, a5, a2, n] + 
    S2[a6, SP[a2, a4], a1, a3, a5, n] - S2[SP[a1, a5], a2, a3, a4, a6, n] - 
    S2[SP[a1, a5], a2, a4, a3, a6, n] - S2[SP[a1, a5], a2, a4, a6, a3, n] - 
    S2[SP[a1, a5], a3, a2, a4, a6, n] + S2[SP[a1, a6], a2, a3, a4, a5, n] + 
    S2[SP[a1, a6], a2, a3, a5, a4, n] + S2[SP[a1, a6], a2, a4, a3, a5, n] + 
    S2[SP[a1, a6], a3, a2, a4, a5, n] + S2[SP[a1, a6], a3, a2, a5, a4, n] + 
    S2[SP[a1, a6], a3, a4, a2, a5, n] + S2[SP[a1, a6], a3, a4, a5, a2, n] + 
    S2[SP[a1, a6], a3, a5, a2, a4, n] + S2[SP[a1, a6], a3, a5, a4, a2, n] + 
    S2[SP[a1, a6], a4, a2, a3, a5, n] + S2[SP[a1, a6], a4, a3, a2, a5, n] + 
    S2[SP[a1, a6], a4, a3, a5, a2, n] + S2[SP[a3, a5], a1, a2, a4, a6, n] - 
    S2[SP[a4, a6], a1, a2, a3, a5, n] - S2[SP[a4, a6], a1, a3, a2, a5, n] - 
    S2[SP[a4, a6], a1, a3, a5, a2, n] - S2[a6, a4, a2, a1, a3, a5, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a5_, a3_, a1_, a2_, a6_, a4_, n_] :> 
  S2[a1, a3, a5, n]*S2[a2, a6, a4, n] + S2[SP[a1, a2], SP[a3, a6], 
     SP[a4, a5], n] - S2[a4, a6, n]*S2[a1, a2, a3, a5, n] - 
    S2[a3, a5, n]*S2[a1, a2, a6, a4, n] + S2[a1, a2, SP[a3, a4], SP[a5, a6], 
     n] - S2[a4, a6, n]*S2[a1, a3, a2, a5, n] - 
    S2[a4, a6, n]*S2[a1, a3, a5, a2, n] + S2[a1, a3, SP[a2, a4], SP[a5, a6], 
     n] + S2[a1, a3, SP[a4, a5], SP[a2, a6], n] + S2[a1, SP[a2, a4], a3, 
     SP[a5, a6], n] + S2[a1, SP[a2, a4], SP[a3, a6], a5, n] + 
    S2[a1, SP[a3, a4], a2, SP[a5, a6], n] + S2[a1, SP[a3, a4], a5, 
     SP[a2, a6], n] + S2[a1, SP[a3, a4], SP[a2, a6], a5, n] + 
    S2[a1, SP[a3, a4], SP[a5, a6], a2, n] - S2[a2, a1, SP[a3, a6], 
     SP[a4, a5], n] - S2[a2, SP[a1, a6], a3, SP[a4, a5], n] - 
    S2[a2, SP[a1, a6], SP[a3, a4], a5, n] - S2[SP[a1, a2], a3, a6, 
     SP[a4, a5], n] - S2[SP[a1, a2], a3, SP[a5, a6], a4, n] - 
    S2[SP[a1, a2], a6, a3, SP[a4, a5], n] - S2[SP[a1, a2], a6, SP[a3, a4], 
     a5, n] - S2[SP[a1, a2], SP[a3, a6], a4, a5, n] - 
    S2[SP[a1, a2], SP[a3, a6], a5, a4, n] + S2[SP[a1, a3], a2, a6, 
     SP[a4, a5], n] + S2[SP[a1, a3], a2, SP[a5, a6], a4, n] + 
    S2[SP[a1, a3], SP[a2, a5], a6, a4, n] + S2[SP[a1, a4], a2, a3, 
     SP[a5, a6], n] + S2[SP[a1, a4], a2, SP[a3, a6], a5, n] + 
    S2[SP[a1, a4], a3, a2, SP[a5, a6], n] + S2[SP[a1, a4], a3, a5, 
     SP[a2, a6], n] + S2[SP[a1, a4], a3, SP[a2, a6], a5, n] + 
    S2[SP[a1, a4], a3, SP[a5, a6], a2, n] + S2[SP[a1, a4], SP[a2, a6], a3, 
     a5, n] + S2[SP[a1, a4], SP[a3, a6], a2, a5, n] + 
    S2[SP[a1, a4], SP[a3, a6], a5, a2, n] - S2[a1, a2, a3, a4, SP[a5, a6], 
     n] + S2[a4, n]*S2[a1, a2, a3, a5, a6, n] + S2[a1, a2, a3, a5, 
     SP[a4, a6], n] - S2[a5, n]*S2[a1, a2, a3, a6, a4, n] + 
    S2[a4, n]*S2[a1, a2, a3, a6, a5, n] + S2[a1, a2, a3, SP[a4, a6], a5, n] - 
    S2[a1, a2, a3, SP[a5, a6], a4, n] - S2[a1, a2, a4, a3, SP[a5, a6], n] - 
    S2[a1, a2, a4, SP[a3, a6], a5, n] + S2[a3, n]*S2[a1, a2, a5, a6, a4, n] + 
    S2[a1, a2, a5, a6, SP[a3, a4], n] + S2[a1, a2, a5, SP[a3, a6], a4, n] - 
    S2[a5, n]*S2[a1, a2, a6, a3, a4, n] + 
    S2[a4, n]*S2[a1, a2, a6, a3, a5, n] - 
    S2[a5, n]*S2[a1, a2, a6, a4, a3, n] + 
    S2[a3, n]*S2[a1, a2, a6, a4, a5, n] + 
    S2[a3, n]*S2[a1, a2, a6, a5, a4, n] + S2[a1, a2, a6, a5, SP[a3, a4], n] + 
    2*S2[a1, a2, a6, SP[a3, a4], a5, n] - S2[a1, a2, a6, SP[a4, a5], a3, n] + 
    S2[a1, a2, SP[a3, a6], a4, a5, n] + S2[a1, a2, SP[a3, a6], a5, a4, n] + 
    S2[a1, a2, SP[a4, a6], a3, a5, n] - S2[a1, a2, SP[a5, a6], a3, a4, n] - 
    S2[a1, a2, SP[a5, a6], a4, a3, n] - S2[a1, a3, a2, a4, SP[a5, a6], n] + 
    S2[a4, n]*S2[a1, a3, a2, a5, a6, n] + S2[a1, a3, a2, a5, SP[a4, a6], n] - 
    S2[a5, n]*S2[a1, a3, a2, a6, a4, n] + 
    S2[a4, n]*S2[a1, a3, a2, a6, a5, n] + S2[a1, a3, a2, SP[a4, a6], a5, n] - 
    S2[a1, a3, a2, SP[a5, a6], a4, n] - S2[a1, a3, a4, a2, SP[a5, a6], n] - 
    S2[a1, a3, a4, a5, SP[a2, a6], n] - S2[a1, a3, a4, SP[a2, a6], a5, n] - 
    S2[a1, a3, a4, SP[a5, a6], a2, n] + S2[a4, n]*S2[a1, a3, a5, a2, a6, n] + 
    S2[a1, a3, a5, a2, SP[a4, a6], n] - S2[a1, a3, a5, a4, SP[a2, a6], n] + 
    S2[a4, n]*S2[a1, a3, a5, a6, a2, n] - 
    S2[a2, n]*S2[a1, a3, a5, a6, a4, n] - S2[a1, a3, a5, SP[a2, a6], a4, n] + 
    S2[a1, a3, a5, SP[a4, a6], a2, n] + S2[a4, n]*S2[a1, a3, a6, a2, a5, n] + 
    S2[a1, a3, a6, a2, SP[a4, a5], n] - S2[a2, n]*S2[a1, a3, a6, a4, a5, n] - 
    S2[a1, a3, a6, a4, SP[a2, a5], n] + S2[a4, n]*S2[a1, a3, a6, a5, a2, n] - 
    S2[a2, n]*S2[a1, a3, a6, a5, a4, n] - S2[a1, a3, a6, SP[a2, a5], a4, n] + 
    S2[a1, a3, a6, SP[a4, a5], a2, n] - 2*S2[a1, a3, SP[a2, a5], a6, a4, n] - 
    S2[a1, a3, SP[a2, a6], a4, a5, n] - S2[a1, a3, SP[a2, a6], a5, a4, n] + 
    S2[a1, a3, SP[a4, a6], a2, a5, n] + S2[a1, a3, SP[a4, a6], a5, a2, n] - 
    S2[a1, a4, a2, a3, SP[a5, a6], n] - S2[a1, a4, a2, SP[a3, a6], a5, n] - 
    S2[a1, a4, a3, a2, SP[a5, a6], n] - S2[a1, a4, a3, a5, SP[a2, a6], n] - 
    S2[a1, a4, a3, SP[a2, a6], a5, n] - S2[a1, a4, a3, SP[a5, a6], a2, n] - 
    S2[a1, a4, SP[a2, a6], a3, a5, n] - S2[a1, a4, SP[a3, a6], a2, a5, n] - 
    S2[a1, a4, SP[a3, a6], a5, a2, n] + S2[a3, n]*S2[a1, a5, a2, a6, a4, n] + 
    S2[a1, a5, a2, a6, SP[a3, a4], n] + S2[a1, a5, a2, SP[a3, a6], a4, n] + 
    S2[a1, a5, SP[a2, a3], a6, a4, n] + S2[a4, n]*S2[a1, a6, a2, a3, a5, n] + 
    S2[a1, a6, a2, a3, SP[a4, a5], n] + S2[a1, a6, a2, SP[a3, a4], a5, n] + 
    S2[a4, n]*S2[a1, a6, a3, a2, a5, n] + S2[a1, a6, a3, a2, SP[a4, a5], n] - 
    S2[a2, n]*S2[a1, a6, a3, a4, a5, n] - S2[a1, a6, a3, a4, SP[a2, a5], n] + 
    S2[a4, n]*S2[a1, a6, a3, a5, a2, n] - 
    S2[a2, n]*S2[a1, a6, a3, a5, a4, n] - S2[a1, a6, a3, SP[a2, a5], a4, n] + 
    S2[a1, a6, a3, SP[a4, a5], a2, n] - S2[a2, n]*S2[a1, a6, a4, a3, a5, n] - 
    S2[a1, a6, a4, a3, SP[a2, a5], n] - S2[a1, a6, a4, SP[a2, a3], a5, n] - 
    S2[a1, a6, SP[a2, a3], a4, a5, n] - S2[a1, a6, SP[a2, a3], a5, a4, n] + 
    S2[a1, a6, SP[a3, a4], a2, a5, n] + S2[a1, a6, SP[a3, a4], a5, a2, n] - 
    S2[a1, SP[a2, a5], a3, a6, a4, n] - S2[a1, SP[a2, a5], a6, a3, a4, n] - 
    S2[a1, SP[a2, a5], a6, a4, a3, n] - S2[a1, SP[a2, a6], a3, a4, a5, n] - 
    S2[a1, SP[a2, a6], a3, a5, a4, n] - S2[a1, SP[a2, a6], a4, a3, a5, n] + 
    S2[a1, SP[a4, a6], a2, a3, a5, n] + S2[a1, SP[a4, a6], a3, a2, a5, n] + 
    S2[a1, SP[a4, a6], a3, a5, a2, n] + S2[a2, a1, a3, a6, SP[a4, a5], n] + 
    S2[a2, a1, a3, SP[a5, a6], a4, n] + S2[a2, a1, a6, a3, SP[a4, a5], n] + 
    S2[a2, a1, a6, SP[a3, a4], a5, n] + S2[a2, a1, SP[a3, a6], a4, a5, n] + 
    S2[a2, a1, SP[a3, a6], a5, a4, n] + S2[a2, a6, a1, a3, SP[a4, a5], n] + 
    S2[a2, a6, a1, SP[a3, a4], a5, n] + S2[a2, a6, SP[a1, a4], a3, a5, n] + 
    S2[a2, SP[a1, a6], a3, a4, a5, n] + S2[a2, SP[a1, a6], a3, a5, a4, n] + 
    S2[a2, SP[a1, a6], a4, a3, a5, n] - S2[a3, a1, a2, a6, SP[a4, a5], n] - 
    S2[a3, a1, a2, SP[a5, a6], a4, n] - S2[a3, a1, SP[a2, a5], a6, a4, n] - 
    S2[a3, SP[a1, a5], a2, a6, a4, n] - S2[a4, a1, a2, a3, SP[a5, a6], n] - 
    S2[a4, a1, a2, SP[a3, a6], a5, n] - S2[a4, a1, a3, a2, SP[a5, a6], n] - 
    S2[a4, a1, a3, a5, SP[a2, a6], n] - S2[a4, a1, a3, SP[a2, a6], a5, n] - 
    S2[a4, a1, a3, SP[a5, a6], a2, n] - S2[a4, a1, SP[a2, a6], a3, a5, n] - 
    S2[a4, a1, SP[a3, a6], a2, a5, n] - S2[a4, a1, SP[a3, a6], a5, a2, n] - 
    S2[a4, SP[a1, a6], a2, a3, a5, n] - S2[a4, SP[a1, a6], a3, a2, a5, n] - 
    S2[a4, SP[a1, a6], a3, a5, a2, n] + S2[a3, n]*S2[a5, a1, a2, a6, a4, n] + 
    S2[a5, a1, a2, a6, SP[a3, a4], n] + S2[a5, a1, a2, SP[a3, a6], a4, n] + 
    S2[a5, a1, SP[a2, a3], a6, a4, n] + S2[a5, SP[a1, a3], a2, a6, a4, n] + 
    S2[a4, n]*S2[a6, a1, a2, a3, a5, n] + S2[a6, a1, a2, a3, SP[a4, a5], n] + 
    S2[a6, a1, a2, SP[a3, a4], a5, n] + S2[a4, n]*S2[a6, a1, a3, a2, a5, n] + 
    S2[a6, a1, a3, a2, SP[a4, a5], n] - S2[a2, n]*S2[a6, a1, a3, a4, a5, n] - 
    S2[a6, a1, a3, a4, SP[a2, a5], n] + S2[a4, n]*S2[a6, a1, a3, a5, a2, n] - 
    S2[a2, n]*S2[a6, a1, a3, a5, a4, n] - S2[a6, a1, a3, SP[a2, a5], a4, n] + 
    S2[a6, a1, a3, SP[a4, a5], a2, n] - S2[a2, n]*S2[a6, a1, a4, a3, a5, n] - 
    S2[a6, a1, a4, a3, SP[a2, a5], n] - S2[a6, a1, a4, SP[a2, a3], a5, n] - 
    S2[a6, a1, SP[a2, a3], a4, a5, n] - S2[a6, a1, SP[a2, a3], a5, a4, n] + 
    S2[a6, a1, SP[a3, a4], a2, a5, n] + S2[a6, a1, SP[a3, a4], a5, a2, n] - 
    S2[a2, n]*S2[a6, a4, a1, a3, a5, n] - S2[a6, a4, a1, a3, SP[a2, a5], n] - 
    S2[a6, a4, a1, SP[a2, a3], a5, n] - S2[a6, a4, SP[a1, a2], a3, a5, n] - 
    S2[a6, SP[a1, a2], a3, a4, a5, n] - S2[a6, SP[a1, a2], a3, a5, a4, n] - 
    S2[a6, SP[a1, a2], a4, a3, a5, n] + S2[a6, SP[a1, a4], a2, a3, a5, n] + 
    S2[a6, SP[a1, a4], a3, a2, a5, n] + S2[a6, SP[a1, a4], a3, a5, a2, n] - 
    S2[a6, SP[a2, a4], a1, a3, a5, n] - S2[SP[a1, a5], a2, a3, a6, a4, n] - 
    S2[SP[a1, a5], a2, a6, a3, a4, n] - S2[SP[a1, a5], a2, a6, a4, a3, n] - 
    S2[SP[a1, a5], a3, a2, a6, a4, n] - S2[SP[a2, a6], a1, a3, a4, a5, n] - 
    S2[SP[a2, a6], a1, a3, a5, a4, n] - S2[SP[a2, a6], a1, a4, a3, a5, n] - 
    S2[SP[a2, a6], a4, a1, a3, a5, n] + S2[SP[a3, a5], a1, a2, a6, a4, n] + 
    S2[SP[a4, a6], a1, a2, a3, a5, n] + S2[SP[a4, a6], a1, a3, a2, a5, n] + 
    S2[SP[a4, a6], a1, a3, a5, a2, n] + S2[a6, a2, a1, a3, a4, a5, n] + 
    S2[a6, a2, a1, a3, a5, a4, n] + S2[a6, a2, a1, a4, a3, a5, n] + 
    S2[a6, a2, a4, a1, a3, a5, n] + S2[a6, a4, a2, a1, a3, a5, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a5_, a3_, a1_, a4_, a2_, a6_, n_] :> 
  -(S2[a1, a3, a5, n]*S2[a2, a4, a6, n]) - S2[a1, a3, a5, n]*
     S2[a2, a6, a4, n] - S2[SP[a1, a2], SP[a3, a4], SP[a5, a6], n] - 
    S2[SP[a1, a2], SP[a3, a6], SP[a4, a5], n] + S2[a1, a2, SP[a3, a4], 
     SP[a5, a6], n] + S2[a1, a2, SP[a3, a6], SP[a4, a5], n] + 
    S2[a2, a6, n]*S2[a1, a3, a4, a5, n] + S2[a2, a6, n]*
     S2[a1, a3, a5, a4, n] - S2[a1, a3, SP[a2, a4], SP[a5, a6], n] - 
    S2[a1, a3, SP[a2, a5], SP[a4, a6], n] - S2[a3, a5, n]*
     S2[a1, a4, a2, a6, n] + S2[a2, a6, n]*S2[a1, a4, a3, a5, n] - 
    S2[a1, SP[a2, a3], a5, SP[a4, a6], n] + S2[a1, SP[a2, a3], a6, 
     SP[a4, a5], n] + S2[a1, SP[a2, a3], SP[a4, a5], a6, n] - 
    S2[a1, SP[a2, a3], SP[a4, a6], a5, n] - S2[a1, SP[a2, a4], a3, 
     SP[a5, a6], n] - S2[a1, SP[a2, a4], SP[a3, a6], a5, n] + 
    S2[a1, SP[a3, a4], a2, SP[a5, a6], n] + S2[a1, SP[a3, a4], SP[a2, a5], 
     a6, n] + S2[a2, a1, SP[a3, a4], SP[a5, a6], n] + 
    S2[a2, a1, SP[a3, a6], SP[a4, a5], n] + S2[a2, SP[a1, a4], a3, 
     SP[a5, a6], n] + S2[a2, SP[a1, a4], SP[a3, a6], a5, n] + 
    S2[a2, SP[a1, a6], a3, SP[a4, a5], n] + S2[a2, SP[a1, a6], SP[a3, a4], 
     a5, n] - S2[SP[a1, a2], a3, a5, SP[a4, a6], n] + 
    S2[SP[a1, a2], a3, a6, SP[a4, a5], n] + S2[SP[a1, a2], a3, SP[a4, a5], 
     a6, n] - S2[SP[a1, a2], a3, SP[a4, a6], a5, n] + 
    S2[SP[a1, a2], a6, a3, SP[a4, a5], n] + S2[SP[a1, a2], a6, SP[a3, a4], 
     a5, n] + S2[SP[a1, a2], SP[a3, a4], a5, a6, n] + 
    S2[SP[a1, a2], SP[a3, a4], a6, a5, n] - S2[SP[a1, a2], SP[a4, a6], a3, 
     a5, n] + S2[SP[a1, a3], a4, a2, SP[a5, a6], n] + 
    S2[SP[a1, a3], a4, SP[a2, a5], a6, n] + S2[SP[a1, a3], SP[a4, a5], a2, 
     a6, n] + S2[a1, a2, a3, a5, SP[a4, a6], n] - 
    S2[a1, a2, a3, a6, SP[a4, a5], n] - S2[a1, a2, a3, SP[a4, a5], a6, n] + 
    S2[a1, a2, a3, SP[a4, a6], a5, n] - S2[a1, a2, a6, a3, SP[a4, a5], n] - 
    S2[a1, a2, a6, SP[a3, a4], a5, n] - S2[a1, a2, SP[a3, a4], a5, a6, n] - 
    S2[a1, a2, SP[a3, a4], a6, a5, n] + S2[a1, a2, SP[a4, a6], a3, a5, n] + 
    S2[a1, a3, a2, a5, SP[a4, a6], n] - S2[a1, a3, a2, a6, SP[a4, a5], n] - 
    S2[a1, a3, a2, SP[a4, a5], a6, n] + S2[a1, a3, a2, SP[a4, a6], a5, n] - 
    S2[a5, n]*S2[a1, a3, a4, a2, a6, n] - S2[a1, a3, a4, a2, SP[a5, a6], n] - 
    S2[a1, a3, a4, SP[a2, a5], a6, n] + S2[a1, a3, a5, a2, SP[a4, a6], n] + 
    S2[a1, a3, a5, SP[a2, a4], a6, n] + S2[a1, a3, SP[a2, a4], a5, a6, n] + 
    S2[a1, a3, SP[a2, a4], a6, a5, n] - 2*S2[a1, a3, SP[a4, a5], a2, a6, n] - 
    S2[a5, n]*S2[a1, a4, a2, a3, a6, n] - S2[a1, a4, a2, a3, SP[a5, a6], n] + 
    S2[a3, n]*S2[a1, a4, a2, a5, a6, n] + S2[a1, a4, a2, a5, SP[a3, a6], n] - 
    S2[a5, n]*S2[a1, a4, a2, a6, a3, n] + 
    S2[a3, n]*S2[a1, a4, a2, a6, a5, n] + S2[a1, a4, a2, SP[a3, a6], a5, n] - 
    S2[a1, a4, a2, SP[a5, a6], a3, n] - S2[a5, n]*S2[a1, a4, a3, a2, a6, n] - 
    S2[a1, a4, a3, a2, SP[a5, a6], n] - S2[a1, a4, a3, SP[a2, a5], a6, n] + 
    S2[a3, n]*S2[a1, a4, a5, a2, a6, n] + S2[a1, a4, a5, a2, SP[a3, a6], n] + 
    S2[a1, a4, a5, SP[a2, a3], a6, n] + S2[a1, a4, SP[a2, a3], a5, a6, n] + 
    S2[a1, a4, SP[a2, a3], a6, a5, n] - S2[a1, a4, SP[a2, a5], a3, a6, n] - 
    S2[a1, a4, SP[a2, a5], a6, a3, n] + S2[a3, n]*S2[a1, a5, a4, a2, a6, n] + 
    S2[a1, a5, a4, a2, SP[a3, a6], n] + S2[a1, a5, a4, SP[a2, a3], a6, n] + 
    S2[a1, a5, SP[a3, a4], a2, a6, n] + S2[a1, SP[a2, a4], a3, a5, a6, n] + 
    S2[a1, SP[a2, a4], a3, a6, a5, n] + S2[a1, SP[a2, a4], a6, a3, a5, n] - 
    S2[a1, SP[a4, a5], a2, a3, a6, n] - S2[a1, SP[a4, a5], a2, a6, a3, n] - 
    S2[a1, SP[a4, a5], a3, a2, a6, n] + S2[a2, a1, a3, a5, SP[a4, a6], n] - 
    S2[a2, a1, a3, a6, SP[a4, a5], n] - S2[a2, a1, a3, SP[a4, a5], a6, n] + 
    S2[a2, a1, a3, SP[a4, a6], a5, n] - S2[a2, a1, a6, a3, SP[a4, a5], n] - 
    S2[a2, a1, a6, SP[a3, a4], a5, n] - S2[a2, a1, SP[a3, a4], a5, a6, n] - 
    S2[a2, a1, SP[a3, a4], a6, a5, n] + S2[a2, a1, SP[a4, a6], a3, a5, n] + 
    S2[a6, n]*S2[a2, a4, a1, a3, a5, n] - S2[a2, a6, a1, a3, SP[a4, a5], n] - 
    S2[a2, a6, a1, SP[a3, a4], a5, n] - S2[a2, a6, SP[a1, a4], a3, a5, n] - 
    S2[a2, SP[a1, a4], a3, a5, a6, n] - S2[a2, SP[a1, a4], a3, a6, a5, n] - 
    S2[a2, SP[a1, a4], a6, a3, a5, n] + S2[a2, SP[a4, a6], a1, a3, a5, n] - 
    S2[a3, a1, a4, a2, SP[a5, a6], n] - S2[a3, a1, a4, SP[a2, a5], a6, n] - 
    S2[a3, a1, SP[a4, a5], a2, a6, n] - S2[a3, SP[a1, a5], a4, a2, a6, n] + 
    S2[a3, n]*S2[a5, a1, a4, a2, a6, n] + S2[a5, a1, a4, a2, SP[a3, a6], n] + 
    S2[a5, a1, a4, SP[a2, a3], a6, n] + S2[a5, a1, SP[a3, a4], a2, a6, n] + 
    S2[a5, SP[a1, a3], a4, a2, a6, n] - S2[SP[a1, a5], a3, a4, a2, a6, n] - 
    S2[SP[a1, a5], a4, a2, a3, a6, n] - S2[SP[a1, a5], a4, a2, a6, a3, n] - 
    S2[SP[a1, a5], a4, a3, a2, a6, n] + S2[SP[a2, a6], a4, a1, a3, a5, n] + 
    S2[SP[a3, a5], a1, a4, a2, a6, n] - S2[a6, a2, a4, a1, a3, a5, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a5_, a3_, a1_, a4_, a6_, a2_, n_] :> 
  S2[a1, a3, a5, n]*S2[a2, a6, a4, n] + S2[SP[a1, a2], SP[a3, a6], 
     SP[a4, a5], n] - S2[a1, a2, SP[a3, a6], SP[a4, a5], n] - 
    S2[a2, a6, n]*S2[a1, a3, a4, a5, n] - S2[a2, a6, n]*
     S2[a1, a3, a5, a4, n] + S2[a1, a3, SP[a2, a4], SP[a5, a6], n] + 
    S2[a1, a3, SP[a2, a5], SP[a4, a6], n] - S2[a2, a6, n]*
     S2[a1, a4, a3, a5, n] - S2[a3, a5, n]*S2[a1, a4, a6, a2, n] + 
    S2[a1, a4, SP[a2, a3], SP[a5, a6], n] + S2[a1, a4, SP[a3, a6], 
     SP[a2, a5], n] + S2[a1, SP[a2, a3], a4, SP[a5, a6], n] + 
    S2[a1, SP[a2, a3], a5, SP[a4, a6], n] - S2[a1, SP[a2, a3], a6, 
     SP[a4, a5], n] + S2[a1, SP[a2, a3], SP[a4, a6], a5, n] + 
    S2[a1, SP[a2, a4], a3, SP[a5, a6], n] + S2[a1, SP[a2, a4], SP[a3, a6], 
     a5, n] + S2[a1, SP[a3, a4], a6, SP[a2, a5], n] + 
    S2[a1, SP[a3, a4], SP[a5, a6], a2, n] - S2[a2, a1, SP[a3, a6], 
     SP[a4, a5], n] - S2[a2, SP[a1, a6], a3, SP[a4, a5], n] - 
    S2[a2, SP[a1, a6], SP[a3, a4], a5, n] + S2[SP[a1, a2], a3, a4, 
     SP[a5, a6], n] + S2[SP[a1, a2], a3, a5, SP[a4, a6], n] - 
    S2[SP[a1, a2], a3, a6, SP[a4, a5], n] + S2[SP[a1, a2], a3, SP[a4, a6], 
     a5, n] + S2[SP[a1, a2], a4, a3, SP[a5, a6], n] + 
    S2[SP[a1, a2], a4, SP[a3, a6], a5, n] - S2[SP[a1, a2], a6, a3, 
     SP[a4, a5], n] - S2[SP[a1, a2], a6, SP[a3, a4], a5, n] + 
    S2[SP[a1, a2], SP[a4, a6], a3, a5, n] + S2[SP[a1, a3], a4, a6, 
     SP[a2, a5], n] + S2[SP[a1, a3], a4, SP[a5, a6], a2, n] + 
    S2[SP[a1, a3], SP[a4, a5], a6, a2, n] - S2[a1, a2, a3, a4, SP[a5, a6], 
     n] - S2[a1, a2, a3, a5, SP[a4, a6], n] + S2[a1, a2, a3, a6, SP[a4, a5], 
     n] - S2[a1, a2, a3, SP[a4, a6], a5, n] - S2[a1, a2, a4, a3, SP[a5, a6], 
     n] - S2[a1, a2, a4, SP[a3, a6], a5, n] + S2[a1, a2, a6, a3, SP[a4, a5], 
     n] + S2[a1, a2, a6, SP[a3, a4], a5, n] - S2[a1, a2, SP[a4, a6], a3, a5, 
     n] - S2[a1, a3, a2, a4, SP[a5, a6], n] - S2[a1, a3, a2, a5, SP[a4, a6], 
     n] + S2[a1, a3, a2, a6, SP[a4, a5], n] - S2[a1, a3, a2, SP[a4, a6], a5, 
     n] - S2[a1, a3, a4, a2, SP[a5, a6], n] + 
    S2[a2, n]*S2[a1, a3, a4, a5, a6, n] + S2[a1, a3, a4, a5, SP[a2, a6], n] - 
    S2[a5, n]*S2[a1, a3, a4, a6, a2, n] + 
    S2[a2, n]*S2[a1, a3, a4, a6, a5, n] - S2[a1, a3, a4, a6, SP[a2, a5], n] + 
    S2[a1, a3, a4, SP[a2, a6], a5, n] - 2*S2[a1, a3, a4, SP[a5, a6], a2, n] - 
    S2[a1, a3, a5, a2, SP[a4, a6], n] + S2[a2, n]*S2[a1, a3, a5, a4, a6, n] + 
    S2[a1, a3, a5, a4, SP[a2, a6], n] - 2*S2[a1, a3, SP[a4, a5], a6, a2, n] - 
    S2[a1, a4, a2, a3, SP[a5, a6], n] - S2[a1, a4, a2, SP[a3, a6], a5, n] - 
    S2[a1, a4, a3, a2, SP[a5, a6], n] + S2[a2, n]*S2[a1, a4, a3, a5, a6, n] + 
    S2[a1, a4, a3, a5, SP[a2, a6], n] - S2[a5, n]*S2[a1, a4, a3, a6, a2, n] + 
    S2[a2, n]*S2[a1, a4, a3, a6, a5, n] - S2[a1, a4, a3, a6, SP[a2, a5], n] + 
    S2[a1, a4, a3, SP[a2, a6], a5, n] - 2*S2[a1, a4, a3, SP[a5, a6], a2, n] + 
    S2[a3, n]*S2[a1, a4, a5, a6, a2, n] + S2[a1, a4, a5, a6, SP[a2, a3], n] + 
    S2[a1, a4, a5, SP[a3, a6], a2, n] - S2[a5, n]*S2[a1, a4, a6, a2, a3, n] + 
    S2[a3, n]*S2[a1, a4, a6, a2, a5, n] - 
    S2[a5, n]*S2[a1, a4, a6, a3, a2, n] + 
    S2[a2, n]*S2[a1, a4, a6, a3, a5, n] - S2[a1, a4, a6, a3, SP[a2, a5], n] + 
    S2[a3, n]*S2[a1, a4, a6, a5, a2, n] + S2[a1, a4, a6, a5, SP[a2, a3], n] + 
    S2[a1, a4, a6, SP[a2, a3], a5, n] - S2[a1, a4, a6, SP[a2, a5], a3, n] + 
    S2[a1, a4, SP[a2, a6], a3, a5, n] - S2[a1, a4, SP[a5, a6], a2, a3, n] - 
    S2[a1, a4, SP[a5, a6], a3, a2, n] + S2[a3, n]*S2[a1, a5, a4, a6, a2, n] + 
    S2[a1, a5, a4, a6, SP[a2, a3], n] + S2[a1, a5, a4, SP[a3, a6], a2, n] + 
    S2[a1, a5, SP[a3, a4], a6, a2, n] - S2[a1, SP[a4, a5], a3, a6, a2, n] - 
    S2[a1, SP[a4, a5], a6, a2, a3, n] - S2[a1, SP[a4, a5], a6, a3, a2, n] - 
    S2[a2, a1, a3, a4, SP[a5, a6], n] - S2[a2, a1, a3, a5, SP[a4, a6], n] + 
    S2[a2, a1, a3, a6, SP[a4, a5], n] - S2[a2, a1, a3, SP[a4, a6], a5, n] - 
    S2[a2, a1, a4, a3, SP[a5, a6], n] - S2[a2, a1, a4, SP[a3, a6], a5, n] + 
    S2[a2, a1, a6, a3, SP[a4, a5], n] + S2[a2, a1, a6, SP[a3, a4], a5, n] - 
    S2[a2, a1, SP[a4, a6], a3, a5, n] + S2[a2, a6, a1, a3, SP[a4, a5], n] + 
    S2[a2, a6, a1, SP[a3, a4], a5, n] + S2[a2, a6, SP[a1, a4], a3, a5, n] - 
    S2[a3, a1, a4, a6, SP[a2, a5], n] - S2[a3, a1, a4, SP[a5, a6], a2, n] - 
    S2[a3, a1, SP[a4, a5], a6, a2, n] - S2[a3, SP[a1, a5], a4, a6, a2, n] + 
    S2[a3, n]*S2[a5, a1, a4, a6, a2, n] + S2[a5, a1, a4, a6, SP[a2, a3], n] + 
    S2[a5, a1, a4, SP[a3, a6], a2, n] + S2[a5, a1, SP[a3, a4], a6, a2, n] + 
    S2[a5, SP[a1, a3], a4, a6, a2, n] - S2[a2, n]*S2[a6, a4, a1, a3, a5, n] - 
    S2[a6, a4, a1, a3, SP[a2, a5], n] - S2[a6, a4, a1, SP[a2, a3], a5, n] - 
    S2[a6, a4, SP[a1, a2], a3, a5, n] - S2[a6, SP[a2, a4], a1, a3, a5, n] - 
    S2[SP[a1, a5], a3, a4, a6, a2, n] - S2[SP[a1, a5], a4, a3, a6, a2, n] - 
    S2[SP[a1, a5], a4, a6, a2, a3, n] - S2[SP[a1, a5], a4, a6, a3, a2, n] - 
    S2[SP[a2, a6], a4, a1, a3, a5, n] + S2[SP[a3, a5], a1, a4, a6, a2, n] + 
    S2[a6, a2, a4, a1, a3, a5, n] + S2[a6, a4, a1, a2, a3, a5, n] + 
    S2[a6, a4, a1, a3, a2, a5, n] + S2[a6, a4, a1, a3, a5, a2, n] + 
    S2[a6, a4, a2, a1, a3, a5, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a5_, a3_, a1_, a6_, a2_, a4_, n_] :> 
  -(S2[a1, a3, a5, n]*S2[a2, a4, a6, n]) - S2[a1, a3, a5, n]*
     S2[a2, a6, a4, n] - S2[SP[a1, a2], SP[a3, a4], SP[a5, a6], n] - 
    S2[SP[a1, a2], SP[a3, a6], SP[a4, a5], n] + S2[a1, a2, SP[a3, a4], 
     SP[a5, a6], n] + S2[a1, a2, SP[a3, a6], SP[a4, a5], n] - 
    S2[a3, a5, n]*S2[a1, a6, a2, a4, n] + S2[a1, a6, SP[a2, a3], SP[a4, a5], 
     n] + S2[a1, SP[a2, a3], a4, SP[a5, a6], n] + S2[a1, SP[a2, a3], a6, 
     SP[a4, a5], n] + S2[a1, SP[a2, a3], SP[a4, a5], a6, n] + 
    S2[a1, SP[a2, a3], SP[a5, a6], a4, n] + S2[a1, SP[a3, a6], a2, 
     SP[a4, a5], n] + S2[a1, SP[a3, a6], SP[a2, a5], a4, n] + 
    S2[a2, a1, SP[a3, a4], SP[a5, a6], n] + S2[a2, a1, SP[a3, a6], 
     SP[a4, a5], n] + S2[a2, SP[a1, a4], a3, SP[a5, a6], n] + 
    S2[a2, SP[a1, a4], SP[a3, a6], a5, n] + S2[a2, SP[a1, a6], a3, 
     SP[a4, a5], n] + S2[a2, SP[a1, a6], SP[a3, a4], a5, n] + 
    S2[SP[a1, a2], a3, a4, SP[a5, a6], n] + S2[SP[a1, a2], a3, a6, 
     SP[a4, a5], n] + S2[SP[a1, a2], a3, SP[a4, a5], a6, n] + 
    S2[SP[a1, a2], a3, SP[a5, a6], a4, n] + S2[SP[a1, a2], a4, a3, 
     SP[a5, a6], n] + S2[SP[a1, a2], a4, SP[a3, a6], a5, n] + 
    S2[SP[a1, a2], a6, a3, SP[a4, a5], n] + S2[SP[a1, a2], a6, SP[a3, a4], 
     a5, n] + S2[SP[a1, a2], SP[a3, a4], a5, a6, n] + 
    S2[SP[a1, a2], SP[a3, a4], a6, a5, n] + S2[SP[a1, a2], SP[a3, a6], a4, 
     a5, n] + S2[SP[a1, a2], SP[a3, a6], a5, a4, n] + 
    S2[SP[a1, a3], a6, a2, SP[a4, a5], n] + S2[SP[a1, a3], a6, SP[a2, a5], 
     a4, n] + S2[SP[a1, a3], SP[a5, a6], a2, a4, n] - 
    S2[a1, a2, a3, a4, SP[a5, a6], n] - S2[a1, a2, a3, a6, SP[a4, a5], n] - 
    S2[a1, a2, a3, SP[a4, a5], a6, n] - S2[a1, a2, a3, SP[a5, a6], a4, n] - 
    S2[a1, a2, a4, a3, SP[a5, a6], n] - S2[a1, a2, a4, SP[a3, a6], a5, n] - 
    S2[a1, a2, a6, a3, SP[a4, a5], n] - S2[a1, a2, a6, SP[a3, a4], a5, n] - 
    S2[a1, a2, SP[a3, a4], a5, a6, n] - S2[a1, a2, SP[a3, a4], a6, a5, n] - 
    S2[a1, a2, SP[a3, a6], a4, a5, n] - S2[a1, a2, SP[a3, a6], a5, a4, n] - 
    S2[a1, a3, a2, a4, SP[a5, a6], n] - S2[a1, a3, a2, a6, SP[a4, a5], n] - 
    S2[a1, a3, a2, SP[a4, a5], a6, n] - S2[a1, a3, a2, SP[a5, a6], a4, n] - 
    S2[a6, n]*S2[a1, a3, a4, a2, a5, n] - S2[a1, a3, a4, a2, SP[a5, a6], n] - 
    S2[a6, n]*S2[a1, a3, a4, a5, a2, n] + 
    S2[a2, n]*S2[a1, a3, a4, a5, a6, n] + 
    S2[a2, n]*S2[a1, a3, a4, a6, a5, n] + S2[a1, a3, a4, a6, SP[a2, a5], n] + 
    S2[a1, a3, a4, SP[a2, a5], a6, n] - S2[a1, a3, a4, SP[a5, a6], a2, n] - 
    S2[a6, n]*S2[a1, a3, a5, a4, a2, n] + 
    S2[a2, n]*S2[a1, a3, a5, a4, a6, n] + 
    S2[a2, n]*S2[a1, a3, a5, a6, a4, n] + S2[a1, a3, a5, a6, SP[a2, a4], n] + 
    S2[a1, a3, a5, SP[a2, a4], a6, n] + S2[a1, a3, a5, SP[a2, a6], a4, n] - 
    S2[a1, a3, a5, SP[a4, a6], a2, n] - S2[a5, n]*S2[a1, a3, a6, a2, a4, n] - 
    2*S2[a1, a3, a6, a2, SP[a4, a5], n] + 
    S2[a2, n]*S2[a1, a3, a6, a4, a5, n] + S2[a1, a3, a6, a4, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a3, a6, a5, a4, n] + S2[a1, a3, a6, a5, SP[a2, a4], n] + 
    S2[a1, a3, a6, SP[a2, a4], a5, n] - S2[a1, a3, a6, SP[a2, a5], a4, n] + 
    S2[a1, a3, SP[a2, a4], a5, a6, n] + S2[a1, a3, SP[a2, a4], a6, a5, n] + 
    S2[a1, a3, SP[a2, a6], a4, a5, n] + S2[a1, a3, SP[a2, a6], a5, a4, n] - 
    S2[a1, a3, SP[a4, a6], a2, a5, n] - S2[a1, a3, SP[a4, a6], a5, a2, n] - 
    2*S2[a1, a3, SP[a5, a6], a2, a4, n] - S2[a1, a3, SP[a5, a6], a4, a2, n] - 
    S2[a6, n]*S2[a1, a4, a2, a3, a5, n] - S2[a1, a4, a2, a3, SP[a5, a6], n] - 
    S2[a1, a4, a2, SP[a3, a6], a5, n] - S2[a6, n]*S2[a1, a4, a3, a2, a5, n] - 
    S2[a1, a4, a3, a2, SP[a5, a6], n] - S2[a6, n]*S2[a1, a4, a3, a5, a2, n] + 
    S2[a2, n]*S2[a1, a4, a3, a5, a6, n] + 
    S2[a2, n]*S2[a1, a4, a3, a6, a5, n] + S2[a1, a4, a3, a6, SP[a2, a5], n] + 
    S2[a1, a4, a3, SP[a2, a5], a6, n] - S2[a1, a4, a3, SP[a5, a6], a2, n] + 
    S2[a2, n]*S2[a1, a4, a6, a3, a5, n] + S2[a1, a4, a6, a3, SP[a2, a5], n] + 
    S2[a1, a4, a6, SP[a2, a3], a5, n] + S2[a1, a4, SP[a2, a3], a5, a6, n] + 
    S2[a1, a4, SP[a2, a3], a6, a5, n] - S2[a1, a4, SP[a3, a6], a2, a5, n] - 
    S2[a1, a4, SP[a3, a6], a5, a2, n] + S2[a3, n]*S2[a1, a5, a6, a2, a4, n] + 
    S2[a1, a5, a6, a2, SP[a3, a4], n] + S2[a1, a5, a6, SP[a2, a3], a4, n] + 
    S2[a1, a5, SP[a3, a6], a2, a4, n] - S2[a5, n]*S2[a1, a6, a2, a3, a4, n] - 
    2*S2[a1, a6, a2, a3, SP[a4, a5], n] - 
    S2[a5, n]*S2[a1, a6, a2, a4, a3, n] + 
    S2[a3, n]*S2[a1, a6, a2, a4, a5, n] + 
    S2[a3, n]*S2[a1, a6, a2, a5, a4, n] + S2[a1, a6, a2, a5, SP[a3, a4], n] - 
    S2[a1, a6, a2, SP[a4, a5], a3, n] - S2[a5, n]*S2[a1, a6, a3, a2, a4, n] - 
    2*S2[a1, a6, a3, a2, SP[a4, a5], n] + 
    S2[a2, n]*S2[a1, a6, a3, a4, a5, n] + S2[a1, a6, a3, a4, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a6, a3, a5, a4, n] + S2[a1, a6, a3, a5, SP[a2, a4], n] + 
    S2[a1, a6, a3, SP[a2, a4], a5, n] - S2[a1, a6, a3, SP[a2, a5], a4, n] + 
    S2[a2, n]*S2[a1, a6, a4, a3, a5, n] + S2[a1, a6, a4, a3, SP[a2, a5], n] + 
    S2[a1, a6, a4, SP[a2, a3], a5, n] + S2[a3, n]*S2[a1, a6, a5, a2, a4, n] + 
    S2[a1, a6, a5, a2, SP[a3, a4], n] + S2[a1, a6, a5, SP[a2, a3], a4, n] + 
    S2[a1, a6, SP[a2, a3], a4, a5, n] + S2[a1, a6, SP[a2, a3], a5, a4, n] + 
    S2[a1, a6, SP[a2, a4], a3, a5, n] - S2[a1, a6, SP[a2, a5], a3, a4, n] - 
    S2[a1, a6, SP[a2, a5], a4, a3, n] + S2[a1, SP[a2, a4], a3, a5, a6, n] + 
    S2[a1, SP[a2, a4], a3, a6, a5, n] + S2[a1, SP[a2, a4], a6, a3, a5, n] + 
    S2[a1, SP[a2, a6], a3, a4, a5, n] + S2[a1, SP[a2, a6], a3, a5, a4, n] + 
    S2[a1, SP[a2, a6], a4, a3, a5, n] - S2[a1, SP[a3, a6], a4, a2, a5, n] - 
    S2[a1, SP[a3, a6], a4, a5, a2, n] - S2[a1, SP[a3, a6], a5, a4, a2, n] - 
    S2[a1, SP[a4, a6], a2, a3, a5, n] - S2[a1, SP[a4, a6], a3, a2, a5, n] - 
    S2[a1, SP[a4, a6], a3, a5, a2, n] - S2[a1, SP[a5, a6], a2, a3, a4, n] - 
    S2[a1, SP[a5, a6], a2, a4, a3, n] - S2[a1, SP[a5, a6], a3, a2, a4, n] - 
    S2[a2, a1, a3, a4, SP[a5, a6], n] - S2[a2, a1, a3, a6, SP[a4, a5], n] - 
    S2[a2, a1, a3, SP[a4, a5], a6, n] - S2[a2, a1, a3, SP[a5, a6], a4, n] - 
    S2[a2, a1, a4, a3, SP[a5, a6], n] - S2[a2, a1, a4, SP[a3, a6], a5, n] - 
    S2[a2, a1, a6, a3, SP[a4, a5], n] - S2[a2, a1, a6, SP[a3, a4], a5, n] - 
    S2[a2, a1, SP[a3, a4], a5, a6, n] - S2[a2, a1, SP[a3, a4], a6, a5, n] - 
    S2[a2, a1, SP[a3, a6], a4, a5, n] - S2[a2, a1, SP[a3, a6], a5, a4, n] + 
    S2[a6, n]*S2[a2, a4, a1, a3, a5, n] - S2[a2, a6, a1, a3, SP[a4, a5], n] - 
    S2[a2, a6, a1, SP[a3, a4], a5, n] - S2[a2, a6, SP[a1, a4], a3, a5, n] - 
    S2[a2, SP[a1, a4], a3, a5, a6, n] - S2[a2, SP[a1, a4], a3, a6, a5, n] - 
    S2[a2, SP[a1, a4], a6, a3, a5, n] - S2[a2, SP[a1, a6], a3, a4, a5, n] - 
    S2[a2, SP[a1, a6], a3, a5, a4, n] - S2[a2, SP[a1, a6], a4, a3, a5, n] + 
    S2[a2, SP[a4, a6], a1, a3, a5, n] - S2[a3, a1, a6, a2, SP[a4, a5], n] - 
    S2[a3, a1, a6, SP[a2, a5], a4, n] - S2[a3, a1, SP[a5, a6], a2, a4, n] - 
    S2[a3, SP[a1, a5], a6, a2, a4, n] + S2[a3, n]*S2[a5, a1, a6, a2, a4, n] + 
    S2[a5, a1, a6, a2, SP[a3, a4], n] + S2[a5, a1, a6, SP[a2, a3], a4, n] + 
    S2[a5, a1, SP[a3, a6], a2, a4, n] + S2[a5, SP[a1, a3], a6, a2, a4, n] + 
    S2[a2, n]*S2[a6, a1, a3, a4, a5, n] + S2[a6, a1, a3, a4, SP[a2, a5], n] + 
    S2[a2, n]*S2[a6, a1, a3, a5, a4, n] + S2[a6, a1, a3, a5, SP[a2, a4], n] + 
    S2[a6, a1, a3, SP[a2, a4], a5, n] + S2[a6, a1, a3, SP[a2, a5], a4, n] + 
    S2[a2, n]*S2[a6, a1, a4, a3, a5, n] + S2[a6, a1, a4, a3, SP[a2, a5], n] + 
    S2[a6, a1, a4, SP[a2, a3], a5, n] + S2[a6, a1, SP[a2, a3], a4, a5, n] + 
    S2[a6, a1, SP[a2, a3], a5, a4, n] + S2[a6, a1, SP[a2, a4], a3, a5, n] + 
    S2[a6, SP[a1, a2], a3, a4, a5, n] + S2[a6, SP[a1, a2], a3, a5, a4, n] + 
    S2[a6, SP[a1, a2], a4, a3, a5, n] - S2[SP[a1, a5], a3, a6, a2, a4, n] - 
    S2[SP[a1, a5], a6, a2, a3, a4, n] - S2[SP[a1, a5], a6, a2, a4, a3, n] - 
    S2[SP[a1, a5], a6, a3, a2, a4, n] - S2[SP[a1, a6], a3, a4, a2, a5, n] - 
    S2[SP[a1, a6], a3, a4, a5, a2, n] - S2[SP[a1, a6], a3, a5, a4, a2, n] - 
    S2[SP[a1, a6], a4, a2, a3, a5, n] - S2[SP[a1, a6], a4, a3, a2, a5, n] - 
    S2[SP[a1, a6], a4, a3, a5, a2, n] + S2[SP[a2, a6], a1, a3, a4, a5, n] + 
    S2[SP[a2, a6], a1, a3, a5, a4, n] + S2[SP[a2, a6], a1, a4, a3, a5, n] + 
    S2[SP[a2, a6], a4, a1, a3, a5, n] + S2[SP[a3, a5], a1, a6, a2, a4, n] - 
    S2[a6, a1, a2, a3, a4, a5, n] - S2[a6, a1, a2, a3, a5, a4, n] - 
    S2[a6, a1, a2, a4, a3, a5, n] - S2[a6, a1, a3, a2, a4, a5, n] - 
    S2[a6, a1, a3, a2, a5, a4, n] - S2[a6, a1, a3, a5, a2, a4, n] - 
    S2[a6, a2, a1, a3, a4, a5, n] - S2[a6, a2, a1, a3, a5, a4, n] - 
    S2[a6, a2, a1, a4, a3, a5, n] - S2[a6, a2, a4, a1, a3, a5, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a5_, a3_, a1_, a6_, a4_, a2_, n_] :> 
  S2[a1, a3, a5, n]*S2[a2, a4, a6, n] + S2[SP[a1, a2], SP[a3, a4], 
     SP[a5, a6], n] - S2[a1, a2, SP[a3, a4], SP[a5, a6], n] - 
    S2[a3, a5, n]*S2[a1, a6, a4, a2, n] + S2[a1, a6, SP[a3, a4], SP[a2, a5], 
     n] - S2[a1, SP[a2, a3], a4, SP[a5, a6], n] - 
    S2[a1, SP[a2, a3], SP[a4, a5], a6, n] + S2[a1, SP[a3, a6], a4, 
     SP[a2, a5], n] + S2[a1, SP[a3, a6], SP[a4, a5], a2, n] - 
    S2[a2, a1, SP[a3, a4], SP[a5, a6], n] - S2[a2, SP[a1, a4], a3, 
     SP[a5, a6], n] - S2[a2, SP[a1, a4], SP[a3, a6], a5, n] - 
    S2[SP[a1, a2], a3, a4, SP[a5, a6], n] - S2[SP[a1, a2], a3, SP[a4, a5], 
     a6, n] - S2[SP[a1, a2], a4, a3, SP[a5, a6], n] - 
    S2[SP[a1, a2], a4, SP[a3, a6], a5, n] - S2[SP[a1, a2], SP[a3, a4], a5, 
     a6, n] - S2[SP[a1, a2], SP[a3, a4], a6, a5, n] + 
    S2[SP[a1, a3], a6, a4, SP[a2, a5], n] + S2[SP[a1, a3], a6, SP[a4, a5], 
     a2, n] + S2[SP[a1, a3], SP[a5, a6], a4, a2, n] + 
    S2[a1, a2, a3, a4, SP[a5, a6], n] + S2[a1, a2, a3, SP[a4, a5], a6, n] + 
    S2[a1, a2, a4, a3, SP[a5, a6], n] + S2[a1, a2, a4, SP[a3, a6], a5, n] + 
    S2[a1, a2, SP[a3, a4], a5, a6, n] + S2[a1, a2, SP[a3, a4], a6, a5, n] + 
    S2[a1, a3, a2, a4, SP[a5, a6], n] + S2[a1, a3, a2, SP[a4, a5], a6, n] + 
    S2[a6, n]*S2[a1, a3, a4, a2, a5, n] + S2[a1, a3, a4, a2, SP[a5, a6], n] + 
    S2[a6, n]*S2[a1, a3, a4, a5, a2, n] - 
    S2[a2, n]*S2[a1, a3, a4, a5, a6, n] - 
    S2[a2, n]*S2[a1, a3, a4, a6, a5, n] - S2[a1, a3, a4, a6, SP[a2, a5], n] - 
    S2[a1, a3, a4, SP[a2, a5], a6, n] + S2[a1, a3, a4, SP[a5, a6], a2, n] + 
    S2[a6, n]*S2[a1, a3, a5, a4, a2, n] - 
    S2[a2, n]*S2[a1, a3, a5, a4, a6, n] - S2[a1, a3, a5, SP[a2, a4], a6, n] + 
    S2[a1, a3, a5, SP[a4, a6], a2, n] - S2[a5, n]*S2[a1, a3, a6, a4, a2, n] - 
    2*S2[a1, a3, a6, a4, SP[a2, a5], n] - 
    2*S2[a1, a3, a6, SP[a4, a5], a2, n] - S2[a1, a3, SP[a2, a4], a5, a6, n] - 
    S2[a1, a3, SP[a2, a4], a6, a5, n] + S2[a1, a3, SP[a4, a6], a2, a5, n] + 
    S2[a1, a3, SP[a4, a6], a5, a2, n] - S2[a1, a3, SP[a5, a6], a4, a2, n] + 
    S2[a6, n]*S2[a1, a4, a2, a3, a5, n] + S2[a1, a4, a2, a3, SP[a5, a6], n] + 
    S2[a1, a4, a2, SP[a3, a6], a5, n] + S2[a6, n]*S2[a1, a4, a3, a2, a5, n] + 
    S2[a1, a4, a3, a2, SP[a5, a6], n] + S2[a6, n]*S2[a1, a4, a3, a5, a2, n] - 
    S2[a2, n]*S2[a1, a4, a3, a5, a6, n] - 
    S2[a2, n]*S2[a1, a4, a3, a6, a5, n] - S2[a1, a4, a3, a6, SP[a2, a5], n] - 
    S2[a1, a4, a3, SP[a2, a5], a6, n] + S2[a1, a4, a3, SP[a5, a6], a2, n] - 
    S2[a2, n]*S2[a1, a4, a6, a3, a5, n] - S2[a1, a4, a6, a3, SP[a2, a5], n] - 
    S2[a1, a4, a6, SP[a2, a3], a5, n] - S2[a1, a4, SP[a2, a3], a5, a6, n] - 
    S2[a1, a4, SP[a2, a3], a6, a5, n] + S2[a1, a4, SP[a3, a6], a2, a5, n] + 
    S2[a1, a4, SP[a3, a6], a5, a2, n] + S2[a3, n]*S2[a1, a5, a6, a4, a2, n] + 
    S2[a1, a5, a6, a4, SP[a2, a3], n] + S2[a1, a5, a6, SP[a3, a4], a2, n] + 
    S2[a1, a5, SP[a3, a6], a4, a2, n] - S2[a5, n]*S2[a1, a6, a3, a4, a2, n] - 
    2*S2[a1, a6, a3, a4, SP[a2, a5], n] - 
    2*S2[a1, a6, a3, SP[a4, a5], a2, n] - 
    S2[a5, n]*S2[a1, a6, a4, a2, a3, n] + 
    S2[a3, n]*S2[a1, a6, a4, a2, a5, n] - 
    S2[a5, n]*S2[a1, a6, a4, a3, a2, n] - 
    2*S2[a1, a6, a4, a3, SP[a2, a5], n] + 
    S2[a3, n]*S2[a1, a6, a4, a5, a2, n] + S2[a1, a6, a4, a5, SP[a2, a3], n] - 
    S2[a1, a6, a4, SP[a2, a5], a3, n] + S2[a3, n]*S2[a1, a6, a5, a4, a2, n] + 
    S2[a1, a6, a5, a4, SP[a2, a3], n] + S2[a1, a6, a5, SP[a3, a4], a2, n] - 
    S2[a1, a6, SP[a4, a5], a2, a3, n] - S2[a1, a6, SP[a4, a5], a3, a2, n] - 
    S2[a1, SP[a2, a4], a3, a5, a6, n] - S2[a1, SP[a2, a4], a3, a6, a5, n] - 
    S2[a1, SP[a2, a4], a6, a3, a5, n] + S2[a1, SP[a3, a6], a4, a2, a5, n] + 
    S2[a1, SP[a3, a6], a4, a5, a2, n] + S2[a1, SP[a3, a6], a5, a4, a2, n] + 
    S2[a1, SP[a4, a6], a2, a3, a5, n] + S2[a1, SP[a4, a6], a3, a2, a5, n] + 
    S2[a1, SP[a4, a6], a3, a5, a2, n] - S2[a1, SP[a5, a6], a3, a4, a2, n] - 
    S2[a1, SP[a5, a6], a4, a2, a3, n] - S2[a1, SP[a5, a6], a4, a3, a2, n] + 
    S2[a2, a1, a3, a4, SP[a5, a6], n] + S2[a2, a1, a3, SP[a4, a5], a6, n] + 
    S2[a2, a1, a4, a3, SP[a5, a6], n] + S2[a2, a1, a4, SP[a3, a6], a5, n] + 
    S2[a2, a1, SP[a3, a4], a5, a6, n] + S2[a2, a1, SP[a3, a4], a6, a5, n] - 
    S2[a6, n]*S2[a2, a4, a1, a3, a5, n] + S2[a2, SP[a1, a4], a3, a5, a6, n] + 
    S2[a2, SP[a1, a4], a3, a6, a5, n] + S2[a2, SP[a1, a4], a6, a3, a5, n] - 
    S2[a2, SP[a4, a6], a1, a3, a5, n] - S2[a3, a1, a6, a4, SP[a2, a5], n] - 
    S2[a3, a1, a6, SP[a4, a5], a2, n] - S2[a3, a1, SP[a5, a6], a4, a2, n] - 
    S2[a3, SP[a1, a5], a6, a4, a2, n] + S2[a3, n]*S2[a5, a1, a6, a4, a2, n] + 
    S2[a5, a1, a6, a4, SP[a2, a3], n] + S2[a5, a1, a6, SP[a3, a4], a2, n] + 
    S2[a5, a1, SP[a3, a6], a4, a2, n] + S2[a5, SP[a1, a3], a6, a4, a2, n] + 
    S2[a2, n]*S2[a6, a4, a1, a3, a5, n] + S2[a6, a4, a1, a3, SP[a2, a5], n] + 
    S2[a6, a4, a1, SP[a2, a3], a5, n] + S2[a6, a4, SP[a1, a2], a3, a5, n] + 
    S2[a6, SP[a2, a4], a1, a3, a5, n] - S2[SP[a1, a5], a3, a6, a4, a2, n] - 
    S2[SP[a1, a5], a6, a3, a4, a2, n] - S2[SP[a1, a5], a6, a4, a2, a3, n] - 
    S2[SP[a1, a5], a6, a4, a3, a2, n] + S2[SP[a1, a6], a3, a4, a2, a5, n] + 
    S2[SP[a1, a6], a3, a4, a5, a2, n] + S2[SP[a1, a6], a3, a5, a4, a2, n] + 
    S2[SP[a1, a6], a4, a2, a3, a5, n] + S2[SP[a1, a6], a4, a3, a2, a5, n] + 
    S2[SP[a1, a6], a4, a3, a5, a2, n] + S2[SP[a3, a5], a1, a6, a4, a2, n] - 
    S2[a6, a1, a3, a4, a2, a5, n] - S2[a6, a1, a3, a4, a5, a2, n] - 
    S2[a6, a1, a3, a5, a4, a2, n] - S2[a6, a1, a4, a2, a3, a5, n] - 
    S2[a6, a1, a4, a3, a2, a5, n] - S2[a6, a1, a4, a3, a5, a2, n] - 
    S2[a6, a4, a1, a2, a3, a5, n] - S2[a6, a4, a1, a3, a2, a5, n] - 
    S2[a6, a4, a1, a3, a5, a2, n] - S2[a6, a4, a2, a1, a3, a5, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a5_, a3_, a2_, a1_, a4_, a6_, n_] :> 
  S2[a1, a4, a6, n]*S2[a2, a3, a5, n] + S2[SP[a1, a2], SP[a3, a4], 
     SP[a5, a6], n] - S2[a4, a6, n]*S2[a1, a2, a3, a5, n] + 
    S2[a3, a5, n]*S2[a1, a2, a4, a6, n] - S2[a1, a2, SP[a3, a4], SP[a5, a6], 
     n] + S2[a3, a5, n]*S2[a1, a4, a2, a6, n] + 
    S2[a3, a5, n]*S2[a1, a4, a6, a2, n] - S2[a1, a4, SP[a2, a3], SP[a5, a6], 
     n] - S2[a1, a4, SP[a3, a6], SP[a2, a5], n] - S2[a1, SP[a2, a3], a4, 
     SP[a5, a6], n] - S2[a1, SP[a2, a3], SP[a4, a5], a6, n] - 
    S2[a1, SP[a3, a4], a2, SP[a5, a6], n] - S2[a1, SP[a3, a4], a6, 
     SP[a2, a5], n] - S2[a1, SP[a3, a4], SP[a2, a5], a6, n] - 
    S2[a1, SP[a3, a4], SP[a5, a6], a2, n] - S2[a2, a1, SP[a3, a4], 
     SP[a5, a6], n] - S2[a2, SP[a1, a3], a4, SP[a5, a6], n] - 
    S2[a2, SP[a1, a3], SP[a4, a5], a6, n] - S2[SP[a1, a2], a3, a4, 
     SP[a5, a6], n] - S2[SP[a1, a2], a3, SP[a4, a5], a6, n] - 
    S2[SP[a1, a2], a4, a3, SP[a5, a6], n] - S2[SP[a1, a2], a4, SP[a3, a6], 
     a5, n] - S2[SP[a1, a2], SP[a3, a4], a5, a6, n] - 
    S2[SP[a1, a2], SP[a3, a4], a6, a5, n] - S2[SP[a1, a3], a2, a4, 
     SP[a5, a6], n] - S2[SP[a1, a3], a2, SP[a4, a5], a6, n] - 
    S2[SP[a1, a3], a4, a2, SP[a5, a6], n] - S2[SP[a1, a3], a4, a6, 
     SP[a2, a5], n] - S2[SP[a1, a3], a4, SP[a2, a5], a6, n] - 
    S2[SP[a1, a3], a4, SP[a5, a6], a2, n] - S2[SP[a1, a3], SP[a2, a5], a4, 
     a6, n] - S2[SP[a1, a3], SP[a4, a5], a2, a6, n] - 
    S2[SP[a1, a3], SP[a4, a5], a6, a2, n] + S2[SP[a1, a4], a2, a3, 
     SP[a5, a6], n] + S2[SP[a1, a4], a2, SP[a3, a6], a5, n] + 
    S2[SP[a1, a4], SP[a2, a6], a3, a5, n] - 
    S2[a6, n]*S2[a1, a2, a3, a4, a5, n] + 
    S2[a5, n]*S2[a1, a2, a3, a4, a6, n] + S2[a1, a2, a3, a4, SP[a5, a6], n] - 
    S2[a6, n]*S2[a1, a2, a3, a5, a4, n] + 
    S2[a4, n]*S2[a1, a2, a3, a5, a6, n] + 
    S2[a4, n]*S2[a1, a2, a3, a6, a5, n] + S2[a1, a2, a3, a6, SP[a4, a5], n] + 
    3*S2[a1, a2, a3, SP[a4, a5], a6, n] - S2[a1, a2, a3, SP[a5, a6], a4, n] - 
    S2[a6, n]*S2[a1, a2, a4, a3, a5, n] + 
    S2[a5, n]*S2[a1, a2, a4, a3, a6, n] + S2[a1, a2, a4, a3, SP[a5, a6], n] - 
    S2[a3, n]*S2[a1, a2, a4, a5, a6, n] - S2[a1, a2, a4, a5, SP[a3, a6], n] + 
    S2[a5, n]*S2[a1, a2, a4, a6, a3, n] - 
    S2[a3, n]*S2[a1, a2, a4, a6, a5, n] - S2[a1, a2, a4, SP[a3, a6], a5, n] + 
    S2[a1, a2, a4, SP[a5, a6], a3, n] - S2[a3, n]*S2[a1, a2, a5, a4, a6, n] - 
    S2[a1, a2, a5, a4, SP[a3, a6], n] - S2[a1, a2, a5, SP[a3, a4], a6, n] + 
    S2[a4, n]*S2[a1, a2, a6, a3, a5, n] + S2[a1, a2, a6, a3, SP[a4, a5], n] + 
    S2[a1, a2, a6, SP[a3, a4], a5, n] + S2[a1, a2, SP[a3, a4], a5, a6, n] + 
    S2[a1, a2, SP[a3, a4], a6, a5, n] - S2[a1, a2, SP[a3, a6], a4, a5, n] - 
    S2[a1, a2, SP[a3, a6], a5, a4, n] + S2[a1, a2, SP[a4, a5], a3, a6, n] + 
    S2[a1, a2, SP[a4, a5], a6, a3, n] + S2[a5, n]*S2[a1, a3, a2, a4, a6, n] + 
    2*S2[a1, a3, a2, a4, SP[a5, a6], n] + 
    2*S2[a1, a3, a2, SP[a4, a5], a6, n] + 
    S2[a5, n]*S2[a1, a3, a4, a2, a6, n] + 
    2*S2[a1, a3, a4, a2, SP[a5, a6], n] - 
    S2[a2, n]*S2[a1, a3, a4, a5, a6, n] - S2[a1, a3, a4, a5, SP[a2, a6], n] + 
    S2[a5, n]*S2[a1, a3, a4, a6, a2, n] - 
    S2[a2, n]*S2[a1, a3, a4, a6, a5, n] + S2[a1, a3, a4, a6, SP[a2, a5], n] + 
    S2[a1, a3, a4, SP[a2, a5], a6, n] - S2[a1, a3, a4, SP[a2, a6], a5, n] + 
    2*S2[a1, a3, a4, SP[a5, a6], a2, n] - 
    S2[a2, n]*S2[a1, a3, a5, a4, a6, n] - S2[a1, a3, a5, a4, SP[a2, a6], n] - 
    S2[a1, a3, a5, SP[a2, a4], a6, n] - S2[a1, a3, SP[a2, a4], a5, a6, n] - 
    S2[a1, a3, SP[a2, a4], a6, a5, n] + S2[a1, a3, SP[a2, a5], a4, a6, n] + 
    2*S2[a1, a3, SP[a4, a5], a2, a6, n] + 
    2*S2[a1, a3, SP[a4, a5], a6, a2, n] - 
    S2[a6, n]*S2[a1, a4, a2, a3, a5, n] + 
    S2[a5, n]*S2[a1, a4, a2, a3, a6, n] + S2[a1, a4, a2, a3, SP[a5, a6], n] - 
    S2[a3, n]*S2[a1, a4, a2, a5, a6, n] - S2[a1, a4, a2, a5, SP[a3, a6], n] + 
    S2[a5, n]*S2[a1, a4, a2, a6, a3, n] - 
    S2[a3, n]*S2[a1, a4, a2, a6, a5, n] - S2[a1, a4, a2, SP[a3, a6], a5, n] + 
    S2[a1, a4, a2, SP[a5, a6], a3, n] + S2[a5, n]*S2[a1, a4, a3, a2, a6, n] + 
    2*S2[a1, a4, a3, a2, SP[a5, a6], n] - 
    S2[a2, n]*S2[a1, a4, a3, a5, a6, n] - S2[a1, a4, a3, a5, SP[a2, a6], n] + 
    S2[a5, n]*S2[a1, a4, a3, a6, a2, n] - 
    S2[a2, n]*S2[a1, a4, a3, a6, a5, n] + S2[a1, a4, a3, a6, SP[a2, a5], n] + 
    S2[a1, a4, a3, SP[a2, a5], a6, n] - S2[a1, a4, a3, SP[a2, a6], a5, n] + 
    2*S2[a1, a4, a3, SP[a5, a6], a2, n] - 
    S2[a3, n]*S2[a1, a4, a5, a2, a6, n] - S2[a1, a4, a5, a2, SP[a3, a6], n] - 
    S2[a3, n]*S2[a1, a4, a5, a6, a2, n] - S2[a1, a4, a5, a6, SP[a2, a3], n] - 
    S2[a1, a4, a5, SP[a2, a3], a6, n] - S2[a1, a4, a5, SP[a3, a6], a2, n] + 
    S2[a5, n]*S2[a1, a4, a6, a2, a3, n] - 
    S2[a3, n]*S2[a1, a4, a6, a2, a5, n] + 
    S2[a5, n]*S2[a1, a4, a6, a3, a2, n] - 
    S2[a2, n]*S2[a1, a4, a6, a3, a5, n] + S2[a1, a4, a6, a3, SP[a2, a5], n] - 
    S2[a3, n]*S2[a1, a4, a6, a5, a2, n] - S2[a1, a4, a6, a5, SP[a2, a3], n] - 
    S2[a1, a4, a6, SP[a2, a3], a5, n] + S2[a1, a4, a6, SP[a2, a5], a3, n] - 
    S2[a1, a4, SP[a2, a3], a5, a6, n] - S2[a1, a4, SP[a2, a3], a6, a5, n] + 
    S2[a1, a4, SP[a2, a5], a3, a6, n] + S2[a1, a4, SP[a2, a5], a6, a3, n] - 
    2*S2[a1, a4, SP[a2, a6], a3, a5, n] + S2[a1, a4, SP[a5, a6], a2, a3, n] + 
    S2[a1, a4, SP[a5, a6], a3, a2, n] - S2[a3, n]*S2[a1, a5, a2, a4, a6, n] - 
    S2[a1, a5, a2, a4, SP[a3, a6], n] - S2[a1, a5, a2, SP[a3, a4], a6, n] - 
    S2[a3, n]*S2[a1, a5, a4, a2, a6, n] - S2[a1, a5, a4, a2, SP[a3, a6], n] - 
    S2[a3, n]*S2[a1, a5, a4, a6, a2, n] - S2[a1, a5, a4, a6, SP[a2, a3], n] - 
    S2[a1, a5, a4, SP[a2, a3], a6, n] - S2[a1, a5, a4, SP[a3, a6], a2, n] - 
    S2[a1, a5, SP[a2, a3], a4, a6, n] - S2[a1, a5, SP[a3, a4], a2, a6, n] - 
    S2[a1, a5, SP[a3, a4], a6, a2, n] + S2[a4, n]*S2[a1, a6, a2, a3, a5, n] + 
    S2[a1, a6, a2, a3, SP[a4, a5], n] + S2[a1, a6, a2, SP[a3, a4], a5, n] + 
    S2[a1, a6, SP[a2, a4], a3, a5, n] - S2[a1, SP[a2, a3], a4, a5, a6, n] - 
    S2[a1, SP[a2, a3], a4, a6, a5, n] - S2[a1, SP[a2, a3], a5, a4, a6, n] + 
    S2[a1, SP[a2, a5], a3, a4, a6, n] + S2[a1, SP[a2, a5], a4, a3, a6, n] + 
    S2[a1, SP[a2, a5], a4, a6, a3, n] - S2[a1, SP[a2, a6], a3, a4, a5, n] - 
    S2[a1, SP[a2, a6], a3, a5, a4, n] - S2[a1, SP[a2, a6], a4, a3, a5, n] + 
    S2[a1, SP[a4, a5], a2, a3, a6, n] + S2[a1, SP[a4, a5], a2, a6, a3, n] + 
    S2[a1, SP[a4, a5], a3, a2, a6, n] + S2[a1, SP[a4, a5], a3, a6, a2, n] + 
    S2[a1, SP[a4, a5], a6, a2, a3, n] + S2[a1, SP[a4, a5], a6, a3, a2, n] + 
    S2[a2, a1, a3, a4, SP[a5, a6], n] + S2[a2, a1, a3, SP[a4, a5], a6, n] + 
    S2[a2, a1, a4, a3, SP[a5, a6], n] + S2[a2, a1, a4, SP[a3, a6], a5, n] + 
    S2[a2, a1, SP[a3, a4], a5, a6, n] + S2[a2, a1, SP[a3, a4], a6, a5, n] - 
    S2[a5, n]*S2[a2, a3, a1, a4, a6, n] + S2[a2, SP[a1, a3], a4, a5, a6, n] + 
    S2[a2, SP[a1, a3], a4, a6, a5, n] + S2[a2, SP[a1, a3], a5, a4, a6, n] - 
    S2[a2, SP[a3, a5], a1, a4, a6, n] + S2[a3, a1, a2, a4, SP[a5, a6], n] + 
    S2[a3, a1, a2, SP[a4, a5], a6, n] + S2[a3, a1, a4, a2, SP[a5, a6], n] + 
    S2[a3, a1, a4, a6, SP[a2, a5], n] + S2[a3, a1, a4, SP[a2, a5], a6, n] + 
    S2[a3, a1, a4, SP[a5, a6], a2, n] + S2[a3, a1, SP[a2, a5], a4, a6, n] + 
    S2[a3, a1, SP[a4, a5], a2, a6, n] + S2[a3, a1, SP[a4, a5], a6, a2, n] + 
    S2[a3, SP[a1, a5], a2, a4, a6, n] + S2[a3, SP[a1, a5], a4, a2, a6, n] + 
    S2[a3, SP[a1, a5], a4, a6, a2, n] - S2[a4, a1, a2, a3, SP[a5, a6], n] - 
    S2[a4, a1, a2, SP[a3, a6], a5, n] - S2[a4, a1, SP[a2, a6], a3, a5, n] - 
    S2[a4, SP[a1, a6], a2, a3, a5, n] - S2[a3, n]*S2[a5, a1, a2, a4, a6, n] - 
    S2[a5, a1, a2, a4, SP[a3, a6], n] - S2[a5, a1, a2, SP[a3, a4], a6, n] - 
    S2[a3, n]*S2[a5, a1, a4, a2, a6, n] - S2[a5, a1, a4, a2, SP[a3, a6], n] - 
    S2[a3, n]*S2[a5, a1, a4, a6, a2, n] - S2[a5, a1, a4, a6, SP[a2, a3], n] - 
    S2[a5, a1, a4, SP[a2, a3], a6, n] - S2[a5, a1, a4, SP[a3, a6], a2, n] - 
    S2[a5, a1, SP[a2, a3], a4, a6, n] - S2[a5, a1, SP[a3, a4], a2, a6, n] - 
    S2[a5, a1, SP[a3, a4], a6, a2, n] + S2[a2, n]*S2[a5, a3, a1, a4, a6, n] + 
    S2[a5, a3, a1, a4, SP[a2, a6], n] + S2[a5, a3, a1, SP[a2, a4], a6, n] + 
    S2[a5, a3, SP[a1, a2], a4, a6, n] - S2[a5, SP[a1, a3], a2, a4, a6, n] - 
    S2[a5, SP[a1, a3], a4, a2, a6, n] - S2[a5, SP[a1, a3], a4, a6, a2, n] + 
    S2[a5, SP[a2, a3], a1, a4, a6, n] + S2[a4, n]*S2[a6, a1, a2, a3, a5, n] + 
    S2[a6, a1, a2, a3, SP[a4, a5], n] + S2[a6, a1, a2, SP[a3, a4], a5, n] + 
    S2[a6, a1, SP[a2, a4], a3, a5, n] + S2[a6, SP[a1, a4], a2, a3, a5, n] + 
    S2[SP[a1, a5], a2, a3, a4, a6, n] + S2[SP[a1, a5], a2, a4, a3, a6, n] + 
    S2[SP[a1, a5], a2, a4, a6, a3, n] + S2[SP[a1, a5], a3, a2, a4, a6, n] + 
    S2[SP[a1, a5], a3, a4, a2, a6, n] + S2[SP[a1, a5], a3, a4, a6, a2, n] + 
    S2[SP[a1, a5], a4, a2, a3, a6, n] + S2[SP[a1, a5], a4, a2, a6, a3, n] + 
    S2[SP[a1, a5], a4, a3, a2, a6, n] + S2[SP[a1, a5], a4, a3, a6, a2, n] + 
    S2[SP[a1, a5], a4, a6, a2, a3, n] + S2[SP[a1, a5], a4, a6, a3, a2, n] - 
    S2[SP[a1, a6], a2, a3, a4, a5, n] - S2[SP[a1, a6], a2, a3, a5, a4, n] - 
    S2[SP[a1, a6], a2, a4, a3, a5, n] - S2[SP[a1, a6], a4, a2, a3, a5, n] - 
    S2[SP[a3, a5], a1, a2, a4, a6, n] - S2[SP[a3, a5], a1, a4, a2, a6, n] - 
    S2[SP[a3, a5], a1, a4, a6, a2, n] + S2[SP[a4, a6], a1, a2, a3, a5, n] - 
    S2[a6, a4, a1, a2, a3, a5, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a5_, a3_, a2_, a1_, a6_, a4_, n_] :> 
  S2[a1, a6, a4, n]*S2[a2, a3, a5, n] + S2[SP[a1, a2], SP[a3, a6], 
     SP[a4, a5], n] + S2[a4, a6, n]*S2[a1, a2, a3, a5, n] + 
    S2[a3, a5, n]*S2[a1, a2, a6, a4, n] - S2[a1, a2, SP[a3, a4], SP[a5, a6], 
     n] - 2*S2[a1, a2, SP[a3, a6], SP[a4, a5], n] + 
    S2[a3, a5, n]*S2[a1, a6, a2, a4, n] + S2[a3, a5, n]*
     S2[a1, a6, a4, a2, n] - S2[a1, a6, SP[a2, a3], SP[a4, a5], n] - 
    S2[a1, a6, SP[a3, a4], SP[a2, a5], n] - S2[a1, SP[a2, a3], a6, 
     SP[a4, a5], n] - S2[a1, SP[a2, a3], SP[a5, a6], a4, n] - 
    S2[a1, SP[a2, a4], a3, SP[a5, a6], n] - S2[a1, SP[a2, a4], SP[a3, a6], 
     a5, n] - S2[a1, SP[a2, a6], a3, SP[a4, a5], n] - 
    S2[a1, SP[a2, a6], SP[a3, a4], a5, n] - S2[a1, SP[a3, a6], a2, 
     SP[a4, a5], n] - S2[a1, SP[a3, a6], a4, SP[a2, a5], n] - 
    S2[a1, SP[a3, a6], SP[a2, a5], a4, n] - S2[a1, SP[a3, a6], SP[a4, a5], 
     a2, n] - S2[a2, a1, SP[a3, a6], SP[a4, a5], n] - 
    S2[a2, SP[a1, a3], a6, SP[a4, a5], n] - S2[a2, SP[a1, a3], SP[a5, a6], 
     a4, n] - S2[SP[a1, a2], a3, a6, SP[a4, a5], n] - 
    S2[SP[a1, a2], a3, SP[a5, a6], a4, n] - S2[SP[a1, a2], a6, a3, 
     SP[a4, a5], n] - S2[SP[a1, a2], a6, SP[a3, a4], a5, n] - 
    S2[SP[a1, a2], SP[a3, a6], a4, a5, n] - S2[SP[a1, a2], SP[a3, a6], a5, 
     a4, n] - S2[SP[a1, a3], a2, a6, SP[a4, a5], n] - 
    S2[SP[a1, a3], a2, SP[a5, a6], a4, n] - S2[SP[a1, a3], a6, a2, 
     SP[a4, a5], n] - S2[SP[a1, a3], a6, a4, SP[a2, a5], n] - 
    S2[SP[a1, a3], a6, SP[a2, a5], a4, n] - S2[SP[a1, a3], a6, SP[a4, a5], 
     a2, n] - S2[SP[a1, a3], SP[a2, a5], a6, a4, n] - 
    S2[SP[a1, a3], SP[a5, a6], a2, a4, n] - S2[SP[a1, a3], SP[a5, a6], a4, 
     a2, n] - S2[SP[a1, a4], a2, a3, SP[a5, a6], n] - 
    S2[SP[a1, a4], a2, SP[a3, a6], a5, n] - S2[SP[a1, a4], SP[a2, a6], a3, 
     a5, n] + S2[a1, a2, a3, a4, SP[a5, a6], n] - 
    S2[a4, n]*S2[a1, a2, a3, a5, a6, n] - S2[a1, a2, a3, a5, SP[a4, a6], n] + 
    S2[a5, n]*S2[a1, a2, a3, a6, a4, n] - 
    S2[a4, n]*S2[a1, a2, a3, a6, a5, n] + 
    2*S2[a1, a2, a3, a6, SP[a4, a5], n] - S2[a1, a2, a3, SP[a4, a6], a5, n] + 
    3*S2[a1, a2, a3, SP[a5, a6], a4, n] + S2[a1, a2, a4, a3, SP[a5, a6], n] + 
    S2[a1, a2, a4, SP[a3, a6], a5, n] - S2[a3, n]*S2[a1, a2, a5, a6, a4, n] - 
    S2[a1, a2, a5, a6, SP[a3, a4], n] - S2[a1, a2, a5, SP[a3, a6], a4, n] + 
    S2[a5, n]*S2[a1, a2, a6, a3, a4, n] - 
    S2[a4, n]*S2[a1, a2, a6, a3, a5, n] + 
    2*S2[a1, a2, a6, a3, SP[a4, a5], n] + 
    S2[a5, n]*S2[a1, a2, a6, a4, a3, n] - 
    S2[a3, n]*S2[a1, a2, a6, a4, a5, n] - 
    S2[a3, n]*S2[a1, a2, a6, a5, a4, n] - S2[a1, a2, a6, a5, SP[a3, a4], n] + 
    S2[a1, a2, a6, SP[a4, a5], a3, n] + S2[a1, a2, SP[a3, a6], a4, a5, n] + 
    S2[a1, a2, SP[a3, a6], a5, a4, n] - S2[a1, a2, SP[a4, a6], a3, a5, n] + 
    S2[a1, a2, SP[a5, a6], a3, a4, n] + S2[a1, a2, SP[a5, a6], a4, a3, n] + 
    S2[a5, n]*S2[a1, a3, a2, a6, a4, n] + 
    2*S2[a1, a3, a2, a6, SP[a4, a5], n] + 
    2*S2[a1, a3, a2, SP[a5, a6], a4, n] - 
    S2[a2, n]*S2[a1, a3, a5, a6, a4, n] - S2[a1, a3, a5, a6, SP[a2, a4], n] - 
    S2[a1, a3, a5, SP[a2, a6], a4, n] + S2[a5, n]*S2[a1, a3, a6, a2, a4, n] + 
    2*S2[a1, a3, a6, a2, SP[a4, a5], n] + 
    S2[a5, n]*S2[a1, a3, a6, a4, a2, n] - 
    S2[a2, n]*S2[a1, a3, a6, a4, a5, n] + S2[a1, a3, a6, a4, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a3, a6, a5, a4, n] - S2[a1, a3, a6, a5, SP[a2, a4], n] - 
    S2[a1, a3, a6, SP[a2, a4], a5, n] + S2[a1, a3, a6, SP[a2, a5], a4, n] + 
    2*S2[a1, a3, a6, SP[a4, a5], a2, n] + S2[a1, a3, SP[a2, a5], a6, a4, n] - 
    S2[a1, a3, SP[a2, a6], a4, a5, n] - S2[a1, a3, SP[a2, a6], a5, a4, n] + 
    2*S2[a1, a3, SP[a5, a6], a2, a4, n] + 
    2*S2[a1, a3, SP[a5, a6], a4, a2, n] + S2[a1, a4, a2, a3, SP[a5, a6], n] + 
    S2[a1, a4, a2, SP[a3, a6], a5, n] + S2[a1, a4, SP[a2, a6], a3, a5, n] - 
    S2[a3, n]*S2[a1, a5, a2, a6, a4, n] - S2[a1, a5, a2, a6, SP[a3, a4], n] - 
    S2[a1, a5, a2, SP[a3, a6], a4, n] - S2[a3, n]*S2[a1, a5, a6, a2, a4, n] - 
    S2[a1, a5, a6, a2, SP[a3, a4], n] - S2[a3, n]*S2[a1, a5, a6, a4, a2, n] - 
    S2[a1, a5, a6, a4, SP[a2, a3], n] - S2[a1, a5, a6, SP[a2, a3], a4, n] - 
    S2[a1, a5, a6, SP[a3, a4], a2, n] - S2[a1, a5, SP[a2, a3], a6, a4, n] - 
    S2[a1, a5, SP[a3, a6], a2, a4, n] - S2[a1, a5, SP[a3, a6], a4, a2, n] + 
    S2[a5, n]*S2[a1, a6, a2, a3, a4, n] - 
    S2[a4, n]*S2[a1, a6, a2, a3, a5, n] + 
    2*S2[a1, a6, a2, a3, SP[a4, a5], n] + 
    S2[a5, n]*S2[a1, a6, a2, a4, a3, n] - 
    S2[a3, n]*S2[a1, a6, a2, a4, a5, n] - 
    S2[a3, n]*S2[a1, a6, a2, a5, a4, n] - S2[a1, a6, a2, a5, SP[a3, a4], n] + 
    S2[a1, a6, a2, SP[a4, a5], a3, n] + S2[a5, n]*S2[a1, a6, a3, a2, a4, n] + 
    2*S2[a1, a6, a3, a2, SP[a4, a5], n] + 
    S2[a5, n]*S2[a1, a6, a3, a4, a2, n] - 
    S2[a2, n]*S2[a1, a6, a3, a4, a5, n] + S2[a1, a6, a3, a4, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a6, a3, a5, a4, n] - S2[a1, a6, a3, a5, SP[a2, a4], n] - 
    S2[a1, a6, a3, SP[a2, a4], a5, n] + S2[a1, a6, a3, SP[a2, a5], a4, n] + 
    2*S2[a1, a6, a3, SP[a4, a5], a2, n] + 
    S2[a5, n]*S2[a1, a6, a4, a2, a3, n] - 
    S2[a3, n]*S2[a1, a6, a4, a2, a5, n] + 
    S2[a5, n]*S2[a1, a6, a4, a3, a2, n] - 
    S2[a2, n]*S2[a1, a6, a4, a3, a5, n] + S2[a1, a6, a4, a3, SP[a2, a5], n] - 
    S2[a3, n]*S2[a1, a6, a4, a5, a2, n] - S2[a1, a6, a4, a5, SP[a2, a3], n] - 
    S2[a1, a6, a4, SP[a2, a3], a5, n] + S2[a1, a6, a4, SP[a2, a5], a3, n] - 
    S2[a3, n]*S2[a1, a6, a5, a2, a4, n] - S2[a1, a6, a5, a2, SP[a3, a4], n] - 
    S2[a3, n]*S2[a1, a6, a5, a4, a2, n] - S2[a1, a6, a5, a4, SP[a2, a3], n] - 
    S2[a1, a6, a5, SP[a2, a3], a4, n] - S2[a1, a6, a5, SP[a3, a4], a2, n] - 
    S2[a1, a6, SP[a2, a3], a4, a5, n] - S2[a1, a6, SP[a2, a3], a5, a4, n] - 
    S2[a1, a6, SP[a2, a4], a3, a5, n] + S2[a1, a6, SP[a2, a5], a3, a4, n] + 
    S2[a1, a6, SP[a2, a5], a4, a3, n] + S2[a1, a6, SP[a4, a5], a2, a3, n] + 
    S2[a1, a6, SP[a4, a5], a3, a2, n] - S2[a1, SP[a2, a3], a5, a6, a4, n] - 
    S2[a1, SP[a2, a3], a6, a4, a5, n] - S2[a1, SP[a2, a3], a6, a5, a4, n] + 
    S2[a1, SP[a2, a5], a3, a6, a4, n] + S2[a1, SP[a2, a5], a6, a3, a4, n] + 
    S2[a1, SP[a2, a5], a6, a4, a3, n] - S2[a1, SP[a4, a6], a2, a3, a5, n] + 
    S2[a1, SP[a5, a6], a2, a3, a4, n] + S2[a1, SP[a5, a6], a2, a4, a3, n] + 
    S2[a1, SP[a5, a6], a3, a2, a4, n] + S2[a1, SP[a5, a6], a3, a4, a2, n] + 
    S2[a1, SP[a5, a6], a4, a2, a3, n] + S2[a1, SP[a5, a6], a4, a3, a2, n] + 
    S2[a2, a1, a3, a6, SP[a4, a5], n] + S2[a2, a1, a3, SP[a5, a6], a4, n] + 
    S2[a2, a1, a6, a3, SP[a4, a5], n] + S2[a2, a1, a6, SP[a3, a4], a5, n] + 
    S2[a2, a1, SP[a3, a6], a4, a5, n] + S2[a2, a1, SP[a3, a6], a5, a4, n] - 
    S2[a5, n]*S2[a2, a3, a1, a6, a4, n] + S2[a2, SP[a1, a3], a5, a6, a4, n] + 
    S2[a2, SP[a1, a3], a6, a4, a5, n] + S2[a2, SP[a1, a3], a6, a5, a4, n] - 
    S2[a2, SP[a3, a5], a1, a6, a4, n] + S2[a3, a1, a2, a6, SP[a4, a5], n] + 
    S2[a3, a1, a2, SP[a5, a6], a4, n] + S2[a3, a1, a6, a2, SP[a4, a5], n] + 
    S2[a3, a1, a6, a4, SP[a2, a5], n] + S2[a3, a1, a6, SP[a2, a5], a4, n] + 
    S2[a3, a1, a6, SP[a4, a5], a2, n] + S2[a3, a1, SP[a2, a5], a6, a4, n] + 
    S2[a3, a1, SP[a5, a6], a2, a4, n] + S2[a3, a1, SP[a5, a6], a4, a2, n] + 
    S2[a3, SP[a1, a5], a2, a6, a4, n] + S2[a3, SP[a1, a5], a6, a2, a4, n] + 
    S2[a3, SP[a1, a5], a6, a4, a2, n] + S2[a4, a1, a2, a3, SP[a5, a6], n] + 
    S2[a4, a1, a2, SP[a3, a6], a5, n] + S2[a4, a1, SP[a2, a6], a3, a5, n] + 
    S2[a4, SP[a1, a6], a2, a3, a5, n] - S2[a3, n]*S2[a5, a1, a2, a6, a4, n] - 
    S2[a5, a1, a2, a6, SP[a3, a4], n] - S2[a5, a1, a2, SP[a3, a6], a4, n] - 
    S2[a3, n]*S2[a5, a1, a6, a2, a4, n] - S2[a5, a1, a6, a2, SP[a3, a4], n] - 
    S2[a3, n]*S2[a5, a1, a6, a4, a2, n] - S2[a5, a1, a6, a4, SP[a2, a3], n] - 
    S2[a5, a1, a6, SP[a2, a3], a4, n] - S2[a5, a1, a6, SP[a3, a4], a2, n] - 
    S2[a5, a1, SP[a2, a3], a6, a4, n] - S2[a5, a1, SP[a3, a6], a2, a4, n] - 
    S2[a5, a1, SP[a3, a6], a4, a2, n] + S2[a2, n]*S2[a5, a3, a1, a6, a4, n] + 
    S2[a5, a3, a1, a6, SP[a2, a4], n] + S2[a5, a3, a1, SP[a2, a6], a4, n] + 
    S2[a5, a3, SP[a1, a2], a6, a4, n] - S2[a5, SP[a1, a3], a2, a6, a4, n] - 
    S2[a5, SP[a1, a3], a6, a2, a4, n] - S2[a5, SP[a1, a3], a6, a4, a2, n] + 
    S2[a5, SP[a2, a3], a1, a6, a4, n] - S2[a4, n]*S2[a6, a1, a2, a3, a5, n] - 
    S2[a6, a1, a2, a3, SP[a4, a5], n] - S2[a6, a1, a2, SP[a3, a4], a5, n] - 
    S2[a6, a1, SP[a2, a4], a3, a5, n] - S2[a6, SP[a1, a4], a2, a3, a5, n] + 
    S2[SP[a1, a5], a2, a3, a6, a4, n] + S2[SP[a1, a5], a2, a6, a3, a4, n] + 
    S2[SP[a1, a5], a2, a6, a4, a3, n] + S2[SP[a1, a5], a3, a2, a6, a4, n] + 
    S2[SP[a1, a5], a3, a6, a2, a4, n] + S2[SP[a1, a5], a3, a6, a4, a2, n] + 
    S2[SP[a1, a5], a6, a2, a3, a4, n] + S2[SP[a1, a5], a6, a2, a4, a3, n] + 
    S2[SP[a1, a5], a6, a3, a2, a4, n] + S2[SP[a1, a5], a6, a3, a4, a2, n] + 
    S2[SP[a1, a5], a6, a4, a2, a3, n] + S2[SP[a1, a5], a6, a4, a3, a2, n] - 
    S2[SP[a3, a5], a1, a2, a6, a4, n] - S2[SP[a3, a5], a1, a6, a2, a4, n] - 
    S2[SP[a3, a5], a1, a6, a4, a2, n] - S2[SP[a4, a6], a1, a2, a3, a5, n] + 
    S2[a6, a1, a2, a3, a4, a5, n] + S2[a6, a1, a2, a3, a5, a4, n] + 
    S2[a6, a1, a2, a4, a3, a5, n] + S2[a6, a1, a4, a2, a3, a5, n] + 
    S2[a6, a4, a1, a2, a3, a5, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a5_, a3_, a2_, a4_, a1_, a6_, n_] :> 
  -(S2[a1, a4, a6, n]*S2[a2, a3, a5, n]) - S2[a1, a6, a4, n]*
     S2[a2, a3, a5, n] - S2[SP[a1, a2], SP[a3, a4], SP[a5, a6], n] - 
    S2[SP[a1, a2], SP[a3, a6], SP[a4, a5], n] + S2[a1, a2, SP[a3, a4], 
     SP[a5, a6], n] + S2[a1, a2, SP[a3, a6], SP[a4, a5], n] - 
    S2[a3, a5, n]*S2[a1, a4, a2, a6, n] - S2[a3, a5, n]*
     S2[a1, a4, a6, a2, n] + S2[a1, a4, SP[a2, a3], SP[a5, a6], n] + 
    S2[a1, a4, SP[a3, a6], SP[a2, a5], n] - S2[a3, a5, n]*
     S2[a1, a6, a4, a2, n] + S2[a1, a6, SP[a3, a4], SP[a2, a5], n] + 
    S2[a1, SP[a2, a4], a3, SP[a5, a6], n] + S2[a1, SP[a2, a4], SP[a3, a6], 
     a5, n] + S2[a1, SP[a2, a6], a3, SP[a4, a5], n] + 
    S2[a1, SP[a2, a6], SP[a3, a4], a5, n] + S2[a1, SP[a3, a4], a2, 
     SP[a5, a6], n] + S2[a1, SP[a3, a4], a6, SP[a2, a5], n] + 
    S2[a1, SP[a3, a4], SP[a2, a5], a6, n] + S2[a1, SP[a3, a4], SP[a5, a6], 
     a2, n] + S2[a1, SP[a3, a6], a4, SP[a2, a5], n] + 
    S2[a1, SP[a3, a6], SP[a4, a5], a2, n] + S2[a2, a1, SP[a3, a4], 
     SP[a5, a6], n] + S2[a2, a1, SP[a3, a6], SP[a4, a5], n] + 
    S2[a1, a6, n]*S2[a2, a3, a4, a5, n] + S2[a1, a6, n]*
     S2[a2, a3, a5, a4, n] - S2[a2, a3, SP[a1, a4], SP[a5, a6], n] - 
    S2[a2, a3, SP[a1, a5], SP[a4, a6], n] + S2[a1, a6, n]*
     S2[a2, a4, a3, a5, n] + S2[a1, a6, n]*S2[a2, a4, a5, a3, n] - 
    S2[a2, a4, SP[a1, a3], SP[a5, a6], n] - S2[a2, a4, SP[a1, a5], 
     SP[a3, a6], n] + S2[a1, a6, n]*S2[a2, a5, a3, a4, n] + 
    S2[a1, a6, n]*S2[a2, a5, a4, a3, n] - S2[a2, a5, SP[a1, a3], SP[a4, a6], 
     n] - S2[a2, a5, SP[a1, a4], SP[a3, a6], n] - S2[a2, SP[a1, a3], a5, 
     SP[a4, a6], n] + S2[a2, SP[a1, a3], a6, SP[a4, a5], n] + 
    S2[a2, SP[a1, a3], SP[a4, a5], a6, n] - S2[a2, SP[a1, a3], SP[a4, a6], 
     a5, n] - S2[a2, SP[a1, a4], a3, SP[a5, a6], n] - 
    S2[a2, SP[a1, a4], a5, SP[a3, a6], n] - S2[a2, SP[a1, a4], SP[a3, a6], 
     a5, n] - S2[a2, SP[a1, a4], SP[a5, a6], a3, n] - 
    S2[a2, SP[a1, a5], a3, SP[a4, a6], n] - S2[a2, SP[a1, a5], a4, 
     SP[a3, a6], n] - S2[a2, SP[a1, a5], SP[a3, a6], a4, n] - 
    S2[a2, SP[a1, a5], SP[a4, a6], a3, n] - S2[a1, a6, n]*
     S2[a3, a5, a2, a4, n] + S2[a3, a5, SP[a1, a2], SP[a4, a6], n] + 
    S2[a3, SP[a1, a5], a2, SP[a4, a6], n] + S2[a3, SP[a1, a5], SP[a2, a6], 
     a4, n] - S2[SP[a1, a2], a3, a5, SP[a4, a6], n] + 
    S2[SP[a1, a2], a3, a6, SP[a4, a5], n] + S2[SP[a1, a2], a3, SP[a4, a5], 
     a6, n] - S2[SP[a1, a2], a3, SP[a4, a6], a5, n] - 
    S2[SP[a1, a2], a4, a5, SP[a3, a6], n] - S2[SP[a1, a2], a4, SP[a5, a6], 
     a3, n] - S2[SP[a1, a2], a5, a3, SP[a4, a6], n] - 
    S2[SP[a1, a2], a5, a4, SP[a3, a6], n] - S2[SP[a1, a2], a5, SP[a3, a6], 
     a4, n] - S2[SP[a1, a2], a5, SP[a4, a6], a3, n] + 
    S2[SP[a1, a2], a6, a3, SP[a4, a5], n] + S2[SP[a1, a2], a6, SP[a3, a4], 
     a5, n] + S2[SP[a1, a2], SP[a3, a4], a5, a6, n] + 
    S2[SP[a1, a2], SP[a3, a4], a6, a5, n] - S2[SP[a1, a2], SP[a4, a6], a3, 
     a5, n] - S2[SP[a1, a2], SP[a4, a6], a5, a3, n] - 
    S2[SP[a1, a2], SP[a5, a6], a3, a4, n] - S2[SP[a1, a2], SP[a5, a6], a4, 
     a3, n] + S2[SP[a1, a3], a4, a2, SP[a5, a6], n] + 
    S2[SP[a1, a3], a4, a6, SP[a2, a5], n] + S2[SP[a1, a3], a4, SP[a2, a5], 
     a6, n] + S2[SP[a1, a3], a4, SP[a5, a6], a2, n] + 
    S2[SP[a1, a3], a5, a2, SP[a4, a6], n] + S2[SP[a1, a3], a5, SP[a2, a6], 
     a4, n] + S2[SP[a1, a3], a6, a4, SP[a2, a5], n] + 
    S2[SP[a1, a3], a6, SP[a4, a5], a2, n] + S2[SP[a1, a3], SP[a4, a5], a2, 
     a6, n] + S2[SP[a1, a3], SP[a4, a5], a6, a2, n] + 
    S2[SP[a1, a3], SP[a5, a6], a2, a4, n] + S2[SP[a1, a3], SP[a5, a6], a4, 
     a2, n] + S2[a1, a2, a3, a5, SP[a4, a6], n] - 
    S2[a1, a2, a3, a6, SP[a4, a5], n] - S2[a1, a2, a3, SP[a4, a5], a6, n] + 
    S2[a1, a2, a3, SP[a4, a6], a5, n] + S2[a1, a2, a4, a5, SP[a3, a6], n] + 
    S2[a1, a2, a4, SP[a5, a6], a3, n] + S2[a1, a2, a5, a3, SP[a4, a6], n] + 
    S2[a1, a2, a5, a4, SP[a3, a6], n] + S2[a1, a2, a5, SP[a3, a6], a4, n] + 
    S2[a1, a2, a5, SP[a4, a6], a3, n] - S2[a1, a2, a6, a3, SP[a4, a5], n] - 
    S2[a1, a2, a6, SP[a3, a4], a5, n] - S2[a1, a2, SP[a3, a4], a5, a6, n] - 
    S2[a1, a2, SP[a3, a4], a6, a5, n] + S2[a1, a2, SP[a4, a6], a3, a5, n] + 
    S2[a1, a2, SP[a4, a6], a5, a3, n] + S2[a1, a2, SP[a5, a6], a3, a4, n] + 
    S2[a1, a2, SP[a5, a6], a4, a3, n] - S2[a1, a3, a4, a2, SP[a5, a6], n] - 
    S2[a1, a3, a4, a6, SP[a2, a5], n] - S2[a1, a3, a4, SP[a2, a5], a6, n] - 
    S2[a1, a3, a4, SP[a5, a6], a2, n] - S2[a1, a3, a5, a2, SP[a4, a6], n] - 
    S2[a1, a3, a5, SP[a2, a6], a4, n] - S2[a1, a3, a6, a4, SP[a2, a5], n] - 
    S2[a1, a3, a6, SP[a4, a5], a2, n] - S2[a1, a3, SP[a4, a5], a2, a6, n] - 
    S2[a1, a3, SP[a4, a5], a6, a2, n] - S2[a1, a3, SP[a5, a6], a2, a4, n] - 
    S2[a1, a3, SP[a5, a6], a4, a2, n] + S2[a6, n]*S2[a1, a4, a2, a3, a5, n] - 
    S2[a1, a4, a2, a3, SP[a5, a6], n] + S2[a3, n]*S2[a1, a4, a2, a5, a6, n] + 
    S2[a1, a4, a2, a5, SP[a3, a6], n] + S2[a3, n]*S2[a1, a4, a2, a6, a5, n] + 
    S2[a1, a4, a2, a6, SP[a3, a5], n] + S2[a1, a4, a2, SP[a3, a5], a6, n] - 
    S2[a1, a4, a3, a2, SP[a5, a6], n] - S2[a1, a4, a3, a6, SP[a2, a5], n] - 
    S2[a1, a4, a3, SP[a2, a5], a6, n] - S2[a1, a4, a3, SP[a5, a6], a2, n] + 
    S2[a3, n]*S2[a1, a4, a5, a2, a6, n] + S2[a1, a4, a5, a2, SP[a3, a6], n] - 
    S2[a2, n]*S2[a1, a4, a5, a3, a6, n] - S2[a1, a4, a5, a3, SP[a2, a6], n] + 
    S2[a3, n]*S2[a1, a4, a5, a6, a2, n] - 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] - S2[a1, a4, a5, SP[a2, a6], a3, n] + 
    S2[a1, a4, a5, SP[a3, a6], a2, n] + S2[a3, n]*S2[a1, a4, a6, a2, a5, n] + 
    S2[a1, a4, a6, a2, SP[a3, a5], n] - S2[a1, a4, a6, a3, SP[a2, a5], n] + 
    S2[a3, n]*S2[a1, a4, a6, a5, a2, n] - 
    S2[a2, n]*S2[a1, a4, a6, a5, a3, n] - S2[a1, a4, a6, SP[a2, a5], a3, n] + 
    S2[a1, a4, a6, SP[a3, a5], a2, n] - S2[a1, a4, SP[a2, a5], a3, a6, n] - 
    S2[a1, a4, SP[a2, a5], a6, a3, n] - S2[a1, a4, SP[a2, a6], a5, a3, n] + 
    S2[a1, a4, SP[a3, a5], a2, a6, n] + S2[a1, a4, SP[a3, a5], a6, a2, n] + 
    S2[a3, n]*S2[a1, a5, a2, a4, a6, n] + S2[a1, a5, a2, a4, SP[a3, a6], n] + 
    S2[a3, n]*S2[a1, a5, a2, a6, a4, n] + S2[a1, a5, a2, a6, SP[a3, a4], n] + 
    S2[a1, a5, a2, SP[a3, a4], a6, n] + S2[a1, a5, a2, SP[a3, a6], a4, n] - 
    S2[a2, n]*S2[a1, a5, a3, a4, a6, n] - S2[a1, a5, a3, a4, SP[a2, a6], n] - 
    S2[a2, n]*S2[a1, a5, a3, a6, a4, n] - S2[a1, a5, a3, a6, SP[a2, a4], n] - 
    S2[a1, a5, a3, SP[a2, a4], a6, n] - S2[a1, a5, a3, SP[a2, a6], a4, n] + 
    S2[a3, n]*S2[a1, a5, a4, a2, a6, n] + S2[a1, a5, a4, a2, SP[a3, a6], n] - 
    S2[a2, n]*S2[a1, a5, a4, a3, a6, n] - S2[a1, a5, a4, a3, SP[a2, a6], n] + 
    S2[a3, n]*S2[a1, a5, a4, a6, a2, n] - 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] - S2[a1, a5, a4, SP[a2, a6], a3, n] + 
    S2[a1, a5, a4, SP[a3, a6], a2, n] + S2[a3, n]*S2[a1, a5, a6, a2, a4, n] + 
    S2[a1, a5, a6, a2, SP[a3, a4], n] - S2[a2, n]*S2[a1, a5, a6, a3, a4, n] - 
    S2[a1, a5, a6, a3, SP[a2, a4], n] + S2[a3, n]*S2[a1, a5, a6, a4, a2, n] - 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] - S2[a1, a5, a6, SP[a2, a4], a3, n] + 
    S2[a1, a5, a6, SP[a3, a4], a2, n] - S2[a1, a5, SP[a2, a4], a3, a6, n] - 
    S2[a1, a5, SP[a2, a4], a6, a3, n] - S2[a1, a5, SP[a2, a6], a3, a4, n] - 
    S2[a1, a5, SP[a2, a6], a4, a3, n] + S2[a1, a5, SP[a3, a4], a2, a6, n] + 
    S2[a1, a5, SP[a3, a4], a6, a2, n] + S2[a1, a5, SP[a3, a6], a2, a4, n] + 
    S2[a1, a5, SP[a3, a6], a4, a2, n] - S2[a1, a6, a2, a3, SP[a4, a5], n] - 
    S2[a1, a6, a2, SP[a3, a4], a5, n] - S2[a1, a6, a3, a4, SP[a2, a5], n] - 
    S2[a1, a6, a3, SP[a4, a5], a2, n] + S2[a3, n]*S2[a1, a6, a4, a2, a5, n] + 
    S2[a1, a6, a4, a2, SP[a3, a5], n] - S2[a1, a6, a4, a3, SP[a2, a5], n] + 
    S2[a3, n]*S2[a1, a6, a4, a5, a2, n] - 
    S2[a2, n]*S2[a1, a6, a4, a5, a3, n] - S2[a1, a6, a4, SP[a2, a5], a3, n] + 
    S2[a1, a6, a4, SP[a3, a5], a2, n] + S2[a3, n]*S2[a1, a6, a5, a2, a4, n] + 
    S2[a1, a6, a5, a2, SP[a3, a4], n] - S2[a2, n]*S2[a1, a6, a5, a3, a4, n] - 
    S2[a1, a6, a5, a3, SP[a2, a4], n] + S2[a3, n]*S2[a1, a6, a5, a4, a2, n] - 
    S2[a2, n]*S2[a1, a6, a5, a4, a3, n] - S2[a1, a6, a5, SP[a2, a4], a3, n] + 
    S2[a1, a6, a5, SP[a3, a4], a2, n] - S2[a1, a6, SP[a2, a4], a3, a5, n] - 
    S2[a1, a6, SP[a2, a4], a5, a3, n] - S2[a1, a6, SP[a2, a5], a3, a4, n] - 
    S2[a1, a6, SP[a2, a5], a4, a3, n] + S2[a1, a6, SP[a3, a5], a2, a4, n] + 
    S2[a1, a6, SP[a3, a5], a4, a2, n] - S2[a1, SP[a2, a4], a3, a5, a6, n] - 
    S2[a1, SP[a2, a4], a3, a6, a5, n] - S2[a1, SP[a2, a4], a5, a3, a6, n] - 
    S2[a1, SP[a2, a4], a5, a6, a3, n] - S2[a1, SP[a2, a4], a6, a3, a5, n] - 
    S2[a1, SP[a2, a4], a6, a5, a3, n] - S2[a1, SP[a2, a5], a3, a4, a6, n] - 
    S2[a1, SP[a2, a5], a3, a6, a4, n] - S2[a1, SP[a2, a5], a4, a3, a6, n] - 
    S2[a1, SP[a2, a5], a4, a6, a3, n] - S2[a1, SP[a2, a5], a6, a3, a4, n] - 
    S2[a1, SP[a2, a5], a6, a4, a3, n] + S2[a1, SP[a3, a5], a2, a4, a6, n] + 
    S2[a1, SP[a3, a5], a2, a6, a4, n] + S2[a1, SP[a3, a5], a4, a2, a6, n] + 
    S2[a1, SP[a3, a5], a4, a6, a2, n] + S2[a1, SP[a3, a5], a6, a2, a4, n] + 
    S2[a1, SP[a3, a5], a6, a4, a2, n] + S2[a1, SP[a4, a6], a2, a3, a5, n] + 
    S2[a2, a1, a3, a5, SP[a4, a6], n] - S2[a2, a1, a3, a6, SP[a4, a5], n] - 
    S2[a2, a1, a3, SP[a4, a5], a6, n] + S2[a2, a1, a3, SP[a4, a6], a5, n] + 
    S2[a2, a1, a4, a5, SP[a3, a6], n] + S2[a2, a1, a4, SP[a5, a6], a3, n] + 
    S2[a2, a1, a5, a3, SP[a4, a6], n] + S2[a2, a1, a5, a4, SP[a3, a6], n] + 
    S2[a2, a1, a5, SP[a3, a6], a4, n] + S2[a2, a1, a5, SP[a4, a6], a3, n] - 
    S2[a2, a1, a6, a3, SP[a4, a5], n] - S2[a2, a1, a6, SP[a3, a4], a5, n] - 
    S2[a2, a1, SP[a3, a4], a5, a6, n] - S2[a2, a1, SP[a3, a4], a6, a5, n] + 
    S2[a2, a1, SP[a4, a6], a3, a5, n] + S2[a2, a1, SP[a4, a6], a5, a3, n] + 
    S2[a2, a1, SP[a5, a6], a3, a4, n] + S2[a2, a1, SP[a5, a6], a4, a3, n] + 
    S2[a2, a3, a1, a5, SP[a4, a6], n] - S2[a2, a3, a1, a6, SP[a4, a5], n] - 
    S2[a2, a3, a1, SP[a4, a5], a6, n] + S2[a2, a3, a1, SP[a4, a6], a5, n] - 
    S2[a5, n]*S2[a2, a3, a4, a1, a6, n] + S2[a2, a3, a5, a1, SP[a4, a6], n] + 
    S2[a2, a3, a5, SP[a1, a4], a6, n] + S2[a2, a3, SP[a1, a4], a5, a6, n] + 
    S2[a2, a3, SP[a1, a4], a6, a5, n] - S2[a2, a3, SP[a4, a5], a1, a6, n] - 
    S2[a5, n]*S2[a2, a4, a1, a3, a6, n] + S2[a2, a4, a1, a5, SP[a3, a6], n] - 
    S2[a5, n]*S2[a2, a4, a1, a6, a3, n] - S2[a2, a4, a1, a6, SP[a3, a5], n] - 
    S2[a2, a4, a1, SP[a3, a5], a6, n] + S2[a2, a4, a1, SP[a3, a6], a5, n] - 
    S2[a5, n]*S2[a2, a4, a3, a1, a6, n] + S2[a2, a4, a5, a1, SP[a3, a6], n] + 
    S2[a2, a4, a5, SP[a1, a3], a6, n] + S2[a2, a4, SP[a1, a3], a5, a6, n] + 
    S2[a2, a4, SP[a1, a3], a6, a5, n] - S2[a2, a4, SP[a3, a5], a1, a6, n] + 
    S2[a2, a5, a1, a3, SP[a4, a6], n] - S2[a3, n]*S2[a2, a5, a1, a4, a6, n] - 
    S2[a3, n]*S2[a2, a5, a1, a6, a4, n] - S2[a2, a5, a1, a6, SP[a3, a4], n] - 
    S2[a2, a5, a1, SP[a3, a4], a6, n] + S2[a2, a5, a1, SP[a4, a6], a3, n] + 
    S2[a2, a5, a3, a1, SP[a4, a6], n] + S2[a2, a5, a3, SP[a1, a4], a6, n] + 
    S2[a2, a5, a4, a1, SP[a3, a6], n] + S2[a2, a5, a4, SP[a1, a3], a6, n] + 
    S2[a2, a5, SP[a1, a4], a3, a6, n] + S2[a2, a5, SP[a1, a4], a6, a3, n] + 
    S2[a2, SP[a1, a4], a3, a5, a6, n] + S2[a2, SP[a1, a4], a3, a6, a5, n] + 
    S2[a2, SP[a1, a4], a5, a3, a6, n] + S2[a2, SP[a1, a4], a5, a6, a3, n] + 
    S2[a2, SP[a1, a4], a6, a3, a5, n] + S2[a2, SP[a1, a4], a6, a5, a3, n] + 
    S2[a2, SP[a1, a5], a3, a4, a6, n] + S2[a2, SP[a1, a5], a3, a6, a4, n] + 
    S2[a2, SP[a1, a5], a4, a3, a6, n] + S2[a2, SP[a1, a5], a4, a6, a3, n] + 
    S2[a2, SP[a1, a5], a6, a3, a4, n] + S2[a2, SP[a1, a5], a6, a4, a3, n] - 
    S2[a2, SP[a3, a5], a1, a4, a6, n] - S2[a2, SP[a3, a5], a1, a6, a4, n] - 
    S2[a2, SP[a3, a5], a4, a1, a6, n] - S2[a2, SP[a4, a5], a1, a3, a6, n] - 
    S2[a2, SP[a4, a5], a1, a6, a3, n] - S2[a2, SP[a4, a5], a3, a1, a6, n] - 
    S2[a3, a1, a4, a2, SP[a5, a6], n] - S2[a3, a1, a4, a6, SP[a2, a5], n] - 
    S2[a3, a1, a4, SP[a2, a5], a6, n] - S2[a3, a1, a4, SP[a5, a6], a2, n] - 
    S2[a3, a1, a5, a2, SP[a4, a6], n] - S2[a3, a1, a5, SP[a2, a6], a4, n] - 
    S2[a3, a1, a6, a4, SP[a2, a5], n] - S2[a3, a1, a6, SP[a4, a5], a2, n] - 
    S2[a3, a1, SP[a4, a5], a2, a6, n] - S2[a3, a1, SP[a4, a5], a6, a2, n] - 
    S2[a3, a1, SP[a5, a6], a2, a4, n] - S2[a3, a1, SP[a5, a6], a4, a2, n] - 
    S2[a3, a5, a1, a2, SP[a4, a6], n] + S2[a2, n]*S2[a3, a5, a1, a4, a6, n] + 
    S2[a3, a5, a1, a4, SP[a2, a6], n] + S2[a2, n]*S2[a3, a5, a1, a6, a4, n] + 
    S2[a3, a5, a1, a6, SP[a2, a4], n] + S2[a3, a5, a1, SP[a2, a4], a6, n] - 
    S2[a3, a5, a2, a1, SP[a4, a6], n] - S2[a3, a5, a2, SP[a1, a4], a6, n] - 
    S2[a3, SP[a1, a5], a2, a4, a6, n] - S2[a3, SP[a1, a5], a2, a6, a4, n] - 
    S2[a3, SP[a1, a5], a4, a2, a6, n] - S2[a3, SP[a1, a5], a4, a6, a2, n] - 
    S2[a3, SP[a1, a5], a6, a2, a4, n] - S2[a3, SP[a1, a5], a6, a4, a2, n] + 
    S2[a3, SP[a2, a5], a1, a4, a6, n] + S2[a3, SP[a2, a5], a1, a6, a4, n] + 
    S2[a3, n]*S2[a5, a2, a4, a1, a6, n] + S2[a5, a2, a4, a1, SP[a3, a6], n] + 
    S2[a5, a2, a4, SP[a1, a3], a6, n] + S2[a5, a2, SP[a3, a4], a1, a6, n] + 
    S2[a5, SP[a2, a3], a4, a1, a6, n] + S2[SP[a1, a6], a4, a2, a3, a5, n] - 
    S2[SP[a2, a5], a3, a4, a1, a6, n] - S2[SP[a2, a5], a4, a1, a3, a6, n] - 
    S2[SP[a2, a5], a4, a1, a6, a3, n] - S2[SP[a2, a5], a4, a3, a1, a6, n] + 
    S2[SP[a3, a5], a2, a4, a1, a6, n] - S2[a6, a1, a4, a2, a3, a5, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a5_, a3_, a2_, a4_, a6_, a1_, n_] :> 
  S2[a1, a6, a4, n]*S2[a2, a3, a5, n] + S2[SP[a1, a2], SP[a3, a6], 
     SP[a4, a5], n] - S2[a1, a2, SP[a3, a6], SP[a4, a5], n] + 
    S2[a3, a5, n]*S2[a1, a6, a4, a2, n] - S2[a1, a6, SP[a3, a4], SP[a2, a5], 
     n] - S2[a1, SP[a2, a6], a3, SP[a4, a5], n] - 
    S2[a1, SP[a2, a6], SP[a3, a4], a5, n] - S2[a1, SP[a3, a6], a4, 
     SP[a2, a5], n] - S2[a1, SP[a3, a6], SP[a4, a5], a2, n] - 
    S2[a2, a1, SP[a3, a6], SP[a4, a5], n] - S2[a1, a6, n]*
     S2[a2, a3, a4, a5, n] - S2[a1, a6, n]*S2[a2, a3, a5, a4, n] + 
    S2[a2, a3, SP[a1, a4], SP[a5, a6], n] + S2[a2, a3, SP[a1, a5], 
     SP[a4, a6], n] - S2[a1, a6, n]*S2[a2, a4, a3, a5, n] - 
    S2[a1, a6, n]*S2[a2, a4, a5, a3, n] + S2[a2, a4, SP[a1, a3], SP[a5, a6], 
     n] + S2[a2, a4, SP[a1, a5], SP[a3, a6], n] - 
    S2[a1, a6, n]*S2[a2, a5, a3, a4, n] - S2[a1, a6, n]*
     S2[a2, a5, a4, a3, n] + S2[a2, a5, SP[a1, a3], SP[a4, a6], n] + 
    S2[a2, a5, SP[a1, a4], SP[a3, a6], n] + S2[a2, SP[a1, a3], a4, 
     SP[a5, a6], n] + S2[a2, SP[a1, a3], a5, SP[a4, a6], n] - 
    S2[a2, SP[a1, a3], a6, SP[a4, a5], n] + S2[a2, SP[a1, a3], SP[a4, a6], 
     a5, n] + S2[a2, SP[a1, a4], a3, SP[a5, a6], n] + 
    S2[a2, SP[a1, a4], a5, SP[a3, a6], n] + S2[a2, SP[a1, a4], SP[a3, a6], 
     a5, n] + S2[a2, SP[a1, a4], SP[a5, a6], a3, n] + 
    S2[a2, SP[a1, a5], a3, SP[a4, a6], n] + S2[a2, SP[a1, a5], a4, 
     SP[a3, a6], n] + S2[a2, SP[a1, a5], SP[a3, a6], a4, n] + 
    S2[a2, SP[a1, a5], SP[a4, a6], a3, n] + S2[a1, a6, n]*
     S2[a3, a5, a2, a4, n] - S2[a3, a5, SP[a1, a2], SP[a4, a6], n] - 
    S2[a3, SP[a1, a5], a2, SP[a4, a6], n] - S2[a3, SP[a1, a5], SP[a2, a6], 
     a4, n] + S2[SP[a1, a2], a3, a4, SP[a5, a6], n] + 
    S2[SP[a1, a2], a3, a5, SP[a4, a6], n] - S2[SP[a1, a2], a3, a6, 
     SP[a4, a5], n] + S2[SP[a1, a2], a3, SP[a4, a6], a5, n] + 
    S2[SP[a1, a2], a4, a3, SP[a5, a6], n] + S2[SP[a1, a2], a4, a5, 
     SP[a3, a6], n] + S2[SP[a1, a2], a4, SP[a3, a6], a5, n] + 
    S2[SP[a1, a2], a4, SP[a5, a6], a3, n] + S2[SP[a1, a2], a5, a3, 
     SP[a4, a6], n] + S2[SP[a1, a2], a5, a4, SP[a3, a6], n] + 
    S2[SP[a1, a2], a5, SP[a3, a6], a4, n] + S2[SP[a1, a2], a5, SP[a4, a6], 
     a3, n] - S2[SP[a1, a2], a6, a3, SP[a4, a5], n] - 
    S2[SP[a1, a2], a6, SP[a3, a4], a5, n] + S2[SP[a1, a2], SP[a4, a6], a3, 
     a5, n] + S2[SP[a1, a2], SP[a4, a6], a5, a3, n] + 
    S2[SP[a1, a2], SP[a5, a6], a3, a4, n] + S2[SP[a1, a2], SP[a5, a6], a4, 
     a3, n] - S2[SP[a1, a3], a5, a2, SP[a4, a6], n] - 
    S2[SP[a1, a3], a5, SP[a2, a6], a4, n] - S2[SP[a1, a3], a6, a4, 
     SP[a2, a5], n] - S2[SP[a1, a3], a6, SP[a4, a5], a2, n] - 
    S2[SP[a1, a3], SP[a5, a6], a2, a4, n] - S2[SP[a1, a3], SP[a5, a6], a4, 
     a2, n] - S2[a1, a2, a3, a4, SP[a5, a6], n] - 
    S2[a1, a2, a3, a5, SP[a4, a6], n] + S2[a1, a2, a3, a6, SP[a4, a5], n] - 
    S2[a1, a2, a3, SP[a4, a6], a5, n] - S2[a1, a2, a4, a3, SP[a5, a6], n] - 
    S2[a1, a2, a4, a5, SP[a3, a6], n] - S2[a1, a2, a4, SP[a3, a6], a5, n] - 
    S2[a1, a2, a4, SP[a5, a6], a3, n] - S2[a1, a2, a5, a3, SP[a4, a6], n] - 
    S2[a1, a2, a5, a4, SP[a3, a6], n] - S2[a1, a2, a5, SP[a3, a6], a4, n] - 
    S2[a1, a2, a5, SP[a4, a6], a3, n] + S2[a1, a2, a6, a3, SP[a4, a5], n] + 
    S2[a1, a2, a6, SP[a3, a4], a5, n] - S2[a1, a2, SP[a4, a6], a3, a5, n] - 
    S2[a1, a2, SP[a4, a6], a5, a3, n] - S2[a1, a2, SP[a5, a6], a3, a4, n] - 
    S2[a1, a2, SP[a5, a6], a4, a3, n] - S2[a5, n]*S2[a1, a3, a2, a4, a6, n] - 
    S2[a1, a3, a2, a4, SP[a5, a6], n] - S2[a1, a3, a2, SP[a4, a5], a6, n] - 
    S2[a5, n]*S2[a1, a3, a4, a2, a6, n] - S2[a1, a3, a4, a2, SP[a5, a6], n] + 
    S2[a2, n]*S2[a1, a3, a4, a5, a6, n] + S2[a1, a3, a4, a5, SP[a2, a6], n] - 
    S2[a5, n]*S2[a1, a3, a4, a6, a2, n] + 
    S2[a2, n]*S2[a1, a3, a4, a6, a5, n] + S2[a1, a3, a4, SP[a2, a6], a5, n] - 
    S2[a1, a3, a4, SP[a5, a6], a2, n] + S2[a1, a3, a5, a2, SP[a4, a6], n] + 
    S2[a2, n]*S2[a1, a3, a5, a4, a6, n] + S2[a1, a3, a5, a4, SP[a2, a6], n] + 
    S2[a1, a3, a5, SP[a2, a4], a6, n] + S2[a1, a3, a5, SP[a2, a6], a4, n] + 
    S2[a1, a3, a6, a4, SP[a2, a5], n] + S2[a1, a3, a6, SP[a4, a5], a2, n] + 
    S2[a1, a3, SP[a2, a4], a5, a6, n] + S2[a1, a3, SP[a2, a4], a6, a5, n] - 
    S2[a1, a3, SP[a4, a5], a2, a6, n] - S2[a1, a3, SP[a4, a5], a6, a2, n] + 
    S2[a1, a3, SP[a5, a6], a2, a4, n] + S2[a1, a3, SP[a5, a6], a4, a2, n] - 
    S2[a5, n]*S2[a1, a4, a2, a3, a6, n] - S2[a1, a4, a2, a3, SP[a5, a6], n] - 
    S2[a5, n]*S2[a1, a4, a2, a6, a3, n] - S2[a1, a4, a2, a6, SP[a3, a5], n] - 
    S2[a1, a4, a2, SP[a3, a5], a6, n] - S2[a1, a4, a2, SP[a5, a6], a3, n] - 
    S2[a5, n]*S2[a1, a4, a3, a2, a6, n] - S2[a1, a4, a3, a2, SP[a5, a6], n] + 
    S2[a2, n]*S2[a1, a4, a3, a5, a6, n] + S2[a1, a4, a3, a5, SP[a2, a6], n] - 
    S2[a5, n]*S2[a1, a4, a3, a6, a2, n] + 
    S2[a2, n]*S2[a1, a4, a3, a6, a5, n] + S2[a1, a4, a3, SP[a2, a6], a5, n] - 
    S2[a1, a4, a3, SP[a5, a6], a2, n] + S2[a2, n]*S2[a1, a4, a5, a3, a6, n] + 
    S2[a1, a4, a5, a3, SP[a2, a6], n] + S2[a2, n]*S2[a1, a4, a5, a6, a3, n] + 
    S2[a1, a4, a5, a6, SP[a2, a3], n] + S2[a1, a4, a5, SP[a2, a3], a6, n] + 
    S2[a1, a4, a5, SP[a2, a6], a3, n] - S2[a5, n]*S2[a1, a4, a6, a2, a3, n] - 
    S2[a1, a4, a6, a2, SP[a3, a5], n] - S2[a5, n]*S2[a1, a4, a6, a3, a2, n] + 
    S2[a2, n]*S2[a1, a4, a6, a3, a5, n] + 
    S2[a2, n]*S2[a1, a4, a6, a5, a3, n] + S2[a1, a4, a6, a5, SP[a2, a3], n] + 
    S2[a1, a4, a6, SP[a2, a3], a5, n] - S2[a1, a4, a6, SP[a3, a5], a2, n] + 
    S2[a1, a4, SP[a2, a3], a5, a6, n] + S2[a1, a4, SP[a2, a3], a6, a5, n] + 
    S2[a1, a4, SP[a2, a6], a3, a5, n] + S2[a1, a4, SP[a2, a6], a5, a3, n] - 
    S2[a1, a4, SP[a3, a5], a2, a6, n] - S2[a1, a4, SP[a3, a5], a6, a2, n] - 
    S2[a1, a4, SP[a5, a6], a2, a3, n] - S2[a1, a4, SP[a5, a6], a3, a2, n] - 
    S2[a3, n]*S2[a1, a5, a2, a4, a6, n] - S2[a1, a5, a2, a4, SP[a3, a6], n] - 
    S2[a3, n]*S2[a1, a5, a2, a6, a4, n] - S2[a1, a5, a2, a6, SP[a3, a4], n] - 
    S2[a1, a5, a2, SP[a3, a4], a6, n] - S2[a1, a5, a2, SP[a3, a6], a4, n] + 
    S2[a2, n]*S2[a1, a5, a3, a4, a6, n] + S2[a1, a5, a3, a4, SP[a2, a6], n] + 
    S2[a2, n]*S2[a1, a5, a3, a6, a4, n] + S2[a1, a5, a3, a6, SP[a2, a4], n] + 
    S2[a1, a5, a3, SP[a2, a4], a6, n] + S2[a1, a5, a3, SP[a2, a6], a4, n] + 
    S2[a2, n]*S2[a1, a5, a4, a3, a6, n] + S2[a1, a5, a4, a3, SP[a2, a6], n] + 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] + S2[a1, a5, a4, a6, SP[a2, a3], n] + 
    S2[a1, a5, a4, SP[a2, a3], a6, n] + S2[a1, a5, a4, SP[a2, a6], a3, n] - 
    S2[a3, n]*S2[a1, a5, a6, a2, a4, n] - S2[a1, a5, a6, a2, SP[a3, a4], n] + 
    S2[a2, n]*S2[a1, a5, a6, a3, a4, n] + S2[a1, a5, a6, a3, SP[a2, a4], n] - 
    S2[a3, n]*S2[a1, a5, a6, a4, a2, n] + 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] + S2[a1, a5, a6, SP[a2, a4], a3, n] - 
    S2[a1, a5, a6, SP[a3, a4], a2, n] + S2[a1, a5, SP[a2, a4], a3, a6, n] + 
    S2[a1, a5, SP[a2, a4], a6, a3, n] + S2[a1, a5, SP[a2, a6], a3, a4, n] + 
    S2[a1, a5, SP[a2, a6], a4, a3, n] - S2[a1, a5, SP[a3, a6], a2, a4, n] - 
    S2[a1, a5, SP[a3, a6], a4, a2, n] + S2[a1, a6, a2, a3, SP[a4, a5], n] + 
    S2[a1, a6, a2, SP[a3, a4], a5, n] + S2[a1, a6, a3, a4, SP[a2, a5], n] + 
    S2[a1, a6, a3, SP[a4, a5], a2, n] - S2[a3, n]*S2[a1, a6, a4, a2, a5, n] - 
    S2[a1, a6, a4, a2, SP[a3, a5], n] + S2[a1, a6, a4, a3, SP[a2, a5], n] - 
    S2[a3, n]*S2[a1, a6, a4, a5, a2, n] + 
    S2[a2, n]*S2[a1, a6, a4, a5, a3, n] + S2[a1, a6, a4, SP[a2, a5], a3, n] - 
    S2[a1, a6, a4, SP[a3, a5], a2, n] - S2[a3, n]*S2[a1, a6, a5, a2, a4, n] - 
    S2[a1, a6, a5, a2, SP[a3, a4], n] + S2[a2, n]*S2[a1, a6, a5, a3, a4, n] + 
    S2[a1, a6, a5, a3, SP[a2, a4], n] - S2[a3, n]*S2[a1, a6, a5, a4, a2, n] + 
    S2[a2, n]*S2[a1, a6, a5, a4, a3, n] + S2[a1, a6, a5, SP[a2, a4], a3, n] - 
    S2[a1, a6, a5, SP[a3, a4], a2, n] + S2[a1, a6, SP[a2, a4], a3, a5, n] + 
    S2[a1, a6, SP[a2, a4], a5, a3, n] + S2[a1, a6, SP[a2, a5], a3, a4, n] + 
    S2[a1, a6, SP[a2, a5], a4, a3, n] - S2[a1, a6, SP[a3, a5], a2, a4, n] - 
    S2[a1, a6, SP[a3, a5], a4, a2, n] + S2[a1, SP[a2, a3], a4, a5, a6, n] + 
    S2[a1, SP[a2, a3], a4, a6, a5, n] + S2[a1, SP[a2, a3], a5, a4, a6, n] + 
    S2[a1, SP[a2, a4], a3, a5, a6, n] + S2[a1, SP[a2, a4], a3, a6, a5, n] + 
    S2[a1, SP[a2, a4], a5, a3, a6, n] + S2[a1, SP[a2, a4], a5, a6, a3, n] + 
    S2[a1, SP[a2, a4], a6, a3, a5, n] + S2[a1, SP[a2, a4], a6, a5, a3, n] + 
    S2[a1, SP[a2, a5], a3, a4, a6, n] + S2[a1, SP[a2, a5], a3, a6, a4, n] + 
    S2[a1, SP[a2, a5], a4, a3, a6, n] + S2[a1, SP[a2, a5], a4, a6, a3, n] + 
    S2[a1, SP[a2, a5], a6, a3, a4, n] + S2[a1, SP[a2, a5], a6, a4, a3, n] - 
    2*S2[a1, SP[a3, a5], a2, a4, a6, n] - S2[a1, SP[a3, a5], a2, a6, a4, n] - 
    S2[a1, SP[a3, a5], a4, a2, a6, n] - S2[a1, SP[a3, a5], a4, a6, a2, n] - 
    S2[a1, SP[a3, a5], a6, a2, a4, n] - S2[a1, SP[a3, a5], a6, a4, a2, n] - 
    S2[a1, SP[a4, a5], a2, a3, a6, n] - S2[a1, SP[a4, a5], a2, a6, a3, n] - 
    S2[a1, SP[a4, a5], a3, a2, a6, n] - S2[a1, SP[a4, a5], a3, a6, a2, n] - 
    S2[a1, SP[a4, a5], a6, a2, a3, n] - S2[a1, SP[a4, a5], a6, a3, a2, n] - 
    S2[a2, a1, a3, a4, SP[a5, a6], n] - S2[a2, a1, a3, a5, SP[a4, a6], n] + 
    S2[a2, a1, a3, a6, SP[a4, a5], n] - S2[a2, a1, a3, SP[a4, a6], a5, n] - 
    S2[a2, a1, a4, a3, SP[a5, a6], n] - S2[a2, a1, a4, a5, SP[a3, a6], n] - 
    S2[a2, a1, a4, SP[a3, a6], a5, n] - S2[a2, a1, a4, SP[a5, a6], a3, n] - 
    S2[a2, a1, a5, a3, SP[a4, a6], n] - S2[a2, a1, a5, a4, SP[a3, a6], n] - 
    S2[a2, a1, a5, SP[a3, a6], a4, n] - S2[a2, a1, a5, SP[a4, a6], a3, n] + 
    S2[a2, a1, a6, a3, SP[a4, a5], n] + S2[a2, a1, a6, SP[a3, a4], a5, n] - 
    S2[a2, a1, SP[a4, a6], a3, a5, n] - S2[a2, a1, SP[a4, a6], a5, a3, n] - 
    S2[a2, a1, SP[a5, a6], a3, a4, n] - S2[a2, a1, SP[a5, a6], a4, a3, n] + 
    S2[a5, n]*S2[a2, a3, a1, a4, a6, n] - S2[a2, a3, a1, a5, SP[a4, a6], n] + 
    S2[a2, a3, a1, a6, SP[a4, a5], n] + S2[a2, a3, a1, SP[a4, a5], a6, n] - 
    S2[a2, a3, a1, SP[a4, a6], a5, n] + S2[a5, n]*S2[a2, a3, a4, a1, a6, n] - 
    S2[a2, a3, a5, a1, SP[a4, a6], n] - S2[a2, a3, a5, SP[a1, a4], a6, n] - 
    S2[a2, a3, SP[a1, a4], a5, a6, n] - S2[a2, a3, SP[a1, a4], a6, a5, n] + 
    S2[a2, a3, SP[a4, a5], a1, a6, n] + S2[a5, n]*S2[a2, a4, a1, a3, a6, n] - 
    S2[a2, a4, a1, a5, SP[a3, a6], n] + S2[a5, n]*S2[a2, a4, a1, a6, a3, n] + 
    S2[a2, a4, a1, a6, SP[a3, a5], n] + S2[a2, a4, a1, SP[a3, a5], a6, n] - 
    S2[a2, a4, a1, SP[a3, a6], a5, n] + S2[a5, n]*S2[a2, a4, a3, a1, a6, n] - 
    S2[a2, a4, a5, a1, SP[a3, a6], n] - S2[a2, a4, a5, SP[a1, a3], a6, n] - 
    S2[a2, a4, SP[a1, a3], a5, a6, n] - S2[a2, a4, SP[a1, a3], a6, a5, n] + 
    S2[a2, a4, SP[a3, a5], a1, a6, n] - S2[a2, a5, a1, a3, SP[a4, a6], n] + 
    S2[a3, n]*S2[a2, a5, a1, a4, a6, n] + 
    S2[a3, n]*S2[a2, a5, a1, a6, a4, n] + S2[a2, a5, a1, a6, SP[a3, a4], n] + 
    S2[a2, a5, a1, SP[a3, a4], a6, n] - S2[a2, a5, a1, SP[a4, a6], a3, n] - 
    S2[a2, a5, a3, a1, SP[a4, a6], n] - S2[a2, a5, a3, SP[a1, a4], a6, n] - 
    S2[a2, a5, a4, a1, SP[a3, a6], n] - S2[a2, a5, a4, SP[a1, a3], a6, n] - 
    S2[a2, a5, SP[a1, a4], a3, a6, n] - S2[a2, a5, SP[a1, a4], a6, a3, n] - 
    S2[a2, SP[a1, a3], a4, a5, a6, n] - S2[a2, SP[a1, a3], a4, a6, a5, n] - 
    S2[a2, SP[a1, a3], a5, a4, a6, n] - S2[a2, SP[a1, a4], a3, a5, a6, n] - 
    S2[a2, SP[a1, a4], a3, a6, a5, n] - S2[a2, SP[a1, a4], a5, a3, a6, n] - 
    S2[a2, SP[a1, a4], a5, a6, a3, n] - S2[a2, SP[a1, a4], a6, a3, a5, n] - 
    S2[a2, SP[a1, a4], a6, a5, a3, n] - S2[a2, SP[a1, a5], a3, a4, a6, n] - 
    S2[a2, SP[a1, a5], a3, a6, a4, n] - S2[a2, SP[a1, a5], a4, a3, a6, n] - 
    S2[a2, SP[a1, a5], a4, a6, a3, n] - S2[a2, SP[a1, a5], a6, a3, a4, n] - 
    S2[a2, SP[a1, a5], a6, a4, a3, n] + 2*S2[a2, SP[a3, a5], a1, a4, a6, n] + 
    S2[a2, SP[a3, a5], a1, a6, a4, n] + S2[a2, SP[a3, a5], a4, a1, a6, n] + 
    S2[a2, SP[a4, a5], a1, a3, a6, n] + S2[a2, SP[a4, a5], a1, a6, a3, n] + 
    S2[a2, SP[a4, a5], a3, a1, a6, n] + S2[a3, a1, a5, a2, SP[a4, a6], n] + 
    S2[a3, a1, a5, SP[a2, a6], a4, n] + S2[a3, a1, a6, a4, SP[a2, a5], n] + 
    S2[a3, a1, a6, SP[a4, a5], a2, n] + S2[a3, a1, SP[a5, a6], a2, a4, n] + 
    S2[a3, a1, SP[a5, a6], a4, a2, n] + S2[a3, a5, a1, a2, SP[a4, a6], n] - 
    S2[a2, n]*S2[a3, a5, a1, a4, a6, n] - S2[a3, a5, a1, a4, SP[a2, a6], n] - 
    S2[a2, n]*S2[a3, a5, a1, a6, a4, n] - S2[a3, a5, a1, a6, SP[a2, a4], n] - 
    S2[a3, a5, a1, SP[a2, a4], a6, n] + S2[a3, a5, a2, a1, SP[a4, a6], n] + 
    S2[a3, a5, a2, SP[a1, a4], a6, n] + S2[a3, SP[a1, a5], a2, a4, a6, n] + 
    S2[a3, SP[a1, a5], a2, a6, a4, n] + S2[a3, SP[a1, a5], a6, a2, a4, n] + 
    S2[a3, SP[a1, a5], a6, a4, a2, n] - S2[a3, SP[a2, a5], a1, a4, a6, n] - 
    S2[a3, SP[a2, a5], a1, a6, a4, n] + S2[a3, n]*S2[a5, a1, a4, a2, a6, n] + 
    S2[a5, a1, a4, a2, SP[a3, a6], n] + S2[a3, n]*S2[a5, a1, a4, a6, a2, n] + 
    S2[a5, a1, a4, a6, SP[a2, a3], n] + S2[a5, a1, a4, SP[a2, a3], a6, n] + 
    S2[a5, a1, a4, SP[a3, a6], a2, n] + S2[a5, a1, SP[a3, a4], a2, a6, n] + 
    S2[a5, a1, SP[a3, a4], a6, a2, n] - S2[a3, n]*S2[a5, a2, a4, a1, a6, n] - 
    S2[a5, a2, a4, a1, SP[a3, a6], n] - S2[a5, a2, a4, SP[a1, a3], a6, n] - 
    S2[a5, a2, SP[a3, a4], a1, a6, n] - S2[a2, n]*S2[a5, a3, a1, a4, a6, n] - 
    S2[a5, a3, a1, a4, SP[a2, a6], n] - S2[a5, a3, a1, SP[a2, a4], a6, n] + 
    S2[a1, n]*S2[a5, a3, a2, a4, a6, n] + S2[a5, a3, a2, a4, SP[a1, a6], n] + 
    S2[a5, a3, a2, SP[a1, a4], a6, n] + S2[a5, SP[a1, a3], a2, a4, a6, n] + 
    S2[a5, SP[a1, a3], a4, a2, a6, n] + S2[a5, SP[a1, a3], a4, a6, a2, n] - 
    S2[a5, SP[a2, a3], a1, a4, a6, n] - S2[a5, SP[a2, a3], a4, a1, a6, n] - 
    S2[a1, n]*S2[a6, a4, a2, a3, a5, n] - S2[a6, a4, a2, a3, SP[a1, a5], n] - 
    S2[a6, a4, a2, SP[a1, a3], a5, n] - S2[a6, a4, SP[a1, a2], a3, a5, n] - 
    S2[a6, SP[a1, a4], a2, a3, a5, n] - S2[SP[a1, a5], a3, a4, a2, a6, n] - 
    S2[SP[a1, a5], a3, a4, a6, a2, n] - S2[SP[a1, a5], a4, a2, a3, a6, n] - 
    S2[SP[a1, a5], a4, a2, a6, a3, n] - S2[SP[a1, a5], a4, a3, a2, a6, n] - 
    S2[SP[a1, a5], a4, a3, a6, a2, n] - S2[SP[a1, a5], a4, a6, a2, a3, n] - 
    S2[SP[a1, a5], a4, a6, a3, a2, n] - S2[SP[a1, a6], a4, a2, a3, a5, n] + 
    S2[SP[a2, a5], a3, a4, a1, a6, n] + S2[SP[a2, a5], a4, a1, a3, a6, n] + 
    S2[SP[a2, a5], a4, a1, a6, a3, n] + S2[SP[a2, a5], a4, a3, a1, a6, n] + 
    S2[SP[a3, a5], a1, a4, a2, a6, n] + S2[SP[a3, a5], a1, a4, a6, a2, n] - 
    S2[SP[a3, a5], a2, a4, a1, a6, n] + S2[a6, a1, a4, a2, a3, a5, n] + 
    S2[a6, a4, a1, a2, a3, a5, n] + S2[a6, a4, a2, a1, a3, a5, n] + 
    S2[a6, a4, a2, a3, a1, a5, n] + S2[a6, a4, a2, a3, a5, a1, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a5_, a3_, a2_, a6_, a1_, a4_, n_] :> 
  -(S2[a1, a4, a6, n]*S2[a2, a3, a5, n]) - S2[a1, a6, a4, n]*
     S2[a2, a3, a5, n] - S2[SP[a1, a2], SP[a3, a4], SP[a5, a6], n] - 
    S2[SP[a1, a2], SP[a3, a6], SP[a4, a5], n] + S2[a1, a2, SP[a3, a4], 
     SP[a5, a6], n] + S2[a1, a2, SP[a3, a6], SP[a4, a5], n] - 
    S2[a3, a5, n]*S2[a1, a4, a6, a2, n] + S2[a1, a4, SP[a3, a6], SP[a2, a5], 
     n] - S2[a3, a5, n]*S2[a1, a6, a2, a4, n] - 
    S2[a3, a5, n]*S2[a1, a6, a4, a2, n] + S2[a1, a6, SP[a2, a3], SP[a4, a5], 
     n] + S2[a1, a6, SP[a3, a4], SP[a2, a5], n] + S2[a1, SP[a2, a4], a3, 
     SP[a5, a6], n] + S2[a1, SP[a2, a4], SP[a3, a6], a5, n] + 
    S2[a1, SP[a2, a6], a3, SP[a4, a5], n] + S2[a1, SP[a2, a6], SP[a3, a4], 
     a5, n] + S2[a1, SP[a3, a4], a6, SP[a2, a5], n] + 
    S2[a1, SP[a3, a4], SP[a5, a6], a2, n] + S2[a1, SP[a3, a6], a2, 
     SP[a4, a5], n] + S2[a1, SP[a3, a6], a4, SP[a2, a5], n] + 
    S2[a1, SP[a3, a6], SP[a2, a5], a4, n] + S2[a1, SP[a3, a6], SP[a4, a5], 
     a2, n] + S2[a2, a1, SP[a3, a4], SP[a5, a6], n] + 
    S2[a2, a1, SP[a3, a6], SP[a4, a5], n] + S2[a1, a4, n]*
     S2[a2, a5, a3, a6, n] + S2[a1, a4, n]*S2[a2, a5, a6, a3, n] - 
    S2[a2, a5, SP[a1, a3], SP[a4, a6], n] - S2[a2, a5, SP[a1, a6], 
     SP[a3, a4], n] + S2[a1, a4, n]*S2[a2, a6, a5, a3, n] - 
    S2[a2, a6, SP[a1, a5], SP[a3, a4], n] + S2[a2, SP[a1, a3], a4, 
     SP[a5, a6], n] + S2[a2, SP[a1, a3], a6, SP[a4, a5], n] + 
    S2[a2, SP[a1, a3], SP[a4, a5], a6, n] + S2[a2, SP[a1, a3], SP[a5, a6], 
     a4, n] - S2[a2, SP[a1, a5], a3, SP[a4, a6], n] - 
    S2[a2, SP[a1, a5], a6, SP[a3, a4], n] - S2[a2, SP[a1, a5], SP[a3, a4], 
     a6, n] - S2[a2, SP[a1, a5], SP[a4, a6], a3, n] - 
    S2[a2, SP[a1, a6], a5, SP[a3, a4], n] - S2[a2, SP[a1, a6], SP[a4, a5], 
     a3, n] - S2[a1, a4, n]*S2[a3, a5, a2, a6, n] + 
    S2[a3, a5, SP[a1, a2], SP[a4, a6], n] + S2[a3, SP[a1, a5], a2, 
     SP[a4, a6], n] + S2[a3, SP[a1, a5], SP[a2, a4], a6, n] + 
    S2[SP[a1, a2], a3, a4, SP[a5, a6], n] + S2[SP[a1, a2], a3, a6, 
     SP[a4, a5], n] + S2[SP[a1, a2], a3, SP[a4, a5], a6, n] + 
    S2[SP[a1, a2], a3, SP[a5, a6], a4, n] + S2[SP[a1, a2], a4, a3, 
     SP[a5, a6], n] + S2[SP[a1, a2], a4, SP[a3, a6], a5, n] - 
    S2[SP[a1, a2], a5, a3, SP[a4, a6], n] - S2[SP[a1, a2], a5, a6, 
     SP[a3, a4], n] - S2[SP[a1, a2], a5, SP[a3, a4], a6, n] - 
    S2[SP[a1, a2], a5, SP[a4, a6], a3, n] + S2[SP[a1, a2], a6, a3, 
     SP[a4, a5], n] - S2[SP[a1, a2], a6, a5, SP[a3, a4], n] + 
    S2[SP[a1, a2], a6, SP[a3, a4], a5, n] - S2[SP[a1, a2], a6, SP[a4, a5], 
     a3, n] + S2[SP[a1, a2], SP[a3, a4], a5, a6, n] + 
    S2[SP[a1, a2], SP[a3, a4], a6, a5, n] + S2[SP[a1, a2], SP[a3, a6], a4, 
     a5, n] + S2[SP[a1, a2], SP[a3, a6], a5, a4, n] - 
    S2[SP[a1, a2], SP[a4, a5], a3, a6, n] - S2[SP[a1, a2], SP[a4, a5], a6, 
     a3, n] - S2[SP[a1, a2], SP[a4, a6], a5, a3, n] + 
    S2[SP[a1, a3], a4, a6, SP[a2, a5], n] + S2[SP[a1, a3], a4, SP[a5, a6], 
     a2, n] + S2[SP[a1, a3], a5, a2, SP[a4, a6], n] + 
    S2[SP[a1, a3], a5, SP[a2, a4], a6, n] + S2[SP[a1, a3], a6, a2, 
     SP[a4, a5], n] + S2[SP[a1, a3], a6, a4, SP[a2, a5], n] + 
    S2[SP[a1, a3], a6, SP[a2, a5], a4, n] + S2[SP[a1, a3], a6, SP[a4, a5], 
     a2, n] + S2[SP[a1, a3], SP[a4, a5], a2, a6, n] + 
    S2[SP[a1, a3], SP[a4, a5], a6, a2, n] + S2[SP[a1, a3], SP[a5, a6], a2, 
     a4, n] + S2[SP[a1, a3], SP[a5, a6], a4, a2, n] - 
    S2[a1, a2, a3, a4, SP[a5, a6], n] - S2[a1, a2, a3, a6, SP[a4, a5], n] - 
    S2[a1, a2, a3, SP[a4, a5], a6, n] - S2[a1, a2, a3, SP[a5, a6], a4, n] - 
    S2[a1, a2, a4, a3, SP[a5, a6], n] - S2[a1, a2, a4, SP[a3, a6], a5, n] + 
    S2[a1, a2, a5, a3, SP[a4, a6], n] + S2[a1, a2, a5, a6, SP[a3, a4], n] + 
    S2[a1, a2, a5, SP[a3, a4], a6, n] + S2[a1, a2, a5, SP[a4, a6], a3, n] - 
    S2[a1, a2, a6, a3, SP[a4, a5], n] + S2[a1, a2, a6, a5, SP[a3, a4], n] - 
    S2[a1, a2, a6, SP[a3, a4], a5, n] + S2[a1, a2, a6, SP[a4, a5], a3, n] - 
    S2[a1, a2, SP[a3, a4], a5, a6, n] - S2[a1, a2, SP[a3, a4], a6, a5, n] - 
    S2[a1, a2, SP[a3, a6], a4, a5, n] - S2[a1, a2, SP[a3, a6], a5, a4, n] + 
    S2[a1, a2, SP[a4, a5], a3, a6, n] + S2[a1, a2, SP[a4, a5], a6, a3, n] + 
    S2[a1, a2, SP[a4, a6], a5, a3, n] - S2[a6, n]*S2[a1, a3, a2, a4, a5, n] - 
    S2[a1, a3, a2, a4, SP[a5, a6], n] - S2[a6, n]*S2[a1, a3, a2, a5, a4, n] - 
    S2[a1, a3, a2, a5, SP[a4, a6], n] - S2[a1, a3, a2, SP[a4, a6], a5, n] - 
    S2[a1, a3, a2, SP[a5, a6], a4, n] - S2[a6, n]*S2[a1, a3, a4, a2, a5, n] - 
    S2[a1, a3, a4, a2, SP[a5, a6], n] - S2[a6, n]*S2[a1, a3, a4, a5, a2, n] + 
    S2[a2, n]*S2[a1, a3, a4, a5, a6, n] + 
    S2[a2, n]*S2[a1, a3, a4, a6, a5, n] + S2[a1, a3, a4, SP[a2, a5], a6, n] - 
    2*S2[a1, a3, a4, SP[a5, a6], a2, n] - 
    S2[a6, n]*S2[a1, a3, a5, a2, a4, n] - 
    2*S2[a1, a3, a5, a2, SP[a4, a6], n] - 
    S2[a6, n]*S2[a1, a3, a5, a4, a2, n] + 
    S2[a2, n]*S2[a1, a3, a5, a4, a6, n] + 
    S2[a2, n]*S2[a1, a3, a5, a6, a4, n] + S2[a1, a3, a5, a6, SP[a2, a4], n] - 
    S2[a1, a3, a5, SP[a4, a6], a2, n] - S2[a1, a3, a6, a2, SP[a4, a5], n] + 
    S2[a2, n]*S2[a1, a3, a6, a4, a5, n] + 
    S2[a2, n]*S2[a1, a3, a6, a5, a4, n] + S2[a1, a3, a6, a5, SP[a2, a4], n] + 
    S2[a1, a3, a6, SP[a2, a4], a5, n] - S2[a1, a3, a6, SP[a4, a5], a2, n] + 
    S2[a1, a3, SP[a2, a4], a5, a6, n] + S2[a1, a3, SP[a2, a4], a6, a5, n] + 
    S2[a1, a3, SP[a2, a5], a4, a6, n] + S2[a1, a3, SP[a2, a5], a6, a4, n] - 
    S2[a1, a3, SP[a4, a5], a2, a6, n] - S2[a1, a3, SP[a4, a5], a6, a2, n] - 
    S2[a1, a3, SP[a4, a6], a2, a5, n] - S2[a1, a3, SP[a4, a6], a5, a2, n] - 
    2*S2[a1, a3, SP[a5, a6], a2, a4, n] - 
    2*S2[a1, a3, SP[a5, a6], a4, a2, n] - S2[a1, a4, a2, a3, SP[a5, a6], n] - 
    S2[a1, a4, a2, SP[a3, a6], a5, n] - S2[a6, n]*S2[a1, a4, a3, a2, a5, n] - 
    S2[a1, a4, a3, a2, SP[a5, a6], n] - S2[a6, n]*S2[a1, a4, a3, a5, a2, n] + 
    S2[a2, n]*S2[a1, a4, a3, a5, a6, n] + 
    S2[a2, n]*S2[a1, a4, a3, a6, a5, n] + S2[a1, a4, a3, SP[a2, a5], a6, n] - 
    2*S2[a1, a4, a3, SP[a5, a6], a2, n] + 
    S2[a3, n]*S2[a1, a4, a5, a2, a6, n] + S2[a1, a4, a5, a2, SP[a3, a6], n] - 
    S2[a2, n]*S2[a1, a4, a5, a3, a6, n] - S2[a1, a4, a5, a3, SP[a2, a6], n] + 
    S2[a3, n]*S2[a1, a4, a5, a6, a2, n] - 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] - S2[a1, a4, a5, SP[a2, a6], a3, n] + 
    S2[a1, a4, a5, SP[a3, a6], a2, n] + S2[a3, n]*S2[a1, a4, a6, a2, a5, n] + 
    S2[a1, a4, a6, a2, SP[a3, a5], n] + S2[a2, n]*S2[a1, a4, a6, a3, a5, n] + 
    S2[a3, n]*S2[a1, a4, a6, a5, a2, n] - 
    S2[a2, n]*S2[a1, a4, a6, a5, a3, n] + S2[a1, a4, a6, SP[a2, a3], a5, n] - 
    S2[a1, a4, a6, SP[a2, a5], a3, n] + S2[a1, a4, a6, SP[a3, a5], a2, n] + 
    S2[a1, a4, SP[a2, a3], a5, a6, n] + S2[a1, a4, SP[a2, a3], a6, a5, n] - 
    S2[a1, a4, SP[a2, a5], a3, a6, n] - S2[a1, a4, SP[a2, a5], a6, a3, n] - 
    S2[a1, a4, SP[a2, a6], a5, a3, n] + S2[a1, a4, SP[a3, a5], a2, a6, n] + 
    S2[a1, a4, SP[a3, a5], a6, a2, n] - S2[a1, a4, SP[a3, a6], a2, a5, n] - 
    S2[a1, a4, SP[a3, a6], a5, a2, n] + S2[a3, n]*S2[a1, a5, a2, a4, a6, n] + 
    S2[a1, a5, a2, a4, SP[a3, a6], n] + S2[a3, n]*S2[a1, a5, a2, a6, a4, n] + 
    S2[a1, a5, a2, a6, SP[a3, a4], n] + S2[a1, a5, a2, SP[a3, a4], a6, n] + 
    S2[a1, a5, a2, SP[a3, a6], a4, n] - S2[a2, n]*S2[a1, a5, a3, a4, a6, n] - 
    S2[a1, a5, a3, a4, SP[a2, a6], n] - S2[a2, n]*S2[a1, a5, a3, a6, a4, n] - 
    S2[a1, a5, a3, a6, SP[a2, a4], n] - S2[a1, a5, a3, SP[a2, a4], a6, n] - 
    S2[a1, a5, a3, SP[a2, a6], a4, n] + S2[a3, n]*S2[a1, a5, a4, a2, a6, n] + 
    S2[a1, a5, a4, a2, SP[a3, a6], n] - S2[a2, n]*S2[a1, a5, a4, a3, a6, n] - 
    S2[a1, a5, a4, a3, SP[a2, a6], n] + S2[a3, n]*S2[a1, a5, a4, a6, a2, n] - 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] - S2[a1, a5, a4, SP[a2, a6], a3, n] + 
    S2[a1, a5, a4, SP[a3, a6], a2, n] + S2[a3, n]*S2[a1, a5, a6, a2, a4, n] + 
    S2[a1, a5, a6, a2, SP[a3, a4], n] - S2[a2, n]*S2[a1, a5, a6, a3, a4, n] - 
    S2[a1, a5, a6, a3, SP[a2, a4], n] + S2[a3, n]*S2[a1, a5, a6, a4, a2, n] - 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] - S2[a1, a5, a6, SP[a2, a4], a3, n] + 
    S2[a1, a5, a6, SP[a3, a4], a2, n] - S2[a1, a5, SP[a2, a4], a3, a6, n] - 
    S2[a1, a5, SP[a2, a4], a6, a3, n] - S2[a1, a5, SP[a2, a6], a3, a4, n] - 
    S2[a1, a5, SP[a2, a6], a4, a3, n] + S2[a1, a5, SP[a3, a4], a2, a6, n] + 
    S2[a1, a5, SP[a3, a4], a6, a2, n] + S2[a1, a5, SP[a3, a6], a2, a4, n] + 
    S2[a1, a5, SP[a3, a6], a4, a2, n] - 2*S2[a1, a6, a2, a3, SP[a4, a5], n] + 
    S2[a3, n]*S2[a1, a6, a2, a4, a5, n] + S2[a1, a6, a2, a4, SP[a3, a5], n] + 
    S2[a3, n]*S2[a1, a6, a2, a5, a4, n] + S2[a1, a6, a2, a5, SP[a3, a4], n] - 
    S2[a1, a6, a2, SP[a3, a4], a5, n] + S2[a1, a6, a2, SP[a3, a5], a4, n] - 
    S2[a1, a6, a3, a2, SP[a4, a5], n] + S2[a2, n]*S2[a1, a6, a3, a4, a5, n] + 
    S2[a2, n]*S2[a1, a6, a3, a5, a4, n] + S2[a1, a6, a3, a5, SP[a2, a4], n] + 
    S2[a1, a6, a3, SP[a2, a4], a5, n] - S2[a1, a6, a3, SP[a4, a5], a2, n] + 
    S2[a3, n]*S2[a1, a6, a4, a2, a5, n] + S2[a1, a6, a4, a2, SP[a3, a5], n] + 
    S2[a2, n]*S2[a1, a6, a4, a3, a5, n] + 
    S2[a3, n]*S2[a1, a6, a4, a5, a2, n] - 
    S2[a2, n]*S2[a1, a6, a4, a5, a3, n] + S2[a1, a6, a4, SP[a2, a3], a5, n] - 
    S2[a1, a6, a4, SP[a2, a5], a3, n] + S2[a1, a6, a4, SP[a3, a5], a2, n] + 
    S2[a3, n]*S2[a1, a6, a5, a2, a4, n] + S2[a1, a6, a5, a2, SP[a3, a4], n] - 
    S2[a2, n]*S2[a1, a6, a5, a3, a4, n] - S2[a1, a6, a5, a3, SP[a2, a4], n] + 
    S2[a3, n]*S2[a1, a6, a5, a4, a2, n] - 
    S2[a2, n]*S2[a1, a6, a5, a4, a3, n] - S2[a1, a6, a5, SP[a2, a4], a3, n] + 
    S2[a1, a6, a5, SP[a3, a4], a2, n] + S2[a1, a6, SP[a2, a3], a4, a5, n] + 
    S2[a1, a6, SP[a2, a3], a5, a4, n] - S2[a1, a6, SP[a2, a4], a5, a3, n] - 
    S2[a1, a6, SP[a2, a5], a3, a4, n] - S2[a1, a6, SP[a2, a5], a4, a3, n] + 
    S2[a1, a6, SP[a3, a5], a2, a4, n] + S2[a1, a6, SP[a3, a5], a4, a2, n] + 
    S2[a1, SP[a2, a3], a4, a5, a6, n] + S2[a1, SP[a2, a3], a4, a6, a5, n] + 
    S2[a1, SP[a2, a3], a5, a4, a6, n] + S2[a1, SP[a2, a3], a5, a6, a4, n] + 
    S2[a1, SP[a2, a3], a6, a4, a5, n] + S2[a1, SP[a2, a3], a6, a5, a4, n] - 
    S2[a1, SP[a2, a5], a3, a4, a6, n] - S2[a1, SP[a2, a5], a3, a6, a4, n] - 
    S2[a1, SP[a2, a5], a4, a3, a6, n] - S2[a1, SP[a2, a5], a4, a6, a3, n] - 
    S2[a1, SP[a2, a5], a6, a3, a4, n] - S2[a1, SP[a2, a5], a6, a4, a3, n] - 
    S2[a1, SP[a2, a6], a4, a5, a3, n] - S2[a1, SP[a2, a6], a5, a3, a4, n] - 
    S2[a1, SP[a2, a6], a5, a4, a3, n] + S2[a1, SP[a3, a5], a2, a4, a6, n] + 
    S2[a1, SP[a3, a5], a2, a6, a4, n] + S2[a1, SP[a3, a5], a4, a2, a6, n] + 
    S2[a1, SP[a3, a5], a4, a6, a2, n] + S2[a1, SP[a3, a5], a6, a2, a4, n] + 
    S2[a1, SP[a3, a5], a6, a4, a2, n] - S2[a1, SP[a3, a6], a2, a4, a5, n] - 
    S2[a1, SP[a3, a6], a2, a5, a4, n] - S2[a1, SP[a3, a6], a4, a2, a5, n] - 
    S2[a1, SP[a3, a6], a4, a5, a2, n] - S2[a1, SP[a3, a6], a5, a2, a4, n] - 
    S2[a1, SP[a3, a6], a5, a4, a2, n] - S2[a1, SP[a4, a6], a3, a2, a5, n] - 
    S2[a1, SP[a4, a6], a3, a5, a2, n] - S2[a2, a1, a3, a4, SP[a5, a6], n] - 
    S2[a2, a1, a3, a6, SP[a4, a5], n] - S2[a2, a1, a3, SP[a4, a5], a6, n] - 
    S2[a2, a1, a3, SP[a5, a6], a4, n] - S2[a2, a1, a4, a3, SP[a5, a6], n] - 
    S2[a2, a1, a4, SP[a3, a6], a5, n] + S2[a2, a1, a5, a3, SP[a4, a6], n] + 
    S2[a2, a1, a5, a6, SP[a3, a4], n] + S2[a2, a1, a5, SP[a3, a4], a6, n] + 
    S2[a2, a1, a5, SP[a4, a6], a3, n] - S2[a2, a1, a6, a3, SP[a4, a5], n] + 
    S2[a2, a1, a6, a5, SP[a3, a4], n] - S2[a2, a1, a6, SP[a3, a4], a5, n] + 
    S2[a2, a1, a6, SP[a4, a5], a3, n] - S2[a2, a1, SP[a3, a4], a5, a6, n] - 
    S2[a2, a1, SP[a3, a4], a6, a5, n] - S2[a2, a1, SP[a3, a6], a4, a5, n] - 
    S2[a2, a1, SP[a3, a6], a5, a4, n] + S2[a2, a1, SP[a4, a5], a3, a6, n] + 
    S2[a2, a1, SP[a4, a5], a6, a3, n] + S2[a2, a1, SP[a4, a6], a5, a3, n] + 
    S2[a6, n]*S2[a2, a3, a1, a4, a5, n] + 
    S2[a6, n]*S2[a2, a3, a1, a5, a4, n] + S2[a2, a3, a1, a5, SP[a4, a6], n] - 
    S2[a2, a3, a1, a6, SP[a4, a5], n] - S2[a2, a3, a1, SP[a4, a5], a6, n] + 
    S2[a2, a3, a1, SP[a4, a6], a5, n] + S2[a6, n]*S2[a2, a3, a5, a1, a4, n] + 
    S2[a2, a3, a5, a1, SP[a4, a6], n] + S2[a2, a3, a5, SP[a1, a6], a4, n] - 
    S2[a5, n]*S2[a2, a3, a6, a1, a4, n] - S2[a2, a3, a6, a1, SP[a4, a5], n] - 
    S2[a2, a3, a6, SP[a1, a5], a4, n] - S2[a2, a3, SP[a1, a5], a4, a6, n] - 
    S2[a2, a3, SP[a1, a5], a6, a4, n] + S2[a2, a3, SP[a1, a6], a4, a5, n] + 
    S2[a2, a3, SP[a1, a6], a5, a4, n] + S2[a2, a5, a1, a3, SP[a4, a6], n] - 
    S2[a3, n]*S2[a2, a5, a1, a4, a6, n] - S2[a2, a5, a1, a4, SP[a3, a6], n] - 
    S2[a3, n]*S2[a2, a5, a1, a6, a4, n] - S2[a2, a5, a1, SP[a3, a6], a4, n] + 
    S2[a2, a5, a1, SP[a4, a6], a3, n] + S2[a2, a5, a3, a1, SP[a4, a6], n] + 
    S2[a2, a5, a3, SP[a1, a6], a4, n] + S2[a2, a5, a6, a1, SP[a3, a4], n] + 
    S2[a2, a5, a6, SP[a1, a3], a4, n] + S2[a2, a5, SP[a1, a6], a3, a4, n] + 
    S2[a2, a5, SP[a1, a6], a4, a3, n] - S2[a5, n]*S2[a2, a6, a1, a3, a4, n] - 
    S2[a2, a6, a1, a3, SP[a4, a5], n] - S2[a5, n]*S2[a2, a6, a1, a4, a3, n] - 
    S2[a2, a6, a1, a4, SP[a3, a5], n] + S2[a2, a6, a1, a5, SP[a3, a4], n] - 
    S2[a2, a6, a1, SP[a3, a5], a4, n] - S2[a5, n]*S2[a2, a6, a3, a1, a4, n] - 
    S2[a2, a6, a3, a1, SP[a4, a5], n] - S2[a2, a6, a3, SP[a1, a5], a4, n] + 
    S2[a2, a6, a5, a1, SP[a3, a4], n] + S2[a2, a6, a5, SP[a1, a3], a4, n] - 
    S2[a2, a6, SP[a3, a5], a1, a4, n] - S2[a2, SP[a1, a3], a4, a5, a6, n] - 
    S2[a2, SP[a1, a3], a4, a6, a5, n] - S2[a2, SP[a1, a3], a5, a4, a6, n] - 
    S2[a2, SP[a1, a3], a5, a6, a4, n] - S2[a2, SP[a1, a3], a6, a4, a5, n] - 
    S2[a2, SP[a1, a3], a6, a5, a4, n] + S2[a2, SP[a1, a5], a3, a4, a6, n] + 
    S2[a2, SP[a1, a5], a3, a6, a4, n] + S2[a2, SP[a1, a5], a4, a3, a6, n] + 
    S2[a2, SP[a1, a5], a4, a6, a3, n] + S2[a2, SP[a1, a5], a6, a3, a4, n] + 
    S2[a2, SP[a1, a5], a6, a4, a3, n] + S2[a2, SP[a1, a6], a4, a5, a3, n] + 
    S2[a2, SP[a1, a6], a5, a3, a4, n] + S2[a2, SP[a1, a6], a5, a4, a3, n] - 
    S2[a2, SP[a3, a5], a1, a4, a6, n] - S2[a2, SP[a3, a5], a1, a6, a4, n] - 
    S2[a2, SP[a3, a5], a6, a1, a4, n] + S2[a2, SP[a3, a6], a1, a4, a5, n] + 
    S2[a2, SP[a3, a6], a1, a5, a4, n] + S2[a2, SP[a3, a6], a5, a1, a4, n] - 
    S2[a2, SP[a5, a6], a1, a3, a4, n] - S2[a2, SP[a5, a6], a1, a4, a3, n] - 
    S2[a2, SP[a5, a6], a3, a1, a4, n] - S2[a3, a1, a4, a6, SP[a2, a5], n] - 
    S2[a3, a1, a4, SP[a5, a6], a2, n] - S2[a3, a1, a5, a2, SP[a4, a6], n] - 
    S2[a3, a1, a5, SP[a2, a4], a6, n] - S2[a3, a1, a6, a2, SP[a4, a5], n] - 
    S2[a3, a1, a6, a4, SP[a2, a5], n] - S2[a3, a1, a6, SP[a2, a5], a4, n] - 
    S2[a3, a1, a6, SP[a4, a5], a2, n] - S2[a3, a1, SP[a4, a5], a2, a6, n] - 
    S2[a3, a1, SP[a4, a5], a6, a2, n] - S2[a3, a1, SP[a5, a6], a2, a4, n] - 
    S2[a3, a1, SP[a5, a6], a4, a2, n] - S2[a3, a5, a1, a2, SP[a4, a6], n] + 
    S2[a2, n]*S2[a3, a5, a1, a4, a6, n] + S2[a3, a5, a1, a4, SP[a2, a6], n] + 
    S2[a2, n]*S2[a3, a5, a1, a6, a4, n] + S2[a3, a5, a1, a6, SP[a2, a4], n] + 
    S2[a3, a5, a1, SP[a2, a6], a4, n] - S2[a3, a5, a2, a1, SP[a4, a6], n] - 
    S2[a3, a5, a2, SP[a1, a6], a4, n] - S2[a3, SP[a1, a5], a2, a4, a6, n] - 
    S2[a3, SP[a1, a5], a2, a6, a4, n] - S2[a3, SP[a1, a5], a4, a2, a6, n] - 
    S2[a3, SP[a1, a5], a4, a6, a2, n] - S2[a3, SP[a1, a5], a6, a2, a4, n] - 
    S2[a3, SP[a1, a5], a6, a4, a2, n] + S2[a3, SP[a2, a5], a1, a4, a6, n] + 
    S2[a3, SP[a2, a5], a1, a6, a4, n] + S2[a3, n]*S2[a5, a2, a6, a1, a4, n] + 
    S2[a5, a2, a6, a1, SP[a3, a4], n] + S2[a5, a2, a6, SP[a1, a3], a4, n] + 
    S2[a5, a2, SP[a3, a6], a1, a4, n] + S2[a5, SP[a2, a3], a6, a1, a4, n] + 
    S2[a2, n]*S2[a6, a1, a3, a4, a5, n] + S2[a6, a1, a3, a4, SP[a2, a5], n] + 
    S2[a2, n]*S2[a6, a1, a3, a5, a4, n] + S2[a6, a1, a3, a5, SP[a2, a4], n] + 
    S2[a6, a1, a3, SP[a2, a4], a5, n] + S2[a6, a1, a3, SP[a2, a5], a4, n] + 
    S2[a2, n]*S2[a6, a1, a4, a3, a5, n] + S2[a6, a1, a4, a3, SP[a2, a5], n] + 
    S2[a6, a1, a4, SP[a2, a3], a5, n] + S2[a6, a1, SP[a2, a3], a4, a5, n] + 
    S2[a6, a1, SP[a2, a3], a5, a4, n] + S2[a6, a1, SP[a2, a4], a3, a5, n] + 
    S2[a6, SP[a1, a2], a3, a4, a5, n] + S2[a6, SP[a1, a2], a3, a5, a4, n] + 
    S2[a6, SP[a1, a2], a4, a3, a5, n] - S2[SP[a1, a6], a3, a2, a4, a5, n] - 
    S2[SP[a1, a6], a3, a2, a5, a4, n] - S2[SP[a1, a6], a3, a4, a2, a5, n] - 
    S2[SP[a1, a6], a3, a4, a5, a2, n] - S2[SP[a1, a6], a3, a5, a2, a4, n] - 
    S2[SP[a1, a6], a3, a5, a4, a2, n] - S2[SP[a1, a6], a4, a3, a2, a5, n] - 
    S2[SP[a1, a6], a4, a3, a5, a2, n] - S2[SP[a2, a5], a3, a6, a1, a4, n] - 
    S2[SP[a2, a5], a6, a1, a3, a4, n] - S2[SP[a2, a5], a6, a1, a4, a3, n] - 
    S2[SP[a2, a5], a6, a3, a1, a4, n] + S2[SP[a2, a6], a1, a3, a4, a5, n] + 
    S2[SP[a2, a6], a1, a3, a5, a4, n] + S2[SP[a2, a6], a1, a4, a3, a5, n] + 
    S2[SP[a2, a6], a3, a1, a4, a5, n] + S2[SP[a2, a6], a3, a1, a5, a4, n] + 
    S2[SP[a2, a6], a3, a5, a1, a4, n] + S2[SP[a3, a5], a2, a6, a1, a4, n] - 
    S2[a6, a1, a2, a3, a4, a5, n] - S2[a6, a1, a2, a3, a5, a4, n] - 
    S2[a6, a1, a2, a4, a3, a5, n] - S2[a6, a1, a4, a2, a3, a5, n] - 
    S2[a6, a2, a1, a3, a4, a5, n] - S2[a6, a2, a1, a3, a5, a4, n] - 
    S2[a6, a2, a1, a4, a3, a5, n] - S2[a6, a2, a3, a1, a4, a5, n] - 
    S2[a6, a2, a3, a1, a5, a4, n] - S2[a6, a2, a3, a5, a1, a4, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a5_, a3_, a2_, a6_, a4_, a1_, n_] :> 
  S2[a1, a4, a6, n]*S2[a2, a3, a5, n] + S2[SP[a1, a2], SP[a3, a4], 
     SP[a5, a6], n] - S2[a1, a2, SP[a3, a4], SP[a5, a6], n] + 
    S2[a3, a5, n]*S2[a1, a4, a6, a2, n] - S2[a1, a4, SP[a3, a6], SP[a2, a5], 
     n] - S2[a1, SP[a2, a4], a3, SP[a5, a6], n] - 
    S2[a1, SP[a2, a4], SP[a3, a6], a5, n] - S2[a1, SP[a3, a4], a6, 
     SP[a2, a5], n] - S2[a1, SP[a3, a4], SP[a5, a6], a2, n] - 
    S2[a2, a1, SP[a3, a4], SP[a5, a6], n] - S2[a1, a4, n]*
     S2[a2, a5, a3, a6, n] - S2[a1, a4, n]*S2[a2, a5, a6, a3, n] + 
    S2[a2, a5, SP[a1, a3], SP[a4, a6], n] + S2[a2, a5, SP[a1, a6], 
     SP[a3, a4], n] - S2[a1, a4, n]*S2[a2, a6, a5, a3, n] + 
    S2[a2, a6, SP[a1, a5], SP[a3, a4], n] - S2[a2, SP[a1, a3], a4, 
     SP[a5, a6], n] - S2[a2, SP[a1, a3], SP[a4, a5], a6, n] + 
    S2[a2, SP[a1, a5], a3, SP[a4, a6], n] + S2[a2, SP[a1, a5], a6, 
     SP[a3, a4], n] + S2[a2, SP[a1, a5], SP[a3, a4], a6, n] + 
    S2[a2, SP[a1, a5], SP[a4, a6], a3, n] + S2[a2, SP[a1, a6], a5, 
     SP[a3, a4], n] + S2[a2, SP[a1, a6], SP[a4, a5], a3, n] + 
    S2[a1, a4, n]*S2[a3, a5, a2, a6, n] - S2[a3, a5, SP[a1, a2], SP[a4, a6], 
     n] - S2[a3, SP[a1, a5], a2, SP[a4, a6], n] - 
    S2[a3, SP[a1, a5], SP[a2, a4], a6, n] - S2[SP[a1, a2], a3, a4, 
     SP[a5, a6], n] - S2[SP[a1, a2], a3, SP[a4, a5], a6, n] - 
    S2[SP[a1, a2], a4, a3, SP[a5, a6], n] - S2[SP[a1, a2], a4, SP[a3, a6], 
     a5, n] + S2[SP[a1, a2], a5, a3, SP[a4, a6], n] + 
    S2[SP[a1, a2], a5, a6, SP[a3, a4], n] + S2[SP[a1, a2], a5, SP[a3, a4], 
     a6, n] + S2[SP[a1, a2], a5, SP[a4, a6], a3, n] + 
    S2[SP[a1, a2], a6, a5, SP[a3, a4], n] + S2[SP[a1, a2], a6, SP[a4, a5], 
     a3, n] - S2[SP[a1, a2], SP[a3, a4], a5, a6, n] - 
    S2[SP[a1, a2], SP[a3, a4], a6, a5, n] + S2[SP[a1, a2], SP[a4, a5], a3, 
     a6, n] + S2[SP[a1, a2], SP[a4, a5], a6, a3, n] + 
    S2[SP[a1, a2], SP[a4, a6], a5, a3, n] - S2[SP[a1, a3], a4, a6, 
     SP[a2, a5], n] - S2[SP[a1, a3], a4, SP[a5, a6], a2, n] - 
    S2[SP[a1, a3], a5, a2, SP[a4, a6], n] - S2[SP[a1, a3], a5, SP[a2, a4], 
     a6, n] - S2[SP[a1, a3], SP[a4, a5], a2, a6, n] - 
    S2[SP[a1, a3], SP[a4, a5], a6, a2, n] + S2[a1, a2, a3, a4, SP[a5, a6], 
     n] + S2[a1, a2, a3, SP[a4, a5], a6, n] + S2[a1, a2, a4, a3, SP[a5, a6], 
     n] + S2[a1, a2, a4, SP[a3, a6], a5, n] - S2[a1, a2, a5, a3, SP[a4, a6], 
     n] - S2[a1, a2, a5, a6, SP[a3, a4], n] - S2[a1, a2, a5, SP[a3, a4], a6, 
     n] - S2[a1, a2, a5, SP[a4, a6], a3, n] - S2[a1, a2, a6, a5, SP[a3, a4], 
     n] - S2[a1, a2, a6, SP[a4, a5], a3, n] + S2[a1, a2, SP[a3, a4], a5, a6, 
     n] + S2[a1, a2, SP[a3, a4], a6, a5, n] - S2[a1, a2, SP[a4, a5], a3, a6, 
     n] - S2[a1, a2, SP[a4, a5], a6, a3, n] - S2[a1, a2, SP[a4, a6], a5, a3, 
     n] + S2[a6, n]*S2[a1, a3, a2, a4, a5, n] + S2[a1, a3, a2, a4, 
     SP[a5, a6], n] + S2[a6, n]*S2[a1, a3, a2, a5, a4, n] + 
    S2[a1, a3, a2, a5, SP[a4, a6], n] - S2[a5, n]*S2[a1, a3, a2, a6, a4, n] - 
    S2[a1, a3, a2, a6, SP[a4, a5], n] + S2[a1, a3, a2, SP[a4, a6], a5, n] + 
    S2[a6, n]*S2[a1, a3, a4, a2, a5, n] + S2[a1, a3, a4, a2, SP[a5, a6], n] + 
    S2[a6, n]*S2[a1, a3, a4, a5, a2, n] - 
    S2[a2, n]*S2[a1, a3, a4, a5, a6, n] - 
    S2[a2, n]*S2[a1, a3, a4, a6, a5, n] - S2[a1, a3, a4, SP[a2, a5], a6, n] + 
    2*S2[a1, a3, a4, SP[a5, a6], a2, n] + 
    S2[a6, n]*S2[a1, a3, a5, a2, a4, n] + 
    2*S2[a1, a3, a5, a2, SP[a4, a6], n] + 
    S2[a6, n]*S2[a1, a3, a5, a4, a2, n] - 
    S2[a2, n]*S2[a1, a3, a5, a4, a6, n] + S2[a1, a3, a5, SP[a2, a6], a4, n] + 
    S2[a1, a3, a5, SP[a4, a6], a2, n] - S2[a5, n]*S2[a1, a3, a6, a2, a4, n] - 
    S2[a1, a3, a6, a2, SP[a4, a5], n] - S2[a5, n]*S2[a1, a3, a6, a4, a2, n] - 
    S2[a1, a3, a6, a4, SP[a2, a5], n] - S2[a1, a3, a6, SP[a2, a5], a4, n] - 
    S2[a1, a3, a6, SP[a4, a5], a2, n] - S2[a1, a3, SP[a2, a4], a5, a6, n] - 
    S2[a1, a3, SP[a2, a4], a6, a5, n] - S2[a1, a3, SP[a2, a5], a4, a6, n] - 
    S2[a1, a3, SP[a2, a5], a6, a4, n] + S2[a1, a3, SP[a2, a6], a4, a5, n] + 
    S2[a1, a3, SP[a2, a6], a5, a4, n] + S2[a1, a3, SP[a4, a5], a2, a6, n] + 
    S2[a1, a3, SP[a4, a5], a6, a2, n] + S2[a1, a3, SP[a4, a6], a2, a5, n] + 
    S2[a1, a3, SP[a4, a6], a5, a2, n] + S2[a1, a4, a2, a3, SP[a5, a6], n] + 
    S2[a1, a4, a2, SP[a3, a6], a5, n] + S2[a6, n]*S2[a1, a4, a3, a2, a5, n] + 
    S2[a1, a4, a3, a2, SP[a5, a6], n] + S2[a6, n]*S2[a1, a4, a3, a5, a2, n] - 
    S2[a2, n]*S2[a1, a4, a3, a5, a6, n] - 
    S2[a2, n]*S2[a1, a4, a3, a6, a5, n] - S2[a1, a4, a3, SP[a2, a5], a6, n] + 
    2*S2[a1, a4, a3, SP[a5, a6], a2, n] - 
    S2[a3, n]*S2[a1, a4, a5, a2, a6, n] - S2[a1, a4, a5, a2, SP[a3, a6], n] + 
    S2[a2, n]*S2[a1, a4, a5, a3, a6, n] + S2[a1, a4, a5, a3, SP[a2, a6], n] - 
    S2[a3, n]*S2[a1, a4, a5, a6, a2, n] + 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] + S2[a1, a4, a5, SP[a2, a6], a3, n] - 
    S2[a1, a4, a5, SP[a3, a6], a2, n] - S2[a3, n]*S2[a1, a4, a6, a2, a5, n] - 
    S2[a1, a4, a6, a2, SP[a3, a5], n] - S2[a2, n]*S2[a1, a4, a6, a3, a5, n] - 
    S2[a3, n]*S2[a1, a4, a6, a5, a2, n] + 
    S2[a2, n]*S2[a1, a4, a6, a5, a3, n] - S2[a1, a4, a6, SP[a2, a3], a5, n] + 
    S2[a1, a4, a6, SP[a2, a5], a3, n] - S2[a1, a4, a6, SP[a3, a5], a2, n] - 
    S2[a1, a4, SP[a2, a3], a5, a6, n] - S2[a1, a4, SP[a2, a3], a6, a5, n] + 
    S2[a1, a4, SP[a2, a5], a3, a6, n] + S2[a1, a4, SP[a2, a5], a6, a3, n] + 
    S2[a1, a4, SP[a2, a6], a5, a3, n] - S2[a1, a4, SP[a3, a5], a2, a6, n] - 
    S2[a1, a4, SP[a3, a5], a6, a2, n] + S2[a1, a4, SP[a3, a6], a2, a5, n] + 
    S2[a1, a4, SP[a3, a6], a5, a2, n] - S2[a3, n]*S2[a1, a5, a2, a4, a6, n] - 
    S2[a1, a5, a2, a4, SP[a3, a6], n] - S2[a3, n]*S2[a1, a5, a2, a6, a4, n] - 
    S2[a1, a5, a2, a6, SP[a3, a4], n] - S2[a1, a5, a2, SP[a3, a4], a6, n] - 
    S2[a1, a5, a2, SP[a3, a6], a4, n] + S2[a2, n]*S2[a1, a5, a3, a4, a6, n] + 
    S2[a1, a5, a3, a4, SP[a2, a6], n] + S2[a2, n]*S2[a1, a5, a3, a6, a4, n] + 
    S2[a1, a5, a3, a6, SP[a2, a4], n] + S2[a1, a5, a3, SP[a2, a4], a6, n] + 
    S2[a1, a5, a3, SP[a2, a6], a4, n] - S2[a3, n]*S2[a1, a5, a4, a2, a6, n] - 
    S2[a1, a5, a4, a2, SP[a3, a6], n] + S2[a2, n]*S2[a1, a5, a4, a3, a6, n] + 
    S2[a1, a5, a4, a3, SP[a2, a6], n] - S2[a3, n]*S2[a1, a5, a4, a6, a2, n] + 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] + S2[a1, a5, a4, SP[a2, a6], a3, n] - 
    S2[a1, a5, a4, SP[a3, a6], a2, n] + S2[a2, n]*S2[a1, a5, a6, a3, a4, n] + 
    S2[a1, a5, a6, a3, SP[a2, a4], n] + S2[a2, n]*S2[a1, a5, a6, a4, a3, n] + 
    S2[a1, a5, a6, a4, SP[a2, a3], n] + S2[a1, a5, a6, SP[a2, a3], a4, n] + 
    S2[a1, a5, a6, SP[a2, a4], a3, n] + S2[a1, a5, SP[a2, a4], a3, a6, n] + 
    S2[a1, a5, SP[a2, a4], a6, a3, n] + S2[a1, a5, SP[a2, a6], a3, a4, n] + 
    S2[a1, a5, SP[a2, a6], a4, a3, n] - S2[a1, a5, SP[a3, a4], a2, a6, n] - 
    S2[a1, a5, SP[a3, a4], a6, a2, n] - S2[a5, n]*S2[a1, a6, a2, a3, a4, n] - 
    S2[a1, a6, a2, a3, SP[a4, a5], n] - S2[a5, n]*S2[a1, a6, a2, a4, a3, n] - 
    S2[a1, a6, a2, a4, SP[a3, a5], n] - S2[a1, a6, a2, SP[a3, a5], a4, n] - 
    S2[a1, a6, a2, SP[a4, a5], a3, n] - S2[a5, n]*S2[a1, a6, a3, a2, a4, n] - 
    S2[a1, a6, a3, a2, SP[a4, a5], n] - S2[a5, n]*S2[a1, a6, a3, a4, a2, n] - 
    S2[a1, a6, a3, a4, SP[a2, a5], n] - S2[a1, a6, a3, SP[a2, a5], a4, n] - 
    S2[a1, a6, a3, SP[a4, a5], a2, n] - S2[a5, n]*S2[a1, a6, a4, a2, a3, n] - 
    S2[a1, a6, a4, a2, SP[a3, a5], n] - S2[a5, n]*S2[a1, a6, a4, a3, a2, n] - 
    S2[a1, a6, a4, a3, SP[a2, a5], n] + S2[a2, n]*S2[a1, a6, a4, a5, a3, n] + 
    S2[a1, a6, a4, a5, SP[a2, a3], n] - S2[a1, a6, a4, SP[a3, a5], a2, n] + 
    S2[a2, n]*S2[a1, a6, a5, a3, a4, n] + S2[a1, a6, a5, a3, SP[a2, a4], n] + 
    S2[a2, n]*S2[a1, a6, a5, a4, a3, n] + S2[a1, a6, a5, a4, SP[a2, a3], n] + 
    S2[a1, a6, a5, SP[a2, a3], a4, n] + S2[a1, a6, a5, SP[a2, a4], a3, n] + 
    S2[a1, a6, SP[a2, a4], a5, a3, n] - S2[a1, a6, SP[a3, a5], a2, a4, n] - 
    S2[a1, a6, SP[a3, a5], a4, a2, n] - S2[a1, a6, SP[a4, a5], a2, a3, n] - 
    S2[a1, a6, SP[a4, a5], a3, a2, n] - S2[a1, SP[a2, a3], a4, a5, a6, n] - 
    S2[a1, SP[a2, a3], a4, a6, a5, n] - S2[a1, SP[a2, a3], a5, a4, a6, n] + 
    S2[a1, SP[a2, a5], a3, a4, a6, n] + S2[a1, SP[a2, a5], a3, a6, a4, n] + 
    S2[a1, SP[a2, a5], a4, a3, a6, n] + S2[a1, SP[a2, a5], a4, a6, a3, n] + 
    S2[a1, SP[a2, a5], a6, a3, a4, n] + S2[a1, SP[a2, a5], a6, a4, a3, n] + 
    S2[a1, SP[a2, a6], a4, a5, a3, n] + S2[a1, SP[a2, a6], a5, a3, a4, n] + 
    S2[a1, SP[a2, a6], a5, a4, a3, n] - S2[a1, SP[a3, a5], a2, a4, a6, n] - 
    2*S2[a1, SP[a3, a5], a2, a6, a4, n] - S2[a1, SP[a3, a5], a4, a2, a6, n] - 
    S2[a1, SP[a3, a5], a4, a6, a2, n] - S2[a1, SP[a3, a5], a6, a2, a4, n] - 
    S2[a1, SP[a3, a5], a6, a4, a2, n] + S2[a1, SP[a3, a6], a2, a4, a5, n] + 
    S2[a1, SP[a3, a6], a2, a5, a4, n] + S2[a1, SP[a3, a6], a4, a2, a5, n] + 
    S2[a1, SP[a3, a6], a4, a5, a2, n] + S2[a1, SP[a3, a6], a5, a2, a4, n] + 
    S2[a1, SP[a3, a6], a5, a4, a2, n] + S2[a1, SP[a4, a6], a3, a2, a5, n] + 
    S2[a1, SP[a4, a6], a3, a5, a2, n] - S2[a1, SP[a5, a6], a2, a3, a4, n] - 
    S2[a1, SP[a5, a6], a2, a4, a3, n] - S2[a1, SP[a5, a6], a3, a2, a4, n] - 
    S2[a1, SP[a5, a6], a3, a4, a2, n] - S2[a1, SP[a5, a6], a4, a2, a3, n] - 
    S2[a1, SP[a5, a6], a4, a3, a2, n] + S2[a2, a1, a3, a4, SP[a5, a6], n] + 
    S2[a2, a1, a3, SP[a4, a5], a6, n] + S2[a2, a1, a4, a3, SP[a5, a6], n] + 
    S2[a2, a1, a4, SP[a3, a6], a5, n] - S2[a2, a1, a5, a3, SP[a4, a6], n] - 
    S2[a2, a1, a5, a6, SP[a3, a4], n] - S2[a2, a1, a5, SP[a3, a4], a6, n] - 
    S2[a2, a1, a5, SP[a4, a6], a3, n] - S2[a2, a1, a6, a5, SP[a3, a4], n] - 
    S2[a2, a1, a6, SP[a4, a5], a3, n] + S2[a2, a1, SP[a3, a4], a5, a6, n] + 
    S2[a2, a1, SP[a3, a4], a6, a5, n] - S2[a2, a1, SP[a4, a5], a3, a6, n] - 
    S2[a2, a1, SP[a4, a5], a6, a3, n] - S2[a2, a1, SP[a4, a6], a5, a3, n] - 
    S2[a6, n]*S2[a2, a3, a1, a4, a5, n] - 
    S2[a6, n]*S2[a2, a3, a1, a5, a4, n] - S2[a2, a3, a1, a5, SP[a4, a6], n] + 
    S2[a5, n]*S2[a2, a3, a1, a6, a4, n] + S2[a2, a3, a1, a6, SP[a4, a5], n] + 
    S2[a2, a3, a1, SP[a4, a5], a6, n] - S2[a2, a3, a1, SP[a4, a6], a5, n] - 
    S2[a6, n]*S2[a2, a3, a5, a1, a4, n] - S2[a2, a3, a5, a1, SP[a4, a6], n] - 
    S2[a2, a3, a5, SP[a1, a6], a4, n] + S2[a5, n]*S2[a2, a3, a6, a1, a4, n] + 
    S2[a2, a3, a6, a1, SP[a4, a5], n] + S2[a2, a3, a6, SP[a1, a5], a4, n] + 
    S2[a2, a3, SP[a1, a5], a4, a6, n] + S2[a2, a3, SP[a1, a5], a6, a4, n] - 
    S2[a2, a3, SP[a1, a6], a4, a5, n] - S2[a2, a3, SP[a1, a6], a5, a4, n] - 
    S2[a2, a5, a1, a3, SP[a4, a6], n] + S2[a3, n]*S2[a2, a5, a1, a4, a6, n] + 
    S2[a2, a5, a1, a4, SP[a3, a6], n] + S2[a3, n]*S2[a2, a5, a1, a6, a4, n] + 
    S2[a2, a5, a1, SP[a3, a6], a4, n] - S2[a2, a5, a1, SP[a4, a6], a3, n] - 
    S2[a2, a5, a3, a1, SP[a4, a6], n] - S2[a2, a5, a3, SP[a1, a6], a4, n] - 
    S2[a2, a5, a6, a1, SP[a3, a4], n] - S2[a2, a5, a6, SP[a1, a3], a4, n] - 
    S2[a2, a5, SP[a1, a6], a3, a4, n] - S2[a2, a5, SP[a1, a6], a4, a3, n] + 
    S2[a5, n]*S2[a2, a6, a1, a3, a4, n] + S2[a2, a6, a1, a3, SP[a4, a5], n] + 
    S2[a5, n]*S2[a2, a6, a1, a4, a3, n] + S2[a2, a6, a1, a4, SP[a3, a5], n] - 
    S2[a2, a6, a1, a5, SP[a3, a4], n] + S2[a2, a6, a1, SP[a3, a5], a4, n] + 
    S2[a5, n]*S2[a2, a6, a3, a1, a4, n] + S2[a2, a6, a3, a1, SP[a4, a5], n] + 
    S2[a2, a6, a3, SP[a1, a5], a4, n] - S2[a2, a6, a5, a1, SP[a3, a4], n] - 
    S2[a2, a6, a5, SP[a1, a3], a4, n] + S2[a2, a6, SP[a3, a5], a1, a4, n] + 
    S2[a2, SP[a1, a3], a4, a5, a6, n] + S2[a2, SP[a1, a3], a4, a6, a5, n] + 
    S2[a2, SP[a1, a3], a5, a4, a6, n] - S2[a2, SP[a1, a5], a3, a4, a6, n] - 
    S2[a2, SP[a1, a5], a3, a6, a4, n] - S2[a2, SP[a1, a5], a4, a3, a6, n] - 
    S2[a2, SP[a1, a5], a4, a6, a3, n] - S2[a2, SP[a1, a5], a6, a3, a4, n] - 
    S2[a2, SP[a1, a5], a6, a4, a3, n] - S2[a2, SP[a1, a6], a4, a5, a3, n] - 
    S2[a2, SP[a1, a6], a5, a3, a4, n] - S2[a2, SP[a1, a6], a5, a4, a3, n] + 
    S2[a2, SP[a3, a5], a1, a4, a6, n] + 2*S2[a2, SP[a3, a5], a1, a6, a4, n] + 
    S2[a2, SP[a3, a5], a6, a1, a4, n] - S2[a2, SP[a3, a6], a1, a4, a5, n] - 
    S2[a2, SP[a3, a6], a1, a5, a4, n] - S2[a2, SP[a3, a6], a5, a1, a4, n] + 
    S2[a2, SP[a5, a6], a1, a3, a4, n] + S2[a2, SP[a5, a6], a1, a4, a3, n] + 
    S2[a2, SP[a5, a6], a3, a1, a4, n] + S2[a3, a1, a4, a6, SP[a2, a5], n] + 
    S2[a3, a1, a4, SP[a5, a6], a2, n] + S2[a3, a1, a5, a2, SP[a4, a6], n] + 
    S2[a3, a1, a5, SP[a2, a4], a6, n] + S2[a3, a1, SP[a4, a5], a2, a6, n] + 
    S2[a3, a1, SP[a4, a5], a6, a2, n] + S2[a3, a5, a1, a2, SP[a4, a6], n] - 
    S2[a2, n]*S2[a3, a5, a1, a4, a6, n] - S2[a3, a5, a1, a4, SP[a2, a6], n] - 
    S2[a2, n]*S2[a3, a5, a1, a6, a4, n] - S2[a3, a5, a1, a6, SP[a2, a4], n] - 
    S2[a3, a5, a1, SP[a2, a6], a4, n] + S2[a3, a5, a2, a1, SP[a4, a6], n] + 
    S2[a3, a5, a2, SP[a1, a6], a4, n] + S2[a3, SP[a1, a5], a2, a4, a6, n] + 
    S2[a3, SP[a1, a5], a2, a6, a4, n] + S2[a3, SP[a1, a5], a4, a2, a6, n] + 
    S2[a3, SP[a1, a5], a4, a6, a2, n] - S2[a3, SP[a2, a5], a1, a4, a6, n] - 
    S2[a3, SP[a2, a5], a1, a6, a4, n] + S2[a3, n]*S2[a5, a1, a6, a2, a4, n] + 
    S2[a5, a1, a6, a2, SP[a3, a4], n] + S2[a3, n]*S2[a5, a1, a6, a4, a2, n] + 
    S2[a5, a1, a6, a4, SP[a2, a3], n] + S2[a5, a1, a6, SP[a2, a3], a4, n] + 
    S2[a5, a1, a6, SP[a3, a4], a2, n] + S2[a5, a1, SP[a3, a6], a2, a4, n] + 
    S2[a5, a1, SP[a3, a6], a4, a2, n] - S2[a3, n]*S2[a5, a2, a6, a1, a4, n] - 
    S2[a5, a2, a6, a1, SP[a3, a4], n] - S2[a5, a2, a6, SP[a1, a3], a4, n] - 
    S2[a5, a2, SP[a3, a6], a1, a4, n] - S2[a2, n]*S2[a5, a3, a1, a6, a4, n] - 
    S2[a5, a3, a1, a6, SP[a2, a4], n] - S2[a5, a3, a1, SP[a2, a6], a4, n] + 
    S2[a1, n]*S2[a5, a3, a2, a6, a4, n] + S2[a5, a3, a2, a6, SP[a1, a4], n] + 
    S2[a5, a3, a2, SP[a1, a6], a4, n] + S2[a5, SP[a1, a3], a2, a6, a4, n] + 
    S2[a5, SP[a1, a3], a6, a2, a4, n] + S2[a5, SP[a1, a3], a6, a4, a2, n] - 
    S2[a5, SP[a2, a3], a1, a6, a4, n] - S2[a5, SP[a2, a3], a6, a1, a4, n] - 
    S2[a2, n]*S2[a6, a1, a3, a4, a5, n] - S2[a6, a1, a3, a4, SP[a2, a5], n] - 
    S2[a2, n]*S2[a6, a1, a3, a5, a4, n] - S2[a6, a1, a3, a5, SP[a2, a4], n] - 
    S2[a6, a1, a3, SP[a2, a4], a5, n] - S2[a6, a1, a3, SP[a2, a5], a4, n] - 
    S2[a2, n]*S2[a6, a1, a4, a3, a5, n] - S2[a6, a1, a4, a3, SP[a2, a5], n] - 
    S2[a6, a1, a4, SP[a2, a3], a5, n] - S2[a6, a1, SP[a2, a3], a4, a5, n] - 
    S2[a6, a1, SP[a2, a3], a5, a4, n] - S2[a6, a1, SP[a2, a4], a3, a5, n] + 
    S2[a1, n]*S2[a6, a2, a3, a4, a5, n] + S2[a6, a2, a3, a4, SP[a1, a5], n] + 
    S2[a1, n]*S2[a6, a2, a3, a5, a4, n] + S2[a6, a2, a3, a5, SP[a1, a4], n] + 
    S2[a6, a2, a3, SP[a1, a4], a5, n] + S2[a6, a2, a3, SP[a1, a5], a4, n] + 
    S2[a1, n]*S2[a6, a2, a4, a3, a5, n] + S2[a6, a2, a4, a3, SP[a1, a5], n] + 
    S2[a6, a2, a4, SP[a1, a3], a5, n] + S2[a6, a2, SP[a1, a3], a4, a5, n] + 
    S2[a6, a2, SP[a1, a3], a5, a4, n] + S2[a6, a2, SP[a1, a4], a3, a5, n] + 
    S2[a1, n]*S2[a6, a4, a2, a3, a5, n] + S2[a6, a4, a2, a3, SP[a1, a5], n] + 
    S2[a6, a4, a2, SP[a1, a3], a5, n] + S2[a6, a4, SP[a1, a2], a3, a5, n] + 
    S2[a6, SP[a1, a4], a2, a3, a5, n] - S2[SP[a1, a5], a3, a6, a2, a4, n] - 
    S2[SP[a1, a5], a3, a6, a4, a2, n] - S2[SP[a1, a5], a6, a2, a3, a4, n] - 
    S2[SP[a1, a5], a6, a2, a4, a3, n] - S2[SP[a1, a5], a6, a3, a2, a4, n] - 
    S2[SP[a1, a5], a6, a3, a4, a2, n] - S2[SP[a1, a5], a6, a4, a2, a3, n] - 
    S2[SP[a1, a5], a6, a4, a3, a2, n] + S2[SP[a1, a6], a2, a3, a4, a5, n] + 
    S2[SP[a1, a6], a2, a3, a5, a4, n] + S2[SP[a1, a6], a2, a4, a3, a5, n] + 
    S2[SP[a1, a6], a3, a2, a4, a5, n] + S2[SP[a1, a6], a3, a2, a5, a4, n] + 
    S2[SP[a1, a6], a3, a4, a2, a5, n] + S2[SP[a1, a6], a3, a4, a5, a2, n] + 
    S2[SP[a1, a6], a3, a5, a2, a4, n] + S2[SP[a1, a6], a3, a5, a4, a2, n] + 
    S2[SP[a1, a6], a4, a2, a3, a5, n] + S2[SP[a1, a6], a4, a3, a2, a5, n] + 
    S2[SP[a1, a6], a4, a3, a5, a2, n] + S2[SP[a2, a5], a3, a6, a1, a4, n] + 
    S2[SP[a2, a5], a6, a1, a3, a4, n] + S2[SP[a2, a5], a6, a1, a4, a3, n] + 
    S2[SP[a2, a5], a6, a3, a1, a4, n] - S2[SP[a2, a6], a1, a3, a4, a5, n] - 
    S2[SP[a2, a6], a1, a3, a5, a4, n] - S2[SP[a2, a6], a1, a4, a3, a5, n] - 
    S2[SP[a2, a6], a3, a1, a4, a5, n] - S2[SP[a2, a6], a3, a1, a5, a4, n] - 
    S2[SP[a2, a6], a3, a5, a1, a4, n] + S2[SP[a3, a5], a1, a6, a2, a4, n] + 
    S2[SP[a3, a5], a1, a6, a4, a2, n] - S2[SP[a3, a5], a2, a6, a1, a4, n] - 
    S2[a6, a2, a3, a4, a1, a5, n] - S2[a6, a2, a3, a4, a5, a1, n] - 
    S2[a6, a2, a3, a5, a4, a1, n] - S2[a6, a2, a4, a1, a3, a5, n] - 
    S2[a6, a2, a4, a3, a1, a5, n] - S2[a6, a2, a4, a3, a5, a1, n] - 
    S2[a6, a4, a1, a2, a3, a5, n] - S2[a6, a4, a2, a1, a3, a5, n] - 
    S2[a6, a4, a2, a3, a1, a5, n] - S2[a6, a4, a2, a3, a5, a1, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a5_, a3_, a4_, a1_, a2_, a6_, n_] :> 
  -(S2[a1, a2, a6, n]*S2[a3, a4, a5, n]) - S2[a1, a2, a6, n]*
     S2[a3, a5, a4, n] - S2[SP[a1, a3], SP[a2, a4], SP[a5, a6], n] - 
    S2[SP[a1, a3], SP[a2, a5], SP[a4, a6], n] + 
    S2[a3, a5, n]*S2[a1, a2, a4, a6, n] + S2[a3, a5, n]*
     S2[a1, a2, a6, a4, n] - S2[a1, a2, SP[a3, a4], SP[a5, a6], n] - 
    S2[a1, a2, SP[a3, a6], SP[a4, a5], n] + S2[a1, a3, SP[a2, a4], 
     SP[a5, a6], n] + S2[a1, a3, SP[a2, a5], SP[a4, a6], n] + 
    S2[a3, a5, n]*S2[a1, a4, a2, a6, n] - S2[a2, a6, n]*
     S2[a1, a4, a3, a5, n] + S2[a1, SP[a2, a3], a5, SP[a4, a6], n] - 
    S2[a1, SP[a2, a3], a6, SP[a4, a5], n] - S2[a1, SP[a2, a3], SP[a4, a5], 
     a6, n] + S2[a1, SP[a2, a3], SP[a4, a6], a5, n] + 
    S2[a1, SP[a2, a4], a3, SP[a5, a6], n] + S2[a1, SP[a2, a4], SP[a3, a6], 
     a5, n] - S2[a1, SP[a3, a4], a2, SP[a5, a6], n] - 
    S2[a1, SP[a3, a4], SP[a2, a5], a6, n] + S2[a3, a1, SP[a2, a4], 
     SP[a5, a6], n] + S2[a3, a1, SP[a2, a5], SP[a4, a6], n] + 
    S2[a3, SP[a1, a4], a2, SP[a5, a6], n] + S2[a3, SP[a1, a4], SP[a2, a5], 
     a6, n] + S2[a3, SP[a1, a5], a2, SP[a4, a6], n] + 
    S2[a3, SP[a1, a5], SP[a2, a4], a6, n] + S2[SP[a1, a2], a4, a3, 
     SP[a5, a6], n] + S2[SP[a1, a2], a4, SP[a3, a6], a5, n] + 
    S2[SP[a1, a2], SP[a4, a6], a3, a5, n] + S2[SP[a1, a3], a2, a5, 
     SP[a4, a6], n] - S2[SP[a1, a3], a2, a6, SP[a4, a5], n] - 
    S2[SP[a1, a3], a2, SP[a4, a5], a6, n] + S2[SP[a1, a3], a2, SP[a4, a6], 
     a5, n] + S2[SP[a1, a3], a5, a2, SP[a4, a6], n] + 
    S2[SP[a1, a3], a5, SP[a2, a4], a6, n] + S2[SP[a1, a3], SP[a2, a4], a5, 
     a6, n] + S2[SP[a1, a3], SP[a2, a4], a6, a5, n] - 
    S2[SP[a1, a3], SP[a4, a5], a2, a6, n] - S2[a1, a2, a3, a5, SP[a4, a6], 
     n] + S2[a1, a2, a3, a6, SP[a4, a5], n] + S2[a1, a2, a3, SP[a4, a5], a6, 
     n] - S2[a1, a2, a3, SP[a4, a6], a5, n] - 
    S2[a6, n]*S2[a1, a2, a4, a3, a5, n] - S2[a1, a2, a4, a3, SP[a5, a6], n] - 
    S2[a1, a2, a4, SP[a3, a6], a5, n] + S2[a1, a2, a6, a3, SP[a4, a5], n] + 
    S2[a1, a2, a6, SP[a3, a4], a5, n] + S2[a1, a2, SP[a3, a4], a5, a6, n] + 
    S2[a1, a2, SP[a3, a4], a6, a5, n] - 2*S2[a1, a2, SP[a4, a6], a3, a5, n] - 
    S2[a1, a3, a2, a5, SP[a4, a6], n] + S2[a1, a3, a2, a6, SP[a4, a5], n] + 
    S2[a1, a3, a2, SP[a4, a5], a6, n] - S2[a1, a3, a2, SP[a4, a6], a5, n] - 
    S2[a1, a3, a5, a2, SP[a4, a6], n] - S2[a1, a3, a5, SP[a2, a4], a6, n] - 
    S2[a1, a3, SP[a2, a4], a5, a6, n] - S2[a1, a3, SP[a2, a4], a6, a5, n] + 
    S2[a1, a3, SP[a4, a5], a2, a6, n] - S2[a6, n]*S2[a1, a4, a2, a3, a5, n] - 
    S2[a1, a4, a2, a3, SP[a5, a6], n] - S2[a1, a4, a2, SP[a3, a6], a5, n] - 
    S2[a6, n]*S2[a1, a4, a3, a2, a5, n] - S2[a1, a4, a3, a2, SP[a5, a6], n] - 
    S2[a6, n]*S2[a1, a4, a3, a5, a2, n] + 
    S2[a2, n]*S2[a1, a4, a3, a5, a6, n] + 
    S2[a2, n]*S2[a1, a4, a3, a6, a5, n] + S2[a1, a4, a3, a6, SP[a2, a5], n] + 
    S2[a1, a4, a3, SP[a2, a5], a6, n] - S2[a1, a4, a3, SP[a5, a6], a2, n] + 
    S2[a2, n]*S2[a1, a4, a6, a3, a5, n] + S2[a1, a4, a6, a3, SP[a2, a5], n] + 
    S2[a1, a4, a6, SP[a2, a3], a5, n] + S2[a1, a4, SP[a2, a3], a5, a6, n] + 
    S2[a1, a4, SP[a2, a3], a6, a5, n] - S2[a1, a4, SP[a3, a6], a2, a5, n] - 
    S2[a1, a4, SP[a3, a6], a5, a2, n] + S2[a2, n]*S2[a1, a6, a4, a3, a5, n] + 
    S2[a1, a6, a4, a3, SP[a2, a5], n] + S2[a1, a6, a4, SP[a2, a3], a5, n] + 
    S2[a1, a6, SP[a2, a4], a3, a5, n] + S2[a1, SP[a3, a4], a2, a5, a6, n] + 
    S2[a1, SP[a3, a4], a2, a6, a5, n] + S2[a1, SP[a3, a4], a5, a2, a6, n] - 
    S2[a1, SP[a4, a6], a2, a3, a5, n] - S2[a1, SP[a4, a6], a3, a2, a5, n] - 
    S2[a1, SP[a4, a6], a3, a5, a2, n] - S2[a2, a1, a4, a3, SP[a5, a6], n] - 
    S2[a2, a1, a4, SP[a3, a6], a5, n] - S2[a2, a1, SP[a4, a6], a3, a5, n] - 
    S2[a2, SP[a1, a6], a4, a3, a5, n] - S2[a3, a1, a2, a5, SP[a4, a6], n] + 
    S2[a3, a1, a2, a6, SP[a4, a5], n] + S2[a3, a1, a2, SP[a4, a5], a6, n] - 
    S2[a3, a1, a2, SP[a4, a6], a5, n] - S2[a3, a1, a5, a2, SP[a4, a6], n] - 
    S2[a3, a1, a5, SP[a2, a4], a6, n] - S2[a3, a1, SP[a2, a4], a5, a6, n] - 
    S2[a3, a1, SP[a2, a4], a6, a5, n] + S2[a3, a1, SP[a4, a5], a2, a6, n] + 
    S2[a5, n]*S2[a3, a4, a1, a2, a6, n] - S2[a3, a5, a1, a2, SP[a4, a6], n] - 
    S2[a3, a5, a1, SP[a2, a4], a6, n] - S2[a3, a5, SP[a1, a4], a2, a6, n] - 
    S2[a3, SP[a1, a4], a2, a5, a6, n] - S2[a3, SP[a1, a4], a2, a6, a5, n] - 
    S2[a3, SP[a1, a4], a5, a2, a6, n] + S2[a3, SP[a4, a5], a1, a2, a6, n] + 
    S2[a2, n]*S2[a6, a1, a4, a3, a5, n] + S2[a6, a1, a4, a3, SP[a2, a5], n] + 
    S2[a6, a1, a4, SP[a2, a3], a5, n] + S2[a6, a1, SP[a2, a4], a3, a5, n] + 
    S2[a6, SP[a1, a2], a4, a3, a5, n] - S2[SP[a1, a6], a2, a4, a3, a5, n] - 
    S2[SP[a1, a6], a4, a2, a3, a5, n] - S2[SP[a1, a6], a4, a3, a2, a5, n] - 
    S2[SP[a1, a6], a4, a3, a5, a2, n] + S2[SP[a2, a6], a1, a4, a3, a5, n] + 
    S2[SP[a3, a5], a4, a1, a2, a6, n] - S2[a6, a2, a1, a4, a3, a5, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a5_, a3_, a4_, a1_, a6_, a2_, n_] :> 
  -(S2[a1, a6, a2, n]*S2[a3, a4, a5, n]) - S2[a1, a6, a2, n]*
     S2[a3, a5, a4, n] - S2[SP[a1, a3], SP[a4, a6], SP[a2, a5], n] - 
    S2[SP[a1, a3], SP[a5, a6], SP[a2, a4], n] + S2[a1, a3, SP[a4, a6], 
     SP[a2, a5], n] + S2[a1, a3, SP[a5, a6], SP[a2, a4], n] + 
    S2[a2, a6, n]*S2[a1, a4, a3, a5, n] + S2[a3, a5, n]*
     S2[a1, a4, a6, a2, n] - S2[a1, a4, SP[a2, a3], SP[a5, a6], n] - 
    S2[a1, a4, SP[a3, a6], SP[a2, a5], n] + S2[a3, a5, n]*
     S2[a1, a6, a2, a4, n] + S2[a3, a5, n]*S2[a1, a6, a4, a2, n] - 
    S2[a1, a6, SP[a2, a3], SP[a4, a5], n] - S2[a1, a6, SP[a3, a4], 
     SP[a2, a5], n] - S2[a1, SP[a2, a4], a3, SP[a5, a6], n] - 
    S2[a1, SP[a2, a4], SP[a3, a6], a5, n] - S2[a1, SP[a3, a4], a6, 
     SP[a2, a5], n] - S2[a1, SP[a3, a4], SP[a5, a6], a2, n] - 
    S2[a1, SP[a3, a6], a2, SP[a4, a5], n] + S2[a1, SP[a3, a6], a5, 
     SP[a2, a4], n] + S2[a1, SP[a3, a6], SP[a2, a4], a5, n] - 
    S2[a1, SP[a3, a6], SP[a4, a5], a2, n] + S2[a3, a1, SP[a4, a6], 
     SP[a2, a5], n] + S2[a3, a1, SP[a5, a6], SP[a2, a4], n] + 
    S2[a3, SP[a1, a4], a6, SP[a2, a5], n] + S2[a3, SP[a1, a4], SP[a5, a6], 
     a2, n] + S2[a3, SP[a1, a5], a6, SP[a2, a4], n] + 
    S2[a3, SP[a1, a5], SP[a4, a6], a2, n] - S2[SP[a1, a2], a4, a3, 
     SP[a5, a6], n] - S2[SP[a1, a2], a4, SP[a3, a6], a5, n] - 
    S2[SP[a1, a2], SP[a4, a6], a3, a5, n] + S2[SP[a1, a3], a5, a6, 
     SP[a2, a4], n] + S2[SP[a1, a3], a5, SP[a4, a6], a2, n] - 
    S2[SP[a1, a3], a6, a2, SP[a4, a5], n] + S2[SP[a1, a3], a6, a5, 
     SP[a2, a4], n] + S2[SP[a1, a3], a6, SP[a2, a4], a5, n] - 
    S2[SP[a1, a3], a6, SP[a4, a5], a2, n] - S2[SP[a1, a3], SP[a4, a5], a6, 
     a2, n] + S2[SP[a1, a3], SP[a4, a6], a2, a5, n] + 
    S2[SP[a1, a3], SP[a4, a6], a5, a2, n] + S2[a1, a2, a4, a3, SP[a5, a6], 
     n] + S2[a1, a2, a4, SP[a3, a6], a5, n] + S2[a1, a2, SP[a4, a6], a3, a5, 
     n] - S2[a1, a3, a5, a6, SP[a2, a4], n] - S2[a1, a3, a5, SP[a4, a6], a2, 
     n] + S2[a1, a3, a6, a2, SP[a4, a5], n] - S2[a1, a3, a6, a5, SP[a2, a4], 
     n] - S2[a1, a3, a6, SP[a2, a4], a5, n] + S2[a1, a3, a6, SP[a4, a5], a2, 
     n] + S2[a1, a3, SP[a4, a5], a6, a2, n] - S2[a1, a3, SP[a4, a6], a2, a5, 
     n] - S2[a1, a3, SP[a4, a6], a5, a2, n] + S2[a1, a4, a2, a3, SP[a5, a6], 
     n] + S2[a1, a4, a2, SP[a3, a6], a5, n] + S2[a1, a4, a3, a2, SP[a5, a6], 
     n] - S2[a2, n]*S2[a1, a4, a3, a5, a6, n] - S2[a1, a4, a3, a5, 
     SP[a2, a6], n] - S2[a2, n]*S2[a1, a4, a3, a6, a5, n] - 
    S2[a1, a4, a3, SP[a2, a6], a5, n] + S2[a1, a4, a3, SP[a5, a6], a2, n] - 
    S2[a2, n]*S2[a1, a4, a6, a3, a5, n] - S2[a1, a4, SP[a2, a6], a3, a5, n] + 
    S2[a1, a4, SP[a3, a6], a2, a5, n] + S2[a1, a4, SP[a3, a6], a5, a2, n] + 
    S2[a1, a6, a2, a3, SP[a4, a5], n] + S2[a1, a6, a2, SP[a3, a4], a5, n] + 
    S2[a1, a6, a3, a2, SP[a4, a5], n] - S2[a1, a6, a3, a5, SP[a2, a4], n] - 
    S2[a1, a6, a3, SP[a2, a4], a5, n] + S2[a1, a6, a3, SP[a4, a5], a2, n] - 
    S2[a2, n]*S2[a1, a6, a4, a3, a5, n] - S2[a1, a6, SP[a2, a4], a3, a5, n] + 
    S2[a1, a6, SP[a3, a4], a2, a5, n] + S2[a1, a6, SP[a3, a4], a5, a2, n] - 
    S2[a1, SP[a2, a6], a4, a3, a5, n] + S2[a1, SP[a3, a4], a5, a6, a2, n] + 
    S2[a1, SP[a3, a4], a6, a2, a5, n] + S2[a1, SP[a3, a4], a6, a5, a2, n] + 
    S2[a2, a1, a4, a3, SP[a5, a6], n] + S2[a2, a1, a4, SP[a3, a6], a5, n] + 
    S2[a2, a1, SP[a4, a6], a3, a5, n] + S2[a2, SP[a1, a6], a4, a3, a5, n] - 
    S2[a3, a1, a5, a6, SP[a2, a4], n] - S2[a3, a1, a5, SP[a4, a6], a2, n] + 
    S2[a3, a1, a6, a2, SP[a4, a5], n] - S2[a3, a1, a6, a5, SP[a2, a4], n] - 
    S2[a3, a1, a6, SP[a2, a4], a5, n] + S2[a3, a1, a6, SP[a4, a5], a2, n] + 
    S2[a3, a1, SP[a4, a5], a6, a2, n] - S2[a3, a1, SP[a4, a6], a2, a5, n] - 
    S2[a3, a1, SP[a4, a6], a5, a2, n] + S2[a5, n]*S2[a3, a4, a1, a6, a2, n] - 
    S2[a3, a5, a1, a6, SP[a2, a4], n] - S2[a3, a5, a1, SP[a4, a6], a2, n] - 
    S2[a3, a5, SP[a1, a4], a6, a2, n] - S2[a3, SP[a1, a4], a5, a6, a2, n] - 
    S2[a3, SP[a1, a4], a6, a2, a5, n] - S2[a3, SP[a1, a4], a6, a5, a2, n] + 
    S2[a3, SP[a4, a5], a1, a6, a2, n] - S2[a2, n]*S2[a6, a1, a4, a3, a5, n] - 
    S2[a6, a1, a4, a3, SP[a2, a5], n] - S2[a6, a1, a4, SP[a2, a3], a5, n] - 
    S2[a6, a1, SP[a2, a4], a3, a5, n] - S2[a6, SP[a1, a2], a4, a3, a5, n] - 
    S2[SP[a2, a6], a1, a4, a3, a5, n] + S2[SP[a3, a5], a4, a1, a6, a2, n] + 
    S2[a6, a1, a2, a4, a3, a5, n] + S2[a6, a1, a4, a2, a3, a5, n] + 
    S2[a6, a1, a4, a3, a2, a5, n] + S2[a6, a1, a4, a3, a5, a2, n] + 
    S2[a6, a2, a1, a4, a3, a5, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a5_, a3_, a4_, a2_, a1_, a6_, n_] :> 
  S2[a1, a2, a6, n]*S2[a3, a4, a5, n] + S2[a1, a6, a2, n]*S2[a3, a4, a5, n] + 
    S2[a1, a2, a6, n]*S2[a3, a5, a4, n] + S2[a1, a6, a2, n]*
     S2[a3, a5, a4, n] + S2[SP[a1, a3], SP[a2, a4], SP[a5, a6], n] + 
    S2[SP[a1, a3], SP[a2, a5], SP[a4, a6], n] + S2[SP[a1, a3], SP[a4, a6], 
     SP[a2, a5], n] + S2[SP[a1, a3], SP[a5, a6], SP[a2, a4], n] - 
    S2[a3, a5, n]*S2[a1, a2, a4, a6, n] - S2[a3, a5, n]*
     S2[a1, a2, a6, a4, n] + S2[a1, a2, SP[a3, a4], SP[a5, a6], n] + 
    S2[a1, a2, SP[a3, a6], SP[a4, a5], n] - S2[a1, a3, SP[a2, a4], 
     SP[a5, a6], n] - S2[a1, a3, SP[a2, a5], SP[a4, a6], n] - 
    S2[a1, a3, SP[a4, a6], SP[a2, a5], n] - S2[a1, a3, SP[a5, a6], 
     SP[a2, a4], n] - S2[a3, a5, n]*S2[a1, a6, a2, a4, n] + 
    S2[a1, a6, SP[a2, a3], SP[a4, a5], n] - S2[a1, SP[a2, a3], a5, 
     SP[a4, a6], n] + S2[a1, SP[a2, a3], a6, SP[a4, a5], n] + 
    S2[a1, SP[a2, a3], SP[a4, a5], a6, n] - S2[a1, SP[a2, a3], SP[a4, a6], 
     a5, n] + S2[a1, SP[a3, a6], a2, SP[a4, a5], n] - 
    S2[a1, SP[a3, a6], a4, SP[a2, a5], n] - S2[a1, SP[a3, a6], a5, 
     SP[a2, a4], n] - S2[a1, SP[a3, a6], SP[a2, a4], a5, n] - 
    S2[a1, a6, n]*S2[a2, a4, a3, a5, n] - S2[a1, a6, n]*
     S2[a2, a4, a5, a3, n] + S2[a2, a4, SP[a1, a3], SP[a5, a6], n] + 
    S2[a2, a4, SP[a1, a5], SP[a3, a6], n] - S2[a1, a6, n]*
     S2[a2, a5, a3, a4, n] - S2[a1, a6, n]*S2[a2, a5, a4, a3, n] + 
    S2[a2, a5, SP[a1, a3], SP[a4, a6], n] + S2[a2, a5, SP[a1, a4], 
     SP[a3, a6], n] + S2[a2, SP[a1, a4], a3, SP[a5, a6], n] + 
    S2[a2, SP[a1, a4], a5, SP[a3, a6], n] + S2[a2, SP[a1, a4], SP[a3, a6], 
     a5, n] + S2[a2, SP[a1, a4], SP[a5, a6], a3, n] + 
    S2[a2, SP[a1, a5], a3, SP[a4, a6], n] + S2[a2, SP[a1, a5], a4, 
     SP[a3, a6], n] + S2[a2, SP[a1, a5], SP[a3, a6], a4, n] + 
    S2[a2, SP[a1, a5], SP[a4, a6], a3, n] - S2[a3, a1, SP[a2, a4], 
     SP[a5, a6], n] - S2[a3, a1, SP[a2, a5], SP[a4, a6], n] - 
    S2[a3, a1, SP[a4, a6], SP[a2, a5], n] - S2[a3, a1, SP[a5, a6], 
     SP[a2, a4], n] + S2[a1, a6, n]*S2[a3, a5, a2, a4, n] - 
    S2[a3, a5, SP[a1, a2], SP[a4, a6], n] - S2[a3, SP[a1, a4], a2, 
     SP[a5, a6], n] - S2[a3, SP[a1, a4], a6, SP[a2, a5], n] - 
    S2[a3, SP[a1, a4], SP[a2, a5], a6, n] - S2[a3, SP[a1, a4], SP[a5, a6], 
     a2, n] - 2*S2[a3, SP[a1, a5], a2, SP[a4, a6], n] - 
    S2[a3, SP[a1, a5], a6, SP[a2, a4], n] - S2[a3, SP[a1, a5], SP[a2, a4], 
     a6, n] - S2[a3, SP[a1, a5], SP[a2, a6], a4, n] - 
    S2[a3, SP[a1, a5], SP[a4, a6], a2, n] + S2[SP[a1, a2], a4, a3, 
     SP[a5, a6], n] + S2[SP[a1, a2], a4, a5, SP[a3, a6], n] + 
    S2[SP[a1, a2], a4, SP[a3, a6], a5, n] + S2[SP[a1, a2], a4, SP[a5, a6], 
     a3, n] + S2[SP[a1, a2], a5, a3, SP[a4, a6], n] + 
    S2[SP[a1, a2], a5, a4, SP[a3, a6], n] + S2[SP[a1, a2], a5, SP[a3, a6], 
     a4, n] + S2[SP[a1, a2], a5, SP[a4, a6], a3, n] + 
    S2[SP[a1, a2], SP[a4, a6], a3, a5, n] + S2[SP[a1, a2], SP[a4, a6], a5, 
     a3, n] + S2[SP[a1, a2], SP[a5, a6], a3, a4, n] + 
    S2[SP[a1, a2], SP[a5, a6], a4, a3, n] - S2[SP[a1, a3], a2, a5, 
     SP[a4, a6], n] + S2[SP[a1, a3], a2, a6, SP[a4, a5], n] + 
    S2[SP[a1, a3], a2, SP[a4, a5], a6, n] - S2[SP[a1, a3], a2, SP[a4, a6], 
     a5, n] - S2[SP[a1, a3], a4, a2, SP[a5, a6], n] - 
    S2[SP[a1, a3], a4, a6, SP[a2, a5], n] - S2[SP[a1, a3], a4, SP[a2, a5], 
     a6, n] - S2[SP[a1, a3], a4, SP[a5, a6], a2, n] - 
    2*S2[SP[a1, a3], a5, a2, SP[a4, a6], n] - S2[SP[a1, a3], a5, a6, 
     SP[a2, a4], n] - S2[SP[a1, a3], a5, SP[a2, a4], a6, n] - 
    S2[SP[a1, a3], a5, SP[a2, a6], a4, n] - S2[SP[a1, a3], a5, SP[a4, a6], 
     a2, n] + S2[SP[a1, a3], a6, a2, SP[a4, a5], n] - 
    S2[SP[a1, a3], a6, a4, SP[a2, a5], n] - S2[SP[a1, a3], a6, a5, 
     SP[a2, a4], n] - S2[SP[a1, a3], a6, SP[a2, a4], a5, n] - 
    S2[SP[a1, a3], SP[a2, a4], a5, a6, n] - S2[SP[a1, a3], SP[a2, a4], a6, 
     a5, n] - S2[SP[a1, a3], SP[a4, a6], a2, a5, n] - 
    S2[SP[a1, a3], SP[a4, a6], a5, a2, n] - S2[SP[a1, a3], SP[a5, a6], a2, 
     a4, n] - S2[SP[a1, a3], SP[a5, a6], a4, a2, n] + 
    S2[a1, a2, a3, a5, SP[a4, a6], n] - S2[a1, a2, a3, a6, SP[a4, a5], n] - 
    S2[a1, a2, a3, SP[a4, a5], a6, n] + S2[a1, a2, a3, SP[a4, a6], a5, n] + 
    S2[a6, n]*S2[a1, a2, a4, a3, a5, n] - S2[a1, a2, a4, a3, SP[a5, a6], n] - 
    S2[a1, a2, a4, a5, SP[a3, a6], n] - S2[a1, a2, a4, SP[a3, a6], a5, n] - 
    S2[a1, a2, a4, SP[a5, a6], a3, n] - S2[a1, a2, a5, a3, SP[a4, a6], n] - 
    S2[a1, a2, a5, a4, SP[a3, a6], n] - S2[a1, a2, a5, SP[a3, a6], a4, n] - 
    S2[a1, a2, a5, SP[a4, a6], a3, n] - S2[a1, a2, a6, a3, SP[a4, a5], n] - 
    S2[a1, a2, a6, SP[a3, a4], a5, n] - S2[a1, a2, SP[a3, a4], a5, a6, n] - 
    S2[a1, a2, SP[a3, a4], a6, a5, n] - S2[a1, a2, SP[a4, a6], a5, a3, n] - 
    S2[a1, a2, SP[a5, a6], a3, a4, n] - S2[a1, a2, SP[a5, a6], a4, a3, n] + 
    S2[a1, a3, a2, a5, SP[a4, a6], n] - S2[a1, a3, a2, a6, SP[a4, a5], n] - 
    S2[a1, a3, a2, SP[a4, a5], a6, n] + S2[a1, a3, a2, SP[a4, a6], a5, n] + 
    S2[a1, a3, a4, a2, SP[a5, a6], n] + S2[a1, a3, a4, a6, SP[a2, a5], n] + 
    S2[a1, a3, a4, SP[a2, a5], a6, n] + S2[a1, a3, a4, SP[a5, a6], a2, n] + 
    2*S2[a1, a3, a5, a2, SP[a4, a6], n] + S2[a1, a3, a5, a6, SP[a2, a4], n] + 
    S2[a1, a3, a5, SP[a2, a4], a6, n] + S2[a1, a3, a5, SP[a2, a6], a4, n] + 
    S2[a1, a3, a5, SP[a4, a6], a2, n] - S2[a1, a3, a6, a2, SP[a4, a5], n] + 
    S2[a1, a3, a6, a4, SP[a2, a5], n] + S2[a1, a3, a6, a5, SP[a2, a4], n] + 
    S2[a1, a3, a6, SP[a2, a4], a5, n] + S2[a1, a3, SP[a2, a4], a5, a6, n] + 
    S2[a1, a3, SP[a2, a4], a6, a5, n] + S2[a1, a3, SP[a4, a6], a2, a5, n] + 
    S2[a1, a3, SP[a4, a6], a5, a2, n] + S2[a1, a3, SP[a5, a6], a2, a4, n] + 
    S2[a1, a3, SP[a5, a6], a4, a2, n] - S2[a3, n]*S2[a1, a4, a2, a5, a6, n] - 
    S2[a1, a4, a2, a5, SP[a3, a6], n] - S2[a3, n]*S2[a1, a4, a2, a6, a5, n] - 
    S2[a1, a4, a2, a6, SP[a3, a5], n] - S2[a1, a4, a2, SP[a3, a5], a6, n] - 
    S2[a1, a4, a2, SP[a3, a6], a5, n] + S2[a2, n]*S2[a1, a4, a3, a5, a6, n] + 
    S2[a1, a4, a3, a5, SP[a2, a6], n] + S2[a2, n]*S2[a1, a4, a3, a6, a5, n] + 
    S2[a1, a4, a3, a6, SP[a2, a5], n] + S2[a1, a4, a3, SP[a2, a5], a6, n] + 
    S2[a1, a4, a3, SP[a2, a6], a5, n] - S2[a3, n]*S2[a1, a4, a5, a2, a6, n] - 
    S2[a1, a4, a5, a2, SP[a3, a6], n] + S2[a2, n]*S2[a1, a4, a5, a3, a6, n] + 
    S2[a1, a4, a5, a3, SP[a2, a6], n] - S2[a3, n]*S2[a1, a4, a5, a6, a2, n] + 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] + S2[a1, a4, a5, SP[a2, a6], a3, n] - 
    S2[a1, a4, a5, SP[a3, a6], a2, n] - S2[a3, n]*S2[a1, a4, a6, a2, a5, n] - 
    S2[a1, a4, a6, a2, SP[a3, a5], n] + S2[a2, n]*S2[a1, a4, a6, a3, a5, n] + 
    S2[a1, a4, a6, a3, SP[a2, a5], n] - S2[a3, n]*S2[a1, a4, a6, a5, a2, n] + 
    S2[a2, n]*S2[a1, a4, a6, a5, a3, n] + S2[a1, a4, a6, SP[a2, a5], a3, n] - 
    S2[a1, a4, a6, SP[a3, a5], a2, n] + S2[a1, a4, SP[a2, a5], a3, a6, n] + 
    S2[a1, a4, SP[a2, a5], a6, a3, n] + S2[a1, a4, SP[a2, a6], a3, a5, n] + 
    S2[a1, a4, SP[a2, a6], a5, a3, n] - S2[a1, a4, SP[a3, a5], a2, a6, n] - 
    S2[a1, a4, SP[a3, a5], a6, a2, n] - S2[a1, a4, SP[a3, a6], a2, a5, n] - 
    S2[a1, a4, SP[a3, a6], a5, a2, n] - S2[a3, n]*S2[a1, a5, a2, a4, a6, n] - 
    S2[a1, a5, a2, a4, SP[a3, a6], n] - S2[a3, n]*S2[a1, a5, a2, a6, a4, n] - 
    S2[a1, a5, a2, a6, SP[a3, a4], n] - S2[a1, a5, a2, SP[a3, a4], a6, n] - 
    S2[a1, a5, a2, SP[a3, a6], a4, n] + S2[a2, n]*S2[a1, a5, a3, a4, a6, n] + 
    S2[a1, a5, a3, a4, SP[a2, a6], n] + S2[a2, n]*S2[a1, a5, a3, a6, a4, n] + 
    S2[a1, a5, a3, a6, SP[a2, a4], n] + S2[a1, a5, a3, SP[a2, a4], a6, n] + 
    S2[a1, a5, a3, SP[a2, a6], a4, n] - S2[a3, n]*S2[a1, a5, a4, a2, a6, n] - 
    S2[a1, a5, a4, a2, SP[a3, a6], n] + S2[a2, n]*S2[a1, a5, a4, a3, a6, n] + 
    S2[a1, a5, a4, a3, SP[a2, a6], n] - S2[a3, n]*S2[a1, a5, a4, a6, a2, n] + 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] + S2[a1, a5, a4, SP[a2, a6], a3, n] - 
    S2[a1, a5, a4, SP[a3, a6], a2, n] - S2[a3, n]*S2[a1, a5, a6, a2, a4, n] - 
    S2[a1, a5, a6, a2, SP[a3, a4], n] + S2[a2, n]*S2[a1, a5, a6, a3, a4, n] + 
    S2[a1, a5, a6, a3, SP[a2, a4], n] - S2[a3, n]*S2[a1, a5, a6, a4, a2, n] + 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] + S2[a1, a5, a6, SP[a2, a4], a3, n] - 
    S2[a1, a5, a6, SP[a3, a4], a2, n] + S2[a1, a5, SP[a2, a4], a3, a6, n] + 
    S2[a1, a5, SP[a2, a4], a6, a3, n] + S2[a1, a5, SP[a2, a6], a3, a4, n] + 
    S2[a1, a5, SP[a2, a6], a4, a3, n] - S2[a1, a5, SP[a3, a4], a2, a6, n] - 
    S2[a1, a5, SP[a3, a4], a6, a2, n] - S2[a1, a5, SP[a3, a6], a2, a4, n] - 
    S2[a1, a5, SP[a3, a6], a4, a2, n] - S2[a1, a6, a2, a3, SP[a4, a5], n] - 
    S2[a1, a6, a2, SP[a3, a4], a5, n] - S2[a1, a6, a3, a2, SP[a4, a5], n] + 
    S2[a1, a6, a3, a4, SP[a2, a5], n] + S2[a1, a6, a3, a5, SP[a2, a4], n] + 
    S2[a1, a6, a3, SP[a2, a4], a5, n] - S2[a3, n]*S2[a1, a6, a4, a2, a5, n] - 
    S2[a1, a6, a4, a2, SP[a3, a5], n] + S2[a2, n]*S2[a1, a6, a4, a3, a5, n] + 
    S2[a1, a6, a4, a3, SP[a2, a5], n] - S2[a3, n]*S2[a1, a6, a4, a5, a2, n] + 
    S2[a2, n]*S2[a1, a6, a4, a5, a3, n] + S2[a1, a6, a4, SP[a2, a5], a3, n] - 
    S2[a1, a6, a4, SP[a3, a5], a2, n] - S2[a3, n]*S2[a1, a6, a5, a2, a4, n] - 
    S2[a1, a6, a5, a2, SP[a3, a4], n] + S2[a2, n]*S2[a1, a6, a5, a3, a4, n] + 
    S2[a1, a6, a5, a3, SP[a2, a4], n] - S2[a3, n]*S2[a1, a6, a5, a4, a2, n] + 
    S2[a2, n]*S2[a1, a6, a5, a4, a3, n] + S2[a1, a6, a5, SP[a2, a4], a3, n] - 
    S2[a1, a6, a5, SP[a3, a4], a2, n] + S2[a1, a6, SP[a2, a4], a3, a5, n] + 
    S2[a1, a6, SP[a2, a4], a5, a3, n] + S2[a1, a6, SP[a2, a5], a3, a4, n] + 
    S2[a1, a6, SP[a2, a5], a4, a3, n] - S2[a1, a6, SP[a3, a4], a2, a5, n] - 
    S2[a1, a6, SP[a3, a4], a5, a2, n] - S2[a1, a6, SP[a3, a5], a2, a4, n] - 
    S2[a1, a6, SP[a3, a5], a4, a2, n] + S2[a1, SP[a2, a4], a3, a5, a6, n] + 
    S2[a1, SP[a2, a4], a3, a6, a5, n] + S2[a1, SP[a2, a4], a5, a3, a6, n] + 
    S2[a1, SP[a2, a4], a5, a6, a3, n] + S2[a1, SP[a2, a4], a6, a3, a5, n] + 
    S2[a1, SP[a2, a4], a6, a5, a3, n] + S2[a1, SP[a2, a5], a3, a4, a6, n] + 
    S2[a1, SP[a2, a5], a3, a6, a4, n] + S2[a1, SP[a2, a5], a4, a3, a6, n] + 
    S2[a1, SP[a2, a5], a4, a6, a3, n] + S2[a1, SP[a2, a5], a6, a3, a4, n] + 
    S2[a1, SP[a2, a5], a6, a4, a3, n] + S2[a1, SP[a2, a6], a4, a3, a5, n] - 
    S2[a1, SP[a3, a4], a2, a5, a6, n] - S2[a1, SP[a3, a4], a2, a6, a5, n] - 
    S2[a1, SP[a3, a4], a5, a2, a6, n] - S2[a1, SP[a3, a4], a5, a6, a2, n] - 
    S2[a1, SP[a3, a4], a6, a2, a5, n] - S2[a1, SP[a3, a4], a6, a5, a2, n] - 
    S2[a1, SP[a3, a5], a2, a4, a6, n] - S2[a1, SP[a3, a5], a2, a6, a4, n] - 
    S2[a1, SP[a3, a5], a4, a2, a6, n] - S2[a1, SP[a3, a5], a4, a6, a2, n] - 
    S2[a1, SP[a3, a5], a6, a2, a4, n] - S2[a1, SP[a3, a5], a6, a4, a2, n] - 
    S2[a2, a1, a4, a3, SP[a5, a6], n] - S2[a2, a1, a4, a5, SP[a3, a6], n] - 
    S2[a2, a1, a4, SP[a3, a6], a5, n] - S2[a2, a1, a4, SP[a5, a6], a3, n] - 
    S2[a2, a1, a5, a3, SP[a4, a6], n] - S2[a2, a1, a5, a4, SP[a3, a6], n] - 
    S2[a2, a1, a5, SP[a3, a6], a4, n] - S2[a2, a1, a5, SP[a4, a6], a3, n] - 
    S2[a2, a1, SP[a4, a6], a3, a5, n] - S2[a2, a1, SP[a4, a6], a5, a3, n] - 
    S2[a2, a1, SP[a5, a6], a3, a4, n] - S2[a2, a1, SP[a5, a6], a4, a3, n] + 
    S2[a5, n]*S2[a2, a4, a1, a3, a6, n] - S2[a2, a4, a1, a5, SP[a3, a6], n] + 
    S2[a5, n]*S2[a2, a4, a1, a6, a3, n] + S2[a2, a4, a1, a6, SP[a3, a5], n] + 
    S2[a2, a4, a1, SP[a3, a5], a6, n] - S2[a2, a4, a1, SP[a3, a6], a5, n] + 
    S2[a5, n]*S2[a2, a4, a3, a1, a6, n] - S2[a2, a4, a5, a1, SP[a3, a6], n] - 
    S2[a2, a4, a5, SP[a1, a3], a6, n] - S2[a2, a4, SP[a1, a3], a5, a6, n] - 
    S2[a2, a4, SP[a1, a3], a6, a5, n] + S2[a2, a4, SP[a3, a5], a1, a6, n] - 
    S2[a2, a5, a1, a3, SP[a4, a6], n] + S2[a3, n]*S2[a2, a5, a1, a4, a6, n] + 
    S2[a3, n]*S2[a2, a5, a1, a6, a4, n] + S2[a2, a5, a1, a6, SP[a3, a4], n] + 
    S2[a2, a5, a1, SP[a3, a4], a6, n] - S2[a2, a5, a1, SP[a4, a6], a3, n] - 
    S2[a2, a5, a3, a1, SP[a4, a6], n] - S2[a2, a5, a3, SP[a1, a4], a6, n] - 
    S2[a2, a5, a4, a1, SP[a3, a6], n] - S2[a2, a5, a4, SP[a1, a3], a6, n] - 
    S2[a2, a5, SP[a1, a4], a3, a6, n] - S2[a2, a5, SP[a1, a4], a6, a3, n] - 
    S2[a2, SP[a1, a4], a3, a5, a6, n] - S2[a2, SP[a1, a4], a3, a6, a5, n] - 
    S2[a2, SP[a1, a4], a5, a3, a6, n] - S2[a2, SP[a1, a4], a5, a6, a3, n] - 
    S2[a2, SP[a1, a4], a6, a3, a5, n] - S2[a2, SP[a1, a4], a6, a5, a3, n] - 
    S2[a2, SP[a1, a5], a3, a4, a6, n] - S2[a2, SP[a1, a5], a3, a6, a4, n] - 
    S2[a2, SP[a1, a5], a4, a3, a6, n] - S2[a2, SP[a1, a5], a4, a6, a3, n] - 
    S2[a2, SP[a1, a5], a6, a3, a4, n] - S2[a2, SP[a1, a5], a6, a4, a3, n] + 
    S2[a2, SP[a3, a5], a1, a4, a6, n] + S2[a2, SP[a3, a5], a1, a6, a4, n] + 
    S2[a2, SP[a4, a5], a1, a3, a6, n] + S2[a2, SP[a4, a5], a1, a6, a3, n] + 
    S2[a2, SP[a4, a5], a3, a1, a6, n] + S2[a3, a1, a2, a5, SP[a4, a6], n] - 
    S2[a3, a1, a2, a6, SP[a4, a5], n] - S2[a3, a1, a2, SP[a4, a5], a6, n] + 
    S2[a3, a1, a2, SP[a4, a6], a5, n] + S2[a3, a1, a4, a2, SP[a5, a6], n] + 
    S2[a3, a1, a4, a6, SP[a2, a5], n] + S2[a3, a1, a4, SP[a2, a5], a6, n] + 
    S2[a3, a1, a4, SP[a5, a6], a2, n] + 2*S2[a3, a1, a5, a2, SP[a4, a6], n] + 
    S2[a3, a1, a5, a6, SP[a2, a4], n] + S2[a3, a1, a5, SP[a2, a4], a6, n] + 
    S2[a3, a1, a5, SP[a2, a6], a4, n] + S2[a3, a1, a5, SP[a4, a6], a2, n] - 
    S2[a3, a1, a6, a2, SP[a4, a5], n] + S2[a3, a1, a6, a4, SP[a2, a5], n] + 
    S2[a3, a1, a6, a5, SP[a2, a4], n] + S2[a3, a1, a6, SP[a2, a4], a5, n] + 
    S2[a3, a1, SP[a2, a4], a5, a6, n] + S2[a3, a1, SP[a2, a4], a6, a5, n] + 
    S2[a3, a1, SP[a4, a6], a2, a5, n] + S2[a3, a1, SP[a4, a6], a5, a2, n] + 
    S2[a3, a1, SP[a5, a6], a2, a4, n] + S2[a3, a1, SP[a5, a6], a4, a2, n] - 
    S2[a5, n]*S2[a3, a4, a1, a2, a6, n] - 
    S2[a5, n]*S2[a3, a4, a1, a6, a2, n] + 
    2*S2[a3, a5, a1, a2, SP[a4, a6], n] - 
    S2[a2, n]*S2[a3, a5, a1, a4, a6, n] - S2[a3, a5, a1, a4, SP[a2, a6], n] - 
    S2[a2, n]*S2[a3, a5, a1, a6, a4, n] + S2[a3, a5, a1, SP[a4, a6], a2, n] + 
    S2[a3, a5, a2, a1, SP[a4, a6], n] + S2[a3, a5, a2, SP[a1, a4], a6, n] + 
    S2[a3, a5, SP[a1, a4], a2, a6, n] + S2[a3, a5, SP[a1, a4], a6, a2, n] + 
    S2[a3, SP[a1, a4], a2, a5, a6, n] + S2[a3, SP[a1, a4], a2, a6, a5, n] + 
    S2[a3, SP[a1, a4], a5, a2, a6, n] + S2[a3, SP[a1, a4], a5, a6, a2, n] + 
    S2[a3, SP[a1, a4], a6, a2, a5, n] + S2[a3, SP[a1, a4], a6, a5, a2, n] + 
    S2[a3, SP[a1, a5], a2, a4, a6, n] + S2[a3, SP[a1, a5], a2, a6, a4, n] + 
    S2[a3, SP[a1, a5], a4, a2, a6, n] + S2[a3, SP[a1, a5], a4, a6, a2, n] + 
    S2[a3, SP[a1, a5], a6, a2, a4, n] + S2[a3, SP[a1, a5], a6, a4, a2, n] - 
    S2[a3, SP[a2, a5], a1, a4, a6, n] - S2[a3, SP[a2, a5], a1, a6, a4, n] - 
    S2[a3, SP[a4, a5], a1, a2, a6, n] - S2[a3, SP[a4, a5], a1, a6, a2, n] - 
    S2[a3, n]*S2[a5, a2, a4, a1, a6, n] - S2[a5, a2, a4, a1, SP[a3, a6], n] - 
    S2[a5, a2, a4, SP[a1, a3], a6, n] - S2[a5, a2, SP[a3, a4], a1, a6, n] + 
    S2[a2, n]*S2[a5, a3, a4, a1, a6, n] + S2[a5, a3, a4, a1, SP[a2, a6], n] + 
    S2[a5, a3, a4, SP[a1, a2], a6, n] + S2[a5, a3, SP[a2, a4], a1, a6, n] + 
    S2[SP[a1, a6], a2, a4, a3, a5, n] + S2[SP[a2, a5], a3, a4, a1, a6, n] + 
    S2[SP[a2, a5], a4, a1, a3, a6, n] + S2[SP[a2, a5], a4, a1, a6, a3, n] + 
    S2[SP[a2, a5], a4, a3, a1, a6, n] - S2[SP[a3, a5], a2, a4, a1, a6, n] - 
    S2[SP[a3, a5], a4, a1, a2, a6, n] - S2[SP[a3, a5], a4, a1, a6, a2, n] - 
    S2[a6, a1, a2, a4, a3, a5, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a5_, a3_, a4_, a2_, a6_, a1_, n_] :> 
  -(S2[a1, a6, a2, n]*S2[a3, a4, a5, n]) - S2[a1, a6, a2, n]*
     S2[a3, a5, a4, n] - S2[SP[a1, a3], SP[a4, a6], SP[a2, a5], n] - 
    S2[SP[a1, a3], SP[a5, a6], SP[a2, a4], n] + S2[a1, a3, SP[a4, a6], 
     SP[a2, a5], n] + S2[a1, a3, SP[a5, a6], SP[a2, a4], n] + 
    S2[a3, a5, n]*S2[a1, a6, a2, a4, n] - S2[a1, a6, SP[a2, a3], SP[a4, a5], 
     n] - S2[a1, SP[a3, a6], a2, SP[a4, a5], n] + S2[a1, SP[a3, a6], a4, 
     SP[a2, a5], n] + S2[a1, SP[a3, a6], a5, SP[a2, a4], n] + 
    S2[a1, SP[a3, a6], SP[a2, a4], a5, n] + S2[a1, a6, n]*
     S2[a2, a4, a3, a5, n] + S2[a1, a6, n]*S2[a2, a4, a5, a3, n] - 
    S2[a2, a4, SP[a1, a3], SP[a5, a6], n] - S2[a2, a4, SP[a1, a5], 
     SP[a3, a6], n] + S2[a1, a6, n]*S2[a2, a5, a3, a4, n] + 
    S2[a1, a6, n]*S2[a2, a5, a4, a3, n] - S2[a2, a5, SP[a1, a3], SP[a4, a6], 
     n] - S2[a2, a5, SP[a1, a4], SP[a3, a6], n] - S2[a2, SP[a1, a4], a3, 
     SP[a5, a6], n] - S2[a2, SP[a1, a4], a5, SP[a3, a6], n] - 
    S2[a2, SP[a1, a4], SP[a3, a6], a5, n] - S2[a2, SP[a1, a4], SP[a5, a6], 
     a3, n] - S2[a2, SP[a1, a5], a3, SP[a4, a6], n] - 
    S2[a2, SP[a1, a5], a4, SP[a3, a6], n] - S2[a2, SP[a1, a5], SP[a3, a6], 
     a4, n] - S2[a2, SP[a1, a5], SP[a4, a6], a3, n] + 
    S2[a3, a1, SP[a4, a6], SP[a2, a5], n] + S2[a3, a1, SP[a5, a6], 
     SP[a2, a4], n] - S2[a1, a6, n]*S2[a3, a5, a2, a4, n] + 
    S2[a3, a5, SP[a1, a2], SP[a4, a6], n] + S2[a3, SP[a1, a4], a6, 
     SP[a2, a5], n] + S2[a3, SP[a1, a4], SP[a5, a6], a2, n] + 
    S2[a3, SP[a1, a5], a2, SP[a4, a6], n] + S2[a3, SP[a1, a5], a6, 
     SP[a2, a4], n] + S2[a3, SP[a1, a5], SP[a2, a6], a4, n] + 
    S2[a3, SP[a1, a5], SP[a4, a6], a2, n] - S2[SP[a1, a2], a4, a3, 
     SP[a5, a6], n] - S2[SP[a1, a2], a4, a5, SP[a3, a6], n] - 
    S2[SP[a1, a2], a4, SP[a3, a6], a5, n] - S2[SP[a1, a2], a4, SP[a5, a6], 
     a3, n] - S2[SP[a1, a2], a5, a3, SP[a4, a6], n] - 
    S2[SP[a1, a2], a5, a4, SP[a3, a6], n] - S2[SP[a1, a2], a5, SP[a3, a6], 
     a4, n] - S2[SP[a1, a2], a5, SP[a4, a6], a3, n] - 
    S2[SP[a1, a2], SP[a4, a6], a3, a5, n] - S2[SP[a1, a2], SP[a4, a6], a5, 
     a3, n] - S2[SP[a1, a2], SP[a5, a6], a3, a4, n] - 
    S2[SP[a1, a2], SP[a5, a6], a4, a3, n] + S2[SP[a1, a3], a4, a6, 
     SP[a2, a5], n] + S2[SP[a1, a3], a4, SP[a5, a6], a2, n] + 
    S2[SP[a1, a3], a5, a2, SP[a4, a6], n] + S2[SP[a1, a3], a5, a6, 
     SP[a2, a4], n] + S2[SP[a1, a3], a5, SP[a2, a6], a4, n] + 
    S2[SP[a1, a3], a5, SP[a4, a6], a2, n] - S2[SP[a1, a3], a6, a2, 
     SP[a4, a5], n] + S2[SP[a1, a3], a6, a4, SP[a2, a5], n] + 
    S2[SP[a1, a3], a6, a5, SP[a2, a4], n] + S2[SP[a1, a3], a6, SP[a2, a4], 
     a5, n] + S2[SP[a1, a3], SP[a4, a6], a2, a5, n] + 
    S2[SP[a1, a3], SP[a4, a6], a5, a2, n] + S2[SP[a1, a3], SP[a5, a6], a2, 
     a4, n] + S2[SP[a1, a3], SP[a5, a6], a4, a2, n] + 
    S2[a1, a2, a4, a3, SP[a5, a6], n] + S2[a1, a2, a4, a5, SP[a3, a6], n] + 
    S2[a1, a2, a4, SP[a3, a6], a5, n] + S2[a1, a2, a4, SP[a5, a6], a3, n] + 
    S2[a1, a2, a5, a3, SP[a4, a6], n] + S2[a1, a2, a5, a4, SP[a3, a6], n] + 
    S2[a1, a2, a5, SP[a3, a6], a4, n] + S2[a1, a2, a5, SP[a4, a6], a3, n] + 
    S2[a1, a2, SP[a4, a6], a3, a5, n] + S2[a1, a2, SP[a4, a6], a5, a3, n] + 
    S2[a1, a2, SP[a5, a6], a3, a4, n] + S2[a1, a2, SP[a5, a6], a4, a3, n] - 
    S2[a1, a3, a4, a6, SP[a2, a5], n] - S2[a1, a3, a4, SP[a5, a6], a2, n] - 
    S2[a1, a3, a5, a2, SP[a4, a6], n] - S2[a1, a3, a5, a6, SP[a2, a4], n] - 
    S2[a1, a3, a5, SP[a2, a6], a4, n] - S2[a1, a3, a5, SP[a4, a6], a2, n] + 
    S2[a1, a3, a6, a2, SP[a4, a5], n] - S2[a1, a3, a6, a4, SP[a2, a5], n] - 
    S2[a1, a3, a6, a5, SP[a2, a4], n] - S2[a1, a3, a6, SP[a2, a4], a5, n] - 
    S2[a1, a3, SP[a4, a6], a2, a5, n] - S2[a1, a3, SP[a4, a6], a5, a2, n] - 
    S2[a1, a3, SP[a5, a6], a2, a4, n] - S2[a1, a3, SP[a5, a6], a4, a2, n] + 
    S2[a5, n]*S2[a1, a4, a2, a3, a6, n] + S2[a1, a4, a2, a3, SP[a5, a6], n] + 
    S2[a5, n]*S2[a1, a4, a2, a6, a3, n] + S2[a1, a4, a2, a6, SP[a3, a5], n] + 
    S2[a1, a4, a2, SP[a3, a5], a6, n] + S2[a1, a4, a2, SP[a5, a6], a3, n] + 
    S2[a5, n]*S2[a1, a4, a3, a2, a6, n] + S2[a1, a4, a3, a2, SP[a5, a6], n] - 
    S2[a2, n]*S2[a1, a4, a3, a5, a6, n] - S2[a1, a4, a3, a5, SP[a2, a6], n] - 
    S2[a2, n]*S2[a1, a4, a3, a6, a5, n] - S2[a1, a4, a3, a6, SP[a2, a5], n] - 
    S2[a1, a4, a3, SP[a2, a6], a5, n] - S2[a2, n]*S2[a1, a4, a5, a3, a6, n] - 
    S2[a1, a4, a5, a3, SP[a2, a6], n] + S2[a3, n]*S2[a1, a4, a5, a6, a2, n] - 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] - S2[a1, a4, a5, SP[a2, a3], a6, n] - 
    S2[a1, a4, a5, SP[a2, a6], a3, n] + S2[a1, a4, a5, SP[a3, a6], a2, n] + 
    S2[a3, n]*S2[a1, a4, a6, a2, a5, n] + S2[a1, a4, a6, a2, SP[a3, a5], n] - 
    S2[a2, n]*S2[a1, a4, a6, a3, a5, n] - S2[a1, a4, a6, a3, SP[a2, a5], n] + 
    S2[a3, n]*S2[a1, a4, a6, a5, a2, n] - 
    S2[a2, n]*S2[a1, a4, a6, a5, a3, n] - S2[a1, a4, a6, SP[a2, a5], a3, n] + 
    S2[a1, a4, a6, SP[a3, a5], a2, n] - S2[a1, a4, SP[a2, a3], a5, a6, n] - 
    S2[a1, a4, SP[a2, a3], a6, a5, n] - S2[a1, a4, SP[a2, a6], a3, a5, n] - 
    S2[a1, a4, SP[a2, a6], a5, a3, n] + S2[a1, a4, SP[a3, a5], a2, a6, n] + 
    S2[a1, a4, SP[a3, a5], a6, a2, n] + S2[a1, a4, SP[a3, a6], a2, a5, n] + 
    S2[a1, a4, SP[a3, a6], a5, a2, n] + S2[a3, n]*S2[a1, a5, a2, a4, a6, n] + 
    S2[a1, a5, a2, a4, SP[a3, a6], n] + S2[a3, n]*S2[a1, a5, a2, a6, a4, n] + 
    S2[a1, a5, a2, a6, SP[a3, a4], n] + S2[a1, a5, a2, SP[a3, a4], a6, n] + 
    S2[a1, a5, a2, SP[a3, a6], a4, n] - S2[a2, n]*S2[a1, a5, a3, a4, a6, n] - 
    S2[a1, a5, a3, a4, SP[a2, a6], n] - S2[a2, n]*S2[a1, a5, a3, a6, a4, n] - 
    S2[a1, a5, a3, a6, SP[a2, a4], n] - S2[a1, a5, a3, SP[a2, a4], a6, n] - 
    S2[a1, a5, a3, SP[a2, a6], a4, n] - S2[a2, n]*S2[a1, a5, a4, a3, a6, n] - 
    S2[a1, a5, a4, a3, SP[a2, a6], n] + S2[a3, n]*S2[a1, a5, a4, a6, a2, n] - 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] - S2[a1, a5, a4, SP[a2, a3], a6, n] - 
    S2[a1, a5, a4, SP[a2, a6], a3, n] + S2[a1, a5, a4, SP[a3, a6], a2, n] + 
    S2[a3, n]*S2[a1, a5, a6, a2, a4, n] + S2[a1, a5, a6, a2, SP[a3, a4], n] - 
    S2[a2, n]*S2[a1, a5, a6, a3, a4, n] - S2[a1, a5, a6, a3, SP[a2, a4], n] + 
    S2[a3, n]*S2[a1, a5, a6, a4, a2, n] - 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] - S2[a1, a5, a6, SP[a2, a4], a3, n] + 
    S2[a1, a5, a6, SP[a3, a4], a2, n] - S2[a1, a5, SP[a2, a4], a3, a6, n] - 
    S2[a1, a5, SP[a2, a4], a6, a3, n] - S2[a1, a5, SP[a2, a6], a3, a4, n] - 
    S2[a1, a5, SP[a2, a6], a4, a3, n] + S2[a1, a5, SP[a3, a4], a6, a2, n] + 
    S2[a1, a5, SP[a3, a6], a2, a4, n] + S2[a1, a5, SP[a3, a6], a4, a2, n] + 
    S2[a1, a6, a2, a3, SP[a4, a5], n] + S2[a1, a6, a2, SP[a3, a4], a5, n] + 
    S2[a1, a6, a3, a2, SP[a4, a5], n] - S2[a1, a6, a3, a4, SP[a2, a5], n] - 
    S2[a1, a6, a3, a5, SP[a2, a4], n] - S2[a1, a6, a3, SP[a2, a4], a5, n] + 
    S2[a3, n]*S2[a1, a6, a4, a2, a5, n] + S2[a1, a6, a4, a2, SP[a3, a5], n] - 
    S2[a2, n]*S2[a1, a6, a4, a3, a5, n] - S2[a1, a6, a4, a3, SP[a2, a5], n] + 
    S2[a3, n]*S2[a1, a6, a4, a5, a2, n] - 
    S2[a2, n]*S2[a1, a6, a4, a5, a3, n] - S2[a1, a6, a4, SP[a2, a5], a3, n] + 
    S2[a1, a6, a4, SP[a3, a5], a2, n] + S2[a3, n]*S2[a1, a6, a5, a2, a4, n] + 
    S2[a1, a6, a5, a2, SP[a3, a4], n] - S2[a2, n]*S2[a1, a6, a5, a3, a4, n] - 
    S2[a1, a6, a5, a3, SP[a2, a4], n] + S2[a3, n]*S2[a1, a6, a5, a4, a2, n] - 
    S2[a2, n]*S2[a1, a6, a5, a4, a3, n] - S2[a1, a6, a5, SP[a2, a4], a3, n] + 
    S2[a1, a6, a5, SP[a3, a4], a2, n] - S2[a1, a6, SP[a2, a4], a3, a5, n] - 
    S2[a1, a6, SP[a2, a4], a5, a3, n] - S2[a1, a6, SP[a2, a5], a3, a4, n] - 
    S2[a1, a6, SP[a2, a5], a4, a3, n] + S2[a1, a6, SP[a3, a4], a2, a5, n] + 
    S2[a1, a6, SP[a3, a4], a5, a2, n] + S2[a1, a6, SP[a3, a5], a2, a4, n] + 
    S2[a1, a6, SP[a3, a5], a4, a2, n] - S2[a1, SP[a2, a4], a3, a5, a6, n] - 
    S2[a1, SP[a2, a4], a3, a6, a5, n] - S2[a1, SP[a2, a4], a5, a3, a6, n] - 
    S2[a1, SP[a2, a4], a5, a6, a3, n] - S2[a1, SP[a2, a4], a6, a3, a5, n] - 
    S2[a1, SP[a2, a4], a6, a5, a3, n] - S2[a1, SP[a2, a5], a3, a4, a6, n] - 
    S2[a1, SP[a2, a5], a3, a6, a4, n] - S2[a1, SP[a2, a5], a4, a3, a6, n] - 
    S2[a1, SP[a2, a5], a4, a6, a3, n] - S2[a1, SP[a2, a5], a6, a3, a4, n] - 
    S2[a1, SP[a2, a5], a6, a4, a3, n] + S2[a1, SP[a3, a4], a5, a6, a2, n] + 
    S2[a1, SP[a3, a4], a6, a2, a5, n] + S2[a1, SP[a3, a4], a6, a5, a2, n] + 
    S2[a1, SP[a3, a5], a2, a4, a6, n] + S2[a1, SP[a3, a5], a2, a6, a4, n] + 
    S2[a1, SP[a3, a5], a4, a6, a2, n] + S2[a1, SP[a3, a5], a6, a2, a4, n] + 
    S2[a1, SP[a3, a5], a6, a4, a2, n] + S2[a1, SP[a4, a5], a2, a3, a6, n] + 
    S2[a1, SP[a4, a5], a2, a6, a3, n] + S2[a1, SP[a4, a5], a3, a2, a6, n] + 
    S2[a2, a1, a4, a3, SP[a5, a6], n] + S2[a2, a1, a4, a5, SP[a3, a6], n] + 
    S2[a2, a1, a4, SP[a3, a6], a5, n] + S2[a2, a1, a4, SP[a5, a6], a3, n] + 
    S2[a2, a1, a5, a3, SP[a4, a6], n] + S2[a2, a1, a5, a4, SP[a3, a6], n] + 
    S2[a2, a1, a5, SP[a3, a6], a4, n] + S2[a2, a1, a5, SP[a4, a6], a3, n] + 
    S2[a2, a1, SP[a4, a6], a3, a5, n] + S2[a2, a1, SP[a4, a6], a5, a3, n] + 
    S2[a2, a1, SP[a5, a6], a3, a4, n] + S2[a2, a1, SP[a5, a6], a4, a3, n] - 
    S2[a5, n]*S2[a2, a4, a1, a3, a6, n] + S2[a2, a4, a1, a5, SP[a3, a6], n] - 
    S2[a5, n]*S2[a2, a4, a1, a6, a3, n] - S2[a2, a4, a1, a6, SP[a3, a5], n] - 
    S2[a2, a4, a1, SP[a3, a5], a6, n] + S2[a2, a4, a1, SP[a3, a6], a5, n] - 
    S2[a5, n]*S2[a2, a4, a3, a1, a6, n] + S2[a2, a4, a5, a1, SP[a3, a6], n] + 
    S2[a2, a4, a5, SP[a1, a3], a6, n] + S2[a2, a4, SP[a1, a3], a5, a6, n] + 
    S2[a2, a4, SP[a1, a3], a6, a5, n] - S2[a2, a4, SP[a3, a5], a1, a6, n] + 
    S2[a2, a5, a1, a3, SP[a4, a6], n] - S2[a3, n]*S2[a2, a5, a1, a4, a6, n] - 
    S2[a3, n]*S2[a2, a5, a1, a6, a4, n] - S2[a2, a5, a1, a6, SP[a3, a4], n] - 
    S2[a2, a5, a1, SP[a3, a4], a6, n] + S2[a2, a5, a1, SP[a4, a6], a3, n] + 
    S2[a2, a5, a3, a1, SP[a4, a6], n] + S2[a2, a5, a3, SP[a1, a4], a6, n] + 
    S2[a2, a5, a4, a1, SP[a3, a6], n] + S2[a2, a5, a4, SP[a1, a3], a6, n] + 
    S2[a2, a5, SP[a1, a4], a3, a6, n] + S2[a2, a5, SP[a1, a4], a6, a3, n] + 
    S2[a2, SP[a1, a4], a3, a5, a6, n] + S2[a2, SP[a1, a4], a3, a6, a5, n] + 
    S2[a2, SP[a1, a4], a5, a3, a6, n] + S2[a2, SP[a1, a4], a5, a6, a3, n] + 
    S2[a2, SP[a1, a4], a6, a3, a5, n] + S2[a2, SP[a1, a4], a6, a5, a3, n] + 
    S2[a2, SP[a1, a5], a3, a4, a6, n] + S2[a2, SP[a1, a5], a3, a6, a4, n] + 
    S2[a2, SP[a1, a5], a4, a3, a6, n] + S2[a2, SP[a1, a5], a4, a6, a3, n] + 
    S2[a2, SP[a1, a5], a6, a3, a4, n] + S2[a2, SP[a1, a5], a6, a4, a3, n] - 
    S2[a2, SP[a3, a5], a1, a4, a6, n] - S2[a2, SP[a3, a5], a1, a6, a4, n] - 
    S2[a2, SP[a4, a5], a1, a3, a6, n] - S2[a2, SP[a4, a5], a1, a6, a3, n] - 
    S2[a2, SP[a4, a5], a3, a1, a6, n] - S2[a3, a1, a4, a6, SP[a2, a5], n] - 
    S2[a3, a1, a4, SP[a5, a6], a2, n] - S2[a3, a1, a5, a2, SP[a4, a6], n] - 
    S2[a3, a1, a5, a6, SP[a2, a4], n] - S2[a3, a1, a5, SP[a2, a6], a4, n] - 
    S2[a3, a1, a5, SP[a4, a6], a2, n] + S2[a3, a1, a6, a2, SP[a4, a5], n] - 
    S2[a3, a1, a6, a4, SP[a2, a5], n] - S2[a3, a1, a6, a5, SP[a2, a4], n] - 
    S2[a3, a1, a6, SP[a2, a4], a5, n] - S2[a3, a1, SP[a4, a6], a2, a5, n] - 
    S2[a3, a1, SP[a4, a6], a5, a2, n] - S2[a3, a1, SP[a5, a6], a2, a4, n] - 
    S2[a3, a1, SP[a5, a6], a4, a2, n] + S2[a5, n]*S2[a3, a4, a1, a6, a2, n] - 
    S2[a3, a5, a1, a2, SP[a4, a6], n] + S2[a2, n]*S2[a3, a5, a1, a4, a6, n] + 
    S2[a3, a5, a1, a4, SP[a2, a6], n] + S2[a2, n]*S2[a3, a5, a1, a6, a4, n] + 
    S2[a3, a5, a1, SP[a2, a4], a6, n] - S2[a3, a5, a1, SP[a4, a6], a2, n] - 
    S2[a3, a5, a2, a1, SP[a4, a6], n] - S2[a3, a5, a2, SP[a1, a4], a6, n] - 
    S2[a3, a5, SP[a1, a4], a6, a2, n] - S2[a3, SP[a1, a4], a5, a6, a2, n] - 
    S2[a3, SP[a1, a4], a6, a2, a5, n] - S2[a3, SP[a1, a4], a6, a5, a2, n] - 
    S2[a3, SP[a1, a5], a2, a4, a6, n] - S2[a3, SP[a1, a5], a2, a6, a4, n] - 
    S2[a3, SP[a1, a5], a4, a6, a2, n] - S2[a3, SP[a1, a5], a6, a2, a4, n] - 
    S2[a3, SP[a1, a5], a6, a4, a2, n] + S2[a3, SP[a2, a5], a1, a4, a6, n] + 
    S2[a3, SP[a2, a5], a1, a6, a4, n] + S2[a3, SP[a4, a5], a1, a6, a2, n] - 
    S2[a3, n]*S2[a5, a1, a4, a2, a6, n] - S2[a5, a1, a4, a2, SP[a3, a6], n] - 
    S2[a5, a1, a4, SP[a2, a3], a6, n] - S2[a5, a1, SP[a3, a4], a2, a6, n] + 
    S2[a3, n]*S2[a5, a2, a4, a1, a6, n] + S2[a5, a2, a4, a1, SP[a3, a6], n] + 
    S2[a5, a2, a4, SP[a1, a3], a6, n] + S2[a5, a2, SP[a3, a4], a1, a6, n] - 
    S2[a2, n]*S2[a5, a3, a4, a1, a6, n] - S2[a5, a3, a4, a1, SP[a2, a6], n] + 
    S2[a1, n]*S2[a5, a3, a4, a2, a6, n] + S2[a5, a3, a4, a2, SP[a1, a6], n] + 
    S2[a5, a3, SP[a1, a4], a2, a6, n] - S2[a5, a3, SP[a2, a4], a1, a6, n] - 
    S2[a1, n]*S2[a6, a2, a4, a3, a5, n] - S2[a6, a2, a4, a3, SP[a1, a5], n] - 
    S2[a6, a2, a4, SP[a1, a3], a5, n] - S2[a6, a2, SP[a1, a4], a3, a5, n] - 
    S2[a6, SP[a1, a2], a4, a3, a5, n] + S2[SP[a1, a5], a3, a4, a2, a6, n] + 
    S2[SP[a1, a5], a4, a2, a3, a6, n] + S2[SP[a1, a5], a4, a2, a6, a3, n] + 
    S2[SP[a1, a5], a4, a3, a2, a6, n] - S2[SP[a1, a6], a2, a4, a3, a5, n] - 
    S2[SP[a2, a5], a3, a4, a1, a6, n] - S2[SP[a2, a5], a4, a1, a3, a6, n] - 
    S2[SP[a2, a5], a4, a1, a6, a3, n] - S2[SP[a2, a5], a4, a3, a1, a6, n] - 
    S2[SP[a3, a5], a1, a4, a2, a6, n] + S2[SP[a3, a5], a2, a4, a1, a6, n] + 
    S2[SP[a3, a5], a4, a1, a6, a2, n] + S2[a6, a1, a2, a4, a3, a5, n] + 
    S2[a6, a2, a1, a4, a3, a5, n] + S2[a6, a2, a4, a1, a3, a5, n] + 
    S2[a6, a2, a4, a3, a1, a5, n] + S2[a6, a2, a4, a3, a5, a1, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a5_, a3_, a4_, a6_, a1_, a2_, n_] :> 
  S2[a1, a2, a6, n]*S2[a3, a4, a5, n] + S2[a1, a6, a2, n]*S2[a3, a4, a5, n] + 
    S2[a1, a2, a6, n]*S2[a3, a5, a4, n] + S2[a1, a6, a2, n]*
     S2[a3, a5, a4, n] + S2[SP[a1, a3], SP[a2, a4], SP[a5, a6], n] + 
    S2[SP[a1, a3], SP[a2, a5], SP[a4, a6], n] + S2[SP[a1, a3], SP[a4, a6], 
     SP[a2, a5], n] + S2[SP[a1, a3], SP[a5, a6], SP[a2, a4], n] - 
    S2[a3, a5, n]*S2[a1, a2, a6, a4, n] + S2[a1, a2, SP[a3, a6], SP[a4, a5], 
     n] - S2[a1, a3, SP[a2, a4], SP[a5, a6], n] - S2[a1, a3, SP[a2, a5], 
     SP[a4, a6], n] - S2[a1, a3, SP[a4, a6], SP[a2, a5], n] - 
    S2[a1, a3, SP[a5, a6], SP[a2, a4], n] - S2[a3, a5, n]*
     S2[a1, a6, a2, a4, n] - S2[a3, a5, n]*S2[a1, a6, a4, a2, n] + 
    S2[a1, a6, SP[a2, a3], SP[a4, a5], n] + S2[a1, a6, SP[a3, a4], 
     SP[a2, a5], n] - S2[a1, SP[a2, a3], a4, SP[a5, a6], n] - 
    S2[a1, SP[a2, a3], a5, SP[a4, a6], n] + S2[a1, SP[a2, a3], a6, 
     SP[a4, a5], n] - S2[a1, SP[a2, a3], SP[a4, a6], a5, n] + 
    S2[a1, SP[a3, a6], a2, SP[a4, a5], n] - S2[a1, SP[a3, a6], a5, 
     SP[a2, a4], n] - S2[a1, SP[a3, a6], SP[a2, a4], a5, n] + 
    S2[a1, SP[a3, a6], SP[a4, a5], a2, n] - S2[a3, a1, SP[a2, a4], 
     SP[a5, a6], n] - S2[a3, a1, SP[a2, a5], SP[a4, a6], n] - 
    S2[a3, a1, SP[a4, a6], SP[a2, a5], n] - S2[a3, a1, SP[a5, a6], 
     SP[a2, a4], n] + S2[a1, a2, n]*S2[a3, a5, a6, a4, n] - 
    S2[a3, a5, SP[a1, a6], SP[a2, a4], n] + S2[a1, a2, n]*
     S2[a3, a6, a4, a5, n] + S2[a1, a2, n]*S2[a3, a6, a5, a4, n] - 
    S2[a3, a6, SP[a1, a4], SP[a2, a5], n] - S2[a3, a6, SP[a1, a5], 
     SP[a2, a4], n] - S2[a3, SP[a1, a4], a2, SP[a5, a6], n] - 
    S2[a3, SP[a1, a4], a6, SP[a2, a5], n] - S2[a3, SP[a1, a4], SP[a2, a5], 
     a6, n] - S2[a3, SP[a1, a4], SP[a5, a6], a2, n] - 
    S2[a3, SP[a1, a5], a2, SP[a4, a6], n] - 
    2*S2[a3, SP[a1, a5], a6, SP[a2, a4], n] - S2[a3, SP[a1, a5], SP[a2, a4], 
     a6, n] - S2[a3, SP[a1, a5], SP[a2, a6], a4, n] - 
    S2[a3, SP[a1, a5], SP[a4, a6], a2, n] - S2[a3, SP[a1, a6], a4, 
     SP[a2, a5], n] - S2[a3, SP[a1, a6], a5, SP[a2, a4], n] - 
    S2[a3, SP[a1, a6], SP[a2, a4], a5, n] - S2[a3, SP[a1, a6], SP[a2, a5], 
     a4, n] - S2[a1, a2, n]*S2[a4, a6, a3, a5, n] + 
    S2[a4, a6, SP[a1, a3], SP[a2, a5], n] + S2[a4, SP[a1, a6], a3, 
     SP[a2, a5], n] + S2[a4, SP[a1, a6], SP[a2, a3], a5, n] - 
    S2[SP[a1, a3], a2, a4, SP[a5, a6], n] - S2[SP[a1, a3], a2, a5, 
     SP[a4, a6], n] + S2[SP[a1, a3], a2, a6, SP[a4, a5], n] - 
    S2[SP[a1, a3], a2, SP[a4, a6], a5, n] - S2[SP[a1, a3], a4, a2, 
     SP[a5, a6], n] - S2[SP[a1, a3], a4, a6, SP[a2, a5], n] - 
    S2[SP[a1, a3], a4, SP[a2, a5], a6, n] - S2[SP[a1, a3], a4, SP[a5, a6], 
     a2, n] - S2[SP[a1, a3], a5, a2, SP[a4, a6], n] - 
    2*S2[SP[a1, a3], a5, a6, SP[a2, a4], n] - S2[SP[a1, a3], a5, SP[a2, a4], 
     a6, n] - S2[SP[a1, a3], a5, SP[a2, a6], a4, n] - 
    S2[SP[a1, a3], a5, SP[a4, a6], a2, n] + S2[SP[a1, a3], a6, a2, 
     SP[a4, a5], n] - S2[SP[a1, a3], a6, a4, SP[a2, a5], n] - 
    2*S2[SP[a1, a3], a6, a5, SP[a2, a4], n] - 
    2*S2[SP[a1, a3], a6, SP[a2, a4], a5, n] - S2[SP[a1, a3], a6, SP[a2, a5], 
     a4, n] + S2[SP[a1, a3], a6, SP[a4, a5], a2, n] - 
    S2[SP[a1, a3], SP[a2, a4], a5, a6, n] - S2[SP[a1, a3], SP[a2, a4], a6, 
     a5, n] - S2[SP[a1, a3], SP[a2, a5], a4, a6, n] - 
    S2[SP[a1, a3], SP[a2, a5], a6, a4, n] - S2[SP[a1, a3], SP[a2, a6], a4, 
     a5, n] - S2[SP[a1, a3], SP[a2, a6], a5, a4, n] - 
    S2[SP[a1, a3], SP[a4, a6], a2, a5, n] - S2[SP[a1, a3], SP[a4, a6], a5, 
     a2, n] + S2[SP[a1, a4], a6, a3, SP[a2, a5], n] + 
    S2[SP[a1, a4], a6, SP[a2, a3], a5, n] + S2[SP[a1, a4], SP[a2, a6], a3, 
     a5, n] + S2[a1, a2, a3, a4, SP[a5, a6], n] + 
    S2[a1, a2, a3, a5, SP[a4, a6], n] - S2[a1, a2, a3, a6, SP[a4, a5], n] + 
    S2[a1, a2, a3, SP[a4, a6], a5, n] + S2[a6, n]*S2[a1, a2, a4, a3, a5, n] + 
    S2[a1, a2, a4, a3, SP[a5, a6], n] + S2[a6, n]*S2[a1, a2, a4, a5, a3, n] - 
    S2[a3, n]*S2[a1, a2, a4, a5, a6, n] - 
    S2[a3, n]*S2[a1, a2, a4, a6, a5, n] - S2[a1, a2, a4, a6, SP[a3, a5], n] - 
    S2[a1, a2, a4, SP[a3, a5], a6, n] + S2[a1, a2, a4, SP[a5, a6], a3, n] + 
    S2[a6, n]*S2[a1, a2, a5, a3, a4, n] + S2[a1, a2, a5, a3, SP[a4, a6], n] + 
    S2[a6, n]*S2[a1, a2, a5, a4, a3, n] - 
    S2[a3, n]*S2[a1, a2, a5, a4, a6, n] - 
    S2[a3, n]*S2[a1, a2, a5, a6, a4, n] - S2[a1, a2, a5, a6, SP[a3, a4], n] - 
    S2[a1, a2, a5, SP[a3, a4], a6, n] + S2[a1, a2, a5, SP[a4, a6], a3, n] + 
    S2[a4, n]*S2[a1, a2, a6, a3, a5, n] - 
    S2[a3, n]*S2[a1, a2, a6, a4, a5, n] - S2[a1, a2, a6, a4, SP[a3, a5], n] - 
    S2[a3, n]*S2[a1, a2, a6, a5, a4, n] - S2[a1, a2, a6, a5, SP[a3, a4], n] - 
    S2[a1, a2, a6, SP[a3, a4], a5, n] - S2[a1, a2, a6, SP[a3, a5], a4, n] - 
    S2[a1, a2, SP[a3, a4], a5, a6, n] - S2[a1, a2, SP[a3, a4], a6, a5, n] - 
    S2[a1, a2, SP[a3, a5], a4, a6, n] - S2[a1, a2, SP[a3, a5], a6, a4, n] - 
    S2[a1, a2, SP[a3, a6], a4, a5, n] - S2[a1, a2, SP[a3, a6], a5, a4, n] + 
    2*S2[a1, a2, SP[a4, a6], a3, a5, n] + S2[a1, a2, SP[a4, a6], a5, a3, n] + 
    S2[a1, a2, SP[a5, a6], a3, a4, n] + S2[a1, a2, SP[a5, a6], a4, a3, n] + 
    S2[a1, a3, a2, a4, SP[a5, a6], n] + S2[a1, a3, a2, a5, SP[a4, a6], n] - 
    S2[a1, a3, a2, a6, SP[a4, a5], n] + S2[a1, a3, a2, SP[a4, a6], a5, n] + 
    S2[a1, a3, a4, a2, SP[a5, a6], n] + S2[a1, a3, a4, a6, SP[a2, a5], n] + 
    S2[a1, a3, a4, SP[a2, a5], a6, n] + S2[a1, a3, a4, SP[a5, a6], a2, n] + 
    S2[a1, a3, a5, a2, SP[a4, a6], n] + 2*S2[a1, a3, a5, a6, SP[a2, a4], n] + 
    S2[a1, a3, a5, SP[a2, a4], a6, n] + S2[a1, a3, a5, SP[a2, a6], a4, n] + 
    S2[a1, a3, a5, SP[a4, a6], a2, n] - S2[a1, a3, a6, a2, SP[a4, a5], n] + 
    S2[a1, a3, a6, a4, SP[a2, a5], n] + 2*S2[a1, a3, a6, a5, SP[a2, a4], n] + 
    2*S2[a1, a3, a6, SP[a2, a4], a5, n] + S2[a1, a3, a6, SP[a2, a5], a4, n] - 
    S2[a1, a3, a6, SP[a4, a5], a2, n] + S2[a1, a3, SP[a2, a4], a5, a6, n] + 
    S2[a1, a3, SP[a2, a4], a6, a5, n] + S2[a1, a3, SP[a2, a5], a4, a6, n] + 
    S2[a1, a3, SP[a2, a5], a6, a4, n] + S2[a1, a3, SP[a2, a6], a4, a5, n] + 
    S2[a1, a3, SP[a2, a6], a5, a4, n] + S2[a1, a3, SP[a4, a6], a2, a5, n] + 
    S2[a1, a3, SP[a4, a6], a5, a2, n] + S2[a6, n]*S2[a1, a4, a2, a3, a5, n] + 
    S2[a1, a4, a2, a3, SP[a5, a6], n] + S2[a6, n]*S2[a1, a4, a2, a5, a3, n] - 
    S2[a3, n]*S2[a1, a4, a2, a5, a6, n] - 
    S2[a3, n]*S2[a1, a4, a2, a6, a5, n] - S2[a1, a4, a2, a6, SP[a3, a5], n] - 
    S2[a1, a4, a2, SP[a3, a5], a6, n] + S2[a1, a4, a2, SP[a5, a6], a3, n] + 
    S2[a6, n]*S2[a1, a4, a3, a2, a5, n] + S2[a1, a4, a3, a2, SP[a5, a6], n] + 
    S2[a6, n]*S2[a1, a4, a3, a5, a2, n] + S2[a1, a4, a3, a5, SP[a2, a6], n] + 
    S2[a1, a4, a3, SP[a2, a6], a5, n] + S2[a1, a4, a3, SP[a5, a6], a2, n] + 
    S2[a6, n]*S2[a1, a4, a5, a2, a3, n] - 
    S2[a3, n]*S2[a1, a4, a5, a2, a6, n] + 
    S2[a6, n]*S2[a1, a4, a5, a3, a2, n] + S2[a1, a4, a5, a3, SP[a2, a6], n] - 
    S2[a3, n]*S2[a1, a4, a5, a6, a2, n] - S2[a1, a4, a5, a6, SP[a2, a3], n] - 
    S2[a1, a4, a5, SP[a2, a3], a6, n] + S2[a1, a4, a5, SP[a2, a6], a3, n] - 
    S2[a3, n]*S2[a1, a4, a6, a2, a5, n] - S2[a1, a4, a6, a2, SP[a3, a5], n] - 
    S2[a1, a4, a6, a3, SP[a2, a5], n] - S2[a3, n]*S2[a1, a4, a6, a5, a2, n] - 
    S2[a1, a4, a6, a5, SP[a2, a3], n] - 2*S2[a1, a4, a6, SP[a2, a3], a5, n] - 
    S2[a1, a4, a6, SP[a3, a5], a2, n] - S2[a1, a4, SP[a2, a3], a5, a6, n] - 
    S2[a1, a4, SP[a2, a3], a6, a5, n] + S2[a1, a4, SP[a2, a6], a5, a3, n] - 
    S2[a1, a4, SP[a3, a5], a2, a6, n] - S2[a1, a4, SP[a3, a5], a6, a2, n] + 
    S2[a1, a4, SP[a5, a6], a2, a3, n] + S2[a1, a4, SP[a5, a6], a3, a2, n] + 
    S2[a6, n]*S2[a1, a5, a2, a3, a4, n] + S2[a1, a5, a2, a3, SP[a4, a6], n] + 
    S2[a6, n]*S2[a1, a5, a2, a4, a3, n] - 
    S2[a3, n]*S2[a1, a5, a2, a4, a6, n] - 
    S2[a3, n]*S2[a1, a5, a2, a6, a4, n] - S2[a1, a5, a2, a6, SP[a3, a4], n] - 
    S2[a1, a5, a2, SP[a3, a4], a6, n] + S2[a1, a5, a2, SP[a4, a6], a3, n] + 
    S2[a6, n]*S2[a1, a5, a3, a2, a4, n] + S2[a1, a5, a3, a2, SP[a4, a6], n] + 
    S2[a6, n]*S2[a1, a5, a3, a4, a2, n] + S2[a1, a5, a3, a4, SP[a2, a6], n] + 
    S2[a1, a5, a3, SP[a2, a6], a4, n] + S2[a1, a5, a3, SP[a4, a6], a2, n] + 
    S2[a6, n]*S2[a1, a5, a4, a2, a3, n] - 
    S2[a3, n]*S2[a1, a5, a4, a2, a6, n] + 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] + S2[a1, a5, a4, a3, SP[a2, a6], n] - 
    S2[a3, n]*S2[a1, a5, a4, a6, a2, n] - S2[a1, a5, a4, a6, SP[a2, a3], n] - 
    S2[a1, a5, a4, SP[a2, a3], a6, n] + S2[a1, a5, a4, SP[a2, a6], a3, n] - 
    S2[a3, n]*S2[a1, a5, a6, a2, a4, n] - S2[a1, a5, a6, a2, SP[a3, a4], n] - 
    S2[a3, n]*S2[a1, a5, a6, a4, a2, n] - S2[a1, a5, a6, a4, SP[a2, a3], n] - 
    S2[a1, a5, a6, SP[a2, a3], a4, n] - S2[a1, a5, a6, SP[a3, a4], a2, n] - 
    S2[a1, a5, SP[a2, a3], a4, a6, n] - S2[a1, a5, SP[a2, a3], a6, a4, n] + 
    S2[a1, a5, SP[a2, a6], a3, a4, n] + S2[a1, a5, SP[a2, a6], a4, a3, n] - 
    S2[a1, a5, SP[a3, a4], a2, a6, n] - S2[a1, a5, SP[a3, a4], a6, a2, n] + 
    S2[a1, a5, SP[a4, a6], a2, a3, n] + S2[a1, a5, SP[a4, a6], a3, a2, n] + 
    S2[a4, n]*S2[a1, a6, a2, a3, a5, n] - 
    S2[a3, n]*S2[a1, a6, a2, a4, a5, n] - S2[a1, a6, a2, a4, SP[a3, a5], n] - 
    S2[a3, n]*S2[a1, a6, a2, a5, a4, n] - S2[a1, a6, a2, a5, SP[a3, a4], n] - 
    S2[a1, a6, a2, SP[a3, a4], a5, n] - S2[a1, a6, a2, SP[a3, a5], a4, n] + 
    S2[a4, n]*S2[a1, a6, a3, a2, a5, n] + 
    S2[a4, n]*S2[a1, a6, a3, a5, a2, n] + 
    2*S2[a1, a6, a3, a5, SP[a2, a4], n] + 
    2*S2[a1, a6, a3, SP[a2, a4], a5, n] - 
    S2[a3, n]*S2[a1, a6, a4, a2, a5, n] - S2[a1, a6, a4, a2, SP[a3, a5], n] - 
    S2[a1, a6, a4, a3, SP[a2, a5], n] - S2[a3, n]*S2[a1, a6, a4, a5, a2, n] - 
    S2[a1, a6, a4, a5, SP[a2, a3], n] - 2*S2[a1, a6, a4, SP[a2, a3], a5, n] - 
    S2[a1, a6, a4, SP[a3, a5], a2, n] - S2[a3, n]*S2[a1, a6, a5, a2, a4, n] - 
    S2[a1, a6, a5, a2, SP[a3, a4], n] - S2[a3, n]*S2[a1, a6, a5, a4, a2, n] - 
    S2[a1, a6, a5, a4, SP[a2, a3], n] - S2[a1, a6, a5, SP[a2, a3], a4, n] - 
    S2[a1, a6, a5, SP[a3, a4], a2, n] - S2[a1, a6, SP[a2, a3], a4, a5, n] - 
    S2[a1, a6, SP[a2, a3], a5, a4, n] + S2[a1, a6, SP[a2, a4], a3, a5, n] - 
    S2[a1, a6, SP[a3, a4], a2, a5, n] - S2[a1, a6, SP[a3, a4], a5, a2, n] - 
    S2[a1, a6, SP[a3, a5], a2, a4, n] - S2[a1, a6, SP[a3, a5], a4, a2, n] + 
    S2[a1, SP[a2, a6], a4, a3, a5, n] + S2[a1, SP[a2, a6], a4, a5, a3, n] + 
    S2[a1, SP[a2, a6], a5, a3, a4, n] + S2[a1, SP[a2, a6], a5, a4, a3, n] - 
    S2[a1, SP[a3, a4], a2, a5, a6, n] - S2[a1, SP[a3, a4], a2, a6, a5, n] - 
    S2[a1, SP[a3, a4], a5, a2, a6, n] - S2[a1, SP[a3, a4], a5, a6, a2, n] - 
    S2[a1, SP[a3, a4], a6, a2, a5, n] - S2[a1, SP[a3, a4], a6, a5, a2, n] - 
    S2[a1, SP[a3, a5], a2, a4, a6, n] - S2[a1, SP[a3, a5], a2, a6, a4, n] - 
    S2[a1, SP[a3, a5], a4, a2, a6, n] - S2[a1, SP[a3, a5], a4, a6, a2, n] - 
    S2[a1, SP[a3, a5], a6, a2, a4, n] - S2[a1, SP[a3, a5], a6, a4, a2, n] - 
    S2[a1, SP[a3, a6], a2, a4, a5, n] - S2[a1, SP[a3, a6], a2, a5, a4, n] - 
    S2[a1, SP[a3, a6], a4, a2, a5, n] - S2[a1, SP[a3, a6], a4, a5, a2, n] - 
    S2[a1, SP[a3, a6], a5, a2, a4, n] - S2[a1, SP[a3, a6], a5, a4, a2, n] + 
    2*S2[a1, SP[a4, a6], a2, a3, a5, n] + S2[a1, SP[a4, a6], a2, a5, a3, n] + 
    2*S2[a1, SP[a4, a6], a3, a2, a5, n] + 
    2*S2[a1, SP[a4, a6], a3, a5, a2, n] + S2[a1, SP[a4, a6], a5, a2, a3, n] + 
    S2[a1, SP[a4, a6], a5, a3, a2, n] + S2[a1, SP[a5, a6], a2, a3, a4, n] + 
    S2[a1, SP[a5, a6], a2, a4, a3, n] + S2[a1, SP[a5, a6], a3, a2, a4, n] + 
    S2[a1, SP[a5, a6], a3, a4, a2, n] + S2[a1, SP[a5, a6], a4, a2, a3, n] + 
    S2[a1, SP[a5, a6], a4, a3, a2, n] + S2[a3, a1, a2, a4, SP[a5, a6], n] + 
    S2[a3, a1, a2, a5, SP[a4, a6], n] - S2[a3, a1, a2, a6, SP[a4, a5], n] + 
    S2[a3, a1, a2, SP[a4, a6], a5, n] + S2[a3, a1, a4, a2, SP[a5, a6], n] + 
    S2[a3, a1, a4, a6, SP[a2, a5], n] + S2[a3, a1, a4, SP[a2, a5], a6, n] + 
    S2[a3, a1, a4, SP[a5, a6], a2, n] + S2[a3, a1, a5, a2, SP[a4, a6], n] + 
    2*S2[a3, a1, a5, a6, SP[a2, a4], n] + S2[a3, a1, a5, SP[a2, a4], a6, n] + 
    S2[a3, a1, a5, SP[a2, a6], a4, n] + S2[a3, a1, a5, SP[a4, a6], a2, n] - 
    S2[a3, a1, a6, a2, SP[a4, a5], n] + S2[a3, a1, a6, a4, SP[a2, a5], n] + 
    2*S2[a3, a1, a6, a5, SP[a2, a4], n] + 
    2*S2[a3, a1, a6, SP[a2, a4], a5, n] + S2[a3, a1, a6, SP[a2, a5], a4, n] - 
    S2[a3, a1, a6, SP[a4, a5], a2, n] + S2[a3, a1, SP[a2, a4], a5, a6, n] + 
    S2[a3, a1, SP[a2, a4], a6, a5, n] + S2[a3, a1, SP[a2, a5], a4, a6, n] + 
    S2[a3, a1, SP[a2, a5], a6, a4, n] + S2[a3, a1, SP[a2, a6], a4, a5, n] + 
    S2[a3, a1, SP[a2, a6], a5, a4, n] + S2[a3, a1, SP[a4, a6], a2, a5, n] + 
    S2[a3, a1, SP[a4, a6], a5, a2, n] - S2[a6, n]*S2[a3, a4, a1, a2, a5, n] - 
    S2[a6, n]*S2[a3, a4, a1, a5, a2, n] - S2[a3, a4, a1, a5, SP[a2, a6], n] + 
    S2[a3, a4, a1, a6, SP[a2, a5], n] + S2[a3, a4, a1, SP[a2, a5], a6, n] - 
    S2[a3, a4, a1, SP[a2, a6], a5, n] - S2[a6, n]*S2[a3, a4, a5, a1, a2, n] - 
    S2[a3, a4, a5, a1, SP[a2, a6], n] - S2[a3, a4, a5, SP[a1, a6], a2, n] + 
    S2[a5, n]*S2[a3, a4, a6, a1, a2, n] + S2[a3, a4, a6, a1, SP[a2, a5], n] + 
    S2[a3, a4, a6, SP[a1, a5], a2, n] + S2[a3, a4, SP[a1, a5], a2, a6, n] + 
    S2[a3, a4, SP[a1, a5], a6, a2, n] - S2[a3, a4, SP[a1, a6], a2, a5, n] - 
    S2[a3, a4, SP[a1, a6], a5, a2, n] - S2[a6, n]*S2[a3, a5, a1, a2, a4, n] - 
    S2[a6, n]*S2[a3, a5, a1, a4, a2, n] - S2[a3, a5, a1, a4, SP[a2, a6], n] + 
    2*S2[a3, a5, a1, a6, SP[a2, a4], n] + S2[a3, a5, a1, SP[a2, a4], a6, n] - 
    S2[a6, n]*S2[a3, a5, a4, a1, a2, n] - S2[a3, a5, a4, a1, SP[a2, a6], n] - 
    S2[a3, a5, a4, SP[a1, a6], a2, n] + S2[a3, a5, a6, a1, SP[a2, a4], n] + 
    S2[a3, a5, a6, SP[a1, a4], a2, n] + S2[a3, a5, SP[a1, a4], a2, a6, n] + 
    S2[a3, a5, SP[a1, a4], a6, a2, n] - S2[a3, a5, SP[a4, a6], a1, a2, n] - 
    S2[a4, n]*S2[a3, a6, a1, a2, a5, n] - S2[a3, a6, a1, a2, SP[a4, a5], n] + 
    S2[a3, a6, a1, a4, SP[a2, a5], n] - S2[a4, n]*S2[a3, a6, a1, a5, a2, n] + 
    S2[a3, a6, a1, SP[a2, a5], a4, n] - S2[a3, a6, a1, SP[a4, a5], a2, n] + 
    S2[a3, a6, a4, a1, SP[a2, a5], n] + S2[a3, a6, a4, SP[a1, a5], a2, n] + 
    S2[a3, a6, a5, a1, SP[a2, a4], n] + S2[a3, a6, a5, SP[a1, a4], a2, n] + 
    S2[a3, a6, SP[a1, a5], a2, a4, n] + S2[a3, a6, SP[a1, a5], a4, a2, n] + 
    S2[a3, SP[a1, a4], a2, a5, a6, n] + S2[a3, SP[a1, a4], a2, a6, a5, n] + 
    S2[a3, SP[a1, a4], a5, a2, a6, n] + S2[a3, SP[a1, a4], a5, a6, a2, n] + 
    S2[a3, SP[a1, a4], a6, a2, a5, n] + S2[a3, SP[a1, a4], a6, a5, a2, n] + 
    S2[a3, SP[a1, a5], a2, a4, a6, n] + S2[a3, SP[a1, a5], a2, a6, a4, n] + 
    S2[a3, SP[a1, a5], a4, a2, a6, n] + S2[a3, SP[a1, a5], a4, a6, a2, n] + 
    S2[a3, SP[a1, a5], a6, a2, a4, n] + S2[a3, SP[a1, a5], a6, a4, a2, n] + 
    S2[a3, SP[a1, a6], a2, a4, a5, n] + S2[a3, SP[a1, a6], a2, a5, a4, n] + 
    S2[a3, SP[a1, a6], a4, a2, a5, n] + S2[a3, SP[a1, a6], a4, a5, a2, n] + 
    S2[a3, SP[a1, a6], a5, a2, a4, n] + S2[a3, SP[a1, a6], a5, a4, a2, n] + 
    S2[a3, SP[a4, a5], a6, a1, a2, n] - 2*S2[a3, SP[a4, a6], a1, a2, a5, n] - 
    2*S2[a3, SP[a4, a6], a1, a5, a2, n] - S2[a3, SP[a4, a6], a5, a1, a2, n] - 
    S2[a3, SP[a5, a6], a1, a2, a4, n] - S2[a3, SP[a5, a6], a1, a4, a2, n] - 
    S2[a3, SP[a5, a6], a4, a1, a2, n] - S2[a4, a1, a6, a3, SP[a2, a5], n] - 
    S2[a4, a1, a6, SP[a2, a3], a5, n] - S2[a4, a1, SP[a2, a6], a3, a5, n] + 
    S2[a3, n]*S2[a4, a6, a1, a2, a5, n] + S2[a4, a6, a1, a2, SP[a3, a5], n] - 
    S2[a4, a6, a1, a3, SP[a2, a5], n] + S2[a3, n]*S2[a4, a6, a1, a5, a2, n] + 
    S2[a4, a6, a1, a5, SP[a2, a3], n] + S2[a4, a6, a1, SP[a3, a5], a2, n] - 
    S2[a4, a6, a3, a1, SP[a2, a5], n] - S2[a4, a6, a3, SP[a1, a5], a2, n] - 
    S2[a4, SP[a1, a6], a2, a3, a5, n] - S2[a4, SP[a1, a6], a3, a2, a5, n] - 
    S2[a4, SP[a1, a6], a3, a5, a2, n] + S2[a4, SP[a3, a6], a1, a2, a5, n] + 
    S2[a4, SP[a3, a6], a1, a5, a2, n] - S2[a4, n]*S2[a6, a1, a2, a5, a3, n] - 
    S2[a6, a1, a2, a5, SP[a3, a4], n] - S2[a6, a1, a2, SP[a4, a5], a3, n] - 
    S2[a4, n]*S2[a6, a1, a5, a2, a3, n] - S2[a6, a1, a5, a2, SP[a3, a4], n] - 
    S2[a4, n]*S2[a6, a1, a5, a3, a2, n] - S2[a6, a1, a5, a3, SP[a2, a4], n] - 
    S2[a6, a1, a5, SP[a2, a4], a3, n] - S2[a6, a1, a5, SP[a3, a4], a2, n] - 
    S2[a6, a1, SP[a2, a4], a5, a3, n] - S2[a6, a1, SP[a4, a5], a2, a3, n] - 
    S2[a6, a1, SP[a4, a5], a3, a2, n] + S2[a4, n]*S2[a6, a3, a5, a1, a2, n] + 
    S2[a6, a3, a5, a1, SP[a2, a4], n] + S2[a6, a3, a5, SP[a1, a4], a2, n] + 
    S2[a6, a3, SP[a4, a5], a1, a2, n] + S2[a3, n]*S2[a6, a4, a1, a2, a5, n] + 
    S2[a6, a4, a1, a2, SP[a3, a5], n] + S2[a3, n]*S2[a6, a4, a1, a5, a2, n] + 
    S2[a6, a4, a1, a5, SP[a2, a3], n] + S2[a6, a4, a1, SP[a2, a3], a5, n] + 
    S2[a6, a4, a1, SP[a3, a5], a2, n] + S2[a6, a4, SP[a1, a3], a2, a5, n] + 
    S2[a6, a4, SP[a1, a3], a5, a2, n] - S2[a6, SP[a1, a4], a2, a5, a3, n] - 
    S2[a6, SP[a1, a4], a5, a2, a3, n] - S2[a6, SP[a1, a4], a5, a3, a2, n] + 
    S2[a6, SP[a3, a4], a1, a2, a5, n] + S2[a6, SP[a3, a4], a1, a5, a2, n] + 
    S2[a6, SP[a3, a4], a5, a1, a2, n] + S2[SP[a1, a6], a2, a4, a3, a5, n] + 
    S2[SP[a1, a6], a2, a4, a5, a3, n] + S2[SP[a1, a6], a2, a5, a3, a4, n] + 
    S2[SP[a1, a6], a2, a5, a4, a3, n] + S2[SP[a1, a6], a4, a2, a3, a5, n] + 
    S2[SP[a1, a6], a4, a2, a5, a3, n] + S2[SP[a1, a6], a4, a3, a2, a5, n] + 
    S2[SP[a1, a6], a4, a3, a5, a2, n] + S2[SP[a1, a6], a4, a5, a2, a3, n] + 
    S2[SP[a1, a6], a4, a5, a3, a2, n] + S2[SP[a1, a6], a5, a2, a3, a4, n] + 
    S2[SP[a1, a6], a5, a2, a4, a3, n] + S2[SP[a1, a6], a5, a3, a2, a4, n] + 
    S2[SP[a1, a6], a5, a3, a4, a2, n] + S2[SP[a1, a6], a5, a4, a2, a3, n] + 
    S2[SP[a1, a6], a5, a4, a3, a2, n] + S2[SP[a3, a5], a4, a6, a1, a2, n] - 
    S2[SP[a3, a6], a4, a5, a1, a2, n] - S2[SP[a3, a6], a5, a1, a2, a4, n] - 
    S2[SP[a3, a6], a5, a1, a4, a2, n] - S2[SP[a3, a6], a5, a4, a1, a2, n] - 
    S2[SP[a4, a6], a1, a2, a5, a3, n] - S2[SP[a4, a6], a1, a5, a2, a3, n] - 
    S2[SP[a4, a6], a1, a5, a3, a2, n] + S2[SP[a4, a6], a3, a5, a1, a2, n] - 
    S2[a6, a1, a2, a4, a3, a5, n] - S2[a6, a1, a4, a2, a3, a5, n] - 
    S2[a6, a1, a4, a3, a2, a5, n] - S2[a6, a1, a4, a3, a5, a2, n] - 
    S2[a6, a4, a1, a2, a3, a5, n] - S2[a6, a4, a1, a3, a2, a5, n] - 
    S2[a6, a4, a1, a3, a5, a2, n] - S2[a6, a4, a3, a1, a2, a5, n] - 
    S2[a6, a4, a3, a1, a5, a2, n] - S2[a6, a4, a3, a5, a1, a2, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a5_, a3_, a4_, a6_, a2_, a1_, n_] :> 
  -(S2[a1, a2, a6, n]*S2[a3, a4, a5, n]) - S2[a1, a2, a6, n]*
     S2[a3, a5, a4, n] - S2[SP[a1, a3], SP[a2, a4], SP[a5, a6], n] - 
    S2[SP[a1, a3], SP[a2, a5], SP[a4, a6], n] + 
    S2[a3, a5, n]*S2[a1, a2, a6, a4, n] - S2[a1, a2, SP[a3, a6], SP[a4, a5], 
     n] + S2[a1, a3, SP[a2, a4], SP[a5, a6], n] + S2[a1, a3, SP[a2, a5], 
     SP[a4, a6], n] + S2[a1, SP[a2, a3], a4, SP[a5, a6], n] + 
    S2[a1, SP[a2, a3], a5, SP[a4, a6], n] - S2[a1, SP[a2, a3], a6, 
     SP[a4, a5], n] + S2[a1, SP[a2, a3], SP[a4, a6], a5, n] + 
    S2[a3, a1, SP[a2, a4], SP[a5, a6], n] + S2[a3, a1, SP[a2, a5], 
     SP[a4, a6], n] - S2[a1, a2, n]*S2[a3, a5, a6, a4, n] + 
    S2[a3, a5, SP[a1, a6], SP[a2, a4], n] - S2[a1, a2, n]*
     S2[a3, a6, a4, a5, n] - S2[a1, a2, n]*S2[a3, a6, a5, a4, n] + 
    S2[a3, a6, SP[a1, a4], SP[a2, a5], n] + S2[a3, a6, SP[a1, a5], 
     SP[a2, a4], n] + S2[a3, SP[a1, a4], a2, SP[a5, a6], n] + 
    S2[a3, SP[a1, a4], SP[a2, a5], a6, n] + S2[a3, SP[a1, a5], a2, 
     SP[a4, a6], n] + S2[a3, SP[a1, a5], a6, SP[a2, a4], n] + 
    S2[a3, SP[a1, a5], SP[a2, a4], a6, n] + S2[a3, SP[a1, a5], SP[a2, a6], 
     a4, n] + S2[a3, SP[a1, a6], a4, SP[a2, a5], n] + 
    S2[a3, SP[a1, a6], a5, SP[a2, a4], n] + S2[a3, SP[a1, a6], SP[a2, a4], 
     a5, n] + S2[a3, SP[a1, a6], SP[a2, a5], a4, n] + 
    S2[a1, a2, n]*S2[a4, a6, a3, a5, n] - S2[a4, a6, SP[a1, a3], SP[a2, a5], 
     n] - S2[a4, SP[a1, a6], a3, SP[a2, a5], n] - 
    S2[a4, SP[a1, a6], SP[a2, a3], a5, n] + S2[SP[a1, a3], a2, a4, 
     SP[a5, a6], n] + S2[SP[a1, a3], a2, a5, SP[a4, a6], n] - 
    S2[SP[a1, a3], a2, a6, SP[a4, a5], n] + S2[SP[a1, a3], a2, SP[a4, a6], 
     a5, n] + S2[SP[a1, a3], a4, a2, SP[a5, a6], n] + 
    S2[SP[a1, a3], a4, SP[a2, a5], a6, n] + S2[SP[a1, a3], a5, a2, 
     SP[a4, a6], n] + S2[SP[a1, a3], a5, a6, SP[a2, a4], n] + 
    S2[SP[a1, a3], a5, SP[a2, a4], a6, n] + S2[SP[a1, a3], a5, SP[a2, a6], 
     a4, n] + S2[SP[a1, a3], a6, a4, SP[a2, a5], n] + 
    S2[SP[a1, a3], a6, a5, SP[a2, a4], n] + S2[SP[a1, a3], a6, SP[a2, a4], 
     a5, n] + S2[SP[a1, a3], a6, SP[a2, a5], a4, n] + 
    S2[SP[a1, a3], SP[a2, a4], a5, a6, n] + S2[SP[a1, a3], SP[a2, a4], a6, 
     a5, n] + S2[SP[a1, a3], SP[a2, a5], a4, a6, n] + 
    S2[SP[a1, a3], SP[a2, a5], a6, a4, n] + S2[SP[a1, a3], SP[a2, a6], a4, 
     a5, n] + S2[SP[a1, a3], SP[a2, a6], a5, a4, n] - 
    S2[SP[a1, a4], a6, a3, SP[a2, a5], n] - S2[SP[a1, a4], a6, SP[a2, a3], 
     a5, n] - S2[SP[a1, a4], SP[a2, a6], a3, a5, n] - 
    S2[a1, a2, a3, a4, SP[a5, a6], n] - S2[a1, a2, a3, a5, SP[a4, a6], n] + 
    S2[a1, a2, a3, a6, SP[a4, a5], n] - S2[a1, a2, a3, SP[a4, a6], a5, n] - 
    S2[a6, n]*S2[a1, a2, a4, a3, a5, n] - S2[a1, a2, a4, a3, SP[a5, a6], n] - 
    S2[a6, n]*S2[a1, a2, a4, a5, a3, n] + 
    S2[a3, n]*S2[a1, a2, a4, a5, a6, n] + 
    S2[a3, n]*S2[a1, a2, a4, a6, a5, n] + S2[a1, a2, a4, a6, SP[a3, a5], n] + 
    S2[a1, a2, a4, SP[a3, a5], a6, n] - S2[a1, a2, a4, SP[a5, a6], a3, n] - 
    S2[a6, n]*S2[a1, a2, a5, a3, a4, n] - S2[a1, a2, a5, a3, SP[a4, a6], n] - 
    S2[a6, n]*S2[a1, a2, a5, a4, a3, n] + 
    S2[a3, n]*S2[a1, a2, a5, a4, a6, n] + 
    S2[a3, n]*S2[a1, a2, a5, a6, a4, n] + S2[a1, a2, a5, a6, SP[a3, a4], n] + 
    S2[a1, a2, a5, SP[a3, a4], a6, n] - S2[a1, a2, a5, SP[a4, a6], a3, n] - 
    S2[a4, n]*S2[a1, a2, a6, a3, a5, n] + 
    S2[a3, n]*S2[a1, a2, a6, a4, a5, n] + S2[a1, a2, a6, a4, SP[a3, a5], n] + 
    S2[a3, n]*S2[a1, a2, a6, a5, a4, n] + S2[a1, a2, a6, a5, SP[a3, a4], n] + 
    S2[a1, a2, a6, SP[a3, a4], a5, n] + S2[a1, a2, a6, SP[a3, a5], a4, n] + 
    S2[a1, a2, SP[a3, a4], a5, a6, n] + S2[a1, a2, SP[a3, a4], a6, a5, n] + 
    S2[a1, a2, SP[a3, a5], a4, a6, n] + S2[a1, a2, SP[a3, a5], a6, a4, n] + 
    S2[a1, a2, SP[a3, a6], a4, a5, n] + S2[a1, a2, SP[a3, a6], a5, a4, n] - 
    2*S2[a1, a2, SP[a4, a6], a3, a5, n] - S2[a1, a2, SP[a4, a6], a5, a3, n] - 
    S2[a1, a2, SP[a5, a6], a3, a4, n] - S2[a1, a2, SP[a5, a6], a4, a3, n] - 
    S2[a1, a3, a2, a4, SP[a5, a6], n] - S2[a1, a3, a2, a5, SP[a4, a6], n] + 
    S2[a1, a3, a2, a6, SP[a4, a5], n] - S2[a1, a3, a2, SP[a4, a6], a5, n] - 
    S2[a1, a3, a4, a2, SP[a5, a6], n] - S2[a1, a3, a4, SP[a2, a5], a6, n] - 
    S2[a1, a3, a5, a2, SP[a4, a6], n] - S2[a1, a3, a5, a6, SP[a2, a4], n] - 
    S2[a1, a3, a5, SP[a2, a4], a6, n] - S2[a1, a3, a5, SP[a2, a6], a4, n] - 
    S2[a1, a3, a6, a4, SP[a2, a5], n] - S2[a1, a3, a6, a5, SP[a2, a4], n] - 
    S2[a1, a3, a6, SP[a2, a4], a5, n] - S2[a1, a3, a6, SP[a2, a5], a4, n] - 
    S2[a1, a3, SP[a2, a4], a5, a6, n] - S2[a1, a3, SP[a2, a4], a6, a5, n] - 
    S2[a1, a3, SP[a2, a5], a4, a6, n] - S2[a1, a3, SP[a2, a5], a6, a4, n] - 
    S2[a1, a3, SP[a2, a6], a4, a5, n] - S2[a1, a3, SP[a2, a6], a5, a4, n] - 
    S2[a6, n]*S2[a1, a4, a2, a3, a5, n] - S2[a1, a4, a2, a3, SP[a5, a6], n] - 
    S2[a6, n]*S2[a1, a4, a2, a5, a3, n] + 
    S2[a3, n]*S2[a1, a4, a2, a5, a6, n] + 
    S2[a3, n]*S2[a1, a4, a2, a6, a5, n] + S2[a1, a4, a2, a6, SP[a3, a5], n] + 
    S2[a1, a4, a2, SP[a3, a5], a6, n] - S2[a1, a4, a2, SP[a5, a6], a3, n] - 
    S2[a6, n]*S2[a1, a4, a3, a2, a5, n] - S2[a1, a4, a3, a2, SP[a5, a6], n] - 
    S2[a6, n]*S2[a1, a4, a3, a5, a2, n] - S2[a1, a4, a3, a5, SP[a2, a6], n] + 
    S2[a5, n]*S2[a1, a4, a3, a6, a2, n] + S2[a1, a4, a3, a6, SP[a2, a5], n] - 
    S2[a1, a4, a3, SP[a2, a6], a5, n] - S2[a6, n]*S2[a1, a4, a5, a2, a3, n] + 
    S2[a3, n]*S2[a1, a4, a5, a2, a6, n] - 
    S2[a6, n]*S2[a1, a4, a5, a3, a2, n] - S2[a1, a4, a5, a3, SP[a2, a6], n] + 
    S2[a1, a4, a5, SP[a2, a3], a6, n] - S2[a1, a4, a5, SP[a2, a6], a3, n] - 
    S2[a1, a4, a5, SP[a3, a6], a2, n] + S2[a5, n]*S2[a1, a4, a6, a2, a3, n] + 
    S2[a1, a4, a6, a2, SP[a3, a5], n] + S2[a5, n]*S2[a1, a4, a6, a3, a2, n] + 
    2*S2[a1, a4, a6, a3, SP[a2, a5], n] + S2[a1, a4, a6, SP[a2, a3], a5, n] + 
    S2[a1, a4, a6, SP[a2, a5], a3, n] + S2[a1, a4, a6, SP[a3, a5], a2, n] + 
    S2[a1, a4, SP[a2, a3], a5, a6, n] + S2[a1, a4, SP[a2, a3], a6, a5, n] - 
    S2[a1, a4, SP[a2, a6], a5, a3, n] + S2[a1, a4, SP[a3, a5], a2, a6, n] + 
    S2[a1, a4, SP[a3, a5], a6, a2, n] - S2[a1, a4, SP[a3, a6], a2, a5, n] - 
    S2[a1, a4, SP[a3, a6], a5, a2, n] - S2[a6, n]*S2[a1, a5, a2, a3, a4, n] - 
    S2[a1, a5, a2, a3, SP[a4, a6], n] - S2[a6, n]*S2[a1, a5, a2, a4, a3, n] + 
    S2[a3, n]*S2[a1, a5, a2, a4, a6, n] + 
    S2[a3, n]*S2[a1, a5, a2, a6, a4, n] + S2[a1, a5, a2, a6, SP[a3, a4], n] + 
    S2[a1, a5, a2, SP[a3, a4], a6, n] - S2[a1, a5, a2, SP[a4, a6], a3, n] - 
    S2[a6, n]*S2[a1, a5, a3, a2, a4, n] - S2[a1, a5, a3, a2, SP[a4, a6], n] - 
    S2[a6, n]*S2[a1, a5, a3, a4, a2, n] - S2[a1, a5, a3, a4, SP[a2, a6], n] - 
    S2[a1, a5, a3, SP[a2, a6], a4, n] - S2[a1, a5, a3, SP[a4, a6], a2, n] - 
    S2[a6, n]*S2[a1, a5, a4, a2, a3, n] + 
    S2[a3, n]*S2[a1, a5, a4, a2, a6, n] - 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] - S2[a1, a5, a4, a3, SP[a2, a6], n] + 
    S2[a1, a5, a4, SP[a2, a3], a6, n] - S2[a1, a5, a4, SP[a2, a6], a3, n] - 
    S2[a1, a5, a4, SP[a3, a6], a2, n] + S2[a3, n]*S2[a1, a5, a6, a2, a4, n] + 
    S2[a1, a5, a6, a2, SP[a3, a4], n] + S2[a3, n]*S2[a1, a5, a6, a4, a2, n] + 
    S2[a1, a5, a6, a4, SP[a2, a3], n] + S2[a1, a5, a6, SP[a2, a3], a4, n] + 
    S2[a1, a5, a6, SP[a3, a4], a2, n] + S2[a1, a5, SP[a2, a3], a4, a6, n] + 
    S2[a1, a5, SP[a2, a3], a6, a4, n] - S2[a1, a5, SP[a2, a6], a3, a4, n] - 
    S2[a1, a5, SP[a2, a6], a4, a3, n] + S2[a1, a5, SP[a3, a4], a2, a6, n] - 
    S2[a1, a5, SP[a4, a6], a2, a3, n] - S2[a1, a5, SP[a4, a6], a3, a2, n] - 
    S2[a4, n]*S2[a1, a6, a2, a3, a5, n] - S2[a1, a6, a2, a3, SP[a4, a5], n] + 
    S2[a3, n]*S2[a1, a6, a2, a4, a5, n] + S2[a1, a6, a2, a4, SP[a3, a5], n] + 
    S2[a3, n]*S2[a1, a6, a2, a5, a4, n] + S2[a1, a6, a2, a5, SP[a3, a4], n] + 
    S2[a1, a6, a2, SP[a3, a5], a4, n] - S2[a4, n]*S2[a1, a6, a3, a2, a5, n] - 
    S2[a1, a6, a3, a2, SP[a4, a5], n] - S2[a4, n]*S2[a1, a6, a3, a5, a2, n] - 
    S2[a1, a6, a3, a5, SP[a2, a4], n] - S2[a1, a6, a3, SP[a2, a4], a5, n] - 
    S2[a1, a6, a3, SP[a4, a5], a2, n] + S2[a3, n]*S2[a1, a6, a4, a2, a5, n] + 
    S2[a1, a6, a4, a2, SP[a3, a5], n] + S2[a3, n]*S2[a1, a6, a4, a5, a2, n] + 
    S2[a1, a6, a4, a5, SP[a2, a3], n] + S2[a1, a6, a4, SP[a2, a3], a5, n] + 
    S2[a1, a6, a4, SP[a3, a5], a2, n] + S2[a3, n]*S2[a1, a6, a5, a2, a4, n] + 
    S2[a1, a6, a5, a2, SP[a3, a4], n] + S2[a3, n]*S2[a1, a6, a5, a4, a2, n] + 
    S2[a1, a6, a5, a4, SP[a2, a3], n] + S2[a1, a6, a5, SP[a2, a3], a4, n] + 
    S2[a1, a6, a5, SP[a3, a4], a2, n] + S2[a1, a6, SP[a2, a3], a4, a5, n] + 
    S2[a1, a6, SP[a2, a3], a5, a4, n] - S2[a1, a6, SP[a2, a4], a3, a5, n] + 
    S2[a1, a6, SP[a3, a5], a2, a4, n] + S2[a1, a6, SP[a3, a5], a4, a2, n] - 
    S2[a1, SP[a2, a6], a4, a3, a5, n] - S2[a1, SP[a2, a6], a4, a5, a3, n] - 
    S2[a1, SP[a2, a6], a5, a3, a4, n] - S2[a1, SP[a2, a6], a5, a4, a3, n] + 
    S2[a1, SP[a3, a4], a2, a5, a6, n] + S2[a1, SP[a3, a4], a2, a6, a5, n] + 
    S2[a1, SP[a3, a4], a5, a2, a6, n] + S2[a1, SP[a3, a5], a2, a4, a6, n] + 
    S2[a1, SP[a3, a5], a2, a6, a4, n] + S2[a1, SP[a3, a5], a4, a2, a6, n] + 
    S2[a1, SP[a3, a5], a6, a2, a4, n] + S2[a1, SP[a3, a5], a6, a4, a2, n] + 
    S2[a1, SP[a3, a6], a2, a4, a5, n] + S2[a1, SP[a3, a6], a2, a5, a4, n] + 
    S2[a1, SP[a3, a6], a4, a2, a5, n] + S2[a1, SP[a3, a6], a4, a5, a2, n] + 
    S2[a1, SP[a3, a6], a5, a2, a4, n] + S2[a1, SP[a3, a6], a5, a4, a2, n] + 
    S2[a1, SP[a4, a5], a3, a6, a2, n] + S2[a1, SP[a4, a5], a6, a2, a3, n] + 
    S2[a1, SP[a4, a5], a6, a3, a2, n] - 2*S2[a1, SP[a4, a6], a2, a3, a5, n] - 
    S2[a1, SP[a4, a6], a2, a5, a3, n] - 2*S2[a1, SP[a4, a6], a3, a2, a5, n] - 
    2*S2[a1, SP[a4, a6], a3, a5, a2, n] - S2[a1, SP[a4, a6], a5, a2, a3, n] - 
    S2[a1, SP[a4, a6], a5, a3, a2, n] - S2[a1, SP[a5, a6], a2, a3, a4, n] - 
    S2[a1, SP[a5, a6], a2, a4, a3, n] - S2[a1, SP[a5, a6], a3, a2, a4, n] - 
    S2[a1, SP[a5, a6], a3, a4, a2, n] - S2[a1, SP[a5, a6], a4, a2, a3, n] - 
    S2[a1, SP[a5, a6], a4, a3, a2, n] - S2[a3, a1, a2, a4, SP[a5, a6], n] - 
    S2[a3, a1, a2, a5, SP[a4, a6], n] + S2[a3, a1, a2, a6, SP[a4, a5], n] - 
    S2[a3, a1, a2, SP[a4, a6], a5, n] - S2[a3, a1, a4, a2, SP[a5, a6], n] - 
    S2[a3, a1, a4, SP[a2, a5], a6, n] - S2[a3, a1, a5, a2, SP[a4, a6], n] - 
    S2[a3, a1, a5, a6, SP[a2, a4], n] - S2[a3, a1, a5, SP[a2, a4], a6, n] - 
    S2[a3, a1, a5, SP[a2, a6], a4, n] - S2[a3, a1, a6, a4, SP[a2, a5], n] - 
    S2[a3, a1, a6, a5, SP[a2, a4], n] - S2[a3, a1, a6, SP[a2, a4], a5, n] - 
    S2[a3, a1, a6, SP[a2, a5], a4, n] - S2[a3, a1, SP[a2, a4], a5, a6, n] - 
    S2[a3, a1, SP[a2, a4], a6, a5, n] - S2[a3, a1, SP[a2, a5], a4, a6, n] - 
    S2[a3, a1, SP[a2, a5], a6, a4, n] - S2[a3, a1, SP[a2, a6], a4, a5, n] - 
    S2[a3, a1, SP[a2, a6], a5, a4, n] + S2[a6, n]*S2[a3, a4, a1, a2, a5, n] + 
    S2[a6, n]*S2[a3, a4, a1, a5, a2, n] + S2[a3, a4, a1, a5, SP[a2, a6], n] - 
    S2[a5, n]*S2[a3, a4, a1, a6, a2, n] - S2[a3, a4, a1, a6, SP[a2, a5], n] - 
    S2[a3, a4, a1, SP[a2, a5], a6, n] + S2[a3, a4, a1, SP[a2, a6], a5, n] + 
    S2[a6, n]*S2[a3, a4, a5, a1, a2, n] + S2[a3, a4, a5, a1, SP[a2, a6], n] + 
    S2[a3, a4, a5, SP[a1, a6], a2, n] - S2[a5, n]*S2[a3, a4, a6, a1, a2, n] - 
    S2[a3, a4, a6, a1, SP[a2, a5], n] - S2[a3, a4, a6, SP[a1, a5], a2, n] - 
    S2[a3, a4, SP[a1, a5], a2, a6, n] - S2[a3, a4, SP[a1, a5], a6, a2, n] + 
    S2[a3, a4, SP[a1, a6], a2, a5, n] + S2[a3, a4, SP[a1, a6], a5, a2, n] + 
    S2[a6, n]*S2[a3, a5, a1, a2, a4, n] + 
    S2[a6, n]*S2[a3, a5, a1, a4, a2, n] + S2[a3, a5, a1, a4, SP[a2, a6], n] - 
    S2[a3, a5, a1, a6, SP[a2, a4], n] - S2[a3, a5, a1, SP[a2, a4], a6, n] + 
    S2[a3, a5, a1, SP[a4, a6], a2, n] + S2[a6, n]*S2[a3, a5, a4, a1, a2, n] + 
    S2[a3, a5, a4, a1, SP[a2, a6], n] + S2[a3, a5, a4, SP[a1, a6], a2, n] - 
    S2[a3, a5, a6, a1, SP[a2, a4], n] - S2[a3, a5, a6, SP[a1, a4], a2, n] - 
    S2[a3, a5, SP[a1, a4], a2, a6, n] + S2[a3, a5, SP[a4, a6], a1, a2, n] + 
    S2[a4, n]*S2[a3, a6, a1, a2, a5, n] + S2[a3, a6, a1, a2, SP[a4, a5], n] - 
    S2[a3, a6, a1, a4, SP[a2, a5], n] + S2[a4, n]*S2[a3, a6, a1, a5, a2, n] - 
    S2[a3, a6, a1, SP[a2, a5], a4, n] + S2[a3, a6, a1, SP[a4, a5], a2, n] - 
    S2[a3, a6, a4, a1, SP[a2, a5], n] - S2[a3, a6, a4, SP[a1, a5], a2, n] - 
    S2[a3, a6, a5, a1, SP[a2, a4], n] - S2[a3, a6, a5, SP[a1, a4], a2, n] - 
    S2[a3, a6, SP[a1, a5], a2, a4, n] - S2[a3, a6, SP[a1, a5], a4, a2, n] - 
    S2[a3, SP[a1, a4], a2, a5, a6, n] - S2[a3, SP[a1, a4], a2, a6, a5, n] - 
    S2[a3, SP[a1, a4], a5, a2, a6, n] - S2[a3, SP[a1, a5], a2, a4, a6, n] - 
    S2[a3, SP[a1, a5], a2, a6, a4, n] - S2[a3, SP[a1, a5], a4, a2, a6, n] - 
    S2[a3, SP[a1, a5], a6, a2, a4, n] - S2[a3, SP[a1, a5], a6, a4, a2, n] - 
    S2[a3, SP[a1, a6], a2, a4, a5, n] - S2[a3, SP[a1, a6], a2, a5, a4, n] - 
    S2[a3, SP[a1, a6], a4, a2, a5, n] - S2[a3, SP[a1, a6], a4, a5, a2, n] - 
    S2[a3, SP[a1, a6], a5, a2, a4, n] - S2[a3, SP[a1, a6], a5, a4, a2, n] - 
    S2[a3, SP[a4, a5], a1, a6, a2, n] - S2[a3, SP[a4, a5], a6, a1, a2, n] + 
    2*S2[a3, SP[a4, a6], a1, a2, a5, n] + 
    2*S2[a3, SP[a4, a6], a1, a5, a2, n] + S2[a3, SP[a4, a6], a5, a1, a2, n] + 
    S2[a3, SP[a5, a6], a1, a2, a4, n] + S2[a3, SP[a5, a6], a1, a4, a2, n] + 
    S2[a3, SP[a5, a6], a4, a1, a2, n] + S2[a4, a1, a6, a3, SP[a2, a5], n] + 
    S2[a4, a1, a6, SP[a2, a3], a5, n] + S2[a4, a1, SP[a2, a6], a3, a5, n] - 
    S2[a3, n]*S2[a4, a6, a1, a2, a5, n] - S2[a4, a6, a1, a2, SP[a3, a5], n] + 
    S2[a4, a6, a1, a3, SP[a2, a5], n] - S2[a3, n]*S2[a4, a6, a1, a5, a2, n] - 
    S2[a4, a6, a1, a5, SP[a2, a3], n] - S2[a4, a6, a1, SP[a3, a5], a2, n] + 
    S2[a4, a6, a3, a1, SP[a2, a5], n] + S2[a4, a6, a3, SP[a1, a5], a2, n] + 
    S2[a4, SP[a1, a6], a2, a3, a5, n] + S2[a4, SP[a1, a6], a3, a2, a5, n] + 
    S2[a4, SP[a1, a6], a3, a5, a2, n] - S2[a4, SP[a3, a6], a1, a2, a5, n] - 
    S2[a4, SP[a3, a6], a1, a5, a2, n] - S2[a3, n]*S2[a5, a1, a4, a6, a2, n] - 
    S2[a5, a1, a4, a6, SP[a2, a3], n] - S2[a5, a1, a4, SP[a3, a6], a2, n] - 
    S2[a5, a1, SP[a3, a4], a6, a2, n] + S2[a1, n]*S2[a5, a3, a4, a6, a2, n] + 
    S2[a5, a3, a4, a6, SP[a1, a2], n] + S2[a5, a3, a4, SP[a1, a6], a2, n] + 
    S2[a5, a3, SP[a1, a4], a6, a2, n] + S2[a4, n]*S2[a6, a1, a2, a5, a3, n] + 
    S2[a6, a1, a2, a5, SP[a3, a4], n] + S2[a6, a1, a2, SP[a4, a5], a3, n] + 
    S2[a4, n]*S2[a6, a1, a5, a2, a3, n] + S2[a6, a1, a5, a2, SP[a3, a4], n] + 
    S2[a4, n]*S2[a6, a1, a5, a3, a2, n] + S2[a6, a1, a5, a3, SP[a2, a4], n] + 
    S2[a6, a1, a5, SP[a2, a4], a3, n] + S2[a6, a1, a5, SP[a3, a4], a2, n] + 
    S2[a6, a1, SP[a2, a4], a5, a3, n] + S2[a6, a1, SP[a4, a5], a2, a3, n] + 
    S2[a6, a1, SP[a4, a5], a3, a2, n] + S2[a1, n]*S2[a6, a2, a4, a3, a5, n] + 
    S2[a6, a2, a4, a3, SP[a1, a5], n] + S2[a6, a2, a4, SP[a1, a3], a5, n] + 
    S2[a6, a2, SP[a1, a4], a3, a5, n] - S2[a4, n]*S2[a6, a3, a5, a1, a2, n] - 
    S2[a6, a3, a5, a1, SP[a2, a4], n] - S2[a6, a3, a5, SP[a1, a4], a2, n] - 
    S2[a6, a3, SP[a4, a5], a1, a2, n] - S2[a3, n]*S2[a6, a4, a1, a2, a5, n] - 
    S2[a6, a4, a1, a2, SP[a3, a5], n] - S2[a3, n]*S2[a6, a4, a1, a5, a2, n] - 
    S2[a6, a4, a1, a5, SP[a2, a3], n] - S2[a6, a4, a1, SP[a2, a3], a5, n] - 
    S2[a6, a4, a1, SP[a3, a5], a2, n] + S2[a1, n]*S2[a6, a4, a2, a3, a5, n] + 
    S2[a6, a4, a2, a3, SP[a1, a5], n] + S2[a6, a4, a2, SP[a1, a3], a5, n] + 
    S2[a1, n]*S2[a6, a4, a3, a2, a5, n] + S2[a6, a4, a3, a2, SP[a1, a5], n] + 
    S2[a1, n]*S2[a6, a4, a3, a5, a2, n] + S2[a6, a4, a3, a5, SP[a1, a2], n] + 
    S2[a6, a4, a3, SP[a1, a2], a5, n] + S2[a6, a4, a3, SP[a1, a5], a2, n] + 
    S2[a6, a4, SP[a1, a2], a3, a5, n] + S2[a6, SP[a1, a2], a4, a3, a5, n] + 
    S2[a6, SP[a1, a4], a2, a3, a5, n] + S2[a6, SP[a1, a4], a2, a5, a3, n] + 
    S2[a6, SP[a1, a4], a3, a2, a5, n] + S2[a6, SP[a1, a4], a3, a5, a2, n] + 
    S2[a6, SP[a1, a4], a5, a2, a3, n] + S2[a6, SP[a1, a4], a5, a3, a2, n] - 
    S2[a6, SP[a3, a4], a1, a2, a5, n] - S2[a6, SP[a3, a4], a1, a5, a2, n] - 
    S2[a6, SP[a3, a4], a5, a1, a2, n] + S2[SP[a1, a5], a3, a4, a6, a2, n] + 
    S2[SP[a1, a5], a4, a3, a6, a2, n] + S2[SP[a1, a5], a4, a6, a2, a3, n] + 
    S2[SP[a1, a5], a4, a6, a3, a2, n] - S2[SP[a1, a6], a2, a4, a5, a3, n] - 
    S2[SP[a1, a6], a2, a5, a3, a4, n] - S2[SP[a1, a6], a2, a5, a4, a3, n] - 
    S2[SP[a1, a6], a4, a2, a5, a3, n] - S2[SP[a1, a6], a4, a5, a2, a3, n] - 
    S2[SP[a1, a6], a4, a5, a3, a2, n] - S2[SP[a1, a6], a5, a2, a3, a4, n] - 
    S2[SP[a1, a6], a5, a2, a4, a3, n] - S2[SP[a1, a6], a5, a3, a2, a4, n] - 
    S2[SP[a1, a6], a5, a3, a4, a2, n] - S2[SP[a1, a6], a5, a4, a2, a3, n] - 
    S2[SP[a1, a6], a5, a4, a3, a2, n] - S2[SP[a3, a5], a1, a4, a6, a2, n] - 
    S2[SP[a3, a5], a4, a1, a6, a2, n] - S2[SP[a3, a5], a4, a6, a1, a2, n] + 
    S2[SP[a3, a6], a4, a5, a1, a2, n] + S2[SP[a3, a6], a5, a1, a2, a4, n] + 
    S2[SP[a3, a6], a5, a1, a4, a2, n] + S2[SP[a3, a6], a5, a4, a1, a2, n] + 
    S2[SP[a4, a6], a1, a2, a5, a3, n] + S2[SP[a4, a6], a1, a5, a2, a3, n] + 
    S2[SP[a4, a6], a1, a5, a3, a2, n] - S2[SP[a4, a6], a3, a5, a1, a2, n] - 
    S2[a6, a2, a1, a4, a3, a5, n] - S2[a6, a2, a4, a1, a3, a5, n] - 
    S2[a6, a2, a4, a3, a1, a5, n] - S2[a6, a2, a4, a3, a5, a1, n] - 
    S2[a6, a4, a2, a1, a3, a5, n] - S2[a6, a4, a2, a3, a1, a5, n] - 
    S2[a6, a4, a2, a3, a5, a1, n] - S2[a6, a4, a3, a2, a1, a5, n] - 
    S2[a6, a4, a3, a2, a5, a1, n] - S2[a6, a4, a3, a5, a2, a1, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a5_, a3_, a6_, a1_, a2_, a4_, n_] :> 
  S2[a3, a5, n]*S2[a1, a2, a4, a6, n] + S2[a3, a5, n]*S2[a1, a2, a6, a4, n] - 
    S2[a1, a2, SP[a3, a4], SP[a5, a6], n] - S2[a1, a2, SP[a3, a6], 
     SP[a4, a5], n] + S2[a3, a5, n]*S2[a1, a6, a2, a4, n] - 
    S2[a1, a6, SP[a2, a3], SP[a4, a5], n] - S2[a1, SP[a2, a3], a4, 
     SP[a5, a6], n] - S2[a1, SP[a2, a3], a6, SP[a4, a5], n] - 
    S2[a1, SP[a2, a3], SP[a4, a5], a6, n] - S2[a1, SP[a2, a3], SP[a5, a6], 
     a4, n] - S2[a1, SP[a3, a6], a2, SP[a4, a5], n] - 
    S2[a1, SP[a3, a6], SP[a2, a5], a4, n] - S2[SP[a1, a3], a2, a4, 
     SP[a5, a6], n] - S2[SP[a1, a3], a2, a6, SP[a4, a5], n] - 
    S2[SP[a1, a3], a2, SP[a4, a5], a6, n] - S2[SP[a1, a3], a2, SP[a5, a6], 
     a4, n] - S2[SP[a1, a3], a6, a2, SP[a4, a5], n] - 
    S2[SP[a1, a3], a6, SP[a2, a5], a4, n] - S2[SP[a1, a3], SP[a2, a5], a4, 
     a6, n] - S2[SP[a1, a3], SP[a2, a5], a6, a4, n] - 
    S2[SP[a1, a3], SP[a5, a6], a2, a4, n] + S2[a1, a2, a3, a4, SP[a5, a6], 
     n] + S2[a1, a2, a3, a6, SP[a4, a5], n] + S2[a1, a2, a3, SP[a4, a5], a6, 
     n] + S2[a1, a2, a3, SP[a5, a6], a4, n] + S2[a1, a2, a4, a3, SP[a5, a6], 
     n] + S2[a6, n]*S2[a1, a2, a4, a5, a3, n] - 
    S2[a3, n]*S2[a1, a2, a4, a5, a6, n] - 
    S2[a3, n]*S2[a1, a2, a4, a6, a5, n] - S2[a1, a2, a4, a6, SP[a3, a5], n] - 
    S2[a1, a2, a4, SP[a3, a5], a6, n] + S2[a1, a2, a4, SP[a5, a6], a3, n] + 
    S2[a6, n]*S2[a1, a2, a5, a3, a4, n] + S2[a1, a2, a5, a3, SP[a4, a6], n] + 
    S2[a6, n]*S2[a1, a2, a5, a4, a3, n] - 
    S2[a3, n]*S2[a1, a2, a5, a4, a6, n] - 
    S2[a3, n]*S2[a1, a2, a5, a6, a4, n] - S2[a1, a2, a5, a6, SP[a3, a4], n] - 
    S2[a1, a2, a5, SP[a3, a4], a6, n] + S2[a1, a2, a5, SP[a4, a6], a3, n] + 
    S2[a1, a2, a6, a3, SP[a4, a5], n] - S2[a3, n]*S2[a1, a2, a6, a4, a5, n] - 
    S2[a1, a2, a6, a4, SP[a3, a5], n] - S2[a3, n]*S2[a1, a2, a6, a5, a4, n] - 
    S2[a1, a2, a6, a5, SP[a3, a4], n] - S2[a1, a2, a6, SP[a3, a5], a4, n] - 
    S2[a1, a2, SP[a3, a5], a4, a6, n] - S2[a1, a2, SP[a3, a5], a6, a4, n] + 
    S2[a1, a2, SP[a4, a6], a5, a3, n] + S2[a1, a2, SP[a5, a6], a3, a4, n] + 
    S2[a1, a2, SP[a5, a6], a4, a3, n] + S2[a1, a3, a2, a4, SP[a5, a6], n] + 
    S2[a1, a3, a2, a6, SP[a4, a5], n] + S2[a1, a3, a2, SP[a4, a5], a6, n] + 
    S2[a1, a3, a2, SP[a5, a6], a4, n] + S2[a1, a3, a6, a2, SP[a4, a5], n] + 
    S2[a1, a3, a6, SP[a2, a5], a4, n] + S2[a1, a3, SP[a2, a5], a4, a6, n] + 
    S2[a1, a3, SP[a2, a5], a6, a4, n] + S2[a1, a3, SP[a5, a6], a2, a4, n] + 
    S2[a6, n]*S2[a1, a5, a2, a3, a4, n] + S2[a1, a5, a2, a3, SP[a4, a6], n] + 
    S2[a6, n]*S2[a1, a5, a2, a4, a3, n] - 
    S2[a3, n]*S2[a1, a5, a2, a4, a6, n] - 
    S2[a3, n]*S2[a1, a5, a2, a6, a4, n] - S2[a1, a5, a2, a6, SP[a3, a4], n] - 
    S2[a1, a5, a2, SP[a3, a4], a6, n] + S2[a1, a5, a2, SP[a4, a6], a3, n] + 
    S2[a6, n]*S2[a1, a5, a3, a2, a4, n] + S2[a1, a5, a3, a2, SP[a4, a6], n] + 
    S2[a1, a5, a3, SP[a2, a6], a4, n] - S2[a3, n]*S2[a1, a5, a6, a2, a4, n] - 
    S2[a1, a5, a6, a2, SP[a3, a4], n] - S2[a1, a5, a6, SP[a2, a3], a4, n] - 
    S2[a1, a5, SP[a2, a3], a4, a6, n] - S2[a1, a5, SP[a2, a3], a6, a4, n] + 
    S2[a1, a5, SP[a2, a6], a3, a4, n] + S2[a1, a5, SP[a2, a6], a4, a3, n] + 
    S2[a1, a6, a2, a3, SP[a4, a5], n] - S2[a3, n]*S2[a1, a6, a2, a4, a5, n] - 
    S2[a1, a6, a2, a4, SP[a3, a5], n] - S2[a3, n]*S2[a1, a6, a2, a5, a4, n] - 
    S2[a1, a6, a2, a5, SP[a3, a4], n] - S2[a1, a6, a2, SP[a3, a5], a4, n] + 
    S2[a1, a6, a3, a2, SP[a4, a5], n] + S2[a1, a6, a3, SP[a2, a5], a4, n] - 
    S2[a3, n]*S2[a1, a6, a5, a2, a4, n] - S2[a1, a6, a5, a2, SP[a3, a4], n] - 
    S2[a1, a6, a5, SP[a2, a3], a4, n] - S2[a1, a6, SP[a3, a5], a2, a4, n] + 
    S2[a1, SP[a2, a6], a4, a5, a3, n] + S2[a1, SP[a2, a6], a5, a3, a4, n] + 
    S2[a1, SP[a2, a6], a5, a4, a3, n] - S2[a1, SP[a3, a5], a2, a4, a6, n] - 
    S2[a1, SP[a3, a5], a2, a6, a4, n] - S2[a1, SP[a3, a5], a6, a2, a4, n] + 
    S2[a1, SP[a5, a6], a2, a3, a4, n] + S2[a1, SP[a5, a6], a2, a4, a3, n] + 
    S2[a1, SP[a5, a6], a3, a2, a4, n] + S2[a3, a1, a2, a4, SP[a5, a6], n] + 
    S2[a3, a1, a2, a6, SP[a4, a5], n] + S2[a3, a1, a2, SP[a4, a5], a6, n] + 
    S2[a3, a1, a2, SP[a5, a6], a4, n] + S2[a3, a1, a6, a2, SP[a4, a5], n] + 
    S2[a3, a1, a6, SP[a2, a5], a4, n] + S2[a3, a1, SP[a2, a5], a4, a6, n] + 
    S2[a3, a1, SP[a2, a5], a6, a4, n] + S2[a3, a1, SP[a5, a6], a2, a4, n] - 
    S2[a6, n]*S2[a3, a5, a1, a2, a4, n] - S2[a3, a5, a1, a2, SP[a4, a6], n] - 
    S2[a3, a5, a1, SP[a2, a6], a4, n] - S2[a3, a5, SP[a1, a6], a2, a4, n] + 
    S2[a5, n]*S2[a3, a6, a1, a2, a4, n] + S2[a3, a6, a1, a2, SP[a4, a5], n] + 
    S2[a3, a6, a1, SP[a2, a5], a4, n] + S2[a3, a6, SP[a1, a5], a2, a4, n] + 
    S2[a3, SP[a1, a5], a2, a4, a6, n] + S2[a3, SP[a1, a5], a2, a6, a4, n] + 
    S2[a3, SP[a1, a5], a6, a2, a4, n] - S2[a3, n]*S2[a6, a1, a2, a4, a5, n] - 
    S2[a6, a1, a2, a4, SP[a3, a5], n] - S2[a3, n]*S2[a6, a1, a2, a5, a4, n] - 
    S2[a6, a1, a2, a5, SP[a3, a4], n] - S2[a6, a1, a2, SP[a3, a4], a5, n] - 
    S2[a6, a1, a2, SP[a3, a5], a4, n] - S2[a3, n]*S2[a6, a1, a5, a2, a4, n] - 
    S2[a6, a1, a5, a2, SP[a3, a4], n] - S2[a6, a1, a5, SP[a2, a3], a4, n] - 
    S2[a6, a1, SP[a2, a3], a4, a5, n] - S2[a6, a1, SP[a2, a3], a5, a4, n] - 
    S2[a6, a1, SP[a3, a5], a2, a4, n] - S2[a6, SP[a1, a3], a2, a4, a5, n] - 
    S2[a6, SP[a1, a3], a2, a5, a4, n] - S2[a6, SP[a1, a3], a5, a2, a4, n] + 
    S2[SP[a1, a6], a2, a4, a5, a3, n] + S2[SP[a1, a6], a2, a5, a3, a4, n] + 
    S2[SP[a1, a6], a2, a5, a4, a3, n] + S2[SP[a1, a6], a5, a2, a3, a4, n] + 
    S2[SP[a1, a6], a5, a2, a4, a3, n] + S2[SP[a1, a6], a5, a3, a2, a4, n] + 
    S2[SP[a3, a5], a6, a1, a2, a4, n] - S2[SP[a3, a6], a1, a2, a4, a5, n] - 
    S2[SP[a3, a6], a1, a2, a5, a4, n] - S2[SP[a3, a6], a1, a5, a2, a4, n] - 
    S2[SP[a3, a6], a5, a1, a2, a4, n] + S2[a6, a1, a2, a3, a4, a5, n] + 
    S2[a6, a1, a2, a3, a5, a4, n] + S2[a6, a1, a2, a4, a3, a5, n] + 
    S2[a6, a1, a3, a2, a4, a5, n] + S2[a6, a1, a3, a2, a5, a4, n] + 
    S2[a6, a1, a3, a5, a2, a4, n] + S2[a6, a3, a1, a2, a4, a5, n] + 
    S2[a6, a3, a1, a2, a5, a4, n] + S2[a6, a3, a1, a5, a2, a4, n] + 
    S2[a6, a3, a5, a1, a2, a4, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a5_, a3_, a6_, a1_, a4_, a2_, n_] :> 
  S2[a3, a5, n]*S2[a1, a4, a2, a6, n] + S2[a3, a5, n]*S2[a1, a4, a6, a2, n] - 
    S2[a1, a4, SP[a2, a3], SP[a5, a6], n] - S2[a1, a4, SP[a3, a6], 
     SP[a2, a5], n] + S2[a3, a5, n]*S2[a1, a6, a4, a2, n] - 
    S2[a1, a6, SP[a3, a4], SP[a2, a5], n] - S2[a1, SP[a3, a4], a2, 
     SP[a5, a6], n] - S2[a1, SP[a3, a4], a6, SP[a2, a5], n] - 
    S2[a1, SP[a3, a4], SP[a2, a5], a6, n] - S2[a1, SP[a3, a4], SP[a5, a6], 
     a2, n] - S2[a1, SP[a3, a6], a4, SP[a2, a5], n] - 
    S2[a1, SP[a3, a6], SP[a4, a5], a2, n] - S2[SP[a1, a3], a4, a2, 
     SP[a5, a6], n] - S2[SP[a1, a3], a4, a6, SP[a2, a5], n] - 
    S2[SP[a1, a3], a4, SP[a2, a5], a6, n] - S2[SP[a1, a3], a4, SP[a5, a6], 
     a2, n] - S2[SP[a1, a3], a6, a4, SP[a2, a5], n] - 
    S2[SP[a1, a3], a6, SP[a4, a5], a2, n] - S2[SP[a1, a3], SP[a4, a5], a2, 
     a6, n] - S2[SP[a1, a3], SP[a4, a5], a6, a2, n] - 
    S2[SP[a1, a3], SP[a5, a6], a4, a2, n] + S2[a1, a3, a4, a2, SP[a5, a6], 
     n] + S2[a1, a3, a4, a6, SP[a2, a5], n] + S2[a1, a3, a4, SP[a2, a5], a6, 
     n] + S2[a1, a3, a4, SP[a5, a6], a2, n] + S2[a1, a3, a6, a4, SP[a2, a5], 
     n] + S2[a1, a3, a6, SP[a4, a5], a2, n] + S2[a1, a3, SP[a4, a5], a2, a6, 
     n] + S2[a1, a3, SP[a4, a5], a6, a2, n] + S2[a1, a3, SP[a5, a6], a4, a2, 
     n] + S2[a1, a4, a2, a3, SP[a5, a6], n] + 
    S2[a6, n]*S2[a1, a4, a2, a5, a3, n] - 
    S2[a3, n]*S2[a1, a4, a2, a5, a6, n] - 
    S2[a3, n]*S2[a1, a4, a2, a6, a5, n] - S2[a1, a4, a2, a6, SP[a3, a5], n] - 
    S2[a1, a4, a2, SP[a3, a5], a6, n] + S2[a1, a4, a2, SP[a5, a6], a3, n] + 
    S2[a1, a4, a3, a2, SP[a5, a6], n] + S2[a1, a4, a3, a6, SP[a2, a5], n] + 
    S2[a1, a4, a3, SP[a2, a5], a6, n] + S2[a1, a4, a3, SP[a5, a6], a2, n] + 
    S2[a6, n]*S2[a1, a4, a5, a2, a3, n] - 
    S2[a3, n]*S2[a1, a4, a5, a2, a6, n] + 
    S2[a6, n]*S2[a1, a4, a5, a3, a2, n] + S2[a1, a4, a5, a3, SP[a2, a6], n] - 
    S2[a3, n]*S2[a1, a4, a5, a6, a2, n] - S2[a1, a4, a5, a6, SP[a2, a3], n] - 
    S2[a1, a4, a5, SP[a2, a3], a6, n] + S2[a1, a4, a5, SP[a2, a6], a3, n] - 
    S2[a3, n]*S2[a1, a4, a6, a2, a5, n] - S2[a1, a4, a6, a2, SP[a3, a5], n] + 
    S2[a1, a4, a6, a3, SP[a2, a5], n] - S2[a3, n]*S2[a1, a4, a6, a5, a2, n] - 
    S2[a1, a4, a6, a5, SP[a2, a3], n] - S2[a1, a4, a6, SP[a3, a5], a2, n] + 
    S2[a1, a4, SP[a2, a6], a5, a3, n] - S2[a1, a4, SP[a3, a5], a2, a6, n] - 
    S2[a1, a4, SP[a3, a5], a6, a2, n] + S2[a1, a4, SP[a5, a6], a2, a3, n] + 
    S2[a1, a4, SP[a5, a6], a3, a2, n] + S2[a6, n]*S2[a1, a5, a3, a4, a2, n] + 
    S2[a1, a5, a3, a4, SP[a2, a6], n] + S2[a1, a5, a3, SP[a4, a6], a2, n] + 
    S2[a6, n]*S2[a1, a5, a4, a2, a3, n] - 
    S2[a3, n]*S2[a1, a5, a4, a2, a6, n] + 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] + S2[a1, a5, a4, a3, SP[a2, a6], n] - 
    S2[a3, n]*S2[a1, a5, a4, a6, a2, n] - S2[a1, a5, a4, a6, SP[a2, a3], n] - 
    S2[a1, a5, a4, SP[a2, a3], a6, n] + S2[a1, a5, a4, SP[a2, a6], a3, n] - 
    S2[a3, n]*S2[a1, a5, a6, a4, a2, n] - S2[a1, a5, a6, a4, SP[a2, a3], n] - 
    S2[a1, a5, a6, SP[a3, a4], a2, n] - S2[a1, a5, SP[a3, a4], a2, a6, n] - 
    S2[a1, a5, SP[a3, a4], a6, a2, n] + S2[a1, a5, SP[a4, a6], a2, a3, n] + 
    S2[a1, a5, SP[a4, a6], a3, a2, n] + S2[a1, a6, a3, a4, SP[a2, a5], n] + 
    S2[a1, a6, a3, SP[a4, a5], a2, n] - S2[a3, n]*S2[a1, a6, a4, a2, a5, n] - 
    S2[a1, a6, a4, a2, SP[a3, a5], n] + S2[a1, a6, a4, a3, SP[a2, a5], n] - 
    S2[a3, n]*S2[a1, a6, a4, a5, a2, n] - S2[a1, a6, a4, a5, SP[a2, a3], n] - 
    S2[a1, a6, a4, SP[a3, a5], a2, n] - S2[a3, n]*S2[a1, a6, a5, a4, a2, n] - 
    S2[a1, a6, a5, a4, SP[a2, a3], n] - S2[a1, a6, a5, SP[a3, a4], a2, n] - 
    S2[a1, a6, SP[a3, a5], a4, a2, n] - S2[a1, SP[a3, a5], a4, a2, a6, n] - 
    S2[a1, SP[a3, a5], a4, a6, a2, n] - S2[a1, SP[a3, a5], a6, a4, a2, n] + 
    S2[a1, SP[a4, a6], a2, a5, a3, n] + S2[a1, SP[a4, a6], a5, a2, a3, n] + 
    S2[a1, SP[a4, a6], a5, a3, a2, n] + S2[a1, SP[a5, a6], a3, a4, a2, n] + 
    S2[a1, SP[a5, a6], a4, a2, a3, n] + S2[a1, SP[a5, a6], a4, a3, a2, n] + 
    S2[a3, a1, a4, a2, SP[a5, a6], n] + S2[a3, a1, a4, a6, SP[a2, a5], n] + 
    S2[a3, a1, a4, SP[a2, a5], a6, n] + S2[a3, a1, a4, SP[a5, a6], a2, n] + 
    S2[a3, a1, a6, a4, SP[a2, a5], n] + S2[a3, a1, a6, SP[a4, a5], a2, n] + 
    S2[a3, a1, SP[a4, a5], a2, a6, n] + S2[a3, a1, SP[a4, a5], a6, a2, n] + 
    S2[a3, a1, SP[a5, a6], a4, a2, n] - S2[a6, n]*S2[a3, a5, a1, a4, a2, n] - 
    S2[a3, a5, a1, a4, SP[a2, a6], n] - S2[a3, a5, a1, SP[a4, a6], a2, n] - 
    S2[a3, a5, SP[a1, a6], a4, a2, n] + S2[a5, n]*S2[a3, a6, a1, a4, a2, n] + 
    S2[a3, a6, a1, a4, SP[a2, a5], n] + S2[a3, a6, a1, SP[a4, a5], a2, n] + 
    S2[a3, a6, SP[a1, a5], a4, a2, n] + S2[a3, SP[a1, a5], a4, a2, a6, n] + 
    S2[a3, SP[a1, a5], a4, a6, a2, n] + S2[a3, SP[a1, a5], a6, a4, a2, n] - 
    S2[a3, n]*S2[a6, a1, a4, a2, a5, n] - S2[a6, a1, a4, a2, SP[a3, a5], n] - 
    S2[a3, n]*S2[a6, a1, a4, a5, a2, n] - S2[a6, a1, a4, a5, SP[a2, a3], n] - 
    S2[a6, a1, a4, SP[a2, a3], a5, n] - S2[a6, a1, a4, SP[a3, a5], a2, n] - 
    S2[a3, n]*S2[a6, a1, a5, a4, a2, n] - S2[a6, a1, a5, a4, SP[a2, a3], n] - 
    S2[a6, a1, a5, SP[a3, a4], a2, n] - S2[a6, a1, SP[a3, a4], a2, a5, n] - 
    S2[a6, a1, SP[a3, a4], a5, a2, n] - S2[a6, a1, SP[a3, a5], a4, a2, n] - 
    S2[a6, SP[a1, a3], a4, a2, a5, n] - S2[a6, SP[a1, a3], a4, a5, a2, n] - 
    S2[a6, SP[a1, a3], a5, a4, a2, n] + S2[SP[a1, a6], a4, a2, a5, a3, n] + 
    S2[SP[a1, a6], a4, a5, a2, a3, n] + S2[SP[a1, a6], a4, a5, a3, a2, n] + 
    S2[SP[a1, a6], a5, a3, a4, a2, n] + S2[SP[a1, a6], a5, a4, a2, a3, n] + 
    S2[SP[a1, a6], a5, a4, a3, a2, n] + S2[SP[a3, a5], a6, a1, a4, a2, n] - 
    S2[SP[a3, a6], a1, a4, a2, a5, n] - S2[SP[a3, a6], a1, a4, a5, a2, n] - 
    S2[SP[a3, a6], a1, a5, a4, a2, n] - S2[SP[a3, a6], a5, a1, a4, a2, n] + 
    S2[a6, a1, a3, a4, a2, a5, n] + S2[a6, a1, a3, a4, a5, a2, n] + 
    S2[a6, a1, a3, a5, a4, a2, n] + S2[a6, a1, a4, a2, a3, a5, n] + 
    S2[a6, a1, a4, a3, a2, a5, n] + S2[a6, a1, a4, a3, a5, a2, n] + 
    S2[a6, a3, a1, a4, a2, a5, n] + S2[a6, a3, a1, a4, a5, a2, n] + 
    S2[a6, a3, a1, a5, a4, a2, n] + S2[a6, a3, a5, a1, a4, a2, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a5_, a3_, a6_, a2_, a1_, a4_, n_] :> 
  -(S2[a3, a5, n]*S2[a1, a2, a4, a6, n]) - S2[a3, a5, n]*
     S2[a1, a2, a6, a4, n] + S2[a1, a2, SP[a3, a4], SP[a5, a6], n] + 
    S2[a1, a2, SP[a3, a6], SP[a4, a5], n] - S2[a3, a5, n]*
     S2[a1, a4, a2, a6, n] + S2[a1, a4, SP[a2, a3], SP[a5, a6], n] + 
    S2[a1, SP[a2, a3], a4, SP[a5, a6], n] + S2[a1, SP[a2, a3], a6, 
     SP[a4, a5], n] + S2[a1, SP[a2, a3], SP[a4, a5], a6, n] + 
    S2[a1, SP[a2, a3], SP[a5, a6], a4, n] + S2[a1, SP[a3, a4], a2, 
     SP[a5, a6], n] + S2[a1, SP[a3, a4], SP[a2, a5], a6, n] - 
    S2[a1, a4, n]*S2[a2, a5, a3, a6, n] - S2[a1, a4, n]*
     S2[a2, a5, a6, a3, n] + S2[a2, a5, SP[a1, a3], SP[a4, a6], n] + 
    S2[a2, a5, SP[a1, a6], SP[a3, a4], n] - S2[a1, a4, n]*
     S2[a2, a6, a5, a3, n] + S2[a2, a6, SP[a1, a5], SP[a3, a4], n] + 
    S2[a2, SP[a1, a5], a3, SP[a4, a6], n] + S2[a2, SP[a1, a5], a6, 
     SP[a3, a4], n] + S2[a2, SP[a1, a5], SP[a3, a4], a6, n] + 
    S2[a2, SP[a1, a5], SP[a4, a6], a3, n] + S2[a2, SP[a1, a6], a5, 
     SP[a3, a4], n] + S2[a2, SP[a1, a6], SP[a4, a5], a3, n] + 
    S2[a1, a4, n]*S2[a3, a5, a2, a6, n] - S2[a3, a5, SP[a1, a2], SP[a4, a6], 
     n] - S2[a3, SP[a1, a5], a2, SP[a4, a6], n] - 
    S2[a3, SP[a1, a5], SP[a2, a4], a6, n] + S2[SP[a1, a2], a5, a3, 
     SP[a4, a6], n] + S2[SP[a1, a2], a5, a6, SP[a3, a4], n] + 
    S2[SP[a1, a2], a5, SP[a3, a4], a6, n] + S2[SP[a1, a2], a5, SP[a4, a6], 
     a3, n] + S2[SP[a1, a2], a6, a5, SP[a3, a4], n] + 
    S2[SP[a1, a2], a6, SP[a4, a5], a3, n] + S2[SP[a1, a2], SP[a4, a5], a3, 
     a6, n] + S2[SP[a1, a2], SP[a4, a5], a6, a3, n] + 
    S2[SP[a1, a2], SP[a4, a6], a5, a3, n] + S2[SP[a1, a3], a2, a4, 
     SP[a5, a6], n] + S2[SP[a1, a3], a2, a6, SP[a4, a5], n] + 
    S2[SP[a1, a3], a2, SP[a4, a5], a6, n] + S2[SP[a1, a3], a2, SP[a5, a6], 
     a4, n] + S2[SP[a1, a3], a4, a2, SP[a5, a6], n] + 
    S2[SP[a1, a3], a4, SP[a2, a5], a6, n] - S2[SP[a1, a3], a5, a2, 
     SP[a4, a6], n] - S2[SP[a1, a3], a5, SP[a2, a4], a6, n] + 
    S2[SP[a1, a3], SP[a2, a5], a4, a6, n] + S2[SP[a1, a3], SP[a2, a5], a6, 
     a4, n] - S2[a1, a2, a3, a4, SP[a5, a6], n] - 
    S2[a1, a2, a3, a6, SP[a4, a5], n] - S2[a1, a2, a3, SP[a4, a5], a6, n] - 
    S2[a1, a2, a3, SP[a5, a6], a4, n] - S2[a1, a2, a4, a3, SP[a5, a6], n] - 
    S2[a6, n]*S2[a1, a2, a4, a5, a3, n] + 
    S2[a3, n]*S2[a1, a2, a4, a5, a6, n] + 
    S2[a3, n]*S2[a1, a2, a4, a6, a5, n] + S2[a1, a2, a4, a6, SP[a3, a5], n] + 
    S2[a1, a2, a4, SP[a3, a5], a6, n] - S2[a1, a2, a4, SP[a5, a6], a3, n] - 
    S2[a6, n]*S2[a1, a2, a5, a3, a4, n] - 
    2*S2[a1, a2, a5, a3, SP[a4, a6], n] - 
    S2[a6, n]*S2[a1, a2, a5, a4, a3, n] + 
    S2[a3, n]*S2[a1, a2, a5, a4, a6, n] + 
    S2[a3, n]*S2[a1, a2, a5, a6, a4, n] - 
    2*S2[a1, a2, a5, SP[a4, a6], a3, n] - S2[a1, a2, a6, a3, SP[a4, a5], n] + 
    S2[a3, n]*S2[a1, a2, a6, a4, a5, n] + S2[a1, a2, a6, a4, SP[a3, a5], n] + 
    S2[a3, n]*S2[a1, a2, a6, a5, a4, n] + S2[a1, a2, a6, SP[a3, a5], a4, n] - 
    S2[a1, a2, a6, SP[a4, a5], a3, n] + S2[a1, a2, SP[a3, a5], a4, a6, n] + 
    S2[a1, a2, SP[a3, a5], a6, a4, n] - S2[a1, a2, SP[a4, a5], a3, a6, n] - 
    S2[a1, a2, SP[a4, a5], a6, a3, n] - 2*S2[a1, a2, SP[a4, a6], a5, a3, n] - 
    S2[a1, a2, SP[a5, a6], a3, a4, n] - S2[a1, a2, SP[a5, a6], a4, a3, n] - 
    S2[a1, a3, a2, a4, SP[a5, a6], n] - S2[a1, a3, a2, a6, SP[a4, a5], n] - 
    S2[a1, a3, a2, SP[a4, a5], a6, n] - S2[a1, a3, a2, SP[a5, a6], a4, n] - 
    S2[a1, a3, a4, a2, SP[a5, a6], n] - S2[a1, a3, a4, SP[a2, a5], a6, n] + 
    S2[a1, a3, a5, a2, SP[a4, a6], n] + S2[a1, a3, a5, SP[a2, a4], a6, n] - 
    S2[a1, a3, SP[a2, a5], a4, a6, n] - S2[a1, a3, SP[a2, a5], a6, a4, n] - 
    S2[a1, a4, a2, a3, SP[a5, a6], n] - S2[a6, n]*S2[a1, a4, a2, a5, a3, n] + 
    S2[a3, n]*S2[a1, a4, a2, a5, a6, n] + 
    S2[a3, n]*S2[a1, a4, a2, a6, a5, n] + S2[a1, a4, a2, a6, SP[a3, a5], n] + 
    S2[a1, a4, a2, SP[a3, a5], a6, n] - S2[a1, a4, a2, SP[a5, a6], a3, n] - 
    S2[a1, a4, a3, a2, SP[a5, a6], n] - S2[a1, a4, a3, SP[a2, a5], a6, n] - 
    S2[a6, n]*S2[a1, a4, a5, a2, a3, n] - S2[a1, a4, a5, a2, SP[a3, a6], n] - 
    S2[a6, n]*S2[a1, a4, a5, a3, a2, n] + 
    S2[a2, n]*S2[a1, a4, a5, a3, a6, n] + 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] + S2[a1, a4, a5, a6, SP[a2, a3], n] + 
    S2[a1, a4, a5, SP[a2, a3], a6, n] - S2[a1, a4, a5, SP[a3, a6], a2, n] + 
    S2[a2, n]*S2[a1, a4, a6, a5, a3, n] + S2[a1, a4, a6, a5, SP[a2, a3], n] + 
    S2[a1, a4, a6, SP[a2, a5], a3, n] + S2[a1, a4, SP[a2, a5], a3, a6, n] + 
    S2[a1, a4, SP[a2, a5], a6, a3, n] - S2[a1, a4, SP[a5, a6], a2, a3, n] - 
    S2[a1, a4, SP[a5, a6], a3, a2, n] - S2[a6, n]*S2[a1, a5, a2, a3, a4, n] - 
    S2[a1, a5, a2, a3, SP[a4, a6], n] - S2[a6, n]*S2[a1, a5, a2, a4, a3, n] - 
    S2[a1, a5, a2, a4, SP[a3, a6], n] - S2[a1, a5, a2, SP[a3, a6], a4, n] - 
    S2[a1, a5, a2, SP[a4, a6], a3, n] - S2[a6, n]*S2[a1, a5, a3, a2, a4, n] - 
    S2[a1, a5, a3, a2, SP[a4, a6], n] - S2[a6, n]*S2[a1, a5, a3, a4, a2, n] + 
    S2[a2, n]*S2[a1, a5, a3, a4, a6, n] + 
    S2[a2, n]*S2[a1, a5, a3, a6, a4, n] + S2[a1, a5, a3, a6, SP[a2, a4], n] + 
    S2[a1, a5, a3, SP[a2, a4], a6, n] - S2[a1, a5, a3, SP[a4, a6], a2, n] - 
    S2[a6, n]*S2[a1, a5, a4, a2, a3, n] - S2[a1, a5, a4, a2, SP[a3, a6], n] - 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] + 
    S2[a2, n]*S2[a1, a5, a4, a3, a6, n] + 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] + S2[a1, a5, a4, a6, SP[a2, a3], n] + 
    S2[a1, a5, a4, SP[a2, a3], a6, n] - S2[a1, a5, a4, SP[a3, a6], a2, n] + 
    S2[a2, n]*S2[a1, a5, a6, a3, a4, n] + S2[a1, a5, a6, a3, SP[a2, a4], n] + 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] + S2[a1, a5, a6, a4, SP[a2, a3], n] + 
    S2[a1, a5, a6, SP[a2, a3], a4, n] + S2[a1, a5, a6, SP[a2, a4], a3, n] + 
    S2[a1, a5, SP[a2, a3], a4, a6, n] + S2[a1, a5, SP[a2, a3], a6, a4, n] + 
    S2[a1, a5, SP[a2, a4], a3, a6, n] + S2[a1, a5, SP[a2, a4], a6, a3, n] - 
    S2[a1, a5, SP[a3, a6], a2, a4, n] - S2[a1, a5, SP[a3, a6], a4, a2, n] - 
    S2[a1, a5, SP[a4, a6], a2, a3, n] - S2[a1, a5, SP[a4, a6], a3, a2, n] + 
    S2[a2, n]*S2[a1, a6, a4, a5, a3, n] + S2[a1, a6, a4, a5, SP[a2, a3], n] + 
    S2[a1, a6, a4, SP[a2, a5], a3, n] + S2[a2, n]*S2[a1, a6, a5, a3, a4, n] + 
    S2[a1, a6, a5, a3, SP[a2, a4], n] + S2[a2, n]*S2[a1, a6, a5, a4, a3, n] + 
    S2[a1, a6, a5, a4, SP[a2, a3], n] + S2[a1, a6, a5, SP[a2, a3], a4, n] + 
    S2[a1, a6, a5, SP[a2, a4], a3, n] + S2[a1, a6, SP[a2, a4], a5, a3, n] + 
    S2[a1, a6, SP[a2, a5], a3, a4, n] + S2[a1, a6, SP[a2, a5], a4, a3, n] + 
    S2[a1, SP[a2, a5], a3, a4, a6, n] + S2[a1, SP[a2, a5], a3, a6, a4, n] + 
    S2[a1, SP[a2, a5], a4, a3, a6, n] + S2[a1, SP[a2, a5], a4, a6, a3, n] + 
    S2[a1, SP[a2, a5], a6, a3, a4, n] + S2[a1, SP[a2, a5], a6, a4, a3, n] - 
    S2[a1, SP[a4, a6], a2, a5, a3, n] - S2[a1, SP[a4, a6], a5, a2, a3, n] - 
    S2[a1, SP[a4, a6], a5, a3, a2, n] - S2[a1, SP[a5, a6], a2, a3, a4, n] - 
    S2[a1, SP[a5, a6], a2, a4, a3, n] - S2[a1, SP[a5, a6], a3, a2, a4, n] - 
    S2[a1, SP[a5, a6], a3, a4, a2, n] - S2[a1, SP[a5, a6], a4, a2, a3, n] - 
    S2[a1, SP[a5, a6], a4, a3, a2, n] - S2[a2, a1, a5, a3, SP[a4, a6], n] - 
    S2[a2, a1, a5, a6, SP[a3, a4], n] - S2[a2, a1, a5, SP[a3, a4], a6, n] - 
    S2[a2, a1, a5, SP[a4, a6], a3, n] - S2[a2, a1, a6, a5, SP[a3, a4], n] - 
    S2[a2, a1, a6, SP[a4, a5], a3, n] - S2[a2, a1, SP[a4, a5], a3, a6, n] - 
    S2[a2, a1, SP[a4, a5], a6, a3, n] - S2[a2, a1, SP[a4, a6], a5, a3, n] - 
    S2[a2, a5, a1, a3, SP[a4, a6], n] + S2[a3, n]*S2[a2, a5, a1, a4, a6, n] + 
    S2[a2, a5, a1, a4, SP[a3, a6], n] + S2[a3, n]*S2[a2, a5, a1, a6, a4, n] + 
    S2[a2, a5, a1, SP[a3, a6], a4, n] - S2[a2, a5, a1, SP[a4, a6], a3, n] - 
    S2[a2, a5, a3, a1, SP[a4, a6], n] - S2[a2, a5, a3, SP[a1, a6], a4, n] - 
    S2[a2, a5, a6, a1, SP[a3, a4], n] - S2[a2, a5, a6, SP[a1, a3], a4, n] - 
    S2[a2, a5, SP[a1, a6], a3, a4, n] - S2[a2, a5, SP[a1, a6], a4, a3, n] + 
    S2[a5, n]*S2[a2, a6, a1, a3, a4, n] + S2[a2, a6, a1, a3, SP[a4, a5], n] + 
    S2[a5, n]*S2[a2, a6, a1, a4, a3, n] + S2[a2, a6, a1, a4, SP[a3, a5], n] - 
    S2[a2, a6, a1, a5, SP[a3, a4], n] + S2[a2, a6, a1, SP[a3, a5], a4, n] + 
    S2[a5, n]*S2[a2, a6, a3, a1, a4, n] + S2[a2, a6, a3, a1, SP[a4, a5], n] + 
    S2[a2, a6, a3, SP[a1, a5], a4, n] - S2[a2, a6, a5, a1, SP[a3, a4], n] - 
    S2[a2, a6, a5, SP[a1, a3], a4, n] + S2[a2, a6, SP[a3, a5], a1, a4, n] - 
    S2[a2, SP[a1, a5], a3, a4, a6, n] - S2[a2, SP[a1, a5], a3, a6, a4, n] - 
    S2[a2, SP[a1, a5], a4, a3, a6, n] - S2[a2, SP[a1, a5], a4, a6, a3, n] - 
    S2[a2, SP[a1, a5], a6, a3, a4, n] - S2[a2, SP[a1, a5], a6, a4, a3, n] - 
    S2[a2, SP[a1, a6], a4, a5, a3, n] - S2[a2, SP[a1, a6], a5, a3, a4, n] - 
    S2[a2, SP[a1, a6], a5, a4, a3, n] + S2[a2, SP[a3, a5], a1, a4, a6, n] + 
    S2[a2, SP[a3, a5], a1, a6, a4, n] + S2[a2, SP[a5, a6], a1, a3, a4, n] + 
    S2[a2, SP[a5, a6], a1, a4, a3, n] + S2[a2, SP[a5, a6], a3, a1, a4, n] - 
    S2[a3, a1, a2, a4, SP[a5, a6], n] - S2[a3, a1, a2, a6, SP[a4, a5], n] - 
    S2[a3, a1, a2, SP[a4, a5], a6, n] - S2[a3, a1, a2, SP[a5, a6], a4, n] - 
    S2[a3, a1, a4, a2, SP[a5, a6], n] - S2[a3, a1, a4, SP[a2, a5], a6, n] + 
    S2[a3, a1, a5, a2, SP[a4, a6], n] + S2[a3, a1, a5, SP[a2, a4], a6, n] - 
    S2[a3, a1, SP[a2, a5], a4, a6, n] - S2[a3, a1, SP[a2, a5], a6, a4, n] + 
    S2[a6, n]*S2[a3, a5, a1, a2, a4, n] + 
    2*S2[a3, a5, a1, a2, SP[a4, a6], n] + 
    S2[a6, n]*S2[a3, a5, a1, a4, a2, n] - 
    S2[a2, n]*S2[a3, a5, a1, a4, a6, n] - 
    S2[a2, n]*S2[a3, a5, a1, a6, a4, n] - S2[a3, a5, a1, a6, SP[a2, a4], n] + 
    S2[a3, a5, a1, SP[a4, a6], a2, n] + S2[a3, a5, a2, a1, SP[a4, a6], n] + 
    S2[a3, a5, a2, SP[a1, a6], a4, n] + S2[a3, a5, SP[a1, a6], a2, a4, n] + 
    S2[a3, a5, SP[a1, a6], a4, a2, n] - S2[a5, n]*S2[a3, a6, a1, a2, a4, n] - 
    S2[a3, a6, a1, a2, SP[a4, a5], n] - S2[a5, n]*S2[a3, a6, a1, a4, a2, n] - 
    S2[a3, a6, a1, a4, SP[a2, a5], n] - S2[a3, a6, a1, SP[a2, a5], a4, n] - 
    S2[a3, a6, a1, SP[a4, a5], a2, n] - S2[a3, a6, SP[a1, a5], a2, a4, n] - 
    S2[a3, a6, SP[a1, a5], a4, a2, n] - S2[a3, SP[a2, a5], a1, a4, a6, n] - 
    S2[a3, SP[a2, a5], a1, a6, a4, n] - S2[a3, n]*S2[a5, a2, a6, a1, a4, n] - 
    S2[a5, a2, a6, a1, SP[a3, a4], n] - S2[a5, a2, a6, SP[a1, a3], a4, n] - 
    S2[a5, a2, SP[a3, a6], a1, a4, n] + S2[a2, n]*S2[a5, a3, a6, a1, a4, n] + 
    S2[a5, a3, a6, a1, SP[a2, a4], n] + S2[a5, a3, a6, SP[a1, a2], a4, n] + 
    S2[a5, a3, SP[a2, a6], a1, a4, n] + S2[a3, n]*S2[a6, a1, a2, a4, a5, n] + 
    S2[a6, a1, a2, a4, SP[a3, a5], n] + S2[a3, n]*S2[a6, a1, a2, a5, a4, n] + 
    S2[a6, a1, a2, a5, SP[a3, a4], n] + S2[a6, a1, a2, SP[a3, a4], a5, n] + 
    S2[a6, a1, a2, SP[a3, a5], a4, n] - S2[a2, n]*S2[a6, a1, a3, a4, a5, n] - 
    S2[a6, a1, a3, a4, SP[a2, a5], n] - S2[a2, n]*S2[a6, a1, a3, a5, a4, n] - 
    S2[a6, a1, a3, a5, SP[a2, a4], n] - S2[a6, a1, a3, SP[a2, a4], a5, n] - 
    S2[a6, a1, a3, SP[a2, a5], a4, n] + S2[a3, n]*S2[a6, a1, a4, a2, a5, n] + 
    S2[a6, a1, a4, a2, SP[a3, a5], n] - S2[a2, n]*S2[a6, a1, a4, a3, a5, n] - 
    S2[a6, a1, a4, a3, SP[a2, a5], n] + S2[a3, n]*S2[a6, a1, a4, a5, a2, n] + 
    S2[a6, a1, a4, a5, SP[a2, a3], n] + S2[a6, a1, a4, SP[a3, a5], a2, n] + 
    S2[a3, n]*S2[a6, a1, a5, a2, a4, n] + S2[a6, a1, a5, a2, SP[a3, a4], n] + 
    S2[a3, n]*S2[a6, a1, a5, a4, a2, n] + S2[a6, a1, a5, a4, SP[a2, a3], n] + 
    S2[a6, a1, a5, SP[a2, a3], a4, n] + S2[a6, a1, a5, SP[a3, a4], a2, n] - 
    S2[a6, a1, SP[a2, a4], a3, a5, n] + S2[a6, a1, SP[a3, a4], a2, a5, n] + 
    S2[a6, a1, SP[a3, a4], a5, a2, n] + S2[a6, a1, SP[a3, a5], a2, a4, n] + 
    S2[a6, a1, SP[a3, a5], a4, a2, n] - S2[a2, n]*S2[a6, a3, a1, a4, a5, n] - 
    S2[a6, a3, a1, a4, SP[a2, a5], n] - S2[a2, n]*S2[a6, a3, a1, a5, a4, n] - 
    S2[a6, a3, a1, a5, SP[a2, a4], n] - S2[a6, a3, a1, SP[a2, a4], a5, n] - 
    S2[a6, a3, a1, SP[a2, a5], a4, n] - S2[a2, n]*S2[a6, a3, a5, a1, a4, n] - 
    S2[a6, a3, a5, a1, SP[a2, a4], n] - S2[a6, a3, a5, SP[a1, a2], a4, n] - 
    S2[a6, a3, SP[a1, a2], a4, a5, n] - S2[a6, a3, SP[a1, a2], a5, a4, n] - 
    S2[a6, a3, SP[a2, a5], a1, a4, n] - S2[a6, SP[a1, a2], a3, a4, a5, n] - 
    S2[a6, SP[a1, a2], a3, a5, a4, n] - S2[a6, SP[a1, a2], a4, a3, a5, n] + 
    S2[a6, SP[a1, a3], a2, a4, a5, n] + S2[a6, SP[a1, a3], a2, a5, a4, n] + 
    S2[a6, SP[a1, a3], a4, a2, a5, n] + S2[a6, SP[a1, a3], a4, a5, a2, n] + 
    S2[a6, SP[a1, a3], a5, a2, a4, n] + S2[a6, SP[a1, a3], a5, a4, a2, n] - 
    S2[a6, SP[a2, a3], a1, a4, a5, n] - S2[a6, SP[a2, a3], a1, a5, a4, n] - 
    S2[a6, SP[a2, a3], a5, a1, a4, n] - S2[SP[a1, a6], a2, a4, a5, a3, n] - 
    S2[SP[a1, a6], a2, a5, a3, a4, n] - S2[SP[a1, a6], a2, a5, a4, a3, n] - 
    S2[SP[a1, a6], a4, a2, a5, a3, n] - S2[SP[a1, a6], a4, a5, a2, a3, n] - 
    S2[SP[a1, a6], a4, a5, a3, a2, n] - S2[SP[a1, a6], a5, a2, a3, a4, n] - 
    S2[SP[a1, a6], a5, a2, a4, a3, n] - S2[SP[a1, a6], a5, a3, a2, a4, n] - 
    S2[SP[a1, a6], a5, a3, a4, a2, n] - S2[SP[a1, a6], a5, a4, a2, a3, n] - 
    S2[SP[a1, a6], a5, a4, a3, a2, n] + S2[SP[a2, a5], a3, a6, a1, a4, n] + 
    S2[SP[a2, a5], a6, a1, a3, a4, n] + S2[SP[a2, a5], a6, a1, a4, a3, n] + 
    S2[SP[a2, a5], a6, a3, a1, a4, n] - S2[SP[a2, a6], a1, a3, a4, a5, n] - 
    S2[SP[a2, a6], a1, a3, a5, a4, n] - S2[SP[a2, a6], a1, a4, a3, a5, n] - 
    S2[SP[a2, a6], a3, a1, a4, a5, n] - S2[SP[a2, a6], a3, a1, a5, a4, n] - 
    S2[SP[a2, a6], a3, a5, a1, a4, n] - S2[SP[a3, a5], a2, a6, a1, a4, n] - 
    S2[SP[a3, a5], a6, a1, a2, a4, n] - S2[SP[a3, a5], a6, a1, a4, a2, n] + 
    S2[SP[a3, a6], a1, a2, a4, a5, n] + S2[SP[a3, a6], a1, a2, a5, a4, n] + 
    S2[SP[a3, a6], a1, a4, a2, a5, n] + S2[SP[a3, a6], a1, a4, a5, a2, n] + 
    S2[SP[a3, a6], a1, a5, a2, a4, n] + S2[SP[a3, a6], a1, a5, a4, a2, n] + 
    S2[SP[a3, a6], a5, a1, a2, a4, n] + S2[SP[a3, a6], a5, a1, a4, a2, n] + 
    S2[a6, a2, a1, a3, a4, a5, n] + S2[a6, a2, a1, a3, a5, a4, n] + 
    S2[a6, a2, a1, a4, a3, a5, n] + S2[a6, a2, a3, a1, a4, a5, n] + 
    S2[a6, a2, a3, a1, a5, a4, n] + S2[a6, a2, a3, a5, a1, a4, n] + 
    S2[a6, a3, a2, a1, a4, a5, n] + S2[a6, a3, a2, a1, a5, a4, n] + 
    S2[a6, a3, a2, a5, a1, a4, n] + S2[a6, a3, a5, a2, a1, a4, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a5_, a3_, a6_, a2_, a4_, a1_, n_] :> 
  S2[a3, a5, n]*S2[a1, a4, a2, a6, n] - S2[a1, a4, SP[a2, a3], SP[a5, a6], 
     n] - S2[a1, SP[a3, a4], a2, SP[a5, a6], n] - 
    S2[a1, SP[a3, a4], SP[a2, a5], a6, n] + S2[a1, a4, n]*
     S2[a2, a5, a3, a6, n] + S2[a1, a4, n]*S2[a2, a5, a6, a3, n] - 
    S2[a2, a5, SP[a1, a3], SP[a4, a6], n] - S2[a2, a5, SP[a1, a6], 
     SP[a3, a4], n] + S2[a1, a4, n]*S2[a2, a6, a5, a3, n] - 
    S2[a2, a6, SP[a1, a5], SP[a3, a4], n] - S2[a2, SP[a1, a5], a3, 
     SP[a4, a6], n] - S2[a2, SP[a1, a5], a6, SP[a3, a4], n] - 
    S2[a2, SP[a1, a5], SP[a3, a4], a6, n] - S2[a2, SP[a1, a5], SP[a4, a6], 
     a3, n] - S2[a2, SP[a1, a6], a5, SP[a3, a4], n] - 
    S2[a2, SP[a1, a6], SP[a4, a5], a3, n] - S2[a1, a4, n]*
     S2[a3, a5, a2, a6, n] + S2[a3, a5, SP[a1, a2], SP[a4, a6], n] + 
    S2[a3, SP[a1, a5], a2, SP[a4, a6], n] + S2[a3, SP[a1, a5], SP[a2, a4], 
     a6, n] - S2[SP[a1, a2], a5, a3, SP[a4, a6], n] - 
    S2[SP[a1, a2], a5, a6, SP[a3, a4], n] - S2[SP[a1, a2], a5, SP[a3, a4], 
     a6, n] - S2[SP[a1, a2], a5, SP[a4, a6], a3, n] - 
    S2[SP[a1, a2], a6, a5, SP[a3, a4], n] - S2[SP[a1, a2], a6, SP[a4, a5], 
     a3, n] - S2[SP[a1, a2], SP[a4, a5], a3, a6, n] - 
    S2[SP[a1, a2], SP[a4, a5], a6, a3, n] - S2[SP[a1, a2], SP[a4, a6], a5, 
     a3, n] - S2[SP[a1, a3], a4, a2, SP[a5, a6], n] - 
    S2[SP[a1, a3], a4, SP[a2, a5], a6, n] + S2[SP[a1, a3], a5, a2, 
     SP[a4, a6], n] + S2[SP[a1, a3], a5, SP[a2, a4], a6, n] + 
    S2[a1, a2, a5, a3, SP[a4, a6], n] + S2[a1, a2, a5, a6, SP[a3, a4], n] + 
    S2[a1, a2, a5, SP[a3, a4], a6, n] + S2[a1, a2, a5, SP[a4, a6], a3, n] + 
    S2[a1, a2, a6, a5, SP[a3, a4], n] + S2[a1, a2, a6, SP[a4, a5], a3, n] + 
    S2[a1, a2, SP[a4, a5], a3, a6, n] + S2[a1, a2, SP[a4, a5], a6, a3, n] + 
    S2[a1, a2, SP[a4, a6], a5, a3, n] + S2[a1, a3, a4, a2, SP[a5, a6], n] + 
    S2[a1, a3, a4, SP[a2, a5], a6, n] - S2[a1, a3, a5, a2, SP[a4, a6], n] - 
    S2[a1, a3, a5, SP[a2, a4], a6, n] + S2[a1, a4, a2, a3, SP[a5, a6], n] + 
    S2[a6, n]*S2[a1, a4, a2, a5, a3, n] - 
    S2[a3, n]*S2[a1, a4, a2, a5, a6, n] - 
    S2[a3, n]*S2[a1, a4, a2, a6, a5, n] - S2[a1, a4, a2, a6, SP[a3, a5], n] - 
    S2[a1, a4, a2, SP[a3, a5], a6, n] + S2[a1, a4, a2, SP[a5, a6], a3, n] + 
    S2[a1, a4, a3, a2, SP[a5, a6], n] + S2[a1, a4, a3, SP[a2, a5], a6, n] + 
    S2[a6, n]*S2[a1, a4, a5, a2, a3, n] + S2[a1, a4, a5, a2, SP[a3, a6], n] + 
    S2[a6, n]*S2[a1, a4, a5, a3, a2, n] - 
    S2[a2, n]*S2[a1, a4, a5, a3, a6, n] - 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] - S2[a1, a4, a5, a6, SP[a2, a3], n] - 
    S2[a1, a4, a5, SP[a2, a3], a6, n] + S2[a1, a4, a5, SP[a3, a6], a2, n] - 
    S2[a2, n]*S2[a1, a4, a6, a5, a3, n] - S2[a1, a4, a6, a5, SP[a2, a3], n] - 
    S2[a1, a4, a6, SP[a2, a5], a3, n] - S2[a1, a4, SP[a2, a5], a3, a6, n] - 
    S2[a1, a4, SP[a2, a5], a6, a3, n] + S2[a1, a4, SP[a5, a6], a2, a3, n] + 
    S2[a1, a4, SP[a5, a6], a3, a2, n] + S2[a3, n]*S2[a1, a5, a2, a4, a6, n] + 
    S2[a1, a5, a2, a4, SP[a3, a6], n] + S2[a3, n]*S2[a1, a5, a2, a6, a4, n] + 
    S2[a1, a5, a2, a6, SP[a3, a4], n] + S2[a1, a5, a2, SP[a3, a4], a6, n] + 
    S2[a1, a5, a2, SP[a3, a6], a4, n] + S2[a6, n]*S2[a1, a5, a3, a4, a2, n] - 
    S2[a2, n]*S2[a1, a5, a3, a4, a6, n] - 
    S2[a2, n]*S2[a1, a5, a3, a6, a4, n] - S2[a1, a5, a3, a6, SP[a2, a4], n] - 
    S2[a1, a5, a3, SP[a2, a4], a6, n] - S2[a1, a5, a3, SP[a2, a6], a4, n] + 
    S2[a1, a5, a3, SP[a4, a6], a2, n] + S2[a6, n]*S2[a1, a5, a4, a2, a3, n] + 
    S2[a1, a5, a4, a2, SP[a3, a6], n] + S2[a6, n]*S2[a1, a5, a4, a3, a2, n] - 
    S2[a2, n]*S2[a1, a5, a4, a3, a6, n] - 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] - S2[a1, a5, a4, a6, SP[a2, a3], n] - 
    S2[a1, a5, a4, SP[a2, a3], a6, n] + S2[a1, a5, a4, SP[a3, a6], a2, n] - 
    S2[a2, n]*S2[a1, a5, a6, a3, a4, n] - S2[a1, a5, a6, a3, SP[a2, a4], n] - 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] - S2[a1, a5, a6, a4, SP[a2, a3], n] - 
    S2[a1, a5, a6, SP[a2, a3], a4, n] - S2[a1, a5, a6, SP[a2, a4], a3, n] - 
    S2[a1, a5, SP[a2, a4], a3, a6, n] - S2[a1, a5, SP[a2, a4], a6, a3, n] - 
    S2[a1, a5, SP[a2, a6], a3, a4, n] - S2[a1, a5, SP[a2, a6], a4, a3, n] + 
    S2[a1, a5, SP[a3, a6], a4, a2, n] + S2[a1, a5, SP[a4, a6], a2, a3, n] + 
    S2[a1, a5, SP[a4, a6], a3, a2, n] + S2[a5, n]*S2[a1, a6, a2, a3, a4, n] + 
    S2[a1, a6, a2, a3, SP[a4, a5], n] + S2[a5, n]*S2[a1, a6, a2, a4, a3, n] + 
    S2[a1, a6, a2, a4, SP[a3, a5], n] + S2[a1, a6, a2, SP[a3, a5], a4, n] + 
    S2[a1, a6, a2, SP[a4, a5], a3, n] + S2[a5, n]*S2[a1, a6, a3, a2, a4, n] + 
    S2[a1, a6, a3, a2, SP[a4, a5], n] + S2[a1, a6, a3, SP[a2, a5], a4, n] - 
    S2[a2, n]*S2[a1, a6, a4, a5, a3, n] - S2[a1, a6, a4, a5, SP[a2, a3], n] - 
    S2[a1, a6, a4, SP[a2, a5], a3, n] - S2[a2, n]*S2[a1, a6, a5, a3, a4, n] - 
    S2[a1, a6, a5, a3, SP[a2, a4], n] - S2[a2, n]*S2[a1, a6, a5, a4, a3, n] - 
    S2[a1, a6, a5, a4, SP[a2, a3], n] - S2[a1, a6, a5, SP[a2, a3], a4, n] - 
    S2[a1, a6, a5, SP[a2, a4], a3, n] - S2[a1, a6, SP[a2, a4], a5, a3, n] + 
    S2[a1, a6, SP[a3, a5], a2, a4, n] - S2[a1, SP[a2, a5], a3, a4, a6, n] - 
    S2[a1, SP[a2, a5], a3, a6, a4, n] - S2[a1, SP[a2, a5], a4, a3, a6, n] - 
    S2[a1, SP[a2, a5], a4, a6, a3, n] - S2[a1, SP[a2, a5], a6, a3, a4, n] - 
    S2[a1, SP[a2, a5], a6, a4, a3, n] - S2[a1, SP[a2, a6], a4, a5, a3, n] - 
    S2[a1, SP[a2, a6], a5, a3, a4, n] - S2[a1, SP[a2, a6], a5, a4, a3, n] + 
    S2[a1, SP[a3, a5], a2, a4, a6, n] + S2[a1, SP[a3, a5], a2, a6, a4, n] + 
    S2[a1, SP[a4, a6], a2, a5, a3, n] + S2[a1, SP[a4, a6], a5, a2, a3, n] + 
    S2[a1, SP[a4, a6], a5, a3, a2, n] + S2[a1, SP[a5, a6], a2, a3, a4, n] + 
    S2[a1, SP[a5, a6], a2, a4, a3, n] + S2[a1, SP[a5, a6], a3, a2, a4, n] + 
    S2[a1, SP[a5, a6], a3, a4, a2, n] + S2[a1, SP[a5, a6], a4, a2, a3, n] + 
    S2[a1, SP[a5, a6], a4, a3, a2, n] + S2[a2, a1, a5, a3, SP[a4, a6], n] + 
    S2[a2, a1, a5, a6, SP[a3, a4], n] + S2[a2, a1, a5, SP[a3, a4], a6, n] + 
    S2[a2, a1, a5, SP[a4, a6], a3, n] + S2[a2, a1, a6, a5, SP[a3, a4], n] + 
    S2[a2, a1, a6, SP[a4, a5], a3, n] + S2[a2, a1, SP[a4, a5], a3, a6, n] + 
    S2[a2, a1, SP[a4, a5], a6, a3, n] + S2[a2, a1, SP[a4, a6], a5, a3, n] + 
    S2[a2, a5, a1, a3, SP[a4, a6], n] - S2[a3, n]*S2[a2, a5, a1, a4, a6, n] - 
    S2[a2, a5, a1, a4, SP[a3, a6], n] - S2[a3, n]*S2[a2, a5, a1, a6, a4, n] - 
    S2[a2, a5, a1, SP[a3, a6], a4, n] + S2[a2, a5, a1, SP[a4, a6], a3, n] + 
    S2[a2, a5, a3, a1, SP[a4, a6], n] + S2[a2, a5, a3, SP[a1, a6], a4, n] + 
    S2[a2, a5, a6, a1, SP[a3, a4], n] + S2[a2, a5, a6, SP[a1, a3], a4, n] + 
    S2[a2, a5, SP[a1, a6], a3, a4, n] + S2[a2, a5, SP[a1, a6], a4, a3, n] - 
    S2[a5, n]*S2[a2, a6, a1, a3, a4, n] - S2[a2, a6, a1, a3, SP[a4, a5], n] - 
    S2[a5, n]*S2[a2, a6, a1, a4, a3, n] - S2[a2, a6, a1, a4, SP[a3, a5], n] + 
    S2[a2, a6, a1, a5, SP[a3, a4], n] - S2[a2, a6, a1, SP[a3, a5], a4, n] - 
    S2[a5, n]*S2[a2, a6, a3, a1, a4, n] - S2[a2, a6, a3, a1, SP[a4, a5], n] - 
    S2[a2, a6, a3, SP[a1, a5], a4, n] + S2[a2, a6, a5, a1, SP[a3, a4], n] + 
    S2[a2, a6, a5, SP[a1, a3], a4, n] - S2[a2, a6, SP[a3, a5], a1, a4, n] + 
    S2[a2, SP[a1, a5], a3, a4, a6, n] + S2[a2, SP[a1, a5], a3, a6, a4, n] + 
    S2[a2, SP[a1, a5], a4, a3, a6, n] + S2[a2, SP[a1, a5], a4, a6, a3, n] + 
    S2[a2, SP[a1, a5], a6, a3, a4, n] + S2[a2, SP[a1, a5], a6, a4, a3, n] + 
    S2[a2, SP[a1, a6], a4, a5, a3, n] + S2[a2, SP[a1, a6], a5, a3, a4, n] + 
    S2[a2, SP[a1, a6], a5, a4, a3, n] - S2[a2, SP[a3, a5], a1, a4, a6, n] - 
    S2[a2, SP[a3, a5], a1, a6, a4, n] - S2[a2, SP[a5, a6], a1, a3, a4, n] - 
    S2[a2, SP[a5, a6], a1, a4, a3, n] - S2[a2, SP[a5, a6], a3, a1, a4, n] + 
    S2[a3, a1, a4, a2, SP[a5, a6], n] + S2[a3, a1, a4, SP[a2, a5], a6, n] - 
    S2[a3, a1, a5, a2, SP[a4, a6], n] - S2[a3, a1, a5, SP[a2, a4], a6, n] - 
    S2[a3, a5, a1, a2, SP[a4, a6], n] - S2[a6, n]*S2[a3, a5, a1, a4, a2, n] + 
    S2[a2, n]*S2[a3, a5, a1, a4, a6, n] + 
    S2[a2, n]*S2[a3, a5, a1, a6, a4, n] + S2[a3, a5, a1, a6, SP[a2, a4], n] + 
    S2[a3, a5, a1, SP[a2, a6], a4, n] - S2[a3, a5, a1, SP[a4, a6], a2, n] - 
    S2[a3, a5, a2, a1, SP[a4, a6], n] - S2[a3, a5, a2, SP[a1, a6], a4, n] - 
    S2[a3, a5, SP[a1, a6], a4, a2, n] + S2[a5, n]*S2[a3, a6, a1, a4, a2, n] + 
    S2[a3, a6, a1, a4, SP[a2, a5], n] + S2[a3, a6, a1, SP[a4, a5], a2, n] + 
    S2[a3, a6, SP[a1, a5], a4, a2, n] - S2[a3, SP[a1, a5], a2, a4, a6, n] - 
    S2[a3, SP[a1, a5], a2, a6, a4, n] + S2[a3, SP[a2, a5], a1, a4, a6, n] + 
    S2[a3, SP[a2, a5], a1, a6, a4, n] - S2[a3, n]*S2[a5, a1, a6, a2, a4, n] - 
    S2[a5, a1, a6, a2, SP[a3, a4], n] - S2[a5, a1, a6, SP[a2, a3], a4, n] - 
    S2[a5, a1, SP[a3, a6], a2, a4, n] + S2[a3, n]*S2[a5, a2, a6, a1, a4, n] + 
    S2[a5, a2, a6, a1, SP[a3, a4], n] + S2[a5, a2, a6, SP[a1, a3], a4, n] + 
    S2[a5, a2, SP[a3, a6], a1, a4, n] - S2[a2, n]*S2[a5, a3, a6, a1, a4, n] - 
    S2[a5, a3, a6, a1, SP[a2, a4], n] + S2[a1, n]*S2[a5, a3, a6, a2, a4, n] + 
    S2[a5, a3, a6, a2, SP[a1, a4], n] + S2[a5, a3, SP[a1, a6], a2, a4, n] - 
    S2[a5, a3, SP[a2, a6], a1, a4, n] + S2[a2, n]*S2[a6, a1, a3, a4, a5, n] + 
    S2[a6, a1, a3, a4, SP[a2, a5], n] + S2[a2, n]*S2[a6, a1, a3, a5, a4, n] + 
    S2[a6, a1, a3, a5, SP[a2, a4], n] + S2[a6, a1, a3, SP[a2, a4], a5, n] + 
    S2[a6, a1, a3, SP[a2, a5], a4, n] - S2[a3, n]*S2[a6, a1, a4, a2, a5, n] - 
    S2[a6, a1, a4, a2, SP[a3, a5], n] + S2[a2, n]*S2[a6, a1, a4, a3, a5, n] + 
    S2[a6, a1, a4, a3, SP[a2, a5], n] - S2[a3, n]*S2[a6, a1, a4, a5, a2, n] - 
    S2[a6, a1, a4, a5, SP[a2, a3], n] - S2[a6, a1, a4, SP[a3, a5], a2, n] - 
    S2[a3, n]*S2[a6, a1, a5, a4, a2, n] - S2[a6, a1, a5, a4, SP[a2, a3], n] - 
    S2[a6, a1, a5, SP[a3, a4], a2, n] + S2[a6, a1, SP[a2, a3], a4, a5, n] + 
    S2[a6, a1, SP[a2, a3], a5, a4, n] + S2[a6, a1, SP[a2, a4], a3, a5, n] - 
    S2[a6, a1, SP[a3, a4], a2, a5, n] - S2[a6, a1, SP[a3, a4], a5, a2, n] - 
    S2[a6, a1, SP[a3, a5], a4, a2, n] - S2[a1, n]*S2[a6, a2, a3, a4, a5, n] - 
    S2[a6, a2, a3, a4, SP[a1, a5], n] - S2[a1, n]*S2[a6, a2, a3, a5, a4, n] - 
    S2[a6, a2, a3, a5, SP[a1, a4], n] - S2[a6, a2, a3, SP[a1, a4], a5, n] - 
    S2[a6, a2, a3, SP[a1, a5], a4, n] - S2[a1, n]*S2[a6, a2, a4, a3, a5, n] - 
    S2[a6, a2, a4, a3, SP[a1, a5], n] - S2[a6, a2, a4, SP[a1, a3], a5, n] - 
    S2[a6, a2, SP[a1, a3], a4, a5, n] - S2[a6, a2, SP[a1, a3], a5, a4, n] - 
    S2[a6, a2, SP[a1, a4], a3, a5, n] + S2[a2, n]*S2[a6, a3, a1, a4, a5, n] + 
    S2[a6, a3, a1, a4, SP[a2, a5], n] + S2[a2, n]*S2[a6, a3, a1, a5, a4, n] + 
    S2[a6, a3, a1, a5, SP[a2, a4], n] + S2[a6, a3, a1, SP[a2, a4], a5, n] + 
    S2[a6, a3, a1, SP[a2, a5], a4, n] - S2[a1, n]*S2[a6, a3, a2, a4, a5, n] - 
    S2[a6, a3, a2, a4, SP[a1, a5], n] - S2[a1, n]*S2[a6, a3, a2, a5, a4, n] - 
    S2[a6, a3, a2, a5, SP[a1, a4], n] - S2[a6, a3, a2, SP[a1, a4], a5, n] - 
    S2[a6, a3, a2, SP[a1, a5], a4, n] + S2[a2, n]*S2[a6, a3, a5, a1, a4, n] + 
    S2[a6, a3, a5, a1, SP[a2, a4], n] - S2[a1, n]*S2[a6, a3, a5, a2, a4, n] - 
    S2[a6, a3, a5, a2, SP[a1, a4], n] - S2[a6, a3, SP[a1, a5], a2, a4, n] + 
    S2[a6, a3, SP[a2, a5], a1, a4, n] - S2[a6, SP[a1, a3], a2, a4, a5, n] - 
    S2[a6, SP[a1, a3], a2, a5, a4, n] - S2[a6, SP[a1, a3], a4, a2, a5, n] - 
    S2[a6, SP[a1, a3], a4, a5, a2, n] - S2[a6, SP[a1, a3], a5, a2, a4, n] - 
    S2[a6, SP[a1, a3], a5, a4, a2, n] + S2[a6, SP[a2, a3], a1, a4, a5, n] + 
    S2[a6, SP[a2, a3], a1, a5, a4, n] + S2[a6, SP[a2, a3], a5, a1, a4, n] + 
    S2[SP[a1, a5], a3, a6, a2, a4, n] + S2[SP[a1, a5], a6, a2, a3, a4, n] + 
    S2[SP[a1, a5], a6, a2, a4, a3, n] + S2[SP[a1, a5], a6, a3, a2, a4, n] - 
    S2[SP[a1, a6], a2, a3, a4, a5, n] - S2[SP[a1, a6], a2, a3, a5, a4, n] - 
    S2[SP[a1, a6], a2, a4, a3, a5, n] - S2[SP[a1, a6], a3, a2, a4, a5, n] - 
    S2[SP[a1, a6], a3, a2, a5, a4, n] - S2[SP[a1, a6], a3, a5, a2, a4, n] + 
    S2[SP[a1, a6], a4, a2, a5, a3, n] + S2[SP[a1, a6], a4, a5, a2, a3, n] + 
    S2[SP[a1, a6], a4, a5, a3, a2, n] + S2[SP[a1, a6], a5, a3, a4, a2, n] + 
    S2[SP[a1, a6], a5, a4, a2, a3, n] + S2[SP[a1, a6], a5, a4, a3, a2, n] - 
    S2[SP[a2, a5], a3, a6, a1, a4, n] - S2[SP[a2, a5], a6, a1, a3, a4, n] - 
    S2[SP[a2, a5], a6, a1, a4, a3, n] - S2[SP[a2, a5], a6, a3, a1, a4, n] + 
    S2[SP[a2, a6], a1, a3, a4, a5, n] + S2[SP[a2, a6], a1, a3, a5, a4, n] + 
    S2[SP[a2, a6], a1, a4, a3, a5, n] + S2[SP[a2, a6], a3, a1, a4, a5, n] + 
    S2[SP[a2, a6], a3, a1, a5, a4, n] + S2[SP[a2, a6], a3, a5, a1, a4, n] - 
    S2[SP[a3, a5], a1, a6, a2, a4, n] + S2[SP[a3, a5], a2, a6, a1, a4, n] + 
    S2[SP[a3, a5], a6, a1, a4, a2, n] - S2[SP[a3, a6], a1, a4, a2, a5, n] - 
    S2[SP[a3, a6], a1, a4, a5, a2, n] - S2[SP[a3, a6], a1, a5, a4, a2, n] - 
    S2[SP[a3, a6], a5, a1, a4, a2, n] + S2[a6, a2, a3, a4, a1, a5, n] + 
    S2[a6, a2, a3, a4, a5, a1, n] + S2[a6, a2, a3, a5, a4, a1, n] + 
    S2[a6, a2, a4, a1, a3, a5, n] + S2[a6, a2, a4, a3, a1, a5, n] + 
    S2[a6, a2, a4, a3, a5, a1, n] + S2[a6, a3, a2, a4, a1, a5, n] + 
    S2[a6, a3, a2, a4, a5, a1, n] + S2[a6, a3, a2, a5, a4, a1, n] + 
    S2[a6, a3, a5, a2, a4, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a5_, a3_, a6_, a4_, a1_, a2_, n_] :> 
  -(S2[a3, a5, n]*S2[a1, a2, a4, a6, n]) + S2[a1, a2, SP[a3, a4], SP[a5, a6], 
     n] - S2[a3, a5, n]*S2[a1, a4, a2, a6, n] - 
    S2[a3, a5, n]*S2[a1, a4, a6, a2, n] + S2[a1, a4, SP[a2, a3], SP[a5, a6], 
     n] + S2[a1, a4, SP[a3, a6], SP[a2, a5], n] + S2[a1, SP[a2, a3], a4, 
     SP[a5, a6], n] + S2[a1, SP[a2, a3], SP[a4, a5], a6, n] + 
    S2[a1, SP[a3, a4], a2, SP[a5, a6], n] + S2[a1, SP[a3, a4], a6, 
     SP[a2, a5], n] + S2[a1, SP[a3, a4], SP[a2, a5], a6, n] + 
    S2[a1, SP[a3, a4], SP[a5, a6], a2, n] - S2[a1, a2, n]*
     S2[a3, a5, a6, a4, n] + S2[a3, a5, SP[a1, a6], SP[a2, a4], n] - 
    S2[a1, a2, n]*S2[a3, a6, a4, a5, n] - S2[a1, a2, n]*
     S2[a3, a6, a5, a4, n] + S2[a3, a6, SP[a1, a4], SP[a2, a5], n] + 
    S2[a3, a6, SP[a1, a5], SP[a2, a4], n] + S2[a3, SP[a1, a5], a6, 
     SP[a2, a4], n] + S2[a3, SP[a1, a5], SP[a2, a6], a4, n] + 
    S2[a3, SP[a1, a6], a4, SP[a2, a5], n] + S2[a3, SP[a1, a6], a5, 
     SP[a2, a4], n] + S2[a3, SP[a1, a6], SP[a2, a4], a5, n] + 
    S2[a3, SP[a1, a6], SP[a2, a5], a4, n] + S2[a1, a2, n]*
     S2[a4, a6, a3, a5, n] - S2[a4, a6, SP[a1, a3], SP[a2, a5], n] - 
    S2[a4, SP[a1, a6], a3, SP[a2, a5], n] - S2[a4, SP[a1, a6], SP[a2, a3], 
     a5, n] + S2[SP[a1, a3], a2, a4, SP[a5, a6], n] + 
    S2[SP[a1, a3], a2, SP[a4, a5], a6, n] + S2[SP[a1, a3], a4, a2, 
     SP[a5, a6], n] + S2[SP[a1, a3], a4, a6, SP[a2, a5], n] + 
    S2[SP[a1, a3], a4, SP[a2, a5], a6, n] + S2[SP[a1, a3], a4, SP[a5, a6], 
     a2, n] + S2[SP[a1, a3], a5, a6, SP[a2, a4], n] + 
    S2[SP[a1, a3], a5, SP[a2, a6], a4, n] + S2[SP[a1, a3], a6, a4, 
     SP[a2, a5], n] + S2[SP[a1, a3], a6, a5, SP[a2, a4], n] + 
    S2[SP[a1, a3], a6, SP[a2, a4], a5, n] + S2[SP[a1, a3], a6, SP[a2, a5], 
     a4, n] + S2[SP[a1, a3], SP[a2, a5], a4, a6, n] + 
    S2[SP[a1, a3], SP[a2, a5], a6, a4, n] + S2[SP[a1, a3], SP[a2, a6], a4, 
     a5, n] + S2[SP[a1, a3], SP[a2, a6], a5, a4, n] + 
    S2[SP[a1, a3], SP[a4, a5], a2, a6, n] + S2[SP[a1, a3], SP[a4, a5], a6, 
     a2, n] - S2[SP[a1, a4], a6, a3, SP[a2, a5], n] - 
    S2[SP[a1, a4], a6, SP[a2, a3], a5, n] - S2[SP[a1, a4], SP[a2, a6], a3, 
     a5, n] - S2[a1, a2, a3, a4, SP[a5, a6], n] - S2[a1, a2, a3, SP[a4, a5], 
     a6, n] - S2[a1, a2, a4, a3, SP[a5, a6], n] - 
    S2[a6, n]*S2[a1, a2, a4, a5, a3, n] + 
    S2[a3, n]*S2[a1, a2, a4, a5, a6, n] + 
    S2[a3, n]*S2[a1, a2, a4, a6, a5, n] + S2[a1, a2, a4, a6, SP[a3, a5], n] + 
    S2[a1, a2, a4, SP[a3, a5], a6, n] - S2[a1, a2, a4, SP[a5, a6], a3, n] - 
    S2[a6, n]*S2[a1, a2, a5, a3, a4, n] - S2[a1, a2, a5, a3, SP[a4, a6], n] - 
    S2[a6, n]*S2[a1, a2, a5, a4, a3, n] + 
    S2[a3, n]*S2[a1, a2, a5, a4, a6, n] + 
    S2[a3, n]*S2[a1, a2, a5, a6, a4, n] + S2[a1, a2, a5, a6, SP[a3, a4], n] + 
    S2[a1, a2, a5, SP[a3, a4], a6, n] - S2[a1, a2, a5, SP[a4, a6], a3, n] - 
    S2[a4, n]*S2[a1, a2, a6, a3, a5, n] - S2[a1, a2, a6, a3, SP[a4, a5], n] + 
    S2[a3, n]*S2[a1, a2, a6, a4, a5, n] + S2[a1, a2, a6, a4, SP[a3, a5], n] + 
    S2[a3, n]*S2[a1, a2, a6, a5, a4, n] + S2[a1, a2, a6, a5, SP[a3, a4], n] + 
    S2[a1, a2, a6, SP[a3, a5], a4, n] + S2[a1, a2, SP[a3, a5], a4, a6, n] + 
    S2[a1, a2, SP[a3, a5], a6, a4, n] + S2[a1, a2, SP[a3, a6], a4, a5, n] + 
    S2[a1, a2, SP[a3, a6], a5, a4, n] - S2[a1, a2, SP[a4, a6], a3, a5, n] - 
    S2[a1, a2, SP[a4, a6], a5, a3, n] - S2[a1, a2, SP[a5, a6], a3, a4, n] - 
    S2[a1, a2, SP[a5, a6], a4, a3, n] - S2[a1, a3, a2, a4, SP[a5, a6], n] - 
    S2[a1, a3, a2, SP[a4, a5], a6, n] - S2[a1, a3, a4, a2, SP[a5, a6], n] - 
    S2[a1, a3, a4, a6, SP[a2, a5], n] - S2[a1, a3, a4, SP[a2, a5], a6, n] - 
    S2[a1, a3, a4, SP[a5, a6], a2, n] - S2[a1, a3, a5, a6, SP[a2, a4], n] - 
    S2[a1, a3, a5, SP[a2, a6], a4, n] - S2[a1, a3, a6, a4, SP[a2, a5], n] - 
    S2[a1, a3, a6, a5, SP[a2, a4], n] - S2[a1, a3, a6, SP[a2, a4], a5, n] - 
    S2[a1, a3, a6, SP[a2, a5], a4, n] - S2[a1, a3, SP[a2, a5], a4, a6, n] - 
    S2[a1, a3, SP[a2, a5], a6, a4, n] - S2[a1, a3, SP[a2, a6], a4, a5, n] - 
    S2[a1, a3, SP[a2, a6], a5, a4, n] - S2[a1, a3, SP[a4, a5], a2, a6, n] - 
    S2[a1, a3, SP[a4, a5], a6, a2, n] - S2[a1, a4, a2, a3, SP[a5, a6], n] - 
    S2[a6, n]*S2[a1, a4, a2, a5, a3, n] + 
    S2[a3, n]*S2[a1, a4, a2, a5, a6, n] + 
    S2[a3, n]*S2[a1, a4, a2, a6, a5, n] + S2[a1, a4, a2, a6, SP[a3, a5], n] + 
    S2[a1, a4, a2, SP[a3, a5], a6, n] - S2[a1, a4, a2, SP[a5, a6], a3, n] - 
    S2[a1, a4, a3, a2, SP[a5, a6], n] - S2[a1, a4, a3, a6, SP[a2, a5], n] - 
    S2[a1, a4, a3, SP[a2, a5], a6, n] - S2[a1, a4, a3, SP[a5, a6], a2, n] - 
    S2[a6, n]*S2[a1, a4, a5, a2, a3, n] + 
    S2[a3, n]*S2[a1, a4, a5, a2, a6, n] - 
    S2[a6, n]*S2[a1, a4, a5, a3, a2, n] - S2[a1, a4, a5, a3, SP[a2, a6], n] + 
    S2[a3, n]*S2[a1, a4, a5, a6, a2, n] + S2[a1, a4, a5, a6, SP[a2, a3], n] + 
    S2[a1, a4, a5, SP[a2, a3], a6, n] - S2[a1, a4, a5, SP[a2, a6], a3, n] + 
    S2[a3, n]*S2[a1, a4, a6, a2, a5, n] + S2[a1, a4, a6, a2, SP[a3, a5], n] + 
    S2[a3, n]*S2[a1, a4, a6, a5, a2, n] + S2[a1, a4, a6, a5, SP[a2, a3], n] + 
    S2[a1, a4, a6, SP[a2, a3], a5, n] + S2[a1, a4, a6, SP[a3, a5], a2, n] + 
    S2[a1, a4, SP[a2, a6], a3, a5, n] - S2[a1, a4, SP[a2, a6], a5, a3, n] + 
    S2[a1, a4, SP[a3, a5], a2, a6, n] + S2[a1, a4, SP[a3, a5], a6, a2, n] - 
    S2[a1, a4, SP[a5, a6], a2, a3, n] - S2[a1, a4, SP[a5, a6], a3, a2, n] - 
    S2[a6, n]*S2[a1, a5, a2, a3, a4, n] - S2[a1, a5, a2, a3, SP[a4, a6], n] - 
    S2[a6, n]*S2[a1, a5, a2, a4, a3, n] + 
    S2[a3, n]*S2[a1, a5, a2, a4, a6, n] + 
    S2[a3, n]*S2[a1, a5, a2, a6, a4, n] + S2[a1, a5, a2, a6, SP[a3, a4], n] + 
    S2[a1, a5, a2, SP[a3, a4], a6, n] - S2[a1, a5, a2, SP[a4, a6], a3, n] - 
    S2[a6, n]*S2[a1, a5, a3, a2, a4, n] - S2[a1, a5, a3, a2, SP[a4, a6], n] - 
    S2[a6, n]*S2[a1, a5, a3, a4, a2, n] - S2[a1, a5, a3, a4, SP[a2, a6], n] - 
    S2[a1, a5, a3, SP[a2, a6], a4, n] - S2[a1, a5, a3, SP[a4, a6], a2, n] - 
    S2[a6, n]*S2[a1, a5, a4, a2, a3, n] + 
    S2[a3, n]*S2[a1, a5, a4, a2, a6, n] - 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] - S2[a1, a5, a4, a3, SP[a2, a6], n] + 
    S2[a3, n]*S2[a1, a5, a4, a6, a2, n] + S2[a1, a5, a4, a6, SP[a2, a3], n] + 
    S2[a1, a5, a4, SP[a2, a3], a6, n] - S2[a1, a5, a4, SP[a2, a6], a3, n] + 
    S2[a3, n]*S2[a1, a5, a6, a2, a4, n] + S2[a1, a5, a6, a2, SP[a3, a4], n] + 
    S2[a3, n]*S2[a1, a5, a6, a4, a2, n] + S2[a1, a5, a6, a4, SP[a2, a3], n] + 
    S2[a1, a5, a6, SP[a2, a3], a4, n] + S2[a1, a5, a6, SP[a3, a4], a2, n] + 
    S2[a1, a5, SP[a2, a3], a4, a6, n] + S2[a1, a5, SP[a2, a3], a6, a4, n] - 
    S2[a1, a5, SP[a2, a6], a3, a4, n] - S2[a1, a5, SP[a2, a6], a4, a3, n] + 
    S2[a1, a5, SP[a3, a4], a2, a6, n] + S2[a1, a5, SP[a3, a4], a6, a2, n] - 
    S2[a1, a5, SP[a4, a6], a2, a3, n] - S2[a1, a5, SP[a4, a6], a3, a2, n] - 
    S2[a4, n]*S2[a1, a6, a2, a3, a5, n] - S2[a1, a6, a2, a3, SP[a4, a5], n] + 
    S2[a3, n]*S2[a1, a6, a2, a4, a5, n] + S2[a1, a6, a2, a4, SP[a3, a5], n] + 
    S2[a3, n]*S2[a1, a6, a2, a5, a4, n] + S2[a1, a6, a2, a5, SP[a3, a4], n] + 
    S2[a1, a6, a2, SP[a3, a5], a4, n] - S2[a4, n]*S2[a1, a6, a3, a2, a5, n] - 
    S2[a1, a6, a3, a2, SP[a4, a5], n] - S2[a4, n]*S2[a1, a6, a3, a5, a2, n] - 
    S2[a1, a6, a3, a5, SP[a2, a4], n] - S2[a1, a6, a3, SP[a2, a4], a5, n] - 
    S2[a1, a6, a3, SP[a4, a5], a2, n] + S2[a3, n]*S2[a1, a6, a4, a2, a5, n] + 
    S2[a1, a6, a4, a2, SP[a3, a5], n] + S2[a3, n]*S2[a1, a6, a4, a5, a2, n] + 
    S2[a1, a6, a4, a5, SP[a2, a3], n] + S2[a1, a6, a4, SP[a2, a3], a5, n] + 
    S2[a1, a6, a4, SP[a3, a5], a2, n] + S2[a3, n]*S2[a1, a6, a5, a2, a4, n] + 
    S2[a1, a6, a5, a2, SP[a3, a4], n] + S2[a3, n]*S2[a1, a6, a5, a4, a2, n] + 
    S2[a1, a6, a5, a4, SP[a2, a3], n] + S2[a1, a6, a5, SP[a2, a3], a4, n] + 
    S2[a1, a6, a5, SP[a3, a4], a2, n] + S2[a1, a6, SP[a2, a3], a4, a5, n] + 
    S2[a1, a6, SP[a2, a3], a5, a4, n] - S2[a1, a6, SP[a2, a4], a3, a5, n] + 
    S2[a1, a6, SP[a3, a5], a2, a4, n] + S2[a1, a6, SP[a3, a5], a4, a2, n] - 
    S2[a1, SP[a2, a6], a4, a5, a3, n] - S2[a1, SP[a2, a6], a5, a3, a4, n] - 
    S2[a1, SP[a2, a6], a5, a4, a3, n] + S2[a1, SP[a3, a5], a2, a4, a6, n] + 
    S2[a1, SP[a3, a5], a2, a6, a4, n] + S2[a1, SP[a3, a5], a4, a2, a6, n] + 
    S2[a1, SP[a3, a5], a4, a6, a2, n] + S2[a1, SP[a3, a5], a6, a2, a4, n] + 
    S2[a1, SP[a3, a5], a6, a4, a2, n] + S2[a1, SP[a3, a6], a2, a4, a5, n] + 
    S2[a1, SP[a3, a6], a2, a5, a4, n] + S2[a1, SP[a3, a6], a4, a2, a5, n] + 
    S2[a1, SP[a3, a6], a4, a5, a2, n] + S2[a1, SP[a3, a6], a5, a2, a4, n] + 
    S2[a1, SP[a3, a6], a5, a4, a2, n] - S2[a1, SP[a4, a6], a2, a3, a5, n] - 
    S2[a1, SP[a4, a6], a2, a5, a3, n] - S2[a1, SP[a4, a6], a3, a2, a5, n] - 
    S2[a1, SP[a4, a6], a3, a5, a2, n] - S2[a1, SP[a4, a6], a5, a2, a3, n] - 
    S2[a1, SP[a4, a6], a5, a3, a2, n] - S2[a1, SP[a5, a6], a2, a3, a4, n] - 
    S2[a1, SP[a5, a6], a2, a4, a3, n] - S2[a1, SP[a5, a6], a3, a2, a4, n] - 
    S2[a1, SP[a5, a6], a3, a4, a2, n] - S2[a1, SP[a5, a6], a4, a2, a3, n] - 
    S2[a1, SP[a5, a6], a4, a3, a2, n] - S2[a3, a1, a2, a4, SP[a5, a6], n] - 
    S2[a3, a1, a2, SP[a4, a5], a6, n] - S2[a3, a1, a4, a2, SP[a5, a6], n] - 
    S2[a3, a1, a4, a6, SP[a2, a5], n] - S2[a3, a1, a4, SP[a2, a5], a6, n] - 
    S2[a3, a1, a4, SP[a5, a6], a2, n] - S2[a3, a1, a5, a6, SP[a2, a4], n] - 
    S2[a3, a1, a5, SP[a2, a6], a4, n] - S2[a3, a1, a6, a4, SP[a2, a5], n] - 
    S2[a3, a1, a6, a5, SP[a2, a4], n] - S2[a3, a1, a6, SP[a2, a4], a5, n] - 
    S2[a3, a1, a6, SP[a2, a5], a4, n] - S2[a3, a1, SP[a2, a5], a4, a6, n] - 
    S2[a3, a1, SP[a2, a5], a6, a4, n] - S2[a3, a1, SP[a2, a6], a4, a5, n] - 
    S2[a3, a1, SP[a2, a6], a5, a4, n] - S2[a3, a1, SP[a4, a5], a2, a6, n] - 
    S2[a3, a1, SP[a4, a5], a6, a2, n] + S2[a6, n]*S2[a3, a5, a1, a2, a4, n] + 
    S2[a3, a5, a1, a2, SP[a4, a6], n] + S2[a6, n]*S2[a3, a5, a1, a4, a2, n] + 
    S2[a3, a5, a1, a4, SP[a2, a6], n] - S2[a3, a5, a1, a6, SP[a2, a4], n] + 
    S2[a3, a5, a1, SP[a4, a6], a2, n] - S2[a3, a5, a6, a1, SP[a2, a4], n] - 
    S2[a3, a5, a6, SP[a1, a4], a2, n] + S2[a4, n]*S2[a3, a6, a1, a2, a5, n] + 
    S2[a3, a6, a1, a2, SP[a4, a5], n] - S2[a3, a6, a1, a4, SP[a2, a5], n] + 
    S2[a4, n]*S2[a3, a6, a1, a5, a2, n] - S2[a3, a6, a1, SP[a2, a5], a4, n] + 
    S2[a3, a6, a1, SP[a4, a5], a2, n] + S2[a5, n]*S2[a3, a6, a4, a1, a2, n] - 
    S2[a3, a6, a5, a1, SP[a2, a4], n] - S2[a3, a6, a5, SP[a1, a4], a2, n] - 
    S2[a3, a6, SP[a1, a5], a2, a4, n] - S2[a3, a6, SP[a1, a5], a4, a2, n] + 
    S2[a3, a6, SP[a4, a5], a1, a2, n] - S2[a3, SP[a1, a5], a2, a4, a6, n] - 
    S2[a3, SP[a1, a5], a2, a6, a4, n] - S2[a3, SP[a1, a5], a4, a2, a6, n] - 
    S2[a3, SP[a1, a5], a4, a6, a2, n] - S2[a3, SP[a1, a5], a6, a2, a4, n] - 
    S2[a3, SP[a1, a5], a6, a4, a2, n] - S2[a3, SP[a1, a6], a2, a4, a5, n] - 
    S2[a3, SP[a1, a6], a2, a5, a4, n] - S2[a3, SP[a1, a6], a4, a2, a5, n] - 
    S2[a3, SP[a1, a6], a4, a5, a2, n] - S2[a3, SP[a1, a6], a5, a2, a4, n] - 
    S2[a3, SP[a1, a6], a5, a4, a2, n] + S2[a3, SP[a4, a6], a1, a2, a5, n] + 
    S2[a3, SP[a4, a6], a1, a5, a2, n] + S2[a3, SP[a5, a6], a1, a2, a4, n] + 
    S2[a3, SP[a5, a6], a1, a4, a2, n] + S2[a3, SP[a5, a6], a4, a1, a2, n] + 
    S2[a4, a1, a6, a3, SP[a2, a5], n] + S2[a4, a1, a6, SP[a2, a3], a5, n] + 
    S2[a4, a1, SP[a2, a6], a3, a5, n] - S2[a3, n]*S2[a4, a6, a1, a2, a5, n] - 
    S2[a4, a6, a1, a2, SP[a3, a5], n] + S2[a4, a6, a1, a3, SP[a2, a5], n] - 
    S2[a3, n]*S2[a4, a6, a1, a5, a2, n] - S2[a4, a6, a1, a5, SP[a2, a3], n] - 
    S2[a4, a6, a1, SP[a3, a5], a2, n] + S2[a4, a6, a3, a1, SP[a2, a5], n] + 
    S2[a4, a6, a3, SP[a1, a5], a2, n] + S2[a4, SP[a1, a6], a2, a3, a5, n] + 
    S2[a4, SP[a1, a6], a3, a2, a5, n] + S2[a4, SP[a1, a6], a3, a5, a2, n] - 
    S2[a4, SP[a3, a6], a1, a2, a5, n] - S2[a4, SP[a3, a6], a1, a5, a2, n] + 
    S2[a4, n]*S2[a6, a1, a2, a5, a3, n] + S2[a6, a1, a2, a5, SP[a3, a4], n] + 
    S2[a6, a1, a2, SP[a4, a5], a3, n] + S2[a4, n]*S2[a6, a1, a5, a2, a3, n] + 
    S2[a6, a1, a5, a2, SP[a3, a4], n] + S2[a4, n]*S2[a6, a1, a5, a3, a2, n] + 
    S2[a6, a1, a5, a3, SP[a2, a4], n] + S2[a6, a1, a5, SP[a2, a4], a3, n] + 
    S2[a6, a1, a5, SP[a3, a4], a2, n] + S2[a6, a1, SP[a2, a4], a5, a3, n] + 
    S2[a6, a1, SP[a4, a5], a2, a3, n] + S2[a6, a1, SP[a4, a5], a3, a2, n] - 
    S2[a4, n]*S2[a6, a3, a5, a1, a2, n] - S2[a6, a3, a5, a1, SP[a2, a4], n] - 
    S2[a6, a3, a5, SP[a1, a4], a2, n] - S2[a6, a3, SP[a4, a5], a1, a2, n] - 
    S2[a3, n]*S2[a6, a4, a1, a2, a5, n] - S2[a6, a4, a1, a2, SP[a3, a5], n] - 
    S2[a3, n]*S2[a6, a4, a1, a5, a2, n] - S2[a6, a4, a1, a5, SP[a2, a3], n] - 
    S2[a6, a4, a1, SP[a2, a3], a5, n] - S2[a6, a4, a1, SP[a3, a5], a2, n] - 
    S2[a6, a4, SP[a1, a3], a2, a5, n] - S2[a6, a4, SP[a1, a3], a5, a2, n] + 
    S2[a6, SP[a1, a4], a2, a5, a3, n] + S2[a6, SP[a1, a4], a5, a2, a3, n] + 
    S2[a6, SP[a1, a4], a5, a3, a2, n] - S2[a6, SP[a3, a4], a1, a2, a5, n] - 
    S2[a6, SP[a3, a4], a1, a5, a2, n] - S2[a6, SP[a3, a4], a5, a1, a2, n] - 
    S2[SP[a1, a6], a2, a4, a5, a3, n] - S2[SP[a1, a6], a2, a5, a3, a4, n] - 
    S2[SP[a1, a6], a2, a5, a4, a3, n] - S2[SP[a1, a6], a4, a2, a5, a3, n] - 
    S2[SP[a1, a6], a4, a5, a2, a3, n] - S2[SP[a1, a6], a4, a5, a3, a2, n] - 
    S2[SP[a1, a6], a5, a2, a3, a4, n] - S2[SP[a1, a6], a5, a2, a4, a3, n] - 
    S2[SP[a1, a6], a5, a3, a2, a4, n] - S2[SP[a1, a6], a5, a3, a4, a2, n] - 
    S2[SP[a1, a6], a5, a4, a2, a3, n] - S2[SP[a1, a6], a5, a4, a3, a2, n] + 
    S2[SP[a3, a5], a6, a4, a1, a2, n] - S2[SP[a3, a6], a4, a1, a2, a5, n] - 
    S2[SP[a3, a6], a4, a1, a5, a2, n] + S2[SP[a3, a6], a5, a1, a2, a4, n] + 
    S2[SP[a3, a6], a5, a1, a4, a2, n] + S2[SP[a4, a6], a1, a2, a5, a3, n] + 
    S2[SP[a4, a6], a1, a5, a2, a3, n] + S2[SP[a4, a6], a1, a5, a3, a2, n] - 
    S2[SP[a4, a6], a3, a5, a1, a2, n] + S2[a6, a3, a4, a1, a2, a5, n] + 
    S2[a6, a3, a4, a1, a5, a2, n] + S2[a6, a3, a4, a5, a1, a2, n] + 
    S2[a6, a3, a5, a4, a1, a2, n] + S2[a6, a4, a1, a2, a3, a5, n] + 
    S2[a6, a4, a1, a3, a2, a5, n] + S2[a6, a4, a1, a3, a5, a2, n] + 
    S2[a6, a4, a3, a1, a2, a5, n] + S2[a6, a4, a3, a1, a5, a2, n] + 
    S2[a6, a4, a3, a5, a1, a2, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a5_, a3_, a6_, a4_, a2_, a1_, n_] :> 
  S2[a3, a5, n]*S2[a1, a2, a4, a6, n] - S2[a1, a2, SP[a3, a4], SP[a5, a6], 
     n] - S2[a1, SP[a2, a3], a4, SP[a5, a6], n] - 
    S2[a1, SP[a2, a3], SP[a4, a5], a6, n] + S2[a1, a2, n]*
     S2[a3, a5, a6, a4, n] - S2[a3, a5, SP[a1, a6], SP[a2, a4], n] + 
    S2[a1, a2, n]*S2[a3, a6, a4, a5, n] + S2[a1, a2, n]*
     S2[a3, a6, a5, a4, n] - S2[a3, a6, SP[a1, a4], SP[a2, a5], n] - 
    S2[a3, a6, SP[a1, a5], SP[a2, a4], n] - S2[a3, SP[a1, a5], a6, 
     SP[a2, a4], n] - S2[a3, SP[a1, a5], SP[a2, a6], a4, n] - 
    S2[a3, SP[a1, a6], a4, SP[a2, a5], n] - S2[a3, SP[a1, a6], a5, 
     SP[a2, a4], n] - S2[a3, SP[a1, a6], SP[a2, a4], a5, n] - 
    S2[a3, SP[a1, a6], SP[a2, a5], a4, n] - S2[a1, a2, n]*
     S2[a4, a6, a3, a5, n] + S2[a4, a6, SP[a1, a3], SP[a2, a5], n] + 
    S2[a4, SP[a1, a6], a3, SP[a2, a5], n] + S2[a4, SP[a1, a6], SP[a2, a3], 
     a5, n] - S2[SP[a1, a3], a2, a4, SP[a5, a6], n] - 
    S2[SP[a1, a3], a2, SP[a4, a5], a6, n] - S2[SP[a1, a3], a5, a6, 
     SP[a2, a4], n] - S2[SP[a1, a3], a5, SP[a2, a6], a4, n] - 
    S2[SP[a1, a3], a6, a4, SP[a2, a5], n] - S2[SP[a1, a3], a6, a5, 
     SP[a2, a4], n] - S2[SP[a1, a3], a6, SP[a2, a4], a5, n] - 
    S2[SP[a1, a3], a6, SP[a2, a5], a4, n] - S2[SP[a1, a3], SP[a2, a5], a4, 
     a6, n] - S2[SP[a1, a3], SP[a2, a5], a6, a4, n] - 
    S2[SP[a1, a3], SP[a2, a6], a4, a5, n] - S2[SP[a1, a3], SP[a2, a6], a5, 
     a4, n] + S2[SP[a1, a4], a6, a3, SP[a2, a5], n] + 
    S2[SP[a1, a4], a6, SP[a2, a3], a5, n] + S2[SP[a1, a4], SP[a2, a6], a3, 
     a5, n] + S2[a1, a2, a3, a4, SP[a5, a6], n] + S2[a1, a2, a3, SP[a4, a5], 
     a6, n] + S2[a1, a2, a4, a3, SP[a5, a6], n] + 
    S2[a6, n]*S2[a1, a2, a4, a5, a3, n] - 
    S2[a3, n]*S2[a1, a2, a4, a5, a6, n] - 
    S2[a3, n]*S2[a1, a2, a4, a6, a5, n] - S2[a1, a2, a4, a6, SP[a3, a5], n] - 
    S2[a1, a2, a4, SP[a3, a5], a6, n] + S2[a1, a2, a4, SP[a5, a6], a3, n] + 
    S2[a6, n]*S2[a1, a2, a5, a3, a4, n] + S2[a1, a2, a5, a3, SP[a4, a6], n] + 
    S2[a6, n]*S2[a1, a2, a5, a4, a3, n] - 
    S2[a3, n]*S2[a1, a2, a5, a4, a6, n] - 
    S2[a3, n]*S2[a1, a2, a5, a6, a4, n] - S2[a1, a2, a5, a6, SP[a3, a4], n] - 
    S2[a1, a2, a5, SP[a3, a4], a6, n] + S2[a1, a2, a5, SP[a4, a6], a3, n] + 
    S2[a4, n]*S2[a1, a2, a6, a3, a5, n] + S2[a1, a2, a6, a3, SP[a4, a5], n] - 
    S2[a3, n]*S2[a1, a2, a6, a4, a5, n] - S2[a1, a2, a6, a4, SP[a3, a5], n] - 
    S2[a3, n]*S2[a1, a2, a6, a5, a4, n] - S2[a1, a2, a6, a5, SP[a3, a4], n] - 
    S2[a1, a2, a6, SP[a3, a5], a4, n] - S2[a1, a2, SP[a3, a5], a4, a6, n] - 
    S2[a1, a2, SP[a3, a5], a6, a4, n] - S2[a1, a2, SP[a3, a6], a4, a5, n] - 
    S2[a1, a2, SP[a3, a6], a5, a4, n] + S2[a1, a2, SP[a4, a6], a3, a5, n] + 
    S2[a1, a2, SP[a4, a6], a5, a3, n] + S2[a1, a2, SP[a5, a6], a3, a4, n] + 
    S2[a1, a2, SP[a5, a6], a4, a3, n] + S2[a1, a3, a2, a4, SP[a5, a6], n] + 
    S2[a1, a3, a2, SP[a4, a5], a6, n] + S2[a1, a3, a5, a6, SP[a2, a4], n] + 
    S2[a1, a3, a5, SP[a2, a6], a4, n] + S2[a1, a3, a6, a4, SP[a2, a5], n] + 
    S2[a1, a3, a6, a5, SP[a2, a4], n] + S2[a1, a3, a6, SP[a2, a4], a5, n] + 
    S2[a1, a3, a6, SP[a2, a5], a4, n] + S2[a1, a3, SP[a2, a5], a4, a6, n] + 
    S2[a1, a3, SP[a2, a5], a6, a4, n] + S2[a1, a3, SP[a2, a6], a4, a5, n] + 
    S2[a1, a3, SP[a2, a6], a5, a4, n] - S2[a1, a4, a6, a3, SP[a2, a5], n] - 
    S2[a1, a4, a6, SP[a2, a3], a5, n] - S2[a1, a4, SP[a2, a6], a3, a5, n] + 
    S2[a6, n]*S2[a1, a5, a2, a3, a4, n] + S2[a1, a5, a2, a3, SP[a4, a6], n] + 
    S2[a6, n]*S2[a1, a5, a2, a4, a3, n] - 
    S2[a3, n]*S2[a1, a5, a2, a4, a6, n] - 
    S2[a3, n]*S2[a1, a5, a2, a6, a4, n] - S2[a1, a5, a2, a6, SP[a3, a4], n] - 
    S2[a1, a5, a2, SP[a3, a4], a6, n] + S2[a1, a5, a2, SP[a4, a6], a3, n] + 
    S2[a6, n]*S2[a1, a5, a3, a2, a4, n] + S2[a1, a5, a3, a2, SP[a4, a6], n] + 
    S2[a1, a5, a3, SP[a2, a6], a4, n] - S2[a3, n]*S2[a1, a5, a6, a2, a4, n] - 
    S2[a1, a5, a6, a2, SP[a3, a4], n] - S2[a3, n]*S2[a1, a5, a6, a4, a2, n] - 
    S2[a1, a5, a6, a4, SP[a2, a3], n] - S2[a1, a5, a6, SP[a2, a3], a4, n] - 
    S2[a1, a5, a6, SP[a3, a4], a2, n] - S2[a1, a5, SP[a2, a3], a4, a6, n] - 
    S2[a1, a5, SP[a2, a3], a6, a4, n] + S2[a1, a5, SP[a2, a6], a3, a4, n] + 
    S2[a1, a5, SP[a2, a6], a4, a3, n] - S2[a1, a5, SP[a3, a6], a4, a2, n] + 
    S2[a4, n]*S2[a1, a6, a2, a3, a5, n] + S2[a1, a6, a2, a3, SP[a4, a5], n] - 
    S2[a3, n]*S2[a1, a6, a2, a4, a5, n] - S2[a1, a6, a2, a4, SP[a3, a5], n] - 
    S2[a3, n]*S2[a1, a6, a2, a5, a4, n] - S2[a1, a6, a2, a5, SP[a3, a4], n] - 
    S2[a1, a6, a2, SP[a3, a5], a4, n] + S2[a4, n]*S2[a1, a6, a3, a2, a5, n] + 
    S2[a1, a6, a3, a2, SP[a4, a5], n] + S2[a5, n]*S2[a1, a6, a3, a4, a2, n] + 
    S2[a1, a6, a3, a4, SP[a2, a5], n] + S2[a4, n]*S2[a1, a6, a3, a5, a2, n] + 
    S2[a1, a6, a3, a5, SP[a2, a4], n] + S2[a1, a6, a3, SP[a2, a4], a5, n] + 
    2*S2[a1, a6, a3, SP[a4, a5], a2, n] + 
    S2[a5, n]*S2[a1, a6, a4, a2, a3, n] - 
    S2[a3, n]*S2[a1, a6, a4, a2, a5, n] + 
    S2[a5, n]*S2[a1, a6, a4, a3, a2, n] + S2[a1, a6, a4, a3, SP[a2, a5], n] - 
    S2[a3, n]*S2[a1, a6, a4, a5, a2, n] - S2[a1, a6, a4, a5, SP[a2, a3], n] - 
    S2[a1, a6, a4, SP[a2, a3], a5, n] + S2[a1, a6, a4, SP[a2, a5], a3, n] - 
    S2[a3, n]*S2[a1, a6, a5, a2, a4, n] - S2[a1, a6, a5, a2, SP[a3, a4], n] - 
    S2[a3, n]*S2[a1, a6, a5, a4, a2, n] - S2[a1, a6, a5, a4, SP[a2, a3], n] - 
    S2[a1, a6, a5, SP[a2, a3], a4, n] - S2[a1, a6, a5, SP[a3, a4], a2, n] - 
    S2[a1, a6, SP[a2, a3], a4, a5, n] - S2[a1, a6, SP[a2, a3], a5, a4, n] + 
    S2[a1, a6, SP[a2, a4], a3, a5, n] - S2[a1, a6, SP[a3, a5], a2, a4, n] + 
    S2[a1, a6, SP[a4, a5], a2, a3, n] + S2[a1, a6, SP[a4, a5], a3, a2, n] + 
    S2[a1, SP[a2, a6], a4, a5, a3, n] + S2[a1, SP[a2, a6], a5, a3, a4, n] + 
    S2[a1, SP[a2, a6], a5, a4, a3, n] - S2[a1, SP[a3, a5], a2, a4, a6, n] - 
    S2[a1, SP[a3, a5], a2, a6, a4, n] - S2[a1, SP[a3, a5], a6, a2, a4, n] - 
    S2[a1, SP[a3, a5], a6, a4, a2, n] - S2[a1, SP[a3, a6], a2, a4, a5, n] - 
    S2[a1, SP[a3, a6], a2, a5, a4, n] - S2[a1, SP[a3, a6], a4, a2, a5, n] - 
    S2[a1, SP[a3, a6], a4, a5, a2, n] - S2[a1, SP[a3, a6], a5, a2, a4, n] - 
    S2[a1, SP[a3, a6], a5, a4, a2, n] + S2[a1, SP[a4, a6], a2, a3, a5, n] + 
    S2[a1, SP[a4, a6], a3, a2, a5, n] + S2[a1, SP[a4, a6], a3, a5, a2, n] + 
    S2[a1, SP[a5, a6], a2, a3, a4, n] + S2[a1, SP[a5, a6], a2, a4, a3, n] + 
    S2[a1, SP[a5, a6], a3, a2, a4, n] + S2[a1, SP[a5, a6], a3, a4, a2, n] + 
    S2[a1, SP[a5, a6], a4, a2, a3, n] + S2[a1, SP[a5, a6], a4, a3, a2, n] + 
    S2[a3, a1, a2, a4, SP[a5, a6], n] + S2[a3, a1, a2, SP[a4, a5], a6, n] + 
    S2[a3, a1, a5, a6, SP[a2, a4], n] + S2[a3, a1, a5, SP[a2, a6], a4, n] + 
    S2[a3, a1, a6, a4, SP[a2, a5], n] + S2[a3, a1, a6, a5, SP[a2, a4], n] + 
    S2[a3, a1, a6, SP[a2, a4], a5, n] + S2[a3, a1, a6, SP[a2, a5], a4, n] + 
    S2[a3, a1, SP[a2, a5], a4, a6, n] + S2[a3, a1, SP[a2, a5], a6, a4, n] + 
    S2[a3, a1, SP[a2, a6], a4, a5, n] + S2[a3, a1, SP[a2, a6], a5, a4, n] - 
    S2[a6, n]*S2[a3, a5, a1, a2, a4, n] - S2[a3, a5, a1, a2, SP[a4, a6], n] + 
    S2[a3, a5, a1, a6, SP[a2, a4], n] + S2[a3, a5, a6, a1, SP[a2, a4], n] + 
    S2[a3, a5, a6, SP[a1, a4], a2, n] + S2[a3, a5, SP[a1, a6], a4, a2, n] - 
    S2[a4, n]*S2[a3, a6, a1, a2, a5, n] - S2[a3, a6, a1, a2, SP[a4, a5], n] - 
    S2[a5, n]*S2[a3, a6, a1, a4, a2, n] - 
    S2[a4, n]*S2[a3, a6, a1, a5, a2, n] + S2[a3, a6, a1, SP[a2, a5], a4, n] - 
    2*S2[a3, a6, a1, SP[a4, a5], a2, n] - 
    S2[a5, n]*S2[a3, a6, a4, a1, a2, n] + S2[a3, a6, a5, a1, SP[a2, a4], n] + 
    S2[a3, a6, a5, SP[a1, a4], a2, n] + S2[a3, a6, SP[a1, a5], a2, a4, n] - 
    S2[a3, a6, SP[a4, a5], a1, a2, n] + S2[a3, SP[a1, a5], a2, a4, a6, n] + 
    S2[a3, SP[a1, a5], a2, a6, a4, n] + S2[a3, SP[a1, a5], a6, a2, a4, n] + 
    S2[a3, SP[a1, a5], a6, a4, a2, n] + S2[a3, SP[a1, a6], a2, a4, a5, n] + 
    S2[a3, SP[a1, a6], a2, a5, a4, n] + S2[a3, SP[a1, a6], a4, a2, a5, n] + 
    S2[a3, SP[a1, a6], a4, a5, a2, n] + S2[a3, SP[a1, a6], a5, a2, a4, n] + 
    S2[a3, SP[a1, a6], a5, a4, a2, n] - S2[a3, SP[a4, a6], a1, a2, a5, n] - 
    S2[a3, SP[a4, a6], a1, a5, a2, n] - S2[a3, SP[a5, a6], a1, a2, a4, n] - 
    S2[a3, SP[a5, a6], a1, a4, a2, n] - S2[a3, SP[a5, a6], a4, a1, a2, n] - 
    S2[a4, a1, a6, a3, SP[a2, a5], n] - S2[a4, a1, a6, SP[a2, a3], a5, n] - 
    S2[a4, a1, SP[a2, a6], a3, a5, n] + S2[a3, n]*S2[a4, a6, a1, a2, a5, n] + 
    S2[a4, a6, a1, a2, SP[a3, a5], n] - S2[a4, a6, a1, a3, SP[a2, a5], n] + 
    S2[a3, n]*S2[a4, a6, a1, a5, a2, n] + S2[a4, a6, a1, a5, SP[a2, a3], n] + 
    S2[a4, a6, a1, SP[a3, a5], a2, n] - S2[a4, a6, a3, a1, SP[a2, a5], n] - 
    S2[a4, a6, a3, SP[a1, a5], a2, n] - S2[a4, SP[a1, a6], a2, a3, a5, n] - 
    S2[a4, SP[a1, a6], a3, a2, a5, n] - S2[a4, SP[a1, a6], a3, a5, a2, n] + 
    S2[a4, SP[a3, a6], a1, a2, a5, n] + S2[a4, SP[a3, a6], a1, a5, a2, n] - 
    S2[a3, n]*S2[a5, a1, a6, a4, a2, n] - S2[a5, a1, a6, a4, SP[a2, a3], n] - 
    S2[a5, a1, a6, SP[a3, a4], a2, n] - S2[a5, a1, SP[a3, a6], a4, a2, n] + 
    S2[a1, n]*S2[a5, a3, a6, a4, a2, n] + S2[a5, a3, a6, a4, SP[a1, a2], n] + 
    S2[a5, a3, a6, SP[a1, a4], a2, n] + S2[a5, a3, SP[a1, a6], a4, a2, n] - 
    S2[a4, n]*S2[a6, a1, a2, a5, a3, n] - S2[a6, a1, a2, a5, SP[a3, a4], n] - 
    S2[a6, a1, a2, SP[a4, a5], a3, n] + S2[a3, n]*S2[a6, a1, a4, a2, a5, n] + 
    S2[a6, a1, a4, a2, SP[a3, a5], n] + S2[a3, n]*S2[a6, a1, a4, a5, a2, n] + 
    S2[a6, a1, a4, a5, SP[a2, a3], n] + S2[a6, a1, a4, SP[a2, a3], a5, n] + 
    S2[a6, a1, a4, SP[a3, a5], a2, n] - S2[a4, n]*S2[a6, a1, a5, a2, a3, n] - 
    S2[a6, a1, a5, a2, SP[a3, a4], n] - S2[a4, n]*S2[a6, a1, a5, a3, a2, n] - 
    S2[a6, a1, a5, a3, SP[a2, a4], n] + S2[a3, n]*S2[a6, a1, a5, a4, a2, n] + 
    S2[a6, a1, a5, a4, SP[a2, a3], n] - S2[a6, a1, a5, SP[a2, a4], a3, n] - 
    S2[a6, a1, SP[a2, a4], a5, a3, n] + S2[a6, a1, SP[a3, a4], a2, a5, n] + 
    S2[a6, a1, SP[a3, a4], a5, a2, n] + S2[a6, a1, SP[a3, a5], a4, a2, n] - 
    S2[a6, a1, SP[a4, a5], a2, a3, n] - S2[a6, a1, SP[a4, a5], a3, a2, n] - 
    S2[a1, n]*S2[a6, a3, a4, a2, a5, n] - S2[a6, a3, a4, a2, SP[a1, a5], n] - 
    S2[a1, n]*S2[a6, a3, a4, a5, a2, n] - S2[a6, a3, a4, a5, SP[a1, a2], n] - 
    S2[a6, a3, a4, SP[a1, a2], a5, n] - S2[a6, a3, a4, SP[a1, a5], a2, n] + 
    S2[a4, n]*S2[a6, a3, a5, a1, a2, n] + S2[a6, a3, a5, a1, SP[a2, a4], n] - 
    S2[a1, n]*S2[a6, a3, a5, a4, a2, n] - S2[a6, a3, a5, a4, SP[a1, a2], n] - 
    S2[a6, a3, SP[a1, a4], a2, a5, n] - S2[a6, a3, SP[a1, a4], a5, a2, n] - 
    S2[a6, a3, SP[a1, a5], a4, a2, n] + S2[a6, a3, SP[a4, a5], a1, a2, n] + 
    S2[a3, n]*S2[a6, a4, a1, a2, a5, n] + S2[a6, a4, a1, a2, SP[a3, a5], n] + 
    S2[a3, n]*S2[a6, a4, a1, a5, a2, n] + S2[a6, a4, a1, a5, SP[a2, a3], n] + 
    S2[a6, a4, a1, SP[a2, a3], a5, n] + S2[a6, a4, a1, SP[a3, a5], a2, n] - 
    S2[a1, n]*S2[a6, a4, a2, a3, a5, n] - S2[a6, a4, a2, a3, SP[a1, a5], n] - 
    S2[a6, a4, a2, SP[a1, a3], a5, n] - S2[a1, n]*S2[a6, a4, a3, a2, a5, n] - 
    S2[a6, a4, a3, a2, SP[a1, a5], n] - S2[a1, n]*S2[a6, a4, a3, a5, a2, n] - 
    S2[a6, a4, a3, a5, SP[a1, a2], n] - S2[a6, a4, a3, SP[a1, a2], a5, n] - 
    S2[a6, a4, a3, SP[a1, a5], a2, n] - S2[a6, a4, SP[a1, a2], a3, a5, n] - 
    S2[a6, SP[a1, a4], a2, a3, a5, n] - S2[a6, SP[a1, a4], a2, a5, a3, n] - 
    S2[a6, SP[a1, a4], a3, a2, a5, n] - S2[a6, SP[a1, a4], a3, a5, a2, n] - 
    S2[a6, SP[a1, a4], a5, a2, a3, n] - S2[a6, SP[a1, a4], a5, a3, a2, n] + 
    S2[a6, SP[a3, a4], a1, a2, a5, n] + S2[a6, SP[a3, a4], a1, a5, a2, n] + 
    S2[a6, SP[a3, a4], a5, a1, a2, n] + S2[SP[a1, a5], a3, a6, a4, a2, n] + 
    S2[SP[a1, a5], a6, a3, a4, a2, n] + S2[SP[a1, a5], a6, a4, a2, a3, n] + 
    S2[SP[a1, a5], a6, a4, a3, a2, n] + S2[SP[a1, a6], a2, a4, a5, a3, n] + 
    S2[SP[a1, a6], a2, a5, a3, a4, n] + S2[SP[a1, a6], a2, a5, a4, a3, n] - 
    S2[SP[a1, a6], a3, a4, a2, a5, n] - S2[SP[a1, a6], a3, a4, a5, a2, n] - 
    S2[SP[a1, a6], a3, a5, a4, a2, n] - S2[SP[a1, a6], a4, a2, a3, a5, n] - 
    S2[SP[a1, a6], a4, a3, a2, a5, n] - S2[SP[a1, a6], a4, a3, a5, a2, n] + 
    S2[SP[a1, a6], a5, a2, a3, a4, n] + S2[SP[a1, a6], a5, a2, a4, a3, n] + 
    S2[SP[a1, a6], a5, a3, a2, a4, n] - S2[SP[a3, a5], a1, a6, a4, a2, n] - 
    S2[SP[a3, a5], a6, a1, a4, a2, n] - S2[SP[a3, a5], a6, a4, a1, a2, n] + 
    S2[SP[a3, a6], a1, a4, a2, a5, n] + S2[SP[a3, a6], a1, a4, a5, a2, n] + 
    S2[SP[a3, a6], a1, a5, a4, a2, n] + S2[SP[a3, a6], a4, a1, a2, a5, n] + 
    S2[SP[a3, a6], a4, a1, a5, a2, n] - S2[SP[a3, a6], a5, a1, a2, a4, n] - 
    S2[SP[a4, a6], a1, a2, a5, a3, n] - S2[SP[a4, a6], a1, a5, a2, a3, n] - 
    S2[SP[a4, a6], a1, a5, a3, a2, n] + S2[SP[a4, a6], a3, a5, a1, a2, n] + 
    S2[a6, a3, a4, a2, a1, a5, n] + S2[a6, a3, a4, a2, a5, a1, n] + 
    S2[a6, a3, a4, a5, a2, a1, n] + S2[a6, a3, a5, a4, a2, a1, n] + 
    S2[a6, a4, a2, a1, a3, a5, n] + S2[a6, a4, a2, a3, a1, a5, n] + 
    S2[a6, a4, a2, a3, a5, a1, n] + S2[a6, a4, a3, a2, a1, a5, n] + 
    S2[a6, a4, a3, a2, a5, a1, n] + S2[a6, a4, a3, a5, a2, a1, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a5_, a4_, a1_, a2_, a3_, a6_, n_] :> 
  S2[a1, a4, a5, n]*S2[a2, a3, a6, n] + S2[SP[a1, a2], SP[a3, a4], 
     SP[a5, a6], n] - S2[a4, a5, n]*S2[a1, a2, a3, a6, n] + 
    S2[a3, a6, n]*S2[a1, a2, a4, a5, n] - S2[a1, a2, SP[a3, a4], SP[a5, a6], 
     n] + S2[a3, a6, n]*S2[a1, a4, a2, a5, n] + 
    S2[a3, a6, n]*S2[a1, a4, a5, a2, n] - S2[a1, a4, SP[a2, a3], SP[a5, a6], 
     n] - S2[a1, a4, SP[a3, a5], SP[a2, a6], n] - S2[a1, SP[a2, a3], a4, 
     SP[a5, a6], n] - S2[a1, SP[a2, a3], SP[a4, a6], a5, n] - 
    S2[a1, SP[a3, a4], a2, SP[a5, a6], n] - S2[a1, SP[a3, a4], a5, 
     SP[a2, a6], n] - S2[a1, SP[a3, a4], SP[a2, a6], a5, n] - 
    S2[a1, SP[a3, a4], SP[a5, a6], a2, n] - S2[a2, a1, SP[a3, a4], 
     SP[a5, a6], n] - S2[a2, SP[a1, a3], a4, SP[a5, a6], n] - 
    S2[a2, SP[a1, a3], SP[a4, a6], a5, n] - S2[SP[a1, a2], a3, a4, 
     SP[a5, a6], n] - S2[SP[a1, a2], a3, SP[a4, a6], a5, n] - 
    S2[SP[a1, a2], a4, a3, SP[a5, a6], n] - S2[SP[a1, a2], a4, SP[a3, a5], 
     a6, n] - S2[SP[a1, a2], SP[a3, a4], a5, a6, n] - 
    S2[SP[a1, a2], SP[a3, a4], a6, a5, n] - S2[SP[a1, a3], a2, a4, 
     SP[a5, a6], n] - S2[SP[a1, a3], a2, SP[a4, a6], a5, n] - 
    S2[SP[a1, a3], a4, a2, SP[a5, a6], n] - S2[SP[a1, a3], a4, a5, 
     SP[a2, a6], n] - S2[SP[a1, a3], a4, SP[a2, a6], a5, n] - 
    S2[SP[a1, a3], a4, SP[a5, a6], a2, n] - S2[SP[a1, a3], SP[a2, a6], a4, 
     a5, n] - S2[SP[a1, a3], SP[a4, a6], a2, a5, n] - 
    S2[SP[a1, a3], SP[a4, a6], a5, a2, n] + S2[SP[a1, a4], a2, a3, 
     SP[a5, a6], n] + S2[SP[a1, a4], a2, SP[a3, a5], a6, n] + 
    S2[SP[a1, a4], SP[a2, a5], a3, a6, n] + 
    S2[a6, n]*S2[a1, a2, a3, a4, a5, n] - 
    S2[a5, n]*S2[a1, a2, a3, a4, a6, n] + S2[a1, a2, a3, a4, SP[a5, a6], n] + 
    S2[a4, n]*S2[a1, a2, a3, a5, a6, n] + S2[a1, a2, a3, a5, SP[a4, a6], n] - 
    S2[a5, n]*S2[a1, a2, a3, a6, a4, n] + 
    S2[a4, n]*S2[a1, a2, a3, a6, a5, n] + 
    3*S2[a1, a2, a3, SP[a4, a6], a5, n] - S2[a1, a2, a3, SP[a5, a6], a4, n] + 
    S2[a6, n]*S2[a1, a2, a4, a3, a5, n] - 
    S2[a5, n]*S2[a1, a2, a4, a3, a6, n] + S2[a1, a2, a4, a3, SP[a5, a6], n] + 
    S2[a6, n]*S2[a1, a2, a4, a5, a3, n] - 
    S2[a3, n]*S2[a1, a2, a4, a5, a6, n] - 
    S2[a3, n]*S2[a1, a2, a4, a6, a5, n] - S2[a1, a2, a4, a6, SP[a3, a5], n] - 
    S2[a1, a2, a4, SP[a3, a5], a6, n] + S2[a1, a2, a4, SP[a5, a6], a3, n] + 
    S2[a4, n]*S2[a1, a2, a5, a3, a6, n] + S2[a1, a2, a5, a3, SP[a4, a6], n] + 
    S2[a1, a2, a5, SP[a3, a4], a6, n] - S2[a3, n]*S2[a1, a2, a6, a4, a5, n] - 
    S2[a1, a2, a6, a4, SP[a3, a5], n] - S2[a1, a2, a6, SP[a3, a4], a5, n] + 
    S2[a1, a2, SP[a3, a4], a5, a6, n] + S2[a1, a2, SP[a3, a4], a6, a5, n] - 
    S2[a1, a2, SP[a3, a5], a4, a6, n] - S2[a1, a2, SP[a3, a5], a6, a4, n] + 
    S2[a1, a2, SP[a4, a6], a3, a5, n] + S2[a1, a2, SP[a4, a6], a5, a3, n] + 
    S2[a6, n]*S2[a1, a3, a2, a4, a5, n] + 
    2*S2[a1, a3, a2, a4, SP[a5, a6], n] + 
    2*S2[a1, a3, a2, SP[a4, a6], a5, n] + 
    S2[a6, n]*S2[a1, a3, a4, a2, a5, n] + 
    2*S2[a1, a3, a4, a2, SP[a5, a6], n] + 
    S2[a6, n]*S2[a1, a3, a4, a5, a2, n] - 
    S2[a2, n]*S2[a1, a3, a4, a5, a6, n] + S2[a1, a3, a4, a5, SP[a2, a6], n] - 
    S2[a2, n]*S2[a1, a3, a4, a6, a5, n] - S2[a1, a3, a4, a6, SP[a2, a5], n] - 
    S2[a1, a3, a4, SP[a2, a5], a6, n] + S2[a1, a3, a4, SP[a2, a6], a5, n] + 
    2*S2[a1, a3, a4, SP[a5, a6], a2, n] - 
    S2[a2, n]*S2[a1, a3, a6, a4, a5, n] - S2[a1, a3, a6, a4, SP[a2, a5], n] - 
    S2[a1, a3, a6, SP[a2, a4], a5, n] - S2[a1, a3, SP[a2, a4], a5, a6, n] - 
    S2[a1, a3, SP[a2, a4], a6, a5, n] + S2[a1, a3, SP[a2, a6], a4, a5, n] + 
    2*S2[a1, a3, SP[a4, a6], a2, a5, n] + 
    2*S2[a1, a3, SP[a4, a6], a5, a2, n] + 
    S2[a6, n]*S2[a1, a4, a2, a3, a5, n] - 
    S2[a5, n]*S2[a1, a4, a2, a3, a6, n] + S2[a1, a4, a2, a3, SP[a5, a6], n] + 
    S2[a6, n]*S2[a1, a4, a2, a5, a3, n] - 
    S2[a3, n]*S2[a1, a4, a2, a5, a6, n] - 
    S2[a3, n]*S2[a1, a4, a2, a6, a5, n] - S2[a1, a4, a2, a6, SP[a3, a5], n] - 
    S2[a1, a4, a2, SP[a3, a5], a6, n] + S2[a1, a4, a2, SP[a5, a6], a3, n] + 
    S2[a6, n]*S2[a1, a4, a3, a2, a5, n] + 
    2*S2[a1, a4, a3, a2, SP[a5, a6], n] + 
    S2[a6, n]*S2[a1, a4, a3, a5, a2, n] - 
    S2[a2, n]*S2[a1, a4, a3, a5, a6, n] + S2[a1, a4, a3, a5, SP[a2, a6], n] - 
    S2[a2, n]*S2[a1, a4, a3, a6, a5, n] - S2[a1, a4, a3, a6, SP[a2, a5], n] - 
    S2[a1, a4, a3, SP[a2, a5], a6, n] + S2[a1, a4, a3, SP[a2, a6], a5, n] + 
    2*S2[a1, a4, a3, SP[a5, a6], a2, n] + 
    S2[a6, n]*S2[a1, a4, a5, a2, a3, n] - 
    S2[a3, n]*S2[a1, a4, a5, a2, a6, n] + 
    S2[a6, n]*S2[a1, a4, a5, a3, a2, n] - 
    S2[a2, n]*S2[a1, a4, a5, a3, a6, n] + S2[a1, a4, a5, a3, SP[a2, a6], n] - 
    S2[a3, n]*S2[a1, a4, a5, a6, a2, n] - S2[a1, a4, a5, a6, SP[a2, a3], n] - 
    S2[a1, a4, a5, SP[a2, a3], a6, n] + S2[a1, a4, a5, SP[a2, a6], a3, n] - 
    S2[a3, n]*S2[a1, a4, a6, a2, a5, n] - S2[a1, a4, a6, a2, SP[a3, a5], n] - 
    S2[a3, n]*S2[a1, a4, a6, a5, a2, n] - S2[a1, a4, a6, a5, SP[a2, a3], n] - 
    S2[a1, a4, a6, SP[a2, a3], a5, n] - S2[a1, a4, a6, SP[a3, a5], a2, n] - 
    S2[a1, a4, SP[a2, a3], a5, a6, n] - S2[a1, a4, SP[a2, a3], a6, a5, n] - 
    2*S2[a1, a4, SP[a2, a5], a3, a6, n] + S2[a1, a4, SP[a2, a6], a3, a5, n] + 
    S2[a1, a4, SP[a2, a6], a5, a3, n] + S2[a1, a4, SP[a5, a6], a2, a3, n] + 
    S2[a1, a4, SP[a5, a6], a3, a2, n] + S2[a4, n]*S2[a1, a5, a2, a3, a6, n] + 
    S2[a1, a5, a2, a3, SP[a4, a6], n] + S2[a1, a5, a2, SP[a3, a4], a6, n] + 
    S2[a1, a5, SP[a2, a4], a3, a6, n] - S2[a3, n]*S2[a1, a6, a2, a4, a5, n] - 
    S2[a1, a6, a2, a4, SP[a3, a5], n] - S2[a1, a6, a2, SP[a3, a4], a5, n] - 
    S2[a3, n]*S2[a1, a6, a4, a2, a5, n] - S2[a1, a6, a4, a2, SP[a3, a5], n] - 
    S2[a3, n]*S2[a1, a6, a4, a5, a2, n] - S2[a1, a6, a4, a5, SP[a2, a3], n] - 
    S2[a1, a6, a4, SP[a2, a3], a5, n] - S2[a1, a6, a4, SP[a3, a5], a2, n] - 
    S2[a1, a6, SP[a2, a3], a4, a5, n] - S2[a1, a6, SP[a3, a4], a2, a5, n] - 
    S2[a1, a6, SP[a3, a4], a5, a2, n] - S2[a1, SP[a2, a3], a4, a5, a6, n] - 
    S2[a1, SP[a2, a3], a4, a6, a5, n] - S2[a1, SP[a2, a3], a6, a4, a5, n] - 
    S2[a1, SP[a2, a5], a3, a4, a6, n] - S2[a1, SP[a2, a5], a3, a6, a4, n] - 
    S2[a1, SP[a2, a5], a4, a3, a6, n] + S2[a1, SP[a2, a6], a3, a4, a5, n] + 
    S2[a1, SP[a2, a6], a4, a3, a5, n] + S2[a1, SP[a2, a6], a4, a5, a3, n] + 
    S2[a1, SP[a4, a6], a2, a3, a5, n] + S2[a1, SP[a4, a6], a2, a5, a3, n] + 
    S2[a1, SP[a4, a6], a3, a2, a5, n] + S2[a1, SP[a4, a6], a3, a5, a2, n] + 
    S2[a1, SP[a4, a6], a5, a2, a3, n] + S2[a1, SP[a4, a6], a5, a3, a2, n] + 
    S2[a2, a1, a3, a4, SP[a5, a6], n] + S2[a2, a1, a3, SP[a4, a6], a5, n] + 
    S2[a2, a1, a4, a3, SP[a5, a6], n] + S2[a2, a1, a4, SP[a3, a5], a6, n] + 
    S2[a2, a1, SP[a3, a4], a5, a6, n] + S2[a2, a1, SP[a3, a4], a6, a5, n] - 
    S2[a6, n]*S2[a2, a3, a1, a4, a5, n] + S2[a2, SP[a1, a3], a4, a5, a6, n] + 
    S2[a2, SP[a1, a3], a4, a6, a5, n] + S2[a2, SP[a1, a3], a6, a4, a5, n] - 
    S2[a2, SP[a3, a6], a1, a4, a5, n] + S2[a3, a1, a2, a4, SP[a5, a6], n] + 
    S2[a3, a1, a2, SP[a4, a6], a5, n] + S2[a3, a1, a4, a2, SP[a5, a6], n] + 
    S2[a3, a1, a4, a5, SP[a2, a6], n] + S2[a3, a1, a4, SP[a2, a6], a5, n] + 
    S2[a3, a1, a4, SP[a5, a6], a2, n] + S2[a3, a1, SP[a2, a6], a4, a5, n] + 
    S2[a3, a1, SP[a4, a6], a2, a5, n] + S2[a3, a1, SP[a4, a6], a5, a2, n] + 
    S2[a3, SP[a1, a6], a2, a4, a5, n] + S2[a3, SP[a1, a6], a4, a2, a5, n] + 
    S2[a3, SP[a1, a6], a4, a5, a2, n] - S2[a4, a1, a2, a3, SP[a5, a6], n] - 
    S2[a4, a1, a2, SP[a3, a5], a6, n] - S2[a4, a1, SP[a2, a5], a3, a6, n] - 
    S2[a4, SP[a1, a5], a2, a3, a6, n] + S2[a4, n]*S2[a5, a1, a2, a3, a6, n] + 
    S2[a5, a1, a2, a3, SP[a4, a6], n] + S2[a5, a1, a2, SP[a3, a4], a6, n] + 
    S2[a5, a1, SP[a2, a4], a3, a6, n] + S2[a5, SP[a1, a4], a2, a3, a6, n] - 
    S2[a3, n]*S2[a6, a1, a2, a4, a5, n] - S2[a6, a1, a2, a4, SP[a3, a5], n] - 
    S2[a6, a1, a2, SP[a3, a4], a5, n] - S2[a3, n]*S2[a6, a1, a4, a2, a5, n] - 
    S2[a6, a1, a4, a2, SP[a3, a5], n] - S2[a3, n]*S2[a6, a1, a4, a5, a2, n] - 
    S2[a6, a1, a4, a5, SP[a2, a3], n] - S2[a6, a1, a4, SP[a2, a3], a5, n] - 
    S2[a6, a1, a4, SP[a3, a5], a2, n] - S2[a6, a1, SP[a2, a3], a4, a5, n] - 
    S2[a6, a1, SP[a3, a4], a2, a5, n] - S2[a6, a1, SP[a3, a4], a5, a2, n] + 
    S2[a2, n]*S2[a6, a3, a1, a4, a5, n] + S2[a6, a3, a1, a4, SP[a2, a5], n] + 
    S2[a6, a3, a1, SP[a2, a4], a5, n] + S2[a6, a3, SP[a1, a2], a4, a5, n] - 
    S2[a6, SP[a1, a3], a2, a4, a5, n] - S2[a6, SP[a1, a3], a4, a2, a5, n] - 
    S2[a6, SP[a1, a3], a4, a5, a2, n] + S2[a6, SP[a2, a3], a1, a4, a5, n] - 
    S2[SP[a1, a5], a2, a3, a4, a6, n] - S2[SP[a1, a5], a2, a3, a6, a4, n] - 
    S2[SP[a1, a5], a2, a4, a3, a6, n] - S2[SP[a1, a5], a4, a2, a3, a6, n] + 
    S2[SP[a1, a6], a2, a3, a4, a5, n] + S2[SP[a1, a6], a2, a4, a3, a5, n] + 
    S2[SP[a1, a6], a2, a4, a5, a3, n] + S2[SP[a1, a6], a3, a2, a4, a5, n] + 
    S2[SP[a1, a6], a3, a4, a2, a5, n] + S2[SP[a1, a6], a3, a4, a5, a2, n] + 
    S2[SP[a1, a6], a4, a2, a3, a5, n] + S2[SP[a1, a6], a4, a2, a5, a3, n] + 
    S2[SP[a1, a6], a4, a3, a2, a5, n] + S2[SP[a1, a6], a4, a3, a5, a2, n] + 
    S2[SP[a1, a6], a4, a5, a2, a3, n] + S2[SP[a1, a6], a4, a5, a3, a2, n] - 
    S2[SP[a3, a6], a1, a2, a4, a5, n] - S2[SP[a3, a6], a1, a4, a2, a5, n] - 
    S2[SP[a3, a6], a1, a4, a5, a2, n] + S2[SP[a4, a5], a1, a2, a3, a6, n] - 
    S2[a6, a3, a2, a1, a4, a5, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a5_, a4_, a1_, a2_, a6_, a3_, n_] :> 
  S2[a1, a4, a5, n]*S2[a2, a6, a3, n] + S2[SP[a1, a2], SP[a4, a6], 
     SP[a3, a5], n] - S2[a3, a6, n]*S2[a1, a2, a4, a5, n] - 
    S2[a4, a5, n]*S2[a1, a2, a6, a3, n] + S2[a1, a2, SP[a3, a4], SP[a5, a6], 
     n] - S2[a3, a6, n]*S2[a1, a4, a2, a5, n] - 
    S2[a3, a6, n]*S2[a1, a4, a5, a2, n] + S2[a1, a4, SP[a2, a3], SP[a5, a6], 
     n] + S2[a1, a4, SP[a3, a5], SP[a2, a6], n] + S2[a1, SP[a2, a3], a4, 
     SP[a5, a6], n] + S2[a1, SP[a2, a3], SP[a4, a6], a5, n] + 
    S2[a1, SP[a3, a4], a2, SP[a5, a6], n] + S2[a1, SP[a3, a4], a5, 
     SP[a2, a6], n] + S2[a1, SP[a3, a4], SP[a2, a6], a5, n] + 
    S2[a1, SP[a3, a4], SP[a5, a6], a2, n] - S2[a2, a1, SP[a4, a6], 
     SP[a3, a5], n] - S2[a2, SP[a1, a6], a4, SP[a3, a5], n] - 
    S2[a2, SP[a1, a6], SP[a3, a4], a5, n] - S2[SP[a1, a2], a4, a6, 
     SP[a3, a5], n] - S2[SP[a1, a2], a4, SP[a5, a6], a3, n] - 
    S2[SP[a1, a2], a6, a4, SP[a3, a5], n] - S2[SP[a1, a2], a6, SP[a3, a4], 
     a5, n] - S2[SP[a1, a2], SP[a4, a6], a3, a5, n] - 
    S2[SP[a1, a2], SP[a4, a6], a5, a3, n] + S2[SP[a1, a3], a2, a4, 
     SP[a5, a6], n] + S2[SP[a1, a3], a2, SP[a4, a6], a5, n] + 
    S2[SP[a1, a3], a4, a2, SP[a5, a6], n] + S2[SP[a1, a3], a4, a5, 
     SP[a2, a6], n] + S2[SP[a1, a3], a4, SP[a2, a6], a5, n] + 
    S2[SP[a1, a3], a4, SP[a5, a6], a2, n] + S2[SP[a1, a3], SP[a2, a6], a4, 
     a5, n] + S2[SP[a1, a3], SP[a4, a6], a2, a5, n] + 
    S2[SP[a1, a3], SP[a4, a6], a5, a2, n] + S2[SP[a1, a4], a2, a6, 
     SP[a3, a5], n] + S2[SP[a1, a4], a2, SP[a5, a6], a3, n] + 
    S2[SP[a1, a4], SP[a2, a5], a6, a3, n] - S2[a1, a2, a3, a4, SP[a5, a6], 
     n] - S2[a1, a2, a3, SP[a4, a6], a5, n] - S2[a1, a2, a4, a3, SP[a5, a6], 
     n] + S2[a3, n]*S2[a1, a2, a4, a5, a6, n] + S2[a1, a2, a4, a5, 
     SP[a3, a6], n] - S2[a5, n]*S2[a1, a2, a4, a6, a3, n] + 
    S2[a3, n]*S2[a1, a2, a4, a6, a5, n] + S2[a1, a2, a4, SP[a3, a6], a5, n] - 
    S2[a1, a2, a4, SP[a5, a6], a3, n] + S2[a4, n]*S2[a1, a2, a5, a6, a3, n] + 
    S2[a1, a2, a5, a6, SP[a3, a4], n] + S2[a1, a2, a5, SP[a4, a6], a3, n] - 
    S2[a5, n]*S2[a1, a2, a6, a3, a4, n] + 
    S2[a4, n]*S2[a1, a2, a6, a3, a5, n] - 
    S2[a5, n]*S2[a1, a2, a6, a4, a3, n] + 
    S2[a3, n]*S2[a1, a2, a6, a4, a5, n] + 
    S2[a4, n]*S2[a1, a2, a6, a5, a3, n] + S2[a1, a2, a6, a5, SP[a3, a4], n] + 
    2*S2[a1, a2, a6, SP[a3, a4], a5, n] - S2[a1, a2, a6, SP[a3, a5], a4, n] + 
    S2[a1, a2, SP[a3, a6], a4, a5, n] + S2[a1, a2, SP[a4, a6], a3, a5, n] + 
    S2[a1, a2, SP[a4, a6], a5, a3, n] - S2[a1, a2, SP[a5, a6], a3, a4, n] - 
    S2[a1, a2, SP[a5, a6], a4, a3, n] - S2[a1, a3, a2, a4, SP[a5, a6], n] - 
    S2[a1, a3, a2, SP[a4, a6], a5, n] - S2[a1, a3, a4, a2, SP[a5, a6], n] - 
    S2[a1, a3, a4, a5, SP[a2, a6], n] - S2[a1, a3, a4, SP[a2, a6], a5, n] - 
    S2[a1, a3, a4, SP[a5, a6], a2, n] - S2[a1, a3, SP[a2, a6], a4, a5, n] - 
    S2[a1, a3, SP[a4, a6], a2, a5, n] - S2[a1, a3, SP[a4, a6], a5, a2, n] - 
    S2[a1, a4, a2, a3, SP[a5, a6], n] + S2[a3, n]*S2[a1, a4, a2, a5, a6, n] + 
    S2[a1, a4, a2, a5, SP[a3, a6], n] - S2[a5, n]*S2[a1, a4, a2, a6, a3, n] + 
    S2[a3, n]*S2[a1, a4, a2, a6, a5, n] + S2[a1, a4, a2, SP[a3, a6], a5, n] - 
    S2[a1, a4, a2, SP[a5, a6], a3, n] - S2[a1, a4, a3, a2, SP[a5, a6], n] - 
    S2[a1, a4, a3, a5, SP[a2, a6], n] - S2[a1, a4, a3, SP[a2, a6], a5, n] - 
    S2[a1, a4, a3, SP[a5, a6], a2, n] + S2[a3, n]*S2[a1, a4, a5, a2, a6, n] + 
    S2[a1, a4, a5, a2, SP[a3, a6], n] - S2[a1, a4, a5, a3, SP[a2, a6], n] + 
    S2[a3, n]*S2[a1, a4, a5, a6, a2, n] - 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] - S2[a1, a4, a5, SP[a2, a6], a3, n] + 
    S2[a1, a4, a5, SP[a3, a6], a2, n] + S2[a3, n]*S2[a1, a4, a6, a2, a5, n] + 
    S2[a1, a4, a6, a2, SP[a3, a5], n] - S2[a2, n]*S2[a1, a4, a6, a3, a5, n] - 
    S2[a1, a4, a6, a3, SP[a2, a5], n] + S2[a3, n]*S2[a1, a4, a6, a5, a2, n] - 
    S2[a2, n]*S2[a1, a4, a6, a5, a3, n] - S2[a1, a4, a6, SP[a2, a5], a3, n] + 
    S2[a1, a4, a6, SP[a3, a5], a2, n] - 2*S2[a1, a4, SP[a2, a5], a6, a3, n] - 
    S2[a1, a4, SP[a2, a6], a3, a5, n] - S2[a1, a4, SP[a2, a6], a5, a3, n] + 
    S2[a1, a4, SP[a3, a6], a2, a5, n] + S2[a1, a4, SP[a3, a6], a5, a2, n] + 
    S2[a4, n]*S2[a1, a5, a2, a6, a3, n] + S2[a1, a5, a2, a6, SP[a3, a4], n] + 
    S2[a1, a5, a2, SP[a4, a6], a3, n] + S2[a1, a5, SP[a2, a4], a6, a3, n] + 
    S2[a3, n]*S2[a1, a6, a2, a4, a5, n] + S2[a1, a6, a2, a4, SP[a3, a5], n] + 
    S2[a1, a6, a2, SP[a3, a4], a5, n] - S2[a2, n]*S2[a1, a6, a3, a4, a5, n] - 
    S2[a1, a6, a3, a4, SP[a2, a5], n] - S2[a1, a6, a3, SP[a2, a4], a5, n] + 
    S2[a3, n]*S2[a1, a6, a4, a2, a5, n] + S2[a1, a6, a4, a2, SP[a3, a5], n] - 
    S2[a2, n]*S2[a1, a6, a4, a3, a5, n] - S2[a1, a6, a4, a3, SP[a2, a5], n] + 
    S2[a3, n]*S2[a1, a6, a4, a5, a2, n] - 
    S2[a2, n]*S2[a1, a6, a4, a5, a3, n] - S2[a1, a6, a4, SP[a2, a5], a3, n] + 
    S2[a1, a6, a4, SP[a3, a5], a2, n] - S2[a1, a6, SP[a2, a4], a3, a5, n] - 
    S2[a1, a6, SP[a2, a4], a5, a3, n] + S2[a1, a6, SP[a3, a4], a2, a5, n] + 
    S2[a1, a6, SP[a3, a4], a5, a2, n] - S2[a1, SP[a2, a5], a4, a6, a3, n] - 
    S2[a1, SP[a2, a5], a6, a3, a4, n] - S2[a1, SP[a2, a5], a6, a4, a3, n] - 
    S2[a1, SP[a2, a6], a3, a4, a5, n] - S2[a1, SP[a2, a6], a4, a3, a5, n] - 
    S2[a1, SP[a2, a6], a4, a5, a3, n] + S2[a1, SP[a3, a6], a2, a4, a5, n] + 
    S2[a1, SP[a3, a6], a4, a2, a5, n] + S2[a1, SP[a3, a6], a4, a5, a2, n] + 
    S2[a2, a1, a4, a6, SP[a3, a5], n] + S2[a2, a1, a4, SP[a5, a6], a3, n] + 
    S2[a2, a1, a6, a4, SP[a3, a5], n] + S2[a2, a1, a6, SP[a3, a4], a5, n] + 
    S2[a2, a1, SP[a4, a6], a3, a5, n] + S2[a2, a1, SP[a4, a6], a5, a3, n] + 
    S2[a2, a6, a1, a4, SP[a3, a5], n] + S2[a2, a6, a1, SP[a3, a4], a5, n] + 
    S2[a2, a6, SP[a1, a3], a4, a5, n] + S2[a2, SP[a1, a6], a3, a4, a5, n] + 
    S2[a2, SP[a1, a6], a4, a3, a5, n] + S2[a2, SP[a1, a6], a4, a5, a3, n] - 
    S2[a3, a1, a2, a4, SP[a5, a6], n] - S2[a3, a1, a2, SP[a4, a6], a5, n] - 
    S2[a3, a1, a4, a2, SP[a5, a6], n] - S2[a3, a1, a4, a5, SP[a2, a6], n] - 
    S2[a3, a1, a4, SP[a2, a6], a5, n] - S2[a3, a1, a4, SP[a5, a6], a2, n] - 
    S2[a3, a1, SP[a2, a6], a4, a5, n] - S2[a3, a1, SP[a4, a6], a2, a5, n] - 
    S2[a3, a1, SP[a4, a6], a5, a2, n] - S2[a3, SP[a1, a6], a2, a4, a5, n] - 
    S2[a3, SP[a1, a6], a4, a2, a5, n] - S2[a3, SP[a1, a6], a4, a5, a2, n] - 
    S2[a4, a1, a2, a6, SP[a3, a5], n] - S2[a4, a1, a2, SP[a5, a6], a3, n] - 
    S2[a4, a1, SP[a2, a5], a6, a3, n] - S2[a4, SP[a1, a5], a2, a6, a3, n] + 
    S2[a4, n]*S2[a5, a1, a2, a6, a3, n] + S2[a5, a1, a2, a6, SP[a3, a4], n] + 
    S2[a5, a1, a2, SP[a4, a6], a3, n] + S2[a5, a1, SP[a2, a4], a6, a3, n] + 
    S2[a5, SP[a1, a4], a2, a6, a3, n] + S2[a3, n]*S2[a6, a1, a2, a4, a5, n] + 
    S2[a6, a1, a2, a4, SP[a3, a5], n] + S2[a6, a1, a2, SP[a3, a4], a5, n] - 
    S2[a2, n]*S2[a6, a1, a3, a4, a5, n] - S2[a6, a1, a3, a4, SP[a2, a5], n] - 
    S2[a6, a1, a3, SP[a2, a4], a5, n] + S2[a3, n]*S2[a6, a1, a4, a2, a5, n] + 
    S2[a6, a1, a4, a2, SP[a3, a5], n] - S2[a2, n]*S2[a6, a1, a4, a3, a5, n] - 
    S2[a6, a1, a4, a3, SP[a2, a5], n] + S2[a3, n]*S2[a6, a1, a4, a5, a2, n] - 
    S2[a2, n]*S2[a6, a1, a4, a5, a3, n] - S2[a6, a1, a4, SP[a2, a5], a3, n] + 
    S2[a6, a1, a4, SP[a3, a5], a2, n] - S2[a6, a1, SP[a2, a4], a3, a5, n] - 
    S2[a6, a1, SP[a2, a4], a5, a3, n] + S2[a6, a1, SP[a3, a4], a2, a5, n] + 
    S2[a6, a1, SP[a3, a4], a5, a2, n] - S2[a2, n]*S2[a6, a3, a1, a4, a5, n] - 
    S2[a6, a3, a1, a4, SP[a2, a5], n] - S2[a6, a3, a1, SP[a2, a4], a5, n] - 
    S2[a6, a3, SP[a1, a2], a4, a5, n] - S2[a6, SP[a1, a2], a3, a4, a5, n] - 
    S2[a6, SP[a1, a2], a4, a3, a5, n] - S2[a6, SP[a1, a2], a4, a5, a3, n] + 
    S2[a6, SP[a1, a3], a2, a4, a5, n] + S2[a6, SP[a1, a3], a4, a2, a5, n] + 
    S2[a6, SP[a1, a3], a4, a5, a2, n] - S2[a6, SP[a2, a3], a1, a4, a5, n] - 
    S2[SP[a1, a5], a2, a4, a6, a3, n] - S2[SP[a1, a5], a2, a6, a3, a4, n] - 
    S2[SP[a1, a5], a2, a6, a4, a3, n] - S2[SP[a1, a5], a4, a2, a6, a3, n] - 
    S2[SP[a2, a6], a1, a3, a4, a5, n] - S2[SP[a2, a6], a1, a4, a3, a5, n] - 
    S2[SP[a2, a6], a1, a4, a5, a3, n] - S2[SP[a2, a6], a3, a1, a4, a5, n] + 
    S2[SP[a3, a6], a1, a2, a4, a5, n] + S2[SP[a3, a6], a1, a4, a2, a5, n] + 
    S2[SP[a3, a6], a1, a4, a5, a2, n] + S2[SP[a4, a5], a1, a2, a6, a3, n] + 
    S2[a6, a2, a1, a3, a4, a5, n] + S2[a6, a2, a1, a4, a3, a5, n] + 
    S2[a6, a2, a1, a4, a5, a3, n] + S2[a6, a2, a3, a1, a4, a5, n] + 
    S2[a6, a3, a2, a1, a4, a5, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a5_, a4_, a1_, a3_, a2_, a6_, n_] :> 
  -(S2[a1, a4, a5, n]*S2[a2, a3, a6, n]) - S2[a1, a4, a5, n]*
     S2[a2, a6, a3, n] - S2[SP[a1, a2], SP[a3, a4], SP[a5, a6], n] - 
    S2[SP[a1, a2], SP[a4, a6], SP[a3, a5], n] + S2[a1, a2, SP[a3, a4], 
     SP[a5, a6], n] + S2[a1, a2, SP[a4, a6], SP[a3, a5], n] - 
    S2[a4, a5, n]*S2[a1, a3, a2, a6, n] + S2[a2, a6, n]*
     S2[a1, a3, a4, a5, n] + S2[a2, a6, n]*S2[a1, a4, a3, a5, n] + 
    S2[a2, a6, n]*S2[a1, a4, a5, a3, n] - S2[a1, a4, SP[a2, a3], SP[a5, a6], 
     n] - S2[a1, a4, SP[a2, a5], SP[a3, a6], n] - S2[a1, SP[a2, a3], a4, 
     SP[a5, a6], n] - S2[a1, SP[a2, a3], SP[a4, a6], a5, n] - 
    S2[a1, SP[a2, a4], a5, SP[a3, a6], n] + S2[a1, SP[a2, a4], a6, 
     SP[a3, a5], n] + S2[a1, SP[a2, a4], SP[a3, a5], a6, n] - 
    S2[a1, SP[a2, a4], SP[a3, a6], a5, n] + S2[a1, SP[a3, a4], a2, 
     SP[a5, a6], n] + S2[a1, SP[a3, a4], SP[a2, a5], a6, n] + 
    S2[a2, a1, SP[a3, a4], SP[a5, a6], n] + S2[a2, a1, SP[a4, a6], 
     SP[a3, a5], n] + S2[a2, SP[a1, a3], a4, SP[a5, a6], n] + 
    S2[a2, SP[a1, a3], SP[a4, a6], a5, n] + S2[a2, SP[a1, a6], a4, 
     SP[a3, a5], n] + S2[a2, SP[a1, a6], SP[a3, a4], a5, n] - 
    S2[SP[a1, a2], a4, a5, SP[a3, a6], n] + S2[SP[a1, a2], a4, a6, 
     SP[a3, a5], n] + S2[SP[a1, a2], a4, SP[a3, a5], a6, n] - 
    S2[SP[a1, a2], a4, SP[a3, a6], a5, n] + S2[SP[a1, a2], a6, a4, 
     SP[a3, a5], n] + S2[SP[a1, a2], a6, SP[a3, a4], a5, n] + 
    S2[SP[a1, a2], SP[a3, a4], a5, a6, n] + S2[SP[a1, a2], SP[a3, a4], a6, 
     a5, n] - S2[SP[a1, a2], SP[a3, a6], a4, a5, n] + 
    S2[SP[a1, a4], a3, a2, SP[a5, a6], n] + S2[SP[a1, a4], a3, SP[a2, a5], 
     a6, n] + S2[SP[a1, a4], SP[a3, a5], a2, a6, n] + 
    S2[a1, a2, a4, a5, SP[a3, a6], n] - S2[a1, a2, a4, a6, SP[a3, a5], n] - 
    S2[a1, a2, a4, SP[a3, a5], a6, n] + S2[a1, a2, a4, SP[a3, a6], a5, n] - 
    S2[a1, a2, a6, a4, SP[a3, a5], n] - S2[a1, a2, a6, SP[a3, a4], a5, n] - 
    S2[a1, a2, SP[a3, a4], a5, a6, n] - S2[a1, a2, SP[a3, a4], a6, a5, n] + 
    S2[a1, a2, SP[a3, a6], a4, a5, n] - S2[a5, n]*S2[a1, a3, a2, a4, a6, n] - 
    S2[a1, a3, a2, a4, SP[a5, a6], n] + S2[a4, n]*S2[a1, a3, a2, a5, a6, n] + 
    S2[a1, a3, a2, a5, SP[a4, a6], n] - S2[a5, n]*S2[a1, a3, a2, a6, a4, n] + 
    S2[a4, n]*S2[a1, a3, a2, a6, a5, n] + S2[a1, a3, a2, SP[a4, a6], a5, n] - 
    S2[a1, a3, a2, SP[a5, a6], a4, n] - S2[a5, n]*S2[a1, a3, a4, a2, a6, n] - 
    S2[a1, a3, a4, a2, SP[a5, a6], n] - S2[a1, a3, a4, SP[a2, a5], a6, n] + 
    S2[a4, n]*S2[a1, a3, a5, a2, a6, n] + S2[a1, a3, a5, a2, SP[a4, a6], n] + 
    S2[a1, a3, a5, SP[a2, a4], a6, n] + S2[a1, a3, SP[a2, a4], a5, a6, n] + 
    S2[a1, a3, SP[a2, a4], a6, a5, n] - S2[a1, a3, SP[a2, a5], a4, a6, n] - 
    S2[a1, a3, SP[a2, a5], a6, a4, n] + S2[a1, a4, a2, a5, SP[a3, a6], n] - 
    S2[a1, a4, a2, a6, SP[a3, a5], n] - S2[a1, a4, a2, SP[a3, a5], a6, n] + 
    S2[a1, a4, a2, SP[a3, a6], a5, n] - S2[a5, n]*S2[a1, a4, a3, a2, a6, n] - 
    S2[a1, a4, a3, a2, SP[a5, a6], n] - S2[a1, a4, a3, SP[a2, a5], a6, n] + 
    S2[a1, a4, a5, a2, SP[a3, a6], n] + S2[a1, a4, a5, SP[a2, a3], a6, n] + 
    S2[a1, a4, SP[a2, a3], a5, a6, n] + S2[a1, a4, SP[a2, a3], a6, a5, n] - 
    2*S2[a1, a4, SP[a3, a5], a2, a6, n] + 
    S2[a4, n]*S2[a1, a5, a3, a2, a6, n] + S2[a1, a5, a3, a2, SP[a4, a6], n] + 
    S2[a1, a5, a3, SP[a2, a4], a6, n] + S2[a1, a5, SP[a3, a4], a2, a6, n] + 
    S2[a1, SP[a2, a3], a4, a5, a6, n] + S2[a1, SP[a2, a3], a4, a6, a5, n] + 
    S2[a1, SP[a2, a3], a6, a4, a5, n] - S2[a1, SP[a3, a5], a2, a4, a6, n] - 
    S2[a1, SP[a3, a5], a2, a6, a4, n] - S2[a1, SP[a3, a5], a4, a2, a6, n] + 
    S2[a2, a1, a4, a5, SP[a3, a6], n] - S2[a2, a1, a4, a6, SP[a3, a5], n] - 
    S2[a2, a1, a4, SP[a3, a5], a6, n] + S2[a2, a1, a4, SP[a3, a6], a5, n] - 
    S2[a2, a1, a6, a4, SP[a3, a5], n] - S2[a2, a1, a6, SP[a3, a4], a5, n] - 
    S2[a2, a1, SP[a3, a4], a5, a6, n] - S2[a2, a1, SP[a3, a4], a6, a5, n] + 
    S2[a2, a1, SP[a3, a6], a4, a5, n] + S2[a6, n]*S2[a2, a3, a1, a4, a5, n] - 
    S2[a2, a6, a1, a4, SP[a3, a5], n] - S2[a2, a6, a1, SP[a3, a4], a5, n] - 
    S2[a2, a6, SP[a1, a3], a4, a5, n] - S2[a2, SP[a1, a3], a4, a5, a6, n] - 
    S2[a2, SP[a1, a3], a4, a6, a5, n] - S2[a2, SP[a1, a3], a6, a4, a5, n] + 
    S2[a2, SP[a3, a6], a1, a4, a5, n] - S2[a4, a1, a3, a2, SP[a5, a6], n] - 
    S2[a4, a1, a3, SP[a2, a5], a6, n] - S2[a4, a1, SP[a3, a5], a2, a6, n] - 
    S2[a4, SP[a1, a5], a3, a2, a6, n] + S2[a4, n]*S2[a5, a1, a3, a2, a6, n] + 
    S2[a5, a1, a3, a2, SP[a4, a6], n] + S2[a5, a1, a3, SP[a2, a4], a6, n] + 
    S2[a5, a1, SP[a3, a4], a2, a6, n] + S2[a5, SP[a1, a4], a3, a2, a6, n] - 
    S2[SP[a1, a5], a3, a2, a4, a6, n] - S2[SP[a1, a5], a3, a2, a6, a4, n] - 
    S2[SP[a1, a5], a3, a4, a2, a6, n] - S2[SP[a1, a5], a4, a3, a2, a6, n] + 
    S2[SP[a2, a6], a3, a1, a4, a5, n] + S2[SP[a4, a5], a1, a3, a2, a6, n] - 
    S2[a6, a2, a3, a1, a4, a5, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a5_, a4_, a1_, a3_, a6_, a2_, n_] :> 
  S2[a1, a4, a5, n]*S2[a2, a6, a3, n] + S2[SP[a1, a2], SP[a4, a6], 
     SP[a3, a5], n] - S2[a1, a2, SP[a4, a6], SP[a3, a5], n] - 
    S2[a2, a6, n]*S2[a1, a3, a4, a5, n] - S2[a4, a5, n]*
     S2[a1, a3, a6, a2, n] + S2[a1, a3, SP[a2, a4], SP[a5, a6], n] + 
    S2[a1, a3, SP[a4, a6], SP[a2, a5], n] - S2[a2, a6, n]*
     S2[a1, a4, a3, a5, n] - S2[a2, a6, n]*S2[a1, a4, a5, a3, n] + 
    S2[a1, a4, SP[a2, a3], SP[a5, a6], n] + S2[a1, a4, SP[a2, a5], 
     SP[a3, a6], n] + S2[a1, SP[a2, a3], a4, SP[a5, a6], n] + 
    S2[a1, SP[a2, a3], SP[a4, a6], a5, n] + S2[a1, SP[a2, a4], a3, 
     SP[a5, a6], n] + S2[a1, SP[a2, a4], a5, SP[a3, a6], n] - 
    S2[a1, SP[a2, a4], a6, SP[a3, a5], n] + S2[a1, SP[a2, a4], SP[a3, a6], 
     a5, n] + S2[a1, SP[a3, a4], a6, SP[a2, a5], n] + 
    S2[a1, SP[a3, a4], SP[a5, a6], a2, n] - S2[a2, a1, SP[a4, a6], 
     SP[a3, a5], n] - S2[a2, SP[a1, a6], a4, SP[a3, a5], n] - 
    S2[a2, SP[a1, a6], SP[a3, a4], a5, n] + S2[SP[a1, a2], a3, a4, 
     SP[a5, a6], n] + S2[SP[a1, a2], a3, SP[a4, a6], a5, n] + 
    S2[SP[a1, a2], a4, a3, SP[a5, a6], n] + S2[SP[a1, a2], a4, a5, 
     SP[a3, a6], n] - S2[SP[a1, a2], a4, a6, SP[a3, a5], n] + 
    S2[SP[a1, a2], a4, SP[a3, a6], a5, n] - S2[SP[a1, a2], a6, a4, 
     SP[a3, a5], n] - S2[SP[a1, a2], a6, SP[a3, a4], a5, n] + 
    S2[SP[a1, a2], SP[a3, a6], a4, a5, n] + S2[SP[a1, a4], a3, a6, 
     SP[a2, a5], n] + S2[SP[a1, a4], a3, SP[a5, a6], a2, n] + 
    S2[SP[a1, a4], SP[a3, a5], a6, a2, n] - S2[a1, a2, a3, a4, SP[a5, a6], 
     n] - S2[a1, a2, a3, SP[a4, a6], a5, n] - S2[a1, a2, a4, a3, SP[a5, a6], 
     n] - S2[a1, a2, a4, a5, SP[a3, a6], n] + S2[a1, a2, a4, a6, SP[a3, a5], 
     n] - S2[a1, a2, a4, SP[a3, a6], a5, n] + S2[a1, a2, a6, a4, SP[a3, a5], 
     n] + S2[a1, a2, a6, SP[a3, a4], a5, n] - S2[a1, a2, SP[a3, a6], a4, a5, 
     n] - S2[a1, a3, a2, a4, SP[a5, a6], n] - S2[a1, a3, a2, SP[a4, a6], a5, 
     n] - S2[a1, a3, a4, a2, SP[a5, a6], n] + 
    S2[a2, n]*S2[a1, a3, a4, a5, a6, n] + S2[a1, a3, a4, a5, SP[a2, a6], n] - 
    S2[a5, n]*S2[a1, a3, a4, a6, a2, n] + 
    S2[a2, n]*S2[a1, a3, a4, a6, a5, n] - S2[a1, a3, a4, a6, SP[a2, a5], n] + 
    S2[a1, a3, a4, SP[a2, a6], a5, n] - 2*S2[a1, a3, a4, SP[a5, a6], a2, n] + 
    S2[a4, n]*S2[a1, a3, a5, a6, a2, n] + S2[a1, a3, a5, a6, SP[a2, a4], n] + 
    S2[a1, a3, a5, SP[a4, a6], a2, n] - S2[a5, n]*S2[a1, a3, a6, a2, a4, n] + 
    S2[a4, n]*S2[a1, a3, a6, a2, a5, n] - 
    S2[a5, n]*S2[a1, a3, a6, a4, a2, n] + 
    S2[a2, n]*S2[a1, a3, a6, a4, a5, n] - S2[a1, a3, a6, a4, SP[a2, a5], n] + 
    S2[a4, n]*S2[a1, a3, a6, a5, a2, n] + S2[a1, a3, a6, a5, SP[a2, a4], n] + 
    S2[a1, a3, a6, SP[a2, a4], a5, n] - S2[a1, a3, a6, SP[a2, a5], a4, n] + 
    S2[a1, a3, SP[a2, a6], a4, a5, n] - S2[a1, a3, SP[a5, a6], a2, a4, n] - 
    S2[a1, a3, SP[a5, a6], a4, a2, n] - S2[a1, a4, a2, a3, SP[a5, a6], n] - 
    S2[a1, a4, a2, a5, SP[a3, a6], n] + S2[a1, a4, a2, a6, SP[a3, a5], n] - 
    S2[a1, a4, a2, SP[a3, a6], a5, n] - S2[a1, a4, a3, a2, SP[a5, a6], n] + 
    S2[a2, n]*S2[a1, a4, a3, a5, a6, n] + S2[a1, a4, a3, a5, SP[a2, a6], n] - 
    S2[a5, n]*S2[a1, a4, a3, a6, a2, n] + 
    S2[a2, n]*S2[a1, a4, a3, a6, a5, n] - S2[a1, a4, a3, a6, SP[a2, a5], n] + 
    S2[a1, a4, a3, SP[a2, a6], a5, n] - 2*S2[a1, a4, a3, SP[a5, a6], a2, n] - 
    S2[a1, a4, a5, a2, SP[a3, a6], n] + S2[a2, n]*S2[a1, a4, a5, a3, a6, n] + 
    S2[a1, a4, a5, a3, SP[a2, a6], n] - 2*S2[a1, a4, SP[a3, a5], a6, a2, n] + 
    S2[a4, n]*S2[a1, a5, a3, a6, a2, n] + S2[a1, a5, a3, a6, SP[a2, a4], n] + 
    S2[a1, a5, a3, SP[a4, a6], a2, n] + S2[a1, a5, SP[a3, a4], a6, a2, n] - 
    S2[a1, SP[a3, a5], a4, a6, a2, n] - S2[a1, SP[a3, a5], a6, a2, a4, n] - 
    S2[a1, SP[a3, a5], a6, a4, a2, n] - S2[a2, a1, a3, a4, SP[a5, a6], n] - 
    S2[a2, a1, a3, SP[a4, a6], a5, n] - S2[a2, a1, a4, a3, SP[a5, a6], n] - 
    S2[a2, a1, a4, a5, SP[a3, a6], n] + S2[a2, a1, a4, a6, SP[a3, a5], n] - 
    S2[a2, a1, a4, SP[a3, a6], a5, n] + S2[a2, a1, a6, a4, SP[a3, a5], n] + 
    S2[a2, a1, a6, SP[a3, a4], a5, n] - S2[a2, a1, SP[a3, a6], a4, a5, n] + 
    S2[a2, a6, a1, a4, SP[a3, a5], n] + S2[a2, a6, a1, SP[a3, a4], a5, n] + 
    S2[a2, a6, SP[a1, a3], a4, a5, n] - S2[a4, a1, a3, a6, SP[a2, a5], n] - 
    S2[a4, a1, a3, SP[a5, a6], a2, n] - S2[a4, a1, SP[a3, a5], a6, a2, n] - 
    S2[a4, SP[a1, a5], a3, a6, a2, n] + S2[a4, n]*S2[a5, a1, a3, a6, a2, n] + 
    S2[a5, a1, a3, a6, SP[a2, a4], n] + S2[a5, a1, a3, SP[a4, a6], a2, n] + 
    S2[a5, a1, SP[a3, a4], a6, a2, n] + S2[a5, SP[a1, a4], a3, a6, a2, n] - 
    S2[a2, n]*S2[a6, a3, a1, a4, a5, n] - S2[a6, a3, a1, a4, SP[a2, a5], n] - 
    S2[a6, a3, a1, SP[a2, a4], a5, n] - S2[a6, a3, SP[a1, a2], a4, a5, n] - 
    S2[a6, SP[a2, a3], a1, a4, a5, n] - S2[SP[a1, a5], a3, a4, a6, a2, n] - 
    S2[SP[a1, a5], a3, a6, a2, a4, n] - S2[SP[a1, a5], a3, a6, a4, a2, n] - 
    S2[SP[a1, a5], a4, a3, a6, a2, n] - S2[SP[a2, a6], a3, a1, a4, a5, n] + 
    S2[SP[a4, a5], a1, a3, a6, a2, n] + S2[a6, a2, a3, a1, a4, a5, n] + 
    S2[a6, a3, a1, a2, a4, a5, n] + S2[a6, a3, a1, a4, a2, a5, n] + 
    S2[a6, a3, a1, a4, a5, a2, n] + S2[a6, a3, a2, a1, a4, a5, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a5_, a4_, a1_, a6_, a2_, a3_, n_] :> 
  -(S2[a1, a4, a5, n]*S2[a2, a3, a6, n]) - S2[a1, a4, a5, n]*
     S2[a2, a6, a3, n] - S2[SP[a1, a2], SP[a3, a4], SP[a5, a6], n] - 
    S2[SP[a1, a2], SP[a4, a6], SP[a3, a5], n] + S2[a1, a2, SP[a3, a4], 
     SP[a5, a6], n] + S2[a1, a2, SP[a4, a6], SP[a3, a5], n] - 
    S2[a4, a5, n]*S2[a1, a6, a2, a3, n] + S2[a1, a6, SP[a2, a4], SP[a3, a5], 
     n] + S2[a1, SP[a2, a4], a3, SP[a5, a6], n] + S2[a1, SP[a2, a4], a6, 
     SP[a3, a5], n] + S2[a1, SP[a2, a4], SP[a3, a5], a6, n] + 
    S2[a1, SP[a2, a4], SP[a5, a6], a3, n] + S2[a1, SP[a4, a6], a2, 
     SP[a3, a5], n] + S2[a1, SP[a4, a6], SP[a2, a5], a3, n] + 
    S2[a2, a1, SP[a3, a4], SP[a5, a6], n] + S2[a2, a1, SP[a4, a6], 
     SP[a3, a5], n] + S2[a2, SP[a1, a3], a4, SP[a5, a6], n] + 
    S2[a2, SP[a1, a3], SP[a4, a6], a5, n] + S2[a2, SP[a1, a6], a4, 
     SP[a3, a5], n] + S2[a2, SP[a1, a6], SP[a3, a4], a5, n] + 
    S2[SP[a1, a2], a3, a4, SP[a5, a6], n] + S2[SP[a1, a2], a3, SP[a4, a6], 
     a5, n] + S2[SP[a1, a2], a4, a3, SP[a5, a6], n] + 
    S2[SP[a1, a2], a4, a6, SP[a3, a5], n] + S2[SP[a1, a2], a4, SP[a3, a5], 
     a6, n] + S2[SP[a1, a2], a4, SP[a5, a6], a3, n] + 
    S2[SP[a1, a2], a6, a4, SP[a3, a5], n] + S2[SP[a1, a2], a6, SP[a3, a4], 
     a5, n] + S2[SP[a1, a2], SP[a3, a4], a5, a6, n] + 
    S2[SP[a1, a2], SP[a3, a4], a6, a5, n] + S2[SP[a1, a2], SP[a4, a6], a3, 
     a5, n] + S2[SP[a1, a2], SP[a4, a6], a5, a3, n] + 
    S2[SP[a1, a4], a6, a2, SP[a3, a5], n] + S2[SP[a1, a4], a6, SP[a2, a5], 
     a3, n] + S2[SP[a1, a4], SP[a5, a6], a2, a3, n] - 
    S2[a1, a2, a3, a4, SP[a5, a6], n] - S2[a1, a2, a3, SP[a4, a6], a5, n] - 
    S2[a1, a2, a4, a3, SP[a5, a6], n] - S2[a1, a2, a4, a6, SP[a3, a5], n] - 
    S2[a1, a2, a4, SP[a3, a5], a6, n] - S2[a1, a2, a4, SP[a5, a6], a3, n] - 
    S2[a1, a2, a6, a4, SP[a3, a5], n] - S2[a1, a2, a6, SP[a3, a4], a5, n] - 
    S2[a1, a2, SP[a3, a4], a5, a6, n] - S2[a1, a2, SP[a3, a4], a6, a5, n] - 
    S2[a1, a2, SP[a4, a6], a3, a5, n] - S2[a1, a2, SP[a4, a6], a5, a3, n] - 
    S2[a6, n]*S2[a1, a3, a2, a4, a5, n] - S2[a1, a3, a2, a4, SP[a5, a6], n] - 
    S2[a1, a3, a2, SP[a4, a6], a5, n] - S2[a6, n]*S2[a1, a3, a4, a2, a5, n] - 
    S2[a1, a3, a4, a2, SP[a5, a6], n] - S2[a6, n]*S2[a1, a3, a4, a5, a2, n] + 
    S2[a2, n]*S2[a1, a3, a4, a5, a6, n] + 
    S2[a2, n]*S2[a1, a3, a4, a6, a5, n] + S2[a1, a3, a4, a6, SP[a2, a5], n] + 
    S2[a1, a3, a4, SP[a2, a5], a6, n] - S2[a1, a3, a4, SP[a5, a6], a2, n] + 
    S2[a2, n]*S2[a1, a3, a6, a4, a5, n] + S2[a1, a3, a6, a4, SP[a2, a5], n] + 
    S2[a1, a3, a6, SP[a2, a4], a5, n] + S2[a1, a3, SP[a2, a4], a5, a6, n] + 
    S2[a1, a3, SP[a2, a4], a6, a5, n] - S2[a1, a3, SP[a4, a6], a2, a5, n] - 
    S2[a1, a3, SP[a4, a6], a5, a2, n] - S2[a1, a4, a2, a3, SP[a5, a6], n] - 
    S2[a1, a4, a2, a6, SP[a3, a5], n] - S2[a1, a4, a2, SP[a3, a5], a6, n] - 
    S2[a1, a4, a2, SP[a5, a6], a3, n] - S2[a6, n]*S2[a1, a4, a3, a2, a5, n] - 
    S2[a1, a4, a3, a2, SP[a5, a6], n] - S2[a6, n]*S2[a1, a4, a3, a5, a2, n] + 
    S2[a2, n]*S2[a1, a4, a3, a5, a6, n] + 
    S2[a2, n]*S2[a1, a4, a3, a6, a5, n] + S2[a1, a4, a3, a6, SP[a2, a5], n] + 
    S2[a1, a4, a3, SP[a2, a5], a6, n] - S2[a1, a4, a3, SP[a5, a6], a2, n] - 
    S2[a6, n]*S2[a1, a4, a5, a3, a2, n] + 
    S2[a2, n]*S2[a1, a4, a5, a3, a6, n] + 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] + S2[a1, a4, a5, a6, SP[a2, a3], n] + 
    S2[a1, a4, a5, SP[a2, a3], a6, n] + S2[a1, a4, a5, SP[a2, a6], a3, n] - 
    S2[a1, a4, a5, SP[a3, a6], a2, n] - S2[a5, n]*S2[a1, a4, a6, a2, a3, n] - 
    2*S2[a1, a4, a6, a2, SP[a3, a5], n] + 
    S2[a2, n]*S2[a1, a4, a6, a3, a5, n] + S2[a1, a4, a6, a3, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a4, a6, a5, a3, n] + S2[a1, a4, a6, a5, SP[a2, a3], n] + 
    S2[a1, a4, a6, SP[a2, a3], a5, n] - S2[a1, a4, a6, SP[a2, a5], a3, n] + 
    S2[a1, a4, SP[a2, a3], a5, a6, n] + S2[a1, a4, SP[a2, a3], a6, a5, n] + 
    S2[a1, a4, SP[a2, a6], a3, a5, n] + S2[a1, a4, SP[a2, a6], a5, a3, n] - 
    S2[a1, a4, SP[a3, a6], a2, a5, n] - S2[a1, a4, SP[a3, a6], a5, a2, n] - 
    2*S2[a1, a4, SP[a5, a6], a2, a3, n] - S2[a1, a4, SP[a5, a6], a3, a2, n] + 
    S2[a4, n]*S2[a1, a5, a6, a2, a3, n] + S2[a1, a5, a6, a2, SP[a3, a4], n] + 
    S2[a1, a5, a6, SP[a2, a4], a3, n] + S2[a1, a5, SP[a4, a6], a2, a3, n] - 
    S2[a5, n]*S2[a1, a6, a2, a3, a4, n] + 
    S2[a4, n]*S2[a1, a6, a2, a3, a5, n] - 
    S2[a5, n]*S2[a1, a6, a2, a4, a3, n] - 
    2*S2[a1, a6, a2, a4, SP[a3, a5], n] + 
    S2[a4, n]*S2[a1, a6, a2, a5, a3, n] + S2[a1, a6, a2, a5, SP[a3, a4], n] - 
    S2[a1, a6, a2, SP[a3, a5], a4, n] + S2[a2, n]*S2[a1, a6, a3, a4, a5, n] + 
    S2[a1, a6, a3, a4, SP[a2, a5], n] + S2[a1, a6, a3, SP[a2, a4], a5, n] - 
    S2[a5, n]*S2[a1, a6, a4, a2, a3, n] - 
    2*S2[a1, a6, a4, a2, SP[a3, a5], n] + 
    S2[a2, n]*S2[a1, a6, a4, a3, a5, n] + S2[a1, a6, a4, a3, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a6, a4, a5, a3, n] + S2[a1, a6, a4, a5, SP[a2, a3], n] + 
    S2[a1, a6, a4, SP[a2, a3], a5, n] - S2[a1, a6, a4, SP[a2, a5], a3, n] + 
    S2[a4, n]*S2[a1, a6, a5, a2, a3, n] + S2[a1, a6, a5, a2, SP[a3, a4], n] + 
    S2[a1, a6, a5, SP[a2, a4], a3, n] + S2[a1, a6, SP[a2, a3], a4, a5, n] + 
    S2[a1, a6, SP[a2, a4], a3, a5, n] + S2[a1, a6, SP[a2, a4], a5, a3, n] - 
    S2[a1, a6, SP[a2, a5], a3, a4, n] - S2[a1, a6, SP[a2, a5], a4, a3, n] + 
    S2[a1, SP[a2, a3], a4, a5, a6, n] + S2[a1, SP[a2, a3], a4, a6, a5, n] + 
    S2[a1, SP[a2, a3], a6, a4, a5, n] + S2[a1, SP[a2, a6], a3, a4, a5, n] + 
    S2[a1, SP[a2, a6], a4, a3, a5, n] + S2[a1, SP[a2, a6], a4, a5, a3, n] - 
    S2[a1, SP[a3, a6], a2, a4, a5, n] - S2[a1, SP[a3, a6], a4, a2, a5, n] - 
    S2[a1, SP[a3, a6], a4, a5, a2, n] - S2[a1, SP[a4, a6], a3, a2, a5, n] - 
    S2[a1, SP[a4, a6], a3, a5, a2, n] - S2[a1, SP[a4, a6], a5, a3, a2, n] - 
    S2[a1, SP[a5, a6], a2, a3, a4, n] - S2[a1, SP[a5, a6], a2, a4, a3, n] - 
    S2[a1, SP[a5, a6], a4, a2, a3, n] - S2[a2, a1, a3, a4, SP[a5, a6], n] - 
    S2[a2, a1, a3, SP[a4, a6], a5, n] - S2[a2, a1, a4, a3, SP[a5, a6], n] - 
    S2[a2, a1, a4, a6, SP[a3, a5], n] - S2[a2, a1, a4, SP[a3, a5], a6, n] - 
    S2[a2, a1, a4, SP[a5, a6], a3, n] - S2[a2, a1, a6, a4, SP[a3, a5], n] - 
    S2[a2, a1, a6, SP[a3, a4], a5, n] - S2[a2, a1, SP[a3, a4], a5, a6, n] - 
    S2[a2, a1, SP[a3, a4], a6, a5, n] - S2[a2, a1, SP[a4, a6], a3, a5, n] - 
    S2[a2, a1, SP[a4, a6], a5, a3, n] + S2[a6, n]*S2[a2, a3, a1, a4, a5, n] - 
    S2[a2, a6, a1, a4, SP[a3, a5], n] - S2[a2, a6, a1, SP[a3, a4], a5, n] - 
    S2[a2, a6, SP[a1, a3], a4, a5, n] - S2[a2, SP[a1, a3], a4, a5, a6, n] - 
    S2[a2, SP[a1, a3], a4, a6, a5, n] - S2[a2, SP[a1, a3], a6, a4, a5, n] - 
    S2[a2, SP[a1, a6], a3, a4, a5, n] - S2[a2, SP[a1, a6], a4, a3, a5, n] - 
    S2[a2, SP[a1, a6], a4, a5, a3, n] + S2[a2, SP[a3, a6], a1, a4, a5, n] - 
    S2[a4, a1, a6, a2, SP[a3, a5], n] - S2[a4, a1, a6, SP[a2, a5], a3, n] - 
    S2[a4, a1, SP[a5, a6], a2, a3, n] - S2[a4, SP[a1, a5], a6, a2, a3, n] + 
    S2[a4, n]*S2[a5, a1, a6, a2, a3, n] + S2[a5, a1, a6, a2, SP[a3, a4], n] + 
    S2[a5, a1, a6, SP[a2, a4], a3, n] + S2[a5, a1, SP[a4, a6], a2, a3, n] + 
    S2[a5, SP[a1, a4], a6, a2, a3, n] + S2[a2, n]*S2[a6, a1, a3, a4, a5, n] + 
    S2[a6, a1, a3, a4, SP[a2, a5], n] + S2[a6, a1, a3, SP[a2, a4], a5, n] + 
    S2[a2, n]*S2[a6, a1, a4, a3, a5, n] + S2[a6, a1, a4, a3, SP[a2, a5], n] + 
    S2[a2, n]*S2[a6, a1, a4, a5, a3, n] + S2[a6, a1, a4, a5, SP[a2, a3], n] + 
    S2[a6, a1, a4, SP[a2, a3], a5, n] + S2[a6, a1, a4, SP[a2, a5], a3, n] + 
    S2[a6, a1, SP[a2, a3], a4, a5, n] + S2[a6, a1, SP[a2, a4], a3, a5, n] + 
    S2[a6, a1, SP[a2, a4], a5, a3, n] + S2[a6, SP[a1, a2], a3, a4, a5, n] + 
    S2[a6, SP[a1, a2], a4, a3, a5, n] + S2[a6, SP[a1, a2], a4, a5, a3, n] - 
    S2[SP[a1, a5], a4, a6, a2, a3, n] - S2[SP[a1, a5], a6, a2, a3, a4, n] - 
    S2[SP[a1, a5], a6, a2, a4, a3, n] - S2[SP[a1, a5], a6, a4, a2, a3, n] - 
    S2[SP[a1, a6], a3, a2, a4, a5, n] - S2[SP[a1, a6], a3, a4, a2, a5, n] - 
    S2[SP[a1, a6], a3, a4, a5, a2, n] - S2[SP[a1, a6], a4, a3, a2, a5, n] - 
    S2[SP[a1, a6], a4, a3, a5, a2, n] - S2[SP[a1, a6], a4, a5, a3, a2, n] + 
    S2[SP[a2, a6], a1, a3, a4, a5, n] + S2[SP[a2, a6], a1, a4, a3, a5, n] + 
    S2[SP[a2, a6], a1, a4, a5, a3, n] + S2[SP[a2, a6], a3, a1, a4, a5, n] + 
    S2[SP[a4, a5], a1, a6, a2, a3, n] - S2[a6, a1, a2, a3, a4, a5, n] - 
    S2[a6, a1, a2, a4, a3, a5, n] - S2[a6, a1, a2, a4, a5, a3, n] - 
    S2[a6, a1, a4, a2, a3, a5, n] - S2[a6, a1, a4, a2, a5, a3, n] - 
    S2[a6, a1, a4, a5, a2, a3, n] - S2[a6, a2, a1, a3, a4, a5, n] - 
    S2[a6, a2, a1, a4, a3, a5, n] - S2[a6, a2, a1, a4, a5, a3, n] - 
    S2[a6, a2, a3, a1, a4, a5, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a5_, a4_, a1_, a6_, a3_, a2_, n_] :> 
  S2[a1, a4, a5, n]*S2[a2, a3, a6, n] + S2[SP[a1, a2], SP[a3, a4], 
     SP[a5, a6], n] - S2[a1, a2, SP[a3, a4], SP[a5, a6], n] - 
    S2[a4, a5, n]*S2[a1, a6, a3, a2, n] + S2[a1, a6, SP[a3, a4], SP[a2, a5], 
     n] - S2[a1, SP[a2, a4], a3, SP[a5, a6], n] - 
    S2[a1, SP[a2, a4], SP[a3, a5], a6, n] + S2[a1, SP[a4, a6], a3, 
     SP[a2, a5], n] + S2[a1, SP[a4, a6], SP[a3, a5], a2, n] - 
    S2[a2, a1, SP[a3, a4], SP[a5, a6], n] - S2[a2, SP[a1, a3], a4, 
     SP[a5, a6], n] - S2[a2, SP[a1, a3], SP[a4, a6], a5, n] - 
    S2[SP[a1, a2], a3, a4, SP[a5, a6], n] - S2[SP[a1, a2], a3, SP[a4, a6], 
     a5, n] - S2[SP[a1, a2], a4, a3, SP[a5, a6], n] - 
    S2[SP[a1, a2], a4, SP[a3, a5], a6, n] - S2[SP[a1, a2], SP[a3, a4], a5, 
     a6, n] - S2[SP[a1, a2], SP[a3, a4], a6, a5, n] + 
    S2[SP[a1, a4], a6, a3, SP[a2, a5], n] + S2[SP[a1, a4], a6, SP[a3, a5], 
     a2, n] + S2[SP[a1, a4], SP[a5, a6], a3, a2, n] + 
    S2[a1, a2, a3, a4, SP[a5, a6], n] + S2[a1, a2, a3, SP[a4, a6], a5, n] + 
    S2[a1, a2, a4, a3, SP[a5, a6], n] + S2[a1, a2, a4, SP[a3, a5], a6, n] + 
    S2[a1, a2, SP[a3, a4], a5, a6, n] + S2[a1, a2, SP[a3, a4], a6, a5, n] + 
    S2[a6, n]*S2[a1, a3, a2, a4, a5, n] + S2[a1, a3, a2, a4, SP[a5, a6], n] + 
    S2[a1, a3, a2, SP[a4, a6], a5, n] + S2[a6, n]*S2[a1, a3, a4, a2, a5, n] + 
    S2[a1, a3, a4, a2, SP[a5, a6], n] + S2[a6, n]*S2[a1, a3, a4, a5, a2, n] - 
    S2[a2, n]*S2[a1, a3, a4, a5, a6, n] - 
    S2[a2, n]*S2[a1, a3, a4, a6, a5, n] - S2[a1, a3, a4, a6, SP[a2, a5], n] - 
    S2[a1, a3, a4, SP[a2, a5], a6, n] + S2[a1, a3, a4, SP[a5, a6], a2, n] - 
    S2[a2, n]*S2[a1, a3, a6, a4, a5, n] - S2[a1, a3, a6, a4, SP[a2, a5], n] - 
    S2[a1, a3, a6, SP[a2, a4], a5, n] - S2[a1, a3, SP[a2, a4], a5, a6, n] - 
    S2[a1, a3, SP[a2, a4], a6, a5, n] + S2[a1, a3, SP[a4, a6], a2, a5, n] + 
    S2[a1, a3, SP[a4, a6], a5, a2, n] + S2[a1, a4, a2, a3, SP[a5, a6], n] + 
    S2[a1, a4, a2, SP[a3, a5], a6, n] + S2[a6, n]*S2[a1, a4, a3, a2, a5, n] + 
    S2[a1, a4, a3, a2, SP[a5, a6], n] + S2[a6, n]*S2[a1, a4, a3, a5, a2, n] - 
    S2[a2, n]*S2[a1, a4, a3, a5, a6, n] - 
    S2[a2, n]*S2[a1, a4, a3, a6, a5, n] - S2[a1, a4, a3, a6, SP[a2, a5], n] - 
    S2[a1, a4, a3, SP[a2, a5], a6, n] + S2[a1, a4, a3, SP[a5, a6], a2, n] + 
    S2[a6, n]*S2[a1, a4, a5, a3, a2, n] - 
    S2[a2, n]*S2[a1, a4, a5, a3, a6, n] - S2[a1, a4, a5, SP[a2, a3], a6, n] + 
    S2[a1, a4, a5, SP[a3, a6], a2, n] - S2[a5, n]*S2[a1, a4, a6, a3, a2, n] - 
    2*S2[a1, a4, a6, a3, SP[a2, a5], n] - 
    2*S2[a1, a4, a6, SP[a3, a5], a2, n] - S2[a1, a4, SP[a2, a3], a5, a6, n] - 
    S2[a1, a4, SP[a2, a3], a6, a5, n] + S2[a1, a4, SP[a3, a6], a2, a5, n] + 
    S2[a1, a4, SP[a3, a6], a5, a2, n] - S2[a1, a4, SP[a5, a6], a3, a2, n] + 
    S2[a4, n]*S2[a1, a5, a6, a3, a2, n] + S2[a1, a5, a6, a3, SP[a2, a4], n] + 
    S2[a1, a5, a6, SP[a3, a4], a2, n] + S2[a1, a5, SP[a4, a6], a3, a2, n] - 
    S2[a5, n]*S2[a1, a6, a3, a2, a4, n] + 
    S2[a4, n]*S2[a1, a6, a3, a2, a5, n] - 
    S2[a5, n]*S2[a1, a6, a3, a4, a2, n] - 
    2*S2[a1, a6, a3, a4, SP[a2, a5], n] + 
    S2[a4, n]*S2[a1, a6, a3, a5, a2, n] + S2[a1, a6, a3, a5, SP[a2, a4], n] - 
    S2[a1, a6, a3, SP[a2, a5], a4, n] - S2[a5, n]*S2[a1, a6, a4, a3, a2, n] - 
    2*S2[a1, a6, a4, a3, SP[a2, a5], n] - 
    2*S2[a1, a6, a4, SP[a3, a5], a2, n] + 
    S2[a4, n]*S2[a1, a6, a5, a3, a2, n] + S2[a1, a6, a5, a3, SP[a2, a4], n] + 
    S2[a1, a6, a5, SP[a3, a4], a2, n] - S2[a1, a6, SP[a3, a5], a2, a4, n] - 
    S2[a1, a6, SP[a3, a5], a4, a2, n] - S2[a1, SP[a2, a3], a4, a5, a6, n] - 
    S2[a1, SP[a2, a3], a4, a6, a5, n] - S2[a1, SP[a2, a3], a6, a4, a5, n] + 
    S2[a1, SP[a3, a6], a2, a4, a5, n] + S2[a1, SP[a3, a6], a4, a2, a5, n] + 
    S2[a1, SP[a3, a6], a4, a5, a2, n] + S2[a1, SP[a4, a6], a3, a2, a5, n] + 
    S2[a1, SP[a4, a6], a3, a5, a2, n] + S2[a1, SP[a4, a6], a5, a3, a2, n] - 
    S2[a1, SP[a5, a6], a3, a2, a4, n] - S2[a1, SP[a5, a6], a3, a4, a2, n] - 
    S2[a1, SP[a5, a6], a4, a3, a2, n] + S2[a2, a1, a3, a4, SP[a5, a6], n] + 
    S2[a2, a1, a3, SP[a4, a6], a5, n] + S2[a2, a1, a4, a3, SP[a5, a6], n] + 
    S2[a2, a1, a4, SP[a3, a5], a6, n] + S2[a2, a1, SP[a3, a4], a5, a6, n] + 
    S2[a2, a1, SP[a3, a4], a6, a5, n] - S2[a6, n]*S2[a2, a3, a1, a4, a5, n] + 
    S2[a2, SP[a1, a3], a4, a5, a6, n] + S2[a2, SP[a1, a3], a4, a6, a5, n] + 
    S2[a2, SP[a1, a3], a6, a4, a5, n] - S2[a2, SP[a3, a6], a1, a4, a5, n] - 
    S2[a4, a1, a6, a3, SP[a2, a5], n] - S2[a4, a1, a6, SP[a3, a5], a2, n] - 
    S2[a4, a1, SP[a5, a6], a3, a2, n] - S2[a4, SP[a1, a5], a6, a3, a2, n] + 
    S2[a4, n]*S2[a5, a1, a6, a3, a2, n] + S2[a5, a1, a6, a3, SP[a2, a4], n] + 
    S2[a5, a1, a6, SP[a3, a4], a2, n] + S2[a5, a1, SP[a4, a6], a3, a2, n] + 
    S2[a5, SP[a1, a4], a6, a3, a2, n] + S2[a2, n]*S2[a6, a3, a1, a4, a5, n] + 
    S2[a6, a3, a1, a4, SP[a2, a5], n] + S2[a6, a3, a1, SP[a2, a4], a5, n] + 
    S2[a6, a3, SP[a1, a2], a4, a5, n] + S2[a6, SP[a2, a3], a1, a4, a5, n] - 
    S2[SP[a1, a5], a4, a6, a3, a2, n] - S2[SP[a1, a5], a6, a3, a2, a4, n] - 
    S2[SP[a1, a5], a6, a3, a4, a2, n] - S2[SP[a1, a5], a6, a4, a3, a2, n] + 
    S2[SP[a1, a6], a3, a2, a4, a5, n] + S2[SP[a1, a6], a3, a4, a2, a5, n] + 
    S2[SP[a1, a6], a3, a4, a5, a2, n] + S2[SP[a1, a6], a4, a3, a2, a5, n] + 
    S2[SP[a1, a6], a4, a3, a5, a2, n] + S2[SP[a1, a6], a4, a5, a3, a2, n] + 
    S2[SP[a4, a5], a1, a6, a3, a2, n] - S2[a6, a1, a3, a2, a4, a5, n] - 
    S2[a6, a1, a3, a4, a2, a5, n] - S2[a6, a1, a3, a4, a5, a2, n] - 
    S2[a6, a1, a4, a3, a2, a5, n] - S2[a6, a1, a4, a3, a5, a2, n] - 
    S2[a6, a1, a4, a5, a3, a2, n] - S2[a6, a3, a1, a2, a4, a5, n] - 
    S2[a6, a3, a1, a4, a2, a5, n] - S2[a6, a3, a1, a4, a5, a2, n] - 
    S2[a6, a3, a2, a1, a4, a5, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a5_, a4_, a2_, a1_, a3_, a6_, n_] :> 
  S2[a1, a3, a6, n]*S2[a2, a4, a5, n] + S2[SP[a1, a2], SP[a3, a4], 
     SP[a5, a6], n] + S2[a4, a5, n]*S2[a1, a2, a3, a6, n] - 
    S2[a3, a6, n]*S2[a1, a2, a4, a5, n] - S2[a1, a2, SP[a3, a4], SP[a5, a6], 
     n] + S2[a4, a5, n]*S2[a1, a3, a2, a6, n] + 
    S2[a4, a5, n]*S2[a1, a3, a6, a2, n] - S2[a1, a3, SP[a2, a4], SP[a5, a6], 
     n] - S2[a1, a3, SP[a4, a6], SP[a2, a5], n] - S2[a1, SP[a2, a4], a3, 
     SP[a5, a6], n] - S2[a1, SP[a2, a4], SP[a3, a5], a6, n] - 
    S2[a1, SP[a3, a4], a2, SP[a5, a6], n] - S2[a1, SP[a3, a4], a6, 
     SP[a2, a5], n] - S2[a1, SP[a3, a4], SP[a2, a5], a6, n] - 
    S2[a1, SP[a3, a4], SP[a5, a6], a2, n] - S2[a2, a1, SP[a3, a4], 
     SP[a5, a6], n] - S2[a2, SP[a1, a4], a3, SP[a5, a6], n] - 
    S2[a2, SP[a1, a4], SP[a3, a5], a6, n] - S2[SP[a1, a2], a3, a4, 
     SP[a5, a6], n] - S2[SP[a1, a2], a3, SP[a4, a6], a5, n] - 
    S2[SP[a1, a2], a4, a3, SP[a5, a6], n] - S2[SP[a1, a2], a4, SP[a3, a5], 
     a6, n] - S2[SP[a1, a2], SP[a3, a4], a5, a6, n] - 
    S2[SP[a1, a2], SP[a3, a4], a6, a5, n] + S2[SP[a1, a3], a2, a4, 
     SP[a5, a6], n] + S2[SP[a1, a3], a2, SP[a4, a6], a5, n] + 
    S2[SP[a1, a3], SP[a2, a6], a4, a5, n] - S2[SP[a1, a4], a2, a3, 
     SP[a5, a6], n] - S2[SP[a1, a4], a2, SP[a3, a5], a6, n] - 
    S2[SP[a1, a4], a3, a2, SP[a5, a6], n] - S2[SP[a1, a4], a3, a6, 
     SP[a2, a5], n] - S2[SP[a1, a4], a3, SP[a2, a5], a6, n] - 
    S2[SP[a1, a4], a3, SP[a5, a6], a2, n] - S2[SP[a1, a4], SP[a2, a5], a3, 
     a6, n] - S2[SP[a1, a4], SP[a3, a5], a2, a6, n] - 
    S2[SP[a1, a4], SP[a3, a5], a6, a2, n] - 
    S2[a6, n]*S2[a1, a2, a3, a4, a5, n] + 
    S2[a5, n]*S2[a1, a2, a3, a4, a6, n] + S2[a1, a2, a3, a4, SP[a5, a6], n] - 
    S2[a4, n]*S2[a1, a2, a3, a5, a6, n] - S2[a1, a2, a3, a5, SP[a4, a6], n] + 
    S2[a5, n]*S2[a1, a2, a3, a6, a4, n] - 
    S2[a4, n]*S2[a1, a2, a3, a6, a5, n] - S2[a1, a2, a3, SP[a4, a6], a5, n] + 
    S2[a1, a2, a3, SP[a5, a6], a4, n] - S2[a6, n]*S2[a1, a2, a4, a3, a5, n] + 
    S2[a5, n]*S2[a1, a2, a4, a3, a6, n] + S2[a1, a2, a4, a3, SP[a5, a6], n] - 
    S2[a6, n]*S2[a1, a2, a4, a5, a3, n] + 
    S2[a3, n]*S2[a1, a2, a4, a5, a6, n] + 
    S2[a3, n]*S2[a1, a2, a4, a6, a5, n] + S2[a1, a2, a4, a6, SP[a3, a5], n] + 
    3*S2[a1, a2, a4, SP[a3, a5], a6, n] - S2[a1, a2, a4, SP[a5, a6], a3, n] - 
    S2[a4, n]*S2[a1, a2, a5, a3, a6, n] - S2[a1, a2, a5, a3, SP[a4, a6], n] - 
    S2[a1, a2, a5, SP[a3, a4], a6, n] + S2[a3, n]*S2[a1, a2, a6, a4, a5, n] + 
    S2[a1, a2, a6, a4, SP[a3, a5], n] + S2[a1, a2, a6, SP[a3, a4], a5, n] + 
    S2[a1, a2, SP[a3, a4], a5, a6, n] + S2[a1, a2, SP[a3, a4], a6, a5, n] + 
    S2[a1, a2, SP[a3, a5], a4, a6, n] + S2[a1, a2, SP[a3, a5], a6, a4, n] - 
    S2[a1, a2, SP[a4, a6], a3, a5, n] - S2[a1, a2, SP[a4, a6], a5, a3, n] - 
    S2[a6, n]*S2[a1, a3, a2, a4, a5, n] + 
    S2[a5, n]*S2[a1, a3, a2, a4, a6, n] + S2[a1, a3, a2, a4, SP[a5, a6], n] - 
    S2[a4, n]*S2[a1, a3, a2, a5, a6, n] - S2[a1, a3, a2, a5, SP[a4, a6], n] + 
    S2[a5, n]*S2[a1, a3, a2, a6, a4, n] - 
    S2[a4, n]*S2[a1, a3, a2, a6, a5, n] - S2[a1, a3, a2, SP[a4, a6], a5, n] + 
    S2[a1, a3, a2, SP[a5, a6], a4, n] + S2[a5, n]*S2[a1, a3, a4, a2, a6, n] + 
    2*S2[a1, a3, a4, a2, SP[a5, a6], n] - 
    S2[a2, n]*S2[a1, a3, a4, a5, a6, n] - S2[a1, a3, a4, a5, SP[a2, a6], n] + 
    S2[a5, n]*S2[a1, a3, a4, a6, a2, n] - 
    S2[a2, n]*S2[a1, a3, a4, a6, a5, n] + S2[a1, a3, a4, a6, SP[a2, a5], n] + 
    S2[a1, a3, a4, SP[a2, a5], a6, n] - S2[a1, a3, a4, SP[a2, a6], a5, n] + 
    2*S2[a1, a3, a4, SP[a5, a6], a2, n] - 
    S2[a4, n]*S2[a1, a3, a5, a2, a6, n] - S2[a1, a3, a5, a2, SP[a4, a6], n] - 
    S2[a4, n]*S2[a1, a3, a5, a6, a2, n] - S2[a1, a3, a5, a6, SP[a2, a4], n] - 
    S2[a1, a3, a5, SP[a2, a4], a6, n] - S2[a1, a3, a5, SP[a4, a6], a2, n] + 
    S2[a5, n]*S2[a1, a3, a6, a2, a4, n] - 
    S2[a4, n]*S2[a1, a3, a6, a2, a5, n] + 
    S2[a5, n]*S2[a1, a3, a6, a4, a2, n] - 
    S2[a2, n]*S2[a1, a3, a6, a4, a5, n] + S2[a1, a3, a6, a4, SP[a2, a5], n] - 
    S2[a4, n]*S2[a1, a3, a6, a5, a2, n] - S2[a1, a3, a6, a5, SP[a2, a4], n] - 
    S2[a1, a3, a6, SP[a2, a4], a5, n] + S2[a1, a3, a6, SP[a2, a5], a4, n] - 
    S2[a1, a3, SP[a2, a4], a5, a6, n] - S2[a1, a3, SP[a2, a4], a6, a5, n] + 
    S2[a1, a3, SP[a2, a5], a4, a6, n] + S2[a1, a3, SP[a2, a5], a6, a4, n] - 
    2*S2[a1, a3, SP[a2, a6], a4, a5, n] + S2[a1, a3, SP[a5, a6], a2, a4, n] + 
    S2[a1, a3, SP[a5, a6], a4, a2, n] + S2[a5, n]*S2[a1, a4, a2, a3, a6, n] + 
    2*S2[a1, a4, a2, a3, SP[a5, a6], n] + 
    2*S2[a1, a4, a2, SP[a3, a5], a6, n] + 
    S2[a5, n]*S2[a1, a4, a3, a2, a6, n] + 
    2*S2[a1, a4, a3, a2, SP[a5, a6], n] - 
    S2[a2, n]*S2[a1, a4, a3, a5, a6, n] - S2[a1, a4, a3, a5, SP[a2, a6], n] + 
    S2[a5, n]*S2[a1, a4, a3, a6, a2, n] - 
    S2[a2, n]*S2[a1, a4, a3, a6, a5, n] + S2[a1, a4, a3, a6, SP[a2, a5], n] + 
    S2[a1, a4, a3, SP[a2, a5], a6, n] - S2[a1, a4, a3, SP[a2, a6], a5, n] + 
    2*S2[a1, a4, a3, SP[a5, a6], a2, n] - 
    S2[a2, n]*S2[a1, a4, a5, a3, a6, n] - S2[a1, a4, a5, a3, SP[a2, a6], n] - 
    S2[a1, a4, a5, SP[a2, a3], a6, n] - S2[a1, a4, SP[a2, a3], a5, a6, n] - 
    S2[a1, a4, SP[a2, a3], a6, a5, n] + S2[a1, a4, SP[a2, a5], a3, a6, n] + 
    2*S2[a1, a4, SP[a3, a5], a2, a6, n] + 
    2*S2[a1, a4, SP[a3, a5], a6, a2, n] - 
    S2[a4, n]*S2[a1, a5, a2, a3, a6, n] - S2[a1, a5, a2, a3, SP[a4, a6], n] - 
    S2[a1, a5, a2, SP[a3, a4], a6, n] - S2[a4, n]*S2[a1, a5, a3, a2, a6, n] - 
    S2[a1, a5, a3, a2, SP[a4, a6], n] - S2[a4, n]*S2[a1, a5, a3, a6, a2, n] - 
    S2[a1, a5, a3, a6, SP[a2, a4], n] - S2[a1, a5, a3, SP[a2, a4], a6, n] - 
    S2[a1, a5, a3, SP[a4, a6], a2, n] - S2[a1, a5, SP[a2, a4], a3, a6, n] - 
    S2[a1, a5, SP[a3, a4], a2, a6, n] - S2[a1, a5, SP[a3, a4], a6, a2, n] + 
    S2[a3, n]*S2[a1, a6, a2, a4, a5, n] + S2[a1, a6, a2, a4, SP[a3, a5], n] + 
    S2[a1, a6, a2, SP[a3, a4], a5, n] + S2[a1, a6, SP[a2, a3], a4, a5, n] - 
    S2[a1, SP[a2, a4], a3, a5, a6, n] - S2[a1, SP[a2, a4], a3, a6, a5, n] - 
    S2[a1, SP[a2, a4], a5, a3, a6, n] + S2[a1, SP[a2, a5], a3, a4, a6, n] + 
    S2[a1, SP[a2, a5], a3, a6, a4, n] + S2[a1, SP[a2, a5], a4, a3, a6, n] - 
    S2[a1, SP[a2, a6], a3, a4, a5, n] - S2[a1, SP[a2, a6], a4, a3, a5, n] - 
    S2[a1, SP[a2, a6], a4, a5, a3, n] + S2[a1, SP[a3, a5], a2, a4, a6, n] + 
    S2[a1, SP[a3, a5], a2, a6, a4, n] + S2[a1, SP[a3, a5], a4, a2, a6, n] + 
    S2[a1, SP[a3, a5], a4, a6, a2, n] + S2[a1, SP[a3, a5], a6, a2, a4, n] + 
    S2[a1, SP[a3, a5], a6, a4, a2, n] + S2[a2, a1, a3, a4, SP[a5, a6], n] + 
    S2[a2, a1, a3, SP[a4, a6], a5, n] + S2[a2, a1, a4, a3, SP[a5, a6], n] + 
    S2[a2, a1, a4, SP[a3, a5], a6, n] + S2[a2, a1, SP[a3, a4], a5, a6, n] + 
    S2[a2, a1, SP[a3, a4], a6, a5, n] - S2[a5, n]*S2[a2, a4, a1, a3, a6, n] + 
    S2[a2, SP[a1, a4], a3, a5, a6, n] + S2[a2, SP[a1, a4], a3, a6, a5, n] + 
    S2[a2, SP[a1, a4], a5, a3, a6, n] - S2[a2, SP[a4, a5], a1, a3, a6, n] - 
    S2[a3, a1, a2, a4, SP[a5, a6], n] - S2[a3, a1, a2, SP[a4, a6], a5, n] - 
    S2[a3, a1, SP[a2, a6], a4, a5, n] - S2[a3, SP[a1, a6], a2, a4, a5, n] + 
    S2[a4, a1, a2, a3, SP[a5, a6], n] + S2[a4, a1, a2, SP[a3, a5], a6, n] + 
    S2[a4, a1, a3, a2, SP[a5, a6], n] + S2[a4, a1, a3, a6, SP[a2, a5], n] + 
    S2[a4, a1, a3, SP[a2, a5], a6, n] + S2[a4, a1, a3, SP[a5, a6], a2, n] + 
    S2[a4, a1, SP[a2, a5], a3, a6, n] + S2[a4, a1, SP[a3, a5], a2, a6, n] + 
    S2[a4, a1, SP[a3, a5], a6, a2, n] + S2[a4, SP[a1, a5], a2, a3, a6, n] + 
    S2[a4, SP[a1, a5], a3, a2, a6, n] + S2[a4, SP[a1, a5], a3, a6, a2, n] - 
    S2[a4, n]*S2[a5, a1, a2, a3, a6, n] - S2[a5, a1, a2, a3, SP[a4, a6], n] - 
    S2[a5, a1, a2, SP[a3, a4], a6, n] - S2[a4, n]*S2[a5, a1, a3, a2, a6, n] - 
    S2[a5, a1, a3, a2, SP[a4, a6], n] - S2[a4, n]*S2[a5, a1, a3, a6, a2, n] - 
    S2[a5, a1, a3, a6, SP[a2, a4], n] - S2[a5, a1, a3, SP[a2, a4], a6, n] - 
    S2[a5, a1, a3, SP[a4, a6], a2, n] - S2[a5, a1, SP[a2, a4], a3, a6, n] - 
    S2[a5, a1, SP[a3, a4], a2, a6, n] - S2[a5, a1, SP[a3, a4], a6, a2, n] + 
    S2[a2, n]*S2[a5, a4, a1, a3, a6, n] + S2[a5, a4, a1, a3, SP[a2, a6], n] + 
    S2[a5, a4, a1, SP[a2, a3], a6, n] + S2[a5, a4, SP[a1, a2], a3, a6, n] - 
    S2[a5, SP[a1, a4], a2, a3, a6, n] - S2[a5, SP[a1, a4], a3, a2, a6, n] - 
    S2[a5, SP[a1, a4], a3, a6, a2, n] + S2[a5, SP[a2, a4], a1, a3, a6, n] + 
    S2[a3, n]*S2[a6, a1, a2, a4, a5, n] + S2[a6, a1, a2, a4, SP[a3, a5], n] + 
    S2[a6, a1, a2, SP[a3, a4], a5, n] + S2[a6, a1, SP[a2, a3], a4, a5, n] + 
    S2[a6, SP[a1, a3], a2, a4, a5, n] + S2[SP[a1, a5], a2, a3, a4, a6, n] + 
    S2[SP[a1, a5], a2, a3, a6, a4, n] + S2[SP[a1, a5], a2, a4, a3, a6, n] + 
    S2[SP[a1, a5], a3, a2, a4, a6, n] + S2[SP[a1, a5], a3, a2, a6, a4, n] + 
    S2[SP[a1, a5], a3, a4, a2, a6, n] + S2[SP[a1, a5], a3, a4, a6, a2, n] + 
    S2[SP[a1, a5], a3, a6, a2, a4, n] + S2[SP[a1, a5], a3, a6, a4, a2, n] + 
    S2[SP[a1, a5], a4, a2, a3, a6, n] + S2[SP[a1, a5], a4, a3, a2, a6, n] + 
    S2[SP[a1, a5], a4, a3, a6, a2, n] - S2[SP[a1, a6], a2, a3, a4, a5, n] - 
    S2[SP[a1, a6], a2, a4, a3, a5, n] - S2[SP[a1, a6], a2, a4, a5, a3, n] - 
    S2[SP[a1, a6], a3, a2, a4, a5, n] + S2[SP[a3, a6], a1, a2, a4, a5, n] - 
    S2[SP[a4, a5], a1, a2, a3, a6, n] - S2[SP[a4, a5], a1, a3, a2, a6, n] - 
    S2[SP[a4, a5], a1, a3, a6, a2, n] - S2[a6, a3, a1, a2, a4, a5, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a5_, a4_, a2_, a1_, a6_, a3_, n_] :> 
  S2[a1, a6, a3, n]*S2[a2, a4, a5, n] + S2[SP[a1, a2], SP[a4, a6], 
     SP[a3, a5], n] + S2[a3, a6, n]*S2[a1, a2, a4, a5, n] + 
    S2[a4, a5, n]*S2[a1, a2, a6, a3, n] - S2[a1, a2, SP[a3, a4], SP[a5, a6], 
     n] - 2*S2[a1, a2, SP[a4, a6], SP[a3, a5], n] + 
    S2[a4, a5, n]*S2[a1, a6, a2, a3, n] + S2[a4, a5, n]*
     S2[a1, a6, a3, a2, n] - S2[a1, a6, SP[a2, a4], SP[a3, a5], n] - 
    S2[a1, a6, SP[a3, a4], SP[a2, a5], n] - S2[a1, SP[a2, a3], a4, 
     SP[a5, a6], n] - S2[a1, SP[a2, a3], SP[a4, a6], a5, n] - 
    S2[a1, SP[a2, a4], a6, SP[a3, a5], n] - S2[a1, SP[a2, a4], SP[a5, a6], 
     a3, n] - S2[a1, SP[a2, a6], a4, SP[a3, a5], n] - 
    S2[a1, SP[a2, a6], SP[a3, a4], a5, n] - S2[a1, SP[a4, a6], a2, 
     SP[a3, a5], n] - S2[a1, SP[a4, a6], a3, SP[a2, a5], n] - 
    S2[a1, SP[a4, a6], SP[a2, a5], a3, n] - S2[a1, SP[a4, a6], SP[a3, a5], 
     a2, n] - S2[a2, a1, SP[a4, a6], SP[a3, a5], n] - 
    S2[a2, SP[a1, a4], a6, SP[a3, a5], n] - S2[a2, SP[a1, a4], SP[a5, a6], 
     a3, n] - S2[SP[a1, a2], a4, a6, SP[a3, a5], n] - 
    S2[SP[a1, a2], a4, SP[a5, a6], a3, n] - S2[SP[a1, a2], a6, a4, 
     SP[a3, a5], n] - S2[SP[a1, a2], a6, SP[a3, a4], a5, n] - 
    S2[SP[a1, a2], SP[a4, a6], a3, a5, n] - S2[SP[a1, a2], SP[a4, a6], a5, 
     a3, n] - S2[SP[a1, a3], a2, a4, SP[a5, a6], n] - 
    S2[SP[a1, a3], a2, SP[a4, a6], a5, n] - S2[SP[a1, a3], SP[a2, a6], a4, 
     a5, n] - S2[SP[a1, a4], a2, a6, SP[a3, a5], n] - 
    S2[SP[a1, a4], a2, SP[a5, a6], a3, n] - S2[SP[a1, a4], a6, a2, 
     SP[a3, a5], n] - S2[SP[a1, a4], a6, a3, SP[a2, a5], n] - 
    S2[SP[a1, a4], a6, SP[a2, a5], a3, n] - S2[SP[a1, a4], a6, SP[a3, a5], 
     a2, n] - S2[SP[a1, a4], SP[a2, a5], a6, a3, n] - 
    S2[SP[a1, a4], SP[a5, a6], a2, a3, n] - S2[SP[a1, a4], SP[a5, a6], a3, 
     a2, n] + S2[a1, a2, a3, a4, SP[a5, a6], n] + S2[a1, a2, a3, SP[a4, a6], 
     a5, n] + S2[a1, a2, a4, a3, SP[a5, a6], n] - 
    S2[a3, n]*S2[a1, a2, a4, a5, a6, n] - S2[a1, a2, a4, a5, SP[a3, a6], n] + 
    S2[a5, n]*S2[a1, a2, a4, a6, a3, n] - 
    S2[a3, n]*S2[a1, a2, a4, a6, a5, n] + 
    2*S2[a1, a2, a4, a6, SP[a3, a5], n] - S2[a1, a2, a4, SP[a3, a6], a5, n] + 
    3*S2[a1, a2, a4, SP[a5, a6], a3, n] - 
    S2[a4, n]*S2[a1, a2, a5, a6, a3, n] - S2[a1, a2, a5, a6, SP[a3, a4], n] - 
    S2[a1, a2, a5, SP[a4, a6], a3, n] + S2[a5, n]*S2[a1, a2, a6, a3, a4, n] - 
    S2[a4, n]*S2[a1, a2, a6, a3, a5, n] + 
    S2[a5, n]*S2[a1, a2, a6, a4, a3, n] - 
    S2[a3, n]*S2[a1, a2, a6, a4, a5, n] + 
    2*S2[a1, a2, a6, a4, SP[a3, a5], n] - 
    S2[a4, n]*S2[a1, a2, a6, a5, a3, n] - S2[a1, a2, a6, a5, SP[a3, a4], n] + 
    S2[a1, a2, a6, SP[a3, a5], a4, n] - S2[a1, a2, SP[a3, a6], a4, a5, n] + 
    S2[a1, a2, SP[a4, a6], a3, a5, n] + S2[a1, a2, SP[a4, a6], a5, a3, n] + 
    S2[a1, a2, SP[a5, a6], a3, a4, n] + S2[a1, a2, SP[a5, a6], a4, a3, n] + 
    S2[a1, a3, a2, a4, SP[a5, a6], n] + S2[a1, a3, a2, SP[a4, a6], a5, n] + 
    S2[a1, a3, SP[a2, a6], a4, a5, n] + S2[a5, n]*S2[a1, a4, a2, a6, a3, n] + 
    2*S2[a1, a4, a2, a6, SP[a3, a5], n] + 
    2*S2[a1, a4, a2, SP[a5, a6], a3, n] - 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] - S2[a1, a4, a5, a6, SP[a2, a3], n] - 
    S2[a1, a4, a5, SP[a2, a6], a3, n] + S2[a5, n]*S2[a1, a4, a6, a2, a3, n] + 
    2*S2[a1, a4, a6, a2, SP[a3, a5], n] + 
    S2[a5, n]*S2[a1, a4, a6, a3, a2, n] - 
    S2[a2, n]*S2[a1, a4, a6, a3, a5, n] + S2[a1, a4, a6, a3, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a4, a6, a5, a3, n] - S2[a1, a4, a6, a5, SP[a2, a3], n] - 
    S2[a1, a4, a6, SP[a2, a3], a5, n] + S2[a1, a4, a6, SP[a2, a5], a3, n] + 
    2*S2[a1, a4, a6, SP[a3, a5], a2, n] + S2[a1, a4, SP[a2, a5], a6, a3, n] - 
    S2[a1, a4, SP[a2, a6], a3, a5, n] - S2[a1, a4, SP[a2, a6], a5, a3, n] + 
    2*S2[a1, a4, SP[a5, a6], a2, a3, n] + 
    2*S2[a1, a4, SP[a5, a6], a3, a2, n] - 
    S2[a4, n]*S2[a1, a5, a2, a6, a3, n] - S2[a1, a5, a2, a6, SP[a3, a4], n] - 
    S2[a1, a5, a2, SP[a4, a6], a3, n] - S2[a4, n]*S2[a1, a5, a6, a2, a3, n] - 
    S2[a1, a5, a6, a2, SP[a3, a4], n] - S2[a4, n]*S2[a1, a5, a6, a3, a2, n] - 
    S2[a1, a5, a6, a3, SP[a2, a4], n] - S2[a1, a5, a6, SP[a2, a4], a3, n] - 
    S2[a1, a5, a6, SP[a3, a4], a2, n] - S2[a1, a5, SP[a2, a4], a6, a3, n] - 
    S2[a1, a5, SP[a4, a6], a2, a3, n] - S2[a1, a5, SP[a4, a6], a3, a2, n] + 
    S2[a5, n]*S2[a1, a6, a2, a3, a4, n] - 
    S2[a4, n]*S2[a1, a6, a2, a3, a5, n] + 
    S2[a5, n]*S2[a1, a6, a2, a4, a3, n] - 
    S2[a3, n]*S2[a1, a6, a2, a4, a5, n] + 
    2*S2[a1, a6, a2, a4, SP[a3, a5], n] - 
    S2[a4, n]*S2[a1, a6, a2, a5, a3, n] - S2[a1, a6, a2, a5, SP[a3, a4], n] + 
    S2[a1, a6, a2, SP[a3, a5], a4, n] + S2[a5, n]*S2[a1, a6, a3, a2, a4, n] - 
    S2[a4, n]*S2[a1, a6, a3, a2, a5, n] + 
    S2[a5, n]*S2[a1, a6, a3, a4, a2, n] - 
    S2[a2, n]*S2[a1, a6, a3, a4, a5, n] + S2[a1, a6, a3, a4, SP[a2, a5], n] - 
    S2[a4, n]*S2[a1, a6, a3, a5, a2, n] - S2[a1, a6, a3, a5, SP[a2, a4], n] - 
    S2[a1, a6, a3, SP[a2, a4], a5, n] + S2[a1, a6, a3, SP[a2, a5], a4, n] + 
    S2[a5, n]*S2[a1, a6, a4, a2, a3, n] + 
    2*S2[a1, a6, a4, a2, SP[a3, a5], n] + 
    S2[a5, n]*S2[a1, a6, a4, a3, a2, n] - 
    S2[a2, n]*S2[a1, a6, a4, a3, a5, n] + S2[a1, a6, a4, a3, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a6, a4, a5, a3, n] - S2[a1, a6, a4, a5, SP[a2, a3], n] - 
    S2[a1, a6, a4, SP[a2, a3], a5, n] + S2[a1, a6, a4, SP[a2, a5], a3, n] + 
    2*S2[a1, a6, a4, SP[a3, a5], a2, n] - 
    S2[a4, n]*S2[a1, a6, a5, a2, a3, n] - S2[a1, a6, a5, a2, SP[a3, a4], n] - 
    S2[a4, n]*S2[a1, a6, a5, a3, a2, n] - S2[a1, a6, a5, a3, SP[a2, a4], n] - 
    S2[a1, a6, a5, SP[a2, a4], a3, n] - S2[a1, a6, a5, SP[a3, a4], a2, n] - 
    S2[a1, a6, SP[a2, a3], a4, a5, n] - S2[a1, a6, SP[a2, a4], a3, a5, n] - 
    S2[a1, a6, SP[a2, a4], a5, a3, n] + S2[a1, a6, SP[a2, a5], a3, a4, n] + 
    S2[a1, a6, SP[a2, a5], a4, a3, n] + S2[a1, a6, SP[a3, a5], a2, a4, n] + 
    S2[a1, a6, SP[a3, a5], a4, a2, n] - S2[a1, SP[a2, a4], a5, a6, a3, n] - 
    S2[a1, SP[a2, a4], a6, a3, a5, n] - S2[a1, SP[a2, a4], a6, a5, a3, n] + 
    S2[a1, SP[a2, a5], a4, a6, a3, n] + S2[a1, SP[a2, a5], a6, a3, a4, n] + 
    S2[a1, SP[a2, a5], a6, a4, a3, n] - S2[a1, SP[a3, a6], a2, a4, a5, n] + 
    S2[a1, SP[a5, a6], a2, a3, a4, n] + S2[a1, SP[a5, a6], a2, a4, a3, n] + 
    S2[a1, SP[a5, a6], a3, a2, a4, n] + S2[a1, SP[a5, a6], a3, a4, a2, n] + 
    S2[a1, SP[a5, a6], a4, a2, a3, n] + S2[a1, SP[a5, a6], a4, a3, a2, n] + 
    S2[a2, a1, a4, a6, SP[a3, a5], n] + S2[a2, a1, a4, SP[a5, a6], a3, n] + 
    S2[a2, a1, a6, a4, SP[a3, a5], n] + S2[a2, a1, a6, SP[a3, a4], a5, n] + 
    S2[a2, a1, SP[a4, a6], a3, a5, n] + S2[a2, a1, SP[a4, a6], a5, a3, n] - 
    S2[a5, n]*S2[a2, a4, a1, a6, a3, n] + S2[a2, SP[a1, a4], a5, a6, a3, n] + 
    S2[a2, SP[a1, a4], a6, a3, a5, n] + S2[a2, SP[a1, a4], a6, a5, a3, n] - 
    S2[a2, SP[a4, a5], a1, a6, a3, n] + S2[a3, a1, a2, a4, SP[a5, a6], n] + 
    S2[a3, a1, a2, SP[a4, a6], a5, n] + S2[a3, a1, SP[a2, a6], a4, a5, n] + 
    S2[a3, SP[a1, a6], a2, a4, a5, n] + S2[a4, a1, a2, a6, SP[a3, a5], n] + 
    S2[a4, a1, a2, SP[a5, a6], a3, n] + S2[a4, a1, a6, a2, SP[a3, a5], n] + 
    S2[a4, a1, a6, a3, SP[a2, a5], n] + S2[a4, a1, a6, SP[a2, a5], a3, n] + 
    S2[a4, a1, a6, SP[a3, a5], a2, n] + S2[a4, a1, SP[a2, a5], a6, a3, n] + 
    S2[a4, a1, SP[a5, a6], a2, a3, n] + S2[a4, a1, SP[a5, a6], a3, a2, n] + 
    S2[a4, SP[a1, a5], a2, a6, a3, n] + S2[a4, SP[a1, a5], a6, a2, a3, n] + 
    S2[a4, SP[a1, a5], a6, a3, a2, n] - S2[a4, n]*S2[a5, a1, a2, a6, a3, n] - 
    S2[a5, a1, a2, a6, SP[a3, a4], n] - S2[a5, a1, a2, SP[a4, a6], a3, n] - 
    S2[a4, n]*S2[a5, a1, a6, a2, a3, n] - S2[a5, a1, a6, a2, SP[a3, a4], n] - 
    S2[a4, n]*S2[a5, a1, a6, a3, a2, n] - S2[a5, a1, a6, a3, SP[a2, a4], n] - 
    S2[a5, a1, a6, SP[a2, a4], a3, n] - S2[a5, a1, a6, SP[a3, a4], a2, n] - 
    S2[a5, a1, SP[a2, a4], a6, a3, n] - S2[a5, a1, SP[a4, a6], a2, a3, n] - 
    S2[a5, a1, SP[a4, a6], a3, a2, n] + S2[a2, n]*S2[a5, a4, a1, a6, a3, n] + 
    S2[a5, a4, a1, a6, SP[a2, a3], n] + S2[a5, a4, a1, SP[a2, a6], a3, n] + 
    S2[a5, a4, SP[a1, a2], a6, a3, n] - S2[a5, SP[a1, a4], a2, a6, a3, n] - 
    S2[a5, SP[a1, a4], a6, a2, a3, n] - S2[a5, SP[a1, a4], a6, a3, a2, n] + 
    S2[a5, SP[a2, a4], a1, a6, a3, n] - S2[a3, n]*S2[a6, a1, a2, a4, a5, n] - 
    S2[a6, a1, a2, a4, SP[a3, a5], n] - S2[a6, a1, a2, SP[a3, a4], a5, n] - 
    S2[a6, a1, SP[a2, a3], a4, a5, n] - S2[a6, SP[a1, a3], a2, a4, a5, n] + 
    S2[SP[a1, a5], a2, a4, a6, a3, n] + S2[SP[a1, a5], a2, a6, a3, a4, n] + 
    S2[SP[a1, a5], a2, a6, a4, a3, n] + S2[SP[a1, a5], a4, a2, a6, a3, n] + 
    S2[SP[a1, a5], a4, a6, a2, a3, n] + S2[SP[a1, a5], a4, a6, a3, a2, n] + 
    S2[SP[a1, a5], a6, a2, a3, a4, n] + S2[SP[a1, a5], a6, a2, a4, a3, n] + 
    S2[SP[a1, a5], a6, a3, a2, a4, n] + S2[SP[a1, a5], a6, a3, a4, a2, n] + 
    S2[SP[a1, a5], a6, a4, a2, a3, n] + S2[SP[a1, a5], a6, a4, a3, a2, n] - 
    S2[SP[a3, a6], a1, a2, a4, a5, n] - S2[SP[a4, a5], a1, a2, a6, a3, n] - 
    S2[SP[a4, a5], a1, a6, a2, a3, n] - S2[SP[a4, a5], a1, a6, a3, a2, n] + 
    S2[a6, a1, a2, a3, a4, a5, n] + S2[a6, a1, a2, a4, a3, a5, n] + 
    S2[a6, a1, a2, a4, a5, a3, n] + S2[a6, a1, a3, a2, a4, a5, n] + 
    S2[a6, a3, a1, a2, a4, a5, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a5_, a4_, a2_, a3_, a1_, a6_, n_] :> 
  -(S2[a1, a3, a6, n]*S2[a2, a4, a5, n]) - S2[a1, a6, a3, n]*
     S2[a2, a4, a5, n] - S2[SP[a1, a2], SP[a3, a4], SP[a5, a6], n] - 
    S2[SP[a1, a2], SP[a4, a6], SP[a3, a5], n] + S2[a1, a2, SP[a3, a4], 
     SP[a5, a6], n] + S2[a1, a2, SP[a4, a6], SP[a3, a5], n] - 
    S2[a4, a5, n]*S2[a1, a3, a2, a6, n] - S2[a4, a5, n]*
     S2[a1, a3, a6, a2, n] + S2[a1, a3, SP[a2, a4], SP[a5, a6], n] + 
    S2[a1, a3, SP[a4, a6], SP[a2, a5], n] - S2[a4, a5, n]*
     S2[a1, a6, a3, a2, n] + S2[a1, a6, SP[a3, a4], SP[a2, a5], n] + 
    S2[a1, SP[a2, a3], a4, SP[a5, a6], n] + S2[a1, SP[a2, a3], SP[a4, a6], 
     a5, n] + S2[a1, SP[a2, a6], a4, SP[a3, a5], n] + 
    S2[a1, SP[a2, a6], SP[a3, a4], a5, n] + S2[a1, SP[a3, a4], a2, 
     SP[a5, a6], n] + S2[a1, SP[a3, a4], a6, SP[a2, a5], n] + 
    S2[a1, SP[a3, a4], SP[a2, a5], a6, n] + S2[a1, SP[a3, a4], SP[a5, a6], 
     a2, n] + S2[a1, SP[a4, a6], a3, SP[a2, a5], n] + 
    S2[a1, SP[a4, a6], SP[a3, a5], a2, n] + S2[a2, a1, SP[a3, a4], 
     SP[a5, a6], n] + S2[a2, a1, SP[a4, a6], SP[a3, a5], n] + 
    S2[a1, a6, n]*S2[a2, a3, a4, a5, n] + S2[a1, a6, n]*
     S2[a2, a3, a5, a4, n] - S2[a2, a3, SP[a1, a4], SP[a5, a6], n] - 
    S2[a2, a3, SP[a1, a5], SP[a4, a6], n] + S2[a1, a6, n]*
     S2[a2, a4, a3, a5, n] + S2[a1, a6, n]*S2[a2, a4, a5, a3, n] - 
    S2[a2, a4, SP[a1, a3], SP[a5, a6], n] - S2[a2, a4, SP[a1, a5], 
     SP[a3, a6], n] + S2[a1, a6, n]*S2[a2, a5, a3, a4, n] + 
    S2[a1, a6, n]*S2[a2, a5, a4, a3, n] - S2[a2, a5, SP[a1, a3], SP[a4, a6], 
     n] - S2[a2, a5, SP[a1, a4], SP[a3, a6], n] - S2[a2, SP[a1, a3], a4, 
     SP[a5, a6], n] - S2[a2, SP[a1, a3], a5, SP[a4, a6], n] - 
    S2[a2, SP[a1, a3], SP[a4, a6], a5, n] - S2[a2, SP[a1, a3], SP[a5, a6], 
     a4, n] - S2[a2, SP[a1, a4], a5, SP[a3, a6], n] + 
    S2[a2, SP[a1, a4], a6, SP[a3, a5], n] + S2[a2, SP[a1, a4], SP[a3, a5], 
     a6, n] - S2[a2, SP[a1, a4], SP[a3, a6], a5, n] - 
    S2[a2, SP[a1, a5], a3, SP[a4, a6], n] - S2[a2, SP[a1, a5], a4, 
     SP[a3, a6], n] - S2[a2, SP[a1, a5], SP[a3, a6], a4, n] - 
    S2[a2, SP[a1, a5], SP[a4, a6], a3, n] - S2[a1, a6, n]*
     S2[a4, a5, a2, a3, n] + S2[a4, a5, SP[a1, a2], SP[a3, a6], n] + 
    S2[a4, SP[a1, a5], a2, SP[a3, a6], n] + S2[a4, SP[a1, a5], SP[a2, a6], 
     a3, n] - S2[SP[a1, a2], a3, a5, SP[a4, a6], n] - 
    S2[SP[a1, a2], a3, SP[a5, a6], a4, n] - S2[SP[a1, a2], a4, a5, 
     SP[a3, a6], n] + S2[SP[a1, a2], a4, a6, SP[a3, a5], n] + 
    S2[SP[a1, a2], a4, SP[a3, a5], a6, n] - S2[SP[a1, a2], a4, SP[a3, a6], 
     a5, n] - S2[SP[a1, a2], a5, a3, SP[a4, a6], n] - 
    S2[SP[a1, a2], a5, a4, SP[a3, a6], n] - S2[SP[a1, a2], a5, SP[a3, a6], 
     a4, n] - S2[SP[a1, a2], a5, SP[a4, a6], a3, n] + 
    S2[SP[a1, a2], a6, a4, SP[a3, a5], n] + S2[SP[a1, a2], a6, SP[a3, a4], 
     a5, n] + S2[SP[a1, a2], SP[a3, a4], a5, a6, n] + 
    S2[SP[a1, a2], SP[a3, a4], a6, a5, n] - S2[SP[a1, a2], SP[a3, a6], a4, 
     a5, n] - S2[SP[a1, a2], SP[a3, a6], a5, a4, n] - 
    S2[SP[a1, a2], SP[a5, a6], a3, a4, n] - S2[SP[a1, a2], SP[a5, a6], a4, 
     a3, n] + S2[SP[a1, a4], a3, a2, SP[a5, a6], n] + 
    S2[SP[a1, a4], a3, a6, SP[a2, a5], n] + S2[SP[a1, a4], a3, SP[a2, a5], 
     a6, n] + S2[SP[a1, a4], a3, SP[a5, a6], a2, n] + 
    S2[SP[a1, a4], a5, a2, SP[a3, a6], n] + S2[SP[a1, a4], a5, SP[a2, a6], 
     a3, n] + S2[SP[a1, a4], a6, a3, SP[a2, a5], n] + 
    S2[SP[a1, a4], a6, SP[a3, a5], a2, n] + S2[SP[a1, a4], SP[a3, a5], a2, 
     a6, n] + S2[SP[a1, a4], SP[a3, a5], a6, a2, n] + 
    S2[SP[a1, a4], SP[a5, a6], a2, a3, n] + S2[SP[a1, a4], SP[a5, a6], a3, 
     a2, n] + S2[a1, a2, a3, a5, SP[a4, a6], n] + S2[a1, a2, a3, SP[a5, a6], 
     a4, n] + S2[a1, a2, a4, a5, SP[a3, a6], n] - 
    S2[a1, a2, a4, a6, SP[a3, a5], n] - S2[a1, a2, a4, SP[a3, a5], a6, n] + 
    S2[a1, a2, a4, SP[a3, a6], a5, n] + S2[a1, a2, a5, a3, SP[a4, a6], n] + 
    S2[a1, a2, a5, a4, SP[a3, a6], n] + S2[a1, a2, a5, SP[a3, a6], a4, n] + 
    S2[a1, a2, a5, SP[a4, a6], a3, n] - S2[a1, a2, a6, a4, SP[a3, a5], n] - 
    S2[a1, a2, a6, SP[a3, a4], a5, n] - S2[a1, a2, SP[a3, a4], a5, a6, n] - 
    S2[a1, a2, SP[a3, a4], a6, a5, n] + S2[a1, a2, SP[a3, a6], a4, a5, n] + 
    S2[a1, a2, SP[a3, a6], a5, a4, n] + S2[a1, a2, SP[a5, a6], a3, a4, n] + 
    S2[a1, a2, SP[a5, a6], a4, a3, n] + S2[a6, n]*S2[a1, a3, a2, a4, a5, n] - 
    S2[a1, a3, a2, a4, SP[a5, a6], n] + S2[a4, n]*S2[a1, a3, a2, a5, a6, n] + 
    S2[a1, a3, a2, a5, SP[a4, a6], n] + S2[a4, n]*S2[a1, a3, a2, a6, a5, n] + 
    S2[a1, a3, a2, a6, SP[a4, a5], n] + S2[a1, a3, a2, SP[a4, a5], a6, n] - 
    S2[a1, a3, a4, a2, SP[a5, a6], n] - S2[a1, a3, a4, a6, SP[a2, a5], n] - 
    S2[a1, a3, a4, SP[a2, a5], a6, n] - S2[a1, a3, a4, SP[a5, a6], a2, n] + 
    S2[a4, n]*S2[a1, a3, a5, a2, a6, n] + S2[a1, a3, a5, a2, SP[a4, a6], n] - 
    S2[a2, n]*S2[a1, a3, a5, a4, a6, n] - S2[a1, a3, a5, a4, SP[a2, a6], n] + 
    S2[a4, n]*S2[a1, a3, a5, a6, a2, n] - 
    S2[a2, n]*S2[a1, a3, a5, a6, a4, n] - S2[a1, a3, a5, SP[a2, a6], a4, n] + 
    S2[a1, a3, a5, SP[a4, a6], a2, n] + S2[a4, n]*S2[a1, a3, a6, a2, a5, n] + 
    S2[a1, a3, a6, a2, SP[a4, a5], n] - S2[a1, a3, a6, a4, SP[a2, a5], n] + 
    S2[a4, n]*S2[a1, a3, a6, a5, a2, n] - 
    S2[a2, n]*S2[a1, a3, a6, a5, a4, n] - S2[a1, a3, a6, SP[a2, a5], a4, n] + 
    S2[a1, a3, a6, SP[a4, a5], a2, n] - S2[a1, a3, SP[a2, a5], a4, a6, n] - 
    S2[a1, a3, SP[a2, a5], a6, a4, n] - S2[a1, a3, SP[a2, a6], a5, a4, n] + 
    S2[a1, a3, SP[a4, a5], a2, a6, n] + S2[a1, a3, SP[a4, a5], a6, a2, n] - 
    S2[a1, a4, a3, a2, SP[a5, a6], n] - S2[a1, a4, a3, a6, SP[a2, a5], n] - 
    S2[a1, a4, a3, SP[a2, a5], a6, n] - S2[a1, a4, a3, SP[a5, a6], a2, n] - 
    S2[a1, a4, a5, a2, SP[a3, a6], n] - S2[a1, a4, a5, SP[a2, a6], a3, n] - 
    S2[a1, a4, a6, a3, SP[a2, a5], n] - S2[a1, a4, a6, SP[a3, a5], a2, n] - 
    S2[a1, a4, SP[a3, a5], a2, a6, n] - S2[a1, a4, SP[a3, a5], a6, a2, n] - 
    S2[a1, a4, SP[a5, a6], a2, a3, n] - S2[a1, a4, SP[a5, a6], a3, a2, n] + 
    S2[a4, n]*S2[a1, a5, a2, a3, a6, n] + S2[a1, a5, a2, a3, SP[a4, a6], n] + 
    S2[a4, n]*S2[a1, a5, a2, a6, a3, n] + S2[a1, a5, a2, a6, SP[a3, a4], n] + 
    S2[a1, a5, a2, SP[a3, a4], a6, n] + S2[a1, a5, a2, SP[a4, a6], a3, n] + 
    S2[a4, n]*S2[a1, a5, a3, a2, a6, n] + S2[a1, a5, a3, a2, SP[a4, a6], n] - 
    S2[a2, n]*S2[a1, a5, a3, a4, a6, n] - S2[a1, a5, a3, a4, SP[a2, a6], n] + 
    S2[a4, n]*S2[a1, a5, a3, a6, a2, n] - 
    S2[a2, n]*S2[a1, a5, a3, a6, a4, n] - S2[a1, a5, a3, SP[a2, a6], a4, n] + 
    S2[a1, a5, a3, SP[a4, a6], a2, n] - S2[a2, n]*S2[a1, a5, a4, a3, a6, n] - 
    S2[a1, a5, a4, a3, SP[a2, a6], n] - S2[a2, n]*S2[a1, a5, a4, a6, a3, n] - 
    S2[a1, a5, a4, a6, SP[a2, a3], n] - S2[a1, a5, a4, SP[a2, a3], a6, n] - 
    S2[a1, a5, a4, SP[a2, a6], a3, n] + S2[a4, n]*S2[a1, a5, a6, a2, a3, n] + 
    S2[a1, a5, a6, a2, SP[a3, a4], n] + S2[a4, n]*S2[a1, a5, a6, a3, a2, n] - 
    S2[a2, n]*S2[a1, a5, a6, a3, a4, n] - 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] - S2[a1, a5, a6, a4, SP[a2, a3], n] - 
    S2[a1, a5, a6, SP[a2, a3], a4, n] + S2[a1, a5, a6, SP[a3, a4], a2, n] - 
    S2[a1, a5, SP[a2, a3], a4, a6, n] - S2[a1, a5, SP[a2, a3], a6, a4, n] - 
    S2[a1, a5, SP[a2, a6], a3, a4, n] - S2[a1, a5, SP[a2, a6], a4, a3, n] + 
    S2[a1, a5, SP[a3, a4], a2, a6, n] + S2[a1, a5, SP[a3, a4], a6, a2, n] + 
    S2[a1, a5, SP[a4, a6], a2, a3, n] + S2[a1, a5, SP[a4, a6], a3, a2, n] - 
    S2[a1, a6, a2, a4, SP[a3, a5], n] - S2[a1, a6, a2, SP[a3, a4], a5, n] + 
    S2[a4, n]*S2[a1, a6, a3, a2, a5, n] + S2[a1, a6, a3, a2, SP[a4, a5], n] - 
    S2[a1, a6, a3, a4, SP[a2, a5], n] + S2[a4, n]*S2[a1, a6, a3, a5, a2, n] - 
    S2[a2, n]*S2[a1, a6, a3, a5, a4, n] - S2[a1, a6, a3, SP[a2, a5], a4, n] + 
    S2[a1, a6, a3, SP[a4, a5], a2, n] - S2[a1, a6, a4, a3, SP[a2, a5], n] - 
    S2[a1, a6, a4, SP[a3, a5], a2, n] + S2[a4, n]*S2[a1, a6, a5, a2, a3, n] + 
    S2[a1, a6, a5, a2, SP[a3, a4], n] + S2[a4, n]*S2[a1, a6, a5, a3, a2, n] - 
    S2[a2, n]*S2[a1, a6, a5, a3, a4, n] - 
    S2[a2, n]*S2[a1, a6, a5, a4, a3, n] - S2[a1, a6, a5, a4, SP[a2, a3], n] - 
    S2[a1, a6, a5, SP[a2, a3], a4, n] + S2[a1, a6, a5, SP[a3, a4], a2, n] - 
    S2[a1, a6, SP[a2, a3], a4, a5, n] - S2[a1, a6, SP[a2, a3], a5, a4, n] - 
    S2[a1, a6, SP[a2, a5], a3, a4, n] - S2[a1, a6, SP[a2, a5], a4, a3, n] + 
    S2[a1, a6, SP[a4, a5], a2, a3, n] + S2[a1, a6, SP[a4, a5], a3, a2, n] - 
    S2[a1, SP[a2, a3], a4, a5, a6, n] - S2[a1, SP[a2, a3], a4, a6, a5, n] - 
    S2[a1, SP[a2, a3], a5, a4, a6, n] - S2[a1, SP[a2, a3], a5, a6, a4, n] - 
    S2[a1, SP[a2, a3], a6, a4, a5, n] - S2[a1, SP[a2, a3], a6, a5, a4, n] - 
    S2[a1, SP[a2, a5], a3, a4, a6, n] - S2[a1, SP[a2, a5], a3, a6, a4, n] - 
    S2[a1, SP[a2, a5], a4, a3, a6, n] - S2[a1, SP[a2, a5], a4, a6, a3, n] - 
    S2[a1, SP[a2, a5], a6, a3, a4, n] - S2[a1, SP[a2, a5], a6, a4, a3, n] + 
    S2[a1, SP[a3, a6], a2, a4, a5, n] + S2[a1, SP[a4, a5], a2, a3, a6, n] + 
    S2[a1, SP[a4, a5], a2, a6, a3, n] + S2[a1, SP[a4, a5], a3, a2, a6, n] + 
    S2[a1, SP[a4, a5], a3, a6, a2, n] + S2[a1, SP[a4, a5], a6, a2, a3, n] + 
    S2[a1, SP[a4, a5], a6, a3, a2, n] + S2[a2, a1, a3, a5, SP[a4, a6], n] + 
    S2[a2, a1, a3, SP[a5, a6], a4, n] + S2[a2, a1, a4, a5, SP[a3, a6], n] - 
    S2[a2, a1, a4, a6, SP[a3, a5], n] - S2[a2, a1, a4, SP[a3, a5], a6, n] + 
    S2[a2, a1, a4, SP[a3, a6], a5, n] + S2[a2, a1, a5, a3, SP[a4, a6], n] + 
    S2[a2, a1, a5, a4, SP[a3, a6], n] + S2[a2, a1, a5, SP[a3, a6], a4, n] + 
    S2[a2, a1, a5, SP[a4, a6], a3, n] - S2[a2, a1, a6, a4, SP[a3, a5], n] - 
    S2[a2, a1, a6, SP[a3, a4], a5, n] - S2[a2, a1, SP[a3, a4], a5, a6, n] - 
    S2[a2, a1, SP[a3, a4], a6, a5, n] + S2[a2, a1, SP[a3, a6], a4, a5, n] + 
    S2[a2, a1, SP[a3, a6], a5, a4, n] + S2[a2, a1, SP[a5, a6], a3, a4, n] + 
    S2[a2, a1, SP[a5, a6], a4, a3, n] - S2[a5, n]*S2[a2, a3, a1, a4, a6, n] + 
    S2[a2, a3, a1, a5, SP[a4, a6], n] - S2[a5, n]*S2[a2, a3, a1, a6, a4, n] - 
    S2[a2, a3, a1, a6, SP[a4, a5], n] - S2[a2, a3, a1, SP[a4, a5], a6, n] + 
    S2[a2, a3, a1, SP[a4, a6], a5, n] - S2[a5, n]*S2[a2, a3, a4, a1, a6, n] + 
    S2[a2, a3, a5, a1, SP[a4, a6], n] + S2[a2, a3, a5, SP[a1, a4], a6, n] + 
    S2[a2, a3, SP[a1, a4], a5, a6, n] + S2[a2, a3, SP[a1, a4], a6, a5, n] - 
    S2[a2, a3, SP[a4, a5], a1, a6, n] + S2[a2, a4, a1, a5, SP[a3, a6], n] - 
    S2[a2, a4, a1, a6, SP[a3, a5], n] - S2[a2, a4, a1, SP[a3, a5], a6, n] + 
    S2[a2, a4, a1, SP[a3, a6], a5, n] - S2[a5, n]*S2[a2, a4, a3, a1, a6, n] + 
    S2[a2, a4, a5, a1, SP[a3, a6], n] + S2[a2, a4, a5, SP[a1, a3], a6, n] + 
    S2[a2, a4, SP[a1, a3], a5, a6, n] + S2[a2, a4, SP[a1, a3], a6, a5, n] - 
    S2[a2, a4, SP[a3, a5], a1, a6, n] - S2[a4, n]*S2[a2, a5, a1, a3, a6, n] + 
    S2[a2, a5, a1, a4, SP[a3, a6], n] - S2[a4, n]*S2[a2, a5, a1, a6, a3, n] - 
    S2[a2, a5, a1, a6, SP[a3, a4], n] - S2[a2, a5, a1, SP[a3, a4], a6, n] + 
    S2[a2, a5, a1, SP[a3, a6], a4, n] + S2[a2, a5, a3, a1, SP[a4, a6], n] + 
    S2[a2, a5, a3, SP[a1, a4], a6, n] + S2[a2, a5, a4, a1, SP[a3, a6], n] + 
    S2[a2, a5, a4, SP[a1, a3], a6, n] + S2[a2, a5, SP[a1, a3], a4, a6, n] + 
    S2[a2, a5, SP[a1, a3], a6, a4, n] + S2[a2, SP[a1, a3], a4, a5, a6, n] + 
    S2[a2, SP[a1, a3], a4, a6, a5, n] + S2[a2, SP[a1, a3], a5, a4, a6, n] + 
    S2[a2, SP[a1, a3], a5, a6, a4, n] + S2[a2, SP[a1, a3], a6, a4, a5, n] + 
    S2[a2, SP[a1, a3], a6, a5, a4, n] + S2[a2, SP[a1, a5], a3, a4, a6, n] + 
    S2[a2, SP[a1, a5], a3, a6, a4, n] + S2[a2, SP[a1, a5], a4, a3, a6, n] + 
    S2[a2, SP[a1, a5], a4, a6, a3, n] + S2[a2, SP[a1, a5], a6, a3, a4, n] + 
    S2[a2, SP[a1, a5], a6, a4, a3, n] - S2[a2, SP[a3, a5], a1, a4, a6, n] - 
    S2[a2, SP[a3, a5], a1, a6, a4, n] - S2[a2, SP[a3, a5], a4, a1, a6, n] - 
    S2[a2, SP[a4, a5], a1, a3, a6, n] - S2[a2, SP[a4, a5], a1, a6, a3, n] - 
    S2[a2, SP[a4, a5], a3, a1, a6, n] - S2[a4, a1, a3, a2, SP[a5, a6], n] - 
    S2[a4, a1, a3, a6, SP[a2, a5], n] - S2[a4, a1, a3, SP[a2, a5], a6, n] - 
    S2[a4, a1, a3, SP[a5, a6], a2, n] - S2[a4, a1, a5, a2, SP[a3, a6], n] - 
    S2[a4, a1, a5, SP[a2, a6], a3, n] - S2[a4, a1, a6, a3, SP[a2, a5], n] - 
    S2[a4, a1, a6, SP[a3, a5], a2, n] - S2[a4, a1, SP[a3, a5], a2, a6, n] - 
    S2[a4, a1, SP[a3, a5], a6, a2, n] - S2[a4, a1, SP[a5, a6], a2, a3, n] - 
    S2[a4, a1, SP[a5, a6], a3, a2, n] - S2[a4, a5, a1, a2, SP[a3, a6], n] + 
    S2[a2, n]*S2[a4, a5, a1, a3, a6, n] + S2[a4, a5, a1, a3, SP[a2, a6], n] + 
    S2[a2, n]*S2[a4, a5, a1, a6, a3, n] + S2[a4, a5, a1, a6, SP[a2, a3], n] + 
    S2[a4, a5, a1, SP[a2, a3], a6, n] - S2[a4, a5, a2, a1, SP[a3, a6], n] - 
    S2[a4, a5, a2, SP[a1, a3], a6, n] - S2[a4, SP[a1, a5], a2, a3, a6, n] - 
    S2[a4, SP[a1, a5], a2, a6, a3, n] - S2[a4, SP[a1, a5], a3, a2, a6, n] - 
    S2[a4, SP[a1, a5], a3, a6, a2, n] - S2[a4, SP[a1, a5], a6, a2, a3, n] - 
    S2[a4, SP[a1, a5], a6, a3, a2, n] + S2[a4, SP[a2, a5], a1, a3, a6, n] + 
    S2[a4, SP[a2, a5], a1, a6, a3, n] + S2[a4, n]*S2[a5, a2, a3, a1, a6, n] + 
    S2[a5, a2, a3, a1, SP[a4, a6], n] + S2[a5, a2, a3, SP[a1, a4], a6, n] + 
    S2[a5, a2, SP[a3, a4], a1, a6, n] + S2[a5, SP[a2, a4], a3, a1, a6, n] + 
    S2[SP[a1, a6], a3, a2, a4, a5, n] - S2[SP[a2, a5], a3, a1, a4, a6, n] - 
    S2[SP[a2, a5], a3, a1, a6, a4, n] - S2[SP[a2, a5], a3, a4, a1, a6, n] - 
    S2[SP[a2, a5], a4, a3, a1, a6, n] + S2[SP[a4, a5], a2, a3, a1, a6, n] - 
    S2[a6, a1, a3, a2, a4, a5, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a5_, a4_, a2_, a3_, a6_, a1_, n_] :> 
  S2[a1, a6, a3, n]*S2[a2, a4, a5, n] + S2[SP[a1, a2], SP[a4, a6], 
     SP[a3, a5], n] - S2[a1, a2, SP[a4, a6], SP[a3, a5], n] + 
    S2[a4, a5, n]*S2[a1, a6, a3, a2, n] - S2[a1, a6, SP[a3, a4], SP[a2, a5], 
     n] - S2[a1, SP[a2, a6], a4, SP[a3, a5], n] - 
    S2[a1, SP[a2, a6], SP[a3, a4], a5, n] - S2[a1, SP[a4, a6], a3, 
     SP[a2, a5], n] - S2[a1, SP[a4, a6], SP[a3, a5], a2, n] - 
    S2[a2, a1, SP[a4, a6], SP[a3, a5], n] - S2[a1, a6, n]*
     S2[a2, a3, a4, a5, n] - S2[a1, a6, n]*S2[a2, a3, a5, a4, n] + 
    S2[a2, a3, SP[a1, a4], SP[a5, a6], n] + S2[a2, a3, SP[a1, a5], 
     SP[a4, a6], n] - S2[a1, a6, n]*S2[a2, a4, a3, a5, n] - 
    S2[a1, a6, n]*S2[a2, a4, a5, a3, n] + S2[a2, a4, SP[a1, a3], SP[a5, a6], 
     n] + S2[a2, a4, SP[a1, a5], SP[a3, a6], n] - 
    S2[a1, a6, n]*S2[a2, a5, a3, a4, n] - S2[a1, a6, n]*
     S2[a2, a5, a4, a3, n] + S2[a2, a5, SP[a1, a3], SP[a4, a6], n] + 
    S2[a2, a5, SP[a1, a4], SP[a3, a6], n] + S2[a2, SP[a1, a3], a4, 
     SP[a5, a6], n] + S2[a2, SP[a1, a3], a5, SP[a4, a6], n] + 
    S2[a2, SP[a1, a3], SP[a4, a6], a5, n] + S2[a2, SP[a1, a3], SP[a5, a6], 
     a4, n] + S2[a2, SP[a1, a4], a3, SP[a5, a6], n] + 
    S2[a2, SP[a1, a4], a5, SP[a3, a6], n] - S2[a2, SP[a1, a4], a6, 
     SP[a3, a5], n] + S2[a2, SP[a1, a4], SP[a3, a6], a5, n] + 
    S2[a2, SP[a1, a5], a3, SP[a4, a6], n] + S2[a2, SP[a1, a5], a4, 
     SP[a3, a6], n] + S2[a2, SP[a1, a5], SP[a3, a6], a4, n] + 
    S2[a2, SP[a1, a5], SP[a4, a6], a3, n] + S2[a1, a6, n]*
     S2[a4, a5, a2, a3, n] - S2[a4, a5, SP[a1, a2], SP[a3, a6], n] - 
    S2[a4, SP[a1, a5], a2, SP[a3, a6], n] - S2[a4, SP[a1, a5], SP[a2, a6], 
     a3, n] + S2[SP[a1, a2], a3, a4, SP[a5, a6], n] + 
    S2[SP[a1, a2], a3, a5, SP[a4, a6], n] + S2[SP[a1, a2], a3, SP[a4, a6], 
     a5, n] + S2[SP[a1, a2], a3, SP[a5, a6], a4, n] + 
    S2[SP[a1, a2], a4, a3, SP[a5, a6], n] + S2[SP[a1, a2], a4, a5, 
     SP[a3, a6], n] - S2[SP[a1, a2], a4, a6, SP[a3, a5], n] + 
    S2[SP[a1, a2], a4, SP[a3, a6], a5, n] + S2[SP[a1, a2], a5, a3, 
     SP[a4, a6], n] + S2[SP[a1, a2], a5, a4, SP[a3, a6], n] + 
    S2[SP[a1, a2], a5, SP[a3, a6], a4, n] + S2[SP[a1, a2], a5, SP[a4, a6], 
     a3, n] - S2[SP[a1, a2], a6, a4, SP[a3, a5], n] - 
    S2[SP[a1, a2], a6, SP[a3, a4], a5, n] + S2[SP[a1, a2], SP[a3, a6], a4, 
     a5, n] + S2[SP[a1, a2], SP[a3, a6], a5, a4, n] + 
    S2[SP[a1, a2], SP[a5, a6], a3, a4, n] + S2[SP[a1, a2], SP[a5, a6], a4, 
     a3, n] - S2[SP[a1, a4], a5, a2, SP[a3, a6], n] - 
    S2[SP[a1, a4], a5, SP[a2, a6], a3, n] - S2[SP[a1, a4], a6, a3, 
     SP[a2, a5], n] - S2[SP[a1, a4], a6, SP[a3, a5], a2, n] - 
    S2[SP[a1, a4], SP[a5, a6], a2, a3, n] - S2[SP[a1, a4], SP[a5, a6], a3, 
     a2, n] - S2[a1, a2, a3, a4, SP[a5, a6], n] - 
    S2[a1, a2, a3, a5, SP[a4, a6], n] - S2[a1, a2, a3, SP[a4, a6], a5, n] - 
    S2[a1, a2, a3, SP[a5, a6], a4, n] - S2[a1, a2, a4, a3, SP[a5, a6], n] - 
    S2[a1, a2, a4, a5, SP[a3, a6], n] + S2[a1, a2, a4, a6, SP[a3, a5], n] - 
    S2[a1, a2, a4, SP[a3, a6], a5, n] - S2[a1, a2, a5, a3, SP[a4, a6], n] - 
    S2[a1, a2, a5, a4, SP[a3, a6], n] - S2[a1, a2, a5, SP[a3, a6], a4, n] - 
    S2[a1, a2, a5, SP[a4, a6], a3, n] + S2[a1, a2, a6, a4, SP[a3, a5], n] + 
    S2[a1, a2, a6, SP[a3, a4], a5, n] - S2[a1, a2, SP[a3, a6], a4, a5, n] - 
    S2[a1, a2, SP[a3, a6], a5, a4, n] - S2[a1, a2, SP[a5, a6], a3, a4, n] - 
    S2[a1, a2, SP[a5, a6], a4, a3, n] - S2[a5, n]*S2[a1, a3, a2, a4, a6, n] - 
    S2[a1, a3, a2, a4, SP[a5, a6], n] - S2[a5, n]*S2[a1, a3, a2, a6, a4, n] - 
    S2[a1, a3, a2, a6, SP[a4, a5], n] - S2[a1, a3, a2, SP[a4, a5], a6, n] - 
    S2[a1, a3, a2, SP[a5, a6], a4, n] - S2[a5, n]*S2[a1, a3, a4, a2, a6, n] - 
    S2[a1, a3, a4, a2, SP[a5, a6], n] + S2[a2, n]*S2[a1, a3, a4, a5, a6, n] + 
    S2[a1, a3, a4, a5, SP[a2, a6], n] - S2[a5, n]*S2[a1, a3, a4, a6, a2, n] + 
    S2[a2, n]*S2[a1, a3, a4, a6, a5, n] + S2[a1, a3, a4, SP[a2, a6], a5, n] - 
    S2[a1, a3, a4, SP[a5, a6], a2, n] + S2[a2, n]*S2[a1, a3, a5, a4, a6, n] + 
    S2[a1, a3, a5, a4, SP[a2, a6], n] + S2[a2, n]*S2[a1, a3, a5, a6, a4, n] + 
    S2[a1, a3, a5, a6, SP[a2, a4], n] + S2[a1, a3, a5, SP[a2, a4], a6, n] + 
    S2[a1, a3, a5, SP[a2, a6], a4, n] - S2[a5, n]*S2[a1, a3, a6, a2, a4, n] - 
    S2[a1, a3, a6, a2, SP[a4, a5], n] - S2[a5, n]*S2[a1, a3, a6, a4, a2, n] + 
    S2[a2, n]*S2[a1, a3, a6, a4, a5, n] + 
    S2[a2, n]*S2[a1, a3, a6, a5, a4, n] + S2[a1, a3, a6, a5, SP[a2, a4], n] + 
    S2[a1, a3, a6, SP[a2, a4], a5, n] - S2[a1, a3, a6, SP[a4, a5], a2, n] + 
    S2[a1, a3, SP[a2, a4], a5, a6, n] + S2[a1, a3, SP[a2, a4], a6, a5, n] + 
    S2[a1, a3, SP[a2, a6], a4, a5, n] + S2[a1, a3, SP[a2, a6], a5, a4, n] - 
    S2[a1, a3, SP[a4, a5], a2, a6, n] - S2[a1, a3, SP[a4, a5], a6, a2, n] - 
    S2[a1, a3, SP[a5, a6], a2, a4, n] - S2[a1, a3, SP[a5, a6], a4, a2, n] - 
    S2[a5, n]*S2[a1, a4, a2, a3, a6, n] - S2[a1, a4, a2, a3, SP[a5, a6], n] - 
    S2[a1, a4, a2, SP[a3, a5], a6, n] - S2[a5, n]*S2[a1, a4, a3, a2, a6, n] - 
    S2[a1, a4, a3, a2, SP[a5, a6], n] + S2[a2, n]*S2[a1, a4, a3, a5, a6, n] + 
    S2[a1, a4, a3, a5, SP[a2, a6], n] - S2[a5, n]*S2[a1, a4, a3, a6, a2, n] + 
    S2[a2, n]*S2[a1, a4, a3, a6, a5, n] + S2[a1, a4, a3, SP[a2, a6], a5, n] - 
    S2[a1, a4, a3, SP[a5, a6], a2, n] + S2[a1, a4, a5, a2, SP[a3, a6], n] + 
    S2[a2, n]*S2[a1, a4, a5, a3, a6, n] + S2[a1, a4, a5, a3, SP[a2, a6], n] + 
    S2[a1, a4, a5, SP[a2, a3], a6, n] + S2[a1, a4, a5, SP[a2, a6], a3, n] + 
    S2[a1, a4, a6, a3, SP[a2, a5], n] + S2[a1, a4, a6, SP[a3, a5], a2, n] + 
    S2[a1, a4, SP[a2, a3], a5, a6, n] + S2[a1, a4, SP[a2, a3], a6, a5, n] - 
    S2[a1, a4, SP[a3, a5], a2, a6, n] - S2[a1, a4, SP[a3, a5], a6, a2, n] + 
    S2[a1, a4, SP[a5, a6], a2, a3, n] + S2[a1, a4, SP[a5, a6], a3, a2, n] - 
    S2[a4, n]*S2[a1, a5, a2, a3, a6, n] - S2[a1, a5, a2, a3, SP[a4, a6], n] - 
    S2[a4, n]*S2[a1, a5, a2, a6, a3, n] - S2[a1, a5, a2, a6, SP[a3, a4], n] - 
    S2[a1, a5, a2, SP[a3, a4], a6, n] - S2[a1, a5, a2, SP[a4, a6], a3, n] + 
    S2[a2, n]*S2[a1, a5, a3, a4, a6, n] + S2[a1, a5, a3, a4, SP[a2, a6], n] + 
    S2[a2, n]*S2[a1, a5, a3, a6, a4, n] + S2[a1, a5, a3, a6, SP[a2, a4], n] + 
    S2[a1, a5, a3, SP[a2, a4], a6, n] + S2[a1, a5, a3, SP[a2, a6], a4, n] + 
    S2[a2, n]*S2[a1, a5, a4, a3, a6, n] + S2[a1, a5, a4, a3, SP[a2, a6], n] + 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] + S2[a1, a5, a4, a6, SP[a2, a3], n] + 
    S2[a1, a5, a4, SP[a2, a3], a6, n] + S2[a1, a5, a4, SP[a2, a6], a3, n] - 
    S2[a4, n]*S2[a1, a5, a6, a2, a3, n] - S2[a1, a5, a6, a2, SP[a3, a4], n] - 
    S2[a4, n]*S2[a1, a5, a6, a3, a2, n] + 
    S2[a2, n]*S2[a1, a5, a6, a3, a4, n] + 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] + S2[a1, a5, a6, a4, SP[a2, a3], n] + 
    S2[a1, a5, a6, SP[a2, a3], a4, n] - S2[a1, a5, a6, SP[a3, a4], a2, n] + 
    S2[a1, a5, SP[a2, a3], a4, a6, n] + S2[a1, a5, SP[a2, a3], a6, a4, n] + 
    S2[a1, a5, SP[a2, a6], a3, a4, n] + S2[a1, a5, SP[a2, a6], a4, a3, n] - 
    S2[a1, a5, SP[a4, a6], a2, a3, n] - S2[a1, a5, SP[a4, a6], a3, a2, n] + 
    S2[a1, a6, a2, a4, SP[a3, a5], n] + S2[a1, a6, a2, SP[a3, a4], a5, n] - 
    S2[a4, n]*S2[a1, a6, a3, a2, a5, n] - S2[a1, a6, a3, a2, SP[a4, a5], n] + 
    S2[a1, a6, a3, a4, SP[a2, a5], n] - S2[a4, n]*S2[a1, a6, a3, a5, a2, n] + 
    S2[a2, n]*S2[a1, a6, a3, a5, a4, n] + S2[a1, a6, a3, SP[a2, a5], a4, n] - 
    S2[a1, a6, a3, SP[a4, a5], a2, n] + S2[a1, a6, a4, a3, SP[a2, a5], n] + 
    S2[a1, a6, a4, SP[a3, a5], a2, n] - S2[a4, n]*S2[a1, a6, a5, a2, a3, n] - 
    S2[a1, a6, a5, a2, SP[a3, a4], n] - S2[a4, n]*S2[a1, a6, a5, a3, a2, n] + 
    S2[a2, n]*S2[a1, a6, a5, a3, a4, n] + 
    S2[a2, n]*S2[a1, a6, a5, a4, a3, n] + S2[a1, a6, a5, a4, SP[a2, a3], n] + 
    S2[a1, a6, a5, SP[a2, a3], a4, n] - S2[a1, a6, a5, SP[a3, a4], a2, n] + 
    S2[a1, a6, SP[a2, a3], a4, a5, n] + S2[a1, a6, SP[a2, a3], a5, a4, n] + 
    S2[a1, a6, SP[a2, a5], a3, a4, n] + S2[a1, a6, SP[a2, a5], a4, a3, n] - 
    S2[a1, a6, SP[a4, a5], a2, a3, n] - S2[a1, a6, SP[a4, a5], a3, a2, n] + 
    S2[a1, SP[a2, a3], a4, a5, a6, n] + S2[a1, SP[a2, a3], a4, a6, a5, n] + 
    S2[a1, SP[a2, a3], a5, a4, a6, n] + S2[a1, SP[a2, a3], a5, a6, a4, n] + 
    S2[a1, SP[a2, a3], a6, a4, a5, n] + S2[a1, SP[a2, a3], a6, a5, a4, n] + 
    S2[a1, SP[a2, a4], a3, a5, a6, n] + S2[a1, SP[a2, a4], a3, a6, a5, n] + 
    S2[a1, SP[a2, a4], a5, a3, a6, n] + S2[a1, SP[a2, a5], a3, a4, a6, n] + 
    S2[a1, SP[a2, a5], a3, a6, a4, n] + S2[a1, SP[a2, a5], a4, a3, a6, n] + 
    S2[a1, SP[a2, a5], a4, a6, a3, n] + S2[a1, SP[a2, a5], a6, a3, a4, n] + 
    S2[a1, SP[a2, a5], a6, a4, a3, n] - S2[a1, SP[a3, a5], a2, a4, a6, n] - 
    S2[a1, SP[a3, a5], a2, a6, a4, n] - S2[a1, SP[a3, a5], a4, a2, a6, n] - 
    S2[a1, SP[a3, a5], a4, a6, a2, n] - S2[a1, SP[a3, a5], a6, a2, a4, n] - 
    S2[a1, SP[a3, a5], a6, a4, a2, n] - 2*S2[a1, SP[a4, a5], a2, a3, a6, n] - 
    S2[a1, SP[a4, a5], a2, a6, a3, n] - S2[a1, SP[a4, a5], a3, a2, a6, n] - 
    S2[a1, SP[a4, a5], a3, a6, a2, n] - S2[a1, SP[a4, a5], a6, a2, a3, n] - 
    S2[a1, SP[a4, a5], a6, a3, a2, n] - S2[a2, a1, a3, a4, SP[a5, a6], n] - 
    S2[a2, a1, a3, a5, SP[a4, a6], n] - S2[a2, a1, a3, SP[a4, a6], a5, n] - 
    S2[a2, a1, a3, SP[a5, a6], a4, n] - S2[a2, a1, a4, a3, SP[a5, a6], n] - 
    S2[a2, a1, a4, a5, SP[a3, a6], n] + S2[a2, a1, a4, a6, SP[a3, a5], n] - 
    S2[a2, a1, a4, SP[a3, a6], a5, n] - S2[a2, a1, a5, a3, SP[a4, a6], n] - 
    S2[a2, a1, a5, a4, SP[a3, a6], n] - S2[a2, a1, a5, SP[a3, a6], a4, n] - 
    S2[a2, a1, a5, SP[a4, a6], a3, n] + S2[a2, a1, a6, a4, SP[a3, a5], n] + 
    S2[a2, a1, a6, SP[a3, a4], a5, n] - S2[a2, a1, SP[a3, a6], a4, a5, n] - 
    S2[a2, a1, SP[a3, a6], a5, a4, n] - S2[a2, a1, SP[a5, a6], a3, a4, n] - 
    S2[a2, a1, SP[a5, a6], a4, a3, n] + S2[a5, n]*S2[a2, a3, a1, a4, a6, n] - 
    S2[a2, a3, a1, a5, SP[a4, a6], n] + S2[a5, n]*S2[a2, a3, a1, a6, a4, n] + 
    S2[a2, a3, a1, a6, SP[a4, a5], n] + S2[a2, a3, a1, SP[a4, a5], a6, n] - 
    S2[a2, a3, a1, SP[a4, a6], a5, n] + S2[a5, n]*S2[a2, a3, a4, a1, a6, n] - 
    S2[a2, a3, a5, a1, SP[a4, a6], n] - S2[a2, a3, a5, SP[a1, a4], a6, n] - 
    S2[a2, a3, SP[a1, a4], a5, a6, n] - S2[a2, a3, SP[a1, a4], a6, a5, n] + 
    S2[a2, a3, SP[a4, a5], a1, a6, n] + S2[a5, n]*S2[a2, a4, a1, a3, a6, n] - 
    S2[a2, a4, a1, a5, SP[a3, a6], n] + S2[a2, a4, a1, a6, SP[a3, a5], n] + 
    S2[a2, a4, a1, SP[a3, a5], a6, n] - S2[a2, a4, a1, SP[a3, a6], a5, n] + 
    S2[a5, n]*S2[a2, a4, a3, a1, a6, n] - S2[a2, a4, a5, a1, SP[a3, a6], n] - 
    S2[a2, a4, a5, SP[a1, a3], a6, n] - S2[a2, a4, SP[a1, a3], a5, a6, n] - 
    S2[a2, a4, SP[a1, a3], a6, a5, n] + S2[a2, a4, SP[a3, a5], a1, a6, n] + 
    S2[a4, n]*S2[a2, a5, a1, a3, a6, n] - S2[a2, a5, a1, a4, SP[a3, a6], n] + 
    S2[a4, n]*S2[a2, a5, a1, a6, a3, n] + S2[a2, a5, a1, a6, SP[a3, a4], n] + 
    S2[a2, a5, a1, SP[a3, a4], a6, n] - S2[a2, a5, a1, SP[a3, a6], a4, n] - 
    S2[a2, a5, a3, a1, SP[a4, a6], n] - S2[a2, a5, a3, SP[a1, a4], a6, n] - 
    S2[a2, a5, a4, a1, SP[a3, a6], n] - S2[a2, a5, a4, SP[a1, a3], a6, n] - 
    S2[a2, a5, SP[a1, a3], a4, a6, n] - S2[a2, a5, SP[a1, a3], a6, a4, n] - 
    S2[a2, SP[a1, a3], a4, a5, a6, n] - S2[a2, SP[a1, a3], a4, a6, a5, n] - 
    S2[a2, SP[a1, a3], a5, a4, a6, n] - S2[a2, SP[a1, a3], a5, a6, a4, n] - 
    S2[a2, SP[a1, a3], a6, a4, a5, n] - S2[a2, SP[a1, a3], a6, a5, a4, n] - 
    S2[a2, SP[a1, a4], a3, a5, a6, n] - S2[a2, SP[a1, a4], a3, a6, a5, n] - 
    S2[a2, SP[a1, a4], a5, a3, a6, n] - S2[a2, SP[a1, a5], a3, a4, a6, n] - 
    S2[a2, SP[a1, a5], a3, a6, a4, n] - S2[a2, SP[a1, a5], a4, a3, a6, n] - 
    S2[a2, SP[a1, a5], a4, a6, a3, n] - S2[a2, SP[a1, a5], a6, a3, a4, n] - 
    S2[a2, SP[a1, a5], a6, a4, a3, n] + S2[a2, SP[a3, a5], a1, a4, a6, n] + 
    S2[a2, SP[a3, a5], a1, a6, a4, n] + S2[a2, SP[a3, a5], a4, a1, a6, n] + 
    2*S2[a2, SP[a4, a5], a1, a3, a6, n] + S2[a2, SP[a4, a5], a1, a6, a3, n] + 
    S2[a2, SP[a4, a5], a3, a1, a6, n] + S2[a4, a1, a5, a2, SP[a3, a6], n] + 
    S2[a4, a1, a5, SP[a2, a6], a3, n] + S2[a4, a1, a6, a3, SP[a2, a5], n] + 
    S2[a4, a1, a6, SP[a3, a5], a2, n] + S2[a4, a1, SP[a5, a6], a2, a3, n] + 
    S2[a4, a1, SP[a5, a6], a3, a2, n] + S2[a4, a5, a1, a2, SP[a3, a6], n] - 
    S2[a2, n]*S2[a4, a5, a1, a3, a6, n] - S2[a4, a5, a1, a3, SP[a2, a6], n] - 
    S2[a2, n]*S2[a4, a5, a1, a6, a3, n] - S2[a4, a5, a1, a6, SP[a2, a3], n] - 
    S2[a4, a5, a1, SP[a2, a3], a6, n] + S2[a4, a5, a2, a1, SP[a3, a6], n] + 
    S2[a4, a5, a2, SP[a1, a3], a6, n] + S2[a4, SP[a1, a5], a2, a3, a6, n] + 
    S2[a4, SP[a1, a5], a2, a6, a3, n] + S2[a4, SP[a1, a5], a6, a2, a3, n] + 
    S2[a4, SP[a1, a5], a6, a3, a2, n] - S2[a4, SP[a2, a5], a1, a3, a6, n] - 
    S2[a4, SP[a2, a5], a1, a6, a3, n] + S2[a4, n]*S2[a5, a1, a3, a2, a6, n] + 
    S2[a5, a1, a3, a2, SP[a4, a6], n] + S2[a4, n]*S2[a5, a1, a3, a6, a2, n] + 
    S2[a5, a1, a3, a6, SP[a2, a4], n] + S2[a5, a1, a3, SP[a2, a4], a6, n] + 
    S2[a5, a1, a3, SP[a4, a6], a2, n] + S2[a5, a1, SP[a3, a4], a2, a6, n] + 
    S2[a5, a1, SP[a3, a4], a6, a2, n] - S2[a4, n]*S2[a5, a2, a3, a1, a6, n] - 
    S2[a5, a2, a3, a1, SP[a4, a6], n] - S2[a5, a2, a3, SP[a1, a4], a6, n] - 
    S2[a5, a2, SP[a3, a4], a1, a6, n] - S2[a2, n]*S2[a5, a4, a1, a3, a6, n] - 
    S2[a5, a4, a1, a3, SP[a2, a6], n] - S2[a5, a4, a1, SP[a2, a3], a6, n] + 
    S2[a1, n]*S2[a5, a4, a2, a3, a6, n] + S2[a5, a4, a2, a3, SP[a1, a6], n] + 
    S2[a5, a4, a2, SP[a1, a3], a6, n] + S2[a5, SP[a1, a4], a2, a3, a6, n] + 
    S2[a5, SP[a1, a4], a3, a2, a6, n] + S2[a5, SP[a1, a4], a3, a6, a2, n] - 
    S2[a5, SP[a2, a4], a1, a3, a6, n] - S2[a5, SP[a2, a4], a3, a1, a6, n] - 
    S2[a1, n]*S2[a6, a3, a2, a4, a5, n] - S2[a6, a3, a2, a4, SP[a1, a5], n] - 
    S2[a6, a3, a2, SP[a1, a4], a5, n] - S2[a6, a3, SP[a1, a2], a4, a5, n] - 
    S2[a6, SP[a1, a3], a2, a4, a5, n] - S2[SP[a1, a5], a3, a2, a4, a6, n] - 
    S2[SP[a1, a5], a3, a2, a6, a4, n] - S2[SP[a1, a5], a3, a4, a2, a6, n] - 
    S2[SP[a1, a5], a3, a4, a6, a2, n] - S2[SP[a1, a5], a3, a6, a2, a4, n] - 
    S2[SP[a1, a5], a3, a6, a4, a2, n] - S2[SP[a1, a5], a4, a3, a2, a6, n] - 
    S2[SP[a1, a5], a4, a3, a6, a2, n] - S2[SP[a1, a6], a3, a2, a4, a5, n] + 
    S2[SP[a2, a5], a3, a1, a4, a6, n] + S2[SP[a2, a5], a3, a1, a6, a4, n] + 
    S2[SP[a2, a5], a3, a4, a1, a6, n] + S2[SP[a2, a5], a4, a3, a1, a6, n] + 
    S2[SP[a4, a5], a1, a3, a2, a6, n] + S2[SP[a4, a5], a1, a3, a6, a2, n] - 
    S2[SP[a4, a5], a2, a3, a1, a6, n] + S2[a6, a1, a3, a2, a4, a5, n] + 
    S2[a6, a3, a1, a2, a4, a5, n] + S2[a6, a3, a2, a1, a4, a5, n] + 
    S2[a6, a3, a2, a4, a1, a5, n] + S2[a6, a3, a2, a4, a5, a1, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a5_, a4_, a2_, a6_, a1_, a3_, n_] :> 
  -(S2[a1, a3, a6, n]*S2[a2, a4, a5, n]) - S2[a1, a6, a3, n]*
     S2[a2, a4, a5, n] - S2[SP[a1, a2], SP[a3, a4], SP[a5, a6], n] - 
    S2[SP[a1, a2], SP[a4, a6], SP[a3, a5], n] + S2[a1, a2, SP[a3, a4], 
     SP[a5, a6], n] + S2[a1, a2, SP[a4, a6], SP[a3, a5], n] - 
    S2[a4, a5, n]*S2[a1, a3, a6, a2, n] + S2[a1, a3, SP[a4, a6], SP[a2, a5], 
     n] - S2[a4, a5, n]*S2[a1, a6, a2, a3, n] - 
    S2[a4, a5, n]*S2[a1, a6, a3, a2, n] + S2[a1, a6, SP[a2, a4], SP[a3, a5], 
     n] + S2[a1, a6, SP[a3, a4], SP[a2, a5], n] + S2[a1, SP[a2, a3], a4, 
     SP[a5, a6], n] + S2[a1, SP[a2, a3], SP[a4, a6], a5, n] + 
    S2[a1, SP[a2, a6], a4, SP[a3, a5], n] + S2[a1, SP[a2, a6], SP[a3, a4], 
     a5, n] + S2[a1, SP[a3, a4], a6, SP[a2, a5], n] + 
    S2[a1, SP[a3, a4], SP[a5, a6], a2, n] + S2[a1, SP[a4, a6], a2, 
     SP[a3, a5], n] + S2[a1, SP[a4, a6], a3, SP[a2, a5], n] + 
    S2[a1, SP[a4, a6], SP[a2, a5], a3, n] + S2[a1, SP[a4, a6], SP[a3, a5], 
     a2, n] + S2[a2, a1, SP[a3, a4], SP[a5, a6], n] + 
    S2[a2, a1, SP[a4, a6], SP[a3, a5], n] + S2[a1, a3, n]*
     S2[a2, a5, a4, a6, n] + S2[a1, a3, n]*S2[a2, a5, a6, a4, n] - 
    S2[a2, a5, SP[a1, a4], SP[a3, a6], n] - S2[a2, a5, SP[a1, a6], 
     SP[a3, a4], n] + S2[a1, a3, n]*S2[a2, a6, a5, a4, n] - 
    S2[a2, a6, SP[a1, a5], SP[a3, a4], n] + S2[a2, SP[a1, a4], a3, 
     SP[a5, a6], n] + S2[a2, SP[a1, a4], a6, SP[a3, a5], n] + 
    S2[a2, SP[a1, a4], SP[a3, a5], a6, n] + S2[a2, SP[a1, a4], SP[a5, a6], 
     a3, n] - S2[a2, SP[a1, a5], a4, SP[a3, a6], n] - 
    S2[a2, SP[a1, a5], a6, SP[a3, a4], n] - S2[a2, SP[a1, a5], SP[a3, a4], 
     a6, n] - S2[a2, SP[a1, a5], SP[a3, a6], a4, n] - 
    S2[a2, SP[a1, a6], a5, SP[a3, a4], n] - S2[a2, SP[a1, a6], SP[a3, a5], 
     a4, n] - S2[a1, a3, n]*S2[a4, a5, a2, a6, n] + 
    S2[a4, a5, SP[a1, a2], SP[a3, a6], n] + S2[a4, SP[a1, a5], a2, 
     SP[a3, a6], n] + S2[a4, SP[a1, a5], SP[a2, a3], a6, n] + 
    S2[SP[a1, a2], a3, a4, SP[a5, a6], n] + S2[SP[a1, a2], a3, SP[a4, a6], 
     a5, n] + S2[SP[a1, a2], a4, a3, SP[a5, a6], n] + 
    S2[SP[a1, a2], a4, a6, SP[a3, a5], n] + S2[SP[a1, a2], a4, SP[a3, a5], 
     a6, n] + S2[SP[a1, a2], a4, SP[a5, a6], a3, n] - 
    S2[SP[a1, a2], a5, a4, SP[a3, a6], n] - S2[SP[a1, a2], a5, a6, 
     SP[a3, a4], n] - S2[SP[a1, a2], a5, SP[a3, a4], a6, n] - 
    S2[SP[a1, a2], a5, SP[a3, a6], a4, n] + S2[SP[a1, a2], a6, a4, 
     SP[a3, a5], n] - S2[SP[a1, a2], a6, a5, SP[a3, a4], n] + 
    S2[SP[a1, a2], a6, SP[a3, a4], a5, n] - S2[SP[a1, a2], a6, SP[a3, a5], 
     a4, n] + S2[SP[a1, a2], SP[a3, a4], a5, a6, n] + 
    S2[SP[a1, a2], SP[a3, a4], a6, a5, n] - S2[SP[a1, a2], SP[a3, a5], a4, 
     a6, n] - S2[SP[a1, a2], SP[a3, a5], a6, a4, n] - 
    S2[SP[a1, a2], SP[a3, a6], a5, a4, n] + S2[SP[a1, a2], SP[a4, a6], a3, 
     a5, n] + S2[SP[a1, a2], SP[a4, a6], a5, a3, n] + 
    S2[SP[a1, a4], a3, a6, SP[a2, a5], n] + S2[SP[a1, a4], a3, SP[a5, a6], 
     a2, n] + S2[SP[a1, a4], a5, a2, SP[a3, a6], n] + 
    S2[SP[a1, a4], a5, SP[a2, a3], a6, n] + S2[SP[a1, a4], a6, a2, 
     SP[a3, a5], n] + S2[SP[a1, a4], a6, a3, SP[a2, a5], n] + 
    S2[SP[a1, a4], a6, SP[a2, a5], a3, n] + S2[SP[a1, a4], a6, SP[a3, a5], 
     a2, n] + S2[SP[a1, a4], SP[a3, a5], a2, a6, n] + 
    S2[SP[a1, a4], SP[a3, a5], a6, a2, n] + S2[SP[a1, a4], SP[a5, a6], a2, 
     a3, n] + S2[SP[a1, a4], SP[a5, a6], a3, a2, n] - 
    S2[a1, a2, a3, a4, SP[a5, a6], n] - S2[a1, a2, a3, SP[a4, a6], a5, n] - 
    S2[a1, a2, a4, a3, SP[a5, a6], n] - S2[a1, a2, a4, a6, SP[a3, a5], n] - 
    S2[a1, a2, a4, SP[a3, a5], a6, n] - S2[a1, a2, a4, SP[a5, a6], a3, n] + 
    S2[a1, a2, a5, a4, SP[a3, a6], n] + S2[a1, a2, a5, a6, SP[a3, a4], n] + 
    S2[a1, a2, a5, SP[a3, a4], a6, n] + S2[a1, a2, a5, SP[a3, a6], a4, n] - 
    S2[a1, a2, a6, a4, SP[a3, a5], n] + S2[a1, a2, a6, a5, SP[a3, a4], n] - 
    S2[a1, a2, a6, SP[a3, a4], a5, n] + S2[a1, a2, a6, SP[a3, a5], a4, n] - 
    S2[a1, a2, SP[a3, a4], a5, a6, n] - S2[a1, a2, SP[a3, a4], a6, a5, n] + 
    S2[a1, a2, SP[a3, a5], a4, a6, n] + S2[a1, a2, SP[a3, a5], a6, a4, n] + 
    S2[a1, a2, SP[a3, a6], a5, a4, n] - S2[a1, a2, SP[a4, a6], a3, a5, n] - 
    S2[a1, a2, SP[a4, a6], a5, a3, n] - S2[a1, a3, a2, a4, SP[a5, a6], n] - 
    S2[a1, a3, a2, SP[a4, a6], a5, n] - S2[a6, n]*S2[a1, a3, a4, a2, a5, n] - 
    S2[a1, a3, a4, a2, SP[a5, a6], n] - S2[a6, n]*S2[a1, a3, a4, a5, a2, n] + 
    S2[a2, n]*S2[a1, a3, a4, a5, a6, n] + 
    S2[a2, n]*S2[a1, a3, a4, a6, a5, n] + S2[a1, a3, a4, SP[a2, a5], a6, n] - 
    2*S2[a1, a3, a4, SP[a5, a6], a2, n] + 
    S2[a4, n]*S2[a1, a3, a5, a2, a6, n] + S2[a1, a3, a5, a2, SP[a4, a6], n] - 
    S2[a2, n]*S2[a1, a3, a5, a4, a6, n] - S2[a1, a3, a5, a4, SP[a2, a6], n] + 
    S2[a4, n]*S2[a1, a3, a5, a6, a2, n] - 
    S2[a2, n]*S2[a1, a3, a5, a6, a4, n] - S2[a1, a3, a5, SP[a2, a6], a4, n] + 
    S2[a1, a3, a5, SP[a4, a6], a2, n] + S2[a4, n]*S2[a1, a3, a6, a2, a5, n] + 
    S2[a1, a3, a6, a2, SP[a4, a5], n] + S2[a2, n]*S2[a1, a3, a6, a4, a5, n] + 
    S2[a4, n]*S2[a1, a3, a6, a5, a2, n] - 
    S2[a2, n]*S2[a1, a3, a6, a5, a4, n] + S2[a1, a3, a6, SP[a2, a4], a5, n] - 
    S2[a1, a3, a6, SP[a2, a5], a4, n] + S2[a1, a3, a6, SP[a4, a5], a2, n] + 
    S2[a1, a3, SP[a2, a4], a5, a6, n] + S2[a1, a3, SP[a2, a4], a6, a5, n] - 
    S2[a1, a3, SP[a2, a5], a4, a6, n] - S2[a1, a3, SP[a2, a5], a6, a4, n] - 
    S2[a1, a3, SP[a2, a6], a5, a4, n] + S2[a1, a3, SP[a4, a5], a2, a6, n] + 
    S2[a1, a3, SP[a4, a5], a6, a2, n] - S2[a1, a3, SP[a4, a6], a2, a5, n] - 
    S2[a1, a3, SP[a4, a6], a5, a2, n] - S2[a6, n]*S2[a1, a4, a2, a3, a5, n] - 
    S2[a1, a4, a2, a3, SP[a5, a6], n] - S2[a6, n]*S2[a1, a4, a2, a5, a3, n] - 
    S2[a1, a4, a2, a5, SP[a3, a6], n] - S2[a1, a4, a2, SP[a3, a6], a5, n] - 
    S2[a1, a4, a2, SP[a5, a6], a3, n] - S2[a6, n]*S2[a1, a4, a3, a2, a5, n] - 
    S2[a1, a4, a3, a2, SP[a5, a6], n] - S2[a6, n]*S2[a1, a4, a3, a5, a2, n] + 
    S2[a2, n]*S2[a1, a4, a3, a5, a6, n] + 
    S2[a2, n]*S2[a1, a4, a3, a6, a5, n] + S2[a1, a4, a3, SP[a2, a5], a6, n] - 
    2*S2[a1, a4, a3, SP[a5, a6], a2, n] - 
    S2[a6, n]*S2[a1, a4, a5, a2, a3, n] - 
    2*S2[a1, a4, a5, a2, SP[a3, a6], n] - 
    S2[a6, n]*S2[a1, a4, a5, a3, a2, n] + 
    S2[a2, n]*S2[a1, a4, a5, a3, a6, n] + 
    S2[a2, n]*S2[a1, a4, a5, a6, a3, n] + S2[a1, a4, a5, a6, SP[a2, a3], n] - 
    S2[a1, a4, a5, SP[a3, a6], a2, n] - S2[a1, a4, a6, a2, SP[a3, a5], n] + 
    S2[a2, n]*S2[a1, a4, a6, a3, a5, n] + 
    S2[a2, n]*S2[a1, a4, a6, a5, a3, n] + S2[a1, a4, a6, a5, SP[a2, a3], n] + 
    S2[a1, a4, a6, SP[a2, a3], a5, n] - S2[a1, a4, a6, SP[a3, a5], a2, n] + 
    S2[a1, a4, SP[a2, a3], a5, a6, n] + S2[a1, a4, SP[a2, a3], a6, a5, n] + 
    S2[a1, a4, SP[a2, a5], a3, a6, n] + S2[a1, a4, SP[a2, a5], a6, a3, n] - 
    S2[a1, a4, SP[a3, a5], a2, a6, n] - S2[a1, a4, SP[a3, a5], a6, a2, n] - 
    S2[a1, a4, SP[a3, a6], a2, a5, n] - S2[a1, a4, SP[a3, a6], a5, a2, n] - 
    2*S2[a1, a4, SP[a5, a6], a2, a3, n] - 
    2*S2[a1, a4, SP[a5, a6], a3, a2, n] + 
    S2[a4, n]*S2[a1, a5, a2, a3, a6, n] + S2[a1, a5, a2, a3, SP[a4, a6], n] + 
    S2[a4, n]*S2[a1, a5, a2, a6, a3, n] + S2[a1, a5, a2, a6, SP[a3, a4], n] + 
    S2[a1, a5, a2, SP[a3, a4], a6, n] + S2[a1, a5, a2, SP[a4, a6], a3, n] + 
    S2[a4, n]*S2[a1, a5, a3, a2, a6, n] + S2[a1, a5, a3, a2, SP[a4, a6], n] - 
    S2[a2, n]*S2[a1, a5, a3, a4, a6, n] - S2[a1, a5, a3, a4, SP[a2, a6], n] + 
    S2[a4, n]*S2[a1, a5, a3, a6, a2, n] - 
    S2[a2, n]*S2[a1, a5, a3, a6, a4, n] - S2[a1, a5, a3, SP[a2, a6], a4, n] + 
    S2[a1, a5, a3, SP[a4, a6], a2, n] - S2[a2, n]*S2[a1, a5, a4, a3, a6, n] - 
    S2[a1, a5, a4, a3, SP[a2, a6], n] - S2[a2, n]*S2[a1, a5, a4, a6, a3, n] - 
    S2[a1, a5, a4, a6, SP[a2, a3], n] - S2[a1, a5, a4, SP[a2, a3], a6, n] - 
    S2[a1, a5, a4, SP[a2, a6], a3, n] + S2[a4, n]*S2[a1, a5, a6, a2, a3, n] + 
    S2[a1, a5, a6, a2, SP[a3, a4], n] + S2[a4, n]*S2[a1, a5, a6, a3, a2, n] - 
    S2[a2, n]*S2[a1, a5, a6, a3, a4, n] - 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] - S2[a1, a5, a6, a4, SP[a2, a3], n] - 
    S2[a1, a5, a6, SP[a2, a3], a4, n] + S2[a1, a5, a6, SP[a3, a4], a2, n] - 
    S2[a1, a5, SP[a2, a3], a4, a6, n] - S2[a1, a5, SP[a2, a3], a6, a4, n] - 
    S2[a1, a5, SP[a2, a6], a3, a4, n] - S2[a1, a5, SP[a2, a6], a4, a3, n] + 
    S2[a1, a5, SP[a3, a4], a2, a6, n] + S2[a1, a5, SP[a3, a4], a6, a2, n] + 
    S2[a1, a5, SP[a4, a6], a2, a3, n] + S2[a1, a5, SP[a4, a6], a3, a2, n] + 
    S2[a4, n]*S2[a1, a6, a2, a3, a5, n] + S2[a1, a6, a2, a3, SP[a4, a5], n] - 
    2*S2[a1, a6, a2, a4, SP[a3, a5], n] + 
    S2[a4, n]*S2[a1, a6, a2, a5, a3, n] + S2[a1, a6, a2, a5, SP[a3, a4], n] - 
    S2[a1, a6, a2, SP[a3, a4], a5, n] + S2[a1, a6, a2, SP[a4, a5], a3, n] + 
    S2[a4, n]*S2[a1, a6, a3, a2, a5, n] + S2[a1, a6, a3, a2, SP[a4, a5], n] + 
    S2[a2, n]*S2[a1, a6, a3, a4, a5, n] + 
    S2[a4, n]*S2[a1, a6, a3, a5, a2, n] - 
    S2[a2, n]*S2[a1, a6, a3, a5, a4, n] + S2[a1, a6, a3, SP[a2, a4], a5, n] - 
    S2[a1, a6, a3, SP[a2, a5], a4, n] + S2[a1, a6, a3, SP[a4, a5], a2, n] - 
    S2[a1, a6, a4, a2, SP[a3, a5], n] + S2[a2, n]*S2[a1, a6, a4, a3, a5, n] + 
    S2[a2, n]*S2[a1, a6, a4, a5, a3, n] + S2[a1, a6, a4, a5, SP[a2, a3], n] + 
    S2[a1, a6, a4, SP[a2, a3], a5, n] - S2[a1, a6, a4, SP[a3, a5], a2, n] + 
    S2[a4, n]*S2[a1, a6, a5, a2, a3, n] + S2[a1, a6, a5, a2, SP[a3, a4], n] + 
    S2[a4, n]*S2[a1, a6, a5, a3, a2, n] - 
    S2[a2, n]*S2[a1, a6, a5, a3, a4, n] - 
    S2[a2, n]*S2[a1, a6, a5, a4, a3, n] - S2[a1, a6, a5, a4, SP[a2, a3], n] - 
    S2[a1, a6, a5, SP[a2, a3], a4, n] + S2[a1, a6, a5, SP[a3, a4], a2, n] - 
    S2[a1, a6, SP[a2, a3], a5, a4, n] + S2[a1, a6, SP[a2, a4], a3, a5, n] + 
    S2[a1, a6, SP[a2, a4], a5, a3, n] - S2[a1, a6, SP[a2, a5], a3, a4, n] - 
    S2[a1, a6, SP[a2, a5], a4, a3, n] + S2[a1, a6, SP[a4, a5], a2, a3, n] + 
    S2[a1, a6, SP[a4, a5], a3, a2, n] + S2[a1, SP[a2, a4], a3, a5, a6, n] + 
    S2[a1, SP[a2, a4], a3, a6, a5, n] + S2[a1, SP[a2, a4], a5, a3, a6, n] + 
    S2[a1, SP[a2, a4], a5, a6, a3, n] + S2[a1, SP[a2, a4], a6, a3, a5, n] + 
    S2[a1, SP[a2, a4], a6, a5, a3, n] - S2[a1, SP[a2, a5], a3, a4, a6, n] - 
    S2[a1, SP[a2, a5], a3, a6, a4, n] - S2[a1, SP[a2, a5], a4, a3, a6, n] - 
    S2[a1, SP[a2, a5], a4, a6, a3, n] - S2[a1, SP[a2, a5], a6, a3, a4, n] - 
    S2[a1, SP[a2, a5], a6, a4, a3, n] - S2[a1, SP[a2, a6], a3, a5, a4, n] - 
    S2[a1, SP[a2, a6], a5, a3, a4, n] - S2[a1, SP[a2, a6], a5, a4, a3, n] - 
    S2[a1, SP[a3, a6], a4, a2, a5, n] - S2[a1, SP[a3, a6], a4, a5, a2, n] + 
    S2[a1, SP[a4, a5], a2, a3, a6, n] + S2[a1, SP[a4, a5], a2, a6, a3, n] + 
    S2[a1, SP[a4, a5], a3, a2, a6, n] + S2[a1, SP[a4, a5], a3, a6, a2, n] + 
    S2[a1, SP[a4, a5], a6, a2, a3, n] + S2[a1, SP[a4, a5], a6, a3, a2, n] - 
    S2[a1, SP[a4, a6], a2, a3, a5, n] - S2[a1, SP[a4, a6], a2, a5, a3, n] - 
    S2[a1, SP[a4, a6], a3, a2, a5, n] - S2[a1, SP[a4, a6], a3, a5, a2, n] - 
    S2[a1, SP[a4, a6], a5, a2, a3, n] - S2[a1, SP[a4, a6], a5, a3, a2, n] - 
    S2[a2, a1, a3, a4, SP[a5, a6], n] - S2[a2, a1, a3, SP[a4, a6], a5, n] - 
    S2[a2, a1, a4, a3, SP[a5, a6], n] - S2[a2, a1, a4, a6, SP[a3, a5], n] - 
    S2[a2, a1, a4, SP[a3, a5], a6, n] - S2[a2, a1, a4, SP[a5, a6], a3, n] + 
    S2[a2, a1, a5, a4, SP[a3, a6], n] + S2[a2, a1, a5, a6, SP[a3, a4], n] + 
    S2[a2, a1, a5, SP[a3, a4], a6, n] + S2[a2, a1, a5, SP[a3, a6], a4, n] - 
    S2[a2, a1, a6, a4, SP[a3, a5], n] + S2[a2, a1, a6, a5, SP[a3, a4], n] - 
    S2[a2, a1, a6, SP[a3, a4], a5, n] + S2[a2, a1, a6, SP[a3, a5], a4, n] - 
    S2[a2, a1, SP[a3, a4], a5, a6, n] - S2[a2, a1, SP[a3, a4], a6, a5, n] + 
    S2[a2, a1, SP[a3, a5], a4, a6, n] + S2[a2, a1, SP[a3, a5], a6, a4, n] + 
    S2[a2, a1, SP[a3, a6], a5, a4, n] - S2[a2, a1, SP[a4, a6], a3, a5, n] - 
    S2[a2, a1, SP[a4, a6], a5, a3, n] + S2[a6, n]*S2[a2, a4, a1, a3, a5, n] + 
    S2[a6, n]*S2[a2, a4, a1, a5, a3, n] + S2[a2, a4, a1, a5, SP[a3, a6], n] - 
    S2[a2, a4, a1, a6, SP[a3, a5], n] - S2[a2, a4, a1, SP[a3, a5], a6, n] + 
    S2[a2, a4, a1, SP[a3, a6], a5, n] + S2[a6, n]*S2[a2, a4, a5, a1, a3, n] + 
    S2[a2, a4, a5, a1, SP[a3, a6], n] + S2[a2, a4, a5, SP[a1, a6], a3, n] - 
    S2[a5, n]*S2[a2, a4, a6, a1, a3, n] - S2[a2, a4, a6, a1, SP[a3, a5], n] - 
    S2[a2, a4, a6, SP[a1, a5], a3, n] - S2[a2, a4, SP[a1, a5], a3, a6, n] - 
    S2[a2, a4, SP[a1, a5], a6, a3, n] + S2[a2, a4, SP[a1, a6], a3, a5, n] + 
    S2[a2, a4, SP[a1, a6], a5, a3, n] - S2[a4, n]*S2[a2, a5, a1, a3, a6, n] - 
    S2[a2, a5, a1, a3, SP[a4, a6], n] + S2[a2, a5, a1, a4, SP[a3, a6], n] - 
    S2[a4, n]*S2[a2, a5, a1, a6, a3, n] + S2[a2, a5, a1, SP[a3, a6], a4, n] - 
    S2[a2, a5, a1, SP[a4, a6], a3, n] + S2[a2, a5, a4, a1, SP[a3, a6], n] + 
    S2[a2, a5, a4, SP[a1, a6], a3, n] + S2[a2, a5, a6, a1, SP[a3, a4], n] + 
    S2[a2, a5, a6, SP[a1, a4], a3, n] + S2[a2, a5, SP[a1, a6], a3, a4, n] + 
    S2[a2, a5, SP[a1, a6], a4, a3, n] - S2[a5, n]*S2[a2, a6, a1, a3, a4, n] - 
    S2[a2, a6, a1, a3, SP[a4, a5], n] - S2[a5, n]*S2[a2, a6, a1, a4, a3, n] - 
    S2[a2, a6, a1, a4, SP[a3, a5], n] + S2[a2, a6, a1, a5, SP[a3, a4], n] - 
    S2[a2, a6, a1, SP[a4, a5], a3, n] - S2[a5, n]*S2[a2, a6, a4, a1, a3, n] - 
    S2[a2, a6, a4, a1, SP[a3, a5], n] - S2[a2, a6, a4, SP[a1, a5], a3, n] + 
    S2[a2, a6, a5, a1, SP[a3, a4], n] + S2[a2, a6, a5, SP[a1, a4], a3, n] - 
    S2[a2, a6, SP[a4, a5], a1, a3, n] - S2[a2, SP[a1, a4], a3, a5, a6, n] - 
    S2[a2, SP[a1, a4], a3, a6, a5, n] - S2[a2, SP[a1, a4], a5, a3, a6, n] - 
    S2[a2, SP[a1, a4], a5, a6, a3, n] - S2[a2, SP[a1, a4], a6, a3, a5, n] - 
    S2[a2, SP[a1, a4], a6, a5, a3, n] + S2[a2, SP[a1, a5], a3, a4, a6, n] + 
    S2[a2, SP[a1, a5], a3, a6, a4, n] + S2[a2, SP[a1, a5], a4, a3, a6, n] + 
    S2[a2, SP[a1, a5], a4, a6, a3, n] + S2[a2, SP[a1, a5], a6, a3, a4, n] + 
    S2[a2, SP[a1, a5], a6, a4, a3, n] + S2[a2, SP[a1, a6], a3, a5, a4, n] + 
    S2[a2, SP[a1, a6], a5, a3, a4, n] + S2[a2, SP[a1, a6], a5, a4, a3, n] - 
    S2[a2, SP[a4, a5], a1, a3, a6, n] - S2[a2, SP[a4, a5], a1, a6, a3, n] - 
    S2[a2, SP[a4, a5], a6, a1, a3, n] + S2[a2, SP[a4, a6], a1, a3, a5, n] + 
    S2[a2, SP[a4, a6], a1, a5, a3, n] + S2[a2, SP[a4, a6], a5, a1, a3, n] - 
    S2[a2, SP[a5, a6], a1, a3, a4, n] - S2[a2, SP[a5, a6], a1, a4, a3, n] - 
    S2[a2, SP[a5, a6], a4, a1, a3, n] - S2[a4, a1, a3, a6, SP[a2, a5], n] - 
    S2[a4, a1, a3, SP[a5, a6], a2, n] - S2[a4, a1, a5, a2, SP[a3, a6], n] - 
    S2[a4, a1, a5, SP[a2, a3], a6, n] - S2[a4, a1, a6, a2, SP[a3, a5], n] - 
    S2[a4, a1, a6, a3, SP[a2, a5], n] - S2[a4, a1, a6, SP[a2, a5], a3, n] - 
    S2[a4, a1, a6, SP[a3, a5], a2, n] - S2[a4, a1, SP[a3, a5], a2, a6, n] - 
    S2[a4, a1, SP[a3, a5], a6, a2, n] - S2[a4, a1, SP[a5, a6], a2, a3, n] - 
    S2[a4, a1, SP[a5, a6], a3, a2, n] - S2[a4, a5, a1, a2, SP[a3, a6], n] + 
    S2[a2, n]*S2[a4, a5, a1, a3, a6, n] + S2[a4, a5, a1, a3, SP[a2, a6], n] + 
    S2[a2, n]*S2[a4, a5, a1, a6, a3, n] + S2[a4, a5, a1, a6, SP[a2, a3], n] + 
    S2[a4, a5, a1, SP[a2, a6], a3, n] - S2[a4, a5, a2, a1, SP[a3, a6], n] - 
    S2[a4, a5, a2, SP[a1, a6], a3, n] - S2[a4, SP[a1, a5], a2, a3, a6, n] - 
    S2[a4, SP[a1, a5], a2, a6, a3, n] - S2[a4, SP[a1, a5], a3, a2, a6, n] - 
    S2[a4, SP[a1, a5], a3, a6, a2, n] - S2[a4, SP[a1, a5], a6, a2, a3, n] - 
    S2[a4, SP[a1, a5], a6, a3, a2, n] + S2[a4, SP[a2, a5], a1, a3, a6, n] + 
    S2[a4, SP[a2, a5], a1, a6, a3, n] + S2[a4, n]*S2[a5, a2, a6, a1, a3, n] + 
    S2[a5, a2, a6, a1, SP[a3, a4], n] + S2[a5, a2, a6, SP[a1, a4], a3, n] + 
    S2[a5, a2, SP[a4, a6], a1, a3, n] + S2[a5, SP[a2, a4], a6, a1, a3, n] + 
    S2[a2, n]*S2[a6, a1, a3, a4, a5, n] + S2[a6, a1, a3, a4, SP[a2, a5], n] + 
    S2[a6, a1, a3, SP[a2, a4], a5, n] + S2[a2, n]*S2[a6, a1, a4, a3, a5, n] + 
    S2[a6, a1, a4, a3, SP[a2, a5], n] + S2[a2, n]*S2[a6, a1, a4, a5, a3, n] + 
    S2[a6, a1, a4, a5, SP[a2, a3], n] + S2[a6, a1, a4, SP[a2, a3], a5, n] + 
    S2[a6, a1, a4, SP[a2, a5], a3, n] + S2[a6, a1, SP[a2, a3], a4, a5, n] + 
    S2[a6, a1, SP[a2, a4], a3, a5, n] + S2[a6, a1, SP[a2, a4], a5, a3, n] + 
    S2[a6, SP[a1, a2], a3, a4, a5, n] + S2[a6, SP[a1, a2], a4, a3, a5, n] + 
    S2[a6, SP[a1, a2], a4, a5, a3, n] - S2[SP[a1, a6], a3, a4, a2, a5, n] - 
    S2[SP[a1, a6], a3, a4, a5, a2, n] - S2[SP[a1, a6], a4, a2, a3, a5, n] - 
    S2[SP[a1, a6], a4, a2, a5, a3, n] - S2[SP[a1, a6], a4, a3, a2, a5, n] - 
    S2[SP[a1, a6], a4, a3, a5, a2, n] - S2[SP[a1, a6], a4, a5, a2, a3, n] - 
    S2[SP[a1, a6], a4, a5, a3, a2, n] - S2[SP[a2, a5], a4, a6, a1, a3, n] - 
    S2[SP[a2, a5], a6, a1, a3, a4, n] - S2[SP[a2, a5], a6, a1, a4, a3, n] - 
    S2[SP[a2, a5], a6, a4, a1, a3, n] + S2[SP[a2, a6], a1, a3, a4, a5, n] + 
    S2[SP[a2, a6], a1, a4, a3, a5, n] + S2[SP[a2, a6], a1, a4, a5, a3, n] + 
    S2[SP[a2, a6], a4, a1, a3, a5, n] + S2[SP[a2, a6], a4, a1, a5, a3, n] + 
    S2[SP[a2, a6], a4, a5, a1, a3, n] + S2[SP[a4, a5], a2, a6, a1, a3, n] - 
    S2[a6, a1, a2, a3, a4, a5, n] - S2[a6, a1, a2, a4, a3, a5, n] - 
    S2[a6, a1, a2, a4, a5, a3, n] - S2[a6, a1, a3, a2, a4, a5, n] - 
    S2[a6, a2, a1, a3, a4, a5, n] - S2[a6, a2, a1, a4, a3, a5, n] - 
    S2[a6, a2, a1, a4, a5, a3, n] - S2[a6, a2, a4, a1, a3, a5, n] - 
    S2[a6, a2, a4, a1, a5, a3, n] - S2[a6, a2, a4, a5, a1, a3, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a5_, a4_, a2_, a6_, a3_, a1_, n_] :> 
  S2[a1, a3, a6, n]*S2[a2, a4, a5, n] + S2[SP[a1, a2], SP[a3, a4], 
     SP[a5, a6], n] - S2[a1, a2, SP[a3, a4], SP[a5, a6], n] + 
    S2[a4, a5, n]*S2[a1, a3, a6, a2, n] - S2[a1, a3, SP[a4, a6], SP[a2, a5], 
     n] - S2[a1, SP[a2, a3], a4, SP[a5, a6], n] - 
    S2[a1, SP[a2, a3], SP[a4, a6], a5, n] - S2[a1, SP[a3, a4], a6, 
     SP[a2, a5], n] - S2[a1, SP[a3, a4], SP[a5, a6], a2, n] - 
    S2[a2, a1, SP[a3, a4], SP[a5, a6], n] - S2[a1, a3, n]*
     S2[a2, a5, a4, a6, n] - S2[a1, a3, n]*S2[a2, a5, a6, a4, n] + 
    S2[a2, a5, SP[a1, a4], SP[a3, a6], n] + S2[a2, a5, SP[a1, a6], 
     SP[a3, a4], n] - S2[a1, a3, n]*S2[a2, a6, a5, a4, n] + 
    S2[a2, a6, SP[a1, a5], SP[a3, a4], n] - S2[a2, SP[a1, a4], a3, 
     SP[a5, a6], n] - S2[a2, SP[a1, a4], SP[a3, a5], a6, n] + 
    S2[a2, SP[a1, a5], a4, SP[a3, a6], n] + S2[a2, SP[a1, a5], a6, 
     SP[a3, a4], n] + S2[a2, SP[a1, a5], SP[a3, a4], a6, n] + 
    S2[a2, SP[a1, a5], SP[a3, a6], a4, n] + S2[a2, SP[a1, a6], a5, 
     SP[a3, a4], n] + S2[a2, SP[a1, a6], SP[a3, a5], a4, n] + 
    S2[a1, a3, n]*S2[a4, a5, a2, a6, n] - S2[a4, a5, SP[a1, a2], SP[a3, a6], 
     n] - S2[a4, SP[a1, a5], a2, SP[a3, a6], n] - 
    S2[a4, SP[a1, a5], SP[a2, a3], a6, n] - S2[SP[a1, a2], a3, a4, 
     SP[a5, a6], n] - S2[SP[a1, a2], a3, SP[a4, a6], a5, n] - 
    S2[SP[a1, a2], a4, a3, SP[a5, a6], n] - S2[SP[a1, a2], a4, SP[a3, a5], 
     a6, n] + S2[SP[a1, a2], a5, a4, SP[a3, a6], n] + 
    S2[SP[a1, a2], a5, a6, SP[a3, a4], n] + S2[SP[a1, a2], a5, SP[a3, a4], 
     a6, n] + S2[SP[a1, a2], a5, SP[a3, a6], a4, n] + 
    S2[SP[a1, a2], a6, a5, SP[a3, a4], n] + S2[SP[a1, a2], a6, SP[a3, a5], 
     a4, n] - S2[SP[a1, a2], SP[a3, a4], a5, a6, n] - 
    S2[SP[a1, a2], SP[a3, a4], a6, a5, n] + S2[SP[a1, a2], SP[a3, a5], a4, 
     a6, n] + S2[SP[a1, a2], SP[a3, a5], a6, a4, n] + 
    S2[SP[a1, a2], SP[a3, a6], a5, a4, n] - S2[SP[a1, a4], a3, a6, 
     SP[a2, a5], n] - S2[SP[a1, a4], a3, SP[a5, a6], a2, n] - 
    S2[SP[a1, a4], a5, a2, SP[a3, a6], n] - S2[SP[a1, a4], a5, SP[a2, a3], 
     a6, n] - S2[SP[a1, a4], SP[a3, a5], a2, a6, n] - 
    S2[SP[a1, a4], SP[a3, a5], a6, a2, n] + S2[a1, a2, a3, a4, SP[a5, a6], 
     n] + S2[a1, a2, a3, SP[a4, a6], a5, n] + S2[a1, a2, a4, a3, SP[a5, a6], 
     n] + S2[a1, a2, a4, SP[a3, a5], a6, n] - S2[a1, a2, a5, a4, SP[a3, a6], 
     n] - S2[a1, a2, a5, a6, SP[a3, a4], n] - S2[a1, a2, a5, SP[a3, a4], a6, 
     n] - S2[a1, a2, a5, SP[a3, a6], a4, n] - S2[a1, a2, a6, a5, SP[a3, a4], 
     n] - S2[a1, a2, a6, SP[a3, a5], a4, n] + S2[a1, a2, SP[a3, a4], a5, a6, 
     n] + S2[a1, a2, SP[a3, a4], a6, a5, n] - S2[a1, a2, SP[a3, a5], a4, a6, 
     n] - S2[a1, a2, SP[a3, a5], a6, a4, n] - S2[a1, a2, SP[a3, a6], a5, a4, 
     n] + S2[a1, a3, a2, a4, SP[a5, a6], n] + S2[a1, a3, a2, SP[a4, a6], a5, 
     n] + S2[a6, n]*S2[a1, a3, a4, a2, a5, n] + S2[a1, a3, a4, a2, 
     SP[a5, a6], n] + S2[a6, n]*S2[a1, a3, a4, a5, a2, n] - 
    S2[a2, n]*S2[a1, a3, a4, a5, a6, n] - 
    S2[a2, n]*S2[a1, a3, a4, a6, a5, n] - S2[a1, a3, a4, SP[a2, a5], a6, n] + 
    2*S2[a1, a3, a4, SP[a5, a6], a2, n] - 
    S2[a4, n]*S2[a1, a3, a5, a2, a6, n] - S2[a1, a3, a5, a2, SP[a4, a6], n] + 
    S2[a2, n]*S2[a1, a3, a5, a4, a6, n] + S2[a1, a3, a5, a4, SP[a2, a6], n] - 
    S2[a4, n]*S2[a1, a3, a5, a6, a2, n] + 
    S2[a2, n]*S2[a1, a3, a5, a6, a4, n] + S2[a1, a3, a5, SP[a2, a6], a4, n] - 
    S2[a1, a3, a5, SP[a4, a6], a2, n] - S2[a4, n]*S2[a1, a3, a6, a2, a5, n] - 
    S2[a1, a3, a6, a2, SP[a4, a5], n] - S2[a2, n]*S2[a1, a3, a6, a4, a5, n] - 
    S2[a4, n]*S2[a1, a3, a6, a5, a2, n] + 
    S2[a2, n]*S2[a1, a3, a6, a5, a4, n] - S2[a1, a3, a6, SP[a2, a4], a5, n] + 
    S2[a1, a3, a6, SP[a2, a5], a4, n] - S2[a1, a3, a6, SP[a4, a5], a2, n] - 
    S2[a1, a3, SP[a2, a4], a5, a6, n] - S2[a1, a3, SP[a2, a4], a6, a5, n] + 
    S2[a1, a3, SP[a2, a5], a4, a6, n] + S2[a1, a3, SP[a2, a5], a6, a4, n] + 
    S2[a1, a3, SP[a2, a6], a5, a4, n] - S2[a1, a3, SP[a4, a5], a2, a6, n] - 
    S2[a1, a3, SP[a4, a5], a6, a2, n] + S2[a1, a3, SP[a4, a6], a2, a5, n] + 
    S2[a1, a3, SP[a4, a6], a5, a2, n] + S2[a6, n]*S2[a1, a4, a2, a3, a5, n] + 
    S2[a1, a4, a2, a3, SP[a5, a6], n] + S2[a6, n]*S2[a1, a4, a2, a5, a3, n] + 
    S2[a1, a4, a2, a5, SP[a3, a6], n] - S2[a5, n]*S2[a1, a4, a2, a6, a3, n] - 
    S2[a1, a4, a2, a6, SP[a3, a5], n] + S2[a1, a4, a2, SP[a3, a6], a5, n] + 
    S2[a6, n]*S2[a1, a4, a3, a2, a5, n] + S2[a1, a4, a3, a2, SP[a5, a6], n] + 
    S2[a6, n]*S2[a1, a4, a3, a5, a2, n] - 
    S2[a2, n]*S2[a1, a4, a3, a5, a6, n] - 
    S2[a2, n]*S2[a1, a4, a3, a6, a5, n] - S2[a1, a4, a3, SP[a2, a5], a6, n] + 
    2*S2[a1, a4, a3, SP[a5, a6], a2, n] + 
    S2[a6, n]*S2[a1, a4, a5, a2, a3, n] + 
    2*S2[a1, a4, a5, a2, SP[a3, a6], n] + 
    S2[a6, n]*S2[a1, a4, a5, a3, a2, n] - 
    S2[a2, n]*S2[a1, a4, a5, a3, a6, n] + S2[a1, a4, a5, SP[a2, a6], a3, n] + 
    S2[a1, a4, a5, SP[a3, a6], a2, n] - S2[a5, n]*S2[a1, a4, a6, a2, a3, n] - 
    S2[a1, a4, a6, a2, SP[a3, a5], n] - S2[a5, n]*S2[a1, a4, a6, a3, a2, n] - 
    S2[a1, a4, a6, a3, SP[a2, a5], n] - S2[a1, a4, a6, SP[a2, a5], a3, n] - 
    S2[a1, a4, a6, SP[a3, a5], a2, n] - S2[a1, a4, SP[a2, a3], a5, a6, n] - 
    S2[a1, a4, SP[a2, a3], a6, a5, n] - S2[a1, a4, SP[a2, a5], a3, a6, n] - 
    S2[a1, a4, SP[a2, a5], a6, a3, n] + S2[a1, a4, SP[a2, a6], a3, a5, n] + 
    S2[a1, a4, SP[a2, a6], a5, a3, n] + S2[a1, a4, SP[a3, a5], a2, a6, n] + 
    S2[a1, a4, SP[a3, a5], a6, a2, n] + S2[a1, a4, SP[a3, a6], a2, a5, n] + 
    S2[a1, a4, SP[a3, a6], a5, a2, n] - S2[a4, n]*S2[a1, a5, a2, a3, a6, n] - 
    S2[a1, a5, a2, a3, SP[a4, a6], n] - S2[a4, n]*S2[a1, a5, a2, a6, a3, n] - 
    S2[a1, a5, a2, a6, SP[a3, a4], n] - S2[a1, a5, a2, SP[a3, a4], a6, n] - 
    S2[a1, a5, a2, SP[a4, a6], a3, n] - S2[a4, n]*S2[a1, a5, a3, a2, a6, n] - 
    S2[a1, a5, a3, a2, SP[a4, a6], n] + S2[a2, n]*S2[a1, a5, a3, a4, a6, n] + 
    S2[a1, a5, a3, a4, SP[a2, a6], n] - S2[a4, n]*S2[a1, a5, a3, a6, a2, n] + 
    S2[a2, n]*S2[a1, a5, a3, a6, a4, n] + S2[a1, a5, a3, SP[a2, a6], a4, n] - 
    S2[a1, a5, a3, SP[a4, a6], a2, n] + S2[a2, n]*S2[a1, a5, a4, a3, a6, n] + 
    S2[a1, a5, a4, a3, SP[a2, a6], n] + S2[a2, n]*S2[a1, a5, a4, a6, a3, n] + 
    S2[a1, a5, a4, a6, SP[a2, a3], n] + S2[a1, a5, a4, SP[a2, a3], a6, n] + 
    S2[a1, a5, a4, SP[a2, a6], a3, n] + S2[a2, n]*S2[a1, a5, a6, a3, a4, n] + 
    S2[a1, a5, a6, a3, SP[a2, a4], n] + S2[a2, n]*S2[a1, a5, a6, a4, a3, n] + 
    S2[a1, a5, a6, a4, SP[a2, a3], n] + S2[a1, a5, a6, SP[a2, a3], a4, n] + 
    S2[a1, a5, a6, SP[a2, a4], a3, n] + S2[a1, a5, SP[a2, a3], a4, a6, n] + 
    S2[a1, a5, SP[a2, a3], a6, a4, n] + S2[a1, a5, SP[a2, a6], a3, a4, n] + 
    S2[a1, a5, SP[a2, a6], a4, a3, n] - S2[a1, a5, SP[a3, a4], a2, a6, n] - 
    S2[a1, a5, SP[a3, a4], a6, a2, n] - S2[a5, n]*S2[a1, a6, a2, a3, a4, n] - 
    S2[a1, a6, a2, a3, SP[a4, a5], n] - S2[a5, n]*S2[a1, a6, a2, a4, a3, n] - 
    S2[a1, a6, a2, a4, SP[a3, a5], n] - S2[a1, a6, a2, SP[a3, a5], a4, n] - 
    S2[a1, a6, a2, SP[a4, a5], a3, n] - S2[a5, n]*S2[a1, a6, a3, a2, a4, n] - 
    S2[a1, a6, a3, a2, SP[a4, a5], n] - S2[a5, n]*S2[a1, a6, a3, a4, a2, n] - 
    S2[a1, a6, a3, a4, SP[a2, a5], n] + S2[a2, n]*S2[a1, a6, a3, a5, a4, n] + 
    S2[a1, a6, a3, a5, SP[a2, a4], n] - S2[a1, a6, a3, SP[a4, a5], a2, n] - 
    S2[a5, n]*S2[a1, a6, a4, a2, a3, n] - S2[a1, a6, a4, a2, SP[a3, a5], n] - 
    S2[a5, n]*S2[a1, a6, a4, a3, a2, n] - S2[a1, a6, a4, a3, SP[a2, a5], n] - 
    S2[a1, a6, a4, SP[a2, a5], a3, n] - S2[a1, a6, a4, SP[a3, a5], a2, n] + 
    S2[a2, n]*S2[a1, a6, a5, a3, a4, n] + S2[a1, a6, a5, a3, SP[a2, a4], n] + 
    S2[a2, n]*S2[a1, a6, a5, a4, a3, n] + S2[a1, a6, a5, a4, SP[a2, a3], n] + 
    S2[a1, a6, a5, SP[a2, a3], a4, n] + S2[a1, a6, a5, SP[a2, a4], a3, n] + 
    S2[a1, a6, SP[a2, a3], a5, a4, n] - S2[a1, a6, SP[a3, a5], a2, a4, n] - 
    S2[a1, a6, SP[a3, a5], a4, a2, n] - S2[a1, a6, SP[a4, a5], a2, a3, n] - 
    S2[a1, a6, SP[a4, a5], a3, a2, n] - S2[a1, SP[a2, a4], a3, a5, a6, n] - 
    S2[a1, SP[a2, a4], a3, a6, a5, n] - S2[a1, SP[a2, a4], a5, a3, a6, n] + 
    S2[a1, SP[a2, a5], a3, a4, a6, n] + S2[a1, SP[a2, a5], a3, a6, a4, n] + 
    S2[a1, SP[a2, a5], a4, a3, a6, n] + S2[a1, SP[a2, a5], a4, a6, a3, n] + 
    S2[a1, SP[a2, a5], a6, a3, a4, n] + S2[a1, SP[a2, a5], a6, a4, a3, n] + 
    S2[a1, SP[a2, a6], a3, a5, a4, n] + S2[a1, SP[a2, a6], a5, a3, a4, n] + 
    S2[a1, SP[a2, a6], a5, a4, a3, n] + S2[a1, SP[a3, a6], a4, a2, a5, n] + 
    S2[a1, SP[a3, a6], a4, a5, a2, n] - S2[a1, SP[a4, a5], a2, a3, a6, n] - 
    2*S2[a1, SP[a4, a5], a2, a6, a3, n] - S2[a1, SP[a4, a5], a3, a2, a6, n] - 
    S2[a1, SP[a4, a5], a3, a6, a2, n] - S2[a1, SP[a4, a5], a6, a2, a3, n] - 
    S2[a1, SP[a4, a5], a6, a3, a2, n] + S2[a1, SP[a4, a6], a2, a3, a5, n] + 
    S2[a1, SP[a4, a6], a2, a5, a3, n] + S2[a1, SP[a4, a6], a3, a2, a5, n] + 
    S2[a1, SP[a4, a6], a3, a5, a2, n] + S2[a1, SP[a4, a6], a5, a2, a3, n] + 
    S2[a1, SP[a4, a6], a5, a3, a2, n] - S2[a1, SP[a5, a6], a2, a3, a4, n] - 
    S2[a1, SP[a5, a6], a2, a4, a3, n] - S2[a1, SP[a5, a6], a3, a2, a4, n] - 
    S2[a1, SP[a5, a6], a3, a4, a2, n] - S2[a1, SP[a5, a6], a4, a2, a3, n] - 
    S2[a1, SP[a5, a6], a4, a3, a2, n] + S2[a2, a1, a3, a4, SP[a5, a6], n] + 
    S2[a2, a1, a3, SP[a4, a6], a5, n] + S2[a2, a1, a4, a3, SP[a5, a6], n] + 
    S2[a2, a1, a4, SP[a3, a5], a6, n] - S2[a2, a1, a5, a4, SP[a3, a6], n] - 
    S2[a2, a1, a5, a6, SP[a3, a4], n] - S2[a2, a1, a5, SP[a3, a4], a6, n] - 
    S2[a2, a1, a5, SP[a3, a6], a4, n] - S2[a2, a1, a6, a5, SP[a3, a4], n] - 
    S2[a2, a1, a6, SP[a3, a5], a4, n] + S2[a2, a1, SP[a3, a4], a5, a6, n] + 
    S2[a2, a1, SP[a3, a4], a6, a5, n] - S2[a2, a1, SP[a3, a5], a4, a6, n] - 
    S2[a2, a1, SP[a3, a5], a6, a4, n] - S2[a2, a1, SP[a3, a6], a5, a4, n] - 
    S2[a6, n]*S2[a2, a4, a1, a3, a5, n] - 
    S2[a6, n]*S2[a2, a4, a1, a5, a3, n] - S2[a2, a4, a1, a5, SP[a3, a6], n] + 
    S2[a5, n]*S2[a2, a4, a1, a6, a3, n] + S2[a2, a4, a1, a6, SP[a3, a5], n] + 
    S2[a2, a4, a1, SP[a3, a5], a6, n] - S2[a2, a4, a1, SP[a3, a6], a5, n] - 
    S2[a6, n]*S2[a2, a4, a5, a1, a3, n] - S2[a2, a4, a5, a1, SP[a3, a6], n] - 
    S2[a2, a4, a5, SP[a1, a6], a3, n] + S2[a5, n]*S2[a2, a4, a6, a1, a3, n] + 
    S2[a2, a4, a6, a1, SP[a3, a5], n] + S2[a2, a4, a6, SP[a1, a5], a3, n] + 
    S2[a2, a4, SP[a1, a5], a3, a6, n] + S2[a2, a4, SP[a1, a5], a6, a3, n] - 
    S2[a2, a4, SP[a1, a6], a3, a5, n] - S2[a2, a4, SP[a1, a6], a5, a3, n] + 
    S2[a4, n]*S2[a2, a5, a1, a3, a6, n] + S2[a2, a5, a1, a3, SP[a4, a6], n] - 
    S2[a2, a5, a1, a4, SP[a3, a6], n] + S2[a4, n]*S2[a2, a5, a1, a6, a3, n] - 
    S2[a2, a5, a1, SP[a3, a6], a4, n] + S2[a2, a5, a1, SP[a4, a6], a3, n] - 
    S2[a2, a5, a4, a1, SP[a3, a6], n] - S2[a2, a5, a4, SP[a1, a6], a3, n] - 
    S2[a2, a5, a6, a1, SP[a3, a4], n] - S2[a2, a5, a6, SP[a1, a4], a3, n] - 
    S2[a2, a5, SP[a1, a6], a3, a4, n] - S2[a2, a5, SP[a1, a6], a4, a3, n] + 
    S2[a5, n]*S2[a2, a6, a1, a3, a4, n] + S2[a2, a6, a1, a3, SP[a4, a5], n] + 
    S2[a5, n]*S2[a2, a6, a1, a4, a3, n] + S2[a2, a6, a1, a4, SP[a3, a5], n] - 
    S2[a2, a6, a1, a5, SP[a3, a4], n] + S2[a2, a6, a1, SP[a4, a5], a3, n] + 
    S2[a5, n]*S2[a2, a6, a4, a1, a3, n] + S2[a2, a6, a4, a1, SP[a3, a5], n] + 
    S2[a2, a6, a4, SP[a1, a5], a3, n] - S2[a2, a6, a5, a1, SP[a3, a4], n] - 
    S2[a2, a6, a5, SP[a1, a4], a3, n] + S2[a2, a6, SP[a4, a5], a1, a3, n] + 
    S2[a2, SP[a1, a4], a3, a5, a6, n] + S2[a2, SP[a1, a4], a3, a6, a5, n] + 
    S2[a2, SP[a1, a4], a5, a3, a6, n] - S2[a2, SP[a1, a5], a3, a4, a6, n] - 
    S2[a2, SP[a1, a5], a3, a6, a4, n] - S2[a2, SP[a1, a5], a4, a3, a6, n] - 
    S2[a2, SP[a1, a5], a4, a6, a3, n] - S2[a2, SP[a1, a5], a6, a3, a4, n] - 
    S2[a2, SP[a1, a5], a6, a4, a3, n] - S2[a2, SP[a1, a6], a3, a5, a4, n] - 
    S2[a2, SP[a1, a6], a5, a3, a4, n] - S2[a2, SP[a1, a6], a5, a4, a3, n] + 
    S2[a2, SP[a4, a5], a1, a3, a6, n] + 2*S2[a2, SP[a4, a5], a1, a6, a3, n] + 
    S2[a2, SP[a4, a5], a6, a1, a3, n] - S2[a2, SP[a4, a6], a1, a3, a5, n] - 
    S2[a2, SP[a4, a6], a1, a5, a3, n] - S2[a2, SP[a4, a6], a5, a1, a3, n] + 
    S2[a2, SP[a5, a6], a1, a3, a4, n] + S2[a2, SP[a5, a6], a1, a4, a3, n] + 
    S2[a2, SP[a5, a6], a4, a1, a3, n] + S2[a4, a1, a3, a6, SP[a2, a5], n] + 
    S2[a4, a1, a3, SP[a5, a6], a2, n] + S2[a4, a1, a5, a2, SP[a3, a6], n] + 
    S2[a4, a1, a5, SP[a2, a3], a6, n] + S2[a4, a1, SP[a3, a5], a2, a6, n] + 
    S2[a4, a1, SP[a3, a5], a6, a2, n] + S2[a4, a5, a1, a2, SP[a3, a6], n] - 
    S2[a2, n]*S2[a4, a5, a1, a3, a6, n] - S2[a4, a5, a1, a3, SP[a2, a6], n] - 
    S2[a2, n]*S2[a4, a5, a1, a6, a3, n] - S2[a4, a5, a1, a6, SP[a2, a3], n] - 
    S2[a4, a5, a1, SP[a2, a6], a3, n] + S2[a4, a5, a2, a1, SP[a3, a6], n] + 
    S2[a4, a5, a2, SP[a1, a6], a3, n] + S2[a4, SP[a1, a5], a2, a3, a6, n] + 
    S2[a4, SP[a1, a5], a2, a6, a3, n] + S2[a4, SP[a1, a5], a3, a2, a6, n] + 
    S2[a4, SP[a1, a5], a3, a6, a2, n] - S2[a4, SP[a2, a5], a1, a3, a6, n] - 
    S2[a4, SP[a2, a5], a1, a6, a3, n] + S2[a4, n]*S2[a5, a1, a6, a2, a3, n] + 
    S2[a5, a1, a6, a2, SP[a3, a4], n] + S2[a4, n]*S2[a5, a1, a6, a3, a2, n] + 
    S2[a5, a1, a6, a3, SP[a2, a4], n] + S2[a5, a1, a6, SP[a2, a4], a3, n] + 
    S2[a5, a1, a6, SP[a3, a4], a2, n] + S2[a5, a1, SP[a4, a6], a2, a3, n] + 
    S2[a5, a1, SP[a4, a6], a3, a2, n] - S2[a4, n]*S2[a5, a2, a6, a1, a3, n] - 
    S2[a5, a2, a6, a1, SP[a3, a4], n] - S2[a5, a2, a6, SP[a1, a4], a3, n] - 
    S2[a5, a2, SP[a4, a6], a1, a3, n] - S2[a2, n]*S2[a5, a4, a1, a6, a3, n] - 
    S2[a5, a4, a1, a6, SP[a2, a3], n] - S2[a5, a4, a1, SP[a2, a6], a3, n] + 
    S2[a1, n]*S2[a5, a4, a2, a6, a3, n] + S2[a5, a4, a2, a6, SP[a1, a3], n] + 
    S2[a5, a4, a2, SP[a1, a6], a3, n] + S2[a5, SP[a1, a4], a2, a6, a3, n] + 
    S2[a5, SP[a1, a4], a6, a2, a3, n] + S2[a5, SP[a1, a4], a6, a3, a2, n] - 
    S2[a5, SP[a2, a4], a1, a6, a3, n] - S2[a5, SP[a2, a4], a6, a1, a3, n] - 
    S2[a2, n]*S2[a6, a1, a3, a4, a5, n] - S2[a6, a1, a3, a4, SP[a2, a5], n] - 
    S2[a6, a1, a3, SP[a2, a4], a5, n] - S2[a2, n]*S2[a6, a1, a4, a3, a5, n] - 
    S2[a6, a1, a4, a3, SP[a2, a5], n] - S2[a2, n]*S2[a6, a1, a4, a5, a3, n] - 
    S2[a6, a1, a4, a5, SP[a2, a3], n] - S2[a6, a1, a4, SP[a2, a3], a5, n] - 
    S2[a6, a1, a4, SP[a2, a5], a3, n] - S2[a6, a1, SP[a2, a3], a4, a5, n] - 
    S2[a6, a1, SP[a2, a4], a3, a5, n] - S2[a6, a1, SP[a2, a4], a5, a3, n] + 
    S2[a1, n]*S2[a6, a2, a3, a4, a5, n] + S2[a6, a2, a3, a4, SP[a1, a5], n] + 
    S2[a6, a2, a3, SP[a1, a4], a5, n] + S2[a1, n]*S2[a6, a2, a4, a3, a5, n] + 
    S2[a6, a2, a4, a3, SP[a1, a5], n] + S2[a1, n]*S2[a6, a2, a4, a5, a3, n] + 
    S2[a6, a2, a4, a5, SP[a1, a3], n] + S2[a6, a2, a4, SP[a1, a3], a5, n] + 
    S2[a6, a2, a4, SP[a1, a5], a3, n] + S2[a6, a2, SP[a1, a3], a4, a5, n] + 
    S2[a6, a2, SP[a1, a4], a3, a5, n] + S2[a6, a2, SP[a1, a4], a5, a3, n] + 
    S2[a1, n]*S2[a6, a3, a2, a4, a5, n] + S2[a6, a3, a2, a4, SP[a1, a5], n] + 
    S2[a6, a3, a2, SP[a1, a4], a5, n] + S2[a6, a3, SP[a1, a2], a4, a5, n] + 
    S2[a6, SP[a1, a3], a2, a4, a5, n] - S2[SP[a1, a5], a4, a6, a2, a3, n] - 
    S2[SP[a1, a5], a4, a6, a3, a2, n] - S2[SP[a1, a5], a6, a2, a3, a4, n] - 
    S2[SP[a1, a5], a6, a2, a4, a3, n] - S2[SP[a1, a5], a6, a3, a2, a4, n] - 
    S2[SP[a1, a5], a6, a3, a4, a2, n] - S2[SP[a1, a5], a6, a4, a2, a3, n] - 
    S2[SP[a1, a5], a6, a4, a3, a2, n] + S2[SP[a1, a6], a2, a3, a4, a5, n] + 
    S2[SP[a1, a6], a2, a4, a3, a5, n] + S2[SP[a1, a6], a2, a4, a5, a3, n] + 
    S2[SP[a1, a6], a3, a2, a4, a5, n] + S2[SP[a1, a6], a3, a4, a2, a5, n] + 
    S2[SP[a1, a6], a3, a4, a5, a2, n] + S2[SP[a1, a6], a4, a2, a3, a5, n] + 
    S2[SP[a1, a6], a4, a2, a5, a3, n] + S2[SP[a1, a6], a4, a3, a2, a5, n] + 
    S2[SP[a1, a6], a4, a3, a5, a2, n] + S2[SP[a1, a6], a4, a5, a2, a3, n] + 
    S2[SP[a1, a6], a4, a5, a3, a2, n] + S2[SP[a2, a5], a4, a6, a1, a3, n] + 
    S2[SP[a2, a5], a6, a1, a3, a4, n] + S2[SP[a2, a5], a6, a1, a4, a3, n] + 
    S2[SP[a2, a5], a6, a4, a1, a3, n] - S2[SP[a2, a6], a1, a3, a4, a5, n] - 
    S2[SP[a2, a6], a1, a4, a3, a5, n] - S2[SP[a2, a6], a1, a4, a5, a3, n] - 
    S2[SP[a2, a6], a4, a1, a3, a5, n] - S2[SP[a2, a6], a4, a1, a5, a3, n] - 
    S2[SP[a2, a6], a4, a5, a1, a3, n] + S2[SP[a4, a5], a1, a6, a2, a3, n] + 
    S2[SP[a4, a5], a1, a6, a3, a2, n] - S2[SP[a4, a5], a2, a6, a1, a3, n] - 
    S2[a6, a2, a3, a1, a4, a5, n] - S2[a6, a2, a3, a4, a1, a5, n] - 
    S2[a6, a2, a3, a4, a5, a1, n] - S2[a6, a2, a4, a3, a1, a5, n] - 
    S2[a6, a2, a4, a3, a5, a1, n] - S2[a6, a2, a4, a5, a3, a1, n] - 
    S2[a6, a3, a1, a2, a4, a5, n] - S2[a6, a3, a2, a1, a4, a5, n] - 
    S2[a6, a3, a2, a4, a1, a5, n] - S2[a6, a3, a2, a4, a5, a1, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a5_, a4_, a3_, a1_, a2_, a6_, n_] :> 
  S2[a1, a2, a6, n]*S2[a3, a4, a5, n] + S2[SP[a1, a3], SP[a2, a4], 
     SP[a5, a6], n] + S2[a4, a5, n]*S2[a1, a2, a3, a6, n] + 
    S2[a4, a5, n]*S2[a1, a2, a6, a3, n] - S2[a1, a2, SP[a3, a4], SP[a5, a6], 
     n] - S2[a1, a2, SP[a4, a6], SP[a3, a5], n] + 
    S2[a4, a5, n]*S2[a1, a3, a2, a6, n] - S2[a2, a6, n]*
     S2[a1, a3, a4, a5, n] - S2[a1, a3, SP[a2, a4], SP[a5, a6], n] - 
    S2[a1, SP[a2, a4], a3, SP[a5, a6], n] - S2[a1, SP[a2, a4], a6, 
     SP[a3, a5], n] - S2[a1, SP[a2, a4], SP[a3, a5], a6, n] - 
    S2[a1, SP[a2, a4], SP[a5, a6], a3, n] - S2[a1, SP[a3, a4], a2, 
     SP[a5, a6], n] - S2[a1, SP[a3, a4], SP[a2, a5], a6, n] - 
    S2[a3, a1, SP[a2, a4], SP[a5, a6], n] - S2[a3, SP[a1, a4], a2, 
     SP[a5, a6], n] - S2[a3, SP[a1, a4], SP[a2, a5], a6, n] + 
    S2[SP[a1, a2], a3, a4, SP[a5, a6], n] + S2[SP[a1, a2], a3, SP[a4, a6], 
     a5, n] + S2[SP[a1, a2], SP[a3, a6], a4, a5, n] - 
    S2[SP[a1, a3], a2, a4, SP[a5, a6], n] - S2[SP[a1, a3], a2, SP[a4, a6], 
     a5, n] - S2[SP[a1, a3], a4, a2, SP[a5, a6], n] - 
    S2[SP[a1, a3], a4, SP[a2, a5], a6, n] - S2[SP[a1, a3], SP[a2, a4], a5, 
     a6, n] - S2[SP[a1, a3], SP[a2, a4], a6, a5, n] - 
    S2[SP[a1, a4], a2, a3, SP[a5, a6], n] - S2[SP[a1, a4], a2, a6, 
     SP[a3, a5], n] - S2[SP[a1, a4], a2, SP[a3, a5], a6, n] - 
    S2[SP[a1, a4], a2, SP[a5, a6], a3, n] - S2[SP[a1, a4], a3, a2, 
     SP[a5, a6], n] - S2[SP[a1, a4], a3, SP[a2, a5], a6, n] - 
    S2[SP[a1, a4], SP[a2, a5], a3, a6, n] - S2[SP[a1, a4], SP[a2, a5], a6, 
     a3, n] - S2[SP[a1, a4], SP[a3, a5], a2, a6, n] - 
    S2[a6, n]*S2[a1, a2, a3, a4, a5, n] + 
    S2[a5, n]*S2[a1, a2, a3, a4, a6, n] + S2[a1, a2, a3, a4, SP[a5, a6], n] - 
    S2[a4, n]*S2[a1, a2, a3, a5, a6, n] - S2[a1, a2, a3, a5, SP[a4, a6], n] + 
    S2[a5, n]*S2[a1, a2, a3, a6, a4, n] - 
    S2[a4, n]*S2[a1, a2, a3, a6, a5, n] - S2[a1, a2, a3, SP[a4, a6], a5, n] + 
    S2[a1, a2, a3, SP[a5, a6], a4, n] + S2[a5, n]*S2[a1, a2, a4, a3, a6, n] + 
    2*S2[a1, a2, a4, a3, SP[a5, a6], n] - 
    S2[a3, n]*S2[a1, a2, a4, a5, a6, n] - S2[a1, a2, a4, a5, SP[a3, a6], n] + 
    S2[a5, n]*S2[a1, a2, a4, a6, a3, n] - 
    S2[a3, n]*S2[a1, a2, a4, a6, a5, n] + S2[a1, a2, a4, a6, SP[a3, a5], n] + 
    S2[a1, a2, a4, SP[a3, a5], a6, n] - S2[a1, a2, a4, SP[a3, a6], a5, n] + 
    2*S2[a1, a2, a4, SP[a5, a6], a3, n] - 
    S2[a4, n]*S2[a1, a2, a5, a3, a6, n] - S2[a1, a2, a5, a3, SP[a4, a6], n] - 
    S2[a4, n]*S2[a1, a2, a5, a6, a3, n] - S2[a1, a2, a5, a6, SP[a3, a4], n] - 
    S2[a1, a2, a5, SP[a3, a4], a6, n] - S2[a1, a2, a5, SP[a4, a6], a3, n] + 
    S2[a5, n]*S2[a1, a2, a6, a3, a4, n] - 
    S2[a4, n]*S2[a1, a2, a6, a3, a5, n] + 
    S2[a5, n]*S2[a1, a2, a6, a4, a3, n] - 
    S2[a3, n]*S2[a1, a2, a6, a4, a5, n] + S2[a1, a2, a6, a4, SP[a3, a5], n] - 
    S2[a4, n]*S2[a1, a2, a6, a5, a3, n] - S2[a1, a2, a6, a5, SP[a3, a4], n] - 
    S2[a1, a2, a6, SP[a3, a4], a5, n] + S2[a1, a2, a6, SP[a3, a5], a4, n] - 
    S2[a1, a2, SP[a3, a4], a5, a6, n] - S2[a1, a2, SP[a3, a4], a6, a5, n] + 
    S2[a1, a2, SP[a3, a5], a4, a6, n] + S2[a1, a2, SP[a3, a5], a6, a4, n] - 
    2*S2[a1, a2, SP[a3, a6], a4, a5, n] + S2[a1, a2, SP[a5, a6], a3, a4, n] + 
    S2[a1, a2, SP[a5, a6], a4, a3, n] - S2[a6, n]*S2[a1, a3, a2, a4, a5, n] + 
    S2[a5, n]*S2[a1, a3, a2, a4, a6, n] + S2[a1, a3, a2, a4, SP[a5, a6], n] - 
    S2[a4, n]*S2[a1, a3, a2, a5, a6, n] - S2[a1, a3, a2, a5, SP[a4, a6], n] + 
    S2[a5, n]*S2[a1, a3, a2, a6, a4, n] - 
    S2[a4, n]*S2[a1, a3, a2, a6, a5, n] - S2[a1, a3, a2, SP[a4, a6], a5, n] + 
    S2[a1, a3, a2, SP[a5, a6], a4, n] - S2[a6, n]*S2[a1, a3, a4, a2, a5, n] + 
    S2[a5, n]*S2[a1, a3, a4, a2, a6, n] + S2[a1, a3, a4, a2, SP[a5, a6], n] - 
    S2[a6, n]*S2[a1, a3, a4, a5, a2, n] + 
    S2[a2, n]*S2[a1, a3, a4, a5, a6, n] + 
    S2[a2, n]*S2[a1, a3, a4, a6, a5, n] + S2[a1, a3, a4, a6, SP[a2, a5], n] + 
    3*S2[a1, a3, a4, SP[a2, a5], a6, n] - S2[a1, a3, a4, SP[a5, a6], a2, n] - 
    S2[a4, n]*S2[a1, a3, a5, a2, a6, n] - S2[a1, a3, a5, a2, SP[a4, a6], n] - 
    S2[a1, a3, a5, SP[a2, a4], a6, n] + S2[a2, n]*S2[a1, a3, a6, a4, a5, n] + 
    S2[a1, a3, a6, a4, SP[a2, a5], n] + S2[a1, a3, a6, SP[a2, a4], a5, n] + 
    S2[a1, a3, SP[a2, a4], a5, a6, n] + S2[a1, a3, SP[a2, a4], a6, a5, n] + 
    S2[a1, a3, SP[a2, a5], a4, a6, n] + S2[a1, a3, SP[a2, a5], a6, a4, n] - 
    S2[a1, a3, SP[a4, a6], a2, a5, n] - S2[a1, a3, SP[a4, a6], a5, a2, n] + 
    S2[a5, n]*S2[a1, a4, a2, a3, a6, n] + 
    2*S2[a1, a4, a2, a3, SP[a5, a6], n] - 
    S2[a3, n]*S2[a1, a4, a2, a5, a6, n] - S2[a1, a4, a2, a5, SP[a3, a6], n] + 
    S2[a5, n]*S2[a1, a4, a2, a6, a3, n] - 
    S2[a3, n]*S2[a1, a4, a2, a6, a5, n] + S2[a1, a4, a2, a6, SP[a3, a5], n] + 
    S2[a1, a4, a2, SP[a3, a5], a6, n] - S2[a1, a4, a2, SP[a3, a6], a5, n] + 
    2*S2[a1, a4, a2, SP[a5, a6], a3, n] + 
    S2[a5, n]*S2[a1, a4, a3, a2, a6, n] + 
    2*S2[a1, a4, a3, a2, SP[a5, a6], n] + 
    2*S2[a1, a4, a3, SP[a2, a5], a6, n] - 
    S2[a3, n]*S2[a1, a4, a5, a2, a6, n] - S2[a1, a4, a5, a2, SP[a3, a6], n] - 
    S2[a1, a4, a5, SP[a2, a3], a6, n] - S2[a1, a4, SP[a2, a3], a5, a6, n] - 
    S2[a1, a4, SP[a2, a3], a6, a5, n] + 2*S2[a1, a4, SP[a2, a5], a3, a6, n] + 
    2*S2[a1, a4, SP[a2, a5], a6, a3, n] + S2[a1, a4, SP[a3, a5], a2, a6, n] - 
    S2[a4, n]*S2[a1, a5, a2, a3, a6, n] - S2[a1, a5, a2, a3, SP[a4, a6], n] - 
    S2[a4, n]*S2[a1, a5, a2, a6, a3, n] - S2[a1, a5, a2, a6, SP[a3, a4], n] - 
    S2[a1, a5, a2, SP[a3, a4], a6, n] - S2[a1, a5, a2, SP[a4, a6], a3, n] - 
    S2[a4, n]*S2[a1, a5, a3, a2, a6, n] - S2[a1, a5, a3, a2, SP[a4, a6], n] - 
    S2[a1, a5, a3, SP[a2, a4], a6, n] - S2[a1, a5, SP[a2, a4], a3, a6, n] - 
    S2[a1, a5, SP[a2, a4], a6, a3, n] - S2[a1, a5, SP[a3, a4], a2, a6, n] + 
    S2[a2, n]*S2[a1, a6, a3, a4, a5, n] + S2[a1, a6, a3, a4, SP[a2, a5], n] + 
    S2[a1, a6, a3, SP[a2, a4], a5, n] + S2[a1, a6, SP[a2, a3], a4, a5, n] + 
    S2[a1, SP[a2, a5], a3, a4, a6, n] + S2[a1, SP[a2, a5], a3, a6, a4, n] + 
    S2[a1, SP[a2, a5], a4, a3, a6, n] + S2[a1, SP[a2, a5], a4, a6, a3, n] + 
    S2[a1, SP[a2, a5], a6, a3, a4, n] + S2[a1, SP[a2, a5], a6, a4, a3, n] - 
    S2[a1, SP[a3, a4], a2, a5, a6, n] - S2[a1, SP[a3, a4], a2, a6, a5, n] - 
    S2[a1, SP[a3, a4], a5, a2, a6, n] + S2[a1, SP[a3, a5], a2, a4, a6, n] + 
    S2[a1, SP[a3, a5], a2, a6, a4, n] + S2[a1, SP[a3, a5], a4, a2, a6, n] - 
    S2[a1, SP[a3, a6], a2, a4, a5, n] - S2[a1, SP[a3, a6], a4, a2, a5, n] - 
    S2[a1, SP[a3, a6], a4, a5, a2, n] - S2[a2, a1, a3, a4, SP[a5, a6], n] - 
    S2[a2, a1, a3, SP[a4, a6], a5, n] - S2[a2, a1, SP[a3, a6], a4, a5, n] - 
    S2[a2, SP[a1, a6], a3, a4, a5, n] + S2[a3, a1, a2, a4, SP[a5, a6], n] + 
    S2[a3, a1, a2, SP[a4, a6], a5, n] + S2[a3, a1, a4, a2, SP[a5, a6], n] + 
    S2[a3, a1, a4, SP[a2, a5], a6, n] + S2[a3, a1, SP[a2, a4], a5, a6, n] + 
    S2[a3, a1, SP[a2, a4], a6, a5, n] - S2[a5, n]*S2[a3, a4, a1, a2, a6, n] + 
    S2[a3, SP[a1, a4], a2, a5, a6, n] + S2[a3, SP[a1, a4], a2, a6, a5, n] + 
    S2[a3, SP[a1, a4], a5, a2, a6, n] - S2[a3, SP[a4, a5], a1, a2, a6, n] + 
    S2[a4, a1, a2, a3, SP[a5, a6], n] + S2[a4, a1, a2, a6, SP[a3, a5], n] + 
    S2[a4, a1, a2, SP[a3, a5], a6, n] + S2[a4, a1, a2, SP[a5, a6], a3, n] + 
    S2[a4, a1, a3, a2, SP[a5, a6], n] + S2[a4, a1, a3, SP[a2, a5], a6, n] + 
    S2[a4, a1, SP[a2, a5], a3, a6, n] + S2[a4, a1, SP[a2, a5], a6, a3, n] + 
    S2[a4, a1, SP[a3, a5], a2, a6, n] + S2[a4, SP[a1, a5], a2, a3, a6, n] + 
    S2[a4, SP[a1, a5], a2, a6, a3, n] + S2[a4, SP[a1, a5], a3, a2, a6, n] - 
    S2[a4, n]*S2[a5, a1, a2, a3, a6, n] - S2[a5, a1, a2, a3, SP[a4, a6], n] - 
    S2[a4, n]*S2[a5, a1, a2, a6, a3, n] - S2[a5, a1, a2, a6, SP[a3, a4], n] - 
    S2[a5, a1, a2, SP[a3, a4], a6, n] - S2[a5, a1, a2, SP[a4, a6], a3, n] - 
    S2[a4, n]*S2[a5, a1, a3, a2, a6, n] - S2[a5, a1, a3, a2, SP[a4, a6], n] - 
    S2[a5, a1, a3, SP[a2, a4], a6, n] - S2[a5, a1, SP[a2, a4], a3, a6, n] - 
    S2[a5, a1, SP[a2, a4], a6, a3, n] - S2[a5, a1, SP[a3, a4], a2, a6, n] + 
    S2[a3, n]*S2[a5, a4, a1, a2, a6, n] + S2[a5, a4, a1, a2, SP[a3, a6], n] + 
    S2[a5, a4, a1, SP[a2, a3], a6, n] + S2[a5, a4, SP[a1, a3], a2, a6, n] - 
    S2[a5, SP[a1, a4], a2, a3, a6, n] - S2[a5, SP[a1, a4], a2, a6, a3, n] - 
    S2[a5, SP[a1, a4], a3, a2, a6, n] + S2[a5, SP[a3, a4], a1, a2, a6, n] + 
    S2[a2, n]*S2[a6, a1, a3, a4, a5, n] + S2[a6, a1, a3, a4, SP[a2, a5], n] + 
    S2[a6, a1, a3, SP[a2, a4], a5, n] + S2[a6, a1, SP[a2, a3], a4, a5, n] + 
    S2[a6, SP[a1, a2], a3, a4, a5, n] + S2[SP[a1, a5], a2, a3, a4, a6, n] + 
    S2[SP[a1, a5], a2, a3, a6, a4, n] + S2[SP[a1, a5], a2, a4, a3, a6, n] + 
    S2[SP[a1, a5], a2, a4, a6, a3, n] + S2[SP[a1, a5], a2, a6, a3, a4, n] + 
    S2[SP[a1, a5], a2, a6, a4, a3, n] + S2[SP[a1, a5], a3, a2, a4, a6, n] + 
    S2[SP[a1, a5], a3, a2, a6, a4, n] + S2[SP[a1, a5], a3, a4, a2, a6, n] + 
    S2[SP[a1, a5], a4, a2, a3, a6, n] + S2[SP[a1, a5], a4, a2, a6, a3, n] + 
    S2[SP[a1, a5], a4, a3, a2, a6, n] - S2[SP[a1, a6], a2, a3, a4, a5, n] - 
    S2[SP[a1, a6], a3, a2, a4, a5, n] - S2[SP[a1, a6], a3, a4, a2, a5, n] - 
    S2[SP[a1, a6], a3, a4, a5, a2, n] + S2[SP[a2, a6], a1, a3, a4, a5, n] - 
    S2[SP[a4, a5], a1, a2, a3, a6, n] - S2[SP[a4, a5], a1, a2, a6, a3, n] - 
    S2[SP[a4, a5], a1, a3, a2, a6, n] - S2[a6, a2, a1, a3, a4, a5, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a5_, a4_, a3_, a1_, a6_, a2_, n_] :> 
  S2[a1, a6, a2, n]*S2[a3, a4, a5, n] + S2[SP[a1, a3], SP[a4, a6], 
     SP[a2, a5], n] + S2[a2, a6, n]*S2[a1, a3, a4, a5, n] + 
    S2[a4, a5, n]*S2[a1, a3, a6, a2, n] - S2[a1, a3, SP[a2, a4], SP[a5, a6], 
     n] - 2*S2[a1, a3, SP[a4, a6], SP[a2, a5], n] + 
    S2[a4, a5, n]*S2[a1, a6, a2, a3, n] + S2[a4, a5, n]*
     S2[a1, a6, a3, a2, n] - S2[a1, a6, SP[a2, a4], SP[a3, a5], n] - 
    S2[a1, a6, SP[a3, a4], SP[a2, a5], n] - S2[a1, SP[a2, a3], a4, 
     SP[a5, a6], n] - S2[a1, SP[a2, a3], SP[a4, a6], a5, n] - 
    S2[a1, SP[a3, a4], a6, SP[a2, a5], n] - S2[a1, SP[a3, a4], SP[a5, a6], 
     a2, n] - S2[a1, SP[a3, a6], a4, SP[a2, a5], n] - 
    S2[a1, SP[a3, a6], SP[a2, a4], a5, n] - S2[a1, SP[a4, a6], a2, 
     SP[a3, a5], n] - S2[a1, SP[a4, a6], a3, SP[a2, a5], n] - 
    S2[a1, SP[a4, a6], SP[a2, a5], a3, n] - S2[a1, SP[a4, a6], SP[a3, a5], 
     a2, n] - S2[a3, a1, SP[a4, a6], SP[a2, a5], n] - 
    S2[a3, SP[a1, a4], a6, SP[a2, a5], n] - S2[a3, SP[a1, a4], SP[a5, a6], 
     a2, n] - S2[SP[a1, a2], a3, a4, SP[a5, a6], n] - 
    S2[SP[a1, a2], a3, SP[a4, a6], a5, n] - S2[SP[a1, a2], SP[a3, a6], a4, 
     a5, n] - S2[SP[a1, a3], a4, a6, SP[a2, a5], n] - 
    S2[SP[a1, a3], a4, SP[a5, a6], a2, n] - S2[SP[a1, a3], a6, a4, 
     SP[a2, a5], n] - S2[SP[a1, a3], a6, SP[a2, a4], a5, n] - 
    S2[SP[a1, a3], SP[a4, a6], a2, a5, n] - S2[SP[a1, a3], SP[a4, a6], a5, 
     a2, n] - S2[SP[a1, a4], a3, a6, SP[a2, a5], n] - 
    S2[SP[a1, a4], a3, SP[a5, a6], a2, n] - S2[SP[a1, a4], a6, a2, 
     SP[a3, a5], n] - S2[SP[a1, a4], a6, a3, SP[a2, a5], n] - 
    S2[SP[a1, a4], a6, SP[a2, a5], a3, n] - S2[SP[a1, a4], a6, SP[a3, a5], 
     a2, n] - S2[SP[a1, a4], SP[a3, a5], a6, a2, n] - 
    S2[SP[a1, a4], SP[a5, a6], a2, a3, n] - S2[SP[a1, a4], SP[a5, a6], a3, 
     a2, n] + S2[a1, a2, a3, a4, SP[a5, a6], n] + S2[a1, a2, a3, SP[a4, a6], 
     a5, n] + S2[a1, a2, SP[a3, a6], a4, a5, n] + 
    S2[a1, a3, a2, a4, SP[a5, a6], n] + S2[a1, a3, a2, SP[a4, a6], a5, n] + 
    S2[a1, a3, a4, a2, SP[a5, a6], n] - S2[a2, n]*S2[a1, a3, a4, a5, a6, n] - 
    S2[a1, a3, a4, a5, SP[a2, a6], n] + S2[a5, n]*S2[a1, a3, a4, a6, a2, n] - 
    S2[a2, n]*S2[a1, a3, a4, a6, a5, n] + 
    2*S2[a1, a3, a4, a6, SP[a2, a5], n] - S2[a1, a3, a4, SP[a2, a6], a5, n] + 
    3*S2[a1, a3, a4, SP[a5, a6], a2, n] - 
    S2[a4, n]*S2[a1, a3, a5, a6, a2, n] - S2[a1, a3, a5, a6, SP[a2, a4], n] - 
    S2[a1, a3, a5, SP[a4, a6], a2, n] + S2[a5, n]*S2[a1, a3, a6, a2, a4, n] - 
    S2[a4, n]*S2[a1, a3, a6, a2, a5, n] + 
    S2[a5, n]*S2[a1, a3, a6, a4, a2, n] - 
    S2[a2, n]*S2[a1, a3, a6, a4, a5, n] + 
    2*S2[a1, a3, a6, a4, SP[a2, a5], n] - 
    S2[a4, n]*S2[a1, a3, a6, a5, a2, n] - S2[a1, a3, a6, a5, SP[a2, a4], n] + 
    S2[a1, a3, a6, SP[a2, a5], a4, n] - S2[a1, a3, SP[a2, a6], a4, a5, n] + 
    S2[a1, a3, SP[a4, a6], a2, a5, n] + S2[a1, a3, SP[a4, a6], a5, a2, n] + 
    S2[a1, a3, SP[a5, a6], a2, a4, n] + S2[a1, a3, SP[a5, a6], a4, a2, n] + 
    S2[a5, n]*S2[a1, a4, a3, a6, a2, n] + 
    2*S2[a1, a4, a3, a6, SP[a2, a5], n] + 
    2*S2[a1, a4, a3, SP[a5, a6], a2, n] - 
    S2[a3, n]*S2[a1, a4, a5, a6, a2, n] - S2[a1, a4, a5, a6, SP[a2, a3], n] - 
    S2[a1, a4, a5, SP[a3, a6], a2, n] + S2[a5, n]*S2[a1, a4, a6, a2, a3, n] - 
    S2[a3, n]*S2[a1, a4, a6, a2, a5, n] + S2[a1, a4, a6, a2, SP[a3, a5], n] + 
    S2[a5, n]*S2[a1, a4, a6, a3, a2, n] + 
    2*S2[a1, a4, a6, a3, SP[a2, a5], n] - 
    S2[a3, n]*S2[a1, a4, a6, a5, a2, n] - S2[a1, a4, a6, a5, SP[a2, a3], n] - 
    S2[a1, a4, a6, SP[a2, a3], a5, n] + 2*S2[a1, a4, a6, SP[a2, a5], a3, n] + 
    S2[a1, a4, a6, SP[a3, a5], a2, n] + S2[a1, a4, SP[a3, a5], a6, a2, n] - 
    S2[a1, a4, SP[a3, a6], a2, a5, n] - S2[a1, a4, SP[a3, a6], a5, a2, n] + 
    2*S2[a1, a4, SP[a5, a6], a2, a3, n] + 
    2*S2[a1, a4, SP[a5, a6], a3, a2, n] - 
    S2[a4, n]*S2[a1, a5, a3, a6, a2, n] - S2[a1, a5, a3, a6, SP[a2, a4], n] - 
    S2[a1, a5, a3, SP[a4, a6], a2, n] - S2[a4, n]*S2[a1, a5, a6, a2, a3, n] - 
    S2[a1, a5, a6, a2, SP[a3, a4], n] - S2[a4, n]*S2[a1, a5, a6, a3, a2, n] - 
    S2[a1, a5, a6, a3, SP[a2, a4], n] - S2[a1, a5, a6, SP[a2, a4], a3, n] - 
    S2[a1, a5, a6, SP[a3, a4], a2, n] - S2[a1, a5, SP[a3, a4], a6, a2, n] - 
    S2[a1, a5, SP[a4, a6], a2, a3, n] - S2[a1, a5, SP[a4, a6], a3, a2, n] + 
    S2[a5, n]*S2[a1, a6, a2, a3, a4, n] - 
    S2[a4, n]*S2[a1, a6, a2, a3, a5, n] + 
    S2[a5, n]*S2[a1, a6, a2, a4, a3, n] - 
    S2[a3, n]*S2[a1, a6, a2, a4, a5, n] + S2[a1, a6, a2, a4, SP[a3, a5], n] - 
    S2[a4, n]*S2[a1, a6, a2, a5, a3, n] - S2[a1, a6, a2, a5, SP[a3, a4], n] - 
    S2[a1, a6, a2, SP[a3, a4], a5, n] + S2[a1, a6, a2, SP[a3, a5], a4, n] + 
    S2[a5, n]*S2[a1, a6, a3, a2, a4, n] - 
    S2[a4, n]*S2[a1, a6, a3, a2, a5, n] + 
    S2[a5, n]*S2[a1, a6, a3, a4, a2, n] - 
    S2[a2, n]*S2[a1, a6, a3, a4, a5, n] + 
    2*S2[a1, a6, a3, a4, SP[a2, a5], n] - 
    S2[a4, n]*S2[a1, a6, a3, a5, a2, n] - S2[a1, a6, a3, a5, SP[a2, a4], n] + 
    S2[a1, a6, a3, SP[a2, a5], a4, n] + S2[a5, n]*S2[a1, a6, a4, a2, a3, n] - 
    S2[a3, n]*S2[a1, a6, a4, a2, a5, n] + S2[a1, a6, a4, a2, SP[a3, a5], n] + 
    S2[a5, n]*S2[a1, a6, a4, a3, a2, n] + 
    2*S2[a1, a6, a4, a3, SP[a2, a5], n] - 
    S2[a3, n]*S2[a1, a6, a4, a5, a2, n] - S2[a1, a6, a4, a5, SP[a2, a3], n] - 
    S2[a1, a6, a4, SP[a2, a3], a5, n] + 2*S2[a1, a6, a4, SP[a2, a5], a3, n] + 
    S2[a1, a6, a4, SP[a3, a5], a2, n] - S2[a4, n]*S2[a1, a6, a5, a2, a3, n] - 
    S2[a1, a6, a5, a2, SP[a3, a4], n] - S2[a4, n]*S2[a1, a6, a5, a3, a2, n] - 
    S2[a1, a6, a5, a3, SP[a2, a4], n] - S2[a1, a6, a5, SP[a2, a4], a3, n] - 
    S2[a1, a6, a5, SP[a3, a4], a2, n] - S2[a1, a6, SP[a2, a3], a4, a5, n] + 
    S2[a1, a6, SP[a2, a5], a3, a4, n] + S2[a1, a6, SP[a2, a5], a4, a3, n] - 
    S2[a1, a6, SP[a3, a4], a2, a5, n] - S2[a1, a6, SP[a3, a4], a5, a2, n] + 
    S2[a1, a6, SP[a3, a5], a2, a4, n] + S2[a1, a6, SP[a3, a5], a4, a2, n] - 
    S2[a1, SP[a2, a6], a3, a4, a5, n] - S2[a1, SP[a3, a4], a5, a6, a2, n] - 
    S2[a1, SP[a3, a4], a6, a2, a5, n] - S2[a1, SP[a3, a4], a6, a5, a2, n] + 
    S2[a1, SP[a3, a5], a4, a6, a2, n] + S2[a1, SP[a3, a5], a6, a2, a4, n] + 
    S2[a1, SP[a3, a5], a6, a4, a2, n] + S2[a1, SP[a5, a6], a2, a3, a4, n] + 
    S2[a1, SP[a5, a6], a2, a4, a3, n] + S2[a1, SP[a5, a6], a3, a2, a4, n] + 
    S2[a1, SP[a5, a6], a3, a4, a2, n] + S2[a1, SP[a5, a6], a4, a2, a3, n] + 
    S2[a1, SP[a5, a6], a4, a3, a2, n] + S2[a2, a1, a3, a4, SP[a5, a6], n] + 
    S2[a2, a1, a3, SP[a4, a6], a5, n] + S2[a2, a1, SP[a3, a6], a4, a5, n] + 
    S2[a2, SP[a1, a6], a3, a4, a5, n] + S2[a3, a1, a4, a6, SP[a2, a5], n] + 
    S2[a3, a1, a4, SP[a5, a6], a2, n] + S2[a3, a1, a6, a4, SP[a2, a5], n] + 
    S2[a3, a1, a6, SP[a2, a4], a5, n] + S2[a3, a1, SP[a4, a6], a2, a5, n] + 
    S2[a3, a1, SP[a4, a6], a5, a2, n] - S2[a5, n]*S2[a3, a4, a1, a6, a2, n] + 
    S2[a3, SP[a1, a4], a5, a6, a2, n] + S2[a3, SP[a1, a4], a6, a2, a5, n] + 
    S2[a3, SP[a1, a4], a6, a5, a2, n] - S2[a3, SP[a4, a5], a1, a6, a2, n] + 
    S2[a4, a1, a3, a6, SP[a2, a5], n] + S2[a4, a1, a3, SP[a5, a6], a2, n] + 
    S2[a4, a1, a6, a2, SP[a3, a5], n] + S2[a4, a1, a6, a3, SP[a2, a5], n] + 
    S2[a4, a1, a6, SP[a2, a5], a3, n] + S2[a4, a1, a6, SP[a3, a5], a2, n] + 
    S2[a4, a1, SP[a3, a5], a6, a2, n] + S2[a4, a1, SP[a5, a6], a2, a3, n] + 
    S2[a4, a1, SP[a5, a6], a3, a2, n] + S2[a4, SP[a1, a5], a3, a6, a2, n] + 
    S2[a4, SP[a1, a5], a6, a2, a3, n] + S2[a4, SP[a1, a5], a6, a3, a2, n] - 
    S2[a4, n]*S2[a5, a1, a3, a6, a2, n] - S2[a5, a1, a3, a6, SP[a2, a4], n] - 
    S2[a5, a1, a3, SP[a4, a6], a2, n] - S2[a4, n]*S2[a5, a1, a6, a2, a3, n] - 
    S2[a5, a1, a6, a2, SP[a3, a4], n] - S2[a4, n]*S2[a5, a1, a6, a3, a2, n] - 
    S2[a5, a1, a6, a3, SP[a2, a4], n] - S2[a5, a1, a6, SP[a2, a4], a3, n] - 
    S2[a5, a1, a6, SP[a3, a4], a2, n] - S2[a5, a1, SP[a3, a4], a6, a2, n] - 
    S2[a5, a1, SP[a4, a6], a2, a3, n] - S2[a5, a1, SP[a4, a6], a3, a2, n] + 
    S2[a3, n]*S2[a5, a4, a1, a6, a2, n] + S2[a5, a4, a1, a6, SP[a2, a3], n] + 
    S2[a5, a4, a1, SP[a3, a6], a2, n] + S2[a5, a4, SP[a1, a3], a6, a2, n] - 
    S2[a5, SP[a1, a4], a3, a6, a2, n] - S2[a5, SP[a1, a4], a6, a2, a3, n] - 
    S2[a5, SP[a1, a4], a6, a3, a2, n] + S2[a5, SP[a3, a4], a1, a6, a2, n] - 
    S2[a2, n]*S2[a6, a1, a3, a4, a5, n] - S2[a6, a1, a3, a4, SP[a2, a5], n] - 
    S2[a6, a1, a3, SP[a2, a4], a5, n] - S2[a6, a1, SP[a2, a3], a4, a5, n] - 
    S2[a6, SP[a1, a2], a3, a4, a5, n] + S2[SP[a1, a5], a3, a4, a6, a2, n] + 
    S2[SP[a1, a5], a3, a6, a2, a4, n] + S2[SP[a1, a5], a3, a6, a4, a2, n] + 
    S2[SP[a1, a5], a4, a3, a6, a2, n] + S2[SP[a1, a5], a4, a6, a2, a3, n] + 
    S2[SP[a1, a5], a4, a6, a3, a2, n] + S2[SP[a1, a5], a6, a2, a3, a4, n] + 
    S2[SP[a1, a5], a6, a2, a4, a3, n] + S2[SP[a1, a5], a6, a3, a2, a4, n] + 
    S2[SP[a1, a5], a6, a3, a4, a2, n] + S2[SP[a1, a5], a6, a4, a2, a3, n] + 
    S2[SP[a1, a5], a6, a4, a3, a2, n] - S2[SP[a2, a6], a1, a3, a4, a5, n] - 
    S2[SP[a4, a5], a1, a3, a6, a2, n] - S2[SP[a4, a5], a1, a6, a2, a3, n] - 
    S2[SP[a4, a5], a1, a6, a3, a2, n] + S2[a6, a1, a2, a3, a4, a5, n] + 
    S2[a6, a1, a3, a2, a4, a5, n] + S2[a6, a1, a3, a4, a2, a5, n] + 
    S2[a6, a1, a3, a4, a5, a2, n] + S2[a6, a2, a1, a3, a4, a5, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a5_, a4_, a3_, a2_, a1_, a6_, n_] :> 
  -(S2[a1, a2, a6, n]*S2[a3, a4, a5, n]) - S2[a1, a6, a2, n]*
     S2[a3, a4, a5, n] - S2[SP[a1, a3], SP[a2, a4], SP[a5, a6], n] - 
    S2[SP[a1, a3], SP[a4, a6], SP[a2, a5], n] - 
    S2[a4, a5, n]*S2[a1, a2, a3, a6, n] - S2[a4, a5, n]*
     S2[a1, a2, a6, a3, n] + S2[a1, a2, SP[a3, a4], SP[a5, a6], n] + 
    S2[a1, a2, SP[a4, a6], SP[a3, a5], n] + S2[a1, a3, SP[a2, a4], 
     SP[a5, a6], n] + S2[a1, a3, SP[a4, a6], SP[a2, a5], n] - 
    S2[a4, a5, n]*S2[a1, a6, a2, a3, n] + S2[a1, a6, SP[a2, a4], SP[a3, a5], 
     n] + S2[a1, SP[a2, a3], a4, SP[a5, a6], n] + 
    S2[a1, SP[a2, a3], SP[a4, a6], a5, n] + S2[a1, SP[a2, a4], a3, 
     SP[a5, a6], n] + S2[a1, SP[a2, a4], a6, SP[a3, a5], n] + 
    S2[a1, SP[a2, a4], SP[a3, a5], a6, n] + S2[a1, SP[a2, a4], SP[a5, a6], 
     a3, n] + S2[a1, SP[a3, a6], a4, SP[a2, a5], n] + 
    S2[a1, SP[a3, a6], SP[a2, a4], a5, n] + S2[a1, SP[a4, a6], a2, 
     SP[a3, a5], n] + S2[a1, SP[a4, a6], SP[a2, a5], a3, n] - 
    S2[a1, a6, n]*S2[a2, a3, a4, a5, n] - S2[a1, a6, n]*
     S2[a2, a3, a5, a4, n] + S2[a2, a3, SP[a1, a4], SP[a5, a6], n] + 
    S2[a2, a3, SP[a1, a5], SP[a4, a6], n] - S2[a1, a6, n]*
     S2[a2, a5, a3, a4, n] - S2[a1, a6, n]*S2[a2, a5, a4, a3, n] + 
    S2[a2, a5, SP[a1, a3], SP[a4, a6], n] + S2[a2, a5, SP[a1, a4], 
     SP[a3, a6], n] + S2[a2, SP[a1, a3], a4, SP[a5, a6], n] + 
    S2[a2, SP[a1, a3], a5, SP[a4, a6], n] + S2[a2, SP[a1, a3], SP[a4, a6], 
     a5, n] + S2[a2, SP[a1, a3], SP[a5, a6], a4, n] + 
    S2[a2, SP[a1, a5], a3, SP[a4, a6], n] + S2[a2, SP[a1, a5], a4, 
     SP[a3, a6], n] + S2[a2, SP[a1, a5], SP[a3, a6], a4, n] + 
    S2[a2, SP[a1, a5], SP[a4, a6], a3, n] + S2[a3, a1, SP[a2, a4], 
     SP[a5, a6], n] + S2[a3, a1, SP[a4, a6], SP[a2, a5], n] + 
    S2[a3, SP[a1, a4], a2, SP[a5, a6], n] + S2[a3, SP[a1, a4], a6, 
     SP[a2, a5], n] + S2[a3, SP[a1, a4], SP[a2, a5], a6, n] + 
    S2[a3, SP[a1, a4], SP[a5, a6], a2, n] + S2[a1, a6, n]*
     S2[a4, a5, a2, a3, n] - S2[a4, a5, SP[a1, a2], SP[a3, a6], n] - 
    S2[a4, SP[a1, a5], a2, SP[a3, a6], n] - S2[a4, SP[a1, a5], SP[a2, a6], 
     a3, n] + S2[SP[a1, a2], a3, a4, SP[a5, a6], n] + 
    S2[SP[a1, a2], a3, a5, SP[a4, a6], n] + S2[SP[a1, a2], a3, SP[a4, a6], 
     a5, n] + S2[SP[a1, a2], a3, SP[a5, a6], a4, n] + 
    S2[SP[a1, a2], a5, a3, SP[a4, a6], n] + S2[SP[a1, a2], a5, a4, 
     SP[a3, a6], n] + S2[SP[a1, a2], a5, SP[a3, a6], a4, n] + 
    S2[SP[a1, a2], a5, SP[a4, a6], a3, n] + S2[SP[a1, a2], SP[a3, a6], a4, 
     a5, n] + S2[SP[a1, a2], SP[a3, a6], a5, a4, n] + 
    S2[SP[a1, a2], SP[a5, a6], a3, a4, n] + S2[SP[a1, a2], SP[a5, a6], a4, 
     a3, n] + S2[SP[a1, a3], a2, a4, SP[a5, a6], n] + 
    S2[SP[a1, a3], a2, SP[a4, a6], a5, n] + S2[SP[a1, a3], a4, a2, 
     SP[a5, a6], n] + S2[SP[a1, a3], a4, a6, SP[a2, a5], n] + 
    S2[SP[a1, a3], a4, SP[a2, a5], a6, n] + S2[SP[a1, a3], a4, SP[a5, a6], 
     a2, n] + S2[SP[a1, a3], a6, a4, SP[a2, a5], n] + 
    S2[SP[a1, a3], a6, SP[a2, a4], a5, n] + S2[SP[a1, a3], SP[a2, a4], a5, 
     a6, n] + S2[SP[a1, a3], SP[a2, a4], a6, a5, n] + 
    S2[SP[a1, a3], SP[a4, a6], a2, a5, n] + S2[SP[a1, a3], SP[a4, a6], a5, 
     a2, n] + S2[SP[a1, a4], a2, a3, SP[a5, a6], n] + 
    S2[SP[a1, a4], a2, a6, SP[a3, a5], n] + S2[SP[a1, a4], a2, SP[a3, a5], 
     a6, n] + S2[SP[a1, a4], a2, SP[a5, a6], a3, n] - 
    S2[SP[a1, a4], a5, a2, SP[a3, a6], n] - S2[SP[a1, a4], a5, SP[a2, a6], 
     a3, n] + S2[SP[a1, a4], a6, a2, SP[a3, a5], n] + 
    S2[SP[a1, a4], a6, SP[a2, a5], a3, n] + S2[SP[a1, a4], SP[a2, a5], a3, 
     a6, n] + S2[SP[a1, a4], SP[a2, a5], a6, a3, n] + 
    S2[a6, n]*S2[a1, a2, a3, a4, a5, n] - 
    S2[a5, n]*S2[a1, a2, a3, a4, a6, n] - 
    3*S2[a1, a2, a3, a4, SP[a5, a6], n] + 
    S2[a4, n]*S2[a1, a2, a3, a5, a6, n] - 
    S2[a5, n]*S2[a1, a2, a3, a6, a4, n] + 
    S2[a4, n]*S2[a1, a2, a3, a6, a5, n] - S2[a1, a2, a3, SP[a4, a6], a5, n] - 
    2*S2[a1, a2, a3, SP[a5, a6], a4, n] - 
    S2[a5, n]*S2[a1, a2, a4, a3, a6, n] - 
    2*S2[a1, a2, a4, a3, SP[a5, a6], n] + 
    S2[a3, n]*S2[a1, a2, a4, a5, a6, n] + S2[a1, a2, a4, a5, SP[a3, a6], n] - 
    S2[a5, n]*S2[a1, a2, a4, a6, a3, n] + 
    S2[a3, n]*S2[a1, a2, a4, a6, a5, n] - S2[a1, a2, a4, a6, SP[a3, a5], n] - 
    S2[a1, a2, a4, SP[a3, a5], a6, n] + S2[a1, a2, a4, SP[a3, a6], a5, n] - 
    2*S2[a1, a2, a4, SP[a5, a6], a3, n] + 
    S2[a4, n]*S2[a1, a2, a5, a3, a6, n] - S2[a1, a2, a5, a4, SP[a3, a6], n] + 
    S2[a4, n]*S2[a1, a2, a5, a6, a3, n] + S2[a1, a2, a5, a6, SP[a3, a4], n] + 
    S2[a1, a2, a5, SP[a3, a4], a6, n] - S2[a1, a2, a5, SP[a3, a6], a4, n] - 
    S2[a5, n]*S2[a1, a2, a6, a3, a4, n] + 
    S2[a4, n]*S2[a1, a2, a6, a3, a5, n] - 
    S2[a5, n]*S2[a1, a2, a6, a4, a3, n] + 
    S2[a3, n]*S2[a1, a2, a6, a4, a5, n] - S2[a1, a2, a6, a4, SP[a3, a5], n] + 
    S2[a4, n]*S2[a1, a2, a6, a5, a3, n] + S2[a1, a2, a6, a5, SP[a3, a4], n] + 
    S2[a1, a2, a6, SP[a3, a4], a5, n] - S2[a1, a2, a6, SP[a3, a5], a4, n] + 
    S2[a1, a2, SP[a3, a4], a5, a6, n] + S2[a1, a2, SP[a3, a4], a6, a5, n] - 
    S2[a1, a2, SP[a3, a5], a4, a6, n] - S2[a1, a2, SP[a3, a5], a6, a4, n] - 
    S2[a1, a2, SP[a3, a6], a5, a4, n] - 2*S2[a1, a2, SP[a5, a6], a3, a4, n] - 
    2*S2[a1, a2, SP[a5, a6], a4, a3, n] - 
    S2[a5, n]*S2[a1, a3, a2, a4, a6, n] - 
    2*S2[a1, a3, a2, a4, SP[a5, a6], n] - 
    S2[a5, n]*S2[a1, a3, a2, a6, a4, n] - S2[a1, a3, a2, a6, SP[a4, a5], n] - 
    S2[a1, a3, a2, SP[a4, a5], a6, n] - S2[a1, a3, a2, SP[a4, a6], a5, n] - 
    S2[a1, a3, a2, SP[a5, a6], a4, n] - S2[a5, n]*S2[a1, a3, a4, a2, a6, n] - 
    2*S2[a1, a3, a4, a2, SP[a5, a6], n] + 
    S2[a2, n]*S2[a1, a3, a4, a5, a6, n] + S2[a1, a3, a4, a5, SP[a2, a6], n] - 
    S2[a5, n]*S2[a1, a3, a4, a6, a2, n] + 
    S2[a2, n]*S2[a1, a3, a4, a6, a5, n] - S2[a1, a3, a4, a6, SP[a2, a5], n] - 
    S2[a1, a3, a4, SP[a2, a5], a6, n] + S2[a1, a3, a4, SP[a2, a6], a5, n] - 
    2*S2[a1, a3, a4, SP[a5, a6], a2, n] + 
    S2[a2, n]*S2[a1, a3, a5, a4, a6, n] + S2[a1, a3, a5, a4, SP[a2, a6], n] + 
    S2[a2, n]*S2[a1, a3, a5, a6, a4, n] + S2[a1, a3, a5, a6, SP[a2, a4], n] + 
    S2[a1, a3, a5, SP[a2, a4], a6, n] + S2[a1, a3, a5, SP[a2, a6], a4, n] - 
    S2[a5, n]*S2[a1, a3, a6, a2, a4, n] - S2[a1, a3, a6, a2, SP[a4, a5], n] - 
    S2[a5, n]*S2[a1, a3, a6, a4, a2, n] + 
    S2[a2, n]*S2[a1, a3, a6, a4, a5, n] - S2[a1, a3, a6, a4, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a3, a6, a5, a4, n] + S2[a1, a3, a6, a5, SP[a2, a4], n] - 
    S2[a1, a3, a6, SP[a4, a5], a2, n] + S2[a1, a3, SP[a2, a6], a4, a5, n] + 
    S2[a1, a3, SP[a2, a6], a5, a4, n] - S2[a1, a3, SP[a4, a5], a2, a6, n] - 
    S2[a1, a3, SP[a4, a5], a6, a2, n] - S2[a1, a3, SP[a4, a6], a2, a5, n] - 
    S2[a1, a3, SP[a4, a6], a5, a2, n] - S2[a1, a3, SP[a5, a6], a2, a4, n] - 
    S2[a1, a3, SP[a5, a6], a4, a2, n] - S2[a5, n]*S2[a1, a4, a2, a3, a6, n] - 
    2*S2[a1, a4, a2, a3, SP[a5, a6], n] + 
    S2[a3, n]*S2[a1, a4, a2, a5, a6, n] + S2[a1, a4, a2, a5, SP[a3, a6], n] - 
    S2[a5, n]*S2[a1, a4, a2, a6, a3, n] + 
    S2[a3, n]*S2[a1, a4, a2, a6, a5, n] - S2[a1, a4, a2, a6, SP[a3, a5], n] - 
    S2[a1, a4, a2, SP[a3, a5], a6, n] + S2[a1, a4, a2, SP[a3, a6], a5, n] - 
    2*S2[a1, a4, a2, SP[a5, a6], a3, n] - 
    S2[a5, n]*S2[a1, a4, a3, a2, a6, n] - S2[a1, a4, a3, a2, SP[a5, a6], n] - 
    S2[a5, n]*S2[a1, a4, a3, a6, a2, n] - S2[a1, a4, a3, a6, SP[a2, a5], n] - 
    S2[a1, a4, a3, SP[a2, a5], a6, n] - S2[a1, a4, a3, SP[a5, a6], a2, n] + 
    S2[a3, n]*S2[a1, a4, a5, a2, a6, n] + 
    2*S2[a1, a4, a5, a2, SP[a3, a6], n] + 
    S2[a3, n]*S2[a1, a4, a5, a6, a2, n] + S2[a1, a4, a5, a6, SP[a2, a3], n] + 
    S2[a1, a4, a5, SP[a2, a3], a6, n] + S2[a1, a4, a5, SP[a2, a6], a3, n] + 
    S2[a1, a4, a5, SP[a3, a6], a2, n] - S2[a5, n]*S2[a1, a4, a6, a2, a3, n] + 
    S2[a3, n]*S2[a1, a4, a6, a2, a5, n] - S2[a1, a4, a6, a2, SP[a3, a5], n] - 
    S2[a5, n]*S2[a1, a4, a6, a3, a2, n] - S2[a1, a4, a6, a3, SP[a2, a5], n] + 
    S2[a3, n]*S2[a1, a4, a6, a5, a2, n] + S2[a1, a4, a6, a5, SP[a2, a3], n] + 
    S2[a1, a4, a6, SP[a2, a3], a5, n] - 2*S2[a1, a4, a6, SP[a2, a5], a3, n] + 
    S2[a1, a4, SP[a2, a3], a5, a6, n] + S2[a1, a4, SP[a2, a3], a6, a5, n] - 
    2*S2[a1, a4, SP[a2, a5], a3, a6, n] - 
    2*S2[a1, a4, SP[a2, a5], a6, a3, n] + S2[a1, a4, SP[a3, a6], a2, a5, n] + 
    S2[a1, a4, SP[a3, a6], a5, a2, n] - S2[a1, a4, SP[a5, a6], a2, a3, n] - 
    S2[a1, a4, SP[a5, a6], a3, a2, n] + S2[a2, n]*S2[a1, a5, a3, a4, a6, n] + 
    S2[a1, a5, a3, a4, SP[a2, a6], n] + S2[a2, n]*S2[a1, a5, a3, a6, a4, n] + 
    S2[a1, a5, a3, a6, SP[a2, a4], n] + S2[a1, a5, a3, SP[a2, a4], a6, n] + 
    S2[a1, a5, a3, SP[a2, a6], a4, n] + S2[a2, n]*S2[a1, a5, a4, a3, a6, n] + 
    S2[a1, a5, a4, a3, SP[a2, a6], n] + S2[a2, n]*S2[a1, a5, a4, a6, a3, n] + 
    S2[a1, a5, a4, a6, SP[a2, a3], n] + S2[a1, a5, a4, SP[a2, a3], a6, n] + 
    S2[a1, a5, a4, SP[a2, a6], a3, n] + S2[a2, n]*S2[a1, a5, a6, a3, a4, n] + 
    S2[a1, a5, a6, a3, SP[a2, a4], n] + S2[a2, n]*S2[a1, a5, a6, a4, a3, n] + 
    S2[a1, a5, a6, a4, SP[a2, a3], n] + S2[a1, a5, a6, SP[a2, a3], a4, n] + 
    S2[a1, a5, a6, SP[a2, a4], a3, n] + S2[a1, a5, SP[a2, a3], a4, a6, n] + 
    S2[a1, a5, SP[a2, a3], a6, a4, n] + S2[a1, a5, SP[a2, a4], a3, a6, n] + 
    S2[a1, a5, SP[a2, a4], a6, a3, n] + S2[a1, a5, SP[a2, a6], a3, a4, n] + 
    S2[a1, a5, SP[a2, a6], a4, a3, n] - S2[a5, n]*S2[a1, a6, a2, a3, a4, n] + 
    S2[a4, n]*S2[a1, a6, a2, a3, a5, n] - 
    S2[a5, n]*S2[a1, a6, a2, a4, a3, n] + 
    S2[a3, n]*S2[a1, a6, a2, a4, a5, n] - S2[a1, a6, a2, a4, SP[a3, a5], n] + 
    S2[a4, n]*S2[a1, a6, a2, a5, a3, n] + S2[a1, a6, a2, a5, SP[a3, a4], n] + 
    S2[a1, a6, a2, SP[a3, a4], a5, n] - S2[a1, a6, a2, SP[a3, a5], a4, n] - 
    S2[a5, n]*S2[a1, a6, a3, a2, a4, n] - S2[a1, a6, a3, a2, SP[a4, a5], n] - 
    S2[a5, n]*S2[a1, a6, a3, a4, a2, n] + 
    S2[a2, n]*S2[a1, a6, a3, a4, a5, n] - S2[a1, a6, a3, a4, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a6, a3, a5, a4, n] + S2[a1, a6, a3, a5, SP[a2, a4], n] - 
    S2[a1, a6, a3, SP[a4, a5], a2, n] - S2[a5, n]*S2[a1, a6, a4, a2, a3, n] + 
    S2[a3, n]*S2[a1, a6, a4, a2, a5, n] - S2[a1, a6, a4, a2, SP[a3, a5], n] - 
    S2[a5, n]*S2[a1, a6, a4, a3, a2, n] - S2[a1, a6, a4, a3, SP[a2, a5], n] + 
    S2[a3, n]*S2[a1, a6, a4, a5, a2, n] + S2[a1, a6, a4, a5, SP[a2, a3], n] + 
    S2[a1, a6, a4, SP[a2, a3], a5, n] - 2*S2[a1, a6, a4, SP[a2, a5], a3, n] + 
    S2[a2, n]*S2[a1, a6, a5, a3, a4, n] + S2[a1, a6, a5, a3, SP[a2, a4], n] + 
    S2[a2, n]*S2[a1, a6, a5, a4, a3, n] + S2[a1, a6, a5, a4, SP[a2, a3], n] + 
    S2[a1, a6, a5, SP[a2, a3], a4, n] + S2[a1, a6, a5, SP[a2, a4], a3, n] + 
    S2[a1, a6, SP[a2, a3], a4, a5, n] + S2[a1, a6, SP[a2, a3], a5, a4, n] + 
    S2[a1, a6, SP[a3, a4], a2, a5, n] + S2[a1, a6, SP[a3, a4], a5, a2, n] - 
    S2[a1, a6, SP[a3, a5], a2, a4, n] - S2[a1, a6, SP[a3, a5], a4, a2, n] - 
    S2[a1, a6, SP[a4, a5], a2, a3, n] - S2[a1, a6, SP[a4, a5], a3, a2, n] + 
    S2[a1, SP[a2, a3], a4, a5, a6, n] + S2[a1, SP[a2, a3], a4, a6, a5, n] + 
    S2[a1, SP[a2, a3], a5, a4, a6, n] + S2[a1, SP[a2, a3], a5, a6, a4, n] + 
    S2[a1, SP[a2, a3], a6, a4, a5, n] + S2[a1, SP[a2, a3], a6, a5, a4, n] + 
    S2[a1, SP[a2, a6], a3, a4, a5, n] + S2[a1, SP[a3, a4], a2, a5, a6, n] + 
    S2[a1, SP[a3, a4], a2, a6, a5, n] + S2[a1, SP[a3, a4], a5, a2, a6, n] + 
    S2[a1, SP[a3, a4], a5, a6, a2, n] + S2[a1, SP[a3, a4], a6, a2, a5, n] + 
    S2[a1, SP[a3, a4], a6, a5, a2, n] - S2[a1, SP[a3, a5], a2, a4, a6, n] - 
    S2[a1, SP[a3, a5], a2, a6, a4, n] - S2[a1, SP[a3, a5], a4, a2, a6, n] - 
    S2[a1, SP[a3, a5], a4, a6, a2, n] - S2[a1, SP[a3, a5], a6, a2, a4, n] - 
    S2[a1, SP[a3, a5], a6, a4, a2, n] - S2[a1, SP[a4, a5], a2, a3, a6, n] - 
    S2[a1, SP[a4, a5], a2, a6, a3, n] - S2[a1, SP[a4, a5], a3, a2, a6, n] - 
    S2[a1, SP[a4, a5], a3, a6, a2, n] - S2[a1, SP[a4, a5], a6, a2, a3, n] - 
    S2[a1, SP[a4, a5], a6, a3, a2, n] - S2[a1, SP[a5, a6], a2, a3, a4, n] - 
    S2[a1, SP[a5, a6], a2, a4, a3, n] - S2[a1, SP[a5, a6], a3, a2, a4, n] - 
    S2[a1, SP[a5, a6], a3, a4, a2, n] - S2[a1, SP[a5, a6], a4, a2, a3, n] - 
    S2[a1, SP[a5, a6], a4, a3, a2, n] - S2[a2, a1, a3, a4, SP[a5, a6], n] - 
    S2[a2, a1, a3, a5, SP[a4, a6], n] - S2[a2, a1, a3, SP[a4, a6], a5, n] - 
    S2[a2, a1, a3, SP[a5, a6], a4, n] - S2[a2, a1, a5, a3, SP[a4, a6], n] - 
    S2[a2, a1, a5, a4, SP[a3, a6], n] - S2[a2, a1, a5, SP[a3, a6], a4, n] - 
    S2[a2, a1, a5, SP[a4, a6], a3, n] - S2[a2, a1, SP[a3, a6], a4, a5, n] - 
    S2[a2, a1, SP[a3, a6], a5, a4, n] - S2[a2, a1, SP[a5, a6], a3, a4, n] - 
    S2[a2, a1, SP[a5, a6], a4, a3, n] + S2[a5, n]*S2[a2, a3, a1, a4, a6, n] - 
    S2[a2, a3, a1, a5, SP[a4, a6], n] + S2[a5, n]*S2[a2, a3, a1, a6, a4, n] + 
    S2[a2, a3, a1, a6, SP[a4, a5], n] + S2[a2, a3, a1, SP[a4, a5], a6, n] - 
    S2[a2, a3, a1, SP[a4, a6], a5, n] + S2[a5, n]*S2[a2, a3, a4, a1, a6, n] - 
    S2[a2, a3, a5, a1, SP[a4, a6], n] - S2[a2, a3, a5, SP[a1, a4], a6, n] - 
    S2[a2, a3, SP[a1, a4], a5, a6, n] - S2[a2, a3, SP[a1, a4], a6, a5, n] + 
    S2[a2, a3, SP[a4, a5], a1, a6, n] + S2[a4, n]*S2[a2, a5, a1, a3, a6, n] - 
    S2[a2, a5, a1, a4, SP[a3, a6], n] + S2[a4, n]*S2[a2, a5, a1, a6, a3, n] + 
    S2[a2, a5, a1, a6, SP[a3, a4], n] + S2[a2, a5, a1, SP[a3, a4], a6, n] - 
    S2[a2, a5, a1, SP[a3, a6], a4, n] - S2[a2, a5, a3, a1, SP[a4, a6], n] - 
    S2[a2, a5, a3, SP[a1, a4], a6, n] - S2[a2, a5, a4, a1, SP[a3, a6], n] - 
    S2[a2, a5, a4, SP[a1, a3], a6, n] - S2[a2, a5, SP[a1, a3], a4, a6, n] - 
    S2[a2, a5, SP[a1, a3], a6, a4, n] - S2[a2, SP[a1, a3], a4, a5, a6, n] - 
    S2[a2, SP[a1, a3], a4, a6, a5, n] - S2[a2, SP[a1, a3], a5, a4, a6, n] - 
    S2[a2, SP[a1, a3], a5, a6, a4, n] - S2[a2, SP[a1, a3], a6, a4, a5, n] - 
    S2[a2, SP[a1, a3], a6, a5, a4, n] - S2[a2, SP[a1, a5], a3, a4, a6, n] - 
    S2[a2, SP[a1, a5], a3, a6, a4, n] - S2[a2, SP[a1, a5], a4, a3, a6, n] - 
    S2[a2, SP[a1, a5], a4, a6, a3, n] - S2[a2, SP[a1, a5], a6, a3, a4, n] - 
    S2[a2, SP[a1, a5], a6, a4, a3, n] + S2[a2, SP[a3, a5], a1, a4, a6, n] + 
    S2[a2, SP[a3, a5], a1, a6, a4, n] + S2[a2, SP[a3, a5], a4, a1, a6, n] + 
    S2[a2, SP[a4, a5], a1, a3, a6, n] + S2[a2, SP[a4, a5], a1, a6, a3, n] - 
    S2[a3, a1, a2, a4, SP[a5, a6], n] - S2[a3, a1, a2, SP[a4, a6], a5, n] - 
    S2[a3, a1, a4, a2, SP[a5, a6], n] - S2[a3, a1, a4, a6, SP[a2, a5], n] - 
    S2[a3, a1, a4, SP[a2, a5], a6, n] - S2[a3, a1, a4, SP[a5, a6], a2, n] - 
    S2[a3, a1, a6, a4, SP[a2, a5], n] - S2[a3, a1, a6, SP[a2, a4], a5, n] - 
    S2[a3, a1, SP[a2, a4], a5, a6, n] - S2[a3, a1, SP[a2, a4], a6, a5, n] - 
    S2[a3, a1, SP[a4, a6], a2, a5, n] - S2[a3, a1, SP[a4, a6], a5, a2, n] + 
    S2[a5, n]*S2[a3, a4, a1, a2, a6, n] + 
    S2[a5, n]*S2[a3, a4, a1, a6, a2, n] - S2[a3, SP[a1, a4], a2, a5, a6, n] - 
    S2[a3, SP[a1, a4], a2, a6, a5, n] - S2[a3, SP[a1, a4], a5, a2, a6, n] - 
    S2[a3, SP[a1, a4], a5, a6, a2, n] - S2[a3, SP[a1, a4], a6, a2, a5, n] - 
    S2[a3, SP[a1, a4], a6, a5, a2, n] + S2[a3, SP[a4, a5], a1, a2, a6, n] + 
    S2[a3, SP[a4, a5], a1, a6, a2, n] - S2[a4, a1, a2, a3, SP[a5, a6], n] - 
    S2[a4, a1, a2, a6, SP[a3, a5], n] - S2[a4, a1, a2, SP[a3, a5], a6, n] - 
    S2[a4, a1, a2, SP[a5, a6], a3, n] + S2[a4, a1, a5, a2, SP[a3, a6], n] + 
    S2[a4, a1, a5, SP[a2, a6], a3, n] - S2[a4, a1, a6, a2, SP[a3, a5], n] - 
    S2[a4, a1, a6, SP[a2, a5], a3, n] - S2[a4, a1, SP[a2, a5], a3, a6, n] - 
    S2[a4, a1, SP[a2, a5], a6, a3, n] + S2[a4, a5, a1, a2, SP[a3, a6], n] - 
    S2[a2, n]*S2[a4, a5, a1, a3, a6, n] - S2[a4, a5, a1, a3, SP[a2, a6], n] - 
    S2[a2, n]*S2[a4, a5, a1, a6, a3, n] - S2[a4, a5, a1, a6, SP[a2, a3], n] - 
    S2[a4, a5, a1, SP[a2, a3], a6, n] + S2[a4, a5, a2, a1, SP[a3, a6], n] + 
    S2[a4, a5, a2, SP[a1, a3], a6, n] - S2[a4, SP[a2, a5], a1, a3, a6, n] - 
    S2[a4, SP[a2, a5], a1, a6, a3, n] + S2[a4, n]*S2[a5, a1, a2, a3, a6, n] + 
    S2[a5, a1, a2, a3, SP[a4, a6], n] + S2[a4, n]*S2[a5, a1, a2, a6, a3, n] + 
    S2[a5, a1, a2, a6, SP[a3, a4], n] + S2[a5, a1, a2, SP[a3, a4], a6, n] + 
    S2[a5, a1, a2, SP[a4, a6], a3, n] + S2[a4, n]*S2[a5, a1, a3, a2, a6, n] + 
    S2[a5, a1, a3, a2, SP[a4, a6], n] + S2[a4, n]*S2[a5, a1, a3, a6, a2, n] + 
    S2[a5, a1, a3, a6, SP[a2, a4], n] + S2[a5, a1, a3, SP[a2, a4], a6, n] + 
    S2[a5, a1, a3, SP[a4, a6], a2, n] + S2[a4, n]*S2[a5, a1, a6, a2, a3, n] + 
    S2[a5, a1, a6, a2, SP[a3, a4], n] + S2[a4, n]*S2[a5, a1, a6, a3, a2, n] + 
    S2[a5, a1, a6, a3, SP[a2, a4], n] + S2[a5, a1, a6, SP[a2, a4], a3, n] + 
    S2[a5, a1, a6, SP[a3, a4], a2, n] + S2[a5, a1, SP[a2, a4], a3, a6, n] + 
    S2[a5, a1, SP[a2, a4], a6, a3, n] + S2[a5, a1, SP[a3, a4], a2, a6, n] + 
    S2[a5, a1, SP[a3, a4], a6, a2, n] + S2[a5, a1, SP[a4, a6], a2, a3, n] + 
    S2[a5, a1, SP[a4, a6], a3, a2, n] - S2[a4, n]*S2[a5, a2, a3, a1, a6, n] - 
    S2[a5, a2, a3, a1, SP[a4, a6], n] - S2[a5, a2, a3, SP[a1, a4], a6, n] - 
    S2[a5, a2, SP[a3, a4], a1, a6, n] - S2[a3, n]*S2[a5, a4, a1, a2, a6, n] - 
    S2[a5, a4, a1, a2, SP[a3, a6], n] - S2[a3, n]*S2[a5, a4, a1, a6, a2, n] - 
    S2[a5, a4, a1, a6, SP[a2, a3], n] - S2[a5, a4, a1, SP[a2, a3], a6, n] - 
    S2[a5, a4, a1, SP[a3, a6], a2, n] + S2[a2, n]*S2[a5, a4, a3, a1, a6, n] + 
    S2[a5, a4, a3, a1, SP[a2, a6], n] + S2[a5, a4, a3, SP[a1, a2], a6, n] - 
    S2[a5, a4, SP[a1, a3], a2, a6, n] - S2[a5, a4, SP[a1, a3], a6, a2, n] + 
    S2[a5, a4, SP[a2, a3], a1, a6, n] + S2[a5, SP[a1, a4], a2, a3, a6, n] + 
    S2[a5, SP[a1, a4], a2, a6, a3, n] + S2[a5, SP[a1, a4], a3, a2, a6, n] + 
    S2[a5, SP[a1, a4], a3, a6, a2, n] + S2[a5, SP[a1, a4], a6, a2, a3, n] + 
    S2[a5, SP[a1, a4], a6, a3, a2, n] - S2[a5, SP[a3, a4], a1, a2, a6, n] - 
    S2[a5, SP[a3, a4], a1, a6, a2, n] - S2[SP[a1, a5], a2, a3, a4, a6, n] - 
    S2[SP[a1, a5], a2, a3, a6, a4, n] - S2[SP[a1, a5], a2, a4, a3, a6, n] - 
    S2[SP[a1, a5], a2, a4, a6, a3, n] - S2[SP[a1, a5], a2, a6, a3, a4, n] - 
    S2[SP[a1, a5], a2, a6, a4, a3, n] - S2[SP[a1, a5], a3, a2, a4, a6, n] - 
    S2[SP[a1, a5], a3, a2, a6, a4, n] - S2[SP[a1, a5], a3, a4, a2, a6, n] - 
    S2[SP[a1, a5], a3, a4, a6, a2, n] - S2[SP[a1, a5], a3, a6, a2, a4, n] - 
    S2[SP[a1, a5], a3, a6, a4, a2, n] - S2[SP[a1, a5], a4, a2, a3, a6, n] - 
    S2[SP[a1, a5], a4, a2, a6, a3, n] - S2[SP[a1, a5], a4, a3, a2, a6, n] - 
    S2[SP[a1, a5], a4, a3, a6, a2, n] - S2[SP[a1, a5], a4, a6, a2, a3, n] - 
    S2[SP[a1, a5], a4, a6, a3, a2, n] - S2[SP[a1, a5], a6, a2, a3, a4, n] - 
    S2[SP[a1, a5], a6, a2, a4, a3, n] - S2[SP[a1, a5], a6, a3, a2, a4, n] - 
    S2[SP[a1, a5], a6, a3, a4, a2, n] - S2[SP[a1, a5], a6, a4, a2, a3, n] - 
    S2[SP[a1, a5], a6, a4, a3, a2, n] + S2[SP[a1, a6], a2, a3, a4, a5, n] + 
    S2[SP[a2, a5], a3, a1, a4, a6, n] + S2[SP[a2, a5], a3, a1, a6, a4, n] + 
    S2[SP[a2, a5], a3, a4, a1, a6, n] + S2[SP[a2, a5], a4, a3, a1, a6, n] + 
    S2[SP[a4, a5], a1, a2, a3, a6, n] + S2[SP[a4, a5], a1, a2, a6, a3, n] + 
    S2[SP[a4, a5], a1, a3, a2, a6, n] + S2[SP[a4, a5], a1, a3, a6, a2, n] + 
    S2[SP[a4, a5], a1, a6, a2, a3, n] + S2[SP[a4, a5], a1, a6, a3, a2, n] - 
    S2[SP[a4, a5], a2, a3, a1, a6, n] - S2[a6, a1, a2, a3, a4, a5, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a5_, a4_, a3_, a2_, a6_, a1_, n_] :> 
  S2[a1, a6, a2, n]*S2[a3, a4, a5, n] + S2[SP[a1, a3], SP[a4, a6], 
     SP[a2, a5], n] - S2[a1, a3, SP[a4, a6], SP[a2, a5], n] + 
    S2[a4, a5, n]*S2[a1, a6, a2, a3, n] - S2[a1, a6, SP[a2, a4], SP[a3, a5], 
     n] - S2[a1, SP[a3, a6], a4, SP[a2, a5], n] - 
    S2[a1, SP[a3, a6], SP[a2, a4], a5, n] - S2[a1, SP[a4, a6], a2, 
     SP[a3, a5], n] - S2[a1, SP[a4, a6], SP[a2, a5], a3, n] + 
    S2[a1, a6, n]*S2[a2, a3, a4, a5, n] + S2[a1, a6, n]*
     S2[a2, a3, a5, a4, n] - S2[a2, a3, SP[a1, a4], SP[a5, a6], n] - 
    S2[a2, a3, SP[a1, a5], SP[a4, a6], n] + S2[a1, a6, n]*
     S2[a2, a5, a3, a4, n] + S2[a1, a6, n]*S2[a2, a5, a4, a3, n] - 
    S2[a2, a5, SP[a1, a3], SP[a4, a6], n] - S2[a2, a5, SP[a1, a4], 
     SP[a3, a6], n] - S2[a2, SP[a1, a3], a4, SP[a5, a6], n] - 
    S2[a2, SP[a1, a3], a5, SP[a4, a6], n] - S2[a2, SP[a1, a3], SP[a4, a6], 
     a5, n] - S2[a2, SP[a1, a3], SP[a5, a6], a4, n] - 
    S2[a2, SP[a1, a5], a3, SP[a4, a6], n] - S2[a2, SP[a1, a5], a4, 
     SP[a3, a6], n] - S2[a2, SP[a1, a5], SP[a3, a6], a4, n] - 
    S2[a2, SP[a1, a5], SP[a4, a6], a3, n] - S2[a3, a1, SP[a4, a6], 
     SP[a2, a5], n] - S2[a3, SP[a1, a4], a6, SP[a2, a5], n] - 
    S2[a3, SP[a1, a4], SP[a5, a6], a2, n] - S2[a1, a6, n]*
     S2[a4, a5, a2, a3, n] + S2[a4, a5, SP[a1, a2], SP[a3, a6], n] + 
    S2[a4, SP[a1, a5], a2, SP[a3, a6], n] + S2[a4, SP[a1, a5], SP[a2, a6], 
     a3, n] - S2[SP[a1, a2], a3, a4, SP[a5, a6], n] - 
    S2[SP[a1, a2], a3, a5, SP[a4, a6], n] - S2[SP[a1, a2], a3, SP[a4, a6], 
     a5, n] - S2[SP[a1, a2], a3, SP[a5, a6], a4, n] - 
    S2[SP[a1, a2], a5, a3, SP[a4, a6], n] - S2[SP[a1, a2], a5, a4, 
     SP[a3, a6], n] - S2[SP[a1, a2], a5, SP[a3, a6], a4, n] - 
    S2[SP[a1, a2], a5, SP[a4, a6], a3, n] - S2[SP[a1, a2], SP[a3, a6], a4, 
     a5, n] - S2[SP[a1, a2], SP[a3, a6], a5, a4, n] - 
    S2[SP[a1, a2], SP[a5, a6], a3, a4, n] - S2[SP[a1, a2], SP[a5, a6], a4, 
     a3, n] - S2[SP[a1, a3], a4, a6, SP[a2, a5], n] - 
    S2[SP[a1, a3], a4, SP[a5, a6], a2, n] - S2[SP[a1, a3], a6, a4, 
     SP[a2, a5], n] - S2[SP[a1, a3], a6, SP[a2, a4], a5, n] - 
    S2[SP[a1, a3], SP[a4, a6], a2, a5, n] - S2[SP[a1, a3], SP[a4, a6], a5, 
     a2, n] + S2[SP[a1, a4], a5, a2, SP[a3, a6], n] + 
    S2[SP[a1, a4], a5, SP[a2, a6], a3, n] - S2[SP[a1, a4], a6, a2, 
     SP[a3, a5], n] - S2[SP[a1, a4], a6, SP[a2, a5], a3, n] + 
    S2[a1, a2, a3, a4, SP[a5, a6], n] + S2[a1, a2, a3, a5, SP[a4, a6], n] + 
    S2[a1, a2, a3, SP[a4, a6], a5, n] + S2[a1, a2, a3, SP[a5, a6], a4, n] + 
    S2[a1, a2, a5, a3, SP[a4, a6], n] + S2[a1, a2, a5, a4, SP[a3, a6], n] + 
    S2[a1, a2, a5, SP[a3, a6], a4, n] + S2[a1, a2, a5, SP[a4, a6], a3, n] + 
    S2[a1, a2, SP[a3, a6], a4, a5, n] + S2[a1, a2, SP[a3, a6], a5, a4, n] + 
    S2[a1, a2, SP[a5, a6], a3, a4, n] + S2[a1, a2, SP[a5, a6], a4, a3, n] + 
    S2[a5, n]*S2[a1, a3, a2, a4, a6, n] + S2[a1, a3, a2, a4, SP[a5, a6], n] + 
    S2[a5, n]*S2[a1, a3, a2, a6, a4, n] + S2[a1, a3, a2, a6, SP[a4, a5], n] + 
    S2[a1, a3, a2, SP[a4, a5], a6, n] + S2[a1, a3, a2, SP[a5, a6], a4, n] + 
    S2[a5, n]*S2[a1, a3, a4, a2, a6, n] + S2[a1, a3, a4, a2, SP[a5, a6], n] - 
    S2[a2, n]*S2[a1, a3, a4, a5, a6, n] - S2[a1, a3, a4, a5, SP[a2, a6], n] + 
    S2[a5, n]*S2[a1, a3, a4, a6, a2, n] - 
    S2[a2, n]*S2[a1, a3, a4, a6, a5, n] + S2[a1, a3, a4, a6, SP[a2, a5], n] - 
    S2[a1, a3, a4, SP[a2, a6], a5, n] + 2*S2[a1, a3, a4, SP[a5, a6], a2, n] - 
    S2[a2, n]*S2[a1, a3, a5, a4, a6, n] - S2[a1, a3, a5, a4, SP[a2, a6], n] - 
    S2[a2, n]*S2[a1, a3, a5, a6, a4, n] - S2[a1, a3, a5, a6, SP[a2, a4], n] - 
    S2[a1, a3, a5, SP[a2, a4], a6, n] - S2[a1, a3, a5, SP[a2, a6], a4, n] + 
    S2[a5, n]*S2[a1, a3, a6, a2, a4, n] + S2[a1, a3, a6, a2, SP[a4, a5], n] + 
    S2[a5, n]*S2[a1, a3, a6, a4, a2, n] - 
    S2[a2, n]*S2[a1, a3, a6, a4, a5, n] + S2[a1, a3, a6, a4, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a3, a6, a5, a4, n] - S2[a1, a3, a6, a5, SP[a2, a4], n] + 
    S2[a1, a3, a6, SP[a4, a5], a2, n] - S2[a1, a3, SP[a2, a4], a5, a6, n] - 
    S2[a1, a3, SP[a2, a4], a6, a5, n] - S2[a1, a3, SP[a2, a6], a4, a5, n] - 
    S2[a1, a3, SP[a2, a6], a5, a4, n] + S2[a1, a3, SP[a4, a5], a2, a6, n] + 
    S2[a1, a3, SP[a4, a5], a6, a2, n] + S2[a1, a3, SP[a4, a6], a2, a5, n] + 
    S2[a1, a3, SP[a4, a6], a5, a2, n] + S2[a1, a3, SP[a5, a6], a2, a4, n] + 
    S2[a1, a3, SP[a5, a6], a4, a2, n] + S2[a5, n]*S2[a1, a4, a3, a6, a2, n] + 
    S2[a1, a4, a3, a6, SP[a2, a5], n] + S2[a1, a4, a3, SP[a5, a6], a2, n] - 
    S2[a1, a4, a5, a2, SP[a3, a6], n] - S2[a3, n]*S2[a1, a4, a5, a6, a2, n] - 
    S2[a1, a4, a5, a6, SP[a2, a3], n] - S2[a1, a4, a5, SP[a2, a6], a3, n] - 
    S2[a1, a4, a5, SP[a3, a6], a2, n] + S2[a5, n]*S2[a1, a4, a6, a2, a3, n] - 
    S2[a3, n]*S2[a1, a4, a6, a2, a5, n] + S2[a1, a4, a6, a2, SP[a3, a5], n] + 
    S2[a5, n]*S2[a1, a4, a6, a3, a2, n] + S2[a1, a4, a6, a3, SP[a2, a5], n] - 
    S2[a3, n]*S2[a1, a4, a6, a5, a2, n] - S2[a1, a4, a6, a5, SP[a2, a3], n] - 
    S2[a1, a4, a6, SP[a2, a3], a5, n] + 2*S2[a1, a4, a6, SP[a2, a5], a3, n] - 
    S2[a1, a4, SP[a3, a6], a2, a5, n] - S2[a1, a4, SP[a3, a6], a5, a2, n] + 
    S2[a1, a4, SP[a5, a6], a2, a3, n] + S2[a1, a4, SP[a5, a6], a3, a2, n] + 
    S2[a4, n]*S2[a1, a5, a2, a3, a6, n] + S2[a1, a5, a2, a3, SP[a4, a6], n] + 
    S2[a4, n]*S2[a1, a5, a2, a6, a3, n] + S2[a1, a5, a2, a6, SP[a3, a4], n] + 
    S2[a1, a5, a2, SP[a3, a4], a6, n] + S2[a1, a5, a2, SP[a4, a6], a3, n] - 
    S2[a2, n]*S2[a1, a5, a3, a4, a6, n] - S2[a1, a5, a3, a4, SP[a2, a6], n] - 
    S2[a2, n]*S2[a1, a5, a3, a6, a4, n] - S2[a1, a5, a3, a6, SP[a2, a4], n] - 
    S2[a1, a5, a3, SP[a2, a4], a6, n] - S2[a1, a5, a3, SP[a2, a6], a4, n] - 
    S2[a2, n]*S2[a1, a5, a4, a3, a6, n] - S2[a1, a5, a4, a3, SP[a2, a6], n] - 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] - S2[a1, a5, a4, a6, SP[a2, a3], n] - 
    S2[a1, a5, a4, SP[a2, a3], a6, n] - S2[a1, a5, a4, SP[a2, a6], a3, n] - 
    S2[a2, n]*S2[a1, a5, a6, a3, a4, n] - S2[a1, a5, a6, a3, SP[a2, a4], n] - 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] - S2[a1, a5, a6, a4, SP[a2, a3], n] - 
    S2[a1, a5, a6, SP[a2, a3], a4, n] - S2[a1, a5, a6, SP[a2, a4], a3, n] - 
    S2[a1, a5, SP[a2, a3], a4, a6, n] - S2[a1, a5, SP[a2, a3], a6, a4, n] - 
    S2[a1, a5, SP[a2, a6], a3, a4, n] - S2[a1, a5, SP[a2, a6], a4, a3, n] + 
    S2[a5, n]*S2[a1, a6, a2, a3, a4, n] - 
    S2[a4, n]*S2[a1, a6, a2, a3, a5, n] + 
    S2[a5, n]*S2[a1, a6, a2, a4, a3, n] - 
    S2[a3, n]*S2[a1, a6, a2, a4, a5, n] + S2[a1, a6, a2, a4, SP[a3, a5], n] - 
    S2[a4, n]*S2[a1, a6, a2, a5, a3, n] - S2[a1, a6, a2, a5, SP[a3, a4], n] - 
    S2[a1, a6, a2, SP[a3, a4], a5, n] + S2[a1, a6, a2, SP[a3, a5], a4, n] + 
    S2[a5, n]*S2[a1, a6, a3, a2, a4, n] + S2[a1, a6, a3, a2, SP[a4, a5], n] + 
    S2[a5, n]*S2[a1, a6, a3, a4, a2, n] - 
    S2[a2, n]*S2[a1, a6, a3, a4, a5, n] + S2[a1, a6, a3, a4, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a6, a3, a5, a4, n] - S2[a1, a6, a3, a5, SP[a2, a4], n] + 
    S2[a1, a6, a3, SP[a4, a5], a2, n] + S2[a5, n]*S2[a1, a6, a4, a2, a3, n] - 
    S2[a3, n]*S2[a1, a6, a4, a2, a5, n] + S2[a1, a6, a4, a2, SP[a3, a5], n] + 
    S2[a5, n]*S2[a1, a6, a4, a3, a2, n] + S2[a1, a6, a4, a3, SP[a2, a5], n] - 
    S2[a3, n]*S2[a1, a6, a4, a5, a2, n] - S2[a1, a6, a4, a5, SP[a2, a3], n] - 
    S2[a1, a6, a4, SP[a2, a3], a5, n] + 2*S2[a1, a6, a4, SP[a2, a5], a3, n] - 
    S2[a2, n]*S2[a1, a6, a5, a3, a4, n] - S2[a1, a6, a5, a3, SP[a2, a4], n] - 
    S2[a2, n]*S2[a1, a6, a5, a4, a3, n] - S2[a1, a6, a5, a4, SP[a2, a3], n] - 
    S2[a1, a6, a5, SP[a2, a3], a4, n] - S2[a1, a6, a5, SP[a2, a4], a3, n] - 
    S2[a1, a6, SP[a2, a3], a4, a5, n] - S2[a1, a6, SP[a2, a3], a5, a4, n] - 
    S2[a1, a6, SP[a3, a4], a2, a5, n] - S2[a1, a6, SP[a3, a4], a5, a2, n] + 
    S2[a1, a6, SP[a3, a5], a2, a4, n] + S2[a1, a6, SP[a3, a5], a4, a2, n] + 
    S2[a1, a6, SP[a4, a5], a2, a3, n] + S2[a1, a6, SP[a4, a5], a3, a2, n] - 
    S2[a1, SP[a2, a3], a4, a5, a6, n] - S2[a1, SP[a2, a3], a4, a6, a5, n] - 
    S2[a1, SP[a2, a3], a5, a4, a6, n] - S2[a1, SP[a2, a3], a5, a6, a4, n] - 
    S2[a1, SP[a2, a3], a6, a4, a5, n] - S2[a1, SP[a2, a3], a6, a5, a4, n] - 
    S2[a1, SP[a2, a5], a3, a4, a6, n] - S2[a1, SP[a2, a5], a3, a6, a4, n] - 
    S2[a1, SP[a2, a5], a4, a3, a6, n] - S2[a1, SP[a2, a5], a4, a6, a3, n] - 
    S2[a1, SP[a2, a5], a6, a3, a4, n] - S2[a1, SP[a2, a5], a6, a4, a3, n] - 
    S2[a1, SP[a3, a4], a5, a6, a2, n] - S2[a1, SP[a3, a4], a6, a2, a5, n] - 
    S2[a1, SP[a3, a4], a6, a5, a2, n] + S2[a1, SP[a3, a5], a2, a4, a6, n] + 
    S2[a1, SP[a3, a5], a2, a6, a4, n] + S2[a1, SP[a3, a5], a4, a2, a6, n] + 
    S2[a1, SP[a3, a5], a4, a6, a2, n] + S2[a1, SP[a3, a5], a6, a2, a4, n] + 
    S2[a1, SP[a3, a5], a6, a4, a2, n] + S2[a1, SP[a4, a5], a2, a3, a6, n] + 
    S2[a1, SP[a4, a5], a2, a6, a3, n] + S2[a1, SP[a4, a5], a3, a6, a2, n] + 
    S2[a1, SP[a4, a5], a6, a2, a3, n] + S2[a1, SP[a4, a5], a6, a3, a2, n] + 
    S2[a1, SP[a5, a6], a2, a3, a4, n] + S2[a1, SP[a5, a6], a2, a4, a3, n] + 
    S2[a1, SP[a5, a6], a3, a2, a4, n] + S2[a1, SP[a5, a6], a3, a4, a2, n] + 
    S2[a1, SP[a5, a6], a4, a2, a3, n] + S2[a1, SP[a5, a6], a4, a3, a2, n] + 
    S2[a2, a1, a3, a4, SP[a5, a6], n] + S2[a2, a1, a3, a5, SP[a4, a6], n] + 
    S2[a2, a1, a3, SP[a4, a6], a5, n] + S2[a2, a1, a3, SP[a5, a6], a4, n] + 
    S2[a2, a1, a5, a3, SP[a4, a6], n] + S2[a2, a1, a5, a4, SP[a3, a6], n] + 
    S2[a2, a1, a5, SP[a3, a6], a4, n] + S2[a2, a1, a5, SP[a4, a6], a3, n] + 
    S2[a2, a1, SP[a3, a6], a4, a5, n] + S2[a2, a1, SP[a3, a6], a5, a4, n] + 
    S2[a2, a1, SP[a5, a6], a3, a4, n] + S2[a2, a1, SP[a5, a6], a4, a3, n] - 
    S2[a5, n]*S2[a2, a3, a1, a4, a6, n] + S2[a2, a3, a1, a5, SP[a4, a6], n] - 
    S2[a5, n]*S2[a2, a3, a1, a6, a4, n] - S2[a2, a3, a1, a6, SP[a4, a5], n] - 
    S2[a2, a3, a1, SP[a4, a5], a6, n] + S2[a2, a3, a1, SP[a4, a6], a5, n] - 
    S2[a5, n]*S2[a2, a3, a4, a1, a6, n] + S2[a2, a3, a5, a1, SP[a4, a6], n] + 
    S2[a2, a3, a5, SP[a1, a4], a6, n] + S2[a2, a3, SP[a1, a4], a5, a6, n] + 
    S2[a2, a3, SP[a1, a4], a6, a5, n] - S2[a2, a3, SP[a4, a5], a1, a6, n] - 
    S2[a4, n]*S2[a2, a5, a1, a3, a6, n] + S2[a2, a5, a1, a4, SP[a3, a6], n] - 
    S2[a4, n]*S2[a2, a5, a1, a6, a3, n] - S2[a2, a5, a1, a6, SP[a3, a4], n] - 
    S2[a2, a5, a1, SP[a3, a4], a6, n] + S2[a2, a5, a1, SP[a3, a6], a4, n] + 
    S2[a2, a5, a3, a1, SP[a4, a6], n] + S2[a2, a5, a3, SP[a1, a4], a6, n] + 
    S2[a2, a5, a4, a1, SP[a3, a6], n] + S2[a2, a5, a4, SP[a1, a3], a6, n] + 
    S2[a2, a5, SP[a1, a3], a4, a6, n] + S2[a2, a5, SP[a1, a3], a6, a4, n] + 
    S2[a2, SP[a1, a3], a4, a5, a6, n] + S2[a2, SP[a1, a3], a4, a6, a5, n] + 
    S2[a2, SP[a1, a3], a5, a4, a6, n] + S2[a2, SP[a1, a3], a5, a6, a4, n] + 
    S2[a2, SP[a1, a3], a6, a4, a5, n] + S2[a2, SP[a1, a3], a6, a5, a4, n] + 
    S2[a2, SP[a1, a5], a3, a4, a6, n] + S2[a2, SP[a1, a5], a3, a6, a4, n] + 
    S2[a2, SP[a1, a5], a4, a3, a6, n] + S2[a2, SP[a1, a5], a4, a6, a3, n] + 
    S2[a2, SP[a1, a5], a6, a3, a4, n] + S2[a2, SP[a1, a5], a6, a4, a3, n] - 
    S2[a2, SP[a3, a5], a1, a4, a6, n] - S2[a2, SP[a3, a5], a1, a6, a4, n] - 
    S2[a2, SP[a3, a5], a4, a1, a6, n] - S2[a2, SP[a4, a5], a1, a3, a6, n] - 
    S2[a2, SP[a4, a5], a1, a6, a3, n] + S2[a3, a1, a4, a6, SP[a2, a5], n] + 
    S2[a3, a1, a4, SP[a5, a6], a2, n] + S2[a3, a1, a6, a4, SP[a2, a5], n] + 
    S2[a3, a1, a6, SP[a2, a4], a5, n] + S2[a3, a1, SP[a4, a6], a2, a5, n] + 
    S2[a3, a1, SP[a4, a6], a5, a2, n] - S2[a5, n]*S2[a3, a4, a1, a6, a2, n] + 
    S2[a3, SP[a1, a4], a5, a6, a2, n] + S2[a3, SP[a1, a4], a6, a2, a5, n] + 
    S2[a3, SP[a1, a4], a6, a5, a2, n] - S2[a3, SP[a4, a5], a1, a6, a2, n] - 
    S2[a4, a1, a5, a2, SP[a3, a6], n] - S2[a4, a1, a5, SP[a2, a6], a3, n] + 
    S2[a4, a1, a6, a2, SP[a3, a5], n] + S2[a4, a1, a6, SP[a2, a5], a3, n] - 
    S2[a4, a5, a1, a2, SP[a3, a6], n] + S2[a2, n]*S2[a4, a5, a1, a3, a6, n] + 
    S2[a4, a5, a1, a3, SP[a2, a6], n] + S2[a2, n]*S2[a4, a5, a1, a6, a3, n] + 
    S2[a4, a5, a1, a6, SP[a2, a3], n] + S2[a4, a5, a1, SP[a2, a3], a6, n] - 
    S2[a4, a5, a2, a1, SP[a3, a6], n] - S2[a4, a5, a2, SP[a1, a3], a6, n] - 
    S2[a4, SP[a1, a5], a2, a3, a6, n] - S2[a4, SP[a1, a5], a2, a6, a3, n] + 
    S2[a4, SP[a2, a5], a1, a3, a6, n] + S2[a4, SP[a2, a5], a1, a6, a3, n] - 
    S2[a4, n]*S2[a5, a1, a3, a2, a6, n] - S2[a5, a1, a3, a2, SP[a4, a6], n] - 
    S2[a4, n]*S2[a5, a1, a3, a6, a2, n] - S2[a5, a1, a3, a6, SP[a2, a4], n] - 
    S2[a5, a1, a3, SP[a2, a4], a6, n] - S2[a5, a1, a3, SP[a4, a6], a2, n] - 
    S2[a4, n]*S2[a5, a1, a6, a2, a3, n] - S2[a5, a1, a6, a2, SP[a3, a4], n] - 
    S2[a4, n]*S2[a5, a1, a6, a3, a2, n] - S2[a5, a1, a6, a3, SP[a2, a4], n] - 
    S2[a5, a1, a6, SP[a2, a4], a3, n] - S2[a5, a1, a6, SP[a3, a4], a2, n] - 
    S2[a5, a1, SP[a3, a4], a2, a6, n] - S2[a5, a1, SP[a3, a4], a6, a2, n] - 
    S2[a5, a1, SP[a4, a6], a2, a3, n] - S2[a5, a1, SP[a4, a6], a3, a2, n] + 
    S2[a4, n]*S2[a5, a2, a3, a1, a6, n] + S2[a5, a2, a3, a1, SP[a4, a6], n] + 
    S2[a5, a2, a3, SP[a1, a4], a6, n] + S2[a5, a2, SP[a3, a4], a1, a6, n] + 
    S2[a3, n]*S2[a5, a4, a1, a6, a2, n] + S2[a5, a4, a1, a6, SP[a2, a3], n] + 
    S2[a5, a4, a1, SP[a3, a6], a2, n] - S2[a2, n]*S2[a5, a4, a3, a1, a6, n] - 
    S2[a5, a4, a3, a1, SP[a2, a6], n] + S2[a1, n]*S2[a5, a4, a3, a2, a6, n] + 
    S2[a5, a4, a3, a2, SP[a1, a6], n] + S2[a5, a4, SP[a1, a3], a2, a6, n] + 
    S2[a5, a4, SP[a1, a3], a6, a2, n] - S2[a5, a4, SP[a2, a3], a1, a6, n] - 
    S2[a5, SP[a1, a4], a3, a6, a2, n] - S2[a5, SP[a1, a4], a6, a2, a3, n] - 
    S2[a5, SP[a1, a4], a6, a3, a2, n] + S2[a5, SP[a3, a4], a1, a6, a2, n] - 
    S2[a1, n]*S2[a6, a2, a3, a4, a5, n] - S2[a6, a2, a3, a4, SP[a1, a5], n] - 
    S2[a6, a2, a3, SP[a1, a4], a5, n] - S2[a6, a2, SP[a1, a3], a4, a5, n] - 
    S2[a6, SP[a1, a2], a3, a4, a5, n] + S2[SP[a1, a5], a3, a2, a4, a6, n] + 
    S2[SP[a1, a5], a3, a2, a6, a4, n] + S2[SP[a1, a5], a3, a4, a2, a6, n] + 
    S2[SP[a1, a5], a3, a4, a6, a2, n] + S2[SP[a1, a5], a3, a6, a2, a4, n] + 
    S2[SP[a1, a5], a3, a6, a4, a2, n] + S2[SP[a1, a5], a4, a3, a2, a6, n] + 
    S2[SP[a1, a5], a4, a3, a6, a2, n] + S2[SP[a1, a5], a4, a6, a2, a3, n] + 
    S2[SP[a1, a5], a4, a6, a3, a2, n] + S2[SP[a1, a5], a6, a2, a3, a4, n] + 
    S2[SP[a1, a5], a6, a2, a4, a3, n] + S2[SP[a1, a5], a6, a3, a2, a4, n] + 
    S2[SP[a1, a5], a6, a3, a4, a2, n] + S2[SP[a1, a5], a6, a4, a2, a3, n] + 
    S2[SP[a1, a5], a6, a4, a3, a2, n] - S2[SP[a1, a6], a2, a3, a4, a5, n] - 
    S2[SP[a2, a5], a3, a1, a4, a6, n] - S2[SP[a2, a5], a3, a1, a6, a4, n] - 
    S2[SP[a2, a5], a3, a4, a1, a6, n] - S2[SP[a2, a5], a4, a3, a1, a6, n] - 
    S2[SP[a4, a5], a1, a3, a2, a6, n] - S2[SP[a4, a5], a1, a3, a6, a2, n] - 
    S2[SP[a4, a5], a1, a6, a2, a3, n] - S2[SP[a4, a5], a1, a6, a3, a2, n] + 
    S2[SP[a4, a5], a2, a3, a1, a6, n] + S2[a6, a1, a2, a3, a4, a5, n] + 
    S2[a6, a2, a1, a3, a4, a5, n] + S2[a6, a2, a3, a1, a4, a5, n] + 
    S2[a6, a2, a3, a4, a1, a5, n] + S2[a6, a2, a3, a4, a5, a1, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a5_, a4_, a3_, a6_, a1_, a2_, n_] :> 
  -(S2[a1, a2, a6, n]*S2[a3, a4, a5, n]) - S2[a1, a6, a2, n]*
     S2[a3, a4, a5, n] - S2[SP[a1, a3], SP[a2, a4], SP[a5, a6], n] - 
    S2[SP[a1, a3], SP[a4, a6], SP[a2, a5], n] - 
    S2[a4, a5, n]*S2[a1, a2, a6, a3, n] + S2[a1, a2, SP[a4, a6], SP[a3, a5], 
     n] + S2[a1, a3, SP[a2, a4], SP[a5, a6], n] + S2[a1, a3, SP[a4, a6], 
     SP[a2, a5], n] - S2[a4, a5, n]*S2[a1, a6, a2, a3, n] - 
    S2[a4, a5, n]*S2[a1, a6, a3, a2, n] + S2[a1, a6, SP[a2, a4], SP[a3, a5], 
     n] + S2[a1, a6, SP[a3, a4], SP[a2, a5], n] + S2[a1, SP[a2, a3], a4, 
     SP[a5, a6], n] + S2[a1, SP[a2, a3], SP[a4, a6], a5, n] + 
    S2[a1, SP[a2, a4], a6, SP[a3, a5], n] + S2[a1, SP[a2, a4], SP[a5, a6], 
     a3, n] + S2[a1, SP[a3, a6], a4, SP[a2, a5], n] + 
    S2[a1, SP[a3, a6], SP[a2, a4], a5, n] + S2[a1, SP[a4, a6], a2, 
     SP[a3, a5], n] + S2[a1, SP[a4, a6], a3, SP[a2, a5], n] + 
    S2[a1, SP[a4, a6], SP[a2, a5], a3, n] + S2[a1, SP[a4, a6], SP[a3, a5], 
     a2, n] + S2[a3, a1, SP[a2, a4], SP[a5, a6], n] + 
    S2[a3, a1, SP[a4, a6], SP[a2, a5], n] + S2[a1, a2, n]*
     S2[a3, a5, a4, a6, n] + S2[a1, a2, n]*S2[a3, a5, a6, a4, n] - 
    S2[a3, a5, SP[a1, a4], SP[a2, a6], n] - S2[a3, a5, SP[a1, a6], 
     SP[a2, a4], n] + S2[a1, a2, n]*S2[a3, a6, a5, a4, n] - 
    S2[a3, a6, SP[a1, a5], SP[a2, a4], n] + S2[a3, SP[a1, a4], a2, 
     SP[a5, a6], n] + S2[a3, SP[a1, a4], a6, SP[a2, a5], n] + 
    S2[a3, SP[a1, a4], SP[a2, a5], a6, n] + S2[a3, SP[a1, a4], SP[a5, a6], 
     a2, n] - S2[a3, SP[a1, a5], a4, SP[a2, a6], n] - 
    S2[a3, SP[a1, a5], a6, SP[a2, a4], n] - S2[a3, SP[a1, a5], SP[a2, a4], 
     a6, n] - S2[a3, SP[a1, a5], SP[a2, a6], a4, n] - 
    S2[a3, SP[a1, a6], a5, SP[a2, a4], n] - S2[a3, SP[a1, a6], SP[a2, a5], 
     a4, n] - S2[a1, a2, n]*S2[a4, a5, a3, a6, n] + 
    S2[a4, a5, SP[a1, a3], SP[a2, a6], n] + S2[a4, SP[a1, a5], a3, 
     SP[a2, a6], n] + S2[a4, SP[a1, a5], SP[a2, a3], a6, n] + 
    S2[SP[a1, a3], a2, a4, SP[a5, a6], n] + S2[SP[a1, a3], a2, SP[a4, a6], 
     a5, n] + S2[SP[a1, a3], a4, a2, SP[a5, a6], n] + 
    S2[SP[a1, a3], a4, a6, SP[a2, a5], n] + S2[SP[a1, a3], a4, SP[a2, a5], 
     a6, n] + S2[SP[a1, a3], a4, SP[a5, a6], a2, n] - 
    S2[SP[a1, a3], a5, a4, SP[a2, a6], n] - S2[SP[a1, a3], a5, a6, 
     SP[a2, a4], n] - S2[SP[a1, a3], a5, SP[a2, a4], a6, n] - 
    S2[SP[a1, a3], a5, SP[a2, a6], a4, n] + S2[SP[a1, a3], a6, a4, 
     SP[a2, a5], n] - S2[SP[a1, a3], a6, a5, SP[a2, a4], n] + 
    S2[SP[a1, a3], a6, SP[a2, a4], a5, n] - S2[SP[a1, a3], a6, SP[a2, a5], 
     a4, n] + S2[SP[a1, a3], SP[a2, a4], a5, a6, n] + 
    S2[SP[a1, a3], SP[a2, a4], a6, a5, n] - S2[SP[a1, a3], SP[a2, a5], a4, 
     a6, n] - S2[SP[a1, a3], SP[a2, a5], a6, a4, n] - 
    S2[SP[a1, a3], SP[a2, a6], a5, a4, n] + S2[SP[a1, a3], SP[a4, a6], a2, 
     a5, n] + S2[SP[a1, a3], SP[a4, a6], a5, a2, n] + 
    S2[SP[a1, a4], a2, a6, SP[a3, a5], n] + S2[SP[a1, a4], a2, SP[a5, a6], 
     a3, n] + S2[SP[a1, a4], a5, a3, SP[a2, a6], n] + 
    S2[SP[a1, a4], a5, SP[a2, a3], a6, n] + S2[SP[a1, a4], a6, a2, 
     SP[a3, a5], n] + S2[SP[a1, a4], a6, a3, SP[a2, a5], n] + 
    S2[SP[a1, a4], a6, SP[a2, a5], a3, n] + S2[SP[a1, a4], a6, SP[a3, a5], 
     a2, n] + S2[SP[a1, a4], SP[a2, a5], a3, a6, n] + 
    S2[SP[a1, a4], SP[a2, a5], a6, a3, n] + S2[SP[a1, a4], SP[a5, a6], a2, 
     a3, n] + S2[SP[a1, a4], SP[a5, a6], a3, a2, n] - 
    S2[a1, a2, a3, a4, SP[a5, a6], n] - S2[a1, a2, a3, SP[a4, a6], a5, n] - 
    S2[a6, n]*S2[a1, a2, a4, a3, a5, n] - S2[a1, a2, a4, a3, SP[a5, a6], n] - 
    S2[a6, n]*S2[a1, a2, a4, a5, a3, n] + 
    S2[a3, n]*S2[a1, a2, a4, a5, a6, n] + 
    S2[a3, n]*S2[a1, a2, a4, a6, a5, n] + S2[a1, a2, a4, SP[a3, a5], a6, n] - 
    2*S2[a1, a2, a4, SP[a5, a6], a3, n] + 
    S2[a4, n]*S2[a1, a2, a5, a3, a6, n] + S2[a1, a2, a5, a3, SP[a4, a6], n] - 
    S2[a3, n]*S2[a1, a2, a5, a4, a6, n] - S2[a1, a2, a5, a4, SP[a3, a6], n] + 
    S2[a4, n]*S2[a1, a2, a5, a6, a3, n] - 
    S2[a3, n]*S2[a1, a2, a5, a6, a4, n] - S2[a1, a2, a5, SP[a3, a6], a4, n] + 
    S2[a1, a2, a5, SP[a4, a6], a3, n] + S2[a4, n]*S2[a1, a2, a6, a3, a5, n] + 
    S2[a1, a2, a6, a3, SP[a4, a5], n] + S2[a3, n]*S2[a1, a2, a6, a4, a5, n] + 
    S2[a4, n]*S2[a1, a2, a6, a5, a3, n] - 
    S2[a3, n]*S2[a1, a2, a6, a5, a4, n] + S2[a1, a2, a6, SP[a3, a4], a5, n] - 
    S2[a1, a2, a6, SP[a3, a5], a4, n] + S2[a1, a2, a6, SP[a4, a5], a3, n] + 
    S2[a1, a2, SP[a3, a4], a5, a6, n] + S2[a1, a2, SP[a3, a4], a6, a5, n] - 
    S2[a1, a2, SP[a3, a5], a4, a6, n] - S2[a1, a2, SP[a3, a5], a6, a4, n] - 
    S2[a1, a2, SP[a3, a6], a5, a4, n] + S2[a1, a2, SP[a4, a5], a3, a6, n] + 
    S2[a1, a2, SP[a4, a5], a6, a3, n] - S2[a1, a2, SP[a4, a6], a3, a5, n] - 
    S2[a1, a2, SP[a4, a6], a5, a3, n] - S2[a1, a3, a2, a4, SP[a5, a6], n] - 
    S2[a1, a3, a2, SP[a4, a6], a5, n] - S2[a1, a3, a4, a2, SP[a5, a6], n] - 
    S2[a1, a3, a4, a6, SP[a2, a5], n] - S2[a1, a3, a4, SP[a2, a5], a6, n] - 
    S2[a1, a3, a4, SP[a5, a6], a2, n] + S2[a1, a3, a5, a4, SP[a2, a6], n] + 
    S2[a1, a3, a5, a6, SP[a2, a4], n] + S2[a1, a3, a5, SP[a2, a4], a6, n] + 
    S2[a1, a3, a5, SP[a2, a6], a4, n] - S2[a1, a3, a6, a4, SP[a2, a5], n] + 
    S2[a1, a3, a6, a5, SP[a2, a4], n] - S2[a1, a3, a6, SP[a2, a4], a5, n] + 
    S2[a1, a3, a6, SP[a2, a5], a4, n] - S2[a1, a3, SP[a2, a4], a5, a6, n] - 
    S2[a1, a3, SP[a2, a4], a6, a5, n] + S2[a1, a3, SP[a2, a5], a4, a6, n] + 
    S2[a1, a3, SP[a2, a5], a6, a4, n] + S2[a1, a3, SP[a2, a6], a5, a4, n] - 
    S2[a1, a3, SP[a4, a6], a2, a5, n] - S2[a1, a3, SP[a4, a6], a5, a2, n] - 
    S2[a6, n]*S2[a1, a4, a2, a3, a5, n] - S2[a1, a4, a2, a3, SP[a5, a6], n] - 
    S2[a6, n]*S2[a1, a4, a2, a5, a3, n] + 
    S2[a3, n]*S2[a1, a4, a2, a5, a6, n] + 
    S2[a3, n]*S2[a1, a4, a2, a6, a5, n] + S2[a1, a4, a2, SP[a3, a5], a6, n] - 
    2*S2[a1, a4, a2, SP[a5, a6], a3, n] - 
    S2[a6, n]*S2[a1, a4, a3, a2, a5, n] - S2[a1, a4, a3, a2, SP[a5, a6], n] - 
    S2[a6, n]*S2[a1, a4, a3, a5, a2, n] - S2[a1, a4, a3, a5, SP[a2, a6], n] - 
    S2[a1, a4, a3, SP[a2, a6], a5, n] - S2[a1, a4, a3, SP[a5, a6], a2, n] - 
    S2[a6, n]*S2[a1, a4, a5, a2, a3, n] + 
    S2[a3, n]*S2[a1, a4, a5, a2, a6, n] - 
    S2[a6, n]*S2[a1, a4, a5, a3, a2, n] - 
    2*S2[a1, a4, a5, a3, SP[a2, a6], n] + 
    S2[a3, n]*S2[a1, a4, a5, a6, a2, n] + S2[a1, a4, a5, a6, SP[a2, a3], n] - 
    S2[a1, a4, a5, SP[a2, a6], a3, n] + S2[a3, n]*S2[a1, a4, a6, a2, a5, n] - 
    S2[a1, a4, a6, a3, SP[a2, a5], n] + S2[a3, n]*S2[a1, a4, a6, a5, a2, n] + 
    S2[a1, a4, a6, a5, SP[a2, a3], n] + S2[a1, a4, a6, SP[a2, a3], a5, n] - 
    S2[a1, a4, a6, SP[a2, a5], a3, n] + S2[a1, a4, SP[a2, a3], a5, a6, n] + 
    S2[a1, a4, SP[a2, a3], a6, a5, n] - S2[a1, a4, SP[a2, a5], a3, a6, n] - 
    S2[a1, a4, SP[a2, a5], a6, a3, n] - S2[a1, a4, SP[a2, a6], a3, a5, n] - 
    S2[a1, a4, SP[a2, a6], a5, a3, n] + S2[a1, a4, SP[a3, a5], a2, a6, n] + 
    S2[a1, a4, SP[a3, a5], a6, a2, n] - 2*S2[a1, a4, SP[a5, a6], a2, a3, n] - 
    2*S2[a1, a4, SP[a5, a6], a3, a2, n] + 
    S2[a4, n]*S2[a1, a5, a2, a3, a6, n] + S2[a1, a5, a2, a3, SP[a4, a6], n] - 
    S2[a3, n]*S2[a1, a5, a2, a4, a6, n] - S2[a1, a5, a2, a4, SP[a3, a6], n] + 
    S2[a4, n]*S2[a1, a5, a2, a6, a3, n] - 
    S2[a3, n]*S2[a1, a5, a2, a6, a4, n] - S2[a1, a5, a2, SP[a3, a6], a4, n] + 
    S2[a1, a5, a2, SP[a4, a6], a3, n] + S2[a4, n]*S2[a1, a5, a3, a2, a6, n] + 
    S2[a1, a5, a3, a2, SP[a4, a6], n] + S2[a4, n]*S2[a1, a5, a3, a6, a2, n] + 
    S2[a1, a5, a3, a6, SP[a2, a4], n] + S2[a1, a5, a3, SP[a2, a4], a6, n] + 
    S2[a1, a5, a3, SP[a4, a6], a2, n] - S2[a3, n]*S2[a1, a5, a4, a2, a6, n] - 
    S2[a1, a5, a4, a2, SP[a3, a6], n] - S2[a3, n]*S2[a1, a5, a4, a6, a2, n] - 
    S2[a1, a5, a4, a6, SP[a2, a3], n] - S2[a1, a5, a4, SP[a2, a3], a6, n] - 
    S2[a1, a5, a4, SP[a3, a6], a2, n] + S2[a4, n]*S2[a1, a5, a6, a2, a3, n] - 
    S2[a3, n]*S2[a1, a5, a6, a2, a4, n] + 
    S2[a4, n]*S2[a1, a5, a6, a3, a2, n] + S2[a1, a5, a6, a3, SP[a2, a4], n] - 
    S2[a3, n]*S2[a1, a5, a6, a4, a2, n] - S2[a1, a5, a6, a4, SP[a2, a3], n] - 
    S2[a1, a5, a6, SP[a2, a3], a4, n] + S2[a1, a5, a6, SP[a2, a4], a3, n] - 
    S2[a1, a5, SP[a2, a3], a4, a6, n] - S2[a1, a5, SP[a2, a3], a6, a4, n] + 
    S2[a1, a5, SP[a2, a4], a3, a6, n] + S2[a1, a5, SP[a2, a4], a6, a3, n] - 
    S2[a1, a5, SP[a3, a6], a2, a4, n] - S2[a1, a5, SP[a3, a6], a4, a2, n] + 
    S2[a1, a5, SP[a4, a6], a2, a3, n] + S2[a1, a5, SP[a4, a6], a3, a2, n] + 
    S2[a4, n]*S2[a1, a6, a2, a3, a5, n] + S2[a1, a6, a2, a3, SP[a4, a5], n] + 
    S2[a3, n]*S2[a1, a6, a2, a4, a5, n] + 
    S2[a4, n]*S2[a1, a6, a2, a5, a3, n] - 
    S2[a3, n]*S2[a1, a6, a2, a5, a4, n] + S2[a1, a6, a2, SP[a3, a4], a5, n] - 
    S2[a1, a6, a2, SP[a3, a5], a4, n] + S2[a1, a6, a2, SP[a4, a5], a3, n] + 
    S2[a4, n]*S2[a1, a6, a3, a2, a5, n] + S2[a1, a6, a3, a2, SP[a4, a5], n] - 
    2*S2[a1, a6, a3, a4, SP[a2, a5], n] + 
    S2[a4, n]*S2[a1, a6, a3, a5, a2, n] + S2[a1, a6, a3, a5, SP[a2, a4], n] - 
    S2[a1, a6, a3, SP[a2, a4], a5, n] + S2[a1, a6, a3, SP[a4, a5], a2, n] + 
    S2[a3, n]*S2[a1, a6, a4, a2, a5, n] - S2[a1, a6, a4, a3, SP[a2, a5], n] + 
    S2[a3, n]*S2[a1, a6, a4, a5, a2, n] + S2[a1, a6, a4, a5, SP[a2, a3], n] + 
    S2[a1, a6, a4, SP[a2, a3], a5, n] - S2[a1, a6, a4, SP[a2, a5], a3, n] + 
    S2[a4, n]*S2[a1, a6, a5, a2, a3, n] - 
    S2[a3, n]*S2[a1, a6, a5, a2, a4, n] + 
    S2[a4, n]*S2[a1, a6, a5, a3, a2, n] + S2[a1, a6, a5, a3, SP[a2, a4], n] - 
    S2[a3, n]*S2[a1, a6, a5, a4, a2, n] - S2[a1, a6, a5, a4, SP[a2, a3], n] - 
    S2[a1, a6, a5, SP[a2, a3], a4, n] + S2[a1, a6, a5, SP[a2, a4], a3, n] - 
    S2[a1, a6, SP[a2, a3], a5, a4, n] + S2[a1, a6, SP[a3, a4], a2, a5, n] + 
    S2[a1, a6, SP[a3, a4], a5, a2, n] - S2[a1, a6, SP[a3, a5], a2, a4, n] - 
    S2[a1, a6, SP[a3, a5], a4, a2, n] + S2[a1, a6, SP[a4, a5], a2, a3, n] + 
    S2[a1, a6, SP[a4, a5], a3, a2, n] - S2[a1, SP[a2, a6], a4, a3, a5, n] - 
    S2[a1, SP[a2, a6], a4, a5, a3, n] + S2[a1, SP[a3, a4], a2, a5, a6, n] + 
    S2[a1, SP[a3, a4], a2, a6, a5, n] + S2[a1, SP[a3, a4], a5, a2, a6, n] + 
    S2[a1, SP[a3, a4], a5, a6, a2, n] + S2[a1, SP[a3, a4], a6, a2, a5, n] + 
    S2[a1, SP[a3, a4], a6, a5, a2, n] - S2[a1, SP[a3, a5], a2, a4, a6, n] - 
    S2[a1, SP[a3, a5], a2, a6, a4, n] - S2[a1, SP[a3, a5], a4, a2, a6, n] - 
    S2[a1, SP[a3, a5], a4, a6, a2, n] - S2[a1, SP[a3, a5], a6, a2, a4, n] - 
    S2[a1, SP[a3, a5], a6, a4, a2, n] - S2[a1, SP[a3, a6], a2, a5, a4, n] - 
    S2[a1, SP[a3, a6], a5, a2, a4, n] - S2[a1, SP[a3, a6], a5, a4, a2, n] + 
    S2[a1, SP[a4, a5], a2, a3, a6, n] + S2[a1, SP[a4, a5], a2, a6, a3, n] + 
    S2[a1, SP[a4, a5], a3, a2, a6, n] + S2[a1, SP[a4, a5], a3, a6, a2, n] + 
    S2[a1, SP[a4, a5], a6, a2, a3, n] + S2[a1, SP[a4, a5], a6, a3, a2, n] - 
    S2[a1, SP[a4, a6], a2, a3, a5, n] - S2[a1, SP[a4, a6], a2, a5, a3, n] - 
    S2[a1, SP[a4, a6], a3, a2, a5, n] - S2[a1, SP[a4, a6], a3, a5, a2, n] - 
    S2[a1, SP[a4, a6], a5, a2, a3, n] - S2[a1, SP[a4, a6], a5, a3, a2, n] - 
    S2[a3, a1, a2, a4, SP[a5, a6], n] - S2[a3, a1, a2, SP[a4, a6], a5, n] - 
    S2[a3, a1, a4, a2, SP[a5, a6], n] - S2[a3, a1, a4, a6, SP[a2, a5], n] - 
    S2[a3, a1, a4, SP[a2, a5], a6, n] - S2[a3, a1, a4, SP[a5, a6], a2, n] + 
    S2[a3, a1, a5, a4, SP[a2, a6], n] + S2[a3, a1, a5, a6, SP[a2, a4], n] + 
    S2[a3, a1, a5, SP[a2, a4], a6, n] + S2[a3, a1, a5, SP[a2, a6], a4, n] - 
    S2[a3, a1, a6, a4, SP[a2, a5], n] + S2[a3, a1, a6, a5, SP[a2, a4], n] - 
    S2[a3, a1, a6, SP[a2, a4], a5, n] + S2[a3, a1, a6, SP[a2, a5], a4, n] - 
    S2[a3, a1, SP[a2, a4], a5, a6, n] - S2[a3, a1, SP[a2, a4], a6, a5, n] + 
    S2[a3, a1, SP[a2, a5], a4, a6, n] + S2[a3, a1, SP[a2, a5], a6, a4, n] + 
    S2[a3, a1, SP[a2, a6], a5, a4, n] - S2[a3, a1, SP[a4, a6], a2, a5, n] - 
    S2[a3, a1, SP[a4, a6], a5, a2, n] + S2[a6, n]*S2[a3, a4, a1, a2, a5, n] + 
    S2[a6, n]*S2[a3, a4, a1, a5, a2, n] + S2[a3, a4, a1, a5, SP[a2, a6], n] - 
    S2[a3, a4, a1, a6, SP[a2, a5], n] - S2[a3, a4, a1, SP[a2, a5], a6, n] + 
    S2[a3, a4, a1, SP[a2, a6], a5, n] + S2[a6, n]*S2[a3, a4, a5, a1, a2, n] + 
    S2[a3, a4, a5, a1, SP[a2, a6], n] + S2[a3, a4, a5, SP[a1, a6], a2, n] - 
    S2[a5, n]*S2[a3, a4, a6, a1, a2, n] - S2[a3, a4, a6, a1, SP[a2, a5], n] - 
    S2[a3, a4, a6, SP[a1, a5], a2, n] - S2[a3, a4, SP[a1, a5], a2, a6, n] - 
    S2[a3, a4, SP[a1, a5], a6, a2, n] + S2[a3, a4, SP[a1, a6], a2, a5, n] + 
    S2[a3, a4, SP[a1, a6], a5, a2, n] - S2[a4, n]*S2[a3, a5, a1, a2, a6, n] - 
    S2[a3, a5, a1, a2, SP[a4, a6], n] + S2[a3, a5, a1, a4, SP[a2, a6], n] - 
    S2[a4, n]*S2[a3, a5, a1, a6, a2, n] + S2[a3, a5, a1, SP[a2, a6], a4, n] - 
    S2[a3, a5, a1, SP[a4, a6], a2, n] + S2[a3, a5, a4, a1, SP[a2, a6], n] + 
    S2[a3, a5, a4, SP[a1, a6], a2, n] + S2[a3, a5, a6, a1, SP[a2, a4], n] + 
    S2[a3, a5, a6, SP[a1, a4], a2, n] + S2[a3, a5, SP[a1, a6], a2, a4, n] + 
    S2[a3, a5, SP[a1, a6], a4, a2, n] - S2[a5, n]*S2[a3, a6, a1, a2, a4, n] - 
    S2[a3, a6, a1, a2, SP[a4, a5], n] - S2[a5, n]*S2[a3, a6, a1, a4, a2, n] - 
    S2[a3, a6, a1, a4, SP[a2, a5], n] + S2[a3, a6, a1, a5, SP[a2, a4], n] - 
    S2[a3, a6, a1, SP[a4, a5], a2, n] - S2[a5, n]*S2[a3, a6, a4, a1, a2, n] - 
    S2[a3, a6, a4, a1, SP[a2, a5], n] - S2[a3, a6, a4, SP[a1, a5], a2, n] + 
    S2[a3, a6, a5, a1, SP[a2, a4], n] + S2[a3, a6, a5, SP[a1, a4], a2, n] - 
    S2[a3, a6, SP[a4, a5], a1, a2, n] - S2[a3, SP[a1, a4], a2, a5, a6, n] - 
    S2[a3, SP[a1, a4], a2, a6, a5, n] - S2[a3, SP[a1, a4], a5, a2, a6, n] - 
    S2[a3, SP[a1, a4], a5, a6, a2, n] - S2[a3, SP[a1, a4], a6, a2, a5, n] - 
    S2[a3, SP[a1, a4], a6, a5, a2, n] + S2[a3, SP[a1, a5], a2, a4, a6, n] + 
    S2[a3, SP[a1, a5], a2, a6, a4, n] + S2[a3, SP[a1, a5], a4, a2, a6, n] + 
    S2[a3, SP[a1, a5], a4, a6, a2, n] + S2[a3, SP[a1, a5], a6, a2, a4, n] + 
    S2[a3, SP[a1, a5], a6, a4, a2, n] + S2[a3, SP[a1, a6], a2, a5, a4, n] + 
    S2[a3, SP[a1, a6], a5, a2, a4, n] + S2[a3, SP[a1, a6], a5, a4, a2, n] - 
    S2[a3, SP[a4, a5], a1, a2, a6, n] - S2[a3, SP[a4, a5], a1, a6, a2, n] - 
    S2[a3, SP[a4, a5], a6, a1, a2, n] + S2[a3, SP[a4, a6], a1, a2, a5, n] + 
    S2[a3, SP[a4, a6], a1, a5, a2, n] + S2[a3, SP[a4, a6], a5, a1, a2, n] - 
    S2[a3, SP[a5, a6], a1, a2, a4, n] - S2[a3, SP[a5, a6], a1, a4, a2, n] - 
    S2[a3, SP[a5, a6], a4, a1, a2, n] - S2[a4, a1, a2, a6, SP[a3, a5], n] - 
    S2[a4, a1, a2, SP[a5, a6], a3, n] - S2[a4, a1, a5, a3, SP[a2, a6], n] - 
    S2[a4, a1, a5, SP[a2, a3], a6, n] - S2[a4, a1, a6, a2, SP[a3, a5], n] - 
    S2[a4, a1, a6, a3, SP[a2, a5], n] - S2[a4, a1, a6, SP[a2, a5], a3, n] - 
    S2[a4, a1, a6, SP[a3, a5], a2, n] - S2[a4, a1, SP[a2, a5], a3, a6, n] - 
    S2[a4, a1, SP[a2, a5], a6, a3, n] - S2[a4, a1, SP[a5, a6], a2, a3, n] - 
    S2[a4, a1, SP[a5, a6], a3, a2, n] + S2[a3, n]*S2[a4, a5, a1, a2, a6, n] + 
    S2[a4, a5, a1, a2, SP[a3, a6], n] - S2[a4, a5, a1, a3, SP[a2, a6], n] + 
    S2[a3, n]*S2[a4, a5, a1, a6, a2, n] + S2[a4, a5, a1, a6, SP[a2, a3], n] + 
    S2[a4, a5, a1, SP[a3, a6], a2, n] - S2[a4, a5, a3, a1, SP[a2, a6], n] - 
    S2[a4, a5, a3, SP[a1, a6], a2, n] - S2[a4, SP[a1, a5], a2, a3, a6, n] - 
    S2[a4, SP[a1, a5], a2, a6, a3, n] - S2[a4, SP[a1, a5], a3, a2, a6, n] - 
    S2[a4, SP[a1, a5], a3, a6, a2, n] - S2[a4, SP[a1, a5], a6, a2, a3, n] - 
    S2[a4, SP[a1, a5], a6, a3, a2, n] + S2[a4, SP[a3, a5], a1, a2, a6, n] + 
    S2[a4, SP[a3, a5], a1, a6, a2, n] + S2[a4, n]*S2[a5, a3, a6, a1, a2, n] + 
    S2[a5, a3, a6, a1, SP[a2, a4], n] + S2[a5, a3, a6, SP[a1, a4], a2, n] + 
    S2[a5, a3, SP[a4, a6], a1, a2, n] + S2[a5, SP[a3, a4], a6, a1, a2, n] + 
    S2[a3, n]*S2[a6, a1, a2, a4, a5, n] + S2[a6, a1, a2, a4, SP[a3, a5], n] + 
    S2[a6, a1, a2, SP[a3, a4], a5, n] + S2[a3, n]*S2[a6, a1, a4, a2, a5, n] + 
    S2[a6, a1, a4, a2, SP[a3, a5], n] + S2[a3, n]*S2[a6, a1, a4, a5, a2, n] + 
    S2[a6, a1, a4, a5, SP[a2, a3], n] + S2[a6, a1, a4, SP[a2, a3], a5, n] + 
    S2[a6, a1, a4, SP[a3, a5], a2, n] + S2[a6, a1, SP[a2, a3], a4, a5, n] + 
    S2[a6, a1, SP[a3, a4], a2, a5, n] + S2[a6, a1, SP[a3, a4], a5, a2, n] + 
    S2[a6, SP[a1, a3], a2, a4, a5, n] + S2[a6, SP[a1, a3], a4, a2, a5, n] + 
    S2[a6, SP[a1, a3], a4, a5, a2, n] - S2[SP[a1, a6], a2, a4, a3, a5, n] - 
    S2[SP[a1, a6], a2, a4, a5, a3, n] - S2[SP[a1, a6], a4, a2, a3, a5, n] - 
    S2[SP[a1, a6], a4, a2, a5, a3, n] - S2[SP[a1, a6], a4, a3, a2, a5, n] - 
    S2[SP[a1, a6], a4, a3, a5, a2, n] - S2[SP[a1, a6], a4, a5, a2, a3, n] - 
    S2[SP[a1, a6], a4, a5, a3, a2, n] - S2[SP[a3, a5], a4, a6, a1, a2, n] - 
    S2[SP[a3, a5], a6, a1, a2, a4, n] - S2[SP[a3, a5], a6, a1, a4, a2, n] - 
    S2[SP[a3, a5], a6, a4, a1, a2, n] + S2[SP[a3, a6], a1, a2, a4, a5, n] + 
    S2[SP[a3, a6], a1, a4, a2, a5, n] + S2[SP[a3, a6], a1, a4, a5, a2, n] + 
    S2[SP[a3, a6], a4, a1, a2, a5, n] + S2[SP[a3, a6], a4, a1, a5, a2, n] + 
    S2[SP[a3, a6], a4, a5, a1, a2, n] + S2[SP[a4, a5], a3, a6, a1, a2, n] - 
    S2[a6, a1, a2, a3, a4, a5, n] - S2[a6, a1, a3, a2, a4, a5, n] - 
    S2[a6, a1, a3, a4, a2, a5, n] - S2[a6, a1, a3, a4, a5, a2, n] - 
    S2[a6, a3, a1, a2, a4, a5, n] - S2[a6, a3, a1, a4, a2, a5, n] - 
    S2[a6, a3, a1, a4, a5, a2, n] - S2[a6, a3, a4, a1, a2, a5, n] - 
    S2[a6, a3, a4, a1, a5, a2, n] - S2[a6, a3, a4, a5, a1, a2, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a5_, a4_, a3_, a6_, a2_, a1_, n_] :> 
  S2[a1, a2, a6, n]*S2[a3, a4, a5, n] + S2[SP[a1, a3], SP[a2, a4], 
     SP[a5, a6], n] + S2[a4, a5, n]*S2[a1, a2, a6, a3, n] - 
    S2[a1, a2, SP[a4, a6], SP[a3, a5], n] - S2[a1, a3, SP[a2, a4], 
     SP[a5, a6], n] - S2[a1, SP[a2, a3], a4, SP[a5, a6], n] - 
    S2[a1, SP[a2, a3], SP[a4, a6], a5, n] - S2[a1, SP[a2, a4], a6, 
     SP[a3, a5], n] - S2[a1, SP[a2, a4], SP[a5, a6], a3, n] - 
    S2[a3, a1, SP[a2, a4], SP[a5, a6], n] - S2[a1, a2, n]*
     S2[a3, a5, a4, a6, n] - S2[a1, a2, n]*S2[a3, a5, a6, a4, n] + 
    S2[a3, a5, SP[a1, a4], SP[a2, a6], n] + S2[a3, a5, SP[a1, a6], 
     SP[a2, a4], n] - S2[a1, a2, n]*S2[a3, a6, a5, a4, n] + 
    S2[a3, a6, SP[a1, a5], SP[a2, a4], n] - S2[a3, SP[a1, a4], a2, 
     SP[a5, a6], n] - S2[a3, SP[a1, a4], SP[a2, a5], a6, n] + 
    S2[a3, SP[a1, a5], a4, SP[a2, a6], n] + S2[a3, SP[a1, a5], a6, 
     SP[a2, a4], n] + S2[a3, SP[a1, a5], SP[a2, a4], a6, n] + 
    S2[a3, SP[a1, a5], SP[a2, a6], a4, n] + S2[a3, SP[a1, a6], a5, 
     SP[a2, a4], n] + S2[a3, SP[a1, a6], SP[a2, a5], a4, n] + 
    S2[a1, a2, n]*S2[a4, a5, a3, a6, n] - S2[a4, a5, SP[a1, a3], SP[a2, a6], 
     n] - S2[a4, SP[a1, a5], a3, SP[a2, a6], n] - 
    S2[a4, SP[a1, a5], SP[a2, a3], a6, n] - S2[SP[a1, a3], a2, a4, 
     SP[a5, a6], n] - S2[SP[a1, a3], a2, SP[a4, a6], a5, n] - 
    S2[SP[a1, a3], a4, a2, SP[a5, a6], n] - S2[SP[a1, a3], a4, SP[a2, a5], 
     a6, n] + S2[SP[a1, a3], a5, a4, SP[a2, a6], n] + 
    S2[SP[a1, a3], a5, a6, SP[a2, a4], n] + S2[SP[a1, a3], a5, SP[a2, a4], 
     a6, n] + S2[SP[a1, a3], a5, SP[a2, a6], a4, n] + 
    S2[SP[a1, a3], a6, a5, SP[a2, a4], n] + S2[SP[a1, a3], a6, SP[a2, a5], 
     a4, n] - S2[SP[a1, a3], SP[a2, a4], a5, a6, n] - 
    S2[SP[a1, a3], SP[a2, a4], a6, a5, n] + S2[SP[a1, a3], SP[a2, a5], a4, 
     a6, n] + S2[SP[a1, a3], SP[a2, a5], a6, a4, n] + 
    S2[SP[a1, a3], SP[a2, a6], a5, a4, n] - S2[SP[a1, a4], a2, a6, 
     SP[a3, a5], n] - S2[SP[a1, a4], a2, SP[a5, a6], a3, n] - 
    S2[SP[a1, a4], a5, a3, SP[a2, a6], n] - S2[SP[a1, a4], a5, SP[a2, a3], 
     a6, n] - S2[SP[a1, a4], SP[a2, a5], a3, a6, n] - 
    S2[SP[a1, a4], SP[a2, a5], a6, a3, n] + S2[a1, a2, a3, a4, SP[a5, a6], 
     n] + S2[a1, a2, a3, SP[a4, a6], a5, n] + 
    S2[a6, n]*S2[a1, a2, a4, a3, a5, n] + S2[a1, a2, a4, a3, SP[a5, a6], n] + 
    S2[a6, n]*S2[a1, a2, a4, a5, a3, n] - 
    S2[a3, n]*S2[a1, a2, a4, a5, a6, n] - 
    S2[a3, n]*S2[a1, a2, a4, a6, a5, n] - S2[a1, a2, a4, SP[a3, a5], a6, n] + 
    2*S2[a1, a2, a4, SP[a5, a6], a3, n] - 
    S2[a4, n]*S2[a1, a2, a5, a3, a6, n] - S2[a1, a2, a5, a3, SP[a4, a6], n] + 
    S2[a3, n]*S2[a1, a2, a5, a4, a6, n] + S2[a1, a2, a5, a4, SP[a3, a6], n] - 
    S2[a4, n]*S2[a1, a2, a5, a6, a3, n] + 
    S2[a3, n]*S2[a1, a2, a5, a6, a4, n] + S2[a1, a2, a5, SP[a3, a6], a4, n] - 
    S2[a1, a2, a5, SP[a4, a6], a3, n] - S2[a4, n]*S2[a1, a2, a6, a3, a5, n] - 
    S2[a1, a2, a6, a3, SP[a4, a5], n] - S2[a3, n]*S2[a1, a2, a6, a4, a5, n] - 
    S2[a4, n]*S2[a1, a2, a6, a5, a3, n] + 
    S2[a3, n]*S2[a1, a2, a6, a5, a4, n] - S2[a1, a2, a6, SP[a3, a4], a5, n] + 
    S2[a1, a2, a6, SP[a3, a5], a4, n] - S2[a1, a2, a6, SP[a4, a5], a3, n] - 
    S2[a1, a2, SP[a3, a4], a5, a6, n] - S2[a1, a2, SP[a3, a4], a6, a5, n] + 
    S2[a1, a2, SP[a3, a5], a4, a6, n] + S2[a1, a2, SP[a3, a5], a6, a4, n] + 
    S2[a1, a2, SP[a3, a6], a5, a4, n] - S2[a1, a2, SP[a4, a5], a3, a6, n] - 
    S2[a1, a2, SP[a4, a5], a6, a3, n] + S2[a1, a2, SP[a4, a6], a3, a5, n] + 
    S2[a1, a2, SP[a4, a6], a5, a3, n] + S2[a1, a3, a2, a4, SP[a5, a6], n] + 
    S2[a1, a3, a2, SP[a4, a6], a5, n] + S2[a1, a3, a4, a2, SP[a5, a6], n] + 
    S2[a1, a3, a4, SP[a2, a5], a6, n] - S2[a1, a3, a5, a4, SP[a2, a6], n] - 
    S2[a1, a3, a5, a6, SP[a2, a4], n] - S2[a1, a3, a5, SP[a2, a4], a6, n] - 
    S2[a1, a3, a5, SP[a2, a6], a4, n] - S2[a1, a3, a6, a5, SP[a2, a4], n] - 
    S2[a1, a3, a6, SP[a2, a5], a4, n] + S2[a1, a3, SP[a2, a4], a5, a6, n] + 
    S2[a1, a3, SP[a2, a4], a6, a5, n] - S2[a1, a3, SP[a2, a5], a4, a6, n] - 
    S2[a1, a3, SP[a2, a5], a6, a4, n] - S2[a1, a3, SP[a2, a6], a5, a4, n] + 
    S2[a6, n]*S2[a1, a4, a2, a3, a5, n] + S2[a1, a4, a2, a3, SP[a5, a6], n] + 
    S2[a6, n]*S2[a1, a4, a2, a5, a3, n] - 
    S2[a3, n]*S2[a1, a4, a2, a5, a6, n] - 
    S2[a3, n]*S2[a1, a4, a2, a6, a5, n] - S2[a1, a4, a2, SP[a3, a5], a6, n] + 
    2*S2[a1, a4, a2, SP[a5, a6], a3, n] + 
    S2[a6, n]*S2[a1, a4, a3, a2, a5, n] + S2[a1, a4, a3, a2, SP[a5, a6], n] + 
    S2[a6, n]*S2[a1, a4, a3, a5, a2, n] + S2[a1, a4, a3, a5, SP[a2, a6], n] - 
    S2[a5, n]*S2[a1, a4, a3, a6, a2, n] - S2[a1, a4, a3, a6, SP[a2, a5], n] + 
    S2[a1, a4, a3, SP[a2, a6], a5, n] + S2[a6, n]*S2[a1, a4, a5, a2, a3, n] - 
    S2[a3, n]*S2[a1, a4, a5, a2, a6, n] + 
    S2[a6, n]*S2[a1, a4, a5, a3, a2, n] + 
    2*S2[a1, a4, a5, a3, SP[a2, a6], n] + S2[a1, a4, a5, SP[a2, a6], a3, n] + 
    S2[a1, a4, a5, SP[a3, a6], a2, n] - S2[a5, n]*S2[a1, a4, a6, a2, a3, n] - 
    S2[a1, a4, a6, a2, SP[a3, a5], n] - S2[a5, n]*S2[a1, a4, a6, a3, a2, n] - 
    S2[a1, a4, a6, a3, SP[a2, a5], n] - S2[a1, a4, a6, SP[a2, a5], a3, n] - 
    S2[a1, a4, a6, SP[a3, a5], a2, n] - S2[a1, a4, SP[a2, a3], a5, a6, n] - 
    S2[a1, a4, SP[a2, a3], a6, a5, n] + S2[a1, a4, SP[a2, a5], a3, a6, n] + 
    S2[a1, a4, SP[a2, a5], a6, a3, n] + S2[a1, a4, SP[a2, a6], a3, a5, n] + 
    S2[a1, a4, SP[a2, a6], a5, a3, n] - S2[a1, a4, SP[a3, a5], a2, a6, n] - 
    S2[a1, a4, SP[a3, a5], a6, a2, n] + S2[a1, a4, SP[a3, a6], a2, a5, n] + 
    S2[a1, a4, SP[a3, a6], a5, a2, n] - S2[a4, n]*S2[a1, a5, a2, a3, a6, n] - 
    S2[a1, a5, a2, a3, SP[a4, a6], n] + S2[a3, n]*S2[a1, a5, a2, a4, a6, n] + 
    S2[a1, a5, a2, a4, SP[a3, a6], n] - S2[a4, n]*S2[a1, a5, a2, a6, a3, n] + 
    S2[a3, n]*S2[a1, a5, a2, a6, a4, n] + S2[a1, a5, a2, SP[a3, a6], a4, n] - 
    S2[a1, a5, a2, SP[a4, a6], a3, n] - S2[a4, n]*S2[a1, a5, a3, a2, a6, n] - 
    S2[a1, a5, a3, a2, SP[a4, a6], n] - S2[a4, n]*S2[a1, a5, a3, a6, a2, n] - 
    S2[a1, a5, a3, a6, SP[a2, a4], n] - S2[a1, a5, a3, SP[a2, a4], a6, n] - 
    S2[a1, a5, a3, SP[a4, a6], a2, n] + S2[a3, n]*S2[a1, a5, a4, a2, a6, n] + 
    S2[a1, a5, a4, a2, SP[a3, a6], n] + S2[a3, n]*S2[a1, a5, a4, a6, a2, n] + 
    S2[a1, a5, a4, a6, SP[a2, a3], n] + S2[a1, a5, a4, SP[a2, a3], a6, n] + 
    S2[a1, a5, a4, SP[a3, a6], a2, n] + S2[a3, n]*S2[a1, a5, a6, a2, a4, n] + 
    S2[a1, a5, a6, a2, SP[a3, a4], n] + S2[a3, n]*S2[a1, a5, a6, a4, a2, n] + 
    S2[a1, a5, a6, a4, SP[a2, a3], n] + S2[a1, a5, a6, SP[a2, a3], a4, n] + 
    S2[a1, a5, a6, SP[a3, a4], a2, n] + S2[a1, a5, SP[a2, a3], a4, a6, n] + 
    S2[a1, a5, SP[a2, a3], a6, a4, n] - S2[a1, a5, SP[a2, a4], a3, a6, n] - 
    S2[a1, a5, SP[a2, a4], a6, a3, n] + S2[a1, a5, SP[a3, a6], a2, a4, n] + 
    S2[a1, a5, SP[a3, a6], a4, a2, n] - S2[a5, n]*S2[a1, a6, a2, a3, a4, n] - 
    S2[a1, a6, a2, a3, SP[a4, a5], n] - S2[a5, n]*S2[a1, a6, a2, a4, a3, n] - 
    S2[a1, a6, a2, a4, SP[a3, a5], n] + S2[a3, n]*S2[a1, a6, a2, a5, a4, n] + 
    S2[a1, a6, a2, a5, SP[a3, a4], n] - S2[a1, a6, a2, SP[a4, a5], a3, n] - 
    S2[a5, n]*S2[a1, a6, a3, a2, a4, n] - S2[a1, a6, a3, a2, SP[a4, a5], n] - 
    S2[a5, n]*S2[a1, a6, a3, a4, a2, n] - S2[a1, a6, a3, a4, SP[a2, a5], n] - 
    S2[a1, a6, a3, SP[a2, a5], a4, n] - S2[a1, a6, a3, SP[a4, a5], a2, n] - 
    S2[a5, n]*S2[a1, a6, a4, a2, a3, n] - S2[a1, a6, a4, a2, SP[a3, a5], n] - 
    S2[a5, n]*S2[a1, a6, a4, a3, a2, n] - S2[a1, a6, a4, a3, SP[a2, a5], n] - 
    S2[a1, a6, a4, SP[a2, a5], a3, n] - S2[a1, a6, a4, SP[a3, a5], a2, n] + 
    S2[a3, n]*S2[a1, a6, a5, a2, a4, n] + S2[a1, a6, a5, a2, SP[a3, a4], n] + 
    S2[a3, n]*S2[a1, a6, a5, a4, a2, n] + S2[a1, a6, a5, a4, SP[a2, a3], n] + 
    S2[a1, a6, a5, SP[a2, a3], a4, n] + S2[a1, a6, a5, SP[a3, a4], a2, n] + 
    S2[a1, a6, SP[a2, a3], a5, a4, n] - S2[a1, a6, SP[a2, a5], a3, a4, n] - 
    S2[a1, a6, SP[a2, a5], a4, a3, n] - S2[a1, a6, SP[a4, a5], a2, a3, n] - 
    S2[a1, a6, SP[a4, a5], a3, a2, n] + S2[a1, SP[a2, a6], a4, a3, a5, n] + 
    S2[a1, SP[a2, a6], a4, a5, a3, n] - S2[a1, SP[a3, a4], a2, a5, a6, n] - 
    S2[a1, SP[a3, a4], a2, a6, a5, n] - S2[a1, SP[a3, a4], a5, a2, a6, n] + 
    S2[a1, SP[a3, a5], a2, a4, a6, n] + S2[a1, SP[a3, a5], a2, a6, a4, n] + 
    S2[a1, SP[a3, a5], a4, a2, a6, n] + S2[a1, SP[a3, a5], a4, a6, a2, n] + 
    S2[a1, SP[a3, a5], a6, a2, a4, n] + S2[a1, SP[a3, a5], a6, a4, a2, n] + 
    S2[a1, SP[a3, a6], a2, a5, a4, n] + S2[a1, SP[a3, a6], a5, a2, a4, n] + 
    S2[a1, SP[a3, a6], a5, a4, a2, n] - S2[a1, SP[a4, a5], a2, a3, a6, n] - 
    S2[a1, SP[a4, a5], a2, a6, a3, n] - S2[a1, SP[a4, a5], a3, a2, a6, n] - 
    2*S2[a1, SP[a4, a5], a3, a6, a2, n] - S2[a1, SP[a4, a5], a6, a2, a3, n] - 
    S2[a1, SP[a4, a5], a6, a3, a2, n] + S2[a1, SP[a4, a6], a2, a3, a5, n] + 
    S2[a1, SP[a4, a6], a2, a5, a3, n] + S2[a1, SP[a4, a6], a3, a2, a5, n] + 
    S2[a1, SP[a4, a6], a3, a5, a2, n] + S2[a1, SP[a4, a6], a5, a2, a3, n] + 
    S2[a1, SP[a4, a6], a5, a3, a2, n] - S2[a1, SP[a5, a6], a2, a3, a4, n] - 
    S2[a1, SP[a5, a6], a2, a4, a3, n] - S2[a1, SP[a5, a6], a3, a2, a4, n] - 
    S2[a1, SP[a5, a6], a3, a4, a2, n] - S2[a1, SP[a5, a6], a4, a2, a3, n] - 
    S2[a1, SP[a5, a6], a4, a3, a2, n] + S2[a3, a1, a2, a4, SP[a5, a6], n] + 
    S2[a3, a1, a2, SP[a4, a6], a5, n] + S2[a3, a1, a4, a2, SP[a5, a6], n] + 
    S2[a3, a1, a4, SP[a2, a5], a6, n] - S2[a3, a1, a5, a4, SP[a2, a6], n] - 
    S2[a3, a1, a5, a6, SP[a2, a4], n] - S2[a3, a1, a5, SP[a2, a4], a6, n] - 
    S2[a3, a1, a5, SP[a2, a6], a4, n] - S2[a3, a1, a6, a5, SP[a2, a4], n] - 
    S2[a3, a1, a6, SP[a2, a5], a4, n] + S2[a3, a1, SP[a2, a4], a5, a6, n] + 
    S2[a3, a1, SP[a2, a4], a6, a5, n] - S2[a3, a1, SP[a2, a5], a4, a6, n] - 
    S2[a3, a1, SP[a2, a5], a6, a4, n] - S2[a3, a1, SP[a2, a6], a5, a4, n] - 
    S2[a6, n]*S2[a3, a4, a1, a2, a5, n] - 
    S2[a6, n]*S2[a3, a4, a1, a5, a2, n] - S2[a3, a4, a1, a5, SP[a2, a6], n] + 
    S2[a5, n]*S2[a3, a4, a1, a6, a2, n] + S2[a3, a4, a1, a6, SP[a2, a5], n] + 
    S2[a3, a4, a1, SP[a2, a5], a6, n] - S2[a3, a4, a1, SP[a2, a6], a5, n] - 
    S2[a6, n]*S2[a3, a4, a5, a1, a2, n] - S2[a3, a4, a5, a1, SP[a2, a6], n] - 
    S2[a3, a4, a5, SP[a1, a6], a2, n] + S2[a5, n]*S2[a3, a4, a6, a1, a2, n] + 
    S2[a3, a4, a6, a1, SP[a2, a5], n] + S2[a3, a4, a6, SP[a1, a5], a2, n] + 
    S2[a3, a4, SP[a1, a5], a2, a6, n] + S2[a3, a4, SP[a1, a5], a6, a2, n] - 
    S2[a3, a4, SP[a1, a6], a2, a5, n] - S2[a3, a4, SP[a1, a6], a5, a2, n] + 
    S2[a4, n]*S2[a3, a5, a1, a2, a6, n] + S2[a3, a5, a1, a2, SP[a4, a6], n] - 
    S2[a3, a5, a1, a4, SP[a2, a6], n] + S2[a4, n]*S2[a3, a5, a1, a6, a2, n] - 
    S2[a3, a5, a1, SP[a2, a6], a4, n] + S2[a3, a5, a1, SP[a4, a6], a2, n] - 
    S2[a3, a5, a4, a1, SP[a2, a6], n] - S2[a3, a5, a4, SP[a1, a6], a2, n] - 
    S2[a3, a5, a6, a1, SP[a2, a4], n] - S2[a3, a5, a6, SP[a1, a4], a2, n] - 
    S2[a3, a5, SP[a1, a6], a2, a4, n] - S2[a3, a5, SP[a1, a6], a4, a2, n] + 
    S2[a5, n]*S2[a3, a6, a1, a2, a4, n] + S2[a3, a6, a1, a2, SP[a4, a5], n] + 
    S2[a5, n]*S2[a3, a6, a1, a4, a2, n] + S2[a3, a6, a1, a4, SP[a2, a5], n] - 
    S2[a3, a6, a1, a5, SP[a2, a4], n] + S2[a3, a6, a1, SP[a4, a5], a2, n] + 
    S2[a5, n]*S2[a3, a6, a4, a1, a2, n] + S2[a3, a6, a4, a1, SP[a2, a5], n] + 
    S2[a3, a6, a4, SP[a1, a5], a2, n] - S2[a3, a6, a5, a1, SP[a2, a4], n] - 
    S2[a3, a6, a5, SP[a1, a4], a2, n] + S2[a3, a6, SP[a4, a5], a1, a2, n] + 
    S2[a3, SP[a1, a4], a2, a5, a6, n] + S2[a3, SP[a1, a4], a2, a6, a5, n] + 
    S2[a3, SP[a1, a4], a5, a2, a6, n] - S2[a3, SP[a1, a5], a2, a4, a6, n] - 
    S2[a3, SP[a1, a5], a2, a6, a4, n] - S2[a3, SP[a1, a5], a4, a2, a6, n] - 
    S2[a3, SP[a1, a5], a4, a6, a2, n] - S2[a3, SP[a1, a5], a6, a2, a4, n] - 
    S2[a3, SP[a1, a5], a6, a4, a2, n] - S2[a3, SP[a1, a6], a2, a5, a4, n] - 
    S2[a3, SP[a1, a6], a5, a2, a4, n] - S2[a3, SP[a1, a6], a5, a4, a2, n] + 
    S2[a3, SP[a4, a5], a1, a2, a6, n] + 2*S2[a3, SP[a4, a5], a1, a6, a2, n] + 
    S2[a3, SP[a4, a5], a6, a1, a2, n] - S2[a3, SP[a4, a6], a1, a2, a5, n] - 
    S2[a3, SP[a4, a6], a1, a5, a2, n] - S2[a3, SP[a4, a6], a5, a1, a2, n] + 
    S2[a3, SP[a5, a6], a1, a2, a4, n] + S2[a3, SP[a5, a6], a1, a4, a2, n] + 
    S2[a3, SP[a5, a6], a4, a1, a2, n] + S2[a4, a1, a2, a6, SP[a3, a5], n] + 
    S2[a4, a1, a2, SP[a5, a6], a3, n] + S2[a4, a1, a5, a3, SP[a2, a6], n] + 
    S2[a4, a1, a5, SP[a2, a3], a6, n] + S2[a4, a1, SP[a2, a5], a3, a6, n] + 
    S2[a4, a1, SP[a2, a5], a6, a3, n] - S2[a3, n]*S2[a4, a5, a1, a2, a6, n] - 
    S2[a4, a5, a1, a2, SP[a3, a6], n] + S2[a4, a5, a1, a3, SP[a2, a6], n] - 
    S2[a3, n]*S2[a4, a5, a1, a6, a2, n] - S2[a4, a5, a1, a6, SP[a2, a3], n] - 
    S2[a4, a5, a1, SP[a3, a6], a2, n] + S2[a4, a5, a3, a1, SP[a2, a6], n] + 
    S2[a4, a5, a3, SP[a1, a6], a2, n] + S2[a4, SP[a1, a5], a2, a3, a6, n] + 
    S2[a4, SP[a1, a5], a2, a6, a3, n] + S2[a4, SP[a1, a5], a3, a2, a6, n] + 
    S2[a4, SP[a1, a5], a3, a6, a2, n] - S2[a4, SP[a3, a5], a1, a2, a6, n] - 
    S2[a4, SP[a3, a5], a1, a6, a2, n] + S2[a4, n]*S2[a5, a1, a6, a2, a3, n] + 
    S2[a5, a1, a6, a2, SP[a3, a4], n] + S2[a4, n]*S2[a5, a1, a6, a3, a2, n] + 
    S2[a5, a1, a6, a3, SP[a2, a4], n] + S2[a5, a1, a6, SP[a2, a4], a3, n] + 
    S2[a5, a1, a6, SP[a3, a4], a2, n] + S2[a5, a1, SP[a4, a6], a2, a3, n] + 
    S2[a5, a1, SP[a4, a6], a3, a2, n] - S2[a4, n]*S2[a5, a3, a6, a1, a2, n] - 
    S2[a5, a3, a6, a1, SP[a2, a4], n] - S2[a5, a3, a6, SP[a1, a4], a2, n] - 
    S2[a5, a3, SP[a4, a6], a1, a2, n] - S2[a3, n]*S2[a5, a4, a1, a6, a2, n] - 
    S2[a5, a4, a1, a6, SP[a2, a3], n] - S2[a5, a4, a1, SP[a3, a6], a2, n] + 
    S2[a1, n]*S2[a5, a4, a3, a6, a2, n] + S2[a5, a4, a3, a6, SP[a1, a2], n] + 
    S2[a5, a4, a3, SP[a1, a6], a2, n] + S2[a5, SP[a1, a4], a3, a6, a2, n] + 
    S2[a5, SP[a1, a4], a6, a2, a3, n] + S2[a5, SP[a1, a4], a6, a3, a2, n] - 
    S2[a5, SP[a3, a4], a1, a6, a2, n] - S2[a5, SP[a3, a4], a6, a1, a2, n] - 
    S2[a3, n]*S2[a6, a1, a2, a4, a5, n] - S2[a6, a1, a2, a4, SP[a3, a5], n] - 
    S2[a6, a1, a2, SP[a3, a4], a5, n] - S2[a3, n]*S2[a6, a1, a4, a2, a5, n] - 
    S2[a6, a1, a4, a2, SP[a3, a5], n] - S2[a3, n]*S2[a6, a1, a4, a5, a2, n] - 
    S2[a6, a1, a4, a5, SP[a2, a3], n] - S2[a6, a1, a4, SP[a2, a3], a5, n] - 
    S2[a6, a1, a4, SP[a3, a5], a2, n] - S2[a6, a1, SP[a2, a3], a4, a5, n] - 
    S2[a6, a1, SP[a3, a4], a2, a5, n] - S2[a6, a1, SP[a3, a4], a5, a2, n] + 
    S2[a1, n]*S2[a6, a2, a3, a4, a5, n] + S2[a6, a2, a3, a4, SP[a1, a5], n] + 
    S2[a6, a2, a3, SP[a1, a4], a5, n] + S2[a6, a2, SP[a1, a3], a4, a5, n] + 
    S2[a1, n]*S2[a6, a3, a2, a4, a5, n] + S2[a6, a3, a2, a4, SP[a1, a5], n] + 
    S2[a6, a3, a2, SP[a1, a4], a5, n] + S2[a1, n]*S2[a6, a3, a4, a2, a5, n] + 
    S2[a6, a3, a4, a2, SP[a1, a5], n] + S2[a1, n]*S2[a6, a3, a4, a5, a2, n] + 
    S2[a6, a3, a4, a5, SP[a1, a2], n] + S2[a6, a3, a4, SP[a1, a2], a5, n] + 
    S2[a6, a3, a4, SP[a1, a5], a2, n] + S2[a6, a3, SP[a1, a2], a4, a5, n] + 
    S2[a6, a3, SP[a1, a4], a2, a5, n] + S2[a6, a3, SP[a1, a4], a5, a2, n] + 
    S2[a6, SP[a1, a2], a3, a4, a5, n] - S2[SP[a1, a5], a4, a6, a2, a3, n] - 
    S2[SP[a1, a5], a4, a6, a3, a2, n] - S2[SP[a1, a5], a6, a2, a3, a4, n] - 
    S2[SP[a1, a5], a6, a2, a4, a3, n] - S2[SP[a1, a5], a6, a3, a2, a4, n] - 
    S2[SP[a1, a5], a6, a3, a4, a2, n] - S2[SP[a1, a5], a6, a4, a2, a3, n] - 
    S2[SP[a1, a5], a6, a4, a3, a2, n] + S2[SP[a1, a6], a2, a3, a4, a5, n] + 
    S2[SP[a1, a6], a2, a4, a3, a5, n] + S2[SP[a1, a6], a2, a4, a5, a3, n] + 
    S2[SP[a1, a6], a3, a2, a4, a5, n] + S2[SP[a1, a6], a3, a4, a2, a5, n] + 
    S2[SP[a1, a6], a3, a4, a5, a2, n] + S2[SP[a1, a6], a4, a2, a3, a5, n] + 
    S2[SP[a1, a6], a4, a2, a5, a3, n] + S2[SP[a1, a6], a4, a3, a2, a5, n] + 
    S2[SP[a1, a6], a4, a3, a5, a2, n] + S2[SP[a1, a6], a4, a5, a2, a3, n] + 
    S2[SP[a1, a6], a4, a5, a3, a2, n] + S2[SP[a3, a5], a4, a6, a1, a2, n] + 
    S2[SP[a3, a5], a6, a1, a2, a4, n] + S2[SP[a3, a5], a6, a1, a4, a2, n] + 
    S2[SP[a3, a5], a6, a4, a1, a2, n] - S2[SP[a3, a6], a1, a2, a4, a5, n] - 
    S2[SP[a3, a6], a1, a4, a2, a5, n] - S2[SP[a3, a6], a1, a4, a5, a2, n] - 
    S2[SP[a3, a6], a4, a1, a2, a5, n] - S2[SP[a3, a6], a4, a1, a5, a2, n] - 
    S2[SP[a3, a6], a4, a5, a1, a2, n] + S2[SP[a4, a5], a1, a6, a2, a3, n] + 
    S2[SP[a4, a5], a1, a6, a3, a2, n] - S2[SP[a4, a5], a3, a6, a1, a2, n] - 
    S2[a6, a2, a1, a3, a4, a5, n] - S2[a6, a2, a3, a1, a4, a5, n] - 
    S2[a6, a2, a3, a4, a1, a5, n] - S2[a6, a2, a3, a4, a5, a1, n] - 
    S2[a6, a3, a2, a1, a4, a5, n] - S2[a6, a3, a2, a4, a1, a5, n] - 
    S2[a6, a3, a2, a4, a5, a1, n] - S2[a6, a3, a4, a2, a1, a5, n] - 
    S2[a6, a3, a4, a2, a5, a1, n] - S2[a6, a3, a4, a5, a2, a1, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a5_, a4_, a6_, a1_, a2_, a3_, n_] :> 
  S2[a4, a5, n]*S2[a1, a2, a3, a6, n] + S2[a4, a5, n]*S2[a1, a2, a6, a3, n] - 
    S2[a1, a2, SP[a3, a4], SP[a5, a6], n] - S2[a1, a2, SP[a4, a6], 
     SP[a3, a5], n] + S2[a4, a5, n]*S2[a1, a6, a2, a3, n] - 
    S2[a1, a6, SP[a2, a4], SP[a3, a5], n] - S2[a1, SP[a2, a4], a3, 
     SP[a5, a6], n] - S2[a1, SP[a2, a4], a6, SP[a3, a5], n] - 
    S2[a1, SP[a2, a4], SP[a3, a5], a6, n] - S2[a1, SP[a2, a4], SP[a5, a6], 
     a3, n] - S2[a1, SP[a4, a6], a2, SP[a3, a5], n] - 
    S2[a1, SP[a4, a6], SP[a2, a5], a3, n] - S2[SP[a1, a4], a2, a3, 
     SP[a5, a6], n] - S2[SP[a1, a4], a2, a6, SP[a3, a5], n] - 
    S2[SP[a1, a4], a2, SP[a3, a5], a6, n] - S2[SP[a1, a4], a2, SP[a5, a6], 
     a3, n] - S2[SP[a1, a4], a6, a2, SP[a3, a5], n] - 
    S2[SP[a1, a4], a6, SP[a2, a5], a3, n] - S2[SP[a1, a4], SP[a2, a5], a3, 
     a6, n] - S2[SP[a1, a4], SP[a2, a5], a6, a3, n] - 
    S2[SP[a1, a4], SP[a5, a6], a2, a3, n] + S2[a1, a2, a3, a4, SP[a5, a6], 
     n] + S2[a6, n]*S2[a1, a2, a3, a5, a4, n] - 
    S2[a4, n]*S2[a1, a2, a3, a5, a6, n] - 
    S2[a4, n]*S2[a1, a2, a3, a6, a5, n] - S2[a1, a2, a3, a6, SP[a4, a5], n] - 
    S2[a1, a2, a3, SP[a4, a5], a6, n] + S2[a1, a2, a3, SP[a5, a6], a4, n] + 
    S2[a1, a2, a4, a3, SP[a5, a6], n] + S2[a1, a2, a4, a6, SP[a3, a5], n] + 
    S2[a1, a2, a4, SP[a3, a5], a6, n] + S2[a1, a2, a4, SP[a5, a6], a3, n] + 
    S2[a6, n]*S2[a1, a2, a5, a3, a4, n] - 
    S2[a4, n]*S2[a1, a2, a5, a3, a6, n] + 
    S2[a6, n]*S2[a1, a2, a5, a4, a3, n] + S2[a1, a2, a5, a4, SP[a3, a6], n] - 
    S2[a4, n]*S2[a1, a2, a5, a6, a3, n] - S2[a1, a2, a5, a6, SP[a3, a4], n] - 
    S2[a1, a2, a5, SP[a3, a4], a6, n] + S2[a1, a2, a5, SP[a3, a6], a4, n] - 
    S2[a4, n]*S2[a1, a2, a6, a3, a5, n] - S2[a1, a2, a6, a3, SP[a4, a5], n] + 
    S2[a1, a2, a6, a4, SP[a3, a5], n] - S2[a4, n]*S2[a1, a2, a6, a5, a3, n] - 
    S2[a1, a2, a6, a5, SP[a3, a4], n] - S2[a1, a2, a6, SP[a4, a5], a3, n] + 
    S2[a1, a2, SP[a3, a6], a5, a4, n] - S2[a1, a2, SP[a4, a5], a3, a6, n] - 
    S2[a1, a2, SP[a4, a5], a6, a3, n] + S2[a1, a2, SP[a5, a6], a3, a4, n] + 
    S2[a1, a2, SP[a5, a6], a4, a3, n] + S2[a1, a4, a2, a3, SP[a5, a6], n] + 
    S2[a1, a4, a2, a6, SP[a3, a5], n] + S2[a1, a4, a2, SP[a3, a5], a6, n] + 
    S2[a1, a4, a2, SP[a5, a6], a3, n] + S2[a1, a4, a6, a2, SP[a3, a5], n] + 
    S2[a1, a4, a6, SP[a2, a5], a3, n] + S2[a1, a4, SP[a2, a5], a3, a6, n] + 
    S2[a1, a4, SP[a2, a5], a6, a3, n] + S2[a1, a4, SP[a5, a6], a2, a3, n] + 
    S2[a6, n]*S2[a1, a5, a2, a3, a4, n] - 
    S2[a4, n]*S2[a1, a5, a2, a3, a6, n] + 
    S2[a6, n]*S2[a1, a5, a2, a4, a3, n] + S2[a1, a5, a2, a4, SP[a3, a6], n] - 
    S2[a4, n]*S2[a1, a5, a2, a6, a3, n] - S2[a1, a5, a2, a6, SP[a3, a4], n] - 
    S2[a1, a5, a2, SP[a3, a4], a6, n] + S2[a1, a5, a2, SP[a3, a6], a4, n] + 
    S2[a6, n]*S2[a1, a5, a4, a2, a3, n] + S2[a1, a5, a4, a2, SP[a3, a6], n] + 
    S2[a1, a5, a4, SP[a2, a6], a3, n] - S2[a4, n]*S2[a1, a5, a6, a2, a3, n] - 
    S2[a1, a5, a6, a2, SP[a3, a4], n] - S2[a1, a5, a6, SP[a2, a4], a3, n] - 
    S2[a1, a5, SP[a2, a4], a3, a6, n] - S2[a1, a5, SP[a2, a4], a6, a3, n] + 
    S2[a1, a5, SP[a2, a6], a3, a4, n] + S2[a1, a5, SP[a2, a6], a4, a3, n] - 
    S2[a4, n]*S2[a1, a6, a2, a3, a5, n] - S2[a1, a6, a2, a3, SP[a4, a5], n] + 
    S2[a1, a6, a2, a4, SP[a3, a5], n] - S2[a4, n]*S2[a1, a6, a2, a5, a3, n] - 
    S2[a1, a6, a2, a5, SP[a3, a4], n] - S2[a1, a6, a2, SP[a4, a5], a3, n] + 
    S2[a1, a6, a4, a2, SP[a3, a5], n] + S2[a1, a6, a4, SP[a2, a5], a3, n] - 
    S2[a4, n]*S2[a1, a6, a5, a2, a3, n] - S2[a1, a6, a5, a2, SP[a3, a4], n] - 
    S2[a1, a6, a5, SP[a2, a4], a3, n] - S2[a1, a6, SP[a4, a5], a2, a3, n] + 
    S2[a1, SP[a2, a6], a3, a5, a4, n] + S2[a1, SP[a2, a6], a5, a3, a4, n] + 
    S2[a1, SP[a2, a6], a5, a4, a3, n] - S2[a1, SP[a4, a5], a2, a3, a6, n] - 
    S2[a1, SP[a4, a5], a2, a6, a3, n] - S2[a1, SP[a4, a5], a6, a2, a3, n] + 
    S2[a1, SP[a5, a6], a2, a3, a4, n] + S2[a1, SP[a5, a6], a2, a4, a3, n] + 
    S2[a1, SP[a5, a6], a4, a2, a3, n] + S2[a4, a1, a2, a3, SP[a5, a6], n] + 
    S2[a4, a1, a2, a6, SP[a3, a5], n] + S2[a4, a1, a2, SP[a3, a5], a6, n] + 
    S2[a4, a1, a2, SP[a5, a6], a3, n] + S2[a4, a1, a6, a2, SP[a3, a5], n] + 
    S2[a4, a1, a6, SP[a2, a5], a3, n] + S2[a4, a1, SP[a2, a5], a3, a6, n] + 
    S2[a4, a1, SP[a2, a5], a6, a3, n] + S2[a4, a1, SP[a5, a6], a2, a3, n] - 
    S2[a6, n]*S2[a4, a5, a1, a2, a3, n] - S2[a4, a5, a1, a2, SP[a3, a6], n] - 
    S2[a4, a5, a1, SP[a2, a6], a3, n] - S2[a4, a5, SP[a1, a6], a2, a3, n] + 
    S2[a5, n]*S2[a4, a6, a1, a2, a3, n] + S2[a4, a6, a1, a2, SP[a3, a5], n] + 
    S2[a4, a6, a1, SP[a2, a5], a3, n] + S2[a4, a6, SP[a1, a5], a2, a3, n] + 
    S2[a4, SP[a1, a5], a2, a3, a6, n] + S2[a4, SP[a1, a5], a2, a6, a3, n] + 
    S2[a4, SP[a1, a5], a6, a2, a3, n] - S2[a4, n]*S2[a6, a1, a2, a3, a5, n] - 
    S2[a6, a1, a2, a3, SP[a4, a5], n] - S2[a4, n]*S2[a6, a1, a2, a5, a3, n] - 
    S2[a6, a1, a2, a5, SP[a3, a4], n] - S2[a6, a1, a2, SP[a3, a4], a5, n] - 
    S2[a6, a1, a2, SP[a4, a5], a3, n] - S2[a4, n]*S2[a6, a1, a5, a2, a3, n] - 
    S2[a6, a1, a5, a2, SP[a3, a4], n] - S2[a6, a1, a5, SP[a2, a4], a3, n] - 
    S2[a6, a1, SP[a2, a4], a3, a5, n] - S2[a6, a1, SP[a2, a4], a5, a3, n] - 
    S2[a6, a1, SP[a4, a5], a2, a3, n] - S2[a6, SP[a1, a4], a2, a3, a5, n] - 
    S2[a6, SP[a1, a4], a2, a5, a3, n] - S2[a6, SP[a1, a4], a5, a2, a3, n] + 
    S2[SP[a1, a6], a2, a3, a5, a4, n] + S2[SP[a1, a6], a2, a5, a3, a4, n] + 
    S2[SP[a1, a6], a2, a5, a4, a3, n] + S2[SP[a1, a6], a5, a2, a3, a4, n] + 
    S2[SP[a1, a6], a5, a2, a4, a3, n] + S2[SP[a1, a6], a5, a4, a2, a3, n] + 
    S2[SP[a4, a5], a6, a1, a2, a3, n] - S2[SP[a4, a6], a1, a2, a3, a5, n] - 
    S2[SP[a4, a6], a1, a2, a5, a3, n] - S2[SP[a4, a6], a1, a5, a2, a3, n] - 
    S2[SP[a4, a6], a5, a1, a2, a3, n] + S2[a6, a1, a2, a3, a4, a5, n] + 
    S2[a6, a1, a2, a4, a3, a5, n] + S2[a6, a1, a2, a4, a5, a3, n] + 
    S2[a6, a1, a4, a2, a3, a5, n] + S2[a6, a1, a4, a2, a5, a3, n] + 
    S2[a6, a1, a4, a5, a2, a3, n] + S2[a6, a4, a1, a2, a3, a5, n] + 
    S2[a6, a4, a1, a2, a5, a3, n] + S2[a6, a4, a1, a5, a2, a3, n] + 
    S2[a6, a4, a5, a1, a2, a3, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a5_, a4_, a6_, a1_, a3_, a2_, n_] :> 
  S2[a4, a5, n]*S2[a1, a3, a2, a6, n] + S2[a4, a5, n]*S2[a1, a3, a6, a2, n] - 
    S2[a1, a3, SP[a2, a4], SP[a5, a6], n] - S2[a1, a3, SP[a4, a6], 
     SP[a2, a5], n] + S2[a4, a5, n]*S2[a1, a6, a3, a2, n] - 
    S2[a1, a6, SP[a3, a4], SP[a2, a5], n] - S2[a1, SP[a3, a4], a2, 
     SP[a5, a6], n] - S2[a1, SP[a3, a4], a6, SP[a2, a5], n] - 
    S2[a1, SP[a3, a4], SP[a2, a5], a6, n] - S2[a1, SP[a3, a4], SP[a5, a6], 
     a2, n] - S2[a1, SP[a4, a6], a3, SP[a2, a5], n] - 
    S2[a1, SP[a4, a6], SP[a3, a5], a2, n] - S2[SP[a1, a4], a3, a2, 
     SP[a5, a6], n] - S2[SP[a1, a4], a3, a6, SP[a2, a5], n] - 
    S2[SP[a1, a4], a3, SP[a2, a5], a6, n] - S2[SP[a1, a4], a3, SP[a5, a6], 
     a2, n] - S2[SP[a1, a4], a6, a3, SP[a2, a5], n] - 
    S2[SP[a1, a4], a6, SP[a3, a5], a2, n] - S2[SP[a1, a4], SP[a3, a5], a2, 
     a6, n] - S2[SP[a1, a4], SP[a3, a5], a6, a2, n] - 
    S2[SP[a1, a4], SP[a5, a6], a3, a2, n] + S2[a1, a3, a2, a4, SP[a5, a6], 
     n] + S2[a6, n]*S2[a1, a3, a2, a5, a4, n] - 
    S2[a4, n]*S2[a1, a3, a2, a5, a6, n] - 
    S2[a4, n]*S2[a1, a3, a2, a6, a5, n] - S2[a1, a3, a2, a6, SP[a4, a5], n] - 
    S2[a1, a3, a2, SP[a4, a5], a6, n] + S2[a1, a3, a2, SP[a5, a6], a4, n] + 
    S2[a1, a3, a4, a2, SP[a5, a6], n] + S2[a1, a3, a4, a6, SP[a2, a5], n] + 
    S2[a1, a3, a4, SP[a2, a5], a6, n] + S2[a1, a3, a4, SP[a5, a6], a2, n] + 
    S2[a6, n]*S2[a1, a3, a5, a2, a4, n] - 
    S2[a4, n]*S2[a1, a3, a5, a2, a6, n] + 
    S2[a6, n]*S2[a1, a3, a5, a4, a2, n] + S2[a1, a3, a5, a4, SP[a2, a6], n] - 
    S2[a4, n]*S2[a1, a3, a5, a6, a2, n] - S2[a1, a3, a5, a6, SP[a2, a4], n] - 
    S2[a1, a3, a5, SP[a2, a4], a6, n] + S2[a1, a3, a5, SP[a2, a6], a4, n] - 
    S2[a4, n]*S2[a1, a3, a6, a2, a5, n] - S2[a1, a3, a6, a2, SP[a4, a5], n] + 
    S2[a1, a3, a6, a4, SP[a2, a5], n] - S2[a4, n]*S2[a1, a3, a6, a5, a2, n] - 
    S2[a1, a3, a6, a5, SP[a2, a4], n] - S2[a1, a3, a6, SP[a4, a5], a2, n] + 
    S2[a1, a3, SP[a2, a6], a5, a4, n] - S2[a1, a3, SP[a4, a5], a2, a6, n] - 
    S2[a1, a3, SP[a4, a5], a6, a2, n] + S2[a1, a3, SP[a5, a6], a2, a4, n] + 
    S2[a1, a3, SP[a5, a6], a4, a2, n] + S2[a1, a4, a3, a2, SP[a5, a6], n] + 
    S2[a1, a4, a3, a6, SP[a2, a5], n] + S2[a1, a4, a3, SP[a2, a5], a6, n] + 
    S2[a1, a4, a3, SP[a5, a6], a2, n] + S2[a1, a4, a6, a3, SP[a2, a5], n] + 
    S2[a1, a4, a6, SP[a3, a5], a2, n] + S2[a1, a4, SP[a3, a5], a2, a6, n] + 
    S2[a1, a4, SP[a3, a5], a6, a2, n] + S2[a1, a4, SP[a5, a6], a3, a2, n] + 
    S2[a6, n]*S2[a1, a5, a3, a2, a4, n] - 
    S2[a4, n]*S2[a1, a5, a3, a2, a6, n] + 
    S2[a6, n]*S2[a1, a5, a3, a4, a2, n] + S2[a1, a5, a3, a4, SP[a2, a6], n] - 
    S2[a4, n]*S2[a1, a5, a3, a6, a2, n] - S2[a1, a5, a3, a6, SP[a2, a4], n] - 
    S2[a1, a5, a3, SP[a2, a4], a6, n] + S2[a1, a5, a3, SP[a2, a6], a4, n] + 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] + S2[a1, a5, a4, a3, SP[a2, a6], n] + 
    S2[a1, a5, a4, SP[a3, a6], a2, n] - S2[a4, n]*S2[a1, a5, a6, a3, a2, n] - 
    S2[a1, a5, a6, a3, SP[a2, a4], n] - S2[a1, a5, a6, SP[a3, a4], a2, n] - 
    S2[a1, a5, SP[a3, a4], a2, a6, n] - S2[a1, a5, SP[a3, a4], a6, a2, n] + 
    S2[a1, a5, SP[a3, a6], a2, a4, n] + S2[a1, a5, SP[a3, a6], a4, a2, n] - 
    S2[a4, n]*S2[a1, a6, a3, a2, a5, n] - S2[a1, a6, a3, a2, SP[a4, a5], n] + 
    S2[a1, a6, a3, a4, SP[a2, a5], n] - S2[a4, n]*S2[a1, a6, a3, a5, a2, n] - 
    S2[a1, a6, a3, a5, SP[a2, a4], n] - S2[a1, a6, a3, SP[a4, a5], a2, n] + 
    S2[a1, a6, a4, a3, SP[a2, a5], n] + S2[a1, a6, a4, SP[a3, a5], a2, n] - 
    S2[a4, n]*S2[a1, a6, a5, a3, a2, n] - S2[a1, a6, a5, a3, SP[a2, a4], n] - 
    S2[a1, a6, a5, SP[a3, a4], a2, n] - S2[a1, a6, SP[a4, a5], a3, a2, n] + 
    S2[a1, SP[a3, a6], a2, a5, a4, n] + S2[a1, SP[a3, a6], a5, a2, a4, n] + 
    S2[a1, SP[a3, a6], a5, a4, a2, n] - S2[a1, SP[a4, a5], a3, a2, a6, n] - 
    S2[a1, SP[a4, a5], a3, a6, a2, n] - S2[a1, SP[a4, a5], a6, a3, a2, n] + 
    S2[a1, SP[a5, a6], a3, a2, a4, n] + S2[a1, SP[a5, a6], a3, a4, a2, n] + 
    S2[a1, SP[a5, a6], a4, a3, a2, n] + S2[a4, a1, a3, a2, SP[a5, a6], n] + 
    S2[a4, a1, a3, a6, SP[a2, a5], n] + S2[a4, a1, a3, SP[a2, a5], a6, n] + 
    S2[a4, a1, a3, SP[a5, a6], a2, n] + S2[a4, a1, a6, a3, SP[a2, a5], n] + 
    S2[a4, a1, a6, SP[a3, a5], a2, n] + S2[a4, a1, SP[a3, a5], a2, a6, n] + 
    S2[a4, a1, SP[a3, a5], a6, a2, n] + S2[a4, a1, SP[a5, a6], a3, a2, n] - 
    S2[a6, n]*S2[a4, a5, a1, a3, a2, n] - S2[a4, a5, a1, a3, SP[a2, a6], n] - 
    S2[a4, a5, a1, SP[a3, a6], a2, n] - S2[a4, a5, SP[a1, a6], a3, a2, n] + 
    S2[a5, n]*S2[a4, a6, a1, a3, a2, n] + S2[a4, a6, a1, a3, SP[a2, a5], n] + 
    S2[a4, a6, a1, SP[a3, a5], a2, n] + S2[a4, a6, SP[a1, a5], a3, a2, n] + 
    S2[a4, SP[a1, a5], a3, a2, a6, n] + S2[a4, SP[a1, a5], a3, a6, a2, n] + 
    S2[a4, SP[a1, a5], a6, a3, a2, n] - S2[a4, n]*S2[a6, a1, a3, a2, a5, n] - 
    S2[a6, a1, a3, a2, SP[a4, a5], n] - S2[a4, n]*S2[a6, a1, a3, a5, a2, n] - 
    S2[a6, a1, a3, a5, SP[a2, a4], n] - S2[a6, a1, a3, SP[a2, a4], a5, n] - 
    S2[a6, a1, a3, SP[a4, a5], a2, n] - S2[a4, n]*S2[a6, a1, a5, a3, a2, n] - 
    S2[a6, a1, a5, a3, SP[a2, a4], n] - S2[a6, a1, a5, SP[a3, a4], a2, n] - 
    S2[a6, a1, SP[a3, a4], a2, a5, n] - S2[a6, a1, SP[a3, a4], a5, a2, n] - 
    S2[a6, a1, SP[a4, a5], a3, a2, n] - S2[a6, SP[a1, a4], a3, a2, a5, n] - 
    S2[a6, SP[a1, a4], a3, a5, a2, n] - S2[a6, SP[a1, a4], a5, a3, a2, n] + 
    S2[SP[a1, a6], a3, a2, a5, a4, n] + S2[SP[a1, a6], a3, a5, a2, a4, n] + 
    S2[SP[a1, a6], a3, a5, a4, a2, n] + S2[SP[a1, a6], a5, a3, a2, a4, n] + 
    S2[SP[a1, a6], a5, a3, a4, a2, n] + S2[SP[a1, a6], a5, a4, a3, a2, n] + 
    S2[SP[a4, a5], a6, a1, a3, a2, n] - S2[SP[a4, a6], a1, a3, a2, a5, n] - 
    S2[SP[a4, a6], a1, a3, a5, a2, n] - S2[SP[a4, a6], a1, a5, a3, a2, n] - 
    S2[SP[a4, a6], a5, a1, a3, a2, n] + S2[a6, a1, a3, a2, a4, a5, n] + 
    S2[a6, a1, a3, a4, a2, a5, n] + S2[a6, a1, a3, a4, a5, a2, n] + 
    S2[a6, a1, a4, a3, a2, a5, n] + S2[a6, a1, a4, a3, a5, a2, n] + 
    S2[a6, a1, a4, a5, a3, a2, n] + S2[a6, a4, a1, a3, a2, a5, n] + 
    S2[a6, a4, a1, a3, a5, a2, n] + S2[a6, a4, a1, a5, a3, a2, n] + 
    S2[a6, a4, a5, a1, a3, a2, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a5_, a4_, a6_, a2_, a1_, a3_, n_] :> 
  -(S2[a4, a5, n]*S2[a1, a2, a3, a6, n]) - S2[a4, a5, n]*
     S2[a1, a2, a6, a3, n] + S2[a1, a2, SP[a3, a4], SP[a5, a6], n] + 
    S2[a1, a2, SP[a4, a6], SP[a3, a5], n] - S2[a4, a5, n]*
     S2[a1, a3, a2, a6, n] + S2[a1, a3, SP[a2, a4], SP[a5, a6], n] + 
    S2[a1, SP[a2, a4], a3, SP[a5, a6], n] + S2[a1, SP[a2, a4], a6, 
     SP[a3, a5], n] + S2[a1, SP[a2, a4], SP[a3, a5], a6, n] + 
    S2[a1, SP[a2, a4], SP[a5, a6], a3, n] + S2[a1, SP[a3, a4], a2, 
     SP[a5, a6], n] + S2[a1, SP[a3, a4], SP[a2, a5], a6, n] - 
    S2[a1, a3, n]*S2[a2, a5, a4, a6, n] - S2[a1, a3, n]*
     S2[a2, a5, a6, a4, n] + S2[a2, a5, SP[a1, a4], SP[a3, a6], n] + 
    S2[a2, a5, SP[a1, a6], SP[a3, a4], n] - S2[a1, a3, n]*
     S2[a2, a6, a5, a4, n] + S2[a2, a6, SP[a1, a5], SP[a3, a4], n] + 
    S2[a2, SP[a1, a5], a4, SP[a3, a6], n] + S2[a2, SP[a1, a5], a6, 
     SP[a3, a4], n] + S2[a2, SP[a1, a5], SP[a3, a4], a6, n] + 
    S2[a2, SP[a1, a5], SP[a3, a6], a4, n] + S2[a2, SP[a1, a6], a5, 
     SP[a3, a4], n] + S2[a2, SP[a1, a6], SP[a3, a5], a4, n] + 
    S2[a1, a3, n]*S2[a4, a5, a2, a6, n] - S2[a4, a5, SP[a1, a2], SP[a3, a6], 
     n] - S2[a4, SP[a1, a5], a2, SP[a3, a6], n] - 
    S2[a4, SP[a1, a5], SP[a2, a3], a6, n] + S2[SP[a1, a2], a5, a4, 
     SP[a3, a6], n] + S2[SP[a1, a2], a5, a6, SP[a3, a4], n] + 
    S2[SP[a1, a2], a5, SP[a3, a4], a6, n] + S2[SP[a1, a2], a5, SP[a3, a6], 
     a4, n] + S2[SP[a1, a2], a6, a5, SP[a3, a4], n] + 
    S2[SP[a1, a2], a6, SP[a3, a5], a4, n] + S2[SP[a1, a2], SP[a3, a5], a4, 
     a6, n] + S2[SP[a1, a2], SP[a3, a5], a6, a4, n] + 
    S2[SP[a1, a2], SP[a3, a6], a5, a4, n] + S2[SP[a1, a4], a2, a3, 
     SP[a5, a6], n] + S2[SP[a1, a4], a2, a6, SP[a3, a5], n] + 
    S2[SP[a1, a4], a2, SP[a3, a5], a6, n] + S2[SP[a1, a4], a2, SP[a5, a6], 
     a3, n] + S2[SP[a1, a4], a3, a2, SP[a5, a6], n] + 
    S2[SP[a1, a4], a3, SP[a2, a5], a6, n] - S2[SP[a1, a4], a5, a2, 
     SP[a3, a6], n] - S2[SP[a1, a4], a5, SP[a2, a3], a6, n] + 
    S2[SP[a1, a4], SP[a2, a5], a3, a6, n] + S2[SP[a1, a4], SP[a2, a5], a6, 
     a3, n] - S2[a1, a2, a3, a4, SP[a5, a6], n] - 
    S2[a6, n]*S2[a1, a2, a3, a5, a4, n] + 
    S2[a4, n]*S2[a1, a2, a3, a5, a6, n] + 
    S2[a4, n]*S2[a1, a2, a3, a6, a5, n] + S2[a1, a2, a3, a6, SP[a4, a5], n] + 
    S2[a1, a2, a3, SP[a4, a5], a6, n] - S2[a1, a2, a3, SP[a5, a6], a4, n] - 
    S2[a1, a2, a4, a3, SP[a5, a6], n] - S2[a1, a2, a4, a6, SP[a3, a5], n] - 
    S2[a1, a2, a4, SP[a3, a5], a6, n] - S2[a1, a2, a4, SP[a5, a6], a3, n] - 
    S2[a6, n]*S2[a1, a2, a5, a3, a4, n] + 
    S2[a4, n]*S2[a1, a2, a5, a3, a6, n] - 
    S2[a6, n]*S2[a1, a2, a5, a4, a3, n] - 
    2*S2[a1, a2, a5, a4, SP[a3, a6], n] + 
    S2[a4, n]*S2[a1, a2, a5, a6, a3, n] - 
    2*S2[a1, a2, a5, SP[a3, a6], a4, n] + 
    S2[a4, n]*S2[a1, a2, a6, a3, a5, n] + S2[a1, a2, a6, a3, SP[a4, a5], n] - 
    S2[a1, a2, a6, a4, SP[a3, a5], n] + S2[a4, n]*S2[a1, a2, a6, a5, a3, n] - 
    S2[a1, a2, a6, SP[a3, a5], a4, n] + S2[a1, a2, a6, SP[a4, a5], a3, n] - 
    S2[a1, a2, SP[a3, a5], a4, a6, n] - S2[a1, a2, SP[a3, a5], a6, a4, n] - 
    2*S2[a1, a2, SP[a3, a6], a5, a4, n] + S2[a1, a2, SP[a4, a5], a3, a6, n] + 
    S2[a1, a2, SP[a4, a5], a6, a3, n] - S2[a1, a2, SP[a5, a6], a3, a4, n] - 
    S2[a1, a2, SP[a5, a6], a4, a3, n] - S2[a1, a3, a2, a4, SP[a5, a6], n] - 
    S2[a6, n]*S2[a1, a3, a2, a5, a4, n] + 
    S2[a4, n]*S2[a1, a3, a2, a5, a6, n] + 
    S2[a4, n]*S2[a1, a3, a2, a6, a5, n] + S2[a1, a3, a2, a6, SP[a4, a5], n] + 
    S2[a1, a3, a2, SP[a4, a5], a6, n] - S2[a1, a3, a2, SP[a5, a6], a4, n] - 
    S2[a1, a3, a4, a2, SP[a5, a6], n] - S2[a1, a3, a4, SP[a2, a5], a6, n] - 
    S2[a6, n]*S2[a1, a3, a5, a2, a4, n] - S2[a1, a3, a5, a2, SP[a4, a6], n] - 
    S2[a6, n]*S2[a1, a3, a5, a4, a2, n] + 
    S2[a2, n]*S2[a1, a3, a5, a4, a6, n] + 
    S2[a2, n]*S2[a1, a3, a5, a6, a4, n] + S2[a1, a3, a5, a6, SP[a2, a4], n] + 
    S2[a1, a3, a5, SP[a2, a4], a6, n] - S2[a1, a3, a5, SP[a4, a6], a2, n] + 
    S2[a2, n]*S2[a1, a3, a6, a5, a4, n] + S2[a1, a3, a6, a5, SP[a2, a4], n] + 
    S2[a1, a3, a6, SP[a2, a5], a4, n] + S2[a1, a3, SP[a2, a5], a4, a6, n] + 
    S2[a1, a3, SP[a2, a5], a6, a4, n] - S2[a1, a3, SP[a5, a6], a2, a4, n] - 
    S2[a1, a3, SP[a5, a6], a4, a2, n] - S2[a1, a4, a2, a3, SP[a5, a6], n] - 
    S2[a1, a4, a2, a6, SP[a3, a5], n] - S2[a1, a4, a2, SP[a3, a5], a6, n] - 
    S2[a1, a4, a2, SP[a5, a6], a3, n] - S2[a1, a4, a3, a2, SP[a5, a6], n] - 
    S2[a1, a4, a3, SP[a2, a5], a6, n] + S2[a1, a4, a5, a2, SP[a3, a6], n] + 
    S2[a1, a4, a5, SP[a2, a3], a6, n] - S2[a1, a4, SP[a2, a5], a3, a6, n] - 
    S2[a1, a4, SP[a2, a5], a6, a3, n] - S2[a6, n]*S2[a1, a5, a2, a3, a4, n] - 
    S2[a1, a5, a2, a3, SP[a4, a6], n] - S2[a6, n]*S2[a1, a5, a2, a4, a3, n] - 
    S2[a1, a5, a2, a4, SP[a3, a6], n] - S2[a1, a5, a2, SP[a3, a6], a4, n] - 
    S2[a1, a5, a2, SP[a4, a6], a3, n] - S2[a6, n]*S2[a1, a5, a3, a2, a4, n] - 
    S2[a1, a5, a3, a2, SP[a4, a6], n] - S2[a6, n]*S2[a1, a5, a3, a4, a2, n] + 
    S2[a2, n]*S2[a1, a5, a3, a4, a6, n] + 
    S2[a2, n]*S2[a1, a5, a3, a6, a4, n] + S2[a1, a5, a3, a6, SP[a2, a4], n] + 
    S2[a1, a5, a3, SP[a2, a4], a6, n] - S2[a1, a5, a3, SP[a4, a6], a2, n] - 
    S2[a6, n]*S2[a1, a5, a4, a2, a3, n] - S2[a1, a5, a4, a2, SP[a3, a6], n] - 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] + 
    S2[a2, n]*S2[a1, a5, a4, a3, a6, n] + 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] + S2[a1, a5, a4, a6, SP[a2, a3], n] + 
    S2[a1, a5, a4, SP[a2, a3], a6, n] - S2[a1, a5, a4, SP[a3, a6], a2, n] + 
    S2[a2, n]*S2[a1, a5, a6, a3, a4, n] + S2[a1, a5, a6, a3, SP[a2, a4], n] + 
    S2[a2, n]*S2[a1, a5, a6, a4, a3, n] + S2[a1, a5, a6, a4, SP[a2, a3], n] + 
    S2[a1, a5, a6, SP[a2, a3], a4, n] + S2[a1, a5, a6, SP[a2, a4], a3, n] + 
    S2[a1, a5, SP[a2, a3], a4, a6, n] + S2[a1, a5, SP[a2, a3], a6, a4, n] + 
    S2[a1, a5, SP[a2, a4], a3, a6, n] + S2[a1, a5, SP[a2, a4], a6, a3, n] - 
    S2[a1, a5, SP[a3, a6], a2, a4, n] - S2[a1, a5, SP[a3, a6], a4, a2, n] - 
    S2[a1, a5, SP[a4, a6], a2, a3, n] - S2[a1, a5, SP[a4, a6], a3, a2, n] + 
    S2[a2, n]*S2[a1, a6, a3, a5, a4, n] + S2[a1, a6, a3, a5, SP[a2, a4], n] + 
    S2[a1, a6, a3, SP[a2, a5], a4, n] + S2[a2, n]*S2[a1, a6, a5, a3, a4, n] + 
    S2[a1, a6, a5, a3, SP[a2, a4], n] + S2[a2, n]*S2[a1, a6, a5, a4, a3, n] + 
    S2[a1, a6, a5, a4, SP[a2, a3], n] + S2[a1, a6, a5, SP[a2, a3], a4, n] + 
    S2[a1, a6, a5, SP[a2, a4], a3, n] + S2[a1, a6, SP[a2, a3], a5, a4, n] + 
    S2[a1, a6, SP[a2, a5], a3, a4, n] + S2[a1, a6, SP[a2, a5], a4, a3, n] + 
    S2[a1, SP[a2, a5], a3, a4, a6, n] + S2[a1, SP[a2, a5], a3, a6, a4, n] + 
    S2[a1, SP[a2, a5], a4, a3, a6, n] + S2[a1, SP[a2, a5], a4, a6, a3, n] + 
    S2[a1, SP[a2, a5], a6, a3, a4, n] + S2[a1, SP[a2, a5], a6, a4, a3, n] - 
    S2[a1, SP[a3, a6], a2, a5, a4, n] - S2[a1, SP[a3, a6], a5, a2, a4, n] - 
    S2[a1, SP[a3, a6], a5, a4, a2, n] - S2[a1, SP[a5, a6], a2, a3, a4, n] - 
    S2[a1, SP[a5, a6], a2, a4, a3, n] - S2[a1, SP[a5, a6], a3, a2, a4, n] - 
    S2[a1, SP[a5, a6], a3, a4, a2, n] - S2[a1, SP[a5, a6], a4, a2, a3, n] - 
    S2[a1, SP[a5, a6], a4, a3, a2, n] - S2[a2, a1, a5, a4, SP[a3, a6], n] - 
    S2[a2, a1, a5, a6, SP[a3, a4], n] - S2[a2, a1, a5, SP[a3, a4], a6, n] - 
    S2[a2, a1, a5, SP[a3, a6], a4, n] - S2[a2, a1, a6, a5, SP[a3, a4], n] - 
    S2[a2, a1, a6, SP[a3, a5], a4, n] - S2[a2, a1, SP[a3, a5], a4, a6, n] - 
    S2[a2, a1, SP[a3, a5], a6, a4, n] - S2[a2, a1, SP[a3, a6], a5, a4, n] + 
    S2[a4, n]*S2[a2, a5, a1, a3, a6, n] + S2[a2, a5, a1, a3, SP[a4, a6], n] - 
    S2[a2, a5, a1, a4, SP[a3, a6], n] + S2[a4, n]*S2[a2, a5, a1, a6, a3, n] - 
    S2[a2, a5, a1, SP[a3, a6], a4, n] + S2[a2, a5, a1, SP[a4, a6], a3, n] - 
    S2[a2, a5, a4, a1, SP[a3, a6], n] - S2[a2, a5, a4, SP[a1, a6], a3, n] - 
    S2[a2, a5, a6, a1, SP[a3, a4], n] - S2[a2, a5, a6, SP[a1, a4], a3, n] - 
    S2[a2, a5, SP[a1, a6], a3, a4, n] - S2[a2, a5, SP[a1, a6], a4, a3, n] + 
    S2[a5, n]*S2[a2, a6, a1, a3, a4, n] + S2[a2, a6, a1, a3, SP[a4, a5], n] + 
    S2[a5, n]*S2[a2, a6, a1, a4, a3, n] + S2[a2, a6, a1, a4, SP[a3, a5], n] - 
    S2[a2, a6, a1, a5, SP[a3, a4], n] + S2[a2, a6, a1, SP[a4, a5], a3, n] + 
    S2[a5, n]*S2[a2, a6, a4, a1, a3, n] + S2[a2, a6, a4, a1, SP[a3, a5], n] + 
    S2[a2, a6, a4, SP[a1, a5], a3, n] - S2[a2, a6, a5, a1, SP[a3, a4], n] - 
    S2[a2, a6, a5, SP[a1, a4], a3, n] + S2[a2, a6, SP[a4, a5], a1, a3, n] - 
    S2[a2, SP[a1, a5], a3, a4, a6, n] - S2[a2, SP[a1, a5], a3, a6, a4, n] - 
    S2[a2, SP[a1, a5], a4, a3, a6, n] - S2[a2, SP[a1, a5], a4, a6, a3, n] - 
    S2[a2, SP[a1, a5], a6, a3, a4, n] - S2[a2, SP[a1, a5], a6, a4, a3, n] - 
    S2[a2, SP[a1, a6], a3, a5, a4, n] - S2[a2, SP[a1, a6], a5, a3, a4, n] - 
    S2[a2, SP[a1, a6], a5, a4, a3, n] + S2[a2, SP[a4, a5], a1, a3, a6, n] + 
    S2[a2, SP[a4, a5], a1, a6, a3, n] + S2[a2, SP[a5, a6], a1, a3, a4, n] + 
    S2[a2, SP[a5, a6], a1, a4, a3, n] + S2[a2, SP[a5, a6], a4, a1, a3, n] - 
    S2[a4, a1, a2, a3, SP[a5, a6], n] - S2[a4, a1, a2, a6, SP[a3, a5], n] - 
    S2[a4, a1, a2, SP[a3, a5], a6, n] - S2[a4, a1, a2, SP[a5, a6], a3, n] - 
    S2[a4, a1, a3, a2, SP[a5, a6], n] - S2[a4, a1, a3, SP[a2, a5], a6, n] + 
    S2[a4, a1, a5, a2, SP[a3, a6], n] + S2[a4, a1, a5, SP[a2, a3], a6, n] - 
    S2[a4, a1, SP[a2, a5], a3, a6, n] - S2[a4, a1, SP[a2, a5], a6, a3, n] + 
    S2[a6, n]*S2[a4, a5, a1, a2, a3, n] + 
    2*S2[a4, a5, a1, a2, SP[a3, a6], n] + 
    S2[a6, n]*S2[a4, a5, a1, a3, a2, n] - 
    S2[a2, n]*S2[a4, a5, a1, a3, a6, n] - 
    S2[a2, n]*S2[a4, a5, a1, a6, a3, n] - S2[a4, a5, a1, a6, SP[a2, a3], n] + 
    S2[a4, a5, a1, SP[a3, a6], a2, n] + S2[a4, a5, a2, a1, SP[a3, a6], n] + 
    S2[a4, a5, a2, SP[a1, a6], a3, n] + S2[a4, a5, SP[a1, a6], a2, a3, n] + 
    S2[a4, a5, SP[a1, a6], a3, a2, n] - S2[a5, n]*S2[a4, a6, a1, a2, a3, n] - 
    S2[a4, a6, a1, a2, SP[a3, a5], n] - S2[a5, n]*S2[a4, a6, a1, a3, a2, n] - 
    S2[a4, a6, a1, a3, SP[a2, a5], n] - S2[a4, a6, a1, SP[a2, a5], a3, n] - 
    S2[a4, a6, a1, SP[a3, a5], a2, n] - S2[a4, a6, SP[a1, a5], a2, a3, n] - 
    S2[a4, a6, SP[a1, a5], a3, a2, n] - S2[a4, SP[a2, a5], a1, a3, a6, n] - 
    S2[a4, SP[a2, a5], a1, a6, a3, n] - S2[a4, n]*S2[a5, a2, a6, a1, a3, n] - 
    S2[a5, a2, a6, a1, SP[a3, a4], n] - S2[a5, a2, a6, SP[a1, a4], a3, n] - 
    S2[a5, a2, SP[a4, a6], a1, a3, n] + S2[a2, n]*S2[a5, a4, a6, a1, a3, n] + 
    S2[a5, a4, a6, a1, SP[a2, a3], n] + S2[a5, a4, a6, SP[a1, a2], a3, n] + 
    S2[a5, a4, SP[a2, a6], a1, a3, n] + S2[a4, n]*S2[a6, a1, a2, a3, a5, n] + 
    S2[a6, a1, a2, a3, SP[a4, a5], n] + S2[a4, n]*S2[a6, a1, a2, a5, a3, n] + 
    S2[a6, a1, a2, a5, SP[a3, a4], n] + S2[a6, a1, a2, SP[a3, a4], a5, n] + 
    S2[a6, a1, a2, SP[a4, a5], a3, n] + S2[a4, n]*S2[a6, a1, a3, a2, a5, n] + 
    S2[a6, a1, a3, a2, SP[a4, a5], n] - S2[a2, n]*S2[a6, a1, a3, a4, a5, n] - 
    S2[a6, a1, a3, a4, SP[a2, a5], n] + S2[a4, n]*S2[a6, a1, a3, a5, a2, n] + 
    S2[a6, a1, a3, a5, SP[a2, a4], n] + S2[a6, a1, a3, SP[a4, a5], a2, n] - 
    S2[a2, n]*S2[a6, a1, a4, a3, a5, n] - S2[a6, a1, a4, a3, SP[a2, a5], n] - 
    S2[a2, n]*S2[a6, a1, a4, a5, a3, n] - S2[a6, a1, a4, a5, SP[a2, a3], n] - 
    S2[a6, a1, a4, SP[a2, a3], a5, n] - S2[a6, a1, a4, SP[a2, a5], a3, n] + 
    S2[a4, n]*S2[a6, a1, a5, a2, a3, n] + S2[a6, a1, a5, a2, SP[a3, a4], n] + 
    S2[a4, n]*S2[a6, a1, a5, a3, a2, n] + S2[a6, a1, a5, a3, SP[a2, a4], n] + 
    S2[a6, a1, a5, SP[a2, a4], a3, n] + S2[a6, a1, a5, SP[a3, a4], a2, n] - 
    S2[a6, a1, SP[a2, a3], a4, a5, n] + S2[a6, a1, SP[a3, a4], a2, a5, n] + 
    S2[a6, a1, SP[a3, a4], a5, a2, n] + S2[a6, a1, SP[a4, a5], a2, a3, n] + 
    S2[a6, a1, SP[a4, a5], a3, a2, n] - S2[a2, n]*S2[a6, a4, a1, a3, a5, n] - 
    S2[a6, a4, a1, a3, SP[a2, a5], n] - S2[a2, n]*S2[a6, a4, a1, a5, a3, n] - 
    S2[a6, a4, a1, a5, SP[a2, a3], n] - S2[a6, a4, a1, SP[a2, a3], a5, n] - 
    S2[a6, a4, a1, SP[a2, a5], a3, n] - S2[a2, n]*S2[a6, a4, a5, a1, a3, n] - 
    S2[a6, a4, a5, a1, SP[a2, a3], n] - S2[a6, a4, a5, SP[a1, a2], a3, n] - 
    S2[a6, a4, SP[a1, a2], a3, a5, n] - S2[a6, a4, SP[a1, a2], a5, a3, n] - 
    S2[a6, a4, SP[a2, a5], a1, a3, n] - S2[a6, SP[a1, a2], a3, a4, a5, n] - 
    S2[a6, SP[a1, a2], a4, a3, a5, n] - S2[a6, SP[a1, a2], a4, a5, a3, n] + 
    S2[a6, SP[a1, a4], a2, a3, a5, n] + S2[a6, SP[a1, a4], a2, a5, a3, n] + 
    S2[a6, SP[a1, a4], a3, a2, a5, n] + S2[a6, SP[a1, a4], a3, a5, a2, n] + 
    S2[a6, SP[a1, a4], a5, a2, a3, n] + S2[a6, SP[a1, a4], a5, a3, a2, n] - 
    S2[a6, SP[a2, a4], a1, a3, a5, n] - S2[a6, SP[a2, a4], a1, a5, a3, n] - 
    S2[a6, SP[a2, a4], a5, a1, a3, n] - S2[SP[a1, a6], a2, a3, a5, a4, n] - 
    S2[SP[a1, a6], a2, a5, a3, a4, n] - S2[SP[a1, a6], a2, a5, a4, a3, n] - 
    S2[SP[a1, a6], a3, a2, a5, a4, n] - S2[SP[a1, a6], a3, a5, a2, a4, n] - 
    S2[SP[a1, a6], a3, a5, a4, a2, n] - S2[SP[a1, a6], a5, a2, a3, a4, n] - 
    S2[SP[a1, a6], a5, a2, a4, a3, n] - S2[SP[a1, a6], a5, a3, a2, a4, n] - 
    S2[SP[a1, a6], a5, a3, a4, a2, n] - S2[SP[a1, a6], a5, a4, a2, a3, n] - 
    S2[SP[a1, a6], a5, a4, a3, a2, n] + S2[SP[a2, a5], a4, a6, a1, a3, n] + 
    S2[SP[a2, a5], a6, a1, a3, a4, n] + S2[SP[a2, a5], a6, a1, a4, a3, n] + 
    S2[SP[a2, a5], a6, a4, a1, a3, n] - S2[SP[a2, a6], a1, a3, a4, a5, n] - 
    S2[SP[a2, a6], a1, a4, a3, a5, n] - S2[SP[a2, a6], a1, a4, a5, a3, n] - 
    S2[SP[a2, a6], a4, a1, a3, a5, n] - S2[SP[a2, a6], a4, a1, a5, a3, n] - 
    S2[SP[a2, a6], a4, a5, a1, a3, n] - S2[SP[a4, a5], a2, a6, a1, a3, n] - 
    S2[SP[a4, a5], a6, a1, a2, a3, n] - S2[SP[a4, a5], a6, a1, a3, a2, n] + 
    S2[SP[a4, a6], a1, a2, a3, a5, n] + S2[SP[a4, a6], a1, a2, a5, a3, n] + 
    S2[SP[a4, a6], a1, a3, a2, a5, n] + S2[SP[a4, a6], a1, a3, a5, a2, n] + 
    S2[SP[a4, a6], a1, a5, a2, a3, n] + S2[SP[a4, a6], a1, a5, a3, a2, n] + 
    S2[SP[a4, a6], a5, a1, a2, a3, n] + S2[SP[a4, a6], a5, a1, a3, a2, n] + 
    S2[a6, a2, a1, a3, a4, a5, n] + S2[a6, a2, a1, a4, a3, a5, n] + 
    S2[a6, a2, a1, a4, a5, a3, n] + S2[a6, a2, a4, a1, a3, a5, n] + 
    S2[a6, a2, a4, a1, a5, a3, n] + S2[a6, a2, a4, a5, a1, a3, n] + 
    S2[a6, a4, a2, a1, a3, a5, n] + S2[a6, a4, a2, a1, a5, a3, n] + 
    S2[a6, a4, a2, a5, a1, a3, n] + S2[a6, a4, a5, a2, a1, a3, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a5_, a4_, a6_, a2_, a3_, a1_, n_] :> 
  S2[a4, a5, n]*S2[a1, a3, a2, a6, n] - S2[a1, a3, SP[a2, a4], SP[a5, a6], 
     n] - S2[a1, SP[a3, a4], a2, SP[a5, a6], n] - 
    S2[a1, SP[a3, a4], SP[a2, a5], a6, n] + S2[a1, a3, n]*
     S2[a2, a5, a4, a6, n] + S2[a1, a3, n]*S2[a2, a5, a6, a4, n] - 
    S2[a2, a5, SP[a1, a4], SP[a3, a6], n] - S2[a2, a5, SP[a1, a6], 
     SP[a3, a4], n] + S2[a1, a3, n]*S2[a2, a6, a5, a4, n] - 
    S2[a2, a6, SP[a1, a5], SP[a3, a4], n] - S2[a2, SP[a1, a5], a4, 
     SP[a3, a6], n] - S2[a2, SP[a1, a5], a6, SP[a3, a4], n] - 
    S2[a2, SP[a1, a5], SP[a3, a4], a6, n] - S2[a2, SP[a1, a5], SP[a3, a6], 
     a4, n] - S2[a2, SP[a1, a6], a5, SP[a3, a4], n] - 
    S2[a2, SP[a1, a6], SP[a3, a5], a4, n] - S2[a1, a3, n]*
     S2[a4, a5, a2, a6, n] + S2[a4, a5, SP[a1, a2], SP[a3, a6], n] + 
    S2[a4, SP[a1, a5], a2, SP[a3, a6], n] + S2[a4, SP[a1, a5], SP[a2, a3], 
     a6, n] - S2[SP[a1, a2], a5, a4, SP[a3, a6], n] - 
    S2[SP[a1, a2], a5, a6, SP[a3, a4], n] - S2[SP[a1, a2], a5, SP[a3, a4], 
     a6, n] - S2[SP[a1, a2], a5, SP[a3, a6], a4, n] - 
    S2[SP[a1, a2], a6, a5, SP[a3, a4], n] - S2[SP[a1, a2], a6, SP[a3, a5], 
     a4, n] - S2[SP[a1, a2], SP[a3, a5], a4, a6, n] - 
    S2[SP[a1, a2], SP[a3, a5], a6, a4, n] - S2[SP[a1, a2], SP[a3, a6], a5, 
     a4, n] - S2[SP[a1, a4], a3, a2, SP[a5, a6], n] - 
    S2[SP[a1, a4], a3, SP[a2, a5], a6, n] + S2[SP[a1, a4], a5, a2, 
     SP[a3, a6], n] + S2[SP[a1, a4], a5, SP[a2, a3], a6, n] + 
    S2[a1, a2, a5, a4, SP[a3, a6], n] + S2[a1, a2, a5, a6, SP[a3, a4], n] + 
    S2[a1, a2, a5, SP[a3, a4], a6, n] + S2[a1, a2, a5, SP[a3, a6], a4, n] + 
    S2[a1, a2, a6, a5, SP[a3, a4], n] + S2[a1, a2, a6, SP[a3, a5], a4, n] + 
    S2[a1, a2, SP[a3, a5], a4, a6, n] + S2[a1, a2, SP[a3, a5], a6, a4, n] + 
    S2[a1, a2, SP[a3, a6], a5, a4, n] + S2[a1, a3, a2, a4, SP[a5, a6], n] + 
    S2[a6, n]*S2[a1, a3, a2, a5, a4, n] - 
    S2[a4, n]*S2[a1, a3, a2, a5, a6, n] - 
    S2[a4, n]*S2[a1, a3, a2, a6, a5, n] - S2[a1, a3, a2, a6, SP[a4, a5], n] - 
    S2[a1, a3, a2, SP[a4, a5], a6, n] + S2[a1, a3, a2, SP[a5, a6], a4, n] + 
    S2[a1, a3, a4, a2, SP[a5, a6], n] + S2[a1, a3, a4, SP[a2, a5], a6, n] + 
    S2[a6, n]*S2[a1, a3, a5, a2, a4, n] + S2[a1, a3, a5, a2, SP[a4, a6], n] + 
    S2[a6, n]*S2[a1, a3, a5, a4, a2, n] - 
    S2[a2, n]*S2[a1, a3, a5, a4, a6, n] - 
    S2[a2, n]*S2[a1, a3, a5, a6, a4, n] - S2[a1, a3, a5, a6, SP[a2, a4], n] - 
    S2[a1, a3, a5, SP[a2, a4], a6, n] + S2[a1, a3, a5, SP[a4, a6], a2, n] - 
    S2[a2, n]*S2[a1, a3, a6, a5, a4, n] - S2[a1, a3, a6, a5, SP[a2, a4], n] - 
    S2[a1, a3, a6, SP[a2, a5], a4, n] - S2[a1, a3, SP[a2, a5], a4, a6, n] - 
    S2[a1, a3, SP[a2, a5], a6, a4, n] + S2[a1, a3, SP[a5, a6], a2, a4, n] + 
    S2[a1, a3, SP[a5, a6], a4, a2, n] + S2[a1, a4, a3, a2, SP[a5, a6], n] + 
    S2[a1, a4, a3, SP[a2, a5], a6, n] - S2[a1, a4, a5, a2, SP[a3, a6], n] - 
    S2[a1, a4, a5, SP[a2, a3], a6, n] + S2[a4, n]*S2[a1, a5, a2, a3, a6, n] + 
    S2[a1, a5, a2, a3, SP[a4, a6], n] + S2[a4, n]*S2[a1, a5, a2, a6, a3, n] + 
    S2[a1, a5, a2, a6, SP[a3, a4], n] + S2[a1, a5, a2, SP[a3, a4], a6, n] + 
    S2[a1, a5, a2, SP[a4, a6], a3, n] + S2[a6, n]*S2[a1, a5, a3, a2, a4, n] + 
    S2[a1, a5, a3, a2, SP[a4, a6], n] + S2[a6, n]*S2[a1, a5, a3, a4, a2, n] - 
    S2[a2, n]*S2[a1, a5, a3, a4, a6, n] - 
    S2[a2, n]*S2[a1, a5, a3, a6, a4, n] - S2[a1, a5, a3, a6, SP[a2, a4], n] - 
    S2[a1, a5, a3, SP[a2, a4], a6, n] + S2[a1, a5, a3, SP[a4, a6], a2, n] + 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] - 
    S2[a2, n]*S2[a1, a5, a4, a3, a6, n] - 
    S2[a2, n]*S2[a1, a5, a4, a6, a3, n] - S2[a1, a5, a4, a6, SP[a2, a3], n] - 
    S2[a1, a5, a4, SP[a2, a3], a6, n] - S2[a1, a5, a4, SP[a2, a6], a3, n] + 
    S2[a1, a5, a4, SP[a3, a6], a2, n] - S2[a2, n]*S2[a1, a5, a6, a3, a4, n] - 
    S2[a1, a5, a6, a3, SP[a2, a4], n] - S2[a2, n]*S2[a1, a5, a6, a4, a3, n] - 
    S2[a1, a5, a6, a4, SP[a2, a3], n] - S2[a1, a5, a6, SP[a2, a3], a4, n] - 
    S2[a1, a5, a6, SP[a2, a4], a3, n] - S2[a1, a5, SP[a2, a3], a4, a6, n] - 
    S2[a1, a5, SP[a2, a3], a6, a4, n] - S2[a1, a5, SP[a2, a6], a3, a4, n] - 
    S2[a1, a5, SP[a2, a6], a4, a3, n] + S2[a1, a5, SP[a3, a6], a2, a4, n] + 
    S2[a1, a5, SP[a3, a6], a4, a2, n] + S2[a1, a5, SP[a4, a6], a3, a2, n] + 
    S2[a5, n]*S2[a1, a6, a2, a3, a4, n] + S2[a1, a6, a2, a3, SP[a4, a5], n] + 
    S2[a5, n]*S2[a1, a6, a2, a4, a3, n] + S2[a1, a6, a2, a4, SP[a3, a5], n] + 
    S2[a1, a6, a2, SP[a3, a5], a4, n] + S2[a1, a6, a2, SP[a4, a5], a3, n] - 
    S2[a2, n]*S2[a1, a6, a3, a5, a4, n] - S2[a1, a6, a3, a5, SP[a2, a4], n] - 
    S2[a1, a6, a3, SP[a2, a5], a4, n] + S2[a5, n]*S2[a1, a6, a4, a2, a3, n] + 
    S2[a1, a6, a4, a2, SP[a3, a5], n] + S2[a1, a6, a4, SP[a2, a5], a3, n] - 
    S2[a2, n]*S2[a1, a6, a5, a3, a4, n] - S2[a1, a6, a5, a3, SP[a2, a4], n] - 
    S2[a2, n]*S2[a1, a6, a5, a4, a3, n] - S2[a1, a6, a5, a4, SP[a2, a3], n] - 
    S2[a1, a6, a5, SP[a2, a3], a4, n] - S2[a1, a6, a5, SP[a2, a4], a3, n] - 
    S2[a1, a6, SP[a2, a3], a5, a4, n] + S2[a1, a6, SP[a4, a5], a2, a3, n] - 
    S2[a1, SP[a2, a5], a3, a4, a6, n] - S2[a1, SP[a2, a5], a3, a6, a4, n] - 
    S2[a1, SP[a2, a5], a4, a3, a6, n] - S2[a1, SP[a2, a5], a4, a6, a3, n] - 
    S2[a1, SP[a2, a5], a6, a3, a4, n] - S2[a1, SP[a2, a5], a6, a4, a3, n] - 
    S2[a1, SP[a2, a6], a3, a5, a4, n] - S2[a1, SP[a2, a6], a5, a3, a4, n] - 
    S2[a1, SP[a2, a6], a5, a4, a3, n] + S2[a1, SP[a3, a6], a2, a5, a4, n] + 
    S2[a1, SP[a3, a6], a5, a2, a4, n] + S2[a1, SP[a3, a6], a5, a4, a2, n] + 
    S2[a1, SP[a4, a5], a2, a3, a6, n] + S2[a1, SP[a4, a5], a2, a6, a3, n] + 
    S2[a1, SP[a5, a6], a2, a3, a4, n] + S2[a1, SP[a5, a6], a2, a4, a3, n] + 
    S2[a1, SP[a5, a6], a3, a2, a4, n] + S2[a1, SP[a5, a6], a3, a4, a2, n] + 
    S2[a1, SP[a5, a6], a4, a2, a3, n] + S2[a1, SP[a5, a6], a4, a3, a2, n] + 
    S2[a2, a1, a5, a4, SP[a3, a6], n] + S2[a2, a1, a5, a6, SP[a3, a4], n] + 
    S2[a2, a1, a5, SP[a3, a4], a6, n] + S2[a2, a1, a5, SP[a3, a6], a4, n] + 
    S2[a2, a1, a6, a5, SP[a3, a4], n] + S2[a2, a1, a6, SP[a3, a5], a4, n] + 
    S2[a2, a1, SP[a3, a5], a4, a6, n] + S2[a2, a1, SP[a3, a5], a6, a4, n] + 
    S2[a2, a1, SP[a3, a6], a5, a4, n] - S2[a4, n]*S2[a2, a5, a1, a3, a6, n] - 
    S2[a2, a5, a1, a3, SP[a4, a6], n] + S2[a2, a5, a1, a4, SP[a3, a6], n] - 
    S2[a4, n]*S2[a2, a5, a1, a6, a3, n] + S2[a2, a5, a1, SP[a3, a6], a4, n] - 
    S2[a2, a5, a1, SP[a4, a6], a3, n] + S2[a2, a5, a4, a1, SP[a3, a6], n] + 
    S2[a2, a5, a4, SP[a1, a6], a3, n] + S2[a2, a5, a6, a1, SP[a3, a4], n] + 
    S2[a2, a5, a6, SP[a1, a4], a3, n] + S2[a2, a5, SP[a1, a6], a3, a4, n] + 
    S2[a2, a5, SP[a1, a6], a4, a3, n] - S2[a5, n]*S2[a2, a6, a1, a3, a4, n] - 
    S2[a2, a6, a1, a3, SP[a4, a5], n] - S2[a5, n]*S2[a2, a6, a1, a4, a3, n] - 
    S2[a2, a6, a1, a4, SP[a3, a5], n] + S2[a2, a6, a1, a5, SP[a3, a4], n] - 
    S2[a2, a6, a1, SP[a4, a5], a3, n] - S2[a5, n]*S2[a2, a6, a4, a1, a3, n] - 
    S2[a2, a6, a4, a1, SP[a3, a5], n] - S2[a2, a6, a4, SP[a1, a5], a3, n] + 
    S2[a2, a6, a5, a1, SP[a3, a4], n] + S2[a2, a6, a5, SP[a1, a4], a3, n] - 
    S2[a2, a6, SP[a4, a5], a1, a3, n] + S2[a2, SP[a1, a5], a3, a4, a6, n] + 
    S2[a2, SP[a1, a5], a3, a6, a4, n] + S2[a2, SP[a1, a5], a4, a3, a6, n] + 
    S2[a2, SP[a1, a5], a4, a6, a3, n] + S2[a2, SP[a1, a5], a6, a3, a4, n] + 
    S2[a2, SP[a1, a5], a6, a4, a3, n] + S2[a2, SP[a1, a6], a3, a5, a4, n] + 
    S2[a2, SP[a1, a6], a5, a3, a4, n] + S2[a2, SP[a1, a6], a5, a4, a3, n] - 
    S2[a2, SP[a4, a5], a1, a3, a6, n] - S2[a2, SP[a4, a5], a1, a6, a3, n] - 
    S2[a2, SP[a5, a6], a1, a3, a4, n] - S2[a2, SP[a5, a6], a1, a4, a3, n] - 
    S2[a2, SP[a5, a6], a4, a1, a3, n] + S2[a4, a1, a3, a2, SP[a5, a6], n] + 
    S2[a4, a1, a3, SP[a2, a5], a6, n] - S2[a4, a1, a5, a2, SP[a3, a6], n] - 
    S2[a4, a1, a5, SP[a2, a3], a6, n] - S2[a4, a5, a1, a2, SP[a3, a6], n] - 
    S2[a6, n]*S2[a4, a5, a1, a3, a2, n] + 
    S2[a2, n]*S2[a4, a5, a1, a3, a6, n] + 
    S2[a2, n]*S2[a4, a5, a1, a6, a3, n] + S2[a4, a5, a1, a6, SP[a2, a3], n] + 
    S2[a4, a5, a1, SP[a2, a6], a3, n] - S2[a4, a5, a1, SP[a3, a6], a2, n] - 
    S2[a4, a5, a2, a1, SP[a3, a6], n] - S2[a4, a5, a2, SP[a1, a6], a3, n] - 
    S2[a4, a5, SP[a1, a6], a3, a2, n] + S2[a5, n]*S2[a4, a6, a1, a3, a2, n] + 
    S2[a4, a6, a1, a3, SP[a2, a5], n] + S2[a4, a6, a1, SP[a3, a5], a2, n] + 
    S2[a4, a6, SP[a1, a5], a3, a2, n] - S2[a4, SP[a1, a5], a2, a3, a6, n] - 
    S2[a4, SP[a1, a5], a2, a6, a3, n] + S2[a4, SP[a2, a5], a1, a3, a6, n] + 
    S2[a4, SP[a2, a5], a1, a6, a3, n] - S2[a4, n]*S2[a5, a1, a6, a2, a3, n] - 
    S2[a5, a1, a6, a2, SP[a3, a4], n] - S2[a5, a1, a6, SP[a2, a4], a3, n] - 
    S2[a5, a1, SP[a4, a6], a2, a3, n] + S2[a4, n]*S2[a5, a2, a6, a1, a3, n] + 
    S2[a5, a2, a6, a1, SP[a3, a4], n] + S2[a5, a2, a6, SP[a1, a4], a3, n] + 
    S2[a5, a2, SP[a4, a6], a1, a3, n] - S2[a2, n]*S2[a5, a4, a6, a1, a3, n] - 
    S2[a5, a4, a6, a1, SP[a2, a3], n] + S2[a1, n]*S2[a5, a4, a6, a2, a3, n] + 
    S2[a5, a4, a6, a2, SP[a1, a3], n] + S2[a5, a4, SP[a1, a6], a2, a3, n] - 
    S2[a5, a4, SP[a2, a6], a1, a3, n] - S2[a4, n]*S2[a6, a1, a3, a2, a5, n] - 
    S2[a6, a1, a3, a2, SP[a4, a5], n] + S2[a2, n]*S2[a6, a1, a3, a4, a5, n] + 
    S2[a6, a1, a3, a4, SP[a2, a5], n] - S2[a4, n]*S2[a6, a1, a3, a5, a2, n] - 
    S2[a6, a1, a3, a5, SP[a2, a4], n] - S2[a6, a1, a3, SP[a4, a5], a2, n] + 
    S2[a2, n]*S2[a6, a1, a4, a3, a5, n] + S2[a6, a1, a4, a3, SP[a2, a5], n] + 
    S2[a2, n]*S2[a6, a1, a4, a5, a3, n] + S2[a6, a1, a4, a5, SP[a2, a3], n] + 
    S2[a6, a1, a4, SP[a2, a3], a5, n] + S2[a6, a1, a4, SP[a2, a5], a3, n] - 
    S2[a4, n]*S2[a6, a1, a5, a3, a2, n] - S2[a6, a1, a5, a3, SP[a2, a4], n] - 
    S2[a6, a1, a5, SP[a3, a4], a2, n] + S2[a6, a1, SP[a2, a3], a4, a5, n] + 
    S2[a6, a1, SP[a2, a4], a3, a5, n] + S2[a6, a1, SP[a2, a4], a5, a3, n] - 
    S2[a6, a1, SP[a3, a4], a2, a5, n] - S2[a6, a1, SP[a3, a4], a5, a2, n] - 
    S2[a6, a1, SP[a4, a5], a3, a2, n] - S2[a1, n]*S2[a6, a2, a3, a4, a5, n] - 
    S2[a6, a2, a3, a4, SP[a1, a5], n] - S2[a6, a2, a3, SP[a1, a4], a5, n] - 
    S2[a1, n]*S2[a6, a2, a4, a3, a5, n] - S2[a6, a2, a4, a3, SP[a1, a5], n] - 
    S2[a1, n]*S2[a6, a2, a4, a5, a3, n] - S2[a6, a2, a4, a5, SP[a1, a3], n] - 
    S2[a6, a2, a4, SP[a1, a3], a5, n] - S2[a6, a2, a4, SP[a1, a5], a3, n] - 
    S2[a6, a2, SP[a1, a3], a4, a5, n] - S2[a6, a2, SP[a1, a4], a3, a5, n] - 
    S2[a6, a2, SP[a1, a4], a5, a3, n] + S2[a2, n]*S2[a6, a4, a1, a3, a5, n] + 
    S2[a6, a4, a1, a3, SP[a2, a5], n] + S2[a2, n]*S2[a6, a4, a1, a5, a3, n] + 
    S2[a6, a4, a1, a5, SP[a2, a3], n] + S2[a6, a4, a1, SP[a2, a3], a5, n] + 
    S2[a6, a4, a1, SP[a2, a5], a3, n] - S2[a1, n]*S2[a6, a4, a2, a3, a5, n] - 
    S2[a6, a4, a2, a3, SP[a1, a5], n] - S2[a1, n]*S2[a6, a4, a2, a5, a3, n] - 
    S2[a6, a4, a2, a5, SP[a1, a3], n] - S2[a6, a4, a2, SP[a1, a3], a5, n] - 
    S2[a6, a4, a2, SP[a1, a5], a3, n] + S2[a2, n]*S2[a6, a4, a5, a1, a3, n] + 
    S2[a6, a4, a5, a1, SP[a2, a3], n] - S2[a1, n]*S2[a6, a4, a5, a2, a3, n] - 
    S2[a6, a4, a5, a2, SP[a1, a3], n] - S2[a6, a4, SP[a1, a5], a2, a3, n] + 
    S2[a6, a4, SP[a2, a5], a1, a3, n] - S2[a6, SP[a1, a4], a2, a3, a5, n] - 
    S2[a6, SP[a1, a4], a2, a5, a3, n] - S2[a6, SP[a1, a4], a3, a2, a5, n] - 
    S2[a6, SP[a1, a4], a3, a5, a2, n] - S2[a6, SP[a1, a4], a5, a2, a3, n] - 
    S2[a6, SP[a1, a4], a5, a3, a2, n] + S2[a6, SP[a2, a4], a1, a3, a5, n] + 
    S2[a6, SP[a2, a4], a1, a5, a3, n] + S2[a6, SP[a2, a4], a5, a1, a3, n] + 
    S2[SP[a1, a5], a4, a6, a2, a3, n] + S2[SP[a1, a5], a6, a2, a3, a4, n] + 
    S2[SP[a1, a5], a6, a2, a4, a3, n] + S2[SP[a1, a5], a6, a4, a2, a3, n] - 
    S2[SP[a1, a6], a2, a3, a4, a5, n] - S2[SP[a1, a6], a2, a4, a3, a5, n] - 
    S2[SP[a1, a6], a2, a4, a5, a3, n] + S2[SP[a1, a6], a3, a2, a5, a4, n] + 
    S2[SP[a1, a6], a3, a5, a2, a4, n] + S2[SP[a1, a6], a3, a5, a4, a2, n] - 
    S2[SP[a1, a6], a4, a2, a3, a5, n] - S2[SP[a1, a6], a4, a2, a5, a3, n] - 
    S2[SP[a1, a6], a4, a5, a2, a3, n] + S2[SP[a1, a6], a5, a3, a2, a4, n] + 
    S2[SP[a1, a6], a5, a3, a4, a2, n] + S2[SP[a1, a6], a5, a4, a3, a2, n] - 
    S2[SP[a2, a5], a4, a6, a1, a3, n] - S2[SP[a2, a5], a6, a1, a3, a4, n] - 
    S2[SP[a2, a5], a6, a1, a4, a3, n] - S2[SP[a2, a5], a6, a4, a1, a3, n] + 
    S2[SP[a2, a6], a1, a3, a4, a5, n] + S2[SP[a2, a6], a1, a4, a3, a5, n] + 
    S2[SP[a2, a6], a1, a4, a5, a3, n] + S2[SP[a2, a6], a4, a1, a3, a5, n] + 
    S2[SP[a2, a6], a4, a1, a5, a3, n] + S2[SP[a2, a6], a4, a5, a1, a3, n] - 
    S2[SP[a4, a5], a1, a6, a2, a3, n] + S2[SP[a4, a5], a2, a6, a1, a3, n] + 
    S2[SP[a4, a5], a6, a1, a3, a2, n] - S2[SP[a4, a6], a1, a3, a2, a5, n] - 
    S2[SP[a4, a6], a1, a3, a5, a2, n] - S2[SP[a4, a6], a1, a5, a3, a2, n] - 
    S2[SP[a4, a6], a5, a1, a3, a2, n] + S2[a6, a2, a3, a1, a4, a5, n] + 
    S2[a6, a2, a3, a4, a1, a5, n] + S2[a6, a2, a3, a4, a5, a1, n] + 
    S2[a6, a2, a4, a3, a1, a5, n] + S2[a6, a2, a4, a3, a5, a1, n] + 
    S2[a6, a2, a4, a5, a3, a1, n] + S2[a6, a4, a2, a3, a1, a5, n] + 
    S2[a6, a4, a2, a3, a5, a1, n] + S2[a6, a4, a2, a5, a3, a1, n] + 
    S2[a6, a4, a5, a2, a3, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a5_, a4_, a6_, a3_, a1_, a2_, n_] :> 
  -(S2[a4, a5, n]*S2[a1, a2, a3, a6, n]) + S2[a1, a2, SP[a3, a4], SP[a5, a6], 
     n] - S2[a4, a5, n]*S2[a1, a3, a2, a6, n] - 
    S2[a4, a5, n]*S2[a1, a3, a6, a2, n] + S2[a1, a3, SP[a2, a4], SP[a5, a6], 
     n] + S2[a1, a3, SP[a4, a6], SP[a2, a5], n] + S2[a1, SP[a2, a4], a3, 
     SP[a5, a6], n] + S2[a1, SP[a2, a4], SP[a3, a5], a6, n] + 
    S2[a1, SP[a3, a4], a2, SP[a5, a6], n] + S2[a1, SP[a3, a4], a6, 
     SP[a2, a5], n] + S2[a1, SP[a3, a4], SP[a2, a5], a6, n] + 
    S2[a1, SP[a3, a4], SP[a5, a6], a2, n] - S2[a1, a2, n]*
     S2[a3, a5, a4, a6, n] - S2[a1, a2, n]*S2[a3, a5, a6, a4, n] + 
    S2[a3, a5, SP[a1, a4], SP[a2, a6], n] + S2[a3, a5, SP[a1, a6], 
     SP[a2, a4], n] - S2[a1, a2, n]*S2[a3, a6, a5, a4, n] + 
    S2[a3, a6, SP[a1, a5], SP[a2, a4], n] + S2[a3, SP[a1, a5], a4, 
     SP[a2, a6], n] + S2[a3, SP[a1, a5], a6, SP[a2, a4], n] + 
    S2[a3, SP[a1, a5], SP[a2, a4], a6, n] + S2[a3, SP[a1, a5], SP[a2, a6], 
     a4, n] + S2[a3, SP[a1, a6], a5, SP[a2, a4], n] + 
    S2[a3, SP[a1, a6], SP[a2, a5], a4, n] + S2[a1, a2, n]*
     S2[a4, a5, a3, a6, n] - S2[a4, a5, SP[a1, a3], SP[a2, a6], n] - 
    S2[a4, SP[a1, a5], a3, SP[a2, a6], n] - S2[a4, SP[a1, a5], SP[a2, a3], 
     a6, n] + S2[SP[a1, a3], a5, a4, SP[a2, a6], n] + 
    S2[SP[a1, a3], a5, a6, SP[a2, a4], n] + S2[SP[a1, a3], a5, SP[a2, a4], 
     a6, n] + S2[SP[a1, a3], a5, SP[a2, a6], a4, n] + 
    S2[SP[a1, a3], a6, a5, SP[a2, a4], n] + S2[SP[a1, a3], a6, SP[a2, a5], 
     a4, n] + S2[SP[a1, a3], SP[a2, a5], a4, a6, n] + 
    S2[SP[a1, a3], SP[a2, a5], a6, a4, n] + S2[SP[a1, a3], SP[a2, a6], a5, 
     a4, n] + S2[SP[a1, a4], a2, a3, SP[a5, a6], n] + 
    S2[SP[a1, a4], a2, SP[a3, a5], a6, n] + S2[SP[a1, a4], a3, a2, 
     SP[a5, a6], n] + S2[SP[a1, a4], a3, a6, SP[a2, a5], n] + 
    S2[SP[a1, a4], a3, SP[a2, a5], a6, n] + S2[SP[a1, a4], a3, SP[a5, a6], 
     a2, n] - S2[SP[a1, a4], a5, a3, SP[a2, a6], n] - 
    S2[SP[a1, a4], a5, SP[a2, a3], a6, n] + S2[SP[a1, a4], SP[a3, a5], a2, 
     a6, n] + S2[SP[a1, a4], SP[a3, a5], a6, a2, n] - 
    S2[a1, a2, a3, a4, SP[a5, a6], n] - S2[a6, n]*S2[a1, a2, a3, a5, a4, n] + 
    S2[a4, n]*S2[a1, a2, a3, a5, a6, n] + 
    S2[a4, n]*S2[a1, a2, a3, a6, a5, n] + S2[a1, a2, a3, a6, SP[a4, a5], n] + 
    S2[a1, a2, a3, SP[a4, a5], a6, n] - S2[a1, a2, a3, SP[a5, a6], a4, n] - 
    S2[a1, a2, a4, a3, SP[a5, a6], n] - S2[a1, a2, a4, SP[a3, a5], a6, n] - 
    S2[a6, n]*S2[a1, a2, a5, a3, a4, n] - S2[a1, a2, a5, a3, SP[a4, a6], n] - 
    S2[a6, n]*S2[a1, a2, a5, a4, a3, n] + 
    S2[a3, n]*S2[a1, a2, a5, a4, a6, n] + 
    S2[a3, n]*S2[a1, a2, a5, a6, a4, n] + S2[a1, a2, a5, a6, SP[a3, a4], n] + 
    S2[a1, a2, a5, SP[a3, a4], a6, n] - S2[a1, a2, a5, SP[a4, a6], a3, n] + 
    S2[a3, n]*S2[a1, a2, a6, a5, a4, n] + S2[a1, a2, a6, a5, SP[a3, a4], n] + 
    S2[a1, a2, a6, SP[a3, a5], a4, n] + S2[a1, a2, SP[a3, a5], a4, a6, n] + 
    S2[a1, a2, SP[a3, a5], a6, a4, n] - S2[a1, a2, SP[a5, a6], a3, a4, n] - 
    S2[a1, a2, SP[a5, a6], a4, a3, n] - S2[a1, a3, a2, a4, SP[a5, a6], n] - 
    S2[a6, n]*S2[a1, a3, a2, a5, a4, n] + 
    S2[a4, n]*S2[a1, a3, a2, a5, a6, n] + 
    S2[a4, n]*S2[a1, a3, a2, a6, a5, n] + S2[a1, a3, a2, a6, SP[a4, a5], n] + 
    S2[a1, a3, a2, SP[a4, a5], a6, n] - S2[a1, a3, a2, SP[a5, a6], a4, n] - 
    S2[a1, a3, a4, a2, SP[a5, a6], n] - S2[a1, a3, a4, a6, SP[a2, a5], n] - 
    S2[a1, a3, a4, SP[a2, a5], a6, n] - S2[a1, a3, a4, SP[a5, a6], a2, n] - 
    S2[a6, n]*S2[a1, a3, a5, a2, a4, n] + 
    S2[a4, n]*S2[a1, a3, a5, a2, a6, n] - 
    S2[a6, n]*S2[a1, a3, a5, a4, a2, n] - 
    2*S2[a1, a3, a5, a4, SP[a2, a6], n] + 
    S2[a4, n]*S2[a1, a3, a5, a6, a2, n] - 
    2*S2[a1, a3, a5, SP[a2, a6], a4, n] + 
    S2[a4, n]*S2[a1, a3, a6, a2, a5, n] + S2[a1, a3, a6, a2, SP[a4, a5], n] - 
    S2[a1, a3, a6, a4, SP[a2, a5], n] + S2[a4, n]*S2[a1, a3, a6, a5, a2, n] - 
    S2[a1, a3, a6, SP[a2, a5], a4, n] + S2[a1, a3, a6, SP[a4, a5], a2, n] - 
    S2[a1, a3, SP[a2, a5], a4, a6, n] - S2[a1, a3, SP[a2, a5], a6, a4, n] - 
    2*S2[a1, a3, SP[a2, a6], a5, a4, n] + S2[a1, a3, SP[a4, a5], a2, a6, n] + 
    S2[a1, a3, SP[a4, a5], a6, a2, n] - S2[a1, a3, SP[a5, a6], a2, a4, n] - 
    S2[a1, a3, SP[a5, a6], a4, a2, n] - S2[a1, a4, a2, a3, SP[a5, a6], n] - 
    S2[a1, a4, a2, SP[a3, a5], a6, n] - S2[a1, a4, a3, a2, SP[a5, a6], n] - 
    S2[a1, a4, a3, a6, SP[a2, a5], n] - S2[a1, a4, a3, SP[a2, a5], a6, n] - 
    S2[a1, a4, a3, SP[a5, a6], a2, n] + S2[a1, a4, a5, a3, SP[a2, a6], n] + 
    S2[a1, a4, a5, SP[a2, a3], a6, n] - S2[a1, a4, SP[a3, a5], a2, a6, n] - 
    S2[a1, a4, SP[a3, a5], a6, a2, n] - S2[a6, n]*S2[a1, a5, a2, a3, a4, n] - 
    S2[a1, a5, a2, a3, SP[a4, a6], n] - S2[a6, n]*S2[a1, a5, a2, a4, a3, n] + 
    S2[a3, n]*S2[a1, a5, a2, a4, a6, n] + 
    S2[a3, n]*S2[a1, a5, a2, a6, a4, n] + S2[a1, a5, a2, a6, SP[a3, a4], n] + 
    S2[a1, a5, a2, SP[a3, a4], a6, n] - S2[a1, a5, a2, SP[a4, a6], a3, n] - 
    S2[a6, n]*S2[a1, a5, a3, a2, a4, n] - S2[a1, a5, a3, a2, SP[a4, a6], n] - 
    S2[a6, n]*S2[a1, a5, a3, a4, a2, n] - S2[a1, a5, a3, a4, SP[a2, a6], n] - 
    S2[a1, a5, a3, SP[a2, a6], a4, n] - S2[a1, a5, a3, SP[a4, a6], a2, n] - 
    S2[a6, n]*S2[a1, a5, a4, a2, a3, n] + 
    S2[a3, n]*S2[a1, a5, a4, a2, a6, n] - 
    S2[a6, n]*S2[a1, a5, a4, a3, a2, n] - S2[a1, a5, a4, a3, SP[a2, a6], n] + 
    S2[a3, n]*S2[a1, a5, a4, a6, a2, n] + S2[a1, a5, a4, a6, SP[a2, a3], n] + 
    S2[a1, a5, a4, SP[a2, a3], a6, n] - S2[a1, a5, a4, SP[a2, a6], a3, n] + 
    S2[a3, n]*S2[a1, a5, a6, a2, a4, n] + S2[a1, a5, a6, a2, SP[a3, a4], n] + 
    S2[a3, n]*S2[a1, a5, a6, a4, a2, n] + S2[a1, a5, a6, a4, SP[a2, a3], n] + 
    S2[a1, a5, a6, SP[a2, a3], a4, n] + S2[a1, a5, a6, SP[a3, a4], a2, n] + 
    S2[a1, a5, SP[a2, a3], a4, a6, n] + S2[a1, a5, SP[a2, a3], a6, a4, n] - 
    S2[a1, a5, SP[a2, a6], a3, a4, n] - S2[a1, a5, SP[a2, a6], a4, a3, n] + 
    S2[a1, a5, SP[a3, a4], a2, a6, n] + S2[a1, a5, SP[a3, a4], a6, a2, n] - 
    S2[a1, a5, SP[a4, a6], a2, a3, n] - S2[a1, a5, SP[a4, a6], a3, a2, n] + 
    S2[a3, n]*S2[a1, a6, a2, a5, a4, n] + S2[a1, a6, a2, a5, SP[a3, a4], n] + 
    S2[a1, a6, a2, SP[a3, a5], a4, n] + S2[a3, n]*S2[a1, a6, a5, a2, a4, n] + 
    S2[a1, a6, a5, a2, SP[a3, a4], n] + S2[a3, n]*S2[a1, a6, a5, a4, a2, n] + 
    S2[a1, a6, a5, a4, SP[a2, a3], n] + S2[a1, a6, a5, SP[a2, a3], a4, n] + 
    S2[a1, a6, a5, SP[a3, a4], a2, n] + S2[a1, a6, SP[a2, a3], a5, a4, n] + 
    S2[a1, a6, SP[a3, a5], a2, a4, n] + S2[a1, a6, SP[a3, a5], a4, a2, n] - 
    S2[a1, SP[a2, a6], a3, a5, a4, n] - S2[a1, SP[a2, a6], a5, a3, a4, n] - 
    S2[a1, SP[a2, a6], a5, a4, a3, n] + S2[a1, SP[a3, a5], a2, a4, a6, n] + 
    S2[a1, SP[a3, a5], a2, a6, a4, n] + S2[a1, SP[a3, a5], a4, a2, a6, n] + 
    S2[a1, SP[a3, a5], a4, a6, a2, n] + S2[a1, SP[a3, a5], a6, a2, a4, n] + 
    S2[a1, SP[a3, a5], a6, a4, a2, n] - S2[a1, SP[a5, a6], a2, a3, a4, n] - 
    S2[a1, SP[a5, a6], a2, a4, a3, n] - S2[a1, SP[a5, a6], a3, a2, a4, n] - 
    S2[a1, SP[a5, a6], a3, a4, a2, n] - S2[a1, SP[a5, a6], a4, a2, a3, n] - 
    S2[a1, SP[a5, a6], a4, a3, a2, n] - S2[a3, a1, a5, a4, SP[a2, a6], n] - 
    S2[a3, a1, a5, a6, SP[a2, a4], n] - S2[a3, a1, a5, SP[a2, a4], a6, n] - 
    S2[a3, a1, a5, SP[a2, a6], a4, n] - S2[a3, a1, a6, a5, SP[a2, a4], n] - 
    S2[a3, a1, a6, SP[a2, a5], a4, n] - S2[a3, a1, SP[a2, a5], a4, a6, n] - 
    S2[a3, a1, SP[a2, a5], a6, a4, n] - S2[a3, a1, SP[a2, a6], a5, a4, n] + 
    S2[a4, n]*S2[a3, a5, a1, a2, a6, n] + S2[a3, a5, a1, a2, SP[a4, a6], n] - 
    S2[a3, a5, a1, a4, SP[a2, a6], n] + S2[a4, n]*S2[a3, a5, a1, a6, a2, n] - 
    S2[a3, a5, a1, SP[a2, a6], a4, n] + S2[a3, a5, a1, SP[a4, a6], a2, n] - 
    S2[a3, a5, a4, a1, SP[a2, a6], n] - S2[a3, a5, a4, SP[a1, a6], a2, n] - 
    S2[a3, a5, a6, a1, SP[a2, a4], n] - S2[a3, a5, a6, SP[a1, a4], a2, n] - 
    S2[a3, a5, SP[a1, a6], a2, a4, n] - S2[a3, a5, SP[a1, a6], a4, a2, n] + 
    S2[a5, n]*S2[a3, a6, a1, a2, a4, n] + S2[a3, a6, a1, a2, SP[a4, a5], n] + 
    S2[a5, n]*S2[a3, a6, a1, a4, a2, n] + S2[a3, a6, a1, a4, SP[a2, a5], n] - 
    S2[a3, a6, a1, a5, SP[a2, a4], n] + S2[a3, a6, a1, SP[a4, a5], a2, n] + 
    S2[a5, n]*S2[a3, a6, a4, a1, a2, n] + S2[a3, a6, a4, a1, SP[a2, a5], n] + 
    S2[a3, a6, a4, SP[a1, a5], a2, n] - S2[a3, a6, a5, a1, SP[a2, a4], n] - 
    S2[a3, a6, a5, SP[a1, a4], a2, n] + S2[a3, a6, SP[a4, a5], a1, a2, n] - 
    S2[a3, SP[a1, a5], a2, a4, a6, n] - S2[a3, SP[a1, a5], a2, a6, a4, n] - 
    S2[a3, SP[a1, a5], a4, a2, a6, n] - S2[a3, SP[a1, a5], a4, a6, a2, n] - 
    S2[a3, SP[a1, a5], a6, a2, a4, n] - S2[a3, SP[a1, a5], a6, a4, a2, n] - 
    S2[a3, SP[a1, a6], a2, a5, a4, n] - S2[a3, SP[a1, a6], a5, a2, a4, n] - 
    S2[a3, SP[a1, a6], a5, a4, a2, n] + S2[a3, SP[a4, a5], a1, a2, a6, n] + 
    S2[a3, SP[a4, a5], a1, a6, a2, n] + S2[a3, SP[a5, a6], a1, a2, a4, n] + 
    S2[a3, SP[a5, a6], a1, a4, a2, n] + S2[a3, SP[a5, a6], a4, a1, a2, n] - 
    S2[a4, a1, a2, a3, SP[a5, a6], n] - S2[a4, a1, a2, SP[a3, a5], a6, n] - 
    S2[a4, a1, a3, a2, SP[a5, a6], n] - S2[a4, a1, a3, a6, SP[a2, a5], n] - 
    S2[a4, a1, a3, SP[a2, a5], a6, n] - S2[a4, a1, a3, SP[a5, a6], a2, n] + 
    S2[a4, a1, a5, a3, SP[a2, a6], n] + S2[a4, a1, a5, SP[a2, a3], a6, n] - 
    S2[a4, a1, SP[a3, a5], a2, a6, n] - S2[a4, a1, SP[a3, a5], a6, a2, n] + 
    S2[a6, n]*S2[a4, a5, a1, a2, a3, n] - 
    S2[a3, n]*S2[a4, a5, a1, a2, a6, n] + 
    S2[a6, n]*S2[a4, a5, a1, a3, a2, n] + 
    2*S2[a4, a5, a1, a3, SP[a2, a6], n] - 
    S2[a3, n]*S2[a4, a5, a1, a6, a2, n] - S2[a4, a5, a1, a6, SP[a2, a3], n] + 
    S2[a4, a5, a1, SP[a2, a6], a3, n] + S2[a4, a5, a3, a1, SP[a2, a6], n] + 
    S2[a4, a5, a3, SP[a1, a6], a2, n] + S2[a4, a5, SP[a1, a6], a2, a3, n] + 
    S2[a4, a5, SP[a1, a6], a3, a2, n] - S2[a5, n]*S2[a4, a6, a1, a2, a3, n] - 
    S2[a4, a6, a1, a2, SP[a3, a5], n] - S2[a5, n]*S2[a4, a6, a1, a3, a2, n] - 
    S2[a4, a6, a1, a3, SP[a2, a5], n] - S2[a4, a6, a1, SP[a2, a5], a3, n] - 
    S2[a4, a6, a1, SP[a3, a5], a2, n] - S2[a4, a6, SP[a1, a5], a2, a3, n] - 
    S2[a4, a6, SP[a1, a5], a3, a2, n] - S2[a4, SP[a3, a5], a1, a2, a6, n] - 
    S2[a4, SP[a3, a5], a1, a6, a2, n] - S2[a4, n]*S2[a5, a3, a6, a1, a2, n] - 
    S2[a5, a3, a6, a1, SP[a2, a4], n] - S2[a5, a3, a6, SP[a1, a4], a2, n] - 
    S2[a5, a3, SP[a4, a6], a1, a2, n] + S2[a3, n]*S2[a5, a4, a6, a1, a2, n] + 
    S2[a5, a4, a6, a1, SP[a2, a3], n] + S2[a5, a4, a6, SP[a1, a3], a2, n] + 
    S2[a5, a4, SP[a3, a6], a1, a2, n] + S2[a4, n]*S2[a6, a1, a2, a3, a5, n] + 
    S2[a6, a1, a2, a3, SP[a4, a5], n] - S2[a3, n]*S2[a6, a1, a2, a4, a5, n] - 
    S2[a6, a1, a2, a4, SP[a3, a5], n] + S2[a4, n]*S2[a6, a1, a2, a5, a3, n] + 
    S2[a6, a1, a2, a5, SP[a3, a4], n] + S2[a6, a1, a2, SP[a4, a5], a3, n] + 
    S2[a4, n]*S2[a6, a1, a3, a2, a5, n] + S2[a6, a1, a3, a2, SP[a4, a5], n] + 
    S2[a4, n]*S2[a6, a1, a3, a5, a2, n] + S2[a6, a1, a3, a5, SP[a2, a4], n] + 
    S2[a6, a1, a3, SP[a2, a4], a5, n] + S2[a6, a1, a3, SP[a4, a5], a2, n] - 
    S2[a3, n]*S2[a6, a1, a4, a2, a5, n] - S2[a6, a1, a4, a2, SP[a3, a5], n] - 
    S2[a3, n]*S2[a6, a1, a4, a5, a2, n] - S2[a6, a1, a4, a5, SP[a2, a3], n] - 
    S2[a6, a1, a4, SP[a2, a3], a5, n] - S2[a6, a1, a4, SP[a3, a5], a2, n] + 
    S2[a4, n]*S2[a6, a1, a5, a2, a3, n] + S2[a6, a1, a5, a2, SP[a3, a4], n] + 
    S2[a4, n]*S2[a6, a1, a5, a3, a2, n] + S2[a6, a1, a5, a3, SP[a2, a4], n] + 
    S2[a6, a1, a5, SP[a2, a4], a3, n] + S2[a6, a1, a5, SP[a3, a4], a2, n] - 
    S2[a6, a1, SP[a2, a3], a4, a5, n] + S2[a6, a1, SP[a2, a4], a3, a5, n] + 
    S2[a6, a1, SP[a2, a4], a5, a3, n] + S2[a6, a1, SP[a4, a5], a2, a3, n] + 
    S2[a6, a1, SP[a4, a5], a3, a2, n] - S2[a3, n]*S2[a6, a4, a1, a2, a5, n] - 
    S2[a6, a4, a1, a2, SP[a3, a5], n] - S2[a3, n]*S2[a6, a4, a1, a5, a2, n] - 
    S2[a6, a4, a1, a5, SP[a2, a3], n] - S2[a6, a4, a1, SP[a2, a3], a5, n] - 
    S2[a6, a4, a1, SP[a3, a5], a2, n] - S2[a3, n]*S2[a6, a4, a5, a1, a2, n] - 
    S2[a6, a4, a5, a1, SP[a2, a3], n] - S2[a6, a4, a5, SP[a1, a3], a2, n] - 
    S2[a6, a4, SP[a1, a3], a2, a5, n] - S2[a6, a4, SP[a1, a3], a5, a2, n] - 
    S2[a6, a4, SP[a3, a5], a1, a2, n] - S2[a6, SP[a1, a3], a2, a4, a5, n] - 
    S2[a6, SP[a1, a3], a4, a2, a5, n] - S2[a6, SP[a1, a3], a4, a5, a2, n] + 
    S2[a6, SP[a1, a4], a2, a3, a5, n] + S2[a6, SP[a1, a4], a2, a5, a3, n] + 
    S2[a6, SP[a1, a4], a3, a2, a5, n] + S2[a6, SP[a1, a4], a3, a5, a2, n] + 
    S2[a6, SP[a1, a4], a5, a2, a3, n] + S2[a6, SP[a1, a4], a5, a3, a2, n] - 
    S2[a6, SP[a3, a4], a1, a2, a5, n] - S2[a6, SP[a3, a4], a1, a5, a2, n] - 
    S2[a6, SP[a3, a4], a5, a1, a2, n] - S2[SP[a1, a6], a2, a3, a5, a4, n] - 
    S2[SP[a1, a6], a2, a5, a3, a4, n] - S2[SP[a1, a6], a2, a5, a4, a3, n] - 
    S2[SP[a1, a6], a3, a2, a5, a4, n] - S2[SP[a1, a6], a3, a5, a2, a4, n] - 
    S2[SP[a1, a6], a3, a5, a4, a2, n] - S2[SP[a1, a6], a5, a2, a3, a4, n] - 
    S2[SP[a1, a6], a5, a2, a4, a3, n] - S2[SP[a1, a6], a5, a3, a2, a4, n] - 
    S2[SP[a1, a6], a5, a3, a4, a2, n] - S2[SP[a1, a6], a5, a4, a2, a3, n] - 
    S2[SP[a1, a6], a5, a4, a3, a2, n] + S2[SP[a3, a5], a4, a6, a1, a2, n] + 
    S2[SP[a3, a5], a6, a1, a2, a4, n] + S2[SP[a3, a5], a6, a1, a4, a2, n] + 
    S2[SP[a3, a5], a6, a4, a1, a2, n] - S2[SP[a3, a6], a1, a2, a4, a5, n] - 
    S2[SP[a3, a6], a1, a4, a2, a5, n] - S2[SP[a3, a6], a1, a4, a5, a2, n] - 
    S2[SP[a3, a6], a4, a1, a2, a5, n] - S2[SP[a3, a6], a4, a1, a5, a2, n] - 
    S2[SP[a3, a6], a4, a5, a1, a2, n] - S2[SP[a4, a5], a3, a6, a1, a2, n] - 
    S2[SP[a4, a5], a6, a1, a2, a3, n] - S2[SP[a4, a5], a6, a1, a3, a2, n] + 
    S2[SP[a4, a6], a1, a2, a3, a5, n] + S2[SP[a4, a6], a1, a2, a5, a3, n] + 
    S2[SP[a4, a6], a1, a3, a2, a5, n] + S2[SP[a4, a6], a1, a3, a5, a2, n] + 
    S2[SP[a4, a6], a1, a5, a2, a3, n] + S2[SP[a4, a6], a1, a5, a3, a2, n] + 
    S2[SP[a4, a6], a5, a1, a2, a3, n] + S2[SP[a4, a6], a5, a1, a3, a2, n] + 
    S2[a6, a3, a1, a2, a4, a5, n] + S2[a6, a3, a1, a4, a2, a5, n] + 
    S2[a6, a3, a1, a4, a5, a2, n] + S2[a6, a3, a4, a1, a2, a5, n] + 
    S2[a6, a3, a4, a1, a5, a2, n] + S2[a6, a3, a4, a5, a1, a2, n] + 
    S2[a6, a4, a3, a1, a2, a5, n] + S2[a6, a4, a3, a1, a5, a2, n] + 
    S2[a6, a4, a3, a5, a1, a2, n] + S2[a6, a4, a5, a3, a1, a2, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a5_, a4_, a6_, a3_, a2_, a1_, n_] :> 
  S2[a4, a5, n]*S2[a1, a2, a3, a6, n] - S2[a1, a2, SP[a3, a4], SP[a5, a6], 
     n] - S2[a1, SP[a2, a4], a3, SP[a5, a6], n] - 
    S2[a1, SP[a2, a4], SP[a3, a5], a6, n] + S2[a1, a2, n]*
     S2[a3, a5, a4, a6, n] + S2[a1, a2, n]*S2[a3, a5, a6, a4, n] - 
    S2[a3, a5, SP[a1, a4], SP[a2, a6], n] - S2[a3, a5, SP[a1, a6], 
     SP[a2, a4], n] + S2[a1, a2, n]*S2[a3, a6, a5, a4, n] - 
    S2[a3, a6, SP[a1, a5], SP[a2, a4], n] - S2[a3, SP[a1, a5], a4, 
     SP[a2, a6], n] - S2[a3, SP[a1, a5], a6, SP[a2, a4], n] - 
    S2[a3, SP[a1, a5], SP[a2, a4], a6, n] - S2[a3, SP[a1, a5], SP[a2, a6], 
     a4, n] - S2[a3, SP[a1, a6], a5, SP[a2, a4], n] - 
    S2[a3, SP[a1, a6], SP[a2, a5], a4, n] - S2[a1, a2, n]*
     S2[a4, a5, a3, a6, n] + S2[a4, a5, SP[a1, a3], SP[a2, a6], n] + 
    S2[a4, SP[a1, a5], a3, SP[a2, a6], n] + S2[a4, SP[a1, a5], SP[a2, a3], 
     a6, n] - S2[SP[a1, a3], a5, a4, SP[a2, a6], n] - 
    S2[SP[a1, a3], a5, a6, SP[a2, a4], n] - S2[SP[a1, a3], a5, SP[a2, a4], 
     a6, n] - S2[SP[a1, a3], a5, SP[a2, a6], a4, n] - 
    S2[SP[a1, a3], a6, a5, SP[a2, a4], n] - S2[SP[a1, a3], a6, SP[a2, a5], 
     a4, n] - S2[SP[a1, a3], SP[a2, a5], a4, a6, n] - 
    S2[SP[a1, a3], SP[a2, a5], a6, a4, n] - S2[SP[a1, a3], SP[a2, a6], a5, 
     a4, n] - S2[SP[a1, a4], a2, a3, SP[a5, a6], n] - 
    S2[SP[a1, a4], a2, SP[a3, a5], a6, n] + S2[SP[a1, a4], a5, a3, 
     SP[a2, a6], n] + S2[SP[a1, a4], a5, SP[a2, a3], a6, n] + 
    S2[a1, a2, a3, a4, SP[a5, a6], n] + S2[a6, n]*S2[a1, a2, a3, a5, a4, n] - 
    S2[a4, n]*S2[a1, a2, a3, a5, a6, n] - 
    S2[a4, n]*S2[a1, a2, a3, a6, a5, n] - S2[a1, a2, a3, a6, SP[a4, a5], n] - 
    S2[a1, a2, a3, SP[a4, a5], a6, n] + S2[a1, a2, a3, SP[a5, a6], a4, n] + 
    S2[a1, a2, a4, a3, SP[a5, a6], n] + S2[a1, a2, a4, SP[a3, a5], a6, n] + 
    S2[a6, n]*S2[a1, a2, a5, a3, a4, n] + S2[a1, a2, a5, a3, SP[a4, a6], n] + 
    S2[a6, n]*S2[a1, a2, a5, a4, a3, n] - 
    S2[a3, n]*S2[a1, a2, a5, a4, a6, n] - 
    S2[a3, n]*S2[a1, a2, a5, a6, a4, n] - S2[a1, a2, a5, a6, SP[a3, a4], n] - 
    S2[a1, a2, a5, SP[a3, a4], a6, n] + S2[a1, a2, a5, SP[a4, a6], a3, n] - 
    S2[a3, n]*S2[a1, a2, a6, a5, a4, n] - S2[a1, a2, a6, a5, SP[a3, a4], n] - 
    S2[a1, a2, a6, SP[a3, a5], a4, n] - S2[a1, a2, SP[a3, a5], a4, a6, n] - 
    S2[a1, a2, SP[a3, a5], a6, a4, n] + S2[a1, a2, SP[a5, a6], a3, a4, n] + 
    S2[a1, a2, SP[a5, a6], a4, a3, n] + S2[a1, a3, a5, a4, SP[a2, a6], n] + 
    S2[a1, a3, a5, a6, SP[a2, a4], n] + S2[a1, a3, a5, SP[a2, a4], a6, n] + 
    S2[a1, a3, a5, SP[a2, a6], a4, n] + S2[a1, a3, a6, a5, SP[a2, a4], n] + 
    S2[a1, a3, a6, SP[a2, a5], a4, n] + S2[a1, a3, SP[a2, a5], a4, a6, n] + 
    S2[a1, a3, SP[a2, a5], a6, a4, n] + S2[a1, a3, SP[a2, a6], a5, a4, n] + 
    S2[a1, a4, a2, a3, SP[a5, a6], n] + S2[a1, a4, a2, SP[a3, a5], a6, n] - 
    S2[a1, a4, a5, a3, SP[a2, a6], n] - S2[a1, a4, a5, SP[a2, a3], a6, n] + 
    S2[a6, n]*S2[a1, a5, a2, a3, a4, n] + S2[a1, a5, a2, a3, SP[a4, a6], n] + 
    S2[a6, n]*S2[a1, a5, a2, a4, a3, n] - 
    S2[a3, n]*S2[a1, a5, a2, a4, a6, n] - 
    S2[a3, n]*S2[a1, a5, a2, a6, a4, n] - S2[a1, a5, a2, a6, SP[a3, a4], n] - 
    S2[a1, a5, a2, SP[a3, a4], a6, n] + S2[a1, a5, a2, SP[a4, a6], a3, n] + 
    S2[a4, n]*S2[a1, a5, a3, a2, a6, n] + S2[a1, a5, a3, a2, SP[a4, a6], n] + 
    S2[a4, n]*S2[a1, a5, a3, a6, a2, n] + S2[a1, a5, a3, a6, SP[a2, a4], n] + 
    S2[a1, a5, a3, SP[a2, a4], a6, n] + S2[a1, a5, a3, SP[a4, a6], a2, n] + 
    S2[a6, n]*S2[a1, a5, a4, a2, a3, n] - 
    S2[a3, n]*S2[a1, a5, a4, a2, a6, n] - 
    S2[a3, n]*S2[a1, a5, a4, a6, a2, n] - S2[a1, a5, a4, a6, SP[a2, a3], n] - 
    S2[a1, a5, a4, SP[a2, a3], a6, n] + S2[a1, a5, a4, SP[a2, a6], a3, n] - 
    S2[a1, a5, a4, SP[a3, a6], a2, n] - S2[a3, n]*S2[a1, a5, a6, a2, a4, n] - 
    S2[a1, a5, a6, a2, SP[a3, a4], n] - S2[a3, n]*S2[a1, a5, a6, a4, a2, n] - 
    S2[a1, a5, a6, a4, SP[a2, a3], n] - S2[a1, a5, a6, SP[a2, a3], a4, n] - 
    S2[a1, a5, a6, SP[a3, a4], a2, n] - S2[a1, a5, SP[a2, a3], a4, a6, n] - 
    S2[a1, a5, SP[a2, a3], a6, a4, n] + S2[a1, a5, SP[a2, a6], a3, a4, n] + 
    S2[a1, a5, SP[a2, a6], a4, a3, n] - S2[a1, a5, SP[a3, a6], a2, a4, n] - 
    S2[a1, a5, SP[a3, a6], a4, a2, n] + S2[a1, a5, SP[a4, a6], a2, a3, n] - 
    S2[a3, n]*S2[a1, a6, a2, a5, a4, n] - S2[a1, a6, a2, a5, SP[a3, a4], n] - 
    S2[a1, a6, a2, SP[a3, a5], a4, n] + S2[a5, n]*S2[a1, a6, a3, a2, a4, n] + 
    S2[a1, a6, a3, a2, SP[a4, a5], n] + S2[a5, n]*S2[a1, a6, a3, a4, a2, n] + 
    S2[a1, a6, a3, a4, SP[a2, a5], n] + S2[a1, a6, a3, SP[a2, a5], a4, n] + 
    S2[a1, a6, a3, SP[a4, a5], a2, n] + S2[a5, n]*S2[a1, a6, a4, a3, a2, n] + 
    S2[a1, a6, a4, a3, SP[a2, a5], n] + S2[a1, a6, a4, SP[a3, a5], a2, n] - 
    S2[a3, n]*S2[a1, a6, a5, a2, a4, n] - S2[a1, a6, a5, a2, SP[a3, a4], n] - 
    S2[a3, n]*S2[a1, a6, a5, a4, a2, n] - S2[a1, a6, a5, a4, SP[a2, a3], n] - 
    S2[a1, a6, a5, SP[a2, a3], a4, n] - S2[a1, a6, a5, SP[a3, a4], a2, n] - 
    S2[a1, a6, SP[a2, a3], a5, a4, n] + S2[a1, a6, SP[a4, a5], a3, a2, n] + 
    S2[a1, SP[a2, a6], a3, a5, a4, n] + S2[a1, SP[a2, a6], a5, a3, a4, n] + 
    S2[a1, SP[a2, a6], a5, a4, a3, n] - S2[a1, SP[a3, a5], a2, a4, a6, n] - 
    S2[a1, SP[a3, a5], a2, a6, a4, n] - S2[a1, SP[a3, a5], a4, a2, a6, n] - 
    S2[a1, SP[a3, a5], a4, a6, a2, n] - S2[a1, SP[a3, a5], a6, a2, a4, n] - 
    S2[a1, SP[a3, a5], a6, a4, a2, n] - S2[a1, SP[a3, a6], a2, a5, a4, n] - 
    S2[a1, SP[a3, a6], a5, a2, a4, n] - S2[a1, SP[a3, a6], a5, a4, a2, n] + 
    S2[a1, SP[a4, a5], a3, a2, a6, n] + S2[a1, SP[a4, a5], a3, a6, a2, n] + 
    S2[a1, SP[a5, a6], a2, a3, a4, n] + S2[a1, SP[a5, a6], a2, a4, a3, n] + 
    S2[a1, SP[a5, a6], a3, a2, a4, n] + S2[a1, SP[a5, a6], a3, a4, a2, n] + 
    S2[a1, SP[a5, a6], a4, a2, a3, n] + S2[a1, SP[a5, a6], a4, a3, a2, n] + 
    S2[a3, a1, a5, a4, SP[a2, a6], n] + S2[a3, a1, a5, a6, SP[a2, a4], n] + 
    S2[a3, a1, a5, SP[a2, a4], a6, n] + S2[a3, a1, a5, SP[a2, a6], a4, n] + 
    S2[a3, a1, a6, a5, SP[a2, a4], n] + S2[a3, a1, a6, SP[a2, a5], a4, n] + 
    S2[a3, a1, SP[a2, a5], a4, a6, n] + S2[a3, a1, SP[a2, a5], a6, a4, n] + 
    S2[a3, a1, SP[a2, a6], a5, a4, n] - S2[a4, n]*S2[a3, a5, a1, a2, a6, n] - 
    S2[a3, a5, a1, a2, SP[a4, a6], n] + S2[a3, a5, a1, a4, SP[a2, a6], n] - 
    S2[a4, n]*S2[a3, a5, a1, a6, a2, n] + S2[a3, a5, a1, SP[a2, a6], a4, n] - 
    S2[a3, a5, a1, SP[a4, a6], a2, n] + S2[a3, a5, a4, a1, SP[a2, a6], n] + 
    S2[a3, a5, a4, SP[a1, a6], a2, n] + S2[a3, a5, a6, a1, SP[a2, a4], n] + 
    S2[a3, a5, a6, SP[a1, a4], a2, n] + S2[a3, a5, SP[a1, a6], a2, a4, n] + 
    S2[a3, a5, SP[a1, a6], a4, a2, n] - S2[a5, n]*S2[a3, a6, a1, a2, a4, n] - 
    S2[a3, a6, a1, a2, SP[a4, a5], n] - S2[a5, n]*S2[a3, a6, a1, a4, a2, n] - 
    S2[a3, a6, a1, a4, SP[a2, a5], n] + S2[a3, a6, a1, a5, SP[a2, a4], n] - 
    S2[a3, a6, a1, SP[a4, a5], a2, n] - S2[a5, n]*S2[a3, a6, a4, a1, a2, n] - 
    S2[a3, a6, a4, a1, SP[a2, a5], n] - S2[a3, a6, a4, SP[a1, a5], a2, n] + 
    S2[a3, a6, a5, a1, SP[a2, a4], n] + S2[a3, a6, a5, SP[a1, a4], a2, n] - 
    S2[a3, a6, SP[a4, a5], a1, a2, n] + S2[a3, SP[a1, a5], a2, a4, a6, n] + 
    S2[a3, SP[a1, a5], a2, a6, a4, n] + S2[a3, SP[a1, a5], a4, a2, a6, n] + 
    S2[a3, SP[a1, a5], a4, a6, a2, n] + S2[a3, SP[a1, a5], a6, a2, a4, n] + 
    S2[a3, SP[a1, a5], a6, a4, a2, n] + S2[a3, SP[a1, a6], a2, a5, a4, n] + 
    S2[a3, SP[a1, a6], a5, a2, a4, n] + S2[a3, SP[a1, a6], a5, a4, a2, n] - 
    S2[a3, SP[a4, a5], a1, a2, a6, n] - S2[a3, SP[a4, a5], a1, a6, a2, n] - 
    S2[a3, SP[a5, a6], a1, a2, a4, n] - S2[a3, SP[a5, a6], a1, a4, a2, n] - 
    S2[a3, SP[a5, a6], a4, a1, a2, n] + S2[a4, a1, a2, a3, SP[a5, a6], n] + 
    S2[a4, a1, a2, SP[a3, a5], a6, n] - S2[a4, a1, a5, a3, SP[a2, a6], n] - 
    S2[a4, a1, a5, SP[a2, a3], a6, n] - S2[a6, n]*S2[a4, a5, a1, a2, a3, n] + 
    S2[a3, n]*S2[a4, a5, a1, a2, a6, n] - S2[a4, a5, a1, a3, SP[a2, a6], n] + 
    S2[a3, n]*S2[a4, a5, a1, a6, a2, n] + S2[a4, a5, a1, a6, SP[a2, a3], n] - 
    S2[a4, a5, a1, SP[a2, a6], a3, n] + S2[a4, a5, a1, SP[a3, a6], a2, n] - 
    S2[a4, a5, a3, a1, SP[a2, a6], n] - S2[a4, a5, a3, SP[a1, a6], a2, n] - 
    S2[a4, a5, SP[a1, a6], a2, a3, n] + S2[a5, n]*S2[a4, a6, a1, a2, a3, n] + 
    S2[a4, a6, a1, a2, SP[a3, a5], n] + S2[a4, a6, a1, SP[a2, a5], a3, n] + 
    S2[a4, a6, SP[a1, a5], a2, a3, n] - S2[a4, SP[a1, a5], a3, a2, a6, n] - 
    S2[a4, SP[a1, a5], a3, a6, a2, n] + S2[a4, SP[a3, a5], a1, a2, a6, n] + 
    S2[a4, SP[a3, a5], a1, a6, a2, n] - S2[a4, n]*S2[a5, a1, a6, a3, a2, n] - 
    S2[a5, a1, a6, a3, SP[a2, a4], n] - S2[a5, a1, a6, SP[a3, a4], a2, n] - 
    S2[a5, a1, SP[a4, a6], a3, a2, n] + S2[a4, n]*S2[a5, a3, a6, a1, a2, n] + 
    S2[a5, a3, a6, a1, SP[a2, a4], n] + S2[a5, a3, a6, SP[a1, a4], a2, n] + 
    S2[a5, a3, SP[a4, a6], a1, a2, n] - S2[a3, n]*S2[a5, a4, a6, a1, a2, n] - 
    S2[a5, a4, a6, a1, SP[a2, a3], n] + S2[a1, n]*S2[a5, a4, a6, a3, a2, n] + 
    S2[a5, a4, a6, a3, SP[a1, a2], n] + S2[a5, a4, SP[a1, a6], a3, a2, n] - 
    S2[a5, a4, SP[a3, a6], a1, a2, n] - S2[a4, n]*S2[a6, a1, a2, a3, a5, n] - 
    S2[a6, a1, a2, a3, SP[a4, a5], n] + S2[a3, n]*S2[a6, a1, a2, a4, a5, n] + 
    S2[a6, a1, a2, a4, SP[a3, a5], n] - S2[a4, n]*S2[a6, a1, a2, a5, a3, n] - 
    S2[a6, a1, a2, a5, SP[a3, a4], n] - S2[a6, a1, a2, SP[a4, a5], a3, n] + 
    S2[a3, n]*S2[a6, a1, a4, a2, a5, n] + S2[a6, a1, a4, a2, SP[a3, a5], n] + 
    S2[a3, n]*S2[a6, a1, a4, a5, a2, n] + S2[a6, a1, a4, a5, SP[a2, a3], n] + 
    S2[a6, a1, a4, SP[a2, a3], a5, n] + S2[a6, a1, a4, SP[a3, a5], a2, n] - 
    S2[a4, n]*S2[a6, a1, a5, a2, a3, n] - S2[a6, a1, a5, a2, SP[a3, a4], n] - 
    S2[a6, a1, a5, SP[a2, a4], a3, n] + S2[a6, a1, SP[a2, a3], a4, a5, n] - 
    S2[a6, a1, SP[a2, a4], a3, a5, n] - S2[a6, a1, SP[a2, a4], a5, a3, n] + 
    S2[a6, a1, SP[a3, a4], a2, a5, n] + S2[a6, a1, SP[a3, a4], a5, a2, n] - 
    S2[a6, a1, SP[a4, a5], a2, a3, n] - S2[a1, n]*S2[a6, a3, a2, a4, a5, n] - 
    S2[a6, a3, a2, a4, SP[a1, a5], n] - S2[a6, a3, a2, SP[a1, a4], a5, n] - 
    S2[a1, n]*S2[a6, a3, a4, a2, a5, n] - S2[a6, a3, a4, a2, SP[a1, a5], n] - 
    S2[a1, n]*S2[a6, a3, a4, a5, a2, n] - S2[a6, a3, a4, a5, SP[a1, a2], n] - 
    S2[a6, a3, a4, SP[a1, a2], a5, n] - S2[a6, a3, a4, SP[a1, a5], a2, n] - 
    S2[a6, a3, SP[a1, a2], a4, a5, n] - S2[a6, a3, SP[a1, a4], a2, a5, n] - 
    S2[a6, a3, SP[a1, a4], a5, a2, n] + S2[a3, n]*S2[a6, a4, a1, a2, a5, n] + 
    S2[a6, a4, a1, a2, SP[a3, a5], n] + S2[a3, n]*S2[a6, a4, a1, a5, a2, n] + 
    S2[a6, a4, a1, a5, SP[a2, a3], n] + S2[a6, a4, a1, SP[a2, a3], a5, n] + 
    S2[a6, a4, a1, SP[a3, a5], a2, n] - S2[a1, n]*S2[a6, a4, a3, a2, a5, n] - 
    S2[a6, a4, a3, a2, SP[a1, a5], n] - S2[a1, n]*S2[a6, a4, a3, a5, a2, n] - 
    S2[a6, a4, a3, a5, SP[a1, a2], n] - S2[a6, a4, a3, SP[a1, a2], a5, n] - 
    S2[a6, a4, a3, SP[a1, a5], a2, n] + S2[a3, n]*S2[a6, a4, a5, a1, a2, n] + 
    S2[a6, a4, a5, a1, SP[a2, a3], n] - S2[a1, n]*S2[a6, a4, a5, a3, a2, n] - 
    S2[a6, a4, a5, a3, SP[a1, a2], n] - S2[a6, a4, SP[a1, a5], a3, a2, n] + 
    S2[a6, a4, SP[a3, a5], a1, a2, n] - S2[a6, SP[a1, a4], a2, a3, a5, n] - 
    S2[a6, SP[a1, a4], a2, a5, a3, n] - S2[a6, SP[a1, a4], a3, a2, a5, n] - 
    S2[a6, SP[a1, a4], a3, a5, a2, n] - S2[a6, SP[a1, a4], a5, a2, a3, n] - 
    S2[a6, SP[a1, a4], a5, a3, a2, n] + S2[a6, SP[a3, a4], a1, a2, a5, n] + 
    S2[a6, SP[a3, a4], a1, a5, a2, n] + S2[a6, SP[a3, a4], a5, a1, a2, n] + 
    S2[SP[a1, a5], a4, a6, a3, a2, n] + S2[SP[a1, a5], a6, a3, a2, a4, n] + 
    S2[SP[a1, a5], a6, a3, a4, a2, n] + S2[SP[a1, a5], a6, a4, a3, a2, n] + 
    S2[SP[a1, a6], a2, a3, a5, a4, n] + S2[SP[a1, a6], a2, a5, a3, a4, n] + 
    S2[SP[a1, a6], a2, a5, a4, a3, n] - S2[SP[a1, a6], a3, a2, a4, a5, n] - 
    S2[SP[a1, a6], a3, a4, a2, a5, n] - S2[SP[a1, a6], a3, a4, a5, a2, n] - 
    S2[SP[a1, a6], a4, a3, a2, a5, n] - S2[SP[a1, a6], a4, a3, a5, a2, n] - 
    S2[SP[a1, a6], a4, a5, a3, a2, n] + S2[SP[a1, a6], a5, a2, a3, a4, n] + 
    S2[SP[a1, a6], a5, a2, a4, a3, n] + S2[SP[a1, a6], a5, a4, a2, a3, n] - 
    S2[SP[a3, a5], a4, a6, a1, a2, n] - S2[SP[a3, a5], a6, a1, a2, a4, n] - 
    S2[SP[a3, a5], a6, a1, a4, a2, n] - S2[SP[a3, a5], a6, a4, a1, a2, n] + 
    S2[SP[a3, a6], a1, a2, a4, a5, n] + S2[SP[a3, a6], a1, a4, a2, a5, n] + 
    S2[SP[a3, a6], a1, a4, a5, a2, n] + S2[SP[a3, a6], a4, a1, a2, a5, n] + 
    S2[SP[a3, a6], a4, a1, a5, a2, n] + S2[SP[a3, a6], a4, a5, a1, a2, n] - 
    S2[SP[a4, a5], a1, a6, a3, a2, n] + S2[SP[a4, a5], a3, a6, a1, a2, n] + 
    S2[SP[a4, a5], a6, a1, a2, a3, n] - S2[SP[a4, a6], a1, a2, a3, a5, n] - 
    S2[SP[a4, a6], a1, a2, a5, a3, n] - S2[SP[a4, a6], a1, a5, a2, a3, n] - 
    S2[SP[a4, a6], a5, a1, a2, a3, n] + S2[a6, a3, a2, a1, a4, a5, n] + 
    S2[a6, a3, a2, a4, a1, a5, n] + S2[a6, a3, a2, a4, a5, a1, n] + 
    S2[a6, a3, a4, a2, a1, a5, n] + S2[a6, a3, a4, a2, a5, a1, n] + 
    S2[a6, a3, a4, a5, a2, a1, n] + S2[a6, a4, a3, a2, a1, a5, n] + 
    S2[a6, a4, a3, a2, a5, a1, n] + S2[a6, a4, a3, a5, a2, a1, n] + 
    S2[a6, a4, a5, a3, a2, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a5_, a6_, a1_, a2_, a3_, a4_, n_] :> 
  S2[a5, n]*S2[a6, a1, a2, a3, a4, n] + S2[a6, a1, a2, a3, SP[a4, a5], n] + 
    S2[a6, a1, a2, SP[a3, a5], a4, n] + S2[a6, a1, SP[a2, a5], a3, a4, n] + 
    S2[a6, SP[a1, a5], a2, a3, a4, n] + S2[SP[a5, a6], a1, a2, a3, a4, n] - 
    S2[a6, a1, a2, a3, a4, a5, n] - S2[a6, a1, a2, a3, a5, a4, n] - 
    S2[a6, a1, a2, a5, a3, a4, n] - S2[a6, a1, a5, a2, a3, a4, n] - 
    S2[a6, a5, a1, a2, a3, a4, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a5_, a6_, a1_, a2_, a4_, a3_, n_] :> 
  S2[a5, n]*S2[a6, a1, a2, a4, a3, n] + S2[a6, a1, a2, a4, SP[a3, a5], n] + 
    S2[a6, a1, a2, SP[a4, a5], a3, n] + S2[a6, a1, SP[a2, a5], a4, a3, n] + 
    S2[a6, SP[a1, a5], a2, a4, a3, n] + S2[SP[a5, a6], a1, a2, a4, a3, n] - 
    S2[a6, a1, a2, a4, a3, a5, n] - S2[a6, a1, a2, a4, a5, a3, n] - 
    S2[a6, a1, a2, a5, a4, a3, n] - S2[a6, a1, a5, a2, a4, a3, n] - 
    S2[a6, a5, a1, a2, a4, a3, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a5_, a6_, a1_, a3_, a2_, a4_, n_] :> 
  S2[a5, n]*S2[a6, a1, a3, a2, a4, n] + S2[a6, a1, a3, a2, SP[a4, a5], n] + 
    S2[a6, a1, a3, SP[a2, a5], a4, n] + S2[a6, a1, SP[a3, a5], a2, a4, n] + 
    S2[a6, SP[a1, a5], a3, a2, a4, n] + S2[SP[a5, a6], a1, a3, a2, a4, n] - 
    S2[a6, a1, a3, a2, a4, a5, n] - S2[a6, a1, a3, a2, a5, a4, n] - 
    S2[a6, a1, a3, a5, a2, a4, n] - S2[a6, a1, a5, a3, a2, a4, n] - 
    S2[a6, a5, a1, a3, a2, a4, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a5_, a6_, a1_, a3_, a4_, a2_, n_] :> 
  S2[a5, n]*S2[a6, a1, a3, a4, a2, n] + S2[a6, a1, a3, a4, SP[a2, a5], n] + 
    S2[a6, a1, a3, SP[a4, a5], a2, n] + S2[a6, a1, SP[a3, a5], a4, a2, n] + 
    S2[a6, SP[a1, a5], a3, a4, a2, n] + S2[SP[a5, a6], a1, a3, a4, a2, n] - 
    S2[a6, a1, a3, a4, a2, a5, n] - S2[a6, a1, a3, a4, a5, a2, n] - 
    S2[a6, a1, a3, a5, a4, a2, n] - S2[a6, a1, a5, a3, a4, a2, n] - 
    S2[a6, a5, a1, a3, a4, a2, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a5_, a6_, a1_, a4_, a2_, a3_, n_] :> 
  S2[a5, n]*S2[a6, a1, a4, a2, a3, n] + S2[a6, a1, a4, a2, SP[a3, a5], n] + 
    S2[a6, a1, a4, SP[a2, a5], a3, n] + S2[a6, a1, SP[a4, a5], a2, a3, n] + 
    S2[a6, SP[a1, a5], a4, a2, a3, n] + S2[SP[a5, a6], a1, a4, a2, a3, n] - 
    S2[a6, a1, a4, a2, a3, a5, n] - S2[a6, a1, a4, a2, a5, a3, n] - 
    S2[a6, a1, a4, a5, a2, a3, n] - S2[a6, a1, a5, a4, a2, a3, n] - 
    S2[a6, a5, a1, a4, a2, a3, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a5_, a6_, a1_, a4_, a3_, a2_, n_] :> 
  S2[a5, n]*S2[a6, a1, a4, a3, a2, n] + S2[a6, a1, a4, a3, SP[a2, a5], n] + 
    S2[a6, a1, a4, SP[a3, a5], a2, n] + S2[a6, a1, SP[a4, a5], a3, a2, n] + 
    S2[a6, SP[a1, a5], a4, a3, a2, n] + S2[SP[a5, a6], a1, a4, a3, a2, n] - 
    S2[a6, a1, a4, a3, a2, a5, n] - S2[a6, a1, a4, a3, a5, a2, n] - 
    S2[a6, a1, a4, a5, a3, a2, n] - S2[a6, a1, a5, a4, a3, a2, n] - 
    S2[a6, a5, a1, a4, a3, a2, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a5_, a6_, a2_, a1_, a3_, a4_, n_] :> 
  -(S2[a5, n]*S2[a2, a6, a1, a3, a4, n]) - S2[a2, a6, a1, a3, SP[a4, a5], 
     n] - S2[a2, a6, a1, SP[a3, a5], a4, n] - S2[a2, a6, SP[a1, a5], a3, a4, 
     n] - S2[a2, SP[a5, a6], a1, a3, a4, n] + 
    S2[a2, n]*S2[a5, a6, a1, a3, a4, n] + S2[a5, a6, a1, a3, SP[a2, a4], n] + 
    S2[a5, a6, a1, SP[a2, a3], a4, n] + S2[a5, a6, SP[a1, a2], a3, a4, n] + 
    S2[a5, SP[a2, a6], a1, a3, a4, n] - S2[a5, n]*S2[a6, a1, a2, a3, a4, n] - 
    S2[a6, a1, a2, a3, SP[a4, a5], n] - S2[a6, a1, a2, SP[a3, a5], a4, n] - 
    S2[a5, n]*S2[a6, a1, a3, a2, a4, n] - S2[a6, a1, a3, a2, SP[a4, a5], n] - 
    S2[a5, n]*S2[a6, a1, a3, a4, a2, n] + 
    S2[a2, n]*S2[a6, a1, a3, a4, a5, n] + 
    S2[a2, n]*S2[a6, a1, a3, a5, a4, n] + S2[a6, a1, a3, a5, SP[a2, a4], n] + 
    S2[a6, a1, a3, SP[a2, a4], a5, n] - S2[a6, a1, a3, SP[a4, a5], a2, n] + 
    S2[a2, n]*S2[a6, a1, a5, a3, a4, n] + S2[a6, a1, a5, a3, SP[a2, a4], n] + 
    S2[a6, a1, a5, SP[a2, a3], a4, n] + S2[a6, a1, SP[a2, a3], a4, a5, n] + 
    S2[a6, a1, SP[a2, a3], a5, a4, n] - S2[a6, a1, SP[a3, a5], a2, a4, n] - 
    S2[a6, a1, SP[a3, a5], a4, a2, n] + S2[a2, n]*S2[a6, a5, a1, a3, a4, n] + 
    S2[a6, a5, a1, a3, SP[a2, a4], n] + S2[a6, a5, a1, SP[a2, a3], a4, n] + 
    S2[a6, a5, SP[a1, a2], a3, a4, n] + S2[a6, SP[a1, a2], a3, a4, a5, n] + 
    S2[a6, SP[a1, a2], a3, a5, a4, n] + S2[a6, SP[a1, a2], a5, a3, a4, n] - 
    S2[a6, SP[a1, a5], a2, a3, a4, n] - S2[a6, SP[a1, a5], a3, a2, a4, n] - 
    S2[a6, SP[a1, a5], a3, a4, a2, n] + S2[a6, SP[a2, a5], a1, a3, a4, n] + 
    S2[SP[a2, a6], a1, a3, a4, a5, n] + S2[SP[a2, a6], a1, a3, a5, a4, n] + 
    S2[SP[a2, a6], a1, a5, a3, a4, n] + S2[SP[a2, a6], a5, a1, a3, a4, n] - 
    S2[SP[a5, a6], a1, a2, a3, a4, n] - S2[SP[a5, a6], a1, a3, a2, a4, n] - 
    S2[SP[a5, a6], a1, a3, a4, a2, n] - S2[a6, a2, a1, a3, a4, a5, n] - 
    S2[a6, a2, a1, a3, a5, a4, n] - S2[a6, a2, a1, a5, a3, a4, n] - 
    S2[a6, a2, a5, a1, a3, a4, n] - S2[a6, a5, a2, a1, a3, a4, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a5_, a6_, a2_, a1_, a4_, a3_, n_] :> 
  -(S2[a5, n]*S2[a2, a6, a1, a4, a3, n]) - S2[a2, a6, a1, a4, SP[a3, a5], 
     n] - S2[a2, a6, a1, SP[a4, a5], a3, n] - S2[a2, a6, SP[a1, a5], a4, a3, 
     n] - S2[a2, SP[a5, a6], a1, a4, a3, n] + 
    S2[a2, n]*S2[a5, a6, a1, a4, a3, n] + S2[a5, a6, a1, a4, SP[a2, a3], n] + 
    S2[a5, a6, a1, SP[a2, a4], a3, n] + S2[a5, a6, SP[a1, a2], a4, a3, n] + 
    S2[a5, SP[a2, a6], a1, a4, a3, n] - S2[a5, n]*S2[a6, a1, a2, a4, a3, n] - 
    S2[a6, a1, a2, a4, SP[a3, a5], n] - S2[a6, a1, a2, SP[a4, a5], a3, n] - 
    S2[a5, n]*S2[a6, a1, a4, a2, a3, n] - S2[a6, a1, a4, a2, SP[a3, a5], n] - 
    S2[a5, n]*S2[a6, a1, a4, a3, a2, n] + 
    S2[a2, n]*S2[a6, a1, a4, a3, a5, n] + 
    S2[a2, n]*S2[a6, a1, a4, a5, a3, n] + S2[a6, a1, a4, a5, SP[a2, a3], n] + 
    S2[a6, a1, a4, SP[a2, a3], a5, n] - S2[a6, a1, a4, SP[a3, a5], a2, n] + 
    S2[a2, n]*S2[a6, a1, a5, a4, a3, n] + S2[a6, a1, a5, a4, SP[a2, a3], n] + 
    S2[a6, a1, a5, SP[a2, a4], a3, n] + S2[a6, a1, SP[a2, a4], a3, a5, n] + 
    S2[a6, a1, SP[a2, a4], a5, a3, n] - S2[a6, a1, SP[a4, a5], a2, a3, n] - 
    S2[a6, a1, SP[a4, a5], a3, a2, n] + S2[a2, n]*S2[a6, a5, a1, a4, a3, n] + 
    S2[a6, a5, a1, a4, SP[a2, a3], n] + S2[a6, a5, a1, SP[a2, a4], a3, n] + 
    S2[a6, a5, SP[a1, a2], a4, a3, n] + S2[a6, SP[a1, a2], a4, a3, a5, n] + 
    S2[a6, SP[a1, a2], a4, a5, a3, n] + S2[a6, SP[a1, a2], a5, a4, a3, n] - 
    S2[a6, SP[a1, a5], a2, a4, a3, n] - S2[a6, SP[a1, a5], a4, a2, a3, n] - 
    S2[a6, SP[a1, a5], a4, a3, a2, n] + S2[a6, SP[a2, a5], a1, a4, a3, n] + 
    S2[SP[a2, a6], a1, a4, a3, a5, n] + S2[SP[a2, a6], a1, a4, a5, a3, n] + 
    S2[SP[a2, a6], a1, a5, a4, a3, n] + S2[SP[a2, a6], a5, a1, a4, a3, n] - 
    S2[SP[a5, a6], a1, a2, a4, a3, n] - S2[SP[a5, a6], a1, a4, a2, a3, n] - 
    S2[SP[a5, a6], a1, a4, a3, a2, n] - S2[a6, a2, a1, a4, a3, a5, n] - 
    S2[a6, a2, a1, a4, a5, a3, n] - S2[a6, a2, a1, a5, a4, a3, n] - 
    S2[a6, a2, a5, a1, a4, a3, n] - S2[a6, a5, a2, a1, a4, a3, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a5_, a6_, a2_, a3_, a1_, a4_, n_] :> 
  S2[a5, n]*S2[a6, a2, a3, a1, a4, n] + S2[a6, a2, a3, a1, SP[a4, a5], n] + 
    S2[a6, a2, a3, SP[a1, a5], a4, n] + S2[a6, a2, SP[a3, a5], a1, a4, n] + 
    S2[a6, SP[a2, a5], a3, a1, a4, n] + S2[SP[a5, a6], a2, a3, a1, a4, n] - 
    S2[a6, a2, a3, a1, a4, a5, n] - S2[a6, a2, a3, a1, a5, a4, n] - 
    S2[a6, a2, a3, a5, a1, a4, n] - S2[a6, a2, a5, a3, a1, a4, n] - 
    S2[a6, a5, a2, a3, a1, a4, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a5_, a6_, a2_, a3_, a4_, a1_, n_] :> 
  -(S2[a5, n]*S2[a1, a6, a2, a3, a4, n]) - S2[a1, a6, a2, a3, SP[a4, a5], 
     n] - S2[a1, a6, a2, SP[a3, a5], a4, n] - S2[a1, a6, SP[a2, a5], a3, a4, 
     n] - S2[a1, SP[a5, a6], a2, a3, a4, n] + 
    S2[a5, n]*S2[a2, a6, a1, a3, a4, n] + S2[a2, a6, a1, a3, SP[a4, a5], n] + 
    S2[a2, a6, a1, SP[a3, a5], a4, n] + S2[a2, a6, SP[a1, a5], a3, a4, n] + 
    S2[a2, SP[a5, a6], a1, a3, a4, n] - S2[a2, n]*S2[a5, a6, a1, a3, a4, n] - 
    S2[a5, a6, a1, a3, SP[a2, a4], n] - S2[a5, a6, a1, SP[a2, a3], a4, n] + 
    S2[a1, n]*S2[a5, a6, a2, a3, a4, n] + S2[a5, a6, a2, a3, SP[a1, a4], n] + 
    S2[a5, a6, a2, SP[a1, a3], a4, n] + S2[a5, SP[a1, a6], a2, a3, a4, n] - 
    S2[a5, SP[a2, a6], a1, a3, a4, n] + S2[a5, n]*S2[a6, a1, a3, a2, a4, n] + 
    S2[a6, a1, a3, a2, SP[a4, a5], n] + S2[a5, n]*S2[a6, a1, a3, a4, a2, n] - 
    S2[a2, n]*S2[a6, a1, a3, a4, a5, n] - 
    S2[a2, n]*S2[a6, a1, a3, a5, a4, n] - S2[a6, a1, a3, a5, SP[a2, a4], n] - 
    S2[a6, a1, a3, SP[a2, a4], a5, n] + S2[a6, a1, a3, SP[a4, a5], a2, n] - 
    S2[a2, n]*S2[a6, a1, a5, a3, a4, n] - S2[a6, a1, a5, a3, SP[a2, a4], n] - 
    S2[a6, a1, a5, SP[a2, a3], a4, n] - S2[a6, a1, SP[a2, a3], a4, a5, n] - 
    S2[a6, a1, SP[a2, a3], a5, a4, n] - S2[a6, a1, SP[a2, a5], a3, a4, n] + 
    S2[a6, a1, SP[a3, a5], a2, a4, n] + S2[a6, a1, SP[a3, a5], a4, a2, n] - 
    S2[a5, n]*S2[a6, a2, a3, a1, a4, n] - S2[a6, a2, a3, a1, SP[a4, a5], n] + 
    S2[a1, n]*S2[a6, a2, a3, a4, a5, n] + S2[a6, a2, a3, a4, SP[a1, a5], n] + 
    S2[a1, n]*S2[a6, a2, a3, a5, a4, n] + S2[a6, a2, a3, a5, SP[a1, a4], n] + 
    S2[a6, a2, a3, SP[a1, a4], a5, n] + S2[a1, n]*S2[a6, a2, a5, a3, a4, n] + 
    S2[a6, a2, a5, a3, SP[a1, a4], n] + S2[a6, a2, a5, SP[a1, a3], a4, n] + 
    S2[a6, a2, SP[a1, a3], a4, a5, n] + S2[a6, a2, SP[a1, a3], a5, a4, n] + 
    S2[a6, a2, SP[a1, a5], a3, a4, n] - S2[a6, a2, SP[a3, a5], a1, a4, n] - 
    S2[a2, n]*S2[a6, a5, a1, a3, a4, n] - S2[a6, a5, a1, a3, SP[a2, a4], n] - 
    S2[a6, a5, a1, SP[a2, a3], a4, n] + S2[a1, n]*S2[a6, a5, a2, a3, a4, n] + 
    S2[a6, a5, a2, a3, SP[a1, a4], n] + S2[a6, a5, a2, SP[a1, a3], a4, n] + 
    S2[a6, SP[a1, a5], a2, a3, a4, n] + S2[a6, SP[a1, a5], a3, a2, a4, n] + 
    S2[a6, SP[a1, a5], a3, a4, a2, n] - S2[a6, SP[a2, a5], a1, a3, a4, n] - 
    S2[a6, SP[a2, a5], a3, a1, a4, n] + S2[SP[a1, a6], a2, a3, a4, a5, n] + 
    S2[SP[a1, a6], a2, a3, a5, a4, n] + S2[SP[a1, a6], a2, a5, a3, a4, n] + 
    S2[SP[a1, a6], a5, a2, a3, a4, n] - S2[SP[a2, a6], a1, a3, a4, a5, n] - 
    S2[SP[a2, a6], a1, a3, a5, a4, n] - S2[SP[a2, a6], a1, a5, a3, a4, n] - 
    S2[SP[a2, a6], a5, a1, a3, a4, n] + S2[SP[a5, a6], a1, a3, a2, a4, n] + 
    S2[SP[a5, a6], a1, a3, a4, a2, n] - S2[SP[a5, a6], a2, a3, a1, a4, n] - 
    S2[a6, a2, a3, a4, a1, a5, n] - S2[a6, a2, a3, a4, a5, a1, n] - 
    S2[a6, a2, a3, a5, a4, a1, n] - S2[a6, a2, a5, a3, a4, a1, n] - 
    S2[a6, a5, a2, a3, a4, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a5_, a6_, a2_, a4_, a1_, a3_, n_] :> 
  S2[a5, n]*S2[a6, a2, a4, a1, a3, n] + S2[a6, a2, a4, a1, SP[a3, a5], n] + 
    S2[a6, a2, a4, SP[a1, a5], a3, n] + S2[a6, a2, SP[a4, a5], a1, a3, n] + 
    S2[a6, SP[a2, a5], a4, a1, a3, n] + S2[SP[a5, a6], a2, a4, a1, a3, n] - 
    S2[a6, a2, a4, a1, a3, a5, n] - S2[a6, a2, a4, a1, a5, a3, n] - 
    S2[a6, a2, a4, a5, a1, a3, n] - S2[a6, a2, a5, a4, a1, a3, n] - 
    S2[a6, a5, a2, a4, a1, a3, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a5_, a6_, a2_, a4_, a3_, a1_, n_] :> 
  -(S2[a5, n]*S2[a1, a6, a2, a4, a3, n]) - S2[a1, a6, a2, a4, SP[a3, a5], 
     n] - S2[a1, a6, a2, SP[a4, a5], a3, n] - S2[a1, a6, SP[a2, a5], a4, a3, 
     n] - S2[a1, SP[a5, a6], a2, a4, a3, n] + 
    S2[a5, n]*S2[a2, a6, a1, a4, a3, n] + S2[a2, a6, a1, a4, SP[a3, a5], n] + 
    S2[a2, a6, a1, SP[a4, a5], a3, n] + S2[a2, a6, SP[a1, a5], a4, a3, n] + 
    S2[a2, SP[a5, a6], a1, a4, a3, n] - S2[a2, n]*S2[a5, a6, a1, a4, a3, n] - 
    S2[a5, a6, a1, a4, SP[a2, a3], n] - S2[a5, a6, a1, SP[a2, a4], a3, n] + 
    S2[a1, n]*S2[a5, a6, a2, a4, a3, n] + S2[a5, a6, a2, a4, SP[a1, a3], n] + 
    S2[a5, a6, a2, SP[a1, a4], a3, n] + S2[a5, SP[a1, a6], a2, a4, a3, n] - 
    S2[a5, SP[a2, a6], a1, a4, a3, n] + S2[a5, n]*S2[a6, a1, a4, a2, a3, n] + 
    S2[a6, a1, a4, a2, SP[a3, a5], n] + S2[a5, n]*S2[a6, a1, a4, a3, a2, n] - 
    S2[a2, n]*S2[a6, a1, a4, a3, a5, n] - 
    S2[a2, n]*S2[a6, a1, a4, a5, a3, n] - S2[a6, a1, a4, a5, SP[a2, a3], n] - 
    S2[a6, a1, a4, SP[a2, a3], a5, n] + S2[a6, a1, a4, SP[a3, a5], a2, n] - 
    S2[a2, n]*S2[a6, a1, a5, a4, a3, n] - S2[a6, a1, a5, a4, SP[a2, a3], n] - 
    S2[a6, a1, a5, SP[a2, a4], a3, n] - S2[a6, a1, SP[a2, a4], a3, a5, n] - 
    S2[a6, a1, SP[a2, a4], a5, a3, n] - S2[a6, a1, SP[a2, a5], a4, a3, n] + 
    S2[a6, a1, SP[a4, a5], a2, a3, n] + S2[a6, a1, SP[a4, a5], a3, a2, n] - 
    S2[a5, n]*S2[a6, a2, a4, a1, a3, n] - S2[a6, a2, a4, a1, SP[a3, a5], n] + 
    S2[a1, n]*S2[a6, a2, a4, a3, a5, n] + S2[a6, a2, a4, a3, SP[a1, a5], n] + 
    S2[a1, n]*S2[a6, a2, a4, a5, a3, n] + S2[a6, a2, a4, a5, SP[a1, a3], n] + 
    S2[a6, a2, a4, SP[a1, a3], a5, n] + S2[a1, n]*S2[a6, a2, a5, a4, a3, n] + 
    S2[a6, a2, a5, a4, SP[a1, a3], n] + S2[a6, a2, a5, SP[a1, a4], a3, n] + 
    S2[a6, a2, SP[a1, a4], a3, a5, n] + S2[a6, a2, SP[a1, a4], a5, a3, n] + 
    S2[a6, a2, SP[a1, a5], a4, a3, n] - S2[a6, a2, SP[a4, a5], a1, a3, n] - 
    S2[a2, n]*S2[a6, a5, a1, a4, a3, n] - S2[a6, a5, a1, a4, SP[a2, a3], n] - 
    S2[a6, a5, a1, SP[a2, a4], a3, n] + S2[a1, n]*S2[a6, a5, a2, a4, a3, n] + 
    S2[a6, a5, a2, a4, SP[a1, a3], n] + S2[a6, a5, a2, SP[a1, a4], a3, n] + 
    S2[a6, SP[a1, a5], a2, a4, a3, n] + S2[a6, SP[a1, a5], a4, a2, a3, n] + 
    S2[a6, SP[a1, a5], a4, a3, a2, n] - S2[a6, SP[a2, a5], a1, a4, a3, n] - 
    S2[a6, SP[a2, a5], a4, a1, a3, n] + S2[SP[a1, a6], a2, a4, a3, a5, n] + 
    S2[SP[a1, a6], a2, a4, a5, a3, n] + S2[SP[a1, a6], a2, a5, a4, a3, n] + 
    S2[SP[a1, a6], a5, a2, a4, a3, n] - S2[SP[a2, a6], a1, a4, a3, a5, n] - 
    S2[SP[a2, a6], a1, a4, a5, a3, n] - S2[SP[a2, a6], a1, a5, a4, a3, n] - 
    S2[SP[a2, a6], a5, a1, a4, a3, n] + S2[SP[a5, a6], a1, a4, a2, a3, n] + 
    S2[SP[a5, a6], a1, a4, a3, a2, n] - S2[SP[a5, a6], a2, a4, a1, a3, n] - 
    S2[a6, a2, a4, a3, a1, a5, n] - S2[a6, a2, a4, a3, a5, a1, n] - 
    S2[a6, a2, a4, a5, a3, a1, n] - S2[a6, a2, a5, a4, a3, a1, n] - 
    S2[a6, a5, a2, a4, a3, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a5_, a6_, a3_, a1_, a2_, a4_, n_] :> 
  -(S2[a5, n]*S2[a3, a6, a1, a2, a4, n]) - S2[a3, a6, a1, a2, SP[a4, a5], 
     n] - S2[a3, a6, a1, SP[a2, a5], a4, n] - S2[a3, a6, SP[a1, a5], a2, a4, 
     n] - S2[a3, SP[a5, a6], a1, a2, a4, n] + 
    S2[a3, n]*S2[a5, a6, a1, a2, a4, n] + S2[a5, a6, a1, a2, SP[a3, a4], n] + 
    S2[a5, a6, a1, SP[a2, a3], a4, n] + S2[a5, a6, SP[a1, a3], a2, a4, n] + 
    S2[a5, SP[a3, a6], a1, a2, a4, n] - S2[a5, n]*S2[a6, a1, a2, a3, a4, n] - 
    S2[a6, a1, a2, a3, SP[a4, a5], n] - S2[a5, n]*S2[a6, a1, a2, a4, a3, n] + 
    S2[a3, n]*S2[a6, a1, a2, a4, a5, n] + 
    S2[a3, n]*S2[a6, a1, a2, a5, a4, n] + S2[a6, a1, a2, a5, SP[a3, a4], n] + 
    S2[a6, a1, a2, SP[a3, a4], a5, n] - S2[a6, a1, a2, SP[a4, a5], a3, n] - 
    S2[a5, n]*S2[a6, a1, a3, a2, a4, n] - S2[a6, a1, a3, a2, SP[a4, a5], n] - 
    S2[a6, a1, a3, SP[a2, a5], a4, n] + S2[a3, n]*S2[a6, a1, a5, a2, a4, n] + 
    S2[a6, a1, a5, a2, SP[a3, a4], n] + S2[a6, a1, a5, SP[a2, a3], a4, n] + 
    S2[a6, a1, SP[a2, a3], a4, a5, n] + S2[a6, a1, SP[a2, a3], a5, a4, n] - 
    S2[a6, a1, SP[a2, a5], a3, a4, n] - S2[a6, a1, SP[a2, a5], a4, a3, n] + 
    S2[a3, n]*S2[a6, a5, a1, a2, a4, n] + S2[a6, a5, a1, a2, SP[a3, a4], n] + 
    S2[a6, a5, a1, SP[a2, a3], a4, n] + S2[a6, a5, SP[a1, a3], a2, a4, n] + 
    S2[a6, SP[a1, a3], a2, a4, a5, n] + S2[a6, SP[a1, a3], a2, a5, a4, n] + 
    S2[a6, SP[a1, a3], a5, a2, a4, n] - S2[a6, SP[a1, a5], a2, a3, a4, n] - 
    S2[a6, SP[a1, a5], a2, a4, a3, n] - S2[a6, SP[a1, a5], a3, a2, a4, n] + 
    S2[a6, SP[a3, a5], a1, a2, a4, n] + S2[SP[a3, a6], a1, a2, a4, a5, n] + 
    S2[SP[a3, a6], a1, a2, a5, a4, n] + S2[SP[a3, a6], a1, a5, a2, a4, n] + 
    S2[SP[a3, a6], a5, a1, a2, a4, n] - S2[SP[a5, a6], a1, a2, a3, a4, n] - 
    S2[SP[a5, a6], a1, a2, a4, a3, n] - S2[SP[a5, a6], a1, a3, a2, a4, n] - 
    S2[a6, a3, a1, a2, a4, a5, n] - S2[a6, a3, a1, a2, a5, a4, n] - 
    S2[a6, a3, a1, a5, a2, a4, n] - S2[a6, a3, a5, a1, a2, a4, n] - 
    S2[a6, a5, a3, a1, a2, a4, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a5_, a6_, a3_, a1_, a4_, a2_, n_] :> 
  -(S2[a5, n]*S2[a3, a6, a1, a4, a2, n]) - S2[a3, a6, a1, a4, SP[a2, a5], 
     n] - S2[a3, a6, a1, SP[a4, a5], a2, n] - S2[a3, a6, SP[a1, a5], a4, a2, 
     n] - S2[a3, SP[a5, a6], a1, a4, a2, n] + 
    S2[a3, n]*S2[a5, a6, a1, a4, a2, n] + S2[a5, a6, a1, a4, SP[a2, a3], n] + 
    S2[a5, a6, a1, SP[a3, a4], a2, n] + S2[a5, a6, SP[a1, a3], a4, a2, n] + 
    S2[a5, SP[a3, a6], a1, a4, a2, n] - S2[a5, n]*S2[a6, a1, a3, a4, a2, n] - 
    S2[a6, a1, a3, a4, SP[a2, a5], n] - S2[a6, a1, a3, SP[a4, a5], a2, n] - 
    S2[a5, n]*S2[a6, a1, a4, a2, a3, n] + 
    S2[a3, n]*S2[a6, a1, a4, a2, a5, n] - 
    S2[a5, n]*S2[a6, a1, a4, a3, a2, n] - S2[a6, a1, a4, a3, SP[a2, a5], n] + 
    S2[a3, n]*S2[a6, a1, a4, a5, a2, n] + S2[a6, a1, a4, a5, SP[a2, a3], n] + 
    S2[a6, a1, a4, SP[a2, a3], a5, n] - S2[a6, a1, a4, SP[a2, a5], a3, n] + 
    S2[a3, n]*S2[a6, a1, a5, a4, a2, n] + S2[a6, a1, a5, a4, SP[a2, a3], n] + 
    S2[a6, a1, a5, SP[a3, a4], a2, n] + S2[a6, a1, SP[a3, a4], a2, a5, n] + 
    S2[a6, a1, SP[a3, a4], a5, a2, n] - S2[a6, a1, SP[a4, a5], a2, a3, n] - 
    S2[a6, a1, SP[a4, a5], a3, a2, n] + S2[a3, n]*S2[a6, a5, a1, a4, a2, n] + 
    S2[a6, a5, a1, a4, SP[a2, a3], n] + S2[a6, a5, a1, SP[a3, a4], a2, n] + 
    S2[a6, a5, SP[a1, a3], a4, a2, n] + S2[a6, SP[a1, a3], a4, a2, a5, n] + 
    S2[a6, SP[a1, a3], a4, a5, a2, n] + S2[a6, SP[a1, a3], a5, a4, a2, n] - 
    S2[a6, SP[a1, a5], a3, a4, a2, n] - S2[a6, SP[a1, a5], a4, a2, a3, n] - 
    S2[a6, SP[a1, a5], a4, a3, a2, n] + S2[a6, SP[a3, a5], a1, a4, a2, n] + 
    S2[SP[a3, a6], a1, a4, a2, a5, n] + S2[SP[a3, a6], a1, a4, a5, a2, n] + 
    S2[SP[a3, a6], a1, a5, a4, a2, n] + S2[SP[a3, a6], a5, a1, a4, a2, n] - 
    S2[SP[a5, a6], a1, a3, a4, a2, n] - S2[SP[a5, a6], a1, a4, a2, a3, n] - 
    S2[SP[a5, a6], a1, a4, a3, a2, n] - S2[a6, a3, a1, a4, a2, a5, n] - 
    S2[a6, a3, a1, a4, a5, a2, n] - S2[a6, a3, a1, a5, a4, a2, n] - 
    S2[a6, a3, a5, a1, a4, a2, n] - S2[a6, a5, a3, a1, a4, a2, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, {a1, a2, a3, a4, a5, a6}] && 
    a1 != a2 != a3 != a4 != a5 != a6, S2[a5_, a6_, a3_, a2_, a1_, a4_, n_] :> 
  -(S2[a5, n]*S2[a2, a6, a3, a1, a4, n]) - S2[a2, a6, a3, a1, SP[a4, a5], 
     n] - S2[a2, a6, a3, SP[a1, a5], a4, n] - S2[a2, a6, SP[a3, a5], a1, a4, 
     n] - S2[a2, SP[a5, a6], a3, a1, a4, n] + 
    S2[a5, n]*S2[a3, a6, a1, a2, a4, n] + S2[a3, a6, a1, a2, SP[a4, a5], n] + 
    S2[a5, n]*S2[a3, a6, a1, a4, a2, n] + S2[a3, a6, a1, a4, SP[a2, a5], n] + 
    S2[a3, a6, a1, SP[a2, a5], a4, n] + S2[a3, a6, a1, SP[a4, a5], a2, n] + 
    S2[a3, a6, SP[a1, a5], a2, a4, n] + S2[a3, a6, SP[a1, a5], a4, a2, n] + 
    S2[a3, SP[a5, a6], a1, a2, a4, n] + S2[a3, SP[a5, a6], a1, a4, a2, n] - 
    S2[a3, n]*S2[a5, a6, a1, a2, a4, n] - S2[a5, a6, a1, a2, SP[a3, a4], n] - 
    S2[a3, n]*S2[a5, a6, a1, a4, a2, n] - S2[a5, a6, a1, a4, SP[a2, a3], n] - 
    S2[a5, a6, a1, SP[a2, a3], a4, n] - S2[a5, a6, a1, SP[a3, a4], a2, n] + 
    S2[a2, n]*S2[a5, a6, a3, a1, a4, n] + S2[a5, a6, a3, a1, SP[a2, a4], n] + 
    S2[a5, a6, a3, SP[a1, a2], a4, n] - S2[a5, a6, SP[a1, a3], a2, a4, n] - 
    S2[a5, a6, SP[a1, a3], a4, a2, n] + S2[a5, a6, SP[a2, a3], a1, a4, n] + 
    S2[a5, SP[a2, a6], a3, a1, a4, n] - S2[a5, SP[a3, a6], a1, a2, a4, n] - 
    S2[a5, SP[a3, a6], a1, a4, a2, n] + S2[a5, n]*S2[a6, a1, a2, a3, a4, n] + 
    S2[a6, a1, a2, a3, SP[a4, a5], n] + S2[a5, n]*S2[a6, a1, a2, a4, a3, n] - 
    S2[a3, n]*S2[a6, a1, a2, a4, a5, n] - 
    S2[a3, n]*S2[a6, a1, a2, a5, a4, n] - S2[a6, a1, a2, a5, SP[a3, a4], n] - 
    S2[a6, a1, a2, SP[a3, a4], a5, n] + S2[a6, a1, a2, SP[a4, a5], a3, n] + 
    S2[a5, n]*S2[a6, a1, a3, a2, a4, n] + S2[a6, a1, a3, a2, SP[a4, a5], n] + 
    S2[a5, n]*S2[a6, a1, a3, a4, a2, n] + S2[a6, a1, a3, a4, SP[a2, a5], n] + 
    S2[a6, a1, a3, SP[a2, a5], a4, n] + S2[a6, a1, a3, SP[a4, a5], a2, n] + 
    S2[a5, n]*S2[a6, a1, a4, a2, a3, n] - 
    S2[a3, n]*S2[a6, a1, a4, a2, a5, n] + 
    S2[a5, n]*S2[a6, a1, a4, a3, a2, n] + S2[a6, a1, a4, a3, SP[a2, a5], n] - 
    S2[a3, n]*S2[a6, a1, a4, a5, a2, n] - S2[a6, a1, a4, a5, SP[a2, a3], n] - 
    S2[a6, a1, a4, SP[a2, a3], a5, n] + S2[a6, a1, a4, SP[a2, a5], a3, n] - 
    S2[a3, n]*S2[a6, a1, a5, a2, a4, n] - S2[a6, a1, a5, a2, SP[a3, a4], n] - 
    S2[a3, n]*S2[a6, a1, a5, a4, a2, n] - S2[a6, a1, a5, a4, SP[a2, a3], n] - 
    S2[a6, a1, a5, SP[a2, a3], a4, n] - S2[a6, a1, a5, SP[a3, a4], a2, n] - 
    S2[a6, a1, SP[a2, a3], a4, a5, n] - S2[a6, a1, SP[a2, a3], a5, a4, n] + 
    S2[a6, a1, SP[a2, a5], a3, a4, n] + S2[a6, a1, SP[a2, a5], a4, a3, n] - 
    S2[a6, a1, SP[a3, a4], a2, a5, n] - S2[a6, a1, SP[a3, a4], a5, a2, n] + 
    S2[a6, a1, SP[a4, a5], a2, a3, n] + S2[a6, a1, SP[a4, a5], a3, a2, n] - 
    S2[a5, n]*S2[a6, a2, a3, a1, a4, n] - S2[a6, a2, a3, a1, SP[a4, a5], n] - 
    S2[a6, a2, a3, SP[a1, a5], a4, n] - S2[a6, a2, SP[a3, a5], a1, a4, n] + 
    S2[a2, n]*S2[a6, a3, a1, a4, a5, n] + S2[a6, a3, a1, a4, SP[a2, a5], n] + 
    S2[a2, n]*S2[a6, a3, a1, a5, a4, n] + S2[a6, a3, a1, a5, SP[a2, a4], n] + 
    S2[a6, a3, a1, SP[a2, a4], a5, n] + S2[a6, a3, a1, SP[a2, a5], a4, n] + 
    S2[a2, n]*S2[a6, a3, a5, a1, a4, n] + S2[a6, a3, a5, a1, SP[a2, a4], n] + 
    S2[a6, a3, a5, SP[a1, a2], a4, n] + S2[a6, a3, SP[a1, a2], a4, a5, n] + 
    S2[a6, a3, SP[a1, a2], a5, a4, n] + S2[a6, a3, SP[a2, a5], a1, a4, n] - 
    S2[a3, n]*S2[a6, a5, a1, a2, a4, n] - S2[a6, a5, a1, a2, SP[a3, a4], n] - 
    S2[a3, n]*S2[a6, a5, a1, a4, a2, n] - S2[a6, a5, a1, a4, SP[a2, a3], n] - 
    S2[a6, a5, a1, SP[a2, a3], a4, n] - S2[a6, a5, a1, SP[a3, a4], a2, n] + 
    S2[a2, n]*S2[a6, a5, a3, a1, a4, n] + S2[a6, a5, a3, a1, SP[a2, a4], n] + 
    S2[a6, a5, a3, SP[a1, a2], a4, n] - S2[a6, a5, SP[a1, a3], a2, a4, n] - 
    S2[a6, a5, SP[a1, a3], a4, a2, n] + S2[a6, a5, SP[a2, a3], a1, a4, n] - 
    S2[a6, SP[a1, a3], a2, a4, a5, n] - S2[a6, SP[a1, a3], a2, a5, a4, n] - 
    S2[a6, SP[a1, a3], a4, a2, a5, n] - S2[a6, SP[a1, a3], a4, a5, a2, n] - 
    S2[a6, SP[a1, a3], a5, a2, a4, n] - S2[a6, SP[a1, a3], a5, a4, a2, n] + 
    S2[a6, SP[a1, a5], a2, a3, a4, n] + S2[a6, SP[a1, a5], a2, a4, a3, n] + 
    S2[a6, SP[a1, a5], a3, a2, a4, n] + S2[a6, SP[a1, a5], a3, a4, a2, n] + 
    S2[a6, SP[a1, a5], a4, a2, a3, n] + S2[a6, SP[a1, a5], a4, a3, a2, n] + 
    S2[a6, SP[a2, a3], a1, a4, a5, n] + S2[a6, SP[a2, a3], a1, a5, a4, n] + 
    S2[a6, SP[a2, a3], a5, a1, a4, n] - S2[a6, SP[a3, a5], a1, a2, a4, n] - 
    S2[a6, SP[a3, a5], a1, a4, a2, n] + S2[SP[a2, a6], a3, a1, a4, a5, n] + 
    S2[SP[a2, a6], a3, a1, a5, a4, n] + S2[SP[a2, a6], a3, a5, a1, a4, n] + 
    S2[SP[a2, a6], a5, a3, a1, a4, n] - S2[SP[a3, a6], a1, a2, a4, a5, n] - 
    S2[SP[a3, a6], a1, a2, a5, a4, n] - S2[SP[a3, a6], a1, a4, a2, a5, n] - 
    S2[SP[a3, a6], a1, a4, a5, a2, n] - S2[SP[a3, a6], a1, a5, a2, a4, n] - 
    S2[SP[a3, a6], a1, a5, a4, a2, n] - S2[SP[a3, a6], a5, a1, a2, a4, n] - 
    S2[SP[a3, a6], a5, a1, a4, a2, n] + S2[SP[a5, a6], a1, a2, a3, a4, n] + 
    S2[SP[a5, a6], a1, a2, a4, a3, n] + S2[SP[a5, a6], a1, a3, a2, a4, n] + 
    S2[SP[a5, a6], a1, a3, a4, a2, n] + S2[SP[a5, a6], a1, a4, a2, a3, n] + 
    S2[SP[a5, a6], a1, a4, a3, a2, n] - S2[SP[a5, a6], a2, a3, a1, a4, n] - 
    S2[a6, a3, a2, a1, a4, a5, n] - S2[a6, a3, a2, a1, a5, a4, n] - 
    S2[a6, a3, a2, a5, a1, a4, n] - S2[a6, a3, a5, a2, a1, a4, n] - 
    S2[a6, a5, a3, a2, a1, a4, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a5_, a6_, a3_, a2_, a4_, a1_, n_] :> 
  -(S2[a5, n]*S2[a1, a6, a3, a2, a4, n]) - S2[a1, a6, a3, a2, SP[a4, a5], 
     n] - S2[a1, a6, a3, SP[a2, a5], a4, n] - S2[a1, a6, SP[a3, a5], a2, a4, 
     n] - S2[a1, SP[a5, a6], a3, a2, a4, n] + 
    S2[a5, n]*S2[a2, a6, a3, a1, a4, n] + S2[a2, a6, a3, a1, SP[a4, a5], n] + 
    S2[a2, a6, a3, SP[a1, a5], a4, n] + S2[a2, a6, SP[a3, a5], a1, a4, n] + 
    S2[a2, SP[a5, a6], a3, a1, a4, n] - S2[a5, n]*S2[a3, a6, a1, a4, a2, n] - 
    S2[a3, a6, a1, a4, SP[a2, a5], n] - S2[a3, a6, a1, SP[a4, a5], a2, n] - 
    S2[a3, a6, SP[a1, a5], a4, a2, n] - S2[a3, SP[a5, a6], a1, a4, a2, n] + 
    S2[a3, n]*S2[a5, a6, a1, a4, a2, n] + S2[a5, a6, a1, a4, SP[a2, a3], n] + 
    S2[a5, a6, a1, SP[a3, a4], a2, n] - S2[a2, n]*S2[a5, a6, a3, a1, a4, n] - 
    S2[a5, a6, a3, a1, SP[a2, a4], n] + S2[a1, n]*S2[a5, a6, a3, a2, a4, n] + 
    S2[a5, a6, a3, a2, SP[a1, a4], n] + S2[a5, a6, SP[a1, a3], a2, a4, n] + 
    S2[a5, a6, SP[a1, a3], a4, a2, n] - S2[a5, a6, SP[a2, a3], a1, a4, n] + 
    S2[a5, SP[a1, a6], a3, a2, a4, n] - S2[a5, SP[a2, a6], a3, a1, a4, n] + 
    S2[a5, SP[a3, a6], a1, a4, a2, n] - S2[a5, n]*S2[a6, a1, a3, a2, a4, n] - 
    S2[a6, a1, a3, a2, SP[a4, a5], n] - S2[a5, n]*S2[a6, a1, a3, a4, a2, n] - 
    S2[a6, a1, a3, a4, SP[a2, a5], n] - S2[a6, a1, a3, SP[a2, a5], a4, n] - 
    S2[a6, a1, a3, SP[a4, a5], a2, n] - S2[a5, n]*S2[a6, a1, a4, a2, a3, n] + 
    S2[a3, n]*S2[a6, a1, a4, a2, a5, n] - 
    S2[a5, n]*S2[a6, a1, a4, a3, a2, n] - S2[a6, a1, a4, a3, SP[a2, a5], n] + 
    S2[a3, n]*S2[a6, a1, a4, a5, a2, n] + S2[a6, a1, a4, a5, SP[a2, a3], n] + 
    S2[a6, a1, a4, SP[a2, a3], a5, n] - S2[a6, a1, a4, SP[a2, a5], a3, n] + 
    S2[a3, n]*S2[a6, a1, a5, a4, a2, n] + S2[a6, a1, a5, a4, SP[a2, a3], n] + 
    S2[a6, a1, a5, SP[a3, a4], a2, n] + S2[a6, a1, SP[a3, a4], a2, a5, n] + 
    S2[a6, a1, SP[a3, a4], a5, a2, n] - S2[a6, a1, SP[a3, a5], a2, a4, n] - 
    S2[a6, a1, SP[a4, a5], a2, a3, n] - S2[a6, a1, SP[a4, a5], a3, a2, n] + 
    S2[a5, n]*S2[a6, a2, a3, a1, a4, n] + S2[a6, a2, a3, a1, SP[a4, a5], n] + 
    S2[a6, a2, a3, SP[a1, a5], a4, n] + S2[a6, a2, SP[a3, a5], a1, a4, n] - 
    S2[a2, n]*S2[a6, a3, a1, a4, a5, n] - S2[a6, a3, a1, a4, SP[a2, a5], n] - 
    S2[a2, n]*S2[a6, a3, a1, a5, a4, n] - S2[a6, a3, a1, a5, SP[a2, a4], n] - 
    S2[a6, a3, a1, SP[a2, a4], a5, n] - S2[a6, a3, a1, SP[a2, a5], a4, n] + 
    S2[a1, n]*S2[a6, a3, a2, a4, a5, n] + S2[a6, a3, a2, a4, SP[a1, a5], n] + 
    S2[a1, n]*S2[a6, a3, a2, a5, a4, n] + S2[a6, a3, a2, a5, SP[a1, a4], n] + 
    S2[a6, a3, a2, SP[a1, a4], a5, n] + S2[a6, a3, a2, SP[a1, a5], a4, n] - 
    S2[a2, n]*S2[a6, a3, a5, a1, a4, n] - S2[a6, a3, a5, a1, SP[a2, a4], n] + 
    S2[a1, n]*S2[a6, a3, a5, a2, a4, n] + S2[a6, a3, a5, a2, SP[a1, a4], n] + 
    S2[a6, a3, SP[a1, a5], a2, a4, n] - S2[a6, a3, SP[a2, a5], a1, a4, n] + 
    S2[a3, n]*S2[a6, a5, a1, a4, a2, n] + S2[a6, a5, a1, a4, SP[a2, a3], n] + 
    S2[a6, a5, a1, SP[a3, a4], a2, n] - S2[a2, n]*S2[a6, a5, a3, a1, a4, n] - 
    S2[a6, a5, a3, a1, SP[a2, a4], n] + S2[a1, n]*S2[a6, a5, a3, a2, a4, n] + 
    S2[a6, a5, a3, a2, SP[a1, a4], n] + S2[a6, a5, SP[a1, a3], a2, a4, n] + 
    S2[a6, a5, SP[a1, a3], a4, a2, n] - S2[a6, a5, SP[a2, a3], a1, a4, n] + 
    S2[a6, SP[a1, a3], a2, a4, a5, n] + S2[a6, SP[a1, a3], a2, a5, a4, n] + 
    S2[a6, SP[a1, a3], a4, a2, a5, n] + S2[a6, SP[a1, a3], a4, a5, a2, n] + 
    S2[a6, SP[a1, a3], a5, a2, a4, n] + S2[a6, SP[a1, a3], a5, a4, a2, n] - 
    S2[a6, SP[a1, a5], a3, a4, a2, n] - S2[a6, SP[a1, a5], a4, a2, a3, n] - 
    S2[a6, SP[a1, a5], a4, a3, a2, n] - S2[a6, SP[a2, a3], a1, a4, a5, n] - 
    S2[a6, SP[a2, a3], a1, a5, a4, n] - S2[a6, SP[a2, a3], a5, a1, a4, n] + 
    S2[a6, SP[a3, a5], a1, a4, a2, n] + S2[SP[a1, a6], a3, a2, a4, a5, n] + 
    S2[SP[a1, a6], a3, a2, a5, a4, n] + S2[SP[a1, a6], a3, a5, a2, a4, n] + 
    S2[SP[a1, a6], a5, a3, a2, a4, n] - S2[SP[a2, a6], a3, a1, a4, a5, n] - 
    S2[SP[a2, a6], a3, a1, a5, a4, n] - S2[SP[a2, a6], a3, a5, a1, a4, n] - 
    S2[SP[a2, a6], a5, a3, a1, a4, n] + S2[SP[a3, a6], a1, a4, a2, a5, n] + 
    S2[SP[a3, a6], a1, a4, a5, a2, n] + S2[SP[a3, a6], a1, a5, a4, a2, n] + 
    S2[SP[a3, a6], a5, a1, a4, a2, n] - S2[SP[a5, a6], a1, a3, a2, a4, n] - 
    S2[SP[a5, a6], a1, a3, a4, a2, n] - S2[SP[a5, a6], a1, a4, a2, a3, n] - 
    S2[SP[a5, a6], a1, a4, a3, a2, n] + S2[SP[a5, a6], a2, a3, a1, a4, n] - 
    S2[a6, a3, a2, a4, a1, a5, n] - S2[a6, a3, a2, a4, a5, a1, n] - 
    S2[a6, a3, a2, a5, a4, a1, n] - S2[a6, a3, a5, a2, a4, a1, n] - 
    S2[a6, a5, a3, a2, a4, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a5_, a6_, a3_, a4_, a1_, a2_, n_] :> 
  S2[a5, n]*S2[a6, a3, a4, a1, a2, n] + S2[a6, a3, a4, a1, SP[a2, a5], n] + 
    S2[a6, a3, a4, SP[a1, a5], a2, n] + S2[a6, a3, SP[a4, a5], a1, a2, n] + 
    S2[a6, SP[a3, a5], a4, a1, a2, n] + S2[SP[a5, a6], a3, a4, a1, a2, n] - 
    S2[a6, a3, a4, a1, a2, a5, n] - S2[a6, a3, a4, a1, a5, a2, n] - 
    S2[a6, a3, a4, a5, a1, a2, n] - S2[a6, a3, a5, a4, a1, a2, n] - 
    S2[a6, a5, a3, a4, a1, a2, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a5_, a6_, a3_, a4_, a2_, a1_, n_] :> 
  -(S2[a5, n]*S2[a1, a6, a3, a4, a2, n]) - S2[a1, a6, a3, a4, SP[a2, a5], 
     n] - S2[a1, a6, a3, SP[a4, a5], a2, n] - S2[a1, a6, SP[a3, a5], a4, a2, 
     n] - S2[a1, SP[a5, a6], a3, a4, a2, n] + 
    S2[a5, n]*S2[a3, a6, a1, a4, a2, n] + S2[a3, a6, a1, a4, SP[a2, a5], n] + 
    S2[a3, a6, a1, SP[a4, a5], a2, n] + S2[a3, a6, SP[a1, a5], a4, a2, n] + 
    S2[a3, SP[a5, a6], a1, a4, a2, n] - S2[a3, n]*S2[a5, a6, a1, a4, a2, n] - 
    S2[a5, a6, a1, a4, SP[a2, a3], n] - S2[a5, a6, a1, SP[a3, a4], a2, n] + 
    S2[a1, n]*S2[a5, a6, a3, a4, a2, n] + S2[a5, a6, a3, a4, SP[a1, a2], n] + 
    S2[a5, a6, a3, SP[a1, a4], a2, n] + S2[a5, SP[a1, a6], a3, a4, a2, n] - 
    S2[a5, SP[a3, a6], a1, a4, a2, n] + S2[a5, n]*S2[a6, a1, a4, a2, a3, n] - 
    S2[a3, n]*S2[a6, a1, a4, a2, a5, n] + 
    S2[a5, n]*S2[a6, a1, a4, a3, a2, n] + S2[a6, a1, a4, a3, SP[a2, a5], n] - 
    S2[a3, n]*S2[a6, a1, a4, a5, a2, n] - S2[a6, a1, a4, a5, SP[a2, a3], n] - 
    S2[a6, a1, a4, SP[a2, a3], a5, n] + S2[a6, a1, a4, SP[a2, a5], a3, n] - 
    S2[a3, n]*S2[a6, a1, a5, a4, a2, n] - S2[a6, a1, a5, a4, SP[a2, a3], n] - 
    S2[a6, a1, a5, SP[a3, a4], a2, n] - S2[a6, a1, SP[a3, a4], a2, a5, n] - 
    S2[a6, a1, SP[a3, a4], a5, a2, n] - S2[a6, a1, SP[a3, a5], a4, a2, n] + 
    S2[a6, a1, SP[a4, a5], a2, a3, n] + S2[a6, a1, SP[a4, a5], a3, a2, n] - 
    S2[a5, n]*S2[a6, a3, a4, a1, a2, n] - S2[a6, a3, a4, a1, SP[a2, a5], n] + 
    S2[a1, n]*S2[a6, a3, a4, a2, a5, n] + S2[a6, a3, a4, a2, SP[a1, a5], n] + 
    S2[a1, n]*S2[a6, a3, a4, a5, a2, n] + S2[a6, a3, a4, a5, SP[a1, a2], n] + 
    S2[a6, a3, a4, SP[a1, a2], a5, n] + S2[a1, n]*S2[a6, a3, a5, a4, a2, n] + 
    S2[a6, a3, a5, a4, SP[a1, a2], n] + S2[a6, a3, a5, SP[a1, a4], a2, n] + 
    S2[a6, a3, SP[a1, a4], a2, a5, n] + S2[a6, a3, SP[a1, a4], a5, a2, n] + 
    S2[a6, a3, SP[a1, a5], a4, a2, n] - S2[a6, a3, SP[a4, a5], a1, a2, n] - 
    S2[a3, n]*S2[a6, a5, a1, a4, a2, n] - S2[a6, a5, a1, a4, SP[a2, a3], n] - 
    S2[a6, a5, a1, SP[a3, a4], a2, n] + S2[a1, n]*S2[a6, a5, a3, a4, a2, n] + 
    S2[a6, a5, a3, a4, SP[a1, a2], n] + S2[a6, a5, a3, SP[a1, a4], a2, n] + 
    S2[a6, SP[a1, a5], a3, a4, a2, n] + S2[a6, SP[a1, a5], a4, a2, a3, n] + 
    S2[a6, SP[a1, a5], a4, a3, a2, n] - S2[a6, SP[a3, a5], a1, a4, a2, n] - 
    S2[a6, SP[a3, a5], a4, a1, a2, n] + S2[SP[a1, a6], a3, a4, a2, a5, n] + 
    S2[SP[a1, a6], a3, a4, a5, a2, n] + S2[SP[a1, a6], a3, a5, a4, a2, n] + 
    S2[SP[a1, a6], a5, a3, a4, a2, n] - S2[SP[a3, a6], a1, a4, a2, a5, n] - 
    S2[SP[a3, a6], a1, a4, a5, a2, n] - S2[SP[a3, a6], a1, a5, a4, a2, n] - 
    S2[SP[a3, a6], a5, a1, a4, a2, n] + S2[SP[a5, a6], a1, a4, a2, a3, n] + 
    S2[SP[a5, a6], a1, a4, a3, a2, n] - S2[SP[a5, a6], a3, a4, a1, a2, n] - 
    S2[a6, a3, a4, a2, a1, a5, n] - S2[a6, a3, a4, a2, a5, a1, n] - 
    S2[a6, a3, a4, a5, a2, a1, n] - S2[a6, a3, a5, a4, a2, a1, n] - 
    S2[a6, a5, a3, a4, a2, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a5_, a6_, a4_, a1_, a2_, a3_, n_] :> 
  -(S2[a5, n]*S2[a4, a6, a1, a2, a3, n]) - S2[a4, a6, a1, a2, SP[a3, a5], 
     n] - S2[a4, a6, a1, SP[a2, a5], a3, n] - S2[a4, a6, SP[a1, a5], a2, a3, 
     n] - S2[a4, SP[a5, a6], a1, a2, a3, n] + 
    S2[a4, n]*S2[a5, a6, a1, a2, a3, n] + S2[a5, a6, a1, a2, SP[a3, a4], n] + 
    S2[a5, a6, a1, SP[a2, a4], a3, n] + S2[a5, a6, SP[a1, a4], a2, a3, n] + 
    S2[a5, SP[a4, a6], a1, a2, a3, n] - S2[a5, n]*S2[a6, a1, a2, a3, a4, n] + 
    S2[a4, n]*S2[a6, a1, a2, a3, a5, n] - 
    S2[a5, n]*S2[a6, a1, a2, a4, a3, n] - S2[a6, a1, a2, a4, SP[a3, a5], n] + 
    S2[a4, n]*S2[a6, a1, a2, a5, a3, n] + S2[a6, a1, a2, a5, SP[a3, a4], n] + 
    S2[a6, a1, a2, SP[a3, a4], a5, n] - S2[a6, a1, a2, SP[a3, a5], a4, n] - 
    S2[a5, n]*S2[a6, a1, a4, a2, a3, n] - S2[a6, a1, a4, a2, SP[a3, a5], n] - 
    S2[a6, a1, a4, SP[a2, a5], a3, n] + S2[a4, n]*S2[a6, a1, a5, a2, a3, n] + 
    S2[a6, a1, a5, a2, SP[a3, a4], n] + S2[a6, a1, a5, SP[a2, a4], a3, n] + 
    S2[a6, a1, SP[a2, a4], a3, a5, n] + S2[a6, a1, SP[a2, a4], a5, a3, n] - 
    S2[a6, a1, SP[a2, a5], a3, a4, n] - S2[a6, a1, SP[a2, a5], a4, a3, n] + 
    S2[a4, n]*S2[a6, a5, a1, a2, a3, n] + S2[a6, a5, a1, a2, SP[a3, a4], n] + 
    S2[a6, a5, a1, SP[a2, a4], a3, n] + S2[a6, a5, SP[a1, a4], a2, a3, n] + 
    S2[a6, SP[a1, a4], a2, a3, a5, n] + S2[a6, SP[a1, a4], a2, a5, a3, n] + 
    S2[a6, SP[a1, a4], a5, a2, a3, n] - S2[a6, SP[a1, a5], a2, a3, a4, n] - 
    S2[a6, SP[a1, a5], a2, a4, a3, n] - S2[a6, SP[a1, a5], a4, a2, a3, n] + 
    S2[a6, SP[a4, a5], a1, a2, a3, n] + S2[SP[a4, a6], a1, a2, a3, a5, n] + 
    S2[SP[a4, a6], a1, a2, a5, a3, n] + S2[SP[a4, a6], a1, a5, a2, a3, n] + 
    S2[SP[a4, a6], a5, a1, a2, a3, n] - S2[SP[a5, a6], a1, a2, a3, a4, n] - 
    S2[SP[a5, a6], a1, a2, a4, a3, n] - S2[SP[a5, a6], a1, a4, a2, a3, n] - 
    S2[a6, a4, a1, a2, a3, a5, n] - S2[a6, a4, a1, a2, a5, a3, n] - 
    S2[a6, a4, a1, a5, a2, a3, n] - S2[a6, a4, a5, a1, a2, a3, n] - 
    S2[a6, a5, a4, a1, a2, a3, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a5_, a6_, a4_, a1_, a3_, a2_, n_] :> 
  -(S2[a5, n]*S2[a4, a6, a1, a3, a2, n]) - S2[a4, a6, a1, a3, SP[a2, a5], 
     n] - S2[a4, a6, a1, SP[a3, a5], a2, n] - S2[a4, a6, SP[a1, a5], a3, a2, 
     n] - S2[a4, SP[a5, a6], a1, a3, a2, n] + 
    S2[a4, n]*S2[a5, a6, a1, a3, a2, n] + S2[a5, a6, a1, a3, SP[a2, a4], n] + 
    S2[a5, a6, a1, SP[a3, a4], a2, n] + S2[a5, a6, SP[a1, a4], a3, a2, n] + 
    S2[a5, SP[a4, a6], a1, a3, a2, n] - S2[a5, n]*S2[a6, a1, a3, a2, a4, n] + 
    S2[a4, n]*S2[a6, a1, a3, a2, a5, n] - 
    S2[a5, n]*S2[a6, a1, a3, a4, a2, n] - S2[a6, a1, a3, a4, SP[a2, a5], n] + 
    S2[a4, n]*S2[a6, a1, a3, a5, a2, n] + S2[a6, a1, a3, a5, SP[a2, a4], n] + 
    S2[a6, a1, a3, SP[a2, a4], a5, n] - S2[a6, a1, a3, SP[a2, a5], a4, n] - 
    S2[a5, n]*S2[a6, a1, a4, a3, a2, n] - S2[a6, a1, a4, a3, SP[a2, a5], n] - 
    S2[a6, a1, a4, SP[a3, a5], a2, n] + S2[a4, n]*S2[a6, a1, a5, a3, a2, n] + 
    S2[a6, a1, a5, a3, SP[a2, a4], n] + S2[a6, a1, a5, SP[a3, a4], a2, n] + 
    S2[a6, a1, SP[a3, a4], a2, a5, n] + S2[a6, a1, SP[a3, a4], a5, a2, n] - 
    S2[a6, a1, SP[a3, a5], a2, a4, n] - S2[a6, a1, SP[a3, a5], a4, a2, n] + 
    S2[a4, n]*S2[a6, a5, a1, a3, a2, n] + S2[a6, a5, a1, a3, SP[a2, a4], n] + 
    S2[a6, a5, a1, SP[a3, a4], a2, n] + S2[a6, a5, SP[a1, a4], a3, a2, n] + 
    S2[a6, SP[a1, a4], a3, a2, a5, n] + S2[a6, SP[a1, a4], a3, a5, a2, n] + 
    S2[a6, SP[a1, a4], a5, a3, a2, n] - S2[a6, SP[a1, a5], a3, a2, a4, n] - 
    S2[a6, SP[a1, a5], a3, a4, a2, n] - S2[a6, SP[a1, a5], a4, a3, a2, n] + 
    S2[a6, SP[a4, a5], a1, a3, a2, n] + S2[SP[a4, a6], a1, a3, a2, a5, n] + 
    S2[SP[a4, a6], a1, a3, a5, a2, n] + S2[SP[a4, a6], a1, a5, a3, a2, n] + 
    S2[SP[a4, a6], a5, a1, a3, a2, n] - S2[SP[a5, a6], a1, a3, a2, a4, n] - 
    S2[SP[a5, a6], a1, a3, a4, a2, n] - S2[SP[a5, a6], a1, a4, a3, a2, n] - 
    S2[a6, a4, a1, a3, a2, a5, n] - S2[a6, a4, a1, a3, a5, a2, n] - 
    S2[a6, a4, a1, a5, a3, a2, n] - S2[a6, a4, a5, a1, a3, a2, n] - 
    S2[a6, a5, a4, a1, a3, a2, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a5_, a6_, a4_, a2_, a1_, a3_, n_] :> 
  -(S2[a5, n]*S2[a2, a6, a4, a1, a3, n]) - S2[a2, a6, a4, a1, SP[a3, a5], 
     n] - S2[a2, a6, a4, SP[a1, a5], a3, n] - S2[a2, a6, SP[a4, a5], a1, a3, 
     n] - S2[a2, SP[a5, a6], a4, a1, a3, n] + 
    S2[a5, n]*S2[a4, a6, a1, a2, a3, n] + S2[a4, a6, a1, a2, SP[a3, a5], n] + 
    S2[a5, n]*S2[a4, a6, a1, a3, a2, n] + S2[a4, a6, a1, a3, SP[a2, a5], n] + 
    S2[a4, a6, a1, SP[a2, a5], a3, n] + S2[a4, a6, a1, SP[a3, a5], a2, n] + 
    S2[a4, a6, SP[a1, a5], a2, a3, n] + S2[a4, a6, SP[a1, a5], a3, a2, n] + 
    S2[a4, SP[a5, a6], a1, a2, a3, n] + S2[a4, SP[a5, a6], a1, a3, a2, n] - 
    S2[a4, n]*S2[a5, a6, a1, a2, a3, n] - S2[a5, a6, a1, a2, SP[a3, a4], n] - 
    S2[a4, n]*S2[a5, a6, a1, a3, a2, n] - S2[a5, a6, a1, a3, SP[a2, a4], n] - 
    S2[a5, a6, a1, SP[a2, a4], a3, n] - S2[a5, a6, a1, SP[a3, a4], a2, n] + 
    S2[a2, n]*S2[a5, a6, a4, a1, a3, n] + S2[a5, a6, a4, a1, SP[a2, a3], n] + 
    S2[a5, a6, a4, SP[a1, a2], a3, n] - S2[a5, a6, SP[a1, a4], a2, a3, n] - 
    S2[a5, a6, SP[a1, a4], a3, a2, n] + S2[a5, a6, SP[a2, a4], a1, a3, n] + 
    S2[a5, SP[a2, a6], a4, a1, a3, n] - S2[a5, SP[a4, a6], a1, a2, a3, n] - 
    S2[a5, SP[a4, a6], a1, a3, a2, n] + S2[a5, n]*S2[a6, a1, a2, a3, a4, n] - 
    S2[a4, n]*S2[a6, a1, a2, a3, a5, n] + 
    S2[a5, n]*S2[a6, a1, a2, a4, a3, n] + S2[a6, a1, a2, a4, SP[a3, a5], n] - 
    S2[a4, n]*S2[a6, a1, a2, a5, a3, n] - S2[a6, a1, a2, a5, SP[a3, a4], n] - 
    S2[a6, a1, a2, SP[a3, a4], a5, n] + S2[a6, a1, a2, SP[a3, a5], a4, n] + 
    S2[a5, n]*S2[a6, a1, a3, a2, a4, n] - 
    S2[a4, n]*S2[a6, a1, a3, a2, a5, n] + 
    S2[a5, n]*S2[a6, a1, a3, a4, a2, n] + S2[a6, a1, a3, a4, SP[a2, a5], n] - 
    S2[a4, n]*S2[a6, a1, a3, a5, a2, n] - S2[a6, a1, a3, a5, SP[a2, a4], n] - 
    S2[a6, a1, a3, SP[a2, a4], a5, n] + S2[a6, a1, a3, SP[a2, a5], a4, n] + 
    S2[a5, n]*S2[a6, a1, a4, a2, a3, n] + S2[a6, a1, a4, a2, SP[a3, a5], n] + 
    S2[a5, n]*S2[a6, a1, a4, a3, a2, n] + S2[a6, a1, a4, a3, SP[a2, a5], n] + 
    S2[a6, a1, a4, SP[a2, a5], a3, n] + S2[a6, a1, a4, SP[a3, a5], a2, n] - 
    S2[a4, n]*S2[a6, a1, a5, a2, a3, n] - S2[a6, a1, a5, a2, SP[a3, a4], n] - 
    S2[a4, n]*S2[a6, a1, a5, a3, a2, n] - S2[a6, a1, a5, a3, SP[a2, a4], n] - 
    S2[a6, a1, a5, SP[a2, a4], a3, n] - S2[a6, a1, a5, SP[a3, a4], a2, n] - 
    S2[a6, a1, SP[a2, a4], a3, a5, n] - S2[a6, a1, SP[a2, a4], a5, a3, n] + 
    S2[a6, a1, SP[a2, a5], a3, a4, n] + S2[a6, a1, SP[a2, a5], a4, a3, n] - 
    S2[a6, a1, SP[a3, a4], a2, a5, n] - S2[a6, a1, SP[a3, a4], a5, a2, n] + 
    S2[a6, a1, SP[a3, a5], a2, a4, n] + S2[a6, a1, SP[a3, a5], a4, a2, n] - 
    S2[a5, n]*S2[a6, a2, a4, a1, a3, n] - S2[a6, a2, a4, a1, SP[a3, a5], n] - 
    S2[a6, a2, a4, SP[a1, a5], a3, n] - S2[a6, a2, SP[a4, a5], a1, a3, n] + 
    S2[a2, n]*S2[a6, a4, a1, a3, a5, n] + S2[a6, a4, a1, a3, SP[a2, a5], n] + 
    S2[a2, n]*S2[a6, a4, a1, a5, a3, n] + S2[a6, a4, a1, a5, SP[a2, a3], n] + 
    S2[a6, a4, a1, SP[a2, a3], a5, n] + S2[a6, a4, a1, SP[a2, a5], a3, n] + 
    S2[a2, n]*S2[a6, a4, a5, a1, a3, n] + S2[a6, a4, a5, a1, SP[a2, a3], n] + 
    S2[a6, a4, a5, SP[a1, a2], a3, n] + S2[a6, a4, SP[a1, a2], a3, a5, n] + 
    S2[a6, a4, SP[a1, a2], a5, a3, n] + S2[a6, a4, SP[a2, a5], a1, a3, n] - 
    S2[a4, n]*S2[a6, a5, a1, a2, a3, n] - S2[a6, a5, a1, a2, SP[a3, a4], n] - 
    S2[a4, n]*S2[a6, a5, a1, a3, a2, n] - S2[a6, a5, a1, a3, SP[a2, a4], n] - 
    S2[a6, a5, a1, SP[a2, a4], a3, n] - S2[a6, a5, a1, SP[a3, a4], a2, n] + 
    S2[a2, n]*S2[a6, a5, a4, a1, a3, n] + S2[a6, a5, a4, a1, SP[a2, a3], n] + 
    S2[a6, a5, a4, SP[a1, a2], a3, n] - S2[a6, a5, SP[a1, a4], a2, a3, n] - 
    S2[a6, a5, SP[a1, a4], a3, a2, n] + S2[a6, a5, SP[a2, a4], a1, a3, n] - 
    S2[a6, SP[a1, a4], a2, a3, a5, n] - S2[a6, SP[a1, a4], a2, a5, a3, n] - 
    S2[a6, SP[a1, a4], a3, a2, a5, n] - S2[a6, SP[a1, a4], a3, a5, a2, n] - 
    S2[a6, SP[a1, a4], a5, a2, a3, n] - S2[a6, SP[a1, a4], a5, a3, a2, n] + 
    S2[a6, SP[a1, a5], a2, a3, a4, n] + S2[a6, SP[a1, a5], a2, a4, a3, n] + 
    S2[a6, SP[a1, a5], a3, a2, a4, n] + S2[a6, SP[a1, a5], a3, a4, a2, n] + 
    S2[a6, SP[a1, a5], a4, a2, a3, n] + S2[a6, SP[a1, a5], a4, a3, a2, n] + 
    S2[a6, SP[a2, a4], a1, a3, a5, n] + S2[a6, SP[a2, a4], a1, a5, a3, n] + 
    S2[a6, SP[a2, a4], a5, a1, a3, n] - S2[a6, SP[a4, a5], a1, a2, a3, n] - 
    S2[a6, SP[a4, a5], a1, a3, a2, n] + S2[SP[a2, a6], a4, a1, a3, a5, n] + 
    S2[SP[a2, a6], a4, a1, a5, a3, n] + S2[SP[a2, a6], a4, a5, a1, a3, n] + 
    S2[SP[a2, a6], a5, a4, a1, a3, n] - S2[SP[a4, a6], a1, a2, a3, a5, n] - 
    S2[SP[a4, a6], a1, a2, a5, a3, n] - S2[SP[a4, a6], a1, a3, a2, a5, n] - 
    S2[SP[a4, a6], a1, a3, a5, a2, n] - S2[SP[a4, a6], a1, a5, a2, a3, n] - 
    S2[SP[a4, a6], a1, a5, a3, a2, n] - S2[SP[a4, a6], a5, a1, a2, a3, n] - 
    S2[SP[a4, a6], a5, a1, a3, a2, n] + S2[SP[a5, a6], a1, a2, a3, a4, n] + 
    S2[SP[a5, a6], a1, a2, a4, a3, n] + S2[SP[a5, a6], a1, a3, a2, a4, n] + 
    S2[SP[a5, a6], a1, a3, a4, a2, n] + S2[SP[a5, a6], a1, a4, a2, a3, n] + 
    S2[SP[a5, a6], a1, a4, a3, a2, n] - S2[SP[a5, a6], a2, a4, a1, a3, n] - 
    S2[a6, a4, a2, a1, a3, a5, n] - S2[a6, a4, a2, a1, a5, a3, n] - 
    S2[a6, a4, a2, a5, a1, a3, n] - S2[a6, a4, a5, a2, a1, a3, n] - 
    S2[a6, a5, a4, a2, a1, a3, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a5_, a6_, a4_, a2_, a3_, a1_, n_] :> 
  -(S2[a5, n]*S2[a1, a6, a4, a2, a3, n]) - S2[a1, a6, a4, a2, SP[a3, a5], 
     n] - S2[a1, a6, a4, SP[a2, a5], a3, n] - S2[a1, a6, SP[a4, a5], a2, a3, 
     n] - S2[a1, SP[a5, a6], a4, a2, a3, n] + 
    S2[a5, n]*S2[a2, a6, a4, a1, a3, n] + S2[a2, a6, a4, a1, SP[a3, a5], n] + 
    S2[a2, a6, a4, SP[a1, a5], a3, n] + S2[a2, a6, SP[a4, a5], a1, a3, n] + 
    S2[a2, SP[a5, a6], a4, a1, a3, n] - S2[a5, n]*S2[a4, a6, a1, a3, a2, n] - 
    S2[a4, a6, a1, a3, SP[a2, a5], n] - S2[a4, a6, a1, SP[a3, a5], a2, n] - 
    S2[a4, a6, SP[a1, a5], a3, a2, n] - S2[a4, SP[a5, a6], a1, a3, a2, n] + 
    S2[a4, n]*S2[a5, a6, a1, a3, a2, n] + S2[a5, a6, a1, a3, SP[a2, a4], n] + 
    S2[a5, a6, a1, SP[a3, a4], a2, n] - S2[a2, n]*S2[a5, a6, a4, a1, a3, n] - 
    S2[a5, a6, a4, a1, SP[a2, a3], n] + S2[a1, n]*S2[a5, a6, a4, a2, a3, n] + 
    S2[a5, a6, a4, a2, SP[a1, a3], n] + S2[a5, a6, SP[a1, a4], a2, a3, n] + 
    S2[a5, a6, SP[a1, a4], a3, a2, n] - S2[a5, a6, SP[a2, a4], a1, a3, n] + 
    S2[a5, SP[a1, a6], a4, a2, a3, n] - S2[a5, SP[a2, a6], a4, a1, a3, n] + 
    S2[a5, SP[a4, a6], a1, a3, a2, n] - S2[a5, n]*S2[a6, a1, a3, a2, a4, n] + 
    S2[a4, n]*S2[a6, a1, a3, a2, a5, n] - 
    S2[a5, n]*S2[a6, a1, a3, a4, a2, n] - S2[a6, a1, a3, a4, SP[a2, a5], n] + 
    S2[a4, n]*S2[a6, a1, a3, a5, a2, n] + S2[a6, a1, a3, a5, SP[a2, a4], n] + 
    S2[a6, a1, a3, SP[a2, a4], a5, n] - S2[a6, a1, a3, SP[a2, a5], a4, n] - 
    S2[a5, n]*S2[a6, a1, a4, a2, a3, n] - S2[a6, a1, a4, a2, SP[a3, a5], n] - 
    S2[a5, n]*S2[a6, a1, a4, a3, a2, n] - S2[a6, a1, a4, a3, SP[a2, a5], n] - 
    S2[a6, a1, a4, SP[a2, a5], a3, n] - S2[a6, a1, a4, SP[a3, a5], a2, n] + 
    S2[a4, n]*S2[a6, a1, a5, a3, a2, n] + S2[a6, a1, a5, a3, SP[a2, a4], n] + 
    S2[a6, a1, a5, SP[a3, a4], a2, n] + S2[a6, a1, SP[a3, a4], a2, a5, n] + 
    S2[a6, a1, SP[a3, a4], a5, a2, n] - S2[a6, a1, SP[a3, a5], a2, a4, n] - 
    S2[a6, a1, SP[a3, a5], a4, a2, n] - S2[a6, a1, SP[a4, a5], a2, a3, n] + 
    S2[a5, n]*S2[a6, a2, a4, a1, a3, n] + S2[a6, a2, a4, a1, SP[a3, a5], n] + 
    S2[a6, a2, a4, SP[a1, a5], a3, n] + S2[a6, a2, SP[a4, a5], a1, a3, n] - 
    S2[a2, n]*S2[a6, a4, a1, a3, a5, n] - S2[a6, a4, a1, a3, SP[a2, a5], n] - 
    S2[a2, n]*S2[a6, a4, a1, a5, a3, n] - S2[a6, a4, a1, a5, SP[a2, a3], n] - 
    S2[a6, a4, a1, SP[a2, a3], a5, n] - S2[a6, a4, a1, SP[a2, a5], a3, n] + 
    S2[a1, n]*S2[a6, a4, a2, a3, a5, n] + S2[a6, a4, a2, a3, SP[a1, a5], n] + 
    S2[a1, n]*S2[a6, a4, a2, a5, a3, n] + S2[a6, a4, a2, a5, SP[a1, a3], n] + 
    S2[a6, a4, a2, SP[a1, a3], a5, n] + S2[a6, a4, a2, SP[a1, a5], a3, n] - 
    S2[a2, n]*S2[a6, a4, a5, a1, a3, n] - S2[a6, a4, a5, a1, SP[a2, a3], n] + 
    S2[a1, n]*S2[a6, a4, a5, a2, a3, n] + S2[a6, a4, a5, a2, SP[a1, a3], n] + 
    S2[a6, a4, SP[a1, a5], a2, a3, n] - S2[a6, a4, SP[a2, a5], a1, a3, n] + 
    S2[a4, n]*S2[a6, a5, a1, a3, a2, n] + S2[a6, a5, a1, a3, SP[a2, a4], n] + 
    S2[a6, a5, a1, SP[a3, a4], a2, n] - S2[a2, n]*S2[a6, a5, a4, a1, a3, n] - 
    S2[a6, a5, a4, a1, SP[a2, a3], n] + S2[a1, n]*S2[a6, a5, a4, a2, a3, n] + 
    S2[a6, a5, a4, a2, SP[a1, a3], n] + S2[a6, a5, SP[a1, a4], a2, a3, n] + 
    S2[a6, a5, SP[a1, a4], a3, a2, n] - S2[a6, a5, SP[a2, a4], a1, a3, n] + 
    S2[a6, SP[a1, a4], a2, a3, a5, n] + S2[a6, SP[a1, a4], a2, a5, a3, n] + 
    S2[a6, SP[a1, a4], a3, a2, a5, n] + S2[a6, SP[a1, a4], a3, a5, a2, n] + 
    S2[a6, SP[a1, a4], a5, a2, a3, n] + S2[a6, SP[a1, a4], a5, a3, a2, n] - 
    S2[a6, SP[a1, a5], a3, a2, a4, n] - S2[a6, SP[a1, a5], a3, a4, a2, n] - 
    S2[a6, SP[a1, a5], a4, a3, a2, n] - S2[a6, SP[a2, a4], a1, a3, a5, n] - 
    S2[a6, SP[a2, a4], a1, a5, a3, n] - S2[a6, SP[a2, a4], a5, a1, a3, n] + 
    S2[a6, SP[a4, a5], a1, a3, a2, n] + S2[SP[a1, a6], a4, a2, a3, a5, n] + 
    S2[SP[a1, a6], a4, a2, a5, a3, n] + S2[SP[a1, a6], a4, a5, a2, a3, n] + 
    S2[SP[a1, a6], a5, a4, a2, a3, n] - S2[SP[a2, a6], a4, a1, a3, a5, n] - 
    S2[SP[a2, a6], a4, a1, a5, a3, n] - S2[SP[a2, a6], a4, a5, a1, a3, n] - 
    S2[SP[a2, a6], a5, a4, a1, a3, n] + S2[SP[a4, a6], a1, a3, a2, a5, n] + 
    S2[SP[a4, a6], a1, a3, a5, a2, n] + S2[SP[a4, a6], a1, a5, a3, a2, n] + 
    S2[SP[a4, a6], a5, a1, a3, a2, n] - S2[SP[a5, a6], a1, a3, a2, a4, n] - 
    S2[SP[a5, a6], a1, a3, a4, a2, n] - S2[SP[a5, a6], a1, a4, a2, a3, n] - 
    S2[SP[a5, a6], a1, a4, a3, a2, n] + S2[SP[a5, a6], a2, a4, a1, a3, n] - 
    S2[a6, a4, a2, a3, a1, a5, n] - S2[a6, a4, a2, a3, a5, a1, n] - 
    S2[a6, a4, a2, a5, a3, a1, n] - S2[a6, a4, a5, a2, a3, a1, n] - 
    S2[a6, a5, a4, a2, a3, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a5_, a6_, a4_, a3_, a1_, a2_, n_] :> 
  -(S2[a5, n]*S2[a3, a6, a4, a1, a2, n]) - S2[a3, a6, a4, a1, SP[a2, a5], 
     n] - S2[a3, a6, a4, SP[a1, a5], a2, n] - S2[a3, a6, SP[a4, a5], a1, a2, 
     n] - S2[a3, SP[a5, a6], a4, a1, a2, n] + 
    S2[a5, n]*S2[a4, a6, a1, a2, a3, n] + S2[a4, a6, a1, a2, SP[a3, a5], n] + 
    S2[a5, n]*S2[a4, a6, a1, a3, a2, n] + S2[a4, a6, a1, a3, SP[a2, a5], n] + 
    S2[a4, a6, a1, SP[a2, a5], a3, n] + S2[a4, a6, a1, SP[a3, a5], a2, n] + 
    S2[a4, a6, SP[a1, a5], a2, a3, n] + S2[a4, a6, SP[a1, a5], a3, a2, n] + 
    S2[a4, SP[a5, a6], a1, a2, a3, n] + S2[a4, SP[a5, a6], a1, a3, a2, n] - 
    S2[a4, n]*S2[a5, a6, a1, a2, a3, n] - S2[a5, a6, a1, a2, SP[a3, a4], n] - 
    S2[a4, n]*S2[a5, a6, a1, a3, a2, n] - S2[a5, a6, a1, a3, SP[a2, a4], n] - 
    S2[a5, a6, a1, SP[a2, a4], a3, n] - S2[a5, a6, a1, SP[a3, a4], a2, n] + 
    S2[a3, n]*S2[a5, a6, a4, a1, a2, n] + S2[a5, a6, a4, a1, SP[a2, a3], n] + 
    S2[a5, a6, a4, SP[a1, a3], a2, n] - S2[a5, a6, SP[a1, a4], a2, a3, n] - 
    S2[a5, a6, SP[a1, a4], a3, a2, n] + S2[a5, a6, SP[a3, a4], a1, a2, n] + 
    S2[a5, SP[a3, a6], a4, a1, a2, n] - S2[a5, SP[a4, a6], a1, a2, a3, n] - 
    S2[a5, SP[a4, a6], a1, a3, a2, n] + S2[a5, n]*S2[a6, a1, a2, a3, a4, n] - 
    S2[a4, n]*S2[a6, a1, a2, a3, a5, n] + 
    S2[a5, n]*S2[a6, a1, a2, a4, a3, n] + S2[a6, a1, a2, a4, SP[a3, a5], n] - 
    S2[a4, n]*S2[a6, a1, a2, a5, a3, n] - S2[a6, a1, a2, a5, SP[a3, a4], n] - 
    S2[a6, a1, a2, SP[a3, a4], a5, n] + S2[a6, a1, a2, SP[a3, a5], a4, n] + 
    S2[a5, n]*S2[a6, a1, a3, a2, a4, n] - 
    S2[a4, n]*S2[a6, a1, a3, a2, a5, n] + 
    S2[a5, n]*S2[a6, a1, a3, a4, a2, n] + S2[a6, a1, a3, a4, SP[a2, a5], n] - 
    S2[a4, n]*S2[a6, a1, a3, a5, a2, n] - S2[a6, a1, a3, a5, SP[a2, a4], n] - 
    S2[a6, a1, a3, SP[a2, a4], a5, n] + S2[a6, a1, a3, SP[a2, a5], a4, n] + 
    S2[a5, n]*S2[a6, a1, a4, a2, a3, n] + S2[a6, a1, a4, a2, SP[a3, a5], n] + 
    S2[a5, n]*S2[a6, a1, a4, a3, a2, n] + S2[a6, a1, a4, a3, SP[a2, a5], n] + 
    S2[a6, a1, a4, SP[a2, a5], a3, n] + S2[a6, a1, a4, SP[a3, a5], a2, n] - 
    S2[a4, n]*S2[a6, a1, a5, a2, a3, n] - S2[a6, a1, a5, a2, SP[a3, a4], n] - 
    S2[a4, n]*S2[a6, a1, a5, a3, a2, n] - S2[a6, a1, a5, a3, SP[a2, a4], n] - 
    S2[a6, a1, a5, SP[a2, a4], a3, n] - S2[a6, a1, a5, SP[a3, a4], a2, n] - 
    S2[a6, a1, SP[a2, a4], a3, a5, n] - S2[a6, a1, SP[a2, a4], a5, a3, n] + 
    S2[a6, a1, SP[a2, a5], a3, a4, n] + S2[a6, a1, SP[a2, a5], a4, a3, n] - 
    S2[a6, a1, SP[a3, a4], a2, a5, n] - S2[a6, a1, SP[a3, a4], a5, a2, n] + 
    S2[a6, a1, SP[a3, a5], a2, a4, n] + S2[a6, a1, SP[a3, a5], a4, a2, n] - 
    S2[a5, n]*S2[a6, a3, a4, a1, a2, n] - S2[a6, a3, a4, a1, SP[a2, a5], n] - 
    S2[a6, a3, a4, SP[a1, a5], a2, n] - S2[a6, a3, SP[a4, a5], a1, a2, n] + 
    S2[a3, n]*S2[a6, a4, a1, a2, a5, n] + S2[a6, a4, a1, a2, SP[a3, a5], n] + 
    S2[a3, n]*S2[a6, a4, a1, a5, a2, n] + S2[a6, a4, a1, a5, SP[a2, a3], n] + 
    S2[a6, a4, a1, SP[a2, a3], a5, n] + S2[a6, a4, a1, SP[a3, a5], a2, n] + 
    S2[a3, n]*S2[a6, a4, a5, a1, a2, n] + S2[a6, a4, a5, a1, SP[a2, a3], n] + 
    S2[a6, a4, a5, SP[a1, a3], a2, n] + S2[a6, a4, SP[a1, a3], a2, a5, n] + 
    S2[a6, a4, SP[a1, a3], a5, a2, n] + S2[a6, a4, SP[a3, a5], a1, a2, n] - 
    S2[a4, n]*S2[a6, a5, a1, a2, a3, n] - S2[a6, a5, a1, a2, SP[a3, a4], n] - 
    S2[a4, n]*S2[a6, a5, a1, a3, a2, n] - S2[a6, a5, a1, a3, SP[a2, a4], n] - 
    S2[a6, a5, a1, SP[a2, a4], a3, n] - S2[a6, a5, a1, SP[a3, a4], a2, n] + 
    S2[a3, n]*S2[a6, a5, a4, a1, a2, n] + S2[a6, a5, a4, a1, SP[a2, a3], n] + 
    S2[a6, a5, a4, SP[a1, a3], a2, n] - S2[a6, a5, SP[a1, a4], a2, a3, n] - 
    S2[a6, a5, SP[a1, a4], a3, a2, n] + S2[a6, a5, SP[a3, a4], a1, a2, n] - 
    S2[a6, SP[a1, a4], a2, a3, a5, n] - S2[a6, SP[a1, a4], a2, a5, a3, n] - 
    S2[a6, SP[a1, a4], a3, a2, a5, n] - S2[a6, SP[a1, a4], a3, a5, a2, n] - 
    S2[a6, SP[a1, a4], a5, a2, a3, n] - S2[a6, SP[a1, a4], a5, a3, a2, n] + 
    S2[a6, SP[a1, a5], a2, a3, a4, n] + S2[a6, SP[a1, a5], a2, a4, a3, n] + 
    S2[a6, SP[a1, a5], a3, a2, a4, n] + S2[a6, SP[a1, a5], a3, a4, a2, n] + 
    S2[a6, SP[a1, a5], a4, a2, a3, n] + S2[a6, SP[a1, a5], a4, a3, a2, n] + 
    S2[a6, SP[a3, a4], a1, a2, a5, n] + S2[a6, SP[a3, a4], a1, a5, a2, n] + 
    S2[a6, SP[a3, a4], a5, a1, a2, n] - S2[a6, SP[a4, a5], a1, a2, a3, n] - 
    S2[a6, SP[a4, a5], a1, a3, a2, n] + S2[SP[a3, a6], a4, a1, a2, a5, n] + 
    S2[SP[a3, a6], a4, a1, a5, a2, n] + S2[SP[a3, a6], a4, a5, a1, a2, n] + 
    S2[SP[a3, a6], a5, a4, a1, a2, n] - S2[SP[a4, a6], a1, a2, a3, a5, n] - 
    S2[SP[a4, a6], a1, a2, a5, a3, n] - S2[SP[a4, a6], a1, a3, a2, a5, n] - 
    S2[SP[a4, a6], a1, a3, a5, a2, n] - S2[SP[a4, a6], a1, a5, a2, a3, n] - 
    S2[SP[a4, a6], a1, a5, a3, a2, n] - S2[SP[a4, a6], a5, a1, a2, a3, n] - 
    S2[SP[a4, a6], a5, a1, a3, a2, n] + S2[SP[a5, a6], a1, a2, a3, a4, n] + 
    S2[SP[a5, a6], a1, a2, a4, a3, n] + S2[SP[a5, a6], a1, a3, a2, a4, n] + 
    S2[SP[a5, a6], a1, a3, a4, a2, n] + S2[SP[a5, a6], a1, a4, a2, a3, n] + 
    S2[SP[a5, a6], a1, a4, a3, a2, n] - S2[SP[a5, a6], a3, a4, a1, a2, n] - 
    S2[a6, a4, a3, a1, a2, a5, n] - S2[a6, a4, a3, a1, a5, a2, n] - 
    S2[a6, a4, a3, a5, a1, a2, n] - S2[a6, a4, a5, a3, a1, a2, n] - 
    S2[a6, a5, a4, a3, a1, a2, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a5_, a6_, a4_, a3_, a2_, a1_, n_] :> 
  -(S2[a5, n]*S2[a1, a6, a4, a3, a2, n]) - S2[a1, a6, a4, a3, SP[a2, a5], 
     n] - S2[a1, a6, a4, SP[a3, a5], a2, n] - S2[a1, a6, SP[a4, a5], a3, a2, 
     n] - S2[a1, SP[a5, a6], a4, a3, a2, n] + 
    S2[a5, n]*S2[a3, a6, a4, a1, a2, n] + S2[a3, a6, a4, a1, SP[a2, a5], n] + 
    S2[a3, a6, a4, SP[a1, a5], a2, n] + S2[a3, a6, SP[a4, a5], a1, a2, n] + 
    S2[a3, SP[a5, a6], a4, a1, a2, n] - S2[a5, n]*S2[a4, a6, a1, a2, a3, n] - 
    S2[a4, a6, a1, a2, SP[a3, a5], n] - S2[a4, a6, a1, SP[a2, a5], a3, n] - 
    S2[a4, a6, SP[a1, a5], a2, a3, n] - S2[a4, SP[a5, a6], a1, a2, a3, n] + 
    S2[a4, n]*S2[a5, a6, a1, a2, a3, n] + S2[a5, a6, a1, a2, SP[a3, a4], n] + 
    S2[a5, a6, a1, SP[a2, a4], a3, n] - S2[a3, n]*S2[a5, a6, a4, a1, a2, n] - 
    S2[a5, a6, a4, a1, SP[a2, a3], n] + S2[a1, n]*S2[a5, a6, a4, a3, a2, n] + 
    S2[a5, a6, a4, a3, SP[a1, a2], n] + S2[a5, a6, SP[a1, a4], a2, a3, n] + 
    S2[a5, a6, SP[a1, a4], a3, a2, n] - S2[a5, a6, SP[a3, a4], a1, a2, n] + 
    S2[a5, SP[a1, a6], a4, a3, a2, n] - S2[a5, SP[a3, a6], a4, a1, a2, n] + 
    S2[a5, SP[a4, a6], a1, a2, a3, n] - S2[a5, n]*S2[a6, a1, a2, a3, a4, n] + 
    S2[a4, n]*S2[a6, a1, a2, a3, a5, n] - 
    S2[a5, n]*S2[a6, a1, a2, a4, a3, n] - S2[a6, a1, a2, a4, SP[a3, a5], n] + 
    S2[a4, n]*S2[a6, a1, a2, a5, a3, n] + S2[a6, a1, a2, a5, SP[a3, a4], n] + 
    S2[a6, a1, a2, SP[a3, a4], a5, n] - S2[a6, a1, a2, SP[a3, a5], a4, n] - 
    S2[a5, n]*S2[a6, a1, a4, a2, a3, n] - S2[a6, a1, a4, a2, SP[a3, a5], n] - 
    S2[a5, n]*S2[a6, a1, a4, a3, a2, n] - S2[a6, a1, a4, a3, SP[a2, a5], n] - 
    S2[a6, a1, a4, SP[a2, a5], a3, n] - S2[a6, a1, a4, SP[a3, a5], a2, n] + 
    S2[a4, n]*S2[a6, a1, a5, a2, a3, n] + S2[a6, a1, a5, a2, SP[a3, a4], n] + 
    S2[a6, a1, a5, SP[a2, a4], a3, n] + S2[a6, a1, SP[a2, a4], a3, a5, n] + 
    S2[a6, a1, SP[a2, a4], a5, a3, n] - S2[a6, a1, SP[a2, a5], a3, a4, n] - 
    S2[a6, a1, SP[a2, a5], a4, a3, n] - S2[a6, a1, SP[a4, a5], a3, a2, n] + 
    S2[a5, n]*S2[a6, a3, a4, a1, a2, n] + S2[a6, a3, a4, a1, SP[a2, a5], n] + 
    S2[a6, a3, a4, SP[a1, a5], a2, n] + S2[a6, a3, SP[a4, a5], a1, a2, n] - 
    S2[a3, n]*S2[a6, a4, a1, a2, a5, n] - S2[a6, a4, a1, a2, SP[a3, a5], n] - 
    S2[a3, n]*S2[a6, a4, a1, a5, a2, n] - S2[a6, a4, a1, a5, SP[a2, a3], n] - 
    S2[a6, a4, a1, SP[a2, a3], a5, n] - S2[a6, a4, a1, SP[a3, a5], a2, n] + 
    S2[a1, n]*S2[a6, a4, a3, a2, a5, n] + S2[a6, a4, a3, a2, SP[a1, a5], n] + 
    S2[a1, n]*S2[a6, a4, a3, a5, a2, n] + S2[a6, a4, a3, a5, SP[a1, a2], n] + 
    S2[a6, a4, a3, SP[a1, a2], a5, n] + S2[a6, a4, a3, SP[a1, a5], a2, n] - 
    S2[a3, n]*S2[a6, a4, a5, a1, a2, n] - S2[a6, a4, a5, a1, SP[a2, a3], n] + 
    S2[a1, n]*S2[a6, a4, a5, a3, a2, n] + S2[a6, a4, a5, a3, SP[a1, a2], n] + 
    S2[a6, a4, SP[a1, a5], a3, a2, n] - S2[a6, a4, SP[a3, a5], a1, a2, n] + 
    S2[a4, n]*S2[a6, a5, a1, a2, a3, n] + S2[a6, a5, a1, a2, SP[a3, a4], n] + 
    S2[a6, a5, a1, SP[a2, a4], a3, n] - S2[a3, n]*S2[a6, a5, a4, a1, a2, n] - 
    S2[a6, a5, a4, a1, SP[a2, a3], n] + S2[a1, n]*S2[a6, a5, a4, a3, a2, n] + 
    S2[a6, a5, a4, a3, SP[a1, a2], n] + S2[a6, a5, SP[a1, a4], a2, a3, n] + 
    S2[a6, a5, SP[a1, a4], a3, a2, n] - S2[a6, a5, SP[a3, a4], a1, a2, n] + 
    S2[a6, SP[a1, a4], a2, a3, a5, n] + S2[a6, SP[a1, a4], a2, a5, a3, n] + 
    S2[a6, SP[a1, a4], a3, a2, a5, n] + S2[a6, SP[a1, a4], a3, a5, a2, n] + 
    S2[a6, SP[a1, a4], a5, a2, a3, n] + S2[a6, SP[a1, a4], a5, a3, a2, n] - 
    S2[a6, SP[a1, a5], a2, a3, a4, n] - S2[a6, SP[a1, a5], a2, a4, a3, n] - 
    S2[a6, SP[a1, a5], a4, a2, a3, n] - S2[a6, SP[a3, a4], a1, a2, a5, n] - 
    S2[a6, SP[a3, a4], a1, a5, a2, n] - S2[a6, SP[a3, a4], a5, a1, a2, n] + 
    S2[a6, SP[a4, a5], a1, a2, a3, n] + S2[SP[a1, a6], a4, a3, a2, a5, n] + 
    S2[SP[a1, a6], a4, a3, a5, a2, n] + S2[SP[a1, a6], a4, a5, a3, a2, n] + 
    S2[SP[a1, a6], a5, a4, a3, a2, n] - S2[SP[a3, a6], a4, a1, a2, a5, n] - 
    S2[SP[a3, a6], a4, a1, a5, a2, n] - S2[SP[a3, a6], a4, a5, a1, a2, n] - 
    S2[SP[a3, a6], a5, a4, a1, a2, n] + S2[SP[a4, a6], a1, a2, a3, a5, n] + 
    S2[SP[a4, a6], a1, a2, a5, a3, n] + S2[SP[a4, a6], a1, a5, a2, a3, n] + 
    S2[SP[a4, a6], a5, a1, a2, a3, n] - S2[SP[a5, a6], a1, a2, a3, a4, n] - 
    S2[SP[a5, a6], a1, a2, a4, a3, n] - S2[SP[a5, a6], a1, a4, a2, a3, n] - 
    S2[SP[a5, a6], a1, a4, a3, a2, n] + S2[SP[a5, a6], a3, a4, a1, a2, n] - 
    S2[a6, a4, a3, a2, a1, a5, n] - S2[a6, a4, a3, a2, a5, a1, n] - 
    S2[a6, a4, a3, a5, a2, a1, n] - S2[a6, a4, a5, a3, a2, a1, n] - 
    S2[a6, a5, a4, a3, a2, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5, a6}}, 
     {a1, a2, a3, a4, a5, a6}] && a1 != a2 != a3 != a4 != a5 != a6, 
 S2[a1_, a1_, a2_, a3_, a4_, a5_, n_] :> 
  S2[a1, a1, a2, n]*S2[a3, a4, a5, n] + S2[SP[a1, a3], SP[a1, a4], 
     SP[a2, a5], n] + S2[a4, a5, n]*S2[a1, a1, a2, a3, n] - 
    S2[a1, a1, SP[a2, a4], SP[a3, a5], n] - S2[a1, a3, SP[a1, a4], 
     SP[a2, a5], n] - S2[a1, SP[a1, a3], a4, SP[a2, a5], n] - 
    S2[a1, SP[a1, a3], SP[a2, a4], a5, n] - S2[a1, SP[a1, a4], a2, 
     SP[a3, a5], n] - S2[a1, SP[a1, a4], SP[a2, a5], a3, n] - 
    S2[a3, a1, SP[a1, a4], SP[a2, a5], n] - S2[a3, SP[a1, a4], a1, 
     SP[a2, a5], n] - S2[a3, SP[a1, a4], SP[a1, a5], a2, n] - 
    S2[SP[a1, a3], a1, a4, SP[a2, a5], n] - S2[SP[a1, a3], a1, SP[a2, a4], 
     a5, n] - S2[SP[a1, a3], a4, a1, SP[a2, a5], n] - 
    S2[SP[a1, a3], a4, SP[a1, a5], a2, n] - S2[SP[a1, a3], SP[a1, a4], a2, 
     a5, n] - S2[SP[a1, a3], SP[a1, a4], a5, a2, n] - 
    S2[SP[a1, a4], a1, a2, SP[a3, a5], n] - S2[SP[a1, a4], a1, SP[a2, a5], 
     a3, n] - S2[SP[a1, a4], SP[a1, a5], a2, a3, n] + 
    S2[a5, n]*S2[a1, a1, a2, a3, a4, n] - 
    S2[a4, n]*S2[a1, a1, a2, a3, a5, n] + 
    S2[a5, n]*S2[a1, a1, a2, a4, a3, n] - 
    S2[a3, n]*S2[a1, a1, a2, a4, a5, n] + S2[a1, a1, a2, a4, SP[a3, a5], n] - 
    S2[a4, n]*S2[a1, a1, a2, a5, a3, n] - S2[a1, a1, a2, a5, SP[a3, a4], n] - 
    S2[a1, a1, a2, SP[a3, a4], a5, n] + S2[a1, a1, a2, SP[a3, a5], a4, n] + 
    S2[a1, a1, a3, a4, SP[a2, a5], n] + S2[a1, a1, a3, SP[a2, a4], a5, n] + 
    S2[a5, n]*S2[a1, a1, a4, a2, a3, n] - 
    S2[a3, n]*S2[a1, a1, a4, a2, a5, n] + S2[a1, a1, a4, a2, SP[a3, a5], n] + 
    S2[a5, n]*S2[a1, a1, a4, a3, a2, n] + S2[a1, a1, a4, a3, SP[a2, a5], n] - 
    S2[a3, n]*S2[a1, a1, a4, a5, a2, n] - S2[a1, a1, a4, a5, SP[a2, a3], n] - 
    S2[a1, a1, a4, SP[a2, a3], a5, n] + 2*S2[a1, a1, a4, SP[a2, a5], a3, n] - 
    S2[a4, n]*S2[a1, a1, a5, a2, a3, n] - S2[a1, a1, a5, a2, SP[a3, a4], n] - 
    S2[a1, a1, a5, SP[a2, a4], a3, n] + S2[a1, a1, SP[a2, a5], a3, a4, n] + 
    S2[a1, a1, SP[a2, a5], a4, a3, n] - S2[a1, a1, SP[a3, a4], a2, a5, n] - 
    S2[a1, a1, SP[a3, a4], a5, a2, n] + S2[a1, a1, SP[a4, a5], a3, a2, n] + 
    S2[a1, a3, a1, a4, SP[a2, a5], n] + S2[a1, a3, a1, SP[a2, a4], a5, n] + 
    S2[a1, a3, a4, a1, SP[a2, a5], n] + S2[a1, a3, a4, SP[a1, a5], a2, n] + 
    S2[a1, a3, SP[a1, a4], a2, a5, n] + S2[a1, a3, SP[a1, a4], a5, a2, n] + 
    S2[a5, n]*S2[a1, a4, a1, a2, a3, n] - 
    S2[a3, n]*S2[a1, a4, a1, a2, a5, n] + S2[a1, a4, a1, a2, SP[a3, a5], n] + 
    S2[a5, n]*S2[a1, a4, a1, a3, a2, n] + S2[a1, a4, a1, a3, SP[a2, a5], n] - 
    S2[a3, n]*S2[a1, a4, a1, a5, a2, n] - S2[a1, a4, a1, a5, SP[a2, a3], n] - 
    S2[a1, a4, a1, SP[a2, a3], a5, n] + 2*S2[a1, a4, a1, SP[a2, a5], a3, n] + 
    S2[a5, n]*S2[a1, a4, a3, a1, a2, n] + S2[a1, a4, a3, a1, SP[a2, a5], n] + 
    S2[a1, a4, a3, SP[a1, a5], a2, n] - S2[a3, n]*S2[a1, a4, a5, a1, a2, n] - 
    S2[a1, a4, a5, a1, SP[a2, a3], n] - S2[a1, a4, a5, SP[a1, a3], a2, n] - 
    S2[a1, a4, SP[a1, a3], a2, a5, n] - S2[a1, a4, SP[a1, a3], a5, a2, n] + 
    2*S2[a1, a4, SP[a1, a5], a2, a3, n] + S2[a1, a4, SP[a1, a5], a3, a2, n] - 
    S2[a4, n]*S2[a1, a5, a1, a2, a3, n] - S2[a1, a5, a1, a2, SP[a3, a4], n] - 
    S2[a1, a5, a1, SP[a2, a4], a3, n] - (S2[a1, n]*S2[a1, a5, a4, a3, a2, n])/
     2 - S2[a1, a5, a4, a3, SP[a1, a2], n]/2 - 
    S2[a1, a5, a4, SP[a1, a3], a2, n]/2 - S2[a1, a5, SP[a1, a4], a2, a3, n] - 
    S2[a1, a5, SP[a1, a4], a3, a2, n]/2 + S2[a1, SP[a1, a5], a2, a3, a4, n] + 
    S2[a1, SP[a1, a5], a2, a4, a3, n] + S2[a1, SP[a1, a5], a4, a2, a3, n] + 
    S2[a1, SP[a1, a5], a4, a3, a2, n]/2 - S2[a1, SP[a3, a4], a1, a2, a5, n] - 
    S2[a1, SP[a3, a4], a1, a5, a2, n] - S2[a1, SP[a3, a4], a5, a1, a2, n] + 
    S2[a1, SP[a4, a5], a1, a3, a2, n] + S2[a1, SP[a4, a5], a3, a1, a2, n] + 
    S2[a3, a1, a1, a4, SP[a2, a5], n] + S2[a3, a1, a1, SP[a2, a4], a5, n] + 
    S2[a3, a1, a4, a1, SP[a2, a5], n] + S2[a3, a1, a4, SP[a1, a5], a2, n] + 
    S2[a3, a1, SP[a1, a4], a2, a5, n] + S2[a3, a1, SP[a1, a4], a5, a2, n] - 
    S2[a5, n]*S2[a3, a4, a1, a1, a2, n] + S2[a3, SP[a1, a4], a1, a2, a5, n] + 
    S2[a3, SP[a1, a4], a1, a5, a2, n] + S2[a3, SP[a1, a4], a5, a1, a2, n] - 
    S2[a3, SP[a4, a5], a1, a1, a2, n] + S2[a4, a1, a1, a2, SP[a3, a5], n] + 
    S2[a4, a1, a1, SP[a2, a5], a3, n] + S2[a4, a1, SP[a1, a5], a2, a3, n] + 
    S2[a4, SP[a1, a5], a1, a2, a3, n] - S2[a4, n]*S2[a5, a1, a1, a2, a3, n] - 
    S2[a5, a1, a1, a2, SP[a3, a4], n] - S2[a5, a1, a1, SP[a2, a4], a3, n] - 
    (S2[a1, n]*S2[a5, a1, a4, a3, a2, n])/2 - 
    S2[a5, a1, a4, a3, SP[a1, a2], n]/2 - S2[a5, a1, a4, SP[a1, a3], a2, n]/
     2 - S2[a5, a1, SP[a1, a4], a2, a3, n] - 
    S2[a5, a1, SP[a1, a4], a3, a2, n]/2 + 
    S2[a3, n]*S2[a5, a4, a1, a1, a2, n] + S2[a5, a4, a1, a1, SP[a2, a3], n] - 
    (S2[a1, n]*S2[a5, a4, a1, a3, a2, n])/2 - 
    S2[a5, a4, a1, a3, SP[a1, a2], n]/2 + S2[a5, a4, a1, SP[a1, a3], a2, n]/
     2 - (S2[a1, n]*S2[a5, a4, a3, a1, a2, n])/2 - 
    S2[a5, a4, a3, a1, SP[a1, a2], n]/2 + 
    (S2[a1, n]*S2[a5, a4, a3, a2, a1, n])/2 + 
    S2[a5, a4, a3, a2, SP[a1, a1], n]/2 - S2[a5, a4, a3, SP[a1, a1], a2, n]/
     2 + S2[a5, a4, a3, SP[a1, a2], a1, n]/2 - 
    S2[a5, a4, SP[a1, a1], a3, a2, n]/2 + S2[a5, a4, SP[a1, a3], a1, a2, n]/
     2 + S2[a5, a4, SP[a1, a3], a2, a1, n]/2 - 
    S2[a5, SP[a1, a1], a4, a3, a2, n]/2 - S2[a5, SP[a1, a4], a1, a2, a3, n] - 
    S2[a5, SP[a1, a4], a1, a3, a2, n]/2 - S2[a5, SP[a1, a4], a3, a1, a2, n]/
     2 + S2[a5, SP[a1, a4], a3, a2, a1, n]/2 + S2[a5, SP[a3, a4], a1, a1, a2, 
     n] - S2[SP[a1, a1], a5, a4, a3, a2, n]/2 + S2[SP[a1, a5], a1, a2, a3, 
     a4, n] + S2[SP[a1, a5], a1, a2, a4, a3, n] + S2[SP[a1, a5], a1, a4, a2, 
     a3, n] + S2[SP[a1, a5], a1, a4, a3, a2, n]/2 + 
    S2[SP[a1, a5], a4, a1, a2, a3, n] + S2[SP[a1, a5], a4, a1, a3, a2, n]/2 + 
    S2[SP[a1, a5], a4, a3, a1, a2, n]/2 + S2[SP[a1, a5], a4, a3, a2, a1, n]/
     2 - S2[SP[a4, a5], a1, a1, a2, a3, n] - S2[a5, a4, a3, a2, a1, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a1_, a1_, a2_, a3_, a5_, a4_, n_] :> 
  S2[a1, a1, a2, n]*S2[a3, a5, a4, n] + S2[SP[a1, a3], SP[a1, a5], 
     SP[a2, a4], n] - S2[a4, a5, n]*S2[a1, a1, a2, a3, n] + 
    S2[a1, a1, SP[a2, a4], SP[a3, a5], n] - S2[a1, a3, SP[a1, a5], 
     SP[a2, a4], n] - S2[a1, SP[a1, a3], a5, SP[a2, a4], n] - 
    S2[a1, SP[a1, a3], SP[a2, a5], a4, n] + S2[a1, SP[a1, a4], a2, 
     SP[a3, a5], n] + S2[a1, SP[a1, a4], SP[a2, a5], a3, n] - 
    S2[a3, a1, SP[a1, a5], SP[a2, a4], n] - S2[a3, SP[a1, a5], a1, 
     SP[a2, a4], n] - S2[a3, SP[a1, a5], SP[a1, a4], a2, n] - 
    S2[SP[a1, a3], a1, a5, SP[a2, a4], n] - S2[SP[a1, a3], a1, SP[a2, a5], 
     a4, n] - S2[SP[a1, a3], a5, a1, SP[a2, a4], n] - 
    S2[SP[a1, a3], a5, SP[a1, a4], a2, n] - S2[SP[a1, a3], SP[a1, a5], a2, 
     a4, n] - S2[SP[a1, a3], SP[a1, a5], a4, a2, n] + 
    S2[SP[a1, a4], a1, a2, SP[a3, a5], n] + S2[SP[a1, a4], a1, SP[a2, a5], 
     a3, n] + S2[SP[a1, a4], SP[a1, a5], a2, a3, n] + 
    S2[a4, n]*S2[a1, a1, a2, a3, a5, n] + S2[a1, a1, a2, a3, SP[a4, a5], n] - 
    S2[a1, a1, a2, a4, SP[a3, a5], n] + S2[a4, n]*S2[a1, a1, a2, a5, a3, n] - 
    S2[a3, n]*S2[a1, a1, a2, a5, a4, n] - S2[a1, a1, a2, SP[a3, a5], a4, n] + 
    S2[a1, a1, a2, SP[a4, a5], a3, n] + S2[a1, a1, a3, a5, SP[a2, a4], n] + 
    S2[a1, a1, a3, SP[a2, a5], a4, n] - S2[a1, a1, a4, a2, SP[a3, a5], n] - 
    S2[a1, a1, a4, SP[a2, a5], a3, n] + S2[a4, n]*S2[a1, a1, a5, a2, a3, n] - 
    S2[a3, n]*S2[a1, a1, a5, a2, a4, n] - 
    S2[a3, n]*S2[a1, a1, a5, a4, a2, n] - S2[a1, a1, a5, a4, SP[a2, a3], n] - 
    S2[a1, a1, a5, SP[a2, a3], a4, n] + S2[a1, a1, a5, SP[a2, a4], a3, n] - 
    S2[a1, a1, a5, SP[a3, a4], a2, n] - S2[a1, a1, SP[a3, a5], a2, a4, n] - 
    S2[a1, a1, SP[a3, a5], a4, a2, n] + S2[a1, a1, SP[a4, a5], a2, a3, n] + 
    S2[a1, a3, a1, a5, SP[a2, a4], n] + S2[a1, a3, a1, SP[a2, a5], a4, n] + 
    S2[a1, a3, a5, a1, SP[a2, a4], n] + S2[a1, a3, a5, SP[a1, a4], a2, n] + 
    S2[a1, a3, SP[a1, a5], a2, a4, n] + S2[a1, a3, SP[a1, a5], a4, a2, n] - 
    S2[a1, a4, a1, a2, SP[a3, a5], n] - S2[a1, a4, a1, SP[a2, a5], a3, n] - 
    S2[a1, a4, SP[a1, a5], a2, a3, n] + S2[a4, n]*S2[a1, a5, a1, a2, a3, n] - 
    S2[a3, n]*S2[a1, a5, a1, a2, a4, n] - 
    S2[a3, n]*S2[a1, a5, a1, a4, a2, n] - S2[a1, a5, a1, a4, SP[a2, a3], n] - 
    S2[a1, a5, a1, SP[a2, a3], a4, n] + S2[a1, a5, a1, SP[a2, a4], a3, n] - 
    S2[a1, a5, a1, SP[a3, a4], a2, n] + (S2[a1, n]*S2[a1, a5, a3, a2, a4, n])/
     2 + S2[a1, a5, a3, a2, SP[a1, a4], n]/2 + 
    (S2[a1, n]*S2[a1, a5, a3, a4, a2, n])/2 + 
    S2[a1, a5, a3, a4, SP[a1, a2], n]/2 + S2[a1, a5, a3, SP[a1, a2], a4, n]/
     2 + S2[a1, a5, a3, SP[a1, a4], a2, n]/2 - 
    S2[a3, n]*S2[a1, a5, a4, a1, a2, n] - S2[a1, a5, a4, a1, SP[a2, a3], n] + 
    (S2[a1, n]*S2[a1, a5, a4, a3, a2, n])/2 + 
    S2[a1, a5, a4, a3, SP[a1, a2], n]/2 - S2[a1, a5, a4, SP[a1, a3], a2, n]/
     2 - S2[a1, a5, SP[a1, a3], a2, a4, n]/2 - 
    S2[a1, a5, SP[a1, a3], a4, a2, n]/2 + S2[a1, a5, SP[a1, a4], a2, a3, n] + 
    S2[a1, a5, SP[a1, a4], a3, a2, n]/2 - S2[a1, a5, SP[a3, a4], a1, a2, n] + 
    S2[a1, SP[a1, a5], a3, a2, a4, n]/2 + S2[a1, SP[a1, a5], a3, a4, a2, n]/
     2 + S2[a1, SP[a1, a5], a4, a3, a2, n]/2 - S2[a1, SP[a3, a5], a1, a2, a4, 
     n] - S2[a1, SP[a3, a5], a1, a4, a2, n] - S2[a1, SP[a3, a5], a4, a1, a2, 
     n] + S2[a1, SP[a4, a5], a1, a2, a3, n] + S2[a3, a1, a1, a5, SP[a2, a4], 
     n] + S2[a3, a1, a1, SP[a2, a5], a4, n] + S2[a3, a1, a5, a1, SP[a2, a4], 
     n] + S2[a3, a1, a5, SP[a1, a4], a2, n] + S2[a3, a1, SP[a1, a5], a2, a4, 
     n] + S2[a3, a1, SP[a1, a5], a4, a2, n] + S2[a3, a5, a1, a1, SP[a2, a4], 
     n] + S2[a3, a5, a1, SP[a1, a4], a2, n] + S2[a3, a5, SP[a1, a4], a1, a2, 
     n] + S2[a3, SP[a1, a5], a1, a2, a4, n] + S2[a3, SP[a1, a5], a1, a4, a2, 
     n] + S2[a3, SP[a1, a5], a4, a1, a2, n] - S2[a4, a1, a1, a2, SP[a3, a5], 
     n] - S2[a4, a1, a1, SP[a2, a5], a3, n] - S2[a4, a1, SP[a1, a5], a2, a3, 
     n] - S2[a4, SP[a1, a5], a1, a2, a3, n] + 
    S2[a4, n]*S2[a5, a1, a1, a2, a3, n] - 
    S2[a3, n]*S2[a5, a1, a1, a2, a4, n] - 
    S2[a3, n]*S2[a5, a1, a1, a4, a2, n] - S2[a5, a1, a1, a4, SP[a2, a3], n] - 
    S2[a5, a1, a1, SP[a2, a3], a4, n] + S2[a5, a1, a1, SP[a2, a4], a3, n] - 
    S2[a5, a1, a1, SP[a3, a4], a2, n] + (S2[a1, n]*S2[a5, a1, a3, a2, a4, n])/
     2 + S2[a5, a1, a3, a2, SP[a1, a4], n]/2 + 
    (S2[a1, n]*S2[a5, a1, a3, a4, a2, n])/2 + 
    S2[a5, a1, a3, a4, SP[a1, a2], n]/2 + S2[a5, a1, a3, SP[a1, a2], a4, n]/
     2 + S2[a5, a1, a3, SP[a1, a4], a2, n]/2 - 
    S2[a3, n]*S2[a5, a1, a4, a1, a2, n] - S2[a5, a1, a4, a1, SP[a2, a3], n] + 
    (S2[a1, n]*S2[a5, a1, a4, a3, a2, n])/2 + 
    S2[a5, a1, a4, a3, SP[a1, a2], n]/2 - S2[a5, a1, a4, SP[a1, a3], a2, n]/
     2 - S2[a5, a1, SP[a1, a3], a2, a4, n]/2 - 
    S2[a5, a1, SP[a1, a3], a4, a2, n]/2 + S2[a5, a1, SP[a1, a4], a2, a3, n] + 
    S2[a5, a1, SP[a1, a4], a3, a2, n]/2 - S2[a5, a1, SP[a3, a4], a1, a2, n] + 
    (S2[a1, n]*S2[a5, a3, a1, a2, a4, n])/2 + 
    S2[a5, a3, a1, a2, SP[a1, a4], n]/2 + 
    (S2[a1, n]*S2[a5, a3, a1, a4, a2, n])/2 + 
    S2[a5, a3, a1, a4, SP[a1, a2], n]/2 + S2[a5, a3, a1, SP[a1, a2], a4, n]/
     2 + S2[a5, a3, a1, SP[a1, a4], a2, n]/2 - 
    (S2[a1, n]*S2[a5, a3, a2, a1, a4, n])/2 - 
    S2[a5, a3, a2, a1, SP[a1, a4], n]/2 - 
    (S2[a1, n]*S2[a5, a3, a2, a4, a1, n])/2 - 
    S2[a5, a3, a2, a4, SP[a1, a1], n]/2 - S2[a5, a3, a2, SP[a1, a1], a4, n]/
     2 - S2[a5, a3, a2, SP[a1, a4], a1, n]/2 + 
    (S2[a1, n]*S2[a5, a3, a4, a1, a2, n])/2 + 
    S2[a5, a3, a4, a1, SP[a1, a2], n]/2 - 
    (S2[a1, n]*S2[a5, a3, a4, a2, a1, n])/2 - 
    S2[a5, a3, a4, a2, SP[a1, a1], n]/2 + S2[a5, a3, a4, SP[a1, a1], a2, n]/
     2 - S2[a5, a3, a4, SP[a1, a2], a1, n]/2 + 
    S2[a5, a3, SP[a1, a1], a2, a4, n]/2 + S2[a5, a3, SP[a1, a1], a4, a2, n]/
     2 - S2[a5, a3, SP[a1, a2], a1, a4, n]/2 - 
    S2[a5, a3, SP[a1, a2], a4, a1, n]/2 + S2[a5, a3, SP[a1, a4], a1, a2, n]/
     2 - S2[a5, a3, SP[a1, a4], a2, a1, n]/2 - 
    S2[a3, n]*S2[a5, a4, a1, a1, a2, n] - S2[a5, a4, a1, a1, SP[a2, a3], n] + 
    (S2[a1, n]*S2[a5, a4, a1, a3, a2, n])/2 + 
    S2[a5, a4, a1, a3, SP[a1, a2], n]/2 - S2[a5, a4, a1, SP[a1, a3], a2, n]/
     2 + (S2[a1, n]*S2[a5, a4, a3, a1, a2, n])/2 + 
    S2[a5, a4, a3, a1, SP[a1, a2], n]/2 - 
    (S2[a1, n]*S2[a5, a4, a3, a2, a1, n])/2 - 
    S2[a5, a4, a3, a2, SP[a1, a1], n]/2 + S2[a5, a4, a3, SP[a1, a1], a2, n]/
     2 - S2[a5, a4, a3, SP[a1, a2], a1, n]/2 + 
    S2[a5, a4, SP[a1, a1], a3, a2, n]/2 - S2[a5, a4, SP[a1, a3], a1, a2, n]/
     2 - S2[a5, a4, SP[a1, a3], a2, a1, n]/2 + 
    S2[a5, SP[a1, a1], a3, a2, a4, n]/2 + S2[a5, SP[a1, a1], a3, a4, a2, n]/
     2 + S2[a5, SP[a1, a1], a4, a3, a2, n]/2 - 
    S2[a5, SP[a1, a3], a1, a2, a4, n]/2 - S2[a5, SP[a1, a3], a1, a4, a2, n]/
     2 - S2[a5, SP[a1, a3], a2, a1, a4, n]/2 - 
    S2[a5, SP[a1, a3], a2, a4, a1, n]/2 - S2[a5, SP[a1, a3], a4, a1, a2, n]/
     2 - S2[a5, SP[a1, a3], a4, a2, a1, n]/2 + S2[a5, SP[a1, a4], a1, a2, a3, 
     n] + S2[a5, SP[a1, a4], a1, a3, a2, n]/2 + 
    S2[a5, SP[a1, a4], a3, a1, a2, n]/2 - S2[a5, SP[a1, a4], a3, a2, a1, n]/
     2 - S2[a5, SP[a3, a4], a1, a1, a2, n] + 
    S2[SP[a1, a1], a5, a3, a2, a4, n]/2 + S2[SP[a1, a1], a5, a3, a4, a2, n]/
     2 + S2[SP[a1, a1], a5, a4, a3, a2, n]/2 + 
    S2[SP[a1, a5], a1, a3, a2, a4, n]/2 + S2[SP[a1, a5], a1, a3, a4, a2, n]/
     2 + S2[SP[a1, a5], a1, a4, a3, a2, n]/2 + 
    S2[SP[a1, a5], a3, a1, a2, a4, n]/2 + S2[SP[a1, a5], a3, a1, a4, a2, n]/
     2 - S2[SP[a1, a5], a3, a2, a1, a4, n]/2 - 
    S2[SP[a1, a5], a3, a2, a4, a1, n]/2 + S2[SP[a1, a5], a3, a4, a1, a2, n]/
     2 - S2[SP[a1, a5], a3, a4, a2, a1, n]/2 + 
    S2[SP[a1, a5], a4, a1, a3, a2, n]/2 + S2[SP[a1, a5], a4, a3, a1, a2, n]/
     2 - S2[SP[a1, a5], a4, a3, a2, a1, n]/2 - S2[SP[a3, a5], a1, a1, a2, a4, 
     n] - S2[SP[a3, a5], a1, a1, a4, a2, n] - S2[SP[a3, a5], a1, a4, a1, a2, 
     n] - S2[SP[a3, a5], a4, a1, a1, a2, n] + S2[SP[a4, a5], a1, a1, a2, a3, 
     n] + S2[a5, a3, a2, a1, a1, a4, n] + S2[a5, a3, a2, a1, a4, a1, n] + 
    S2[a5, a3, a2, a4, a1, a1, n] + S2[a5, a3, a4, a2, a1, a1, n] + 
    S2[a5, a4, a3, a2, a1, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a1_, a1_, a2_, a4_, a3_, a5_, n_] :> 
  -(S2[a1, a1, a2, n]*S2[a3, a4, a5, n]) - S2[a1, a1, a2, n]*
     S2[a3, a5, a4, n] - S2[SP[a1, a3], SP[a1, a4], SP[a2, a5], n] - 
    S2[SP[a1, a3], SP[a1, a5], SP[a2, a4], n] + 
    S2[a3, a5, n]*S2[a1, a1, a2, a4, n] - S2[a1, a1, SP[a2, a3], SP[a4, a5], 
     n] + S2[a1, a3, SP[a1, a4], SP[a2, a5], n] + S2[a1, a3, SP[a1, a5], 
     SP[a2, a4], n] - S2[a1, SP[a1, a3], a2, SP[a4, a5], n] + 
    S2[a1, SP[a1, a3], a4, SP[a2, a5], n] + S2[a1, SP[a1, a3], a5, 
     SP[a2, a4], n] + S2[a1, SP[a1, a3], SP[a2, a4], a5, n] + 
    S2[a3, a1, SP[a1, a4], SP[a2, a5], n] + S2[a3, a1, SP[a1, a5], 
     SP[a2, a4], n] + S2[a3, SP[a1, a4], a1, SP[a2, a5], n] + 
    S2[a3, SP[a1, a4], SP[a1, a5], a2, n] + S2[a3, SP[a1, a5], a1, 
     SP[a2, a4], n] + S2[a3, SP[a1, a5], SP[a1, a4], a2, n] - 
    S2[SP[a1, a3], a1, a2, SP[a4, a5], n] + S2[SP[a1, a3], a1, a4, 
     SP[a2, a5], n] + S2[SP[a1, a3], a1, a5, SP[a2, a4], n] + 
    S2[SP[a1, a3], a1, SP[a2, a4], a5, n] + S2[SP[a1, a3], a4, a1, 
     SP[a2, a5], n] + S2[SP[a1, a3], a4, SP[a1, a5], a2, n] + 
    S2[SP[a1, a3], a5, a1, SP[a2, a4], n] + S2[SP[a1, a3], a5, SP[a1, a4], 
     a2, n] + S2[SP[a1, a3], SP[a1, a4], a2, a5, n] + 
    S2[SP[a1, a3], SP[a1, a4], a5, a2, n] + S2[SP[a1, a3], SP[a1, a5], a4, 
     a2, n] + S2[a1, a1, a2, a3, SP[a4, a5], n] + S2[a1, a1, a2, SP[a3, a4], 
     a5, n] + S2[a1, a1, a3, a2, SP[a4, a5], n] - 
    S2[a1, a1, a3, a4, SP[a2, a5], n] - S2[a1, a1, a3, a5, SP[a2, a4], n] - 
    S2[a1, a1, a3, SP[a2, a4], a5, n] - S2[a5, n]*S2[a1, a1, a4, a2, a3, n] + 
    S2[a3, n]*S2[a1, a1, a4, a2, a5, n] - 
    S2[a5, n]*S2[a1, a1, a4, a3, a2, n] - S2[a1, a1, a4, a3, SP[a2, a5], n] + 
    S2[a3, n]*S2[a1, a1, a4, a5, a2, n] + S2[a1, a1, a4, a5, SP[a2, a3], n] + 
    S2[a1, a1, a4, SP[a2, a3], a5, n] - S2[a1, a1, a4, SP[a2, a5], a3, n] + 
    S2[a3, n]*S2[a1, a1, a5, a4, a2, n] + S2[a1, a1, a5, a4, SP[a2, a3], n] + 
    S2[a1, a1, a5, SP[a3, a4], a2, n] + S2[a1, a1, SP[a3, a4], a2, a5, n] + 
    S2[a1, a1, SP[a3, a4], a5, a2, n] + S2[a1, a1, SP[a3, a5], a4, a2, n] - 
    S2[a1, a1, SP[a4, a5], a2, a3, n] - S2[a1, a1, SP[a4, a5], a3, a2, n] + 
    S2[a1, a3, a1, a2, SP[a4, a5], n] - S2[a1, a3, a1, a4, SP[a2, a5], n] - 
    S2[a1, a3, a1, a5, SP[a2, a4], n] - S2[a1, a3, a1, SP[a2, a4], a5, n] - 
    S2[a1, a3, a4, a1, SP[a2, a5], n] - S2[a1, a3, a4, SP[a1, a5], a2, n] - 
    S2[a1, a3, a5, a1, SP[a2, a4], n] - S2[a1, a3, a5, SP[a1, a4], a2, n] - 
    S2[a1, a3, SP[a1, a4], a2, a5, n] - S2[a1, a3, SP[a1, a4], a5, a2, n] - 
    S2[a1, a3, SP[a1, a5], a4, a2, n] - S2[a5, n]*S2[a1, a4, a1, a2, a3, n] + 
    S2[a3, n]*S2[a1, a4, a1, a2, a5, n] - 
    S2[a5, n]*S2[a1, a4, a1, a3, a2, n] - S2[a1, a4, a1, a3, SP[a2, a5], n] + 
    S2[a3, n]*S2[a1, a4, a1, a5, a2, n] + S2[a1, a4, a1, a5, SP[a2, a3], n] + 
    S2[a1, a4, a1, SP[a2, a3], a5, n] - S2[a1, a4, a1, SP[a2, a5], a3, n] - 
    S2[a5, n]*S2[a1, a4, a3, a1, a2, n] - S2[a1, a4, a3, a1, SP[a2, a5], n] - 
    S2[a1, a4, a3, SP[a1, a5], a2, n] + S2[a3, n]*S2[a1, a4, a5, a1, a2, n] + 
    S2[a1, a4, a5, a1, SP[a2, a3], n] + S2[a1, a4, a5, SP[a1, a3], a2, n] + 
    S2[a1, a4, SP[a1, a3], a2, a5, n] + S2[a1, a4, SP[a1, a3], a5, a2, n] - 
    S2[a1, a4, SP[a1, a5], a2, a3, n] - S2[a1, a4, SP[a1, a5], a3, a2, n] + 
    S2[a3, n]*S2[a1, a5, a1, a4, a2, n] + S2[a1, a5, a1, a4, SP[a2, a3], n] + 
    S2[a1, a5, a1, SP[a3, a4], a2, n] - (S2[a1, n]*S2[a1, a5, a3, a4, a2, n])/
     2 - S2[a1, a5, a3, a4, SP[a1, a2], n]/2 - 
    S2[a1, a5, a3, SP[a1, a4], a2, n]/2 + 
    S2[a3, n]*S2[a1, a5, a4, a1, a2, n] + S2[a1, a5, a4, a1, SP[a2, a3], n] + 
    S2[a1, a5, a4, SP[a1, a3], a2, n] + S2[a1, a5, SP[a1, a3], a4, a2, n]/2 + 
    S2[a1, a5, SP[a3, a4], a1, a2, n] - S2[a1, SP[a1, a5], a3, a4, a2, n]/2 - 
    S2[a1, SP[a1, a5], a4, a2, a3, n] - S2[a1, SP[a1, a5], a4, a3, a2, n] + 
    S2[a1, SP[a3, a4], a1, a2, a5, n] + S2[a1, SP[a3, a4], a1, a5, a2, n] + 
    S2[a1, SP[a3, a4], a5, a1, a2, n] + S2[a1, SP[a3, a5], a1, a4, a2, n] + 
    S2[a1, SP[a3, a5], a4, a1, a2, n] - S2[a1, SP[a4, a5], a1, a2, a3, n] - 
    S2[a1, SP[a4, a5], a1, a3, a2, n] - S2[a1, SP[a4, a5], a3, a1, a2, n] + 
    S2[a3, a1, a1, a2, SP[a4, a5], n] - S2[a3, a1, a1, a4, SP[a2, a5], n] - 
    S2[a3, a1, a1, a5, SP[a2, a4], n] - S2[a3, a1, a1, SP[a2, a4], a5, n] - 
    S2[a3, a1, a4, a1, SP[a2, a5], n] - S2[a3, a1, a4, SP[a1, a5], a2, n] - 
    S2[a3, a1, a5, a1, SP[a2, a4], n] - S2[a3, a1, a5, SP[a1, a4], a2, n] - 
    S2[a3, a1, SP[a1, a4], a2, a5, n] - S2[a3, a1, SP[a1, a4], a5, a2, n] - 
    S2[a3, a1, SP[a1, a5], a4, a2, n] + S2[a5, n]*S2[a3, a4, a1, a1, a2, n] - 
    S2[a3, a5, a1, a1, SP[a2, a4], n] - S2[a3, a5, a1, SP[a1, a4], a2, n] - 
    S2[a3, a5, SP[a1, a4], a1, a2, n] - S2[a3, SP[a1, a4], a1, a2, a5, n] - 
    S2[a3, SP[a1, a4], a1, a5, a2, n] - S2[a3, SP[a1, a4], a5, a1, a2, n] - 
    S2[a3, SP[a1, a5], a1, a4, a2, n] - S2[a3, SP[a1, a5], a4, a1, a2, n] + 
    S2[a3, SP[a4, a5], a1, a1, a2, n] + S2[a3, n]*S2[a5, a1, a1, a4, a2, n] + 
    S2[a5, a1, a1, a4, SP[a2, a3], n] + S2[a5, a1, a1, SP[a3, a4], a2, n] - 
    (S2[a1, n]*S2[a5, a1, a3, a4, a2, n])/2 - 
    S2[a5, a1, a3, a4, SP[a1, a2], n]/2 - S2[a5, a1, a3, SP[a1, a4], a2, n]/
     2 + S2[a3, n]*S2[a5, a1, a4, a1, a2, n] + S2[a5, a1, a4, a1, SP[a2, a3], 
     n] + S2[a5, a1, a4, SP[a1, a3], a2, n] + 
    S2[a5, a1, SP[a1, a3], a4, a2, n]/2 + S2[a5, a1, SP[a3, a4], a1, a2, n] - 
    (S2[a1, n]*S2[a5, a3, a1, a4, a2, n])/2 - 
    S2[a5, a3, a1, a4, SP[a1, a2], n]/2 - S2[a5, a3, a1, SP[a1, a4], a2, n]/
     2 - (S2[a1, n]*S2[a5, a3, a4, a1, a2, n])/2 - 
    S2[a5, a3, a4, a1, SP[a1, a2], n]/2 + 
    (S2[a1, n]*S2[a5, a3, a4, a2, a1, n])/2 + 
    S2[a5, a3, a4, a2, SP[a1, a1], n]/2 - S2[a5, a3, a4, SP[a1, a1], a2, n]/
     2 + S2[a5, a3, a4, SP[a1, a2], a1, n]/2 - 
    S2[a5, a3, SP[a1, a1], a4, a2, n]/2 - S2[a5, a3, SP[a1, a4], a1, a2, n]/
     2 + S2[a5, a3, SP[a1, a4], a2, a1, n]/2 - 
    S2[a5, SP[a1, a1], a3, a4, a2, n]/2 + S2[a5, SP[a1, a3], a1, a4, a2, n]/
     2 + S2[a5, SP[a1, a3], a4, a1, a2, n]/2 + 
    S2[a5, SP[a1, a3], a4, a2, a1, n]/2 - S2[SP[a1, a1], a5, a3, a4, a2, n]/
     2 - S2[SP[a1, a5], a1, a3, a4, a2, n]/2 - S2[SP[a1, a5], a1, a4, a2, a3, 
     n] - S2[SP[a1, a5], a1, a4, a3, a2, n] - 
    S2[SP[a1, a5], a3, a1, a4, a2, n]/2 - S2[SP[a1, a5], a3, a4, a1, a2, n]/
     2 + S2[SP[a1, a5], a3, a4, a2, a1, n]/2 - S2[SP[a1, a5], a4, a1, a2, a3, 
     n] - S2[SP[a1, a5], a4, a1, a3, a2, n] - S2[SP[a1, a5], a4, a3, a1, a2, 
     n] + S2[SP[a3, a5], a1, a1, a4, a2, n] + S2[SP[a3, a5], a1, a4, a1, a2, 
     n] + S2[SP[a3, a5], a4, a1, a1, a2, n] - S2[a5, a3, a4, a2, a1, a1, 
     n] /; MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a1_, a1_, a2_, a4_, a5_, a3_, n_] :> 
  S2[a1, a1, a2, n]*S2[a3, a5, a4, n] + S2[SP[a1, a3], SP[a1, a5], 
     SP[a2, a4], n] - S2[a3, a5, n]*S2[a1, a1, a2, a4, n] + 
    S2[a1, a1, SP[a2, a3], SP[a4, a5], n] - S2[a1, a3, SP[a1, a5], 
     SP[a2, a4], n] + S2[a1, SP[a1, a3], a2, SP[a4, a5], n] - 
    S2[a1, SP[a1, a3], a5, SP[a2, a4], n] - S2[a3, a1, SP[a1, a5], 
     SP[a2, a4], n] - S2[a3, SP[a1, a5], a1, SP[a2, a4], n] - 
    S2[a3, SP[a1, a5], SP[a1, a4], a2, n] + S2[SP[a1, a3], a1, a2, 
     SP[a4, a5], n] - S2[SP[a1, a3], a1, a5, SP[a2, a4], n] - 
    S2[SP[a1, a3], a5, a1, SP[a2, a4], n] - S2[SP[a1, a3], a5, SP[a1, a4], 
     a2, n] - S2[SP[a1, a3], SP[a1, a5], a4, a2, n] - 
    S2[a1, a1, a2, a3, SP[a4, a5], n] + S2[a3, n]*S2[a1, a1, a2, a4, a5, n] + 
    S2[a1, a1, a2, a4, SP[a3, a5], n] - S2[a1, a1, a3, a2, SP[a4, a5], n] + 
    S2[a1, a1, a3, a5, SP[a2, a4], n] - S2[a3, n]*S2[a1, a1, a5, a4, a2, n] - 
    S2[a1, a1, a5, a4, SP[a2, a3], n] - S2[a1, a1, a5, SP[a3, a4], a2, n] - 
    S2[a1, a1, SP[a3, a5], a4, a2, n] - S2[a1, a3, a1, a2, SP[a4, a5], n] + 
    S2[a1, a3, a1, a5, SP[a2, a4], n] + S2[a1, a3, a5, a1, SP[a2, a4], n] + 
    S2[a1, a3, a5, SP[a1, a4], a2, n] + S2[a1, a3, SP[a1, a5], a4, a2, n] - 
    S2[a3, n]*S2[a1, a5, a1, a4, a2, n] - S2[a1, a5, a1, a4, SP[a2, a3], n] - 
    S2[a1, a5, a1, SP[a3, a4], a2, n] + (S2[a1, n]*S2[a1, a5, a3, a4, a2, n])/
     2 + S2[a1, a5, a3, a4, SP[a1, a2], n]/2 + 
    S2[a1, a5, a3, SP[a1, a4], a2, n]/2 - 
    S2[a3, n]*S2[a1, a5, a4, a1, a2, n] - S2[a1, a5, a4, a1, SP[a2, a3], n] + 
    (S2[a1, n]*S2[a1, a5, a4, a2, a3, n])/2 + 
    S2[a1, a5, a4, a2, SP[a1, a3], n]/2 + 
    (S2[a1, n]*S2[a1, a5, a4, a3, a2, n])/2 + 
    S2[a1, a5, a4, a3, SP[a1, a2], n]/2 + S2[a1, a5, a4, SP[a1, a2], a3, n]/
     2 - S2[a1, a5, a4, SP[a1, a3], a2, n]/2 - 
    S2[a1, a5, SP[a1, a3], a4, a2, n]/2 + S2[a1, a5, SP[a1, a4], a2, a3, n]/
     2 + S2[a1, a5, SP[a1, a4], a3, a2, n]/2 - S2[a1, a5, SP[a3, a4], a1, a2, 
     n] + S2[a1, SP[a1, a5], a3, a4, a2, n]/2 + 
    S2[a1, SP[a1, a5], a4, a2, a3, n]/2 + S2[a1, SP[a1, a5], a4, a3, a2, n]/
     2 - S2[a1, SP[a3, a5], a1, a4, a2, n] - S2[a1, SP[a3, a5], a4, a1, a2, 
     n] - S2[a3, a1, a1, a2, SP[a4, a5], n] + S2[a3, a1, a1, a5, SP[a2, a4], 
     n] + S2[a3, a1, a5, a1, SP[a2, a4], n] + S2[a3, a1, a5, SP[a1, a4], a2, 
     n] + S2[a3, a1, SP[a1, a5], a4, a2, n] + S2[a3, a5, a1, a1, SP[a2, a4], 
     n] + S2[a3, a5, a1, SP[a1, a4], a2, n] + S2[a3, a5, SP[a1, a4], a1, a2, 
     n] + S2[a3, SP[a1, a5], a1, a4, a2, n] + S2[a3, SP[a1, a5], a4, a1, a2, 
     n] - S2[a3, n]*S2[a5, a1, a1, a4, a2, n] - S2[a5, a1, a1, a4, 
     SP[a2, a3], n] - S2[a5, a1, a1, SP[a3, a4], a2, n] + 
    (S2[a1, n]*S2[a5, a1, a3, a4, a2, n])/2 + 
    S2[a5, a1, a3, a4, SP[a1, a2], n]/2 + S2[a5, a1, a3, SP[a1, a4], a2, n]/
     2 - S2[a3, n]*S2[a5, a1, a4, a1, a2, n] - S2[a5, a1, a4, a1, SP[a2, a3], 
     n] + (S2[a1, n]*S2[a5, a1, a4, a2, a3, n])/2 + 
    S2[a5, a1, a4, a2, SP[a1, a3], n]/2 + 
    (S2[a1, n]*S2[a5, a1, a4, a3, a2, n])/2 + 
    S2[a5, a1, a4, a3, SP[a1, a2], n]/2 + S2[a5, a1, a4, SP[a1, a2], a3, n]/
     2 - S2[a5, a1, a4, SP[a1, a3], a2, n]/2 - 
    S2[a5, a1, SP[a1, a3], a4, a2, n]/2 + S2[a5, a1, SP[a1, a4], a2, a3, n]/
     2 + S2[a5, a1, SP[a1, a4], a3, a2, n]/2 - S2[a5, a1, SP[a3, a4], a1, a2, 
     n] + (S2[a1, n]*S2[a5, a3, a1, a4, a2, n])/2 + 
    S2[a5, a3, a1, a4, SP[a1, a2], n]/2 + S2[a5, a3, a1, SP[a1, a4], a2, n]/
     2 + (S2[a1, n]*S2[a5, a3, a4, a1, a2, n])/2 + 
    S2[a5, a3, a4, a1, SP[a1, a2], n]/2 - 
    (S2[a1, n]*S2[a5, a3, a4, a2, a1, n])/2 - 
    S2[a5, a3, a4, a2, SP[a1, a1], n]/2 + S2[a5, a3, a4, SP[a1, a1], a2, n]/
     2 - S2[a5, a3, a4, SP[a1, a2], a1, n]/2 + 
    S2[a5, a3, SP[a1, a1], a4, a2, n]/2 + S2[a5, a3, SP[a1, a4], a1, a2, n]/
     2 - S2[a5, a3, SP[a1, a4], a2, a1, n]/2 - 
    S2[a3, n]*S2[a5, a4, a1, a1, a2, n] - S2[a5, a4, a1, a1, SP[a2, a3], n] + 
    (S2[a1, n]*S2[a5, a4, a1, a2, a3, n])/2 + 
    S2[a5, a4, a1, a2, SP[a1, a3], n]/2 + 
    (S2[a1, n]*S2[a5, a4, a1, a3, a2, n])/2 + 
    S2[a5, a4, a1, a3, SP[a1, a2], n]/2 + S2[a5, a4, a1, SP[a1, a2], a3, n]/
     2 - S2[a5, a4, a1, SP[a1, a3], a2, n]/2 - 
    (S2[a1, n]*S2[a5, a4, a2, a1, a3, n])/2 - 
    S2[a5, a4, a2, a1, SP[a1, a3], n]/2 - 
    (S2[a1, n]*S2[a5, a4, a2, a3, a1, n])/2 - 
    S2[a5, a4, a2, a3, SP[a1, a1], n]/2 - S2[a5, a4, a2, SP[a1, a1], a3, n]/
     2 - S2[a5, a4, a2, SP[a1, a3], a1, n]/2 + 
    (S2[a1, n]*S2[a5, a4, a3, a1, a2, n])/2 + 
    S2[a5, a4, a3, a1, SP[a1, a2], n]/2 - 
    (S2[a1, n]*S2[a5, a4, a3, a2, a1, n])/2 - 
    S2[a5, a4, a3, a2, SP[a1, a1], n]/2 + S2[a5, a4, a3, SP[a1, a1], a2, n]/
     2 - S2[a5, a4, a3, SP[a1, a2], a1, n]/2 + 
    S2[a5, a4, SP[a1, a1], a2, a3, n]/2 + S2[a5, a4, SP[a1, a1], a3, a2, n]/
     2 - S2[a5, a4, SP[a1, a2], a1, a3, n]/2 - 
    S2[a5, a4, SP[a1, a2], a3, a1, n]/2 - S2[a5, a4, SP[a1, a3], a1, a2, n]/
     2 - S2[a5, a4, SP[a1, a3], a2, a1, n]/2 + 
    S2[a5, SP[a1, a1], a3, a4, a2, n]/2 + S2[a5, SP[a1, a1], a4, a2, a3, n]/
     2 + S2[a5, SP[a1, a1], a4, a3, a2, n]/2 - 
    S2[a5, SP[a1, a3], a1, a4, a2, n]/2 - S2[a5, SP[a1, a3], a4, a1, a2, n]/
     2 - S2[a5, SP[a1, a3], a4, a2, a1, n]/2 + 
    S2[a5, SP[a1, a4], a1, a2, a3, n]/2 + S2[a5, SP[a1, a4], a1, a3, a2, n]/
     2 - S2[a5, SP[a1, a4], a2, a1, a3, n]/2 - 
    S2[a5, SP[a1, a4], a2, a3, a1, n]/2 + S2[a5, SP[a1, a4], a3, a1, a2, n]/
     2 - S2[a5, SP[a1, a4], a3, a2, a1, n]/2 - S2[a5, SP[a3, a4], a1, a1, a2, 
     n] + S2[SP[a1, a1], a5, a3, a4, a2, n]/2 + 
    S2[SP[a1, a1], a5, a4, a2, a3, n]/2 + S2[SP[a1, a1], a5, a4, a3, a2, n]/
     2 + S2[SP[a1, a5], a1, a3, a4, a2, n]/2 + 
    S2[SP[a1, a5], a1, a4, a2, a3, n]/2 + S2[SP[a1, a5], a1, a4, a3, a2, n]/
     2 + S2[SP[a1, a5], a3, a1, a4, a2, n]/2 + 
    S2[SP[a1, a5], a3, a4, a1, a2, n]/2 - S2[SP[a1, a5], a3, a4, a2, a1, n]/
     2 + S2[SP[a1, a5], a4, a1, a2, a3, n]/2 + 
    S2[SP[a1, a5], a4, a1, a3, a2, n]/2 - S2[SP[a1, a5], a4, a2, a1, a3, n]/
     2 - S2[SP[a1, a5], a4, a2, a3, a1, n]/2 + 
    S2[SP[a1, a5], a4, a3, a1, a2, n]/2 - S2[SP[a1, a5], a4, a3, a2, a1, n]/
     2 - S2[SP[a3, a5], a1, a1, a4, a2, n] - S2[SP[a3, a5], a1, a4, a1, a2, 
     n] - S2[SP[a3, a5], a4, a1, a1, a2, n] + S2[a5, a3, a4, a2, a1, a1, n] + 
    S2[a5, a4, a2, a1, a1, a3, n] + S2[a5, a4, a2, a1, a3, a1, n] + 
    S2[a5, a4, a2, a3, a1, a1, n] + S2[a5, a4, a3, a2, a1, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a1_, a1_, a2_, a5_, a3_, a4_, n_] :> 
  -(S2[a1, a1, a2, n]*S2[a3, a4, a5, n]) - S2[a1, a1, a2, n]*
     S2[a3, a5, a4, n] - S2[SP[a1, a3], SP[a1, a4], SP[a2, a5], n] - 
    S2[SP[a1, a3], SP[a1, a5], SP[a2, a4], n] + S2[a1, a3, SP[a1, a4], 
     SP[a2, a5], n] + S2[a1, a3, SP[a1, a5], SP[a2, a4], n] + 
    S2[a1, SP[a1, a3], a4, SP[a2, a5], n] + S2[a1, SP[a1, a3], a5, 
     SP[a2, a4], n] + S2[a1, SP[a1, a3], SP[a2, a4], a5, n] + 
    S2[a1, SP[a1, a3], SP[a2, a5], a4, n] + S2[a3, a1, SP[a1, a4], 
     SP[a2, a5], n] + S2[a3, a1, SP[a1, a5], SP[a2, a4], n] + 
    S2[a3, SP[a1, a4], a1, SP[a2, a5], n] + S2[a3, SP[a1, a4], SP[a1, a5], 
     a2, n] + S2[a3, SP[a1, a5], a1, SP[a2, a4], n] + 
    S2[a3, SP[a1, a5], SP[a1, a4], a2, n] + S2[SP[a1, a3], a1, a4, 
     SP[a2, a5], n] + S2[SP[a1, a3], a1, a5, SP[a2, a4], n] + 
    S2[SP[a1, a3], a1, SP[a2, a4], a5, n] + S2[SP[a1, a3], a1, SP[a2, a5], 
     a4, n] + S2[SP[a1, a3], a4, a1, SP[a2, a5], n] + 
    S2[SP[a1, a3], a4, SP[a1, a5], a2, n] + S2[SP[a1, a3], a5, a1, 
     SP[a2, a4], n] + S2[SP[a1, a3], a5, SP[a1, a4], a2, n] + 
    S2[SP[a1, a3], SP[a1, a4], a2, a5, n] + S2[SP[a1, a3], SP[a1, a4], a5, 
     a2, n] + S2[SP[a1, a3], SP[a1, a5], a2, a4, n] + 
    S2[SP[a1, a3], SP[a1, a5], a4, a2, n] - 
    S2[a5, n]*S2[a1, a1, a2, a4, a3, n] + 
    S2[a3, n]*S2[a1, a1, a2, a4, a5, n] + 
    S2[a3, n]*S2[a1, a1, a2, a5, a4, n] + S2[a1, a1, a2, a5, SP[a3, a4], n] + 
    S2[a1, a1, a2, SP[a3, a4], a5, n] + S2[a1, a1, a2, SP[a3, a5], a4, n] - 
    S2[a1, a1, a2, SP[a4, a5], a3, n] - S2[a1, a1, a3, a4, SP[a2, a5], n] - 
    S2[a1, a1, a3, a5, SP[a2, a4], n] - S2[a1, a1, a3, SP[a2, a4], a5, n] - 
    S2[a1, a1, a3, SP[a2, a5], a4, n] - S2[a5, n]*S2[a1, a1, a4, a2, a3, n] + 
    S2[a3, n]*S2[a1, a1, a4, a2, a5, n] - 
    S2[a5, n]*S2[a1, a1, a4, a3, a2, n] - S2[a1, a1, a4, a3, SP[a2, a5], n] + 
    S2[a3, n]*S2[a1, a1, a4, a5, a2, n] + S2[a1, a1, a4, a5, SP[a2, a3], n] + 
    S2[a1, a1, a4, SP[a2, a3], a5, n] - S2[a1, a1, a4, SP[a2, a5], a3, n] + 
    S2[a3, n]*S2[a1, a1, a5, a2, a4, n] + S2[a1, a1, a5, a2, SP[a3, a4], n] + 
    S2[a3, n]*S2[a1, a1, a5, a4, a2, n] + S2[a1, a1, a5, a4, SP[a2, a3], n] + 
    S2[a1, a1, a5, SP[a2, a3], a4, n] + S2[a1, a1, a5, SP[a3, a4], a2, n] - 
    S2[a1, a1, SP[a2, a5], a4, a3, n] + S2[a1, a1, SP[a3, a4], a2, a5, n] + 
    S2[a1, a1, SP[a3, a4], a5, a2, n] + S2[a1, a1, SP[a3, a5], a2, a4, n] + 
    S2[a1, a1, SP[a3, a5], a4, a2, n] - S2[a1, a1, SP[a4, a5], a2, a3, n] - 
    S2[a1, a1, SP[a4, a5], a3, a2, n] - S2[a1, a3, a1, a4, SP[a2, a5], n] - 
    S2[a1, a3, a1, a5, SP[a2, a4], n] - S2[a1, a3, a1, SP[a2, a4], a5, n] - 
    S2[a1, a3, a1, SP[a2, a5], a4, n] - S2[a1, a3, a4, a1, SP[a2, a5], n] - 
    S2[a1, a3, a4, SP[a1, a5], a2, n] - S2[a1, a3, a5, a1, SP[a2, a4], n] - 
    S2[a1, a3, a5, SP[a1, a4], a2, n] - S2[a1, a3, SP[a1, a4], a2, a5, n] - 
    S2[a1, a3, SP[a1, a4], a5, a2, n] - S2[a1, a3, SP[a1, a5], a2, a4, n] - 
    S2[a1, a3, SP[a1, a5], a4, a2, n] - S2[a5, n]*S2[a1, a4, a1, a2, a3, n] + 
    S2[a3, n]*S2[a1, a4, a1, a2, a5, n] - 
    S2[a5, n]*S2[a1, a4, a1, a3, a2, n] - S2[a1, a4, a1, a3, SP[a2, a5], n] + 
    S2[a3, n]*S2[a1, a4, a1, a5, a2, n] + S2[a1, a4, a1, a5, SP[a2, a3], n] + 
    S2[a1, a4, a1, SP[a2, a3], a5, n] - S2[a1, a4, a1, SP[a2, a5], a3, n] - 
    S2[a5, n]*S2[a1, a4, a3, a1, a2, n] - S2[a1, a4, a3, a1, SP[a2, a5], n] - 
    S2[a1, a4, a3, SP[a1, a5], a2, n] + S2[a3, n]*S2[a1, a4, a5, a1, a2, n] + 
    S2[a1, a4, a5, a1, SP[a2, a3], n] + S2[a1, a4, a5, SP[a1, a3], a2, n] + 
    S2[a1, a4, SP[a1, a3], a2, a5, n] + S2[a1, a4, SP[a1, a3], a5, a2, n] - 
    S2[a1, a4, SP[a1, a5], a2, a3, n] - S2[a1, a4, SP[a1, a5], a3, a2, n] + 
    S2[a3, n]*S2[a1, a5, a1, a2, a4, n] + S2[a1, a5, a1, a2, SP[a3, a4], n] + 
    S2[a3, n]*S2[a1, a5, a1, a4, a2, n] + S2[a1, a5, a1, a4, SP[a2, a3], n] + 
    S2[a1, a5, a1, SP[a2, a3], a4, n] + S2[a1, a5, a1, SP[a3, a4], a2, n] - 
    (S2[a1, n]*S2[a1, a5, a2, a3, a4, n])/2 - 
    S2[a1, a5, a2, a3, SP[a1, a4], n]/2 - S2[a1, a5, a2, SP[a1, a3], a4, n]/
     2 - (S2[a1, n]*S2[a1, a5, a3, a2, a4, n])/2 - 
    S2[a1, a5, a3, a2, SP[a1, a4], n]/2 - 
    (S2[a1, n]*S2[a1, a5, a3, a4, a2, n])/2 - 
    S2[a1, a5, a3, a4, SP[a1, a2], n]/2 - S2[a1, a5, a3, SP[a1, a2], a4, n]/
     2 - S2[a1, a5, a3, SP[a1, a4], a2, n]/2 + 
    S2[a3, n]*S2[a1, a5, a4, a1, a2, n] + S2[a1, a5, a4, a1, SP[a2, a3], n] + 
    S2[a1, a5, a4, SP[a1, a3], a2, n] - S2[a1, a5, SP[a1, a2], a3, a4, n]/2 + 
    S2[a1, a5, SP[a1, a3], a2, a4, n]/2 + S2[a1, a5, SP[a1, a3], a4, a2, n]/
     2 + S2[a1, a5, SP[a3, a4], a1, a2, n] - 
    S2[a1, SP[a1, a5], a2, a3, a4, n]/2 - S2[a1, SP[a1, a5], a2, a4, a3, n] - 
    S2[a1, SP[a1, a5], a3, a2, a4, n]/2 - S2[a1, SP[a1, a5], a3, a4, a2, n]/
     2 - S2[a1, SP[a1, a5], a4, a2, a3, n] - S2[a1, SP[a1, a5], a4, a3, a2, 
     n] + S2[a1, SP[a3, a4], a1, a2, a5, n] + S2[a1, SP[a3, a4], a1, a5, a2, 
     n] + S2[a1, SP[a3, a4], a5, a1, a2, n] + S2[a1, SP[a3, a5], a1, a2, a4, 
     n] + S2[a1, SP[a3, a5], a1, a4, a2, n] + S2[a1, SP[a3, a5], a4, a1, a2, 
     n] - S2[a1, SP[a4, a5], a1, a2, a3, n] - S2[a1, SP[a4, a5], a1, a3, a2, 
     n] - S2[a1, SP[a4, a5], a3, a1, a2, n] - S2[a3, a1, a1, a4, SP[a2, a5], 
     n] - S2[a3, a1, a1, a5, SP[a2, a4], n] - S2[a3, a1, a1, SP[a2, a4], a5, 
     n] - S2[a3, a1, a1, SP[a2, a5], a4, n] - S2[a3, a1, a4, a1, SP[a2, a5], 
     n] - S2[a3, a1, a4, SP[a1, a5], a2, n] - S2[a3, a1, a5, a1, SP[a2, a4], 
     n] - S2[a3, a1, a5, SP[a1, a4], a2, n] - S2[a3, a1, SP[a1, a4], a2, a5, 
     n] - S2[a3, a1, SP[a1, a4], a5, a2, n] - S2[a3, a1, SP[a1, a5], a2, a4, 
     n] - S2[a3, a1, SP[a1, a5], a4, a2, n] + 
    S2[a5, n]*S2[a3, a4, a1, a1, a2, n] - S2[a3, a5, a1, a1, SP[a2, a4], n] - 
    S2[a3, a5, a1, SP[a1, a4], a2, n] - S2[a3, a5, SP[a1, a4], a1, a2, n] - 
    S2[a3, SP[a1, a4], a1, a2, a5, n] - S2[a3, SP[a1, a4], a1, a5, a2, n] - 
    S2[a3, SP[a1, a4], a5, a1, a2, n] - S2[a3, SP[a1, a5], a1, a2, a4, n] - 
    S2[a3, SP[a1, a5], a1, a4, a2, n] - S2[a3, SP[a1, a5], a4, a1, a2, n] + 
    S2[a3, SP[a4, a5], a1, a1, a2, n] + S2[a3, n]*S2[a5, a1, a1, a2, a4, n] + 
    S2[a5, a1, a1, a2, SP[a3, a4], n] + S2[a3, n]*S2[a5, a1, a1, a4, a2, n] + 
    S2[a5, a1, a1, a4, SP[a2, a3], n] + S2[a5, a1, a1, SP[a2, a3], a4, n] + 
    S2[a5, a1, a1, SP[a3, a4], a2, n] - (S2[a1, n]*S2[a5, a1, a2, a3, a4, n])/
     2 - S2[a5, a1, a2, a3, SP[a1, a4], n]/2 - 
    S2[a5, a1, a2, SP[a1, a3], a4, n]/2 - 
    (S2[a1, n]*S2[a5, a1, a3, a2, a4, n])/2 - 
    S2[a5, a1, a3, a2, SP[a1, a4], n]/2 - 
    (S2[a1, n]*S2[a5, a1, a3, a4, a2, n])/2 - 
    S2[a5, a1, a3, a4, SP[a1, a2], n]/2 - S2[a5, a1, a3, SP[a1, a2], a4, n]/
     2 - S2[a5, a1, a3, SP[a1, a4], a2, n]/2 + 
    S2[a3, n]*S2[a5, a1, a4, a1, a2, n] + S2[a5, a1, a4, a1, SP[a2, a3], n] + 
    S2[a5, a1, a4, SP[a1, a3], a2, n] - S2[a5, a1, SP[a1, a2], a3, a4, n]/2 + 
    S2[a5, a1, SP[a1, a3], a2, a4, n]/2 + S2[a5, a1, SP[a1, a3], a4, a2, n]/
     2 + S2[a5, a1, SP[a3, a4], a1, a2, n] + 
    (S2[a1, n]*S2[a5, a2, a1, a3, a4, n])/2 + 
    S2[a5, a2, a1, a3, SP[a1, a4], n]/2 + S2[a5, a2, a1, SP[a1, a3], a4, n]/
     2 + (S2[a1, n]*S2[a5, a2, a3, a1, a4, n])/2 + 
    S2[a5, a2, a3, a1, SP[a1, a4], n]/2 + 
    (S2[a1, n]*S2[a5, a2, a3, a4, a1, n])/2 + 
    S2[a5, a2, a3, a4, SP[a1, a1], n]/2 + S2[a5, a2, a3, SP[a1, a1], a4, n]/
     2 + S2[a5, a2, a3, SP[a1, a4], a1, n]/2 + 
    S2[a5, a2, SP[a1, a1], a3, a4, n]/2 + S2[a5, a2, SP[a1, a3], a1, a4, n]/
     2 + S2[a5, a2, SP[a1, a3], a4, a1, n]/2 - 
    (S2[a1, n]*S2[a5, a3, a1, a2, a4, n])/2 - 
    S2[a5, a3, a1, a2, SP[a1, a4], n]/2 - 
    (S2[a1, n]*S2[a5, a3, a1, a4, a2, n])/2 - 
    S2[a5, a3, a1, a4, SP[a1, a2], n]/2 - S2[a5, a3, a1, SP[a1, a2], a4, n]/
     2 - S2[a5, a3, a1, SP[a1, a4], a2, n]/2 + 
    (S2[a1, n]*S2[a5, a3, a2, a1, a4, n])/2 + 
    S2[a5, a3, a2, a1, SP[a1, a4], n]/2 + 
    (S2[a1, n]*S2[a5, a3, a2, a4, a1, n])/2 + 
    S2[a5, a3, a2, a4, SP[a1, a1], n]/2 + S2[a5, a3, a2, SP[a1, a1], a4, n]/
     2 + S2[a5, a3, a2, SP[a1, a4], a1, n]/2 - 
    (S2[a1, n]*S2[a5, a3, a4, a1, a2, n])/2 - 
    S2[a5, a3, a4, a1, SP[a1, a2], n]/2 + 
    (S2[a1, n]*S2[a5, a3, a4, a2, a1, n])/2 + 
    S2[a5, a3, a4, a2, SP[a1, a1], n]/2 - S2[a5, a3, a4, SP[a1, a1], a2, n]/
     2 + S2[a5, a3, a4, SP[a1, a2], a1, n]/2 - 
    S2[a5, a3, SP[a1, a1], a2, a4, n]/2 - S2[a5, a3, SP[a1, a1], a4, a2, n]/
     2 + S2[a5, a3, SP[a1, a2], a1, a4, n]/2 + 
    S2[a5, a3, SP[a1, a2], a4, a1, n]/2 - S2[a5, a3, SP[a1, a4], a1, a2, n]/
     2 + S2[a5, a3, SP[a1, a4], a2, a1, n]/2 - 
    S2[a5, SP[a1, a1], a2, a3, a4, n]/2 - S2[a5, SP[a1, a1], a3, a2, a4, n]/
     2 - S2[a5, SP[a1, a1], a3, a4, a2, n]/2 + 
    S2[a5, SP[a1, a2], a1, a3, a4, n]/2 + S2[a5, SP[a1, a2], a3, a1, a4, n]/
     2 + S2[a5, SP[a1, a2], a3, a4, a1, n]/2 + 
    S2[a5, SP[a1, a3], a1, a2, a4, n]/2 + S2[a5, SP[a1, a3], a1, a4, a2, n]/
     2 + S2[a5, SP[a1, a3], a2, a1, a4, n]/2 + 
    S2[a5, SP[a1, a3], a2, a4, a1, n]/2 + S2[a5, SP[a1, a3], a4, a1, a2, n]/
     2 + S2[a5, SP[a1, a3], a4, a2, a1, n]/2 - 
    S2[SP[a1, a1], a5, a2, a3, a4, n]/2 - S2[SP[a1, a1], a5, a3, a2, a4, n]/
     2 - S2[SP[a1, a1], a5, a3, a4, a2, n]/2 - 
    S2[SP[a1, a5], a1, a2, a3, a4, n]/2 - S2[SP[a1, a5], a1, a2, a4, a3, n] - 
    S2[SP[a1, a5], a1, a3, a2, a4, n]/2 - S2[SP[a1, a5], a1, a3, a4, a2, n]/
     2 - S2[SP[a1, a5], a1, a4, a2, a3, n] - S2[SP[a1, a5], a1, a4, a3, a2, 
     n] + S2[SP[a1, a5], a2, a1, a3, a4, n]/2 + 
    S2[SP[a1, a5], a2, a3, a1, a4, n]/2 + S2[SP[a1, a5], a2, a3, a4, a1, n]/
     2 - S2[SP[a1, a5], a3, a1, a2, a4, n]/2 - 
    S2[SP[a1, a5], a3, a1, a4, a2, n]/2 + S2[SP[a1, a5], a3, a2, a1, a4, n]/
     2 + S2[SP[a1, a5], a3, a2, a4, a1, n]/2 - 
    S2[SP[a1, a5], a3, a4, a1, a2, n]/2 + S2[SP[a1, a5], a3, a4, a2, a1, n]/
     2 - S2[SP[a1, a5], a4, a1, a2, a3, n] - S2[SP[a1, a5], a4, a1, a3, a2, 
     n] - S2[SP[a1, a5], a4, a3, a1, a2, n] + S2[SP[a3, a5], a1, a1, a2, a4, 
     n] + S2[SP[a3, a5], a1, a1, a4, a2, n] + S2[SP[a3, a5], a1, a4, a1, a2, 
     n] + S2[SP[a3, a5], a4, a1, a1, a2, n] - S2[a5, a2, a1, a1, a3, a4, n] - 
    S2[a5, a2, a1, a3, a1, a4, n] - S2[a5, a2, a1, a3, a4, a1, n] - 
    S2[a5, a2, a3, a1, a1, a4, n] - S2[a5, a2, a3, a1, a4, a1, n] - 
    S2[a5, a2, a3, a4, a1, a1, n] - S2[a5, a3, a2, a1, a1, a4, n] - 
    S2[a5, a3, a2, a1, a4, a1, n] - S2[a5, a3, a2, a4, a1, a1, n] - 
    S2[a5, a3, a4, a2, a1, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a1_, a1_, a2_, a5_, a4_, a3_, n_] :> 
  S2[a1, a1, a2, n]*S2[a3, a4, a5, n] + S2[SP[a1, a3], SP[a1, a4], 
     SP[a2, a5], n] - S2[a1, a3, SP[a1, a4], SP[a2, a5], n] - 
    S2[a1, SP[a1, a3], a4, SP[a2, a5], n] - S2[a1, SP[a1, a3], SP[a2, a4], 
     a5, n] - S2[a3, a1, SP[a1, a4], SP[a2, a5], n] - 
    S2[a3, SP[a1, a4], a1, SP[a2, a5], n] - S2[a3, SP[a1, a4], SP[a1, a5], 
     a2, n] - S2[SP[a1, a3], a1, a4, SP[a2, a5], n] - 
    S2[SP[a1, a3], a1, SP[a2, a4], a5, n] - S2[SP[a1, a3], a4, a1, 
     SP[a2, a5], n] - S2[SP[a1, a3], a4, SP[a1, a5], a2, n] - 
    S2[SP[a1, a3], SP[a1, a4], a2, a5, n] - S2[SP[a1, a3], SP[a1, a4], a5, 
     a2, n] + S2[a5, n]*S2[a1, a1, a2, a4, a3, n] - 
    S2[a3, n]*S2[a1, a1, a2, a4, a5, n] - S2[a1, a1, a2, SP[a3, a4], a5, n] + 
    S2[a1, a1, a2, SP[a4, a5], a3, n] + S2[a1, a1, a3, a4, SP[a2, a5], n] + 
    S2[a1, a1, a3, SP[a2, a4], a5, n] + S2[a5, n]*S2[a1, a1, a4, a2, a3, n] - 
    S2[a3, n]*S2[a1, a1, a4, a2, a5, n] + 
    S2[a5, n]*S2[a1, a1, a4, a3, a2, n] + S2[a1, a1, a4, a3, SP[a2, a5], n] - 
    S2[a3, n]*S2[a1, a1, a4, a5, a2, n] - S2[a1, a1, a4, a5, SP[a2, a3], n] - 
    S2[a1, a1, a4, SP[a2, a3], a5, n] + S2[a1, a1, a4, SP[a2, a5], a3, n] + 
    S2[a1, a1, SP[a2, a5], a4, a3, n] - S2[a1, a1, SP[a3, a4], a2, a5, n] - 
    S2[a1, a1, SP[a3, a4], a5, a2, n] + S2[a1, a1, SP[a4, a5], a2, a3, n] + 
    S2[a1, a1, SP[a4, a5], a3, a2, n] + S2[a1, a3, a1, a4, SP[a2, a5], n] + 
    S2[a1, a3, a1, SP[a2, a4], a5, n] + S2[a1, a3, a4, a1, SP[a2, a5], n] + 
    S2[a1, a3, a4, SP[a1, a5], a2, n] + S2[a1, a3, SP[a1, a4], a2, a5, n] + 
    S2[a1, a3, SP[a1, a4], a5, a2, n] + S2[a5, n]*S2[a1, a4, a1, a2, a3, n] - 
    S2[a3, n]*S2[a1, a4, a1, a2, a5, n] + 
    S2[a5, n]*S2[a1, a4, a1, a3, a2, n] + S2[a1, a4, a1, a3, SP[a2, a5], n] - 
    S2[a3, n]*S2[a1, a4, a1, a5, a2, n] - S2[a1, a4, a1, a5, SP[a2, a3], n] - 
    S2[a1, a4, a1, SP[a2, a3], a5, n] + S2[a1, a4, a1, SP[a2, a5], a3, n] + 
    S2[a5, n]*S2[a1, a4, a3, a1, a2, n] + S2[a1, a4, a3, a1, SP[a2, a5], n] + 
    S2[a1, a4, a3, SP[a1, a5], a2, n] - S2[a3, n]*S2[a1, a4, a5, a1, a2, n] - 
    S2[a1, a4, a5, a1, SP[a2, a3], n] - S2[a1, a4, a5, SP[a1, a3], a2, n] - 
    S2[a1, a4, SP[a1, a3], a2, a5, n] - S2[a1, a4, SP[a1, a3], a5, a2, n] + 
    S2[a1, a4, SP[a1, a5], a2, a3, n] + S2[a1, a4, SP[a1, a5], a3, a2, n] - 
    (S2[a1, n]*S2[a1, a5, a2, a4, a3, n])/2 - 
    S2[a1, a5, a2, a4, SP[a1, a3], n]/2 - S2[a1, a5, a2, SP[a1, a4], a3, n]/
     2 - (S2[a1, n]*S2[a1, a5, a4, a2, a3, n])/2 - 
    S2[a1, a5, a4, a2, SP[a1, a3], n]/2 - 
    (S2[a1, n]*S2[a1, a5, a4, a3, a2, n])/2 - 
    S2[a1, a5, a4, a3, SP[a1, a2], n]/2 - S2[a1, a5, a4, SP[a1, a2], a3, n]/
     2 - S2[a1, a5, a4, SP[a1, a3], a2, n]/2 - 
    S2[a1, a5, SP[a1, a2], a4, a3, n]/2 - S2[a1, a5, SP[a1, a4], a2, a3, n]/
     2 - S2[a1, a5, SP[a1, a4], a3, a2, n]/2 + 
    S2[a1, SP[a1, a5], a2, a4, a3, n]/2 + S2[a1, SP[a1, a5], a4, a2, a3, n]/
     2 + S2[a1, SP[a1, a5], a4, a3, a2, n]/2 - S2[a1, SP[a3, a4], a1, a2, a5, 
     n] - S2[a1, SP[a3, a4], a1, a5, a2, n] - S2[a1, SP[a3, a4], a5, a1, a2, 
     n] + S2[a1, SP[a4, a5], a1, a2, a3, n] + S2[a1, SP[a4, a5], a1, a3, a2, 
     n] + S2[a1, SP[a4, a5], a3, a1, a2, n] + S2[a3, a1, a1, a4, SP[a2, a5], 
     n] + S2[a3, a1, a1, SP[a2, a4], a5, n] + S2[a3, a1, a4, a1, SP[a2, a5], 
     n] + S2[a3, a1, a4, SP[a1, a5], a2, n] + S2[a3, a1, SP[a1, a4], a2, a5, 
     n] + S2[a3, a1, SP[a1, a4], a5, a2, n] - 
    S2[a5, n]*S2[a3, a4, a1, a1, a2, n] + S2[a3, SP[a1, a4], a1, a2, a5, n] + 
    S2[a3, SP[a1, a4], a1, a5, a2, n] + S2[a3, SP[a1, a4], a5, a1, a2, n] - 
    S2[a3, SP[a4, a5], a1, a1, a2, n] - (S2[a1, n]*S2[a5, a1, a2, a4, a3, n])/
     2 - S2[a5, a1, a2, a4, SP[a1, a3], n]/2 - 
    S2[a5, a1, a2, SP[a1, a4], a3, n]/2 - 
    (S2[a1, n]*S2[a5, a1, a4, a2, a3, n])/2 - 
    S2[a5, a1, a4, a2, SP[a1, a3], n]/2 - 
    (S2[a1, n]*S2[a5, a1, a4, a3, a2, n])/2 - 
    S2[a5, a1, a4, a3, SP[a1, a2], n]/2 - S2[a5, a1, a4, SP[a1, a2], a3, n]/
     2 - S2[a5, a1, a4, SP[a1, a3], a2, n]/2 - 
    S2[a5, a1, SP[a1, a2], a4, a3, n]/2 - S2[a5, a1, SP[a1, a4], a2, a3, n]/
     2 - S2[a5, a1, SP[a1, a4], a3, a2, n]/2 + 
    (S2[a1, n]*S2[a5, a2, a1, a4, a3, n])/2 + 
    S2[a5, a2, a1, a4, SP[a1, a3], n]/2 + S2[a5, a2, a1, SP[a1, a4], a3, n]/
     2 + (S2[a1, n]*S2[a5, a2, a4, a1, a3, n])/2 + 
    S2[a5, a2, a4, a1, SP[a1, a3], n]/2 + 
    (S2[a1, n]*S2[a5, a2, a4, a3, a1, n])/2 + 
    S2[a5, a2, a4, a3, SP[a1, a1], n]/2 + S2[a5, a2, a4, SP[a1, a1], a3, n]/
     2 + S2[a5, a2, a4, SP[a1, a3], a1, n]/2 + 
    S2[a5, a2, SP[a1, a1], a4, a3, n]/2 + S2[a5, a2, SP[a1, a4], a1, a3, n]/
     2 + S2[a5, a2, SP[a1, a4], a3, a1, n]/2 + 
    S2[a3, n]*S2[a5, a4, a1, a1, a2, n] + S2[a5, a4, a1, a1, SP[a2, a3], n] - 
    (S2[a1, n]*S2[a5, a4, a1, a2, a3, n])/2 - 
    S2[a5, a4, a1, a2, SP[a1, a3], n]/2 - 
    (S2[a1, n]*S2[a5, a4, a1, a3, a2, n])/2 - 
    S2[a5, a4, a1, a3, SP[a1, a2], n]/2 - S2[a5, a4, a1, SP[a1, a2], a3, n]/
     2 + S2[a5, a4, a1, SP[a1, a3], a2, n]/2 + 
    (S2[a1, n]*S2[a5, a4, a2, a1, a3, n])/2 + 
    S2[a5, a4, a2, a1, SP[a1, a3], n]/2 + 
    (S2[a1, n]*S2[a5, a4, a2, a3, a1, n])/2 + 
    S2[a5, a4, a2, a3, SP[a1, a1], n]/2 + S2[a5, a4, a2, SP[a1, a1], a3, n]/
     2 + S2[a5, a4, a2, SP[a1, a3], a1, n]/2 - 
    (S2[a1, n]*S2[a5, a4, a3, a1, a2, n])/2 - 
    S2[a5, a4, a3, a1, SP[a1, a2], n]/2 + 
    (S2[a1, n]*S2[a5, a4, a3, a2, a1, n])/2 + 
    S2[a5, a4, a3, a2, SP[a1, a1], n]/2 - S2[a5, a4, a3, SP[a1, a1], a2, n]/
     2 + S2[a5, a4, a3, SP[a1, a2], a1, n]/2 - 
    S2[a5, a4, SP[a1, a1], a2, a3, n]/2 - S2[a5, a4, SP[a1, a1], a3, a2, n]/
     2 + S2[a5, a4, SP[a1, a2], a1, a3, n]/2 + 
    S2[a5, a4, SP[a1, a2], a3, a1, n]/2 + S2[a5, a4, SP[a1, a3], a1, a2, n]/
     2 + S2[a5, a4, SP[a1, a3], a2, a1, n]/2 - 
    S2[a5, SP[a1, a1], a2, a4, a3, n]/2 - S2[a5, SP[a1, a1], a4, a2, a3, n]/
     2 - S2[a5, SP[a1, a1], a4, a3, a2, n]/2 + 
    S2[a5, SP[a1, a2], a1, a4, a3, n]/2 + S2[a5, SP[a1, a2], a4, a1, a3, n]/
     2 + S2[a5, SP[a1, a2], a4, a3, a1, n]/2 - 
    S2[a5, SP[a1, a4], a1, a2, a3, n]/2 - S2[a5, SP[a1, a4], a1, a3, a2, n]/
     2 + S2[a5, SP[a1, a4], a2, a1, a3, n]/2 + 
    S2[a5, SP[a1, a4], a2, a3, a1, n]/2 - S2[a5, SP[a1, a4], a3, a1, a2, n]/
     2 + S2[a5, SP[a1, a4], a3, a2, a1, n]/2 + S2[a5, SP[a3, a4], a1, a1, a2, 
     n] - S2[SP[a1, a1], a5, a2, a4, a3, n]/2 - 
    S2[SP[a1, a1], a5, a4, a2, a3, n]/2 - S2[SP[a1, a1], a5, a4, a3, a2, n]/
     2 + S2[SP[a1, a5], a1, a2, a4, a3, n]/2 + 
    S2[SP[a1, a5], a1, a4, a2, a3, n]/2 + S2[SP[a1, a5], a1, a4, a3, a2, n]/
     2 + S2[SP[a1, a5], a2, a1, a4, a3, n]/2 + 
    S2[SP[a1, a5], a2, a4, a1, a3, n]/2 + S2[SP[a1, a5], a2, a4, a3, a1, n]/
     2 + S2[SP[a1, a5], a4, a1, a2, a3, n]/2 + 
    S2[SP[a1, a5], a4, a1, a3, a2, n]/2 + S2[SP[a1, a5], a4, a2, a1, a3, n]/
     2 + S2[SP[a1, a5], a4, a2, a3, a1, n]/2 + 
    S2[SP[a1, a5], a4, a3, a1, a2, n]/2 + S2[SP[a1, a5], a4, a3, a2, a1, n]/
     2 - S2[a5, a2, a1, a1, a4, a3, n] - S2[a5, a2, a1, a4, a1, a3, n] - 
    S2[a5, a2, a1, a4, a3, a1, n] - S2[a5, a2, a4, a1, a1, a3, n] - 
    S2[a5, a2, a4, a1, a3, a1, n] - S2[a5, a2, a4, a3, a1, a1, n] - 
    S2[a5, a4, a2, a1, a1, a3, n] - S2[a5, a4, a2, a1, a3, a1, n] - 
    S2[a5, a4, a2, a3, a1, a1, n] - S2[a5, a4, a3, a2, a1, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a1_, a1_, a3_, a2_, a4_, a5_, n_] :> 
  S2[a1, a1, a3, n]*S2[a2, a4, a5, n] + S2[SP[a1, a2], SP[a1, a4], 
     SP[a3, a5], n] + S2[a4, a5, n]*S2[a1, a1, a3, a2, n] - 
    S2[a1, a1, SP[a3, a4], SP[a2, a5], n] - S2[a1, a2, SP[a1, a4], 
     SP[a3, a5], n] - S2[a1, SP[a1, a2], a4, SP[a3, a5], n] - 
    S2[a1, SP[a1, a2], SP[a3, a4], a5, n] - S2[a1, SP[a1, a4], a3, 
     SP[a2, a5], n] - S2[a1, SP[a1, a4], SP[a3, a5], a2, n] - 
    S2[a2, a1, SP[a1, a4], SP[a3, a5], n] - S2[a2, SP[a1, a4], a1, 
     SP[a3, a5], n] - S2[a2, SP[a1, a4], SP[a1, a5], a3, n] - 
    S2[SP[a1, a2], a1, a4, SP[a3, a5], n] - S2[SP[a1, a2], a1, SP[a3, a4], 
     a5, n] - S2[SP[a1, a2], a4, a1, SP[a3, a5], n] - 
    S2[SP[a1, a2], a4, SP[a1, a5], a3, n] - S2[SP[a1, a2], SP[a1, a4], a3, 
     a5, n] - S2[SP[a1, a2], SP[a1, a4], a5, a3, n] - 
    S2[SP[a1, a4], a1, a3, SP[a2, a5], n] - S2[SP[a1, a4], a1, SP[a3, a5], 
     a2, n] - S2[SP[a1, a4], SP[a1, a5], a3, a2, n] + 
    S2[a1, a1, a2, a4, SP[a3, a5], n] + S2[a1, a1, a2, SP[a3, a4], a5, n] + 
    S2[a5, n]*S2[a1, a1, a3, a2, a4, n] - 
    S2[a4, n]*S2[a1, a1, a3, a2, a5, n] + 
    S2[a5, n]*S2[a1, a1, a3, a4, a2, n] - 
    S2[a2, n]*S2[a1, a1, a3, a4, a5, n] + S2[a1, a1, a3, a4, SP[a2, a5], n] - 
    S2[a4, n]*S2[a1, a1, a3, a5, a2, n] - S2[a1, a1, a3, a5, SP[a2, a4], n] - 
    S2[a1, a1, a3, SP[a2, a4], a5, n] + S2[a1, a1, a3, SP[a2, a5], a4, n] + 
    S2[a5, n]*S2[a1, a1, a4, a2, a3, n] + S2[a1, a1, a4, a2, SP[a3, a5], n] + 
    S2[a5, n]*S2[a1, a1, a4, a3, a2, n] - 
    S2[a2, n]*S2[a1, a1, a4, a3, a5, n] + S2[a1, a1, a4, a3, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a1, a4, a5, a3, n] - S2[a1, a1, a4, a5, SP[a2, a3], n] - 
    S2[a1, a1, a4, SP[a2, a3], a5, n] + 2*S2[a1, a1, a4, SP[a3, a5], a2, n] - 
    S2[a4, n]*S2[a1, a1, a5, a3, a2, n] - S2[a1, a1, a5, a3, SP[a2, a4], n] - 
    S2[a1, a1, a5, SP[a3, a4], a2, n] - S2[a1, a1, SP[a2, a4], a3, a5, n] - 
    S2[a1, a1, SP[a2, a4], a5, a3, n] + S2[a1, a1, SP[a3, a5], a2, a4, n] + 
    S2[a1, a1, SP[a3, a5], a4, a2, n] + S2[a1, a1, SP[a4, a5], a2, a3, n] + 
    S2[a1, a2, a1, a4, SP[a3, a5], n] + S2[a1, a2, a1, SP[a3, a4], a5, n] + 
    S2[a1, a2, a4, a1, SP[a3, a5], n] + S2[a1, a2, a4, SP[a1, a5], a3, n] + 
    S2[a1, a2, SP[a1, a4], a3, a5, n] + S2[a1, a2, SP[a1, a4], a5, a3, n] + 
    S2[a5, n]*S2[a1, a4, a1, a2, a3, n] + S2[a1, a4, a1, a2, SP[a3, a5], n] + 
    S2[a5, n]*S2[a1, a4, a1, a3, a2, n] - 
    S2[a2, n]*S2[a1, a4, a1, a3, a5, n] + S2[a1, a4, a1, a3, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a4, a1, a5, a3, n] - S2[a1, a4, a1, a5, SP[a2, a3], n] - 
    S2[a1, a4, a1, SP[a2, a3], a5, n] + 2*S2[a1, a4, a1, SP[a3, a5], a2, n] + 
    S2[a5, n]*S2[a1, a4, a2, a1, a3, n] + S2[a1, a4, a2, a1, SP[a3, a5], n] + 
    S2[a1, a4, a2, SP[a1, a5], a3, n] - S2[a2, n]*S2[a1, a4, a5, a1, a3, n] - 
    S2[a1, a4, a5, a1, SP[a2, a3], n] - S2[a1, a4, a5, SP[a1, a2], a3, n] - 
    S2[a1, a4, SP[a1, a2], a3, a5, n] - S2[a1, a4, SP[a1, a2], a5, a3, n] + 
    S2[a1, a4, SP[a1, a5], a2, a3, n] + 2*S2[a1, a4, SP[a1, a5], a3, a2, n] - 
    S2[a4, n]*S2[a1, a5, a1, a3, a2, n] - S2[a1, a5, a1, a3, SP[a2, a4], n] - 
    S2[a1, a5, a1, SP[a3, a4], a2, n] - (S2[a1, n]*S2[a1, a5, a4, a2, a3, n])/
     2 - S2[a1, a5, a4, a2, SP[a1, a3], n]/2 - 
    S2[a1, a5, a4, SP[a1, a2], a3, n]/2 - S2[a1, a5, SP[a1, a4], a2, a3, n]/
     2 - S2[a1, a5, SP[a1, a4], a3, a2, n] + S2[a1, SP[a1, a5], a3, a2, a4, 
     n] + S2[a1, SP[a1, a5], a3, a4, a2, n] + 
    S2[a1, SP[a1, a5], a4, a2, a3, n]/2 + S2[a1, SP[a1, a5], a4, a3, a2, n] - 
    S2[a1, SP[a2, a4], a1, a3, a5, n] - S2[a1, SP[a2, a4], a1, a5, a3, n] - 
    S2[a1, SP[a2, a4], a5, a1, a3, n] + S2[a1, SP[a4, a5], a1, a2, a3, n] + 
    S2[a1, SP[a4, a5], a2, a1, a3, n] + S2[a2, a1, a1, a4, SP[a3, a5], n] + 
    S2[a2, a1, a1, SP[a3, a4], a5, n] + S2[a2, a1, a4, a1, SP[a3, a5], n] + 
    S2[a2, a1, a4, SP[a1, a5], a3, n] + S2[a2, a1, SP[a1, a4], a3, a5, n] + 
    S2[a2, a1, SP[a1, a4], a5, a3, n] - S2[a5, n]*S2[a2, a4, a1, a1, a3, n] + 
    S2[a2, SP[a1, a4], a1, a3, a5, n] + S2[a2, SP[a1, a4], a1, a5, a3, n] + 
    S2[a2, SP[a1, a4], a5, a1, a3, n] - S2[a2, SP[a4, a5], a1, a1, a3, n] + 
    S2[a4, a1, a1, a3, SP[a2, a5], n] + S2[a4, a1, a1, SP[a3, a5], a2, n] + 
    S2[a4, a1, SP[a1, a5], a3, a2, n] + S2[a4, SP[a1, a5], a1, a3, a2, n] - 
    S2[a4, n]*S2[a5, a1, a1, a3, a2, n] - S2[a5, a1, a1, a3, SP[a2, a4], n] - 
    S2[a5, a1, a1, SP[a3, a4], a2, n] - (S2[a1, n]*S2[a5, a1, a4, a2, a3, n])/
     2 - S2[a5, a1, a4, a2, SP[a1, a3], n]/2 - 
    S2[a5, a1, a4, SP[a1, a2], a3, n]/2 - S2[a5, a1, SP[a1, a4], a2, a3, n]/
     2 - S2[a5, a1, SP[a1, a4], a3, a2, n] + 
    S2[a2, n]*S2[a5, a4, a1, a1, a3, n] + S2[a5, a4, a1, a1, SP[a2, a3], n] - 
    (S2[a1, n]*S2[a5, a4, a1, a2, a3, n])/2 - 
    S2[a5, a4, a1, a2, SP[a1, a3], n]/2 + S2[a5, a4, a1, SP[a1, a2], a3, n]/
     2 - (S2[a1, n]*S2[a5, a4, a2, a1, a3, n])/2 - 
    S2[a5, a4, a2, a1, SP[a1, a3], n]/2 + 
    (S2[a1, n]*S2[a5, a4, a2, a3, a1, n])/2 + 
    S2[a5, a4, a2, a3, SP[a1, a1], n]/2 - S2[a5, a4, a2, SP[a1, a1], a3, n]/
     2 + S2[a5, a4, a2, SP[a1, a3], a1, n]/2 - 
    S2[a5, a4, SP[a1, a1], a2, a3, n]/2 + S2[a5, a4, SP[a1, a2], a1, a3, n]/
     2 + S2[a5, a4, SP[a1, a2], a3, a1, n]/2 - 
    S2[a5, SP[a1, a1], a4, a2, a3, n]/2 - S2[a5, SP[a1, a4], a1, a2, a3, n]/
     2 - S2[a5, SP[a1, a4], a1, a3, a2, n] - 
    S2[a5, SP[a1, a4], a2, a1, a3, n]/2 + S2[a5, SP[a1, a4], a2, a3, a1, n]/
     2 + S2[a5, SP[a2, a4], a1, a1, a3, n] - 
    S2[SP[a1, a1], a5, a4, a2, a3, n]/2 + S2[SP[a1, a5], a1, a3, a2, a4, n] + 
    S2[SP[a1, a5], a1, a3, a4, a2, n] + S2[SP[a1, a5], a1, a4, a2, a3, n]/2 + 
    S2[SP[a1, a5], a1, a4, a3, a2, n] + S2[SP[a1, a5], a4, a1, a2, a3, n]/2 + 
    S2[SP[a1, a5], a4, a1, a3, a2, n] + S2[SP[a1, a5], a4, a2, a1, a3, n]/2 + 
    S2[SP[a1, a5], a4, a2, a3, a1, n]/2 - S2[SP[a4, a5], a1, a1, a3, a2, n] - 
    S2[a5, a4, a2, a3, a1, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a1_, a1_, a3_, a2_, a5_, a4_, n_] :> 
  S2[a1, a1, a3, n]*S2[a2, a5, a4, n] + S2[SP[a1, a2], SP[a1, a5], 
     SP[a3, a4], n] - S2[a4, a5, n]*S2[a1, a1, a3, a2, n] + 
    S2[a1, a1, SP[a3, a4], SP[a2, a5], n] - S2[a1, a2, SP[a1, a5], 
     SP[a3, a4], n] - S2[a1, SP[a1, a2], a5, SP[a3, a4], n] - 
    S2[a1, SP[a1, a2], SP[a3, a5], a4, n] + S2[a1, SP[a1, a4], a3, 
     SP[a2, a5], n] + S2[a1, SP[a1, a4], SP[a3, a5], a2, n] - 
    S2[a2, a1, SP[a1, a5], SP[a3, a4], n] - S2[a2, SP[a1, a5], a1, 
     SP[a3, a4], n] - S2[a2, SP[a1, a5], SP[a1, a4], a3, n] - 
    S2[SP[a1, a2], a1, a5, SP[a3, a4], n] - S2[SP[a1, a2], a1, SP[a3, a5], 
     a4, n] - S2[SP[a1, a2], a5, a1, SP[a3, a4], n] - 
    S2[SP[a1, a2], a5, SP[a1, a4], a3, n] - S2[SP[a1, a2], SP[a1, a5], a3, 
     a4, n] - S2[SP[a1, a2], SP[a1, a5], a4, a3, n] + 
    S2[SP[a1, a4], a1, a3, SP[a2, a5], n] + S2[SP[a1, a4], a1, SP[a3, a5], 
     a2, n] + S2[SP[a1, a4], SP[a1, a5], a3, a2, n] + 
    S2[a1, a1, a2, a5, SP[a3, a4], n] + S2[a1, a1, a2, SP[a3, a5], a4, n] + 
    S2[a4, n]*S2[a1, a1, a3, a2, a5, n] + S2[a1, a1, a3, a2, SP[a4, a5], n] - 
    S2[a1, a1, a3, a4, SP[a2, a5], n] + S2[a4, n]*S2[a1, a1, a3, a5, a2, n] - 
    S2[a2, n]*S2[a1, a1, a3, a5, a4, n] - S2[a1, a1, a3, SP[a2, a5], a4, n] + 
    S2[a1, a1, a3, SP[a4, a5], a2, n] - S2[a1, a1, a4, a3, SP[a2, a5], n] - 
    S2[a1, a1, a4, SP[a3, a5], a2, n] + S2[a4, n]*S2[a1, a1, a5, a3, a2, n] - 
    S2[a2, n]*S2[a1, a1, a5, a3, a4, n] - 
    S2[a2, n]*S2[a1, a1, a5, a4, a3, n] - S2[a1, a1, a5, a4, SP[a2, a3], n] - 
    S2[a1, a1, a5, SP[a2, a3], a4, n] - S2[a1, a1, a5, SP[a2, a4], a3, n] + 
    S2[a1, a1, a5, SP[a3, a4], a2, n] - S2[a1, a1, SP[a2, a5], a3, a4, n] - 
    S2[a1, a1, SP[a2, a5], a4, a3, n] + S2[a1, a1, SP[a4, a5], a3, a2, n] + 
    S2[a1, a2, a1, a5, SP[a3, a4], n] + S2[a1, a2, a1, SP[a3, a5], a4, n] + 
    S2[a1, a2, a5, a1, SP[a3, a4], n] + S2[a1, a2, a5, SP[a1, a4], a3, n] + 
    S2[a1, a2, SP[a1, a5], a3, a4, n] + S2[a1, a2, SP[a1, a5], a4, a3, n] - 
    S2[a1, a4, a1, a3, SP[a2, a5], n] - S2[a1, a4, a1, SP[a3, a5], a2, n] - 
    S2[a1, a4, SP[a1, a5], a3, a2, n] + S2[a4, n]*S2[a1, a5, a1, a3, a2, n] - 
    S2[a2, n]*S2[a1, a5, a1, a3, a4, n] - 
    S2[a2, n]*S2[a1, a5, a1, a4, a3, n] - S2[a1, a5, a1, a4, SP[a2, a3], n] - 
    S2[a1, a5, a1, SP[a2, a3], a4, n] - S2[a1, a5, a1, SP[a2, a4], a3, n] + 
    S2[a1, a5, a1, SP[a3, a4], a2, n] + (S2[a1, n]*S2[a1, a5, a2, a3, a4, n])/
     2 + S2[a1, a5, a2, a3, SP[a1, a4], n]/2 + 
    (S2[a1, n]*S2[a1, a5, a2, a4, a3, n])/2 + 
    S2[a1, a5, a2, a4, SP[a1, a3], n]/2 + S2[a1, a5, a2, SP[a1, a3], a4, n]/
     2 + S2[a1, a5, a2, SP[a1, a4], a3, n]/2 - 
    S2[a2, n]*S2[a1, a5, a4, a1, a3, n] - S2[a1, a5, a4, a1, SP[a2, a3], n] + 
    (S2[a1, n]*S2[a1, a5, a4, a2, a3, n])/2 + 
    S2[a1, a5, a4, a2, SP[a1, a3], n]/2 - S2[a1, a5, a4, SP[a1, a2], a3, n]/
     2 - S2[a1, a5, SP[a1, a2], a3, a4, n]/2 - 
    S2[a1, a5, SP[a1, a2], a4, a3, n]/2 + S2[a1, a5, SP[a1, a4], a2, a3, n]/
     2 + S2[a1, a5, SP[a1, a4], a3, a2, n] - S2[a1, a5, SP[a2, a4], a1, a3, 
     n] + S2[a1, SP[a1, a5], a2, a3, a4, n]/2 + 
    S2[a1, SP[a1, a5], a2, a4, a3, n]/2 + S2[a1, SP[a1, a5], a4, a2, a3, n]/
     2 - S2[a1, SP[a2, a5], a1, a3, a4, n] - S2[a1, SP[a2, a5], a1, a4, a3, 
     n] - S2[a1, SP[a2, a5], a4, a1, a3, n] + S2[a1, SP[a4, a5], a1, a3, a2, 
     n] + S2[a2, a1, a1, a5, SP[a3, a4], n] + S2[a2, a1, a1, SP[a3, a5], a4, 
     n] + S2[a2, a1, a5, a1, SP[a3, a4], n] + S2[a2, a1, a5, SP[a1, a4], a3, 
     n] + S2[a2, a1, SP[a1, a5], a3, a4, n] + S2[a2, a1, SP[a1, a5], a4, a3, 
     n] + S2[a2, a5, a1, a1, SP[a3, a4], n] + S2[a2, a5, a1, SP[a1, a4], a3, 
     n] + S2[a2, a5, SP[a1, a4], a1, a3, n] + S2[a2, SP[a1, a5], a1, a3, a4, 
     n] + S2[a2, SP[a1, a5], a1, a4, a3, n] + S2[a2, SP[a1, a5], a4, a1, a3, 
     n] - S2[a4, a1, a1, a3, SP[a2, a5], n] - S2[a4, a1, a1, SP[a3, a5], a2, 
     n] - S2[a4, a1, SP[a1, a5], a3, a2, n] - S2[a4, SP[a1, a5], a1, a3, a2, 
     n] + S2[a4, n]*S2[a5, a1, a1, a3, a2, n] - 
    S2[a2, n]*S2[a5, a1, a1, a3, a4, n] - 
    S2[a2, n]*S2[a5, a1, a1, a4, a3, n] - S2[a5, a1, a1, a4, SP[a2, a3], n] - 
    S2[a5, a1, a1, SP[a2, a3], a4, n] - S2[a5, a1, a1, SP[a2, a4], a3, n] + 
    S2[a5, a1, a1, SP[a3, a4], a2, n] + (S2[a1, n]*S2[a5, a1, a2, a3, a4, n])/
     2 + S2[a5, a1, a2, a3, SP[a1, a4], n]/2 + 
    (S2[a1, n]*S2[a5, a1, a2, a4, a3, n])/2 + 
    S2[a5, a1, a2, a4, SP[a1, a3], n]/2 + S2[a5, a1, a2, SP[a1, a3], a4, n]/
     2 + S2[a5, a1, a2, SP[a1, a4], a3, n]/2 - 
    S2[a2, n]*S2[a5, a1, a4, a1, a3, n] - S2[a5, a1, a4, a1, SP[a2, a3], n] + 
    (S2[a1, n]*S2[a5, a1, a4, a2, a3, n])/2 + 
    S2[a5, a1, a4, a2, SP[a1, a3], n]/2 - S2[a5, a1, a4, SP[a1, a2], a3, n]/
     2 - S2[a5, a1, SP[a1, a2], a3, a4, n]/2 - 
    S2[a5, a1, SP[a1, a2], a4, a3, n]/2 + S2[a5, a1, SP[a1, a4], a2, a3, n]/
     2 + S2[a5, a1, SP[a1, a4], a3, a2, n] - S2[a5, a1, SP[a2, a4], a1, a3, 
     n] + (S2[a1, n]*S2[a5, a2, a1, a3, a4, n])/2 + 
    S2[a5, a2, a1, a3, SP[a1, a4], n]/2 + 
    (S2[a1, n]*S2[a5, a2, a1, a4, a3, n])/2 + 
    S2[a5, a2, a1, a4, SP[a1, a3], n]/2 + S2[a5, a2, a1, SP[a1, a3], a4, n]/
     2 + S2[a5, a2, a1, SP[a1, a4], a3, n]/2 - 
    (S2[a1, n]*S2[a5, a2, a3, a1, a4, n])/2 - 
    S2[a5, a2, a3, a1, SP[a1, a4], n]/2 - 
    (S2[a1, n]*S2[a5, a2, a3, a4, a1, n])/2 - 
    S2[a5, a2, a3, a4, SP[a1, a1], n]/2 - S2[a5, a2, a3, SP[a1, a1], a4, n]/
     2 - S2[a5, a2, a3, SP[a1, a4], a1, n]/2 + 
    (S2[a1, n]*S2[a5, a2, a4, a1, a3, n])/2 + 
    S2[a5, a2, a4, a1, SP[a1, a3], n]/2 - 
    (S2[a1, n]*S2[a5, a2, a4, a3, a1, n])/2 - 
    S2[a5, a2, a4, a3, SP[a1, a1], n]/2 + S2[a5, a2, a4, SP[a1, a1], a3, n]/
     2 - S2[a5, a2, a4, SP[a1, a3], a1, n]/2 + 
    S2[a5, a2, SP[a1, a1], a3, a4, n]/2 + S2[a5, a2, SP[a1, a1], a4, a3, n]/
     2 - S2[a5, a2, SP[a1, a3], a1, a4, n]/2 - 
    S2[a5, a2, SP[a1, a3], a4, a1, n]/2 + S2[a5, a2, SP[a1, a4], a1, a3, n]/
     2 - S2[a5, a2, SP[a1, a4], a3, a1, n]/2 - 
    S2[a2, n]*S2[a5, a4, a1, a1, a3, n] - S2[a5, a4, a1, a1, SP[a2, a3], n] + 
    (S2[a1, n]*S2[a5, a4, a1, a2, a3, n])/2 + 
    S2[a5, a4, a1, a2, SP[a1, a3], n]/2 - S2[a5, a4, a1, SP[a1, a2], a3, n]/
     2 + (S2[a1, n]*S2[a5, a4, a2, a1, a3, n])/2 + 
    S2[a5, a4, a2, a1, SP[a1, a3], n]/2 - 
    (S2[a1, n]*S2[a5, a4, a2, a3, a1, n])/2 - 
    S2[a5, a4, a2, a3, SP[a1, a1], n]/2 + S2[a5, a4, a2, SP[a1, a1], a3, n]/
     2 - S2[a5, a4, a2, SP[a1, a3], a1, n]/2 + 
    S2[a5, a4, SP[a1, a1], a2, a3, n]/2 - S2[a5, a4, SP[a1, a2], a1, a3, n]/
     2 - S2[a5, a4, SP[a1, a2], a3, a1, n]/2 + 
    S2[a5, SP[a1, a1], a2, a3, a4, n]/2 + S2[a5, SP[a1, a1], a2, a4, a3, n]/
     2 + S2[a5, SP[a1, a1], a4, a2, a3, n]/2 - 
    S2[a5, SP[a1, a2], a1, a3, a4, n]/2 - S2[a5, SP[a1, a2], a1, a4, a3, n]/
     2 - S2[a5, SP[a1, a2], a3, a1, a4, n]/2 - 
    S2[a5, SP[a1, a2], a3, a4, a1, n]/2 - S2[a5, SP[a1, a2], a4, a1, a3, n]/
     2 - S2[a5, SP[a1, a2], a4, a3, a1, n]/2 + 
    S2[a5, SP[a1, a4], a1, a2, a3, n]/2 + S2[a5, SP[a1, a4], a1, a3, a2, n] + 
    S2[a5, SP[a1, a4], a2, a1, a3, n]/2 - S2[a5, SP[a1, a4], a2, a3, a1, n]/
     2 - S2[a5, SP[a2, a4], a1, a1, a3, n] + 
    S2[SP[a1, a1], a5, a2, a3, a4, n]/2 + S2[SP[a1, a1], a5, a2, a4, a3, n]/
     2 + S2[SP[a1, a1], a5, a4, a2, a3, n]/2 + 
    S2[SP[a1, a5], a1, a2, a3, a4, n]/2 + S2[SP[a1, a5], a1, a2, a4, a3, n]/
     2 + S2[SP[a1, a5], a1, a4, a2, a3, n]/2 + 
    S2[SP[a1, a5], a2, a1, a3, a4, n]/2 + S2[SP[a1, a5], a2, a1, a4, a3, n]/
     2 - S2[SP[a1, a5], a2, a3, a1, a4, n]/2 - 
    S2[SP[a1, a5], a2, a3, a4, a1, n]/2 + S2[SP[a1, a5], a2, a4, a1, a3, n]/
     2 - S2[SP[a1, a5], a2, a4, a3, a1, n]/2 + 
    S2[SP[a1, a5], a4, a1, a2, a3, n]/2 + S2[SP[a1, a5], a4, a2, a1, a3, n]/
     2 - S2[SP[a1, a5], a4, a2, a3, a1, n]/2 - S2[SP[a2, a5], a1, a1, a3, a4, 
     n] - S2[SP[a2, a5], a1, a1, a4, a3, n] - S2[SP[a2, a5], a1, a4, a1, a3, 
     n] - S2[SP[a2, a5], a4, a1, a1, a3, n] + S2[SP[a4, a5], a1, a1, a3, a2, 
     n] + S2[a5, a2, a3, a1, a1, a4, n] + S2[a5, a2, a3, a1, a4, a1, n] + 
    S2[a5, a2, a3, a4, a1, a1, n] + S2[a5, a2, a4, a3, a1, a1, n] + 
    S2[a5, a4, a2, a3, a1, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a1_, a1_, a3_, a4_, a2_, a5_, n_] :> 
  -(S2[a1, a1, a3, n]*S2[a2, a4, a5, n]) - S2[a1, a1, a3, n]*
     S2[a2, a5, a4, n] - S2[SP[a1, a2], SP[a1, a4], SP[a3, a5], n] - 
    S2[SP[a1, a2], SP[a1, a5], SP[a3, a4], n] + 
    S2[a2, a5, n]*S2[a1, a1, a3, a4, n] - S2[a1, a1, SP[a2, a3], SP[a4, a5], 
     n] + S2[a1, a2, SP[a1, a4], SP[a3, a5], n] + S2[a1, a2, SP[a1, a5], 
     SP[a3, a4], n] - S2[a1, SP[a1, a2], a3, SP[a4, a5], n] + 
    S2[a1, SP[a1, a2], a4, SP[a3, a5], n] + S2[a1, SP[a1, a2], a5, 
     SP[a3, a4], n] + S2[a1, SP[a1, a2], SP[a3, a4], a5, n] + 
    S2[a2, a1, SP[a1, a4], SP[a3, a5], n] + S2[a2, a1, SP[a1, a5], 
     SP[a3, a4], n] + S2[a2, SP[a1, a4], a1, SP[a3, a5], n] + 
    S2[a2, SP[a1, a4], SP[a1, a5], a3, n] + S2[a2, SP[a1, a5], a1, 
     SP[a3, a4], n] + S2[a2, SP[a1, a5], SP[a1, a4], a3, n] - 
    S2[SP[a1, a2], a1, a3, SP[a4, a5], n] + S2[SP[a1, a2], a1, a4, 
     SP[a3, a5], n] + S2[SP[a1, a2], a1, a5, SP[a3, a4], n] + 
    S2[SP[a1, a2], a1, SP[a3, a4], a5, n] + S2[SP[a1, a2], a4, a1, 
     SP[a3, a5], n] + S2[SP[a1, a2], a4, SP[a1, a5], a3, n] + 
    S2[SP[a1, a2], a5, a1, SP[a3, a4], n] + S2[SP[a1, a2], a5, SP[a1, a4], 
     a3, n] + S2[SP[a1, a2], SP[a1, a4], a3, a5, n] + 
    S2[SP[a1, a2], SP[a1, a4], a5, a3, n] + S2[SP[a1, a2], SP[a1, a5], a4, 
     a3, n] + S2[a1, a1, a2, a3, SP[a4, a5], n] - 
    S2[a1, a1, a2, a4, SP[a3, a5], n] - S2[a1, a1, a2, a5, SP[a3, a4], n] - 
    S2[a1, a1, a2, SP[a3, a4], a5, n] + S2[a1, a1, a3, a2, SP[a4, a5], n] + 
    S2[a1, a1, a3, SP[a2, a4], a5, n] - S2[a5, n]*S2[a1, a1, a4, a2, a3, n] - 
    S2[a1, a1, a4, a2, SP[a3, a5], n] - S2[a5, n]*S2[a1, a1, a4, a3, a2, n] + 
    S2[a2, n]*S2[a1, a1, a4, a3, a5, n] + 
    S2[a2, n]*S2[a1, a1, a4, a5, a3, n] + S2[a1, a1, a4, a5, SP[a2, a3], n] + 
    S2[a1, a1, a4, SP[a2, a3], a5, n] - S2[a1, a1, a4, SP[a3, a5], a2, n] + 
    S2[a2, n]*S2[a1, a1, a5, a4, a3, n] + S2[a1, a1, a5, a4, SP[a2, a3], n] + 
    S2[a1, a1, a5, SP[a2, a4], a3, n] + S2[a1, a1, SP[a2, a4], a3, a5, n] + 
    S2[a1, a1, SP[a2, a4], a5, a3, n] + S2[a1, a1, SP[a2, a5], a4, a3, n] - 
    S2[a1, a1, SP[a4, a5], a2, a3, n] - S2[a1, a1, SP[a4, a5], a3, a2, n] + 
    S2[a1, a2, a1, a3, SP[a4, a5], n] - S2[a1, a2, a1, a4, SP[a3, a5], n] - 
    S2[a1, a2, a1, a5, SP[a3, a4], n] - S2[a1, a2, a1, SP[a3, a4], a5, n] - 
    S2[a1, a2, a4, a1, SP[a3, a5], n] - S2[a1, a2, a4, SP[a1, a5], a3, n] - 
    S2[a1, a2, a5, a1, SP[a3, a4], n] - S2[a1, a2, a5, SP[a1, a4], a3, n] - 
    S2[a1, a2, SP[a1, a4], a3, a5, n] - S2[a1, a2, SP[a1, a4], a5, a3, n] - 
    S2[a1, a2, SP[a1, a5], a4, a3, n] - S2[a5, n]*S2[a1, a4, a1, a2, a3, n] - 
    S2[a1, a4, a1, a2, SP[a3, a5], n] - S2[a5, n]*S2[a1, a4, a1, a3, a2, n] + 
    S2[a2, n]*S2[a1, a4, a1, a3, a5, n] + 
    S2[a2, n]*S2[a1, a4, a1, a5, a3, n] + S2[a1, a4, a1, a5, SP[a2, a3], n] + 
    S2[a1, a4, a1, SP[a2, a3], a5, n] - S2[a1, a4, a1, SP[a3, a5], a2, n] - 
    S2[a5, n]*S2[a1, a4, a2, a1, a3, n] - S2[a1, a4, a2, a1, SP[a3, a5], n] - 
    S2[a1, a4, a2, SP[a1, a5], a3, n] + S2[a2, n]*S2[a1, a4, a5, a1, a3, n] + 
    S2[a1, a4, a5, a1, SP[a2, a3], n] + S2[a1, a4, a5, SP[a1, a2], a3, n] + 
    S2[a1, a4, SP[a1, a2], a3, a5, n] + S2[a1, a4, SP[a1, a2], a5, a3, n] - 
    S2[a1, a4, SP[a1, a5], a2, a3, n] - S2[a1, a4, SP[a1, a5], a3, a2, n] + 
    S2[a2, n]*S2[a1, a5, a1, a4, a3, n] + S2[a1, a5, a1, a4, SP[a2, a3], n] + 
    S2[a1, a5, a1, SP[a2, a4], a3, n] - (S2[a1, n]*S2[a1, a5, a2, a4, a3, n])/
     2 - S2[a1, a5, a2, a4, SP[a1, a3], n]/2 - 
    S2[a1, a5, a2, SP[a1, a4], a3, n]/2 + 
    S2[a2, n]*S2[a1, a5, a4, a1, a3, n] + S2[a1, a5, a4, a1, SP[a2, a3], n] + 
    S2[a1, a5, a4, SP[a1, a2], a3, n] + S2[a1, a5, SP[a1, a2], a4, a3, n]/2 + 
    S2[a1, a5, SP[a2, a4], a1, a3, n] - S2[a1, SP[a1, a5], a2, a4, a3, n]/2 - 
    S2[a1, SP[a1, a5], a4, a2, a3, n] - S2[a1, SP[a1, a5], a4, a3, a2, n] + 
    S2[a1, SP[a2, a4], a1, a3, a5, n] + S2[a1, SP[a2, a4], a1, a5, a3, n] + 
    S2[a1, SP[a2, a4], a5, a1, a3, n] + S2[a1, SP[a2, a5], a1, a4, a3, n] + 
    S2[a1, SP[a2, a5], a4, a1, a3, n] - S2[a1, SP[a4, a5], a1, a2, a3, n] - 
    S2[a1, SP[a4, a5], a1, a3, a2, n] - S2[a1, SP[a4, a5], a2, a1, a3, n] + 
    S2[a2, a1, a1, a3, SP[a4, a5], n] - S2[a2, a1, a1, a4, SP[a3, a5], n] - 
    S2[a2, a1, a1, a5, SP[a3, a4], n] - S2[a2, a1, a1, SP[a3, a4], a5, n] - 
    S2[a2, a1, a4, a1, SP[a3, a5], n] - S2[a2, a1, a4, SP[a1, a5], a3, n] - 
    S2[a2, a1, a5, a1, SP[a3, a4], n] - S2[a2, a1, a5, SP[a1, a4], a3, n] - 
    S2[a2, a1, SP[a1, a4], a3, a5, n] - S2[a2, a1, SP[a1, a4], a5, a3, n] - 
    S2[a2, a1, SP[a1, a5], a4, a3, n] + S2[a5, n]*S2[a2, a4, a1, a1, a3, n] - 
    S2[a2, a5, a1, a1, SP[a3, a4], n] - S2[a2, a5, a1, SP[a1, a4], a3, n] - 
    S2[a2, a5, SP[a1, a4], a1, a3, n] - S2[a2, SP[a1, a4], a1, a3, a5, n] - 
    S2[a2, SP[a1, a4], a1, a5, a3, n] - S2[a2, SP[a1, a4], a5, a1, a3, n] - 
    S2[a2, SP[a1, a5], a1, a4, a3, n] - S2[a2, SP[a1, a5], a4, a1, a3, n] + 
    S2[a2, SP[a4, a5], a1, a1, a3, n] + S2[a2, n]*S2[a5, a1, a1, a4, a3, n] + 
    S2[a5, a1, a1, a4, SP[a2, a3], n] + S2[a5, a1, a1, SP[a2, a4], a3, n] - 
    (S2[a1, n]*S2[a5, a1, a2, a4, a3, n])/2 - 
    S2[a5, a1, a2, a4, SP[a1, a3], n]/2 - S2[a5, a1, a2, SP[a1, a4], a3, n]/
     2 + S2[a2, n]*S2[a5, a1, a4, a1, a3, n] + S2[a5, a1, a4, a1, SP[a2, a3], 
     n] + S2[a5, a1, a4, SP[a1, a2], a3, n] + 
    S2[a5, a1, SP[a1, a2], a4, a3, n]/2 + S2[a5, a1, SP[a2, a4], a1, a3, n] - 
    (S2[a1, n]*S2[a5, a2, a1, a4, a3, n])/2 - 
    S2[a5, a2, a1, a4, SP[a1, a3], n]/2 - S2[a5, a2, a1, SP[a1, a4], a3, n]/
     2 - (S2[a1, n]*S2[a5, a2, a4, a1, a3, n])/2 - 
    S2[a5, a2, a4, a1, SP[a1, a3], n]/2 + 
    (S2[a1, n]*S2[a5, a2, a4, a3, a1, n])/2 + 
    S2[a5, a2, a4, a3, SP[a1, a1], n]/2 - S2[a5, a2, a4, SP[a1, a1], a3, n]/
     2 + S2[a5, a2, a4, SP[a1, a3], a1, n]/2 - 
    S2[a5, a2, SP[a1, a1], a4, a3, n]/2 - S2[a5, a2, SP[a1, a4], a1, a3, n]/
     2 + S2[a5, a2, SP[a1, a4], a3, a1, n]/2 - 
    S2[a5, SP[a1, a1], a2, a4, a3, n]/2 + S2[a5, SP[a1, a2], a1, a4, a3, n]/
     2 + S2[a5, SP[a1, a2], a4, a1, a3, n]/2 + 
    S2[a5, SP[a1, a2], a4, a3, a1, n]/2 - S2[SP[a1, a1], a5, a2, a4, a3, n]/
     2 - S2[SP[a1, a5], a1, a2, a4, a3, n]/2 - S2[SP[a1, a5], a1, a4, a2, a3, 
     n] - S2[SP[a1, a5], a1, a4, a3, a2, n] - 
    S2[SP[a1, a5], a2, a1, a4, a3, n]/2 - S2[SP[a1, a5], a2, a4, a1, a3, n]/
     2 + S2[SP[a1, a5], a2, a4, a3, a1, n]/2 - S2[SP[a1, a5], a4, a1, a2, a3, 
     n] - S2[SP[a1, a5], a4, a1, a3, a2, n] - S2[SP[a1, a5], a4, a2, a1, a3, 
     n] + S2[SP[a2, a5], a1, a1, a4, a3, n] + S2[SP[a2, a5], a1, a4, a1, a3, 
     n] + S2[SP[a2, a5], a4, a1, a1, a3, n] - S2[a5, a2, a4, a3, a1, a1, 
     n] /; MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a1_, a1_, a3_, a4_, a5_, a2_, n_] :> 
  S2[a1, a1, a3, n]*S2[a2, a5, a4, n] + S2[SP[a1, a2], SP[a1, a5], 
     SP[a3, a4], n] - S2[a2, a5, n]*S2[a1, a1, a3, a4, n] + 
    S2[a1, a1, SP[a2, a3], SP[a4, a5], n] - S2[a1, a2, SP[a1, a5], 
     SP[a3, a4], n] + S2[a1, SP[a1, a2], a3, SP[a4, a5], n] - 
    S2[a1, SP[a1, a2], a5, SP[a3, a4], n] - S2[a2, a1, SP[a1, a5], 
     SP[a3, a4], n] - S2[a2, SP[a1, a5], a1, SP[a3, a4], n] - 
    S2[a2, SP[a1, a5], SP[a1, a4], a3, n] + S2[SP[a1, a2], a1, a3, 
     SP[a4, a5], n] - S2[SP[a1, a2], a1, a5, SP[a3, a4], n] - 
    S2[SP[a1, a2], a5, a1, SP[a3, a4], n] - S2[SP[a1, a2], a5, SP[a1, a4], 
     a3, n] - S2[SP[a1, a2], SP[a1, a5], a4, a3, n] - 
    S2[a1, a1, a2, a3, SP[a4, a5], n] + S2[a1, a1, a2, a5, SP[a3, a4], n] - 
    S2[a1, a1, a3, a2, SP[a4, a5], n] + S2[a2, n]*S2[a1, a1, a3, a4, a5, n] + 
    S2[a1, a1, a3, a4, SP[a2, a5], n] - S2[a2, n]*S2[a1, a1, a5, a4, a3, n] - 
    S2[a1, a1, a5, a4, SP[a2, a3], n] - S2[a1, a1, a5, SP[a2, a4], a3, n] - 
    S2[a1, a1, SP[a2, a5], a4, a3, n] - S2[a1, a2, a1, a3, SP[a4, a5], n] + 
    S2[a1, a2, a1, a5, SP[a3, a4], n] + S2[a1, a2, a5, a1, SP[a3, a4], n] + 
    S2[a1, a2, a5, SP[a1, a4], a3, n] + S2[a1, a2, SP[a1, a5], a4, a3, n] - 
    S2[a2, n]*S2[a1, a5, a1, a4, a3, n] - S2[a1, a5, a1, a4, SP[a2, a3], n] - 
    S2[a1, a5, a1, SP[a2, a4], a3, n] + (S2[a1, n]*S2[a1, a5, a2, a4, a3, n])/
     2 + S2[a1, a5, a2, a4, SP[a1, a3], n]/2 + 
    S2[a1, a5, a2, SP[a1, a4], a3, n]/2 - 
    S2[a2, n]*S2[a1, a5, a4, a1, a3, n] - S2[a1, a5, a4, a1, SP[a2, a3], n] + 
    (S2[a1, n]*S2[a1, a5, a4, a2, a3, n])/2 + 
    S2[a1, a5, a4, a2, SP[a1, a3], n]/2 + 
    (S2[a1, n]*S2[a1, a5, a4, a3, a2, n])/2 + 
    S2[a1, a5, a4, a3, SP[a1, a2], n]/2 - S2[a1, a5, a4, SP[a1, a2], a3, n]/
     2 + S2[a1, a5, a4, SP[a1, a3], a2, n]/2 - 
    S2[a1, a5, SP[a1, a2], a4, a3, n]/2 + S2[a1, a5, SP[a1, a4], a2, a3, n]/
     2 + S2[a1, a5, SP[a1, a4], a3, a2, n]/2 - S2[a1, a5, SP[a2, a4], a1, a3, 
     n] + S2[a1, SP[a1, a5], a2, a4, a3, n]/2 + 
    S2[a1, SP[a1, a5], a4, a2, a3, n]/2 + S2[a1, SP[a1, a5], a4, a3, a2, n]/
     2 - S2[a1, SP[a2, a5], a1, a4, a3, n] - S2[a1, SP[a2, a5], a4, a1, a3, 
     n] - S2[a2, a1, a1, a3, SP[a4, a5], n] + S2[a2, a1, a1, a5, SP[a3, a4], 
     n] + S2[a2, a1, a5, a1, SP[a3, a4], n] + S2[a2, a1, a5, SP[a1, a4], a3, 
     n] + S2[a2, a1, SP[a1, a5], a4, a3, n] + S2[a2, a5, a1, a1, SP[a3, a4], 
     n] + S2[a2, a5, a1, SP[a1, a4], a3, n] + S2[a2, a5, SP[a1, a4], a1, a3, 
     n] + S2[a2, SP[a1, a5], a1, a4, a3, n] + S2[a2, SP[a1, a5], a4, a1, a3, 
     n] - S2[a2, n]*S2[a5, a1, a1, a4, a3, n] - S2[a5, a1, a1, a4, 
     SP[a2, a3], n] - S2[a5, a1, a1, SP[a2, a4], a3, n] + 
    (S2[a1, n]*S2[a5, a1, a2, a4, a3, n])/2 + 
    S2[a5, a1, a2, a4, SP[a1, a3], n]/2 + S2[a5, a1, a2, SP[a1, a4], a3, n]/
     2 - S2[a2, n]*S2[a5, a1, a4, a1, a3, n] - S2[a5, a1, a4, a1, SP[a2, a3], 
     n] + (S2[a1, n]*S2[a5, a1, a4, a2, a3, n])/2 + 
    S2[a5, a1, a4, a2, SP[a1, a3], n]/2 + 
    (S2[a1, n]*S2[a5, a1, a4, a3, a2, n])/2 + 
    S2[a5, a1, a4, a3, SP[a1, a2], n]/2 - S2[a5, a1, a4, SP[a1, a2], a3, n]/
     2 + S2[a5, a1, a4, SP[a1, a3], a2, n]/2 - 
    S2[a5, a1, SP[a1, a2], a4, a3, n]/2 + S2[a5, a1, SP[a1, a4], a2, a3, n]/
     2 + S2[a5, a1, SP[a1, a4], a3, a2, n]/2 - S2[a5, a1, SP[a2, a4], a1, a3, 
     n] + (S2[a1, n]*S2[a5, a2, a1, a4, a3, n])/2 + 
    S2[a5, a2, a1, a4, SP[a1, a3], n]/2 + S2[a5, a2, a1, SP[a1, a4], a3, n]/
     2 + (S2[a1, n]*S2[a5, a2, a4, a1, a3, n])/2 + 
    S2[a5, a2, a4, a1, SP[a1, a3], n]/2 - 
    (S2[a1, n]*S2[a5, a2, a4, a3, a1, n])/2 - 
    S2[a5, a2, a4, a3, SP[a1, a1], n]/2 + S2[a5, a2, a4, SP[a1, a1], a3, n]/
     2 - S2[a5, a2, a4, SP[a1, a3], a1, n]/2 + 
    S2[a5, a2, SP[a1, a1], a4, a3, n]/2 + S2[a5, a2, SP[a1, a4], a1, a3, n]/
     2 - S2[a5, a2, SP[a1, a4], a3, a1, n]/2 - 
    S2[a2, n]*S2[a5, a4, a1, a1, a3, n] - S2[a5, a4, a1, a1, SP[a2, a3], n] + 
    (S2[a1, n]*S2[a5, a4, a1, a2, a3, n])/2 + 
    S2[a5, a4, a1, a2, SP[a1, a3], n]/2 + 
    (S2[a1, n]*S2[a5, a4, a1, a3, a2, n])/2 + 
    S2[a5, a4, a1, a3, SP[a1, a2], n]/2 - S2[a5, a4, a1, SP[a1, a2], a3, n]/
     2 + S2[a5, a4, a1, SP[a1, a3], a2, n]/2 + 
    (S2[a1, n]*S2[a5, a4, a2, a1, a3, n])/2 + 
    S2[a5, a4, a2, a1, SP[a1, a3], n]/2 - 
    (S2[a1, n]*S2[a5, a4, a2, a3, a1, n])/2 - 
    S2[a5, a4, a2, a3, SP[a1, a1], n]/2 + S2[a5, a4, a2, SP[a1, a1], a3, n]/
     2 - S2[a5, a4, a2, SP[a1, a3], a1, n]/2 - 
    (S2[a1, n]*S2[a5, a4, a3, a1, a2, n])/2 - 
    S2[a5, a4, a3, a1, SP[a1, a2], n]/2 - 
    (S2[a1, n]*S2[a5, a4, a3, a2, a1, n])/2 - 
    S2[a5, a4, a3, a2, SP[a1, a1], n]/2 - S2[a5, a4, a3, SP[a1, a1], a2, n]/
     2 - S2[a5, a4, a3, SP[a1, a2], a1, n]/2 + 
    S2[a5, a4, SP[a1, a1], a2, a3, n]/2 + S2[a5, a4, SP[a1, a1], a3, a2, n]/
     2 - S2[a5, a4, SP[a1, a2], a1, a3, n]/2 - 
    S2[a5, a4, SP[a1, a2], a3, a1, n]/2 - S2[a5, a4, SP[a1, a3], a1, a2, n]/
     2 - S2[a5, a4, SP[a1, a3], a2, a1, n]/2 + 
    S2[a5, SP[a1, a1], a2, a4, a3, n]/2 + S2[a5, SP[a1, a1], a4, a2, a3, n]/
     2 + S2[a5, SP[a1, a1], a4, a3, a2, n]/2 - 
    S2[a5, SP[a1, a2], a1, a4, a3, n]/2 - S2[a5, SP[a1, a2], a4, a1, a3, n]/
     2 - S2[a5, SP[a1, a2], a4, a3, a1, n]/2 + 
    S2[a5, SP[a1, a4], a1, a2, a3, n]/2 + S2[a5, SP[a1, a4], a1, a3, a2, n]/
     2 + S2[a5, SP[a1, a4], a2, a1, a3, n]/2 - 
    S2[a5, SP[a1, a4], a2, a3, a1, n]/2 - S2[a5, SP[a1, a4], a3, a1, a2, n]/
     2 - S2[a5, SP[a1, a4], a3, a2, a1, n]/2 - S2[a5, SP[a2, a4], a1, a1, a3, 
     n] + S2[SP[a1, a1], a5, a2, a4, a3, n]/2 + 
    S2[SP[a1, a1], a5, a4, a2, a3, n]/2 + S2[SP[a1, a1], a5, a4, a3, a2, n]/
     2 + S2[SP[a1, a5], a1, a2, a4, a3, n]/2 + 
    S2[SP[a1, a5], a1, a4, a2, a3, n]/2 + S2[SP[a1, a5], a1, a4, a3, a2, n]/
     2 + S2[SP[a1, a5], a2, a1, a4, a3, n]/2 + 
    S2[SP[a1, a5], a2, a4, a1, a3, n]/2 - S2[SP[a1, a5], a2, a4, a3, a1, n]/
     2 + S2[SP[a1, a5], a4, a1, a2, a3, n]/2 + 
    S2[SP[a1, a5], a4, a1, a3, a2, n]/2 + S2[SP[a1, a5], a4, a2, a1, a3, n]/
     2 - S2[SP[a1, a5], a4, a2, a3, a1, n]/2 - 
    S2[SP[a1, a5], a4, a3, a1, a2, n]/2 - S2[SP[a1, a5], a4, a3, a2, a1, n]/
     2 - S2[SP[a2, a5], a1, a1, a4, a3, n] - S2[SP[a2, a5], a1, a4, a1, a3, 
     n] - S2[SP[a2, a5], a4, a1, a1, a3, n] + S2[a5, a2, a4, a3, a1, a1, n] + 
    S2[a5, a4, a2, a3, a1, a1, n] + S2[a5, a4, a3, a1, a1, a2, n] + 
    S2[a5, a4, a3, a1, a2, a1, n] + S2[a5, a4, a3, a2, a1, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a1_, a1_, a3_, a5_, a2_, a4_, n_] :> 
  -(S2[a1, a1, a3, n]*S2[a2, a4, a5, n]) - S2[a1, a1, a3, n]*
     S2[a2, a5, a4, n] - S2[SP[a1, a2], SP[a1, a4], SP[a3, a5], n] - 
    S2[SP[a1, a2], SP[a1, a5], SP[a3, a4], n] + S2[a1, a2, SP[a1, a4], 
     SP[a3, a5], n] + S2[a1, a2, SP[a1, a5], SP[a3, a4], n] + 
    S2[a1, SP[a1, a2], a4, SP[a3, a5], n] + S2[a1, SP[a1, a2], a5, 
     SP[a3, a4], n] + S2[a1, SP[a1, a2], SP[a3, a4], a5, n] + 
    S2[a1, SP[a1, a2], SP[a3, a5], a4, n] + S2[a2, a1, SP[a1, a4], 
     SP[a3, a5], n] + S2[a2, a1, SP[a1, a5], SP[a3, a4], n] + 
    S2[a2, SP[a1, a4], a1, SP[a3, a5], n] + S2[a2, SP[a1, a4], SP[a1, a5], 
     a3, n] + S2[a2, SP[a1, a5], a1, SP[a3, a4], n] + 
    S2[a2, SP[a1, a5], SP[a1, a4], a3, n] + S2[SP[a1, a2], a1, a4, 
     SP[a3, a5], n] + S2[SP[a1, a2], a1, a5, SP[a3, a4], n] + 
    S2[SP[a1, a2], a1, SP[a3, a4], a5, n] + S2[SP[a1, a2], a1, SP[a3, a5], 
     a4, n] + S2[SP[a1, a2], a4, a1, SP[a3, a5], n] + 
    S2[SP[a1, a2], a4, SP[a1, a5], a3, n] + S2[SP[a1, a2], a5, a1, 
     SP[a3, a4], n] + S2[SP[a1, a2], a5, SP[a1, a4], a3, n] + 
    S2[SP[a1, a2], SP[a1, a4], a3, a5, n] + S2[SP[a1, a2], SP[a1, a4], a5, 
     a3, n] + S2[SP[a1, a2], SP[a1, a5], a3, a4, n] + 
    S2[SP[a1, a2], SP[a1, a5], a4, a3, n] - S2[a1, a1, a2, a4, SP[a3, a5], 
     n] - S2[a1, a1, a2, a5, SP[a3, a4], n] - S2[a1, a1, a2, SP[a3, a4], a5, 
     n] - S2[a1, a1, a2, SP[a3, a5], a4, n] - 
    S2[a5, n]*S2[a1, a1, a3, a4, a2, n] + 
    S2[a2, n]*S2[a1, a1, a3, a4, a5, n] + 
    S2[a2, n]*S2[a1, a1, a3, a5, a4, n] + S2[a1, a1, a3, a5, SP[a2, a4], n] + 
    S2[a1, a1, a3, SP[a2, a4], a5, n] + S2[a1, a1, a3, SP[a2, a5], a4, n] - 
    S2[a1, a1, a3, SP[a4, a5], a2, n] - S2[a5, n]*S2[a1, a1, a4, a2, a3, n] - 
    S2[a1, a1, a4, a2, SP[a3, a5], n] - S2[a5, n]*S2[a1, a1, a4, a3, a2, n] + 
    S2[a2, n]*S2[a1, a1, a4, a3, a5, n] + 
    S2[a2, n]*S2[a1, a1, a4, a5, a3, n] + S2[a1, a1, a4, a5, SP[a2, a3], n] + 
    S2[a1, a1, a4, SP[a2, a3], a5, n] - S2[a1, a1, a4, SP[a3, a5], a2, n] + 
    S2[a2, n]*S2[a1, a1, a5, a3, a4, n] + S2[a1, a1, a5, a3, SP[a2, a4], n] + 
    S2[a2, n]*S2[a1, a1, a5, a4, a3, n] + S2[a1, a1, a5, a4, SP[a2, a3], n] + 
    S2[a1, a1, a5, SP[a2, a3], a4, n] + S2[a1, a1, a5, SP[a2, a4], a3, n] + 
    S2[a1, a1, SP[a2, a4], a3, a5, n] + S2[a1, a1, SP[a2, a4], a5, a3, n] + 
    S2[a1, a1, SP[a2, a5], a3, a4, n] + S2[a1, a1, SP[a2, a5], a4, a3, n] - 
    S2[a1, a1, SP[a3, a5], a4, a2, n] - S2[a1, a1, SP[a4, a5], a2, a3, n] - 
    S2[a1, a1, SP[a4, a5], a3, a2, n] - S2[a1, a2, a1, a4, SP[a3, a5], n] - 
    S2[a1, a2, a1, a5, SP[a3, a4], n] - S2[a1, a2, a1, SP[a3, a4], a5, n] - 
    S2[a1, a2, a1, SP[a3, a5], a4, n] - S2[a1, a2, a4, a1, SP[a3, a5], n] - 
    S2[a1, a2, a4, SP[a1, a5], a3, n] - S2[a1, a2, a5, a1, SP[a3, a4], n] - 
    S2[a1, a2, a5, SP[a1, a4], a3, n] - S2[a1, a2, SP[a1, a4], a3, a5, n] - 
    S2[a1, a2, SP[a1, a4], a5, a3, n] - S2[a1, a2, SP[a1, a5], a3, a4, n] - 
    S2[a1, a2, SP[a1, a5], a4, a3, n] - S2[a5, n]*S2[a1, a4, a1, a2, a3, n] - 
    S2[a1, a4, a1, a2, SP[a3, a5], n] - S2[a5, n]*S2[a1, a4, a1, a3, a2, n] + 
    S2[a2, n]*S2[a1, a4, a1, a3, a5, n] + 
    S2[a2, n]*S2[a1, a4, a1, a5, a3, n] + S2[a1, a4, a1, a5, SP[a2, a3], n] + 
    S2[a1, a4, a1, SP[a2, a3], a5, n] - S2[a1, a4, a1, SP[a3, a5], a2, n] - 
    S2[a5, n]*S2[a1, a4, a2, a1, a3, n] - S2[a1, a4, a2, a1, SP[a3, a5], n] - 
    S2[a1, a4, a2, SP[a1, a5], a3, n] + S2[a2, n]*S2[a1, a4, a5, a1, a3, n] + 
    S2[a1, a4, a5, a1, SP[a2, a3], n] + S2[a1, a4, a5, SP[a1, a2], a3, n] + 
    S2[a1, a4, SP[a1, a2], a3, a5, n] + S2[a1, a4, SP[a1, a2], a5, a3, n] - 
    S2[a1, a4, SP[a1, a5], a2, a3, n] - S2[a1, a4, SP[a1, a5], a3, a2, n] + 
    S2[a2, n]*S2[a1, a5, a1, a3, a4, n] + S2[a1, a5, a1, a3, SP[a2, a4], n] + 
    S2[a2, n]*S2[a1, a5, a1, a4, a3, n] + S2[a1, a5, a1, a4, SP[a2, a3], n] + 
    S2[a1, a5, a1, SP[a2, a3], a4, n] + S2[a1, a5, a1, SP[a2, a4], a3, n] - 
    (S2[a1, n]*S2[a1, a5, a2, a3, a4, n])/2 - 
    S2[a1, a5, a2, a3, SP[a1, a4], n]/2 - 
    (S2[a1, n]*S2[a1, a5, a2, a4, a3, n])/2 - 
    S2[a1, a5, a2, a4, SP[a1, a3], n]/2 - S2[a1, a5, a2, SP[a1, a3], a4, n]/
     2 - S2[a1, a5, a2, SP[a1, a4], a3, n]/2 - 
    (S2[a1, n]*S2[a1, a5, a3, a2, a4, n])/2 - 
    S2[a1, a5, a3, a2, SP[a1, a4], n]/2 - S2[a1, a5, a3, SP[a1, a2], a4, n]/
     2 + S2[a2, n]*S2[a1, a5, a4, a1, a3, n] + S2[a1, a5, a4, a1, SP[a2, a3], 
     n] + S2[a1, a5, a4, SP[a1, a2], a3, n] + 
    S2[a1, a5, SP[a1, a2], a3, a4, n]/2 + S2[a1, a5, SP[a1, a2], a4, a3, n]/
     2 - S2[a1, a5, SP[a1, a3], a2, a4, n]/2 + S2[a1, a5, SP[a2, a4], a1, a3, 
     n] - S2[a1, SP[a1, a5], a2, a3, a4, n]/2 - 
    S2[a1, SP[a1, a5], a2, a4, a3, n]/2 - S2[a1, SP[a1, a5], a3, a2, a4, n]/
     2 - S2[a1, SP[a1, a5], a3, a4, a2, n] - S2[a1, SP[a1, a5], a4, a2, a3, 
     n] - S2[a1, SP[a1, a5], a4, a3, a2, n] + S2[a1, SP[a2, a4], a1, a3, a5, 
     n] + S2[a1, SP[a2, a4], a1, a5, a3, n] + S2[a1, SP[a2, a4], a5, a1, a3, 
     n] + S2[a1, SP[a2, a5], a1, a3, a4, n] + S2[a1, SP[a2, a5], a1, a4, a3, 
     n] + S2[a1, SP[a2, a5], a4, a1, a3, n] - S2[a1, SP[a4, a5], a1, a2, a3, 
     n] - S2[a1, SP[a4, a5], a1, a3, a2, n] - S2[a1, SP[a4, a5], a2, a1, a3, 
     n] - S2[a2, a1, a1, a4, SP[a3, a5], n] - S2[a2, a1, a1, a5, SP[a3, a4], 
     n] - S2[a2, a1, a1, SP[a3, a4], a5, n] - S2[a2, a1, a1, SP[a3, a5], a4, 
     n] - S2[a2, a1, a4, a1, SP[a3, a5], n] - S2[a2, a1, a4, SP[a1, a5], a3, 
     n] - S2[a2, a1, a5, a1, SP[a3, a4], n] - S2[a2, a1, a5, SP[a1, a4], a3, 
     n] - S2[a2, a1, SP[a1, a4], a3, a5, n] - S2[a2, a1, SP[a1, a4], a5, a3, 
     n] - S2[a2, a1, SP[a1, a5], a3, a4, n] - S2[a2, a1, SP[a1, a5], a4, a3, 
     n] + S2[a5, n]*S2[a2, a4, a1, a1, a3, n] - S2[a2, a5, a1, a1, 
     SP[a3, a4], n] - S2[a2, a5, a1, SP[a1, a4], a3, n] - 
    S2[a2, a5, SP[a1, a4], a1, a3, n] - S2[a2, SP[a1, a4], a1, a3, a5, n] - 
    S2[a2, SP[a1, a4], a1, a5, a3, n] - S2[a2, SP[a1, a4], a5, a1, a3, n] - 
    S2[a2, SP[a1, a5], a1, a3, a4, n] - S2[a2, SP[a1, a5], a1, a4, a3, n] - 
    S2[a2, SP[a1, a5], a4, a1, a3, n] + S2[a2, SP[a4, a5], a1, a1, a3, n] + 
    S2[a2, n]*S2[a5, a1, a1, a3, a4, n] + S2[a5, a1, a1, a3, SP[a2, a4], n] + 
    S2[a2, n]*S2[a5, a1, a1, a4, a3, n] + S2[a5, a1, a1, a4, SP[a2, a3], n] + 
    S2[a5, a1, a1, SP[a2, a3], a4, n] + S2[a5, a1, a1, SP[a2, a4], a3, n] - 
    (S2[a1, n]*S2[a5, a1, a2, a3, a4, n])/2 - 
    S2[a5, a1, a2, a3, SP[a1, a4], n]/2 - 
    (S2[a1, n]*S2[a5, a1, a2, a4, a3, n])/2 - 
    S2[a5, a1, a2, a4, SP[a1, a3], n]/2 - S2[a5, a1, a2, SP[a1, a3], a4, n]/
     2 - S2[a5, a1, a2, SP[a1, a4], a3, n]/2 - 
    (S2[a1, n]*S2[a5, a1, a3, a2, a4, n])/2 - 
    S2[a5, a1, a3, a2, SP[a1, a4], n]/2 - S2[a5, a1, a3, SP[a1, a2], a4, n]/
     2 + S2[a2, n]*S2[a5, a1, a4, a1, a3, n] + S2[a5, a1, a4, a1, SP[a2, a3], 
     n] + S2[a5, a1, a4, SP[a1, a2], a3, n] + 
    S2[a5, a1, SP[a1, a2], a3, a4, n]/2 + S2[a5, a1, SP[a1, a2], a4, a3, n]/
     2 - S2[a5, a1, SP[a1, a3], a2, a4, n]/2 + S2[a5, a1, SP[a2, a4], a1, a3, 
     n] - (S2[a1, n]*S2[a5, a2, a1, a3, a4, n])/2 - 
    S2[a5, a2, a1, a3, SP[a1, a4], n]/2 - 
    (S2[a1, n]*S2[a5, a2, a1, a4, a3, n])/2 - 
    S2[a5, a2, a1, a4, SP[a1, a3], n]/2 - S2[a5, a2, a1, SP[a1, a3], a4, n]/
     2 - S2[a5, a2, a1, SP[a1, a4], a3, n]/2 + 
    (S2[a1, n]*S2[a5, a2, a3, a1, a4, n])/2 + 
    S2[a5, a2, a3, a1, SP[a1, a4], n]/2 + 
    (S2[a1, n]*S2[a5, a2, a3, a4, a1, n])/2 + 
    S2[a5, a2, a3, a4, SP[a1, a1], n]/2 + S2[a5, a2, a3, SP[a1, a1], a4, n]/
     2 + S2[a5, a2, a3, SP[a1, a4], a1, n]/2 - 
    (S2[a1, n]*S2[a5, a2, a4, a1, a3, n])/2 - 
    S2[a5, a2, a4, a1, SP[a1, a3], n]/2 + 
    (S2[a1, n]*S2[a5, a2, a4, a3, a1, n])/2 + 
    S2[a5, a2, a4, a3, SP[a1, a1], n]/2 - S2[a5, a2, a4, SP[a1, a1], a3, n]/
     2 + S2[a5, a2, a4, SP[a1, a3], a1, n]/2 - 
    S2[a5, a2, SP[a1, a1], a3, a4, n]/2 - S2[a5, a2, SP[a1, a1], a4, a3, n]/
     2 + S2[a5, a2, SP[a1, a3], a1, a4, n]/2 + 
    S2[a5, a2, SP[a1, a3], a4, a1, n]/2 - S2[a5, a2, SP[a1, a4], a1, a3, n]/
     2 + S2[a5, a2, SP[a1, a4], a3, a1, n]/2 + 
    (S2[a1, n]*S2[a5, a3, a1, a2, a4, n])/2 + 
    S2[a5, a3, a1, a2, SP[a1, a4], n]/2 + S2[a5, a3, a1, SP[a1, a2], a4, n]/
     2 + (S2[a1, n]*S2[a5, a3, a2, a1, a4, n])/2 + 
    S2[a5, a3, a2, a1, SP[a1, a4], n]/2 + 
    (S2[a1, n]*S2[a5, a3, a2, a4, a1, n])/2 + 
    S2[a5, a3, a2, a4, SP[a1, a1], n]/2 + S2[a5, a3, a2, SP[a1, a1], a4, n]/
     2 + S2[a5, a3, a2, SP[a1, a4], a1, n]/2 + 
    S2[a5, a3, SP[a1, a1], a2, a4, n]/2 + S2[a5, a3, SP[a1, a2], a1, a4, n]/
     2 + S2[a5, a3, SP[a1, a2], a4, a1, n]/2 - 
    S2[a5, SP[a1, a1], a2, a3, a4, n]/2 - S2[a5, SP[a1, a1], a2, a4, a3, n]/
     2 - S2[a5, SP[a1, a1], a3, a2, a4, n]/2 + 
    S2[a5, SP[a1, a2], a1, a3, a4, n]/2 + S2[a5, SP[a1, a2], a1, a4, a3, n]/
     2 + S2[a5, SP[a1, a2], a3, a1, a4, n]/2 + 
    S2[a5, SP[a1, a2], a3, a4, a1, n]/2 + S2[a5, SP[a1, a2], a4, a1, a3, n]/
     2 + S2[a5, SP[a1, a2], a4, a3, a1, n]/2 + 
    S2[a5, SP[a1, a3], a1, a2, a4, n]/2 + S2[a5, SP[a1, a3], a2, a1, a4, n]/
     2 + S2[a5, SP[a1, a3], a2, a4, a1, n]/2 - 
    S2[SP[a1, a1], a5, a2, a3, a4, n]/2 - S2[SP[a1, a1], a5, a2, a4, a3, n]/
     2 - S2[SP[a1, a1], a5, a3, a2, a4, n]/2 - 
    S2[SP[a1, a5], a1, a2, a3, a4, n]/2 - S2[SP[a1, a5], a1, a2, a4, a3, n]/
     2 - S2[SP[a1, a5], a1, a3, a2, a4, n]/2 - S2[SP[a1, a5], a1, a3, a4, a2, 
     n] - S2[SP[a1, a5], a1, a4, a2, a3, n] - S2[SP[a1, a5], a1, a4, a3, a2, 
     n] - S2[SP[a1, a5], a2, a1, a3, a4, n]/2 - 
    S2[SP[a1, a5], a2, a1, a4, a3, n]/2 + S2[SP[a1, a5], a2, a3, a1, a4, n]/
     2 + S2[SP[a1, a5], a2, a3, a4, a1, n]/2 - 
    S2[SP[a1, a5], a2, a4, a1, a3, n]/2 + S2[SP[a1, a5], a2, a4, a3, a1, n]/
     2 + S2[SP[a1, a5], a3, a1, a2, a4, n]/2 + 
    S2[SP[a1, a5], a3, a2, a1, a4, n]/2 + S2[SP[a1, a5], a3, a2, a4, a1, n]/
     2 - S2[SP[a1, a5], a4, a1, a2, a3, n] - S2[SP[a1, a5], a4, a1, a3, a2, 
     n] - S2[SP[a1, a5], a4, a2, a1, a3, n] + S2[SP[a2, a5], a1, a1, a3, a4, 
     n] + S2[SP[a2, a5], a1, a1, a4, a3, n] + S2[SP[a2, a5], a1, a4, a1, a3, 
     n] + S2[SP[a2, a5], a4, a1, a1, a3, n] - S2[a5, a2, a3, a1, a1, a4, n] - 
    S2[a5, a2, a3, a1, a4, a1, n] - S2[a5, a2, a3, a4, a1, a1, n] - 
    S2[a5, a2, a4, a3, a1, a1, n] - S2[a5, a3, a1, a1, a2, a4, n] - 
    S2[a5, a3, a1, a2, a1, a4, n] - S2[a5, a3, a1, a2, a4, a1, n] - 
    S2[a5, a3, a2, a1, a1, a4, n] - S2[a5, a3, a2, a1, a4, a1, n] - 
    S2[a5, a3, a2, a4, a1, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a1_, a1_, a3_, a5_, a4_, a2_, n_] :> 
  S2[a1, a1, a3, n]*S2[a2, a4, a5, n] + S2[SP[a1, a2], SP[a1, a4], 
     SP[a3, a5], n] - S2[a1, a2, SP[a1, a4], SP[a3, a5], n] - 
    S2[a1, SP[a1, a2], a4, SP[a3, a5], n] - S2[a1, SP[a1, a2], SP[a3, a4], 
     a5, n] - S2[a2, a1, SP[a1, a4], SP[a3, a5], n] - 
    S2[a2, SP[a1, a4], a1, SP[a3, a5], n] - S2[a2, SP[a1, a4], SP[a1, a5], 
     a3, n] - S2[SP[a1, a2], a1, a4, SP[a3, a5], n] - 
    S2[SP[a1, a2], a1, SP[a3, a4], a5, n] - S2[SP[a1, a2], a4, a1, 
     SP[a3, a5], n] - S2[SP[a1, a2], a4, SP[a1, a5], a3, n] - 
    S2[SP[a1, a2], SP[a1, a4], a3, a5, n] - S2[SP[a1, a2], SP[a1, a4], a5, 
     a3, n] + S2[a1, a1, a2, a4, SP[a3, a5], n] + S2[a1, a1, a2, SP[a3, a4], 
     a5, n] + S2[a5, n]*S2[a1, a1, a3, a4, a2, n] - 
    S2[a2, n]*S2[a1, a1, a3, a4, a5, n] - S2[a1, a1, a3, SP[a2, a4], a5, n] + 
    S2[a1, a1, a3, SP[a4, a5], a2, n] + S2[a5, n]*S2[a1, a1, a4, a2, a3, n] + 
    S2[a1, a1, a4, a2, SP[a3, a5], n] + S2[a5, n]*S2[a1, a1, a4, a3, a2, n] - 
    S2[a2, n]*S2[a1, a1, a4, a3, a5, n] - 
    S2[a2, n]*S2[a1, a1, a4, a5, a3, n] - S2[a1, a1, a4, a5, SP[a2, a3], n] - 
    S2[a1, a1, a4, SP[a2, a3], a5, n] + S2[a1, a1, a4, SP[a3, a5], a2, n] - 
    S2[a1, a1, SP[a2, a4], a3, a5, n] - S2[a1, a1, SP[a2, a4], a5, a3, n] + 
    S2[a1, a1, SP[a3, a5], a4, a2, n] + S2[a1, a1, SP[a4, a5], a2, a3, n] + 
    S2[a1, a1, SP[a4, a5], a3, a2, n] + S2[a1, a2, a1, a4, SP[a3, a5], n] + 
    S2[a1, a2, a1, SP[a3, a4], a5, n] + S2[a1, a2, a4, a1, SP[a3, a5], n] + 
    S2[a1, a2, a4, SP[a1, a5], a3, n] + S2[a1, a2, SP[a1, a4], a3, a5, n] + 
    S2[a1, a2, SP[a1, a4], a5, a3, n] + S2[a5, n]*S2[a1, a4, a1, a2, a3, n] + 
    S2[a1, a4, a1, a2, SP[a3, a5], n] + S2[a5, n]*S2[a1, a4, a1, a3, a2, n] - 
    S2[a2, n]*S2[a1, a4, a1, a3, a5, n] - 
    S2[a2, n]*S2[a1, a4, a1, a5, a3, n] - S2[a1, a4, a1, a5, SP[a2, a3], n] - 
    S2[a1, a4, a1, SP[a2, a3], a5, n] + S2[a1, a4, a1, SP[a3, a5], a2, n] + 
    S2[a5, n]*S2[a1, a4, a2, a1, a3, n] + S2[a1, a4, a2, a1, SP[a3, a5], n] + 
    S2[a1, a4, a2, SP[a1, a5], a3, n] - S2[a2, n]*S2[a1, a4, a5, a1, a3, n] - 
    S2[a1, a4, a5, a1, SP[a2, a3], n] - S2[a1, a4, a5, SP[a1, a2], a3, n] - 
    S2[a1, a4, SP[a1, a2], a3, a5, n] - S2[a1, a4, SP[a1, a2], a5, a3, n] + 
    S2[a1, a4, SP[a1, a5], a2, a3, n] + S2[a1, a4, SP[a1, a5], a3, a2, n] - 
    (S2[a1, n]*S2[a1, a5, a3, a4, a2, n])/2 - 
    S2[a1, a5, a3, a4, SP[a1, a2], n]/2 - S2[a1, a5, a3, SP[a1, a4], a2, n]/
     2 - (S2[a1, n]*S2[a1, a5, a4, a2, a3, n])/2 - 
    S2[a1, a5, a4, a2, SP[a1, a3], n]/2 - 
    (S2[a1, n]*S2[a1, a5, a4, a3, a2, n])/2 - 
    S2[a1, a5, a4, a3, SP[a1, a2], n]/2 - S2[a1, a5, a4, SP[a1, a2], a3, n]/
     2 - S2[a1, a5, a4, SP[a1, a3], a2, n]/2 - 
    S2[a1, a5, SP[a1, a3], a4, a2, n]/2 - S2[a1, a5, SP[a1, a4], a2, a3, n]/
     2 - S2[a1, a5, SP[a1, a4], a3, a2, n]/2 + 
    S2[a1, SP[a1, a5], a3, a4, a2, n]/2 + S2[a1, SP[a1, a5], a4, a2, a3, n]/
     2 + S2[a1, SP[a1, a5], a4, a3, a2, n]/2 - S2[a1, SP[a2, a4], a1, a3, a5, 
     n] - S2[a1, SP[a2, a4], a1, a5, a3, n] - S2[a1, SP[a2, a4], a5, a1, a3, 
     n] + S2[a1, SP[a4, a5], a1, a2, a3, n] + S2[a1, SP[a4, a5], a1, a3, a2, 
     n] + S2[a1, SP[a4, a5], a2, a1, a3, n] + S2[a2, a1, a1, a4, SP[a3, a5], 
     n] + S2[a2, a1, a1, SP[a3, a4], a5, n] + S2[a2, a1, a4, a1, SP[a3, a5], 
     n] + S2[a2, a1, a4, SP[a1, a5], a3, n] + S2[a2, a1, SP[a1, a4], a3, a5, 
     n] + S2[a2, a1, SP[a1, a4], a5, a3, n] - 
    S2[a5, n]*S2[a2, a4, a1, a1, a3, n] + S2[a2, SP[a1, a4], a1, a3, a5, n] + 
    S2[a2, SP[a1, a4], a1, a5, a3, n] + S2[a2, SP[a1, a4], a5, a1, a3, n] - 
    S2[a2, SP[a4, a5], a1, a1, a3, n] - (S2[a1, n]*S2[a5, a1, a3, a4, a2, n])/
     2 - S2[a5, a1, a3, a4, SP[a1, a2], n]/2 - 
    S2[a5, a1, a3, SP[a1, a4], a2, n]/2 - 
    (S2[a1, n]*S2[a5, a1, a4, a2, a3, n])/2 - 
    S2[a5, a1, a4, a2, SP[a1, a3], n]/2 - 
    (S2[a1, n]*S2[a5, a1, a4, a3, a2, n])/2 - 
    S2[a5, a1, a4, a3, SP[a1, a2], n]/2 - S2[a5, a1, a4, SP[a1, a2], a3, n]/
     2 - S2[a5, a1, a4, SP[a1, a3], a2, n]/2 - 
    S2[a5, a1, SP[a1, a3], a4, a2, n]/2 - S2[a5, a1, SP[a1, a4], a2, a3, n]/
     2 - S2[a5, a1, SP[a1, a4], a3, a2, n]/2 + 
    (S2[a1, n]*S2[a5, a3, a1, a4, a2, n])/2 + 
    S2[a5, a3, a1, a4, SP[a1, a2], n]/2 + S2[a5, a3, a1, SP[a1, a4], a2, n]/
     2 + (S2[a1, n]*S2[a5, a3, a4, a1, a2, n])/2 + 
    S2[a5, a3, a4, a1, SP[a1, a2], n]/2 + 
    (S2[a1, n]*S2[a5, a3, a4, a2, a1, n])/2 + 
    S2[a5, a3, a4, a2, SP[a1, a1], n]/2 + S2[a5, a3, a4, SP[a1, a1], a2, n]/
     2 + S2[a5, a3, a4, SP[a1, a2], a1, n]/2 + 
    S2[a5, a3, SP[a1, a1], a4, a2, n]/2 + S2[a5, a3, SP[a1, a4], a1, a2, n]/
     2 + S2[a5, a3, SP[a1, a4], a2, a1, n]/2 + 
    S2[a2, n]*S2[a5, a4, a1, a1, a3, n] + S2[a5, a4, a1, a1, SP[a2, a3], n] - 
    (S2[a1, n]*S2[a5, a4, a1, a2, a3, n])/2 - 
    S2[a5, a4, a1, a2, SP[a1, a3], n]/2 - 
    (S2[a1, n]*S2[a5, a4, a1, a3, a2, n])/2 - 
    S2[a5, a4, a1, a3, SP[a1, a2], n]/2 + S2[a5, a4, a1, SP[a1, a2], a3, n]/
     2 - S2[a5, a4, a1, SP[a1, a3], a2, n]/2 - 
    (S2[a1, n]*S2[a5, a4, a2, a1, a3, n])/2 - 
    S2[a5, a4, a2, a1, SP[a1, a3], n]/2 + 
    (S2[a1, n]*S2[a5, a4, a2, a3, a1, n])/2 + 
    S2[a5, a4, a2, a3, SP[a1, a1], n]/2 - S2[a5, a4, a2, SP[a1, a1], a3, n]/
     2 + S2[a5, a4, a2, SP[a1, a3], a1, n]/2 + 
    (S2[a1, n]*S2[a5, a4, a3, a1, a2, n])/2 + 
    S2[a5, a4, a3, a1, SP[a1, a2], n]/2 + 
    (S2[a1, n]*S2[a5, a4, a3, a2, a1, n])/2 + 
    S2[a5, a4, a3, a2, SP[a1, a1], n]/2 + S2[a5, a4, a3, SP[a1, a1], a2, n]/
     2 + S2[a5, a4, a3, SP[a1, a2], a1, n]/2 - 
    S2[a5, a4, SP[a1, a1], a2, a3, n]/2 - S2[a5, a4, SP[a1, a1], a3, a2, n]/
     2 + S2[a5, a4, SP[a1, a2], a1, a3, n]/2 + 
    S2[a5, a4, SP[a1, a2], a3, a1, n]/2 + S2[a5, a4, SP[a1, a3], a1, a2, n]/
     2 + S2[a5, a4, SP[a1, a3], a2, a1, n]/2 - 
    S2[a5, SP[a1, a1], a3, a4, a2, n]/2 - S2[a5, SP[a1, a1], a4, a2, a3, n]/
     2 - S2[a5, SP[a1, a1], a4, a3, a2, n]/2 + 
    S2[a5, SP[a1, a3], a1, a4, a2, n]/2 + S2[a5, SP[a1, a3], a4, a1, a2, n]/
     2 + S2[a5, SP[a1, a3], a4, a2, a1, n]/2 - 
    S2[a5, SP[a1, a4], a1, a2, a3, n]/2 - S2[a5, SP[a1, a4], a1, a3, a2, n]/
     2 - S2[a5, SP[a1, a4], a2, a1, a3, n]/2 + 
    S2[a5, SP[a1, a4], a2, a3, a1, n]/2 + S2[a5, SP[a1, a4], a3, a1, a2, n]/
     2 + S2[a5, SP[a1, a4], a3, a2, a1, n]/2 + S2[a5, SP[a2, a4], a1, a1, a3, 
     n] - S2[SP[a1, a1], a5, a3, a4, a2, n]/2 - 
    S2[SP[a1, a1], a5, a4, a2, a3, n]/2 - S2[SP[a1, a1], a5, a4, a3, a2, n]/
     2 + S2[SP[a1, a5], a1, a3, a4, a2, n]/2 + 
    S2[SP[a1, a5], a1, a4, a2, a3, n]/2 + S2[SP[a1, a5], a1, a4, a3, a2, n]/
     2 + S2[SP[a1, a5], a3, a1, a4, a2, n]/2 + 
    S2[SP[a1, a5], a3, a4, a1, a2, n]/2 + S2[SP[a1, a5], a3, a4, a2, a1, n]/
     2 + S2[SP[a1, a5], a4, a1, a2, a3, n]/2 + 
    S2[SP[a1, a5], a4, a1, a3, a2, n]/2 + S2[SP[a1, a5], a4, a2, a1, a3, n]/
     2 + S2[SP[a1, a5], a4, a2, a3, a1, n]/2 + 
    S2[SP[a1, a5], a4, a3, a1, a2, n]/2 + S2[SP[a1, a5], a4, a3, a2, a1, n]/
     2 - S2[a5, a3, a1, a1, a4, a2, n] - S2[a5, a3, a1, a4, a1, a2, n] - 
    S2[a5, a3, a1, a4, a2, a1, n] - S2[a5, a3, a4, a1, a1, a2, n] - 
    S2[a5, a3, a4, a1, a2, a1, n] - S2[a5, a3, a4, a2, a1, a1, n] - 
    S2[a5, a4, a2, a3, a1, a1, n] - S2[a5, a4, a3, a1, a1, a2, n] - 
    S2[a5, a4, a3, a1, a2, a1, n] - S2[a5, a4, a3, a2, a1, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a1_, a1_, a4_, a2_, a3_, a5_, n_] :> 
  S2[a1, a1, a4, n]*S2[a2, a3, a5, n] + S2[SP[a1, a2], SP[a1, a3], 
     SP[a4, a5], n] + S2[a3, a5, n]*S2[a1, a1, a4, a2, n] - 
    S2[a1, a1, SP[a3, a4], SP[a2, a5], n] - S2[a1, a2, SP[a1, a3], 
     SP[a4, a5], n] - S2[a1, SP[a1, a2], a3, SP[a4, a5], n] - 
    S2[a1, SP[a1, a2], SP[a3, a4], a5, n] - S2[a1, SP[a1, a3], a4, 
     SP[a2, a5], n] - S2[a1, SP[a1, a3], SP[a4, a5], a2, n] - 
    S2[a2, a1, SP[a1, a3], SP[a4, a5], n] - S2[a2, SP[a1, a3], a1, 
     SP[a4, a5], n] - S2[a2, SP[a1, a3], SP[a1, a5], a4, n] - 
    S2[SP[a1, a2], a1, a3, SP[a4, a5], n] - S2[SP[a1, a2], a1, SP[a3, a4], 
     a5, n] - S2[SP[a1, a2], a3, a1, SP[a4, a5], n] - 
    S2[SP[a1, a2], a3, SP[a1, a5], a4, n] - S2[SP[a1, a2], SP[a1, a3], a4, 
     a5, n] - S2[SP[a1, a2], SP[a1, a3], a5, a4, n] - 
    S2[SP[a1, a3], a1, a4, SP[a2, a5], n] - S2[SP[a1, a3], a1, SP[a4, a5], 
     a2, n] - S2[SP[a1, a3], SP[a1, a5], a4, a2, n] + 
    S2[a1, a1, a2, a3, SP[a4, a5], n] + S2[a1, a1, a2, SP[a3, a4], a5, n] + 
    S2[a5, n]*S2[a1, a1, a3, a2, a4, n] + S2[a1, a1, a3, a2, SP[a4, a5], n] + 
    S2[a5, n]*S2[a1, a1, a3, a4, a2, n] - 
    S2[a2, n]*S2[a1, a1, a3, a4, a5, n] + S2[a1, a1, a3, a4, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a1, a3, a5, a4, n] - S2[a1, a1, a3, a5, SP[a2, a4], n] - 
    S2[a1, a1, a3, SP[a2, a4], a5, n] + 2*S2[a1, a1, a3, SP[a4, a5], a2, n] + 
    S2[a5, n]*S2[a1, a1, a4, a2, a3, n] - 
    S2[a3, n]*S2[a1, a1, a4, a2, a5, n] + 
    S2[a5, n]*S2[a1, a1, a4, a3, a2, n] - 
    S2[a2, n]*S2[a1, a1, a4, a3, a5, n] + S2[a1, a1, a4, a3, SP[a2, a5], n] - 
    S2[a3, n]*S2[a1, a1, a4, a5, a2, n] - S2[a1, a1, a4, a5, SP[a2, a3], n] - 
    S2[a1, a1, a4, SP[a2, a3], a5, n] + S2[a1, a1, a4, SP[a2, a5], a3, n] - 
    S2[a3, n]*S2[a1, a1, a5, a4, a2, n] - S2[a1, a1, a5, a4, SP[a2, a3], n] - 
    S2[a1, a1, a5, SP[a3, a4], a2, n] - S2[a1, a1, SP[a2, a3], a4, a5, n] - 
    S2[a1, a1, SP[a2, a3], a5, a4, n] + S2[a1, a1, SP[a3, a5], a2, a4, n] + 
    S2[a1, a1, SP[a4, a5], a2, a3, n] + S2[a1, a1, SP[a4, a5], a3, a2, n] + 
    S2[a1, a2, a1, a3, SP[a4, a5], n] + S2[a1, a2, a1, SP[a3, a4], a5, n] + 
    S2[a1, a2, a3, a1, SP[a4, a5], n] + S2[a1, a2, a3, SP[a1, a5], a4, n] + 
    S2[a1, a2, SP[a1, a3], a4, a5, n] + S2[a1, a2, SP[a1, a3], a5, a4, n] + 
    S2[a5, n]*S2[a1, a3, a1, a2, a4, n] + S2[a1, a3, a1, a2, SP[a4, a5], n] + 
    S2[a5, n]*S2[a1, a3, a1, a4, a2, n] - 
    S2[a2, n]*S2[a1, a3, a1, a4, a5, n] + S2[a1, a3, a1, a4, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a3, a1, a5, a4, n] - S2[a1, a3, a1, a5, SP[a2, a4], n] - 
    S2[a1, a3, a1, SP[a2, a4], a5, n] + 2*S2[a1, a3, a1, SP[a4, a5], a2, n] + 
    S2[a5, n]*S2[a1, a3, a2, a1, a4, n] + S2[a1, a3, a2, a1, SP[a4, a5], n] + 
    S2[a1, a3, a2, SP[a1, a5], a4, n] - S2[a2, n]*S2[a1, a3, a5, a1, a4, n] - 
    S2[a1, a3, a5, a1, SP[a2, a4], n] - S2[a1, a3, a5, SP[a1, a2], a4, n] - 
    S2[a1, a3, SP[a1, a2], a4, a5, n] - S2[a1, a3, SP[a1, a2], a5, a4, n] + 
    S2[a1, a3, SP[a1, a5], a2, a4, n] + 2*S2[a1, a3, SP[a1, a5], a4, a2, n] - 
    S2[a3, n]*S2[a1, a5, a1, a4, a2, n] - S2[a1, a5, a1, a4, SP[a2, a3], n] - 
    S2[a1, a5, a1, SP[a3, a4], a2, n] - (S2[a1, n]*S2[a1, a5, a3, a2, a4, n])/
     2 - S2[a1, a5, a3, a2, SP[a1, a4], n]/2 - 
    S2[a1, a5, a3, SP[a1, a2], a4, n]/2 - S2[a1, a5, SP[a1, a3], a2, a4, n]/
     2 - S2[a1, a5, SP[a1, a3], a4, a2, n] + 
    S2[a1, SP[a1, a5], a3, a2, a4, n]/2 + S2[a1, SP[a1, a5], a3, a4, a2, n] + 
    S2[a1, SP[a1, a5], a4, a2, a3, n] + S2[a1, SP[a1, a5], a4, a3, a2, n] - 
    S2[a1, SP[a2, a3], a1, a4, a5, n] - S2[a1, SP[a2, a3], a1, a5, a4, n] - 
    S2[a1, SP[a2, a3], a5, a1, a4, n] + S2[a1, SP[a3, a5], a1, a2, a4, n] + 
    S2[a1, SP[a3, a5], a2, a1, a4, n] + S2[a2, a1, a1, a3, SP[a4, a5], n] + 
    S2[a2, a1, a1, SP[a3, a4], a5, n] + S2[a2, a1, a3, a1, SP[a4, a5], n] + 
    S2[a2, a1, a3, SP[a1, a5], a4, n] + S2[a2, a1, SP[a1, a3], a4, a5, n] + 
    S2[a2, a1, SP[a1, a3], a5, a4, n] - S2[a5, n]*S2[a2, a3, a1, a1, a4, n] + 
    S2[a2, SP[a1, a3], a1, a4, a5, n] + S2[a2, SP[a1, a3], a1, a5, a4, n] + 
    S2[a2, SP[a1, a3], a5, a1, a4, n] - S2[a2, SP[a3, a5], a1, a1, a4, n] + 
    S2[a3, a1, a1, a4, SP[a2, a5], n] + S2[a3, a1, a1, SP[a4, a5], a2, n] + 
    S2[a3, a1, SP[a1, a5], a4, a2, n] + S2[a3, SP[a1, a5], a1, a4, a2, n] - 
    S2[a3, n]*S2[a5, a1, a1, a4, a2, n] - S2[a5, a1, a1, a4, SP[a2, a3], n] - 
    S2[a5, a1, a1, SP[a3, a4], a2, n] - (S2[a1, n]*S2[a5, a1, a3, a2, a4, n])/
     2 - S2[a5, a1, a3, a2, SP[a1, a4], n]/2 - 
    S2[a5, a1, a3, SP[a1, a2], a4, n]/2 - S2[a5, a1, SP[a1, a3], a2, a4, n]/
     2 - S2[a5, a1, SP[a1, a3], a4, a2, n] + 
    S2[a2, n]*S2[a5, a3, a1, a1, a4, n] + S2[a5, a3, a1, a1, SP[a2, a4], n] - 
    (S2[a1, n]*S2[a5, a3, a1, a2, a4, n])/2 - 
    S2[a5, a3, a1, a2, SP[a1, a4], n]/2 + S2[a5, a3, a1, SP[a1, a2], a4, n]/
     2 - (S2[a1, n]*S2[a5, a3, a2, a1, a4, n])/2 - 
    S2[a5, a3, a2, a1, SP[a1, a4], n]/2 + 
    (S2[a1, n]*S2[a5, a3, a2, a4, a1, n])/2 + 
    S2[a5, a3, a2, a4, SP[a1, a1], n]/2 - S2[a5, a3, a2, SP[a1, a1], a4, n]/
     2 + S2[a5, a3, a2, SP[a1, a4], a1, n]/2 - 
    S2[a5, a3, SP[a1, a1], a2, a4, n]/2 + S2[a5, a3, SP[a1, a2], a1, a4, n]/
     2 + S2[a5, a3, SP[a1, a2], a4, a1, n]/2 - 
    S2[a5, SP[a1, a1], a3, a2, a4, n]/2 - S2[a5, SP[a1, a3], a1, a2, a4, n]/
     2 - S2[a5, SP[a1, a3], a1, a4, a2, n] - 
    S2[a5, SP[a1, a3], a2, a1, a4, n]/2 + S2[a5, SP[a1, a3], a2, a4, a1, n]/
     2 + S2[a5, SP[a2, a3], a1, a1, a4, n] - 
    S2[SP[a1, a1], a5, a3, a2, a4, n]/2 + S2[SP[a1, a5], a1, a3, a2, a4, n]/
     2 + S2[SP[a1, a5], a1, a3, a4, a2, n] + S2[SP[a1, a5], a1, a4, a2, a3, 
     n] + S2[SP[a1, a5], a1, a4, a3, a2, n] + 
    S2[SP[a1, a5], a3, a1, a2, a4, n]/2 + S2[SP[a1, a5], a3, a1, a4, a2, n] + 
    S2[SP[a1, a5], a3, a2, a1, a4, n]/2 + S2[SP[a1, a5], a3, a2, a4, a1, n]/
     2 - S2[SP[a3, a5], a1, a1, a4, a2, n] - S2[a5, a3, a2, a4, a1, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a1_, a1_, a4_, a2_, a5_, a3_, n_] :> 
  S2[a1, a1, a4, n]*S2[a2, a5, a3, n] + S2[SP[a1, a2], SP[a1, a5], 
     SP[a3, a4], n] - S2[a3, a5, n]*S2[a1, a1, a4, a2, n] + 
    S2[a1, a1, SP[a3, a4], SP[a2, a5], n] - S2[a1, a2, SP[a1, a5], 
     SP[a3, a4], n] - S2[a1, SP[a1, a2], a5, SP[a3, a4], n] - 
    S2[a1, SP[a1, a2], SP[a4, a5], a3, n] + S2[a1, SP[a1, a3], a4, 
     SP[a2, a5], n] + S2[a1, SP[a1, a3], SP[a4, a5], a2, n] - 
    S2[a2, a1, SP[a1, a5], SP[a3, a4], n] - S2[a2, SP[a1, a5], a1, 
     SP[a3, a4], n] - S2[a2, SP[a1, a5], SP[a1, a3], a4, n] - 
    S2[SP[a1, a2], a1, a5, SP[a3, a4], n] - S2[SP[a1, a2], a1, SP[a4, a5], 
     a3, n] - S2[SP[a1, a2], a5, a1, SP[a3, a4], n] - 
    S2[SP[a1, a2], a5, SP[a1, a3], a4, n] - S2[SP[a1, a2], SP[a1, a5], a3, 
     a4, n] - S2[SP[a1, a2], SP[a1, a5], a4, a3, n] + 
    S2[SP[a1, a3], a1, a4, SP[a2, a5], n] + S2[SP[a1, a3], a1, SP[a4, a5], 
     a2, n] + S2[SP[a1, a3], SP[a1, a5], a4, a2, n] + 
    S2[a1, a1, a2, a5, SP[a3, a4], n] + S2[a1, a1, a2, SP[a4, a5], a3, n] - 
    S2[a1, a1, a3, a4, SP[a2, a5], n] - S2[a1, a1, a3, SP[a4, a5], a2, n] + 
    S2[a3, n]*S2[a1, a1, a4, a2, a5, n] + S2[a1, a1, a4, a2, SP[a3, a5], n] - 
    S2[a1, a1, a4, a3, SP[a2, a5], n] + S2[a3, n]*S2[a1, a1, a4, a5, a2, n] - 
    S2[a2, n]*S2[a1, a1, a4, a5, a3, n] - S2[a1, a1, a4, SP[a2, a5], a3, n] + 
    S2[a1, a1, a4, SP[a3, a5], a2, n] - S2[a2, n]*S2[a1, a1, a5, a3, a4, n] - 
    S2[a1, a1, a5, a3, SP[a2, a4], n] + S2[a3, n]*S2[a1, a1, a5, a4, a2, n] - 
    S2[a2, n]*S2[a1, a1, a5, a4, a3, n] - S2[a1, a1, a5, SP[a2, a3], a4, n] - 
    S2[a1, a1, a5, SP[a2, a4], a3, n] + S2[a1, a1, a5, SP[a3, a4], a2, n] - 
    S2[a1, a1, SP[a2, a5], a3, a4, n] - S2[a1, a1, SP[a2, a5], a4, a3, n] + 
    S2[a1, a1, SP[a3, a5], a4, a2, n] + S2[a1, a2, a1, a5, SP[a3, a4], n] + 
    S2[a1, a2, a1, SP[a4, a5], a3, n] + S2[a1, a2, a5, a1, SP[a3, a4], n] + 
    S2[a1, a2, a5, SP[a1, a3], a4, n] + S2[a1, a2, SP[a1, a5], a3, a4, n] + 
    S2[a1, a2, SP[a1, a5], a4, a3, n] - S2[a1, a3, a1, a4, SP[a2, a5], n] - 
    S2[a1, a3, a1, SP[a4, a5], a2, n] - S2[a1, a3, SP[a1, a5], a4, a2, n] - 
    S2[a2, n]*S2[a1, a5, a1, a3, a4, n] - S2[a1, a5, a1, a3, SP[a2, a4], n] + 
    S2[a3, n]*S2[a1, a5, a1, a4, a2, n] - 
    S2[a2, n]*S2[a1, a5, a1, a4, a3, n] - S2[a1, a5, a1, SP[a2, a3], a4, n] - 
    S2[a1, a5, a1, SP[a2, a4], a3, n] + S2[a1, a5, a1, SP[a3, a4], a2, n] + 
    (S2[a1, n]*S2[a1, a5, a2, a3, a4, n])/2 + 
    S2[a1, a5, a2, a3, SP[a1, a4], n]/2 + 
    (S2[a1, n]*S2[a1, a5, a2, a4, a3, n])/2 + 
    S2[a1, a5, a2, a4, SP[a1, a3], n]/2 + S2[a1, a5, a2, SP[a1, a3], a4, n]/
     2 + S2[a1, a5, a2, SP[a1, a4], a3, n]/2 - 
    S2[a2, n]*S2[a1, a5, a3, a1, a4, n] - S2[a1, a5, a3, a1, SP[a2, a4], n] + 
    (S2[a1, n]*S2[a1, a5, a3, a2, a4, n])/2 + 
    S2[a1, a5, a3, a2, SP[a1, a4], n]/2 - S2[a1, a5, a3, SP[a1, a2], a4, n]/
     2 - S2[a1, a5, SP[a1, a2], a3, a4, n]/2 - 
    S2[a1, a5, SP[a1, a2], a4, a3, n]/2 + S2[a1, a5, SP[a1, a3], a2, a4, n]/
     2 + S2[a1, a5, SP[a1, a3], a4, a2, n] - S2[a1, a5, SP[a2, a3], a1, a4, 
     n] + S2[a1, SP[a1, a5], a2, a3, a4, n]/2 + 
    S2[a1, SP[a1, a5], a2, a4, a3, n]/2 + S2[a1, SP[a1, a5], a3, a2, a4, n]/
     2 - S2[a1, SP[a2, a5], a1, a3, a4, n] - S2[a1, SP[a2, a5], a1, a4, a3, 
     n] - S2[a1, SP[a2, a5], a3, a1, a4, n] + S2[a1, SP[a3, a5], a1, a4, a2, 
     n] + S2[a2, a1, a1, a5, SP[a3, a4], n] + S2[a2, a1, a1, SP[a4, a5], a3, 
     n] + S2[a2, a1, a5, a1, SP[a3, a4], n] + S2[a2, a1, a5, SP[a1, a3], a4, 
     n] + S2[a2, a1, SP[a1, a5], a3, a4, n] + S2[a2, a1, SP[a1, a5], a4, a3, 
     n] + S2[a2, a5, a1, a1, SP[a3, a4], n] + S2[a2, a5, a1, SP[a1, a3], a4, 
     n] + S2[a2, a5, SP[a1, a3], a1, a4, n] + S2[a2, SP[a1, a5], a1, a3, a4, 
     n] + S2[a2, SP[a1, a5], a1, a4, a3, n] + S2[a2, SP[a1, a5], a3, a1, a4, 
     n] - S2[a3, a1, a1, a4, SP[a2, a5], n] - S2[a3, a1, a1, SP[a4, a5], a2, 
     n] - S2[a3, a1, SP[a1, a5], a4, a2, n] - S2[a3, SP[a1, a5], a1, a4, a2, 
     n] - S2[a2, n]*S2[a5, a1, a1, a3, a4, n] - S2[a5, a1, a1, a3, 
     SP[a2, a4], n] + S2[a3, n]*S2[a5, a1, a1, a4, a2, n] - 
    S2[a2, n]*S2[a5, a1, a1, a4, a3, n] - S2[a5, a1, a1, SP[a2, a3], a4, n] - 
    S2[a5, a1, a1, SP[a2, a4], a3, n] + S2[a5, a1, a1, SP[a3, a4], a2, n] + 
    (S2[a1, n]*S2[a5, a1, a2, a3, a4, n])/2 + 
    S2[a5, a1, a2, a3, SP[a1, a4], n]/2 + 
    (S2[a1, n]*S2[a5, a1, a2, a4, a3, n])/2 + 
    S2[a5, a1, a2, a4, SP[a1, a3], n]/2 + S2[a5, a1, a2, SP[a1, a3], a4, n]/
     2 + S2[a5, a1, a2, SP[a1, a4], a3, n]/2 - 
    S2[a2, n]*S2[a5, a1, a3, a1, a4, n] - S2[a5, a1, a3, a1, SP[a2, a4], n] + 
    (S2[a1, n]*S2[a5, a1, a3, a2, a4, n])/2 + 
    S2[a5, a1, a3, a2, SP[a1, a4], n]/2 - S2[a5, a1, a3, SP[a1, a2], a4, n]/
     2 - S2[a5, a1, SP[a1, a2], a3, a4, n]/2 - 
    S2[a5, a1, SP[a1, a2], a4, a3, n]/2 + S2[a5, a1, SP[a1, a3], a2, a4, n]/
     2 + S2[a5, a1, SP[a1, a3], a4, a2, n] - S2[a5, a1, SP[a2, a3], a1, a4, 
     n] + (S2[a1, n]*S2[a5, a2, a1, a3, a4, n])/2 + 
    S2[a5, a2, a1, a3, SP[a1, a4], n]/2 + 
    (S2[a1, n]*S2[a5, a2, a1, a4, a3, n])/2 + 
    S2[a5, a2, a1, a4, SP[a1, a3], n]/2 + S2[a5, a2, a1, SP[a1, a3], a4, n]/
     2 + S2[a5, a2, a1, SP[a1, a4], a3, n]/2 + 
    (S2[a1, n]*S2[a5, a2, a3, a1, a4, n])/2 + 
    S2[a5, a2, a3, a1, SP[a1, a4], n]/2 - 
    (S2[a1, n]*S2[a5, a2, a3, a4, a1, n])/2 - 
    S2[a5, a2, a3, a4, SP[a1, a1], n]/2 + S2[a5, a2, a3, SP[a1, a1], a4, n]/
     2 - S2[a5, a2, a3, SP[a1, a4], a1, n]/2 - 
    (S2[a1, n]*S2[a5, a2, a4, a1, a3, n])/2 - 
    S2[a5, a2, a4, a1, SP[a1, a3], n]/2 - 
    (S2[a1, n]*S2[a5, a2, a4, a3, a1, n])/2 - 
    S2[a5, a2, a4, a3, SP[a1, a1], n]/2 - S2[a5, a2, a4, SP[a1, a1], a3, n]/
     2 - S2[a5, a2, a4, SP[a1, a3], a1, n]/2 + 
    S2[a5, a2, SP[a1, a1], a3, a4, n]/2 + S2[a5, a2, SP[a1, a1], a4, a3, n]/
     2 + S2[a5, a2, SP[a1, a3], a1, a4, n]/2 - 
    S2[a5, a2, SP[a1, a3], a4, a1, n]/2 - S2[a5, a2, SP[a1, a4], a1, a3, n]/
     2 - S2[a5, a2, SP[a1, a4], a3, a1, n]/2 - 
    S2[a2, n]*S2[a5, a3, a1, a1, a4, n] - S2[a5, a3, a1, a1, SP[a2, a4], n] + 
    (S2[a1, n]*S2[a5, a3, a1, a2, a4, n])/2 + 
    S2[a5, a3, a1, a2, SP[a1, a4], n]/2 - S2[a5, a3, a1, SP[a1, a2], a4, n]/
     2 + (S2[a1, n]*S2[a5, a3, a2, a1, a4, n])/2 + 
    S2[a5, a3, a2, a1, SP[a1, a4], n]/2 - 
    (S2[a1, n]*S2[a5, a3, a2, a4, a1, n])/2 - 
    S2[a5, a3, a2, a4, SP[a1, a1], n]/2 + S2[a5, a3, a2, SP[a1, a1], a4, n]/
     2 - S2[a5, a3, a2, SP[a1, a4], a1, n]/2 + 
    S2[a5, a3, SP[a1, a1], a2, a4, n]/2 - S2[a5, a3, SP[a1, a2], a1, a4, n]/
     2 - S2[a5, a3, SP[a1, a2], a4, a1, n]/2 + 
    S2[a5, SP[a1, a1], a2, a3, a4, n]/2 + S2[a5, SP[a1, a1], a2, a4, a3, n]/
     2 + S2[a5, SP[a1, a1], a3, a2, a4, n]/2 - 
    S2[a5, SP[a1, a2], a1, a3, a4, n]/2 - S2[a5, SP[a1, a2], a1, a4, a3, n]/
     2 - S2[a5, SP[a1, a2], a3, a1, a4, n]/2 - 
    S2[a5, SP[a1, a2], a3, a4, a1, n]/2 - S2[a5, SP[a1, a2], a4, a1, a3, n]/
     2 - S2[a5, SP[a1, a2], a4, a3, a1, n]/2 + 
    S2[a5, SP[a1, a3], a1, a2, a4, n]/2 + S2[a5, SP[a1, a3], a1, a4, a2, n] + 
    S2[a5, SP[a1, a3], a2, a1, a4, n]/2 - S2[a5, SP[a1, a3], a2, a4, a1, n]/
     2 - S2[a5, SP[a2, a3], a1, a1, a4, n] + 
    S2[SP[a1, a1], a5, a2, a3, a4, n]/2 + S2[SP[a1, a1], a5, a2, a4, a3, n]/
     2 + S2[SP[a1, a1], a5, a3, a2, a4, n]/2 + 
    S2[SP[a1, a5], a1, a2, a3, a4, n]/2 + S2[SP[a1, a5], a1, a2, a4, a3, n]/
     2 + S2[SP[a1, a5], a1, a3, a2, a4, n]/2 + 
    S2[SP[a1, a5], a2, a1, a3, a4, n]/2 + S2[SP[a1, a5], a2, a1, a4, a3, n]/
     2 + S2[SP[a1, a5], a2, a3, a1, a4, n]/2 - 
    S2[SP[a1, a5], a2, a3, a4, a1, n]/2 - S2[SP[a1, a5], a2, a4, a1, a3, n]/
     2 - S2[SP[a1, a5], a2, a4, a3, a1, n]/2 + 
    S2[SP[a1, a5], a3, a1, a2, a4, n]/2 + S2[SP[a1, a5], a3, a2, a1, a4, n]/
     2 - S2[SP[a1, a5], a3, a2, a4, a1, n]/2 - S2[SP[a2, a5], a1, a1, a3, a4, 
     n] - S2[SP[a2, a5], a1, a1, a4, a3, n] - S2[SP[a2, a5], a1, a3, a1, a4, 
     n] - S2[SP[a2, a5], a3, a1, a1, a4, n] + S2[SP[a3, a5], a1, a1, a4, a2, 
     n] + S2[a5, a2, a3, a4, a1, a1, n] + S2[a5, a2, a4, a1, a1, a3, n] + 
    S2[a5, a2, a4, a1, a3, a1, n] + S2[a5, a2, a4, a3, a1, a1, n] + 
    S2[a5, a3, a2, a4, a1, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a1_, a1_, a4_, a3_, a2_, a5_, n_] :> 
  -(S2[a1, a1, a4, n]*S2[a2, a3, a5, n]) - S2[a1, a1, a4, n]*
     S2[a2, a5, a3, n] - S2[SP[a1, a2], SP[a1, a3], SP[a4, a5], n] - 
    S2[SP[a1, a2], SP[a1, a5], SP[a3, a4], n] + 
    S2[a2, a5, n]*S2[a1, a1, a4, a3, n] - S2[a1, a1, SP[a2, a4], SP[a3, a5], 
     n] + S2[a1, a2, SP[a1, a3], SP[a4, a5], n] + S2[a1, a2, SP[a1, a5], 
     SP[a3, a4], n] + S2[a1, SP[a1, a2], a3, SP[a4, a5], n] - 
    S2[a1, SP[a1, a2], a4, SP[a3, a5], n] + S2[a1, SP[a1, a2], a5, 
     SP[a3, a4], n] + S2[a1, SP[a1, a2], SP[a3, a4], a5, n] + 
    S2[a2, a1, SP[a1, a3], SP[a4, a5], n] + S2[a2, a1, SP[a1, a5], 
     SP[a3, a4], n] + S2[a2, SP[a1, a3], a1, SP[a4, a5], n] + 
    S2[a2, SP[a1, a3], SP[a1, a5], a4, n] + S2[a2, SP[a1, a5], a1, 
     SP[a3, a4], n] + S2[a2, SP[a1, a5], SP[a1, a3], a4, n] + 
    S2[SP[a1, a2], a1, a3, SP[a4, a5], n] - S2[SP[a1, a2], a1, a4, 
     SP[a3, a5], n] + S2[SP[a1, a2], a1, a5, SP[a3, a4], n] + 
    S2[SP[a1, a2], a1, SP[a3, a4], a5, n] + S2[SP[a1, a2], a3, a1, 
     SP[a4, a5], n] + S2[SP[a1, a2], a3, SP[a1, a5], a4, n] + 
    S2[SP[a1, a2], a5, a1, SP[a3, a4], n] + S2[SP[a1, a2], a5, SP[a1, a3], 
     a4, n] + S2[SP[a1, a2], SP[a1, a3], a4, a5, n] + 
    S2[SP[a1, a2], SP[a1, a3], a5, a4, n] + S2[SP[a1, a2], SP[a1, a5], a3, 
     a4, n] - S2[a1, a1, a2, a3, SP[a4, a5], n] + 
    S2[a1, a1, a2, a4, SP[a3, a5], n] - S2[a1, a1, a2, a5, SP[a3, a4], n] - 
    S2[a1, a1, a2, SP[a3, a4], a5, n] - S2[a5, n]*S2[a1, a1, a3, a2, a4, n] - 
    S2[a1, a1, a3, a2, SP[a4, a5], n] - S2[a5, n]*S2[a1, a1, a3, a4, a2, n] + 
    S2[a2, n]*S2[a1, a1, a3, a4, a5, n] + 
    S2[a2, n]*S2[a1, a1, a3, a5, a4, n] + S2[a1, a1, a3, a5, SP[a2, a4], n] + 
    S2[a1, a1, a3, SP[a2, a4], a5, n] - S2[a1, a1, a3, SP[a4, a5], a2, n] + 
    S2[a1, a1, a4, a2, SP[a3, a5], n] + S2[a1, a1, a4, SP[a2, a3], a5, n] + 
    S2[a2, n]*S2[a1, a1, a5, a3, a4, n] + S2[a1, a1, a5, a3, SP[a2, a4], n] + 
    S2[a1, a1, a5, SP[a2, a3], a4, n] + S2[a1, a1, SP[a2, a3], a4, a5, n] + 
    S2[a1, a1, SP[a2, a3], a5, a4, n] + S2[a1, a1, SP[a2, a5], a3, a4, n] - 
    S2[a1, a1, SP[a3, a5], a2, a4, n] - S2[a1, a1, SP[a3, a5], a4, a2, n] - 
    S2[a1, a2, a1, a3, SP[a4, a5], n] + S2[a1, a2, a1, a4, SP[a3, a5], n] - 
    S2[a1, a2, a1, a5, SP[a3, a4], n] - S2[a1, a2, a1, SP[a3, a4], a5, n] - 
    S2[a1, a2, a3, a1, SP[a4, a5], n] - S2[a1, a2, a3, SP[a1, a5], a4, n] - 
    S2[a1, a2, a5, a1, SP[a3, a4], n] - S2[a1, a2, a5, SP[a1, a3], a4, n] - 
    S2[a1, a2, SP[a1, a3], a4, a5, n] - S2[a1, a2, SP[a1, a3], a5, a4, n] - 
    S2[a1, a2, SP[a1, a5], a3, a4, n] - S2[a5, n]*S2[a1, a3, a1, a2, a4, n] - 
    S2[a1, a3, a1, a2, SP[a4, a5], n] - S2[a5, n]*S2[a1, a3, a1, a4, a2, n] + 
    S2[a2, n]*S2[a1, a3, a1, a4, a5, n] + 
    S2[a2, n]*S2[a1, a3, a1, a5, a4, n] + S2[a1, a3, a1, a5, SP[a2, a4], n] + 
    S2[a1, a3, a1, SP[a2, a4], a5, n] - S2[a1, a3, a1, SP[a4, a5], a2, n] - 
    S2[a5, n]*S2[a1, a3, a2, a1, a4, n] - S2[a1, a3, a2, a1, SP[a4, a5], n] - 
    S2[a1, a3, a2, SP[a1, a5], a4, n] + S2[a2, n]*S2[a1, a3, a5, a1, a4, n] + 
    S2[a1, a3, a5, a1, SP[a2, a4], n] + S2[a1, a3, a5, SP[a1, a2], a4, n] + 
    S2[a1, a3, SP[a1, a2], a4, a5, n] + S2[a1, a3, SP[a1, a2], a5, a4, n] - 
    S2[a1, a3, SP[a1, a5], a2, a4, n] - S2[a1, a3, SP[a1, a5], a4, a2, n] + 
    S2[a2, n]*S2[a1, a5, a1, a3, a4, n] + S2[a1, a5, a1, a3, SP[a2, a4], n] + 
    S2[a1, a5, a1, SP[a2, a3], a4, n] - (S2[a1, n]*S2[a1, a5, a2, a3, a4, n])/
     2 - S2[a1, a5, a2, a3, SP[a1, a4], n]/2 - 
    S2[a1, a5, a2, SP[a1, a3], a4, n]/2 + 
    S2[a2, n]*S2[a1, a5, a3, a1, a4, n] + S2[a1, a5, a3, a1, SP[a2, a4], n] + 
    S2[a1, a5, a3, SP[a1, a2], a4, n] + S2[a1, a5, SP[a1, a2], a3, a4, n]/2 + 
    S2[a1, a5, SP[a2, a3], a1, a4, n] - S2[a1, SP[a1, a5], a2, a3, a4, n]/2 - 
    S2[a1, SP[a1, a5], a3, a2, a4, n] - S2[a1, SP[a1, a5], a3, a4, a2, n] + 
    S2[a1, SP[a2, a3], a1, a4, a5, n] + S2[a1, SP[a2, a3], a1, a5, a4, n] + 
    S2[a1, SP[a2, a3], a5, a1, a4, n] + S2[a1, SP[a2, a5], a1, a3, a4, n] + 
    S2[a1, SP[a2, a5], a3, a1, a4, n] - S2[a1, SP[a3, a5], a1, a2, a4, n] - 
    S2[a1, SP[a3, a5], a1, a4, a2, n] - S2[a1, SP[a3, a5], a2, a1, a4, n] - 
    S2[a2, a1, a1, a3, SP[a4, a5], n] + S2[a2, a1, a1, a4, SP[a3, a5], n] - 
    S2[a2, a1, a1, a5, SP[a3, a4], n] - S2[a2, a1, a1, SP[a3, a4], a5, n] - 
    S2[a2, a1, a3, a1, SP[a4, a5], n] - S2[a2, a1, a3, SP[a1, a5], a4, n] - 
    S2[a2, a1, a5, a1, SP[a3, a4], n] - S2[a2, a1, a5, SP[a1, a3], a4, n] - 
    S2[a2, a1, SP[a1, a3], a4, a5, n] - S2[a2, a1, SP[a1, a3], a5, a4, n] - 
    S2[a2, a1, SP[a1, a5], a3, a4, n] + S2[a5, n]*S2[a2, a3, a1, a1, a4, n] - 
    S2[a2, a5, a1, a1, SP[a3, a4], n] - S2[a2, a5, a1, SP[a1, a3], a4, n] - 
    S2[a2, a5, SP[a1, a3], a1, a4, n] - S2[a2, SP[a1, a3], a1, a4, a5, n] - 
    S2[a2, SP[a1, a3], a1, a5, a4, n] - S2[a2, SP[a1, a3], a5, a1, a4, n] - 
    S2[a2, SP[a1, a5], a1, a3, a4, n] - S2[a2, SP[a1, a5], a3, a1, a4, n] + 
    S2[a2, SP[a3, a5], a1, a1, a4, n] + S2[a2, n]*S2[a5, a1, a1, a3, a4, n] + 
    S2[a5, a1, a1, a3, SP[a2, a4], n] + S2[a5, a1, a1, SP[a2, a3], a4, n] - 
    (S2[a1, n]*S2[a5, a1, a2, a3, a4, n])/2 - 
    S2[a5, a1, a2, a3, SP[a1, a4], n]/2 - S2[a5, a1, a2, SP[a1, a3], a4, n]/
     2 + S2[a2, n]*S2[a5, a1, a3, a1, a4, n] + S2[a5, a1, a3, a1, SP[a2, a4], 
     n] + S2[a5, a1, a3, SP[a1, a2], a4, n] + 
    S2[a5, a1, SP[a1, a2], a3, a4, n]/2 + S2[a5, a1, SP[a2, a3], a1, a4, n] - 
    (S2[a1, n]*S2[a5, a2, a1, a3, a4, n])/2 - 
    S2[a5, a2, a1, a3, SP[a1, a4], n]/2 - S2[a5, a2, a1, SP[a1, a3], a4, n]/
     2 - (S2[a1, n]*S2[a5, a2, a3, a1, a4, n])/2 - 
    S2[a5, a2, a3, a1, SP[a1, a4], n]/2 + 
    (S2[a1, n]*S2[a5, a2, a3, a4, a1, n])/2 + 
    S2[a5, a2, a3, a4, SP[a1, a1], n]/2 - S2[a5, a2, a3, SP[a1, a1], a4, n]/
     2 + S2[a5, a2, a3, SP[a1, a4], a1, n]/2 - 
    S2[a5, a2, SP[a1, a1], a3, a4, n]/2 - S2[a5, a2, SP[a1, a3], a1, a4, n]/
     2 + S2[a5, a2, SP[a1, a3], a4, a1, n]/2 - 
    S2[a5, SP[a1, a1], a2, a3, a4, n]/2 + S2[a5, SP[a1, a2], a1, a3, a4, n]/
     2 + S2[a5, SP[a1, a2], a3, a1, a4, n]/2 + 
    S2[a5, SP[a1, a2], a3, a4, a1, n]/2 - S2[SP[a1, a1], a5, a2, a3, a4, n]/
     2 - S2[SP[a1, a5], a1, a2, a3, a4, n]/2 - S2[SP[a1, a5], a1, a3, a2, a4, 
     n] - S2[SP[a1, a5], a1, a3, a4, a2, n] - 
    S2[SP[a1, a5], a2, a1, a3, a4, n]/2 - S2[SP[a1, a5], a2, a3, a1, a4, n]/
     2 + S2[SP[a1, a5], a2, a3, a4, a1, n]/2 - S2[SP[a1, a5], a3, a1, a2, a4, 
     n] - S2[SP[a1, a5], a3, a1, a4, a2, n] - S2[SP[a1, a5], a3, a2, a1, a4, 
     n] + S2[SP[a2, a5], a1, a1, a3, a4, n] + S2[SP[a2, a5], a1, a3, a1, a4, 
     n] + S2[SP[a2, a5], a3, a1, a1, a4, n] - S2[a5, a2, a3, a4, a1, a1, 
     n] /; MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a1_, a1_, a4_, a3_, a5_, a2_, n_] :> 
  S2[a1, a1, a4, n]*S2[a2, a5, a3, n] + S2[SP[a1, a2], SP[a1, a5], 
     SP[a3, a4], n] - S2[a2, a5, n]*S2[a1, a1, a4, a3, n] + 
    S2[a1, a1, SP[a2, a4], SP[a3, a5], n] - S2[a1, a2, SP[a1, a5], 
     SP[a3, a4], n] + S2[a1, SP[a1, a2], a4, SP[a3, a5], n] - 
    S2[a1, SP[a1, a2], a5, SP[a3, a4], n] - S2[a2, a1, SP[a1, a5], 
     SP[a3, a4], n] - S2[a2, SP[a1, a5], a1, SP[a3, a4], n] - 
    S2[a2, SP[a1, a5], SP[a1, a3], a4, n] + S2[SP[a1, a2], a1, a4, 
     SP[a3, a5], n] - S2[SP[a1, a2], a1, a5, SP[a3, a4], n] - 
    S2[SP[a1, a2], a5, a1, SP[a3, a4], n] - S2[SP[a1, a2], a5, SP[a1, a3], 
     a4, n] - S2[SP[a1, a2], SP[a1, a5], a3, a4, n] - 
    S2[a1, a1, a2, a4, SP[a3, a5], n] + S2[a1, a1, a2, a5, SP[a3, a4], n] - 
    S2[a1, a1, a4, a2, SP[a3, a5], n] + S2[a2, n]*S2[a1, a1, a4, a3, a5, n] + 
    S2[a1, a1, a4, a3, SP[a2, a5], n] - S2[a2, n]*S2[a1, a1, a5, a3, a4, n] - 
    S2[a1, a1, a5, a3, SP[a2, a4], n] - S2[a1, a1, a5, SP[a2, a3], a4, n] - 
    S2[a1, a1, SP[a2, a5], a3, a4, n] - S2[a1, a2, a1, a4, SP[a3, a5], n] + 
    S2[a1, a2, a1, a5, SP[a3, a4], n] + S2[a1, a2, a5, a1, SP[a3, a4], n] + 
    S2[a1, a2, a5, SP[a1, a3], a4, n] + S2[a1, a2, SP[a1, a5], a3, a4, n] - 
    S2[a2, n]*S2[a1, a5, a1, a3, a4, n] - S2[a1, a5, a1, a3, SP[a2, a4], n] - 
    S2[a1, a5, a1, SP[a2, a3], a4, n] + (S2[a1, n]*S2[a1, a5, a2, a3, a4, n])/
     2 + S2[a1, a5, a2, a3, SP[a1, a4], n]/2 + 
    S2[a1, a5, a2, SP[a1, a3], a4, n]/2 - 
    S2[a2, n]*S2[a1, a5, a3, a1, a4, n] - S2[a1, a5, a3, a1, SP[a2, a4], n] + 
    (S2[a1, n]*S2[a1, a5, a3, a2, a4, n])/2 + 
    S2[a1, a5, a3, a2, SP[a1, a4], n]/2 + 
    (S2[a1, n]*S2[a1, a5, a3, a4, a2, n])/2 + 
    S2[a1, a5, a3, a4, SP[a1, a2], n]/2 - S2[a1, a5, a3, SP[a1, a2], a4, n]/
     2 + S2[a1, a5, a3, SP[a1, a4], a2, n]/2 - 
    S2[a1, a5, SP[a1, a2], a3, a4, n]/2 + S2[a1, a5, SP[a1, a3], a2, a4, n]/
     2 + S2[a1, a5, SP[a1, a3], a4, a2, n]/2 - S2[a1, a5, SP[a2, a3], a1, a4, 
     n] + S2[a1, SP[a1, a5], a2, a3, a4, n]/2 + 
    S2[a1, SP[a1, a5], a3, a2, a4, n]/2 + S2[a1, SP[a1, a5], a3, a4, a2, n]/
     2 - S2[a1, SP[a2, a5], a1, a3, a4, n] - S2[a1, SP[a2, a5], a3, a1, a4, 
     n] - S2[a2, a1, a1, a4, SP[a3, a5], n] + S2[a2, a1, a1, a5, SP[a3, a4], 
     n] + S2[a2, a1, a5, a1, SP[a3, a4], n] + S2[a2, a1, a5, SP[a1, a3], a4, 
     n] + S2[a2, a1, SP[a1, a5], a3, a4, n] + S2[a2, a5, a1, a1, SP[a3, a4], 
     n] + S2[a2, a5, a1, SP[a1, a3], a4, n] + S2[a2, a5, SP[a1, a3], a1, a4, 
     n] + S2[a2, SP[a1, a5], a1, a3, a4, n] + S2[a2, SP[a1, a5], a3, a1, a4, 
     n] - S2[a2, n]*S2[a5, a1, a1, a3, a4, n] - S2[a5, a1, a1, a3, 
     SP[a2, a4], n] - S2[a5, a1, a1, SP[a2, a3], a4, n] + 
    (S2[a1, n]*S2[a5, a1, a2, a3, a4, n])/2 + 
    S2[a5, a1, a2, a3, SP[a1, a4], n]/2 + S2[a5, a1, a2, SP[a1, a3], a4, n]/
     2 - S2[a2, n]*S2[a5, a1, a3, a1, a4, n] - S2[a5, a1, a3, a1, SP[a2, a4], 
     n] + (S2[a1, n]*S2[a5, a1, a3, a2, a4, n])/2 + 
    S2[a5, a1, a3, a2, SP[a1, a4], n]/2 + 
    (S2[a1, n]*S2[a5, a1, a3, a4, a2, n])/2 + 
    S2[a5, a1, a3, a4, SP[a1, a2], n]/2 - S2[a5, a1, a3, SP[a1, a2], a4, n]/
     2 + S2[a5, a1, a3, SP[a1, a4], a2, n]/2 - 
    S2[a5, a1, SP[a1, a2], a3, a4, n]/2 + S2[a5, a1, SP[a1, a3], a2, a4, n]/
     2 + S2[a5, a1, SP[a1, a3], a4, a2, n]/2 - S2[a5, a1, SP[a2, a3], a1, a4, 
     n] + (S2[a1, n]*S2[a5, a2, a1, a3, a4, n])/2 + 
    S2[a5, a2, a1, a3, SP[a1, a4], n]/2 + S2[a5, a2, a1, SP[a1, a3], a4, n]/
     2 + (S2[a1, n]*S2[a5, a2, a3, a1, a4, n])/2 + 
    S2[a5, a2, a3, a1, SP[a1, a4], n]/2 - 
    (S2[a1, n]*S2[a5, a2, a3, a4, a1, n])/2 - 
    S2[a5, a2, a3, a4, SP[a1, a1], n]/2 + S2[a5, a2, a3, SP[a1, a1], a4, n]/
     2 - S2[a5, a2, a3, SP[a1, a4], a1, n]/2 + 
    S2[a5, a2, SP[a1, a1], a3, a4, n]/2 + S2[a5, a2, SP[a1, a3], a1, a4, n]/
     2 - S2[a5, a2, SP[a1, a3], a4, a1, n]/2 - 
    S2[a2, n]*S2[a5, a3, a1, a1, a4, n] - S2[a5, a3, a1, a1, SP[a2, a4], n] + 
    (S2[a1, n]*S2[a5, a3, a1, a2, a4, n])/2 + 
    S2[a5, a3, a1, a2, SP[a1, a4], n]/2 + 
    (S2[a1, n]*S2[a5, a3, a1, a4, a2, n])/2 + 
    S2[a5, a3, a1, a4, SP[a1, a2], n]/2 - S2[a5, a3, a1, SP[a1, a2], a4, n]/
     2 + S2[a5, a3, a1, SP[a1, a4], a2, n]/2 + 
    (S2[a1, n]*S2[a5, a3, a2, a1, a4, n])/2 + 
    S2[a5, a3, a2, a1, SP[a1, a4], n]/2 - 
    (S2[a1, n]*S2[a5, a3, a2, a4, a1, n])/2 - 
    S2[a5, a3, a2, a4, SP[a1, a1], n]/2 + S2[a5, a3, a2, SP[a1, a1], a4, n]/
     2 - S2[a5, a3, a2, SP[a1, a4], a1, n]/2 - 
    (S2[a1, n]*S2[a5, a3, a4, a1, a2, n])/2 - 
    S2[a5, a3, a4, a1, SP[a1, a2], n]/2 - 
    (S2[a1, n]*S2[a5, a3, a4, a2, a1, n])/2 - 
    S2[a5, a3, a4, a2, SP[a1, a1], n]/2 - S2[a5, a3, a4, SP[a1, a1], a2, n]/
     2 - S2[a5, a3, a4, SP[a1, a2], a1, n]/2 + 
    S2[a5, a3, SP[a1, a1], a2, a4, n]/2 + S2[a5, a3, SP[a1, a1], a4, a2, n]/
     2 - S2[a5, a3, SP[a1, a2], a1, a4, n]/2 - 
    S2[a5, a3, SP[a1, a2], a4, a1, n]/2 - S2[a5, a3, SP[a1, a4], a1, a2, n]/
     2 - S2[a5, a3, SP[a1, a4], a2, a1, n]/2 + 
    S2[a5, SP[a1, a1], a2, a3, a4, n]/2 + S2[a5, SP[a1, a1], a3, a2, a4, n]/
     2 + S2[a5, SP[a1, a1], a3, a4, a2, n]/2 - 
    S2[a5, SP[a1, a2], a1, a3, a4, n]/2 - S2[a5, SP[a1, a2], a3, a1, a4, n]/
     2 - S2[a5, SP[a1, a2], a3, a4, a1, n]/2 + 
    S2[a5, SP[a1, a3], a1, a2, a4, n]/2 + S2[a5, SP[a1, a3], a1, a4, a2, n]/
     2 + S2[a5, SP[a1, a3], a2, a1, a4, n]/2 - 
    S2[a5, SP[a1, a3], a2, a4, a1, n]/2 - S2[a5, SP[a1, a3], a4, a1, a2, n]/
     2 - S2[a5, SP[a1, a3], a4, a2, a1, n]/2 - S2[a5, SP[a2, a3], a1, a1, a4, 
     n] + S2[SP[a1, a1], a5, a2, a3, a4, n]/2 + 
    S2[SP[a1, a1], a5, a3, a2, a4, n]/2 + S2[SP[a1, a1], a5, a3, a4, a2, n]/
     2 + S2[SP[a1, a5], a1, a2, a3, a4, n]/2 + 
    S2[SP[a1, a5], a1, a3, a2, a4, n]/2 + S2[SP[a1, a5], a1, a3, a4, a2, n]/
     2 + S2[SP[a1, a5], a2, a1, a3, a4, n]/2 + 
    S2[SP[a1, a5], a2, a3, a1, a4, n]/2 - S2[SP[a1, a5], a2, a3, a4, a1, n]/
     2 + S2[SP[a1, a5], a3, a1, a2, a4, n]/2 + 
    S2[SP[a1, a5], a3, a1, a4, a2, n]/2 + S2[SP[a1, a5], a3, a2, a1, a4, n]/
     2 - S2[SP[a1, a5], a3, a2, a4, a1, n]/2 - 
    S2[SP[a1, a5], a3, a4, a1, a2, n]/2 - S2[SP[a1, a5], a3, a4, a2, a1, n]/
     2 - S2[SP[a2, a5], a1, a1, a3, a4, n] - S2[SP[a2, a5], a1, a3, a1, a4, 
     n] - S2[SP[a2, a5], a3, a1, a1, a4, n] + S2[a5, a2, a3, a4, a1, a1, n] + 
    S2[a5, a3, a2, a4, a1, a1, n] + S2[a5, a3, a4, a1, a1, a2, n] + 
    S2[a5, a3, a4, a1, a2, a1, n] + S2[a5, a3, a4, a2, a1, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a1_, a1_, a4_, a5_, a2_, a3_, n_] :> 
  -(S2[a1, a1, a4, n]*S2[a2, a3, a5, n]) - S2[a1, a1, a4, n]*
     S2[a2, a5, a3, n] - S2[SP[a1, a2], SP[a1, a3], SP[a4, a5], n] - 
    S2[SP[a1, a2], SP[a1, a5], SP[a3, a4], n] + S2[a1, a2, SP[a1, a3], 
     SP[a4, a5], n] + S2[a1, a2, SP[a1, a5], SP[a3, a4], n] + 
    S2[a1, SP[a1, a2], a3, SP[a4, a5], n] + S2[a1, SP[a1, a2], a5, 
     SP[a3, a4], n] + S2[a1, SP[a1, a2], SP[a3, a4], a5, n] + 
    S2[a1, SP[a1, a2], SP[a4, a5], a3, n] + S2[a2, a1, SP[a1, a3], 
     SP[a4, a5], n] + S2[a2, a1, SP[a1, a5], SP[a3, a4], n] + 
    S2[a2, SP[a1, a3], a1, SP[a4, a5], n] + S2[a2, SP[a1, a3], SP[a1, a5], 
     a4, n] + S2[a2, SP[a1, a5], a1, SP[a3, a4], n] + 
    S2[a2, SP[a1, a5], SP[a1, a3], a4, n] + S2[SP[a1, a2], a1, a3, 
     SP[a4, a5], n] + S2[SP[a1, a2], a1, a5, SP[a3, a4], n] + 
    S2[SP[a1, a2], a1, SP[a3, a4], a5, n] + S2[SP[a1, a2], a1, SP[a4, a5], 
     a3, n] + S2[SP[a1, a2], a3, a1, SP[a4, a5], n] + 
    S2[SP[a1, a2], a3, SP[a1, a5], a4, n] + S2[SP[a1, a2], a5, a1, 
     SP[a3, a4], n] + S2[SP[a1, a2], a5, SP[a1, a3], a4, n] + 
    S2[SP[a1, a2], SP[a1, a3], a4, a5, n] + S2[SP[a1, a2], SP[a1, a3], a5, 
     a4, n] + S2[SP[a1, a2], SP[a1, a5], a3, a4, n] + 
    S2[SP[a1, a2], SP[a1, a5], a4, a3, n] - S2[a1, a1, a2, a3, SP[a4, a5], 
     n] - S2[a1, a1, a2, a5, SP[a3, a4], n] - S2[a1, a1, a2, SP[a3, a4], a5, 
     n] - S2[a1, a1, a2, SP[a4, a5], a3, n] - 
    S2[a5, n]*S2[a1, a1, a3, a2, a4, n] - S2[a1, a1, a3, a2, SP[a4, a5], n] - 
    S2[a5, n]*S2[a1, a1, a3, a4, a2, n] + 
    S2[a2, n]*S2[a1, a1, a3, a4, a5, n] + 
    S2[a2, n]*S2[a1, a1, a3, a5, a4, n] + S2[a1, a1, a3, a5, SP[a2, a4], n] + 
    S2[a1, a1, a3, SP[a2, a4], a5, n] - S2[a1, a1, a3, SP[a4, a5], a2, n] - 
    S2[a5, n]*S2[a1, a1, a4, a3, a2, n] + 
    S2[a2, n]*S2[a1, a1, a4, a3, a5, n] + 
    S2[a2, n]*S2[a1, a1, a4, a5, a3, n] + S2[a1, a1, a4, a5, SP[a2, a3], n] + 
    S2[a1, a1, a4, SP[a2, a3], a5, n] + S2[a1, a1, a4, SP[a2, a5], a3, n] - 
    S2[a1, a1, a4, SP[a3, a5], a2, n] + S2[a2, n]*S2[a1, a1, a5, a3, a4, n] + 
    S2[a1, a1, a5, a3, SP[a2, a4], n] + S2[a2, n]*S2[a1, a1, a5, a4, a3, n] + 
    S2[a1, a1, a5, a4, SP[a2, a3], n] + S2[a1, a1, a5, SP[a2, a3], a4, n] + 
    S2[a1, a1, a5, SP[a2, a4], a3, n] + S2[a1, a1, SP[a2, a3], a4, a5, n] + 
    S2[a1, a1, SP[a2, a3], a5, a4, n] + S2[a1, a1, SP[a2, a5], a3, a4, n] + 
    S2[a1, a1, SP[a2, a5], a4, a3, n] - S2[a1, a1, SP[a3, a5], a2, a4, n] - 
    S2[a1, a1, SP[a3, a5], a4, a2, n] - S2[a1, a1, SP[a4, a5], a3, a2, n] - 
    S2[a1, a2, a1, a3, SP[a4, a5], n] - S2[a1, a2, a1, a5, SP[a3, a4], n] - 
    S2[a1, a2, a1, SP[a3, a4], a5, n] - S2[a1, a2, a1, SP[a4, a5], a3, n] - 
    S2[a1, a2, a3, a1, SP[a4, a5], n] - S2[a1, a2, a3, SP[a1, a5], a4, n] - 
    S2[a1, a2, a5, a1, SP[a3, a4], n] - S2[a1, a2, a5, SP[a1, a3], a4, n] - 
    S2[a1, a2, SP[a1, a3], a4, a5, n] - S2[a1, a2, SP[a1, a3], a5, a4, n] - 
    S2[a1, a2, SP[a1, a5], a3, a4, n] - S2[a1, a2, SP[a1, a5], a4, a3, n] - 
    S2[a5, n]*S2[a1, a3, a1, a2, a4, n] - S2[a1, a3, a1, a2, SP[a4, a5], n] - 
    S2[a5, n]*S2[a1, a3, a1, a4, a2, n] + 
    S2[a2, n]*S2[a1, a3, a1, a4, a5, n] + 
    S2[a2, n]*S2[a1, a3, a1, a5, a4, n] + S2[a1, a3, a1, a5, SP[a2, a4], n] + 
    S2[a1, a3, a1, SP[a2, a4], a5, n] - S2[a1, a3, a1, SP[a4, a5], a2, n] - 
    S2[a5, n]*S2[a1, a3, a2, a1, a4, n] - S2[a1, a3, a2, a1, SP[a4, a5], n] - 
    S2[a1, a3, a2, SP[a1, a5], a4, n] + S2[a2, n]*S2[a1, a3, a5, a1, a4, n] + 
    S2[a1, a3, a5, a1, SP[a2, a4], n] + S2[a1, a3, a5, SP[a1, a2], a4, n] + 
    S2[a1, a3, SP[a1, a2], a4, a5, n] + S2[a1, a3, SP[a1, a2], a5, a4, n] - 
    S2[a1, a3, SP[a1, a5], a2, a4, n] - S2[a1, a3, SP[a1, a5], a4, a2, n] + 
    S2[a2, n]*S2[a1, a5, a1, a3, a4, n] + S2[a1, a5, a1, a3, SP[a2, a4], n] + 
    S2[a2, n]*S2[a1, a5, a1, a4, a3, n] + S2[a1, a5, a1, a4, SP[a2, a3], n] + 
    S2[a1, a5, a1, SP[a2, a3], a4, n] + S2[a1, a5, a1, SP[a2, a4], a3, n] - 
    (S2[a1, n]*S2[a1, a5, a2, a3, a4, n])/2 - 
    S2[a1, a5, a2, a3, SP[a1, a4], n]/2 - 
    (S2[a1, n]*S2[a1, a5, a2, a4, a3, n])/2 - 
    S2[a1, a5, a2, a4, SP[a1, a3], n]/2 - S2[a1, a5, a2, SP[a1, a3], a4, n]/
     2 - S2[a1, a5, a2, SP[a1, a4], a3, n]/2 + 
    S2[a2, n]*S2[a1, a5, a3, a1, a4, n] + S2[a1, a5, a3, a1, SP[a2, a4], n] + 
    S2[a1, a5, a3, SP[a1, a2], a4, n] - (S2[a1, n]*S2[a1, a5, a4, a2, a3, n])/
     2 - S2[a1, a5, a4, a2, SP[a1, a3], n]/2 - 
    S2[a1, a5, a4, SP[a1, a2], a3, n]/2 + S2[a1, a5, SP[a1, a2], a3, a4, n]/
     2 + S2[a1, a5, SP[a1, a2], a4, a3, n]/2 - 
    S2[a1, a5, SP[a1, a4], a2, a3, n]/2 + S2[a1, a5, SP[a2, a3], a1, a4, n] - 
    S2[a1, SP[a1, a5], a2, a3, a4, n]/2 - S2[a1, SP[a1, a5], a2, a4, a3, n]/
     2 - S2[a1, SP[a1, a5], a3, a2, a4, n] - S2[a1, SP[a1, a5], a3, a4, a2, 
     n] - S2[a1, SP[a1, a5], a4, a2, a3, n]/2 - S2[a1, SP[a1, a5], a4, a3, 
     a2, n] + S2[a1, SP[a2, a3], a1, a4, a5, n] + S2[a1, SP[a2, a3], a1, a5, 
     a4, n] + S2[a1, SP[a2, a3], a5, a1, a4, n] + S2[a1, SP[a2, a5], a1, a3, 
     a4, n] + S2[a1, SP[a2, a5], a1, a4, a3, n] + S2[a1, SP[a2, a5], a3, a1, 
     a4, n] - S2[a1, SP[a3, a5], a1, a2, a4, n] - S2[a1, SP[a3, a5], a1, a4, 
     a2, n] - S2[a1, SP[a3, a5], a2, a1, a4, n] - 
    S2[a2, a1, a1, a3, SP[a4, a5], n] - S2[a2, a1, a1, a5, SP[a3, a4], n] - 
    S2[a2, a1, a1, SP[a3, a4], a5, n] - S2[a2, a1, a1, SP[a4, a5], a3, n] - 
    S2[a2, a1, a3, a1, SP[a4, a5], n] - S2[a2, a1, a3, SP[a1, a5], a4, n] - 
    S2[a2, a1, a5, a1, SP[a3, a4], n] - S2[a2, a1, a5, SP[a1, a3], a4, n] - 
    S2[a2, a1, SP[a1, a3], a4, a5, n] - S2[a2, a1, SP[a1, a3], a5, a4, n] - 
    S2[a2, a1, SP[a1, a5], a3, a4, n] - S2[a2, a1, SP[a1, a5], a4, a3, n] + 
    S2[a5, n]*S2[a2, a3, a1, a1, a4, n] - S2[a2, a5, a1, a1, SP[a3, a4], n] - 
    S2[a2, a5, a1, SP[a1, a3], a4, n] - S2[a2, a5, SP[a1, a3], a1, a4, n] - 
    S2[a2, SP[a1, a3], a1, a4, a5, n] - S2[a2, SP[a1, a3], a1, a5, a4, n] - 
    S2[a2, SP[a1, a3], a5, a1, a4, n] - S2[a2, SP[a1, a5], a1, a3, a4, n] - 
    S2[a2, SP[a1, a5], a1, a4, a3, n] - S2[a2, SP[a1, a5], a3, a1, a4, n] + 
    S2[a2, SP[a3, a5], a1, a1, a4, n] + S2[a2, n]*S2[a5, a1, a1, a3, a4, n] + 
    S2[a5, a1, a1, a3, SP[a2, a4], n] + S2[a2, n]*S2[a5, a1, a1, a4, a3, n] + 
    S2[a5, a1, a1, a4, SP[a2, a3], n] + S2[a5, a1, a1, SP[a2, a3], a4, n] + 
    S2[a5, a1, a1, SP[a2, a4], a3, n] - (S2[a1, n]*S2[a5, a1, a2, a3, a4, n])/
     2 - S2[a5, a1, a2, a3, SP[a1, a4], n]/2 - 
    (S2[a1, n]*S2[a5, a1, a2, a4, a3, n])/2 - 
    S2[a5, a1, a2, a4, SP[a1, a3], n]/2 - S2[a5, a1, a2, SP[a1, a3], a4, n]/
     2 - S2[a5, a1, a2, SP[a1, a4], a3, n]/2 + 
    S2[a2, n]*S2[a5, a1, a3, a1, a4, n] + S2[a5, a1, a3, a1, SP[a2, a4], n] + 
    S2[a5, a1, a3, SP[a1, a2], a4, n] - (S2[a1, n]*S2[a5, a1, a4, a2, a3, n])/
     2 - S2[a5, a1, a4, a2, SP[a1, a3], n]/2 - 
    S2[a5, a1, a4, SP[a1, a2], a3, n]/2 + S2[a5, a1, SP[a1, a2], a3, a4, n]/
     2 + S2[a5, a1, SP[a1, a2], a4, a3, n]/2 - 
    S2[a5, a1, SP[a1, a4], a2, a3, n]/2 + S2[a5, a1, SP[a2, a3], a1, a4, n] - 
    (S2[a1, n]*S2[a5, a2, a1, a3, a4, n])/2 - 
    S2[a5, a2, a1, a3, SP[a1, a4], n]/2 - 
    (S2[a1, n]*S2[a5, a2, a1, a4, a3, n])/2 - 
    S2[a5, a2, a1, a4, SP[a1, a3], n]/2 - S2[a5, a2, a1, SP[a1, a3], a4, n]/
     2 - S2[a5, a2, a1, SP[a1, a4], a3, n]/2 - 
    (S2[a1, n]*S2[a5, a2, a3, a1, a4, n])/2 - 
    S2[a5, a2, a3, a1, SP[a1, a4], n]/2 + 
    (S2[a1, n]*S2[a5, a2, a3, a4, a1, n])/2 + 
    S2[a5, a2, a3, a4, SP[a1, a1], n]/2 - S2[a5, a2, a3, SP[a1, a1], a4, n]/
     2 + S2[a5, a2, a3, SP[a1, a4], a1, n]/2 + 
    (S2[a1, n]*S2[a5, a2, a4, a1, a3, n])/2 + 
    S2[a5, a2, a4, a1, SP[a1, a3], n]/2 + 
    (S2[a1, n]*S2[a5, a2, a4, a3, a1, n])/2 + 
    S2[a5, a2, a4, a3, SP[a1, a1], n]/2 + S2[a5, a2, a4, SP[a1, a1], a3, n]/
     2 + S2[a5, a2, a4, SP[a1, a3], a1, n]/2 - 
    S2[a5, a2, SP[a1, a1], a3, a4, n]/2 - S2[a5, a2, SP[a1, a1], a4, a3, n]/
     2 - S2[a5, a2, SP[a1, a3], a1, a4, n]/2 + 
    S2[a5, a2, SP[a1, a3], a4, a1, n]/2 + S2[a5, a2, SP[a1, a4], a1, a3, n]/
     2 + S2[a5, a2, SP[a1, a4], a3, a1, n]/2 + 
    (S2[a1, n]*S2[a5, a4, a1, a2, a3, n])/2 + 
    S2[a5, a4, a1, a2, SP[a1, a3], n]/2 + S2[a5, a4, a1, SP[a1, a2], a3, n]/
     2 + (S2[a1, n]*S2[a5, a4, a2, a1, a3, n])/2 + 
    S2[a5, a4, a2, a1, SP[a1, a3], n]/2 + 
    (S2[a1, n]*S2[a5, a4, a2, a3, a1, n])/2 + 
    S2[a5, a4, a2, a3, SP[a1, a1], n]/2 + S2[a5, a4, a2, SP[a1, a1], a3, n]/
     2 + S2[a5, a4, a2, SP[a1, a3], a1, n]/2 + 
    S2[a5, a4, SP[a1, a1], a2, a3, n]/2 + S2[a5, a4, SP[a1, a2], a1, a3, n]/
     2 + S2[a5, a4, SP[a1, a2], a3, a1, n]/2 - 
    S2[a5, SP[a1, a1], a2, a3, a4, n]/2 - S2[a5, SP[a1, a1], a2, a4, a3, n]/
     2 - S2[a5, SP[a1, a1], a4, a2, a3, n]/2 + 
    S2[a5, SP[a1, a2], a1, a3, a4, n]/2 + S2[a5, SP[a1, a2], a1, a4, a3, n]/
     2 + S2[a5, SP[a1, a2], a3, a1, a4, n]/2 + 
    S2[a5, SP[a1, a2], a3, a4, a1, n]/2 + S2[a5, SP[a1, a2], a4, a1, a3, n]/
     2 + S2[a5, SP[a1, a2], a4, a3, a1, n]/2 + 
    S2[a5, SP[a1, a4], a1, a2, a3, n]/2 + S2[a5, SP[a1, a4], a2, a1, a3, n]/
     2 + S2[a5, SP[a1, a4], a2, a3, a1, n]/2 - 
    S2[SP[a1, a1], a5, a2, a3, a4, n]/2 - S2[SP[a1, a1], a5, a2, a4, a3, n]/
     2 - S2[SP[a1, a1], a5, a4, a2, a3, n]/2 - 
    S2[SP[a1, a5], a1, a2, a3, a4, n]/2 - S2[SP[a1, a5], a1, a2, a4, a3, n]/
     2 - S2[SP[a1, a5], a1, a3, a2, a4, n] - S2[SP[a1, a5], a1, a3, a4, a2, 
     n] - S2[SP[a1, a5], a1, a4, a2, a3, n]/2 - S2[SP[a1, a5], a1, a4, a3, 
     a2, n] - S2[SP[a1, a5], a2, a1, a3, a4, n]/2 - 
    S2[SP[a1, a5], a2, a1, a4, a3, n]/2 - S2[SP[a1, a5], a2, a3, a1, a4, n]/
     2 + S2[SP[a1, a5], a2, a3, a4, a1, n]/2 + 
    S2[SP[a1, a5], a2, a4, a1, a3, n]/2 + S2[SP[a1, a5], a2, a4, a3, a1, n]/
     2 - S2[SP[a1, a5], a3, a1, a2, a4, n] - S2[SP[a1, a5], a3, a1, a4, a2, 
     n] - S2[SP[a1, a5], a3, a2, a1, a4, n] + 
    S2[SP[a1, a5], a4, a1, a2, a3, n]/2 + S2[SP[a1, a5], a4, a2, a1, a3, n]/
     2 + S2[SP[a1, a5], a4, a2, a3, a1, n]/2 + S2[SP[a2, a5], a1, a1, a3, a4, 
     n] + S2[SP[a2, a5], a1, a1, a4, a3, n] + S2[SP[a2, a5], a1, a3, a1, a4, 
     n] + S2[SP[a2, a5], a3, a1, a1, a4, n] - S2[a5, a2, a3, a4, a1, a1, n] - 
    S2[a5, a2, a4, a1, a1, a3, n] - S2[a5, a2, a4, a1, a3, a1, n] - 
    S2[a5, a2, a4, a3, a1, a1, n] - S2[a5, a4, a1, a1, a2, a3, n] - 
    S2[a5, a4, a1, a2, a1, a3, n] - S2[a5, a4, a1, a2, a3, a1, n] - 
    S2[a5, a4, a2, a1, a1, a3, n] - S2[a5, a4, a2, a1, a3, a1, n] - 
    S2[a5, a4, a2, a3, a1, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a1_, a1_, a4_, a5_, a3_, a2_, n_] :> 
  S2[a1, a1, a4, n]*S2[a2, a3, a5, n] + S2[SP[a1, a2], SP[a1, a3], 
     SP[a4, a5], n] - S2[a1, a2, SP[a1, a3], SP[a4, a5], n] - 
    S2[a1, SP[a1, a2], a3, SP[a4, a5], n] - S2[a1, SP[a1, a2], SP[a3, a4], 
     a5, n] - S2[a2, a1, SP[a1, a3], SP[a4, a5], n] - 
    S2[a2, SP[a1, a3], a1, SP[a4, a5], n] - S2[a2, SP[a1, a3], SP[a1, a5], 
     a4, n] - S2[SP[a1, a2], a1, a3, SP[a4, a5], n] - 
    S2[SP[a1, a2], a1, SP[a3, a4], a5, n] - S2[SP[a1, a2], a3, a1, 
     SP[a4, a5], n] - S2[SP[a1, a2], a3, SP[a1, a5], a4, n] - 
    S2[SP[a1, a2], SP[a1, a3], a4, a5, n] - S2[SP[a1, a2], SP[a1, a3], a5, 
     a4, n] + S2[a1, a1, a2, a3, SP[a4, a5], n] + S2[a1, a1, a2, SP[a3, a4], 
     a5, n] + S2[a5, n]*S2[a1, a1, a3, a2, a4, n] + 
    S2[a1, a1, a3, a2, SP[a4, a5], n] + S2[a5, n]*S2[a1, a1, a3, a4, a2, n] - 
    S2[a2, n]*S2[a1, a1, a3, a4, a5, n] - 
    S2[a2, n]*S2[a1, a1, a3, a5, a4, n] - S2[a1, a1, a3, a5, SP[a2, a4], n] - 
    S2[a1, a1, a3, SP[a2, a4], a5, n] + S2[a1, a1, a3, SP[a4, a5], a2, n] + 
    S2[a5, n]*S2[a1, a1, a4, a3, a2, n] - 
    S2[a2, n]*S2[a1, a1, a4, a3, a5, n] - S2[a1, a1, a4, SP[a2, a3], a5, n] + 
    S2[a1, a1, a4, SP[a3, a5], a2, n] - S2[a1, a1, SP[a2, a3], a4, a5, n] - 
    S2[a1, a1, SP[a2, a3], a5, a4, n] + S2[a1, a1, SP[a3, a5], a2, a4, n] + 
    S2[a1, a1, SP[a3, a5], a4, a2, n] + S2[a1, a1, SP[a4, a5], a3, a2, n] + 
    S2[a1, a2, a1, a3, SP[a4, a5], n] + S2[a1, a2, a1, SP[a3, a4], a5, n] + 
    S2[a1, a2, a3, a1, SP[a4, a5], n] + S2[a1, a2, a3, SP[a1, a5], a4, n] + 
    S2[a1, a2, SP[a1, a3], a4, a5, n] + S2[a1, a2, SP[a1, a3], a5, a4, n] + 
    S2[a5, n]*S2[a1, a3, a1, a2, a4, n] + S2[a1, a3, a1, a2, SP[a4, a5], n] + 
    S2[a5, n]*S2[a1, a3, a1, a4, a2, n] - 
    S2[a2, n]*S2[a1, a3, a1, a4, a5, n] - 
    S2[a2, n]*S2[a1, a3, a1, a5, a4, n] - S2[a1, a3, a1, a5, SP[a2, a4], n] - 
    S2[a1, a3, a1, SP[a2, a4], a5, n] + S2[a1, a3, a1, SP[a4, a5], a2, n] + 
    S2[a5, n]*S2[a1, a3, a2, a1, a4, n] + S2[a1, a3, a2, a1, SP[a4, a5], n] + 
    S2[a1, a3, a2, SP[a1, a5], a4, n] - S2[a2, n]*S2[a1, a3, a5, a1, a4, n] - 
    S2[a1, a3, a5, a1, SP[a2, a4], n] - S2[a1, a3, a5, SP[a1, a2], a4, n] - 
    S2[a1, a3, SP[a1, a2], a4, a5, n] - S2[a1, a3, SP[a1, a2], a5, a4, n] + 
    S2[a1, a3, SP[a1, a5], a2, a4, n] + S2[a1, a3, SP[a1, a5], a4, a2, n] - 
    (S2[a1, n]*S2[a1, a5, a3, a2, a4, n])/2 - 
    S2[a1, a5, a3, a2, SP[a1, a4], n]/2 - 
    (S2[a1, n]*S2[a1, a5, a3, a4, a2, n])/2 - 
    S2[a1, a5, a3, a4, SP[a1, a2], n]/2 - S2[a1, a5, a3, SP[a1, a2], a4, n]/
     2 - S2[a1, a5, a3, SP[a1, a4], a2, n]/2 - 
    (S2[a1, n]*S2[a1, a5, a4, a3, a2, n])/2 - 
    S2[a1, a5, a4, a3, SP[a1, a2], n]/2 - S2[a1, a5, a4, SP[a1, a3], a2, n]/
     2 - S2[a1, a5, SP[a1, a3], a2, a4, n]/2 - 
    S2[a1, a5, SP[a1, a3], a4, a2, n]/2 - S2[a1, a5, SP[a1, a4], a3, a2, n]/
     2 + S2[a1, SP[a1, a5], a3, a2, a4, n]/2 + 
    S2[a1, SP[a1, a5], a3, a4, a2, n]/2 + S2[a1, SP[a1, a5], a4, a3, a2, n]/
     2 - S2[a1, SP[a2, a3], a1, a4, a5, n] - S2[a1, SP[a2, a3], a1, a5, a4, 
     n] - S2[a1, SP[a2, a3], a5, a1, a4, n] + S2[a1, SP[a3, a5], a1, a2, a4, 
     n] + S2[a1, SP[a3, a5], a1, a4, a2, n] + S2[a1, SP[a3, a5], a2, a1, a4, 
     n] + S2[a2, a1, a1, a3, SP[a4, a5], n] + S2[a2, a1, a1, SP[a3, a4], a5, 
     n] + S2[a2, a1, a3, a1, SP[a4, a5], n] + S2[a2, a1, a3, SP[a1, a5], a4, 
     n] + S2[a2, a1, SP[a1, a3], a4, a5, n] + S2[a2, a1, SP[a1, a3], a5, a4, 
     n] - S2[a5, n]*S2[a2, a3, a1, a1, a4, n] + S2[a2, SP[a1, a3], a1, a4, 
     a5, n] + S2[a2, SP[a1, a3], a1, a5, a4, n] + S2[a2, SP[a1, a3], a5, a1, 
     a4, n] - S2[a2, SP[a3, a5], a1, a1, a4, n] - 
    (S2[a1, n]*S2[a5, a1, a3, a2, a4, n])/2 - 
    S2[a5, a1, a3, a2, SP[a1, a4], n]/2 - 
    (S2[a1, n]*S2[a5, a1, a3, a4, a2, n])/2 - 
    S2[a5, a1, a3, a4, SP[a1, a2], n]/2 - S2[a5, a1, a3, SP[a1, a2], a4, n]/
     2 - S2[a5, a1, a3, SP[a1, a4], a2, n]/2 - 
    (S2[a1, n]*S2[a5, a1, a4, a3, a2, n])/2 - 
    S2[a5, a1, a4, a3, SP[a1, a2], n]/2 - S2[a5, a1, a4, SP[a1, a3], a2, n]/
     2 - S2[a5, a1, SP[a1, a3], a2, a4, n]/2 - 
    S2[a5, a1, SP[a1, a3], a4, a2, n]/2 - S2[a5, a1, SP[a1, a4], a3, a2, n]/
     2 + S2[a2, n]*S2[a5, a3, a1, a1, a4, n] + S2[a5, a3, a1, a1, SP[a2, a4], 
     n] - (S2[a1, n]*S2[a5, a3, a1, a2, a4, n])/2 - 
    S2[a5, a3, a1, a2, SP[a1, a4], n]/2 - 
    (S2[a1, n]*S2[a5, a3, a1, a4, a2, n])/2 - 
    S2[a5, a3, a1, a4, SP[a1, a2], n]/2 + S2[a5, a3, a1, SP[a1, a2], a4, n]/
     2 - S2[a5, a3, a1, SP[a1, a4], a2, n]/2 - 
    (S2[a1, n]*S2[a5, a3, a2, a1, a4, n])/2 - 
    S2[a5, a3, a2, a1, SP[a1, a4], n]/2 + 
    (S2[a1, n]*S2[a5, a3, a2, a4, a1, n])/2 + 
    S2[a5, a3, a2, a4, SP[a1, a1], n]/2 - S2[a5, a3, a2, SP[a1, a1], a4, n]/
     2 + S2[a5, a3, a2, SP[a1, a4], a1, n]/2 + 
    (S2[a1, n]*S2[a5, a3, a4, a1, a2, n])/2 + 
    S2[a5, a3, a4, a1, SP[a1, a2], n]/2 + 
    (S2[a1, n]*S2[a5, a3, a4, a2, a1, n])/2 + 
    S2[a5, a3, a4, a2, SP[a1, a1], n]/2 + S2[a5, a3, a4, SP[a1, a1], a2, n]/
     2 + S2[a5, a3, a4, SP[a1, a2], a1, n]/2 - 
    S2[a5, a3, SP[a1, a1], a2, a4, n]/2 - S2[a5, a3, SP[a1, a1], a4, a2, n]/
     2 + S2[a5, a3, SP[a1, a2], a1, a4, n]/2 + 
    S2[a5, a3, SP[a1, a2], a4, a1, n]/2 + S2[a5, a3, SP[a1, a4], a1, a2, n]/
     2 + S2[a5, a3, SP[a1, a4], a2, a1, n]/2 + 
    (S2[a1, n]*S2[a5, a4, a1, a3, a2, n])/2 + 
    S2[a5, a4, a1, a3, SP[a1, a2], n]/2 + S2[a5, a4, a1, SP[a1, a3], a2, n]/
     2 + (S2[a1, n]*S2[a5, a4, a3, a1, a2, n])/2 + 
    S2[a5, a4, a3, a1, SP[a1, a2], n]/2 + 
    (S2[a1, n]*S2[a5, a4, a3, a2, a1, n])/2 + 
    S2[a5, a4, a3, a2, SP[a1, a1], n]/2 + S2[a5, a4, a3, SP[a1, a1], a2, n]/
     2 + S2[a5, a4, a3, SP[a1, a2], a1, n]/2 + 
    S2[a5, a4, SP[a1, a1], a3, a2, n]/2 + S2[a5, a4, SP[a1, a3], a1, a2, n]/
     2 + S2[a5, a4, SP[a1, a3], a2, a1, n]/2 - 
    S2[a5, SP[a1, a1], a3, a2, a4, n]/2 - S2[a5, SP[a1, a1], a3, a4, a2, n]/
     2 - S2[a5, SP[a1, a1], a4, a3, a2, n]/2 - 
    S2[a5, SP[a1, a3], a1, a2, a4, n]/2 - S2[a5, SP[a1, a3], a1, a4, a2, n]/
     2 - S2[a5, SP[a1, a3], a2, a1, a4, n]/2 + 
    S2[a5, SP[a1, a3], a2, a4, a1, n]/2 + S2[a5, SP[a1, a3], a4, a1, a2, n]/
     2 + S2[a5, SP[a1, a3], a4, a2, a1, n]/2 + 
    S2[a5, SP[a1, a4], a1, a3, a2, n]/2 + S2[a5, SP[a1, a4], a3, a1, a2, n]/
     2 + S2[a5, SP[a1, a4], a3, a2, a1, n]/2 + S2[a5, SP[a2, a3], a1, a1, a4, 
     n] - S2[SP[a1, a1], a5, a3, a2, a4, n]/2 - 
    S2[SP[a1, a1], a5, a3, a4, a2, n]/2 - S2[SP[a1, a1], a5, a4, a3, a2, n]/
     2 + S2[SP[a1, a5], a1, a3, a2, a4, n]/2 + 
    S2[SP[a1, a5], a1, a3, a4, a2, n]/2 + S2[SP[a1, a5], a1, a4, a3, a2, n]/
     2 + S2[SP[a1, a5], a3, a1, a2, a4, n]/2 + 
    S2[SP[a1, a5], a3, a1, a4, a2, n]/2 + S2[SP[a1, a5], a3, a2, a1, a4, n]/
     2 + S2[SP[a1, a5], a3, a2, a4, a1, n]/2 + 
    S2[SP[a1, a5], a3, a4, a1, a2, n]/2 + S2[SP[a1, a5], a3, a4, a2, a1, n]/
     2 + S2[SP[a1, a5], a4, a1, a3, a2, n]/2 + 
    S2[SP[a1, a5], a4, a3, a1, a2, n]/2 + S2[SP[a1, a5], a4, a3, a2, a1, n]/
     2 - S2[a5, a3, a2, a4, a1, a1, n] - S2[a5, a3, a4, a1, a1, a2, n] - 
    S2[a5, a3, a4, a1, a2, a1, n] - S2[a5, a3, a4, a2, a1, a1, n] - 
    S2[a5, a4, a1, a1, a3, a2, n] - S2[a5, a4, a1, a3, a1, a2, n] - 
    S2[a5, a4, a1, a3, a2, a1, n] - S2[a5, a4, a3, a1, a1, a2, n] - 
    S2[a5, a4, a3, a1, a2, a1, n] - S2[a5, a4, a3, a2, a1, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a1_, a1_, a5_, a2_, a3_, a4_, n_] :> 
  (S2[a1, n]*S2[a1, a5, a2, a3, a4, n])/2 + S2[a1, a5, a2, a3, SP[a1, a4], n]/
     2 + S2[a1, a5, a2, SP[a1, a3], a4, n]/2 + 
    S2[a1, a5, SP[a1, a2], a3, a4, n]/2 + S2[a1, SP[a1, a5], a2, a3, a4, n]/
     2 - (S2[a1, n]*S2[a5, a1, a2, a3, a4, n])/2 - 
    S2[a5, a1, a2, a3, SP[a1, a4], n]/2 - S2[a5, a1, a2, SP[a1, a3], a4, n]/
     2 - S2[a5, a1, SP[a1, a2], a3, a4, n]/2 - 
    (S2[a1, n]*S2[a5, a2, a1, a3, a4, n])/2 - 
    S2[a5, a2, a1, a3, SP[a1, a4], n]/2 - S2[a5, a2, a1, SP[a1, a3], a4, n]/
     2 - (S2[a1, n]*S2[a5, a2, a3, a1, a4, n])/2 - 
    S2[a5, a2, a3, a1, SP[a1, a4], n]/2 - 
    (S2[a1, n]*S2[a5, a2, a3, a4, a1, n])/2 - 
    S2[a5, a2, a3, a4, SP[a1, a1], n]/2 - S2[a5, a2, a3, SP[a1, a1], a4, n]/
     2 - S2[a5, a2, a3, SP[a1, a4], a1, n]/2 - 
    S2[a5, a2, SP[a1, a1], a3, a4, n]/2 - S2[a5, a2, SP[a1, a3], a1, a4, n]/
     2 - S2[a5, a2, SP[a1, a3], a4, a1, n]/2 - 
    S2[a5, SP[a1, a1], a2, a3, a4, n]/2 - S2[a5, SP[a1, a2], a1, a3, a4, n]/
     2 - S2[a5, SP[a1, a2], a3, a1, a4, n]/2 - 
    S2[a5, SP[a1, a2], a3, a4, a1, n]/2 + S2[SP[a1, a1], a5, a2, a3, a4, n]/
     2 - S2[SP[a1, a5], a1, a2, a3, a4, n]/2 - 
    S2[SP[a1, a5], a2, a1, a3, a4, n]/2 - S2[SP[a1, a5], a2, a3, a1, a4, n]/
     2 - S2[SP[a1, a5], a2, a3, a4, a1, n]/2 + S2[a5, a1, a1, a2, a3, a4, 
     n] + S2[a5, a1, a2, a1, a3, a4, n] + S2[a5, a1, a2, a3, a1, a4, n] + 
    S2[a5, a1, a2, a3, a4, a1, n] + S2[a5, a2, a1, a1, a3, a4, n] + 
    S2[a5, a2, a1, a3, a1, a4, n] + S2[a5, a2, a1, a3, a4, a1, n] + 
    S2[a5, a2, a3, a1, a1, a4, n] + S2[a5, a2, a3, a1, a4, a1, n] + 
    S2[a5, a2, a3, a4, a1, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a1_, a1_, a5_, a2_, a4_, a3_, n_] :> 
  (S2[a1, n]*S2[a1, a5, a2, a4, a3, n])/2 + S2[a1, a5, a2, a4, SP[a1, a3], n]/
     2 + S2[a1, a5, a2, SP[a1, a4], a3, n]/2 + 
    S2[a1, a5, SP[a1, a2], a4, a3, n]/2 + S2[a1, SP[a1, a5], a2, a4, a3, n]/
     2 - (S2[a1, n]*S2[a5, a1, a2, a4, a3, n])/2 - 
    S2[a5, a1, a2, a4, SP[a1, a3], n]/2 - S2[a5, a1, a2, SP[a1, a4], a3, n]/
     2 - S2[a5, a1, SP[a1, a2], a4, a3, n]/2 - 
    (S2[a1, n]*S2[a5, a2, a1, a4, a3, n])/2 - 
    S2[a5, a2, a1, a4, SP[a1, a3], n]/2 - S2[a5, a2, a1, SP[a1, a4], a3, n]/
     2 - (S2[a1, n]*S2[a5, a2, a4, a1, a3, n])/2 - 
    S2[a5, a2, a4, a1, SP[a1, a3], n]/2 - 
    (S2[a1, n]*S2[a5, a2, a4, a3, a1, n])/2 - 
    S2[a5, a2, a4, a3, SP[a1, a1], n]/2 - S2[a5, a2, a4, SP[a1, a1], a3, n]/
     2 - S2[a5, a2, a4, SP[a1, a3], a1, n]/2 - 
    S2[a5, a2, SP[a1, a1], a4, a3, n]/2 - S2[a5, a2, SP[a1, a4], a1, a3, n]/
     2 - S2[a5, a2, SP[a1, a4], a3, a1, n]/2 - 
    S2[a5, SP[a1, a1], a2, a4, a3, n]/2 - S2[a5, SP[a1, a2], a1, a4, a3, n]/
     2 - S2[a5, SP[a1, a2], a4, a1, a3, n]/2 - 
    S2[a5, SP[a1, a2], a4, a3, a1, n]/2 + S2[SP[a1, a1], a5, a2, a4, a3, n]/
     2 - S2[SP[a1, a5], a1, a2, a4, a3, n]/2 - 
    S2[SP[a1, a5], a2, a1, a4, a3, n]/2 - S2[SP[a1, a5], a2, a4, a1, a3, n]/
     2 - S2[SP[a1, a5], a2, a4, a3, a1, n]/2 + S2[a5, a1, a1, a2, a4, a3, 
     n] + S2[a5, a1, a2, a1, a4, a3, n] + S2[a5, a1, a2, a4, a1, a3, n] + 
    S2[a5, a1, a2, a4, a3, a1, n] + S2[a5, a2, a1, a1, a4, a3, n] + 
    S2[a5, a2, a1, a4, a1, a3, n] + S2[a5, a2, a1, a4, a3, a1, n] + 
    S2[a5, a2, a4, a1, a1, a3, n] + S2[a5, a2, a4, a1, a3, a1, n] + 
    S2[a5, a2, a4, a3, a1, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a1_, a1_, a5_, a3_, a2_, a4_, n_] :> 
  (S2[a1, n]*S2[a1, a5, a3, a2, a4, n])/2 + S2[a1, a5, a3, a2, SP[a1, a4], n]/
     2 + S2[a1, a5, a3, SP[a1, a2], a4, n]/2 + 
    S2[a1, a5, SP[a1, a3], a2, a4, n]/2 + S2[a1, SP[a1, a5], a3, a2, a4, n]/
     2 - (S2[a1, n]*S2[a5, a1, a3, a2, a4, n])/2 - 
    S2[a5, a1, a3, a2, SP[a1, a4], n]/2 - S2[a5, a1, a3, SP[a1, a2], a4, n]/
     2 - S2[a5, a1, SP[a1, a3], a2, a4, n]/2 - 
    (S2[a1, n]*S2[a5, a3, a1, a2, a4, n])/2 - 
    S2[a5, a3, a1, a2, SP[a1, a4], n]/2 - S2[a5, a3, a1, SP[a1, a2], a4, n]/
     2 - (S2[a1, n]*S2[a5, a3, a2, a1, a4, n])/2 - 
    S2[a5, a3, a2, a1, SP[a1, a4], n]/2 - 
    (S2[a1, n]*S2[a5, a3, a2, a4, a1, n])/2 - 
    S2[a5, a3, a2, a4, SP[a1, a1], n]/2 - S2[a5, a3, a2, SP[a1, a1], a4, n]/
     2 - S2[a5, a3, a2, SP[a1, a4], a1, n]/2 - 
    S2[a5, a3, SP[a1, a1], a2, a4, n]/2 - S2[a5, a3, SP[a1, a2], a1, a4, n]/
     2 - S2[a5, a3, SP[a1, a2], a4, a1, n]/2 - 
    S2[a5, SP[a1, a1], a3, a2, a4, n]/2 - S2[a5, SP[a1, a3], a1, a2, a4, n]/
     2 - S2[a5, SP[a1, a3], a2, a1, a4, n]/2 - 
    S2[a5, SP[a1, a3], a2, a4, a1, n]/2 + S2[SP[a1, a1], a5, a3, a2, a4, n]/
     2 - S2[SP[a1, a5], a1, a3, a2, a4, n]/2 - 
    S2[SP[a1, a5], a3, a1, a2, a4, n]/2 - S2[SP[a1, a5], a3, a2, a1, a4, n]/
     2 - S2[SP[a1, a5], a3, a2, a4, a1, n]/2 + S2[a5, a1, a1, a3, a2, a4, 
     n] + S2[a5, a1, a3, a1, a2, a4, n] + S2[a5, a1, a3, a2, a1, a4, n] + 
    S2[a5, a1, a3, a2, a4, a1, n] + S2[a5, a3, a1, a1, a2, a4, n] + 
    S2[a5, a3, a1, a2, a1, a4, n] + S2[a5, a3, a1, a2, a4, a1, n] + 
    S2[a5, a3, a2, a1, a1, a4, n] + S2[a5, a3, a2, a1, a4, a1, n] + 
    S2[a5, a3, a2, a4, a1, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a1_, a1_, a5_, a3_, a4_, a2_, n_] :> 
  (S2[a1, n]*S2[a1, a5, a3, a4, a2, n])/2 + S2[a1, a5, a3, a4, SP[a1, a2], n]/
     2 + S2[a1, a5, a3, SP[a1, a4], a2, n]/2 + 
    S2[a1, a5, SP[a1, a3], a4, a2, n]/2 + S2[a1, SP[a1, a5], a3, a4, a2, n]/
     2 - (S2[a1, n]*S2[a5, a1, a3, a4, a2, n])/2 - 
    S2[a5, a1, a3, a4, SP[a1, a2], n]/2 - S2[a5, a1, a3, SP[a1, a4], a2, n]/
     2 - S2[a5, a1, SP[a1, a3], a4, a2, n]/2 - 
    (S2[a1, n]*S2[a5, a3, a1, a4, a2, n])/2 - 
    S2[a5, a3, a1, a4, SP[a1, a2], n]/2 - S2[a5, a3, a1, SP[a1, a4], a2, n]/
     2 - (S2[a1, n]*S2[a5, a3, a4, a1, a2, n])/2 - 
    S2[a5, a3, a4, a1, SP[a1, a2], n]/2 - 
    (S2[a1, n]*S2[a5, a3, a4, a2, a1, n])/2 - 
    S2[a5, a3, a4, a2, SP[a1, a1], n]/2 - S2[a5, a3, a4, SP[a1, a1], a2, n]/
     2 - S2[a5, a3, a4, SP[a1, a2], a1, n]/2 - 
    S2[a5, a3, SP[a1, a1], a4, a2, n]/2 - S2[a5, a3, SP[a1, a4], a1, a2, n]/
     2 - S2[a5, a3, SP[a1, a4], a2, a1, n]/2 - 
    S2[a5, SP[a1, a1], a3, a4, a2, n]/2 - S2[a5, SP[a1, a3], a1, a4, a2, n]/
     2 - S2[a5, SP[a1, a3], a4, a1, a2, n]/2 - 
    S2[a5, SP[a1, a3], a4, a2, a1, n]/2 + S2[SP[a1, a1], a5, a3, a4, a2, n]/
     2 - S2[SP[a1, a5], a1, a3, a4, a2, n]/2 - 
    S2[SP[a1, a5], a3, a1, a4, a2, n]/2 - S2[SP[a1, a5], a3, a4, a1, a2, n]/
     2 - S2[SP[a1, a5], a3, a4, a2, a1, n]/2 + S2[a5, a1, a1, a3, a4, a2, 
     n] + S2[a5, a1, a3, a1, a4, a2, n] + S2[a5, a1, a3, a4, a1, a2, n] + 
    S2[a5, a1, a3, a4, a2, a1, n] + S2[a5, a3, a1, a1, a4, a2, n] + 
    S2[a5, a3, a1, a4, a1, a2, n] + S2[a5, a3, a1, a4, a2, a1, n] + 
    S2[a5, a3, a4, a1, a1, a2, n] + S2[a5, a3, a4, a1, a2, a1, n] + 
    S2[a5, a3, a4, a2, a1, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a1_, a1_, a5_, a4_, a2_, a3_, n_] :> 
  (S2[a1, n]*S2[a1, a5, a4, a2, a3, n])/2 + S2[a1, a5, a4, a2, SP[a1, a3], n]/
     2 + S2[a1, a5, a4, SP[a1, a2], a3, n]/2 + 
    S2[a1, a5, SP[a1, a4], a2, a3, n]/2 + S2[a1, SP[a1, a5], a4, a2, a3, n]/
     2 - (S2[a1, n]*S2[a5, a1, a4, a2, a3, n])/2 - 
    S2[a5, a1, a4, a2, SP[a1, a3], n]/2 - S2[a5, a1, a4, SP[a1, a2], a3, n]/
     2 - S2[a5, a1, SP[a1, a4], a2, a3, n]/2 - 
    (S2[a1, n]*S2[a5, a4, a1, a2, a3, n])/2 - 
    S2[a5, a4, a1, a2, SP[a1, a3], n]/2 - S2[a5, a4, a1, SP[a1, a2], a3, n]/
     2 - (S2[a1, n]*S2[a5, a4, a2, a1, a3, n])/2 - 
    S2[a5, a4, a2, a1, SP[a1, a3], n]/2 - 
    (S2[a1, n]*S2[a5, a4, a2, a3, a1, n])/2 - 
    S2[a5, a4, a2, a3, SP[a1, a1], n]/2 - S2[a5, a4, a2, SP[a1, a1], a3, n]/
     2 - S2[a5, a4, a2, SP[a1, a3], a1, n]/2 - 
    S2[a5, a4, SP[a1, a1], a2, a3, n]/2 - S2[a5, a4, SP[a1, a2], a1, a3, n]/
     2 - S2[a5, a4, SP[a1, a2], a3, a1, n]/2 - 
    S2[a5, SP[a1, a1], a4, a2, a3, n]/2 - S2[a5, SP[a1, a4], a1, a2, a3, n]/
     2 - S2[a5, SP[a1, a4], a2, a1, a3, n]/2 - 
    S2[a5, SP[a1, a4], a2, a3, a1, n]/2 + S2[SP[a1, a1], a5, a4, a2, a3, n]/
     2 - S2[SP[a1, a5], a1, a4, a2, a3, n]/2 - 
    S2[SP[a1, a5], a4, a1, a2, a3, n]/2 - S2[SP[a1, a5], a4, a2, a1, a3, n]/
     2 - S2[SP[a1, a5], a4, a2, a3, a1, n]/2 + S2[a5, a1, a1, a4, a2, a3, 
     n] + S2[a5, a1, a4, a1, a2, a3, n] + S2[a5, a1, a4, a2, a1, a3, n] + 
    S2[a5, a1, a4, a2, a3, a1, n] + S2[a5, a4, a1, a1, a2, a3, n] + 
    S2[a5, a4, a1, a2, a1, a3, n] + S2[a5, a4, a1, a2, a3, a1, n] + 
    S2[a5, a4, a2, a1, a1, a3, n] + S2[a5, a4, a2, a1, a3, a1, n] + 
    S2[a5, a4, a2, a3, a1, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a1_, a1_, a5_, a4_, a3_, a2_, n_] :> 
  (S2[a1, n]*S2[a1, a5, a4, a3, a2, n])/2 + S2[a1, a5, a4, a3, SP[a1, a2], n]/
     2 + S2[a1, a5, a4, SP[a1, a3], a2, n]/2 + 
    S2[a1, a5, SP[a1, a4], a3, a2, n]/2 + S2[a1, SP[a1, a5], a4, a3, a2, n]/
     2 - (S2[a1, n]*S2[a5, a1, a4, a3, a2, n])/2 - 
    S2[a5, a1, a4, a3, SP[a1, a2], n]/2 - S2[a5, a1, a4, SP[a1, a3], a2, n]/
     2 - S2[a5, a1, SP[a1, a4], a3, a2, n]/2 - 
    (S2[a1, n]*S2[a5, a4, a1, a3, a2, n])/2 - 
    S2[a5, a4, a1, a3, SP[a1, a2], n]/2 - S2[a5, a4, a1, SP[a1, a3], a2, n]/
     2 - (S2[a1, n]*S2[a5, a4, a3, a1, a2, n])/2 - 
    S2[a5, a4, a3, a1, SP[a1, a2], n]/2 - 
    (S2[a1, n]*S2[a5, a4, a3, a2, a1, n])/2 - 
    S2[a5, a4, a3, a2, SP[a1, a1], n]/2 - S2[a5, a4, a3, SP[a1, a1], a2, n]/
     2 - S2[a5, a4, a3, SP[a1, a2], a1, n]/2 - 
    S2[a5, a4, SP[a1, a1], a3, a2, n]/2 - S2[a5, a4, SP[a1, a3], a1, a2, n]/
     2 - S2[a5, a4, SP[a1, a3], a2, a1, n]/2 - 
    S2[a5, SP[a1, a1], a4, a3, a2, n]/2 - S2[a5, SP[a1, a4], a1, a3, a2, n]/
     2 - S2[a5, SP[a1, a4], a3, a1, a2, n]/2 - 
    S2[a5, SP[a1, a4], a3, a2, a1, n]/2 + S2[SP[a1, a1], a5, a4, a3, a2, n]/
     2 - S2[SP[a1, a5], a1, a4, a3, a2, n]/2 - 
    S2[SP[a1, a5], a4, a1, a3, a2, n]/2 - S2[SP[a1, a5], a4, a3, a1, a2, n]/
     2 - S2[SP[a1, a5], a4, a3, a2, a1, n]/2 + S2[a5, a1, a1, a4, a3, a2, 
     n] + S2[a5, a1, a4, a1, a3, a2, n] + S2[a5, a1, a4, a3, a1, a2, n] + 
    S2[a5, a1, a4, a3, a2, a1, n] + S2[a5, a4, a1, a1, a3, a2, n] + 
    S2[a5, a4, a1, a3, a1, a2, n] + S2[a5, a4, a1, a3, a2, a1, n] + 
    S2[a5, a4, a3, a1, a1, a2, n] + S2[a5, a4, a3, a1, a2, a1, n] + 
    S2[a5, a4, a3, a2, a1, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a1_, a2_, a1_, a3_, a4_, a5_, n_] :> 
  -2*S2[a1, a1, a2, n]*S2[a3, a4, a5, n] - 
    2*S2[SP[a1, a3], SP[a1, a4], SP[a2, a5], n] + 
    S2[a4, a5, n]*S2[a1, a2, a1, a3, n] - S2[a1, a2, SP[a1, a4], SP[a3, a5], 
     n] + S2[a1, a2, n]*S2[a1, a3, a4, a5, n] + 
    S2[a1, a2, n]*S2[a1, a3, a5, a4, n] + S2[a1, a3, SP[a1, a4], SP[a2, a5], 
     n] - S2[a1, a3, SP[a1, a5], SP[a2, a4], n] + 
    S2[a1, a2, n]*S2[a1, a5, a3, a4, n] + S2[a1, a2, n]*
     S2[a1, a5, a4, a3, n] - S2[a1, a5, SP[a1, a3], SP[a2, a4], n] - 
    S2[a1, a5, SP[a1, a4], SP[a2, a3], n] + S2[a1, SP[a1, a3], a4, 
     SP[a2, a5], n] - S2[a1, SP[a1, a3], a5, SP[a2, a4], n] + 
    S2[a1, SP[a1, a3], SP[a2, a4], a5, n] - S2[a1, SP[a1, a3], SP[a2, a5], 
     a4, n] - S2[a1, SP[a1, a5], a3, SP[a2, a4], n] - 
    S2[a1, SP[a1, a5], a4, SP[a2, a3], n] - S2[a1, SP[a1, a5], SP[a2, a3], 
     a4, n] - S2[a1, SP[a1, a5], SP[a2, a4], a3, n] - 
    S2[a1, SP[a2, a4], a1, SP[a3, a5], n] - S2[a1, SP[a2, a4], SP[a1, a5], 
     a3, n] + 2*S2[a3, a1, SP[a1, a4], SP[a2, a5], n] + 
    2*S2[a3, SP[a1, a4], a1, SP[a2, a5], n] + 
    2*S2[a3, SP[a1, a4], SP[a1, a5], a2, n] - 
    S2[a1, a2, n]*S2[a4, a5, a1, a3, n] + S2[a4, a5, SP[a1, a1], SP[a2, a3], 
     n] + S2[a4, SP[a1, a5], a1, SP[a2, a3], n] + 
    S2[a4, SP[a1, a5], SP[a1, a2], a3, n] - S2[SP[a1, a1], a3, a4, 
     SP[a2, a5], n] - S2[SP[a1, a1], a3, a5, SP[a2, a4], n] - 
    S2[SP[a1, a1], a3, SP[a2, a4], a5, n] - S2[SP[a1, a1], a3, SP[a2, a5], 
     a4, n] - S2[SP[a1, a1], a5, a3, SP[a2, a4], n] - 
    S2[SP[a1, a1], a5, a4, SP[a2, a3], n] - S2[SP[a1, a1], a5, SP[a2, a3], 
     a4, n] - S2[SP[a1, a1], a5, SP[a2, a4], a3, n] - 
    S2[SP[a1, a1], SP[a2, a3], a4, a5, n] - S2[SP[a1, a1], SP[a2, a3], a5, 
     a4, n] - S2[SP[a1, a1], SP[a2, a5], a3, a4, n] - 
    S2[SP[a1, a1], SP[a2, a5], a4, a3, n] + 
    2*S2[SP[a1, a3], a1, a4, SP[a2, a5], n] + 
    2*S2[SP[a1, a3], a1, SP[a2, a4], a5, n] + 
    2*S2[SP[a1, a3], a4, a1, SP[a2, a5], n] + 
    2*S2[SP[a1, a3], a4, SP[a1, a5], a2, n] + 
    2*S2[SP[a1, a3], SP[a1, a4], a2, a5, n] + 
    2*S2[SP[a1, a3], SP[a1, a4], a5, a2, n] - S2[SP[a1, a4], a2, a1, 
     SP[a3, a5], n] - S2[SP[a1, a4], a2, SP[a1, a5], a3, n] + 
    S2[SP[a1, a4], a5, a1, SP[a2, a3], n] + S2[SP[a1, a4], a5, SP[a1, a2], 
     a3, n] - 2*S2[a5, n]*S2[a1, a1, a2, a3, a4, n] - 
    2*S2[a1, a1, a2, a3, SP[a4, a5], n] - 
    2*S2[a5, n]*S2[a1, a1, a2, a4, a3, n] + 
    2*S2[a3, n]*S2[a1, a1, a2, a4, a5, n] + 
    2*S2[a1, a1, a2, SP[a3, a4], a5, n] - 
    2*S2[a1, a1, a2, SP[a3, a5], a4, n] - 
    2*S2[a1, a1, a2, SP[a4, a5], a3, n] - 
    2*S2[a5, n]*S2[a1, a1, a3, a2, a4, n] - 
    2*S2[a1, a1, a3, a2, SP[a4, a5], n] - 
    2*S2[a5, n]*S2[a1, a1, a3, a4, a2, n] - 
    2*S2[a1, a1, a3, a4, SP[a2, a5], n] + 
    2*S2[a1, a1, a3, a5, SP[a2, a4], n] - 
    2*S2[a1, a1, a3, SP[a4, a5], a2, n] - 
    2*S2[a5, n]*S2[a1, a1, a4, a2, a3, n] + 
    2*S2[a3, n]*S2[a1, a1, a4, a2, a5, n] - 
    2*S2[a5, n]*S2[a1, a1, a4, a3, a2, n] - 
    2*S2[a1, a1, a4, a3, SP[a2, a5], n] + 
    2*S2[a3, n]*S2[a1, a1, a4, a5, a2, n] + 
    2*S2[a1, a1, a4, a5, SP[a2, a3], n] + 
    2*S2[a1, a1, a4, SP[a2, a3], a5, n] - 
    2*S2[a1, a1, a4, SP[a2, a5], a3, n] + 
    2*S2[a1, a1, a5, a3, SP[a2, a4], n] + 
    2*S2[a1, a1, a5, a4, SP[a2, a3], n] + 
    2*S2[a1, a1, a5, SP[a2, a3], a4, n] + 
    2*S2[a1, a1, a5, SP[a2, a4], a3, n] + 
    2*S2[a1, a1, SP[a2, a3], a4, a5, n] + 
    2*S2[a1, a1, SP[a2, a3], a5, a4, n] + 
    2*S2[a1, a1, SP[a3, a4], a2, a5, n] + 
    2*S2[a1, a1, SP[a3, a4], a5, a2, n] - 
    2*S2[a1, a1, SP[a3, a5], a2, a4, n] - 
    2*S2[a1, a1, SP[a3, a5], a4, a2, n] - 
    2*S2[a1, a1, SP[a4, a5], a2, a3, n] - 
    2*S2[a1, a1, SP[a4, a5], a3, a2, n] - 
    S2[a4, n]*S2[a1, a2, a1, a3, a5, n] - S2[a1, a2, a1, a3, SP[a4, a5], n] + 
    S2[a1, a2, a1, a4, SP[a3, a5], n] - S2[a4, n]*S2[a1, a2, a1, a5, a3, n] - 
    S2[a1, a2, a1, a5, SP[a3, a4], n] - S2[a1, a2, a1, SP[a4, a5], a3, n] + 
    S2[a1, a2, a4, a1, SP[a3, a5], n] + S2[a1, a2, a4, SP[a1, a5], a3, n] - 
    S2[a5, n]*S2[a1, a3, a1, a2, a4, n] - S2[a1, a3, a1, a2, SP[a4, a5], n] - 
    S2[a5, n]*S2[a1, a3, a1, a4, a2, n] - 
    2*S2[a1, a3, a1, a4, SP[a2, a5], n] + S2[a1, a3, a1, a5, SP[a2, a4], n] - 
    S2[a1, a3, a1, SP[a2, a4], a5, n] - S2[a1, a3, a1, SP[a4, a5], a2, n] - 
    S2[a5, n]*S2[a1, a3, a4, a1, a2, n] - 
    2*S2[a1, a3, a4, a1, SP[a2, a5], n] - 
    2*S2[a1, a3, a4, SP[a1, a5], a2, n] + S2[a1, a3, a5, a1, SP[a2, a4], n] + 
    S2[a1, a3, a5, SP[a1, a4], a2, n] - S2[a1, a3, SP[a1, a4], a2, a5, n] - 
    S2[a1, a3, SP[a1, a4], a5, a2, n] - S2[a1, a3, SP[a4, a5], a1, a2, n] - 
    2*S2[a5, n]*S2[a1, a4, a1, a2, a3, n] + 
    2*S2[a3, n]*S2[a1, a4, a1, a2, a5, n] - 
    2*S2[a5, n]*S2[a1, a4, a1, a3, a2, n] - 
    2*S2[a1, a4, a1, a3, SP[a2, a5], n] + 
    2*S2[a3, n]*S2[a1, a4, a1, a5, a2, n] + 
    2*S2[a1, a4, a1, a5, SP[a2, a3], n] + 
    2*S2[a1, a4, a1, SP[a2, a3], a5, n] - 
    2*S2[a1, a4, a1, SP[a2, a5], a3, n] + S2[a1, a4, a2, a1, SP[a3, a5], n] + 
    S2[a1, a4, a2, SP[a1, a5], a3, n] - 2*S2[a5, n]*
     S2[a1, a4, a3, a1, a2, n] - 2*S2[a1, a4, a3, a1, SP[a2, a5], n] - 
    2*S2[a1, a4, a3, SP[a1, a5], a2, n] + 
    2*S2[a3, n]*S2[a1, a4, a5, a1, a2, n] + S2[a1, a4, a5, a1, SP[a2, a3], 
     n] - S2[a1, a4, a5, SP[a1, a2], a3, n] + 
    2*S2[a1, a4, a5, SP[a1, a3], a2, n] + 
    2*S2[a1, a4, SP[a1, a3], a2, a5, n] + 
    2*S2[a1, a4, SP[a1, a3], a5, a2, n] - 
    2*S2[a1, a4, SP[a1, a5], a2, a3, n] - 
    2*S2[a1, a4, SP[a1, a5], a3, a2, n] + 
    S2[a4, n]*S2[a1, a5, a1, a2, a3, n] + S2[a1, a5, a1, a2, SP[a3, a4], n] + 
    S2[a4, n]*S2[a1, a5, a1, a3, a2, n] + 
    2*S2[a1, a5, a1, a3, SP[a2, a4], n] + S2[a1, a5, a1, a4, SP[a2, a3], n] + 
    S2[a1, a5, a1, SP[a2, a3], a4, n] + 2*S2[a1, a5, a1, SP[a2, a4], a3, n] + 
    S2[a1, a5, a1, SP[a3, a4], a2, n] + S2[a1, a5, a3, a1, SP[a2, a4], n] + 
    S2[a1, a5, a3, SP[a1, a4], a2, n] + S2[a1, a5, a4, a1, SP[a2, a3], n] + 
    S2[a1, a5, a4, SP[a1, a3], a2, n] + S2[a1, a5, SP[a1, a3], a2, a4, n] + 
    S2[a1, a5, SP[a1, a3], a4, a2, n] + 2*S2[a1, a5, SP[a1, a4], a2, a3, n] + 
    2*S2[a1, a5, SP[a1, a4], a3, a2, n] + S2[a1, SP[a1, a2], a3, a4, a5, n] + 
    S2[a1, SP[a1, a2], a3, a5, a4, n] + S2[a1, SP[a1, a2], a5, a3, a4, n] + 
    S2[a1, SP[a1, a2], a5, a4, a3, n] + S2[a1, SP[a1, a3], a2, a4, a5, n] + 
    S2[a1, SP[a1, a3], a2, a5, a4, n] + S2[a1, SP[a1, a3], a4, a2, a5, n] + 
    S2[a1, SP[a1, a3], a4, a5, a2, n] + S2[a1, SP[a1, a3], a5, a2, a4, n] + 
    S2[a1, SP[a1, a3], a5, a4, a2, n] - S2[a1, SP[a1, a5], a2, a3, a4, n] - 
    S2[a1, SP[a1, a5], a2, a4, a3, n] - S2[a1, SP[a1, a5], a3, a2, a4, n] - 
    S2[a1, SP[a1, a5], a3, a4, a2, n] - S2[a1, SP[a1, a5], a4, a2, a3, n] - 
    S2[a1, SP[a1, a5], a4, a3, a2, n] + 2*S2[a1, SP[a3, a4], a1, a2, a5, n] + 
    2*S2[a1, SP[a3, a4], a1, a5, a2, n] + 
    2*S2[a1, SP[a3, a4], a5, a1, a2, n] - S2[a1, SP[a3, a5], a1, a2, a4, n] - 
    S2[a1, SP[a3, a5], a1, a4, a2, n] - S2[a1, SP[a3, a5], a4, a1, a2, n] - 
    S2[a1, SP[a4, a5], a1, a2, a3, n] - S2[a1, SP[a4, a5], a1, a3, a2, n] - 
    2*S2[a1, SP[a4, a5], a3, a1, a2, n] - 
    2*S2[a3, a1, a1, a4, SP[a2, a5], n] - 
    2*S2[a3, a1, a1, SP[a2, a4], a5, n] - 
    2*S2[a3, a1, a4, a1, SP[a2, a5], n] - 
    2*S2[a3, a1, a4, SP[a1, a5], a2, n] - 
    2*S2[a3, a1, SP[a1, a4], a2, a5, n] - 
    2*S2[a3, a1, SP[a1, a4], a5, a2, n] + 
    2*S2[a5, n]*S2[a3, a4, a1, a1, a2, n] - 
    2*S2[a3, SP[a1, a4], a1, a2, a5, n] - 
    2*S2[a3, SP[a1, a4], a1, a5, a2, n] - 
    2*S2[a3, SP[a1, a4], a5, a1, a2, n] + 
    2*S2[a3, SP[a4, a5], a1, a1, a2, n] + S2[a4, a1, a2, a1, SP[a3, a5], n] + 
    S2[a4, a1, a2, SP[a1, a5], a3, n] - S2[a4, a1, a5, a1, SP[a2, a3], n] - 
    S2[a4, a1, a5, SP[a1, a2], a3, n] - 2*S2[a4, a5, a1, a1, SP[a2, a3], n] - 
    S2[a4, a5, a1, SP[a1, a2], a3, n] - S2[a4, a5, a1, SP[a1, a3], a2, n] - 
    S2[a4, a5, SP[a1, a1], a2, a3, n] - S2[a4, a5, SP[a1, a1], a3, a2, n] - 
    S2[a4, SP[a1, a5], a1, a2, a3, n] - S2[a4, SP[a1, a5], a1, a3, a2, n] + 
    2*S2[a4, n]*S2[a5, a1, a1, a2, a3, n] + 
    2*S2[a5, a1, a1, a2, SP[a3, a4], n] + 
    2*S2[a4, n]*S2[a5, a1, a1, a3, a2, n] + 
    2*S2[a5, a1, a1, a3, SP[a2, a4], n] + 
    2*S2[a5, a1, a1, SP[a2, a4], a3, n] + 
    2*S2[a5, a1, a1, SP[a3, a4], a2, n] + 
    S2[a4, n]*S2[a5, a1, a3, a1, a2, n] + S2[a5, a1, a3, a1, SP[a2, a4], n] + 
    S2[a5, a1, a3, SP[a1, a4], a2, n] + 2*S2[a5, a1, SP[a1, a4], a2, a3, n] + 
    2*S2[a5, a1, SP[a1, a4], a3, a2, n] + S2[a5, a1, SP[a3, a4], a1, a2, n] - 
    2*S2[a3, n]*S2[a5, a4, a1, a1, a2, n] - 
    2*S2[a5, a4, a1, a1, SP[a2, a3], n] - 
    2*S2[a5, a4, a1, SP[a1, a3], a2, n] + 
    S2[a1, n]*S2[a5, a4, a3, a1, a2, n] + S2[a5, a4, a3, a1, SP[a1, a2], n] + 
    S2[a5, a4, a3, SP[a1, a1], a2, n] - S2[a5, a4, SP[a1, a3], a1, a2, n] + 
    2*S2[a5, SP[a1, a4], a1, a2, a3, n] + 
    2*S2[a5, SP[a1, a4], a1, a3, a2, n] + 
    2*S2[a5, SP[a1, a4], a3, a1, a2, n] - 
    2*S2[a5, SP[a3, a4], a1, a1, a2, n] + S2[SP[a1, a1], a2, a3, a4, a5, n] + 
    S2[SP[a1, a1], a2, a3, a5, a4, n] + S2[SP[a1, a1], a2, a5, a3, a4, n] + 
    S2[SP[a1, a1], a2, a5, a4, a3, n] + S2[SP[a1, a1], a3, a2, a4, a5, n] + 
    S2[SP[a1, a1], a3, a2, a5, a4, n] + S2[SP[a1, a1], a3, a4, a2, a5, n] + 
    S2[SP[a1, a1], a3, a4, a5, a2, n] + S2[SP[a1, a1], a3, a5, a2, a4, n] + 
    S2[SP[a1, a1], a3, a5, a4, a2, n] + S2[SP[a1, a1], a5, a2, a3, a4, n] + 
    S2[SP[a1, a1], a5, a2, a4, a3, n] + S2[SP[a1, a1], a5, a3, a2, a4, n] + 
    S2[SP[a1, a1], a5, a3, a4, a2, n] + S2[SP[a1, a1], a5, a4, a2, a3, n] + 
    S2[SP[a1, a1], a5, a4, a3, a2, n] - 2*S2[SP[a1, a5], a1, a2, a3, a4, n] - 
    2*S2[SP[a1, a5], a1, a2, a4, a3, n] - 
    2*S2[SP[a1, a5], a1, a3, a2, a4, n] - 
    2*S2[SP[a1, a5], a1, a3, a4, a2, n] - 
    2*S2[SP[a1, a5], a1, a4, a2, a3, n] - 
    2*S2[SP[a1, a5], a1, a4, a3, a2, n] - S2[SP[a1, a5], a3, a1, a2, a4, n] - 
    S2[SP[a1, a5], a3, a1, a4, a2, n] - S2[SP[a1, a5], a3, a4, a1, a2, n] - 
    2*S2[SP[a1, a5], a4, a1, a2, a3, n] - 
    2*S2[SP[a1, a5], a4, a1, a3, a2, n] - S2[SP[a1, a5], a4, a3, a1, a2, n] + 
    2*S2[SP[a4, a5], a1, a1, a2, a3, n] + 
    2*S2[SP[a4, a5], a1, a1, a3, a2, n] + S2[SP[a4, a5], a1, a3, a1, a2, n] - 
    S2[a5, a4, a3, a1, a2, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a1_, a2_, a1_, a3_, a5_, a4_, n_] :> 
  -2*S2[a1, a1, a2, n]*S2[a3, a5, a4, n] - 
    2*S2[SP[a1, a3], SP[a1, a5], SP[a2, a4], n] - 
    S2[a4, a5, n]*S2[a1, a2, a1, a3, n] + S2[a1, a2, SP[a1, a4], SP[a3, a5], 
     n] + 2*S2[a1, a3, SP[a1, a5], SP[a2, a4], n] - 
    S2[a1, a2, n]*S2[a1, a5, a3, a4, n] - S2[a1, a2, n]*
     S2[a1, a5, a4, a3, n] + S2[a1, a5, SP[a1, a3], SP[a2, a4], n] + 
    S2[a1, a5, SP[a1, a4], SP[a2, a3], n] + 
    2*S2[a1, SP[a1, a3], a5, SP[a2, a4], n] + 
    2*S2[a1, SP[a1, a3], SP[a2, a5], a4, n] + S2[a1, SP[a1, a5], a3, 
     SP[a2, a4], n] + S2[a1, SP[a1, a5], a4, SP[a2, a3], n] + 
    S2[a1, SP[a1, a5], SP[a2, a3], a4, n] + S2[a1, SP[a1, a5], SP[a2, a4], 
     a3, n] + S2[a1, SP[a2, a4], a1, SP[a3, a5], n] + 
    S2[a1, SP[a2, a4], SP[a1, a5], a3, n] + 
    2*S2[a3, a1, SP[a1, a5], SP[a2, a4], n] + 
    2*S2[a3, SP[a1, a5], a1, SP[a2, a4], n] + 
    2*S2[a3, SP[a1, a5], SP[a1, a4], a2, n] + 
    S2[a1, a2, n]*S2[a4, a5, a1, a3, n] - S2[a4, a5, SP[a1, a1], SP[a2, a3], 
     n] - S2[a4, SP[a1, a5], a1, SP[a2, a3], n] - 
    S2[a4, SP[a1, a5], SP[a1, a2], a3, n] + S2[SP[a1, a1], a5, a3, 
     SP[a2, a4], n] + S2[SP[a1, a1], a5, a4, SP[a2, a3], n] + 
    S2[SP[a1, a1], a5, SP[a2, a3], a4, n] + S2[SP[a1, a1], a5, SP[a2, a4], 
     a3, n] + S2[SP[a1, a1], SP[a2, a5], a3, a4, n] + 
    S2[SP[a1, a1], SP[a2, a5], a4, a3, n] + 
    2*S2[SP[a1, a3], a1, a5, SP[a2, a4], n] + 
    2*S2[SP[a1, a3], a1, SP[a2, a5], a4, n] + 
    2*S2[SP[a1, a3], a5, a1, SP[a2, a4], n] + 
    2*S2[SP[a1, a3], a5, SP[a1, a4], a2, n] + 
    2*S2[SP[a1, a3], SP[a1, a5], a2, a4, n] + 
    2*S2[SP[a1, a3], SP[a1, a5], a4, a2, n] + S2[SP[a1, a4], a2, a1, 
     SP[a3, a5], n] + S2[SP[a1, a4], a2, SP[a1, a5], a3, n] - 
    S2[SP[a1, a4], a5, a1, SP[a2, a3], n] - S2[SP[a1, a4], a5, SP[a1, a2], 
     a3, n] + 2*S2[a3, n]*S2[a1, a1, a2, a5, a4, n] + 
    2*S2[a1, a1, a2, a5, SP[a3, a4], n] + 
    2*S2[a1, a1, a2, SP[a3, a5], a4, n] - 
    2*S2[a1, a1, a3, a5, SP[a2, a4], n] - 
    2*S2[a1, a1, a3, SP[a2, a5], a4, n] + 
    2*S2[a3, n]*S2[a1, a1, a5, a2, a4, n] + 
    2*S2[a1, a1, a5, a2, SP[a3, a4], n] - 
    2*S2[a1, a1, a5, a3, SP[a2, a4], n] + 
    2*S2[a3, n]*S2[a1, a1, a5, a4, a2, n] - 
    2*S2[a1, a1, a5, SP[a2, a4], a3, n] + 
    2*S2[a1, a1, a5, SP[a3, a4], a2, n] - 
    2*S2[a1, a1, SP[a2, a5], a3, a4, n] - 
    2*S2[a1, a1, SP[a2, a5], a4, a3, n] + 
    2*S2[a1, a1, SP[a3, a5], a2, a4, n] + 
    2*S2[a1, a1, SP[a3, a5], a4, a2, n] + 
    S2[a4, n]*S2[a1, a2, a1, a3, a5, n] + S2[a1, a2, a1, a3, SP[a4, a5], n] - 
    S2[a1, a2, a1, a4, SP[a3, a5], n] + S2[a4, n]*S2[a1, a2, a1, a5, a3, n] + 
    S2[a1, a2, a1, a5, SP[a3, a4], n] + S2[a1, a2, a1, SP[a4, a5], a3, n] - 
    S2[a1, a2, a4, a1, SP[a3, a5], n] - S2[a1, a2, a4, SP[a1, a5], a3, n] - 
    2*S2[a1, a3, a1, a5, SP[a2, a4], n] - 
    2*S2[a1, a3, a1, SP[a2, a5], a4, n] - 
    2*S2[a1, a3, a5, a1, SP[a2, a4], n] - 
    2*S2[a1, a3, a5, SP[a1, a4], a2, n] - 
    2*S2[a1, a3, SP[a1, a5], a2, a4, n] - 
    2*S2[a1, a3, SP[a1, a5], a4, a2, n] - S2[a1, a4, a2, a1, SP[a3, a5], n] - 
    S2[a1, a4, a2, SP[a1, a5], a3, n] + S2[a1, a4, a5, a1, SP[a2, a3], n] + 
    S2[a1, a4, a5, SP[a1, a2], a3, n] - S2[a4, n]*S2[a1, a5, a1, a2, a3, n] + 
    2*S2[a3, n]*S2[a1, a5, a1, a2, a4, n] + S2[a1, a5, a1, a2, SP[a3, a4], 
     n] - S2[a4, n]*S2[a1, a5, a1, a3, a2, n] - 
    2*S2[a1, a5, a1, a3, SP[a2, a4], n] + 
    2*S2[a3, n]*S2[a1, a5, a1, a4, a2, n] + S2[a1, a5, a1, a4, SP[a2, a3], 
     n] + S2[a1, a5, a1, SP[a2, a3], a4, n] - 
    2*S2[a1, a5, a1, SP[a2, a4], a3, n] + S2[a1, a5, a1, SP[a3, a4], a2, n] - 
    S2[a1, a5, a3, a1, SP[a2, a4], n] - S2[a1, a5, a3, SP[a1, a4], a2, n] + 
    2*S2[a3, n]*S2[a1, a5, a4, a1, a2, n] + S2[a1, a5, a4, a1, SP[a2, a3], 
     n] + S2[a1, a5, a4, SP[a1, a3], a2, n] + S2[a1, a5, SP[a1, a3], a2, a4, 
     n] + S2[a1, a5, SP[a1, a3], a4, a2, n] - 
    2*S2[a1, a5, SP[a1, a4], a2, a3, n] - 
    2*S2[a1, a5, SP[a1, a4], a3, a2, n] + 
    2*S2[a1, a5, SP[a3, a4], a1, a2, n] - S2[a1, SP[a1, a2], a5, a3, a4, n] - 
    S2[a1, SP[a1, a2], a5, a4, a3, n] - S2[a1, SP[a1, a5], a2, a3, a4, n] - 
    S2[a1, SP[a1, a5], a2, a4, a3, n] - S2[a1, SP[a1, a5], a3, a2, a4, n] - 
    S2[a1, SP[a1, a5], a3, a4, a2, n] - S2[a1, SP[a1, a5], a4, a2, a3, n] - 
    S2[a1, SP[a1, a5], a4, a3, a2, n] + 2*S2[a1, SP[a3, a5], a1, a2, a4, n] + 
    2*S2[a1, SP[a3, a5], a1, a4, a2, n] + 
    2*S2[a1, SP[a3, a5], a4, a1, a2, n] - S2[a1, SP[a4, a5], a1, a2, a3, n] - 
    S2[a1, SP[a4, a5], a1, a3, a2, n] - 2*S2[a3, a1, a1, a5, SP[a2, a4], n] - 
    2*S2[a3, a1, a1, SP[a2, a5], a4, n] - 
    2*S2[a3, a1, a5, a1, SP[a2, a4], n] - 
    2*S2[a3, a1, a5, SP[a1, a4], a2, n] - 
    2*S2[a3, a1, SP[a1, a5], a2, a4, n] - 
    2*S2[a3, a1, SP[a1, a5], a4, a2, n] - 
    2*S2[a3, a5, a1, a1, SP[a2, a4], n] - 
    2*S2[a3, a5, a1, SP[a1, a4], a2, n] - 
    2*S2[a3, a5, SP[a1, a4], a1, a2, n] - 
    2*S2[a3, SP[a1, a5], a1, a2, a4, n] - 
    2*S2[a3, SP[a1, a5], a1, a4, a2, n] - 
    2*S2[a3, SP[a1, a5], a4, a1, a2, n] - S2[a4, a1, a2, a1, SP[a3, a5], n] - 
    S2[a4, a1, a2, SP[a1, a5], a3, n] + S2[a4, a1, a5, a1, SP[a2, a3], n] + 
    S2[a4, a1, a5, SP[a1, a2], a3, n] + 2*S2[a4, a5, a1, a1, SP[a2, a3], n] + 
    S2[a4, a5, a1, SP[a1, a2], a3, n] + S2[a4, a5, a1, SP[a1, a3], a2, n] + 
    S2[a4, a5, SP[a1, a1], a2, a3, n] + S2[a4, a5, SP[a1, a1], a3, a2, n] + 
    S2[a4, SP[a1, a5], a1, a2, a3, n] + S2[a4, SP[a1, a5], a1, a3, a2, n] - 
    2*S2[a4, n]*S2[a5, a1, a1, a2, a3, n] + 
    2*S2[a3, n]*S2[a5, a1, a1, a2, a4, n] - 
    2*S2[a4, n]*S2[a5, a1, a1, a3, a2, n] - 
    2*S2[a5, a1, a1, a3, SP[a2, a4], n] + 
    2*S2[a3, n]*S2[a5, a1, a1, a4, a2, n] + 
    2*S2[a5, a1, a1, a4, SP[a2, a3], n] + 
    2*S2[a5, a1, a1, SP[a2, a3], a4, n] - 
    2*S2[a5, a1, a1, SP[a2, a4], a3, n] - 
    S2[a4, n]*S2[a5, a1, a3, a1, a2, n] - S2[a5, a1, a3, a1, SP[a2, a4], n] - 
    S2[a5, a1, a3, SP[a1, a4], a2, n] + 2*S2[a3, n]*
     S2[a5, a1, a4, a1, a2, n] + 2*S2[a5, a1, a4, a1, SP[a2, a3], n] + 
    2*S2[a5, a1, a4, SP[a1, a3], a2, n] + 
    2*S2[a5, a1, SP[a1, a3], a2, a4, n] + 
    2*S2[a5, a1, SP[a1, a3], a4, a2, n] - 
    2*S2[a5, a1, SP[a1, a4], a2, a3, n] - 
    2*S2[a5, a1, SP[a1, a4], a3, a2, n] + S2[a5, a1, SP[a3, a4], a1, a2, n] - 
    S2[a1, n]*S2[a5, a3, a1, a2, a4, n] - S2[a5, a3, a1, a2, SP[a1, a4], n] - 
    S2[a1, n]*S2[a5, a3, a1, a4, a2, n] - S2[a5, a3, a1, a4, SP[a1, a2], n] - 
    S2[a5, a3, a1, SP[a1, a2], a4, n] - S2[a5, a3, a1, SP[a1, a4], a2, n] - 
    S2[a1, n]*S2[a5, a3, a4, a1, a2, n] - S2[a5, a3, a4, a1, SP[a1, a2], n] - 
    S2[a5, a3, a4, SP[a1, a1], a2, n] - S2[a5, a3, SP[a1, a1], a2, a4, n] - 
    S2[a5, a3, SP[a1, a1], a4, a2, n] - S2[a5, a3, SP[a1, a4], a1, a2, n] + 
    2*S2[a3, n]*S2[a5, a4, a1, a1, a2, n] + 
    2*S2[a5, a4, a1, a1, SP[a2, a3], n] + 
    2*S2[a5, a4, a1, SP[a1, a3], a2, n] - 
    S2[a1, n]*S2[a5, a4, a3, a1, a2, n] - S2[a5, a4, a3, a1, SP[a1, a2], n] - 
    S2[a5, a4, a3, SP[a1, a1], a2, n] + S2[a5, a4, SP[a1, a3], a1, a2, n] + 
    S2[a5, SP[a1, a3], a1, a2, a4, n] + S2[a5, SP[a1, a3], a1, a4, a2, n] + 
    S2[a5, SP[a1, a3], a4, a1, a2, n] - 2*S2[a5, SP[a1, a4], a1, a2, a3, n] - 
    2*S2[a5, SP[a1, a4], a1, a3, a2, n] - 
    2*S2[a5, SP[a1, a4], a3, a1, a2, n] + 
    2*S2[a5, SP[a3, a4], a1, a1, a2, n] - S2[SP[a1, a1], a2, a5, a3, a4, n] - 
    S2[SP[a1, a1], a2, a5, a4, a3, n] - S2[SP[a1, a1], a5, a2, a3, a4, n] - 
    S2[SP[a1, a1], a5, a2, a4, a3, n] - S2[SP[a1, a1], a5, a3, a2, a4, n] - 
    S2[SP[a1, a1], a5, a3, a4, a2, n] - S2[SP[a1, a1], a5, a4, a2, a3, n] - 
    S2[SP[a1, a1], a5, a4, a3, a2, n] - S2[SP[a1, a5], a3, a1, a2, a4, n] - 
    S2[SP[a1, a5], a3, a1, a4, a2, n] - S2[SP[a1, a5], a3, a4, a1, a2, n] - 
    S2[SP[a1, a5], a4, a3, a1, a2, n] + 2*S2[SP[a3, a5], a1, a1, a2, a4, n] + 
    2*S2[SP[a3, a5], a1, a1, a4, a2, n] + 
    2*S2[SP[a3, a5], a1, a4, a1, a2, n] + 
    2*S2[SP[a3, a5], a4, a1, a1, a2, n] - 
    2*S2[SP[a4, a5], a1, a1, a2, a3, n] - 
    2*S2[SP[a4, a5], a1, a1, a3, a2, n] - S2[SP[a4, a5], a1, a3, a1, a2, n] + 
    S2[a5, a3, a1, a2, a1, a4, n] + S2[a5, a3, a1, a2, a4, a1, n] + 
    S2[a5, a3, a1, a4, a2, a1, n] + S2[a5, a3, a4, a1, a2, a1, n] + 
    S2[a5, a4, a3, a1, a2, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a1_, a2_, a1_, a4_, a3_, a5_, n_] :> 
  2*S2[a1, a1, a2, n]*S2[a3, a4, a5, n] + 2*S2[a1, a1, a2, n]*
     S2[a3, a5, a4, n] + 2*S2[SP[a1, a3], SP[a1, a4], SP[a2, a5], n] + 
    2*S2[SP[a1, a3], SP[a1, a5], SP[a2, a4], n] + 
    S2[a3, a5, n]*S2[a1, a2, a1, a4, n] - S2[a1, a2, SP[a1, a3], SP[a4, a5], 
     n] - 2*S2[a1, a3, SP[a1, a4], SP[a2, a5], n] - 
    2*S2[a1, a3, SP[a1, a5], SP[a2, a4], n] + 
    S2[a1, a2, n]*S2[a1, a4, a3, a5, n] + S2[a1, a2, n]*
     S2[a1, a4, a5, a3, n] - S2[a1, a4, SP[a1, a3], SP[a2, a5], n] - 
    S2[a1, a4, SP[a1, a5], SP[a2, a3], n] + S2[a1, a2, n]*
     S2[a1, a5, a3, a4, n] + S2[a1, a2, n]*S2[a1, a5, a4, a3, n] - 
    S2[a1, a5, SP[a1, a3], SP[a2, a4], n] - S2[a1, a5, SP[a1, a4], 
     SP[a2, a3], n] - 2*S2[a1, SP[a1, a3], a4, SP[a2, a5], n] - 
    2*S2[a1, SP[a1, a3], a5, SP[a2, a4], n] - 
    2*S2[a1, SP[a1, a3], SP[a2, a4], a5, n] - 
    2*S2[a1, SP[a1, a3], SP[a2, a5], a4, n] - S2[a1, SP[a1, a4], a3, 
     SP[a2, a5], n] - S2[a1, SP[a1, a4], a5, SP[a2, a3], n] - 
    S2[a1, SP[a1, a4], SP[a2, a3], a5, n] - S2[a1, SP[a1, a4], SP[a2, a5], 
     a3, n] - S2[a1, SP[a1, a5], a3, SP[a2, a4], n] - 
    S2[a1, SP[a1, a5], a4, SP[a2, a3], n] - S2[a1, SP[a1, a5], SP[a2, a3], 
     a4, n] - S2[a1, SP[a1, a5], SP[a2, a4], a3, n] - 
    S2[a1, SP[a2, a3], a1, SP[a4, a5], n] - S2[a1, SP[a2, a3], SP[a1, a5], 
     a4, n] - 2*S2[a3, a1, SP[a1, a4], SP[a2, a5], n] - 
    2*S2[a3, a1, SP[a1, a5], SP[a2, a4], n] - 
    S2[a1, a2, n]*S2[a3, a5, a1, a4, n] + S2[a3, a5, SP[a1, a1], SP[a2, a4], 
     n] - 2*S2[a3, SP[a1, a4], a1, SP[a2, a5], n] - 
    2*S2[a3, SP[a1, a4], SP[a1, a5], a2, n] - S2[a3, SP[a1, a5], a1, 
     SP[a2, a4], n] + S2[a3, SP[a1, a5], SP[a1, a2], a4, n] - 
    2*S2[a3, SP[a1, a5], SP[a1, a4], a2, n] - S2[SP[a1, a1], a4, a3, 
     SP[a2, a5], n] - S2[SP[a1, a1], a4, a5, SP[a2, a3], n] - 
    S2[SP[a1, a1], a4, SP[a2, a3], a5, n] - S2[SP[a1, a1], a4, SP[a2, a5], 
     a3, n] - S2[SP[a1, a1], a5, a3, SP[a2, a4], n] - 
    S2[SP[a1, a1], a5, a4, SP[a2, a3], n] - S2[SP[a1, a1], a5, SP[a2, a3], 
     a4, n] - S2[SP[a1, a1], a5, SP[a2, a4], a3, n] - 
    S2[SP[a1, a1], SP[a2, a4], a3, a5, n] - S2[SP[a1, a1], SP[a2, a4], a5, 
     a3, n] - S2[SP[a1, a1], SP[a2, a5], a3, a4, n] - 
    S2[SP[a1, a1], SP[a2, a5], a4, a3, n] - 
    2*S2[SP[a1, a3], a1, a4, SP[a2, a5], n] - 
    2*S2[SP[a1, a3], a1, a5, SP[a2, a4], n] - 
    2*S2[SP[a1, a3], a1, SP[a2, a4], a5, n] - 
    2*S2[SP[a1, a3], a1, SP[a2, a5], a4, n] - S2[SP[a1, a3], a2, a1, 
     SP[a4, a5], n] - S2[SP[a1, a3], a2, SP[a1, a5], a4, n] - 
    2*S2[SP[a1, a3], a4, a1, SP[a2, a5], n] - 
    2*S2[SP[a1, a3], a4, SP[a1, a5], a2, n] - S2[SP[a1, a3], a5, a1, 
     SP[a2, a4], n] + S2[SP[a1, a3], a5, SP[a1, a2], a4, n] - 
    2*S2[SP[a1, a3], a5, SP[a1, a4], a2, n] - 
    2*S2[SP[a1, a3], SP[a1, a4], a2, a5, n] - 
    2*S2[SP[a1, a3], SP[a1, a4], a5, a2, n] - 
    2*S2[SP[a1, a3], SP[a1, a5], a2, a4, n] - 
    2*S2[SP[a1, a3], SP[a1, a5], a4, a2, n] - 
    2*S2[a3, n]*S2[a1, a1, a2, a4, a5, n] - 
    2*S2[a1, a1, a2, a4, SP[a3, a5], n] - 
    2*S2[a3, n]*S2[a1, a1, a2, a5, a4, n] - 
    2*S2[a1, a1, a2, a5, SP[a3, a4], n] - 
    2*S2[a1, a1, a2, SP[a3, a4], a5, n] - 
    2*S2[a1, a1, a2, SP[a3, a5], a4, n] + 
    2*S2[a1, a1, a3, a4, SP[a2, a5], n] + 
    2*S2[a1, a1, a3, a5, SP[a2, a4], n] + 
    2*S2[a1, a1, a3, SP[a2, a4], a5, n] + 
    2*S2[a1, a1, a3, SP[a2, a5], a4, n] - 
    2*S2[a3, n]*S2[a1, a1, a4, a2, a5, n] - 
    2*S2[a1, a1, a4, a2, SP[a3, a5], n] + 
    2*S2[a1, a1, a4, a3, SP[a2, a5], n] - 
    2*S2[a3, n]*S2[a1, a1, a4, a5, a2, n] + 
    2*S2[a1, a1, a4, SP[a2, a5], a3, n] - 
    2*S2[a1, a1, a4, SP[a3, a5], a2, n] - 
    2*S2[a3, n]*S2[a1, a1, a5, a2, a4, n] - 
    2*S2[a1, a1, a5, a2, SP[a3, a4], n] + 
    2*S2[a1, a1, a5, a3, SP[a2, a4], n] - 
    2*S2[a3, n]*S2[a1, a1, a5, a4, a2, n] + 
    2*S2[a1, a1, a5, SP[a2, a4], a3, n] - 
    2*S2[a1, a1, a5, SP[a3, a4], a2, n] + 
    2*S2[a1, a1, SP[a2, a4], a3, a5, n] + 
    2*S2[a1, a1, SP[a2, a4], a5, a3, n] + 
    2*S2[a1, a1, SP[a2, a5], a3, a4, n] + 
    2*S2[a1, a1, SP[a2, a5], a4, a3, n] - 
    2*S2[a1, a1, SP[a3, a4], a2, a5, n] - 
    2*S2[a1, a1, SP[a3, a4], a5, a2, n] - 
    2*S2[a1, a1, SP[a3, a5], a2, a4, n] - 
    2*S2[a1, a1, SP[a3, a5], a4, a2, n] + S2[a1, a2, a1, a3, SP[a4, a5], n] - 
    S2[a3, n]*S2[a1, a2, a1, a4, a5, n] - S2[a1, a2, a1, a4, SP[a3, a5], n] - 
    S2[a3, n]*S2[a1, a2, a1, a5, a4, n] - S2[a1, a2, a1, a5, SP[a3, a4], n] - 
    S2[a1, a2, a1, SP[a3, a5], a4, n] + S2[a1, a2, a3, a1, SP[a4, a5], n] + 
    S2[a1, a2, a3, SP[a1, a5], a4, n] + 2*S2[a1, a3, a1, a4, SP[a2, a5], n] + 
    2*S2[a1, a3, a1, a5, SP[a2, a4], n] + 
    2*S2[a1, a3, a1, SP[a2, a4], a5, n] + 
    2*S2[a1, a3, a1, SP[a2, a5], a4, n] + S2[a1, a3, a2, a1, SP[a4, a5], n] + 
    S2[a1, a3, a2, SP[a1, a5], a4, n] + 2*S2[a1, a3, a4, a1, SP[a2, a5], n] + 
    2*S2[a1, a3, a4, SP[a1, a5], a2, n] + S2[a1, a3, a5, a1, SP[a2, a4], n] - 

    S2[a1, a3, a5, SP[a1, a2], a4, n] + 2*S2[a1, a3, a5, SP[a1, a4], a2, n] + 
    2*S2[a1, a3, SP[a1, a4], a2, a5, n] + 
    2*S2[a1, a3, SP[a1, a4], a5, a2, n] + 
    2*S2[a1, a3, SP[a1, a5], a2, a4, n] + 
    2*S2[a1, a3, SP[a1, a5], a4, a2, n] + 
    S2[a5, n]*S2[a1, a4, a1, a2, a3, n] - 
    2*S2[a3, n]*S2[a1, a4, a1, a2, a5, n] - S2[a1, a4, a1, a2, SP[a3, a5], 
     n] + S2[a5, n]*S2[a1, a4, a1, a3, a2, n] + 
    2*S2[a1, a4, a1, a3, SP[a2, a5], n] - 
    2*S2[a3, n]*S2[a1, a4, a1, a5, a2, n] - S2[a1, a4, a1, a5, SP[a2, a3], 
     n] - S2[a1, a4, a1, SP[a2, a3], a5, n] + 
    2*S2[a1, a4, a1, SP[a2, a5], a3, n] - S2[a1, a4, a1, SP[a3, a5], a2, n] + 
    S2[a5, n]*S2[a1, a4, a3, a1, a2, n] + 
    2*S2[a1, a4, a3, a1, SP[a2, a5], n] + 
    2*S2[a1, a4, a3, SP[a1, a5], a2, n] - 
    2*S2[a3, n]*S2[a1, a4, a5, a1, a2, n] - S2[a1, a4, a5, a1, SP[a2, a3], 
     n] - S2[a1, a4, a5, SP[a1, a3], a2, n] - S2[a1, a4, SP[a1, a3], a2, a5, 
     n] - S2[a1, a4, SP[a1, a3], a5, a2, n] + 
    2*S2[a1, a4, SP[a1, a5], a2, a3, n] + 
    2*S2[a1, a4, SP[a1, a5], a3, a2, n] - S2[a1, a4, SP[a3, a5], a1, a2, n] - 
    S2[a3, n]*S2[a1, a5, a1, a2, a4, n] - S2[a1, a5, a1, a2, SP[a3, a4], n] + 
    S2[a1, a5, a1, a3, SP[a2, a4], n] - S2[a3, n]*S2[a1, a5, a1, a4, a2, n] + 
    S2[a1, a5, a1, SP[a2, a4], a3, n] - S2[a1, a5, a1, SP[a3, a4], a2, n] + 
    S2[a1, a5, a3, a1, SP[a2, a4], n] + S2[a1, a5, a3, SP[a1, a4], a2, n] - 
    2*S2[a3, n]*S2[a1, a5, a4, a1, a2, n] - S2[a1, a5, a4, a1, SP[a2, a3], 
     n] - S2[a1, a5, a4, SP[a1, a3], a2, n] + S2[a1, a5, SP[a1, a4], a2, a3, 
     n] + S2[a1, a5, SP[a1, a4], a3, a2, n] - 
    2*S2[a1, a5, SP[a3, a4], a1, a2, n] + S2[a1, SP[a1, a2], a4, a3, a5, n] + 
    S2[a1, SP[a1, a2], a4, a5, a3, n] + S2[a1, SP[a1, a2], a5, a3, a4, n] + 
    S2[a1, SP[a1, a2], a5, a4, a3, n] + S2[a1, SP[a1, a4], a2, a3, a5, n] + 
    S2[a1, SP[a1, a4], a2, a5, a3, n] + S2[a1, SP[a1, a4], a3, a2, a5, n] + 
    S2[a1, SP[a1, a4], a3, a5, a2, n] + S2[a1, SP[a1, a4], a5, a2, a3, n] + 
    S2[a1, SP[a1, a4], a5, a3, a2, n] + S2[a1, SP[a1, a5], a2, a3, a4, n] + 
    S2[a1, SP[a1, a5], a2, a4, a3, n] + S2[a1, SP[a1, a5], a3, a2, a4, n] + 
    S2[a1, SP[a1, a5], a3, a4, a2, n] + S2[a1, SP[a1, a5], a4, a2, a3, n] + 
    S2[a1, SP[a1, a5], a4, a3, a2, n] - 2*S2[a1, SP[a3, a4], a1, a2, a5, n] - 
    2*S2[a1, SP[a3, a4], a1, a5, a2, n] - 
    2*S2[a1, SP[a3, a4], a5, a1, a2, n] - S2[a1, SP[a3, a5], a1, a2, a4, n] - 
    S2[a1, SP[a3, a5], a1, a4, a2, n] - 2*S2[a1, SP[a3, a5], a4, a1, a2, n] + 
    S2[a1, SP[a4, a5], a1, a2, a3, n] + S2[a1, SP[a4, a5], a1, a3, a2, n] + 
    S2[a1, SP[a4, a5], a3, a1, a2, n] + 2*S2[a3, a1, a1, a4, SP[a2, a5], n] + 
    2*S2[a3, a1, a1, a5, SP[a2, a4], n] + 
    2*S2[a3, a1, a1, SP[a2, a4], a5, n] + 
    2*S2[a3, a1, a1, SP[a2, a5], a4, n] + S2[a3, a1, a2, a1, SP[a4, a5], n] + 
    S2[a3, a1, a2, SP[a1, a5], a4, n] + 2*S2[a3, a1, a4, a1, SP[a2, a5], n] + 
    2*S2[a3, a1, a4, SP[a1, a5], a2, n] + S2[a3, a1, a5, a1, SP[a2, a4], n] - 
    S2[a3, a1, a5, SP[a1, a2], a4, n] + 2*S2[a3, a1, a5, SP[a1, a4], a2, n] + 
    2*S2[a3, a1, SP[a1, a4], a2, a5, n] + 
    2*S2[a3, a1, SP[a1, a4], a5, a2, n] + 
    2*S2[a3, a1, SP[a1, a5], a2, a4, n] + 
    2*S2[a3, a1, SP[a1, a5], a4, a2, n] - 
    2*S2[a5, n]*S2[a3, a4, a1, a1, a2, n] - S2[a3, a5, a1, SP[a1, a2], a4, 
     n] + S2[a3, a5, a1, SP[a1, a4], a2, n] - S2[a3, a5, SP[a1, a1], a2, a4, 
     n] - S2[a3, a5, SP[a1, a1], a4, a2, n] + 
    2*S2[a3, a5, SP[a1, a4], a1, a2, n] + 
    2*S2[a3, SP[a1, a4], a1, a2, a5, n] + 
    2*S2[a3, SP[a1, a4], a1, a5, a2, n] + 
    2*S2[a3, SP[a1, a4], a5, a1, a2, n] + S2[a3, SP[a1, a5], a1, a2, a4, n] + 
    S2[a3, SP[a1, a5], a1, a4, a2, n] + 2*S2[a3, SP[a1, a5], a4, a1, a2, n] - 
    2*S2[a3, SP[a4, a5], a1, a1, a2, n] - 
    S2[a3, n]*S2[a5, a1, a4, a1, a2, n] - S2[a5, a1, a4, a1, SP[a2, a3], n] - 
    S2[a5, a1, a4, SP[a1, a3], a2, n] - S2[a5, a1, SP[a3, a4], a1, a2, n] + 
    S2[a1, n]*S2[a5, a3, a4, a1, a2, n] + S2[a5, a3, a4, a1, SP[a1, a2], n] + 
    S2[a5, a3, a4, SP[a1, a1], a2, n] + S2[a5, a3, SP[a1, a4], a1, a2, n] + 
    S2[SP[a1, a1], a2, a4, a3, a5, n] + S2[SP[a1, a1], a2, a4, a5, a3, n] + 
    S2[SP[a1, a1], a2, a5, a3, a4, n] + S2[SP[a1, a1], a2, a5, a4, a3, n] + 
    S2[SP[a1, a1], a4, a2, a3, a5, n] + S2[SP[a1, a1], a4, a2, a5, a3, n] + 
    S2[SP[a1, a1], a4, a3, a2, a5, n] + S2[SP[a1, a1], a4, a3, a5, a2, n] + 
    S2[SP[a1, a1], a4, a5, a2, a3, n] + S2[SP[a1, a1], a4, a5, a3, a2, n] + 
    S2[SP[a1, a1], a5, a2, a3, a4, n] + S2[SP[a1, a1], a5, a2, a4, a3, n] + 
    S2[SP[a1, a1], a5, a3, a2, a4, n] + S2[SP[a1, a1], a5, a3, a4, a2, n] + 
    S2[SP[a1, a1], a5, a4, a2, a3, n] + S2[SP[a1, a1], a5, a4, a3, a2, n] + 
    S2[SP[a1, a5], a3, a4, a1, a2, n] + S2[SP[a1, a5], a4, a1, a2, a3, n] + 
    S2[SP[a1, a5], a4, a1, a3, a2, n] + S2[SP[a1, a5], a4, a3, a1, a2, n] - 
    S2[SP[a3, a5], a1, a4, a1, a2, n] - 2*S2[SP[a3, a5], a4, a1, a1, a2, n] - 
    S2[a5, a3, a4, a1, a2, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a1_, a2_, a1_, a4_, a5_, a3_, n_] :> 
  -2*S2[a1, a1, a2, n]*S2[a3, a5, a4, n] - 
    2*S2[SP[a1, a3], SP[a1, a5], SP[a2, a4], n] - 
    S2[a3, a5, n]*S2[a1, a2, a1, a4, n] + S2[a1, a2, SP[a1, a3], SP[a4, a5], 
     n] + 2*S2[a1, a3, SP[a1, a5], SP[a2, a4], n] - 
    S2[a1, a2, n]*S2[a1, a5, a3, a4, n] - S2[a1, a2, n]*
     S2[a1, a5, a4, a3, n] + S2[a1, a5, SP[a1, a3], SP[a2, a4], n] + 
    S2[a1, a5, SP[a1, a4], SP[a2, a3], n] + 
    2*S2[a1, SP[a1, a3], a5, SP[a2, a4], n] + 
    2*S2[a1, SP[a1, a3], SP[a2, a5], a4, n] + S2[a1, SP[a1, a5], a3, 
     SP[a2, a4], n] + S2[a1, SP[a1, a5], a4, SP[a2, a3], n] + 
    S2[a1, SP[a1, a5], SP[a2, a3], a4, n] + S2[a1, SP[a1, a5], SP[a2, a4], 
     a3, n] + S2[a1, SP[a2, a3], a1, SP[a4, a5], n] + 
    S2[a1, SP[a2, a3], SP[a1, a5], a4, n] + 
    2*S2[a3, a1, SP[a1, a5], SP[a2, a4], n] + 
    S2[a1, a2, n]*S2[a3, a5, a1, a4, n] - S2[a3, a5, SP[a1, a1], SP[a2, a4], 
     n] + S2[a3, SP[a1, a5], a1, SP[a2, a4], n] - 
    S2[a3, SP[a1, a5], SP[a1, a2], a4, n] + 
    2*S2[a3, SP[a1, a5], SP[a1, a4], a2, n] + S2[SP[a1, a1], a5, a3, 
     SP[a2, a4], n] + S2[SP[a1, a1], a5, a4, SP[a2, a3], n] + 
    S2[SP[a1, a1], a5, SP[a2, a3], a4, n] + S2[SP[a1, a1], a5, SP[a2, a4], 
     a3, n] + S2[SP[a1, a1], SP[a2, a5], a3, a4, n] + 
    S2[SP[a1, a1], SP[a2, a5], a4, a3, n] + 
    2*S2[SP[a1, a3], a1, a5, SP[a2, a4], n] + 
    2*S2[SP[a1, a3], a1, SP[a2, a5], a4, n] + S2[SP[a1, a3], a2, a1, 
     SP[a4, a5], n] + S2[SP[a1, a3], a2, SP[a1, a5], a4, n] + 
    S2[SP[a1, a3], a5, a1, SP[a2, a4], n] - S2[SP[a1, a3], a5, SP[a1, a2], 
     a4, n] + 2*S2[SP[a1, a3], a5, SP[a1, a4], a2, n] + 
    2*S2[SP[a1, a3], SP[a1, a5], a2, a4, n] + 
    2*S2[SP[a1, a3], SP[a1, a5], a4, a2, n] + 
    2*S2[a3, n]*S2[a1, a1, a2, a5, a4, n] + 
    2*S2[a1, a1, a2, a5, SP[a3, a4], n] + 
    2*S2[a1, a1, a2, SP[a3, a5], a4, n] - 
    2*S2[a1, a1, a3, a5, SP[a2, a4], n] - 
    2*S2[a1, a1, a3, SP[a2, a5], a4, n] + 
    2*S2[a3, n]*S2[a1, a1, a5, a2, a4, n] + 
    2*S2[a1, a1, a5, a2, SP[a3, a4], n] - 
    2*S2[a1, a1, a5, a3, SP[a2, a4], n] + 
    2*S2[a3, n]*S2[a1, a1, a5, a4, a2, n] - 
    2*S2[a1, a1, a5, SP[a2, a4], a3, n] + 
    2*S2[a1, a1, a5, SP[a3, a4], a2, n] - 
    2*S2[a1, a1, SP[a2, a5], a3, a4, n] - 
    2*S2[a1, a1, SP[a2, a5], a4, a3, n] + 
    2*S2[a1, a1, SP[a3, a5], a2, a4, n] + 
    2*S2[a1, a1, SP[a3, a5], a4, a2, n] - S2[a1, a2, a1, a3, SP[a4, a5], n] + 
    S2[a3, n]*S2[a1, a2, a1, a4, a5, n] + S2[a1, a2, a1, a4, SP[a3, a5], n] + 
    S2[a3, n]*S2[a1, a2, a1, a5, a4, n] + S2[a1, a2, a1, a5, SP[a3, a4], n] + 
    S2[a1, a2, a1, SP[a3, a5], a4, n] - S2[a1, a2, a3, a1, SP[a4, a5], n] - 
    S2[a1, a2, a3, SP[a1, a5], a4, n] - 2*S2[a1, a3, a1, a5, SP[a2, a4], n] - 
    2*S2[a1, a3, a1, SP[a2, a5], a4, n] - S2[a1, a3, a2, a1, SP[a4, a5], n] - 
    S2[a1, a3, a2, SP[a1, a5], a4, n] - S2[a1, a3, a5, a1, SP[a2, a4], n] + 
    S2[a1, a3, a5, SP[a1, a2], a4, n] - 2*S2[a1, a3, a5, SP[a1, a4], a2, n] - 
    2*S2[a1, a3, SP[a1, a5], a2, a4, n] - 
    2*S2[a1, a3, SP[a1, a5], a4, a2, n] + 
    S2[a3, n]*S2[a1, a5, a1, a2, a4, n] + S2[a1, a5, a1, a2, SP[a3, a4], n] - 
    S2[a1, a5, a1, a3, SP[a2, a4], n] + S2[a3, n]*S2[a1, a5, a1, a4, a2, n] - 
    S2[a1, a5, a1, SP[a2, a4], a3, n] + S2[a1, a5, a1, SP[a3, a4], a2, n] - 
    S2[a1, a5, a3, a1, SP[a2, a4], n] - S2[a1, a5, a3, SP[a1, a4], a2, n] + 
    2*S2[a3, n]*S2[a1, a5, a4, a1, a2, n] + S2[a1, a5, a4, a1, SP[a2, a3], 
     n] + S2[a1, a5, a4, SP[a1, a3], a2, n] - S2[a1, a5, SP[a1, a4], a2, a3, 
     n] - S2[a1, a5, SP[a1, a4], a3, a2, n] + 
    2*S2[a1, a5, SP[a3, a4], a1, a2, n] - S2[a1, SP[a1, a2], a5, a3, a4, n] - 
    S2[a1, SP[a1, a2], a5, a4, a3, n] - S2[a1, SP[a1, a5], a2, a3, a4, n] - 
    S2[a1, SP[a1, a5], a2, a4, a3, n] - S2[a1, SP[a1, a5], a3, a2, a4, n] - 
    S2[a1, SP[a1, a5], a3, a4, a2, n] - S2[a1, SP[a1, a5], a4, a2, a3, n] - 
    S2[a1, SP[a1, a5], a4, a3, a2, n] + S2[a1, SP[a3, a5], a1, a2, a4, n] + 
    S2[a1, SP[a3, a5], a1, a4, a2, n] + 2*S2[a1, SP[a3, a5], a4, a1, a2, n] - 
    2*S2[a3, a1, a1, a5, SP[a2, a4], n] - 
    2*S2[a3, a1, a1, SP[a2, a5], a4, n] - S2[a3, a1, a2, a1, SP[a4, a5], n] - 
    S2[a3, a1, a2, SP[a1, a5], a4, n] - S2[a3, a1, a5, a1, SP[a2, a4], n] + 
    S2[a3, a1, a5, SP[a1, a2], a4, n] - 2*S2[a3, a1, a5, SP[a1, a4], a2, n] - 
    2*S2[a3, a1, SP[a1, a5], a2, a4, n] - 
    2*S2[a3, a1, SP[a1, a5], a4, a2, n] + S2[a3, a5, a1, SP[a1, a2], a4, n] - 
    S2[a3, a5, a1, SP[a1, a4], a2, n] + S2[a3, a5, SP[a1, a1], a2, a4, n] + 
    S2[a3, a5, SP[a1, a1], a4, a2, n] - 2*S2[a3, a5, SP[a1, a4], a1, a2, n] - 
    S2[a3, SP[a1, a5], a1, a2, a4, n] - S2[a3, SP[a1, a5], a1, a4, a2, n] - 
    2*S2[a3, SP[a1, a5], a4, a1, a2, n] + 
    S2[a3, n]*S2[a5, a1, a4, a1, a2, n] + S2[a5, a1, a4, a1, SP[a2, a3], n] + 
    S2[a5, a1, a4, SP[a1, a3], a2, n] + S2[a5, a1, SP[a3, a4], a1, a2, n] - 
    S2[a1, n]*S2[a5, a3, a4, a1, a2, n] - S2[a5, a3, a4, a1, SP[a1, a2], n] - 
    S2[a5, a3, a4, SP[a1, a1], a2, n] - S2[a5, a3, SP[a1, a4], a1, a2, n] + 
    2*S2[a3, n]*S2[a5, a4, a1, a1, a2, n] + 
    2*S2[a5, a4, a1, a1, SP[a2, a3], n] - 
    S2[a1, n]*S2[a5, a4, a1, a2, a3, n] - S2[a5, a4, a1, a2, SP[a1, a3], n] - 
    S2[a1, n]*S2[a5, a4, a1, a3, a2, n] - S2[a5, a4, a1, a3, SP[a1, a2], n] - 
    S2[a5, a4, a1, SP[a1, a2], a3, n] + S2[a5, a4, a1, SP[a1, a3], a2, n] - 
    S2[a1, n]*S2[a5, a4, a3, a1, a2, n] - S2[a5, a4, a3, a1, SP[a1, a2], n] - 
    S2[a5, a4, a3, SP[a1, a1], a2, n] - S2[a5, a4, SP[a1, a1], a2, a3, n] - 
    S2[a5, a4, SP[a1, a1], a3, a2, n] + S2[a5, a4, SP[a1, a3], a1, a2, n] - 
    S2[a5, SP[a1, a4], a1, a2, a3, n] - S2[a5, SP[a1, a4], a1, a3, a2, n] - 
    S2[a5, SP[a1, a4], a3, a1, a2, n] + 2*S2[a5, SP[a3, a4], a1, a1, a2, n] - 
    S2[SP[a1, a1], a2, a5, a3, a4, n] - S2[SP[a1, a1], a2, a5, a4, a3, n] - 
    S2[SP[a1, a1], a5, a2, a3, a4, n] - S2[SP[a1, a1], a5, a2, a4, a3, n] - 
    S2[SP[a1, a1], a5, a3, a2, a4, n] - S2[SP[a1, a1], a5, a3, a4, a2, n] - 
    S2[SP[a1, a1], a5, a4, a2, a3, n] - S2[SP[a1, a1], a5, a4, a3, a2, n] - 
    S2[SP[a1, a5], a3, a4, a1, a2, n] - S2[SP[a1, a5], a4, a1, a2, a3, n] - 
    S2[SP[a1, a5], a4, a1, a3, a2, n] - S2[SP[a1, a5], a4, a3, a1, a2, n] + 
    S2[SP[a3, a5], a1, a4, a1, a2, n] + 2*S2[SP[a3, a5], a4, a1, a1, a2, n] + 
    S2[a5, a3, a4, a1, a2, a1, n] + S2[a5, a4, a1, a2, a1, a3, n] + 
    S2[a5, a4, a1, a2, a3, a1, n] + S2[a5, a4, a1, a3, a2, a1, n] + 
    S2[a5, a4, a3, a1, a2, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a1_, a2_, a1_, a5_, a3_, a4_, n_] :> 
  2*S2[a1, a1, a2, n]*S2[a3, a4, a5, n] + 2*S2[a1, a1, a2, n]*
     S2[a3, a5, a4, n] + 2*S2[SP[a1, a3], SP[a1, a4], SP[a2, a5], n] + 
    2*S2[SP[a1, a3], SP[a1, a5], SP[a2, a4], n] - 
    2*S2[a1, a3, SP[a1, a4], SP[a2, a5], n] - 
    2*S2[a1, a3, SP[a1, a5], SP[a2, a4], n] + 
    S2[a1, a2, n]*S2[a1, a5, a3, a4, n] - S2[a1, a5, SP[a1, a3], SP[a2, a4], 
     n] - 2*S2[a1, SP[a1, a3], a4, SP[a2, a5], n] - 
    2*S2[a1, SP[a1, a3], a5, SP[a2, a4], n] - 
    2*S2[a1, SP[a1, a3], SP[a2, a4], a5, n] - 
    2*S2[a1, SP[a1, a3], SP[a2, a5], a4, n] - S2[a1, SP[a1, a5], a3, 
     SP[a2, a4], n] - S2[a1, SP[a1, a5], SP[a2, a3], a4, n] - 
    2*S2[a3, a1, SP[a1, a4], SP[a2, a5], n] - 
    2*S2[a3, a1, SP[a1, a5], SP[a2, a4], n] - 
    2*S2[a3, SP[a1, a4], a1, SP[a2, a5], n] - 
    2*S2[a3, SP[a1, a4], SP[a1, a5], a2, n] - 
    2*S2[a3, SP[a1, a5], a1, SP[a2, a4], n] - 
    2*S2[a3, SP[a1, a5], SP[a1, a4], a2, n] - S2[SP[a1, a1], a5, a3, 
     SP[a2, a4], n] - S2[SP[a1, a1], a5, SP[a2, a3], a4, n] - 
    S2[SP[a1, a1], SP[a2, a5], a3, a4, n] - 
    2*S2[SP[a1, a3], a1, a4, SP[a2, a5], n] - 
    2*S2[SP[a1, a3], a1, a5, SP[a2, a4], n] - 
    2*S2[SP[a1, a3], a1, SP[a2, a4], a5, n] - 
    2*S2[SP[a1, a3], a1, SP[a2, a5], a4, n] - 
    2*S2[SP[a1, a3], a4, a1, SP[a2, a5], n] - 
    2*S2[SP[a1, a3], a4, SP[a1, a5], a2, n] - 
    2*S2[SP[a1, a3], a5, a1, SP[a2, a4], n] - 
    2*S2[SP[a1, a3], a5, SP[a1, a4], a2, n] - 
    2*S2[SP[a1, a3], SP[a1, a4], a2, a5, n] - 
    2*S2[SP[a1, a3], SP[a1, a4], a5, a2, n] - 
    2*S2[SP[a1, a3], SP[a1, a5], a2, a4, n] - 
    2*S2[SP[a1, a3], SP[a1, a5], a4, a2, n] + 
    2*S2[a5, n]*S2[a1, a1, a2, a4, a3, n] - 
    2*S2[a3, n]*S2[a1, a1, a2, a4, a5, n] - 
    2*S2[a3, n]*S2[a1, a1, a2, a5, a4, n] - 
    2*S2[a1, a1, a2, a5, SP[a3, a4], n] - 
    2*S2[a1, a1, a2, SP[a3, a4], a5, n] - 
    2*S2[a1, a1, a2, SP[a3, a5], a4, n] + 
    2*S2[a1, a1, a2, SP[a4, a5], a3, n] + 
    2*S2[a1, a1, a3, a4, SP[a2, a5], n] + 
    2*S2[a1, a1, a3, a5, SP[a2, a4], n] + 
    2*S2[a1, a1, a3, SP[a2, a4], a5, n] + 
    2*S2[a1, a1, a3, SP[a2, a5], a4, n] + 
    2*S2[a5, n]*S2[a1, a1, a4, a2, a3, n] - 
    2*S2[a3, n]*S2[a1, a1, a4, a2, a5, n] + 
    2*S2[a5, n]*S2[a1, a1, a4, a3, a2, n] + 
    2*S2[a1, a1, a4, a3, SP[a2, a5], n] - 
    2*S2[a3, n]*S2[a1, a1, a4, a5, a2, n] - 
    2*S2[a1, a1, a4, a5, SP[a2, a3], n] - 
    2*S2[a1, a1, a4, SP[a2, a3], a5, n] + 
    2*S2[a1, a1, a4, SP[a2, a5], a3, n] - 
    2*S2[a3, n]*S2[a1, a1, a5, a2, a4, n] - 
    2*S2[a1, a1, a5, a2, SP[a3, a4], n] + 
    2*S2[a1, a1, a5, a3, SP[a2, a4], n] - 
    2*S2[a3, n]*S2[a1, a1, a5, a4, a2, n] - 
    2*S2[a1, a1, a5, a4, SP[a2, a3], n] - 
    2*S2[a1, a1, a5, SP[a3, a4], a2, n] + 
    2*S2[a1, a1, SP[a2, a5], a3, a4, n] + 
    2*S2[a1, a1, SP[a2, a5], a4, a3, n] - 
    2*S2[a1, a1, SP[a3, a4], a2, a5, n] - 
    2*S2[a1, a1, SP[a3, a4], a5, a2, n] - 
    2*S2[a1, a1, SP[a3, a5], a2, a4, n] - 
    2*S2[a1, a1, SP[a3, a5], a4, a2, n] + 
    2*S2[a1, a1, SP[a4, a5], a2, a3, n] + 
    2*S2[a1, a1, SP[a4, a5], a3, a2, n] + 
    2*S2[a1, a3, a1, a4, SP[a2, a5], n] + 
    2*S2[a1, a3, a1, a5, SP[a2, a4], n] + 
    2*S2[a1, a3, a1, SP[a2, a4], a5, n] + 
    2*S2[a1, a3, a1, SP[a2, a5], a4, n] + 
    2*S2[a1, a3, a4, a1, SP[a2, a5], n] + 
    2*S2[a1, a3, a4, SP[a1, a5], a2, n] + 
    2*S2[a1, a3, a5, a1, SP[a2, a4], n] + 
    2*S2[a1, a3, a5, SP[a1, a4], a2, n] + 
    2*S2[a1, a3, SP[a1, a4], a2, a5, n] + 
    2*S2[a1, a3, SP[a1, a4], a5, a2, n] + 
    2*S2[a1, a3, SP[a1, a5], a2, a4, n] + 
    2*S2[a1, a3, SP[a1, a5], a4, a2, n] + 
    2*S2[a5, n]*S2[a1, a4, a1, a2, a3, n] - 
    2*S2[a3, n]*S2[a1, a4, a1, a2, a5, n] + 
    2*S2[a5, n]*S2[a1, a4, a1, a3, a2, n] + 
    2*S2[a1, a4, a1, a3, SP[a2, a5], n] - 
    2*S2[a3, n]*S2[a1, a4, a1, a5, a2, n] - 
    2*S2[a1, a4, a1, a5, SP[a2, a3], n] - 
    2*S2[a1, a4, a1, SP[a2, a3], a5, n] + 
    2*S2[a1, a4, a1, SP[a2, a5], a3, n] + 
    2*S2[a5, n]*S2[a1, a4, a3, a1, a2, n] + 
    2*S2[a1, a4, a3, a1, SP[a2, a5], n] + 
    2*S2[a1, a4, a3, SP[a1, a5], a2, n] - 
    2*S2[a3, n]*S2[a1, a4, a5, a1, a2, n] - 
    2*S2[a1, a4, a5, a1, SP[a2, a3], n] - 
    2*S2[a1, a4, a5, SP[a1, a3], a2, n] - 
    2*S2[a1, a4, SP[a1, a3], a2, a5, n] - 
    2*S2[a1, a4, SP[a1, a3], a5, a2, n] + 
    2*S2[a1, a4, SP[a1, a5], a2, a3, n] + 
    2*S2[a1, a4, SP[a1, a5], a3, a2, n] - 
    2*S2[a3, n]*S2[a1, a5, a1, a2, a4, n] - 
    2*S2[a1, a5, a1, a2, SP[a3, a4], n] + S2[a1, a5, a1, a3, SP[a2, a4], n] - 
    2*S2[a3, n]*S2[a1, a5, a1, a4, a2, n] - 
    2*S2[a1, a5, a1, a4, SP[a2, a3], n] - S2[a1, a5, a1, SP[a2, a3], a4, n] - 
    2*S2[a1, a5, a1, SP[a3, a4], a2, n] + S2[a1, a5, a3, a1, SP[a2, a4], n] + 
    S2[a1, a5, a3, SP[a1, a4], a2, n] - 2*S2[a3, n]*
     S2[a1, a5, a4, a1, a2, n] - 2*S2[a1, a5, a4, a1, SP[a2, a3], n] - 
    2*S2[a1, a5, a4, SP[a1, a3], a2, n] - S2[a1, a5, SP[a1, a3], a2, a4, n] - 
    S2[a1, a5, SP[a1, a3], a4, a2, n] - 2*S2[a1, a5, SP[a3, a4], a1, a2, n] + 
    S2[a1, SP[a1, a2], a5, a3, a4, n] + S2[a1, SP[a1, a5], a2, a3, a4, n] + 
    2*S2[a1, SP[a1, a5], a2, a4, a3, n] + S2[a1, SP[a1, a5], a3, a2, a4, n] + 
    S2[a1, SP[a1, a5], a3, a4, a2, n] + 2*S2[a1, SP[a1, a5], a4, a2, a3, n] + 
    2*S2[a1, SP[a1, a5], a4, a3, a2, n] - 
    2*S2[a1, SP[a3, a4], a1, a2, a5, n] - 
    2*S2[a1, SP[a3, a4], a1, a5, a2, n] - 
    2*S2[a1, SP[a3, a4], a5, a1, a2, n] - 
    2*S2[a1, SP[a3, a5], a1, a2, a4, n] - 
    2*S2[a1, SP[a3, a5], a1, a4, a2, n] - 
    2*S2[a1, SP[a3, a5], a4, a1, a2, n] + 
    2*S2[a1, SP[a4, a5], a1, a2, a3, n] + 
    2*S2[a1, SP[a4, a5], a1, a3, a2, n] + 
    2*S2[a1, SP[a4, a5], a3, a1, a2, n] + 
    2*S2[a3, a1, a1, a4, SP[a2, a5], n] + 
    2*S2[a3, a1, a1, a5, SP[a2, a4], n] + 
    2*S2[a3, a1, a1, SP[a2, a4], a5, n] + 
    2*S2[a3, a1, a1, SP[a2, a5], a4, n] + 
    2*S2[a3, a1, a4, a1, SP[a2, a5], n] + 
    2*S2[a3, a1, a4, SP[a1, a5], a2, n] + 
    2*S2[a3, a1, a5, a1, SP[a2, a4], n] + 
    2*S2[a3, a1, a5, SP[a1, a4], a2, n] + 
    2*S2[a3, a1, SP[a1, a4], a2, a5, n] + 
    2*S2[a3, a1, SP[a1, a4], a5, a2, n] + 
    2*S2[a3, a1, SP[a1, a5], a2, a4, n] + 
    2*S2[a3, a1, SP[a1, a5], a4, a2, n] - 
    2*S2[a5, n]*S2[a3, a4, a1, a1, a2, n] + 
    2*S2[a3, a5, a1, a1, SP[a2, a4], n] + 
    2*S2[a3, a5, a1, SP[a1, a4], a2, n] + 
    2*S2[a3, a5, SP[a1, a4], a1, a2, n] + 
    2*S2[a3, SP[a1, a4], a1, a2, a5, n] + 
    2*S2[a3, SP[a1, a4], a1, a5, a2, n] + 
    2*S2[a3, SP[a1, a4], a5, a1, a2, n] + 
    2*S2[a3, SP[a1, a5], a1, a2, a4, n] + 
    2*S2[a3, SP[a1, a5], a1, a4, a2, n] + 
    2*S2[a3, SP[a1, a5], a4, a1, a2, n] - 
    2*S2[a3, SP[a4, a5], a1, a1, a2, n] - 
    2*S2[a3, n]*S2[a5, a1, a1, a2, a4, n] - 
    2*S2[a5, a1, a1, a2, SP[a3, a4], n] - 
    2*S2[a3, n]*S2[a5, a1, a1, a4, a2, n] - 
    2*S2[a5, a1, a1, a4, SP[a2, a3], n] - 
    2*S2[a5, a1, a1, SP[a2, a3], a4, n] - 
    2*S2[a5, a1, a1, SP[a3, a4], a2, n] + 
    S2[a1, n]*S2[a5, a1, a2, a3, a4, n] + S2[a5, a1, a2, a3, SP[a1, a4], n] + 
    S2[a5, a1, a2, SP[a1, a3], a4, n] + S2[a1, n]*S2[a5, a1, a3, a2, a4, n] + 
    S2[a5, a1, a3, a2, SP[a1, a4], n] + S2[a1, n]*S2[a5, a1, a3, a4, a2, n] + 
    S2[a5, a1, a3, a4, SP[a1, a2], n] + S2[a5, a1, a3, SP[a1, a2], a4, n] + 
    S2[a5, a1, a3, SP[a1, a4], a2, n] - 2*S2[a3, n]*
     S2[a5, a1, a4, a1, a2, n] - 2*S2[a5, a1, a4, a1, SP[a2, a3], n] - 
    2*S2[a5, a1, a4, SP[a1, a3], a2, n] + S2[a5, a1, SP[a1, a2], a3, a4, n] - 
    S2[a5, a1, SP[a1, a3], a2, a4, n] - S2[a5, a1, SP[a1, a3], a4, a2, n] - 
    2*S2[a5, a1, SP[a3, a4], a1, a2, n] + 
    S2[a1, n]*S2[a5, a3, a1, a2, a4, n] + S2[a5, a3, a1, a2, SP[a1, a4], n] + 
    S2[a1, n]*S2[a5, a3, a1, a4, a2, n] + S2[a5, a3, a1, a4, SP[a1, a2], n] + 
    S2[a5, a3, a1, SP[a1, a2], a4, n] + S2[a5, a3, a1, SP[a1, a4], a2, n] + 
    S2[a1, n]*S2[a5, a3, a4, a1, a2, n] + S2[a5, a3, a4, a1, SP[a1, a2], n] + 
    S2[a5, a3, a4, SP[a1, a1], a2, n] + S2[a5, a3, SP[a1, a1], a2, a4, n] + 
    S2[a5, a3, SP[a1, a1], a4, a2, n] + S2[a5, a3, SP[a1, a4], a1, a2, n] + 
    S2[a5, SP[a1, a1], a2, a3, a4, n] + S2[a5, SP[a1, a1], a3, a2, a4, n] + 
    S2[a5, SP[a1, a1], a3, a4, a2, n] - S2[a5, SP[a1, a3], a1, a2, a4, n] - 
    S2[a5, SP[a1, a3], a1, a4, a2, n] - S2[a5, SP[a1, a3], a4, a1, a2, n] + 
    S2[SP[a1, a1], a2, a5, a3, a4, n] + S2[SP[a1, a1], a5, a2, a3, a4, n] + 
    S2[SP[a1, a1], a5, a3, a2, a4, n] + S2[SP[a1, a1], a5, a3, a4, a2, n] + 
    S2[SP[a1, a5], a1, a2, a3, a4, n] + 2*S2[SP[a1, a5], a1, a2, a4, a3, n] + 
    S2[SP[a1, a5], a1, a3, a2, a4, n] + S2[SP[a1, a5], a1, a3, a4, a2, n] + 
    2*S2[SP[a1, a5], a1, a4, a2, a3, n] + 
    2*S2[SP[a1, a5], a1, a4, a3, a2, n] + S2[SP[a1, a5], a3, a1, a2, a4, n] + 
    S2[SP[a1, a5], a3, a1, a4, a2, n] + S2[SP[a1, a5], a3, a4, a1, a2, n] + 
    2*S2[SP[a1, a5], a4, a1, a2, a3, n] + 
    2*S2[SP[a1, a5], a4, a1, a3, a2, n] + 
    2*S2[SP[a1, a5], a4, a3, a1, a2, n] - 
    2*S2[SP[a3, a5], a1, a1, a2, a4, n] - 
    2*S2[SP[a3, a5], a1, a1, a4, a2, n] - 
    2*S2[SP[a3, a5], a1, a4, a1, a2, n] - 
    2*S2[SP[a3, a5], a4, a1, a1, a2, n] - S2[a5, a1, a2, a1, a3, a4, n] - 
    S2[a5, a1, a2, a3, a1, a4, n] - S2[a5, a1, a2, a3, a4, a1, n] - 
    S2[a5, a1, a3, a2, a1, a4, n] - S2[a5, a1, a3, a2, a4, a1, n] - 
    S2[a5, a1, a3, a4, a2, a1, n] - S2[a5, a3, a1, a2, a1, a4, n] - 
    S2[a5, a3, a1, a2, a4, a1, n] - S2[a5, a3, a1, a4, a2, a1, n] - 
    S2[a5, a3, a4, a1, a2, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a1_, a2_, a1_, a5_, a4_, a3_, n_] :> 
  -2*S2[a1, a1, a2, n]*S2[a3, a4, a5, n] - 
    2*S2[SP[a1, a3], SP[a1, a4], SP[a2, a5], n] + 
    2*S2[a1, a3, SP[a1, a4], SP[a2, a5], n] + 
    S2[a1, a2, n]*S2[a1, a5, a4, a3, n] - S2[a1, a5, SP[a1, a4], SP[a2, a3], 
     n] + 2*S2[a1, SP[a1, a3], a4, SP[a2, a5], n] + 
    2*S2[a1, SP[a1, a3], SP[a2, a4], a5, n] - S2[a1, SP[a1, a5], a4, 
     SP[a2, a3], n] - S2[a1, SP[a1, a5], SP[a2, a4], a3, n] + 
    2*S2[a3, a1, SP[a1, a4], SP[a2, a5], n] + 
    2*S2[a3, SP[a1, a4], a1, SP[a2, a5], n] + 
    2*S2[a3, SP[a1, a4], SP[a1, a5], a2, n] - S2[SP[a1, a1], a5, a4, 
     SP[a2, a3], n] - S2[SP[a1, a1], a5, SP[a2, a4], a3, n] - 
    S2[SP[a1, a1], SP[a2, a5], a4, a3, n] + 
    2*S2[SP[a1, a3], a1, a4, SP[a2, a5], n] + 
    2*S2[SP[a1, a3], a1, SP[a2, a4], a5, n] + 
    2*S2[SP[a1, a3], a4, a1, SP[a2, a5], n] + 
    2*S2[SP[a1, a3], a4, SP[a1, a5], a2, n] + 
    2*S2[SP[a1, a3], SP[a1, a4], a2, a5, n] + 
    2*S2[SP[a1, a3], SP[a1, a4], a5, a2, n] - 
    2*S2[a5, n]*S2[a1, a1, a2, a4, a3, n] + 
    2*S2[a3, n]*S2[a1, a1, a2, a4, a5, n] + 
    2*S2[a1, a1, a2, SP[a3, a4], a5, n] - 
    2*S2[a1, a1, a2, SP[a4, a5], a3, n] - 
    2*S2[a1, a1, a3, a4, SP[a2, a5], n] - 
    2*S2[a1, a1, a3, SP[a2, a4], a5, n] - 
    2*S2[a5, n]*S2[a1, a1, a4, a2, a3, n] + 
    2*S2[a3, n]*S2[a1, a1, a4, a2, a5, n] - 
    2*S2[a5, n]*S2[a1, a1, a4, a3, a2, n] - 
    2*S2[a1, a1, a4, a3, SP[a2, a5], n] + 
    2*S2[a3, n]*S2[a1, a1, a4, a5, a2, n] + 
    2*S2[a1, a1, a4, a5, SP[a2, a3], n] + 
    2*S2[a1, a1, a4, SP[a2, a3], a5, n] - 
    2*S2[a1, a1, a4, SP[a2, a5], a3, n] + 
    2*S2[a1, a1, a5, a4, SP[a2, a3], n] + 
    2*S2[a1, a1, a5, SP[a2, a4], a3, n] + 
    2*S2[a1, a1, SP[a3, a4], a2, a5, n] + 
    2*S2[a1, a1, SP[a3, a4], a5, a2, n] - 
    2*S2[a1, a1, SP[a4, a5], a2, a3, n] - 
    2*S2[a1, a1, SP[a4, a5], a3, a2, n] - 
    2*S2[a1, a3, a1, a4, SP[a2, a5], n] - 
    2*S2[a1, a3, a1, SP[a2, a4], a5, n] - 
    2*S2[a1, a3, a4, a1, SP[a2, a5], n] - 
    2*S2[a1, a3, a4, SP[a1, a5], a2, n] - 
    2*S2[a1, a3, SP[a1, a4], a2, a5, n] - 
    2*S2[a1, a3, SP[a1, a4], a5, a2, n] - 
    2*S2[a5, n]*S2[a1, a4, a1, a2, a3, n] + 
    2*S2[a3, n]*S2[a1, a4, a1, a2, a5, n] - 
    2*S2[a5, n]*S2[a1, a4, a1, a3, a2, n] - 
    2*S2[a1, a4, a1, a3, SP[a2, a5], n] + 
    2*S2[a3, n]*S2[a1, a4, a1, a5, a2, n] + 
    2*S2[a1, a4, a1, a5, SP[a2, a3], n] + 
    2*S2[a1, a4, a1, SP[a2, a3], a5, n] - 
    2*S2[a1, a4, a1, SP[a2, a5], a3, n] - 
    2*S2[a5, n]*S2[a1, a4, a3, a1, a2, n] - 
    2*S2[a1, a4, a3, a1, SP[a2, a5], n] - 
    2*S2[a1, a4, a3, SP[a1, a5], a2, n] + 
    2*S2[a3, n]*S2[a1, a4, a5, a1, a2, n] + 
    2*S2[a1, a4, a5, a1, SP[a2, a3], n] + 
    2*S2[a1, a4, a5, SP[a1, a3], a2, n] + 
    2*S2[a1, a4, SP[a1, a3], a2, a5, n] + 
    2*S2[a1, a4, SP[a1, a3], a5, a2, n] - 
    2*S2[a1, a4, SP[a1, a5], a2, a3, n] - 
    2*S2[a1, a4, SP[a1, a5], a3, a2, n] + S2[a1, a5, a1, a4, SP[a2, a3], n] + 
    S2[a1, a5, a1, SP[a2, a4], a3, n] + S2[a1, a5, a4, a1, SP[a2, a3], n] + 
    S2[a1, a5, a4, SP[a1, a3], a2, n] + S2[a1, a5, SP[a1, a4], a2, a3, n] + 
    S2[a1, a5, SP[a1, a4], a3, a2, n] + S2[a1, SP[a1, a2], a5, a4, a3, n] - 
    S2[a1, SP[a1, a5], a2, a4, a3, n] - S2[a1, SP[a1, a5], a4, a2, a3, n] - 
    S2[a1, SP[a1, a5], a4, a3, a2, n] + 2*S2[a1, SP[a3, a4], a1, a2, a5, n] + 
    2*S2[a1, SP[a3, a4], a1, a5, a2, n] + 
    2*S2[a1, SP[a3, a4], a5, a1, a2, n] - 
    2*S2[a1, SP[a4, a5], a1, a2, a3, n] - 
    2*S2[a1, SP[a4, a5], a1, a3, a2, n] - 
    2*S2[a1, SP[a4, a5], a3, a1, a2, n] - 
    2*S2[a3, a1, a1, a4, SP[a2, a5], n] - 
    2*S2[a3, a1, a1, SP[a2, a4], a5, n] - 
    2*S2[a3, a1, a4, a1, SP[a2, a5], n] - 
    2*S2[a3, a1, a4, SP[a1, a5], a2, n] - 
    2*S2[a3, a1, SP[a1, a4], a2, a5, n] - 
    2*S2[a3, a1, SP[a1, a4], a5, a2, n] + 
    2*S2[a5, n]*S2[a3, a4, a1, a1, a2, n] - 
    2*S2[a3, SP[a1, a4], a1, a2, a5, n] - 
    2*S2[a3, SP[a1, a4], a1, a5, a2, n] - 
    2*S2[a3, SP[a1, a4], a5, a1, a2, n] + 
    2*S2[a3, SP[a4, a5], a1, a1, a2, n] + 
    S2[a1, n]*S2[a5, a1, a2, a4, a3, n] + S2[a5, a1, a2, a4, SP[a1, a3], n] + 
    S2[a5, a1, a2, SP[a1, a4], a3, n] + S2[a1, n]*S2[a5, a1, a4, a2, a3, n] + 
    S2[a5, a1, a4, a2, SP[a1, a3], n] + S2[a1, n]*S2[a5, a1, a4, a3, a2, n] + 
    S2[a5, a1, a4, a3, SP[a1, a2], n] + S2[a5, a1, a4, SP[a1, a2], a3, n] + 
    S2[a5, a1, a4, SP[a1, a3], a2, n] + S2[a5, a1, SP[a1, a2], a4, a3, n] + 
    S2[a5, a1, SP[a1, a4], a2, a3, n] + S2[a5, a1, SP[a1, a4], a3, a2, n] - 
    2*S2[a3, n]*S2[a5, a4, a1, a1, a2, n] - 
    2*S2[a5, a4, a1, a1, SP[a2, a3], n] + 
    S2[a1, n]*S2[a5, a4, a1, a2, a3, n] + S2[a5, a4, a1, a2, SP[a1, a3], n] + 
    S2[a1, n]*S2[a5, a4, a1, a3, a2, n] + S2[a5, a4, a1, a3, SP[a1, a2], n] + 
    S2[a5, a4, a1, SP[a1, a2], a3, n] - S2[a5, a4, a1, SP[a1, a3], a2, n] + 
    S2[a1, n]*S2[a5, a4, a3, a1, a2, n] + S2[a5, a4, a3, a1, SP[a1, a2], n] + 
    S2[a5, a4, a3, SP[a1, a1], a2, n] + S2[a5, a4, SP[a1, a1], a2, a3, n] + 
    S2[a5, a4, SP[a1, a1], a3, a2, n] - S2[a5, a4, SP[a1, a3], a1, a2, n] + 
    S2[a5, SP[a1, a1], a2, a4, a3, n] + S2[a5, SP[a1, a1], a4, a2, a3, n] + 
    S2[a5, SP[a1, a1], a4, a3, a2, n] + S2[a5, SP[a1, a4], a1, a2, a3, n] + 
    S2[a5, SP[a1, a4], a1, a3, a2, n] + S2[a5, SP[a1, a4], a3, a1, a2, n] - 
    2*S2[a5, SP[a3, a4], a1, a1, a2, n] + S2[SP[a1, a1], a2, a5, a4, a3, n] + 
    S2[SP[a1, a1], a5, a2, a4, a3, n] + S2[SP[a1, a1], a5, a4, a2, a3, n] + 
    S2[SP[a1, a1], a5, a4, a3, a2, n] - S2[SP[a1, a5], a1, a2, a4, a3, n] - 
    S2[SP[a1, a5], a1, a4, a2, a3, n] - S2[SP[a1, a5], a1, a4, a3, a2, n] - 
    S2[SP[a1, a5], a4, a1, a2, a3, n] - S2[SP[a1, a5], a4, a1, a3, a2, n] - 
    S2[SP[a1, a5], a4, a3, a1, a2, n] - S2[a5, a1, a2, a1, a4, a3, n] - 
    S2[a5, a1, a2, a4, a1, a3, n] - S2[a5, a1, a2, a4, a3, a1, n] - 
    S2[a5, a1, a4, a2, a1, a3, n] - S2[a5, a1, a4, a2, a3, a1, n] - 
    S2[a5, a1, a4, a3, a2, a1, n] - S2[a5, a4, a1, a2, a1, a3, n] - 
    S2[a5, a4, a1, a2, a3, a1, n] - S2[a5, a4, a1, a3, a2, a1, n] - 
    S2[a5, a4, a3, a1, a2, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a1_, a2_, a3_, a1_, a4_, a5_, n_] :> 
  S2[a1, a2, a3, n]*S2[a1, a4, a5, n] + S2[SP[a1, a1], SP[a2, a4], 
     SP[a3, a5], n] - 2*S2[a4, a5, n]*S2[a1, a1, a2, a3, n] - 
    S2[a4, a5, n]*S2[a1, a2, a1, a3, n] + S2[a1, a2, SP[a1, a4], SP[a3, a5], 
     n] - S2[a1, a2, n]*S2[a1, a3, a4, a5, n] - 
    S2[a1, a2, n]*S2[a1, a3, a5, a4, n] + S2[a1, a3, SP[a1, a4], SP[a2, a5], 
     n] + S2[a1, a3, SP[a1, a5], SP[a2, a4], n] - 
    S2[a1, a2, n]*S2[a1, a4, a3, a5, n] - S2[a1, a2, n]*
     S2[a1, a4, a5, a3, n] + S2[a1, a4, SP[a1, a3], SP[a2, a5], n] + 
    S2[a1, a4, SP[a1, a5], SP[a2, a3], n] - S2[a1, a2, n]*
     S2[a1, a5, a3, a4, n] - S2[a1, a2, n]*S2[a1, a5, a4, a3, n] + 
    S2[a1, a5, SP[a1, a3], SP[a2, a4], n] + S2[a1, a5, SP[a1, a4], 
     SP[a2, a3], n] - S2[a1, SP[a1, a2], a4, SP[a3, a5], n] - 
    S2[a1, SP[a1, a2], SP[a3, a4], a5, n] + S2[a1, SP[a1, a3], a4, 
     SP[a2, a5], n] + S2[a1, SP[a1, a3], a5, SP[a2, a4], n] + 
    S2[a1, SP[a1, a3], SP[a2, a4], a5, n] + S2[a1, SP[a1, a3], SP[a2, a5], 
     a4, n] + S2[a1, SP[a1, a4], a2, SP[a3, a5], n] + 
    S2[a1, SP[a1, a4], a3, SP[a2, a5], n] + S2[a1, SP[a1, a4], a5, 
     SP[a2, a3], n] + S2[a1, SP[a1, a4], SP[a2, a3], a5, n] + 
    2*S2[a1, SP[a1, a4], SP[a2, a5], a3, n] + S2[a1, SP[a1, a5], a3, 
     SP[a2, a4], n] + S2[a1, SP[a1, a5], a4, SP[a2, a3], n] + 
    S2[a1, SP[a1, a5], SP[a2, a3], a4, n] + S2[a1, SP[a1, a5], SP[a2, a4], 
     a3, n] + S2[a1, SP[a2, a4], a1, SP[a3, a5], n] + 
    S2[a1, SP[a2, a4], SP[a1, a5], a3, n] + S2[a1, a2, n]*
     S2[a4, a5, a1, a3, n] - S2[a4, a5, SP[a1, a1], SP[a2, a3], n] - 
    S2[a4, SP[a1, a5], a1, SP[a2, a3], n] - S2[a4, SP[a1, a5], SP[a1, a2], 
     a3, n] - S2[SP[a1, a1], a2, a4, SP[a3, a5], n] - 
    S2[SP[a1, a1], a2, SP[a3, a4], a5, n] + S2[SP[a1, a1], a3, a4, 
     SP[a2, a5], n] + S2[SP[a1, a1], a3, a5, SP[a2, a4], n] + 
    S2[SP[a1, a1], a3, SP[a2, a4], a5, n] + S2[SP[a1, a1], a3, SP[a2, a5], 
     a4, n] - S2[SP[a1, a1], a4, a2, SP[a3, a5], n] + 
    S2[SP[a1, a1], a4, a3, SP[a2, a5], n] + S2[SP[a1, a1], a4, a5, 
     SP[a2, a3], n] + S2[SP[a1, a1], a4, SP[a2, a3], a5, n] + 
    S2[SP[a1, a1], a5, a3, SP[a2, a4], n] + S2[SP[a1, a1], a5, a4, 
     SP[a2, a3], n] + S2[SP[a1, a1], a5, SP[a2, a3], a4, n] + 
    S2[SP[a1, a1], a5, SP[a2, a4], a3, n] + S2[SP[a1, a1], SP[a2, a3], a4, 
     a5, n] + S2[SP[a1, a1], SP[a2, a3], a5, a4, n] + 
    S2[SP[a1, a1], SP[a2, a5], a3, a4, n] + S2[SP[a1, a1], SP[a2, a5], a4, 
     a3, n] + 2*S2[SP[a1, a4], a1, a2, SP[a3, a5], n] + 
    2*S2[SP[a1, a4], a1, SP[a2, a5], a3, n] + S2[SP[a1, a4], a2, a1, 
     SP[a3, a5], n] + S2[SP[a1, a4], a2, SP[a1, a5], a3, n] - 
    S2[SP[a1, a4], a5, a1, SP[a2, a3], n] - S2[SP[a1, a4], a5, SP[a1, a2], 
     a3, n] + 2*S2[SP[a1, a4], SP[a1, a5], a2, a3, n] + 
    2*S2[a4, n]*S2[a1, a1, a2, a3, a5, n] + 
    2*S2[a1, a1, a2, a3, SP[a4, a5], n] + 
    2*S2[a4, n]*S2[a1, a1, a2, a5, a3, n] + 
    2*S2[a1, a1, a2, a5, SP[a3, a4], n] + 
    2*S2[a1, a1, a2, SP[a3, a4], a5, n] + 
    2*S2[a1, a1, a2, SP[a4, a5], a3, n] + 
    2*S2[a5, n]*S2[a1, a1, a3, a2, a4, n] + 
    2*S2[a1, a1, a3, a2, SP[a4, a5], n] + 
    2*S2[a5, n]*S2[a1, a1, a3, a4, a2, n] - 
    2*S2[a1, a1, a3, a5, SP[a2, a4], n] - 
    2*S2[a1, a1, a3, SP[a2, a4], a5, n] + 
    2*S2[a1, a1, a3, SP[a4, a5], a2, n] + 
    2*S2[a5, n]*S2[a1, a1, a4, a3, a2, n] - 
    2*S2[a1, a1, a4, a5, SP[a2, a3], n] - 
    2*S2[a1, a1, a4, SP[a2, a3], a5, n] - 
    2*S2[a1, a1, a4, SP[a2, a5], a3, n] + 
    2*S2[a1, a1, a4, SP[a3, a5], a2, n] + 
    2*S2[a4, n]*S2[a1, a1, a5, a2, a3, n] + 
    2*S2[a1, a1, a5, a2, SP[a3, a4], n] - 
    2*S2[a1, a1, a5, a3, SP[a2, a4], n] - 
    2*S2[a1, a1, a5, a4, SP[a2, a3], n] - 
    2*S2[a1, a1, a5, SP[a2, a3], a4, n] - 
    2*S2[a1, a1, SP[a2, a3], a4, a5, n] - 
    2*S2[a1, a1, SP[a2, a3], a5, a4, n] - 
    2*S2[a1, a1, SP[a2, a5], a3, a4, n] - 
    2*S2[a1, a1, SP[a2, a5], a4, a3, n] + 
    2*S2[a1, a1, SP[a3, a5], a2, a4, n] + 
    2*S2[a1, a1, SP[a3, a5], a4, a2, n] + 
    2*S2[a1, a1, SP[a4, a5], a2, a3, n] + 
    2*S2[a1, a1, SP[a4, a5], a3, a2, n] + 
    S2[a4, n]*S2[a1, a2, a1, a3, a5, n] + S2[a1, a2, a1, a3, SP[a4, a5], n] + 
    S2[a4, n]*S2[a1, a2, a1, a5, a3, n] + S2[a1, a2, a1, a5, SP[a3, a4], n] + 
    S2[a1, a2, a1, SP[a3, a4], a5, n] + S2[a1, a2, a1, SP[a4, a5], a3, n] - 
    S2[a1, a2, a4, a1, SP[a3, a5], n] - S2[a1, a2, a4, SP[a1, a5], a3, n] + 
    S2[a1, a2, SP[a1, a3], a4, a5, n] + S2[a5, n]*S2[a1, a3, a1, a2, a4, n] + 
    S2[a1, a3, a1, a2, SP[a4, a5], n] + S2[a5, n]*S2[a1, a3, a1, a4, a2, n] - 
    S2[a1, a3, a1, a5, SP[a2, a4], n] - S2[a1, a3, a1, SP[a2, a4], a5, n] + 
    S2[a1, a3, a1, SP[a4, a5], a2, n] + S2[a5, n]*S2[a1, a3, a4, a1, a2, n] - 
    S2[a1, a3, a5, a1, SP[a2, a4], n] - S2[a1, a3, a5, SP[a1, a4], a2, n] - 
    S2[a1, a3, SP[a1, a4], a2, a5, n] - S2[a1, a3, SP[a1, a4], a5, a2, n] + 
    S2[a1, a3, SP[a4, a5], a1, a2, n] - S2[a1, a4, a1, a2, SP[a3, a5], n] + 
    S2[a5, n]*S2[a1, a4, a1, a3, a2, n] - S2[a1, a4, a1, a5, SP[a2, a3], n] - 
    S2[a1, a4, a1, SP[a2, a3], a5, n] - 2*S2[a1, a4, a1, SP[a2, a5], a3, n] + 
    S2[a1, a4, a1, SP[a3, a5], a2, n] - S2[a1, a4, a2, a1, SP[a3, a5], n] - 
    S2[a1, a4, a2, SP[a1, a5], a3, n] + S2[a5, n]*S2[a1, a4, a3, a1, a2, n] + 
    S2[a1, a4, a5, SP[a1, a2], a3, n] - S2[a1, a4, a5, SP[a1, a3], a2, n] - 
    S2[a1, a4, SP[a1, a3], a2, a5, n] - S2[a1, a4, SP[a1, a3], a5, a2, n] - 
    2*S2[a1, a4, SP[a1, a5], a2, a3, n] + S2[a1, a4, SP[a3, a5], a1, a2, n] + 
    S2[a4, n]*S2[a1, a5, a1, a2, a3, n] + S2[a1, a5, a1, a2, SP[a3, a4], n] - 
    S2[a4, n]*S2[a1, a5, a1, a3, a2, n] - 
    2*S2[a1, a5, a1, a3, SP[a2, a4], n] - S2[a1, a5, a1, a4, SP[a2, a3], n] - 
    S2[a1, a5, a1, SP[a2, a3], a4, n] - S2[a1, a5, a1, SP[a3, a4], a2, n] - 
    S2[a1, a5, a3, a1, SP[a2, a4], n] - S2[a1, a5, a3, SP[a1, a4], a2, n] - 
    S2[a1, a5, a4, a1, SP[a2, a3], n] - S2[a1, a5, a4, SP[a1, a3], a2, n] - 
    S2[a1, a5, SP[a1, a3], a2, a4, n] - S2[a1, a5, SP[a1, a3], a4, a2, n] - 
    2*S2[a1, a5, SP[a1, a4], a3, a2, n] - S2[a1, SP[a1, a2], a3, a5, a4, n] - 
    S2[a1, SP[a1, a2], a5, a3, a4, n] - S2[a1, SP[a1, a2], a5, a4, a3, n] - 
    S2[a1, SP[a1, a3], a2, a4, a5, n] - S2[a1, SP[a1, a3], a2, a5, a4, n] - 
    S2[a1, SP[a1, a3], a4, a2, a5, n] - S2[a1, SP[a1, a3], a4, a5, a2, n] - 
    S2[a1, SP[a1, a3], a5, a2, a4, n] - S2[a1, SP[a1, a3], a5, a4, a2, n] - 
    S2[a1, SP[a1, a4], a3, a2, a5, n] - S2[a1, SP[a1, a4], a3, a5, a2, n] - 
    S2[a1, SP[a1, a4], a5, a3, a2, n] - S2[a1, SP[a1, a5], a2, a3, a4, n] - 
    S2[a1, SP[a1, a5], a2, a4, a3, n] + S2[a1, SP[a1, a5], a3, a2, a4, n] + 
    S2[a1, SP[a1, a5], a3, a4, a2, n] - S2[a1, SP[a1, a5], a4, a2, a3, n] + 
    S2[a1, SP[a1, a5], a4, a3, a2, n] + S2[a1, SP[a3, a5], a1, a2, a4, n] + 
    S2[a1, SP[a3, a5], a1, a4, a2, n] + S2[a1, SP[a3, a5], a4, a1, a2, n] + 
    S2[a1, SP[a4, a5], a1, a2, a3, n] + S2[a1, SP[a4, a5], a3, a1, a2, n] - 
    2*S2[a4, a1, a1, a2, SP[a3, a5], n] - 
    2*S2[a4, a1, a1, SP[a2, a5], a3, n] - S2[a4, a1, a2, a1, SP[a3, a5], n] - 
    S2[a4, a1, a2, SP[a1, a5], a3, n] + S2[a4, a1, a5, a1, SP[a2, a3], n] + 
    S2[a4, a1, a5, SP[a1, a2], a3, n] - 2*S2[a4, a1, SP[a1, a5], a2, a3, n] + 
    2*S2[a4, a5, a1, a1, SP[a2, a3], n] + S2[a4, a5, a1, SP[a1, a2], a3, n] + 
    S2[a4, a5, a1, SP[a1, a3], a2, n] + S2[a4, a5, SP[a1, a1], a2, a3, n] + 
    S2[a4, a5, SP[a1, a1], a3, a2, n] - S2[a4, SP[a1, a5], a1, a2, a3, n] + 
    S2[a4, SP[a1, a5], a1, a3, a2, n] - 2*S2[a4, n]*
     S2[a5, a1, a1, a3, a2, n] - 2*S2[a5, a1, a1, a3, SP[a2, a4], n] - 
    2*S2[a5, a1, a1, SP[a3, a4], a2, n] - 
    S2[a4, n]*S2[a5, a1, a3, a1, a2, n] - S2[a5, a1, a3, a1, SP[a2, a4], n] - 
    S2[a5, a1, a3, SP[a1, a4], a2, n] - 2*S2[a5, a1, SP[a1, a4], a3, a2, n] - 
    S2[a5, a1, SP[a3, a4], a1, a2, n] + S2[a1, n]*S2[a5, a4, a1, a3, a2, n] + 
    S2[a5, a4, a1, a3, SP[a1, a2], n] + S2[a5, a4, a1, SP[a1, a3], a2, n] + 
    S2[a5, a4, SP[a1, a1], a3, a2, n] - S2[a5, SP[a1, a4], a1, a3, a2, n] - 
    S2[a5, SP[a1, a4], a3, a1, a2, n] - S2[SP[a1, a1], a2, a3, a5, a4, n] - 
    S2[SP[a1, a1], a2, a5, a3, a4, n] - S2[SP[a1, a1], a2, a5, a4, a3, n] - 
    S2[SP[a1, a1], a3, a2, a4, a5, n] - S2[SP[a1, a1], a3, a2, a5, a4, n] - 
    S2[SP[a1, a1], a3, a4, a2, a5, n] - S2[SP[a1, a1], a3, a4, a5, a2, n] - 
    S2[SP[a1, a1], a3, a5, a2, a4, n] - S2[SP[a1, a1], a3, a5, a4, a2, n] - 
    S2[SP[a1, a1], a4, a3, a2, a5, n] - S2[SP[a1, a1], a4, a3, a5, a2, n] - 
    S2[SP[a1, a1], a4, a5, a3, a2, n] - S2[SP[a1, a1], a5, a2, a3, a4, n] - 
    S2[SP[a1, a1], a5, a2, a4, a3, n] - S2[SP[a1, a1], a5, a3, a2, a4, n] - 
    S2[SP[a1, a1], a5, a3, a4, a2, n] - S2[SP[a1, a1], a5, a4, a2, a3, n] - 
    S2[SP[a1, a1], a5, a4, a3, a2, n] + 2*S2[SP[a1, a5], a1, a3, a2, a4, n] + 
    2*S2[SP[a1, a5], a1, a3, a4, a2, n] + 
    2*S2[SP[a1, a5], a1, a4, a3, a2, n] + S2[SP[a1, a5], a3, a1, a2, a4, n] + 
    S2[SP[a1, a5], a3, a1, a4, a2, n] + S2[SP[a1, a5], a3, a4, a1, a2, n] + 
    2*S2[SP[a1, a5], a4, a1, a3, a2, n] + S2[SP[a1, a5], a4, a3, a1, a2, n] - 
    2*S2[SP[a4, a5], a1, a1, a3, a2, n] - S2[SP[a4, a5], a1, a3, a1, a2, n] - 
    S2[a5, a4, a1, a3, a2, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a1_, a2_, a3_, a1_, a5_, a4_, n_] :> 
  S2[a1, a2, a3, n]*S2[a1, a5, a4, n] + S2[SP[a1, a1], SP[a2, a5], 
     SP[a3, a4], n] + 2*S2[a4, a5, n]*S2[a1, a1, a2, a3, n] - 
    2*S2[a1, a1, SP[a2, a4], SP[a3, a5], n] - 
    2*S2[a1, a1, SP[a2, a5], SP[a3, a4], n] + 
    S2[a4, a5, n]*S2[a1, a2, a1, a3, n] - S2[a1, a2, SP[a1, a4], SP[a3, a5], 
     n] - S2[a1, SP[a1, a2], a5, SP[a3, a4], n] - 
    S2[a1, SP[a1, a2], SP[a3, a5], a4, n] - 
    2*S2[a1, SP[a1, a4], a2, SP[a3, a5], n] - 
    2*S2[a1, SP[a1, a4], SP[a2, a5], a3, n] - S2[a1, SP[a1, a5], a2, 
     SP[a3, a4], n] - S2[a1, SP[a1, a5], SP[a2, a4], a3, n] - 
    S2[a1, SP[a2, a4], a1, SP[a3, a5], n] - S2[a1, SP[a2, a4], SP[a1, a5], 
     a3, n] - S2[a1, a2, n]*S2[a4, a5, a1, a3, n] + 
    S2[a4, a5, SP[a1, a1], SP[a2, a3], n] + S2[a4, SP[a1, a5], a1, 
     SP[a2, a3], n] + S2[a4, SP[a1, a5], SP[a1, a2], a3, n] - 
    S2[SP[a1, a1], a2, a5, SP[a3, a4], n] - S2[SP[a1, a1], a2, SP[a3, a5], 
     a4, n] - S2[SP[a1, a1], a5, a2, SP[a3, a4], n] - 
    S2[SP[a1, a1], a5, SP[a2, a4], a3, n] - S2[SP[a1, a1], SP[a2, a5], a3, 
     a4, n] - S2[SP[a1, a1], SP[a2, a5], a4, a3, n] - 
    2*S2[SP[a1, a4], a1, a2, SP[a3, a5], n] - 
    2*S2[SP[a1, a4], a1, SP[a2, a5], a3, n] - S2[SP[a1, a4], a2, a1, 
     SP[a3, a5], n] - S2[SP[a1, a4], a2, SP[a1, a5], a3, n] + 
    S2[SP[a1, a4], a5, a1, SP[a2, a3], n] + S2[SP[a1, a4], a5, SP[a1, a2], 
     a3, n] - 2*S2[SP[a1, a4], SP[a1, a5], a2, a3, n] - 
    2*S2[a4, n]*S2[a1, a1, a2, a3, a5, n] - 
    2*S2[a1, a1, a2, a3, SP[a4, a5], n] + 
    2*S2[a1, a1, a2, a4, SP[a3, a5], n] - 
    2*S2[a4, n]*S2[a1, a1, a2, a5, a3, n] + 
    2*S2[a1, a1, a2, SP[a3, a5], a4, n] - 
    2*S2[a1, a1, a2, SP[a4, a5], a3, n] + 
    2*S2[a1, a1, a4, a2, SP[a3, a5], n] + 
    2*S2[a1, a1, a4, SP[a2, a5], a3, n] - 
    2*S2[a4, n]*S2[a1, a1, a5, a2, a3, n] + 
    2*S2[a1, a1, SP[a2, a5], a3, a4, n] + 
    2*S2[a1, a1, SP[a2, a5], a4, a3, n] - 
    2*S2[a1, a1, SP[a4, a5], a2, a3, n] - 
    S2[a4, n]*S2[a1, a2, a1, a3, a5, n] - S2[a1, a2, a1, a3, SP[a4, a5], n] + 
    S2[a1, a2, a1, a4, SP[a3, a5], n] - S2[a4, n]*S2[a1, a2, a1, a5, a3, n] + 
    S2[a1, a2, a1, SP[a3, a5], a4, n] - S2[a1, a2, a1, SP[a4, a5], a3, n] + 
    S2[a1, a2, a4, a1, SP[a3, a5], n] + S2[a1, a2, a4, SP[a1, a5], a3, n] + 
    S2[a1, a2, SP[a1, a3], a5, a4, n] + 2*S2[a1, a4, a1, a2, SP[a3, a5], n] + 
    2*S2[a1, a4, a1, SP[a2, a5], a3, n] + S2[a1, a4, a2, a1, SP[a3, a5], n] + 
    S2[a1, a4, a2, SP[a1, a5], a3, n] - S2[a1, a4, a5, a1, SP[a2, a3], n] - 
    S2[a1, a4, a5, SP[a1, a2], a3, n] + 2*S2[a1, a4, SP[a1, a5], a2, a3, n] - 
    S2[a4, n]*S2[a1, a5, a1, a2, a3, n] + 
    S2[a4, n]*S2[a1, a5, a1, a3, a2, n] + S2[a1, a5, a1, a3, SP[a2, a4], n] + 
    S2[a1, a5, a1, SP[a3, a4], a2, n] + S2[a1, a5, SP[a1, a4], a3, a2, n] + 
    S2[a1, SP[a1, a2], a3, a5, a4, n] + S2[a1, SP[a1, a2], a5, a3, a4, n] + 
    S2[a1, SP[a1, a2], a5, a4, a3, n] + S2[a1, SP[a1, a5], a2, a3, a4, n] + 
    S2[a1, SP[a1, a5], a2, a4, a3, n] + S2[a1, SP[a1, a5], a4, a2, a3, n] - 
    S2[a1, SP[a4, a5], a1, a2, a3, n] + S2[a1, SP[a4, a5], a1, a3, a2, n] + 
    2*S2[a4, a1, a1, a2, SP[a3, a5], n] + 
    2*S2[a4, a1, a1, SP[a2, a5], a3, n] + S2[a4, a1, a2, a1, SP[a3, a5], n] + 
    S2[a4, a1, a2, SP[a1, a5], a3, n] - S2[a4, a1, a5, a1, SP[a2, a3], n] - 
    S2[a4, a1, a5, SP[a1, a2], a3, n] + 2*S2[a4, a1, SP[a1, a5], a2, a3, n] - 
    2*S2[a4, a5, a1, a1, SP[a2, a3], n] - S2[a4, a5, a1, SP[a1, a2], a3, n] - 
    S2[a4, a5, a1, SP[a1, a3], a2, n] - S2[a4, a5, SP[a1, a1], a2, a3, n] - 
    S2[a4, a5, SP[a1, a1], a3, a2, n] + S2[a4, SP[a1, a5], a1, a2, a3, n] - 
    S2[a4, SP[a1, a5], a1, a3, a2, n] + 2*S2[a4, n]*
     S2[a5, a1, a1, a3, a2, n] + 2*S2[a5, a1, a1, a3, SP[a2, a4], n] + 
    2*S2[a5, a1, a1, SP[a3, a4], a2, n] + 
    S2[a4, n]*S2[a5, a1, a3, a1, a2, n] + S2[a5, a1, a3, a1, SP[a2, a4], n] - 
    S2[a1, n]*S2[a5, a1, a3, a2, a4, n] - S2[a5, a1, a3, a2, SP[a1, a4], n] - 
    S2[a1, n]*S2[a5, a1, a3, a4, a2, n] - S2[a5, a1, a3, a4, SP[a1, a2], n] - 
    S2[a5, a1, a3, SP[a1, a2], a4, n] - S2[a1, n]*S2[a5, a1, a4, a3, a2, n] - 
    S2[a5, a1, a4, a3, SP[a1, a2], n] - S2[a5, a1, a4, SP[a1, a3], a2, n] - 
    S2[a5, a1, SP[a1, a3], a2, a4, n] - S2[a5, a1, SP[a1, a3], a4, a2, n] + 
    S2[a5, a1, SP[a1, a4], a3, a2, n] + S2[a5, a1, SP[a3, a4], a1, a2, n] - 
    S2[a1, n]*S2[a5, a4, a1, a3, a2, n] - S2[a5, a4, a1, a3, SP[a1, a2], n] - 
    S2[a5, a4, a1, SP[a1, a3], a2, n] - S2[a5, a4, SP[a1, a1], a3, a2, n] - 
    S2[a5, SP[a1, a1], a3, a2, a4, n] - S2[a5, SP[a1, a1], a3, a4, a2, n] - 
    S2[a5, SP[a1, a1], a4, a3, a2, n] + S2[a5, SP[a1, a4], a1, a3, a2, n] + 
    S2[a5, SP[a1, a4], a3, a1, a2, n] + S2[SP[a1, a1], a2, a3, a5, a4, n] + 
    S2[SP[a1, a1], a2, a5, a3, a4, n] + S2[SP[a1, a1], a2, a5, a4, a3, n] + 
    S2[SP[a1, a1], a5, a2, a3, a4, n] + S2[SP[a1, a1], a5, a2, a4, a3, n] + 
    S2[SP[a1, a1], a5, a4, a2, a3, n] - S2[SP[a1, a5], a1, a3, a2, a4, n] - 
    S2[SP[a1, a5], a1, a3, a4, a2, n] - S2[SP[a1, a5], a1, a4, a3, a2, n] - 
    S2[SP[a1, a5], a4, a1, a3, a2, n] + 2*S2[SP[a4, a5], a1, a1, a3, a2, n] + 
    S2[SP[a4, a5], a1, a3, a1, a2, n] + S2[a5, a1, a3, a2, a1, a4, n] + 
    S2[a5, a1, a3, a2, a4, a1, n] + S2[a5, a1, a3, a4, a2, a1, n] + 
    S2[a5, a1, a4, a3, a2, a1, n] + S2[a5, a4, a1, a3, a2, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a1_, a2_, a3_, a4_, a1_, a5_, n_] :> 
  -(S2[a1, a2, a3, n]*S2[a1, a4, a5, n]) - S2[a1, a2, a3, n]*
     S2[a1, a5, a4, n] - S2[SP[a1, a1], SP[a2, a4], SP[a3, a5], n] - 
    S2[SP[a1, a1], SP[a2, a5], SP[a3, a4], n] + 
    2*S2[a1, a1, SP[a2, a4], SP[a3, a5], n] + 
    2*S2[a1, a1, SP[a2, a5], SP[a3, a4], n] + 
    S2[a1, a5, n]*S2[a1, a2, a3, a4, n] - S2[a1, a2, SP[a1, a3], SP[a4, a5], 
     n] + S2[a1, a2, n]*S2[a1, a4, a3, a5, n] + 
    S2[a1, a2, n]*S2[a1, a4, a5, a3, n] - S2[a1, a4, SP[a1, a3], SP[a2, a5], 
     n] - S2[a1, a4, SP[a1, a5], SP[a2, a3], n] + 
    S2[a1, a2, n]*S2[a1, a5, a4, a3, n] - S2[a1, a5, SP[a1, a4], SP[a2, a3], 
     n] - S2[a1, SP[a1, a2], a3, SP[a4, a5], n] + S2[a1, SP[a1, a2], a4, 
     SP[a3, a5], n] + S2[a1, SP[a1, a2], a5, SP[a3, a4], n] + 
    S2[a1, SP[a1, a2], SP[a3, a4], a5, n] + S2[a1, SP[a1, a4], a2, 
     SP[a3, a5], n] - S2[a1, SP[a1, a4], a3, SP[a2, a5], n] - 
    S2[a1, SP[a1, a4], a5, SP[a2, a3], n] - S2[a1, SP[a1, a4], SP[a2, a3], 
     a5, n] + S2[a1, SP[a1, a5], a2, SP[a3, a4], n] - 
    S2[a1, SP[a1, a5], a4, SP[a2, a3], n] - S2[SP[a1, a1], a2, a3, 
     SP[a4, a5], n] + S2[SP[a1, a1], a2, a4, SP[a3, a5], n] + 
    S2[SP[a1, a1], a2, a5, SP[a3, a4], n] + S2[SP[a1, a1], a2, SP[a3, a4], 
     a5, n] + S2[SP[a1, a1], a4, a2, SP[a3, a5], n] - 
    S2[SP[a1, a1], a4, a3, SP[a2, a5], n] - S2[SP[a1, a1], a4, a5, 
     SP[a2, a3], n] - S2[SP[a1, a1], a4, SP[a2, a3], a5, n] + 
    S2[SP[a1, a1], a5, a2, SP[a3, a4], n] - S2[SP[a1, a1], a5, a4, 
     SP[a2, a3], n] + 2*S2[a1, a1, a2, a3, SP[a4, a5], n] - 
    2*S2[a1, a1, a2, a4, SP[a3, a5], n] - 
    2*S2[a1, a1, a2, a5, SP[a3, a4], n] - 
    2*S2[a1, a1, a2, SP[a3, a4], a5, n] - 
    2*S2[a1, a1, a4, a2, SP[a3, a5], n] - 
    2*S2[a5, n]*S2[a1, a1, a4, a3, a2, n] + 
    2*S2[a1, a1, a4, a5, SP[a2, a3], n] + 
    2*S2[a1, a1, a4, SP[a2, a3], a5, n] - 
    2*S2[a1, a1, a4, SP[a3, a5], a2, n] - 
    2*S2[a1, a1, a5, a2, SP[a3, a4], n] + 
    2*S2[a1, a1, a5, a4, SP[a2, a3], n] - 
    2*S2[a1, a1, SP[a4, a5], a3, a2, n] + S2[a1, a2, a1, a3, SP[a4, a5], n] - 
    S2[a1, a2, a1, a4, SP[a3, a5], n] - S2[a1, a2, a1, a5, SP[a3, a4], n] - 
    S2[a1, a2, a1, SP[a3, a4], a5, n] + S2[a1, a2, a3, a1, SP[a4, a5], n] + 
    S2[a1, a2, a3, SP[a1, a4], a5, n] - S2[a1, a4, a1, a2, SP[a3, a5], n] - 
    S2[a5, n]*S2[a1, a4, a1, a3, a2, n] + S2[a1, a4, a1, a5, SP[a2, a3], n] + 
    S2[a1, a4, a1, SP[a2, a3], a5, n] - S2[a1, a4, a1, SP[a3, a5], a2, n] - 
    S2[a5, n]*S2[a1, a4, a3, a1, a2, n] + S2[a1, a4, a5, a1, SP[a2, a3], n] + 
    S2[a1, a4, a5, SP[a1, a3], a2, n] + S2[a1, a4, SP[a1, a3], a2, a5, n] + 
    S2[a1, a4, SP[a1, a3], a5, a2, n] - S2[a1, a4, SP[a3, a5], a1, a2, n] - 
    S2[a1, a5, a1, a2, SP[a3, a4], n] + S2[a1, a5, a1, a4, SP[a2, a3], n] + 
    S2[a1, a5, a4, a1, SP[a2, a3], n] + S2[a1, a5, a4, SP[a1, a3], a2, n] + 
    S2[a1, a5, SP[a1, a4], a3, a2, n] + S2[a1, SP[a1, a4], a3, a2, a5, n] + 
    S2[a1, SP[a1, a4], a3, a5, a2, n] + S2[a1, SP[a1, a4], a5, a3, a2, n] - 
    S2[a1, SP[a1, a5], a4, a3, a2, n] - S2[a1, SP[a4, a5], a1, a3, a2, n] - 
    S2[a1, SP[a4, a5], a3, a1, a2, n] + S2[a1, n]*S2[a5, a1, a4, a3, a2, n] + 
    S2[a5, a1, a4, a3, SP[a1, a2], n] + S2[a5, a1, a4, SP[a1, a3], a2, n] + 
    S2[a5, a1, SP[a1, a4], a3, a2, n] + S2[a5, SP[a1, a1], a4, a3, a2, n] + 
    S2[SP[a1, a1], a4, a3, a2, a5, n] + S2[SP[a1, a1], a4, a3, a5, a2, n] + 
    S2[SP[a1, a1], a4, a5, a3, a2, n] + S2[SP[a1, a1], a5, a4, a3, a2, n] - 
    S2[SP[a1, a5], a1, a4, a3, a2, n] - S2[SP[a1, a5], a4, a1, a3, a2, n] - 
    S2[SP[a1, a5], a4, a3, a1, a2, n] - S2[a5, a1, a4, a3, a2, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a1_, a2_, a3_, a4_, a5_, a1_, n_] :> 
  S2[a1, a2, a3, n]*S2[a1, a5, a4, n] + S2[SP[a1, a1], SP[a2, a5], 
     SP[a3, a4], n] - 2*S2[a1, a1, SP[a2, a5], SP[a3, a4], n] - 
    S2[a1, a5, n]*S2[a1, a2, a3, a4, n] + S2[a1, a2, SP[a1, a3], SP[a4, a5], 
     n] - S2[a1, a2, n]*S2[a1, a5, a4, a3, n] + S2[a1, a5, SP[a1, a4], 
     SP[a2, a3], n] + S2[a1, SP[a1, a2], a3, SP[a4, a5], n] - 
    S2[a1, SP[a1, a2], a5, SP[a3, a4], n] - S2[a1, SP[a1, a5], a2, 
     SP[a3, a4], n] + S2[a1, SP[a1, a5], a4, SP[a2, a3], n] + 
    S2[SP[a1, a1], a2, a3, SP[a4, a5], n] - S2[SP[a1, a1], a2, a5, 
     SP[a3, a4], n] - S2[SP[a1, a1], a5, a2, SP[a3, a4], n] + 
    S2[SP[a1, a1], a5, a4, SP[a2, a3], n] - 
    2*S2[a1, a1, a2, a3, SP[a4, a5], n] + 
    2*S2[a1, a1, a2, a5, SP[a3, a4], n] + 
    2*S2[a1, a1, a5, a2, SP[a3, a4], n] - 
    2*S2[a1, a1, a5, a4, SP[a2, a3], n] - S2[a1, a2, a1, a3, SP[a4, a5], n] + 
    S2[a1, a2, a1, a5, SP[a3, a4], n] - S2[a1, a2, a3, a1, SP[a4, a5], n] + 
    S2[a1, n]*S2[a1, a2, a3, a4, a5, n] + S2[a1, a2, a3, a4, SP[a1, a5], n] + 
    S2[a1, a5, a1, a2, SP[a3, a4], n] - S2[a1, a5, a1, a4, SP[a2, a3], n] - 
    S2[a1, a5, a4, a1, SP[a2, a3], n] + S2[a1, n]*S2[a1, a5, a4, a3, a2, n] + 
    S2[a1, a5, a4, a3, SP[a1, a2], n] - S2[a1, n]*S2[a5, a4, a3, a2, a1, n] - 
    S2[a5, a4, a3, a2, SP[a1, a1], n] - S2[a5, a4, a3, SP[a1, a2], a1, n] - 
    S2[a5, a4, SP[a1, a3], a2, a1, n] - S2[a5, SP[a1, a4], a3, a2, a1, n] - 
    S2[SP[a1, a5], a4, a3, a2, a1, n] + S2[a5, a1, a4, a3, a2, a1, n] + 
    S2[a5, a4, a1, a3, a2, a1, n] + S2[a5, a4, a3, a1, a2, a1, n] + 
    2*S2[a5, a4, a3, a2, a1, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a1_, a2_, a3_, a5_, a1_, a4_, n_] :> 
  -(S2[a1, a2, a3, n]*S2[a1, a4, a5, n]) - S2[a1, a2, a3, n]*
     S2[a1, a5, a4, n] - S2[SP[a1, a1], SP[a2, a4], SP[a3, a5], n] - 
    S2[SP[a1, a1], SP[a2, a5], SP[a3, a4], n] + 
    2*S2[a1, a1, SP[a2, a4], SP[a3, a5], n] + 
    2*S2[a1, a1, SP[a2, a5], SP[a3, a4], n] + S2[a1, SP[a1, a2], a4, 
     SP[a3, a5], n] + S2[a1, SP[a1, a2], a5, SP[a3, a4], n] + 
    S2[a1, SP[a1, a2], SP[a3, a4], a5, n] + S2[a1, SP[a1, a2], SP[a3, a5], 
     a4, n] + S2[a1, SP[a1, a4], a2, SP[a3, a5], n] + 
    S2[a1, SP[a1, a4], SP[a2, a5], a3, n] + S2[a1, SP[a1, a5], a2, 
     SP[a3, a4], n] + S2[a1, SP[a1, a5], SP[a2, a4], a3, n] + 
    S2[a1, a2, n]*S2[a3, a5, a1, a4, n] - S2[a3, a5, SP[a1, a1], SP[a2, a4], 
     n] - S2[a3, SP[a1, a5], a1, SP[a2, a4], n] - 
    S2[a3, SP[a1, a5], SP[a1, a2], a4, n] + S2[SP[a1, a1], a2, a4, 
     SP[a3, a5], n] + S2[SP[a1, a1], a2, a5, SP[a3, a4], n] + 
    S2[SP[a1, a1], a2, SP[a3, a4], a5, n] + S2[SP[a1, a1], a2, SP[a3, a5], 
     a4, n] + S2[SP[a1, a1], a4, a2, SP[a3, a5], n] + 
    S2[SP[a1, a1], a4, SP[a2, a5], a3, n] + S2[SP[a1, a1], a5, a2, 
     SP[a3, a4], n] + S2[SP[a1, a1], a5, SP[a2, a4], a3, n] + 
    S2[SP[a1, a1], SP[a2, a4], a3, a5, n] + S2[SP[a1, a1], SP[a2, a4], a5, 
     a3, n] + S2[SP[a1, a1], SP[a2, a5], a3, a4, n] + 
    S2[SP[a1, a1], SP[a2, a5], a4, a3, n] - S2[SP[a1, a3], a5, a1, 
     SP[a2, a4], n] - S2[SP[a1, a3], a5, SP[a1, a2], a4, n] - 
    S2[SP[a1, a3], SP[a2, a5], a1, a4, n] + 
    2*S2[a5, n]*S2[a1, a1, a2, a3, a4, n] + 
    2*S2[a1, a1, a2, a3, SP[a4, a5], n] + 
    2*S2[a5, n]*S2[a1, a1, a2, a4, a3, n] - 
    2*S2[a1, a1, a2, a5, SP[a3, a4], n] - 
    2*S2[a1, a1, a2, SP[a3, a4], a5, n] + 
    2*S2[a1, a1, a2, SP[a4, a5], a3, n] + 
    2*S2[a5, n]*S2[a1, a1, a4, a2, a3, n] - 
    2*S2[a1, a1, a5, a2, SP[a3, a4], n] - 
    2*S2[a1, a1, a5, SP[a2, a4], a3, n] - 
    2*S2[a1, a1, SP[a2, a4], a3, a5, n] - 
    2*S2[a1, a1, SP[a2, a4], a5, a3, n] + 
    2*S2[a1, a1, SP[a4, a5], a2, a3, n] + 
    S2[a5, n]*S2[a1, a2, a1, a3, a4, n] + S2[a1, a2, a1, a3, SP[a4, a5], n] + 
    S2[a5, n]*S2[a1, a2, a1, a4, a3, n] - S2[a1, a2, a1, a5, SP[a3, a4], n] - 
    S2[a1, a2, a1, SP[a3, a4], a5, n] + S2[a1, a2, a1, SP[a4, a5], a3, n] + 
    S2[a5, n]*S2[a1, a2, a3, a1, a4, n] + S2[a1, a2, a3, a1, SP[a4, a5], n] + 
    S2[a1, a2, a3, SP[a1, a5], a4, n] - S2[a3, n]*S2[a1, a2, a5, a1, a4, n] - 
    S2[a1, a2, a5, a1, SP[a3, a4], n] - S2[a1, a2, a5, SP[a1, a3], a4, n] - 
    S2[a1, a2, SP[a1, a3], a4, a5, n] - S2[a1, a2, SP[a1, a3], a5, a4, n] + 
    S2[a1, a2, SP[a1, a5], a3, a4, n] + S2[a1, a2, SP[a1, a5], a4, a3, n] + 
    S2[a1, a3, a5, a1, SP[a2, a4], n] + S2[a1, a3, a5, SP[a1, a2], a4, n] + 
    S2[a1, a3, SP[a2, a5], a1, a4, n] + S2[a5, n]*S2[a1, a4, a1, a2, a3, n] - 
    S2[a3, n]*S2[a1, a5, a1, a2, a4, n] - 
    2*S2[a1, a5, a1, a2, SP[a3, a4], n] - 
    S2[a3, n]*S2[a1, a5, a1, a4, a2, n] - S2[a1, a5, a1, a4, SP[a2, a3], n] - 
    S2[a1, a5, a1, SP[a2, a3], a4, n] - S2[a1, a5, a1, SP[a2, a4], a3, n] - 
    S2[a1, a5, a1, SP[a3, a4], a2, n] - S2[a3, n]*S2[a1, a5, a2, a1, a4, n] - 
    S2[a1, a5, a2, a1, SP[a3, a4], n] - S2[a1, a5, a2, SP[a1, a3], a4, n] - 
    S2[a1, a5, SP[a1, a3], a2, a4, n] - S2[a1, a5, SP[a1, a3], a4, a2, n] - 
    S2[a1, a5, SP[a1, a4], a2, a3, n] - S2[a1, a5, SP[a2, a3], a1, a4, n] - 
    S2[a1, SP[a1, a2], a3, a4, a5, n] - S2[a1, SP[a1, a2], a3, a5, a4, n] - 
    S2[a1, SP[a1, a2], a4, a3, a5, n] - S2[a1, SP[a1, a2], a4, a5, a3, n] - 
    S2[a1, SP[a1, a2], a5, a3, a4, n] - S2[a1, SP[a1, a2], a5, a4, a3, n] - 
    S2[a1, SP[a1, a4], a2, a3, a5, n] - S2[a1, SP[a1, a4], a2, a5, a3, n] - 
    S2[a1, SP[a1, a4], a5, a2, a3, n] + S2[a1, SP[a1, a5], a2, a3, a4, n] + 
    S2[a1, SP[a1, a5], a2, a4, a3, n] + S2[a1, SP[a1, a5], a4, a2, a3, n] + 
    S2[a1, SP[a2, a5], a1, a3, a4, n] + S2[a1, SP[a2, a5], a1, a4, a3, n] + 
    S2[a1, SP[a2, a5], a3, a1, a4, n] - S2[a1, SP[a3, a5], a1, a2, a4, n] - 
    S2[a1, SP[a3, a5], a1, a4, a2, n] - S2[a1, SP[a3, a5], a2, a1, a4, n] + 
    S2[a1, SP[a4, a5], a1, a2, a3, n] + S2[a3, a1, a5, a1, SP[a2, a4], n] + 
    S2[a3, a1, a5, SP[a1, a2], a4, n] + S2[a3, a1, SP[a2, a5], a1, a4, n] + 
    2*S2[a3, a5, a1, a1, SP[a2, a4], n] + S2[a3, a5, a1, SP[a1, a2], a4, n] + 
    S2[a3, a5, a1, SP[a1, a4], a2, n] + S2[a3, a5, SP[a1, a1], a2, a4, n] + 
    S2[a3, a5, SP[a1, a1], a4, a2, n] + S2[a3, SP[a1, a5], a1, a2, a4, n] + 
    S2[a3, SP[a1, a5], a1, a4, a2, n] + S2[a3, SP[a1, a5], a2, a1, a4, n] - 
    2*S2[a3, n]*S2[a5, a1, a1, a2, a4, n] - 
    2*S2[a5, a1, a1, a2, SP[a3, a4], n] - 
    2*S2[a3, n]*S2[a5, a1, a1, a4, a2, n] - 
    2*S2[a5, a1, a1, a4, SP[a2, a3], n] - 
    2*S2[a5, a1, a1, SP[a2, a3], a4, n] - 
    2*S2[a5, a1, a1, SP[a3, a4], a2, n] - 
    S2[a3, n]*S2[a5, a1, a2, a1, a4, n] - S2[a5, a1, a2, a1, SP[a3, a4], n] - 
    S2[a5, a1, a2, SP[a1, a3], a4, n] + S2[a1, n]*S2[a5, a1, a3, a2, a4, n] + 
    S2[a5, a1, a3, a2, SP[a1, a4], n] + S2[a1, n]*S2[a5, a1, a3, a4, a2, n] + 
    S2[a5, a1, a3, a4, SP[a1, a2], n] + S2[a5, a1, a3, SP[a1, a2], a4, n] + 
    S2[a5, a1, a3, SP[a1, a4], a2, n] - S2[a3, n]*S2[a5, a1, a4, a1, a2, n] - 
    S2[a5, a1, a4, a1, SP[a2, a3], n] + S2[a1, n]*S2[a5, a1, a4, a3, a2, n] + 
    S2[a5, a1, a4, a3, SP[a1, a2], n] - S2[a5, a1, SP[a1, a3], a2, a4, n] - 
    S2[a5, a1, SP[a1, a3], a4, a2, n] + S2[a5, a1, SP[a1, a4], a3, a2, n] - 
    S2[a5, a1, SP[a2, a3], a1, a4, n] - S2[a5, a1, SP[a3, a4], a1, a2, n] + 
    S2[a1, n]*S2[a5, a3, a1, a2, a4, n] + S2[a5, a3, a1, a2, SP[a1, a4], n] + 
    S2[a1, n]*S2[a5, a3, a1, a4, a2, n] + S2[a5, a3, a1, a4, SP[a1, a2], n] + 
    S2[a5, a3, a1, SP[a1, a2], a4, n] + S2[a5, a3, a1, SP[a1, a4], a2, n] + 
    S2[a1, n]*S2[a5, a3, a2, a1, a4, n] + S2[a5, a3, a2, a1, SP[a1, a4], n] + 
    S2[a5, a3, a2, SP[a1, a1], a4, n] + S2[a5, a3, SP[a1, a1], a2, a4, n] + 
    S2[a5, a3, SP[a1, a1], a4, a2, n] + S2[a5, a3, SP[a1, a2], a1, a4, n] + 
    S2[a5, SP[a1, a1], a3, a2, a4, n] + S2[a5, SP[a1, a1], a3, a4, a2, n] + 
    S2[a5, SP[a1, a1], a4, a3, a2, n] - S2[a5, SP[a1, a3], a1, a2, a4, n] - 
    S2[a5, SP[a1, a3], a1, a4, a2, n] - S2[a5, SP[a1, a3], a4, a1, a2, n] - 
    S2[SP[a1, a1], a2, a3, a4, a5, n] - S2[SP[a1, a1], a2, a3, a5, a4, n] - 
    S2[SP[a1, a1], a2, a4, a3, a5, n] - S2[SP[a1, a1], a2, a4, a5, a3, n] - 
    S2[SP[a1, a1], a2, a5, a3, a4, n] - S2[SP[a1, a1], a2, a5, a4, a3, n] - 
    S2[SP[a1, a1], a4, a2, a3, a5, n] - S2[SP[a1, a1], a4, a2, a5, a3, n] - 
    S2[SP[a1, a1], a4, a5, a2, a3, n] - S2[SP[a1, a1], a5, a2, a3, a4, n] - 
    S2[SP[a1, a1], a5, a2, a4, a3, n] - S2[SP[a1, a1], a5, a4, a2, a3, n] + 
    2*S2[SP[a1, a5], a1, a2, a3, a4, n] + 
    2*S2[SP[a1, a5], a1, a2, a4, a3, n] + S2[SP[a1, a5], a1, a3, a2, a4, n] + 
    S2[SP[a1, a5], a1, a3, a4, a2, n] + 2*S2[SP[a1, a5], a1, a4, a2, a3, n] + 
    S2[SP[a1, a5], a1, a4, a3, a2, n] + S2[SP[a1, a5], a2, a1, a3, a4, n] + 
    S2[SP[a1, a5], a2, a1, a4, a3, n] + S2[SP[a1, a5], a2, a3, a1, a4, n] + 
    S2[SP[a1, a5], a3, a1, a2, a4, n] + S2[SP[a1, a5], a3, a1, a4, a2, n] + 
    S2[SP[a1, a5], a3, a2, a1, a4, n] + S2[SP[a1, a5], a4, a1, a2, a3, n] - 
    2*S2[SP[a3, a5], a1, a1, a2, a4, n] - 
    2*S2[SP[a3, a5], a1, a1, a4, a2, n] - S2[SP[a3, a5], a1, a2, a1, a4, n] - 
    S2[SP[a3, a5], a1, a4, a1, a2, n] - S2[a5, a1, a3, a2, a1, a4, n] - 
    S2[a5, a1, a3, a2, a4, a1, n] - S2[a5, a1, a3, a4, a2, a1, n] - 
    S2[a5, a1, a4, a3, a2, a1, n] - S2[a5, a3, a1, a2, a1, a4, n] - 
    S2[a5, a3, a1, a2, a4, a1, n] - S2[a5, a3, a1, a4, a2, a1, n] - 
    2*S2[a5, a3, a2, a1, a1, a4, n] - S2[a5, a3, a2, a1, a4, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a1_, a2_, a3_, a5_, a4_, a1_, n_] :> 
  S2[a1, a2, a3, n]*S2[a1, a4, a5, n] + S2[SP[a1, a1], SP[a2, a4], 
     SP[a3, a5], n] - 2*S2[a1, a1, SP[a2, a4], SP[a3, a5], n] + 
    S2[a1, a2, n]*S2[a1, a5, a3, a4, n] + S2[a1, a2, n]*
     S2[a1, a5, a4, a3, n] - S2[a1, a5, SP[a1, a3], SP[a2, a4], n] - 
    S2[a1, a5, SP[a1, a4], SP[a2, a3], n] - S2[a1, SP[a1, a2], a4, 
     SP[a3, a5], n] - S2[a1, SP[a1, a2], SP[a3, a4], a5, n] - 
    S2[a1, SP[a1, a4], a2, SP[a3, a5], n] - S2[a1, SP[a1, a4], SP[a2, a5], 
     a3, n] - S2[a1, SP[a1, a5], a3, SP[a2, a4], n] - 
    S2[a1, SP[a1, a5], a4, SP[a2, a3], n] - S2[a1, SP[a1, a5], SP[a2, a3], 
     a4, n] - S2[a1, SP[a1, a5], SP[a2, a4], a3, n] - 
    S2[a1, a2, n]*S2[a3, a5, a1, a4, n] + S2[a3, a5, SP[a1, a1], SP[a2, a4], 
     n] + S2[a3, SP[a1, a5], a1, SP[a2, a4], n] + 
    S2[a3, SP[a1, a5], SP[a1, a2], a4, n] - S2[SP[a1, a1], a2, a4, 
     SP[a3, a5], n] - S2[SP[a1, a1], a2, SP[a3, a4], a5, n] - 
    S2[SP[a1, a1], a4, a2, SP[a3, a5], n] - S2[SP[a1, a1], a4, SP[a2, a5], 
     a3, n] - S2[SP[a1, a1], a5, a3, SP[a2, a4], n] - 
    S2[SP[a1, a1], a5, a4, SP[a2, a3], n] - S2[SP[a1, a1], a5, SP[a2, a3], 
     a4, n] - S2[SP[a1, a1], a5, SP[a2, a4], a3, n] - 
    S2[SP[a1, a1], SP[a2, a4], a3, a5, n] - S2[SP[a1, a1], SP[a2, a4], a5, 
     a3, n] - S2[SP[a1, a1], SP[a2, a5], a3, a4, n] - 
    S2[SP[a1, a1], SP[a2, a5], a4, a3, n] + S2[SP[a1, a3], a5, a1, 
     SP[a2, a4], n] + S2[SP[a1, a3], a5, SP[a1, a2], a4, n] + 
    S2[SP[a1, a3], SP[a2, a5], a1, a4, n] - 
    2*S2[a5, n]*S2[a1, a1, a2, a3, a4, n] - 
    2*S2[a1, a1, a2, a3, SP[a4, a5], n] - 
    2*S2[a5, n]*S2[a1, a1, a2, a4, a3, n] + 
    2*S2[a1, a1, a2, SP[a3, a4], a5, n] - 
    2*S2[a1, a1, a2, SP[a3, a5], a4, n] - 
    2*S2[a1, a1, a2, SP[a4, a5], a3, n] - 
    2*S2[a5, n]*S2[a1, a1, a4, a2, a3, n] + 
    2*S2[a1, a1, a5, a3, SP[a2, a4], n] + 
    2*S2[a1, a1, a5, a4, SP[a2, a3], n] + 
    2*S2[a1, a1, a5, SP[a2, a3], a4, n] + 
    2*S2[a1, a1, a5, SP[a2, a4], a3, n] + 
    2*S2[a1, a1, SP[a2, a4], a3, a5, n] + 
    2*S2[a1, a1, SP[a2, a4], a5, a3, n] - 
    2*S2[a1, a1, SP[a4, a5], a2, a3, n] - 
    S2[a5, n]*S2[a1, a2, a1, a3, a4, n] - S2[a1, a2, a1, a3, SP[a4, a5], n] - 
    S2[a5, n]*S2[a1, a2, a1, a4, a3, n] + S2[a1, a2, a1, SP[a3, a4], a5, n] - 
    S2[a1, a2, a1, SP[a3, a5], a4, n] - S2[a1, a2, a1, SP[a4, a5], a3, n] - 
    S2[a5, n]*S2[a1, a2, a3, a1, a4, n] - S2[a1, a2, a3, a1, SP[a4, a5], n] + 
    S2[a1, n]*S2[a1, a2, a3, a5, a4, n] + S2[a1, a2, a3, a5, SP[a1, a4], n] + 
    S2[a3, n]*S2[a1, a2, a5, a1, a4, n] + S2[a1, a2, a5, a1, SP[a3, a4], n] + 
    S2[a1, a2, a5, SP[a1, a3], a4, n] + S2[a1, a2, SP[a1, a3], a4, a5, n] + 
    S2[a1, a2, SP[a1, a3], a5, a4, n] - S2[a1, a2, SP[a1, a5], a3, a4, n] - 
    S2[a1, a2, SP[a1, a5], a4, a3, n] - S2[a1, a3, a5, a1, SP[a2, a4], n] - 
    S2[a1, a3, a5, SP[a1, a2], a4, n] - S2[a1, a3, SP[a2, a5], a1, a4, n] - 
    S2[a5, n]*S2[a1, a4, a1, a2, a3, n] + 
    S2[a3, n]*S2[a1, a5, a1, a2, a4, n] + S2[a1, a5, a1, a2, SP[a3, a4], n] + 
    S2[a1, a5, a1, a3, SP[a2, a4], n] + S2[a3, n]*S2[a1, a5, a1, a4, a2, n] + 
    2*S2[a1, a5, a1, a4, SP[a2, a3], n] + 
    2*S2[a1, a5, a1, SP[a2, a3], a4, n] + S2[a1, a5, a1, SP[a2, a4], a3, n] + 
    S2[a1, a5, a1, SP[a3, a4], a2, n] + S2[a3, n]*S2[a1, a5, a2, a1, a4, n] + 
    S2[a1, a5, a2, a1, SP[a3, a4], n] + S2[a1, a5, a2, SP[a1, a3], a4, n] + 
    S2[a1, a5, a3, a1, SP[a2, a4], n] - S2[a1, n]*S2[a1, a5, a3, a2, a4, n] - 
    S2[a1, a5, a3, a2, SP[a1, a4], n] - S2[a1, n]*S2[a1, a5, a3, a4, a2, n] - 
    S2[a1, a5, a3, a4, SP[a1, a2], n] - S2[a1, a5, a3, SP[a1, a2], a4, n] + 
    S2[a1, a5, a4, a1, SP[a2, a3], n] - S2[a1, n]*S2[a1, a5, a4, a3, a2, n] - 
    S2[a1, a5, a4, a3, SP[a1, a2], n] + S2[a1, a5, SP[a1, a3], a2, a4, n] + 
    S2[a1, a5, SP[a1, a3], a4, a2, n] + S2[a1, a5, SP[a1, a4], a2, a3, n] + 
    S2[a1, a5, SP[a2, a3], a1, a4, n] + S2[a1, SP[a1, a2], a3, a4, a5, n] + 
    S2[a1, SP[a1, a2], a3, a5, a4, n] + S2[a1, SP[a1, a2], a4, a3, a5, n] + 
    S2[a1, SP[a1, a2], a4, a5, a3, n] + S2[a1, SP[a1, a2], a5, a3, a4, n] + 
    S2[a1, SP[a1, a2], a5, a4, a3, n] + S2[a1, SP[a1, a4], a2, a3, a5, n] + 
    S2[a1, SP[a1, a4], a2, a5, a3, n] + S2[a1, SP[a1, a4], a5, a2, a3, n] - 
    S2[a1, SP[a1, a5], a2, a3, a4, n] - S2[a1, SP[a1, a5], a2, a4, a3, n] - 
    S2[a1, SP[a1, a5], a4, a2, a3, n] - S2[a1, SP[a2, a5], a1, a3, a4, n] - 
    S2[a1, SP[a2, a5], a1, a4, a3, n] - S2[a1, SP[a2, a5], a3, a1, a4, n] + 
    S2[a1, SP[a3, a5], a1, a2, a4, n] + S2[a1, SP[a3, a5], a1, a4, a2, n] + 
    S2[a1, SP[a3, a5], a2, a1, a4, n] - S2[a1, SP[a4, a5], a1, a2, a3, n] - 
    S2[a3, a1, a5, a1, SP[a2, a4], n] - S2[a3, a1, a5, SP[a1, a2], a4, n] - 
    S2[a3, a1, SP[a2, a5], a1, a4, n] - 2*S2[a3, a5, a1, a1, SP[a2, a4], n] - 
    S2[a3, a5, a1, SP[a1, a2], a4, n] - S2[a3, a5, a1, SP[a1, a4], a2, n] - 
    S2[a3, a5, SP[a1, a1], a2, a4, n] - S2[a3, a5, SP[a1, a1], a4, a2, n] - 
    S2[a3, SP[a1, a5], a1, a2, a4, n] - S2[a3, SP[a1, a5], a1, a4, a2, n] - 
    S2[a3, SP[a1, a5], a2, a1, a4, n] + 2*S2[a3, n]*
     S2[a5, a1, a1, a2, a4, n] + 2*S2[a5, a1, a1, a2, SP[a3, a4], n] + 
    2*S2[a3, n]*S2[a5, a1, a1, a4, a2, n] + 
    2*S2[a5, a1, a1, a4, SP[a2, a3], n] + 
    2*S2[a5, a1, a1, SP[a2, a3], a4, n] + 
    2*S2[a5, a1, a1, SP[a3, a4], a2, n] + 
    S2[a3, n]*S2[a5, a1, a2, a1, a4, n] + S2[a5, a1, a2, a1, SP[a3, a4], n] + 
    S2[a5, a1, a2, SP[a1, a3], a4, n] - S2[a1, n]*S2[a5, a1, a3, a2, a4, n] - 
    S2[a5, a1, a3, a2, SP[a1, a4], n] - S2[a1, n]*S2[a5, a1, a3, a4, a2, n] - 
    S2[a5, a1, a3, a4, SP[a1, a2], n] - S2[a5, a1, a3, SP[a1, a2], a4, n] - 
    S2[a5, a1, a3, SP[a1, a4], a2, n] + S2[a3, n]*S2[a5, a1, a4, a1, a2, n] + 
    S2[a5, a1, a4, a1, SP[a2, a3], n] - S2[a1, n]*S2[a5, a1, a4, a3, a2, n] - 
    S2[a5, a1, a4, a3, SP[a1, a2], n] + S2[a5, a1, SP[a1, a3], a2, a4, n] + 
    S2[a5, a1, SP[a1, a3], a4, a2, n] - S2[a5, a1, SP[a1, a4], a3, a2, n] + 
    S2[a5, a1, SP[a2, a3], a1, a4, n] + S2[a5, a1, SP[a3, a4], a1, a2, n] - 
    S2[a1, n]*S2[a5, a3, a1, a2, a4, n] - S2[a5, a3, a1, a2, SP[a1, a4], n] - 
    S2[a1, n]*S2[a5, a3, a1, a4, a2, n] - S2[a5, a3, a1, a4, SP[a1, a2], n] - 
    S2[a5, a3, a1, SP[a1, a2], a4, n] - S2[a5, a3, a1, SP[a1, a4], a2, n] + 
    S2[a1, n]*S2[a5, a3, a2, a4, a1, n] + S2[a5, a3, a2, a4, SP[a1, a1], n] + 
    S2[a5, a3, a2, SP[a1, a4], a1, n] + S2[a1, n]*S2[a5, a3, a4, a2, a1, n] + 
    S2[a5, a3, a4, a2, SP[a1, a1], n] + S2[a5, a3, a4, SP[a1, a2], a1, n] - 
    S2[a5, a3, SP[a1, a1], a2, a4, n] - S2[a5, a3, SP[a1, a1], a4, a2, n] + 
    S2[a5, a3, SP[a1, a2], a4, a1, n] + S2[a5, a3, SP[a1, a4], a2, a1, n] + 
    S2[a1, n]*S2[a5, a4, a3, a2, a1, n] + S2[a5, a4, a3, a2, SP[a1, a1], n] + 
    S2[a5, a4, a3, SP[a1, a2], a1, n] + S2[a5, a4, SP[a1, a3], a2, a1, n] - 
    S2[a5, SP[a1, a1], a3, a2, a4, n] - S2[a5, SP[a1, a1], a3, a4, a2, n] - 
    S2[a5, SP[a1, a1], a4, a3, a2, n] + S2[a5, SP[a1, a3], a1, a2, a4, n] + 
    S2[a5, SP[a1, a3], a1, a4, a2, n] + S2[a5, SP[a1, a3], a2, a1, a4, n] + 
    S2[a5, SP[a1, a3], a2, a4, a1, n] + S2[a5, SP[a1, a3], a4, a1, a2, n] + 
    S2[a5, SP[a1, a3], a4, a2, a1, n] + S2[a5, SP[a1, a4], a3, a2, a1, n] + 
    S2[SP[a1, a1], a2, a3, a4, a5, n] + S2[SP[a1, a1], a2, a3, a5, a4, n] + 
    S2[SP[a1, a1], a2, a4, a3, a5, n] + S2[SP[a1, a1], a2, a4, a5, a3, n] + 
    S2[SP[a1, a1], a2, a5, a3, a4, n] + S2[SP[a1, a1], a2, a5, a4, a3, n] + 
    S2[SP[a1, a1], a4, a2, a3, a5, n] + S2[SP[a1, a1], a4, a2, a5, a3, n] + 
    S2[SP[a1, a1], a4, a5, a2, a3, n] + S2[SP[a1, a1], a5, a2, a3, a4, n] + 
    S2[SP[a1, a1], a5, a2, a4, a3, n] + S2[SP[a1, a1], a5, a4, a2, a3, n] - 
    2*S2[SP[a1, a5], a1, a2, a3, a4, n] - 
    2*S2[SP[a1, a5], a1, a2, a4, a3, n] - S2[SP[a1, a5], a1, a3, a2, a4, n] - 
    S2[SP[a1, a5], a1, a3, a4, a2, n] - 2*S2[SP[a1, a5], a1, a4, a2, a3, n] - 
    S2[SP[a1, a5], a1, a4, a3, a2, n] - S2[SP[a1, a5], a2, a1, a3, a4, n] - 
    S2[SP[a1, a5], a2, a1, a4, a3, n] - S2[SP[a1, a5], a2, a3, a1, a4, n] - 
    S2[SP[a1, a5], a3, a1, a2, a4, n] - S2[SP[a1, a5], a3, a1, a4, a2, n] + 
    S2[SP[a1, a5], a3, a2, a4, a1, n] + S2[SP[a1, a5], a3, a4, a2, a1, n] - 
    S2[SP[a1, a5], a4, a1, a2, a3, n] + S2[SP[a1, a5], a4, a3, a2, a1, n] + 
    2*S2[SP[a3, a5], a1, a1, a2, a4, n] + 
    2*S2[SP[a3, a5], a1, a1, a4, a2, n] + S2[SP[a3, a5], a1, a2, a1, a4, n] + 
    S2[SP[a3, a5], a1, a4, a1, a2, n] - S2[a5, a3, a2, a1, a4, a1, n] - 
    2*S2[a5, a3, a2, a4, a1, a1, n] - S2[a5, a3, a4, a1, a2, a1, n] - 
    2*S2[a5, a3, a4, a2, a1, a1, n] - S2[a5, a4, a1, a3, a2, a1, n] - 
    S2[a5, a4, a3, a1, a2, a1, n] - 2*S2[a5, a4, a3, a2, a1, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a1_, a2_, a4_, a1_, a3_, a5_, n_] :> 
  S2[a1, a2, a4, n]*S2[a1, a3, a5, n] + S2[SP[a1, a1], SP[a2, a3], 
     SP[a4, a5], n] - 2*S2[a3, a5, n]*S2[a1, a1, a2, a4, n] - 
    S2[a3, a5, n]*S2[a1, a2, a1, a4, n] + S2[a1, a2, SP[a1, a3], SP[a4, a5], 
     n] - S2[a1, a2, n]*S2[a1, a3, a4, a5, n] - 
    S2[a1, a2, n]*S2[a1, a3, a5, a4, n] + S2[a1, a3, SP[a1, a4], SP[a2, a5], 
     n] + S2[a1, a3, SP[a1, a5], SP[a2, a4], n] - 
    S2[a1, a2, n]*S2[a1, a4, a3, a5, n] - S2[a1, a2, n]*
     S2[a1, a4, a5, a3, n] + S2[a1, a4, SP[a1, a3], SP[a2, a5], n] + 
    S2[a1, a4, SP[a1, a5], SP[a2, a3], n] - S2[a1, a2, n]*
     S2[a1, a5, a3, a4, n] - S2[a1, a2, n]*S2[a1, a5, a4, a3, n] + 
    S2[a1, a5, SP[a1, a3], SP[a2, a4], n] + S2[a1, a5, SP[a1, a4], 
     SP[a2, a3], n] - S2[a1, SP[a1, a2], a3, SP[a4, a5], n] - 
    S2[a1, SP[a1, a2], SP[a3, a4], a5, n] + S2[a1, SP[a1, a3], a2, 
     SP[a4, a5], n] + S2[a1, SP[a1, a3], a4, SP[a2, a5], n] + 
    S2[a1, SP[a1, a3], a5, SP[a2, a4], n] + S2[a1, SP[a1, a3], SP[a2, a4], 
     a5, n] + 2*S2[a1, SP[a1, a3], SP[a2, a5], a4, n] + 
    S2[a1, SP[a1, a4], a3, SP[a2, a5], n] + S2[a1, SP[a1, a4], a5, 
     SP[a2, a3], n] + S2[a1, SP[a1, a4], SP[a2, a3], a5, n] + 
    S2[a1, SP[a1, a4], SP[a2, a5], a3, n] + S2[a1, SP[a1, a5], a3, 
     SP[a2, a4], n] + S2[a1, SP[a1, a5], a4, SP[a2, a3], n] + 
    S2[a1, SP[a1, a5], SP[a2, a3], a4, n] + S2[a1, SP[a1, a5], SP[a2, a4], 
     a3, n] + S2[a1, SP[a2, a3], a1, SP[a4, a5], n] + 
    S2[a1, SP[a2, a3], SP[a1, a5], a4, n] + S2[a1, a2, n]*
     S2[a3, a5, a1, a4, n] - S2[a3, a5, SP[a1, a1], SP[a2, a4], n] - 
    S2[a3, SP[a1, a5], a1, SP[a2, a4], n] - S2[a3, SP[a1, a5], SP[a1, a2], 
     a4, n] - S2[SP[a1, a1], a2, a3, SP[a4, a5], n] - 
    S2[SP[a1, a1], a2, SP[a3, a4], a5, n] - S2[SP[a1, a1], a3, a2, 
     SP[a4, a5], n] + S2[SP[a1, a1], a3, a4, SP[a2, a5], n] + 
    S2[SP[a1, a1], a3, a5, SP[a2, a4], n] + S2[SP[a1, a1], a3, SP[a2, a4], 
     a5, n] + S2[SP[a1, a1], a4, a3, SP[a2, a5], n] + 
    S2[SP[a1, a1], a4, a5, SP[a2, a3], n] + S2[SP[a1, a1], a4, SP[a2, a3], 
     a5, n] + S2[SP[a1, a1], a4, SP[a2, a5], a3, n] + 
    S2[SP[a1, a1], a5, a3, SP[a2, a4], n] + S2[SP[a1, a1], a5, a4, 
     SP[a2, a3], n] + S2[SP[a1, a1], a5, SP[a2, a3], a4, n] + 
    S2[SP[a1, a1], a5, SP[a2, a4], a3, n] + S2[SP[a1, a1], SP[a2, a4], a3, 
     a5, n] + S2[SP[a1, a1], SP[a2, a4], a5, a3, n] + 
    S2[SP[a1, a1], SP[a2, a5], a3, a4, n] + S2[SP[a1, a1], SP[a2, a5], a4, 
     a3, n] + 2*S2[SP[a1, a3], a1, a2, SP[a4, a5], n] + 
    2*S2[SP[a1, a3], a1, SP[a2, a5], a4, n] + S2[SP[a1, a3], a2, a1, 
     SP[a4, a5], n] + S2[SP[a1, a3], a2, SP[a1, a5], a4, n] - 
    S2[SP[a1, a3], a5, a1, SP[a2, a4], n] - S2[SP[a1, a3], a5, SP[a1, a2], 
     a4, n] + 2*S2[SP[a1, a3], SP[a1, a5], a2, a4, n] + 
    2*S2[a3, n]*S2[a1, a1, a2, a4, a5, n] + 
    2*S2[a1, a1, a2, a4, SP[a3, a5], n] + 
    2*S2[a3, n]*S2[a1, a1, a2, a5, a4, n] + 
    2*S2[a1, a1, a2, a5, SP[a3, a4], n] + 
    2*S2[a1, a1, a2, SP[a3, a4], a5, n] + 
    2*S2[a1, a1, a2, SP[a3, a5], a4, n] + 
    2*S2[a5, n]*S2[a1, a1, a3, a4, a2, n] - 
    2*S2[a1, a1, a3, a5, SP[a2, a4], n] - 
    2*S2[a1, a1, a3, SP[a2, a4], a5, n] - 
    2*S2[a1, a1, a3, SP[a2, a5], a4, n] + 
    2*S2[a1, a1, a3, SP[a4, a5], a2, n] + 
    2*S2[a5, n]*S2[a1, a1, a4, a2, a3, n] + 
    2*S2[a1, a1, a4, a2, SP[a3, a5], n] + 
    2*S2[a5, n]*S2[a1, a1, a4, a3, a2, n] - 
    2*S2[a1, a1, a4, a5, SP[a2, a3], n] - 
    2*S2[a1, a1, a4, SP[a2, a3], a5, n] + 
    2*S2[a1, a1, a4, SP[a3, a5], a2, n] + 
    2*S2[a3, n]*S2[a1, a1, a5, a2, a4, n] + 
    2*S2[a1, a1, a5, a2, SP[a3, a4], n] - 
    2*S2[a1, a1, a5, a3, SP[a2, a4], n] - 
    2*S2[a1, a1, a5, a4, SP[a2, a3], n] - 
    2*S2[a1, a1, a5, SP[a2, a4], a3, n] - 
    2*S2[a1, a1, SP[a2, a4], a3, a5, n] - 
    2*S2[a1, a1, SP[a2, a4], a5, a3, n] - 
    2*S2[a1, a1, SP[a2, a5], a3, a4, n] - 
    2*S2[a1, a1, SP[a2, a5], a4, a3, n] + 
    2*S2[a1, a1, SP[a3, a5], a2, a4, n] + 
    2*S2[a1, a1, SP[a3, a5], a4, a2, n] + 
    2*S2[a1, a1, SP[a4, a5], a2, a3, n] + 
    2*S2[a1, a1, SP[a4, a5], a3, a2, n] + 
    S2[a3, n]*S2[a1, a2, a1, a4, a5, n] + S2[a1, a2, a1, a4, SP[a3, a5], n] + 
    S2[a3, n]*S2[a1, a2, a1, a5, a4, n] + S2[a1, a2, a1, a5, SP[a3, a4], n] + 
    S2[a1, a2, a1, SP[a3, a4], a5, n] + S2[a1, a2, a1, SP[a3, a5], a4, n] - 
    S2[a1, a2, a3, a1, SP[a4, a5], n] - S2[a1, a2, a3, SP[a1, a5], a4, n] + 
    S2[a1, a2, SP[a1, a4], a3, a5, n] - S2[a1, a3, a1, a2, SP[a4, a5], n] + 
    S2[a5, n]*S2[a1, a3, a1, a4, a2, n] - S2[a1, a3, a1, a5, SP[a2, a4], n] - 
    S2[a1, a3, a1, SP[a2, a4], a5, n] - 2*S2[a1, a3, a1, SP[a2, a5], a4, n] + 
    S2[a1, a3, a1, SP[a4, a5], a2, n] - S2[a1, a3, a2, a1, SP[a4, a5], n] - 
    S2[a1, a3, a2, SP[a1, a5], a4, n] + S2[a5, n]*S2[a1, a3, a4, a1, a2, n] + 
    S2[a1, a3, a5, SP[a1, a2], a4, n] - S2[a1, a3, a5, SP[a1, a4], a2, n] - 
    S2[a1, a3, SP[a1, a4], a2, a5, n] - S2[a1, a3, SP[a1, a4], a5, a2, n] - 
    2*S2[a1, a3, SP[a1, a5], a2, a4, n] + S2[a1, a3, SP[a4, a5], a1, a2, n] + 
    S2[a5, n]*S2[a1, a4, a1, a2, a3, n] + S2[a1, a4, a1, a2, SP[a3, a5], n] + 
    S2[a5, n]*S2[a1, a4, a1, a3, a2, n] - S2[a1, a4, a1, a5, SP[a2, a3], n] - 
    S2[a1, a4, a1, SP[a2, a3], a5, n] + S2[a1, a4, a1, SP[a3, a5], a2, n] + 
    S2[a5, n]*S2[a1, a4, a3, a1, a2, n] - S2[a1, a4, a5, a1, SP[a2, a3], n] - 
    S2[a1, a4, a5, SP[a1, a3], a2, n] - S2[a1, a4, SP[a1, a3], a2, a5, n] - 
    S2[a1, a4, SP[a1, a3], a5, a2, n] + S2[a1, a4, SP[a3, a5], a1, a2, n] + 
    S2[a3, n]*S2[a1, a5, a1, a2, a4, n] + S2[a1, a5, a1, a2, SP[a3, a4], n] - 
    S2[a1, a5, a1, a3, SP[a2, a4], n] - S2[a3, n]*S2[a1, a5, a1, a4, a2, n] - 
    2*S2[a1, a5, a1, a4, SP[a2, a3], n] - S2[a1, a5, a1, SP[a2, a4], a3, n] - 
    S2[a1, a5, a1, SP[a3, a4], a2, n] - S2[a1, a5, a3, a1, SP[a2, a4], n] - 
    S2[a1, a5, a3, SP[a1, a4], a2, n] - S2[a1, a5, a4, a1, SP[a2, a3], n] - 
    S2[a1, a5, a4, SP[a1, a3], a2, n] - 2*S2[a1, a5, SP[a1, a3], a4, a2, n] - 
    S2[a1, a5, SP[a1, a4], a2, a3, n] - S2[a1, a5, SP[a1, a4], a3, a2, n] - 
    S2[a1, SP[a1, a2], a4, a5, a3, n] - S2[a1, SP[a1, a2], a5, a3, a4, n] - 
    S2[a1, SP[a1, a2], a5, a4, a3, n] - S2[a1, SP[a1, a3], a4, a2, a5, n] - 
    S2[a1, SP[a1, a3], a4, a5, a2, n] - S2[a1, SP[a1, a3], a5, a4, a2, n] - 
    S2[a1, SP[a1, a4], a2, a3, a5, n] - S2[a1, SP[a1, a4], a2, a5, a3, n] - 
    S2[a1, SP[a1, a4], a3, a2, a5, n] - S2[a1, SP[a1, a4], a3, a5, a2, n] - 
    S2[a1, SP[a1, a4], a5, a2, a3, n] - S2[a1, SP[a1, a4], a5, a3, a2, n] - 
    S2[a1, SP[a1, a5], a2, a3, a4, n] - S2[a1, SP[a1, a5], a2, a4, a3, n] - 
    S2[a1, SP[a1, a5], a3, a2, a4, n] + S2[a1, SP[a1, a5], a3, a4, a2, n] + 
    S2[a1, SP[a1, a5], a4, a2, a3, n] + S2[a1, SP[a1, a5], a4, a3, a2, n] + 
    S2[a1, SP[a3, a5], a1, a2, a4, n] + S2[a1, SP[a3, a5], a4, a1, a2, n] + 
    S2[a1, SP[a4, a5], a1, a2, a3, n] + S2[a1, SP[a4, a5], a1, a3, a2, n] + 
    S2[a1, SP[a4, a5], a3, a1, a2, n] - 2*S2[a3, a1, a1, a2, SP[a4, a5], n] - 
    2*S2[a3, a1, a1, SP[a2, a5], a4, n] - S2[a3, a1, a2, a1, SP[a4, a5], n] - 
    S2[a3, a1, a2, SP[a1, a5], a4, n] + S2[a3, a1, a5, a1, SP[a2, a4], n] + 
    S2[a3, a1, a5, SP[a1, a2], a4, n] - 2*S2[a3, a1, SP[a1, a5], a2, a4, n] + 
    2*S2[a3, a5, a1, a1, SP[a2, a4], n] + S2[a3, a5, a1, SP[a1, a2], a4, n] + 
    S2[a3, a5, a1, SP[a1, a4], a2, n] + S2[a3, a5, SP[a1, a1], a2, a4, n] + 
    S2[a3, a5, SP[a1, a1], a4, a2, n] - S2[a3, SP[a1, a5], a1, a2, a4, n] + 
    S2[a3, SP[a1, a5], a1, a4, a2, n] - 2*S2[a3, n]*
     S2[a5, a1, a1, a4, a2, n] - 2*S2[a5, a1, a1, a4, SP[a2, a3], n] - 
    2*S2[a5, a1, a1, SP[a3, a4], a2, n] - 
    S2[a3, n]*S2[a5, a1, a4, a1, a2, n] - S2[a5, a1, a4, a1, SP[a2, a3], n] - 
    S2[a5, a1, a4, SP[a1, a3], a2, n] - 2*S2[a5, a1, SP[a1, a3], a4, a2, n] - 
    S2[a5, a1, SP[a3, a4], a1, a2, n] + S2[a1, n]*S2[a5, a3, a1, a4, a2, n] + 
    S2[a5, a3, a1, a4, SP[a1, a2], n] + S2[a5, a3, a1, SP[a1, a4], a2, n] + 
    S2[a5, a3, SP[a1, a1], a4, a2, n] - S2[a5, SP[a1, a3], a1, a4, a2, n] - 
    S2[a5, SP[a1, a3], a4, a1, a2, n] - S2[SP[a1, a1], a2, a4, a5, a3, n] - 
    S2[SP[a1, a1], a2, a5, a3, a4, n] - S2[SP[a1, a1], a2, a5, a4, a3, n] - 
    S2[SP[a1, a1], a3, a4, a2, a5, n] - S2[SP[a1, a1], a3, a4, a5, a2, n] - 
    S2[SP[a1, a1], a3, a5, a4, a2, n] - S2[SP[a1, a1], a4, a2, a3, a5, n] - 
    S2[SP[a1, a1], a4, a2, a5, a3, n] - S2[SP[a1, a1], a4, a3, a2, a5, n] - 
    S2[SP[a1, a1], a4, a3, a5, a2, n] - S2[SP[a1, a1], a4, a5, a2, a3, n] - 
    S2[SP[a1, a1], a4, a5, a3, a2, n] - S2[SP[a1, a1], a5, a2, a3, a4, n] - 
    S2[SP[a1, a1], a5, a2, a4, a3, n] - S2[SP[a1, a1], a5, a3, a2, a4, n] - 
    S2[SP[a1, a1], a5, a3, a4, a2, n] - S2[SP[a1, a1], a5, a4, a2, a3, n] - 
    S2[SP[a1, a1], a5, a4, a3, a2, n] + 2*S2[SP[a1, a5], a1, a3, a4, a2, n] + 
    2*S2[SP[a1, a5], a1, a4, a2, a3, n] + 
    2*S2[SP[a1, a5], a1, a4, a3, a2, n] + 
    2*S2[SP[a1, a5], a3, a1, a4, a2, n] + S2[SP[a1, a5], a3, a4, a1, a2, n] + 
    S2[SP[a1, a5], a4, a1, a2, a3, n] + S2[SP[a1, a5], a4, a1, a3, a2, n] + 
    S2[SP[a1, a5], a4, a3, a1, a2, n] - 2*S2[SP[a3, a5], a1, a1, a4, a2, n] - 
    S2[SP[a3, a5], a1, a4, a1, a2, n] - S2[a5, a3, a1, a4, a2, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a1_, a2_, a4_, a1_, a5_, a3_, n_] :> 
  S2[a1, a2, a4, n]*S2[a1, a5, a3, n] + S2[SP[a1, a1], SP[a2, a5], 
     SP[a3, a4], n] + 2*S2[a3, a5, n]*S2[a1, a1, a2, a4, n] - 
    2*S2[a1, a1, SP[a2, a3], SP[a4, a5], n] - 
    2*S2[a1, a1, SP[a2, a5], SP[a3, a4], n] + 
    S2[a3, a5, n]*S2[a1, a2, a1, a4, n] - S2[a1, a2, SP[a1, a3], SP[a4, a5], 
     n] - S2[a1, SP[a1, a2], a5, SP[a3, a4], n] - 
    S2[a1, SP[a1, a2], SP[a4, a5], a3, n] - 
    2*S2[a1, SP[a1, a3], a2, SP[a4, a5], n] - 
    2*S2[a1, SP[a1, a3], SP[a2, a5], a4, n] - S2[a1, SP[a1, a5], a2, 
     SP[a3, a4], n] - S2[a1, SP[a1, a5], SP[a2, a3], a4, n] - 
    S2[a1, SP[a2, a3], a1, SP[a4, a5], n] - S2[a1, SP[a2, a3], SP[a1, a5], 
     a4, n] - S2[a1, a2, n]*S2[a3, a5, a1, a4, n] + 
    S2[a3, a5, SP[a1, a1], SP[a2, a4], n] + S2[a3, SP[a1, a5], a1, 
     SP[a2, a4], n] + S2[a3, SP[a1, a5], SP[a1, a2], a4, n] - 
    S2[SP[a1, a1], a2, a5, SP[a3, a4], n] - S2[SP[a1, a1], a2, SP[a4, a5], 
     a3, n] - S2[SP[a1, a1], a5, a2, SP[a3, a4], n] - 
    S2[SP[a1, a1], a5, SP[a2, a3], a4, n] - S2[SP[a1, a1], SP[a2, a5], a3, 
     a4, n] - S2[SP[a1, a1], SP[a2, a5], a4, a3, n] - 
    2*S2[SP[a1, a3], a1, a2, SP[a4, a5], n] - 
    2*S2[SP[a1, a3], a1, SP[a2, a5], a4, n] - S2[SP[a1, a3], a2, a1, 
     SP[a4, a5], n] - S2[SP[a1, a3], a2, SP[a1, a5], a4, n] + 
    S2[SP[a1, a3], a5, a1, SP[a2, a4], n] + S2[SP[a1, a3], a5, SP[a1, a2], 
     a4, n] - 2*S2[SP[a1, a3], SP[a1, a5], a2, a4, n] + 
    2*S2[a1, a1, a2, a3, SP[a4, a5], n] - 
    2*S2[a3, n]*S2[a1, a1, a2, a4, a5, n] - 
    2*S2[a1, a1, a2, a4, SP[a3, a5], n] - 
    2*S2[a3, n]*S2[a1, a1, a2, a5, a4, n] - 
    2*S2[a1, a1, a2, SP[a3, a5], a4, n] + 
    2*S2[a1, a1, a2, SP[a4, a5], a3, n] + 
    2*S2[a1, a1, a3, a2, SP[a4, a5], n] + 
    2*S2[a1, a1, a3, SP[a2, a5], a4, n] - 
    2*S2[a3, n]*S2[a1, a1, a5, a2, a4, n] + 
    2*S2[a1, a1, SP[a2, a5], a3, a4, n] + 
    2*S2[a1, a1, SP[a2, a5], a4, a3, n] - 
    2*S2[a1, a1, SP[a3, a5], a2, a4, n] + S2[a1, a2, a1, a3, SP[a4, a5], n] - 
    S2[a3, n]*S2[a1, a2, a1, a4, a5, n] - S2[a1, a2, a1, a4, SP[a3, a5], n] - 
    S2[a3, n]*S2[a1, a2, a1, a5, a4, n] - S2[a1, a2, a1, SP[a3, a5], a4, n] + 
    S2[a1, a2, a1, SP[a4, a5], a3, n] + S2[a1, a2, a3, a1, SP[a4, a5], n] + 
    S2[a1, a2, a3, SP[a1, a5], a4, n] + S2[a1, a2, SP[a1, a4], a5, a3, n] + 
    2*S2[a1, a3, a1, a2, SP[a4, a5], n] + 
    2*S2[a1, a3, a1, SP[a2, a5], a4, n] + S2[a1, a3, a2, a1, SP[a4, a5], n] + 
    S2[a1, a3, a2, SP[a1, a5], a4, n] - S2[a1, a3, a5, a1, SP[a2, a4], n] - 
    S2[a1, a3, a5, SP[a1, a2], a4, n] + 2*S2[a1, a3, SP[a1, a5], a2, a4, n] - 
    S2[a3, n]*S2[a1, a5, a1, a2, a4, n] + 
    S2[a3, n]*S2[a1, a5, a1, a4, a2, n] + S2[a1, a5, a1, a4, SP[a2, a3], n] + 
    S2[a1, a5, a1, SP[a3, a4], a2, n] + S2[a1, a5, SP[a1, a3], a4, a2, n] + 
    S2[a1, SP[a1, a2], a4, a5, a3, n] + S2[a1, SP[a1, a2], a5, a3, a4, n] + 
    S2[a1, SP[a1, a2], a5, a4, a3, n] + S2[a1, SP[a1, a5], a2, a3, a4, n] + 
    S2[a1, SP[a1, a5], a2, a4, a3, n] + S2[a1, SP[a1, a5], a3, a2, a4, n] - 
    S2[a1, SP[a3, a5], a1, a2, a4, n] + S2[a1, SP[a3, a5], a1, a4, a2, n] + 
    2*S2[a3, a1, a1, a2, SP[a4, a5], n] + 
    2*S2[a3, a1, a1, SP[a2, a5], a4, n] + S2[a3, a1, a2, a1, SP[a4, a5], n] + 
    S2[a3, a1, a2, SP[a1, a5], a4, n] - S2[a3, a1, a5, a1, SP[a2, a4], n] - 
    S2[a3, a1, a5, SP[a1, a2], a4, n] + 2*S2[a3, a1, SP[a1, a5], a2, a4, n] - 
    2*S2[a3, a5, a1, a1, SP[a2, a4], n] - S2[a3, a5, a1, SP[a1, a2], a4, n] - 
    S2[a3, a5, a1, SP[a1, a4], a2, n] - S2[a3, a5, SP[a1, a1], a2, a4, n] - 
    S2[a3, a5, SP[a1, a1], a4, a2, n] + S2[a3, SP[a1, a5], a1, a2, a4, n] - 
    S2[a3, SP[a1, a5], a1, a4, a2, n] + 2*S2[a3, n]*
     S2[a5, a1, a1, a4, a2, n] + 2*S2[a5, a1, a1, a4, SP[a2, a3], n] + 
    2*S2[a5, a1, a1, SP[a3, a4], a2, n] - 
    S2[a1, n]*S2[a5, a1, a3, a4, a2, n] - S2[a5, a1, a3, a4, SP[a1, a2], n] - 
    S2[a5, a1, a3, SP[a1, a4], a2, n] + S2[a3, n]*S2[a5, a1, a4, a1, a2, n] + 
    S2[a5, a1, a4, a1, SP[a2, a3], n] - S2[a1, n]*S2[a5, a1, a4, a2, a3, n] - 
    S2[a5, a1, a4, a2, SP[a1, a3], n] - S2[a1, n]*S2[a5, a1, a4, a3, a2, n] - 
    S2[a5, a1, a4, a3, SP[a1, a2], n] - S2[a5, a1, a4, SP[a1, a2], a3, n] + 
    S2[a5, a1, SP[a1, a3], a4, a2, n] - S2[a5, a1, SP[a1, a4], a2, a3, n] - 
    S2[a5, a1, SP[a1, a4], a3, a2, n] + S2[a5, a1, SP[a3, a4], a1, a2, n] - 
    S2[a1, n]*S2[a5, a3, a1, a4, a2, n] - S2[a5, a3, a1, a4, SP[a1, a2], n] - 
    S2[a5, a3, a1, SP[a1, a4], a2, n] - S2[a5, a3, SP[a1, a1], a4, a2, n] - 
    S2[a5, SP[a1, a1], a3, a4, a2, n] - S2[a5, SP[a1, a1], a4, a2, a3, n] - 
    S2[a5, SP[a1, a1], a4, a3, a2, n] + S2[a5, SP[a1, a3], a1, a4, a2, n] + 
    S2[a5, SP[a1, a3], a4, a1, a2, n] + S2[SP[a1, a1], a2, a4, a5, a3, n] + 
    S2[SP[a1, a1], a2, a5, a3, a4, n] + S2[SP[a1, a1], a2, a5, a4, a3, n] + 
    S2[SP[a1, a1], a5, a2, a3, a4, n] + S2[SP[a1, a1], a5, a2, a4, a3, n] + 
    S2[SP[a1, a1], a5, a3, a2, a4, n] - S2[SP[a1, a5], a1, a3, a4, a2, n] - 
    S2[SP[a1, a5], a1, a4, a2, a3, n] - S2[SP[a1, a5], a1, a4, a3, a2, n] - 
    S2[SP[a1, a5], a3, a1, a4, a2, n] + 2*S2[SP[a3, a5], a1, a1, a4, a2, n] + 
    S2[SP[a3, a5], a1, a4, a1, a2, n] + S2[a5, a1, a3, a4, a2, a1, n] + 
    S2[a5, a1, a4, a2, a1, a3, n] + S2[a5, a1, a4, a2, a3, a1, n] + 
    S2[a5, a1, a4, a3, a2, a1, n] + S2[a5, a3, a1, a4, a2, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a1_, a2_, a4_, a3_, a1_, a5_, n_] :> 
  -(S2[a1, a2, a4, n]*S2[a1, a3, a5, n]) - S2[a1, a2, a4, n]*
     S2[a1, a5, a3, n] - S2[SP[a1, a1], SP[a2, a3], SP[a4, a5], n] - 
    S2[SP[a1, a1], SP[a2, a5], SP[a3, a4], n] + 
    2*S2[a1, a1, SP[a2, a3], SP[a4, a5], n] + 
    2*S2[a1, a1, SP[a2, a5], SP[a3, a4], n] + 
    S2[a1, a5, n]*S2[a1, a2, a4, a3, n] - S2[a1, a2, SP[a1, a4], SP[a3, a5], 
     n] + S2[a1, a2, n]*S2[a1, a3, a4, a5, n] + 
    S2[a1, a2, n]*S2[a1, a3, a5, a4, n] - S2[a1, a3, SP[a1, a4], SP[a2, a5], 
     n] - S2[a1, a3, SP[a1, a5], SP[a2, a4], n] + 
    S2[a1, a2, n]*S2[a1, a5, a3, a4, n] - S2[a1, a5, SP[a1, a3], SP[a2, a4], 
     n] + S2[a1, SP[a1, a2], a3, SP[a4, a5], n] - S2[a1, SP[a1, a2], a4, 
     SP[a3, a5], n] + S2[a1, SP[a1, a2], a5, SP[a3, a4], n] + 
    S2[a1, SP[a1, a2], SP[a3, a4], a5, n] + S2[a1, SP[a1, a3], a2, 
     SP[a4, a5], n] - S2[a1, SP[a1, a3], a4, SP[a2, a5], n] - 
    S2[a1, SP[a1, a3], a5, SP[a2, a4], n] - S2[a1, SP[a1, a3], SP[a2, a4], 
     a5, n] + S2[a1, SP[a1, a5], a2, SP[a3, a4], n] - 
    S2[a1, SP[a1, a5], a3, SP[a2, a4], n] + S2[SP[a1, a1], a2, a3, 
     SP[a4, a5], n] - S2[SP[a1, a1], a2, a4, SP[a3, a5], n] + 
    S2[SP[a1, a1], a2, a5, SP[a3, a4], n] + S2[SP[a1, a1], a2, SP[a3, a4], 
     a5, n] + S2[SP[a1, a1], a3, a2, SP[a4, a5], n] - 
    S2[SP[a1, a1], a3, a4, SP[a2, a5], n] - S2[SP[a1, a1], a3, a5, 
     SP[a2, a4], n] - S2[SP[a1, a1], a3, SP[a2, a4], a5, n] + 
    S2[SP[a1, a1], a5, a2, SP[a3, a4], n] - S2[SP[a1, a1], a5, a3, 
     SP[a2, a4], n] - 2*S2[a1, a1, a2, a3, SP[a4, a5], n] + 
    2*S2[a1, a1, a2, a4, SP[a3, a5], n] - 
    2*S2[a1, a1, a2, a5, SP[a3, a4], n] - 
    2*S2[a1, a1, a2, SP[a3, a4], a5, n] - 
    2*S2[a1, a1, a3, a2, SP[a4, a5], n] - 
    2*S2[a5, n]*S2[a1, a1, a3, a4, a2, n] + 
    2*S2[a1, a1, a3, a5, SP[a2, a4], n] + 
    2*S2[a1, a1, a3, SP[a2, a4], a5, n] - 
    2*S2[a1, a1, a3, SP[a4, a5], a2, n] - 
    2*S2[a1, a1, a5, a2, SP[a3, a4], n] + 
    2*S2[a1, a1, a5, a3, SP[a2, a4], n] - 
    2*S2[a1, a1, SP[a3, a5], a4, a2, n] - S2[a1, a2, a1, a3, SP[a4, a5], n] + 
    S2[a1, a2, a1, a4, SP[a3, a5], n] - S2[a1, a2, a1, a5, SP[a3, a4], n] - 
    S2[a1, a2, a1, SP[a3, a4], a5, n] + S2[a1, a2, a4, a1, SP[a3, a5], n] + 
    S2[a1, a2, a4, SP[a1, a3], a5, n] - S2[a1, a3, a1, a2, SP[a4, a5], n] - 
    S2[a5, n]*S2[a1, a3, a1, a4, a2, n] + S2[a1, a3, a1, a5, SP[a2, a4], n] + 
    S2[a1, a3, a1, SP[a2, a4], a5, n] - S2[a1, a3, a1, SP[a4, a5], a2, n] - 
    S2[a5, n]*S2[a1, a3, a4, a1, a2, n] + S2[a1, a3, a5, a1, SP[a2, a4], n] + 
    S2[a1, a3, a5, SP[a1, a4], a2, n] + S2[a1, a3, SP[a1, a4], a2, a5, n] + 
    S2[a1, a3, SP[a1, a4], a5, a2, n] - S2[a1, a3, SP[a4, a5], a1, a2, n] - 
    S2[a1, a5, a1, a2, SP[a3, a4], n] + S2[a1, a5, a1, a3, SP[a2, a4], n] + 
    S2[a1, a5, a3, a1, SP[a2, a4], n] + S2[a1, a5, a3, SP[a1, a4], a2, n] + 
    S2[a1, a5, SP[a1, a3], a4, a2, n] + S2[a1, SP[a1, a3], a4, a2, a5, n] + 
    S2[a1, SP[a1, a3], a4, a5, a2, n] + S2[a1, SP[a1, a3], a5, a4, a2, n] - 
    S2[a1, SP[a1, a5], a3, a4, a2, n] - S2[a1, SP[a3, a5], a1, a4, a2, n] - 
    S2[a1, SP[a3, a5], a4, a1, a2, n] + S2[a1, n]*S2[a5, a1, a3, a4, a2, n] + 
    S2[a5, a1, a3, a4, SP[a1, a2], n] + S2[a5, a1, a3, SP[a1, a4], a2, n] + 
    S2[a5, a1, SP[a1, a3], a4, a2, n] + S2[a5, SP[a1, a1], a3, a4, a2, n] + 
    S2[SP[a1, a1], a3, a4, a2, a5, n] + S2[SP[a1, a1], a3, a4, a5, a2, n] + 
    S2[SP[a1, a1], a3, a5, a4, a2, n] + S2[SP[a1, a1], a5, a3, a4, a2, n] - 
    S2[SP[a1, a5], a1, a3, a4, a2, n] - S2[SP[a1, a5], a3, a1, a4, a2, n] - 
    S2[SP[a1, a5], a3, a4, a1, a2, n] - S2[a5, a1, a3, a4, a2, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a1_, a2_, a4_, a3_, a5_, a1_, n_] :> 
  S2[a1, a2, a4, n]*S2[a1, a5, a3, n] + S2[SP[a1, a1], SP[a2, a5], 
     SP[a3, a4], n] - 2*S2[a1, a1, SP[a2, a5], SP[a3, a4], n] - 
    S2[a1, a5, n]*S2[a1, a2, a4, a3, n] + S2[a1, a2, SP[a1, a4], SP[a3, a5], 
     n] - S2[a1, a2, n]*S2[a1, a5, a3, a4, n] + S2[a1, a5, SP[a1, a3], 
     SP[a2, a4], n] + S2[a1, SP[a1, a2], a4, SP[a3, a5], n] - 
    S2[a1, SP[a1, a2], a5, SP[a3, a4], n] - S2[a1, SP[a1, a5], a2, 
     SP[a3, a4], n] + S2[a1, SP[a1, a5], a3, SP[a2, a4], n] + 
    S2[SP[a1, a1], a2, a4, SP[a3, a5], n] - S2[SP[a1, a1], a2, a5, 
     SP[a3, a4], n] - S2[SP[a1, a1], a5, a2, SP[a3, a4], n] + 
    S2[SP[a1, a1], a5, a3, SP[a2, a4], n] - 
    2*S2[a1, a1, a2, a4, SP[a3, a5], n] + 
    2*S2[a1, a1, a2, a5, SP[a3, a4], n] + 
    2*S2[a1, a1, a5, a2, SP[a3, a4], n] - 
    2*S2[a1, a1, a5, a3, SP[a2, a4], n] - S2[a1, a2, a1, a4, SP[a3, a5], n] + 
    S2[a1, a2, a1, a5, SP[a3, a4], n] - S2[a1, a2, a4, a1, SP[a3, a5], n] + 
    S2[a1, n]*S2[a1, a2, a4, a3, a5, n] + S2[a1, a2, a4, a3, SP[a1, a5], n] + 
    S2[a1, a5, a1, a2, SP[a3, a4], n] - S2[a1, a5, a1, a3, SP[a2, a4], n] - 
    S2[a1, a5, a3, a1, SP[a2, a4], n] + S2[a1, n]*S2[a1, a5, a3, a4, a2, n] + 
    S2[a1, a5, a3, a4, SP[a1, a2], n] - S2[a1, n]*S2[a5, a3, a4, a2, a1, n] - 
    S2[a5, a3, a4, a2, SP[a1, a1], n] - S2[a5, a3, a4, SP[a1, a2], a1, n] - 
    S2[a5, a3, SP[a1, a4], a2, a1, n] - S2[a5, SP[a1, a3], a4, a2, a1, n] - 
    S2[SP[a1, a5], a3, a4, a2, a1, n] + S2[a5, a1, a3, a4, a2, a1, n] + 
    S2[a5, a3, a1, a4, a2, a1, n] + S2[a5, a3, a4, a1, a2, a1, n] + 
    2*S2[a5, a3, a4, a2, a1, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a1_, a2_, a4_, a5_, a1_, a3_, n_] :> 
  -(S2[a1, a2, a4, n]*S2[a1, a3, a5, n]) - S2[a1, a2, a4, n]*
     S2[a1, a5, a3, n] - S2[SP[a1, a1], SP[a2, a3], SP[a4, a5], n] - 
    S2[SP[a1, a1], SP[a2, a5], SP[a3, a4], n] + 
    2*S2[a1, a1, SP[a2, a3], SP[a4, a5], n] + 
    2*S2[a1, a1, SP[a2, a5], SP[a3, a4], n] + S2[a1, SP[a1, a2], a3, 
     SP[a4, a5], n] + S2[a1, SP[a1, a2], a5, SP[a3, a4], n] + 
    S2[a1, SP[a1, a2], SP[a3, a4], a5, n] + S2[a1, SP[a1, a2], SP[a4, a5], 
     a3, n] + S2[a1, SP[a1, a3], a2, SP[a4, a5], n] + 
    S2[a1, SP[a1, a3], SP[a2, a5], a4, n] + S2[a1, SP[a1, a5], a2, 
     SP[a3, a4], n] + S2[a1, SP[a1, a5], SP[a2, a3], a4, n] + 
    S2[a1, a2, n]*S2[a4, a5, a1, a3, n] - S2[a4, a5, SP[a1, a1], SP[a2, a3], 
     n] - S2[a4, SP[a1, a5], a1, SP[a2, a3], n] - 
    S2[a4, SP[a1, a5], SP[a1, a2], a3, n] + S2[SP[a1, a1], a2, a3, 
     SP[a4, a5], n] + S2[SP[a1, a1], a2, a5, SP[a3, a4], n] + 
    S2[SP[a1, a1], a2, SP[a3, a4], a5, n] + S2[SP[a1, a1], a2, SP[a4, a5], 
     a3, n] + S2[SP[a1, a1], a3, a2, SP[a4, a5], n] + 
    S2[SP[a1, a1], a3, SP[a2, a5], a4, n] + S2[SP[a1, a1], a5, a2, 
     SP[a3, a4], n] + S2[SP[a1, a1], a5, SP[a2, a3], a4, n] + 
    S2[SP[a1, a1], SP[a2, a3], a4, a5, n] + S2[SP[a1, a1], SP[a2, a3], a5, 
     a4, n] + S2[SP[a1, a1], SP[a2, a5], a3, a4, n] + 
    S2[SP[a1, a1], SP[a2, a5], a4, a3, n] - S2[SP[a1, a4], a5, a1, 
     SP[a2, a3], n] - S2[SP[a1, a4], a5, SP[a1, a2], a3, n] - 
    S2[SP[a1, a4], SP[a2, a5], a1, a3, n] + 
    2*S2[a5, n]*S2[a1, a1, a2, a3, a4, n] + 
    2*S2[a5, n]*S2[a1, a1, a2, a4, a3, n] + 
    2*S2[a1, a1, a2, a4, SP[a3, a5], n] - 
    2*S2[a1, a1, a2, a5, SP[a3, a4], n] - 
    2*S2[a1, a1, a2, SP[a3, a4], a5, n] + 
    2*S2[a1, a1, a2, SP[a3, a5], a4, n] + 
    2*S2[a5, n]*S2[a1, a1, a3, a2, a4, n] - 
    2*S2[a1, a1, a5, a2, SP[a3, a4], n] - 
    2*S2[a1, a1, a5, SP[a2, a3], a4, n] - 
    2*S2[a1, a1, SP[a2, a3], a4, a5, n] - 
    2*S2[a1, a1, SP[a2, a3], a5, a4, n] + 
    2*S2[a1, a1, SP[a3, a5], a2, a4, n] + 
    S2[a5, n]*S2[a1, a2, a1, a3, a4, n] + 
    S2[a5, n]*S2[a1, a2, a1, a4, a3, n] + S2[a1, a2, a1, a4, SP[a3, a5], n] - 
    S2[a1, a2, a1, a5, SP[a3, a4], n] - S2[a1, a2, a1, SP[a3, a4], a5, n] + 
    S2[a1, a2, a1, SP[a3, a5], a4, n] + S2[a5, n]*S2[a1, a2, a4, a1, a3, n] + 
    S2[a1, a2, a4, a1, SP[a3, a5], n] + S2[a1, a2, a4, SP[a1, a5], a3, n] - 
    S2[a4, n]*S2[a1, a2, a5, a1, a3, n] - S2[a1, a2, a5, a1, SP[a3, a4], n] - 
    S2[a1, a2, a5, SP[a1, a4], a3, n] - S2[a1, a2, SP[a1, a4], a3, a5, n] - 
    S2[a1, a2, SP[a1, a4], a5, a3, n] + S2[a1, a2, SP[a1, a5], a3, a4, n] + 
    S2[a1, a2, SP[a1, a5], a4, a3, n] + S2[a5, n]*S2[a1, a3, a1, a2, a4, n] + 
    S2[a1, a4, a5, a1, SP[a2, a3], n] + S2[a1, a4, a5, SP[a1, a2], a3, n] + 
    S2[a1, a4, SP[a2, a5], a1, a3, n] - S2[a4, n]*S2[a1, a5, a1, a2, a3, n] - 
    2*S2[a1, a5, a1, a2, SP[a3, a4], n] - 
    S2[a4, n]*S2[a1, a5, a1, a3, a2, n] - S2[a1, a5, a1, a3, SP[a2, a4], n] - 
    S2[a1, a5, a1, SP[a2, a3], a4, n] - S2[a1, a5, a1, SP[a2, a4], a3, n] - 
    S2[a1, a5, a1, SP[a3, a4], a2, n] - S2[a4, n]*S2[a1, a5, a2, a1, a3, n] - 
    S2[a1, a5, a2, a1, SP[a3, a4], n] - S2[a1, a5, a2, SP[a1, a4], a3, n] - 
    S2[a1, a5, SP[a1, a3], a2, a4, n] - S2[a1, a5, SP[a1, a4], a2, a3, n] - 
    S2[a1, a5, SP[a1, a4], a3, a2, n] - S2[a1, a5, SP[a2, a4], a1, a3, n] - 
    S2[a1, SP[a1, a2], a3, a4, a5, n] - S2[a1, SP[a1, a2], a3, a5, a4, n] - 
    S2[a1, SP[a1, a2], a4, a3, a5, n] - S2[a1, SP[a1, a2], a4, a5, a3, n] - 
    S2[a1, SP[a1, a2], a5, a3, a4, n] - S2[a1, SP[a1, a2], a5, a4, a3, n] - 
    S2[a1, SP[a1, a3], a2, a4, a5, n] - S2[a1, SP[a1, a3], a2, a5, a4, n] - 
    S2[a1, SP[a1, a3], a5, a2, a4, n] + S2[a1, SP[a1, a5], a2, a3, a4, n] + 
    S2[a1, SP[a1, a5], a2, a4, a3, n] + S2[a1, SP[a1, a5], a3, a2, a4, n] + 
    S2[a1, SP[a2, a5], a1, a3, a4, n] + S2[a1, SP[a2, a5], a1, a4, a3, n] + 
    S2[a1, SP[a2, a5], a4, a1, a3, n] + S2[a1, SP[a3, a5], a1, a2, a4, n] - 
    S2[a1, SP[a4, a5], a1, a2, a3, n] - S2[a1, SP[a4, a5], a1, a3, a2, n] - 
    S2[a1, SP[a4, a5], a2, a1, a3, n] + S2[a4, a1, a5, a1, SP[a2, a3], n] + 
    S2[a4, a1, a5, SP[a1, a2], a3, n] + S2[a4, a1, SP[a2, a5], a1, a3, n] + 
    2*S2[a4, a5, a1, a1, SP[a2, a3], n] + S2[a4, a5, a1, SP[a1, a2], a3, n] + 
    S2[a4, a5, a1, SP[a1, a3], a2, n] + S2[a4, a5, SP[a1, a1], a2, a3, n] + 
    S2[a4, a5, SP[a1, a1], a3, a2, n] + S2[a4, SP[a1, a5], a1, a2, a3, n] + 
    S2[a4, SP[a1, a5], a1, a3, a2, n] + S2[a4, SP[a1, a5], a2, a1, a3, n] - 
    2*S2[a4, n]*S2[a5, a1, a1, a2, a3, n] - 
    2*S2[a5, a1, a1, a2, SP[a3, a4], n] - 
    2*S2[a4, n]*S2[a5, a1, a1, a3, a2, n] - 
    2*S2[a5, a1, a1, a3, SP[a2, a4], n] - 
    2*S2[a5, a1, a1, SP[a2, a4], a3, n] - 
    2*S2[a5, a1, a1, SP[a3, a4], a2, n] - 
    S2[a4, n]*S2[a5, a1, a2, a1, a3, n] - S2[a5, a1, a2, a1, SP[a3, a4], n] - 
    S2[a5, a1, a2, SP[a1, a4], a3, n] - S2[a4, n]*S2[a5, a1, a3, a1, a2, n] - 
    S2[a5, a1, a3, a1, SP[a2, a4], n] + S2[a1, n]*S2[a5, a1, a3, a4, a2, n] + 
    S2[a5, a1, a3, a4, SP[a1, a2], n] + S2[a1, n]*S2[a5, a1, a4, a2, a3, n] + 
    S2[a5, a1, a4, a2, SP[a1, a3], n] + S2[a1, n]*S2[a5, a1, a4, a3, a2, n] + 
    S2[a5, a1, a4, a3, SP[a1, a2], n] + S2[a5, a1, a4, SP[a1, a2], a3, n] + 
    S2[a5, a1, a4, SP[a1, a3], a2, n] + S2[a5, a1, SP[a1, a3], a4, a2, n] - 
    S2[a5, a1, SP[a1, a4], a2, a3, n] - S2[a5, a1, SP[a1, a4], a3, a2, n] - 
    S2[a5, a1, SP[a2, a4], a1, a3, n] - S2[a5, a1, SP[a3, a4], a1, a2, n] + 
    S2[a1, n]*S2[a5, a4, a1, a2, a3, n] + S2[a5, a4, a1, a2, SP[a1, a3], n] + 
    S2[a1, n]*S2[a5, a4, a1, a3, a2, n] + S2[a5, a4, a1, a3, SP[a1, a2], n] + 
    S2[a5, a4, a1, SP[a1, a2], a3, n] + S2[a5, a4, a1, SP[a1, a3], a2, n] + 
    S2[a1, n]*S2[a5, a4, a2, a1, a3, n] + S2[a5, a4, a2, a1, SP[a1, a3], n] + 
    S2[a5, a4, a2, SP[a1, a1], a3, n] + S2[a5, a4, SP[a1, a1], a2, a3, n] + 
    S2[a5, a4, SP[a1, a1], a3, a2, n] + S2[a5, a4, SP[a1, a2], a1, a3, n] + 
    S2[a5, SP[a1, a1], a3, a4, a2, n] + S2[a5, SP[a1, a1], a4, a2, a3, n] + 
    S2[a5, SP[a1, a1], a4, a3, a2, n] - S2[a5, SP[a1, a4], a1, a2, a3, n] - 
    S2[a5, SP[a1, a4], a1, a3, a2, n] - S2[a5, SP[a1, a4], a3, a1, a2, n] - 
    S2[SP[a1, a1], a2, a3, a4, a5, n] - S2[SP[a1, a1], a2, a3, a5, a4, n] - 
    S2[SP[a1, a1], a2, a4, a3, a5, n] - S2[SP[a1, a1], a2, a4, a5, a3, n] - 
    S2[SP[a1, a1], a2, a5, a3, a4, n] - S2[SP[a1, a1], a2, a5, a4, a3, n] - 
    S2[SP[a1, a1], a3, a2, a4, a5, n] - S2[SP[a1, a1], a3, a2, a5, a4, n] - 
    S2[SP[a1, a1], a3, a5, a2, a4, n] - S2[SP[a1, a1], a5, a2, a3, a4, n] - 
    S2[SP[a1, a1], a5, a2, a4, a3, n] - S2[SP[a1, a1], a5, a3, a2, a4, n] + 
    2*S2[SP[a1, a5], a1, a2, a3, a4, n] + 
    2*S2[SP[a1, a5], a1, a2, a4, a3, n] + 
    2*S2[SP[a1, a5], a1, a3, a2, a4, n] + S2[SP[a1, a5], a1, a3, a4, a2, n] + 
    S2[SP[a1, a5], a1, a4, a2, a3, n] + S2[SP[a1, a5], a1, a4, a3, a2, n] + 
    S2[SP[a1, a5], a2, a1, a3, a4, n] + S2[SP[a1, a5], a2, a1, a4, a3, n] + 
    S2[SP[a1, a5], a2, a4, a1, a3, n] + S2[SP[a1, a5], a3, a1, a2, a4, n] + 
    S2[SP[a1, a5], a4, a1, a2, a3, n] + S2[SP[a1, a5], a4, a1, a3, a2, n] + 
    S2[SP[a1, a5], a4, a2, a1, a3, n] - 2*S2[SP[a4, a5], a1, a1, a2, a3, n] - 
    2*S2[SP[a4, a5], a1, a1, a3, a2, n] - S2[SP[a4, a5], a1, a2, a1, a3, n] - 
    S2[SP[a4, a5], a1, a3, a1, a2, n] - S2[a5, a1, a3, a4, a2, a1, n] - 
    S2[a5, a1, a4, a2, a1, a3, n] - S2[a5, a1, a4, a2, a3, a1, n] - 
    S2[a5, a1, a4, a3, a2, a1, n] - S2[a5, a4, a1, a2, a1, a3, n] - 
    S2[a5, a4, a1, a2, a3, a1, n] - S2[a5, a4, a1, a3, a2, a1, n] - 
    2*S2[a5, a4, a2, a1, a1, a3, n] - S2[a5, a4, a2, a1, a3, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a1_, a2_, a4_, a5_, a3_, a1_, n_] :> 
  S2[a1, a2, a4, n]*S2[a1, a3, a5, n] + S2[SP[a1, a1], SP[a2, a3], 
     SP[a4, a5], n] - 2*S2[a1, a1, SP[a2, a3], SP[a4, a5], n] + 
    S2[a1, a2, n]*S2[a1, a5, a3, a4, n] + S2[a1, a2, n]*
     S2[a1, a5, a4, a3, n] - S2[a1, a5, SP[a1, a3], SP[a2, a4], n] - 
    S2[a1, a5, SP[a1, a4], SP[a2, a3], n] - S2[a1, SP[a1, a2], a3, 
     SP[a4, a5], n] - S2[a1, SP[a1, a2], SP[a3, a4], a5, n] - 
    S2[a1, SP[a1, a3], a2, SP[a4, a5], n] - S2[a1, SP[a1, a3], SP[a2, a5], 
     a4, n] - S2[a1, SP[a1, a5], a3, SP[a2, a4], n] - 
    S2[a1, SP[a1, a5], a4, SP[a2, a3], n] - S2[a1, SP[a1, a5], SP[a2, a3], 
     a4, n] - S2[a1, SP[a1, a5], SP[a2, a4], a3, n] - 
    S2[a1, a2, n]*S2[a4, a5, a1, a3, n] + S2[a4, a5, SP[a1, a1], SP[a2, a3], 
     n] + S2[a4, SP[a1, a5], a1, SP[a2, a3], n] + 
    S2[a4, SP[a1, a5], SP[a1, a2], a3, n] - S2[SP[a1, a1], a2, a3, 
     SP[a4, a5], n] - S2[SP[a1, a1], a2, SP[a3, a4], a5, n] - 
    S2[SP[a1, a1], a3, a2, SP[a4, a5], n] - S2[SP[a1, a1], a3, SP[a2, a5], 
     a4, n] - S2[SP[a1, a1], a5, a3, SP[a2, a4], n] - 
    S2[SP[a1, a1], a5, a4, SP[a2, a3], n] - S2[SP[a1, a1], a5, SP[a2, a3], 
     a4, n] - S2[SP[a1, a1], a5, SP[a2, a4], a3, n] - 
    S2[SP[a1, a1], SP[a2, a3], a4, a5, n] - S2[SP[a1, a1], SP[a2, a3], a5, 
     a4, n] - S2[SP[a1, a1], SP[a2, a5], a3, a4, n] - 
    S2[SP[a1, a1], SP[a2, a5], a4, a3, n] + S2[SP[a1, a4], a5, a1, 
     SP[a2, a3], n] + S2[SP[a1, a4], a5, SP[a1, a2], a3, n] + 
    S2[SP[a1, a4], SP[a2, a5], a1, a3, n] - 
    2*S2[a5, n]*S2[a1, a1, a2, a3, a4, n] - 
    2*S2[a5, n]*S2[a1, a1, a2, a4, a3, n] - 
    2*S2[a1, a1, a2, a4, SP[a3, a5], n] + 
    2*S2[a1, a1, a2, SP[a3, a4], a5, n] - 
    2*S2[a1, a1, a2, SP[a3, a5], a4, n] - 
    2*S2[a1, a1, a2, SP[a4, a5], a3, n] - 
    2*S2[a5, n]*S2[a1, a1, a3, a2, a4, n] + 
    2*S2[a1, a1, a5, a3, SP[a2, a4], n] + 
    2*S2[a1, a1, a5, a4, SP[a2, a3], n] + 
    2*S2[a1, a1, a5, SP[a2, a3], a4, n] + 
    2*S2[a1, a1, a5, SP[a2, a4], a3, n] + 
    2*S2[a1, a1, SP[a2, a3], a4, a5, n] + 
    2*S2[a1, a1, SP[a2, a3], a5, a4, n] - 
    2*S2[a1, a1, SP[a3, a5], a2, a4, n] - 
    S2[a5, n]*S2[a1, a2, a1, a3, a4, n] - 
    S2[a5, n]*S2[a1, a2, a1, a4, a3, n] - S2[a1, a2, a1, a4, SP[a3, a5], n] + 
    S2[a1, a2, a1, SP[a3, a4], a5, n] - S2[a1, a2, a1, SP[a3, a5], a4, n] - 
    S2[a1, a2, a1, SP[a4, a5], a3, n] - S2[a5, n]*S2[a1, a2, a4, a1, a3, n] - 
    S2[a1, a2, a4, a1, SP[a3, a5], n] + S2[a1, n]*S2[a1, a2, a4, a5, a3, n] + 
    S2[a1, a2, a4, a5, SP[a1, a3], n] + S2[a4, n]*S2[a1, a2, a5, a1, a3, n] + 
    S2[a1, a2, a5, a1, SP[a3, a4], n] + S2[a1, a2, a5, SP[a1, a4], a3, n] + 
    S2[a1, a2, SP[a1, a4], a3, a5, n] + S2[a1, a2, SP[a1, a4], a5, a3, n] - 
    S2[a1, a2, SP[a1, a5], a3, a4, n] - S2[a1, a2, SP[a1, a5], a4, a3, n] - 
    S2[a5, n]*S2[a1, a3, a1, a2, a4, n] - S2[a1, a4, a5, a1, SP[a2, a3], n] - 
    S2[a1, a4, a5, SP[a1, a2], a3, n] - S2[a1, a4, SP[a2, a5], a1, a3, n] + 
    S2[a4, n]*S2[a1, a5, a1, a2, a3, n] + S2[a1, a5, a1, a2, SP[a3, a4], n] + 
    S2[a4, n]*S2[a1, a5, a1, a3, a2, n] + 
    2*S2[a1, a5, a1, a3, SP[a2, a4], n] + S2[a1, a5, a1, a4, SP[a2, a3], n] + 
    S2[a1, a5, a1, SP[a2, a3], a4, n] + 2*S2[a1, a5, a1, SP[a2, a4], a3, n] + 
    S2[a1, a5, a1, SP[a3, a4], a2, n] + S2[a4, n]*S2[a1, a5, a2, a1, a3, n] + 
    S2[a1, a5, a2, a1, SP[a3, a4], n] + S2[a1, a5, a2, SP[a1, a4], a3, n] + 
    S2[a1, a5, a3, a1, SP[a2, a4], n] - S2[a1, n]*S2[a1, a5, a3, a4, a2, n] - 
    S2[a1, a5, a3, a4, SP[a1, a2], n] + S2[a1, a5, a4, a1, SP[a2, a3], n] - 
    S2[a1, n]*S2[a1, a5, a4, a2, a3, n] - S2[a1, a5, a4, a2, SP[a1, a3], n] - 
    S2[a1, n]*S2[a1, a5, a4, a3, a2, n] - S2[a1, a5, a4, a3, SP[a1, a2], n] - 
    S2[a1, a5, a4, SP[a1, a2], a3, n] + S2[a1, a5, SP[a1, a3], a2, a4, n] + 
    S2[a1, a5, SP[a1, a4], a2, a3, n] + S2[a1, a5, SP[a1, a4], a3, a2, n] + 
    S2[a1, a5, SP[a2, a4], a1, a3, n] + S2[a1, SP[a1, a2], a3, a4, a5, n] + 
    S2[a1, SP[a1, a2], a3, a5, a4, n] + S2[a1, SP[a1, a2], a4, a3, a5, n] + 
    S2[a1, SP[a1, a2], a4, a5, a3, n] + S2[a1, SP[a1, a2], a5, a3, a4, n] + 
    S2[a1, SP[a1, a2], a5, a4, a3, n] + S2[a1, SP[a1, a3], a2, a4, a5, n] + 
    S2[a1, SP[a1, a3], a2, a5, a4, n] + S2[a1, SP[a1, a3], a5, a2, a4, n] - 
    S2[a1, SP[a1, a5], a2, a3, a4, n] - S2[a1, SP[a1, a5], a2, a4, a3, n] - 
    S2[a1, SP[a1, a5], a3, a2, a4, n] - S2[a1, SP[a2, a5], a1, a3, a4, n] - 
    S2[a1, SP[a2, a5], a1, a4, a3, n] - S2[a1, SP[a2, a5], a4, a1, a3, n] - 
    S2[a1, SP[a3, a5], a1, a2, a4, n] + S2[a1, SP[a4, a5], a1, a2, a3, n] + 
    S2[a1, SP[a4, a5], a1, a3, a2, n] + S2[a1, SP[a4, a5], a2, a1, a3, n] - 
    S2[a4, a1, a5, a1, SP[a2, a3], n] - S2[a4, a1, a5, SP[a1, a2], a3, n] - 
    S2[a4, a1, SP[a2, a5], a1, a3, n] - 2*S2[a4, a5, a1, a1, SP[a2, a3], n] - 
    S2[a4, a5, a1, SP[a1, a2], a3, n] - S2[a4, a5, a1, SP[a1, a3], a2, n] - 
    S2[a4, a5, SP[a1, a1], a2, a3, n] - S2[a4, a5, SP[a1, a1], a3, a2, n] - 
    S2[a4, SP[a1, a5], a1, a2, a3, n] - S2[a4, SP[a1, a5], a1, a3, a2, n] - 
    S2[a4, SP[a1, a5], a2, a1, a3, n] + 2*S2[a4, n]*
     S2[a5, a1, a1, a2, a3, n] + 2*S2[a5, a1, a1, a2, SP[a3, a4], n] + 
    2*S2[a4, n]*S2[a5, a1, a1, a3, a2, n] + 
    2*S2[a5, a1, a1, a3, SP[a2, a4], n] + 
    2*S2[a5, a1, a1, SP[a2, a4], a3, n] + 
    2*S2[a5, a1, a1, SP[a3, a4], a2, n] + 
    S2[a4, n]*S2[a5, a1, a2, a1, a3, n] + S2[a5, a1, a2, a1, SP[a3, a4], n] + 
    S2[a5, a1, a2, SP[a1, a4], a3, n] + S2[a4, n]*S2[a5, a1, a3, a1, a2, n] + 
    S2[a5, a1, a3, a1, SP[a2, a4], n] - S2[a1, n]*S2[a5, a1, a3, a4, a2, n] - 
    S2[a5, a1, a3, a4, SP[a1, a2], n] - S2[a1, n]*S2[a5, a1, a4, a2, a3, n] - 
    S2[a5, a1, a4, a2, SP[a1, a3], n] - S2[a1, n]*S2[a5, a1, a4, a3, a2, n] - 
    S2[a5, a1, a4, a3, SP[a1, a2], n] - S2[a5, a1, a4, SP[a1, a2], a3, n] - 
    S2[a5, a1, a4, SP[a1, a3], a2, n] - S2[a5, a1, SP[a1, a3], a4, a2, n] + 
    S2[a5, a1, SP[a1, a4], a2, a3, n] + S2[a5, a1, SP[a1, a4], a3, a2, n] + 
    S2[a5, a1, SP[a2, a4], a1, a3, n] + S2[a5, a1, SP[a3, a4], a1, a2, n] + 
    S2[a1, n]*S2[a5, a3, a4, a2, a1, n] + S2[a5, a3, a4, a2, SP[a1, a1], n] + 
    S2[a5, a3, a4, SP[a1, a2], a1, n] + S2[a5, a3, SP[a1, a4], a2, a1, n] - 
    S2[a1, n]*S2[a5, a4, a1, a2, a3, n] - S2[a5, a4, a1, a2, SP[a1, a3], n] - 
    S2[a1, n]*S2[a5, a4, a1, a3, a2, n] - S2[a5, a4, a1, a3, SP[a1, a2], n] - 
    S2[a5, a4, a1, SP[a1, a2], a3, n] - S2[a5, a4, a1, SP[a1, a3], a2, n] + 
    S2[a1, n]*S2[a5, a4, a2, a3, a1, n] + S2[a5, a4, a2, a3, SP[a1, a1], n] + 
    S2[a5, a4, a2, SP[a1, a3], a1, n] + S2[a1, n]*S2[a5, a4, a3, a2, a1, n] + 
    S2[a5, a4, a3, a2, SP[a1, a1], n] + S2[a5, a4, a3, SP[a1, a2], a1, n] - 
    S2[a5, a4, SP[a1, a1], a2, a3, n] - S2[a5, a4, SP[a1, a1], a3, a2, n] + 
    S2[a5, a4, SP[a1, a2], a3, a1, n] + S2[a5, a4, SP[a1, a3], a2, a1, n] - 
    S2[a5, SP[a1, a1], a3, a4, a2, n] - S2[a5, SP[a1, a1], a4, a2, a3, n] - 
    S2[a5, SP[a1, a1], a4, a3, a2, n] + S2[a5, SP[a1, a3], a4, a2, a1, n] + 
    S2[a5, SP[a1, a4], a1, a2, a3, n] + S2[a5, SP[a1, a4], a1, a3, a2, n] + 
    S2[a5, SP[a1, a4], a2, a1, a3, n] + S2[a5, SP[a1, a4], a2, a3, a1, n] + 
    S2[a5, SP[a1, a4], a3, a1, a2, n] + S2[a5, SP[a1, a4], a3, a2, a1, n] + 
    S2[SP[a1, a1], a2, a3, a4, a5, n] + S2[SP[a1, a1], a2, a3, a5, a4, n] + 
    S2[SP[a1, a1], a2, a4, a3, a5, n] + S2[SP[a1, a1], a2, a4, a5, a3, n] + 
    S2[SP[a1, a1], a2, a5, a3, a4, n] + S2[SP[a1, a1], a2, a5, a4, a3, n] + 
    S2[SP[a1, a1], a3, a2, a4, a5, n] + S2[SP[a1, a1], a3, a2, a5, a4, n] + 
    S2[SP[a1, a1], a3, a5, a2, a4, n] + S2[SP[a1, a1], a5, a2, a3, a4, n] + 
    S2[SP[a1, a1], a5, a2, a4, a3, n] + S2[SP[a1, a1], a5, a3, a2, a4, n] - 
    2*S2[SP[a1, a5], a1, a2, a3, a4, n] - 
    2*S2[SP[a1, a5], a1, a2, a4, a3, n] - 
    2*S2[SP[a1, a5], a1, a3, a2, a4, n] - S2[SP[a1, a5], a1, a3, a4, a2, n] - 
    S2[SP[a1, a5], a1, a4, a2, a3, n] - S2[SP[a1, a5], a1, a4, a3, a2, n] - 
    S2[SP[a1, a5], a2, a1, a3, a4, n] - S2[SP[a1, a5], a2, a1, a4, a3, n] - 
    S2[SP[a1, a5], a2, a4, a1, a3, n] - S2[SP[a1, a5], a3, a1, a2, a4, n] + 
    S2[SP[a1, a5], a3, a4, a2, a1, n] - S2[SP[a1, a5], a4, a1, a2, a3, n] - 
    S2[SP[a1, a5], a4, a1, a3, a2, n] + S2[SP[a1, a5], a4, a2, a3, a1, n] + 
    S2[SP[a1, a5], a4, a3, a2, a1, n] + 2*S2[SP[a4, a5], a1, a1, a2, a3, n] + 
    2*S2[SP[a4, a5], a1, a1, a3, a2, n] + S2[SP[a4, a5], a1, a2, a1, a3, n] + 
    S2[SP[a4, a5], a1, a3, a1, a2, n] - S2[a5, a3, a1, a4, a2, a1, n] - 
    S2[a5, a3, a4, a1, a2, a1, n] - 2*S2[a5, a3, a4, a2, a1, a1, n] - 
    S2[a5, a4, a2, a1, a3, a1, n] - 2*S2[a5, a4, a2, a3, a1, a1, n] - 
    S2[a5, a4, a3, a1, a2, a1, n] - 2*S2[a5, a4, a3, a2, a1, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a1_, a2_, a5_, a1_, a3_, a4_, n_] :> 
  -(S2[a1, a2, n]*S2[a1, a3, a4, a5, n]) - S2[a1, a2, n]*
     S2[a1, a3, a5, a4, n] + S2[a1, a3, SP[a1, a4], SP[a2, a5], n] + 
    S2[a1, a3, SP[a1, a5], SP[a2, a4], n] - S2[a1, a2, n]*
     S2[a1, a5, a3, a4, n] + S2[a1, a5, SP[a1, a3], SP[a2, a4], n] + 
    S2[a1, SP[a1, a3], a4, SP[a2, a5], n] + S2[a1, SP[a1, a3], a5, 
     SP[a2, a4], n] + S2[a1, SP[a1, a3], SP[a2, a4], a5, n] + 
    S2[a1, SP[a1, a3], SP[a2, a5], a4, n] + S2[a1, SP[a1, a5], a3, 
     SP[a2, a4], n] + S2[a1, SP[a1, a5], SP[a2, a3], a4, n] + 
    S2[SP[a1, a1], a3, a4, SP[a2, a5], n] + S2[SP[a1, a1], a3, a5, 
     SP[a2, a4], n] + S2[SP[a1, a1], a3, SP[a2, a4], a5, n] + 
    S2[SP[a1, a1], a3, SP[a2, a5], a4, n] + S2[SP[a1, a1], a5, a3, 
     SP[a2, a4], n] + S2[SP[a1, a1], a5, SP[a2, a3], a4, n] + 
    S2[SP[a1, a1], SP[a2, a3], a4, a5, n] + S2[SP[a1, a1], SP[a2, a3], a5, 
     a4, n] + S2[SP[a1, a1], SP[a2, a5], a3, a4, n] + 
    2*S2[a5, n]*S2[a1, a1, a2, a3, a4, n] + 
    2*S2[a1, a1, a2, a3, SP[a4, a5], n] + 
    2*S2[a1, a1, a2, SP[a3, a5], a4, n] + 
    2*S2[a5, n]*S2[a1, a1, a3, a2, a4, n] + 
    2*S2[a1, a1, a3, a2, SP[a4, a5], n] + 
    2*S2[a5, n]*S2[a1, a1, a3, a4, a2, n] - 
    2*S2[a1, a1, a3, a5, SP[a2, a4], n] - 
    2*S2[a1, a1, a3, SP[a2, a4], a5, n] + 
    2*S2[a1, a1, a3, SP[a4, a5], a2, n] - 
    2*S2[a1, a1, a5, a3, SP[a2, a4], n] - 
    2*S2[a1, a1, a5, SP[a2, a3], a4, n] - 
    2*S2[a1, a1, SP[a2, a3], a4, a5, n] - 
    2*S2[a1, a1, SP[a2, a3], a5, a4, n] + 
    2*S2[a1, a1, SP[a3, a5], a2, a4, n] + 
    2*S2[a1, a1, SP[a3, a5], a4, a2, n] + 
    S2[a5, n]*S2[a1, a2, a1, a3, a4, n] + S2[a1, a2, a1, a3, SP[a4, a5], n] + 
    S2[a1, a2, a1, SP[a3, a5], a4, n] + S2[a1, a2, SP[a1, a5], a3, a4, n] + 
    S2[a5, n]*S2[a1, a3, a1, a2, a4, n] + S2[a1, a3, a1, a2, SP[a4, a5], n] + 
    S2[a5, n]*S2[a1, a3, a1, a4, a2, n] - S2[a1, a3, a1, a5, SP[a2, a4], n] - 
    S2[a1, a3, a1, SP[a2, a4], a5, n] + S2[a1, a3, a1, SP[a4, a5], a2, n] + 
    S2[a5, n]*S2[a1, a3, a4, a1, a2, n] - S2[a1, a3, a5, a1, SP[a2, a4], n] - 
    S2[a1, a3, a5, SP[a1, a4], a2, n] - S2[a1, a3, SP[a1, a4], a2, a5, n] - 
    S2[a1, a3, SP[a1, a4], a5, a2, n] + S2[a1, a3, SP[a4, a5], a1, a2, n] - 
    S2[a1, a5, a1, a3, SP[a2, a4], n] - S2[a1, a5, a1, SP[a2, a3], a4, n] - 
    S2[a1, a5, a3, a1, SP[a2, a4], n] - S2[a1, a5, a3, SP[a1, a4], a2, n] - 
    S2[a1, a5, SP[a1, a3], a2, a4, n] - S2[a1, a5, SP[a1, a3], a4, a2, n] - 
    S2[a1, SP[a1, a2], a3, a4, a5, n] - S2[a1, SP[a1, a2], a3, a5, a4, n] - 
    S2[a1, SP[a1, a2], a5, a3, a4, n] - S2[a1, SP[a1, a3], a2, a4, a5, n] - 
    S2[a1, SP[a1, a3], a2, a5, a4, n] - S2[a1, SP[a1, a3], a4, a2, a5, n] - 
    S2[a1, SP[a1, a3], a4, a5, a2, n] - S2[a1, SP[a1, a3], a5, a2, a4, n] - 
    S2[a1, SP[a1, a3], a5, a4, a2, n] + S2[a1, SP[a1, a5], a2, a3, a4, n] + 
    S2[a1, SP[a1, a5], a3, a2, a4, n] + S2[a1, SP[a1, a5], a3, a4, a2, n] + 
    S2[a1, SP[a2, a5], a1, a3, a4, n] + S2[a1, SP[a3, a5], a1, a2, a4, n] + 
    S2[a1, SP[a3, a5], a1, a4, a2, n] + S2[a1, SP[a3, a5], a4, a1, a2, n] - 
    S2[a1, n]*S2[a5, a1, a2, a3, a4, n] - S2[a5, a1, a2, a3, SP[a1, a4], n] - 
    S2[a5, a1, a2, SP[a1, a3], a4, n] - S2[a1, n]*S2[a5, a1, a3, a2, a4, n] - 
    S2[a5, a1, a3, a2, SP[a1, a4], n] - S2[a1, n]*S2[a5, a1, a3, a4, a2, n] - 
    S2[a5, a1, a3, a4, SP[a1, a2], n] - S2[a5, a1, a3, SP[a1, a2], a4, n] - 
    S2[a5, a1, a3, SP[a1, a4], a2, n] - S2[a5, a1, SP[a1, a2], a3, a4, n] - 
    S2[a5, a1, SP[a1, a3], a2, a4, n] - S2[a5, a1, SP[a1, a3], a4, a2, n] - 
    S2[a1, n]*S2[a5, a2, a1, a3, a4, n] - S2[a5, a2, a1, a3, SP[a1, a4], n] - 
    S2[a5, a2, a1, SP[a1, a3], a4, n] - S2[a5, a2, SP[a1, a1], a3, a4, n] - 
    S2[a5, SP[a1, a1], a2, a3, a4, n] - S2[a5, SP[a1, a1], a3, a2, a4, n] - 
    S2[a5, SP[a1, a1], a3, a4, a2, n] - S2[a5, SP[a1, a2], a1, a3, a4, n] - 
    S2[SP[a1, a1], a2, a3, a4, a5, n] - S2[SP[a1, a1], a2, a3, a5, a4, n] - 
    S2[SP[a1, a1], a2, a5, a3, a4, n] - S2[SP[a1, a1], a3, a2, a4, a5, n] - 
    S2[SP[a1, a1], a3, a2, a5, a4, n] - S2[SP[a1, a1], a3, a4, a2, a5, n] - 
    S2[SP[a1, a1], a3, a4, a5, a2, n] - S2[SP[a1, a1], a3, a5, a2, a4, n] - 
    S2[SP[a1, a1], a3, a5, a4, a2, n] - S2[SP[a1, a1], a5, a2, a3, a4, n] - 
    S2[SP[a1, a1], a5, a3, a2, a4, n] - S2[SP[a1, a1], a5, a3, a4, a2, n] + 
    S2[SP[a1, a5], a1, a2, a3, a4, n] + S2[SP[a1, a5], a1, a3, a2, a4, n] + 
    S2[SP[a1, a5], a1, a3, a4, a2, n] + S2[SP[a1, a5], a3, a1, a2, a4, n] + 
    S2[SP[a1, a5], a3, a1, a4, a2, n] + S2[SP[a1, a5], a3, a4, a1, a2, n] + 
    S2[a5, a1, a2, a1, a3, a4, n] + S2[a5, a1, a2, a3, a1, a4, n] + 
    S2[a5, a1, a2, a3, a4, a1, n] + S2[a5, a1, a3, a2, a1, a4, n] + 
    S2[a5, a1, a3, a2, a4, a1, n] + S2[a5, a1, a3, a4, a2, a1, n] + 
    2*S2[a5, a2, a1, a1, a3, a4, n] + S2[a5, a2, a1, a3, a1, a4, n] + 
    S2[a5, a2, a1, a3, a4, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a1_, a2_, a5_, a1_, a4_, a3_, n_] :> 
  -(S2[a1, a2, n]*S2[a1, a4, a3, a5, n]) - S2[a1, a2, n]*
     S2[a1, a4, a5, a3, n] + S2[a1, a4, SP[a1, a3], SP[a2, a5], n] + 
    S2[a1, a4, SP[a1, a5], SP[a2, a3], n] - S2[a1, a2, n]*
     S2[a1, a5, a4, a3, n] + S2[a1, a5, SP[a1, a4], SP[a2, a3], n] + 
    S2[a1, SP[a1, a4], a3, SP[a2, a5], n] + S2[a1, SP[a1, a4], a5, 
     SP[a2, a3], n] + S2[a1, SP[a1, a4], SP[a2, a3], a5, n] + 
    S2[a1, SP[a1, a4], SP[a2, a5], a3, n] + S2[a1, SP[a1, a5], a4, 
     SP[a2, a3], n] + S2[a1, SP[a1, a5], SP[a2, a4], a3, n] + 
    S2[SP[a1, a1], a4, a3, SP[a2, a5], n] + S2[SP[a1, a1], a4, a5, 
     SP[a2, a3], n] + S2[SP[a1, a1], a4, SP[a2, a3], a5, n] + 
    S2[SP[a1, a1], a4, SP[a2, a5], a3, n] + S2[SP[a1, a1], a5, a4, 
     SP[a2, a3], n] + S2[SP[a1, a1], a5, SP[a2, a4], a3, n] + 
    S2[SP[a1, a1], SP[a2, a4], a3, a5, n] + S2[SP[a1, a1], SP[a2, a4], a5, 
     a3, n] + S2[SP[a1, a1], SP[a2, a5], a4, a3, n] + 
    2*S2[a5, n]*S2[a1, a1, a2, a4, a3, n] + 
    2*S2[a1, a1, a2, a4, SP[a3, a5], n] + 
    2*S2[a1, a1, a2, SP[a4, a5], a3, n] + 
    2*S2[a5, n]*S2[a1, a1, a4, a2, a3, n] + 
    2*S2[a1, a1, a4, a2, SP[a3, a5], n] + 
    2*S2[a5, n]*S2[a1, a1, a4, a3, a2, n] - 
    2*S2[a1, a1, a4, a5, SP[a2, a3], n] - 
    2*S2[a1, a1, a4, SP[a2, a3], a5, n] + 
    2*S2[a1, a1, a4, SP[a3, a5], a2, n] - 
    2*S2[a1, a1, a5, a4, SP[a2, a3], n] - 
    2*S2[a1, a1, a5, SP[a2, a4], a3, n] - 
    2*S2[a1, a1, SP[a2, a4], a3, a5, n] - 
    2*S2[a1, a1, SP[a2, a4], a5, a3, n] + 
    2*S2[a1, a1, SP[a4, a5], a2, a3, n] + 
    2*S2[a1, a1, SP[a4, a5], a3, a2, n] + 
    S2[a5, n]*S2[a1, a2, a1, a4, a3, n] + S2[a1, a2, a1, a4, SP[a3, a5], n] + 
    S2[a1, a2, a1, SP[a4, a5], a3, n] + S2[a1, a2, SP[a1, a5], a4, a3, n] + 
    S2[a5, n]*S2[a1, a4, a1, a2, a3, n] + S2[a1, a4, a1, a2, SP[a3, a5], n] + 
    S2[a5, n]*S2[a1, a4, a1, a3, a2, n] - S2[a1, a4, a1, a5, SP[a2, a3], n] - 
    S2[a1, a4, a1, SP[a2, a3], a5, n] + S2[a1, a4, a1, SP[a3, a5], a2, n] + 
    S2[a5, n]*S2[a1, a4, a3, a1, a2, n] - S2[a1, a4, a5, a1, SP[a2, a3], n] - 
    S2[a1, a4, a5, SP[a1, a3], a2, n] - S2[a1, a4, SP[a1, a3], a2, a5, n] - 
    S2[a1, a4, SP[a1, a3], a5, a2, n] + S2[a1, a4, SP[a3, a5], a1, a2, n] - 
    S2[a1, a5, a1, a4, SP[a2, a3], n] - S2[a1, a5, a1, SP[a2, a4], a3, n] - 
    S2[a1, a5, a4, a1, SP[a2, a3], n] - S2[a1, a5, a4, SP[a1, a3], a2, n] - 
    S2[a1, a5, SP[a1, a4], a2, a3, n] - S2[a1, a5, SP[a1, a4], a3, a2, n] - 
    S2[a1, SP[a1, a2], a4, a3, a5, n] - S2[a1, SP[a1, a2], a4, a5, a3, n] - 
    S2[a1, SP[a1, a2], a5, a4, a3, n] - S2[a1, SP[a1, a4], a2, a3, a5, n] - 
    S2[a1, SP[a1, a4], a2, a5, a3, n] - S2[a1, SP[a1, a4], a3, a2, a5, n] - 
    S2[a1, SP[a1, a4], a3, a5, a2, n] - S2[a1, SP[a1, a4], a5, a2, a3, n] - 
    S2[a1, SP[a1, a4], a5, a3, a2, n] + S2[a1, SP[a1, a5], a2, a4, a3, n] + 
    S2[a1, SP[a1, a5], a4, a2, a3, n] + S2[a1, SP[a1, a5], a4, a3, a2, n] + 
    S2[a1, SP[a2, a5], a1, a4, a3, n] + S2[a1, SP[a4, a5], a1, a2, a3, n] + 
    S2[a1, SP[a4, a5], a1, a3, a2, n] + S2[a1, SP[a4, a5], a3, a1, a2, n] - 
    S2[a1, n]*S2[a5, a1, a2, a4, a3, n] - S2[a5, a1, a2, a4, SP[a1, a3], n] - 
    S2[a5, a1, a2, SP[a1, a4], a3, n] - S2[a1, n]*S2[a5, a1, a4, a2, a3, n] - 
    S2[a5, a1, a4, a2, SP[a1, a3], n] - S2[a1, n]*S2[a5, a1, a4, a3, a2, n] - 
    S2[a5, a1, a4, a3, SP[a1, a2], n] - S2[a5, a1, a4, SP[a1, a2], a3, n] - 
    S2[a5, a1, a4, SP[a1, a3], a2, n] - S2[a5, a1, SP[a1, a2], a4, a3, n] - 
    S2[a5, a1, SP[a1, a4], a2, a3, n] - S2[a5, a1, SP[a1, a4], a3, a2, n] - 
    S2[a1, n]*S2[a5, a2, a1, a4, a3, n] - S2[a5, a2, a1, a4, SP[a1, a3], n] - 
    S2[a5, a2, a1, SP[a1, a4], a3, n] - S2[a5, a2, SP[a1, a1], a4, a3, n] - 
    S2[a5, SP[a1, a1], a2, a4, a3, n] - S2[a5, SP[a1, a1], a4, a2, a3, n] - 
    S2[a5, SP[a1, a1], a4, a3, a2, n] - S2[a5, SP[a1, a2], a1, a4, a3, n] - 
    S2[SP[a1, a1], a2, a4, a3, a5, n] - S2[SP[a1, a1], a2, a4, a5, a3, n] - 
    S2[SP[a1, a1], a2, a5, a4, a3, n] - S2[SP[a1, a1], a4, a2, a3, a5, n] - 
    S2[SP[a1, a1], a4, a2, a5, a3, n] - S2[SP[a1, a1], a4, a3, a2, a5, n] - 
    S2[SP[a1, a1], a4, a3, a5, a2, n] - S2[SP[a1, a1], a4, a5, a2, a3, n] - 
    S2[SP[a1, a1], a4, a5, a3, a2, n] - S2[SP[a1, a1], a5, a2, a4, a3, n] - 
    S2[SP[a1, a1], a5, a4, a2, a3, n] - S2[SP[a1, a1], a5, a4, a3, a2, n] + 
    S2[SP[a1, a5], a1, a2, a4, a3, n] + S2[SP[a1, a5], a1, a4, a2, a3, n] + 
    S2[SP[a1, a5], a1, a4, a3, a2, n] + S2[SP[a1, a5], a4, a1, a2, a3, n] + 
    S2[SP[a1, a5], a4, a1, a3, a2, n] + S2[SP[a1, a5], a4, a3, a1, a2, n] + 
    S2[a5, a1, a2, a1, a4, a3, n] + S2[a5, a1, a2, a4, a1, a3, n] + 
    S2[a5, a1, a2, a4, a3, a1, n] + S2[a5, a1, a4, a2, a1, a3, n] + 
    S2[a5, a1, a4, a2, a3, a1, n] + S2[a5, a1, a4, a3, a2, a1, n] + 
    2*S2[a5, a2, a1, a1, a4, a3, n] + S2[a5, a2, a1, a4, a1, a3, n] + 
    S2[a5, a2, a1, a4, a3, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a1_, a2_, a5_, a3_, a1_, a4_, n_] :> 
  S2[a1, a2, n]*S2[a1, a3, a4, a5, n] + S2[a1, a2, n]*S2[a1, a3, a5, a4, n] - 
    S2[a1, a3, SP[a1, a4], SP[a2, a5], n] - S2[a1, a3, SP[a1, a5], 
     SP[a2, a4], n] + S2[a1, a2, n]*S2[a1, a4, a3, a5, n] + 
    S2[a1, a2, n]*S2[a1, a4, a5, a3, n] - S2[a1, a4, SP[a1, a3], SP[a2, a5], 
     n] - S2[a1, a4, SP[a1, a5], SP[a2, a3], n] + 
    S2[a1, a2, n]*S2[a1, a5, a3, a4, n] + S2[a1, a2, n]*
     S2[a1, a5, a4, a3, n] - S2[a1, a5, SP[a1, a3], SP[a2, a4], n] - 
    S2[a1, a5, SP[a1, a4], SP[a2, a3], n] - S2[a1, SP[a1, a3], a4, 
     SP[a2, a5], n] - S2[a1, SP[a1, a3], a5, SP[a2, a4], n] - 
    S2[a1, SP[a1, a3], SP[a2, a4], a5, n] - S2[a1, SP[a1, a3], SP[a2, a5], 
     a4, n] - S2[a1, SP[a1, a4], a3, SP[a2, a5], n] - 
    S2[a1, SP[a1, a4], a5, SP[a2, a3], n] - S2[a1, SP[a1, a4], SP[a2, a3], 
     a5, n] - S2[a1, SP[a1, a4], SP[a2, a5], a3, n] - 
    S2[a1, SP[a1, a5], a3, SP[a2, a4], n] - S2[a1, SP[a1, a5], a4, 
     SP[a2, a3], n] - S2[a1, SP[a1, a5], SP[a2, a3], a4, n] - 
    S2[a1, SP[a1, a5], SP[a2, a4], a3, n] - S2[a1, a2, n]*
     S2[a3, a5, a1, a4, n] + S2[a3, a5, SP[a1, a1], SP[a2, a4], n] + 
    S2[a3, SP[a1, a5], a1, SP[a2, a4], n] + S2[a3, SP[a1, a5], SP[a1, a2], 
     a4, n] - S2[SP[a1, a1], a3, a4, SP[a2, a5], n] - 
    S2[SP[a1, a1], a3, a5, SP[a2, a4], n] - S2[SP[a1, a1], a3, SP[a2, a4], 
     a5, n] - S2[SP[a1, a1], a3, SP[a2, a5], a4, n] - 
    S2[SP[a1, a1], a4, a3, SP[a2, a5], n] - S2[SP[a1, a1], a4, a5, 
     SP[a2, a3], n] - S2[SP[a1, a1], a4, SP[a2, a3], a5, n] - 
    S2[SP[a1, a1], a4, SP[a2, a5], a3, n] - S2[SP[a1, a1], a5, a3, 
     SP[a2, a4], n] - S2[SP[a1, a1], a5, a4, SP[a2, a3], n] - 
    S2[SP[a1, a1], a5, SP[a2, a3], a4, n] - S2[SP[a1, a1], a5, SP[a2, a4], 
     a3, n] - S2[SP[a1, a1], SP[a2, a3], a4, a5, n] - 
    S2[SP[a1, a1], SP[a2, a3], a5, a4, n] - S2[SP[a1, a1], SP[a2, a4], a3, 
     a5, n] - S2[SP[a1, a1], SP[a2, a4], a5, a3, n] - 
    S2[SP[a1, a1], SP[a2, a5], a3, a4, n] - S2[SP[a1, a1], SP[a2, a5], a4, 
     a3, n] + S2[SP[a1, a3], a5, a1, SP[a2, a4], n] + 
    S2[SP[a1, a3], a5, SP[a1, a2], a4, n] + S2[SP[a1, a3], SP[a2, a5], a1, 
     a4, n] - 2*S2[a5, n]*S2[a1, a1, a2, a3, a4, n] - 
    2*S2[a1, a1, a2, a3, SP[a4, a5], n] - 
    2*S2[a5, n]*S2[a1, a1, a2, a4, a3, n] - 
    2*S2[a1, a1, a2, a4, SP[a3, a5], n] - 
    2*S2[a1, a1, a2, SP[a3, a5], a4, n] - 
    2*S2[a1, a1, a2, SP[a4, a5], a3, n] - 
    2*S2[a5, n]*S2[a1, a1, a3, a2, a4, n] - 
    2*S2[a1, a1, a3, a2, SP[a4, a5], n] - 
    2*S2[a5, n]*S2[a1, a1, a3, a4, a2, n] + 
    2*S2[a1, a1, a3, a5, SP[a2, a4], n] + 
    2*S2[a1, a1, a3, SP[a2, a4], a5, n] - 
    2*S2[a1, a1, a3, SP[a4, a5], a2, n] - 
    2*S2[a5, n]*S2[a1, a1, a4, a2, a3, n] - 
    2*S2[a1, a1, a4, a2, SP[a3, a5], n] - 
    2*S2[a5, n]*S2[a1, a1, a4, a3, a2, n] + 
    2*S2[a1, a1, a4, a5, SP[a2, a3], n] + 
    2*S2[a1, a1, a4, SP[a2, a3], a5, n] - 
    2*S2[a1, a1, a4, SP[a3, a5], a2, n] + 
    2*S2[a1, a1, a5, a3, SP[a2, a4], n] + 
    2*S2[a1, a1, a5, a4, SP[a2, a3], n] + 
    2*S2[a1, a1, a5, SP[a2, a3], a4, n] + 
    2*S2[a1, a1, a5, SP[a2, a4], a3, n] + 
    2*S2[a1, a1, SP[a2, a3], a4, a5, n] + 
    2*S2[a1, a1, SP[a2, a3], a5, a4, n] + 
    2*S2[a1, a1, SP[a2, a4], a3, a5, n] + 
    2*S2[a1, a1, SP[a2, a4], a5, a3, n] - 
    2*S2[a1, a1, SP[a3, a5], a2, a4, n] - 
    2*S2[a1, a1, SP[a3, a5], a4, a2, n] - 
    2*S2[a1, a1, SP[a4, a5], a2, a3, n] - 
    2*S2[a1, a1, SP[a4, a5], a3, a2, n] - 
    S2[a5, n]*S2[a1, a2, a1, a3, a4, n] - S2[a1, a2, a1, a3, SP[a4, a5], n] - 
    S2[a5, n]*S2[a1, a2, a1, a4, a3, n] - S2[a1, a2, a1, a4, SP[a3, a5], n] - 
    S2[a1, a2, a1, SP[a3, a5], a4, n] - S2[a1, a2, a1, SP[a4, a5], a3, n] + 
    S2[a3, n]*S2[a1, a2, a5, a1, a4, n] + S2[a1, a2, a5, a1, SP[a3, a4], n] + 
    S2[a1, a2, a5, SP[a1, a3], a4, n] - S2[a1, a2, SP[a1, a5], a3, a4, n] - 
    S2[a1, a2, SP[a1, a5], a4, a3, n] + S2[a1, a2, SP[a3, a5], a1, a4, n] - 
    S2[a5, n]*S2[a1, a3, a1, a2, a4, n] - S2[a1, a3, a1, a2, SP[a4, a5], n] - 
    S2[a5, n]*S2[a1, a3, a1, a4, a2, n] + S2[a1, a3, a1, a5, SP[a2, a4], n] + 
    S2[a1, a3, a1, SP[a2, a4], a5, n] - S2[a1, a3, a1, SP[a4, a5], a2, n] - 
    S2[a5, n]*S2[a1, a3, a4, a1, a2, n] - S2[a1, a3, a5, SP[a1, a2], a4, n] + 
    S2[a1, a3, a5, SP[a1, a4], a2, n] + S2[a1, a3, SP[a1, a4], a2, a5, n] + 
    S2[a1, a3, SP[a1, a4], a5, a2, n] - S2[a1, a3, SP[a2, a5], a1, a4, n] - 
    S2[a1, a3, SP[a4, a5], a1, a2, n] - S2[a5, n]*S2[a1, a4, a1, a2, a3, n] - 
    S2[a1, a4, a1, a2, SP[a3, a5], n] - S2[a5, n]*S2[a1, a4, a1, a3, a2, n] + 
    S2[a1, a4, a1, a5, SP[a2, a3], n] + S2[a1, a4, a1, SP[a2, a3], a5, n] - 
    S2[a1, a4, a1, SP[a3, a5], a2, n] - S2[a5, n]*S2[a1, a4, a3, a1, a2, n] + 
    S2[a1, a4, a5, a1, SP[a2, a3], n] + S2[a1, a4, a5, SP[a1, a3], a2, n] + 
    S2[a1, a4, SP[a1, a3], a2, a5, n] + S2[a1, a4, SP[a1, a3], a5, a2, n] - 
    S2[a1, a4, SP[a3, a5], a1, a2, n] + S2[a3, n]*S2[a1, a5, a1, a2, a4, n] + 
    S2[a1, a5, a1, a2, SP[a3, a4], n] + S2[a1, a5, a1, a3, SP[a2, a4], n] + 
    S2[a3, n]*S2[a1, a5, a1, a4, a2, n] + 
    2*S2[a1, a5, a1, a4, SP[a2, a3], n] + 
    2*S2[a1, a5, a1, SP[a2, a3], a4, n] + S2[a1, a5, a1, SP[a2, a4], a3, n] + 
    S2[a1, a5, a1, SP[a3, a4], a2, n] + S2[a3, n]*S2[a1, a5, a2, a1, a4, n] + 
    S2[a1, a5, a2, a1, SP[a3, a4], n] + S2[a1, a5, a2, SP[a1, a3], a4, n] + 
    S2[a1, a5, a3, a1, SP[a2, a4], n] + S2[a1, a5, a3, SP[a1, a4], a2, n] + 
    S2[a1, a5, a4, a1, SP[a2, a3], n] + S2[a1, a5, a4, SP[a1, a3], a2, n] + 
    2*S2[a1, a5, SP[a1, a3], a2, a4, n] + 
    2*S2[a1, a5, SP[a1, a3], a4, a2, n] + S2[a1, a5, SP[a1, a4], a2, a3, n] + 
    S2[a1, a5, SP[a1, a4], a3, a2, n] + S2[a1, a5, SP[a2, a3], a1, a4, n] + 
    S2[a1, SP[a1, a2], a3, a4, a5, n] + S2[a1, SP[a1, a2], a3, a5, a4, n] + 
    S2[a1, SP[a1, a2], a4, a3, a5, n] + S2[a1, SP[a1, a2], a4, a5, a3, n] + 
    S2[a1, SP[a1, a2], a5, a3, a4, n] + S2[a1, SP[a1, a2], a5, a4, a3, n] + 
    S2[a1, SP[a1, a3], a2, a4, a5, n] + S2[a1, SP[a1, a3], a2, a5, a4, n] + 
    S2[a1, SP[a1, a3], a4, a2, a5, n] + S2[a1, SP[a1, a3], a4, a5, a2, n] + 
    S2[a1, SP[a1, a3], a5, a2, a4, n] + S2[a1, SP[a1, a3], a5, a4, a2, n] + 
    S2[a1, SP[a1, a4], a2, a3, a5, n] + S2[a1, SP[a1, a4], a2, a5, a3, n] + 
    S2[a1, SP[a1, a4], a3, a2, a5, n] + S2[a1, SP[a1, a4], a3, a5, a2, n] + 
    S2[a1, SP[a1, a4], a5, a2, a3, n] + S2[a1, SP[a1, a4], a5, a3, a2, n] - 
    S2[a1, SP[a1, a5], a2, a3, a4, n] - S2[a1, SP[a1, a5], a2, a4, a3, n] - 
    S2[a1, SP[a1, a5], a3, a2, a4, n] - S2[a1, SP[a1, a5], a3, a4, a2, n] - 
    S2[a1, SP[a1, a5], a4, a2, a3, n] - S2[a1, SP[a1, a5], a4, a3, a2, n] - 
    S2[a1, SP[a2, a5], a1, a3, a4, n] - S2[a1, SP[a2, a5], a1, a4, a3, n] + 
    S2[a1, SP[a3, a5], a2, a1, a4, n] - S2[a1, SP[a3, a5], a4, a1, a2, n] - 
    S2[a1, SP[a4, a5], a1, a2, a3, n] - S2[a1, SP[a4, a5], a1, a3, a2, n] - 
    S2[a1, SP[a4, a5], a3, a1, a2, n] - S2[a3, a1, a5, a1, SP[a2, a4], n] - 
    S2[a3, a1, a5, SP[a1, a2], a4, n] - S2[a3, a1, SP[a2, a5], a1, a4, n] - 
    2*S2[a3, a5, a1, a1, SP[a2, a4], n] - S2[a3, a5, a1, SP[a1, a2], a4, n] - 
    S2[a3, a5, a1, SP[a1, a4], a2, n] - S2[a3, a5, SP[a1, a1], a2, a4, n] - 
    S2[a3, a5, SP[a1, a1], a4, a2, n] - S2[a3, SP[a1, a5], a1, a2, a4, n] - 
    S2[a3, SP[a1, a5], a1, a4, a2, n] - S2[a3, SP[a1, a5], a2, a1, a4, n] + 
    2*S2[a3, n]*S2[a5, a1, a1, a2, a4, n] + 
    2*S2[a5, a1, a1, a2, SP[a3, a4], n] + 
    2*S2[a3, n]*S2[a5, a1, a1, a4, a2, n] + 
    2*S2[a5, a1, a1, a4, SP[a2, a3], n] + 
    2*S2[a5, a1, a1, SP[a2, a3], a4, n] + 
    2*S2[a5, a1, a1, SP[a3, a4], a2, n] + 
    S2[a3, n]*S2[a5, a1, a2, a1, a4, n] + S2[a5, a1, a2, a1, SP[a3, a4], n] + 
    S2[a5, a1, a2, SP[a1, a3], a4, n] + S2[a3, n]*S2[a5, a1, a4, a1, a2, n] + 
    S2[a5, a1, a4, a1, SP[a2, a3], n] + S2[a5, a1, a4, SP[a1, a3], a2, n] + 
    2*S2[a5, a1, SP[a1, a3], a2, a4, n] + 
    2*S2[a5, a1, SP[a1, a3], a4, a2, n] + S2[a5, a1, SP[a2, a3], a1, a4, n] + 
    S2[a5, a1, SP[a3, a4], a1, a2, n] - S2[a1, n]*S2[a5, a2, a3, a1, a4, n] - 
    S2[a5, a2, a3, a1, SP[a1, a4], n] - S2[a5, a2, a3, SP[a1, a1], a4, n] - 
    S2[a5, a2, SP[a1, a3], a1, a4, n] - S2[a1, n]*S2[a5, a3, a1, a2, a4, n] - 
    S2[a5, a3, a1, a2, SP[a1, a4], n] - S2[a1, n]*S2[a5, a3, a1, a4, a2, n] - 
    S2[a5, a3, a1, a4, SP[a1, a2], n] - S2[a5, a3, a1, SP[a1, a2], a4, n] - 
    S2[a5, a3, a1, SP[a1, a4], a2, n] - S2[a1, n]*S2[a5, a3, a2, a1, a4, n] - 
    S2[a5, a3, a2, a1, SP[a1, a4], n] - S2[a5, a3, a2, SP[a1, a1], a4, n] - 
    S2[a5, a3, SP[a1, a1], a2, a4, n] - S2[a5, a3, SP[a1, a1], a4, a2, n] - 
    S2[a5, a3, SP[a1, a2], a1, a4, n] - S2[a5, SP[a1, a2], a3, a1, a4, n] + 
    S2[a5, SP[a1, a3], a1, a2, a4, n] + S2[a5, SP[a1, a3], a1, a4, a2, n] + 
    S2[a5, SP[a1, a3], a4, a1, a2, n] + S2[SP[a1, a1], a2, a3, a4, a5, n] + 
    S2[SP[a1, a1], a2, a3, a5, a4, n] + S2[SP[a1, a1], a2, a4, a3, a5, n] + 
    S2[SP[a1, a1], a2, a4, a5, a3, n] + S2[SP[a1, a1], a2, a5, a3, a4, n] + 
    S2[SP[a1, a1], a2, a5, a4, a3, n] + S2[SP[a1, a1], a3, a2, a4, a5, n] + 
    S2[SP[a1, a1], a3, a2, a5, a4, n] + S2[SP[a1, a1], a3, a4, a2, a5, n] + 
    S2[SP[a1, a1], a3, a4, a5, a2, n] + S2[SP[a1, a1], a3, a5, a2, a4, n] + 
    S2[SP[a1, a1], a3, a5, a4, a2, n] + S2[SP[a1, a1], a4, a2, a3, a5, n] + 
    S2[SP[a1, a1], a4, a2, a5, a3, n] + S2[SP[a1, a1], a4, a3, a2, a5, n] + 
    S2[SP[a1, a1], a4, a3, a5, a2, n] + S2[SP[a1, a1], a4, a5, a2, a3, n] + 
    S2[SP[a1, a1], a4, a5, a3, a2, n] + S2[SP[a1, a1], a5, a2, a3, a4, n] + 
    S2[SP[a1, a1], a5, a2, a4, a3, n] + S2[SP[a1, a1], a5, a3, a2, a4, n] + 
    S2[SP[a1, a1], a5, a3, a4, a2, n] + S2[SP[a1, a1], a5, a4, a2, a3, n] + 
    S2[SP[a1, a1], a5, a4, a3, a2, n] - 2*S2[SP[a1, a5], a1, a2, a3, a4, n] - 
    2*S2[SP[a1, a5], a1, a2, a4, a3, n] - 
    2*S2[SP[a1, a5], a1, a3, a2, a4, n] - 
    2*S2[SP[a1, a5], a1, a3, a4, a2, n] - 
    2*S2[SP[a1, a5], a1, a4, a2, a3, n] - 
    2*S2[SP[a1, a5], a1, a4, a3, a2, n] - S2[SP[a1, a5], a2, a1, a3, a4, n] - 
    S2[SP[a1, a5], a2, a1, a4, a3, n] - S2[SP[a1, a5], a2, a3, a1, a4, n] - 
    2*S2[SP[a1, a5], a3, a1, a2, a4, n] - 
    2*S2[SP[a1, a5], a3, a1, a4, a2, n] - S2[SP[a1, a5], a3, a2, a1, a4, n] - 
    S2[SP[a1, a5], a3, a4, a1, a2, n] - S2[SP[a1, a5], a4, a1, a2, a3, n] - 
    S2[SP[a1, a5], a4, a1, a3, a2, n] - S2[SP[a1, a5], a4, a3, a1, a2, n] + 
    2*S2[SP[a3, a5], a1, a1, a2, a4, n] + 
    2*S2[SP[a3, a5], a1, a1, a4, a2, n] + S2[SP[a3, a5], a1, a2, a1, a4, n] + 
    S2[SP[a3, a5], a1, a4, a1, a2, n] + S2[a5, a2, a1, a3, a1, a4, n] + 
    2*S2[a5, a2, a3, a1, a1, a4, n] + S2[a5, a2, a3, a1, a4, a1, n] + 
    S2[a5, a3, a1, a2, a1, a4, n] + S2[a5, a3, a1, a2, a4, a1, n] + 
    S2[a5, a3, a1, a4, a2, a1, n] + 2*S2[a5, a3, a2, a1, a1, a4, n] + 
    S2[a5, a3, a2, a1, a4, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a1_, a2_, a5_, a3_, a4_, a1_, n_] :> 
  -(S2[a1, a2, n]*S2[a1, a4, a3, a5, n]) - S2[a1, a2, n]*
     S2[a1, a4, a5, a3, n] + S2[a1, a4, SP[a1, a3], SP[a2, a5], n] + 
    S2[a1, a4, SP[a1, a5], SP[a2, a3], n] - S2[a1, a2, n]*
     S2[a1, a5, a3, a4, n] - S2[a1, a2, n]*S2[a1, a5, a4, a3, n] + 
    S2[a1, a5, SP[a1, a3], SP[a2, a4], n] + S2[a1, a5, SP[a1, a4], 
     SP[a2, a3], n] + S2[a1, SP[a1, a4], a3, SP[a2, a5], n] + 
    S2[a1, SP[a1, a4], a5, SP[a2, a3], n] + S2[a1, SP[a1, a4], SP[a2, a3], 
     a5, n] + S2[a1, SP[a1, a4], SP[a2, a5], a3, n] + 
    S2[a1, SP[a1, a5], a3, SP[a2, a4], n] + S2[a1, SP[a1, a5], a4, 
     SP[a2, a3], n] + S2[a1, SP[a1, a5], SP[a2, a3], a4, n] + 
    S2[a1, SP[a1, a5], SP[a2, a4], a3, n] + S2[a1, a2, n]*
     S2[a3, a5, a1, a4, n] - S2[a3, a5, SP[a1, a1], SP[a2, a4], n] - 
    S2[a3, SP[a1, a5], a1, SP[a2, a4], n] - S2[a3, SP[a1, a5], SP[a1, a2], 
     a4, n] + S2[SP[a1, a1], a4, a3, SP[a2, a5], n] + 
    S2[SP[a1, a1], a4, a5, SP[a2, a3], n] + S2[SP[a1, a1], a4, SP[a2, a3], 
     a5, n] + S2[SP[a1, a1], a4, SP[a2, a5], a3, n] + 
    S2[SP[a1, a1], a5, a3, SP[a2, a4], n] + S2[SP[a1, a1], a5, a4, 
     SP[a2, a3], n] + S2[SP[a1, a1], a5, SP[a2, a3], a4, n] + 
    S2[SP[a1, a1], a5, SP[a2, a4], a3, n] + S2[SP[a1, a1], SP[a2, a4], a3, 
     a5, n] + S2[SP[a1, a1], SP[a2, a4], a5, a3, n] + 
    S2[SP[a1, a1], SP[a2, a5], a3, a4, n] + S2[SP[a1, a1], SP[a2, a5], a4, 
     a3, n] - S2[SP[a1, a3], a5, a1, SP[a2, a4], n] - 
    S2[SP[a1, a3], a5, SP[a1, a2], a4, n] - S2[SP[a1, a3], SP[a2, a5], a1, 
     a4, n] + 2*S2[a5, n]*S2[a1, a1, a2, a4, a3, n] + 
    2*S2[a1, a1, a2, a4, SP[a3, a5], n] + 
    2*S2[a1, a1, a2, SP[a4, a5], a3, n] + 
    2*S2[a5, n]*S2[a1, a1, a4, a2, a3, n] + 
    2*S2[a1, a1, a4, a2, SP[a3, a5], n] + 
    2*S2[a5, n]*S2[a1, a1, a4, a3, a2, n] - 
    2*S2[a1, a1, a4, a5, SP[a2, a3], n] - 
    2*S2[a1, a1, a4, SP[a2, a3], a5, n] + 
    2*S2[a1, a1, a4, SP[a3, a5], a2, n] - 
    2*S2[a1, a1, a5, a3, SP[a2, a4], n] - 
    2*S2[a1, a1, a5, a4, SP[a2, a3], n] - 
    2*S2[a1, a1, a5, SP[a2, a3], a4, n] - 
    2*S2[a1, a1, a5, SP[a2, a4], a3, n] - 
    2*S2[a1, a1, SP[a2, a4], a3, a5, n] - 
    2*S2[a1, a1, SP[a2, a4], a5, a3, n] - 
    2*S2[a1, a1, SP[a2, a5], a3, a4, n] + 
    2*S2[a1, a1, SP[a4, a5], a2, a3, n] + 
    2*S2[a1, a1, SP[a4, a5], a3, a2, n] + 
    S2[a5, n]*S2[a1, a2, a1, a4, a3, n] + S2[a1, a2, a1, a4, SP[a3, a5], n] + 
    S2[a1, a2, a1, SP[a4, a5], a3, n] - S2[a3, n]*S2[a1, a2, a5, a1, a4, n] - 
    S2[a1, a2, a5, a1, SP[a3, a4], n] + S2[a1, n]*S2[a1, a2, a5, a3, a4, n] + 
    S2[a1, a2, a5, a3, SP[a1, a4], n] + S2[a1, a2, SP[a1, a5], a3, a4, n] + 
    S2[a1, a2, SP[a1, a5], a4, a3, n] - S2[a1, a2, SP[a3, a5], a1, a4, n] + 
    S2[a1, a3, a5, a1, SP[a2, a4], n] + S2[a1, a3, a5, SP[a1, a2], a4, n] + 
    S2[a1, a3, SP[a2, a5], a1, a4, n] + S2[a5, n]*S2[a1, a4, a1, a2, a3, n] + 
    S2[a1, a4, a1, a2, SP[a3, a5], n] + S2[a5, n]*S2[a1, a4, a1, a3, a2, n] - 
    S2[a1, a4, a1, a5, SP[a2, a3], n] - S2[a1, a4, a1, SP[a2, a3], a5, n] + 
    S2[a1, a4, a1, SP[a3, a5], a2, n] + S2[a5, n]*S2[a1, a4, a3, a1, a2, n] - 
    S2[a1, a4, a5, a1, SP[a2, a3], n] - S2[a1, a4, a5, SP[a1, a3], a2, n] - 
    S2[a1, a4, SP[a1, a3], a2, a5, n] - S2[a1, a4, SP[a1, a3], a5, a2, n] + 
    S2[a1, a4, SP[a3, a5], a1, a2, n] - S2[a3, n]*S2[a1, a5, a1, a2, a4, n] - 
    S2[a1, a5, a1, a2, SP[a3, a4], n] - S2[a1, a5, a1, a3, SP[a2, a4], n] - 
    S2[a3, n]*S2[a1, a5, a1, a4, a2, n] - 
    2*S2[a1, a5, a1, a4, SP[a2, a3], n] - 
    2*S2[a1, a5, a1, SP[a2, a3], a4, n] - S2[a1, a5, a1, SP[a2, a4], a3, n] - 
    S2[a1, a5, a1, SP[a3, a4], a2, n] - S2[a3, n]*S2[a1, a5, a2, a1, a4, n] - 
    S2[a1, a5, a2, a1, SP[a3, a4], n] + S2[a1, n]*S2[a1, a5, a2, a3, a4, n] + 
    S2[a1, a5, a2, a3, SP[a1, a4], n] - S2[a1, a5, a3, a1, SP[a2, a4], n] + 
    S2[a1, n]*S2[a1, a5, a3, a2, a4, n] + S2[a1, a5, a3, a2, SP[a1, a4], n] + 
    S2[a1, n]*S2[a1, a5, a3, a4, a2, n] + S2[a1, a5, a3, a4, SP[a1, a2], n] + 
    S2[a1, a5, a3, SP[a1, a2], a4, n] - S2[a1, a5, a4, a1, SP[a2, a3], n] - 
    S2[a1, a5, a4, SP[a1, a3], a2, n] + S2[a1, a5, SP[a1, a2], a3, a4, n] - 
    S2[a1, a5, SP[a1, a3], a2, a4, n] - S2[a1, a5, SP[a1, a3], a4, a2, n] - 
    S2[a1, a5, SP[a1, a4], a2, a3, n] - S2[a1, a5, SP[a1, a4], a3, a2, n] - 
    S2[a1, a5, SP[a2, a3], a1, a4, n] - S2[a1, SP[a1, a2], a4, a3, a5, n] - 
    S2[a1, SP[a1, a2], a4, a5, a3, n] - S2[a1, SP[a1, a2], a5, a4, a3, n] - 
    S2[a1, SP[a1, a4], a2, a3, a5, n] - S2[a1, SP[a1, a4], a2, a5, a3, n] - 
    S2[a1, SP[a1, a4], a3, a2, a5, n] - S2[a1, SP[a1, a4], a3, a5, a2, n] - 
    S2[a1, SP[a1, a4], a5, a2, a3, n] - S2[a1, SP[a1, a4], a5, a3, a2, n] + 
    S2[a1, SP[a1, a5], a2, a4, a3, n] + S2[a1, SP[a1, a5], a4, a2, a3, n] + 
    S2[a1, SP[a1, a5], a4, a3, a2, n] + S2[a1, SP[a2, a5], a1, a4, a3, n] - 
    S2[a1, SP[a3, a5], a1, a2, a4, n] - S2[a1, SP[a3, a5], a1, a4, a2, n] - 
    S2[a1, SP[a3, a5], a2, a1, a4, n] + S2[a1, SP[a4, a5], a1, a2, a3, n] + 
    S2[a1, SP[a4, a5], a1, a3, a2, n] + S2[a1, SP[a4, a5], a3, a1, a2, n] + 
    S2[a3, a1, a5, a1, SP[a2, a4], n] + S2[a3, a1, a5, SP[a1, a2], a4, n] + 
    S2[a3, a1, SP[a2, a5], a1, a4, n] + 2*S2[a3, a5, a1, a1, SP[a2, a4], n] + 
    S2[a3, a5, a1, SP[a1, a2], a4, n] + S2[a3, a5, a1, SP[a1, a4], a2, n] + 
    S2[a3, a5, SP[a1, a1], a2, a4, n] + S2[a3, a5, SP[a1, a1], a4, a2, n] + 
    S2[a3, SP[a1, a5], a1, a2, a4, n] + S2[a3, SP[a1, a5], a1, a4, a2, n] + 
    S2[a3, SP[a1, a5], a2, a1, a4, n] - 2*S2[a3, n]*
     S2[a5, a1, a1, a2, a4, n] - 2*S2[a5, a1, a1, a2, SP[a3, a4], n] - 
    2*S2[a3, n]*S2[a5, a1, a1, a4, a2, n] - 
    2*S2[a5, a1, a1, a4, SP[a2, a3], n] - 
    2*S2[a5, a1, a1, SP[a2, a3], a4, n] - 
    2*S2[a5, a1, a1, SP[a3, a4], a2, n] - 
    S2[a3, n]*S2[a5, a1, a2, a1, a4, n] - S2[a5, a1, a2, a1, SP[a3, a4], n] + 
    S2[a1, n]*S2[a5, a1, a2, a3, a4, n] + S2[a5, a1, a2, a3, SP[a1, a4], n] + 
    S2[a1, n]*S2[a5, a1, a3, a2, a4, n] + S2[a5, a1, a3, a2, SP[a1, a4], n] + 
    S2[a1, n]*S2[a5, a1, a3, a4, a2, n] + S2[a5, a1, a3, a4, SP[a1, a2], n] + 
    S2[a5, a1, a3, SP[a1, a2], a4, n] + S2[a5, a1, a3, SP[a1, a4], a2, n] - 
    S2[a3, n]*S2[a5, a1, a4, a1, a2, n] - S2[a5, a1, a4, a1, SP[a2, a3], n] - 
    S2[a5, a1, a4, SP[a1, a3], a2, n] + S2[a5, a1, SP[a1, a2], a3, a4, n] - 
    S2[a5, a1, SP[a1, a3], a2, a4, n] - S2[a5, a1, SP[a1, a3], a4, a2, n] - 
    S2[a5, a1, SP[a2, a3], a1, a4, n] - S2[a5, a1, SP[a3, a4], a1, a2, n] - 
    S2[a1, n]*S2[a5, a2, a3, a4, a1, n] - S2[a5, a2, a3, a4, SP[a1, a1], n] - 
    S2[a5, a2, a3, SP[a1, a4], a1, n] - S2[a5, a2, SP[a1, a3], a4, a1, n] + 
    S2[a1, n]*S2[a5, a3, a1, a2, a4, n] + S2[a5, a3, a1, a2, SP[a1, a4], n] + 
    S2[a1, n]*S2[a5, a3, a1, a4, a2, n] + S2[a5, a3, a1, a4, SP[a1, a2], n] + 
    S2[a5, a3, a1, SP[a1, a2], a4, n] + S2[a5, a3, a1, SP[a1, a4], a2, n] - 
    S2[a1, n]*S2[a5, a3, a2, a4, a1, n] - S2[a5, a3, a2, a4, SP[a1, a1], n] - 
    S2[a5, a3, a2, SP[a1, a4], a1, n] - S2[a1, n]*S2[a5, a3, a4, a2, a1, n] - 
    S2[a5, a3, a4, a2, SP[a1, a1], n] - S2[a5, a3, a4, SP[a1, a2], a1, n] + 
    S2[a5, a3, SP[a1, a1], a2, a4, n] + S2[a5, a3, SP[a1, a1], a4, a2, n] - 
    S2[a5, a3, SP[a1, a2], a4, a1, n] - S2[a5, a3, SP[a1, a4], a2, a1, n] + 
    S2[a5, SP[a1, a1], a2, a3, a4, n] + S2[a5, SP[a1, a1], a3, a2, a4, n] + 
    S2[a5, SP[a1, a1], a3, a4, a2, n] - S2[a5, SP[a1, a2], a3, a4, a1, n] - 
    S2[a5, SP[a1, a3], a1, a2, a4, n] - S2[a5, SP[a1, a3], a1, a4, a2, n] - 
    S2[a5, SP[a1, a3], a2, a1, a4, n] - S2[a5, SP[a1, a3], a2, a4, a1, n] - 
    S2[a5, SP[a1, a3], a4, a1, a2, n] - S2[a5, SP[a1, a3], a4, a2, a1, n] - 
    S2[SP[a1, a1], a2, a4, a3, a5, n] - S2[SP[a1, a1], a2, a4, a5, a3, n] - 
    S2[SP[a1, a1], a2, a5, a4, a3, n] - S2[SP[a1, a1], a4, a2, a3, a5, n] - 
    S2[SP[a1, a1], a4, a2, a5, a3, n] - S2[SP[a1, a1], a4, a3, a2, a5, n] - 
    S2[SP[a1, a1], a4, a3, a5, a2, n] - S2[SP[a1, a1], a4, a5, a2, a3, n] - 
    S2[SP[a1, a1], a4, a5, a3, a2, n] - S2[SP[a1, a1], a5, a2, a4, a3, n] - 
    S2[SP[a1, a1], a5, a4, a2, a3, n] - S2[SP[a1, a1], a5, a4, a3, a2, n] + 
    S2[SP[a1, a5], a1, a2, a3, a4, n] + 2*S2[SP[a1, a5], a1, a2, a4, a3, n] + 
    S2[SP[a1, a5], a1, a3, a2, a4, n] + S2[SP[a1, a5], a1, a3, a4, a2, n] + 
    2*S2[SP[a1, a5], a1, a4, a2, a3, n] + 
    2*S2[SP[a1, a5], a1, a4, a3, a2, n] + S2[SP[a1, a5], a2, a1, a4, a3, n] - 
    S2[SP[a1, a5], a2, a3, a4, a1, n] + S2[SP[a1, a5], a3, a1, a2, a4, n] + 
    S2[SP[a1, a5], a3, a1, a4, a2, n] - S2[SP[a1, a5], a3, a2, a4, a1, n] - 
    S2[SP[a1, a5], a3, a4, a2, a1, n] + S2[SP[a1, a5], a4, a1, a2, a3, n] + 
    S2[SP[a1, a5], a4, a1, a3, a2, n] + S2[SP[a1, a5], a4, a3, a1, a2, n] - 
    2*S2[SP[a3, a5], a1, a1, a2, a4, n] - 
    2*S2[SP[a3, a5], a1, a1, a4, a2, n] - S2[SP[a3, a5], a1, a2, a1, a4, n] - 
    S2[SP[a3, a5], a1, a4, a1, a2, n] + S2[a5, a2, a1, a3, a4, a1, n] + 
    S2[a5, a2, a3, a1, a4, a1, n] + 2*S2[a5, a2, a3, a4, a1, a1, n] + 
    S2[a5, a3, a2, a1, a4, a1, n] + 2*S2[a5, a3, a2, a4, a1, a1, n] + 
    S2[a5, a3, a4, a1, a2, a1, n] + 2*S2[a5, a3, a4, a2, a1, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a1_, a2_, a5_, a4_, a1_, a3_, n_] :> 
  S2[a1, a2, n]*S2[a1, a3, a4, a5, n] + S2[a1, a2, n]*S2[a1, a3, a5, a4, n] - 
    S2[a1, a3, SP[a1, a4], SP[a2, a5], n] - S2[a1, a3, SP[a1, a5], 
     SP[a2, a4], n] + S2[a1, a2, n]*S2[a1, a4, a3, a5, n] + 
    S2[a1, a2, n]*S2[a1, a4, a5, a3, n] - S2[a1, a4, SP[a1, a3], SP[a2, a5], 
     n] - S2[a1, a4, SP[a1, a5], SP[a2, a3], n] + 
    S2[a1, a2, n]*S2[a1, a5, a3, a4, n] + S2[a1, a2, n]*
     S2[a1, a5, a4, a3, n] - S2[a1, a5, SP[a1, a3], SP[a2, a4], n] - 
    S2[a1, a5, SP[a1, a4], SP[a2, a3], n] - S2[a1, SP[a1, a3], a4, 
     SP[a2, a5], n] - S2[a1, SP[a1, a3], a5, SP[a2, a4], n] - 
    S2[a1, SP[a1, a3], SP[a2, a4], a5, n] - S2[a1, SP[a1, a3], SP[a2, a5], 
     a4, n] - S2[a1, SP[a1, a4], a3, SP[a2, a5], n] - 
    S2[a1, SP[a1, a4], a5, SP[a2, a3], n] - S2[a1, SP[a1, a4], SP[a2, a3], 
     a5, n] - S2[a1, SP[a1, a4], SP[a2, a5], a3, n] - 
    S2[a1, SP[a1, a5], a3, SP[a2, a4], n] - S2[a1, SP[a1, a5], a4, 
     SP[a2, a3], n] - S2[a1, SP[a1, a5], SP[a2, a3], a4, n] - 
    S2[a1, SP[a1, a5], SP[a2, a4], a3, n] - S2[a1, a2, n]*
     S2[a4, a5, a1, a3, n] + S2[a4, a5, SP[a1, a1], SP[a2, a3], n] + 
    S2[a4, SP[a1, a5], a1, SP[a2, a3], n] + S2[a4, SP[a1, a5], SP[a1, a2], 
     a3, n] - S2[SP[a1, a1], a3, a4, SP[a2, a5], n] - 
    S2[SP[a1, a1], a3, a5, SP[a2, a4], n] - S2[SP[a1, a1], a3, SP[a2, a4], 
     a5, n] - S2[SP[a1, a1], a3, SP[a2, a5], a4, n] - 
    S2[SP[a1, a1], a4, a3, SP[a2, a5], n] - S2[SP[a1, a1], a4, a5, 
     SP[a2, a3], n] - S2[SP[a1, a1], a4, SP[a2, a3], a5, n] - 
    S2[SP[a1, a1], a4, SP[a2, a5], a3, n] - S2[SP[a1, a1], a5, a3, 
     SP[a2, a4], n] - S2[SP[a1, a1], a5, a4, SP[a2, a3], n] - 
    S2[SP[a1, a1], a5, SP[a2, a3], a4, n] - S2[SP[a1, a1], a5, SP[a2, a4], 
     a3, n] - S2[SP[a1, a1], SP[a2, a3], a4, a5, n] - 
    S2[SP[a1, a1], SP[a2, a3], a5, a4, n] - S2[SP[a1, a1], SP[a2, a4], a3, 
     a5, n] - S2[SP[a1, a1], SP[a2, a4], a5, a3, n] - 
    S2[SP[a1, a1], SP[a2, a5], a3, a4, n] - S2[SP[a1, a1], SP[a2, a5], a4, 
     a3, n] + S2[SP[a1, a4], a5, a1, SP[a2, a3], n] + 
    S2[SP[a1, a4], a5, SP[a1, a2], a3, n] + S2[SP[a1, a4], SP[a2, a5], a1, 
     a3, n] - 2*S2[a5, n]*S2[a1, a1, a2, a3, a4, n] - 
    2*S2[a1, a1, a2, a3, SP[a4, a5], n] - 
    2*S2[a5, n]*S2[a1, a1, a2, a4, a3, n] - 
    2*S2[a1, a1, a2, a4, SP[a3, a5], n] - 
    2*S2[a1, a1, a2, SP[a3, a5], a4, n] - 
    2*S2[a1, a1, a2, SP[a4, a5], a3, n] - 
    2*S2[a5, n]*S2[a1, a1, a3, a2, a4, n] - 
    2*S2[a1, a1, a3, a2, SP[a4, a5], n] - 
    2*S2[a5, n]*S2[a1, a1, a3, a4, a2, n] + 
    2*S2[a1, a1, a3, a5, SP[a2, a4], n] + 
    2*S2[a1, a1, a3, SP[a2, a4], a5, n] - 
    2*S2[a1, a1, a3, SP[a4, a5], a2, n] - 
    2*S2[a5, n]*S2[a1, a1, a4, a2, a3, n] - 
    2*S2[a1, a1, a4, a2, SP[a3, a5], n] - 
    2*S2[a5, n]*S2[a1, a1, a4, a3, a2, n] + 
    2*S2[a1, a1, a4, a5, SP[a2, a3], n] + 
    2*S2[a1, a1, a4, SP[a2, a3], a5, n] - 
    2*S2[a1, a1, a4, SP[a3, a5], a2, n] + 
    2*S2[a1, a1, a5, a3, SP[a2, a4], n] + 
    2*S2[a1, a1, a5, a4, SP[a2, a3], n] + 
    2*S2[a1, a1, a5, SP[a2, a3], a4, n] + 
    2*S2[a1, a1, a5, SP[a2, a4], a3, n] + 
    2*S2[a1, a1, SP[a2, a3], a4, a5, n] + 
    2*S2[a1, a1, SP[a2, a3], a5, a4, n] + 
    2*S2[a1, a1, SP[a2, a4], a3, a5, n] + 
    2*S2[a1, a1, SP[a2, a4], a5, a3, n] - 
    2*S2[a1, a1, SP[a3, a5], a2, a4, n] - 
    2*S2[a1, a1, SP[a3, a5], a4, a2, n] - 
    2*S2[a1, a1, SP[a4, a5], a2, a3, n] - 
    2*S2[a1, a1, SP[a4, a5], a3, a2, n] - 
    S2[a5, n]*S2[a1, a2, a1, a3, a4, n] - S2[a1, a2, a1, a3, SP[a4, a5], n] - 
    S2[a5, n]*S2[a1, a2, a1, a4, a3, n] - S2[a1, a2, a1, a4, SP[a3, a5], n] - 
    S2[a1, a2, a1, SP[a3, a5], a4, n] - S2[a1, a2, a1, SP[a4, a5], a3, n] + 
    S2[a4, n]*S2[a1, a2, a5, a1, a3, n] + S2[a1, a2, a5, a1, SP[a3, a4], n] + 
    S2[a1, a2, a5, SP[a1, a4], a3, n] - S2[a1, a2, SP[a1, a5], a3, a4, n] - 
    S2[a1, a2, SP[a1, a5], a4, a3, n] + S2[a1, a2, SP[a4, a5], a1, a3, n] - 
    S2[a5, n]*S2[a1, a3, a1, a2, a4, n] - S2[a1, a3, a1, a2, SP[a4, a5], n] - 
    S2[a5, n]*S2[a1, a3, a1, a4, a2, n] + S2[a1, a3, a1, a5, SP[a2, a4], n] + 
    S2[a1, a3, a1, SP[a2, a4], a5, n] - S2[a1, a3, a1, SP[a4, a5], a2, n] - 
    S2[a5, n]*S2[a1, a3, a4, a1, a2, n] + S2[a1, a3, a5, a1, SP[a2, a4], n] + 
    S2[a1, a3, a5, SP[a1, a4], a2, n] + S2[a1, a3, SP[a1, a4], a2, a5, n] + 
    S2[a1, a3, SP[a1, a4], a5, a2, n] - S2[a1, a3, SP[a4, a5], a1, a2, n] - 
    S2[a5, n]*S2[a1, a4, a1, a2, a3, n] - S2[a1, a4, a1, a2, SP[a3, a5], n] - 
    S2[a5, n]*S2[a1, a4, a1, a3, a2, n] + S2[a1, a4, a1, a5, SP[a2, a3], n] + 
    S2[a1, a4, a1, SP[a2, a3], a5, n] - S2[a1, a4, a1, SP[a3, a5], a2, n] - 
    S2[a5, n]*S2[a1, a4, a3, a1, a2, n] - S2[a1, a4, a5, SP[a1, a2], a3, n] + 
    S2[a1, a4, a5, SP[a1, a3], a2, n] + S2[a1, a4, SP[a1, a3], a2, a5, n] + 
    S2[a1, a4, SP[a1, a3], a5, a2, n] - S2[a1, a4, SP[a2, a5], a1, a3, n] - 
    S2[a1, a4, SP[a3, a5], a1, a2, n] + S2[a4, n]*S2[a1, a5, a1, a2, a3, n] + 
    S2[a1, a5, a1, a2, SP[a3, a4], n] + S2[a4, n]*S2[a1, a5, a1, a3, a2, n] + 
    2*S2[a1, a5, a1, a3, SP[a2, a4], n] + S2[a1, a5, a1, a4, SP[a2, a3], n] + 
    S2[a1, a5, a1, SP[a2, a3], a4, n] + 2*S2[a1, a5, a1, SP[a2, a4], a3, n] + 
    S2[a1, a5, a1, SP[a3, a4], a2, n] + S2[a4, n]*S2[a1, a5, a2, a1, a3, n] + 
    S2[a1, a5, a2, a1, SP[a3, a4], n] + S2[a1, a5, a2, SP[a1, a4], a3, n] + 
    S2[a1, a5, a3, a1, SP[a2, a4], n] + S2[a1, a5, a3, SP[a1, a4], a2, n] + 
    S2[a1, a5, a4, a1, SP[a2, a3], n] + S2[a1, a5, a4, SP[a1, a3], a2, n] + 
    S2[a1, a5, SP[a1, a3], a2, a4, n] + S2[a1, a5, SP[a1, a3], a4, a2, n] + 
    2*S2[a1, a5, SP[a1, a4], a2, a3, n] + 
    2*S2[a1, a5, SP[a1, a4], a3, a2, n] + S2[a1, a5, SP[a2, a4], a1, a3, n] + 
    S2[a1, SP[a1, a2], a3, a4, a5, n] + S2[a1, SP[a1, a2], a3, a5, a4, n] + 
    S2[a1, SP[a1, a2], a4, a3, a5, n] + S2[a1, SP[a1, a2], a4, a5, a3, n] + 
    S2[a1, SP[a1, a2], a5, a3, a4, n] + S2[a1, SP[a1, a2], a5, a4, a3, n] + 
    S2[a1, SP[a1, a3], a2, a4, a5, n] + S2[a1, SP[a1, a3], a2, a5, a4, n] + 
    S2[a1, SP[a1, a3], a4, a2, a5, n] + S2[a1, SP[a1, a3], a4, a5, a2, n] + 
    S2[a1, SP[a1, a3], a5, a2, a4, n] + S2[a1, SP[a1, a3], a5, a4, a2, n] + 
    S2[a1, SP[a1, a4], a2, a3, a5, n] + S2[a1, SP[a1, a4], a2, a5, a3, n] + 
    S2[a1, SP[a1, a4], a3, a2, a5, n] + S2[a1, SP[a1, a4], a3, a5, a2, n] + 
    S2[a1, SP[a1, a4], a5, a2, a3, n] + S2[a1, SP[a1, a4], a5, a3, a2, n] - 
    S2[a1, SP[a1, a5], a2, a3, a4, n] - S2[a1, SP[a1, a5], a2, a4, a3, n] - 
    S2[a1, SP[a1, a5], a3, a2, a4, n] - S2[a1, SP[a1, a5], a3, a4, a2, n] - 
    S2[a1, SP[a1, a5], a4, a2, a3, n] - S2[a1, SP[a1, a5], a4, a3, a2, n] - 
    S2[a1, SP[a2, a5], a1, a3, a4, n] - S2[a1, SP[a2, a5], a1, a4, a3, n] - 
    S2[a1, SP[a3, a5], a1, a2, a4, n] - S2[a1, SP[a3, a5], a1, a4, a2, n] - 
    S2[a1, SP[a3, a5], a4, a1, a2, n] + S2[a1, SP[a4, a5], a2, a1, a3, n] - 
    S2[a1, SP[a4, a5], a3, a1, a2, n] - S2[a4, a1, a5, a1, SP[a2, a3], n] - 
    S2[a4, a1, a5, SP[a1, a2], a3, n] - S2[a4, a1, SP[a2, a5], a1, a3, n] - 
    2*S2[a4, a5, a1, a1, SP[a2, a3], n] - S2[a4, a5, a1, SP[a1, a2], a3, n] - 
    S2[a4, a5, a1, SP[a1, a3], a2, n] - S2[a4, a5, SP[a1, a1], a2, a3, n] - 
    S2[a4, a5, SP[a1, a1], a3, a2, n] - S2[a4, SP[a1, a5], a1, a2, a3, n] - 
    S2[a4, SP[a1, a5], a1, a3, a2, n] - S2[a4, SP[a1, a5], a2, a1, a3, n] + 
    2*S2[a4, n]*S2[a5, a1, a1, a2, a3, n] + 
    2*S2[a5, a1, a1, a2, SP[a3, a4], n] + 
    2*S2[a4, n]*S2[a5, a1, a1, a3, a2, n] + 
    2*S2[a5, a1, a1, a3, SP[a2, a4], n] + 
    2*S2[a5, a1, a1, SP[a2, a4], a3, n] + 
    2*S2[a5, a1, a1, SP[a3, a4], a2, n] + 
    S2[a4, n]*S2[a5, a1, a2, a1, a3, n] + S2[a5, a1, a2, a1, SP[a3, a4], n] + 
    S2[a5, a1, a2, SP[a1, a4], a3, n] + S2[a4, n]*S2[a5, a1, a3, a1, a2, n] + 
    S2[a5, a1, a3, a1, SP[a2, a4], n] + S2[a5, a1, a3, SP[a1, a4], a2, n] + 
    2*S2[a5, a1, SP[a1, a4], a2, a3, n] + 
    2*S2[a5, a1, SP[a1, a4], a3, a2, n] + S2[a5, a1, SP[a2, a4], a1, a3, n] + 
    S2[a5, a1, SP[a3, a4], a1, a2, n] - S2[a1, n]*S2[a5, a2, a4, a1, a3, n] - 
    S2[a5, a2, a4, a1, SP[a1, a3], n] - S2[a5, a2, a4, SP[a1, a1], a3, n] - 
    S2[a5, a2, SP[a1, a4], a1, a3, n] - S2[a1, n]*S2[a5, a4, a1, a2, a3, n] - 
    S2[a5, a4, a1, a2, SP[a1, a3], n] - S2[a1, n]*S2[a5, a4, a1, a3, a2, n] - 
    S2[a5, a4, a1, a3, SP[a1, a2], n] - S2[a5, a4, a1, SP[a1, a2], a3, n] - 
    S2[a5, a4, a1, SP[a1, a3], a2, n] - S2[a1, n]*S2[a5, a4, a2, a1, a3, n] - 
    S2[a5, a4, a2, a1, SP[a1, a3], n] - S2[a5, a4, a2, SP[a1, a1], a3, n] - 
    S2[a5, a4, SP[a1, a1], a2, a3, n] - S2[a5, a4, SP[a1, a1], a3, a2, n] - 
    S2[a5, a4, SP[a1, a2], a1, a3, n] - S2[a5, SP[a1, a2], a4, a1, a3, n] + 
    S2[a5, SP[a1, a4], a1, a2, a3, n] + S2[a5, SP[a1, a4], a1, a3, a2, n] + 
    S2[a5, SP[a1, a4], a3, a1, a2, n] + S2[SP[a1, a1], a2, a3, a4, a5, n] + 
    S2[SP[a1, a1], a2, a3, a5, a4, n] + S2[SP[a1, a1], a2, a4, a3, a5, n] + 
    S2[SP[a1, a1], a2, a4, a5, a3, n] + S2[SP[a1, a1], a2, a5, a3, a4, n] + 
    S2[SP[a1, a1], a2, a5, a4, a3, n] + S2[SP[a1, a1], a3, a2, a4, a5, n] + 
    S2[SP[a1, a1], a3, a2, a5, a4, n] + S2[SP[a1, a1], a3, a4, a2, a5, n] + 
    S2[SP[a1, a1], a3, a4, a5, a2, n] + S2[SP[a1, a1], a3, a5, a2, a4, n] + 
    S2[SP[a1, a1], a3, a5, a4, a2, n] + S2[SP[a1, a1], a4, a2, a3, a5, n] + 
    S2[SP[a1, a1], a4, a2, a5, a3, n] + S2[SP[a1, a1], a4, a3, a2, a5, n] + 
    S2[SP[a1, a1], a4, a3, a5, a2, n] + S2[SP[a1, a1], a4, a5, a2, a3, n] + 
    S2[SP[a1, a1], a4, a5, a3, a2, n] + S2[SP[a1, a1], a5, a2, a3, a4, n] + 
    S2[SP[a1, a1], a5, a2, a4, a3, n] + S2[SP[a1, a1], a5, a3, a2, a4, n] + 
    S2[SP[a1, a1], a5, a3, a4, a2, n] + S2[SP[a1, a1], a5, a4, a2, a3, n] + 
    S2[SP[a1, a1], a5, a4, a3, a2, n] - 2*S2[SP[a1, a5], a1, a2, a3, a4, n] - 
    2*S2[SP[a1, a5], a1, a2, a4, a3, n] - 
    2*S2[SP[a1, a5], a1, a3, a2, a4, n] - 
    2*S2[SP[a1, a5], a1, a3, a4, a2, n] - 
    2*S2[SP[a1, a5], a1, a4, a2, a3, n] - 
    2*S2[SP[a1, a5], a1, a4, a3, a2, n] - S2[SP[a1, a5], a2, a1, a3, a4, n] - 
    S2[SP[a1, a5], a2, a1, a4, a3, n] - S2[SP[a1, a5], a2, a4, a1, a3, n] - 
    S2[SP[a1, a5], a3, a1, a2, a4, n] - S2[SP[a1, a5], a3, a1, a4, a2, n] - 
    S2[SP[a1, a5], a3, a4, a1, a2, n] - 2*S2[SP[a1, a5], a4, a1, a2, a3, n] - 
    2*S2[SP[a1, a5], a4, a1, a3, a2, n] - S2[SP[a1, a5], a4, a2, a1, a3, n] - 
    S2[SP[a1, a5], a4, a3, a1, a2, n] + 2*S2[SP[a4, a5], a1, a1, a2, a3, n] + 
    2*S2[SP[a4, a5], a1, a1, a3, a2, n] + S2[SP[a4, a5], a1, a2, a1, a3, n] + 
    S2[SP[a4, a5], a1, a3, a1, a2, n] + S2[a5, a2, a1, a4, a1, a3, n] + 
    2*S2[a5, a2, a4, a1, a1, a3, n] + S2[a5, a2, a4, a1, a3, a1, n] + 
    S2[a5, a4, a1, a2, a1, a3, n] + S2[a5, a4, a1, a2, a3, a1, n] + 
    S2[a5, a4, a1, a3, a2, a1, n] + 2*S2[a5, a4, a2, a1, a1, a3, n] + 
    S2[a5, a4, a2, a1, a3, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a1_, a2_, a5_, a4_, a3_, a1_, n_] :> 
  -(S2[a1, a2, n]*S2[a1, a3, a4, a5, n]) - S2[a1, a2, n]*
     S2[a1, a3, a5, a4, n] + S2[a1, a3, SP[a1, a4], SP[a2, a5], n] + 
    S2[a1, a3, SP[a1, a5], SP[a2, a4], n] - S2[a1, a2, n]*
     S2[a1, a5, a3, a4, n] - S2[a1, a2, n]*S2[a1, a5, a4, a3, n] + 
    S2[a1, a5, SP[a1, a3], SP[a2, a4], n] + S2[a1, a5, SP[a1, a4], 
     SP[a2, a3], n] + S2[a1, SP[a1, a3], a4, SP[a2, a5], n] + 
    S2[a1, SP[a1, a3], a5, SP[a2, a4], n] + S2[a1, SP[a1, a3], SP[a2, a4], 
     a5, n] + S2[a1, SP[a1, a3], SP[a2, a5], a4, n] + 
    S2[a1, SP[a1, a5], a3, SP[a2, a4], n] + S2[a1, SP[a1, a5], a4, 
     SP[a2, a3], n] + S2[a1, SP[a1, a5], SP[a2, a3], a4, n] + 
    S2[a1, SP[a1, a5], SP[a2, a4], a3, n] + S2[a1, a2, n]*
     S2[a4, a5, a1, a3, n] - S2[a4, a5, SP[a1, a1], SP[a2, a3], n] - 
    S2[a4, SP[a1, a5], a1, SP[a2, a3], n] - S2[a4, SP[a1, a5], SP[a1, a2], 
     a3, n] + S2[SP[a1, a1], a3, a4, SP[a2, a5], n] + 
    S2[SP[a1, a1], a3, a5, SP[a2, a4], n] + S2[SP[a1, a1], a3, SP[a2, a4], 
     a5, n] + S2[SP[a1, a1], a3, SP[a2, a5], a4, n] + 
    S2[SP[a1, a1], a5, a3, SP[a2, a4], n] + S2[SP[a1, a1], a5, a4, 
     SP[a2, a3], n] + S2[SP[a1, a1], a5, SP[a2, a3], a4, n] + 
    S2[SP[a1, a1], a5, SP[a2, a4], a3, n] + S2[SP[a1, a1], SP[a2, a3], a4, 
     a5, n] + S2[SP[a1, a1], SP[a2, a3], a5, a4, n] + 
    S2[SP[a1, a1], SP[a2, a5], a3, a4, n] + S2[SP[a1, a1], SP[a2, a5], a4, 
     a3, n] - S2[SP[a1, a4], a5, a1, SP[a2, a3], n] - 
    S2[SP[a1, a4], a5, SP[a1, a2], a3, n] - S2[SP[a1, a4], SP[a2, a5], a1, 
     a3, n] + 2*S2[a5, n]*S2[a1, a1, a2, a3, a4, n] + 
    2*S2[a1, a1, a2, a3, SP[a4, a5], n] + 
    2*S2[a1, a1, a2, SP[a3, a5], a4, n] + 
    2*S2[a5, n]*S2[a1, a1, a3, a2, a4, n] + 
    2*S2[a1, a1, a3, a2, SP[a4, a5], n] + 
    2*S2[a5, n]*S2[a1, a1, a3, a4, a2, n] - 
    2*S2[a1, a1, a3, a5, SP[a2, a4], n] - 
    2*S2[a1, a1, a3, SP[a2, a4], a5, n] + 
    2*S2[a1, a1, a3, SP[a4, a5], a2, n] - 
    2*S2[a1, a1, a5, a3, SP[a2, a4], n] - 
    2*S2[a1, a1, a5, a4, SP[a2, a3], n] - 
    2*S2[a1, a1, a5, SP[a2, a3], a4, n] - 
    2*S2[a1, a1, a5, SP[a2, a4], a3, n] - 
    2*S2[a1, a1, SP[a2, a3], a4, a5, n] - 
    2*S2[a1, a1, SP[a2, a3], a5, a4, n] - 
    2*S2[a1, a1, SP[a2, a5], a4, a3, n] + 
    2*S2[a1, a1, SP[a3, a5], a2, a4, n] + 
    2*S2[a1, a1, SP[a3, a5], a4, a2, n] + 
    S2[a5, n]*S2[a1, a2, a1, a3, a4, n] + S2[a1, a2, a1, a3, SP[a4, a5], n] + 
    S2[a1, a2, a1, SP[a3, a5], a4, n] - S2[a4, n]*S2[a1, a2, a5, a1, a3, n] - 
    S2[a1, a2, a5, a1, SP[a3, a4], n] + S2[a1, n]*S2[a1, a2, a5, a4, a3, n] + 
    S2[a1, a2, a5, a4, SP[a1, a3], n] + S2[a1, a2, SP[a1, a5], a3, a4, n] + 
    S2[a1, a2, SP[a1, a5], a4, a3, n] - S2[a1, a2, SP[a4, a5], a1, a3, n] + 
    S2[a5, n]*S2[a1, a3, a1, a2, a4, n] + S2[a1, a3, a1, a2, SP[a4, a5], n] + 
    S2[a5, n]*S2[a1, a3, a1, a4, a2, n] - S2[a1, a3, a1, a5, SP[a2, a4], n] - 
    S2[a1, a3, a1, SP[a2, a4], a5, n] + S2[a1, a3, a1, SP[a4, a5], a2, n] + 
    S2[a5, n]*S2[a1, a3, a4, a1, a2, n] - S2[a1, a3, a5, a1, SP[a2, a4], n] - 
    S2[a1, a3, a5, SP[a1, a4], a2, n] - S2[a1, a3, SP[a1, a4], a2, a5, n] - 
    S2[a1, a3, SP[a1, a4], a5, a2, n] + S2[a1, a3, SP[a4, a5], a1, a2, n] + 
    S2[a1, a4, a5, a1, SP[a2, a3], n] + S2[a1, a4, a5, SP[a1, a2], a3, n] + 
    S2[a1, a4, SP[a2, a5], a1, a3, n] - S2[a4, n]*S2[a1, a5, a1, a2, a3, n] - 
    S2[a1, a5, a1, a2, SP[a3, a4], n] - S2[a4, n]*S2[a1, a5, a1, a3, a2, n] - 
    2*S2[a1, a5, a1, a3, SP[a2, a4], n] - S2[a1, a5, a1, a4, SP[a2, a3], n] - 
    S2[a1, a5, a1, SP[a2, a3], a4, n] - 2*S2[a1, a5, a1, SP[a2, a4], a3, n] - 
    S2[a1, a5, a1, SP[a3, a4], a2, n] - S2[a4, n]*S2[a1, a5, a2, a1, a3, n] - 
    S2[a1, a5, a2, a1, SP[a3, a4], n] + S2[a1, n]*S2[a1, a5, a2, a4, a3, n] + 
    S2[a1, a5, a2, a4, SP[a1, a3], n] - S2[a1, a5, a3, a1, SP[a2, a4], n] - 
    S2[a1, a5, a3, SP[a1, a4], a2, n] - S2[a1, a5, a4, a1, SP[a2, a3], n] + 
    S2[a1, n]*S2[a1, a5, a4, a2, a3, n] + S2[a1, a5, a4, a2, SP[a1, a3], n] + 
    S2[a1, n]*S2[a1, a5, a4, a3, a2, n] + S2[a1, a5, a4, a3, SP[a1, a2], n] + 
    S2[a1, a5, a4, SP[a1, a2], a3, n] + S2[a1, a5, SP[a1, a2], a4, a3, n] - 
    S2[a1, a5, SP[a1, a3], a2, a4, n] - S2[a1, a5, SP[a1, a3], a4, a2, n] - 
    S2[a1, a5, SP[a1, a4], a2, a3, n] - S2[a1, a5, SP[a1, a4], a3, a2, n] - 
    S2[a1, a5, SP[a2, a4], a1, a3, n] - S2[a1, SP[a1, a2], a3, a4, a5, n] - 
    S2[a1, SP[a1, a2], a3, a5, a4, n] - S2[a1, SP[a1, a2], a5, a3, a4, n] - 
    S2[a1, SP[a1, a3], a2, a4, a5, n] - S2[a1, SP[a1, a3], a2, a5, a4, n] - 
    S2[a1, SP[a1, a3], a4, a2, a5, n] - S2[a1, SP[a1, a3], a4, a5, a2, n] - 
    S2[a1, SP[a1, a3], a5, a2, a4, n] - S2[a1, SP[a1, a3], a5, a4, a2, n] + 
    S2[a1, SP[a1, a5], a2, a3, a4, n] + S2[a1, SP[a1, a5], a3, a2, a4, n] + 
    S2[a1, SP[a1, a5], a3, a4, a2, n] + S2[a1, SP[a2, a5], a1, a3, a4, n] + 
    S2[a1, SP[a3, a5], a1, a2, a4, n] + S2[a1, SP[a3, a5], a1, a4, a2, n] + 
    S2[a1, SP[a3, a5], a4, a1, a2, n] - S2[a1, SP[a4, a5], a1, a2, a3, n] - 
    S2[a1, SP[a4, a5], a1, a3, a2, n] - S2[a1, SP[a4, a5], a2, a1, a3, n] + 
    S2[a4, a1, a5, a1, SP[a2, a3], n] + S2[a4, a1, a5, SP[a1, a2], a3, n] + 
    S2[a4, a1, SP[a2, a5], a1, a3, n] + 2*S2[a4, a5, a1, a1, SP[a2, a3], n] + 
    S2[a4, a5, a1, SP[a1, a2], a3, n] + S2[a4, a5, a1, SP[a1, a3], a2, n] + 
    S2[a4, a5, SP[a1, a1], a2, a3, n] + S2[a4, a5, SP[a1, a1], a3, a2, n] + 
    S2[a4, SP[a1, a5], a1, a2, a3, n] + S2[a4, SP[a1, a5], a1, a3, a2, n] + 
    S2[a4, SP[a1, a5], a2, a1, a3, n] - 2*S2[a4, n]*
     S2[a5, a1, a1, a2, a3, n] - 2*S2[a5, a1, a1, a2, SP[a3, a4], n] - 
    2*S2[a4, n]*S2[a5, a1, a1, a3, a2, n] - 
    2*S2[a5, a1, a1, a3, SP[a2, a4], n] - 
    2*S2[a5, a1, a1, SP[a2, a4], a3, n] - 
    2*S2[a5, a1, a1, SP[a3, a4], a2, n] - 
    S2[a4, n]*S2[a5, a1, a2, a1, a3, n] - S2[a5, a1, a2, a1, SP[a3, a4], n] + 
    S2[a1, n]*S2[a5, a1, a2, a4, a3, n] + S2[a5, a1, a2, a4, SP[a1, a3], n] - 
    S2[a4, n]*S2[a5, a1, a3, a1, a2, n] - S2[a5, a1, a3, a1, SP[a2, a4], n] - 
    S2[a5, a1, a3, SP[a1, a4], a2, n] + S2[a1, n]*S2[a5, a1, a4, a2, a3, n] + 
    S2[a5, a1, a4, a2, SP[a1, a3], n] + S2[a1, n]*S2[a5, a1, a4, a3, a2, n] + 
    S2[a5, a1, a4, a3, SP[a1, a2], n] + S2[a5, a1, a4, SP[a1, a2], a3, n] + 
    S2[a5, a1, a4, SP[a1, a3], a2, n] + S2[a5, a1, SP[a1, a2], a4, a3, n] - 
    S2[a5, a1, SP[a1, a4], a2, a3, n] - S2[a5, a1, SP[a1, a4], a3, a2, n] - 
    S2[a5, a1, SP[a2, a4], a1, a3, n] - S2[a5, a1, SP[a3, a4], a1, a2, n] - 
    S2[a1, n]*S2[a5, a2, a4, a3, a1, n] - S2[a5, a2, a4, a3, SP[a1, a1], n] - 
    S2[a5, a2, a4, SP[a1, a3], a1, n] - S2[a5, a2, SP[a1, a4], a3, a1, n] + 
    S2[a1, n]*S2[a5, a4, a1, a2, a3, n] + S2[a5, a4, a1, a2, SP[a1, a3], n] + 
    S2[a1, n]*S2[a5, a4, a1, a3, a2, n] + S2[a5, a4, a1, a3, SP[a1, a2], n] + 
    S2[a5, a4, a1, SP[a1, a2], a3, n] + S2[a5, a4, a1, SP[a1, a3], a2, n] - 
    S2[a1, n]*S2[a5, a4, a2, a3, a1, n] - S2[a5, a4, a2, a3, SP[a1, a1], n] - 
    S2[a5, a4, a2, SP[a1, a3], a1, n] - S2[a1, n]*S2[a5, a4, a3, a2, a1, n] - 
    S2[a5, a4, a3, a2, SP[a1, a1], n] - S2[a5, a4, a3, SP[a1, a2], a1, n] + 
    S2[a5, a4, SP[a1, a1], a2, a3, n] + S2[a5, a4, SP[a1, a1], a3, a2, n] - 
    S2[a5, a4, SP[a1, a2], a3, a1, n] - S2[a5, a4, SP[a1, a3], a2, a1, n] + 
    S2[a5, SP[a1, a1], a2, a4, a3, n] + S2[a5, SP[a1, a1], a4, a2, a3, n] + 
    S2[a5, SP[a1, a1], a4, a3, a2, n] - S2[a5, SP[a1, a2], a4, a3, a1, n] - 
    S2[a5, SP[a1, a4], a1, a2, a3, n] - S2[a5, SP[a1, a4], a1, a3, a2, n] - 
    S2[a5, SP[a1, a4], a2, a1, a3, n] - S2[a5, SP[a1, a4], a2, a3, a1, n] - 
    S2[a5, SP[a1, a4], a3, a1, a2, n] - S2[a5, SP[a1, a4], a3, a2, a1, n] - 
    S2[SP[a1, a1], a2, a3, a4, a5, n] - S2[SP[a1, a1], a2, a3, a5, a4, n] - 
    S2[SP[a1, a1], a2, a5, a3, a4, n] - S2[SP[a1, a1], a3, a2, a4, a5, n] - 
    S2[SP[a1, a1], a3, a2, a5, a4, n] - S2[SP[a1, a1], a3, a4, a2, a5, n] - 
    S2[SP[a1, a1], a3, a4, a5, a2, n] - S2[SP[a1, a1], a3, a5, a2, a4, n] - 
    S2[SP[a1, a1], a3, a5, a4, a2, n] - S2[SP[a1, a1], a5, a2, a3, a4, n] - 
    S2[SP[a1, a1], a5, a3, a2, a4, n] - S2[SP[a1, a1], a5, a3, a4, a2, n] + 
    2*S2[SP[a1, a5], a1, a2, a3, a4, n] + S2[SP[a1, a5], a1, a2, a4, a3, n] + 
    2*S2[SP[a1, a5], a1, a3, a2, a4, n] + 
    2*S2[SP[a1, a5], a1, a3, a4, a2, n] + S2[SP[a1, a5], a1, a4, a2, a3, n] + 
    S2[SP[a1, a5], a1, a4, a3, a2, n] + S2[SP[a1, a5], a2, a1, a3, a4, n] - 
    S2[SP[a1, a5], a2, a4, a3, a1, n] + S2[SP[a1, a5], a3, a1, a2, a4, n] + 
    S2[SP[a1, a5], a3, a1, a4, a2, n] + S2[SP[a1, a5], a3, a4, a1, a2, n] + 
    S2[SP[a1, a5], a4, a1, a2, a3, n] + S2[SP[a1, a5], a4, a1, a3, a2, n] - 
    S2[SP[a1, a5], a4, a2, a3, a1, n] - S2[SP[a1, a5], a4, a3, a2, a1, n] - 
    2*S2[SP[a4, a5], a1, a1, a2, a3, n] - 
    2*S2[SP[a4, a5], a1, a1, a3, a2, n] - S2[SP[a4, a5], a1, a2, a1, a3, n] - 
    S2[SP[a4, a5], a1, a3, a1, a2, n] + S2[a5, a2, a1, a4, a3, a1, n] + 
    S2[a5, a2, a4, a1, a3, a1, n] + 2*S2[a5, a2, a4, a3, a1, a1, n] + 
    S2[a5, a4, a2, a1, a3, a1, n] + 2*S2[a5, a4, a2, a3, a1, a1, n] + 
    S2[a5, a4, a3, a1, a2, a1, n] + 2*S2[a5, a4, a3, a2, a1, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a1_, a3_, a1_, a2_, a4_, a5_, n_] :> 
  -2*S2[a1, a1, a3, n]*S2[a2, a4, a5, n] - 
    2*S2[SP[a1, a2], SP[a1, a4], SP[a3, a5], n] - 
    2*S2[a4, a5, n]*S2[a1, a1, a2, a3, n] - 2*S2[a4, a5, n]*
     S2[a1, a1, a3, a2, n] + 2*S2[a1, a1, SP[a2, a4], SP[a3, a5], n] + 
    2*S2[a1, a1, SP[a3, a4], SP[a2, a5], n] - 
    S2[a4, a5, n]*S2[a1, a2, a1, a3, n] + S2[a1, a3, n]*
     S2[a1, a2, a4, a5, n] + 2*S2[a1, a2, SP[a1, a4], SP[a3, a5], n] + 
    S2[a1, SP[a1, a2], a4, SP[a3, a5], n] + S2[a1, SP[a1, a2], SP[a3, a4], 
     a5, n] + 2*S2[a1, SP[a1, a4], a2, SP[a3, a5], n] + 
    2*S2[a1, SP[a1, a4], a3, SP[a2, a5], n] + 
    2*S2[a1, SP[a1, a4], SP[a2, a5], a3, n] + 
    2*S2[a1, SP[a1, a4], SP[a3, a5], a2, n] + S2[a1, SP[a2, a4], a1, 
     SP[a3, a5], n] + S2[a1, SP[a2, a4], SP[a1, a5], a3, n] + 
    2*S2[a2, a1, SP[a1, a4], SP[a3, a5], n] + 
    2*S2[a2, SP[a1, a4], a1, SP[a3, a5], n] + 
    2*S2[a2, SP[a1, a4], SP[a1, a5], a3, n] - S2[SP[a1, a1], a2, a4, 
     SP[a3, a5], n] - S2[SP[a1, a1], a2, SP[a3, a4], a5, n] - 
    S2[SP[a1, a1], SP[a2, a3], a4, a5, n] + 
    2*S2[SP[a1, a2], a1, a4, SP[a3, a5], n] + 
    2*S2[SP[a1, a2], a1, SP[a3, a4], a5, n] + 
    2*S2[SP[a1, a2], a4, a1, SP[a3, a5], n] + 
    2*S2[SP[a1, a2], a4, SP[a1, a5], a3, n] + 
    2*S2[SP[a1, a2], SP[a1, a4], a3, a5, n] + 
    2*S2[SP[a1, a2], SP[a1, a4], a5, a3, n] + 
    2*S2[SP[a1, a4], a1, a2, SP[a3, a5], n] + 
    2*S2[SP[a1, a4], a1, a3, SP[a2, a5], n] + 
    2*S2[SP[a1, a4], a1, SP[a2, a5], a3, n] + 
    2*S2[SP[a1, a4], a1, SP[a3, a5], a2, n] + S2[SP[a1, a4], a2, a1, 
     SP[a3, a5], n] + S2[SP[a1, a4], a2, SP[a1, a5], a3, n] + 
    2*S2[SP[a1, a4], SP[a1, a5], a2, a3, n] + 
    2*S2[SP[a1, a4], SP[a1, a5], a3, a2, n] + S2[SP[a1, a4], SP[a2, a5], a1, 
     a3, n] - 2*S2[a5, n]*S2[a1, a1, a2, a3, a4, n] + 
    2*S2[a4, n]*S2[a1, a1, a2, a3, a5, n] - 
    2*S2[a5, n]*S2[a1, a1, a2, a4, a3, n] - 
    4*S2[a1, a1, a2, a4, SP[a3, a5], n] + 
    2*S2[a4, n]*S2[a1, a1, a2, a5, a3, n] + 
    2*S2[a1, a1, a2, a5, SP[a3, a4], n] - 
    2*S2[a1, a1, a2, SP[a3, a5], a4, n] - 
    2*S2[a5, n]*S2[a1, a1, a3, a2, a4, n] + 
    2*S2[a4, n]*S2[a1, a1, a3, a2, a5, n] - 
    2*S2[a5, n]*S2[a1, a1, a3, a4, a2, n] + 
    2*S2[a2, n]*S2[a1, a1, a3, a4, a5, n] - 
    2*S2[a1, a1, a3, a4, SP[a2, a5], n] + 
    2*S2[a4, n]*S2[a1, a1, a3, a5, a2, n] + 
    2*S2[a1, a1, a3, a5, SP[a2, a4], n] + 
    2*S2[a1, a1, a3, SP[a2, a4], a5, n] - 
    2*S2[a1, a1, a3, SP[a2, a5], a4, n] - 
    2*S2[a5, n]*S2[a1, a1, a4, a2, a3, n] - 
    4*S2[a1, a1, a4, a2, SP[a3, a5], n] - 
    2*S2[a5, n]*S2[a1, a1, a4, a3, a2, n] + 
    2*S2[a2, n]*S2[a1, a1, a4, a3, a5, n] - 
    2*S2[a1, a1, a4, a3, SP[a2, a5], n] + 
    2*S2[a2, n]*S2[a1, a1, a4, a5, a3, n] + 
    2*S2[a1, a1, a4, a5, SP[a2, a3], n] + 
    2*S2[a1, a1, a4, SP[a2, a3], a5, n] - 
    2*S2[a1, a1, a4, SP[a2, a5], a3, n] - 
    4*S2[a1, a1, a4, SP[a3, a5], a2, n] + 
    2*S2[a4, n]*S2[a1, a1, a5, a2, a3, n] + 
    2*S2[a1, a1, a5, a2, SP[a3, a4], n] + 
    2*S2[a4, n]*S2[a1, a1, a5, a3, a2, n] + 
    2*S2[a1, a1, a5, a3, SP[a2, a4], n] + 
    2*S2[a1, a1, a5, SP[a2, a4], a3, n] + 
    2*S2[a1, a1, a5, SP[a3, a4], a2, n] + 
    2*S2[a1, a1, SP[a2, a3], a4, a5, n] + 
    2*S2[a1, a1, SP[a2, a4], a3, a5, n] + 
    2*S2[a1, a1, SP[a2, a4], a5, a3, n] - 
    2*S2[a1, a1, SP[a2, a5], a3, a4, n] - 
    2*S2[a1, a1, SP[a2, a5], a4, a3, n] - 
    2*S2[a1, a1, SP[a3, a5], a2, a4, n] - 
    2*S2[a1, a1, SP[a3, a5], a4, a2, n] - 
    S2[a5, n]*S2[a1, a2, a1, a3, a4, n] + 
    S2[a4, n]*S2[a1, a2, a1, a3, a5, n] - 
    S2[a5, n]*S2[a1, a2, a1, a4, a3, n] - 
    3*S2[a1, a2, a1, a4, SP[a3, a5], n] + 
    S2[a4, n]*S2[a1, a2, a1, a5, a3, n] + S2[a1, a2, a1, a5, SP[a3, a4], n] - 
    S2[a1, a2, a1, SP[a3, a4], a5, n] - S2[a1, a2, a1, SP[a3, a5], a4, n] - 
    S2[a5, n]*S2[a1, a2, a4, a1, a3, n] - 
    3*S2[a1, a2, a4, a1, SP[a3, a5], n] - 
    3*S2[a1, a2, a4, SP[a1, a5], a3, n] + 
    S2[a4, n]*S2[a1, a2, a5, a1, a3, n] + S2[a1, a2, a5, a1, SP[a3, a4], n] + 
    S2[a1, a2, a5, SP[a1, a4], a3, n] - S2[a1, a2, SP[a1, a4], a3, a5, n] - 
    S2[a1, a2, SP[a1, a4], a5, a3, n] - S2[a1, a2, SP[a1, a5], a3, a4, n] - 
    S2[a1, a2, SP[a1, a5], a4, a3, n] - 2*S2[a5, n]*
     S2[a1, a4, a1, a2, a3, n] - 4*S2[a1, a4, a1, a2, SP[a3, a5], n] - 
    2*S2[a5, n]*S2[a1, a4, a1, a3, a2, n] + 
    2*S2[a2, n]*S2[a1, a4, a1, a3, a5, n] - 
    2*S2[a1, a4, a1, a3, SP[a2, a5], n] + 
    2*S2[a2, n]*S2[a1, a4, a1, a5, a3, n] + 
    2*S2[a1, a4, a1, a5, SP[a2, a3], n] + 
    2*S2[a1, a4, a1, SP[a2, a3], a5, n] - 
    2*S2[a1, a4, a1, SP[a2, a5], a3, n] - 
    4*S2[a1, a4, a1, SP[a3, a5], a2, n] - 
    2*S2[a5, n]*S2[a1, a4, a2, a1, a3, n] - 
    3*S2[a1, a4, a2, a1, SP[a3, a5], n] - 
    3*S2[a1, a4, a2, SP[a1, a5], a3, n] + 
    2*S2[a2, n]*S2[a1, a4, a5, a1, a3, n] + 
    2*S2[a1, a4, a5, a1, SP[a2, a3], n] + 
    2*S2[a1, a4, a5, SP[a1, a2], a3, n] + 
    2*S2[a1, a4, SP[a1, a2], a3, a5, n] + 
    2*S2[a1, a4, SP[a1, a2], a5, a3, n] - 
    4*S2[a1, a4, SP[a1, a5], a2, a3, n] - 
    4*S2[a1, a4, SP[a1, a5], a3, a2, n] - S2[a1, a4, SP[a2, a5], a1, a3, n] + 
    2*S2[a4, n]*S2[a1, a5, a1, a2, a3, n] + 
    2*S2[a1, a5, a1, a2, SP[a3, a4], n] + 
    2*S2[a4, n]*S2[a1, a5, a1, a3, a2, n] + 
    2*S2[a1, a5, a1, a3, SP[a2, a4], n] + 
    2*S2[a1, a5, a1, SP[a2, a4], a3, n] + 
    2*S2[a1, a5, a1, SP[a3, a4], a2, n] + 
    S2[a4, n]*S2[a1, a5, a2, a1, a3, n] + S2[a1, a5, a2, a1, SP[a3, a4], n] + 
    S2[a1, a5, a2, SP[a1, a4], a3, n] + 2*S2[a1, a5, SP[a1, a4], a2, a3, n] + 
    2*S2[a1, a5, SP[a1, a4], a3, a2, n] + S2[a1, a5, SP[a2, a4], a1, a3, n] + 
    S2[a1, SP[a1, a2], a3, a4, a5, n] + S2[a1, SP[a1, a2], a4, a3, a5, n] + 
    S2[a1, SP[a1, a2], a4, a5, a3, n] + S2[a1, SP[a1, a3], a2, a4, a5, n] - 
    2*S2[a1, SP[a1, a5], a2, a3, a4, n] - 
    2*S2[a1, SP[a1, a5], a2, a4, a3, n] - 
    2*S2[a1, SP[a1, a5], a3, a2, a4, n] - 
    2*S2[a1, SP[a1, a5], a3, a4, a2, n] - 
    2*S2[a1, SP[a1, a5], a4, a2, a3, n] - 
    2*S2[a1, SP[a1, a5], a4, a3, a2, n] + 
    2*S2[a1, SP[a2, a4], a1, a3, a5, n] + 
    2*S2[a1, SP[a2, a4], a1, a5, a3, n] + 
    2*S2[a1, SP[a2, a4], a5, a1, a3, n] - S2[a1, SP[a2, a5], a1, a3, a4, n] - 
    S2[a1, SP[a2, a5], a1, a4, a3, n] - S2[a1, SP[a2, a5], a4, a1, a3, n] - 
    S2[a1, SP[a4, a5], a2, a1, a3, n] - 2*S2[a2, a1, a1, a4, SP[a3, a5], n] - 
    2*S2[a2, a1, a1, SP[a3, a4], a5, n] - 
    2*S2[a2, a1, a4, a1, SP[a3, a5], n] - 
    2*S2[a2, a1, a4, SP[a1, a5], a3, n] - 
    2*S2[a2, a1, SP[a1, a4], a3, a5, n] - 
    2*S2[a2, a1, SP[a1, a4], a5, a3, n] + 
    2*S2[a5, n]*S2[a2, a4, a1, a1, a3, n] - 
    2*S2[a2, SP[a1, a4], a1, a3, a5, n] - 
    2*S2[a2, SP[a1, a4], a1, a5, a3, n] - 
    2*S2[a2, SP[a1, a4], a5, a1, a3, n] + 
    2*S2[a2, SP[a4, a5], a1, a1, a3, n] - 
    2*S2[a4, a1, a1, a2, SP[a3, a5], n] - 
    2*S2[a4, a1, a1, a3, SP[a2, a5], n] - 
    2*S2[a4, a1, a1, SP[a2, a5], a3, n] - 
    2*S2[a4, a1, a1, SP[a3, a5], a2, n] - S2[a4, a1, a2, a1, SP[a3, a5], n] - 
    S2[a4, a1, a2, SP[a1, a5], a3, n] - 2*S2[a4, a1, SP[a1, a5], a2, a3, n] - 
    2*S2[a4, a1, SP[a1, a5], a3, a2, n] - S2[a4, a1, SP[a2, a5], a1, a3, n] - 
    2*S2[a4, SP[a1, a5], a1, a2, a3, n] - 
    2*S2[a4, SP[a1, a5], a1, a3, a2, n] - S2[a4, SP[a1, a5], a2, a1, a3, n] + 
    2*S2[a4, n]*S2[a5, a1, a1, a2, a3, n] + 
    2*S2[a5, a1, a1, a2, SP[a3, a4], n] + 
    2*S2[a4, n]*S2[a5, a1, a1, a3, a2, n] + 
    2*S2[a5, a1, a1, a3, SP[a2, a4], n] + 
    2*S2[a5, a1, a1, SP[a2, a4], a3, n] + 
    2*S2[a5, a1, a1, SP[a3, a4], a2, n] + 
    S2[a4, n]*S2[a5, a1, a2, a1, a3, n] + S2[a5, a1, a2, a1, SP[a3, a4], n] + 
    S2[a5, a1, a2, SP[a1, a4], a3, n] + 2*S2[a5, a1, SP[a1, a4], a2, a3, n] + 
    2*S2[a5, a1, SP[a1, a4], a3, a2, n] + S2[a5, a1, SP[a2, a4], a1, a3, n] - 
    2*S2[a2, n]*S2[a5, a4, a1, a1, a3, n] - 
    2*S2[a5, a4, a1, a1, SP[a2, a3], n] - 
    2*S2[a5, a4, a1, SP[a1, a2], a3, n] + 
    S2[a1, n]*S2[a5, a4, a2, a1, a3, n] + S2[a5, a4, a2, a1, SP[a1, a3], n] + 
    S2[a5, a4, a2, SP[a1, a1], a3, n] - S2[a5, a4, SP[a1, a2], a1, a3, n] + 
    2*S2[a5, SP[a1, a4], a1, a2, a3, n] + 
    2*S2[a5, SP[a1, a4], a1, a3, a2, n] + 
    2*S2[a5, SP[a1, a4], a2, a1, a3, n] - 
    2*S2[a5, SP[a2, a4], a1, a1, a3, n] + S2[SP[a1, a1], a2, a3, a4, a5, n] + 
    S2[SP[a1, a1], a2, a4, a3, a5, n] + S2[SP[a1, a1], a2, a4, a5, a3, n] + 
    S2[SP[a1, a1], a3, a2, a4, a5, n] - 2*S2[SP[a1, a5], a1, a2, a3, a4, n] - 
    2*S2[SP[a1, a5], a1, a2, a4, a3, n] - 
    2*S2[SP[a1, a5], a1, a3, a2, a4, n] - 
    2*S2[SP[a1, a5], a1, a3, a4, a2, n] - 
    2*S2[SP[a1, a5], a1, a4, a2, a3, n] - 
    2*S2[SP[a1, a5], a1, a4, a3, a2, n] - S2[SP[a1, a5], a2, a1, a3, a4, n] - 
    S2[SP[a1, a5], a2, a1, a4, a3, n] - S2[SP[a1, a5], a2, a4, a1, a3, n] - 
    2*S2[SP[a1, a5], a4, a1, a2, a3, n] - 
    2*S2[SP[a1, a5], a4, a1, a3, a2, n] - S2[SP[a1, a5], a4, a2, a1, a3, n] + 
    2*S2[SP[a4, a5], a1, a1, a2, a3, n] + 
    2*S2[SP[a4, a5], a1, a1, a3, a2, n] + S2[SP[a4, a5], a1, a2, a1, a3, n] - 
    S2[a5, a4, a2, a1, a3, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a1_, a3_, a1_, a2_, a5_, a4_, n_] :> 
  -2*S2[a1, a1, a3, n]*S2[a2, a5, a4, n] - 
    2*S2[SP[a1, a2], SP[a1, a5], SP[a3, a4], n] + 
    2*S2[a4, a5, n]*S2[a1, a1, a2, a3, n] + 2*S2[a4, a5, n]*
     S2[a1, a1, a3, a2, n] - 2*S2[a1, a1, SP[a2, a4], SP[a3, a5], n] - 
    2*S2[a1, a1, SP[a3, a4], SP[a2, a5], n] + 
    S2[a4, a5, n]*S2[a1, a2, a1, a3, n] + S2[a1, a3, n]*
     S2[a1, a2, a5, a4, n] - S2[a1, a2, SP[a1, a4], SP[a3, a5], n] + 
    S2[a1, a2, SP[a1, a5], SP[a3, a4], n] + S2[a1, SP[a1, a2], a5, 
     SP[a3, a4], n] + S2[a1, SP[a1, a2], SP[a3, a5], a4, n] - 
    2*S2[a1, SP[a1, a4], a2, SP[a3, a5], n] - 
    2*S2[a1, SP[a1, a4], a3, SP[a2, a5], n] - 
    2*S2[a1, SP[a1, a4], SP[a2, a5], a3, n] - 
    2*S2[a1, SP[a1, a4], SP[a3, a5], a2, n] - S2[a1, SP[a2, a4], a1, 
     SP[a3, a5], n] - S2[a1, SP[a2, a4], SP[a1, a5], a3, n] + 
    2*S2[a2, a1, SP[a1, a5], SP[a3, a4], n] + 
    2*S2[a2, SP[a1, a5], a1, SP[a3, a4], n] + 
    2*S2[a2, SP[a1, a5], SP[a1, a4], a3, n] - S2[SP[a1, a1], a2, a5, 
     SP[a3, a4], n] - S2[SP[a1, a1], a2, SP[a3, a5], a4, n] - 
    S2[SP[a1, a1], SP[a2, a3], a5, a4, n] + 
    2*S2[SP[a1, a2], a1, a5, SP[a3, a4], n] + 
    2*S2[SP[a1, a2], a1, SP[a3, a5], a4, n] + 
    2*S2[SP[a1, a2], a5, a1, SP[a3, a4], n] + 
    2*S2[SP[a1, a2], a5, SP[a1, a4], a3, n] + 
    2*S2[SP[a1, a2], SP[a1, a5], a3, a4, n] + 
    2*S2[SP[a1, a2], SP[a1, a5], a4, a3, n] - 
    2*S2[SP[a1, a4], a1, a2, SP[a3, a5], n] - 
    2*S2[SP[a1, a4], a1, a3, SP[a2, a5], n] - 
    2*S2[SP[a1, a4], a1, SP[a2, a5], a3, n] - 
    2*S2[SP[a1, a4], a1, SP[a3, a5], a2, n] - S2[SP[a1, a4], a2, a1, 
     SP[a3, a5], n] - S2[SP[a1, a4], a2, SP[a1, a5], a3, n] - 
    2*S2[SP[a1, a4], SP[a1, a5], a2, a3, n] - 
    2*S2[SP[a1, a4], SP[a1, a5], a3, a2, n] - S2[SP[a1, a4], SP[a2, a5], a1, 
     a3, n] - 2*S2[a4, n]*S2[a1, a1, a2, a3, a5, n] - 
    2*S2[a1, a1, a2, a3, SP[a4, a5], n] + 
    2*S2[a1, a1, a2, a4, SP[a3, a5], n] - 
    2*S2[a4, n]*S2[a1, a1, a2, a5, a3, n] - 
    2*S2[a1, a1, a2, a5, SP[a3, a4], n] - 
    2*S2[a1, a1, a2, SP[a4, a5], a3, n] - 
    2*S2[a4, n]*S2[a1, a1, a3, a2, a5, n] - 
    2*S2[a1, a1, a3, a2, SP[a4, a5], n] + 
    2*S2[a1, a1, a3, a4, SP[a2, a5], n] - 
    2*S2[a4, n]*S2[a1, a1, a3, a5, a2, n] + 
    2*S2[a2, n]*S2[a1, a1, a3, a5, a4, n] + 
    2*S2[a1, a1, a3, SP[a2, a5], a4, n] - 
    2*S2[a1, a1, a3, SP[a4, a5], a2, n] + 
    2*S2[a1, a1, a4, a2, SP[a3, a5], n] + 
    2*S2[a1, a1, a4, a3, SP[a2, a5], n] + 
    2*S2[a1, a1, a4, SP[a2, a5], a3, n] + 
    2*S2[a1, a1, a4, SP[a3, a5], a2, n] - 
    2*S2[a4, n]*S2[a1, a1, a5, a2, a3, n] - 
    2*S2[a1, a1, a5, a2, SP[a3, a4], n] - 
    2*S2[a4, n]*S2[a1, a1, a5, a3, a2, n] + 
    2*S2[a2, n]*S2[a1, a1, a5, a3, a4, n] + 
    2*S2[a2, n]*S2[a1, a1, a5, a4, a3, n] + 
    2*S2[a1, a1, a5, a4, SP[a2, a3], n] + 
    2*S2[a1, a1, a5, SP[a2, a3], a4, n] - 
    2*S2[a1, a1, a5, SP[a3, a4], a2, n] + 
    2*S2[a1, a1, SP[a2, a3], a5, a4, n] + 
    2*S2[a1, a1, SP[a2, a5], a3, a4, n] + 
    2*S2[a1, a1, SP[a2, a5], a4, a3, n] - 
    2*S2[a1, a1, SP[a4, a5], a2, a3, n] - 
    2*S2[a1, a1, SP[a4, a5], a3, a2, n] - 
    S2[a4, n]*S2[a1, a2, a1, a3, a5, n] - S2[a1, a2, a1, a3, SP[a4, a5], n] + 
    S2[a1, a2, a1, a4, SP[a3, a5], n] - S2[a4, n]*S2[a1, a2, a1, a5, a3, n] - 
    2*S2[a1, a2, a1, a5, SP[a3, a4], n] - S2[a1, a2, a1, SP[a3, a5], a4, n] - 
    S2[a1, a2, a1, SP[a4, a5], a3, n] + S2[a1, a2, a4, a1, SP[a3, a5], n] + 
    S2[a1, a2, a4, SP[a1, a5], a3, n] - S2[a4, n]*S2[a1, a2, a5, a1, a3, n] - 
    2*S2[a1, a2, a5, a1, SP[a3, a4], n] - 
    2*S2[a1, a2, a5, SP[a1, a4], a3, n] - S2[a1, a2, SP[a1, a5], a3, a4, n] - 
    S2[a1, a2, SP[a1, a5], a4, a3, n] - S2[a1, a2, SP[a4, a5], a1, a3, n] + 
    2*S2[a1, a4, a1, a2, SP[a3, a5], n] + 
    2*S2[a1, a4, a1, a3, SP[a2, a5], n] + 
    2*S2[a1, a4, a1, SP[a2, a5], a3, n] + 
    2*S2[a1, a4, a1, SP[a3, a5], a2, n] + S2[a1, a4, a2, a1, SP[a3, a5], n] + 
    S2[a1, a4, a2, SP[a1, a5], a3, n] + 2*S2[a1, a4, SP[a1, a5], a2, a3, n] + 
    2*S2[a1, a4, SP[a1, a5], a3, a2, n] + S2[a1, a4, SP[a2, a5], a1, a3, n] - 
    2*S2[a4, n]*S2[a1, a5, a1, a2, a3, n] - 
    2*S2[a1, a5, a1, a2, SP[a3, a4], n] - 
    2*S2[a4, n]*S2[a1, a5, a1, a3, a2, n] + 
    2*S2[a2, n]*S2[a1, a5, a1, a3, a4, n] + 
    2*S2[a2, n]*S2[a1, a5, a1, a4, a3, n] + 
    2*S2[a1, a5, a1, a4, SP[a2, a3], n] + 
    2*S2[a1, a5, a1, SP[a2, a3], a4, n] - 
    2*S2[a1, a5, a1, SP[a3, a4], a2, n] - 
    S2[a4, n]*S2[a1, a5, a2, a1, a3, n] - S2[a1, a5, a2, a1, SP[a3, a4], n] - 
    S2[a1, a5, a2, SP[a1, a4], a3, n] + 2*S2[a2, n]*
     S2[a1, a5, a4, a1, a3, n] + 2*S2[a1, a5, a4, a1, SP[a2, a3], n] + 
    2*S2[a1, a5, a4, SP[a1, a2], a3, n] + 
    2*S2[a1, a5, SP[a1, a2], a3, a4, n] + 
    2*S2[a1, a5, SP[a1, a2], a4, a3, n] - 
    2*S2[a1, a5, SP[a1, a4], a2, a3, n] - 
    2*S2[a1, a5, SP[a1, a4], a3, a2, n] + S2[a1, a5, SP[a2, a4], a1, a3, n] + 
    S2[a1, SP[a1, a2], a3, a5, a4, n] + S2[a1, SP[a1, a2], a5, a3, a4, n] + 
    S2[a1, SP[a1, a2], a5, a4, a3, n] + S2[a1, SP[a1, a3], a2, a5, a4, n] + 
    2*S2[a1, SP[a2, a5], a1, a3, a4, n] + 
    2*S2[a1, SP[a2, a5], a1, a4, a3, n] + 
    2*S2[a1, SP[a2, a5], a4, a1, a3, n] - 
    2*S2[a1, SP[a4, a5], a1, a2, a3, n] - 
    2*S2[a1, SP[a4, a5], a1, a3, a2, n] - S2[a1, SP[a4, a5], a2, a1, a3, n] - 
    2*S2[a2, a1, a1, a5, SP[a3, a4], n] - 
    2*S2[a2, a1, a1, SP[a3, a5], a4, n] - 
    2*S2[a2, a1, a5, a1, SP[a3, a4], n] - 
    2*S2[a2, a1, a5, SP[a1, a4], a3, n] - 
    2*S2[a2, a1, SP[a1, a5], a3, a4, n] - 
    2*S2[a2, a1, SP[a1, a5], a4, a3, n] - 
    2*S2[a2, a5, a1, a1, SP[a3, a4], n] - 
    2*S2[a2, a5, a1, SP[a1, a4], a3, n] - 
    2*S2[a2, a5, SP[a1, a4], a1, a3, n] - 
    2*S2[a2, SP[a1, a5], a1, a3, a4, n] - 
    2*S2[a2, SP[a1, a5], a1, a4, a3, n] - 
    2*S2[a2, SP[a1, a5], a4, a1, a3, n] + 
    2*S2[a4, a1, a1, a2, SP[a3, a5], n] + 
    2*S2[a4, a1, a1, a3, SP[a2, a5], n] + 
    2*S2[a4, a1, a1, SP[a2, a5], a3, n] + 
    2*S2[a4, a1, a1, SP[a3, a5], a2, n] + S2[a4, a1, a2, a1, SP[a3, a5], n] + 
    S2[a4, a1, a2, SP[a1, a5], a3, n] + 2*S2[a4, a1, SP[a1, a5], a2, a3, n] + 
    2*S2[a4, a1, SP[a1, a5], a3, a2, n] + S2[a4, a1, SP[a2, a5], a1, a3, n] + 
    2*S2[a4, SP[a1, a5], a1, a2, a3, n] + 
    2*S2[a4, SP[a1, a5], a1, a3, a2, n] + S2[a4, SP[a1, a5], a2, a1, a3, n] - 
    2*S2[a4, n]*S2[a5, a1, a1, a2, a3, n] - 
    2*S2[a5, a1, a1, a2, SP[a3, a4], n] - 
    2*S2[a4, n]*S2[a5, a1, a1, a3, a2, n] + 
    2*S2[a2, n]*S2[a5, a1, a1, a3, a4, n] + 
    2*S2[a2, n]*S2[a5, a1, a1, a4, a3, n] + 
    2*S2[a5, a1, a1, a4, SP[a2, a3], n] + 
    2*S2[a5, a1, a1, SP[a2, a3], a4, n] - 
    2*S2[a5, a1, a1, SP[a3, a4], a2, n] - 
    S2[a4, n]*S2[a5, a1, a2, a1, a3, n] - S2[a5, a1, a2, a1, SP[a3, a4], n] - 
    S2[a5, a1, a2, SP[a1, a4], a3, n] + 2*S2[a2, n]*
     S2[a5, a1, a4, a1, a3, n] + 2*S2[a5, a1, a4, a1, SP[a2, a3], n] + 
    2*S2[a5, a1, a4, SP[a1, a2], a3, n] + 
    2*S2[a5, a1, SP[a1, a2], a3, a4, n] + 
    2*S2[a5, a1, SP[a1, a2], a4, a3, n] - 
    2*S2[a5, a1, SP[a1, a4], a2, a3, n] - 
    2*S2[a5, a1, SP[a1, a4], a3, a2, n] + S2[a5, a1, SP[a2, a4], a1, a3, n] - 
    S2[a1, n]*S2[a5, a2, a1, a3, a4, n] - S2[a5, a2, a1, a3, SP[a1, a4], n] - 
    S2[a1, n]*S2[a5, a2, a1, a4, a3, n] - S2[a5, a2, a1, a4, SP[a1, a3], n] - 
    S2[a5, a2, a1, SP[a1, a3], a4, n] - S2[a5, a2, a1, SP[a1, a4], a3, n] - 
    S2[a1, n]*S2[a5, a2, a4, a1, a3, n] - S2[a5, a2, a4, a1, SP[a1, a3], n] - 
    S2[a5, a2, a4, SP[a1, a1], a3, n] - S2[a5, a2, SP[a1, a1], a3, a4, n] - 
    S2[a5, a2, SP[a1, a1], a4, a3, n] - S2[a5, a2, SP[a1, a4], a1, a3, n] + 
    2*S2[a2, n]*S2[a5, a4, a1, a1, a3, n] + 
    2*S2[a5, a4, a1, a1, SP[a2, a3], n] + 
    2*S2[a5, a4, a1, SP[a1, a2], a3, n] - 
    S2[a1, n]*S2[a5, a4, a2, a1, a3, n] - S2[a5, a4, a2, a1, SP[a1, a3], n] - 
    S2[a5, a4, a2, SP[a1, a1], a3, n] + S2[a5, a4, SP[a1, a2], a1, a3, n] + 
    S2[a5, SP[a1, a2], a1, a3, a4, n] + S2[a5, SP[a1, a2], a1, a4, a3, n] + 
    S2[a5, SP[a1, a2], a4, a1, a3, n] - 2*S2[a5, SP[a1, a4], a1, a2, a3, n] - 
    2*S2[a5, SP[a1, a4], a1, a3, a2, n] - 
    2*S2[a5, SP[a1, a4], a2, a1, a3, n] + 
    2*S2[a5, SP[a2, a4], a1, a1, a3, n] + S2[SP[a1, a1], a2, a3, a5, a4, n] + 
    S2[SP[a1, a1], a2, a5, a3, a4, n] + S2[SP[a1, a1], a2, a5, a4, a3, n] + 
    S2[SP[a1, a1], a3, a2, a5, a4, n] - S2[SP[a1, a5], a2, a1, a3, a4, n] - 
    S2[SP[a1, a5], a2, a1, a4, a3, n] - S2[SP[a1, a5], a2, a4, a1, a3, n] - 
    S2[SP[a1, a5], a4, a2, a1, a3, n] + 2*S2[SP[a2, a5], a1, a1, a3, a4, n] + 
    2*S2[SP[a2, a5], a1, a1, a4, a3, n] + 
    2*S2[SP[a2, a5], a1, a4, a1, a3, n] + 
    2*S2[SP[a2, a5], a4, a1, a1, a3, n] - 
    2*S2[SP[a4, a5], a1, a1, a2, a3, n] - 
    2*S2[SP[a4, a5], a1, a1, a3, a2, n] - S2[SP[a4, a5], a1, a2, a1, a3, n] + 
    S2[a5, a2, a1, a3, a1, a4, n] + S2[a5, a2, a1, a3, a4, a1, n] + 
    S2[a5, a2, a1, a4, a3, a1, n] + S2[a5, a2, a4, a1, a3, a1, n] + 
    S2[a5, a4, a2, a1, a3, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a1_, a3_, a1_, a4_, a2_, a5_, n_] :> 
  2*S2[a1, a1, a3, n]*S2[a2, a4, a5, n] + 2*S2[a1, a1, a3, n]*
     S2[a2, a5, a4, n] + 2*S2[SP[a1, a2], SP[a1, a4], SP[a3, a5], n] + 
    2*S2[SP[a1, a2], SP[a1, a5], SP[a3, a4], n] - 
    2*S2[a1, a2, SP[a1, a4], SP[a3, a5], n] - 
    2*S2[a1, a2, SP[a1, a5], SP[a3, a4], n] + 
    S2[a2, a5, n]*S2[a1, a3, a1, a4, n] - S2[a1, a3, SP[a1, a2], SP[a4, a5], 
     n] + S2[a1, a3, n]*S2[a1, a4, a2, a5, n] + 
    S2[a1, a3, n]*S2[a1, a4, a5, a2, n] - S2[a1, a4, SP[a1, a2], SP[a3, a5], 
     n] - S2[a1, a4, SP[a1, a5], SP[a2, a3], n] + 
    S2[a1, a3, n]*S2[a1, a5, a2, a4, n] + S2[a1, a3, n]*
     S2[a1, a5, a4, a2, n] - S2[a1, a5, SP[a1, a2], SP[a3, a4], n] - 
    S2[a1, a5, SP[a1, a4], SP[a2, a3], n] - 
    2*S2[a1, SP[a1, a2], a4, SP[a3, a5], n] - 
    2*S2[a1, SP[a1, a2], a5, SP[a3, a4], n] - 
    2*S2[a1, SP[a1, a2], SP[a3, a4], a5, n] - 
    2*S2[a1, SP[a1, a2], SP[a3, a5], a4, n] - S2[a1, SP[a1, a4], a2, 
     SP[a3, a5], n] - S2[a1, SP[a1, a4], a5, SP[a2, a3], n] - 
    S2[a1, SP[a1, a4], SP[a2, a3], a5, n] - S2[a1, SP[a1, a4], SP[a3, a5], 
     a2, n] - S2[a1, SP[a1, a5], a2, SP[a3, a4], n] - 
    S2[a1, SP[a1, a5], a4, SP[a2, a3], n] - S2[a1, SP[a1, a5], SP[a2, a3], 
     a4, n] - S2[a1, SP[a1, a5], SP[a3, a4], a2, n] - 
    S2[a1, SP[a2, a3], a1, SP[a4, a5], n] - S2[a1, SP[a2, a3], SP[a1, a5], 
     a4, n] - 2*S2[a2, a1, SP[a1, a4], SP[a3, a5], n] - 
    2*S2[a2, a1, SP[a1, a5], SP[a3, a4], n] - 
    S2[a1, a3, n]*S2[a2, a5, a1, a4, n] + S2[a2, a5, SP[a1, a1], SP[a3, a4], 
     n] - 2*S2[a2, SP[a1, a4], a1, SP[a3, a5], n] - 
    2*S2[a2, SP[a1, a4], SP[a1, a5], a3, n] - S2[a2, SP[a1, a5], a1, 
     SP[a3, a4], n] + S2[a2, SP[a1, a5], SP[a1, a3], a4, n] - 
    2*S2[a2, SP[a1, a5], SP[a1, a4], a3, n] - S2[SP[a1, a1], a4, a2, 
     SP[a3, a5], n] - S2[SP[a1, a1], a4, a5, SP[a2, a3], n] - 
    S2[SP[a1, a1], a4, SP[a2, a3], a5, n] - S2[SP[a1, a1], a4, SP[a3, a5], 
     a2, n] - S2[SP[a1, a1], a5, a2, SP[a3, a4], n] - 
    S2[SP[a1, a1], a5, a4, SP[a2, a3], n] - S2[SP[a1, a1], a5, SP[a2, a3], 
     a4, n] - S2[SP[a1, a1], a5, SP[a3, a4], a2, n] - 
    S2[SP[a1, a1], SP[a3, a4], a2, a5, n] - S2[SP[a1, a1], SP[a3, a4], a5, 
     a2, n] - S2[SP[a1, a1], SP[a3, a5], a2, a4, n] - 
    S2[SP[a1, a1], SP[a3, a5], a4, a2, n] - 
    2*S2[SP[a1, a2], a1, a4, SP[a3, a5], n] - 
    2*S2[SP[a1, a2], a1, a5, SP[a3, a4], n] - 
    2*S2[SP[a1, a2], a1, SP[a3, a4], a5, n] - 
    2*S2[SP[a1, a2], a1, SP[a3, a5], a4, n] - S2[SP[a1, a2], a3, a1, 
     SP[a4, a5], n] - S2[SP[a1, a2], a3, SP[a1, a5], a4, n] - 
    2*S2[SP[a1, a2], a4, a1, SP[a3, a5], n] - 
    2*S2[SP[a1, a2], a4, SP[a1, a5], a3, n] - S2[SP[a1, a2], a5, a1, 
     SP[a3, a4], n] + S2[SP[a1, a2], a5, SP[a1, a3], a4, n] - 
    2*S2[SP[a1, a2], a5, SP[a1, a4], a3, n] - 
    2*S2[SP[a1, a2], SP[a1, a4], a3, a5, n] - 
    2*S2[SP[a1, a2], SP[a1, a4], a5, a3, n] - 
    2*S2[SP[a1, a2], SP[a1, a5], a3, a4, n] - 
    2*S2[SP[a1, a2], SP[a1, a5], a4, a3, n] + 
    2*S2[a1, a1, a2, a4, SP[a3, a5], n] + 
    2*S2[a1, a1, a2, a5, SP[a3, a4], n] + 
    2*S2[a1, a1, a2, SP[a3, a4], a5, n] + 
    2*S2[a1, a1, a2, SP[a3, a5], a4, n] - 
    2*S2[a2, n]*S2[a1, a1, a3, a4, a5, n] - 
    2*S2[a1, a1, a3, a4, SP[a2, a5], n] - 
    2*S2[a2, n]*S2[a1, a1, a3, a5, a4, n] - 
    2*S2[a1, a1, a3, a5, SP[a2, a4], n] - 
    2*S2[a1, a1, a3, SP[a2, a4], a5, n] - 
    2*S2[a1, a1, a3, SP[a2, a5], a4, n] + 
    2*S2[a1, a1, a4, a2, SP[a3, a5], n] - 
    2*S2[a2, n]*S2[a1, a1, a4, a3, a5, n] - 
    2*S2[a1, a1, a4, a3, SP[a2, a5], n] - 
    2*S2[a2, n]*S2[a1, a1, a4, a5, a3, n] - 
    2*S2[a1, a1, a4, SP[a2, a5], a3, n] + 
    2*S2[a1, a1, a4, SP[a3, a5], a2, n] + 
    2*S2[a1, a1, a5, a2, SP[a3, a4], n] - 
    2*S2[a2, n]*S2[a1, a1, a5, a3, a4, n] - 
    2*S2[a1, a1, a5, a3, SP[a2, a4], n] - 
    2*S2[a2, n]*S2[a1, a1, a5, a4, a3, n] - 
    2*S2[a1, a1, a5, SP[a2, a4], a3, n] + 
    2*S2[a1, a1, a5, SP[a3, a4], a2, n] - 
    2*S2[a1, a1, SP[a2, a4], a3, a5, n] - 
    2*S2[a1, a1, SP[a2, a4], a5, a3, n] - 
    2*S2[a1, a1, SP[a2, a5], a3, a4, n] - 
    2*S2[a1, a1, SP[a2, a5], a4, a3, n] + 
    2*S2[a1, a1, SP[a3, a4], a2, a5, n] + 
    2*S2[a1, a1, SP[a3, a4], a5, a2, n] + 
    2*S2[a1, a1, SP[a3, a5], a2, a4, n] + 
    2*S2[a1, a1, SP[a3, a5], a4, a2, n] + 
    2*S2[a1, a2, a1, a4, SP[a3, a5], n] + 
    2*S2[a1, a2, a1, a5, SP[a3, a4], n] + 
    2*S2[a1, a2, a1, SP[a3, a4], a5, n] + 
    2*S2[a1, a2, a1, SP[a3, a5], a4, n] + S2[a1, a2, a3, a1, SP[a4, a5], n] + 
    S2[a1, a2, a3, SP[a1, a5], a4, n] + 2*S2[a1, a2, a4, a1, SP[a3, a5], n] + 
    2*S2[a1, a2, a4, SP[a1, a5], a3, n] + S2[a1, a2, a5, a1, SP[a3, a4], n] - 
    S2[a1, a2, a5, SP[a1, a3], a4, n] + 2*S2[a1, a2, a5, SP[a1, a4], a3, n] + 
    2*S2[a1, a2, SP[a1, a4], a3, a5, n] + 
    2*S2[a1, a2, SP[a1, a4], a5, a3, n] + 
    2*S2[a1, a2, SP[a1, a5], a3, a4, n] + 
    2*S2[a1, a2, SP[a1, a5], a4, a3, n] + S2[a1, a3, a1, a2, SP[a4, a5], n] - 
    S2[a2, n]*S2[a1, a3, a1, a4, a5, n] - S2[a1, a3, a1, a4, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a3, a1, a5, a4, n] - S2[a1, a3, a1, a5, SP[a2, a4], n] - 
    S2[a1, a3, a1, SP[a2, a5], a4, n] + S2[a1, a3, a2, a1, SP[a4, a5], n] + 
    S2[a1, a3, a2, SP[a1, a5], a4, n] + S2[a5, n]*S2[a1, a4, a1, a2, a3, n] + 
    2*S2[a1, a4, a1, a2, SP[a3, a5], n] + 
    S2[a5, n]*S2[a1, a4, a1, a3, a2, n] - 
    2*S2[a2, n]*S2[a1, a4, a1, a3, a5, n] - S2[a1, a4, a1, a3, SP[a2, a5], 
     n] - 2*S2[a2, n]*S2[a1, a4, a1, a5, a3, n] - 
    S2[a1, a4, a1, a5, SP[a2, a3], n] - S2[a1, a4, a1, SP[a2, a3], a5, n] - 
    S2[a1, a4, a1, SP[a2, a5], a3, n] + 2*S2[a1, a4, a1, SP[a3, a5], a2, n] + 
    S2[a5, n]*S2[a1, a4, a2, a1, a3, n] + 
    2*S2[a1, a4, a2, a1, SP[a3, a5], n] + 
    2*S2[a1, a4, a2, SP[a1, a5], a3, n] - 
    2*S2[a2, n]*S2[a1, a4, a5, a1, a3, n] - S2[a1, a4, a5, a1, SP[a2, a3], 
     n] - S2[a1, a4, a5, SP[a1, a2], a3, n] - S2[a1, a4, SP[a1, a2], a3, a5, 
     n] - S2[a1, a4, SP[a1, a2], a5, a3, n] + 
    2*S2[a1, a4, SP[a1, a5], a2, a3, n] + 
    2*S2[a1, a4, SP[a1, a5], a3, a2, n] - S2[a1, a4, SP[a2, a5], a1, a3, n] + 
    S2[a1, a5, a1, a2, SP[a3, a4], n] - S2[a2, n]*S2[a1, a5, a1, a3, a4, n] - 
    S2[a1, a5, a1, a3, SP[a2, a4], n] - S2[a2, n]*S2[a1, a5, a1, a4, a3, n] - 
    S2[a1, a5, a1, SP[a2, a4], a3, n] + S2[a1, a5, a1, SP[a3, a4], a2, n] + 
    S2[a1, a5, a2, a1, SP[a3, a4], n] + S2[a1, a5, a2, SP[a1, a4], a3, n] - 
    2*S2[a2, n]*S2[a1, a5, a4, a1, a3, n] - S2[a1, a5, a4, a1, SP[a2, a3], 
     n] - S2[a1, a5, a4, SP[a1, a2], a3, n] + S2[a1, a5, SP[a1, a4], a2, a3, 
     n] + S2[a1, a5, SP[a1, a4], a3, a2, n] - 
    2*S2[a1, a5, SP[a2, a4], a1, a3, n] + S2[a1, SP[a1, a3], a4, a2, a5, n] + 
    S2[a1, SP[a1, a3], a4, a5, a2, n] + S2[a1, SP[a1, a3], a5, a2, a4, n] + 
    S2[a1, SP[a1, a3], a5, a4, a2, n] + S2[a1, SP[a1, a4], a2, a3, a5, n] + 
    S2[a1, SP[a1, a4], a2, a5, a3, n] + S2[a1, SP[a1, a4], a3, a2, a5, n] + 
    S2[a1, SP[a1, a4], a3, a5, a2, n] + S2[a1, SP[a1, a4], a5, a2, a3, n] + 
    S2[a1, SP[a1, a4], a5, a3, a2, n] + S2[a1, SP[a1, a5], a2, a3, a4, n] + 
    S2[a1, SP[a1, a5], a2, a4, a3, n] + S2[a1, SP[a1, a5], a3, a2, a4, n] + 
    S2[a1, SP[a1, a5], a3, a4, a2, n] + S2[a1, SP[a1, a5], a4, a2, a3, n] + 
    S2[a1, SP[a1, a5], a4, a3, a2, n] - 2*S2[a1, SP[a2, a4], a1, a3, a5, n] - 
    2*S2[a1, SP[a2, a4], a1, a5, a3, n] - 
    2*S2[a1, SP[a2, a4], a5, a1, a3, n] - S2[a1, SP[a2, a5], a1, a3, a4, n] - 
    S2[a1, SP[a2, a5], a1, a4, a3, n] - 2*S2[a1, SP[a2, a5], a4, a1, a3, n] + 
    S2[a1, SP[a4, a5], a1, a2, a3, n] + S2[a1, SP[a4, a5], a1, a3, a2, n] + 
    S2[a1, SP[a4, a5], a2, a1, a3, n] + 2*S2[a2, a1, a1, a4, SP[a3, a5], n] + 
    2*S2[a2, a1, a1, a5, SP[a3, a4], n] + 
    2*S2[a2, a1, a1, SP[a3, a4], a5, n] + 
    2*S2[a2, a1, a1, SP[a3, a5], a4, n] + S2[a2, a1, a3, a1, SP[a4, a5], n] + 
    S2[a2, a1, a3, SP[a1, a5], a4, n] + 2*S2[a2, a1, a4, a1, SP[a3, a5], n] + 
    2*S2[a2, a1, a4, SP[a1, a5], a3, n] + S2[a2, a1, a5, a1, SP[a3, a4], n] - 
    S2[a2, a1, a5, SP[a1, a3], a4, n] + 2*S2[a2, a1, a5, SP[a1, a4], a3, n] + 
    2*S2[a2, a1, SP[a1, a4], a3, a5, n] + 
    2*S2[a2, a1, SP[a1, a4], a5, a3, n] + 
    2*S2[a2, a1, SP[a1, a5], a3, a4, n] + 
    2*S2[a2, a1, SP[a1, a5], a4, a3, n] - 
    2*S2[a5, n]*S2[a2, a4, a1, a1, a3, n] - S2[a2, a5, a1, SP[a1, a3], a4, 
     n] + S2[a2, a5, a1, SP[a1, a4], a3, n] - S2[a2, a5, SP[a1, a1], a3, a4, 
     n] - S2[a2, a5, SP[a1, a1], a4, a3, n] + 
    2*S2[a2, a5, SP[a1, a4], a1, a3, n] + 
    2*S2[a2, SP[a1, a4], a1, a3, a5, n] + 
    2*S2[a2, SP[a1, a4], a1, a5, a3, n] + 
    2*S2[a2, SP[a1, a4], a5, a1, a3, n] + S2[a2, SP[a1, a5], a1, a3, a4, n] + 
    S2[a2, SP[a1, a5], a1, a4, a3, n] + 2*S2[a2, SP[a1, a5], a4, a1, a3, n] - 
    2*S2[a2, SP[a4, a5], a1, a1, a3, n] - 
    S2[a2, n]*S2[a5, a1, a4, a1, a3, n] - S2[a5, a1, a4, a1, SP[a2, a3], n] - 
    S2[a5, a1, a4, SP[a1, a2], a3, n] - S2[a5, a1, SP[a2, a4], a1, a3, n] + 
    S2[a1, n]*S2[a5, a2, a4, a1, a3, n] + S2[a5, a2, a4, a1, SP[a1, a3], n] + 
    S2[a5, a2, a4, SP[a1, a1], a3, n] + S2[a5, a2, SP[a1, a4], a1, a3, n] + 
    S2[SP[a1, a1], a3, a4, a2, a5, n] + S2[SP[a1, a1], a3, a4, a5, a2, n] + 
    S2[SP[a1, a1], a3, a5, a2, a4, n] + S2[SP[a1, a1], a3, a5, a4, a2, n] + 
    S2[SP[a1, a1], a4, a2, a3, a5, n] + S2[SP[a1, a1], a4, a2, a5, a3, n] + 
    S2[SP[a1, a1], a4, a3, a2, a5, n] + S2[SP[a1, a1], a4, a3, a5, a2, n] + 
    S2[SP[a1, a1], a4, a5, a2, a3, n] + S2[SP[a1, a1], a4, a5, a3, a2, n] + 
    S2[SP[a1, a1], a5, a2, a3, a4, n] + S2[SP[a1, a1], a5, a2, a4, a3, n] + 
    S2[SP[a1, a1], a5, a3, a2, a4, n] + S2[SP[a1, a1], a5, a3, a4, a2, n] + 
    S2[SP[a1, a1], a5, a4, a2, a3, n] + S2[SP[a1, a1], a5, a4, a3, a2, n] + 
    S2[SP[a1, a5], a2, a4, a1, a3, n] + S2[SP[a1, a5], a4, a1, a2, a3, n] + 
    S2[SP[a1, a5], a4, a1, a3, a2, n] + S2[SP[a1, a5], a4, a2, a1, a3, n] - 
    S2[SP[a2, a5], a1, a4, a1, a3, n] - 2*S2[SP[a2, a5], a4, a1, a1, a3, n] - 
    S2[a5, a2, a4, a1, a3, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a1_, a3_, a1_, a4_, a5_, a2_, n_] :> 
  -2*S2[a1, a1, a3, n]*S2[a2, a5, a4, n] - 
    2*S2[SP[a1, a2], SP[a1, a5], SP[a3, a4], n] + 
    2*S2[a1, a2, SP[a1, a5], SP[a3, a4], n] - 
    S2[a2, a5, n]*S2[a1, a3, a1, a4, n] + S2[a1, a3, SP[a1, a2], SP[a4, a5], 
     n] - S2[a1, a3, n]*S2[a1, a5, a2, a4, n] - 
    S2[a1, a3, n]*S2[a1, a5, a4, a2, n] + S2[a1, a5, SP[a1, a2], SP[a3, a4], 
     n] + S2[a1, a5, SP[a1, a4], SP[a2, a3], n] + 
    2*S2[a1, SP[a1, a2], a5, SP[a3, a4], n] + 
    2*S2[a1, SP[a1, a2], SP[a3, a5], a4, n] + S2[a1, SP[a1, a5], a2, 
     SP[a3, a4], n] + S2[a1, SP[a1, a5], a4, SP[a2, a3], n] + 
    S2[a1, SP[a1, a5], SP[a2, a3], a4, n] + S2[a1, SP[a1, a5], SP[a3, a4], 
     a2, n] + S2[a1, SP[a2, a3], a1, SP[a4, a5], n] + 
    S2[a1, SP[a2, a3], SP[a1, a5], a4, n] + 
    2*S2[a2, a1, SP[a1, a5], SP[a3, a4], n] + 
    S2[a1, a3, n]*S2[a2, a5, a1, a4, n] - S2[a2, a5, SP[a1, a1], SP[a3, a4], 
     n] + S2[a2, SP[a1, a5], a1, SP[a3, a4], n] - 
    S2[a2, SP[a1, a5], SP[a1, a3], a4, n] + 
    2*S2[a2, SP[a1, a5], SP[a1, a4], a3, n] + S2[SP[a1, a1], a5, a2, 
     SP[a3, a4], n] + S2[SP[a1, a1], a5, a4, SP[a2, a3], n] + 
    S2[SP[a1, a1], a5, SP[a2, a3], a4, n] + S2[SP[a1, a1], a5, SP[a3, a4], 
     a2, n] + S2[SP[a1, a1], SP[a3, a5], a2, a4, n] + 
    S2[SP[a1, a1], SP[a3, a5], a4, a2, n] + 
    2*S2[SP[a1, a2], a1, a5, SP[a3, a4], n] + 
    2*S2[SP[a1, a2], a1, SP[a3, a5], a4, n] + S2[SP[a1, a2], a3, a1, 
     SP[a4, a5], n] + S2[SP[a1, a2], a3, SP[a1, a5], a4, n] + 
    S2[SP[a1, a2], a5, a1, SP[a3, a4], n] - S2[SP[a1, a2], a5, SP[a1, a3], 
     a4, n] + 2*S2[SP[a1, a2], a5, SP[a1, a4], a3, n] + 
    2*S2[SP[a1, a2], SP[a1, a5], a3, a4, n] + 
    2*S2[SP[a1, a2], SP[a1, a5], a4, a3, n] - 
    2*S2[a1, a1, a2, a5, SP[a3, a4], n] - 
    2*S2[a1, a1, a2, SP[a3, a5], a4, n] + 
    2*S2[a2, n]*S2[a1, a1, a3, a5, a4, n] + 
    2*S2[a1, a1, a3, a5, SP[a2, a4], n] + 
    2*S2[a1, a1, a3, SP[a2, a5], a4, n] - 
    2*S2[a1, a1, a5, a2, SP[a3, a4], n] + 
    2*S2[a2, n]*S2[a1, a1, a5, a3, a4, n] + 
    2*S2[a1, a1, a5, a3, SP[a2, a4], n] + 
    2*S2[a2, n]*S2[a1, a1, a5, a4, a3, n] + 
    2*S2[a1, a1, a5, SP[a2, a4], a3, n] - 
    2*S2[a1, a1, a5, SP[a3, a4], a2, n] + 
    2*S2[a1, a1, SP[a2, a5], a3, a4, n] + 
    2*S2[a1, a1, SP[a2, a5], a4, a3, n] - 
    2*S2[a1, a1, SP[a3, a5], a2, a4, n] - 
    2*S2[a1, a1, SP[a3, a5], a4, a2, n] - 
    2*S2[a1, a2, a1, a5, SP[a3, a4], n] - 
    2*S2[a1, a2, a1, SP[a3, a5], a4, n] - S2[a1, a2, a3, a1, SP[a4, a5], n] - 
    S2[a1, a2, a3, SP[a1, a5], a4, n] - S2[a1, a2, a5, a1, SP[a3, a4], n] + 
    S2[a1, a2, a5, SP[a1, a3], a4, n] - 2*S2[a1, a2, a5, SP[a1, a4], a3, n] - 
    2*S2[a1, a2, SP[a1, a5], a3, a4, n] - 
    2*S2[a1, a2, SP[a1, a5], a4, a3, n] - S2[a1, a3, a1, a2, SP[a4, a5], n] + 
    S2[a2, n]*S2[a1, a3, a1, a4, a5, n] + S2[a1, a3, a1, a4, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a3, a1, a5, a4, n] + S2[a1, a3, a1, a5, SP[a2, a4], n] + 
    S2[a1, a3, a1, SP[a2, a5], a4, n] - S2[a1, a3, a2, a1, SP[a4, a5], n] - 
    S2[a1, a3, a2, SP[a1, a5], a4, n] - S2[a1, a5, a1, a2, SP[a3, a4], n] + 
    S2[a2, n]*S2[a1, a5, a1, a3, a4, n] + S2[a1, a5, a1, a3, SP[a2, a4], n] + 
    S2[a2, n]*S2[a1, a5, a1, a4, a3, n] + S2[a1, a5, a1, SP[a2, a4], a3, n] - 
    S2[a1, a5, a1, SP[a3, a4], a2, n] - S2[a1, a5, a2, a1, SP[a3, a4], n] - 
    S2[a1, a5, a2, SP[a1, a4], a3, n] + 2*S2[a2, n]*
     S2[a1, a5, a4, a1, a3, n] + S2[a1, a5, a4, a1, SP[a2, a3], n] + 
    S2[a1, a5, a4, SP[a1, a2], a3, n] - S2[a1, a5, SP[a1, a4], a2, a3, n] - 
    S2[a1, a5, SP[a1, a4], a3, a2, n] + 2*S2[a1, a5, SP[a2, a4], a1, a3, n] - 
    S2[a1, SP[a1, a3], a5, a2, a4, n] - S2[a1, SP[a1, a3], a5, a4, a2, n] - 
    S2[a1, SP[a1, a5], a2, a3, a4, n] - S2[a1, SP[a1, a5], a2, a4, a3, n] - 
    S2[a1, SP[a1, a5], a3, a2, a4, n] - S2[a1, SP[a1, a5], a3, a4, a2, n] - 
    S2[a1, SP[a1, a5], a4, a2, a3, n] - S2[a1, SP[a1, a5], a4, a3, a2, n] + 
    S2[a1, SP[a2, a5], a1, a3, a4, n] + S2[a1, SP[a2, a5], a1, a4, a3, n] + 
    2*S2[a1, SP[a2, a5], a4, a1, a3, n] - 
    2*S2[a2, a1, a1, a5, SP[a3, a4], n] - 
    2*S2[a2, a1, a1, SP[a3, a5], a4, n] - S2[a2, a1, a3, a1, SP[a4, a5], n] - 
    S2[a2, a1, a3, SP[a1, a5], a4, n] - S2[a2, a1, a5, a1, SP[a3, a4], n] + 
    S2[a2, a1, a5, SP[a1, a3], a4, n] - 2*S2[a2, a1, a5, SP[a1, a4], a3, n] - 
    2*S2[a2, a1, SP[a1, a5], a3, a4, n] - 
    2*S2[a2, a1, SP[a1, a5], a4, a3, n] + S2[a2, a5, a1, SP[a1, a3], a4, n] - 
    S2[a2, a5, a1, SP[a1, a4], a3, n] + S2[a2, a5, SP[a1, a1], a3, a4, n] + 
    S2[a2, a5, SP[a1, a1], a4, a3, n] - 2*S2[a2, a5, SP[a1, a4], a1, a3, n] - 
    S2[a2, SP[a1, a5], a1, a3, a4, n] - S2[a2, SP[a1, a5], a1, a4, a3, n] - 
    2*S2[a2, SP[a1, a5], a4, a1, a3, n] + 
    S2[a2, n]*S2[a5, a1, a4, a1, a3, n] + S2[a5, a1, a4, a1, SP[a2, a3], n] + 
    S2[a5, a1, a4, SP[a1, a2], a3, n] + S2[a5, a1, SP[a2, a4], a1, a3, n] - 
    S2[a1, n]*S2[a5, a2, a4, a1, a3, n] - S2[a5, a2, a4, a1, SP[a1, a3], n] - 
    S2[a5, a2, a4, SP[a1, a1], a3, n] - S2[a5, a2, SP[a1, a4], a1, a3, n] + 
    2*S2[a2, n]*S2[a5, a4, a1, a1, a3, n] + 
    2*S2[a5, a4, a1, a1, SP[a2, a3], n] - 
    S2[a1, n]*S2[a5, a4, a1, a2, a3, n] - S2[a5, a4, a1, a2, SP[a1, a3], n] - 
    S2[a1, n]*S2[a5, a4, a1, a3, a2, n] - S2[a5, a4, a1, a3, SP[a1, a2], n] + 
    S2[a5, a4, a1, SP[a1, a2], a3, n] - S2[a5, a4, a1, SP[a1, a3], a2, n] - 
    S2[a1, n]*S2[a5, a4, a2, a1, a3, n] - S2[a5, a4, a2, a1, SP[a1, a3], n] - 
    S2[a5, a4, a2, SP[a1, a1], a3, n] - S2[a5, a4, SP[a1, a1], a2, a3, n] - 
    S2[a5, a4, SP[a1, a1], a3, a2, n] + S2[a5, a4, SP[a1, a2], a1, a3, n] - 
    S2[a5, SP[a1, a4], a1, a2, a3, n] - S2[a5, SP[a1, a4], a1, a3, a2, n] - 
    S2[a5, SP[a1, a4], a2, a1, a3, n] + 2*S2[a5, SP[a2, a4], a1, a1, a3, n] - 
    S2[SP[a1, a1], a3, a5, a2, a4, n] - S2[SP[a1, a1], a3, a5, a4, a2, n] - 
    S2[SP[a1, a1], a5, a2, a3, a4, n] - S2[SP[a1, a1], a5, a2, a4, a3, n] - 
    S2[SP[a1, a1], a5, a3, a2, a4, n] - S2[SP[a1, a1], a5, a3, a4, a2, n] - 
    S2[SP[a1, a1], a5, a4, a2, a3, n] - S2[SP[a1, a1], a5, a4, a3, a2, n] - 
    S2[SP[a1, a5], a2, a4, a1, a3, n] - S2[SP[a1, a5], a4, a1, a2, a3, n] - 
    S2[SP[a1, a5], a4, a1, a3, a2, n] - S2[SP[a1, a5], a4, a2, a1, a3, n] + 
    S2[SP[a2, a5], a1, a4, a1, a3, n] + 2*S2[SP[a2, a5], a4, a1, a1, a3, n] + 
    S2[a5, a2, a4, a1, a3, a1, n] + S2[a5, a4, a1, a2, a3, a1, n] + 
    S2[a5, a4, a1, a3, a1, a2, n] + S2[a5, a4, a1, a3, a2, a1, n] + 
    S2[a5, a4, a2, a1, a3, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a1_, a3_, a1_, a5_, a2_, a4_, n_] :> 
  2*S2[a1, a1, a3, n]*S2[a2, a4, a5, n] + 2*S2[a1, a1, a3, n]*
     S2[a2, a5, a4, n] + 2*S2[SP[a1, a2], SP[a1, a4], SP[a3, a5], n] + 
    2*S2[SP[a1, a2], SP[a1, a5], SP[a3, a4], n] - 
    2*S2[a1, a2, SP[a1, a4], SP[a3, a5], n] - 
    2*S2[a1, a2, SP[a1, a5], SP[a3, a4], n] + 
    S2[a1, a3, n]*S2[a1, a5, a2, a4, n] - S2[a1, a5, SP[a1, a2], SP[a3, a4], 
     n] - 2*S2[a1, SP[a1, a2], a4, SP[a3, a5], n] - 
    2*S2[a1, SP[a1, a2], a5, SP[a3, a4], n] - 
    2*S2[a1, SP[a1, a2], SP[a3, a4], a5, n] - 
    2*S2[a1, SP[a1, a2], SP[a3, a5], a4, n] - S2[a1, SP[a1, a5], a2, 
     SP[a3, a4], n] - S2[a1, SP[a1, a5], SP[a2, a3], a4, n] - 
    2*S2[a2, a1, SP[a1, a4], SP[a3, a5], n] - 
    2*S2[a2, a1, SP[a1, a5], SP[a3, a4], n] - 
    2*S2[a2, SP[a1, a4], a1, SP[a3, a5], n] - 
    2*S2[a2, SP[a1, a4], SP[a1, a5], a3, n] - 
    2*S2[a2, SP[a1, a5], a1, SP[a3, a4], n] - 
    2*S2[a2, SP[a1, a5], SP[a1, a4], a3, n] - S2[SP[a1, a1], a5, a2, 
     SP[a3, a4], n] - S2[SP[a1, a1], a5, SP[a2, a3], a4, n] - 
    S2[SP[a1, a1], SP[a3, a5], a2, a4, n] - 
    2*S2[SP[a1, a2], a1, a4, SP[a3, a5], n] - 
    2*S2[SP[a1, a2], a1, a5, SP[a3, a4], n] - 
    2*S2[SP[a1, a2], a1, SP[a3, a4], a5, n] - 
    2*S2[SP[a1, a2], a1, SP[a3, a5], a4, n] - 
    2*S2[SP[a1, a2], a4, a1, SP[a3, a5], n] - 
    2*S2[SP[a1, a2], a4, SP[a1, a5], a3, n] - 
    2*S2[SP[a1, a2], a5, a1, SP[a3, a4], n] - 
    2*S2[SP[a1, a2], a5, SP[a1, a4], a3, n] - 
    2*S2[SP[a1, a2], SP[a1, a4], a3, a5, n] - 
    2*S2[SP[a1, a2], SP[a1, a4], a5, a3, n] - 
    2*S2[SP[a1, a2], SP[a1, a5], a3, a4, n] - 
    2*S2[SP[a1, a2], SP[a1, a5], a4, a3, n] + 
    2*S2[a1, a1, a2, a4, SP[a3, a5], n] + 
    2*S2[a1, a1, a2, a5, SP[a3, a4], n] + 
    2*S2[a1, a1, a2, SP[a3, a4], a5, n] + 
    2*S2[a1, a1, a2, SP[a3, a5], a4, n] + 
    2*S2[a5, n]*S2[a1, a1, a3, a4, a2, n] - 
    2*S2[a2, n]*S2[a1, a1, a3, a4, a5, n] - 
    2*S2[a2, n]*S2[a1, a1, a3, a5, a4, n] - 
    2*S2[a1, a1, a3, a5, SP[a2, a4], n] - 
    2*S2[a1, a1, a3, SP[a2, a4], a5, n] - 
    2*S2[a1, a1, a3, SP[a2, a5], a4, n] + 
    2*S2[a1, a1, a3, SP[a4, a5], a2, n] + 
    2*S2[a5, n]*S2[a1, a1, a4, a2, a3, n] + 
    2*S2[a1, a1, a4, a2, SP[a3, a5], n] + 
    2*S2[a5, n]*S2[a1, a1, a4, a3, a2, n] - 
    2*S2[a2, n]*S2[a1, a1, a4, a3, a5, n] - 
    2*S2[a2, n]*S2[a1, a1, a4, a5, a3, n] - 
    2*S2[a1, a1, a4, a5, SP[a2, a3], n] - 
    2*S2[a1, a1, a4, SP[a2, a3], a5, n] + 
    2*S2[a1, a1, a4, SP[a3, a5], a2, n] + 
    2*S2[a1, a1, a5, a2, SP[a3, a4], n] - 
    2*S2[a2, n]*S2[a1, a1, a5, a3, a4, n] - 
    2*S2[a1, a1, a5, a3, SP[a2, a4], n] - 
    2*S2[a2, n]*S2[a1, a1, a5, a4, a3, n] - 
    2*S2[a1, a1, a5, a4, SP[a2, a3], n] - 
    2*S2[a1, a1, a5, SP[a2, a4], a3, n] - 
    2*S2[a1, a1, SP[a2, a4], a3, a5, n] - 
    2*S2[a1, a1, SP[a2, a4], a5, a3, n] - 
    2*S2[a1, a1, SP[a2, a5], a3, a4, n] - 
    2*S2[a1, a1, SP[a2, a5], a4, a3, n] + 
    2*S2[a1, a1, SP[a3, a5], a2, a4, n] + 
    2*S2[a1, a1, SP[a3, a5], a4, a2, n] + 
    2*S2[a1, a1, SP[a4, a5], a2, a3, n] + 
    2*S2[a1, a1, SP[a4, a5], a3, a2, n] + 
    2*S2[a1, a2, a1, a4, SP[a3, a5], n] + 
    2*S2[a1, a2, a1, a5, SP[a3, a4], n] + 
    2*S2[a1, a2, a1, SP[a3, a4], a5, n] + 
    2*S2[a1, a2, a1, SP[a3, a5], a4, n] + 
    2*S2[a1, a2, a4, a1, SP[a3, a5], n] + 
    2*S2[a1, a2, a4, SP[a1, a5], a3, n] + 
    2*S2[a1, a2, a5, a1, SP[a3, a4], n] + 
    2*S2[a1, a2, a5, SP[a1, a4], a3, n] + 
    2*S2[a1, a2, SP[a1, a4], a3, a5, n] + 
    2*S2[a1, a2, SP[a1, a4], a5, a3, n] + 
    2*S2[a1, a2, SP[a1, a5], a3, a4, n] + 
    2*S2[a1, a2, SP[a1, a5], a4, a3, n] + 
    2*S2[a5, n]*S2[a1, a4, a1, a2, a3, n] + 
    2*S2[a1, a4, a1, a2, SP[a3, a5], n] + 
    2*S2[a5, n]*S2[a1, a4, a1, a3, a2, n] - 
    2*S2[a2, n]*S2[a1, a4, a1, a3, a5, n] - 
    2*S2[a2, n]*S2[a1, a4, a1, a5, a3, n] - 
    2*S2[a1, a4, a1, a5, SP[a2, a3], n] - 
    2*S2[a1, a4, a1, SP[a2, a3], a5, n] + 
    2*S2[a1, a4, a1, SP[a3, a5], a2, n] + 
    2*S2[a5, n]*S2[a1, a4, a2, a1, a3, n] + 
    2*S2[a1, a4, a2, a1, SP[a3, a5], n] + 
    2*S2[a1, a4, a2, SP[a1, a5], a3, n] - 
    2*S2[a2, n]*S2[a1, a4, a5, a1, a3, n] - 
    2*S2[a1, a4, a5, a1, SP[a2, a3], n] - 
    2*S2[a1, a4, a5, SP[a1, a2], a3, n] - 
    2*S2[a1, a4, SP[a1, a2], a3, a5, n] - 
    2*S2[a1, a4, SP[a1, a2], a5, a3, n] + 
    2*S2[a1, a4, SP[a1, a5], a2, a3, n] + 
    2*S2[a1, a4, SP[a1, a5], a3, a2, n] + S2[a1, a5, a1, a2, SP[a3, a4], n] - 
    2*S2[a2, n]*S2[a1, a5, a1, a3, a4, n] - 
    2*S2[a1, a5, a1, a3, SP[a2, a4], n] - 
    2*S2[a2, n]*S2[a1, a5, a1, a4, a3, n] - 
    2*S2[a1, a5, a1, a4, SP[a2, a3], n] - S2[a1, a5, a1, SP[a2, a3], a4, n] - 
    2*S2[a1, a5, a1, SP[a2, a4], a3, n] + S2[a1, a5, a2, a1, SP[a3, a4], n] + 
    S2[a1, a5, a2, SP[a1, a4], a3, n] - 2*S2[a2, n]*
     S2[a1, a5, a4, a1, a3, n] - 2*S2[a1, a5, a4, a1, SP[a2, a3], n] - 
    2*S2[a1, a5, a4, SP[a1, a2], a3, n] - S2[a1, a5, SP[a1, a2], a3, a4, n] - 
    S2[a1, a5, SP[a1, a2], a4, a3, n] - 2*S2[a1, a5, SP[a2, a4], a1, a3, n] + 
    S2[a1, SP[a1, a3], a5, a2, a4, n] + S2[a1, SP[a1, a5], a2, a3, a4, n] + 
    S2[a1, SP[a1, a5], a2, a4, a3, n] + S2[a1, SP[a1, a5], a3, a2, a4, n] + 
    2*S2[a1, SP[a1, a5], a3, a4, a2, n] + 
    2*S2[a1, SP[a1, a5], a4, a2, a3, n] + 
    2*S2[a1, SP[a1, a5], a4, a3, a2, n] - 
    2*S2[a1, SP[a2, a4], a1, a3, a5, n] - 
    2*S2[a1, SP[a2, a4], a1, a5, a3, n] - 
    2*S2[a1, SP[a2, a4], a5, a1, a3, n] - 
    2*S2[a1, SP[a2, a5], a1, a3, a4, n] - 
    2*S2[a1, SP[a2, a5], a1, a4, a3, n] - 
    2*S2[a1, SP[a2, a5], a4, a1, a3, n] + 
    2*S2[a1, SP[a4, a5], a1, a2, a3, n] + 
    2*S2[a1, SP[a4, a5], a1, a3, a2, n] + 
    2*S2[a1, SP[a4, a5], a2, a1, a3, n] + 
    2*S2[a2, a1, a1, a4, SP[a3, a5], n] + 
    2*S2[a2, a1, a1, a5, SP[a3, a4], n] + 
    2*S2[a2, a1, a1, SP[a3, a4], a5, n] + 
    2*S2[a2, a1, a1, SP[a3, a5], a4, n] + 
    2*S2[a2, a1, a4, a1, SP[a3, a5], n] + 
    2*S2[a2, a1, a4, SP[a1, a5], a3, n] + 
    2*S2[a2, a1, a5, a1, SP[a3, a4], n] + 
    2*S2[a2, a1, a5, SP[a1, a4], a3, n] + 
    2*S2[a2, a1, SP[a1, a4], a3, a5, n] + 
    2*S2[a2, a1, SP[a1, a4], a5, a3, n] + 
    2*S2[a2, a1, SP[a1, a5], a3, a4, n] + 
    2*S2[a2, a1, SP[a1, a5], a4, a3, n] - 
    2*S2[a5, n]*S2[a2, a4, a1, a1, a3, n] + 
    2*S2[a2, a5, a1, a1, SP[a3, a4], n] + 
    2*S2[a2, a5, a1, SP[a1, a4], a3, n] + 
    2*S2[a2, a5, SP[a1, a4], a1, a3, n] + 
    2*S2[a2, SP[a1, a4], a1, a3, a5, n] + 
    2*S2[a2, SP[a1, a4], a1, a5, a3, n] + 
    2*S2[a2, SP[a1, a4], a5, a1, a3, n] + 
    2*S2[a2, SP[a1, a5], a1, a3, a4, n] + 
    2*S2[a2, SP[a1, a5], a1, a4, a3, n] + 
    2*S2[a2, SP[a1, a5], a4, a1, a3, n] - 
    2*S2[a2, SP[a4, a5], a1, a1, a3, n] - 
    2*S2[a2, n]*S2[a5, a1, a1, a3, a4, n] - 
    2*S2[a5, a1, a1, a3, SP[a2, a4], n] - 
    2*S2[a2, n]*S2[a5, a1, a1, a4, a3, n] - 
    2*S2[a5, a1, a1, a4, SP[a2, a3], n] - 
    2*S2[a5, a1, a1, SP[a2, a3], a4, n] - 
    2*S2[a5, a1, a1, SP[a2, a4], a3, n] + 
    S2[a1, n]*S2[a5, a1, a2, a3, a4, n] + S2[a5, a1, a2, a3, SP[a1, a4], n] + 
    S2[a1, n]*S2[a5, a1, a2, a4, a3, n] + S2[a5, a1, a2, a4, SP[a1, a3], n] + 
    S2[a5, a1, a2, SP[a1, a3], a4, n] + S2[a5, a1, a2, SP[a1, a4], a3, n] + 
    S2[a1, n]*S2[a5, a1, a3, a2, a4, n] + S2[a5, a1, a3, a2, SP[a1, a4], n] + 
    S2[a5, a1, a3, SP[a1, a2], a4, n] - 2*S2[a2, n]*
     S2[a5, a1, a4, a1, a3, n] - 2*S2[a5, a1, a4, a1, SP[a2, a3], n] - 
    2*S2[a5, a1, a4, SP[a1, a2], a3, n] - S2[a5, a1, SP[a1, a2], a3, a4, n] - 
    S2[a5, a1, SP[a1, a2], a4, a3, n] + S2[a5, a1, SP[a1, a3], a2, a4, n] - 
    2*S2[a5, a1, SP[a2, a4], a1, a3, n] + 
    S2[a1, n]*S2[a5, a2, a1, a3, a4, n] + S2[a5, a2, a1, a3, SP[a1, a4], n] + 
    S2[a1, n]*S2[a5, a2, a1, a4, a3, n] + S2[a5, a2, a1, a4, SP[a1, a3], n] + 
    S2[a5, a2, a1, SP[a1, a3], a4, n] + S2[a5, a2, a1, SP[a1, a4], a3, n] + 
    S2[a1, n]*S2[a5, a2, a4, a1, a3, n] + S2[a5, a2, a4, a1, SP[a1, a3], n] + 
    S2[a5, a2, a4, SP[a1, a1], a3, n] + S2[a5, a2, SP[a1, a1], a3, a4, n] + 
    S2[a5, a2, SP[a1, a1], a4, a3, n] + S2[a5, a2, SP[a1, a4], a1, a3, n] + 
    S2[a5, SP[a1, a1], a2, a3, a4, n] + S2[a5, SP[a1, a1], a2, a4, a3, n] + 
    S2[a5, SP[a1, a1], a3, a2, a4, n] - S2[a5, SP[a1, a2], a1, a3, a4, n] - 
    S2[a5, SP[a1, a2], a1, a4, a3, n] - S2[a5, SP[a1, a2], a4, a1, a3, n] + 
    S2[SP[a1, a1], a3, a5, a2, a4, n] + S2[SP[a1, a1], a5, a2, a3, a4, n] + 
    S2[SP[a1, a1], a5, a2, a4, a3, n] + S2[SP[a1, a1], a5, a3, a2, a4, n] + 
    S2[SP[a1, a5], a1, a2, a3, a4, n] + S2[SP[a1, a5], a1, a2, a4, a3, n] + 
    S2[SP[a1, a5], a1, a3, a2, a4, n] + 2*S2[SP[a1, a5], a1, a3, a4, a2, n] + 
    2*S2[SP[a1, a5], a1, a4, a2, a3, n] + 
    2*S2[SP[a1, a5], a1, a4, a3, a2, n] + S2[SP[a1, a5], a2, a1, a3, a4, n] + 
    S2[SP[a1, a5], a2, a1, a4, a3, n] + S2[SP[a1, a5], a2, a4, a1, a3, n] + 
    2*S2[SP[a1, a5], a4, a1, a2, a3, n] + 
    2*S2[SP[a1, a5], a4, a1, a3, a2, n] + 
    2*S2[SP[a1, a5], a4, a2, a1, a3, n] - 
    2*S2[SP[a2, a5], a1, a1, a3, a4, n] - 
    2*S2[SP[a2, a5], a1, a1, a4, a3, n] - 
    2*S2[SP[a2, a5], a1, a4, a1, a3, n] - 
    2*S2[SP[a2, a5], a4, a1, a1, a3, n] - S2[a5, a1, a2, a3, a1, a4, n] - 
    S2[a5, a1, a2, a3, a4, a1, n] - S2[a5, a1, a2, a4, a3, a1, n] - 
    S2[a5, a1, a3, a1, a2, a4, n] - S2[a5, a1, a3, a2, a1, a4, n] - 
    S2[a5, a1, a3, a2, a4, a1, n] - S2[a5, a2, a1, a3, a1, a4, n] - 
    S2[a5, a2, a1, a3, a4, a1, n] - S2[a5, a2, a1, a4, a3, a1, n] - 
    S2[a5, a2, a4, a1, a3, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a1_, a3_, a1_, a5_, a4_, a2_, n_] :> 
  -2*S2[a1, a1, a3, n]*S2[a2, a4, a5, n] - 
    2*S2[SP[a1, a2], SP[a1, a4], SP[a3, a5], n] + 
    2*S2[a1, a2, SP[a1, a4], SP[a3, a5], n] + 
    S2[a1, a3, n]*S2[a1, a5, a4, a2, n] - S2[a1, a5, SP[a1, a4], SP[a2, a3], 
     n] + 2*S2[a1, SP[a1, a2], a4, SP[a3, a5], n] + 
    2*S2[a1, SP[a1, a2], SP[a3, a4], a5, n] - S2[a1, SP[a1, a5], a4, 
     SP[a2, a3], n] - S2[a1, SP[a1, a5], SP[a3, a4], a2, n] + 
    2*S2[a2, a1, SP[a1, a4], SP[a3, a5], n] + 
    2*S2[a2, SP[a1, a4], a1, SP[a3, a5], n] + 
    2*S2[a2, SP[a1, a4], SP[a1, a5], a3, n] - S2[SP[a1, a1], a5, a4, 
     SP[a2, a3], n] - S2[SP[a1, a1], a5, SP[a3, a4], a2, n] - 
    S2[SP[a1, a1], SP[a3, a5], a4, a2, n] + 
    2*S2[SP[a1, a2], a1, a4, SP[a3, a5], n] + 
    2*S2[SP[a1, a2], a1, SP[a3, a4], a5, n] + 
    2*S2[SP[a1, a2], a4, a1, SP[a3, a5], n] + 
    2*S2[SP[a1, a2], a4, SP[a1, a5], a3, n] + 
    2*S2[SP[a1, a2], SP[a1, a4], a3, a5, n] + 
    2*S2[SP[a1, a2], SP[a1, a4], a5, a3, n] - 
    2*S2[a1, a1, a2, a4, SP[a3, a5], n] - 
    2*S2[a1, a1, a2, SP[a3, a4], a5, n] - 
    2*S2[a5, n]*S2[a1, a1, a3, a4, a2, n] + 
    2*S2[a2, n]*S2[a1, a1, a3, a4, a5, n] + 
    2*S2[a1, a1, a3, SP[a2, a4], a5, n] - 
    2*S2[a1, a1, a3, SP[a4, a5], a2, n] - 
    2*S2[a5, n]*S2[a1, a1, a4, a2, a3, n] - 
    2*S2[a1, a1, a4, a2, SP[a3, a5], n] - 
    2*S2[a5, n]*S2[a1, a1, a4, a3, a2, n] + 
    2*S2[a2, n]*S2[a1, a1, a4, a3, a5, n] + 
    2*S2[a2, n]*S2[a1, a1, a4, a5, a3, n] + 
    2*S2[a1, a1, a4, a5, SP[a2, a3], n] + 
    2*S2[a1, a1, a4, SP[a2, a3], a5, n] - 
    2*S2[a1, a1, a4, SP[a3, a5], a2, n] + 
    2*S2[a1, a1, a5, a4, SP[a2, a3], n] + 
    2*S2[a1, a1, a5, SP[a3, a4], a2, n] + 
    2*S2[a1, a1, SP[a2, a4], a3, a5, n] + 
    2*S2[a1, a1, SP[a2, a4], a5, a3, n] - 
    2*S2[a1, a1, SP[a4, a5], a2, a3, n] - 
    2*S2[a1, a1, SP[a4, a5], a3, a2, n] - 
    2*S2[a1, a2, a1, a4, SP[a3, a5], n] - 
    2*S2[a1, a2, a1, SP[a3, a4], a5, n] - 
    2*S2[a1, a2, a4, a1, SP[a3, a5], n] - 
    2*S2[a1, a2, a4, SP[a1, a5], a3, n] - 
    2*S2[a1, a2, SP[a1, a4], a3, a5, n] - 
    2*S2[a1, a2, SP[a1, a4], a5, a3, n] - 
    2*S2[a5, n]*S2[a1, a4, a1, a2, a3, n] - 
    2*S2[a1, a4, a1, a2, SP[a3, a5], n] - 
    2*S2[a5, n]*S2[a1, a4, a1, a3, a2, n] + 
    2*S2[a2, n]*S2[a1, a4, a1, a3, a5, n] + 
    2*S2[a2, n]*S2[a1, a4, a1, a5, a3, n] + 
    2*S2[a1, a4, a1, a5, SP[a2, a3], n] + 
    2*S2[a1, a4, a1, SP[a2, a3], a5, n] - 
    2*S2[a1, a4, a1, SP[a3, a5], a2, n] - 
    2*S2[a5, n]*S2[a1, a4, a2, a1, a3, n] - 
    2*S2[a1, a4, a2, a1, SP[a3, a5], n] - 
    2*S2[a1, a4, a2, SP[a1, a5], a3, n] + 
    2*S2[a2, n]*S2[a1, a4, a5, a1, a3, n] + 
    2*S2[a1, a4, a5, a1, SP[a2, a3], n] + 
    2*S2[a1, a4, a5, SP[a1, a2], a3, n] + 
    2*S2[a1, a4, SP[a1, a2], a3, a5, n] + 
    2*S2[a1, a4, SP[a1, a2], a5, a3, n] - 
    2*S2[a1, a4, SP[a1, a5], a2, a3, n] - 
    2*S2[a1, a4, SP[a1, a5], a3, a2, n] + S2[a1, a5, a1, a4, SP[a2, a3], n] + 
    S2[a1, a5, a1, SP[a3, a4], a2, n] + S2[a1, a5, a4, a1, SP[a2, a3], n] + 
    S2[a1, a5, a4, SP[a1, a2], a3, n] + S2[a1, a5, SP[a1, a4], a2, a3, n] + 
    S2[a1, a5, SP[a1, a4], a3, a2, n] + S2[a1, SP[a1, a3], a5, a4, a2, n] - 
    S2[a1, SP[a1, a5], a3, a4, a2, n] - S2[a1, SP[a1, a5], a4, a2, a3, n] - 
    S2[a1, SP[a1, a5], a4, a3, a2, n] + 2*S2[a1, SP[a2, a4], a1, a3, a5, n] + 
    2*S2[a1, SP[a2, a4], a1, a5, a3, n] + 
    2*S2[a1, SP[a2, a4], a5, a1, a3, n] - 
    2*S2[a1, SP[a4, a5], a1, a2, a3, n] - 
    2*S2[a1, SP[a4, a5], a1, a3, a2, n] - 
    2*S2[a1, SP[a4, a5], a2, a1, a3, n] - 
    2*S2[a2, a1, a1, a4, SP[a3, a5], n] - 
    2*S2[a2, a1, a1, SP[a3, a4], a5, n] - 
    2*S2[a2, a1, a4, a1, SP[a3, a5], n] - 
    2*S2[a2, a1, a4, SP[a1, a5], a3, n] - 
    2*S2[a2, a1, SP[a1, a4], a3, a5, n] - 
    2*S2[a2, a1, SP[a1, a4], a5, a3, n] + 
    2*S2[a5, n]*S2[a2, a4, a1, a1, a3, n] - 
    2*S2[a2, SP[a1, a4], a1, a3, a5, n] - 
    2*S2[a2, SP[a1, a4], a1, a5, a3, n] - 
    2*S2[a2, SP[a1, a4], a5, a1, a3, n] + 
    2*S2[a2, SP[a4, a5], a1, a1, a3, n] + 
    S2[a1, n]*S2[a5, a1, a3, a4, a2, n] + S2[a5, a1, a3, a4, SP[a1, a2], n] + 
    S2[a5, a1, a3, SP[a1, a4], a2, n] + S2[a1, n]*S2[a5, a1, a4, a2, a3, n] + 
    S2[a5, a1, a4, a2, SP[a1, a3], n] + S2[a1, n]*S2[a5, a1, a4, a3, a2, n] + 
    S2[a5, a1, a4, a3, SP[a1, a2], n] + S2[a5, a1, a4, SP[a1, a2], a3, n] + 
    S2[a5, a1, a4, SP[a1, a3], a2, n] + S2[a5, a1, SP[a1, a3], a4, a2, n] + 
    S2[a5, a1, SP[a1, a4], a2, a3, n] + S2[a5, a1, SP[a1, a4], a3, a2, n] - 
    2*S2[a2, n]*S2[a5, a4, a1, a1, a3, n] - 
    2*S2[a5, a4, a1, a1, SP[a2, a3], n] + 
    S2[a1, n]*S2[a5, a4, a1, a2, a3, n] + S2[a5, a4, a1, a2, SP[a1, a3], n] + 
    S2[a1, n]*S2[a5, a4, a1, a3, a2, n] + S2[a5, a4, a1, a3, SP[a1, a2], n] - 
    S2[a5, a4, a1, SP[a1, a2], a3, n] + S2[a5, a4, a1, SP[a1, a3], a2, n] + 
    S2[a1, n]*S2[a5, a4, a2, a1, a3, n] + S2[a5, a4, a2, a1, SP[a1, a3], n] + 
    S2[a5, a4, a2, SP[a1, a1], a3, n] + S2[a5, a4, SP[a1, a1], a2, a3, n] + 
    S2[a5, a4, SP[a1, a1], a3, a2, n] - S2[a5, a4, SP[a1, a2], a1, a3, n] + 
    S2[a5, SP[a1, a1], a3, a4, a2, n] + S2[a5, SP[a1, a1], a4, a2, a3, n] + 
    S2[a5, SP[a1, a1], a4, a3, a2, n] + S2[a5, SP[a1, a4], a1, a2, a3, n] + 
    S2[a5, SP[a1, a4], a1, a3, a2, n] + S2[a5, SP[a1, a4], a2, a1, a3, n] - 
    2*S2[a5, SP[a2, a4], a1, a1, a3, n] + S2[SP[a1, a1], a3, a5, a4, a2, n] + 
    S2[SP[a1, a1], a5, a3, a4, a2, n] + S2[SP[a1, a1], a5, a4, a2, a3, n] + 
    S2[SP[a1, a1], a5, a4, a3, a2, n] - S2[SP[a1, a5], a1, a3, a4, a2, n] - 
    S2[SP[a1, a5], a1, a4, a2, a3, n] - S2[SP[a1, a5], a1, a4, a3, a2, n] - 
    S2[SP[a1, a5], a4, a1, a2, a3, n] - S2[SP[a1, a5], a4, a1, a3, a2, n] - 
    S2[SP[a1, a5], a4, a2, a1, a3, n] - S2[a5, a1, a3, a1, a4, a2, n] - 
    S2[a5, a1, a3, a4, a1, a2, n] - S2[a5, a1, a3, a4, a2, a1, n] - 
    S2[a5, a1, a4, a2, a3, a1, n] - S2[a5, a1, a4, a3, a1, a2, n] - 
    S2[a5, a1, a4, a3, a2, a1, n] - S2[a5, a4, a1, a2, a3, a1, n] - 
    S2[a5, a4, a1, a3, a1, a2, n] - S2[a5, a4, a1, a3, a2, a1, n] - 
    S2[a5, a4, a2, a1, a3, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a1_, a3_, a2_, a1_, a4_, a5_, n_] :> 
  S2[a1, a3, a2, n]*S2[a1, a4, a5, n] + S2[SP[a1, a1], SP[a3, a4], 
     SP[a2, a5], n] + 2*S2[a4, a5, n]*S2[a1, a1, a2, a3, n] - 
    2*S2[a1, a1, SP[a2, a4], SP[a3, a5], n] - 
    2*S2[a1, a1, SP[a3, a4], SP[a2, a5], n] + 
    S2[a4, a5, n]*S2[a1, a2, a1, a3, n] - S2[a1, a3, n]*
     S2[a1, a2, a4, a5, n] - S2[a1, a3, n]*S2[a1, a4, a2, a5, n] - 
    S2[a1, a3, n]*S2[a1, a4, a5, a2, n] + S2[a1, a4, SP[a1, a2], SP[a3, a5], 
     n] + S2[a1, a4, SP[a1, a5], SP[a2, a3], n] + S2[a1, SP[a1, a2], a4, 
     SP[a3, a5], n] + S2[a1, SP[a1, a2], SP[a3, a4], a5, n] - 
    S2[a1, SP[a1, a3], a4, SP[a2, a5], n] - S2[a1, SP[a1, a3], SP[a2, a4], 
     a5, n] - S2[a1, SP[a1, a4], a2, SP[a3, a5], n] - 
    S2[a1, SP[a1, a4], a3, SP[a2, a5], n] + S2[a1, SP[a1, a4], a5, 
     SP[a2, a3], n] + S2[a1, SP[a1, a4], SP[a2, a3], a5, n] - 
    2*S2[a1, SP[a1, a4], SP[a2, a5], a3, n] - S2[a1, SP[a2, a4], a1, 
     SP[a3, a5], n] - S2[a1, SP[a2, a4], SP[a1, a5], a3, n] + 
    S2[SP[a1, a1], a2, a4, SP[a3, a5], n] + S2[SP[a1, a1], a2, SP[a3, a4], 
     a5, n] - S2[SP[a1, a1], a3, a4, SP[a2, a5], n] - 
    S2[SP[a1, a1], a3, SP[a2, a4], a5, n] + S2[SP[a1, a1], a4, a2, 
     SP[a3, a5], n] - S2[SP[a1, a1], a4, a3, SP[a2, a5], n] + 
    S2[SP[a1, a1], a4, a5, SP[a2, a3], n] + S2[SP[a1, a1], a4, SP[a2, a3], 
     a5, n] + S2[SP[a1, a1], SP[a2, a3], a4, a5, n] - 
    2*S2[SP[a1, a4], a1, a2, SP[a3, a5], n] - 
    2*S2[SP[a1, a4], a1, SP[a2, a5], a3, n] - S2[SP[a1, a4], a2, a1, 
     SP[a3, a5], n] - S2[SP[a1, a4], a2, SP[a1, a5], a3, n] - 
    2*S2[SP[a1, a4], SP[a1, a5], a2, a3, n] - S2[SP[a1, a4], SP[a2, a5], a1, 
     a3, n] + 2*S2[a5, n]*S2[a1, a1, a2, a3, a4, n] - 
    2*S2[a4, n]*S2[a1, a1, a2, a3, a5, n] + 
    2*S2[a5, n]*S2[a1, a1, a2, a4, a3, n] + 
    2*S2[a1, a1, a2, a4, SP[a3, a5], n] - 
    2*S2[a4, n]*S2[a1, a1, a2, a5, a3, n] - 
    2*S2[a1, a1, a2, a5, SP[a3, a4], n] - 
    2*S2[a1, a1, a2, SP[a3, a4], a5, n] + 
    2*S2[a1, a1, a2, SP[a3, a5], a4, n] + 
    2*S2[a1, a1, a3, a4, SP[a2, a5], n] + 
    2*S2[a1, a1, a3, SP[a2, a4], a5, n] + 
    2*S2[a5, n]*S2[a1, a1, a4, a2, a3, n] + 
    2*S2[a1, a1, a4, a2, SP[a3, a5], n] + 
    2*S2[a1, a1, a4, a3, SP[a2, a5], n] - 
    2*S2[a1, a1, a4, a5, SP[a2, a3], n] - 
    2*S2[a1, a1, a4, SP[a2, a3], a5, n] + 
    4*S2[a1, a1, a4, SP[a2, a5], a3, n] - 
    2*S2[a4, n]*S2[a1, a1, a5, a2, a3, n] - 
    2*S2[a1, a1, a5, a2, SP[a3, a4], n] - 
    2*S2[a1, a1, a5, SP[a2, a4], a3, n] - 
    2*S2[a1, a1, SP[a2, a3], a4, a5, n] + 
    2*S2[a1, a1, SP[a2, a5], a3, a4, n] + 
    2*S2[a1, a1, SP[a2, a5], a4, a3, n] + 
    S2[a5, n]*S2[a1, a2, a1, a3, a4, n] - 
    S2[a4, n]*S2[a1, a2, a1, a3, a5, n] + 
    S2[a5, n]*S2[a1, a2, a1, a4, a3, n] + S2[a1, a2, a1, a4, SP[a3, a5], n] - 
    S2[a4, n]*S2[a1, a2, a1, a5, a3, n] - S2[a1, a2, a1, a5, SP[a3, a4], n] - 
    S2[a1, a2, a1, SP[a3, a4], a5, n] + S2[a1, a2, a1, SP[a3, a5], a4, n] + 
    S2[a5, n]*S2[a1, a2, a4, a1, a3, n] + S2[a1, a2, a4, a1, SP[a3, a5], n] + 
    S2[a1, a2, a4, SP[a1, a5], a3, n] - S2[a4, n]*S2[a1, a2, a5, a1, a3, n] - 
    S2[a1, a2, a5, a1, SP[a3, a4], n] - S2[a1, a2, a5, SP[a1, a4], a3, n] - 
    S2[a1, a2, SP[a1, a4], a3, a5, n] - S2[a1, a2, SP[a1, a4], a5, a3, n] + 
    S2[a1, a2, SP[a1, a5], a3, a4, n] + S2[a1, a2, SP[a1, a5], a4, a3, n] + 
    S2[a1, a3, a1, a4, SP[a2, a5], n] + S2[a1, a3, a1, SP[a2, a4], a5, n] + 
    S2[a1, a3, SP[a1, a2], a4, a5, n] + S2[a5, n]*S2[a1, a4, a1, a2, a3, n] + 
    2*S2[a1, a4, a1, a2, SP[a3, a5], n] + S2[a1, a4, a1, a3, SP[a2, a5], n] - 
    S2[a1, a4, a1, a5, SP[a2, a3], n] - S2[a1, a4, a1, SP[a2, a3], a5, n] + 
    3*S2[a1, a4, a1, SP[a2, a5], a3, n] + 
    S2[a5, n]*S2[a1, a4, a2, a1, a3, n] + S2[a1, a4, a2, a1, SP[a3, a5], n] + 
    S2[a1, a4, a2, SP[a1, a5], a3, n] - S2[a1, a4, a5, a1, SP[a2, a3], n] - 
    S2[a1, a4, a5, SP[a1, a2], a3, n] - S2[a1, a4, SP[a1, a2], a3, a5, n] - 
    S2[a1, a4, SP[a1, a2], a5, a3, n] + 2*S2[a1, a4, SP[a1, a5], a2, a3, n] + 
    2*S2[a1, a4, SP[a2, a5], a1, a3, n] - 
    2*S2[a4, n]*S2[a1, a5, a1, a2, a3, n] - 
    2*S2[a1, a5, a1, a2, SP[a3, a4], n] - 
    2*S2[a1, a5, a1, SP[a2, a4], a3, n] - 
    S2[a4, n]*S2[a1, a5, a2, a1, a3, n] - S2[a1, a5, a2, a1, SP[a3, a4], n] - 
    S2[a1, a5, a2, SP[a1, a4], a3, n] - 2*S2[a1, a5, SP[a1, a4], a2, a3, n] - 
    S2[a1, a5, SP[a2, a4], a1, a3, n] - S2[a1, SP[a1, a2], a3, a4, a5, n] - 
    S2[a1, SP[a1, a2], a4, a3, a5, n] - S2[a1, SP[a1, a2], a4, a5, a3, n] - 
    S2[a1, SP[a1, a4], a2, a3, a5, n] - S2[a1, SP[a1, a4], a2, a5, a3, n] - 
    S2[a1, SP[a1, a4], a5, a2, a3, n] + 2*S2[a1, SP[a1, a5], a2, a3, a4, n] + 
    2*S2[a1, SP[a1, a5], a2, a4, a3, n] + 
    2*S2[a1, SP[a1, a5], a4, a2, a3, n] + S2[a1, SP[a2, a5], a1, a3, a4, n] + 
    S2[a1, SP[a2, a5], a1, a4, a3, n] + S2[a1, SP[a2, a5], a4, a1, a3, n] - 
    S2[a1, SP[a4, a5], a1, a2, a3, n] + 2*S2[a4, a1, a1, a2, SP[a3, a5], n] + 
    2*S2[a4, a1, a1, SP[a2, a5], a3, n] + S2[a4, a1, a2, a1, SP[a3, a5], n] + 
    S2[a4, a1, a2, SP[a1, a5], a3, n] + 2*S2[a4, a1, SP[a1, a5], a2, a3, n] + 
    S2[a4, a1, SP[a2, a5], a1, a3, n] + 2*S2[a4, SP[a1, a5], a1, a2, a3, n] + 
    S2[a4, SP[a1, a5], a2, a1, a3, n] - 2*S2[a4, n]*
     S2[a5, a1, a1, a2, a3, n] - 2*S2[a5, a1, a1, a2, SP[a3, a4], n] - 
    2*S2[a5, a1, a1, SP[a2, a4], a3, n] - 
    S2[a4, n]*S2[a5, a1, a2, a1, a3, n] - S2[a5, a1, a2, a1, SP[a3, a4], n] - 
    S2[a5, a1, a2, SP[a1, a4], a3, n] - 2*S2[a5, a1, SP[a1, a4], a2, a3, n] - 
    S2[a5, a1, SP[a2, a4], a1, a3, n] + S2[a1, n]*S2[a5, a4, a1, a2, a3, n] + 
    S2[a5, a4, a1, a2, SP[a1, a3], n] + S2[a5, a4, a1, SP[a1, a2], a3, n] + 
    S2[a5, a4, SP[a1, a1], a2, a3, n] - S2[a5, SP[a1, a4], a1, a2, a3, n] - 
    S2[a5, SP[a1, a4], a2, a1, a3, n] - S2[SP[a1, a1], a2, a3, a4, a5, n] - 
    S2[SP[a1, a1], a2, a4, a3, a5, n] - S2[SP[a1, a1], a2, a4, a5, a3, n] - 
    S2[SP[a1, a1], a4, a2, a3, a5, n] - S2[SP[a1, a1], a4, a2, a5, a3, n] - 
    S2[SP[a1, a1], a4, a5, a2, a3, n] + 2*S2[SP[a1, a5], a1, a2, a3, a4, n] + 
    2*S2[SP[a1, a5], a1, a2, a4, a3, n] + 
    2*S2[SP[a1, a5], a1, a4, a2, a3, n] + S2[SP[a1, a5], a2, a1, a3, a4, n] + 
    S2[SP[a1, a5], a2, a1, a4, a3, n] + S2[SP[a1, a5], a2, a4, a1, a3, n] + 
    2*S2[SP[a1, a5], a4, a1, a2, a3, n] + S2[SP[a1, a5], a4, a2, a1, a3, n] - 
    2*S2[SP[a4, a5], a1, a1, a2, a3, n] - S2[SP[a4, a5], a1, a2, a1, a3, n] - 
    S2[a5, a4, a1, a2, a3, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a1_, a3_, a2_, a1_, a5_, a4_, n_] :> 
  S2[a1, a3, a2, n]*S2[a1, a5, a4, n] + S2[SP[a1, a1], SP[a3, a5], 
     SP[a2, a4], n] - 2*S2[a4, a5, n]*S2[a1, a1, a2, a3, n] + 
    2*S2[a1, a1, SP[a2, a4], SP[a3, a5], n] - 
    2*S2[a1, a1, SP[a3, a5], SP[a2, a4], n] - 
    S2[a4, a5, n]*S2[a1, a2, a1, a3, n] - S2[a1, a3, n]*
     S2[a1, a2, a5, a4, n] + S2[a1, a2, SP[a1, a4], SP[a3, a5], n] + 
    S2[a1, a2, SP[a1, a5], SP[a3, a4], n] - S2[a1, a3, n]*
     S2[a1, a5, a2, a4, n] - S2[a1, a3, n]*S2[a1, a5, a4, a2, n] + 
    S2[a1, a5, SP[a1, a2], SP[a3, a4], n] + S2[a1, a5, SP[a1, a4], 
     SP[a2, a3], n] + S2[a1, SP[a1, a2], a5, SP[a3, a4], n] + 
    S2[a1, SP[a1, a2], SP[a3, a5], a4, n] - S2[a1, SP[a1, a3], a5, 
     SP[a2, a4], n] - S2[a1, SP[a1, a3], SP[a2, a5], a4, n] + 
    2*S2[a1, SP[a1, a4], a2, SP[a3, a5], n] + 
    2*S2[a1, SP[a1, a4], SP[a2, a5], a3, n] + S2[a1, SP[a1, a5], a2, 
     SP[a3, a4], n] - S2[a1, SP[a1, a5], a3, SP[a2, a4], n] + 
    S2[a1, SP[a1, a5], a4, SP[a2, a3], n] + S2[a1, SP[a1, a5], SP[a2, a3], 
     a4, n] + S2[a1, SP[a2, a4], a1, SP[a3, a5], n] + 
    S2[a1, SP[a2, a4], SP[a1, a5], a3, n] + S2[SP[a1, a1], a2, a5, 
     SP[a3, a4], n] + S2[SP[a1, a1], a2, SP[a3, a5], a4, n] - 
    S2[SP[a1, a1], a3, a5, SP[a2, a4], n] - S2[SP[a1, a1], a3, SP[a2, a5], 
     a4, n] + S2[SP[a1, a1], a5, a2, SP[a3, a4], n] - 
    S2[SP[a1, a1], a5, a3, SP[a2, a4], n] + S2[SP[a1, a1], a5, a4, 
     SP[a2, a3], n] + S2[SP[a1, a1], a5, SP[a2, a3], a4, n] + 
    S2[SP[a1, a1], SP[a2, a3], a5, a4, n] + 
    2*S2[SP[a1, a4], a1, a2, SP[a3, a5], n] + 
    2*S2[SP[a1, a4], a1, SP[a2, a5], a3, n] + S2[SP[a1, a4], a2, a1, 
     SP[a3, a5], n] + S2[SP[a1, a4], a2, SP[a1, a5], a3, n] + 
    2*S2[SP[a1, a4], SP[a1, a5], a2, a3, n] + S2[SP[a1, a4], SP[a2, a5], a1, 
     a3, n] + 2*S2[a4, n]*S2[a1, a1, a2, a3, a5, n] + 
    2*S2[a1, a1, a2, a3, SP[a4, a5], n] - 
    2*S2[a1, a1, a2, a4, SP[a3, a5], n] + 
    2*S2[a4, n]*S2[a1, a1, a2, a5, a3, n] - 
    2*S2[a1, a1, a2, SP[a3, a5], a4, n] + 
    2*S2[a1, a1, a2, SP[a4, a5], a3, n] + 
    2*S2[a1, a1, a3, a5, SP[a2, a4], n] + 
    2*S2[a1, a1, a3, SP[a2, a5], a4, n] - 
    2*S2[a1, a1, a4, a2, SP[a3, a5], n] - 
    2*S2[a1, a1, a4, SP[a2, a5], a3, n] + 
    2*S2[a4, n]*S2[a1, a1, a5, a2, a3, n] + 
    2*S2[a1, a1, a5, a3, SP[a2, a4], n] - 
    2*S2[a1, a1, a5, a4, SP[a2, a3], n] - 
    2*S2[a1, a1, a5, SP[a2, a3], a4, n] + 
    2*S2[a1, a1, a5, SP[a2, a4], a3, n] - 
    2*S2[a1, a1, SP[a2, a3], a5, a4, n] + 
    2*S2[a1, a1, SP[a4, a5], a2, a3, n] + 
    S2[a4, n]*S2[a1, a2, a1, a3, a5, n] + S2[a1, a2, a1, a3, SP[a4, a5], n] - 
    S2[a1, a2, a1, a4, SP[a3, a5], n] + S2[a4, n]*S2[a1, a2, a1, a5, a3, n] - 
    S2[a1, a2, a1, SP[a3, a5], a4, n] + S2[a1, a2, a1, SP[a4, a5], a3, n] - 
    S2[a1, a2, a4, a1, SP[a3, a5], n] - S2[a1, a2, a4, SP[a1, a5], a3, n] + 
    S2[a4, n]*S2[a1, a2, a5, a1, a3, n] - S2[a1, a2, SP[a1, a5], a3, a4, n] - 
    S2[a1, a2, SP[a1, a5], a4, a3, n] + S2[a1, a2, SP[a4, a5], a1, a3, n] + 
    S2[a1, a3, a1, a5, SP[a2, a4], n] + S2[a1, a3, a1, SP[a2, a5], a4, n] + 
    S2[a1, a3, SP[a1, a2], a5, a4, n] - 2*S2[a1, a4, a1, a2, SP[a3, a5], n] - 
    2*S2[a1, a4, a1, SP[a2, a5], a3, n] - S2[a1, a4, a2, a1, SP[a3, a5], n] - 
    S2[a1, a4, a2, SP[a1, a5], a3, n] - 2*S2[a1, a4, SP[a1, a5], a2, a3, n] - 
    S2[a1, a4, SP[a2, a5], a1, a3, n] + 2*S2[a4, n]*
     S2[a1, a5, a1, a2, a3, n] + S2[a1, a5, a1, a2, SP[a3, a4], n] + 
    S2[a1, a5, a1, a3, SP[a2, a4], n] - S2[a1, a5, a1, a4, SP[a2, a3], n] - 
    S2[a1, a5, a1, SP[a2, a3], a4, n] + 2*S2[a1, a5, a1, SP[a2, a4], a3, n] + 
    S2[a4, n]*S2[a1, a5, a2, a1, a3, n] - S2[a1, a5, a4, a1, SP[a2, a3], n] - 
    S2[a1, a5, a4, SP[a1, a2], a3, n] - S2[a1, a5, SP[a1, a2], a3, a4, n] - 
    S2[a1, a5, SP[a1, a2], a4, a3, n] + S2[a1, a5, SP[a1, a4], a2, a3, n] + 
    S2[a1, a5, SP[a2, a4], a1, a3, n] - S2[a1, SP[a1, a2], a3, a5, a4, n] - 
    S2[a1, SP[a1, a2], a5, a3, a4, n] - S2[a1, SP[a1, a2], a5, a4, a3, n] - 
    S2[a1, SP[a1, a5], a2, a3, a4, n] - S2[a1, SP[a1, a5], a2, a4, a3, n] - 
    S2[a1, SP[a1, a5], a4, a2, a3, n] + 2*S2[a1, SP[a4, a5], a1, a2, a3, n] + 
    S2[a1, SP[a4, a5], a2, a1, a3, n] - 2*S2[a4, a1, a1, a2, SP[a3, a5], n] - 
    2*S2[a4, a1, a1, SP[a2, a5], a3, n] - S2[a4, a1, a2, a1, SP[a3, a5], n] - 
    S2[a4, a1, a2, SP[a1, a5], a3, n] - 2*S2[a4, a1, SP[a1, a5], a2, a3, n] - 
    S2[a4, a1, SP[a2, a5], a1, a3, n] - 2*S2[a4, SP[a1, a5], a1, a2, a3, n] - 
    S2[a4, SP[a1, a5], a2, a1, a3, n] + 2*S2[a4, n]*
     S2[a5, a1, a1, a2, a3, n] + 2*S2[a5, a1, a1, a2, SP[a3, a4], n] + 
    2*S2[a5, a1, a1, SP[a2, a4], a3, n] + 
    S2[a4, n]*S2[a5, a1, a2, a1, a3, n] + S2[a5, a1, a2, a1, SP[a3, a4], n] - 
    S2[a1, n]*S2[a5, a1, a2, a3, a4, n] - S2[a5, a1, a2, a3, SP[a1, a4], n] - 
    S2[a1, n]*S2[a5, a1, a2, a4, a3, n] - S2[a5, a1, a2, a4, SP[a1, a3], n] - 
    S2[a5, a1, a2, SP[a1, a3], a4, n] - S2[a1, n]*S2[a5, a1, a4, a2, a3, n] - 
    S2[a5, a1, a4, a2, SP[a1, a3], n] - S2[a5, a1, a4, SP[a1, a2], a3, n] - 
    S2[a5, a1, SP[a1, a2], a3, a4, n] - S2[a5, a1, SP[a1, a2], a4, a3, n] + 
    S2[a5, a1, SP[a1, a4], a2, a3, n] + S2[a5, a1, SP[a2, a4], a1, a3, n] - 
    S2[a1, n]*S2[a5, a4, a1, a2, a3, n] - S2[a5, a4, a1, a2, SP[a1, a3], n] - 
    S2[a5, a4, a1, SP[a1, a2], a3, n] - S2[a5, a4, SP[a1, a1], a2, a3, n] - 
    S2[a5, SP[a1, a1], a2, a3, a4, n] - S2[a5, SP[a1, a1], a2, a4, a3, n] - 
    S2[a5, SP[a1, a1], a4, a2, a3, n] + S2[a5, SP[a1, a4], a1, a2, a3, n] + 
    S2[a5, SP[a1, a4], a2, a1, a3, n] - S2[SP[a1, a1], a2, a3, a5, a4, n] - 
    S2[SP[a1, a1], a2, a5, a3, a4, n] - S2[SP[a1, a1], a2, a5, a4, a3, n] - 
    S2[SP[a1, a1], a5, a2, a3, a4, n] - S2[SP[a1, a1], a5, a2, a4, a3, n] - 
    S2[SP[a1, a1], a5, a4, a2, a3, n] - S2[SP[a1, a5], a1, a2, a3, a4, n] - 
    S2[SP[a1, a5], a1, a2, a4, a3, n] - S2[SP[a1, a5], a1, a4, a2, a3, n] - 
    S2[SP[a1, a5], a4, a1, a2, a3, n] + 2*S2[SP[a4, a5], a1, a1, a2, a3, n] + 
    S2[SP[a4, a5], a1, a2, a1, a3, n] + S2[a5, a1, a2, a3, a1, a4, n] + 
    S2[a5, a1, a2, a3, a4, a1, n] + S2[a5, a1, a2, a4, a3, a1, n] + 
    S2[a5, a1, a4, a2, a3, a1, n] + S2[a5, a4, a1, a2, a3, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a1_, a3_, a2_, a4_, a1_, a5_, n_] :> 
  -(S2[a1, a3, a2, n]*S2[a1, a4, a5, n]) - S2[a1, a3, a2, n]*
     S2[a1, a5, a4, n] - S2[SP[a1, a1], SP[a3, a4], SP[a2, a5], n] - 
    S2[SP[a1, a1], SP[a3, a5], SP[a2, a4], n] + 
    2*S2[a1, a1, SP[a3, a4], SP[a2, a5], n] + 
    2*S2[a1, a1, SP[a3, a5], SP[a2, a4], n] + 
    S2[a1, a5, n]*S2[a1, a3, a2, a4, n] - S2[a1, a3, SP[a1, a2], SP[a4, a5], 
     n] + S2[a1, a3, n]*S2[a1, a4, a2, a5, n] + 
    S2[a1, a3, n]*S2[a1, a4, a5, a2, n] - S2[a1, a4, SP[a1, a2], SP[a3, a5], 
     n] - S2[a1, a4, SP[a1, a5], SP[a2, a3], n] + 
    S2[a1, a3, n]*S2[a1, a5, a4, a2, n] - S2[a1, a5, SP[a1, a4], SP[a2, a3], 
     n] - S2[a1, SP[a1, a3], a2, SP[a4, a5], n] + S2[a1, SP[a1, a3], a4, 
     SP[a2, a5], n] + S2[a1, SP[a1, a3], a5, SP[a2, a4], n] + 
    S2[a1, SP[a1, a3], SP[a2, a4], a5, n] - S2[a1, SP[a1, a4], a2, 
     SP[a3, a5], n] + S2[a1, SP[a1, a4], a3, SP[a2, a5], n] - 
    S2[a1, SP[a1, a4], a5, SP[a2, a3], n] - S2[a1, SP[a1, a4], SP[a2, a3], 
     a5, n] + S2[a1, SP[a1, a5], a3, SP[a2, a4], n] - 
    S2[a1, SP[a1, a5], a4, SP[a2, a3], n] - S2[SP[a1, a1], a3, a2, 
     SP[a4, a5], n] + S2[SP[a1, a1], a3, a4, SP[a2, a5], n] + 
    S2[SP[a1, a1], a3, a5, SP[a2, a4], n] + S2[SP[a1, a1], a3, SP[a2, a4], 
     a5, n] - S2[SP[a1, a1], a4, a2, SP[a3, a5], n] + 
    S2[SP[a1, a1], a4, a3, SP[a2, a5], n] - S2[SP[a1, a1], a4, a5, 
     SP[a2, a3], n] - S2[SP[a1, a1], a4, SP[a2, a3], a5, n] + 
    S2[SP[a1, a1], a5, a3, SP[a2, a4], n] - S2[SP[a1, a1], a5, a4, 
     SP[a2, a3], n] + 2*S2[a1, a1, a3, a2, SP[a4, a5], n] - 
    2*S2[a1, a1, a3, a4, SP[a2, a5], n] - 
    2*S2[a1, a1, a3, a5, SP[a2, a4], n] - 
    2*S2[a1, a1, a3, SP[a2, a4], a5, n] - 
    2*S2[a5, n]*S2[a1, a1, a4, a2, a3, n] - 
    2*S2[a1, a1, a4, a3, SP[a2, a5], n] + 
    2*S2[a1, a1, a4, a5, SP[a2, a3], n] + 
    2*S2[a1, a1, a4, SP[a2, a3], a5, n] - 
    2*S2[a1, a1, a4, SP[a2, a5], a3, n] - 
    2*S2[a1, a1, a5, a3, SP[a2, a4], n] + 
    2*S2[a1, a1, a5, a4, SP[a2, a3], n] - 
    2*S2[a1, a1, SP[a4, a5], a2, a3, n] + S2[a1, a3, a1, a2, SP[a4, a5], n] - 
    S2[a1, a3, a1, a4, SP[a2, a5], n] - S2[a1, a3, a1, a5, SP[a2, a4], n] - 
    S2[a1, a3, a1, SP[a2, a4], a5, n] + S2[a1, a3, a2, a1, SP[a4, a5], n] + 
    S2[a1, a3, a2, SP[a1, a4], a5, n] - S2[a5, n]*S2[a1, a4, a1, a2, a3, n] - 
    S2[a1, a4, a1, a3, SP[a2, a5], n] + S2[a1, a4, a1, a5, SP[a2, a3], n] + 
    S2[a1, a4, a1, SP[a2, a3], a5, n] - S2[a1, a4, a1, SP[a2, a5], a3, n] - 
    S2[a5, n]*S2[a1, a4, a2, a1, a3, n] + S2[a1, a4, a5, a1, SP[a2, a3], n] + 
    S2[a1, a4, a5, SP[a1, a2], a3, n] + S2[a1, a4, SP[a1, a2], a3, a5, n] + 
    S2[a1, a4, SP[a1, a2], a5, a3, n] - S2[a1, a4, SP[a2, a5], a1, a3, n] - 
    S2[a1, a5, a1, a3, SP[a2, a4], n] + S2[a1, a5, a1, a4, SP[a2, a3], n] + 
    S2[a1, a5, a4, a1, SP[a2, a3], n] + S2[a1, a5, a4, SP[a1, a2], a3, n] + 
    S2[a1, a5, SP[a1, a4], a2, a3, n] + S2[a1, SP[a1, a4], a2, a3, a5, n] + 
    S2[a1, SP[a1, a4], a2, a5, a3, n] + S2[a1, SP[a1, a4], a5, a2, a3, n] - 
    S2[a1, SP[a1, a5], a4, a2, a3, n] - S2[a1, SP[a4, a5], a1, a2, a3, n] - 
    S2[a1, SP[a4, a5], a2, a1, a3, n] + S2[a1, n]*S2[a5, a1, a4, a2, a3, n] + 
    S2[a5, a1, a4, a2, SP[a1, a3], n] + S2[a5, a1, a4, SP[a1, a2], a3, n] + 
    S2[a5, a1, SP[a1, a4], a2, a3, n] + S2[a5, SP[a1, a1], a4, a2, a3, n] + 
    S2[SP[a1, a1], a4, a2, a3, a5, n] + S2[SP[a1, a1], a4, a2, a5, a3, n] + 
    S2[SP[a1, a1], a4, a5, a2, a3, n] + S2[SP[a1, a1], a5, a4, a2, a3, n] - 
    S2[SP[a1, a5], a1, a4, a2, a3, n] - S2[SP[a1, a5], a4, a1, a2, a3, n] - 
    S2[SP[a1, a5], a4, a2, a1, a3, n] - S2[a5, a1, a4, a2, a3, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a1_, a3_, a2_, a4_, a5_, a1_, n_] :> 
  S2[a1, a3, a2, n]*S2[a1, a5, a4, n] + S2[SP[a1, a1], SP[a3, a5], 
     SP[a2, a4], n] - 2*S2[a1, a1, SP[a3, a5], SP[a2, a4], n] - 
    S2[a1, a5, n]*S2[a1, a3, a2, a4, n] + S2[a1, a3, SP[a1, a2], SP[a4, a5], 
     n] - S2[a1, a3, n]*S2[a1, a5, a4, a2, n] + S2[a1, a5, SP[a1, a4], 
     SP[a2, a3], n] + S2[a1, SP[a1, a3], a2, SP[a4, a5], n] - 
    S2[a1, SP[a1, a3], a5, SP[a2, a4], n] - S2[a1, SP[a1, a5], a3, 
     SP[a2, a4], n] + S2[a1, SP[a1, a5], a4, SP[a2, a3], n] + 
    S2[SP[a1, a1], a3, a2, SP[a4, a5], n] - S2[SP[a1, a1], a3, a5, 
     SP[a2, a4], n] - S2[SP[a1, a1], a5, a3, SP[a2, a4], n] + 
    S2[SP[a1, a1], a5, a4, SP[a2, a3], n] - 
    2*S2[a1, a1, a3, a2, SP[a4, a5], n] + 
    2*S2[a1, a1, a3, a5, SP[a2, a4], n] + 
    2*S2[a1, a1, a5, a3, SP[a2, a4], n] - 
    2*S2[a1, a1, a5, a4, SP[a2, a3], n] - S2[a1, a3, a1, a2, SP[a4, a5], n] + 
    S2[a1, a3, a1, a5, SP[a2, a4], n] - S2[a1, a3, a2, a1, SP[a4, a5], n] + 
    S2[a1, n]*S2[a1, a3, a2, a4, a5, n] + S2[a1, a3, a2, a4, SP[a1, a5], n] + 
    S2[a1, a5, a1, a3, SP[a2, a4], n] - S2[a1, a5, a1, a4, SP[a2, a3], n] - 
    S2[a1, a5, a4, a1, SP[a2, a3], n] + S2[a1, n]*S2[a1, a5, a4, a2, a3, n] + 
    S2[a1, a5, a4, a2, SP[a1, a3], n] - S2[a1, n]*S2[a5, a4, a2, a3, a1, n] - 
    S2[a5, a4, a2, a3, SP[a1, a1], n] - S2[a5, a4, a2, SP[a1, a3], a1, n] - 
    S2[a5, a4, SP[a1, a2], a3, a1, n] - S2[a5, SP[a1, a4], a2, a3, a1, n] - 
    S2[SP[a1, a5], a4, a2, a3, a1, n] + S2[a5, a1, a4, a2, a3, a1, n] + 
    S2[a5, a4, a1, a2, a3, a1, n] + S2[a5, a4, a2, a1, a3, a1, n] + 
    2*S2[a5, a4, a2, a3, a1, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a1_, a3_, a2_, a5_, a1_, a4_, n_] :> 
  -(S2[a1, a3, a2, n]*S2[a1, a4, a5, n]) - S2[a1, a3, a2, n]*
     S2[a1, a5, a4, n] - S2[SP[a1, a1], SP[a3, a4], SP[a2, a5], n] - 
    S2[SP[a1, a1], SP[a3, a5], SP[a2, a4], n] + 
    2*S2[a1, a1, SP[a3, a4], SP[a2, a5], n] + 
    2*S2[a1, a1, SP[a3, a5], SP[a2, a4], n] + S2[a1, SP[a1, a3], a4, 
     SP[a2, a5], n] + S2[a1, SP[a1, a3], a5, SP[a2, a4], n] + 
    S2[a1, SP[a1, a3], SP[a2, a4], a5, n] + S2[a1, SP[a1, a3], SP[a2, a5], 
     a4, n] + S2[a1, SP[a1, a4], a3, SP[a2, a5], n] + 
    S2[a1, SP[a1, a4], SP[a3, a5], a2, n] + S2[a1, SP[a1, a5], a3, 
     SP[a2, a4], n] + S2[a1, SP[a1, a5], SP[a3, a4], a2, n] + 
    S2[a1, a3, n]*S2[a2, a5, a1, a4, n] - S2[a2, a5, SP[a1, a1], SP[a3, a4], 
     n] - S2[a2, SP[a1, a5], a1, SP[a3, a4], n] - 
    S2[a2, SP[a1, a5], SP[a1, a3], a4, n] + S2[SP[a1, a1], a3, a4, 
     SP[a2, a5], n] + S2[SP[a1, a1], a3, a5, SP[a2, a4], n] + 
    S2[SP[a1, a1], a3, SP[a2, a4], a5, n] + S2[SP[a1, a1], a3, SP[a2, a5], 
     a4, n] + S2[SP[a1, a1], a4, a3, SP[a2, a5], n] + 
    S2[SP[a1, a1], a4, SP[a3, a5], a2, n] + S2[SP[a1, a1], a5, a3, 
     SP[a2, a4], n] + S2[SP[a1, a1], a5, SP[a3, a4], a2, n] + 
    S2[SP[a1, a1], SP[a3, a4], a2, a5, n] + S2[SP[a1, a1], SP[a3, a4], a5, 
     a2, n] + S2[SP[a1, a1], SP[a3, a5], a2, a4, n] + 
    S2[SP[a1, a1], SP[a3, a5], a4, a2, n] - S2[SP[a1, a2], a5, a1, 
     SP[a3, a4], n] - S2[SP[a1, a2], a5, SP[a1, a3], a4, n] - 
    S2[SP[a1, a2], SP[a3, a5], a1, a4, n] + 
    2*S2[a5, n]*S2[a1, a1, a3, a2, a4, n] + 
    2*S2[a1, a1, a3, a2, SP[a4, a5], n] + 
    2*S2[a5, n]*S2[a1, a1, a3, a4, a2, n] - 
    2*S2[a1, a1, a3, a5, SP[a2, a4], n] - 
    2*S2[a1, a1, a3, SP[a2, a4], a5, n] + 
    2*S2[a1, a1, a3, SP[a4, a5], a2, n] + 
    2*S2[a5, n]*S2[a1, a1, a4, a3, a2, n] - 
    2*S2[a1, a1, a5, a3, SP[a2, a4], n] - 
    2*S2[a1, a1, a5, SP[a3, a4], a2, n] - 
    2*S2[a1, a1, SP[a3, a4], a2, a5, n] - 
    2*S2[a1, a1, SP[a3, a4], a5, a2, n] + 
    2*S2[a1, a1, SP[a4, a5], a3, a2, n] + S2[a1, a2, a5, a1, SP[a3, a4], n] + 
    S2[a1, a2, a5, SP[a1, a3], a4, n] + S2[a1, a2, SP[a3, a5], a1, a4, n] + 
    S2[a5, n]*S2[a1, a3, a1, a2, a4, n] + S2[a1, a3, a1, a2, SP[a4, a5], n] + 
    S2[a5, n]*S2[a1, a3, a1, a4, a2, n] - S2[a1, a3, a1, a5, SP[a2, a4], n] - 
    S2[a1, a3, a1, SP[a2, a4], a5, n] + S2[a1, a3, a1, SP[a4, a5], a2, n] + 
    S2[a5, n]*S2[a1, a3, a2, a1, a4, n] + S2[a1, a3, a2, a1, SP[a4, a5], n] + 
    S2[a1, a3, a2, SP[a1, a5], a4, n] - S2[a2, n]*S2[a1, a3, a5, a1, a4, n] - 
    S2[a1, a3, a5, a1, SP[a2, a4], n] - S2[a1, a3, a5, SP[a1, a2], a4, n] - 
    S2[a1, a3, SP[a1, a2], a4, a5, n] - S2[a1, a3, SP[a1, a2], a5, a4, n] + 
    S2[a1, a3, SP[a1, a5], a2, a4, n] + S2[a1, a3, SP[a1, a5], a4, a2, n] + 
    S2[a5, n]*S2[a1, a4, a1, a3, a2, n] - 
    S2[a2, n]*S2[a1, a5, a1, a3, a4, n] - 
    2*S2[a1, a5, a1, a3, SP[a2, a4], n] - 
    S2[a2, n]*S2[a1, a5, a1, a4, a3, n] - S2[a1, a5, a1, a4, SP[a2, a3], n] - 
    S2[a1, a5, a1, SP[a2, a3], a4, n] - S2[a1, a5, a1, SP[a2, a4], a3, n] - 
    S2[a1, a5, a1, SP[a3, a4], a2, n] - S2[a2, n]*S2[a1, a5, a3, a1, a4, n] - 
    S2[a1, a5, a3, a1, SP[a2, a4], n] - S2[a1, a5, a3, SP[a1, a2], a4, n] - 
    S2[a1, a5, SP[a1, a2], a3, a4, n] - S2[a1, a5, SP[a1, a2], a4, a3, n] - 
    S2[a1, a5, SP[a1, a4], a3, a2, n] - S2[a1, a5, SP[a2, a3], a1, a4, n] - 
    S2[a1, SP[a1, a3], a2, a4, a5, n] - S2[a1, SP[a1, a3], a2, a5, a4, n] - 
    S2[a1, SP[a1, a3], a4, a2, a5, n] - S2[a1, SP[a1, a3], a4, a5, a2, n] - 
    S2[a1, SP[a1, a3], a5, a2, a4, n] - S2[a1, SP[a1, a3], a5, a4, a2, n] - 
    S2[a1, SP[a1, a4], a3, a2, a5, n] - S2[a1, SP[a1, a4], a3, a5, a2, n] - 
    S2[a1, SP[a1, a4], a5, a3, a2, n] + S2[a1, SP[a1, a5], a3, a2, a4, n] + 
    S2[a1, SP[a1, a5], a3, a4, a2, n] + S2[a1, SP[a1, a5], a4, a3, a2, n] - 
    S2[a1, SP[a2, a5], a1, a3, a4, n] - S2[a1, SP[a2, a5], a1, a4, a3, n] - 
    S2[a1, SP[a2, a5], a3, a1, a4, n] + S2[a1, SP[a3, a5], a1, a2, a4, n] + 
    S2[a1, SP[a3, a5], a1, a4, a2, n] + S2[a1, SP[a3, a5], a2, a1, a4, n] + 
    S2[a1, SP[a4, a5], a1, a3, a2, n] + S2[a2, a1, a5, a1, SP[a3, a4], n] + 
    S2[a2, a1, a5, SP[a1, a3], a4, n] + S2[a2, a1, SP[a3, a5], a1, a4, n] + 
    2*S2[a2, a5, a1, a1, SP[a3, a4], n] + S2[a2, a5, a1, SP[a1, a3], a4, n] + 
    S2[a2, a5, a1, SP[a1, a4], a3, n] + S2[a2, a5, SP[a1, a1], a3, a4, n] + 
    S2[a2, a5, SP[a1, a1], a4, a3, n] + S2[a2, SP[a1, a5], a1, a3, a4, n] + 
    S2[a2, SP[a1, a5], a1, a4, a3, n] + S2[a2, SP[a1, a5], a3, a1, a4, n] - 
    2*S2[a2, n]*S2[a5, a1, a1, a3, a4, n] - 
    2*S2[a5, a1, a1, a3, SP[a2, a4], n] - 
    2*S2[a2, n]*S2[a5, a1, a1, a4, a3, n] - 
    2*S2[a5, a1, a1, a4, SP[a2, a3], n] - 
    2*S2[a5, a1, a1, SP[a2, a3], a4, n] - 
    2*S2[a5, a1, a1, SP[a2, a4], a3, n] + 
    S2[a1, n]*S2[a5, a1, a2, a3, a4, n] + S2[a5, a1, a2, a3, SP[a1, a4], n] + 
    S2[a1, n]*S2[a5, a1, a2, a4, a3, n] + S2[a5, a1, a2, a4, SP[a1, a3], n] + 
    S2[a5, a1, a2, SP[a1, a3], a4, n] + S2[a5, a1, a2, SP[a1, a4], a3, n] - 
    S2[a2, n]*S2[a5, a1, a3, a1, a4, n] - S2[a5, a1, a3, a1, SP[a2, a4], n] - 
    S2[a5, a1, a3, SP[a1, a2], a4, n] - S2[a2, n]*S2[a5, a1, a4, a1, a3, n] - 
    S2[a5, a1, a4, a1, SP[a2, a3], n] + S2[a1, n]*S2[a5, a1, a4, a2, a3, n] + 
    S2[a5, a1, a4, a2, SP[a1, a3], n] - S2[a5, a1, SP[a1, a2], a3, a4, n] - 
    S2[a5, a1, SP[a1, a2], a4, a3, n] + S2[a5, a1, SP[a1, a4], a2, a3, n] - 
    S2[a5, a1, SP[a2, a3], a1, a4, n] - S2[a5, a1, SP[a2, a4], a1, a3, n] + 
    S2[a1, n]*S2[a5, a2, a1, a3, a4, n] + S2[a5, a2, a1, a3, SP[a1, a4], n] + 
    S2[a1, n]*S2[a5, a2, a1, a4, a3, n] + S2[a5, a2, a1, a4, SP[a1, a3], n] + 
    S2[a5, a2, a1, SP[a1, a3], a4, n] + S2[a5, a2, a1, SP[a1, a4], a3, n] + 
    S2[a1, n]*S2[a5, a2, a3, a1, a4, n] + S2[a5, a2, a3, a1, SP[a1, a4], n] + 
    S2[a5, a2, a3, SP[a1, a1], a4, n] + S2[a5, a2, SP[a1, a1], a3, a4, n] + 
    S2[a5, a2, SP[a1, a1], a4, a3, n] + S2[a5, a2, SP[a1, a3], a1, a4, n] + 
    S2[a5, SP[a1, a1], a2, a3, a4, n] + S2[a5, SP[a1, a1], a2, a4, a3, n] + 
    S2[a5, SP[a1, a1], a4, a2, a3, n] - S2[a5, SP[a1, a2], a1, a3, a4, n] - 
    S2[a5, SP[a1, a2], a1, a4, a3, n] - S2[a5, SP[a1, a2], a4, a1, a3, n] - 
    S2[SP[a1, a1], a3, a2, a4, a5, n] - S2[SP[a1, a1], a3, a2, a5, a4, n] - 
    S2[SP[a1, a1], a3, a4, a2, a5, n] - S2[SP[a1, a1], a3, a4, a5, a2, n] - 
    S2[SP[a1, a1], a3, a5, a2, a4, n] - S2[SP[a1, a1], a3, a5, a4, a2, n] - 
    S2[SP[a1, a1], a4, a3, a2, a5, n] - S2[SP[a1, a1], a4, a3, a5, a2, n] - 
    S2[SP[a1, a1], a4, a5, a3, a2, n] - S2[SP[a1, a1], a5, a3, a2, a4, n] - 
    S2[SP[a1, a1], a5, a3, a4, a2, n] - S2[SP[a1, a1], a5, a4, a3, a2, n] + 
    S2[SP[a1, a5], a1, a2, a3, a4, n] + S2[SP[a1, a5], a1, a2, a4, a3, n] + 
    2*S2[SP[a1, a5], a1, a3, a2, a4, n] + 
    2*S2[SP[a1, a5], a1, a3, a4, a2, n] + S2[SP[a1, a5], a1, a4, a2, a3, n] + 
    2*S2[SP[a1, a5], a1, a4, a3, a2, n] + S2[SP[a1, a5], a2, a1, a3, a4, n] + 
    S2[SP[a1, a5], a2, a1, a4, a3, n] + S2[SP[a1, a5], a2, a3, a1, a4, n] + 
    S2[SP[a1, a5], a3, a1, a2, a4, n] + S2[SP[a1, a5], a3, a1, a4, a2, n] + 
    S2[SP[a1, a5], a3, a2, a1, a4, n] + S2[SP[a1, a5], a4, a1, a3, a2, n] - 
    2*S2[SP[a2, a5], a1, a1, a3, a4, n] - 
    2*S2[SP[a2, a5], a1, a1, a4, a3, n] - S2[SP[a2, a5], a1, a3, a1, a4, n] - 
    S2[SP[a2, a5], a1, a4, a1, a3, n] - S2[a5, a1, a2, a3, a1, a4, n] - 
    S2[a5, a1, a2, a3, a4, a1, n] - S2[a5, a1, a2, a4, a3, a1, n] - 
    S2[a5, a1, a4, a2, a3, a1, n] - S2[a5, a2, a1, a3, a1, a4, n] - 
    S2[a5, a2, a1, a3, a4, a1, n] - S2[a5, a2, a1, a4, a3, a1, n] - 
    2*S2[a5, a2, a3, a1, a1, a4, n] - S2[a5, a2, a3, a1, a4, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a1_, a3_, a2_, a5_, a4_, a1_, n_] :> 
  S2[a1, a3, a2, n]*S2[a1, a4, a5, n] + S2[SP[a1, a1], SP[a3, a4], 
     SP[a2, a5], n] - 2*S2[a1, a1, SP[a3, a4], SP[a2, a5], n] + 
    S2[a1, a3, n]*S2[a1, a5, a2, a4, n] + S2[a1, a3, n]*
     S2[a1, a5, a4, a2, n] - S2[a1, a5, SP[a1, a2], SP[a3, a4], n] - 
    S2[a1, a5, SP[a1, a4], SP[a2, a3], n] - S2[a1, SP[a1, a3], a4, 
     SP[a2, a5], n] - S2[a1, SP[a1, a3], SP[a2, a4], a5, n] - 
    S2[a1, SP[a1, a4], a3, SP[a2, a5], n] - S2[a1, SP[a1, a4], SP[a3, a5], 
     a2, n] - S2[a1, SP[a1, a5], a2, SP[a3, a4], n] - 
    S2[a1, SP[a1, a5], a4, SP[a2, a3], n] - S2[a1, SP[a1, a5], SP[a2, a3], 
     a4, n] - S2[a1, SP[a1, a5], SP[a3, a4], a2, n] - 
    S2[a1, a3, n]*S2[a2, a5, a1, a4, n] + S2[a2, a5, SP[a1, a1], SP[a3, a4], 
     n] + S2[a2, SP[a1, a5], a1, SP[a3, a4], n] + 
    S2[a2, SP[a1, a5], SP[a1, a3], a4, n] - S2[SP[a1, a1], a3, a4, 
     SP[a2, a5], n] - S2[SP[a1, a1], a3, SP[a2, a4], a5, n] - 
    S2[SP[a1, a1], a4, a3, SP[a2, a5], n] - S2[SP[a1, a1], a4, SP[a3, a5], 
     a2, n] - S2[SP[a1, a1], a5, a2, SP[a3, a4], n] - 
    S2[SP[a1, a1], a5, a4, SP[a2, a3], n] - S2[SP[a1, a1], a5, SP[a2, a3], 
     a4, n] - S2[SP[a1, a1], a5, SP[a3, a4], a2, n] - 
    S2[SP[a1, a1], SP[a3, a4], a2, a5, n] - S2[SP[a1, a1], SP[a3, a4], a5, 
     a2, n] - S2[SP[a1, a1], SP[a3, a5], a2, a4, n] - 
    S2[SP[a1, a1], SP[a3, a5], a4, a2, n] + S2[SP[a1, a2], a5, a1, 
     SP[a3, a4], n] + S2[SP[a1, a2], a5, SP[a1, a3], a4, n] + 
    S2[SP[a1, a2], SP[a3, a5], a1, a4, n] - 
    2*S2[a5, n]*S2[a1, a1, a3, a2, a4, n] - 
    2*S2[a1, a1, a3, a2, SP[a4, a5], n] - 
    2*S2[a5, n]*S2[a1, a1, a3, a4, a2, n] + 
    2*S2[a1, a1, a3, SP[a2, a4], a5, n] - 
    2*S2[a1, a1, a3, SP[a2, a5], a4, n] - 
    2*S2[a1, a1, a3, SP[a4, a5], a2, n] - 
    2*S2[a5, n]*S2[a1, a1, a4, a3, a2, n] + 
    2*S2[a1, a1, a5, a2, SP[a3, a4], n] + 
    2*S2[a1, a1, a5, a4, SP[a2, a3], n] + 
    2*S2[a1, a1, a5, SP[a2, a3], a4, n] + 
    2*S2[a1, a1, a5, SP[a3, a4], a2, n] + 
    2*S2[a1, a1, SP[a3, a4], a2, a5, n] + 
    2*S2[a1, a1, SP[a3, a4], a5, a2, n] - 
    2*S2[a1, a1, SP[a4, a5], a3, a2, n] - S2[a1, a2, a5, a1, SP[a3, a4], n] - 
    S2[a1, a2, a5, SP[a1, a3], a4, n] - S2[a1, a2, SP[a3, a5], a1, a4, n] - 
    S2[a5, n]*S2[a1, a3, a1, a2, a4, n] - S2[a1, a3, a1, a2, SP[a4, a5], n] - 
    S2[a5, n]*S2[a1, a3, a1, a4, a2, n] + S2[a1, a3, a1, SP[a2, a4], a5, n] - 
    S2[a1, a3, a1, SP[a2, a5], a4, n] - S2[a1, a3, a1, SP[a4, a5], a2, n] - 
    S2[a5, n]*S2[a1, a3, a2, a1, a4, n] - S2[a1, a3, a2, a1, SP[a4, a5], n] + 
    S2[a1, n]*S2[a1, a3, a2, a5, a4, n] + S2[a1, a3, a2, a5, SP[a1, a4], n] + 
    S2[a2, n]*S2[a1, a3, a5, a1, a4, n] + S2[a1, a3, a5, a1, SP[a2, a4], n] + 
    S2[a1, a3, a5, SP[a1, a2], a4, n] + S2[a1, a3, SP[a1, a2], a4, a5, n] + 
    S2[a1, a3, SP[a1, a2], a5, a4, n] - S2[a1, a3, SP[a1, a5], a2, a4, n] - 
    S2[a1, a3, SP[a1, a5], a4, a2, n] - S2[a5, n]*S2[a1, a4, a1, a3, a2, n] + 
    S2[a1, a5, a1, a2, SP[a3, a4], n] + S2[a2, n]*S2[a1, a5, a1, a3, a4, n] + 
    S2[a1, a5, a1, a3, SP[a2, a4], n] + S2[a2, n]*S2[a1, a5, a1, a4, a3, n] + 
    2*S2[a1, a5, a1, a4, SP[a2, a3], n] + 
    2*S2[a1, a5, a1, SP[a2, a3], a4, n] + S2[a1, a5, a1, SP[a2, a4], a3, n] + 
    S2[a1, a5, a1, SP[a3, a4], a2, n] + S2[a1, a5, a2, a1, SP[a3, a4], n] - 
    S2[a1, n]*S2[a1, a5, a2, a3, a4, n] - S2[a1, a5, a2, a3, SP[a1, a4], n] - 
    S2[a1, n]*S2[a1, a5, a2, a4, a3, n] - S2[a1, a5, a2, a4, SP[a1, a3], n] - 
    S2[a1, a5, a2, SP[a1, a3], a4, n] + S2[a2, n]*S2[a1, a5, a3, a1, a4, n] + 
    S2[a1, a5, a3, a1, SP[a2, a4], n] + S2[a1, a5, a3, SP[a1, a2], a4, n] + 
    S2[a1, a5, a4, a1, SP[a2, a3], n] - S2[a1, n]*S2[a1, a5, a4, a2, a3, n] - 
    S2[a1, a5, a4, a2, SP[a1, a3], n] + S2[a1, a5, SP[a1, a2], a3, a4, n] + 
    S2[a1, a5, SP[a1, a2], a4, a3, n] + S2[a1, a5, SP[a1, a4], a3, a2, n] + 
    S2[a1, a5, SP[a2, a3], a1, a4, n] + S2[a1, SP[a1, a3], a2, a4, a5, n] + 
    S2[a1, SP[a1, a3], a2, a5, a4, n] + S2[a1, SP[a1, a3], a4, a2, a5, n] + 
    S2[a1, SP[a1, a3], a4, a5, a2, n] + S2[a1, SP[a1, a3], a5, a2, a4, n] + 
    S2[a1, SP[a1, a3], a5, a4, a2, n] + S2[a1, SP[a1, a4], a3, a2, a5, n] + 
    S2[a1, SP[a1, a4], a3, a5, a2, n] + S2[a1, SP[a1, a4], a5, a3, a2, n] - 
    S2[a1, SP[a1, a5], a3, a2, a4, n] - S2[a1, SP[a1, a5], a3, a4, a2, n] - 
    S2[a1, SP[a1, a5], a4, a3, a2, n] + S2[a1, SP[a2, a5], a1, a3, a4, n] + 
    S2[a1, SP[a2, a5], a1, a4, a3, n] + S2[a1, SP[a2, a5], a3, a1, a4, n] - 
    S2[a1, SP[a3, a5], a1, a2, a4, n] - S2[a1, SP[a3, a5], a1, a4, a2, n] - 
    S2[a1, SP[a3, a5], a2, a1, a4, n] - S2[a1, SP[a4, a5], a1, a3, a2, n] - 
    S2[a2, a1, a5, a1, SP[a3, a4], n] - S2[a2, a1, a5, SP[a1, a3], a4, n] - 
    S2[a2, a1, SP[a3, a5], a1, a4, n] - 2*S2[a2, a5, a1, a1, SP[a3, a4], n] - 
    S2[a2, a5, a1, SP[a1, a3], a4, n] - S2[a2, a5, a1, SP[a1, a4], a3, n] - 
    S2[a2, a5, SP[a1, a1], a3, a4, n] - S2[a2, a5, SP[a1, a1], a4, a3, n] - 
    S2[a2, SP[a1, a5], a1, a3, a4, n] - S2[a2, SP[a1, a5], a1, a4, a3, n] - 
    S2[a2, SP[a1, a5], a3, a1, a4, n] + 2*S2[a2, n]*
     S2[a5, a1, a1, a3, a4, n] + 2*S2[a5, a1, a1, a3, SP[a2, a4], n] + 
    2*S2[a2, n]*S2[a5, a1, a1, a4, a3, n] + 
    2*S2[a5, a1, a1, a4, SP[a2, a3], n] + 
    2*S2[a5, a1, a1, SP[a2, a3], a4, n] + 
    2*S2[a5, a1, a1, SP[a2, a4], a3, n] - 
    S2[a1, n]*S2[a5, a1, a2, a3, a4, n] - S2[a5, a1, a2, a3, SP[a1, a4], n] - 
    S2[a1, n]*S2[a5, a1, a2, a4, a3, n] - S2[a5, a1, a2, a4, SP[a1, a3], n] - 
    S2[a5, a1, a2, SP[a1, a3], a4, n] - S2[a5, a1, a2, SP[a1, a4], a3, n] + 
    S2[a2, n]*S2[a5, a1, a3, a1, a4, n] + S2[a5, a1, a3, a1, SP[a2, a4], n] + 
    S2[a5, a1, a3, SP[a1, a2], a4, n] + S2[a2, n]*S2[a5, a1, a4, a1, a3, n] + 
    S2[a5, a1, a4, a1, SP[a2, a3], n] - S2[a1, n]*S2[a5, a1, a4, a2, a3, n] - 
    S2[a5, a1, a4, a2, SP[a1, a3], n] + S2[a5, a1, SP[a1, a2], a3, a4, n] + 
    S2[a5, a1, SP[a1, a2], a4, a3, n] - S2[a5, a1, SP[a1, a4], a2, a3, n] + 
    S2[a5, a1, SP[a2, a3], a1, a4, n] + S2[a5, a1, SP[a2, a4], a1, a3, n] - 
    S2[a1, n]*S2[a5, a2, a1, a3, a4, n] - S2[a5, a2, a1, a3, SP[a1, a4], n] - 
    S2[a1, n]*S2[a5, a2, a1, a4, a3, n] - S2[a5, a2, a1, a4, SP[a1, a3], n] - 
    S2[a5, a2, a1, SP[a1, a3], a4, n] - S2[a5, a2, a1, SP[a1, a4], a3, n] + 
    S2[a1, n]*S2[a5, a2, a3, a4, a1, n] + S2[a5, a2, a3, a4, SP[a1, a1], n] + 
    S2[a5, a2, a3, SP[a1, a4], a1, n] + S2[a1, n]*S2[a5, a2, a4, a3, a1, n] + 
    S2[a5, a2, a4, a3, SP[a1, a1], n] + S2[a5, a2, a4, SP[a1, a3], a1, n] - 
    S2[a5, a2, SP[a1, a1], a3, a4, n] - S2[a5, a2, SP[a1, a1], a4, a3, n] + 
    S2[a5, a2, SP[a1, a3], a4, a1, n] + S2[a5, a2, SP[a1, a4], a3, a1, n] + 
    S2[a1, n]*S2[a5, a4, a2, a3, a1, n] + S2[a5, a4, a2, a3, SP[a1, a1], n] + 
    S2[a5, a4, a2, SP[a1, a3], a1, n] + S2[a5, a4, SP[a1, a2], a3, a1, n] - 
    S2[a5, SP[a1, a1], a2, a3, a4, n] - S2[a5, SP[a1, a1], a2, a4, a3, n] - 
    S2[a5, SP[a1, a1], a4, a2, a3, n] + S2[a5, SP[a1, a2], a1, a3, a4, n] + 
    S2[a5, SP[a1, a2], a1, a4, a3, n] + S2[a5, SP[a1, a2], a3, a1, a4, n] + 
    S2[a5, SP[a1, a2], a3, a4, a1, n] + S2[a5, SP[a1, a2], a4, a1, a3, n] + 
    S2[a5, SP[a1, a2], a4, a3, a1, n] + S2[a5, SP[a1, a4], a2, a3, a1, n] + 
    S2[SP[a1, a1], a3, a2, a4, a5, n] + S2[SP[a1, a1], a3, a2, a5, a4, n] + 
    S2[SP[a1, a1], a3, a4, a2, a5, n] + S2[SP[a1, a1], a3, a4, a5, a2, n] + 
    S2[SP[a1, a1], a3, a5, a2, a4, n] + S2[SP[a1, a1], a3, a5, a4, a2, n] + 
    S2[SP[a1, a1], a4, a3, a2, a5, n] + S2[SP[a1, a1], a4, a3, a5, a2, n] + 
    S2[SP[a1, a1], a4, a5, a3, a2, n] + S2[SP[a1, a1], a5, a3, a2, a4, n] + 
    S2[SP[a1, a1], a5, a3, a4, a2, n] + S2[SP[a1, a1], a5, a4, a3, a2, n] - 
    S2[SP[a1, a5], a1, a2, a3, a4, n] - S2[SP[a1, a5], a1, a2, a4, a3, n] - 
    2*S2[SP[a1, a5], a1, a3, a2, a4, n] - 
    2*S2[SP[a1, a5], a1, a3, a4, a2, n] - S2[SP[a1, a5], a1, a4, a2, a3, n] - 
    2*S2[SP[a1, a5], a1, a4, a3, a2, n] - S2[SP[a1, a5], a2, a1, a3, a4, n] - 
    S2[SP[a1, a5], a2, a1, a4, a3, n] + S2[SP[a1, a5], a2, a3, a4, a1, n] + 
    S2[SP[a1, a5], a2, a4, a3, a1, n] - S2[SP[a1, a5], a3, a1, a2, a4, n] - 
    S2[SP[a1, a5], a3, a1, a4, a2, n] - S2[SP[a1, a5], a3, a2, a1, a4, n] - 
    S2[SP[a1, a5], a4, a1, a3, a2, n] + S2[SP[a1, a5], a4, a2, a3, a1, n] + 
    2*S2[SP[a2, a5], a1, a1, a3, a4, n] + 
    2*S2[SP[a2, a5], a1, a1, a4, a3, n] + S2[SP[a2, a5], a1, a3, a1, a4, n] + 
    S2[SP[a2, a5], a1, a4, a1, a3, n] - S2[a5, a2, a3, a1, a4, a1, n] - 
    2*S2[a5, a2, a3, a4, a1, a1, n] - S2[a5, a2, a4, a1, a3, a1, n] - 
    2*S2[a5, a2, a4, a3, a1, a1, n] - S2[a5, a4, a1, a2, a3, a1, n] - 
    S2[a5, a4, a2, a1, a3, a1, n] - 2*S2[a5, a4, a2, a3, a1, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a1_, a3_, a4_, a1_, a2_, a5_, n_] :> 
  S2[a1, a2, a5, n]*S2[a1, a3, a4, n] + S2[SP[a1, a1], SP[a2, a3], 
     SP[a4, a5], n] - 2*S2[a2, a5, n]*S2[a1, a1, a3, a4, n] - 
    S2[a1, a3, n]*S2[a1, a2, a4, a5, n] - S2[a1, a3, n]*
     S2[a1, a2, a5, a4, n] + S2[a1, a2, SP[a1, a4], SP[a3, a5], n] + 
    S2[a1, a2, SP[a1, a5], SP[a3, a4], n] - S2[a2, a5, n]*
     S2[a1, a3, a1, a4, n] + S2[a1, a3, SP[a1, a2], SP[a4, a5], n] - 
    S2[a1, a3, n]*S2[a1, a4, a2, a5, n] - S2[a1, a3, n]*
     S2[a1, a4, a5, a2, n] + S2[a1, a4, SP[a1, a2], SP[a3, a5], n] + 
    S2[a1, a4, SP[a1, a5], SP[a2, a3], n] - S2[a1, a3, n]*
     S2[a1, a5, a2, a4, n] - S2[a1, a3, n]*S2[a1, a5, a4, a2, n] + 
    S2[a1, a5, SP[a1, a2], SP[a3, a4], n] + S2[a1, a5, SP[a1, a4], 
     SP[a2, a3], n] + S2[a1, SP[a1, a2], a3, SP[a4, a5], n] + 
    S2[a1, SP[a1, a2], a4, SP[a3, a5], n] + S2[a1, SP[a1, a2], a5, 
     SP[a3, a4], n] + S2[a1, SP[a1, a2], SP[a3, a4], a5, n] + 
    2*S2[a1, SP[a1, a2], SP[a3, a5], a4, n] - S2[a1, SP[a1, a3], a2, 
     SP[a4, a5], n] - S2[a1, SP[a1, a3], SP[a2, a4], a5, n] + 
    S2[a1, SP[a1, a4], a2, SP[a3, a5], n] + S2[a1, SP[a1, a4], a5, 
     SP[a2, a3], n] + S2[a1, SP[a1, a4], SP[a2, a3], a5, n] + 
    S2[a1, SP[a1, a4], SP[a3, a5], a2, n] + S2[a1, SP[a1, a5], a2, 
     SP[a3, a4], n] + S2[a1, SP[a1, a5], a4, SP[a2, a3], n] + 
    S2[a1, SP[a1, a5], SP[a2, a3], a4, n] + S2[a1, SP[a1, a5], SP[a3, a4], 
     a2, n] + S2[a1, SP[a2, a3], a1, SP[a4, a5], n] + 
    S2[a1, SP[a2, a3], SP[a1, a5], a4, n] + S2[a1, a3, n]*
     S2[a2, a5, a1, a4, n] - S2[a2, a5, SP[a1, a1], SP[a3, a4], n] - 
    S2[a2, SP[a1, a5], a1, SP[a3, a4], n] - S2[a2, SP[a1, a5], SP[a1, a3], 
     a4, n] - S2[SP[a1, a1], a2, a3, SP[a4, a5], n] + 
    S2[SP[a1, a1], a2, a4, SP[a3, a5], n] + S2[SP[a1, a1], a2, a5, 
     SP[a3, a4], n] + S2[SP[a1, a1], a2, SP[a3, a4], a5, n] - 
    S2[SP[a1, a1], a3, a2, SP[a4, a5], n] - S2[SP[a1, a1], a3, SP[a2, a4], 
     a5, n] + S2[SP[a1, a1], a4, a2, SP[a3, a5], n] + 
    S2[SP[a1, a1], a4, a5, SP[a2, a3], n] + S2[SP[a1, a1], a4, SP[a2, a3], 
     a5, n] + S2[SP[a1, a1], a4, SP[a3, a5], a2, n] + 
    S2[SP[a1, a1], a5, a2, SP[a3, a4], n] + S2[SP[a1, a1], a5, a4, 
     SP[a2, a3], n] + S2[SP[a1, a1], a5, SP[a2, a3], a4, n] + 
    S2[SP[a1, a1], a5, SP[a3, a4], a2, n] + S2[SP[a1, a1], SP[a3, a4], a2, 
     a5, n] + S2[SP[a1, a1], SP[a3, a4], a5, a2, n] + 
    S2[SP[a1, a1], SP[a3, a5], a2, a4, n] + S2[SP[a1, a1], SP[a3, a5], a4, 
     a2, n] + 2*S2[SP[a1, a2], a1, a3, SP[a4, a5], n] + 
    2*S2[SP[a1, a2], a1, SP[a3, a5], a4, n] + S2[SP[a1, a2], a3, a1, 
     SP[a4, a5], n] + S2[SP[a1, a2], a3, SP[a1, a5], a4, n] - 
    S2[SP[a1, a2], a5, a1, SP[a3, a4], n] - S2[SP[a1, a2], a5, SP[a1, a3], 
     a4, n] + 2*S2[SP[a1, a2], SP[a1, a5], a3, a4, n] + 
    2*S2[a5, n]*S2[a1, a1, a2, a4, a3, n] - 
    2*S2[a1, a1, a2, a5, SP[a3, a4], n] - 
    2*S2[a1, a1, a2, SP[a3, a4], a5, n] - 
    2*S2[a1, a1, a2, SP[a3, a5], a4, n] + 
    2*S2[a1, a1, a2, SP[a4, a5], a3, n] + 
    2*S2[a2, n]*S2[a1, a1, a3, a4, a5, n] + 
    2*S2[a1, a1, a3, a4, SP[a2, a5], n] + 
    2*S2[a2, n]*S2[a1, a1, a3, a5, a4, n] + 
    2*S2[a1, a1, a3, a5, SP[a2, a4], n] + 
    2*S2[a1, a1, a3, SP[a2, a4], a5, n] + 
    2*S2[a1, a1, a3, SP[a2, a5], a4, n] + 
    2*S2[a5, n]*S2[a1, a1, a4, a2, a3, n] + 
    2*S2[a5, n]*S2[a1, a1, a4, a3, a2, n] + 
    2*S2[a1, a1, a4, a3, SP[a2, a5], n] - 
    2*S2[a1, a1, a4, a5, SP[a2, a3], n] - 
    2*S2[a1, a1, a4, SP[a2, a3], a5, n] + 
    2*S2[a1, a1, a4, SP[a2, a5], a3, n] - 
    2*S2[a1, a1, a5, a2, SP[a3, a4], n] + 
    2*S2[a2, n]*S2[a1, a1, a5, a3, a4, n] + 
    2*S2[a1, a1, a5, a3, SP[a2, a4], n] - 
    2*S2[a1, a1, a5, a4, SP[a2, a3], n] - 
    2*S2[a1, a1, a5, SP[a3, a4], a2, n] + 
    2*S2[a1, a1, SP[a2, a5], a3, a4, n] + 
    2*S2[a1, a1, SP[a2, a5], a4, a3, n] - 
    2*S2[a1, a1, SP[a3, a4], a2, a5, n] - 
    2*S2[a1, a1, SP[a3, a4], a5, a2, n] - 
    2*S2[a1, a1, SP[a3, a5], a2, a4, n] - 
    2*S2[a1, a1, SP[a3, a5], a4, a2, n] + 
    2*S2[a1, a1, SP[a4, a5], a2, a3, n] + 
    2*S2[a1, a1, SP[a4, a5], a3, a2, n] - S2[a1, a2, a1, a3, SP[a4, a5], n] + 
    S2[a5, n]*S2[a1, a2, a1, a4, a3, n] - S2[a1, a2, a1, a5, SP[a3, a4], n] - 
    S2[a1, a2, a1, SP[a3, a4], a5, n] - 2*S2[a1, a2, a1, SP[a3, a5], a4, n] + 
    S2[a1, a2, a1, SP[a4, a5], a3, n] - S2[a1, a2, a3, a1, SP[a4, a5], n] - 
    S2[a1, a2, a3, SP[a1, a5], a4, n] + S2[a5, n]*S2[a1, a2, a4, a1, a3, n] + 
    S2[a1, a2, a5, SP[a1, a3], a4, n] - S2[a1, a2, a5, SP[a1, a4], a3, n] - 
    S2[a1, a2, SP[a1, a4], a3, a5, n] - S2[a1, a2, SP[a1, a4], a5, a3, n] - 
    2*S2[a1, a2, SP[a1, a5], a3, a4, n] + S2[a1, a2, SP[a4, a5], a1, a3, n] + 
    S2[a2, n]*S2[a1, a3, a1, a4, a5, n] + S2[a1, a3, a1, a4, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a3, a1, a5, a4, n] + S2[a1, a3, a1, a5, SP[a2, a4], n] + 
    S2[a1, a3, a1, SP[a2, a4], a5, n] + S2[a1, a3, a1, SP[a2, a5], a4, n] - 
    S2[a1, a3, a2, a1, SP[a4, a5], n] - S2[a1, a3, a2, SP[a1, a5], a4, n] + 
    S2[a1, a3, SP[a1, a4], a2, a5, n] + S2[a5, n]*S2[a1, a4, a1, a2, a3, n] + 
    S2[a5, n]*S2[a1, a4, a1, a3, a2, n] + S2[a1, a4, a1, a3, SP[a2, a5], n] - 
    S2[a1, a4, a1, a5, SP[a2, a3], n] - S2[a1, a4, a1, SP[a2, a3], a5, n] + 
    S2[a1, a4, a1, SP[a2, a5], a3, n] + S2[a5, n]*S2[a1, a4, a2, a1, a3, n] - 
    S2[a1, a4, a5, a1, SP[a2, a3], n] - S2[a1, a4, a5, SP[a1, a2], a3, n] - 
    S2[a1, a4, SP[a1, a2], a3, a5, n] - S2[a1, a4, SP[a1, a2], a5, a3, n] + 
    S2[a1, a4, SP[a2, a5], a1, a3, n] - S2[a1, a5, a1, a2, SP[a3, a4], n] + 
    S2[a2, n]*S2[a1, a5, a1, a3, a4, n] + S2[a1, a5, a1, a3, SP[a2, a4], n] - 
    S2[a2, n]*S2[a1, a5, a1, a4, a3, n] - 
    2*S2[a1, a5, a1, a4, SP[a2, a3], n] - S2[a1, a5, a1, SP[a2, a4], a3, n] - 
    S2[a1, a5, a1, SP[a3, a4], a2, n] - S2[a1, a5, a2, a1, SP[a3, a4], n] - 
    S2[a1, a5, a2, SP[a1, a4], a3, n] - S2[a1, a5, a4, a1, SP[a2, a3], n] - 
    S2[a1, a5, a4, SP[a1, a2], a3, n] - 2*S2[a1, a5, SP[a1, a2], a4, a3, n] - 
    S2[a1, a5, SP[a1, a4], a2, a3, n] - S2[a1, a5, SP[a1, a4], a3, a2, n] - 
    S2[a1, SP[a1, a2], a4, a3, a5, n] - S2[a1, SP[a1, a2], a4, a5, a3, n] - 
    S2[a1, SP[a1, a2], a5, a4, a3, n] - S2[a1, SP[a1, a3], a4, a5, a2, n] - 
    S2[a1, SP[a1, a3], a5, a2, a4, n] - S2[a1, SP[a1, a3], a5, a4, a2, n] - 
    S2[a1, SP[a1, a4], a2, a3, a5, n] - S2[a1, SP[a1, a4], a2, a5, a3, n] - 
    S2[a1, SP[a1, a4], a3, a2, a5, n] - S2[a1, SP[a1, a4], a3, a5, a2, n] - 
    S2[a1, SP[a1, a4], a5, a2, a3, n] - S2[a1, SP[a1, a4], a5, a3, a2, n] - 
    S2[a1, SP[a1, a5], a2, a3, a4, n] + S2[a1, SP[a1, a5], a2, a4, a3, n] - 
    S2[a1, SP[a1, a5], a3, a2, a4, n] - S2[a1, SP[a1, a5], a3, a4, a2, n] + 
    S2[a1, SP[a1, a5], a4, a2, a3, n] + S2[a1, SP[a1, a5], a4, a3, a2, n] + 
    S2[a1, SP[a2, a5], a1, a3, a4, n] + S2[a1, SP[a2, a5], a4, a1, a3, n] + 
    S2[a1, SP[a4, a5], a1, a2, a3, n] + S2[a1, SP[a4, a5], a1, a3, a2, n] + 
    S2[a1, SP[a4, a5], a2, a1, a3, n] - 2*S2[a2, a1, a1, a3, SP[a4, a5], n] - 
    2*S2[a2, a1, a1, SP[a3, a5], a4, n] - S2[a2, a1, a3, a1, SP[a4, a5], n] - 
    S2[a2, a1, a3, SP[a1, a5], a4, n] + S2[a2, a1, a5, a1, SP[a3, a4], n] + 
    S2[a2, a1, a5, SP[a1, a3], a4, n] - 2*S2[a2, a1, SP[a1, a5], a3, a4, n] + 
    2*S2[a2, a5, a1, a1, SP[a3, a4], n] + S2[a2, a5, a1, SP[a1, a3], a4, n] + 
    S2[a2, a5, a1, SP[a1, a4], a3, n] + S2[a2, a5, SP[a1, a1], a3, a4, n] + 
    S2[a2, a5, SP[a1, a1], a4, a3, n] - S2[a2, SP[a1, a5], a1, a3, a4, n] + 
    S2[a2, SP[a1, a5], a1, a4, a3, n] - 2*S2[a2, n]*
     S2[a5, a1, a1, a4, a3, n] - 2*S2[a5, a1, a1, a4, SP[a2, a3], n] - 
    2*S2[a5, a1, a1, SP[a2, a4], a3, n] - 
    S2[a2, n]*S2[a5, a1, a4, a1, a3, n] - S2[a5, a1, a4, a1, SP[a2, a3], n] - 
    S2[a5, a1, a4, SP[a1, a2], a3, n] - 2*S2[a5, a1, SP[a1, a2], a4, a3, n] - 
    S2[a5, a1, SP[a2, a4], a1, a3, n] + S2[a1, n]*S2[a5, a2, a1, a4, a3, n] + 
    S2[a5, a2, a1, a4, SP[a1, a3], n] + S2[a5, a2, a1, SP[a1, a4], a3, n] + 
    S2[a5, a2, SP[a1, a1], a4, a3, n] - S2[a5, SP[a1, a2], a1, a4, a3, n] - 
    S2[a5, SP[a1, a2], a4, a1, a3, n] - S2[SP[a1, a1], a2, a4, a3, a5, n] - 
    S2[SP[a1, a1], a2, a4, a5, a3, n] - S2[SP[a1, a1], a2, a5, a4, a3, n] - 
    S2[SP[a1, a1], a3, a4, a5, a2, n] - S2[SP[a1, a1], a3, a5, a2, a4, n] - 
    S2[SP[a1, a1], a3, a5, a4, a2, n] - S2[SP[a1, a1], a4, a2, a3, a5, n] - 
    S2[SP[a1, a1], a4, a2, a5, a3, n] - S2[SP[a1, a1], a4, a3, a2, a5, n] - 
    S2[SP[a1, a1], a4, a3, a5, a2, n] - S2[SP[a1, a1], a4, a5, a2, a3, n] - 
    S2[SP[a1, a1], a4, a5, a3, a2, n] - S2[SP[a1, a1], a5, a2, a3, a4, n] - 
    S2[SP[a1, a1], a5, a2, a4, a3, n] - S2[SP[a1, a1], a5, a3, a2, a4, n] - 
    S2[SP[a1, a1], a5, a3, a4, a2, n] - S2[SP[a1, a1], a5, a4, a2, a3, n] - 
    S2[SP[a1, a1], a5, a4, a3, a2, n] + 2*S2[SP[a1, a5], a1, a2, a4, a3, n] + 
    2*S2[SP[a1, a5], a1, a4, a2, a3, n] + 
    2*S2[SP[a1, a5], a1, a4, a3, a2, n] + 
    2*S2[SP[a1, a5], a2, a1, a4, a3, n] + S2[SP[a1, a5], a2, a4, a1, a3, n] + 
    S2[SP[a1, a5], a4, a1, a2, a3, n] + S2[SP[a1, a5], a4, a1, a3, a2, n] + 
    S2[SP[a1, a5], a4, a2, a1, a3, n] - 2*S2[SP[a2, a5], a1, a1, a4, a3, n] - 
    S2[SP[a2, a5], a1, a4, a1, a3, n] - S2[a5, a2, a1, a4, a3, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a1_, a3_, a4_, a1_, a5_, a2_, n_] :> 
  S2[a1, a3, a4, n]*S2[a1, a5, a2, n] + S2[SP[a1, a1], SP[a3, a5], 
     SP[a2, a4], n] + 2*S2[a2, a5, n]*S2[a1, a1, a3, a4, n] - 
    2*S2[a1, a1, SP[a2, a3], SP[a4, a5], n] - 
    2*S2[a1, a1, SP[a3, a5], SP[a2, a4], n] + 
    S2[a2, a5, n]*S2[a1, a3, a1, a4, n] - S2[a1, a3, SP[a1, a2], SP[a4, a5], 
     n] - 2*S2[a1, SP[a1, a2], a3, SP[a4, a5], n] - 
    2*S2[a1, SP[a1, a2], SP[a3, a5], a4, n] - S2[a1, SP[a1, a3], a5, 
     SP[a2, a4], n] - S2[a1, SP[a1, a3], SP[a4, a5], a2, n] - 
    S2[a1, SP[a1, a5], a3, SP[a2, a4], n] - S2[a1, SP[a1, a5], SP[a2, a3], 
     a4, n] - S2[a1, SP[a2, a3], a1, SP[a4, a5], n] - 
    S2[a1, SP[a2, a3], SP[a1, a5], a4, n] - S2[a1, a3, n]*
     S2[a2, a5, a1, a4, n] + S2[a2, a5, SP[a1, a1], SP[a3, a4], n] + 
    S2[a2, SP[a1, a5], a1, SP[a3, a4], n] + S2[a2, SP[a1, a5], SP[a1, a3], 
     a4, n] - S2[SP[a1, a1], a3, a5, SP[a2, a4], n] - 
    S2[SP[a1, a1], a3, SP[a4, a5], a2, n] - S2[SP[a1, a1], a5, a3, 
     SP[a2, a4], n] - S2[SP[a1, a1], a5, SP[a2, a3], a4, n] - 
    S2[SP[a1, a1], SP[a3, a5], a2, a4, n] - S2[SP[a1, a1], SP[a3, a5], a4, 
     a2, n] - 2*S2[SP[a1, a2], a1, a3, SP[a4, a5], n] - 
    2*S2[SP[a1, a2], a1, SP[a3, a5], a4, n] - S2[SP[a1, a2], a3, a1, 
     SP[a4, a5], n] - S2[SP[a1, a2], a3, SP[a1, a5], a4, n] + 
    S2[SP[a1, a2], a5, a1, SP[a3, a4], n] + S2[SP[a1, a2], a5, SP[a1, a3], 
     a4, n] - 2*S2[SP[a1, a2], SP[a1, a5], a3, a4, n] + 
    2*S2[a1, a1, a2, a3, SP[a4, a5], n] + 
    2*S2[a1, a1, a2, SP[a3, a5], a4, n] + 
    2*S2[a1, a1, a3, a2, SP[a4, a5], n] - 
    2*S2[a2, n]*S2[a1, a1, a3, a4, a5, n] - 
    2*S2[a1, a1, a3, a4, SP[a2, a5], n] - 
    2*S2[a2, n]*S2[a1, a1, a3, a5, a4, n] - 
    2*S2[a1, a1, a3, SP[a2, a5], a4, n] + 
    2*S2[a1, a1, a3, SP[a4, a5], a2, n] - 
    2*S2[a2, n]*S2[a1, a1, a5, a3, a4, n] - 
    2*S2[a1, a1, SP[a2, a5], a3, a4, n] + 
    2*S2[a1, a1, SP[a3, a5], a2, a4, n] + 
    2*S2[a1, a1, SP[a3, a5], a4, a2, n] + 
    2*S2[a1, a2, a1, a3, SP[a4, a5], n] + 
    2*S2[a1, a2, a1, SP[a3, a5], a4, n] + S2[a1, a2, a3, a1, SP[a4, a5], n] + 
    S2[a1, a2, a3, SP[a1, a5], a4, n] - S2[a1, a2, a5, a1, SP[a3, a4], n] - 
    S2[a1, a2, a5, SP[a1, a3], a4, n] + 2*S2[a1, a2, SP[a1, a5], a3, a4, n] + 
    S2[a1, a3, a1, a2, SP[a4, a5], n] - S2[a2, n]*S2[a1, a3, a1, a4, a5, n] - 
    S2[a1, a3, a1, a4, SP[a2, a5], n] - S2[a2, n]*S2[a1, a3, a1, a5, a4, n] - 
    S2[a1, a3, a1, SP[a2, a5], a4, n] + S2[a1, a3, a1, SP[a4, a5], a2, n] + 
    S2[a1, a3, a2, a1, SP[a4, a5], n] + S2[a1, a3, a2, SP[a1, a5], a4, n] + 
    S2[a1, a3, SP[a1, a4], a5, a2, n] - S2[a2, n]*S2[a1, a5, a1, a3, a4, n] + 
    S2[a2, n]*S2[a1, a5, a1, a4, a3, n] + S2[a1, a5, a1, a4, SP[a2, a3], n] + 
    S2[a1, a5, a1, SP[a2, a4], a3, n] + S2[a1, a5, SP[a1, a2], a4, a3, n] + 
    S2[a1, SP[a1, a3], a4, a5, a2, n] + S2[a1, SP[a1, a3], a5, a2, a4, n] + 
    S2[a1, SP[a1, a3], a5, a4, a2, n] + S2[a1, SP[a1, a5], a2, a3, a4, n] + 
    S2[a1, SP[a1, a5], a3, a2, a4, n] + S2[a1, SP[a1, a5], a3, a4, a2, n] - 
    S2[a1, SP[a2, a5], a1, a3, a4, n] + S2[a1, SP[a2, a5], a1, a4, a3, n] + 
    2*S2[a2, a1, a1, a3, SP[a4, a5], n] + 
    2*S2[a2, a1, a1, SP[a3, a5], a4, n] + S2[a2, a1, a3, a1, SP[a4, a5], n] + 
    S2[a2, a1, a3, SP[a1, a5], a4, n] - S2[a2, a1, a5, a1, SP[a3, a4], n] - 
    S2[a2, a1, a5, SP[a1, a3], a4, n] + 2*S2[a2, a1, SP[a1, a5], a3, a4, n] - 
    2*S2[a2, a5, a1, a1, SP[a3, a4], n] - S2[a2, a5, a1, SP[a1, a3], a4, n] - 
    S2[a2, a5, a1, SP[a1, a4], a3, n] - S2[a2, a5, SP[a1, a1], a3, a4, n] - 
    S2[a2, a5, SP[a1, a1], a4, a3, n] + S2[a2, SP[a1, a5], a1, a3, a4, n] - 
    S2[a2, SP[a1, a5], a1, a4, a3, n] + 2*S2[a2, n]*
     S2[a5, a1, a1, a4, a3, n] + 2*S2[a5, a1, a1, a4, SP[a2, a3], n] + 
    2*S2[a5, a1, a1, SP[a2, a4], a3, n] - 
    S2[a1, n]*S2[a5, a1, a2, a4, a3, n] - S2[a5, a1, a2, a4, SP[a1, a3], n] - 
    S2[a5, a1, a2, SP[a1, a4], a3, n] + S2[a2, n]*S2[a5, a1, a4, a1, a3, n] + 
    S2[a5, a1, a4, a1, SP[a2, a3], n] - S2[a1, n]*S2[a5, a1, a4, a2, a3, n] - 
    S2[a5, a1, a4, a2, SP[a1, a3], n] - S2[a1, n]*S2[a5, a1, a4, a3, a2, n] - 
    S2[a5, a1, a4, a3, SP[a1, a2], n] - S2[a5, a1, a4, SP[a1, a3], a2, n] + 
    S2[a5, a1, SP[a1, a2], a4, a3, n] - S2[a5, a1, SP[a1, a4], a2, a3, n] - 
    S2[a5, a1, SP[a1, a4], a3, a2, n] + S2[a5, a1, SP[a2, a4], a1, a3, n] - 
    S2[a1, n]*S2[a5, a2, a1, a4, a3, n] - S2[a5, a2, a1, a4, SP[a1, a3], n] - 
    S2[a5, a2, a1, SP[a1, a4], a3, n] - S2[a5, a2, SP[a1, a1], a4, a3, n] - 
    S2[a5, SP[a1, a1], a2, a4, a3, n] - S2[a5, SP[a1, a1], a4, a2, a3, n] - 
    S2[a5, SP[a1, a1], a4, a3, a2, n] + S2[a5, SP[a1, a2], a1, a4, a3, n] + 
    S2[a5, SP[a1, a2], a4, a1, a3, n] + S2[SP[a1, a1], a3, a4, a5, a2, n] + 
    S2[SP[a1, a1], a3, a5, a2, a4, n] + S2[SP[a1, a1], a3, a5, a4, a2, n] + 
    S2[SP[a1, a1], a5, a2, a3, a4, n] + S2[SP[a1, a1], a5, a3, a2, a4, n] + 
    S2[SP[a1, a1], a5, a3, a4, a2, n] - S2[SP[a1, a5], a1, a2, a4, a3, n] - 
    S2[SP[a1, a5], a1, a4, a2, a3, n] - S2[SP[a1, a5], a1, a4, a3, a2, n] - 
    S2[SP[a1, a5], a2, a1, a4, a3, n] + 2*S2[SP[a2, a5], a1, a1, a4, a3, n] + 
    S2[SP[a2, a5], a1, a4, a1, a3, n] + S2[a5, a1, a2, a4, a3, a1, n] + 
    S2[a5, a1, a4, a2, a3, a1, n] + S2[a5, a1, a4, a3, a1, a2, n] + 
    S2[a5, a1, a4, a3, a2, a1, n] + S2[a5, a2, a1, a4, a3, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a1_, a3_, a4_, a2_, a1_, a5_, n_] :> 
  -(S2[a1, a2, a5, n]*S2[a1, a3, a4, n]) - S2[a1, a3, a4, n]*
     S2[a1, a5, a2, n] - S2[SP[a1, a1], SP[a2, a3], SP[a4, a5], n] - 
    S2[SP[a1, a1], SP[a3, a5], SP[a2, a4], n] + 
    2*S2[a1, a1, SP[a2, a3], SP[a4, a5], n] + 
    2*S2[a1, a1, SP[a3, a5], SP[a2, a4], n] + 
    S2[a1, a3, n]*S2[a1, a2, a4, a5, n] + S2[a1, a3, n]*
     S2[a1, a2, a5, a4, n] - S2[a1, a2, SP[a1, a4], SP[a3, a5], n] - 
    S2[a1, a2, SP[a1, a5], SP[a3, a4], n] + S2[a1, a5, n]*
     S2[a1, a3, a4, a2, n] - S2[a1, a3, SP[a1, a4], SP[a2, a5], n] + 
    S2[a1, a3, n]*S2[a1, a5, a2, a4, n] - S2[a1, a5, SP[a1, a2], SP[a3, a4], 
     n] + S2[a1, SP[a1, a2], a3, SP[a4, a5], n] - S2[a1, SP[a1, a2], a4, 
     SP[a3, a5], n] - S2[a1, SP[a1, a2], a5, SP[a3, a4], n] - 
    S2[a1, SP[a1, a2], SP[a3, a4], a5, n] + S2[a1, SP[a1, a3], a2, 
     SP[a4, a5], n] - S2[a1, SP[a1, a3], a4, SP[a2, a5], n] + 
    S2[a1, SP[a1, a3], a5, SP[a2, a4], n] + S2[a1, SP[a1, a3], SP[a2, a4], 
     a5, n] - S2[a1, SP[a1, a5], a2, SP[a3, a4], n] + 
    S2[a1, SP[a1, a5], a3, SP[a2, a4], n] + S2[SP[a1, a1], a2, a3, 
     SP[a4, a5], n] - S2[SP[a1, a1], a2, a4, SP[a3, a5], n] - 
    S2[SP[a1, a1], a2, a5, SP[a3, a4], n] - S2[SP[a1, a1], a2, SP[a3, a4], 
     a5, n] + S2[SP[a1, a1], a3, a2, SP[a4, a5], n] - 
    S2[SP[a1, a1], a3, a4, SP[a2, a5], n] + S2[SP[a1, a1], a3, a5, 
     SP[a2, a4], n] + S2[SP[a1, a1], a3, SP[a2, a4], a5, n] - 
    S2[SP[a1, a1], a5, a2, SP[a3, a4], n] + S2[SP[a1, a1], a5, a3, 
     SP[a2, a4], n] - 2*S2[a1, a1, a2, a3, SP[a4, a5], n] - 
    2*S2[a5, n]*S2[a1, a1, a2, a4, a3, n] + 
    2*S2[a1, a1, a2, a5, SP[a3, a4], n] + 
    2*S2[a1, a1, a2, SP[a3, a4], a5, n] - 
    2*S2[a1, a1, a2, SP[a4, a5], a3, n] - 
    2*S2[a1, a1, a3, a2, SP[a4, a5], n] + 
    2*S2[a1, a1, a3, a4, SP[a2, a5], n] - 
    2*S2[a1, a1, a3, a5, SP[a2, a4], n] - 
    2*S2[a1, a1, a3, SP[a2, a4], a5, n] + 
    2*S2[a1, a1, a5, a2, SP[a3, a4], n] - 
    2*S2[a1, a1, a5, a3, SP[a2, a4], n] - 
    2*S2[a1, a1, SP[a2, a5], a4, a3, n] - S2[a1, a2, a1, a3, SP[a4, a5], n] - 
    S2[a5, n]*S2[a1, a2, a1, a4, a3, n] + S2[a1, a2, a1, a5, SP[a3, a4], n] + 
    S2[a1, a2, a1, SP[a3, a4], a5, n] - S2[a1, a2, a1, SP[a4, a5], a3, n] - 
    S2[a5, n]*S2[a1, a2, a4, a1, a3, n] + S2[a1, a2, a5, a1, SP[a3, a4], n] + 
    S2[a1, a2, a5, SP[a1, a4], a3, n] + S2[a1, a2, SP[a1, a4], a3, a5, n] + 
    S2[a1, a2, SP[a1, a4], a5, a3, n] - S2[a1, a2, SP[a4, a5], a1, a3, n] - 
    S2[a1, a3, a1, a2, SP[a4, a5], n] + S2[a1, a3, a1, a4, SP[a2, a5], n] - 
    S2[a1, a3, a1, a5, SP[a2, a4], n] - S2[a1, a3, a1, SP[a2, a4], a5, n] + 
    S2[a1, a3, a4, a1, SP[a2, a5], n] + S2[a1, a3, a4, SP[a1, a2], a5, n] + 
    S2[a1, a5, a1, a2, SP[a3, a4], n] - S2[a1, a5, a1, a3, SP[a2, a4], n] + 
    S2[a1, a5, a2, a1, SP[a3, a4], n] + S2[a1, a5, a2, SP[a1, a4], a3, n] + 
    S2[a1, a5, SP[a1, a2], a4, a3, n] + S2[a1, SP[a1, a2], a4, a3, a5, n] + 
    S2[a1, SP[a1, a2], a4, a5, a3, n] + S2[a1, SP[a1, a2], a5, a4, a3, n] - 
    S2[a1, SP[a1, a5], a2, a4, a3, n] - S2[a1, SP[a2, a5], a1, a4, a3, n] - 
    S2[a1, SP[a2, a5], a4, a1, a3, n] + S2[a1, n]*S2[a5, a1, a2, a4, a3, n] + 
    S2[a5, a1, a2, a4, SP[a1, a3], n] + S2[a5, a1, a2, SP[a1, a4], a3, n] + 
    S2[a5, a1, SP[a1, a2], a4, a3, n] + S2[a5, SP[a1, a1], a2, a4, a3, n] + 
    S2[SP[a1, a1], a2, a4, a3, a5, n] + S2[SP[a1, a1], a2, a4, a5, a3, n] + 
    S2[SP[a1, a1], a2, a5, a4, a3, n] + S2[SP[a1, a1], a5, a2, a4, a3, n] - 
    S2[SP[a1, a5], a1, a2, a4, a3, n] - S2[SP[a1, a5], a2, a1, a4, a3, n] - 
    S2[SP[a1, a5], a2, a4, a1, a3, n] - S2[a5, a1, a2, a4, a3, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a1_, a3_, a4_, a2_, a5_, a1_, n_] :> 
  S2[a1, a3, a4, n]*S2[a1, a5, a2, n] + S2[SP[a1, a1], SP[a3, a5], 
     SP[a2, a4], n] - 2*S2[a1, a1, SP[a3, a5], SP[a2, a4], n] - 
    S2[a1, a5, n]*S2[a1, a3, a4, a2, n] + S2[a1, a3, SP[a1, a4], SP[a2, a5], 
     n] - S2[a1, a3, n]*S2[a1, a5, a2, a4, n] + S2[a1, a5, SP[a1, a2], 
     SP[a3, a4], n] + S2[a1, SP[a1, a3], a4, SP[a2, a5], n] - 
    S2[a1, SP[a1, a3], a5, SP[a2, a4], n] + S2[a1, SP[a1, a5], a2, 
     SP[a3, a4], n] - S2[a1, SP[a1, a5], a3, SP[a2, a4], n] + 
    S2[SP[a1, a1], a3, a4, SP[a2, a5], n] - S2[SP[a1, a1], a3, a5, 
     SP[a2, a4], n] + S2[SP[a1, a1], a5, a2, SP[a3, a4], n] - 
    S2[SP[a1, a1], a5, a3, SP[a2, a4], n] - 
    2*S2[a1, a1, a3, a4, SP[a2, a5], n] + 
    2*S2[a1, a1, a3, a5, SP[a2, a4], n] - 
    2*S2[a1, a1, a5, a2, SP[a3, a4], n] + 
    2*S2[a1, a1, a5, a3, SP[a2, a4], n] - S2[a1, a3, a1, a4, SP[a2, a5], n] + 
    S2[a1, a3, a1, a5, SP[a2, a4], n] - S2[a1, a3, a4, a1, SP[a2, a5], n] + 
    S2[a1, n]*S2[a1, a3, a4, a2, a5, n] + S2[a1, a3, a4, a2, SP[a1, a5], n] - 
    S2[a1, a5, a1, a2, SP[a3, a4], n] + S2[a1, a5, a1, a3, SP[a2, a4], n] - 
    S2[a1, a5, a2, a1, SP[a3, a4], n] + S2[a1, n]*S2[a1, a5, a2, a4, a3, n] + 
    S2[a1, a5, a2, a4, SP[a1, a3], n] - S2[a1, n]*S2[a5, a2, a4, a3, a1, n] - 
    S2[a5, a2, a4, a3, SP[a1, a1], n] - S2[a5, a2, a4, SP[a1, a3], a1, n] - 
    S2[a5, a2, SP[a1, a4], a3, a1, n] - S2[a5, SP[a1, a2], a4, a3, a1, n] - 
    S2[SP[a1, a5], a2, a4, a3, a1, n] + S2[a5, a1, a2, a4, a3, a1, n] + 
    S2[a5, a2, a1, a4, a3, a1, n] + S2[a5, a2, a4, a1, a3, a1, n] + 
    2*S2[a5, a2, a4, a3, a1, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a1_, a3_, a4_, a5_, a1_, a2_, n_] :> 
  -(S2[a1, a2, a5, n]*S2[a1, a3, a4, n]) - S2[a1, a3, a4, n]*
     S2[a1, a5, a2, n] - S2[SP[a1, a1], SP[a2, a3], SP[a4, a5], n] - 
    S2[SP[a1, a1], SP[a3, a5], SP[a2, a4], n] + 
    2*S2[a1, a1, SP[a2, a3], SP[a4, a5], n] + 
    2*S2[a1, a1, SP[a3, a5], SP[a2, a4], n] + 
    S2[a1, a3, n]*S2[a1, a2, a5, a4, n] - S2[a1, a2, SP[a1, a5], SP[a3, a4], 
     n] - S2[a1, a2, n]*S2[a1, a3, a5, a4, n] + S2[a1, a3, SP[a1, a5], 
     SP[a2, a4], n] + S2[a1, a3, n]*S2[a1, a5, a2, a4, n] - 
    S2[a1, a2, n]*S2[a1, a5, a3, a4, n] + S2[a1, a3, n]*
     S2[a1, a5, a4, a2, n] - S2[a1, a2, n]*S2[a1, a5, a4, a3, n] - 
    S2[a1, a5, SP[a1, a2], SP[a3, a4], n] + S2[a1, a5, SP[a1, a3], 
     SP[a2, a4], n] + S2[a1, SP[a1, a2], a3, SP[a4, a5], n] - 
    S2[a1, SP[a1, a2], a5, SP[a3, a4], n] + S2[a1, SP[a1, a3], a2, 
     SP[a4, a5], n] + 2*S2[a1, SP[a1, a3], a5, SP[a2, a4], n] + 
    S2[a1, SP[a1, a3], SP[a2, a4], a5, n] + S2[a1, SP[a1, a3], SP[a2, a5], 
     a4, n] + S2[a1, SP[a1, a3], SP[a4, a5], a2, n] - 
    S2[a1, SP[a1, a5], a2, SP[a3, a4], n] + 
    2*S2[a1, SP[a1, a5], a3, SP[a2, a4], n] + S2[a1, SP[a1, a5], SP[a2, a3], 
     a4, n] + S2[a1, SP[a1, a5], SP[a2, a4], a3, n] - 
    S2[a1, SP[a1, a5], SP[a3, a4], a2, n] + S2[a1, a2, n]*
     S2[a4, a5, a1, a3, n] - S2[a4, a5, SP[a1, a1], SP[a2, a3], n] - 
    S2[a4, SP[a1, a5], a1, SP[a2, a3], n] - S2[a4, SP[a1, a5], SP[a1, a2], 
     a3, n] + S2[SP[a1, a1], a2, a3, SP[a4, a5], n] - 
    S2[SP[a1, a1], a2, a5, SP[a3, a4], n] + S2[SP[a1, a1], a3, a2, 
     SP[a4, a5], n] + 2*S2[SP[a1, a1], a3, a5, SP[a2, a4], n] + 
    S2[SP[a1, a1], a3, SP[a2, a4], a5, n] + S2[SP[a1, a1], a3, SP[a2, a5], 
     a4, n] + S2[SP[a1, a1], a3, SP[a4, a5], a2, n] - 
    S2[SP[a1, a1], a5, a2, SP[a3, a4], n] + 
    2*S2[SP[a1, a1], a5, a3, SP[a2, a4], n] + S2[SP[a1, a1], a5, SP[a2, a3], 
     a4, n] + S2[SP[a1, a1], a5, SP[a2, a4], a3, n] - 
    S2[SP[a1, a1], a5, SP[a3, a4], a2, n] + S2[SP[a1, a1], SP[a2, a3], a4, 
     a5, n] + S2[SP[a1, a1], SP[a2, a3], a5, a4, n] + 
    S2[SP[a1, a1], SP[a2, a5], a3, a4, n] + S2[SP[a1, a1], SP[a2, a5], a4, 
     a3, n] - S2[SP[a1, a4], a5, a1, SP[a2, a3], n] - 
    S2[SP[a1, a4], a5, SP[a1, a2], a3, n] - S2[SP[a1, a4], SP[a2, a5], a1, 
     a3, n] + 2*S2[a5, n]*S2[a1, a1, a2, a3, a4, n] + 
    2*S2[a1, a1, a2, a5, SP[a3, a4], n] + 
    2*S2[a1, a1, a2, SP[a3, a5], a4, n] + 
    2*S2[a5, n]*S2[a1, a1, a3, a2, a4, n] + 
    2*S2[a5, n]*S2[a1, a1, a3, a4, a2, n] + 
    2*S2[a1, a1, a3, a4, SP[a2, a5], n] - 
    4*S2[a1, a1, a3, a5, SP[a2, a4], n] - 
    2*S2[a1, a1, a3, SP[a2, a4], a5, n] + 
    2*S2[a1, a1, a5, a2, SP[a3, a4], n] - 
    4*S2[a1, a1, a5, a3, SP[a2, a4], n] - 
    2*S2[a1, a1, a5, SP[a2, a3], a4, n] - 
    2*S2[a1, a1, a5, SP[a2, a4], a3, n] + 
    2*S2[a1, a1, a5, SP[a3, a4], a2, n] - 
    2*S2[a1, a1, SP[a2, a3], a4, a5, n] - 
    2*S2[a1, a1, SP[a2, a3], a5, a4, n] - 
    2*S2[a1, a1, SP[a2, a5], a4, a3, n] + 
    2*S2[a1, a1, SP[a3, a5], a2, a4, n] + 
    2*S2[a1, a1, SP[a3, a5], a4, a2, n] + 
    S2[a5, n]*S2[a1, a2, a1, a3, a4, n] + S2[a1, a2, a1, a5, SP[a3, a4], n] + 
    S2[a1, a2, a1, SP[a3, a5], a4, n] - S2[a4, n]*S2[a1, a2, a5, a1, a3, n] + 
    S2[a1, a2, SP[a1, a5], a3, a4, n] + S2[a1, a2, SP[a1, a5], a4, a3, n] - 
    S2[a1, a2, SP[a4, a5], a1, a3, n] + S2[a5, n]*S2[a1, a3, a1, a2, a4, n] + 
    S2[a5, n]*S2[a1, a3, a1, a4, a2, n] + S2[a1, a3, a1, a4, SP[a2, a5], n] - 
    2*S2[a1, a3, a1, a5, SP[a2, a4], n] - S2[a1, a3, a1, SP[a2, a4], a5, n] + 
    S2[a5, n]*S2[a1, a3, a4, a1, a2, n] + S2[a1, a3, a4, a1, SP[a2, a5], n] + 
    S2[a1, a3, a4, SP[a1, a5], a2, n] - S2[a1, a3, a5, a1, SP[a2, a4], n] - 
    S2[a1, a3, a5, SP[a1, a4], a2, n] - S2[a1, a3, SP[a1, a4], a2, a5, n] - 
    S2[a1, a3, SP[a1, a4], a5, a2, n] + S2[a1, a3, SP[a4, a5], a1, a2, n] + 
    S2[a1, a4, a5, a1, SP[a2, a3], n] + S2[a1, a4, a5, SP[a1, a2], a3, n] + 
    S2[a1, a4, SP[a2, a5], a1, a3, n] - S2[a4, n]*S2[a1, a5, a1, a2, a3, n] - 
    S2[a4, n]*S2[a1, a5, a1, a3, a2, n] - 
    3*S2[a1, a5, a1, a3, SP[a2, a4], n] - S2[a1, a5, a1, SP[a2, a3], a4, n] - 
    2*S2[a1, a5, a1, SP[a2, a4], a3, n] - 
    S2[a4, n]*S2[a1, a5, a2, a1, a3, n] - S2[a1, a5, a3, a1, SP[a2, a4], n] - 
    S2[a1, a5, a3, SP[a1, a4], a2, n] + S2[a1, a5, a4, SP[a1, a2], a3, n] - 
    S2[a1, a5, a4, SP[a1, a3], a2, n] + S2[a1, a5, SP[a1, a2], a4, a3, n] - 
    S2[a1, a5, SP[a1, a3], a2, a4, n] - S2[a1, a5, SP[a1, a3], a4, a2, n] - 
    S2[a1, a5, SP[a1, a4], a2, a3, n] - S2[a1, a5, SP[a1, a4], a3, a2, n] - 
    S2[a1, a5, SP[a2, a4], a1, a3, n] - S2[a1, SP[a1, a2], a3, a4, a5, n] - 
    S2[a1, SP[a1, a2], a3, a5, a4, n] - S2[a1, SP[a1, a2], a5, a3, a4, n] - 
    S2[a1, SP[a1, a3], a2, a4, a5, n] - S2[a1, SP[a1, a3], a2, a5, a4, n] - 
    S2[a1, SP[a1, a3], a4, a2, a5, n] - S2[a1, SP[a1, a3], a4, a5, a2, n] - 
    S2[a1, SP[a1, a3], a5, a2, a4, n] - S2[a1, SP[a1, a3], a5, a4, a2, n] + 
    S2[a1, SP[a1, a5], a2, a3, a4, n] + S2[a1, SP[a1, a5], a3, a2, a4, n] + 
    S2[a1, SP[a1, a5], a3, a4, a2, n] + S2[a1, SP[a2, a5], a1, a3, a4, n] + 
    S2[a1, SP[a3, a5], a1, a2, a4, n] + S2[a1, SP[a3, a5], a1, a4, a2, n] + 
    S2[a1, SP[a3, a5], a4, a1, a2, n] - S2[a1, SP[a4, a5], a1, a2, a3, n] - 
    S2[a1, SP[a4, a5], a1, a3, a2, n] - S2[a1, SP[a4, a5], a2, a1, a3, n] + 
    S2[a4, a1, a5, a1, SP[a2, a3], n] + S2[a4, a1, a5, SP[a1, a2], a3, n] + 
    S2[a4, a1, SP[a2, a5], a1, a3, n] + 2*S2[a4, a5, a1, a1, SP[a2, a3], n] + 
    S2[a4, a5, a1, SP[a1, a2], a3, n] + S2[a4, a5, a1, SP[a1, a3], a2, n] + 
    S2[a4, a5, SP[a1, a1], a2, a3, n] + S2[a4, a5, SP[a1, a1], a3, a2, n] + 
    S2[a4, SP[a1, a5], a1, a2, a3, n] + S2[a4, SP[a1, a5], a1, a3, a2, n] + 
    S2[a4, SP[a1, a5], a2, a1, a3, n] - 2*S2[a4, n]*
     S2[a5, a1, a1, a2, a3, n] - 2*S2[a5, a1, a1, a2, SP[a3, a4], n] - 
    2*S2[a4, n]*S2[a5, a1, a1, a3, a2, n] - 
    2*S2[a5, a1, a1, a3, SP[a2, a4], n] - 
    2*S2[a5, a1, a1, SP[a2, a4], a3, n] - 
    2*S2[a5, a1, a1, SP[a3, a4], a2, n] - 
    S2[a4, n]*S2[a5, a1, a2, a1, a3, n] - S2[a5, a1, a2, a1, SP[a3, a4], n] + 
    S2[a1, n]*S2[a5, a1, a2, a4, a3, n] + S2[a5, a1, a2, a4, SP[a1, a3], n] - 
    S2[a4, n]*S2[a5, a1, a3, a1, a2, n] - S2[a5, a1, a3, a1, SP[a2, a4], n] - 
    S2[a5, a1, a3, SP[a1, a4], a2, n] + S2[a1, n]*S2[a5, a1, a4, a2, a3, n] + 
    S2[a5, a1, a4, a2, SP[a1, a3], n] + S2[a1, n]*S2[a5, a1, a4, a3, a2, n] + 
    S2[a5, a1, a4, a3, SP[a1, a2], n] + S2[a5, a1, a4, SP[a1, a2], a3, n] + 
    S2[a5, a1, a4, SP[a1, a3], a2, n] + S2[a5, a1, SP[a1, a2], a4, a3, n] - 
    S2[a5, a1, SP[a1, a4], a2, a3, n] - S2[a5, a1, SP[a1, a4], a3, a2, n] - 
    S2[a5, a1, SP[a2, a4], a1, a3, n] - S2[a5, a1, SP[a3, a4], a1, a2, n] + 
    S2[a1, n]*S2[a5, a4, a1, a2, a3, n] + S2[a5, a4, a1, a2, SP[a1, a3], n] + 
    S2[a1, n]*S2[a5, a4, a1, a3, a2, n] + S2[a5, a4, a1, a3, SP[a1, a2], n] + 
    S2[a5, a4, a1, SP[a1, a2], a3, n] + S2[a5, a4, a1, SP[a1, a3], a2, n] + 
    S2[a1, n]*S2[a5, a4, a3, a1, a2, n] + S2[a5, a4, a3, a1, SP[a1, a2], n] + 
    S2[a5, a4, a3, SP[a1, a1], a2, n] + S2[a5, a4, SP[a1, a1], a2, a3, n] + 
    S2[a5, a4, SP[a1, a1], a3, a2, n] + S2[a5, a4, SP[a1, a3], a1, a2, n] + 
    S2[a5, SP[a1, a1], a2, a4, a3, n] + S2[a5, SP[a1, a1], a4, a2, a3, n] + 
    S2[a5, SP[a1, a1], a4, a3, a2, n] - S2[a5, SP[a1, a4], a1, a2, a3, n] - 
    S2[a5, SP[a1, a4], a1, a3, a2, n] - S2[a5, SP[a1, a4], a2, a1, a3, n] - 
    S2[SP[a1, a1], a2, a3, a4, a5, n] - S2[SP[a1, a1], a2, a3, a5, a4, n] - 
    S2[SP[a1, a1], a2, a5, a3, a4, n] - S2[SP[a1, a1], a3, a2, a4, a5, n] - 
    S2[SP[a1, a1], a3, a2, a5, a4, n] - S2[SP[a1, a1], a3, a4, a2, a5, n] - 
    S2[SP[a1, a1], a3, a4, a5, a2, n] - S2[SP[a1, a1], a3, a5, a2, a4, n] - 
    S2[SP[a1, a1], a3, a5, a4, a2, n] - S2[SP[a1, a1], a5, a2, a3, a4, n] - 
    S2[SP[a1, a1], a5, a3, a2, a4, n] - S2[SP[a1, a1], a5, a3, a4, a2, n] + 
    2*S2[SP[a1, a5], a1, a2, a3, a4, n] + S2[SP[a1, a5], a1, a2, a4, a3, n] + 
    2*S2[SP[a1, a5], a1, a3, a2, a4, n] + 
    2*S2[SP[a1, a5], a1, a3, a4, a2, n] + S2[SP[a1, a5], a1, a4, a2, a3, n] + 
    S2[SP[a1, a5], a1, a4, a3, a2, n] + S2[SP[a1, a5], a2, a1, a3, a4, n] + 
    S2[SP[a1, a5], a3, a1, a2, a4, n] + S2[SP[a1, a5], a3, a1, a4, a2, n] + 
    S2[SP[a1, a5], a3, a4, a1, a2, n] + S2[SP[a1, a5], a4, a1, a2, a3, n] + 
    S2[SP[a1, a5], a4, a1, a3, a2, n] + S2[SP[a1, a5], a4, a3, a1, a2, n] - 
    2*S2[SP[a4, a5], a1, a1, a2, a3, n] - 
    2*S2[SP[a4, a5], a1, a1, a3, a2, n] - S2[SP[a4, a5], a1, a2, a1, a3, n] - 
    S2[SP[a4, a5], a1, a3, a1, a2, n] - S2[a5, a1, a2, a4, a3, a1, n] - 
    S2[a5, a1, a4, a2, a3, a1, n] - S2[a5, a1, a4, a3, a1, a2, n] - 
    S2[a5, a1, a4, a3, a2, a1, n] - S2[a5, a4, a1, a2, a3, a1, n] - 
    S2[a5, a4, a1, a3, a1, a2, n] - S2[a5, a4, a1, a3, a2, a1, n] - 
    2*S2[a5, a4, a3, a1, a1, a2, n] - S2[a5, a4, a3, a1, a2, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a1_, a3_, a4_, a5_, a2_, a1_, n_] :> 
  S2[a1, a2, a5, n]*S2[a1, a3, a4, n] + S2[SP[a1, a1], SP[a2, a3], 
     SP[a4, a5], n] - 2*S2[a1, a1, SP[a2, a3], SP[a4, a5], n] - 
    S2[a1, a3, n]*S2[a1, a2, a5, a4, n] + S2[a1, a2, SP[a1, a5], SP[a3, a4], 
     n] + S2[a1, a2, n]*S2[a1, a3, a5, a4, n] - S2[a1, a3, SP[a1, a5], 
     SP[a2, a4], n] + S2[a1, a2, n]*S2[a1, a5, a3, a4, n] + 
    S2[a1, a2, n]*S2[a1, a5, a4, a3, n] - S2[a1, a5, SP[a1, a3], SP[a2, a4], 
     n] - S2[a1, a5, SP[a1, a4], SP[a2, a3], n] - S2[a1, SP[a1, a2], a3, 
     SP[a4, a5], n] + S2[a1, SP[a1, a2], a5, SP[a3, a4], n] - 
    S2[a1, SP[a1, a3], a2, SP[a4, a5], n] - S2[a1, SP[a1, a3], a5, 
     SP[a2, a4], n] - S2[a1, SP[a1, a3], SP[a2, a4], a5, n] - 
    S2[a1, SP[a1, a3], SP[a2, a5], a4, n] - S2[a1, SP[a1, a5], a3, 
     SP[a2, a4], n] - S2[a1, SP[a1, a5], a4, SP[a2, a3], n] - 
    S2[a1, SP[a1, a5], SP[a2, a3], a4, n] - S2[a1, SP[a1, a5], SP[a2, a4], 
     a3, n] - S2[a1, a2, n]*S2[a4, a5, a1, a3, n] + 
    S2[a4, a5, SP[a1, a1], SP[a2, a3], n] + S2[a4, SP[a1, a5], a1, 
     SP[a2, a3], n] + S2[a4, SP[a1, a5], SP[a1, a2], a3, n] - 
    S2[SP[a1, a1], a2, a3, SP[a4, a5], n] + S2[SP[a1, a1], a2, a5, 
     SP[a3, a4], n] - S2[SP[a1, a1], a3, a2, SP[a4, a5], n] - 
    S2[SP[a1, a1], a3, a5, SP[a2, a4], n] - S2[SP[a1, a1], a3, SP[a2, a4], 
     a5, n] - S2[SP[a1, a1], a3, SP[a2, a5], a4, n] - 
    S2[SP[a1, a1], a5, a3, SP[a2, a4], n] - S2[SP[a1, a1], a5, a4, 
     SP[a2, a3], n] - S2[SP[a1, a1], a5, SP[a2, a3], a4, n] - 
    S2[SP[a1, a1], a5, SP[a2, a4], a3, n] - S2[SP[a1, a1], SP[a2, a3], a4, 
     a5, n] - S2[SP[a1, a1], SP[a2, a3], a5, a4, n] - 
    S2[SP[a1, a1], SP[a2, a5], a3, a4, n] - S2[SP[a1, a1], SP[a2, a5], a4, 
     a3, n] + S2[SP[a1, a4], a5, a1, SP[a2, a3], n] + 
    S2[SP[a1, a4], a5, SP[a1, a2], a3, n] + S2[SP[a1, a4], SP[a2, a5], a1, 
     a3, n] - 2*S2[a5, n]*S2[a1, a1, a2, a3, a4, n] - 
    2*S2[a1, a1, a2, a5, SP[a3, a4], n] - 
    2*S2[a1, a1, a2, SP[a3, a5], a4, n] - 
    2*S2[a5, n]*S2[a1, a1, a3, a2, a4, n] - 
    2*S2[a5, n]*S2[a1, a1, a3, a4, a2, n] - 
    2*S2[a1, a1, a3, a4, SP[a2, a5], n] + 
    2*S2[a1, a1, a3, a5, SP[a2, a4], n] + 
    2*S2[a1, a1, a3, SP[a2, a4], a5, n] - 
    2*S2[a1, a1, a3, SP[a4, a5], a2, n] + 
    2*S2[a1, a1, a5, a3, SP[a2, a4], n] + 
    2*S2[a1, a1, a5, a4, SP[a2, a3], n] + 
    2*S2[a1, a1, a5, SP[a2, a3], a4, n] + 
    2*S2[a1, a1, a5, SP[a2, a4], a3, n] + 
    2*S2[a1, a1, SP[a2, a3], a4, a5, n] + 
    2*S2[a1, a1, SP[a2, a3], a5, a4, n] + 
    2*S2[a1, a1, SP[a2, a5], a4, a3, n] - 
    2*S2[a1, a1, SP[a3, a5], a2, a4, n] - 
    2*S2[a1, a1, SP[a3, a5], a4, a2, n] - 
    S2[a5, n]*S2[a1, a2, a1, a3, a4, n] - S2[a1, a2, a1, a5, SP[a3, a4], n] - 
    S2[a1, a2, a1, SP[a3, a5], a4, n] + S2[a4, n]*S2[a1, a2, a5, a1, a3, n] - 
    S2[a1, a2, SP[a1, a5], a3, a4, n] - S2[a1, a2, SP[a1, a5], a4, a3, n] + 
    S2[a1, a2, SP[a4, a5], a1, a3, n] - S2[a5, n]*S2[a1, a3, a1, a2, a4, n] - 
    S2[a5, n]*S2[a1, a3, a1, a4, a2, n] - S2[a1, a3, a1, a4, SP[a2, a5], n] + 
    S2[a1, a3, a1, a5, SP[a2, a4], n] + S2[a1, a3, a1, SP[a2, a4], a5, n] - 
    S2[a1, a3, a1, SP[a4, a5], a2, n] - S2[a5, n]*S2[a1, a3, a4, a1, a2, n] - 
    S2[a1, a3, a4, a1, SP[a2, a5], n] + S2[a1, n]*S2[a1, a3, a4, a5, a2, n] + 
    S2[a1, a3, a4, a5, SP[a1, a2], n] + S2[a1, a3, a5, a1, SP[a2, a4], n] + 
    S2[a1, a3, a5, SP[a1, a4], a2, n] + S2[a1, a3, SP[a1, a4], a2, a5, n] + 
    S2[a1, a3, SP[a1, a4], a5, a2, n] - S2[a1, a3, SP[a4, a5], a1, a2, n] - 
    S2[a1, a4, a5, a1, SP[a2, a3], n] - S2[a1, a4, a5, SP[a1, a2], a3, n] - 
    S2[a1, a4, SP[a2, a5], a1, a3, n] + S2[a4, n]*S2[a1, a5, a1, a2, a3, n] + 
    S2[a1, a5, a1, a2, SP[a3, a4], n] + S2[a4, n]*S2[a1, a5, a1, a3, a2, n] + 
    2*S2[a1, a5, a1, a3, SP[a2, a4], n] + S2[a1, a5, a1, a4, SP[a2, a3], n] + 
    S2[a1, a5, a1, SP[a2, a3], a4, n] + 2*S2[a1, a5, a1, SP[a2, a4], a3, n] + 
    S2[a1, a5, a1, SP[a3, a4], a2, n] + S2[a4, n]*S2[a1, a5, a2, a1, a3, n] + 
    S2[a1, a5, a2, a1, SP[a3, a4], n] - S2[a1, n]*S2[a1, a5, a2, a4, a3, n] - 
    S2[a1, a5, a2, a4, SP[a1, a3], n] + S2[a1, a5, a3, a1, SP[a2, a4], n] + 
    S2[a1, a5, a3, SP[a1, a4], a2, n] + S2[a1, a5, a4, a1, SP[a2, a3], n] - 
    S2[a1, n]*S2[a1, a5, a4, a2, a3, n] - S2[a1, a5, a4, a2, SP[a1, a3], n] - 
    S2[a1, n]*S2[a1, a5, a4, a3, a2, n] - S2[a1, a5, a4, a3, SP[a1, a2], n] - 
    S2[a1, a5, a4, SP[a1, a2], a3, n] - S2[a1, a5, SP[a1, a2], a4, a3, n] + 
    S2[a1, a5, SP[a1, a3], a2, a4, n] + S2[a1, a5, SP[a1, a3], a4, a2, n] + 
    S2[a1, a5, SP[a1, a4], a2, a3, n] + S2[a1, a5, SP[a1, a4], a3, a2, n] + 
    S2[a1, a5, SP[a2, a4], a1, a3, n] + S2[a1, SP[a1, a2], a3, a4, a5, n] + 
    S2[a1, SP[a1, a2], a3, a5, a4, n] + S2[a1, SP[a1, a2], a5, a3, a4, n] + 
    S2[a1, SP[a1, a3], a2, a4, a5, n] + S2[a1, SP[a1, a3], a2, a5, a4, n] + 
    S2[a1, SP[a1, a3], a4, a2, a5, n] + S2[a1, SP[a1, a3], a4, a5, a2, n] + 
    S2[a1, SP[a1, a3], a5, a2, a4, n] + S2[a1, SP[a1, a3], a5, a4, a2, n] - 
    S2[a1, SP[a1, a5], a2, a3, a4, n] - S2[a1, SP[a1, a5], a3, a2, a4, n] - 
    S2[a1, SP[a1, a5], a3, a4, a2, n] - S2[a1, SP[a2, a5], a1, a3, a4, n] - 
    S2[a1, SP[a3, a5], a1, a2, a4, n] - S2[a1, SP[a3, a5], a1, a4, a2, n] - 
    S2[a1, SP[a3, a5], a4, a1, a2, n] + S2[a1, SP[a4, a5], a1, a2, a3, n] + 
    S2[a1, SP[a4, a5], a1, a3, a2, n] + S2[a1, SP[a4, a5], a2, a1, a3, n] - 
    S2[a4, a1, a5, a1, SP[a2, a3], n] - S2[a4, a1, a5, SP[a1, a2], a3, n] - 
    S2[a4, a1, SP[a2, a5], a1, a3, n] - 2*S2[a4, a5, a1, a1, SP[a2, a3], n] - 
    S2[a4, a5, a1, SP[a1, a2], a3, n] - S2[a4, a5, a1, SP[a1, a3], a2, n] - 
    S2[a4, a5, SP[a1, a1], a2, a3, n] - S2[a4, a5, SP[a1, a1], a3, a2, n] - 
    S2[a4, SP[a1, a5], a1, a2, a3, n] - S2[a4, SP[a1, a5], a1, a3, a2, n] - 
    S2[a4, SP[a1, a5], a2, a1, a3, n] + 2*S2[a4, n]*
     S2[a5, a1, a1, a2, a3, n] + 2*S2[a5, a1, a1, a2, SP[a3, a4], n] + 
    2*S2[a4, n]*S2[a5, a1, a1, a3, a2, n] + 
    2*S2[a5, a1, a1, a3, SP[a2, a4], n] + 
    2*S2[a5, a1, a1, SP[a2, a4], a3, n] + 
    2*S2[a5, a1, a1, SP[a3, a4], a2, n] + 
    S2[a4, n]*S2[a5, a1, a2, a1, a3, n] + S2[a5, a1, a2, a1, SP[a3, a4], n] - 
    S2[a1, n]*S2[a5, a1, a2, a4, a3, n] - S2[a5, a1, a2, a4, SP[a1, a3], n] + 
    S2[a4, n]*S2[a5, a1, a3, a1, a2, n] + S2[a5, a1, a3, a1, SP[a2, a4], n] + 
    S2[a5, a1, a3, SP[a1, a4], a2, n] - S2[a1, n]*S2[a5, a1, a4, a2, a3, n] - 
    S2[a5, a1, a4, a2, SP[a1, a3], n] - S2[a1, n]*S2[a5, a1, a4, a3, a2, n] - 
    S2[a5, a1, a4, a3, SP[a1, a2], n] - S2[a5, a1, a4, SP[a1, a2], a3, n] - 
    S2[a5, a1, a4, SP[a1, a3], a2, n] - S2[a5, a1, SP[a1, a2], a4, a3, n] + 
    S2[a5, a1, SP[a1, a4], a2, a3, n] + S2[a5, a1, SP[a1, a4], a3, a2, n] + 
    S2[a5, a1, SP[a2, a4], a1, a3, n] + S2[a5, a1, SP[a3, a4], a1, a2, n] + 
    S2[a1, n]*S2[a5, a2, a4, a3, a1, n] + S2[a5, a2, a4, a3, SP[a1, a1], n] + 
    S2[a5, a2, a4, SP[a1, a3], a1, n] + S2[a5, a2, SP[a1, a4], a3, a1, n] - 
    S2[a1, n]*S2[a5, a4, a1, a2, a3, n] - S2[a5, a4, a1, a2, SP[a1, a3], n] - 
    S2[a1, n]*S2[a5, a4, a1, a3, a2, n] - S2[a5, a4, a1, a3, SP[a1, a2], n] - 
    S2[a5, a4, a1, SP[a1, a2], a3, n] - S2[a5, a4, a1, SP[a1, a3], a2, n] + 
    S2[a1, n]*S2[a5, a4, a2, a3, a1, n] + S2[a5, a4, a2, a3, SP[a1, a1], n] + 
    S2[a5, a4, a2, SP[a1, a3], a1, n] + S2[a1, n]*S2[a5, a4, a3, a2, a1, n] + 
    S2[a5, a4, a3, a2, SP[a1, a1], n] + S2[a5, a4, a3, SP[a1, a2], a1, n] - 
    S2[a5, a4, SP[a1, a1], a2, a3, n] - S2[a5, a4, SP[a1, a1], a3, a2, n] + 
    S2[a5, a4, SP[a1, a2], a3, a1, n] + S2[a5, a4, SP[a1, a3], a2, a1, n] - 
    S2[a5, SP[a1, a1], a2, a4, a3, n] - S2[a5, SP[a1, a1], a4, a2, a3, n] - 
    S2[a5, SP[a1, a1], a4, a3, a2, n] + S2[a5, SP[a1, a2], a4, a3, a1, n] + 
    S2[a5, SP[a1, a4], a1, a2, a3, n] + S2[a5, SP[a1, a4], a1, a3, a2, n] + 
    S2[a5, SP[a1, a4], a2, a1, a3, n] + S2[a5, SP[a1, a4], a2, a3, a1, n] + 
    S2[a5, SP[a1, a4], a3, a1, a2, n] + S2[a5, SP[a1, a4], a3, a2, a1, n] + 
    S2[SP[a1, a1], a2, a3, a4, a5, n] + S2[SP[a1, a1], a2, a3, a5, a4, n] + 
    S2[SP[a1, a1], a2, a5, a3, a4, n] + S2[SP[a1, a1], a3, a2, a4, a5, n] + 
    S2[SP[a1, a1], a3, a2, a5, a4, n] + S2[SP[a1, a1], a3, a4, a2, a5, n] + 
    S2[SP[a1, a1], a3, a4, a5, a2, n] + S2[SP[a1, a1], a3, a5, a2, a4, n] + 
    S2[SP[a1, a1], a3, a5, a4, a2, n] + S2[SP[a1, a1], a5, a2, a3, a4, n] + 
    S2[SP[a1, a1], a5, a3, a2, a4, n] + S2[SP[a1, a1], a5, a3, a4, a2, n] - 
    2*S2[SP[a1, a5], a1, a2, a3, a4, n] - S2[SP[a1, a5], a1, a2, a4, a3, n] - 
    2*S2[SP[a1, a5], a1, a3, a2, a4, n] - 
    2*S2[SP[a1, a5], a1, a3, a4, a2, n] - S2[SP[a1, a5], a1, a4, a2, a3, n] - 
    S2[SP[a1, a5], a1, a4, a3, a2, n] - S2[SP[a1, a5], a2, a1, a3, a4, n] + 
    S2[SP[a1, a5], a2, a4, a3, a1, n] - S2[SP[a1, a5], a3, a1, a2, a4, n] - 
    S2[SP[a1, a5], a3, a1, a4, a2, n] - S2[SP[a1, a5], a3, a4, a1, a2, n] - 
    S2[SP[a1, a5], a4, a1, a2, a3, n] - S2[SP[a1, a5], a4, a1, a3, a2, n] + 
    S2[SP[a1, a5], a4, a2, a3, a1, n] + S2[SP[a1, a5], a4, a3, a2, a1, n] + 
    2*S2[SP[a4, a5], a1, a1, a2, a3, n] + 
    2*S2[SP[a4, a5], a1, a1, a3, a2, n] + S2[SP[a4, a5], a1, a2, a1, a3, n] + 
    S2[SP[a4, a5], a1, a3, a1, a2, n] - S2[a5, a2, a1, a4, a3, a1, n] - 
    S2[a5, a2, a4, a1, a3, a1, n] - 2*S2[a5, a2, a4, a3, a1, a1, n] - 
    S2[a5, a4, a2, a1, a3, a1, n] - 2*S2[a5, a4, a2, a3, a1, a1, n] - 
    S2[a5, a4, a3, a1, a2, a1, n] - 2*S2[a5, a4, a3, a2, a1, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a1_, a3_, a5_, a1_, a2_, a4_, n_] :> 
  -(S2[a1, a3, n]*S2[a1, a2, a4, a5, n]) - S2[a1, a3, n]*
     S2[a1, a2, a5, a4, n] + S2[a1, a2, SP[a1, a4], SP[a3, a5], n] + 
    S2[a1, a2, SP[a1, a5], SP[a3, a4], n] - S2[a1, a3, n]*
     S2[a1, a5, a2, a4, n] + S2[a1, a5, SP[a1, a2], SP[a3, a4], n] + 
    S2[a1, SP[a1, a2], a4, SP[a3, a5], n] + S2[a1, SP[a1, a2], a5, 
     SP[a3, a4], n] + S2[a1, SP[a1, a2], SP[a3, a4], a5, n] + 
    S2[a1, SP[a1, a2], SP[a3, a5], a4, n] + S2[a1, SP[a1, a5], a2, 
     SP[a3, a4], n] + S2[a1, SP[a1, a5], SP[a2, a3], a4, n] + 
    S2[SP[a1, a1], a2, a4, SP[a3, a5], n] + S2[SP[a1, a1], a2, a5, 
     SP[a3, a4], n] + S2[SP[a1, a1], a2, SP[a3, a4], a5, n] + 
    S2[SP[a1, a1], a2, SP[a3, a5], a4, n] + S2[SP[a1, a1], a5, a2, 
     SP[a3, a4], n] + S2[SP[a1, a1], a5, SP[a2, a3], a4, n] + 
    S2[SP[a1, a1], SP[a2, a3], a4, a5, n] + S2[SP[a1, a1], SP[a2, a3], a5, 
     a4, n] + S2[SP[a1, a1], SP[a3, a5], a2, a4, n] + 
    2*S2[a5, n]*S2[a1, a1, a2, a3, a4, n] + 
    2*S2[a1, a1, a2, a3, SP[a4, a5], n] + 
    2*S2[a5, n]*S2[a1, a1, a2, a4, a3, n] - 
    2*S2[a1, a1, a2, a5, SP[a3, a4], n] - 
    2*S2[a1, a1, a2, SP[a3, a4], a5, n] + 
    2*S2[a1, a1, a2, SP[a4, a5], a3, n] + 
    2*S2[a5, n]*S2[a1, a1, a3, a2, a4, n] + 
    2*S2[a1, a1, a3, a2, SP[a4, a5], n] + 
    2*S2[a1, a1, a3, SP[a2, a5], a4, n] - 
    2*S2[a1, a1, a5, a2, SP[a3, a4], n] - 
    2*S2[a1, a1, a5, SP[a2, a3], a4, n] - 
    2*S2[a1, a1, SP[a2, a3], a4, a5, n] - 
    2*S2[a1, a1, SP[a2, a3], a5, a4, n] + 
    2*S2[a1, a1, SP[a2, a5], a3, a4, n] + 
    2*S2[a1, a1, SP[a2, a5], a4, a3, n] + 
    S2[a5, n]*S2[a1, a2, a1, a3, a4, n] + S2[a1, a2, a1, a3, SP[a4, a5], n] + 
    S2[a5, n]*S2[a1, a2, a1, a4, a3, n] - S2[a1, a2, a1, a5, SP[a3, a4], n] - 
    S2[a1, a2, a1, SP[a3, a4], a5, n] + S2[a1, a2, a1, SP[a4, a5], a3, n] + 
    S2[a5, n]*S2[a1, a2, a4, a1, a3, n] - S2[a1, a2, a5, a1, SP[a3, a4], n] - 
    S2[a1, a2, a5, SP[a1, a4], a3, n] - S2[a1, a2, SP[a1, a4], a3, a5, n] - 
    S2[a1, a2, SP[a1, a4], a5, a3, n] + S2[a1, a2, SP[a4, a5], a1, a3, n] + 
    S2[a5, n]*S2[a1, a3, a1, a2, a4, n] + S2[a1, a3, a1, a2, SP[a4, a5], n] + 
    S2[a1, a3, a1, SP[a2, a5], a4, n] + S2[a1, a3, SP[a1, a5], a2, a4, n] - 
    S2[a1, a5, a1, a2, SP[a3, a4], n] - S2[a1, a5, a1, SP[a2, a3], a4, n] - 
    S2[a1, a5, a2, a1, SP[a3, a4], n] - S2[a1, a5, a2, SP[a1, a4], a3, n] - 
    S2[a1, a5, SP[a1, a2], a3, a4, n] - S2[a1, a5, SP[a1, a2], a4, a3, n] - 
    S2[a1, SP[a1, a2], a3, a4, a5, n] - S2[a1, SP[a1, a2], a3, a5, a4, n] - 
    S2[a1, SP[a1, a2], a4, a3, a5, n] - S2[a1, SP[a1, a2], a4, a5, a3, n] - 
    S2[a1, SP[a1, a2], a5, a3, a4, n] - S2[a1, SP[a1, a2], a5, a4, a3, n] - 
    S2[a1, SP[a1, a3], a2, a4, a5, n] - S2[a1, SP[a1, a3], a2, a5, a4, n] - 
    S2[a1, SP[a1, a3], a5, a2, a4, n] + S2[a1, SP[a1, a5], a2, a3, a4, n] + 
    S2[a1, SP[a1, a5], a2, a4, a3, n] + S2[a1, SP[a1, a5], a3, a2, a4, n] + 
    S2[a1, SP[a2, a5], a1, a3, a4, n] + S2[a1, SP[a2, a5], a1, a4, a3, n] + 
    S2[a1, SP[a2, a5], a4, a1, a3, n] + S2[a1, SP[a3, a5], a1, a2, a4, n] - 
    S2[a1, n]*S2[a5, a1, a2, a3, a4, n] - S2[a5, a1, a2, a3, SP[a1, a4], n] - 
    S2[a1, n]*S2[a5, a1, a2, a4, a3, n] - S2[a5, a1, a2, a4, SP[a1, a3], n] - 
    S2[a5, a1, a2, SP[a1, a3], a4, n] - S2[a5, a1, a2, SP[a1, a4], a3, n] - 
    S2[a1, n]*S2[a5, a1, a3, a2, a4, n] - S2[a5, a1, a3, a2, SP[a1, a4], n] - 
    S2[a5, a1, a3, SP[a1, a2], a4, n] - S2[a5, a1, SP[a1, a2], a3, a4, n] - 
    S2[a5, a1, SP[a1, a2], a4, a3, n] - S2[a5, a1, SP[a1, a3], a2, a4, n] - 
    S2[a1, n]*S2[a5, a3, a1, a2, a4, n] - S2[a5, a3, a1, a2, SP[a1, a4], n] - 
    S2[a5, a3, a1, SP[a1, a2], a4, n] - S2[a5, a3, SP[a1, a1], a2, a4, n] - 
    S2[a5, SP[a1, a1], a2, a3, a4, n] - S2[a5, SP[a1, a1], a2, a4, a3, n] - 
    S2[a5, SP[a1, a1], a3, a2, a4, n] - S2[a5, SP[a1, a3], a1, a2, a4, n] - 
    S2[SP[a1, a1], a2, a3, a4, a5, n] - S2[SP[a1, a1], a2, a3, a5, a4, n] - 
    S2[SP[a1, a1], a2, a4, a3, a5, n] - S2[SP[a1, a1], a2, a4, a5, a3, n] - 
    S2[SP[a1, a1], a2, a5, a3, a4, n] - S2[SP[a1, a1], a2, a5, a4, a3, n] - 
    S2[SP[a1, a1], a3, a2, a4, a5, n] - S2[SP[a1, a1], a3, a2, a5, a4, n] - 
    S2[SP[a1, a1], a3, a5, a2, a4, n] - S2[SP[a1, a1], a5, a2, a3, a4, n] - 
    S2[SP[a1, a1], a5, a2, a4, a3, n] - S2[SP[a1, a1], a5, a3, a2, a4, n] + 
    S2[SP[a1, a5], a1, a2, a3, a4, n] + S2[SP[a1, a5], a1, a2, a4, a3, n] + 
    S2[SP[a1, a5], a1, a3, a2, a4, n] + S2[SP[a1, a5], a2, a1, a3, a4, n] + 
    S2[SP[a1, a5], a2, a1, a4, a3, n] + S2[SP[a1, a5], a2, a4, a1, a3, n] + 
    S2[a5, a1, a2, a3, a1, a4, n] + S2[a5, a1, a2, a3, a4, a1, n] + 
    S2[a5, a1, a2, a4, a3, a1, n] + S2[a5, a1, a3, a1, a2, a4, n] + 
    S2[a5, a1, a3, a2, a1, a4, n] + S2[a5, a1, a3, a2, a4, a1, n] + 
    2*S2[a5, a3, a1, a1, a2, a4, n] + S2[a5, a3, a1, a2, a1, a4, n] + 
    S2[a5, a3, a1, a2, a4, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a1_, a3_, a5_, a1_, a4_, a2_, n_] :> 
  -(S2[a1, a3, n]*S2[a1, a4, a2, a5, n]) - S2[a1, a3, n]*
     S2[a1, a4, a5, a2, n] + S2[a1, a4, SP[a1, a2], SP[a3, a5], n] + 
    S2[a1, a4, SP[a1, a5], SP[a2, a3], n] - S2[a1, a3, n]*
     S2[a1, a5, a4, a2, n] + S2[a1, a5, SP[a1, a4], SP[a2, a3], n] + 
    S2[a1, SP[a1, a4], a2, SP[a3, a5], n] + S2[a1, SP[a1, a4], a5, 
     SP[a2, a3], n] + S2[a1, SP[a1, a4], SP[a2, a3], a5, n] + 
    S2[a1, SP[a1, a4], SP[a3, a5], a2, n] + S2[a1, SP[a1, a5], a4, 
     SP[a2, a3], n] + S2[a1, SP[a1, a5], SP[a3, a4], a2, n] + 
    S2[SP[a1, a1], a4, a2, SP[a3, a5], n] + S2[SP[a1, a1], a4, a5, 
     SP[a2, a3], n] + S2[SP[a1, a1], a4, SP[a2, a3], a5, n] + 
    S2[SP[a1, a1], a4, SP[a3, a5], a2, n] + S2[SP[a1, a1], a5, a4, 
     SP[a2, a3], n] + S2[SP[a1, a1], a5, SP[a3, a4], a2, n] + 
    S2[SP[a1, a1], SP[a3, a4], a2, a5, n] + S2[SP[a1, a1], SP[a3, a4], a5, 
     a2, n] + S2[SP[a1, a1], SP[a3, a5], a4, a2, n] + 
    2*S2[a5, n]*S2[a1, a1, a3, a4, a2, n] + 
    2*S2[a1, a1, a3, a4, SP[a2, a5], n] + 
    2*S2[a1, a1, a3, SP[a4, a5], a2, n] + 
    2*S2[a5, n]*S2[a1, a1, a4, a2, a3, n] + 
    2*S2[a5, n]*S2[a1, a1, a4, a3, a2, n] + 
    2*S2[a1, a1, a4, a3, SP[a2, a5], n] - 
    2*S2[a1, a1, a4, a5, SP[a2, a3], n] - 
    2*S2[a1, a1, a4, SP[a2, a3], a5, n] + 
    2*S2[a1, a1, a4, SP[a2, a5], a3, n] - 
    2*S2[a1, a1, a5, a4, SP[a2, a3], n] - 
    2*S2[a1, a1, a5, SP[a3, a4], a2, n] - 
    2*S2[a1, a1, SP[a3, a4], a2, a5, n] - 
    2*S2[a1, a1, SP[a3, a4], a5, a2, n] + 
    2*S2[a1, a1, SP[a4, a5], a2, a3, n] + 
    2*S2[a1, a1, SP[a4, a5], a3, a2, n] + 
    S2[a5, n]*S2[a1, a3, a1, a4, a2, n] + S2[a1, a3, a1, a4, SP[a2, a5], n] + 
    S2[a1, a3, a1, SP[a4, a5], a2, n] + S2[a1, a3, SP[a1, a5], a4, a2, n] + 
    S2[a5, n]*S2[a1, a4, a1, a2, a3, n] + 
    S2[a5, n]*S2[a1, a4, a1, a3, a2, n] + S2[a1, a4, a1, a3, SP[a2, a5], n] - 
    S2[a1, a4, a1, a5, SP[a2, a3], n] - S2[a1, a4, a1, SP[a2, a3], a5, n] + 
    S2[a1, a4, a1, SP[a2, a5], a3, n] + S2[a5, n]*S2[a1, a4, a2, a1, a3, n] - 
    S2[a1, a4, a5, a1, SP[a2, a3], n] - S2[a1, a4, a5, SP[a1, a2], a3, n] - 
    S2[a1, a4, SP[a1, a2], a3, a5, n] - S2[a1, a4, SP[a1, a2], a5, a3, n] + 
    S2[a1, a4, SP[a2, a5], a1, a3, n] - S2[a1, a5, a1, a4, SP[a2, a3], n] - 
    S2[a1, a5, a1, SP[a3, a4], a2, n] - S2[a1, a5, a4, a1, SP[a2, a3], n] - 
    S2[a1, a5, a4, SP[a1, a2], a3, n] - S2[a1, a5, SP[a1, a4], a2, a3, n] - 
    S2[a1, a5, SP[a1, a4], a3, a2, n] - S2[a1, SP[a1, a3], a4, a2, a5, n] - 
    S2[a1, SP[a1, a3], a4, a5, a2, n] - S2[a1, SP[a1, a3], a5, a4, a2, n] - 
    S2[a1, SP[a1, a4], a2, a3, a5, n] - S2[a1, SP[a1, a4], a2, a5, a3, n] - 
    S2[a1, SP[a1, a4], a3, a2, a5, n] - S2[a1, SP[a1, a4], a3, a5, a2, n] - 
    S2[a1, SP[a1, a4], a5, a2, a3, n] - S2[a1, SP[a1, a4], a5, a3, a2, n] + 
    S2[a1, SP[a1, a5], a3, a4, a2, n] + S2[a1, SP[a1, a5], a4, a2, a3, n] + 
    S2[a1, SP[a1, a5], a4, a3, a2, n] + S2[a1, SP[a3, a5], a1, a4, a2, n] + 
    S2[a1, SP[a4, a5], a1, a2, a3, n] + S2[a1, SP[a4, a5], a1, a3, a2, n] + 
    S2[a1, SP[a4, a5], a2, a1, a3, n] - S2[a1, n]*S2[a5, a1, a3, a4, a2, n] - 
    S2[a5, a1, a3, a4, SP[a1, a2], n] - S2[a5, a1, a3, SP[a1, a4], a2, n] - 
    S2[a1, n]*S2[a5, a1, a4, a2, a3, n] - S2[a5, a1, a4, a2, SP[a1, a3], n] - 
    S2[a1, n]*S2[a5, a1, a4, a3, a2, n] - S2[a5, a1, a4, a3, SP[a1, a2], n] - 
    S2[a5, a1, a4, SP[a1, a2], a3, n] - S2[a5, a1, a4, SP[a1, a3], a2, n] - 
    S2[a5, a1, SP[a1, a3], a4, a2, n] - S2[a5, a1, SP[a1, a4], a2, a3, n] - 
    S2[a5, a1, SP[a1, a4], a3, a2, n] - S2[a1, n]*S2[a5, a3, a1, a4, a2, n] - 
    S2[a5, a3, a1, a4, SP[a1, a2], n] - S2[a5, a3, a1, SP[a1, a4], a2, n] - 
    S2[a5, a3, SP[a1, a1], a4, a2, n] - S2[a5, SP[a1, a1], a3, a4, a2, n] - 
    S2[a5, SP[a1, a1], a4, a2, a3, n] - S2[a5, SP[a1, a1], a4, a3, a2, n] - 
    S2[a5, SP[a1, a3], a1, a4, a2, n] - S2[SP[a1, a1], a3, a4, a2, a5, n] - 
    S2[SP[a1, a1], a3, a4, a5, a2, n] - S2[SP[a1, a1], a3, a5, a4, a2, n] - 
    S2[SP[a1, a1], a4, a2, a3, a5, n] - S2[SP[a1, a1], a4, a2, a5, a3, n] - 
    S2[SP[a1, a1], a4, a3, a2, a5, n] - S2[SP[a1, a1], a4, a3, a5, a2, n] - 
    S2[SP[a1, a1], a4, a5, a2, a3, n] - S2[SP[a1, a1], a4, a5, a3, a2, n] - 
    S2[SP[a1, a1], a5, a3, a4, a2, n] - S2[SP[a1, a1], a5, a4, a2, a3, n] - 
    S2[SP[a1, a1], a5, a4, a3, a2, n] + S2[SP[a1, a5], a1, a3, a4, a2, n] + 
    S2[SP[a1, a5], a1, a4, a2, a3, n] + S2[SP[a1, a5], a1, a4, a3, a2, n] + 
    S2[SP[a1, a5], a4, a1, a2, a3, n] + S2[SP[a1, a5], a4, a1, a3, a2, n] + 
    S2[SP[a1, a5], a4, a2, a1, a3, n] + S2[a5, a1, a3, a1, a4, a2, n] + 
    S2[a5, a1, a3, a4, a1, a2, n] + S2[a5, a1, a3, a4, a2, a1, n] + 
    S2[a5, a1, a4, a2, a3, a1, n] + S2[a5, a1, a4, a3, a1, a2, n] + 
    S2[a5, a1, a4, a3, a2, a1, n] + 2*S2[a5, a3, a1, a1, a4, a2, n] + 
    S2[a5, a3, a1, a4, a1, a2, n] + S2[a5, a3, a1, a4, a2, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a1_, a3_, a5_, a2_, a1_, a4_, n_] :> 
  S2[a1, a3, n]*S2[a1, a2, a4, a5, n] + S2[a1, a3, n]*S2[a1, a2, a5, a4, n] - 
    S2[a1, a2, SP[a1, a4], SP[a3, a5], n] - S2[a1, a2, SP[a1, a5], 
     SP[a3, a4], n] + S2[a1, a3, n]*S2[a1, a4, a2, a5, n] + 
    S2[a1, a3, n]*S2[a1, a4, a5, a2, n] - S2[a1, a4, SP[a1, a2], SP[a3, a5], 
     n] - S2[a1, a4, SP[a1, a5], SP[a2, a3], n] + 
    S2[a1, a3, n]*S2[a1, a5, a2, a4, n] + S2[a1, a3, n]*
     S2[a1, a5, a4, a2, n] - S2[a1, a5, SP[a1, a2], SP[a3, a4], n] - 
    S2[a1, a5, SP[a1, a4], SP[a2, a3], n] - S2[a1, SP[a1, a2], a4, 
     SP[a3, a5], n] - S2[a1, SP[a1, a2], a5, SP[a3, a4], n] - 
    S2[a1, SP[a1, a2], SP[a3, a4], a5, n] - S2[a1, SP[a1, a2], SP[a3, a5], 
     a4, n] - S2[a1, SP[a1, a4], a2, SP[a3, a5], n] - 
    S2[a1, SP[a1, a4], a5, SP[a2, a3], n] - S2[a1, SP[a1, a4], SP[a2, a3], 
     a5, n] - S2[a1, SP[a1, a4], SP[a3, a5], a2, n] - 
    S2[a1, SP[a1, a5], a2, SP[a3, a4], n] - S2[a1, SP[a1, a5], a4, 
     SP[a2, a3], n] - S2[a1, SP[a1, a5], SP[a2, a3], a4, n] - 
    S2[a1, SP[a1, a5], SP[a3, a4], a2, n] - S2[a1, a3, n]*
     S2[a2, a5, a1, a4, n] + S2[a2, a5, SP[a1, a1], SP[a3, a4], n] + 
    S2[a2, SP[a1, a5], a1, SP[a3, a4], n] + S2[a2, SP[a1, a5], SP[a1, a3], 
     a4, n] - S2[SP[a1, a1], a2, a4, SP[a3, a5], n] - 
    S2[SP[a1, a1], a2, a5, SP[a3, a4], n] - S2[SP[a1, a1], a2, SP[a3, a4], 
     a5, n] - S2[SP[a1, a1], a2, SP[a3, a5], a4, n] - 
    S2[SP[a1, a1], a4, a2, SP[a3, a5], n] - S2[SP[a1, a1], a4, a5, 
     SP[a2, a3], n] - S2[SP[a1, a1], a4, SP[a2, a3], a5, n] - 
    S2[SP[a1, a1], a4, SP[a3, a5], a2, n] - S2[SP[a1, a1], a5, a2, 
     SP[a3, a4], n] - S2[SP[a1, a1], a5, a4, SP[a2, a3], n] - 
    S2[SP[a1, a1], a5, SP[a2, a3], a4, n] - S2[SP[a1, a1], a5, SP[a3, a4], 
     a2, n] - S2[SP[a1, a1], SP[a2, a3], a4, a5, n] - 
    S2[SP[a1, a1], SP[a2, a3], a5, a4, n] - S2[SP[a1, a1], SP[a3, a4], a2, 
     a5, n] - S2[SP[a1, a1], SP[a3, a4], a5, a2, n] - 
    S2[SP[a1, a1], SP[a3, a5], a2, a4, n] - S2[SP[a1, a1], SP[a3, a5], a4, 
     a2, n] + S2[SP[a1, a2], a5, a1, SP[a3, a4], n] + 
    S2[SP[a1, a2], a5, SP[a1, a3], a4, n] + S2[SP[a1, a2], SP[a3, a5], a1, 
     a4, n] - 2*S2[a5, n]*S2[a1, a1, a2, a3, a4, n] - 
    2*S2[a1, a1, a2, a3, SP[a4, a5], n] - 
    2*S2[a5, n]*S2[a1, a1, a2, a4, a3, n] + 
    2*S2[a1, a1, a2, a5, SP[a3, a4], n] + 
    2*S2[a1, a1, a2, SP[a3, a4], a5, n] - 
    2*S2[a1, a1, a2, SP[a4, a5], a3, n] - 
    2*S2[a5, n]*S2[a1, a1, a3, a2, a4, n] - 
    2*S2[a1, a1, a3, a2, SP[a4, a5], n] - 
    2*S2[a5, n]*S2[a1, a1, a3, a4, a2, n] - 
    2*S2[a1, a1, a3, a4, SP[a2, a5], n] - 
    2*S2[a1, a1, a3, SP[a2, a5], a4, n] - 
    2*S2[a1, a1, a3, SP[a4, a5], a2, n] - 
    2*S2[a5, n]*S2[a1, a1, a4, a2, a3, n] - 
    2*S2[a5, n]*S2[a1, a1, a4, a3, a2, n] - 
    2*S2[a1, a1, a4, a3, SP[a2, a5], n] + 
    2*S2[a1, a1, a4, a5, SP[a2, a3], n] + 
    2*S2[a1, a1, a4, SP[a2, a3], a5, n] - 
    2*S2[a1, a1, a4, SP[a2, a5], a3, n] + 
    2*S2[a1, a1, a5, a2, SP[a3, a4], n] + 
    2*S2[a1, a1, a5, a4, SP[a2, a3], n] + 
    2*S2[a1, a1, a5, SP[a2, a3], a4, n] + 
    2*S2[a1, a1, a5, SP[a3, a4], a2, n] + 
    2*S2[a1, a1, SP[a2, a3], a4, a5, n] + 
    2*S2[a1, a1, SP[a2, a3], a5, a4, n] - 
    2*S2[a1, a1, SP[a2, a5], a3, a4, n] - 
    2*S2[a1, a1, SP[a2, a5], a4, a3, n] + 
    2*S2[a1, a1, SP[a3, a4], a2, a5, n] + 
    2*S2[a1, a1, SP[a3, a4], a5, a2, n] - 
    2*S2[a1, a1, SP[a4, a5], a2, a3, n] - 
    2*S2[a1, a1, SP[a4, a5], a3, a2, n] - 
    S2[a5, n]*S2[a1, a2, a1, a3, a4, n] - S2[a1, a2, a1, a3, SP[a4, a5], n] - 
    S2[a5, n]*S2[a1, a2, a1, a4, a3, n] + S2[a1, a2, a1, a5, SP[a3, a4], n] + 
    S2[a1, a2, a1, SP[a3, a4], a5, n] - S2[a1, a2, a1, SP[a4, a5], a3, n] - 
    S2[a5, n]*S2[a1, a2, a4, a1, a3, n] - S2[a1, a2, a5, SP[a1, a3], a4, n] + 
    S2[a1, a2, a5, SP[a1, a4], a3, n] + S2[a1, a2, SP[a1, a4], a3, a5, n] + 
    S2[a1, a2, SP[a1, a4], a5, a3, n] - S2[a1, a2, SP[a3, a5], a1, a4, n] - 
    S2[a1, a2, SP[a4, a5], a1, a3, n] - S2[a5, n]*S2[a1, a3, a1, a2, a4, n] - 
    S2[a1, a3, a1, a2, SP[a4, a5], n] - S2[a5, n]*S2[a1, a3, a1, a4, a2, n] - 
    S2[a1, a3, a1, a4, SP[a2, a5], n] - S2[a1, a3, a1, SP[a2, a5], a4, n] - 
    S2[a1, a3, a1, SP[a4, a5], a2, n] + S2[a2, n]*S2[a1, a3, a5, a1, a4, n] + 
    S2[a1, a3, a5, a1, SP[a2, a4], n] + S2[a1, a3, a5, SP[a1, a2], a4, n] - 
    S2[a1, a3, SP[a1, a5], a2, a4, n] - S2[a1, a3, SP[a1, a5], a4, a2, n] + 
    S2[a1, a3, SP[a2, a5], a1, a4, n] - S2[a5, n]*S2[a1, a4, a1, a2, a3, n] - 
    S2[a5, n]*S2[a1, a4, a1, a3, a2, n] - S2[a1, a4, a1, a3, SP[a2, a5], n] + 
    S2[a1, a4, a1, a5, SP[a2, a3], n] + S2[a1, a4, a1, SP[a2, a3], a5, n] - 
    S2[a1, a4, a1, SP[a2, a5], a3, n] - S2[a5, n]*S2[a1, a4, a2, a1, a3, n] + 
    S2[a1, a4, a5, a1, SP[a2, a3], n] + S2[a1, a4, a5, SP[a1, a2], a3, n] + 
    S2[a1, a4, SP[a1, a2], a3, a5, n] + S2[a1, a4, SP[a1, a2], a5, a3, n] - 
    S2[a1, a4, SP[a2, a5], a1, a3, n] + S2[a1, a5, a1, a2, SP[a3, a4], n] + 
    S2[a2, n]*S2[a1, a5, a1, a3, a4, n] + S2[a1, a5, a1, a3, SP[a2, a4], n] + 
    S2[a2, n]*S2[a1, a5, a1, a4, a3, n] + 
    2*S2[a1, a5, a1, a4, SP[a2, a3], n] + 
    2*S2[a1, a5, a1, SP[a2, a3], a4, n] + S2[a1, a5, a1, SP[a2, a4], a3, n] + 
    S2[a1, a5, a1, SP[a3, a4], a2, n] + S2[a1, a5, a2, a1, SP[a3, a4], n] + 
    S2[a1, a5, a2, SP[a1, a4], a3, n] + S2[a2, n]*S2[a1, a5, a3, a1, a4, n] + 
    S2[a1, a5, a3, a1, SP[a2, a4], n] + S2[a1, a5, a3, SP[a1, a2], a4, n] + 
    S2[a1, a5, a4, a1, SP[a2, a3], n] + S2[a1, a5, a4, SP[a1, a2], a3, n] + 
    2*S2[a1, a5, SP[a1, a2], a3, a4, n] + 
    2*S2[a1, a5, SP[a1, a2], a4, a3, n] + S2[a1, a5, SP[a1, a4], a2, a3, n] + 
    S2[a1, a5, SP[a1, a4], a3, a2, n] + S2[a1, a5, SP[a2, a3], a1, a4, n] + 
    S2[a1, SP[a1, a2], a3, a4, a5, n] + S2[a1, SP[a1, a2], a3, a5, a4, n] + 
    S2[a1, SP[a1, a2], a4, a3, a5, n] + S2[a1, SP[a1, a2], a4, a5, a3, n] + 
    S2[a1, SP[a1, a2], a5, a3, a4, n] + S2[a1, SP[a1, a2], a5, a4, a3, n] + 
    S2[a1, SP[a1, a3], a2, a4, a5, n] + S2[a1, SP[a1, a3], a2, a5, a4, n] + 
    S2[a1, SP[a1, a3], a4, a2, a5, n] + S2[a1, SP[a1, a3], a4, a5, a2, n] + 
    S2[a1, SP[a1, a3], a5, a2, a4, n] + S2[a1, SP[a1, a3], a5, a4, a2, n] + 
    S2[a1, SP[a1, a4], a2, a3, a5, n] + S2[a1, SP[a1, a4], a2, a5, a3, n] + 
    S2[a1, SP[a1, a4], a3, a2, a5, n] + S2[a1, SP[a1, a4], a3, a5, a2, n] + 
    S2[a1, SP[a1, a4], a5, a2, a3, n] + S2[a1, SP[a1, a4], a5, a3, a2, n] - 
    S2[a1, SP[a1, a5], a2, a3, a4, n] - S2[a1, SP[a1, a5], a2, a4, a3, n] - 
    S2[a1, SP[a1, a5], a3, a2, a4, n] - S2[a1, SP[a1, a5], a3, a4, a2, n] - 
    S2[a1, SP[a1, a5], a4, a2, a3, n] - S2[a1, SP[a1, a5], a4, a3, a2, n] + 
    S2[a1, SP[a2, a5], a3, a1, a4, n] - S2[a1, SP[a2, a5], a4, a1, a3, n] - 
    S2[a1, SP[a3, a5], a1, a2, a4, n] - S2[a1, SP[a3, a5], a1, a4, a2, n] - 
    S2[a1, SP[a4, a5], a1, a2, a3, n] - S2[a1, SP[a4, a5], a1, a3, a2, n] - 
    S2[a1, SP[a4, a5], a2, a1, a3, n] - S2[a2, a1, a5, a1, SP[a3, a4], n] - 
    S2[a2, a1, a5, SP[a1, a3], a4, n] - S2[a2, a1, SP[a3, a5], a1, a4, n] - 
    2*S2[a2, a5, a1, a1, SP[a3, a4], n] - S2[a2, a5, a1, SP[a1, a3], a4, n] - 
    S2[a2, a5, a1, SP[a1, a4], a3, n] - S2[a2, a5, SP[a1, a1], a3, a4, n] - 
    S2[a2, a5, SP[a1, a1], a4, a3, n] - S2[a2, SP[a1, a5], a1, a3, a4, n] - 
    S2[a2, SP[a1, a5], a1, a4, a3, n] - S2[a2, SP[a1, a5], a3, a1, a4, n] + 
    2*S2[a2, n]*S2[a5, a1, a1, a3, a4, n] + 
    2*S2[a5, a1, a1, a3, SP[a2, a4], n] + 
    2*S2[a2, n]*S2[a5, a1, a1, a4, a3, n] + 
    2*S2[a5, a1, a1, a4, SP[a2, a3], n] + 
    2*S2[a5, a1, a1, SP[a2, a3], a4, n] + 
    2*S2[a5, a1, a1, SP[a2, a4], a3, n] + 
    S2[a2, n]*S2[a5, a1, a3, a1, a4, n] + S2[a5, a1, a3, a1, SP[a2, a4], n] + 
    S2[a5, a1, a3, SP[a1, a2], a4, n] + S2[a2, n]*S2[a5, a1, a4, a1, a3, n] + 
    S2[a5, a1, a4, a1, SP[a2, a3], n] + S2[a5, a1, a4, SP[a1, a2], a3, n] + 
    2*S2[a5, a1, SP[a1, a2], a3, a4, n] + 
    2*S2[a5, a1, SP[a1, a2], a4, a3, n] + S2[a5, a1, SP[a2, a3], a1, a4, n] + 
    S2[a5, a1, SP[a2, a4], a1, a3, n] - S2[a1, n]*S2[a5, a2, a1, a3, a4, n] - 
    S2[a5, a2, a1, a3, SP[a1, a4], n] - S2[a1, n]*S2[a5, a2, a1, a4, a3, n] - 
    S2[a5, a2, a1, a4, SP[a1, a3], n] - S2[a5, a2, a1, SP[a1, a3], a4, n] - 
    S2[a5, a2, a1, SP[a1, a4], a3, n] - S2[a1, n]*S2[a5, a2, a3, a1, a4, n] - 
    S2[a5, a2, a3, a1, SP[a1, a4], n] - S2[a5, a2, a3, SP[a1, a1], a4, n] - 
    S2[a5, a2, SP[a1, a1], a3, a4, n] - S2[a5, a2, SP[a1, a1], a4, a3, n] - 
    S2[a5, a2, SP[a1, a3], a1, a4, n] - S2[a1, n]*S2[a5, a3, a2, a1, a4, n] - 
    S2[a5, a3, a2, a1, SP[a1, a4], n] - S2[a5, a3, a2, SP[a1, a1], a4, n] - 
    S2[a5, a3, SP[a1, a2], a1, a4, n] + S2[a5, SP[a1, a2], a1, a3, a4, n] + 
    S2[a5, SP[a1, a2], a1, a4, a3, n] + S2[a5, SP[a1, a2], a4, a1, a3, n] - 
    S2[a5, SP[a1, a3], a2, a1, a4, n] + S2[SP[a1, a1], a2, a3, a4, a5, n] + 
    S2[SP[a1, a1], a2, a3, a5, a4, n] + S2[SP[a1, a1], a2, a4, a3, a5, n] + 
    S2[SP[a1, a1], a2, a4, a5, a3, n] + S2[SP[a1, a1], a2, a5, a3, a4, n] + 
    S2[SP[a1, a1], a2, a5, a4, a3, n] + S2[SP[a1, a1], a3, a2, a4, a5, n] + 
    S2[SP[a1, a1], a3, a2, a5, a4, n] + S2[SP[a1, a1], a3, a4, a2, a5, n] + 
    S2[SP[a1, a1], a3, a4, a5, a2, n] + S2[SP[a1, a1], a3, a5, a2, a4, n] + 
    S2[SP[a1, a1], a3, a5, a4, a2, n] + S2[SP[a1, a1], a4, a2, a3, a5, n] + 
    S2[SP[a1, a1], a4, a2, a5, a3, n] + S2[SP[a1, a1], a4, a3, a2, a5, n] + 
    S2[SP[a1, a1], a4, a3, a5, a2, n] + S2[SP[a1, a1], a4, a5, a2, a3, n] + 
    S2[SP[a1, a1], a4, a5, a3, a2, n] + S2[SP[a1, a1], a5, a2, a3, a4, n] + 
    S2[SP[a1, a1], a5, a2, a4, a3, n] + S2[SP[a1, a1], a5, a3, a2, a4, n] + 
    S2[SP[a1, a1], a5, a3, a4, a2, n] + S2[SP[a1, a1], a5, a4, a2, a3, n] + 
    S2[SP[a1, a1], a5, a4, a3, a2, n] - 2*S2[SP[a1, a5], a1, a2, a3, a4, n] - 
    2*S2[SP[a1, a5], a1, a2, a4, a3, n] - 
    2*S2[SP[a1, a5], a1, a3, a2, a4, n] - 
    2*S2[SP[a1, a5], a1, a3, a4, a2, n] - 
    2*S2[SP[a1, a5], a1, a4, a2, a3, n] - 
    2*S2[SP[a1, a5], a1, a4, a3, a2, n] - 
    2*S2[SP[a1, a5], a2, a1, a3, a4, n] - 
    2*S2[SP[a1, a5], a2, a1, a4, a3, n] - S2[SP[a1, a5], a2, a3, a1, a4, n] - 
    S2[SP[a1, a5], a2, a4, a1, a3, n] - S2[SP[a1, a5], a3, a1, a2, a4, n] - 
    S2[SP[a1, a5], a3, a1, a4, a2, n] - S2[SP[a1, a5], a3, a2, a1, a4, n] - 
    S2[SP[a1, a5], a4, a1, a2, a3, n] - S2[SP[a1, a5], a4, a1, a3, a2, n] - 
    S2[SP[a1, a5], a4, a2, a1, a3, n] + 2*S2[SP[a2, a5], a1, a1, a3, a4, n] + 
    2*S2[SP[a2, a5], a1, a1, a4, a3, n] + S2[SP[a2, a5], a1, a3, a1, a4, n] + 
    S2[SP[a2, a5], a1, a4, a1, a3, n] + S2[a5, a2, a1, a3, a1, a4, n] + 
    S2[a5, a2, a1, a3, a4, a1, n] + S2[a5, a2, a1, a4, a3, a1, n] + 
    2*S2[a5, a2, a3, a1, a1, a4, n] + S2[a5, a2, a3, a1, a4, a1, n] + 
    S2[a5, a3, a1, a2, a1, a4, n] + 2*S2[a5, a3, a2, a1, a1, a4, n] + 
    S2[a5, a3, a2, a1, a4, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a1_, a3_, a5_, a2_, a4_, a1_, n_] :> 
  -(S2[a1, a3, n]*S2[a1, a4, a2, a5, n]) - S2[a1, a3, n]*
     S2[a1, a4, a5, a2, n] + S2[a1, a4, SP[a1, a2], SP[a3, a5], n] + 
    S2[a1, a4, SP[a1, a5], SP[a2, a3], n] - S2[a1, a3, n]*
     S2[a1, a5, a2, a4, n] - S2[a1, a3, n]*S2[a1, a5, a4, a2, n] + 
    S2[a1, a5, SP[a1, a2], SP[a3, a4], n] + S2[a1, a5, SP[a1, a4], 
     SP[a2, a3], n] + S2[a1, SP[a1, a4], a2, SP[a3, a5], n] + 
    S2[a1, SP[a1, a4], a5, SP[a2, a3], n] + S2[a1, SP[a1, a4], SP[a2, a3], 
     a5, n] + S2[a1, SP[a1, a4], SP[a3, a5], a2, n] + 
    S2[a1, SP[a1, a5], a2, SP[a3, a4], n] + S2[a1, SP[a1, a5], a4, 
     SP[a2, a3], n] + S2[a1, SP[a1, a5], SP[a2, a3], a4, n] + 
    S2[a1, SP[a1, a5], SP[a3, a4], a2, n] + S2[a1, a3, n]*
     S2[a2, a5, a1, a4, n] - S2[a2, a5, SP[a1, a1], SP[a3, a4], n] - 
    S2[a2, SP[a1, a5], a1, SP[a3, a4], n] - S2[a2, SP[a1, a5], SP[a1, a3], 
     a4, n] + S2[SP[a1, a1], a4, a2, SP[a3, a5], n] + 
    S2[SP[a1, a1], a4, a5, SP[a2, a3], n] + S2[SP[a1, a1], a4, SP[a2, a3], 
     a5, n] + S2[SP[a1, a1], a4, SP[a3, a5], a2, n] + 
    S2[SP[a1, a1], a5, a2, SP[a3, a4], n] + S2[SP[a1, a1], a5, a4, 
     SP[a2, a3], n] + S2[SP[a1, a1], a5, SP[a2, a3], a4, n] + 
    S2[SP[a1, a1], a5, SP[a3, a4], a2, n] + S2[SP[a1, a1], SP[a3, a4], a2, 
     a5, n] + S2[SP[a1, a1], SP[a3, a4], a5, a2, n] + 
    S2[SP[a1, a1], SP[a3, a5], a2, a4, n] + S2[SP[a1, a1], SP[a3, a5], a4, 
     a2, n] - S2[SP[a1, a2], a5, a1, SP[a3, a4], n] - 
    S2[SP[a1, a2], a5, SP[a1, a3], a4, n] - S2[SP[a1, a2], SP[a3, a5], a1, 
     a4, n] + 2*S2[a5, n]*S2[a1, a1, a3, a4, a2, n] + 
    2*S2[a1, a1, a3, a4, SP[a2, a5], n] + 
    2*S2[a1, a1, a3, SP[a4, a5], a2, n] + 
    2*S2[a5, n]*S2[a1, a1, a4, a2, a3, n] + 
    2*S2[a5, n]*S2[a1, a1, a4, a3, a2, n] + 
    2*S2[a1, a1, a4, a3, SP[a2, a5], n] - 
    2*S2[a1, a1, a4, a5, SP[a2, a3], n] - 
    2*S2[a1, a1, a4, SP[a2, a3], a5, n] + 
    2*S2[a1, a1, a4, SP[a2, a5], a3, n] - 
    2*S2[a1, a1, a5, a2, SP[a3, a4], n] - 
    2*S2[a1, a1, a5, a4, SP[a2, a3], n] - 
    2*S2[a1, a1, a5, SP[a2, a3], a4, n] - 
    2*S2[a1, a1, a5, SP[a3, a4], a2, n] - 
    2*S2[a1, a1, SP[a3, a4], a2, a5, n] - 
    2*S2[a1, a1, SP[a3, a4], a5, a2, n] - 
    2*S2[a1, a1, SP[a3, a5], a2, a4, n] + 
    2*S2[a1, a1, SP[a4, a5], a2, a3, n] + 
    2*S2[a1, a1, SP[a4, a5], a3, a2, n] + S2[a1, a2, a5, a1, SP[a3, a4], n] + 
    S2[a1, a2, a5, SP[a1, a3], a4, n] + S2[a1, a2, SP[a3, a5], a1, a4, n] + 
    S2[a5, n]*S2[a1, a3, a1, a4, a2, n] + S2[a1, a3, a1, a4, SP[a2, a5], n] + 
    S2[a1, a3, a1, SP[a4, a5], a2, n] - S2[a2, n]*S2[a1, a3, a5, a1, a4, n] - 
    S2[a1, a3, a5, a1, SP[a2, a4], n] + S2[a1, n]*S2[a1, a3, a5, a2, a4, n] + 
    S2[a1, a3, a5, a2, SP[a1, a4], n] + S2[a1, a3, SP[a1, a5], a2, a4, n] + 
    S2[a1, a3, SP[a1, a5], a4, a2, n] - S2[a1, a3, SP[a2, a5], a1, a4, n] + 
    S2[a5, n]*S2[a1, a4, a1, a2, a3, n] + 
    S2[a5, n]*S2[a1, a4, a1, a3, a2, n] + S2[a1, a4, a1, a3, SP[a2, a5], n] - 
    S2[a1, a4, a1, a5, SP[a2, a3], n] - S2[a1, a4, a1, SP[a2, a3], a5, n] + 
    S2[a1, a4, a1, SP[a2, a5], a3, n] + S2[a5, n]*S2[a1, a4, a2, a1, a3, n] - 
    S2[a1, a4, a5, a1, SP[a2, a3], n] - S2[a1, a4, a5, SP[a1, a2], a3, n] - 
    S2[a1, a4, SP[a1, a2], a3, a5, n] - S2[a1, a4, SP[a1, a2], a5, a3, n] + 
    S2[a1, a4, SP[a2, a5], a1, a3, n] - S2[a1, a5, a1, a2, SP[a3, a4], n] - 
    S2[a2, n]*S2[a1, a5, a1, a3, a4, n] - S2[a1, a5, a1, a3, SP[a2, a4], n] - 
    S2[a2, n]*S2[a1, a5, a1, a4, a3, n] - 
    2*S2[a1, a5, a1, a4, SP[a2, a3], n] - 
    2*S2[a1, a5, a1, SP[a2, a3], a4, n] - S2[a1, a5, a1, SP[a2, a4], a3, n] - 
    S2[a1, a5, a1, SP[a3, a4], a2, n] - S2[a1, a5, a2, a1, SP[a3, a4], n] + 
    S2[a1, n]*S2[a1, a5, a2, a3, a4, n] + S2[a1, a5, a2, a3, SP[a1, a4], n] + 
    S2[a1, n]*S2[a1, a5, a2, a4, a3, n] + S2[a1, a5, a2, a4, SP[a1, a3], n] + 
    S2[a1, a5, a2, SP[a1, a3], a4, n] - S2[a2, n]*S2[a1, a5, a3, a1, a4, n] - 
    S2[a1, a5, a3, a1, SP[a2, a4], n] + S2[a1, n]*S2[a1, a5, a3, a2, a4, n] + 
    S2[a1, a5, a3, a2, SP[a1, a4], n] - S2[a1, a5, a4, a1, SP[a2, a3], n] - 
    S2[a1, a5, a4, SP[a1, a2], a3, n] - S2[a1, a5, SP[a1, a2], a3, a4, n] - 
    S2[a1, a5, SP[a1, a2], a4, a3, n] + S2[a1, a5, SP[a1, a3], a2, a4, n] - 
    S2[a1, a5, SP[a1, a4], a2, a3, n] - S2[a1, a5, SP[a1, a4], a3, a2, n] - 
    S2[a1, a5, SP[a2, a3], a1, a4, n] - S2[a1, SP[a1, a3], a4, a2, a5, n] - 
    S2[a1, SP[a1, a3], a4, a5, a2, n] - S2[a1, SP[a1, a3], a5, a4, a2, n] - 
    S2[a1, SP[a1, a4], a2, a3, a5, n] - S2[a1, SP[a1, a4], a2, a5, a3, n] - 
    S2[a1, SP[a1, a4], a3, a2, a5, n] - S2[a1, SP[a1, a4], a3, a5, a2, n] - 
    S2[a1, SP[a1, a4], a5, a2, a3, n] - S2[a1, SP[a1, a4], a5, a3, a2, n] + 
    S2[a1, SP[a1, a5], a3, a4, a2, n] + S2[a1, SP[a1, a5], a4, a2, a3, n] + 
    S2[a1, SP[a1, a5], a4, a3, a2, n] - S2[a1, SP[a2, a5], a1, a3, a4, n] - 
    S2[a1, SP[a2, a5], a1, a4, a3, n] - S2[a1, SP[a2, a5], a3, a1, a4, n] + 
    S2[a1, SP[a3, a5], a1, a4, a2, n] + S2[a1, SP[a4, a5], a1, a2, a3, n] + 
    S2[a1, SP[a4, a5], a1, a3, a2, n] + S2[a1, SP[a4, a5], a2, a1, a3, n] + 
    S2[a2, a1, a5, a1, SP[a3, a4], n] + S2[a2, a1, a5, SP[a1, a3], a4, n] + 
    S2[a2, a1, SP[a3, a5], a1, a4, n] + 2*S2[a2, a5, a1, a1, SP[a3, a4], n] + 
    S2[a2, a5, a1, SP[a1, a3], a4, n] + S2[a2, a5, a1, SP[a1, a4], a3, n] + 
    S2[a2, a5, SP[a1, a1], a3, a4, n] + S2[a2, a5, SP[a1, a1], a4, a3, n] + 
    S2[a2, SP[a1, a5], a1, a3, a4, n] + S2[a2, SP[a1, a5], a1, a4, a3, n] + 
    S2[a2, SP[a1, a5], a3, a1, a4, n] - 2*S2[a2, n]*
     S2[a5, a1, a1, a3, a4, n] - 2*S2[a5, a1, a1, a3, SP[a2, a4], n] - 
    2*S2[a2, n]*S2[a5, a1, a1, a4, a3, n] - 
    2*S2[a5, a1, a1, a4, SP[a2, a3], n] - 
    2*S2[a5, a1, a1, SP[a2, a3], a4, n] - 
    2*S2[a5, a1, a1, SP[a2, a4], a3, n] + 
    S2[a1, n]*S2[a5, a1, a2, a3, a4, n] + S2[a5, a1, a2, a3, SP[a1, a4], n] + 
    S2[a1, n]*S2[a5, a1, a2, a4, a3, n] + S2[a5, a1, a2, a4, SP[a1, a3], n] + 
    S2[a5, a1, a2, SP[a1, a3], a4, n] + S2[a5, a1, a2, SP[a1, a4], a3, n] - 
    S2[a2, n]*S2[a5, a1, a3, a1, a4, n] - S2[a5, a1, a3, a1, SP[a2, a4], n] + 
    S2[a1, n]*S2[a5, a1, a3, a2, a4, n] + S2[a5, a1, a3, a2, SP[a1, a4], n] - 
    S2[a2, n]*S2[a5, a1, a4, a1, a3, n] - S2[a5, a1, a4, a1, SP[a2, a3], n] - 
    S2[a5, a1, a4, SP[a1, a2], a3, n] - S2[a5, a1, SP[a1, a2], a3, a4, n] - 
    S2[a5, a1, SP[a1, a2], a4, a3, n] + S2[a5, a1, SP[a1, a3], a2, a4, n] - 
    S2[a5, a1, SP[a2, a3], a1, a4, n] - S2[a5, a1, SP[a2, a4], a1, a3, n] + 
    S2[a1, n]*S2[a5, a2, a1, a3, a4, n] + S2[a5, a2, a1, a3, SP[a1, a4], n] + 
    S2[a1, n]*S2[a5, a2, a1, a4, a3, n] + S2[a5, a2, a1, a4, SP[a1, a3], n] + 
    S2[a5, a2, a1, SP[a1, a3], a4, n] + S2[a5, a2, a1, SP[a1, a4], a3, n] - 
    S2[a1, n]*S2[a5, a2, a3, a4, a1, n] - S2[a5, a2, a3, a4, SP[a1, a1], n] - 
    S2[a5, a2, a3, SP[a1, a4], a1, n] - S2[a1, n]*S2[a5, a2, a4, a3, a1, n] - 
    S2[a5, a2, a4, a3, SP[a1, a1], n] - S2[a5, a2, a4, SP[a1, a3], a1, n] + 
    S2[a5, a2, SP[a1, a1], a3, a4, n] + S2[a5, a2, SP[a1, a1], a4, a3, n] - 
    S2[a5, a2, SP[a1, a3], a4, a1, n] - S2[a5, a2, SP[a1, a4], a3, a1, n] - 
    S2[a1, n]*S2[a5, a3, a2, a4, a1, n] - S2[a5, a3, a2, a4, SP[a1, a1], n] - 
    S2[a5, a3, a2, SP[a1, a4], a1, n] - S2[a5, a3, SP[a1, a2], a4, a1, n] + 
    S2[a5, SP[a1, a1], a2, a3, a4, n] + S2[a5, SP[a1, a1], a2, a4, a3, n] + 
    S2[a5, SP[a1, a1], a3, a2, a4, n] - S2[a5, SP[a1, a2], a1, a3, a4, n] - 
    S2[a5, SP[a1, a2], a1, a4, a3, n] - S2[a5, SP[a1, a2], a3, a1, a4, n] - 
    S2[a5, SP[a1, a2], a3, a4, a1, n] - S2[a5, SP[a1, a2], a4, a1, a3, n] - 
    S2[a5, SP[a1, a2], a4, a3, a1, n] - S2[a5, SP[a1, a3], a2, a4, a1, n] - 
    S2[SP[a1, a1], a3, a4, a2, a5, n] - S2[SP[a1, a1], a3, a4, a5, a2, n] - 
    S2[SP[a1, a1], a3, a5, a4, a2, n] - S2[SP[a1, a1], a4, a2, a3, a5, n] - 
    S2[SP[a1, a1], a4, a2, a5, a3, n] - S2[SP[a1, a1], a4, a3, a2, a5, n] - 
    S2[SP[a1, a1], a4, a3, a5, a2, n] - S2[SP[a1, a1], a4, a5, a2, a3, n] - 
    S2[SP[a1, a1], a4, a5, a3, a2, n] - S2[SP[a1, a1], a5, a3, a4, a2, n] - 
    S2[SP[a1, a1], a5, a4, a2, a3, n] - S2[SP[a1, a1], a5, a4, a3, a2, n] + 
    S2[SP[a1, a5], a1, a2, a3, a4, n] + S2[SP[a1, a5], a1, a2, a4, a3, n] + 
    S2[SP[a1, a5], a1, a3, a2, a4, n] + 2*S2[SP[a1, a5], a1, a3, a4, a2, n] + 
    2*S2[SP[a1, a5], a1, a4, a2, a3, n] + 
    2*S2[SP[a1, a5], a1, a4, a3, a2, n] + S2[SP[a1, a5], a2, a1, a3, a4, n] + 
    S2[SP[a1, a5], a2, a1, a4, a3, n] - S2[SP[a1, a5], a2, a3, a4, a1, n] - 
    S2[SP[a1, a5], a2, a4, a3, a1, n] + S2[SP[a1, a5], a3, a1, a4, a2, n] - 
    S2[SP[a1, a5], a3, a2, a4, a1, n] + S2[SP[a1, a5], a4, a1, a2, a3, n] + 
    S2[SP[a1, a5], a4, a1, a3, a2, n] + S2[SP[a1, a5], a4, a2, a1, a3, n] - 
    2*S2[SP[a2, a5], a1, a1, a3, a4, n] - 
    2*S2[SP[a2, a5], a1, a1, a4, a3, n] - S2[SP[a2, a5], a1, a3, a1, a4, n] - 
    S2[SP[a2, a5], a1, a4, a1, a3, n] + S2[a5, a2, a3, a1, a4, a1, n] + 
    2*S2[a5, a2, a3, a4, a1, a1, n] + S2[a5, a2, a4, a1, a3, a1, n] + 
    2*S2[a5, a2, a4, a3, a1, a1, n] + S2[a5, a3, a1, a2, a4, a1, n] + 
    S2[a5, a3, a2, a1, a4, a1, n] + 2*S2[a5, a3, a2, a4, a1, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a1_, a3_, a5_, a4_, a1_, a2_, n_] :> 
  S2[a1, a3, n]*S2[a1, a2, a4, a5, n] - S2[a1, a2, SP[a1, a4], SP[a3, a5], 
     n] + S2[a1, a2, n]*S2[a1, a3, a5, a4, n] - S2[a1, a3, SP[a1, a5], 
     SP[a2, a4], n] + S2[a1, a3, n]*S2[a1, a4, a2, a5, n] + 
    S2[a1, a3, n]*S2[a1, a4, a5, a2, n] - S2[a1, a4, SP[a1, a2], SP[a3, a5], 
     n] - S2[a1, a4, SP[a1, a5], SP[a2, a3], n] + 
    S2[a1, a2, n]*S2[a1, a5, a3, a4, n] + S2[a1, a2, n]*
     S2[a1, a5, a4, a3, n] - S2[a1, a5, SP[a1, a3], SP[a2, a4], n] - 
    S2[a1, a5, SP[a1, a4], SP[a2, a3], n] - S2[a1, SP[a1, a2], a4, 
     SP[a3, a5], n] - S2[a1, SP[a1, a2], SP[a3, a4], a5, n] - 
    S2[a1, SP[a1, a3], a5, SP[a2, a4], n] - S2[a1, SP[a1, a3], SP[a2, a5], 
     a4, n] - S2[a1, SP[a1, a4], a2, SP[a3, a5], n] - 
    S2[a1, SP[a1, a4], a5, SP[a2, a3], n] - S2[a1, SP[a1, a4], SP[a2, a3], 
     a5, n] - S2[a1, SP[a1, a4], SP[a3, a5], a2, n] - 
    S2[a1, SP[a1, a5], a3, SP[a2, a4], n] - S2[a1, SP[a1, a5], a4, 
     SP[a2, a3], n] - S2[a1, SP[a1, a5], SP[a2, a3], a4, n] - 
    S2[a1, SP[a1, a5], SP[a2, a4], a3, n] - S2[a1, a2, n]*
     S2[a4, a5, a1, a3, n] + S2[a4, a5, SP[a1, a1], SP[a2, a3], n] + 
    S2[a4, SP[a1, a5], a1, SP[a2, a3], n] + S2[a4, SP[a1, a5], SP[a1, a2], 
     a3, n] - S2[SP[a1, a1], a2, a4, SP[a3, a5], n] - 
    S2[SP[a1, a1], a2, SP[a3, a4], a5, n] - S2[SP[a1, a1], a3, a5, 
     SP[a2, a4], n] - S2[SP[a1, a1], a3, SP[a2, a5], a4, n] - 
    S2[SP[a1, a1], a4, a2, SP[a3, a5], n] - S2[SP[a1, a1], a4, a5, 
     SP[a2, a3], n] - S2[SP[a1, a1], a4, SP[a2, a3], a5, n] - 
    S2[SP[a1, a1], a4, SP[a3, a5], a2, n] - S2[SP[a1, a1], a5, a3, 
     SP[a2, a4], n] - S2[SP[a1, a1], a5, a4, SP[a2, a3], n] - 
    S2[SP[a1, a1], a5, SP[a2, a3], a4, n] - S2[SP[a1, a1], a5, SP[a2, a4], 
     a3, n] - S2[SP[a1, a1], SP[a2, a3], a4, a5, n] - 
    S2[SP[a1, a1], SP[a2, a3], a5, a4, n] - S2[SP[a1, a1], SP[a2, a5], a3, 
     a4, n] - S2[SP[a1, a1], SP[a2, a5], a4, a3, n] - 
    S2[SP[a1, a1], SP[a3, a4], a2, a5, n] - S2[SP[a1, a1], SP[a3, a4], a5, 
     a2, n] + S2[SP[a1, a4], a5, a1, SP[a2, a3], n] + 
    S2[SP[a1, a4], a5, SP[a1, a2], a3, n] + S2[SP[a1, a4], SP[a2, a5], a1, 
     a3, n] - 2*S2[a5, n]*S2[a1, a1, a2, a3, a4, n] - 
    2*S2[a1, a1, a2, a3, SP[a4, a5], n] - 
    2*S2[a5, n]*S2[a1, a1, a2, a4, a3, n] + 
    2*S2[a1, a1, a2, SP[a3, a4], a5, n] - 
    2*S2[a1, a1, a2, SP[a3, a5], a4, n] - 
    2*S2[a1, a1, a2, SP[a4, a5], a3, n] - 
    2*S2[a5, n]*S2[a1, a1, a3, a2, a4, n] - 
    2*S2[a1, a1, a3, a2, SP[a4, a5], n] - 
    2*S2[a5, n]*S2[a1, a1, a3, a4, a2, n] - 
    2*S2[a1, a1, a3, a4, SP[a2, a5], n] + 
    2*S2[a1, a1, a3, a5, SP[a2, a4], n] - 
    2*S2[a1, a1, a3, SP[a4, a5], a2, n] - 
    2*S2[a5, n]*S2[a1, a1, a4, a2, a3, n] - 
    2*S2[a5, n]*S2[a1, a1, a4, a3, a2, n] - 
    2*S2[a1, a1, a4, a3, SP[a2, a5], n] + 
    2*S2[a1, a1, a4, a5, SP[a2, a3], n] + 
    2*S2[a1, a1, a4, SP[a2, a3], a5, n] - 
    2*S2[a1, a1, a4, SP[a2, a5], a3, n] + 
    2*S2[a1, a1, a5, a3, SP[a2, a4], n] + 
    2*S2[a1, a1, a5, a4, SP[a2, a3], n] + 
    2*S2[a1, a1, a5, SP[a2, a3], a4, n] + 
    2*S2[a1, a1, a5, SP[a2, a4], a3, n] + 
    2*S2[a1, a1, SP[a2, a3], a4, a5, n] + 
    2*S2[a1, a1, SP[a2, a3], a5, a4, n] + 
    2*S2[a1, a1, SP[a3, a4], a2, a5, n] + 
    2*S2[a1, a1, SP[a3, a4], a5, a2, n] - 
    2*S2[a1, a1, SP[a3, a5], a2, a4, n] - 
    2*S2[a1, a1, SP[a3, a5], a4, a2, n] - 
    2*S2[a1, a1, SP[a4, a5], a2, a3, n] - 
    2*S2[a1, a1, SP[a4, a5], a3, a2, n] - 
    S2[a5, n]*S2[a1, a2, a1, a3, a4, n] - S2[a1, a2, a1, a3, SP[a4, a5], n] - 
    S2[a5, n]*S2[a1, a2, a1, a4, a3, n] + S2[a1, a2, a1, SP[a3, a4], a5, n] - 
    S2[a1, a2, a1, SP[a3, a5], a4, n] - S2[a1, a2, a1, SP[a4, a5], a3, n] - 
    S2[a5, n]*S2[a1, a2, a4, a1, a3, n] + 
    S2[a4, n]*S2[a1, a2, a5, a1, a3, n] + S2[a1, a2, a5, a1, SP[a3, a4], n] + 
    S2[a1, a2, a5, SP[a1, a4], a3, n] + S2[a1, a2, SP[a1, a4], a3, a5, n] + 
    S2[a1, a2, SP[a1, a4], a5, a3, n] - S2[a1, a2, SP[a1, a5], a3, a4, n] - 
    S2[a1, a2, SP[a1, a5], a4, a3, n] - S2[a5, n]*S2[a1, a3, a1, a2, a4, n] - 
    S2[a1, a3, a1, a2, SP[a4, a5], n] - S2[a5, n]*S2[a1, a3, a1, a4, a2, n] - 
    S2[a1, a3, a1, a4, SP[a2, a5], n] + S2[a1, a3, a1, a5, SP[a2, a4], n] - 
    S2[a1, a3, a1, SP[a4, a5], a2, n] + S2[a1, a3, a5, a1, SP[a2, a4], n] + 
    S2[a1, a3, a5, SP[a1, a4], a2, n] - S2[a5, n]*S2[a1, a4, a1, a2, a3, n] - 
    S2[a5, n]*S2[a1, a4, a1, a3, a2, n] - S2[a1, a4, a1, a3, SP[a2, a5], n] + 
    S2[a1, a4, a1, a5, SP[a2, a3], n] + S2[a1, a4, a1, SP[a2, a3], a5, n] - 
    S2[a1, a4, a1, SP[a2, a5], a3, n] - S2[a5, n]*S2[a1, a4, a2, a1, a3, n] + 
    S2[a1, a4, SP[a1, a2], a3, a5, n] + S2[a1, a4, SP[a1, a2], a5, a3, n] - 
    2*S2[a1, a4, SP[a2, a5], a1, a3, n] + 
    S2[a4, n]*S2[a1, a5, a1, a2, a3, n] + S2[a1, a5, a1, a2, SP[a3, a4], n] + 
    S2[a4, n]*S2[a1, a5, a1, a3, a2, n] + 
    2*S2[a1, a5, a1, a3, SP[a2, a4], n] + S2[a1, a5, a1, a4, SP[a2, a3], n] + 
    S2[a1, a5, a1, SP[a2, a3], a4, n] + 2*S2[a1, a5, a1, SP[a2, a4], a3, n] + 
    S2[a1, a5, a1, SP[a3, a4], a2, n] + S2[a4, n]*S2[a1, a5, a2, a1, a3, n] + 
    S2[a1, a5, a2, a1, SP[a3, a4], n] + S2[a1, a5, a2, SP[a1, a4], a3, n] + 
    S2[a1, a5, a3, a1, SP[a2, a4], n] + S2[a1, a5, a3, SP[a1, a4], a2, n] + 
    S2[a1, a5, a4, a1, SP[a2, a3], n] + S2[a1, a5, a4, SP[a1, a3], a2, n] + 
    S2[a1, a5, SP[a1, a3], a2, a4, n] + S2[a1, a5, SP[a1, a3], a4, a2, n] + 
    2*S2[a1, a5, SP[a1, a4], a2, a3, n] + 
    2*S2[a1, a5, SP[a1, a4], a3, a2, n] + S2[a1, a5, SP[a2, a4], a1, a3, n] + 
    S2[a1, SP[a1, a2], a3, a4, a5, n] + S2[a1, SP[a1, a2], a3, a5, a4, n] + 
    S2[a1, SP[a1, a2], a4, a3, a5, n] + S2[a1, SP[a1, a2], a4, a5, a3, n] + 
    S2[a1, SP[a1, a2], a5, a3, a4, n] + S2[a1, SP[a1, a2], a5, a4, a3, n] + 
    S2[a1, SP[a1, a3], a2, a4, a5, n] + S2[a1, SP[a1, a3], a2, a5, a4, n] + 
    S2[a1, SP[a1, a3], a4, a2, a5, n] + S2[a1, SP[a1, a3], a4, a5, a2, n] + 
    S2[a1, SP[a1, a3], a5, a2, a4, n] + S2[a1, SP[a1, a3], a5, a4, a2, n] + 
    S2[a1, SP[a1, a4], a2, a3, a5, n] + S2[a1, SP[a1, a4], a2, a5, a3, n] + 
    S2[a1, SP[a1, a4], a3, a2, a5, n] + S2[a1, SP[a1, a4], a3, a5, a2, n] + 
    S2[a1, SP[a1, a4], a5, a2, a3, n] + S2[a1, SP[a1, a4], a5, a3, a2, n] - 
    S2[a1, SP[a1, a5], a2, a3, a4, n] - S2[a1, SP[a1, a5], a2, a4, a3, n] - 
    S2[a1, SP[a1, a5], a3, a2, a4, n] - S2[a1, SP[a1, a5], a3, a4, a2, n] - 
    S2[a1, SP[a1, a5], a4, a2, a3, n] - S2[a1, SP[a1, a5], a4, a3, a2, n] - 
    S2[a1, SP[a2, a5], a1, a3, a4, n] - S2[a1, SP[a2, a5], a1, a4, a3, n] - 
    S2[a1, SP[a2, a5], a4, a1, a3, n] - S2[a1, SP[a3, a5], a1, a2, a4, n] - 
    S2[a1, SP[a3, a5], a1, a4, a2, n] - S2[a4, a1, a5, a1, SP[a2, a3], n] - 
    S2[a4, a1, a5, SP[a1, a2], a3, n] - S2[a4, a1, SP[a2, a5], a1, a3, n] - 
    2*S2[a4, a5, a1, a1, SP[a2, a3], n] - S2[a4, a5, a1, SP[a1, a2], a3, n] - 
    S2[a4, a5, a1, SP[a1, a3], a2, n] - S2[a4, a5, SP[a1, a1], a2, a3, n] - 
    S2[a4, a5, SP[a1, a1], a3, a2, n] - S2[a4, SP[a1, a5], a1, a2, a3, n] - 
    S2[a4, SP[a1, a5], a1, a3, a2, n] - S2[a4, SP[a1, a5], a2, a1, a3, n] + 
    2*S2[a4, n]*S2[a5, a1, a1, a2, a3, n] + 
    2*S2[a5, a1, a1, a2, SP[a3, a4], n] + 
    2*S2[a4, n]*S2[a5, a1, a1, a3, a2, n] + 
    2*S2[a5, a1, a1, a3, SP[a2, a4], n] + 
    2*S2[a5, a1, a1, SP[a2, a4], a3, n] + 
    2*S2[a5, a1, a1, SP[a3, a4], a2, n] + 
    S2[a4, n]*S2[a5, a1, a2, a1, a3, n] + S2[a5, a1, a2, a1, SP[a3, a4], n] + 
    S2[a5, a1, a2, SP[a1, a4], a3, n] + S2[a4, n]*S2[a5, a1, a3, a1, a2, n] + 
    S2[a5, a1, a3, a1, SP[a2, a4], n] + S2[a5, a1, a3, SP[a1, a4], a2, n] + 
    2*S2[a5, a1, SP[a1, a4], a2, a3, n] + 
    2*S2[a5, a1, SP[a1, a4], a3, a2, n] + S2[a5, a1, SP[a2, a4], a1, a3, n] + 
    S2[a5, a1, SP[a3, a4], a1, a2, n] - S2[a1, n]*S2[a5, a3, a4, a1, a2, n] - 
    S2[a5, a3, a4, a1, SP[a1, a2], n] - S2[a5, a3, a4, SP[a1, a1], a2, n] - 
    S2[a5, a3, SP[a1, a4], a1, a2, n] - S2[a1, n]*S2[a5, a4, a1, a2, a3, n] - 
    S2[a5, a4, a1, a2, SP[a1, a3], n] - S2[a1, n]*S2[a5, a4, a1, a3, a2, n] - 
    S2[a5, a4, a1, a3, SP[a1, a2], n] - S2[a5, a4, a1, SP[a1, a2], a3, n] - 
    S2[a5, a4, a1, SP[a1, a3], a2, n] - S2[a1, n]*S2[a5, a4, a3, a1, a2, n] - 
    S2[a5, a4, a3, a1, SP[a1, a2], n] - S2[a5, a4, a3, SP[a1, a1], a2, n] - 
    S2[a5, a4, SP[a1, a1], a2, a3, n] - S2[a5, a4, SP[a1, a1], a3, a2, n] - 
    S2[a5, a4, SP[a1, a3], a1, a2, n] - S2[a5, SP[a1, a3], a4, a1, a2, n] + 
    S2[a5, SP[a1, a4], a1, a2, a3, n] + S2[a5, SP[a1, a4], a1, a3, a2, n] + 
    S2[a5, SP[a1, a4], a2, a1, a3, n] + S2[SP[a1, a1], a2, a3, a4, a5, n] + 
    S2[SP[a1, a1], a2, a3, a5, a4, n] + S2[SP[a1, a1], a2, a4, a3, a5, n] + 
    S2[SP[a1, a1], a2, a4, a5, a3, n] + S2[SP[a1, a1], a2, a5, a3, a4, n] + 
    S2[SP[a1, a1], a2, a5, a4, a3, n] + S2[SP[a1, a1], a3, a2, a4, a5, n] + 
    S2[SP[a1, a1], a3, a2, a5, a4, n] + S2[SP[a1, a1], a3, a4, a2, a5, n] + 
    S2[SP[a1, a1], a3, a4, a5, a2, n] + S2[SP[a1, a1], a3, a5, a2, a4, n] + 
    S2[SP[a1, a1], a3, a5, a4, a2, n] + S2[SP[a1, a1], a4, a2, a3, a5, n] + 
    S2[SP[a1, a1], a4, a2, a5, a3, n] + S2[SP[a1, a1], a4, a3, a2, a5, n] + 
    S2[SP[a1, a1], a4, a3, a5, a2, n] + S2[SP[a1, a1], a4, a5, a2, a3, n] + 
    S2[SP[a1, a1], a4, a5, a3, a2, n] + S2[SP[a1, a1], a5, a2, a3, a4, n] + 
    S2[SP[a1, a1], a5, a2, a4, a3, n] + S2[SP[a1, a1], a5, a3, a2, a4, n] + 
    S2[SP[a1, a1], a5, a3, a4, a2, n] + S2[SP[a1, a1], a5, a4, a2, a3, n] + 
    S2[SP[a1, a1], a5, a4, a3, a2, n] - 2*S2[SP[a1, a5], a1, a2, a3, a4, n] - 
    2*S2[SP[a1, a5], a1, a2, a4, a3, n] - 
    2*S2[SP[a1, a5], a1, a3, a2, a4, n] - 
    2*S2[SP[a1, a5], a1, a3, a4, a2, n] - 
    2*S2[SP[a1, a5], a1, a4, a2, a3, n] - 
    2*S2[SP[a1, a5], a1, a4, a3, a2, n] - S2[SP[a1, a5], a2, a1, a3, a4, n] - 
    S2[SP[a1, a5], a2, a1, a4, a3, n] - S2[SP[a1, a5], a2, a4, a1, a3, n] - 
    S2[SP[a1, a5], a3, a1, a2, a4, n] - S2[SP[a1, a5], a3, a1, a4, a2, n] - 
    S2[SP[a1, a5], a3, a4, a1, a2, n] - 2*S2[SP[a1, a5], a4, a1, a2, a3, n] - 
    2*S2[SP[a1, a5], a4, a1, a3, a2, n] - S2[SP[a1, a5], a4, a2, a1, a3, n] - 
    S2[SP[a1, a5], a4, a3, a1, a2, n] + 2*S2[SP[a4, a5], a1, a1, a2, a3, n] + 
    2*S2[SP[a4, a5], a1, a1, a3, a2, n] + S2[SP[a4, a5], a1, a2, a1, a3, n] + 
    S2[SP[a4, a5], a1, a3, a1, a2, n] + S2[a5, a3, a1, a4, a1, a2, n] + 
    2*S2[a5, a3, a4, a1, a1, a2, n] + S2[a5, a3, a4, a1, a2, a1, n] + 
    S2[a5, a4, a1, a2, a3, a1, n] + S2[a5, a4, a1, a3, a1, a2, n] + 
    S2[a5, a4, a1, a3, a2, a1, n] + 2*S2[a5, a4, a3, a1, a1, a2, n] + 
    S2[a5, a4, a3, a1, a2, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a1_, a3_, a5_, a4_, a2_, a1_, n_] :> 
  -(S2[a1, a3, n]*S2[a1, a2, a4, a5, n]) + S2[a1, a2, SP[a1, a4], SP[a3, a5], 
     n] - S2[a1, a2, n]*S2[a1, a3, a5, a4, n] + S2[a1, a3, SP[a1, a5], 
     SP[a2, a4], n] - S2[a1, a2, n]*S2[a1, a5, a3, a4, n] - 
    S2[a1, a2, n]*S2[a1, a5, a4, a3, n] + S2[a1, a5, SP[a1, a3], SP[a2, a4], 
     n] + S2[a1, a5, SP[a1, a4], SP[a2, a3], n] + S2[a1, SP[a1, a2], a4, 
     SP[a3, a5], n] + S2[a1, SP[a1, a2], SP[a3, a4], a5, n] + 
    S2[a1, SP[a1, a3], a5, SP[a2, a4], n] + S2[a1, SP[a1, a3], SP[a2, a5], 
     a4, n] + S2[a1, SP[a1, a5], a3, SP[a2, a4], n] + 
    S2[a1, SP[a1, a5], a4, SP[a2, a3], n] + S2[a1, SP[a1, a5], SP[a2, a3], 
     a4, n] + S2[a1, SP[a1, a5], SP[a2, a4], a3, n] + 
    S2[a1, a2, n]*S2[a4, a5, a1, a3, n] - S2[a4, a5, SP[a1, a1], SP[a2, a3], 
     n] - S2[a4, SP[a1, a5], a1, SP[a2, a3], n] - 
    S2[a4, SP[a1, a5], SP[a1, a2], a3, n] + S2[SP[a1, a1], a2, a4, 
     SP[a3, a5], n] + S2[SP[a1, a1], a2, SP[a3, a4], a5, n] + 
    S2[SP[a1, a1], a3, a5, SP[a2, a4], n] + S2[SP[a1, a1], a3, SP[a2, a5], 
     a4, n] + S2[SP[a1, a1], a5, a3, SP[a2, a4], n] + 
    S2[SP[a1, a1], a5, a4, SP[a2, a3], n] + S2[SP[a1, a1], a5, SP[a2, a3], 
     a4, n] + S2[SP[a1, a1], a5, SP[a2, a4], a3, n] + 
    S2[SP[a1, a1], SP[a2, a3], a4, a5, n] + S2[SP[a1, a1], SP[a2, a3], a5, 
     a4, n] + S2[SP[a1, a1], SP[a2, a5], a3, a4, n] + 
    S2[SP[a1, a1], SP[a2, a5], a4, a3, n] - S2[SP[a1, a4], a5, a1, 
     SP[a2, a3], n] - S2[SP[a1, a4], a5, SP[a1, a2], a3, n] - 
    S2[SP[a1, a4], SP[a2, a5], a1, a3, n] + 
    2*S2[a5, n]*S2[a1, a1, a2, a3, a4, n] + 
    2*S2[a1, a1, a2, a3, SP[a4, a5], n] + 
    2*S2[a5, n]*S2[a1, a1, a2, a4, a3, n] - 
    2*S2[a1, a1, a2, SP[a3, a4], a5, n] + 
    2*S2[a1, a1, a2, SP[a3, a5], a4, n] + 
    2*S2[a1, a1, a2, SP[a4, a5], a3, n] + 
    2*S2[a5, n]*S2[a1, a1, a3, a2, a4, n] + 
    2*S2[a1, a1, a3, a2, SP[a4, a5], n] - 
    2*S2[a1, a1, a3, a5, SP[a2, a4], n] - 
    2*S2[a1, a1, a5, a3, SP[a2, a4], n] - 
    2*S2[a1, a1, a5, a4, SP[a2, a3], n] - 
    2*S2[a1, a1, a5, SP[a2, a3], a4, n] - 
    2*S2[a1, a1, a5, SP[a2, a4], a3, n] - 
    2*S2[a1, a1, SP[a2, a3], a4, a5, n] - 
    2*S2[a1, a1, SP[a2, a3], a5, a4, n] + 
    2*S2[a1, a1, SP[a3, a5], a2, a4, n] + 
    S2[a5, n]*S2[a1, a2, a1, a3, a4, n] + S2[a1, a2, a1, a3, SP[a4, a5], n] + 
    S2[a5, n]*S2[a1, a2, a1, a4, a3, n] - S2[a1, a2, a1, SP[a3, a4], a5, n] + 
    S2[a1, a2, a1, SP[a3, a5], a4, n] + S2[a1, a2, a1, SP[a4, a5], a3, n] + 
    S2[a5, n]*S2[a1, a2, a4, a1, a3, n] - 
    S2[a4, n]*S2[a1, a2, a5, a1, a3, n] - S2[a1, a2, a5, a1, SP[a3, a4], n] - 
    S2[a1, a2, a5, SP[a1, a4], a3, n] - S2[a1, a2, SP[a1, a4], a3, a5, n] - 
    S2[a1, a2, SP[a1, a4], a5, a3, n] + S2[a1, a2, SP[a1, a5], a3, a4, n] + 
    S2[a1, a2, SP[a1, a5], a4, a3, n] + S2[a5, n]*S2[a1, a3, a1, a2, a4, n] + 
    S2[a1, a3, a1, a2, SP[a4, a5], n] - S2[a1, a3, a1, a5, SP[a2, a4], n] - 
    S2[a1, a3, a5, a1, SP[a2, a4], n] + S2[a1, n]*S2[a1, a3, a5, a4, a2, n] + 
    S2[a1, a3, a5, a4, SP[a1, a2], n] + S2[a1, a4, a5, a1, SP[a2, a3], n] + 
    S2[a1, a4, a5, SP[a1, a2], a3, n] + S2[a1, a4, SP[a2, a5], a1, a3, n] - 
    S2[a4, n]*S2[a1, a5, a1, a2, a3, n] - S2[a1, a5, a1, a2, SP[a3, a4], n] - 
    S2[a4, n]*S2[a1, a5, a1, a3, a2, n] - 
    2*S2[a1, a5, a1, a3, SP[a2, a4], n] - S2[a1, a5, a1, a4, SP[a2, a3], n] - 
    S2[a1, a5, a1, SP[a2, a3], a4, n] - 2*S2[a1, a5, a1, SP[a2, a4], a3, n] - 
    S2[a1, a5, a1, SP[a3, a4], a2, n] - S2[a4, n]*S2[a1, a5, a2, a1, a3, n] - 
    S2[a1, a5, a2, a1, SP[a3, a4], n] - S2[a1, a5, a2, SP[a1, a4], a3, n] - 
    S2[a1, a5, a3, a1, SP[a2, a4], n] + S2[a1, n]*S2[a1, a5, a3, a4, a2, n] + 
    S2[a1, a5, a3, a4, SP[a1, a2], n] - S2[a1, a5, a4, a1, SP[a2, a3], n] + 
    S2[a1, n]*S2[a1, a5, a4, a2, a3, n] + S2[a1, a5, a4, a2, SP[a1, a3], n] + 
    S2[a1, n]*S2[a1, a5, a4, a3, a2, n] + S2[a1, a5, a4, a3, SP[a1, a2], n] + 
    S2[a1, a5, a4, SP[a1, a2], a3, n] - S2[a1, a5, SP[a1, a3], a2, a4, n] - 
    S2[a1, a5, SP[a1, a4], a2, a3, n] - S2[a1, a5, SP[a1, a4], a3, a2, n] - 
    S2[a1, a5, SP[a2, a4], a1, a3, n] - S2[a1, SP[a1, a2], a3, a4, a5, n] - 
    S2[a1, SP[a1, a2], a3, a5, a4, n] - S2[a1, SP[a1, a2], a4, a3, a5, n] - 
    S2[a1, SP[a1, a2], a4, a5, a3, n] - S2[a1, SP[a1, a2], a5, a3, a4, n] - 
    S2[a1, SP[a1, a2], a5, a4, a3, n] - S2[a1, SP[a1, a3], a2, a4, a5, n] - 
    S2[a1, SP[a1, a3], a2, a5, a4, n] - S2[a1, SP[a1, a3], a5, a2, a4, n] + 
    S2[a1, SP[a1, a5], a2, a3, a4, n] + S2[a1, SP[a1, a5], a2, a4, a3, n] + 
    S2[a1, SP[a1, a5], a3, a2, a4, n] + S2[a1, SP[a2, a5], a1, a3, a4, n] + 
    S2[a1, SP[a2, a5], a1, a4, a3, n] + S2[a1, SP[a2, a5], a4, a1, a3, n] + 
    S2[a1, SP[a3, a5], a1, a2, a4, n] - S2[a1, SP[a4, a5], a1, a2, a3, n] - 
    S2[a1, SP[a4, a5], a1, a3, a2, n] - S2[a1, SP[a4, a5], a2, a1, a3, n] + 
    S2[a4, a1, a5, a1, SP[a2, a3], n] + S2[a4, a1, a5, SP[a1, a2], a3, n] + 
    S2[a4, a1, SP[a2, a5], a1, a3, n] + 2*S2[a4, a5, a1, a1, SP[a2, a3], n] + 
    S2[a4, a5, a1, SP[a1, a2], a3, n] + S2[a4, a5, a1, SP[a1, a3], a2, n] + 
    S2[a4, a5, SP[a1, a1], a2, a3, n] + S2[a4, a5, SP[a1, a1], a3, a2, n] + 
    S2[a4, SP[a1, a5], a1, a2, a3, n] + S2[a4, SP[a1, a5], a1, a3, a2, n] + 
    S2[a4, SP[a1, a5], a2, a1, a3, n] - 2*S2[a4, n]*
     S2[a5, a1, a1, a2, a3, n] - 2*S2[a5, a1, a1, a2, SP[a3, a4], n] - 
    2*S2[a4, n]*S2[a5, a1, a1, a3, a2, n] - 
    2*S2[a5, a1, a1, a3, SP[a2, a4], n] - 
    2*S2[a5, a1, a1, SP[a2, a4], a3, n] - 
    2*S2[a5, a1, a1, SP[a3, a4], a2, n] - 
    S2[a4, n]*S2[a5, a1, a2, a1, a3, n] - S2[a5, a1, a2, a1, SP[a3, a4], n] - 
    S2[a5, a1, a2, SP[a1, a4], a3, n] - S2[a4, n]*S2[a5, a1, a3, a1, a2, n] - 
    S2[a5, a1, a3, a1, SP[a2, a4], n] + S2[a1, n]*S2[a5, a1, a3, a4, a2, n] + 
    S2[a5, a1, a3, a4, SP[a1, a2], n] + S2[a1, n]*S2[a5, a1, a4, a2, a3, n] + 
    S2[a5, a1, a4, a2, SP[a1, a3], n] + S2[a1, n]*S2[a5, a1, a4, a3, a2, n] + 
    S2[a5, a1, a4, a3, SP[a1, a2], n] + S2[a5, a1, a4, SP[a1, a2], a3, n] + 
    S2[a5, a1, a4, SP[a1, a3], a2, n] + S2[a5, a1, SP[a1, a3], a4, a2, n] - 
    S2[a5, a1, SP[a1, a4], a2, a3, n] - S2[a5, a1, SP[a1, a4], a3, a2, n] - 
    S2[a5, a1, SP[a2, a4], a1, a3, n] - S2[a5, a1, SP[a3, a4], a1, a2, n] - 
    S2[a1, n]*S2[a5, a3, a4, a2, a1, n] - S2[a5, a3, a4, a2, SP[a1, a1], n] - 
    S2[a5, a3, a4, SP[a1, a2], a1, n] - S2[a5, a3, SP[a1, a4], a2, a1, n] + 
    S2[a1, n]*S2[a5, a4, a1, a2, a3, n] + S2[a5, a4, a1, a2, SP[a1, a3], n] + 
    S2[a1, n]*S2[a5, a4, a1, a3, a2, n] + S2[a5, a4, a1, a3, SP[a1, a2], n] + 
    S2[a5, a4, a1, SP[a1, a2], a3, n] + S2[a5, a4, a1, SP[a1, a3], a2, n] - 
    S2[a1, n]*S2[a5, a4, a2, a3, a1, n] - S2[a5, a4, a2, a3, SP[a1, a1], n] - 
    S2[a5, a4, a2, SP[a1, a3], a1, n] - S2[a1, n]*S2[a5, a4, a3, a2, a1, n] - 
    S2[a5, a4, a3, a2, SP[a1, a1], n] - S2[a5, a4, a3, SP[a1, a2], a1, n] + 
    S2[a5, a4, SP[a1, a1], a2, a3, n] + S2[a5, a4, SP[a1, a1], a3, a2, n] - 
    S2[a5, a4, SP[a1, a2], a3, a1, n] - S2[a5, a4, SP[a1, a3], a2, a1, n] + 
    S2[a5, SP[a1, a1], a3, a4, a2, n] + S2[a5, SP[a1, a1], a4, a2, a3, n] + 
    S2[a5, SP[a1, a1], a4, a3, a2, n] - S2[a5, SP[a1, a3], a4, a2, a1, n] - 
    S2[a5, SP[a1, a4], a1, a2, a3, n] - S2[a5, SP[a1, a4], a1, a3, a2, n] - 
    S2[a5, SP[a1, a4], a2, a1, a3, n] - S2[a5, SP[a1, a4], a2, a3, a1, n] - 
    S2[a5, SP[a1, a4], a3, a1, a2, n] - S2[a5, SP[a1, a4], a3, a2, a1, n] - 
    S2[SP[a1, a1], a2, a3, a4, a5, n] - S2[SP[a1, a1], a2, a3, a5, a4, n] - 
    S2[SP[a1, a1], a2, a4, a3, a5, n] - S2[SP[a1, a1], a2, a4, a5, a3, n] - 
    S2[SP[a1, a1], a2, a5, a3, a4, n] - S2[SP[a1, a1], a2, a5, a4, a3, n] - 
    S2[SP[a1, a1], a3, a2, a4, a5, n] - S2[SP[a1, a1], a3, a2, a5, a4, n] - 
    S2[SP[a1, a1], a3, a5, a2, a4, n] - S2[SP[a1, a1], a5, a2, a3, a4, n] - 
    S2[SP[a1, a1], a5, a2, a4, a3, n] - S2[SP[a1, a1], a5, a3, a2, a4, n] + 
    2*S2[SP[a1, a5], a1, a2, a3, a4, n] + 
    2*S2[SP[a1, a5], a1, a2, a4, a3, n] + 
    2*S2[SP[a1, a5], a1, a3, a2, a4, n] + S2[SP[a1, a5], a1, a3, a4, a2, n] + 
    S2[SP[a1, a5], a1, a4, a2, a3, n] + S2[SP[a1, a5], a1, a4, a3, a2, n] + 
    S2[SP[a1, a5], a2, a1, a3, a4, n] + S2[SP[a1, a5], a2, a1, a4, a3, n] + 
    S2[SP[a1, a5], a2, a4, a1, a3, n] + S2[SP[a1, a5], a3, a1, a2, a4, n] - 
    S2[SP[a1, a5], a3, a4, a2, a1, n] + S2[SP[a1, a5], a4, a1, a2, a3, n] + 
    S2[SP[a1, a5], a4, a1, a3, a2, n] - S2[SP[a1, a5], a4, a2, a3, a1, n] - 
    S2[SP[a1, a5], a4, a3, a2, a1, n] - 2*S2[SP[a4, a5], a1, a1, a2, a3, n] - 
    2*S2[SP[a4, a5], a1, a1, a3, a2, n] - S2[SP[a4, a5], a1, a2, a1, a3, n] - 
    S2[SP[a4, a5], a1, a3, a1, a2, n] + S2[a5, a3, a1, a4, a2, a1, n] + 
    S2[a5, a3, a4, a1, a2, a1, n] + 2*S2[a5, a3, a4, a2, a1, a1, n] + 
    S2[a5, a4, a2, a1, a3, a1, n] + 2*S2[a5, a4, a2, a3, a1, a1, n] + 
    S2[a5, a4, a3, a1, a2, a1, n] + 2*S2[a5, a4, a3, a2, a1, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a1_, a4_, a1_, a2_, a3_, a5_, n_] :> 
  -2*S2[a1, a1, a4, n]*S2[a2, a3, a5, n] - 
    2*S2[SP[a1, a2], SP[a1, a3], SP[a4, a5], n] - 
    2*S2[a3, a5, n]*S2[a1, a1, a2, a4, n] - 2*S2[a3, a5, n]*
     S2[a1, a1, a4, a2, n] + 2*S2[a1, a1, SP[a2, a3], SP[a4, a5], n] + 
    2*S2[a1, a1, SP[a3, a4], SP[a2, a5], n] - 
    S2[a3, a5, n]*S2[a1, a2, a1, a4, n] + S2[a1, a4, n]*
     S2[a1, a2, a3, a5, n] + 2*S2[a1, a2, SP[a1, a3], SP[a4, a5], n] + 
    S2[a1, SP[a1, a2], a3, SP[a4, a5], n] + S2[a1, SP[a1, a2], SP[a3, a4], 
     a5, n] + 2*S2[a1, SP[a1, a3], a2, SP[a4, a5], n] + 
    2*S2[a1, SP[a1, a3], a4, SP[a2, a5], n] + 
    2*S2[a1, SP[a1, a3], SP[a2, a5], a4, n] + 
    2*S2[a1, SP[a1, a3], SP[a4, a5], a2, n] + S2[a1, SP[a2, a3], a1, 
     SP[a4, a5], n] + S2[a1, SP[a2, a3], SP[a1, a5], a4, n] + 
    2*S2[a2, a1, SP[a1, a3], SP[a4, a5], n] + 
    2*S2[a2, SP[a1, a3], a1, SP[a4, a5], n] + 
    2*S2[a2, SP[a1, a3], SP[a1, a5], a4, n] - S2[SP[a1, a1], a2, a3, 
     SP[a4, a5], n] - S2[SP[a1, a1], a2, SP[a3, a4], a5, n] - 
    S2[SP[a1, a1], SP[a2, a4], a3, a5, n] + 
    2*S2[SP[a1, a2], a1, a3, SP[a4, a5], n] + 
    2*S2[SP[a1, a2], a1, SP[a3, a4], a5, n] + 
    2*S2[SP[a1, a2], a3, a1, SP[a4, a5], n] + 
    2*S2[SP[a1, a2], a3, SP[a1, a5], a4, n] + 
    2*S2[SP[a1, a2], SP[a1, a3], a4, a5, n] + 
    2*S2[SP[a1, a2], SP[a1, a3], a5, a4, n] + 
    2*S2[SP[a1, a3], a1, a2, SP[a4, a5], n] + 
    2*S2[SP[a1, a3], a1, a4, SP[a2, a5], n] + 
    2*S2[SP[a1, a3], a1, SP[a2, a5], a4, n] + 
    2*S2[SP[a1, a3], a1, SP[a4, a5], a2, n] + S2[SP[a1, a3], a2, a1, 
     SP[a4, a5], n] + S2[SP[a1, a3], a2, SP[a1, a5], a4, n] + 
    2*S2[SP[a1, a3], SP[a1, a5], a2, a4, n] + 
    2*S2[SP[a1, a3], SP[a1, a5], a4, a2, n] + S2[SP[a1, a3], SP[a2, a5], a1, 
     a4, n] - 2*S2[a5, n]*S2[a1, a1, a2, a3, a4, n] - 
    4*S2[a1, a1, a2, a3, SP[a4, a5], n] - 
    2*S2[a5, n]*S2[a1, a1, a2, a4, a3, n] + 
    2*S2[a3, n]*S2[a1, a1, a2, a4, a5, n] + 
    2*S2[a3, n]*S2[a1, a1, a2, a5, a4, n] + 
    2*S2[a1, a1, a2, a5, SP[a3, a4], n] - 
    2*S2[a1, a1, a2, SP[a4, a5], a3, n] - 
    2*S2[a5, n]*S2[a1, a1, a3, a2, a4, n] - 
    4*S2[a1, a1, a3, a2, SP[a4, a5], n] - 
    2*S2[a5, n]*S2[a1, a1, a3, a4, a2, n] + 
    2*S2[a2, n]*S2[a1, a1, a3, a4, a5, n] - 
    2*S2[a1, a1, a3, a4, SP[a2, a5], n] + 
    2*S2[a2, n]*S2[a1, a1, a3, a5, a4, n] + 
    2*S2[a1, a1, a3, a5, SP[a2, a4], n] + 
    2*S2[a1, a1, a3, SP[a2, a4], a5, n] - 
    2*S2[a1, a1, a3, SP[a2, a5], a4, n] - 
    4*S2[a1, a1, a3, SP[a4, a5], a2, n] - 
    2*S2[a5, n]*S2[a1, a1, a4, a2, a3, n] + 
    2*S2[a3, n]*S2[a1, a1, a4, a2, a5, n] - 
    2*S2[a5, n]*S2[a1, a1, a4, a3, a2, n] + 
    2*S2[a2, n]*S2[a1, a1, a4, a3, a5, n] - 
    2*S2[a1, a1, a4, a3, SP[a2, a5], n] + 
    2*S2[a3, n]*S2[a1, a1, a4, a5, a2, n] + 
    2*S2[a1, a1, a4, a5, SP[a2, a3], n] + 
    2*S2[a1, a1, a4, SP[a2, a3], a5, n] - 
    2*S2[a1, a1, a4, SP[a2, a5], a3, n] + 
    2*S2[a3, n]*S2[a1, a1, a5, a2, a4, n] + 
    2*S2[a1, a1, a5, a2, SP[a3, a4], n] + 
    2*S2[a3, n]*S2[a1, a1, a5, a4, a2, n] + 
    2*S2[a1, a1, a5, a4, SP[a2, a3], n] + 
    2*S2[a1, a1, a5, SP[a2, a3], a4, n] + 
    2*S2[a1, a1, a5, SP[a3, a4], a2, n] + 
    2*S2[a1, a1, SP[a2, a3], a4, a5, n] + 
    2*S2[a1, a1, SP[a2, a3], a5, a4, n] + 
    2*S2[a1, a1, SP[a2, a4], a3, a5, n] - 
    2*S2[a1, a1, SP[a2, a5], a3, a4, n] - 
    2*S2[a1, a1, SP[a2, a5], a4, a3, n] - 
    2*S2[a1, a1, SP[a4, a5], a2, a3, n] - 
    2*S2[a1, a1, SP[a4, a5], a3, a2, n] - 
    S2[a5, n]*S2[a1, a2, a1, a3, a4, n] - 
    3*S2[a1, a2, a1, a3, SP[a4, a5], n] - 
    S2[a5, n]*S2[a1, a2, a1, a4, a3, n] + 
    S2[a3, n]*S2[a1, a2, a1, a4, a5, n] + 
    S2[a3, n]*S2[a1, a2, a1, a5, a4, n] + S2[a1, a2, a1, a5, SP[a3, a4], n] - 
    S2[a1, a2, a1, SP[a3, a4], a5, n] - S2[a1, a2, a1, SP[a4, a5], a3, n] - 
    S2[a5, n]*S2[a1, a2, a3, a1, a4, n] - 
    3*S2[a1, a2, a3, a1, SP[a4, a5], n] - 
    3*S2[a1, a2, a3, SP[a1, a5], a4, n] + 
    S2[a3, n]*S2[a1, a2, a5, a1, a4, n] + S2[a1, a2, a5, a1, SP[a3, a4], n] + 
    S2[a1, a2, a5, SP[a1, a3], a4, n] - S2[a1, a2, SP[a1, a3], a4, a5, n] - 
    S2[a1, a2, SP[a1, a3], a5, a4, n] - S2[a1, a2, SP[a1, a5], a3, a4, n] - 
    S2[a1, a2, SP[a1, a5], a4, a3, n] - 2*S2[a5, n]*
     S2[a1, a3, a1, a2, a4, n] - 4*S2[a1, a3, a1, a2, SP[a4, a5], n] - 
    2*S2[a5, n]*S2[a1, a3, a1, a4, a2, n] + 
    2*S2[a2, n]*S2[a1, a3, a1, a4, a5, n] - 
    2*S2[a1, a3, a1, a4, SP[a2, a5], n] + 
    2*S2[a2, n]*S2[a1, a3, a1, a5, a4, n] + 
    2*S2[a1, a3, a1, a5, SP[a2, a4], n] + 
    2*S2[a1, a3, a1, SP[a2, a4], a5, n] - 
    2*S2[a1, a3, a1, SP[a2, a5], a4, n] - 
    4*S2[a1, a3, a1, SP[a4, a5], a2, n] - 
    2*S2[a5, n]*S2[a1, a3, a2, a1, a4, n] - 
    3*S2[a1, a3, a2, a1, SP[a4, a5], n] - 
    3*S2[a1, a3, a2, SP[a1, a5], a4, n] + 
    2*S2[a2, n]*S2[a1, a3, a5, a1, a4, n] + 
    2*S2[a1, a3, a5, a1, SP[a2, a4], n] + 
    2*S2[a1, a3, a5, SP[a1, a2], a4, n] + 
    2*S2[a1, a3, SP[a1, a2], a4, a5, n] + 
    2*S2[a1, a3, SP[a1, a2], a5, a4, n] - 
    4*S2[a1, a3, SP[a1, a5], a2, a4, n] - 
    4*S2[a1, a3, SP[a1, a5], a4, a2, n] - S2[a1, a3, SP[a2, a5], a1, a4, n] + 
    2*S2[a3, n]*S2[a1, a5, a1, a2, a4, n] + 
    2*S2[a1, a5, a1, a2, SP[a3, a4], n] + 
    2*S2[a3, n]*S2[a1, a5, a1, a4, a2, n] + 
    2*S2[a1, a5, a1, a4, SP[a2, a3], n] + 
    2*S2[a1, a5, a1, SP[a2, a3], a4, n] + 
    2*S2[a1, a5, a1, SP[a3, a4], a2, n] + 
    S2[a3, n]*S2[a1, a5, a2, a1, a4, n] + S2[a1, a5, a2, a1, SP[a3, a4], n] + 
    S2[a1, a5, a2, SP[a1, a3], a4, n] + 2*S2[a1, a5, SP[a1, a3], a2, a4, n] + 
    2*S2[a1, a5, SP[a1, a3], a4, a2, n] + S2[a1, a5, SP[a2, a3], a1, a4, n] + 
    S2[a1, SP[a1, a2], a3, a4, a5, n] + S2[a1, SP[a1, a2], a3, a5, a4, n] + 
    S2[a1, SP[a1, a2], a4, a3, a5, n] + S2[a1, SP[a1, a4], a2, a3, a5, n] - 
    2*S2[a1, SP[a1, a5], a2, a3, a4, n] - 
    2*S2[a1, SP[a1, a5], a2, a4, a3, n] - 
    2*S2[a1, SP[a1, a5], a3, a2, a4, n] - 
    2*S2[a1, SP[a1, a5], a3, a4, a2, n] - 
    2*S2[a1, SP[a1, a5], a4, a2, a3, n] - 
    2*S2[a1, SP[a1, a5], a4, a3, a2, n] + 
    2*S2[a1, SP[a2, a3], a1, a4, a5, n] + 
    2*S2[a1, SP[a2, a3], a1, a5, a4, n] + 
    2*S2[a1, SP[a2, a3], a5, a1, a4, n] - S2[a1, SP[a2, a5], a1, a3, a4, n] - 
    S2[a1, SP[a2, a5], a1, a4, a3, n] - S2[a1, SP[a2, a5], a3, a1, a4, n] - 
    S2[a1, SP[a3, a5], a2, a1, a4, n] - 2*S2[a2, a1, a1, a3, SP[a4, a5], n] - 
    2*S2[a2, a1, a1, SP[a3, a4], a5, n] - 
    2*S2[a2, a1, a3, a1, SP[a4, a5], n] - 
    2*S2[a2, a1, a3, SP[a1, a5], a4, n] - 
    2*S2[a2, a1, SP[a1, a3], a4, a5, n] - 
    2*S2[a2, a1, SP[a1, a3], a5, a4, n] + 
    2*S2[a5, n]*S2[a2, a3, a1, a1, a4, n] - 
    2*S2[a2, SP[a1, a3], a1, a4, a5, n] - 
    2*S2[a2, SP[a1, a3], a1, a5, a4, n] - 
    2*S2[a2, SP[a1, a3], a5, a1, a4, n] + 
    2*S2[a2, SP[a3, a5], a1, a1, a4, n] - 
    2*S2[a3, a1, a1, a2, SP[a4, a5], n] - 
    2*S2[a3, a1, a1, a4, SP[a2, a5], n] - 
    2*S2[a3, a1, a1, SP[a2, a5], a4, n] - 
    2*S2[a3, a1, a1, SP[a4, a5], a2, n] - S2[a3, a1, a2, a1, SP[a4, a5], n] - 
    S2[a3, a1, a2, SP[a1, a5], a4, n] - 2*S2[a3, a1, SP[a1, a5], a2, a4, n] - 
    2*S2[a3, a1, SP[a1, a5], a4, a2, n] - S2[a3, a1, SP[a2, a5], a1, a4, n] - 
    2*S2[a3, SP[a1, a5], a1, a2, a4, n] - 
    2*S2[a3, SP[a1, a5], a1, a4, a2, n] - S2[a3, SP[a1, a5], a2, a1, a4, n] + 
    2*S2[a3, n]*S2[a5, a1, a1, a2, a4, n] + 
    2*S2[a5, a1, a1, a2, SP[a3, a4], n] + 
    2*S2[a3, n]*S2[a5, a1, a1, a4, a2, n] + 
    2*S2[a5, a1, a1, a4, SP[a2, a3], n] + 
    2*S2[a5, a1, a1, SP[a2, a3], a4, n] + 
    2*S2[a5, a1, a1, SP[a3, a4], a2, n] + 
    S2[a3, n]*S2[a5, a1, a2, a1, a4, n] + S2[a5, a1, a2, a1, SP[a3, a4], n] + 
    S2[a5, a1, a2, SP[a1, a3], a4, n] + 2*S2[a5, a1, SP[a1, a3], a2, a4, n] + 
    2*S2[a5, a1, SP[a1, a3], a4, a2, n] + S2[a5, a1, SP[a2, a3], a1, a4, n] - 
    2*S2[a2, n]*S2[a5, a3, a1, a1, a4, n] - 
    2*S2[a5, a3, a1, a1, SP[a2, a4], n] - 
    2*S2[a5, a3, a1, SP[a1, a2], a4, n] + 
    S2[a1, n]*S2[a5, a3, a2, a1, a4, n] + S2[a5, a3, a2, a1, SP[a1, a4], n] + 
    S2[a5, a3, a2, SP[a1, a1], a4, n] - S2[a5, a3, SP[a1, a2], a1, a4, n] + 
    2*S2[a5, SP[a1, a3], a1, a2, a4, n] + 
    2*S2[a5, SP[a1, a3], a1, a4, a2, n] + 
    2*S2[a5, SP[a1, a3], a2, a1, a4, n] - 
    2*S2[a5, SP[a2, a3], a1, a1, a4, n] + S2[SP[a1, a1], a2, a3, a4, a5, n] + 
    S2[SP[a1, a1], a2, a3, a5, a4, n] + S2[SP[a1, a1], a2, a4, a3, a5, n] + 
    S2[SP[a1, a1], a4, a2, a3, a5, n] - 2*S2[SP[a1, a5], a1, a2, a3, a4, n] - 
    2*S2[SP[a1, a5], a1, a2, a4, a3, n] - 
    2*S2[SP[a1, a5], a1, a3, a2, a4, n] - 
    2*S2[SP[a1, a5], a1, a3, a4, a2, n] - 
    2*S2[SP[a1, a5], a1, a4, a2, a3, n] - 
    2*S2[SP[a1, a5], a1, a4, a3, a2, n] - S2[SP[a1, a5], a2, a1, a3, a4, n] - 
    S2[SP[a1, a5], a2, a1, a4, a3, n] - S2[SP[a1, a5], a2, a3, a1, a4, n] - 
    2*S2[SP[a1, a5], a3, a1, a2, a4, n] - 
    2*S2[SP[a1, a5], a3, a1, a4, a2, n] - S2[SP[a1, a5], a3, a2, a1, a4, n] + 
    2*S2[SP[a3, a5], a1, a1, a2, a4, n] + 
    2*S2[SP[a3, a5], a1, a1, a4, a2, n] + S2[SP[a3, a5], a1, a2, a1, a4, n] - 
    S2[a5, a3, a2, a1, a4, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a1_, a4_, a1_, a2_, a5_, a3_, n_] :> 
  -2*S2[a1, a1, a4, n]*S2[a2, a5, a3, n] - 
    2*S2[SP[a1, a2], SP[a1, a5], SP[a3, a4], n] + 
    2*S2[a3, a5, n]*S2[a1, a1, a2, a4, n] + 2*S2[a3, a5, n]*
     S2[a1, a1, a4, a2, n] - 2*S2[a1, a1, SP[a2, a3], SP[a4, a5], n] - 
    2*S2[a1, a1, SP[a3, a4], SP[a2, a5], n] + 
    S2[a3, a5, n]*S2[a1, a2, a1, a4, n] + S2[a1, a4, n]*
     S2[a1, a2, a5, a3, n] - S2[a1, a2, SP[a1, a3], SP[a4, a5], n] + 
    S2[a1, a2, SP[a1, a5], SP[a3, a4], n] + S2[a1, SP[a1, a2], a5, 
     SP[a3, a4], n] + S2[a1, SP[a1, a2], SP[a4, a5], a3, n] - 
    2*S2[a1, SP[a1, a3], a2, SP[a4, a5], n] - 
    2*S2[a1, SP[a1, a3], a4, SP[a2, a5], n] - 
    2*S2[a1, SP[a1, a3], SP[a2, a5], a4, n] - 
    2*S2[a1, SP[a1, a3], SP[a4, a5], a2, n] - S2[a1, SP[a2, a3], a1, 
     SP[a4, a5], n] - S2[a1, SP[a2, a3], SP[a1, a5], a4, n] + 
    2*S2[a2, a1, SP[a1, a5], SP[a3, a4], n] + 
    2*S2[a2, SP[a1, a5], a1, SP[a3, a4], n] + 
    2*S2[a2, SP[a1, a5], SP[a1, a3], a4, n] - S2[SP[a1, a1], a2, a5, 
     SP[a3, a4], n] - S2[SP[a1, a1], a2, SP[a4, a5], a3, n] - 
    S2[SP[a1, a1], SP[a2, a4], a5, a3, n] + 
    2*S2[SP[a1, a2], a1, a5, SP[a3, a4], n] + 
    2*S2[SP[a1, a2], a1, SP[a4, a5], a3, n] + 
    2*S2[SP[a1, a2], a5, a1, SP[a3, a4], n] + 
    2*S2[SP[a1, a2], a5, SP[a1, a3], a4, n] + 
    2*S2[SP[a1, a2], SP[a1, a5], a3, a4, n] + 
    2*S2[SP[a1, a2], SP[a1, a5], a4, a3, n] - 
    2*S2[SP[a1, a3], a1, a2, SP[a4, a5], n] - 
    2*S2[SP[a1, a3], a1, a4, SP[a2, a5], n] - 
    2*S2[SP[a1, a3], a1, SP[a2, a5], a4, n] - 
    2*S2[SP[a1, a3], a1, SP[a4, a5], a2, n] - S2[SP[a1, a3], a2, a1, 
     SP[a4, a5], n] - S2[SP[a1, a3], a2, SP[a1, a5], a4, n] - 
    2*S2[SP[a1, a3], SP[a1, a5], a2, a4, n] - 
    2*S2[SP[a1, a3], SP[a1, a5], a4, a2, n] - S2[SP[a1, a3], SP[a2, a5], a1, 
     a4, n] + 2*S2[a1, a1, a2, a3, SP[a4, a5], n] - 
    2*S2[a3, n]*S2[a1, a1, a2, a4, a5, n] - 
    2*S2[a1, a1, a2, a4, SP[a3, a5], n] - 
    2*S2[a3, n]*S2[a1, a1, a2, a5, a4, n] - 
    2*S2[a1, a1, a2, a5, SP[a3, a4], n] - 
    2*S2[a1, a1, a2, SP[a3, a5], a4, n] + 
    2*S2[a1, a1, a3, a2, SP[a4, a5], n] + 
    2*S2[a1, a1, a3, a4, SP[a2, a5], n] + 
    2*S2[a1, a1, a3, SP[a2, a5], a4, n] + 
    2*S2[a1, a1, a3, SP[a4, a5], a2, n] - 
    2*S2[a3, n]*S2[a1, a1, a4, a2, a5, n] - 
    2*S2[a1, a1, a4, a2, SP[a3, a5], n] + 
    2*S2[a1, a1, a4, a3, SP[a2, a5], n] - 
    2*S2[a3, n]*S2[a1, a1, a4, a5, a2, n] + 
    2*S2[a2, n]*S2[a1, a1, a4, a5, a3, n] + 
    2*S2[a1, a1, a4, SP[a2, a5], a3, n] - 
    2*S2[a1, a1, a4, SP[a3, a5], a2, n] - 
    2*S2[a3, n]*S2[a1, a1, a5, a2, a4, n] - 
    2*S2[a1, a1, a5, a2, SP[a3, a4], n] + 
    2*S2[a2, n]*S2[a1, a1, a5, a3, a4, n] + 
    2*S2[a1, a1, a5, a3, SP[a2, a4], n] - 
    2*S2[a3, n]*S2[a1, a1, a5, a4, a2, n] + 
    2*S2[a2, n]*S2[a1, a1, a5, a4, a3, n] + 
    2*S2[a1, a1, a5, SP[a2, a4], a3, n] - 
    2*S2[a1, a1, a5, SP[a3, a4], a2, n] + 
    2*S2[a1, a1, SP[a2, a4], a5, a3, n] + 
    2*S2[a1, a1, SP[a2, a5], a3, a4, n] + 
    2*S2[a1, a1, SP[a2, a5], a4, a3, n] - 
    2*S2[a1, a1, SP[a3, a5], a2, a4, n] - 
    2*S2[a1, a1, SP[a3, a5], a4, a2, n] + S2[a1, a2, a1, a3, SP[a4, a5], n] - 
    S2[a3, n]*S2[a1, a2, a1, a4, a5, n] - S2[a1, a2, a1, a4, SP[a3, a5], n] - 
    S2[a3, n]*S2[a1, a2, a1, a5, a4, n] - 
    2*S2[a1, a2, a1, a5, SP[a3, a4], n] - S2[a1, a2, a1, SP[a3, a5], a4, n] - 
    S2[a1, a2, a1, SP[a4, a5], a3, n] + S2[a1, a2, a3, a1, SP[a4, a5], n] + 
    S2[a1, a2, a3, SP[a1, a5], a4, n] - S2[a3, n]*S2[a1, a2, a5, a1, a4, n] - 
    2*S2[a1, a2, a5, a1, SP[a3, a4], n] - 
    2*S2[a1, a2, a5, SP[a1, a3], a4, n] - S2[a1, a2, SP[a1, a5], a3, a4, n] - 
    S2[a1, a2, SP[a1, a5], a4, a3, n] - S2[a1, a2, SP[a3, a5], a1, a4, n] + 
    2*S2[a1, a3, a1, a2, SP[a4, a5], n] + 
    2*S2[a1, a3, a1, a4, SP[a2, a5], n] + 
    2*S2[a1, a3, a1, SP[a2, a5], a4, n] + 
    2*S2[a1, a3, a1, SP[a4, a5], a2, n] + S2[a1, a3, a2, a1, SP[a4, a5], n] + 
    S2[a1, a3, a2, SP[a1, a5], a4, n] + 2*S2[a1, a3, SP[a1, a5], a2, a4, n] + 
    2*S2[a1, a3, SP[a1, a5], a4, a2, n] + S2[a1, a3, SP[a2, a5], a1, a4, n] - 
    2*S2[a3, n]*S2[a1, a5, a1, a2, a4, n] - 
    2*S2[a1, a5, a1, a2, SP[a3, a4], n] + 
    2*S2[a2, n]*S2[a1, a5, a1, a3, a4, n] + 
    2*S2[a1, a5, a1, a3, SP[a2, a4], n] - 
    2*S2[a3, n]*S2[a1, a5, a1, a4, a2, n] + 
    2*S2[a2, n]*S2[a1, a5, a1, a4, a3, n] + 
    2*S2[a1, a5, a1, SP[a2, a4], a3, n] - 
    2*S2[a1, a5, a1, SP[a3, a4], a2, n] - 
    S2[a3, n]*S2[a1, a5, a2, a1, a4, n] - S2[a1, a5, a2, a1, SP[a3, a4], n] - 
    S2[a1, a5, a2, SP[a1, a3], a4, n] + 2*S2[a2, n]*
     S2[a1, a5, a3, a1, a4, n] + 2*S2[a1, a5, a3, a1, SP[a2, a4], n] + 
    2*S2[a1, a5, a3, SP[a1, a2], a4, n] + 
    2*S2[a1, a5, SP[a1, a2], a3, a4, n] + 
    2*S2[a1, a5, SP[a1, a2], a4, a3, n] - 
    2*S2[a1, a5, SP[a1, a3], a2, a4, n] - 
    2*S2[a1, a5, SP[a1, a3], a4, a2, n] + S2[a1, a5, SP[a2, a3], a1, a4, n] + 
    S2[a1, SP[a1, a2], a4, a5, a3, n] + S2[a1, SP[a1, a2], a5, a3, a4, n] + 
    S2[a1, SP[a1, a2], a5, a4, a3, n] + S2[a1, SP[a1, a4], a2, a5, a3, n] + 
    2*S2[a1, SP[a2, a5], a1, a3, a4, n] + 
    2*S2[a1, SP[a2, a5], a1, a4, a3, n] + 
    2*S2[a1, SP[a2, a5], a3, a1, a4, n] - 
    2*S2[a1, SP[a3, a5], a1, a2, a4, n] - 
    2*S2[a1, SP[a3, a5], a1, a4, a2, n] - S2[a1, SP[a3, a5], a2, a1, a4, n] - 
    2*S2[a2, a1, a1, a5, SP[a3, a4], n] - 
    2*S2[a2, a1, a1, SP[a4, a5], a3, n] - 
    2*S2[a2, a1, a5, a1, SP[a3, a4], n] - 
    2*S2[a2, a1, a5, SP[a1, a3], a4, n] - 
    2*S2[a2, a1, SP[a1, a5], a3, a4, n] - 
    2*S2[a2, a1, SP[a1, a5], a4, a3, n] - 
    2*S2[a2, a5, a1, a1, SP[a3, a4], n] - 
    2*S2[a2, a5, a1, SP[a1, a3], a4, n] - 
    2*S2[a2, a5, SP[a1, a3], a1, a4, n] - 
    2*S2[a2, SP[a1, a5], a1, a3, a4, n] - 
    2*S2[a2, SP[a1, a5], a1, a4, a3, n] - 
    2*S2[a2, SP[a1, a5], a3, a1, a4, n] + 
    2*S2[a3, a1, a1, a2, SP[a4, a5], n] + 
    2*S2[a3, a1, a1, a4, SP[a2, a5], n] + 
    2*S2[a3, a1, a1, SP[a2, a5], a4, n] + 
    2*S2[a3, a1, a1, SP[a4, a5], a2, n] + S2[a3, a1, a2, a1, SP[a4, a5], n] + 
    S2[a3, a1, a2, SP[a1, a5], a4, n] + 2*S2[a3, a1, SP[a1, a5], a2, a4, n] + 
    2*S2[a3, a1, SP[a1, a5], a4, a2, n] + S2[a3, a1, SP[a2, a5], a1, a4, n] + 
    2*S2[a3, SP[a1, a5], a1, a2, a4, n] + 
    2*S2[a3, SP[a1, a5], a1, a4, a2, n] + S2[a3, SP[a1, a5], a2, a1, a4, n] - 
    2*S2[a3, n]*S2[a5, a1, a1, a2, a4, n] - 
    2*S2[a5, a1, a1, a2, SP[a3, a4], n] + 
    2*S2[a2, n]*S2[a5, a1, a1, a3, a4, n] + 
    2*S2[a5, a1, a1, a3, SP[a2, a4], n] - 
    2*S2[a3, n]*S2[a5, a1, a1, a4, a2, n] + 
    2*S2[a2, n]*S2[a5, a1, a1, a4, a3, n] + 
    2*S2[a5, a1, a1, SP[a2, a4], a3, n] - 
    2*S2[a5, a1, a1, SP[a3, a4], a2, n] - 
    S2[a3, n]*S2[a5, a1, a2, a1, a4, n] - S2[a5, a1, a2, a1, SP[a3, a4], n] - 
    S2[a5, a1, a2, SP[a1, a3], a4, n] + 2*S2[a2, n]*
     S2[a5, a1, a3, a1, a4, n] + 2*S2[a5, a1, a3, a1, SP[a2, a4], n] + 
    2*S2[a5, a1, a3, SP[a1, a2], a4, n] + 
    2*S2[a5, a1, SP[a1, a2], a3, a4, n] + 
    2*S2[a5, a1, SP[a1, a2], a4, a3, n] - 
    2*S2[a5, a1, SP[a1, a3], a2, a4, n] - 
    2*S2[a5, a1, SP[a1, a3], a4, a2, n] + S2[a5, a1, SP[a2, a3], a1, a4, n] - 
    S2[a1, n]*S2[a5, a2, a1, a3, a4, n] - S2[a5, a2, a1, a3, SP[a1, a4], n] - 
    S2[a1, n]*S2[a5, a2, a1, a4, a3, n] - S2[a5, a2, a1, a4, SP[a1, a3], n] - 
    S2[a5, a2, a1, SP[a1, a3], a4, n] - S2[a5, a2, a1, SP[a1, a4], a3, n] - 
    S2[a1, n]*S2[a5, a2, a3, a1, a4, n] - S2[a5, a2, a3, a1, SP[a1, a4], n] - 
    S2[a5, a2, a3, SP[a1, a1], a4, n] - S2[a5, a2, SP[a1, a1], a3, a4, n] - 
    S2[a5, a2, SP[a1, a1], a4, a3, n] - S2[a5, a2, SP[a1, a3], a1, a4, n] + 
    2*S2[a2, n]*S2[a5, a3, a1, a1, a4, n] + 
    2*S2[a5, a3, a1, a1, SP[a2, a4], n] + 
    2*S2[a5, a3, a1, SP[a1, a2], a4, n] - 
    S2[a1, n]*S2[a5, a3, a2, a1, a4, n] - S2[a5, a3, a2, a1, SP[a1, a4], n] - 
    S2[a5, a3, a2, SP[a1, a1], a4, n] + S2[a5, a3, SP[a1, a2], a1, a4, n] + 
    S2[a5, SP[a1, a2], a1, a3, a4, n] + S2[a5, SP[a1, a2], a1, a4, a3, n] + 
    S2[a5, SP[a1, a2], a3, a1, a4, n] - 2*S2[a5, SP[a1, a3], a1, a2, a4, n] - 
    2*S2[a5, SP[a1, a3], a1, a4, a2, n] - 
    2*S2[a5, SP[a1, a3], a2, a1, a4, n] + 
    2*S2[a5, SP[a2, a3], a1, a1, a4, n] + S2[SP[a1, a1], a2, a4, a5, a3, n] + 
    S2[SP[a1, a1], a2, a5, a3, a4, n] + S2[SP[a1, a1], a2, a5, a4, a3, n] + 
    S2[SP[a1, a1], a4, a2, a5, a3, n] - S2[SP[a1, a5], a2, a1, a3, a4, n] - 
    S2[SP[a1, a5], a2, a1, a4, a3, n] - S2[SP[a1, a5], a2, a3, a1, a4, n] - 
    S2[SP[a1, a5], a3, a2, a1, a4, n] + 2*S2[SP[a2, a5], a1, a1, a3, a4, n] + 
    2*S2[SP[a2, a5], a1, a1, a4, a3, n] + 
    2*S2[SP[a2, a5], a1, a3, a1, a4, n] + 
    2*S2[SP[a2, a5], a3, a1, a1, a4, n] - 
    2*S2[SP[a3, a5], a1, a1, a2, a4, n] - 
    2*S2[SP[a3, a5], a1, a1, a4, a2, n] - S2[SP[a3, a5], a1, a2, a1, a4, n] + 
    S2[a5, a2, a1, a3, a4, a1, n] + S2[a5, a2, a1, a4, a1, a3, n] + 
    S2[a5, a2, a1, a4, a3, a1, n] + S2[a5, a2, a3, a1, a4, a1, n] + 
    S2[a5, a3, a2, a1, a4, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a1_, a4_, a1_, a3_, a2_, a5_, n_] :> 
  2*S2[a1, a1, a4, n]*S2[a2, a3, a5, n] + 2*S2[a1, a1, a4, n]*
     S2[a2, a5, a3, n] + 2*S2[SP[a1, a2], SP[a1, a3], SP[a4, a5], n] + 
    2*S2[SP[a1, a2], SP[a1, a5], SP[a3, a4], n] - 
    2*S2[a2, a5, n]*S2[a1, a1, a3, a4, n] - 2*S2[a2, a5, n]*
     S2[a1, a1, a4, a3, n] + 2*S2[a1, a1, SP[a2, a3], SP[a4, a5], n] + 
    2*S2[a1, a1, SP[a2, a4], SP[a3, a5], n] - 
    2*S2[a1, a2, SP[a1, a3], SP[a4, a5], n] - 
    2*S2[a1, a2, SP[a1, a5], SP[a3, a4], n] - 
    S2[a2, a5, n]*S2[a1, a3, a1, a4, n] + S2[a1, a4, n]*
     S2[a1, a3, a2, a5, n] + 2*S2[a1, SP[a1, a2], a4, SP[a3, a5], n] - 
    2*S2[a1, SP[a1, a2], a5, SP[a3, a4], n] - 
    2*S2[a1, SP[a1, a2], SP[a3, a4], a5, n] + 
    2*S2[a1, SP[a1, a2], SP[a3, a5], a4, n] - S2[a1, SP[a1, a3], a2, 
     SP[a4, a5], n] - S2[a1, SP[a1, a3], SP[a2, a4], a5, n] + 
    S2[a1, SP[a2, a3], a1, SP[a4, a5], n] + S2[a1, SP[a2, a3], SP[a1, a5], 
     a4, n] - 2*S2[a2, a1, SP[a1, a3], SP[a4, a5], n] - 
    2*S2[a2, a1, SP[a1, a5], SP[a3, a4], n] - 
    2*S2[a2, SP[a1, a3], a1, SP[a4, a5], n] - 
    2*S2[a2, SP[a1, a3], SP[a1, a5], a4, n] - 
    2*S2[a2, SP[a1, a5], a1, SP[a3, a4], n] - 
    2*S2[a2, SP[a1, a5], SP[a1, a3], a4, n] - S2[SP[a1, a1], a3, a2, 
     SP[a4, a5], n] - S2[SP[a1, a1], a3, SP[a2, a4], a5, n] - 
    S2[SP[a1, a1], SP[a3, a4], a2, a5, n] + 
    2*S2[SP[a1, a2], a1, a4, SP[a3, a5], n] - 
    2*S2[SP[a1, a2], a1, a5, SP[a3, a4], n] - 
    2*S2[SP[a1, a2], a1, SP[a3, a4], a5, n] + 
    2*S2[SP[a1, a2], a1, SP[a3, a5], a4, n] - S2[SP[a1, a2], a3, a1, 
     SP[a4, a5], n] - S2[SP[a1, a2], a3, SP[a1, a5], a4, n] - 
    2*S2[SP[a1, a2], a5, a1, SP[a3, a4], n] - 
    2*S2[SP[a1, a2], a5, SP[a1, a3], a4, n] - 
    2*S2[SP[a1, a2], SP[a1, a3], a4, a5, n] - 
    2*S2[SP[a1, a2], SP[a1, a3], a5, a4, n] + S2[SP[a1, a2], SP[a3, a5], a1, 
     a4, n] - 2*S2[a1, a1, a2, a4, SP[a3, a5], n] + 
    2*S2[a1, a1, a2, a5, SP[a3, a4], n] + 
    2*S2[a1, a1, a2, SP[a3, a4], a5, n] - 
    2*S2[a1, a1, a2, SP[a3, a5], a4, n] - 
    2*S2[a1, a1, a4, a2, SP[a3, a5], n] - 
    2*S2[a1, a1, a4, SP[a2, a3], a5, n] - 
    2*S2[a1, a1, SP[a2, a3], a4, a5, n] - 
    2*S2[a1, a1, SP[a2, a3], a5, a4, n] + 
    2*S2[a1, a1, SP[a3, a4], a2, a5, n] - 
    2*S2[a1, a2, a1, a4, SP[a3, a5], n] + 
    2*S2[a1, a2, a1, a5, SP[a3, a4], n] + 
    2*S2[a1, a2, a1, SP[a3, a4], a5, n] - 
    2*S2[a1, a2, a1, SP[a3, a5], a4, n] + S2[a1, a2, a3, a1, SP[a4, a5], n] + 
    S2[a1, a2, a3, SP[a1, a5], a4, n] + 2*S2[a1, a2, a5, a1, SP[a3, a4], n] + 
    2*S2[a1, a2, a5, SP[a1, a3], a4, n] + 
    2*S2[a1, a2, SP[a1, a3], a4, a5, n] + 
    2*S2[a1, a2, SP[a1, a3], a5, a4, n] - S2[a1, a2, SP[a3, a5], a1, a4, n] + 
    S2[a5, n]*S2[a1, a3, a1, a2, a4, n] + S2[a1, a3, a1, a2, SP[a4, a5], n] + 
    S2[a5, n]*S2[a1, a3, a1, a4, a2, n] - 
    S2[a2, n]*S2[a1, a3, a1, a4, a5, n] - 
    S2[a2, n]*S2[a1, a3, a1, a5, a4, n] - S2[a1, a3, a1, a5, SP[a2, a4], n] - 
    S2[a1, a3, a1, SP[a2, a4], a5, n] + S2[a1, a3, a1, SP[a4, a5], a2, n] + 
    S2[a5, n]*S2[a1, a3, a2, a1, a4, n] + S2[a1, a3, a2, a1, SP[a4, a5], n] + 
    S2[a1, a3, a2, SP[a1, a5], a4, n] - S2[a2, n]*S2[a1, a3, a5, a1, a4, n] - 
    S2[a1, a3, a5, a1, SP[a2, a4], n] - S2[a1, a3, a5, SP[a1, a2], a4, n] - 
    S2[a1, a3, SP[a1, a2], a4, a5, n] - S2[a1, a3, SP[a1, a2], a5, a4, n] + 
    S2[a1, a3, SP[a1, a5], a2, a4, n] + S2[a1, a3, SP[a1, a5], a4, a2, n] - 
    S2[a2, n]*S2[a1, a5, a3, a1, a4, n] - S2[a1, a5, a3, a1, SP[a2, a4], n] - 
    S2[a1, a5, a3, SP[a1, a2], a4, n] - S2[a1, a5, SP[a2, a3], a1, a4, n] + 
    S2[a1, SP[a1, a3], a2, a4, a5, n] + S2[a1, SP[a1, a3], a2, a5, a4, n] + 
    S2[a1, SP[a1, a3], a4, a2, a5, n] + S2[a1, SP[a1, a4], a3, a2, a5, n] - 
    2*S2[a1, SP[a2, a3], a1, a4, a5, n] - 
    2*S2[a1, SP[a2, a3], a1, a5, a4, n] - 
    2*S2[a1, SP[a2, a3], a5, a1, a4, n] - S2[a1, SP[a2, a5], a3, a1, a4, n] + 
    S2[a1, SP[a3, a5], a1, a2, a4, n] + S2[a1, SP[a3, a5], a1, a4, a2, n] + 
    S2[a1, SP[a3, a5], a2, a1, a4, n] - 2*S2[a2, a1, a1, a4, SP[a3, a5], n] + 
    2*S2[a2, a1, a1, a5, SP[a3, a4], n] + 
    2*S2[a2, a1, a1, SP[a3, a4], a5, n] - 
    2*S2[a2, a1, a1, SP[a3, a5], a4, n] + S2[a2, a1, a3, a1, SP[a4, a5], n] + 
    S2[a2, a1, a3, SP[a1, a5], a4, n] + 2*S2[a2, a1, a5, a1, SP[a3, a4], n] + 
    2*S2[a2, a1, a5, SP[a1, a3], a4, n] + 
    2*S2[a2, a1, SP[a1, a3], a4, a5, n] + 
    2*S2[a2, a1, SP[a1, a3], a5, a4, n] - S2[a2, a1, SP[a3, a5], a1, a4, n] - 
    2*S2[a5, n]*S2[a2, a3, a1, a1, a4, n] + 
    2*S2[a2, a5, a1, a1, SP[a3, a4], n] + 
    2*S2[a2, a5, a1, SP[a1, a3], a4, n] + 
    2*S2[a2, a5, SP[a1, a3], a1, a4, n] + 
    2*S2[a2, SP[a1, a3], a1, a4, a5, n] + 
    2*S2[a2, SP[a1, a3], a1, a5, a4, n] + 
    2*S2[a2, SP[a1, a3], a5, a1, a4, n] + S2[a2, SP[a1, a5], a3, a1, a4, n] - 
    2*S2[a2, SP[a3, a5], a1, a1, a4, n] - 
    S2[a2, n]*S2[a5, a1, a3, a1, a4, n] - S2[a5, a1, a3, a1, SP[a2, a4], n] - 
    S2[a5, a1, a3, SP[a1, a2], a4, n] - S2[a5, a1, SP[a2, a3], a1, a4, n] + 
    S2[a1, n]*S2[a5, a2, a3, a1, a4, n] + S2[a5, a2, a3, a1, SP[a1, a4], n] + 
    S2[a5, a2, a3, SP[a1, a1], a4, n] + S2[a5, a2, SP[a1, a3], a1, a4, n] + 
    S2[SP[a1, a1], a3, a2, a4, a5, n] + S2[SP[a1, a1], a3, a2, a5, a4, n] + 
    S2[SP[a1, a1], a3, a4, a2, a5, n] + S2[SP[a1, a1], a4, a3, a2, a5, n] + 
    S2[SP[a1, a5], a2, a3, a1, a4, n] + S2[SP[a1, a5], a3, a1, a2, a4, n] + 
    S2[SP[a1, a5], a3, a1, a4, a2, n] + S2[SP[a1, a5], a3, a2, a1, a4, n] - 
    S2[SP[a2, a5], a1, a3, a1, a4, n] - 2*S2[SP[a2, a5], a3, a1, a1, a4, n] - 
    S2[a5, a2, a3, a1, a4, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a1_, a4_, a1_, a3_, a5_, a2_, n_] :> 
  -2*S2[a1, a1, a4, n]*S2[a2, a5, a3, n] - 
    2*S2[SP[a1, a2], SP[a1, a5], SP[a3, a4], n] + 
    2*S2[a2, a5, n]*S2[a1, a1, a3, a4, n] + 2*S2[a2, a5, n]*
     S2[a1, a1, a4, a3, n] - 2*S2[a1, a1, SP[a2, a3], SP[a4, a5], n] - 
    2*S2[a1, a1, SP[a2, a4], SP[a3, a5], n] + 
    2*S2[a1, a2, SP[a1, a5], SP[a3, a4], n] + 
    S2[a2, a5, n]*S2[a1, a3, a1, a4, n] + S2[a1, a4, n]*
     S2[a1, a3, a5, a2, n] - S2[a1, a3, SP[a1, a2], SP[a4, a5], n] - 
    S2[a1, a3, SP[a1, a5], SP[a2, a4], n] - 
    2*S2[a1, SP[a1, a2], a3, SP[a4, a5], n] - 
    2*S2[a1, SP[a1, a2], a4, SP[a3, a5], n] + 
    2*S2[a1, SP[a1, a2], a5, SP[a3, a4], n] - 
    2*S2[a1, SP[a1, a2], SP[a3, a5], a4, n] - S2[a1, SP[a1, a3], a5, 
     SP[a2, a4], n] - S2[a1, SP[a1, a3], SP[a4, a5], a2, n] - 
    S2[a1, SP[a2, a3], a1, SP[a4, a5], n] - S2[a1, SP[a2, a3], SP[a1, a5], 
     a4, n] + 2*S2[a2, a1, SP[a1, a5], SP[a3, a4], n] + 
    2*S2[a2, SP[a1, a5], a1, SP[a3, a4], n] + 
    2*S2[a2, SP[a1, a5], SP[a1, a3], a4, n] - S2[SP[a1, a1], a3, a5, 
     SP[a2, a4], n] - S2[SP[a1, a1], a3, SP[a4, a5], a2, n] - 
    S2[SP[a1, a1], SP[a3, a4], a5, a2, n] - 
    2*S2[SP[a1, a2], a1, a3, SP[a4, a5], n] - 
    2*S2[SP[a1, a2], a1, a4, SP[a3, a5], n] + 
    2*S2[SP[a1, a2], a1, a5, SP[a3, a4], n] - 
    2*S2[SP[a1, a2], a1, SP[a3, a5], a4, n] - S2[SP[a1, a2], a3, a1, 
     SP[a4, a5], n] - S2[SP[a1, a2], a3, SP[a1, a5], a4, n] + 
    2*S2[SP[a1, a2], a5, a1, SP[a3, a4], n] + 
    2*S2[SP[a1, a2], a5, SP[a1, a3], a4, n] - S2[SP[a1, a2], SP[a3, a5], a1, 
     a4, n] + 2*S2[a1, a1, a2, a3, SP[a4, a5], n] + 
    2*S2[a1, a1, a2, a4, SP[a3, a5], n] - 
    2*S2[a1, a1, a2, a5, SP[a3, a4], n] + 
    2*S2[a1, a1, a2, SP[a3, a5], a4, n] + 
    2*S2[a1, a1, a3, a2, SP[a4, a5], n] - 
    2*S2[a2, n]*S2[a1, a1, a3, a4, a5, n] - 
    2*S2[a1, a1, a3, a4, SP[a2, a5], n] - 
    2*S2[a2, n]*S2[a1, a1, a3, a5, a4, n] - 
    2*S2[a1, a1, a3, SP[a2, a5], a4, n] + 
    2*S2[a1, a1, a3, SP[a4, a5], a2, n] + 
    2*S2[a1, a1, a4, a2, SP[a3, a5], n] - 
    2*S2[a2, n]*S2[a1, a1, a4, a3, a5, n] - 
    2*S2[a1, a1, a4, a3, SP[a2, a5], n] + 
    2*S2[a1, a1, SP[a3, a4], a5, a2, n] + 
    2*S2[a1, a2, a1, a3, SP[a4, a5], n] + 
    2*S2[a1, a2, a1, a4, SP[a3, a5], n] - 
    2*S2[a1, a2, a1, a5, SP[a3, a4], n] + 
    2*S2[a1, a2, a1, SP[a3, a5], a4, n] + S2[a1, a2, a3, a1, SP[a4, a5], n] + 
    S2[a1, a2, a3, SP[a1, a5], a4, n] - 2*S2[a1, a2, a5, a1, SP[a3, a4], n] - 
    2*S2[a1, a2, a5, SP[a1, a3], a4, n] + S2[a1, a2, SP[a3, a5], a1, a4, n] + 
    S2[a1, a3, a1, a2, SP[a4, a5], n] - S2[a2, n]*S2[a1, a3, a1, a4, a5, n] - 
    S2[a1, a3, a1, a4, SP[a2, a5], n] - S2[a2, n]*S2[a1, a3, a1, a5, a4, n] - 
    S2[a1, a3, a1, SP[a2, a5], a4, n] + S2[a1, a3, a1, SP[a4, a5], a2, n] + 
    S2[a1, a3, a2, a1, SP[a4, a5], n] + S2[a1, a3, a2, SP[a1, a5], a4, n] - 
    S2[a2, n]*S2[a1, a3, a5, a1, a4, n] + S2[a1, a3, SP[a1, a5], a2, a4, n] + 
    S2[a1, a3, SP[a1, a5], a4, a2, n] - S2[a1, a3, SP[a2, a5], a1, a4, n] + 
    S2[a2, n]*S2[a1, a5, a3, a1, a4, n] + S2[a1, a5, a3, a1, SP[a2, a4], n] + 
    S2[a1, a5, a3, SP[a1, a2], a4, n] + S2[a1, a5, SP[a2, a3], a1, a4, n] + 
    S2[a1, SP[a1, a3], a4, a5, a2, n] + S2[a1, SP[a1, a3], a5, a2, a4, n] + 
    S2[a1, SP[a1, a3], a5, a4, a2, n] + S2[a1, SP[a1, a4], a3, a5, a2, n] + 
    S2[a1, SP[a2, a5], a3, a1, a4, n] + 2*S2[a2, a1, a1, a3, SP[a4, a5], n] + 
    2*S2[a2, a1, a1, a4, SP[a3, a5], n] - 
    2*S2[a2, a1, a1, a5, SP[a3, a4], n] + 
    2*S2[a2, a1, a1, SP[a3, a5], a4, n] + S2[a2, a1, a3, a1, SP[a4, a5], n] + 
    S2[a2, a1, a3, SP[a1, a5], a4, n] - 2*S2[a2, a1, a5, a1, SP[a3, a4], n] - 
    2*S2[a2, a1, a5, SP[a1, a3], a4, n] + S2[a2, a1, SP[a3, a5], a1, a4, n] - 
    2*S2[a2, a5, a1, a1, SP[a3, a4], n] - 
    2*S2[a2, a5, a1, SP[a1, a3], a4, n] - 
    2*S2[a2, a5, SP[a1, a3], a1, a4, n] - S2[a2, SP[a1, a5], a3, a1, a4, n] + 
    S2[a2, n]*S2[a5, a1, a3, a1, a4, n] + S2[a5, a1, a3, a1, SP[a2, a4], n] + 
    S2[a5, a1, a3, SP[a1, a2], a4, n] + S2[a5, a1, SP[a2, a3], a1, a4, n] - 
    S2[a1, n]*S2[a5, a2, a3, a1, a4, n] - S2[a5, a2, a3, a1, SP[a1, a4], n] - 
    S2[a5, a2, a3, SP[a1, a1], a4, n] - S2[a5, a2, SP[a1, a3], a1, a4, n] + 
    2*S2[a2, n]*S2[a5, a3, a1, a1, a4, n] + 
    2*S2[a5, a3, a1, a1, SP[a2, a4], n] - 
    S2[a1, n]*S2[a5, a3, a1, a2, a4, n] - S2[a5, a3, a1, a2, SP[a1, a4], n] - 
    S2[a1, n]*S2[a5, a3, a1, a4, a2, n] - S2[a5, a3, a1, a4, SP[a1, a2], n] + 
    S2[a5, a3, a1, SP[a1, a2], a4, n] - S2[a5, a3, a1, SP[a1, a4], a2, n] - 
    S2[a1, n]*S2[a5, a3, a2, a1, a4, n] - S2[a5, a3, a2, a1, SP[a1, a4], n] - 
    S2[a5, a3, a2, SP[a1, a1], a4, n] - S2[a5, a3, SP[a1, a1], a2, a4, n] - 
    S2[a5, a3, SP[a1, a1], a4, a2, n] + S2[a5, a3, SP[a1, a2], a1, a4, n] - 
    S2[a5, SP[a1, a3], a1, a2, a4, n] - S2[a5, SP[a1, a3], a1, a4, a2, n] - 
    S2[a5, SP[a1, a3], a2, a1, a4, n] + 2*S2[a5, SP[a2, a3], a1, a1, a4, n] + 
    S2[SP[a1, a1], a3, a4, a5, a2, n] + S2[SP[a1, a1], a3, a5, a2, a4, n] + 
    S2[SP[a1, a1], a3, a5, a4, a2, n] + S2[SP[a1, a1], a4, a3, a5, a2, n] - 
    S2[SP[a1, a5], a2, a3, a1, a4, n] - S2[SP[a1, a5], a3, a1, a2, a4, n] - 
    S2[SP[a1, a5], a3, a1, a4, a2, n] - S2[SP[a1, a5], a3, a2, a1, a4, n] + 
    S2[SP[a2, a5], a1, a3, a1, a4, n] + 2*S2[SP[a2, a5], a3, a1, a1, a4, n] + 
    S2[a5, a2, a3, a1, a4, a1, n] + S2[a5, a3, a1, a2, a4, a1, n] + 
    S2[a5, a3, a1, a4, a1, a2, n] + S2[a5, a3, a1, a4, a2, a1, n] + 
    S2[a5, a3, a2, a1, a4, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a1_, a4_, a1_, a5_, a2_, a3_, n_] :> 
  2*S2[a1, a1, a4, n]*S2[a2, a3, a5, n] + 2*S2[a1, a1, a4, n]*
     S2[a2, a5, a3, n] + 2*S2[SP[a1, a2], SP[a1, a3], SP[a4, a5], n] + 
    2*S2[SP[a1, a2], SP[a1, a5], SP[a3, a4], n] - 
    2*S2[a1, a2, SP[a1, a3], SP[a4, a5], n] - 
    2*S2[a1, a2, SP[a1, a5], SP[a3, a4], n] + 
    S2[a1, a4, n]*S2[a1, a5, a2, a3, n] - S2[a1, a5, SP[a1, a2], SP[a3, a4], 
     n] - 2*S2[a1, SP[a1, a2], a3, SP[a4, a5], n] - 
    2*S2[a1, SP[a1, a2], a5, SP[a3, a4], n] - 
    2*S2[a1, SP[a1, a2], SP[a3, a4], a5, n] - 
    2*S2[a1, SP[a1, a2], SP[a4, a5], a3, n] - S2[a1, SP[a1, a5], a2, 
     SP[a3, a4], n] - S2[a1, SP[a1, a5], SP[a2, a4], a3, n] - 
    2*S2[a2, a1, SP[a1, a3], SP[a4, a5], n] - 
    2*S2[a2, a1, SP[a1, a5], SP[a3, a4], n] - 
    2*S2[a2, SP[a1, a3], a1, SP[a4, a5], n] - 
    2*S2[a2, SP[a1, a3], SP[a1, a5], a4, n] - 
    2*S2[a2, SP[a1, a5], a1, SP[a3, a4], n] - 
    2*S2[a2, SP[a1, a5], SP[a1, a3], a4, n] - S2[SP[a1, a1], a5, a2, 
     SP[a3, a4], n] - S2[SP[a1, a1], a5, SP[a2, a4], a3, n] - 
    S2[SP[a1, a1], SP[a4, a5], a2, a3, n] - 
    2*S2[SP[a1, a2], a1, a3, SP[a4, a5], n] - 
    2*S2[SP[a1, a2], a1, a5, SP[a3, a4], n] - 
    2*S2[SP[a1, a2], a1, SP[a3, a4], a5, n] - 
    2*S2[SP[a1, a2], a1, SP[a4, a5], a3, n] - 
    2*S2[SP[a1, a2], a3, a1, SP[a4, a5], n] - 
    2*S2[SP[a1, a2], a3, SP[a1, a5], a4, n] - 
    2*S2[SP[a1, a2], a5, a1, SP[a3, a4], n] - 
    2*S2[SP[a1, a2], a5, SP[a1, a3], a4, n] - 
    2*S2[SP[a1, a2], SP[a1, a3], a4, a5, n] - 
    2*S2[SP[a1, a2], SP[a1, a3], a5, a4, n] - 
    2*S2[SP[a1, a2], SP[a1, a5], a3, a4, n] - 
    2*S2[SP[a1, a2], SP[a1, a5], a4, a3, n] + 
    2*S2[a1, a1, a2, a3, SP[a4, a5], n] + 
    2*S2[a1, a1, a2, a5, SP[a3, a4], n] + 
    2*S2[a1, a1, a2, SP[a3, a4], a5, n] + 
    2*S2[a1, a1, a2, SP[a4, a5], a3, n] + 
    2*S2[a5, n]*S2[a1, a1, a3, a2, a4, n] + 
    2*S2[a1, a1, a3, a2, SP[a4, a5], n] + 
    2*S2[a5, n]*S2[a1, a1, a3, a4, a2, n] - 
    2*S2[a2, n]*S2[a1, a1, a3, a4, a5, n] - 
    2*S2[a2, n]*S2[a1, a1, a3, a5, a4, n] - 
    2*S2[a1, a1, a3, a5, SP[a2, a4], n] - 
    2*S2[a1, a1, a3, SP[a2, a4], a5, n] + 
    2*S2[a1, a1, a3, SP[a4, a5], a2, n] + 
    2*S2[a5, n]*S2[a1, a1, a4, a3, a2, n] - 
    2*S2[a2, n]*S2[a1, a1, a4, a3, a5, n] - 
    2*S2[a2, n]*S2[a1, a1, a4, a5, a3, n] - 
    2*S2[a1, a1, a4, a5, SP[a2, a3], n] - 
    2*S2[a1, a1, a4, SP[a2, a3], a5, n] - 
    2*S2[a1, a1, a4, SP[a2, a5], a3, n] + 
    2*S2[a1, a1, a4, SP[a3, a5], a2, n] + 
    2*S2[a1, a1, a5, a2, SP[a3, a4], n] - 
    2*S2[a2, n]*S2[a1, a1, a5, a3, a4, n] - 
    2*S2[a1, a1, a5, a3, SP[a2, a4], n] - 
    2*S2[a2, n]*S2[a1, a1, a5, a4, a3, n] - 
    2*S2[a1, a1, a5, a4, SP[a2, a3], n] - 
    2*S2[a1, a1, a5, SP[a2, a3], a4, n] - 
    2*S2[a1, a1, SP[a2, a3], a4, a5, n] - 
    2*S2[a1, a1, SP[a2, a3], a5, a4, n] - 
    2*S2[a1, a1, SP[a2, a5], a3, a4, n] - 
    2*S2[a1, a1, SP[a2, a5], a4, a3, n] + 
    2*S2[a1, a1, SP[a3, a5], a2, a4, n] + 
    2*S2[a1, a1, SP[a3, a5], a4, a2, n] + 
    2*S2[a1, a1, SP[a4, a5], a2, a3, n] + 
    2*S2[a1, a1, SP[a4, a5], a3, a2, n] + 
    2*S2[a1, a2, a1, a3, SP[a4, a5], n] + 
    2*S2[a1, a2, a1, a5, SP[a3, a4], n] + 
    2*S2[a1, a2, a1, SP[a3, a4], a5, n] + 
    2*S2[a1, a2, a1, SP[a4, a5], a3, n] + 
    2*S2[a1, a2, a3, a1, SP[a4, a5], n] + 
    2*S2[a1, a2, a3, SP[a1, a5], a4, n] + 
    2*S2[a1, a2, a5, a1, SP[a3, a4], n] + 
    2*S2[a1, a2, a5, SP[a1, a3], a4, n] + 
    2*S2[a1, a2, SP[a1, a3], a4, a5, n] + 
    2*S2[a1, a2, SP[a1, a3], a5, a4, n] + 
    2*S2[a1, a2, SP[a1, a5], a3, a4, n] + 
    2*S2[a1, a2, SP[a1, a5], a4, a3, n] + 
    2*S2[a5, n]*S2[a1, a3, a1, a2, a4, n] + 
    2*S2[a1, a3, a1, a2, SP[a4, a5], n] + 
    2*S2[a5, n]*S2[a1, a3, a1, a4, a2, n] - 
    2*S2[a2, n]*S2[a1, a3, a1, a4, a5, n] - 
    2*S2[a2, n]*S2[a1, a3, a1, a5, a4, n] - 
    2*S2[a1, a3, a1, a5, SP[a2, a4], n] - 
    2*S2[a1, a3, a1, SP[a2, a4], a5, n] + 
    2*S2[a1, a3, a1, SP[a4, a5], a2, n] + 
    2*S2[a5, n]*S2[a1, a3, a2, a1, a4, n] + 
    2*S2[a1, a3, a2, a1, SP[a4, a5], n] + 
    2*S2[a1, a3, a2, SP[a1, a5], a4, n] - 
    2*S2[a2, n]*S2[a1, a3, a5, a1, a4, n] - 
    2*S2[a1, a3, a5, a1, SP[a2, a4], n] - 
    2*S2[a1, a3, a5, SP[a1, a2], a4, n] - 
    2*S2[a1, a3, SP[a1, a2], a4, a5, n] - 
    2*S2[a1, a3, SP[a1, a2], a5, a4, n] + 
    2*S2[a1, a3, SP[a1, a5], a2, a4, n] + 
    2*S2[a1, a3, SP[a1, a5], a4, a2, n] + S2[a1, a5, a1, a2, SP[a3, a4], n] - 
    2*S2[a2, n]*S2[a1, a5, a1, a3, a4, n] - 
    2*S2[a1, a5, a1, a3, SP[a2, a4], n] - 
    2*S2[a2, n]*S2[a1, a5, a1, a4, a3, n] - 
    2*S2[a1, a5, a1, a4, SP[a2, a3], n] - 
    2*S2[a1, a5, a1, SP[a2, a3], a4, n] - S2[a1, a5, a1, SP[a2, a4], a3, n] + 
    S2[a1, a5, a2, a1, SP[a3, a4], n] + S2[a1, a5, a2, SP[a1, a3], a4, n] - 
    2*S2[a2, n]*S2[a1, a5, a3, a1, a4, n] - 
    2*S2[a1, a5, a3, a1, SP[a2, a4], n] - 
    2*S2[a1, a5, a3, SP[a1, a2], a4, n] - S2[a1, a5, SP[a1, a2], a3, a4, n] - 
    S2[a1, a5, SP[a1, a2], a4, a3, n] - 2*S2[a1, a5, SP[a2, a3], a1, a4, n] + 
    S2[a1, SP[a1, a4], a5, a2, a3, n] + S2[a1, SP[a1, a5], a2, a3, a4, n] + 
    S2[a1, SP[a1, a5], a2, a4, a3, n] + 2*S2[a1, SP[a1, a5], a3, a2, a4, n] + 
    2*S2[a1, SP[a1, a5], a3, a4, a2, n] + S2[a1, SP[a1, a5], a4, a2, a3, n] + 
    2*S2[a1, SP[a1, a5], a4, a3, a2, n] - 
    2*S2[a1, SP[a2, a3], a1, a4, a5, n] - 
    2*S2[a1, SP[a2, a3], a1, a5, a4, n] - 
    2*S2[a1, SP[a2, a3], a5, a1, a4, n] - 
    2*S2[a1, SP[a2, a5], a1, a3, a4, n] - 
    2*S2[a1, SP[a2, a5], a1, a4, a3, n] - 
    2*S2[a1, SP[a2, a5], a3, a1, a4, n] + 
    2*S2[a1, SP[a3, a5], a1, a2, a4, n] + 
    2*S2[a1, SP[a3, a5], a1, a4, a2, n] + 
    2*S2[a1, SP[a3, a5], a2, a1, a4, n] + 
    2*S2[a2, a1, a1, a3, SP[a4, a5], n] + 
    2*S2[a2, a1, a1, a5, SP[a3, a4], n] + 
    2*S2[a2, a1, a1, SP[a3, a4], a5, n] + 
    2*S2[a2, a1, a1, SP[a4, a5], a3, n] + 
    2*S2[a2, a1, a3, a1, SP[a4, a5], n] + 
    2*S2[a2, a1, a3, SP[a1, a5], a4, n] + 
    2*S2[a2, a1, a5, a1, SP[a3, a4], n] + 
    2*S2[a2, a1, a5, SP[a1, a3], a4, n] + 
    2*S2[a2, a1, SP[a1, a3], a4, a5, n] + 
    2*S2[a2, a1, SP[a1, a3], a5, a4, n] + 
    2*S2[a2, a1, SP[a1, a5], a3, a4, n] + 
    2*S2[a2, a1, SP[a1, a5], a4, a3, n] - 
    2*S2[a5, n]*S2[a2, a3, a1, a1, a4, n] + 
    2*S2[a2, a5, a1, a1, SP[a3, a4], n] + 
    2*S2[a2, a5, a1, SP[a1, a3], a4, n] + 
    2*S2[a2, a5, SP[a1, a3], a1, a4, n] + 
    2*S2[a2, SP[a1, a3], a1, a4, a5, n] + 
    2*S2[a2, SP[a1, a3], a1, a5, a4, n] + 
    2*S2[a2, SP[a1, a3], a5, a1, a4, n] + 
    2*S2[a2, SP[a1, a5], a1, a3, a4, n] + 
    2*S2[a2, SP[a1, a5], a1, a4, a3, n] + 
    2*S2[a2, SP[a1, a5], a3, a1, a4, n] - 
    2*S2[a2, SP[a3, a5], a1, a1, a4, n] - 
    2*S2[a2, n]*S2[a5, a1, a1, a3, a4, n] - 
    2*S2[a5, a1, a1, a3, SP[a2, a4], n] - 
    2*S2[a2, n]*S2[a5, a1, a1, a4, a3, n] - 
    2*S2[a5, a1, a1, a4, SP[a2, a3], n] - 
    2*S2[a5, a1, a1, SP[a2, a3], a4, n] - 
    2*S2[a5, a1, a1, SP[a2, a4], a3, n] + 
    S2[a1, n]*S2[a5, a1, a2, a3, a4, n] + S2[a5, a1, a2, a3, SP[a1, a4], n] + 
    S2[a1, n]*S2[a5, a1, a2, a4, a3, n] + S2[a5, a1, a2, a4, SP[a1, a3], n] + 
    S2[a5, a1, a2, SP[a1, a3], a4, n] + S2[a5, a1, a2, SP[a1, a4], a3, n] - 
    2*S2[a2, n]*S2[a5, a1, a3, a1, a4, n] - 
    2*S2[a5, a1, a3, a1, SP[a2, a4], n] - 
    2*S2[a5, a1, a3, SP[a1, a2], a4, n] + 
    S2[a1, n]*S2[a5, a1, a4, a2, a3, n] + S2[a5, a1, a4, a2, SP[a1, a3], n] + 
    S2[a5, a1, a4, SP[a1, a2], a3, n] - S2[a5, a1, SP[a1, a2], a3, a4, n] - 
    S2[a5, a1, SP[a1, a2], a4, a3, n] + S2[a5, a1, SP[a1, a4], a2, a3, n] - 
    2*S2[a5, a1, SP[a2, a3], a1, a4, n] + 
    S2[a1, n]*S2[a5, a2, a1, a3, a4, n] + S2[a5, a2, a1, a3, SP[a1, a4], n] + 
    S2[a1, n]*S2[a5, a2, a1, a4, a3, n] + S2[a5, a2, a1, a4, SP[a1, a3], n] + 
    S2[a5, a2, a1, SP[a1, a3], a4, n] + S2[a5, a2, a1, SP[a1, a4], a3, n] + 
    S2[a1, n]*S2[a5, a2, a3, a1, a4, n] + S2[a5, a2, a3, a1, SP[a1, a4], n] + 
    S2[a5, a2, a3, SP[a1, a1], a4, n] + S2[a5, a2, SP[a1, a1], a3, a4, n] + 
    S2[a5, a2, SP[a1, a1], a4, a3, n] + S2[a5, a2, SP[a1, a3], a1, a4, n] + 
    S2[a5, SP[a1, a1], a2, a3, a4, n] + S2[a5, SP[a1, a1], a2, a4, a3, n] + 
    S2[a5, SP[a1, a1], a4, a2, a3, n] - S2[a5, SP[a1, a2], a1, a3, a4, n] - 
    S2[a5, SP[a1, a2], a1, a4, a3, n] - S2[a5, SP[a1, a2], a3, a1, a4, n] + 
    S2[SP[a1, a1], a4, a5, a2, a3, n] + S2[SP[a1, a1], a5, a2, a3, a4, n] + 
    S2[SP[a1, a1], a5, a2, a4, a3, n] + S2[SP[a1, a1], a5, a4, a2, a3, n] + 
    S2[SP[a1, a5], a1, a2, a3, a4, n] + S2[SP[a1, a5], a1, a2, a4, a3, n] + 
    2*S2[SP[a1, a5], a1, a3, a2, a4, n] + 
    2*S2[SP[a1, a5], a1, a3, a4, a2, n] + S2[SP[a1, a5], a1, a4, a2, a3, n] + 
    2*S2[SP[a1, a5], a1, a4, a3, a2, n] + S2[SP[a1, a5], a2, a1, a3, a4, n] + 
    S2[SP[a1, a5], a2, a1, a4, a3, n] + S2[SP[a1, a5], a2, a3, a1, a4, n] + 
    2*S2[SP[a1, a5], a3, a1, a2, a4, n] + 
    2*S2[SP[a1, a5], a3, a1, a4, a2, n] + 
    2*S2[SP[a1, a5], a3, a2, a1, a4, n] - 
    2*S2[SP[a2, a5], a1, a1, a3, a4, n] - 
    2*S2[SP[a2, a5], a1, a1, a4, a3, n] - 
    2*S2[SP[a2, a5], a1, a3, a1, a4, n] - 
    2*S2[SP[a2, a5], a3, a1, a1, a4, n] - S2[a5, a1, a2, a3, a4, a1, n] - 
    S2[a5, a1, a2, a4, a1, a3, n] - S2[a5, a1, a2, a4, a3, a1, n] - 
    S2[a5, a1, a4, a1, a2, a3, n] - S2[a5, a1, a4, a2, a1, a3, n] - 
    S2[a5, a1, a4, a2, a3, a1, n] - S2[a5, a2, a1, a3, a4, a1, n] - 
    S2[a5, a2, a1, a4, a1, a3, n] - S2[a5, a2, a1, a4, a3, a1, n] - 
    S2[a5, a2, a3, a1, a4, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a1_, a4_, a1_, a5_, a3_, a2_, n_] :> 
  -2*S2[a1, a1, a4, n]*S2[a2, a3, a5, n] - 
    2*S2[SP[a1, a2], SP[a1, a3], SP[a4, a5], n] + 
    2*S2[a1, a2, SP[a1, a3], SP[a4, a5], n] + 
    S2[a1, a4, n]*S2[a1, a5, a3, a2, n] - S2[a1, a5, SP[a1, a3], SP[a2, a4], 
     n] + 2*S2[a1, SP[a1, a2], a3, SP[a4, a5], n] + 
    2*S2[a1, SP[a1, a2], SP[a3, a4], a5, n] - S2[a1, SP[a1, a5], a3, 
     SP[a2, a4], n] - S2[a1, SP[a1, a5], SP[a3, a4], a2, n] + 
    2*S2[a2, a1, SP[a1, a3], SP[a4, a5], n] + 
    2*S2[a2, SP[a1, a3], a1, SP[a4, a5], n] + 
    2*S2[a2, SP[a1, a3], SP[a1, a5], a4, n] - S2[SP[a1, a1], a5, a3, 
     SP[a2, a4], n] - S2[SP[a1, a1], a5, SP[a3, a4], a2, n] - 
    S2[SP[a1, a1], SP[a4, a5], a3, a2, n] + 
    2*S2[SP[a1, a2], a1, a3, SP[a4, a5], n] + 
    2*S2[SP[a1, a2], a1, SP[a3, a4], a5, n] + 
    2*S2[SP[a1, a2], a3, a1, SP[a4, a5], n] + 
    2*S2[SP[a1, a2], a3, SP[a1, a5], a4, n] + 
    2*S2[SP[a1, a2], SP[a1, a3], a4, a5, n] + 
    2*S2[SP[a1, a2], SP[a1, a3], a5, a4, n] - 
    2*S2[a1, a1, a2, a3, SP[a4, a5], n] - 
    2*S2[a1, a1, a2, SP[a3, a4], a5, n] - 
    2*S2[a5, n]*S2[a1, a1, a3, a2, a4, n] - 
    2*S2[a1, a1, a3, a2, SP[a4, a5], n] - 
    2*S2[a5, n]*S2[a1, a1, a3, a4, a2, n] + 
    2*S2[a2, n]*S2[a1, a1, a3, a4, a5, n] + 
    2*S2[a2, n]*S2[a1, a1, a3, a5, a4, n] + 
    2*S2[a1, a1, a3, a5, SP[a2, a4], n] + 
    2*S2[a1, a1, a3, SP[a2, a4], a5, n] - 
    2*S2[a1, a1, a3, SP[a4, a5], a2, n] - 
    2*S2[a5, n]*S2[a1, a1, a4, a3, a2, n] + 
    2*S2[a2, n]*S2[a1, a1, a4, a3, a5, n] + 
    2*S2[a1, a1, a4, SP[a2, a3], a5, n] - 
    2*S2[a1, a1, a4, SP[a3, a5], a2, n] + 
    2*S2[a1, a1, a5, a3, SP[a2, a4], n] + 
    2*S2[a1, a1, a5, SP[a3, a4], a2, n] + 
    2*S2[a1, a1, SP[a2, a3], a4, a5, n] + 
    2*S2[a1, a1, SP[a2, a3], a5, a4, n] - 
    2*S2[a1, a1, SP[a3, a5], a2, a4, n] - 
    2*S2[a1, a1, SP[a3, a5], a4, a2, n] - 
    2*S2[a1, a2, a1, a3, SP[a4, a5], n] - 
    2*S2[a1, a2, a1, SP[a3, a4], a5, n] - 
    2*S2[a1, a2, a3, a1, SP[a4, a5], n] - 
    2*S2[a1, a2, a3, SP[a1, a5], a4, n] - 
    2*S2[a1, a2, SP[a1, a3], a4, a5, n] - 
    2*S2[a1, a2, SP[a1, a3], a5, a4, n] - 
    2*S2[a5, n]*S2[a1, a3, a1, a2, a4, n] - 
    2*S2[a1, a3, a1, a2, SP[a4, a5], n] - 
    2*S2[a5, n]*S2[a1, a3, a1, a4, a2, n] + 
    2*S2[a2, n]*S2[a1, a3, a1, a4, a5, n] + 
    2*S2[a2, n]*S2[a1, a3, a1, a5, a4, n] + 
    2*S2[a1, a3, a1, a5, SP[a2, a4], n] + 
    2*S2[a1, a3, a1, SP[a2, a4], a5, n] - 
    2*S2[a1, a3, a1, SP[a4, a5], a2, n] - 
    2*S2[a5, n]*S2[a1, a3, a2, a1, a4, n] - 
    2*S2[a1, a3, a2, a1, SP[a4, a5], n] - 
    2*S2[a1, a3, a2, SP[a1, a5], a4, n] + 
    2*S2[a2, n]*S2[a1, a3, a5, a1, a4, n] + 
    2*S2[a1, a3, a5, a1, SP[a2, a4], n] + 
    2*S2[a1, a3, a5, SP[a1, a2], a4, n] + 
    2*S2[a1, a3, SP[a1, a2], a4, a5, n] + 
    2*S2[a1, a3, SP[a1, a2], a5, a4, n] - 
    2*S2[a1, a3, SP[a1, a5], a2, a4, n] - 
    2*S2[a1, a3, SP[a1, a5], a4, a2, n] + S2[a1, a5, a1, a3, SP[a2, a4], n] + 
    S2[a1, a5, a1, SP[a3, a4], a2, n] + S2[a1, a5, a3, a1, SP[a2, a4], n] + 
    S2[a1, a5, a3, SP[a1, a2], a4, n] + S2[a1, a5, SP[a1, a3], a2, a4, n] + 
    S2[a1, a5, SP[a1, a3], a4, a2, n] + S2[a1, SP[a1, a4], a5, a3, a2, n] - 
    S2[a1, SP[a1, a5], a3, a2, a4, n] - S2[a1, SP[a1, a5], a3, a4, a2, n] - 
    S2[a1, SP[a1, a5], a4, a3, a2, n] + 2*S2[a1, SP[a2, a3], a1, a4, a5, n] + 
    2*S2[a1, SP[a2, a3], a1, a5, a4, n] + 
    2*S2[a1, SP[a2, a3], a5, a1, a4, n] - 
    2*S2[a1, SP[a3, a5], a1, a2, a4, n] - 
    2*S2[a1, SP[a3, a5], a1, a4, a2, n] - 
    2*S2[a1, SP[a3, a5], a2, a1, a4, n] - 
    2*S2[a2, a1, a1, a3, SP[a4, a5], n] - 
    2*S2[a2, a1, a1, SP[a3, a4], a5, n] - 
    2*S2[a2, a1, a3, a1, SP[a4, a5], n] - 
    2*S2[a2, a1, a3, SP[a1, a5], a4, n] - 
    2*S2[a2, a1, SP[a1, a3], a4, a5, n] - 
    2*S2[a2, a1, SP[a1, a3], a5, a4, n] + 
    2*S2[a5, n]*S2[a2, a3, a1, a1, a4, n] - 
    2*S2[a2, SP[a1, a3], a1, a4, a5, n] - 
    2*S2[a2, SP[a1, a3], a1, a5, a4, n] - 
    2*S2[a2, SP[a1, a3], a5, a1, a4, n] + 
    2*S2[a2, SP[a3, a5], a1, a1, a4, n] + 
    S2[a1, n]*S2[a5, a1, a3, a2, a4, n] + S2[a5, a1, a3, a2, SP[a1, a4], n] + 
    S2[a1, n]*S2[a5, a1, a3, a4, a2, n] + S2[a5, a1, a3, a4, SP[a1, a2], n] + 
    S2[a5, a1, a3, SP[a1, a2], a4, n] + S2[a5, a1, a3, SP[a1, a4], a2, n] + 
    S2[a1, n]*S2[a5, a1, a4, a3, a2, n] + S2[a5, a1, a4, a3, SP[a1, a2], n] + 
    S2[a5, a1, a4, SP[a1, a3], a2, n] + S2[a5, a1, SP[a1, a3], a2, a4, n] + 
    S2[a5, a1, SP[a1, a3], a4, a2, n] + S2[a5, a1, SP[a1, a4], a3, a2, n] - 
    2*S2[a2, n]*S2[a5, a3, a1, a1, a4, n] - 
    2*S2[a5, a3, a1, a1, SP[a2, a4], n] + 
    S2[a1, n]*S2[a5, a3, a1, a2, a4, n] + S2[a5, a3, a1, a2, SP[a1, a4], n] + 
    S2[a1, n]*S2[a5, a3, a1, a4, a2, n] + S2[a5, a3, a1, a4, SP[a1, a2], n] - 
    S2[a5, a3, a1, SP[a1, a2], a4, n] + S2[a5, a3, a1, SP[a1, a4], a2, n] + 
    S2[a1, n]*S2[a5, a3, a2, a1, a4, n] + S2[a5, a3, a2, a1, SP[a1, a4], n] + 
    S2[a5, a3, a2, SP[a1, a1], a4, n] + S2[a5, a3, SP[a1, a1], a2, a4, n] + 
    S2[a5, a3, SP[a1, a1], a4, a2, n] - S2[a5, a3, SP[a1, a2], a1, a4, n] + 
    S2[a5, SP[a1, a1], a3, a2, a4, n] + S2[a5, SP[a1, a1], a3, a4, a2, n] + 
    S2[a5, SP[a1, a1], a4, a3, a2, n] + S2[a5, SP[a1, a3], a1, a2, a4, n] + 
    S2[a5, SP[a1, a3], a1, a4, a2, n] + S2[a5, SP[a1, a3], a2, a1, a4, n] - 
    2*S2[a5, SP[a2, a3], a1, a1, a4, n] + S2[SP[a1, a1], a4, a5, a3, a2, n] + 
    S2[SP[a1, a1], a5, a3, a2, a4, n] + S2[SP[a1, a1], a5, a3, a4, a2, n] + 
    S2[SP[a1, a1], a5, a4, a3, a2, n] - S2[SP[a1, a5], a1, a3, a2, a4, n] - 
    S2[SP[a1, a5], a1, a3, a4, a2, n] - S2[SP[a1, a5], a1, a4, a3, a2, n] - 
    S2[SP[a1, a5], a3, a1, a2, a4, n] - S2[SP[a1, a5], a3, a1, a4, a2, n] - 
    S2[SP[a1, a5], a3, a2, a1, a4, n] - S2[a5, a1, a3, a2, a4, a1, n] - 
    S2[a5, a1, a3, a4, a1, a2, n] - S2[a5, a1, a3, a4, a2, a1, n] - 
    S2[a5, a1, a4, a1, a3, a2, n] - S2[a5, a1, a4, a3, a1, a2, n] - 
    S2[a5, a1, a4, a3, a2, a1, n] - S2[a5, a3, a1, a2, a4, a1, n] - 
    S2[a5, a3, a1, a4, a1, a2, n] - S2[a5, a3, a1, a4, a2, a1, n] - 
    S2[a5, a3, a2, a1, a4, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a1_, a4_, a2_, a1_, a3_, a5_, n_] :> 
  S2[a1, a3, a5, n]*S2[a1, a4, a2, n] + S2[SP[a1, a1], SP[a3, a4], 
     SP[a2, a5], n] + 2*S2[a3, a5, n]*S2[a1, a1, a2, a4, n] - 
    2*S2[a1, a1, SP[a2, a3], SP[a4, a5], n] - 
    2*S2[a1, a1, SP[a3, a4], SP[a2, a5], n] + 
    S2[a3, a5, n]*S2[a1, a2, a1, a4, n] - S2[a1, a4, n]*
     S2[a1, a2, a3, a5, n] - S2[a1, a4, n]*S2[a1, a3, a2, a5, n] - 
    S2[a1, a4, n]*S2[a1, a3, a5, a2, n] + S2[a1, a3, SP[a1, a2], SP[a4, a5], 
     n] + S2[a1, a3, SP[a1, a5], SP[a2, a4], n] + S2[a1, SP[a1, a2], a3, 
     SP[a4, a5], n] + S2[a1, SP[a1, a2], SP[a3, a4], a5, n] - 
    S2[a1, SP[a1, a3], a2, SP[a4, a5], n] - S2[a1, SP[a1, a3], a4, 
     SP[a2, a5], n] + S2[a1, SP[a1, a3], a5, SP[a2, a4], n] + 
    S2[a1, SP[a1, a3], SP[a2, a4], a5, n] - 
    2*S2[a1, SP[a1, a3], SP[a2, a5], a4, n] - S2[a1, SP[a1, a4], a3, 
     SP[a2, a5], n] - S2[a1, SP[a1, a4], SP[a2, a3], a5, n] - 
    S2[a1, SP[a2, a3], a1, SP[a4, a5], n] - S2[a1, SP[a2, a3], SP[a1, a5], 
     a4, n] + S2[SP[a1, a1], a2, a3, SP[a4, a5], n] + 
    S2[SP[a1, a1], a2, SP[a3, a4], a5, n] + S2[SP[a1, a1], a3, a2, 
     SP[a4, a5], n] - S2[SP[a1, a1], a3, a4, SP[a2, a5], n] + 
    S2[SP[a1, a1], a3, a5, SP[a2, a4], n] + S2[SP[a1, a1], a3, SP[a2, a4], 
     a5, n] - S2[SP[a1, a1], a4, a3, SP[a2, a5], n] - 
    S2[SP[a1, a1], a4, SP[a2, a3], a5, n] + S2[SP[a1, a1], SP[a2, a4], a3, 
     a5, n] - 2*S2[SP[a1, a3], a1, a2, SP[a4, a5], n] - 
    2*S2[SP[a1, a3], a1, SP[a2, a5], a4, n] - S2[SP[a1, a3], a2, a1, 
     SP[a4, a5], n] - S2[SP[a1, a3], a2, SP[a1, a5], a4, n] - 
    2*S2[SP[a1, a3], SP[a1, a5], a2, a4, n] - S2[SP[a1, a3], SP[a2, a5], a1, 
     a4, n] + 2*S2[a5, n]*S2[a1, a1, a2, a3, a4, n] + 
    2*S2[a1, a1, a2, a3, SP[a4, a5], n] + 
    2*S2[a5, n]*S2[a1, a1, a2, a4, a3, n] - 
    2*S2[a3, n]*S2[a1, a1, a2, a4, a5, n] - 
    2*S2[a3, n]*S2[a1, a1, a2, a5, a4, n] - 
    2*S2[a1, a1, a2, a5, SP[a3, a4], n] - 
    2*S2[a1, a1, a2, SP[a3, a4], a5, n] + 
    2*S2[a1, a1, a2, SP[a4, a5], a3, n] + 
    2*S2[a5, n]*S2[a1, a1, a3, a2, a4, n] + 
    2*S2[a1, a1, a3, a2, SP[a4, a5], n] + 
    2*S2[a1, a1, a3, a4, SP[a2, a5], n] - 
    2*S2[a1, a1, a3, a5, SP[a2, a4], n] - 
    2*S2[a1, a1, a3, SP[a2, a4], a5, n] + 
    4*S2[a1, a1, a3, SP[a2, a5], a4, n] + 
    2*S2[a1, a1, a4, a3, SP[a2, a5], n] + 
    2*S2[a1, a1, a4, SP[a2, a3], a5, n] - 
    2*S2[a3, n]*S2[a1, a1, a5, a2, a4, n] - 
    2*S2[a1, a1, a5, a2, SP[a3, a4], n] - 
    2*S2[a1, a1, a5, SP[a2, a3], a4, n] - 
    2*S2[a1, a1, SP[a2, a4], a3, a5, n] + 
    2*S2[a1, a1, SP[a2, a5], a3, a4, n] + 
    2*S2[a1, a1, SP[a2, a5], a4, a3, n] + 
    S2[a5, n]*S2[a1, a2, a1, a3, a4, n] + S2[a1, a2, a1, a3, SP[a4, a5], n] + 
    S2[a5, n]*S2[a1, a2, a1, a4, a3, n] - 
    S2[a3, n]*S2[a1, a2, a1, a4, a5, n] - 
    S2[a3, n]*S2[a1, a2, a1, a5, a4, n] - S2[a1, a2, a1, a5, SP[a3, a4], n] - 
    S2[a1, a2, a1, SP[a3, a4], a5, n] + S2[a1, a2, a1, SP[a4, a5], a3, n] + 
    S2[a5, n]*S2[a1, a2, a3, a1, a4, n] + S2[a1, a2, a3, a1, SP[a4, a5], n] + 
    S2[a1, a2, a3, SP[a1, a5], a4, n] - S2[a3, n]*S2[a1, a2, a5, a1, a4, n] - 
    S2[a1, a2, a5, a1, SP[a3, a4], n] - S2[a1, a2, a5, SP[a1, a3], a4, n] - 
    S2[a1, a2, SP[a1, a3], a4, a5, n] - S2[a1, a2, SP[a1, a3], a5, a4, n] + 
    S2[a1, a2, SP[a1, a5], a3, a4, n] + S2[a1, a2, SP[a1, a5], a4, a3, n] + 
    S2[a5, n]*S2[a1, a3, a1, a2, a4, n] + 
    2*S2[a1, a3, a1, a2, SP[a4, a5], n] + S2[a1, a3, a1, a4, SP[a2, a5], n] - 
    S2[a1, a3, a1, a5, SP[a2, a4], n] - S2[a1, a3, a1, SP[a2, a4], a5, n] + 
    3*S2[a1, a3, a1, SP[a2, a5], a4, n] + 
    S2[a5, n]*S2[a1, a3, a2, a1, a4, n] + S2[a1, a3, a2, a1, SP[a4, a5], n] + 
    S2[a1, a3, a2, SP[a1, a5], a4, n] - S2[a1, a3, a5, a1, SP[a2, a4], n] - 
    S2[a1, a3, a5, SP[a1, a2], a4, n] - S2[a1, a3, SP[a1, a2], a4, a5, n] - 
    S2[a1, a3, SP[a1, a2], a5, a4, n] + 2*S2[a1, a3, SP[a1, a5], a2, a4, n] + 
    2*S2[a1, a3, SP[a2, a5], a1, a4, n] + S2[a1, a4, a1, a3, SP[a2, a5], n] + 
    S2[a1, a4, a1, SP[a2, a3], a5, n] + S2[a1, a4, SP[a1, a2], a3, a5, n] - 
    2*S2[a3, n]*S2[a1, a5, a1, a2, a4, n] - 
    2*S2[a1, a5, a1, a2, SP[a3, a4], n] - 
    2*S2[a1, a5, a1, SP[a2, a3], a4, n] - 
    S2[a3, n]*S2[a1, a5, a2, a1, a4, n] - S2[a1, a5, a2, a1, SP[a3, a4], n] - 
    S2[a1, a5, a2, SP[a1, a3], a4, n] - 2*S2[a1, a5, SP[a1, a3], a2, a4, n] - 
    S2[a1, a5, SP[a2, a3], a1, a4, n] - S2[a1, SP[a1, a2], a3, a4, a5, n] - 
    S2[a1, SP[a1, a2], a3, a5, a4, n] - S2[a1, SP[a1, a2], a4, a3, a5, n] - 
    S2[a1, SP[a1, a3], a2, a4, a5, n] - S2[a1, SP[a1, a3], a2, a5, a4, n] - 
    S2[a1, SP[a1, a3], a5, a2, a4, n] + 2*S2[a1, SP[a1, a5], a2, a3, a4, n] + 
    2*S2[a1, SP[a1, a5], a2, a4, a3, n] + 
    2*S2[a1, SP[a1, a5], a3, a2, a4, n] + S2[a1, SP[a2, a5], a1, a3, a4, n] + 
    S2[a1, SP[a2, a5], a1, a4, a3, n] + S2[a1, SP[a2, a5], a3, a1, a4, n] - 
    S2[a1, SP[a3, a5], a1, a2, a4, n] + 2*S2[a3, a1, a1, a2, SP[a4, a5], n] + 
    2*S2[a3, a1, a1, SP[a2, a5], a4, n] + S2[a3, a1, a2, a1, SP[a4, a5], n] + 
    S2[a3, a1, a2, SP[a1, a5], a4, n] + 2*S2[a3, a1, SP[a1, a5], a2, a4, n] + 
    S2[a3, a1, SP[a2, a5], a1, a4, n] + 2*S2[a3, SP[a1, a5], a1, a2, a4, n] + 
    S2[a3, SP[a1, a5], a2, a1, a4, n] - 2*S2[a3, n]*
     S2[a5, a1, a1, a2, a4, n] - 2*S2[a5, a1, a1, a2, SP[a3, a4], n] - 
    2*S2[a5, a1, a1, SP[a2, a3], a4, n] - 
    S2[a3, n]*S2[a5, a1, a2, a1, a4, n] - S2[a5, a1, a2, a1, SP[a3, a4], n] - 
    S2[a5, a1, a2, SP[a1, a3], a4, n] - 2*S2[a5, a1, SP[a1, a3], a2, a4, n] - 
    S2[a5, a1, SP[a2, a3], a1, a4, n] + S2[a1, n]*S2[a5, a3, a1, a2, a4, n] + 
    S2[a5, a3, a1, a2, SP[a1, a4], n] + S2[a5, a3, a1, SP[a1, a2], a4, n] + 
    S2[a5, a3, SP[a1, a1], a2, a4, n] - S2[a5, SP[a1, a3], a1, a2, a4, n] - 
    S2[a5, SP[a1, a3], a2, a1, a4, n] - S2[SP[a1, a1], a2, a3, a4, a5, n] - 
    S2[SP[a1, a1], a2, a3, a5, a4, n] - S2[SP[a1, a1], a2, a4, a3, a5, n] - 
    S2[SP[a1, a1], a3, a2, a4, a5, n] - S2[SP[a1, a1], a3, a2, a5, a4, n] - 
    S2[SP[a1, a1], a3, a5, a2, a4, n] + 2*S2[SP[a1, a5], a1, a2, a3, a4, n] + 
    2*S2[SP[a1, a5], a1, a2, a4, a3, n] + 
    2*S2[SP[a1, a5], a1, a3, a2, a4, n] + S2[SP[a1, a5], a2, a1, a3, a4, n] + 
    S2[SP[a1, a5], a2, a1, a4, a3, n] + S2[SP[a1, a5], a2, a3, a1, a4, n] + 
    2*S2[SP[a1, a5], a3, a1, a2, a4, n] + S2[SP[a1, a5], a3, a2, a1, a4, n] - 
    2*S2[SP[a3, a5], a1, a1, a2, a4, n] - S2[SP[a3, a5], a1, a2, a1, a4, n] - 
    S2[a5, a3, a1, a2, a4, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a1_, a4_, a2_, a1_, a5_, a3_, n_] :> 
  S2[a1, a4, a2, n]*S2[a1, a5, a3, n] + S2[SP[a1, a1], SP[a4, a5], 
     SP[a2, a3], n] - 2*S2[a3, a5, n]*S2[a1, a1, a2, a4, n] + 
    2*S2[a1, a1, SP[a2, a3], SP[a4, a5], n] - 
    2*S2[a1, a1, SP[a4, a5], SP[a2, a3], n] - 
    S2[a3, a5, n]*S2[a1, a2, a1, a4, n] - S2[a1, a4, n]*
     S2[a1, a2, a5, a3, n] + S2[a1, a2, SP[a1, a3], SP[a4, a5], n] + 
    S2[a1, a2, SP[a1, a5], SP[a3, a4], n] - S2[a1, a4, n]*
     S2[a1, a5, a2, a3, n] - S2[a1, a4, n]*S2[a1, a5, a3, a2, n] + 
    S2[a1, a5, SP[a1, a2], SP[a3, a4], n] + S2[a1, a5, SP[a1, a3], 
     SP[a2, a4], n] + S2[a1, SP[a1, a2], a5, SP[a3, a4], n] + 
    S2[a1, SP[a1, a2], SP[a4, a5], a3, n] + 
    2*S2[a1, SP[a1, a3], a2, SP[a4, a5], n] + 
    2*S2[a1, SP[a1, a3], SP[a2, a5], a4, n] - S2[a1, SP[a1, a4], a5, 
     SP[a2, a3], n] - S2[a1, SP[a1, a4], SP[a2, a5], a3, n] + 
    S2[a1, SP[a1, a5], a2, SP[a3, a4], n] + S2[a1, SP[a1, a5], a3, 
     SP[a2, a4], n] - S2[a1, SP[a1, a5], a4, SP[a2, a3], n] + 
    S2[a1, SP[a1, a5], SP[a2, a4], a3, n] + S2[a1, SP[a2, a3], a1, 
     SP[a4, a5], n] + S2[a1, SP[a2, a3], SP[a1, a5], a4, n] + 
    S2[SP[a1, a1], a2, a5, SP[a3, a4], n] + S2[SP[a1, a1], a2, SP[a4, a5], 
     a3, n] - S2[SP[a1, a1], a4, a5, SP[a2, a3], n] - 
    S2[SP[a1, a1], a4, SP[a2, a5], a3, n] + S2[SP[a1, a1], a5, a2, 
     SP[a3, a4], n] + S2[SP[a1, a1], a5, a3, SP[a2, a4], n] - 
    S2[SP[a1, a1], a5, a4, SP[a2, a3], n] + S2[SP[a1, a1], a5, SP[a2, a4], 
     a3, n] + S2[SP[a1, a1], SP[a2, a4], a5, a3, n] + 
    2*S2[SP[a1, a3], a1, a2, SP[a4, a5], n] + 
    2*S2[SP[a1, a3], a1, SP[a2, a5], a4, n] + S2[SP[a1, a3], a2, a1, 
     SP[a4, a5], n] + S2[SP[a1, a3], a2, SP[a1, a5], a4, n] + 
    2*S2[SP[a1, a3], SP[a1, a5], a2, a4, n] + S2[SP[a1, a3], SP[a2, a5], a1, 
     a4, n] - 2*S2[a1, a1, a2, a3, SP[a4, a5], n] + 
    2*S2[a3, n]*S2[a1, a1, a2, a4, a5, n] + 
    2*S2[a1, a1, a2, a4, SP[a3, a5], n] + 
    2*S2[a3, n]*S2[a1, a1, a2, a5, a4, n] + 
    2*S2[a1, a1, a2, SP[a3, a5], a4, n] - 
    2*S2[a1, a1, a2, SP[a4, a5], a3, n] - 
    2*S2[a1, a1, a3, a2, SP[a4, a5], n] - 
    2*S2[a1, a1, a3, SP[a2, a5], a4, n] + 
    2*S2[a1, a1, a4, a5, SP[a2, a3], n] + 
    2*S2[a1, a1, a4, SP[a2, a5], a3, n] + 
    2*S2[a3, n]*S2[a1, a1, a5, a2, a4, n] - 
    2*S2[a1, a1, a5, a3, SP[a2, a4], n] + 
    2*S2[a1, a1, a5, a4, SP[a2, a3], n] + 
    2*S2[a1, a1, a5, SP[a2, a3], a4, n] - 
    2*S2[a1, a1, a5, SP[a2, a4], a3, n] - 
    2*S2[a1, a1, SP[a2, a4], a5, a3, n] + 
    2*S2[a1, a1, SP[a3, a5], a2, a4, n] - S2[a1, a2, a1, a3, SP[a4, a5], n] + 
    S2[a3, n]*S2[a1, a2, a1, a4, a5, n] + S2[a1, a2, a1, a4, SP[a3, a5], n] + 
    S2[a3, n]*S2[a1, a2, a1, a5, a4, n] + S2[a1, a2, a1, SP[a3, a5], a4, n] - 
    S2[a1, a2, a1, SP[a4, a5], a3, n] - S2[a1, a2, a3, a1, SP[a4, a5], n] - 
    S2[a1, a2, a3, SP[a1, a5], a4, n] + S2[a3, n]*S2[a1, a2, a5, a1, a4, n] - 
    S2[a1, a2, SP[a1, a5], a3, a4, n] - S2[a1, a2, SP[a1, a5], a4, a3, n] + 
    S2[a1, a2, SP[a3, a5], a1, a4, n] - 2*S2[a1, a3, a1, a2, SP[a4, a5], n] - 
    2*S2[a1, a3, a1, SP[a2, a5], a4, n] - S2[a1, a3, a2, a1, SP[a4, a5], n] - 
    S2[a1, a3, a2, SP[a1, a5], a4, n] - 2*S2[a1, a3, SP[a1, a5], a2, a4, n] - 
    S2[a1, a3, SP[a2, a5], a1, a4, n] + S2[a1, a4, a1, a5, SP[a2, a3], n] + 
    S2[a1, a4, a1, SP[a2, a5], a3, n] + S2[a1, a4, SP[a1, a2], a5, a3, n] + 
    2*S2[a3, n]*S2[a1, a5, a1, a2, a4, n] + S2[a1, a5, a1, a2, SP[a3, a4], 
     n] - S2[a1, a5, a1, a3, SP[a2, a4], n] + S2[a1, a5, a1, a4, SP[a2, a3], 
     n] + 2*S2[a1, a5, a1, SP[a2, a3], a4, n] - S2[a1, a5, a1, SP[a2, a4], 
     a3, n] + S2[a3, n]*S2[a1, a5, a2, a1, a4, n] - 
    S2[a1, a5, a3, a1, SP[a2, a4], n] - S2[a1, a5, a3, SP[a1, a2], a4, n] - 
    S2[a1, a5, SP[a1, a2], a3, a4, n] - S2[a1, a5, SP[a1, a2], a4, a3, n] + 
    S2[a1, a5, SP[a1, a3], a2, a4, n] + S2[a1, a5, SP[a2, a3], a1, a4, n] - 
    S2[a1, SP[a1, a2], a4, a5, a3, n] - S2[a1, SP[a1, a2], a5, a3, a4, n] - 
    S2[a1, SP[a1, a2], a5, a4, a3, n] - S2[a1, SP[a1, a5], a2, a3, a4, n] - 
    S2[a1, SP[a1, a5], a2, a4, a3, n] - S2[a1, SP[a1, a5], a3, a2, a4, n] + 
    2*S2[a1, SP[a3, a5], a1, a2, a4, n] + S2[a1, SP[a3, a5], a2, a1, a4, n] - 
    2*S2[a3, a1, a1, a2, SP[a4, a5], n] - 
    2*S2[a3, a1, a1, SP[a2, a5], a4, n] - S2[a3, a1, a2, a1, SP[a4, a5], n] - 
    S2[a3, a1, a2, SP[a1, a5], a4, n] - 2*S2[a3, a1, SP[a1, a5], a2, a4, n] - 
    S2[a3, a1, SP[a2, a5], a1, a4, n] - 2*S2[a3, SP[a1, a5], a1, a2, a4, n] - 
    S2[a3, SP[a1, a5], a2, a1, a4, n] + 2*S2[a3, n]*
     S2[a5, a1, a1, a2, a4, n] + 2*S2[a5, a1, a1, a2, SP[a3, a4], n] + 
    2*S2[a5, a1, a1, SP[a2, a3], a4, n] + 
    S2[a3, n]*S2[a5, a1, a2, a1, a4, n] + S2[a5, a1, a2, a1, SP[a3, a4], n] - 
    S2[a1, n]*S2[a5, a1, a2, a3, a4, n] - S2[a5, a1, a2, a3, SP[a1, a4], n] - 
    S2[a1, n]*S2[a5, a1, a2, a4, a3, n] - S2[a5, a1, a2, a4, SP[a1, a3], n] - 
    S2[a5, a1, a2, SP[a1, a4], a3, n] - S2[a1, n]*S2[a5, a1, a3, a2, a4, n] - 
    S2[a5, a1, a3, a2, SP[a1, a4], n] - S2[a5, a1, a3, SP[a1, a2], a4, n] - 
    S2[a5, a1, SP[a1, a2], a3, a4, n] - S2[a5, a1, SP[a1, a2], a4, a3, n] + 
    S2[a5, a1, SP[a1, a3], a2, a4, n] + S2[a5, a1, SP[a2, a3], a1, a4, n] - 
    S2[a1, n]*S2[a5, a3, a1, a2, a4, n] - S2[a5, a3, a1, a2, SP[a1, a4], n] - 
    S2[a5, a3, a1, SP[a1, a2], a4, n] - S2[a5, a3, SP[a1, a1], a2, a4, n] - 
    S2[a5, SP[a1, a1], a2, a3, a4, n] - S2[a5, SP[a1, a1], a2, a4, a3, n] - 
    S2[a5, SP[a1, a1], a3, a2, a4, n] + S2[a5, SP[a1, a3], a1, a2, a4, n] + 
    S2[a5, SP[a1, a3], a2, a1, a4, n] - S2[SP[a1, a1], a2, a4, a5, a3, n] - 
    S2[SP[a1, a1], a2, a5, a3, a4, n] - S2[SP[a1, a1], a2, a5, a4, a3, n] - 
    S2[SP[a1, a1], a5, a2, a3, a4, n] - S2[SP[a1, a1], a5, a2, a4, a3, n] - 
    S2[SP[a1, a1], a5, a3, a2, a4, n] - S2[SP[a1, a5], a1, a2, a3, a4, n] - 
    S2[SP[a1, a5], a1, a2, a4, a3, n] - S2[SP[a1, a5], a1, a3, a2, a4, n] - 
    S2[SP[a1, a5], a3, a1, a2, a4, n] + 2*S2[SP[a3, a5], a1, a1, a2, a4, n] + 
    S2[SP[a3, a5], a1, a2, a1, a4, n] + S2[a5, a1, a2, a3, a4, a1, n] + 
    S2[a5, a1, a2, a4, a1, a3, n] + S2[a5, a1, a2, a4, a3, a1, n] + 
    S2[a5, a1, a3, a2, a4, a1, n] + S2[a5, a3, a1, a2, a4, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a1_, a4_, a2_, a3_, a1_, a5_, n_] :> 
  -(S2[a1, a3, a5, n]*S2[a1, a4, a2, n]) - S2[a1, a4, a2, n]*
     S2[a1, a5, a3, n] - S2[SP[a1, a1], SP[a3, a4], SP[a2, a5], n] - 
    S2[SP[a1, a1], SP[a4, a5], SP[a2, a3], n] + 
    2*S2[a1, a1, SP[a3, a4], SP[a2, a5], n] + 
    2*S2[a1, a1, SP[a4, a5], SP[a2, a3], n] + 
    S2[a1, a4, n]*S2[a1, a3, a2, a5, n] + S2[a1, a4, n]*
     S2[a1, a3, a5, a2, n] - S2[a1, a3, SP[a1, a2], SP[a4, a5], n] - 
    S2[a1, a3, SP[a1, a5], SP[a2, a4], n] + S2[a1, a5, n]*
     S2[a1, a4, a2, a3, n] - S2[a1, a4, SP[a1, a2], SP[a3, a5], n] + 
    S2[a1, a4, n]*S2[a1, a5, a3, a2, n] - S2[a1, a5, SP[a1, a3], SP[a2, a4], 
     n] - S2[a1, SP[a1, a3], a2, SP[a4, a5], n] + S2[a1, SP[a1, a3], a4, 
     SP[a2, a5], n] - S2[a1, SP[a1, a3], a5, SP[a2, a4], n] - 
    S2[a1, SP[a1, a3], SP[a2, a4], a5, n] - S2[a1, SP[a1, a4], a2, 
     SP[a3, a5], n] + S2[a1, SP[a1, a4], a3, SP[a2, a5], n] + 
    S2[a1, SP[a1, a4], a5, SP[a2, a3], n] + S2[a1, SP[a1, a4], SP[a2, a3], 
     a5, n] - S2[a1, SP[a1, a5], a3, SP[a2, a4], n] + 
    S2[a1, SP[a1, a5], a4, SP[a2, a3], n] - S2[SP[a1, a1], a3, a2, 
     SP[a4, a5], n] + S2[SP[a1, a1], a3, a4, SP[a2, a5], n] - 
    S2[SP[a1, a1], a3, a5, SP[a2, a4], n] - S2[SP[a1, a1], a3, SP[a2, a4], 
     a5, n] - S2[SP[a1, a1], a4, a2, SP[a3, a5], n] + 
    S2[SP[a1, a1], a4, a3, SP[a2, a5], n] + S2[SP[a1, a1], a4, a5, 
     SP[a2, a3], n] + S2[SP[a1, a1], a4, SP[a2, a3], a5, n] - 
    S2[SP[a1, a1], a5, a3, SP[a2, a4], n] + S2[SP[a1, a1], a5, a4, 
     SP[a2, a3], n] - 2*S2[a5, n]*S2[a1, a1, a3, a2, a4, n] - 
    2*S2[a1, a1, a3, a4, SP[a2, a5], n] + 
    2*S2[a1, a1, a3, a5, SP[a2, a4], n] + 
    2*S2[a1, a1, a3, SP[a2, a4], a5, n] - 
    2*S2[a1, a1, a3, SP[a2, a5], a4, n] + 
    2*S2[a1, a1, a4, a2, SP[a3, a5], n] - 
    2*S2[a1, a1, a4, a3, SP[a2, a5], n] - 
    2*S2[a1, a1, a4, a5, SP[a2, a3], n] - 
    2*S2[a1, a1, a4, SP[a2, a3], a5, n] + 
    2*S2[a1, a1, a5, a3, SP[a2, a4], n] - 
    2*S2[a1, a1, a5, a4, SP[a2, a3], n] - 
    2*S2[a1, a1, SP[a3, a5], a2, a4, n] - 
    S2[a5, n]*S2[a1, a3, a1, a2, a4, n] - S2[a1, a3, a1, a4, SP[a2, a5], n] + 
    S2[a1, a3, a1, a5, SP[a2, a4], n] + S2[a1, a3, a1, SP[a2, a4], a5, n] - 
    S2[a1, a3, a1, SP[a2, a5], a4, n] - S2[a5, n]*S2[a1, a3, a2, a1, a4, n] + 
    S2[a1, a3, a5, a1, SP[a2, a4], n] + S2[a1, a3, a5, SP[a1, a2], a4, n] + 
    S2[a1, a3, SP[a1, a2], a4, a5, n] + S2[a1, a3, SP[a1, a2], a5, a4, n] - 
    S2[a1, a3, SP[a2, a5], a1, a4, n] + S2[a1, a4, a1, a2, SP[a3, a5], n] - 
    S2[a1, a4, a1, a3, SP[a2, a5], n] - S2[a1, a4, a1, a5, SP[a2, a3], n] - 
    S2[a1, a4, a1, SP[a2, a3], a5, n] + S2[a1, a4, a2, a1, SP[a3, a5], n] + 
    S2[a1, a4, a2, SP[a1, a3], a5, n] + S2[a1, a5, a1, a3, SP[a2, a4], n] - 
    S2[a1, a5, a1, a4, SP[a2, a3], n] + S2[a1, a5, a3, a1, SP[a2, a4], n] + 
    S2[a1, a5, a3, SP[a1, a2], a4, n] + S2[a1, a5, SP[a1, a3], a2, a4, n] + 
    S2[a1, SP[a1, a3], a2, a4, a5, n] + S2[a1, SP[a1, a3], a2, a5, a4, n] + 
    S2[a1, SP[a1, a3], a5, a2, a4, n] - S2[a1, SP[a1, a5], a3, a2, a4, n] - 
    S2[a1, SP[a3, a5], a1, a2, a4, n] - S2[a1, SP[a3, a5], a2, a1, a4, n] + 
    S2[a1, n]*S2[a5, a1, a3, a2, a4, n] + S2[a5, a1, a3, a2, SP[a1, a4], n] + 
    S2[a5, a1, a3, SP[a1, a2], a4, n] + S2[a5, a1, SP[a1, a3], a2, a4, n] + 
    S2[a5, SP[a1, a1], a3, a2, a4, n] + S2[SP[a1, a1], a3, a2, a4, a5, n] + 
    S2[SP[a1, a1], a3, a2, a5, a4, n] + S2[SP[a1, a1], a3, a5, a2, a4, n] + 
    S2[SP[a1, a1], a5, a3, a2, a4, n] - S2[SP[a1, a5], a1, a3, a2, a4, n] - 
    S2[SP[a1, a5], a3, a1, a2, a4, n] - S2[SP[a1, a5], a3, a2, a1, a4, n] - 
    S2[a5, a1, a3, a2, a4, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a1_, a4_, a2_, a3_, a5_, a1_, n_] :> 
  S2[a1, a4, a2, n]*S2[a1, a5, a3, n] + S2[SP[a1, a1], SP[a4, a5], 
     SP[a2, a3], n] - 2*S2[a1, a1, SP[a4, a5], SP[a2, a3], n] - 
    S2[a1, a5, n]*S2[a1, a4, a2, a3, n] + S2[a1, a4, SP[a1, a2], SP[a3, a5], 
     n] - S2[a1, a4, n]*S2[a1, a5, a3, a2, n] + S2[a1, a5, SP[a1, a3], 
     SP[a2, a4], n] + S2[a1, SP[a1, a4], a2, SP[a3, a5], n] - 
    S2[a1, SP[a1, a4], a5, SP[a2, a3], n] + S2[a1, SP[a1, a5], a3, 
     SP[a2, a4], n] - S2[a1, SP[a1, a5], a4, SP[a2, a3], n] + 
    S2[SP[a1, a1], a4, a2, SP[a3, a5], n] - S2[SP[a1, a1], a4, a5, 
     SP[a2, a3], n] + S2[SP[a1, a1], a5, a3, SP[a2, a4], n] - 
    S2[SP[a1, a1], a5, a4, SP[a2, a3], n] - 
    2*S2[a1, a1, a4, a2, SP[a3, a5], n] + 
    2*S2[a1, a1, a4, a5, SP[a2, a3], n] - 
    2*S2[a1, a1, a5, a3, SP[a2, a4], n] + 
    2*S2[a1, a1, a5, a4, SP[a2, a3], n] - S2[a1, a4, a1, a2, SP[a3, a5], n] + 
    S2[a1, a4, a1, a5, SP[a2, a3], n] - S2[a1, a4, a2, a1, SP[a3, a5], n] + 
    S2[a1, n]*S2[a1, a4, a2, a3, a5, n] + S2[a1, a4, a2, a3, SP[a1, a5], n] - 
    S2[a1, a5, a1, a3, SP[a2, a4], n] + S2[a1, a5, a1, a4, SP[a2, a3], n] - 
    S2[a1, a5, a3, a1, SP[a2, a4], n] + S2[a1, n]*S2[a1, a5, a3, a2, a4, n] + 
    S2[a1, a5, a3, a2, SP[a1, a4], n] - S2[a1, n]*S2[a5, a3, a2, a4, a1, n] - 
    S2[a5, a3, a2, a4, SP[a1, a1], n] - S2[a5, a3, a2, SP[a1, a4], a1, n] - 
    S2[a5, a3, SP[a1, a2], a4, a1, n] - S2[a5, SP[a1, a3], a2, a4, a1, n] - 
    S2[SP[a1, a5], a3, a2, a4, a1, n] + S2[a5, a1, a3, a2, a4, a1, n] + 
    S2[a5, a3, a1, a2, a4, a1, n] + S2[a5, a3, a2, a1, a4, a1, n] + 
    2*S2[a5, a3, a2, a4, a1, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a1_, a4_, a2_, a5_, a1_, a3_, n_] :> 
  -(S2[a1, a3, a5, n]*S2[a1, a4, a2, n]) - S2[a1, a4, a2, n]*
     S2[a1, a5, a3, n] - S2[SP[a1, a1], SP[a3, a4], SP[a2, a5], n] - 
    S2[SP[a1, a1], SP[a4, a5], SP[a2, a3], n] + 
    2*S2[a1, a1, SP[a3, a4], SP[a2, a5], n] + 
    2*S2[a1, a1, SP[a4, a5], SP[a2, a3], n] + 
    S2[a1, a4, n]*S2[a1, a3, a5, a2, n] - S2[a1, a3, SP[a1, a5], SP[a2, a4], 
     n] - S2[a1, a3, n]*S2[a1, a4, a5, a2, n] + S2[a1, a4, SP[a1, a5], 
     SP[a2, a3], n] + S2[a1, a4, n]*S2[a1, a5, a2, a3, n] - 
    S2[a1, a3, n]*S2[a1, a5, a2, a4, n] + S2[a1, a4, n]*
     S2[a1, a5, a3, a2, n] - S2[a1, a3, n]*S2[a1, a5, a4, a2, n] - 
    S2[a1, a5, SP[a1, a3], SP[a2, a4], n] + S2[a1, a5, SP[a1, a4], 
     SP[a2, a3], n] + S2[a1, SP[a1, a3], a4, SP[a2, a5], n] - 
    S2[a1, SP[a1, a3], a5, SP[a2, a4], n] + S2[a1, SP[a1, a4], a3, 
     SP[a2, a5], n] + 2*S2[a1, SP[a1, a4], a5, SP[a2, a3], n] + 
    S2[a1, SP[a1, a4], SP[a2, a3], a5, n] + S2[a1, SP[a1, a4], SP[a2, a5], 
     a3, n] + S2[a1, SP[a1, a4], SP[a3, a5], a2, n] - 
    S2[a1, SP[a1, a5], a3, SP[a2, a4], n] + 
    2*S2[a1, SP[a1, a5], a4, SP[a2, a3], n] + S2[a1, SP[a1, a5], SP[a2, a3], 
     a4, n] - S2[a1, SP[a1, a5], SP[a2, a4], a3, n] + 
    S2[a1, SP[a1, a5], SP[a3, a4], a2, n] + S2[a1, a3, n]*
     S2[a2, a5, a1, a4, n] - S2[a2, a5, SP[a1, a1], SP[a3, a4], n] - 
    S2[a2, SP[a1, a5], a1, SP[a3, a4], n] - S2[a2, SP[a1, a5], SP[a1, a3], 
     a4, n] + S2[SP[a1, a1], a3, a4, SP[a2, a5], n] - 
    S2[SP[a1, a1], a3, a5, SP[a2, a4], n] + S2[SP[a1, a1], a4, a3, 
     SP[a2, a5], n] + 2*S2[SP[a1, a1], a4, a5, SP[a2, a3], n] + 
    S2[SP[a1, a1], a4, SP[a2, a3], a5, n] + S2[SP[a1, a1], a4, SP[a2, a5], 
     a3, n] + S2[SP[a1, a1], a4, SP[a3, a5], a2, n] - 
    S2[SP[a1, a1], a5, a3, SP[a2, a4], n] + 
    2*S2[SP[a1, a1], a5, a4, SP[a2, a3], n] + S2[SP[a1, a1], a5, SP[a2, a3], 
     a4, n] - S2[SP[a1, a1], a5, SP[a2, a4], a3, n] + 
    S2[SP[a1, a1], a5, SP[a3, a4], a2, n] + S2[SP[a1, a1], SP[a3, a4], a2, 
     a5, n] + S2[SP[a1, a1], SP[a3, a4], a5, a2, n] + 
    S2[SP[a1, a1], SP[a3, a5], a2, a4, n] + S2[SP[a1, a1], SP[a3, a5], a4, 
     a2, n] - S2[SP[a1, a2], a5, a1, SP[a3, a4], n] - 
    S2[SP[a1, a2], a5, SP[a1, a3], a4, n] - S2[SP[a1, a2], SP[a3, a5], a1, 
     a4, n] + 2*S2[a5, n]*S2[a1, a1, a3, a4, a2, n] + 
    2*S2[a1, a1, a3, a5, SP[a2, a4], n] + 
    2*S2[a1, a1, a3, SP[a4, a5], a2, n] + 
    2*S2[a5, n]*S2[a1, a1, a4, a2, a3, n] + 
    2*S2[a1, a1, a4, a2, SP[a3, a5], n] + 
    2*S2[a5, n]*S2[a1, a1, a4, a3, a2, n] - 
    4*S2[a1, a1, a4, a5, SP[a2, a3], n] - 
    2*S2[a1, a1, a4, SP[a2, a3], a5, n] + 
    2*S2[a1, a1, a5, a3, SP[a2, a4], n] - 
    4*S2[a1, a1, a5, a4, SP[a2, a3], n] - 
    2*S2[a1, a1, a5, SP[a2, a3], a4, n] + 
    2*S2[a1, a1, a5, SP[a2, a4], a3, n] - 
    2*S2[a1, a1, a5, SP[a3, a4], a2, n] - 
    2*S2[a1, a1, SP[a3, a4], a2, a5, n] - 
    2*S2[a1, a1, SP[a3, a4], a5, a2, n] - 
    2*S2[a1, a1, SP[a3, a5], a2, a4, n] + 
    2*S2[a1, a1, SP[a4, a5], a2, a3, n] + 
    2*S2[a1, a1, SP[a4, a5], a3, a2, n] + S2[a1, a2, a5, a1, SP[a3, a4], n] + 
    S2[a1, a2, a5, SP[a1, a3], a4, n] + S2[a1, a2, SP[a3, a5], a1, a4, n] + 
    S2[a5, n]*S2[a1, a3, a1, a4, a2, n] + S2[a1, a3, a1, a5, SP[a2, a4], n] + 
    S2[a1, a3, a1, SP[a4, a5], a2, n] - S2[a2, n]*S2[a1, a3, a5, a1, a4, n] + 
    S2[a1, a3, SP[a1, a5], a2, a4, n] + S2[a1, a3, SP[a1, a5], a4, a2, n] - 
    S2[a1, a3, SP[a2, a5], a1, a4, n] + S2[a5, n]*S2[a1, a4, a1, a2, a3, n] + 
    S2[a1, a4, a1, a2, SP[a3, a5], n] + S2[a5, n]*S2[a1, a4, a1, a3, a2, n] - 
    2*S2[a1, a4, a1, a5, SP[a2, a3], n] - S2[a1, a4, a1, SP[a2, a3], a5, n] + 
    S2[a5, n]*S2[a1, a4, a2, a1, a3, n] + S2[a1, a4, a2, a1, SP[a3, a5], n] + 
    S2[a1, a4, a2, SP[a1, a5], a3, n] - S2[a1, a4, a5, a1, SP[a2, a3], n] - 
    S2[a1, a4, a5, SP[a1, a2], a3, n] - S2[a1, a4, SP[a1, a2], a3, a5, n] - 
    S2[a1, a4, SP[a1, a2], a5, a3, n] + S2[a1, a4, SP[a2, a5], a1, a3, n] - 
    S2[a2, n]*S2[a1, a5, a1, a3, a4, n] - 
    S2[a2, n]*S2[a1, a5, a1, a4, a3, n] - 
    3*S2[a1, a5, a1, a4, SP[a2, a3], n] - 
    2*S2[a1, a5, a1, SP[a2, a3], a4, n] - S2[a1, a5, a1, SP[a3, a4], a2, n] + 
    S2[a1, a5, a2, SP[a1, a3], a4, n] - S2[a1, a5, a2, SP[a1, a4], a3, n] - 
    S2[a2, n]*S2[a1, a5, a3, a1, a4, n] - S2[a1, a5, a4, a1, SP[a2, a3], n] - 
    S2[a1, a5, a4, SP[a1, a2], a3, n] - S2[a1, a5, SP[a1, a2], a3, a4, n] - 
    S2[a1, a5, SP[a1, a2], a4, a3, n] + S2[a1, a5, SP[a1, a3], a2, a4, n] - 
    S2[a1, a5, SP[a1, a4], a2, a3, n] - S2[a1, a5, SP[a1, a4], a3, a2, n] - 
    S2[a1, a5, SP[a2, a3], a1, a4, n] - S2[a1, SP[a1, a3], a4, a2, a5, n] - 
    S2[a1, SP[a1, a3], a4, a5, a2, n] - S2[a1, SP[a1, a3], a5, a4, a2, n] - 
    S2[a1, SP[a1, a4], a2, a3, a5, n] - S2[a1, SP[a1, a4], a2, a5, a3, n] - 
    S2[a1, SP[a1, a4], a3, a2, a5, n] - S2[a1, SP[a1, a4], a3, a5, a2, n] - 
    S2[a1, SP[a1, a4], a5, a2, a3, n] - S2[a1, SP[a1, a4], a5, a3, a2, n] + 
    S2[a1, SP[a1, a5], a3, a4, a2, n] + S2[a1, SP[a1, a5], a4, a2, a3, n] + 
    S2[a1, SP[a1, a5], a4, a3, a2, n] - S2[a1, SP[a2, a5], a1, a3, a4, n] - 
    S2[a1, SP[a2, a5], a1, a4, a3, n] - S2[a1, SP[a2, a5], a3, a1, a4, n] + 
    S2[a1, SP[a3, a5], a1, a4, a2, n] + S2[a1, SP[a4, a5], a1, a2, a3, n] + 
    S2[a1, SP[a4, a5], a1, a3, a2, n] + S2[a1, SP[a4, a5], a2, a1, a3, n] + 
    S2[a2, a1, a5, a1, SP[a3, a4], n] + S2[a2, a1, a5, SP[a1, a3], a4, n] + 
    S2[a2, a1, SP[a3, a5], a1, a4, n] + 2*S2[a2, a5, a1, a1, SP[a3, a4], n] + 
    S2[a2, a5, a1, SP[a1, a3], a4, n] + S2[a2, a5, a1, SP[a1, a4], a3, n] + 
    S2[a2, a5, SP[a1, a1], a3, a4, n] + S2[a2, a5, SP[a1, a1], a4, a3, n] + 
    S2[a2, SP[a1, a5], a1, a3, a4, n] + S2[a2, SP[a1, a5], a1, a4, a3, n] + 
    S2[a2, SP[a1, a5], a3, a1, a4, n] - 2*S2[a2, n]*
     S2[a5, a1, a1, a3, a4, n] - 2*S2[a5, a1, a1, a3, SP[a2, a4], n] - 
    2*S2[a2, n]*S2[a5, a1, a1, a4, a3, n] - 
    2*S2[a5, a1, a1, a4, SP[a2, a3], n] - 
    2*S2[a5, a1, a1, SP[a2, a3], a4, n] - 
    2*S2[a5, a1, a1, SP[a2, a4], a3, n] + 
    S2[a1, n]*S2[a5, a1, a2, a3, a4, n] + S2[a5, a1, a2, a3, SP[a1, a4], n] + 
    S2[a1, n]*S2[a5, a1, a2, a4, a3, n] + S2[a5, a1, a2, a4, SP[a1, a3], n] + 
    S2[a5, a1, a2, SP[a1, a3], a4, n] + S2[a5, a1, a2, SP[a1, a4], a3, n] - 
    S2[a2, n]*S2[a5, a1, a3, a1, a4, n] - S2[a5, a1, a3, a1, SP[a2, a4], n] + 
    S2[a1, n]*S2[a5, a1, a3, a2, a4, n] + S2[a5, a1, a3, a2, SP[a1, a4], n] - 
    S2[a2, n]*S2[a5, a1, a4, a1, a3, n] - S2[a5, a1, a4, a1, SP[a2, a3], n] - 
    S2[a5, a1, a4, SP[a1, a2], a3, n] - S2[a5, a1, SP[a1, a2], a3, a4, n] - 
    S2[a5, a1, SP[a1, a2], a4, a3, n] + S2[a5, a1, SP[a1, a3], a2, a4, n] - 
    S2[a5, a1, SP[a2, a3], a1, a4, n] - S2[a5, a1, SP[a2, a4], a1, a3, n] + 
    S2[a1, n]*S2[a5, a2, a1, a3, a4, n] + S2[a5, a2, a1, a3, SP[a1, a4], n] + 
    S2[a1, n]*S2[a5, a2, a1, a4, a3, n] + S2[a5, a2, a1, a4, SP[a1, a3], n] + 
    S2[a5, a2, a1, SP[a1, a3], a4, n] + S2[a5, a2, a1, SP[a1, a4], a3, n] + 
    S2[a1, n]*S2[a5, a2, a4, a1, a3, n] + S2[a5, a2, a4, a1, SP[a1, a3], n] + 
    S2[a5, a2, a4, SP[a1, a1], a3, n] + S2[a5, a2, SP[a1, a1], a3, a4, n] + 
    S2[a5, a2, SP[a1, a1], a4, a3, n] + S2[a5, a2, SP[a1, a4], a1, a3, n] + 
    S2[a5, SP[a1, a1], a2, a3, a4, n] + S2[a5, SP[a1, a1], a2, a4, a3, n] + 
    S2[a5, SP[a1, a1], a3, a2, a4, n] - S2[a5, SP[a1, a2], a1, a3, a4, n] - 
    S2[a5, SP[a1, a2], a1, a4, a3, n] - S2[a5, SP[a1, a2], a3, a1, a4, n] - 
    S2[SP[a1, a1], a3, a4, a2, a5, n] - S2[SP[a1, a1], a3, a4, a5, a2, n] - 
    S2[SP[a1, a1], a3, a5, a4, a2, n] - S2[SP[a1, a1], a4, a2, a3, a5, n] - 
    S2[SP[a1, a1], a4, a2, a5, a3, n] - S2[SP[a1, a1], a4, a3, a2, a5, n] - 
    S2[SP[a1, a1], a4, a3, a5, a2, n] - S2[SP[a1, a1], a4, a5, a2, a3, n] - 
    S2[SP[a1, a1], a4, a5, a3, a2, n] - S2[SP[a1, a1], a5, a3, a4, a2, n] - 
    S2[SP[a1, a1], a5, a4, a2, a3, n] - S2[SP[a1, a1], a5, a4, a3, a2, n] + 
    S2[SP[a1, a5], a1, a2, a3, a4, n] + S2[SP[a1, a5], a1, a2, a4, a3, n] + 
    S2[SP[a1, a5], a1, a3, a2, a4, n] + 2*S2[SP[a1, a5], a1, a3, a4, a2, n] + 
    2*S2[SP[a1, a5], a1, a4, a2, a3, n] + 
    2*S2[SP[a1, a5], a1, a4, a3, a2, n] + S2[SP[a1, a5], a2, a1, a3, a4, n] + 
    S2[SP[a1, a5], a2, a1, a4, a3, n] + S2[SP[a1, a5], a2, a4, a1, a3, n] + 
    S2[SP[a1, a5], a3, a1, a4, a2, n] + S2[SP[a1, a5], a4, a1, a2, a3, n] + 
    S2[SP[a1, a5], a4, a1, a3, a2, n] + S2[SP[a1, a5], a4, a2, a1, a3, n] - 
    2*S2[SP[a2, a5], a1, a1, a3, a4, n] - 
    2*S2[SP[a2, a5], a1, a1, a4, a3, n] - S2[SP[a2, a5], a1, a3, a1, a4, n] - 
    S2[SP[a2, a5], a1, a4, a1, a3, n] - S2[a5, a1, a2, a3, a4, a1, n] - 
    S2[a5, a1, a2, a4, a1, a3, n] - S2[a5, a1, a2, a4, a3, a1, n] - 
    S2[a5, a1, a3, a2, a4, a1, n] - S2[a5, a2, a1, a3, a4, a1, n] - 
    S2[a5, a2, a1, a4, a1, a3, n] - S2[a5, a2, a1, a4, a3, a1, n] - 
    2*S2[a5, a2, a4, a1, a1, a3, n] - S2[a5, a2, a4, a1, a3, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a1_, a4_, a2_, a5_, a3_, a1_, n_] :> 
  S2[a1, a3, a5, n]*S2[a1, a4, a2, n] + S2[SP[a1, a1], SP[a3, a4], 
     SP[a2, a5], n] - 2*S2[a1, a1, SP[a3, a4], SP[a2, a5], n] - 
    S2[a1, a4, n]*S2[a1, a3, a5, a2, n] + S2[a1, a3, SP[a1, a5], SP[a2, a4], 
     n] + S2[a1, a3, n]*S2[a1, a4, a5, a2, n] - S2[a1, a4, SP[a1, a5], 
     SP[a2, a3], n] + S2[a1, a3, n]*S2[a1, a5, a2, a4, n] + 
    S2[a1, a3, n]*S2[a1, a5, a4, a2, n] - S2[a1, a5, SP[a1, a2], SP[a3, a4], 
     n] - S2[a1, a5, SP[a1, a4], SP[a2, a3], n] - S2[a1, SP[a1, a3], a4, 
     SP[a2, a5], n] + S2[a1, SP[a1, a3], a5, SP[a2, a4], n] - 
    S2[a1, SP[a1, a4], a3, SP[a2, a5], n] - S2[a1, SP[a1, a4], a5, 
     SP[a2, a3], n] - S2[a1, SP[a1, a4], SP[a2, a3], a5, n] - 
    S2[a1, SP[a1, a4], SP[a3, a5], a2, n] - S2[a1, SP[a1, a5], a2, 
     SP[a3, a4], n] - S2[a1, SP[a1, a5], a4, SP[a2, a3], n] - 
    S2[a1, SP[a1, a5], SP[a2, a3], a4, n] - S2[a1, SP[a1, a5], SP[a3, a4], 
     a2, n] - S2[a1, a3, n]*S2[a2, a5, a1, a4, n] + 
    S2[a2, a5, SP[a1, a1], SP[a3, a4], n] + S2[a2, SP[a1, a5], a1, 
     SP[a3, a4], n] + S2[a2, SP[a1, a5], SP[a1, a3], a4, n] - 
    S2[SP[a1, a1], a3, a4, SP[a2, a5], n] + S2[SP[a1, a1], a3, a5, 
     SP[a2, a4], n] - S2[SP[a1, a1], a4, a3, SP[a2, a5], n] - 
    S2[SP[a1, a1], a4, a5, SP[a2, a3], n] - S2[SP[a1, a1], a4, SP[a2, a3], 
     a5, n] - S2[SP[a1, a1], a4, SP[a3, a5], a2, n] - 
    S2[SP[a1, a1], a5, a2, SP[a3, a4], n] - S2[SP[a1, a1], a5, a4, 
     SP[a2, a3], n] - S2[SP[a1, a1], a5, SP[a2, a3], a4, n] - 
    S2[SP[a1, a1], a5, SP[a3, a4], a2, n] - S2[SP[a1, a1], SP[a3, a4], a2, 
     a5, n] - S2[SP[a1, a1], SP[a3, a4], a5, a2, n] - 
    S2[SP[a1, a1], SP[a3, a5], a2, a4, n] - S2[SP[a1, a1], SP[a3, a5], a4, 
     a2, n] + S2[SP[a1, a2], a5, a1, SP[a3, a4], n] + 
    S2[SP[a1, a2], a5, SP[a1, a3], a4, n] + S2[SP[a1, a2], SP[a3, a5], a1, 
     a4, n] - 2*S2[a5, n]*S2[a1, a1, a3, a4, a2, n] - 
    2*S2[a1, a1, a3, a5, SP[a2, a4], n] - 
    2*S2[a1, a1, a3, SP[a4, a5], a2, n] - 
    2*S2[a5, n]*S2[a1, a1, a4, a2, a3, n] - 
    2*S2[a1, a1, a4, a2, SP[a3, a5], n] - 
    2*S2[a5, n]*S2[a1, a1, a4, a3, a2, n] + 
    2*S2[a1, a1, a4, a5, SP[a2, a3], n] + 
    2*S2[a1, a1, a4, SP[a2, a3], a5, n] - 
    2*S2[a1, a1, a4, SP[a2, a5], a3, n] + 
    2*S2[a1, a1, a5, a2, SP[a3, a4], n] + 
    2*S2[a1, a1, a5, a4, SP[a2, a3], n] + 
    2*S2[a1, a1, a5, SP[a2, a3], a4, n] + 
    2*S2[a1, a1, a5, SP[a3, a4], a2, n] + 
    2*S2[a1, a1, SP[a3, a4], a2, a5, n] + 
    2*S2[a1, a1, SP[a3, a4], a5, a2, n] + 
    2*S2[a1, a1, SP[a3, a5], a2, a4, n] - 
    2*S2[a1, a1, SP[a4, a5], a2, a3, n] - 
    2*S2[a1, a1, SP[a4, a5], a3, a2, n] - S2[a1, a2, a5, a1, SP[a3, a4], n] - 
    S2[a1, a2, a5, SP[a1, a3], a4, n] - S2[a1, a2, SP[a3, a5], a1, a4, n] - 
    S2[a5, n]*S2[a1, a3, a1, a4, a2, n] - S2[a1, a3, a1, a5, SP[a2, a4], n] - 
    S2[a1, a3, a1, SP[a4, a5], a2, n] + S2[a2, n]*S2[a1, a3, a5, a1, a4, n] - 
    S2[a1, a3, SP[a1, a5], a2, a4, n] - S2[a1, a3, SP[a1, a5], a4, a2, n] + 
    S2[a1, a3, SP[a2, a5], a1, a4, n] - S2[a5, n]*S2[a1, a4, a1, a2, a3, n] - 
    S2[a1, a4, a1, a2, SP[a3, a5], n] - S2[a5, n]*S2[a1, a4, a1, a3, a2, n] + 
    S2[a1, a4, a1, a5, SP[a2, a3], n] + S2[a1, a4, a1, SP[a2, a3], a5, n] - 
    S2[a1, a4, a1, SP[a2, a5], a3, n] - S2[a5, n]*S2[a1, a4, a2, a1, a3, n] - 
    S2[a1, a4, a2, a1, SP[a3, a5], n] + S2[a1, n]*S2[a1, a4, a2, a5, a3, n] + 
    S2[a1, a4, a2, a5, SP[a1, a3], n] + S2[a1, a4, a5, a1, SP[a2, a3], n] + 
    S2[a1, a4, a5, SP[a1, a2], a3, n] + S2[a1, a4, SP[a1, a2], a3, a5, n] + 
    S2[a1, a4, SP[a1, a2], a5, a3, n] - S2[a1, a4, SP[a2, a5], a1, a3, n] + 
    S2[a1, a5, a1, a2, SP[a3, a4], n] + S2[a2, n]*S2[a1, a5, a1, a3, a4, n] + 
    S2[a1, a5, a1, a3, SP[a2, a4], n] + S2[a2, n]*S2[a1, a5, a1, a4, a3, n] + 
    2*S2[a1, a5, a1, a4, SP[a2, a3], n] + 
    2*S2[a1, a5, a1, SP[a2, a3], a4, n] + S2[a1, a5, a1, SP[a2, a4], a3, n] + 
    S2[a1, a5, a1, SP[a3, a4], a2, n] + S2[a1, a5, a2, a1, SP[a3, a4], n] - 
    S2[a1, n]*S2[a1, a5, a2, a3, a4, n] - S2[a1, a5, a2, a3, SP[a1, a4], n] - 
    S2[a1, n]*S2[a1, a5, a2, a4, a3, n] - S2[a1, a5, a2, a4, SP[a1, a3], n] - 
    S2[a1, a5, a2, SP[a1, a3], a4, n] + S2[a2, n]*S2[a1, a5, a3, a1, a4, n] + 
    S2[a1, a5, a3, a1, SP[a2, a4], n] - S2[a1, n]*S2[a1, a5, a3, a2, a4, n] - 
    S2[a1, a5, a3, a2, SP[a1, a4], n] + S2[a1, a5, a4, a1, SP[a2, a3], n] + 
    S2[a1, a5, a4, SP[a1, a2], a3, n] + S2[a1, a5, SP[a1, a2], a3, a4, n] + 
    S2[a1, a5, SP[a1, a2], a4, a3, n] - S2[a1, a5, SP[a1, a3], a2, a4, n] + 
    S2[a1, a5, SP[a1, a4], a2, a3, n] + S2[a1, a5, SP[a1, a4], a3, a2, n] + 
    S2[a1, a5, SP[a2, a3], a1, a4, n] + S2[a1, SP[a1, a3], a4, a2, a5, n] + 
    S2[a1, SP[a1, a3], a4, a5, a2, n] + S2[a1, SP[a1, a3], a5, a4, a2, n] + 
    S2[a1, SP[a1, a4], a2, a3, a5, n] + S2[a1, SP[a1, a4], a2, a5, a3, n] + 
    S2[a1, SP[a1, a4], a3, a2, a5, n] + S2[a1, SP[a1, a4], a3, a5, a2, n] + 
    S2[a1, SP[a1, a4], a5, a2, a3, n] + S2[a1, SP[a1, a4], a5, a3, a2, n] - 
    S2[a1, SP[a1, a5], a3, a4, a2, n] - S2[a1, SP[a1, a5], a4, a2, a3, n] - 
    S2[a1, SP[a1, a5], a4, a3, a2, n] + S2[a1, SP[a2, a5], a1, a3, a4, n] + 
    S2[a1, SP[a2, a5], a1, a4, a3, n] + S2[a1, SP[a2, a5], a3, a1, a4, n] - 
    S2[a1, SP[a3, a5], a1, a4, a2, n] - S2[a1, SP[a4, a5], a1, a2, a3, n] - 
    S2[a1, SP[a4, a5], a1, a3, a2, n] - S2[a1, SP[a4, a5], a2, a1, a3, n] - 
    S2[a2, a1, a5, a1, SP[a3, a4], n] - S2[a2, a1, a5, SP[a1, a3], a4, n] - 
    S2[a2, a1, SP[a3, a5], a1, a4, n] - 2*S2[a2, a5, a1, a1, SP[a3, a4], n] - 
    S2[a2, a5, a1, SP[a1, a3], a4, n] - S2[a2, a5, a1, SP[a1, a4], a3, n] - 
    S2[a2, a5, SP[a1, a1], a3, a4, n] - S2[a2, a5, SP[a1, a1], a4, a3, n] - 
    S2[a2, SP[a1, a5], a1, a3, a4, n] - S2[a2, SP[a1, a5], a1, a4, a3, n] - 
    S2[a2, SP[a1, a5], a3, a1, a4, n] + 2*S2[a2, n]*
     S2[a5, a1, a1, a3, a4, n] + 2*S2[a5, a1, a1, a3, SP[a2, a4], n] + 
    2*S2[a2, n]*S2[a5, a1, a1, a4, a3, n] + 
    2*S2[a5, a1, a1, a4, SP[a2, a3], n] + 
    2*S2[a5, a1, a1, SP[a2, a3], a4, n] + 
    2*S2[a5, a1, a1, SP[a2, a4], a3, n] - 
    S2[a1, n]*S2[a5, a1, a2, a3, a4, n] - S2[a5, a1, a2, a3, SP[a1, a4], n] - 
    S2[a1, n]*S2[a5, a1, a2, a4, a3, n] - S2[a5, a1, a2, a4, SP[a1, a3], n] - 
    S2[a5, a1, a2, SP[a1, a3], a4, n] - S2[a5, a1, a2, SP[a1, a4], a3, n] + 
    S2[a2, n]*S2[a5, a1, a3, a1, a4, n] + S2[a5, a1, a3, a1, SP[a2, a4], n] - 
    S2[a1, n]*S2[a5, a1, a3, a2, a4, n] - S2[a5, a1, a3, a2, SP[a1, a4], n] + 
    S2[a2, n]*S2[a5, a1, a4, a1, a3, n] + S2[a5, a1, a4, a1, SP[a2, a3], n] + 
    S2[a5, a1, a4, SP[a1, a2], a3, n] + S2[a5, a1, SP[a1, a2], a3, a4, n] + 
    S2[a5, a1, SP[a1, a2], a4, a3, n] - S2[a5, a1, SP[a1, a3], a2, a4, n] + 
    S2[a5, a1, SP[a2, a3], a1, a4, n] + S2[a5, a1, SP[a2, a4], a1, a3, n] - 
    S2[a1, n]*S2[a5, a2, a1, a3, a4, n] - S2[a5, a2, a1, a3, SP[a1, a4], n] - 
    S2[a1, n]*S2[a5, a2, a1, a4, a3, n] - S2[a5, a2, a1, a4, SP[a1, a3], n] - 
    S2[a5, a2, a1, SP[a1, a3], a4, n] - S2[a5, a2, a1, SP[a1, a4], a3, n] + 
    S2[a1, n]*S2[a5, a2, a3, a4, a1, n] + S2[a5, a2, a3, a4, SP[a1, a1], n] + 
    S2[a5, a2, a3, SP[a1, a4], a1, n] + S2[a1, n]*S2[a5, a2, a4, a3, a1, n] + 
    S2[a5, a2, a4, a3, SP[a1, a1], n] + S2[a5, a2, a4, SP[a1, a3], a1, n] - 
    S2[a5, a2, SP[a1, a1], a3, a4, n] - S2[a5, a2, SP[a1, a1], a4, a3, n] + 
    S2[a5, a2, SP[a1, a3], a4, a1, n] + S2[a5, a2, SP[a1, a4], a3, a1, n] + 
    S2[a1, n]*S2[a5, a3, a2, a4, a1, n] + S2[a5, a3, a2, a4, SP[a1, a1], n] + 
    S2[a5, a3, a2, SP[a1, a4], a1, n] + S2[a5, a3, SP[a1, a2], a4, a1, n] - 
    S2[a5, SP[a1, a1], a2, a3, a4, n] - S2[a5, SP[a1, a1], a2, a4, a3, n] - 
    S2[a5, SP[a1, a1], a3, a2, a4, n] + S2[a5, SP[a1, a2], a1, a3, a4, n] + 
    S2[a5, SP[a1, a2], a1, a4, a3, n] + S2[a5, SP[a1, a2], a3, a1, a4, n] + 
    S2[a5, SP[a1, a2], a3, a4, a1, n] + S2[a5, SP[a1, a2], a4, a1, a3, n] + 
    S2[a5, SP[a1, a2], a4, a3, a1, n] + S2[a5, SP[a1, a3], a2, a4, a1, n] + 
    S2[SP[a1, a1], a3, a4, a2, a5, n] + S2[SP[a1, a1], a3, a4, a5, a2, n] + 
    S2[SP[a1, a1], a3, a5, a4, a2, n] + S2[SP[a1, a1], a4, a2, a3, a5, n] + 
    S2[SP[a1, a1], a4, a2, a5, a3, n] + S2[SP[a1, a1], a4, a3, a2, a5, n] + 
    S2[SP[a1, a1], a4, a3, a5, a2, n] + S2[SP[a1, a1], a4, a5, a2, a3, n] + 
    S2[SP[a1, a1], a4, a5, a3, a2, n] + S2[SP[a1, a1], a5, a3, a4, a2, n] + 
    S2[SP[a1, a1], a5, a4, a2, a3, n] + S2[SP[a1, a1], a5, a4, a3, a2, n] - 
    S2[SP[a1, a5], a1, a2, a3, a4, n] - S2[SP[a1, a5], a1, a2, a4, a3, n] - 
    S2[SP[a1, a5], a1, a3, a2, a4, n] - 2*S2[SP[a1, a5], a1, a3, a4, a2, n] - 
    2*S2[SP[a1, a5], a1, a4, a2, a3, n] - 
    2*S2[SP[a1, a5], a1, a4, a3, a2, n] - S2[SP[a1, a5], a2, a1, a3, a4, n] - 
    S2[SP[a1, a5], a2, a1, a4, a3, n] + S2[SP[a1, a5], a2, a3, a4, a1, n] + 
    S2[SP[a1, a5], a2, a4, a3, a1, n] - S2[SP[a1, a5], a3, a1, a4, a2, n] + 
    S2[SP[a1, a5], a3, a2, a4, a1, n] - S2[SP[a1, a5], a4, a1, a2, a3, n] - 
    S2[SP[a1, a5], a4, a1, a3, a2, n] - S2[SP[a1, a5], a4, a2, a1, a3, n] + 
    2*S2[SP[a2, a5], a1, a1, a3, a4, n] + 
    2*S2[SP[a2, a5], a1, a1, a4, a3, n] + S2[SP[a2, a5], a1, a3, a1, a4, n] + 
    S2[SP[a2, a5], a1, a4, a1, a3, n] - S2[a5, a2, a3, a1, a4, a1, n] - 
    2*S2[a5, a2, a3, a4, a1, a1, n] - S2[a5, a2, a4, a1, a3, a1, n] - 
    2*S2[a5, a2, a4, a3, a1, a1, n] - S2[a5, a3, a1, a2, a4, a1, n] - 
    S2[a5, a3, a2, a1, a4, a1, n] - 2*S2[a5, a3, a2, a4, a1, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a1_, a4_, a3_, a1_, a2_, a5_, n_] :> 
  S2[a1, a2, a5, n]*S2[a1, a4, a3, n] + S2[SP[a1, a1], SP[a2, a4], 
     SP[a3, a5], n] + 2*S2[a2, a5, n]*S2[a1, a1, a3, a4, n] - 
    2*S2[a1, a1, SP[a2, a3], SP[a4, a5], n] - 
    2*S2[a1, a1, SP[a2, a4], SP[a3, a5], n] - 
    S2[a1, a4, n]*S2[a1, a2, a3, a5, n] - S2[a1, a4, n]*
     S2[a1, a2, a5, a3, n] + S2[a1, a2, SP[a1, a3], SP[a4, a5], n] + 
    S2[a1, a2, SP[a1, a5], SP[a3, a4], n] + S2[a2, a5, n]*
     S2[a1, a3, a1, a4, n] - S2[a1, a4, n]*S2[a1, a3, a2, a5, n] - 
    S2[a1, SP[a1, a2], a3, SP[a4, a5], n] - S2[a1, SP[a1, a2], a4, 
     SP[a3, a5], n] + S2[a1, SP[a1, a2], a5, SP[a3, a4], n] + 
    S2[a1, SP[a1, a2], SP[a3, a4], a5, n] - 
    2*S2[a1, SP[a1, a2], SP[a3, a5], a4, n] + S2[a1, SP[a1, a3], a2, 
     SP[a4, a5], n] + S2[a1, SP[a1, a3], SP[a2, a4], a5, n] - 
    S2[a1, SP[a1, a4], a2, SP[a3, a5], n] - S2[a1, SP[a1, a4], SP[a2, a3], 
     a5, n] - S2[a1, SP[a2, a3], a1, SP[a4, a5], n] - 
    S2[a1, SP[a2, a3], SP[a1, a5], a4, n] + S2[SP[a1, a1], a2, a3, 
     SP[a4, a5], n] - S2[SP[a1, a1], a2, a4, SP[a3, a5], n] + 
    S2[SP[a1, a1], a2, a5, SP[a3, a4], n] + S2[SP[a1, a1], a2, SP[a3, a4], 
     a5, n] + S2[SP[a1, a1], a3, a2, SP[a4, a5], n] + 
    S2[SP[a1, a1], a3, SP[a2, a4], a5, n] - S2[SP[a1, a1], a4, a2, 
     SP[a3, a5], n] - S2[SP[a1, a1], a4, SP[a2, a3], a5, n] + 
    S2[SP[a1, a1], SP[a3, a4], a2, a5, n] - 
    2*S2[SP[a1, a2], a1, a3, SP[a4, a5], n] - 
    2*S2[SP[a1, a2], a1, SP[a3, a5], a4, n] - S2[SP[a1, a2], a3, a1, 
     SP[a4, a5], n] - S2[SP[a1, a2], a3, SP[a1, a5], a4, n] - 
    2*S2[SP[a1, a2], SP[a1, a5], a3, a4, n] - S2[SP[a1, a2], SP[a3, a5], a1, 
     a4, n] + 2*S2[a5, n]*S2[a1, a1, a2, a3, a4, n] + 
    2*S2[a1, a1, a2, a3, SP[a4, a5], n] + 
    2*S2[a1, a1, a2, a4, SP[a3, a5], n] - 
    2*S2[a1, a1, a2, a5, SP[a3, a4], n] - 
    2*S2[a1, a1, a2, SP[a3, a4], a5, n] + 
    4*S2[a1, a1, a2, SP[a3, a5], a4, n] + 
    2*S2[a5, n]*S2[a1, a1, a3, a2, a4, n] + 
    2*S2[a1, a1, a3, a2, SP[a4, a5], n] + 
    2*S2[a5, n]*S2[a1, a1, a3, a4, a2, n] - 
    2*S2[a2, n]*S2[a1, a1, a3, a4, a5, n] - 
    2*S2[a2, n]*S2[a1, a1, a3, a5, a4, n] - 
    2*S2[a1, a1, a3, a5, SP[a2, a4], n] - 
    2*S2[a1, a1, a3, SP[a2, a4], a5, n] + 
    2*S2[a1, a1, a3, SP[a4, a5], a2, n] + 
    2*S2[a1, a1, a4, a2, SP[a3, a5], n] + 
    2*S2[a1, a1, a4, SP[a2, a3], a5, n] - 
    2*S2[a2, n]*S2[a1, a1, a5, a3, a4, n] - 
    2*S2[a1, a1, a5, a3, SP[a2, a4], n] - 
    2*S2[a1, a1, a5, SP[a2, a3], a4, n] - 
    2*S2[a1, a1, SP[a3, a4], a2, a5, n] + 
    2*S2[a1, a1, SP[a3, a5], a2, a4, n] + 
    2*S2[a1, a1, SP[a3, a5], a4, a2, n] + 
    S2[a5, n]*S2[a1, a2, a1, a3, a4, n] + 
    2*S2[a1, a2, a1, a3, SP[a4, a5], n] + S2[a1, a2, a1, a4, SP[a3, a5], n] - 
    S2[a1, a2, a1, a5, SP[a3, a4], n] - S2[a1, a2, a1, SP[a3, a4], a5, n] + 
    3*S2[a1, a2, a1, SP[a3, a5], a4, n] + 
    S2[a5, n]*S2[a1, a2, a3, a1, a4, n] + S2[a1, a2, a3, a1, SP[a4, a5], n] + 
    S2[a1, a2, a3, SP[a1, a5], a4, n] - S2[a1, a2, a5, a1, SP[a3, a4], n] - 
    S2[a1, a2, a5, SP[a1, a3], a4, n] - S2[a1, a2, SP[a1, a3], a4, a5, n] - 
    S2[a1, a2, SP[a1, a3], a5, a4, n] + 2*S2[a1, a2, SP[a1, a5], a3, a4, n] + 
    2*S2[a1, a2, SP[a3, a5], a1, a4, n] + 
    S2[a5, n]*S2[a1, a3, a1, a2, a4, n] + S2[a1, a3, a1, a2, SP[a4, a5], n] + 
    S2[a5, n]*S2[a1, a3, a1, a4, a2, n] - 
    S2[a2, n]*S2[a1, a3, a1, a4, a5, n] - 
    S2[a2, n]*S2[a1, a3, a1, a5, a4, n] - S2[a1, a3, a1, a5, SP[a2, a4], n] - 
    S2[a1, a3, a1, SP[a2, a4], a5, n] + S2[a1, a3, a1, SP[a4, a5], a2, n] + 
    S2[a5, n]*S2[a1, a3, a2, a1, a4, n] + S2[a1, a3, a2, a1, SP[a4, a5], n] + 
    S2[a1, a3, a2, SP[a1, a5], a4, n] - S2[a2, n]*S2[a1, a3, a5, a1, a4, n] - 
    S2[a1, a3, a5, a1, SP[a2, a4], n] - S2[a1, a3, a5, SP[a1, a2], a4, n] - 
    S2[a1, a3, SP[a1, a2], a4, a5, n] - S2[a1, a3, SP[a1, a2], a5, a4, n] + 
    S2[a1, a3, SP[a1, a5], a2, a4, n] + S2[a1, a3, SP[a1, a5], a4, a2, n] + 
    S2[a1, a4, a1, a2, SP[a3, a5], n] + S2[a1, a4, a1, SP[a2, a3], a5, n] + 
    S2[a1, a4, SP[a1, a3], a2, a5, n] - 2*S2[a2, n]*
     S2[a1, a5, a1, a3, a4, n] - 2*S2[a1, a5, a1, a3, SP[a2, a4], n] - 
    2*S2[a1, a5, a1, SP[a2, a3], a4, n] - 
    S2[a2, n]*S2[a1, a5, a3, a1, a4, n] - S2[a1, a5, a3, a1, SP[a2, a4], n] - 
    S2[a1, a5, a3, SP[a1, a2], a4, n] - 2*S2[a1, a5, SP[a1, a2], a3, a4, n] - 
    S2[a1, a5, SP[a2, a3], a1, a4, n] - S2[a1, SP[a1, a2], a3, a4, a5, n] - 
    S2[a1, SP[a1, a2], a3, a5, a4, n] - S2[a1, SP[a1, a2], a5, a3, a4, n] - 
    S2[a1, SP[a1, a3], a2, a4, a5, n] - S2[a1, SP[a1, a3], a2, a5, a4, n] - 
    S2[a1, SP[a1, a3], a4, a2, a5, n] + 2*S2[a1, SP[a1, a5], a2, a3, a4, n] + 
    2*S2[a1, SP[a1, a5], a3, a2, a4, n] + 
    2*S2[a1, SP[a1, a5], a3, a4, a2, n] - S2[a1, SP[a2, a5], a1, a3, a4, n] + 
    S2[a1, SP[a3, a5], a1, a2, a4, n] + S2[a1, SP[a3, a5], a1, a4, a2, n] + 
    S2[a1, SP[a3, a5], a2, a1, a4, n] + 2*S2[a2, a1, a1, a3, SP[a4, a5], n] + 
    2*S2[a2, a1, a1, SP[a3, a5], a4, n] + S2[a2, a1, a3, a1, SP[a4, a5], n] + 
    S2[a2, a1, a3, SP[a1, a5], a4, n] + 2*S2[a2, a1, SP[a1, a5], a3, a4, n] + 
    S2[a2, a1, SP[a3, a5], a1, a4, n] + 2*S2[a2, SP[a1, a5], a1, a3, a4, n] + 
    S2[a2, SP[a1, a5], a3, a1, a4, n] - 2*S2[a2, n]*
     S2[a5, a1, a1, a3, a4, n] - 2*S2[a5, a1, a1, a3, SP[a2, a4], n] - 
    2*S2[a5, a1, a1, SP[a2, a3], a4, n] - 
    S2[a2, n]*S2[a5, a1, a3, a1, a4, n] - S2[a5, a1, a3, a1, SP[a2, a4], n] - 
    S2[a5, a1, a3, SP[a1, a2], a4, n] - 2*S2[a5, a1, SP[a1, a2], a3, a4, n] - 
    S2[a5, a1, SP[a2, a3], a1, a4, n] + S2[a1, n]*S2[a5, a2, a1, a3, a4, n] + 
    S2[a5, a2, a1, a3, SP[a1, a4], n] + S2[a5, a2, a1, SP[a1, a3], a4, n] + 
    S2[a5, a2, SP[a1, a1], a3, a4, n] - S2[a5, SP[a1, a2], a1, a3, a4, n] - 
    S2[a5, SP[a1, a2], a3, a1, a4, n] - S2[SP[a1, a1], a2, a3, a4, a5, n] - 
    S2[SP[a1, a1], a2, a3, a5, a4, n] - S2[SP[a1, a1], a2, a5, a3, a4, n] - 
    S2[SP[a1, a1], a3, a2, a4, a5, n] - S2[SP[a1, a1], a3, a2, a5, a4, n] - 
    S2[SP[a1, a1], a3, a4, a2, a5, n] + 2*S2[SP[a1, a5], a1, a2, a3, a4, n] + 
    2*S2[SP[a1, a5], a1, a3, a2, a4, n] + 
    2*S2[SP[a1, a5], a1, a3, a4, a2, n] + 
    2*S2[SP[a1, a5], a2, a1, a3, a4, n] + S2[SP[a1, a5], a2, a3, a1, a4, n] + 
    S2[SP[a1, a5], a3, a1, a2, a4, n] + S2[SP[a1, a5], a3, a1, a4, a2, n] + 
    S2[SP[a1, a5], a3, a2, a1, a4, n] - 2*S2[SP[a2, a5], a1, a1, a3, a4, n] - 
    S2[SP[a2, a5], a1, a3, a1, a4, n] - S2[a5, a2, a1, a3, a4, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a1_, a4_, a3_, a1_, a5_, a2_, n_] :> 
  S2[a1, a4, a3, n]*S2[a1, a5, a2, n] + S2[SP[a1, a1], SP[a4, a5], 
     SP[a2, a3], n] - 2*S2[a2, a5, n]*S2[a1, a1, a3, a4, n] + 
    2*S2[a1, a1, SP[a2, a3], SP[a4, a5], n] - 
    2*S2[a1, a1, SP[a4, a5], SP[a2, a3], n] - 
    S2[a2, a5, n]*S2[a1, a3, a1, a4, n] - S2[a1, a4, n]*
     S2[a1, a3, a5, a2, n] + S2[a1, a3, SP[a1, a2], SP[a4, a5], n] + 
    S2[a1, a3, SP[a1, a5], SP[a2, a4], n] - S2[a1, a4, n]*
     S2[a1, a5, a2, a3, n] - S2[a1, a4, n]*S2[a1, a5, a3, a2, n] + 
    S2[a1, a5, SP[a1, a2], SP[a3, a4], n] + S2[a1, a5, SP[a1, a3], 
     SP[a2, a4], n] + 2*S2[a1, SP[a1, a2], a3, SP[a4, a5], n] + 
    2*S2[a1, SP[a1, a2], SP[a3, a5], a4, n] + S2[a1, SP[a1, a3], a5, 
     SP[a2, a4], n] + S2[a1, SP[a1, a3], SP[a4, a5], a2, n] - 
    S2[a1, SP[a1, a4], a5, SP[a2, a3], n] - S2[a1, SP[a1, a4], SP[a3, a5], 
     a2, n] + S2[a1, SP[a1, a5], a2, SP[a3, a4], n] + 
    S2[a1, SP[a1, a5], a3, SP[a2, a4], n] - S2[a1, SP[a1, a5], a4, 
     SP[a2, a3], n] + S2[a1, SP[a1, a5], SP[a3, a4], a2, n] + 
    S2[a1, SP[a2, a3], a1, SP[a4, a5], n] + S2[a1, SP[a2, a3], SP[a1, a5], 
     a4, n] + S2[SP[a1, a1], a3, a5, SP[a2, a4], n] + 
    S2[SP[a1, a1], a3, SP[a4, a5], a2, n] - S2[SP[a1, a1], a4, a5, 
     SP[a2, a3], n] - S2[SP[a1, a1], a4, SP[a3, a5], a2, n] + 
    S2[SP[a1, a1], a5, a2, SP[a3, a4], n] + S2[SP[a1, a1], a5, a3, 
     SP[a2, a4], n] - S2[SP[a1, a1], a5, a4, SP[a2, a3], n] + 
    S2[SP[a1, a1], a5, SP[a3, a4], a2, n] + S2[SP[a1, a1], SP[a3, a4], a5, 
     a2, n] + 2*S2[SP[a1, a2], a1, a3, SP[a4, a5], n] + 
    2*S2[SP[a1, a2], a1, SP[a3, a5], a4, n] + S2[SP[a1, a2], a3, a1, 
     SP[a4, a5], n] + S2[SP[a1, a2], a3, SP[a1, a5], a4, n] + 
    2*S2[SP[a1, a2], SP[a1, a5], a3, a4, n] + S2[SP[a1, a2], SP[a3, a5], a1, 
     a4, n] - 2*S2[a1, a1, a2, a3, SP[a4, a5], n] - 
    2*S2[a1, a1, a2, SP[a3, a5], a4, n] - 
    2*S2[a1, a1, a3, a2, SP[a4, a5], n] + 
    2*S2[a2, n]*S2[a1, a1, a3, a4, a5, n] + 
    2*S2[a1, a1, a3, a4, SP[a2, a5], n] + 
    2*S2[a2, n]*S2[a1, a1, a3, a5, a4, n] + 
    2*S2[a1, a1, a3, SP[a2, a5], a4, n] - 
    2*S2[a1, a1, a3, SP[a4, a5], a2, n] + 
    2*S2[a1, a1, a4, a5, SP[a2, a3], n] + 
    2*S2[a1, a1, a4, SP[a3, a5], a2, n] - 
    2*S2[a1, a1, a5, a2, SP[a3, a4], n] + 
    2*S2[a2, n]*S2[a1, a1, a5, a3, a4, n] + 
    2*S2[a1, a1, a5, a4, SP[a2, a3], n] + 
    2*S2[a1, a1, a5, SP[a2, a3], a4, n] - 
    2*S2[a1, a1, a5, SP[a3, a4], a2, n] + 
    2*S2[a1, a1, SP[a2, a5], a3, a4, n] - 
    2*S2[a1, a1, SP[a3, a4], a5, a2, n] - 
    2*S2[a1, a2, a1, a3, SP[a4, a5], n] - 
    2*S2[a1, a2, a1, SP[a3, a5], a4, n] - S2[a1, a2, a3, a1, SP[a4, a5], n] - 
    S2[a1, a2, a3, SP[a1, a5], a4, n] - 2*S2[a1, a2, SP[a1, a5], a3, a4, n] - 
    S2[a1, a2, SP[a3, a5], a1, a4, n] - S2[a1, a3, a1, a2, SP[a4, a5], n] + 
    S2[a2, n]*S2[a1, a3, a1, a4, a5, n] + S2[a1, a3, a1, a4, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a3, a1, a5, a4, n] + S2[a1, a3, a1, SP[a2, a5], a4, n] - 
    S2[a1, a3, a1, SP[a4, a5], a2, n] - S2[a1, a3, a2, a1, SP[a4, a5], n] - 
    S2[a1, a3, a2, SP[a1, a5], a4, n] + S2[a2, n]*S2[a1, a3, a5, a1, a4, n] - 
    S2[a1, a3, SP[a1, a5], a2, a4, n] - S2[a1, a3, SP[a1, a5], a4, a2, n] + 
    S2[a1, a3, SP[a2, a5], a1, a4, n] + S2[a1, a4, a1, a5, SP[a2, a3], n] + 
    S2[a1, a4, a1, SP[a3, a5], a2, n] + S2[a1, a4, SP[a1, a3], a5, a2, n] - 
    S2[a1, a5, a1, a2, SP[a3, a4], n] + 2*S2[a2, n]*
     S2[a1, a5, a1, a3, a4, n] + S2[a1, a5, a1, a3, SP[a2, a4], n] + 
    S2[a1, a5, a1, a4, SP[a2, a3], n] + 2*S2[a1, a5, a1, SP[a2, a3], a4, n] - 
    S2[a1, a5, a1, SP[a3, a4], a2, n] - S2[a1, a5, a2, a1, SP[a3, a4], n] - 
    S2[a1, a5, a2, SP[a1, a3], a4, n] + S2[a2, n]*S2[a1, a5, a3, a1, a4, n] + 
    S2[a1, a5, SP[a1, a2], a3, a4, n] - S2[a1, a5, SP[a1, a3], a2, a4, n] - 
    S2[a1, a5, SP[a1, a3], a4, a2, n] + S2[a1, a5, SP[a2, a3], a1, a4, n] - 
    S2[a1, SP[a1, a3], a4, a5, a2, n] - S2[a1, SP[a1, a3], a5, a2, a4, n] - 
    S2[a1, SP[a1, a3], a5, a4, a2, n] - S2[a1, SP[a1, a5], a2, a3, a4, n] - 
    S2[a1, SP[a1, a5], a3, a2, a4, n] - S2[a1, SP[a1, a5], a3, a4, a2, n] + 
    2*S2[a1, SP[a2, a5], a1, a3, a4, n] + S2[a1, SP[a2, a5], a3, a1, a4, n] - 
    2*S2[a2, a1, a1, a3, SP[a4, a5], n] - 
    2*S2[a2, a1, a1, SP[a3, a5], a4, n] - S2[a2, a1, a3, a1, SP[a4, a5], n] - 
    S2[a2, a1, a3, SP[a1, a5], a4, n] - 2*S2[a2, a1, SP[a1, a5], a3, a4, n] - 
    S2[a2, a1, SP[a3, a5], a1, a4, n] - 2*S2[a2, SP[a1, a5], a1, a3, a4, n] - 
    S2[a2, SP[a1, a5], a3, a1, a4, n] + 2*S2[a2, n]*
     S2[a5, a1, a1, a3, a4, n] + 2*S2[a5, a1, a1, a3, SP[a2, a4], n] + 
    2*S2[a5, a1, a1, SP[a2, a3], a4, n] - 
    S2[a1, n]*S2[a5, a1, a2, a3, a4, n] - S2[a5, a1, a2, a3, SP[a1, a4], n] - 
    S2[a5, a1, a2, SP[a1, a3], a4, n] + S2[a2, n]*S2[a5, a1, a3, a1, a4, n] + 
    S2[a5, a1, a3, a1, SP[a2, a4], n] - S2[a1, n]*S2[a5, a1, a3, a2, a4, n] - 
    S2[a5, a1, a3, a2, SP[a1, a4], n] - S2[a1, n]*S2[a5, a1, a3, a4, a2, n] - 
    S2[a5, a1, a3, a4, SP[a1, a2], n] - S2[a5, a1, a3, SP[a1, a4], a2, n] + 
    S2[a5, a1, SP[a1, a2], a3, a4, n] - S2[a5, a1, SP[a1, a3], a2, a4, n] - 
    S2[a5, a1, SP[a1, a3], a4, a2, n] + S2[a5, a1, SP[a2, a3], a1, a4, n] - 
    S2[a1, n]*S2[a5, a2, a1, a3, a4, n] - S2[a5, a2, a1, a3, SP[a1, a4], n] - 
    S2[a5, a2, a1, SP[a1, a3], a4, n] - S2[a5, a2, SP[a1, a1], a3, a4, n] - 
    S2[a5, SP[a1, a1], a2, a3, a4, n] - S2[a5, SP[a1, a1], a3, a2, a4, n] - 
    S2[a5, SP[a1, a1], a3, a4, a2, n] + S2[a5, SP[a1, a2], a1, a3, a4, n] + 
    S2[a5, SP[a1, a2], a3, a1, a4, n] - S2[SP[a1, a1], a3, a4, a5, a2, n] - 
    S2[SP[a1, a1], a3, a5, a2, a4, n] - S2[SP[a1, a1], a3, a5, a4, a2, n] - 
    S2[SP[a1, a1], a5, a2, a3, a4, n] - S2[SP[a1, a1], a5, a3, a2, a4, n] - 
    S2[SP[a1, a1], a5, a3, a4, a2, n] - S2[SP[a1, a5], a1, a2, a3, a4, n] - 
    S2[SP[a1, a5], a1, a3, a2, a4, n] - S2[SP[a1, a5], a1, a3, a4, a2, n] - 
    S2[SP[a1, a5], a2, a1, a3, a4, n] + 2*S2[SP[a2, a5], a1, a1, a3, a4, n] + 
    S2[SP[a2, a5], a1, a3, a1, a4, n] + S2[a5, a1, a2, a3, a4, a1, n] + 
    S2[a5, a1, a3, a2, a4, a1, n] + S2[a5, a1, a3, a4, a1, a2, n] + 
    S2[a5, a1, a3, a4, a2, a1, n] + S2[a5, a2, a1, a3, a4, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a1_, a4_, a3_, a2_, a1_, a5_, n_] :> 
  -(S2[a1, a2, a5, n]*S2[a1, a4, a3, n]) - S2[a1, a4, a3, n]*
     S2[a1, a5, a2, n] - S2[SP[a1, a1], SP[a2, a4], SP[a3, a5], n] - 
    S2[SP[a1, a1], SP[a4, a5], SP[a2, a3], n] + 
    2*S2[a1, a1, SP[a2, a4], SP[a3, a5], n] + 
    2*S2[a1, a1, SP[a4, a5], SP[a2, a3], n] + 
    S2[a1, a4, n]*S2[a1, a2, a3, a5, n] + S2[a1, a4, n]*
     S2[a1, a2, a5, a3, n] - S2[a1, a2, SP[a1, a3], SP[a4, a5], n] - 
    S2[a1, a2, SP[a1, a5], SP[a3, a4], n] + S2[a1, a5, n]*
     S2[a1, a4, a3, a2, n] - S2[a1, a4, SP[a1, a3], SP[a2, a5], n] + 
    S2[a1, a4, n]*S2[a1, a5, a2, a3, n] - S2[a1, a5, SP[a1, a2], SP[a3, a4], 
     n] - S2[a1, SP[a1, a2], a3, SP[a4, a5], n] + S2[a1, SP[a1, a2], a4, 
     SP[a3, a5], n] - S2[a1, SP[a1, a2], a5, SP[a3, a4], n] - 
    S2[a1, SP[a1, a2], SP[a3, a4], a5, n] + S2[a1, SP[a1, a4], a2, 
     SP[a3, a5], n] - S2[a1, SP[a1, a4], a3, SP[a2, a5], n] + 
    S2[a1, SP[a1, a4], a5, SP[a2, a3], n] + S2[a1, SP[a1, a4], SP[a2, a3], 
     a5, n] - S2[a1, SP[a1, a5], a2, SP[a3, a4], n] + 
    S2[a1, SP[a1, a5], a4, SP[a2, a3], n] - S2[SP[a1, a1], a2, a3, 
     SP[a4, a5], n] + S2[SP[a1, a1], a2, a4, SP[a3, a5], n] - 
    S2[SP[a1, a1], a2, a5, SP[a3, a4], n] - S2[SP[a1, a1], a2, SP[a3, a4], 
     a5, n] + S2[SP[a1, a1], a4, a2, SP[a3, a5], n] - 
    S2[SP[a1, a1], a4, a3, SP[a2, a5], n] + S2[SP[a1, a1], a4, a5, 
     SP[a2, a3], n] + S2[SP[a1, a1], a4, SP[a2, a3], a5, n] - 
    S2[SP[a1, a1], a5, a2, SP[a3, a4], n] + S2[SP[a1, a1], a5, a4, 
     SP[a2, a3], n] - 2*S2[a5, n]*S2[a1, a1, a2, a3, a4, n] - 
    2*S2[a1, a1, a2, a4, SP[a3, a5], n] + 
    2*S2[a1, a1, a2, a5, SP[a3, a4], n] + 
    2*S2[a1, a1, a2, SP[a3, a4], a5, n] - 
    2*S2[a1, a1, a2, SP[a3, a5], a4, n] - 
    2*S2[a1, a1, a4, a2, SP[a3, a5], n] + 
    2*S2[a1, a1, a4, a3, SP[a2, a5], n] - 
    2*S2[a1, a1, a4, a5, SP[a2, a3], n] - 
    2*S2[a1, a1, a4, SP[a2, a3], a5, n] + 
    2*S2[a1, a1, a5, a2, SP[a3, a4], n] - 
    2*S2[a1, a1, a5, a4, SP[a2, a3], n] - 
    2*S2[a1, a1, SP[a2, a5], a3, a4, n] - 
    S2[a5, n]*S2[a1, a2, a1, a3, a4, n] - S2[a1, a2, a1, a4, SP[a3, a5], n] + 
    S2[a1, a2, a1, a5, SP[a3, a4], n] + S2[a1, a2, a1, SP[a3, a4], a5, n] - 
    S2[a1, a2, a1, SP[a3, a5], a4, n] - S2[a5, n]*S2[a1, a2, a3, a1, a4, n] + 
    S2[a1, a2, a5, a1, SP[a3, a4], n] + S2[a1, a2, a5, SP[a1, a3], a4, n] + 
    S2[a1, a2, SP[a1, a3], a4, a5, n] + S2[a1, a2, SP[a1, a3], a5, a4, n] - 
    S2[a1, a2, SP[a3, a5], a1, a4, n] - S2[a1, a4, a1, a2, SP[a3, a5], n] + 
    S2[a1, a4, a1, a3, SP[a2, a5], n] - S2[a1, a4, a1, a5, SP[a2, a3], n] - 
    S2[a1, a4, a1, SP[a2, a3], a5, n] + S2[a1, a4, a3, a1, SP[a2, a5], n] + 
    S2[a1, a4, a3, SP[a1, a2], a5, n] + S2[a1, a5, a1, a2, SP[a3, a4], n] - 
    S2[a1, a5, a1, a4, SP[a2, a3], n] + S2[a1, a5, a2, a1, SP[a3, a4], n] + 
    S2[a1, a5, a2, SP[a1, a3], a4, n] + S2[a1, a5, SP[a1, a2], a3, a4, n] + 
    S2[a1, SP[a1, a2], a3, a4, a5, n] + S2[a1, SP[a1, a2], a3, a5, a4, n] + 
    S2[a1, SP[a1, a2], a5, a3, a4, n] - S2[a1, SP[a1, a5], a2, a3, a4, n] - 
    S2[a1, SP[a2, a5], a1, a3, a4, n] - S2[a1, SP[a2, a5], a3, a1, a4, n] + 
    S2[a1, n]*S2[a5, a1, a2, a3, a4, n] + S2[a5, a1, a2, a3, SP[a1, a4], n] + 
    S2[a5, a1, a2, SP[a1, a3], a4, n] + S2[a5, a1, SP[a1, a2], a3, a4, n] + 
    S2[a5, SP[a1, a1], a2, a3, a4, n] + S2[SP[a1, a1], a2, a3, a4, a5, n] + 
    S2[SP[a1, a1], a2, a3, a5, a4, n] + S2[SP[a1, a1], a2, a5, a3, a4, n] + 
    S2[SP[a1, a1], a5, a2, a3, a4, n] - S2[SP[a1, a5], a1, a2, a3, a4, n] - 
    S2[SP[a1, a5], a2, a1, a3, a4, n] - S2[SP[a1, a5], a2, a3, a1, a4, n] - 
    S2[a5, a1, a2, a3, a4, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a1_, a4_, a3_, a2_, a5_, a1_, n_] :> 
  S2[a1, a4, a3, n]*S2[a1, a5, a2, n] + S2[SP[a1, a1], SP[a4, a5], 
     SP[a2, a3], n] - 2*S2[a1, a1, SP[a4, a5], SP[a2, a3], n] - 
    S2[a1, a5, n]*S2[a1, a4, a3, a2, n] + S2[a1, a4, SP[a1, a3], SP[a2, a5], 
     n] - S2[a1, a4, n]*S2[a1, a5, a2, a3, n] + S2[a1, a5, SP[a1, a2], 
     SP[a3, a4], n] + S2[a1, SP[a1, a4], a3, SP[a2, a5], n] - 
    S2[a1, SP[a1, a4], a5, SP[a2, a3], n] + S2[a1, SP[a1, a5], a2, 
     SP[a3, a4], n] - S2[a1, SP[a1, a5], a4, SP[a2, a3], n] + 
    S2[SP[a1, a1], a4, a3, SP[a2, a5], n] - S2[SP[a1, a1], a4, a5, 
     SP[a2, a3], n] + S2[SP[a1, a1], a5, a2, SP[a3, a4], n] - 
    S2[SP[a1, a1], a5, a4, SP[a2, a3], n] - 
    2*S2[a1, a1, a4, a3, SP[a2, a5], n] + 
    2*S2[a1, a1, a4, a5, SP[a2, a3], n] - 
    2*S2[a1, a1, a5, a2, SP[a3, a4], n] + 
    2*S2[a1, a1, a5, a4, SP[a2, a3], n] - S2[a1, a4, a1, a3, SP[a2, a5], n] + 
    S2[a1, a4, a1, a5, SP[a2, a3], n] - S2[a1, a4, a3, a1, SP[a2, a5], n] + 
    S2[a1, n]*S2[a1, a4, a3, a2, a5, n] + S2[a1, a4, a3, a2, SP[a1, a5], n] - 
    S2[a1, a5, a1, a2, SP[a3, a4], n] + S2[a1, a5, a1, a4, SP[a2, a3], n] - 
    S2[a1, a5, a2, a1, SP[a3, a4], n] + S2[a1, n]*S2[a1, a5, a2, a3, a4, n] + 
    S2[a1, a5, a2, a3, SP[a1, a4], n] - S2[a1, n]*S2[a5, a2, a3, a4, a1, n] - 
    S2[a5, a2, a3, a4, SP[a1, a1], n] - S2[a5, a2, a3, SP[a1, a4], a1, n] - 
    S2[a5, a2, SP[a1, a3], a4, a1, n] - S2[a5, SP[a1, a2], a3, a4, a1, n] - 
    S2[SP[a1, a5], a2, a3, a4, a1, n] + S2[a5, a1, a2, a3, a4, a1, n] + 
    S2[a5, a2, a1, a3, a4, a1, n] + S2[a5, a2, a3, a1, a4, a1, n] + 
    2*S2[a5, a2, a3, a4, a1, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a1_, a4_, a3_, a5_, a1_, a2_, n_] :> 
  -(S2[a1, a2, a5, n]*S2[a1, a4, a3, n]) - S2[a1, a4, a3, n]*
     S2[a1, a5, a2, n] - S2[SP[a1, a1], SP[a2, a4], SP[a3, a5], n] - 
    S2[SP[a1, a1], SP[a4, a5], SP[a2, a3], n] + 
    2*S2[a1, a1, SP[a2, a4], SP[a3, a5], n] + 
    2*S2[a1, a1, SP[a4, a5], SP[a2, a3], n] + 
    S2[a1, a4, n]*S2[a1, a2, a5, a3, n] - S2[a1, a2, SP[a1, a5], SP[a3, a4], 
     n] - S2[a1, a2, n]*S2[a1, a4, a5, a3, n] + S2[a1, a4, SP[a1, a5], 
     SP[a2, a3], n] + S2[a1, a4, n]*S2[a1, a5, a2, a3, n] + 
    S2[a1, a4, n]*S2[a1, a5, a3, a2, n] - S2[a1, a2, n]*
     S2[a1, a5, a3, a4, n] - S2[a1, a2, n]*S2[a1, a5, a4, a3, n] - 
    S2[a1, a5, SP[a1, a2], SP[a3, a4], n] + S2[a1, a5, SP[a1, a4], 
     SP[a2, a3], n] + S2[a1, SP[a1, a2], a4, SP[a3, a5], n] - 
    S2[a1, SP[a1, a2], a5, SP[a3, a4], n] + S2[a1, SP[a1, a4], a2, 
     SP[a3, a5], n] + 2*S2[a1, SP[a1, a4], a5, SP[a2, a3], n] + 
    S2[a1, SP[a1, a4], SP[a2, a3], a5, n] + S2[a1, SP[a1, a4], SP[a2, a5], 
     a3, n] + S2[a1, SP[a1, a4], SP[a3, a5], a2, n] - 
    S2[a1, SP[a1, a5], a2, SP[a3, a4], n] + 
    2*S2[a1, SP[a1, a5], a4, SP[a2, a3], n] + S2[a1, SP[a1, a5], SP[a2, a3], 
     a4, n] + S2[a1, SP[a1, a5], SP[a2, a4], a3, n] - 
    S2[a1, SP[a1, a5], SP[a3, a4], a2, n] + S2[a1, a2, n]*
     S2[a3, a5, a1, a4, n] - S2[a3, a5, SP[a1, a1], SP[a2, a4], n] - 
    S2[a3, SP[a1, a5], a1, SP[a2, a4], n] - S2[a3, SP[a1, a5], SP[a1, a2], 
     a4, n] + S2[SP[a1, a1], a2, a4, SP[a3, a5], n] - 
    S2[SP[a1, a1], a2, a5, SP[a3, a4], n] + S2[SP[a1, a1], a4, a2, 
     SP[a3, a5], n] + 2*S2[SP[a1, a1], a4, a5, SP[a2, a3], n] + 
    S2[SP[a1, a1], a4, SP[a2, a3], a5, n] + S2[SP[a1, a1], a4, SP[a2, a5], 
     a3, n] + S2[SP[a1, a1], a4, SP[a3, a5], a2, n] - 
    S2[SP[a1, a1], a5, a2, SP[a3, a4], n] + 
    2*S2[SP[a1, a1], a5, a4, SP[a2, a3], n] + S2[SP[a1, a1], a5, SP[a2, a3], 
     a4, n] + S2[SP[a1, a1], a5, SP[a2, a4], a3, n] - 
    S2[SP[a1, a1], a5, SP[a3, a4], a2, n] + S2[SP[a1, a1], SP[a2, a4], a3, 
     a5, n] + S2[SP[a1, a1], SP[a2, a4], a5, a3, n] + 
    S2[SP[a1, a1], SP[a2, a5], a3, a4, n] + S2[SP[a1, a1], SP[a2, a5], a4, 
     a3, n] - S2[SP[a1, a3], a5, a1, SP[a2, a4], n] - 
    S2[SP[a1, a3], a5, SP[a1, a2], a4, n] - S2[SP[a1, a3], SP[a2, a5], a1, 
     a4, n] + 2*S2[a5, n]*S2[a1, a1, a2, a4, a3, n] + 
    2*S2[a1, a1, a2, a5, SP[a3, a4], n] + 
    2*S2[a1, a1, a2, SP[a4, a5], a3, n] + 
    2*S2[a5, n]*S2[a1, a1, a4, a2, a3, n] + 
    2*S2[a5, n]*S2[a1, a1, a4, a3, a2, n] + 
    2*S2[a1, a1, a4, a3, SP[a2, a5], n] - 
    4*S2[a1, a1, a4, a5, SP[a2, a3], n] - 
    2*S2[a1, a1, a4, SP[a2, a3], a5, n] + 
    2*S2[a1, a1, a5, a2, SP[a3, a4], n] - 
    4*S2[a1, a1, a5, a4, SP[a2, a3], n] - 
    2*S2[a1, a1, a5, SP[a2, a3], a4, n] - 
    2*S2[a1, a1, a5, SP[a2, a4], a3, n] + 
    2*S2[a1, a1, a5, SP[a3, a4], a2, n] - 
    2*S2[a1, a1, SP[a2, a4], a3, a5, n] - 
    2*S2[a1, a1, SP[a2, a4], a5, a3, n] - 
    2*S2[a1, a1, SP[a2, a5], a3, a4, n] + 
    2*S2[a1, a1, SP[a4, a5], a2, a3, n] + 
    2*S2[a1, a1, SP[a4, a5], a3, a2, n] + 
    S2[a5, n]*S2[a1, a2, a1, a4, a3, n] + S2[a1, a2, a1, a5, SP[a3, a4], n] + 
    S2[a1, a2, a1, SP[a4, a5], a3, n] - S2[a3, n]*S2[a1, a2, a5, a1, a4, n] + 
    S2[a1, a2, SP[a1, a5], a3, a4, n] + S2[a1, a2, SP[a1, a5], a4, a3, n] - 
    S2[a1, a2, SP[a3, a5], a1, a4, n] + S2[a1, a3, a5, a1, SP[a2, a4], n] + 
    S2[a1, a3, a5, SP[a1, a2], a4, n] + S2[a1, a3, SP[a2, a5], a1, a4, n] + 
    S2[a5, n]*S2[a1, a4, a1, a2, a3, n] + 
    S2[a5, n]*S2[a1, a4, a1, a3, a2, n] + S2[a1, a4, a1, a3, SP[a2, a5], n] - 
    2*S2[a1, a4, a1, a5, SP[a2, a3], n] - S2[a1, a4, a1, SP[a2, a3], a5, n] + 
    S2[a5, n]*S2[a1, a4, a3, a1, a2, n] + S2[a1, a4, a3, a1, SP[a2, a5], n] + 
    S2[a1, a4, a3, SP[a1, a5], a2, n] - S2[a1, a4, a5, a1, SP[a2, a3], n] - 
    S2[a1, a4, a5, SP[a1, a3], a2, n] - S2[a1, a4, SP[a1, a3], a2, a5, n] - 
    S2[a1, a4, SP[a1, a3], a5, a2, n] + S2[a1, a4, SP[a3, a5], a1, a2, n] - 
    S2[a3, n]*S2[a1, a5, a1, a2, a4, n] - 
    S2[a3, n]*S2[a1, a5, a1, a4, a2, n] - 
    3*S2[a1, a5, a1, a4, SP[a2, a3], n] - 
    2*S2[a1, a5, a1, SP[a2, a3], a4, n] - S2[a1, a5, a1, SP[a2, a4], a3, n] - 
    S2[a3, n]*S2[a1, a5, a2, a1, a4, n] + S2[a1, a5, a3, SP[a1, a2], a4, n] - 
    S2[a1, a5, a3, SP[a1, a4], a2, n] - S2[a1, a5, a4, a1, SP[a2, a3], n] - 
    S2[a1, a5, a4, SP[a1, a3], a2, n] + S2[a1, a5, SP[a1, a2], a3, a4, n] - 
    S2[a1, a5, SP[a1, a3], a2, a4, n] - S2[a1, a5, SP[a1, a3], a4, a2, n] - 
    S2[a1, a5, SP[a1, a4], a2, a3, n] - S2[a1, a5, SP[a1, a4], a3, a2, n] - 
    S2[a1, a5, SP[a2, a3], a1, a4, n] - S2[a1, SP[a1, a2], a4, a3, a5, n] - 
    S2[a1, SP[a1, a2], a4, a5, a3, n] - S2[a1, SP[a1, a2], a5, a4, a3, n] - 
    S2[a1, SP[a1, a4], a2, a3, a5, n] - S2[a1, SP[a1, a4], a2, a5, a3, n] - 
    S2[a1, SP[a1, a4], a3, a2, a5, n] - S2[a1, SP[a1, a4], a3, a5, a2, n] - 
    S2[a1, SP[a1, a4], a5, a2, a3, n] - S2[a1, SP[a1, a4], a5, a3, a2, n] + 
    S2[a1, SP[a1, a5], a2, a4, a3, n] + S2[a1, SP[a1, a5], a4, a2, a3, n] + 
    S2[a1, SP[a1, a5], a4, a3, a2, n] + S2[a1, SP[a2, a5], a1, a4, a3, n] - 
    S2[a1, SP[a3, a5], a1, a2, a4, n] - S2[a1, SP[a3, a5], a1, a4, a2, n] - 
    S2[a1, SP[a3, a5], a2, a1, a4, n] + S2[a1, SP[a4, a5], a1, a2, a3, n] + 
    S2[a1, SP[a4, a5], a1, a3, a2, n] + S2[a1, SP[a4, a5], a3, a1, a2, n] + 
    S2[a3, a1, a5, a1, SP[a2, a4], n] + S2[a3, a1, a5, SP[a1, a2], a4, n] + 
    S2[a3, a1, SP[a2, a5], a1, a4, n] + 2*S2[a3, a5, a1, a1, SP[a2, a4], n] + 
    S2[a3, a5, a1, SP[a1, a2], a4, n] + S2[a3, a5, a1, SP[a1, a4], a2, n] + 
    S2[a3, a5, SP[a1, a1], a2, a4, n] + S2[a3, a5, SP[a1, a1], a4, a2, n] + 
    S2[a3, SP[a1, a5], a1, a2, a4, n] + S2[a3, SP[a1, a5], a1, a4, a2, n] + 
    S2[a3, SP[a1, a5], a2, a1, a4, n] - 2*S2[a3, n]*
     S2[a5, a1, a1, a2, a4, n] - 2*S2[a5, a1, a1, a2, SP[a3, a4], n] - 
    2*S2[a3, n]*S2[a5, a1, a1, a4, a2, n] - 
    2*S2[a5, a1, a1, a4, SP[a2, a3], n] - 
    2*S2[a5, a1, a1, SP[a2, a3], a4, n] - 
    2*S2[a5, a1, a1, SP[a3, a4], a2, n] - 
    S2[a3, n]*S2[a5, a1, a2, a1, a4, n] - S2[a5, a1, a2, a1, SP[a3, a4], n] + 
    S2[a1, n]*S2[a5, a1, a2, a3, a4, n] + S2[a5, a1, a2, a3, SP[a1, a4], n] + 
    S2[a1, n]*S2[a5, a1, a3, a2, a4, n] + S2[a5, a1, a3, a2, SP[a1, a4], n] + 
    S2[a1, n]*S2[a5, a1, a3, a4, a2, n] + S2[a5, a1, a3, a4, SP[a1, a2], n] + 
    S2[a5, a1, a3, SP[a1, a2], a4, n] + S2[a5, a1, a3, SP[a1, a4], a2, n] - 
    S2[a3, n]*S2[a5, a1, a4, a1, a2, n] - S2[a5, a1, a4, a1, SP[a2, a3], n] - 
    S2[a5, a1, a4, SP[a1, a3], a2, n] + S2[a5, a1, SP[a1, a2], a3, a4, n] - 
    S2[a5, a1, SP[a1, a3], a2, a4, n] - S2[a5, a1, SP[a1, a3], a4, a2, n] - 
    S2[a5, a1, SP[a2, a3], a1, a4, n] - S2[a5, a1, SP[a3, a4], a1, a2, n] + 
    S2[a1, n]*S2[a5, a3, a1, a2, a4, n] + S2[a5, a3, a1, a2, SP[a1, a4], n] + 
    S2[a1, n]*S2[a5, a3, a1, a4, a2, n] + S2[a5, a3, a1, a4, SP[a1, a2], n] + 
    S2[a5, a3, a1, SP[a1, a2], a4, n] + S2[a5, a3, a1, SP[a1, a4], a2, n] + 
    S2[a1, n]*S2[a5, a3, a4, a1, a2, n] + S2[a5, a3, a4, a1, SP[a1, a2], n] + 
    S2[a5, a3, a4, SP[a1, a1], a2, n] + S2[a5, a3, SP[a1, a1], a2, a4, n] + 
    S2[a5, a3, SP[a1, a1], a4, a2, n] + S2[a5, a3, SP[a1, a4], a1, a2, n] + 
    S2[a5, SP[a1, a1], a2, a3, a4, n] + S2[a5, SP[a1, a1], a3, a2, a4, n] + 
    S2[a5, SP[a1, a1], a3, a4, a2, n] - S2[a5, SP[a1, a3], a1, a2, a4, n] - 
    S2[a5, SP[a1, a3], a1, a4, a2, n] - S2[a5, SP[a1, a3], a2, a1, a4, n] - 
    S2[SP[a1, a1], a2, a4, a3, a5, n] - S2[SP[a1, a1], a2, a4, a5, a3, n] - 
    S2[SP[a1, a1], a2, a5, a4, a3, n] - S2[SP[a1, a1], a4, a2, a3, a5, n] - 
    S2[SP[a1, a1], a4, a2, a5, a3, n] - S2[SP[a1, a1], a4, a3, a2, a5, n] - 
    S2[SP[a1, a1], a4, a3, a5, a2, n] - S2[SP[a1, a1], a4, a5, a2, a3, n] - 
    S2[SP[a1, a1], a4, a5, a3, a2, n] - S2[SP[a1, a1], a5, a2, a4, a3, n] - 
    S2[SP[a1, a1], a5, a4, a2, a3, n] - S2[SP[a1, a1], a5, a4, a3, a2, n] + 
    S2[SP[a1, a5], a1, a2, a3, a4, n] + 2*S2[SP[a1, a5], a1, a2, a4, a3, n] + 
    S2[SP[a1, a5], a1, a3, a2, a4, n] + S2[SP[a1, a5], a1, a3, a4, a2, n] + 
    2*S2[SP[a1, a5], a1, a4, a2, a3, n] + 
    2*S2[SP[a1, a5], a1, a4, a3, a2, n] + S2[SP[a1, a5], a2, a1, a4, a3, n] + 
    S2[SP[a1, a5], a3, a1, a2, a4, n] + S2[SP[a1, a5], a3, a1, a4, a2, n] + 
    S2[SP[a1, a5], a3, a4, a1, a2, n] + S2[SP[a1, a5], a4, a1, a2, a3, n] + 
    S2[SP[a1, a5], a4, a1, a3, a2, n] + S2[SP[a1, a5], a4, a3, a1, a2, n] - 
    2*S2[SP[a3, a5], a1, a1, a2, a4, n] - 
    2*S2[SP[a3, a5], a1, a1, a4, a2, n] - S2[SP[a3, a5], a1, a2, a1, a4, n] - 
    S2[SP[a3, a5], a1, a4, a1, a2, n] - S2[a5, a1, a2, a3, a4, a1, n] - 
    S2[a5, a1, a3, a2, a4, a1, n] - S2[a5, a1, a3, a4, a1, a2, n] - 
    S2[a5, a1, a3, a4, a2, a1, n] - S2[a5, a3, a1, a2, a4, a1, n] - 
    S2[a5, a3, a1, a4, a1, a2, n] - S2[a5, a3, a1, a4, a2, a1, n] - 
    2*S2[a5, a3, a4, a1, a1, a2, n] - S2[a5, a3, a4, a1, a2, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a1_, a4_, a3_, a5_, a2_, a1_, n_] :> 
  S2[a1, a2, a5, n]*S2[a1, a4, a3, n] + S2[SP[a1, a1], SP[a2, a4], 
     SP[a3, a5], n] - 2*S2[a1, a1, SP[a2, a4], SP[a3, a5], n] - 
    S2[a1, a4, n]*S2[a1, a2, a5, a3, n] + S2[a1, a2, SP[a1, a5], SP[a3, a4], 
     n] + S2[a1, a2, n]*S2[a1, a4, a5, a3, n] - S2[a1, a4, SP[a1, a5], 
     SP[a2, a3], n] + S2[a1, a2, n]*S2[a1, a5, a3, a4, n] + 
    S2[a1, a2, n]*S2[a1, a5, a4, a3, n] - S2[a1, a5, SP[a1, a3], SP[a2, a4], 
     n] - S2[a1, a5, SP[a1, a4], SP[a2, a3], n] - S2[a1, SP[a1, a2], a4, 
     SP[a3, a5], n] + S2[a1, SP[a1, a2], a5, SP[a3, a4], n] - 
    S2[a1, SP[a1, a4], a2, SP[a3, a5], n] - S2[a1, SP[a1, a4], a5, 
     SP[a2, a3], n] - S2[a1, SP[a1, a4], SP[a2, a3], a5, n] - 
    S2[a1, SP[a1, a4], SP[a2, a5], a3, n] - S2[a1, SP[a1, a5], a3, 
     SP[a2, a4], n] - S2[a1, SP[a1, a5], a4, SP[a2, a3], n] - 
    S2[a1, SP[a1, a5], SP[a2, a3], a4, n] - S2[a1, SP[a1, a5], SP[a2, a4], 
     a3, n] - S2[a1, a2, n]*S2[a3, a5, a1, a4, n] + 
    S2[a3, a5, SP[a1, a1], SP[a2, a4], n] + S2[a3, SP[a1, a5], a1, 
     SP[a2, a4], n] + S2[a3, SP[a1, a5], SP[a1, a2], a4, n] - 
    S2[SP[a1, a1], a2, a4, SP[a3, a5], n] + S2[SP[a1, a1], a2, a5, 
     SP[a3, a4], n] - S2[SP[a1, a1], a4, a2, SP[a3, a5], n] - 
    S2[SP[a1, a1], a4, a5, SP[a2, a3], n] - S2[SP[a1, a1], a4, SP[a2, a3], 
     a5, n] - S2[SP[a1, a1], a4, SP[a2, a5], a3, n] - 
    S2[SP[a1, a1], a5, a3, SP[a2, a4], n] - S2[SP[a1, a1], a5, a4, 
     SP[a2, a3], n] - S2[SP[a1, a1], a5, SP[a2, a3], a4, n] - 
    S2[SP[a1, a1], a5, SP[a2, a4], a3, n] - S2[SP[a1, a1], SP[a2, a4], a3, 
     a5, n] - S2[SP[a1, a1], SP[a2, a4], a5, a3, n] - 
    S2[SP[a1, a1], SP[a2, a5], a3, a4, n] - S2[SP[a1, a1], SP[a2, a5], a4, 
     a3, n] + S2[SP[a1, a3], a5, a1, SP[a2, a4], n] + 
    S2[SP[a1, a3], a5, SP[a1, a2], a4, n] + S2[SP[a1, a3], SP[a2, a5], a1, 
     a4, n] - 2*S2[a5, n]*S2[a1, a1, a2, a4, a3, n] - 
    2*S2[a1, a1, a2, a5, SP[a3, a4], n] - 
    2*S2[a1, a1, a2, SP[a4, a5], a3, n] - 
    2*S2[a5, n]*S2[a1, a1, a4, a2, a3, n] - 
    2*S2[a5, n]*S2[a1, a1, a4, a3, a2, n] - 
    2*S2[a1, a1, a4, a3, SP[a2, a5], n] + 
    2*S2[a1, a1, a4, a5, SP[a2, a3], n] + 
    2*S2[a1, a1, a4, SP[a2, a3], a5, n] - 
    2*S2[a1, a1, a4, SP[a3, a5], a2, n] + 
    2*S2[a1, a1, a5, a3, SP[a2, a4], n] + 
    2*S2[a1, a1, a5, a4, SP[a2, a3], n] + 
    2*S2[a1, a1, a5, SP[a2, a3], a4, n] + 
    2*S2[a1, a1, a5, SP[a2, a4], a3, n] + 
    2*S2[a1, a1, SP[a2, a4], a3, a5, n] + 
    2*S2[a1, a1, SP[a2, a4], a5, a3, n] + 
    2*S2[a1, a1, SP[a2, a5], a3, a4, n] - 
    2*S2[a1, a1, SP[a4, a5], a2, a3, n] - 
    2*S2[a1, a1, SP[a4, a5], a3, a2, n] - 
    S2[a5, n]*S2[a1, a2, a1, a4, a3, n] - S2[a1, a2, a1, a5, SP[a3, a4], n] - 
    S2[a1, a2, a1, SP[a4, a5], a3, n] + S2[a3, n]*S2[a1, a2, a5, a1, a4, n] - 
    S2[a1, a2, SP[a1, a5], a3, a4, n] - S2[a1, a2, SP[a1, a5], a4, a3, n] + 
    S2[a1, a2, SP[a3, a5], a1, a4, n] - S2[a1, a3, a5, a1, SP[a2, a4], n] - 
    S2[a1, a3, a5, SP[a1, a2], a4, n] - S2[a1, a3, SP[a2, a5], a1, a4, n] - 
    S2[a5, n]*S2[a1, a4, a1, a2, a3, n] - 
    S2[a5, n]*S2[a1, a4, a1, a3, a2, n] - S2[a1, a4, a1, a3, SP[a2, a5], n] + 
    S2[a1, a4, a1, a5, SP[a2, a3], n] + S2[a1, a4, a1, SP[a2, a3], a5, n] - 
    S2[a1, a4, a1, SP[a3, a5], a2, n] - S2[a5, n]*S2[a1, a4, a3, a1, a2, n] - 
    S2[a1, a4, a3, a1, SP[a2, a5], n] + S2[a1, n]*S2[a1, a4, a3, a5, a2, n] + 
    S2[a1, a4, a3, a5, SP[a1, a2], n] + S2[a1, a4, a5, a1, SP[a2, a3], n] + 
    S2[a1, a4, a5, SP[a1, a3], a2, n] + S2[a1, a4, SP[a1, a3], a2, a5, n] + 
    S2[a1, a4, SP[a1, a3], a5, a2, n] - S2[a1, a4, SP[a3, a5], a1, a2, n] + 
    S2[a3, n]*S2[a1, a5, a1, a2, a4, n] + S2[a1, a5, a1, a2, SP[a3, a4], n] + 
    S2[a1, a5, a1, a3, SP[a2, a4], n] + S2[a3, n]*S2[a1, a5, a1, a4, a2, n] + 
    2*S2[a1, a5, a1, a4, SP[a2, a3], n] + 
    2*S2[a1, a5, a1, SP[a2, a3], a4, n] + S2[a1, a5, a1, SP[a2, a4], a3, n] + 
    S2[a1, a5, a1, SP[a3, a4], a2, n] + S2[a3, n]*S2[a1, a5, a2, a1, a4, n] + 
    S2[a1, a5, a2, a1, SP[a3, a4], n] - S2[a1, n]*S2[a1, a5, a2, a3, a4, n] - 
    S2[a1, a5, a2, a3, SP[a1, a4], n] + S2[a1, a5, a3, a1, SP[a2, a4], n] - 
    S2[a1, n]*S2[a1, a5, a3, a2, a4, n] - S2[a1, a5, a3, a2, SP[a1, a4], n] - 
    S2[a1, n]*S2[a1, a5, a3, a4, a2, n] - S2[a1, a5, a3, a4, SP[a1, a2], n] - 
    S2[a1, a5, a3, SP[a1, a2], a4, n] + S2[a1, a5, a4, a1, SP[a2, a3], n] + 
    S2[a1, a5, a4, SP[a1, a3], a2, n] - S2[a1, a5, SP[a1, a2], a3, a4, n] + 
    S2[a1, a5, SP[a1, a3], a2, a4, n] + S2[a1, a5, SP[a1, a3], a4, a2, n] + 
    S2[a1, a5, SP[a1, a4], a2, a3, n] + S2[a1, a5, SP[a1, a4], a3, a2, n] + 
    S2[a1, a5, SP[a2, a3], a1, a4, n] + S2[a1, SP[a1, a2], a4, a3, a5, n] + 
    S2[a1, SP[a1, a2], a4, a5, a3, n] + S2[a1, SP[a1, a2], a5, a4, a3, n] + 
    S2[a1, SP[a1, a4], a2, a3, a5, n] + S2[a1, SP[a1, a4], a2, a5, a3, n] + 
    S2[a1, SP[a1, a4], a3, a2, a5, n] + S2[a1, SP[a1, a4], a3, a5, a2, n] + 
    S2[a1, SP[a1, a4], a5, a2, a3, n] + S2[a1, SP[a1, a4], a5, a3, a2, n] - 
    S2[a1, SP[a1, a5], a2, a4, a3, n] - S2[a1, SP[a1, a5], a4, a2, a3, n] - 
    S2[a1, SP[a1, a5], a4, a3, a2, n] - S2[a1, SP[a2, a5], a1, a4, a3, n] + 
    S2[a1, SP[a3, a5], a1, a2, a4, n] + S2[a1, SP[a3, a5], a1, a4, a2, n] + 
    S2[a1, SP[a3, a5], a2, a1, a4, n] - S2[a1, SP[a4, a5], a1, a2, a3, n] - 
    S2[a1, SP[a4, a5], a1, a3, a2, n] - S2[a1, SP[a4, a5], a3, a1, a2, n] - 
    S2[a3, a1, a5, a1, SP[a2, a4], n] - S2[a3, a1, a5, SP[a1, a2], a4, n] - 
    S2[a3, a1, SP[a2, a5], a1, a4, n] - 2*S2[a3, a5, a1, a1, SP[a2, a4], n] - 
    S2[a3, a5, a1, SP[a1, a2], a4, n] - S2[a3, a5, a1, SP[a1, a4], a2, n] - 
    S2[a3, a5, SP[a1, a1], a2, a4, n] - S2[a3, a5, SP[a1, a1], a4, a2, n] - 
    S2[a3, SP[a1, a5], a1, a2, a4, n] - S2[a3, SP[a1, a5], a1, a4, a2, n] - 
    S2[a3, SP[a1, a5], a2, a1, a4, n] + 2*S2[a3, n]*
     S2[a5, a1, a1, a2, a4, n] + 2*S2[a5, a1, a1, a2, SP[a3, a4], n] + 
    2*S2[a3, n]*S2[a5, a1, a1, a4, a2, n] + 
    2*S2[a5, a1, a1, a4, SP[a2, a3], n] + 
    2*S2[a5, a1, a1, SP[a2, a3], a4, n] + 
    2*S2[a5, a1, a1, SP[a3, a4], a2, n] + 
    S2[a3, n]*S2[a5, a1, a2, a1, a4, n] + S2[a5, a1, a2, a1, SP[a3, a4], n] - 
    S2[a1, n]*S2[a5, a1, a2, a3, a4, n] - S2[a5, a1, a2, a3, SP[a1, a4], n] - 
    S2[a1, n]*S2[a5, a1, a3, a2, a4, n] - S2[a5, a1, a3, a2, SP[a1, a4], n] - 
    S2[a1, n]*S2[a5, a1, a3, a4, a2, n] - S2[a5, a1, a3, a4, SP[a1, a2], n] - 
    S2[a5, a1, a3, SP[a1, a2], a4, n] - S2[a5, a1, a3, SP[a1, a4], a2, n] + 
    S2[a3, n]*S2[a5, a1, a4, a1, a2, n] + S2[a5, a1, a4, a1, SP[a2, a3], n] + 
    S2[a5, a1, a4, SP[a1, a3], a2, n] - S2[a5, a1, SP[a1, a2], a3, a4, n] + 
    S2[a5, a1, SP[a1, a3], a2, a4, n] + S2[a5, a1, SP[a1, a3], a4, a2, n] + 
    S2[a5, a1, SP[a2, a3], a1, a4, n] + S2[a5, a1, SP[a3, a4], a1, a2, n] + 
    S2[a1, n]*S2[a5, a2, a3, a4, a1, n] + S2[a5, a2, a3, a4, SP[a1, a1], n] + 
    S2[a5, a2, a3, SP[a1, a4], a1, n] + S2[a5, a2, SP[a1, a3], a4, a1, n] - 
    S2[a1, n]*S2[a5, a3, a1, a2, a4, n] - S2[a5, a3, a1, a2, SP[a1, a4], n] - 
    S2[a1, n]*S2[a5, a3, a1, a4, a2, n] - S2[a5, a3, a1, a4, SP[a1, a2], n] - 
    S2[a5, a3, a1, SP[a1, a2], a4, n] - S2[a5, a3, a1, SP[a1, a4], a2, n] + 
    S2[a1, n]*S2[a5, a3, a2, a4, a1, n] + S2[a5, a3, a2, a4, SP[a1, a1], n] + 
    S2[a5, a3, a2, SP[a1, a4], a1, n] + S2[a1, n]*S2[a5, a3, a4, a2, a1, n] + 
    S2[a5, a3, a4, a2, SP[a1, a1], n] + S2[a5, a3, a4, SP[a1, a2], a1, n] - 
    S2[a5, a3, SP[a1, a1], a2, a4, n] - S2[a5, a3, SP[a1, a1], a4, a2, n] + 
    S2[a5, a3, SP[a1, a2], a4, a1, n] + S2[a5, a3, SP[a1, a4], a2, a1, n] - 
    S2[a5, SP[a1, a1], a2, a3, a4, n] - S2[a5, SP[a1, a1], a3, a2, a4, n] - 
    S2[a5, SP[a1, a1], a3, a4, a2, n] + S2[a5, SP[a1, a2], a3, a4, a1, n] + 
    S2[a5, SP[a1, a3], a1, a2, a4, n] + S2[a5, SP[a1, a3], a1, a4, a2, n] + 
    S2[a5, SP[a1, a3], a2, a1, a4, n] + S2[a5, SP[a1, a3], a2, a4, a1, n] + 
    S2[a5, SP[a1, a3], a4, a1, a2, n] + S2[a5, SP[a1, a3], a4, a2, a1, n] + 
    S2[SP[a1, a1], a2, a4, a3, a5, n] + S2[SP[a1, a1], a2, a4, a5, a3, n] + 
    S2[SP[a1, a1], a2, a5, a4, a3, n] + S2[SP[a1, a1], a4, a2, a3, a5, n] + 
    S2[SP[a1, a1], a4, a2, a5, a3, n] + S2[SP[a1, a1], a4, a3, a2, a5, n] + 
    S2[SP[a1, a1], a4, a3, a5, a2, n] + S2[SP[a1, a1], a4, a5, a2, a3, n] + 
    S2[SP[a1, a1], a4, a5, a3, a2, n] + S2[SP[a1, a1], a5, a2, a4, a3, n] + 
    S2[SP[a1, a1], a5, a4, a2, a3, n] + S2[SP[a1, a1], a5, a4, a3, a2, n] - 
    S2[SP[a1, a5], a1, a2, a3, a4, n] - 2*S2[SP[a1, a5], a1, a2, a4, a3, n] - 
    S2[SP[a1, a5], a1, a3, a2, a4, n] - S2[SP[a1, a5], a1, a3, a4, a2, n] - 
    2*S2[SP[a1, a5], a1, a4, a2, a3, n] - 
    2*S2[SP[a1, a5], a1, a4, a3, a2, n] - S2[SP[a1, a5], a2, a1, a4, a3, n] + 
    S2[SP[a1, a5], a2, a3, a4, a1, n] - S2[SP[a1, a5], a3, a1, a2, a4, n] - 
    S2[SP[a1, a5], a3, a1, a4, a2, n] + S2[SP[a1, a5], a3, a2, a4, a1, n] + 
    S2[SP[a1, a5], a3, a4, a2, a1, n] - S2[SP[a1, a5], a4, a1, a2, a3, n] - 
    S2[SP[a1, a5], a4, a1, a3, a2, n] - S2[SP[a1, a5], a4, a3, a1, a2, n] + 
    2*S2[SP[a3, a5], a1, a1, a2, a4, n] + 
    2*S2[SP[a3, a5], a1, a1, a4, a2, n] + S2[SP[a3, a5], a1, a2, a1, a4, n] + 
    S2[SP[a3, a5], a1, a4, a1, a2, n] - S2[a5, a2, a1, a3, a4, a1, n] - 
    S2[a5, a2, a3, a1, a4, a1, n] - 2*S2[a5, a2, a3, a4, a1, a1, n] - 
    S2[a5, a3, a2, a1, a4, a1, n] - 2*S2[a5, a3, a2, a4, a1, a1, n] - 
    S2[a5, a3, a4, a1, a2, a1, n] - 2*S2[a5, a3, a4, a2, a1, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a1_, a4_, a5_, a1_, a2_, a3_, n_] :> 
  -(S2[a1, a4, n]*S2[a1, a2, a3, a5, n]) - S2[a1, a4, n]*
     S2[a1, a2, a5, a3, n] + S2[a1, a2, SP[a1, a3], SP[a4, a5], n] + 
    S2[a1, a2, SP[a1, a5], SP[a3, a4], n] - S2[a1, a4, n]*
     S2[a1, a5, a2, a3, n] + S2[a1, a5, SP[a1, a2], SP[a3, a4], n] + 
    S2[a1, SP[a1, a2], a3, SP[a4, a5], n] + S2[a1, SP[a1, a2], a5, 
     SP[a3, a4], n] + S2[a1, SP[a1, a2], SP[a3, a4], a5, n] + 
    S2[a1, SP[a1, a2], SP[a4, a5], a3, n] + S2[a1, SP[a1, a5], a2, 
     SP[a3, a4], n] + S2[a1, SP[a1, a5], SP[a2, a4], a3, n] + 
    S2[SP[a1, a1], a2, a3, SP[a4, a5], n] + S2[SP[a1, a1], a2, a5, 
     SP[a3, a4], n] + S2[SP[a1, a1], a2, SP[a3, a4], a5, n] + 
    S2[SP[a1, a1], a2, SP[a4, a5], a3, n] + S2[SP[a1, a1], a5, a2, 
     SP[a3, a4], n] + S2[SP[a1, a1], a5, SP[a2, a4], a3, n] + 
    S2[SP[a1, a1], SP[a2, a4], a3, a5, n] + S2[SP[a1, a1], SP[a2, a4], a5, 
     a3, n] + S2[SP[a1, a1], SP[a4, a5], a2, a3, n] + 
    2*S2[a5, n]*S2[a1, a1, a2, a3, a4, n] + 
    2*S2[a5, n]*S2[a1, a1, a2, a4, a3, n] + 
    2*S2[a1, a1, a2, a4, SP[a3, a5], n] - 
    2*S2[a1, a1, a2, a5, SP[a3, a4], n] - 
    2*S2[a1, a1, a2, SP[a3, a4], a5, n] + 
    2*S2[a1, a1, a2, SP[a3, a5], a4, n] + 
    2*S2[a5, n]*S2[a1, a1, a4, a2, a3, n] + 
    2*S2[a1, a1, a4, a2, SP[a3, a5], n] + 
    2*S2[a1, a1, a4, SP[a2, a5], a3, n] - 
    2*S2[a1, a1, a5, a2, SP[a3, a4], n] - 
    2*S2[a1, a1, a5, SP[a2, a4], a3, n] - 
    2*S2[a1, a1, SP[a2, a4], a3, a5, n] - 
    2*S2[a1, a1, SP[a2, a4], a5, a3, n] + 
    2*S2[a1, a1, SP[a2, a5], a3, a4, n] + 
    2*S2[a1, a1, SP[a2, a5], a4, a3, n] + 
    S2[a5, n]*S2[a1, a2, a1, a3, a4, n] + 
    S2[a5, n]*S2[a1, a2, a1, a4, a3, n] + S2[a1, a2, a1, a4, SP[a3, a5], n] - 
    S2[a1, a2, a1, a5, SP[a3, a4], n] - S2[a1, a2, a1, SP[a3, a4], a5, n] + 
    S2[a1, a2, a1, SP[a3, a5], a4, n] + S2[a5, n]*S2[a1, a2, a3, a1, a4, n] - 
    S2[a1, a2, a5, a1, SP[a3, a4], n] - S2[a1, a2, a5, SP[a1, a3], a4, n] - 
    S2[a1, a2, SP[a1, a3], a4, a5, n] - S2[a1, a2, SP[a1, a3], a5, a4, n] + 
    S2[a1, a2, SP[a3, a5], a1, a4, n] + S2[a5, n]*S2[a1, a4, a1, a2, a3, n] + 
    S2[a1, a4, a1, a2, SP[a3, a5], n] + S2[a1, a4, a1, SP[a2, a5], a3, n] + 
    S2[a1, a4, SP[a1, a5], a2, a3, n] - S2[a1, a5, a1, a2, SP[a3, a4], n] - 
    S2[a1, a5, a1, SP[a2, a4], a3, n] - S2[a1, a5, a2, a1, SP[a3, a4], n] - 
    S2[a1, a5, a2, SP[a1, a3], a4, n] - S2[a1, a5, SP[a1, a2], a3, a4, n] - 
    S2[a1, a5, SP[a1, a2], a4, a3, n] - S2[a1, SP[a1, a2], a3, a4, a5, n] - 
    S2[a1, SP[a1, a2], a3, a5, a4, n] - S2[a1, SP[a1, a2], a4, a3, a5, n] - 
    S2[a1, SP[a1, a2], a4, a5, a3, n] - S2[a1, SP[a1, a2], a5, a3, a4, n] - 
    S2[a1, SP[a1, a2], a5, a4, a3, n] - S2[a1, SP[a1, a4], a2, a3, a5, n] - 
    S2[a1, SP[a1, a4], a2, a5, a3, n] - S2[a1, SP[a1, a4], a5, a2, a3, n] + 
    S2[a1, SP[a1, a5], a2, a3, a4, n] + S2[a1, SP[a1, a5], a2, a4, a3, n] + 
    S2[a1, SP[a1, a5], a4, a2, a3, n] + S2[a1, SP[a2, a5], a1, a3, a4, n] + 
    S2[a1, SP[a2, a5], a1, a4, a3, n] + S2[a1, SP[a2, a5], a3, a1, a4, n] + 
    S2[a1, SP[a4, a5], a1, a2, a3, n] - S2[a1, n]*S2[a5, a1, a2, a3, a4, n] - 
    S2[a5, a1, a2, a3, SP[a1, a4], n] - S2[a1, n]*S2[a5, a1, a2, a4, a3, n] - 
    S2[a5, a1, a2, a4, SP[a1, a3], n] - S2[a5, a1, a2, SP[a1, a3], a4, n] - 
    S2[a5, a1, a2, SP[a1, a4], a3, n] - S2[a1, n]*S2[a5, a1, a4, a2, a3, n] - 
    S2[a5, a1, a4, a2, SP[a1, a3], n] - S2[a5, a1, a4, SP[a1, a2], a3, n] - 
    S2[a5, a1, SP[a1, a2], a3, a4, n] - S2[a5, a1, SP[a1, a2], a4, a3, n] - 
    S2[a5, a1, SP[a1, a4], a2, a3, n] - S2[a1, n]*S2[a5, a4, a1, a2, a3, n] - 
    S2[a5, a4, a1, a2, SP[a1, a3], n] - S2[a5, a4, a1, SP[a1, a2], a3, n] - 
    S2[a5, a4, SP[a1, a1], a2, a3, n] - S2[a5, SP[a1, a1], a2, a3, a4, n] - 
    S2[a5, SP[a1, a1], a2, a4, a3, n] - S2[a5, SP[a1, a1], a4, a2, a3, n] - 
    S2[a5, SP[a1, a4], a1, a2, a3, n] - S2[SP[a1, a1], a2, a3, a4, a5, n] - 
    S2[SP[a1, a1], a2, a3, a5, a4, n] - S2[SP[a1, a1], a2, a4, a3, a5, n] - 
    S2[SP[a1, a1], a2, a4, a5, a3, n] - S2[SP[a1, a1], a2, a5, a3, a4, n] - 
    S2[SP[a1, a1], a2, a5, a4, a3, n] - S2[SP[a1, a1], a4, a2, a3, a5, n] - 
    S2[SP[a1, a1], a4, a2, a5, a3, n] - S2[SP[a1, a1], a4, a5, a2, a3, n] - 
    S2[SP[a1, a1], a5, a2, a3, a4, n] - S2[SP[a1, a1], a5, a2, a4, a3, n] - 
    S2[SP[a1, a1], a5, a4, a2, a3, n] + S2[SP[a1, a5], a1, a2, a3, a4, n] + 
    S2[SP[a1, a5], a1, a2, a4, a3, n] + S2[SP[a1, a5], a1, a4, a2, a3, n] + 
    S2[SP[a1, a5], a2, a1, a3, a4, n] + S2[SP[a1, a5], a2, a1, a4, a3, n] + 
    S2[SP[a1, a5], a2, a3, a1, a4, n] + S2[a5, a1, a2, a3, a4, a1, n] + 
    S2[a5, a1, a2, a4, a1, a3, n] + S2[a5, a1, a2, a4, a3, a1, n] + 
    S2[a5, a1, a4, a1, a2, a3, n] + S2[a5, a1, a4, a2, a1, a3, n] + 
    S2[a5, a1, a4, a2, a3, a1, n] + 2*S2[a5, a4, a1, a1, a2, a3, n] + 
    S2[a5, a4, a1, a2, a1, a3, n] + S2[a5, a4, a1, a2, a3, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a1_, a4_, a5_, a1_, a3_, a2_, n_] :> 
  -(S2[a1, a4, n]*S2[a1, a3, a2, a5, n]) - S2[a1, a4, n]*
     S2[a1, a3, a5, a2, n] + S2[a1, a3, SP[a1, a2], SP[a4, a5], n] + 
    S2[a1, a3, SP[a1, a5], SP[a2, a4], n] - S2[a1, a4, n]*
     S2[a1, a5, a3, a2, n] + S2[a1, a5, SP[a1, a3], SP[a2, a4], n] + 
    S2[a1, SP[a1, a3], a2, SP[a4, a5], n] + S2[a1, SP[a1, a3], a5, 
     SP[a2, a4], n] + S2[a1, SP[a1, a3], SP[a2, a4], a5, n] + 
    S2[a1, SP[a1, a3], SP[a4, a5], a2, n] + S2[a1, SP[a1, a5], a3, 
     SP[a2, a4], n] + S2[a1, SP[a1, a5], SP[a3, a4], a2, n] + 
    S2[SP[a1, a1], a3, a2, SP[a4, a5], n] + S2[SP[a1, a1], a3, a5, 
     SP[a2, a4], n] + S2[SP[a1, a1], a3, SP[a2, a4], a5, n] + 
    S2[SP[a1, a1], a3, SP[a4, a5], a2, n] + S2[SP[a1, a1], a5, a3, 
     SP[a2, a4], n] + S2[SP[a1, a1], a5, SP[a3, a4], a2, n] + 
    S2[SP[a1, a1], SP[a3, a4], a2, a5, n] + S2[SP[a1, a1], SP[a3, a4], a5, 
     a2, n] + S2[SP[a1, a1], SP[a4, a5], a3, a2, n] + 
    2*S2[a5, n]*S2[a1, a1, a3, a2, a4, n] + 
    2*S2[a5, n]*S2[a1, a1, a3, a4, a2, n] + 
    2*S2[a1, a1, a3, a4, SP[a2, a5], n] - 
    2*S2[a1, a1, a3, a5, SP[a2, a4], n] - 
    2*S2[a1, a1, a3, SP[a2, a4], a5, n] + 
    2*S2[a1, a1, a3, SP[a2, a5], a4, n] + 
    2*S2[a5, n]*S2[a1, a1, a4, a3, a2, n] + 
    2*S2[a1, a1, a4, a3, SP[a2, a5], n] + 
    2*S2[a1, a1, a4, SP[a3, a5], a2, n] - 
    2*S2[a1, a1, a5, a3, SP[a2, a4], n] - 
    2*S2[a1, a1, a5, SP[a3, a4], a2, n] - 
    2*S2[a1, a1, SP[a3, a4], a2, a5, n] - 
    2*S2[a1, a1, SP[a3, a4], a5, a2, n] + 
    2*S2[a1, a1, SP[a3, a5], a2, a4, n] + 
    2*S2[a1, a1, SP[a3, a5], a4, a2, n] + 
    S2[a5, n]*S2[a1, a3, a1, a2, a4, n] + 
    S2[a5, n]*S2[a1, a3, a1, a4, a2, n] + S2[a1, a3, a1, a4, SP[a2, a5], n] - 
    S2[a1, a3, a1, a5, SP[a2, a4], n] - S2[a1, a3, a1, SP[a2, a4], a5, n] + 
    S2[a1, a3, a1, SP[a2, a5], a4, n] + S2[a5, n]*S2[a1, a3, a2, a1, a4, n] - 
    S2[a1, a3, a5, a1, SP[a2, a4], n] - S2[a1, a3, a5, SP[a1, a2], a4, n] - 
    S2[a1, a3, SP[a1, a2], a4, a5, n] - S2[a1, a3, SP[a1, a2], a5, a4, n] + 
    S2[a1, a3, SP[a2, a5], a1, a4, n] + S2[a5, n]*S2[a1, a4, a1, a3, a2, n] + 
    S2[a1, a4, a1, a3, SP[a2, a5], n] + S2[a1, a4, a1, SP[a3, a5], a2, n] + 
    S2[a1, a4, SP[a1, a5], a3, a2, n] - S2[a1, a5, a1, a3, SP[a2, a4], n] - 
    S2[a1, a5, a1, SP[a3, a4], a2, n] - S2[a1, a5, a3, a1, SP[a2, a4], n] - 
    S2[a1, a5, a3, SP[a1, a2], a4, n] - S2[a1, a5, SP[a1, a3], a2, a4, n] - 
    S2[a1, a5, SP[a1, a3], a4, a2, n] - S2[a1, SP[a1, a3], a2, a4, a5, n] - 
    S2[a1, SP[a1, a3], a2, a5, a4, n] - S2[a1, SP[a1, a3], a4, a2, a5, n] - 
    S2[a1, SP[a1, a3], a4, a5, a2, n] - S2[a1, SP[a1, a3], a5, a2, a4, n] - 
    S2[a1, SP[a1, a3], a5, a4, a2, n] - S2[a1, SP[a1, a4], a3, a2, a5, n] - 
    S2[a1, SP[a1, a4], a3, a5, a2, n] - S2[a1, SP[a1, a4], a5, a3, a2, n] + 
    S2[a1, SP[a1, a5], a3, a2, a4, n] + S2[a1, SP[a1, a5], a3, a4, a2, n] + 
    S2[a1, SP[a1, a5], a4, a3, a2, n] + S2[a1, SP[a3, a5], a1, a2, a4, n] + 
    S2[a1, SP[a3, a5], a1, a4, a2, n] + S2[a1, SP[a3, a5], a2, a1, a4, n] + 
    S2[a1, SP[a4, a5], a1, a3, a2, n] - S2[a1, n]*S2[a5, a1, a3, a2, a4, n] - 
    S2[a5, a1, a3, a2, SP[a1, a4], n] - S2[a1, n]*S2[a5, a1, a3, a4, a2, n] - 
    S2[a5, a1, a3, a4, SP[a1, a2], n] - S2[a5, a1, a3, SP[a1, a2], a4, n] - 
    S2[a5, a1, a3, SP[a1, a4], a2, n] - S2[a1, n]*S2[a5, a1, a4, a3, a2, n] - 
    S2[a5, a1, a4, a3, SP[a1, a2], n] - S2[a5, a1, a4, SP[a1, a3], a2, n] - 
    S2[a5, a1, SP[a1, a3], a2, a4, n] - S2[a5, a1, SP[a1, a3], a4, a2, n] - 
    S2[a5, a1, SP[a1, a4], a3, a2, n] - S2[a1, n]*S2[a5, a4, a1, a3, a2, n] - 
    S2[a5, a4, a1, a3, SP[a1, a2], n] - S2[a5, a4, a1, SP[a1, a3], a2, n] - 
    S2[a5, a4, SP[a1, a1], a3, a2, n] - S2[a5, SP[a1, a1], a3, a2, a4, n] - 
    S2[a5, SP[a1, a1], a3, a4, a2, n] - S2[a5, SP[a1, a1], a4, a3, a2, n] - 
    S2[a5, SP[a1, a4], a1, a3, a2, n] - S2[SP[a1, a1], a3, a2, a4, a5, n] - 
    S2[SP[a1, a1], a3, a2, a5, a4, n] - S2[SP[a1, a1], a3, a4, a2, a5, n] - 
    S2[SP[a1, a1], a3, a4, a5, a2, n] - S2[SP[a1, a1], a3, a5, a2, a4, n] - 
    S2[SP[a1, a1], a3, a5, a4, a2, n] - S2[SP[a1, a1], a4, a3, a2, a5, n] - 
    S2[SP[a1, a1], a4, a3, a5, a2, n] - S2[SP[a1, a1], a4, a5, a3, a2, n] - 
    S2[SP[a1, a1], a5, a3, a2, a4, n] - S2[SP[a1, a1], a5, a3, a4, a2, n] - 
    S2[SP[a1, a1], a5, a4, a3, a2, n] + S2[SP[a1, a5], a1, a3, a2, a4, n] + 
    S2[SP[a1, a5], a1, a3, a4, a2, n] + S2[SP[a1, a5], a1, a4, a3, a2, n] + 
    S2[SP[a1, a5], a3, a1, a2, a4, n] + S2[SP[a1, a5], a3, a1, a4, a2, n] + 
    S2[SP[a1, a5], a3, a2, a1, a4, n] + S2[a5, a1, a3, a2, a4, a1, n] + 
    S2[a5, a1, a3, a4, a1, a2, n] + S2[a5, a1, a3, a4, a2, a1, n] + 
    S2[a5, a1, a4, a1, a3, a2, n] + S2[a5, a1, a4, a3, a1, a2, n] + 
    S2[a5, a1, a4, a3, a2, a1, n] + 2*S2[a5, a4, a1, a1, a3, a2, n] + 
    S2[a5, a4, a1, a3, a1, a2, n] + S2[a5, a4, a1, a3, a2, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a1_, a4_, a5_, a2_, a1_, a3_, n_] :> 
  S2[a1, a4, n]*S2[a1, a2, a3, a5, n] + S2[a1, a4, n]*S2[a1, a2, a5, a3, n] - 
    S2[a1, a2, SP[a1, a3], SP[a4, a5], n] - S2[a1, a2, SP[a1, a5], 
     SP[a3, a4], n] + S2[a1, a4, n]*S2[a1, a3, a2, a5, n] - 
    S2[a1, a3, SP[a1, a2], SP[a4, a5], n] + S2[a1, a3, n]*
     S2[a1, a4, a5, a2, n] - S2[a1, a4, SP[a1, a5], SP[a2, a3], n] + 
    S2[a1, a3, n]*S2[a1, a5, a2, a4, n] + S2[a1, a3, n]*
     S2[a1, a5, a4, a2, n] - S2[a1, a5, SP[a1, a2], SP[a3, a4], n] - 
    S2[a1, a5, SP[a1, a4], SP[a2, a3], n] - S2[a1, SP[a1, a2], a3, 
     SP[a4, a5], n] - S2[a1, SP[a1, a2], a5, SP[a3, a4], n] - 
    S2[a1, SP[a1, a2], SP[a3, a4], a5, n] - S2[a1, SP[a1, a2], SP[a4, a5], 
     a3, n] - S2[a1, SP[a1, a3], a2, SP[a4, a5], n] - 
    S2[a1, SP[a1, a3], SP[a2, a4], a5, n] - S2[a1, SP[a1, a4], a5, 
     SP[a2, a3], n] - S2[a1, SP[a1, a4], SP[a3, a5], a2, n] - 
    S2[a1, SP[a1, a5], a2, SP[a3, a4], n] - S2[a1, SP[a1, a5], a4, 
     SP[a2, a3], n] - S2[a1, SP[a1, a5], SP[a2, a3], a4, n] - 
    S2[a1, SP[a1, a5], SP[a3, a4], a2, n] - S2[a1, a3, n]*
     S2[a2, a5, a1, a4, n] + S2[a2, a5, SP[a1, a1], SP[a3, a4], n] + 
    S2[a2, SP[a1, a5], a1, SP[a3, a4], n] + S2[a2, SP[a1, a5], SP[a1, a3], 
     a4, n] - S2[SP[a1, a1], a2, a3, SP[a4, a5], n] - 
    S2[SP[a1, a1], a2, a5, SP[a3, a4], n] - S2[SP[a1, a1], a2, SP[a3, a4], 
     a5, n] - S2[SP[a1, a1], a2, SP[a4, a5], a3, n] - 
    S2[SP[a1, a1], a3, a2, SP[a4, a5], n] - S2[SP[a1, a1], a3, SP[a2, a4], 
     a5, n] - S2[SP[a1, a1], a4, a5, SP[a2, a3], n] - 
    S2[SP[a1, a1], a4, SP[a3, a5], a2, n] - S2[SP[a1, a1], a5, a2, 
     SP[a3, a4], n] - S2[SP[a1, a1], a5, a4, SP[a2, a3], n] - 
    S2[SP[a1, a1], a5, SP[a2, a3], a4, n] - S2[SP[a1, a1], a5, SP[a3, a4], 
     a2, n] - S2[SP[a1, a1], SP[a2, a4], a3, a5, n] - 
    S2[SP[a1, a1], SP[a2, a4], a5, a3, n] - S2[SP[a1, a1], SP[a3, a4], a2, 
     a5, n] - S2[SP[a1, a1], SP[a3, a4], a5, a2, n] - 
    S2[SP[a1, a1], SP[a3, a5], a2, a4, n] - S2[SP[a1, a1], SP[a3, a5], a4, 
     a2, n] + S2[SP[a1, a2], a5, a1, SP[a3, a4], n] + 
    S2[SP[a1, a2], a5, SP[a1, a3], a4, n] + S2[SP[a1, a2], SP[a3, a5], a1, 
     a4, n] - 2*S2[a5, n]*S2[a1, a1, a2, a3, a4, n] - 
    2*S2[a5, n]*S2[a1, a1, a2, a4, a3, n] - 
    2*S2[a1, a1, a2, a4, SP[a3, a5], n] + 
    2*S2[a1, a1, a2, a5, SP[a3, a4], n] + 
    2*S2[a1, a1, a2, SP[a3, a4], a5, n] - 
    2*S2[a1, a1, a2, SP[a3, a5], a4, n] - 
    2*S2[a5, n]*S2[a1, a1, a3, a2, a4, n] - 
    2*S2[a5, n]*S2[a1, a1, a3, a4, a2, n] - 
    2*S2[a1, a1, a3, a4, SP[a2, a5], n] + 
    2*S2[a1, a1, a3, SP[a2, a4], a5, n] - 
    2*S2[a1, a1, a3, SP[a2, a5], a4, n] - 
    2*S2[a1, a1, a3, SP[a4, a5], a2, n] - 
    2*S2[a5, n]*S2[a1, a1, a4, a2, a3, n] - 
    2*S2[a1, a1, a4, a2, SP[a3, a5], n] - 
    2*S2[a5, n]*S2[a1, a1, a4, a3, a2, n] - 
    2*S2[a1, a1, a4, a3, SP[a2, a5], n] + 
    2*S2[a1, a1, a4, a5, SP[a2, a3], n] - 
    2*S2[a1, a1, a4, SP[a2, a5], a3, n] + 
    2*S2[a1, a1, a5, a2, SP[a3, a4], n] + 
    2*S2[a1, a1, a5, a4, SP[a2, a3], n] + 
    2*S2[a1, a1, a5, SP[a2, a3], a4, n] + 
    2*S2[a1, a1, a5, SP[a3, a4], a2, n] + 
    2*S2[a1, a1, SP[a2, a4], a3, a5, n] + 
    2*S2[a1, a1, SP[a2, a4], a5, a3, n] - 
    2*S2[a1, a1, SP[a2, a5], a3, a4, n] - 
    2*S2[a1, a1, SP[a2, a5], a4, a3, n] + 
    2*S2[a1, a1, SP[a3, a4], a2, a5, n] + 
    2*S2[a1, a1, SP[a3, a4], a5, a2, n] - 
    2*S2[a1, a1, SP[a4, a5], a2, a3, n] - 
    2*S2[a1, a1, SP[a4, a5], a3, a2, n] - 
    S2[a5, n]*S2[a1, a2, a1, a3, a4, n] - 
    S2[a5, n]*S2[a1, a2, a1, a4, a3, n] - S2[a1, a2, a1, a4, SP[a3, a5], n] + 
    S2[a1, a2, a1, a5, SP[a3, a4], n] + S2[a1, a2, a1, SP[a3, a4], a5, n] - 
    S2[a1, a2, a1, SP[a3, a5], a4, n] - S2[a5, n]*S2[a1, a2, a3, a1, a4, n] + 
    S2[a1, a2, SP[a1, a3], a4, a5, n] + S2[a1, a2, SP[a1, a3], a5, a4, n] - 
    2*S2[a1, a2, SP[a3, a5], a1, a4, n] - 
    S2[a5, n]*S2[a1, a3, a1, a2, a4, n] - 
    S2[a5, n]*S2[a1, a3, a1, a4, a2, n] - S2[a1, a3, a1, a4, SP[a2, a5], n] + 
    S2[a1, a3, a1, SP[a2, a4], a5, n] - S2[a1, a3, a1, SP[a2, a5], a4, n] - 
    S2[a1, a3, a1, SP[a4, a5], a2, n] - S2[a5, n]*S2[a1, a3, a2, a1, a4, n] + 
    S2[a2, n]*S2[a1, a3, a5, a1, a4, n] + S2[a1, a3, a5, a1, SP[a2, a4], n] + 
    S2[a1, a3, a5, SP[a1, a2], a4, n] + S2[a1, a3, SP[a1, a2], a4, a5, n] + 
    S2[a1, a3, SP[a1, a2], a5, a4, n] - S2[a1, a3, SP[a1, a5], a2, a4, n] - 
    S2[a1, a3, SP[a1, a5], a4, a2, n] - S2[a5, n]*S2[a1, a4, a1, a2, a3, n] - 
    S2[a1, a4, a1, a2, SP[a3, a5], n] - S2[a5, n]*S2[a1, a4, a1, a3, a2, n] - 
    S2[a1, a4, a1, a3, SP[a2, a5], n] + S2[a1, a4, a1, a5, SP[a2, a3], n] - 
    S2[a1, a4, a1, SP[a2, a5], a3, n] + S2[a1, a4, a5, a1, SP[a2, a3], n] + 
    S2[a1, a4, a5, SP[a1, a2], a3, n] + S2[a1, a5, a1, a2, SP[a3, a4], n] + 
    S2[a2, n]*S2[a1, a5, a1, a3, a4, n] + S2[a1, a5, a1, a3, SP[a2, a4], n] + 
    S2[a2, n]*S2[a1, a5, a1, a4, a3, n] + 
    2*S2[a1, a5, a1, a4, SP[a2, a3], n] + 
    2*S2[a1, a5, a1, SP[a2, a3], a4, n] + S2[a1, a5, a1, SP[a2, a4], a3, n] + 
    S2[a1, a5, a1, SP[a3, a4], a2, n] + S2[a1, a5, a2, a1, SP[a3, a4], n] + 
    S2[a1, a5, a2, SP[a1, a4], a3, n] + S2[a2, n]*S2[a1, a5, a3, a1, a4, n] + 
    S2[a1, a5, a3, a1, SP[a2, a4], n] + S2[a1, a5, a3, SP[a1, a2], a4, n] + 
    S2[a1, a5, a4, a1, SP[a2, a3], n] + S2[a1, a5, a4, SP[a1, a2], a3, n] + 
    2*S2[a1, a5, SP[a1, a2], a3, a4, n] + 
    2*S2[a1, a5, SP[a1, a2], a4, a3, n] + S2[a1, a5, SP[a1, a4], a2, a3, n] + 
    S2[a1, a5, SP[a1, a4], a3, a2, n] + S2[a1, a5, SP[a2, a3], a1, a4, n] + 
    S2[a1, SP[a1, a2], a3, a4, a5, n] + S2[a1, SP[a1, a2], a3, a5, a4, n] + 
    S2[a1, SP[a1, a2], a4, a3, a5, n] + S2[a1, SP[a1, a2], a4, a5, a3, n] + 
    S2[a1, SP[a1, a2], a5, a3, a4, n] + S2[a1, SP[a1, a2], a5, a4, a3, n] + 
    S2[a1, SP[a1, a3], a2, a4, a5, n] + S2[a1, SP[a1, a3], a2, a5, a4, n] + 
    S2[a1, SP[a1, a3], a4, a2, a5, n] + S2[a1, SP[a1, a3], a4, a5, a2, n] + 
    S2[a1, SP[a1, a3], a5, a2, a4, n] + S2[a1, SP[a1, a3], a5, a4, a2, n] + 
    S2[a1, SP[a1, a4], a2, a3, a5, n] + S2[a1, SP[a1, a4], a2, a5, a3, n] + 
    S2[a1, SP[a1, a4], a3, a2, a5, n] + S2[a1, SP[a1, a4], a3, a5, a2, n] + 
    S2[a1, SP[a1, a4], a5, a2, a3, n] + S2[a1, SP[a1, a4], a5, a3, a2, n] - 
    S2[a1, SP[a1, a5], a2, a3, a4, n] - S2[a1, SP[a1, a5], a2, a4, a3, n] - 
    S2[a1, SP[a1, a5], a3, a2, a4, n] - S2[a1, SP[a1, a5], a3, a4, a2, n] - 
    S2[a1, SP[a1, a5], a4, a2, a3, n] - S2[a1, SP[a1, a5], a4, a3, a2, n] - 
    S2[a1, SP[a3, a5], a1, a2, a4, n] - S2[a1, SP[a3, a5], a1, a4, a2, n] - 
    S2[a1, SP[a3, a5], a2, a1, a4, n] - S2[a1, SP[a4, a5], a1, a2, a3, n] - 
    S2[a1, SP[a4, a5], a1, a3, a2, n] - S2[a2, a1, a5, a1, SP[a3, a4], n] - 
    S2[a2, a1, a5, SP[a1, a3], a4, n] - S2[a2, a1, SP[a3, a5], a1, a4, n] - 
    2*S2[a2, a5, a1, a1, SP[a3, a4], n] - S2[a2, a5, a1, SP[a1, a3], a4, n] - 
    S2[a2, a5, a1, SP[a1, a4], a3, n] - S2[a2, a5, SP[a1, a1], a3, a4, n] - 
    S2[a2, a5, SP[a1, a1], a4, a3, n] - S2[a2, SP[a1, a5], a1, a3, a4, n] - 
    S2[a2, SP[a1, a5], a1, a4, a3, n] - S2[a2, SP[a1, a5], a3, a1, a4, n] + 
    2*S2[a2, n]*S2[a5, a1, a1, a3, a4, n] + 
    2*S2[a5, a1, a1, a3, SP[a2, a4], n] + 
    2*S2[a2, n]*S2[a5, a1, a1, a4, a3, n] + 
    2*S2[a5, a1, a1, a4, SP[a2, a3], n] + 
    2*S2[a5, a1, a1, SP[a2, a3], a4, n] + 
    2*S2[a5, a1, a1, SP[a2, a4], a3, n] + 
    S2[a2, n]*S2[a5, a1, a3, a1, a4, n] + S2[a5, a1, a3, a1, SP[a2, a4], n] + 
    S2[a5, a1, a3, SP[a1, a2], a4, n] + S2[a2, n]*S2[a5, a1, a4, a1, a3, n] + 
    S2[a5, a1, a4, a1, SP[a2, a3], n] + S2[a5, a1, a4, SP[a1, a2], a3, n] + 
    2*S2[a5, a1, SP[a1, a2], a3, a4, n] + 
    2*S2[a5, a1, SP[a1, a2], a4, a3, n] + S2[a5, a1, SP[a2, a3], a1, a4, n] + 
    S2[a5, a1, SP[a2, a4], a1, a3, n] - S2[a1, n]*S2[a5, a2, a1, a3, a4, n] - 
    S2[a5, a2, a1, a3, SP[a1, a4], n] - S2[a1, n]*S2[a5, a2, a1, a4, a3, n] - 
    S2[a5, a2, a1, a4, SP[a1, a3], n] - S2[a5, a2, a1, SP[a1, a3], a4, n] - 
    S2[a5, a2, a1, SP[a1, a4], a3, n] - S2[a1, n]*S2[a5, a2, a4, a1, a3, n] - 
    S2[a5, a2, a4, a1, SP[a1, a3], n] - S2[a5, a2, a4, SP[a1, a1], a3, n] - 
    S2[a5, a2, SP[a1, a1], a3, a4, n] - S2[a5, a2, SP[a1, a1], a4, a3, n] - 
    S2[a5, a2, SP[a1, a4], a1, a3, n] - S2[a1, n]*S2[a5, a4, a2, a1, a3, n] - 
    S2[a5, a4, a2, a1, SP[a1, a3], n] - S2[a5, a4, a2, SP[a1, a1], a3, n] - 
    S2[a5, a4, SP[a1, a2], a1, a3, n] + S2[a5, SP[a1, a2], a1, a3, a4, n] + 
    S2[a5, SP[a1, a2], a1, a4, a3, n] + S2[a5, SP[a1, a2], a3, a1, a4, n] - 
    S2[a5, SP[a1, a4], a2, a1, a3, n] + S2[SP[a1, a1], a2, a3, a4, a5, n] + 
    S2[SP[a1, a1], a2, a3, a5, a4, n] + S2[SP[a1, a1], a2, a4, a3, a5, n] + 
    S2[SP[a1, a1], a2, a4, a5, a3, n] + S2[SP[a1, a1], a2, a5, a3, a4, n] + 
    S2[SP[a1, a1], a2, a5, a4, a3, n] + S2[SP[a1, a1], a3, a2, a4, a5, n] + 
    S2[SP[a1, a1], a3, a2, a5, a4, n] + S2[SP[a1, a1], a3, a4, a2, a5, n] + 
    S2[SP[a1, a1], a3, a4, a5, a2, n] + S2[SP[a1, a1], a3, a5, a2, a4, n] + 
    S2[SP[a1, a1], a3, a5, a4, a2, n] + S2[SP[a1, a1], a4, a2, a3, a5, n] + 
    S2[SP[a1, a1], a4, a2, a5, a3, n] + S2[SP[a1, a1], a4, a3, a2, a5, n] + 
    S2[SP[a1, a1], a4, a3, a5, a2, n] + S2[SP[a1, a1], a4, a5, a2, a3, n] + 
    S2[SP[a1, a1], a4, a5, a3, a2, n] + S2[SP[a1, a1], a5, a2, a3, a4, n] + 
    S2[SP[a1, a1], a5, a2, a4, a3, n] + S2[SP[a1, a1], a5, a3, a2, a4, n] + 
    S2[SP[a1, a1], a5, a3, a4, a2, n] + S2[SP[a1, a1], a5, a4, a2, a3, n] + 
    S2[SP[a1, a1], a5, a4, a3, a2, n] - 2*S2[SP[a1, a5], a1, a2, a3, a4, n] - 
    2*S2[SP[a1, a5], a1, a2, a4, a3, n] - 
    2*S2[SP[a1, a5], a1, a3, a2, a4, n] - 
    2*S2[SP[a1, a5], a1, a3, a4, a2, n] - 
    2*S2[SP[a1, a5], a1, a4, a2, a3, n] - 
    2*S2[SP[a1, a5], a1, a4, a3, a2, n] - 
    2*S2[SP[a1, a5], a2, a1, a3, a4, n] - 
    2*S2[SP[a1, a5], a2, a1, a4, a3, n] - S2[SP[a1, a5], a2, a3, a1, a4, n] - 
    S2[SP[a1, a5], a2, a4, a1, a3, n] - S2[SP[a1, a5], a3, a1, a2, a4, n] - 
    S2[SP[a1, a5], a3, a1, a4, a2, n] - S2[SP[a1, a5], a3, a2, a1, a4, n] - 
    S2[SP[a1, a5], a4, a1, a2, a3, n] - S2[SP[a1, a5], a4, a1, a3, a2, n] - 
    S2[SP[a1, a5], a4, a2, a1, a3, n] + 2*S2[SP[a2, a5], a1, a1, a3, a4, n] + 
    2*S2[SP[a2, a5], a1, a1, a4, a3, n] + S2[SP[a2, a5], a1, a3, a1, a4, n] + 
    S2[SP[a2, a5], a1, a4, a1, a3, n] + S2[a5, a2, a1, a3, a4, a1, n] + 
    S2[a5, a2, a1, a4, a1, a3, n] + S2[a5, a2, a1, a4, a3, a1, n] + 
    2*S2[a5, a2, a4, a1, a1, a3, n] + S2[a5, a2, a4, a1, a3, a1, n] + 
    S2[a5, a4, a1, a2, a1, a3, n] + 2*S2[a5, a4, a2, a1, a1, a3, n] + 
    S2[a5, a4, a2, a1, a3, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a1_, a4_, a5_, a2_, a3_, a1_, n_] :> 
  -(S2[a1, a4, n]*S2[a1, a3, a2, a5, n]) + S2[a1, a3, SP[a1, a2], SP[a4, a5], 
     n] - S2[a1, a3, n]*S2[a1, a4, a5, a2, n] + S2[a1, a4, SP[a1, a5], 
     SP[a2, a3], n] - S2[a1, a3, n]*S2[a1, a5, a2, a4, n] - 
    S2[a1, a3, n]*S2[a1, a5, a4, a2, n] + S2[a1, a5, SP[a1, a2], SP[a3, a4], 
     n] + S2[a1, a5, SP[a1, a4], SP[a2, a3], n] + S2[a1, SP[a1, a3], a2, 
     SP[a4, a5], n] + S2[a1, SP[a1, a3], SP[a2, a4], a5, n] + 
    S2[a1, SP[a1, a4], a5, SP[a2, a3], n] + S2[a1, SP[a1, a4], SP[a3, a5], 
     a2, n] + S2[a1, SP[a1, a5], a2, SP[a3, a4], n] + 
    S2[a1, SP[a1, a5], a4, SP[a2, a3], n] + S2[a1, SP[a1, a5], SP[a2, a3], 
     a4, n] + S2[a1, SP[a1, a5], SP[a3, a4], a2, n] + 
    S2[a1, a3, n]*S2[a2, a5, a1, a4, n] - S2[a2, a5, SP[a1, a1], SP[a3, a4], 
     n] - S2[a2, SP[a1, a5], a1, SP[a3, a4], n] - 
    S2[a2, SP[a1, a5], SP[a1, a3], a4, n] + S2[SP[a1, a1], a3, a2, 
     SP[a4, a5], n] + S2[SP[a1, a1], a3, SP[a2, a4], a5, n] + 
    S2[SP[a1, a1], a4, a5, SP[a2, a3], n] + S2[SP[a1, a1], a4, SP[a3, a5], 
     a2, n] + S2[SP[a1, a1], a5, a2, SP[a3, a4], n] + 
    S2[SP[a1, a1], a5, a4, SP[a2, a3], n] + S2[SP[a1, a1], a5, SP[a2, a3], 
     a4, n] + S2[SP[a1, a1], a5, SP[a3, a4], a2, n] + 
    S2[SP[a1, a1], SP[a3, a4], a2, a5, n] + S2[SP[a1, a1], SP[a3, a4], a5, 
     a2, n] + S2[SP[a1, a1], SP[a3, a5], a2, a4, n] + 
    S2[SP[a1, a1], SP[a3, a5], a4, a2, n] - S2[SP[a1, a2], a5, a1, 
     SP[a3, a4], n] - S2[SP[a1, a2], a5, SP[a1, a3], a4, n] - 
    S2[SP[a1, a2], SP[a3, a5], a1, a4, n] + 
    2*S2[a5, n]*S2[a1, a1, a3, a2, a4, n] + 
    2*S2[a5, n]*S2[a1, a1, a3, a4, a2, n] + 
    2*S2[a1, a1, a3, a4, SP[a2, a5], n] - 
    2*S2[a1, a1, a3, SP[a2, a4], a5, n] + 
    2*S2[a1, a1, a3, SP[a2, a5], a4, n] + 
    2*S2[a1, a1, a3, SP[a4, a5], a2, n] + 
    2*S2[a5, n]*S2[a1, a1, a4, a3, a2, n] + 
    2*S2[a1, a1, a4, a3, SP[a2, a5], n] - 
    2*S2[a1, a1, a4, a5, SP[a2, a3], n] - 
    2*S2[a1, a1, a5, a2, SP[a3, a4], n] - 
    2*S2[a1, a1, a5, a4, SP[a2, a3], n] - 
    2*S2[a1, a1, a5, SP[a2, a3], a4, n] - 
    2*S2[a1, a1, a5, SP[a3, a4], a2, n] - 
    2*S2[a1, a1, SP[a3, a4], a2, a5, n] - 
    2*S2[a1, a1, SP[a3, a4], a5, a2, n] + 
    2*S2[a1, a1, SP[a4, a5], a3, a2, n] + S2[a1, a2, a5, a1, SP[a3, a4], n] + 
    S2[a1, a2, a5, SP[a1, a3], a4, n] + S2[a1, a2, SP[a3, a5], a1, a4, n] + 
    S2[a5, n]*S2[a1, a3, a1, a2, a4, n] + 
    S2[a5, n]*S2[a1, a3, a1, a4, a2, n] + S2[a1, a3, a1, a4, SP[a2, a5], n] - 
    S2[a1, a3, a1, SP[a2, a4], a5, n] + S2[a1, a3, a1, SP[a2, a5], a4, n] + 
    S2[a1, a3, a1, SP[a4, a5], a2, n] + S2[a5, n]*S2[a1, a3, a2, a1, a4, n] - 
    S2[a2, n]*S2[a1, a3, a5, a1, a4, n] - S2[a1, a3, a5, a1, SP[a2, a4], n] - 
    S2[a1, a3, a5, SP[a1, a2], a4, n] - S2[a1, a3, SP[a1, a2], a4, a5, n] - 
    S2[a1, a3, SP[a1, a2], a5, a4, n] + S2[a1, a3, SP[a1, a5], a2, a4, n] + 
    S2[a1, a3, SP[a1, a5], a4, a2, n] + S2[a5, n]*S2[a1, a4, a1, a3, a2, n] + 
    S2[a1, a4, a1, a3, SP[a2, a5], n] - S2[a1, a4, a1, a5, SP[a2, a3], n] - 
    S2[a1, a4, a5, a1, SP[a2, a3], n] + S2[a1, n]*S2[a1, a4, a5, a2, a3, n] + 
    S2[a1, a4, a5, a2, SP[a1, a3], n] - S2[a1, a5, a1, a2, SP[a3, a4], n] - 
    S2[a2, n]*S2[a1, a5, a1, a3, a4, n] - S2[a1, a5, a1, a3, SP[a2, a4], n] - 
    S2[a2, n]*S2[a1, a5, a1, a4, a3, n] - 
    2*S2[a1, a5, a1, a4, SP[a2, a3], n] - 
    2*S2[a1, a5, a1, SP[a2, a3], a4, n] - S2[a1, a5, a1, SP[a2, a4], a3, n] - 
    S2[a1, a5, a1, SP[a3, a4], a2, n] - S2[a1, a5, a2, a1, SP[a3, a4], n] + 
    S2[a1, n]*S2[a1, a5, a2, a3, a4, n] + S2[a1, a5, a2, a3, SP[a1, a4], n] + 
    S2[a1, n]*S2[a1, a5, a2, a4, a3, n] + S2[a1, a5, a2, a4, SP[a1, a3], n] + 
    S2[a1, a5, a2, SP[a1, a3], a4, n] - S2[a2, n]*S2[a1, a5, a3, a1, a4, n] - 
    S2[a1, a5, a3, a1, SP[a2, a4], n] - S2[a1, a5, a3, SP[a1, a2], a4, n] - 
    S2[a1, a5, a4, a1, SP[a2, a3], n] + S2[a1, n]*S2[a1, a5, a4, a2, a3, n] + 
    S2[a1, a5, a4, a2, SP[a1, a3], n] - S2[a1, a5, SP[a1, a2], a3, a4, n] - 
    S2[a1, a5, SP[a1, a2], a4, a3, n] - S2[a1, a5, SP[a1, a4], a3, a2, n] - 
    S2[a1, a5, SP[a2, a3], a1, a4, n] - S2[a1, SP[a1, a3], a2, a4, a5, n] - 
    S2[a1, SP[a1, a3], a2, a5, a4, n] - S2[a1, SP[a1, a3], a4, a2, a5, n] - 
    S2[a1, SP[a1, a3], a4, a5, a2, n] - S2[a1, SP[a1, a3], a5, a2, a4, n] - 
    S2[a1, SP[a1, a3], a5, a4, a2, n] - S2[a1, SP[a1, a4], a3, a2, a5, n] - 
    S2[a1, SP[a1, a4], a3, a5, a2, n] - S2[a1, SP[a1, a4], a5, a3, a2, n] + 
    S2[a1, SP[a1, a5], a3, a2, a4, n] + S2[a1, SP[a1, a5], a3, a4, a2, n] + 
    S2[a1, SP[a1, a5], a4, a3, a2, n] - S2[a1, SP[a2, a5], a1, a3, a4, n] - 
    S2[a1, SP[a2, a5], a1, a4, a3, n] - S2[a1, SP[a2, a5], a3, a1, a4, n] + 
    S2[a1, SP[a3, a5], a1, a2, a4, n] + S2[a1, SP[a3, a5], a1, a4, a2, n] + 
    S2[a1, SP[a3, a5], a2, a1, a4, n] + S2[a1, SP[a4, a5], a1, a3, a2, n] + 
    S2[a2, a1, a5, a1, SP[a3, a4], n] + S2[a2, a1, a5, SP[a1, a3], a4, n] + 
    S2[a2, a1, SP[a3, a5], a1, a4, n] + 2*S2[a2, a5, a1, a1, SP[a3, a4], n] + 
    S2[a2, a5, a1, SP[a1, a3], a4, n] + S2[a2, a5, a1, SP[a1, a4], a3, n] + 
    S2[a2, a5, SP[a1, a1], a3, a4, n] + S2[a2, a5, SP[a1, a1], a4, a3, n] + 
    S2[a2, SP[a1, a5], a1, a3, a4, n] + S2[a2, SP[a1, a5], a1, a4, a3, n] + 
    S2[a2, SP[a1, a5], a3, a1, a4, n] - 2*S2[a2, n]*
     S2[a5, a1, a1, a3, a4, n] - 2*S2[a5, a1, a1, a3, SP[a2, a4], n] - 
    2*S2[a2, n]*S2[a5, a1, a1, a4, a3, n] - 
    2*S2[a5, a1, a1, a4, SP[a2, a3], n] - 
    2*S2[a5, a1, a1, SP[a2, a3], a4, n] - 
    2*S2[a5, a1, a1, SP[a2, a4], a3, n] + 
    S2[a1, n]*S2[a5, a1, a2, a3, a4, n] + S2[a5, a1, a2, a3, SP[a1, a4], n] + 
    S2[a1, n]*S2[a5, a1, a2, a4, a3, n] + S2[a5, a1, a2, a4, SP[a1, a3], n] + 
    S2[a5, a1, a2, SP[a1, a3], a4, n] + S2[a5, a1, a2, SP[a1, a4], a3, n] - 
    S2[a2, n]*S2[a5, a1, a3, a1, a4, n] - S2[a5, a1, a3, a1, SP[a2, a4], n] - 
    S2[a5, a1, a3, SP[a1, a2], a4, n] - S2[a2, n]*S2[a5, a1, a4, a1, a3, n] - 
    S2[a5, a1, a4, a1, SP[a2, a3], n] + S2[a1, n]*S2[a5, a1, a4, a2, a3, n] + 
    S2[a5, a1, a4, a2, SP[a1, a3], n] - S2[a5, a1, SP[a1, a2], a3, a4, n] - 
    S2[a5, a1, SP[a1, a2], a4, a3, n] + S2[a5, a1, SP[a1, a4], a2, a3, n] - 
    S2[a5, a1, SP[a2, a3], a1, a4, n] - S2[a5, a1, SP[a2, a4], a1, a3, n] + 
    S2[a1, n]*S2[a5, a2, a1, a3, a4, n] + S2[a5, a2, a1, a3, SP[a1, a4], n] + 
    S2[a1, n]*S2[a5, a2, a1, a4, a3, n] + S2[a5, a2, a1, a4, SP[a1, a3], n] + 
    S2[a5, a2, a1, SP[a1, a3], a4, n] + S2[a5, a2, a1, SP[a1, a4], a3, n] - 
    S2[a1, n]*S2[a5, a2, a3, a4, a1, n] - S2[a5, a2, a3, a4, SP[a1, a1], n] - 
    S2[a5, a2, a3, SP[a1, a4], a1, n] - S2[a1, n]*S2[a5, a2, a4, a3, a1, n] - 
    S2[a5, a2, a4, a3, SP[a1, a1], n] - S2[a5, a2, a4, SP[a1, a3], a1, n] + 
    S2[a5, a2, SP[a1, a1], a3, a4, n] + S2[a5, a2, SP[a1, a1], a4, a3, n] - 
    S2[a5, a2, SP[a1, a3], a4, a1, n] - S2[a5, a2, SP[a1, a4], a3, a1, n] - 
    S2[a1, n]*S2[a5, a4, a2, a3, a1, n] - S2[a5, a4, a2, a3, SP[a1, a1], n] - 
    S2[a5, a4, a2, SP[a1, a3], a1, n] - S2[a5, a4, SP[a1, a2], a3, a1, n] + 
    S2[a5, SP[a1, a1], a2, a3, a4, n] + S2[a5, SP[a1, a1], a2, a4, a3, n] + 
    S2[a5, SP[a1, a1], a4, a2, a3, n] - S2[a5, SP[a1, a2], a1, a3, a4, n] - 
    S2[a5, SP[a1, a2], a1, a4, a3, n] - S2[a5, SP[a1, a2], a3, a1, a4, n] - 
    S2[a5, SP[a1, a2], a3, a4, a1, n] - S2[a5, SP[a1, a2], a4, a1, a3, n] - 
    S2[a5, SP[a1, a2], a4, a3, a1, n] - S2[a5, SP[a1, a4], a2, a3, a1, n] - 
    S2[SP[a1, a1], a3, a2, a4, a5, n] - S2[SP[a1, a1], a3, a2, a5, a4, n] - 
    S2[SP[a1, a1], a3, a4, a2, a5, n] - S2[SP[a1, a1], a3, a4, a5, a2, n] - 
    S2[SP[a1, a1], a3, a5, a2, a4, n] - S2[SP[a1, a1], a3, a5, a4, a2, n] - 
    S2[SP[a1, a1], a4, a3, a2, a5, n] - S2[SP[a1, a1], a4, a3, a5, a2, n] - 
    S2[SP[a1, a1], a4, a5, a3, a2, n] - S2[SP[a1, a1], a5, a3, a2, a4, n] - 
    S2[SP[a1, a1], a5, a3, a4, a2, n] - S2[SP[a1, a1], a5, a4, a3, a2, n] + 
    S2[SP[a1, a5], a1, a2, a3, a4, n] + S2[SP[a1, a5], a1, a2, a4, a3, n] + 
    2*S2[SP[a1, a5], a1, a3, a2, a4, n] + 
    2*S2[SP[a1, a5], a1, a3, a4, a2, n] + S2[SP[a1, a5], a1, a4, a2, a3, n] + 
    2*S2[SP[a1, a5], a1, a4, a3, a2, n] + S2[SP[a1, a5], a2, a1, a3, a4, n] + 
    S2[SP[a1, a5], a2, a1, a4, a3, n] - S2[SP[a1, a5], a2, a3, a4, a1, n] - 
    S2[SP[a1, a5], a2, a4, a3, a1, n] + S2[SP[a1, a5], a3, a1, a2, a4, n] + 
    S2[SP[a1, a5], a3, a1, a4, a2, n] + S2[SP[a1, a5], a3, a2, a1, a4, n] + 
    S2[SP[a1, a5], a4, a1, a3, a2, n] - S2[SP[a1, a5], a4, a2, a3, a1, n] - 
    2*S2[SP[a2, a5], a1, a1, a3, a4, n] - 
    2*S2[SP[a2, a5], a1, a1, a4, a3, n] - S2[SP[a2, a5], a1, a3, a1, a4, n] - 
    S2[SP[a2, a5], a1, a4, a1, a3, n] + S2[a5, a2, a3, a1, a4, a1, n] + 
    2*S2[a5, a2, a3, a4, a1, a1, n] + S2[a5, a2, a4, a1, a3, a1, n] + 
    2*S2[a5, a2, a4, a3, a1, a1, n] + S2[a5, a4, a1, a2, a3, a1, n] + 
    S2[a5, a4, a2, a1, a3, a1, n] + 2*S2[a5, a4, a2, a3, a1, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a1_, a4_, a5_, a3_, a1_, a2_, n_] :> 
  S2[a1, a4, n]*S2[a1, a2, a3, a5, n] - S2[a1, a2, SP[a1, a3], SP[a4, a5], 
     n] + S2[a1, a4, n]*S2[a1, a3, a2, a5, n] + 
    S2[a1, a4, n]*S2[a1, a3, a5, a2, n] - S2[a1, a3, SP[a1, a2], SP[a4, a5], 
     n] - S2[a1, a3, SP[a1, a5], SP[a2, a4], n] + 
    S2[a1, a2, n]*S2[a1, a4, a5, a3, n] - S2[a1, a4, SP[a1, a5], SP[a2, a3], 
     n] + S2[a1, a2, n]*S2[a1, a5, a3, a4, n] + 
    S2[a1, a2, n]*S2[a1, a5, a4, a3, n] - S2[a1, a5, SP[a1, a3], SP[a2, a4], 
     n] - S2[a1, a5, SP[a1, a4], SP[a2, a3], n] - S2[a1, SP[a1, a2], a3, 
     SP[a4, a5], n] - S2[a1, SP[a1, a2], SP[a3, a4], a5, n] - 
    S2[a1, SP[a1, a3], a2, SP[a4, a5], n] - S2[a1, SP[a1, a3], a5, 
     SP[a2, a4], n] - S2[a1, SP[a1, a3], SP[a2, a4], a5, n] - 
    S2[a1, SP[a1, a3], SP[a4, a5], a2, n] - S2[a1, SP[a1, a4], a5, 
     SP[a2, a3], n] - S2[a1, SP[a1, a4], SP[a2, a5], a3, n] - 
    S2[a1, SP[a1, a5], a3, SP[a2, a4], n] - S2[a1, SP[a1, a5], a4, 
     SP[a2, a3], n] - S2[a1, SP[a1, a5], SP[a2, a3], a4, n] - 
    S2[a1, SP[a1, a5], SP[a2, a4], a3, n] - S2[a1, a2, n]*
     S2[a3, a5, a1, a4, n] + S2[a3, a5, SP[a1, a1], SP[a2, a4], n] + 
    S2[a3, SP[a1, a5], a1, SP[a2, a4], n] + S2[a3, SP[a1, a5], SP[a1, a2], 
     a4, n] - S2[SP[a1, a1], a2, a3, SP[a4, a5], n] - 
    S2[SP[a1, a1], a2, SP[a3, a4], a5, n] - S2[SP[a1, a1], a3, a2, 
     SP[a4, a5], n] - S2[SP[a1, a1], a3, a5, SP[a2, a4], n] - 
    S2[SP[a1, a1], a3, SP[a2, a4], a5, n] - S2[SP[a1, a1], a3, SP[a4, a5], 
     a2, n] - S2[SP[a1, a1], a4, a5, SP[a2, a3], n] - 
    S2[SP[a1, a1], a4, SP[a2, a5], a3, n] - S2[SP[a1, a1], a5, a3, 
     SP[a2, a4], n] - S2[SP[a1, a1], a5, a4, SP[a2, a3], n] - 
    S2[SP[a1, a1], a5, SP[a2, a3], a4, n] - S2[SP[a1, a1], a5, SP[a2, a4], 
     a3, n] - S2[SP[a1, a1], SP[a2, a4], a3, a5, n] - 
    S2[SP[a1, a1], SP[a2, a4], a5, a3, n] - S2[SP[a1, a1], SP[a2, a5], a3, 
     a4, n] - S2[SP[a1, a1], SP[a2, a5], a4, a3, n] - 
    S2[SP[a1, a1], SP[a3, a4], a2, a5, n] - S2[SP[a1, a1], SP[a3, a4], a5, 
     a2, n] + S2[SP[a1, a3], a5, a1, SP[a2, a4], n] + 
    S2[SP[a1, a3], a5, SP[a1, a2], a4, n] + S2[SP[a1, a3], SP[a2, a5], a1, 
     a4, n] - 2*S2[a5, n]*S2[a1, a1, a2, a3, a4, n] - 
    2*S2[a5, n]*S2[a1, a1, a2, a4, a3, n] - 
    2*S2[a1, a1, a2, a4, SP[a3, a5], n] + 
    2*S2[a1, a1, a2, SP[a3, a4], a5, n] - 
    2*S2[a1, a1, a2, SP[a3, a5], a4, n] - 
    2*S2[a1, a1, a2, SP[a4, a5], a3, n] - 
    2*S2[a5, n]*S2[a1, a1, a3, a2, a4, n] - 
    2*S2[a5, n]*S2[a1, a1, a3, a4, a2, n] - 
    2*S2[a1, a1, a3, a4, SP[a2, a5], n] + 
    2*S2[a1, a1, a3, a5, SP[a2, a4], n] + 
    2*S2[a1, a1, a3, SP[a2, a4], a5, n] - 
    2*S2[a1, a1, a3, SP[a2, a5], a4, n] - 
    2*S2[a5, n]*S2[a1, a1, a4, a2, a3, n] - 
    2*S2[a1, a1, a4, a2, SP[a3, a5], n] - 
    2*S2[a5, n]*S2[a1, a1, a4, a3, a2, n] - 
    2*S2[a1, a1, a4, a3, SP[a2, a5], n] + 
    2*S2[a1, a1, a4, a5, SP[a2, a3], n] - 
    2*S2[a1, a1, a4, SP[a3, a5], a2, n] + 
    2*S2[a1, a1, a5, a3, SP[a2, a4], n] + 
    2*S2[a1, a1, a5, a4, SP[a2, a3], n] + 
    2*S2[a1, a1, a5, SP[a2, a3], a4, n] + 
    2*S2[a1, a1, a5, SP[a2, a4], a3, n] + 
    2*S2[a1, a1, SP[a2, a4], a3, a5, n] + 
    2*S2[a1, a1, SP[a2, a4], a5, a3, n] + 
    2*S2[a1, a1, SP[a3, a4], a2, a5, n] + 
    2*S2[a1, a1, SP[a3, a4], a5, a2, n] - 
    2*S2[a1, a1, SP[a3, a5], a2, a4, n] - 
    2*S2[a1, a1, SP[a3, a5], a4, a2, n] - 
    2*S2[a1, a1, SP[a4, a5], a2, a3, n] - 
    2*S2[a1, a1, SP[a4, a5], a3, a2, n] - 
    S2[a5, n]*S2[a1, a2, a1, a3, a4, n] - 
    S2[a5, n]*S2[a1, a2, a1, a4, a3, n] - S2[a1, a2, a1, a4, SP[a3, a5], n] + 
    S2[a1, a2, a1, SP[a3, a4], a5, n] - S2[a1, a2, a1, SP[a3, a5], a4, n] - 
    S2[a1, a2, a1, SP[a4, a5], a3, n] - S2[a5, n]*S2[a1, a2, a3, a1, a4, n] + 
    S2[a3, n]*S2[a1, a2, a5, a1, a4, n] + S2[a1, a2, a5, a1, SP[a3, a4], n] + 
    S2[a1, a2, a5, SP[a1, a3], a4, n] + S2[a1, a2, SP[a1, a3], a4, a5, n] + 
    S2[a1, a2, SP[a1, a3], a5, a4, n] - S2[a1, a2, SP[a1, a5], a3, a4, n] - 
    S2[a1, a2, SP[a1, a5], a4, a3, n] - S2[a5, n]*S2[a1, a3, a1, a2, a4, n] - 
    S2[a5, n]*S2[a1, a3, a1, a4, a2, n] - S2[a1, a3, a1, a4, SP[a2, a5], n] + 
    S2[a1, a3, a1, a5, SP[a2, a4], n] + S2[a1, a3, a1, SP[a2, a4], a5, n] - 
    S2[a1, a3, a1, SP[a2, a5], a4, n] - S2[a5, n]*S2[a1, a3, a2, a1, a4, n] + 
    S2[a1, a3, SP[a1, a2], a4, a5, n] + S2[a1, a3, SP[a1, a2], a5, a4, n] - 
    2*S2[a1, a3, SP[a2, a5], a1, a4, n] - 
    S2[a5, n]*S2[a1, a4, a1, a2, a3, n] - S2[a1, a4, a1, a2, SP[a3, a5], n] - 
    S2[a5, n]*S2[a1, a4, a1, a3, a2, n] - S2[a1, a4, a1, a3, SP[a2, a5], n] + 
    S2[a1, a4, a1, a5, SP[a2, a3], n] - S2[a1, a4, a1, SP[a3, a5], a2, n] + 
    S2[a1, a4, a5, a1, SP[a2, a3], n] + S2[a1, a4, a5, SP[a1, a3], a2, n] + 
    S2[a3, n]*S2[a1, a5, a1, a2, a4, n] + S2[a1, a5, a1, a2, SP[a3, a4], n] + 
    S2[a1, a5, a1, a3, SP[a2, a4], n] + S2[a3, n]*S2[a1, a5, a1, a4, a2, n] + 
    2*S2[a1, a5, a1, a4, SP[a2, a3], n] + 
    2*S2[a1, a5, a1, SP[a2, a3], a4, n] + S2[a1, a5, a1, SP[a2, a4], a3, n] + 
    S2[a1, a5, a1, SP[a3, a4], a2, n] + S2[a3, n]*S2[a1, a5, a2, a1, a4, n] + 
    S2[a1, a5, a2, a1, SP[a3, a4], n] + S2[a1, a5, a2, SP[a1, a3], a4, n] + 
    S2[a1, a5, a3, a1, SP[a2, a4], n] + S2[a1, a5, a3, SP[a1, a4], a2, n] + 
    S2[a1, a5, a4, a1, SP[a2, a3], n] + S2[a1, a5, a4, SP[a1, a3], a2, n] + 
    2*S2[a1, a5, SP[a1, a3], a2, a4, n] + 
    2*S2[a1, a5, SP[a1, a3], a4, a2, n] + S2[a1, a5, SP[a1, a4], a2, a3, n] + 
    S2[a1, a5, SP[a1, a4], a3, a2, n] + S2[a1, a5, SP[a2, a3], a1, a4, n] + 
    S2[a1, SP[a1, a2], a3, a4, a5, n] + S2[a1, SP[a1, a2], a3, a5, a4, n] + 
    S2[a1, SP[a1, a2], a4, a3, a5, n] + S2[a1, SP[a1, a2], a4, a5, a3, n] + 
    S2[a1, SP[a1, a2], a5, a3, a4, n] + S2[a1, SP[a1, a2], a5, a4, a3, n] + 
    S2[a1, SP[a1, a3], a2, a4, a5, n] + S2[a1, SP[a1, a3], a2, a5, a4, n] + 
    S2[a1, SP[a1, a3], a4, a2, a5, n] + S2[a1, SP[a1, a3], a4, a5, a2, n] + 
    S2[a1, SP[a1, a3], a5, a2, a4, n] + S2[a1, SP[a1, a3], a5, a4, a2, n] + 
    S2[a1, SP[a1, a4], a2, a3, a5, n] + S2[a1, SP[a1, a4], a2, a5, a3, n] + 
    S2[a1, SP[a1, a4], a3, a2, a5, n] + S2[a1, SP[a1, a4], a3, a5, a2, n] + 
    S2[a1, SP[a1, a4], a5, a2, a3, n] + S2[a1, SP[a1, a4], a5, a3, a2, n] - 
    S2[a1, SP[a1, a5], a2, a3, a4, n] - S2[a1, SP[a1, a5], a2, a4, a3, n] - 
    S2[a1, SP[a1, a5], a3, a2, a4, n] - S2[a1, SP[a1, a5], a3, a4, a2, n] - 
    S2[a1, SP[a1, a5], a4, a2, a3, n] - S2[a1, SP[a1, a5], a4, a3, a2, n] - 
    S2[a1, SP[a2, a5], a1, a3, a4, n] - S2[a1, SP[a2, a5], a1, a4, a3, n] - 
    S2[a1, SP[a2, a5], a3, a1, a4, n] - S2[a1, SP[a4, a5], a1, a2, a3, n] - 
    S2[a1, SP[a4, a5], a1, a3, a2, n] - S2[a3, a1, a5, a1, SP[a2, a4], n] - 
    S2[a3, a1, a5, SP[a1, a2], a4, n] - S2[a3, a1, SP[a2, a5], a1, a4, n] - 
    2*S2[a3, a5, a1, a1, SP[a2, a4], n] - S2[a3, a5, a1, SP[a1, a2], a4, n] - 
    S2[a3, a5, a1, SP[a1, a4], a2, n] - S2[a3, a5, SP[a1, a1], a2, a4, n] - 
    S2[a3, a5, SP[a1, a1], a4, a2, n] - S2[a3, SP[a1, a5], a1, a2, a4, n] - 
    S2[a3, SP[a1, a5], a1, a4, a2, n] - S2[a3, SP[a1, a5], a2, a1, a4, n] + 
    2*S2[a3, n]*S2[a5, a1, a1, a2, a4, n] + 
    2*S2[a5, a1, a1, a2, SP[a3, a4], n] + 
    2*S2[a3, n]*S2[a5, a1, a1, a4, a2, n] + 
    2*S2[a5, a1, a1, a4, SP[a2, a3], n] + 
    2*S2[a5, a1, a1, SP[a2, a3], a4, n] + 
    2*S2[a5, a1, a1, SP[a3, a4], a2, n] + 
    S2[a3, n]*S2[a5, a1, a2, a1, a4, n] + S2[a5, a1, a2, a1, SP[a3, a4], n] + 
    S2[a5, a1, a2, SP[a1, a3], a4, n] + S2[a3, n]*S2[a5, a1, a4, a1, a2, n] + 
    S2[a5, a1, a4, a1, SP[a2, a3], n] + S2[a5, a1, a4, SP[a1, a3], a2, n] + 
    2*S2[a5, a1, SP[a1, a3], a2, a4, n] + 
    2*S2[a5, a1, SP[a1, a3], a4, a2, n] + S2[a5, a1, SP[a2, a3], a1, a4, n] + 
    S2[a5, a1, SP[a3, a4], a1, a2, n] - S2[a1, n]*S2[a5, a3, a1, a2, a4, n] - 
    S2[a5, a3, a1, a2, SP[a1, a4], n] - S2[a1, n]*S2[a5, a3, a1, a4, a2, n] - 
    S2[a5, a3, a1, a4, SP[a1, a2], n] - S2[a5, a3, a1, SP[a1, a2], a4, n] - 
    S2[a5, a3, a1, SP[a1, a4], a2, n] - S2[a1, n]*S2[a5, a3, a4, a1, a2, n] - 
    S2[a5, a3, a4, a1, SP[a1, a2], n] - S2[a5, a3, a4, SP[a1, a1], a2, n] - 
    S2[a5, a3, SP[a1, a1], a2, a4, n] - S2[a5, a3, SP[a1, a1], a4, a2, n] - 
    S2[a5, a3, SP[a1, a4], a1, a2, n] - S2[a1, n]*S2[a5, a4, a3, a1, a2, n] - 
    S2[a5, a4, a3, a1, SP[a1, a2], n] - S2[a5, a4, a3, SP[a1, a1], a2, n] - 
    S2[a5, a4, SP[a1, a3], a1, a2, n] + S2[a5, SP[a1, a3], a1, a2, a4, n] + 
    S2[a5, SP[a1, a3], a1, a4, a2, n] + S2[a5, SP[a1, a3], a2, a1, a4, n] - 
    S2[a5, SP[a1, a4], a3, a1, a2, n] + S2[SP[a1, a1], a2, a3, a4, a5, n] + 
    S2[SP[a1, a1], a2, a3, a5, a4, n] + S2[SP[a1, a1], a2, a4, a3, a5, n] + 
    S2[SP[a1, a1], a2, a4, a5, a3, n] + S2[SP[a1, a1], a2, a5, a3, a4, n] + 
    S2[SP[a1, a1], a2, a5, a4, a3, n] + S2[SP[a1, a1], a3, a2, a4, a5, n] + 
    S2[SP[a1, a1], a3, a2, a5, a4, n] + S2[SP[a1, a1], a3, a4, a2, a5, n] + 
    S2[SP[a1, a1], a3, a4, a5, a2, n] + S2[SP[a1, a1], a3, a5, a2, a4, n] + 
    S2[SP[a1, a1], a3, a5, a4, a2, n] + S2[SP[a1, a1], a4, a2, a3, a5, n] + 
    S2[SP[a1, a1], a4, a2, a5, a3, n] + S2[SP[a1, a1], a4, a3, a2, a5, n] + 
    S2[SP[a1, a1], a4, a3, a5, a2, n] + S2[SP[a1, a1], a4, a5, a2, a3, n] + 
    S2[SP[a1, a1], a4, a5, a3, a2, n] + S2[SP[a1, a1], a5, a2, a3, a4, n] + 
    S2[SP[a1, a1], a5, a2, a4, a3, n] + S2[SP[a1, a1], a5, a3, a2, a4, n] + 
    S2[SP[a1, a1], a5, a3, a4, a2, n] + S2[SP[a1, a1], a5, a4, a2, a3, n] + 
    S2[SP[a1, a1], a5, a4, a3, a2, n] - 2*S2[SP[a1, a5], a1, a2, a3, a4, n] - 
    2*S2[SP[a1, a5], a1, a2, a4, a3, n] - 
    2*S2[SP[a1, a5], a1, a3, a2, a4, n] - 
    2*S2[SP[a1, a5], a1, a3, a4, a2, n] - 
    2*S2[SP[a1, a5], a1, a4, a2, a3, n] - 
    2*S2[SP[a1, a5], a1, a4, a3, a2, n] - S2[SP[a1, a5], a2, a1, a3, a4, n] - 
    S2[SP[a1, a5], a2, a1, a4, a3, n] - S2[SP[a1, a5], a2, a3, a1, a4, n] - 
    2*S2[SP[a1, a5], a3, a1, a2, a4, n] - 
    2*S2[SP[a1, a5], a3, a1, a4, a2, n] - S2[SP[a1, a5], a3, a2, a1, a4, n] - 
    S2[SP[a1, a5], a3, a4, a1, a2, n] - S2[SP[a1, a5], a4, a1, a2, a3, n] - 
    S2[SP[a1, a5], a4, a1, a3, a2, n] - S2[SP[a1, a5], a4, a3, a1, a2, n] + 
    2*S2[SP[a3, a5], a1, a1, a2, a4, n] + 
    2*S2[SP[a3, a5], a1, a1, a4, a2, n] + S2[SP[a3, a5], a1, a2, a1, a4, n] + 
    S2[SP[a3, a5], a1, a4, a1, a2, n] + S2[a5, a3, a1, a2, a4, a1, n] + 
    S2[a5, a3, a1, a4, a1, a2, n] + S2[a5, a3, a1, a4, a2, a1, n] + 
    2*S2[a5, a3, a4, a1, a1, a2, n] + S2[a5, a3, a4, a1, a2, a1, n] + 
    S2[a5, a4, a1, a3, a1, a2, n] + 2*S2[a5, a4, a3, a1, a1, a2, n] + 
    S2[a5, a4, a3, a1, a2, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a1_, a4_, a5_, a3_, a2_, a1_, n_] :> 
  -(S2[a1, a4, n]*S2[a1, a2, a3, a5, n]) + S2[a1, a2, SP[a1, a3], SP[a4, a5], 
     n] - S2[a1, a2, n]*S2[a1, a4, a5, a3, n] + S2[a1, a4, SP[a1, a5], 
     SP[a2, a3], n] - S2[a1, a2, n]*S2[a1, a5, a3, a4, n] - 
    S2[a1, a2, n]*S2[a1, a5, a4, a3, n] + S2[a1, a5, SP[a1, a3], SP[a2, a4], 
     n] + S2[a1, a5, SP[a1, a4], SP[a2, a3], n] + S2[a1, SP[a1, a2], a3, 
     SP[a4, a5], n] + S2[a1, SP[a1, a2], SP[a3, a4], a5, n] + 
    S2[a1, SP[a1, a4], a5, SP[a2, a3], n] + S2[a1, SP[a1, a4], SP[a2, a5], 
     a3, n] + S2[a1, SP[a1, a5], a3, SP[a2, a4], n] + 
    S2[a1, SP[a1, a5], a4, SP[a2, a3], n] + S2[a1, SP[a1, a5], SP[a2, a3], 
     a4, n] + S2[a1, SP[a1, a5], SP[a2, a4], a3, n] + 
    S2[a1, a2, n]*S2[a3, a5, a1, a4, n] - S2[a3, a5, SP[a1, a1], SP[a2, a4], 
     n] - S2[a3, SP[a1, a5], a1, SP[a2, a4], n] - 
    S2[a3, SP[a1, a5], SP[a1, a2], a4, n] + S2[SP[a1, a1], a2, a3, 
     SP[a4, a5], n] + S2[SP[a1, a1], a2, SP[a3, a4], a5, n] + 
    S2[SP[a1, a1], a4, a5, SP[a2, a3], n] + S2[SP[a1, a1], a4, SP[a2, a5], 
     a3, n] + S2[SP[a1, a1], a5, a3, SP[a2, a4], n] + 
    S2[SP[a1, a1], a5, a4, SP[a2, a3], n] + S2[SP[a1, a1], a5, SP[a2, a3], 
     a4, n] + S2[SP[a1, a1], a5, SP[a2, a4], a3, n] + 
    S2[SP[a1, a1], SP[a2, a4], a3, a5, n] + S2[SP[a1, a1], SP[a2, a4], a5, 
     a3, n] + S2[SP[a1, a1], SP[a2, a5], a3, a4, n] + 
    S2[SP[a1, a1], SP[a2, a5], a4, a3, n] - S2[SP[a1, a3], a5, a1, 
     SP[a2, a4], n] - S2[SP[a1, a3], a5, SP[a1, a2], a4, n] - 
    S2[SP[a1, a3], SP[a2, a5], a1, a4, n] + 
    2*S2[a5, n]*S2[a1, a1, a2, a3, a4, n] + 
    2*S2[a5, n]*S2[a1, a1, a2, a4, a3, n] + 
    2*S2[a1, a1, a2, a4, SP[a3, a5], n] - 
    2*S2[a1, a1, a2, SP[a3, a4], a5, n] + 
    2*S2[a1, a1, a2, SP[a3, a5], a4, n] + 
    2*S2[a1, a1, a2, SP[a4, a5], a3, n] + 
    2*S2[a5, n]*S2[a1, a1, a4, a2, a3, n] + 
    2*S2[a1, a1, a4, a2, SP[a3, a5], n] - 
    2*S2[a1, a1, a4, a5, SP[a2, a3], n] - 
    2*S2[a1, a1, a5, a3, SP[a2, a4], n] - 
    2*S2[a1, a1, a5, a4, SP[a2, a3], n] - 
    2*S2[a1, a1, a5, SP[a2, a3], a4, n] - 
    2*S2[a1, a1, a5, SP[a2, a4], a3, n] - 
    2*S2[a1, a1, SP[a2, a4], a3, a5, n] - 
    2*S2[a1, a1, SP[a2, a4], a5, a3, n] + 
    2*S2[a1, a1, SP[a4, a5], a2, a3, n] + 
    S2[a5, n]*S2[a1, a2, a1, a3, a4, n] + 
    S2[a5, n]*S2[a1, a2, a1, a4, a3, n] + S2[a1, a2, a1, a4, SP[a3, a5], n] - 
    S2[a1, a2, a1, SP[a3, a4], a5, n] + S2[a1, a2, a1, SP[a3, a5], a4, n] + 
    S2[a1, a2, a1, SP[a4, a5], a3, n] + S2[a5, n]*S2[a1, a2, a3, a1, a4, n] - 
    S2[a3, n]*S2[a1, a2, a5, a1, a4, n] - S2[a1, a2, a5, a1, SP[a3, a4], n] - 
    S2[a1, a2, a5, SP[a1, a3], a4, n] - S2[a1, a2, SP[a1, a3], a4, a5, n] - 
    S2[a1, a2, SP[a1, a3], a5, a4, n] + S2[a1, a2, SP[a1, a5], a3, a4, n] + 
    S2[a1, a2, SP[a1, a5], a4, a3, n] + S2[a1, a3, a5, a1, SP[a2, a4], n] + 
    S2[a1, a3, a5, SP[a1, a2], a4, n] + S2[a1, a3, SP[a2, a5], a1, a4, n] + 
    S2[a5, n]*S2[a1, a4, a1, a2, a3, n] + S2[a1, a4, a1, a2, SP[a3, a5], n] - 
    S2[a1, a4, a1, a5, SP[a2, a3], n] - S2[a1, a4, a5, a1, SP[a2, a3], n] + 
    S2[a1, n]*S2[a1, a4, a5, a3, a2, n] + S2[a1, a4, a5, a3, SP[a1, a2], n] - 
    S2[a3, n]*S2[a1, a5, a1, a2, a4, n] - S2[a1, a5, a1, a2, SP[a3, a4], n] - 
    S2[a1, a5, a1, a3, SP[a2, a4], n] - S2[a3, n]*S2[a1, a5, a1, a4, a2, n] - 
    2*S2[a1, a5, a1, a4, SP[a2, a3], n] - 
    2*S2[a1, a5, a1, SP[a2, a3], a4, n] - S2[a1, a5, a1, SP[a2, a4], a3, n] - 
    S2[a1, a5, a1, SP[a3, a4], a2, n] - S2[a3, n]*S2[a1, a5, a2, a1, a4, n] - 
    S2[a1, a5, a2, a1, SP[a3, a4], n] - S2[a1, a5, a2, SP[a1, a3], a4, n] - 
    S2[a1, a5, a3, a1, SP[a2, a4], n] + S2[a1, n]*S2[a1, a5, a3, a2, a4, n] + 
    S2[a1, a5, a3, a2, SP[a1, a4], n] + S2[a1, n]*S2[a1, a5, a3, a4, a2, n] + 
    S2[a1, a5, a3, a4, SP[a1, a2], n] + S2[a1, a5, a3, SP[a1, a2], a4, n] - 
    S2[a1, a5, a4, a1, SP[a2, a3], n] + S2[a1, n]*S2[a1, a5, a4, a3, a2, n] + 
    S2[a1, a5, a4, a3, SP[a1, a2], n] - S2[a1, a5, SP[a1, a3], a2, a4, n] - 
    S2[a1, a5, SP[a1, a3], a4, a2, n] - S2[a1, a5, SP[a1, a4], a2, a3, n] - 
    S2[a1, a5, SP[a2, a3], a1, a4, n] - S2[a1, SP[a1, a2], a3, a4, a5, n] - 
    S2[a1, SP[a1, a2], a3, a5, a4, n] - S2[a1, SP[a1, a2], a4, a3, a5, n] - 
    S2[a1, SP[a1, a2], a4, a5, a3, n] - S2[a1, SP[a1, a2], a5, a3, a4, n] - 
    S2[a1, SP[a1, a2], a5, a4, a3, n] - S2[a1, SP[a1, a4], a2, a3, a5, n] - 
    S2[a1, SP[a1, a4], a2, a5, a3, n] - S2[a1, SP[a1, a4], a5, a2, a3, n] + 
    S2[a1, SP[a1, a5], a2, a3, a4, n] + S2[a1, SP[a1, a5], a2, a4, a3, n] + 
    S2[a1, SP[a1, a5], a4, a2, a3, n] + S2[a1, SP[a2, a5], a1, a3, a4, n] + 
    S2[a1, SP[a2, a5], a1, a4, a3, n] + S2[a1, SP[a2, a5], a3, a1, a4, n] - 
    S2[a1, SP[a3, a5], a1, a2, a4, n] - S2[a1, SP[a3, a5], a1, a4, a2, n] - 
    S2[a1, SP[a3, a5], a2, a1, a4, n] + S2[a1, SP[a4, a5], a1, a2, a3, n] + 
    S2[a3, a1, a5, a1, SP[a2, a4], n] + S2[a3, a1, a5, SP[a1, a2], a4, n] + 
    S2[a3, a1, SP[a2, a5], a1, a4, n] + 2*S2[a3, a5, a1, a1, SP[a2, a4], n] + 
    S2[a3, a5, a1, SP[a1, a2], a4, n] + S2[a3, a5, a1, SP[a1, a4], a2, n] + 
    S2[a3, a5, SP[a1, a1], a2, a4, n] + S2[a3, a5, SP[a1, a1], a4, a2, n] + 
    S2[a3, SP[a1, a5], a1, a2, a4, n] + S2[a3, SP[a1, a5], a1, a4, a2, n] + 
    S2[a3, SP[a1, a5], a2, a1, a4, n] - 2*S2[a3, n]*
     S2[a5, a1, a1, a2, a4, n] - 2*S2[a5, a1, a1, a2, SP[a3, a4], n] - 
    2*S2[a3, n]*S2[a5, a1, a1, a4, a2, n] - 
    2*S2[a5, a1, a1, a4, SP[a2, a3], n] - 
    2*S2[a5, a1, a1, SP[a2, a3], a4, n] - 
    2*S2[a5, a1, a1, SP[a3, a4], a2, n] - 
    S2[a3, n]*S2[a5, a1, a2, a1, a4, n] - S2[a5, a1, a2, a1, SP[a3, a4], n] - 
    S2[a5, a1, a2, SP[a1, a3], a4, n] + S2[a1, n]*S2[a5, a1, a3, a2, a4, n] + 
    S2[a5, a1, a3, a2, SP[a1, a4], n] + S2[a1, n]*S2[a5, a1, a3, a4, a2, n] + 
    S2[a5, a1, a3, a4, SP[a1, a2], n] + S2[a5, a1, a3, SP[a1, a2], a4, n] + 
    S2[a5, a1, a3, SP[a1, a4], a2, n] - S2[a3, n]*S2[a5, a1, a4, a1, a2, n] - 
    S2[a5, a1, a4, a1, SP[a2, a3], n] + S2[a1, n]*S2[a5, a1, a4, a3, a2, n] + 
    S2[a5, a1, a4, a3, SP[a1, a2], n] - S2[a5, a1, SP[a1, a3], a2, a4, n] - 
    S2[a5, a1, SP[a1, a3], a4, a2, n] + S2[a5, a1, SP[a1, a4], a3, a2, n] - 
    S2[a5, a1, SP[a2, a3], a1, a4, n] - S2[a5, a1, SP[a3, a4], a1, a2, n] + 
    S2[a1, n]*S2[a5, a3, a1, a2, a4, n] + S2[a5, a3, a1, a2, SP[a1, a4], n] + 
    S2[a1, n]*S2[a5, a3, a1, a4, a2, n] + S2[a5, a3, a1, a4, SP[a1, a2], n] + 
    S2[a5, a3, a1, SP[a1, a2], a4, n] + S2[a5, a3, a1, SP[a1, a4], a2, n] - 
    S2[a1, n]*S2[a5, a3, a2, a4, a1, n] - S2[a5, a3, a2, a4, SP[a1, a1], n] - 
    S2[a5, a3, a2, SP[a1, a4], a1, n] - S2[a1, n]*S2[a5, a3, a4, a2, a1, n] - 
    S2[a5, a3, a4, a2, SP[a1, a1], n] - S2[a5, a3, a4, SP[a1, a2], a1, n] + 
    S2[a5, a3, SP[a1, a1], a2, a4, n] + S2[a5, a3, SP[a1, a1], a4, a2, n] - 
    S2[a5, a3, SP[a1, a2], a4, a1, n] - S2[a5, a3, SP[a1, a4], a2, a1, n] - 
    S2[a1, n]*S2[a5, a4, a3, a2, a1, n] - S2[a5, a4, a3, a2, SP[a1, a1], n] - 
    S2[a5, a4, a3, SP[a1, a2], a1, n] - S2[a5, a4, SP[a1, a3], a2, a1, n] + 
    S2[a5, SP[a1, a1], a3, a2, a4, n] + S2[a5, SP[a1, a1], a3, a4, a2, n] + 
    S2[a5, SP[a1, a1], a4, a3, a2, n] - S2[a5, SP[a1, a3], a1, a2, a4, n] - 
    S2[a5, SP[a1, a3], a1, a4, a2, n] - S2[a5, SP[a1, a3], a2, a1, a4, n] - 
    S2[a5, SP[a1, a3], a2, a4, a1, n] - S2[a5, SP[a1, a3], a4, a1, a2, n] - 
    S2[a5, SP[a1, a3], a4, a2, a1, n] - S2[a5, SP[a1, a4], a3, a2, a1, n] - 
    S2[SP[a1, a1], a2, a3, a4, a5, n] - S2[SP[a1, a1], a2, a3, a5, a4, n] - 
    S2[SP[a1, a1], a2, a4, a3, a5, n] - S2[SP[a1, a1], a2, a4, a5, a3, n] - 
    S2[SP[a1, a1], a2, a5, a3, a4, n] - S2[SP[a1, a1], a2, a5, a4, a3, n] - 
    S2[SP[a1, a1], a4, a2, a3, a5, n] - S2[SP[a1, a1], a4, a2, a5, a3, n] - 
    S2[SP[a1, a1], a4, a5, a2, a3, n] - S2[SP[a1, a1], a5, a2, a3, a4, n] - 
    S2[SP[a1, a1], a5, a2, a4, a3, n] - S2[SP[a1, a1], a5, a4, a2, a3, n] + 
    2*S2[SP[a1, a5], a1, a2, a3, a4, n] + 
    2*S2[SP[a1, a5], a1, a2, a4, a3, n] + S2[SP[a1, a5], a1, a3, a2, a4, n] + 
    S2[SP[a1, a5], a1, a3, a4, a2, n] + 2*S2[SP[a1, a5], a1, a4, a2, a3, n] + 
    S2[SP[a1, a5], a1, a4, a3, a2, n] + S2[SP[a1, a5], a2, a1, a3, a4, n] + 
    S2[SP[a1, a5], a2, a1, a4, a3, n] + S2[SP[a1, a5], a2, a3, a1, a4, n] + 
    S2[SP[a1, a5], a3, a1, a2, a4, n] + S2[SP[a1, a5], a3, a1, a4, a2, n] - 
    S2[SP[a1, a5], a3, a2, a4, a1, n] - S2[SP[a1, a5], a3, a4, a2, a1, n] + 
    S2[SP[a1, a5], a4, a1, a2, a3, n] - S2[SP[a1, a5], a4, a3, a2, a1, n] - 
    2*S2[SP[a3, a5], a1, a1, a2, a4, n] - 
    2*S2[SP[a3, a5], a1, a1, a4, a2, n] - S2[SP[a3, a5], a1, a2, a1, a4, n] - 
    S2[SP[a3, a5], a1, a4, a1, a2, n] + S2[a5, a3, a2, a1, a4, a1, n] + 
    2*S2[a5, a3, a2, a4, a1, a1, n] + S2[a5, a3, a4, a1, a2, a1, n] + 
    2*S2[a5, a3, a4, a2, a1, a1, n] + S2[a5, a4, a1, a3, a2, a1, n] + 
    S2[a5, a4, a3, a1, a2, a1, n] + 2*S2[a5, a4, a3, a2, a1, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a1_, a5_, a1_, a2_, a3_, a4_, n_] :> 
  S2[a1, n]*S2[a5, a1, a2, a3, a4, n] + S2[a5, a1, a2, a3, SP[a1, a4], n] + 
    S2[a5, a1, a2, SP[a1, a3], a4, n] + S2[a5, a1, SP[a1, a2], a3, a4, n] + 
    S2[a5, SP[a1, a1], a2, a3, a4, n] + S2[SP[a1, a5], a1, a2, a3, a4, n] - 
    2*S2[a5, a1, a1, a2, a3, a4, n] - S2[a5, a1, a2, a1, a3, a4, n] - 
    S2[a5, a1, a2, a3, a1, a4, n] - S2[a5, a1, a2, a3, a4, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a1_, a5_, a1_, a2_, a4_, a3_, n_] :> 
  S2[a1, n]*S2[a5, a1, a2, a4, a3, n] + S2[a5, a1, a2, a4, SP[a1, a3], n] + 
    S2[a5, a1, a2, SP[a1, a4], a3, n] + S2[a5, a1, SP[a1, a2], a4, a3, n] + 
    S2[a5, SP[a1, a1], a2, a4, a3, n] + S2[SP[a1, a5], a1, a2, a4, a3, n] - 
    2*S2[a5, a1, a1, a2, a4, a3, n] - S2[a5, a1, a2, a1, a4, a3, n] - 
    S2[a5, a1, a2, a4, a1, a3, n] - S2[a5, a1, a2, a4, a3, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a1_, a5_, a1_, a3_, a2_, a4_, n_] :> 
  S2[a1, n]*S2[a5, a1, a3, a2, a4, n] + S2[a5, a1, a3, a2, SP[a1, a4], n] + 
    S2[a5, a1, a3, SP[a1, a2], a4, n] + S2[a5, a1, SP[a1, a3], a2, a4, n] + 
    S2[a5, SP[a1, a1], a3, a2, a4, n] + S2[SP[a1, a5], a1, a3, a2, a4, n] - 
    2*S2[a5, a1, a1, a3, a2, a4, n] - S2[a5, a1, a3, a1, a2, a4, n] - 
    S2[a5, a1, a3, a2, a1, a4, n] - S2[a5, a1, a3, a2, a4, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a1_, a5_, a1_, a3_, a4_, a2_, n_] :> 
  S2[a1, n]*S2[a5, a1, a3, a4, a2, n] + S2[a5, a1, a3, a4, SP[a1, a2], n] + 
    S2[a5, a1, a3, SP[a1, a4], a2, n] + S2[a5, a1, SP[a1, a3], a4, a2, n] + 
    S2[a5, SP[a1, a1], a3, a4, a2, n] + S2[SP[a1, a5], a1, a3, a4, a2, n] - 
    2*S2[a5, a1, a1, a3, a4, a2, n] - S2[a5, a1, a3, a1, a4, a2, n] - 
    S2[a5, a1, a3, a4, a1, a2, n] - S2[a5, a1, a3, a4, a2, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a1_, a5_, a1_, a4_, a2_, a3_, n_] :> 
  S2[a1, n]*S2[a5, a1, a4, a2, a3, n] + S2[a5, a1, a4, a2, SP[a1, a3], n] + 
    S2[a5, a1, a4, SP[a1, a2], a3, n] + S2[a5, a1, SP[a1, a4], a2, a3, n] + 
    S2[a5, SP[a1, a1], a4, a2, a3, n] + S2[SP[a1, a5], a1, a4, a2, a3, n] - 
    2*S2[a5, a1, a1, a4, a2, a3, n] - S2[a5, a1, a4, a1, a2, a3, n] - 
    S2[a5, a1, a4, a2, a1, a3, n] - S2[a5, a1, a4, a2, a3, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a1_, a5_, a1_, a4_, a3_, a2_, n_] :> 
  S2[a1, n]*S2[a5, a1, a4, a3, a2, n] + S2[a5, a1, a4, a3, SP[a1, a2], n] + 
    S2[a5, a1, a4, SP[a1, a3], a2, n] + S2[a5, a1, SP[a1, a4], a3, a2, n] + 
    S2[a5, SP[a1, a1], a4, a3, a2, n] + S2[SP[a1, a5], a1, a4, a3, a2, n] - 
    2*S2[a5, a1, a1, a4, a3, a2, n] - S2[a5, a1, a4, a1, a3, a2, n] - 
    S2[a5, a1, a4, a3, a1, a2, n] - S2[a5, a1, a4, a3, a2, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a1_, a5_, a2_, a1_, a3_, a4_, n_] :> 
  S2[a1, n]*S2[a5, a2, a1, a3, a4, n] + S2[a5, a2, a1, a3, SP[a1, a4], n] + 
    S2[a5, a2, a1, SP[a1, a3], a4, n] + S2[a5, a2, SP[a1, a1], a3, a4, n] + 
    S2[a5, SP[a1, a2], a1, a3, a4, n] + S2[SP[a1, a5], a2, a1, a3, a4, n] - 
    S2[a5, a1, a2, a1, a3, a4, n] - 2*S2[a5, a2, a1, a1, a3, a4, n] - 
    S2[a5, a2, a1, a3, a1, a4, n] - S2[a5, a2, a1, a3, a4, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a1_, a5_, a2_, a1_, a4_, a3_, n_] :> 
  S2[a1, n]*S2[a5, a2, a1, a4, a3, n] + S2[a5, a2, a1, a4, SP[a1, a3], n] + 
    S2[a5, a2, a1, SP[a1, a4], a3, n] + S2[a5, a2, SP[a1, a1], a4, a3, n] + 
    S2[a5, SP[a1, a2], a1, a4, a3, n] + S2[SP[a1, a5], a2, a1, a4, a3, n] - 
    S2[a5, a1, a2, a1, a4, a3, n] - 2*S2[a5, a2, a1, a1, a4, a3, n] - 
    S2[a5, a2, a1, a4, a1, a3, n] - S2[a5, a2, a1, a4, a3, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a1_, a5_, a2_, a3_, a1_, a4_, n_] :> 
  S2[a1, n]*S2[a5, a2, a3, a1, a4, n] + S2[a5, a2, a3, a1, SP[a1, a4], n] + 
    S2[a5, a2, a3, SP[a1, a1], a4, n] + S2[a5, a2, SP[a1, a3], a1, a4, n] + 
    S2[a5, SP[a1, a2], a3, a1, a4, n] + S2[SP[a1, a5], a2, a3, a1, a4, n] - 
    S2[a5, a1, a2, a3, a1, a4, n] - S2[a5, a2, a1, a3, a1, a4, n] - 
    2*S2[a5, a2, a3, a1, a1, a4, n] - S2[a5, a2, a3, a1, a4, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a1_, a5_, a2_, a3_, a4_, a1_, n_] :> 
  S2[a1, n]*S2[a5, a2, a3, a4, a1, n] + S2[a5, a2, a3, a4, SP[a1, a1], n] + 
    S2[a5, a2, a3, SP[a1, a4], a1, n] + S2[a5, a2, SP[a1, a3], a4, a1, n] + 
    S2[a5, SP[a1, a2], a3, a4, a1, n] + S2[SP[a1, a5], a2, a3, a4, a1, n] - 
    S2[a5, a1, a2, a3, a4, a1, n] - S2[a5, a2, a1, a3, a4, a1, n] - 
    S2[a5, a2, a3, a1, a4, a1, n] - 2*S2[a5, a2, a3, a4, a1, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a1_, a5_, a2_, a4_, a1_, a3_, n_] :> 
  S2[a1, n]*S2[a5, a2, a4, a1, a3, n] + S2[a5, a2, a4, a1, SP[a1, a3], n] + 
    S2[a5, a2, a4, SP[a1, a1], a3, n] + S2[a5, a2, SP[a1, a4], a1, a3, n] + 
    S2[a5, SP[a1, a2], a4, a1, a3, n] + S2[SP[a1, a5], a2, a4, a1, a3, n] - 
    S2[a5, a1, a2, a4, a1, a3, n] - S2[a5, a2, a1, a4, a1, a3, n] - 
    2*S2[a5, a2, a4, a1, a1, a3, n] - S2[a5, a2, a4, a1, a3, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a1_, a5_, a2_, a4_, a3_, a1_, n_] :> 
  S2[a1, n]*S2[a5, a2, a4, a3, a1, n] + S2[a5, a2, a4, a3, SP[a1, a1], n] + 
    S2[a5, a2, a4, SP[a1, a3], a1, n] + S2[a5, a2, SP[a1, a4], a3, a1, n] + 
    S2[a5, SP[a1, a2], a4, a3, a1, n] + S2[SP[a1, a5], a2, a4, a3, a1, n] - 
    S2[a5, a1, a2, a4, a3, a1, n] - S2[a5, a2, a1, a4, a3, a1, n] - 
    S2[a5, a2, a4, a1, a3, a1, n] - 2*S2[a5, a2, a4, a3, a1, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a1_, a5_, a3_, a1_, a2_, a4_, n_] :> 
  S2[a1, n]*S2[a5, a3, a1, a2, a4, n] + S2[a5, a3, a1, a2, SP[a1, a4], n] + 
    S2[a5, a3, a1, SP[a1, a2], a4, n] + S2[a5, a3, SP[a1, a1], a2, a4, n] + 
    S2[a5, SP[a1, a3], a1, a2, a4, n] + S2[SP[a1, a5], a3, a1, a2, a4, n] - 
    S2[a5, a1, a3, a1, a2, a4, n] - 2*S2[a5, a3, a1, a1, a2, a4, n] - 
    S2[a5, a3, a1, a2, a1, a4, n] - S2[a5, a3, a1, a2, a4, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a1_, a5_, a3_, a1_, a4_, a2_, n_] :> 
  S2[a1, n]*S2[a5, a3, a1, a4, a2, n] + S2[a5, a3, a1, a4, SP[a1, a2], n] + 
    S2[a5, a3, a1, SP[a1, a4], a2, n] + S2[a5, a3, SP[a1, a1], a4, a2, n] + 
    S2[a5, SP[a1, a3], a1, a4, a2, n] + S2[SP[a1, a5], a3, a1, a4, a2, n] - 
    S2[a5, a1, a3, a1, a4, a2, n] - 2*S2[a5, a3, a1, a1, a4, a2, n] - 
    S2[a5, a3, a1, a4, a1, a2, n] - S2[a5, a3, a1, a4, a2, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a1_, a5_, a3_, a2_, a1_, a4_, n_] :> 
  S2[a1, n]*S2[a5, a3, a2, a1, a4, n] + S2[a5, a3, a2, a1, SP[a1, a4], n] + 
    S2[a5, a3, a2, SP[a1, a1], a4, n] + S2[a5, a3, SP[a1, a2], a1, a4, n] + 
    S2[a5, SP[a1, a3], a2, a1, a4, n] + S2[SP[a1, a5], a3, a2, a1, a4, n] - 
    S2[a5, a1, a3, a2, a1, a4, n] - S2[a5, a3, a1, a2, a1, a4, n] - 
    2*S2[a5, a3, a2, a1, a1, a4, n] - S2[a5, a3, a2, a1, a4, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a1_, a5_, a3_, a2_, a4_, a1_, n_] :> 
  S2[a1, n]*S2[a5, a3, a2, a4, a1, n] + S2[a5, a3, a2, a4, SP[a1, a1], n] + 
    S2[a5, a3, a2, SP[a1, a4], a1, n] + S2[a5, a3, SP[a1, a2], a4, a1, n] + 
    S2[a5, SP[a1, a3], a2, a4, a1, n] + S2[SP[a1, a5], a3, a2, a4, a1, n] - 
    S2[a5, a1, a3, a2, a4, a1, n] - S2[a5, a3, a1, a2, a4, a1, n] - 
    S2[a5, a3, a2, a1, a4, a1, n] - 2*S2[a5, a3, a2, a4, a1, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a1_, a5_, a3_, a4_, a1_, a2_, n_] :> 
  S2[a1, n]*S2[a5, a3, a4, a1, a2, n] + S2[a5, a3, a4, a1, SP[a1, a2], n] + 
    S2[a5, a3, a4, SP[a1, a1], a2, n] + S2[a5, a3, SP[a1, a4], a1, a2, n] + 
    S2[a5, SP[a1, a3], a4, a1, a2, n] + S2[SP[a1, a5], a3, a4, a1, a2, n] - 
    S2[a5, a1, a3, a4, a1, a2, n] - S2[a5, a3, a1, a4, a1, a2, n] - 
    2*S2[a5, a3, a4, a1, a1, a2, n] - S2[a5, a3, a4, a1, a2, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a1_, a5_, a3_, a4_, a2_, a1_, n_] :> 
  S2[a1, n]*S2[a5, a3, a4, a2, a1, n] + S2[a5, a3, a4, a2, SP[a1, a1], n] + 
    S2[a5, a3, a4, SP[a1, a2], a1, n] + S2[a5, a3, SP[a1, a4], a2, a1, n] + 
    S2[a5, SP[a1, a3], a4, a2, a1, n] + S2[SP[a1, a5], a3, a4, a2, a1, n] - 
    S2[a5, a1, a3, a4, a2, a1, n] - S2[a5, a3, a1, a4, a2, a1, n] - 
    S2[a5, a3, a4, a1, a2, a1, n] - 2*S2[a5, a3, a4, a2, a1, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a1_, a5_, a4_, a1_, a2_, a3_, n_] :> 
  S2[a1, n]*S2[a5, a4, a1, a2, a3, n] + S2[a5, a4, a1, a2, SP[a1, a3], n] + 
    S2[a5, a4, a1, SP[a1, a2], a3, n] + S2[a5, a4, SP[a1, a1], a2, a3, n] + 
    S2[a5, SP[a1, a4], a1, a2, a3, n] + S2[SP[a1, a5], a4, a1, a2, a3, n] - 
    S2[a5, a1, a4, a1, a2, a3, n] - 2*S2[a5, a4, a1, a1, a2, a3, n] - 
    S2[a5, a4, a1, a2, a1, a3, n] - S2[a5, a4, a1, a2, a3, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a1_, a5_, a4_, a1_, a3_, a2_, n_] :> 
  S2[a1, n]*S2[a5, a4, a1, a3, a2, n] + S2[a5, a4, a1, a3, SP[a1, a2], n] + 
    S2[a5, a4, a1, SP[a1, a3], a2, n] + S2[a5, a4, SP[a1, a1], a3, a2, n] + 
    S2[a5, SP[a1, a4], a1, a3, a2, n] + S2[SP[a1, a5], a4, a1, a3, a2, n] - 
    S2[a5, a1, a4, a1, a3, a2, n] - 2*S2[a5, a4, a1, a1, a3, a2, n] - 
    S2[a5, a4, a1, a3, a1, a2, n] - S2[a5, a4, a1, a3, a2, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a1_, a5_, a4_, a2_, a1_, a3_, n_] :> 
  S2[a1, n]*S2[a5, a4, a2, a1, a3, n] + S2[a5, a4, a2, a1, SP[a1, a3], n] + 
    S2[a5, a4, a2, SP[a1, a1], a3, n] + S2[a5, a4, SP[a1, a2], a1, a3, n] + 
    S2[a5, SP[a1, a4], a2, a1, a3, n] + S2[SP[a1, a5], a4, a2, a1, a3, n] - 
    S2[a5, a1, a4, a2, a1, a3, n] - S2[a5, a4, a1, a2, a1, a3, n] - 
    2*S2[a5, a4, a2, a1, a1, a3, n] - S2[a5, a4, a2, a1, a3, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a1_, a5_, a4_, a2_, a3_, a1_, n_] :> 
  S2[a1, n]*S2[a5, a4, a2, a3, a1, n] + S2[a5, a4, a2, a3, SP[a1, a1], n] + 
    S2[a5, a4, a2, SP[a1, a3], a1, n] + S2[a5, a4, SP[a1, a2], a3, a1, n] + 
    S2[a5, SP[a1, a4], a2, a3, a1, n] + S2[SP[a1, a5], a4, a2, a3, a1, n] - 
    S2[a5, a1, a4, a2, a3, a1, n] - S2[a5, a4, a1, a2, a3, a1, n] - 
    S2[a5, a4, a2, a1, a3, a1, n] - 2*S2[a5, a4, a2, a3, a1, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a1_, a5_, a4_, a3_, a1_, a2_, n_] :> 
  S2[a1, n]*S2[a5, a4, a3, a1, a2, n] + S2[a5, a4, a3, a1, SP[a1, a2], n] + 
    S2[a5, a4, a3, SP[a1, a1], a2, n] + S2[a5, a4, SP[a1, a3], a1, a2, n] + 
    S2[a5, SP[a1, a4], a3, a1, a2, n] + S2[SP[a1, a5], a4, a3, a1, a2, n] - 
    S2[a5, a1, a4, a3, a1, a2, n] - S2[a5, a4, a1, a3, a1, a2, n] - 
    2*S2[a5, a4, a3, a1, a1, a2, n] - S2[a5, a4, a3, a1, a2, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a1_, a5_, a4_, a3_, a2_, a1_, n_] :> 
  S2[a1, n]*S2[a5, a4, a3, a2, a1, n] + S2[a5, a4, a3, a2, SP[a1, a1], n] + 
    S2[a5, a4, a3, SP[a1, a2], a1, n] + S2[a5, a4, SP[a1, a3], a2, a1, n] + 
    S2[a5, SP[a1, a4], a3, a2, a1, n] + S2[SP[a1, a5], a4, a3, a2, a1, n] - 
    S2[a5, a1, a4, a3, a2, a1, n] - S2[a5, a4, a1, a3, a2, a1, n] - 
    S2[a5, a4, a3, a1, a2, a1, n] - 2*S2[a5, a4, a3, a2, a1, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a2_, a1_, a1_, a3_, a4_, a5_, n_] :> 
  S2[a1, a1, a2, n]*S2[a3, a4, a5, n] + S2[SP[a1, a3], SP[a1, a4], 
     SP[a2, a5], n] - S2[a4, a5, n]*S2[a1, a1, a2, a3, n] - 
    S2[a4, a5, n]*S2[a1, a1, a3, a2, n] + S2[a1, a1, SP[a2, a4], SP[a3, a5], 
     n] + S2[a1, a1, SP[a3, a4], SP[a2, a5], n] - 
    S2[a4, a5, n]*S2[a1, a2, a1, a3, n] + S2[a1, a2, SP[a1, a4], SP[a3, a5], 
     n] - S2[a1, a2, n]*S2[a1, a3, a4, a5, n] - 
    S2[a1, a2, n]*S2[a1, a3, a5, a4, n] + S2[a1, a3, SP[a1, a5], SP[a2, a4], 
     n] - S2[a1, a2, n]*S2[a1, a5, a3, a4, n] - 
    S2[a1, a2, n]*S2[a1, a5, a4, a3, n] + S2[a1, a5, SP[a1, a3], SP[a2, a4], 
     n] + S2[a1, a5, SP[a1, a4], SP[a2, a3], n] + S2[a1, SP[a1, a3], a5, 
     SP[a2, a4], n] + S2[a1, SP[a1, a3], SP[a2, a5], a4, n] + 
    S2[a1, SP[a1, a4], a2, SP[a3, a5], n] + S2[a1, SP[a1, a4], a3, 
     SP[a2, a5], n] + S2[a1, SP[a1, a4], SP[a2, a5], a3, n] + 
    S2[a1, SP[a1, a4], SP[a3, a5], a2, n] + S2[a1, SP[a1, a5], a3, 
     SP[a2, a4], n] + S2[a1, SP[a1, a5], a4, SP[a2, a3], n] + 
    S2[a1, SP[a1, a5], SP[a2, a3], a4, n] + S2[a1, SP[a1, a5], SP[a2, a4], 
     a3, n] + S2[a1, SP[a2, a4], a1, SP[a3, a5], n] + 
    S2[a1, SP[a2, a4], SP[a1, a5], a3, n] - S2[a3, a1, SP[a1, a4], 
     SP[a2, a5], n] - S2[a3, SP[a1, a4], a1, SP[a2, a5], n] - 
    S2[a3, SP[a1, a4], SP[a1, a5], a2, n] + S2[a1, a2, n]*
     S2[a4, a5, a1, a3, n] - S2[a4, a5, SP[a1, a1], SP[a2, a3], n] - 
    S2[a4, SP[a1, a5], a1, SP[a2, a3], n] - S2[a4, SP[a1, a5], SP[a1, a2], 
     a3, n] + S2[SP[a1, a1], a3, a4, SP[a2, a5], n] + 
    S2[SP[a1, a1], a3, a5, SP[a2, a4], n] + S2[SP[a1, a1], a3, SP[a2, a4], 
     a5, n] + S2[SP[a1, a1], a3, SP[a2, a5], a4, n] + 
    S2[SP[a1, a1], a5, a3, SP[a2, a4], n] + S2[SP[a1, a1], a5, a4, 
     SP[a2, a3], n] + S2[SP[a1, a1], a5, SP[a2, a3], a4, n] + 
    S2[SP[a1, a1], a5, SP[a2, a4], a3, n] + S2[SP[a1, a1], SP[a2, a3], a4, 
     a5, n] + S2[SP[a1, a1], SP[a2, a3], a5, a4, n] + 
    S2[SP[a1, a1], SP[a2, a5], a3, a4, n] + S2[SP[a1, a1], SP[a2, a5], a4, 
     a3, n] - S2[SP[a1, a3], a1, a4, SP[a2, a5], n] - 
    S2[SP[a1, a3], a1, SP[a2, a4], a5, n] - S2[SP[a1, a3], a4, a1, 
     SP[a2, a5], n] - S2[SP[a1, a3], a4, SP[a1, a5], a2, n] - 
    S2[SP[a1, a3], SP[a1, a4], a2, a5, n] - S2[SP[a1, a3], SP[a1, a4], a5, 
     a2, n] + S2[SP[a1, a4], a1, a2, SP[a3, a5], n] + 
    S2[SP[a1, a4], a1, a3, SP[a2, a5], n] + S2[SP[a1, a4], a1, SP[a2, a5], 
     a3, n] + S2[SP[a1, a4], a1, SP[a3, a5], a2, n] + 
    S2[SP[a1, a4], a2, a1, SP[a3, a5], n] + S2[SP[a1, a4], a2, SP[a1, a5], 
     a3, n] - S2[SP[a1, a4], a5, a1, SP[a2, a3], n] - 
    S2[SP[a1, a4], a5, SP[a1, a2], a3, n] + S2[SP[a1, a4], SP[a1, a5], a2, 
     a3, n] + S2[SP[a1, a4], SP[a1, a5], a3, a2, n] + 
    S2[a5, n]*S2[a1, a1, a2, a3, a4, n] + 
    S2[a4, n]*S2[a1, a1, a2, a3, a5, n] + 
    2*S2[a1, a1, a2, a3, SP[a4, a5], n] + 
    S2[a5, n]*S2[a1, a1, a2, a4, a3, n] - 
    S2[a3, n]*S2[a1, a1, a2, a4, a5, n] - S2[a1, a1, a2, a4, SP[a3, a5], n] + 
    S2[a4, n]*S2[a1, a1, a2, a5, a3, n] + S2[a1, a1, a2, a5, SP[a3, a4], n] - 
    S2[a1, a1, a2, SP[a3, a4], a5, n] + S2[a1, a1, a2, SP[a3, a5], a4, n] + 
    2*S2[a1, a1, a2, SP[a4, a5], a3, n] + 
    S2[a5, n]*S2[a1, a1, a3, a2, a4, n] + 
    S2[a4, n]*S2[a1, a1, a3, a2, a5, n] + 
    2*S2[a1, a1, a3, a2, SP[a4, a5], n] + 
    S2[a5, n]*S2[a1, a1, a3, a4, a2, n] + 
    S2[a2, n]*S2[a1, a1, a3, a4, a5, n] + 
    S2[a4, n]*S2[a1, a1, a3, a5, a2, n] - S2[a1, a1, a3, a5, SP[a2, a4], n] - 
    S2[a1, a1, a3, SP[a2, a5], a4, n] + 2*S2[a1, a1, a3, SP[a4, a5], a2, n] + 
    S2[a5, n]*S2[a1, a1, a4, a2, a3, n] - 
    S2[a3, n]*S2[a1, a1, a4, a2, a5, n] - S2[a1, a1, a4, a2, SP[a3, a5], n] + 
    S2[a5, n]*S2[a1, a1, a4, a3, a2, n] - 
    S2[a3, n]*S2[a1, a1, a4, a5, a2, n] - S2[a1, a1, a4, a5, SP[a2, a3], n] - 
    S2[a1, a1, a4, SP[a2, a3], a5, n] - S2[a1, a1, a4, SP[a3, a5], a2, n] + 
    S2[a4, n]*S2[a1, a1, a5, a2, a3, n] + S2[a1, a1, a5, a2, SP[a3, a4], n] + 
    S2[a4, n]*S2[a1, a1, a5, a3, a2, n] - S2[a1, a1, a5, a3, SP[a2, a4], n] - 
    2*S2[a1, a1, a5, a4, SP[a2, a3], n] - 
    2*S2[a1, a1, a5, SP[a2, a3], a4, n] - S2[a1, a1, a5, SP[a2, a4], a3, n] + 
    S2[a1, a1, a5, SP[a3, a4], a2, n] - S2[a1, a1, SP[a2, a3], a4, a5, n] - 
    2*S2[a1, a1, SP[a2, a3], a5, a4, n] - S2[a1, a1, SP[a2, a5], a3, a4, n] - 
    S2[a1, a1, SP[a2, a5], a4, a3, n] - S2[a1, a1, SP[a3, a4], a2, a5, n] - 
    S2[a1, a1, SP[a3, a4], a5, a2, n] + S2[a1, a1, SP[a3, a5], a2, a4, n] + 
    S2[a1, a1, SP[a3, a5], a4, a2, n] + 2*S2[a1, a1, SP[a4, a5], a2, a3, n] + 
    2*S2[a1, a1, SP[a4, a5], a3, a2, n] + 
    S2[a4, n]*S2[a1, a2, a1, a3, a5, n] + S2[a1, a2, a1, a3, SP[a4, a5], n] - 
    S2[a1, a2, a1, a4, SP[a3, a5], n] + S2[a4, n]*S2[a1, a2, a1, a5, a3, n] + 
    S2[a1, a2, a1, a5, SP[a3, a4], n] + S2[a1, a2, a1, SP[a4, a5], a3, n] - 
    S2[a1, a2, a4, a1, SP[a3, a5], n] - S2[a1, a2, a4, SP[a1, a5], a3, n] + 
    S2[a5, n]*S2[a1, a3, a1, a2, a4, n] + S2[a1, a3, a1, a2, SP[a4, a5], n] + 
    S2[a5, n]*S2[a1, a3, a1, a4, a2, n] + S2[a1, a3, a1, a4, SP[a2, a5], n] - 
    S2[a1, a3, a1, a5, SP[a2, a4], n] + S2[a1, a3, a1, SP[a4, a5], a2, n] + 
    S2[a5, n]*S2[a1, a3, a4, a1, a2, n] + S2[a1, a3, a4, a1, SP[a2, a5], n] + 
    S2[a1, a3, a4, SP[a1, a5], a2, n] - S2[a1, a3, a5, a1, SP[a2, a4], n] - 
    S2[a1, a3, a5, SP[a1, a4], a2, n] + S2[a1, a3, SP[a4, a5], a1, a2, n] + 
    S2[a5, n]*S2[a1, a4, a1, a2, a3, n] - 
    S2[a3, n]*S2[a1, a4, a1, a2, a5, n] - S2[a1, a4, a1, a2, SP[a3, a5], n] + 
    S2[a5, n]*S2[a1, a4, a1, a3, a2, n] - 
    S2[a3, n]*S2[a1, a4, a1, a5, a2, n] - S2[a1, a4, a1, a5, SP[a2, a3], n] - 
    S2[a1, a4, a1, SP[a2, a3], a5, n] - S2[a1, a4, a1, SP[a3, a5], a2, n] - 
    S2[a1, a4, a2, a1, SP[a3, a5], n] - S2[a1, a4, a2, SP[a1, a5], a3, n] + 
    S2[a5, n]*S2[a1, a4, a3, a1, a2, n] + S2[a1, a4, a3, a1, SP[a2, a5], n] + 
    S2[a1, a4, a3, SP[a1, a5], a2, n] - S2[a3, n]*S2[a1, a4, a5, a1, a2, n] + 
    S2[a1, a4, a5, SP[a1, a2], a3, n] - S2[a1, a4, a5, SP[a1, a3], a2, n] - 
    S2[a1, a4, SP[a1, a3], a2, a5, n] - S2[a1, a4, SP[a1, a3], a5, a2, n] - 
    S2[a1, a5, a1, a3, SP[a2, a4], n] - S2[a1, a5, a1, a4, SP[a2, a3], n] - 
    S2[a1, a5, a1, SP[a2, a3], a4, n] - S2[a1, a5, a1, SP[a2, a4], a3, n] - 
    S2[a1, a5, a3, a1, SP[a2, a4], n] - S2[a1, a5, a3, SP[a1, a4], a2, n] - 
    S2[a1, a5, a4, a1, SP[a2, a3], n] - S2[a1, a5, a4, SP[a1, a3], a2, n] - 
    S2[a1, a5, SP[a1, a3], a2, a4, n] - S2[a1, a5, SP[a1, a3], a4, a2, n] - 
    S2[a1, a5, SP[a1, a4], a2, a3, n] - S2[a1, a5, SP[a1, a4], a3, a2, n] - 
    S2[a1, SP[a1, a2], a3, a5, a4, n] - S2[a1, SP[a1, a2], a5, a3, a4, n] - 
    S2[a1, SP[a1, a2], a5, a4, a3, n] - S2[a1, SP[a1, a3], a2, a4, a5, n] - 
    S2[a1, SP[a1, a3], a2, a5, a4, n] - S2[a1, SP[a1, a3], a4, a2, a5, n] - 
    S2[a1, SP[a1, a3], a4, a5, a2, n] - S2[a1, SP[a1, a3], a5, a2, a4, n] - 
    S2[a1, SP[a1, a3], a5, a4, a2, n] - S2[a1, SP[a3, a4], a1, a2, a5, n] - 
    S2[a1, SP[a3, a4], a1, a5, a2, n] - S2[a1, SP[a3, a4], a5, a1, a2, n] + 
    S2[a1, SP[a3, a5], a1, a2, a4, n] + S2[a1, SP[a3, a5], a1, a4, a2, n] + 
    S2[a1, SP[a3, a5], a4, a1, a2, n] + S2[a1, SP[a4, a5], a1, a2, a3, n] + 
    S2[a1, SP[a4, a5], a1, a3, a2, n] + S2[a1, SP[a4, a5], a3, a1, a2, n] + 
    S2[a3, a1, a1, a4, SP[a2, a5], n] + S2[a3, a1, a1, SP[a2, a4], a5, n] + 
    S2[a3, a1, a4, a1, SP[a2, a5], n] + S2[a3, a1, a4, SP[a1, a5], a2, n] + 
    S2[a3, a1, SP[a1, a4], a2, a5, n] + S2[a3, a1, SP[a1, a4], a5, a2, n] - 
    S2[a5, n]*S2[a3, a4, a1, a1, a2, n] + S2[a3, SP[a1, a4], a1, a2, a5, n] + 
    S2[a3, SP[a1, a4], a1, a5, a2, n] + S2[a3, SP[a1, a4], a5, a1, a2, n] - 
    S2[a3, SP[a4, a5], a1, a1, a2, n] - S2[a4, a1, a1, a2, SP[a3, a5], n] - 
    S2[a4, a1, a1, a3, SP[a2, a5], n] - S2[a4, a1, a1, SP[a2, a5], a3, n] - 
    S2[a4, a1, a1, SP[a3, a5], a2, n] - S2[a4, a1, a2, a1, SP[a3, a5], n] - 
    S2[a4, a1, a2, SP[a1, a5], a3, n] + S2[a4, a1, a5, a1, SP[a2, a3], n] + 
    S2[a4, a1, a5, SP[a1, a2], a3, n] - S2[a4, a1, SP[a1, a5], a2, a3, n] - 
    S2[a4, a1, SP[a1, a5], a3, a2, n] + 2*S2[a4, a5, a1, a1, SP[a2, a3], n] + 
    S2[a4, a5, a1, SP[a1, a2], a3, n] + S2[a4, a5, a1, SP[a1, a3], a2, n] + 
    S2[a4, a5, SP[a1, a1], a2, a3, n] + S2[a4, a5, SP[a1, a1], a3, a2, n] - 
    S2[a4, n]*S2[a5, a1, a1, a2, a3, n] - S2[a5, a1, a1, a2, SP[a3, a4], n] - 
    S2[a4, n]*S2[a5, a1, a1, a3, a2, n] - S2[a5, a1, a1, a3, SP[a2, a4], n] - 
    S2[a5, a1, a1, SP[a2, a4], a3, n] - S2[a5, a1, a1, SP[a3, a4], a2, n] - 
    S2[a4, n]*S2[a5, a1, a3, a1, a2, n] - S2[a5, a1, a3, a1, SP[a2, a4], n] - 
    S2[a5, a1, a3, SP[a1, a4], a2, n] - S2[a5, a1, SP[a1, a4], a2, a3, n] - 
    S2[a5, a1, SP[a1, a4], a3, a2, n] - S2[a5, a1, SP[a3, a4], a1, a2, n] + 
    S2[a3, n]*S2[a5, a4, a1, a1, a2, n] + S2[a5, a4, a1, a1, SP[a2, a3], n] + 
    S2[a5, a4, a1, SP[a1, a3], a2, n] + S2[a5, a4, SP[a1, a3], a1, a2, n] - 
    S2[a5, SP[a1, a4], a1, a2, a3, n] - S2[a5, SP[a1, a4], a1, a3, a2, n] - 
    S2[a5, SP[a1, a4], a3, a1, a2, n] + S2[a5, SP[a3, a4], a1, a1, a2, n] - 
    S2[SP[a1, a1], a2, a3, a4, a5, n] - S2[SP[a1, a1], a2, a3, a5, a4, n] - 
    S2[SP[a1, a1], a2, a5, a3, a4, n] - S2[SP[a1, a1], a2, a5, a4, a3, n] - 
    S2[SP[a1, a1], a3, a2, a4, a5, n] - S2[SP[a1, a1], a3, a2, a5, a4, n] - 
    S2[SP[a1, a1], a3, a4, a2, a5, n] - S2[SP[a1, a1], a3, a4, a5, a2, n] - 
    S2[SP[a1, a1], a3, a5, a2, a4, n] - S2[SP[a1, a1], a3, a5, a4, a2, n] - 
    S2[SP[a1, a1], a5, a2, a3, a4, n] - S2[SP[a1, a1], a5, a2, a4, a3, n] - 
    S2[SP[a1, a1], a5, a3, a2, a4, n] - S2[SP[a1, a1], a5, a3, a4, a2, n] - 
    S2[SP[a1, a1], a5, a4, a2, a3, n] - S2[SP[a1, a1], a5, a4, a3, a2, n] + 
    S2[SP[a1, a2], a1, a3, a4, a5, n] + S2[SP[a1, a5], a1, a2, a3, a4, n] + 
    S2[SP[a1, a5], a1, a2, a4, a3, n] + S2[SP[a1, a5], a1, a3, a2, a4, n] + 
    S2[SP[a1, a5], a1, a3, a4, a2, n] + S2[SP[a1, a5], a1, a4, a2, a3, n] + 
    S2[SP[a1, a5], a1, a4, a3, a2, n] + S2[SP[a1, a5], a3, a1, a2, a4, n] + 
    S2[SP[a1, a5], a3, a1, a4, a2, n] + S2[SP[a1, a5], a3, a4, a1, a2, n] + 
    S2[SP[a1, a5], a4, a1, a2, a3, n] + S2[SP[a1, a5], a4, a1, a3, a2, n] + 
    S2[SP[a1, a5], a4, a3, a1, a2, n] - S2[SP[a4, a5], a1, a1, a2, a3, n] - 
    S2[SP[a4, a5], a1, a1, a3, a2, n] - S2[SP[a4, a5], a1, a3, a1, a2, n] - 
    S2[a5, a4, a3, a1, a1, a2, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a2_, a1_, a1_, a3_, a5_, a4_, n_] :> 
  S2[a1, a1, a2, n]*S2[a3, a5, a4, n] + S2[SP[a1, a3], SP[a1, a5], 
     SP[a2, a4], n] + S2[a4, a5, n]*S2[a1, a1, a2, a3, n] + 
    S2[a4, a5, n]*S2[a1, a1, a3, a2, n] - S2[a1, a1, SP[a2, a4], SP[a3, a5], 
     n] - S2[a1, a1, SP[a3, a4], SP[a2, a5], n] + 
    S2[a4, a5, n]*S2[a1, a2, a1, a3, n] - S2[a1, a2, SP[a1, a4], SP[a3, a5], 
     n] - S2[a1, a3, SP[a1, a5], SP[a2, a4], n] + 
    S2[a1, a2, n]*S2[a1, a5, a3, a4, n] + S2[a1, a2, n]*
     S2[a1, a5, a4, a3, n] - S2[a1, a5, SP[a1, a3], SP[a2, a4], n] - 
    S2[a1, a5, SP[a1, a4], SP[a2, a3], n] - S2[a1, SP[a1, a3], a5, 
     SP[a2, a4], n] - S2[a1, SP[a1, a3], SP[a2, a5], a4, n] - 
    S2[a1, SP[a1, a4], a2, SP[a3, a5], n] - S2[a1, SP[a1, a4], a3, 
     SP[a2, a5], n] - S2[a1, SP[a1, a4], SP[a2, a5], a3, n] - 
    S2[a1, SP[a1, a4], SP[a3, a5], a2, n] - S2[a1, SP[a1, a5], a3, 
     SP[a2, a4], n] - S2[a1, SP[a1, a5], a4, SP[a2, a3], n] - 
    S2[a1, SP[a1, a5], SP[a2, a3], a4, n] - S2[a1, SP[a1, a5], SP[a2, a4], 
     a3, n] - S2[a1, SP[a2, a4], a1, SP[a3, a5], n] - 
    S2[a1, SP[a2, a4], SP[a1, a5], a3, n] - S2[a3, a1, SP[a1, a5], 
     SP[a2, a4], n] - S2[a3, SP[a1, a5], a1, SP[a2, a4], n] - 
    S2[a3, SP[a1, a5], SP[a1, a4], a2, n] - S2[a1, a2, n]*
     S2[a4, a5, a1, a3, n] + S2[a4, a5, SP[a1, a1], SP[a2, a3], n] + 
    S2[a4, SP[a1, a5], a1, SP[a2, a3], n] + S2[a4, SP[a1, a5], SP[a1, a2], 
     a3, n] - S2[SP[a1, a1], a5, a3, SP[a2, a4], n] - 
    S2[SP[a1, a1], a5, a4, SP[a2, a3], n] - S2[SP[a1, a1], a5, SP[a2, a3], 
     a4, n] - S2[SP[a1, a1], a5, SP[a2, a4], a3, n] - 
    S2[SP[a1, a1], SP[a2, a5], a3, a4, n] - S2[SP[a1, a1], SP[a2, a5], a4, 
     a3, n] - S2[SP[a1, a3], a1, a5, SP[a2, a4], n] - 
    S2[SP[a1, a3], a1, SP[a2, a5], a4, n] - S2[SP[a1, a3], a5, a1, 
     SP[a2, a4], n] - S2[SP[a1, a3], a5, SP[a1, a4], a2, n] - 
    S2[SP[a1, a3], SP[a1, a5], a2, a4, n] - S2[SP[a1, a3], SP[a1, a5], a4, 
     a2, n] - S2[SP[a1, a4], a1, a2, SP[a3, a5], n] - 
    S2[SP[a1, a4], a1, a3, SP[a2, a5], n] - S2[SP[a1, a4], a1, SP[a2, a5], 
     a3, n] - S2[SP[a1, a4], a1, SP[a3, a5], a2, n] - 
    S2[SP[a1, a4], a2, a1, SP[a3, a5], n] - S2[SP[a1, a4], a2, SP[a1, a5], 
     a3, n] + S2[SP[a1, a4], a5, a1, SP[a2, a3], n] + 
    S2[SP[a1, a4], a5, SP[a1, a2], a3, n] - S2[SP[a1, a4], SP[a1, a5], a2, 
     a3, n] - S2[SP[a1, a4], SP[a1, a5], a3, a2, n] - 
    S2[a4, n]*S2[a1, a1, a2, a3, a5, n] - S2[a1, a1, a2, a3, SP[a4, a5], n] + 
    S2[a1, a1, a2, a4, SP[a3, a5], n] - S2[a4, n]*S2[a1, a1, a2, a5, a3, n] - 
    S2[a3, n]*S2[a1, a1, a2, a5, a4, n] - 
    2*S2[a1, a1, a2, a5, SP[a3, a4], n] - S2[a1, a1, a2, SP[a3, a5], a4, n] - 
    S2[a1, a1, a2, SP[a4, a5], a3, n] - S2[a4, n]*S2[a1, a1, a3, a2, a5, n] - 
    S2[a1, a1, a3, a2, SP[a4, a5], n] + S2[a1, a1, a3, a4, SP[a2, a5], n] - 
    S2[a4, n]*S2[a1, a1, a3, a5, a2, n] + 
    S2[a2, n]*S2[a1, a1, a3, a5, a4, n] + S2[a1, a1, a3, a5, SP[a2, a4], n] + 
    2*S2[a1, a1, a3, SP[a2, a5], a4, n] - S2[a1, a1, a3, SP[a4, a5], a2, n] + 
    S2[a1, a1, a4, a2, SP[a3, a5], n] + S2[a1, a1, a4, a3, SP[a2, a5], n] + 
    S2[a1, a1, a4, SP[a2, a5], a3, n] + S2[a1, a1, a4, SP[a3, a5], a2, n] - 
    S2[a4, n]*S2[a1, a1, a5, a2, a3, n] - 
    S2[a3, n]*S2[a1, a1, a5, a2, a4, n] - 
    2*S2[a1, a1, a5, a2, SP[a3, a4], n] - 
    S2[a4, n]*S2[a1, a1, a5, a3, a2, n] + S2[a1, a1, a5, a3, SP[a2, a4], n] - 
    S2[a3, n]*S2[a1, a1, a5, a4, a2, n] + S2[a1, a1, a5, a4, SP[a2, a3], n] + 
    S2[a1, a1, a5, SP[a2, a3], a4, n] + S2[a1, a1, a5, SP[a2, a4], a3, n] - 
    2*S2[a1, a1, a5, SP[a3, a4], a2, n] + S2[a1, a1, SP[a2, a3], a5, a4, n] + 
    2*S2[a1, a1, SP[a2, a5], a3, a4, n] + 
    2*S2[a1, a1, SP[a2, a5], a4, a3, n] - S2[a1, a1, SP[a3, a5], a2, a4, n] - 
    S2[a1, a1, SP[a3, a5], a4, a2, n] - S2[a1, a1, SP[a4, a5], a2, a3, n] - 
    S2[a1, a1, SP[a4, a5], a3, a2, n] - S2[a4, n]*S2[a1, a2, a1, a3, a5, n] - 
    S2[a1, a2, a1, a3, SP[a4, a5], n] + S2[a1, a2, a1, a4, SP[a3, a5], n] - 
    S2[a4, n]*S2[a1, a2, a1, a5, a3, n] - S2[a1, a2, a1, a5, SP[a3, a4], n] - 
    S2[a1, a2, a1, SP[a4, a5], a3, n] + S2[a1, a2, a4, a1, SP[a3, a5], n] + 
    S2[a1, a2, a4, SP[a1, a5], a3, n] + S2[a1, a3, a1, a5, SP[a2, a4], n] + 
    S2[a1, a3, a1, SP[a2, a5], a4, n] + S2[a1, a3, a5, a1, SP[a2, a4], n] + 
    S2[a1, a3, a5, SP[a1, a4], a2, n] + S2[a1, a3, SP[a1, a5], a2, a4, n] + 
    S2[a1, a3, SP[a1, a5], a4, a2, n] + S2[a1, a4, a1, a2, SP[a3, a5], n] + 
    S2[a1, a4, a1, a3, SP[a2, a5], n] + S2[a1, a4, a1, SP[a2, a5], a3, n] + 
    S2[a1, a4, a1, SP[a3, a5], a2, n] + S2[a1, a4, a2, a1, SP[a3, a5], n] + 
    S2[a1, a4, a2, SP[a1, a5], a3, n] - S2[a1, a4, a5, a1, SP[a2, a3], n] - 
    S2[a1, a4, a5, SP[a1, a2], a3, n] + S2[a1, a4, SP[a1, a5], a2, a3, n] + 
    S2[a1, a4, SP[a1, a5], a3, a2, n] - S2[a3, n]*S2[a1, a5, a1, a2, a4, n] - 
    S2[a1, a5, a1, a2, SP[a3, a4], n] + S2[a1, a5, a1, a3, SP[a2, a4], n] - 
    S2[a3, n]*S2[a1, a5, a1, a4, a2, n] + S2[a1, a5, a1, SP[a2, a4], a3, n] - 
    S2[a1, a5, a1, SP[a3, a4], a2, n] + S2[a1, a5, a3, a1, SP[a2, a4], n] + 
    S2[a1, a5, a3, SP[a1, a4], a2, n] - S2[a3, n]*S2[a1, a5, a4, a1, a2, n] + 
    S2[a1, a5, SP[a1, a4], a2, a3, n] + S2[a1, a5, SP[a1, a4], a3, a2, n] - 
    S2[a1, a5, SP[a3, a4], a1, a2, n] + S2[a1, SP[a1, a2], a3, a5, a4, n] + 
    S2[a1, SP[a1, a2], a5, a3, a4, n] + S2[a1, SP[a1, a2], a5, a4, a3, n] + 
    S2[a1, SP[a1, a5], a2, a3, a4, n] + S2[a1, SP[a1, a5], a2, a4, a3, n] + 
    S2[a1, SP[a1, a5], a3, a2, a4, n] + S2[a1, SP[a1, a5], a3, a4, a2, n] + 
    S2[a1, SP[a1, a5], a4, a2, a3, n] + S2[a1, SP[a1, a5], a4, a3, a2, n] - 
    S2[a1, SP[a3, a5], a1, a2, a4, n] - S2[a1, SP[a3, a5], a1, a4, a2, n] - 
    S2[a1, SP[a3, a5], a4, a1, a2, n] + S2[a3, a1, a1, a5, SP[a2, a4], n] + 
    S2[a3, a1, a1, SP[a2, a5], a4, n] + S2[a3, a1, a5, a1, SP[a2, a4], n] + 
    S2[a3, a1, a5, SP[a1, a4], a2, n] + S2[a3, a1, SP[a1, a5], a2, a4, n] + 
    S2[a3, a1, SP[a1, a5], a4, a2, n] + S2[a3, a5, a1, a1, SP[a2, a4], n] + 
    S2[a3, a5, a1, SP[a1, a4], a2, n] + S2[a3, a5, SP[a1, a4], a1, a2, n] + 
    S2[a3, SP[a1, a5], a1, a2, a4, n] + S2[a3, SP[a1, a5], a1, a4, a2, n] + 
    S2[a3, SP[a1, a5], a4, a1, a2, n] + S2[a4, a1, a1, a2, SP[a3, a5], n] + 
    S2[a4, a1, a1, a3, SP[a2, a5], n] + S2[a4, a1, a1, SP[a2, a5], a3, n] + 
    S2[a4, a1, a1, SP[a3, a5], a2, n] + S2[a4, a1, a2, a1, SP[a3, a5], n] + 
    S2[a4, a1, a2, SP[a1, a5], a3, n] - S2[a4, a1, a5, a1, SP[a2, a3], n] - 
    S2[a4, a1, a5, SP[a1, a2], a3, n] + S2[a4, a1, SP[a1, a5], a2, a3, n] + 
    S2[a4, a1, SP[a1, a5], a3, a2, n] - 2*S2[a4, a5, a1, a1, SP[a2, a3], n] - 
    S2[a4, a5, a1, SP[a1, a2], a3, n] - S2[a4, a5, a1, SP[a1, a3], a2, n] - 
    S2[a4, a5, SP[a1, a1], a2, a3, n] - S2[a4, a5, SP[a1, a1], a3, a2, n] + 
    S2[a4, n]*S2[a5, a1, a1, a2, a3, n] - 
    S2[a3, n]*S2[a5, a1, a1, a2, a4, n] + 
    S2[a4, n]*S2[a5, a1, a1, a3, a2, n] + S2[a5, a1, a1, a3, SP[a2, a4], n] - 
    S2[a3, n]*S2[a5, a1, a1, a4, a2, n] - S2[a5, a1, a1, a4, SP[a2, a3], n] - 
    S2[a5, a1, a1, SP[a2, a3], a4, n] + S2[a5, a1, a1, SP[a2, a4], a3, n] + 
    S2[a4, n]*S2[a5, a1, a3, a1, a2, n] + S2[a5, a1, a3, a1, SP[a2, a4], n] + 
    S2[a5, a1, a3, SP[a1, a4], a2, n] - S2[a3, n]*S2[a5, a1, a4, a1, a2, n] - 
    S2[a5, a1, a4, a1, SP[a2, a3], n] - S2[a5, a1, a4, SP[a1, a3], a2, n] - 
    S2[a5, a1, SP[a1, a3], a2, a4, n] - S2[a5, a1, SP[a1, a3], a4, a2, n] + 
    S2[a5, a1, SP[a1, a4], a2, a3, n] + S2[a5, a1, SP[a1, a4], a3, a2, n] - 
    S2[a3, n]*S2[a5, a4, a1, a1, a2, n] - S2[a5, a4, a1, a1, SP[a2, a3], n] - 
    S2[a5, a4, a1, SP[a1, a3], a2, n] - S2[a5, a4, SP[a1, a3], a1, a2, n] - 
    S2[a5, SP[a1, a3], a1, a2, a4, n] - S2[a5, SP[a1, a3], a1, a4, a2, n] - 
    S2[a5, SP[a1, a3], a4, a1, a2, n] + S2[a5, SP[a1, a4], a1, a2, a3, n] + 
    S2[a5, SP[a1, a4], a1, a3, a2, n] + S2[a5, SP[a1, a4], a3, a1, a2, n] - 
    S2[a5, SP[a3, a4], a1, a1, a2, n] + S2[SP[a1, a1], a2, a5, a3, a4, n] + 
    S2[SP[a1, a1], a2, a5, a4, a3, n] + S2[SP[a1, a1], a5, a2, a3, a4, n] + 
    S2[SP[a1, a1], a5, a2, a4, a3, n] + S2[SP[a1, a1], a5, a3, a2, a4, n] + 
    S2[SP[a1, a1], a5, a3, a4, a2, n] + S2[SP[a1, a1], a5, a4, a2, a3, n] + 
    S2[SP[a1, a1], a5, a4, a3, a2, n] + S2[SP[a1, a2], a1, a3, a5, a4, n] - 
    S2[SP[a3, a5], a1, a1, a2, a4, n] - S2[SP[a3, a5], a1, a1, a4, a2, n] - 
    S2[SP[a3, a5], a1, a4, a1, a2, n] - S2[SP[a3, a5], a4, a1, a1, a2, n] + 
    S2[SP[a4, a5], a1, a1, a2, a3, n] + S2[SP[a4, a5], a1, a1, a3, a2, n] + 
    S2[SP[a4, a5], a1, a3, a1, a2, n] + S2[a5, a3, a1, a1, a2, a4, n] + 
    S2[a5, a3, a1, a1, a4, a2, n] + S2[a5, a3, a1, a4, a1, a2, n] + 
    S2[a5, a3, a4, a1, a1, a2, n] + S2[a5, a4, a3, a1, a1, a2, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a2_, a1_, a1_, a4_, a3_, a5_, n_] :> 
  -(S2[a1, a1, a2, n]*S2[a3, a4, a5, n]) - S2[a1, a1, a2, n]*
     S2[a3, a5, a4, n] - S2[SP[a1, a3], SP[a1, a4], SP[a2, a5], n] - 
    S2[SP[a1, a3], SP[a1, a5], SP[a2, a4], n] - 
    S2[a3, a5, n]*S2[a1, a1, a2, a4, n] - S2[a3, a5, n]*
     S2[a1, a1, a4, a2, n] + S2[a1, a1, SP[a2, a3], SP[a4, a5], n] + 
    S2[a1, a1, SP[a3, a4], SP[a2, a5], n] - S2[a3, a5, n]*
     S2[a1, a2, a1, a4, n] + S2[a1, a2, SP[a1, a3], SP[a4, a5], n] + 
    S2[a1, a3, SP[a1, a4], SP[a2, a5], n] + S2[a1, a3, SP[a1, a5], 
     SP[a2, a4], n] - S2[a1, a2, n]*S2[a1, a4, a3, a5, n] - 
    S2[a1, a2, n]*S2[a1, a4, a5, a3, n] + S2[a1, a4, SP[a1, a3], SP[a2, a5], 
     n] + S2[a1, a4, SP[a1, a5], SP[a2, a3], n] - 
    S2[a1, a2, n]*S2[a1, a5, a3, a4, n] - S2[a1, a2, n]*
     S2[a1, a5, a4, a3, n] + S2[a1, a5, SP[a1, a3], SP[a2, a4], n] + 
    S2[a1, a5, SP[a1, a4], SP[a2, a3], n] + S2[a1, SP[a1, a3], a2, 
     SP[a4, a5], n] + 2*S2[a1, SP[a1, a3], a4, SP[a2, a5], n] + 
    S2[a1, SP[a1, a3], a5, SP[a2, a4], n] + S2[a1, SP[a1, a3], SP[a2, a4], 
     a5, n] + 2*S2[a1, SP[a1, a3], SP[a2, a5], a4, n] + 
    S2[a1, SP[a1, a3], SP[a4, a5], a2, n] + S2[a1, SP[a1, a4], a3, 
     SP[a2, a5], n] + S2[a1, SP[a1, a4], a5, SP[a2, a3], n] + 
    S2[a1, SP[a1, a4], SP[a2, a3], a5, n] + S2[a1, SP[a1, a4], SP[a2, a5], 
     a3, n] + S2[a1, SP[a1, a5], a3, SP[a2, a4], n] + 
    S2[a1, SP[a1, a5], a4, SP[a2, a3], n] + S2[a1, SP[a1, a5], SP[a2, a3], 
     a4, n] + S2[a1, SP[a1, a5], SP[a2, a4], a3, n] + 
    S2[a1, SP[a2, a3], a1, SP[a4, a5], n] + S2[a1, SP[a2, a3], SP[a1, a5], 
     a4, n] + S2[a3, a1, SP[a1, a4], SP[a2, a5], n] + 
    S2[a3, a1, SP[a1, a5], SP[a2, a4], n] + S2[a1, a2, n]*
     S2[a3, a5, a1, a4, n] - S2[a3, a5, SP[a1, a1], SP[a2, a4], n] + 
    S2[a3, SP[a1, a4], a1, SP[a2, a5], n] + S2[a3, SP[a1, a4], SP[a1, a5], 
     a2, n] - S2[a3, SP[a1, a5], SP[a1, a2], a4, n] + 
    S2[a3, SP[a1, a5], SP[a1, a4], a2, n] + S2[SP[a1, a1], a4, a3, 
     SP[a2, a5], n] + S2[SP[a1, a1], a4, a5, SP[a2, a3], n] + 
    S2[SP[a1, a1], a4, SP[a2, a3], a5, n] + S2[SP[a1, a1], a4, SP[a2, a5], 
     a3, n] + S2[SP[a1, a1], a5, a3, SP[a2, a4], n] + 
    S2[SP[a1, a1], a5, a4, SP[a2, a3], n] + S2[SP[a1, a1], a5, SP[a2, a3], 
     a4, n] + S2[SP[a1, a1], a5, SP[a2, a4], a3, n] + 
    S2[SP[a1, a1], SP[a2, a4], a3, a5, n] + S2[SP[a1, a1], SP[a2, a4], a5, 
     a3, n] + S2[SP[a1, a1], SP[a2, a5], a3, a4, n] + 
    S2[SP[a1, a1], SP[a2, a5], a4, a3, n] + S2[SP[a1, a3], a1, a2, 
     SP[a4, a5], n] + 2*S2[SP[a1, a3], a1, a4, SP[a2, a5], n] + 
    S2[SP[a1, a3], a1, a5, SP[a2, a4], n] + S2[SP[a1, a3], a1, SP[a2, a4], 
     a5, n] + 2*S2[SP[a1, a3], a1, SP[a2, a5], a4, n] + 
    S2[SP[a1, a3], a1, SP[a4, a5], a2, n] + S2[SP[a1, a3], a2, a1, 
     SP[a4, a5], n] + S2[SP[a1, a3], a2, SP[a1, a5], a4, n] + 
    S2[SP[a1, a3], a4, a1, SP[a2, a5], n] + S2[SP[a1, a3], a4, SP[a1, a5], 
     a2, n] - S2[SP[a1, a3], a5, SP[a1, a2], a4, n] + 
    S2[SP[a1, a3], a5, SP[a1, a4], a2, n] + S2[SP[a1, a3], SP[a1, a4], a2, 
     a5, n] + S2[SP[a1, a3], SP[a1, a4], a5, a2, n] + 
    2*S2[SP[a1, a3], SP[a1, a5], a2, a4, n] + 
    2*S2[SP[a1, a3], SP[a1, a5], a4, a2, n] - S2[a1, a1, a2, a3, SP[a4, a5], 
     n] + 2*S2[a3, n]*S2[a1, a1, a2, a4, a5, n] + 
    2*S2[a1, a1, a2, a4, SP[a3, a5], n] + 
    2*S2[a3, n]*S2[a1, a1, a2, a5, a4, n] + 
    2*S2[a1, a1, a2, a5, SP[a3, a4], n] + S2[a1, a1, a2, SP[a3, a4], a5, n] + 
    2*S2[a1, a1, a2, SP[a3, a5], a4, n] - S2[a1, a1, a3, a2, SP[a4, a5], n] - 
    2*S2[a1, a1, a3, a4, SP[a2, a5], n] - S2[a1, a1, a3, a5, SP[a2, a4], n] - 
    S2[a1, a1, a3, SP[a2, a4], a5, n] - 2*S2[a1, a1, a3, SP[a2, a5], a4, n] - 
    S2[a1, a1, a3, SP[a4, a5], a2, n] + 2*S2[a3, n]*
     S2[a1, a1, a4, a2, a5, n] + 2*S2[a1, a1, a4, a2, SP[a3, a5], n] + 
    S2[a2, n]*S2[a1, a1, a4, a3, a5, n] - 
    2*S2[a1, a1, a4, a3, SP[a2, a5], n] + 
    2*S2[a3, n]*S2[a1, a1, a4, a5, a2, n] - 
    2*S2[a1, a1, a4, SP[a2, a5], a3, n] + 
    2*S2[a1, a1, a4, SP[a3, a5], a2, n] + 
    2*S2[a3, n]*S2[a1, a1, a5, a2, a4, n] + 
    2*S2[a1, a1, a5, a2, SP[a3, a4], n] - 
    2*S2[a1, a1, a5, a3, SP[a2, a4], n] + 
    2*S2[a3, n]*S2[a1, a1, a5, a4, a2, n] - 
    2*S2[a1, a1, a5, SP[a2, a4], a3, n] + 
    2*S2[a1, a1, a5, SP[a3, a4], a2, n] - S2[a1, a1, SP[a2, a4], a3, a5, n] - 
    2*S2[a1, a1, SP[a2, a4], a5, a3, n] - 
    2*S2[a1, a1, SP[a2, a5], a3, a4, n] - 
    2*S2[a1, a1, SP[a2, a5], a4, a3, n] + S2[a1, a1, SP[a3, a4], a2, a5, n] + 
    S2[a1, a1, SP[a3, a4], a5, a2, n] + 2*S2[a1, a1, SP[a3, a5], a2, a4, n] + 
    2*S2[a1, a1, SP[a3, a5], a4, a2, n] - S2[a1, a2, a1, a3, SP[a4, a5], n] + 
    S2[a3, n]*S2[a1, a2, a1, a4, a5, n] + S2[a1, a2, a1, a4, SP[a3, a5], n] + 
    S2[a3, n]*S2[a1, a2, a1, a5, a4, n] + S2[a1, a2, a1, a5, SP[a3, a4], n] + 
    S2[a1, a2, a1, SP[a3, a5], a4, n] - S2[a1, a2, a3, a1, SP[a4, a5], n] - 
    S2[a1, a2, a3, SP[a1, a5], a4, n] - S2[a1, a3, a1, a2, SP[a4, a5], n] - 
    2*S2[a1, a3, a1, a4, SP[a2, a5], n] - S2[a1, a3, a1, a5, SP[a2, a4], n] - 
    S2[a1, a3, a1, SP[a2, a4], a5, n] - 2*S2[a1, a3, a1, SP[a2, a5], a4, n] - 
    S2[a1, a3, a1, SP[a4, a5], a2, n] - S2[a1, a3, a2, a1, SP[a4, a5], n] - 
    S2[a1, a3, a2, SP[a1, a5], a4, n] - S2[a1, a3, a4, a1, SP[a2, a5], n] - 
    S2[a1, a3, a4, SP[a1, a5], a2, n] + S2[a1, a3, a5, SP[a1, a2], a4, n] - 
    S2[a1, a3, a5, SP[a1, a4], a2, n] - S2[a1, a3, SP[a1, a4], a2, a5, n] - 
    S2[a1, a3, SP[a1, a4], a5, a2, n] - 2*S2[a1, a3, SP[a1, a5], a2, a4, n] - 
    2*S2[a1, a3, SP[a1, a5], a4, a2, n] + 
    S2[a3, n]*S2[a1, a4, a1, a2, a5, n] + S2[a1, a4, a1, a2, SP[a3, a5], n] - 
    S2[a1, a4, a1, a3, SP[a2, a5], n] + S2[a3, n]*S2[a1, a4, a1, a5, a2, n] - 
    S2[a1, a4, a1, SP[a2, a5], a3, n] + S2[a1, a4, a1, SP[a3, a5], a2, n] - 
    S2[a1, a4, a3, a1, SP[a2, a5], n] - S2[a1, a4, a3, SP[a1, a5], a2, n] + 
    S2[a3, n]*S2[a1, a4, a5, a1, a2, n] - S2[a1, a4, SP[a1, a5], a2, a3, n] - 
    S2[a1, a4, SP[a1, a5], a3, a2, n] + S2[a1, a4, SP[a3, a5], a1, a2, n] + 
    S2[a3, n]*S2[a1, a5, a1, a2, a4, n] + S2[a1, a5, a1, a2, SP[a3, a4], n] - 
    S2[a1, a5, a1, a3, SP[a2, a4], n] + S2[a3, n]*S2[a1, a5, a1, a4, a2, n] - 
    S2[a1, a5, a1, SP[a2, a4], a3, n] + S2[a1, a5, a1, SP[a3, a4], a2, n] - 
    S2[a1, a5, a3, a1, SP[a2, a4], n] - S2[a1, a5, a3, SP[a1, a4], a2, n] + 
    S2[a3, n]*S2[a1, a5, a4, a1, a2, n] - S2[a1, a5, SP[a1, a4], a2, a3, n] - 
    S2[a1, a5, SP[a1, a4], a3, a2, n] + S2[a1, a5, SP[a3, a4], a1, a2, n] - 
    S2[a1, SP[a1, a2], a4, a5, a3, n] - S2[a1, SP[a1, a2], a5, a3, a4, n] - 
    S2[a1, SP[a1, a2], a5, a4, a3, n] - S2[a1, SP[a1, a4], a2, a3, a5, n] - 
    S2[a1, SP[a1, a4], a2, a5, a3, n] - S2[a1, SP[a1, a4], a3, a2, a5, n] - 
    S2[a1, SP[a1, a4], a3, a5, a2, n] - S2[a1, SP[a1, a4], a5, a2, a3, n] - 
    S2[a1, SP[a1, a4], a5, a3, a2, n] - S2[a1, SP[a1, a5], a2, a3, a4, n] - 
    S2[a1, SP[a1, a5], a2, a4, a3, n] - S2[a1, SP[a1, a5], a3, a2, a4, n] - 
    S2[a1, SP[a1, a5], a3, a4, a2, n] - S2[a1, SP[a1, a5], a4, a2, a3, n] - 
    S2[a1, SP[a1, a5], a4, a3, a2, n] + S2[a1, SP[a3, a4], a1, a2, a5, n] + 
    S2[a1, SP[a3, a4], a1, a5, a2, n] + S2[a1, SP[a3, a4], a5, a1, a2, n] + 
    S2[a1, SP[a3, a5], a1, a2, a4, n] + S2[a1, SP[a3, a5], a1, a4, a2, n] + 
    S2[a1, SP[a3, a5], a4, a1, a2, n] - S2[a3, a1, a1, a2, SP[a4, a5], n] - 
    2*S2[a3, a1, a1, a4, SP[a2, a5], n] - S2[a3, a1, a1, a5, SP[a2, a4], n] - 
    S2[a3, a1, a1, SP[a2, a4], a5, n] - 2*S2[a3, a1, a1, SP[a2, a5], a4, n] - 
    S2[a3, a1, a1, SP[a4, a5], a2, n] - S2[a3, a1, a2, a1, SP[a4, a5], n] - 
    S2[a3, a1, a2, SP[a1, a5], a4, n] - S2[a3, a1, a4, a1, SP[a2, a5], n] - 
    S2[a3, a1, a4, SP[a1, a5], a2, n] + S2[a3, a1, a5, SP[a1, a2], a4, n] - 
    S2[a3, a1, a5, SP[a1, a4], a2, n] - S2[a3, a1, SP[a1, a4], a2, a5, n] - 
    S2[a3, a1, SP[a1, a4], a5, a2, n] - 2*S2[a3, a1, SP[a1, a5], a2, a4, n] - 
    2*S2[a3, a1, SP[a1, a5], a4, a2, n] + 
    S2[a5, n]*S2[a3, a4, a1, a1, a2, n] + S2[a3, a5, a1, a1, SP[a2, a4], n] + 
    S2[a3, a5, a1, SP[a1, a2], a4, n] + S2[a3, a5, SP[a1, a1], a2, a4, n] + 
    S2[a3, a5, SP[a1, a1], a4, a2, n] - S2[a3, a5, SP[a1, a4], a1, a2, n] - 
    S2[a3, SP[a1, a4], a1, a2, a5, n] - S2[a3, SP[a1, a4], a1, a5, a2, n] - 
    S2[a3, SP[a1, a4], a5, a1, a2, n] - S2[a3, SP[a1, a5], a1, a2, a4, n] - 
    S2[a3, SP[a1, a5], a1, a4, a2, n] - S2[a3, SP[a1, a5], a4, a1, a2, n] + 
    S2[a3, SP[a4, a5], a1, a1, a2, n] - S2[SP[a1, a1], a2, a4, a3, a5, n] - 
    S2[SP[a1, a1], a2, a4, a5, a3, n] - S2[SP[a1, a1], a2, a5, a3, a4, n] - 
    S2[SP[a1, a1], a2, a5, a4, a3, n] - S2[SP[a1, a1], a4, a2, a3, a5, n] - 
    S2[SP[a1, a1], a4, a2, a5, a3, n] - S2[SP[a1, a1], a4, a3, a2, a5, n] - 
    S2[SP[a1, a1], a4, a3, a5, a2, n] - S2[SP[a1, a1], a4, a5, a2, a3, n] - 
    S2[SP[a1, a1], a4, a5, a3, a2, n] - S2[SP[a1, a1], a5, a2, a3, a4, n] - 
    S2[SP[a1, a1], a5, a2, a4, a3, n] - S2[SP[a1, a1], a5, a3, a2, a4, n] - 
    S2[SP[a1, a1], a5, a3, a4, a2, n] - S2[SP[a1, a1], a5, a4, a2, a3, n] - 
    S2[SP[a1, a1], a5, a4, a3, a2, n] + S2[SP[a1, a2], a1, a4, a3, a5, n] + 
    S2[SP[a3, a5], a4, a1, a1, a2, n] - S2[a5, a3, a4, a1, a1, a2, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a2_, a1_, a1_, a4_, a5_, a3_, n_] :> 
  S2[a1, a1, a2, n]*S2[a3, a5, a4, n] + S2[SP[a1, a3], SP[a1, a5], 
     SP[a2, a4], n] + S2[a3, a5, n]*S2[a1, a1, a2, a4, n] + 
    S2[a3, a5, n]*S2[a1, a1, a4, a2, n] - S2[a1, a1, SP[a2, a3], SP[a4, a5], 
     n] - S2[a1, a1, SP[a3, a4], SP[a2, a5], n] + 
    S2[a3, a5, n]*S2[a1, a2, a1, a4, n] - S2[a1, a2, SP[a1, a3], SP[a4, a5], 
     n] - S2[a1, a3, SP[a1, a5], SP[a2, a4], n] + 
    S2[a1, a2, n]*S2[a1, a5, a3, a4, n] + S2[a1, a2, n]*
     S2[a1, a5, a4, a3, n] - S2[a1, a5, SP[a1, a3], SP[a2, a4], n] - 
    S2[a1, a5, SP[a1, a4], SP[a2, a3], n] - S2[a1, SP[a1, a3], a2, 
     SP[a4, a5], n] - S2[a1, SP[a1, a3], a4, SP[a2, a5], n] - 
    S2[a1, SP[a1, a3], a5, SP[a2, a4], n] - 
    2*S2[a1, SP[a1, a3], SP[a2, a5], a4, n] - S2[a1, SP[a1, a3], SP[a4, a5], 
     a2, n] - S2[a1, SP[a1, a5], a3, SP[a2, a4], n] - 
    S2[a1, SP[a1, a5], a4, SP[a2, a3], n] - S2[a1, SP[a1, a5], SP[a2, a3], 
     a4, n] - S2[a1, SP[a1, a5], SP[a2, a4], a3, n] - 
    S2[a1, SP[a2, a3], a1, SP[a4, a5], n] - S2[a1, SP[a2, a3], SP[a1, a5], 
     a4, n] - S2[a3, a1, SP[a1, a5], SP[a2, a4], n] - 
    S2[a1, a2, n]*S2[a3, a5, a1, a4, n] + S2[a3, a5, SP[a1, a1], SP[a2, a4], 
     n] + S2[a3, SP[a1, a5], SP[a1, a2], a4, n] - 
    S2[a3, SP[a1, a5], SP[a1, a4], a2, n] - S2[SP[a1, a1], a5, a3, 
     SP[a2, a4], n] - S2[SP[a1, a1], a5, a4, SP[a2, a3], n] - 
    S2[SP[a1, a1], a5, SP[a2, a3], a4, n] - S2[SP[a1, a1], a5, SP[a2, a4], 
     a3, n] - S2[SP[a1, a1], SP[a2, a5], a3, a4, n] - 
    S2[SP[a1, a1], SP[a2, a5], a4, a3, n] - S2[SP[a1, a3], a1, a2, 
     SP[a4, a5], n] - S2[SP[a1, a3], a1, a4, SP[a2, a5], n] - 
    S2[SP[a1, a3], a1, a5, SP[a2, a4], n] - 
    2*S2[SP[a1, a3], a1, SP[a2, a5], a4, n] - S2[SP[a1, a3], a1, SP[a4, a5], 
     a2, n] - S2[SP[a1, a3], a2, a1, SP[a4, a5], n] - 
    S2[SP[a1, a3], a2, SP[a1, a5], a4, n] + S2[SP[a1, a3], a5, SP[a1, a2], 
     a4, n] - S2[SP[a1, a3], a5, SP[a1, a4], a2, n] - 
    2*S2[SP[a1, a3], SP[a1, a5], a2, a4, n] - 
    2*S2[SP[a1, a3], SP[a1, a5], a4, a2, n] + S2[a1, a1, a2, a3, SP[a4, a5], 
     n] - S2[a3, n]*S2[a1, a1, a2, a4, a5, n] - S2[a1, a1, a2, a4, 
     SP[a3, a5], n] - 2*S2[a3, n]*S2[a1, a1, a2, a5, a4, n] - 
    2*S2[a1, a1, a2, a5, SP[a3, a4], n] - 
    2*S2[a1, a1, a2, SP[a3, a5], a4, n] + S2[a1, a1, a3, a2, SP[a4, a5], n] + 
    S2[a1, a1, a3, a4, SP[a2, a5], n] + S2[a1, a1, a3, a5, SP[a2, a4], n] + 
    2*S2[a1, a1, a3, SP[a2, a5], a4, n] + S2[a1, a1, a3, SP[a4, a5], a2, n] - 
    S2[a3, n]*S2[a1, a1, a4, a2, a5, n] - S2[a1, a1, a4, a2, SP[a3, a5], n] + 
    S2[a1, a1, a4, a3, SP[a2, a5], n] - S2[a3, n]*S2[a1, a1, a4, a5, a2, n] + 
    S2[a2, n]*S2[a1, a1, a4, a5, a3, n] + S2[a1, a1, a4, SP[a2, a5], a3, n] - 
    S2[a1, a1, a4, SP[a3, a5], a2, n] - 2*S2[a3, n]*
     S2[a1, a1, a5, a2, a4, n] - 2*S2[a1, a1, a5, a2, SP[a3, a4], n] + 
    2*S2[a1, a1, a5, a3, SP[a2, a4], n] - 
    2*S2[a3, n]*S2[a1, a1, a5, a4, a2, n] + 
    2*S2[a1, a1, a5, SP[a2, a4], a3, n] - 
    2*S2[a1, a1, a5, SP[a3, a4], a2, n] + S2[a1, a1, SP[a2, a4], a5, a3, n] + 
    2*S2[a1, a1, SP[a2, a5], a3, a4, n] + 
    2*S2[a1, a1, SP[a2, a5], a4, a3, n] - 
    2*S2[a1, a1, SP[a3, a5], a2, a4, n] - 
    2*S2[a1, a1, SP[a3, a5], a4, a2, n] + S2[a1, a2, a1, a3, SP[a4, a5], n] - 
    S2[a3, n]*S2[a1, a2, a1, a4, a5, n] - S2[a1, a2, a1, a4, SP[a3, a5], n] - 
    S2[a3, n]*S2[a1, a2, a1, a5, a4, n] - S2[a1, a2, a1, a5, SP[a3, a4], n] - 
    S2[a1, a2, a1, SP[a3, a5], a4, n] + S2[a1, a2, a3, a1, SP[a4, a5], n] + 
    S2[a1, a2, a3, SP[a1, a5], a4, n] + S2[a1, a3, a1, a2, SP[a4, a5], n] + 
    S2[a1, a3, a1, a4, SP[a2, a5], n] + S2[a1, a3, a1, a5, SP[a2, a4], n] + 
    2*S2[a1, a3, a1, SP[a2, a5], a4, n] + S2[a1, a3, a1, SP[a4, a5], a2, n] + 
    S2[a1, a3, a2, a1, SP[a4, a5], n] + S2[a1, a3, a2, SP[a1, a5], a4, n] - 
    S2[a1, a3, a5, SP[a1, a2], a4, n] + S2[a1, a3, a5, SP[a1, a4], a2, n] + 
    2*S2[a1, a3, SP[a1, a5], a2, a4, n] + 
    2*S2[a1, a3, SP[a1, a5], a4, a2, n] - 
    S2[a3, n]*S2[a1, a5, a1, a2, a4, n] - S2[a1, a5, a1, a2, SP[a3, a4], n] + 
    S2[a1, a5, a1, a3, SP[a2, a4], n] - S2[a3, n]*S2[a1, a5, a1, a4, a2, n] + 
    S2[a1, a5, a1, SP[a2, a4], a3, n] - S2[a1, a5, a1, SP[a3, a4], a2, n] + 
    S2[a1, a5, a3, a1, SP[a2, a4], n] + S2[a1, a5, a3, SP[a1, a4], a2, n] - 
    S2[a3, n]*S2[a1, a5, a4, a1, a2, n] + S2[a1, a5, SP[a1, a4], a2, a3, n] + 
    S2[a1, a5, SP[a1, a4], a3, a2, n] - S2[a1, a5, SP[a3, a4], a1, a2, n] + 
    S2[a1, SP[a1, a2], a4, a5, a3, n] + S2[a1, SP[a1, a2], a5, a3, a4, n] + 
    S2[a1, SP[a1, a2], a5, a4, a3, n] + S2[a1, SP[a1, a5], a2, a3, a4, n] + 
    S2[a1, SP[a1, a5], a2, a4, a3, n] + S2[a1, SP[a1, a5], a3, a2, a4, n] + 
    S2[a1, SP[a1, a5], a3, a4, a2, n] + S2[a1, SP[a1, a5], a4, a2, a3, n] + 
    S2[a1, SP[a1, a5], a4, a3, a2, n] - S2[a1, SP[a3, a5], a1, a2, a4, n] - 
    S2[a1, SP[a3, a5], a1, a4, a2, n] - S2[a1, SP[a3, a5], a4, a1, a2, n] + 
    S2[a3, a1, a1, a2, SP[a4, a5], n] + S2[a3, a1, a1, a4, SP[a2, a5], n] + 
    S2[a3, a1, a1, a5, SP[a2, a4], n] + 2*S2[a3, a1, a1, SP[a2, a5], a4, n] + 
    S2[a3, a1, a1, SP[a4, a5], a2, n] + S2[a3, a1, a2, a1, SP[a4, a5], n] + 
    S2[a3, a1, a2, SP[a1, a5], a4, n] - S2[a3, a1, a5, SP[a1, a2], a4, n] + 
    S2[a3, a1, a5, SP[a1, a4], a2, n] + 2*S2[a3, a1, SP[a1, a5], a2, a4, n] + 
    2*S2[a3, a1, SP[a1, a5], a4, a2, n] - S2[a3, a5, a1, a1, SP[a2, a4], n] - 
    S2[a3, a5, a1, SP[a1, a2], a4, n] - S2[a3, a5, SP[a1, a1], a2, a4, n] - 
    S2[a3, a5, SP[a1, a1], a4, a2, n] + S2[a3, a5, SP[a1, a4], a1, a2, n] + 
    S2[a3, SP[a1, a5], a1, a2, a4, n] + S2[a3, SP[a1, a5], a1, a4, a2, n] + 
    S2[a3, SP[a1, a5], a4, a1, a2, n] - S2[a3, n]*S2[a5, a4, a1, a1, a2, n] - 
    S2[a5, a4, a1, a1, SP[a2, a3], n] - S2[a5, a4, a1, SP[a1, a3], a2, n] - 
    S2[a5, a4, SP[a1, a3], a1, a2, n] - S2[a5, SP[a3, a4], a1, a1, a2, n] + 
    S2[SP[a1, a1], a2, a5, a3, a4, n] + S2[SP[a1, a1], a2, a5, a4, a3, n] + 
    S2[SP[a1, a1], a5, a2, a3, a4, n] + S2[SP[a1, a1], a5, a2, a4, a3, n] + 
    S2[SP[a1, a1], a5, a3, a2, a4, n] + S2[SP[a1, a1], a5, a3, a4, a2, n] + 
    S2[SP[a1, a1], a5, a4, a2, a3, n] + S2[SP[a1, a1], a5, a4, a3, a2, n] + 
    S2[SP[a1, a2], a1, a4, a5, a3, n] - S2[SP[a3, a5], a4, a1, a1, a2, n] + 
    S2[a5, a3, a4, a1, a1, a2, n] + S2[a5, a4, a1, a1, a2, a3, n] + 
    S2[a5, a4, a1, a1, a3, a2, n] + S2[a5, a4, a1, a3, a1, a2, n] + 
    S2[a5, a4, a3, a1, a1, a2, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a2_, a1_, a1_, a5_, a3_, a4_, n_] :> 
  -(S2[a1, a1, a2, n]*S2[a3, a4, a5, n]) - S2[a1, a1, a2, n]*
     S2[a3, a5, a4, n] - S2[SP[a1, a3], SP[a1, a4], SP[a2, a5], n] - 
    S2[SP[a1, a3], SP[a1, a5], SP[a2, a4], n] + S2[a1, a3, SP[a1, a4], 
     SP[a2, a5], n] + S2[a1, a3, SP[a1, a5], SP[a2, a4], n] - 
    S2[a1, a2, n]*S2[a1, a5, a3, a4, n] + S2[a1, a5, SP[a1, a3], SP[a2, a4], 
     n] + S2[a1, SP[a1, a3], a4, SP[a2, a5], n] + S2[a1, SP[a1, a3], a5, 
     SP[a2, a4], n] + S2[a1, SP[a1, a3], SP[a2, a4], a5, n] + 
    S2[a1, SP[a1, a3], SP[a2, a5], a4, n] + S2[a1, SP[a1, a5], a3, 
     SP[a2, a4], n] + S2[a1, SP[a1, a5], SP[a2, a3], a4, n] + 
    S2[a3, a1, SP[a1, a4], SP[a2, a5], n] + S2[a3, a1, SP[a1, a5], 
     SP[a2, a4], n] + S2[a3, SP[a1, a4], a1, SP[a2, a5], n] + 
    S2[a3, SP[a1, a4], SP[a1, a5], a2, n] + S2[a3, SP[a1, a5], a1, 
     SP[a2, a4], n] + S2[a3, SP[a1, a5], SP[a1, a4], a2, n] + 
    S2[SP[a1, a1], a5, a3, SP[a2, a4], n] + S2[SP[a1, a1], a5, SP[a2, a3], 
     a4, n] + S2[SP[a1, a1], SP[a2, a5], a3, a4, n] + 
    S2[SP[a1, a3], a1, a4, SP[a2, a5], n] + S2[SP[a1, a3], a1, a5, 
     SP[a2, a4], n] + S2[SP[a1, a3], a1, SP[a2, a4], a5, n] + 
    S2[SP[a1, a3], a1, SP[a2, a5], a4, n] + S2[SP[a1, a3], a4, a1, 
     SP[a2, a5], n] + S2[SP[a1, a3], a4, SP[a1, a5], a2, n] + 
    S2[SP[a1, a3], a5, a1, SP[a2, a4], n] + S2[SP[a1, a3], a5, SP[a1, a4], 
     a2, n] + S2[SP[a1, a3], SP[a1, a4], a2, a5, n] + 
    S2[SP[a1, a3], SP[a1, a4], a5, a2, n] + S2[SP[a1, a3], SP[a1, a5], a2, 
     a4, n] + S2[SP[a1, a3], SP[a1, a5], a4, a2, n] - 
    S2[a5, n]*S2[a1, a1, a2, a4, a3, n] + 
    S2[a3, n]*S2[a1, a1, a2, a4, a5, n] + 
    S2[a3, n]*S2[a1, a1, a2, a5, a4, n] + S2[a1, a1, a2, a5, SP[a3, a4], n] + 
    S2[a1, a1, a2, SP[a3, a4], a5, n] + S2[a1, a1, a2, SP[a3, a5], a4, n] - 
    S2[a1, a1, a2, SP[a4, a5], a3, n] - S2[a1, a1, a3, a4, SP[a2, a5], n] - 
    S2[a1, a1, a3, a5, SP[a2, a4], n] - S2[a1, a1, a3, SP[a2, a4], a5, n] - 
    S2[a1, a1, a3, SP[a2, a5], a4, n] - S2[a5, n]*S2[a1, a1, a4, a2, a3, n] + 
    S2[a3, n]*S2[a1, a1, a4, a2, a5, n] - 
    S2[a5, n]*S2[a1, a1, a4, a3, a2, n] - S2[a1, a1, a4, a3, SP[a2, a5], n] + 
    S2[a3, n]*S2[a1, a1, a4, a5, a2, n] + S2[a1, a1, a4, a5, SP[a2, a3], n] + 
    S2[a1, a1, a4, SP[a2, a3], a5, n] - S2[a1, a1, a4, SP[a2, a5], a3, n] + 
    S2[a3, n]*S2[a1, a1, a5, a2, a4, n] + S2[a1, a1, a5, a2, SP[a3, a4], n] + 
    S2[a2, n]*S2[a1, a1, a5, a3, a4, n] - S2[a1, a1, a5, a3, SP[a2, a4], n] + 
    S2[a3, n]*S2[a1, a1, a5, a4, a2, n] + S2[a1, a1, a5, a4, SP[a2, a3], n] + 
    S2[a1, a1, a5, SP[a3, a4], a2, n] - S2[a1, a1, SP[a2, a5], a3, a4, n] - 
    S2[a1, a1, SP[a2, a5], a4, a3, n] + S2[a1, a1, SP[a3, a4], a2, a5, n] + 
    S2[a1, a1, SP[a3, a4], a5, a2, n] + S2[a1, a1, SP[a3, a5], a2, a4, n] + 
    S2[a1, a1, SP[a3, a5], a4, a2, n] - S2[a1, a1, SP[a4, a5], a2, a3, n] - 
    S2[a1, a1, SP[a4, a5], a3, a2, n] - S2[a1, a3, a1, a4, SP[a2, a5], n] - 
    S2[a1, a3, a1, a5, SP[a2, a4], n] - S2[a1, a3, a1, SP[a2, a4], a5, n] - 
    S2[a1, a3, a1, SP[a2, a5], a4, n] - S2[a1, a3, a4, a1, SP[a2, a5], n] - 
    S2[a1, a3, a4, SP[a1, a5], a2, n] - S2[a1, a3, a5, a1, SP[a2, a4], n] - 
    S2[a1, a3, a5, SP[a1, a4], a2, n] - S2[a1, a3, SP[a1, a4], a2, a5, n] - 
    S2[a1, a3, SP[a1, a4], a5, a2, n] - S2[a1, a3, SP[a1, a5], a2, a4, n] - 
    S2[a1, a3, SP[a1, a5], a4, a2, n] - S2[a5, n]*S2[a1, a4, a1, a2, a3, n] + 
    S2[a3, n]*S2[a1, a4, a1, a2, a5, n] - 
    S2[a5, n]*S2[a1, a4, a1, a3, a2, n] - S2[a1, a4, a1, a3, SP[a2, a5], n] + 
    S2[a3, n]*S2[a1, a4, a1, a5, a2, n] + S2[a1, a4, a1, a5, SP[a2, a3], n] + 
    S2[a1, a4, a1, SP[a2, a3], a5, n] - S2[a1, a4, a1, SP[a2, a5], a3, n] - 
    S2[a5, n]*S2[a1, a4, a3, a1, a2, n] - S2[a1, a4, a3, a1, SP[a2, a5], n] - 
    S2[a1, a4, a3, SP[a1, a5], a2, n] + S2[a3, n]*S2[a1, a4, a5, a1, a2, n] + 
    S2[a1, a4, a5, a1, SP[a2, a3], n] + S2[a1, a4, a5, SP[a1, a3], a2, n] + 
    S2[a1, a4, SP[a1, a3], a2, a5, n] + S2[a1, a4, SP[a1, a3], a5, a2, n] - 
    S2[a1, a4, SP[a1, a5], a2, a3, n] - S2[a1, a4, SP[a1, a5], a3, a2, n] + 
    S2[a3, n]*S2[a1, a5, a1, a2, a4, n] + S2[a1, a5, a1, a2, SP[a3, a4], n] - 
    S2[a1, a5, a1, a3, SP[a2, a4], n] + S2[a3, n]*S2[a1, a5, a1, a4, a2, n] + 
    S2[a1, a5, a1, a4, SP[a2, a3], n] + S2[a1, a5, a1, SP[a3, a4], a2, n] - 
    S2[a1, a5, a3, a1, SP[a2, a4], n] - S2[a1, a5, a3, SP[a1, a4], a2, n] + 
    S2[a3, n]*S2[a1, a5, a4, a1, a2, n] + S2[a1, a5, a4, a1, SP[a2, a3], n] + 
    S2[a1, a5, a4, SP[a1, a3], a2, n] + S2[a1, a5, SP[a3, a4], a1, a2, n] - 
    S2[a1, SP[a1, a5], a2, a3, a4, n] - S2[a1, SP[a1, a5], a2, a4, a3, n] - 
    S2[a1, SP[a1, a5], a3, a2, a4, n] - S2[a1, SP[a1, a5], a3, a4, a2, n] - 
    S2[a1, SP[a1, a5], a4, a2, a3, n] - S2[a1, SP[a1, a5], a4, a3, a2, n] + 
    S2[a1, SP[a3, a4], a1, a2, a5, n] + S2[a1, SP[a3, a4], a1, a5, a2, n] + 
    S2[a1, SP[a3, a4], a5, a1, a2, n] + S2[a1, SP[a3, a5], a1, a2, a4, n] + 
    S2[a1, SP[a3, a5], a1, a4, a2, n] + S2[a1, SP[a3, a5], a4, a1, a2, n] - 
    S2[a1, SP[a4, a5], a1, a2, a3, n] - S2[a1, SP[a4, a5], a1, a3, a2, n] - 
    S2[a1, SP[a4, a5], a3, a1, a2, n] - S2[a3, a1, a1, a4, SP[a2, a5], n] - 
    S2[a3, a1, a1, a5, SP[a2, a4], n] - S2[a3, a1, a1, SP[a2, a4], a5, n] - 
    S2[a3, a1, a1, SP[a2, a5], a4, n] - S2[a3, a1, a4, a1, SP[a2, a5], n] - 
    S2[a3, a1, a4, SP[a1, a5], a2, n] - S2[a3, a1, a5, a1, SP[a2, a4], n] - 
    S2[a3, a1, a5, SP[a1, a4], a2, n] - S2[a3, a1, SP[a1, a4], a2, a5, n] - 
    S2[a3, a1, SP[a1, a4], a5, a2, n] - S2[a3, a1, SP[a1, a5], a2, a4, n] - 
    S2[a3, a1, SP[a1, a5], a4, a2, n] + S2[a5, n]*S2[a3, a4, a1, a1, a2, n] - 
    S2[a3, a5, a1, a1, SP[a2, a4], n] - S2[a3, a5, a1, SP[a1, a4], a2, n] - 
    S2[a3, a5, SP[a1, a4], a1, a2, n] - S2[a3, SP[a1, a4], a1, a2, a5, n] - 
    S2[a3, SP[a1, a4], a1, a5, a2, n] - S2[a3, SP[a1, a4], a5, a1, a2, n] - 
    S2[a3, SP[a1, a5], a1, a2, a4, n] - S2[a3, SP[a1, a5], a1, a4, a2, n] - 
    S2[a3, SP[a1, a5], a4, a1, a2, n] + S2[a3, SP[a4, a5], a1, a1, a2, n] + 
    S2[a3, n]*S2[a5, a1, a1, a2, a4, n] + S2[a5, a1, a1, a2, SP[a3, a4], n] + 
    S2[a3, n]*S2[a5, a1, a1, a4, a2, n] + S2[a5, a1, a1, a4, SP[a2, a3], n] + 
    S2[a5, a1, a1, SP[a2, a3], a4, n] + S2[a5, a1, a1, SP[a3, a4], a2, n] + 
    S2[a3, n]*S2[a5, a1, a4, a1, a2, n] + S2[a5, a1, a4, a1, SP[a2, a3], n] + 
    S2[a5, a1, a4, SP[a1, a3], a2, n] + S2[a5, a1, SP[a1, a3], a2, a4, n] + 
    S2[a5, a1, SP[a1, a3], a4, a2, n] + S2[a5, a1, SP[a3, a4], a1, a2, n] + 
    S2[a5, SP[a1, a3], a1, a2, a4, n] + S2[a5, SP[a1, a3], a1, a4, a2, n] + 
    S2[a5, SP[a1, a3], a4, a1, a2, n] - S2[SP[a1, a1], a2, a5, a3, a4, n] - 
    S2[SP[a1, a1], a5, a2, a3, a4, n] - S2[SP[a1, a1], a5, a3, a2, a4, n] - 
    S2[SP[a1, a1], a5, a3, a4, a2, n] + S2[SP[a1, a2], a1, a5, a3, a4, n] - 
    S2[SP[a1, a5], a1, a2, a4, a3, n] - S2[SP[a1, a5], a1, a4, a2, a3, n] - 
    S2[SP[a1, a5], a1, a4, a3, a2, n] - S2[SP[a1, a5], a4, a1, a2, a3, n] - 
    S2[SP[a1, a5], a4, a1, a3, a2, n] - S2[SP[a1, a5], a4, a3, a1, a2, n] + 
    S2[SP[a3, a5], a1, a1, a2, a4, n] + S2[SP[a3, a5], a1, a1, a4, a2, n] + 
    S2[SP[a3, a5], a1, a4, a1, a2, n] + S2[SP[a3, a5], a4, a1, a1, a2, n] - 
    S2[a5, a1, a1, a2, a3, a4, n] - S2[a5, a1, a1, a3, a2, a4, n] - 
    S2[a5, a1, a1, a3, a4, a2, n] - S2[a5, a1, a3, a1, a2, a4, n] - 
    S2[a5, a1, a3, a1, a4, a2, n] - S2[a5, a1, a3, a4, a1, a2, n] - 
    S2[a5, a3, a1, a1, a2, a4, n] - S2[a5, a3, a1, a1, a4, a2, n] - 
    S2[a5, a3, a1, a4, a1, a2, n] - S2[a5, a3, a4, a1, a1, a2, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a2_, a1_, a1_, a5_, a4_, a3_, n_] :> 
  S2[a1, a1, a2, n]*S2[a3, a4, a5, n] + S2[SP[a1, a3], SP[a1, a4], 
     SP[a2, a5], n] - S2[a1, a3, SP[a1, a4], SP[a2, a5], n] - 
    S2[a1, a2, n]*S2[a1, a5, a4, a3, n] + S2[a1, a5, SP[a1, a4], SP[a2, a3], 
     n] - S2[a1, SP[a1, a3], a4, SP[a2, a5], n] - 
    S2[a1, SP[a1, a3], SP[a2, a4], a5, n] + S2[a1, SP[a1, a5], a4, 
     SP[a2, a3], n] + S2[a1, SP[a1, a5], SP[a2, a4], a3, n] - 
    S2[a3, a1, SP[a1, a4], SP[a2, a5], n] - S2[a3, SP[a1, a4], a1, 
     SP[a2, a5], n] - S2[a3, SP[a1, a4], SP[a1, a5], a2, n] + 
    S2[SP[a1, a1], a5, a4, SP[a2, a3], n] + S2[SP[a1, a1], a5, SP[a2, a4], 
     a3, n] + S2[SP[a1, a1], SP[a2, a5], a4, a3, n] - 
    S2[SP[a1, a3], a1, a4, SP[a2, a5], n] - S2[SP[a1, a3], a1, SP[a2, a4], 
     a5, n] - S2[SP[a1, a3], a4, a1, SP[a2, a5], n] - 
    S2[SP[a1, a3], a4, SP[a1, a5], a2, n] - S2[SP[a1, a3], SP[a1, a4], a2, 
     a5, n] - S2[SP[a1, a3], SP[a1, a4], a5, a2, n] + 
    S2[a5, n]*S2[a1, a1, a2, a4, a3, n] - 
    S2[a3, n]*S2[a1, a1, a2, a4, a5, n] - S2[a1, a1, a2, SP[a3, a4], a5, n] + 
    S2[a1, a1, a2, SP[a4, a5], a3, n] + S2[a1, a1, a3, a4, SP[a2, a5], n] + 
    S2[a1, a1, a3, SP[a2, a4], a5, n] + S2[a5, n]*S2[a1, a1, a4, a2, a3, n] - 
    S2[a3, n]*S2[a1, a1, a4, a2, a5, n] + 
    S2[a5, n]*S2[a1, a1, a4, a3, a2, n] + S2[a1, a1, a4, a3, SP[a2, a5], n] - 
    S2[a3, n]*S2[a1, a1, a4, a5, a2, n] - S2[a1, a1, a4, a5, SP[a2, a3], n] - 
    S2[a1, a1, a4, SP[a2, a3], a5, n] + S2[a1, a1, a4, SP[a2, a5], a3, n] + 
    S2[a2, n]*S2[a1, a1, a5, a4, a3, n] - S2[a1, a1, a5, a4, SP[a2, a3], n] - 
    S2[a1, a1, a5, SP[a2, a4], a3, n] - S2[a1, a1, SP[a3, a4], a2, a5, n] - 
    S2[a1, a1, SP[a3, a4], a5, a2, n] + S2[a1, a1, SP[a4, a5], a2, a3, n] + 
    S2[a1, a1, SP[a4, a5], a3, a2, n] + S2[a1, a3, a1, a4, SP[a2, a5], n] + 
    S2[a1, a3, a1, SP[a2, a4], a5, n] + S2[a1, a3, a4, a1, SP[a2, a5], n] + 
    S2[a1, a3, a4, SP[a1, a5], a2, n] + S2[a1, a3, SP[a1, a4], a2, a5, n] + 
    S2[a1, a3, SP[a1, a4], a5, a2, n] + S2[a5, n]*S2[a1, a4, a1, a2, a3, n] - 
    S2[a3, n]*S2[a1, a4, a1, a2, a5, n] + 
    S2[a5, n]*S2[a1, a4, a1, a3, a2, n] + S2[a1, a4, a1, a3, SP[a2, a5], n] - 
    S2[a3, n]*S2[a1, a4, a1, a5, a2, n] - S2[a1, a4, a1, a5, SP[a2, a3], n] - 
    S2[a1, a4, a1, SP[a2, a3], a5, n] + S2[a1, a4, a1, SP[a2, a5], a3, n] + 
    S2[a5, n]*S2[a1, a4, a3, a1, a2, n] + S2[a1, a4, a3, a1, SP[a2, a5], n] + 
    S2[a1, a4, a3, SP[a1, a5], a2, n] - S2[a3, n]*S2[a1, a4, a5, a1, a2, n] - 
    S2[a1, a4, a5, a1, SP[a2, a3], n] - S2[a1, a4, a5, SP[a1, a3], a2, n] - 
    S2[a1, a4, SP[a1, a3], a2, a5, n] - S2[a1, a4, SP[a1, a3], a5, a2, n] + 
    S2[a1, a4, SP[a1, a5], a2, a3, n] + S2[a1, a4, SP[a1, a5], a3, a2, n] - 
    S2[a1, a5, a1, a4, SP[a2, a3], n] - S2[a1, a5, a1, SP[a2, a4], a3, n] - 
    S2[a1, a5, a4, a1, SP[a2, a3], n] - S2[a1, a5, a4, SP[a1, a3], a2, n] - 
    S2[a1, a5, SP[a1, a4], a2, a3, n] - S2[a1, a5, SP[a1, a4], a3, a2, n] - 
    S2[a1, SP[a3, a4], a1, a2, a5, n] - S2[a1, SP[a3, a4], a1, a5, a2, n] - 
    S2[a1, SP[a3, a4], a5, a1, a2, n] + S2[a1, SP[a4, a5], a1, a2, a3, n] + 
    S2[a1, SP[a4, a5], a1, a3, a2, n] + S2[a1, SP[a4, a5], a3, a1, a2, n] + 
    S2[a3, a1, a1, a4, SP[a2, a5], n] + S2[a3, a1, a1, SP[a2, a4], a5, n] + 
    S2[a3, a1, a4, a1, SP[a2, a5], n] + S2[a3, a1, a4, SP[a1, a5], a2, n] + 
    S2[a3, a1, SP[a1, a4], a2, a5, n] + S2[a3, a1, SP[a1, a4], a5, a2, n] - 
    S2[a5, n]*S2[a3, a4, a1, a1, a2, n] + S2[a3, SP[a1, a4], a1, a2, a5, n] + 
    S2[a3, SP[a1, a4], a1, a5, a2, n] + S2[a3, SP[a1, a4], a5, a1, a2, n] - 
    S2[a3, SP[a4, a5], a1, a1, a2, n] + S2[a3, n]*S2[a5, a4, a1, a1, a2, n] + 
    S2[a5, a4, a1, a1, SP[a2, a3], n] + S2[a5, a4, a1, SP[a1, a3], a2, n] + 
    S2[a5, a4, SP[a1, a3], a1, a2, n] + S2[a5, SP[a3, a4], a1, a1, a2, n] - 
    S2[SP[a1, a1], a2, a5, a4, a3, n] - S2[SP[a1, a1], a5, a2, a4, a3, n] - 
    S2[SP[a1, a1], a5, a4, a2, a3, n] - S2[SP[a1, a1], a5, a4, a3, a2, n] + 
    S2[SP[a1, a2], a1, a5, a4, a3, n] + S2[SP[a1, a5], a1, a2, a4, a3, n] + 
    S2[SP[a1, a5], a1, a4, a2, a3, n] + S2[SP[a1, a5], a1, a4, a3, a2, n] + 
    S2[SP[a1, a5], a4, a1, a2, a3, n] + S2[SP[a1, a5], a4, a1, a3, a2, n] + 
    S2[SP[a1, a5], a4, a3, a1, a2, n] - S2[a5, a1, a1, a2, a4, a3, n] - 
    S2[a5, a1, a1, a4, a2, a3, n] - S2[a5, a1, a1, a4, a3, a2, n] - 
    S2[a5, a1, a4, a1, a2, a3, n] - S2[a5, a1, a4, a1, a3, a2, n] - 
    S2[a5, a1, a4, a3, a1, a2, n] - S2[a5, a4, a1, a1, a2, a3, n] - 
    S2[a5, a4, a1, a1, a3, a2, n] - S2[a5, a4, a1, a3, a1, a2, n] - 
    S2[a5, a4, a3, a1, a1, a2, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a2_, a1_, a3_, a1_, a4_, a5_, n_] :> 
  -(S2[a1, a2, a3, n]*S2[a1, a4, a5, n]) - S2[a1, a3, a2, n]*
     S2[a1, a4, a5, n] - S2[SP[a1, a1], SP[a2, a4], SP[a3, a5], n] - 
    S2[SP[a1, a1], SP[a3, a4], SP[a2, a5], n] + 
    2*S2[a4, a5, n]*S2[a1, a1, a2, a3, n] + 2*S2[a4, a5, n]*
     S2[a1, a1, a3, a2, n] + S2[a4, a5, n]*S2[a1, a2, a1, a3, n] - 
    S2[a1, a2, SP[a1, a4], SP[a3, a5], n] + S2[a1, a2, n]*
     S2[a1, a3, a4, a5, n] + S2[a1, a2, n]*S2[a1, a3, a5, a4, n] - 
    S2[a1, a3, SP[a1, a4], SP[a2, a5], n] - S2[a1, a3, SP[a1, a5], 
     SP[a2, a4], n] + S2[a1, a2, n]*S2[a1, a4, a3, a5, n] + 
    S2[a1, a2, n]*S2[a1, a4, a5, a3, n] - S2[a1, a4, SP[a1, a3], SP[a2, a5], 
     n] - S2[a1, a4, SP[a1, a5], SP[a2, a3], n] + 
    S2[a1, a2, n]*S2[a1, a5, a3, a4, n] + S2[a1, a2, n]*
     S2[a1, a5, a4, a3, n] - S2[a1, a5, SP[a1, a3], SP[a2, a4], n] - 
    S2[a1, a5, SP[a1, a4], SP[a2, a3], n] + S2[a1, SP[a1, a2], a4, 
     SP[a3, a5], n] + S2[a1, SP[a1, a2], SP[a3, a4], a5, n] - 
    S2[a1, SP[a1, a3], a5, SP[a2, a4], n] - S2[a1, SP[a1, a3], SP[a2, a5], 
     a4, n] - S2[a1, SP[a1, a4], a2, SP[a3, a5], n] - 
    2*S2[a1, SP[a1, a4], a3, SP[a2, a5], n] - S2[a1, SP[a1, a4], a5, 
     SP[a2, a3], n] - S2[a1, SP[a1, a4], SP[a2, a3], a5, n] - 
    2*S2[a1, SP[a1, a4], SP[a2, a5], a3, n] - S2[a1, SP[a1, a4], SP[a3, a5], 
     a2, n] - S2[a1, SP[a1, a5], a3, SP[a2, a4], n] - 
    S2[a1, SP[a1, a5], a4, SP[a2, a3], n] - S2[a1, SP[a1, a5], SP[a2, a3], 
     a4, n] - S2[a1, SP[a1, a5], SP[a2, a4], a3, n] - 
    S2[a1, SP[a2, a4], a1, SP[a3, a5], n] - S2[a1, SP[a2, a4], SP[a1, a5], 
     a3, n] - S2[a1, a2, n]*S2[a4, a5, a1, a3, n] + 
    S2[a4, a5, SP[a1, a1], SP[a2, a3], n] + S2[a4, SP[a1, a5], a1, 
     SP[a2, a3], n] + S2[a4, SP[a1, a5], SP[a1, a2], a3, n] + 
    S2[SP[a1, a1], a2, a4, SP[a3, a5], n] + S2[SP[a1, a1], a2, SP[a3, a4], 
     a5, n] - S2[SP[a1, a1], a3, a5, SP[a2, a4], n] - 
    S2[SP[a1, a1], a3, SP[a2, a5], a4, n] + S2[SP[a1, a1], a4, a2, 
     SP[a3, a5], n] - S2[SP[a1, a1], a4, a5, SP[a2, a3], n] - 
    S2[SP[a1, a1], a4, SP[a2, a3], a5, n] + S2[SP[a1, a1], a4, SP[a3, a5], 
     a2, n] - S2[SP[a1, a1], a5, a3, SP[a2, a4], n] - 
    S2[SP[a1, a1], a5, a4, SP[a2, a3], n] - S2[SP[a1, a1], a5, SP[a2, a3], 
     a4, n] - S2[SP[a1, a1], a5, SP[a2, a4], a3, n] - 
    S2[SP[a1, a1], SP[a2, a3], a4, a5, n] - S2[SP[a1, a1], SP[a2, a3], a5, 
     a4, n] - S2[SP[a1, a1], SP[a2, a5], a3, a4, n] - 
    S2[SP[a1, a1], SP[a2, a5], a4, a3, n] + S2[SP[a1, a1], SP[a3, a4], a2, 
     a5, n] + S2[SP[a1, a1], SP[a3, a4], a5, a2, n] - 
    2*S2[SP[a1, a4], a1, a2, SP[a3, a5], n] - 
    2*S2[SP[a1, a4], a1, a3, SP[a2, a5], n] - 
    2*S2[SP[a1, a4], a1, SP[a2, a5], a3, n] - 
    2*S2[SP[a1, a4], a1, SP[a3, a5], a2, n] - S2[SP[a1, a4], a2, a1, 
     SP[a3, a5], n] - S2[SP[a1, a4], a2, SP[a1, a5], a3, n] + 
    S2[SP[a1, a4], a5, a1, SP[a2, a3], n] + S2[SP[a1, a4], a5, SP[a1, a2], 
     a3, n] - 2*S2[SP[a1, a4], SP[a1, a5], a2, a3, n] - 
    2*S2[SP[a1, a4], SP[a1, a5], a3, a2, n] - 
    2*S2[a4, n]*S2[a1, a1, a2, a3, a5, n] - 
    2*S2[a1, a1, a2, a3, SP[a4, a5], n] - 
    2*S2[a4, n]*S2[a1, a1, a2, a5, a3, n] - 
    2*S2[a1, a1, a2, a5, SP[a3, a4], n] - 
    2*S2[a1, a1, a2, SP[a3, a4], a5, n] - 
    2*S2[a1, a1, a2, SP[a4, a5], a3, n] - 
    2*S2[a4, n]*S2[a1, a1, a3, a2, a5, n] - 
    2*S2[a1, a1, a3, a2, SP[a4, a5], n] + 
    2*S2[a1, a1, a3, a4, SP[a2, a5], n] - 
    2*S2[a4, n]*S2[a1, a1, a3, a5, a2, n] + 
    2*S2[a1, a1, a3, SP[a2, a5], a4, n] - 
    2*S2[a1, a1, a3, SP[a4, a5], a2, n] + 
    2*S2[a1, a1, a4, a3, SP[a2, a5], n] + 
    2*S2[a1, a1, a4, a5, SP[a2, a3], n] + 
    2*S2[a1, a1, a4, SP[a2, a3], a5, n] + 
    2*S2[a1, a1, a4, SP[a2, a5], a3, n] - 
    2*S2[a4, n]*S2[a1, a1, a5, a2, a3, n] - 
    2*S2[a1, a1, a5, a2, SP[a3, a4], n] - 
    2*S2[a4, n]*S2[a1, a1, a5, a3, a2, n] + 
    2*S2[a1, a1, a5, a4, SP[a2, a3], n] + 
    2*S2[a1, a1, a5, SP[a2, a3], a4, n] - 
    2*S2[a1, a1, a5, SP[a3, a4], a2, n] + 
    2*S2[a1, a1, SP[a2, a3], a4, a5, n] + 
    2*S2[a1, a1, SP[a2, a3], a5, a4, n] + 
    2*S2[a1, a1, SP[a2, a5], a3, a4, n] + 
    2*S2[a1, a1, SP[a2, a5], a4, a3, n] - 
    2*S2[a1, a1, SP[a3, a4], a2, a5, n] - 
    2*S2[a1, a1, SP[a3, a4], a5, a2, n] - 
    2*S2[a1, a1, SP[a4, a5], a2, a3, n] - 
    2*S2[a1, a1, SP[a4, a5], a3, a2, n] - 
    S2[a4, n]*S2[a1, a2, a1, a3, a5, n] - S2[a1, a2, a1, a3, SP[a4, a5], n] - 
    S2[a4, n]*S2[a1, a2, a1, a5, a3, n] - S2[a1, a2, a1, a5, SP[a3, a4], n] - 
    S2[a1, a2, a1, SP[a3, a4], a5, n] - S2[a1, a2, a1, SP[a4, a5], a3, n] + 
    S2[a1, a2, a4, a1, SP[a3, a5], n] + S2[a1, a2, a4, SP[a1, a5], a3, n] - 
    S2[a1, a2, SP[a1, a3], a4, a5, n] - S2[a5, n]*S2[a1, a3, a1, a2, a4, n] - 
    S2[a1, a3, a1, a2, SP[a4, a5], n] - S2[a5, n]*S2[a1, a3, a1, a4, a2, n] + 
    S2[a2, n]*S2[a1, a3, a1, a4, a5, n] + S2[a1, a3, a1, a5, SP[a2, a4], n] + 
    S2[a1, a3, a1, SP[a2, a4], a5, n] - S2[a1, a3, a1, SP[a4, a5], a2, n] - 
    S2[a5, n]*S2[a1, a3, a4, a1, a2, n] + S2[a1, a3, a5, a1, SP[a2, a4], n] + 
    S2[a1, a3, a5, SP[a1, a4], a2, n] + S2[a1, a3, SP[a1, a4], a2, a5, n] + 
    S2[a1, a3, SP[a1, a4], a5, a2, n] - S2[a1, a3, SP[a4, a5], a1, a2, n] + 
    S2[a1, a4, a1, a2, SP[a3, a5], n] + 2*S2[a1, a4, a1, a3, SP[a2, a5], n] + 
    S2[a1, a4, a1, a5, SP[a2, a3], n] + S2[a1, a4, a1, SP[a2, a3], a5, n] + 
    2*S2[a1, a4, a1, SP[a2, a5], a3, n] + S2[a1, a4, a1, SP[a3, a5], a2, n] + 
    S2[a1, a4, a2, a1, SP[a3, a5], n] + S2[a1, a4, a2, SP[a1, a5], a3, n] - 
    S2[a5, n]*S2[a1, a4, a3, a1, a2, n] - S2[a1, a4, a5, SP[a1, a2], a3, n] + 
    S2[a1, a4, a5, SP[a1, a3], a2, n] + S2[a1, a4, SP[a1, a3], a2, a5, n] + 
    S2[a1, a4, SP[a1, a3], a5, a2, n] + 2*S2[a1, a4, SP[a1, a5], a2, a3, n] + 
    2*S2[a1, a4, SP[a1, a5], a3, a2, n] - S2[a1, a4, SP[a3, a5], a1, a2, n] - 
    S2[a4, n]*S2[a1, a5, a1, a2, a3, n] - S2[a1, a5, a1, a2, SP[a3, a4], n] - 
    S2[a4, n]*S2[a1, a5, a1, a3, a2, n] + S2[a1, a5, a1, a4, SP[a2, a3], n] + 
    S2[a1, a5, a1, SP[a2, a3], a4, n] - S2[a1, a5, a1, SP[a3, a4], a2, n] + 
    S2[a1, a5, a3, a1, SP[a2, a4], n] + S2[a1, a5, a3, SP[a1, a4], a2, n] + 
    S2[a1, a5, a4, a1, SP[a2, a3], n] + S2[a1, a5, a4, SP[a1, a3], a2, n] + 
    S2[a1, a5, SP[a1, a3], a2, a4, n] + S2[a1, a5, SP[a1, a3], a4, a2, n] + 
    S2[a1, SP[a1, a2], a3, a5, a4, n] + S2[a1, SP[a1, a2], a5, a3, a4, n] + 
    S2[a1, SP[a1, a2], a5, a4, a3, n] + S2[a1, SP[a1, a3], a2, a5, a4, n] + 
    S2[a1, SP[a1, a3], a5, a2, a4, n] + S2[a1, SP[a1, a3], a5, a4, a2, n] + 
    S2[a1, SP[a1, a5], a2, a3, a4, n] + S2[a1, SP[a1, a5], a2, a4, a3, n] + 
    S2[a1, SP[a1, a5], a3, a2, a4, n] + S2[a1, SP[a1, a5], a3, a4, a2, n] + 
    S2[a1, SP[a1, a5], a4, a2, a3, n] + S2[a1, SP[a1, a5], a4, a3, a2, n] + 
    S2[a1, SP[a2, a3], a1, a4, a5, n] - S2[a1, SP[a3, a5], a1, a2, a4, n] - 
    S2[a1, SP[a3, a5], a1, a4, a2, n] - S2[a1, SP[a3, a5], a4, a1, a2, n] - 
    S2[a1, SP[a4, a5], a1, a2, a3, n] - S2[a1, SP[a4, a5], a1, a3, a2, n] - 
    S2[a1, SP[a4, a5], a3, a1, a2, n] + 2*S2[a4, a1, a1, a2, SP[a3, a5], n] + 
    2*S2[a4, a1, a1, a3, SP[a2, a5], n] + 
    2*S2[a4, a1, a1, SP[a2, a5], a3, n] + 
    2*S2[a4, a1, a1, SP[a3, a5], a2, n] + S2[a4, a1, a2, a1, SP[a3, a5], n] + 
    S2[a4, a1, a2, SP[a1, a5], a3, n] - S2[a4, a1, a5, a1, SP[a2, a3], n] - 
    S2[a4, a1, a5, SP[a1, a2], a3, n] + 2*S2[a4, a1, SP[a1, a5], a2, a3, n] + 
    2*S2[a4, a1, SP[a1, a5], a3, a2, n] - 
    2*S2[a4, a5, a1, a1, SP[a2, a3], n] - S2[a4, a5, a1, SP[a1, a2], a3, n] - 
    S2[a4, a5, a1, SP[a1, a3], a2, n] - S2[a4, a5, SP[a1, a1], a2, a3, n] - 
    S2[a4, a5, SP[a1, a1], a3, a2, n] + S2[a4, SP[a1, a5], a1, a2, a3, n] + 
    S2[a4, SP[a1, a5], a1, a3, a2, n] + S2[a4, n]*S2[a5, a1, a3, a1, a2, n] + 
    S2[a5, a1, a3, a1, SP[a2, a4], n] + S2[a5, a1, a3, SP[a1, a4], a2, n] + 
    S2[a5, a1, SP[a3, a4], a1, a2, n] + S2[a5, SP[a1, a4], a3, a1, a2, n] + 
    S2[SP[a1, a1], a2, a3, a5, a4, n] + S2[SP[a1, a1], a2, a5, a3, a4, n] + 
    S2[SP[a1, a1], a2, a5, a4, a3, n] + S2[SP[a1, a1], a3, a2, a5, a4, n] + 
    S2[SP[a1, a1], a3, a5, a2, a4, n] + S2[SP[a1, a1], a3, a5, a4, a2, n] + 
    S2[SP[a1, a1], a5, a2, a3, a4, n] + S2[SP[a1, a1], a5, a2, a4, a3, n] + 
    S2[SP[a1, a1], a5, a3, a2, a4, n] + S2[SP[a1, a1], a5, a3, a4, a2, n] + 
    S2[SP[a1, a1], a5, a4, a2, a3, n] + S2[SP[a1, a1], a5, a4, a3, a2, n] + 
    S2[SP[a1, a2], a3, a1, a4, a5, n] - S2[SP[a1, a5], a3, a1, a2, a4, n] - 
    S2[SP[a1, a5], a3, a1, a4, a2, n] - S2[SP[a1, a5], a3, a4, a1, a2, n] - 
    S2[SP[a1, a5], a4, a3, a1, a2, n] + S2[SP[a4, a5], a1, a3, a1, a2, n] - 
    S2[a5, a4, a1, a3, a1, a2, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a2_, a1_, a3_, a1_, a5_, a4_, n_] :> 
  -(S2[a1, a2, a3, n]*S2[a1, a5, a4, n]) - S2[a1, a3, a2, n]*
     S2[a1, a5, a4, n] - S2[SP[a1, a1], SP[a2, a5], SP[a3, a4], n] - 
    S2[SP[a1, a1], SP[a3, a5], SP[a2, a4], n] - 
    2*S2[a4, a5, n]*S2[a1, a1, a2, a3, n] - 2*S2[a4, a5, n]*
     S2[a1, a1, a3, a2, n] + 2*S2[a1, a1, SP[a2, a4], SP[a3, a5], n] + 
    2*S2[a1, a1, SP[a2, a5], SP[a3, a4], n] + 
    2*S2[a1, a1, SP[a3, a4], SP[a2, a5], n] + 
    2*S2[a1, a1, SP[a3, a5], SP[a2, a4], n] - 
    S2[a4, a5, n]*S2[a1, a2, a1, a3, n] + S2[a1, a2, SP[a1, a4], SP[a3, a5], 
     n] + S2[a1, SP[a1, a2], a5, SP[a3, a4], n] + 
    S2[a1, SP[a1, a2], SP[a3, a5], a4, n] + S2[a1, SP[a1, a3], a5, 
     SP[a2, a4], n] + S2[a1, SP[a1, a3], SP[a2, a5], a4, n] + 
    2*S2[a1, SP[a1, a4], a2, SP[a3, a5], n] + 
    2*S2[a1, SP[a1, a4], a3, SP[a2, a5], n] + 
    2*S2[a1, SP[a1, a4], SP[a2, a5], a3, n] + 
    2*S2[a1, SP[a1, a4], SP[a3, a5], a2, n] + S2[a1, SP[a1, a5], a2, 
     SP[a3, a4], n] + S2[a1, SP[a1, a5], a3, SP[a2, a4], n] + 
    S2[a1, SP[a1, a5], SP[a2, a4], a3, n] + S2[a1, SP[a1, a5], SP[a3, a4], 
     a2, n] + S2[a1, SP[a2, a4], a1, SP[a3, a5], n] + 
    S2[a1, SP[a2, a4], SP[a1, a5], a3, n] + S2[a1, a2, n]*
     S2[a4, a5, a1, a3, n] - S2[a4, a5, SP[a1, a1], SP[a2, a3], n] - 
    S2[a4, SP[a1, a5], a1, SP[a2, a3], n] - S2[a4, SP[a1, a5], SP[a1, a2], 
     a3, n] + S2[SP[a1, a1], a2, a5, SP[a3, a4], n] + 
    S2[SP[a1, a1], a2, SP[a3, a5], a4, n] + S2[SP[a1, a1], a3, a5, 
     SP[a2, a4], n] + S2[SP[a1, a1], a3, SP[a2, a5], a4, n] + 
    S2[SP[a1, a1], a5, a2, SP[a3, a4], n] + S2[SP[a1, a1], a5, a3, 
     SP[a2, a4], n] + S2[SP[a1, a1], a5, SP[a2, a4], a3, n] + 
    S2[SP[a1, a1], a5, SP[a3, a4], a2, n] + S2[SP[a1, a1], SP[a2, a5], a3, 
     a4, n] + S2[SP[a1, a1], SP[a2, a5], a4, a3, n] + 
    S2[SP[a1, a1], SP[a3, a5], a2, a4, n] + S2[SP[a1, a1], SP[a3, a5], a4, 
     a2, n] + 2*S2[SP[a1, a4], a1, a2, SP[a3, a5], n] + 
    2*S2[SP[a1, a4], a1, a3, SP[a2, a5], n] + 
    2*S2[SP[a1, a4], a1, SP[a2, a5], a3, n] + 
    2*S2[SP[a1, a4], a1, SP[a3, a5], a2, n] + S2[SP[a1, a4], a2, a1, 
     SP[a3, a5], n] + S2[SP[a1, a4], a2, SP[a1, a5], a3, n] - 
    S2[SP[a1, a4], a5, a1, SP[a2, a3], n] - S2[SP[a1, a4], a5, SP[a1, a2], 
     a3, n] + 2*S2[SP[a1, a4], SP[a1, a5], a2, a3, n] + 
    2*S2[SP[a1, a4], SP[a1, a5], a3, a2, n] + 
    2*S2[a4, n]*S2[a1, a1, a2, a3, a5, n] + 
    2*S2[a1, a1, a2, a3, SP[a4, a5], n] - 
    2*S2[a1, a1, a2, a4, SP[a3, a5], n] + 
    2*S2[a4, n]*S2[a1, a1, a2, a5, a3, n] - 
    2*S2[a1, a1, a2, SP[a3, a5], a4, n] + 
    2*S2[a1, a1, a2, SP[a4, a5], a3, n] + 
    2*S2[a4, n]*S2[a1, a1, a3, a2, a5, n] + 
    2*S2[a1, a1, a3, a2, SP[a4, a5], n] - 
    2*S2[a1, a1, a3, a4, SP[a2, a5], n] + 
    2*S2[a4, n]*S2[a1, a1, a3, a5, a2, n] - 
    2*S2[a1, a1, a3, SP[a2, a5], a4, n] + 
    2*S2[a1, a1, a3, SP[a4, a5], a2, n] - 
    2*S2[a1, a1, a4, a2, SP[a3, a5], n] - 
    2*S2[a1, a1, a4, a3, SP[a2, a5], n] - 
    2*S2[a1, a1, a4, SP[a2, a5], a3, n] - 
    2*S2[a1, a1, a4, SP[a3, a5], a2, n] + 
    2*S2[a4, n]*S2[a1, a1, a5, a2, a3, n] + 
    2*S2[a4, n]*S2[a1, a1, a5, a3, a2, n] - 
    2*S2[a1, a1, SP[a2, a5], a3, a4, n] - 
    2*S2[a1, a1, SP[a2, a5], a4, a3, n] - 
    2*S2[a1, a1, SP[a3, a5], a2, a4, n] - 
    2*S2[a1, a1, SP[a3, a5], a4, a2, n] + 
    2*S2[a1, a1, SP[a4, a5], a2, a3, n] + 
    2*S2[a1, a1, SP[a4, a5], a3, a2, n] + 
    S2[a4, n]*S2[a1, a2, a1, a3, a5, n] + S2[a1, a2, a1, a3, SP[a4, a5], n] - 
    S2[a1, a2, a1, a4, SP[a3, a5], n] + S2[a4, n]*S2[a1, a2, a1, a5, a3, n] - 
    S2[a1, a2, a1, SP[a3, a5], a4, n] + S2[a1, a2, a1, SP[a4, a5], a3, n] - 
    S2[a1, a2, a4, a1, SP[a3, a5], n] - S2[a1, a2, a4, SP[a1, a5], a3, n] - 
    S2[a1, a2, SP[a1, a3], a5, a4, n] + S2[a2, n]*S2[a1, a3, a1, a5, a4, n] - 
    2*S2[a1, a4, a1, a2, SP[a3, a5], n] - 
    2*S2[a1, a4, a1, a3, SP[a2, a5], n] - 
    2*S2[a1, a4, a1, SP[a2, a5], a3, n] - 
    2*S2[a1, a4, a1, SP[a3, a5], a2, n] - S2[a1, a4, a2, a1, SP[a3, a5], n] - 
    S2[a1, a4, a2, SP[a1, a5], a3, n] + S2[a1, a4, a5, a1, SP[a2, a3], n] + 
    S2[a1, a4, a5, SP[a1, a2], a3, n] - 2*S2[a1, a4, SP[a1, a5], a2, a3, n] - 
    2*S2[a1, a4, SP[a1, a5], a3, a2, n] + 
    S2[a4, n]*S2[a1, a5, a1, a2, a3, n] + 
    S2[a4, n]*S2[a1, a5, a1, a3, a2, n] - S2[a1, SP[a1, a2], a3, a5, a4, n] - 
    S2[a1, SP[a1, a2], a5, a3, a4, n] - S2[a1, SP[a1, a2], a5, a4, a3, n] - 
    S2[a1, SP[a1, a3], a2, a5, a4, n] - S2[a1, SP[a1, a3], a5, a2, a4, n] - 
    S2[a1, SP[a1, a3], a5, a4, a2, n] - S2[a1, SP[a1, a5], a2, a3, a4, n] - 
    S2[a1, SP[a1, a5], a2, a4, a3, n] - S2[a1, SP[a1, a5], a3, a2, a4, n] - 
    S2[a1, SP[a1, a5], a3, a4, a2, n] - S2[a1, SP[a1, a5], a4, a2, a3, n] - 
    S2[a1, SP[a1, a5], a4, a3, a2, n] + S2[a1, SP[a2, a3], a1, a5, a4, n] + 
    S2[a1, SP[a4, a5], a1, a2, a3, n] + S2[a1, SP[a4, a5], a1, a3, a2, n] - 
    2*S2[a4, a1, a1, a2, SP[a3, a5], n] - 
    2*S2[a4, a1, a1, a3, SP[a2, a5], n] - 
    2*S2[a4, a1, a1, SP[a2, a5], a3, n] - 
    2*S2[a4, a1, a1, SP[a3, a5], a2, n] - S2[a4, a1, a2, a1, SP[a3, a5], n] - 
    S2[a4, a1, a2, SP[a1, a5], a3, n] + S2[a4, a1, a5, a1, SP[a2, a3], n] + 
    S2[a4, a1, a5, SP[a1, a2], a3, n] - 2*S2[a4, a1, SP[a1, a5], a2, a3, n] - 
    2*S2[a4, a1, SP[a1, a5], a3, a2, n] + 
    2*S2[a4, a5, a1, a1, SP[a2, a3], n] + S2[a4, a5, a1, SP[a1, a2], a3, n] + 
    S2[a4, a5, a1, SP[a1, a3], a2, n] + S2[a4, a5, SP[a1, a1], a2, a3, n] + 
    S2[a4, a5, SP[a1, a1], a3, a2, n] - S2[a4, SP[a1, a5], a1, a2, a3, n] - 
    S2[a4, SP[a1, a5], a1, a3, a2, n] - S2[a4, n]*S2[a5, a1, a3, a1, a2, n] - 
    S2[a5, a1, a3, a1, SP[a2, a4], n] - S2[a5, a1, a3, SP[a1, a4], a2, n] - 
    S2[a5, a1, SP[a3, a4], a1, a2, n] - S2[a5, SP[a1, a4], a3, a1, a2, n] - 
    S2[SP[a1, a1], a2, a3, a5, a4, n] - S2[SP[a1, a1], a2, a5, a3, a4, n] - 
    S2[SP[a1, a1], a2, a5, a4, a3, n] - S2[SP[a1, a1], a3, a2, a5, a4, n] - 

    S2[SP[a1, a1], a3, a5, a2, a4, n] - S2[SP[a1, a1], a3, a5, a4, a2, n] - 
    S2[SP[a1, a1], a5, a2, a3, a4, n] - S2[SP[a1, a1], a5, a2, a4, a3, n] - 
    S2[SP[a1, a1], a5, a3, a2, a4, n] - S2[SP[a1, a1], a5, a3, a4, a2, n] - 
    S2[SP[a1, a1], a5, a4, a2, a3, n] - S2[SP[a1, a1], a5, a4, a3, a2, n] + 
    S2[SP[a1, a2], a3, a1, a5, a4, n] - S2[SP[a4, a5], a1, a3, a1, a2, n] + 
    S2[a5, a1, a3, a1, a2, a4, n] + S2[a5, a1, a3, a1, a4, a2, n] + 
    S2[a5, a1, a3, a4, a1, a2, n] + S2[a5, a1, a4, a3, a1, a2, n] + 
    S2[a5, a4, a1, a3, a1, a2, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a2_, a1_, a3_, a4_, a1_, a5_, n_] :> 
  S2[a1, a2, a3, n]*S2[a1, a4, a5, n] + S2[a1, a3, a2, n]*S2[a1, a4, a5, n] + 
    S2[a1, a2, a3, n]*S2[a1, a5, a4, n] + S2[a1, a3, a2, n]*
     S2[a1, a5, a4, n] + S2[SP[a1, a1], SP[a2, a4], SP[a3, a5], n] + 
    S2[SP[a1, a1], SP[a2, a5], SP[a3, a4], n] + S2[SP[a1, a1], SP[a3, a4], 
     SP[a2, a5], n] + S2[SP[a1, a1], SP[a3, a5], SP[a2, a4], n] - 
    2*S2[a1, a1, SP[a2, a4], SP[a3, a5], n] - 
    2*S2[a1, a1, SP[a2, a5], SP[a3, a4], n] - 
    2*S2[a1, a1, SP[a3, a4], SP[a2, a5], n] - 
    2*S2[a1, a1, SP[a3, a5], SP[a2, a4], n] - 
    S2[a1, a5, n]*S2[a1, a2, a3, a4, n] + S2[a1, a2, SP[a1, a3], SP[a4, a5], 
     n] - S2[a1, a5, n]*S2[a1, a3, a2, a4, n] - 
    S2[a1, a5, n]*S2[a1, a3, a4, a2, n] + S2[a1, a3, SP[a1, a2], SP[a4, a5], 
     n] + S2[a1, a3, SP[a1, a4], SP[a2, a5], n] - 
    S2[a1, a2, n]*S2[a1, a4, a3, a5, n] - S2[a1, a2, n]*
     S2[a1, a4, a5, a3, n] + S2[a1, a4, SP[a1, a3], SP[a2, a5], n] + 
    S2[a1, a4, SP[a1, a5], SP[a2, a3], n] - S2[a1, a2, n]*
     S2[a1, a5, a4, a3, n] + S2[a1, a5, SP[a1, a4], SP[a2, a3], n] + 
    S2[a1, SP[a1, a2], a3, SP[a4, a5], n] - S2[a1, SP[a1, a2], a4, 
     SP[a3, a5], n] - S2[a1, SP[a1, a2], a5, SP[a3, a4], n] - 
    S2[a1, SP[a1, a2], SP[a3, a4], a5, n] + S2[a1, SP[a1, a3], a2, 
     SP[a4, a5], n] - S2[a1, SP[a1, a3], a5, SP[a2, a4], n] - 
    S2[a1, SP[a1, a3], SP[a2, a4], a5, n] + S2[a1, SP[a1, a3], SP[a4, a5], 
     a2, n] - S2[a1, SP[a1, a4], a2, SP[a3, a5], n] + 
    S2[a1, SP[a1, a4], a5, SP[a2, a3], n] + S2[a1, SP[a1, a4], SP[a2, a3], 
     a5, n] - S2[a1, SP[a1, a4], SP[a3, a5], a2, n] - 
    S2[a1, SP[a1, a5], a2, SP[a3, a4], n] - S2[a1, SP[a1, a5], a3, 
     SP[a2, a4], n] + S2[a1, SP[a1, a5], a4, SP[a2, a3], n] - 
    S2[a1, SP[a1, a5], SP[a3, a4], a2, n] + S2[SP[a1, a1], a2, a3, 
     SP[a4, a5], n] - S2[SP[a1, a1], a2, a4, SP[a3, a5], n] - 
    S2[SP[a1, a1], a2, a5, SP[a3, a4], n] - S2[SP[a1, a1], a2, SP[a3, a4], 
     a5, n] + S2[SP[a1, a1], a3, a2, SP[a4, a5], n] - 
    S2[SP[a1, a1], a3, a5, SP[a2, a4], n] - S2[SP[a1, a1], a3, SP[a2, a4], 
     a5, n] + S2[SP[a1, a1], a3, SP[a4, a5], a2, n] - 
    S2[SP[a1, a1], a4, a2, SP[a3, a5], n] + S2[SP[a1, a1], a4, a5, 
     SP[a2, a3], n] + S2[SP[a1, a1], a4, SP[a2, a3], a5, n] - 
    S2[SP[a1, a1], a4, SP[a3, a5], a2, n] - S2[SP[a1, a1], a5, a2, 
     SP[a3, a4], n] - S2[SP[a1, a1], a5, a3, SP[a2, a4], n] + 
    S2[SP[a1, a1], a5, a4, SP[a2, a3], n] - S2[SP[a1, a1], a5, SP[a3, a4], 
     a2, n] - S2[SP[a1, a1], SP[a3, a4], a2, a5, n] - 
    S2[SP[a1, a1], SP[a3, a4], a5, a2, n] - 
    2*S2[a1, a1, a2, a3, SP[a4, a5], n] + 
    2*S2[a1, a1, a2, a4, SP[a3, a5], n] + 
    2*S2[a1, a1, a2, a5, SP[a3, a4], n] + 
    2*S2[a1, a1, a2, SP[a3, a4], a5, n] - 
    2*S2[a1, a1, a3, a2, SP[a4, a5], n] + 
    2*S2[a1, a1, a3, a5, SP[a2, a4], n] + 
    2*S2[a1, a1, a3, SP[a2, a4], a5, n] - 
    2*S2[a1, a1, a3, SP[a4, a5], a2, n] + 
    2*S2[a1, a1, a4, a2, SP[a3, a5], n] - 
    2*S2[a1, a1, a4, a5, SP[a2, a3], n] - 
    2*S2[a1, a1, a4, SP[a2, a3], a5, n] + 
    2*S2[a1, a1, a4, SP[a3, a5], a2, n] + 
    2*S2[a1, a1, a5, a2, SP[a3, a4], n] + 
    2*S2[a1, a1, a5, a3, SP[a2, a4], n] - 
    2*S2[a1, a1, a5, a4, SP[a2, a3], n] + 
    2*S2[a1, a1, a5, SP[a3, a4], a2, n] + 
    2*S2[a1, a1, SP[a3, a4], a2, a5, n] + 
    2*S2[a1, a1, SP[a3, a4], a5, a2, n] - S2[a1, a2, a1, a3, SP[a4, a5], n] + 
    S2[a1, a2, a1, a4, SP[a3, a5], n] + S2[a1, a2, a1, a5, SP[a3, a4], n] + 
    S2[a1, a2, a1, SP[a3, a4], a5, n] - S2[a1, a2, a3, a1, SP[a4, a5], n] - 
    S2[a1, a2, a3, SP[a1, a4], a5, n] - S2[a1, a3, a1, a2, SP[a4, a5], n] + 
    S2[a1, a3, a1, a5, SP[a2, a4], n] + S2[a1, a3, a1, SP[a2, a4], a5, n] - 
    S2[a1, a3, a1, SP[a4, a5], a2, n] - S2[a1, a3, a2, a1, SP[a4, a5], n] - 
    S2[a1, a3, a2, SP[a1, a4], a5, n] + S2[a2, n]*S2[a1, a3, a4, a1, a5, n] - 
    S2[a1, a3, SP[a1, a4], a2, a5, n] - S2[a1, a3, SP[a1, a4], a5, a2, n] + 
    S2[a1, a3, SP[a2, a4], a1, a5, n] + S2[a1, a4, a1, a2, SP[a3, a5], n] - 
    S2[a1, a4, a1, a5, SP[a2, a3], n] - S2[a1, a4, a1, SP[a2, a3], a5, n] + 
    S2[a1, a4, a1, SP[a3, a5], a2, n] + S2[a5, n]*S2[a1, a4, a3, a1, a2, n] - 
    S2[a1, a4, a5, a1, SP[a2, a3], n] - S2[a1, a4, a5, SP[a1, a3], a2, n] - 
    S2[a1, a4, SP[a1, a3], a2, a5, n] - S2[a1, a4, SP[a1, a3], a5, a2, n] + 
    S2[a1, a4, SP[a3, a5], a1, a2, n] + S2[a1, a5, a1, a2, SP[a3, a4], n] + 
    S2[a1, a5, a1, a3, SP[a2, a4], n] - S2[a1, a5, a1, a4, SP[a2, a3], n] + 
    S2[a1, a5, a1, SP[a3, a4], a2, n] - S2[a1, a5, a4, a1, SP[a2, a3], n] - 
    S2[a1, a5, a4, SP[a1, a3], a2, n] + S2[a1, SP[a2, a3], a4, a1, a5, n] + 
    S2[a1, SP[a4, a5], a3, a1, a2, n] + S2[SP[a1, a2], a3, a4, a1, a5, n] + 
    S2[SP[a1, a5], a4, a3, a1, a2, n] - S2[a5, a1, a4, a3, a1, a2, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a2_, a1_, a3_, a4_, a5_, a1_, n_] :> 
  -(S2[a1, a2, a3, n]*S2[a1, a5, a4, n]) - S2[a1, a3, a2, n]*
     S2[a1, a5, a4, n] - S2[SP[a1, a1], SP[a2, a5], SP[a3, a4], n] - 
    S2[SP[a1, a1], SP[a3, a5], SP[a2, a4], n] + 
    2*S2[a1, a1, SP[a2, a5], SP[a3, a4], n] + 
    2*S2[a1, a1, SP[a3, a5], SP[a2, a4], n] + 
    S2[a1, a5, n]*S2[a1, a2, a3, a4, n] - S2[a1, a2, SP[a1, a3], SP[a4, a5], 
     n] + S2[a1, a5, n]*S2[a1, a3, a2, a4, n] + 
    S2[a1, a5, n]*S2[a1, a3, a4, a2, n] - S2[a1, a3, SP[a1, a2], SP[a4, a5], 
     n] - S2[a1, a3, SP[a1, a4], SP[a2, a5], n] + 
    S2[a1, a2, n]*S2[a1, a5, a4, a3, n] - S2[a1, a5, SP[a1, a4], SP[a2, a3], 
     n] - S2[a1, SP[a1, a2], a3, SP[a4, a5], n] + S2[a1, SP[a1, a2], a5, 
     SP[a3, a4], n] - S2[a1, SP[a1, a3], a2, SP[a4, a5], n] - 
    S2[a1, SP[a1, a3], a4, SP[a2, a5], n] + S2[a1, SP[a1, a3], a5, 
     SP[a2, a4], n] - S2[a1, SP[a1, a3], SP[a4, a5], a2, n] + 
    S2[a1, SP[a1, a5], a2, SP[a3, a4], n] + S2[a1, SP[a1, a5], a3, 
     SP[a2, a4], n] - S2[a1, SP[a1, a5], a4, SP[a2, a3], n] + 
    S2[a1, SP[a1, a5], SP[a3, a4], a2, n] - S2[SP[a1, a1], a2, a3, 
     SP[a4, a5], n] + S2[SP[a1, a1], a2, a5, SP[a3, a4], n] - 
    S2[SP[a1, a1], a3, a2, SP[a4, a5], n] - S2[SP[a1, a1], a3, a4, 
     SP[a2, a5], n] + S2[SP[a1, a1], a3, a5, SP[a2, a4], n] - 
    S2[SP[a1, a1], a3, SP[a4, a5], a2, n] + S2[SP[a1, a1], a5, a2, 
     SP[a3, a4], n] + S2[SP[a1, a1], a5, a3, SP[a2, a4], n] - 
    S2[SP[a1, a1], a5, a4, SP[a2, a3], n] + S2[SP[a1, a1], a5, SP[a3, a4], 
     a2, n] + 2*S2[a1, a1, a2, a3, SP[a4, a5], n] - 
    2*S2[a1, a1, a2, a5, SP[a3, a4], n] + 
    2*S2[a1, a1, a3, a2, SP[a4, a5], n] - 
    2*S2[a2, n]*S2[a1, a1, a3, a4, a5, n] - 
    2*S2[a1, a1, a3, a5, SP[a2, a4], n] - 
    2*S2[a1, a1, a3, SP[a2, a4], a5, n] + 
    2*S2[a1, a1, a3, SP[a4, a5], a2, n] - 
    2*S2[a1, a1, a5, a2, SP[a3, a4], n] - 
    2*S2[a1, a1, a5, a3, SP[a2, a4], n] + 
    2*S2[a1, a1, a5, a4, SP[a2, a3], n] - 
    2*S2[a1, a1, a5, SP[a3, a4], a2, n] - 
    2*S2[a1, a1, SP[a2, a3], a4, a5, n] + S2[a1, a2, a1, a3, SP[a4, a5], n] - 
    S2[a1, a2, a1, a5, SP[a3, a4], n] + S2[a1, a2, a3, a1, SP[a4, a5], n] + 
    S2[a1, a2, a3, SP[a1, a4], a5, n] + S2[a1, a2, SP[a1, a3], a4, a5, n] + 
    S2[a1, a3, a1, a2, SP[a4, a5], n] - S2[a2, n]*S2[a1, a3, a1, a4, a5, n] - 
    S2[a1, a3, a1, a5, SP[a2, a4], n] - S2[a1, a3, a1, SP[a2, a4], a5, n] + 
    S2[a1, a3, a1, SP[a4, a5], a2, n] + S2[a1, a3, a2, a1, SP[a4, a5], n] + 
    S2[a1, a3, a2, SP[a1, a4], a5, n] - S2[a2, n]*S2[a1, a3, a4, a1, a5, n] + 
    S2[a1, a3, SP[a1, a4], a2, a5, n] + S2[a1, a3, SP[a1, a4], a5, a2, n] - 
    S2[a1, a3, SP[a2, a4], a1, a5, n] - S2[a1, a5, a1, a2, SP[a3, a4], n] - 
    S2[a1, a5, a1, a3, SP[a2, a4], n] + S2[a1, a5, a1, a4, SP[a2, a3], n] - 
    S2[a1, a5, a1, SP[a3, a4], a2, n] + S2[a1, a5, a4, a1, SP[a2, a3], n] + 
    S2[a1, a5, a4, SP[a1, a3], a2, n] - S2[a1, SP[a1, a2], a3, a4, a5, n] + 
    S2[a1, SP[a1, a3], a2, a4, a5, n] + S2[a1, SP[a1, a3], a4, a2, a5, n] + 
    S2[a1, SP[a1, a3], a4, a5, a2, n] - S2[a1, SP[a2, a3], a1, a4, a5, n] - 
    S2[a1, SP[a2, a3], a4, a1, a5, n] + S2[a1, n]*S2[a2, a1, a3, a4, a5, n] + 
    S2[a2, a1, a3, a4, SP[a1, a5], n] + S2[a2, a1, a3, SP[a1, a4], a5, n] + 
    S2[a2, a1, SP[a1, a3], a4, a5, n] + S2[a2, SP[a1, a1], a3, a4, a5, n] - 
    S2[a1, n]*S2[a5, a4, a3, a1, a2, n] - S2[a5, a4, a3, a1, SP[a1, a2], n] - 
    S2[a5, a4, a3, SP[a1, a1], a2, n] - S2[a5, a4, SP[a1, a3], a1, a2, n] - 
    S2[a5, SP[a1, a4], a3, a1, a2, n] + S2[SP[a1, a1], a2, a3, a4, a5, n] + 
    S2[SP[a1, a1], a3, a2, a4, a5, n] + S2[SP[a1, a1], a3, a4, a2, a5, n] + 
    S2[SP[a1, a1], a3, a4, a5, a2, n] - S2[SP[a1, a2], a1, a3, a4, a5, n] - 
    S2[SP[a1, a2], a3, a1, a4, a5, n] - S2[SP[a1, a2], a3, a4, a1, a5, n] - 
    S2[SP[a1, a5], a4, a3, a1, a2, n] + S2[a5, a1, a4, a3, a1, a2, n] + 
    S2[a5, a4, a1, a3, a1, a2, n] + 2*S2[a5, a4, a3, a1, a1, a2, n] + 
    S2[a5, a4, a3, a1, a2, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a2_, a1_, a3_, a5_, a1_, a4_, n_] :> 
  S2[a1, a2, a3, n]*S2[a1, a4, a5, n] + S2[a1, a3, a2, n]*S2[a1, a4, a5, n] + 
    S2[a1, a2, a3, n]*S2[a1, a5, a4, n] + S2[a1, a3, a2, n]*
     S2[a1, a5, a4, n] + S2[SP[a1, a1], SP[a2, a4], SP[a3, a5], n] + 
    S2[SP[a1, a1], SP[a2, a5], SP[a3, a4], n] + S2[SP[a1, a1], SP[a3, a4], 
     SP[a2, a5], n] + S2[SP[a1, a1], SP[a3, a5], SP[a2, a4], n] - 
    2*S2[a1, a1, SP[a2, a4], SP[a3, a5], n] - 
    2*S2[a1, a1, SP[a2, a5], SP[a3, a4], n] - 
    2*S2[a1, a1, SP[a3, a4], SP[a2, a5], n] - 
    2*S2[a1, a1, SP[a3, a5], SP[a2, a4], n] - S2[a1, SP[a1, a2], a4, 
     SP[a3, a5], n] - S2[a1, SP[a1, a2], a5, SP[a3, a4], n] - 
    S2[a1, SP[a1, a2], SP[a3, a4], a5, n] - S2[a1, SP[a1, a2], SP[a3, a5], 
     a4, n] - S2[a1, SP[a1, a3], a4, SP[a2, a5], n] - 
    S2[a1, SP[a1, a3], a5, SP[a2, a4], n] - S2[a1, SP[a1, a3], SP[a2, a4], 
     a5, n] - S2[a1, SP[a1, a3], SP[a2, a5], a4, n] - 
    S2[a1, SP[a1, a4], a2, SP[a3, a5], n] - S2[a1, SP[a1, a4], a3, 
     SP[a2, a5], n] - S2[a1, SP[a1, a4], SP[a2, a5], a3, n] - 
    S2[a1, SP[a1, a4], SP[a3, a5], a2, n] - S2[a1, SP[a1, a5], a2, 
     SP[a3, a4], n] - S2[a1, SP[a1, a5], a3, SP[a2, a4], n] - 
    S2[a1, SP[a1, a5], SP[a2, a4], a3, n] - S2[a1, SP[a1, a5], SP[a3, a4], 
     a2, n] - S2[a1, a2, n]*S2[a3, a5, a1, a4, n] + 
    S2[a3, a5, SP[a1, a1], SP[a2, a4], n] + S2[a3, SP[a1, a5], a1, 
     SP[a2, a4], n] + S2[a3, SP[a1, a5], SP[a1, a2], a4, n] - 
    S2[SP[a1, a1], a2, a4, SP[a3, a5], n] - S2[SP[a1, a1], a2, a5, 
     SP[a3, a4], n] - S2[SP[a1, a1], a2, SP[a3, a4], a5, n] - 
    S2[SP[a1, a1], a2, SP[a3, a5], a4, n] - S2[SP[a1, a1], a3, a4, 
     SP[a2, a5], n] - S2[SP[a1, a1], a3, a5, SP[a2, a4], n] - 
    S2[SP[a1, a1], a3, SP[a2, a4], a5, n] - S2[SP[a1, a1], a3, SP[a2, a5], 
     a4, n] - S2[SP[a1, a1], a4, a2, SP[a3, a5], n] - 
    S2[SP[a1, a1], a4, a3, SP[a2, a5], n] - S2[SP[a1, a1], a4, SP[a2, a5], 
     a3, n] - S2[SP[a1, a1], a4, SP[a3, a5], a2, n] - 
    S2[SP[a1, a1], a5, a2, SP[a3, a4], n] - S2[SP[a1, a1], a5, a3, 
     SP[a2, a4], n] - S2[SP[a1, a1], a5, SP[a2, a4], a3, n] - 
    S2[SP[a1, a1], a5, SP[a3, a4], a2, n] - S2[SP[a1, a1], SP[a2, a4], a3, 
     a5, n] - S2[SP[a1, a1], SP[a2, a4], a5, a3, n] - 
    S2[SP[a1, a1], SP[a2, a5], a3, a4, n] - S2[SP[a1, a1], SP[a2, a5], a4, 
     a3, n] - S2[SP[a1, a1], SP[a3, a4], a2, a5, n] - 
    S2[SP[a1, a1], SP[a3, a4], a5, a2, n] - S2[SP[a1, a1], SP[a3, a5], a2, 
     a4, n] - S2[SP[a1, a1], SP[a3, a5], a4, a2, n] + 
    S2[SP[a1, a3], a5, a1, SP[a2, a4], n] + S2[SP[a1, a3], a5, SP[a1, a2], 
     a4, n] + S2[SP[a1, a3], SP[a2, a5], a1, a4, n] - 
    2*S2[a5, n]*S2[a1, a1, a2, a3, a4, n] - 
    2*S2[a1, a1, a2, a3, SP[a4, a5], n] - 
    2*S2[a5, n]*S2[a1, a1, a2, a4, a3, n] + 
    2*S2[a1, a1, a2, a5, SP[a3, a4], n] + 
    2*S2[a1, a1, a2, SP[a3, a4], a5, n] - 
    2*S2[a1, a1, a2, SP[a4, a5], a3, n] - 
    2*S2[a5, n]*S2[a1, a1, a3, a2, a4, n] - 
    2*S2[a1, a1, a3, a2, SP[a4, a5], n] - 
    2*S2[a5, n]*S2[a1, a1, a3, a4, a2, n] + 
    2*S2[a1, a1, a3, a5, SP[a2, a4], n] + 
    2*S2[a1, a1, a3, SP[a2, a4], a5, n] - 
    2*S2[a1, a1, a3, SP[a4, a5], a2, n] - 
    2*S2[a5, n]*S2[a1, a1, a4, a2, a3, n] - 
    2*S2[a5, n]*S2[a1, a1, a4, a3, a2, n] + 
    2*S2[a1, a1, a5, a2, SP[a3, a4], n] + 
    2*S2[a1, a1, a5, a3, SP[a2, a4], n] + 
    2*S2[a1, a1, a5, SP[a2, a4], a3, n] + 
    2*S2[a1, a1, a5, SP[a3, a4], a2, n] + 
    2*S2[a1, a1, SP[a2, a4], a3, a5, n] + 
    2*S2[a1, a1, SP[a2, a4], a5, a3, n] + 
    2*S2[a1, a1, SP[a3, a4], a2, a5, n] + 
    2*S2[a1, a1, SP[a3, a4], a5, a2, n] - 
    2*S2[a1, a1, SP[a4, a5], a2, a3, n] - 
    2*S2[a1, a1, SP[a4, a5], a3, a2, n] - 
    S2[a5, n]*S2[a1, a2, a1, a3, a4, n] - S2[a1, a2, a1, a3, SP[a4, a5], n] - 
    S2[a5, n]*S2[a1, a2, a1, a4, a3, n] + S2[a1, a2, a1, a5, SP[a3, a4], n] + 
    S2[a1, a2, a1, SP[a3, a4], a5, n] - S2[a1, a2, a1, SP[a4, a5], a3, n] - 
    S2[a5, n]*S2[a1, a2, a3, a1, a4, n] - S2[a1, a2, a3, a1, SP[a4, a5], n] - 
    S2[a1, a2, a3, SP[a1, a5], a4, n] + S2[a3, n]*S2[a1, a2, a5, a1, a4, n] + 
    S2[a1, a2, a5, a1, SP[a3, a4], n] + S2[a1, a2, a5, SP[a1, a3], a4, n] + 
    S2[a1, a2, SP[a1, a3], a4, a5, n] + S2[a1, a2, SP[a1, a3], a5, a4, n] - 
    S2[a1, a2, SP[a1, a5], a3, a4, n] - S2[a1, a2, SP[a1, a5], a4, a3, n] - 
    S2[a5, n]*S2[a1, a3, a1, a2, a4, n] - S2[a1, a3, a1, a2, SP[a4, a5], n] - 
    S2[a5, n]*S2[a1, a3, a1, a4, a2, n] + S2[a1, a3, a1, a5, SP[a2, a4], n] + 
    S2[a1, a3, a1, SP[a2, a4], a5, n] - S2[a1, a3, a1, SP[a4, a5], a2, n] - 
    S2[a5, n]*S2[a1, a3, a2, a1, a4, n] - S2[a1, a3, a2, a1, SP[a4, a5], n] - 
    S2[a1, a3, a2, SP[a1, a5], a4, n] + S2[a2, n]*S2[a1, a3, a5, a1, a4, n] + 
    S2[a1, a3, SP[a1, a2], a4, a5, n] + S2[a1, a3, SP[a1, a2], a5, a4, n] - 
    S2[a1, a3, SP[a1, a5], a2, a4, n] - S2[a1, a3, SP[a1, a5], a4, a2, n] - 
    S2[a1, a3, SP[a2, a5], a1, a4, n] - S2[a5, n]*S2[a1, a4, a1, a2, a3, n] - 
    S2[a5, n]*S2[a1, a4, a1, a3, a2, n] + 
    S2[a3, n]*S2[a1, a5, a1, a2, a4, n] + 
    2*S2[a1, a5, a1, a2, SP[a3, a4], n] + S2[a1, a5, a1, a3, SP[a2, a4], n] + 
    S2[a3, n]*S2[a1, a5, a1, a4, a2, n] + S2[a1, a5, a1, a4, SP[a2, a3], n] + 
    S2[a1, a5, a1, SP[a2, a3], a4, n] + S2[a1, a5, a1, SP[a2, a4], a3, n] + 
    2*S2[a1, a5, a1, SP[a3, a4], a2, n] + 
    S2[a3, n]*S2[a1, a5, a2, a1, a4, n] + S2[a1, a5, a2, a1, SP[a3, a4], n] + 
    S2[a1, a5, a2, SP[a1, a3], a4, n] + S2[a1, a5, SP[a1, a3], a2, a4, n] + 
    S2[a1, a5, SP[a1, a3], a4, a2, n] + S2[a1, a5, SP[a1, a4], a2, a3, n] + 
    S2[a1, a5, SP[a1, a4], a3, a2, n] + S2[a1, a5, SP[a2, a3], a1, a4, n] + 
    S2[a1, SP[a1, a2], a3, a4, a5, n] + S2[a1, SP[a1, a2], a3, a5, a4, n] + 
    S2[a1, SP[a1, a2], a4, a3, a5, n] + S2[a1, SP[a1, a2], a4, a5, a3, n] + 
    S2[a1, SP[a1, a2], a5, a3, a4, n] + S2[a1, SP[a1, a2], a5, a4, a3, n] + 
    S2[a1, SP[a1, a3], a2, a4, a5, n] + S2[a1, SP[a1, a3], a2, a5, a4, n] + 
    S2[a1, SP[a1, a3], a4, a2, a5, n] + S2[a1, SP[a1, a3], a4, a5, a2, n] + 
    S2[a1, SP[a1, a3], a5, a2, a4, n] + S2[a1, SP[a1, a3], a5, a4, a2, n] + 
    S2[a1, SP[a1, a4], a2, a3, a5, n] + S2[a1, SP[a1, a4], a2, a5, a3, n] + 
    S2[a1, SP[a1, a4], a3, a2, a5, n] + S2[a1, SP[a1, a4], a3, a5, a2, n] + 
    S2[a1, SP[a1, a4], a5, a2, a3, n] + S2[a1, SP[a1, a4], a5, a3, a2, n] - 
    S2[a1, SP[a1, a5], a2, a3, a4, n] - S2[a1, SP[a1, a5], a2, a4, a3, n] - 
    S2[a1, SP[a1, a5], a3, a2, a4, n] - S2[a1, SP[a1, a5], a3, a4, a2, n] - 
    S2[a1, SP[a1, a5], a4, a2, a3, n] - S2[a1, SP[a1, a5], a4, a3, a2, n] + 
    S2[a1, SP[a2, a3], a5, a1, a4, n] - S2[a1, SP[a2, a5], a1, a3, a4, n] - 
    S2[a1, SP[a2, a5], a1, a4, a3, n] - S2[a1, SP[a2, a5], a3, a1, a4, n] - 
    S2[a1, SP[a4, a5], a1, a2, a3, n] - S2[a1, SP[a4, a5], a1, a3, a2, n] - 
    S2[a3, a1, a5, a1, SP[a2, a4], n] - S2[a3, a1, a5, SP[a1, a2], a4, n] - 
    S2[a3, a1, SP[a2, a5], a1, a4, n] - 2*S2[a3, a5, a1, a1, SP[a2, a4], n] - 
    S2[a3, a5, a1, SP[a1, a2], a4, n] - S2[a3, a5, a1, SP[a1, a4], a2, n] - 
    S2[a3, a5, SP[a1, a1], a2, a4, n] - S2[a3, a5, SP[a1, a1], a4, a2, n] - 
    S2[a3, SP[a1, a5], a1, a2, a4, n] - S2[a3, SP[a1, a5], a1, a4, a2, n] - 
    S2[a3, SP[a1, a5], a2, a1, a4, n] + 2*S2[a3, n]*
     S2[a5, a1, a1, a2, a4, n] + 2*S2[a5, a1, a1, a2, SP[a3, a4], n] + 
    2*S2[a3, n]*S2[a5, a1, a1, a4, a2, n] + 
    2*S2[a5, a1, a1, a4, SP[a2, a3], n] + 
    2*S2[a5, a1, a1, SP[a2, a3], a4, n] + 
    2*S2[a5, a1, a1, SP[a3, a4], a2, n] + 
    S2[a3, n]*S2[a5, a1, a2, a1, a4, n] + S2[a5, a1, a2, a1, SP[a3, a4], n] + 
    S2[a5, a1, a2, SP[a1, a3], a4, n] + S2[a3, n]*S2[a5, a1, a4, a1, a2, n] + 
    S2[a5, a1, a4, a1, SP[a2, a3], n] + S2[a5, a1, a4, SP[a1, a3], a2, n] + 
    2*S2[a5, a1, SP[a1, a3], a2, a4, n] + 
    2*S2[a5, a1, SP[a1, a3], a4, a2, n] + S2[a5, a1, SP[a2, a3], a1, a4, n] + 
    S2[a5, a1, SP[a3, a4], a1, a2, n] + 2*S2[a5, SP[a1, a3], a1, a2, a4, n] + 
    2*S2[a5, SP[a1, a3], a1, a4, a2, n] + S2[a5, SP[a1, a3], a2, a1, a4, n] + 
    S2[a5, SP[a1, a3], a4, a1, a2, n] + S2[SP[a1, a1], a2, a3, a4, a5, n] + 
    S2[SP[a1, a1], a2, a3, a5, a4, n] + S2[SP[a1, a1], a2, a4, a3, a5, n] + 
    S2[SP[a1, a1], a2, a4, a5, a3, n] + S2[SP[a1, a1], a2, a5, a3, a4, n] + 
    S2[SP[a1, a1], a2, a5, a4, a3, n] + S2[SP[a1, a1], a3, a2, a4, a5, n] + 
    S2[SP[a1, a1], a3, a2, a5, a4, n] + S2[SP[a1, a1], a3, a4, a2, a5, n] + 
    S2[SP[a1, a1], a3, a4, a5, a2, n] + S2[SP[a1, a1], a3, a5, a2, a4, n] + 
    S2[SP[a1, a1], a3, a5, a4, a2, n] + S2[SP[a1, a1], a4, a2, a3, a5, n] + 
    S2[SP[a1, a1], a4, a2, a5, a3, n] + S2[SP[a1, a1], a4, a3, a2, a5, n] + 
    S2[SP[a1, a1], a4, a3, a5, a2, n] + S2[SP[a1, a1], a4, a5, a2, a3, n] + 
    S2[SP[a1, a1], a4, a5, a3, a2, n] + S2[SP[a1, a1], a5, a2, a3, a4, n] + 
    S2[SP[a1, a1], a5, a2, a4, a3, n] + S2[SP[a1, a1], a5, a3, a2, a4, n] + 
    S2[SP[a1, a1], a5, a3, a4, a2, n] + S2[SP[a1, a1], a5, a4, a2, a3, n] + 
    S2[SP[a1, a1], a5, a4, a3, a2, n] + S2[SP[a1, a2], a3, a5, a1, a4, n] - 
    2*S2[SP[a1, a5], a1, a2, a3, a4, n] - 
    2*S2[SP[a1, a5], a1, a2, a4, a3, n] - 
    2*S2[SP[a1, a5], a1, a3, a2, a4, n] - 
    2*S2[SP[a1, a5], a1, a3, a4, a2, n] - 
    2*S2[SP[a1, a5], a1, a4, a2, a3, n] - 
    2*S2[SP[a1, a5], a1, a4, a3, a2, n] - S2[SP[a1, a5], a2, a1, a3, a4, n] - 
    S2[SP[a1, a5], a2, a1, a4, a3, n] - S2[SP[a1, a5], a2, a3, a1, a4, n] - 
    S2[SP[a1, a5], a3, a1, a2, a4, n] - S2[SP[a1, a5], a3, a1, a4, a2, n] - 
    S2[SP[a1, a5], a3, a2, a1, a4, n] - S2[SP[a1, a5], a4, a1, a2, a3, n] - 
    S2[SP[a1, a5], a4, a1, a3, a2, n] + 2*S2[SP[a3, a5], a1, a1, a2, a4, n] + 
    2*S2[SP[a3, a5], a1, a1, a4, a2, n] + S2[SP[a3, a5], a1, a2, a1, a4, n] + 
    S2[SP[a3, a5], a1, a4, a1, a2, n] - S2[a5, a1, a3, a1, a2, a4, n] - 
    S2[a5, a1, a3, a1, a4, a2, n] - S2[a5, a1, a3, a4, a1, a2, n] - 
    S2[a5, a1, a4, a3, a1, a2, n] - 2*S2[a5, a3, a1, a1, a2, a4, n] - 
    2*S2[a5, a3, a1, a1, a4, a2, n] - S2[a5, a3, a1, a2, a1, a4, n] - 
    S2[a5, a3, a1, a4, a1, a2, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a2_, a1_, a3_, a5_, a4_, a1_, n_] :> 
  -(S2[a1, a2, a3, n]*S2[a1, a4, a5, n]) - S2[a1, a3, a2, n]*
     S2[a1, a4, a5, n] - S2[SP[a1, a1], SP[a2, a4], SP[a3, a5], n] - 
    S2[SP[a1, a1], SP[a3, a4], SP[a2, a5], n] + 
    2*S2[a1, a1, SP[a2, a4], SP[a3, a5], n] + 
    2*S2[a1, a1, SP[a3, a4], SP[a2, a5], n] - 
    S2[a1, a2, n]*S2[a1, a5, a3, a4, n] - S2[a1, a2, n]*
     S2[a1, a5, a4, a3, n] + S2[a1, a5, SP[a1, a3], SP[a2, a4], n] + 
    S2[a1, a5, SP[a1, a4], SP[a2, a3], n] + S2[a1, SP[a1, a2], a4, 
     SP[a3, a5], n] + S2[a1, SP[a1, a2], SP[a3, a4], a5, n] + 
    S2[a1, SP[a1, a3], a4, SP[a2, a5], n] + S2[a1, SP[a1, a3], SP[a2, a4], 
     a5, n] + S2[a1, SP[a1, a4], a2, SP[a3, a5], n] + 
    S2[a1, SP[a1, a4], a3, SP[a2, a5], n] + S2[a1, SP[a1, a4], SP[a2, a5], 
     a3, n] + S2[a1, SP[a1, a4], SP[a3, a5], a2, n] + 
    S2[a1, SP[a1, a5], a3, SP[a2, a4], n] + S2[a1, SP[a1, a5], a4, 
     SP[a2, a3], n] + S2[a1, SP[a1, a5], SP[a2, a3], a4, n] + 
    S2[a1, SP[a1, a5], SP[a2, a4], a3, n] + S2[a1, a2, n]*
     S2[a3, a5, a1, a4, n] - S2[a3, a5, SP[a1, a1], SP[a2, a4], n] - 
    S2[a3, SP[a1, a5], a1, SP[a2, a4], n] - S2[a3, SP[a1, a5], SP[a1, a2], 
     a4, n] + S2[SP[a1, a1], a2, a4, SP[a3, a5], n] + 
    S2[SP[a1, a1], a2, SP[a3, a4], a5, n] + S2[SP[a1, a1], a3, a4, 
     SP[a2, a5], n] + S2[SP[a1, a1], a3, SP[a2, a4], a5, n] + 
    S2[SP[a1, a1], a4, a2, SP[a3, a5], n] + S2[SP[a1, a1], a4, a3, 
     SP[a2, a5], n] + S2[SP[a1, a1], a4, SP[a2, a5], a3, n] + 
    S2[SP[a1, a1], a4, SP[a3, a5], a2, n] + S2[SP[a1, a1], a5, a3, 
     SP[a2, a4], n] + S2[SP[a1, a1], a5, a4, SP[a2, a3], n] + 
    S2[SP[a1, a1], a5, SP[a2, a3], a4, n] + S2[SP[a1, a1], a5, SP[a2, a4], 
     a3, n] + S2[SP[a1, a1], SP[a2, a4], a3, a5, n] + 
    S2[SP[a1, a1], SP[a2, a4], a5, a3, n] + S2[SP[a1, a1], SP[a2, a5], a3, 
     a4, n] + S2[SP[a1, a1], SP[a2, a5], a4, a3, n] + 
    S2[SP[a1, a1], SP[a3, a4], a2, a5, n] + S2[SP[a1, a1], SP[a3, a4], a5, 
     a2, n] - S2[SP[a1, a3], a5, a1, SP[a2, a4], n] - 
    S2[SP[a1, a3], a5, SP[a1, a2], a4, n] - S2[SP[a1, a3], SP[a2, a5], a1, 
     a4, n] + 2*S2[a5, n]*S2[a1, a1, a2, a3, a4, n] + 
    2*S2[a1, a1, a2, a3, SP[a4, a5], n] + 
    2*S2[a5, n]*S2[a1, a1, a2, a4, a3, n] - 
    2*S2[a1, a1, a2, SP[a3, a4], a5, n] + 
    2*S2[a1, a1, a2, SP[a3, a5], a4, n] + 
    2*S2[a1, a1, a2, SP[a4, a5], a3, n] + 
    2*S2[a5, n]*S2[a1, a1, a3, a2, a4, n] + 
    2*S2[a1, a1, a3, a2, SP[a4, a5], n] + 
    2*S2[a5, n]*S2[a1, a1, a3, a4, a2, n] - 
    2*S2[a2, n]*S2[a1, a1, a3, a5, a4, n] - 
    2*S2[a1, a1, a3, a5, SP[a2, a4], n] - 
    2*S2[a1, a1, a3, SP[a2, a4], a5, n] + 
    2*S2[a1, a1, a3, SP[a4, a5], a2, n] + 
    2*S2[a5, n]*S2[a1, a1, a4, a2, a3, n] + 
    2*S2[a5, n]*S2[a1, a1, a4, a3, a2, n] - 
    2*S2[a1, a1, a5, a3, SP[a2, a4], n] - 
    2*S2[a1, a1, a5, a4, SP[a2, a3], n] - 
    2*S2[a1, a1, a5, SP[a2, a3], a4, n] - 
    2*S2[a1, a1, a5, SP[a2, a4], a3, n] - 
    2*S2[a1, a1, SP[a2, a3], a5, a4, n] - 
    2*S2[a1, a1, SP[a2, a4], a3, a5, n] - 
    2*S2[a1, a1, SP[a2, a4], a5, a3, n] - 
    2*S2[a1, a1, SP[a3, a4], a2, a5, n] - 
    2*S2[a1, a1, SP[a3, a4], a5, a2, n] + 
    2*S2[a1, a1, SP[a3, a5], a2, a4, n] + 
    2*S2[a1, a1, SP[a3, a5], a4, a2, n] + 
    2*S2[a1, a1, SP[a4, a5], a2, a3, n] + 
    2*S2[a1, a1, SP[a4, a5], a3, a2, n] + 
    S2[a5, n]*S2[a1, a2, a1, a3, a4, n] + S2[a1, a2, a1, a3, SP[a4, a5], n] + 
    S2[a5, n]*S2[a1, a2, a1, a4, a3, n] - S2[a1, a2, a1, SP[a3, a4], a5, n] + 
    S2[a1, a2, a1, SP[a3, a5], a4, n] + S2[a1, a2, a1, SP[a4, a5], a3, n] + 
    S2[a5, n]*S2[a1, a2, a3, a1, a4, n] + S2[a1, a2, a3, a1, SP[a4, a5], n] + 
    S2[a1, a2, a3, SP[a1, a5], a4, n] - S2[a3, n]*S2[a1, a2, a5, a1, a4, n] - 
    S2[a1, a2, a5, a1, SP[a3, a4], n] - S2[a1, a2, a5, SP[a1, a3], a4, n] - 
    S2[a1, a2, SP[a1, a3], a4, a5, n] + S2[a1, a2, SP[a1, a5], a3, a4, n] + 
    S2[a1, a2, SP[a1, a5], a4, a3, n] + S2[a5, n]*S2[a1, a3, a1, a2, a4, n] + 
    S2[a1, a3, a1, a2, SP[a4, a5], n] + S2[a5, n]*S2[a1, a3, a1, a4, a2, n] - 
    S2[a2, n]*S2[a1, a3, a1, a5, a4, n] - S2[a1, a3, a1, a5, SP[a2, a4], n] - 
    S2[a1, a3, a1, SP[a2, a4], a5, n] + S2[a1, a3, a1, SP[a4, a5], a2, n] + 
    S2[a5, n]*S2[a1, a3, a2, a1, a4, n] + S2[a1, a3, a2, a1, SP[a4, a5], n] + 
    S2[a1, a3, a2, SP[a1, a5], a4, n] - S2[a2, n]*S2[a1, a3, a5, a1, a4, n] - 
    S2[a1, a3, SP[a1, a2], a4, a5, n] - S2[a1, a3, SP[a1, a2], a5, a4, n] + 
    S2[a1, a3, SP[a1, a5], a2, a4, n] + S2[a1, a3, SP[a1, a5], a4, a2, n] + 
    S2[a1, a3, SP[a2, a5], a1, a4, n] + S2[a5, n]*S2[a1, a4, a1, a2, a3, n] + 
    S2[a5, n]*S2[a1, a4, a1, a3, a2, n] - 
    S2[a3, n]*S2[a1, a5, a1, a2, a4, n] - S2[a1, a5, a1, a2, SP[a3, a4], n] - 
    S2[a1, a5, a1, a3, SP[a2, a4], n] - S2[a3, n]*S2[a1, a5, a1, a4, a2, n] - 
    2*S2[a1, a5, a1, a4, SP[a2, a3], n] - 
    2*S2[a1, a5, a1, SP[a2, a3], a4, n] - S2[a1, a5, a1, SP[a2, a4], a3, n] - 
    S2[a1, a5, a1, SP[a3, a4], a2, n] - S2[a3, n]*S2[a1, a5, a2, a1, a4, n] - 
    S2[a1, a5, a2, a1, SP[a3, a4], n] - S2[a1, a5, a2, SP[a1, a3], a4, n] - 
    S2[a1, a5, a3, a1, SP[a2, a4], n] - S2[a1, a5, a3, SP[a1, a4], a2, n] - 
    S2[a1, a5, a4, a1, SP[a2, a3], n] - S2[a1, a5, a4, SP[a1, a3], a2, n] - 
    2*S2[a1, a5, SP[a1, a3], a2, a4, n] - 
    2*S2[a1, a5, SP[a1, a3], a4, a2, n] - S2[a1, a5, SP[a1, a4], a2, a3, n] - 
    S2[a1, a5, SP[a1, a4], a3, a2, n] - S2[a1, a5, SP[a2, a3], a1, a4, n] - 
    S2[a1, SP[a1, a2], a3, a4, a5, n] - 2*S2[a1, SP[a1, a2], a3, a5, a4, n] - 
    S2[a1, SP[a1, a2], a4, a3, a5, n] - S2[a1, SP[a1, a2], a4, a5, a3, n] - 
    S2[a1, SP[a1, a2], a5, a3, a4, n] - S2[a1, SP[a1, a2], a5, a4, a3, n] - 
    S2[a1, SP[a1, a3], a2, a4, a5, n] - S2[a1, SP[a1, a3], a4, a2, a5, n] - 
    S2[a1, SP[a1, a3], a4, a5, a2, n] - S2[a1, SP[a1, a4], a2, a3, a5, n] - 
    S2[a1, SP[a1, a4], a2, a5, a3, n] - S2[a1, SP[a1, a4], a3, a2, a5, n] - 
    S2[a1, SP[a1, a4], a3, a5, a2, n] - S2[a1, SP[a1, a4], a5, a2, a3, n] - 
    S2[a1, SP[a1, a4], a5, a3, a2, n] + S2[a1, SP[a1, a5], a2, a3, a4, n] + 
    S2[a1, SP[a1, a5], a2, a4, a3, n] + S2[a1, SP[a1, a5], a3, a2, a4, n] + 
    S2[a1, SP[a1, a5], a3, a4, a2, n] + S2[a1, SP[a1, a5], a4, a2, a3, n] + 
    S2[a1, SP[a1, a5], a4, a3, a2, n] - S2[a1, SP[a2, a3], a1, a5, a4, n] - 
    S2[a1, SP[a2, a3], a5, a1, a4, n] + S2[a1, SP[a2, a5], a1, a3, a4, n] + 
    S2[a1, SP[a2, a5], a1, a4, a3, n] + S2[a1, SP[a2, a5], a3, a1, a4, n] + 
    S2[a1, SP[a4, a5], a1, a2, a3, n] + S2[a1, SP[a4, a5], a1, a3, a2, n] + 
    S2[a1, n]*S2[a2, a1, a3, a5, a4, n] + S2[a2, a1, a3, a5, SP[a1, a4], n] + 
    S2[a2, a1, a3, SP[a1, a5], a4, n] + S2[a2, a1, SP[a1, a3], a5, a4, n] + 
    S2[a2, SP[a1, a1], a3, a5, a4, n] + S2[a3, a1, a5, a1, SP[a2, a4], n] + 
    S2[a3, a1, a5, SP[a1, a2], a4, n] + S2[a3, a1, SP[a2, a5], a1, a4, n] + 
    2*S2[a3, a5, a1, a1, SP[a2, a4], n] + S2[a3, a5, a1, SP[a1, a2], a4, n] + 
    S2[a3, a5, a1, SP[a1, a4], a2, n] + S2[a3, a5, SP[a1, a1], a2, a4, n] + 
    S2[a3, a5, SP[a1, a1], a4, a2, n] + S2[a3, SP[a1, a5], a1, a2, a4, n] + 
    S2[a3, SP[a1, a5], a1, a4, a2, n] + S2[a3, SP[a1, a5], a2, a1, a4, n] - 
    2*S2[a3, n]*S2[a5, a1, a1, a2, a4, n] - 
    2*S2[a5, a1, a1, a2, SP[a3, a4], n] - 
    2*S2[a3, n]*S2[a5, a1, a1, a4, a2, n] - 
    2*S2[a5, a1, a1, a4, SP[a2, a3], n] - 
    2*S2[a5, a1, a1, SP[a2, a3], a4, n] - 
    2*S2[a5, a1, a1, SP[a3, a4], a2, n] - 
    S2[a3, n]*S2[a5, a1, a2, a1, a4, n] - S2[a5, a1, a2, a1, SP[a3, a4], n] - 
    S2[a5, a1, a2, SP[a1, a3], a4, n] - S2[a3, n]*S2[a5, a1, a4, a1, a2, n] - 
    S2[a5, a1, a4, a1, SP[a2, a3], n] - S2[a5, a1, a4, SP[a1, a3], a2, n] - 
    2*S2[a5, a1, SP[a1, a3], a2, a4, n] - 
    2*S2[a5, a1, SP[a1, a3], a4, a2, n] - S2[a5, a1, SP[a2, a3], a1, a4, n] - 
    S2[a5, a1, SP[a3, a4], a1, a2, n] + S2[a1, n]*S2[a5, a3, a1, a2, a4, n] + 
    S2[a5, a3, a1, a2, SP[a1, a4], n] + S2[a1, n]*S2[a5, a3, a1, a4, a2, n] + 
    S2[a5, a3, a1, a4, SP[a1, a2], n] + S2[a5, a3, a1, SP[a1, a2], a4, n] + 
    S2[a5, a3, a1, SP[a1, a4], a2, n] + S2[a1, n]*S2[a5, a3, a4, a1, a2, n] + 
    S2[a5, a3, a4, a1, SP[a1, a2], n] + S2[a5, a3, a4, SP[a1, a1], a2, n] + 
    S2[a5, a3, SP[a1, a1], a2, a4, n] + S2[a5, a3, SP[a1, a1], a4, a2, n] + 
    S2[a5, a3, SP[a1, a4], a1, a2, n] + S2[a1, n]*S2[a5, a4, a3, a1, a2, n] + 
    S2[a5, a4, a3, a1, SP[a1, a2], n] + S2[a5, a4, a3, SP[a1, a1], a2, n] + 
    S2[a5, a4, SP[a1, a3], a1, a2, n] - S2[a5, SP[a1, a3], a1, a2, a4, n] - 
    S2[a5, SP[a1, a3], a1, a4, a2, n] - S2[a5, SP[a1, a3], a2, a1, a4, n] + 
    S2[a5, SP[a1, a4], a3, a1, a2, n] - S2[SP[a1, a1], a2, a3, a4, a5, n] - 
    S2[SP[a1, a1], a2, a4, a3, a5, n] - S2[SP[a1, a1], a2, a4, a5, a3, n] - 
    S2[SP[a1, a1], a2, a5, a3, a4, n] - S2[SP[a1, a1], a2, a5, a4, a3, n] - 
    S2[SP[a1, a1], a3, a2, a4, a5, n] - S2[SP[a1, a1], a3, a4, a2, a5, n] - 
    S2[SP[a1, a1], a3, a4, a5, a2, n] - S2[SP[a1, a1], a4, a2, a3, a5, n] - 
    S2[SP[a1, a1], a4, a2, a5, a3, n] - S2[SP[a1, a1], a4, a3, a2, a5, n] - 
    S2[SP[a1, a1], a4, a3, a5, a2, n] - S2[SP[a1, a1], a4, a5, a2, a3, n] - 
    S2[SP[a1, a1], a4, a5, a3, a2, n] - S2[SP[a1, a1], a5, a2, a3, a4, n] - 
    S2[SP[a1, a1], a5, a2, a4, a3, n] - S2[SP[a1, a1], a5, a3, a2, a4, n] - 
    S2[SP[a1, a1], a5, a3, a4, a2, n] - S2[SP[a1, a1], a5, a4, a2, a3, n] - 
    S2[SP[a1, a1], a5, a4, a3, a2, n] - S2[SP[a1, a2], a1, a3, a5, a4, n] - 
    S2[SP[a1, a2], a3, a1, a5, a4, n] - S2[SP[a1, a2], a3, a5, a1, a4, n] + 
    2*S2[SP[a1, a5], a1, a2, a3, a4, n] + 
    2*S2[SP[a1, a5], a1, a2, a4, a3, n] + 
    2*S2[SP[a1, a5], a1, a3, a2, a4, n] + 
    2*S2[SP[a1, a5], a1, a3, a4, a2, n] + 
    2*S2[SP[a1, a5], a1, a4, a2, a3, n] + 
    2*S2[SP[a1, a5], a1, a4, a3, a2, n] + S2[SP[a1, a5], a2, a1, a3, a4, n] + 
    S2[SP[a1, a5], a2, a1, a4, a3, n] + S2[SP[a1, a5], a2, a3, a1, a4, n] + 
    2*S2[SP[a1, a5], a3, a1, a2, a4, n] + 
    2*S2[SP[a1, a5], a3, a1, a4, a2, n] + S2[SP[a1, a5], a3, a2, a1, a4, n] + 
    S2[SP[a1, a5], a3, a4, a1, a2, n] + S2[SP[a1, a5], a4, a1, a2, a3, n] + 
    S2[SP[a1, a5], a4, a1, a3, a2, n] + S2[SP[a1, a5], a4, a3, a1, a2, n] - 
    2*S2[SP[a3, a5], a1, a1, a2, a4, n] - 
    2*S2[SP[a3, a5], a1, a1, a4, a2, n] - S2[SP[a3, a5], a1, a2, a1, a4, n] - 
    S2[SP[a3, a5], a1, a4, a1, a2, n] - S2[a5, a3, a1, a2, a4, a1, n] - 
    S2[a5, a3, a1, a4, a1, a2, n] - S2[a5, a3, a1, a4, a2, a1, n] - 
    2*S2[a5, a3, a4, a1, a1, a2, n] - S2[a5, a3, a4, a1, a2, a1, n] - 
    S2[a5, a4, a1, a3, a1, a2, n] - 2*S2[a5, a4, a3, a1, a1, a2, n] - 
    S2[a5, a4, a3, a1, a2, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a2_, a1_, a4_, a1_, a3_, a5_, n_] :> 
  -(S2[a1, a2, a4, n]*S2[a1, a3, a5, n]) - S2[a1, a3, a5, n]*
     S2[a1, a4, a2, n] - S2[SP[a1, a1], SP[a2, a3], SP[a4, a5], n] - 
    S2[SP[a1, a1], SP[a3, a4], SP[a2, a5], n] + 
    2*S2[a3, a5, n]*S2[a1, a1, a2, a4, n] + 2*S2[a3, a5, n]*
     S2[a1, a1, a4, a2, n] + S2[a3, a5, n]*S2[a1, a2, a1, a4, n] - 
    S2[a1, a2, SP[a1, a3], SP[a4, a5], n] + S2[a1, a2, n]*
     S2[a1, a3, a4, a5, n] + S2[a1, a2, n]*S2[a1, a3, a5, a4, n] - 
    S2[a1, a3, SP[a1, a4], SP[a2, a5], n] - S2[a1, a3, SP[a1, a5], 
     SP[a2, a4], n] + S2[a1, a2, n]*S2[a1, a4, a3, a5, n] + 
    S2[a1, a2, n]*S2[a1, a4, a5, a3, n] - S2[a1, a4, SP[a1, a3], SP[a2, a5], 
     n] - S2[a1, a4, SP[a1, a5], SP[a2, a3], n] + 
    S2[a1, a2, n]*S2[a1, a5, a3, a4, n] + S2[a1, a2, n]*
     S2[a1, a5, a4, a3, n] - S2[a1, a5, SP[a1, a3], SP[a2, a4], n] - 
    S2[a1, a5, SP[a1, a4], SP[a2, a3], n] + S2[a1, SP[a1, a2], a3, 
     SP[a4, a5], n] + S2[a1, SP[a1, a2], SP[a3, a4], a5, n] - 
    S2[a1, SP[a1, a3], a2, SP[a4, a5], n] - 
    2*S2[a1, SP[a1, a3], a4, SP[a2, a5], n] - S2[a1, SP[a1, a3], a5, 
     SP[a2, a4], n] - S2[a1, SP[a1, a3], SP[a2, a4], a5, n] - 
    2*S2[a1, SP[a1, a3], SP[a2, a5], a4, n] - S2[a1, SP[a1, a3], SP[a4, a5], 
     a2, n] - S2[a1, SP[a1, a4], a5, SP[a2, a3], n] - 
    S2[a1, SP[a1, a4], SP[a2, a5], a3, n] - S2[a1, SP[a1, a5], a3, 
     SP[a2, a4], n] - S2[a1, SP[a1, a5], a4, SP[a2, a3], n] - 
    S2[a1, SP[a1, a5], SP[a2, a3], a4, n] - S2[a1, SP[a1, a5], SP[a2, a4], 
     a3, n] - S2[a1, SP[a2, a3], a1, SP[a4, a5], n] - 
    S2[a1, SP[a2, a3], SP[a1, a5], a4, n] - S2[a1, a2, n]*
     S2[a3, a5, a1, a4, n] + S2[a3, a5, SP[a1, a1], SP[a2, a4], n] + 
    S2[a3, SP[a1, a5], a1, SP[a2, a4], n] + S2[a3, SP[a1, a5], SP[a1, a2], 
     a4, n] + S2[SP[a1, a1], a2, a3, SP[a4, a5], n] + 
    S2[SP[a1, a1], a2, SP[a3, a4], a5, n] + S2[SP[a1, a1], a3, a2, 
     SP[a4, a5], n] - S2[SP[a1, a1], a3, a5, SP[a2, a4], n] - 
    S2[SP[a1, a1], a3, SP[a2, a4], a5, n] + S2[SP[a1, a1], a3, SP[a4, a5], 
     a2, n] - S2[SP[a1, a1], a4, a5, SP[a2, a3], n] - 
    S2[SP[a1, a1], a4, SP[a2, a5], a3, n] - S2[SP[a1, a1], a5, a3, 
     SP[a2, a4], n] - S2[SP[a1, a1], a5, a4, SP[a2, a3], n] - 
    S2[SP[a1, a1], a5, SP[a2, a3], a4, n] - S2[SP[a1, a1], a5, SP[a2, a4], 
     a3, n] - S2[SP[a1, a1], SP[a2, a4], a3, a5, n] - 
    S2[SP[a1, a1], SP[a2, a4], a5, a3, n] - S2[SP[a1, a1], SP[a2, a5], a3, 
     a4, n] - S2[SP[a1, a1], SP[a2, a5], a4, a3, n] + 
    S2[SP[a1, a1], SP[a3, a4], a2, a5, n] + S2[SP[a1, a1], SP[a3, a4], a5, 
     a2, n] - 2*S2[SP[a1, a3], a1, a2, SP[a4, a5], n] - 
    2*S2[SP[a1, a3], a1, a4, SP[a2, a5], n] - 
    2*S2[SP[a1, a3], a1, SP[a2, a5], a4, n] - 
    2*S2[SP[a1, a3], a1, SP[a4, a5], a2, n] - S2[SP[a1, a3], a2, a1, 
     SP[a4, a5], n] - S2[SP[a1, a3], a2, SP[a1, a5], a4, n] + 
    S2[SP[a1, a3], a5, a1, SP[a2, a4], n] + S2[SP[a1, a3], a5, SP[a1, a2], 
     a4, n] - 2*S2[SP[a1, a3], SP[a1, a5], a2, a4, n] - 
    2*S2[SP[a1, a3], SP[a1, a5], a4, a2, n] - 
    2*S2[a3, n]*S2[a1, a1, a2, a4, a5, n] - 
    2*S2[a1, a1, a2, a4, SP[a3, a5], n] - 
    2*S2[a3, n]*S2[a1, a1, a2, a5, a4, n] - 
    2*S2[a1, a1, a2, a5, SP[a3, a4], n] - 
    2*S2[a1, a1, a2, SP[a3, a4], a5, n] - 
    2*S2[a1, a1, a2, SP[a3, a5], a4, n] + 
    2*S2[a1, a1, a3, a4, SP[a2, a5], n] + 
    2*S2[a1, a1, a3, a5, SP[a2, a4], n] + 
    2*S2[a1, a1, a3, SP[a2, a4], a5, n] + 
    2*S2[a1, a1, a3, SP[a2, a5], a4, n] - 
    2*S2[a3, n]*S2[a1, a1, a4, a2, a5, n] - 
    2*S2[a1, a1, a4, a2, SP[a3, a5], n] + 
    2*S2[a1, a1, a4, a3, SP[a2, a5], n] - 
    2*S2[a3, n]*S2[a1, a1, a4, a5, a2, n] + 
    2*S2[a1, a1, a4, SP[a2, a5], a3, n] - 
    2*S2[a1, a1, a4, SP[a3, a5], a2, n] - 
    2*S2[a3, n]*S2[a1, a1, a5, a2, a4, n] - 
    2*S2[a1, a1, a5, a2, SP[a3, a4], n] + 
    2*S2[a1, a1, a5, a3, SP[a2, a4], n] - 
    2*S2[a3, n]*S2[a1, a1, a5, a4, a2, n] + 
    2*S2[a1, a1, a5, SP[a2, a4], a3, n] - 
    2*S2[a1, a1, a5, SP[a3, a4], a2, n] + 
    2*S2[a1, a1, SP[a2, a4], a3, a5, n] + 
    2*S2[a1, a1, SP[a2, a4], a5, a3, n] + 
    2*S2[a1, a1, SP[a2, a5], a3, a4, n] + 
    2*S2[a1, a1, SP[a2, a5], a4, a3, n] - 
    2*S2[a1, a1, SP[a3, a4], a2, a5, n] - 
    2*S2[a1, a1, SP[a3, a4], a5, a2, n] - 
    2*S2[a1, a1, SP[a3, a5], a2, a4, n] - 
    2*S2[a1, a1, SP[a3, a5], a4, a2, n] - 
    S2[a3, n]*S2[a1, a2, a1, a4, a5, n] - S2[a1, a2, a1, a4, SP[a3, a5], n] - 
    S2[a3, n]*S2[a1, a2, a1, a5, a4, n] - S2[a1, a2, a1, a5, SP[a3, a4], n] - 
    S2[a1, a2, a1, SP[a3, a4], a5, n] - S2[a1, a2, a1, SP[a3, a5], a4, n] + 
    S2[a1, a2, a3, a1, SP[a4, a5], n] + S2[a1, a2, a3, SP[a1, a5], a4, n] - 
    S2[a1, a2, SP[a1, a4], a3, a5, n] + S2[a1, a3, a1, a2, SP[a4, a5], n] + 
    2*S2[a1, a3, a1, a4, SP[a2, a5], n] + S2[a1, a3, a1, a5, SP[a2, a4], n] + 
    S2[a1, a3, a1, SP[a2, a4], a5, n] + 2*S2[a1, a3, a1, SP[a2, a5], a4, n] + 
    S2[a1, a3, a1, SP[a4, a5], a2, n] + S2[a1, a3, a2, a1, SP[a4, a5], n] + 
    S2[a1, a3, a2, SP[a1, a5], a4, n] - S2[a5, n]*S2[a1, a3, a4, a1, a2, n] - 
    S2[a1, a3, a5, SP[a1, a2], a4, n] + S2[a1, a3, a5, SP[a1, a4], a2, n] + 
    S2[a1, a3, SP[a1, a4], a2, a5, n] + S2[a1, a3, SP[a1, a4], a5, a2, n] + 
    2*S2[a1, a3, SP[a1, a5], a2, a4, n] + 
    2*S2[a1, a3, SP[a1, a5], a4, a2, n] - S2[a1, a3, SP[a4, a5], a1, a2, n] - 
    S2[a5, n]*S2[a1, a4, a1, a2, a3, n] - S2[a1, a4, a1, a2, SP[a3, a5], n] - 
    S2[a5, n]*S2[a1, a4, a1, a3, a2, n] + 
    S2[a2, n]*S2[a1, a4, a1, a3, a5, n] + S2[a1, a4, a1, a5, SP[a2, a3], n] + 
    S2[a1, a4, a1, SP[a2, a3], a5, n] - S2[a1, a4, a1, SP[a3, a5], a2, n] - 
    S2[a5, n]*S2[a1, a4, a3, a1, a2, n] + S2[a1, a4, a5, a1, SP[a2, a3], n] + 
    S2[a1, a4, a5, SP[a1, a3], a2, n] + S2[a1, a4, SP[a1, a3], a2, a5, n] + 
    S2[a1, a4, SP[a1, a3], a5, a2, n] - S2[a1, a4, SP[a3, a5], a1, a2, n] - 
    S2[a3, n]*S2[a1, a5, a1, a2, a4, n] - S2[a1, a5, a1, a2, SP[a3, a4], n] + 
    S2[a1, a5, a1, a3, SP[a2, a4], n] - S2[a3, n]*S2[a1, a5, a1, a4, a2, n] + 
    S2[a1, a5, a1, SP[a2, a4], a3, n] - S2[a1, a5, a1, SP[a3, a4], a2, n] + 
    S2[a1, a5, a3, a1, SP[a2, a4], n] + S2[a1, a5, a3, SP[a1, a4], a2, n] + 
    S2[a1, a5, a4, a1, SP[a2, a3], n] + S2[a1, a5, a4, SP[a1, a3], a2, n] + 
    S2[a1, a5, SP[a1, a4], a2, a3, n] + S2[a1, a5, SP[a1, a4], a3, a2, n] + 
    S2[a1, SP[a1, a2], a4, a5, a3, n] + S2[a1, SP[a1, a2], a5, a3, a4, n] + 
    S2[a1, SP[a1, a2], a5, a4, a3, n] + S2[a1, SP[a1, a4], a2, a5, a3, n] + 
    S2[a1, SP[a1, a4], a5, a2, a3, n] + S2[a1, SP[a1, a4], a5, a3, a2, n] + 
    S2[a1, SP[a1, a5], a2, a3, a4, n] + S2[a1, SP[a1, a5], a2, a4, a3, n] + 
    S2[a1, SP[a1, a5], a3, a2, a4, n] + S2[a1, SP[a1, a5], a3, a4, a2, n] + 
    S2[a1, SP[a1, a5], a4, a2, a3, n] + S2[a1, SP[a1, a5], a4, a3, a2, n] + 
    S2[a1, SP[a2, a4], a1, a3, a5, n] - S2[a1, SP[a3, a5], a1, a2, a4, n] - 
    S2[a1, SP[a3, a5], a1, a4, a2, n] - S2[a1, SP[a3, a5], a4, a1, a2, n] - 
    S2[a1, SP[a4, a5], a1, a2, a3, n] - S2[a1, SP[a4, a5], a1, a3, a2, n] - 
    S2[a1, SP[a4, a5], a3, a1, a2, n] + 2*S2[a3, a1, a1, a2, SP[a4, a5], n] + 
    2*S2[a3, a1, a1, a4, SP[a2, a5], n] + 
    2*S2[a3, a1, a1, SP[a2, a5], a4, n] + 
    2*S2[a3, a1, a1, SP[a4, a5], a2, n] + S2[a3, a1, a2, a1, SP[a4, a5], n] + 
    S2[a3, a1, a2, SP[a1, a5], a4, n] - S2[a3, a1, a5, a1, SP[a2, a4], n] - 
    S2[a3, a1, a5, SP[a1, a2], a4, n] + 2*S2[a3, a1, SP[a1, a5], a2, a4, n] + 
    2*S2[a3, a1, SP[a1, a5], a4, a2, n] - 
    2*S2[a3, a5, a1, a1, SP[a2, a4], n] - S2[a3, a5, a1, SP[a1, a2], a4, n] - 
    S2[a3, a5, a1, SP[a1, a4], a2, n] - S2[a3, a5, SP[a1, a1], a2, a4, n] - 
    S2[a3, a5, SP[a1, a1], a4, a2, n] + S2[a3, SP[a1, a5], a1, a2, a4, n] + 
    S2[a3, SP[a1, a5], a1, a4, a2, n] + S2[a3, n]*S2[a5, a1, a4, a1, a2, n] + 
    S2[a5, a1, a4, a1, SP[a2, a3], n] + S2[a5, a1, a4, SP[a1, a3], a2, n] + 
    S2[a5, a1, SP[a3, a4], a1, a2, n] + S2[a5, SP[a1, a3], a4, a1, a2, n] + 
    S2[SP[a1, a1], a2, a4, a5, a3, n] + S2[SP[a1, a1], a2, a5, a3, a4, n] + 
    S2[SP[a1, a1], a2, a5, a4, a3, n] + S2[SP[a1, a1], a4, a2, a5, a3, n] + 
    S2[SP[a1, a1], a4, a5, a2, a3, n] + S2[SP[a1, a1], a4, a5, a3, a2, n] + 
    S2[SP[a1, a1], a5, a2, a3, a4, n] + S2[SP[a1, a1], a5, a2, a4, a3, n] + 
    S2[SP[a1, a1], a5, a3, a2, a4, n] + S2[SP[a1, a1], a5, a3, a4, a2, n] + 
    S2[SP[a1, a1], a5, a4, a2, a3, n] + S2[SP[a1, a1], a5, a4, a3, a2, n] + 
    S2[SP[a1, a2], a4, a1, a3, a5, n] - S2[SP[a1, a5], a3, a4, a1, a2, n] - 
    S2[SP[a1, a5], a4, a1, a2, a3, n] - S2[SP[a1, a5], a4, a1, a3, a2, n] - 
    S2[SP[a1, a5], a4, a3, a1, a2, n] + S2[SP[a3, a5], a1, a4, a1, a2, n] - 
    S2[a5, a3, a1, a4, a1, a2, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a2_, a1_, a4_, a1_, a5_, a3_, n_] :> 
  -(S2[a1, a2, a4, n]*S2[a1, a5, a3, n]) - S2[a1, a4, a2, n]*
     S2[a1, a5, a3, n] - S2[SP[a1, a1], SP[a2, a5], SP[a3, a4], n] - 
    S2[SP[a1, a1], SP[a4, a5], SP[a2, a3], n] - 
    2*S2[a3, a5, n]*S2[a1, a1, a2, a4, n] - 2*S2[a3, a5, n]*
     S2[a1, a1, a4, a2, n] + 2*S2[a1, a1, SP[a2, a3], SP[a4, a5], n] + 
    2*S2[a1, a1, SP[a2, a5], SP[a3, a4], n] + 
    2*S2[a1, a1, SP[a3, a4], SP[a2, a5], n] + 
    2*S2[a1, a1, SP[a4, a5], SP[a2, a3], n] - 
    S2[a3, a5, n]*S2[a1, a2, a1, a4, n] + S2[a1, a2, SP[a1, a3], SP[a4, a5], 
     n] + S2[a1, SP[a1, a2], a5, SP[a3, a4], n] + 
    S2[a1, SP[a1, a2], SP[a4, a5], a3, n] + 
    2*S2[a1, SP[a1, a3], a2, SP[a4, a5], n] + 
    2*S2[a1, SP[a1, a3], a4, SP[a2, a5], n] + 
    2*S2[a1, SP[a1, a3], SP[a2, a5], a4, n] + 
    2*S2[a1, SP[a1, a3], SP[a4, a5], a2, n] + S2[a1, SP[a1, a4], a5, 
     SP[a2, a3], n] + S2[a1, SP[a1, a4], SP[a2, a5], a3, n] + 
    S2[a1, SP[a1, a5], a2, SP[a3, a4], n] + S2[a1, SP[a1, a5], a4, 
     SP[a2, a3], n] + S2[a1, SP[a1, a5], SP[a2, a3], a4, n] + 
    S2[a1, SP[a1, a5], SP[a3, a4], a2, n] + S2[a1, SP[a2, a3], a1, 
     SP[a4, a5], n] + S2[a1, SP[a2, a3], SP[a1, a5], a4, n] + 
    S2[a1, a2, n]*S2[a3, a5, a1, a4, n] - S2[a3, a5, SP[a1, a1], SP[a2, a4], 
     n] - S2[a3, SP[a1, a5], a1, SP[a2, a4], n] - 
    S2[a3, SP[a1, a5], SP[a1, a2], a4, n] + S2[SP[a1, a1], a2, a5, 
     SP[a3, a4], n] + S2[SP[a1, a1], a2, SP[a4, a5], a3, n] + 
    S2[SP[a1, a1], a4, a5, SP[a2, a3], n] + S2[SP[a1, a1], a4, SP[a2, a5], 
     a3, n] + S2[SP[a1, a1], a5, a2, SP[a3, a4], n] + 
    S2[SP[a1, a1], a5, a4, SP[a2, a3], n] + S2[SP[a1, a1], a5, SP[a2, a3], 
     a4, n] + S2[SP[a1, a1], a5, SP[a3, a4], a2, n] + 
    S2[SP[a1, a1], SP[a2, a5], a3, a4, n] + S2[SP[a1, a1], SP[a2, a5], a4, 
     a3, n] + S2[SP[a1, a1], SP[a4, a5], a2, a3, n] + 
    S2[SP[a1, a1], SP[a4, a5], a3, a2, n] + 
    2*S2[SP[a1, a3], a1, a2, SP[a4, a5], n] + 
    2*S2[SP[a1, a3], a1, a4, SP[a2, a5], n] + 
    2*S2[SP[a1, a3], a1, SP[a2, a5], a4, n] + 
    2*S2[SP[a1, a3], a1, SP[a4, a5], a2, n] + S2[SP[a1, a3], a2, a1, 
     SP[a4, a5], n] + S2[SP[a1, a3], a2, SP[a1, a5], a4, n] - 
    S2[SP[a1, a3], a5, a1, SP[a2, a4], n] - S2[SP[a1, a3], a5, SP[a1, a2], 
     a4, n] + 2*S2[SP[a1, a3], SP[a1, a5], a2, a4, n] + 
    2*S2[SP[a1, a3], SP[a1, a5], a4, a2, n] - 
    2*S2[a1, a1, a2, a3, SP[a4, a5], n] + 
    2*S2[a3, n]*S2[a1, a1, a2, a4, a5, n] + 
    2*S2[a1, a1, a2, a4, SP[a3, a5], n] + 
    2*S2[a3, n]*S2[a1, a1, a2, a5, a4, n] + 
    2*S2[a1, a1, a2, SP[a3, a5], a4, n] - 
    2*S2[a1, a1, a2, SP[a4, a5], a3, n] - 
    2*S2[a1, a1, a3, a2, SP[a4, a5], n] - 
    2*S2[a1, a1, a3, a4, SP[a2, a5], n] - 
    2*S2[a1, a1, a3, SP[a2, a5], a4, n] - 
    2*S2[a1, a1, a3, SP[a4, a5], a2, n] + 
    2*S2[a3, n]*S2[a1, a1, a4, a2, a5, n] + 
    2*S2[a1, a1, a4, a2, SP[a3, a5], n] - 
    2*S2[a1, a1, a4, a3, SP[a2, a5], n] + 
    2*S2[a3, n]*S2[a1, a1, a4, a5, a2, n] - 
    2*S2[a1, a1, a4, SP[a2, a5], a3, n] + 
    2*S2[a1, a1, a4, SP[a3, a5], a2, n] + 
    2*S2[a3, n]*S2[a1, a1, a5, a2, a4, n] + 
    2*S2[a3, n]*S2[a1, a1, a5, a4, a2, n] - 
    2*S2[a1, a1, SP[a2, a5], a3, a4, n] - 
    2*S2[a1, a1, SP[a2, a5], a4, a3, n] + 
    2*S2[a1, a1, SP[a3, a5], a2, a4, n] + 
    2*S2[a1, a1, SP[a3, a5], a4, a2, n] - 
    2*S2[a1, a1, SP[a4, a5], a2, a3, n] - 
    2*S2[a1, a1, SP[a4, a5], a3, a2, n] - S2[a1, a2, a1, a3, SP[a4, a5], n] + 
    S2[a3, n]*S2[a1, a2, a1, a4, a5, n] + S2[a1, a2, a1, a4, SP[a3, a5], n] + 
    S2[a3, n]*S2[a1, a2, a1, a5, a4, n] + S2[a1, a2, a1, SP[a3, a5], a4, n] - 
    S2[a1, a2, a1, SP[a4, a5], a3, n] - S2[a1, a2, a3, a1, SP[a4, a5], n] - 
    S2[a1, a2, a3, SP[a1, a5], a4, n] - S2[a1, a2, SP[a1, a4], a5, a3, n] - 
    2*S2[a1, a3, a1, a2, SP[a4, a5], n] - 
    2*S2[a1, a3, a1, a4, SP[a2, a5], n] - 
    2*S2[a1, a3, a1, SP[a2, a5], a4, n] - 
    2*S2[a1, a3, a1, SP[a4, a5], a2, n] - S2[a1, a3, a2, a1, SP[a4, a5], n] - 
    S2[a1, a3, a2, SP[a1, a5], a4, n] + S2[a1, a3, a5, a1, SP[a2, a4], n] + 
    S2[a1, a3, a5, SP[a1, a2], a4, n] - 2*S2[a1, a3, SP[a1, a5], a2, a4, n] - 
    2*S2[a1, a3, SP[a1, a5], a4, a2, n] + 
    S2[a2, n]*S2[a1, a4, a1, a5, a3, n] + 
    S2[a3, n]*S2[a1, a5, a1, a2, a4, n] + 
    S2[a3, n]*S2[a1, a5, a1, a4, a2, n] - S2[a1, SP[a1, a2], a4, a5, a3, n] - 
    S2[a1, SP[a1, a2], a5, a3, a4, n] - S2[a1, SP[a1, a2], a5, a4, a3, n] - 
    S2[a1, SP[a1, a4], a2, a5, a3, n] - S2[a1, SP[a1, a4], a5, a2, a3, n] - 
    S2[a1, SP[a1, a4], a5, a3, a2, n] - S2[a1, SP[a1, a5], a2, a3, a4, n] - 
    S2[a1, SP[a1, a5], a2, a4, a3, n] - S2[a1, SP[a1, a5], a3, a2, a4, n] - 
    S2[a1, SP[a1, a5], a3, a4, a2, n] - S2[a1, SP[a1, a5], a4, a2, a3, n] - 
    S2[a1, SP[a1, a5], a4, a3, a2, n] + S2[a1, SP[a2, a4], a1, a5, a3, n] + 
    S2[a1, SP[a3, a5], a1, a2, a4, n] + S2[a1, SP[a3, a5], a1, a4, a2, n] - 
    2*S2[a3, a1, a1, a2, SP[a4, a5], n] - 
    2*S2[a3, a1, a1, a4, SP[a2, a5], n] - 
    2*S2[a3, a1, a1, SP[a2, a5], a4, n] - 
    2*S2[a3, a1, a1, SP[a4, a5], a2, n] - S2[a3, a1, a2, a1, SP[a4, a5], n] - 
    S2[a3, a1, a2, SP[a1, a5], a4, n] + S2[a3, a1, a5, a1, SP[a2, a4], n] + 
    S2[a3, a1, a5, SP[a1, a2], a4, n] - 2*S2[a3, a1, SP[a1, a5], a2, a4, n] - 
    2*S2[a3, a1, SP[a1, a5], a4, a2, n] + 
    2*S2[a3, a5, a1, a1, SP[a2, a4], n] + S2[a3, a5, a1, SP[a1, a2], a4, n] + 
    S2[a3, a5, a1, SP[a1, a4], a2, n] + S2[a3, a5, SP[a1, a1], a2, a4, n] + 
    S2[a3, a5, SP[a1, a1], a4, a2, n] - S2[a3, SP[a1, a5], a1, a2, a4, n] - 
    S2[a3, SP[a1, a5], a1, a4, a2, n] - S2[a3, n]*S2[a5, a1, a4, a1, a2, n] - 
    S2[a5, a1, a4, a1, SP[a2, a3], n] - S2[a5, a1, a4, SP[a1, a3], a2, n] - 
    S2[a5, a1, SP[a3, a4], a1, a2, n] - S2[a5, SP[a1, a3], a4, a1, a2, n] - 
    S2[SP[a1, a1], a2, a4, a5, a3, n] - S2[SP[a1, a1], a2, a5, a3, a4, n] - 
    S2[SP[a1, a1], a2, a5, a4, a3, n] - S2[SP[a1, a1], a4, a2, a5, a3, n] - 
    S2[SP[a1, a1], a4, a5, a2, a3, n] - S2[SP[a1, a1], a4, a5, a3, a2, n] - 
    S2[SP[a1, a1], a5, a2, a3, a4, n] - S2[SP[a1, a1], a5, a2, a4, a3, n] - 
    S2[SP[a1, a1], a5, a3, a2, a4, n] - S2[SP[a1, a1], a5, a3, a4, a2, n] - 
    S2[SP[a1, a1], a5, a4, a2, a3, n] - S2[SP[a1, a1], a5, a4, a3, a2, n] + 
    S2[SP[a1, a2], a4, a1, a5, a3, n] - S2[SP[a3, a5], a1, a4, a1, a2, n] + 
    S2[a5, a1, a3, a4, a1, a2, n] + S2[a5, a1, a4, a1, a2, a3, n] + 
    S2[a5, a1, a4, a1, a3, a2, n] + S2[a5, a1, a4, a3, a1, a2, n] + 
    S2[a5, a3, a1, a4, a1, a2, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a2_, a1_, a4_, a3_, a1_, a5_, n_] :> 
  S2[a1, a2, a4, n]*S2[a1, a3, a5, n] + S2[a1, a3, a5, n]*S2[a1, a4, a2, n] + 
    S2[a1, a2, a4, n]*S2[a1, a5, a3, n] + S2[a1, a4, a2, n]*
     S2[a1, a5, a3, n] + S2[SP[a1, a1], SP[a2, a3], SP[a4, a5], n] + 
    S2[SP[a1, a1], SP[a2, a5], SP[a3, a4], n] + S2[SP[a1, a1], SP[a3, a4], 
     SP[a2, a5], n] + S2[SP[a1, a1], SP[a4, a5], SP[a2, a3], n] - 
    2*S2[a1, a1, SP[a2, a3], SP[a4, a5], n] - 
    2*S2[a1, a1, SP[a2, a5], SP[a3, a4], n] - 
    2*S2[a1, a1, SP[a3, a4], SP[a2, a5], n] - 
    2*S2[a1, a1, SP[a4, a5], SP[a2, a3], n] - 
    S2[a1, a5, n]*S2[a1, a2, a4, a3, n] + S2[a1, a2, SP[a1, a4], SP[a3, a5], 
     n] - S2[a1, a2, n]*S2[a1, a3, a4, a5, n] - 
    S2[a1, a2, n]*S2[a1, a3, a5, a4, n] + S2[a1, a3, SP[a1, a4], SP[a2, a5], 
     n] + S2[a1, a3, SP[a1, a5], SP[a2, a4], n] - 
    S2[a1, a5, n]*S2[a1, a4, a2, a3, n] - S2[a1, a5, n]*
     S2[a1, a4, a3, a2, n] + S2[a1, a4, SP[a1, a2], SP[a3, a5], n] + 
    S2[a1, a4, SP[a1, a3], SP[a2, a5], n] - S2[a1, a2, n]*
     S2[a1, a5, a3, a4, n] + S2[a1, a5, SP[a1, a3], SP[a2, a4], n] - 
    S2[a1, SP[a1, a2], a3, SP[a4, a5], n] + S2[a1, SP[a1, a2], a4, 
     SP[a3, a5], n] - S2[a1, SP[a1, a2], a5, SP[a3, a4], n] - 
    S2[a1, SP[a1, a2], SP[a3, a4], a5, n] - S2[a1, SP[a1, a3], a2, 
     SP[a4, a5], n] + S2[a1, SP[a1, a3], a5, SP[a2, a4], n] + 
    S2[a1, SP[a1, a3], SP[a2, a4], a5, n] - S2[a1, SP[a1, a3], SP[a4, a5], 
     a2, n] + S2[a1, SP[a1, a4], a2, SP[a3, a5], n] - 
    S2[a1, SP[a1, a4], a5, SP[a2, a3], n] - S2[a1, SP[a1, a4], SP[a2, a3], 
     a5, n] + S2[a1, SP[a1, a4], SP[a3, a5], a2, n] - 
    S2[a1, SP[a1, a5], a2, SP[a3, a4], n] + S2[a1, SP[a1, a5], a3, 
     SP[a2, a4], n] - S2[a1, SP[a1, a5], a4, SP[a2, a3], n] - 
    S2[a1, SP[a1, a5], SP[a3, a4], a2, n] - S2[SP[a1, a1], a2, a3, 
     SP[a4, a5], n] + S2[SP[a1, a1], a2, a4, SP[a3, a5], n] - 
    S2[SP[a1, a1], a2, a5, SP[a3, a4], n] - S2[SP[a1, a1], a2, SP[a3, a4], 
     a5, n] - S2[SP[a1, a1], a3, a2, SP[a4, a5], n] + 
    S2[SP[a1, a1], a3, a5, SP[a2, a4], n] + S2[SP[a1, a1], a3, SP[a2, a4], 
     a5, n] - S2[SP[a1, a1], a3, SP[a4, a5], a2, n] + 
    S2[SP[a1, a1], a4, a2, SP[a3, a5], n] - S2[SP[a1, a1], a4, a5, 
     SP[a2, a3], n] - S2[SP[a1, a1], a4, SP[a2, a3], a5, n] + 
    S2[SP[a1, a1], a4, SP[a3, a5], a2, n] - S2[SP[a1, a1], a5, a2, 
     SP[a3, a4], n] + S2[SP[a1, a1], a5, a3, SP[a2, a4], n] - 
    S2[SP[a1, a1], a5, a4, SP[a2, a3], n] - S2[SP[a1, a1], a5, SP[a3, a4], 
     a2, n] - S2[SP[a1, a1], SP[a3, a4], a2, a5, n] - 
    S2[SP[a1, a1], SP[a3, a4], a5, a2, n] + 
    2*S2[a1, a1, a2, a3, SP[a4, a5], n] - 
    2*S2[a1, a1, a2, a4, SP[a3, a5], n] + 
    2*S2[a1, a1, a2, a5, SP[a3, a4], n] + 
    2*S2[a1, a1, a2, SP[a3, a4], a5, n] + 
    2*S2[a1, a1, a3, a2, SP[a4, a5], n] - 
    2*S2[a1, a1, a3, a5, SP[a2, a4], n] - 
    2*S2[a1, a1, a3, SP[a2, a4], a5, n] + 
    2*S2[a1, a1, a3, SP[a4, a5], a2, n] - 
    2*S2[a1, a1, a4, a2, SP[a3, a5], n] + 
    2*S2[a1, a1, a4, a5, SP[a2, a3], n] + 
    2*S2[a1, a1, a4, SP[a2, a3], a5, n] - 
    2*S2[a1, a1, a4, SP[a3, a5], a2, n] + 
    2*S2[a1, a1, a5, a2, SP[a3, a4], n] - 
    2*S2[a1, a1, a5, a3, SP[a2, a4], n] + 
    2*S2[a1, a1, a5, a4, SP[a2, a3], n] + 
    2*S2[a1, a1, a5, SP[a3, a4], a2, n] + 
    2*S2[a1, a1, SP[a3, a4], a2, a5, n] + 
    2*S2[a1, a1, SP[a3, a4], a5, a2, n] + S2[a1, a2, a1, a3, SP[a4, a5], n] - 
    S2[a1, a2, a1, a4, SP[a3, a5], n] + S2[a1, a2, a1, a5, SP[a3, a4], n] + 
    S2[a1, a2, a1, SP[a3, a4], a5, n] - S2[a1, a2, a4, a1, SP[a3, a5], n] - 
    S2[a1, a2, a4, SP[a1, a3], a5, n] + S2[a1, a3, a1, a2, SP[a4, a5], n] - 
    S2[a1, a3, a1, a5, SP[a2, a4], n] - S2[a1, a3, a1, SP[a2, a4], a5, n] + 
    S2[a1, a3, a1, SP[a4, a5], a2, n] + S2[a5, n]*S2[a1, a3, a4, a1, a2, n] - 
    S2[a1, a3, a5, a1, SP[a2, a4], n] - S2[a1, a3, a5, SP[a1, a4], a2, n] - 
    S2[a1, a3, SP[a1, a4], a2, a5, n] - S2[a1, a3, SP[a1, a4], a5, a2, n] + 
    S2[a1, a3, SP[a4, a5], a1, a2, n] - S2[a1, a4, a1, a2, SP[a3, a5], n] + 
    S2[a1, a4, a1, a5, SP[a2, a3], n] + S2[a1, a4, a1, SP[a2, a3], a5, n] - 
    S2[a1, a4, a1, SP[a3, a5], a2, n] - S2[a1, a4, a2, a1, SP[a3, a5], n] - 
    S2[a1, a4, a2, SP[a1, a3], a5, n] + S2[a2, n]*S2[a1, a4, a3, a1, a5, n] - 
    S2[a1, a4, SP[a1, a3], a2, a5, n] - S2[a1, a4, SP[a1, a3], a5, a2, n] + 
    S2[a1, a4, SP[a2, a3], a1, a5, n] + S2[a1, a5, a1, a2, SP[a3, a4], n] - 
    S2[a1, a5, a1, a3, SP[a2, a4], n] + S2[a1, a5, a1, a4, SP[a2, a3], n] + 
    S2[a1, a5, a1, SP[a3, a4], a2, n] - S2[a1, a5, a3, a1, SP[a2, a4], n] - 
    S2[a1, a5, a3, SP[a1, a4], a2, n] + S2[a1, SP[a2, a4], a3, a1, a5, n] + 
    S2[a1, SP[a3, a5], a4, a1, a2, n] + S2[SP[a1, a2], a4, a3, a1, a5, n] + 
    S2[SP[a1, a5], a3, a4, a1, a2, n] - S2[a5, a1, a3, a4, a1, a2, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a2_, a1_, a4_, a3_, a5_, a1_, n_] :> 
  -(S2[a1, a2, a4, n]*S2[a1, a5, a3, n]) - S2[a1, a4, a2, n]*
     S2[a1, a5, a3, n] - S2[SP[a1, a1], SP[a2, a5], SP[a3, a4], n] - 
    S2[SP[a1, a1], SP[a4, a5], SP[a2, a3], n] + 
    2*S2[a1, a1, SP[a2, a5], SP[a3, a4], n] + 
    2*S2[a1, a1, SP[a4, a5], SP[a2, a3], n] + 
    S2[a1, a5, n]*S2[a1, a2, a4, a3, n] - S2[a1, a2, SP[a1, a4], SP[a3, a5], 
     n] + S2[a1, a5, n]*S2[a1, a4, a2, a3, n] + 
    S2[a1, a5, n]*S2[a1, a4, a3, a2, n] - S2[a1, a4, SP[a1, a2], SP[a3, a5], 
     n] - S2[a1, a4, SP[a1, a3], SP[a2, a5], n] + 
    S2[a1, a2, n]*S2[a1, a5, a3, a4, n] - S2[a1, a5, SP[a1, a3], SP[a2, a4], 
     n] - S2[a1, SP[a1, a2], a4, SP[a3, a5], n] + S2[a1, SP[a1, a2], a5, 
     SP[a3, a4], n] - S2[a1, SP[a1, a4], a2, SP[a3, a5], n] - 
    S2[a1, SP[a1, a4], a3, SP[a2, a5], n] + S2[a1, SP[a1, a4], a5, 
     SP[a2, a3], n] - S2[a1, SP[a1, a4], SP[a3, a5], a2, n] + 
    S2[a1, SP[a1, a5], a2, SP[a3, a4], n] - S2[a1, SP[a1, a5], a3, 
     SP[a2, a4], n] + S2[a1, SP[a1, a5], a4, SP[a2, a3], n] + 
    S2[a1, SP[a1, a5], SP[a3, a4], a2, n] - S2[SP[a1, a1], a2, a4, 
     SP[a3, a5], n] + S2[SP[a1, a1], a2, a5, SP[a3, a4], n] - 
    S2[SP[a1, a1], a4, a2, SP[a3, a5], n] - S2[SP[a1, a1], a4, a3, 
     SP[a2, a5], n] + S2[SP[a1, a1], a4, a5, SP[a2, a3], n] - 
    S2[SP[a1, a1], a4, SP[a3, a5], a2, n] + S2[SP[a1, a1], a5, a2, 
     SP[a3, a4], n] - S2[SP[a1, a1], a5, a3, SP[a2, a4], n] + 
    S2[SP[a1, a1], a5, a4, SP[a2, a3], n] + S2[SP[a1, a1], a5, SP[a3, a4], 
     a2, n] + 2*S2[a1, a1, a2, a4, SP[a3, a5], n] - 
    2*S2[a1, a1, a2, a5, SP[a3, a4], n] + 
    2*S2[a1, a1, a4, a2, SP[a3, a5], n] - 
    2*S2[a2, n]*S2[a1, a1, a4, a3, a5, n] - 
    2*S2[a1, a1, a4, a5, SP[a2, a3], n] - 
    2*S2[a1, a1, a4, SP[a2, a3], a5, n] + 
    2*S2[a1, a1, a4, SP[a3, a5], a2, n] - 
    2*S2[a1, a1, a5, a2, SP[a3, a4], n] + 
    2*S2[a1, a1, a5, a3, SP[a2, a4], n] - 
    2*S2[a1, a1, a5, a4, SP[a2, a3], n] - 
    2*S2[a1, a1, a5, SP[a3, a4], a2, n] - 
    2*S2[a1, a1, SP[a2, a4], a3, a5, n] + S2[a1, a2, a1, a4, SP[a3, a5], n] - 
    S2[a1, a2, a1, a5, SP[a3, a4], n] + S2[a1, a2, a4, a1, SP[a3, a5], n] + 
    S2[a1, a2, a4, SP[a1, a3], a5, n] + S2[a1, a2, SP[a1, a4], a3, a5, n] + 
    S2[a1, a4, a1, a2, SP[a3, a5], n] - S2[a2, n]*S2[a1, a4, a1, a3, a5, n] - 
    S2[a1, a4, a1, a5, SP[a2, a3], n] - S2[a1, a4, a1, SP[a2, a3], a5, n] + 
    S2[a1, a4, a1, SP[a3, a5], a2, n] + S2[a1, a4, a2, a1, SP[a3, a5], n] + 
    S2[a1, a4, a2, SP[a1, a3], a5, n] - S2[a2, n]*S2[a1, a4, a3, a1, a5, n] + 
    S2[a1, a4, SP[a1, a3], a2, a5, n] + S2[a1, a4, SP[a1, a3], a5, a2, n] - 
    S2[a1, a4, SP[a2, a3], a1, a5, n] - S2[a1, a5, a1, a2, SP[a3, a4], n] + 
    S2[a1, a5, a1, a3, SP[a2, a4], n] - S2[a1, a5, a1, a4, SP[a2, a3], n] - 
    S2[a1, a5, a1, SP[a3, a4], a2, n] + S2[a1, a5, a3, a1, SP[a2, a4], n] + 
    S2[a1, a5, a3, SP[a1, a4], a2, n] - S2[a1, SP[a1, a2], a4, a3, a5, n] + 
    S2[a1, SP[a1, a4], a2, a3, a5, n] + S2[a1, SP[a1, a4], a3, a2, a5, n] + 
    S2[a1, SP[a1, a4], a3, a5, a2, n] - S2[a1, SP[a2, a4], a1, a3, a5, n] - 
    S2[a1, SP[a2, a4], a3, a1, a5, n] + S2[a1, n]*S2[a2, a1, a4, a3, a5, n] + 
    S2[a2, a1, a4, a3, SP[a1, a5], n] + S2[a2, a1, a4, SP[a1, a3], a5, n] + 
    S2[a2, a1, SP[a1, a4], a3, a5, n] + S2[a2, SP[a1, a1], a4, a3, a5, n] - 
    S2[a1, n]*S2[a5, a3, a4, a1, a2, n] - S2[a5, a3, a4, a1, SP[a1, a2], n] - 
    S2[a5, a3, a4, SP[a1, a1], a2, n] - S2[a5, a3, SP[a1, a4], a1, a2, n] - 
    S2[a5, SP[a1, a3], a4, a1, a2, n] + S2[SP[a1, a1], a2, a4, a3, a5, n] + 
    S2[SP[a1, a1], a4, a2, a3, a5, n] + S2[SP[a1, a1], a4, a3, a2, a5, n] + 
    S2[SP[a1, a1], a4, a3, a5, a2, n] - S2[SP[a1, a2], a1, a4, a3, a5, n] - 
    S2[SP[a1, a2], a4, a1, a3, a5, n] - S2[SP[a1, a2], a4, a3, a1, a5, n] - 
    S2[SP[a1, a5], a3, a4, a1, a2, n] + S2[a5, a1, a3, a4, a1, a2, n] + 
    S2[a5, a3, a1, a4, a1, a2, n] + 2*S2[a5, a3, a4, a1, a1, a2, n] + 
    S2[a5, a3, a4, a1, a2, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a2_, a1_, a4_, a5_, a1_, a3_, n_] :> 
  S2[a1, a2, a4, n]*S2[a1, a3, a5, n] + S2[a1, a3, a5, n]*S2[a1, a4, a2, n] + 
    S2[a1, a2, a4, n]*S2[a1, a5, a3, n] + S2[a1, a4, a2, n]*
     S2[a1, a5, a3, n] + S2[SP[a1, a1], SP[a2, a3], SP[a4, a5], n] + 
    S2[SP[a1, a1], SP[a2, a5], SP[a3, a4], n] + S2[SP[a1, a1], SP[a3, a4], 
     SP[a2, a5], n] + S2[SP[a1, a1], SP[a4, a5], SP[a2, a3], n] - 
    2*S2[a1, a1, SP[a2, a3], SP[a4, a5], n] - 
    2*S2[a1, a1, SP[a2, a5], SP[a3, a4], n] - 
    2*S2[a1, a1, SP[a3, a4], SP[a2, a5], n] - 
    2*S2[a1, a1, SP[a4, a5], SP[a2, a3], n] - S2[a1, SP[a1, a2], a3, 
     SP[a4, a5], n] - S2[a1, SP[a1, a2], a5, SP[a3, a4], n] - 
    S2[a1, SP[a1, a2], SP[a3, a4], a5, n] - S2[a1, SP[a1, a2], SP[a4, a5], 
     a3, n] - S2[a1, SP[a1, a3], a2, SP[a4, a5], n] - 
    S2[a1, SP[a1, a3], a4, SP[a2, a5], n] - S2[a1, SP[a1, a3], SP[a2, a5], 
     a4, n] - S2[a1, SP[a1, a3], SP[a4, a5], a2, n] - 
    S2[a1, SP[a1, a4], a3, SP[a2, a5], n] - S2[a1, SP[a1, a4], a5, 
     SP[a2, a3], n] - S2[a1, SP[a1, a4], SP[a2, a3], a5, n] - 
    S2[a1, SP[a1, a4], SP[a2, a5], a3, n] - S2[a1, SP[a1, a5], a2, 
     SP[a3, a4], n] - S2[a1, SP[a1, a5], a4, SP[a2, a3], n] - 
    S2[a1, SP[a1, a5], SP[a2, a3], a4, n] - S2[a1, SP[a1, a5], SP[a3, a4], 
     a2, n] - S2[a1, a2, n]*S2[a4, a5, a1, a3, n] + 
    S2[a4, a5, SP[a1, a1], SP[a2, a3], n] + S2[a4, SP[a1, a5], a1, 
     SP[a2, a3], n] + S2[a4, SP[a1, a5], SP[a1, a2], a3, n] - 
    S2[SP[a1, a1], a2, a3, SP[a4, a5], n] - S2[SP[a1, a1], a2, a5, 
     SP[a3, a4], n] - S2[SP[a1, a1], a2, SP[a3, a4], a5, n] - 
    S2[SP[a1, a1], a2, SP[a4, a5], a3, n] - S2[SP[a1, a1], a3, a2, 
     SP[a4, a5], n] - S2[SP[a1, a1], a3, a4, SP[a2, a5], n] - 
    S2[SP[a1, a1], a3, SP[a2, a5], a4, n] - S2[SP[a1, a1], a3, SP[a4, a5], 
     a2, n] - S2[SP[a1, a1], a4, a3, SP[a2, a5], n] - 
    S2[SP[a1, a1], a4, a5, SP[a2, a3], n] - S2[SP[a1, a1], a4, SP[a2, a3], 
     a5, n] - S2[SP[a1, a1], a4, SP[a2, a5], a3, n] - 
    S2[SP[a1, a1], a5, a2, SP[a3, a4], n] - S2[SP[a1, a1], a5, a4, 
     SP[a2, a3], n] - S2[SP[a1, a1], a5, SP[a2, a3], a4, n] - 
    S2[SP[a1, a1], a5, SP[a3, a4], a2, n] - S2[SP[a1, a1], SP[a2, a3], a4, 
     a5, n] - S2[SP[a1, a1], SP[a2, a3], a5, a4, n] - 
    S2[SP[a1, a1], SP[a2, a5], a3, a4, n] - S2[SP[a1, a1], SP[a2, a5], a4, 
     a3, n] - S2[SP[a1, a1], SP[a3, a4], a2, a5, n] - 
    S2[SP[a1, a1], SP[a3, a4], a5, a2, n] - S2[SP[a1, a1], SP[a4, a5], a2, 
     a3, n] - S2[SP[a1, a1], SP[a4, a5], a3, a2, n] + 
    S2[SP[a1, a4], a5, a1, SP[a2, a3], n] + S2[SP[a1, a4], a5, SP[a1, a2], 
     a3, n] + S2[SP[a1, a4], SP[a2, a5], a1, a3, n] - 
    2*S2[a5, n]*S2[a1, a1, a2, a3, a4, n] - 
    2*S2[a5, n]*S2[a1, a1, a2, a4, a3, n] - 
    2*S2[a1, a1, a2, a4, SP[a3, a5], n] + 
    2*S2[a1, a1, a2, a5, SP[a3, a4], n] + 
    2*S2[a1, a1, a2, SP[a3, a4], a5, n] - 
    2*S2[a1, a1, a2, SP[a3, a5], a4, n] - 
    2*S2[a5, n]*S2[a1, a1, a3, a2, a4, n] - 
    2*S2[a5, n]*S2[a1, a1, a3, a4, a2, n] - 
    2*S2[a5, n]*S2[a1, a1, a4, a2, a3, n] - 
    2*S2[a1, a1, a4, a2, SP[a3, a5], n] - 
    2*S2[a5, n]*S2[a1, a1, a4, a3, a2, n] + 
    2*S2[a1, a1, a4, a5, SP[a2, a3], n] + 
    2*S2[a1, a1, a4, SP[a2, a3], a5, n] - 
    2*S2[a1, a1, a4, SP[a3, a5], a2, n] + 
    2*S2[a1, a1, a5, a2, SP[a3, a4], n] + 
    2*S2[a1, a1, a5, a4, SP[a2, a3], n] + 
    2*S2[a1, a1, a5, SP[a2, a3], a4, n] + 
    2*S2[a1, a1, a5, SP[a3, a4], a2, n] + 
    2*S2[a1, a1, SP[a2, a3], a4, a5, n] + 
    2*S2[a1, a1, SP[a2, a3], a5, a4, n] + 
    2*S2[a1, a1, SP[a3, a4], a2, a5, n] + 
    2*S2[a1, a1, SP[a3, a4], a5, a2, n] - 
    2*S2[a1, a1, SP[a3, a5], a2, a4, n] - 
    2*S2[a1, a1, SP[a3, a5], a4, a2, n] - 
    S2[a5, n]*S2[a1, a2, a1, a3, a4, n] - 
    S2[a5, n]*S2[a1, a2, a1, a4, a3, n] - S2[a1, a2, a1, a4, SP[a3, a5], n] + 
    S2[a1, a2, a1, a5, SP[a3, a4], n] + S2[a1, a2, a1, SP[a3, a4], a5, n] - 
    S2[a1, a2, a1, SP[a3, a5], a4, n] - S2[a5, n]*S2[a1, a2, a4, a1, a3, n] - 
    S2[a1, a2, a4, a1, SP[a3, a5], n] - S2[a1, a2, a4, SP[a1, a5], a3, n] + 
    S2[a4, n]*S2[a1, a2, a5, a1, a3, n] + S2[a1, a2, a5, a1, SP[a3, a4], n] + 
    S2[a1, a2, a5, SP[a1, a4], a3, n] + S2[a1, a2, SP[a1, a4], a3, a5, n] + 
    S2[a1, a2, SP[a1, a4], a5, a3, n] - S2[a1, a2, SP[a1, a5], a3, a4, n] - 
    S2[a1, a2, SP[a1, a5], a4, a3, n] - S2[a5, n]*S2[a1, a3, a1, a2, a4, n] - 
    S2[a5, n]*S2[a1, a3, a1, a4, a2, n] - 
    S2[a5, n]*S2[a1, a4, a1, a2, a3, n] - S2[a1, a4, a1, a2, SP[a3, a5], n] - 
    S2[a5, n]*S2[a1, a4, a1, a3, a2, n] + S2[a1, a4, a1, a5, SP[a2, a3], n] + 
    S2[a1, a4, a1, SP[a2, a3], a5, n] - S2[a1, a4, a1, SP[a3, a5], a2, n] - 
    S2[a5, n]*S2[a1, a4, a2, a1, a3, n] - S2[a1, a4, a2, a1, SP[a3, a5], n] - 
    S2[a1, a4, a2, SP[a1, a5], a3, n] + S2[a2, n]*S2[a1, a4, a5, a1, a3, n] + 
    S2[a1, a4, SP[a1, a2], a3, a5, n] + S2[a1, a4, SP[a1, a2], a5, a3, n] - 
    S2[a1, a4, SP[a1, a5], a2, a3, n] - S2[a1, a4, SP[a1, a5], a3, a2, n] - 
    S2[a1, a4, SP[a2, a5], a1, a3, n] + S2[a4, n]*S2[a1, a5, a1, a2, a3, n] + 
    2*S2[a1, a5, a1, a2, SP[a3, a4], n] + 
    S2[a4, n]*S2[a1, a5, a1, a3, a2, n] + S2[a1, a5, a1, a3, SP[a2, a4], n] + 
    S2[a1, a5, a1, a4, SP[a2, a3], n] + S2[a1, a5, a1, SP[a2, a3], a4, n] + 
    S2[a1, a5, a1, SP[a2, a4], a3, n] + 2*S2[a1, a5, a1, SP[a3, a4], a2, n] + 
    S2[a4, n]*S2[a1, a5, a2, a1, a3, n] + S2[a1, a5, a2, a1, SP[a3, a4], n] + 
    S2[a1, a5, a2, SP[a1, a4], a3, n] + S2[a1, a5, SP[a1, a3], a2, a4, n] + 
    S2[a1, a5, SP[a1, a3], a4, a2, n] + S2[a1, a5, SP[a1, a4], a2, a3, n] + 
    S2[a1, a5, SP[a1, a4], a3, a2, n] + S2[a1, a5, SP[a2, a4], a1, a3, n] + 
    S2[a1, SP[a1, a2], a3, a4, a5, n] + S2[a1, SP[a1, a2], a3, a5, a4, n] + 
    S2[a1, SP[a1, a2], a4, a3, a5, n] + S2[a1, SP[a1, a2], a4, a5, a3, n] + 
    S2[a1, SP[a1, a2], a5, a3, a4, n] + S2[a1, SP[a1, a2], a5, a4, a3, n] + 
    S2[a1, SP[a1, a3], a2, a4, a5, n] + S2[a1, SP[a1, a3], a2, a5, a4, n] + 
    S2[a1, SP[a1, a3], a4, a2, a5, n] + S2[a1, SP[a1, a3], a4, a5, a2, n] + 
    S2[a1, SP[a1, a3], a5, a2, a4, n] + S2[a1, SP[a1, a3], a5, a4, a2, n] + 
    S2[a1, SP[a1, a4], a2, a3, a5, n] + S2[a1, SP[a1, a4], a2, a5, a3, n] + 
    S2[a1, SP[a1, a4], a3, a2, a5, n] + S2[a1, SP[a1, a4], a3, a5, a2, n] + 
    S2[a1, SP[a1, a4], a5, a2, a3, n] + S2[a1, SP[a1, a4], a5, a3, a2, n] - 
    S2[a1, SP[a1, a5], a2, a3, a4, n] - S2[a1, SP[a1, a5], a2, a4, a3, n] - 
    S2[a1, SP[a1, a5], a3, a2, a4, n] - S2[a1, SP[a1, a5], a3, a4, a2, n] - 
    S2[a1, SP[a1, a5], a4, a2, a3, n] - S2[a1, SP[a1, a5], a4, a3, a2, n] + 
    S2[a1, SP[a2, a4], a5, a1, a3, n] - S2[a1, SP[a2, a5], a1, a3, a4, n] - 
    S2[a1, SP[a2, a5], a1, a4, a3, n] - S2[a1, SP[a2, a5], a4, a1, a3, n] - 
    S2[a1, SP[a3, a5], a1, a2, a4, n] - S2[a1, SP[a3, a5], a1, a4, a2, n] - 
    S2[a4, a1, a5, a1, SP[a2, a3], n] - S2[a4, a1, a5, SP[a1, a2], a3, n] - 
    S2[a4, a1, SP[a2, a5], a1, a3, n] - 2*S2[a4, a5, a1, a1, SP[a2, a3], n] - 
    S2[a4, a5, a1, SP[a1, a2], a3, n] - S2[a4, a5, a1, SP[a1, a3], a2, n] - 
    S2[a4, a5, SP[a1, a1], a2, a3, n] - S2[a4, a5, SP[a1, a1], a3, a2, n] - 
    S2[a4, SP[a1, a5], a1, a2, a3, n] - S2[a4, SP[a1, a5], a1, a3, a2, n] - 
    S2[a4, SP[a1, a5], a2, a1, a3, n] + 2*S2[a4, n]*
     S2[a5, a1, a1, a2, a3, n] + 2*S2[a5, a1, a1, a2, SP[a3, a4], n] + 
    2*S2[a4, n]*S2[a5, a1, a1, a3, a2, n] + 
    2*S2[a5, a1, a1, a3, SP[a2, a4], n] + 
    2*S2[a5, a1, a1, SP[a2, a4], a3, n] + 
    2*S2[a5, a1, a1, SP[a3, a4], a2, n] + 
    S2[a4, n]*S2[a5, a1, a2, a1, a3, n] + S2[a5, a1, a2, a1, SP[a3, a4], n] + 
    S2[a5, a1, a2, SP[a1, a4], a3, n] + S2[a4, n]*S2[a5, a1, a3, a1, a2, n] + 
    S2[a5, a1, a3, a1, SP[a2, a4], n] + S2[a5, a1, a3, SP[a1, a4], a2, n] + 
    2*S2[a5, a1, SP[a1, a4], a2, a3, n] + 
    2*S2[a5, a1, SP[a1, a4], a3, a2, n] + S2[a5, a1, SP[a2, a4], a1, a3, n] + 
    S2[a5, a1, SP[a3, a4], a1, a2, n] + 2*S2[a5, SP[a1, a4], a1, a2, a3, n] + 
    2*S2[a5, SP[a1, a4], a1, a3, a2, n] + S2[a5, SP[a1, a4], a2, a1, a3, n] + 
    S2[a5, SP[a1, a4], a3, a1, a2, n] + S2[SP[a1, a1], a2, a3, a4, a5, n] + 
    S2[SP[a1, a1], a2, a3, a5, a4, n] + S2[SP[a1, a1], a2, a4, a3, a5, n] + 
    S2[SP[a1, a1], a2, a4, a5, a3, n] + S2[SP[a1, a1], a2, a5, a3, a4, n] + 
    S2[SP[a1, a1], a2, a5, a4, a3, n] + S2[SP[a1, a1], a3, a2, a4, a5, n] + 
    S2[SP[a1, a1], a3, a2, a5, a4, n] + S2[SP[a1, a1], a3, a4, a2, a5, n] + 
    S2[SP[a1, a1], a3, a4, a5, a2, n] + S2[SP[a1, a1], a3, a5, a2, a4, n] + 
    S2[SP[a1, a1], a3, a5, a4, a2, n] + S2[SP[a1, a1], a4, a2, a3, a5, n] + 
    S2[SP[a1, a1], a4, a2, a5, a3, n] + S2[SP[a1, a1], a4, a3, a2, a5, n] + 
    S2[SP[a1, a1], a4, a3, a5, a2, n] + S2[SP[a1, a1], a4, a5, a2, a3, n] + 
    S2[SP[a1, a1], a4, a5, a3, a2, n] + S2[SP[a1, a1], a5, a2, a3, a4, n] + 
    S2[SP[a1, a1], a5, a2, a4, a3, n] + S2[SP[a1, a1], a5, a3, a2, a4, n] + 
    S2[SP[a1, a1], a5, a3, a4, a2, n] + S2[SP[a1, a1], a5, a4, a2, a3, n] + 
    S2[SP[a1, a1], a5, a4, a3, a2, n] + S2[SP[a1, a2], a4, a5, a1, a3, n] - 
    2*S2[SP[a1, a5], a1, a2, a3, a4, n] - 
    2*S2[SP[a1, a5], a1, a2, a4, a3, n] - 
    2*S2[SP[a1, a5], a1, a3, a2, a4, n] - 
    2*S2[SP[a1, a5], a1, a3, a4, a2, n] - 
    2*S2[SP[a1, a5], a1, a4, a2, a3, n] - 
    2*S2[SP[a1, a5], a1, a4, a3, a2, n] - S2[SP[a1, a5], a2, a1, a3, a4, n] - 
    S2[SP[a1, a5], a2, a1, a4, a3, n] - S2[SP[a1, a5], a2, a4, a1, a3, n] - 
    S2[SP[a1, a5], a3, a1, a2, a4, n] - S2[SP[a1, a5], a3, a1, a4, a2, n] - 
    S2[SP[a1, a5], a4, a1, a2, a3, n] - S2[SP[a1, a5], a4, a1, a3, a2, n] - 
    S2[SP[a1, a5], a4, a2, a1, a3, n] + 2*S2[SP[a4, a5], a1, a1, a2, a3, n] + 
    2*S2[SP[a4, a5], a1, a1, a3, a2, n] + S2[SP[a4, a5], a1, a2, a1, a3, n] + 
    S2[SP[a4, a5], a1, a3, a1, a2, n] - S2[a5, a1, a3, a4, a1, a2, n] - 
    S2[a5, a1, a4, a1, a2, a3, n] - S2[a5, a1, a4, a1, a3, a2, n] - 
    S2[a5, a1, a4, a3, a1, a2, n] - 2*S2[a5, a4, a1, a1, a2, a3, n] - 
    2*S2[a5, a4, a1, a1, a3, a2, n] - S2[a5, a4, a1, a2, a1, a3, n] - 
    S2[a5, a4, a1, a3, a1, a2, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a2_, a1_, a4_, a5_, a3_, a1_, n_] :> 
  -(S2[a1, a2, a4, n]*S2[a1, a3, a5, n]) - S2[a1, a3, a5, n]*
     S2[a1, a4, a2, n] - S2[SP[a1, a1], SP[a2, a3], SP[a4, a5], n] - 
    S2[SP[a1, a1], SP[a3, a4], SP[a2, a5], n] + 
    2*S2[a1, a1, SP[a2, a3], SP[a4, a5], n] + 
    2*S2[a1, a1, SP[a3, a4], SP[a2, a5], n] - 
    S2[a1, a2, n]*S2[a1, a5, a3, a4, n] - S2[a1, a2, n]*
     S2[a1, a5, a4, a3, n] + S2[a1, a5, SP[a1, a3], SP[a2, a4], n] + 
    S2[a1, a5, SP[a1, a4], SP[a2, a3], n] + S2[a1, SP[a1, a2], a3, 
     SP[a4, a5], n] + S2[a1, SP[a1, a2], SP[a3, a4], a5, n] + 
    S2[a1, SP[a1, a3], a2, SP[a4, a5], n] + S2[a1, SP[a1, a3], a4, 
     SP[a2, a5], n] + S2[a1, SP[a1, a3], SP[a2, a5], a4, n] + 
    S2[a1, SP[a1, a3], SP[a4, a5], a2, n] + S2[a1, SP[a1, a4], a3, 
     SP[a2, a5], n] + S2[a1, SP[a1, a4], SP[a2, a3], a5, n] + 
    S2[a1, SP[a1, a5], a3, SP[a2, a4], n] + S2[a1, SP[a1, a5], a4, 
     SP[a2, a3], n] + S2[a1, SP[a1, a5], SP[a2, a3], a4, n] + 
    S2[a1, SP[a1, a5], SP[a2, a4], a3, n] + S2[a1, a2, n]*
     S2[a4, a5, a1, a3, n] - S2[a4, a5, SP[a1, a1], SP[a2, a3], n] - 
    S2[a4, SP[a1, a5], a1, SP[a2, a3], n] - S2[a4, SP[a1, a5], SP[a1, a2], 
     a3, n] + S2[SP[a1, a1], a2, a3, SP[a4, a5], n] + 
    S2[SP[a1, a1], a2, SP[a3, a4], a5, n] + S2[SP[a1, a1], a3, a2, 
     SP[a4, a5], n] + S2[SP[a1, a1], a3, a4, SP[a2, a5], n] + 
    S2[SP[a1, a1], a3, SP[a2, a5], a4, n] + S2[SP[a1, a1], a3, SP[a4, a5], 
     a2, n] + S2[SP[a1, a1], a4, a3, SP[a2, a5], n] + 
    S2[SP[a1, a1], a4, SP[a2, a3], a5, n] + S2[SP[a1, a1], a5, a3, 
     SP[a2, a4], n] + S2[SP[a1, a1], a5, a4, SP[a2, a3], n] + 
    S2[SP[a1, a1], a5, SP[a2, a3], a4, n] + S2[SP[a1, a1], a5, SP[a2, a4], 
     a3, n] + S2[SP[a1, a1], SP[a2, a3], a4, a5, n] + 
    S2[SP[a1, a1], SP[a2, a3], a5, a4, n] + S2[SP[a1, a1], SP[a2, a5], a3, 
     a4, n] + S2[SP[a1, a1], SP[a2, a5], a4, a3, n] + 
    S2[SP[a1, a1], SP[a3, a4], a2, a5, n] + S2[SP[a1, a1], SP[a3, a4], a5, 
     a2, n] - S2[SP[a1, a4], a5, a1, SP[a2, a3], n] - 
    S2[SP[a1, a4], a5, SP[a1, a2], a3, n] - S2[SP[a1, a4], SP[a2, a5], a1, 
     a3, n] + 2*S2[a5, n]*S2[a1, a1, a2, a3, a4, n] + 
    2*S2[a5, n]*S2[a1, a1, a2, a4, a3, n] + 
    2*S2[a1, a1, a2, a4, SP[a3, a5], n] - 
    2*S2[a1, a1, a2, SP[a3, a4], a5, n] + 
    2*S2[a1, a1, a2, SP[a3, a5], a4, n] + 
    2*S2[a1, a1, a2, SP[a4, a5], a3, n] + 
    2*S2[a5, n]*S2[a1, a1, a3, a2, a4, n] + 
    2*S2[a5, n]*S2[a1, a1, a3, a4, a2, n] + 
    2*S2[a5, n]*S2[a1, a1, a4, a2, a3, n] + 
    2*S2[a1, a1, a4, a2, SP[a3, a5], n] + 
    2*S2[a5, n]*S2[a1, a1, a4, a3, a2, n] - 
    2*S2[a2, n]*S2[a1, a1, a4, a5, a3, n] - 
    2*S2[a1, a1, a4, a5, SP[a2, a3], n] - 
    2*S2[a1, a1, a4, SP[a2, a3], a5, n] + 
    2*S2[a1, a1, a4, SP[a3, a5], a2, n] - 
    2*S2[a1, a1, a5, a3, SP[a2, a4], n] - 
    2*S2[a1, a1, a5, a4, SP[a2, a3], n] - 
    2*S2[a1, a1, a5, SP[a2, a3], a4, n] - 
    2*S2[a1, a1, a5, SP[a2, a4], a3, n] - 
    2*S2[a1, a1, SP[a2, a3], a4, a5, n] - 
    2*S2[a1, a1, SP[a2, a3], a5, a4, n] - 
    2*S2[a1, a1, SP[a2, a4], a5, a3, n] - 
    2*S2[a1, a1, SP[a3, a4], a2, a5, n] - 
    2*S2[a1, a1, SP[a3, a4], a5, a2, n] + 
    2*S2[a1, a1, SP[a3, a5], a2, a4, n] + 
    2*S2[a1, a1, SP[a3, a5], a4, a2, n] + 
    2*S2[a1, a1, SP[a4, a5], a2, a3, n] + 
    2*S2[a1, a1, SP[a4, a5], a3, a2, n] + 
    S2[a5, n]*S2[a1, a2, a1, a3, a4, n] + 
    S2[a5, n]*S2[a1, a2, a1, a4, a3, n] + S2[a1, a2, a1, a4, SP[a3, a5], n] - 
    S2[a1, a2, a1, SP[a3, a4], a5, n] + S2[a1, a2, a1, SP[a3, a5], a4, n] + 
    S2[a1, a2, a1, SP[a4, a5], a3, n] + S2[a5, n]*S2[a1, a2, a4, a1, a3, n] + 
    S2[a1, a2, a4, a1, SP[a3, a5], n] + S2[a1, a2, a4, SP[a1, a5], a3, n] - 
    S2[a4, n]*S2[a1, a2, a5, a1, a3, n] - S2[a1, a2, a5, a1, SP[a3, a4], n] - 
    S2[a1, a2, a5, SP[a1, a4], a3, n] - S2[a1, a2, SP[a1, a4], a3, a5, n] + 
    S2[a1, a2, SP[a1, a5], a3, a4, n] + S2[a1, a2, SP[a1, a5], a4, a3, n] + 
    S2[a5, n]*S2[a1, a3, a1, a2, a4, n] + 
    S2[a5, n]*S2[a1, a3, a1, a4, a2, n] + 
    S2[a5, n]*S2[a1, a4, a1, a2, a3, n] + S2[a1, a4, a1, a2, SP[a3, a5], n] + 
    S2[a5, n]*S2[a1, a4, a1, a3, a2, n] - 
    S2[a2, n]*S2[a1, a4, a1, a5, a3, n] - S2[a1, a4, a1, a5, SP[a2, a3], n] - 
    S2[a1, a4, a1, SP[a2, a3], a5, n] + S2[a1, a4, a1, SP[a3, a5], a2, n] + 
    S2[a5, n]*S2[a1, a4, a2, a1, a3, n] + S2[a1, a4, a2, a1, SP[a3, a5], n] + 
    S2[a1, a4, a2, SP[a1, a5], a3, n] - S2[a2, n]*S2[a1, a4, a5, a1, a3, n] - 
    S2[a1, a4, SP[a1, a2], a3, a5, n] - S2[a1, a4, SP[a1, a2], a5, a3, n] + 
    S2[a1, a4, SP[a1, a5], a2, a3, n] + S2[a1, a4, SP[a1, a5], a3, a2, n] + 
    S2[a1, a4, SP[a2, a5], a1, a3, n] - S2[a4, n]*S2[a1, a5, a1, a2, a3, n] - 
    S2[a1, a5, a1, a2, SP[a3, a4], n] - S2[a4, n]*S2[a1, a5, a1, a3, a2, n] - 
    2*S2[a1, a5, a1, a3, SP[a2, a4], n] - S2[a1, a5, a1, a4, SP[a2, a3], n] - 
    S2[a1, a5, a1, SP[a2, a3], a4, n] - 2*S2[a1, a5, a1, SP[a2, a4], a3, n] - 
    S2[a1, a5, a1, SP[a3, a4], a2, n] - S2[a4, n]*S2[a1, a5, a2, a1, a3, n] - 
    S2[a1, a5, a2, a1, SP[a3, a4], n] - S2[a1, a5, a2, SP[a1, a4], a3, n] - 
    S2[a1, a5, a3, a1, SP[a2, a4], n] - S2[a1, a5, a3, SP[a1, a4], a2, n] - 
    S2[a1, a5, a4, a1, SP[a2, a3], n] - S2[a1, a5, a4, SP[a1, a3], a2, n] - 
    S2[a1, a5, SP[a1, a3], a2, a4, n] - S2[a1, a5, SP[a1, a3], a4, a2, n] - 
    2*S2[a1, a5, SP[a1, a4], a2, a3, n] - 
    2*S2[a1, a5, SP[a1, a4], a3, a2, n] - S2[a1, a5, SP[a2, a4], a1, a3, n] - 
    S2[a1, SP[a1, a2], a3, a4, a5, n] - S2[a1, SP[a1, a2], a3, a5, a4, n] - 
    S2[a1, SP[a1, a2], a4, a3, a5, n] - 2*S2[a1, SP[a1, a2], a4, a5, a3, n] - 
    S2[a1, SP[a1, a2], a5, a3, a4, n] - S2[a1, SP[a1, a2], a5, a4, a3, n] - 
    S2[a1, SP[a1, a3], a2, a4, a5, n] - S2[a1, SP[a1, a3], a2, a5, a4, n] - 
    S2[a1, SP[a1, a3], a4, a2, a5, n] - S2[a1, SP[a1, a3], a4, a5, a2, n] - 
    S2[a1, SP[a1, a3], a5, a2, a4, n] - S2[a1, SP[a1, a3], a5, a4, a2, n] - 
    S2[a1, SP[a1, a4], a2, a3, a5, n] - S2[a1, SP[a1, a4], a3, a2, a5, n] - 
    S2[a1, SP[a1, a4], a3, a5, a2, n] + S2[a1, SP[a1, a5], a2, a3, a4, n] + 
    S2[a1, SP[a1, a5], a2, a4, a3, n] + S2[a1, SP[a1, a5], a3, a2, a4, n] + 
    S2[a1, SP[a1, a5], a3, a4, a2, n] + S2[a1, SP[a1, a5], a4, a2, a3, n] + 
    S2[a1, SP[a1, a5], a4, a3, a2, n] - S2[a1, SP[a2, a4], a1, a5, a3, n] - 
    S2[a1, SP[a2, a4], a5, a1, a3, n] + S2[a1, SP[a2, a5], a1, a3, a4, n] + 
    S2[a1, SP[a2, a5], a1, a4, a3, n] + S2[a1, SP[a2, a5], a4, a1, a3, n] + 
    S2[a1, SP[a3, a5], a1, a2, a4, n] + S2[a1, SP[a3, a5], a1, a4, a2, n] + 
    S2[a1, n]*S2[a2, a1, a4, a5, a3, n] + S2[a2, a1, a4, a5, SP[a1, a3], n] + 
    S2[a2, a1, a4, SP[a1, a5], a3, n] + S2[a2, a1, SP[a1, a4], a5, a3, n] + 
    S2[a2, SP[a1, a1], a4, a5, a3, n] + S2[a4, a1, a5, a1, SP[a2, a3], n] + 
    S2[a4, a1, a5, SP[a1, a2], a3, n] + S2[a4, a1, SP[a2, a5], a1, a3, n] + 
    2*S2[a4, a5, a1, a1, SP[a2, a3], n] + S2[a4, a5, a1, SP[a1, a2], a3, n] + 
    S2[a4, a5, a1, SP[a1, a3], a2, n] + S2[a4, a5, SP[a1, a1], a2, a3, n] + 
    S2[a4, a5, SP[a1, a1], a3, a2, n] + S2[a4, SP[a1, a5], a1, a2, a3, n] + 
    S2[a4, SP[a1, a5], a1, a3, a2, n] + S2[a4, SP[a1, a5], a2, a1, a3, n] - 
    2*S2[a4, n]*S2[a5, a1, a1, a2, a3, n] - 
    2*S2[a5, a1, a1, a2, SP[a3, a4], n] - 
    2*S2[a4, n]*S2[a5, a1, a1, a3, a2, n] - 
    2*S2[a5, a1, a1, a3, SP[a2, a4], n] - 
    2*S2[a5, a1, a1, SP[a2, a4], a3, n] - 
    2*S2[a5, a1, a1, SP[a3, a4], a2, n] - 
    S2[a4, n]*S2[a5, a1, a2, a1, a3, n] - S2[a5, a1, a2, a1, SP[a3, a4], n] - 
    S2[a5, a1, a2, SP[a1, a4], a3, n] - S2[a4, n]*S2[a5, a1, a3, a1, a2, n] - 
    S2[a5, a1, a3, a1, SP[a2, a4], n] - S2[a5, a1, a3, SP[a1, a4], a2, n] - 
    2*S2[a5, a1, SP[a1, a4], a2, a3, n] - 
    2*S2[a5, a1, SP[a1, a4], a3, a2, n] - S2[a5, a1, SP[a2, a4], a1, a3, n] - 
    S2[a5, a1, SP[a3, a4], a1, a2, n] + S2[a1, n]*S2[a5, a3, a4, a1, a2, n] + 
    S2[a5, a3, a4, a1, SP[a1, a2], n] + S2[a5, a3, a4, SP[a1, a1], a2, n] + 
    S2[a5, a3, SP[a1, a4], a1, a2, n] + S2[a1, n]*S2[a5, a4, a1, a2, a3, n] + 
    S2[a5, a4, a1, a2, SP[a1, a3], n] + S2[a1, n]*S2[a5, a4, a1, a3, a2, n] + 
    S2[a5, a4, a1, a3, SP[a1, a2], n] + S2[a5, a4, a1, SP[a1, a2], a3, n] + 
    S2[a5, a4, a1, SP[a1, a3], a2, n] + S2[a1, n]*S2[a5, a4, a3, a1, a2, n] + 
    S2[a5, a4, a3, a1, SP[a1, a2], n] + S2[a5, a4, a3, SP[a1, a1], a2, n] + 
    S2[a5, a4, SP[a1, a1], a2, a3, n] + S2[a5, a4, SP[a1, a1], a3, a2, n] + 
    S2[a5, a4, SP[a1, a3], a1, a2, n] + S2[a5, SP[a1, a3], a4, a1, a2, n] - 
    S2[a5, SP[a1, a4], a1, a2, a3, n] - S2[a5, SP[a1, a4], a1, a3, a2, n] - 
    S2[a5, SP[a1, a4], a2, a1, a3, n] - S2[SP[a1, a1], a2, a3, a4, a5, n] - 
    S2[SP[a1, a1], a2, a3, a5, a4, n] - S2[SP[a1, a1], a2, a4, a3, a5, n] - 
    S2[SP[a1, a1], a2, a5, a3, a4, n] - S2[SP[a1, a1], a2, a5, a4, a3, n] - 
    S2[SP[a1, a1], a3, a2, a4, a5, n] - S2[SP[a1, a1], a3, a2, a5, a4, n] - 
    S2[SP[a1, a1], a3, a4, a2, a5, n] - S2[SP[a1, a1], a3, a4, a5, a2, n] - 
    S2[SP[a1, a1], a3, a5, a2, a4, n] - S2[SP[a1, a1], a3, a5, a4, a2, n] - 
    S2[SP[a1, a1], a4, a2, a3, a5, n] - S2[SP[a1, a1], a4, a3, a2, a5, n] - 
    S2[SP[a1, a1], a4, a3, a5, a2, n] - S2[SP[a1, a1], a5, a2, a3, a4, n] - 
    S2[SP[a1, a1], a5, a2, a4, a3, n] - S2[SP[a1, a1], a5, a3, a2, a4, n] - 
    S2[SP[a1, a1], a5, a3, a4, a2, n] - S2[SP[a1, a1], a5, a4, a2, a3, n] - 
    S2[SP[a1, a1], a5, a4, a3, a2, n] - S2[SP[a1, a2], a1, a4, a5, a3, n] - 
    S2[SP[a1, a2], a4, a1, a5, a3, n] - S2[SP[a1, a2], a4, a5, a1, a3, n] + 
    2*S2[SP[a1, a5], a1, a2, a3, a4, n] + 
    2*S2[SP[a1, a5], a1, a2, a4, a3, n] + 
    2*S2[SP[a1, a5], a1, a3, a2, a4, n] + 
    2*S2[SP[a1, a5], a1, a3, a4, a2, n] + 
    2*S2[SP[a1, a5], a1, a4, a2, a3, n] + 
    2*S2[SP[a1, a5], a1, a4, a3, a2, n] + S2[SP[a1, a5], a2, a1, a3, a4, n] + 
    S2[SP[a1, a5], a2, a1, a4, a3, n] + S2[SP[a1, a5], a2, a4, a1, a3, n] + 
    S2[SP[a1, a5], a3, a1, a2, a4, n] + S2[SP[a1, a5], a3, a1, a4, a2, n] + 
    S2[SP[a1, a5], a3, a4, a1, a2, n] + 2*S2[SP[a1, a5], a4, a1, a2, a3, n] + 
    2*S2[SP[a1, a5], a4, a1, a3, a2, n] + S2[SP[a1, a5], a4, a2, a1, a3, n] + 
    S2[SP[a1, a5], a4, a3, a1, a2, n] - 2*S2[SP[a4, a5], a1, a1, a2, a3, n] - 
    2*S2[SP[a4, a5], a1, a1, a3, a2, n] - S2[SP[a4, a5], a1, a2, a1, a3, n] - 
    S2[SP[a4, a5], a1, a3, a1, a2, n] - S2[a5, a3, a1, a4, a1, a2, n] - 
    2*S2[a5, a3, a4, a1, a1, a2, n] - S2[a5, a3, a4, a1, a2, a1, n] - 
    S2[a5, a4, a1, a2, a3, a1, n] - S2[a5, a4, a1, a3, a1, a2, n] - 
    S2[a5, a4, a1, a3, a2, a1, n] - 2*S2[a5, a4, a3, a1, a1, a2, n] - 
    S2[a5, a4, a3, a1, a2, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a2_, a1_, a5_, a1_, a3_, a4_, n_] :> 
  S2[a1, a2, n]*S2[a1, a3, a4, a5, n] + S2[a1, a2, n]*S2[a1, a3, a5, a4, n] - 
    S2[a1, a3, SP[a1, a4], SP[a2, a5], n] - S2[a1, a3, SP[a1, a5], 
     SP[a2, a4], n] + S2[a1, a2, n]*S2[a1, a5, a3, a4, n] - 
    S2[a1, a5, SP[a1, a3], SP[a2, a4], n] - S2[a1, SP[a1, a3], a4, 
     SP[a2, a5], n] - S2[a1, SP[a1, a3], a5, SP[a2, a4], n] - 
    S2[a1, SP[a1, a3], SP[a2, a4], a5, n] - S2[a1, SP[a1, a3], SP[a2, a5], 
     a4, n] - S2[a1, SP[a1, a5], a3, SP[a2, a4], n] - 
    S2[a1, SP[a1, a5], SP[a2, a3], a4, n] - S2[SP[a1, a1], a3, a4, 
     SP[a2, a5], n] - S2[SP[a1, a1], a3, a5, SP[a2, a4], n] - 
    S2[SP[a1, a1], a3, SP[a2, a4], a5, n] - S2[SP[a1, a1], a3, SP[a2, a5], 
     a4, n] - S2[SP[a1, a1], a5, a3, SP[a2, a4], n] - 
    S2[SP[a1, a1], a5, SP[a2, a3], a4, n] - S2[SP[a1, a1], SP[a2, a3], a4, 
     a5, n] - S2[SP[a1, a1], SP[a2, a3], a5, a4, n] - 
    S2[SP[a1, a1], SP[a2, a5], a3, a4, n] - 
    2*S2[a5, n]*S2[a1, a1, a2, a3, a4, n] - 
    2*S2[a1, a1, a2, a3, SP[a4, a5], n] - 
    2*S2[a1, a1, a2, SP[a3, a5], a4, n] - 
    2*S2[a5, n]*S2[a1, a1, a3, a2, a4, n] - 
    2*S2[a1, a1, a3, a2, SP[a4, a5], n] - 
    2*S2[a5, n]*S2[a1, a1, a3, a4, a2, n] + 
    2*S2[a1, a1, a3, a5, SP[a2, a4], n] + 
    2*S2[a1, a1, a3, SP[a2, a4], a5, n] - 
    2*S2[a1, a1, a3, SP[a4, a5], a2, n] + 
    2*S2[a1, a1, a5, a3, SP[a2, a4], n] + 
    2*S2[a1, a1, a5, SP[a2, a3], a4, n] + 
    2*S2[a1, a1, SP[a2, a3], a4, a5, n] + 
    2*S2[a1, a1, SP[a2, a3], a5, a4, n] - 
    2*S2[a1, a1, SP[a3, a5], a2, a4, n] - 
    2*S2[a1, a1, SP[a3, a5], a4, a2, n] - 
    S2[a5, n]*S2[a1, a2, a1, a3, a4, n] - S2[a1, a2, a1, a3, SP[a4, a5], n] - 
    S2[a1, a2, a1, SP[a3, a5], a4, n] - S2[a1, a2, SP[a1, a5], a3, a4, n] - 
    S2[a5, n]*S2[a1, a3, a1, a2, a4, n] - S2[a1, a3, a1, a2, SP[a4, a5], n] - 
    S2[a5, n]*S2[a1, a3, a1, a4, a2, n] + S2[a1, a3, a1, a5, SP[a2, a4], n] + 
    S2[a1, a3, a1, SP[a2, a4], a5, n] - S2[a1, a3, a1, SP[a4, a5], a2, n] - 
    S2[a5, n]*S2[a1, a3, a4, a1, a2, n] + S2[a1, a3, a5, a1, SP[a2, a4], n] + 
    S2[a1, a3, a5, SP[a1, a4], a2, n] + S2[a1, a3, SP[a1, a4], a2, a5, n] + 
    S2[a1, a3, SP[a1, a4], a5, a2, n] - S2[a1, a3, SP[a4, a5], a1, a2, n] + 
    S2[a2, n]*S2[a1, a5, a1, a3, a4, n] + 
    2*S2[a1, a5, a1, a3, SP[a2, a4], n] + 
    2*S2[a1, a5, a1, SP[a2, a3], a4, n] + S2[a1, a5, a3, a1, SP[a2, a4], n] + 
    S2[a1, a5, a3, SP[a1, a4], a2, n] + S2[a1, a5, SP[a1, a2], a3, a4, n] + 
    S2[a1, a5, SP[a1, a3], a2, a4, n] + S2[a1, a5, SP[a1, a3], a4, a2, n] + 
    S2[a1, SP[a1, a2], a3, a4, a5, n] + S2[a1, SP[a1, a2], a3, a5, a4, n] + 
    S2[a1, SP[a1, a2], a5, a3, a4, n] + S2[a1, SP[a1, a3], a2, a4, a5, n] + 
    S2[a1, SP[a1, a3], a2, a5, a4, n] + S2[a1, SP[a1, a3], a4, a2, a5, n] + 
    S2[a1, SP[a1, a3], a4, a5, a2, n] + S2[a1, SP[a1, a3], a5, a2, a4, n] + 
    S2[a1, SP[a1, a3], a5, a4, a2, n] - S2[a1, SP[a1, a5], a2, a3, a4, n] - 
    S2[a1, SP[a1, a5], a3, a2, a4, n] - S2[a1, SP[a1, a5], a3, a4, a2, n] - 
    S2[a1, SP[a3, a5], a1, a2, a4, n] - S2[a1, SP[a3, a5], a1, a4, a2, n] - 
    S2[a1, SP[a3, a5], a4, a1, a2, n] + S2[SP[a1, a1], a2, a3, a4, a5, n] + 
    S2[SP[a1, a1], a2, a3, a5, a4, n] + S2[SP[a1, a1], a2, a5, a3, a4, n] + 
    S2[SP[a1, a1], a3, a2, a4, a5, n] + S2[SP[a1, a1], a3, a2, a5, a4, n] + 
    S2[SP[a1, a1], a3, a4, a2, a5, n] + S2[SP[a1, a1], a3, a4, a5, a2, n] + 
    S2[SP[a1, a1], a3, a5, a2, a4, n] + S2[SP[a1, a1], a3, a5, a4, a2, n] + 
    S2[SP[a1, a1], a5, a2, a3, a4, n] + S2[SP[a1, a1], a5, a3, a2, a4, n] + 
    S2[SP[a1, a1], a5, a3, a4, a2, n] + S2[SP[a1, a2], a5, a1, a3, a4, n] - 
    2*S2[SP[a1, a5], a1, a2, a3, a4, n] - 
    2*S2[SP[a1, a5], a1, a3, a2, a4, n] - 
    2*S2[SP[a1, a5], a1, a3, a4, a2, n] - S2[SP[a1, a5], a2, a1, a3, a4, n] - 
    S2[SP[a1, a5], a3, a1, a2, a4, n] - S2[SP[a1, a5], a3, a1, a4, a2, n] - 
    S2[SP[a1, a5], a3, a4, a1, a2, n] + 2*S2[a5, a1, a1, a2, a3, a4, n] + 
    2*S2[a5, a1, a1, a3, a2, a4, n] + 2*S2[a5, a1, a1, a3, a4, a2, n] + 
    S2[a5, a1, a2, a1, a3, a4, n] + S2[a5, a1, a3, a1, a2, a4, n] + 
    S2[a5, a1, a3, a1, a4, a2, n] + S2[a5, a1, a3, a4, a1, a2, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a2_, a1_, a5_, a1_, a4_, a3_, n_] :> 
  S2[a1, a2, n]*S2[a1, a4, a3, a5, n] + S2[a1, a2, n]*S2[a1, a4, a5, a3, n] - 
    S2[a1, a4, SP[a1, a3], SP[a2, a5], n] - S2[a1, a4, SP[a1, a5], 
     SP[a2, a3], n] + S2[a1, a2, n]*S2[a1, a5, a4, a3, n] - 
    S2[a1, a5, SP[a1, a4], SP[a2, a3], n] - S2[a1, SP[a1, a4], a3, 
     SP[a2, a5], n] - S2[a1, SP[a1, a4], a5, SP[a2, a3], n] - 
    S2[a1, SP[a1, a4], SP[a2, a3], a5, n] - S2[a1, SP[a1, a4], SP[a2, a5], 
     a3, n] - S2[a1, SP[a1, a5], a4, SP[a2, a3], n] - 
    S2[a1, SP[a1, a5], SP[a2, a4], a3, n] - S2[SP[a1, a1], a4, a3, 
     SP[a2, a5], n] - S2[SP[a1, a1], a4, a5, SP[a2, a3], n] - 
    S2[SP[a1, a1], a4, SP[a2, a3], a5, n] - S2[SP[a1, a1], a4, SP[a2, a5], 
     a3, n] - S2[SP[a1, a1], a5, a4, SP[a2, a3], n] - 
    S2[SP[a1, a1], a5, SP[a2, a4], a3, n] - S2[SP[a1, a1], SP[a2, a4], a3, 
     a5, n] - S2[SP[a1, a1], SP[a2, a4], a5, a3, n] - 
    S2[SP[a1, a1], SP[a2, a5], a4, a3, n] - 
    2*S2[a5, n]*S2[a1, a1, a2, a4, a3, n] - 
    2*S2[a1, a1, a2, a4, SP[a3, a5], n] - 
    2*S2[a1, a1, a2, SP[a4, a5], a3, n] - 
    2*S2[a5, n]*S2[a1, a1, a4, a2, a3, n] - 
    2*S2[a1, a1, a4, a2, SP[a3, a5], n] - 
    2*S2[a5, n]*S2[a1, a1, a4, a3, a2, n] + 
    2*S2[a1, a1, a4, a5, SP[a2, a3], n] + 
    2*S2[a1, a1, a4, SP[a2, a3], a5, n] - 
    2*S2[a1, a1, a4, SP[a3, a5], a2, n] + 
    2*S2[a1, a1, a5, a4, SP[a2, a3], n] + 
    2*S2[a1, a1, a5, SP[a2, a4], a3, n] + 
    2*S2[a1, a1, SP[a2, a4], a3, a5, n] + 
    2*S2[a1, a1, SP[a2, a4], a5, a3, n] - 
    2*S2[a1, a1, SP[a4, a5], a2, a3, n] - 
    2*S2[a1, a1, SP[a4, a5], a3, a2, n] - 
    S2[a5, n]*S2[a1, a2, a1, a4, a3, n] - S2[a1, a2, a1, a4, SP[a3, a5], n] - 
    S2[a1, a2, a1, SP[a4, a5], a3, n] - S2[a1, a2, SP[a1, a5], a4, a3, n] - 
    S2[a5, n]*S2[a1, a4, a1, a2, a3, n] - S2[a1, a4, a1, a2, SP[a3, a5], n] - 
    S2[a5, n]*S2[a1, a4, a1, a3, a2, n] + S2[a1, a4, a1, a5, SP[a2, a3], n] + 
    S2[a1, a4, a1, SP[a2, a3], a5, n] - S2[a1, a4, a1, SP[a3, a5], a2, n] - 
    S2[a5, n]*S2[a1, a4, a3, a1, a2, n] + S2[a1, a4, a5, a1, SP[a2, a3], n] + 
    S2[a1, a4, a5, SP[a1, a3], a2, n] + S2[a1, a4, SP[a1, a3], a2, a5, n] + 
    S2[a1, a4, SP[a1, a3], a5, a2, n] - S2[a1, a4, SP[a3, a5], a1, a2, n] + 
    S2[a2, n]*S2[a1, a5, a1, a4, a3, n] + 
    2*S2[a1, a5, a1, a4, SP[a2, a3], n] + 
    2*S2[a1, a5, a1, SP[a2, a4], a3, n] + S2[a1, a5, a4, a1, SP[a2, a3], n] + 
    S2[a1, a5, a4, SP[a1, a3], a2, n] + S2[a1, a5, SP[a1, a2], a4, a3, n] + 
    S2[a1, a5, SP[a1, a4], a2, a3, n] + S2[a1, a5, SP[a1, a4], a3, a2, n] + 
    S2[a1, SP[a1, a2], a4, a3, a5, n] + S2[a1, SP[a1, a2], a4, a5, a3, n] + 
    S2[a1, SP[a1, a2], a5, a4, a3, n] + S2[a1, SP[a1, a4], a2, a3, a5, n] + 
    S2[a1, SP[a1, a4], a2, a5, a3, n] + S2[a1, SP[a1, a4], a3, a2, a5, n] + 
    S2[a1, SP[a1, a4], a3, a5, a2, n] + S2[a1, SP[a1, a4], a5, a2, a3, n] + 
    S2[a1, SP[a1, a4], a5, a3, a2, n] - S2[a1, SP[a1, a5], a2, a4, a3, n] - 
    S2[a1, SP[a1, a5], a4, a2, a3, n] - S2[a1, SP[a1, a5], a4, a3, a2, n] - 
    S2[a1, SP[a4, a5], a1, a2, a3, n] - S2[a1, SP[a4, a5], a1, a3, a2, n] - 
    S2[a1, SP[a4, a5], a3, a1, a2, n] + S2[SP[a1, a1], a2, a4, a3, a5, n] + 
    S2[SP[a1, a1], a2, a4, a5, a3, n] + S2[SP[a1, a1], a2, a5, a4, a3, n] + 
    S2[SP[a1, a1], a4, a2, a3, a5, n] + S2[SP[a1, a1], a4, a2, a5, a3, n] + 
    S2[SP[a1, a1], a4, a3, a2, a5, n] + S2[SP[a1, a1], a4, a3, a5, a2, n] + 
    S2[SP[a1, a1], a4, a5, a2, a3, n] + S2[SP[a1, a1], a4, a5, a3, a2, n] + 
    S2[SP[a1, a1], a5, a2, a4, a3, n] + S2[SP[a1, a1], a5, a4, a2, a3, n] + 
    S2[SP[a1, a1], a5, a4, a3, a2, n] + S2[SP[a1, a2], a5, a1, a4, a3, n] - 
    2*S2[SP[a1, a5], a1, a2, a4, a3, n] - 
    2*S2[SP[a1, a5], a1, a4, a2, a3, n] - 
    2*S2[SP[a1, a5], a1, a4, a3, a2, n] - S2[SP[a1, a5], a2, a1, a4, a3, n] - 
    S2[SP[a1, a5], a4, a1, a2, a3, n] - S2[SP[a1, a5], a4, a1, a3, a2, n] - 
    S2[SP[a1, a5], a4, a3, a1, a2, n] + 2*S2[a5, a1, a1, a2, a4, a3, n] + 
    2*S2[a5, a1, a1, a4, a2, a3, n] + 2*S2[a5, a1, a1, a4, a3, a2, n] + 
    S2[a5, a1, a2, a1, a4, a3, n] + S2[a5, a1, a4, a1, a2, a3, n] + 
    S2[a5, a1, a4, a1, a3, a2, n] + S2[a5, a1, a4, a3, a1, a2, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a2_, a1_, a5_, a3_, a1_, a4_, n_] :> 
  -(S2[a1, a2, n]*S2[a1, a3, a4, a5, n]) - S2[a1, a2, n]*
     S2[a1, a3, a5, a4, n] + S2[a1, a3, SP[a1, a4], SP[a2, a5], n] + 
    S2[a1, a3, SP[a1, a5], SP[a2, a4], n] - S2[a1, a2, n]*
     S2[a1, a4, a3, a5, n] - S2[a1, a2, n]*S2[a1, a4, a5, a3, n] + 
    S2[a1, a4, SP[a1, a3], SP[a2, a5], n] + S2[a1, a4, SP[a1, a5], 
     SP[a2, a3], n] - S2[a1, a2, n]*S2[a1, a5, a3, a4, n] - 
    S2[a1, a2, n]*S2[a1, a5, a4, a3, n] + S2[a1, a5, SP[a1, a3], SP[a2, a4], 
     n] + S2[a1, a5, SP[a1, a4], SP[a2, a3], n] + S2[a1, SP[a1, a3], a4, 
     SP[a2, a5], n] + S2[a1, SP[a1, a3], a5, SP[a2, a4], n] + 
    S2[a1, SP[a1, a3], SP[a2, a4], a5, n] + S2[a1, SP[a1, a3], SP[a2, a5], 
     a4, n] + S2[a1, SP[a1, a4], a3, SP[a2, a5], n] + 
    S2[a1, SP[a1, a4], a5, SP[a2, a3], n] + S2[a1, SP[a1, a4], SP[a2, a3], 
     a5, n] + S2[a1, SP[a1, a4], SP[a2, a5], a3, n] + 
    S2[a1, SP[a1, a5], a3, SP[a2, a4], n] + S2[a1, SP[a1, a5], a4, 
     SP[a2, a3], n] + S2[a1, SP[a1, a5], SP[a2, a3], a4, n] + 
    S2[a1, SP[a1, a5], SP[a2, a4], a3, n] + S2[a1, a2, n]*
     S2[a3, a5, a1, a4, n] - S2[a3, a5, SP[a1, a1], SP[a2, a4], n] - 
    S2[a3, SP[a1, a5], a1, SP[a2, a4], n] - S2[a3, SP[a1, a5], SP[a1, a2], 
     a4, n] + S2[SP[a1, a1], a3, a4, SP[a2, a5], n] + 
    S2[SP[a1, a1], a3, a5, SP[a2, a4], n] + S2[SP[a1, a1], a3, SP[a2, a4], 
     a5, n] + S2[SP[a1, a1], a3, SP[a2, a5], a4, n] + 
    S2[SP[a1, a1], a4, a3, SP[a2, a5], n] + S2[SP[a1, a1], a4, a5, 
     SP[a2, a3], n] + S2[SP[a1, a1], a4, SP[a2, a3], a5, n] + 
    S2[SP[a1, a1], a4, SP[a2, a5], a3, n] + S2[SP[a1, a1], a5, a3, 
     SP[a2, a4], n] + S2[SP[a1, a1], a5, a4, SP[a2, a3], n] + 
    S2[SP[a1, a1], a5, SP[a2, a3], a4, n] + S2[SP[a1, a1], a5, SP[a2, a4], 
     a3, n] + S2[SP[a1, a1], SP[a2, a3], a4, a5, n] + 
    S2[SP[a1, a1], SP[a2, a3], a5, a4, n] + S2[SP[a1, a1], SP[a2, a4], a3, 
     a5, n] + S2[SP[a1, a1], SP[a2, a4], a5, a3, n] + 
    S2[SP[a1, a1], SP[a2, a5], a3, a4, n] + S2[SP[a1, a1], SP[a2, a5], a4, 
     a3, n] - S2[SP[a1, a3], a5, a1, SP[a2, a4], n] - 
    S2[SP[a1, a3], a5, SP[a1, a2], a4, n] - S2[SP[a1, a3], SP[a2, a5], a1, 
     a4, n] + 2*S2[a5, n]*S2[a1, a1, a2, a3, a4, n] + 
    2*S2[a1, a1, a2, a3, SP[a4, a5], n] + 
    2*S2[a5, n]*S2[a1, a1, a2, a4, a3, n] + 
    2*S2[a1, a1, a2, a4, SP[a3, a5], n] + 
    2*S2[a1, a1, a2, SP[a3, a5], a4, n] + 
    2*S2[a1, a1, a2, SP[a4, a5], a3, n] + 
    2*S2[a5, n]*S2[a1, a1, a3, a2, a4, n] + 
    2*S2[a1, a1, a3, a2, SP[a4, a5], n] + 
    2*S2[a5, n]*S2[a1, a1, a3, a4, a2, n] - 
    2*S2[a1, a1, a3, a5, SP[a2, a4], n] - 
    2*S2[a1, a1, a3, SP[a2, a4], a5, n] + 
    2*S2[a1, a1, a3, SP[a4, a5], a2, n] + 
    2*S2[a5, n]*S2[a1, a1, a4, a2, a3, n] + 
    2*S2[a1, a1, a4, a2, SP[a3, a5], n] + 
    2*S2[a5, n]*S2[a1, a1, a4, a3, a2, n] - 
    2*S2[a1, a1, a4, a5, SP[a2, a3], n] - 
    2*S2[a1, a1, a4, SP[a2, a3], a5, n] + 
    2*S2[a1, a1, a4, SP[a3, a5], a2, n] - 
    2*S2[a1, a1, a5, a3, SP[a2, a4], n] - 
    2*S2[a1, a1, a5, a4, SP[a2, a3], n] - 
    2*S2[a1, a1, a5, SP[a2, a3], a4, n] - 
    2*S2[a1, a1, a5, SP[a2, a4], a3, n] - 
    2*S2[a1, a1, SP[a2, a3], a4, a5, n] - 
    2*S2[a1, a1, SP[a2, a3], a5, a4, n] - 
    2*S2[a1, a1, SP[a2, a4], a3, a5, n] - 
    2*S2[a1, a1, SP[a2, a4], a5, a3, n] + 
    2*S2[a1, a1, SP[a3, a5], a2, a4, n] + 
    2*S2[a1, a1, SP[a3, a5], a4, a2, n] + 
    2*S2[a1, a1, SP[a4, a5], a2, a3, n] + 
    2*S2[a1, a1, SP[a4, a5], a3, a2, n] + 
    S2[a5, n]*S2[a1, a2, a1, a3, a4, n] + S2[a1, a2, a1, a3, SP[a4, a5], n] + 
    S2[a5, n]*S2[a1, a2, a1, a4, a3, n] + S2[a1, a2, a1, a4, SP[a3, a5], n] + 
    S2[a1, a2, a1, SP[a3, a5], a4, n] + S2[a1, a2, a1, SP[a4, a5], a3, n] - 
    S2[a3, n]*S2[a1, a2, a5, a1, a4, n] - S2[a1, a2, a5, a1, SP[a3, a4], n] - 
    S2[a1, a2, a5, SP[a1, a3], a4, n] + S2[a1, a2, SP[a1, a5], a3, a4, n] + 
    S2[a1, a2, SP[a1, a5], a4, a3, n] - S2[a1, a2, SP[a3, a5], a1, a4, n] + 
    S2[a5, n]*S2[a1, a3, a1, a2, a4, n] + S2[a1, a3, a1, a2, SP[a4, a5], n] + 
    S2[a5, n]*S2[a1, a3, a1, a4, a2, n] - S2[a1, a3, a1, a5, SP[a2, a4], n] - 
    S2[a1, a3, a1, SP[a2, a4], a5, n] + S2[a1, a3, a1, SP[a4, a5], a2, n] + 
    S2[a5, n]*S2[a1, a3, a4, a1, a2, n] + S2[a1, a3, a5, SP[a1, a2], a4, n] - 
    S2[a1, a3, a5, SP[a1, a4], a2, n] - S2[a1, a3, SP[a1, a4], a2, a5, n] - 
    S2[a1, a3, SP[a1, a4], a5, a2, n] + S2[a1, a3, SP[a2, a5], a1, a4, n] + 
    S2[a1, a3, SP[a4, a5], a1, a2, n] + S2[a5, n]*S2[a1, a4, a1, a2, a3, n] + 
    S2[a1, a4, a1, a2, SP[a3, a5], n] + S2[a5, n]*S2[a1, a4, a1, a3, a2, n] - 
    S2[a1, a4, a1, a5, SP[a2, a3], n] - S2[a1, a4, a1, SP[a2, a3], a5, n] + 
    S2[a1, a4, a1, SP[a3, a5], a2, n] + S2[a5, n]*S2[a1, a4, a3, a1, a2, n] - 
    S2[a1, a4, a5, a1, SP[a2, a3], n] - S2[a1, a4, a5, SP[a1, a3], a2, n] - 
    S2[a1, a4, SP[a1, a3], a2, a5, n] - S2[a1, a4, SP[a1, a3], a5, a2, n] + 
    S2[a1, a4, SP[a3, a5], a1, a2, n] - S2[a3, n]*S2[a1, a5, a1, a2, a4, n] - 
    S2[a1, a5, a1, a2, SP[a3, a4], n] - S2[a1, a5, a1, a3, SP[a2, a4], n] - 
    S2[a3, n]*S2[a1, a5, a1, a4, a2, n] - 
    2*S2[a1, a5, a1, a4, SP[a2, a3], n] - 
    2*S2[a1, a5, a1, SP[a2, a3], a4, n] - S2[a1, a5, a1, SP[a2, a4], a3, n] - 
    S2[a1, a5, a1, SP[a3, a4], a2, n] - S2[a3, n]*S2[a1, a5, a2, a1, a4, n] - 
    S2[a1, a5, a2, a1, SP[a3, a4], n] - S2[a1, a5, a2, SP[a1, a3], a4, n] + 
    S2[a2, n]*S2[a1, a5, a3, a1, a4, n] + S2[a1, a5, a3, SP[a1, a2], a4, n] - 
    S2[a1, a5, a3, SP[a1, a4], a2, n] - S2[a1, a5, a4, a1, SP[a2, a3], n] - 
    S2[a1, a5, a4, SP[a1, a3], a2, n] - 2*S2[a1, a5, SP[a1, a3], a2, a4, n] - 
    2*S2[a1, a5, SP[a1, a3], a4, a2, n] - S2[a1, a5, SP[a1, a4], a2, a3, n] - 
    S2[a1, a5, SP[a1, a4], a3, a2, n] - S2[a1, SP[a1, a2], a3, a4, a5, n] - 
    S2[a1, SP[a1, a2], a3, a5, a4, n] - S2[a1, SP[a1, a2], a4, a3, a5, n] - 
    S2[a1, SP[a1, a2], a4, a5, a3, n] - S2[a1, SP[a1, a2], a5, a3, a4, n] - 
    S2[a1, SP[a1, a2], a5, a4, a3, n] - S2[a1, SP[a1, a3], a2, a4, a5, n] - 
    S2[a1, SP[a1, a3], a2, a5, a4, n] - S2[a1, SP[a1, a3], a4, a2, a5, n] - 
    S2[a1, SP[a1, a3], a4, a5, a2, n] - S2[a1, SP[a1, a3], a5, a2, a4, n] - 
    S2[a1, SP[a1, a3], a5, a4, a2, n] - S2[a1, SP[a1, a4], a2, a3, a5, n] - 
    S2[a1, SP[a1, a4], a2, a5, a3, n] - S2[a1, SP[a1, a4], a3, a2, a5, n] - 
    S2[a1, SP[a1, a4], a3, a5, a2, n] - S2[a1, SP[a1, a4], a5, a2, a3, n] - 
    S2[a1, SP[a1, a4], a5, a3, a2, n] + S2[a1, SP[a1, a5], a2, a3, a4, n] + 
    S2[a1, SP[a1, a5], a2, a4, a3, n] + S2[a1, SP[a1, a5], a3, a2, a4, n] + 
    S2[a1, SP[a1, a5], a3, a4, a2, n] + S2[a1, SP[a1, a5], a4, a2, a3, n] + 
    S2[a1, SP[a1, a5], a4, a3, a2, n] + S2[a1, SP[a2, a5], a1, a3, a4, n] + 
    S2[a1, SP[a2, a5], a1, a4, a3, n] + S2[a1, SP[a2, a5], a3, a1, a4, n] - 
    S2[a1, SP[a3, a5], a2, a1, a4, n] + S2[a1, SP[a3, a5], a4, a1, a2, n] + 
    S2[a1, SP[a4, a5], a1, a2, a3, n] + S2[a1, SP[a4, a5], a1, a3, a2, n] + 
    S2[a1, SP[a4, a5], a3, a1, a2, n] + S2[a3, a1, a5, a1, SP[a2, a4], n] + 
    S2[a3, a1, a5, SP[a1, a2], a4, n] + S2[a3, a1, SP[a2, a5], a1, a4, n] + 
    2*S2[a3, a5, a1, a1, SP[a2, a4], n] + S2[a3, a5, a1, SP[a1, a2], a4, n] + 
    S2[a3, a5, a1, SP[a1, a4], a2, n] + S2[a3, a5, SP[a1, a1], a2, a4, n] + 
    S2[a3, a5, SP[a1, a1], a4, a2, n] + S2[a3, SP[a1, a5], a1, a2, a4, n] + 
    S2[a3, SP[a1, a5], a1, a4, a2, n] + S2[a3, SP[a1, a5], a2, a1, a4, n] - 
    2*S2[a3, n]*S2[a5, a1, a1, a2, a4, n] - 
    2*S2[a5, a1, a1, a2, SP[a3, a4], n] - 
    2*S2[a3, n]*S2[a5, a1, a1, a4, a2, n] - 
    2*S2[a5, a1, a1, a4, SP[a2, a3], n] - 
    2*S2[a5, a1, a1, SP[a2, a3], a4, n] - 
    2*S2[a5, a1, a1, SP[a3, a4], a2, n] - 
    S2[a3, n]*S2[a5, a1, a2, a1, a4, n] - S2[a5, a1, a2, a1, SP[a3, a4], n] - 
    S2[a5, a1, a2, SP[a1, a3], a4, n] - S2[a3, n]*S2[a5, a1, a4, a1, a2, n] - 
    S2[a5, a1, a4, a1, SP[a2, a3], n] - S2[a5, a1, a4, SP[a1, a3], a2, n] - 
    2*S2[a5, a1, SP[a1, a3], a2, a4, n] - 
    2*S2[a5, a1, SP[a1, a3], a4, a2, n] - S2[a5, a1, SP[a2, a3], a1, a4, n] - 
    S2[a5, a1, SP[a3, a4], a1, a2, n] - 2*S2[a5, SP[a1, a3], a1, a2, a4, n] - 
    2*S2[a5, SP[a1, a3], a1, a4, a2, n] - S2[a5, SP[a1, a3], a2, a1, a4, n] - 
    S2[a5, SP[a1, a3], a4, a1, a2, n] - S2[SP[a1, a1], a2, a3, a4, a5, n] - 
    S2[SP[a1, a1], a2, a3, a5, a4, n] - S2[SP[a1, a1], a2, a4, a3, a5, n] - 
    S2[SP[a1, a1], a2, a4, a5, a3, n] - S2[SP[a1, a1], a2, a5, a3, a4, n] - 
    S2[SP[a1, a1], a2, a5, a4, a3, n] - S2[SP[a1, a1], a3, a2, a4, a5, n] - 
    S2[SP[a1, a1], a3, a2, a5, a4, n] - S2[SP[a1, a1], a3, a4, a2, a5, n] - 
    S2[SP[a1, a1], a3, a4, a5, a2, n] - S2[SP[a1, a1], a3, a5, a2, a4, n] - 
    S2[SP[a1, a1], a3, a5, a4, a2, n] - S2[SP[a1, a1], a4, a2, a3, a5, n] - 
    S2[SP[a1, a1], a4, a2, a5, a3, n] - S2[SP[a1, a1], a4, a3, a2, a5, n] - 
    S2[SP[a1, a1], a4, a3, a5, a2, n] - S2[SP[a1, a1], a4, a5, a2, a3, n] - 
    S2[SP[a1, a1], a4, a5, a3, a2, n] - S2[SP[a1, a1], a5, a2, a3, a4, n] - 
    S2[SP[a1, a1], a5, a2, a4, a3, n] - S2[SP[a1, a1], a5, a3, a2, a4, n] - 
    S2[SP[a1, a1], a5, a3, a4, a2, n] - S2[SP[a1, a1], a5, a4, a2, a3, n] - 
    S2[SP[a1, a1], a5, a4, a3, a2, n] + S2[SP[a1, a2], a5, a3, a1, a4, n] + 
    2*S2[SP[a1, a5], a1, a2, a3, a4, n] + 
    2*S2[SP[a1, a5], a1, a2, a4, a3, n] + 
    2*S2[SP[a1, a5], a1, a3, a2, a4, n] + 
    2*S2[SP[a1, a5], a1, a3, a4, a2, n] + 
    2*S2[SP[a1, a5], a1, a4, a2, a3, n] + 
    2*S2[SP[a1, a5], a1, a4, a3, a2, n] + S2[SP[a1, a5], a2, a1, a3, a4, n] + 
    S2[SP[a1, a5], a2, a1, a4, a3, n] + S2[SP[a1, a5], a3, a1, a2, a4, n] + 
    S2[SP[a1, a5], a3, a1, a4, a2, n] + S2[SP[a1, a5], a3, a4, a1, a2, n] + 
    S2[SP[a1, a5], a4, a1, a2, a3, n] + S2[SP[a1, a5], a4, a1, a3, a2, n] + 
    S2[SP[a1, a5], a4, a3, a1, a2, n] - 2*S2[SP[a3, a5], a1, a1, a2, a4, n] - 
    2*S2[SP[a3, a5], a1, a1, a4, a2, n] - S2[SP[a3, a5], a1, a2, a1, a4, n] - 
    S2[SP[a3, a5], a1, a4, a1, a2, n] + S2[a5, a1, a2, a3, a1, a4, n] + 
    S2[a5, a1, a3, a1, a2, a4, n] + S2[a5, a1, a3, a1, a4, a2, n] + 
    S2[a5, a1, a3, a2, a1, a4, n] + 2*S2[a5, a3, a1, a1, a2, a4, n] + 
    2*S2[a5, a3, a1, a1, a4, a2, n] + S2[a5, a3, a1, a2, a1, a4, n] + 
    S2[a5, a3, a1, a4, a1, a2, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a2_, a1_, a5_, a3_, a4_, a1_, n_] :> 
  S2[a1, a2, n]*S2[a1, a4, a3, a5, n] + S2[a1, a2, n]*S2[a1, a4, a5, a3, n] - 
    S2[a1, a4, SP[a1, a3], SP[a2, a5], n] - S2[a1, a4, SP[a1, a5], 
     SP[a2, a3], n] + S2[a1, a2, n]*S2[a1, a5, a3, a4, n] + 
    S2[a1, a2, n]*S2[a1, a5, a4, a3, n] - S2[a1, a5, SP[a1, a3], SP[a2, a4], 
     n] - S2[a1, a5, SP[a1, a4], SP[a2, a3], n] - S2[a1, SP[a1, a4], a3, 
     SP[a2, a5], n] - S2[a1, SP[a1, a4], a5, SP[a2, a3], n] - 
    S2[a1, SP[a1, a4], SP[a2, a3], a5, n] - S2[a1, SP[a1, a4], SP[a2, a5], 
     a3, n] - S2[a1, SP[a1, a5], a3, SP[a2, a4], n] - 
    S2[a1, SP[a1, a5], a4, SP[a2, a3], n] - S2[a1, SP[a1, a5], SP[a2, a3], 
     a4, n] - S2[a1, SP[a1, a5], SP[a2, a4], a3, n] - 
    S2[a1, a2, n]*S2[a3, a5, a1, a4, n] + S2[a3, a5, SP[a1, a1], SP[a2, a4], 
     n] + S2[a3, SP[a1, a5], a1, SP[a2, a4], n] + 
    S2[a3, SP[a1, a5], SP[a1, a2], a4, n] - S2[SP[a1, a1], a4, a3, 
     SP[a2, a5], n] - S2[SP[a1, a1], a4, a5, SP[a2, a3], n] - 
    S2[SP[a1, a1], a4, SP[a2, a3], a5, n] - S2[SP[a1, a1], a4, SP[a2, a5], 
     a3, n] - S2[SP[a1, a1], a5, a3, SP[a2, a4], n] - 
    S2[SP[a1, a1], a5, a4, SP[a2, a3], n] - S2[SP[a1, a1], a5, SP[a2, a3], 
     a4, n] - S2[SP[a1, a1], a5, SP[a2, a4], a3, n] - 
    S2[SP[a1, a1], SP[a2, a4], a3, a5, n] - S2[SP[a1, a1], SP[a2, a4], a5, 
     a3, n] - S2[SP[a1, a1], SP[a2, a5], a3, a4, n] - 
    S2[SP[a1, a1], SP[a2, a5], a4, a3, n] + S2[SP[a1, a3], a5, a1, 
     SP[a2, a4], n] + S2[SP[a1, a3], a5, SP[a1, a2], a4, n] + 
    S2[SP[a1, a3], SP[a2, a5], a1, a4, n] - 
    2*S2[a5, n]*S2[a1, a1, a2, a4, a3, n] - 
    2*S2[a1, a1, a2, a4, SP[a3, a5], n] - 
    2*S2[a1, a1, a2, SP[a4, a5], a3, n] - 
    2*S2[a5, n]*S2[a1, a1, a4, a2, a3, n] - 
    2*S2[a1, a1, a4, a2, SP[a3, a5], n] - 
    2*S2[a5, n]*S2[a1, a1, a4, a3, a2, n] + 
    2*S2[a1, a1, a4, a5, SP[a2, a3], n] + 
    2*S2[a1, a1, a4, SP[a2, a3], a5, n] - 
    2*S2[a1, a1, a4, SP[a3, a5], a2, n] - 
    2*S2[a2, n]*S2[a1, a1, a5, a3, a4, n] + 
    2*S2[a1, a1, a5, a4, SP[a2, a3], n] + 
    2*S2[a1, a1, a5, SP[a2, a4], a3, n] + 
    2*S2[a1, a1, SP[a2, a4], a3, a5, n] + 
    2*S2[a1, a1, SP[a2, a4], a5, a3, n] - 
    2*S2[a1, a1, SP[a4, a5], a2, a3, n] - 
    2*S2[a1, a1, SP[a4, a5], a3, a2, n] - 
    S2[a5, n]*S2[a1, a2, a1, a4, a3, n] - S2[a1, a2, a1, a4, SP[a3, a5], n] - 
    S2[a1, a2, a1, SP[a4, a5], a3, n] + S2[a3, n]*S2[a1, a2, a5, a1, a4, n] + 
    S2[a1, a2, a5, a1, SP[a3, a4], n] + S2[a1, a2, a5, SP[a1, a3], a4, n] - 
    S2[a1, a2, SP[a1, a5], a4, a3, n] + S2[a1, a2, SP[a3, a5], a1, a4, n] - 
    S2[a1, a3, a5, a1, SP[a2, a4], n] - S2[a1, a3, a5, SP[a1, a2], a4, n] - 
    S2[a1, a3, SP[a2, a5], a1, a4, n] - S2[a5, n]*S2[a1, a4, a1, a2, a3, n] - 
    S2[a1, a4, a1, a2, SP[a3, a5], n] - S2[a5, n]*S2[a1, a4, a1, a3, a2, n] + 
    S2[a1, a4, a1, a5, SP[a2, a3], n] + S2[a1, a4, a1, SP[a2, a3], a5, n] - 
    S2[a1, a4, a1, SP[a3, a5], a2, n] - S2[a5, n]*S2[a1, a4, a3, a1, a2, n] + 
    S2[a1, a4, a5, a1, SP[a2, a3], n] + S2[a1, a4, a5, SP[a1, a3], a2, n] + 
    S2[a1, a4, SP[a1, a3], a2, a5, n] + S2[a1, a4, SP[a1, a3], a5, a2, n] - 
    S2[a1, a4, SP[a3, a5], a1, a2, n] + S2[a3, n]*S2[a1, a5, a1, a2, a4, n] + 
    S2[a1, a5, a1, a2, SP[a3, a4], n] - S2[a2, n]*S2[a1, a5, a1, a3, a4, n] + 
    S2[a3, n]*S2[a1, a5, a1, a4, a2, n] + 
    2*S2[a1, a5, a1, a4, SP[a2, a3], n] + S2[a1, a5, a1, SP[a2, a3], a4, n] + 
    S2[a1, a5, a1, SP[a2, a4], a3, n] + S2[a1, a5, a1, SP[a3, a4], a2, n] + 
    S2[a3, n]*S2[a1, a5, a2, a1, a4, n] + S2[a1, a5, a2, a1, SP[a3, a4], n] + 
    S2[a1, a5, a2, SP[a1, a3], a4, n] - S2[a2, n]*S2[a1, a5, a3, a1, a4, n] - 
    S2[a1, a5, a3, SP[a1, a2], a4, n] + S2[a1, a5, a3, SP[a1, a4], a2, n] + 
    S2[a1, a5, a4, a1, SP[a2, a3], n] + S2[a1, a5, a4, SP[a1, a3], a2, n] - 
    S2[a1, a5, SP[a1, a2], a3, a4, n] + 2*S2[a1, a5, SP[a1, a3], a2, a4, n] + 
    2*S2[a1, a5, SP[a1, a3], a4, a2, n] + S2[a1, a5, SP[a1, a4], a2, a3, n] + 
    S2[a1, a5, SP[a1, a4], a3, a2, n] + S2[a1, SP[a1, a2], a4, a3, a5, n] + 
    S2[a1, SP[a1, a2], a4, a5, a3, n] - S2[a1, SP[a1, a2], a5, a3, a4, n] + 
    S2[a1, SP[a1, a2], a5, a4, a3, n] + S2[a1, SP[a1, a4], a2, a3, a5, n] + 
    S2[a1, SP[a1, a4], a2, a5, a3, n] + S2[a1, SP[a1, a4], a3, a2, a5, n] + 
    S2[a1, SP[a1, a4], a3, a5, a2, n] + S2[a1, SP[a1, a4], a5, a2, a3, n] + 
    S2[a1, SP[a1, a4], a5, a3, a2, n] + S2[a1, SP[a1, a5], a2, a3, a4, n] - 
    S2[a1, SP[a1, a5], a2, a4, a3, n] + S2[a1, SP[a1, a5], a3, a2, a4, n] + 
    S2[a1, SP[a1, a5], a3, a4, a2, n] - S2[a1, SP[a1, a5], a4, a2, a3, n] - 
    S2[a1, SP[a1, a5], a4, a3, a2, n] - S2[a1, SP[a2, a5], a1, a3, a4, n] - 
    S2[a1, SP[a2, a5], a1, a4, a3, n] - S2[a1, SP[a2, a5], a3, a1, a4, n] + 
    S2[a1, SP[a3, a5], a1, a2, a4, n] + S2[a1, SP[a3, a5], a1, a4, a2, n] + 
    S2[a1, SP[a3, a5], a2, a1, a4, n] - S2[a1, SP[a4, a5], a1, a2, a3, n] - 
    S2[a1, SP[a4, a5], a1, a3, a2, n] - S2[a1, SP[a4, a5], a3, a1, a2, n] + 
    S2[a1, n]*S2[a2, a1, a5, a3, a4, n] + S2[a2, a1, a5, a3, SP[a1, a4], n] + 
    S2[a2, a1, a5, SP[a1, a3], a4, n] + S2[a2, a1, SP[a1, a5], a3, a4, n] + 
    S2[a2, SP[a1, a1], a5, a3, a4, n] - S2[a3, a1, a5, a1, SP[a2, a4], n] - 
    S2[a3, a1, a5, SP[a1, a2], a4, n] - S2[a3, a1, SP[a2, a5], a1, a4, n] - 
    2*S2[a3, a5, a1, a1, SP[a2, a4], n] - S2[a3, a5, a1, SP[a1, a2], a4, n] - 
    S2[a3, a5, a1, SP[a1, a4], a2, n] - S2[a3, a5, SP[a1, a1], a2, a4, n] - 
    S2[a3, a5, SP[a1, a1], a4, a2, n] - S2[a3, SP[a1, a5], a1, a2, a4, n] - 
    S2[a3, SP[a1, a5], a1, a4, a2, n] - S2[a3, SP[a1, a5], a2, a1, a4, n] + 
    2*S2[a3, n]*S2[a5, a1, a1, a2, a4, n] + 
    2*S2[a5, a1, a1, a2, SP[a3, a4], n] + 
    2*S2[a3, n]*S2[a5, a1, a1, a4, a2, n] + 
    2*S2[a5, a1, a1, a4, SP[a2, a3], n] + 
    2*S2[a5, a1, a1, SP[a2, a3], a4, n] + 
    2*S2[a5, a1, a1, SP[a3, a4], a2, n] + 
    S2[a3, n]*S2[a5, a1, a2, a1, a4, n] + S2[a5, a1, a2, a1, SP[a3, a4], n] - 
    S2[a1, n]*S2[a5, a1, a2, a3, a4, n] - S2[a5, a1, a2, a3, SP[a1, a4], n] - 
    S2[a1, n]*S2[a5, a1, a3, a2, a4, n] - S2[a5, a1, a3, a2, SP[a1, a4], n] - 
    S2[a1, n]*S2[a5, a1, a3, a4, a2, n] - S2[a5, a1, a3, a4, SP[a1, a2], n] - 
    S2[a5, a1, a3, SP[a1, a2], a4, n] - S2[a5, a1, a3, SP[a1, a4], a2, n] + 
    S2[a3, n]*S2[a5, a1, a4, a1, a2, n] + S2[a5, a1, a4, a1, SP[a2, a3], n] + 
    S2[a5, a1, a4, SP[a1, a3], a2, n] - S2[a5, a1, SP[a1, a2], a3, a4, n] + 
    S2[a5, a1, SP[a1, a3], a2, a4, n] + S2[a5, a1, SP[a1, a3], a4, a2, n] + 
    S2[a5, a1, SP[a2, a3], a1, a4, n] + S2[a5, a1, SP[a3, a4], a1, a2, n] - 
    S2[a1, n]*S2[a5, a3, a1, a2, a4, n] - S2[a5, a3, a1, a2, SP[a1, a4], n] - 
    S2[a1, n]*S2[a5, a3, a1, a4, a2, n] - S2[a5, a3, a1, a4, SP[a1, a2], n] - 
    S2[a5, a3, a1, SP[a1, a2], a4, n] - S2[a5, a3, a1, SP[a1, a4], a2, n] - 
    S2[a1, n]*S2[a5, a3, a4, a1, a2, n] - S2[a5, a3, a4, a1, SP[a1, a2], n] - 
    S2[a5, a3, a4, SP[a1, a1], a2, n] - S2[a5, a3, SP[a1, a1], a2, a4, n] - 
    S2[a5, a3, SP[a1, a1], a4, a2, n] - S2[a5, a3, SP[a1, a4], a1, a2, n] - 
    S2[a5, SP[a1, a1], a2, a3, a4, n] - S2[a5, SP[a1, a1], a3, a2, a4, n] - 
    S2[a5, SP[a1, a1], a3, a4, a2, n] + S2[a5, SP[a1, a3], a1, a2, a4, n] + 
    S2[a5, SP[a1, a3], a1, a4, a2, n] + S2[a5, SP[a1, a3], a2, a1, a4, n] + 
    S2[SP[a1, a1], a2, a4, a3, a5, n] + S2[SP[a1, a1], a2, a4, a5, a3, n] + 
    S2[SP[a1, a1], a2, a5, a3, a4, n] + S2[SP[a1, a1], a2, a5, a4, a3, n] + 
    S2[SP[a1, a1], a4, a2, a3, a5, n] + S2[SP[a1, a1], a4, a2, a5, a3, n] + 
    S2[SP[a1, a1], a4, a3, a2, a5, n] + S2[SP[a1, a1], a4, a3, a5, a2, n] + 
    S2[SP[a1, a1], a4, a5, a2, a3, n] + S2[SP[a1, a1], a4, a5, a3, a2, n] + 
    S2[SP[a1, a1], a5, a2, a3, a4, n] + S2[SP[a1, a1], a5, a2, a4, a3, n] + 
    S2[SP[a1, a1], a5, a3, a2, a4, n] + S2[SP[a1, a1], a5, a3, a4, a2, n] + 
    S2[SP[a1, a1], a5, a4, a2, a3, n] + S2[SP[a1, a1], a5, a4, a3, a2, n] - 
    S2[SP[a1, a2], a1, a5, a3, a4, n] - S2[SP[a1, a2], a5, a1, a3, a4, n] - 
    S2[SP[a1, a2], a5, a3, a1, a4, n] - S2[SP[a1, a5], a1, a2, a3, a4, n] - 
    2*S2[SP[a1, a5], a1, a2, a4, a3, n] - S2[SP[a1, a5], a1, a3, a2, a4, n] - 
    S2[SP[a1, a5], a1, a3, a4, a2, n] - 2*S2[SP[a1, a5], a1, a4, a2, a3, n] - 
    2*S2[SP[a1, a5], a1, a4, a3, a2, n] - S2[SP[a1, a5], a2, a1, a4, a3, n] - 
    S2[SP[a1, a5], a3, a1, a2, a4, n] - S2[SP[a1, a5], a3, a1, a4, a2, n] - 
    S2[SP[a1, a5], a3, a4, a1, a2, n] - S2[SP[a1, a5], a4, a1, a2, a3, n] - 
    S2[SP[a1, a5], a4, a1, a3, a2, n] - S2[SP[a1, a5], a4, a3, a1, a2, n] + 
    2*S2[SP[a3, a5], a1, a1, a2, a4, n] + 
    2*S2[SP[a3, a5], a1, a1, a4, a2, n] + S2[SP[a3, a5], a1, a2, a1, a4, n] + 
    S2[SP[a3, a5], a1, a4, a1, a2, n] + S2[a5, a1, a2, a3, a4, a1, n] + 
    S2[a5, a1, a3, a2, a4, a1, n] + S2[a5, a1, a3, a4, a1, a2, n] + 
    S2[a5, a1, a3, a4, a2, a1, n] + S2[a5, a3, a1, a2, a4, a1, n] + 
    S2[a5, a3, a1, a4, a1, a2, n] + S2[a5, a3, a1, a4, a2, a1, n] + 
    2*S2[a5, a3, a4, a1, a1, a2, n] + S2[a5, a3, a4, a1, a2, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a2_, a1_, a5_, a4_, a1_, a3_, n_] :> 
  -(S2[a1, a2, n]*S2[a1, a3, a4, a5, n]) - S2[a1, a2, n]*
     S2[a1, a3, a5, a4, n] + S2[a1, a3, SP[a1, a4], SP[a2, a5], n] + 
    S2[a1, a3, SP[a1, a5], SP[a2, a4], n] - S2[a1, a2, n]*
     S2[a1, a4, a3, a5, n] - S2[a1, a2, n]*S2[a1, a4, a5, a3, n] + 
    S2[a1, a4, SP[a1, a3], SP[a2, a5], n] + S2[a1, a4, SP[a1, a5], 
     SP[a2, a3], n] - S2[a1, a2, n]*S2[a1, a5, a3, a4, n] - 
    S2[a1, a2, n]*S2[a1, a5, a4, a3, n] + S2[a1, a5, SP[a1, a3], SP[a2, a4], 
     n] + S2[a1, a5, SP[a1, a4], SP[a2, a3], n] + S2[a1, SP[a1, a3], a4, 
     SP[a2, a5], n] + S2[a1, SP[a1, a3], a5, SP[a2, a4], n] + 
    S2[a1, SP[a1, a3], SP[a2, a4], a5, n] + S2[a1, SP[a1, a3], SP[a2, a5], 
     a4, n] + S2[a1, SP[a1, a4], a3, SP[a2, a5], n] + 
    S2[a1, SP[a1, a4], a5, SP[a2, a3], n] + S2[a1, SP[a1, a4], SP[a2, a3], 
     a5, n] + S2[a1, SP[a1, a4], SP[a2, a5], a3, n] + 
    S2[a1, SP[a1, a5], a3, SP[a2, a4], n] + S2[a1, SP[a1, a5], a4, 
     SP[a2, a3], n] + S2[a1, SP[a1, a5], SP[a2, a3], a4, n] + 
    S2[a1, SP[a1, a5], SP[a2, a4], a3, n] + S2[a1, a2, n]*
     S2[a4, a5, a1, a3, n] - S2[a4, a5, SP[a1, a1], SP[a2, a3], n] - 
    S2[a4, SP[a1, a5], a1, SP[a2, a3], n] - S2[a4, SP[a1, a5], SP[a1, a2], 
     a3, n] + S2[SP[a1, a1], a3, a4, SP[a2, a5], n] + 
    S2[SP[a1, a1], a3, a5, SP[a2, a4], n] + S2[SP[a1, a1], a3, SP[a2, a4], 
     a5, n] + S2[SP[a1, a1], a3, SP[a2, a5], a4, n] + 
    S2[SP[a1, a1], a4, a3, SP[a2, a5], n] + S2[SP[a1, a1], a4, a5, 
     SP[a2, a3], n] + S2[SP[a1, a1], a4, SP[a2, a3], a5, n] + 
    S2[SP[a1, a1], a4, SP[a2, a5], a3, n] + S2[SP[a1, a1], a5, a3, 
     SP[a2, a4], n] + S2[SP[a1, a1], a5, a4, SP[a2, a3], n] + 
    S2[SP[a1, a1], a5, SP[a2, a3], a4, n] + S2[SP[a1, a1], a5, SP[a2, a4], 
     a3, n] + S2[SP[a1, a1], SP[a2, a3], a4, a5, n] + 
    S2[SP[a1, a1], SP[a2, a3], a5, a4, n] + S2[SP[a1, a1], SP[a2, a4], a3, 
     a5, n] + S2[SP[a1, a1], SP[a2, a4], a5, a3, n] + 
    S2[SP[a1, a1], SP[a2, a5], a3, a4, n] + S2[SP[a1, a1], SP[a2, a5], a4, 
     a3, n] - S2[SP[a1, a4], a5, a1, SP[a2, a3], n] - 
    S2[SP[a1, a4], a5, SP[a1, a2], a3, n] - S2[SP[a1, a4], SP[a2, a5], a1, 
     a3, n] + 2*S2[a5, n]*S2[a1, a1, a2, a3, a4, n] + 
    2*S2[a1, a1, a2, a3, SP[a4, a5], n] + 
    2*S2[a5, n]*S2[a1, a1, a2, a4, a3, n] + 
    2*S2[a1, a1, a2, a4, SP[a3, a5], n] + 
    2*S2[a1, a1, a2, SP[a3, a5], a4, n] + 
    2*S2[a1, a1, a2, SP[a4, a5], a3, n] + 
    2*S2[a5, n]*S2[a1, a1, a3, a2, a4, n] + 
    2*S2[a1, a1, a3, a2, SP[a4, a5], n] + 
    2*S2[a5, n]*S2[a1, a1, a3, a4, a2, n] - 
    2*S2[a1, a1, a3, a5, SP[a2, a4], n] - 
    2*S2[a1, a1, a3, SP[a2, a4], a5, n] + 
    2*S2[a1, a1, a3, SP[a4, a5], a2, n] + 
    2*S2[a5, n]*S2[a1, a1, a4, a2, a3, n] + 
    2*S2[a1, a1, a4, a2, SP[a3, a5], n] + 
    2*S2[a5, n]*S2[a1, a1, a4, a3, a2, n] - 
    2*S2[a1, a1, a4, a5, SP[a2, a3], n] - 
    2*S2[a1, a1, a4, SP[a2, a3], a5, n] + 
    2*S2[a1, a1, a4, SP[a3, a5], a2, n] - 
    2*S2[a1, a1, a5, a3, SP[a2, a4], n] - 
    2*S2[a1, a1, a5, a4, SP[a2, a3], n] - 
    2*S2[a1, a1, a5, SP[a2, a3], a4, n] - 
    2*S2[a1, a1, a5, SP[a2, a4], a3, n] - 
    2*S2[a1, a1, SP[a2, a3], a4, a5, n] - 
    2*S2[a1, a1, SP[a2, a3], a5, a4, n] - 
    2*S2[a1, a1, SP[a2, a4], a3, a5, n] - 
    2*S2[a1, a1, SP[a2, a4], a5, a3, n] + 
    2*S2[a1, a1, SP[a3, a5], a2, a4, n] + 
    2*S2[a1, a1, SP[a3, a5], a4, a2, n] + 
    2*S2[a1, a1, SP[a4, a5], a2, a3, n] + 
    2*S2[a1, a1, SP[a4, a5], a3, a2, n] + 
    S2[a5, n]*S2[a1, a2, a1, a3, a4, n] + S2[a1, a2, a1, a3, SP[a4, a5], n] + 
    S2[a5, n]*S2[a1, a2, a1, a4, a3, n] + S2[a1, a2, a1, a4, SP[a3, a5], n] + 
    S2[a1, a2, a1, SP[a3, a5], a4, n] + S2[a1, a2, a1, SP[a4, a5], a3, n] - 
    S2[a4, n]*S2[a1, a2, a5, a1, a3, n] - S2[a1, a2, a5, a1, SP[a3, a4], n] - 
    S2[a1, a2, a5, SP[a1, a4], a3, n] + S2[a1, a2, SP[a1, a5], a3, a4, n] + 
    S2[a1, a2, SP[a1, a5], a4, a3, n] - S2[a1, a2, SP[a4, a5], a1, a3, n] + 
    S2[a5, n]*S2[a1, a3, a1, a2, a4, n] + S2[a1, a3, a1, a2, SP[a4, a5], n] + 
    S2[a5, n]*S2[a1, a3, a1, a4, a2, n] - S2[a1, a3, a1, a5, SP[a2, a4], n] - 
    S2[a1, a3, a1, SP[a2, a4], a5, n] + S2[a1, a3, a1, SP[a4, a5], a2, n] + 
    S2[a5, n]*S2[a1, a3, a4, a1, a2, n] - S2[a1, a3, a5, a1, SP[a2, a4], n] - 
    S2[a1, a3, a5, SP[a1, a4], a2, n] - S2[a1, a3, SP[a1, a4], a2, a5, n] - 
    S2[a1, a3, SP[a1, a4], a5, a2, n] + S2[a1, a3, SP[a4, a5], a1, a2, n] + 
    S2[a5, n]*S2[a1, a4, a1, a2, a3, n] + S2[a1, a4, a1, a2, SP[a3, a5], n] + 
    S2[a5, n]*S2[a1, a4, a1, a3, a2, n] - S2[a1, a4, a1, a5, SP[a2, a3], n] - 
    S2[a1, a4, a1, SP[a2, a3], a5, n] + S2[a1, a4, a1, SP[a3, a5], a2, n] + 
    S2[a5, n]*S2[a1, a4, a3, a1, a2, n] + S2[a1, a4, a5, SP[a1, a2], a3, n] - 
    S2[a1, a4, a5, SP[a1, a3], a2, n] - S2[a1, a4, SP[a1, a3], a2, a5, n] - 
    S2[a1, a4, SP[a1, a3], a5, a2, n] + S2[a1, a4, SP[a2, a5], a1, a3, n] + 
    S2[a1, a4, SP[a3, a5], a1, a2, n] - S2[a4, n]*S2[a1, a5, a1, a2, a3, n] - 
    S2[a1, a5, a1, a2, SP[a3, a4], n] - S2[a4, n]*S2[a1, a5, a1, a3, a2, n] - 
    2*S2[a1, a5, a1, a3, SP[a2, a4], n] - S2[a1, a5, a1, a4, SP[a2, a3], n] - 
    S2[a1, a5, a1, SP[a2, a3], a4, n] - 2*S2[a1, a5, a1, SP[a2, a4], a3, n] - 
    S2[a1, a5, a1, SP[a3, a4], a2, n] - S2[a4, n]*S2[a1, a5, a2, a1, a3, n] - 
    S2[a1, a5, a2, a1, SP[a3, a4], n] - S2[a1, a5, a2, SP[a1, a4], a3, n] - 
    S2[a1, a5, a3, a1, SP[a2, a4], n] - S2[a1, a5, a3, SP[a1, a4], a2, n] + 
    S2[a2, n]*S2[a1, a5, a4, a1, a3, n] + S2[a1, a5, a4, SP[a1, a2], a3, n] - 
    S2[a1, a5, a4, SP[a1, a3], a2, n] - S2[a1, a5, SP[a1, a3], a2, a4, n] - 
    S2[a1, a5, SP[a1, a3], a4, a2, n] - 2*S2[a1, a5, SP[a1, a4], a2, a3, n] - 
    2*S2[a1, a5, SP[a1, a4], a3, a2, n] - S2[a1, SP[a1, a2], a3, a4, a5, n] - 
    S2[a1, SP[a1, a2], a3, a5, a4, n] - S2[a1, SP[a1, a2], a4, a3, a5, n] - 
    S2[a1, SP[a1, a2], a4, a5, a3, n] - S2[a1, SP[a1, a2], a5, a3, a4, n] - 
    S2[a1, SP[a1, a2], a5, a4, a3, n] - S2[a1, SP[a1, a3], a2, a4, a5, n] - 
    S2[a1, SP[a1, a3], a2, a5, a4, n] - S2[a1, SP[a1, a3], a4, a2, a5, n] - 
    S2[a1, SP[a1, a3], a4, a5, a2, n] - S2[a1, SP[a1, a3], a5, a2, a4, n] - 
    S2[a1, SP[a1, a3], a5, a4, a2, n] - S2[a1, SP[a1, a4], a2, a3, a5, n] - 
    S2[a1, SP[a1, a4], a2, a5, a3, n] - S2[a1, SP[a1, a4], a3, a2, a5, n] - 
    S2[a1, SP[a1, a4], a3, a5, a2, n] - S2[a1, SP[a1, a4], a5, a2, a3, n] - 
    S2[a1, SP[a1, a4], a5, a3, a2, n] + S2[a1, SP[a1, a5], a2, a3, a4, n] + 
    S2[a1, SP[a1, a5], a2, a4, a3, n] + S2[a1, SP[a1, a5], a3, a2, a4, n] + 
    S2[a1, SP[a1, a5], a3, a4, a2, n] + S2[a1, SP[a1, a5], a4, a2, a3, n] + 
    S2[a1, SP[a1, a5], a4, a3, a2, n] + S2[a1, SP[a2, a5], a1, a3, a4, n] + 
    S2[a1, SP[a2, a5], a1, a4, a3, n] + S2[a1, SP[a2, a5], a4, a1, a3, n] + 
    S2[a1, SP[a3, a5], a1, a2, a4, n] + S2[a1, SP[a3, a5], a1, a4, a2, n] + 
    S2[a1, SP[a3, a5], a4, a1, a2, n] - S2[a1, SP[a4, a5], a2, a1, a3, n] + 
    S2[a1, SP[a4, a5], a3, a1, a2, n] + S2[a4, a1, a5, a1, SP[a2, a3], n] + 
    S2[a4, a1, a5, SP[a1, a2], a3, n] + S2[a4, a1, SP[a2, a5], a1, a3, n] + 
    2*S2[a4, a5, a1, a1, SP[a2, a3], n] + S2[a4, a5, a1, SP[a1, a2], a3, n] + 
    S2[a4, a5, a1, SP[a1, a3], a2, n] + S2[a4, a5, SP[a1, a1], a2, a3, n] + 
    S2[a4, a5, SP[a1, a1], a3, a2, n] + S2[a4, SP[a1, a5], a1, a2, a3, n] + 
    S2[a4, SP[a1, a5], a1, a3, a2, n] + S2[a4, SP[a1, a5], a2, a1, a3, n] - 
    2*S2[a4, n]*S2[a5, a1, a1, a2, a3, n] - 
    2*S2[a5, a1, a1, a2, SP[a3, a4], n] - 
    2*S2[a4, n]*S2[a5, a1, a1, a3, a2, n] - 
    2*S2[a5, a1, a1, a3, SP[a2, a4], n] - 
    2*S2[a5, a1, a1, SP[a2, a4], a3, n] - 
    2*S2[a5, a1, a1, SP[a3, a4], a2, n] - 
    S2[a4, n]*S2[a5, a1, a2, a1, a3, n] - S2[a5, a1, a2, a1, SP[a3, a4], n] - 
    S2[a5, a1, a2, SP[a1, a4], a3, n] - S2[a4, n]*S2[a5, a1, a3, a1, a2, n] - 
    S2[a5, a1, a3, a1, SP[a2, a4], n] - S2[a5, a1, a3, SP[a1, a4], a2, n] - 
    2*S2[a5, a1, SP[a1, a4], a2, a3, n] - 
    2*S2[a5, a1, SP[a1, a4], a3, a2, n] - S2[a5, a1, SP[a2, a4], a1, a3, n] - 
    S2[a5, a1, SP[a3, a4], a1, a2, n] - 2*S2[a5, SP[a1, a4], a1, a2, a3, n] - 
    2*S2[a5, SP[a1, a4], a1, a3, a2, n] - S2[a5, SP[a1, a4], a2, a1, a3, n] - 
    S2[a5, SP[a1, a4], a3, a1, a2, n] - S2[SP[a1, a1], a2, a3, a4, a5, n] - 
    S2[SP[a1, a1], a2, a3, a5, a4, n] - S2[SP[a1, a1], a2, a4, a3, a5, n] - 
    S2[SP[a1, a1], a2, a4, a5, a3, n] - S2[SP[a1, a1], a2, a5, a3, a4, n] - 
    S2[SP[a1, a1], a2, a5, a4, a3, n] - S2[SP[a1, a1], a3, a2, a4, a5, n] - 
    S2[SP[a1, a1], a3, a2, a5, a4, n] - S2[SP[a1, a1], a3, a4, a2, a5, n] - 
    S2[SP[a1, a1], a3, a4, a5, a2, n] - S2[SP[a1, a1], a3, a5, a2, a4, n] - 
    S2[SP[a1, a1], a3, a5, a4, a2, n] - S2[SP[a1, a1], a4, a2, a3, a5, n] - 
    S2[SP[a1, a1], a4, a2, a5, a3, n] - S2[SP[a1, a1], a4, a3, a2, a5, n] - 
    S2[SP[a1, a1], a4, a3, a5, a2, n] - S2[SP[a1, a1], a4, a5, a2, a3, n] - 
    S2[SP[a1, a1], a4, a5, a3, a2, n] - S2[SP[a1, a1], a5, a2, a3, a4, n] - 
    S2[SP[a1, a1], a5, a2, a4, a3, n] - S2[SP[a1, a1], a5, a3, a2, a4, n] - 
    S2[SP[a1, a1], a5, a3, a4, a2, n] - S2[SP[a1, a1], a5, a4, a2, a3, n] - 
    S2[SP[a1, a1], a5, a4, a3, a2, n] + S2[SP[a1, a2], a5, a4, a1, a3, n] + 
    2*S2[SP[a1, a5], a1, a2, a3, a4, n] + 
    2*S2[SP[a1, a5], a1, a2, a4, a3, n] + 
    2*S2[SP[a1, a5], a1, a3, a2, a4, n] + 
    2*S2[SP[a1, a5], a1, a3, a4, a2, n] + 
    2*S2[SP[a1, a5], a1, a4, a2, a3, n] + 
    2*S2[SP[a1, a5], a1, a4, a3, a2, n] + S2[SP[a1, a5], a2, a1, a3, a4, n] + 
    S2[SP[a1, a5], a2, a1, a4, a3, n] + S2[SP[a1, a5], a3, a1, a2, a4, n] + 
    S2[SP[a1, a5], a3, a1, a4, a2, n] + S2[SP[a1, a5], a3, a4, a1, a2, n] + 
    S2[SP[a1, a5], a4, a1, a2, a3, n] + S2[SP[a1, a5], a4, a1, a3, a2, n] + 
    S2[SP[a1, a5], a4, a3, a1, a2, n] - 2*S2[SP[a4, a5], a1, a1, a2, a3, n] - 
    2*S2[SP[a4, a5], a1, a1, a3, a2, n] - S2[SP[a4, a5], a1, a2, a1, a3, n] - 
    S2[SP[a4, a5], a1, a3, a1, a2, n] + S2[a5, a1, a2, a4, a1, a3, n] + 
    S2[a5, a1, a4, a1, a2, a3, n] + S2[a5, a1, a4, a1, a3, a2, n] + 
    S2[a5, a1, a4, a2, a1, a3, n] + 2*S2[a5, a4, a1, a1, a2, a3, n] + 
    2*S2[a5, a4, a1, a1, a3, a2, n] + S2[a5, a4, a1, a2, a1, a3, n] + 
    S2[a5, a4, a1, a3, a1, a2, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a2_, a1_, a5_, a4_, a3_, a1_, n_] :> 
  S2[a1, a2, n]*S2[a1, a3, a4, a5, n] + S2[a1, a2, n]*S2[a1, a3, a5, a4, n] - 
    S2[a1, a3, SP[a1, a4], SP[a2, a5], n] - S2[a1, a3, SP[a1, a5], 
     SP[a2, a4], n] + S2[a1, a2, n]*S2[a1, a5, a3, a4, n] + 
    S2[a1, a2, n]*S2[a1, a5, a4, a3, n] - S2[a1, a5, SP[a1, a3], SP[a2, a4], 
     n] - S2[a1, a5, SP[a1, a4], SP[a2, a3], n] - S2[a1, SP[a1, a3], a4, 
     SP[a2, a5], n] - S2[a1, SP[a1, a3], a5, SP[a2, a4], n] - 
    S2[a1, SP[a1, a3], SP[a2, a4], a5, n] - S2[a1, SP[a1, a3], SP[a2, a5], 
     a4, n] - S2[a1, SP[a1, a5], a3, SP[a2, a4], n] - 
    S2[a1, SP[a1, a5], a4, SP[a2, a3], n] - S2[a1, SP[a1, a5], SP[a2, a3], 
     a4, n] - S2[a1, SP[a1, a5], SP[a2, a4], a3, n] - 
    S2[a1, a2, n]*S2[a4, a5, a1, a3, n] + S2[a4, a5, SP[a1, a1], SP[a2, a3], 
     n] + S2[a4, SP[a1, a5], a1, SP[a2, a3], n] + 
    S2[a4, SP[a1, a5], SP[a1, a2], a3, n] - S2[SP[a1, a1], a3, a4, 
     SP[a2, a5], n] - S2[SP[a1, a1], a3, a5, SP[a2, a4], n] - 
    S2[SP[a1, a1], a3, SP[a2, a4], a5, n] - S2[SP[a1, a1], a3, SP[a2, a5], 
     a4, n] - S2[SP[a1, a1], a5, a3, SP[a2, a4], n] - 
    S2[SP[a1, a1], a5, a4, SP[a2, a3], n] - S2[SP[a1, a1], a5, SP[a2, a3], 
     a4, n] - S2[SP[a1, a1], a5, SP[a2, a4], a3, n] - 
    S2[SP[a1, a1], SP[a2, a3], a4, a5, n] - S2[SP[a1, a1], SP[a2, a3], a5, 
     a4, n] - S2[SP[a1, a1], SP[a2, a5], a3, a4, n] - 
    S2[SP[a1, a1], SP[a2, a5], a4, a3, n] + S2[SP[a1, a4], a5, a1, 
     SP[a2, a3], n] + S2[SP[a1, a4], a5, SP[a1, a2], a3, n] + 
    S2[SP[a1, a4], SP[a2, a5], a1, a3, n] - 
    2*S2[a5, n]*S2[a1, a1, a2, a3, a4, n] - 
    2*S2[a1, a1, a2, a3, SP[a4, a5], n] - 
    2*S2[a1, a1, a2, SP[a3, a5], a4, n] - 
    2*S2[a5, n]*S2[a1, a1, a3, a2, a4, n] - 
    2*S2[a1, a1, a3, a2, SP[a4, a5], n] - 
    2*S2[a5, n]*S2[a1, a1, a3, a4, a2, n] + 
    2*S2[a1, a1, a3, a5, SP[a2, a4], n] + 
    2*S2[a1, a1, a3, SP[a2, a4], a5, n] - 
    2*S2[a1, a1, a3, SP[a4, a5], a2, n] + 
    2*S2[a1, a1, a5, a3, SP[a2, a4], n] - 
    2*S2[a2, n]*S2[a1, a1, a5, a4, a3, n] + 
    2*S2[a1, a1, a5, SP[a2, a3], a4, n] + 
    2*S2[a1, a1, SP[a2, a3], a4, a5, n] + 
    2*S2[a1, a1, SP[a2, a3], a5, a4, n] - 
    2*S2[a1, a1, SP[a3, a5], a2, a4, n] - 
    2*S2[a1, a1, SP[a3, a5], a4, a2, n] - 
    S2[a5, n]*S2[a1, a2, a1, a3, a4, n] - S2[a1, a2, a1, a3, SP[a4, a5], n] - 
    S2[a1, a2, a1, SP[a3, a5], a4, n] + S2[a4, n]*S2[a1, a2, a5, a1, a3, n] + 
    S2[a1, a2, a5, a1, SP[a3, a4], n] + S2[a1, a2, a5, SP[a1, a4], a3, n] - 
    S2[a1, a2, SP[a1, a5], a3, a4, n] + S2[a1, a2, SP[a4, a5], a1, a3, n] - 
    S2[a5, n]*S2[a1, a3, a1, a2, a4, n] - S2[a1, a3, a1, a2, SP[a4, a5], n] - 
    S2[a5, n]*S2[a1, a3, a1, a4, a2, n] + S2[a1, a3, a1, a5, SP[a2, a4], n] + 
    S2[a1, a3, a1, SP[a2, a4], a5, n] - S2[a1, a3, a1, SP[a4, a5], a2, n] - 
    S2[a5, n]*S2[a1, a3, a4, a1, a2, n] + S2[a1, a3, a5, a1, SP[a2, a4], n] + 
    S2[a1, a3, a5, SP[a1, a4], a2, n] + S2[a1, a3, SP[a1, a4], a2, a5, n] + 
    S2[a1, a3, SP[a1, a4], a5, a2, n] - S2[a1, a3, SP[a4, a5], a1, a2, n] - 
    S2[a1, a4, a5, a1, SP[a2, a3], n] - S2[a1, a4, a5, SP[a1, a2], a3, n] - 
    S2[a1, a4, SP[a2, a5], a1, a3, n] + S2[a4, n]*S2[a1, a5, a1, a2, a3, n] + 
    S2[a1, a5, a1, a2, SP[a3, a4], n] + S2[a4, n]*S2[a1, a5, a1, a3, a2, n] + 
    2*S2[a1, a5, a1, a3, SP[a2, a4], n] - 
    S2[a2, n]*S2[a1, a5, a1, a4, a3, n] + S2[a1, a5, a1, SP[a2, a3], a4, n] + 
    S2[a1, a5, a1, SP[a2, a4], a3, n] + S2[a1, a5, a1, SP[a3, a4], a2, n] + 
    S2[a4, n]*S2[a1, a5, a2, a1, a3, n] + S2[a1, a5, a2, a1, SP[a3, a4], n] + 
    S2[a1, a5, a2, SP[a1, a4], a3, n] + S2[a1, a5, a3, a1, SP[a2, a4], n] + 
    S2[a1, a5, a3, SP[a1, a4], a2, n] - S2[a2, n]*S2[a1, a5, a4, a1, a3, n] - 
    S2[a1, a5, a4, SP[a1, a2], a3, n] + S2[a1, a5, a4, SP[a1, a3], a2, n] - 
    S2[a1, a5, SP[a1, a2], a4, a3, n] + S2[a1, a5, SP[a1, a3], a2, a4, n] + 
    S2[a1, a5, SP[a1, a3], a4, a2, n] + 2*S2[a1, a5, SP[a1, a4], a2, a3, n] + 
    2*S2[a1, a5, SP[a1, a4], a3, a2, n] + S2[a1, SP[a1, a2], a3, a4, a5, n] + 
    S2[a1, SP[a1, a2], a3, a5, a4, n] + S2[a1, SP[a1, a2], a5, a3, a4, n] - 
    S2[a1, SP[a1, a2], a5, a4, a3, n] + S2[a1, SP[a1, a3], a2, a4, a5, n] + 
    S2[a1, SP[a1, a3], a2, a5, a4, n] + S2[a1, SP[a1, a3], a4, a2, a5, n] + 
    S2[a1, SP[a1, a3], a4, a5, a2, n] + S2[a1, SP[a1, a3], a5, a2, a4, n] + 
    S2[a1, SP[a1, a3], a5, a4, a2, n] - S2[a1, SP[a1, a5], a2, a3, a4, n] + 
    S2[a1, SP[a1, a5], a2, a4, a3, n] - S2[a1, SP[a1, a5], a3, a2, a4, n] - 
    S2[a1, SP[a1, a5], a3, a4, a2, n] + S2[a1, SP[a1, a5], a4, a2, a3, n] + 
    S2[a1, SP[a1, a5], a4, a3, a2, n] - S2[a1, SP[a2, a5], a1, a3, a4, n] - 
    S2[a1, SP[a2, a5], a1, a4, a3, n] - S2[a1, SP[a2, a5], a4, a1, a3, n] - 
    S2[a1, SP[a3, a5], a1, a2, a4, n] - S2[a1, SP[a3, a5], a1, a4, a2, n] - 
    S2[a1, SP[a3, a5], a4, a1, a2, n] + S2[a1, SP[a4, a5], a1, a2, a3, n] + 
    S2[a1, SP[a4, a5], a1, a3, a2, n] + S2[a1, SP[a4, a5], a2, a1, a3, n] + 
    S2[a1, n]*S2[a2, a1, a5, a4, a3, n] + S2[a2, a1, a5, a4, SP[a1, a3], n] + 
    S2[a2, a1, a5, SP[a1, a4], a3, n] + S2[a2, a1, SP[a1, a5], a4, a3, n] + 
    S2[a2, SP[a1, a1], a5, a4, a3, n] - S2[a4, a1, a5, a1, SP[a2, a3], n] - 
    S2[a4, a1, a5, SP[a1, a2], a3, n] - S2[a4, a1, SP[a2, a5], a1, a3, n] - 
    2*S2[a4, a5, a1, a1, SP[a2, a3], n] - S2[a4, a5, a1, SP[a1, a2], a3, n] - 
    S2[a4, a5, a1, SP[a1, a3], a2, n] - S2[a4, a5, SP[a1, a1], a2, a3, n] - 
    S2[a4, a5, SP[a1, a1], a3, a2, n] - S2[a4, SP[a1, a5], a1, a2, a3, n] - 
    S2[a4, SP[a1, a5], a1, a3, a2, n] - S2[a4, SP[a1, a5], a2, a1, a3, n] + 
    2*S2[a4, n]*S2[a5, a1, a1, a2, a3, n] + 
    2*S2[a5, a1, a1, a2, SP[a3, a4], n] + 
    2*S2[a4, n]*S2[a5, a1, a1, a3, a2, n] + 
    2*S2[a5, a1, a1, a3, SP[a2, a4], n] + 
    2*S2[a5, a1, a1, SP[a2, a4], a3, n] + 
    2*S2[a5, a1, a1, SP[a3, a4], a2, n] + 
    S2[a4, n]*S2[a5, a1, a2, a1, a3, n] + S2[a5, a1, a2, a1, SP[a3, a4], n] - 
    S2[a1, n]*S2[a5, a1, a2, a4, a3, n] - S2[a5, a1, a2, a4, SP[a1, a3], n] + 
    S2[a4, n]*S2[a5, a1, a3, a1, a2, n] + S2[a5, a1, a3, a1, SP[a2, a4], n] + 
    S2[a5, a1, a3, SP[a1, a4], a2, n] - S2[a1, n]*S2[a5, a1, a4, a2, a3, n] - 
    S2[a5, a1, a4, a2, SP[a1, a3], n] - S2[a1, n]*S2[a5, a1, a4, a3, a2, n] - 
    S2[a5, a1, a4, a3, SP[a1, a2], n] - S2[a5, a1, a4, SP[a1, a2], a3, n] - 
    S2[a5, a1, a4, SP[a1, a3], a2, n] - S2[a5, a1, SP[a1, a2], a4, a3, n] + 
    S2[a5, a1, SP[a1, a4], a2, a3, n] + S2[a5, a1, SP[a1, a4], a3, a2, n] + 
    S2[a5, a1, SP[a2, a4], a1, a3, n] + S2[a5, a1, SP[a3, a4], a1, a2, n] - 
    S2[a1, n]*S2[a5, a4, a1, a2, a3, n] - S2[a5, a4, a1, a2, SP[a1, a3], n] - 
    S2[a1, n]*S2[a5, a4, a1, a3, a2, n] - S2[a5, a4, a1, a3, SP[a1, a2], n] - 
    S2[a5, a4, a1, SP[a1, a2], a3, n] - S2[a5, a4, a1, SP[a1, a3], a2, n] - 
    S2[a1, n]*S2[a5, a4, a3, a1, a2, n] - S2[a5, a4, a3, a1, SP[a1, a2], n] - 
    S2[a5, a4, a3, SP[a1, a1], a2, n] - S2[a5, a4, SP[a1, a1], a2, a3, n] - 
    S2[a5, a4, SP[a1, a1], a3, a2, n] - S2[a5, a4, SP[a1, a3], a1, a2, n] - 
    S2[a5, SP[a1, a1], a2, a4, a3, n] - S2[a5, SP[a1, a1], a4, a2, a3, n] - 
    S2[a5, SP[a1, a1], a4, a3, a2, n] + S2[a5, SP[a1, a4], a1, a2, a3, n] + 
    S2[a5, SP[a1, a4], a1, a3, a2, n] + S2[a5, SP[a1, a4], a2, a1, a3, n] + 
    S2[SP[a1, a1], a2, a3, a4, a5, n] + S2[SP[a1, a1], a2, a3, a5, a4, n] + 
    S2[SP[a1, a1], a2, a5, a3, a4, n] + S2[SP[a1, a1], a2, a5, a4, a3, n] + 
    S2[SP[a1, a1], a3, a2, a4, a5, n] + S2[SP[a1, a1], a3, a2, a5, a4, n] + 
    S2[SP[a1, a1], a3, a4, a2, a5, n] + S2[SP[a1, a1], a3, a4, a5, a2, n] + 
    S2[SP[a1, a1], a3, a5, a2, a4, n] + S2[SP[a1, a1], a3, a5, a4, a2, n] + 
    S2[SP[a1, a1], a5, a2, a3, a4, n] + S2[SP[a1, a1], a5, a2, a4, a3, n] + 
    S2[SP[a1, a1], a5, a3, a2, a4, n] + S2[SP[a1, a1], a5, a3, a4, a2, n] + 
    S2[SP[a1, a1], a5, a4, a2, a3, n] + S2[SP[a1, a1], a5, a4, a3, a2, n] - 
    S2[SP[a1, a2], a1, a5, a4, a3, n] - S2[SP[a1, a2], a5, a1, a4, a3, n] - 
    S2[SP[a1, a2], a5, a4, a1, a3, n] - 2*S2[SP[a1, a5], a1, a2, a3, a4, n] - 
    S2[SP[a1, a5], a1, a2, a4, a3, n] - 2*S2[SP[a1, a5], a1, a3, a2, a4, n] - 
    2*S2[SP[a1, a5], a1, a3, a4, a2, n] - S2[SP[a1, a5], a1, a4, a2, a3, n] - 
    S2[SP[a1, a5], a1, a4, a3, a2, n] - S2[SP[a1, a5], a2, a1, a3, a4, n] - 
    S2[SP[a1, a5], a3, a1, a2, a4, n] - S2[SP[a1, a5], a3, a1, a4, a2, n] - 
    S2[SP[a1, a5], a3, a4, a1, a2, n] - S2[SP[a1, a5], a4, a1, a2, a3, n] - 
    S2[SP[a1, a5], a4, a1, a3, a2, n] - S2[SP[a1, a5], a4, a3, a1, a2, n] + 
    2*S2[SP[a4, a5], a1, a1, a2, a3, n] + 
    2*S2[SP[a4, a5], a1, a1, a3, a2, n] + S2[SP[a4, a5], a1, a2, a1, a3, n] + 
    S2[SP[a4, a5], a1, a3, a1, a2, n] + S2[a5, a1, a2, a4, a3, a1, n] + 
    S2[a5, a1, a4, a2, a3, a1, n] + S2[a5, a1, a4, a3, a1, a2, n] + 
    S2[a5, a1, a4, a3, a2, a1, n] + S2[a5, a4, a1, a2, a3, a1, n] + 
    S2[a5, a4, a1, a3, a1, a2, n] + S2[a5, a4, a1, a3, a2, a1, n] + 
    2*S2[a5, a4, a3, a1, a1, a2, n] + S2[a5, a4, a3, a1, a2, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a2_, a3_, a1_, a1_, a4_, a5_, n_] :> 
  S2[a1, a3, a2, n]*S2[a1, a4, a5, n] + S2[SP[a1, a1], SP[a3, a4], 
     SP[a2, a5], n] - S2[a4, a5, n]*S2[a1, a1, a3, a2, n] + 
    S2[a2, a3, n]*S2[a1, a1, a4, a5, n] - S2[a1, a1, SP[a2, a4], SP[a3, a5], 
     n] - S2[a1, a1, SP[a3, a4], SP[a2, a5], n] - S2[a1, SP[a1, a2], a4, 
     SP[a3, a5], n] - S2[a1, SP[a1, a2], SP[a3, a4], a5, n] - 
    S2[a1, SP[a1, a3], a4, SP[a2, a5], n] - S2[a1, SP[a1, a3], SP[a2, a4], 
     a5, n] - S2[SP[a1, a1], a3, a4, SP[a2, a5], n] - 
    S2[SP[a1, a1], a3, SP[a2, a4], a5, n] - S2[SP[a1, a1], a4, a3, 
     SP[a2, a5], n] - S2[SP[a1, a1], a4, SP[a3, a5], a2, n] - 
    S2[SP[a1, a1], SP[a3, a4], a2, a5, n] - S2[SP[a1, a1], SP[a3, a4], a5, 
     a2, n] - S2[SP[a1, a2], a1, a4, SP[a3, a5], n] - 
    S2[SP[a1, a2], a1, SP[a3, a4], a5, n] - S2[SP[a1, a2], SP[a1, a3], a4, 
     a5, n] + S2[SP[a1, a4], a1, a3, SP[a2, a5], n] + 
    S2[SP[a1, a4], a1, SP[a3, a5], a2, n] + S2[SP[a1, a4], SP[a1, a5], a3, 
     a2, n] + S2[a1, a1, a2, a4, SP[a3, a5], n] + S2[a1, a1, a2, SP[a3, a4], 
     a5, n] - S2[a5, n]*S2[a1, a1, a3, a2, a4, n] + 
    S2[a4, n]*S2[a1, a1, a3, a2, a5, n] - 
    S2[a5, n]*S2[a1, a1, a3, a4, a2, n] - 
    S2[a2, n]*S2[a1, a1, a3, a4, a5, n] - S2[a1, a1, a3, a4, SP[a2, a5], n] + 
    S2[a4, n]*S2[a1, a1, a3, a5, a2, n] + S2[a1, a1, a3, a5, SP[a2, a4], n] + 
    S2[a1, a1, a3, SP[a2, a4], a5, n] - S2[a1, a1, a3, SP[a2, a5], a4, n] + 
    S2[a1, a1, a4, a2, SP[a3, a5], n] - S2[a5, n]*S2[a1, a1, a4, a3, a2, n] - 
    S2[a2, n]*S2[a1, a1, a4, a3, a5, n] - S2[a1, a1, a4, a3, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a1, a4, a5, a3, n] - S2[a1, a1, a4, a5, SP[a2, a3], n] - 
    S2[a1, a1, a4, SP[a2, a3], a5, n] + S2[a4, n]*S2[a1, a1, a5, a3, a2, n] + 
    S2[a1, a1, a5, a3, SP[a2, a4], n] + S2[a1, a1, a5, SP[a3, a4], a2, n] - 
    S2[a1, a1, SP[a2, a3], a4, a5, n] + 2*S2[a1, a1, SP[a3, a4], a2, a5, n] + 
    2*S2[a1, a1, SP[a3, a4], a5, a2, n] - S2[a1, a1, SP[a3, a5], a2, a4, n] - 
    S2[a1, a1, SP[a3, a5], a4, a2, n] + S2[a1, a2, a1, a4, SP[a3, a5], n] + 
    S2[a1, a2, a1, SP[a3, a4], a5, n] + S2[a1, a2, SP[a1, a3], a4, a5, n] - 
    S2[a2, n]*S2[a1, a3, a1, a4, a5, n] - 
    S2[a5, n]*S2[a1, a4, a1, a3, a2, n] - S2[a1, a4, a1, a3, SP[a2, a5], n] - 
    S2[a1, a4, a1, SP[a3, a5], a2, n] - S2[a1, a4, SP[a1, a5], a3, a2, n] + 
    S2[a4, n]*S2[a1, a5, a1, a3, a2, n] + S2[a1, a5, a1, a3, SP[a2, a4], n] + 
    S2[a1, a5, a1, SP[a3, a4], a2, n] + S2[a1, a5, SP[a1, a4], a3, a2, n] + 
    S2[a1, SP[a1, a3], a2, a4, a5, n] + S2[a1, SP[a1, a3], a4, a2, a5, n] + 
    S2[a1, SP[a1, a3], a4, a5, a2, n] + S2[a1, SP[a1, a4], a3, a2, a5, n] + 
    S2[a1, SP[a1, a4], a3, a5, a2, n] + S2[a1, SP[a1, a4], a5, a3, a2, n] - 
    S2[a1, SP[a1, a5], a3, a2, a4, n] - S2[a1, SP[a1, a5], a3, a4, a2, n] - 
    S2[a1, SP[a1, a5], a4, a3, a2, n] - S2[a1, SP[a2, a3], a1, a4, a5, n] + 
    S2[a2, a1, a1, a4, SP[a3, a5], n] + S2[a2, a1, a1, SP[a3, a4], a5, n] + 
    S2[a2, a1, SP[a1, a3], a4, a5, n] + S2[a2, SP[a1, a3], a1, a4, a5, n] - 
    S2[a4, a1, a1, a3, SP[a2, a5], n] - S2[a4, a1, a1, SP[a3, a5], a2, n] - 
    S2[a4, a1, SP[a1, a5], a3, a2, n] - S2[a4, SP[a1, a5], a1, a3, a2, n] + 
    S2[a4, n]*S2[a5, a1, a1, a3, a2, n] + S2[a5, a1, a1, a3, SP[a2, a4], n] + 
    S2[a5, a1, a1, SP[a3, a4], a2, n] + S2[a5, a1, SP[a1, a4], a3, a2, n] + 
    S2[a5, SP[a1, a4], a1, a3, a2, n] + S2[SP[a1, a1], a3, a2, a4, a5, n] + 
    S2[SP[a1, a1], a3, a4, a2, a5, n] + S2[SP[a1, a1], a3, a4, a5, a2, n] + 
    S2[SP[a1, a1], a4, a3, a2, a5, n] + S2[SP[a1, a1], a4, a3, a5, a2, n] + 
    S2[SP[a1, a1], a4, a5, a3, a2, n] - S2[SP[a1, a5], a1, a3, a2, a4, n] - 
    S2[SP[a1, a5], a1, a3, a4, a2, n] - S2[SP[a1, a5], a1, a4, a3, a2, n] - 
    S2[SP[a1, a5], a4, a1, a3, a2, n] + S2[SP[a4, a5], a1, a1, a3, a2, n] - 
    S2[a5, a4, a1, a1, a3, a2, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a2_, a3_, a1_, a1_, a5_, a4_, n_] :> 
  S2[a1, a3, a2, n]*S2[a1, a5, a4, n] + S2[SP[a1, a1], SP[a3, a5], 
     SP[a2, a4], n] + S2[a4, a5, n]*S2[a1, a1, a3, a2, n] + 
    S2[a2, a3, n]*S2[a1, a1, a5, a4, n] - S2[a1, a1, SP[a2, a5], SP[a3, a4], 
     n] - S2[a1, a1, SP[a3, a4], SP[a2, a5], n] - 
    2*S2[a1, a1, SP[a3, a5], SP[a2, a4], n] - S2[a1, SP[a1, a2], a5, 
     SP[a3, a4], n] - S2[a1, SP[a1, a2], SP[a3, a5], a4, n] - 
    S2[a1, SP[a1, a3], a5, SP[a2, a4], n] - S2[a1, SP[a1, a3], SP[a2, a5], 
     a4, n] - S2[a1, SP[a1, a4], a3, SP[a2, a5], n] - 
    S2[a1, SP[a1, a4], SP[a3, a5], a2, n] - S2[a1, SP[a1, a5], a3, 
     SP[a2, a4], n] - S2[a1, SP[a1, a5], SP[a3, a4], a2, n] - 
    S2[SP[a1, a1], a3, a5, SP[a2, a4], n] - S2[SP[a1, a1], a3, SP[a2, a5], 
     a4, n] - S2[SP[a1, a1], a5, a3, SP[a2, a4], n] - 
    S2[SP[a1, a1], a5, SP[a3, a4], a2, n] - S2[SP[a1, a1], SP[a3, a5], a2, 
     a4, n] - S2[SP[a1, a1], SP[a3, a5], a4, a2, n] - 
    S2[SP[a1, a2], a1, a5, SP[a3, a4], n] - S2[SP[a1, a2], a1, SP[a3, a5], 
     a4, n] - S2[SP[a1, a2], SP[a1, a3], a5, a4, n] - 
    S2[SP[a1, a4], a1, a3, SP[a2, a5], n] - S2[SP[a1, a4], a1, SP[a3, a5], 
     a2, n] - S2[SP[a1, a4], SP[a1, a5], a3, a2, n] + 
    S2[a1, a1, a2, a5, SP[a3, a4], n] + S2[a1, a1, a2, SP[a3, a5], a4, n] - 
    S2[a4, n]*S2[a1, a1, a3, a2, a5, n] - S2[a1, a1, a3, a2, SP[a4, a5], n] + 
    S2[a1, a1, a3, a4, SP[a2, a5], n] - S2[a4, n]*S2[a1, a1, a3, a5, a2, n] - 
    S2[a2, n]*S2[a1, a1, a3, a5, a4, n] + S2[a1, a1, a3, SP[a2, a5], a4, n] - 
    S2[a1, a1, a3, SP[a4, a5], a2, n] + S2[a1, a1, a4, a3, SP[a2, a5], n] + 
    S2[a1, a1, a4, SP[a3, a5], a2, n] + S2[a1, a1, a5, a2, SP[a3, a4], n] - 
    S2[a4, n]*S2[a1, a1, a5, a3, a2, n] - 
    S2[a2, n]*S2[a1, a1, a5, a3, a4, n] - 
    S2[a2, n]*S2[a1, a1, a5, a4, a3, n] - S2[a1, a1, a5, a4, SP[a2, a3], n] - 
    S2[a1, a1, a5, SP[a2, a3], a4, n] + S2[a1, a1, a5, SP[a3, a4], a2, n] - 
    S2[a1, a1, SP[a2, a3], a5, a4, n] + 2*S2[a1, a1, SP[a3, a5], a2, a4, n] + 
    2*S2[a1, a1, SP[a3, a5], a4, a2, n] - S2[a1, a1, SP[a4, a5], a3, a2, n] + 
    S2[a1, a2, a1, a5, SP[a3, a4], n] + S2[a1, a2, a1, SP[a3, a5], a4, n] + 
    S2[a1, a2, SP[a1, a3], a5, a4, n] - S2[a2, n]*S2[a1, a3, a1, a5, a4, n] + 
    S2[a1, a4, a1, a3, SP[a2, a5], n] + S2[a1, a4, a1, SP[a3, a5], a2, n] + 
    S2[a1, a4, SP[a1, a5], a3, a2, n] - S2[a4, n]*S2[a1, a5, a1, a3, a2, n] + 
    S2[a1, SP[a1, a3], a2, a5, a4, n] + S2[a1, SP[a1, a3], a5, a2, a4, n] + 
    S2[a1, SP[a1, a3], a5, a4, a2, n] + S2[a1, SP[a1, a5], a3, a2, a4, n] + 
    S2[a1, SP[a1, a5], a3, a4, a2, n] + S2[a1, SP[a1, a5], a4, a3, a2, n] - 
    S2[a1, SP[a2, a3], a1, a5, a4, n] - S2[a1, SP[a4, a5], a1, a3, a2, n] + 
    S2[a2, a1, a1, a5, SP[a3, a4], n] + S2[a2, a1, a1, SP[a3, a5], a4, n] + 
    S2[a2, a1, SP[a1, a3], a5, a4, n] + S2[a2, SP[a1, a3], a1, a5, a4, n] + 
    S2[a4, a1, a1, a3, SP[a2, a5], n] + S2[a4, a1, a1, SP[a3, a5], a2, n] + 
    S2[a4, a1, SP[a1, a5], a3, a2, n] + S2[a4, SP[a1, a5], a1, a3, a2, n] - 
    S2[a4, n]*S2[a5, a1, a1, a3, a2, n] - S2[a5, a1, a1, a3, SP[a2, a4], n] - 
    S2[a5, a1, a1, SP[a3, a4], a2, n] - S2[a5, a1, SP[a1, a4], a3, a2, n] - 
    S2[a5, SP[a1, a4], a1, a3, a2, n] + S2[SP[a1, a1], a3, a2, a5, a4, n] + 
    S2[SP[a1, a1], a3, a5, a2, a4, n] + S2[SP[a1, a1], a3, a5, a4, a2, n] + 
    S2[SP[a1, a1], a5, a3, a2, a4, n] + S2[SP[a1, a1], a5, a3, a4, a2, n] + 
    S2[SP[a1, a1], a5, a4, a3, a2, n] - S2[SP[a4, a5], a1, a1, a3, a2, n] + 
    S2[a5, a1, a1, a3, a2, a4, n] + S2[a5, a1, a1, a3, a4, a2, n] + 
    S2[a5, a1, a1, a4, a3, a2, n] + S2[a5, a1, a4, a1, a3, a2, n] + 
    S2[a5, a4, a1, a1, a3, a2, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a2_, a3_, a1_, a4_, a1_, a5_, n_] :> 
  -(S2[a1, a3, a2, n]*S2[a1, a4, a5, n]) - S2[a1, a3, a2, n]*
     S2[a1, a5, a4, n] - S2[SP[a1, a1], SP[a3, a4], SP[a2, a5], n] - 
    S2[SP[a1, a1], SP[a3, a5], SP[a2, a4], n] + 
    2*S2[a1, a1, SP[a3, a4], SP[a2, a5], n] + 
    2*S2[a1, a1, SP[a3, a5], SP[a2, a4], n] + 
    S2[a1, a5, n]*S2[a1, a3, a2, a4, n] + S2[a1, a5, n]*
     S2[a1, a3, a4, a2, n] - S2[a1, a3, SP[a1, a2], SP[a4, a5], n] - 
    S2[a1, a3, SP[a1, a4], SP[a2, a5], n] + S2[a2, a3, n]*
     S2[a1, a4, a1, a5, n] + S2[a1, a5, n]*S2[a1, a4, a3, a2, n] - 
    S2[a1, a4, SP[a1, a2], SP[a3, a5], n] - S2[a1, a4, SP[a1, a3], 
     SP[a2, a5], n] - S2[a1, SP[a1, a3], a2, SP[a4, a5], n] + 
    S2[a1, SP[a1, a3], a5, SP[a2, a4], n] + S2[a1, SP[a1, a3], SP[a2, a4], 
     a5, n] - S2[a1, SP[a1, a3], SP[a4, a5], a2, n] + 
    S2[a1, SP[a1, a5], a3, SP[a2, a4], n] + S2[a1, SP[a1, a5], SP[a3, a4], 
     a2, n] - S2[a1, SP[a2, a4], a1, SP[a3, a5], n] - 
    S2[a1, SP[a2, a4], SP[a1, a3], a5, n] - S2[SP[a1, a1], a3, a2, 
     SP[a4, a5], n] + S2[SP[a1, a1], a3, a5, SP[a2, a4], n] + 
    S2[SP[a1, a1], a3, SP[a2, a4], a5, n] - S2[SP[a1, a1], a3, SP[a4, a5], 
     a2, n] + S2[SP[a1, a1], a5, a3, SP[a2, a4], n] + 
    S2[SP[a1, a1], a5, SP[a3, a4], a2, n] + S2[SP[a1, a1], SP[a3, a4], a2, 
     a5, n] + S2[SP[a1, a1], SP[a3, a4], a5, a2, n] - 
    S2[SP[a1, a1], SP[a4, a5], a3, a2, n] - S2[SP[a1, a2], a4, a1, 
     SP[a3, a5], n] - S2[SP[a1, a2], a4, SP[a1, a3], a5, n] - 
    S2[SP[a1, a2], SP[a3, a4], a1, a5, n] + 
    2*S2[a1, a1, a3, a2, SP[a4, a5], n] - 
    2*S2[a1, a1, a3, a5, SP[a2, a4], n] - 
    2*S2[a1, a1, a3, SP[a2, a4], a5, n] + 
    2*S2[a1, a1, a3, SP[a4, a5], a2, n] - 
    2*S2[a1, a1, a5, a3, SP[a2, a4], n] - 
    2*S2[a1, a1, a5, SP[a3, a4], a2, n] - 
    2*S2[a1, a1, SP[a3, a4], a2, a5, n] - 
    2*S2[a1, a1, SP[a3, a4], a5, a2, n] + 
    2*S2[a1, a1, SP[a4, a5], a3, a2, n] + S2[a1, a2, a4, a1, SP[a3, a5], n] + 
    S2[a1, a2, a4, SP[a1, a3], a5, n] + S2[a1, a2, SP[a3, a4], a1, a5, n] + 
    S2[a1, a3, a1, a2, SP[a4, a5], n] - S2[a1, a3, a1, a5, SP[a2, a4], n] - 
    S2[a1, a3, a1, SP[a2, a4], a5, n] + S2[a1, a3, a1, SP[a4, a5], a2, n] + 
    S2[a1, a3, a2, a1, SP[a4, a5], n] + S2[a1, a3, a2, SP[a1, a4], a5, n] - 
    S2[a2, n]*S2[a1, a3, a4, a1, a5, n] + S2[a1, a3, SP[a1, a4], a2, a5, n] + 
    S2[a1, a3, SP[a1, a4], a5, a2, n] - S2[a1, a3, SP[a2, a4], a1, a5, n] + 
    S2[a1, a4, a1, a2, SP[a3, a5], n] + S2[a5, n]*S2[a1, a4, a1, a3, a2, n] - 
    S2[a2, n]*S2[a1, a4, a1, a3, a5, n] - 
    S2[a2, n]*S2[a1, a4, a1, a5, a3, n] - S2[a1, a4, a1, a5, SP[a2, a3], n] - 
    S2[a1, a4, a1, SP[a2, a3], a5, n] + S2[a1, a4, a1, SP[a3, a5], a2, n] + 
    S2[a1, a4, a2, a1, SP[a3, a5], n] + S2[a1, a4, a2, SP[a1, a3], a5, n] - 
    S2[a2, n]*S2[a1, a4, a3, a1, a5, n] + S2[a1, a4, SP[a1, a3], a2, a5, n] + 
    S2[a1, a4, SP[a1, a3], a5, a2, n] - S2[a1, a4, SP[a2, a3], a1, a5, n] - 
    S2[a1, a5, a1, a3, SP[a2, a4], n] - S2[a1, a5, a1, SP[a3, a4], a2, n] - 
    S2[a1, a5, SP[a1, a4], a3, a2, n] - S2[a1, SP[a2, a3], a4, a1, a5, n] + 
    S2[a1, SP[a4, a5], a1, a3, a2, n] + S2[a2, a1, a4, a1, SP[a3, a5], n] + 
    S2[a2, a1, a4, SP[a1, a3], a5, n] + S2[a2, a1, SP[a3, a4], a1, a5, n] + 
    S2[a2, SP[a1, a3], a4, a1, a5, n] + S2[SP[a1, a5], a4, a1, a3, a2, n] - 
    S2[a5, a1, a4, a1, a3, a2, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a2_, a3_, a1_, a4_, a5_, a1_, n_] :> 
  S2[a1, a3, a2, n]*S2[a1, a5, a4, n] + S2[SP[a1, a1], SP[a3, a5], 
     SP[a2, a4], n] - 2*S2[a2, a3, n]*S2[a1, a1, a4, a5, n] + 
    2*S2[a1, a1, SP[a2, a4], SP[a3, a5], n] - 
    2*S2[a1, a1, SP[a3, a5], SP[a2, a4], n] - 
    S2[a1, a5, n]*S2[a1, a3, a2, a4, n] - S2[a1, a5, n]*
     S2[a1, a3, a4, a2, n] + S2[a1, a3, SP[a1, a2], SP[a4, a5], n] + 
    S2[a1, a3, SP[a1, a4], SP[a2, a5], n] - S2[a2, a3, n]*
     S2[a1, a4, a1, a5, n] - S2[a1, a5, n]*S2[a1, a4, a3, a2, n] + 
    S2[a1, a4, SP[a1, a2], SP[a3, a5], n] + S2[a1, a4, SP[a1, a3], 
     SP[a2, a5], n] + 2*S2[a1, SP[a1, a2], a4, SP[a3, a5], n] + 
    2*S2[a1, SP[a1, a2], SP[a3, a4], a5, n] + S2[a1, SP[a1, a3], a2, 
     SP[a4, a5], n] + S2[a1, SP[a1, a3], a4, SP[a2, a5], n] - 
    S2[a1, SP[a1, a3], a5, SP[a2, a4], n] + S2[a1, SP[a1, a3], SP[a4, a5], 
     a2, n] + S2[a1, SP[a1, a4], a3, SP[a2, a5], n] + 
    S2[a1, SP[a1, a4], SP[a3, a5], a2, n] - S2[a1, SP[a1, a5], a3, 
     SP[a2, a4], n] - S2[a1, SP[a1, a5], SP[a3, a4], a2, n] + 
    S2[a1, SP[a2, a4], a1, SP[a3, a5], n] + S2[a1, SP[a2, a4], SP[a1, a3], 
     a5, n] + S2[SP[a1, a1], a3, a2, SP[a4, a5], n] + 
    S2[SP[a1, a1], a3, a4, SP[a2, a5], n] - S2[SP[a1, a1], a3, a5, 
     SP[a2, a4], n] + S2[SP[a1, a1], a3, SP[a4, a5], a2, n] + 
    S2[SP[a1, a1], a4, a3, SP[a2, a5], n] + S2[SP[a1, a1], a4, SP[a3, a5], 
     a2, n] - S2[SP[a1, a1], a5, a3, SP[a2, a4], n] - 
    S2[SP[a1, a1], a5, SP[a3, a4], a2, n] + S2[SP[a1, a1], SP[a4, a5], a3, 
     a2, n] + 2*S2[SP[a1, a2], a1, a4, SP[a3, a5], n] + 
    2*S2[SP[a1, a2], a1, SP[a3, a4], a5, n] + S2[SP[a1, a2], a4, a1, 
     SP[a3, a5], n] + S2[SP[a1, a2], a4, SP[a1, a3], a5, n] + 
    2*S2[SP[a1, a2], SP[a1, a3], a4, a5, n] + S2[SP[a1, a2], SP[a3, a4], a1, 
     a5, n] - 2*S2[a1, a1, a2, a4, SP[a3, a5], n] - 
    2*S2[a1, a1, a2, SP[a3, a4], a5, n] - 
    2*S2[a1, a1, a3, a2, SP[a4, a5], n] + 
    2*S2[a2, n]*S2[a1, a1, a3, a4, a5, n] + 
    2*S2[a1, a1, a3, a5, SP[a2, a4], n] + 
    2*S2[a1, a1, a3, SP[a2, a4], a5, n] - 
    2*S2[a1, a1, a3, SP[a4, a5], a2, n] - 
    2*S2[a1, a1, a4, a2, SP[a3, a5], n] + 
    2*S2[a2, n]*S2[a1, a1, a4, a3, a5, n] + 
    2*S2[a2, n]*S2[a1, a1, a4, a5, a3, n] + 
    2*S2[a1, a1, a4, a5, SP[a2, a3], n] + 
    2*S2[a1, a1, a4, SP[a2, a3], a5, n] - 
    2*S2[a1, a1, a4, SP[a3, a5], a2, n] + 
    2*S2[a1, a1, a5, a3, SP[a2, a4], n] + 
    2*S2[a1, a1, a5, SP[a3, a4], a2, n] + 
    2*S2[a1, a1, SP[a2, a3], a4, a5, n] - 
    2*S2[a1, a1, SP[a4, a5], a3, a2, n] - 
    2*S2[a1, a2, a1, a4, SP[a3, a5], n] - 
    2*S2[a1, a2, a1, SP[a3, a4], a5, n] - S2[a1, a2, a4, a1, SP[a3, a5], n] - 
    S2[a1, a2, a4, SP[a1, a3], a5, n] - 2*S2[a1, a2, SP[a1, a3], a4, a5, n] - 
    S2[a1, a2, SP[a3, a4], a1, a5, n] - S2[a1, a3, a1, a2, SP[a4, a5], n] + 
    S2[a2, n]*S2[a1, a3, a1, a4, a5, n] + S2[a1, a3, a1, a5, SP[a2, a4], n] + 
    S2[a1, a3, a1, SP[a2, a4], a5, n] - S2[a1, a3, a1, SP[a4, a5], a2, n] - 
    S2[a1, a3, a2, a1, SP[a4, a5], n] - S2[a1, a3, a2, SP[a1, a4], a5, n] + 
    S2[a2, n]*S2[a1, a3, a4, a1, a5, n] - S2[a1, a3, SP[a1, a4], a2, a5, n] - 
    S2[a1, a3, SP[a1, a4], a5, a2, n] + S2[a1, a3, SP[a2, a4], a1, a5, n] - 
    S2[a1, a4, a1, a2, SP[a3, a5], n] + S2[a2, n]*S2[a1, a4, a1, a3, a5, n] + 
    S2[a2, n]*S2[a1, a4, a1, a5, a3, n] + S2[a1, a4, a1, a5, SP[a2, a3], n] + 
    S2[a1, a4, a1, SP[a2, a3], a5, n] - S2[a1, a4, a1, SP[a3, a5], a2, n] - 
    S2[a1, a4, a2, a1, SP[a3, a5], n] - S2[a1, a4, a2, SP[a1, a3], a5, n] + 
    S2[a2, n]*S2[a1, a4, a3, a1, a5, n] - S2[a1, a4, SP[a1, a3], a2, a5, n] - 
    S2[a1, a4, SP[a1, a3], a5, a2, n] + S2[a1, a4, SP[a2, a3], a1, a5, n] + 
    S2[a1, a5, a1, a3, SP[a2, a4], n] + S2[a1, a5, a1, SP[a3, a4], a2, n] + 
    S2[a1, a5, SP[a1, a4], a3, a2, n] - S2[a1, SP[a1, a3], a2, a4, a5, n] - 
    S2[a1, SP[a1, a3], a4, a2, a5, n] - S2[a1, SP[a1, a3], a4, a5, a2, n] - 
    S2[a1, SP[a1, a4], a3, a2, a5, n] - S2[a1, SP[a1, a4], a3, a5, a2, n] - 
    S2[a1, SP[a1, a4], a5, a3, a2, n] + S2[a1, SP[a2, a3], a1, a4, a5, n] + 
    S2[a1, SP[a2, a3], a4, a1, a5, n] - 2*S2[a2, a1, a1, a4, SP[a3, a5], n] - 
    2*S2[a2, a1, a1, SP[a3, a4], a5, n] - S2[a2, a1, a4, a1, SP[a3, a5], n] - 
    S2[a2, a1, a4, SP[a1, a3], a5, n] - 2*S2[a2, a1, SP[a1, a3], a4, a5, n] - 
    S2[a2, a1, SP[a3, a4], a1, a5, n] + S2[a1, n]*S2[a2, a3, a1, a4, a5, n] + 
    S2[a2, a3, a1, a4, SP[a1, a5], n] + S2[a2, a3, a1, SP[a1, a4], a5, n] + 
    S2[a2, a3, SP[a1, a1], a4, a5, n] - S2[a2, SP[a1, a3], a1, a4, a5, n] - 
    S2[a2, SP[a1, a3], a4, a1, a5, n] - S2[a1, n]*S2[a5, a4, a1, a3, a2, n] - 
    S2[a5, a4, a1, a3, SP[a1, a2], n] - S2[a5, a4, a1, SP[a1, a3], a2, n] - 
    S2[a5, a4, SP[a1, a1], a3, a2, n] - S2[a5, SP[a1, a4], a1, a3, a2, n] - 
    S2[SP[a1, a1], a3, a2, a4, a5, n] - S2[SP[a1, a1], a3, a4, a2, a5, n] - 
    S2[SP[a1, a1], a3, a4, a5, a2, n] - S2[SP[a1, a1], a4, a3, a2, a5, n] - 
    S2[SP[a1, a1], a4, a3, a5, a2, n] - S2[SP[a1, a1], a4, a5, a3, a2, n] - 
    S2[SP[a1, a5], a4, a1, a3, a2, n] + S2[a5, a1, a4, a1, a3, a2, n] + 
    2*S2[a5, a4, a1, a1, a3, a2, n] + S2[a5, a4, a1, a3, a1, a2, n] + 
    S2[a5, a4, a1, a3, a2, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a2_, a3_, a1_, a5_, a1_, a4_, n_] :> 
  -(S2[a1, a3, a2, n]*S2[a1, a4, a5, n]) - S2[a1, a3, a2, n]*
     S2[a1, a5, a4, n] - S2[SP[a1, a1], SP[a3, a4], SP[a2, a5], n] - 
    S2[SP[a1, a1], SP[a3, a5], SP[a2, a4], n] - 
    2*S2[a2, a3, n]*S2[a1, a1, a4, a5, n] - 2*S2[a2, a3, n]*
     S2[a1, a1, a5, a4, n] + 2*S2[a1, a1, SP[a2, a4], SP[a3, a5], n] + 
    2*S2[a1, a1, SP[a2, a5], SP[a3, a4], n] + 
    2*S2[a1, a1, SP[a3, a4], SP[a2, a5], n] + 
    2*S2[a1, a1, SP[a3, a5], SP[a2, a4], n] - 
    S2[a1, a4, n]*S2[a1, a3, a2, a5, n] - S2[a1, a4, n]*
     S2[a1, a3, a5, a2, n] + S2[a1, a3, SP[a1, a2], SP[a4, a5], n] + 
    S2[a1, a3, SP[a1, a5], SP[a2, a4], n] - S2[a2, a3, n]*
     S2[a1, a4, a1, a5, n] + S2[a1, a4, SP[a1, a2], SP[a3, a5], n] - 
    S2[a1, a4, n]*S2[a1, a5, a3, a2, n] + S2[a1, a5, SP[a1, a3], SP[a2, a4], 
     n] + 2*S2[a1, SP[a1, a2], a4, SP[a3, a5], n] + 
    2*S2[a1, SP[a1, a2], a5, SP[a3, a4], n] + 
    2*S2[a1, SP[a1, a2], SP[a3, a4], a5, n] + 
    2*S2[a1, SP[a1, a2], SP[a3, a5], a4, n] + S2[a1, SP[a1, a3], a2, 
     SP[a4, a5], n] + S2[a1, SP[a1, a3], a4, SP[a2, a5], n] + 
    2*S2[a1, SP[a1, a3], a5, SP[a2, a4], n] + 
    2*S2[a1, SP[a1, a3], SP[a2, a4], a5, n] + S2[a1, SP[a1, a3], SP[a2, a5], 
     a4, n] + S2[a1, SP[a1, a3], SP[a4, a5], a2, n] + 
    S2[a1, SP[a1, a4], a3, SP[a2, a5], n] + S2[a1, SP[a1, a4], SP[a3, a5], 
     a2, n] + 2*S2[a1, SP[a1, a5], a3, SP[a2, a4], n] + 
    2*S2[a1, SP[a1, a5], SP[a3, a4], a2, n] + S2[a1, SP[a2, a4], a1, 
     SP[a3, a5], n] + S2[a1, SP[a2, a4], SP[a1, a3], a5, n] + 
    S2[a1, a4, n]*S2[a2, a3, a1, a5, n] - S2[a2, a3, SP[a1, a1], SP[a4, a5], 
     n] - S2[a2, SP[a1, a3], a1, SP[a4, a5], n] - 
    S2[a2, SP[a1, a3], SP[a1, a4], a5, n] + S2[SP[a1, a1], a3, a2, 
     SP[a4, a5], n] + S2[SP[a1, a1], a3, a4, SP[a2, a5], n] + 
    2*S2[SP[a1, a1], a3, a5, SP[a2, a4], n] + 
    2*S2[SP[a1, a1], a3, SP[a2, a4], a5, n] + S2[SP[a1, a1], a3, SP[a2, a5], 
     a4, n] + S2[SP[a1, a1], a3, SP[a4, a5], a2, n] + 
    S2[SP[a1, a1], a4, a3, SP[a2, a5], n] + S2[SP[a1, a1], a4, SP[a3, a5], 
     a2, n] + 2*S2[SP[a1, a1], a5, a3, SP[a2, a4], n] + 
    2*S2[SP[a1, a1], a5, SP[a3, a4], a2, n] + 
    2*S2[SP[a1, a1], SP[a3, a4], a2, a5, n] + 
    2*S2[SP[a1, a1], SP[a3, a4], a5, a2, n] + S2[SP[a1, a1], SP[a3, a5], a2, 
     a4, n] + S2[SP[a1, a1], SP[a3, a5], a4, a2, n] + 
    S2[SP[a1, a1], SP[a4, a5], a3, a2, n] + 
    2*S2[SP[a1, a2], a1, a4, SP[a3, a5], n] + 
    2*S2[SP[a1, a2], a1, a5, SP[a3, a4], n] + 
    2*S2[SP[a1, a2], a1, SP[a3, a4], a5, n] + 
    2*S2[SP[a1, a2], a1, SP[a3, a5], a4, n] - S2[SP[a1, a2], a3, a1, 
     SP[a4, a5], n] - S2[SP[a1, a2], a3, SP[a1, a4], a5, n] + 
    S2[SP[a1, a2], a4, a1, SP[a3, a5], n] + S2[SP[a1, a2], a4, SP[a1, a3], 
     a5, n] + 2*S2[SP[a1, a2], SP[a1, a3], a4, a5, n] + 
    2*S2[SP[a1, a2], SP[a1, a3], a5, a4, n] - 
    2*S2[a1, a1, a2, a4, SP[a3, a5], n] - 
    2*S2[a1, a1, a2, a5, SP[a3, a4], n] - 
    2*S2[a1, a1, a2, SP[a3, a4], a5, n] - 
    2*S2[a1, a1, a2, SP[a3, a5], a4, n] + 
    2*S2[a5, n]*S2[a1, a1, a3, a2, a4, n] + 
    2*S2[a5, n]*S2[a1, a1, a3, a4, a2, n] + 
    2*S2[a2, n]*S2[a1, a1, a3, a4, a5, n] + 
    2*S2[a1, a1, a3, a4, SP[a2, a5], n] + 
    2*S2[a2, n]*S2[a1, a1, a3, a5, a4, n] - 
    2*S2[a1, a1, a3, a5, SP[a2, a4], n] - 
    2*S2[a1, a1, a3, SP[a2, a4], a5, n] + 
    2*S2[a1, a1, a3, SP[a2, a5], a4, n] - 
    2*S2[a1, a1, a4, a2, SP[a3, a5], n] + 
    2*S2[a5, n]*S2[a1, a1, a4, a3, a2, n] + 
    2*S2[a2, n]*S2[a1, a1, a4, a3, a5, n] + 
    2*S2[a1, a1, a4, a3, SP[a2, a5], n] + 
    2*S2[a2, n]*S2[a1, a1, a4, a5, a3, n] + 
    2*S2[a1, a1, a4, a5, SP[a2, a3], n] + 
    2*S2[a1, a1, a4, SP[a2, a3], a5, n] - 
    2*S2[a1, a1, a5, a2, SP[a3, a4], n] + 
    2*S2[a2, n]*S2[a1, a1, a5, a3, a4, n] - 
    2*S2[a1, a1, a5, a3, SP[a2, a4], n] + 
    2*S2[a2, n]*S2[a1, a1, a5, a4, a3, n] + 
    2*S2[a1, a1, a5, a4, SP[a2, a3], n] + 
    2*S2[a1, a1, a5, SP[a2, a3], a4, n] - 
    4*S2[a1, a1, a5, SP[a3, a4], a2, n] + 
    2*S2[a1, a1, SP[a2, a3], a4, a5, n] + 
    2*S2[a1, a1, SP[a2, a3], a5, a4, n] - 
    4*S2[a1, a1, SP[a3, a4], a2, a5, n] - 
    4*S2[a1, a1, SP[a3, a4], a5, a2, n] - 
    2*S2[a1, a2, a1, a4, SP[a3, a5], n] - 
    2*S2[a1, a2, a1, a5, SP[a3, a4], n] - 
    2*S2[a1, a2, a1, SP[a3, a4], a5, n] - 
    2*S2[a1, a2, a1, SP[a3, a5], a4, n] + S2[a1, a2, a3, a1, SP[a4, a5], n] + 
    S2[a1, a2, a3, SP[a1, a4], a5, n] - S2[a1, a2, a4, a1, SP[a3, a5], n] - 
    S2[a1, a2, a4, SP[a1, a3], a5, n] - 2*S2[a1, a2, SP[a1, a3], a4, a5, n] - 
    2*S2[a1, a2, SP[a1, a3], a5, a4, n] + 
    S2[a5, n]*S2[a1, a3, a1, a2, a4, n] + 
    S2[a5, n]*S2[a1, a3, a1, a4, a2, n] + 
    S2[a2, n]*S2[a1, a3, a1, a4, a5, n] + S2[a1, a3, a1, a4, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a3, a1, a5, a4, n] - S2[a1, a3, a1, a5, SP[a2, a4], n] - 
    S2[a1, a3, a1, SP[a2, a4], a5, n] + S2[a1, a3, a1, SP[a2, a5], a4, n] + 
    S2[a5, n]*S2[a1, a3, a2, a1, a4, n] - S2[a1, a3, a5, a1, SP[a2, a4], n] - 
    S2[a1, a3, a5, SP[a1, a2], a4, n] - S2[a1, a3, SP[a1, a2], a4, a5, n] - 
    S2[a1, a3, SP[a1, a2], a5, a4, n] + S2[a1, a3, SP[a2, a5], a1, a4, n] - 
    S2[a1, a4, a1, a2, SP[a3, a5], n] + S2[a5, n]*S2[a1, a4, a1, a3, a2, n] + 
    S2[a2, n]*S2[a1, a4, a1, a3, a5, n] + S2[a1, a4, a1, a3, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a4, a1, a5, a3, n] + S2[a1, a4, a1, a5, SP[a2, a3], n] + 
    S2[a1, a4, a1, SP[a2, a3], a5, n] - S2[a1, a4, a2, a1, SP[a3, a5], n] - 
    S2[a1, a4, a2, SP[a1, a3], a5, n] - 2*S2[a1, a5, a1, a3, SP[a2, a4], n] - 
    2*S2[a1, a5, a1, SP[a3, a4], a2, n] - S2[a1, a5, a3, a1, SP[a2, a4], n] - 
    S2[a1, a5, a3, SP[a1, a2], a4, n] - S2[a1, a5, SP[a1, a3], a2, a4, n] - 
    S2[a1, a5, SP[a1, a3], a4, a2, n] - S2[a1, a5, SP[a1, a4], a3, a2, n] - 
    2*S2[a1, SP[a1, a3], a2, a4, a5, n] - 
    2*S2[a1, SP[a1, a3], a2, a5, a4, n] - 
    2*S2[a1, SP[a1, a3], a4, a2, a5, n] - 
    2*S2[a1, SP[a1, a3], a4, a5, a2, n] - 
    2*S2[a1, SP[a1, a3], a5, a2, a4, n] - 
    2*S2[a1, SP[a1, a3], a5, a4, a2, n] - 
    2*S2[a1, SP[a1, a4], a3, a2, a5, n] - 
    2*S2[a1, SP[a1, a4], a3, a5, a2, n] - 
    2*S2[a1, SP[a1, a4], a5, a3, a2, n] + S2[a1, SP[a2, a3], a1, a4, a5, n] + 
    S2[a1, SP[a2, a3], a1, a5, a4, n] + S2[a1, SP[a3, a5], a1, a2, a4, n] + 
    S2[a1, SP[a3, a5], a1, a4, a2, n] + S2[a1, SP[a3, a5], a2, a1, a4, n] + 
    S2[a1, SP[a4, a5], a1, a3, a2, n] - 2*S2[a2, a1, a1, a4, SP[a3, a5], n] - 
    2*S2[a2, a1, a1, a5, SP[a3, a4], n] - 
    2*S2[a2, a1, a1, SP[a3, a4], a5, n] - 
    2*S2[a2, a1, a1, SP[a3, a5], a4, n] + S2[a2, a1, a3, a1, SP[a4, a5], n] + 
    S2[a2, a1, a3, SP[a1, a4], a5, n] - S2[a2, a1, a4, a1, SP[a3, a5], n] - 
    S2[a2, a1, a4, SP[a1, a3], a5, n] - 2*S2[a2, a1, SP[a1, a3], a4, a5, n] - 
    2*S2[a2, a1, SP[a1, a3], a5, a4, n] + 
    2*S2[a2, a3, a1, a1, SP[a4, a5], n] + S2[a2, a3, a1, SP[a1, a4], a5, n] + 
    S2[a2, a3, a1, SP[a1, a5], a4, n] + S2[a2, a3, SP[a1, a1], a4, a5, n] + 
    S2[a2, a3, SP[a1, a1], a5, a4, n] - S2[a2, SP[a1, a3], a1, a4, a5, n] - 
    S2[a2, SP[a1, a3], a1, a5, a4, n] - 2*S2[SP[a1, a1], a3, a2, a4, a5, n] - 
    2*S2[SP[a1, a1], a3, a2, a5, a4, n] - 
    2*S2[SP[a1, a1], a3, a4, a2, a5, n] - 
    2*S2[SP[a1, a1], a3, a4, a5, a2, n] - 
    2*S2[SP[a1, a1], a3, a5, a2, a4, n] - 
    2*S2[SP[a1, a1], a3, a5, a4, a2, n] - 
    2*S2[SP[a1, a1], a4, a3, a2, a5, n] - 
    2*S2[SP[a1, a1], a4, a3, a5, a2, n] - 
    2*S2[SP[a1, a1], a4, a5, a3, a2, n] - 
    2*S2[SP[a1, a1], a5, a3, a2, a4, n] - 
    2*S2[SP[a1, a1], a5, a3, a4, a2, n] - 
    2*S2[SP[a1, a1], a5, a4, a3, a2, n] + 
    2*S2[SP[a1, a5], a1, a3, a2, a4, n] + 
    2*S2[SP[a1, a5], a1, a3, a4, a2, n] + 
    2*S2[SP[a1, a5], a1, a4, a3, a2, n] + S2[SP[a1, a5], a3, a1, a2, a4, n] + 
    S2[SP[a1, a5], a3, a1, a4, a2, n] + S2[SP[a1, a5], a3, a2, a1, a4, n] + 
    S2[SP[a1, a5], a4, a1, a3, a2, n] - 2*S2[a5, a1, a1, a3, a2, a4, n] - 
    2*S2[a5, a1, a1, a3, a4, a2, n] - 2*S2[a5, a1, a1, a4, a3, a2, n] - 
    S2[a5, a1, a3, a1, a2, a4, n] - S2[a5, a1, a3, a1, a4, a2, n] - 
    S2[a5, a1, a3, a2, a1, a4, n] - S2[a5, a1, a4, a1, a3, a2, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a2_, a3_, a1_, a5_, a4_, a1_, n_] :> 
  S2[a1, a3, a2, n]*S2[a1, a4, a5, n] + S2[SP[a1, a1], SP[a3, a4], 
     SP[a2, a5], n] + 2*S2[a2, a3, n]*S2[a1, a1, a4, a5, n] - 
    2*S2[a1, a1, SP[a2, a4], SP[a3, a5], n] - 
    2*S2[a1, a1, SP[a3, a4], SP[a2, a5], n] + 
    S2[a1, a4, n]*S2[a1, a3, a2, a5, n] + S2[a1, a4, n]*
     S2[a1, a3, a5, a2, n] - S2[a1, a3, SP[a1, a2], SP[a4, a5], n] - 
    S2[a1, a3, SP[a1, a5], SP[a2, a4], n] + S2[a2, a3, n]*
     S2[a1, a4, a1, a5, n] - S2[a1, a4, SP[a1, a2], SP[a3, a5], n] + 
    S2[a1, a4, n]*S2[a1, a5, a3, a2, n] - S2[a1, a5, SP[a1, a3], SP[a2, a4], 
     n] - 2*S2[a1, SP[a1, a2], a4, SP[a3, a5], n] - 
    2*S2[a1, SP[a1, a2], SP[a3, a4], a5, n] - S2[a1, SP[a1, a3], a2, 
     SP[a4, a5], n] - S2[a1, SP[a1, a3], a4, SP[a2, a5], n] - 
    S2[a1, SP[a1, a3], a5, SP[a2, a4], n] - 
    2*S2[a1, SP[a1, a3], SP[a2, a4], a5, n] - S2[a1, SP[a1, a3], SP[a4, a5], 
     a2, n] - S2[a1, SP[a1, a4], a3, SP[a2, a5], n] - 
    S2[a1, SP[a1, a4], SP[a3, a5], a2, n] - S2[a1, SP[a1, a5], a3, 
     SP[a2, a4], n] - S2[a1, SP[a1, a5], SP[a3, a4], a2, n] - 
    S2[a1, SP[a2, a4], a1, SP[a3, a5], n] - S2[a1, SP[a2, a4], SP[a1, a3], 
     a5, n] - S2[a1, a4, n]*S2[a2, a3, a1, a5, n] + 
    S2[a2, a3, SP[a1, a1], SP[a4, a5], n] + S2[a2, SP[a1, a3], a1, 
     SP[a4, a5], n] + S2[a2, SP[a1, a3], SP[a1, a4], a5, n] - 
    S2[SP[a1, a1], a3, a2, SP[a4, a5], n] - S2[SP[a1, a1], a3, a4, 
     SP[a2, a5], n] - S2[SP[a1, a1], a3, a5, SP[a2, a4], n] - 
    2*S2[SP[a1, a1], a3, SP[a2, a4], a5, n] - S2[SP[a1, a1], a3, SP[a4, a5], 
     a2, n] - S2[SP[a1, a1], a4, a3, SP[a2, a5], n] - 
    S2[SP[a1, a1], a4, SP[a3, a5], a2, n] - S2[SP[a1, a1], a5, a3, 
     SP[a2, a4], n] - S2[SP[a1, a1], a5, SP[a3, a4], a2, n] - 
    2*S2[SP[a1, a1], SP[a3, a4], a2, a5, n] - 
    2*S2[SP[a1, a1], SP[a3, a4], a5, a2, n] - S2[SP[a1, a1], SP[a4, a5], a3, 
     a2, n] - 2*S2[SP[a1, a2], a1, a4, SP[a3, a5], n] - 
    2*S2[SP[a1, a2], a1, SP[a3, a4], a5, n] + S2[SP[a1, a2], a3, a1, 
     SP[a4, a5], n] + S2[SP[a1, a2], a3, SP[a1, a4], a5, n] - 
    S2[SP[a1, a2], a4, a1, SP[a3, a5], n] - S2[SP[a1, a2], a4, SP[a1, a3], 
     a5, n] - 2*S2[SP[a1, a2], SP[a1, a3], a4, a5, n] + 
    2*S2[a1, a1, a2, a4, SP[a3, a5], n] + 
    2*S2[a1, a1, a2, SP[a3, a4], a5, n] - 
    2*S2[a5, n]*S2[a1, a1, a3, a2, a4, n] - 
    2*S2[a5, n]*S2[a1, a1, a3, a4, a2, n] - 
    2*S2[a2, n]*S2[a1, a1, a3, a4, a5, n] - 
    2*S2[a1, a1, a3, a4, SP[a2, a5], n] + 
    2*S2[a1, a1, a3, a5, SP[a2, a4], n] + 
    2*S2[a1, a1, a3, SP[a2, a4], a5, n] - 
    2*S2[a1, a1, a3, SP[a2, a5], a4, n] + 
    2*S2[a1, a1, a4, a2, SP[a3, a5], n] - 
    2*S2[a5, n]*S2[a1, a1, a4, a3, a2, n] - 
    2*S2[a2, n]*S2[a1, a1, a4, a3, a5, n] - 
    2*S2[a1, a1, a4, a3, SP[a2, a5], n] - 
    2*S2[a2, n]*S2[a1, a1, a4, a5, a3, n] - 
    2*S2[a1, a1, a4, a5, SP[a2, a3], n] - 
    2*S2[a1, a1, a4, SP[a2, a3], a5, n] + 
    2*S2[a1, a1, a5, a3, SP[a2, a4], n] + 
    2*S2[a1, a1, a5, SP[a3, a4], a2, n] - 
    2*S2[a1, a1, SP[a2, a3], a4, a5, n] + 
    4*S2[a1, a1, SP[a3, a4], a2, a5, n] + 
    4*S2[a1, a1, SP[a3, a4], a5, a2, n] - 
    2*S2[a1, a1, SP[a3, a5], a2, a4, n] - 
    2*S2[a1, a1, SP[a3, a5], a4, a2, n] + 
    2*S2[a1, a2, a1, a4, SP[a3, a5], n] + 
    2*S2[a1, a2, a1, SP[a3, a4], a5, n] - S2[a1, a2, a3, a1, SP[a4, a5], n] - 
    S2[a1, a2, a3, SP[a1, a4], a5, n] + S2[a1, a2, a4, a1, SP[a3, a5], n] + 
    S2[a1, a2, a4, SP[a1, a3], a5, n] + 2*S2[a1, a2, SP[a1, a3], a4, a5, n] - 
    S2[a5, n]*S2[a1, a3, a1, a2, a4, n] - 
    S2[a5, n]*S2[a1, a3, a1, a4, a2, n] - 
    S2[a2, n]*S2[a1, a3, a1, a4, a5, n] - S2[a1, a3, a1, a4, SP[a2, a5], n] + 
    S2[a1, a3, a1, a5, SP[a2, a4], n] + S2[a1, a3, a1, SP[a2, a4], a5, n] - 
    S2[a1, a3, a1, SP[a2, a5], a4, n] - S2[a5, n]*S2[a1, a3, a2, a1, a4, n] + 
    S2[a1, a3, a5, a1, SP[a2, a4], n] + S2[a1, a3, a5, SP[a1, a2], a4, n] + 
    S2[a1, a3, SP[a1, a2], a4, a5, n] + S2[a1, a3, SP[a1, a2], a5, a4, n] - 
    S2[a1, a3, SP[a2, a5], a1, a4, n] + S2[a1, a4, a1, a2, SP[a3, a5], n] - 
    S2[a5, n]*S2[a1, a4, a1, a3, a2, n] - 
    S2[a2, n]*S2[a1, a4, a1, a3, a5, n] - S2[a1, a4, a1, a3, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a4, a1, a5, a3, n] - S2[a1, a4, a1, a5, SP[a2, a3], n] - 
    S2[a1, a4, a1, SP[a2, a3], a5, n] + S2[a1, a4, a2, a1, SP[a3, a5], n] + 
    S2[a1, a4, a2, SP[a1, a3], a5, n] + S2[a1, a5, a1, a3, SP[a2, a4], n] + 
    S2[a1, a5, a1, SP[a3, a4], a2, n] + S2[a1, a5, a3, a1, SP[a2, a4], n] + 
    S2[a1, a5, a3, SP[a1, a2], a4, n] + S2[a1, a5, SP[a1, a3], a2, a4, n] + 
    S2[a1, a5, SP[a1, a3], a4, a2, n] + 2*S2[a1, SP[a1, a3], a2, a4, a5, n] + 
    S2[a1, SP[a1, a3], a2, a5, a4, n] + 2*S2[a1, SP[a1, a3], a4, a2, a5, n] + 
    2*S2[a1, SP[a1, a3], a4, a5, a2, n] + S2[a1, SP[a1, a3], a5, a2, a4, n] + 
    S2[a1, SP[a1, a3], a5, a4, a2, n] + 2*S2[a1, SP[a1, a4], a3, a2, a5, n] + 
    2*S2[a1, SP[a1, a4], a3, a5, a2, n] + 
    2*S2[a1, SP[a1, a4], a5, a3, a2, n] - S2[a1, SP[a1, a5], a3, a2, a4, n] - 
    S2[a1, SP[a1, a5], a3, a4, a2, n] - S2[a1, SP[a1, a5], a4, a3, a2, n] - 
    S2[a1, SP[a2, a3], a1, a4, a5, n] - S2[a1, SP[a3, a5], a1, a2, a4, n] - 
    S2[a1, SP[a3, a5], a1, a4, a2, n] - S2[a1, SP[a3, a5], a2, a1, a4, n] - 
    S2[a1, SP[a4, a5], a1, a3, a2, n] + 2*S2[a2, a1, a1, a4, SP[a3, a5], n] + 
    2*S2[a2, a1, a1, SP[a3, a4], a5, n] - S2[a2, a1, a3, a1, SP[a4, a5], n] - 
    S2[a2, a1, a3, SP[a1, a4], a5, n] + S2[a2, a1, a4, a1, SP[a3, a5], n] + 
    S2[a2, a1, a4, SP[a1, a3], a5, n] + 2*S2[a2, a1, SP[a1, a3], a4, a5, n] - 
    2*S2[a2, a3, a1, a1, SP[a4, a5], n] + 
    S2[a1, n]*S2[a2, a3, a1, a5, a4, n] + S2[a2, a3, a1, a5, SP[a1, a4], n] - 
    S2[a2, a3, a1, SP[a1, a4], a5, n] - S2[a2, a3, SP[a1, a1], a4, a5, n] + 
    S2[a2, SP[a1, a3], a1, a4, a5, n] + S2[a1, n]*S2[a5, a1, a3, a2, a4, n] + 
    S2[a5, a1, a3, a2, SP[a1, a4], n] + S2[a1, n]*S2[a5, a1, a3, a4, a2, n] + 
    S2[a5, a1, a3, a4, SP[a1, a2], n] + S2[a5, a1, a3, SP[a1, a2], a4, n] + 
    S2[a5, a1, a3, SP[a1, a4], a2, n] + S2[a1, n]*S2[a5, a1, a4, a3, a2, n] + 
    S2[a5, a1, a4, a3, SP[a1, a2], n] + S2[a5, a1, a4, SP[a1, a3], a2, n] + 
    S2[a5, a1, SP[a1, a3], a2, a4, n] + S2[a5, a1, SP[a1, a3], a4, a2, n] + 
    S2[a5, a1, SP[a1, a4], a3, a2, n] + S2[a1, n]*S2[a5, a4, a1, a3, a2, n] + 
    S2[a5, a4, a1, a3, SP[a1, a2], n] + S2[a5, a4, a1, SP[a1, a3], a2, n] + 
    S2[a5, a4, SP[a1, a1], a3, a2, n] + S2[a5, SP[a1, a1], a3, a2, a4, n] + 
    S2[a5, SP[a1, a1], a3, a4, a2, n] + S2[a5, SP[a1, a1], a4, a3, a2, n] + 
    S2[a5, SP[a1, a4], a1, a3, a2, n] + 2*S2[SP[a1, a1], a3, a2, a4, a5, n] + 
    S2[SP[a1, a1], a3, a2, a5, a4, n] + 2*S2[SP[a1, a1], a3, a4, a2, a5, n] + 
    2*S2[SP[a1, a1], a3, a4, a5, a2, n] + S2[SP[a1, a1], a3, a5, a2, a4, n] + 
    S2[SP[a1, a1], a3, a5, a4, a2, n] + 2*S2[SP[a1, a1], a4, a3, a2, a5, n] + 
    2*S2[SP[a1, a1], a4, a3, a5, a2, n] + 
    2*S2[SP[a1, a1], a4, a5, a3, a2, n] + S2[SP[a1, a1], a5, a3, a2, a4, n] + 
    S2[SP[a1, a1], a5, a3, a4, a2, n] + S2[SP[a1, a1], a5, a4, a3, a2, n] - 
    S2[SP[a1, a5], a1, a3, a2, a4, n] - S2[SP[a1, a5], a1, a3, a4, a2, n] - 
    S2[SP[a1, a5], a1, a4, a3, a2, n] - S2[SP[a1, a5], a3, a1, a2, a4, n] - 
    S2[SP[a1, a5], a3, a1, a4, a2, n] - S2[SP[a1, a5], a3, a2, a1, a4, n] - 
    S2[a5, a1, a3, a2, a4, a1, n] - S2[a5, a1, a3, a4, a1, a2, n] - 
    S2[a5, a1, a3, a4, a2, a1, n] - S2[a5, a1, a4, a1, a3, a2, n] - 
    S2[a5, a1, a4, a3, a1, a2, n] - S2[a5, a1, a4, a3, a2, a1, n] - 
    2*S2[a5, a4, a1, a1, a3, a2, n] - S2[a5, a4, a1, a3, a1, a2, n] - 
    S2[a5, a4, a1, a3, a2, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a2_, a3_, a4_, a1_, a1_, a5_, n_] :> 
  S2[a1, a1, a5, n]*S2[a2, a3, a4, n] + S2[SP[a1, a2], SP[a1, a3], 
     SP[a4, a5], n] - S2[a2, a3, n]*S2[a1, a1, a4, a5, n] - 
    S2[a2, a3, n]*S2[a1, a1, a5, a4, n] + S2[a1, a1, SP[a2, a4], SP[a3, a5], 
     n] + S2[a1, a1, SP[a2, a5], SP[a3, a4], n] - S2[a1, a2, SP[a1, a3], 
     SP[a4, a5], n] - S2[a2, a3, n]*S2[a1, a4, a1, a5, n] - 
    S2[a1, a5, n]*S2[a1, a4, a3, a2, n] + S2[a1, a4, SP[a1, a2], SP[a3, a5], 
     n] + S2[a1, a4, SP[a1, a3], SP[a2, a5], n] - S2[a1, SP[a1, a2], a3, 
     SP[a4, a5], n] + S2[a1, SP[a1, a2], a4, SP[a3, a5], n] + 
    S2[a1, SP[a1, a2], a5, SP[a3, a4], n] + S2[a1, SP[a1, a2], SP[a3, a4], 
     a5, n] + S2[a1, SP[a1, a4], a3, SP[a2, a5], n] + 
    S2[a1, SP[a1, a4], SP[a3, a5], a2, n] + S2[a1, SP[a2, a4], a1, 
     SP[a3, a5], n] + S2[a1, SP[a2, a4], SP[a1, a3], a5, n] - 
    S2[a2, a1, SP[a1, a3], SP[a4, a5], n] - S2[a2, SP[a1, a3], a1, 
     SP[a4, a5], n] - S2[a2, SP[a1, a3], SP[a1, a4], a5, n] + 
    S2[SP[a1, a1], a4, a3, SP[a2, a5], n] + S2[SP[a1, a1], a4, SP[a3, a5], 
     a2, n] + S2[SP[a1, a1], SP[a4, a5], a3, a2, n] - 
    S2[SP[a1, a2], a1, a3, SP[a4, a5], n] + S2[SP[a1, a2], a1, a4, 
     SP[a3, a5], n] + S2[SP[a1, a2], a1, a5, SP[a3, a4], n] + 
    S2[SP[a1, a2], a1, SP[a3, a4], a5, n] - S2[SP[a1, a2], a3, a1, 
     SP[a4, a5], n] - S2[SP[a1, a2], a3, SP[a1, a4], a5, n] + 
    S2[SP[a1, a2], a4, a1, SP[a3, a5], n] + S2[SP[a1, a2], a4, SP[a1, a3], 
     a5, n] + S2[SP[a1, a2], SP[a3, a4], a1, a5, n] + 
    S2[a1, a1, a2, a3, SP[a4, a5], n] - S2[a1, a1, a2, a4, SP[a3, a5], n] - 
    S2[a1, a1, a2, a5, SP[a3, a4], n] - S2[a1, a1, a2, SP[a3, a4], a5, n] - 
    S2[a1, a1, a4, a2, SP[a3, a5], n] + S2[a5, n]*S2[a1, a1, a4, a3, a2, n] + 
    S2[a2, n]*S2[a1, a1, a4, a3, a5, n] + 
    S2[a2, n]*S2[a1, a1, a4, a5, a3, n] + S2[a1, a1, a4, a5, SP[a2, a3], n] + 
    S2[a1, a1, a4, SP[a2, a3], a5, n] - S2[a1, a1, a4, SP[a3, a5], a2, n] - 
    S2[a1, a1, a5, a2, SP[a3, a4], n] + S2[a2, n]*S2[a1, a1, a5, a4, a3, n] + 
    S2[a1, a1, a5, a4, SP[a2, a3], n] - S2[a1, a1, SP[a4, a5], a3, a2, n] + 
    S2[a1, a2, a1, a3, SP[a4, a5], n] - S2[a1, a2, a1, a4, SP[a3, a5], n] - 
    S2[a1, a2, a1, a5, SP[a3, a4], n] - S2[a1, a2, a1, SP[a3, a4], a5, n] + 
    S2[a1, a2, a3, a1, SP[a4, a5], n] + S2[a1, a2, a3, SP[a1, a4], a5, n] - 
    S2[a1, a2, a4, a1, SP[a3, a5], n] - S2[a1, a2, a4, SP[a1, a3], a5, n] - 
    S2[a1, a2, SP[a3, a4], a1, a5, n] - S2[a1, a4, a1, a2, SP[a3, a5], n] + 
    S2[a2, n]*S2[a1, a4, a1, a3, a5, n] + 
    S2[a2, n]*S2[a1, a4, a1, a5, a3, n] + S2[a1, a4, a1, a5, SP[a2, a3], n] + 
    S2[a1, a4, a1, SP[a2, a3], a5, n] - S2[a1, a4, a1, SP[a3, a5], a2, n] - 
    S2[a1, a4, a2, a1, SP[a3, a5], n] - S2[a1, a4, a2, SP[a1, a3], a5, n] + 
    S2[a2, n]*S2[a1, a4, a3, a1, a5, n] - S2[a1, a4, SP[a1, a3], a2, a5, n] - 
    S2[a1, a4, SP[a1, a3], a5, a2, n] + S2[a1, a4, SP[a2, a3], a1, a5, n] - 
    S2[a1, SP[a1, a4], a3, a2, a5, n] - S2[a1, SP[a1, a4], a3, a5, a2, n] - 
    S2[a1, SP[a1, a4], a5, a3, a2, n] + S2[a2, a1, a1, a3, SP[a4, a5], n] - 
    S2[a2, a1, a1, a4, SP[a3, a5], n] - S2[a2, a1, a1, a5, SP[a3, a4], n] - 
    S2[a2, a1, a1, SP[a3, a4], a5, n] + S2[a2, a1, a3, a1, SP[a4, a5], n] + 
    S2[a2, a1, a3, SP[a1, a4], a5, n] - S2[a2, a1, a4, a1, SP[a3, a5], n] - 
    S2[a2, a1, a4, SP[a1, a3], a5, n] - S2[a2, a1, SP[a3, a4], a1, a5, n] + 
    S2[a2, a3, a1, a1, SP[a4, a5], n] + S2[a2, a3, a1, SP[a1, a4], a5, n] + 
    S2[a2, a3, SP[a1, a4], a1, a5, n] - S2[SP[a1, a1], a4, a3, a2, a5, n] - 
    S2[SP[a1, a1], a4, a3, a5, a2, n] - S2[SP[a1, a1], a4, a5, a3, a2, n] - 
    S2[SP[a1, a1], a5, a4, a3, a2, n] + S2[SP[a1, a5], a1, a4, a3, a2, n] - 
    S2[a5, a1, a1, a4, a3, a2, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a2_, a3_, a4_, a1_, a5_, a1_, n_] :> 
  -2*S2[a1, a1, a5, n]*S2[a2, a3, a4, n] - 
    2*S2[SP[a1, a2], SP[a1, a3], SP[a4, a5], n] + 
    2*S2[a2, a3, n]*S2[a1, a1, a4, a5, n] + 2*S2[a2, a3, n]*
     S2[a1, a1, a5, a4, n] - 2*S2[a1, a1, SP[a2, a4], SP[a3, a5], n] - 
    2*S2[a1, a1, SP[a2, a5], SP[a3, a4], n] + 
    2*S2[a1, a2, SP[a1, a3], SP[a4, a5], n] + 
    S2[a2, a3, n]*S2[a1, a4, a1, a5, n] + S2[a1, a5, n]*
     S2[a1, a4, a3, a2, n] - S2[a1, a4, SP[a1, a2], SP[a3, a5], n] - 
    S2[a1, a4, SP[a1, a3], SP[a2, a5], n] + 
    2*S2[a1, SP[a1, a2], a3, SP[a4, a5], n] - 
    2*S2[a1, SP[a1, a2], a4, SP[a3, a5], n] - 
    2*S2[a1, SP[a1, a2], a5, SP[a3, a4], n] - 
    2*S2[a1, SP[a1, a2], SP[a3, a4], a5, n] - S2[a1, SP[a1, a4], a3, 
     SP[a2, a5], n] - S2[a1, SP[a1, a4], SP[a3, a5], a2, n] - 
    S2[a1, SP[a2, a4], a1, SP[a3, a5], n] - S2[a1, SP[a2, a4], SP[a1, a3], 
     a5, n] + 2*S2[a2, a1, SP[a1, a3], SP[a4, a5], n] + 
    2*S2[a2, SP[a1, a3], a1, SP[a4, a5], n] + 
    2*S2[a2, SP[a1, a3], SP[a1, a4], a5, n] - S2[SP[a1, a1], a4, a3, 
     SP[a2, a5], n] - S2[SP[a1, a1], a4, SP[a3, a5], a2, n] - 
    S2[SP[a1, a1], SP[a4, a5], a3, a2, n] + 
    2*S2[SP[a1, a2], a1, a3, SP[a4, a5], n] - 
    2*S2[SP[a1, a2], a1, a4, SP[a3, a5], n] - 
    2*S2[SP[a1, a2], a1, a5, SP[a3, a4], n] - 
    2*S2[SP[a1, a2], a1, SP[a3, a4], a5, n] + 
    2*S2[SP[a1, a2], a3, a1, SP[a4, a5], n] + 
    2*S2[SP[a1, a2], a3, SP[a1, a4], a5, n] - S2[SP[a1, a2], a4, a1, 
     SP[a3, a5], n] - S2[SP[a1, a2], a4, SP[a1, a3], a5, n] - 
    S2[SP[a1, a2], SP[a3, a4], a1, a5, n] - 
    2*S2[a1, a1, a2, a3, SP[a4, a5], n] + 
    2*S2[a1, a1, a2, a4, SP[a3, a5], n] + 
    2*S2[a1, a1, a2, a5, SP[a3, a4], n] + 
    2*S2[a1, a1, a2, SP[a3, a4], a5, n] + 
    2*S2[a1, a1, a4, a2, SP[a3, a5], n] - 
    2*S2[a2, n]*S2[a1, a1, a4, a3, a5, n] - 
    2*S2[a2, n]*S2[a1, a1, a4, a5, a3, n] - 
    2*S2[a1, a1, a4, a5, SP[a2, a3], n] - 
    2*S2[a1, a1, a4, SP[a2, a3], a5, n] + 
    2*S2[a1, a1, a4, SP[a3, a5], a2, n] + 
    2*S2[a1, a1, a5, a2, SP[a3, a4], n] - 
    2*S2[a2, n]*S2[a1, a1, a5, a4, a3, n] - 
    2*S2[a1, a1, a5, a4, SP[a2, a3], n] + 
    2*S2[a1, a1, SP[a4, a5], a3, a2, n] - 
    2*S2[a1, a2, a1, a3, SP[a4, a5], n] + 
    2*S2[a1, a2, a1, a4, SP[a3, a5], n] + 
    2*S2[a1, a2, a1, a5, SP[a3, a4], n] + 
    2*S2[a1, a2, a1, SP[a3, a4], a5, n] - 
    2*S2[a1, a2, a3, a1, SP[a4, a5], n] - 
    2*S2[a1, a2, a3, SP[a1, a4], a5, n] + S2[a1, a2, a4, a1, SP[a3, a5], n] + 
    S2[a1, a2, a4, SP[a1, a3], a5, n] + S2[a1, a2, SP[a3, a4], a1, a5, n] + 
    S2[a1, a4, a1, a2, SP[a3, a5], n] - S2[a2, n]*S2[a1, a4, a1, a3, a5, n] - 
    S2[a2, n]*S2[a1, a4, a1, a5, a3, n] - S2[a1, a4, a1, a5, SP[a2, a3], n] - 
    S2[a1, a4, a1, SP[a2, a3], a5, n] + S2[a1, a4, a1, SP[a3, a5], a2, n] + 
    S2[a1, a4, a2, a1, SP[a3, a5], n] + S2[a1, a4, a2, SP[a1, a3], a5, n] - 
    S2[a2, n]*S2[a1, a4, a3, a1, a5, n] + S2[a1, a4, SP[a1, a3], a2, a5, n] + 
    S2[a1, a4, SP[a1, a3], a5, a2, n] - S2[a1, a4, SP[a2, a3], a1, a5, n] + 
    S2[a1, SP[a1, a4], a3, a2, a5, n] + S2[a1, SP[a1, a4], a3, a5, a2, n] + 
    S2[a1, SP[a1, a4], a5, a3, a2, n] + S2[a1, SP[a1, a5], a4, a3, a2, n] - 
    2*S2[a2, a1, a1, a3, SP[a4, a5], n] + 
    2*S2[a2, a1, a1, a4, SP[a3, a5], n] + 
    2*S2[a2, a1, a1, a5, SP[a3, a4], n] + 
    2*S2[a2, a1, a1, SP[a3, a4], a5, n] - 
    2*S2[a2, a1, a3, a1, SP[a4, a5], n] - 
    2*S2[a2, a1, a3, SP[a1, a4], a5, n] + S2[a2, a1, a4, a1, SP[a3, a5], n] + 
    S2[a2, a1, a4, SP[a1, a3], a5, n] + S2[a2, a1, SP[a3, a4], a1, a5, n] - 
    2*S2[a2, a3, a1, a1, SP[a4, a5], n] - 
    2*S2[a2, a3, a1, SP[a1, a4], a5, n] + 
    S2[a1, n]*S2[a2, a3, a4, a1, a5, n] + S2[a2, a3, a4, a1, SP[a1, a5], n] + 
    S2[a2, a3, a4, SP[a1, a1], a5, n] - S2[a2, a3, SP[a1, a4], a1, a5, n] - 
    S2[a1, n]*S2[a5, a1, a4, a3, a2, n] - S2[a5, a1, a4, a3, SP[a1, a2], n] - 
    S2[a5, a1, a4, SP[a1, a3], a2, n] - S2[a5, a1, SP[a1, a4], a3, a2, n] - 
    S2[a5, SP[a1, a1], a4, a3, a2, n] + S2[SP[a1, a1], a4, a3, a2, a5, n] + 
    S2[SP[a1, a1], a4, a3, a5, a2, n] + S2[SP[a1, a1], a4, a5, a3, a2, n] + 
    S2[SP[a1, a1], a5, a4, a3, a2, n] - S2[SP[a1, a5], a1, a4, a3, a2, n] + 
    2*S2[a5, a1, a1, a4, a3, a2, n] + S2[a5, a1, a4, a1, a3, a2, n] + 
    S2[a5, a1, a4, a3, a1, a2, n] + S2[a5, a1, a4, a3, a2, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a2_, a3_, a4_, a5_, a1_, a1_, n_] :> 
  S2[a1, a1, a5, n]*S2[a2, a3, a4, n] + S2[SP[a1, a2], SP[a1, a3], 
     SP[a4, a5], n] - S2[a2, a3, n]*S2[a1, a1, a5, a4, n] + 
    S2[a1, a1, SP[a2, a5], SP[a3, a4], n] - S2[a1, a2, SP[a1, a3], 
     SP[a4, a5], n] - S2[a1, SP[a1, a2], a3, SP[a4, a5], n] + 
    S2[a1, SP[a1, a2], a5, SP[a3, a4], n] - S2[a2, a1, SP[a1, a3], 
     SP[a4, a5], n] - S2[a2, SP[a1, a3], a1, SP[a4, a5], n] - 
    S2[a2, SP[a1, a3], SP[a1, a4], a5, n] - S2[SP[a1, a2], a1, a3, 
     SP[a4, a5], n] + S2[SP[a1, a2], a1, a5, SP[a3, a4], n] - 
    S2[SP[a1, a2], a3, a1, SP[a4, a5], n] - S2[SP[a1, a2], a3, SP[a1, a4], 
     a5, n] - S2[SP[a1, a2], SP[a1, a3], a4, a5, n] + 
    S2[a1, a1, a2, a3, SP[a4, a5], n] - S2[a1, a1, a2, a5, SP[a3, a4], n] - 
    S2[a1, a1, a5, a2, SP[a3, a4], n] + S2[a2, n]*S2[a1, a1, a5, a4, a3, n] + 
    S2[a1, a1, a5, a4, SP[a2, a3], n] + S2[a1, a2, a1, a3, SP[a4, a5], n] - 
    S2[a1, a2, a1, a5, SP[a3, a4], n] + S2[a1, a2, a3, a1, SP[a4, a5], n] - 
    (S2[a1, n]*S2[a1, a2, a3, a4, a5, n])/2 - 
    S2[a1, a2, a3, a4, SP[a1, a5], n]/2 + S2[a1, a2, a3, SP[a1, a4], a5, n]/
     2 + S2[a1, a2, SP[a1, a3], a4, a5, n]/2 - 
    (S2[a1, n]*S2[a1, a5, a4, a3, a2, n])/2 - 
    S2[a1, a5, a4, a3, SP[a1, a2], n]/2 - S2[a1, a5, a4, SP[a1, a3], a2, n]/
     2 - S2[a1, a5, SP[a1, a4], a3, a2, n]/2 + 
    S2[a1, SP[a1, a2], a3, a4, a5, n]/2 - S2[a1, SP[a1, a5], a4, a3, a2, n]/
     2 + S2[a2, a1, a1, a3, SP[a4, a5], n] - S2[a2, a1, a1, a5, SP[a3, a4], 
     n] + S2[a2, a1, a3, a1, SP[a4, a5], n] - 
    (S2[a1, n]*S2[a2, a1, a3, a4, a5, n])/2 - 
    S2[a2, a1, a3, a4, SP[a1, a5], n]/2 + S2[a2, a1, a3, SP[a1, a4], a5, n]/
     2 + S2[a2, a1, SP[a1, a3], a4, a5, n]/2 + S2[a2, a3, a1, a1, SP[a4, a5], 
     n] - (S2[a1, n]*S2[a2, a3, a1, a4, a5, n])/2 - 
    S2[a2, a3, a1, a4, SP[a1, a5], n]/2 + S2[a2, a3, a1, SP[a1, a4], a5, n]/
     2 - (S2[a1, n]*S2[a2, a3, a4, a1, a5, n])/2 - 
    S2[a2, a3, a4, a1, SP[a1, a5], n]/2 + 
    (S2[a1, n]*S2[a2, a3, a4, a5, a1, n])/2 + 
    S2[a2, a3, a4, a5, SP[a1, a1], n]/2 - S2[a2, a3, a4, SP[a1, a1], a5, n]/
     2 + S2[a2, a3, a4, SP[a1, a5], a1, n]/2 - 
    S2[a2, a3, SP[a1, a1], a4, a5, n]/2 + S2[a2, a3, SP[a1, a4], a1, a5, n]/
     2 + S2[a2, a3, SP[a1, a4], a5, a1, n]/2 - 
    S2[a2, SP[a1, a1], a3, a4, a5, n]/2 + S2[a2, SP[a1, a3], a1, a4, a5, n]/
     2 + S2[a2, SP[a1, a3], a4, a1, a5, n]/2 + 
    S2[a2, SP[a1, a3], a4, a5, a1, n]/2 + 
    (S2[a1, n]*S2[a5, a1, a4, a3, a2, n])/2 + 
    S2[a5, a1, a4, a3, SP[a1, a2], n]/2 + S2[a5, a1, a4, SP[a1, a3], a2, n]/
     2 + S2[a5, a1, SP[a1, a4], a3, a2, n]/2 + 
    (S2[a1, n]*S2[a5, a4, a1, a3, a2, n])/2 + 
    S2[a5, a4, a1, a3, SP[a1, a2], n]/2 + S2[a5, a4, a1, SP[a1, a3], a2, n]/
     2 + (S2[a1, n]*S2[a5, a4, a3, a1, a2, n])/2 + 
    S2[a5, a4, a3, a1, SP[a1, a2], n]/2 + 
    (S2[a1, n]*S2[a5, a4, a3, a2, a1, n])/2 + 
    S2[a5, a4, a3, a2, SP[a1, a1], n]/2 + S2[a5, a4, a3, SP[a1, a1], a2, n]/
     2 + S2[a5, a4, a3, SP[a1, a2], a1, n]/2 + 
    S2[a5, a4, SP[a1, a1], a3, a2, n]/2 + S2[a5, a4, SP[a1, a3], a1, a2, n]/
     2 + S2[a5, a4, SP[a1, a3], a2, a1, n]/2 + 
    S2[a5, SP[a1, a1], a4, a3, a2, n]/2 + S2[a5, SP[a1, a4], a1, a3, a2, n]/
     2 + S2[a5, SP[a1, a4], a3, a1, a2, n]/2 + 
    S2[a5, SP[a1, a4], a3, a2, a1, n]/2 - S2[SP[a1, a1], a2, a3, a4, a5, n]/
     2 - S2[SP[a1, a1], a5, a4, a3, a2, n]/2 + 
    S2[SP[a1, a2], a1, a3, a4, a5, n]/2 + S2[SP[a1, a2], a3, a1, a4, a5, n]/
     2 + S2[SP[a1, a2], a3, a4, a1, a5, n]/2 + 
    S2[SP[a1, a2], a3, a4, a5, a1, n]/2 + S2[SP[a1, a5], a1, a4, a3, a2, n]/
     2 + S2[SP[a1, a5], a4, a1, a3, a2, n]/2 + 
    S2[SP[a1, a5], a4, a3, a1, a2, n]/2 + S2[SP[a1, a5], a4, a3, a2, a1, n]/
     2 - S2[a5, a1, a1, a4, a3, a2, n] - S2[a5, a1, a4, a1, a3, a2, n] - 
    S2[a5, a1, a4, a3, a1, a2, n] - S2[a5, a1, a4, a3, a2, a1, n] - 
    S2[a5, a4, a1, a1, a3, a2, n] - S2[a5, a4, a1, a3, a1, a2, n] - 
    S2[a5, a4, a1, a3, a2, a1, n] - S2[a5, a4, a3, a1, a1, a2, n] - 
    S2[a5, a4, a3, a1, a2, a1, n] - S2[a5, a4, a3, a2, a1, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a2_, a3_, a5_, a1_, a1_, a4_, n_] :> 
  S2[a2, a3, n]*S2[a1, a1, a4, a5, n] + S2[a2, a3, n]*S2[a1, a1, a5, a4, n] - 
    S2[a1, a1, SP[a2, a4], SP[a3, a5], n] - S2[a1, a1, SP[a2, a5], 
     SP[a3, a4], n] + S2[a1, a4, n]*S2[a1, a3, a2, a5, n] + 
    S2[a1, a4, n]*S2[a1, a3, a5, a2, n] - S2[a1, a3, SP[a1, a2], SP[a4, a5], 
     n] - S2[a1, a3, SP[a1, a5], SP[a2, a4], n] + 
    S2[a2, a3, n]*S2[a1, a4, a1, a5, n] - S2[a1, a4, SP[a1, a2], SP[a3, a5], 
     n] + S2[a1, a4, n]*S2[a1, a5, a3, a2, n] - S2[a1, a5, SP[a1, a3], 
     SP[a2, a4], n] - S2[a1, SP[a1, a2], a4, SP[a3, a5], n] - 
    S2[a1, SP[a1, a2], a5, SP[a3, a4], n] - S2[a1, SP[a1, a2], SP[a3, a4], 
     a5, n] - S2[a1, SP[a1, a2], SP[a3, a5], a4, n] - 
    S2[a1, SP[a1, a3], a2, SP[a4, a5], n] - S2[a1, SP[a1, a3], a5, 
     SP[a2, a4], n] - S2[a1, SP[a1, a3], SP[a2, a4], a5, n] - 
    S2[a1, SP[a1, a3], SP[a4, a5], a2, n] - S2[a1, SP[a1, a5], a3, 
     SP[a2, a4], n] - S2[a1, SP[a1, a5], SP[a3, a4], a2, n] - 
    S2[a1, SP[a2, a4], a1, SP[a3, a5], n] - S2[a1, SP[a2, a4], SP[a1, a3], 
     a5, n] - S2[a1, a4, n]*S2[a2, a3, a1, a5, n] + 
    S2[a2, a3, SP[a1, a1], SP[a4, a5], n] + S2[a2, SP[a1, a3], a1, 
     SP[a4, a5], n] + S2[a2, SP[a1, a3], SP[a1, a4], a5, n] - 
    S2[SP[a1, a1], a3, a2, SP[a4, a5], n] - S2[SP[a1, a1], a3, a5, 
     SP[a2, a4], n] - S2[SP[a1, a1], a3, SP[a2, a4], a5, n] - 
    S2[SP[a1, a1], a3, SP[a4, a5], a2, n] - S2[SP[a1, a1], a5, a3, 
     SP[a2, a4], n] - S2[SP[a1, a1], a5, SP[a3, a4], a2, n] - 
    S2[SP[a1, a1], SP[a3, a4], a2, a5, n] - S2[SP[a1, a1], SP[a3, a4], a5, 
     a2, n] - S2[SP[a1, a1], SP[a4, a5], a3, a2, n] - 
    S2[SP[a1, a2], a1, a4, SP[a3, a5], n] - S2[SP[a1, a2], a1, a5, 
     SP[a3, a4], n] - S2[SP[a1, a2], a1, SP[a3, a4], a5, n] - 
    S2[SP[a1, a2], a1, SP[a3, a5], a4, n] + S2[SP[a1, a2], a3, a1, 
     SP[a4, a5], n] + S2[SP[a1, a2], a3, SP[a1, a4], a5, n] - 
    S2[SP[a1, a2], a4, a1, SP[a3, a5], n] - S2[SP[a1, a2], a4, SP[a1, a3], 
     a5, n] - S2[SP[a1, a2], SP[a1, a3], a4, a5, n] - 
    S2[SP[a1, a2], SP[a1, a3], a5, a4, n] + S2[a1, a1, a2, a4, SP[a3, a5], 
     n] + S2[a1, a1, a2, a5, SP[a3, a4], n] + S2[a1, a1, a2, SP[a3, a4], a5, 
     n] + S2[a1, a1, a2, SP[a3, a5], a4, n] - 
    S2[a5, n]*S2[a1, a1, a3, a2, a4, n] + S2[a1, a1, a3, a2, SP[a4, a5], n] - 
    S2[a5, n]*S2[a1, a1, a3, a4, a2, n] - 
    S2[a2, n]*S2[a1, a1, a3, a4, a5, n] - 
    2*S2[a1, a1, a3, a4, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a1, a3, a5, a4, n] + S2[a1, a1, a3, a5, SP[a2, a4], n] + 
    S2[a1, a1, a3, SP[a2, a4], a5, n] - 2*S2[a1, a1, a3, SP[a2, a5], a4, n] + 
    S2[a1, a1, a3, SP[a4, a5], a2, n] + S2[a1, a1, a4, a2, SP[a3, a5], n] - 
    S2[a5, n]*S2[a1, a1, a4, a3, a2, n] - 
    S2[a2, n]*S2[a1, a1, a4, a3, a5, n] - 
    2*S2[a1, a1, a4, a3, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a1, a4, a5, a3, n] - S2[a1, a1, a4, a5, SP[a2, a3], n] - 
    S2[a1, a1, a4, SP[a2, a3], a5, n] - S2[a1, a1, a4, SP[a3, a5], a2, n] + 
    S2[a1, a1, a5, a2, SP[a3, a4], n] - S2[a2, n]*S2[a1, a1, a5, a3, a4, n] + 
    S2[a1, a1, a5, a3, SP[a2, a4], n] - S2[a2, n]*S2[a1, a1, a5, a4, a3, n] - 
    S2[a1, a1, a5, a4, SP[a2, a3], n] - S2[a1, a1, a5, SP[a2, a3], a4, n] + 
    2*S2[a1, a1, a5, SP[a3, a4], a2, n] - S2[a1, a1, SP[a2, a3], a4, a5, n] - 
    S2[a1, a1, SP[a2, a3], a5, a4, n] + 2*S2[a1, a1, SP[a3, a4], a2, a5, n] + 
    2*S2[a1, a1, SP[a3, a4], a5, a2, n] - S2[a1, a1, SP[a3, a5], a2, a4, n] - 
    S2[a1, a1, SP[a3, a5], a4, a2, n] + S2[a1, a1, SP[a4, a5], a3, a2, n] + 
    S2[a1, a2, a1, a4, SP[a3, a5], n] + S2[a1, a2, a1, a5, SP[a3, a4], n] + 
    S2[a1, a2, a1, SP[a3, a4], a5, n] + S2[a1, a2, a1, SP[a3, a5], a4, n] - 
    S2[a1, a2, a3, a1, SP[a4, a5], n] - S2[a1, a2, a3, SP[a1, a4], a5, n] + 
    S2[a1, a2, a4, a1, SP[a3, a5], n] + S2[a1, a2, a4, SP[a1, a3], a5, n] + 
    S2[a1, a2, SP[a1, a3], a4, a5, n] + S2[a1, a2, SP[a1, a3], a5, a4, n] - 
    S2[a5, n]*S2[a1, a3, a1, a2, a4, n] - 
    S2[a5, n]*S2[a1, a3, a1, a4, a2, n] - S2[a1, a3, a1, a4, SP[a2, a5], n] + 
    S2[a1, a3, a1, a5, SP[a2, a4], n] + S2[a1, a3, a1, SP[a2, a4], a5, n] - 
    S2[a1, a3, a1, SP[a2, a5], a4, n] - S2[a5, n]*S2[a1, a3, a2, a1, a4, n] + 
    S2[a1, a3, a5, a1, SP[a2, a4], n] + S2[a1, a3, a5, SP[a1, a2], a4, n] + 
    S2[a1, a3, SP[a1, a2], a4, a5, n] + S2[a1, a3, SP[a1, a2], a5, a4, n] - 
    S2[a1, a3, SP[a2, a5], a1, a4, n] + S2[a1, a4, a1, a2, SP[a3, a5], n] - 
    S2[a2, n]*S2[a1, a4, a1, a3, a5, n] - S2[a1, a4, a1, a3, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a4, a1, a5, a3, n] - S2[a1, a4, a1, a5, SP[a2, a3], n] - 
    S2[a1, a4, a1, SP[a2, a3], a5, n] + S2[a1, a4, a2, a1, SP[a3, a5], n] + 
    S2[a1, a4, a2, SP[a1, a3], a5, n] + S2[a1, a5, a1, a3, SP[a2, a4], n] + 
    S2[a1, a5, a1, SP[a3, a4], a2, n] + S2[a1, a5, a3, a1, SP[a2, a4], n] + 
    S2[a1, a5, a3, SP[a1, a2], a4, n] + S2[a1, a5, SP[a1, a3], a2, a4, n] + 
    S2[a1, a5, SP[a1, a3], a4, a2, n] + S2[a1, SP[a1, a3], a2, a4, a5, n] + 
    S2[a1, SP[a1, a3], a2, a5, a4, n] + S2[a1, SP[a1, a3], a4, a2, a5, n] + 
    S2[a1, SP[a1, a3], a4, a5, a2, n] + S2[a1, SP[a1, a3], a5, a2, a4, n] + 
    S2[a1, SP[a1, a3], a5, a4, a2, n] + S2[a1, SP[a1, a4], a3, a2, a5, n] + 
    S2[a1, SP[a1, a4], a3, a5, a2, n] + S2[a1, SP[a1, a4], a5, a3, a2, n] - 
    S2[a1, SP[a3, a5], a1, a2, a4, n] - S2[a1, SP[a3, a5], a1, a4, a2, n] - 
    S2[a1, SP[a3, a5], a2, a1, a4, n] + S2[a2, a1, a1, a4, SP[a3, a5], n] + 
    S2[a2, a1, a1, a5, SP[a3, a4], n] + S2[a2, a1, a1, SP[a3, a4], a5, n] + 
    S2[a2, a1, a1, SP[a3, a5], a4, n] - S2[a2, a1, a3, a1, SP[a4, a5], n] - 
    S2[a2, a1, a3, SP[a1, a4], a5, n] + S2[a2, a1, a4, a1, SP[a3, a5], n] + 
    S2[a2, a1, a4, SP[a1, a3], a5, n] + S2[a2, a1, SP[a1, a3], a4, a5, n] + 
    S2[a2, a1, SP[a1, a3], a5, a4, n] + S2[a5, n]*S2[a2, a3, a1, a1, a4, n] - 
    S2[a2, a3, a1, a1, SP[a4, a5], n] - S2[a2, a3, a1, SP[a1, a4], a5, n] - 
    S2[a2, a3, SP[a1, a1], a4, a5, n] - S2[a2, a3, SP[a1, a1], a5, a4, n] + 
    S2[a2, a3, SP[a1, a5], a1, a4, n] + S2[a2, SP[a3, a5], a1, a1, a4, n] - 
    S2[a2, n]*S2[a5, a3, a1, a1, a4, n] - S2[a5, a3, a1, a1, SP[a2, a4], n] - 
    S2[a5, a3, a1, SP[a1, a2], a4, n] - S2[a5, a3, SP[a1, a2], a1, a4, n] - 
    S2[a5, SP[a2, a3], a1, a1, a4, n] + S2[SP[a1, a1], a3, a2, a4, a5, n] + 
    S2[SP[a1, a1], a3, a2, a5, a4, n] + S2[SP[a1, a1], a3, a4, a2, a5, n] + 
    S2[SP[a1, a1], a3, a4, a5, a2, n] + S2[SP[a1, a1], a3, a5, a2, a4, n] + 
    S2[SP[a1, a1], a3, a5, a4, a2, n] + S2[SP[a1, a1], a4, a3, a2, a5, n] + 
    S2[SP[a1, a1], a4, a3, a5, a2, n] + S2[SP[a1, a1], a4, a5, a3, a2, n] + 
    S2[SP[a1, a1], a5, a3, a2, a4, n] + S2[SP[a1, a1], a5, a3, a4, a2, n] + 
    S2[SP[a1, a1], a5, a4, a3, a2, n] - S2[SP[a1, a5], a1, a3, a2, a4, n] - 
    S2[SP[a1, a5], a1, a3, a4, a2, n] - S2[SP[a1, a5], a1, a4, a3, a2, n] - 
    S2[SP[a1, a5], a3, a1, a2, a4, n] - S2[SP[a1, a5], a3, a1, a4, a2, n] - 
    S2[SP[a1, a5], a3, a2, a1, a4, n] + S2[a5, a1, a1, a3, a2, a4, n] + 
    S2[a5, a1, a1, a3, a4, a2, n] + S2[a5, a1, a1, a4, a3, a2, n] + 
    S2[a5, a1, a3, a1, a2, a4, n] + S2[a5, a1, a3, a1, a4, a2, n] + 
    S2[a5, a1, a3, a2, a1, a4, n] + S2[a5, a3, a1, a1, a2, a4, n] + 
    S2[a5, a3, a1, a1, a4, a2, n] + S2[a5, a3, a1, a2, a1, a4, n] + 
    S2[a5, a3, a2, a1, a1, a4, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a2_, a3_, a5_, a1_, a4_, a1_, n_] :> 
  -(S2[a1, a4, n]*S2[a1, a3, a2, a5, n]) - S2[a1, a4, n]*
     S2[a1, a3, a5, a2, n] + S2[a1, a3, SP[a1, a2], SP[a4, a5], n] + 
    S2[a1, a3, SP[a1, a5], SP[a2, a4], n] - S2[a2, a3, n]*
     S2[a1, a4, a1, a5, n] + S2[a1, a4, SP[a1, a2], SP[a3, a5], n] - 
    S2[a1, a4, n]*S2[a1, a5, a3, a2, n] + S2[a1, a5, SP[a1, a3], SP[a2, a4], 
     n] + S2[a1, SP[a1, a3], a2, SP[a4, a5], n] + S2[a1, SP[a1, a3], a5, 
     SP[a2, a4], n] + S2[a1, SP[a1, a3], SP[a2, a4], a5, n] + 
    S2[a1, SP[a1, a3], SP[a4, a5], a2, n] + S2[a1, SP[a1, a5], a3, 
     SP[a2, a4], n] + S2[a1, SP[a1, a5], SP[a3, a4], a2, n] + 
    S2[a1, SP[a2, a4], a1, SP[a3, a5], n] + S2[a1, SP[a2, a4], SP[a1, a3], 
     a5, n] + S2[a1, a4, n]*S2[a2, a3, a1, a5, n] - 
    S2[a2, a3, SP[a1, a1], SP[a4, a5], n] - S2[a2, SP[a1, a3], a1, 
     SP[a4, a5], n] - S2[a2, SP[a1, a3], SP[a1, a4], a5, n] + 
    S2[SP[a1, a1], a3, a2, SP[a4, a5], n] + S2[SP[a1, a1], a3, a5, 
     SP[a2, a4], n] + S2[SP[a1, a1], a3, SP[a2, a4], a5, n] + 
    S2[SP[a1, a1], a3, SP[a4, a5], a2, n] + S2[SP[a1, a1], a5, a3, 
     SP[a2, a4], n] + S2[SP[a1, a1], a5, SP[a3, a4], a2, n] + 
    S2[SP[a1, a1], SP[a3, a4], a2, a5, n] + S2[SP[a1, a1], SP[a3, a4], a5, 
     a2, n] + S2[SP[a1, a1], SP[a4, a5], a3, a2, n] - 
    S2[SP[a1, a2], a3, a1, SP[a4, a5], n] - S2[SP[a1, a2], a3, SP[a1, a4], 
     a5, n] + S2[SP[a1, a2], a4, a1, SP[a3, a5], n] + 
    S2[SP[a1, a2], a4, SP[a1, a3], a5, n] + 
    2*S2[a5, n]*S2[a1, a1, a3, a2, a4, n] + 
    2*S2[a5, n]*S2[a1, a1, a3, a4, a2, n] + 
    2*S2[a1, a1, a3, a4, SP[a2, a5], n] - 
    2*S2[a1, a1, a3, a5, SP[a2, a4], n] - 
    2*S2[a1, a1, a3, SP[a2, a4], a5, n] + 
    2*S2[a1, a1, a3, SP[a2, a5], a4, n] + 
    2*S2[a5, n]*S2[a1, a1, a4, a3, a2, n] + 
    2*S2[a1, a1, a4, a3, SP[a2, a5], n] + 
    2*S2[a1, a1, a4, SP[a3, a5], a2, n] - 
    2*S2[a1, a1, a5, a3, SP[a2, a4], n] - 
    2*S2[a1, a1, a5, SP[a3, a4], a2, n] - 
    2*S2[a1, a1, SP[a3, a4], a2, a5, n] - 
    2*S2[a1, a1, SP[a3, a4], a5, a2, n] + 
    2*S2[a1, a1, SP[a3, a5], a2, a4, n] + 
    2*S2[a1, a1, SP[a3, a5], a4, a2, n] + S2[a1, a2, a3, a1, SP[a4, a5], n] + 
    S2[a1, a2, a3, SP[a1, a4], a5, n] - S2[a1, a2, a4, a1, SP[a3, a5], n] - 
    S2[a1, a2, a4, SP[a1, a3], a5, n] + 2*S2[a5, n]*
     S2[a1, a3, a1, a2, a4, n] + S2[a1, a3, a1, a2, SP[a4, a5], n] + 
    2*S2[a5, n]*S2[a1, a3, a1, a4, a2, n] - 
    S2[a2, n]*S2[a1, a3, a1, a4, a5, n] + S2[a1, a3, a1, a4, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a3, a1, a5, a4, n] - 
    2*S2[a1, a3, a1, a5, SP[a2, a4], n] - 
    2*S2[a1, a3, a1, SP[a2, a4], a5, n] + S2[a1, a3, a1, SP[a2, a5], a4, n] + 
    S2[a1, a3, a1, SP[a4, a5], a2, n] + 2*S2[a5, n]*
     S2[a1, a3, a2, a1, a4, n] + S2[a1, a3, a2, a1, SP[a4, a5], n] + 
    S2[a1, a3, a2, SP[a1, a5], a4, n] - S2[a2, n]*S2[a1, a3, a5, a1, a4, n] - 
    2*S2[a1, a3, a5, a1, SP[a2, a4], n] - 
    2*S2[a1, a3, a5, SP[a1, a2], a4, n] - 
    2*S2[a1, a3, SP[a1, a2], a4, a5, n] - 
    2*S2[a1, a3, SP[a1, a2], a5, a4, n] + S2[a1, a3, SP[a1, a5], a2, a4, n] + 
    S2[a1, a3, SP[a1, a5], a4, a2, n] + S2[a1, a3, SP[a2, a5], a1, a4, n] - 
    S2[a1, a4, a1, a2, SP[a3, a5], n] + S2[a2, n]*S2[a1, a4, a1, a3, a5, n] + 
    S2[a1, a4, a1, a3, SP[a2, a5], n] + S2[a2, n]*S2[a1, a4, a1, a5, a3, n] + 
    S2[a1, a4, a1, a5, SP[a2, a3], n] + S2[a1, a4, a1, SP[a2, a3], a5, n] - 
    S2[a1, a4, a2, a1, SP[a3, a5], n] - S2[a1, a4, a2, SP[a1, a3], a5, n] - 
    S2[a1, a5, a1, a3, SP[a2, a4], n] - S2[a1, a5, a1, SP[a3, a4], a2, n] - 
    S2[a1, a5, a3, a1, SP[a2, a4], n] - S2[a1, a5, a3, SP[a1, a2], a4, n] - 
    S2[a1, a5, SP[a1, a3], a2, a4, n] - S2[a1, a5, SP[a1, a3], a4, a2, n] - 
    S2[a1, SP[a1, a3], a2, a4, a5, n] - S2[a1, SP[a1, a3], a2, a5, a4, n] - 
    S2[a1, SP[a1, a3], a4, a2, a5, n] - S2[a1, SP[a1, a3], a4, a5, a2, n] - 
    S2[a1, SP[a1, a3], a5, a2, a4, n] - S2[a1, SP[a1, a3], a5, a4, a2, n] - 
    S2[a1, SP[a1, a4], a3, a2, a5, n] - S2[a1, SP[a1, a4], a3, a5, a2, n] - 
    S2[a1, SP[a1, a4], a5, a3, a2, n] + S2[a1, SP[a1, a5], a3, a2, a4, n] + 
    S2[a1, SP[a1, a5], a3, a4, a2, n] + S2[a1, SP[a1, a5], a4, a3, a2, n] - 
    S2[a1, SP[a2, a3], a1, a4, a5, n] - S2[a1, SP[a2, a3], a1, a5, a4, n] - 
    S2[a1, SP[a2, a3], a5, a1, a4, n] + 2*S2[a1, SP[a3, a5], a1, a2, a4, n] + 
    2*S2[a1, SP[a3, a5], a1, a4, a2, n] + 
    2*S2[a1, SP[a3, a5], a2, a1, a4, n] + S2[a2, a1, a3, a1, SP[a4, a5], n] + 
    S2[a2, a1, a3, SP[a1, a4], a5, n] - S2[a2, a1, a4, a1, SP[a3, a5], n] - 
    S2[a2, a1, a4, SP[a1, a3], a5, n] - 2*S2[a5, n]*
     S2[a2, a3, a1, a1, a4, n] + S2[a2, a3, a1, SP[a1, a4], a5, n] - 
    S2[a2, a3, a1, SP[a1, a5], a4, n] + S2[a1, n]*S2[a2, a3, a5, a1, a4, n] + 
    S2[a2, a3, a5, a1, SP[a1, a4], n] + S2[a2, a3, a5, SP[a1, a1], a4, n] + 
    S2[a2, a3, SP[a1, a1], a4, a5, n] + S2[a2, a3, SP[a1, a1], a5, a4, n] - 
    S2[a2, a3, SP[a1, a5], a1, a4, n] + S2[a2, SP[a1, a3], a1, a4, a5, n] + 
    S2[a2, SP[a1, a3], a1, a5, a4, n] + S2[a2, SP[a1, a3], a5, a1, a4, n] - 
    2*S2[a2, SP[a3, a5], a1, a1, a4, n] - 
    S2[a1, n]*S2[a5, a1, a3, a2, a4, n] - S2[a5, a1, a3, a2, SP[a1, a4], n] - 
    S2[a1, n]*S2[a5, a1, a3, a4, a2, n] - S2[a5, a1, a3, a4, SP[a1, a2], n] - 
    S2[a5, a1, a3, SP[a1, a2], a4, n] - S2[a5, a1, a3, SP[a1, a4], a2, n] - 
    S2[a1, n]*S2[a5, a1, a4, a3, a2, n] - S2[a5, a1, a4, a3, SP[a1, a2], n] - 
    S2[a5, a1, a4, SP[a1, a3], a2, n] - S2[a5, a1, SP[a1, a3], a2, a4, n] - 
    S2[a5, a1, SP[a1, a3], a4, a2, n] - S2[a5, a1, SP[a1, a4], a3, a2, n] + 
    2*S2[a2, n]*S2[a5, a3, a1, a1, a4, n] + 
    2*S2[a5, a3, a1, a1, SP[a2, a4], n] - 
    S2[a1, n]*S2[a5, a3, a1, a2, a4, n] - S2[a5, a3, a1, a2, SP[a1, a4], n] - 
    S2[a1, n]*S2[a5, a3, a1, a4, a2, n] - S2[a5, a3, a1, a4, SP[a1, a2], n] + 
    S2[a5, a3, a1, SP[a1, a2], a4, n] - S2[a5, a3, a1, SP[a1, a4], a2, n] - 
    S2[a1, n]*S2[a5, a3, a2, a1, a4, n] - S2[a5, a3, a2, a1, SP[a1, a4], n] - 
    S2[a5, a3, a2, SP[a1, a1], a4, n] - S2[a5, a3, SP[a1, a1], a2, a4, n] - 
    S2[a5, a3, SP[a1, a1], a4, a2, n] + S2[a5, a3, SP[a1, a2], a1, a4, n] - 
    S2[a5, SP[a1, a1], a3, a2, a4, n] - S2[a5, SP[a1, a1], a3, a4, a2, n] - 
    S2[a5, SP[a1, a1], a4, a3, a2, n] - S2[a5, SP[a1, a3], a1, a2, a4, n] - 
    S2[a5, SP[a1, a3], a1, a4, a2, n] - S2[a5, SP[a1, a3], a2, a1, a4, n] + 
    2*S2[a5, SP[a2, a3], a1, a1, a4, n] - S2[SP[a1, a1], a3, a2, a4, a5, n] - 
    S2[SP[a1, a1], a3, a2, a5, a4, n] - S2[SP[a1, a1], a3, a4, a2, a5, n] - 
    S2[SP[a1, a1], a3, a4, a5, a2, n] - S2[SP[a1, a1], a3, a5, a2, a4, n] - 
    S2[SP[a1, a1], a3, a5, a4, a2, n] - S2[SP[a1, a1], a4, a3, a2, a5, n] - 
    S2[SP[a1, a1], a4, a3, a5, a2, n] - S2[SP[a1, a1], a4, a5, a3, a2, n] - 
    S2[SP[a1, a1], a5, a3, a2, a4, n] - S2[SP[a1, a1], a5, a3, a4, a2, n] - 
    S2[SP[a1, a1], a5, a4, a3, a2, n] + S2[SP[a1, a5], a1, a3, a2, a4, n] + 
    S2[SP[a1, a5], a1, a3, a4, a2, n] + S2[SP[a1, a5], a1, a4, a3, a2, n] + 
    S2[SP[a1, a5], a3, a1, a2, a4, n] + S2[SP[a1, a5], a3, a1, a4, a2, n] + 
    S2[SP[a1, a5], a3, a2, a1, a4, n] + S2[a5, a1, a3, a2, a4, a1, n] + 
    S2[a5, a1, a3, a4, a1, a2, n] + S2[a5, a1, a3, a4, a2, a1, n] + 
    S2[a5, a1, a4, a1, a3, a2, n] + S2[a5, a1, a4, a3, a1, a2, n] + 
    S2[a5, a1, a4, a3, a2, a1, n] + S2[a5, a3, a1, a2, a4, a1, n] + 
    S2[a5, a3, a1, a4, a1, a2, n] + S2[a5, a3, a1, a4, a2, a1, n] + 
    S2[a5, a3, a2, a1, a4, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a2_, a3_, a5_, a4_, a1_, a1_, n_] :> 
  -(S2[a2, a3, n]*S2[a1, a1, a4, a5, n]) + S2[a1, a1, SP[a2, a4], SP[a3, a5], 
     n] + S2[a1, SP[a1, a2], a4, SP[a3, a5], n] + 
    S2[a1, SP[a1, a2], SP[a3, a4], a5, n] + S2[SP[a1, a2], a1, a4, 
     SP[a3, a5], n] + S2[SP[a1, a2], a1, SP[a3, a4], a5, n] + 
    S2[SP[a1, a2], SP[a1, a3], a4, a5, n] - S2[a1, a1, a2, a4, SP[a3, a5], 
     n] - S2[a1, a1, a2, SP[a3, a4], a5, n] - 
    S2[a5, n]*S2[a1, a1, a3, a2, a4, n] - S2[a1, a1, a3, a2, SP[a4, a5], n] - 
    S2[a5, n]*S2[a1, a1, a3, a4, a2, n] + 
    S2[a2, n]*S2[a1, a1, a3, a4, a5, n] + 
    S2[a2, n]*S2[a1, a1, a3, a5, a4, n] + S2[a1, a1, a3, a5, SP[a2, a4], n] + 
    S2[a1, a1, a3, SP[a2, a4], a5, n] - S2[a1, a1, a3, SP[a4, a5], a2, n] - 
    S2[a1, a1, a4, a2, SP[a3, a5], n] - S2[a5, n]*S2[a1, a1, a4, a3, a2, n] + 
    S2[a2, n]*S2[a1, a1, a4, a3, a5, n] + 
    S2[a2, n]*S2[a1, a1, a4, a5, a3, n] + S2[a1, a1, a4, a5, SP[a2, a3], n] + 
    S2[a1, a1, a4, SP[a2, a3], a5, n] - S2[a1, a1, a4, SP[a3, a5], a2, n] + 
    S2[a1, a1, SP[a2, a3], a4, a5, n] + S2[a1, a1, SP[a2, a3], a5, a4, n] - 
    S2[a1, a1, SP[a3, a5], a2, a4, n] - S2[a1, a1, SP[a3, a5], a4, a2, n] - 
    S2[a1, a1, SP[a4, a5], a3, a2, n] - S2[a1, a2, a1, a4, SP[a3, a5], n] - 
    S2[a1, a2, a1, SP[a3, a4], a5, n] - (S2[a1, n]*S2[a1, a2, a3, a5, a4, n])/
     2 - S2[a1, a2, a3, a5, SP[a1, a4], n]/2 - 
    S2[a1, a2, a3, SP[a1, a5], a4, n]/2 - S2[a1, a2, SP[a1, a3], a4, a5, n] - 
    S2[a1, a2, SP[a1, a3], a5, a4, n]/2 - 
    S2[a5, n]*S2[a1, a3, a1, a2, a4, n] - S2[a1, a3, a1, a2, SP[a4, a5], n] - 
    S2[a5, n]*S2[a1, a3, a1, a4, a2, n] + 
    S2[a2, n]*S2[a1, a3, a1, a4, a5, n] + 
    S2[a2, n]*S2[a1, a3, a1, a5, a4, n] + S2[a1, a3, a1, a5, SP[a2, a4], n] + 
    S2[a1, a3, a1, SP[a2, a4], a5, n] - S2[a1, a3, a1, SP[a4, a5], a2, n] - 
    S2[a5, n]*S2[a1, a3, a2, a1, a4, n] - S2[a1, a3, a2, a1, SP[a4, a5], n] - 
    S2[a1, a3, a2, SP[a1, a5], a4, n] + S2[a2, n]*S2[a1, a3, a5, a1, a4, n] + 
    S2[a1, a3, a5, a1, SP[a2, a4], n] + S2[a1, a3, a5, SP[a1, a2], a4, n] + 
    S2[a1, a3, SP[a1, a2], a4, a5, n] + S2[a1, a3, SP[a1, a2], a5, a4, n] - 
    S2[a1, a3, SP[a1, a5], a2, a4, n] - S2[a1, a3, SP[a1, a5], a4, a2, n] + 
    (S2[a1, n]*S2[a1, a5, a3, a2, a4, n])/2 + 
    S2[a1, a5, a3, a2, SP[a1, a4], n]/2 + 
    (S2[a1, n]*S2[a1, a5, a3, a4, a2, n])/2 + 
    S2[a1, a5, a3, a4, SP[a1, a2], n]/2 + S2[a1, a5, a3, SP[a1, a2], a4, n]/
     2 + S2[a1, a5, a3, SP[a1, a4], a2, n]/2 + 
    (S2[a1, n]*S2[a1, a5, a4, a3, a2, n])/2 + 
    S2[a1, a5, a4, a3, SP[a1, a2], n]/2 + S2[a1, a5, a4, SP[a1, a3], a2, n]/
     2 + S2[a1, a5, SP[a1, a3], a2, a4, n]/2 + 
    S2[a1, a5, SP[a1, a3], a4, a2, n]/2 + S2[a1, a5, SP[a1, a4], a3, a2, n]/
     2 + S2[a1, SP[a1, a2], a3, a5, a4, n]/2 - 
    S2[a1, SP[a1, a5], a3, a2, a4, n]/2 - S2[a1, SP[a1, a5], a3, a4, a2, n]/
     2 - S2[a1, SP[a1, a5], a4, a3, a2, n]/2 + S2[a1, SP[a2, a3], a1, a4, a5, 
     n] + S2[a1, SP[a2, a3], a1, a5, a4, n] + S2[a1, SP[a2, a3], a5, a1, a4, 
     n] - S2[a1, SP[a3, a5], a1, a2, a4, n] - S2[a1, SP[a3, a5], a1, a4, a2, 
     n] - S2[a1, SP[a3, a5], a2, a1, a4, n] - S2[a2, a1, a1, a4, SP[a3, a5], 
     n] - S2[a2, a1, a1, SP[a3, a4], a5, n] - 
    (S2[a1, n]*S2[a2, a1, a3, a5, a4, n])/2 - 
    S2[a2, a1, a3, a5, SP[a1, a4], n]/2 - S2[a2, a1, a3, SP[a1, a5], a4, n]/
     2 - S2[a2, a1, SP[a1, a3], a4, a5, n] - 
    S2[a2, a1, SP[a1, a3], a5, a4, n]/2 + 
    S2[a5, n]*S2[a2, a3, a1, a1, a4, n] + S2[a2, a3, a1, a1, SP[a4, a5], n] - 
    (S2[a1, n]*S2[a2, a3, a1, a5, a4, n])/2 - 
    S2[a2, a3, a1, a5, SP[a1, a4], n]/2 + S2[a2, a3, a1, SP[a1, a5], a4, n]/
     2 - (S2[a1, n]*S2[a2, a3, a5, a1, a4, n])/2 - 
    S2[a2, a3, a5, a1, SP[a1, a4], n]/2 + 
    (S2[a1, n]*S2[a2, a3, a5, a4, a1, n])/2 + 
    S2[a2, a3, a5, a4, SP[a1, a1], n]/2 - S2[a2, a3, a5, SP[a1, a1], a4, n]/
     2 + S2[a2, a3, a5, SP[a1, a4], a1, n]/2 - 
    S2[a2, a3, SP[a1, a1], a5, a4, n]/2 + S2[a2, a3, SP[a1, a5], a1, a4, n]/
     2 + S2[a2, a3, SP[a1, a5], a4, a1, n]/2 - 
    S2[a2, SP[a1, a1], a3, a5, a4, n]/2 - S2[a2, SP[a1, a3], a1, a4, a5, n] - 
    S2[a2, SP[a1, a3], a1, a5, a4, n]/2 - S2[a2, SP[a1, a3], a5, a1, a4, n]/
     2 + S2[a2, SP[a1, a3], a5, a4, a1, n]/2 + S2[a2, SP[a3, a5], a1, a1, a4, 
     n] + (S2[a1, n]*S2[a5, a1, a3, a2, a4, n])/2 + 
    S2[a5, a1, a3, a2, SP[a1, a4], n]/2 + 
    (S2[a1, n]*S2[a5, a1, a3, a4, a2, n])/2 + 
    S2[a5, a1, a3, a4, SP[a1, a2], n]/2 + S2[a5, a1, a3, SP[a1, a2], a4, n]/
     2 + S2[a5, a1, a3, SP[a1, a4], a2, n]/2 + 
    (S2[a1, n]*S2[a5, a1, a4, a3, a2, n])/2 + 
    S2[a5, a1, a4, a3, SP[a1, a2], n]/2 + S2[a5, a1, a4, SP[a1, a3], a2, n]/
     2 + S2[a5, a1, SP[a1, a3], a2, a4, n]/2 + 
    S2[a5, a1, SP[a1, a3], a4, a2, n]/2 + S2[a5, a1, SP[a1, a4], a3, a2, n]/
     2 - S2[a2, n]*S2[a5, a3, a1, a1, a4, n] - S2[a5, a3, a1, a1, SP[a2, a4], 
     n] + (S2[a1, n]*S2[a5, a3, a1, a2, a4, n])/2 + 
    S2[a5, a3, a1, a2, SP[a1, a4], n]/2 + 
    (S2[a1, n]*S2[a5, a3, a1, a4, a2, n])/2 + 
    S2[a5, a3, a1, a4, SP[a1, a2], n]/2 - S2[a5, a3, a1, SP[a1, a2], a4, n]/
     2 + S2[a5, a3, a1, SP[a1, a4], a2, n]/2 + 
    (S2[a1, n]*S2[a5, a3, a2, a1, a4, n])/2 + 
    S2[a5, a3, a2, a1, SP[a1, a4], n]/2 - 
    (S2[a1, n]*S2[a5, a3, a2, a4, a1, n])/2 - 
    S2[a5, a3, a2, a4, SP[a1, a1], n]/2 + S2[a5, a3, a2, SP[a1, a1], a4, n]/
     2 - S2[a5, a3, a2, SP[a1, a4], a1, n]/2 - 
    (S2[a1, n]*S2[a5, a3, a4, a1, a2, n])/2 - 
    S2[a5, a3, a4, a1, SP[a1, a2], n]/2 - 
    (S2[a1, n]*S2[a5, a3, a4, a2, a1, n])/2 - 
    S2[a5, a3, a4, a2, SP[a1, a1], n]/2 - S2[a5, a3, a4, SP[a1, a1], a2, n]/
     2 - S2[a5, a3, a4, SP[a1, a2], a1, n]/2 + 
    S2[a5, a3, SP[a1, a1], a2, a4, n]/2 + S2[a5, a3, SP[a1, a1], a4, a2, n]/
     2 - S2[a5, a3, SP[a1, a2], a1, a4, n]/2 - 
    S2[a5, a3, SP[a1, a2], a4, a1, n]/2 - S2[a5, a3, SP[a1, a4], a1, a2, n]/
     2 - S2[a5, a3, SP[a1, a4], a2, a1, n]/2 - 
    (S2[a1, n]*S2[a5, a4, a1, a3, a2, n])/2 - 
    S2[a5, a4, a1, a3, SP[a1, a2], n]/2 - S2[a5, a4, a1, SP[a1, a3], a2, n]/
     2 - (S2[a1, n]*S2[a5, a4, a3, a1, a2, n])/2 - 
    S2[a5, a4, a3, a1, SP[a1, a2], n]/2 - 
    (S2[a1, n]*S2[a5, a4, a3, a2, a1, n])/2 - 
    S2[a5, a4, a3, a2, SP[a1, a1], n]/2 - S2[a5, a4, a3, SP[a1, a1], a2, n]/
     2 - S2[a5, a4, a3, SP[a1, a2], a1, n]/2 - 
    S2[a5, a4, SP[a1, a1], a3, a2, n]/2 - S2[a5, a4, SP[a1, a3], a1, a2, n]/
     2 - S2[a5, a4, SP[a1, a3], a2, a1, n]/2 + 
    S2[a5, SP[a1, a1], a3, a2, a4, n]/2 + S2[a5, SP[a1, a1], a3, a4, a2, n]/
     2 + S2[a5, SP[a1, a1], a4, a3, a2, n]/2 + 
    S2[a5, SP[a1, a3], a1, a2, a4, n]/2 + S2[a5, SP[a1, a3], a1, a4, a2, n]/
     2 + S2[a5, SP[a1, a3], a2, a1, a4, n]/2 - 
    S2[a5, SP[a1, a3], a2, a4, a1, n]/2 - S2[a5, SP[a1, a3], a4, a1, a2, n]/
     2 - S2[a5, SP[a1, a3], a4, a2, a1, n]/2 - 
    S2[a5, SP[a1, a4], a1, a3, a2, n]/2 - S2[a5, SP[a1, a4], a3, a1, a2, n]/
     2 - S2[a5, SP[a1, a4], a3, a2, a1, n]/2 - S2[a5, SP[a2, a3], a1, a1, a4, 
     n] - S2[SP[a1, a1], a2, a3, a5, a4, n]/2 + 
    S2[SP[a1, a1], a5, a3, a2, a4, n]/2 + S2[SP[a1, a1], a5, a3, a4, a2, n]/
     2 + S2[SP[a1, a1], a5, a4, a3, a2, n]/2 + 
    S2[SP[a1, a2], a1, a3, a5, a4, n]/2 + S2[SP[a1, a2], a3, a1, a5, a4, n]/
     2 + S2[SP[a1, a2], a3, a5, a1, a4, n]/2 + 
    S2[SP[a1, a2], a3, a5, a4, a1, n]/2 - S2[SP[a1, a5], a1, a3, a2, a4, n]/
     2 - S2[SP[a1, a5], a1, a3, a4, a2, n]/2 - 
    S2[SP[a1, a5], a1, a4, a3, a2, n]/2 - S2[SP[a1, a5], a3, a1, a2, a4, n]/
     2 - S2[SP[a1, a5], a3, a1, a4, a2, n]/2 - 
    S2[SP[a1, a5], a3, a2, a1, a4, n]/2 - S2[SP[a1, a5], a3, a2, a4, a1, n]/
     2 - S2[SP[a1, a5], a3, a4, a1, a2, n]/2 - 
    S2[SP[a1, a5], a3, a4, a2, a1, n]/2 - S2[SP[a1, a5], a4, a1, a3, a2, n]/
     2 - S2[SP[a1, a5], a4, a3, a1, a2, n]/2 - 
    S2[SP[a1, a5], a4, a3, a2, a1, n]/2 + S2[a5, a3, a2, a4, a1, a1, n] + 
    S2[a5, a3, a4, a1, a1, a2, n] + S2[a5, a3, a4, a1, a2, a1, n] + 
    S2[a5, a3, a4, a2, a1, a1, n] + S2[a5, a4, a1, a1, a3, a2, n] + 
    S2[a5, a4, a1, a3, a1, a2, n] + S2[a5, a4, a1, a3, a2, a1, n] + 
    S2[a5, a4, a3, a1, a1, a2, n] + S2[a5, a4, a3, a1, a2, a1, n] + 
    S2[a5, a4, a3, a2, a1, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a2_, a4_, a1_, a1_, a3_, a5_, n_] :> 
  S2[a1, a3, a5, n]*S2[a1, a4, a2, n] + S2[SP[a1, a1], SP[a3, a4], 
     SP[a2, a5], n] + S2[a2, a4, n]*S2[a1, a1, a3, a5, n] - 
    S2[a3, a5, n]*S2[a1, a1, a4, a2, n] - S2[a1, a1, SP[a2, a3], SP[a4, a5], 
     n] - S2[a1, a1, SP[a3, a4], SP[a2, a5], n] - S2[a1, SP[a1, a2], a3, 
     SP[a4, a5], n] - S2[a1, SP[a1, a2], SP[a3, a4], a5, n] - 
    S2[a1, SP[a1, a4], a3, SP[a2, a5], n] - S2[a1, SP[a1, a4], SP[a2, a3], 
     a5, n] - S2[SP[a1, a1], a3, a4, SP[a2, a5], n] - 
    S2[SP[a1, a1], a3, SP[a4, a5], a2, n] - S2[SP[a1, a1], a4, a3, 
     SP[a2, a5], n] - S2[SP[a1, a1], a4, SP[a2, a3], a5, n] - 
    S2[SP[a1, a1], SP[a3, a4], a2, a5, n] - S2[SP[a1, a1], SP[a3, a4], a5, 
     a2, n] - S2[SP[a1, a2], a1, a3, SP[a4, a5], n] - 
    S2[SP[a1, a2], a1, SP[a3, a4], a5, n] - S2[SP[a1, a2], SP[a1, a4], a3, 
     a5, n] + S2[SP[a1, a3], a1, a4, SP[a2, a5], n] + 
    S2[SP[a1, a3], a1, SP[a4, a5], a2, n] + S2[SP[a1, a3], SP[a1, a5], a4, 
     a2, n] + S2[a1, a1, a2, a3, SP[a4, a5], n] + S2[a1, a1, a2, SP[a3, a4], 
     a5, n] + S2[a1, a1, a3, a2, SP[a4, a5], n] - 
    S2[a5, n]*S2[a1, a1, a3, a4, a2, n] - 
    S2[a2, n]*S2[a1, a1, a3, a4, a5, n] - S2[a1, a1, a3, a4, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a1, a3, a5, a4, n] - S2[a1, a1, a3, a5, SP[a2, a4], n] - 
    S2[a1, a1, a3, SP[a2, a4], a5, n] - S2[a5, n]*S2[a1, a1, a4, a2, a3, n] + 
    S2[a3, n]*S2[a1, a1, a4, a2, a5, n] - 
    S2[a5, n]*S2[a1, a1, a4, a3, a2, n] - 
    S2[a2, n]*S2[a1, a1, a4, a3, a5, n] - S2[a1, a1, a4, a3, SP[a2, a5], n] + 
    S2[a3, n]*S2[a1, a1, a4, a5, a2, n] + S2[a1, a1, a4, a5, SP[a2, a3], n] + 
    S2[a1, a1, a4, SP[a2, a3], a5, n] - S2[a1, a1, a4, SP[a2, a5], a3, n] + 
    S2[a3, n]*S2[a1, a1, a5, a4, a2, n] + S2[a1, a1, a5, a4, SP[a2, a3], n] + 
    S2[a1, a1, a5, SP[a3, a4], a2, n] - S2[a1, a1, SP[a2, a4], a3, a5, n] + 
    2*S2[a1, a1, SP[a3, a4], a2, a5, n] + 
    2*S2[a1, a1, SP[a3, a4], a5, a2, n] - S2[a1, a1, SP[a4, a5], a2, a3, n] - 
    S2[a1, a1, SP[a4, a5], a3, a2, n] + S2[a1, a2, a1, a3, SP[a4, a5], n] + 
    S2[a1, a2, a1, SP[a3, a4], a5, n] + S2[a1, a2, SP[a1, a4], a3, a5, n] - 
    S2[a5, n]*S2[a1, a3, a1, a4, a2, n] - S2[a1, a3, a1, a4, SP[a2, a5], n] - 
    S2[a1, a3, a1, SP[a4, a5], a2, n] - S2[a1, a3, SP[a1, a5], a4, a2, n] - 
    S2[a2, n]*S2[a1, a4, a1, a3, a5, n] + 
    S2[a3, n]*S2[a1, a5, a1, a4, a2, n] + S2[a1, a5, a1, a4, SP[a2, a3], n] + 
    S2[a1, a5, a1, SP[a3, a4], a2, n] + S2[a1, a5, SP[a1, a3], a4, a2, n] + 
    S2[a1, SP[a1, a3], a4, a2, a5, n] + S2[a1, SP[a1, a3], a4, a5, a2, n] + 
    S2[a1, SP[a1, a3], a5, a4, a2, n] + S2[a1, SP[a1, a4], a2, a3, a5, n] + 
    S2[a1, SP[a1, a4], a3, a2, a5, n] + S2[a1, SP[a1, a4], a3, a5, a2, n] - 
    S2[a1, SP[a1, a5], a3, a4, a2, n] - S2[a1, SP[a1, a5], a4, a2, a3, n] - 
    S2[a1, SP[a1, a5], a4, a3, a2, n] - S2[a1, SP[a2, a4], a1, a3, a5, n] + 
    S2[a2, a1, a1, a3, SP[a4, a5], n] + S2[a2, a1, a1, SP[a3, a4], a5, n] + 
    S2[a2, a1, SP[a1, a4], a3, a5, n] + S2[a2, SP[a1, a4], a1, a3, a5, n] - 
    S2[a3, a1, a1, a4, SP[a2, a5], n] - S2[a3, a1, a1, SP[a4, a5], a2, n] - 
    S2[a3, a1, SP[a1, a5], a4, a2, n] - S2[a3, SP[a1, a5], a1, a4, a2, n] + 
    S2[a3, n]*S2[a5, a1, a1, a4, a2, n] + S2[a5, a1, a1, a4, SP[a2, a3], n] + 
    S2[a5, a1, a1, SP[a3, a4], a2, n] + S2[a5, a1, SP[a1, a3], a4, a2, n] + 
    S2[a5, SP[a1, a3], a1, a4, a2, n] + S2[SP[a1, a1], a3, a4, a2, a5, n] + 
    S2[SP[a1, a1], a3, a4, a5, a2, n] + S2[SP[a1, a1], a3, a5, a4, a2, n] + 
    S2[SP[a1, a1], a4, a2, a3, a5, n] + S2[SP[a1, a1], a4, a3, a2, a5, n] + 
    S2[SP[a1, a1], a4, a3, a5, a2, n] - S2[SP[a1, a5], a1, a3, a4, a2, n] - 
    S2[SP[a1, a5], a1, a4, a2, a3, n] - S2[SP[a1, a5], a1, a4, a3, a2, n] - 
    S2[SP[a1, a5], a3, a1, a4, a2, n] + S2[SP[a3, a5], a1, a1, a4, a2, n] - 
    S2[a5, a3, a1, a1, a4, a2, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a2_, a4_, a1_, a1_, a5_, a3_, n_] :> 
  S2[a1, a4, a2, n]*S2[a1, a5, a3, n] + S2[SP[a1, a1], SP[a4, a5], 
     SP[a2, a3], n] + S2[a3, a5, n]*S2[a1, a1, a4, a2, n] + 
    S2[a2, a4, n]*S2[a1, a1, a5, a3, n] - S2[a1, a1, SP[a2, a5], SP[a3, a4], 
     n] - S2[a1, a1, SP[a3, a4], SP[a2, a5], n] - 
    2*S2[a1, a1, SP[a4, a5], SP[a2, a3], n] - S2[a1, SP[a1, a2], a5, 
     SP[a3, a4], n] - S2[a1, SP[a1, a2], SP[a4, a5], a3, n] - 
    S2[a1, SP[a1, a3], a4, SP[a2, a5], n] - S2[a1, SP[a1, a3], SP[a4, a5], 
     a2, n] - S2[a1, SP[a1, a4], a5, SP[a2, a3], n] - 
    S2[a1, SP[a1, a4], SP[a2, a5], a3, n] - S2[a1, SP[a1, a5], a4, 
     SP[a2, a3], n] - S2[a1, SP[a1, a5], SP[a3, a4], a2, n] - 
    S2[SP[a1, a1], a4, a5, SP[a2, a3], n] - S2[SP[a1, a1], a4, SP[a2, a5], 
     a3, n] - S2[SP[a1, a1], a5, a4, SP[a2, a3], n] - 
    S2[SP[a1, a1], a5, SP[a3, a4], a2, n] - S2[SP[a1, a1], SP[a4, a5], a2, 
     a3, n] - S2[SP[a1, a1], SP[a4, a5], a3, a2, n] - 
    S2[SP[a1, a2], a1, a5, SP[a3, a4], n] - S2[SP[a1, a2], a1, SP[a4, a5], 
     a3, n] - S2[SP[a1, a2], SP[a1, a4], a5, a3, n] - 
    S2[SP[a1, a3], a1, a4, SP[a2, a5], n] - S2[SP[a1, a3], a1, SP[a4, a5], 
     a2, n] - S2[SP[a1, a3], SP[a1, a5], a4, a2, n] + 
    S2[a1, a1, a2, a5, SP[a3, a4], n] + S2[a1, a1, a2, SP[a4, a5], a3, n] + 
    S2[a1, a1, a3, a4, SP[a2, a5], n] + S2[a1, a1, a3, SP[a4, a5], a2, n] - 
    S2[a3, n]*S2[a1, a1, a4, a2, a5, n] - S2[a1, a1, a4, a2, SP[a3, a5], n] + 
    S2[a1, a1, a4, a3, SP[a2, a5], n] - S2[a3, n]*S2[a1, a1, a4, a5, a2, n] - 
    S2[a2, n]*S2[a1, a1, a4, a5, a3, n] + S2[a1, a1, a4, SP[a2, a5], a3, n] - 
    S2[a1, a1, a4, SP[a3, a5], a2, n] + S2[a1, a1, a5, a2, SP[a3, a4], n] - 
    S2[a2, n]*S2[a1, a1, a5, a3, a4, n] - S2[a1, a1, a5, a3, SP[a2, a4], n] - 
    S2[a3, n]*S2[a1, a1, a5, a4, a2, n] - 
    S2[a2, n]*S2[a1, a1, a5, a4, a3, n] - S2[a1, a1, a5, SP[a2, a4], a3, n] + 
    S2[a1, a1, a5, SP[a3, a4], a2, n] - S2[a1, a1, SP[a2, a4], a5, a3, n] - 
    S2[a1, a1, SP[a3, a5], a4, a2, n] + 2*S2[a1, a1, SP[a4, a5], a2, a3, n] + 
    2*S2[a1, a1, SP[a4, a5], a3, a2, n] + S2[a1, a2, a1, a5, SP[a3, a4], n] + 
    S2[a1, a2, a1, SP[a4, a5], a3, n] + S2[a1, a2, SP[a1, a4], a5, a3, n] + 
    S2[a1, a3, a1, a4, SP[a2, a5], n] + S2[a1, a3, a1, SP[a4, a5], a2, n] + 
    S2[a1, a3, SP[a1, a5], a4, a2, n] - S2[a2, n]*S2[a1, a4, a1, a5, a3, n] - 
    S2[a3, n]*S2[a1, a5, a1, a4, a2, n] + S2[a1, SP[a1, a4], a2, a5, a3, n] + 
    S2[a1, SP[a1, a4], a5, a2, a3, n] + S2[a1, SP[a1, a4], a5, a3, a2, n] + 
    S2[a1, SP[a1, a5], a3, a4, a2, n] + S2[a1, SP[a1, a5], a4, a2, a3, n] + 
    S2[a1, SP[a1, a5], a4, a3, a2, n] - S2[a1, SP[a2, a4], a1, a5, a3, n] - 
    S2[a1, SP[a3, a5], a1, a4, a2, n] + S2[a2, a1, a1, a5, SP[a3, a4], n] + 
    S2[a2, a1, a1, SP[a4, a5], a3, n] + S2[a2, a1, SP[a1, a4], a5, a3, n] + 
    S2[a2, SP[a1, a4], a1, a5, a3, n] + S2[a3, a1, a1, a4, SP[a2, a5], n] + 
    S2[a3, a1, a1, SP[a4, a5], a2, n] + S2[a3, a1, SP[a1, a5], a4, a2, n] + 
    S2[a3, SP[a1, a5], a1, a4, a2, n] - S2[a3, n]*S2[a5, a1, a1, a4, a2, n] - 
    S2[a5, a1, a1, a4, SP[a2, a3], n] - S2[a5, a1, a1, SP[a3, a4], a2, n] - 
    S2[a5, a1, SP[a1, a3], a4, a2, n] - S2[a5, SP[a1, a3], a1, a4, a2, n] + 
    S2[SP[a1, a1], a4, a2, a5, a3, n] + S2[SP[a1, a1], a4, a5, a2, a3, n] + 
    S2[SP[a1, a1], a4, a5, a3, a2, n] + S2[SP[a1, a1], a5, a3, a4, a2, n] + 
    S2[SP[a1, a1], a5, a4, a2, a3, n] + S2[SP[a1, a1], a5, a4, a3, a2, n] - 
    S2[SP[a3, a5], a1, a1, a4, a2, n] + S2[a5, a1, a1, a3, a4, a2, n] + 
    S2[a5, a1, a1, a4, a2, a3, n] + S2[a5, a1, a1, a4, a3, a2, n] + 
    S2[a5, a1, a3, a1, a4, a2, n] + S2[a5, a3, a1, a1, a4, a2, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a2_, a4_, a1_, a3_, a1_, a5_, n_] :> 
  -(S2[a1, a3, a5, n]*S2[a1, a4, a2, n]) - S2[a1, a4, a2, n]*
     S2[a1, a5, a3, n] - S2[SP[a1, a1], SP[a3, a4], SP[a2, a5], n] - 
    S2[SP[a1, a1], SP[a4, a5], SP[a2, a3], n] + 
    2*S2[a1, a1, SP[a3, a4], SP[a2, a5], n] + 
    2*S2[a1, a1, SP[a4, a5], SP[a2, a3], n] + 
    S2[a2, a4, n]*S2[a1, a3, a1, a5, n] + S2[a1, a5, n]*
     S2[a1, a3, a4, a2, n] - S2[a1, a3, SP[a1, a2], SP[a4, a5], n] - 
    S2[a1, a3, SP[a1, a4], SP[a2, a5], n] + S2[a1, a5, n]*
     S2[a1, a4, a2, a3, n] + S2[a1, a5, n]*S2[a1, a4, a3, a2, n] - 
    S2[a1, a4, SP[a1, a2], SP[a3, a5], n] - S2[a1, a4, SP[a1, a3], 
     SP[a2, a5], n] - S2[a1, SP[a1, a4], a2, SP[a3, a5], n] + 
    S2[a1, SP[a1, a4], a5, SP[a2, a3], n] + S2[a1, SP[a1, a4], SP[a2, a3], 
     a5, n] - S2[a1, SP[a1, a4], SP[a3, a5], a2, n] + 
    S2[a1, SP[a1, a5], a4, SP[a2, a3], n] + S2[a1, SP[a1, a5], SP[a3, a4], 
     a2, n] - S2[a1, SP[a2, a3], a1, SP[a4, a5], n] - 
    S2[a1, SP[a2, a3], SP[a1, a4], a5, n] - S2[SP[a1, a1], a4, a2, 
     SP[a3, a5], n] + S2[SP[a1, a1], a4, a5, SP[a2, a3], n] + 
    S2[SP[a1, a1], a4, SP[a2, a3], a5, n] - S2[SP[a1, a1], a4, SP[a3, a5], 
     a2, n] + S2[SP[a1, a1], a5, a4, SP[a2, a3], n] + 
    S2[SP[a1, a1], a5, SP[a3, a4], a2, n] + S2[SP[a1, a1], SP[a3, a4], a2, 
     a5, n] + S2[SP[a1, a1], SP[a3, a4], a5, a2, n] - 
    S2[SP[a1, a1], SP[a3, a5], a4, a2, n] - S2[SP[a1, a2], a3, a1, 
     SP[a4, a5], n] - S2[SP[a1, a2], a3, SP[a1, a4], a5, n] - 
    S2[SP[a1, a2], SP[a3, a4], a1, a5, n] + 
    2*S2[a1, a1, a4, a2, SP[a3, a5], n] - 
    2*S2[a1, a1, a4, a5, SP[a2, a3], n] - 
    2*S2[a1, a1, a4, SP[a2, a3], a5, n] + 
    2*S2[a1, a1, a4, SP[a3, a5], a2, n] - 
    2*S2[a1, a1, a5, a4, SP[a2, a3], n] - 
    2*S2[a1, a1, a5, SP[a3, a4], a2, n] - 
    2*S2[a1, a1, SP[a3, a4], a2, a5, n] - 
    2*S2[a1, a1, SP[a3, a4], a5, a2, n] + 
    2*S2[a1, a1, SP[a3, a5], a4, a2, n] + S2[a1, a2, a3, a1, SP[a4, a5], n] + 
    S2[a1, a2, a3, SP[a1, a4], a5, n] + S2[a1, a2, SP[a3, a4], a1, a5, n] + 
    S2[a1, a3, a1, a2, SP[a4, a5], n] + S2[a5, n]*S2[a1, a3, a1, a4, a2, n] - 
    S2[a2, n]*S2[a1, a3, a1, a4, a5, n] - 
    S2[a2, n]*S2[a1, a3, a1, a5, a4, n] - S2[a1, a3, a1, a5, SP[a2, a4], n] - 
    S2[a1, a3, a1, SP[a2, a4], a5, n] + S2[a1, a3, a1, SP[a4, a5], a2, n] + 
    S2[a1, a3, a2, a1, SP[a4, a5], n] + S2[a1, a3, a2, SP[a1, a4], a5, n] - 
    S2[a2, n]*S2[a1, a3, a4, a1, a5, n] + S2[a1, a3, SP[a1, a4], a2, a5, n] + 
    S2[a1, a3, SP[a1, a4], a5, a2, n] - S2[a1, a3, SP[a2, a4], a1, a5, n] + 
    S2[a1, a4, a1, a2, SP[a3, a5], n] - S2[a1, a4, a1, a5, SP[a2, a3], n] - 
    S2[a1, a4, a1, SP[a2, a3], a5, n] + S2[a1, a4, a1, SP[a3, a5], a2, n] + 
    S2[a1, a4, a2, a1, SP[a3, a5], n] + S2[a1, a4, a2, SP[a1, a3], a5, n] - 
    S2[a2, n]*S2[a1, a4, a3, a1, a5, n] + S2[a1, a4, SP[a1, a3], a2, a5, n] + 
    S2[a1, a4, SP[a1, a3], a5, a2, n] - S2[a1, a4, SP[a2, a3], a1, a5, n] - 
    S2[a1, a5, a1, a4, SP[a2, a3], n] - S2[a1, a5, a1, SP[a3, a4], a2, n] - 
    S2[a1, a5, SP[a1, a3], a4, a2, n] - S2[a1, SP[a2, a4], a3, a1, a5, n] + 
    S2[a1, SP[a3, a5], a1, a4, a2, n] + S2[a2, a1, a3, a1, SP[a4, a5], n] + 
    S2[a2, a1, a3, SP[a1, a4], a5, n] + S2[a2, a1, SP[a3, a4], a1, a5, n] + 
    S2[a2, SP[a1, a4], a3, a1, a5, n] + S2[SP[a1, a5], a3, a1, a4, a2, n] - 
    S2[a5, a1, a3, a1, a4, a2, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a2_, a4_, a1_, a3_, a5_, a1_, n_] :> 
  S2[a1, a4, a2, n]*S2[a1, a5, a3, n] + S2[SP[a1, a1], SP[a4, a5], 
     SP[a2, a3], n] - 2*S2[a2, a4, n]*S2[a1, a1, a3, a5, n] + 
    2*S2[a1, a1, SP[a2, a3], SP[a4, a5], n] - 
    2*S2[a1, a1, SP[a4, a5], SP[a2, a3], n] - 
    S2[a2, a4, n]*S2[a1, a3, a1, a5, n] - S2[a1, a5, n]*
     S2[a1, a3, a4, a2, n] + S2[a1, a3, SP[a1, a2], SP[a4, a5], n] + 
    S2[a1, a3, SP[a1, a4], SP[a2, a5], n] - S2[a1, a5, n]*
     S2[a1, a4, a2, a3, n] - S2[a1, a5, n]*S2[a1, a4, a3, a2, n] + 
    S2[a1, a4, SP[a1, a2], SP[a3, a5], n] + S2[a1, a4, SP[a1, a3], 
     SP[a2, a5], n] + 2*S2[a1, SP[a1, a2], a3, SP[a4, a5], n] + 
    2*S2[a1, SP[a1, a2], SP[a3, a4], a5, n] + S2[a1, SP[a1, a3], a4, 
     SP[a2, a5], n] + S2[a1, SP[a1, a3], SP[a4, a5], a2, n] + 
    S2[a1, SP[a1, a4], a2, SP[a3, a5], n] + S2[a1, SP[a1, a4], a3, 
     SP[a2, a5], n] - S2[a1, SP[a1, a4], a5, SP[a2, a3], n] + 
    S2[a1, SP[a1, a4], SP[a3, a5], a2, n] - S2[a1, SP[a1, a5], a4, 
     SP[a2, a3], n] - S2[a1, SP[a1, a5], SP[a3, a4], a2, n] + 
    S2[a1, SP[a2, a3], a1, SP[a4, a5], n] + S2[a1, SP[a2, a3], SP[a1, a4], 
     a5, n] + S2[SP[a1, a1], a3, a4, SP[a2, a5], n] + 
    S2[SP[a1, a1], a3, SP[a4, a5], a2, n] + S2[SP[a1, a1], a4, a2, 
     SP[a3, a5], n] + S2[SP[a1, a1], a4, a3, SP[a2, a5], n] - 
    S2[SP[a1, a1], a4, a5, SP[a2, a3], n] + S2[SP[a1, a1], a4, SP[a3, a5], 
     a2, n] - S2[SP[a1, a1], a5, a4, SP[a2, a3], n] - 
    S2[SP[a1, a1], a5, SP[a3, a4], a2, n] + S2[SP[a1, a1], SP[a3, a5], a4, 
     a2, n] + 2*S2[SP[a1, a2], a1, a3, SP[a4, a5], n] + 
    2*S2[SP[a1, a2], a1, SP[a3, a4], a5, n] + S2[SP[a1, a2], a3, a1, 
     SP[a4, a5], n] + S2[SP[a1, a2], a3, SP[a1, a4], a5, n] + 
    2*S2[SP[a1, a2], SP[a1, a4], a3, a5, n] + S2[SP[a1, a2], SP[a3, a4], a1, 
     a5, n] - 2*S2[a1, a1, a2, a3, SP[a4, a5], n] - 
    2*S2[a1, a1, a2, SP[a3, a4], a5, n] - 
    2*S2[a1, a1, a3, a2, SP[a4, a5], n] + 
    2*S2[a2, n]*S2[a1, a1, a3, a4, a5, n] + 
    2*S2[a2, n]*S2[a1, a1, a3, a5, a4, n] + 
    2*S2[a1, a1, a3, a5, SP[a2, a4], n] + 
    2*S2[a1, a1, a3, SP[a2, a4], a5, n] - 
    2*S2[a1, a1, a3, SP[a4, a5], a2, n] - 
    2*S2[a1, a1, a4, a2, SP[a3, a5], n] + 
    2*S2[a2, n]*S2[a1, a1, a4, a3, a5, n] + 
    2*S2[a1, a1, a4, a5, SP[a2, a3], n] + 
    2*S2[a1, a1, a4, SP[a2, a3], a5, n] - 
    2*S2[a1, a1, a4, SP[a3, a5], a2, n] + 
    2*S2[a1, a1, a5, a4, SP[a2, a3], n] + 
    2*S2[a1, a1, a5, SP[a3, a4], a2, n] + 
    2*S2[a1, a1, SP[a2, a4], a3, a5, n] - 
    2*S2[a1, a1, SP[a3, a5], a4, a2, n] - 
    2*S2[a1, a2, a1, a3, SP[a4, a5], n] - 
    2*S2[a1, a2, a1, SP[a3, a4], a5, n] - S2[a1, a2, a3, a1, SP[a4, a5], n] - 
    S2[a1, a2, a3, SP[a1, a4], a5, n] - 2*S2[a1, a2, SP[a1, a4], a3, a5, n] - 
    S2[a1, a2, SP[a3, a4], a1, a5, n] - S2[a1, a3, a1, a2, SP[a4, a5], n] + 
    S2[a2, n]*S2[a1, a3, a1, a4, a5, n] + 
    S2[a2, n]*S2[a1, a3, a1, a5, a4, n] + S2[a1, a3, a1, a5, SP[a2, a4], n] + 
    S2[a1, a3, a1, SP[a2, a4], a5, n] - S2[a1, a3, a1, SP[a4, a5], a2, n] - 
    S2[a1, a3, a2, a1, SP[a4, a5], n] - S2[a1, a3, a2, SP[a1, a4], a5, n] + 
    S2[a2, n]*S2[a1, a3, a4, a1, a5, n] - S2[a1, a3, SP[a1, a4], a2, a5, n] - 
    S2[a1, a3, SP[a1, a4], a5, a2, n] + S2[a1, a3, SP[a2, a4], a1, a5, n] - 
    S2[a1, a4, a1, a2, SP[a3, a5], n] + S2[a2, n]*S2[a1, a4, a1, a3, a5, n] + 
    S2[a1, a4, a1, a5, SP[a2, a3], n] + S2[a1, a4, a1, SP[a2, a3], a5, n] - 
    S2[a1, a4, a1, SP[a3, a5], a2, n] - S2[a1, a4, a2, a1, SP[a3, a5], n] - 
    S2[a1, a4, a2, SP[a1, a3], a5, n] + S2[a2, n]*S2[a1, a4, a3, a1, a5, n] - 
    S2[a1, a4, SP[a1, a3], a2, a5, n] - S2[a1, a4, SP[a1, a3], a5, a2, n] + 
    S2[a1, a4, SP[a2, a3], a1, a5, n] + S2[a1, a5, a1, a4, SP[a2, a3], n] + 
    S2[a1, a5, a1, SP[a3, a4], a2, n] + S2[a1, a5, SP[a1, a3], a4, a2, n] - 
    S2[a1, SP[a1, a3], a4, a2, a5, n] - S2[a1, SP[a1, a3], a4, a5, a2, n] - 
    S2[a1, SP[a1, a3], a5, a4, a2, n] - S2[a1, SP[a1, a4], a2, a3, a5, n] - 
    S2[a1, SP[a1, a4], a3, a2, a5, n] - S2[a1, SP[a1, a4], a3, a5, a2, n] + 
    S2[a1, SP[a2, a4], a1, a3, a5, n] + S2[a1, SP[a2, a4], a3, a1, a5, n] - 
    2*S2[a2, a1, a1, a3, SP[a4, a5], n] - 
    2*S2[a2, a1, a1, SP[a3, a4], a5, n] - S2[a2, a1, a3, a1, SP[a4, a5], n] - 
    S2[a2, a1, a3, SP[a1, a4], a5, n] - 2*S2[a2, a1, SP[a1, a4], a3, a5, n] - 
    S2[a2, a1, SP[a3, a4], a1, a5, n] + S2[a1, n]*S2[a2, a4, a1, a3, a5, n] + 
    S2[a2, a4, a1, a3, SP[a1, a5], n] + S2[a2, a4, a1, SP[a1, a3], a5, n] + 
    S2[a2, a4, SP[a1, a1], a3, a5, n] - S2[a2, SP[a1, a4], a1, a3, a5, n] - 
    S2[a2, SP[a1, a4], a3, a1, a5, n] - S2[a1, n]*S2[a5, a3, a1, a4, a2, n] - 
    S2[a5, a3, a1, a4, SP[a1, a2], n] - S2[a5, a3, a1, SP[a1, a4], a2, n] - 
    S2[a5, a3, SP[a1, a1], a4, a2, n] - S2[a5, SP[a1, a3], a1, a4, a2, n] - 
    S2[SP[a1, a1], a3, a4, a2, a5, n] - S2[SP[a1, a1], a3, a4, a5, a2, n] - 
    S2[SP[a1, a1], a3, a5, a4, a2, n] - S2[SP[a1, a1], a4, a2, a3, a5, n] - 
    S2[SP[a1, a1], a4, a3, a2, a5, n] - S2[SP[a1, a1], a4, a3, a5, a2, n] - 
    S2[SP[a1, a5], a3, a1, a4, a2, n] + S2[a5, a1, a3, a1, a4, a2, n] + 
    2*S2[a5, a3, a1, a1, a4, a2, n] + S2[a5, a3, a1, a4, a1, a2, n] + 
    S2[a5, a3, a1, a4, a2, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a2_, a4_, a1_, a5_, a1_, a3_, n_] :> 
  -(S2[a1, a3, a5, n]*S2[a1, a4, a2, n]) - S2[a1, a4, a2, n]*
     S2[a1, a5, a3, n] - S2[SP[a1, a1], SP[a3, a4], SP[a2, a5], n] - 
    S2[SP[a1, a1], SP[a4, a5], SP[a2, a3], n] - 
    2*S2[a2, a4, n]*S2[a1, a1, a3, a5, n] - 2*S2[a2, a4, n]*
     S2[a1, a1, a5, a3, n] + 2*S2[a1, a1, SP[a2, a3], SP[a4, a5], n] + 
    2*S2[a1, a1, SP[a2, a5], SP[a3, a4], n] + 
    2*S2[a1, a1, SP[a3, a4], SP[a2, a5], n] + 
    2*S2[a1, a1, SP[a4, a5], SP[a2, a3], n] - 
    S2[a2, a4, n]*S2[a1, a3, a1, a5, n] + S2[a1, a3, SP[a1, a2], SP[a4, a5], 
     n] - S2[a1, a3, n]*S2[a1, a4, a2, a5, n] - 
    S2[a1, a3, n]*S2[a1, a4, a5, a2, n] + S2[a1, a4, SP[a1, a2], SP[a3, a5], 
     n] + S2[a1, a4, SP[a1, a5], SP[a2, a3], n] - 
    S2[a1, a3, n]*S2[a1, a5, a4, a2, n] + S2[a1, a5, SP[a1, a4], SP[a2, a3], 
     n] + 2*S2[a1, SP[a1, a2], a3, SP[a4, a5], n] + 
    2*S2[a1, SP[a1, a2], a5, SP[a3, a4], n] + 
    2*S2[a1, SP[a1, a2], SP[a3, a4], a5, n] + 
    2*S2[a1, SP[a1, a2], SP[a4, a5], a3, n] + S2[a1, SP[a1, a3], a4, 
     SP[a2, a5], n] + S2[a1, SP[a1, a3], SP[a4, a5], a2, n] + 
    S2[a1, SP[a1, a4], a2, SP[a3, a5], n] + S2[a1, SP[a1, a4], a3, 
     SP[a2, a5], n] + 2*S2[a1, SP[a1, a4], a5, SP[a2, a3], n] + 
    2*S2[a1, SP[a1, a4], SP[a2, a3], a5, n] + S2[a1, SP[a1, a4], SP[a2, a5], 
     a3, n] + S2[a1, SP[a1, a4], SP[a3, a5], a2, n] + 
    2*S2[a1, SP[a1, a5], a4, SP[a2, a3], n] + 
    2*S2[a1, SP[a1, a5], SP[a3, a4], a2, n] + S2[a1, SP[a2, a3], a1, 
     SP[a4, a5], n] + S2[a1, SP[a2, a3], SP[a1, a4], a5, n] + 
    S2[a1, a3, n]*S2[a2, a4, a1, a5, n] - S2[a2, a4, SP[a1, a1], SP[a3, a5], 
     n] - S2[a2, SP[a1, a4], a1, SP[a3, a5], n] - 
    S2[a2, SP[a1, a4], SP[a1, a3], a5, n] + S2[SP[a1, a1], a3, a4, 
     SP[a2, a5], n] + S2[SP[a1, a1], a3, SP[a4, a5], a2, n] + 
    S2[SP[a1, a1], a4, a2, SP[a3, a5], n] + S2[SP[a1, a1], a4, a3, 
     SP[a2, a5], n] + 2*S2[SP[a1, a1], a4, a5, SP[a2, a3], n] + 
    2*S2[SP[a1, a1], a4, SP[a2, a3], a5, n] + S2[SP[a1, a1], a4, SP[a2, a5], 
     a3, n] + S2[SP[a1, a1], a4, SP[a3, a5], a2, n] + 
    2*S2[SP[a1, a1], a5, a4, SP[a2, a3], n] + 
    2*S2[SP[a1, a1], a5, SP[a3, a4], a2, n] + 
    2*S2[SP[a1, a1], SP[a3, a4], a2, a5, n] + 
    2*S2[SP[a1, a1], SP[a3, a4], a5, a2, n] + S2[SP[a1, a1], SP[a3, a5], a4, 
     a2, n] + S2[SP[a1, a1], SP[a4, a5], a2, a3, n] + 
    S2[SP[a1, a1], SP[a4, a5], a3, a2, n] + 
    2*S2[SP[a1, a2], a1, a3, SP[a4, a5], n] + 
    2*S2[SP[a1, a2], a1, a5, SP[a3, a4], n] + 
    2*S2[SP[a1, a2], a1, SP[a3, a4], a5, n] + 
    2*S2[SP[a1, a2], a1, SP[a4, a5], a3, n] + S2[SP[a1, a2], a3, a1, 
     SP[a4, a5], n] + S2[SP[a1, a2], a3, SP[a1, a4], a5, n] - 
    S2[SP[a1, a2], a4, a1, SP[a3, a5], n] - S2[SP[a1, a2], a4, SP[a1, a3], 
     a5, n] + 2*S2[SP[a1, a2], SP[a1, a4], a3, a5, n] + 
    2*S2[SP[a1, a2], SP[a1, a4], a5, a3, n] - 
    2*S2[a1, a1, a2, a3, SP[a4, a5], n] - 
    2*S2[a1, a1, a2, a5, SP[a3, a4], n] - 
    2*S2[a1, a1, a2, SP[a3, a4], a5, n] - 
    2*S2[a1, a1, a2, SP[a4, a5], a3, n] - 
    2*S2[a1, a1, a3, a2, SP[a4, a5], n] + 
    2*S2[a5, n]*S2[a1, a1, a3, a4, a2, n] + 
    2*S2[a2, n]*S2[a1, a1, a3, a4, a5, n] + 
    2*S2[a1, a1, a3, a4, SP[a2, a5], n] + 
    2*S2[a2, n]*S2[a1, a1, a3, a5, a4, n] + 
    2*S2[a1, a1, a3, a5, SP[a2, a4], n] + 
    2*S2[a1, a1, a3, SP[a2, a4], a5, n] + 
    2*S2[a5, n]*S2[a1, a1, a4, a2, a3, n] + 
    2*S2[a5, n]*S2[a1, a1, a4, a3, a2, n] + 
    2*S2[a2, n]*S2[a1, a1, a4, a3, a5, n] + 
    2*S2[a1, a1, a4, a3, SP[a2, a5], n] + 
    2*S2[a2, n]*S2[a1, a1, a4, a5, a3, n] - 
    2*S2[a1, a1, a4, a5, SP[a2, a3], n] - 
    2*S2[a1, a1, a4, SP[a2, a3], a5, n] + 
    2*S2[a1, a1, a4, SP[a2, a5], a3, n] - 
    2*S2[a1, a1, a5, a2, SP[a3, a4], n] + 
    2*S2[a2, n]*S2[a1, a1, a5, a3, a4, n] + 
    2*S2[a1, a1, a5, a3, SP[a2, a4], n] + 
    2*S2[a2, n]*S2[a1, a1, a5, a4, a3, n] - 
    2*S2[a1, a1, a5, a4, SP[a2, a3], n] + 
    2*S2[a1, a1, a5, SP[a2, a4], a3, n] - 
    4*S2[a1, a1, a5, SP[a3, a4], a2, n] + 
    2*S2[a1, a1, SP[a2, a4], a3, a5, n] + 
    2*S2[a1, a1, SP[a2, a4], a5, a3, n] - 
    4*S2[a1, a1, SP[a3, a4], a2, a5, n] - 
    4*S2[a1, a1, SP[a3, a4], a5, a2, n] - 
    2*S2[a1, a2, a1, a3, SP[a4, a5], n] - 
    2*S2[a1, a2, a1, a5, SP[a3, a4], n] - 
    2*S2[a1, a2, a1, SP[a3, a4], a5, n] - 
    2*S2[a1, a2, a1, SP[a4, a5], a3, n] - S2[a1, a2, a3, a1, SP[a4, a5], n] - 
    S2[a1, a2, a3, SP[a1, a4], a5, n] + S2[a1, a2, a4, a1, SP[a3, a5], n] + 
    S2[a1, a2, a4, SP[a1, a3], a5, n] - 2*S2[a1, a2, SP[a1, a4], a3, a5, n] - 
    2*S2[a1, a2, SP[a1, a4], a5, a3, n] - S2[a1, a3, a1, a2, SP[a4, a5], n] + 
    S2[a5, n]*S2[a1, a3, a1, a4, a2, n] + 
    S2[a2, n]*S2[a1, a3, a1, a4, a5, n] + S2[a1, a3, a1, a4, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a3, a1, a5, a4, n] + S2[a1, a3, a1, a5, SP[a2, a4], n] + 
    S2[a1, a3, a1, SP[a2, a4], a5, n] - S2[a1, a3, a2, a1, SP[a4, a5], n] - 
    S2[a1, a3, a2, SP[a1, a4], a5, n] + S2[a5, n]*S2[a1, a4, a1, a2, a3, n] + 
    S2[a5, n]*S2[a1, a4, a1, a3, a2, n] + 
    S2[a2, n]*S2[a1, a4, a1, a3, a5, n] + S2[a1, a4, a1, a3, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a4, a1, a5, a3, n] - S2[a1, a4, a1, a5, SP[a2, a3], n] - 
    S2[a1, a4, a1, SP[a2, a3], a5, n] + S2[a1, a4, a1, SP[a2, a5], a3, n] + 
    S2[a5, n]*S2[a1, a4, a2, a1, a3, n] - S2[a1, a4, a5, a1, SP[a2, a3], n] - 
    S2[a1, a4, a5, SP[a1, a2], a3, n] - S2[a1, a4, SP[a1, a2], a3, a5, n] - 
    S2[a1, a4, SP[a1, a2], a5, a3, n] + S2[a1, a4, SP[a2, a5], a1, a3, n] - 
    2*S2[a1, a5, a1, a4, SP[a2, a3], n] - 
    2*S2[a1, a5, a1, SP[a3, a4], a2, n] - S2[a1, a5, a4, a1, SP[a2, a3], n] - 
    S2[a1, a5, a4, SP[a1, a2], a3, n] - S2[a1, a5, SP[a1, a3], a4, a2, n] - 
    S2[a1, a5, SP[a1, a4], a2, a3, n] - S2[a1, a5, SP[a1, a4], a3, a2, n] - 
    2*S2[a1, SP[a1, a3], a4, a2, a5, n] - 
    2*S2[a1, SP[a1, a3], a4, a5, a2, n] - 
    2*S2[a1, SP[a1, a3], a5, a4, a2, n] - 
    2*S2[a1, SP[a1, a4], a2, a3, a5, n] - 
    2*S2[a1, SP[a1, a4], a2, a5, a3, n] - 
    2*S2[a1, SP[a1, a4], a3, a2, a5, n] - 
    2*S2[a1, SP[a1, a4], a3, a5, a2, n] - 
    2*S2[a1, SP[a1, a4], a5, a2, a3, n] - 
    2*S2[a1, SP[a1, a4], a5, a3, a2, n] + S2[a1, SP[a2, a4], a1, a3, a5, n] + 
    S2[a1, SP[a2, a4], a1, a5, a3, n] + S2[a1, SP[a3, a5], a1, a4, a2, n] + 
    S2[a1, SP[a4, a5], a1, a2, a3, n] + S2[a1, SP[a4, a5], a1, a3, a2, n] + 
    S2[a1, SP[a4, a5], a2, a1, a3, n] - 2*S2[a2, a1, a1, a3, SP[a4, a5], n] - 
    2*S2[a2, a1, a1, a5, SP[a3, a4], n] - 
    2*S2[a2, a1, a1, SP[a3, a4], a5, n] - 
    2*S2[a2, a1, a1, SP[a4, a5], a3, n] - S2[a2, a1, a3, a1, SP[a4, a5], n] - 
    S2[a2, a1, a3, SP[a1, a4], a5, n] + S2[a2, a1, a4, a1, SP[a3, a5], n] + 
    S2[a2, a1, a4, SP[a1, a3], a5, n] - 2*S2[a2, a1, SP[a1, a4], a3, a5, n] - 
    2*S2[a2, a1, SP[a1, a4], a5, a3, n] + 
    2*S2[a2, a4, a1, a1, SP[a3, a5], n] + S2[a2, a4, a1, SP[a1, a3], a5, n] + 
    S2[a2, a4, a1, SP[a1, a5], a3, n] + S2[a2, a4, SP[a1, a1], a3, a5, n] + 
    S2[a2, a4, SP[a1, a1], a5, a3, n] - S2[a2, SP[a1, a4], a1, a3, a5, n] - 
    S2[a2, SP[a1, a4], a1, a5, a3, n] - 2*S2[SP[a1, a1], a3, a4, a2, a5, n] - 
    2*S2[SP[a1, a1], a3, a4, a5, a2, n] - 
    2*S2[SP[a1, a1], a3, a5, a4, a2, n] - 
    2*S2[SP[a1, a1], a4, a2, a3, a5, n] - 
    2*S2[SP[a1, a1], a4, a2, a5, a3, n] - 
    2*S2[SP[a1, a1], a4, a3, a2, a5, n] - 
    2*S2[SP[a1, a1], a4, a3, a5, a2, n] - 
    2*S2[SP[a1, a1], a4, a5, a2, a3, n] - 
    2*S2[SP[a1, a1], a4, a5, a3, a2, n] - 
    2*S2[SP[a1, a1], a5, a3, a4, a2, n] - 
    2*S2[SP[a1, a1], a5, a4, a2, a3, n] - 
    2*S2[SP[a1, a1], a5, a4, a3, a2, n] + 
    2*S2[SP[a1, a5], a1, a3, a4, a2, n] + 
    2*S2[SP[a1, a5], a1, a4, a2, a3, n] + 
    2*S2[SP[a1, a5], a1, a4, a3, a2, n] + S2[SP[a1, a5], a3, a1, a4, a2, n] + 
    S2[SP[a1, a5], a4, a1, a2, a3, n] + S2[SP[a1, a5], a4, a1, a3, a2, n] + 
    S2[SP[a1, a5], a4, a2, a1, a3, n] - 2*S2[a5, a1, a1, a3, a4, a2, n] - 
    2*S2[a5, a1, a1, a4, a2, a3, n] - 2*S2[a5, a1, a1, a4, a3, a2, n] - 
    S2[a5, a1, a3, a1, a4, a2, n] - S2[a5, a1, a4, a1, a2, a3, n] - 
    S2[a5, a1, a4, a1, a3, a2, n] - S2[a5, a1, a4, a2, a1, a3, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a2_, a4_, a1_, a5_, a3_, a1_, n_] :> 
  S2[a1, a3, a5, n]*S2[a1, a4, a2, n] + S2[SP[a1, a1], SP[a3, a4], 
     SP[a2, a5], n] + 2*S2[a2, a4, n]*S2[a1, a1, a3, a5, n] - 
    2*S2[a1, a1, SP[a2, a3], SP[a4, a5], n] - 
    2*S2[a1, a1, SP[a3, a4], SP[a2, a5], n] + 
    S2[a2, a4, n]*S2[a1, a3, a1, a5, n] - S2[a1, a3, SP[a1, a2], SP[a4, a5], 
     n] + S2[a1, a3, n]*S2[a1, a4, a2, a5, n] + 
    S2[a1, a3, n]*S2[a1, a4, a5, a2, n] - S2[a1, a4, SP[a1, a2], SP[a3, a5], 
     n] - S2[a1, a4, SP[a1, a5], SP[a2, a3], n] + 
    S2[a1, a3, n]*S2[a1, a5, a4, a2, n] - S2[a1, a5, SP[a1, a4], SP[a2, a3], 
     n] - 2*S2[a1, SP[a1, a2], a3, SP[a4, a5], n] - 
    2*S2[a1, SP[a1, a2], SP[a3, a4], a5, n] - S2[a1, SP[a1, a3], a4, 
     SP[a2, a5], n] - S2[a1, SP[a1, a3], SP[a4, a5], a2, n] - 
    S2[a1, SP[a1, a4], a2, SP[a3, a5], n] - S2[a1, SP[a1, a4], a3, 
     SP[a2, a5], n] - S2[a1, SP[a1, a4], a5, SP[a2, a3], n] - 
    2*S2[a1, SP[a1, a4], SP[a2, a3], a5, n] - S2[a1, SP[a1, a4], SP[a3, a5], 
     a2, n] - S2[a1, SP[a1, a5], a4, SP[a2, a3], n] - 
    S2[a1, SP[a1, a5], SP[a3, a4], a2, n] - S2[a1, SP[a2, a3], a1, 
     SP[a4, a5], n] - S2[a1, SP[a2, a3], SP[a1, a4], a5, n] - 
    S2[a1, a3, n]*S2[a2, a4, a1, a5, n] + S2[a2, a4, SP[a1, a1], SP[a3, a5], 
     n] + S2[a2, SP[a1, a4], a1, SP[a3, a5], n] + 
    S2[a2, SP[a1, a4], SP[a1, a3], a5, n] - S2[SP[a1, a1], a3, a4, 
     SP[a2, a5], n] - S2[SP[a1, a1], a3, SP[a4, a5], a2, n] - 
    S2[SP[a1, a1], a4, a2, SP[a3, a5], n] - S2[SP[a1, a1], a4, a3, 
     SP[a2, a5], n] - S2[SP[a1, a1], a4, a5, SP[a2, a3], n] - 
    2*S2[SP[a1, a1], a4, SP[a2, a3], a5, n] - S2[SP[a1, a1], a4, SP[a3, a5], 
     a2, n] - S2[SP[a1, a1], a5, a4, SP[a2, a3], n] - 
    S2[SP[a1, a1], a5, SP[a3, a4], a2, n] - 
    2*S2[SP[a1, a1], SP[a3, a4], a2, a5, n] - 
    2*S2[SP[a1, a1], SP[a3, a4], a5, a2, n] - S2[SP[a1, a1], SP[a3, a5], a4, 
     a2, n] - 2*S2[SP[a1, a2], a1, a3, SP[a4, a5], n] - 
    2*S2[SP[a1, a2], a1, SP[a3, a4], a5, n] - S2[SP[a1, a2], a3, a1, 
     SP[a4, a5], n] - S2[SP[a1, a2], a3, SP[a1, a4], a5, n] + 
    S2[SP[a1, a2], a4, a1, SP[a3, a5], n] + S2[SP[a1, a2], a4, SP[a1, a3], 
     a5, n] - 2*S2[SP[a1, a2], SP[a1, a4], a3, a5, n] + 
    2*S2[a1, a1, a2, a3, SP[a4, a5], n] + 
    2*S2[a1, a1, a2, SP[a3, a4], a5, n] + 
    2*S2[a1, a1, a3, a2, SP[a4, a5], n] - 
    2*S2[a5, n]*S2[a1, a1, a3, a4, a2, n] - 
    2*S2[a2, n]*S2[a1, a1, a3, a4, a5, n] - 
    2*S2[a1, a1, a3, a4, SP[a2, a5], n] - 
    2*S2[a2, n]*S2[a1, a1, a3, a5, a4, n] - 
    2*S2[a1, a1, a3, a5, SP[a2, a4], n] - 
    2*S2[a1, a1, a3, SP[a2, a4], a5, n] - 
    2*S2[a5, n]*S2[a1, a1, a4, a2, a3, n] - 
    2*S2[a5, n]*S2[a1, a1, a4, a3, a2, n] - 
    2*S2[a2, n]*S2[a1, a1, a4, a3, a5, n] - 
    2*S2[a1, a1, a4, a3, SP[a2, a5], n] + 
    2*S2[a1, a1, a4, a5, SP[a2, a3], n] + 
    2*S2[a1, a1, a4, SP[a2, a3], a5, n] - 
    2*S2[a1, a1, a4, SP[a2, a5], a3, n] + 
    2*S2[a1, a1, a5, a4, SP[a2, a3], n] + 
    2*S2[a1, a1, a5, SP[a3, a4], a2, n] - 
    2*S2[a1, a1, SP[a2, a4], a3, a5, n] + 
    4*S2[a1, a1, SP[a3, a4], a2, a5, n] + 
    4*S2[a1, a1, SP[a3, a4], a5, a2, n] - 
    2*S2[a1, a1, SP[a4, a5], a2, a3, n] - 
    2*S2[a1, a1, SP[a4, a5], a3, a2, n] + 
    2*S2[a1, a2, a1, a3, SP[a4, a5], n] + 
    2*S2[a1, a2, a1, SP[a3, a4], a5, n] + S2[a1, a2, a3, a1, SP[a4, a5], n] + 
    S2[a1, a2, a3, SP[a1, a4], a5, n] - S2[a1, a2, a4, a1, SP[a3, a5], n] - 
    S2[a1, a2, a4, SP[a1, a3], a5, n] + 2*S2[a1, a2, SP[a1, a4], a3, a5, n] + 
    S2[a1, a3, a1, a2, SP[a4, a5], n] - S2[a5, n]*S2[a1, a3, a1, a4, a2, n] - 
    S2[a2, n]*S2[a1, a3, a1, a4, a5, n] - S2[a1, a3, a1, a4, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a3, a1, a5, a4, n] - S2[a1, a3, a1, a5, SP[a2, a4], n] - 
    S2[a1, a3, a1, SP[a2, a4], a5, n] + S2[a1, a3, a2, a1, SP[a4, a5], n] + 
    S2[a1, a3, a2, SP[a1, a4], a5, n] - S2[a5, n]*S2[a1, a4, a1, a2, a3, n] - 
    S2[a5, n]*S2[a1, a4, a1, a3, a2, n] - 
    S2[a2, n]*S2[a1, a4, a1, a3, a5, n] - S2[a1, a4, a1, a3, SP[a2, a5], n] + 
    S2[a1, a4, a1, a5, SP[a2, a3], n] + S2[a1, a4, a1, SP[a2, a3], a5, n] - 
    S2[a1, a4, a1, SP[a2, a5], a3, n] - S2[a5, n]*S2[a1, a4, a2, a1, a3, n] + 
    S2[a1, a4, a5, a1, SP[a2, a3], n] + S2[a1, a4, a5, SP[a1, a2], a3, n] + 
    S2[a1, a4, SP[a1, a2], a3, a5, n] + S2[a1, a4, SP[a1, a2], a5, a3, n] - 
    S2[a1, a4, SP[a2, a5], a1, a3, n] + S2[a1, a5, a1, a4, SP[a2, a3], n] + 
    S2[a1, a5, a1, SP[a3, a4], a2, n] + S2[a1, a5, a4, a1, SP[a2, a3], n] + 
    S2[a1, a5, a4, SP[a1, a2], a3, n] + S2[a1, a5, SP[a1, a4], a2, a3, n] + 
    S2[a1, a5, SP[a1, a4], a3, a2, n] + 2*S2[a1, SP[a1, a3], a4, a2, a5, n] + 
    2*S2[a1, SP[a1, a3], a4, a5, a2, n] + 
    2*S2[a1, SP[a1, a3], a5, a4, a2, n] + 
    2*S2[a1, SP[a1, a4], a2, a3, a5, n] + S2[a1, SP[a1, a4], a2, a5, a3, n] + 
    2*S2[a1, SP[a1, a4], a3, a2, a5, n] + 
    2*S2[a1, SP[a1, a4], a3, a5, a2, n] + S2[a1, SP[a1, a4], a5, a2, a3, n] + 
    S2[a1, SP[a1, a4], a5, a3, a2, n] - S2[a1, SP[a1, a5], a3, a4, a2, n] - 
    S2[a1, SP[a1, a5], a4, a2, a3, n] - S2[a1, SP[a1, a5], a4, a3, a2, n] - 
    S2[a1, SP[a2, a4], a1, a3, a5, n] - S2[a1, SP[a3, a5], a1, a4, a2, n] - 
    S2[a1, SP[a4, a5], a1, a2, a3, n] - S2[a1, SP[a4, a5], a1, a3, a2, n] - 
    S2[a1, SP[a4, a5], a2, a1, a3, n] + 2*S2[a2, a1, a1, a3, SP[a4, a5], n] + 
    2*S2[a2, a1, a1, SP[a3, a4], a5, n] + S2[a2, a1, a3, a1, SP[a4, a5], n] + 
    S2[a2, a1, a3, SP[a1, a4], a5, n] - S2[a2, a1, a4, a1, SP[a3, a5], n] - 
    S2[a2, a1, a4, SP[a1, a3], a5, n] + 2*S2[a2, a1, SP[a1, a4], a3, a5, n] - 
    2*S2[a2, a4, a1, a1, SP[a3, a5], n] + 
    S2[a1, n]*S2[a2, a4, a1, a5, a3, n] + S2[a2, a4, a1, a5, SP[a1, a3], n] - 
    S2[a2, a4, a1, SP[a1, a3], a5, n] - S2[a2, a4, SP[a1, a1], a3, a5, n] + 
    S2[a2, SP[a1, a4], a1, a3, a5, n] + S2[a1, n]*S2[a5, a1, a3, a4, a2, n] + 
    S2[a5, a1, a3, a4, SP[a1, a2], n] + S2[a5, a1, a3, SP[a1, a4], a2, n] + 
    S2[a1, n]*S2[a5, a1, a4, a2, a3, n] + S2[a5, a1, a4, a2, SP[a1, a3], n] + 
    S2[a1, n]*S2[a5, a1, a4, a3, a2, n] + S2[a5, a1, a4, a3, SP[a1, a2], n] + 
    S2[a5, a1, a4, SP[a1, a2], a3, n] + S2[a5, a1, a4, SP[a1, a3], a2, n] + 
    S2[a5, a1, SP[a1, a3], a4, a2, n] + S2[a5, a1, SP[a1, a4], a2, a3, n] + 
    S2[a5, a1, SP[a1, a4], a3, a2, n] + S2[a1, n]*S2[a5, a3, a1, a4, a2, n] + 
    S2[a5, a3, a1, a4, SP[a1, a2], n] + S2[a5, a3, a1, SP[a1, a4], a2, n] + 
    S2[a5, a3, SP[a1, a1], a4, a2, n] + S2[a5, SP[a1, a1], a3, a4, a2, n] + 
    S2[a5, SP[a1, a1], a4, a2, a3, n] + S2[a5, SP[a1, a1], a4, a3, a2, n] + 
    S2[a5, SP[a1, a3], a1, a4, a2, n] + 2*S2[SP[a1, a1], a3, a4, a2, a5, n] + 
    2*S2[SP[a1, a1], a3, a4, a5, a2, n] + 
    2*S2[SP[a1, a1], a3, a5, a4, a2, n] + 
    2*S2[SP[a1, a1], a4, a2, a3, a5, n] + S2[SP[a1, a1], a4, a2, a5, a3, n] + 
    2*S2[SP[a1, a1], a4, a3, a2, a5, n] + 
    2*S2[SP[a1, a1], a4, a3, a5, a2, n] + S2[SP[a1, a1], a4, a5, a2, a3, n] + 
    S2[SP[a1, a1], a4, a5, a3, a2, n] + S2[SP[a1, a1], a5, a3, a4, a2, n] + 
    S2[SP[a1, a1], a5, a4, a2, a3, n] + S2[SP[a1, a1], a5, a4, a3, a2, n] - 
    S2[SP[a1, a5], a1, a3, a4, a2, n] - S2[SP[a1, a5], a1, a4, a2, a3, n] - 
    S2[SP[a1, a5], a1, a4, a3, a2, n] - S2[SP[a1, a5], a4, a1, a2, a3, n] - 
    S2[SP[a1, a5], a4, a1, a3, a2, n] - S2[SP[a1, a5], a4, a2, a1, a3, n] - 
    S2[a5, a1, a3, a1, a4, a2, n] - S2[a5, a1, a3, a4, a1, a2, n] - 
    S2[a5, a1, a3, a4, a2, a1, n] - S2[a5, a1, a4, a2, a3, a1, n] - 
    S2[a5, a1, a4, a3, a1, a2, n] - S2[a5, a1, a4, a3, a2, a1, n] - 
    2*S2[a5, a3, a1, a1, a4, a2, n] - S2[a5, a3, a1, a4, a1, a2, n] - 
    S2[a5, a3, a1, a4, a2, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a2_, a4_, a3_, a1_, a1_, a5_, n_] :> 
  S2[a1, a1, a5, n]*S2[a2, a4, a3, n] + S2[SP[a1, a2], SP[a1, a4], 
     SP[a3, a5], n] - S2[a2, a4, n]*S2[a1, a1, a3, a5, n] - 
    S2[a2, a4, n]*S2[a1, a1, a5, a3, n] + S2[a1, a1, SP[a2, a3], SP[a4, a5], 
     n] + S2[a1, a1, SP[a2, a5], SP[a3, a4], n] - S2[a1, a2, SP[a1, a4], 
     SP[a3, a5], n] - S2[a2, a4, n]*S2[a1, a3, a1, a5, n] - 
    S2[a1, a5, n]*S2[a1, a3, a4, a2, n] + S2[a1, a3, SP[a1, a2], SP[a4, a5], 
     n] + S2[a1, a3, SP[a1, a4], SP[a2, a5], n] + S2[a1, SP[a1, a2], a3, 
     SP[a4, a5], n] - S2[a1, SP[a1, a2], a4, SP[a3, a5], n] + 
    S2[a1, SP[a1, a2], a5, SP[a3, a4], n] + S2[a1, SP[a1, a2], SP[a3, a4], 
     a5, n] + S2[a1, SP[a1, a3], a4, SP[a2, a5], n] + 
    S2[a1, SP[a1, a3], SP[a4, a5], a2, n] + S2[a1, SP[a2, a3], a1, 
     SP[a4, a5], n] + S2[a1, SP[a2, a3], SP[a1, a4], a5, n] - 
    S2[a2, a1, SP[a1, a4], SP[a3, a5], n] - S2[a2, SP[a1, a4], a1, 
     SP[a3, a5], n] - S2[a2, SP[a1, a4], SP[a1, a3], a5, n] + 
    S2[SP[a1, a1], a3, a4, SP[a2, a5], n] + S2[SP[a1, a1], a3, SP[a4, a5], 
     a2, n] + S2[SP[a1, a1], SP[a3, a5], a4, a2, n] + 
    S2[SP[a1, a2], a1, a3, SP[a4, a5], n] - S2[SP[a1, a2], a1, a4, 
     SP[a3, a5], n] + S2[SP[a1, a2], a1, a5, SP[a3, a4], n] + 
    S2[SP[a1, a2], a1, SP[a3, a4], a5, n] + S2[SP[a1, a2], a3, a1, 
     SP[a4, a5], n] + S2[SP[a1, a2], a3, SP[a1, a4], a5, n] - 
    S2[SP[a1, a2], a4, a1, SP[a3, a5], n] - S2[SP[a1, a2], a4, SP[a1, a3], 
     a5, n] + S2[SP[a1, a2], SP[a3, a4], a1, a5, n] - 
    S2[a1, a1, a2, a3, SP[a4, a5], n] + S2[a1, a1, a2, a4, SP[a3, a5], n] - 
    S2[a1, a1, a2, a5, SP[a3, a4], n] - S2[a1, a1, a2, SP[a3, a4], a5, n] - 
    S2[a1, a1, a3, a2, SP[a4, a5], n] + S2[a5, n]*S2[a1, a1, a3, a4, a2, n] + 
    S2[a2, n]*S2[a1, a1, a3, a4, a5, n] + 
    S2[a2, n]*S2[a1, a1, a3, a5, a4, n] + S2[a1, a1, a3, a5, SP[a2, a4], n] + 
    S2[a1, a1, a3, SP[a2, a4], a5, n] - S2[a1, a1, a3, SP[a4, a5], a2, n] - 
    S2[a1, a1, a5, a2, SP[a3, a4], n] + S2[a2, n]*S2[a1, a1, a5, a3, a4, n] + 
    S2[a1, a1, a5, a3, SP[a2, a4], n] - S2[a1, a1, SP[a3, a5], a4, a2, n] - 
    S2[a1, a2, a1, a3, SP[a4, a5], n] + S2[a1, a2, a1, a4, SP[a3, a5], n] - 
    S2[a1, a2, a1, a5, SP[a3, a4], n] - S2[a1, a2, a1, SP[a3, a4], a5, n] - 
    S2[a1, a2, a3, a1, SP[a4, a5], n] - S2[a1, a2, a3, SP[a1, a4], a5, n] + 
    S2[a1, a2, a4, a1, SP[a3, a5], n] + S2[a1, a2, a4, SP[a1, a3], a5, n] - 
    S2[a1, a2, SP[a3, a4], a1, a5, n] - S2[a1, a3, a1, a2, SP[a4, a5], n] + 
    S2[a2, n]*S2[a1, a3, a1, a4, a5, n] + 
    S2[a2, n]*S2[a1, a3, a1, a5, a4, n] + S2[a1, a3, a1, a5, SP[a2, a4], n] + 
    S2[a1, a3, a1, SP[a2, a4], a5, n] - S2[a1, a3, a1, SP[a4, a5], a2, n] - 
    S2[a1, a3, a2, a1, SP[a4, a5], n] - S2[a1, a3, a2, SP[a1, a4], a5, n] + 
    S2[a2, n]*S2[a1, a3, a4, a1, a5, n] - S2[a1, a3, SP[a1, a4], a2, a5, n] - 
    S2[a1, a3, SP[a1, a4], a5, a2, n] + S2[a1, a3, SP[a2, a4], a1, a5, n] - 
    S2[a1, SP[a1, a3], a4, a2, a5, n] - S2[a1, SP[a1, a3], a4, a5, a2, n] - 
    S2[a1, SP[a1, a3], a5, a4, a2, n] - S2[a2, a1, a1, a3, SP[a4, a5], n] + 
    S2[a2, a1, a1, a4, SP[a3, a5], n] - S2[a2, a1, a1, a5, SP[a3, a4], n] - 
    S2[a2, a1, a1, SP[a3, a4], a5, n] - S2[a2, a1, a3, a1, SP[a4, a5], n] - 
    S2[a2, a1, a3, SP[a1, a4], a5, n] + S2[a2, a1, a4, a1, SP[a3, a5], n] + 
    S2[a2, a1, a4, SP[a1, a3], a5, n] - S2[a2, a1, SP[a3, a4], a1, a5, n] + 
    S2[a2, a4, a1, a1, SP[a3, a5], n] + S2[a2, a4, a1, SP[a1, a3], a5, n] + 
    S2[a2, a4, SP[a1, a3], a1, a5, n] - S2[SP[a1, a1], a3, a4, a2, a5, n] - 
    S2[SP[a1, a1], a3, a4, a5, a2, n] - S2[SP[a1, a1], a3, a5, a4, a2, n] - 
    S2[SP[a1, a1], a5, a3, a4, a2, n] + S2[SP[a1, a5], a1, a3, a4, a2, n] - 
    S2[a5, a1, a1, a3, a4, a2, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a2_, a4_, a3_, a1_, a5_, a1_, n_] :> 
  -2*S2[a1, a1, a5, n]*S2[a2, a4, a3, n] - 
    2*S2[SP[a1, a2], SP[a1, a4], SP[a3, a5], n] + 
    2*S2[a2, a4, n]*S2[a1, a1, a3, a5, n] + 2*S2[a2, a4, n]*
     S2[a1, a1, a5, a3, n] - 2*S2[a1, a1, SP[a2, a3], SP[a4, a5], n] - 
    2*S2[a1, a1, SP[a2, a5], SP[a3, a4], n] + 
    2*S2[a1, a2, SP[a1, a4], SP[a3, a5], n] + 
    S2[a2, a4, n]*S2[a1, a3, a1, a5, n] + S2[a1, a5, n]*
     S2[a1, a3, a4, a2, n] - S2[a1, a3, SP[a1, a2], SP[a4, a5], n] - 
    S2[a1, a3, SP[a1, a4], SP[a2, a5], n] - 
    2*S2[a1, SP[a1, a2], a3, SP[a4, a5], n] + 
    2*S2[a1, SP[a1, a2], a4, SP[a3, a5], n] - 
    2*S2[a1, SP[a1, a2], a5, SP[a3, a4], n] - 
    2*S2[a1, SP[a1, a2], SP[a3, a4], a5, n] - S2[a1, SP[a1, a3], a4, 
     SP[a2, a5], n] - S2[a1, SP[a1, a3], SP[a4, a5], a2, n] - 
    S2[a1, SP[a2, a3], a1, SP[a4, a5], n] - S2[a1, SP[a2, a3], SP[a1, a4], 
     a5, n] + 2*S2[a2, a1, SP[a1, a4], SP[a3, a5], n] + 
    2*S2[a2, SP[a1, a4], a1, SP[a3, a5], n] + 
    2*S2[a2, SP[a1, a4], SP[a1, a3], a5, n] - S2[SP[a1, a1], a3, a4, 
     SP[a2, a5], n] - S2[SP[a1, a1], a3, SP[a4, a5], a2, n] - 
    S2[SP[a1, a1], SP[a3, a5], a4, a2, n] - 
    2*S2[SP[a1, a2], a1, a3, SP[a4, a5], n] + 
    2*S2[SP[a1, a2], a1, a4, SP[a3, a5], n] - 
    2*S2[SP[a1, a2], a1, a5, SP[a3, a4], n] - 
    2*S2[SP[a1, a2], a1, SP[a3, a4], a5, n] - S2[SP[a1, a2], a3, a1, 
     SP[a4, a5], n] - S2[SP[a1, a2], a3, SP[a1, a4], a5, n] + 
    2*S2[SP[a1, a2], a4, a1, SP[a3, a5], n] + 
    2*S2[SP[a1, a2], a4, SP[a1, a3], a5, n] - S2[SP[a1, a2], SP[a3, a4], a1, 
     a5, n] + 2*S2[a1, a1, a2, a3, SP[a4, a5], n] - 
    2*S2[a1, a1, a2, a4, SP[a3, a5], n] + 
    2*S2[a1, a1, a2, a5, SP[a3, a4], n] + 
    2*S2[a1, a1, a2, SP[a3, a4], a5, n] + 
    2*S2[a1, a1, a3, a2, SP[a4, a5], n] - 
    2*S2[a2, n]*S2[a1, a1, a3, a4, a5, n] - 
    2*S2[a2, n]*S2[a1, a1, a3, a5, a4, n] - 
    2*S2[a1, a1, a3, a5, SP[a2, a4], n] - 
    2*S2[a1, a1, a3, SP[a2, a4], a5, n] + 
    2*S2[a1, a1, a3, SP[a4, a5], a2, n] + 
    2*S2[a1, a1, a5, a2, SP[a3, a4], n] - 
    2*S2[a2, n]*S2[a1, a1, a5, a3, a4, n] - 
    2*S2[a1, a1, a5, a3, SP[a2, a4], n] + 
    2*S2[a1, a1, SP[a3, a5], a4, a2, n] + 
    2*S2[a1, a2, a1, a3, SP[a4, a5], n] - 
    2*S2[a1, a2, a1, a4, SP[a3, a5], n] + 
    2*S2[a1, a2, a1, a5, SP[a3, a4], n] + 
    2*S2[a1, a2, a1, SP[a3, a4], a5, n] + S2[a1, a2, a3, a1, SP[a4, a5], n] + 
    S2[a1, a2, a3, SP[a1, a4], a5, n] - 2*S2[a1, a2, a4, a1, SP[a3, a5], n] - 
    2*S2[a1, a2, a4, SP[a1, a3], a5, n] + S2[a1, a2, SP[a3, a4], a1, a5, n] + 
    S2[a1, a3, a1, a2, SP[a4, a5], n] - S2[a2, n]*S2[a1, a3, a1, a4, a5, n] - 
    S2[a2, n]*S2[a1, a3, a1, a5, a4, n] - S2[a1, a3, a1, a5, SP[a2, a4], n] - 
    S2[a1, a3, a1, SP[a2, a4], a5, n] + S2[a1, a3, a1, SP[a4, a5], a2, n] + 
    S2[a1, a3, a2, a1, SP[a4, a5], n] + S2[a1, a3, a2, SP[a1, a4], a5, n] - 
    S2[a2, n]*S2[a1, a3, a4, a1, a5, n] + S2[a1, a3, SP[a1, a4], a2, a5, n] + 
    S2[a1, a3, SP[a1, a4], a5, a2, n] - S2[a1, a3, SP[a2, a4], a1, a5, n] + 
    S2[a1, SP[a1, a3], a4, a2, a5, n] + S2[a1, SP[a1, a3], a4, a5, a2, n] + 
    S2[a1, SP[a1, a3], a5, a4, a2, n] + S2[a1, SP[a1, a5], a3, a4, a2, n] + 
    2*S2[a2, a1, a1, a3, SP[a4, a5], n] - 
    2*S2[a2, a1, a1, a4, SP[a3, a5], n] + 
    2*S2[a2, a1, a1, a5, SP[a3, a4], n] + 
    2*S2[a2, a1, a1, SP[a3, a4], a5, n] + S2[a2, a1, a3, a1, SP[a4, a5], n] + 
    S2[a2, a1, a3, SP[a1, a4], a5, n] - 2*S2[a2, a1, a4, a1, SP[a3, a5], n] - 
    2*S2[a2, a1, a4, SP[a1, a3], a5, n] + S2[a2, a1, SP[a3, a4], a1, a5, n] - 
    2*S2[a2, a4, a1, a1, SP[a3, a5], n] - 
    2*S2[a2, a4, a1, SP[a1, a3], a5, n] + 
    S2[a1, n]*S2[a2, a4, a3, a1, a5, n] + S2[a2, a4, a3, a1, SP[a1, a5], n] + 
    S2[a2, a4, a3, SP[a1, a1], a5, n] - S2[a2, a4, SP[a1, a3], a1, a5, n] - 
    S2[a1, n]*S2[a5, a1, a3, a4, a2, n] - S2[a5, a1, a3, a4, SP[a1, a2], n] - 
    S2[a5, a1, a3, SP[a1, a4], a2, n] - S2[a5, a1, SP[a1, a3], a4, a2, n] - 
    S2[a5, SP[a1, a1], a3, a4, a2, n] + S2[SP[a1, a1], a3, a4, a2, a5, n] + 
    S2[SP[a1, a1], a3, a4, a5, a2, n] + S2[SP[a1, a1], a3, a5, a4, a2, n] + 
    S2[SP[a1, a1], a5, a3, a4, a2, n] - S2[SP[a1, a5], a1, a3, a4, a2, n] + 
    2*S2[a5, a1, a1, a3, a4, a2, n] + S2[a5, a1, a3, a1, a4, a2, n] + 
    S2[a5, a1, a3, a4, a1, a2, n] + S2[a5, a1, a3, a4, a2, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a2_, a4_, a3_, a5_, a1_, a1_, n_] :> 
  S2[a1, a1, a5, n]*S2[a2, a4, a3, n] + S2[SP[a1, a2], SP[a1, a4], 
     SP[a3, a5], n] - S2[a2, a4, n]*S2[a1, a1, a5, a3, n] + 
    S2[a1, a1, SP[a2, a5], SP[a3, a4], n] - S2[a1, a2, SP[a1, a4], 
     SP[a3, a5], n] - S2[a1, SP[a1, a2], a4, SP[a3, a5], n] + 
    S2[a1, SP[a1, a2], a5, SP[a3, a4], n] - S2[a2, a1, SP[a1, a4], 
     SP[a3, a5], n] - S2[a2, SP[a1, a4], a1, SP[a3, a5], n] - 
    S2[a2, SP[a1, a4], SP[a1, a3], a5, n] - S2[SP[a1, a2], a1, a4, 
     SP[a3, a5], n] + S2[SP[a1, a2], a1, a5, SP[a3, a4], n] - 
    S2[SP[a1, a2], a4, a1, SP[a3, a5], n] - S2[SP[a1, a2], a4, SP[a1, a3], 
     a5, n] - S2[SP[a1, a2], SP[a1, a4], a3, a5, n] + 
    S2[a1, a1, a2, a4, SP[a3, a5], n] - S2[a1, a1, a2, a5, SP[a3, a4], n] - 
    S2[a1, a1, a5, a2, SP[a3, a4], n] + S2[a2, n]*S2[a1, a1, a5, a3, a4, n] + 
    S2[a1, a1, a5, a3, SP[a2, a4], n] + S2[a1, a2, a1, a4, SP[a3, a5], n] - 
    S2[a1, a2, a1, a5, SP[a3, a4], n] + S2[a1, a2, a4, a1, SP[a3, a5], n] - 
    (S2[a1, n]*S2[a1, a2, a4, a3, a5, n])/2 - 
    S2[a1, a2, a4, a3, SP[a1, a5], n]/2 + S2[a1, a2, a4, SP[a1, a3], a5, n]/
     2 + S2[a1, a2, SP[a1, a4], a3, a5, n]/2 - 
    (S2[a1, n]*S2[a1, a5, a3, a4, a2, n])/2 - 
    S2[a1, a5, a3, a4, SP[a1, a2], n]/2 - S2[a1, a5, a3, SP[a1, a4], a2, n]/
     2 - S2[a1, a5, SP[a1, a3], a4, a2, n]/2 + 
    S2[a1, SP[a1, a2], a4, a3, a5, n]/2 - S2[a1, SP[a1, a5], a3, a4, a2, n]/
     2 + S2[a2, a1, a1, a4, SP[a3, a5], n] - S2[a2, a1, a1, a5, SP[a3, a4], 
     n] + S2[a2, a1, a4, a1, SP[a3, a5], n] - 
    (S2[a1, n]*S2[a2, a1, a4, a3, a5, n])/2 - 
    S2[a2, a1, a4, a3, SP[a1, a5], n]/2 + S2[a2, a1, a4, SP[a1, a3], a5, n]/
     2 + S2[a2, a1, SP[a1, a4], a3, a5, n]/2 + S2[a2, a4, a1, a1, SP[a3, a5], 
     n] - (S2[a1, n]*S2[a2, a4, a1, a3, a5, n])/2 - 
    S2[a2, a4, a1, a3, SP[a1, a5], n]/2 + S2[a2, a4, a1, SP[a1, a3], a5, n]/
     2 - (S2[a1, n]*S2[a2, a4, a3, a1, a5, n])/2 - 
    S2[a2, a4, a3, a1, SP[a1, a5], n]/2 + 
    (S2[a1, n]*S2[a2, a4, a3, a5, a1, n])/2 + 
    S2[a2, a4, a3, a5, SP[a1, a1], n]/2 - S2[a2, a4, a3, SP[a1, a1], a5, n]/
     2 + S2[a2, a4, a3, SP[a1, a5], a1, n]/2 - 
    S2[a2, a4, SP[a1, a1], a3, a5, n]/2 + S2[a2, a4, SP[a1, a3], a1, a5, n]/
     2 + S2[a2, a4, SP[a1, a3], a5, a1, n]/2 - 
    S2[a2, SP[a1, a1], a4, a3, a5, n]/2 + S2[a2, SP[a1, a4], a1, a3, a5, n]/
     2 + S2[a2, SP[a1, a4], a3, a1, a5, n]/2 + 
    S2[a2, SP[a1, a4], a3, a5, a1, n]/2 + 
    (S2[a1, n]*S2[a5, a1, a3, a4, a2, n])/2 + 
    S2[a5, a1, a3, a4, SP[a1, a2], n]/2 + S2[a5, a1, a3, SP[a1, a4], a2, n]/
     2 + S2[a5, a1, SP[a1, a3], a4, a2, n]/2 + 
    (S2[a1, n]*S2[a5, a3, a1, a4, a2, n])/2 + 
    S2[a5, a3, a1, a4, SP[a1, a2], n]/2 + S2[a5, a3, a1, SP[a1, a4], a2, n]/
     2 + (S2[a1, n]*S2[a5, a3, a4, a1, a2, n])/2 + 
    S2[a5, a3, a4, a1, SP[a1, a2], n]/2 + 
    (S2[a1, n]*S2[a5, a3, a4, a2, a1, n])/2 + 
    S2[a5, a3, a4, a2, SP[a1, a1], n]/2 + S2[a5, a3, a4, SP[a1, a1], a2, n]/
     2 + S2[a5, a3, a4, SP[a1, a2], a1, n]/2 + 
    S2[a5, a3, SP[a1, a1], a4, a2, n]/2 + S2[a5, a3, SP[a1, a4], a1, a2, n]/
     2 + S2[a5, a3, SP[a1, a4], a2, a1, n]/2 + 
    S2[a5, SP[a1, a1], a3, a4, a2, n]/2 + S2[a5, SP[a1, a3], a1, a4, a2, n]/
     2 + S2[a5, SP[a1, a3], a4, a1, a2, n]/2 + 
    S2[a5, SP[a1, a3], a4, a2, a1, n]/2 - S2[SP[a1, a1], a2, a4, a3, a5, n]/
     2 - S2[SP[a1, a1], a5, a3, a4, a2, n]/2 + 
    S2[SP[a1, a2], a1, a4, a3, a5, n]/2 + S2[SP[a1, a2], a4, a1, a3, a5, n]/
     2 + S2[SP[a1, a2], a4, a3, a1, a5, n]/2 + 
    S2[SP[a1, a2], a4, a3, a5, a1, n]/2 + S2[SP[a1, a5], a1, a3, a4, a2, n]/
     2 + S2[SP[a1, a5], a3, a1, a4, a2, n]/2 + 
    S2[SP[a1, a5], a3, a4, a1, a2, n]/2 + S2[SP[a1, a5], a3, a4, a2, a1, n]/
     2 - S2[a5, a1, a1, a3, a4, a2, n] - S2[a5, a1, a3, a1, a4, a2, n] - 
    S2[a5, a1, a3, a4, a1, a2, n] - S2[a5, a1, a3, a4, a2, a1, n] - 
    S2[a5, a3, a1, a1, a4, a2, n] - S2[a5, a3, a1, a4, a1, a2, n] - 
    S2[a5, a3, a1, a4, a2, a1, n] - S2[a5, a3, a4, a1, a1, a2, n] - 
    S2[a5, a3, a4, a1, a2, a1, n] - S2[a5, a3, a4, a2, a1, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a2_, a4_, a5_, a1_, a1_, a3_, n_] :> 
  S2[a2, a4, n]*S2[a1, a1, a3, a5, n] + S2[a2, a4, n]*S2[a1, a1, a5, a3, n] - 
    S2[a1, a1, SP[a2, a3], SP[a4, a5], n] - S2[a1, a1, SP[a2, a5], 
     SP[a3, a4], n] + S2[a2, a4, n]*S2[a1, a3, a1, a5, n] - 
    S2[a1, a3, SP[a1, a2], SP[a4, a5], n] + S2[a1, a3, n]*
     S2[a1, a4, a2, a5, n] + S2[a1, a3, n]*S2[a1, a4, a5, a2, n] - 
    S2[a1, a4, SP[a1, a2], SP[a3, a5], n] - S2[a1, a4, SP[a1, a5], 
     SP[a2, a3], n] + S2[a1, a3, n]*S2[a1, a5, a4, a2, n] - 
    S2[a1, a5, SP[a1, a4], SP[a2, a3], n] - S2[a1, SP[a1, a2], a3, 
     SP[a4, a5], n] - S2[a1, SP[a1, a2], a5, SP[a3, a4], n] - 
    S2[a1, SP[a1, a2], SP[a3, a4], a5, n] - S2[a1, SP[a1, a2], SP[a4, a5], 
     a3, n] - S2[a1, SP[a1, a4], a2, SP[a3, a5], n] - 
    S2[a1, SP[a1, a4], a5, SP[a2, a3], n] - S2[a1, SP[a1, a4], SP[a2, a3], 
     a5, n] - S2[a1, SP[a1, a4], SP[a3, a5], a2, n] - 
    S2[a1, SP[a1, a5], a4, SP[a2, a3], n] - S2[a1, SP[a1, a5], SP[a3, a4], 
     a2, n] - S2[a1, SP[a2, a3], a1, SP[a4, a5], n] - 
    S2[a1, SP[a2, a3], SP[a1, a4], a5, n] - S2[a1, a3, n]*
     S2[a2, a4, a1, a5, n] + S2[a2, a4, SP[a1, a1], SP[a3, a5], n] + 
    S2[a2, SP[a1, a4], a1, SP[a3, a5], n] + S2[a2, SP[a1, a4], SP[a1, a3], 
     a5, n] - S2[SP[a1, a1], a4, a2, SP[a3, a5], n] - 
    S2[SP[a1, a1], a4, a5, SP[a2, a3], n] - S2[SP[a1, a1], a4, SP[a2, a3], 
     a5, n] - S2[SP[a1, a1], a4, SP[a3, a5], a2, n] - 
    S2[SP[a1, a1], a5, a4, SP[a2, a3], n] - S2[SP[a1, a1], a5, SP[a3, a4], 
     a2, n] - S2[SP[a1, a1], SP[a3, a4], a2, a5, n] - 
    S2[SP[a1, a1], SP[a3, a4], a5, a2, n] - S2[SP[a1, a1], SP[a3, a5], a4, 
     a2, n] - S2[SP[a1, a2], a1, a3, SP[a4, a5], n] - 
    S2[SP[a1, a2], a1, a5, SP[a3, a4], n] - S2[SP[a1, a2], a1, SP[a3, a4], 
     a5, n] - S2[SP[a1, a2], a1, SP[a4, a5], a3, n] - 
    S2[SP[a1, a2], a3, a1, SP[a4, a5], n] - S2[SP[a1, a2], a3, SP[a1, a4], 
     a5, n] + S2[SP[a1, a2], a4, a1, SP[a3, a5], n] + 
    S2[SP[a1, a2], a4, SP[a1, a3], a5, n] - S2[SP[a1, a2], SP[a1, a4], a3, 
     a5, n] - S2[SP[a1, a2], SP[a1, a4], a5, a3, n] + 
    S2[a1, a1, a2, a3, SP[a4, a5], n] + S2[a1, a1, a2, a5, SP[a3, a4], n] + 
    S2[a1, a1, a2, SP[a3, a4], a5, n] + S2[a1, a1, a2, SP[a4, a5], a3, n] + 
    S2[a1, a1, a3, a2, SP[a4, a5], n] - S2[a5, n]*S2[a1, a1, a3, a4, a2, n] - 
    S2[a2, n]*S2[a1, a1, a3, a4, a5, n] - 
    2*S2[a1, a1, a3, a4, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a1, a3, a5, a4, n] - S2[a1, a1, a3, a5, SP[a2, a4], n] - 
    S2[a1, a1, a3, SP[a2, a4], a5, n] - S2[a1, a1, a3, SP[a4, a5], a2, n] - 
    S2[a5, n]*S2[a1, a1, a4, a2, a3, n] + S2[a1, a1, a4, a2, SP[a3, a5], n] - 
    S2[a5, n]*S2[a1, a1, a4, a3, a2, n] - 
    S2[a2, n]*S2[a1, a1, a4, a3, a5, n] - 
    2*S2[a1, a1, a4, a3, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a1, a4, a5, a3, n] + S2[a1, a1, a4, a5, SP[a2, a3], n] + 
    S2[a1, a1, a4, SP[a2, a3], a5, n] - 2*S2[a1, a1, a4, SP[a2, a5], a3, n] + 
    S2[a1, a1, a4, SP[a3, a5], a2, n] + S2[a1, a1, a5, a2, SP[a3, a4], n] - 
    S2[a2, n]*S2[a1, a1, a5, a3, a4, n] - S2[a1, a1, a5, a3, SP[a2, a4], n] - 
    S2[a2, n]*S2[a1, a1, a5, a4, a3, n] + S2[a1, a1, a5, a4, SP[a2, a3], n] - 
    S2[a1, a1, a5, SP[a2, a4], a3, n] + 2*S2[a1, a1, a5, SP[a3, a4], a2, n] - 
    S2[a1, a1, SP[a2, a4], a3, a5, n] - S2[a1, a1, SP[a2, a4], a5, a3, n] + 
    2*S2[a1, a1, SP[a3, a4], a2, a5, n] + 
    2*S2[a1, a1, SP[a3, a4], a5, a2, n] + S2[a1, a1, SP[a3, a5], a4, a2, n] - 
    S2[a1, a1, SP[a4, a5], a2, a3, n] - S2[a1, a1, SP[a4, a5], a3, a2, n] + 
    S2[a1, a2, a1, a3, SP[a4, a5], n] + S2[a1, a2, a1, a5, SP[a3, a4], n] + 
    S2[a1, a2, a1, SP[a3, a4], a5, n] + S2[a1, a2, a1, SP[a4, a5], a3, n] + 
    S2[a1, a2, a3, a1, SP[a4, a5], n] + S2[a1, a2, a3, SP[a1, a4], a5, n] - 
    S2[a1, a2, a4, a1, SP[a3, a5], n] - S2[a1, a2, a4, SP[a1, a3], a5, n] + 
    S2[a1, a2, SP[a1, a4], a3, a5, n] + S2[a1, a2, SP[a1, a4], a5, a3, n] + 
    S2[a1, a3, a1, a2, SP[a4, a5], n] - S2[a2, n]*S2[a1, a3, a1, a4, a5, n] - 
    S2[a1, a3, a1, a4, SP[a2, a5], n] - S2[a2, n]*S2[a1, a3, a1, a5, a4, n] - 
    S2[a1, a3, a1, a5, SP[a2, a4], n] - S2[a1, a3, a1, SP[a2, a4], a5, n] + 
    S2[a1, a3, a2, a1, SP[a4, a5], n] + S2[a1, a3, a2, SP[a1, a4], a5, n] - 
    S2[a5, n]*S2[a1, a4, a1, a2, a3, n] - 
    S2[a5, n]*S2[a1, a4, a1, a3, a2, n] - S2[a1, a4, a1, a3, SP[a2, a5], n] + 
    S2[a1, a4, a1, a5, SP[a2, a3], n] + S2[a1, a4, a1, SP[a2, a3], a5, n] - 
    S2[a1, a4, a1, SP[a2, a5], a3, n] - S2[a5, n]*S2[a1, a4, a2, a1, a3, n] + 
    S2[a1, a4, a5, a1, SP[a2, a3], n] + S2[a1, a4, a5, SP[a1, a2], a3, n] + 
    S2[a1, a4, SP[a1, a2], a3, a5, n] + S2[a1, a4, SP[a1, a2], a5, a3, n] - 
    S2[a1, a4, SP[a2, a5], a1, a3, n] + S2[a1, a5, a1, a4, SP[a2, a3], n] + 
    S2[a1, a5, a1, SP[a3, a4], a2, n] + S2[a1, a5, a4, a1, SP[a2, a3], n] + 
    S2[a1, a5, a4, SP[a1, a2], a3, n] + S2[a1, a5, SP[a1, a4], a2, a3, n] + 
    S2[a1, a5, SP[a1, a4], a3, a2, n] + S2[a1, SP[a1, a3], a4, a2, a5, n] + 
    S2[a1, SP[a1, a3], a4, a5, a2, n] + S2[a1, SP[a1, a3], a5, a4, a2, n] + 
    S2[a1, SP[a1, a4], a2, a3, a5, n] + S2[a1, SP[a1, a4], a2, a5, a3, n] + 
    S2[a1, SP[a1, a4], a3, a2, a5, n] + S2[a1, SP[a1, a4], a3, a5, a2, n] + 
    S2[a1, SP[a1, a4], a5, a2, a3, n] + S2[a1, SP[a1, a4], a5, a3, a2, n] - 
    S2[a1, SP[a4, a5], a1, a2, a3, n] - S2[a1, SP[a4, a5], a1, a3, a2, n] - 
    S2[a1, SP[a4, a5], a2, a1, a3, n] + S2[a2, a1, a1, a3, SP[a4, a5], n] + 
    S2[a2, a1, a1, a5, SP[a3, a4], n] + S2[a2, a1, a1, SP[a3, a4], a5, n] + 
    S2[a2, a1, a1, SP[a4, a5], a3, n] + S2[a2, a1, a3, a1, SP[a4, a5], n] + 
    S2[a2, a1, a3, SP[a1, a4], a5, n] - S2[a2, a1, a4, a1, SP[a3, a5], n] - 
    S2[a2, a1, a4, SP[a1, a3], a5, n] + S2[a2, a1, SP[a1, a4], a3, a5, n] + 
    S2[a2, a1, SP[a1, a4], a5, a3, n] + S2[a5, n]*S2[a2, a4, a1, a1, a3, n] - 
    S2[a2, a4, a1, a1, SP[a3, a5], n] - S2[a2, a4, a1, SP[a1, a3], a5, n] - 
    S2[a2, a4, SP[a1, a1], a3, a5, n] - S2[a2, a4, SP[a1, a1], a5, a3, n] + 
    S2[a2, a4, SP[a1, a5], a1, a3, n] + S2[a2, SP[a4, a5], a1, a1, a3, n] - 
    S2[a2, n]*S2[a5, a4, a1, a1, a3, n] - S2[a5, a4, a1, a1, SP[a2, a3], n] - 
    S2[a5, a4, a1, SP[a1, a2], a3, n] - S2[a5, a4, SP[a1, a2], a1, a3, n] - 
    S2[a5, SP[a2, a4], a1, a1, a3, n] + S2[SP[a1, a1], a3, a4, a2, a5, n] + 
    S2[SP[a1, a1], a3, a4, a5, a2, n] + S2[SP[a1, a1], a3, a5, a4, a2, n] + 
    S2[SP[a1, a1], a4, a2, a3, a5, n] + S2[SP[a1, a1], a4, a2, a5, a3, n] + 
    S2[SP[a1, a1], a4, a3, a2, a5, n] + S2[SP[a1, a1], a4, a3, a5, a2, n] + 
    S2[SP[a1, a1], a4, a5, a2, a3, n] + S2[SP[a1, a1], a4, a5, a3, a2, n] + 
    S2[SP[a1, a1], a5, a3, a4, a2, n] + S2[SP[a1, a1], a5, a4, a2, a3, n] + 
    S2[SP[a1, a1], a5, a4, a3, a2, n] - S2[SP[a1, a5], a1, a3, a4, a2, n] - 
    S2[SP[a1, a5], a1, a4, a2, a3, n] - S2[SP[a1, a5], a1, a4, a3, a2, n] - 
    S2[SP[a1, a5], a4, a1, a2, a3, n] - S2[SP[a1, a5], a4, a1, a3, a2, n] - 
    S2[SP[a1, a5], a4, a2, a1, a3, n] + S2[a5, a1, a1, a3, a4, a2, n] + 
    S2[a5, a1, a1, a4, a2, a3, n] + S2[a5, a1, a1, a4, a3, a2, n] + 
    S2[a5, a1, a4, a1, a2, a3, n] + S2[a5, a1, a4, a1, a3, a2, n] + 
    S2[a5, a1, a4, a2, a1, a3, n] + S2[a5, a4, a1, a1, a2, a3, n] + 
    S2[a5, a4, a1, a1, a3, a2, n] + S2[a5, a4, a1, a2, a1, a3, n] + 
    S2[a5, a4, a2, a1, a1, a3, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a2_, a4_, a5_, a1_, a3_, a1_, n_] :> 
  -(S2[a2, a4, n]*S2[a1, a3, a1, a5, n]) + S2[a1, a3, SP[a1, a2], SP[a4, a5], 
     n] - S2[a1, a3, n]*S2[a1, a4, a2, a5, n] - 
    S2[a1, a3, n]*S2[a1, a4, a5, a2, n] + S2[a1, a4, SP[a1, a2], SP[a3, a5], 

     n] + S2[a1, a4, SP[a1, a5], SP[a2, a3], n] - 
    S2[a1, a3, n]*S2[a1, a5, a4, a2, n] + S2[a1, a5, SP[a1, a4], SP[a2, a3], 
     n] + S2[a1, SP[a1, a4], a2, SP[a3, a5], n] + S2[a1, SP[a1, a4], a5, 
     SP[a2, a3], n] + S2[a1, SP[a1, a4], SP[a2, a3], a5, n] + 
    S2[a1, SP[a1, a4], SP[a3, a5], a2, n] + S2[a1, SP[a1, a5], a4, 
     SP[a2, a3], n] + S2[a1, SP[a1, a5], SP[a3, a4], a2, n] + 
    S2[a1, SP[a2, a3], a1, SP[a4, a5], n] + S2[a1, SP[a2, a3], SP[a1, a4], 
     a5, n] + S2[a1, a3, n]*S2[a2, a4, a1, a5, n] - 
    S2[a2, a4, SP[a1, a1], SP[a3, a5], n] - S2[a2, SP[a1, a4], a1, 
     SP[a3, a5], n] - S2[a2, SP[a1, a4], SP[a1, a3], a5, n] + 
    S2[SP[a1, a1], a4, a2, SP[a3, a5], n] + S2[SP[a1, a1], a4, a5, 
     SP[a2, a3], n] + S2[SP[a1, a1], a4, SP[a2, a3], a5, n] + 
    S2[SP[a1, a1], a4, SP[a3, a5], a2, n] + S2[SP[a1, a1], a5, a4, 
     SP[a2, a3], n] + S2[SP[a1, a1], a5, SP[a3, a4], a2, n] + 
    S2[SP[a1, a1], SP[a3, a4], a2, a5, n] + S2[SP[a1, a1], SP[a3, a4], a5, 
     a2, n] + S2[SP[a1, a1], SP[a3, a5], a4, a2, n] + 
    S2[SP[a1, a2], a3, a1, SP[a4, a5], n] + S2[SP[a1, a2], a3, SP[a1, a4], 
     a5, n] - S2[SP[a1, a2], a4, a1, SP[a3, a5], n] - 
    S2[SP[a1, a2], a4, SP[a1, a3], a5, n] + 
    2*S2[a5, n]*S2[a1, a1, a3, a4, a2, n] + 
    2*S2[a1, a1, a3, a4, SP[a2, a5], n] + 
    2*S2[a1, a1, a3, SP[a4, a5], a2, n] + 
    2*S2[a5, n]*S2[a1, a1, a4, a2, a3, n] + 
    2*S2[a5, n]*S2[a1, a1, a4, a3, a2, n] + 
    2*S2[a1, a1, a4, a3, SP[a2, a5], n] - 
    2*S2[a1, a1, a4, a5, SP[a2, a3], n] - 
    2*S2[a1, a1, a4, SP[a2, a3], a5, n] + 
    2*S2[a1, a1, a4, SP[a2, a5], a3, n] - 
    2*S2[a1, a1, a5, a4, SP[a2, a3], n] - 
    2*S2[a1, a1, a5, SP[a3, a4], a2, n] - 
    2*S2[a1, a1, SP[a3, a4], a2, a5, n] - 
    2*S2[a1, a1, SP[a3, a4], a5, a2, n] + 
    2*S2[a1, a1, SP[a4, a5], a2, a3, n] + 
    2*S2[a1, a1, SP[a4, a5], a3, a2, n] - S2[a1, a2, a3, a1, SP[a4, a5], n] - 
    S2[a1, a2, a3, SP[a1, a4], a5, n] + S2[a1, a2, a4, a1, SP[a3, a5], n] + 
    S2[a1, a2, a4, SP[a1, a3], a5, n] - S2[a1, a3, a1, a2, SP[a4, a5], n] + 
    S2[a2, n]*S2[a1, a3, a1, a4, a5, n] + S2[a1, a3, a1, a4, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a3, a1, a5, a4, n] + S2[a1, a3, a1, a5, SP[a2, a4], n] + 
    S2[a1, a3, a1, SP[a2, a4], a5, n] - S2[a1, a3, a2, a1, SP[a4, a5], n] - 
    S2[a1, a3, a2, SP[a1, a4], a5, n] + 2*S2[a5, n]*
     S2[a1, a4, a1, a2, a3, n] + S2[a1, a4, a1, a2, SP[a3, a5], n] + 
    2*S2[a5, n]*S2[a1, a4, a1, a3, a2, n] - 
    S2[a2, n]*S2[a1, a4, a1, a3, a5, n] + S2[a1, a4, a1, a3, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a4, a1, a5, a3, n] - 
    2*S2[a1, a4, a1, a5, SP[a2, a3], n] - 
    2*S2[a1, a4, a1, SP[a2, a3], a5, n] + S2[a1, a4, a1, SP[a2, a5], a3, n] + 
    S2[a1, a4, a1, SP[a3, a5], a2, n] + 2*S2[a5, n]*
     S2[a1, a4, a2, a1, a3, n] + S2[a1, a4, a2, a1, SP[a3, a5], n] + 
    S2[a1, a4, a2, SP[a1, a5], a3, n] - S2[a2, n]*S2[a1, a4, a5, a1, a3, n] - 
    2*S2[a1, a4, a5, a1, SP[a2, a3], n] - 
    2*S2[a1, a4, a5, SP[a1, a2], a3, n] - 
    2*S2[a1, a4, SP[a1, a2], a3, a5, n] - 
    2*S2[a1, a4, SP[a1, a2], a5, a3, n] + S2[a1, a4, SP[a1, a5], a2, a3, n] + 
    S2[a1, a4, SP[a1, a5], a3, a2, n] + S2[a1, a4, SP[a2, a5], a1, a3, n] - 
    S2[a1, a5, a1, a4, SP[a2, a3], n] - S2[a1, a5, a1, SP[a3, a4], a2, n] - 
    S2[a1, a5, a4, a1, SP[a2, a3], n] - S2[a1, a5, a4, SP[a1, a2], a3, n] - 
    S2[a1, a5, SP[a1, a4], a2, a3, n] - S2[a1, a5, SP[a1, a4], a3, a2, n] - 
    S2[a1, SP[a1, a3], a4, a2, a5, n] - S2[a1, SP[a1, a3], a4, a5, a2, n] - 
    S2[a1, SP[a1, a3], a5, a4, a2, n] - S2[a1, SP[a1, a4], a2, a3, a5, n] - 
    S2[a1, SP[a1, a4], a2, a5, a3, n] - S2[a1, SP[a1, a4], a3, a2, a5, n] - 
    S2[a1, SP[a1, a4], a3, a5, a2, n] - S2[a1, SP[a1, a4], a5, a2, a3, n] - 
    S2[a1, SP[a1, a4], a5, a3, a2, n] + S2[a1, SP[a1, a5], a3, a4, a2, n] + 
    S2[a1, SP[a1, a5], a4, a2, a3, n] + S2[a1, SP[a1, a5], a4, a3, a2, n] - 
    S2[a1, SP[a2, a4], a1, a3, a5, n] - S2[a1, SP[a2, a4], a1, a5, a3, n] - 
    S2[a1, SP[a2, a4], a5, a1, a3, n] + 2*S2[a1, SP[a4, a5], a1, a2, a3, n] + 
    2*S2[a1, SP[a4, a5], a1, a3, a2, n] + 
    2*S2[a1, SP[a4, a5], a2, a1, a3, n] - S2[a2, a1, a3, a1, SP[a4, a5], n] - 
    S2[a2, a1, a3, SP[a1, a4], a5, n] + S2[a2, a1, a4, a1, SP[a3, a5], n] + 
    S2[a2, a1, a4, SP[a1, a3], a5, n] - 2*S2[a5, n]*
     S2[a2, a4, a1, a1, a3, n] + S2[a2, a4, a1, SP[a1, a3], a5, n] - 
    S2[a2, a4, a1, SP[a1, a5], a3, n] + S2[a1, n]*S2[a2, a4, a5, a1, a3, n] + 
    S2[a2, a4, a5, a1, SP[a1, a3], n] + S2[a2, a4, a5, SP[a1, a1], a3, n] + 
    S2[a2, a4, SP[a1, a1], a3, a5, n] + S2[a2, a4, SP[a1, a1], a5, a3, n] - 
    S2[a2, a4, SP[a1, a5], a1, a3, n] + S2[a2, SP[a1, a4], a1, a3, a5, n] + 
    S2[a2, SP[a1, a4], a1, a5, a3, n] + S2[a2, SP[a1, a4], a5, a1, a3, n] - 
    2*S2[a2, SP[a4, a5], a1, a1, a3, n] - 
    S2[a1, n]*S2[a5, a1, a3, a4, a2, n] - S2[a5, a1, a3, a4, SP[a1, a2], n] - 
    S2[a5, a1, a3, SP[a1, a4], a2, n] - S2[a1, n]*S2[a5, a1, a4, a2, a3, n] - 
    S2[a5, a1, a4, a2, SP[a1, a3], n] - S2[a1, n]*S2[a5, a1, a4, a3, a2, n] - 
    S2[a5, a1, a4, a3, SP[a1, a2], n] - S2[a5, a1, a4, SP[a1, a2], a3, n] - 
    S2[a5, a1, a4, SP[a1, a3], a2, n] - S2[a5, a1, SP[a1, a3], a4, a2, n] - 
    S2[a5, a1, SP[a1, a4], a2, a3, n] - S2[a5, a1, SP[a1, a4], a3, a2, n] + 
    2*S2[a2, n]*S2[a5, a4, a1, a1, a3, n] + 
    2*S2[a5, a4, a1, a1, SP[a2, a3], n] - 
    S2[a1, n]*S2[a5, a4, a1, a2, a3, n] - S2[a5, a4, a1, a2, SP[a1, a3], n] - 
    S2[a1, n]*S2[a5, a4, a1, a3, a2, n] - S2[a5, a4, a1, a3, SP[a1, a2], n] + 
    S2[a5, a4, a1, SP[a1, a2], a3, n] - S2[a5, a4, a1, SP[a1, a3], a2, n] - 
    S2[a1, n]*S2[a5, a4, a2, a1, a3, n] - S2[a5, a4, a2, a1, SP[a1, a3], n] - 
    S2[a5, a4, a2, SP[a1, a1], a3, n] - S2[a5, a4, SP[a1, a1], a2, a3, n] - 
    S2[a5, a4, SP[a1, a1], a3, a2, n] + S2[a5, a4, SP[a1, a2], a1, a3, n] - 
    S2[a5, SP[a1, a1], a3, a4, a2, n] - S2[a5, SP[a1, a1], a4, a2, a3, n] - 
    S2[a5, SP[a1, a1], a4, a3, a2, n] - S2[a5, SP[a1, a4], a1, a2, a3, n] - 
    S2[a5, SP[a1, a4], a1, a3, a2, n] - S2[a5, SP[a1, a4], a2, a1, a3, n] + 
    2*S2[a5, SP[a2, a4], a1, a1, a3, n] - S2[SP[a1, a1], a3, a4, a2, a5, n] - 
    S2[SP[a1, a1], a3, a4, a5, a2, n] - S2[SP[a1, a1], a3, a5, a4, a2, n] - 
    S2[SP[a1, a1], a4, a2, a3, a5, n] - S2[SP[a1, a1], a4, a2, a5, a3, n] - 
    S2[SP[a1, a1], a4, a3, a2, a5, n] - S2[SP[a1, a1], a4, a3, a5, a2, n] - 
    S2[SP[a1, a1], a4, a5, a2, a3, n] - S2[SP[a1, a1], a4, a5, a3, a2, n] - 
    S2[SP[a1, a1], a5, a3, a4, a2, n] - S2[SP[a1, a1], a5, a4, a2, a3, n] - 
    S2[SP[a1, a1], a5, a4, a3, a2, n] + S2[SP[a1, a5], a1, a3, a4, a2, n] + 
    S2[SP[a1, a5], a1, a4, a2, a3, n] + S2[SP[a1, a5], a1, a4, a3, a2, n] + 
    S2[SP[a1, a5], a4, a1, a2, a3, n] + S2[SP[a1, a5], a4, a1, a3, a2, n] + 
    S2[SP[a1, a5], a4, a2, a1, a3, n] + S2[a5, a1, a3, a1, a4, a2, n] + 
    S2[a5, a1, a3, a4, a1, a2, n] + S2[a5, a1, a3, a4, a2, a1, n] + 
    S2[a5, a1, a4, a2, a3, a1, n] + S2[a5, a1, a4, a3, a1, a2, n] + 
    S2[a5, a1, a4, a3, a2, a1, n] + S2[a5, a4, a1, a2, a3, a1, n] + 
    S2[a5, a4, a1, a3, a1, a2, n] + S2[a5, a4, a1, a3, a2, a1, n] + 
    S2[a5, a4, a2, a1, a3, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a2_, a4_, a5_, a3_, a1_, a1_, n_] :> 
  -(S2[a2, a4, n]*S2[a1, a1, a3, a5, n]) + S2[a1, a1, SP[a2, a3], SP[a4, a5], 
     n] + S2[a1, SP[a1, a2], a3, SP[a4, a5], n] + 
    S2[a1, SP[a1, a2], SP[a3, a4], a5, n] + S2[SP[a1, a2], a1, a3, 
     SP[a4, a5], n] + S2[SP[a1, a2], a1, SP[a3, a4], a5, n] + 
    S2[SP[a1, a2], SP[a1, a4], a3, a5, n] - S2[a1, a1, a2, a3, SP[a4, a5], 
     n] - S2[a1, a1, a2, SP[a3, a4], a5, n] - S2[a1, a1, a3, a2, SP[a4, a5], 
     n] - S2[a5, n]*S2[a1, a1, a3, a4, a2, n] + 
    S2[a2, n]*S2[a1, a1, a3, a4, a5, n] + 
    S2[a2, n]*S2[a1, a1, a3, a5, a4, n] + S2[a1, a1, a3, a5, SP[a2, a4], n] + 
    S2[a1, a1, a3, SP[a2, a4], a5, n] - S2[a1, a1, a3, SP[a4, a5], a2, n] - 
    S2[a5, n]*S2[a1, a1, a4, a2, a3, n] - S2[a1, a1, a4, a2, SP[a3, a5], n] - 
    S2[a5, n]*S2[a1, a1, a4, a3, a2, n] + 
    S2[a2, n]*S2[a1, a1, a4, a3, a5, n] + 
    S2[a2, n]*S2[a1, a1, a4, a5, a3, n] + S2[a1, a1, a4, a5, SP[a2, a3], n] + 
    S2[a1, a1, a4, SP[a2, a3], a5, n] - S2[a1, a1, a4, SP[a3, a5], a2, n] + 
    S2[a1, a1, SP[a2, a4], a3, a5, n] + S2[a1, a1, SP[a2, a4], a5, a3, n] - 
    S2[a1, a1, SP[a3, a5], a4, a2, n] - S2[a1, a1, SP[a4, a5], a2, a3, n] - 
    S2[a1, a1, SP[a4, a5], a3, a2, n] - S2[a1, a2, a1, a3, SP[a4, a5], n] - 
    S2[a1, a2, a1, SP[a3, a4], a5, n] - (S2[a1, n]*S2[a1, a2, a4, a5, a3, n])/
     2 - S2[a1, a2, a4, a5, SP[a1, a3], n]/2 - 
    S2[a1, a2, a4, SP[a1, a5], a3, n]/2 - S2[a1, a2, SP[a1, a4], a3, a5, n] - 
    S2[a1, a2, SP[a1, a4], a5, a3, n]/2 - 
    S2[a5, n]*S2[a1, a4, a1, a2, a3, n] - S2[a1, a4, a1, a2, SP[a3, a5], n] - 
    S2[a5, n]*S2[a1, a4, a1, a3, a2, n] + 
    S2[a2, n]*S2[a1, a4, a1, a3, a5, n] + 
    S2[a2, n]*S2[a1, a4, a1, a5, a3, n] + S2[a1, a4, a1, a5, SP[a2, a3], n] + 
    S2[a1, a4, a1, SP[a2, a3], a5, n] - S2[a1, a4, a1, SP[a3, a5], a2, n] - 
    S2[a5, n]*S2[a1, a4, a2, a1, a3, n] - S2[a1, a4, a2, a1, SP[a3, a5], n] - 
    S2[a1, a4, a2, SP[a1, a5], a3, n] + S2[a2, n]*S2[a1, a4, a5, a1, a3, n] + 
    S2[a1, a4, a5, a1, SP[a2, a3], n] + S2[a1, a4, a5, SP[a1, a2], a3, n] + 
    S2[a1, a4, SP[a1, a2], a3, a5, n] + S2[a1, a4, SP[a1, a2], a5, a3, n] - 
    S2[a1, a4, SP[a1, a5], a2, a3, n] - S2[a1, a4, SP[a1, a5], a3, a2, n] + 
    (S2[a1, n]*S2[a1, a5, a3, a4, a2, n])/2 + 
    S2[a1, a5, a3, a4, SP[a1, a2], n]/2 + S2[a1, a5, a3, SP[a1, a4], a2, n]/
     2 + (S2[a1, n]*S2[a1, a5, a4, a2, a3, n])/2 + 
    S2[a1, a5, a4, a2, SP[a1, a3], n]/2 + 
    (S2[a1, n]*S2[a1, a5, a4, a3, a2, n])/2 + 
    S2[a1, a5, a4, a3, SP[a1, a2], n]/2 + S2[a1, a5, a4, SP[a1, a2], a3, n]/
     2 + S2[a1, a5, a4, SP[a1, a3], a2, n]/2 + 
    S2[a1, a5, SP[a1, a3], a4, a2, n]/2 + S2[a1, a5, SP[a1, a4], a2, a3, n]/
     2 + S2[a1, a5, SP[a1, a4], a3, a2, n]/2 + 
    S2[a1, SP[a1, a2], a4, a5, a3, n]/2 - S2[a1, SP[a1, a5], a3, a4, a2, n]/
     2 - S2[a1, SP[a1, a5], a4, a2, a3, n]/2 - 
    S2[a1, SP[a1, a5], a4, a3, a2, n]/2 + S2[a1, SP[a2, a4], a1, a3, a5, n] + 
    S2[a1, SP[a2, a4], a1, a5, a3, n] + S2[a1, SP[a2, a4], a5, a1, a3, n] - 
    S2[a1, SP[a4, a5], a1, a2, a3, n] - S2[a1, SP[a4, a5], a1, a3, a2, n] - 
    S2[a1, SP[a4, a5], a2, a1, a3, n] - S2[a2, a1, a1, a3, SP[a4, a5], n] - 
    S2[a2, a1, a1, SP[a3, a4], a5, n] - (S2[a1, n]*S2[a2, a1, a4, a5, a3, n])/
     2 - S2[a2, a1, a4, a5, SP[a1, a3], n]/2 - 
    S2[a2, a1, a4, SP[a1, a5], a3, n]/2 - S2[a2, a1, SP[a1, a4], a3, a5, n] - 
    S2[a2, a1, SP[a1, a4], a5, a3, n]/2 + 
    S2[a5, n]*S2[a2, a4, a1, a1, a3, n] + S2[a2, a4, a1, a1, SP[a3, a5], n] - 
    (S2[a1, n]*S2[a2, a4, a1, a5, a3, n])/2 - 
    S2[a2, a4, a1, a5, SP[a1, a3], n]/2 + S2[a2, a4, a1, SP[a1, a5], a3, n]/
     2 - (S2[a1, n]*S2[a2, a4, a5, a1, a3, n])/2 - 
    S2[a2, a4, a5, a1, SP[a1, a3], n]/2 + 
    (S2[a1, n]*S2[a2, a4, a5, a3, a1, n])/2 + 
    S2[a2, a4, a5, a3, SP[a1, a1], n]/2 - S2[a2, a4, a5, SP[a1, a1], a3, n]/
     2 + S2[a2, a4, a5, SP[a1, a3], a1, n]/2 - 
    S2[a2, a4, SP[a1, a1], a5, a3, n]/2 + S2[a2, a4, SP[a1, a5], a1, a3, n]/
     2 + S2[a2, a4, SP[a1, a5], a3, a1, n]/2 - 
    S2[a2, SP[a1, a1], a4, a5, a3, n]/2 - S2[a2, SP[a1, a4], a1, a3, a5, n] - 
    S2[a2, SP[a1, a4], a1, a5, a3, n]/2 - S2[a2, SP[a1, a4], a5, a1, a3, n]/
     2 + S2[a2, SP[a1, a4], a5, a3, a1, n]/2 + S2[a2, SP[a4, a5], a1, a1, a3, 
     n] + (S2[a1, n]*S2[a5, a1, a3, a4, a2, n])/2 + 
    S2[a5, a1, a3, a4, SP[a1, a2], n]/2 + S2[a5, a1, a3, SP[a1, a4], a2, n]/
     2 + (S2[a1, n]*S2[a5, a1, a4, a2, a3, n])/2 + 
    S2[a5, a1, a4, a2, SP[a1, a3], n]/2 + 
    (S2[a1, n]*S2[a5, a1, a4, a3, a2, n])/2 + 
    S2[a5, a1, a4, a3, SP[a1, a2], n]/2 + S2[a5, a1, a4, SP[a1, a2], a3, n]/
     2 + S2[a5, a1, a4, SP[a1, a3], a2, n]/2 + 
    S2[a5, a1, SP[a1, a3], a4, a2, n]/2 + S2[a5, a1, SP[a1, a4], a2, a3, n]/
     2 + S2[a5, a1, SP[a1, a4], a3, a2, n]/2 - 
    (S2[a1, n]*S2[a5, a3, a1, a4, a2, n])/2 - 
    S2[a5, a3, a1, a4, SP[a1, a2], n]/2 - S2[a5, a3, a1, SP[a1, a4], a2, n]/
     2 - (S2[a1, n]*S2[a5, a3, a4, a1, a2, n])/2 - 
    S2[a5, a3, a4, a1, SP[a1, a2], n]/2 - 
    (S2[a1, n]*S2[a5, a3, a4, a2, a1, n])/2 - 
    S2[a5, a3, a4, a2, SP[a1, a1], n]/2 - S2[a5, a3, a4, SP[a1, a1], a2, n]/
     2 - S2[a5, a3, a4, SP[a1, a2], a1, n]/2 - 
    S2[a5, a3, SP[a1, a1], a4, a2, n]/2 - S2[a5, a3, SP[a1, a4], a1, a2, n]/
     2 - S2[a5, a3, SP[a1, a4], a2, a1, n]/2 - 
    S2[a2, n]*S2[a5, a4, a1, a1, a3, n] - S2[a5, a4, a1, a1, SP[a2, a3], n] + 
    (S2[a1, n]*S2[a5, a4, a1, a2, a3, n])/2 + 
    S2[a5, a4, a1, a2, SP[a1, a3], n]/2 + 
    (S2[a1, n]*S2[a5, a4, a1, a3, a2, n])/2 + 
    S2[a5, a4, a1, a3, SP[a1, a2], n]/2 - S2[a5, a4, a1, SP[a1, a2], a3, n]/
     2 + S2[a5, a4, a1, SP[a1, a3], a2, n]/2 + 
    (S2[a1, n]*S2[a5, a4, a2, a1, a3, n])/2 + 
    S2[a5, a4, a2, a1, SP[a1, a3], n]/2 - 
    (S2[a1, n]*S2[a5, a4, a2, a3, a1, n])/2 - 
    S2[a5, a4, a2, a3, SP[a1, a1], n]/2 + S2[a5, a4, a2, SP[a1, a1], a3, n]/
     2 - S2[a5, a4, a2, SP[a1, a3], a1, n]/2 - 
    (S2[a1, n]*S2[a5, a4, a3, a1, a2, n])/2 - 
    S2[a5, a4, a3, a1, SP[a1, a2], n]/2 - 
    (S2[a1, n]*S2[a5, a4, a3, a2, a1, n])/2 - 
    S2[a5, a4, a3, a2, SP[a1, a1], n]/2 - S2[a5, a4, a3, SP[a1, a1], a2, n]/
     2 - S2[a5, a4, a3, SP[a1, a2], a1, n]/2 + 
    S2[a5, a4, SP[a1, a1], a2, a3, n]/2 + S2[a5, a4, SP[a1, a1], a3, a2, n]/
     2 - S2[a5, a4, SP[a1, a2], a1, a3, n]/2 - 
    S2[a5, a4, SP[a1, a2], a3, a1, n]/2 - S2[a5, a4, SP[a1, a3], a1, a2, n]/
     2 - S2[a5, a4, SP[a1, a3], a2, a1, n]/2 + 
    S2[a5, SP[a1, a1], a3, a4, a2, n]/2 + S2[a5, SP[a1, a1], a4, a2, a3, n]/
     2 + S2[a5, SP[a1, a1], a4, a3, a2, n]/2 - 
    S2[a5, SP[a1, a3], a1, a4, a2, n]/2 - S2[a5, SP[a1, a3], a4, a1, a2, n]/
     2 - S2[a5, SP[a1, a3], a4, a2, a1, n]/2 + 
    S2[a5, SP[a1, a4], a1, a2, a3, n]/2 + S2[a5, SP[a1, a4], a1, a3, a2, n]/
     2 + S2[a5, SP[a1, a4], a2, a1, a3, n]/2 - 
    S2[a5, SP[a1, a4], a2, a3, a1, n]/2 - S2[a5, SP[a1, a4], a3, a1, a2, n]/
     2 - S2[a5, SP[a1, a4], a3, a2, a1, n]/2 - S2[a5, SP[a2, a4], a1, a1, a3, 
     n] - S2[SP[a1, a1], a2, a4, a5, a3, n]/2 + 
    S2[SP[a1, a1], a5, a3, a4, a2, n]/2 + S2[SP[a1, a1], a5, a4, a2, a3, n]/
     2 + S2[SP[a1, a1], a5, a4, a3, a2, n]/2 + 
    S2[SP[a1, a2], a1, a4, a5, a3, n]/2 + S2[SP[a1, a2], a4, a1, a5, a3, n]/
     2 + S2[SP[a1, a2], a4, a5, a1, a3, n]/2 + 
    S2[SP[a1, a2], a4, a5, a3, a1, n]/2 - S2[SP[a1, a5], a1, a3, a4, a2, n]/
     2 - S2[SP[a1, a5], a1, a4, a2, a3, n]/2 - 
    S2[SP[a1, a5], a1, a4, a3, a2, n]/2 - S2[SP[a1, a5], a3, a1, a4, a2, n]/
     2 - S2[SP[a1, a5], a3, a4, a1, a2, n]/2 - 
    S2[SP[a1, a5], a3, a4, a2, a1, n]/2 - S2[SP[a1, a5], a4, a1, a2, a3, n]/
     2 - S2[SP[a1, a5], a4, a1, a3, a2, n]/2 - 
    S2[SP[a1, a5], a4, a2, a1, a3, n]/2 - S2[SP[a1, a5], a4, a2, a3, a1, n]/
     2 - S2[SP[a1, a5], a4, a3, a1, a2, n]/2 - 
    S2[SP[a1, a5], a4, a3, a2, a1, n]/2 + S2[a5, a3, a1, a1, a4, a2, n] + 
    S2[a5, a3, a1, a4, a1, a2, n] + S2[a5, a3, a1, a4, a2, a1, n] + 
    S2[a5, a3, a4, a1, a1, a2, n] + S2[a5, a3, a4, a1, a2, a1, n] + 
    S2[a5, a3, a4, a2, a1, a1, n] + S2[a5, a4, a2, a3, a1, a1, n] + 
    S2[a5, a4, a3, a1, a1, a2, n] + S2[a5, a4, a3, a1, a2, a1, n] + 
    S2[a5, a4, a3, a2, a1, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a2_, a5_, a1_, a1_, a3_, a4_, n_] :> 
  S2[a2, n]*S2[a5, a1, a1, a3, a4, n] + S2[a5, a1, a1, a3, SP[a2, a4], n] + 
    S2[a5, a1, a1, SP[a2, a3], a4, n] + S2[a5, a1, SP[a1, a2], a3, a4, n] + 
    S2[a5, SP[a1, a2], a1, a3, a4, n] + S2[SP[a2, a5], a1, a1, a3, a4, n] - 
    S2[a5, a1, a1, a2, a3, a4, n] - S2[a5, a1, a1, a3, a2, a4, n] - 
    S2[a5, a1, a1, a3, a4, a2, n] - S2[a5, a1, a2, a1, a3, a4, n] - 
    S2[a5, a2, a1, a1, a3, a4, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a2_, a5_, a1_, a1_, a4_, a3_, n_] :> 
  S2[a2, n]*S2[a5, a1, a1, a4, a3, n] + S2[a5, a1, a1, a4, SP[a2, a3], n] + 
    S2[a5, a1, a1, SP[a2, a4], a3, n] + S2[a5, a1, SP[a1, a2], a4, a3, n] + 
    S2[a5, SP[a1, a2], a1, a4, a3, n] + S2[SP[a2, a5], a1, a1, a4, a3, n] - 
    S2[a5, a1, a1, a2, a4, a3, n] - S2[a5, a1, a1, a4, a2, a3, n] - 
    S2[a5, a1, a1, a4, a3, a2, n] - S2[a5, a1, a2, a1, a4, a3, n] - 
    S2[a5, a2, a1, a1, a4, a3, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a2_, a5_, a1_, a3_, a1_, a4_, n_] :> 
  S2[a2, n]*S2[a5, a1, a3, a1, a4, n] + S2[a5, a1, a3, a1, SP[a2, a4], n] + 
    S2[a5, a1, a3, SP[a1, a2], a4, n] + S2[a5, a1, SP[a2, a3], a1, a4, n] + 
    S2[a5, SP[a1, a2], a3, a1, a4, n] + S2[SP[a2, a5], a1, a3, a1, a4, n] - 
    S2[a5, a1, a2, a3, a1, a4, n] - S2[a5, a1, a3, a1, a2, a4, n] - 
    S2[a5, a1, a3, a1, a4, a2, n] - S2[a5, a1, a3, a2, a1, a4, n] - 
    S2[a5, a2, a1, a3, a1, a4, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a2_, a5_, a1_, a3_, a4_, a1_, n_] :> 
  -(S2[a2, n]*S2[a1, a5, a1, a3, a4, n]) - S2[a1, a5, a1, a3, SP[a2, a4], 
     n] - S2[a1, a5, a1, SP[a2, a3], a4, n] - S2[a1, a5, SP[a1, a2], a3, a4, 
     n] - S2[a1, SP[a2, a5], a1, a3, a4, n] + 
    S2[a1, n]*S2[a2, a5, a1, a3, a4, n] + S2[a2, a5, a1, a3, SP[a1, a4], n] + 
    S2[a2, a5, a1, SP[a1, a3], a4, n] + S2[a2, a5, SP[a1, a1], a3, a4, n] + 
    S2[a2, SP[a1, a5], a1, a3, a4, n] - 2*S2[a2, n]*
     S2[a5, a1, a1, a3, a4, n] - 2*S2[a5, a1, a1, a3, SP[a2, a4], n] - 
    2*S2[a5, a1, a1, SP[a2, a3], a4, n] + 
    S2[a1, n]*S2[a5, a1, a2, a3, a4, n] + S2[a5, a1, a2, a3, SP[a1, a4], n] + 
    S2[a5, a1, a2, SP[a1, a3], a4, n] - S2[a2, n]*S2[a5, a1, a3, a1, a4, n] - 
    S2[a5, a1, a3, a1, SP[a2, a4], n] + S2[a1, n]*S2[a5, a1, a3, a2, a4, n] + 
    S2[a5, a1, a3, a2, SP[a1, a4], n] + S2[a1, n]*S2[a5, a1, a3, a4, a2, n] + 
    S2[a5, a1, a3, a4, SP[a1, a2], n] + S2[a5, a1, a3, SP[a1, a4], a2, n] - 
    S2[a5, a1, SP[a1, a2], a3, a4, n] + S2[a5, a1, SP[a1, a3], a2, a4, n] + 
    S2[a5, a1, SP[a1, a3], a4, a2, n] - S2[a5, a1, SP[a2, a3], a1, a4, n] + 
    S2[a1, n]*S2[a5, a2, a1, a3, a4, n] + S2[a5, a2, a1, a3, SP[a1, a4], n] + 
    S2[a5, a2, a1, SP[a1, a3], a4, n] + S2[a5, a2, SP[a1, a1], a3, a4, n] + 
    S2[a5, SP[a1, a1], a2, a3, a4, n] + S2[a5, SP[a1, a1], a3, a2, a4, n] + 
    S2[a5, SP[a1, a1], a3, a4, a2, n] - S2[a5, SP[a1, a2], a1, a3, a4, n] - 
    S2[a5, SP[a1, a2], a3, a1, a4, n] + S2[SP[a1, a5], a1, a2, a3, a4, n] + 
    S2[SP[a1, a5], a1, a3, a2, a4, n] + S2[SP[a1, a5], a1, a3, a4, a2, n] + 
    S2[SP[a1, a5], a2, a1, a3, a4, n] - 2*S2[SP[a2, a5], a1, a1, a3, a4, n] - 
    S2[SP[a2, a5], a1, a3, a1, a4, n] - S2[a5, a1, a2, a3, a4, a1, n] - 
    S2[a5, a1, a3, a2, a4, a1, n] - S2[a5, a1, a3, a4, a1, a2, n] - 
    S2[a5, a1, a3, a4, a2, a1, n] - S2[a5, a2, a1, a3, a4, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a2_, a5_, a1_, a4_, a1_, a3_, n_] :> 
  S2[a2, n]*S2[a5, a1, a4, a1, a3, n] + S2[a5, a1, a4, a1, SP[a2, a3], n] + 
    S2[a5, a1, a4, SP[a1, a2], a3, n] + S2[a5, a1, SP[a2, a4], a1, a3, n] + 
    S2[a5, SP[a1, a2], a4, a1, a3, n] + S2[SP[a2, a5], a1, a4, a1, a3, n] - 
    S2[a5, a1, a2, a4, a1, a3, n] - S2[a5, a1, a4, a1, a2, a3, n] - 
    S2[a5, a1, a4, a1, a3, a2, n] - S2[a5, a1, a4, a2, a1, a3, n] - 
    S2[a5, a2, a1, a4, a1, a3, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a2_, a5_, a1_, a4_, a3_, a1_, n_] :> 
  -(S2[a2, n]*S2[a1, a5, a1, a4, a3, n]) - S2[a1, a5, a1, a4, SP[a2, a3], 
     n] - S2[a1, a5, a1, SP[a2, a4], a3, n] - S2[a1, a5, SP[a1, a2], a4, a3, 
     n] - S2[a1, SP[a2, a5], a1, a4, a3, n] + 
    S2[a1, n]*S2[a2, a5, a1, a4, a3, n] + S2[a2, a5, a1, a4, SP[a1, a3], n] + 
    S2[a2, a5, a1, SP[a1, a4], a3, n] + S2[a2, a5, SP[a1, a1], a4, a3, n] + 
    S2[a2, SP[a1, a5], a1, a4, a3, n] - 2*S2[a2, n]*
     S2[a5, a1, a1, a4, a3, n] - 2*S2[a5, a1, a1, a4, SP[a2, a3], n] - 
    2*S2[a5, a1, a1, SP[a2, a4], a3, n] + 
    S2[a1, n]*S2[a5, a1, a2, a4, a3, n] + S2[a5, a1, a2, a4, SP[a1, a3], n] + 
    S2[a5, a1, a2, SP[a1, a4], a3, n] - S2[a2, n]*S2[a5, a1, a4, a1, a3, n] - 
    S2[a5, a1, a4, a1, SP[a2, a3], n] + S2[a1, n]*S2[a5, a1, a4, a2, a3, n] + 
    S2[a5, a1, a4, a2, SP[a1, a3], n] + S2[a1, n]*S2[a5, a1, a4, a3, a2, n] + 
    S2[a5, a1, a4, a3, SP[a1, a2], n] + S2[a5, a1, a4, SP[a1, a3], a2, n] - 
    S2[a5, a1, SP[a1, a2], a4, a3, n] + S2[a5, a1, SP[a1, a4], a2, a3, n] + 
    S2[a5, a1, SP[a1, a4], a3, a2, n] - S2[a5, a1, SP[a2, a4], a1, a3, n] + 
    S2[a1, n]*S2[a5, a2, a1, a4, a3, n] + S2[a5, a2, a1, a4, SP[a1, a3], n] + 
    S2[a5, a2, a1, SP[a1, a4], a3, n] + S2[a5, a2, SP[a1, a1], a4, a3, n] + 
    S2[a5, SP[a1, a1], a2, a4, a3, n] + S2[a5, SP[a1, a1], a4, a2, a3, n] + 
    S2[a5, SP[a1, a1], a4, a3, a2, n] - S2[a5, SP[a1, a2], a1, a4, a3, n] - 
    S2[a5, SP[a1, a2], a4, a1, a3, n] + S2[SP[a1, a5], a1, a2, a4, a3, n] + 
    S2[SP[a1, a5], a1, a4, a2, a3, n] + S2[SP[a1, a5], a1, a4, a3, a2, n] + 
    S2[SP[a1, a5], a2, a1, a4, a3, n] - 2*S2[SP[a2, a5], a1, a1, a4, a3, n] - 
    S2[SP[a2, a5], a1, a4, a1, a3, n] - S2[a5, a1, a2, a4, a3, a1, n] - 
    S2[a5, a1, a4, a2, a3, a1, n] - S2[a5, a1, a4, a3, a1, a2, n] - 
    S2[a5, a1, a4, a3, a2, a1, n] - S2[a5, a2, a1, a4, a3, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a2_, a5_, a3_, a1_, a1_, a4_, n_] :> 
  S2[a2, n]*S2[a5, a3, a1, a1, a4, n] + S2[a5, a3, a1, a1, SP[a2, a4], n] + 
    S2[a5, a3, a1, SP[a1, a2], a4, n] + S2[a5, a3, SP[a1, a2], a1, a4, n] + 
    S2[a5, SP[a2, a3], a1, a1, a4, n] + S2[SP[a2, a5], a3, a1, a1, a4, n] - 
    S2[a5, a2, a3, a1, a1, a4, n] - S2[a5, a3, a1, a1, a2, a4, n] - 
    S2[a5, a3, a1, a1, a4, a2, n] - S2[a5, a3, a1, a2, a1, a4, n] - 
    S2[a5, a3, a2, a1, a1, a4, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a2_, a5_, a3_, a1_, a4_, a1_, n_] :> 
  -(S2[a2, n]*S2[a1, a5, a3, a1, a4, n]) - S2[a1, a5, a3, a1, SP[a2, a4], 
     n] - S2[a1, a5, a3, SP[a1, a2], a4, n] - S2[a1, a5, SP[a2, a3], a1, a4, 
     n] - S2[a1, SP[a2, a5], a3, a1, a4, n] + 
    S2[a1, n]*S2[a2, a5, a3, a1, a4, n] + S2[a2, a5, a3, a1, SP[a1, a4], n] + 
    S2[a2, a5, a3, SP[a1, a1], a4, n] + S2[a2, a5, SP[a1, a3], a1, a4, n] + 
    S2[a2, SP[a1, a5], a3, a1, a4, n] - S2[a2, n]*S2[a5, a1, a3, a1, a4, n] - 
    S2[a5, a1, a3, a1, SP[a2, a4], n] - S2[a5, a1, a3, SP[a1, a2], a4, n] - 
    S2[a5, a1, SP[a2, a3], a1, a4, n] + S2[a1, n]*S2[a5, a2, a3, a1, a4, n] + 
    S2[a5, a2, a3, a1, SP[a1, a4], n] + S2[a5, a2, a3, SP[a1, a1], a4, n] + 
    S2[a5, a2, SP[a1, a3], a1, a4, n] - 2*S2[a2, n]*
     S2[a5, a3, a1, a1, a4, n] - 2*S2[a5, a3, a1, a1, SP[a2, a4], n] + 
    S2[a1, n]*S2[a5, a3, a1, a2, a4, n] + S2[a5, a3, a1, a2, SP[a1, a4], n] + 
    S2[a1, n]*S2[a5, a3, a1, a4, a2, n] + S2[a5, a3, a1, a4, SP[a1, a2], n] - 
    S2[a5, a3, a1, SP[a1, a2], a4, n] + S2[a5, a3, a1, SP[a1, a4], a2, n] + 
    S2[a1, n]*S2[a5, a3, a2, a1, a4, n] + S2[a5, a3, a2, a1, SP[a1, a4], n] + 
    S2[a5, a3, a2, SP[a1, a1], a4, n] + S2[a5, a3, SP[a1, a1], a2, a4, n] + 
    S2[a5, a3, SP[a1, a1], a4, a2, n] - S2[a5, a3, SP[a1, a2], a1, a4, n] + 
    S2[a5, SP[a1, a3], a1, a2, a4, n] + S2[a5, SP[a1, a3], a1, a4, a2, n] + 
    S2[a5, SP[a1, a3], a2, a1, a4, n] - 2*S2[a5, SP[a2, a3], a1, a1, a4, n] + 
    S2[SP[a1, a5], a2, a3, a1, a4, n] + S2[SP[a1, a5], a3, a1, a2, a4, n] + 
    S2[SP[a1, a5], a3, a1, a4, a2, n] + S2[SP[a1, a5], a3, a2, a1, a4, n] - 
    S2[SP[a2, a5], a1, a3, a1, a4, n] - 2*S2[SP[a2, a5], a3, a1, a1, a4, n] - 
    S2[a5, a2, a3, a1, a4, a1, n] - S2[a5, a3, a1, a2, a4, a1, n] - 
    S2[a5, a3, a1, a4, a1, a2, n] - S2[a5, a3, a1, a4, a2, a1, n] - 
    S2[a5, a3, a2, a1, a4, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a2_, a5_, a3_, a4_, a1_, a1_, n_] :> 
  S2[a2, n]*S2[a1, a1, a5, a3, a4, n] + S2[a1, a1, a5, a3, SP[a2, a4], n] + 
    S2[a1, a1, a5, SP[a2, a3], a4, n] + S2[a1, a1, SP[a2, a5], a3, a4, n] - 
    (S2[a1, n]*S2[a1, a2, a5, a3, a4, n])/2 - 
    S2[a1, a2, a5, a3, SP[a1, a4], n]/2 - S2[a1, a2, a5, SP[a1, a3], a4, n]/
     2 - S2[a1, a2, SP[a1, a5], a3, a4, n]/2 + 
    S2[a2, n]*S2[a1, a5, a1, a3, a4, n] + S2[a1, a5, a1, a3, SP[a2, a4], n] + 
    S2[a1, a5, a1, SP[a2, a3], a4, n] - (S2[a1, n]*S2[a1, a5, a2, a3, a4, n])/
     2 - S2[a1, a5, a2, a3, SP[a1, a4], n]/2 - 
    S2[a1, a5, a2, SP[a1, a3], a4, n]/2 + 
    S2[a2, n]*S2[a1, a5, a3, a1, a4, n] + S2[a1, a5, a3, a1, SP[a2, a4], n] - 
    (S2[a1, n]*S2[a1, a5, a3, a2, a4, n])/2 - 
    S2[a1, a5, a3, a2, SP[a1, a4], n]/2 - 
    (S2[a1, n]*S2[a1, a5, a3, a4, a2, n])/2 - 
    S2[a1, a5, a3, a4, SP[a1, a2], n]/2 + S2[a1, a5, a3, SP[a1, a2], a4, n]/
     2 - S2[a1, a5, a3, SP[a1, a4], a2, n]/2 + 
    S2[a1, a5, SP[a1, a2], a3, a4, n]/2 - S2[a1, a5, SP[a1, a3], a2, a4, n]/
     2 - S2[a1, a5, SP[a1, a3], a4, a2, n]/2 + S2[a1, a5, SP[a2, a3], a1, a4, 
     n] + S2[a1, SP[a1, a2], a5, a3, a4, n]/2 - 
    S2[a1, SP[a1, a5], a2, a3, a4, n]/2 - S2[a1, SP[a1, a5], a3, a2, a4, n]/
     2 - S2[a1, SP[a1, a5], a3, a4, a2, n]/2 + S2[a1, SP[a2, a5], a1, a3, a4, 
     n] + S2[a1, SP[a2, a5], a3, a1, a4, n] - 
    (S2[a1, n]*S2[a2, a1, a5, a3, a4, n])/2 - 
    S2[a2, a1, a5, a3, SP[a1, a4], n]/2 - S2[a2, a1, a5, SP[a1, a3], a4, n]/
     2 - S2[a2, a1, SP[a1, a5], a3, a4, n]/2 - 
    (S2[a1, n]*S2[a2, a5, a1, a3, a4, n])/2 - 
    S2[a2, a5, a1, a3, SP[a1, a4], n]/2 - S2[a2, a5, a1, SP[a1, a3], a4, n]/
     2 - (S2[a1, n]*S2[a2, a5, a3, a1, a4, n])/2 - 
    S2[a2, a5, a3, a1, SP[a1, a4], n]/2 + 
    (S2[a1, n]*S2[a2, a5, a3, a4, a1, n])/2 + 
    S2[a2, a5, a3, a4, SP[a1, a1], n]/2 - S2[a2, a5, a3, SP[a1, a1], a4, n]/
     2 + S2[a2, a5, a3, SP[a1, a4], a1, n]/2 - 
    S2[a2, a5, SP[a1, a1], a3, a4, n]/2 - S2[a2, a5, SP[a1, a3], a1, a4, n]/
     2 + S2[a2, a5, SP[a1, a3], a4, a1, n]/2 - 
    S2[a2, SP[a1, a1], a5, a3, a4, n]/2 - S2[a2, SP[a1, a5], a1, a3, a4, n]/
     2 - S2[a2, SP[a1, a5], a3, a1, a4, n]/2 + 
    S2[a2, SP[a1, a5], a3, a4, a1, n]/2 + 
    S2[a2, n]*S2[a5, a1, a1, a3, a4, n] + S2[a5, a1, a1, a3, SP[a2, a4], n] + 
    S2[a5, a1, a1, SP[a2, a3], a4, n] - (S2[a1, n]*S2[a5, a1, a2, a3, a4, n])/
     2 - S2[a5, a1, a2, a3, SP[a1, a4], n]/2 - 
    S2[a5, a1, a2, SP[a1, a3], a4, n]/2 + 
    S2[a2, n]*S2[a5, a1, a3, a1, a4, n] + S2[a5, a1, a3, a1, SP[a2, a4], n] - 
    (S2[a1, n]*S2[a5, a1, a3, a2, a4, n])/2 - 
    S2[a5, a1, a3, a2, SP[a1, a4], n]/2 - 
    (S2[a1, n]*S2[a5, a1, a3, a4, a2, n])/2 - 
    S2[a5, a1, a3, a4, SP[a1, a2], n]/2 + S2[a5, a1, a3, SP[a1, a2], a4, n]/
     2 - S2[a5, a1, a3, SP[a1, a4], a2, n]/2 + 
    S2[a5, a1, SP[a1, a2], a3, a4, n]/2 - S2[a5, a1, SP[a1, a3], a2, a4, n]/
     2 - S2[a5, a1, SP[a1, a3], a4, a2, n]/2 + S2[a5, a1, SP[a2, a3], a1, a4, 
     n] - (S2[a1, n]*S2[a5, a2, a1, a3, a4, n])/2 - 
    S2[a5, a2, a1, a3, SP[a1, a4], n]/2 - S2[a5, a2, a1, SP[a1, a3], a4, n]/
     2 - (S2[a1, n]*S2[a5, a2, a3, a1, a4, n])/2 - 
    S2[a5, a2, a3, a1, SP[a1, a4], n]/2 + 
    (S2[a1, n]*S2[a5, a2, a3, a4, a1, n])/2 + 
    S2[a5, a2, a3, a4, SP[a1, a1], n]/2 - S2[a5, a2, a3, SP[a1, a1], a4, n]/
     2 + S2[a5, a2, a3, SP[a1, a4], a1, n]/2 - 
    S2[a5, a2, SP[a1, a1], a3, a4, n]/2 - S2[a5, a2, SP[a1, a3], a1, a4, n]/
     2 + S2[a5, a2, SP[a1, a3], a4, a1, n]/2 + 
    S2[a2, n]*S2[a5, a3, a1, a1, a4, n] + S2[a5, a3, a1, a1, SP[a2, a4], n] - 
    (S2[a1, n]*S2[a5, a3, a1, a2, a4, n])/2 - 
    S2[a5, a3, a1, a2, SP[a1, a4], n]/2 - 
    (S2[a1, n]*S2[a5, a3, a1, a4, a2, n])/2 - 
    S2[a5, a3, a1, a4, SP[a1, a2], n]/2 + S2[a5, a3, a1, SP[a1, a2], a4, n]/
     2 - S2[a5, a3, a1, SP[a1, a4], a2, n]/2 - 
    (S2[a1, n]*S2[a5, a3, a2, a1, a4, n])/2 - 
    S2[a5, a3, a2, a1, SP[a1, a4], n]/2 + 
    (S2[a1, n]*S2[a5, a3, a2, a4, a1, n])/2 + 
    S2[a5, a3, a2, a4, SP[a1, a1], n]/2 - S2[a5, a3, a2, SP[a1, a1], a4, n]/
     2 + S2[a5, a3, a2, SP[a1, a4], a1, n]/2 + 
    (S2[a1, n]*S2[a5, a3, a4, a1, a2, n])/2 + 
    S2[a5, a3, a4, a1, SP[a1, a2], n]/2 + 
    (S2[a1, n]*S2[a5, a3, a4, a2, a1, n])/2 + 
    S2[a5, a3, a4, a2, SP[a1, a1], n]/2 + S2[a5, a3, a4, SP[a1, a1], a2, n]/
     2 + S2[a5, a3, a4, SP[a1, a2], a1, n]/2 - 
    S2[a5, a3, SP[a1, a1], a2, a4, n]/2 - S2[a5, a3, SP[a1, a1], a4, a2, n]/
     2 + S2[a5, a3, SP[a1, a2], a1, a4, n]/2 + 
    S2[a5, a3, SP[a1, a2], a4, a1, n]/2 + S2[a5, a3, SP[a1, a4], a1, a2, n]/
     2 + S2[a5, a3, SP[a1, a4], a2, a1, n]/2 - 
    S2[a5, SP[a1, a1], a2, a3, a4, n]/2 - S2[a5, SP[a1, a1], a3, a2, a4, n]/
     2 - S2[a5, SP[a1, a1], a3, a4, a2, n]/2 + 
    S2[a5, SP[a1, a2], a1, a3, a4, n]/2 + S2[a5, SP[a1, a2], a3, a1, a4, n]/
     2 + S2[a5, SP[a1, a2], a3, a4, a1, n]/2 - 
    S2[a5, SP[a1, a3], a1, a2, a4, n]/2 - S2[a5, SP[a1, a3], a1, a4, a2, n]/
     2 - S2[a5, SP[a1, a3], a2, a1, a4, n]/2 + 
    S2[a5, SP[a1, a3], a2, a4, a1, n]/2 + S2[a5, SP[a1, a3], a4, a1, a2, n]/
     2 + S2[a5, SP[a1, a3], a4, a2, a1, n]/2 + S2[a5, SP[a2, a3], a1, a1, a4, 
     n] - S2[SP[a1, a1], a2, a5, a3, a4, n]/2 - 
    S2[SP[a1, a1], a5, a2, a3, a4, n]/2 - S2[SP[a1, a1], a5, a3, a2, a4, n]/
     2 - S2[SP[a1, a1], a5, a3, a4, a2, n]/2 + 
    S2[SP[a1, a2], a1, a5, a3, a4, n]/2 + S2[SP[a1, a2], a5, a1, a3, a4, n]/
     2 + S2[SP[a1, a2], a5, a3, a1, a4, n]/2 + 
    S2[SP[a1, a2], a5, a3, a4, a1, n]/2 - S2[SP[a1, a5], a1, a2, a3, a4, n]/
     2 - S2[SP[a1, a5], a1, a3, a2, a4, n]/2 - 
    S2[SP[a1, a5], a1, a3, a4, a2, n]/2 - S2[SP[a1, a5], a2, a1, a3, a4, n]/
     2 - S2[SP[a1, a5], a2, a3, a1, a4, n]/2 + 
    S2[SP[a1, a5], a2, a3, a4, a1, n]/2 - S2[SP[a1, a5], a3, a1, a2, a4, n]/
     2 - S2[SP[a1, a5], a3, a1, a4, a2, n]/2 - 
    S2[SP[a1, a5], a3, a2, a1, a4, n]/2 + S2[SP[a1, a5], a3, a2, a4, a1, n]/
     2 + S2[SP[a1, a5], a3, a4, a1, a2, n]/2 + 
    S2[SP[a1, a5], a3, a4, a2, a1, n]/2 + S2[SP[a2, a5], a1, a1, a3, a4, n] + 
    S2[SP[a2, a5], a1, a3, a1, a4, n] + S2[SP[a2, a5], a3, a1, a1, a4, n] - 
    S2[a5, a2, a3, a4, a1, a1, n] - S2[a5, a3, a2, a4, a1, a1, n] - 
    S2[a5, a3, a4, a1, a1, a2, n] - S2[a5, a3, a4, a1, a2, a1, n] - 
    S2[a5, a3, a4, a2, a1, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a2_, a5_, a4_, a1_, a1_, a3_, n_] :> 
  S2[a2, n]*S2[a5, a4, a1, a1, a3, n] + S2[a5, a4, a1, a1, SP[a2, a3], n] + 
    S2[a5, a4, a1, SP[a1, a2], a3, n] + S2[a5, a4, SP[a1, a2], a1, a3, n] + 
    S2[a5, SP[a2, a4], a1, a1, a3, n] + S2[SP[a2, a5], a4, a1, a1, a3, n] - 
    S2[a5, a2, a4, a1, a1, a3, n] - S2[a5, a4, a1, a1, a2, a3, n] - 
    S2[a5, a4, a1, a1, a3, a2, n] - S2[a5, a4, a1, a2, a1, a3, n] - 
    S2[a5, a4, a2, a1, a1, a3, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a2_, a5_, a4_, a1_, a3_, a1_, n_] :> 
  -(S2[a2, n]*S2[a1, a5, a4, a1, a3, n]) - S2[a1, a5, a4, a1, SP[a2, a3], 
     n] - S2[a1, a5, a4, SP[a1, a2], a3, n] - S2[a1, a5, SP[a2, a4], a1, a3, 
     n] - S2[a1, SP[a2, a5], a4, a1, a3, n] + 
    S2[a1, n]*S2[a2, a5, a4, a1, a3, n] + S2[a2, a5, a4, a1, SP[a1, a3], n] + 
    S2[a2, a5, a4, SP[a1, a1], a3, n] + S2[a2, a5, SP[a1, a4], a1, a3, n] + 
    S2[a2, SP[a1, a5], a4, a1, a3, n] - S2[a2, n]*S2[a5, a1, a4, a1, a3, n] - 
    S2[a5, a1, a4, a1, SP[a2, a3], n] - S2[a5, a1, a4, SP[a1, a2], a3, n] - 
    S2[a5, a1, SP[a2, a4], a1, a3, n] + S2[a1, n]*S2[a5, a2, a4, a1, a3, n] + 
    S2[a5, a2, a4, a1, SP[a1, a3], n] + S2[a5, a2, a4, SP[a1, a1], a3, n] + 
    S2[a5, a2, SP[a1, a4], a1, a3, n] - 2*S2[a2, n]*
     S2[a5, a4, a1, a1, a3, n] - 2*S2[a5, a4, a1, a1, SP[a2, a3], n] + 
    S2[a1, n]*S2[a5, a4, a1, a2, a3, n] + S2[a5, a4, a1, a2, SP[a1, a3], n] + 
    S2[a1, n]*S2[a5, a4, a1, a3, a2, n] + S2[a5, a4, a1, a3, SP[a1, a2], n] - 
    S2[a5, a4, a1, SP[a1, a2], a3, n] + S2[a5, a4, a1, SP[a1, a3], a2, n] + 
    S2[a1, n]*S2[a5, a4, a2, a1, a3, n] + S2[a5, a4, a2, a1, SP[a1, a3], n] + 
    S2[a5, a4, a2, SP[a1, a1], a3, n] + S2[a5, a4, SP[a1, a1], a2, a3, n] + 
    S2[a5, a4, SP[a1, a1], a3, a2, n] - S2[a5, a4, SP[a1, a2], a1, a3, n] + 
    S2[a5, SP[a1, a4], a1, a2, a3, n] + S2[a5, SP[a1, a4], a1, a3, a2, n] + 
    S2[a5, SP[a1, a4], a2, a1, a3, n] - 2*S2[a5, SP[a2, a4], a1, a1, a3, n] + 
    S2[SP[a1, a5], a2, a4, a1, a3, n] + S2[SP[a1, a5], a4, a1, a2, a3, n] + 
    S2[SP[a1, a5], a4, a1, a3, a2, n] + S2[SP[a1, a5], a4, a2, a1, a3, n] - 
    S2[SP[a2, a5], a1, a4, a1, a3, n] - 2*S2[SP[a2, a5], a4, a1, a1, a3, n] - 
    S2[a5, a2, a4, a1, a3, a1, n] - S2[a5, a4, a1, a2, a3, a1, n] - 
    S2[a5, a4, a1, a3, a1, a2, n] - S2[a5, a4, a1, a3, a2, a1, n] - 
    S2[a5, a4, a2, a1, a3, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a2_, a5_, a4_, a3_, a1_, a1_, n_] :> 
  S2[a2, n]*S2[a1, a1, a5, a4, a3, n] + S2[a1, a1, a5, a4, SP[a2, a3], n] + 
    S2[a1, a1, a5, SP[a2, a4], a3, n] + S2[a1, a1, SP[a2, a5], a4, a3, n] - 
    (S2[a1, n]*S2[a1, a2, a5, a4, a3, n])/2 - 
    S2[a1, a2, a5, a4, SP[a1, a3], n]/2 - S2[a1, a2, a5, SP[a1, a4], a3, n]/
     2 - S2[a1, a2, SP[a1, a5], a4, a3, n]/2 + 
    S2[a2, n]*S2[a1, a5, a1, a4, a3, n] + S2[a1, a5, a1, a4, SP[a2, a3], n] + 
    S2[a1, a5, a1, SP[a2, a4], a3, n] - (S2[a1, n]*S2[a1, a5, a2, a4, a3, n])/
     2 - S2[a1, a5, a2, a4, SP[a1, a3], n]/2 - 
    S2[a1, a5, a2, SP[a1, a4], a3, n]/2 + 
    S2[a2, n]*S2[a1, a5, a4, a1, a3, n] + S2[a1, a5, a4, a1, SP[a2, a3], n] - 
    (S2[a1, n]*S2[a1, a5, a4, a2, a3, n])/2 - 
    S2[a1, a5, a4, a2, SP[a1, a3], n]/2 - 
    (S2[a1, n]*S2[a1, a5, a4, a3, a2, n])/2 - 
    S2[a1, a5, a4, a3, SP[a1, a2], n]/2 + S2[a1, a5, a4, SP[a1, a2], a3, n]/
     2 - S2[a1, a5, a4, SP[a1, a3], a2, n]/2 + 
    S2[a1, a5, SP[a1, a2], a4, a3, n]/2 - S2[a1, a5, SP[a1, a4], a2, a3, n]/
     2 - S2[a1, a5, SP[a1, a4], a3, a2, n]/2 + S2[a1, a5, SP[a2, a4], a1, a3, 
     n] + S2[a1, SP[a1, a2], a5, a4, a3, n]/2 - 
    S2[a1, SP[a1, a5], a2, a4, a3, n]/2 - S2[a1, SP[a1, a5], a4, a2, a3, n]/
     2 - S2[a1, SP[a1, a5], a4, a3, a2, n]/2 + S2[a1, SP[a2, a5], a1, a4, a3, 
     n] + S2[a1, SP[a2, a5], a4, a1, a3, n] - 
    (S2[a1, n]*S2[a2, a1, a5, a4, a3, n])/2 - 
    S2[a2, a1, a5, a4, SP[a1, a3], n]/2 - S2[a2, a1, a5, SP[a1, a4], a3, n]/
     2 - S2[a2, a1, SP[a1, a5], a4, a3, n]/2 - 
    (S2[a1, n]*S2[a2, a5, a1, a4, a3, n])/2 - 
    S2[a2, a5, a1, a4, SP[a1, a3], n]/2 - S2[a2, a5, a1, SP[a1, a4], a3, n]/
     2 - (S2[a1, n]*S2[a2, a5, a4, a1, a3, n])/2 - 
    S2[a2, a5, a4, a1, SP[a1, a3], n]/2 + 
    (S2[a1, n]*S2[a2, a5, a4, a3, a1, n])/2 + 
    S2[a2, a5, a4, a3, SP[a1, a1], n]/2 - S2[a2, a5, a4, SP[a1, a1], a3, n]/
     2 + S2[a2, a5, a4, SP[a1, a3], a1, n]/2 - 
    S2[a2, a5, SP[a1, a1], a4, a3, n]/2 - S2[a2, a5, SP[a1, a4], a1, a3, n]/
     2 + S2[a2, a5, SP[a1, a4], a3, a1, n]/2 - 
    S2[a2, SP[a1, a1], a5, a4, a3, n]/2 - S2[a2, SP[a1, a5], a1, a4, a3, n]/
     2 - S2[a2, SP[a1, a5], a4, a1, a3, n]/2 + 
    S2[a2, SP[a1, a5], a4, a3, a1, n]/2 + 
    S2[a2, n]*S2[a5, a1, a1, a4, a3, n] + S2[a5, a1, a1, a4, SP[a2, a3], n] + 
    S2[a5, a1, a1, SP[a2, a4], a3, n] - (S2[a1, n]*S2[a5, a1, a2, a4, a3, n])/
     2 - S2[a5, a1, a2, a4, SP[a1, a3], n]/2 - 
    S2[a5, a1, a2, SP[a1, a4], a3, n]/2 + 
    S2[a2, n]*S2[a5, a1, a4, a1, a3, n] + S2[a5, a1, a4, a1, SP[a2, a3], n] - 
    (S2[a1, n]*S2[a5, a1, a4, a2, a3, n])/2 - 
    S2[a5, a1, a4, a2, SP[a1, a3], n]/2 - 
    (S2[a1, n]*S2[a5, a1, a4, a3, a2, n])/2 - 
    S2[a5, a1, a4, a3, SP[a1, a2], n]/2 + S2[a5, a1, a4, SP[a1, a2], a3, n]/
     2 - S2[a5, a1, a4, SP[a1, a3], a2, n]/2 + 
    S2[a5, a1, SP[a1, a2], a4, a3, n]/2 - S2[a5, a1, SP[a1, a4], a2, a3, n]/
     2 - S2[a5, a1, SP[a1, a4], a3, a2, n]/2 + S2[a5, a1, SP[a2, a4], a1, a3, 
     n] - (S2[a1, n]*S2[a5, a2, a1, a4, a3, n])/2 - 
    S2[a5, a2, a1, a4, SP[a1, a3], n]/2 - S2[a5, a2, a1, SP[a1, a4], a3, n]/
     2 - (S2[a1, n]*S2[a5, a2, a4, a1, a3, n])/2 - 
    S2[a5, a2, a4, a1, SP[a1, a3], n]/2 + 
    (S2[a1, n]*S2[a5, a2, a4, a3, a1, n])/2 + 
    S2[a5, a2, a4, a3, SP[a1, a1], n]/2 - S2[a5, a2, a4, SP[a1, a1], a3, n]/
     2 + S2[a5, a2, a4, SP[a1, a3], a1, n]/2 - 
    S2[a5, a2, SP[a1, a1], a4, a3, n]/2 - S2[a5, a2, SP[a1, a4], a1, a3, n]/
     2 + S2[a5, a2, SP[a1, a4], a3, a1, n]/2 + 
    S2[a2, n]*S2[a5, a4, a1, a1, a3, n] + S2[a5, a4, a1, a1, SP[a2, a3], n] - 
    (S2[a1, n]*S2[a5, a4, a1, a2, a3, n])/2 - 
    S2[a5, a4, a1, a2, SP[a1, a3], n]/2 - 
    (S2[a1, n]*S2[a5, a4, a1, a3, a2, n])/2 - 
    S2[a5, a4, a1, a3, SP[a1, a2], n]/2 + S2[a5, a4, a1, SP[a1, a2], a3, n]/
     2 - S2[a5, a4, a1, SP[a1, a3], a2, n]/2 - 
    (S2[a1, n]*S2[a5, a4, a2, a1, a3, n])/2 - 
    S2[a5, a4, a2, a1, SP[a1, a3], n]/2 + 
    (S2[a1, n]*S2[a5, a4, a2, a3, a1, n])/2 + 
    S2[a5, a4, a2, a3, SP[a1, a1], n]/2 - S2[a5, a4, a2, SP[a1, a1], a3, n]/
     2 + S2[a5, a4, a2, SP[a1, a3], a1, n]/2 + 
    (S2[a1, n]*S2[a5, a4, a3, a1, a2, n])/2 + 
    S2[a5, a4, a3, a1, SP[a1, a2], n]/2 + 
    (S2[a1, n]*S2[a5, a4, a3, a2, a1, n])/2 + 
    S2[a5, a4, a3, a2, SP[a1, a1], n]/2 + S2[a5, a4, a3, SP[a1, a1], a2, n]/
     2 + S2[a5, a4, a3, SP[a1, a2], a1, n]/2 - 
    S2[a5, a4, SP[a1, a1], a2, a3, n]/2 - S2[a5, a4, SP[a1, a1], a3, a2, n]/
     2 + S2[a5, a4, SP[a1, a2], a1, a3, n]/2 + 
    S2[a5, a4, SP[a1, a2], a3, a1, n]/2 + S2[a5, a4, SP[a1, a3], a1, a2, n]/
     2 + S2[a5, a4, SP[a1, a3], a2, a1, n]/2 - 
    S2[a5, SP[a1, a1], a2, a4, a3, n]/2 - S2[a5, SP[a1, a1], a4, a2, a3, n]/
     2 - S2[a5, SP[a1, a1], a4, a3, a2, n]/2 + 
    S2[a5, SP[a1, a2], a1, a4, a3, n]/2 + S2[a5, SP[a1, a2], a4, a1, a3, n]/
     2 + S2[a5, SP[a1, a2], a4, a3, a1, n]/2 - 
    S2[a5, SP[a1, a4], a1, a2, a3, n]/2 - S2[a5, SP[a1, a4], a1, a3, a2, n]/
     2 - S2[a5, SP[a1, a4], a2, a1, a3, n]/2 + 
    S2[a5, SP[a1, a4], a2, a3, a1, n]/2 + S2[a5, SP[a1, a4], a3, a1, a2, n]/
     2 + S2[a5, SP[a1, a4], a3, a2, a1, n]/2 + S2[a5, SP[a2, a4], a1, a1, a3, 
     n] - S2[SP[a1, a1], a2, a5, a4, a3, n]/2 - 
    S2[SP[a1, a1], a5, a2, a4, a3, n]/2 - S2[SP[a1, a1], a5, a4, a2, a3, n]/
     2 - S2[SP[a1, a1], a5, a4, a3, a2, n]/2 + 
    S2[SP[a1, a2], a1, a5, a4, a3, n]/2 + S2[SP[a1, a2], a5, a1, a4, a3, n]/
     2 + S2[SP[a1, a2], a5, a4, a1, a3, n]/2 + 
    S2[SP[a1, a2], a5, a4, a3, a1, n]/2 - S2[SP[a1, a5], a1, a2, a4, a3, n]/
     2 - S2[SP[a1, a5], a1, a4, a2, a3, n]/2 - 
    S2[SP[a1, a5], a1, a4, a3, a2, n]/2 - S2[SP[a1, a5], a2, a1, a4, a3, n]/
     2 - S2[SP[a1, a5], a2, a4, a1, a3, n]/2 + 
    S2[SP[a1, a5], a2, a4, a3, a1, n]/2 - S2[SP[a1, a5], a4, a1, a2, a3, n]/
     2 - S2[SP[a1, a5], a4, a1, a3, a2, n]/2 - 
    S2[SP[a1, a5], a4, a2, a1, a3, n]/2 + S2[SP[a1, a5], a4, a2, a3, a1, n]/
     2 + S2[SP[a1, a5], a4, a3, a1, a2, n]/2 + 
    S2[SP[a1, a5], a4, a3, a2, a1, n]/2 + S2[SP[a2, a5], a1, a1, a4, a3, n] + 
    S2[SP[a2, a5], a1, a4, a1, a3, n] + S2[SP[a2, a5], a4, a1, a1, a3, n] - 
    S2[a5, a2, a4, a3, a1, a1, n] - S2[a5, a4, a2, a3, a1, a1, n] - 
    S2[a5, a4, a3, a1, a1, a2, n] - S2[a5, a4, a3, a1, a2, a1, n] - 
    S2[a5, a4, a3, a2, a1, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a3_, a1_, a1_, a2_, a4_, a5_, n_] :> 
  S2[a1, a1, a3, n]*S2[a2, a4, a5, n] + S2[SP[a1, a2], SP[a1, a4], 
     SP[a3, a5], n] + S2[a4, a5, n]*S2[a1, a1, a2, a3, n] + 
    S2[a4, a5, n]*S2[a1, a1, a3, a2, n] - S2[a1, a1, SP[a2, a4], SP[a3, a5], 
     n] - S2[a1, a1, SP[a3, a4], SP[a2, a5], n] + 
    S2[a4, a5, n]*S2[a1, a2, a1, a3, n] - S2[a1, a3, n]*
     S2[a1, a2, a4, a5, n] - S2[a1, a2, SP[a1, a4], SP[a3, a5], n] - 
    S2[a1, SP[a1, a4], a2, SP[a3, a5], n] - S2[a1, SP[a1, a4], a3, 
     SP[a2, a5], n] - S2[a1, SP[a1, a4], SP[a2, a5], a3, n] - 
    S2[a1, SP[a1, a4], SP[a3, a5], a2, n] - S2[a1, SP[a2, a4], a1, 
     SP[a3, a5], n] - S2[a1, SP[a2, a4], SP[a1, a5], a3, n] - 
    S2[a2, a1, SP[a1, a4], SP[a3, a5], n] - S2[a2, SP[a1, a4], a1, 
     SP[a3, a5], n] - S2[a2, SP[a1, a4], SP[a1, a5], a3, n] + 
    S2[SP[a1, a1], a2, a4, SP[a3, a5], n] + S2[SP[a1, a1], a2, SP[a3, a4], 
     a5, n] + S2[SP[a1, a1], SP[a2, a3], a4, a5, n] - 
    S2[SP[a1, a2], a1, a4, SP[a3, a5], n] - S2[SP[a1, a2], a1, SP[a3, a4], 
     a5, n] - S2[SP[a1, a2], a4, a1, SP[a3, a5], n] - 
    S2[SP[a1, a2], a4, SP[a1, a5], a3, n] - S2[SP[a1, a2], SP[a1, a4], a3, 
     a5, n] - S2[SP[a1, a2], SP[a1, a4], a5, a3, n] - 
    S2[SP[a1, a4], a1, a2, SP[a3, a5], n] - S2[SP[a1, a4], a1, a3, 
     SP[a2, a5], n] - S2[SP[a1, a4], a1, SP[a2, a5], a3, n] - 
    S2[SP[a1, a4], a1, SP[a3, a5], a2, n] - S2[SP[a1, a4], a2, a1, 
     SP[a3, a5], n] - S2[SP[a1, a4], a2, SP[a1, a5], a3, n] - 
    S2[SP[a1, a4], SP[a1, a5], a2, a3, n] - S2[SP[a1, a4], SP[a1, a5], a3, 
     a2, n] - S2[SP[a1, a4], SP[a2, a5], a1, a3, n] + 
    S2[a5, n]*S2[a1, a1, a2, a3, a4, n] - 
    S2[a4, n]*S2[a1, a1, a2, a3, a5, n] + 
    S2[a5, n]*S2[a1, a1, a2, a4, a3, n] + 
    S2[a3, n]*S2[a1, a1, a2, a4, a5, n] + 
    2*S2[a1, a1, a2, a4, SP[a3, a5], n] - 
    S2[a4, n]*S2[a1, a1, a2, a5, a3, n] - S2[a1, a1, a2, a5, SP[a3, a4], n] + 
    S2[a1, a1, a2, SP[a3, a5], a4, n] + S2[a5, n]*S2[a1, a1, a3, a2, a4, n] - 
    S2[a4, n]*S2[a1, a1, a3, a2, a5, n] + 
    S2[a5, n]*S2[a1, a1, a3, a4, a2, n] - 
    S2[a2, n]*S2[a1, a1, a3, a4, a5, n] + S2[a1, a1, a3, a4, SP[a2, a5], n] - 
    S2[a4, n]*S2[a1, a1, a3, a5, a2, n] - S2[a1, a1, a3, a5, SP[a2, a4], n] - 
    S2[a1, a1, a3, SP[a2, a4], a5, n] + S2[a1, a1, a3, SP[a2, a5], a4, n] + 
    S2[a5, n]*S2[a1, a1, a4, a2, a3, n] + 
    2*S2[a1, a1, a4, a2, SP[a3, a5], n] + 
    S2[a5, n]*S2[a1, a1, a4, a3, a2, n] - 
    S2[a2, n]*S2[a1, a1, a4, a3, a5, n] + S2[a1, a1, a4, a3, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a1, a4, a5, a3, n] - S2[a1, a1, a4, a5, SP[a2, a3], n] - 
    S2[a1, a1, a4, SP[a2, a3], a5, n] + S2[a1, a1, a4, SP[a2, a5], a3, n] + 
    2*S2[a1, a1, a4, SP[a3, a5], a2, n] - 
    S2[a4, n]*S2[a1, a1, a5, a2, a3, n] - S2[a1, a1, a5, a2, SP[a3, a4], n] - 
    S2[a4, n]*S2[a1, a1, a5, a3, a2, n] - S2[a1, a1, a5, a3, SP[a2, a4], n] - 
    S2[a1, a1, a5, SP[a2, a4], a3, n] - S2[a1, a1, a5, SP[a3, a4], a2, n] - 
    S2[a1, a1, SP[a2, a3], a4, a5, n] - S2[a1, a1, SP[a2, a4], a3, a5, n] - 
    S2[a1, a1, SP[a2, a4], a5, a3, n] + S2[a1, a1, SP[a2, a5], a3, a4, n] + 
    S2[a1, a1, SP[a2, a5], a4, a3, n] + S2[a1, a1, SP[a3, a5], a2, a4, n] + 
    S2[a1, a1, SP[a3, a5], a4, a2, n] + S2[a5, n]*S2[a1, a2, a1, a3, a4, n] - 
    S2[a4, n]*S2[a1, a2, a1, a3, a5, n] + 
    S2[a5, n]*S2[a1, a2, a1, a4, a3, n] + 
    2*S2[a1, a2, a1, a4, SP[a3, a5], n] - 
    S2[a4, n]*S2[a1, a2, a1, a5, a3, n] - S2[a1, a2, a1, a5, SP[a3, a4], n] + 
    S2[a1, a2, a1, SP[a3, a5], a4, n] + S2[a5, n]*S2[a1, a2, a4, a1, a3, n] + 
    2*S2[a1, a2, a4, a1, SP[a3, a5], n] + 
    2*S2[a1, a2, a4, SP[a1, a5], a3, n] - 
    S2[a4, n]*S2[a1, a2, a5, a1, a3, n] - S2[a1, a2, a5, a1, SP[a3, a4], n] - 
    S2[a1, a2, a5, SP[a1, a4], a3, n] + S2[a1, a2, SP[a1, a5], a3, a4, n] + 
    S2[a1, a2, SP[a1, a5], a4, a3, n] + S2[a5, n]*S2[a1, a4, a1, a2, a3, n] + 
    2*S2[a1, a4, a1, a2, SP[a3, a5], n] + 
    S2[a5, n]*S2[a1, a4, a1, a3, a2, n] - 
    S2[a2, n]*S2[a1, a4, a1, a3, a5, n] + S2[a1, a4, a1, a3, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a4, a1, a5, a3, n] - S2[a1, a4, a1, a5, SP[a2, a3], n] - 
    S2[a1, a4, a1, SP[a2, a3], a5, n] + S2[a1, a4, a1, SP[a2, a5], a3, n] + 
    2*S2[a1, a4, a1, SP[a3, a5], a2, n] + 
    S2[a5, n]*S2[a1, a4, a2, a1, a3, n] + 
    2*S2[a1, a4, a2, a1, SP[a3, a5], n] + 
    2*S2[a1, a4, a2, SP[a1, a5], a3, n] - 
    S2[a2, n]*S2[a1, a4, a5, a1, a3, n] - S2[a1, a4, a5, a1, SP[a2, a3], n] - 
    S2[a1, a4, a5, SP[a1, a2], a3, n] - S2[a1, a4, SP[a1, a2], a3, a5, n] - 
    S2[a1, a4, SP[a1, a2], a5, a3, n] + 2*S2[a1, a4, SP[a1, a5], a2, a3, n] + 
    2*S2[a1, a4, SP[a1, a5], a3, a2, n] + S2[a1, a4, SP[a2, a5], a1, a3, n] - 
    S2[a4, n]*S2[a1, a5, a1, a2, a3, n] - S2[a1, a5, a1, a2, SP[a3, a4], n] - 
    S2[a4, n]*S2[a1, a5, a1, a3, a2, n] - S2[a1, a5, a1, a3, SP[a2, a4], n] - 
    S2[a1, a5, a1, SP[a2, a4], a3, n] - S2[a1, a5, a1, SP[a3, a4], a2, n] - 
    S2[a4, n]*S2[a1, a5, a2, a1, a3, n] - S2[a1, a5, a2, a1, SP[a3, a4], n] - 
    S2[a1, a5, a2, SP[a1, a4], a3, n] - S2[a1, a5, SP[a1, a4], a2, a3, n] - 
    S2[a1, a5, SP[a1, a4], a3, a2, n] - S2[a1, a5, SP[a2, a4], a1, a3, n] - 
    S2[a1, SP[a1, a2], a3, a4, a5, n] - S2[a1, SP[a1, a2], a4, a3, a5, n] - 
    S2[a1, SP[a1, a2], a4, a5, a3, n] + S2[a1, SP[a1, a5], a2, a3, a4, n] + 
    S2[a1, SP[a1, a5], a2, a4, a3, n] + S2[a1, SP[a1, a5], a3, a2, a4, n] + 
    S2[a1, SP[a1, a5], a3, a4, a2, n] + S2[a1, SP[a1, a5], a4, a2, a3, n] + 
    S2[a1, SP[a1, a5], a4, a3, a2, n] - S2[a1, SP[a2, a4], a1, a3, a5, n] - 
    S2[a1, SP[a2, a4], a1, a5, a3, n] - S2[a1, SP[a2, a4], a5, a1, a3, n] + 
    S2[a1, SP[a2, a5], a1, a3, a4, n] + S2[a1, SP[a2, a5], a1, a4, a3, n] + 
    S2[a1, SP[a2, a5], a4, a1, a3, n] + S2[a2, a1, a1, a4, SP[a3, a5], n] + 
    S2[a2, a1, a1, SP[a3, a4], a5, n] + S2[a2, a1, a4, a1, SP[a3, a5], n] + 
    S2[a2, a1, a4, SP[a1, a5], a3, n] + S2[a2, a1, SP[a1, a4], a3, a5, n] + 
    S2[a2, a1, SP[a1, a4], a5, a3, n] - S2[a5, n]*S2[a2, a4, a1, a1, a3, n] + 
    S2[a2, SP[a1, a4], a1, a3, a5, n] + S2[a2, SP[a1, a4], a1, a5, a3, n] + 
    S2[a2, SP[a1, a4], a5, a1, a3, n] - S2[a2, SP[a4, a5], a1, a1, a3, n] + 
    S2[a4, a1, a1, a2, SP[a3, a5], n] + S2[a4, a1, a1, a3, SP[a2, a5], n] + 
    S2[a4, a1, a1, SP[a2, a5], a3, n] + S2[a4, a1, a1, SP[a3, a5], a2, n] + 
    S2[a4, a1, a2, a1, SP[a3, a5], n] + S2[a4, a1, a2, SP[a1, a5], a3, n] + 
    S2[a4, a1, SP[a1, a5], a2, a3, n] + S2[a4, a1, SP[a1, a5], a3, a2, n] + 
    S2[a4, a1, SP[a2, a5], a1, a3, n] + S2[a4, SP[a1, a5], a1, a2, a3, n] + 
    S2[a4, SP[a1, a5], a1, a3, a2, n] + S2[a4, SP[a1, a5], a2, a1, a3, n] - 
    S2[a4, n]*S2[a5, a1, a1, a2, a3, n] - S2[a5, a1, a1, a2, SP[a3, a4], n] - 
    S2[a4, n]*S2[a5, a1, a1, a3, a2, n] - S2[a5, a1, a1, a3, SP[a2, a4], n] - 
    S2[a5, a1, a1, SP[a2, a4], a3, n] - S2[a5, a1, a1, SP[a3, a4], a2, n] - 
    S2[a4, n]*S2[a5, a1, a2, a1, a3, n] - S2[a5, a1, a2, a1, SP[a3, a4], n] - 
    S2[a5, a1, a2, SP[a1, a4], a3, n] - S2[a5, a1, SP[a1, a4], a2, a3, n] - 
    S2[a5, a1, SP[a1, a4], a3, a2, n] - S2[a5, a1, SP[a2, a4], a1, a3, n] + 
    S2[a2, n]*S2[a5, a4, a1, a1, a3, n] + S2[a5, a4, a1, a1, SP[a2, a3], n] + 
    S2[a5, a4, a1, SP[a1, a2], a3, n] + S2[a5, a4, SP[a1, a2], a1, a3, n] - 
    S2[a5, SP[a1, a4], a1, a2, a3, n] - S2[a5, SP[a1, a4], a1, a3, a2, n] - 
    S2[a5, SP[a1, a4], a2, a1, a3, n] + S2[a5, SP[a2, a4], a1, a1, a3, n] - 
    S2[SP[a1, a1], a2, a3, a4, a5, n] - S2[SP[a1, a1], a2, a4, a3, a5, n] - 
    S2[SP[a1, a1], a2, a4, a5, a3, n] - S2[SP[a1, a1], a3, a2, a4, a5, n] + 
    S2[SP[a1, a3], a1, a2, a4, a5, n] + S2[SP[a1, a5], a1, a2, a3, a4, n] + 
    S2[SP[a1, a5], a1, a2, a4, a3, n] + S2[SP[a1, a5], a1, a3, a2, a4, n] + 
    S2[SP[a1, a5], a1, a3, a4, a2, n] + S2[SP[a1, a5], a1, a4, a2, a3, n] + 
    S2[SP[a1, a5], a1, a4, a3, a2, n] + S2[SP[a1, a5], a2, a1, a3, a4, n] + 
    S2[SP[a1, a5], a2, a1, a4, a3, n] + S2[SP[a1, a5], a2, a4, a1, a3, n] + 
    S2[SP[a1, a5], a4, a1, a2, a3, n] + S2[SP[a1, a5], a4, a1, a3, a2, n] + 
    S2[SP[a1, a5], a4, a2, a1, a3, n] - S2[SP[a4, a5], a1, a1, a2, a3, n] - 
    S2[SP[a4, a5], a1, a1, a3, a2, n] - S2[SP[a4, a5], a1, a2, a1, a3, n] - 
    S2[a5, a4, a2, a1, a1, a3, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a3_, a1_, a1_, a2_, a5_, a4_, n_] :> 
  S2[a1, a1, a3, n]*S2[a2, a5, a4, n] + S2[SP[a1, a2], SP[a1, a5], 
     SP[a3, a4], n] - S2[a4, a5, n]*S2[a1, a1, a2, a3, n] - 
    S2[a4, a5, n]*S2[a1, a1, a3, a2, n] + S2[a1, a1, SP[a2, a4], SP[a3, a5], 
     n] + S2[a1, a1, SP[a3, a4], SP[a2, a5], n] - 
    S2[a4, a5, n]*S2[a1, a2, a1, a3, n] - S2[a1, a3, n]*
     S2[a1, a2, a5, a4, n] + S2[a1, a2, SP[a1, a4], SP[a3, a5], n] + 
    S2[a1, SP[a1, a4], a2, SP[a3, a5], n] + S2[a1, SP[a1, a4], a3, 
     SP[a2, a5], n] + S2[a1, SP[a1, a4], SP[a2, a5], a3, n] + 
    S2[a1, SP[a1, a4], SP[a3, a5], a2, n] + S2[a1, SP[a2, a4], a1, 
     SP[a3, a5], n] + S2[a1, SP[a2, a4], SP[a1, a5], a3, n] - 
    S2[a2, a1, SP[a1, a5], SP[a3, a4], n] - S2[a2, SP[a1, a5], a1, 
     SP[a3, a4], n] - S2[a2, SP[a1, a5], SP[a1, a4], a3, n] + 
    S2[SP[a1, a1], a2, a5, SP[a3, a4], n] + S2[SP[a1, a1], a2, SP[a3, a5], 
     a4, n] + S2[SP[a1, a1], SP[a2, a3], a5, a4, n] - 
    S2[SP[a1, a2], a1, a5, SP[a3, a4], n] - S2[SP[a1, a2], a1, SP[a3, a5], 
     a4, n] - S2[SP[a1, a2], a5, a1, SP[a3, a4], n] - 
    S2[SP[a1, a2], a5, SP[a1, a4], a3, n] - S2[SP[a1, a2], SP[a1, a5], a3, 
     a4, n] - S2[SP[a1, a2], SP[a1, a5], a4, a3, n] + 
    S2[SP[a1, a4], a1, a2, SP[a3, a5], n] + S2[SP[a1, a4], a1, a3, 
     SP[a2, a5], n] + S2[SP[a1, a4], a1, SP[a2, a5], a3, n] + 
    S2[SP[a1, a4], a1, SP[a3, a5], a2, n] + S2[SP[a1, a4], a2, a1, 
     SP[a3, a5], n] + S2[SP[a1, a4], a2, SP[a1, a5], a3, n] + 
    S2[SP[a1, a4], SP[a1, a5], a2, a3, n] + S2[SP[a1, a4], SP[a1, a5], a3, 
     a2, n] + S2[SP[a1, a4], SP[a2, a5], a1, a3, n] + 
    S2[a4, n]*S2[a1, a1, a2, a3, a5, n] + S2[a1, a1, a2, a3, SP[a4, a5], n] - 
    S2[a1, a1, a2, a4, SP[a3, a5], n] + S2[a4, n]*S2[a1, a1, a2, a5, a3, n] + 
    S2[a3, n]*S2[a1, a1, a2, a5, a4, n] + S2[a1, a1, a2, a5, SP[a3, a4], n] + 
    S2[a1, a1, a2, SP[a4, a5], a3, n] + S2[a4, n]*S2[a1, a1, a3, a2, a5, n] + 
    S2[a1, a1, a3, a2, SP[a4, a5], n] - S2[a1, a1, a3, a4, SP[a2, a5], n] + 
    S2[a4, n]*S2[a1, a1, a3, a5, a2, n] - 
    S2[a2, n]*S2[a1, a1, a3, a5, a4, n] - S2[a1, a1, a3, SP[a2, a5], a4, n] + 
    S2[a1, a1, a3, SP[a4, a5], a2, n] - S2[a1, a1, a4, a2, SP[a3, a5], n] - 
    S2[a1, a1, a4, a3, SP[a2, a5], n] - S2[a1, a1, a4, SP[a2, a5], a3, n] - 
    S2[a1, a1, a4, SP[a3, a5], a2, n] + S2[a4, n]*S2[a1, a1, a5, a2, a3, n] + 
    S2[a1, a1, a5, a2, SP[a3, a4], n] + S2[a4, n]*S2[a1, a1, a5, a3, a2, n] - 
    S2[a2, n]*S2[a1, a1, a5, a3, a4, n] - 
    S2[a2, n]*S2[a1, a1, a5, a4, a3, n] - S2[a1, a1, a5, a4, SP[a2, a3], n] - 
    S2[a1, a1, a5, SP[a2, a3], a4, n] + S2[a1, a1, a5, SP[a3, a4], a2, n] - 
    S2[a1, a1, SP[a2, a3], a5, a4, n] - S2[a1, a1, SP[a2, a5], a3, a4, n] - 
    S2[a1, a1, SP[a2, a5], a4, a3, n] + S2[a1, a1, SP[a4, a5], a2, a3, n] + 
    S2[a1, a1, SP[a4, a5], a3, a2, n] + S2[a4, n]*S2[a1, a2, a1, a3, a5, n] + 
    S2[a1, a2, a1, a3, SP[a4, a5], n] - S2[a1, a2, a1, a4, SP[a3, a5], n] + 
    S2[a4, n]*S2[a1, a2, a1, a5, a3, n] + S2[a1, a2, a1, a5, SP[a3, a4], n] + 
    S2[a1, a2, a1, SP[a4, a5], a3, n] - S2[a1, a2, a4, a1, SP[a3, a5], n] - 
    S2[a1, a2, a4, SP[a1, a5], a3, n] + S2[a4, n]*S2[a1, a2, a5, a1, a3, n] + 
    S2[a1, a2, a5, a1, SP[a3, a4], n] + S2[a1, a2, a5, SP[a1, a4], a3, n] + 
    S2[a1, a2, SP[a4, a5], a1, a3, n] - S2[a1, a4, a1, a2, SP[a3, a5], n] - 
    S2[a1, a4, a1, a3, SP[a2, a5], n] - S2[a1, a4, a1, SP[a2, a5], a3, n] - 
    S2[a1, a4, a1, SP[a3, a5], a2, n] - S2[a1, a4, a2, a1, SP[a3, a5], n] - 
    S2[a1, a4, a2, SP[a1, a5], a3, n] - S2[a1, a4, SP[a1, a5], a2, a3, n] - 
    S2[a1, a4, SP[a1, a5], a3, a2, n] - S2[a1, a4, SP[a2, a5], a1, a3, n] + 
    S2[a4, n]*S2[a1, a5, a1, a2, a3, n] + S2[a1, a5, a1, a2, SP[a3, a4], n] + 
    S2[a4, n]*S2[a1, a5, a1, a3, a2, n] - 
    S2[a2, n]*S2[a1, a5, a1, a3, a4, n] - 
    S2[a2, n]*S2[a1, a5, a1, a4, a3, n] - S2[a1, a5, a1, a4, SP[a2, a3], n] - 
    S2[a1, a5, a1, SP[a2, a3], a4, n] + S2[a1, a5, a1, SP[a3, a4], a2, n] + 
    S2[a4, n]*S2[a1, a5, a2, a1, a3, n] + S2[a1, a5, a2, a1, SP[a3, a4], n] + 
    S2[a1, a5, a2, SP[a1, a4], a3, n] - S2[a2, n]*S2[a1, a5, a4, a1, a3, n] - 
    S2[a1, a5, a4, a1, SP[a2, a3], n] - S2[a1, a5, a4, SP[a1, a2], a3, n] - 
    S2[a1, a5, SP[a1, a2], a3, a4, n] - S2[a1, a5, SP[a1, a2], a4, a3, n] + 
    S2[a1, a5, SP[a1, a4], a2, a3, n] + S2[a1, a5, SP[a1, a4], a3, a2, n] - 
    S2[a1, SP[a1, a2], a3, a5, a4, n] - S2[a1, SP[a1, a2], a5, a3, a4, n] - 
    S2[a1, SP[a1, a2], a5, a4, a3, n] - S2[a1, SP[a2, a5], a1, a3, a4, n] - 
    S2[a1, SP[a2, a5], a1, a4, a3, n] - S2[a1, SP[a2, a5], a4, a1, a3, n] + 
    S2[a1, SP[a4, a5], a1, a2, a3, n] + S2[a1, SP[a4, a5], a1, a3, a2, n] + 
    S2[a1, SP[a4, a5], a2, a1, a3, n] + S2[a2, a1, a1, a5, SP[a3, a4], n] + 
    S2[a2, a1, a1, SP[a3, a5], a4, n] + S2[a2, a1, a5, a1, SP[a3, a4], n] + 
    S2[a2, a1, a5, SP[a1, a4], a3, n] + S2[a2, a1, SP[a1, a5], a3, a4, n] + 
    S2[a2, a1, SP[a1, a5], a4, a3, n] + S2[a2, a5, a1, a1, SP[a3, a4], n] + 
    S2[a2, a5, a1, SP[a1, a4], a3, n] + S2[a2, a5, SP[a1, a4], a1, a3, n] + 
    S2[a2, SP[a1, a5], a1, a3, a4, n] + S2[a2, SP[a1, a5], a1, a4, a3, n] + 
    S2[a2, SP[a1, a5], a4, a1, a3, n] - S2[a4, a1, a1, a2, SP[a3, a5], n] - 
    S2[a4, a1, a1, a3, SP[a2, a5], n] - S2[a4, a1, a1, SP[a2, a5], a3, n] - 
    S2[a4, a1, a1, SP[a3, a5], a2, n] - S2[a4, a1, a2, a1, SP[a3, a5], n] - 
    S2[a4, a1, a2, SP[a1, a5], a3, n] - S2[a4, a1, SP[a1, a5], a2, a3, n] - 
    S2[a4, a1, SP[a1, a5], a3, a2, n] - S2[a4, a1, SP[a2, a5], a1, a3, n] - 
    S2[a4, SP[a1, a5], a1, a2, a3, n] - S2[a4, SP[a1, a5], a1, a3, a2, n] - 
    S2[a4, SP[a1, a5], a2, a1, a3, n] + S2[a4, n]*S2[a5, a1, a1, a2, a3, n] + 
    S2[a5, a1, a1, a2, SP[a3, a4], n] + S2[a4, n]*S2[a5, a1, a1, a3, a2, n] - 
    S2[a2, n]*S2[a5, a1, a1, a3, a4, n] - 
    S2[a2, n]*S2[a5, a1, a1, a4, a3, n] - S2[a5, a1, a1, a4, SP[a2, a3], n] - 
    S2[a5, a1, a1, SP[a2, a3], a4, n] + S2[a5, a1, a1, SP[a3, a4], a2, n] + 
    S2[a4, n]*S2[a5, a1, a2, a1, a3, n] + S2[a5, a1, a2, a1, SP[a3, a4], n] + 
    S2[a5, a1, a2, SP[a1, a4], a3, n] - S2[a2, n]*S2[a5, a1, a4, a1, a3, n] - 
    S2[a5, a1, a4, a1, SP[a2, a3], n] - S2[a5, a1, a4, SP[a1, a2], a3, n] - 
    S2[a5, a1, SP[a1, a2], a3, a4, n] - S2[a5, a1, SP[a1, a2], a4, a3, n] + 
    S2[a5, a1, SP[a1, a4], a2, a3, n] + S2[a5, a1, SP[a1, a4], a3, a2, n] - 
    S2[a2, n]*S2[a5, a4, a1, a1, a3, n] - S2[a5, a4, a1, a1, SP[a2, a3], n] - 
    S2[a5, a4, a1, SP[a1, a2], a3, n] - S2[a5, a4, SP[a1, a2], a1, a3, n] - 
    S2[a5, SP[a1, a2], a1, a3, a4, n] - S2[a5, SP[a1, a2], a1, a4, a3, n] - 
    S2[a5, SP[a1, a2], a4, a1, a3, n] + S2[a5, SP[a1, a4], a1, a2, a3, n] + 
    S2[a5, SP[a1, a4], a1, a3, a2, n] + S2[a5, SP[a1, a4], a2, a1, a3, n] - 
    S2[a5, SP[a2, a4], a1, a1, a3, n] - S2[SP[a1, a1], a2, a3, a5, a4, n] - 
    S2[SP[a1, a1], a2, a5, a3, a4, n] - S2[SP[a1, a1], a2, a5, a4, a3, n] - 
    S2[SP[a1, a1], a3, a2, a5, a4, n] + S2[SP[a1, a3], a1, a2, a5, a4, n] - 
    S2[SP[a2, a5], a1, a1, a3, a4, n] - S2[SP[a2, a5], a1, a1, a4, a3, n] - 
    S2[SP[a2, a5], a1, a4, a1, a3, n] - S2[SP[a2, a5], a4, a1, a1, a3, n] + 
    S2[SP[a4, a5], a1, a1, a2, a3, n] + S2[SP[a4, a5], a1, a1, a3, a2, n] + 
    S2[SP[a4, a5], a1, a2, a1, a3, n] + S2[a5, a2, a1, a1, a3, a4, n] + 
    S2[a5, a2, a1, a1, a4, a3, n] + S2[a5, a2, a1, a4, a1, a3, n] + 
    S2[a5, a2, a4, a1, a1, a3, n] + S2[a5, a4, a2, a1, a1, a3, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a3_, a1_, a1_, a4_, a2_, a5_, n_] :> 
  -(S2[a1, a1, a3, n]*S2[a2, a4, a5, n]) - S2[a1, a1, a3, n]*
     S2[a2, a5, a4, n] - S2[SP[a1, a2], SP[a1, a4], SP[a3, a5], n] - 
    S2[SP[a1, a2], SP[a1, a5], SP[a3, a4], n] - 
    S2[a2, a5, n]*S2[a1, a1, a3, a4, n] - S2[a2, a5, n]*
     S2[a1, a1, a4, a3, n] + S2[a1, a1, SP[a2, a3], SP[a4, a5], n] + 
    S2[a1, a1, SP[a2, a4], SP[a3, a5], n] + S2[a1, a2, SP[a1, a4], 
     SP[a3, a5], n] + S2[a1, a2, SP[a1, a5], SP[a3, a4], n] - 
    S2[a2, a5, n]*S2[a1, a3, a1, a4, n] + S2[a1, a3, SP[a1, a2], SP[a4, a5], 
     n] - S2[a1, a3, n]*S2[a1, a4, a2, a5, n] - 
    S2[a1, a3, n]*S2[a1, a4, a5, a2, n] + S2[a1, a4, SP[a1, a2], SP[a3, a5], 
     n] + S2[a1, a4, SP[a1, a5], SP[a2, a3], n] - 
    S2[a1, a3, n]*S2[a1, a5, a2, a4, n] - S2[a1, a3, n]*
     S2[a1, a5, a4, a2, n] + S2[a1, a5, SP[a1, a2], SP[a3, a4], n] + 
    S2[a1, a5, SP[a1, a4], SP[a2, a3], n] + S2[a1, SP[a1, a2], a3, 
     SP[a4, a5], n] + 2*S2[a1, SP[a1, a2], a4, SP[a3, a5], n] + 
    S2[a1, SP[a1, a2], a5, SP[a3, a4], n] + S2[a1, SP[a1, a2], SP[a3, a4], 
     a5, n] + 2*S2[a1, SP[a1, a2], SP[a3, a5], a4, n] + 
    S2[a1, SP[a1, a2], SP[a4, a5], a3, n] + S2[a1, SP[a1, a4], a2, 
     SP[a3, a5], n] + S2[a1, SP[a1, a4], a5, SP[a2, a3], n] + 
    S2[a1, SP[a1, a4], SP[a2, a3], a5, n] + S2[a1, SP[a1, a4], SP[a3, a5], 
     a2, n] + S2[a1, SP[a1, a5], a2, SP[a3, a4], n] + 
    S2[a1, SP[a1, a5], a4, SP[a2, a3], n] + S2[a1, SP[a1, a5], SP[a2, a3], 
     a4, n] + S2[a1, SP[a1, a5], SP[a3, a4], a2, n] + 
    S2[a1, SP[a2, a3], a1, SP[a4, a5], n] + S2[a1, SP[a2, a3], SP[a1, a5], 
     a4, n] + S2[a2, a1, SP[a1, a4], SP[a3, a5], n] + 
    S2[a2, a1, SP[a1, a5], SP[a3, a4], n] + S2[a1, a3, n]*
     S2[a2, a5, a1, a4, n] - S2[a2, a5, SP[a1, a1], SP[a3, a4], n] + 
    S2[a2, SP[a1, a4], a1, SP[a3, a5], n] + S2[a2, SP[a1, a4], SP[a1, a5], 
     a3, n] - S2[a2, SP[a1, a5], SP[a1, a3], a4, n] + 
    S2[a2, SP[a1, a5], SP[a1, a4], a3, n] + S2[SP[a1, a1], a4, a2, 
     SP[a3, a5], n] + S2[SP[a1, a1], a4, a5, SP[a2, a3], n] + 
    S2[SP[a1, a1], a4, SP[a2, a3], a5, n] + S2[SP[a1, a1], a4, SP[a3, a5], 
     a2, n] + S2[SP[a1, a1], a5, a2, SP[a3, a4], n] + 
    S2[SP[a1, a1], a5, a4, SP[a2, a3], n] + S2[SP[a1, a1], a5, SP[a2, a3], 
     a4, n] + S2[SP[a1, a1], a5, SP[a3, a4], a2, n] + 
    S2[SP[a1, a1], SP[a3, a4], a2, a5, n] + S2[SP[a1, a1], SP[a3, a4], a5, 
     a2, n] + S2[SP[a1, a1], SP[a3, a5], a2, a4, n] + 
    S2[SP[a1, a1], SP[a3, a5], a4, a2, n] + S2[SP[a1, a2], a1, a3, 
     SP[a4, a5], n] + 2*S2[SP[a1, a2], a1, a4, SP[a3, a5], n] + 
    S2[SP[a1, a2], a1, a5, SP[a3, a4], n] + S2[SP[a1, a2], a1, SP[a3, a4], 
     a5, n] + 2*S2[SP[a1, a2], a1, SP[a3, a5], a4, n] + 
    S2[SP[a1, a2], a1, SP[a4, a5], a3, n] + S2[SP[a1, a2], a3, a1, 
     SP[a4, a5], n] + S2[SP[a1, a2], a3, SP[a1, a5], a4, n] + 
    S2[SP[a1, a2], a4, a1, SP[a3, a5], n] + S2[SP[a1, a2], a4, SP[a1, a5], 
     a3, n] - S2[SP[a1, a2], a5, SP[a1, a3], a4, n] + 
    S2[SP[a1, a2], a5, SP[a1, a4], a3, n] + S2[SP[a1, a2], SP[a1, a4], a3, 
     a5, n] + S2[SP[a1, a2], SP[a1, a4], a5, a3, n] + 
    2*S2[SP[a1, a2], SP[a1, a5], a3, a4, n] + 
    2*S2[SP[a1, a2], SP[a1, a5], a4, a3, n] - S2[a1, a1, a2, a3, SP[a4, a5], 
     n] - 2*S2[a1, a1, a2, a4, SP[a3, a5], n] - S2[a1, a1, a2, a5, 
     SP[a3, a4], n] - S2[a1, a1, a2, SP[a3, a4], a5, n] - 
    2*S2[a1, a1, a2, SP[a3, a5], a4, n] - S2[a1, a1, a2, SP[a4, a5], a3, n] - 
    S2[a1, a1, a3, a2, SP[a4, a5], n] + 2*S2[a2, n]*
     S2[a1, a1, a3, a4, a5, n] + 2*S2[a1, a1, a3, a4, SP[a2, a5], n] + 
    2*S2[a2, n]*S2[a1, a1, a3, a5, a4, n] + 
    2*S2[a1, a1, a3, a5, SP[a2, a4], n] + S2[a1, a1, a3, SP[a2, a4], a5, n] + 
    2*S2[a1, a1, a3, SP[a2, a5], a4, n] + 
    S2[a3, n]*S2[a1, a1, a4, a2, a5, n] - 
    2*S2[a1, a1, a4, a2, SP[a3, a5], n] + 
    2*S2[a2, n]*S2[a1, a1, a4, a3, a5, n] + 
    2*S2[a1, a1, a4, a3, SP[a2, a5], n] + 
    2*S2[a2, n]*S2[a1, a1, a4, a5, a3, n] + 
    2*S2[a1, a1, a4, SP[a2, a5], a3, n] - 
    2*S2[a1, a1, a4, SP[a3, a5], a2, n] - 
    2*S2[a1, a1, a5, a2, SP[a3, a4], n] + 
    2*S2[a2, n]*S2[a1, a1, a5, a3, a4, n] + 
    2*S2[a1, a1, a5, a3, SP[a2, a4], n] + 
    2*S2[a2, n]*S2[a1, a1, a5, a4, a3, n] + 
    2*S2[a1, a1, a5, SP[a2, a4], a3, n] - 
    2*S2[a1, a1, a5, SP[a3, a4], a2, n] + S2[a1, a1, SP[a2, a4], a3, a5, n] + 
    S2[a1, a1, SP[a2, a4], a5, a3, n] + 2*S2[a1, a1, SP[a2, a5], a3, a4, n] + 
    2*S2[a1, a1, SP[a2, a5], a4, a3, n] - S2[a1, a1, SP[a3, a4], a2, a5, n] - 
    2*S2[a1, a1, SP[a3, a4], a5, a2, n] - 
    2*S2[a1, a1, SP[a3, a5], a2, a4, n] - 
    2*S2[a1, a1, SP[a3, a5], a4, a2, n] - S2[a1, a2, a1, a3, SP[a4, a5], n] - 
    2*S2[a1, a2, a1, a4, SP[a3, a5], n] - S2[a1, a2, a1, a5, SP[a3, a4], n] - 
    S2[a1, a2, a1, SP[a3, a4], a5, n] - 2*S2[a1, a2, a1, SP[a3, a5], a4, n] - 
    S2[a1, a2, a1, SP[a4, a5], a3, n] - S2[a1, a2, a3, a1, SP[a4, a5], n] - 
    S2[a1, a2, a3, SP[a1, a5], a4, n] - S2[a1, a2, a4, a1, SP[a3, a5], n] - 
    S2[a1, a2, a4, SP[a1, a5], a3, n] + S2[a1, a2, a5, SP[a1, a3], a4, n] - 
    S2[a1, a2, a5, SP[a1, a4], a3, n] - S2[a1, a2, SP[a1, a4], a3, a5, n] - 
    S2[a1, a2, SP[a1, a4], a5, a3, n] - 2*S2[a1, a2, SP[a1, a5], a3, a4, n] - 
    2*S2[a1, a2, SP[a1, a5], a4, a3, n] - S2[a1, a3, a1, a2, SP[a4, a5], n] + 
    S2[a2, n]*S2[a1, a3, a1, a4, a5, n] + S2[a1, a3, a1, a4, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a3, a1, a5, a4, n] + S2[a1, a3, a1, a5, SP[a2, a4], n] + 
    S2[a1, a3, a1, SP[a2, a5], a4, n] - S2[a1, a3, a2, a1, SP[a4, a5], n] - 
    S2[a1, a3, a2, SP[a1, a5], a4, n] - S2[a1, a4, a1, a2, SP[a3, a5], n] + 
    S2[a2, n]*S2[a1, a4, a1, a3, a5, n] + S2[a1, a4, a1, a3, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a4, a1, a5, a3, n] + S2[a1, a4, a1, SP[a2, a5], a3, n] - 
    S2[a1, a4, a1, SP[a3, a5], a2, n] - S2[a1, a4, a2, a1, SP[a3, a5], n] - 
    S2[a1, a4, a2, SP[a1, a5], a3, n] + S2[a2, n]*S2[a1, a4, a5, a1, a3, n] - 
    S2[a1, a4, SP[a1, a5], a2, a3, n] - S2[a1, a4, SP[a1, a5], a3, a2, n] + 
    S2[a1, a4, SP[a2, a5], a1, a3, n] - S2[a1, a5, a1, a2, SP[a3, a4], n] + 
    S2[a2, n]*S2[a1, a5, a1, a3, a4, n] + S2[a1, a5, a1, a3, SP[a2, a4], n] + 
    S2[a2, n]*S2[a1, a5, a1, a4, a3, n] + S2[a1, a5, a1, SP[a2, a4], a3, n] - 
    S2[a1, a5, a1, SP[a3, a4], a2, n] - S2[a1, a5, a2, a1, SP[a3, a4], n] - 
    S2[a1, a5, a2, SP[a1, a4], a3, n] + S2[a2, n]*S2[a1, a5, a4, a1, a3, n] - 
    S2[a1, a5, SP[a1, a4], a2, a3, n] - S2[a1, a5, SP[a1, a4], a3, a2, n] + 
    S2[a1, a5, SP[a2, a4], a1, a3, n] - S2[a1, SP[a1, a3], a4, a5, a2, n] - 
    S2[a1, SP[a1, a3], a5, a2, a4, n] - S2[a1, SP[a1, a3], a5, a4, a2, n] - 
    S2[a1, SP[a1, a4], a2, a3, a5, n] - S2[a1, SP[a1, a4], a2, a5, a3, n] - 
    S2[a1, SP[a1, a4], a3, a2, a5, n] - S2[a1, SP[a1, a4], a3, a5, a2, n] - 
    S2[a1, SP[a1, a4], a5, a2, a3, n] - S2[a1, SP[a1, a4], a5, a3, a2, n] - 
    S2[a1, SP[a1, a5], a2, a3, a4, n] - S2[a1, SP[a1, a5], a2, a4, a3, n] - 
    S2[a1, SP[a1, a5], a3, a2, a4, n] - S2[a1, SP[a1, a5], a3, a4, a2, n] - 
    S2[a1, SP[a1, a5], a4, a2, a3, n] - S2[a1, SP[a1, a5], a4, a3, a2, n] + 
    S2[a1, SP[a2, a4], a1, a3, a5, n] + S2[a1, SP[a2, a4], a1, a5, a3, n] + 
    S2[a1, SP[a2, a4], a5, a1, a3, n] + S2[a1, SP[a2, a5], a1, a3, a4, n] + 
    S2[a1, SP[a2, a5], a1, a4, a3, n] + S2[a1, SP[a2, a5], a4, a1, a3, n] - 
    S2[a2, a1, a1, a3, SP[a4, a5], n] - 2*S2[a2, a1, a1, a4, SP[a3, a5], n] - 
    S2[a2, a1, a1, a5, SP[a3, a4], n] - S2[a2, a1, a1, SP[a3, a4], a5, n] - 
    2*S2[a2, a1, a1, SP[a3, a5], a4, n] - S2[a2, a1, a1, SP[a4, a5], a3, n] - 
    S2[a2, a1, a3, a1, SP[a4, a5], n] - S2[a2, a1, a3, SP[a1, a5], a4, n] - 
    S2[a2, a1, a4, a1, SP[a3, a5], n] - S2[a2, a1, a4, SP[a1, a5], a3, n] + 
    S2[a2, a1, a5, SP[a1, a3], a4, n] - S2[a2, a1, a5, SP[a1, a4], a3, n] - 
    S2[a2, a1, SP[a1, a4], a3, a5, n] - S2[a2, a1, SP[a1, a4], a5, a3, n] - 
    2*S2[a2, a1, SP[a1, a5], a3, a4, n] - 
    2*S2[a2, a1, SP[a1, a5], a4, a3, n] + 
    S2[a5, n]*S2[a2, a4, a1, a1, a3, n] + S2[a2, a5, a1, a1, SP[a3, a4], n] + 
    S2[a2, a5, a1, SP[a1, a3], a4, n] + S2[a2, a5, SP[a1, a1], a3, a4, n] + 
    S2[a2, a5, SP[a1, a1], a4, a3, n] - S2[a2, a5, SP[a1, a4], a1, a3, n] - 
    S2[a2, SP[a1, a4], a1, a3, a5, n] - S2[a2, SP[a1, a4], a1, a5, a3, n] - 
    S2[a2, SP[a1, a4], a5, a1, a3, n] - S2[a2, SP[a1, a5], a1, a3, a4, n] - 
    S2[a2, SP[a1, a5], a1, a4, a3, n] - S2[a2, SP[a1, a5], a4, a1, a3, n] + 
    S2[a2, SP[a4, a5], a1, a1, a3, n] - S2[SP[a1, a1], a3, a4, a2, a5, n] - 
    S2[SP[a1, a1], a3, a4, a5, a2, n] - S2[SP[a1, a1], a3, a5, a2, a4, n] - 
    S2[SP[a1, a1], a3, a5, a4, a2, n] - S2[SP[a1, a1], a4, a2, a3, a5, n] - 
    S2[SP[a1, a1], a4, a2, a5, a3, n] - S2[SP[a1, a1], a4, a3, a2, a5, n] - 
    S2[SP[a1, a1], a4, a3, a5, a2, n] - S2[SP[a1, a1], a4, a5, a2, a3, n] - 
    S2[SP[a1, a1], a4, a5, a3, a2, n] - S2[SP[a1, a1], a5, a2, a3, a4, n] - 
    S2[SP[a1, a1], a5, a2, a4, a3, n] - S2[SP[a1, a1], a5, a3, a2, a4, n] - 
    S2[SP[a1, a1], a5, a3, a4, a2, n] - S2[SP[a1, a1], a5, a4, a2, a3, n] - 
    S2[SP[a1, a1], a5, a4, a3, a2, n] + S2[SP[a1, a3], a1, a4, a2, a5, n] + 
    S2[SP[a2, a5], a4, a1, a1, a3, n] - S2[a5, a2, a4, a1, a1, a3, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a3_, a1_, a1_, a4_, a5_, a2_, n_] :> 
  S2[a1, a1, a3, n]*S2[a2, a5, a4, n] + S2[SP[a1, a2], SP[a1, a5], 
     SP[a3, a4], n] + S2[a2, a5, n]*S2[a1, a1, a3, a4, n] + 
    S2[a2, a5, n]*S2[a1, a1, a4, a3, n] - S2[a1, a1, SP[a2, a3], SP[a4, a5], 
     n] - S2[a1, a1, SP[a2, a4], SP[a3, a5], n] - S2[a1, a2, SP[a1, a5], 
     SP[a3, a4], n] + S2[a2, a5, n]*S2[a1, a3, a1, a4, n] - 
    S2[a1, a3, SP[a1, a2], SP[a4, a5], n] + S2[a1, a3, n]*
     S2[a1, a5, a2, a4, n] + S2[a1, a3, n]*S2[a1, a5, a4, a2, n] - 
    S2[a1, a5, SP[a1, a2], SP[a3, a4], n] - S2[a1, a5, SP[a1, a4], 
     SP[a2, a3], n] - S2[a1, SP[a1, a2], a3, SP[a4, a5], n] - 
    S2[a1, SP[a1, a2], a4, SP[a3, a5], n] - S2[a1, SP[a1, a2], a5, 
     SP[a3, a4], n] - 2*S2[a1, SP[a1, a2], SP[a3, a5], a4, n] - 
    S2[a1, SP[a1, a2], SP[a4, a5], a3, n] - S2[a1, SP[a1, a5], a2, 
     SP[a3, a4], n] - S2[a1, SP[a1, a5], a4, SP[a2, a3], n] - 
    S2[a1, SP[a1, a5], SP[a2, a3], a4, n] - S2[a1, SP[a1, a5], SP[a3, a4], 
     a2, n] - S2[a1, SP[a2, a3], a1, SP[a4, a5], n] - 
    S2[a1, SP[a2, a3], SP[a1, a5], a4, n] - S2[a2, a1, SP[a1, a5], 
     SP[a3, a4], n] - S2[a1, a3, n]*S2[a2, a5, a1, a4, n] + 
    S2[a2, a5, SP[a1, a1], SP[a3, a4], n] + S2[a2, SP[a1, a5], SP[a1, a3], 
     a4, n] - S2[a2, SP[a1, a5], SP[a1, a4], a3, n] - 
    S2[SP[a1, a1], a5, a2, SP[a3, a4], n] - S2[SP[a1, a1], a5, a4, 
     SP[a2, a3], n] - S2[SP[a1, a1], a5, SP[a2, a3], a4, n] - 
    S2[SP[a1, a1], a5, SP[a3, a4], a2, n] - S2[SP[a1, a1], SP[a3, a5], a2, 
     a4, n] - S2[SP[a1, a1], SP[a3, a5], a4, a2, n] - 
    S2[SP[a1, a2], a1, a3, SP[a4, a5], n] - S2[SP[a1, a2], a1, a4, 
     SP[a3, a5], n] - S2[SP[a1, a2], a1, a5, SP[a3, a4], n] - 
    2*S2[SP[a1, a2], a1, SP[a3, a5], a4, n] - S2[SP[a1, a2], a1, SP[a4, a5], 
     a3, n] - S2[SP[a1, a2], a3, a1, SP[a4, a5], n] - 
    S2[SP[a1, a2], a3, SP[a1, a5], a4, n] + S2[SP[a1, a2], a5, SP[a1, a3], 
     a4, n] - S2[SP[a1, a2], a5, SP[a1, a4], a3, n] - 
    2*S2[SP[a1, a2], SP[a1, a5], a3, a4, n] - 
    2*S2[SP[a1, a2], SP[a1, a5], a4, a3, n] + S2[a1, a1, a2, a3, SP[a4, a5], 
     n] + S2[a1, a1, a2, a4, SP[a3, a5], n] + S2[a1, a1, a2, a5, SP[a3, a4], 
     n] + 2*S2[a1, a1, a2, SP[a3, a5], a4, n] + S2[a1, a1, a2, SP[a4, a5], 
     a3, n] + S2[a1, a1, a3, a2, SP[a4, a5], n] - 
    S2[a2, n]*S2[a1, a1, a3, a4, a5, n] - S2[a1, a1, a3, a4, SP[a2, a5], n] - 
    2*S2[a2, n]*S2[a1, a1, a3, a5, a4, n] - 
    2*S2[a1, a1, a3, a5, SP[a2, a4], n] - 
    2*S2[a1, a1, a3, SP[a2, a5], a4, n] + S2[a1, a1, a4, a2, SP[a3, a5], n] - 
    S2[a2, n]*S2[a1, a1, a4, a3, a5, n] - S2[a1, a1, a4, a3, SP[a2, a5], n] + 
    S2[a3, n]*S2[a1, a1, a4, a5, a2, n] - 
    S2[a2, n]*S2[a1, a1, a4, a5, a3, n] - S2[a1, a1, a4, SP[a2, a5], a3, n] + 
    S2[a1, a1, a4, SP[a3, a5], a2, n] + 2*S2[a1, a1, a5, a2, SP[a3, a4], n] - 
    2*S2[a2, n]*S2[a1, a1, a5, a3, a4, n] - 
    2*S2[a1, a1, a5, a3, SP[a2, a4], n] - 
    2*S2[a2, n]*S2[a1, a1, a5, a4, a3, n] - 
    2*S2[a1, a1, a5, SP[a2, a4], a3, n] + 
    2*S2[a1, a1, a5, SP[a3, a4], a2, n] - 
    2*S2[a1, a1, SP[a2, a5], a3, a4, n] - 
    2*S2[a1, a1, SP[a2, a5], a4, a3, n] + S2[a1, a1, SP[a3, a4], a5, a2, n] + 
    2*S2[a1, a1, SP[a3, a5], a2, a4, n] + 
    2*S2[a1, a1, SP[a3, a5], a4, a2, n] + S2[a1, a2, a1, a3, SP[a4, a5], n] + 
    S2[a1, a2, a1, a4, SP[a3, a5], n] + S2[a1, a2, a1, a5, SP[a3, a4], n] + 
    2*S2[a1, a2, a1, SP[a3, a5], a4, n] + S2[a1, a2, a1, SP[a4, a5], a3, n] + 
    S2[a1, a2, a3, a1, SP[a4, a5], n] + S2[a1, a2, a3, SP[a1, a5], a4, n] - 
    S2[a1, a2, a5, SP[a1, a3], a4, n] + S2[a1, a2, a5, SP[a1, a4], a3, n] + 
    2*S2[a1, a2, SP[a1, a5], a3, a4, n] + 
    2*S2[a1, a2, SP[a1, a5], a4, a3, n] + S2[a1, a3, a1, a2, SP[a4, a5], n] - 
    S2[a2, n]*S2[a1, a3, a1, a4, a5, n] - S2[a1, a3, a1, a4, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a3, a1, a5, a4, n] - S2[a1, a3, a1, a5, SP[a2, a4], n] - 
    S2[a1, a3, a1, SP[a2, a5], a4, n] + S2[a1, a3, a2, a1, SP[a4, a5], n] + 
    S2[a1, a3, a2, SP[a1, a5], a4, n] + S2[a1, a5, a1, a2, SP[a3, a4], n] - 
    S2[a2, n]*S2[a1, a5, a1, a3, a4, n] - S2[a1, a5, a1, a3, SP[a2, a4], n] - 
    S2[a2, n]*S2[a1, a5, a1, a4, a3, n] - S2[a1, a5, a1, SP[a2, a4], a3, n] + 
    S2[a1, a5, a1, SP[a3, a4], a2, n] + S2[a1, a5, a2, a1, SP[a3, a4], n] + 
    S2[a1, a5, a2, SP[a1, a4], a3, n] - S2[a2, n]*S2[a1, a5, a4, a1, a3, n] + 
    S2[a1, a5, SP[a1, a4], a2, a3, n] + S2[a1, a5, SP[a1, a4], a3, a2, n] - 
    S2[a1, a5, SP[a2, a4], a1, a3, n] + S2[a1, SP[a1, a3], a4, a5, a2, n] + 
    S2[a1, SP[a1, a3], a5, a2, a4, n] + S2[a1, SP[a1, a3], a5, a4, a2, n] + 
    S2[a1, SP[a1, a5], a2, a3, a4, n] + S2[a1, SP[a1, a5], a2, a4, a3, n] + 
    S2[a1, SP[a1, a5], a3, a2, a4, n] + S2[a1, SP[a1, a5], a3, a4, a2, n] + 
    S2[a1, SP[a1, a5], a4, a2, a3, n] + S2[a1, SP[a1, a5], a4, a3, a2, n] - 
    S2[a1, SP[a2, a5], a1, a3, a4, n] - S2[a1, SP[a2, a5], a1, a4, a3, n] - 
    S2[a1, SP[a2, a5], a4, a1, a3, n] + S2[a2, a1, a1, a3, SP[a4, a5], n] + 
    S2[a2, a1, a1, a4, SP[a3, a5], n] + S2[a2, a1, a1, a5, SP[a3, a4], n] + 
    2*S2[a2, a1, a1, SP[a3, a5], a4, n] + S2[a2, a1, a1, SP[a4, a5], a3, n] + 
    S2[a2, a1, a3, a1, SP[a4, a5], n] + S2[a2, a1, a3, SP[a1, a5], a4, n] - 
    S2[a2, a1, a5, SP[a1, a3], a4, n] + S2[a2, a1, a5, SP[a1, a4], a3, n] + 
    2*S2[a2, a1, SP[a1, a5], a3, a4, n] + 
    2*S2[a2, a1, SP[a1, a5], a4, a3, n] - S2[a2, a5, a1, a1, SP[a3, a4], n] - 
    S2[a2, a5, a1, SP[a1, a3], a4, n] - S2[a2, a5, SP[a1, a1], a3, a4, n] - 
    S2[a2, a5, SP[a1, a1], a4, a3, n] + S2[a2, a5, SP[a1, a4], a1, a3, n] + 
    S2[a2, SP[a1, a5], a1, a3, a4, n] + S2[a2, SP[a1, a5], a1, a4, a3, n] + 
    S2[a2, SP[a1, a5], a4, a1, a3, n] - S2[a2, n]*S2[a5, a4, a1, a1, a3, n] - 
    S2[a5, a4, a1, a1, SP[a2, a3], n] - S2[a5, a4, a1, SP[a1, a2], a3, n] - 
    S2[a5, a4, SP[a1, a2], a1, a3, n] - S2[a5, SP[a2, a4], a1, a1, a3, n] + 
    S2[SP[a1, a1], a3, a5, a2, a4, n] + S2[SP[a1, a1], a3, a5, a4, a2, n] + 
    S2[SP[a1, a1], a5, a2, a3, a4, n] + S2[SP[a1, a1], a5, a2, a4, a3, n] + 
    S2[SP[a1, a1], a5, a3, a2, a4, n] + S2[SP[a1, a1], a5, a3, a4, a2, n] + 
    S2[SP[a1, a1], a5, a4, a2, a3, n] + S2[SP[a1, a1], a5, a4, a3, a2, n] + 
    S2[SP[a1, a3], a1, a4, a5, a2, n] - S2[SP[a2, a5], a4, a1, a1, a3, n] + 
    S2[a5, a2, a4, a1, a1, a3, n] + S2[a5, a4, a1, a1, a2, a3, n] + 
    S2[a5, a4, a1, a1, a3, a2, n] + S2[a5, a4, a1, a2, a1, a3, n] + 
    S2[a5, a4, a2, a1, a1, a3, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a3_, a1_, a1_, a5_, a2_, a4_, n_] :> 
  -(S2[a1, a1, a3, n]*S2[a2, a4, a5, n]) - S2[a1, a1, a3, n]*
     S2[a2, a5, a4, n] - S2[SP[a1, a2], SP[a1, a4], SP[a3, a5], n] - 
    S2[SP[a1, a2], SP[a1, a5], SP[a3, a4], n] + S2[a1, a2, SP[a1, a4], 
     SP[a3, a5], n] + S2[a1, a2, SP[a1, a5], SP[a3, a4], n] - 
    S2[a1, a3, n]*S2[a1, a5, a2, a4, n] + S2[a1, a5, SP[a1, a2], SP[a3, a4], 
     n] + S2[a1, SP[a1, a2], a4, SP[a3, a5], n] + S2[a1, SP[a1, a2], a5, 
     SP[a3, a4], n] + S2[a1, SP[a1, a2], SP[a3, a4], a5, n] + 
    S2[a1, SP[a1, a2], SP[a3, a5], a4, n] + S2[a1, SP[a1, a5], a2, 
     SP[a3, a4], n] + S2[a1, SP[a1, a5], SP[a2, a3], a4, n] + 
    S2[a2, a1, SP[a1, a4], SP[a3, a5], n] + S2[a2, a1, SP[a1, a5], 
     SP[a3, a4], n] + S2[a2, SP[a1, a4], a1, SP[a3, a5], n] + 
    S2[a2, SP[a1, a4], SP[a1, a5], a3, n] + S2[a2, SP[a1, a5], a1, 
     SP[a3, a4], n] + S2[a2, SP[a1, a5], SP[a1, a4], a3, n] + 
    S2[SP[a1, a1], a5, a2, SP[a3, a4], n] + S2[SP[a1, a1], a5, SP[a2, a3], 
     a4, n] + S2[SP[a1, a1], SP[a3, a5], a2, a4, n] + 
    S2[SP[a1, a2], a1, a4, SP[a3, a5], n] + S2[SP[a1, a2], a1, a5, 
     SP[a3, a4], n] + S2[SP[a1, a2], a1, SP[a3, a4], a5, n] + 
    S2[SP[a1, a2], a1, SP[a3, a5], a4, n] + S2[SP[a1, a2], a4, a1, 
     SP[a3, a5], n] + S2[SP[a1, a2], a4, SP[a1, a5], a3, n] + 
    S2[SP[a1, a2], a5, a1, SP[a3, a4], n] + S2[SP[a1, a2], a5, SP[a1, a4], 
     a3, n] + S2[SP[a1, a2], SP[a1, a4], a3, a5, n] + 
    S2[SP[a1, a2], SP[a1, a4], a5, a3, n] + S2[SP[a1, a2], SP[a1, a5], a3, 
     a4, n] + S2[SP[a1, a2], SP[a1, a5], a4, a3, n] - 
    S2[a1, a1, a2, a4, SP[a3, a5], n] - S2[a1, a1, a2, a5, SP[a3, a4], n] - 
    S2[a1, a1, a2, SP[a3, a4], a5, n] - S2[a1, a1, a2, SP[a3, a5], a4, n] - 
    S2[a5, n]*S2[a1, a1, a3, a4, a2, n] + 
    S2[a2, n]*S2[a1, a1, a3, a4, a5, n] + 
    S2[a2, n]*S2[a1, a1, a3, a5, a4, n] + S2[a1, a1, a3, a5, SP[a2, a4], n] + 
    S2[a1, a1, a3, SP[a2, a4], a5, n] + S2[a1, a1, a3, SP[a2, a5], a4, n] - 
    S2[a1, a1, a3, SP[a4, a5], a2, n] - S2[a5, n]*S2[a1, a1, a4, a2, a3, n] - 
    S2[a1, a1, a4, a2, SP[a3, a5], n] - S2[a5, n]*S2[a1, a1, a4, a3, a2, n] + 
    S2[a2, n]*S2[a1, a1, a4, a3, a5, n] + 
    S2[a2, n]*S2[a1, a1, a4, a5, a3, n] + S2[a1, a1, a4, a5, SP[a2, a3], n] + 
    S2[a1, a1, a4, SP[a2, a3], a5, n] - S2[a1, a1, a4, SP[a3, a5], a2, n] + 
    S2[a3, n]*S2[a1, a1, a5, a2, a4, n] - S2[a1, a1, a5, a2, SP[a3, a4], n] + 
    S2[a2, n]*S2[a1, a1, a5, a3, a4, n] + S2[a1, a1, a5, a3, SP[a2, a4], n] + 
    S2[a2, n]*S2[a1, a1, a5, a4, a3, n] + S2[a1, a1, a5, a4, SP[a2, a3], n] + 
    S2[a1, a1, a5, SP[a2, a4], a3, n] + S2[a1, a1, SP[a2, a4], a3, a5, n] + 
    S2[a1, a1, SP[a2, a4], a5, a3, n] + S2[a1, a1, SP[a2, a5], a3, a4, n] + 
    S2[a1, a1, SP[a2, a5], a4, a3, n] - S2[a1, a1, SP[a3, a5], a2, a4, n] - 
    S2[a1, a1, SP[a3, a5], a4, a2, n] - S2[a1, a1, SP[a4, a5], a2, a3, n] - 
    S2[a1, a1, SP[a4, a5], a3, a2, n] - S2[a1, a2, a1, a4, SP[a3, a5], n] - 
    S2[a1, a2, a1, a5, SP[a3, a4], n] - S2[a1, a2, a1, SP[a3, a4], a5, n] - 
    S2[a1, a2, a1, SP[a3, a5], a4, n] - S2[a1, a2, a4, a1, SP[a3, a5], n] - 
    S2[a1, a2, a4, SP[a1, a5], a3, n] - S2[a1, a2, a5, a1, SP[a3, a4], n] - 
    S2[a1, a2, a5, SP[a1, a4], a3, n] - S2[a1, a2, SP[a1, a4], a3, a5, n] - 
    S2[a1, a2, SP[a1, a4], a5, a3, n] - S2[a1, a2, SP[a1, a5], a3, a4, n] - 
    S2[a1, a2, SP[a1, a5], a4, a3, n] - S2[a5, n]*S2[a1, a4, a1, a2, a3, n] - 
    S2[a1, a4, a1, a2, SP[a3, a5], n] - S2[a5, n]*S2[a1, a4, a1, a3, a2, n] + 
    S2[a2, n]*S2[a1, a4, a1, a3, a5, n] + 
    S2[a2, n]*S2[a1, a4, a1, a5, a3, n] + S2[a1, a4, a1, a5, SP[a2, a3], n] + 
    S2[a1, a4, a1, SP[a2, a3], a5, n] - S2[a1, a4, a1, SP[a3, a5], a2, n] - 
    S2[a5, n]*S2[a1, a4, a2, a1, a3, n] - S2[a1, a4, a2, a1, SP[a3, a5], n] - 
    S2[a1, a4, a2, SP[a1, a5], a3, n] + S2[a2, n]*S2[a1, a4, a5, a1, a3, n] + 
    S2[a1, a4, a5, a1, SP[a2, a3], n] + S2[a1, a4, a5, SP[a1, a2], a3, n] + 
    S2[a1, a4, SP[a1, a2], a3, a5, n] + S2[a1, a4, SP[a1, a2], a5, a3, n] - 
    S2[a1, a4, SP[a1, a5], a2, a3, n] - S2[a1, a4, SP[a1, a5], a3, a2, n] - 
    S2[a1, a5, a1, a2, SP[a3, a4], n] + S2[a2, n]*S2[a1, a5, a1, a3, a4, n] + 
    S2[a1, a5, a1, a3, SP[a2, a4], n] + S2[a2, n]*S2[a1, a5, a1, a4, a3, n] + 
    S2[a1, a5, a1, a4, SP[a2, a3], n] + S2[a1, a5, a1, SP[a2, a4], a3, n] - 
    S2[a1, a5, a2, a1, SP[a3, a4], n] - S2[a1, a5, a2, SP[a1, a4], a3, n] + 
    S2[a2, n]*S2[a1, a5, a4, a1, a3, n] + S2[a1, a5, a4, a1, SP[a2, a3], n] + 
    S2[a1, a5, a4, SP[a1, a2], a3, n] + S2[a1, a5, SP[a2, a4], a1, a3, n] - 
    S2[a1, SP[a1, a5], a2, a3, a4, n] - S2[a1, SP[a1, a5], a2, a4, a3, n] - 
    S2[a1, SP[a1, a5], a3, a2, a4, n] - S2[a1, SP[a1, a5], a3, a4, a2, n] - 
    S2[a1, SP[a1, a5], a4, a2, a3, n] - S2[a1, SP[a1, a5], a4, a3, a2, n] + 
    S2[a1, SP[a2, a4], a1, a3, a5, n] + S2[a1, SP[a2, a4], a1, a5, a3, n] + 
    S2[a1, SP[a2, a4], a5, a1, a3, n] + S2[a1, SP[a2, a5], a1, a3, a4, n] + 
    S2[a1, SP[a2, a5], a1, a4, a3, n] + S2[a1, SP[a2, a5], a4, a1, a3, n] - 
    S2[a1, SP[a4, a5], a1, a2, a3, n] - S2[a1, SP[a4, a5], a1, a3, a2, n] - 
    S2[a1, SP[a4, a5], a2, a1, a3, n] - S2[a2, a1, a1, a4, SP[a3, a5], n] - 
    S2[a2, a1, a1, a5, SP[a3, a4], n] - S2[a2, a1, a1, SP[a3, a4], a5, n] - 
    S2[a2, a1, a1, SP[a3, a5], a4, n] - S2[a2, a1, a4, a1, SP[a3, a5], n] - 
    S2[a2, a1, a4, SP[a1, a5], a3, n] - S2[a2, a1, a5, a1, SP[a3, a4], n] - 
    S2[a2, a1, a5, SP[a1, a4], a3, n] - S2[a2, a1, SP[a1, a4], a3, a5, n] - 
    S2[a2, a1, SP[a1, a4], a5, a3, n] - S2[a2, a1, SP[a1, a5], a3, a4, n] - 
    S2[a2, a1, SP[a1, a5], a4, a3, n] + S2[a5, n]*S2[a2, a4, a1, a1, a3, n] - 
    S2[a2, a5, a1, a1, SP[a3, a4], n] - S2[a2, a5, a1, SP[a1, a4], a3, n] - 
    S2[a2, a5, SP[a1, a4], a1, a3, n] - S2[a2, SP[a1, a4], a1, a3, a5, n] - 
    S2[a2, SP[a1, a4], a1, a5, a3, n] - S2[a2, SP[a1, a4], a5, a1, a3, n] - 
    S2[a2, SP[a1, a5], a1, a3, a4, n] - S2[a2, SP[a1, a5], a1, a4, a3, n] - 
    S2[a2, SP[a1, a5], a4, a1, a3, n] + S2[a2, SP[a4, a5], a1, a1, a3, n] + 
    S2[a2, n]*S2[a5, a1, a1, a3, a4, n] + S2[a5, a1, a1, a3, SP[a2, a4], n] + 
    S2[a2, n]*S2[a5, a1, a1, a4, a3, n] + S2[a5, a1, a1, a4, SP[a2, a3], n] + 
    S2[a5, a1, a1, SP[a2, a3], a4, n] + S2[a5, a1, a1, SP[a2, a4], a3, n] + 
    S2[a2, n]*S2[a5, a1, a4, a1, a3, n] + S2[a5, a1, a4, a1, SP[a2, a3], n] + 
    S2[a5, a1, a4, SP[a1, a2], a3, n] + S2[a5, a1, SP[a1, a2], a3, a4, n] + 
    S2[a5, a1, SP[a1, a2], a4, a3, n] + S2[a5, a1, SP[a2, a4], a1, a3, n] + 
    S2[a5, SP[a1, a2], a1, a3, a4, n] + S2[a5, SP[a1, a2], a1, a4, a3, n] + 
    S2[a5, SP[a1, a2], a4, a1, a3, n] - S2[SP[a1, a1], a3, a5, a2, a4, n] - 
    S2[SP[a1, a1], a5, a2, a3, a4, n] - S2[SP[a1, a1], a5, a2, a4, a3, n] - 
    S2[SP[a1, a1], a5, a3, a2, a4, n] + S2[SP[a1, a3], a1, a5, a2, a4, n] - 
    S2[SP[a1, a5], a1, a3, a4, a2, n] - S2[SP[a1, a5], a1, a4, a2, a3, n] - 
    S2[SP[a1, a5], a1, a4, a3, a2, n] - S2[SP[a1, a5], a4, a1, a2, a3, n] - 
    S2[SP[a1, a5], a4, a1, a3, a2, n] - S2[SP[a1, a5], a4, a2, a1, a3, n] + 
    S2[SP[a2, a5], a1, a1, a3, a4, n] + S2[SP[a2, a5], a1, a1, a4, a3, n] + 
    S2[SP[a2, a5], a1, a4, a1, a3, n] + S2[SP[a2, a5], a4, a1, a1, a3, n] - 
    S2[a5, a1, a1, a2, a3, a4, n] - S2[a5, a1, a1, a2, a4, a3, n] - 
    S2[a5, a1, a1, a3, a2, a4, n] - S2[a5, a1, a2, a1, a3, a4, n] - 
    S2[a5, a1, a2, a1, a4, a3, n] - S2[a5, a1, a2, a4, a1, a3, n] - 
    S2[a5, a2, a1, a1, a3, a4, n] - S2[a5, a2, a1, a1, a4, a3, n] - 
    S2[a5, a2, a1, a4, a1, a3, n] - S2[a5, a2, a4, a1, a1, a3, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a3_, a1_, a1_, a5_, a4_, a2_, n_] :> 
  S2[a1, a1, a3, n]*S2[a2, a4, a5, n] + S2[SP[a1, a2], SP[a1, a4], 
     SP[a3, a5], n] - S2[a1, a2, SP[a1, a4], SP[a3, a5], n] - 
    S2[a1, a3, n]*S2[a1, a5, a4, a2, n] + S2[a1, a5, SP[a1, a4], SP[a2, a3], 
     n] - S2[a1, SP[a1, a2], a4, SP[a3, a5], n] - 
    S2[a1, SP[a1, a2], SP[a3, a4], a5, n] + S2[a1, SP[a1, a5], a4, 
     SP[a2, a3], n] + S2[a1, SP[a1, a5], SP[a3, a4], a2, n] - 
    S2[a2, a1, SP[a1, a4], SP[a3, a5], n] - S2[a2, SP[a1, a4], a1, 
     SP[a3, a5], n] - S2[a2, SP[a1, a4], SP[a1, a5], a3, n] + 
    S2[SP[a1, a1], a5, a4, SP[a2, a3], n] + S2[SP[a1, a1], a5, SP[a3, a4], 
     a2, n] + S2[SP[a1, a1], SP[a3, a5], a4, a2, n] - 
    S2[SP[a1, a2], a1, a4, SP[a3, a5], n] - S2[SP[a1, a2], a1, SP[a3, a4], 
     a5, n] - S2[SP[a1, a2], a4, a1, SP[a3, a5], n] - 
    S2[SP[a1, a2], a4, SP[a1, a5], a3, n] - S2[SP[a1, a2], SP[a1, a4], a3, 
     a5, n] - S2[SP[a1, a2], SP[a1, a4], a5, a3, n] + 
    S2[a1, a1, a2, a4, SP[a3, a5], n] + S2[a1, a1, a2, SP[a3, a4], a5, n] + 
    S2[a5, n]*S2[a1, a1, a3, a4, a2, n] - 
    S2[a2, n]*S2[a1, a1, a3, a4, a5, n] - S2[a1, a1, a3, SP[a2, a4], a5, n] + 
    S2[a1, a1, a3, SP[a4, a5], a2, n] + S2[a5, n]*S2[a1, a1, a4, a2, a3, n] + 
    S2[a1, a1, a4, a2, SP[a3, a5], n] + S2[a5, n]*S2[a1, a1, a4, a3, a2, n] - 
    S2[a2, n]*S2[a1, a1, a4, a3, a5, n] - 
    S2[a2, n]*S2[a1, a1, a4, a5, a3, n] - S2[a1, a1, a4, a5, SP[a2, a3], n] - 
    S2[a1, a1, a4, SP[a2, a3], a5, n] + S2[a1, a1, a4, SP[a3, a5], a2, n] + 
    S2[a3, n]*S2[a1, a1, a5, a4, a2, n] - S2[a1, a1, a5, a4, SP[a2, a3], n] - 
    S2[a1, a1, a5, SP[a3, a4], a2, n] - S2[a1, a1, SP[a2, a4], a3, a5, n] - 
    S2[a1, a1, SP[a2, a4], a5, a3, n] + S2[a1, a1, SP[a4, a5], a2, a3, n] + 
    S2[a1, a1, SP[a4, a5], a3, a2, n] + S2[a1, a2, a1, a4, SP[a3, a5], n] + 
    S2[a1, a2, a1, SP[a3, a4], a5, n] + S2[a1, a2, a4, a1, SP[a3, a5], n] + 
    S2[a1, a2, a4, SP[a1, a5], a3, n] + S2[a1, a2, SP[a1, a4], a3, a5, n] + 
    S2[a1, a2, SP[a1, a4], a5, a3, n] + S2[a5, n]*S2[a1, a4, a1, a2, a3, n] + 
    S2[a1, a4, a1, a2, SP[a3, a5], n] + S2[a5, n]*S2[a1, a4, a1, a3, a2, n] - 
    S2[a2, n]*S2[a1, a4, a1, a3, a5, n] - 
    S2[a2, n]*S2[a1, a4, a1, a5, a3, n] - S2[a1, a4, a1, a5, SP[a2, a3], n] - 
    S2[a1, a4, a1, SP[a2, a3], a5, n] + S2[a1, a4, a1, SP[a3, a5], a2, n] + 

    S2[a5, n]*S2[a1, a4, a2, a1, a3, n] + S2[a1, a4, a2, a1, SP[a3, a5], n] + 
    S2[a1, a4, a2, SP[a1, a5], a3, n] - S2[a2, n]*S2[a1, a4, a5, a1, a3, n] - 
    S2[a1, a4, a5, a1, SP[a2, a3], n] - S2[a1, a4, a5, SP[a1, a2], a3, n] - 
    S2[a1, a4, SP[a1, a2], a3, a5, n] - S2[a1, a4, SP[a1, a2], a5, a3, n] + 
    S2[a1, a4, SP[a1, a5], a2, a3, n] + S2[a1, a4, SP[a1, a5], a3, a2, n] - 
    S2[a1, a5, a1, a4, SP[a2, a3], n] - S2[a1, a5, a1, SP[a3, a4], a2, n] - 
    S2[a1, a5, a4, a1, SP[a2, a3], n] - S2[a1, a5, a4, SP[a1, a2], a3, n] - 
    S2[a1, a5, SP[a1, a4], a2, a3, n] - S2[a1, a5, SP[a1, a4], a3, a2, n] - 
    S2[a1, SP[a2, a4], a1, a3, a5, n] - S2[a1, SP[a2, a4], a1, a5, a3, n] - 
    S2[a1, SP[a2, a4], a5, a1, a3, n] + S2[a1, SP[a4, a5], a1, a2, a3, n] + 
    S2[a1, SP[a4, a5], a1, a3, a2, n] + S2[a1, SP[a4, a5], a2, a1, a3, n] + 
    S2[a2, a1, a1, a4, SP[a3, a5], n] + S2[a2, a1, a1, SP[a3, a4], a5, n] + 
    S2[a2, a1, a4, a1, SP[a3, a5], n] + S2[a2, a1, a4, SP[a1, a5], a3, n] + 
    S2[a2, a1, SP[a1, a4], a3, a5, n] + S2[a2, a1, SP[a1, a4], a5, a3, n] - 
    S2[a5, n]*S2[a2, a4, a1, a1, a3, n] + S2[a2, SP[a1, a4], a1, a3, a5, n] + 
    S2[a2, SP[a1, a4], a1, a5, a3, n] + S2[a2, SP[a1, a4], a5, a1, a3, n] - 
    S2[a2, SP[a4, a5], a1, a1, a3, n] + S2[a2, n]*S2[a5, a4, a1, a1, a3, n] + 
    S2[a5, a4, a1, a1, SP[a2, a3], n] + S2[a5, a4, a1, SP[a1, a2], a3, n] + 
    S2[a5, a4, SP[a1, a2], a1, a3, n] + S2[a5, SP[a2, a4], a1, a1, a3, n] - 
    S2[SP[a1, a1], a3, a5, a4, a2, n] - S2[SP[a1, a1], a5, a3, a4, a2, n] - 
    S2[SP[a1, a1], a5, a4, a2, a3, n] - S2[SP[a1, a1], a5, a4, a3, a2, n] + 
    S2[SP[a1, a3], a1, a5, a4, a2, n] + S2[SP[a1, a5], a1, a3, a4, a2, n] + 
    S2[SP[a1, a5], a1, a4, a2, a3, n] + S2[SP[a1, a5], a1, a4, a3, a2, n] + 
    S2[SP[a1, a5], a4, a1, a2, a3, n] + S2[SP[a1, a5], a4, a1, a3, a2, n] + 
    S2[SP[a1, a5], a4, a2, a1, a3, n] - S2[a5, a1, a1, a3, a4, a2, n] - 
    S2[a5, a1, a1, a4, a2, a3, n] - S2[a5, a1, a1, a4, a3, a2, n] - 
    S2[a5, a1, a4, a1, a2, a3, n] - S2[a5, a1, a4, a1, a3, a2, n] - 
    S2[a5, a1, a4, a2, a1, a3, n] - S2[a5, a4, a1, a1, a2, a3, n] - 
    S2[a5, a4, a1, a1, a3, a2, n] - S2[a5, a4, a1, a2, a1, a3, n] - 
    S2[a5, a4, a2, a1, a1, a3, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a3_, a1_, a2_, a1_, a4_, a5_, n_] :> 
  -(S2[a1, a2, a3, n]*S2[a1, a4, a5, n]) - S2[a1, a3, a2, n]*
     S2[a1, a4, a5, n] - S2[SP[a1, a1], SP[a2, a4], SP[a3, a5], n] - 
    S2[SP[a1, a1], SP[a3, a4], SP[a2, a5], n] + 
    2*S2[a1, a1, SP[a2, a4], SP[a3, a5], n] + 
    2*S2[a1, a1, SP[a3, a4], SP[a2, a5], n] - 
    S2[a4, a5, n]*S2[a1, a2, a1, a3, n] + S2[a1, a3, n]*
     S2[a1, a2, a4, a5, n] + S2[a1, a3, n]*S2[a1, a4, a2, a5, n] + 
    S2[a1, a3, n]*S2[a1, a4, a5, a2, n] - S2[a1, a4, SP[a1, a2], SP[a3, a5], 
     n] - S2[a1, a4, SP[a1, a5], SP[a2, a3], n] + S2[a1, SP[a1, a3], a4, 
     SP[a2, a5], n] + S2[a1, SP[a1, a3], SP[a2, a4], a5, n] + 
    S2[a1, SP[a1, a4], a3, SP[a2, a5], n] - S2[a1, SP[a1, a4], a5, 
     SP[a2, a3], n] - S2[a1, SP[a1, a4], SP[a2, a3], a5, n] + 
    S2[a1, SP[a1, a4], SP[a2, a5], a3, n] + S2[a1, SP[a2, a4], a1, 
     SP[a3, a5], n] + S2[a1, SP[a2, a4], SP[a1, a5], a3, n] + 
    S2[SP[a1, a1], a3, a4, SP[a2, a5], n] + S2[SP[a1, a1], a3, SP[a2, a4], 
     a5, n] + S2[SP[a1, a1], a4, a3, SP[a2, a5], n] - 
    S2[SP[a1, a1], a4, a5, SP[a2, a3], n] - S2[SP[a1, a1], a4, SP[a2, a3], 
     a5, n] + S2[SP[a1, a1], a4, SP[a2, a5], a3, n] - 
    S2[SP[a1, a1], SP[a2, a3], a4, a5, n] + S2[SP[a1, a1], SP[a2, a4], a3, 
     a5, n] + S2[SP[a1, a1], SP[a2, a4], a5, a3, n] + 
    S2[SP[a1, a4], a2, a1, SP[a3, a5], n] + S2[SP[a1, a4], a2, SP[a1, a5], 
     a3, n] + S2[SP[a1, a4], SP[a2, a5], a1, a3, n] - 
    2*S2[a1, a1, a3, a4, SP[a2, a5], n] - 
    2*S2[a1, a1, a3, SP[a2, a4], a5, n] - 
    2*S2[a1, a1, a4, a3, SP[a2, a5], n] + 
    2*S2[a1, a1, a4, a5, SP[a2, a3], n] + 
    2*S2[a1, a1, a4, SP[a2, a3], a5, n] - 
    2*S2[a1, a1, a4, SP[a2, a5], a3, n] + 
    2*S2[a1, a1, SP[a2, a3], a4, a5, n] - 
    2*S2[a1, a1, SP[a2, a4], a3, a5, n] - 
    2*S2[a1, a1, SP[a2, a4], a5, a3, n] - 
    S2[a5, n]*S2[a1, a2, a1, a3, a4, n] + 
    S2[a4, n]*S2[a1, a2, a1, a3, a5, n] - 
    S2[a5, n]*S2[a1, a2, a1, a4, a3, n] + 
    S2[a3, n]*S2[a1, a2, a1, a4, a5, n] - S2[a1, a2, a1, a4, SP[a3, a5], n] + 
    S2[a4, n]*S2[a1, a2, a1, a5, a3, n] + S2[a1, a2, a1, a5, SP[a3, a4], n] + 
    S2[a1, a2, a1, SP[a3, a4], a5, n] - S2[a1, a2, a1, SP[a3, a5], a4, n] - 
    S2[a5, n]*S2[a1, a2, a4, a1, a3, n] - S2[a1, a2, a4, a1, SP[a3, a5], n] - 
    S2[a1, a2, a4, SP[a1, a5], a3, n] + S2[a4, n]*S2[a1, a2, a5, a1, a3, n] + 
    S2[a1, a2, a5, a1, SP[a3, a4], n] + S2[a1, a2, a5, SP[a1, a4], a3, n] + 
    S2[a1, a2, SP[a1, a4], a3, a5, n] + S2[a1, a2, SP[a1, a4], a5, a3, n] - 
    S2[a1, a2, SP[a1, a5], a3, a4, n] - S2[a1, a2, SP[a1, a5], a4, a3, n] - 
    S2[a1, a3, a1, a4, SP[a2, a5], n] - S2[a1, a3, a1, SP[a2, a4], a5, n] - 
    S2[a1, a3, SP[a1, a2], a4, a5, n] - S2[a1, a4, a1, a3, SP[a2, a5], n] + 
    S2[a1, a4, a1, a5, SP[a2, a3], n] + S2[a1, a4, a1, SP[a2, a3], a5, n] - 
    S2[a1, a4, a1, SP[a2, a5], a3, n] - S2[a5, n]*S2[a1, a4, a2, a1, a3, n] - 
    S2[a1, a4, a2, a1, SP[a3, a5], n] - S2[a1, a4, a2, SP[a1, a5], a3, n] + 
    S2[a1, a4, a5, a1, SP[a2, a3], n] + S2[a1, a4, a5, SP[a1, a2], a3, n] + 
    S2[a1, a4, SP[a1, a2], a3, a5, n] + S2[a1, a4, SP[a1, a2], a5, a3, n] - 
    2*S2[a1, a4, SP[a2, a5], a1, a3, n] + 
    S2[a4, n]*S2[a1, a5, a2, a1, a3, n] + S2[a1, a5, a2, a1, SP[a3, a4], n] + 
    S2[a1, a5, a2, SP[a1, a4], a3, n] + S2[a1, a5, SP[a2, a4], a1, a3, n] + 
    S2[a1, SP[a2, a3], a1, a4, a5, n] - S2[a1, SP[a2, a5], a1, a3, a4, n] - 
    S2[a1, SP[a2, a5], a1, a4, a3, n] - S2[a1, SP[a2, a5], a4, a1, a3, n] - 
    S2[a4, a1, a2, a1, SP[a3, a5], n] - S2[a4, a1, a2, SP[a1, a5], a3, n] - 
    S2[a4, a1, SP[a2, a5], a1, a3, n] - S2[a4, SP[a1, a5], a2, a1, a3, n] + 
    S2[a4, n]*S2[a5, a1, a2, a1, a3, n] + S2[a5, a1, a2, a1, SP[a3, a4], n] + 
    S2[a5, a1, a2, SP[a1, a4], a3, n] + S2[a5, a1, SP[a2, a4], a1, a3, n] + 
    S2[a5, SP[a1, a4], a2, a1, a3, n] + S2[SP[a1, a3], a2, a1, a4, a5, n] - 
    S2[SP[a1, a5], a2, a1, a3, a4, n] - S2[SP[a1, a5], a2, a1, a4, a3, n] - 
    S2[SP[a1, a5], a2, a4, a1, a3, n] - S2[SP[a1, a5], a4, a2, a1, a3, n] + 
    S2[SP[a4, a5], a1, a2, a1, a3, n] - S2[a5, a4, a1, a2, a1, a3, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a3_, a1_, a2_, a1_, a5_, a4_, n_] :> 
  -(S2[a1, a2, a3, n]*S2[a1, a5, a4, n]) - S2[a1, a3, a2, n]*
     S2[a1, a5, a4, n] - S2[SP[a1, a1], SP[a2, a5], SP[a3, a4], n] - 
    S2[SP[a1, a1], SP[a3, a5], SP[a2, a4], n] + 
    2*S2[a1, a1, SP[a2, a5], SP[a3, a4], n] + 
    2*S2[a1, a1, SP[a3, a5], SP[a2, a4], n] + 
    S2[a4, a5, n]*S2[a1, a2, a1, a3, n] + S2[a1, a3, n]*
     S2[a1, a2, a5, a4, n] - S2[a1, a2, SP[a1, a4], SP[a3, a5], n] - 
    S2[a1, a2, SP[a1, a5], SP[a3, a4], n] + S2[a1, a3, n]*
     S2[a1, a5, a2, a4, n] + S2[a1, a3, n]*S2[a1, a5, a4, a2, n] - 
    S2[a1, a5, SP[a1, a2], SP[a3, a4], n] - S2[a1, a5, SP[a1, a4], 
     SP[a2, a3], n] + S2[a1, SP[a1, a3], a5, SP[a2, a4], n] + 
    S2[a1, SP[a1, a3], SP[a2, a5], a4, n] + S2[a1, SP[a1, a5], a3, 
     SP[a2, a4], n] - S2[a1, SP[a1, a5], a4, SP[a2, a3], n] - 
    S2[a1, SP[a1, a5], SP[a2, a3], a4, n] + S2[a1, SP[a1, a5], SP[a2, a4], 
     a3, n] - S2[a1, SP[a2, a4], a1, SP[a3, a5], n] - 
    S2[a1, SP[a2, a4], SP[a1, a5], a3, n] + S2[SP[a1, a1], a3, a5, 
     SP[a2, a4], n] + S2[SP[a1, a1], a3, SP[a2, a5], a4, n] + 
    S2[SP[a1, a1], a5, a3, SP[a2, a4], n] - S2[SP[a1, a1], a5, a4, 
     SP[a2, a3], n] - S2[SP[a1, a1], a5, SP[a2, a3], a4, n] + 
    S2[SP[a1, a1], a5, SP[a2, a4], a3, n] - S2[SP[a1, a1], SP[a2, a3], a5, 
     a4, n] + S2[SP[a1, a1], SP[a2, a5], a3, a4, n] + 
    S2[SP[a1, a1], SP[a2, a5], a4, a3, n] - S2[SP[a1, a4], a2, a1, 
     SP[a3, a5], n] - S2[SP[a1, a4], a2, SP[a1, a5], a3, n] - 
    S2[SP[a1, a4], SP[a2, a5], a1, a3, n] - 
    2*S2[a1, a1, a3, a5, SP[a2, a4], n] - 
    2*S2[a1, a1, a3, SP[a2, a5], a4, n] - 
    2*S2[a1, a1, a5, a3, SP[a2, a4], n] + 
    2*S2[a1, a1, a5, a4, SP[a2, a3], n] + 
    2*S2[a1, a1, a5, SP[a2, a3], a4, n] - 
    2*S2[a1, a1, a5, SP[a2, a4], a3, n] + 
    2*S2[a1, a1, SP[a2, a3], a5, a4, n] - 
    2*S2[a1, a1, SP[a2, a5], a3, a4, n] - 
    2*S2[a1, a1, SP[a2, a5], a4, a3, n] - 
    S2[a4, n]*S2[a1, a2, a1, a3, a5, n] - S2[a1, a2, a1, a3, SP[a4, a5], n] + 
    S2[a1, a2, a1, a4, SP[a3, a5], n] - S2[a4, n]*S2[a1, a2, a1, a5, a3, n] + 
    S2[a3, n]*S2[a1, a2, a1, a5, a4, n] + S2[a1, a2, a1, SP[a3, a5], a4, n] - 
    S2[a1, a2, a1, SP[a4, a5], a3, n] + S2[a1, a2, a4, a1, SP[a3, a5], n] + 
    S2[a1, a2, a4, SP[a1, a5], a3, n] - S2[a4, n]*S2[a1, a2, a5, a1, a3, n] + 
    S2[a1, a2, SP[a1, a5], a3, a4, n] + S2[a1, a2, SP[a1, a5], a4, a3, n] - 
    S2[a1, a2, SP[a4, a5], a1, a3, n] - S2[a1, a3, a1, a5, SP[a2, a4], n] - 
    S2[a1, a3, a1, SP[a2, a5], a4, n] - S2[a1, a3, SP[a1, a2], a5, a4, n] + 
    S2[a1, a4, a2, a1, SP[a3, a5], n] + S2[a1, a4, a2, SP[a1, a5], a3, n] + 
    S2[a1, a4, SP[a2, a5], a1, a3, n] - S2[a1, a5, a1, a3, SP[a2, a4], n] + 
    S2[a1, a5, a1, a4, SP[a2, a3], n] + S2[a1, a5, a1, SP[a2, a3], a4, n] - 
    S2[a1, a5, a1, SP[a2, a4], a3, n] - S2[a4, n]*S2[a1, a5, a2, a1, a3, n] + 
    S2[a1, a5, a4, a1, SP[a2, a3], n] + S2[a1, a5, a4, SP[a1, a2], a3, n] + 
    S2[a1, a5, SP[a1, a2], a3, a4, n] + S2[a1, a5, SP[a1, a2], a4, a3, n] - 
    S2[a1, a5, SP[a2, a4], a1, a3, n] + S2[a1, SP[a2, a3], a1, a5, a4, n] - 
    S2[a1, SP[a4, a5], a2, a1, a3, n] + S2[a4, a1, a2, a1, SP[a3, a5], n] + 
    S2[a4, a1, a2, SP[a1, a5], a3, n] + S2[a4, a1, SP[a2, a5], a1, a3, n] + 
    S2[a4, SP[a1, a5], a2, a1, a3, n] - S2[a4, n]*S2[a5, a1, a2, a1, a3, n] - 
    S2[a5, a1, a2, a1, SP[a3, a4], n] - S2[a5, a1, a2, SP[a1, a4], a3, n] - 
    S2[a5, a1, SP[a2, a4], a1, a3, n] - S2[a5, SP[a1, a4], a2, a1, a3, n] + 
    S2[SP[a1, a3], a2, a1, a5, a4, n] - S2[SP[a4, a5], a1, a2, a1, a3, n] + 
    S2[a5, a1, a2, a1, a3, a4, n] + S2[a5, a1, a2, a1, a4, a3, n] + 
    S2[a5, a1, a2, a4, a1, a3, n] + S2[a5, a1, a4, a2, a1, a3, n] + 
    S2[a5, a4, a1, a2, a1, a3, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a3_, a1_, a2_, a4_, a1_, a5_, n_] :> 
  S2[a1, a2, a3, n]*S2[a1, a4, a5, n] + S2[a1, a3, a2, n]*S2[a1, a4, a5, n] + 
    S2[a1, a2, a3, n]*S2[a1, a5, a4, n] + S2[a1, a3, a2, n]*
     S2[a1, a5, a4, n] + S2[SP[a1, a1], SP[a2, a4], SP[a3, a5], n] + 
    S2[SP[a1, a1], SP[a2, a5], SP[a3, a4], n] + S2[SP[a1, a1], SP[a3, a4], 
     SP[a2, a5], n] + S2[SP[a1, a1], SP[a3, a5], SP[a2, a4], n] - 
    2*S2[a1, a1, SP[a2, a4], SP[a3, a5], n] - 
    2*S2[a1, a1, SP[a2, a5], SP[a3, a4], n] - 
    2*S2[a1, a1, SP[a3, a4], SP[a2, a5], n] - 
    2*S2[a1, a1, SP[a3, a5], SP[a2, a4], n] - 
    S2[a1, a5, n]*S2[a1, a2, a3, a4, n] - S2[a1, a5, n]*
     S2[a1, a2, a4, a3, n] + S2[a1, a2, SP[a1, a3], SP[a4, a5], n] + 
    S2[a1, a2, SP[a1, a4], SP[a3, a5], n] - S2[a1, a5, n]*
     S2[a1, a3, a2, a4, n] + S2[a1, a3, SP[a1, a2], SP[a4, a5], n] - 
    S2[a1, a3, n]*S2[a1, a4, a2, a5, n] - S2[a1, a3, n]*
     S2[a1, a4, a5, a2, n] + S2[a1, a4, SP[a1, a2], SP[a3, a5], n] + 
    S2[a1, a4, SP[a1, a5], SP[a2, a3], n] - S2[a1, a3, n]*
     S2[a1, a5, a4, a2, n] + S2[a1, a5, SP[a1, a4], SP[a2, a3], n] + 
    S2[a1, SP[a1, a2], a3, SP[a4, a5], n] - S2[a1, SP[a1, a2], a5, 
     SP[a3, a4], n] - S2[a1, SP[a1, a2], SP[a3, a4], a5, n] + 
    S2[a1, SP[a1, a2], SP[a4, a5], a3, n] + S2[a1, SP[a1, a3], a2, 
     SP[a4, a5], n] - S2[a1, SP[a1, a3], a4, SP[a2, a5], n] - 
    S2[a1, SP[a1, a3], a5, SP[a2, a4], n] - S2[a1, SP[a1, a3], SP[a2, a4], 
     a5, n] - S2[a1, SP[a1, a4], a3, SP[a2, a5], n] + 
    S2[a1, SP[a1, a4], a5, SP[a2, a3], n] + S2[a1, SP[a1, a4], SP[a2, a3], 
     a5, n] - S2[a1, SP[a1, a4], SP[a2, a5], a3, n] - 
    S2[a1, SP[a1, a5], a2, SP[a3, a4], n] - S2[a1, SP[a1, a5], a3, 
     SP[a2, a4], n] + S2[a1, SP[a1, a5], a4, SP[a2, a3], n] - 
    S2[a1, SP[a1, a5], SP[a2, a4], a3, n] + S2[SP[a1, a1], a2, a3, 
     SP[a4, a5], n] - S2[SP[a1, a1], a2, a5, SP[a3, a4], n] - 
    S2[SP[a1, a1], a2, SP[a3, a4], a5, n] + S2[SP[a1, a1], a2, SP[a4, a5], 
     a3, n] + S2[SP[a1, a1], a3, a2, SP[a4, a5], n] - 
    S2[SP[a1, a1], a3, a4, SP[a2, a5], n] - S2[SP[a1, a1], a3, a5, 
     SP[a2, a4], n] - S2[SP[a1, a1], a3, SP[a2, a4], a5, n] - 
    S2[SP[a1, a1], a4, a3, SP[a2, a5], n] + S2[SP[a1, a1], a4, a5, 
     SP[a2, a3], n] + S2[SP[a1, a1], a4, SP[a2, a3], a5, n] - 
    S2[SP[a1, a1], a4, SP[a2, a5], a3, n] - S2[SP[a1, a1], a5, a2, 
     SP[a3, a4], n] - S2[SP[a1, a1], a5, a3, SP[a2, a4], n] + 
    S2[SP[a1, a1], a5, a4, SP[a2, a3], n] - S2[SP[a1, a1], a5, SP[a2, a4], 
     a3, n] - S2[SP[a1, a1], SP[a2, a4], a3, a5, n] - 
    S2[SP[a1, a1], SP[a2, a4], a5, a3, n] - 
    2*S2[a1, a1, a2, a3, SP[a4, a5], n] + 
    2*S2[a1, a1, a2, a5, SP[a3, a4], n] + 
    2*S2[a1, a1, a2, SP[a3, a4], a5, n] - 
    2*S2[a1, a1, a2, SP[a4, a5], a3, n] - 
    2*S2[a1, a1, a3, a2, SP[a4, a5], n] + 
    2*S2[a1, a1, a3, a4, SP[a2, a5], n] + 
    2*S2[a1, a1, a3, a5, SP[a2, a4], n] + 
    2*S2[a1, a1, a3, SP[a2, a4], a5, n] + 
    2*S2[a1, a1, a4, a3, SP[a2, a5], n] - 
    2*S2[a1, a1, a4, a5, SP[a2, a3], n] - 
    2*S2[a1, a1, a4, SP[a2, a3], a5, n] + 
    2*S2[a1, a1, a4, SP[a2, a5], a3, n] + 
    2*S2[a1, a1, a5, a2, SP[a3, a4], n] + 
    2*S2[a1, a1, a5, a3, SP[a2, a4], n] - 
    2*S2[a1, a1, a5, a4, SP[a2, a3], n] + 
    2*S2[a1, a1, a5, SP[a2, a4], a3, n] + 
    2*S2[a1, a1, SP[a2, a4], a3, a5, n] + 
    2*S2[a1, a1, SP[a2, a4], a5, a3, n] - S2[a1, a2, a1, a3, SP[a4, a5], n] + 
    S2[a1, a2, a1, a5, SP[a3, a4], n] + S2[a1, a2, a1, SP[a3, a4], a5, n] - 
    S2[a1, a2, a1, SP[a4, a5], a3, n] - S2[a1, a2, a3, a1, SP[a4, a5], n] - 
    S2[a1, a2, a3, SP[a1, a4], a5, n] + S2[a3, n]*S2[a1, a2, a4, a1, a5, n] - 
    S2[a1, a2, SP[a1, a4], a3, a5, n] - S2[a1, a2, SP[a1, a4], a5, a3, n] + 
    S2[a1, a2, SP[a3, a4], a1, a5, n] - S2[a1, a3, a1, a2, SP[a4, a5], n] + 
    S2[a1, a3, a1, a4, SP[a2, a5], n] + S2[a1, a3, a1, a5, SP[a2, a4], n] + 
    S2[a1, a3, a1, SP[a2, a4], a5, n] - S2[a1, a3, a2, a1, SP[a4, a5], n] - 
    S2[a1, a3, a2, SP[a1, a4], a5, n] + S2[a1, a4, a1, a3, SP[a2, a5], n] - 
    S2[a1, a4, a1, a5, SP[a2, a3], n] - S2[a1, a4, a1, SP[a2, a3], a5, n] + 
    S2[a1, a4, a1, SP[a2, a5], a3, n] + S2[a5, n]*S2[a1, a4, a2, a1, a3, n] - 
    S2[a1, a4, a5, a1, SP[a2, a3], n] - S2[a1, a4, a5, SP[a1, a2], a3, n] - 
    S2[a1, a4, SP[a1, a2], a3, a5, n] - S2[a1, a4, SP[a1, a2], a5, a3, n] + 
    S2[a1, a4, SP[a2, a5], a1, a3, n] + S2[a1, a5, a1, a2, SP[a3, a4], n] + 
    S2[a1, a5, a1, a3, SP[a2, a4], n] - S2[a1, a5, a1, a4, SP[a2, a3], n] + 
    S2[a1, a5, a1, SP[a2, a4], a3, n] - S2[a1, a5, a4, a1, SP[a2, a3], n] - 
    S2[a1, a5, a4, SP[a1, a2], a3, n] + S2[a1, SP[a2, a3], a4, a1, a5, n] + 
    S2[a1, SP[a4, a5], a2, a1, a3, n] + S2[SP[a1, a3], a2, a4, a1, a5, n] + 
    S2[SP[a1, a5], a4, a2, a1, a3, n] - S2[a5, a1, a4, a2, a1, a3, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a3_, a1_, a2_, a4_, a5_, a1_, n_] :> 
  -(S2[a1, a2, a3, n]*S2[a1, a5, a4, n]) - S2[a1, a3, a2, n]*
     S2[a1, a5, a4, n] - S2[SP[a1, a1], SP[a2, a5], SP[a3, a4], n] - 
    S2[SP[a1, a1], SP[a3, a5], SP[a2, a4], n] + 
    2*S2[a1, a1, SP[a2, a5], SP[a3, a4], n] + 
    2*S2[a1, a1, SP[a3, a5], SP[a2, a4], n] + 
    S2[a1, a5, n]*S2[a1, a2, a3, a4, n] + S2[a1, a5, n]*
     S2[a1, a2, a4, a3, n] - S2[a1, a2, SP[a1, a3], SP[a4, a5], n] - 
    S2[a1, a2, SP[a1, a4], SP[a3, a5], n] + S2[a1, a5, n]*
     S2[a1, a3, a2, a4, n] - S2[a1, a3, SP[a1, a2], SP[a4, a5], n] + 
    S2[a1, a3, n]*S2[a1, a5, a4, a2, n] - S2[a1, a5, SP[a1, a4], SP[a2, a3], 
     n] - S2[a1, SP[a1, a2], a3, SP[a4, a5], n] - S2[a1, SP[a1, a2], a4, 
     SP[a3, a5], n] + S2[a1, SP[a1, a2], a5, SP[a3, a4], n] - 
    S2[a1, SP[a1, a2], SP[a4, a5], a3, n] - S2[a1, SP[a1, a3], a2, 
     SP[a4, a5], n] + S2[a1, SP[a1, a3], a5, SP[a2, a4], n] + 
    S2[a1, SP[a1, a5], a2, SP[a3, a4], n] + S2[a1, SP[a1, a5], a3, 
     SP[a2, a4], n] - S2[a1, SP[a1, a5], a4, SP[a2, a3], n] + 
    S2[a1, SP[a1, a5], SP[a2, a4], a3, n] - S2[SP[a1, a1], a2, a3, 
     SP[a4, a5], n] - S2[SP[a1, a1], a2, a4, SP[a3, a5], n] + 
    S2[SP[a1, a1], a2, a5, SP[a3, a4], n] - S2[SP[a1, a1], a2, SP[a4, a5], 
     a3, n] - S2[SP[a1, a1], a3, a2, SP[a4, a5], n] + 
    S2[SP[a1, a1], a3, a5, SP[a2, a4], n] + S2[SP[a1, a1], a5, a2, 
     SP[a3, a4], n] + S2[SP[a1, a1], a5, a3, SP[a2, a4], n] - 
    S2[SP[a1, a1], a5, a4, SP[a2, a3], n] + S2[SP[a1, a1], a5, SP[a2, a4], 
     a3, n] + 2*S2[a1, a1, a2, a3, SP[a4, a5], n] - 
    2*S2[a3, n]*S2[a1, a1, a2, a4, a5, n] - 
    2*S2[a1, a1, a2, a5, SP[a3, a4], n] - 
    2*S2[a1, a1, a2, SP[a3, a4], a5, n] + 
    2*S2[a1, a1, a2, SP[a4, a5], a3, n] + 
    2*S2[a1, a1, a3, a2, SP[a4, a5], n] - 
    2*S2[a1, a1, a3, a5, SP[a2, a4], n] - 
    2*S2[a1, a1, a5, a2, SP[a3, a4], n] - 
    2*S2[a1, a1, a5, a3, SP[a2, a4], n] + 
    2*S2[a1, a1, a5, a4, SP[a2, a3], n] - 
    2*S2[a1, a1, a5, SP[a2, a4], a3, n] - 
    2*S2[a1, a1, SP[a2, a3], a4, a5, n] + S2[a1, a2, a1, a3, SP[a4, a5], n] - 
    S2[a3, n]*S2[a1, a2, a1, a4, a5, n] - S2[a1, a2, a1, a5, SP[a3, a4], n] - 
    S2[a1, a2, a1, SP[a3, a4], a5, n] + S2[a1, a2, a1, SP[a4, a5], a3, n] + 
    S2[a1, a2, a3, a1, SP[a4, a5], n] + S2[a1, a2, a3, SP[a1, a4], a5, n] - 
    S2[a3, n]*S2[a1, a2, a4, a1, a5, n] + S2[a1, a2, SP[a1, a4], a3, a5, n] + 
    S2[a1, a2, SP[a1, a4], a5, a3, n] - S2[a1, a2, SP[a3, a4], a1, a5, n] + 
    S2[a1, a3, a1, a2, SP[a4, a5], n] - S2[a1, a3, a1, a5, SP[a2, a4], n] + 
    S2[a1, a3, a2, a1, SP[a4, a5], n] + S2[a1, a3, a2, SP[a1, a4], a5, n] + 
    S2[a1, a3, SP[a1, a2], a4, a5, n] - S2[a1, a5, a1, a2, SP[a3, a4], n] - 
    S2[a1, a5, a1, a3, SP[a2, a4], n] + S2[a1, a5, a1, a4, SP[a2, a3], n] - 
    S2[a1, a5, a1, SP[a2, a4], a3, n] + S2[a1, a5, a4, a1, SP[a2, a3], n] + 
    S2[a1, a5, a4, SP[a1, a2], a3, n] + S2[a1, SP[a1, a2], a3, a4, a5, n] + 
    S2[a1, SP[a1, a2], a4, a3, a5, n] + S2[a1, SP[a1, a2], a4, a5, a3, n] - 
    S2[a1, SP[a1, a3], a2, a4, a5, n] - S2[a1, SP[a2, a3], a1, a4, a5, n] - 
    S2[a1, SP[a2, a3], a4, a1, a5, n] + S2[a1, n]*S2[a3, a1, a2, a4, a5, n] + 
    S2[a3, a1, a2, a4, SP[a1, a5], n] + S2[a3, a1, a2, SP[a1, a4], a5, n] + 
    S2[a3, a1, SP[a1, a2], a4, a5, n] + S2[a3, SP[a1, a1], a2, a4, a5, n] - 
    S2[a1, n]*S2[a5, a4, a2, a1, a3, n] - S2[a5, a4, a2, a1, SP[a1, a3], n] - 
    S2[a5, a4, a2, SP[a1, a1], a3, n] - S2[a5, a4, SP[a1, a2], a1, a3, n] - 
    S2[a5, SP[a1, a4], a2, a1, a3, n] + S2[SP[a1, a1], a2, a3, a4, a5, n] + 
    S2[SP[a1, a1], a2, a4, a3, a5, n] + S2[SP[a1, a1], a2, a4, a5, a3, n] + 
    S2[SP[a1, a1], a3, a2, a4, a5, n] - S2[SP[a1, a3], a1, a2, a4, a5, n] - 
    S2[SP[a1, a3], a2, a1, a4, a5, n] - S2[SP[a1, a3], a2, a4, a1, a5, n] - 
    S2[SP[a1, a5], a4, a2, a1, a3, n] + S2[a5, a1, a4, a2, a1, a3, n] + 
    S2[a5, a4, a1, a2, a1, a3, n] + 2*S2[a5, a4, a2, a1, a1, a3, n] + 
    S2[a5, a4, a2, a1, a3, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a3_, a1_, a2_, a5_, a1_, a4_, n_] :> 
  S2[a1, a2, a3, n]*S2[a1, a4, a5, n] + S2[a1, a3, a2, n]*S2[a1, a4, a5, n] + 
    S2[a1, a2, a3, n]*S2[a1, a5, a4, n] + S2[a1, a3, a2, n]*
     S2[a1, a5, a4, n] + S2[SP[a1, a1], SP[a2, a4], SP[a3, a5], n] + 
    S2[SP[a1, a1], SP[a2, a5], SP[a3, a4], n] + S2[SP[a1, a1], SP[a3, a4], 
     SP[a2, a5], n] + S2[SP[a1, a1], SP[a3, a5], SP[a2, a4], n] - 
    2*S2[a1, a1, SP[a2, a4], SP[a3, a5], n] - 
    2*S2[a1, a1, SP[a2, a5], SP[a3, a4], n] - 
    2*S2[a1, a1, SP[a3, a4], SP[a2, a5], n] - 
    2*S2[a1, a1, SP[a3, a5], SP[a2, a4], n] - S2[a1, SP[a1, a2], a4, 
     SP[a3, a5], n] - S2[a1, SP[a1, a2], a5, SP[a3, a4], n] - 
    S2[a1, SP[a1, a2], SP[a3, a4], a5, n] - S2[a1, SP[a1, a2], SP[a3, a5], 
     a4, n] - S2[a1, SP[a1, a3], a4, SP[a2, a5], n] - 
    S2[a1, SP[a1, a3], a5, SP[a2, a4], n] - S2[a1, SP[a1, a3], SP[a2, a4], 
     a5, n] - S2[a1, SP[a1, a3], SP[a2, a5], a4, n] - 
    S2[a1, SP[a1, a4], a2, SP[a3, a5], n] - S2[a1, SP[a1, a4], a3, 
     SP[a2, a5], n] - S2[a1, SP[a1, a4], SP[a2, a5], a3, n] - 
    S2[a1, SP[a1, a4], SP[a3, a5], a2, n] - S2[a1, SP[a1, a5], a2, 
     SP[a3, a4], n] - S2[a1, SP[a1, a5], a3, SP[a2, a4], n] - 
    S2[a1, SP[a1, a5], SP[a2, a4], a3, n] - S2[a1, SP[a1, a5], SP[a3, a4], 
     a2, n] - S2[a1, a3, n]*S2[a2, a5, a1, a4, n] + 
    S2[a2, a5, SP[a1, a1], SP[a3, a4], n] + S2[a2, SP[a1, a5], a1, 
     SP[a3, a4], n] + S2[a2, SP[a1, a5], SP[a1, a3], a4, n] - 
    S2[SP[a1, a1], a2, a4, SP[a3, a5], n] - S2[SP[a1, a1], a2, a5, 
     SP[a3, a4], n] - S2[SP[a1, a1], a2, SP[a3, a4], a5, n] - 
    S2[SP[a1, a1], a2, SP[a3, a5], a4, n] - S2[SP[a1, a1], a3, a4, 
     SP[a2, a5], n] - S2[SP[a1, a1], a3, a5, SP[a2, a4], n] - 
    S2[SP[a1, a1], a3, SP[a2, a4], a5, n] - S2[SP[a1, a1], a3, SP[a2, a5], 
     a4, n] - S2[SP[a1, a1], a4, a2, SP[a3, a5], n] - 
    S2[SP[a1, a1], a4, a3, SP[a2, a5], n] - S2[SP[a1, a1], a4, SP[a2, a5], 
     a3, n] - S2[SP[a1, a1], a4, SP[a3, a5], a2, n] - 
    S2[SP[a1, a1], a5, a2, SP[a3, a4], n] - S2[SP[a1, a1], a5, a3, 
     SP[a2, a4], n] - S2[SP[a1, a1], a5, SP[a2, a4], a3, n] - 
    S2[SP[a1, a1], a5, SP[a3, a4], a2, n] - S2[SP[a1, a1], SP[a2, a4], a3, 
     a5, n] - S2[SP[a1, a1], SP[a2, a4], a5, a3, n] - 
    S2[SP[a1, a1], SP[a2, a5], a3, a4, n] - S2[SP[a1, a1], SP[a2, a5], a4, 
     a3, n] - S2[SP[a1, a1], SP[a3, a4], a2, a5, n] - 
    S2[SP[a1, a1], SP[a3, a4], a5, a2, n] - S2[SP[a1, a1], SP[a3, a5], a2, 
     a4, n] - S2[SP[a1, a1], SP[a3, a5], a4, a2, n] + 
    S2[SP[a1, a2], a5, a1, SP[a3, a4], n] + S2[SP[a1, a2], a5, SP[a1, a3], 
     a4, n] + S2[SP[a1, a2], SP[a3, a5], a1, a4, n] - 
    2*S2[a5, n]*S2[a1, a1, a2, a3, a4, n] - 
    2*S2[a1, a1, a2, a3, SP[a4, a5], n] - 
    2*S2[a5, n]*S2[a1, a1, a2, a4, a3, n] + 
    2*S2[a1, a1, a2, a5, SP[a3, a4], n] + 
    2*S2[a1, a1, a2, SP[a3, a4], a5, n] - 
    2*S2[a1, a1, a2, SP[a4, a5], a3, n] - 
    2*S2[a5, n]*S2[a1, a1, a3, a2, a4, n] - 
    2*S2[a1, a1, a3, a2, SP[a4, a5], n] - 
    2*S2[a5, n]*S2[a1, a1, a3, a4, a2, n] + 
    2*S2[a1, a1, a3, a5, SP[a2, a4], n] + 
    2*S2[a1, a1, a3, SP[a2, a4], a5, n] - 
    2*S2[a1, a1, a3, SP[a4, a5], a2, n] - 
    2*S2[a5, n]*S2[a1, a1, a4, a2, a3, n] - 
    2*S2[a5, n]*S2[a1, a1, a4, a3, a2, n] + 
    2*S2[a1, a1, a5, a2, SP[a3, a4], n] + 
    2*S2[a1, a1, a5, a3, SP[a2, a4], n] + 
    2*S2[a1, a1, a5, SP[a2, a4], a3, n] + 
    2*S2[a1, a1, a5, SP[a3, a4], a2, n] + 
    2*S2[a1, a1, SP[a2, a4], a3, a5, n] + 
    2*S2[a1, a1, SP[a2, a4], a5, a3, n] + 
    2*S2[a1, a1, SP[a3, a4], a2, a5, n] + 
    2*S2[a1, a1, SP[a3, a4], a5, a2, n] - 
    2*S2[a1, a1, SP[a4, a5], a2, a3, n] - 
    2*S2[a1, a1, SP[a4, a5], a3, a2, n] - 
    S2[a5, n]*S2[a1, a2, a1, a3, a4, n] - S2[a1, a2, a1, a3, SP[a4, a5], n] - 
    S2[a5, n]*S2[a1, a2, a1, a4, a3, n] + S2[a1, a2, a1, a5, SP[a3, a4], n] + 
    S2[a1, a2, a1, SP[a3, a4], a5, n] - S2[a1, a2, a1, SP[a4, a5], a3, n] - 
    S2[a5, n]*S2[a1, a2, a3, a1, a4, n] - S2[a1, a2, a3, a1, SP[a4, a5], n] - 
    S2[a1, a2, a3, SP[a1, a5], a4, n] + S2[a3, n]*S2[a1, a2, a5, a1, a4, n] + 
    S2[a1, a2, SP[a1, a3], a4, a5, n] + S2[a1, a2, SP[a1, a3], a5, a4, n] - 
    S2[a1, a2, SP[a1, a5], a3, a4, n] - S2[a1, a2, SP[a1, a5], a4, a3, n] - 
    S2[a1, a2, SP[a3, a5], a1, a4, n] - S2[a5, n]*S2[a1, a3, a1, a2, a4, n] - 
    S2[a1, a3, a1, a2, SP[a4, a5], n] - S2[a5, n]*S2[a1, a3, a1, a4, a2, n] + 
    S2[a1, a3, a1, a5, SP[a2, a4], n] + S2[a1, a3, a1, SP[a2, a4], a5, n] - 
    S2[a1, a3, a1, SP[a4, a5], a2, n] - S2[a5, n]*S2[a1, a3, a2, a1, a4, n] - 
    S2[a1, a3, a2, a1, SP[a4, a5], n] - S2[a1, a3, a2, SP[a1, a5], a4, n] + 
    S2[a2, n]*S2[a1, a3, a5, a1, a4, n] + S2[a1, a3, a5, a1, SP[a2, a4], n] + 
    S2[a1, a3, a5, SP[a1, a2], a4, n] + S2[a1, a3, SP[a1, a2], a4, a5, n] + 
    S2[a1, a3, SP[a1, a2], a5, a4, n] - S2[a1, a3, SP[a1, a5], a2, a4, n] - 
    S2[a1, a3, SP[a1, a5], a4, a2, n] - S2[a5, n]*S2[a1, a4, a1, a2, a3, n] - 

    S2[a5, n]*S2[a1, a4, a1, a3, a2, n] + S2[a1, a5, a1, a2, SP[a3, a4], n] + 
    S2[a2, n]*S2[a1, a5, a1, a3, a4, n] + 
    2*S2[a1, a5, a1, a3, SP[a2, a4], n] + 
    S2[a2, n]*S2[a1, a5, a1, a4, a3, n] + S2[a1, a5, a1, a4, SP[a2, a3], n] + 
    S2[a1, a5, a1, SP[a2, a3], a4, n] + 2*S2[a1, a5, a1, SP[a2, a4], a3, n] + 
    S2[a1, a5, a1, SP[a3, a4], a2, n] + S2[a2, n]*S2[a1, a5, a3, a1, a4, n] + 
    S2[a1, a5, a3, a1, SP[a2, a4], n] + S2[a1, a5, a3, SP[a1, a2], a4, n] + 
    S2[a1, a5, SP[a1, a2], a3, a4, n] + S2[a1, a5, SP[a1, a2], a4, a3, n] + 
    S2[a1, a5, SP[a1, a4], a2, a3, n] + S2[a1, a5, SP[a1, a4], a3, a2, n] + 
    S2[a1, a5, SP[a2, a3], a1, a4, n] + S2[a1, SP[a1, a2], a3, a4, a5, n] + 
    S2[a1, SP[a1, a2], a3, a5, a4, n] + S2[a1, SP[a1, a2], a4, a3, a5, n] + 
    S2[a1, SP[a1, a2], a4, a5, a3, n] + S2[a1, SP[a1, a2], a5, a3, a4, n] + 
    S2[a1, SP[a1, a2], a5, a4, a3, n] + S2[a1, SP[a1, a3], a2, a4, a5, n] + 
    S2[a1, SP[a1, a3], a2, a5, a4, n] + S2[a1, SP[a1, a3], a4, a2, a5, n] + 
    S2[a1, SP[a1, a3], a4, a5, a2, n] + S2[a1, SP[a1, a3], a5, a2, a4, n] + 
    S2[a1, SP[a1, a3], a5, a4, a2, n] + S2[a1, SP[a1, a4], a2, a3, a5, n] + 
    S2[a1, SP[a1, a4], a2, a5, a3, n] + S2[a1, SP[a1, a4], a3, a2, a5, n] + 
    S2[a1, SP[a1, a4], a3, a5, a2, n] + S2[a1, SP[a1, a4], a5, a2, a3, n] + 
    S2[a1, SP[a1, a4], a5, a3, a2, n] - S2[a1, SP[a1, a5], a2, a3, a4, n] - 
    S2[a1, SP[a1, a5], a2, a4, a3, n] - S2[a1, SP[a1, a5], a3, a2, a4, n] - 
    S2[a1, SP[a1, a5], a3, a4, a2, n] - S2[a1, SP[a1, a5], a4, a2, a3, n] - 
    S2[a1, SP[a1, a5], a4, a3, a2, n] + S2[a1, SP[a2, a3], a5, a1, a4, n] - 
    S2[a1, SP[a3, a5], a1, a2, a4, n] - S2[a1, SP[a3, a5], a1, a4, a2, n] - 
    S2[a1, SP[a3, a5], a2, a1, a4, n] - S2[a1, SP[a4, a5], a1, a2, a3, n] - 
    S2[a1, SP[a4, a5], a1, a3, a2, n] - S2[a2, a1, a5, a1, SP[a3, a4], n] - 
    S2[a2, a1, a5, SP[a1, a3], a4, n] - S2[a2, a1, SP[a3, a5], a1, a4, n] - 
    2*S2[a2, a5, a1, a1, SP[a3, a4], n] - S2[a2, a5, a1, SP[a1, a3], a4, n] - 
    S2[a2, a5, a1, SP[a1, a4], a3, n] - S2[a2, a5, SP[a1, a1], a3, a4, n] - 
    S2[a2, a5, SP[a1, a1], a4, a3, n] - S2[a2, SP[a1, a5], a1, a3, a4, n] - 
    S2[a2, SP[a1, a5], a1, a4, a3, n] - S2[a2, SP[a1, a5], a3, a1, a4, n] + 
    2*S2[a2, n]*S2[a5, a1, a1, a3, a4, n] + 
    2*S2[a5, a1, a1, a3, SP[a2, a4], n] + 
    2*S2[a2, n]*S2[a5, a1, a1, a4, a3, n] + 
    2*S2[a5, a1, a1, a4, SP[a2, a3], n] + 
    2*S2[a5, a1, a1, SP[a2, a3], a4, n] + 
    2*S2[a5, a1, a1, SP[a2, a4], a3, n] + 
    S2[a2, n]*S2[a5, a1, a3, a1, a4, n] + S2[a5, a1, a3, a1, SP[a2, a4], n] + 
    S2[a5, a1, a3, SP[a1, a2], a4, n] + S2[a2, n]*S2[a5, a1, a4, a1, a3, n] + 
    S2[a5, a1, a4, a1, SP[a2, a3], n] + S2[a5, a1, a4, SP[a1, a2], a3, n] + 
    2*S2[a5, a1, SP[a1, a2], a3, a4, n] + 
    2*S2[a5, a1, SP[a1, a2], a4, a3, n] + S2[a5, a1, SP[a2, a3], a1, a4, n] + 
    S2[a5, a1, SP[a2, a4], a1, a3, n] + 2*S2[a5, SP[a1, a2], a1, a3, a4, n] + 
    2*S2[a5, SP[a1, a2], a1, a4, a3, n] + S2[a5, SP[a1, a2], a3, a1, a4, n] + 
    S2[a5, SP[a1, a2], a4, a1, a3, n] + S2[SP[a1, a1], a2, a3, a4, a5, n] + 
    S2[SP[a1, a1], a2, a3, a5, a4, n] + S2[SP[a1, a1], a2, a4, a3, a5, n] + 
    S2[SP[a1, a1], a2, a4, a5, a3, n] + S2[SP[a1, a1], a2, a5, a3, a4, n] + 
    S2[SP[a1, a1], a2, a5, a4, a3, n] + S2[SP[a1, a1], a3, a2, a4, a5, n] + 
    S2[SP[a1, a1], a3, a2, a5, a4, n] + S2[SP[a1, a1], a3, a4, a2, a5, n] + 
    S2[SP[a1, a1], a3, a4, a5, a2, n] + S2[SP[a1, a1], a3, a5, a2, a4, n] + 
    S2[SP[a1, a1], a3, a5, a4, a2, n] + S2[SP[a1, a1], a4, a2, a3, a5, n] + 
    S2[SP[a1, a1], a4, a2, a5, a3, n] + S2[SP[a1, a1], a4, a3, a2, a5, n] + 
    S2[SP[a1, a1], a4, a3, a5, a2, n] + S2[SP[a1, a1], a4, a5, a2, a3, n] + 
    S2[SP[a1, a1], a4, a5, a3, a2, n] + S2[SP[a1, a1], a5, a2, a3, a4, n] + 
    S2[SP[a1, a1], a5, a2, a4, a3, n] + S2[SP[a1, a1], a5, a3, a2, a4, n] + 
    S2[SP[a1, a1], a5, a3, a4, a2, n] + S2[SP[a1, a1], a5, a4, a2, a3, n] + 
    S2[SP[a1, a1], a5, a4, a3, a2, n] + S2[SP[a1, a3], a2, a5, a1, a4, n] - 
    2*S2[SP[a1, a5], a1, a2, a3, a4, n] - 
    2*S2[SP[a1, a5], a1, a2, a4, a3, n] - 
    2*S2[SP[a1, a5], a1, a3, a2, a4, n] - 
    2*S2[SP[a1, a5], a1, a3, a4, a2, n] - 
    2*S2[SP[a1, a5], a1, a4, a2, a3, n] - 
    2*S2[SP[a1, a5], a1, a4, a3, a2, n] - S2[SP[a1, a5], a2, a1, a3, a4, n] - 
    S2[SP[a1, a5], a2, a1, a4, a3, n] - S2[SP[a1, a5], a2, a3, a1, a4, n] - 
    S2[SP[a1, a5], a3, a1, a2, a4, n] - S2[SP[a1, a5], a3, a1, a4, a2, n] - 
    S2[SP[a1, a5], a3, a2, a1, a4, n] - S2[SP[a1, a5], a4, a1, a2, a3, n] - 
    S2[SP[a1, a5], a4, a1, a3, a2, n] + 2*S2[SP[a2, a5], a1, a1, a3, a4, n] + 
    2*S2[SP[a2, a5], a1, a1, a4, a3, n] + S2[SP[a2, a5], a1, a3, a1, a4, n] + 
    S2[SP[a2, a5], a1, a4, a1, a3, n] - S2[a5, a1, a2, a1, a3, a4, n] - 
    S2[a5, a1, a2, a1, a4, a3, n] - S2[a5, a1, a2, a4, a1, a3, n] - 
    S2[a5, a1, a4, a2, a1, a3, n] - 2*S2[a5, a2, a1, a1, a3, a4, n] - 
    2*S2[a5, a2, a1, a1, a4, a3, n] - S2[a5, a2, a1, a3, a1, a4, n] - 
    S2[a5, a2, a1, a4, a1, a3, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a3_, a1_, a2_, a5_, a4_, a1_, n_] :> 
  -(S2[a1, a2, a3, n]*S2[a1, a4, a5, n]) - S2[a1, a3, a2, n]*
     S2[a1, a4, a5, n] - S2[SP[a1, a1], SP[a2, a4], SP[a3, a5], n] - 
    S2[SP[a1, a1], SP[a3, a4], SP[a2, a5], n] + 
    2*S2[a1, a1, SP[a2, a4], SP[a3, a5], n] + 
    2*S2[a1, a1, SP[a3, a4], SP[a2, a5], n] - 
    S2[a1, a3, n]*S2[a1, a5, a2, a4, n] - S2[a1, a3, n]*
     S2[a1, a5, a4, a2, n] + S2[a1, a5, SP[a1, a2], SP[a3, a4], n] + 
    S2[a1, a5, SP[a1, a4], SP[a2, a3], n] + S2[a1, SP[a1, a2], a4, 
     SP[a3, a5], n] + S2[a1, SP[a1, a2], SP[a3, a4], a5, n] + 
    S2[a1, SP[a1, a3], a4, SP[a2, a5], n] + S2[a1, SP[a1, a3], SP[a2, a4], 
     a5, n] + S2[a1, SP[a1, a4], a2, SP[a3, a5], n] + 
    S2[a1, SP[a1, a4], a3, SP[a2, a5], n] + S2[a1, SP[a1, a4], SP[a2, a5], 
     a3, n] + S2[a1, SP[a1, a4], SP[a3, a5], a2, n] + 
    S2[a1, SP[a1, a5], a2, SP[a3, a4], n] + S2[a1, SP[a1, a5], a4, 
     SP[a2, a3], n] + S2[a1, SP[a1, a5], SP[a2, a3], a4, n] + 
    S2[a1, SP[a1, a5], SP[a3, a4], a2, n] + S2[a1, a3, n]*
     S2[a2, a5, a1, a4, n] - S2[a2, a5, SP[a1, a1], SP[a3, a4], n] - 
    S2[a2, SP[a1, a5], a1, SP[a3, a4], n] - S2[a2, SP[a1, a5], SP[a1, a3], 
     a4, n] + S2[SP[a1, a1], a2, a4, SP[a3, a5], n] + 
    S2[SP[a1, a1], a2, SP[a3, a4], a5, n] + S2[SP[a1, a1], a3, a4, 
     SP[a2, a5], n] + S2[SP[a1, a1], a3, SP[a2, a4], a5, n] + 
    S2[SP[a1, a1], a4, a2, SP[a3, a5], n] + S2[SP[a1, a1], a4, a3, 
     SP[a2, a5], n] + S2[SP[a1, a1], a4, SP[a2, a5], a3, n] + 
    S2[SP[a1, a1], a4, SP[a3, a5], a2, n] + S2[SP[a1, a1], a5, a2, 
     SP[a3, a4], n] + S2[SP[a1, a1], a5, a4, SP[a2, a3], n] + 
    S2[SP[a1, a1], a5, SP[a2, a3], a4, n] + S2[SP[a1, a1], a5, SP[a3, a4], 
     a2, n] + S2[SP[a1, a1], SP[a2, a4], a3, a5, n] + 
    S2[SP[a1, a1], SP[a2, a4], a5, a3, n] + S2[SP[a1, a1], SP[a3, a4], a2, 
     a5, n] + S2[SP[a1, a1], SP[a3, a4], a5, a2, n] + 
    S2[SP[a1, a1], SP[a3, a5], a2, a4, n] + S2[SP[a1, a1], SP[a3, a5], a4, 
     a2, n] - S2[SP[a1, a2], a5, a1, SP[a3, a4], n] - 
    S2[SP[a1, a2], a5, SP[a1, a3], a4, n] - S2[SP[a1, a2], SP[a3, a5], a1, 
     a4, n] + 2*S2[a5, n]*S2[a1, a1, a2, a3, a4, n] + 
    2*S2[a1, a1, a2, a3, SP[a4, a5], n] + 
    2*S2[a5, n]*S2[a1, a1, a2, a4, a3, n] - 
    2*S2[a3, n]*S2[a1, a1, a2, a5, a4, n] - 
    2*S2[a1, a1, a2, a5, SP[a3, a4], n] - 
    2*S2[a1, a1, a2, SP[a3, a4], a5, n] + 
    2*S2[a1, a1, a2, SP[a4, a5], a3, n] + 
    2*S2[a5, n]*S2[a1, a1, a3, a2, a4, n] + 
    2*S2[a1, a1, a3, a2, SP[a4, a5], n] + 
    2*S2[a5, n]*S2[a1, a1, a3, a4, a2, n] - 
    2*S2[a1, a1, a3, SP[a2, a4], a5, n] + 
    2*S2[a1, a1, a3, SP[a2, a5], a4, n] + 
    2*S2[a1, a1, a3, SP[a4, a5], a2, n] + 
    2*S2[a5, n]*S2[a1, a1, a4, a2, a3, n] + 
    2*S2[a5, n]*S2[a1, a1, a4, a3, a2, n] - 
    2*S2[a1, a1, a5, a2, SP[a3, a4], n] - 
    2*S2[a1, a1, a5, a4, SP[a2, a3], n] - 
    2*S2[a1, a1, a5, SP[a2, a3], a4, n] - 
    2*S2[a1, a1, a5, SP[a3, a4], a2, n] - 
    2*S2[a1, a1, SP[a2, a3], a5, a4, n] - 
    2*S2[a1, a1, SP[a2, a4], a3, a5, n] - 
    2*S2[a1, a1, SP[a2, a4], a5, a3, n] + 
    2*S2[a1, a1, SP[a2, a5], a3, a4, n] + 
    2*S2[a1, a1, SP[a2, a5], a4, a3, n] - 
    2*S2[a1, a1, SP[a3, a4], a2, a5, n] - 
    2*S2[a1, a1, SP[a3, a4], a5, a2, n] + 
    2*S2[a1, a1, SP[a4, a5], a2, a3, n] + 
    2*S2[a1, a1, SP[a4, a5], a3, a2, n] + 
    S2[a5, n]*S2[a1, a2, a1, a3, a4, n] + S2[a1, a2, a1, a3, SP[a4, a5], n] + 
    S2[a5, n]*S2[a1, a2, a1, a4, a3, n] - 
    S2[a3, n]*S2[a1, a2, a1, a5, a4, n] - S2[a1, a2, a1, a5, SP[a3, a4], n] - 
    S2[a1, a2, a1, SP[a3, a4], a5, n] + S2[a1, a2, a1, SP[a4, a5], a3, n] + 
    S2[a5, n]*S2[a1, a2, a3, a1, a4, n] + S2[a1, a2, a3, a1, SP[a4, a5], n] + 
    S2[a1, a2, a3, SP[a1, a5], a4, n] - S2[a3, n]*S2[a1, a2, a5, a1, a4, n] - 
    S2[a1, a2, SP[a1, a3], a4, a5, n] - S2[a1, a2, SP[a1, a3], a5, a4, n] + 
    S2[a1, a2, SP[a1, a5], a3, a4, n] + S2[a1, a2, SP[a1, a5], a4, a3, n] + 
    S2[a1, a2, SP[a3, a5], a1, a4, n] + S2[a5, n]*S2[a1, a3, a1, a2, a4, n] + 
    S2[a1, a3, a1, a2, SP[a4, a5], n] + S2[a5, n]*S2[a1, a3, a1, a4, a2, n] - 
    S2[a1, a3, a1, SP[a2, a4], a5, n] + S2[a1, a3, a1, SP[a2, a5], a4, n] + 
    S2[a1, a3, a1, SP[a4, a5], a2, n] + S2[a5, n]*S2[a1, a3, a2, a1, a4, n] + 
    S2[a1, a3, a2, a1, SP[a4, a5], n] + S2[a1, a3, a2, SP[a1, a5], a4, n] - 
    S2[a2, n]*S2[a1, a3, a5, a1, a4, n] - S2[a1, a3, a5, a1, SP[a2, a4], n] - 
    S2[a1, a3, a5, SP[a1, a2], a4, n] - S2[a1, a3, SP[a1, a2], a4, a5, n] + 
    S2[a1, a3, SP[a1, a5], a2, a4, n] + S2[a1, a3, SP[a1, a5], a4, a2, n] + 
    S2[a5, n]*S2[a1, a4, a1, a2, a3, n] + 
    S2[a5, n]*S2[a1, a4, a1, a3, a2, n] - S2[a1, a5, a1, a2, SP[a3, a4], n] - 
    S2[a2, n]*S2[a1, a5, a1, a3, a4, n] - S2[a1, a5, a1, a3, SP[a2, a4], n] - 
    S2[a2, n]*S2[a1, a5, a1, a4, a3, n] - 
    2*S2[a1, a5, a1, a4, SP[a2, a3], n] - 
    2*S2[a1, a5, a1, SP[a2, a3], a4, n] - S2[a1, a5, a1, SP[a2, a4], a3, n] - 
    S2[a1, a5, a1, SP[a3, a4], a2, n] - S2[a1, a5, a2, a1, SP[a3, a4], n] - 
    S2[a1, a5, a2, SP[a1, a4], a3, n] - S2[a2, n]*S2[a1, a5, a3, a1, a4, n] - 
    S2[a1, a5, a3, a1, SP[a2, a4], n] - S2[a1, a5, a3, SP[a1, a2], a4, n] - 
    S2[a1, a5, a4, a1, SP[a2, a3], n] - S2[a1, a5, a4, SP[a1, a2], a3, n] - 
    2*S2[a1, a5, SP[a1, a2], a3, a4, n] - 
    2*S2[a1, a5, SP[a1, a2], a4, a3, n] - S2[a1, a5, SP[a1, a4], a2, a3, n] - 
    S2[a1, a5, SP[a1, a4], a3, a2, n] - S2[a1, a5, SP[a2, a3], a1, a4, n] - 
    S2[a1, SP[a1, a2], a3, a4, a5, n] - S2[a1, SP[a1, a2], a4, a3, a5, n] - 
    S2[a1, SP[a1, a2], a4, a5, a3, n] - S2[a1, SP[a1, a3], a2, a4, a5, n] - 
    2*S2[a1, SP[a1, a3], a2, a5, a4, n] - S2[a1, SP[a1, a3], a4, a2, a5, n] - 
    S2[a1, SP[a1, a3], a4, a5, a2, n] - S2[a1, SP[a1, a3], a5, a2, a4, n] - 
    S2[a1, SP[a1, a3], a5, a4, a2, n] - S2[a1, SP[a1, a4], a2, a3, a5, n] - 
    S2[a1, SP[a1, a4], a2, a5, a3, n] - S2[a1, SP[a1, a4], a3, a2, a5, n] - 
    S2[a1, SP[a1, a4], a3, a5, a2, n] - S2[a1, SP[a1, a4], a5, a2, a3, n] - 
    S2[a1, SP[a1, a4], a5, a3, a2, n] + S2[a1, SP[a1, a5], a2, a3, a4, n] + 
    S2[a1, SP[a1, a5], a2, a4, a3, n] + S2[a1, SP[a1, a5], a3, a2, a4, n] + 
    S2[a1, SP[a1, a5], a3, a4, a2, n] + S2[a1, SP[a1, a5], a4, a2, a3, n] + 
    S2[a1, SP[a1, a5], a4, a3, a2, n] - S2[a1, SP[a2, a3], a1, a5, a4, n] - 
    S2[a1, SP[a2, a3], a5, a1, a4, n] + S2[a1, SP[a3, a5], a1, a2, a4, n] + 
    S2[a1, SP[a3, a5], a1, a4, a2, n] + S2[a1, SP[a3, a5], a2, a1, a4, n] + 
    S2[a1, SP[a4, a5], a1, a2, a3, n] + S2[a1, SP[a4, a5], a1, a3, a2, n] + 
    S2[a2, a1, a5, a1, SP[a3, a4], n] + S2[a2, a1, a5, SP[a1, a3], a4, n] + 
    S2[a2, a1, SP[a3, a5], a1, a4, n] + 2*S2[a2, a5, a1, a1, SP[a3, a4], n] + 
    S2[a2, a5, a1, SP[a1, a3], a4, n] + S2[a2, a5, a1, SP[a1, a4], a3, n] + 
    S2[a2, a5, SP[a1, a1], a3, a4, n] + S2[a2, a5, SP[a1, a1], a4, a3, n] + 
    S2[a2, SP[a1, a5], a1, a3, a4, n] + S2[a2, SP[a1, a5], a1, a4, a3, n] + 
    S2[a2, SP[a1, a5], a3, a1, a4, n] + S2[a1, n]*S2[a3, a1, a2, a5, a4, n] + 
    S2[a3, a1, a2, a5, SP[a1, a4], n] + S2[a3, a1, a2, SP[a1, a5], a4, n] + 
    S2[a3, a1, SP[a1, a2], a5, a4, n] + S2[a3, SP[a1, a1], a2, a5, a4, n] - 
    2*S2[a2, n]*S2[a5, a1, a1, a3, a4, n] - 
    2*S2[a5, a1, a1, a3, SP[a2, a4], n] - 
    2*S2[a2, n]*S2[a5, a1, a1, a4, a3, n] - 
    2*S2[a5, a1, a1, a4, SP[a2, a3], n] - 
    2*S2[a5, a1, a1, SP[a2, a3], a4, n] - 
    2*S2[a5, a1, a1, SP[a2, a4], a3, n] - 
    S2[a2, n]*S2[a5, a1, a3, a1, a4, n] - S2[a5, a1, a3, a1, SP[a2, a4], n] - 
    S2[a5, a1, a3, SP[a1, a2], a4, n] - S2[a2, n]*S2[a5, a1, a4, a1, a3, n] - 
    S2[a5, a1, a4, a1, SP[a2, a3], n] - S2[a5, a1, a4, SP[a1, a2], a3, n] - 
    2*S2[a5, a1, SP[a1, a2], a3, a4, n] - 
    2*S2[a5, a1, SP[a1, a2], a4, a3, n] - S2[a5, a1, SP[a2, a3], a1, a4, n] - 
    S2[a5, a1, SP[a2, a4], a1, a3, n] + S2[a1, n]*S2[a5, a2, a1, a3, a4, n] + 
    S2[a5, a2, a1, a3, SP[a1, a4], n] + S2[a1, n]*S2[a5, a2, a1, a4, a3, n] + 
    S2[a5, a2, a1, a4, SP[a1, a3], n] + S2[a5, a2, a1, SP[a1, a3], a4, n] + 
    S2[a5, a2, a1, SP[a1, a4], a3, n] + S2[a1, n]*S2[a5, a2, a4, a1, a3, n] + 
    S2[a5, a2, a4, a1, SP[a1, a3], n] + S2[a5, a2, a4, SP[a1, a1], a3, n] + 
    S2[a5, a2, SP[a1, a1], a3, a4, n] + S2[a5, a2, SP[a1, a1], a4, a3, n] + 
    S2[a5, a2, SP[a1, a4], a1, a3, n] + S2[a1, n]*S2[a5, a4, a2, a1, a3, n] + 
    S2[a5, a4, a2, a1, SP[a1, a3], n] + S2[a5, a4, a2, SP[a1, a1], a3, n] + 
    S2[a5, a4, SP[a1, a2], a1, a3, n] - S2[a5, SP[a1, a2], a1, a3, a4, n] - 
    S2[a5, SP[a1, a2], a1, a4, a3, n] - S2[a5, SP[a1, a2], a3, a1, a4, n] + 
    S2[a5, SP[a1, a4], a2, a1, a3, n] - S2[SP[a1, a1], a2, a3, a4, a5, n] - 
    S2[SP[a1, a1], a2, a4, a3, a5, n] - S2[SP[a1, a1], a2, a4, a5, a3, n] - 
    S2[SP[a1, a1], a3, a2, a4, a5, n] - S2[SP[a1, a1], a3, a4, a2, a5, n] - 
    S2[SP[a1, a1], a3, a4, a5, a2, n] - S2[SP[a1, a1], a3, a5, a2, a4, n] - 
    S2[SP[a1, a1], a3, a5, a4, a2, n] - S2[SP[a1, a1], a4, a2, a3, a5, n] - 
    S2[SP[a1, a1], a4, a2, a5, a3, n] - S2[SP[a1, a1], a4, a3, a2, a5, n] - 
    S2[SP[a1, a1], a4, a3, a5, a2, n] - S2[SP[a1, a1], a4, a5, a2, a3, n] - 
    S2[SP[a1, a1], a4, a5, a3, a2, n] - S2[SP[a1, a1], a5, a2, a3, a4, n] - 
    S2[SP[a1, a1], a5, a2, a4, a3, n] - S2[SP[a1, a1], a5, a3, a2, a4, n] - 
    S2[SP[a1, a1], a5, a3, a4, a2, n] - S2[SP[a1, a1], a5, a4, a2, a3, n] - 
    S2[SP[a1, a1], a5, a4, a3, a2, n] - S2[SP[a1, a3], a1, a2, a5, a4, n] - 
    S2[SP[a1, a3], a2, a1, a5, a4, n] - S2[SP[a1, a3], a2, a5, a1, a4, n] + 
    2*S2[SP[a1, a5], a1, a2, a3, a4, n] + 
    2*S2[SP[a1, a5], a1, a2, a4, a3, n] + 
    2*S2[SP[a1, a5], a1, a3, a2, a4, n] + 
    2*S2[SP[a1, a5], a1, a3, a4, a2, n] + 
    2*S2[SP[a1, a5], a1, a4, a2, a3, n] + 
    2*S2[SP[a1, a5], a1, a4, a3, a2, n] + 
    2*S2[SP[a1, a5], a2, a1, a3, a4, n] + 
    2*S2[SP[a1, a5], a2, a1, a4, a3, n] + S2[SP[a1, a5], a2, a3, a1, a4, n] + 
    S2[SP[a1, a5], a2, a4, a1, a3, n] + S2[SP[a1, a5], a3, a1, a2, a4, n] + 
    S2[SP[a1, a5], a3, a1, a4, a2, n] + S2[SP[a1, a5], a3, a2, a1, a4, n] + 
    S2[SP[a1, a5], a4, a1, a2, a3, n] + S2[SP[a1, a5], a4, a1, a3, a2, n] + 
    S2[SP[a1, a5], a4, a2, a1, a3, n] - 2*S2[SP[a2, a5], a1, a1, a3, a4, n] - 
    2*S2[SP[a2, a5], a1, a1, a4, a3, n] - S2[SP[a2, a5], a1, a3, a1, a4, n] - 
    S2[SP[a2, a5], a1, a4, a1, a3, n] - S2[a5, a2, a1, a3, a4, a1, n] - 
    S2[a5, a2, a1, a4, a1, a3, n] - S2[a5, a2, a1, a4, a3, a1, n] - 
    2*S2[a5, a2, a4, a1, a1, a3, n] - S2[a5, a2, a4, a1, a3, a1, n] - 
    S2[a5, a4, a1, a2, a1, a3, n] - 2*S2[a5, a4, a2, a1, a1, a3, n] - 
    S2[a5, a4, a2, a1, a3, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a3_, a1_, a4_, a1_, a2_, a5_, n_] :> 
  -(S2[a1, a2, a5, n]*S2[a1, a3, a4, n]) - S2[a1, a2, a5, n]*
     S2[a1, a4, a3, n] - S2[SP[a1, a1], SP[a2, a3], SP[a4, a5], n] - 
    S2[SP[a1, a1], SP[a2, a4], SP[a3, a5], n] + 
    2*S2[a2, a5, n]*S2[a1, a1, a3, a4, n] + 2*S2[a2, a5, n]*
     S2[a1, a1, a4, a3, n] + S2[a1, a3, n]*S2[a1, a2, a4, a5, n] + 
    S2[a1, a3, n]*S2[a1, a2, a5, a4, n] - S2[a1, a2, SP[a1, a4], SP[a3, a5], 
     n] - S2[a1, a2, SP[a1, a5], SP[a3, a4], n] + 
    S2[a2, a5, n]*S2[a1, a3, a1, a4, n] - S2[a1, a3, SP[a1, a2], SP[a4, a5], 
     n] + S2[a1, a3, n]*S2[a1, a4, a2, a5, n] + 
    S2[a1, a3, n]*S2[a1, a4, a5, a2, n] - S2[a1, a4, SP[a1, a2], SP[a3, a5], 
     n] - S2[a1, a4, SP[a1, a5], SP[a2, a3], n] + 
    S2[a1, a3, n]*S2[a1, a5, a2, a4, n] + S2[a1, a3, n]*
     S2[a1, a5, a4, a2, n] - S2[a1, a5, SP[a1, a2], SP[a3, a4], n] - 
    S2[a1, a5, SP[a1, a4], SP[a2, a3], n] - S2[a1, SP[a1, a2], a3, 
     SP[a4, a5], n] - 2*S2[a1, SP[a1, a2], a4, SP[a3, a5], n] - 
    S2[a1, SP[a1, a2], a5, SP[a3, a4], n] - S2[a1, SP[a1, a2], SP[a3, a4], 
     a5, n] - 2*S2[a1, SP[a1, a2], SP[a3, a5], a4, n] - 
    S2[a1, SP[a1, a2], SP[a4, a5], a3, n] + S2[a1, SP[a1, a3], a2, 
     SP[a4, a5], n] + S2[a1, SP[a1, a3], SP[a2, a4], a5, n] - 
    S2[a1, SP[a1, a4], a5, SP[a2, a3], n] - S2[a1, SP[a1, a4], SP[a3, a5], 
     a2, n] - S2[a1, SP[a1, a5], a2, SP[a3, a4], n] - 
    S2[a1, SP[a1, a5], a4, SP[a2, a3], n] - S2[a1, SP[a1, a5], SP[a2, a3], 
     a4, n] - S2[a1, SP[a1, a5], SP[a3, a4], a2, n] - 
    S2[a1, SP[a2, a3], a1, SP[a4, a5], n] - S2[a1, SP[a2, a3], SP[a1, a5], 
     a4, n] - S2[a1, a3, n]*S2[a2, a5, a1, a4, n] + 
    S2[a2, a5, SP[a1, a1], SP[a3, a4], n] + S2[a2, SP[a1, a5], a1, 
     SP[a3, a4], n] + S2[a2, SP[a1, a5], SP[a1, a3], a4, n] + 
    S2[SP[a1, a1], a2, a3, SP[a4, a5], n] - S2[SP[a1, a1], a2, a5, 
     SP[a3, a4], n] - S2[SP[a1, a1], a2, SP[a3, a4], a5, n] + 
    S2[SP[a1, a1], a2, SP[a4, a5], a3, n] + S2[SP[a1, a1], a3, a2, 
     SP[a4, a5], n] + S2[SP[a1, a1], a3, SP[a2, a4], a5, n] - 
    S2[SP[a1, a1], a4, a5, SP[a2, a3], n] - S2[SP[a1, a1], a4, SP[a3, a5], 
     a2, n] - S2[SP[a1, a1], a5, a2, SP[a3, a4], n] - 
    S2[SP[a1, a1], a5, a4, SP[a2, a3], n] - S2[SP[a1, a1], a5, SP[a2, a3], 
     a4, n] - S2[SP[a1, a1], a5, SP[a3, a4], a2, n] + 
    S2[SP[a1, a1], SP[a2, a4], a3, a5, n] + S2[SP[a1, a1], SP[a2, a4], a5, 
     a3, n] - S2[SP[a1, a1], SP[a3, a4], a2, a5, n] - 
    S2[SP[a1, a1], SP[a3, a4], a5, a2, n] - S2[SP[a1, a1], SP[a3, a5], a2, 
     a4, n] - S2[SP[a1, a1], SP[a3, a5], a4, a2, n] - 
    2*S2[SP[a1, a2], a1, a3, SP[a4, a5], n] - 
    2*S2[SP[a1, a2], a1, a4, SP[a3, a5], n] - 
    2*S2[SP[a1, a2], a1, SP[a3, a5], a4, n] - 
    2*S2[SP[a1, a2], a1, SP[a4, a5], a3, n] - S2[SP[a1, a2], a3, a1, 
     SP[a4, a5], n] - S2[SP[a1, a2], a3, SP[a1, a5], a4, n] + 
    S2[SP[a1, a2], a5, a1, SP[a3, a4], n] + S2[SP[a1, a2], a5, SP[a1, a3], 
     a4, n] - 2*S2[SP[a1, a2], SP[a1, a5], a3, a4, n] - 
    2*S2[SP[a1, a2], SP[a1, a5], a4, a3, n] + 
    2*S2[a1, a1, a2, a4, SP[a3, a5], n] + 
    2*S2[a1, a1, a2, a5, SP[a3, a4], n] + 
    2*S2[a1, a1, a2, SP[a3, a4], a5, n] + 
    2*S2[a1, a1, a2, SP[a3, a5], a4, n] - 
    2*S2[a2, n]*S2[a1, a1, a3, a4, a5, n] - 
    2*S2[a1, a1, a3, a4, SP[a2, a5], n] - 
    2*S2[a2, n]*S2[a1, a1, a3, a5, a4, n] - 
    2*S2[a1, a1, a3, a5, SP[a2, a4], n] - 
    2*S2[a1, a1, a3, SP[a2, a4], a5, n] - 
    2*S2[a1, a1, a3, SP[a2, a5], a4, n] + 
    2*S2[a1, a1, a4, a2, SP[a3, a5], n] - 
    2*S2[a2, n]*S2[a1, a1, a4, a3, a5, n] - 
    2*S2[a1, a1, a4, a3, SP[a2, a5], n] - 
    2*S2[a2, n]*S2[a1, a1, a4, a5, a3, n] - 
    2*S2[a1, a1, a4, SP[a2, a5], a3, n] + 
    2*S2[a1, a1, a4, SP[a3, a5], a2, n] + 
    2*S2[a1, a1, a5, a2, SP[a3, a4], n] - 
    2*S2[a2, n]*S2[a1, a1, a5, a3, a4, n] - 
    2*S2[a1, a1, a5, a3, SP[a2, a4], n] - 
    2*S2[a2, n]*S2[a1, a1, a5, a4, a3, n] - 
    2*S2[a1, a1, a5, SP[a2, a4], a3, n] + 
    2*S2[a1, a1, a5, SP[a3, a4], a2, n] - 
    2*S2[a1, a1, SP[a2, a4], a3, a5, n] - 
    2*S2[a1, a1, SP[a2, a4], a5, a3, n] - 
    2*S2[a1, a1, SP[a2, a5], a3, a4, n] - 
    2*S2[a1, a1, SP[a2, a5], a4, a3, n] + 
    2*S2[a1, a1, SP[a3, a4], a2, a5, n] + 
    2*S2[a1, a1, SP[a3, a4], a5, a2, n] + 
    2*S2[a1, a1, SP[a3, a5], a2, a4, n] + 
    2*S2[a1, a1, SP[a3, a5], a4, a2, n] + S2[a1, a2, a1, a3, SP[a4, a5], n] + 
    2*S2[a1, a2, a1, a4, SP[a3, a5], n] + S2[a1, a2, a1, a5, SP[a3, a4], n] + 
    S2[a1, a2, a1, SP[a3, a4], a5, n] + 2*S2[a1, a2, a1, SP[a3, a5], a4, n] + 
    S2[a1, a2, a1, SP[a4, a5], a3, n] + S2[a1, a2, a3, a1, SP[a4, a5], n] + 
    S2[a1, a2, a3, SP[a1, a5], a4, n] - S2[a5, n]*S2[a1, a2, a4, a1, a3, n] - 
    S2[a1, a2, a5, SP[a1, a3], a4, n] + S2[a1, a2, a5, SP[a1, a4], a3, n] + 
    S2[a1, a2, SP[a1, a4], a3, a5, n] + S2[a1, a2, SP[a1, a4], a5, a3, n] + 
    2*S2[a1, a2, SP[a1, a5], a3, a4, n] + 
    2*S2[a1, a2, SP[a1, a5], a4, a3, n] - S2[a1, a2, SP[a4, a5], a1, a3, n] - 
    S2[a2, n]*S2[a1, a3, a1, a4, a5, n] - S2[a1, a3, a1, a4, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a3, a1, a5, a4, n] - S2[a1, a3, a1, a5, SP[a2, a4], n] - 
    S2[a1, a3, a1, SP[a2, a4], a5, n] - S2[a1, a3, a1, SP[a2, a5], a4, n] + 
    S2[a1, a3, a2, a1, SP[a4, a5], n] + S2[a1, a3, a2, SP[a1, a5], a4, n] - 
    S2[a1, a3, SP[a1, a4], a2, a5, n] - S2[a5, n]*S2[a1, a4, a1, a2, a3, n] + 
    S2[a3, n]*S2[a1, a4, a1, a2, a5, n] - 
    S2[a5, n]*S2[a1, a4, a1, a3, a2, n] - S2[a1, a4, a1, a3, SP[a2, a5], n] + 
    S2[a1, a4, a1, a5, SP[a2, a3], n] + S2[a1, a4, a1, SP[a2, a3], a5, n] - 
    S2[a1, a4, a1, SP[a2, a5], a3, n] - S2[a5, n]*S2[a1, a4, a2, a1, a3, n] + 
    S2[a1, a4, a5, a1, SP[a2, a3], n] + S2[a1, a4, a5, SP[a1, a2], a3, n] + 
    S2[a1, a4, SP[a1, a2], a3, a5, n] + S2[a1, a4, SP[a1, a2], a5, a3, n] - 
    S2[a1, a4, SP[a2, a5], a1, a3, n] + S2[a1, a5, a1, a2, SP[a3, a4], n] - 
    S2[a2, n]*S2[a1, a5, a1, a3, a4, n] - S2[a1, a5, a1, a3, SP[a2, a4], n] - 
    S2[a2, n]*S2[a1, a5, a1, a4, a3, n] - S2[a1, a5, a1, SP[a2, a4], a3, n] + 
    S2[a1, a5, a1, SP[a3, a4], a2, n] + S2[a1, a5, a2, a1, SP[a3, a4], n] + 
    S2[a1, a5, a2, SP[a1, a4], a3, n] + S2[a1, a5, a4, a1, SP[a2, a3], n] + 
    S2[a1, a5, a4, SP[a1, a2], a3, n] + S2[a1, a5, SP[a1, a4], a2, a3, n] + 
    S2[a1, a5, SP[a1, a4], a3, a2, n] + S2[a1, SP[a1, a3], a4, a5, a2, n] + 
    S2[a1, SP[a1, a3], a5, a2, a4, n] + S2[a1, SP[a1, a3], a5, a4, a2, n] + 
    S2[a1, SP[a1, a4], a3, a5, a2, n] + S2[a1, SP[a1, a4], a5, a2, a3, n] + 
    S2[a1, SP[a1, a4], a5, a3, a2, n] + S2[a1, SP[a1, a5], a2, a3, a4, n] + 
    S2[a1, SP[a1, a5], a2, a4, a3, n] + S2[a1, SP[a1, a5], a3, a2, a4, n] + 
    S2[a1, SP[a1, a5], a3, a4, a2, n] + S2[a1, SP[a1, a5], a4, a2, a3, n] + 
    S2[a1, SP[a1, a5], a4, a3, a2, n] - S2[a1, SP[a2, a5], a1, a3, a4, n] - 
    S2[a1, SP[a2, a5], a1, a4, a3, n] - S2[a1, SP[a2, a5], a4, a1, a3, n] + 
    S2[a1, SP[a3, a4], a1, a2, a5, n] - S2[a1, SP[a4, a5], a1, a2, a3, n] - 
    S2[a1, SP[a4, a5], a1, a3, a2, n] - S2[a1, SP[a4, a5], a2, a1, a3, n] + 
    2*S2[a2, a1, a1, a3, SP[a4, a5], n] + 
    2*S2[a2, a1, a1, a4, SP[a3, a5], n] + 
    2*S2[a2, a1, a1, SP[a3, a5], a4, n] + 
    2*S2[a2, a1, a1, SP[a4, a5], a3, n] + S2[a2, a1, a3, a1, SP[a4, a5], n] + 
    S2[a2, a1, a3, SP[a1, a5], a4, n] - S2[a2, a1, a5, a1, SP[a3, a4], n] - 
    S2[a2, a1, a5, SP[a1, a3], a4, n] + 2*S2[a2, a1, SP[a1, a5], a3, a4, n] + 
    2*S2[a2, a1, SP[a1, a5], a4, a3, n] - 
    2*S2[a2, a5, a1, a1, SP[a3, a4], n] - S2[a2, a5, a1, SP[a1, a3], a4, n] - 
    S2[a2, a5, a1, SP[a1, a4], a3, n] - S2[a2, a5, SP[a1, a1], a3, a4, n] - 
    S2[a2, a5, SP[a1, a1], a4, a3, n] + S2[a2, SP[a1, a5], a1, a3, a4, n] + 
    S2[a2, SP[a1, a5], a1, a4, a3, n] + S2[a2, n]*S2[a5, a1, a4, a1, a3, n] + 
    S2[a5, a1, a4, a1, SP[a2, a3], n] + S2[a5, a1, a4, SP[a1, a2], a3, n] + 
    S2[a5, a1, SP[a2, a4], a1, a3, n] + S2[a5, SP[a1, a2], a4, a1, a3, n] + 
    S2[SP[a1, a1], a3, a4, a5, a2, n] + S2[SP[a1, a1], a3, a5, a2, a4, n] + 
    S2[SP[a1, a1], a3, a5, a4, a2, n] + S2[SP[a1, a1], a4, a3, a5, a2, n] + 
    S2[SP[a1, a1], a4, a5, a2, a3, n] + S2[SP[a1, a1], a4, a5, a3, a2, n] + 
    S2[SP[a1, a1], a5, a2, a3, a4, n] + S2[SP[a1, a1], a5, a2, a4, a3, n] + 
    S2[SP[a1, a1], a5, a3, a2, a4, n] + S2[SP[a1, a1], a5, a3, a4, a2, n] + 
    S2[SP[a1, a1], a5, a4, a2, a3, n] + S2[SP[a1, a1], a5, a4, a3, a2, n] + 
    S2[SP[a1, a3], a4, a1, a2, a5, n] - S2[SP[a1, a5], a2, a4, a1, a3, n] - 
    S2[SP[a1, a5], a4, a1, a2, a3, n] - S2[SP[a1, a5], a4, a1, a3, a2, n] - 
    S2[SP[a1, a5], a4, a2, a1, a3, n] + S2[SP[a2, a5], a1, a4, a1, a3, n] - 
    S2[a5, a2, a1, a4, a1, a3, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a3_, a1_, a4_, a1_, a5_, a2_, n_] :> 
  -(S2[a1, a3, a4, n]*S2[a1, a5, a2, n]) - S2[a1, a4, a3, n]*
     S2[a1, a5, a2, n] - S2[SP[a1, a1], SP[a3, a5], SP[a2, a4], n] - 
    S2[SP[a1, a1], SP[a4, a5], SP[a2, a3], n] - 
    2*S2[a2, a5, n]*S2[a1, a1, a3, a4, n] - 2*S2[a2, a5, n]*
     S2[a1, a1, a4, a3, n] + 2*S2[a1, a1, SP[a2, a3], SP[a4, a5], n] + 
    2*S2[a1, a1, SP[a2, a4], SP[a3, a5], n] + 
    2*S2[a1, a1, SP[a3, a5], SP[a2, a4], n] + 
    2*S2[a1, a1, SP[a4, a5], SP[a2, a3], n] - 
    S2[a2, a5, n]*S2[a1, a3, a1, a4, n] + S2[a1, a3, SP[a1, a2], SP[a4, a5], 
     n] + 2*S2[a1, SP[a1, a2], a3, SP[a4, a5], n] + 
    2*S2[a1, SP[a1, a2], a4, SP[a3, a5], n] + 
    2*S2[a1, SP[a1, a2], SP[a3, a5], a4, n] + 
    2*S2[a1, SP[a1, a2], SP[a4, a5], a3, n] + S2[a1, SP[a1, a3], a5, 
     SP[a2, a4], n] + S2[a1, SP[a1, a3], SP[a4, a5], a2, n] + 
    S2[a1, SP[a1, a4], a5, SP[a2, a3], n] + S2[a1, SP[a1, a4], SP[a3, a5], 
     a2, n] + S2[a1, SP[a1, a5], a3, SP[a2, a4], n] + 
    S2[a1, SP[a1, a5], a4, SP[a2, a3], n] + S2[a1, SP[a1, a5], SP[a2, a3], 
     a4, n] + S2[a1, SP[a1, a5], SP[a2, a4], a3, n] + 
    S2[a1, SP[a2, a3], a1, SP[a4, a5], n] + S2[a1, SP[a2, a3], SP[a1, a5], 
     a4, n] + S2[a1, a3, n]*S2[a2, a5, a1, a4, n] - 
    S2[a2, a5, SP[a1, a1], SP[a3, a4], n] - S2[a2, SP[a1, a5], a1, 
     SP[a3, a4], n] - S2[a2, SP[a1, a5], SP[a1, a3], a4, n] + 
    S2[SP[a1, a1], a3, a5, SP[a2, a4], n] + S2[SP[a1, a1], a3, SP[a4, a5], 
     a2, n] + S2[SP[a1, a1], a4, a5, SP[a2, a3], n] + 
    S2[SP[a1, a1], a4, SP[a3, a5], a2, n] + S2[SP[a1, a1], a5, a3, 
     SP[a2, a4], n] + S2[SP[a1, a1], a5, a4, SP[a2, a3], n] + 
    S2[SP[a1, a1], a5, SP[a2, a3], a4, n] + S2[SP[a1, a1], a5, SP[a2, a4], 
     a3, n] + S2[SP[a1, a1], SP[a3, a5], a2, a4, n] + 
    S2[SP[a1, a1], SP[a3, a5], a4, a2, n] + S2[SP[a1, a1], SP[a4, a5], a2, 
     a3, n] + S2[SP[a1, a1], SP[a4, a5], a3, a2, n] + 
    2*S2[SP[a1, a2], a1, a3, SP[a4, a5], n] + 
    2*S2[SP[a1, a2], a1, a4, SP[a3, a5], n] + 
    2*S2[SP[a1, a2], a1, SP[a3, a5], a4, n] + 
    2*S2[SP[a1, a2], a1, SP[a4, a5], a3, n] + S2[SP[a1, a2], a3, a1, 
     SP[a4, a5], n] + S2[SP[a1, a2], a3, SP[a1, a5], a4, n] - 
    S2[SP[a1, a2], a5, a1, SP[a3, a4], n] - S2[SP[a1, a2], a5, SP[a1, a3], 
     a4, n] + 2*S2[SP[a1, a2], SP[a1, a5], a3, a4, n] + 
    2*S2[SP[a1, a2], SP[a1, a5], a4, a3, n] - 
    2*S2[a1, a1, a2, a3, SP[a4, a5], n] - 
    2*S2[a1, a1, a2, a4, SP[a3, a5], n] - 
    2*S2[a1, a1, a2, SP[a3, a5], a4, n] - 
    2*S2[a1, a1, a2, SP[a4, a5], a3, n] - 
    2*S2[a1, a1, a3, a2, SP[a4, a5], n] + 
    2*S2[a2, n]*S2[a1, a1, a3, a4, a5, n] + 
    2*S2[a1, a1, a3, a4, SP[a2, a5], n] + 
    2*S2[a2, n]*S2[a1, a1, a3, a5, a4, n] + 
    2*S2[a1, a1, a3, SP[a2, a5], a4, n] - 
    2*S2[a1, a1, a3, SP[a4, a5], a2, n] - 
    2*S2[a1, a1, a4, a2, SP[a3, a5], n] + 
    2*S2[a2, n]*S2[a1, a1, a4, a3, a5, n] + 
    2*S2[a1, a1, a4, a3, SP[a2, a5], n] + 
    2*S2[a2, n]*S2[a1, a1, a4, a5, a3, n] + 
    2*S2[a1, a1, a4, SP[a2, a5], a3, n] - 
    2*S2[a1, a1, a4, SP[a3, a5], a2, n] + 
    2*S2[a2, n]*S2[a1, a1, a5, a3, a4, n] + 
    2*S2[a2, n]*S2[a1, a1, a5, a4, a3, n] + 
    2*S2[a1, a1, SP[a2, a5], a3, a4, n] + 
    2*S2[a1, a1, SP[a2, a5], a4, a3, n] - 
    2*S2[a1, a1, SP[a3, a5], a2, a4, n] - 
    2*S2[a1, a1, SP[a3, a5], a4, a2, n] - 
    2*S2[a1, a1, SP[a4, a5], a2, a3, n] - 
    2*S2[a1, a1, SP[a4, a5], a3, a2, n] - 
    2*S2[a1, a2, a1, a3, SP[a4, a5], n] - 
    2*S2[a1, a2, a1, a4, SP[a3, a5], n] - 
    2*S2[a1, a2, a1, SP[a3, a5], a4, n] - 
    2*S2[a1, a2, a1, SP[a4, a5], a3, n] - S2[a1, a2, a3, a1, SP[a4, a5], n] - 
    S2[a1, a2, a3, SP[a1, a5], a4, n] + S2[a1, a2, a5, a1, SP[a3, a4], n] + 
    S2[a1, a2, a5, SP[a1, a3], a4, n] - 2*S2[a1, a2, SP[a1, a5], a3, a4, n] - 
    2*S2[a1, a2, SP[a1, a5], a4, a3, n] - S2[a1, a3, a1, a2, SP[a4, a5], n] + 
    S2[a2, n]*S2[a1, a3, a1, a4, a5, n] + S2[a1, a3, a1, a4, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a3, a1, a5, a4, n] + S2[a1, a3, a1, SP[a2, a5], a4, n] - 
    S2[a1, a3, a1, SP[a4, a5], a2, n] - S2[a1, a3, a2, a1, SP[a4, a5], n] - 
    S2[a1, a3, a2, SP[a1, a5], a4, n] - S2[a1, a3, SP[a1, a4], a5, a2, n] + 
    S2[a3, n]*S2[a1, a4, a1, a5, a2, n] + 
    S2[a2, n]*S2[a1, a5, a1, a3, a4, n] + 
    S2[a2, n]*S2[a1, a5, a1, a4, a3, n] - S2[a1, SP[a1, a3], a4, a5, a2, n] - 
    S2[a1, SP[a1, a3], a5, a2, a4, n] - S2[a1, SP[a1, a3], a5, a4, a2, n] - 
    S2[a1, SP[a1, a4], a3, a5, a2, n] - S2[a1, SP[a1, a4], a5, a2, a3, n] - 
    S2[a1, SP[a1, a4], a5, a3, a2, n] - S2[a1, SP[a1, a5], a2, a3, a4, n] - 
    S2[a1, SP[a1, a5], a2, a4, a3, n] - S2[a1, SP[a1, a5], a3, a2, a4, n] - 
    S2[a1, SP[a1, a5], a3, a4, a2, n] - S2[a1, SP[a1, a5], a4, a2, a3, n] - 
    S2[a1, SP[a1, a5], a4, a3, a2, n] + S2[a1, SP[a2, a5], a1, a3, a4, n] + 
    S2[a1, SP[a2, a5], a1, a4, a3, n] + S2[a1, SP[a3, a4], a1, a5, a2, n] - 
    2*S2[a2, a1, a1, a3, SP[a4, a5], n] - 
    2*S2[a2, a1, a1, a4, SP[a3, a5], n] - 
    2*S2[a2, a1, a1, SP[a3, a5], a4, n] - 
    2*S2[a2, a1, a1, SP[a4, a5], a3, n] - S2[a2, a1, a3, a1, SP[a4, a5], n] - 
    S2[a2, a1, a3, SP[a1, a5], a4, n] + S2[a2, a1, a5, a1, SP[a3, a4], n] + 
    S2[a2, a1, a5, SP[a1, a3], a4, n] - 2*S2[a2, a1, SP[a1, a5], a3, a4, n] - 
    2*S2[a2, a1, SP[a1, a5], a4, a3, n] + 
    2*S2[a2, a5, a1, a1, SP[a3, a4], n] + S2[a2, a5, a1, SP[a1, a3], a4, n] + 
    S2[a2, a5, a1, SP[a1, a4], a3, n] + S2[a2, a5, SP[a1, a1], a3, a4, n] + 
    S2[a2, a5, SP[a1, a1], a4, a3, n] - S2[a2, SP[a1, a5], a1, a3, a4, n] - 
    S2[a2, SP[a1, a5], a1, a4, a3, n] - S2[a2, n]*S2[a5, a1, a4, a1, a3, n] - 
    S2[a5, a1, a4, a1, SP[a2, a3], n] - S2[a5, a1, a4, SP[a1, a2], a3, n] - 
    S2[a5, a1, SP[a2, a4], a1, a3, n] - S2[a5, SP[a1, a2], a4, a1, a3, n] - 
    S2[SP[a1, a1], a3, a4, a5, a2, n] - S2[SP[a1, a1], a3, a5, a2, a4, n] - 
    S2[SP[a1, a1], a3, a5, a4, a2, n] - S2[SP[a1, a1], a4, a3, a5, a2, n] - 
    S2[SP[a1, a1], a4, a5, a2, a3, n] - S2[SP[a1, a1], a4, a5, a3, a2, n] - 
    S2[SP[a1, a1], a5, a2, a3, a4, n] - S2[SP[a1, a1], a5, a2, a4, a3, n] - 
    S2[SP[a1, a1], a5, a3, a2, a4, n] - S2[SP[a1, a1], a5, a3, a4, a2, n] - 
    S2[SP[a1, a1], a5, a4, a2, a3, n] - S2[SP[a1, a1], a5, a4, a3, a2, n] + 
    S2[SP[a1, a3], a4, a1, a5, a2, n] - S2[SP[a2, a5], a1, a4, a1, a3, n] + 
    S2[a5, a1, a2, a4, a1, a3, n] + S2[a5, a1, a4, a1, a2, a3, n] + 
    S2[a5, a1, a4, a1, a3, a2, n] + S2[a5, a1, a4, a2, a1, a3, n] + 
    S2[a5, a2, a1, a4, a1, a3, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a3_, a1_, a4_, a2_, a1_, a5_, n_] :> 
  S2[a1, a2, a5, n]*S2[a1, a3, a4, n] + S2[a1, a2, a5, n]*S2[a1, a4, a3, n] + 
    S2[a1, a3, a4, n]*S2[a1, a5, a2, n] + S2[a1, a4, a3, n]*
     S2[a1, a5, a2, n] + S2[SP[a1, a1], SP[a2, a3], SP[a4, a5], n] + 
    S2[SP[a1, a1], SP[a2, a4], SP[a3, a5], n] + S2[SP[a1, a1], SP[a3, a5], 
     SP[a2, a4], n] + S2[SP[a1, a1], SP[a4, a5], SP[a2, a3], n] - 
    2*S2[a1, a1, SP[a2, a3], SP[a4, a5], n] - 
    2*S2[a1, a1, SP[a2, a4], SP[a3, a5], n] - 
    2*S2[a1, a1, SP[a3, a5], SP[a2, a4], n] - 
    2*S2[a1, a1, SP[a4, a5], SP[a2, a3], n] - 
    S2[a1, a3, n]*S2[a1, a2, a4, a5, n] - S2[a1, a3, n]*
     S2[a1, a2, a5, a4, n] + S2[a1, a2, SP[a1, a4], SP[a3, a5], n] + 
    S2[a1, a2, SP[a1, a5], SP[a3, a4], n] - S2[a1, a5, n]*
     S2[a1, a3, a4, a2, n] + S2[a1, a3, SP[a1, a4], SP[a2, a5], n] - 
    S2[a1, a5, n]*S2[a1, a4, a2, a3, n] - S2[a1, a5, n]*
     S2[a1, a4, a3, a2, n] + S2[a1, a4, SP[a1, a2], SP[a3, a5], n] + 
    S2[a1, a4, SP[a1, a3], SP[a2, a5], n] - S2[a1, a3, n]*
     S2[a1, a5, a2, a4, n] + S2[a1, a5, SP[a1, a2], SP[a3, a4], n] - 
    S2[a1, SP[a1, a2], a3, SP[a4, a5], n] + S2[a1, SP[a1, a2], a5, 
     SP[a3, a4], n] + S2[a1, SP[a1, a2], SP[a3, a4], a5, n] - 
    S2[a1, SP[a1, a2], SP[a4, a5], a3, n] - S2[a1, SP[a1, a3], a2, 
     SP[a4, a5], n] + S2[a1, SP[a1, a3], a4, SP[a2, a5], n] - 
    S2[a1, SP[a1, a3], a5, SP[a2, a4], n] - S2[a1, SP[a1, a3], SP[a2, a4], 
     a5, n] + S2[a1, SP[a1, a4], a3, SP[a2, a5], n] - 
    S2[a1, SP[a1, a4], a5, SP[a2, a3], n] - S2[a1, SP[a1, a4], SP[a2, a3], 
     a5, n] + S2[a1, SP[a1, a4], SP[a2, a5], a3, n] + 
    S2[a1, SP[a1, a5], a2, SP[a3, a4], n] - S2[a1, SP[a1, a5], a3, 
     SP[a2, a4], n] - S2[a1, SP[a1, a5], a4, SP[a2, a3], n] - 
    S2[a1, SP[a1, a5], SP[a2, a4], a3, n] - S2[SP[a1, a1], a2, a3, 
     SP[a4, a5], n] + S2[SP[a1, a1], a2, a5, SP[a3, a4], n] + 
    S2[SP[a1, a1], a2, SP[a3, a4], a5, n] - S2[SP[a1, a1], a2, SP[a4, a5], 
     a3, n] - S2[SP[a1, a1], a3, a2, SP[a4, a5], n] + 
    S2[SP[a1, a1], a3, a4, SP[a2, a5], n] - S2[SP[a1, a1], a3, a5, 
     SP[a2, a4], n] - S2[SP[a1, a1], a3, SP[a2, a4], a5, n] + 
    S2[SP[a1, a1], a4, a3, SP[a2, a5], n] - S2[SP[a1, a1], a4, a5, 
     SP[a2, a3], n] - S2[SP[a1, a1], a4, SP[a2, a3], a5, n] + 
    S2[SP[a1, a1], a4, SP[a2, a5], a3, n] + S2[SP[a1, a1], a5, a2, 
     SP[a3, a4], n] - S2[SP[a1, a1], a5, a3, SP[a2, a4], n] - 
    S2[SP[a1, a1], a5, a4, SP[a2, a3], n] - S2[SP[a1, a1], a5, SP[a2, a4], 
     a3, n] - S2[SP[a1, a1], SP[a2, a4], a3, a5, n] - 
    S2[SP[a1, a1], SP[a2, a4], a5, a3, n] + 
    2*S2[a1, a1, a2, a3, SP[a4, a5], n] - 
    2*S2[a1, a1, a2, a5, SP[a3, a4], n] - 
    2*S2[a1, a1, a2, SP[a3, a4], a5, n] + 
    2*S2[a1, a1, a2, SP[a4, a5], a3, n] + 
    2*S2[a1, a1, a3, a2, SP[a4, a5], n] - 
    2*S2[a1, a1, a3, a4, SP[a2, a5], n] + 
    2*S2[a1, a1, a3, a5, SP[a2, a4], n] + 
    2*S2[a1, a1, a3, SP[a2, a4], a5, n] - 
    2*S2[a1, a1, a4, a3, SP[a2, a5], n] + 
    2*S2[a1, a1, a4, a5, SP[a2, a3], n] + 
    2*S2[a1, a1, a4, SP[a2, a3], a5, n] - 
    2*S2[a1, a1, a4, SP[a2, a5], a3, n] - 
    2*S2[a1, a1, a5, a2, SP[a3, a4], n] + 
    2*S2[a1, a1, a5, a3, SP[a2, a4], n] + 
    2*S2[a1, a1, a5, a4, SP[a2, a3], n] + 
    2*S2[a1, a1, a5, SP[a2, a4], a3, n] + 
    2*S2[a1, a1, SP[a2, a4], a3, a5, n] + 
    2*S2[a1, a1, SP[a2, a4], a5, a3, n] + S2[a1, a2, a1, a3, SP[a4, a5], n] - 
    S2[a1, a2, a1, a5, SP[a3, a4], n] - S2[a1, a2, a1, SP[a3, a4], a5, n] + 
    S2[a1, a2, a1, SP[a4, a5], a3, n] + S2[a5, n]*S2[a1, a2, a4, a1, a3, n] - 
    S2[a1, a2, a5, a1, SP[a3, a4], n] - S2[a1, a2, a5, SP[a1, a4], a3, n] - 
    S2[a1, a2, SP[a1, a4], a3, a5, n] - S2[a1, a2, SP[a1, a4], a5, a3, n] + 
    S2[a1, a2, SP[a4, a5], a1, a3, n] + S2[a1, a3, a1, a2, SP[a4, a5], n] - 
    S2[a1, a3, a1, a4, SP[a2, a5], n] + S2[a1, a3, a1, a5, SP[a2, a4], n] + 
    S2[a1, a3, a1, SP[a2, a4], a5, n] - S2[a1, a3, a4, a1, SP[a2, a5], n] - 
    S2[a1, a3, a4, SP[a1, a2], a5, n] - S2[a1, a4, a1, a3, SP[a2, a5], n] + 
    S2[a1, a4, a1, a5, SP[a2, a3], n] + S2[a1, a4, a1, SP[a2, a3], a5, n] - 
    S2[a1, a4, a1, SP[a2, a5], a3, n] + S2[a3, n]*S2[a1, a4, a2, a1, a5, n] - 
    S2[a1, a4, a3, a1, SP[a2, a5], n] - S2[a1, a4, a3, SP[a1, a2], a5, n] - 
    S2[a1, a4, SP[a1, a2], a3, a5, n] - S2[a1, a4, SP[a1, a2], a5, a3, n] + 
    S2[a1, a4, SP[a2, a3], a1, a5, n] - S2[a1, a5, a1, a2, SP[a3, a4], n] + 
    S2[a1, a5, a1, a3, SP[a2, a4], n] + S2[a1, a5, a1, a4, SP[a2, a3], n] + 
    S2[a1, a5, a1, SP[a2, a4], a3, n] - S2[a1, a5, a2, a1, SP[a3, a4], n] - 
    S2[a1, a5, a2, SP[a1, a4], a3, n] + S2[a1, SP[a2, a5], a4, a1, a3, n] + 
    S2[a1, SP[a3, a4], a2, a1, a5, n] + S2[SP[a1, a3], a4, a2, a1, a5, n] + 
    S2[SP[a1, a5], a2, a4, a1, a3, n] - S2[a5, a1, a2, a4, a1, a3, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a3_, a1_, a4_, a2_, a5_, a1_, n_] :> 
  -(S2[a1, a3, a4, n]*S2[a1, a5, a2, n]) - S2[a1, a4, a3, n]*
     S2[a1, a5, a2, n] - S2[SP[a1, a1], SP[a3, a5], SP[a2, a4], n] - 
    S2[SP[a1, a1], SP[a4, a5], SP[a2, a3], n] + 
    2*S2[a1, a1, SP[a3, a5], SP[a2, a4], n] + 
    2*S2[a1, a1, SP[a4, a5], SP[a2, a3], n] + 
    S2[a1, a5, n]*S2[a1, a3, a4, a2, n] - S2[a1, a3, SP[a1, a4], SP[a2, a5], 
     n] + S2[a1, a5, n]*S2[a1, a4, a2, a3, n] + 
    S2[a1, a5, n]*S2[a1, a4, a3, a2, n] - S2[a1, a4, SP[a1, a2], SP[a3, a5], 
     n] - S2[a1, a4, SP[a1, a3], SP[a2, a5], n] + 
    S2[a1, a3, n]*S2[a1, a5, a2, a4, n] - S2[a1, a5, SP[a1, a2], SP[a3, a4], 
     n] - S2[a1, SP[a1, a3], a4, SP[a2, a5], n] + S2[a1, SP[a1, a3], a5, 
     SP[a2, a4], n] - S2[a1, SP[a1, a4], a2, SP[a3, a5], n] - 
    S2[a1, SP[a1, a4], a3, SP[a2, a5], n] + S2[a1, SP[a1, a4], a5, 
     SP[a2, a3], n] - S2[a1, SP[a1, a4], SP[a2, a5], a3, n] - 
    S2[a1, SP[a1, a5], a2, SP[a3, a4], n] + S2[a1, SP[a1, a5], a3, 
     SP[a2, a4], n] + S2[a1, SP[a1, a5], a4, SP[a2, a3], n] + 
    S2[a1, SP[a1, a5], SP[a2, a4], a3, n] - S2[SP[a1, a1], a3, a4, 
     SP[a2, a5], n] + S2[SP[a1, a1], a3, a5, SP[a2, a4], n] - 
    S2[SP[a1, a1], a4, a2, SP[a3, a5], n] - S2[SP[a1, a1], a4, a3, 
     SP[a2, a5], n] + S2[SP[a1, a1], a4, a5, SP[a2, a3], n] - 
    S2[SP[a1, a1], a4, SP[a2, a5], a3, n] - S2[SP[a1, a1], a5, a2, 
     SP[a3, a4], n] + S2[SP[a1, a1], a5, a3, SP[a2, a4], n] + 
    S2[SP[a1, a1], a5, a4, SP[a2, a3], n] + S2[SP[a1, a1], a5, SP[a2, a4], 
     a3, n] + 2*S2[a1, a1, a3, a4, SP[a2, a5], n] - 
    2*S2[a1, a1, a3, a5, SP[a2, a4], n] - 
    2*S2[a3, n]*S2[a1, a1, a4, a2, a5, n] + 
    2*S2[a1, a1, a4, a3, SP[a2, a5], n] - 
    2*S2[a1, a1, a4, a5, SP[a2, a3], n] - 
    2*S2[a1, a1, a4, SP[a2, a3], a5, n] + 
    2*S2[a1, a1, a4, SP[a2, a5], a3, n] + 
    2*S2[a1, a1, a5, a2, SP[a3, a4], n] - 
    2*S2[a1, a1, a5, a3, SP[a2, a4], n] - 
    2*S2[a1, a1, a5, a4, SP[a2, a3], n] - 
    2*S2[a1, a1, a5, SP[a2, a4], a3, n] - 
    2*S2[a1, a1, SP[a3, a4], a2, a5, n] + S2[a1, a3, a1, a4, SP[a2, a5], n] - 
    S2[a1, a3, a1, a5, SP[a2, a4], n] + S2[a1, a3, a4, a1, SP[a2, a5], n] + 
    S2[a1, a3, a4, SP[a1, a2], a5, n] + S2[a1, a3, SP[a1, a4], a2, a5, n] - 
    S2[a3, n]*S2[a1, a4, a1, a2, a5, n] + S2[a1, a4, a1, a3, SP[a2, a5], n] - 
    S2[a1, a4, a1, a5, SP[a2, a3], n] - S2[a1, a4, a1, SP[a2, a3], a5, n] + 
    S2[a1, a4, a1, SP[a2, a5], a3, n] - S2[a3, n]*S2[a1, a4, a2, a1, a5, n] + 
    S2[a1, a4, a3, a1, SP[a2, a5], n] + S2[a1, a4, a3, SP[a1, a2], a5, n] + 
    S2[a1, a4, SP[a1, a2], a3, a5, n] + S2[a1, a4, SP[a1, a2], a5, a3, n] - 
    S2[a1, a4, SP[a2, a3], a1, a5, n] + S2[a1, a5, a1, a2, SP[a3, a4], n] - 
    S2[a1, a5, a1, a3, SP[a2, a4], n] - S2[a1, a5, a1, a4, SP[a2, a3], n] - 
    S2[a1, a5, a1, SP[a2, a4], a3, n] + S2[a1, a5, a2, a1, SP[a3, a4], n] + 
    S2[a1, a5, a2, SP[a1, a4], a3, n] - S2[a1, SP[a1, a3], a4, a2, a5, n] + 
    S2[a1, SP[a1, a4], a2, a3, a5, n] + S2[a1, SP[a1, a4], a2, a5, a3, n] + 
    S2[a1, SP[a1, a4], a3, a2, a5, n] - S2[a1, SP[a3, a4], a1, a2, a5, n] - 
    S2[a1, SP[a3, a4], a2, a1, a5, n] + S2[a1, n]*S2[a3, a1, a4, a2, a5, n] + 
    S2[a3, a1, a4, a2, SP[a1, a5], n] + S2[a3, a1, a4, SP[a1, a2], a5, n] + 
    S2[a3, a1, SP[a1, a4], a2, a5, n] + S2[a3, SP[a1, a1], a4, a2, a5, n] - 
    S2[a1, n]*S2[a5, a2, a4, a1, a3, n] - S2[a5, a2, a4, a1, SP[a1, a3], n] - 
    S2[a5, a2, a4, SP[a1, a1], a3, n] - S2[a5, a2, SP[a1, a4], a1, a3, n] - 
    S2[a5, SP[a1, a2], a4, a1, a3, n] + S2[SP[a1, a1], a3, a4, a2, a5, n] + 
    S2[SP[a1, a1], a4, a2, a3, a5, n] + S2[SP[a1, a1], a4, a2, a5, a3, n] + 
    S2[SP[a1, a1], a4, a3, a2, a5, n] - S2[SP[a1, a3], a1, a4, a2, a5, n] - 
    S2[SP[a1, a3], a4, a1, a2, a5, n] - S2[SP[a1, a3], a4, a2, a1, a5, n] - 
    S2[SP[a1, a5], a2, a4, a1, a3, n] + S2[a5, a1, a2, a4, a1, a3, n] + 
    S2[a5, a2, a1, a4, a1, a3, n] + 2*S2[a5, a2, a4, a1, a1, a3, n] + 
    S2[a5, a2, a4, a1, a3, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a3_, a1_, a4_, a5_, a1_, a2_, n_] :> 
  S2[a1, a2, a5, n]*S2[a1, a3, a4, n] + S2[a1, a2, a5, n]*S2[a1, a4, a3, n] + 
    S2[a1, a3, a4, n]*S2[a1, a5, a2, n] + S2[a1, a4, a3, n]*
     S2[a1, a5, a2, n] + S2[SP[a1, a1], SP[a2, a3], SP[a4, a5], n] + 
    S2[SP[a1, a1], SP[a2, a4], SP[a3, a5], n] + S2[SP[a1, a1], SP[a3, a5], 
     SP[a2, a4], n] + S2[SP[a1, a1], SP[a4, a5], SP[a2, a3], n] - 
    2*S2[a1, a1, SP[a2, a3], SP[a4, a5], n] - 
    2*S2[a1, a1, SP[a2, a4], SP[a3, a5], n] - 
    2*S2[a1, a1, SP[a3, a5], SP[a2, a4], n] - 
    2*S2[a1, a1, SP[a4, a5], SP[a2, a3], n] - 
    S2[a1, a3, n]*S2[a1, a2, a5, a4, n] + S2[a1, a2, SP[a1, a5], SP[a3, a4], 
     n] + S2[a1, a2, n]*S2[a1, a3, a5, a4, n] - S2[a1, a3, SP[a1, a5], 
     SP[a2, a4], n] - S2[a1, a3, n]*S2[a1, a5, a2, a4, n] + 
    S2[a1, a2, n]*S2[a1, a5, a3, a4, n] - S2[a1, a3, n]*
     S2[a1, a5, a4, a2, n] + S2[a1, a2, n]*S2[a1, a5, a4, a3, n] + 
    S2[a1, a5, SP[a1, a2], SP[a3, a4], n] - S2[a1, a5, SP[a1, a3], 
     SP[a2, a4], n] - S2[a1, SP[a1, a2], a3, SP[a4, a5], n] - 
    S2[a1, SP[a1, a2], a4, SP[a3, a5], n] + S2[a1, SP[a1, a2], a5, 
     SP[a3, a4], n] - S2[a1, SP[a1, a2], SP[a4, a5], a3, n] - 
    S2[a1, SP[a1, a3], a2, SP[a4, a5], n] - 
    2*S2[a1, SP[a1, a3], a5, SP[a2, a4], n] - S2[a1, SP[a1, a3], SP[a2, a4], 
     a5, n] - S2[a1, SP[a1, a3], SP[a2, a5], a4, n] - 
    S2[a1, SP[a1, a3], SP[a4, a5], a2, n] - S2[a1, SP[a1, a4], a2, 
     SP[a3, a5], n] - S2[a1, SP[a1, a4], a5, SP[a2, a3], n] - 
    S2[a1, SP[a1, a4], SP[a2, a3], a5, n] - S2[a1, SP[a1, a4], SP[a3, a5], 
     a2, n] + S2[a1, SP[a1, a5], a2, SP[a3, a4], n] - 
    2*S2[a1, SP[a1, a5], a3, SP[a2, a4], n] - S2[a1, SP[a1, a5], a4, 
     SP[a2, a3], n] - S2[a1, SP[a1, a5], SP[a2, a3], a4, n] - 
    2*S2[a1, SP[a1, a5], SP[a2, a4], a3, n] + S2[a1, SP[a1, a5], SP[a3, a4], 
     a2, n] - S2[a1, a2, n]*S2[a4, a5, a1, a3, n] + 
    S2[a4, a5, SP[a1, a1], SP[a2, a3], n] + S2[a4, SP[a1, a5], a1, 
     SP[a2, a3], n] + S2[a4, SP[a1, a5], SP[a1, a2], a3, n] - 
    S2[SP[a1, a1], a2, a3, SP[a4, a5], n] - S2[SP[a1, a1], a2, a4, 
     SP[a3, a5], n] + S2[SP[a1, a1], a2, a5, SP[a3, a4], n] - 
    S2[SP[a1, a1], a2, SP[a4, a5], a3, n] - S2[SP[a1, a1], a3, a2, 
     SP[a4, a5], n] - 2*S2[SP[a1, a1], a3, a5, SP[a2, a4], n] - 
    S2[SP[a1, a1], a3, SP[a2, a4], a5, n] - S2[SP[a1, a1], a3, SP[a2, a5], 
     a4, n] - S2[SP[a1, a1], a3, SP[a4, a5], a2, n] - 
    S2[SP[a1, a1], a4, a2, SP[a3, a5], n] - S2[SP[a1, a1], a4, a5, 
     SP[a2, a3], n] - S2[SP[a1, a1], a4, SP[a2, a3], a5, n] - 
    S2[SP[a1, a1], a4, SP[a3, a5], a2, n] + S2[SP[a1, a1], a5, a2, 
     SP[a3, a4], n] - 2*S2[SP[a1, a1], a5, a3, SP[a2, a4], n] - 
    S2[SP[a1, a1], a5, a4, SP[a2, a3], n] - S2[SP[a1, a1], a5, SP[a2, a3], 
     a4, n] - 2*S2[SP[a1, a1], a5, SP[a2, a4], a3, n] + 
    S2[SP[a1, a1], a5, SP[a3, a4], a2, n] - S2[SP[a1, a1], SP[a2, a3], a4, 
     a5, n] - S2[SP[a1, a1], SP[a2, a3], a5, a4, n] - 
    S2[SP[a1, a1], SP[a2, a4], a3, a5, n] - S2[SP[a1, a1], SP[a2, a4], a5, 
     a3, n] - S2[SP[a1, a1], SP[a2, a5], a3, a4, n] - 
    S2[SP[a1, a1], SP[a2, a5], a4, a3, n] - S2[SP[a1, a1], SP[a4, a5], a2, 
     a3, n] - S2[SP[a1, a1], SP[a4, a5], a3, a2, n] + 
    S2[SP[a1, a4], a5, a1, SP[a2, a3], n] + S2[SP[a1, a4], a5, SP[a1, a2], 
     a3, n] + S2[SP[a1, a4], SP[a2, a5], a1, a3, n] - 
    2*S2[a5, n]*S2[a1, a1, a2, a3, a4, n] - 
    2*S2[a5, n]*S2[a1, a1, a2, a4, a3, n] - 
    2*S2[a1, a1, a2, a5, SP[a3, a4], n] - 
    2*S2[a1, a1, a2, SP[a3, a5], a4, n] - 
    2*S2[a5, n]*S2[a1, a1, a3, a2, a4, n] - 
    2*S2[a5, n]*S2[a1, a1, a3, a4, a2, n] - 
    2*S2[a1, a1, a3, a4, SP[a2, a5], n] + 
    4*S2[a1, a1, a3, a5, SP[a2, a4], n] + 
    2*S2[a1, a1, a3, SP[a2, a4], a5, n] - 
    2*S2[a5, n]*S2[a1, a1, a4, a2, a3, n] - 
    2*S2[a5, n]*S2[a1, a1, a4, a3, a2, n] - 
    2*S2[a1, a1, a4, a3, SP[a2, a5], n] + 
    2*S2[a1, a1, a4, a5, SP[a2, a3], n] + 
    2*S2[a1, a1, a4, SP[a2, a3], a5, n] - 
    2*S2[a1, a1, a4, SP[a2, a5], a3, n] - 
    2*S2[a1, a1, a5, a2, SP[a3, a4], n] + 
    4*S2[a1, a1, a5, a3, SP[a2, a4], n] + 
    2*S2[a1, a1, a5, a4, SP[a2, a3], n] + 
    2*S2[a1, a1, a5, SP[a2, a3], a4, n] + 
    4*S2[a1, a1, a5, SP[a2, a4], a3, n] - 
    2*S2[a1, a1, a5, SP[a3, a4], a2, n] + 
    2*S2[a1, a1, SP[a2, a3], a4, a5, n] + 
    2*S2[a1, a1, SP[a2, a3], a5, a4, n] + 
    2*S2[a1, a1, SP[a2, a4], a3, a5, n] + 
    2*S2[a1, a1, SP[a2, a4], a5, a3, n] - 
    2*S2[a1, a1, SP[a3, a5], a2, a4, n] - 
    2*S2[a1, a1, SP[a3, a5], a4, a2, n] - 
    S2[a5, n]*S2[a1, a2, a1, a3, a4, n] - 
    S2[a5, n]*S2[a1, a2, a1, a4, a3, n] - S2[a1, a2, a1, a5, SP[a3, a4], n] - 
    S2[a1, a2, a1, SP[a3, a5], a4, n] + S2[a4, n]*S2[a1, a2, a5, a1, a3, n] - 
    S2[a1, a2, SP[a1, a5], a3, a4, n] - S2[a1, a2, SP[a1, a5], a4, a3, n] + 
    S2[a1, a2, SP[a4, a5], a1, a3, n] - S2[a5, n]*S2[a1, a3, a1, a2, a4, n] - 
    S2[a5, n]*S2[a1, a3, a1, a4, a2, n] - S2[a1, a3, a1, a4, SP[a2, a5], n] + 
    2*S2[a1, a3, a1, a5, SP[a2, a4], n] + S2[a1, a3, a1, SP[a2, a4], a5, n] - 
    S2[a5, n]*S2[a1, a3, a4, a1, a2, n] - S2[a1, a3, a4, a1, SP[a2, a5], n] - 
    S2[a1, a3, a4, SP[a1, a5], a2, n] + S2[a1, a3, a5, a1, SP[a2, a4], n] + 
    S2[a1, a3, a5, SP[a1, a4], a2, n] + S2[a1, a3, SP[a1, a4], a2, a5, n] + 
    S2[a1, a3, SP[a1, a4], a5, a2, n] - S2[a1, a3, SP[a4, a5], a1, a2, n] - 
    S2[a5, n]*S2[a1, a4, a1, a2, a3, n] - 
    S2[a5, n]*S2[a1, a4, a1, a3, a2, n] - S2[a1, a4, a1, a3, SP[a2, a5], n] + 
    S2[a1, a4, a1, a5, SP[a2, a3], n] + S2[a1, a4, a1, SP[a2, a3], a5, n] - 
    S2[a1, a4, a1, SP[a2, a5], a3, n] - S2[a5, n]*S2[a1, a4, a3, a1, a2, n] - 
    S2[a1, a4, a3, a1, SP[a2, a5], n] - S2[a1, a4, a3, SP[a1, a5], a2, n] + 
    S2[a3, n]*S2[a1, a4, a5, a1, a2, n] - S2[a1, a4, a5, SP[a1, a2], a3, n] + 
    S2[a1, a4, a5, SP[a1, a3], a2, n] + S2[a1, a4, SP[a1, a3], a2, a5, n] + 
    S2[a1, a4, SP[a1, a3], a5, a2, n] - S2[a1, a4, SP[a1, a5], a2, a3, n] - 
    S2[a1, a4, SP[a1, a5], a3, a2, n] - S2[a1, a4, SP[a2, a5], a1, a3, n] + 
    S2[a4, n]*S2[a1, a5, a1, a2, a3, n] + 
    S2[a4, n]*S2[a1, a5, a1, a3, a2, n] + 
    3*S2[a1, a5, a1, a3, SP[a2, a4], n] + S2[a1, a5, a1, a4, SP[a2, a3], n] + 
    S2[a1, a5, a1, SP[a2, a3], a4, n] + 3*S2[a1, a5, a1, SP[a2, a4], a3, n] + 
    S2[a4, n]*S2[a1, a5, a2, a1, a3, n] + S2[a1, a5, a3, a1, SP[a2, a4], n] + 
    S2[a1, a5, a3, SP[a1, a4], a2, n] - S2[a1, a5, a4, SP[a1, a2], a3, n] + 
    S2[a1, a5, a4, SP[a1, a3], a2, n] + S2[a1, a5, SP[a1, a3], a2, a4, n] + 
    S2[a1, a5, SP[a1, a3], a4, a2, n] + S2[a1, a5, SP[a1, a4], a2, a3, n] + 
    S2[a1, a5, SP[a1, a4], a3, a2, n] + S2[a1, a5, SP[a2, a4], a1, a3, n] + 
    S2[a1, SP[a1, a2], a3, a4, a5, n] + S2[a1, SP[a1, a2], a3, a5, a4, n] + 
    S2[a1, SP[a1, a2], a4, a3, a5, n] + S2[a1, SP[a1, a2], a4, a5, a3, n] + 
    S2[a1, SP[a1, a2], a5, a3, a4, n] + S2[a1, SP[a1, a2], a5, a4, a3, n] + 
    S2[a1, SP[a1, a3], a2, a4, a5, n] + S2[a1, SP[a1, a3], a2, a5, a4, n] + 
    S2[a1, SP[a1, a3], a4, a2, a5, n] + S2[a1, SP[a1, a3], a4, a5, a2, n] + 
    S2[a1, SP[a1, a3], a5, a2, a4, n] + S2[a1, SP[a1, a3], a5, a4, a2, n] + 
    S2[a1, SP[a1, a4], a2, a3, a5, n] + S2[a1, SP[a1, a4], a2, a5, a3, n] + 
    S2[a1, SP[a1, a4], a3, a2, a5, n] + S2[a1, SP[a1, a4], a3, a5, a2, n] + 
    S2[a1, SP[a1, a4], a5, a2, a3, n] + S2[a1, SP[a1, a4], a5, a3, a2, n] - 
    S2[a1, SP[a1, a5], a2, a3, a4, n] - S2[a1, SP[a1, a5], a2, a4, a3, n] - 
    S2[a1, SP[a1, a5], a3, a2, a4, n] - S2[a1, SP[a1, a5], a3, a4, a2, n] - 
    S2[a1, SP[a1, a5], a4, a2, a3, n] - S2[a1, SP[a1, a5], a4, a3, a2, n] - 
    S2[a1, SP[a2, a5], a1, a3, a4, n] - S2[a1, SP[a2, a5], a1, a4, a3, n] + 
    S2[a1, SP[a3, a4], a5, a1, a2, n] - S2[a1, SP[a3, a5], a1, a2, a4, n] - 
    S2[a1, SP[a3, a5], a1, a4, a2, n] - S2[a1, SP[a3, a5], a4, a1, a2, n] + 
    S2[a1, SP[a4, a5], a2, a1, a3, n] - S2[a1, SP[a4, a5], a3, a1, a2, n] - 
    S2[a4, a1, a5, a1, SP[a2, a3], n] - S2[a4, a1, a5, SP[a1, a2], a3, n] - 
    S2[a4, a1, SP[a2, a5], a1, a3, n] - 2*S2[a4, a5, a1, a1, SP[a2, a3], n] - 
    S2[a4, a5, a1, SP[a1, a2], a3, n] - S2[a4, a5, a1, SP[a1, a3], a2, n] - 
    S2[a4, a5, SP[a1, a1], a2, a3, n] - S2[a4, a5, SP[a1, a1], a3, a2, n] - 
    S2[a4, SP[a1, a5], a1, a2, a3, n] - S2[a4, SP[a1, a5], a1, a3, a2, n] - 
    S2[a4, SP[a1, a5], a2, a1, a3, n] + 2*S2[a4, n]*
     S2[a5, a1, a1, a2, a3, n] + 2*S2[a5, a1, a1, a2, SP[a3, a4], n] + 
    2*S2[a4, n]*S2[a5, a1, a1, a3, a2, n] + 
    2*S2[a5, a1, a1, a3, SP[a2, a4], n] + 
    2*S2[a5, a1, a1, SP[a2, a4], a3, n] + 
    2*S2[a5, a1, a1, SP[a3, a4], a2, n] + 
    S2[a4, n]*S2[a5, a1, a2, a1, a3, n] + S2[a5, a1, a2, a1, SP[a3, a4], n] + 
    S2[a5, a1, a2, SP[a1, a4], a3, n] + S2[a4, n]*S2[a5, a1, a3, a1, a2, n] + 
    S2[a5, a1, a3, a1, SP[a2, a4], n] + S2[a5, a1, a3, SP[a1, a4], a2, n] + 
    2*S2[a5, a1, SP[a1, a4], a2, a3, n] + 
    2*S2[a5, a1, SP[a1, a4], a3, a2, n] + S2[a5, a1, SP[a2, a4], a1, a3, n] + 
    S2[a5, a1, SP[a3, a4], a1, a2, n] + 2*S2[a5, SP[a1, a4], a1, a2, a3, n] + 
    2*S2[a5, SP[a1, a4], a1, a3, a2, n] + S2[a5, SP[a1, a4], a2, a1, a3, n] + 
    S2[a5, SP[a1, a4], a3, a1, a2, n] + S2[SP[a1, a1], a2, a3, a4, a5, n] + 
    S2[SP[a1, a1], a2, a3, a5, a4, n] + S2[SP[a1, a1], a2, a4, a3, a5, n] + 
    S2[SP[a1, a1], a2, a4, a5, a3, n] + S2[SP[a1, a1], a2, a5, a3, a4, n] + 
    S2[SP[a1, a1], a2, a5, a4, a3, n] + S2[SP[a1, a1], a3, a2, a4, a5, n] + 
    S2[SP[a1, a1], a3, a2, a5, a4, n] + S2[SP[a1, a1], a3, a4, a2, a5, n] + 
    S2[SP[a1, a1], a3, a4, a5, a2, n] + S2[SP[a1, a1], a3, a5, a2, a4, n] + 
    S2[SP[a1, a1], a3, a5, a4, a2, n] + S2[SP[a1, a1], a4, a2, a3, a5, n] + 
    S2[SP[a1, a1], a4, a2, a5, a3, n] + S2[SP[a1, a1], a4, a3, a2, a5, n] + 
    S2[SP[a1, a1], a4, a3, a5, a2, n] + S2[SP[a1, a1], a4, a5, a2, a3, n] + 
    S2[SP[a1, a1], a4, a5, a3, a2, n] + S2[SP[a1, a1], a5, a2, a3, a4, n] + 
    S2[SP[a1, a1], a5, a2, a4, a3, n] + S2[SP[a1, a1], a5, a3, a2, a4, n] + 
    S2[SP[a1, a1], a5, a3, a4, a2, n] + S2[SP[a1, a1], a5, a4, a2, a3, n] + 
    S2[SP[a1, a1], a5, a4, a3, a2, n] + S2[SP[a1, a3], a4, a5, a1, a2, n] - 
    2*S2[SP[a1, a5], a1, a2, a3, a4, n] - 
    2*S2[SP[a1, a5], a1, a2, a4, a3, n] - 
    2*S2[SP[a1, a5], a1, a3, a2, a4, n] - 
    2*S2[SP[a1, a5], a1, a3, a4, a2, n] - 
    2*S2[SP[a1, a5], a1, a4, a2, a3, n] - 
    2*S2[SP[a1, a5], a1, a4, a3, a2, n] - S2[SP[a1, a5], a2, a1, a3, a4, n] - 
    S2[SP[a1, a5], a2, a1, a4, a3, n] - S2[SP[a1, a5], a3, a1, a2, a4, n] - 
    S2[SP[a1, a5], a3, a1, a4, a2, n] - S2[SP[a1, a5], a3, a4, a1, a2, n] - 
    S2[SP[a1, a5], a4, a1, a2, a3, n] - S2[SP[a1, a5], a4, a1, a3, a2, n] - 
    S2[SP[a1, a5], a4, a3, a1, a2, n] + 2*S2[SP[a4, a5], a1, a1, a2, a3, n] + 
    2*S2[SP[a4, a5], a1, a1, a3, a2, n] + S2[SP[a4, a5], a1, a2, a1, a3, n] + 
    S2[SP[a4, a5], a1, a3, a1, a2, n] - S2[a5, a1, a2, a4, a1, a3, n] - 
    S2[a5, a1, a4, a1, a2, a3, n] - S2[a5, a1, a4, a1, a3, a2, n] - 
    S2[a5, a1, a4, a2, a1, a3, n] - 2*S2[a5, a4, a1, a1, a2, a3, n] - 
    2*S2[a5, a4, a1, a1, a3, a2, n] - S2[a5, a4, a1, a2, a1, a3, n] - 
    S2[a5, a4, a1, a3, a1, a2, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a3_, a1_, a4_, a5_, a2_, a1_, n_] :> 
  -(S2[a1, a2, a5, n]*S2[a1, a3, a4, n]) - S2[a1, a2, a5, n]*
     S2[a1, a4, a3, n] - S2[SP[a1, a1], SP[a2, a3], SP[a4, a5], n] - 
    S2[SP[a1, a1], SP[a2, a4], SP[a3, a5], n] + 
    2*S2[a1, a1, SP[a2, a3], SP[a4, a5], n] + 
    2*S2[a1, a1, SP[a2, a4], SP[a3, a5], n] + 
    S2[a1, a3, n]*S2[a1, a2, a5, a4, n] - S2[a1, a2, SP[a1, a5], SP[a3, a4], 
     n] - S2[a1, a2, n]*S2[a1, a3, a5, a4, n] + S2[a1, a3, SP[a1, a5], 
     SP[a2, a4], n] - S2[a1, a2, n]*S2[a1, a5, a3, a4, n] - 
    S2[a1, a2, n]*S2[a1, a5, a4, a3, n] + S2[a1, a5, SP[a1, a3], SP[a2, a4], 
     n] + S2[a1, a5, SP[a1, a4], SP[a2, a3], n] + S2[a1, SP[a1, a2], a3, 
     SP[a4, a5], n] + S2[a1, SP[a1, a2], a4, SP[a3, a5], n] - 
    S2[a1, SP[a1, a2], a5, SP[a3, a4], n] + S2[a1, SP[a1, a2], SP[a4, a5], 
     a3, n] + S2[a1, SP[a1, a3], a2, SP[a4, a5], n] + 
    S2[a1, SP[a1, a3], a5, SP[a2, a4], n] + S2[a1, SP[a1, a3], SP[a2, a4], 
     a5, n] + S2[a1, SP[a1, a3], SP[a2, a5], a4, n] + 
    S2[a1, SP[a1, a4], a2, SP[a3, a5], n] + S2[a1, SP[a1, a4], SP[a2, a3], 
     a5, n] + S2[a1, SP[a1, a5], a3, SP[a2, a4], n] + 
    S2[a1, SP[a1, a5], a4, SP[a2, a3], n] + S2[a1, SP[a1, a5], SP[a2, a3], 
     a4, n] + S2[a1, SP[a1, a5], SP[a2, a4], a3, n] + 
    S2[a1, a2, n]*S2[a4, a5, a1, a3, n] - S2[a4, a5, SP[a1, a1], SP[a2, a3], 
     n] - S2[a4, SP[a1, a5], a1, SP[a2, a3], n] - 
    S2[a4, SP[a1, a5], SP[a1, a2], a3, n] + S2[SP[a1, a1], a2, a3, 
     SP[a4, a5], n] + S2[SP[a1, a1], a2, a4, SP[a3, a5], n] - 
    S2[SP[a1, a1], a2, a5, SP[a3, a4], n] + S2[SP[a1, a1], a2, SP[a4, a5], 
     a3, n] + S2[SP[a1, a1], a3, a2, SP[a4, a5], n] + 
    S2[SP[a1, a1], a3, a5, SP[a2, a4], n] + S2[SP[a1, a1], a3, SP[a2, a4], 
     a5, n] + S2[SP[a1, a1], a3, SP[a2, a5], a4, n] + 
    S2[SP[a1, a1], a4, a2, SP[a3, a5], n] + S2[SP[a1, a1], a4, SP[a2, a3], 
     a5, n] + S2[SP[a1, a1], a5, a3, SP[a2, a4], n] + 
    S2[SP[a1, a1], a5, a4, SP[a2, a3], n] + S2[SP[a1, a1], a5, SP[a2, a3], 
     a4, n] + S2[SP[a1, a1], a5, SP[a2, a4], a3, n] + 
    S2[SP[a1, a1], SP[a2, a3], a4, a5, n] + S2[SP[a1, a1], SP[a2, a3], a5, 
     a4, n] + S2[SP[a1, a1], SP[a2, a4], a3, a5, n] + 
    S2[SP[a1, a1], SP[a2, a4], a5, a3, n] + S2[SP[a1, a1], SP[a2, a5], a3, 
     a4, n] + S2[SP[a1, a1], SP[a2, a5], a4, a3, n] - 
    S2[SP[a1, a4], a5, a1, SP[a2, a3], n] - S2[SP[a1, a4], a5, SP[a1, a2], 
     a3, n] - S2[SP[a1, a4], SP[a2, a5], a1, a3, n] + 
    2*S2[a5, n]*S2[a1, a1, a2, a3, a4, n] + 
    2*S2[a5, n]*S2[a1, a1, a2, a4, a3, n] + 
    2*S2[a1, a1, a2, a5, SP[a3, a4], n] + 
    2*S2[a1, a1, a2, SP[a3, a5], a4, n] + 
    2*S2[a5, n]*S2[a1, a1, a3, a2, a4, n] + 
    2*S2[a5, n]*S2[a1, a1, a3, a4, a2, n] + 
    2*S2[a1, a1, a3, a4, SP[a2, a5], n] - 
    2*S2[a1, a1, a3, a5, SP[a2, a4], n] - 
    2*S2[a1, a1, a3, SP[a2, a4], a5, n] + 
    2*S2[a1, a1, a3, SP[a4, a5], a2, n] + 
    2*S2[a5, n]*S2[a1, a1, a4, a2, a3, n] + 
    2*S2[a5, n]*S2[a1, a1, a4, a3, a2, n] + 
    2*S2[a1, a1, a4, a3, SP[a2, a5], n] - 
    2*S2[a3, n]*S2[a1, a1, a4, a5, a2, n] - 
    2*S2[a1, a1, a4, a5, SP[a2, a3], n] - 
    2*S2[a1, a1, a4, SP[a2, a3], a5, n] + 
    2*S2[a1, a1, a4, SP[a2, a5], a3, n] - 
    2*S2[a1, a1, a5, a3, SP[a2, a4], n] - 
    2*S2[a1, a1, a5, a4, SP[a2, a3], n] - 
    2*S2[a1, a1, a5, SP[a2, a3], a4, n] - 
    2*S2[a1, a1, a5, SP[a2, a4], a3, n] - 
    2*S2[a1, a1, SP[a2, a3], a4, a5, n] - 
    2*S2[a1, a1, SP[a2, a3], a5, a4, n] - 
    2*S2[a1, a1, SP[a2, a4], a3, a5, n] - 
    2*S2[a1, a1, SP[a2, a4], a5, a3, n] - 
    2*S2[a1, a1, SP[a3, a4], a5, a2, n] + 
    2*S2[a1, a1, SP[a3, a5], a2, a4, n] + 
    2*S2[a1, a1, SP[a3, a5], a4, a2, n] + 
    2*S2[a1, a1, SP[a4, a5], a2, a3, n] + 
    2*S2[a1, a1, SP[a4, a5], a3, a2, n] + 
    S2[a5, n]*S2[a1, a2, a1, a3, a4, n] + 
    S2[a5, n]*S2[a1, a2, a1, a4, a3, n] + S2[a1, a2, a1, a5, SP[a3, a4], n] + 
    S2[a1, a2, a1, SP[a3, a5], a4, n] - S2[a4, n]*S2[a1, a2, a5, a1, a3, n] + 
    S2[a1, a2, SP[a1, a5], a3, a4, n] + S2[a1, a2, SP[a1, a5], a4, a3, n] - 
    S2[a1, a2, SP[a4, a5], a1, a3, n] + S2[a5, n]*S2[a1, a3, a1, a2, a4, n] + 
    S2[a5, n]*S2[a1, a3, a1, a4, a2, n] + S2[a1, a3, a1, a4, SP[a2, a5], n] - 
    S2[a1, a3, a1, a5, SP[a2, a4], n] - S2[a1, a3, a1, SP[a2, a4], a5, n] + 
    S2[a1, a3, a1, SP[a4, a5], a2, n] + S2[a5, n]*S2[a1, a3, a4, a1, a2, n] + 
    S2[a1, a3, a4, a1, SP[a2, a5], n] + S2[a1, a3, a4, SP[a1, a5], a2, n] - 
    S2[a1, a3, a5, a1, SP[a2, a4], n] - S2[a1, a3, a5, SP[a1, a4], a2, n] - 
    S2[a1, a3, SP[a1, a4], a2, a5, n] + S2[a1, a3, SP[a4, a5], a1, a2, n] + 
    S2[a5, n]*S2[a1, a4, a1, a2, a3, n] + 
    S2[a5, n]*S2[a1, a4, a1, a3, a2, n] + S2[a1, a4, a1, a3, SP[a2, a5], n] - 
    S2[a3, n]*S2[a1, a4, a1, a5, a2, n] - S2[a1, a4, a1, a5, SP[a2, a3], n] - 
    S2[a1, a4, a1, SP[a2, a3], a5, n] + S2[a1, a4, a1, SP[a2, a5], a3, n] + 
    S2[a5, n]*S2[a1, a4, a3, a1, a2, n] + S2[a1, a4, a3, a1, SP[a2, a5], n] + 
    S2[a1, a4, a3, SP[a1, a5], a2, n] - S2[a3, n]*S2[a1, a4, a5, a1, a2, n] + 
    S2[a1, a4, a5, SP[a1, a2], a3, n] - S2[a1, a4, a5, SP[a1, a3], a2, n] - 
    S2[a1, a4, SP[a1, a3], a2, a5, n] - S2[a1, a4, SP[a1, a3], a5, a2, n] + 
    S2[a1, a4, SP[a1, a5], a2, a3, n] + S2[a1, a4, SP[a1, a5], a3, a2, n] + 
    S2[a1, a4, SP[a2, a5], a1, a3, n] - S2[a4, n]*S2[a1, a5, a1, a2, a3, n] - 
    S2[a1, a5, a1, a2, SP[a3, a4], n] - S2[a4, n]*S2[a1, a5, a1, a3, a2, n] - 
    2*S2[a1, a5, a1, a3, SP[a2, a4], n] - S2[a1, a5, a1, a4, SP[a2, a3], n] - 
    S2[a1, a5, a1, SP[a2, a3], a4, n] - 2*S2[a1, a5, a1, SP[a2, a4], a3, n] - 
    S2[a1, a5, a1, SP[a3, a4], a2, n] - S2[a4, n]*S2[a1, a5, a2, a1, a3, n] - 
    S2[a1, a5, a2, a1, SP[a3, a4], n] - S2[a1, a5, a2, SP[a1, a4], a3, n] - 
    S2[a1, a5, a3, a1, SP[a2, a4], n] - S2[a1, a5, a3, SP[a1, a4], a2, n] - 
    S2[a1, a5, a4, a1, SP[a2, a3], n] - S2[a1, a5, a4, SP[a1, a3], a2, n] - 
    S2[a1, a5, SP[a1, a3], a2, a4, n] - S2[a1, a5, SP[a1, a3], a4, a2, n] - 
    2*S2[a1, a5, SP[a1, a4], a2, a3, n] - 
    2*S2[a1, a5, SP[a1, a4], a3, a2, n] - S2[a1, a5, SP[a2, a4], a1, a3, n] - 
    S2[a1, SP[a1, a2], a3, a4, a5, n] - S2[a1, SP[a1, a2], a3, a5, a4, n] - 
    S2[a1, SP[a1, a2], a4, a3, a5, n] - S2[a1, SP[a1, a2], a4, a5, a3, n] - 
    S2[a1, SP[a1, a2], a5, a3, a4, n] - S2[a1, SP[a1, a2], a5, a4, a3, n] - 
    S2[a1, SP[a1, a3], a2, a4, a5, n] - S2[a1, SP[a1, a3], a2, a5, a4, n] - 
    S2[a1, SP[a1, a3], a4, a2, a5, n] - 2*S2[a1, SP[a1, a3], a4, a5, a2, n] - 
    S2[a1, SP[a1, a3], a5, a2, a4, n] - S2[a1, SP[a1, a3], a5, a4, a2, n] - 
    S2[a1, SP[a1, a4], a2, a3, a5, n] - S2[a1, SP[a1, a4], a2, a5, a3, n] - 
    S2[a1, SP[a1, a4], a3, a2, a5, n] + S2[a1, SP[a1, a5], a2, a3, a4, n] + 
    S2[a1, SP[a1, a5], a2, a4, a3, n] + S2[a1, SP[a1, a5], a3, a2, a4, n] + 
    S2[a1, SP[a1, a5], a3, a4, a2, n] + S2[a1, SP[a1, a5], a4, a2, a3, n] + 
    S2[a1, SP[a1, a5], a4, a3, a2, n] + S2[a1, SP[a2, a5], a1, a3, a4, n] + 
    S2[a1, SP[a2, a5], a1, a4, a3, n] - S2[a1, SP[a3, a4], a1, a5, a2, n] - 
    S2[a1, SP[a3, a4], a5, a1, a2, n] + S2[a1, SP[a3, a5], a1, a2, a4, n] + 
    S2[a1, SP[a3, a5], a1, a4, a2, n] + S2[a1, SP[a3, a5], a4, a1, a2, n] - 
    S2[a1, SP[a4, a5], a2, a1, a3, n] + S2[a1, SP[a4, a5], a3, a1, a2, n] + 
    S2[a1, n]*S2[a3, a1, a4, a5, a2, n] + S2[a3, a1, a4, a5, SP[a1, a2], n] + 
    S2[a3, a1, a4, SP[a1, a5], a2, n] + S2[a3, a1, SP[a1, a4], a5, a2, n] + 
    S2[a3, SP[a1, a1], a4, a5, a2, n] + S2[a4, a1, a5, a1, SP[a2, a3], n] + 
    S2[a4, a1, a5, SP[a1, a2], a3, n] + S2[a4, a1, SP[a2, a5], a1, a3, n] + 
    2*S2[a4, a5, a1, a1, SP[a2, a3], n] + S2[a4, a5, a1, SP[a1, a2], a3, n] + 
    S2[a4, a5, a1, SP[a1, a3], a2, n] + S2[a4, a5, SP[a1, a1], a2, a3, n] + 
    S2[a4, a5, SP[a1, a1], a3, a2, n] + S2[a4, SP[a1, a5], a1, a2, a3, n] + 
    S2[a4, SP[a1, a5], a1, a3, a2, n] + S2[a4, SP[a1, a5], a2, a1, a3, n] - 
    2*S2[a4, n]*S2[a5, a1, a1, a2, a3, n] - 
    2*S2[a5, a1, a1, a2, SP[a3, a4], n] - 
    2*S2[a4, n]*S2[a5, a1, a1, a3, a2, n] - 
    2*S2[a5, a1, a1, a3, SP[a2, a4], n] - 
    2*S2[a5, a1, a1, SP[a2, a4], a3, n] - 
    2*S2[a5, a1, a1, SP[a3, a4], a2, n] - 
    S2[a4, n]*S2[a5, a1, a2, a1, a3, n] - S2[a5, a1, a2, a1, SP[a3, a4], n] - 
    S2[a5, a1, a2, SP[a1, a4], a3, n] - S2[a4, n]*S2[a5, a1, a3, a1, a2, n] - 
    S2[a5, a1, a3, a1, SP[a2, a4], n] - S2[a5, a1, a3, SP[a1, a4], a2, n] - 
    2*S2[a5, a1, SP[a1, a4], a2, a3, n] - 
    2*S2[a5, a1, SP[a1, a4], a3, a2, n] - S2[a5, a1, SP[a2, a4], a1, a3, n] - 
    S2[a5, a1, SP[a3, a4], a1, a2, n] + S2[a1, n]*S2[a5, a2, a4, a1, a3, n] + 
    S2[a5, a2, a4, a1, SP[a1, a3], n] + S2[a5, a2, a4, SP[a1, a1], a3, n] + 
    S2[a5, a2, SP[a1, a4], a1, a3, n] + S2[a1, n]*S2[a5, a4, a1, a2, a3, n] + 
    S2[a5, a4, a1, a2, SP[a1, a3], n] + S2[a1, n]*S2[a5, a4, a1, a3, a2, n] + 
    S2[a5, a4, a1, a3, SP[a1, a2], n] + S2[a5, a4, a1, SP[a1, a2], a3, n] + 
    S2[a5, a4, a1, SP[a1, a3], a2, n] + S2[a1, n]*S2[a5, a4, a2, a1, a3, n] + 
    S2[a5, a4, a2, a1, SP[a1, a3], n] + S2[a5, a4, a2, SP[a1, a1], a3, n] + 
    S2[a5, a4, SP[a1, a1], a2, a3, n] + S2[a5, a4, SP[a1, a1], a3, a2, n] + 
    S2[a5, a4, SP[a1, a2], a1, a3, n] + S2[a5, SP[a1, a2], a4, a1, a3, n] - 
    S2[a5, SP[a1, a4], a1, a2, a3, n] - S2[a5, SP[a1, a4], a1, a3, a2, n] - 
    S2[a5, SP[a1, a4], a3, a1, a2, n] - S2[SP[a1, a1], a2, a3, a4, a5, n] - 
    S2[SP[a1, a1], a2, a3, a5, a4, n] - S2[SP[a1, a1], a2, a4, a3, a5, n] - 
    S2[SP[a1, a1], a2, a4, a5, a3, n] - S2[SP[a1, a1], a2, a5, a3, a4, n] - 
    S2[SP[a1, a1], a2, a5, a4, a3, n] - S2[SP[a1, a1], a3, a2, a4, a5, n] - 
    S2[SP[a1, a1], a3, a2, a5, a4, n] - S2[SP[a1, a1], a3, a4, a2, a5, n] - 
    S2[SP[a1, a1], a3, a5, a2, a4, n] - S2[SP[a1, a1], a3, a5, a4, a2, n] - 
    S2[SP[a1, a1], a4, a2, a3, a5, n] - S2[SP[a1, a1], a4, a2, a5, a3, n] - 
    S2[SP[a1, a1], a4, a3, a2, a5, n] - S2[SP[a1, a1], a5, a2, a3, a4, n] - 
    S2[SP[a1, a1], a5, a2, a4, a3, n] - S2[SP[a1, a1], a5, a3, a2, a4, n] - 
    S2[SP[a1, a1], a5, a3, a4, a2, n] - S2[SP[a1, a1], a5, a4, a2, a3, n] - 
    S2[SP[a1, a1], a5, a4, a3, a2, n] - S2[SP[a1, a3], a1, a4, a5, a2, n] - 
    S2[SP[a1, a3], a4, a1, a5, a2, n] - S2[SP[a1, a3], a4, a5, a1, a2, n] + 
    2*S2[SP[a1, a5], a1, a2, a3, a4, n] + 
    2*S2[SP[a1, a5], a1, a2, a4, a3, n] + 
    2*S2[SP[a1, a5], a1, a3, a2, a4, n] + 
    2*S2[SP[a1, a5], a1, a3, a4, a2, n] + 
    2*S2[SP[a1, a5], a1, a4, a2, a3, n] + 
    2*S2[SP[a1, a5], a1, a4, a3, a2, n] + S2[SP[a1, a5], a2, a1, a3, a4, n] + 
    S2[SP[a1, a5], a2, a1, a4, a3, n] + S2[SP[a1, a5], a2, a4, a1, a3, n] + 
    S2[SP[a1, a5], a3, a1, a2, a4, n] + S2[SP[a1, a5], a3, a1, a4, a2, n] + 
    S2[SP[a1, a5], a3, a4, a1, a2, n] + 2*S2[SP[a1, a5], a4, a1, a2, a3, n] + 
    2*S2[SP[a1, a5], a4, a1, a3, a2, n] + S2[SP[a1, a5], a4, a2, a1, a3, n] + 
    S2[SP[a1, a5], a4, a3, a1, a2, n] - 2*S2[SP[a4, a5], a1, a1, a2, a3, n] - 
    2*S2[SP[a4, a5], a1, a1, a3, a2, n] - S2[SP[a4, a5], a1, a2, a1, a3, n] - 
    S2[SP[a4, a5], a1, a3, a1, a2, n] - S2[a5, a2, a1, a4, a1, a3, n] - 
    2*S2[a5, a2, a4, a1, a1, a3, n] - S2[a5, a2, a4, a1, a3, a1, n] - 
    S2[a5, a4, a1, a2, a1, a3, n] - S2[a5, a4, a1, a2, a3, a1, n] - 
    S2[a5, a4, a1, a3, a2, a1, n] - 2*S2[a5, a4, a2, a1, a1, a3, n] - 
    S2[a5, a4, a2, a1, a3, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a3_, a1_, a5_, a1_, a2_, a4_, n_] :> 
  S2[a1, a3, n]*S2[a1, a2, a4, a5, n] + S2[a1, a3, n]*S2[a1, a2, a5, a4, n] - 
    S2[a1, a2, SP[a1, a4], SP[a3, a5], n] - S2[a1, a2, SP[a1, a5], 
     SP[a3, a4], n] + S2[a1, a3, n]*S2[a1, a5, a2, a4, n] - 
    S2[a1, a5, SP[a1, a2], SP[a3, a4], n] - S2[a1, SP[a1, a2], a4, 
     SP[a3, a5], n] - S2[a1, SP[a1, a2], a5, SP[a3, a4], n] - 
    S2[a1, SP[a1, a2], SP[a3, a4], a5, n] - S2[a1, SP[a1, a2], SP[a3, a5], 
     a4, n] - S2[a1, SP[a1, a5], a2, SP[a3, a4], n] - 
    S2[a1, SP[a1, a5], SP[a2, a3], a4, n] - S2[SP[a1, a1], a2, a4, 
     SP[a3, a5], n] - S2[SP[a1, a1], a2, a5, SP[a3, a4], n] - 
    S2[SP[a1, a1], a2, SP[a3, a4], a5, n] - S2[SP[a1, a1], a2, SP[a3, a5], 
     a4, n] - S2[SP[a1, a1], a5, a2, SP[a3, a4], n] - 
    S2[SP[a1, a1], a5, SP[a2, a3], a4, n] - S2[SP[a1, a1], SP[a2, a3], a4, 
     a5, n] - S2[SP[a1, a1], SP[a2, a3], a5, a4, n] - 
    S2[SP[a1, a1], SP[a3, a5], a2, a4, n] - 
    2*S2[a5, n]*S2[a1, a1, a2, a3, a4, n] - 
    2*S2[a1, a1, a2, a3, SP[a4, a5], n] - 
    2*S2[a5, n]*S2[a1, a1, a2, a4, a3, n] + 
    2*S2[a1, a1, a2, a5, SP[a3, a4], n] + 
    2*S2[a1, a1, a2, SP[a3, a4], a5, n] - 
    2*S2[a1, a1, a2, SP[a4, a5], a3, n] - 
    2*S2[a5, n]*S2[a1, a1, a3, a2, a4, n] - 
    2*S2[a1, a1, a3, a2, SP[a4, a5], n] - 
    2*S2[a1, a1, a3, SP[a2, a5], a4, n] + 
    2*S2[a1, a1, a5, a2, SP[a3, a4], n] + 
    2*S2[a1, a1, a5, SP[a2, a3], a4, n] + 
    2*S2[a1, a1, SP[a2, a3], a4, a5, n] + 
    2*S2[a1, a1, SP[a2, a3], a5, a4, n] - 
    2*S2[a1, a1, SP[a2, a5], a3, a4, n] - 
    2*S2[a1, a1, SP[a2, a5], a4, a3, n] - 
    S2[a5, n]*S2[a1, a2, a1, a3, a4, n] - S2[a1, a2, a1, a3, SP[a4, a5], n] - 
    S2[a5, n]*S2[a1, a2, a1, a4, a3, n] + S2[a1, a2, a1, a5, SP[a3, a4], n] + 
    S2[a1, a2, a1, SP[a3, a4], a5, n] - S2[a1, a2, a1, SP[a4, a5], a3, n] - 
    S2[a5, n]*S2[a1, a2, a4, a1, a3, n] + S2[a1, a2, a5, a1, SP[a3, a4], n] + 
    S2[a1, a2, a5, SP[a1, a4], a3, n] + S2[a1, a2, SP[a1, a4], a3, a5, n] + 
    S2[a1, a2, SP[a1, a4], a5, a3, n] - S2[a1, a2, SP[a4, a5], a1, a3, n] - 
    S2[a5, n]*S2[a1, a3, a1, a2, a4, n] - S2[a1, a3, a1, a2, SP[a4, a5], n] - 
    S2[a1, a3, a1, SP[a2, a5], a4, n] - S2[a1, a3, SP[a1, a5], a2, a4, n] + 
    S2[a3, n]*S2[a1, a5, a1, a2, a4, n] + 
    2*S2[a1, a5, a1, a2, SP[a3, a4], n] + 
    2*S2[a1, a5, a1, SP[a2, a3], a4, n] + S2[a1, a5, a2, a1, SP[a3, a4], n] + 
    S2[a1, a5, a2, SP[a1, a4], a3, n] + S2[a1, a5, SP[a1, a2], a3, a4, n] + 
    S2[a1, a5, SP[a1, a2], a4, a3, n] + S2[a1, a5, SP[a1, a3], a2, a4, n] + 
    S2[a1, SP[a1, a2], a3, a4, a5, n] + S2[a1, SP[a1, a2], a3, a5, a4, n] + 
    S2[a1, SP[a1, a2], a4, a3, a5, n] + S2[a1, SP[a1, a2], a4, a5, a3, n] + 
    S2[a1, SP[a1, a2], a5, a3, a4, n] + S2[a1, SP[a1, a2], a5, a4, a3, n] + 
    S2[a1, SP[a1, a3], a2, a4, a5, n] + S2[a1, SP[a1, a3], a2, a5, a4, n] + 
    S2[a1, SP[a1, a3], a5, a2, a4, n] - S2[a1, SP[a1, a5], a2, a3, a4, n] - 
    S2[a1, SP[a1, a5], a2, a4, a3, n] - S2[a1, SP[a1, a5], a3, a2, a4, n] - 
    S2[a1, SP[a2, a5], a1, a3, a4, n] - S2[a1, SP[a2, a5], a1, a4, a3, n] - 
    S2[a1, SP[a2, a5], a4, a1, a3, n] + S2[SP[a1, a1], a2, a3, a4, a5, n] + 
    S2[SP[a1, a1], a2, a3, a5, a4, n] + S2[SP[a1, a1], a2, a4, a3, a5, n] + 
    S2[SP[a1, a1], a2, a4, a5, a3, n] + S2[SP[a1, a1], a2, a5, a3, a4, n] + 
    S2[SP[a1, a1], a2, a5, a4, a3, n] + S2[SP[a1, a1], a3, a2, a4, a5, n] + 
    S2[SP[a1, a1], a3, a2, a5, a4, n] + S2[SP[a1, a1], a3, a5, a2, a4, n] + 
    S2[SP[a1, a1], a5, a2, a3, a4, n] + S2[SP[a1, a1], a5, a2, a4, a3, n] + 
    S2[SP[a1, a1], a5, a3, a2, a4, n] + S2[SP[a1, a3], a5, a1, a2, a4, n] - 
    2*S2[SP[a1, a5], a1, a2, a3, a4, n] - 
    2*S2[SP[a1, a5], a1, a2, a4, a3, n] - 
    2*S2[SP[a1, a5], a1, a3, a2, a4, n] - S2[SP[a1, a5], a2, a1, a3, a4, n] - 
    S2[SP[a1, a5], a2, a1, a4, a3, n] - S2[SP[a1, a5], a2, a4, a1, a3, n] - 
    S2[SP[a1, a5], a3, a1, a2, a4, n] + 2*S2[a5, a1, a1, a2, a3, a4, n] + 
    2*S2[a5, a1, a1, a2, a4, a3, n] + 2*S2[a5, a1, a1, a3, a2, a4, n] + 
    S2[a5, a1, a2, a1, a3, a4, n] + S2[a5, a1, a2, a1, a4, a3, n] + 
    S2[a5, a1, a2, a4, a1, a3, n] + S2[a5, a1, a3, a1, a2, a4, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a3_, a1_, a5_, a1_, a4_, a2_, n_] :> 
  S2[a1, a3, n]*S2[a1, a4, a2, a5, n] + S2[a1, a3, n]*S2[a1, a4, a5, a2, n] - 
    S2[a1, a4, SP[a1, a2], SP[a3, a5], n] - S2[a1, a4, SP[a1, a5], 
     SP[a2, a3], n] + S2[a1, a3, n]*S2[a1, a5, a4, a2, n] - 
    S2[a1, a5, SP[a1, a4], SP[a2, a3], n] - S2[a1, SP[a1, a4], a2, 
     SP[a3, a5], n] - S2[a1, SP[a1, a4], a5, SP[a2, a3], n] - 
    S2[a1, SP[a1, a4], SP[a2, a3], a5, n] - S2[a1, SP[a1, a4], SP[a3, a5], 
     a2, n] - S2[a1, SP[a1, a5], a4, SP[a2, a3], n] - 
    S2[a1, SP[a1, a5], SP[a3, a4], a2, n] - S2[SP[a1, a1], a4, a2, 
     SP[a3, a5], n] - S2[SP[a1, a1], a4, a5, SP[a2, a3], n] - 
    S2[SP[a1, a1], a4, SP[a2, a3], a5, n] - S2[SP[a1, a1], a4, SP[a3, a5], 
     a2, n] - S2[SP[a1, a1], a5, a4, SP[a2, a3], n] - 
    S2[SP[a1, a1], a5, SP[a3, a4], a2, n] - S2[SP[a1, a1], SP[a3, a4], a2, 
     a5, n] - S2[SP[a1, a1], SP[a3, a4], a5, a2, n] - 
    S2[SP[a1, a1], SP[a3, a5], a4, a2, n] - 
    2*S2[a5, n]*S2[a1, a1, a3, a4, a2, n] - 
    2*S2[a1, a1, a3, a4, SP[a2, a5], n] - 
    2*S2[a1, a1, a3, SP[a4, a5], a2, n] - 
    2*S2[a5, n]*S2[a1, a1, a4, a2, a3, n] - 
    2*S2[a5, n]*S2[a1, a1, a4, a3, a2, n] - 
    2*S2[a1, a1, a4, a3, SP[a2, a5], n] + 
    2*S2[a1, a1, a4, a5, SP[a2, a3], n] + 
    2*S2[a1, a1, a4, SP[a2, a3], a5, n] - 
    2*S2[a1, a1, a4, SP[a2, a5], a3, n] + 
    2*S2[a1, a1, a5, a4, SP[a2, a3], n] + 
    2*S2[a1, a1, a5, SP[a3, a4], a2, n] + 
    2*S2[a1, a1, SP[a3, a4], a2, a5, n] + 
    2*S2[a1, a1, SP[a3, a4], a5, a2, n] - 
    2*S2[a1, a1, SP[a4, a5], a2, a3, n] - 
    2*S2[a1, a1, SP[a4, a5], a3, a2, n] - 
    S2[a5, n]*S2[a1, a3, a1, a4, a2, n] - S2[a1, a3, a1, a4, SP[a2, a5], n] - 
    S2[a1, a3, a1, SP[a4, a5], a2, n] - S2[a1, a3, SP[a1, a5], a4, a2, n] - 
    S2[a5, n]*S2[a1, a4, a1, a2, a3, n] - 
    S2[a5, n]*S2[a1, a4, a1, a3, a2, n] - S2[a1, a4, a1, a3, SP[a2, a5], n] + 
    S2[a1, a4, a1, a5, SP[a2, a3], n] + S2[a1, a4, a1, SP[a2, a3], a5, n] - 
    S2[a1, a4, a1, SP[a2, a5], a3, n] - S2[a5, n]*S2[a1, a4, a2, a1, a3, n] + 
    S2[a1, a4, a5, a1, SP[a2, a3], n] + S2[a1, a4, a5, SP[a1, a2], a3, n] + 
    S2[a1, a4, SP[a1, a2], a3, a5, n] + S2[a1, a4, SP[a1, a2], a5, a3, n] - 
    S2[a1, a4, SP[a2, a5], a1, a3, n] + S2[a3, n]*S2[a1, a5, a1, a4, a2, n] + 
    2*S2[a1, a5, a1, a4, SP[a2, a3], n] + 
    2*S2[a1, a5, a1, SP[a3, a4], a2, n] + S2[a1, a5, a4, a1, SP[a2, a3], n] + 
    S2[a1, a5, a4, SP[a1, a2], a3, n] + S2[a1, a5, SP[a1, a3], a4, a2, n] + 
    S2[a1, a5, SP[a1, a4], a2, a3, n] + S2[a1, a5, SP[a1, a4], a3, a2, n] + 
    S2[a1, SP[a1, a3], a4, a2, a5, n] + S2[a1, SP[a1, a3], a4, a5, a2, n] + 
    S2[a1, SP[a1, a3], a5, a4, a2, n] + S2[a1, SP[a1, a4], a2, a3, a5, n] + 
    S2[a1, SP[a1, a4], a2, a5, a3, n] + S2[a1, SP[a1, a4], a3, a2, a5, n] + 
    S2[a1, SP[a1, a4], a3, a5, a2, n] + S2[a1, SP[a1, a4], a5, a2, a3, n] + 
    S2[a1, SP[a1, a4], a5, a3, a2, n] - S2[a1, SP[a1, a5], a3, a4, a2, n] - 
    S2[a1, SP[a1, a5], a4, a2, a3, n] - S2[a1, SP[a1, a5], a4, a3, a2, n] - 
    S2[a1, SP[a4, a5], a1, a2, a3, n] - S2[a1, SP[a4, a5], a1, a3, a2, n] - 
    S2[a1, SP[a4, a5], a2, a1, a3, n] + S2[SP[a1, a1], a3, a4, a2, a5, n] + 
    S2[SP[a1, a1], a3, a4, a5, a2, n] + S2[SP[a1, a1], a3, a5, a4, a2, n] + 
    S2[SP[a1, a1], a4, a2, a3, a5, n] + S2[SP[a1, a1], a4, a2, a5, a3, n] + 
    S2[SP[a1, a1], a4, a3, a2, a5, n] + S2[SP[a1, a1], a4, a3, a5, a2, n] + 
    S2[SP[a1, a1], a4, a5, a2, a3, n] + S2[SP[a1, a1], a4, a5, a3, a2, n] + 
    S2[SP[a1, a1], a5, a3, a4, a2, n] + S2[SP[a1, a1], a5, a4, a2, a3, n] + 
    S2[SP[a1, a1], a5, a4, a3, a2, n] + S2[SP[a1, a3], a5, a1, a4, a2, n] - 
    2*S2[SP[a1, a5], a1, a3, a4, a2, n] - 
    2*S2[SP[a1, a5], a1, a4, a2, a3, n] - 
    2*S2[SP[a1, a5], a1, a4, a3, a2, n] - S2[SP[a1, a5], a3, a1, a4, a2, n] - 
    S2[SP[a1, a5], a4, a1, a2, a3, n] - S2[SP[a1, a5], a4, a1, a3, a2, n] - 
    S2[SP[a1, a5], a4, a2, a1, a3, n] + 2*S2[a5, a1, a1, a3, a4, a2, n] + 
    2*S2[a5, a1, a1, a4, a2, a3, n] + 2*S2[a5, a1, a1, a4, a3, a2, n] + 
    S2[a5, a1, a3, a1, a4, a2, n] + S2[a5, a1, a4, a1, a2, a3, n] + 
    S2[a5, a1, a4, a1, a3, a2, n] + S2[a5, a1, a4, a2, a1, a3, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a3_, a1_, a5_, a2_, a1_, a4_, n_] :> 
  -(S2[a1, a3, n]*S2[a1, a2, a4, a5, n]) - S2[a1, a3, n]*
     S2[a1, a2, a5, a4, n] + S2[a1, a2, SP[a1, a4], SP[a3, a5], n] + 
    S2[a1, a2, SP[a1, a5], SP[a3, a4], n] - S2[a1, a3, n]*
     S2[a1, a4, a2, a5, n] - S2[a1, a3, n]*S2[a1, a4, a5, a2, n] + 
    S2[a1, a4, SP[a1, a2], SP[a3, a5], n] + S2[a1, a4, SP[a1, a5], 
     SP[a2, a3], n] - S2[a1, a3, n]*S2[a1, a5, a2, a4, n] - 
    S2[a1, a3, n]*S2[a1, a5, a4, a2, n] + S2[a1, a5, SP[a1, a2], SP[a3, a4], 
     n] + S2[a1, a5, SP[a1, a4], SP[a2, a3], n] + S2[a1, SP[a1, a2], a4, 
     SP[a3, a5], n] + S2[a1, SP[a1, a2], a5, SP[a3, a4], n] + 
    S2[a1, SP[a1, a2], SP[a3, a4], a5, n] + S2[a1, SP[a1, a2], SP[a3, a5], 
     a4, n] + S2[a1, SP[a1, a4], a2, SP[a3, a5], n] + 
    S2[a1, SP[a1, a4], a5, SP[a2, a3], n] + S2[a1, SP[a1, a4], SP[a2, a3], 
     a5, n] + S2[a1, SP[a1, a4], SP[a3, a5], a2, n] + 
    S2[a1, SP[a1, a5], a2, SP[a3, a4], n] + S2[a1, SP[a1, a5], a4, 
     SP[a2, a3], n] + S2[a1, SP[a1, a5], SP[a2, a3], a4, n] + 
    S2[a1, SP[a1, a5], SP[a3, a4], a2, n] + S2[a1, a3, n]*
     S2[a2, a5, a1, a4, n] - S2[a2, a5, SP[a1, a1], SP[a3, a4], n] - 
    S2[a2, SP[a1, a5], a1, SP[a3, a4], n] - S2[a2, SP[a1, a5], SP[a1, a3], 
     a4, n] + S2[SP[a1, a1], a2, a4, SP[a3, a5], n] + 
    S2[SP[a1, a1], a2, a5, SP[a3, a4], n] + S2[SP[a1, a1], a2, SP[a3, a4], 
     a5, n] + S2[SP[a1, a1], a2, SP[a3, a5], a4, n] + 
    S2[SP[a1, a1], a4, a2, SP[a3, a5], n] + S2[SP[a1, a1], a4, a5, 
     SP[a2, a3], n] + S2[SP[a1, a1], a4, SP[a2, a3], a5, n] + 
    S2[SP[a1, a1], a4, SP[a3, a5], a2, n] + S2[SP[a1, a1], a5, a2, 
     SP[a3, a4], n] + S2[SP[a1, a1], a5, a4, SP[a2, a3], n] + 
    S2[SP[a1, a1], a5, SP[a2, a3], a4, n] + S2[SP[a1, a1], a5, SP[a3, a4], 
     a2, n] + S2[SP[a1, a1], SP[a2, a3], a4, a5, n] + 
    S2[SP[a1, a1], SP[a2, a3], a5, a4, n] + S2[SP[a1, a1], SP[a3, a4], a2, 
     a5, n] + S2[SP[a1, a1], SP[a3, a4], a5, a2, n] + 
    S2[SP[a1, a1], SP[a3, a5], a2, a4, n] + S2[SP[a1, a1], SP[a3, a5], a4, 
     a2, n] - S2[SP[a1, a2], a5, a1, SP[a3, a4], n] - 
    S2[SP[a1, a2], a5, SP[a1, a3], a4, n] - S2[SP[a1, a2], SP[a3, a5], a1, 
     a4, n] + 2*S2[a5, n]*S2[a1, a1, a2, a3, a4, n] + 
    2*S2[a1, a1, a2, a3, SP[a4, a5], n] + 
    2*S2[a5, n]*S2[a1, a1, a2, a4, a3, n] - 
    2*S2[a1, a1, a2, a5, SP[a3, a4], n] - 
    2*S2[a1, a1, a2, SP[a3, a4], a5, n] + 
    2*S2[a1, a1, a2, SP[a4, a5], a3, n] + 
    2*S2[a5, n]*S2[a1, a1, a3, a2, a4, n] + 
    2*S2[a1, a1, a3, a2, SP[a4, a5], n] + 
    2*S2[a5, n]*S2[a1, a1, a3, a4, a2, n] + 
    2*S2[a1, a1, a3, a4, SP[a2, a5], n] + 
    2*S2[a1, a1, a3, SP[a2, a5], a4, n] + 
    2*S2[a1, a1, a3, SP[a4, a5], a2, n] + 
    2*S2[a5, n]*S2[a1, a1, a4, a2, a3, n] + 
    2*S2[a5, n]*S2[a1, a1, a4, a3, a2, n] + 
    2*S2[a1, a1, a4, a3, SP[a2, a5], n] - 
    2*S2[a1, a1, a4, a5, SP[a2, a3], n] - 
    2*S2[a1, a1, a4, SP[a2, a3], a5, n] + 
    2*S2[a1, a1, a4, SP[a2, a5], a3, n] - 
    2*S2[a1, a1, a5, a2, SP[a3, a4], n] - 
    2*S2[a1, a1, a5, a4, SP[a2, a3], n] - 
    2*S2[a1, a1, a5, SP[a2, a3], a4, n] - 
    2*S2[a1, a1, a5, SP[a3, a4], a2, n] - 
    2*S2[a1, a1, SP[a2, a3], a4, a5, n] - 
    2*S2[a1, a1, SP[a2, a3], a5, a4, n] + 
    2*S2[a1, a1, SP[a2, a5], a3, a4, n] + 
    2*S2[a1, a1, SP[a2, a5], a4, a3, n] - 
    2*S2[a1, a1, SP[a3, a4], a2, a5, n] - 
    2*S2[a1, a1, SP[a3, a4], a5, a2, n] + 
    2*S2[a1, a1, SP[a4, a5], a2, a3, n] + 
    2*S2[a1, a1, SP[a4, a5], a3, a2, n] + 
    S2[a5, n]*S2[a1, a2, a1, a3, a4, n] + S2[a1, a2, a1, a3, SP[a4, a5], n] + 
    S2[a5, n]*S2[a1, a2, a1, a4, a3, n] - S2[a1, a2, a1, a5, SP[a3, a4], n] - 
    S2[a1, a2, a1, SP[a3, a4], a5, n] + S2[a1, a2, a1, SP[a4, a5], a3, n] + 
    S2[a5, n]*S2[a1, a2, a4, a1, a3, n] + S2[a1, a2, a5, SP[a1, a3], a4, n] - 
    S2[a1, a2, a5, SP[a1, a4], a3, n] - S2[a1, a2, SP[a1, a4], a3, a5, n] - 
    S2[a1, a2, SP[a1, a4], a5, a3, n] + S2[a1, a2, SP[a3, a5], a1, a4, n] + 
    S2[a1, a2, SP[a4, a5], a1, a3, n] + S2[a5, n]*S2[a1, a3, a1, a2, a4, n] + 
    S2[a1, a3, a1, a2, SP[a4, a5], n] + S2[a5, n]*S2[a1, a3, a1, a4, a2, n] + 
    S2[a1, a3, a1, a4, SP[a2, a5], n] + S2[a1, a3, a1, SP[a2, a5], a4, n] + 
    S2[a1, a3, a1, SP[a4, a5], a2, n] - S2[a2, n]*S2[a1, a3, a5, a1, a4, n] - 
    S2[a1, a3, a5, a1, SP[a2, a4], n] - S2[a1, a3, a5, SP[a1, a2], a4, n] + 
    S2[a1, a3, SP[a1, a5], a2, a4, n] + S2[a1, a3, SP[a1, a5], a4, a2, n] - 
    S2[a1, a3, SP[a2, a5], a1, a4, n] + S2[a5, n]*S2[a1, a4, a1, a2, a3, n] + 
    S2[a5, n]*S2[a1, a4, a1, a3, a2, n] + S2[a1, a4, a1, a3, SP[a2, a5], n] - 
    S2[a1, a4, a1, a5, SP[a2, a3], n] - S2[a1, a4, a1, SP[a2, a3], a5, n] + 
    S2[a1, a4, a1, SP[a2, a5], a3, n] + S2[a5, n]*S2[a1, a4, a2, a1, a3, n] - 
    S2[a1, a4, a5, a1, SP[a2, a3], n] - S2[a1, a4, a5, SP[a1, a2], a3, n] - 
    S2[a1, a4, SP[a1, a2], a3, a5, n] - S2[a1, a4, SP[a1, a2], a5, a3, n] + 
    S2[a1, a4, SP[a2, a5], a1, a3, n] - S2[a1, a5, a1, a2, SP[a3, a4], n] - 
    S2[a2, n]*S2[a1, a5, a1, a3, a4, n] - S2[a1, a5, a1, a3, SP[a2, a4], n] - 
    S2[a2, n]*S2[a1, a5, a1, a4, a3, n] - 
    2*S2[a1, a5, a1, a4, SP[a2, a3], n] - 
    2*S2[a1, a5, a1, SP[a2, a3], a4, n] - S2[a1, a5, a1, SP[a2, a4], a3, n] - 
    S2[a1, a5, a1, SP[a3, a4], a2, n] + S2[a3, n]*S2[a1, a5, a2, a1, a4, n] + 
    S2[a1, a5, a2, SP[a1, a3], a4, n] - S2[a1, a5, a2, SP[a1, a4], a3, n] - 
    S2[a2, n]*S2[a1, a5, a3, a1, a4, n] - S2[a1, a5, a3, a1, SP[a2, a4], n] - 
    S2[a1, a5, a3, SP[a1, a2], a4, n] - S2[a1, a5, a4, a1, SP[a2, a3], n] - 
    S2[a1, a5, a4, SP[a1, a2], a3, n] - 2*S2[a1, a5, SP[a1, a2], a3, a4, n] - 
    2*S2[a1, a5, SP[a1, a2], a4, a3, n] - S2[a1, a5, SP[a1, a4], a2, a3, n] - 
    S2[a1, a5, SP[a1, a4], a3, a2, n] - S2[a1, SP[a1, a2], a3, a4, a5, n] - 
    S2[a1, SP[a1, a2], a3, a5, a4, n] - S2[a1, SP[a1, a2], a4, a3, a5, n] - 
    S2[a1, SP[a1, a2], a4, a5, a3, n] - S2[a1, SP[a1, a2], a5, a3, a4, n] - 
    S2[a1, SP[a1, a2], a5, a4, a3, n] - S2[a1, SP[a1, a3], a2, a4, a5, n] - 
    S2[a1, SP[a1, a3], a2, a5, a4, n] - S2[a1, SP[a1, a3], a4, a2, a5, n] - 
    S2[a1, SP[a1, a3], a4, a5, a2, n] - S2[a1, SP[a1, a3], a5, a2, a4, n] - 
    S2[a1, SP[a1, a3], a5, a4, a2, n] - S2[a1, SP[a1, a4], a2, a3, a5, n] - 
    S2[a1, SP[a1, a4], a2, a5, a3, n] - S2[a1, SP[a1, a4], a3, a2, a5, n] - 
    S2[a1, SP[a1, a4], a3, a5, a2, n] - S2[a1, SP[a1, a4], a5, a2, a3, n] - 
    S2[a1, SP[a1, a4], a5, a3, a2, n] + S2[a1, SP[a1, a5], a2, a3, a4, n] + 
    S2[a1, SP[a1, a5], a2, a4, a3, n] + S2[a1, SP[a1, a5], a3, a2, a4, n] + 
    S2[a1, SP[a1, a5], a3, a4, a2, n] + S2[a1, SP[a1, a5], a4, a2, a3, n] + 
    S2[a1, SP[a1, a5], a4, a3, a2, n] - S2[a1, SP[a2, a5], a3, a1, a4, n] + 
    S2[a1, SP[a2, a5], a4, a1, a3, n] + S2[a1, SP[a3, a5], a1, a2, a4, n] + 
    S2[a1, SP[a3, a5], a1, a4, a2, n] + S2[a1, SP[a3, a5], a2, a1, a4, n] + 
    S2[a1, SP[a4, a5], a1, a2, a3, n] + S2[a1, SP[a4, a5], a1, a3, a2, n] + 
    S2[a1, SP[a4, a5], a2, a1, a3, n] + S2[a2, a1, a5, a1, SP[a3, a4], n] + 
    S2[a2, a1, a5, SP[a1, a3], a4, n] + S2[a2, a1, SP[a3, a5], a1, a4, n] + 
    2*S2[a2, a5, a1, a1, SP[a3, a4], n] + S2[a2, a5, a1, SP[a1, a3], a4, n] + 
    S2[a2, a5, a1, SP[a1, a4], a3, n] + S2[a2, a5, SP[a1, a1], a3, a4, n] + 
    S2[a2, a5, SP[a1, a1], a4, a3, n] + S2[a2, SP[a1, a5], a1, a3, a4, n] + 
    S2[a2, SP[a1, a5], a1, a4, a3, n] + S2[a2, SP[a1, a5], a3, a1, a4, n] - 
    2*S2[a2, n]*S2[a5, a1, a1, a3, a4, n] - 
    2*S2[a5, a1, a1, a3, SP[a2, a4], n] - 
    2*S2[a2, n]*S2[a5, a1, a1, a4, a3, n] - 
    2*S2[a5, a1, a1, a4, SP[a2, a3], n] - 
    2*S2[a5, a1, a1, SP[a2, a3], a4, n] - 
    2*S2[a5, a1, a1, SP[a2, a4], a3, n] - 
    S2[a2, n]*S2[a5, a1, a3, a1, a4, n] - S2[a5, a1, a3, a1, SP[a2, a4], n] - 
    S2[a5, a1, a3, SP[a1, a2], a4, n] - S2[a2, n]*S2[a5, a1, a4, a1, a3, n] - 
    S2[a5, a1, a4, a1, SP[a2, a3], n] - S2[a5, a1, a4, SP[a1, a2], a3, n] - 
    2*S2[a5, a1, SP[a1, a2], a3, a4, n] - 
    2*S2[a5, a1, SP[a1, a2], a4, a3, n] - S2[a5, a1, SP[a2, a3], a1, a4, n] - 
    S2[a5, a1, SP[a2, a4], a1, a3, n] - 2*S2[a5, SP[a1, a2], a1, a3, a4, n] - 
    2*S2[a5, SP[a1, a2], a1, a4, a3, n] - S2[a5, SP[a1, a2], a3, a1, a4, n] - 
    S2[a5, SP[a1, a2], a4, a1, a3, n] - S2[SP[a1, a1], a2, a3, a4, a5, n] - 
    S2[SP[a1, a1], a2, a3, a5, a4, n] - S2[SP[a1, a1], a2, a4, a3, a5, n] - 
    S2[SP[a1, a1], a2, a4, a5, a3, n] - S2[SP[a1, a1], a2, a5, a3, a4, n] - 
    S2[SP[a1, a1], a2, a5, a4, a3, n] - S2[SP[a1, a1], a3, a2, a4, a5, n] - 
    S2[SP[a1, a1], a3, a2, a5, a4, n] - S2[SP[a1, a1], a3, a4, a2, a5, n] - 
    S2[SP[a1, a1], a3, a4, a5, a2, n] - S2[SP[a1, a1], a3, a5, a2, a4, n] - 
    S2[SP[a1, a1], a3, a5, a4, a2, n] - S2[SP[a1, a1], a4, a2, a3, a5, n] - 
    S2[SP[a1, a1], a4, a2, a5, a3, n] - S2[SP[a1, a1], a4, a3, a2, a5, n] - 
    S2[SP[a1, a1], a4, a3, a5, a2, n] - S2[SP[a1, a1], a4, a5, a2, a3, n] - 
    S2[SP[a1, a1], a4, a5, a3, a2, n] - S2[SP[a1, a1], a5, a2, a3, a4, n] - 
    S2[SP[a1, a1], a5, a2, a4, a3, n] - S2[SP[a1, a1], a5, a3, a2, a4, n] - 
    S2[SP[a1, a1], a5, a3, a4, a2, n] - S2[SP[a1, a1], a5, a4, a2, a3, n] - 
    S2[SP[a1, a1], a5, a4, a3, a2, n] + S2[SP[a1, a3], a5, a2, a1, a4, n] + 
    2*S2[SP[a1, a5], a1, a2, a3, a4, n] + 
    2*S2[SP[a1, a5], a1, a2, a4, a3, n] + 
    2*S2[SP[a1, a5], a1, a3, a2, a4, n] + 
    2*S2[SP[a1, a5], a1, a3, a4, a2, n] + 
    2*S2[SP[a1, a5], a1, a4, a2, a3, n] + 
    2*S2[SP[a1, a5], a1, a4, a3, a2, n] + S2[SP[a1, a5], a2, a1, a3, a4, n] + 
    S2[SP[a1, a5], a2, a1, a4, a3, n] + S2[SP[a1, a5], a2, a4, a1, a3, n] + 
    S2[SP[a1, a5], a3, a1, a2, a4, n] + S2[SP[a1, a5], a3, a1, a4, a2, n] + 
    S2[SP[a1, a5], a4, a1, a2, a3, n] + S2[SP[a1, a5], a4, a1, a3, a2, n] + 
    S2[SP[a1, a5], a4, a2, a1, a3, n] - 2*S2[SP[a2, a5], a1, a1, a3, a4, n] - 
    2*S2[SP[a2, a5], a1, a1, a4, a3, n] - S2[SP[a2, a5], a1, a3, a1, a4, n] - 
    S2[SP[a2, a5], a1, a4, a1, a3, n] + S2[a5, a1, a2, a1, a3, a4, n] + 
    S2[a5, a1, a2, a1, a4, a3, n] + S2[a5, a1, a2, a3, a1, a4, n] + 
    S2[a5, a1, a3, a2, a1, a4, n] + 2*S2[a5, a2, a1, a1, a3, a4, n] + 
    2*S2[a5, a2, a1, a1, a4, a3, n] + S2[a5, a2, a1, a3, a1, a4, n] + 
    S2[a5, a2, a1, a4, a1, a3, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a3_, a1_, a5_, a2_, a4_, a1_, n_] :> 
  S2[a1, a3, n]*S2[a1, a4, a2, a5, n] + S2[a1, a3, n]*S2[a1, a4, a5, a2, n] - 
    S2[a1, a4, SP[a1, a2], SP[a3, a5], n] - S2[a1, a4, SP[a1, a5], 
     SP[a2, a3], n] + S2[a1, a3, n]*S2[a1, a5, a2, a4, n] + 
    S2[a1, a3, n]*S2[a1, a5, a4, a2, n] - S2[a1, a5, SP[a1, a2], SP[a3, a4], 
     n] - S2[a1, a5, SP[a1, a4], SP[a2, a3], n] - S2[a1, SP[a1, a4], a2, 
     SP[a3, a5], n] - S2[a1, SP[a1, a4], a5, SP[a2, a3], n] - 
    S2[a1, SP[a1, a4], SP[a2, a3], a5, n] - S2[a1, SP[a1, a4], SP[a3, a5], 
     a2, n] - S2[a1, SP[a1, a5], a2, SP[a3, a4], n] - 
    S2[a1, SP[a1, a5], a4, SP[a2, a3], n] - S2[a1, SP[a1, a5], SP[a2, a3], 
     a4, n] - S2[a1, SP[a1, a5], SP[a3, a4], a2, n] - 
    S2[a1, a3, n]*S2[a2, a5, a1, a4, n] + S2[a2, a5, SP[a1, a1], SP[a3, a4], 
     n] + S2[a2, SP[a1, a5], a1, SP[a3, a4], n] + 
    S2[a2, SP[a1, a5], SP[a1, a3], a4, n] - S2[SP[a1, a1], a4, a2, 
     SP[a3, a5], n] - S2[SP[a1, a1], a4, a5, SP[a2, a3], n] - 
    S2[SP[a1, a1], a4, SP[a2, a3], a5, n] - S2[SP[a1, a1], a4, SP[a3, a5], 
     a2, n] - S2[SP[a1, a1], a5, a2, SP[a3, a4], n] - 
    S2[SP[a1, a1], a5, a4, SP[a2, a3], n] - S2[SP[a1, a1], a5, SP[a2, a3], 
     a4, n] - S2[SP[a1, a1], a5, SP[a3, a4], a2, n] - 
    S2[SP[a1, a1], SP[a3, a4], a2, a5, n] - S2[SP[a1, a1], SP[a3, a4], a5, 
     a2, n] - S2[SP[a1, a1], SP[a3, a5], a2, a4, n] - 
    S2[SP[a1, a1], SP[a3, a5], a4, a2, n] + S2[SP[a1, a2], a5, a1, 
     SP[a3, a4], n] + S2[SP[a1, a2], a5, SP[a1, a3], a4, n] + 
    S2[SP[a1, a2], SP[a3, a5], a1, a4, n] - 
    2*S2[a5, n]*S2[a1, a1, a3, a4, a2, n] - 
    2*S2[a1, a1, a3, a4, SP[a2, a5], n] - 
    2*S2[a1, a1, a3, SP[a4, a5], a2, n] - 
    2*S2[a5, n]*S2[a1, a1, a4, a2, a3, n] - 
    2*S2[a5, n]*S2[a1, a1, a4, a3, a2, n] - 
    2*S2[a1, a1, a4, a3, SP[a2, a5], n] + 
    2*S2[a1, a1, a4, a5, SP[a2, a3], n] + 
    2*S2[a1, a1, a4, SP[a2, a3], a5, n] - 
    2*S2[a1, a1, a4, SP[a2, a5], a3, n] - 
    2*S2[a3, n]*S2[a1, a1, a5, a2, a4, n] + 
    2*S2[a1, a1, a5, a4, SP[a2, a3], n] + 
    2*S2[a1, a1, a5, SP[a3, a4], a2, n] + 
    2*S2[a1, a1, SP[a3, a4], a2, a5, n] + 
    2*S2[a1, a1, SP[a3, a4], a5, a2, n] - 
    2*S2[a1, a1, SP[a4, a5], a2, a3, n] - 
    2*S2[a1, a1, SP[a4, a5], a3, a2, n] - S2[a1, a2, a5, a1, SP[a3, a4], n] - 
    S2[a1, a2, a5, SP[a1, a3], a4, n] - S2[a1, a2, SP[a3, a5], a1, a4, n] - 
    S2[a5, n]*S2[a1, a3, a1, a4, a2, n] - S2[a1, a3, a1, a4, SP[a2, a5], n] - 
    S2[a1, a3, a1, SP[a4, a5], a2, n] + S2[a2, n]*S2[a1, a3, a5, a1, a4, n] + 
    S2[a1, a3, a5, a1, SP[a2, a4], n] + S2[a1, a3, a5, SP[a1, a2], a4, n] - 
    S2[a1, a3, SP[a1, a5], a4, a2, n] + S2[a1, a3, SP[a2, a5], a1, a4, n] - 
    S2[a5, n]*S2[a1, a4, a1, a2, a3, n] - 
    S2[a5, n]*S2[a1, a4, a1, a3, a2, n] - S2[a1, a4, a1, a3, SP[a2, a5], n] + 
    S2[a1, a4, a1, a5, SP[a2, a3], n] + S2[a1, a4, a1, SP[a2, a3], a5, n] - 
    S2[a1, a4, a1, SP[a2, a5], a3, n] - S2[a5, n]*S2[a1, a4, a2, a1, a3, n] + 
    S2[a1, a4, a5, a1, SP[a2, a3], n] + S2[a1, a4, a5, SP[a1, a2], a3, n] + 
    S2[a1, a4, SP[a1, a2], a3, a5, n] + S2[a1, a4, SP[a1, a2], a5, a3, n] - 
    S2[a1, a4, SP[a2, a5], a1, a3, n] - S2[a3, n]*S2[a1, a5, a1, a2, a4, n] + 
    S2[a2, n]*S2[a1, a5, a1, a3, a4, n] + S2[a1, a5, a1, a3, SP[a2, a4], n] + 
    S2[a2, n]*S2[a1, a5, a1, a4, a3, n] + 
    2*S2[a1, a5, a1, a4, SP[a2, a3], n] + S2[a1, a5, a1, SP[a2, a3], a4, n] + 
    S2[a1, a5, a1, SP[a2, a4], a3, n] + S2[a1, a5, a1, SP[a3, a4], a2, n] - 
    S2[a3, n]*S2[a1, a5, a2, a1, a4, n] - S2[a1, a5, a2, SP[a1, a3], a4, n] + 
    S2[a1, a5, a2, SP[a1, a4], a3, n] + S2[a2, n]*S2[a1, a5, a3, a1, a4, n] + 
    S2[a1, a5, a3, a1, SP[a2, a4], n] + S2[a1, a5, a3, SP[a1, a2], a4, n] + 
    S2[a1, a5, a4, a1, SP[a2, a3], n] + S2[a1, a5, a4, SP[a1, a2], a3, n] + 
    2*S2[a1, a5, SP[a1, a2], a3, a4, n] + 
    2*S2[a1, a5, SP[a1, a2], a4, a3, n] - S2[a1, a5, SP[a1, a3], a2, a4, n] + 
    S2[a1, a5, SP[a1, a4], a2, a3, n] + S2[a1, a5, SP[a1, a4], a3, a2, n] + 
    S2[a1, SP[a1, a3], a4, a2, a5, n] + S2[a1, SP[a1, a3], a4, a5, a2, n] - 
    S2[a1, SP[a1, a3], a5, a2, a4, n] + S2[a1, SP[a1, a3], a5, a4, a2, n] + 
    S2[a1, SP[a1, a4], a2, a3, a5, n] + S2[a1, SP[a1, a4], a2, a5, a3, n] + 
    S2[a1, SP[a1, a4], a3, a2, a5, n] + S2[a1, SP[a1, a4], a3, a5, a2, n] + 
    S2[a1, SP[a1, a4], a5, a2, a3, n] + S2[a1, SP[a1, a4], a5, a3, a2, n] + 
    S2[a1, SP[a1, a5], a2, a3, a4, n] + S2[a1, SP[a1, a5], a2, a4, a3, n] + 
    S2[a1, SP[a1, a5], a3, a2, a4, n] - S2[a1, SP[a1, a5], a3, a4, a2, n] - 
    S2[a1, SP[a1, a5], a4, a2, a3, n] - S2[a1, SP[a1, a5], a4, a3, a2, n] + 
    S2[a1, SP[a2, a5], a1, a3, a4, n] + S2[a1, SP[a2, a5], a1, a4, a3, n] + 
    S2[a1, SP[a2, a5], a3, a1, a4, n] - S2[a1, SP[a3, a5], a1, a2, a4, n] - 
    S2[a1, SP[a3, a5], a1, a4, a2, n] - S2[a1, SP[a3, a5], a2, a1, a4, n] - 
    S2[a1, SP[a4, a5], a1, a2, a3, n] - S2[a1, SP[a4, a5], a1, a3, a2, n] - 
    S2[a1, SP[a4, a5], a2, a1, a3, n] - S2[a2, a1, a5, a1, SP[a3, a4], n] - 
    S2[a2, a1, a5, SP[a1, a3], a4, n] - S2[a2, a1, SP[a3, a5], a1, a4, n] - 
    2*S2[a2, a5, a1, a1, SP[a3, a4], n] - S2[a2, a5, a1, SP[a1, a3], a4, n] - 
    S2[a2, a5, a1, SP[a1, a4], a3, n] - S2[a2, a5, SP[a1, a1], a3, a4, n] - 
    S2[a2, a5, SP[a1, a1], a4, a3, n] - S2[a2, SP[a1, a5], a1, a3, a4, n] - 
    S2[a2, SP[a1, a5], a1, a4, a3, n] - S2[a2, SP[a1, a5], a3, a1, a4, n] + 
    S2[a1, n]*S2[a3, a1, a5, a2, a4, n] + S2[a3, a1, a5, a2, SP[a1, a4], n] + 
    S2[a3, a1, a5, SP[a1, a2], a4, n] + S2[a3, a1, SP[a1, a5], a2, a4, n] + 
    S2[a3, SP[a1, a1], a5, a2, a4, n] + 2*S2[a2, n]*
     S2[a5, a1, a1, a3, a4, n] + 2*S2[a5, a1, a1, a3, SP[a2, a4], n] + 
    2*S2[a2, n]*S2[a5, a1, a1, a4, a3, n] + 
    2*S2[a5, a1, a1, a4, SP[a2, a3], n] + 
    2*S2[a5, a1, a1, SP[a2, a3], a4, n] + 
    2*S2[a5, a1, a1, SP[a2, a4], a3, n] - 
    S2[a1, n]*S2[a5, a1, a2, a3, a4, n] - S2[a5, a1, a2, a3, SP[a1, a4], n] - 
    S2[a1, n]*S2[a5, a1, a2, a4, a3, n] - S2[a5, a1, a2, a4, SP[a1, a3], n] - 
    S2[a5, a1, a2, SP[a1, a3], a4, n] - S2[a5, a1, a2, SP[a1, a4], a3, n] + 
    S2[a2, n]*S2[a5, a1, a3, a1, a4, n] + S2[a5, a1, a3, a1, SP[a2, a4], n] - 
    S2[a1, n]*S2[a5, a1, a3, a2, a4, n] - S2[a5, a1, a3, a2, SP[a1, a4], n] + 
    S2[a2, n]*S2[a5, a1, a4, a1, a3, n] + S2[a5, a1, a4, a1, SP[a2, a3], n] + 
    S2[a5, a1, a4, SP[a1, a2], a3, n] + S2[a5, a1, SP[a1, a2], a3, a4, n] + 
    S2[a5, a1, SP[a1, a2], a4, a3, n] - S2[a5, a1, SP[a1, a3], a2, a4, n] + 
    S2[a5, a1, SP[a2, a3], a1, a4, n] + S2[a5, a1, SP[a2, a4], a1, a3, n] - 
    S2[a1, n]*S2[a5, a2, a1, a3, a4, n] - S2[a5, a2, a1, a3, SP[a1, a4], n] - 
    S2[a1, n]*S2[a5, a2, a1, a4, a3, n] - S2[a5, a2, a1, a4, SP[a1, a3], n] - 
    S2[a5, a2, a1, SP[a1, a3], a4, n] - S2[a5, a2, a1, SP[a1, a4], a3, n] - 
    S2[a1, n]*S2[a5, a2, a4, a1, a3, n] - S2[a5, a2, a4, a1, SP[a1, a3], n] - 
    S2[a5, a2, a4, SP[a1, a1], a3, n] - S2[a5, a2, SP[a1, a1], a3, a4, n] - 
    S2[a5, a2, SP[a1, a1], a4, a3, n] - S2[a5, a2, SP[a1, a4], a1, a3, n] - 
    S2[a5, SP[a1, a1], a2, a3, a4, n] - S2[a5, SP[a1, a1], a2, a4, a3, n] - 
    S2[a5, SP[a1, a1], a3, a2, a4, n] + S2[a5, SP[a1, a2], a1, a3, a4, n] + 
    S2[a5, SP[a1, a2], a1, a4, a3, n] + S2[a5, SP[a1, a2], a3, a1, a4, n] + 
    S2[SP[a1, a1], a3, a4, a2, a5, n] + S2[SP[a1, a1], a3, a4, a5, a2, n] + 
    S2[SP[a1, a1], a3, a5, a2, a4, n] + S2[SP[a1, a1], a3, a5, a4, a2, n] + 
    S2[SP[a1, a1], a4, a2, a3, a5, n] + S2[SP[a1, a1], a4, a2, a5, a3, n] + 
    S2[SP[a1, a1], a4, a3, a2, a5, n] + S2[SP[a1, a1], a4, a3, a5, a2, n] + 
    S2[SP[a1, a1], a4, a5, a2, a3, n] + S2[SP[a1, a1], a4, a5, a3, a2, n] + 
    S2[SP[a1, a1], a5, a2, a3, a4, n] + S2[SP[a1, a1], a5, a2, a4, a3, n] + 
    S2[SP[a1, a1], a5, a3, a2, a4, n] + S2[SP[a1, a1], a5, a3, a4, a2, n] + 
    S2[SP[a1, a1], a5, a4, a2, a3, n] + S2[SP[a1, a1], a5, a4, a3, a2, n] - 
    S2[SP[a1, a3], a1, a5, a2, a4, n] - S2[SP[a1, a3], a5, a1, a2, a4, n] - 
    S2[SP[a1, a3], a5, a2, a1, a4, n] - S2[SP[a1, a5], a1, a2, a3, a4, n] - 
    S2[SP[a1, a5], a1, a2, a4, a3, n] - S2[SP[a1, a5], a1, a3, a2, a4, n] - 
    2*S2[SP[a1, a5], a1, a3, a4, a2, n] - 
    2*S2[SP[a1, a5], a1, a4, a2, a3, n] - 
    2*S2[SP[a1, a5], a1, a4, a3, a2, n] - S2[SP[a1, a5], a2, a1, a3, a4, n] - 
    S2[SP[a1, a5], a2, a1, a4, a3, n] - S2[SP[a1, a5], a2, a4, a1, a3, n] - 
    S2[SP[a1, a5], a3, a1, a4, a2, n] - S2[SP[a1, a5], a4, a1, a2, a3, n] - 
    S2[SP[a1, a5], a4, a1, a3, a2, n] - S2[SP[a1, a5], a4, a2, a1, a3, n] + 
    2*S2[SP[a2, a5], a1, a1, a3, a4, n] + 
    2*S2[SP[a2, a5], a1, a1, a4, a3, n] + S2[SP[a2, a5], a1, a3, a1, a4, n] + 
    S2[SP[a2, a5], a1, a4, a1, a3, n] + S2[a5, a1, a2, a3, a4, a1, n] + 
    S2[a5, a1, a2, a4, a1, a3, n] + S2[a5, a1, a2, a4, a3, a1, n] + 
    S2[a5, a1, a3, a2, a4, a1, n] + S2[a5, a2, a1, a3, a4, a1, n] + 
    S2[a5, a2, a1, a4, a1, a3, n] + S2[a5, a2, a1, a4, a3, a1, n] + 
    2*S2[a5, a2, a4, a1, a1, a3, n] + S2[a5, a2, a4, a1, a3, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a3_, a1_, a5_, a4_, a1_, a2_, n_] :> 
  -(S2[a1, a3, n]*S2[a1, a2, a4, a5, n]) + S2[a1, a2, SP[a1, a4], SP[a3, a5], 
     n] - S2[a1, a2, n]*S2[a1, a3, a5, a4, n] + S2[a1, a3, SP[a1, a5], 
     SP[a2, a4], n] - S2[a1, a3, n]*S2[a1, a4, a2, a5, n] - 
    S2[a1, a3, n]*S2[a1, a4, a5, a2, n] + S2[a1, a4, SP[a1, a2], SP[a3, a5], 
     n] + S2[a1, a4, SP[a1, a5], SP[a2, a3], n] - 
    S2[a1, a2, n]*S2[a1, a5, a3, a4, n] - S2[a1, a2, n]*
     S2[a1, a5, a4, a3, n] + S2[a1, a5, SP[a1, a3], SP[a2, a4], n] + 
    S2[a1, a5, SP[a1, a4], SP[a2, a3], n] + S2[a1, SP[a1, a2], a4, 
     SP[a3, a5], n] + S2[a1, SP[a1, a2], SP[a3, a4], a5, n] + 
    S2[a1, SP[a1, a3], a5, SP[a2, a4], n] + S2[a1, SP[a1, a3], SP[a2, a5], 
     a4, n] + S2[a1, SP[a1, a4], a2, SP[a3, a5], n] + 
    S2[a1, SP[a1, a4], a5, SP[a2, a3], n] + S2[a1, SP[a1, a4], SP[a2, a3], 
     a5, n] + S2[a1, SP[a1, a4], SP[a3, a5], a2, n] + 
    S2[a1, SP[a1, a5], a3, SP[a2, a4], n] + S2[a1, SP[a1, a5], a4, 
     SP[a2, a3], n] + S2[a1, SP[a1, a5], SP[a2, a3], a4, n] + 
    S2[a1, SP[a1, a5], SP[a2, a4], a3, n] + S2[a1, a2, n]*
     S2[a4, a5, a1, a3, n] - S2[a4, a5, SP[a1, a1], SP[a2, a3], n] - 
    S2[a4, SP[a1, a5], a1, SP[a2, a3], n] - S2[a4, SP[a1, a5], SP[a1, a2], 
     a3, n] + S2[SP[a1, a1], a2, a4, SP[a3, a5], n] + 
    S2[SP[a1, a1], a2, SP[a3, a4], a5, n] + S2[SP[a1, a1], a3, a5, 
     SP[a2, a4], n] + S2[SP[a1, a1], a3, SP[a2, a5], a4, n] + 
    S2[SP[a1, a1], a4, a2, SP[a3, a5], n] + S2[SP[a1, a1], a4, a5, 
     SP[a2, a3], n] + S2[SP[a1, a1], a4, SP[a2, a3], a5, n] + 
    S2[SP[a1, a1], a4, SP[a3, a5], a2, n] + S2[SP[a1, a1], a5, a3, 
     SP[a2, a4], n] + S2[SP[a1, a1], a5, a4, SP[a2, a3], n] + 
    S2[SP[a1, a1], a5, SP[a2, a3], a4, n] + S2[SP[a1, a1], a5, SP[a2, a4], 
     a3, n] + S2[SP[a1, a1], SP[a2, a3], a4, a5, n] + 
    S2[SP[a1, a1], SP[a2, a3], a5, a4, n] + S2[SP[a1, a1], SP[a2, a5], a3, 
     a4, n] + S2[SP[a1, a1], SP[a2, a5], a4, a3, n] + 
    S2[SP[a1, a1], SP[a3, a4], a2, a5, n] + S2[SP[a1, a1], SP[a3, a4], a5, 
     a2, n] - S2[SP[a1, a4], a5, a1, SP[a2, a3], n] - 
    S2[SP[a1, a4], a5, SP[a1, a2], a3, n] - S2[SP[a1, a4], SP[a2, a5], a1, 
     a3, n] + 2*S2[a5, n]*S2[a1, a1, a2, a3, a4, n] + 
    2*S2[a1, a1, a2, a3, SP[a4, a5], n] + 
    2*S2[a5, n]*S2[a1, a1, a2, a4, a3, n] - 
    2*S2[a1, a1, a2, SP[a3, a4], a5, n] + 
    2*S2[a1, a1, a2, SP[a3, a5], a4, n] + 
    2*S2[a1, a1, a2, SP[a4, a5], a3, n] + 
    2*S2[a5, n]*S2[a1, a1, a3, a2, a4, n] + 
    2*S2[a1, a1, a3, a2, SP[a4, a5], n] + 
    2*S2[a5, n]*S2[a1, a1, a3, a4, a2, n] + 
    2*S2[a1, a1, a3, a4, SP[a2, a5], n] - 
    2*S2[a1, a1, a3, a5, SP[a2, a4], n] + 
    2*S2[a1, a1, a3, SP[a4, a5], a2, n] + 
    2*S2[a5, n]*S2[a1, a1, a4, a2, a3, n] + 
    2*S2[a5, n]*S2[a1, a1, a4, a3, a2, n] + 
    2*S2[a1, a1, a4, a3, SP[a2, a5], n] - 
    2*S2[a1, a1, a4, a5, SP[a2, a3], n] - 
    2*S2[a1, a1, a4, SP[a2, a3], a5, n] + 
    2*S2[a1, a1, a4, SP[a2, a5], a3, n] - 
    2*S2[a1, a1, a5, a3, SP[a2, a4], n] - 
    2*S2[a1, a1, a5, a4, SP[a2, a3], n] - 
    2*S2[a1, a1, a5, SP[a2, a3], a4, n] - 
    2*S2[a1, a1, a5, SP[a2, a4], a3, n] - 
    2*S2[a1, a1, SP[a2, a3], a4, a5, n] - 
    2*S2[a1, a1, SP[a2, a3], a5, a4, n] - 
    2*S2[a1, a1, SP[a3, a4], a2, a5, n] - 
    2*S2[a1, a1, SP[a3, a4], a5, a2, n] + 
    2*S2[a1, a1, SP[a3, a5], a2, a4, n] + 
    2*S2[a1, a1, SP[a3, a5], a4, a2, n] + 
    2*S2[a1, a1, SP[a4, a5], a2, a3, n] + 
    2*S2[a1, a1, SP[a4, a5], a3, a2, n] + 
    S2[a5, n]*S2[a1, a2, a1, a3, a4, n] + S2[a1, a2, a1, a3, SP[a4, a5], n] + 
    S2[a5, n]*S2[a1, a2, a1, a4, a3, n] - S2[a1, a2, a1, SP[a3, a4], a5, n] + 
    S2[a1, a2, a1, SP[a3, a5], a4, n] + S2[a1, a2, a1, SP[a4, a5], a3, n] + 
    S2[a5, n]*S2[a1, a2, a4, a1, a3, n] - 
    S2[a4, n]*S2[a1, a2, a5, a1, a3, n] - S2[a1, a2, a5, a1, SP[a3, a4], n] - 
    S2[a1, a2, a5, SP[a1, a4], a3, n] - S2[a1, a2, SP[a1, a4], a3, a5, n] - 
    S2[a1, a2, SP[a1, a4], a5, a3, n] + S2[a1, a2, SP[a1, a5], a3, a4, n] + 
    S2[a1, a2, SP[a1, a5], a4, a3, n] + S2[a5, n]*S2[a1, a3, a1, a2, a4, n] + 
    S2[a1, a3, a1, a2, SP[a4, a5], n] + S2[a5, n]*S2[a1, a3, a1, a4, a2, n] + 
    S2[a1, a3, a1, a4, SP[a2, a5], n] - S2[a1, a3, a1, a5, SP[a2, a4], n] + 
    S2[a1, a3, a1, SP[a4, a5], a2, n] - S2[a1, a3, a5, a1, SP[a2, a4], n] - 
    S2[a1, a3, a5, SP[a1, a4], a2, n] + S2[a5, n]*S2[a1, a4, a1, a2, a3, n] + 
    S2[a5, n]*S2[a1, a4, a1, a3, a2, n] + S2[a1, a4, a1, a3, SP[a2, a5], n] - 
    S2[a1, a4, a1, a5, SP[a2, a3], n] - S2[a1, a4, a1, SP[a2, a3], a5, n] + 
    S2[a1, a4, a1, SP[a2, a5], a3, n] + S2[a5, n]*S2[a1, a4, a2, a1, a3, n] - 
    S2[a1, a4, SP[a1, a2], a3, a5, n] - S2[a1, a4, SP[a1, a2], a5, a3, n] + 
    2*S2[a1, a4, SP[a2, a5], a1, a3, n] - 
    S2[a4, n]*S2[a1, a5, a1, a2, a3, n] - S2[a1, a5, a1, a2, SP[a3, a4], n] - 
    S2[a4, n]*S2[a1, a5, a1, a3, a2, n] - 
    2*S2[a1, a5, a1, a3, SP[a2, a4], n] - S2[a1, a5, a1, a4, SP[a2, a3], n] - 
    S2[a1, a5, a1, SP[a2, a3], a4, n] - 2*S2[a1, a5, a1, SP[a2, a4], a3, n] - 
    S2[a1, a5, a1, SP[a3, a4], a2, n] - S2[a4, n]*S2[a1, a5, a2, a1, a3, n] - 
    S2[a1, a5, a2, a1, SP[a3, a4], n] - S2[a1, a5, a2, SP[a1, a4], a3, n] - 
    S2[a1, a5, a3, a1, SP[a2, a4], n] - S2[a1, a5, a3, SP[a1, a4], a2, n] + 
    S2[a3, n]*S2[a1, a5, a4, a1, a2, n] - S2[a1, a5, SP[a1, a3], a2, a4, n] - 
    S2[a1, a5, SP[a1, a3], a4, a2, n] - 2*S2[a1, a5, SP[a1, a4], a2, a3, n] - 
    2*S2[a1, a5, SP[a1, a4], a3, a2, n] - S2[a1, a5, SP[a2, a4], a1, a3, n] + 
    S2[a1, a5, SP[a3, a4], a1, a2, n] - S2[a1, SP[a1, a2], a3, a4, a5, n] - 
    S2[a1, SP[a1, a2], a3, a5, a4, n] - S2[a1, SP[a1, a2], a4, a3, a5, n] - 
    S2[a1, SP[a1, a2], a4, a5, a3, n] - S2[a1, SP[a1, a2], a5, a3, a4, n] - 
    S2[a1, SP[a1, a2], a5, a4, a3, n] - S2[a1, SP[a1, a3], a2, a4, a5, n] - 
    S2[a1, SP[a1, a3], a2, a5, a4, n] - S2[a1, SP[a1, a3], a4, a2, a5, n] - 
    S2[a1, SP[a1, a3], a4, a5, a2, n] - S2[a1, SP[a1, a3], a5, a2, a4, n] - 
    S2[a1, SP[a1, a3], a5, a4, a2, n] - S2[a1, SP[a1, a4], a2, a3, a5, n] - 
    S2[a1, SP[a1, a4], a2, a5, a3, n] - S2[a1, SP[a1, a4], a3, a2, a5, n] - 
    S2[a1, SP[a1, a4], a3, a5, a2, n] - S2[a1, SP[a1, a4], a5, a2, a3, n] - 
    S2[a1, SP[a1, a4], a5, a3, a2, n] + S2[a1, SP[a1, a5], a2, a3, a4, n] + 
    S2[a1, SP[a1, a5], a2, a4, a3, n] + S2[a1, SP[a1, a5], a3, a2, a4, n] + 
    S2[a1, SP[a1, a5], a3, a4, a2, n] + S2[a1, SP[a1, a5], a4, a2, a3, n] + 
    S2[a1, SP[a1, a5], a4, a3, a2, n] + S2[a1, SP[a2, a5], a1, a3, a4, n] + 
    S2[a1, SP[a2, a5], a1, a4, a3, n] + S2[a1, SP[a2, a5], a4, a1, a3, n] + 
    S2[a1, SP[a3, a5], a1, a2, a4, n] + S2[a1, SP[a3, a5], a1, a4, a2, n] + 
    S2[a1, SP[a3, a5], a4, a1, a2, n] + S2[a4, a1, a5, a1, SP[a2, a3], n] + 
    S2[a4, a1, a5, SP[a1, a2], a3, n] + S2[a4, a1, SP[a2, a5], a1, a3, n] + 
    2*S2[a4, a5, a1, a1, SP[a2, a3], n] + S2[a4, a5, a1, SP[a1, a2], a3, n] + 
    S2[a4, a5, a1, SP[a1, a3], a2, n] + S2[a4, a5, SP[a1, a1], a2, a3, n] + 
    S2[a4, a5, SP[a1, a1], a3, a2, n] + S2[a4, SP[a1, a5], a1, a2, a3, n] + 
    S2[a4, SP[a1, a5], a1, a3, a2, n] + S2[a4, SP[a1, a5], a2, a1, a3, n] - 
    2*S2[a4, n]*S2[a5, a1, a1, a2, a3, n] - 
    2*S2[a5, a1, a1, a2, SP[a3, a4], n] - 
    2*S2[a4, n]*S2[a5, a1, a1, a3, a2, n] - 
    2*S2[a5, a1, a1, a3, SP[a2, a4], n] - 
    2*S2[a5, a1, a1, SP[a2, a4], a3, n] - 
    2*S2[a5, a1, a1, SP[a3, a4], a2, n] - 
    S2[a4, n]*S2[a5, a1, a2, a1, a3, n] - S2[a5, a1, a2, a1, SP[a3, a4], n] - 
    S2[a5, a1, a2, SP[a1, a4], a3, n] - S2[a4, n]*S2[a5, a1, a3, a1, a2, n] - 
    S2[a5, a1, a3, a1, SP[a2, a4], n] - S2[a5, a1, a3, SP[a1, a4], a2, n] - 
    2*S2[a5, a1, SP[a1, a4], a2, a3, n] - 
    2*S2[a5, a1, SP[a1, a4], a3, a2, n] - S2[a5, a1, SP[a2, a4], a1, a3, n] - 
    S2[a5, a1, SP[a3, a4], a1, a2, n] - 2*S2[a5, SP[a1, a4], a1, a2, a3, n] - 
    2*S2[a5, SP[a1, a4], a1, a3, a2, n] - S2[a5, SP[a1, a4], a2, a1, a3, n] - 
    S2[a5, SP[a1, a4], a3, a1, a2, n] - S2[SP[a1, a1], a2, a3, a4, a5, n] - 
    S2[SP[a1, a1], a2, a3, a5, a4, n] - S2[SP[a1, a1], a2, a4, a3, a5, n] - 
    S2[SP[a1, a1], a2, a4, a5, a3, n] - S2[SP[a1, a1], a2, a5, a3, a4, n] - 
    S2[SP[a1, a1], a2, a5, a4, a3, n] - S2[SP[a1, a1], a3, a2, a4, a5, n] - 
    S2[SP[a1, a1], a3, a2, a5, a4, n] - S2[SP[a1, a1], a3, a4, a2, a5, n] - 
    S2[SP[a1, a1], a3, a4, a5, a2, n] - S2[SP[a1, a1], a3, a5, a2, a4, n] - 
    S2[SP[a1, a1], a3, a5, a4, a2, n] - S2[SP[a1, a1], a4, a2, a3, a5, n] - 
    S2[SP[a1, a1], a4, a2, a5, a3, n] - S2[SP[a1, a1], a4, a3, a2, a5, n] - 
    S2[SP[a1, a1], a4, a3, a5, a2, n] - S2[SP[a1, a1], a4, a5, a2, a3, n] - 
    S2[SP[a1, a1], a4, a5, a3, a2, n] - S2[SP[a1, a1], a5, a2, a3, a4, n] - 
    S2[SP[a1, a1], a5, a2, a4, a3, n] - S2[SP[a1, a1], a5, a3, a2, a4, n] - 
    S2[SP[a1, a1], a5, a3, a4, a2, n] - S2[SP[a1, a1], a5, a4, a2, a3, n] - 
    S2[SP[a1, a1], a5, a4, a3, a2, n] + S2[SP[a1, a3], a5, a4, a1, a2, n] + 
    2*S2[SP[a1, a5], a1, a2, a3, a4, n] + 
    2*S2[SP[a1, a5], a1, a2, a4, a3, n] + 
    2*S2[SP[a1, a5], a1, a3, a2, a4, n] + 
    2*S2[SP[a1, a5], a1, a3, a4, a2, n] + 
    2*S2[SP[a1, a5], a1, a4, a2, a3, n] + 
    2*S2[SP[a1, a5], a1, a4, a3, a2, n] + S2[SP[a1, a5], a2, a1, a3, a4, n] + 
    S2[SP[a1, a5], a2, a1, a4, a3, n] + S2[SP[a1, a5], a2, a4, a1, a3, n] + 
    S2[SP[a1, a5], a3, a1, a2, a4, n] + S2[SP[a1, a5], a3, a1, a4, a2, n] + 
    S2[SP[a1, a5], a4, a1, a2, a3, n] + S2[SP[a1, a5], a4, a1, a3, a2, n] + 
    S2[SP[a1, a5], a4, a2, a1, a3, n] - 2*S2[SP[a4, a5], a1, a1, a2, a3, n] - 
    2*S2[SP[a4, a5], a1, a1, a3, a2, n] - S2[SP[a4, a5], a1, a2, a1, a3, n] - 
    S2[SP[a4, a5], a1, a3, a1, a2, n] + S2[a5, a1, a3, a4, a1, a2, n] + 
    S2[a5, a1, a4, a1, a2, a3, n] + S2[a5, a1, a4, a1, a3, a2, n] + 
    S2[a5, a1, a4, a3, a1, a2, n] + 2*S2[a5, a4, a1, a1, a2, a3, n] + 
    2*S2[a5, a4, a1, a1, a3, a2, n] + S2[a5, a4, a1, a2, a1, a3, n] + 
    S2[a5, a4, a1, a3, a1, a2, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a3_, a1_, a5_, a4_, a2_, a1_, n_] :> 
  S2[a1, a3, n]*S2[a1, a2, a4, a5, n] - S2[a1, a2, SP[a1, a4], SP[a3, a5], 
     n] + S2[a1, a2, n]*S2[a1, a3, a5, a4, n] - S2[a1, a3, SP[a1, a5], 
     SP[a2, a4], n] + S2[a1, a2, n]*S2[a1, a5, a3, a4, n] + 
    S2[a1, a2, n]*S2[a1, a5, a4, a3, n] - S2[a1, a5, SP[a1, a3], SP[a2, a4], 
     n] - S2[a1, a5, SP[a1, a4], SP[a2, a3], n] - S2[a1, SP[a1, a2], a4, 
     SP[a3, a5], n] - S2[a1, SP[a1, a2], SP[a3, a4], a5, n] - 
    S2[a1, SP[a1, a3], a5, SP[a2, a4], n] - S2[a1, SP[a1, a3], SP[a2, a5], 
     a4, n] - S2[a1, SP[a1, a5], a3, SP[a2, a4], n] - 
    S2[a1, SP[a1, a5], a4, SP[a2, a3], n] - S2[a1, SP[a1, a5], SP[a2, a3], 
     a4, n] - S2[a1, SP[a1, a5], SP[a2, a4], a3, n] - 
    S2[a1, a2, n]*S2[a4, a5, a1, a3, n] + S2[a4, a5, SP[a1, a1], SP[a2, a3], 
     n] + S2[a4, SP[a1, a5], a1, SP[a2, a3], n] + 
    S2[a4, SP[a1, a5], SP[a1, a2], a3, n] - S2[SP[a1, a1], a2, a4, 
     SP[a3, a5], n] - S2[SP[a1, a1], a2, SP[a3, a4], a5, n] - 
    S2[SP[a1, a1], a3, a5, SP[a2, a4], n] - S2[SP[a1, a1], a3, SP[a2, a5], 
     a4, n] - S2[SP[a1, a1], a5, a3, SP[a2, a4], n] - 
    S2[SP[a1, a1], a5, a4, SP[a2, a3], n] - S2[SP[a1, a1], a5, SP[a2, a3], 
     a4, n] - S2[SP[a1, a1], a5, SP[a2, a4], a3, n] - 
    S2[SP[a1, a1], SP[a2, a3], a4, a5, n] - S2[SP[a1, a1], SP[a2, a3], a5, 
     a4, n] - S2[SP[a1, a1], SP[a2, a5], a3, a4, n] - 
    S2[SP[a1, a1], SP[a2, a5], a4, a3, n] + S2[SP[a1, a4], a5, a1, 
     SP[a2, a3], n] + S2[SP[a1, a4], a5, SP[a1, a2], a3, n] + 
    S2[SP[a1, a4], SP[a2, a5], a1, a3, n] - 
    2*S2[a5, n]*S2[a1, a1, a2, a3, a4, n] - 
    2*S2[a1, a1, a2, a3, SP[a4, a5], n] - 
    2*S2[a5, n]*S2[a1, a1, a2, a4, a3, n] + 
    2*S2[a1, a1, a2, SP[a3, a4], a5, n] - 
    2*S2[a1, a1, a2, SP[a3, a5], a4, n] - 
    2*S2[a1, a1, a2, SP[a4, a5], a3, n] - 
    2*S2[a5, n]*S2[a1, a1, a3, a2, a4, n] - 
    2*S2[a1, a1, a3, a2, SP[a4, a5], n] + 
    2*S2[a1, a1, a3, a5, SP[a2, a4], n] + 
    2*S2[a1, a1, a5, a3, SP[a2, a4], n] - 
    2*S2[a3, n]*S2[a1, a1, a5, a4, a2, n] + 
    2*S2[a1, a1, a5, SP[a2, a3], a4, n] + 
    2*S2[a1, a1, a5, SP[a2, a4], a3, n] - 
    2*S2[a1, a1, a5, SP[a3, a4], a2, n] + 
    2*S2[a1, a1, SP[a2, a3], a4, a5, n] + 
    2*S2[a1, a1, SP[a2, a3], a5, a4, n] - 
    2*S2[a1, a1, SP[a3, a5], a2, a4, n] - 
    2*S2[a1, a1, SP[a3, a5], a4, a2, n] - 
    S2[a5, n]*S2[a1, a2, a1, a3, a4, n] - S2[a1, a2, a1, a3, SP[a4, a5], n] - 
    S2[a5, n]*S2[a1, a2, a1, a4, a3, n] + S2[a1, a2, a1, SP[a3, a4], a5, n] - 
    S2[a1, a2, a1, SP[a3, a5], a4, n] - S2[a1, a2, a1, SP[a4, a5], a3, n] - 
    S2[a5, n]*S2[a1, a2, a4, a1, a3, n] + 
    S2[a4, n]*S2[a1, a2, a5, a1, a3, n] + S2[a1, a2, a5, a1, SP[a3, a4], n] + 
    S2[a1, a2, a5, SP[a1, a4], a3, n] + S2[a1, a2, SP[a1, a4], a3, a5, n] + 
    S2[a1, a2, SP[a1, a4], a5, a3, n] - S2[a1, a2, SP[a1, a5], a3, a4, n] - 
    S2[a1, a2, SP[a1, a5], a4, a3, n] - S2[a5, n]*S2[a1, a3, a1, a2, a4, n] - 
    S2[a1, a3, a1, a2, SP[a4, a5], n] + S2[a1, a3, a1, a5, SP[a2, a4], n] + 
    S2[a1, a3, a5, a1, SP[a2, a4], n] + S2[a1, a3, a5, SP[a1, a4], a2, n] + 
    S2[a1, a3, SP[a1, a5], a4, a2, n] - S2[a1, a4, a5, a1, SP[a2, a3], n] - 
    S2[a1, a4, a5, SP[a1, a2], a3, n] - S2[a1, a4, SP[a2, a5], a1, a3, n] + 
    S2[a4, n]*S2[a1, a5, a1, a2, a3, n] + S2[a1, a5, a1, a2, SP[a3, a4], n] + 
    S2[a4, n]*S2[a1, a5, a1, a3, a2, n] + 
    2*S2[a1, a5, a1, a3, SP[a2, a4], n] - 
    S2[a3, n]*S2[a1, a5, a1, a4, a2, n] + S2[a1, a5, a1, SP[a2, a3], a4, n] + 
    2*S2[a1, a5, a1, SP[a2, a4], a3, n] + 
    S2[a4, n]*S2[a1, a5, a2, a1, a3, n] + S2[a1, a5, a2, a1, SP[a3, a4], n] + 
    S2[a1, a5, a2, SP[a1, a4], a3, n] + S2[a1, a5, a3, a1, SP[a2, a4], n] + 
    S2[a1, a5, a3, SP[a1, a4], a2, n] - S2[a3, n]*S2[a1, a5, a4, a1, a2, n] + 
    S2[a1, a5, SP[a1, a3], a2, a4, n] + 2*S2[a1, a5, SP[a1, a4], a2, a3, n] + 
    2*S2[a1, a5, SP[a1, a4], a3, a2, n] + S2[a1, a5, SP[a2, a4], a1, a3, n] - 
    S2[a1, a5, SP[a3, a4], a1, a2, n] + S2[a1, SP[a1, a2], a3, a4, a5, n] + 
    S2[a1, SP[a1, a2], a3, a5, a4, n] + S2[a1, SP[a1, a2], a4, a3, a5, n] + 
    S2[a1, SP[a1, a2], a4, a5, a3, n] + S2[a1, SP[a1, a2], a5, a3, a4, n] + 
    S2[a1, SP[a1, a2], a5, a4, a3, n] + S2[a1, SP[a1, a3], a2, a4, a5, n] + 
    S2[a1, SP[a1, a3], a2, a5, a4, n] + S2[a1, SP[a1, a3], a5, a2, a4, n] - 
    S2[a1, SP[a1, a3], a5, a4, a2, n] - S2[a1, SP[a1, a5], a2, a3, a4, n] - 
    S2[a1, SP[a1, a5], a2, a4, a3, n] - S2[a1, SP[a1, a5], a3, a2, a4, n] + 
    S2[a1, SP[a1, a5], a3, a4, a2, n] + S2[a1, SP[a1, a5], a4, a2, a3, n] + 
    S2[a1, SP[a1, a5], a4, a3, a2, n] - S2[a1, SP[a2, a5], a1, a3, a4, n] - 
    S2[a1, SP[a2, a5], a1, a4, a3, n] - S2[a1, SP[a2, a5], a4, a1, a3, n] - 
    S2[a1, SP[a3, a5], a1, a2, a4, n] - S2[a1, SP[a3, a5], a1, a4, a2, n] - 
    S2[a1, SP[a3, a5], a4, a1, a2, n] + S2[a1, SP[a4, a5], a1, a2, a3, n] + 
    S2[a1, SP[a4, a5], a1, a3, a2, n] + S2[a1, SP[a4, a5], a2, a1, a3, n] + 
    S2[a1, n]*S2[a3, a1, a5, a4, a2, n] + S2[a3, a1, a5, a4, SP[a1, a2], n] + 
    S2[a3, a1, a5, SP[a1, a4], a2, n] + S2[a3, a1, SP[a1, a5], a4, a2, n] + 
    S2[a3, SP[a1, a1], a5, a4, a2, n] - S2[a4, a1, a5, a1, SP[a2, a3], n] - 
    S2[a4, a1, a5, SP[a1, a2], a3, n] - S2[a4, a1, SP[a2, a5], a1, a3, n] - 
    2*S2[a4, a5, a1, a1, SP[a2, a3], n] - S2[a4, a5, a1, SP[a1, a2], a3, n] - 
    S2[a4, a5, a1, SP[a1, a3], a2, n] - S2[a4, a5, SP[a1, a1], a2, a3, n] - 
    S2[a4, a5, SP[a1, a1], a3, a2, n] - S2[a4, SP[a1, a5], a1, a2, a3, n] - 
    S2[a4, SP[a1, a5], a1, a3, a2, n] - S2[a4, SP[a1, a5], a2, a1, a3, n] + 
    2*S2[a4, n]*S2[a5, a1, a1, a2, a3, n] + 
    2*S2[a5, a1, a1, a2, SP[a3, a4], n] + 
    2*S2[a4, n]*S2[a5, a1, a1, a3, a2, n] + 
    2*S2[a5, a1, a1, a3, SP[a2, a4], n] + 
    2*S2[a5, a1, a1, SP[a2, a4], a3, n] + 
    2*S2[a5, a1, a1, SP[a3, a4], a2, n] + 
    S2[a4, n]*S2[a5, a1, a2, a1, a3, n] + S2[a5, a1, a2, a1, SP[a3, a4], n] + 
    S2[a5, a1, a2, SP[a1, a4], a3, n] + S2[a4, n]*S2[a5, a1, a3, a1, a2, n] + 
    S2[a5, a1, a3, a1, SP[a2, a4], n] - S2[a1, n]*S2[a5, a1, a3, a4, a2, n] - 
    S2[a5, a1, a3, a4, SP[a1, a2], n] - S2[a1, n]*S2[a5, a1, a4, a2, a3, n] - 
    S2[a5, a1, a4, a2, SP[a1, a3], n] - S2[a1, n]*S2[a5, a1, a4, a3, a2, n] - 
    S2[a5, a1, a4, a3, SP[a1, a2], n] - S2[a5, a1, a4, SP[a1, a2], a3, n] - 
    S2[a5, a1, a4, SP[a1, a3], a2, n] - S2[a5, a1, SP[a1, a3], a4, a2, n] + 
    S2[a5, a1, SP[a1, a4], a2, a3, n] + S2[a5, a1, SP[a1, a4], a3, a2, n] + 
    S2[a5, a1, SP[a2, a4], a1, a3, n] + S2[a5, a1, SP[a3, a4], a1, a2, n] - 
    S2[a1, n]*S2[a5, a4, a1, a2, a3, n] - S2[a5, a4, a1, a2, SP[a1, a3], n] - 
    S2[a1, n]*S2[a5, a4, a1, a3, a2, n] - S2[a5, a4, a1, a3, SP[a1, a2], n] - 
    S2[a5, a4, a1, SP[a1, a2], a3, n] - S2[a5, a4, a1, SP[a1, a3], a2, n] - 
    S2[a1, n]*S2[a5, a4, a2, a1, a3, n] - S2[a5, a4, a2, a1, SP[a1, a3], n] - 
    S2[a5, a4, a2, SP[a1, a1], a3, n] - S2[a5, a4, SP[a1, a1], a2, a3, n] - 
    S2[a5, a4, SP[a1, a1], a3, a2, n] - S2[a5, a4, SP[a1, a2], a1, a3, n] - 
    S2[a5, SP[a1, a1], a3, a4, a2, n] - S2[a5, SP[a1, a1], a4, a2, a3, n] - 
    S2[a5, SP[a1, a1], a4, a3, a2, n] + S2[a5, SP[a1, a4], a1, a2, a3, n] + 
    S2[a5, SP[a1, a4], a1, a3, a2, n] + S2[a5, SP[a1, a4], a3, a1, a2, n] + 
    S2[SP[a1, a1], a2, a3, a4, a5, n] + S2[SP[a1, a1], a2, a3, a5, a4, n] + 
    S2[SP[a1, a1], a2, a4, a3, a5, n] + S2[SP[a1, a1], a2, a4, a5, a3, n] + 
    S2[SP[a1, a1], a2, a5, a3, a4, n] + S2[SP[a1, a1], a2, a5, a4, a3, n] + 
    S2[SP[a1, a1], a3, a2, a4, a5, n] + S2[SP[a1, a1], a3, a2, a5, a4, n] + 
    S2[SP[a1, a1], a3, a5, a2, a4, n] + S2[SP[a1, a1], a3, a5, a4, a2, n] + 
    S2[SP[a1, a1], a5, a2, a3, a4, n] + S2[SP[a1, a1], a5, a2, a4, a3, n] + 
    S2[SP[a1, a1], a5, a3, a2, a4, n] + S2[SP[a1, a1], a5, a3, a4, a2, n] + 
    S2[SP[a1, a1], a5, a4, a2, a3, n] + S2[SP[a1, a1], a5, a4, a3, a2, n] - 
    S2[SP[a1, a3], a1, a5, a4, a2, n] - S2[SP[a1, a3], a5, a1, a4, a2, n] - 
    S2[SP[a1, a3], a5, a4, a1, a2, n] - 2*S2[SP[a1, a5], a1, a2, a3, a4, n] - 
    2*S2[SP[a1, a5], a1, a2, a4, a3, n] - 
    2*S2[SP[a1, a5], a1, a3, a2, a4, n] - S2[SP[a1, a5], a1, a3, a4, a2, n] - 
    S2[SP[a1, a5], a1, a4, a2, a3, n] - S2[SP[a1, a5], a1, a4, a3, a2, n] - 
    S2[SP[a1, a5], a2, a1, a3, a4, n] - S2[SP[a1, a5], a2, a1, a4, a3, n] - 
    S2[SP[a1, a5], a2, a4, a1, a3, n] - S2[SP[a1, a5], a3, a1, a2, a4, n] - 
    S2[SP[a1, a5], a4, a1, a2, a3, n] - S2[SP[a1, a5], a4, a1, a3, a2, n] - 
    S2[SP[a1, a5], a4, a2, a1, a3, n] + 2*S2[SP[a4, a5], a1, a1, a2, a3, n] + 
    2*S2[SP[a4, a5], a1, a1, a3, a2, n] + S2[SP[a4, a5], a1, a2, a1, a3, n] + 
    S2[SP[a4, a5], a1, a3, a1, a2, n] + S2[a5, a1, a3, a4, a2, a1, n] + 
    S2[a5, a1, a4, a2, a1, a3, n] + S2[a5, a1, a4, a2, a3, a1, n] + 
    S2[a5, a1, a4, a3, a2, a1, n] + S2[a5, a4, a1, a2, a1, a3, n] + 
    S2[a5, a4, a1, a2, a3, a1, n] + S2[a5, a4, a1, a3, a2, a1, n] + 
    2*S2[a5, a4, a2, a1, a1, a3, n] + S2[a5, a4, a2, a1, a3, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a3_, a2_, a1_, a1_, a4_, a5_, n_] :> 
  S2[a1, a2, a3, n]*S2[a1, a4, a5, n] + S2[SP[a1, a1], SP[a2, a4], 
     SP[a3, a5], n] - S2[a4, a5, n]*S2[a1, a1, a2, a3, n] - 
    S2[a2, a3, n]*S2[a1, a1, a4, a5, n] - S2[SP[a1, a1], a2, a4, SP[a3, a5], 
     n] - S2[SP[a1, a1], a2, SP[a3, a4], a5, n] - S2[SP[a1, a1], a4, a2, 
     SP[a3, a5], n] - S2[SP[a1, a1], a4, SP[a2, a5], a3, n] - 
    S2[SP[a1, a1], SP[a2, a4], a3, a5, n] - S2[SP[a1, a1], SP[a2, a4], a5, 
     a3, n] + S2[SP[a1, a2], a1, a4, SP[a3, a5], n] + 
    S2[SP[a1, a2], a1, SP[a3, a4], a5, n] + S2[SP[a1, a2], SP[a1, a3], a4, 
     a5, n] + S2[SP[a1, a4], a1, a2, SP[a3, a5], n] + 
    S2[SP[a1, a4], a1, SP[a2, a5], a3, n] + S2[SP[a1, a4], SP[a1, a5], a2, 
     a3, n] - S2[a5, n]*S2[a1, a1, a2, a3, a4, n] + 
    S2[a4, n]*S2[a1, a1, a2, a3, a5, n] - 
    S2[a5, n]*S2[a1, a1, a2, a4, a3, n] - 
    S2[a3, n]*S2[a1, a1, a2, a4, a5, n] - 
    2*S2[a1, a1, a2, a4, SP[a3, a5], n] + 
    S2[a4, n]*S2[a1, a1, a2, a5, a3, n] + S2[a1, a1, a2, a5, SP[a3, a4], n] - 
    S2[a1, a1, a2, SP[a3, a5], a4, n] + S2[a2, n]*S2[a1, a1, a3, a4, a5, n] + 
    S2[a1, a1, a3, a4, SP[a2, a5], n] + S2[a1, a1, a3, SP[a2, a4], a5, n] - 
    S2[a5, n]*S2[a1, a1, a4, a2, a3, n] - 
    S2[a3, n]*S2[a1, a1, a4, a2, a5, n] - 
    2*S2[a1, a1, a4, a2, SP[a3, a5], n] + 
    S2[a2, n]*S2[a1, a1, a4, a3, a5, n] + S2[a1, a1, a4, a3, SP[a2, a5], n] - 
    S2[a3, n]*S2[a1, a1, a4, a5, a2, n] + 
    S2[a2, n]*S2[a1, a1, a4, a5, a3, n] - S2[a1, a1, a4, SP[a3, a5], a2, n] + 
    S2[a4, n]*S2[a1, a1, a5, a2, a3, n] + S2[a1, a1, a5, a2, SP[a3, a4], n] + 
    S2[a1, a1, a5, SP[a2, a4], a3, n] + 2*S2[a1, a1, SP[a2, a4], a3, a5, n] + 
    2*S2[a1, a1, SP[a2, a4], a5, a3, n] - S2[a1, a1, SP[a2, a5], a3, a4, n] - 
    S2[a1, a1, SP[a2, a5], a4, a3, n] - S2[a1, a1, SP[a3, a4], a2, a5, n] - 
    S2[a1, a1, SP[a3, a4], a5, a2, n] - S2[a3, n]*S2[a1, a2, a1, a4, a5, n] - 
    S2[a1, a2, a1, a4, SP[a3, a5], n] - S2[a1, a2, a1, SP[a3, a4], a5, n] - 
    S2[a1, a2, SP[a1, a3], a4, a5, n] + S2[a2, n]*S2[a1, a3, a1, a4, a5, n] + 
    S2[a1, a3, a1, a4, SP[a2, a5], n] + S2[a1, a3, a1, SP[a2, a4], a5, n] + 
    S2[a1, a3, SP[a1, a2], a4, a5, n] - S2[a5, n]*S2[a1, a4, a1, a2, a3, n] - 
    S2[a1, a4, a1, a2, SP[a3, a5], n] - S2[a1, a4, a1, SP[a2, a5], a3, n] - 
    S2[a1, a4, SP[a1, a5], a2, a3, n] + S2[a4, n]*S2[a1, a5, a1, a2, a3, n] + 
    S2[a1, a5, a1, a2, SP[a3, a4], n] + S2[a1, a5, a1, SP[a2, a4], a3, n] + 
    S2[a1, a5, SP[a1, a4], a2, a3, n] + S2[a1, SP[a1, a2], a3, a4, a5, n] + 
    S2[a1, SP[a1, a2], a4, a3, a5, n] + S2[a1, SP[a1, a2], a4, a5, a3, n] - 
    S2[a1, SP[a1, a3], a2, a4, a5, n] - S2[a1, SP[a1, a3], a4, a2, a5, n] - 
    S2[a1, SP[a1, a3], a4, a5, a2, n] + S2[a1, SP[a1, a4], a2, a3, a5, n] + 
    S2[a1, SP[a1, a4], a2, a5, a3, n] + S2[a1, SP[a1, a4], a5, a2, a3, n] - 
    S2[a1, SP[a1, a5], a2, a3, a4, n] - S2[a1, SP[a1, a5], a2, a4, a3, n] - 
    S2[a1, SP[a1, a5], a4, a2, a3, n] - S2[a2, a1, a1, a4, SP[a3, a5], n] - 
    S2[a2, a1, a1, SP[a3, a4], a5, n] - S2[a2, a1, SP[a1, a3], a4, a5, n] - 
    S2[a2, SP[a1, a3], a1, a4, a5, n] + S2[a2, n]*S2[a3, a1, a1, a4, a5, n] + 
    S2[a3, a1, a1, a4, SP[a2, a5], n] + S2[a3, a1, a1, SP[a2, a4], a5, n] + 
    S2[a3, a1, SP[a1, a2], a4, a5, n] + S2[a3, SP[a1, a2], a1, a4, a5, n] - 
    S2[a4, a1, a1, a2, SP[a3, a5], n] - S2[a4, a1, a1, SP[a2, a5], a3, n] - 
    S2[a4, a1, SP[a1, a5], a2, a3, n] - S2[a4, SP[a1, a5], a1, a2, a3, n] + 
    S2[a4, n]*S2[a5, a1, a1, a2, a3, n] + S2[a5, a1, a1, a2, SP[a3, a4], n] + 
    S2[a5, a1, a1, SP[a2, a4], a3, n] + S2[a5, a1, SP[a1, a4], a2, a3, n] + 
    S2[a5, SP[a1, a4], a1, a2, a3, n] + S2[SP[a1, a1], a2, a3, a4, a5, n] + 
    S2[SP[a1, a1], a2, a4, a3, a5, n] + S2[SP[a1, a1], a2, a4, a5, a3, n] + 
    S2[SP[a1, a1], a4, a2, a3, a5, n] + S2[SP[a1, a1], a4, a2, a5, a3, n] + 
    S2[SP[a1, a1], a4, a5, a2, a3, n] - S2[SP[a1, a3], a1, a2, a4, a5, n] - 
    S2[SP[a1, a3], a1, a4, a2, a5, n] - S2[SP[a1, a3], a1, a4, a5, a2, n] - 
    S2[SP[a1, a3], a2, a1, a4, a5, n] - S2[SP[a1, a5], a1, a2, a3, a4, n] - 
    S2[SP[a1, a5], a1, a2, a4, a3, n] - S2[SP[a1, a5], a1, a4, a2, a3, n] - 
    S2[SP[a1, a5], a4, a1, a2, a3, n] + S2[SP[a2, a3], a1, a1, a4, a5, n] + 
    S2[SP[a4, a5], a1, a1, a2, a3, n] - S2[a5, a4, a1, a1, a2, a3, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a3_, a2_, a1_, a1_, a5_, a4_, n_] :> 
  S2[a1, a2, a3, n]*S2[a1, a5, a4, n] + S2[SP[a1, a1], SP[a2, a5], 
     SP[a3, a4], n] + S2[a4, a5, n]*S2[a1, a1, a2, a3, n] - 
    S2[a2, a3, n]*S2[a1, a1, a5, a4, n] - S2[a1, a1, SP[a2, a4], SP[a3, a5], 
     n] - S2[a1, a1, SP[a2, a5], SP[a3, a4], n] - S2[a1, SP[a1, a4], a2, 
     SP[a3, a5], n] - S2[a1, SP[a1, a4], SP[a2, a5], a3, n] - 
    S2[a1, SP[a1, a5], a2, SP[a3, a4], n] - S2[a1, SP[a1, a5], SP[a2, a4], 
     a3, n] - S2[SP[a1, a1], a2, a5, SP[a3, a4], n] - 
    S2[SP[a1, a1], a2, SP[a3, a5], a4, n] - S2[SP[a1, a1], a5, a2, 
     SP[a3, a4], n] - S2[SP[a1, a1], a5, SP[a2, a4], a3, n] - 
    S2[SP[a1, a1], SP[a2, a5], a3, a4, n] - S2[SP[a1, a1], SP[a2, a5], a4, 
     a3, n] + S2[SP[a1, a2], a1, a5, SP[a3, a4], n] + 
    S2[SP[a1, a2], a1, SP[a3, a5], a4, n] + S2[SP[a1, a2], SP[a1, a3], a5, 
     a4, n] - S2[SP[a1, a4], a1, a2, SP[a3, a5], n] - 
    S2[SP[a1, a4], a1, SP[a2, a5], a3, n] - S2[SP[a1, a4], SP[a1, a5], a2, 
     a3, n] - S2[a4, n]*S2[a1, a1, a2, a3, a5, n] - 
    S2[a1, a1, a2, a3, SP[a4, a5], n] + S2[a1, a1, a2, a4, SP[a3, a5], n] - 
    S2[a4, n]*S2[a1, a1, a2, a5, a3, n] - 
    S2[a3, n]*S2[a1, a1, a2, a5, a4, n] - S2[a1, a1, a2, a5, SP[a3, a4], n] - 
    S2[a1, a1, a2, SP[a4, a5], a3, n] + S2[a2, n]*S2[a1, a1, a3, a5, a4, n] + 
    S2[a1, a1, a3, a5, SP[a2, a4], n] + S2[a1, a1, a3, SP[a2, a5], a4, n] + 
    S2[a1, a1, a4, a2, SP[a3, a5], n] + S2[a1, a1, a4, SP[a2, a5], a3, n] - 
    S2[a4, n]*S2[a1, a1, a5, a2, a3, n] - 
    S2[a3, n]*S2[a1, a1, a5, a2, a4, n] - S2[a1, a1, a5, a2, SP[a3, a4], n] + 
    S2[a2, n]*S2[a1, a1, a5, a3, a4, n] + S2[a1, a1, a5, a3, SP[a2, a4], n] - 
    S2[a3, n]*S2[a1, a1, a5, a4, a2, n] + 
    S2[a2, n]*S2[a1, a1, a5, a4, a3, n] + S2[a1, a1, a5, SP[a2, a4], a3, n] - 
    S2[a1, a1, a5, SP[a3, a4], a2, n] + 2*S2[a1, a1, SP[a2, a5], a3, a4, n] + 
    2*S2[a1, a1, SP[a2, a5], a4, a3, n] - S2[a1, a1, SP[a3, a5], a2, a4, n] - 
    S2[a1, a1, SP[a3, a5], a4, a2, n] - S2[a1, a1, SP[a4, a5], a2, a3, n] - 
    S2[a3, n]*S2[a1, a2, a1, a5, a4, n] - S2[a1, a2, a1, a5, SP[a3, a4], n] - 
    S2[a1, a2, a1, SP[a3, a5], a4, n] - S2[a1, a2, SP[a1, a3], a5, a4, n] + 
    S2[a2, n]*S2[a1, a3, a1, a5, a4, n] + S2[a1, a3, a1, a5, SP[a2, a4], n] + 
    S2[a1, a3, a1, SP[a2, a5], a4, n] + S2[a1, a3, SP[a1, a2], a5, a4, n] + 
    S2[a1, a4, a1, a2, SP[a3, a5], n] + S2[a1, a4, a1, SP[a2, a5], a3, n] + 
    S2[a1, a4, SP[a1, a5], a2, a3, n] - S2[a4, n]*S2[a1, a5, a1, a2, a3, n] + 
    S2[a1, SP[a1, a2], a3, a5, a4, n] + S2[a1, SP[a1, a2], a5, a3, a4, n] + 
    S2[a1, SP[a1, a2], a5, a4, a3, n] - S2[a1, SP[a1, a3], a2, a5, a4, n] - 
    S2[a1, SP[a1, a3], a5, a2, a4, n] - S2[a1, SP[a1, a3], a5, a4, a2, n] + 
    S2[a1, SP[a1, a5], a2, a3, a4, n] + S2[a1, SP[a1, a5], a2, a4, a3, n] + 
    S2[a1, SP[a1, a5], a4, a2, a3, n] - S2[a1, SP[a4, a5], a1, a2, a3, n] - 
    S2[a2, a1, a1, a5, SP[a3, a4], n] - S2[a2, a1, a1, SP[a3, a5], a4, n] - 
    S2[a2, a1, SP[a1, a3], a5, a4, n] - S2[a2, SP[a1, a3], a1, a5, a4, n] + 
    S2[a2, n]*S2[a3, a1, a1, a5, a4, n] + S2[a3, a1, a1, a5, SP[a2, a4], n] + 
    S2[a3, a1, a1, SP[a2, a5], a4, n] + S2[a3, a1, SP[a1, a2], a5, a4, n] + 
    S2[a3, SP[a1, a2], a1, a5, a4, n] + S2[a4, a1, a1, a2, SP[a3, a5], n] + 
    S2[a4, a1, a1, SP[a2, a5], a3, n] + S2[a4, a1, SP[a1, a5], a2, a3, n] + 
    S2[a4, SP[a1, a5], a1, a2, a3, n] - S2[a4, n]*S2[a5, a1, a1, a2, a3, n] - 
    S2[a5, a1, a1, a2, SP[a3, a4], n] - S2[a5, a1, a1, SP[a2, a4], a3, n] - 
    S2[a5, a1, SP[a1, a4], a2, a3, n] - S2[a5, SP[a1, a4], a1, a2, a3, n] + 
    S2[SP[a1, a1], a2, a3, a5, a4, n] + S2[SP[a1, a1], a2, a5, a3, a4, n] + 
    S2[SP[a1, a1], a2, a5, a4, a3, n] + S2[SP[a1, a1], a5, a2, a3, a4, n] + 
    S2[SP[a1, a1], a5, a2, a4, a3, n] + S2[SP[a1, a1], a5, a4, a2, a3, n] - 
    S2[SP[a1, a3], a1, a2, a5, a4, n] - S2[SP[a1, a3], a1, a5, a2, a4, n] - 
    S2[SP[a1, a3], a1, a5, a4, a2, n] - S2[SP[a1, a3], a2, a1, a5, a4, n] + 
    S2[SP[a2, a3], a1, a1, a5, a4, n] - S2[SP[a4, a5], a1, a1, a2, a3, n] + 
    S2[a5, a1, a1, a2, a3, a4, n] + S2[a5, a1, a1, a2, a4, a3, n] + 
    S2[a5, a1, a1, a4, a2, a3, n] + S2[a5, a1, a4, a1, a2, a3, n] + 
    S2[a5, a4, a1, a1, a2, a3, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a3_, a2_, a1_, a4_, a1_, a5_, n_] :> 
  -(S2[a1, a2, a3, n]*S2[a1, a4, a5, n]) - S2[a1, a2, a3, n]*
     S2[a1, a5, a4, n] - S2[SP[a1, a1], SP[a2, a4], SP[a3, a5], n] - 
    S2[SP[a1, a1], SP[a2, a5], SP[a3, a4], n] + 
    2*S2[a1, a1, SP[a2, a4], SP[a3, a5], n] + 
    2*S2[a1, a1, SP[a2, a5], SP[a3, a4], n] + 
    S2[a1, a5, n]*S2[a1, a2, a3, a4, n] + S2[a1, a5, n]*
     S2[a1, a2, a4, a3, n] - S2[a1, a2, SP[a1, a3], SP[a4, a5], n] - 
    S2[a1, a2, SP[a1, a4], SP[a3, a5], n] - S2[a2, a3, n]*
     S2[a1, a4, a1, a5, n] + S2[a1, a5, n]*S2[a1, a4, a2, a3, n] - 
    S2[a1, SP[a1, a2], a3, SP[a4, a5], n] + S2[a1, SP[a1, a2], a5, 
     SP[a3, a4], n] + S2[a1, SP[a1, a2], SP[a3, a4], a5, n] - 
    S2[a1, SP[a1, a2], SP[a4, a5], a3, n] + S2[a1, SP[a1, a5], a2, 
     SP[a3, a4], n] + S2[a1, SP[a1, a5], SP[a2, a4], a3, n] + 
    S2[a1, SP[a2, a4], a1, SP[a3, a5], n] + S2[a1, SP[a2, a4], SP[a1, a3], 
     a5, n] - S2[SP[a1, a1], a2, a3, SP[a4, a5], n] + 
    S2[SP[a1, a1], a2, a5, SP[a3, a4], n] + S2[SP[a1, a1], a2, SP[a3, a4], 
     a5, n] - S2[SP[a1, a1], a2, SP[a4, a5], a3, n] + 
    S2[SP[a1, a1], a5, a2, SP[a3, a4], n] + S2[SP[a1, a1], a5, SP[a2, a4], 
     a3, n] + S2[SP[a1, a1], SP[a2, a4], a3, a5, n] + 
    S2[SP[a1, a1], SP[a2, a4], a5, a3, n] - S2[SP[a1, a1], SP[a4, a5], a2, 
     a3, n] + S2[SP[a1, a2], a4, a1, SP[a3, a5], n] + 
    S2[SP[a1, a2], a4, SP[a1, a3], a5, n] + S2[SP[a1, a2], SP[a3, a4], a1, 
     a5, n] + 2*S2[a1, a1, a2, a3, SP[a4, a5], n] - 
    2*S2[a1, a1, a2, a5, SP[a3, a4], n] - 
    2*S2[a1, a1, a2, SP[a3, a4], a5, n] + 
    2*S2[a1, a1, a2, SP[a4, a5], a3, n] - 
    2*S2[a1, a1, a5, a2, SP[a3, a4], n] - 
    2*S2[a1, a1, a5, SP[a2, a4], a3, n] - 
    2*S2[a1, a1, SP[a2, a4], a3, a5, n] - 
    2*S2[a1, a1, SP[a2, a4], a5, a3, n] + 
    2*S2[a1, a1, SP[a4, a5], a2, a3, n] + S2[a1, a2, a1, a3, SP[a4, a5], n] - 
    S2[a1, a2, a1, a5, SP[a3, a4], n] - S2[a1, a2, a1, SP[a3, a4], a5, n] + 
    S2[a1, a2, a1, SP[a4, a5], a3, n] + S2[a1, a2, a3, a1, SP[a4, a5], n] + 
    S2[a1, a2, a3, SP[a1, a4], a5, n] - S2[a3, n]*S2[a1, a2, a4, a1, a5, n] - 
    S2[a1, a2, a4, a1, SP[a3, a5], n] - S2[a1, a2, a4, SP[a1, a3], a5, n] + 
    S2[a1, a2, SP[a1, a4], a3, a5, n] + S2[a1, a2, SP[a1, a4], a5, a3, n] - 
    2*S2[a1, a2, SP[a3, a4], a1, a5, n] + 
    S2[a2, n]*S2[a1, a3, a4, a1, a5, n] + S2[a1, a3, a4, a1, SP[a2, a5], n] + 
    S2[a1, a3, a4, SP[a1, a2], a5, n] + S2[a1, a3, SP[a2, a4], a1, a5, n] + 
    S2[a5, n]*S2[a1, a4, a1, a2, a3, n] - 
    S2[a3, n]*S2[a1, a4, a1, a2, a5, n] - S2[a1, a4, a1, a2, SP[a3, a5], n] + 
    S2[a2, n]*S2[a1, a4, a1, a3, a5, n] + S2[a1, a4, a1, a3, SP[a2, a5], n] - 
    S2[a3, n]*S2[a1, a4, a1, a5, a2, n] + 
    S2[a2, n]*S2[a1, a4, a1, a5, a3, n] + S2[a1, a4, a1, SP[a2, a5], a3, n] - 
    S2[a1, a4, a1, SP[a3, a5], a2, n] - S2[a3, n]*S2[a1, a4, a2, a1, a5, n] - 
    S2[a1, a4, a2, a1, SP[a3, a5], n] - S2[a1, a4, a2, SP[a1, a3], a5, n] + 
    S2[a2, n]*S2[a1, a4, a3, a1, a5, n] + S2[a1, a4, a3, a1, SP[a2, a5], n] + 
    S2[a1, a4, a3, SP[a1, a2], a5, n] + S2[a1, a4, SP[a1, a2], a3, a5, n] + 
    S2[a1, a4, SP[a1, a2], a5, a3, n] - S2[a1, a4, SP[a1, a3], a2, a5, n] - 
    S2[a1, a4, SP[a1, a3], a5, a2, n] - S2[a1, a5, a1, a2, SP[a3, a4], n] - 
    S2[a1, a5, a1, SP[a2, a4], a3, n] - S2[a1, a5, SP[a1, a4], a2, a3, n] - 
    S2[a1, SP[a3, a4], a1, a2, a5, n] - S2[a1, SP[a3, a4], a1, a5, a2, n] - 
    S2[a1, SP[a3, a4], a2, a1, a5, n] + S2[a1, SP[a4, a5], a1, a2, a3, n] - 
    S2[a2, a1, a4, a1, SP[a3, a5], n] - S2[a2, a1, a4, SP[a1, a3], a5, n] - 
    S2[a2, a1, SP[a3, a4], a1, a5, n] - S2[a2, SP[a1, a3], a4, a1, a5, n] + 
    S2[a2, n]*S2[a3, a1, a4, a1, a5, n] + S2[a3, a1, a4, a1, SP[a2, a5], n] + 
    S2[a3, a1, a4, SP[a1, a2], a5, n] + S2[a3, a1, SP[a2, a4], a1, a5, n] + 
    S2[a3, SP[a1, a2], a4, a1, a5, n] - S2[SP[a1, a3], a2, a4, a1, a5, n] - 
    S2[SP[a1, a3], a4, a1, a2, a5, n] - S2[SP[a1, a3], a4, a1, a5, a2, n] - 
    S2[SP[a1, a3], a4, a2, a1, a5, n] + S2[SP[a1, a5], a4, a1, a2, a3, n] + 
    S2[SP[a2, a3], a1, a4, a1, a5, n] - S2[a5, a1, a4, a1, a2, a3, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a3_, a2_, a1_, a4_, a5_, a1_, n_] :> 
  S2[a1, a2, a3, n]*S2[a1, a5, a4, n] + S2[SP[a1, a1], SP[a2, a5], 
     SP[a3, a4], n] + 2*S2[a2, a3, n]*S2[a1, a1, a4, a5, n] - 
    2*S2[a1, a1, SP[a2, a4], SP[a3, a5], n] - 
    2*S2[a1, a1, SP[a2, a5], SP[a3, a4], n] - 
    S2[a1, a5, n]*S2[a1, a2, a3, a4, n] - S2[a1, a5, n]*
     S2[a1, a2, a4, a3, n] + S2[a1, a2, SP[a1, a3], SP[a4, a5], n] + 
    S2[a1, a2, SP[a1, a4], SP[a3, a5], n] + S2[a2, a3, n]*
     S2[a1, a4, a1, a5, n] - S2[a1, a5, n]*S2[a1, a4, a2, a3, n] + 
    S2[a1, SP[a1, a2], a3, SP[a4, a5], n] - S2[a1, SP[a1, a2], a4, 
     SP[a3, a5], n] - S2[a1, SP[a1, a2], a5, SP[a3, a4], n] - 
    2*S2[a1, SP[a1, a2], SP[a3, a4], a5, n] + S2[a1, SP[a1, a2], SP[a4, a5], 
     a3, n] + S2[a1, SP[a1, a4], a2, SP[a3, a5], n] + 
    S2[a1, SP[a1, a4], SP[a2, a5], a3, n] - S2[a1, SP[a1, a5], a2, 
     SP[a3, a4], n] - S2[a1, SP[a1, a5], SP[a2, a4], a3, n] - 
    S2[a1, SP[a2, a4], a1, SP[a3, a5], n] - S2[a1, SP[a2, a4], SP[a1, a3], 
     a5, n] + S2[SP[a1, a1], a2, a3, SP[a4, a5], n] + 
    S2[SP[a1, a1], a2, a4, SP[a3, a5], n] - S2[SP[a1, a1], a2, a5, 
     SP[a3, a4], n] + S2[SP[a1, a1], a2, SP[a4, a5], a3, n] + 
    S2[SP[a1, a1], a4, a2, SP[a3, a5], n] + S2[SP[a1, a1], a4, SP[a2, a5], 
     a3, n] - S2[SP[a1, a1], a5, a2, SP[a3, a4], n] - 
    S2[SP[a1, a1], a5, SP[a2, a4], a3, n] + S2[SP[a1, a1], SP[a4, a5], a2, 
     a3, n] - 2*S2[SP[a1, a2], a1, a4, SP[a3, a5], n] - 
    2*S2[SP[a1, a2], a1, SP[a3, a4], a5, n] - S2[SP[a1, a2], a4, a1, 
     SP[a3, a5], n] - S2[SP[a1, a2], a4, SP[a1, a3], a5, n] - 
    2*S2[SP[a1, a2], SP[a1, a3], a4, a5, n] - S2[SP[a1, a2], SP[a3, a4], a1, 
     a5, n] - 2*S2[a1, a1, a2, a3, SP[a4, a5], n] + 
    2*S2[a3, n]*S2[a1, a1, a2, a4, a5, n] + 
    2*S2[a1, a1, a2, a4, SP[a3, a5], n] + 
    2*S2[a1, a1, a2, a5, SP[a3, a4], n] + 
    4*S2[a1, a1, a2, SP[a3, a4], a5, n] - 
    2*S2[a1, a1, a2, SP[a4, a5], a3, n] - 
    2*S2[a2, n]*S2[a1, a1, a3, a4, a5, n] - 
    2*S2[a1, a1, a3, a4, SP[a2, a5], n] - 
    2*S2[a1, a1, a3, SP[a2, a4], a5, n] + 
    2*S2[a3, n]*S2[a1, a1, a4, a2, a5, n] + 
    2*S2[a1, a1, a4, a2, SP[a3, a5], n] - 
    2*S2[a2, n]*S2[a1, a1, a4, a3, a5, n] - 
    2*S2[a1, a1, a4, a3, SP[a2, a5], n] + 
    2*S2[a3, n]*S2[a1, a1, a4, a5, a2, n] - 
    2*S2[a2, n]*S2[a1, a1, a4, a5, a3, n] - 
    2*S2[a1, a1, a4, SP[a2, a5], a3, n] + 
    2*S2[a1, a1, a4, SP[a3, a5], a2, n] + 
    2*S2[a1, a1, a5, a2, SP[a3, a4], n] + 
    2*S2[a1, a1, a5, SP[a2, a4], a3, n] + 
    2*S2[a1, a1, SP[a3, a4], a2, a5, n] + 
    2*S2[a1, a1, SP[a3, a4], a5, a2, n] - 
    2*S2[a1, a1, SP[a4, a5], a2, a3, n] - S2[a1, a2, a1, a3, SP[a4, a5], n] + 
    S2[a3, n]*S2[a1, a2, a1, a4, a5, n] + 
    2*S2[a1, a2, a1, a4, SP[a3, a5], n] + S2[a1, a2, a1, a5, SP[a3, a4], n] + 
    3*S2[a1, a2, a1, SP[a3, a4], a5, n] - S2[a1, a2, a1, SP[a4, a5], a3, n] - 
    S2[a1, a2, a3, a1, SP[a4, a5], n] - S2[a1, a2, a3, SP[a1, a4], a5, n] + 
    S2[a3, n]*S2[a1, a2, a4, a1, a5, n] + S2[a1, a2, a4, a1, SP[a3, a5], n] + 
    S2[a1, a2, a4, SP[a1, a3], a5, n] + 2*S2[a1, a2, SP[a1, a3], a4, a5, n] - 
    S2[a1, a2, SP[a1, a4], a3, a5, n] - S2[a1, a2, SP[a1, a4], a5, a3, n] + 
    2*S2[a1, a2, SP[a3, a4], a1, a5, n] - 
    2*S2[a2, n]*S2[a1, a3, a1, a4, a5, n] - 
    2*S2[a1, a3, a1, a4, SP[a2, a5], n] - 
    2*S2[a1, a3, a1, SP[a2, a4], a5, n] - 
    S2[a2, n]*S2[a1, a3, a4, a1, a5, n] - S2[a1, a3, a4, a1, SP[a2, a5], n] - 
    S2[a1, a3, a4, SP[a1, a2], a5, n] - 2*S2[a1, a3, SP[a1, a2], a4, a5, n] - 
    S2[a1, a3, SP[a2, a4], a1, a5, n] + S2[a3, n]*S2[a1, a4, a1, a2, a5, n] + 
    S2[a1, a4, a1, a2, SP[a3, a5], n] - S2[a2, n]*S2[a1, a4, a1, a3, a5, n] - 
    S2[a1, a4, a1, a3, SP[a2, a5], n] + S2[a3, n]*S2[a1, a4, a1, a5, a2, n] - 
    S2[a2, n]*S2[a1, a4, a1, a5, a3, n] - S2[a1, a4, a1, SP[a2, a5], a3, n] + 
    S2[a1, a4, a1, SP[a3, a5], a2, n] + S2[a3, n]*S2[a1, a4, a2, a1, a5, n] + 
    S2[a1, a4, a2, a1, SP[a3, a5], n] + S2[a1, a4, a2, SP[a1, a3], a5, n] - 
    S2[a2, n]*S2[a1, a4, a3, a1, a5, n] - S2[a1, a4, a3, a1, SP[a2, a5], n] - 
    S2[a1, a4, a3, SP[a1, a2], a5, n] - S2[a1, a4, SP[a1, a2], a3, a5, n] - 
    S2[a1, a4, SP[a1, a2], a5, a3, n] + S2[a1, a4, SP[a1, a3], a2, a5, n] + 
    S2[a1, a4, SP[a1, a3], a5, a2, n] + S2[a1, a5, a1, a2, SP[a3, a4], n] + 
    S2[a1, a5, a1, SP[a2, a4], a3, n] + S2[a1, a5, SP[a1, a4], a2, a3, n] - 
    S2[a1, SP[a1, a2], a3, a4, a5, n] - S2[a1, SP[a1, a2], a4, a3, a5, n] - 
    S2[a1, SP[a1, a2], a4, a5, a3, n] + 2*S2[a1, SP[a1, a3], a2, a4, a5, n] + 
    2*S2[a1, SP[a1, a3], a4, a2, a5, n] + 
    2*S2[a1, SP[a1, a3], a4, a5, a2, n] - S2[a1, SP[a1, a4], a2, a3, a5, n] - 
    S2[a1, SP[a1, a4], a2, a5, a3, n] - S2[a1, SP[a1, a4], a5, a2, a3, n] - 
    S2[a1, SP[a2, a3], a1, a4, a5, n] + S2[a1, SP[a3, a4], a1, a2, a5, n] + 
    S2[a1, SP[a3, a4], a1, a5, a2, n] + S2[a1, SP[a3, a4], a2, a1, a5, n] + 
    2*S2[a2, a1, a1, a4, SP[a3, a5], n] + 
    2*S2[a2, a1, a1, SP[a3, a4], a5, n] + S2[a2, a1, a4, a1, SP[a3, a5], n] + 
    S2[a2, a1, a4, SP[a1, a3], a5, n] + 2*S2[a2, a1, SP[a1, a3], a4, a5, n] + 
    S2[a2, a1, SP[a3, a4], a1, a5, n] + 2*S2[a2, SP[a1, a3], a1, a4, a5, n] + 
    S2[a2, SP[a1, a3], a4, a1, a5, n] - 2*S2[a2, n]*
     S2[a3, a1, a1, a4, a5, n] - 2*S2[a3, a1, a1, a4, SP[a2, a5], n] - 
    2*S2[a3, a1, a1, SP[a2, a4], a5, n] - 
    S2[a2, n]*S2[a3, a1, a4, a1, a5, n] - S2[a3, a1, a4, a1, SP[a2, a5], n] - 
    S2[a3, a1, a4, SP[a1, a2], a5, n] - 2*S2[a3, a1, SP[a1, a2], a4, a5, n] - 
    S2[a3, a1, SP[a2, a4], a1, a5, n] + S2[a1, n]*S2[a3, a2, a1, a4, a5, n] + 
    S2[a3, a2, a1, a4, SP[a1, a5], n] + S2[a3, a2, a1, SP[a1, a4], a5, n] + 
    S2[a3, a2, SP[a1, a1], a4, a5, n] - S2[a3, SP[a1, a2], a1, a4, a5, n] - 
    S2[a3, SP[a1, a2], a4, a1, a5, n] - S2[a1, n]*S2[a5, a4, a1, a2, a3, n] - 
    S2[a5, a4, a1, a2, SP[a1, a3], n] - S2[a5, a4, a1, SP[a1, a2], a3, n] - 
    S2[a5, a4, SP[a1, a1], a2, a3, n] - S2[a5, SP[a1, a4], a1, a2, a3, n] - 
    S2[SP[a1, a1], a2, a3, a4, a5, n] - S2[SP[a1, a1], a2, a4, a3, a5, n] - 
    S2[SP[a1, a1], a2, a4, a5, a3, n] - S2[SP[a1, a1], a4, a2, a3, a5, n] - 
    S2[SP[a1, a1], a4, a2, a5, a3, n] - S2[SP[a1, a1], a4, a5, a2, a3, n] + 
    2*S2[SP[a1, a3], a1, a2, a4, a5, n] + 
    2*S2[SP[a1, a3], a1, a4, a2, a5, n] + 
    2*S2[SP[a1, a3], a1, a4, a5, a2, n] + 
    2*S2[SP[a1, a3], a2, a1, a4, a5, n] + S2[SP[a1, a3], a2, a4, a1, a5, n] + 
    S2[SP[a1, a3], a4, a1, a2, a5, n] + S2[SP[a1, a3], a4, a1, a5, a2, n] + 
    S2[SP[a1, a3], a4, a2, a1, a5, n] - S2[SP[a1, a5], a4, a1, a2, a3, n] - 
    2*S2[SP[a2, a3], a1, a1, a4, a5, n] - S2[SP[a2, a3], a1, a4, a1, a5, n] + 
    S2[a5, a1, a4, a1, a2, a3, n] + 2*S2[a5, a4, a1, a1, a2, a3, n] + 
    S2[a5, a4, a1, a2, a1, a3, n] + S2[a5, a4, a1, a2, a3, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a3_, a2_, a1_, a5_, a1_, a4_, n_] :> 
  -(S2[a1, a2, a3, n]*S2[a1, a4, a5, n]) - S2[a1, a2, a3, n]*
     S2[a1, a5, a4, n] - S2[SP[a1, a1], SP[a2, a4], SP[a3, a5], n] - 
    S2[SP[a1, a1], SP[a2, a5], SP[a3, a4], n] + 
    2*S2[a2, a3, n]*S2[a1, a1, a4, a5, n] + 2*S2[a2, a3, n]*
     S2[a1, a1, a5, a4, n] + S2[a1, a4, n]*S2[a1, a3, a2, a5, n] + 
    S2[a1, a4, n]*S2[a1, a3, a5, a2, n] - S2[a1, a3, SP[a1, a2], SP[a4, a5], 
     n] - S2[a1, a3, SP[a1, a5], SP[a2, a4], n] + 
    S2[a2, a3, n]*S2[a1, a4, a1, a5, n] - S2[a1, a4, SP[a1, a2], SP[a3, a5], 
     n] + S2[a1, a4, n]*S2[a1, a5, a3, a2, n] - S2[a1, a5, SP[a1, a3], 
     SP[a2, a4], n] - S2[a1, SP[a1, a2], a4, SP[a3, a5], n] - 
    S2[a1, SP[a1, a2], a5, SP[a3, a4], n] - S2[a1, SP[a1, a2], SP[a3, a4], 
     a5, n] - S2[a1, SP[a1, a2], SP[a3, a5], a4, n] - 
    S2[a1, SP[a1, a3], a2, SP[a4, a5], n] - S2[a1, SP[a1, a3], a5, 
     SP[a2, a4], n] - S2[a1, SP[a1, a3], SP[a2, a4], a5, n] - 
    S2[a1, SP[a1, a3], SP[a4, a5], a2, n] + S2[a1, SP[a1, a4], a2, 
     SP[a3, a5], n] + S2[a1, SP[a1, a4], SP[a2, a5], a3, n] + 
    S2[a1, SP[a1, a5], a2, SP[a3, a4], n] - S2[a1, SP[a1, a5], a3, 
     SP[a2, a4], n] + S2[a1, SP[a1, a5], SP[a2, a4], a3, n] - 
    S2[a1, SP[a1, a5], SP[a3, a4], a2, n] - S2[a1, SP[a2, a4], a1, 
     SP[a3, a5], n] - S2[a1, SP[a2, a4], SP[a1, a3], a5, n] - 
    S2[a1, a4, n]*S2[a2, a3, a1, a5, n] + S2[a2, a3, SP[a1, a1], SP[a4, a5], 
     n] + S2[a2, SP[a1, a3], a1, SP[a4, a5], n] + 
    S2[a2, SP[a1, a3], SP[a1, a4], a5, n] + S2[SP[a1, a1], a2, a4, 
     SP[a3, a5], n] + S2[SP[a1, a1], a2, a5, SP[a3, a4], n] + 
    S2[SP[a1, a1], a2, SP[a3, a4], a5, n] + S2[SP[a1, a1], a2, SP[a3, a5], 
     a4, n] - S2[SP[a1, a1], a3, a2, SP[a4, a5], n] - 
    S2[SP[a1, a1], a3, a5, SP[a2, a4], n] - S2[SP[a1, a1], a3, SP[a2, a4], 
     a5, n] - S2[SP[a1, a1], a3, SP[a4, a5], a2, n] + 
    S2[SP[a1, a1], a4, a2, SP[a3, a5], n] + S2[SP[a1, a1], a4, SP[a2, a5], 
     a3, n] + S2[SP[a1, a1], a5, a2, SP[a3, a4], n] - 
    S2[SP[a1, a1], a5, a3, SP[a2, a4], n] + S2[SP[a1, a1], a5, SP[a2, a4], 
     a3, n] - S2[SP[a1, a1], a5, SP[a3, a4], a2, n] + 
    S2[SP[a1, a1], SP[a2, a4], a3, a5, n] + S2[SP[a1, a1], SP[a2, a4], a5, 
     a3, n] + S2[SP[a1, a1], SP[a2, a5], a3, a4, n] + 
    S2[SP[a1, a1], SP[a2, a5], a4, a3, n] - S2[SP[a1, a1], SP[a3, a4], a2, 
     a5, n] - S2[SP[a1, a1], SP[a3, a4], a5, a2, n] - 
    S2[SP[a1, a1], SP[a4, a5], a3, a2, n] - 
    2*S2[SP[a1, a2], a1, a4, SP[a3, a5], n] - 
    2*S2[SP[a1, a2], a1, a5, SP[a3, a4], n] - 
    2*S2[SP[a1, a2], a1, SP[a3, a4], a5, n] - 
    2*S2[SP[a1, a2], a1, SP[a3, a5], a4, n] + S2[SP[a1, a2], a3, a1, 
     SP[a4, a5], n] + S2[SP[a1, a2], a3, SP[a1, a4], a5, n] - 
    S2[SP[a1, a2], a4, a1, SP[a3, a5], n] - S2[SP[a1, a2], a4, SP[a1, a3], 
     a5, n] - 2*S2[SP[a1, a2], SP[a1, a3], a4, a5, n] - 
    2*S2[SP[a1, a2], SP[a1, a3], a5, a4, n] + 
    2*S2[a5, n]*S2[a1, a1, a2, a3, a4, n] + 
    2*S2[a1, a1, a2, a3, SP[a4, a5], n] + 
    2*S2[a5, n]*S2[a1, a1, a2, a4, a3, n] + 
    2*S2[a1, a1, a2, a4, SP[a3, a5], n] + 
    2*S2[a1, a1, a2, SP[a3, a5], a4, n] + 
    2*S2[a1, a1, a2, SP[a4, a5], a3, n] + 
    2*S2[a1, a1, a3, a2, SP[a4, a5], n] - 
    2*S2[a2, n]*S2[a1, a1, a3, a4, a5, n] - 
    2*S2[a1, a1, a3, a4, SP[a2, a5], n] - 
    2*S2[a2, n]*S2[a1, a1, a3, a5, a4, n] - 
    2*S2[a1, a1, a3, SP[a2, a5], a4, n] + 
    2*S2[a1, a1, a3, SP[a4, a5], a2, n] + 
    2*S2[a5, n]*S2[a1, a1, a4, a2, a3, n] + 
    2*S2[a1, a1, a4, a2, SP[a3, a5], n] - 
    2*S2[a2, n]*S2[a1, a1, a4, a3, a5, n] - 
    2*S2[a1, a1, a4, a3, SP[a2, a5], n] - 
    2*S2[a2, n]*S2[a1, a1, a4, a5, a3, n] - 
    2*S2[a1, a1, a4, a5, SP[a2, a3], n] - 
    2*S2[a1, a1, a4, SP[a2, a3], a5, n] - 
    2*S2[a2, n]*S2[a1, a1, a5, a3, a4, n] - 
    2*S2[a2, n]*S2[a1, a1, a5, a4, a3, n] - 
    2*S2[a1, a1, a5, a4, SP[a2, a3], n] - 
    2*S2[a1, a1, a5, SP[a2, a3], a4, n] - 
    2*S2[a1, a1, a5, SP[a2, a4], a3, n] + 
    2*S2[a1, a1, a5, SP[a3, a4], a2, n] - 
    2*S2[a1, a1, SP[a2, a3], a4, a5, n] - 
    2*S2[a1, a1, SP[a2, a3], a5, a4, n] - 
    2*S2[a1, a1, SP[a2, a4], a3, a5, n] - 
    2*S2[a1, a1, SP[a2, a4], a5, a3, n] + 
    2*S2[a1, a1, SP[a3, a4], a2, a5, n] + 
    2*S2[a1, a1, SP[a3, a4], a5, a2, n] + 
    2*S2[a1, a1, SP[a4, a5], a2, a3, n] + 
    2*S2[a1, a1, SP[a4, a5], a3, a2, n] + 
    S2[a5, n]*S2[a1, a2, a1, a3, a4, n] + S2[a1, a2, a1, a3, SP[a4, a5], n] + 
    S2[a5, n]*S2[a1, a2, a1, a4, a3, n] + 
    2*S2[a1, a2, a1, a4, SP[a3, a5], n] + S2[a1, a2, a1, a5, SP[a3, a4], n] + 
    S2[a1, a2, a1, SP[a3, a4], a5, n] + 2*S2[a1, a2, a1, SP[a3, a5], a4, n] + 
    S2[a1, a2, a1, SP[a4, a5], a3, n] + S2[a5, n]*S2[a1, a2, a3, a1, a4, n] - 
    S2[a1, a2, a3, SP[a1, a4], a5, n] + S2[a1, a2, a3, SP[a1, a5], a4, n] + 
    S2[a1, a2, a4, a1, SP[a3, a5], n] + S2[a1, a2, a4, SP[a1, a3], a5, n] - 
    S2[a3, n]*S2[a1, a2, a5, a1, a4, n] - S2[a1, a2, a5, a1, SP[a3, a4], n] - 
    S2[a1, a2, a5, SP[a1, a3], a4, n] + S2[a1, a2, SP[a1, a3], a4, a5, n] + 
    S2[a1, a2, SP[a1, a3], a5, a4, n] + S2[a1, a2, SP[a1, a5], a3, a4, n] + 
    S2[a1, a2, SP[a1, a5], a4, a3, n] + S2[a1, a3, a1, a2, SP[a4, a5], n] - 
    S2[a2, n]*S2[a1, a3, a1, a4, a5, n] - S2[a1, a3, a1, a4, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a3, a1, a5, a4, n] - S2[a1, a3, a1, SP[a2, a5], a4, n] + 
    S2[a1, a3, a1, SP[a4, a5], a2, n] + S2[a1, a3, a2, a1, SP[a4, a5], n] + 
    S2[a1, a3, a2, SP[a1, a5], a4, n] + S2[a1, a3, a5, a1, SP[a2, a4], n] + 
    S2[a1, a3, a5, SP[a1, a2], a4, n] + S2[a1, a3, SP[a1, a5], a2, a4, n] + 
    S2[a1, a3, SP[a1, a5], a4, a2, n] + S2[a5, n]*S2[a1, a4, a1, a2, a3, n] + 
    S2[a1, a4, a1, a2, SP[a3, a5], n] - S2[a2, n]*S2[a1, a4, a1, a3, a5, n] - 
    S2[a1, a4, a1, a3, SP[a2, a5], n] - S2[a2, n]*S2[a1, a4, a1, a5, a3, n] - 
    S2[a1, a4, a1, a5, SP[a2, a3], n] - S2[a1, a4, a1, SP[a2, a3], a5, n] + 
    S2[a1, a4, a2, a1, SP[a3, a5], n] + S2[a1, a4, a2, SP[a1, a3], a5, n] - 
    S2[a3, n]*S2[a1, a5, a1, a2, a4, n] - 
    2*S2[a1, a5, a1, a2, SP[a3, a4], n] + S2[a1, a5, a1, a3, SP[a2, a4], n] - 
    S2[a3, n]*S2[a1, a5, a1, a4, a2, n] - S2[a1, a5, a1, a4, SP[a2, a3], n] - 
    S2[a1, a5, a1, SP[a2, a3], a4, n] - S2[a1, a5, a1, SP[a2, a4], a3, n] - 
    S2[a3, n]*S2[a1, a5, a2, a1, a4, n] - S2[a1, a5, a2, a1, SP[a3, a4], n] - 
    S2[a1, a5, a2, SP[a1, a3], a4, n] + S2[a1, a5, a3, a1, SP[a2, a4], n] + 
    S2[a1, a5, a3, SP[a1, a2], a4, n] - S2[a1, a5, SP[a1, a4], a2, a3, n] - 
    S2[a1, a5, SP[a2, a3], a1, a4, n] - S2[a1, SP[a1, a2], a3, a4, a5, n] - 
    S2[a1, SP[a1, a2], a3, a5, a4, n] - S2[a1, SP[a1, a2], a4, a3, a5, n] - 
    S2[a1, SP[a1, a2], a4, a5, a3, n] - S2[a1, SP[a1, a2], a5, a3, a4, n] - 
    S2[a1, SP[a1, a2], a5, a4, a3, n] + S2[a1, SP[a1, a3], a2, a4, a5, n] + 
    S2[a1, SP[a1, a3], a2, a5, a4, n] + S2[a1, SP[a1, a3], a4, a2, a5, n] + 
    S2[a1, SP[a1, a3], a4, a5, a2, n] + S2[a1, SP[a1, a3], a5, a2, a4, n] + 
    S2[a1, SP[a1, a3], a5, a4, a2, n] - S2[a1, SP[a1, a4], a2, a3, a5, n] - 
    S2[a1, SP[a1, a4], a2, a5, a3, n] + S2[a1, SP[a1, a4], a3, a2, a5, n] + 
    S2[a1, SP[a1, a4], a3, a5, a2, n] - S2[a1, SP[a1, a4], a5, a2, a3, n] + 
    S2[a1, SP[a1, a4], a5, a3, a2, n] + S2[a1, SP[a1, a5], a2, a3, a4, n] + 
    S2[a1, SP[a1, a5], a2, a4, a3, n] + S2[a1, SP[a1, a5], a3, a2, a4, n] + 
    S2[a1, SP[a1, a5], a3, a4, a2, n] + S2[a1, SP[a1, a5], a4, a2, a3, n] + 
    S2[a1, SP[a1, a5], a4, a3, a2, n] - S2[a1, SP[a2, a3], a1, a4, a5, n] - 
    S2[a1, SP[a2, a3], a1, a5, a4, n] - S2[a1, SP[a2, a3], a5, a1, a4, n] + 
    S2[a1, SP[a2, a5], a1, a3, a4, n] + S2[a1, SP[a2, a5], a1, a4, a3, n] + 
    S2[a1, SP[a2, a5], a3, a1, a4, n] - S2[a1, SP[a3, a5], a1, a2, a4, n] - 
    S2[a1, SP[a3, a5], a1, a4, a2, n] - S2[a1, SP[a3, a5], a2, a1, a4, n] + 
    S2[a1, SP[a4, a5], a1, a2, a3, n] + 2*S2[a2, a1, a1, a4, SP[a3, a5], n] + 
    2*S2[a2, a1, a1, a5, SP[a3, a4], n] + 
    2*S2[a2, a1, a1, SP[a3, a4], a5, n] + 
    2*S2[a2, a1, a1, SP[a3, a5], a4, n] - S2[a2, a1, a3, a1, SP[a4, a5], n] - 
    S2[a2, a1, a3, SP[a1, a4], a5, n] + S2[a2, a1, a4, a1, SP[a3, a5], n] + 
    S2[a2, a1, a4, SP[a1, a3], a5, n] + 2*S2[a2, a1, SP[a1, a3], a4, a5, n] + 
    2*S2[a2, a1, SP[a1, a3], a5, a4, n] - 
    2*S2[a2, a3, a1, a1, SP[a4, a5], n] - S2[a2, a3, a1, SP[a1, a4], a5, n] - 
    S2[a2, a3, a1, SP[a1, a5], a4, n] - S2[a2, a3, SP[a1, a1], a4, a5, n] - 
    S2[a2, a3, SP[a1, a1], a5, a4, n] + S2[a2, SP[a1, a3], a1, a4, a5, n] + 
    S2[a2, SP[a1, a3], a1, a5, a4, n] + S2[a2, n]*S2[a3, a1, a5, a1, a4, n] + 
    S2[a3, a1, a5, a1, SP[a2, a4], n] + S2[a3, a1, a5, SP[a1, a2], a4, n] + 
    S2[a3, a1, SP[a2, a5], a1, a4, n] + S2[a3, SP[a1, a2], a5, a1, a4, n] - 
    S2[SP[a1, a1], a2, a3, a4, a5, n] - S2[SP[a1, a1], a2, a3, a5, a4, n] - 
    S2[SP[a1, a1], a2, a4, a3, a5, n] - S2[SP[a1, a1], a2, a4, a5, a3, n] - 
    S2[SP[a1, a1], a2, a5, a3, a4, n] - S2[SP[a1, a1], a2, a5, a4, a3, n] + 
    S2[SP[a1, a1], a3, a2, a4, a5, n] + S2[SP[a1, a1], a3, a2, a5, a4, n] + 
    S2[SP[a1, a1], a3, a4, a2, a5, n] + S2[SP[a1, a1], a3, a4, a5, a2, n] + 
    S2[SP[a1, a1], a3, a5, a2, a4, n] + S2[SP[a1, a1], a3, a5, a4, a2, n] - 
    S2[SP[a1, a1], a4, a2, a3, a5, n] - S2[SP[a1, a1], a4, a2, a5, a3, n] + 
    S2[SP[a1, a1], a4, a3, a2, a5, n] + S2[SP[a1, a1], a4, a3, a5, a2, n] - 
    S2[SP[a1, a1], a4, a5, a2, a3, n] + S2[SP[a1, a1], a4, a5, a3, a2, n] - 
    S2[SP[a1, a1], a5, a2, a3, a4, n] - S2[SP[a1, a1], a5, a2, a4, a3, n] + 
    S2[SP[a1, a1], a5, a3, a2, a4, n] + S2[SP[a1, a1], a5, a3, a4, a2, n] - 
    S2[SP[a1, a1], a5, a4, a2, a3, n] + S2[SP[a1, a1], a5, a4, a3, a2, n] - 
    S2[SP[a1, a3], a2, a5, a1, a4, n] - S2[SP[a1, a3], a5, a1, a2, a4, n] - 
    S2[SP[a1, a3], a5, a1, a4, a2, n] - S2[SP[a1, a3], a5, a2, a1, a4, n] + 
    2*S2[SP[a1, a5], a1, a2, a3, a4, n] + 
    2*S2[SP[a1, a5], a1, a2, a4, a3, n] + 
    2*S2[SP[a1, a5], a1, a4, a2, a3, n] + S2[SP[a1, a5], a2, a1, a3, a4, n] + 
    S2[SP[a1, a5], a2, a1, a4, a3, n] + S2[SP[a1, a5], a2, a3, a1, a4, n] + 
    S2[SP[a1, a5], a4, a1, a2, a3, n] + S2[SP[a2, a3], a1, a5, a1, a4, n] - 
    2*S2[a5, a1, a1, a2, a3, a4, n] - 2*S2[a5, a1, a1, a2, a4, a3, n] - 
    2*S2[a5, a1, a1, a4, a2, a3, n] - S2[a5, a1, a2, a1, a3, a4, n] - 
    S2[a5, a1, a2, a1, a4, a3, n] - S2[a5, a1, a2, a3, a1, a4, n] - 
    S2[a5, a1, a4, a1, a2, a3, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a3_, a2_, a1_, a5_, a4_, a1_, n_] :> 
  S2[a1, a2, a3, n]*S2[a1, a4, a5, n] + S2[SP[a1, a1], SP[a2, a4], 
     SP[a3, a5], n] - 2*S2[a2, a3, n]*S2[a1, a1, a4, a5, n] - 
    S2[a1, a4, n]*S2[a1, a3, a2, a5, n] - S2[a1, a4, n]*
     S2[a1, a3, a5, a2, n] + S2[a1, a3, SP[a1, a2], SP[a4, a5], n] + 
    S2[a1, a3, SP[a1, a5], SP[a2, a4], n] - S2[a2, a3, n]*
     S2[a1, a4, a1, a5, n] + S2[a1, a4, SP[a1, a2], SP[a3, a5], n] - 
    S2[a1, a4, n]*S2[a1, a5, a3, a2, n] + S2[a1, a5, SP[a1, a3], SP[a2, a4], 
     n] + S2[a1, SP[a1, a2], a4, SP[a3, a5], n] + 
    S2[a1, SP[a1, a2], SP[a3, a4], a5, n] + S2[a1, SP[a1, a3], a2, 
     SP[a4, a5], n] + S2[a1, SP[a1, a3], a5, SP[a2, a4], n] + 
    S2[a1, SP[a1, a3], SP[a2, a4], a5, n] + S2[a1, SP[a1, a3], SP[a4, a5], 
     a2, n] - S2[a1, SP[a1, a4], a2, SP[a3, a5], n] - 
    S2[a1, SP[a1, a4], SP[a2, a5], a3, n] + S2[a1, SP[a1, a5], a3, 
     SP[a2, a4], n] + S2[a1, SP[a1, a5], SP[a3, a4], a2, n] + 
    S2[a1, SP[a2, a4], a1, SP[a3, a5], n] + S2[a1, SP[a2, a4], SP[a1, a3], 
     a5, n] + S2[a1, a4, n]*S2[a2, a3, a1, a5, n] - 
    S2[a2, a3, SP[a1, a1], SP[a4, a5], n] - S2[a2, SP[a1, a3], a1, 
     SP[a4, a5], n] - S2[a2, SP[a1, a3], SP[a1, a4], a5, n] - 
    S2[SP[a1, a1], a2, a4, SP[a3, a5], n] - S2[SP[a1, a1], a2, SP[a3, a4], 
     a5, n] + S2[SP[a1, a1], a3, a2, SP[a4, a5], n] + 
    S2[SP[a1, a1], a3, a5, SP[a2, a4], n] + S2[SP[a1, a1], a3, SP[a2, a4], 
     a5, n] + S2[SP[a1, a1], a3, SP[a4, a5], a2, n] - 
    S2[SP[a1, a1], a4, a2, SP[a3, a5], n] - S2[SP[a1, a1], a4, SP[a2, a5], 
     a3, n] + S2[SP[a1, a1], a5, a3, SP[a2, a4], n] + 
    S2[SP[a1, a1], a5, SP[a3, a4], a2, n] - S2[SP[a1, a1], SP[a2, a4], a3, 
     a5, n] - S2[SP[a1, a1], SP[a2, a4], a5, a3, n] + 
    S2[SP[a1, a1], SP[a3, a4], a2, a5, n] + S2[SP[a1, a1], SP[a3, a4], a5, 
     a2, n] + S2[SP[a1, a1], SP[a4, a5], a3, a2, n] + 
    2*S2[SP[a1, a2], a1, a4, SP[a3, a5], n] + 
    2*S2[SP[a1, a2], a1, SP[a3, a4], a5, n] - S2[SP[a1, a2], a3, a1, 
     SP[a4, a5], n] - S2[SP[a1, a2], a3, SP[a1, a4], a5, n] + 
    S2[SP[a1, a2], a4, a1, SP[a3, a5], n] + S2[SP[a1, a2], a4, SP[a1, a3], 
     a5, n] + 2*S2[SP[a1, a2], SP[a1, a3], a4, a5, n] - 
    2*S2[a5, n]*S2[a1, a1, a2, a3, a4, n] - 
    2*S2[a1, a1, a2, a3, SP[a4, a5], n] - 
    2*S2[a5, n]*S2[a1, a1, a2, a4, a3, n] - 
    2*S2[a1, a1, a2, a4, SP[a3, a5], n] + 
    2*S2[a3, n]*S2[a1, a1, a2, a5, a4, n] + 
    2*S2[a1, a1, a2, a5, SP[a3, a4], n] - 
    2*S2[a1, a1, a2, SP[a4, a5], a3, n] - 
    2*S2[a1, a1, a3, a2, SP[a4, a5], n] + 
    2*S2[a2, n]*S2[a1, a1, a3, a4, a5, n] + 
    2*S2[a1, a1, a3, a4, SP[a2, a5], n] - 
    2*S2[a1, a1, a3, a5, SP[a2, a4], n] - 
    2*S2[a1, a1, a3, SP[a4, a5], a2, n] - 
    2*S2[a5, n]*S2[a1, a1, a4, a2, a3, n] - 
    2*S2[a1, a1, a4, a2, SP[a3, a5], n] + 
    2*S2[a2, n]*S2[a1, a1, a4, a3, a5, n] + 
    2*S2[a1, a1, a4, a3, SP[a2, a5], n] + 
    2*S2[a2, n]*S2[a1, a1, a4, a5, a3, n] + 
    2*S2[a1, a1, a4, a5, SP[a2, a3], n] + 
    2*S2[a1, a1, a4, SP[a2, a3], a5, n] + 
    2*S2[a3, n]*S2[a1, a1, a5, a2, a4, n] + 
    2*S2[a1, a1, a5, a2, SP[a3, a4], n] - 
    2*S2[a1, a1, a5, a3, SP[a2, a4], n] + 
    2*S2[a3, n]*S2[a1, a1, a5, a4, a2, n] + 
    2*S2[a1, a1, a5, a4, SP[a2, a3], n] + 
    2*S2[a1, a1, a5, SP[a2, a3], a4, n] + 
    2*S2[a1, a1, SP[a2, a3], a4, a5, n] + 
    2*S2[a1, a1, SP[a2, a3], a5, a4, n] + 
    2*S2[a1, a1, SP[a2, a4], a3, a5, n] + 
    2*S2[a1, a1, SP[a2, a4], a5, a3, n] - 
    2*S2[a1, a1, SP[a2, a5], a3, a4, n] - 
    2*S2[a1, a1, SP[a2, a5], a4, a3, n] - 
    2*S2[a1, a1, SP[a3, a4], a2, a5, n] - 
    2*S2[a1, a1, SP[a3, a4], a5, a2, n] + 
    2*S2[a1, a1, SP[a3, a5], a2, a4, n] + 
    2*S2[a1, a1, SP[a3, a5], a4, a2, n] - 
    2*S2[a1, a1, SP[a4, a5], a2, a3, n] - 
    2*S2[a1, a1, SP[a4, a5], a3, a2, n] - 
    S2[a5, n]*S2[a1, a2, a1, a3, a4, n] - S2[a1, a2, a1, a3, SP[a4, a5], n] - 
    S2[a5, n]*S2[a1, a2, a1, a4, a3, n] - 
    2*S2[a1, a2, a1, a4, SP[a3, a5], n] + 
    S2[a3, n]*S2[a1, a2, a1, a5, a4, n] + S2[a1, a2, a1, a5, SP[a3, a4], n] - 
    S2[a1, a2, a1, SP[a3, a4], a5, n] - S2[a1, a2, a1, SP[a4, a5], a3, n] - 
    S2[a5, n]*S2[a1, a2, a3, a1, a4, n] + S2[a1, a2, a3, SP[a1, a4], a5, n] - 
    S2[a1, a2, a3, SP[a1, a5], a4, n] - S2[a1, a2, a4, a1, SP[a3, a5], n] - 
    S2[a1, a2, a4, SP[a1, a3], a5, n] + S2[a3, n]*S2[a1, a2, a5, a1, a4, n] + 
    S2[a1, a2, a5, a1, SP[a3, a4], n] + S2[a1, a2, a5, SP[a1, a3], a4, n] - 
    S2[a1, a2, SP[a1, a3], a4, a5, n] + S2[a1, a2, SP[a1, a3], a5, a4, n] - 
    S2[a1, a2, SP[a1, a5], a3, a4, n] - S2[a1, a2, SP[a1, a5], a4, a3, n] - 
    S2[a1, a3, a1, a2, SP[a4, a5], n] + S2[a2, n]*S2[a1, a3, a1, a4, a5, n] + 
    S2[a1, a3, a1, a4, SP[a2, a5], n] - S2[a2, n]*S2[a1, a3, a1, a5, a4, n] - 
    2*S2[a1, a3, a1, a5, SP[a2, a4], n] - S2[a1, a3, a1, SP[a2, a5], a4, n] - 
    S2[a1, a3, a1, SP[a4, a5], a2, n] - S2[a1, a3, a2, a1, SP[a4, a5], n] - 
    S2[a1, a3, a2, SP[a1, a5], a4, n] - S2[a1, a3, a5, a1, SP[a2, a4], n] - 
    S2[a1, a3, a5, SP[a1, a2], a4, n] - 2*S2[a1, a3, SP[a1, a2], a5, a4, n] - 
    S2[a1, a3, SP[a1, a5], a2, a4, n] - S2[a1, a3, SP[a1, a5], a4, a2, n] - 
    S2[a5, n]*S2[a1, a4, a1, a2, a3, n] - S2[a1, a4, a1, a2, SP[a3, a5], n] + 
    S2[a2, n]*S2[a1, a4, a1, a3, a5, n] + S2[a1, a4, a1, a3, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a4, a1, a5, a3, n] + S2[a1, a4, a1, a5, SP[a2, a3], n] + 
    S2[a1, a4, a1, SP[a2, a3], a5, n] - S2[a1, a4, a2, a1, SP[a3, a5], n] - 
    S2[a1, a4, a2, SP[a1, a3], a5, n] + S2[a3, n]*S2[a1, a5, a1, a2, a4, n] + 
    S2[a1, a5, a1, a2, SP[a3, a4], n] - S2[a1, a5, a1, a3, SP[a2, a4], n] + 
    S2[a3, n]*S2[a1, a5, a1, a4, a2, n] + S2[a1, a5, a1, a4, SP[a2, a3], n] + 
    S2[a1, a5, a1, SP[a2, a3], a4, n] + S2[a3, n]*S2[a1, a5, a2, a1, a4, n] + 
    S2[a1, a5, a2, a1, SP[a3, a4], n] + S2[a1, a5, a2, SP[a1, a3], a4, n] - 
    S2[a1, a5, a3, a1, SP[a2, a4], n] - S2[a1, a5, a3, SP[a1, a2], a4, n] + 
    S2[a1, a5, SP[a2, a3], a1, a4, n] + S2[a1, SP[a1, a2], a3, a4, a5, n] + 
    S2[a1, SP[a1, a2], a4, a3, a5, n] + S2[a1, SP[a1, a2], a4, a5, a3, n] - 
    S2[a1, SP[a1, a3], a2, a4, a5, n] + S2[a1, SP[a1, a3], a2, a5, a4, n] - 
    S2[a1, SP[a1, a3], a4, a2, a5, n] - S2[a1, SP[a1, a3], a4, a5, a2, n] + 
    S2[a1, SP[a1, a3], a5, a2, a4, n] + S2[a1, SP[a1, a3], a5, a4, a2, n] + 
    S2[a1, SP[a1, a4], a2, a3, a5, n] + S2[a1, SP[a1, a4], a2, a5, a3, n] - 
    S2[a1, SP[a1, a4], a3, a2, a5, n] - S2[a1, SP[a1, a4], a3, a5, a2, n] + 
    S2[a1, SP[a1, a4], a5, a2, a3, n] - S2[a1, SP[a1, a4], a5, a3, a2, n] - 
    2*S2[a1, SP[a1, a5], a2, a3, a4, n] - 
    2*S2[a1, SP[a1, a5], a2, a4, a3, n] - S2[a1, SP[a1, a5], a3, a2, a4, n] - 
    S2[a1, SP[a1, a5], a3, a4, a2, n] - 2*S2[a1, SP[a1, a5], a4, a2, a3, n] - 
    S2[a1, SP[a1, a5], a4, a3, a2, n] + S2[a1, SP[a2, a3], a1, a4, a5, n] + 
    S2[a1, SP[a2, a3], a5, a1, a4, n] - S2[a1, SP[a2, a5], a1, a3, a4, n] - 
    S2[a1, SP[a2, a5], a1, a4, a3, n] - S2[a1, SP[a2, a5], a3, a1, a4, n] + 
    S2[a1, SP[a3, a5], a1, a2, a4, n] + S2[a1, SP[a3, a5], a1, a4, a2, n] + 
    S2[a1, SP[a3, a5], a2, a1, a4, n] - S2[a1, SP[a4, a5], a1, a2, a3, n] - 
    2*S2[a2, a1, a1, a4, SP[a3, a5], n] - 
    2*S2[a2, a1, a1, SP[a3, a4], a5, n] + S2[a2, a1, a3, a1, SP[a4, a5], n] + 
    S2[a2, a1, a3, SP[a1, a4], a5, n] - S2[a2, a1, a4, a1, SP[a3, a5], n] - 
    S2[a2, a1, a4, SP[a1, a3], a5, n] - 2*S2[a2, a1, SP[a1, a3], a4, a5, n] + 
    2*S2[a2, a3, a1, a1, SP[a4, a5], n] + S2[a2, a3, a1, SP[a1, a4], a5, n] + 
    S2[a2, a3, a1, SP[a1, a5], a4, n] + S2[a2, a3, SP[a1, a1], a4, a5, n] + 
    S2[a2, a3, SP[a1, a1], a5, a4, n] - S2[a2, SP[a1, a3], a1, a4, a5, n] + 
    S2[a2, SP[a1, a3], a1, a5, a4, n] - 2*S2[a2, n]*
     S2[a3, a1, a1, a5, a4, n] - 2*S2[a3, a1, a1, a5, SP[a2, a4], n] - 
    2*S2[a3, a1, a1, SP[a2, a5], a4, n] - 
    S2[a2, n]*S2[a3, a1, a5, a1, a4, n] - S2[a3, a1, a5, a1, SP[a2, a4], n] - 
    S2[a3, a1, a5, SP[a1, a2], a4, n] - 2*S2[a3, a1, SP[a1, a2], a5, a4, n] - 
    S2[a3, a1, SP[a2, a5], a1, a4, n] + S2[a1, n]*S2[a3, a2, a1, a5, a4, n] + 
    S2[a3, a2, a1, a5, SP[a1, a4], n] + S2[a3, a2, a1, SP[a1, a5], a4, n] + 
    S2[a3, a2, SP[a1, a1], a5, a4, n] - S2[a3, SP[a1, a2], a1, a5, a4, n] - 
    S2[a3, SP[a1, a2], a5, a1, a4, n] + S2[a1, n]*S2[a5, a1, a2, a3, a4, n] + 
    S2[a5, a1, a2, a3, SP[a1, a4], n] + S2[a1, n]*S2[a5, a1, a2, a4, a3, n] + 
    S2[a5, a1, a2, a4, SP[a1, a3], n] + S2[a5, a1, a2, SP[a1, a3], a4, n] + 
    S2[a5, a1, a2, SP[a1, a4], a3, n] + S2[a1, n]*S2[a5, a1, a4, a2, a3, n] + 
    S2[a5, a1, a4, a2, SP[a1, a3], n] + S2[a5, a1, a4, SP[a1, a2], a3, n] + 
    S2[a5, a1, SP[a1, a2], a3, a4, n] + S2[a5, a1, SP[a1, a2], a4, a3, n] + 
    S2[a5, a1, SP[a1, a4], a2, a3, n] + S2[a1, n]*S2[a5, a4, a1, a2, a3, n] + 
    S2[a5, a4, a1, a2, SP[a1, a3], n] + S2[a5, a4, a1, SP[a1, a2], a3, n] + 
    S2[a5, a4, SP[a1, a1], a2, a3, n] + S2[a5, SP[a1, a1], a2, a3, a4, n] + 
    S2[a5, SP[a1, a1], a2, a4, a3, n] + S2[a5, SP[a1, a1], a4, a2, a3, n] + 
    S2[a5, SP[a1, a4], a1, a2, a3, n] + S2[SP[a1, a1], a2, a3, a4, a5, n] + 
    S2[SP[a1, a1], a2, a4, a3, a5, n] + S2[SP[a1, a1], a2, a4, a5, a3, n] - 
    S2[SP[a1, a1], a3, a2, a4, a5, n] - S2[SP[a1, a1], a3, a2, a5, a4, n] - 
    S2[SP[a1, a1], a3, a4, a2, a5, n] - S2[SP[a1, a1], a3, a4, a5, a2, n] - 
    S2[SP[a1, a1], a3, a5, a2, a4, n] - S2[SP[a1, a1], a3, a5, a4, a2, n] + 
    S2[SP[a1, a1], a4, a2, a3, a5, n] + S2[SP[a1, a1], a4, a2, a5, a3, n] - 
    S2[SP[a1, a1], a4, a3, a2, a5, n] - S2[SP[a1, a1], a4, a3, a5, a2, n] + 
    S2[SP[a1, a1], a4, a5, a2, a3, n] - S2[SP[a1, a1], a4, a5, a3, a2, n] - 
    S2[SP[a1, a1], a5, a3, a2, a4, n] - S2[SP[a1, a1], a5, a3, a4, a2, n] - 
    S2[SP[a1, a1], a5, a4, a3, a2, n] + 2*S2[SP[a1, a3], a1, a2, a5, a4, n] + 
    2*S2[SP[a1, a3], a1, a5, a2, a4, n] + 
    2*S2[SP[a1, a3], a1, a5, a4, a2, n] + 
    2*S2[SP[a1, a3], a2, a1, a5, a4, n] + S2[SP[a1, a3], a2, a5, a1, a4, n] + 
    S2[SP[a1, a3], a5, a1, a2, a4, n] + S2[SP[a1, a3], a5, a1, a4, a2, n] + 
    S2[SP[a1, a3], a5, a2, a1, a4, n] - S2[SP[a1, a5], a1, a2, a3, a4, n] - 
    S2[SP[a1, a5], a1, a2, a4, a3, n] - S2[SP[a1, a5], a1, a4, a2, a3, n] - 
    S2[SP[a1, a5], a2, a1, a3, a4, n] - S2[SP[a1, a5], a2, a1, a4, a3, n] - 
    S2[SP[a1, a5], a2, a3, a1, a4, n] - 2*S2[SP[a2, a3], a1, a1, a5, a4, n] - 
    S2[SP[a2, a3], a1, a5, a1, a4, n] - S2[a5, a1, a2, a3, a4, a1, n] - 
    S2[a5, a1, a2, a4, a1, a3, n] - S2[a5, a1, a2, a4, a3, a1, n] - 
    S2[a5, a1, a4, a1, a2, a3, n] - S2[a5, a1, a4, a2, a1, a3, n] - 
    S2[a5, a1, a4, a2, a3, a1, n] - 2*S2[a5, a4, a1, a1, a2, a3, n] - 
    S2[a5, a4, a1, a2, a1, a3, n] - S2[a5, a4, a1, a2, a3, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a3_, a2_, a4_, a1_, a1_, a5_, n_] :> 
  -(S2[a1, a1, a5, n]*S2[a2, a3, a4, n]) - S2[a1, a1, a5, n]*
     S2[a2, a4, a3, n] - S2[SP[a1, a2], SP[a1, a3], SP[a4, a5], n] - 
    S2[SP[a1, a2], SP[a1, a4], SP[a3, a5], n] + 
    S2[a2, a3, n]*S2[a1, a1, a4, a5, n] + S2[a2, a3, n]*
     S2[a1, a1, a5, a4, n] - S2[a1, a1, SP[a2, a4], SP[a3, a5], n] - 
    S2[a1, a1, SP[a2, a5], SP[a3, a4], n] + S2[a1, a2, SP[a1, a3], 
     SP[a4, a5], n] + S2[a1, a2, SP[a1, a4], SP[a3, a5], n] + 
    S2[a2, a3, n]*S2[a1, a4, a1, a5, n] - S2[a1, a5, n]*
     S2[a1, a4, a2, a3, n] + S2[a1, SP[a1, a2], a3, SP[a4, a5], n] - 
    S2[a1, SP[a1, a2], a5, SP[a3, a4], n] - S2[a1, SP[a1, a2], SP[a3, a4], 
     a5, n] + S2[a1, SP[a1, a2], SP[a4, a5], a3, n] + 
    S2[a1, SP[a1, a4], a2, SP[a3, a5], n] + S2[a1, SP[a1, a4], SP[a2, a5], 
     a3, n] - S2[a1, SP[a2, a4], a1, SP[a3, a5], n] - 
    S2[a1, SP[a2, a4], SP[a1, a3], a5, n] + S2[a2, a1, SP[a1, a3], 
     SP[a4, a5], n] + S2[a2, a1, SP[a1, a4], SP[a3, a5], n] + 
    S2[a2, SP[a1, a3], a1, SP[a4, a5], n] + S2[a2, SP[a1, a3], SP[a1, a4], 
     a5, n] + S2[a2, SP[a1, a4], a1, SP[a3, a5], n] + 
    S2[a2, SP[a1, a4], SP[a1, a3], a5, n] + S2[SP[a1, a1], a4, a2, 
     SP[a3, a5], n] + S2[SP[a1, a1], a4, SP[a2, a5], a3, n] + 
    S2[SP[a1, a1], SP[a4, a5], a2, a3, n] + S2[SP[a1, a2], a1, a3, 
     SP[a4, a5], n] - S2[SP[a1, a2], a1, a5, SP[a3, a4], n] - 
    S2[SP[a1, a2], a1, SP[a3, a4], a5, n] + S2[SP[a1, a2], a1, SP[a4, a5], 
     a3, n] + S2[SP[a1, a2], a3, a1, SP[a4, a5], n] + 
    S2[SP[a1, a2], a3, SP[a1, a4], a5, n] + S2[SP[a1, a2], SP[a1, a4], a3, 
     a5, n] + S2[SP[a1, a2], SP[a1, a4], a5, a3, n] - 
    S2[SP[a1, a2], SP[a3, a4], a1, a5, n] - S2[a1, a1, a2, a3, SP[a4, a5], 
     n] + S2[a1, a1, a2, a5, SP[a3, a4], n] + S2[a1, a1, a2, SP[a3, a4], a5, 
     n] - S2[a1, a1, a2, SP[a4, a5], a3, n] + 
    S2[a5, n]*S2[a1, a1, a4, a2, a3, n] + S2[a1, a1, a5, a2, SP[a3, a4], n] + 
    S2[a1, a1, a5, SP[a2, a4], a3, n] + S2[a1, a1, SP[a2, a4], a3, a5, n] + 
    S2[a1, a1, SP[a2, a4], a5, a3, n] - S2[a1, a1, SP[a4, a5], a2, a3, n] - 
    S2[a1, a2, a1, a3, SP[a4, a5], n] + S2[a1, a2, a1, a5, SP[a3, a4], n] + 
    S2[a1, a2, a1, SP[a3, a4], a5, n] - S2[a1, a2, a1, SP[a4, a5], a3, n] - 
    S2[a1, a2, a3, a1, SP[a4, a5], n] - S2[a1, a2, a3, SP[a1, a4], a5, n] - 
    S2[a1, a2, SP[a1, a4], a3, a5, n] - S2[a1, a2, SP[a1, a4], a5, a3, n] + 
    S2[a1, a2, SP[a3, a4], a1, a5, n] - S2[a1, SP[a1, a4], a2, a3, a5, n] - 
    S2[a1, SP[a1, a4], a2, a5, a3, n] - S2[a1, SP[a1, a4], a5, a2, a3, n] + 
    S2[a1, SP[a2, a4], a1, a3, a5, n] + S2[a1, SP[a2, a4], a1, a5, a3, n] + 
    S2[a1, SP[a2, a4], a3, a1, a5, n] - S2[a2, a1, a1, a3, SP[a4, a5], n] + 
    S2[a2, a1, a1, a5, SP[a3, a4], n] + S2[a2, a1, a1, SP[a3, a4], a5, n] - 
    S2[a2, a1, a1, SP[a4, a5], a3, n] - S2[a2, a1, a3, a1, SP[a4, a5], n] - 
    S2[a2, a1, a3, SP[a1, a4], a5, n] - S2[a2, a1, SP[a1, a4], a3, a5, n] - 
    S2[a2, a1, SP[a1, a4], a5, a3, n] + S2[a2, a1, SP[a3, a4], a1, a5, n] - 
    S2[a2, a3, a1, a1, SP[a4, a5], n] - S2[a2, a3, a1, SP[a1, a4], a5, n] - 
    S2[a2, a3, SP[a1, a4], a1, a5, n] + S2[a3, n]*S2[a2, a4, a1, a1, a5, n] - 
    S2[a2, SP[a1, a4], a1, a3, a5, n] - S2[a2, SP[a1, a4], a1, a5, a3, n] - 
    S2[a2, SP[a1, a4], a3, a1, a5, n] + S2[a2, SP[a3, a4], a1, a1, a5, n] - 
    S2[SP[a1, a1], a4, a2, a3, a5, n] - S2[SP[a1, a1], a4, a2, a5, a3, n] - 
    S2[SP[a1, a1], a4, a5, a2, a3, n] - S2[SP[a1, a1], a5, a4, a2, a3, n] + 
    S2[SP[a1, a5], a1, a4, a2, a3, n] + S2[SP[a2, a3], a4, a1, a1, a5, n] - 
    S2[a5, a1, a1, a4, a2, a3, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a3_, a2_, a4_, a1_, a5_, a1_, n_] :> 
  2*S2[a1, a1, a5, n]*S2[a2, a3, a4, n] + 2*S2[a1, a1, a5, n]*
     S2[a2, a4, a3, n] + 2*S2[SP[a1, a2], SP[a1, a3], SP[a4, a5], n] + 
    2*S2[SP[a1, a2], SP[a1, a4], SP[a3, a5], n] - 
    2*S2[a2, a3, n]*S2[a1, a1, a4, a5, n] - 2*S2[a2, a3, n]*
     S2[a1, a1, a5, a4, n] + 2*S2[a1, a1, SP[a2, a4], SP[a3, a5], n] + 
    2*S2[a1, a1, SP[a2, a5], SP[a3, a4], n] - 
    2*S2[a1, a2, SP[a1, a3], SP[a4, a5], n] - 
    2*S2[a1, a2, SP[a1, a4], SP[a3, a5], n] - 
    S2[a2, a3, n]*S2[a1, a4, a1, a5, n] + S2[a1, a5, n]*
     S2[a1, a4, a2, a3, n] - 2*S2[a1, SP[a1, a2], a3, SP[a4, a5], n] + 
    2*S2[a1, SP[a1, a2], a5, SP[a3, a4], n] + 
    2*S2[a1, SP[a1, a2], SP[a3, a4], a5, n] - 
    2*S2[a1, SP[a1, a2], SP[a4, a5], a3, n] - S2[a1, SP[a1, a4], a2, 
     SP[a3, a5], n] - S2[a1, SP[a1, a4], SP[a2, a5], a3, n] + 
    S2[a1, SP[a2, a4], a1, SP[a3, a5], n] + S2[a1, SP[a2, a4], SP[a1, a3], 
     a5, n] - 2*S2[a2, a1, SP[a1, a3], SP[a4, a5], n] - 
    2*S2[a2, a1, SP[a1, a4], SP[a3, a5], n] - 
    2*S2[a2, SP[a1, a3], a1, SP[a4, a5], n] - 
    2*S2[a2, SP[a1, a3], SP[a1, a4], a5, n] - 
    2*S2[a2, SP[a1, a4], a1, SP[a3, a5], n] - 
    2*S2[a2, SP[a1, a4], SP[a1, a3], a5, n] - S2[SP[a1, a1], a4, a2, 
     SP[a3, a5], n] - S2[SP[a1, a1], a4, SP[a2, a5], a3, n] - 
    S2[SP[a1, a1], SP[a4, a5], a2, a3, n] - 
    2*S2[SP[a1, a2], a1, a3, SP[a4, a5], n] + 
    2*S2[SP[a1, a2], a1, a5, SP[a3, a4], n] + 
    2*S2[SP[a1, a2], a1, SP[a3, a4], a5, n] - 
    2*S2[SP[a1, a2], a1, SP[a4, a5], a3, n] - 
    2*S2[SP[a1, a2], a3, a1, SP[a4, a5], n] - 
    2*S2[SP[a1, a2], a3, SP[a1, a4], a5, n] - S2[SP[a1, a2], a4, a1, 
     SP[a3, a5], n] - S2[SP[a1, a2], a4, SP[a1, a3], a5, n] - 
    2*S2[SP[a1, a2], SP[a1, a4], a3, a5, n] - 
    2*S2[SP[a1, a2], SP[a1, a4], a5, a3, n] + S2[SP[a1, a2], SP[a3, a4], a1, 
     a5, n] + 2*S2[a1, a1, a2, a3, SP[a4, a5], n] - 
    2*S2[a1, a1, a2, a5, SP[a3, a4], n] - 
    2*S2[a1, a1, a2, SP[a3, a4], a5, n] + 
    2*S2[a1, a1, a2, SP[a4, a5], a3, n] - 
    2*S2[a1, a1, a5, a2, SP[a3, a4], n] - 
    2*S2[a1, a1, a5, SP[a2, a4], a3, n] - 
    2*S2[a1, a1, SP[a2, a4], a3, a5, n] - 
    2*S2[a1, a1, SP[a2, a4], a5, a3, n] + 
    2*S2[a1, a1, SP[a4, a5], a2, a3, n] + 
    2*S2[a1, a2, a1, a3, SP[a4, a5], n] - 
    2*S2[a1, a2, a1, a5, SP[a3, a4], n] - 
    2*S2[a1, a2, a1, SP[a3, a4], a5, n] + 
    2*S2[a1, a2, a1, SP[a4, a5], a3, n] + 
    2*S2[a1, a2, a3, a1, SP[a4, a5], n] + 
    2*S2[a1, a2, a3, SP[a1, a4], a5, n] + S2[a1, a2, a4, a1, SP[a3, a5], n] + 
    S2[a1, a2, a4, SP[a1, a3], a5, n] + 2*S2[a1, a2, SP[a1, a4], a3, a5, n] + 
    2*S2[a1, a2, SP[a1, a4], a5, a3, n] - S2[a1, a2, SP[a3, a4], a1, a5, n] - 
    S2[a2, n]*S2[a1, a3, a4, a1, a5, n] - S2[a1, a3, a4, a1, SP[a2, a5], n] - 
    S2[a1, a3, a4, SP[a1, a2], a5, n] - S2[a1, a3, SP[a2, a4], a1, a5, n] + 
    S2[a3, n]*S2[a1, a4, a1, a2, a5, n] + S2[a1, a4, a1, a2, SP[a3, a5], n] - 
    S2[a2, n]*S2[a1, a4, a1, a3, a5, n] - S2[a1, a4, a1, a3, SP[a2, a5], n] + 
    S2[a3, n]*S2[a1, a4, a1, a5, a2, n] - 
    S2[a2, n]*S2[a1, a4, a1, a5, a3, n] - S2[a1, a4, a1, SP[a2, a5], a3, n] + 
    S2[a1, a4, a1, SP[a3, a5], a2, n] + S2[a3, n]*S2[a1, a4, a2, a1, a5, n] + 
    S2[a1, a4, a2, a1, SP[a3, a5], n] + S2[a1, a4, a2, SP[a1, a3], a5, n] - 
    S2[a2, n]*S2[a1, a4, a3, a1, a5, n] - S2[a1, a4, a3, a1, SP[a2, a5], n] - 
    S2[a1, a4, a3, SP[a1, a2], a5, n] - S2[a1, a4, SP[a1, a2], a3, a5, n] - 
    S2[a1, a4, SP[a1, a2], a5, a3, n] + S2[a1, a4, SP[a1, a3], a2, a5, n] + 
    S2[a1, a4, SP[a1, a3], a5, a2, n] + S2[a1, SP[a1, a4], a2, a3, a5, n] + 
    S2[a1, SP[a1, a4], a2, a5, a3, n] + S2[a1, SP[a1, a4], a5, a2, a3, n] + 
    S2[a1, SP[a1, a5], a4, a2, a3, n] - S2[a1, SP[a2, a3], a4, a1, a5, n] - 
    2*S2[a1, SP[a2, a4], a1, a3, a5, n] - 
    2*S2[a1, SP[a2, a4], a1, a5, a3, n] - 
    2*S2[a1, SP[a2, a4], a3, a1, a5, n] + S2[a1, SP[a3, a4], a1, a2, a5, n] + 
    S2[a1, SP[a3, a4], a1, a5, a2, n] + S2[a1, SP[a3, a4], a2, a1, a5, n] + 
    2*S2[a2, a1, a1, a3, SP[a4, a5], n] - 
    2*S2[a2, a1, a1, a5, SP[a3, a4], n] - 
    2*S2[a2, a1, a1, SP[a3, a4], a5, n] + 
    2*S2[a2, a1, a1, SP[a4, a5], a3, n] + 
    2*S2[a2, a1, a3, a1, SP[a4, a5], n] + 
    2*S2[a2, a1, a3, SP[a1, a4], a5, n] + S2[a2, a1, a4, a1, SP[a3, a5], n] + 
    S2[a2, a1, a4, SP[a1, a3], a5, n] + 2*S2[a2, a1, SP[a1, a4], a3, a5, n] + 
    2*S2[a2, a1, SP[a1, a4], a5, a3, n] - S2[a2, a1, SP[a3, a4], a1, a5, n] + 
    2*S2[a2, a3, a1, a1, SP[a4, a5], n] + 
    2*S2[a2, a3, a1, SP[a1, a4], a5, n] + 
    2*S2[a2, a3, SP[a1, a4], a1, a5, n] - 
    2*S2[a3, n]*S2[a2, a4, a1, a1, a5, n] + S2[a2, SP[a1, a3], a4, a1, a5, 
     n] + 2*S2[a2, SP[a1, a4], a1, a3, a5, n] + 
    2*S2[a2, SP[a1, a4], a1, a5, a3, n] + 
    2*S2[a2, SP[a1, a4], a3, a1, a5, n] - 
    2*S2[a2, SP[a3, a4], a1, a1, a5, n] - 
    S2[a2, n]*S2[a3, a1, a4, a1, a5, n] - S2[a3, a1, a4, a1, SP[a2, a5], n] - 
    S2[a3, a1, a4, SP[a1, a2], a5, n] - S2[a3, a1, SP[a2, a4], a1, a5, n] + 
    S2[a1, n]*S2[a3, a2, a4, a1, a5, n] + S2[a3, a2, a4, a1, SP[a1, a5], n] + 
    S2[a3, a2, a4, SP[a1, a1], a5, n] + S2[a3, a2, SP[a1, a4], a1, a5, n] - 
    S2[a1, n]*S2[a5, a1, a4, a2, a3, n] - S2[a5, a1, a4, a2, SP[a1, a3], n] - 
    S2[a5, a1, a4, SP[a1, a2], a3, n] - S2[a5, a1, SP[a1, a4], a2, a3, n] - 
    S2[a5, SP[a1, a1], a4, a2, a3, n] + S2[SP[a1, a1], a4, a2, a3, a5, n] + 
    S2[SP[a1, a1], a4, a2, a5, a3, n] + S2[SP[a1, a1], a4, a5, a2, a3, n] + 
    S2[SP[a1, a1], a5, a4, a2, a3, n] + S2[SP[a1, a3], a2, a4, a1, a5, n] + 
    S2[SP[a1, a3], a4, a1, a2, a5, n] + S2[SP[a1, a3], a4, a1, a5, a2, n] + 
    S2[SP[a1, a3], a4, a2, a1, a5, n] - S2[SP[a1, a5], a1, a4, a2, a3, n] - 
    S2[SP[a2, a3], a1, a4, a1, a5, n] - 2*S2[SP[a2, a3], a4, a1, a1, a5, n] + 
    2*S2[a5, a1, a1, a4, a2, a3, n] + S2[a5, a1, a4, a1, a2, a3, n] + 
    S2[a5, a1, a4, a2, a1, a3, n] + S2[a5, a1, a4, a2, a3, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a3_, a2_, a4_, a5_, a1_, a1_, n_] :> 
  -(S2[a1, a1, a5, n]*S2[a2, a3, a4, n]) - S2[a1, a1, a5, n]*
     S2[a2, a4, a3, n] - S2[SP[a1, a2], SP[a1, a3], SP[a4, a5], n] - 
    S2[SP[a1, a2], SP[a1, a4], SP[a3, a5], n] + 
    S2[a2, a3, n]*S2[a1, a1, a5, a4, n] - S2[a1, a1, SP[a2, a5], SP[a3, a4], 
     n] + S2[a1, a2, SP[a1, a3], SP[a4, a5], n] + S2[a1, a2, SP[a1, a4], 
     SP[a3, a5], n] + S2[a1, SP[a1, a2], a3, SP[a4, a5], n] + 
    S2[a1, SP[a1, a2], a4, SP[a3, a5], n] - S2[a1, SP[a1, a2], a5, 
     SP[a3, a4], n] + S2[a1, SP[a1, a2], SP[a4, a5], a3, n] + 
    S2[a2, a1, SP[a1, a3], SP[a4, a5], n] + S2[a2, a1, SP[a1, a4], 
     SP[a3, a5], n] + S2[a2, SP[a1, a3], a1, SP[a4, a5], n] + 
    S2[a2, SP[a1, a3], SP[a1, a4], a5, n] + S2[a2, SP[a1, a4], a1, 
     SP[a3, a5], n] + S2[a2, SP[a1, a4], SP[a1, a3], a5, n] + 
    S2[SP[a1, a2], a1, a3, SP[a4, a5], n] + S2[SP[a1, a2], a1, a4, 
     SP[a3, a5], n] - S2[SP[a1, a2], a1, a5, SP[a3, a4], n] + 
    S2[SP[a1, a2], a1, SP[a4, a5], a3, n] + S2[SP[a1, a2], a3, a1, 
     SP[a4, a5], n] + S2[SP[a1, a2], a3, SP[a1, a4], a5, n] + 
    S2[SP[a1, a2], a4, a1, SP[a3, a5], n] + S2[SP[a1, a2], a4, SP[a1, a3], 
     a5, n] + S2[SP[a1, a2], SP[a1, a3], a4, a5, n] + 
    S2[SP[a1, a2], SP[a1, a4], a3, a5, n] + S2[SP[a1, a2], SP[a1, a4], a5, 
     a3, n] - S2[a1, a1, a2, a3, SP[a4, a5], n] - 
    S2[a1, a1, a2, a4, SP[a3, a5], n] + S2[a1, a1, a2, a5, SP[a3, a4], n] - 
    S2[a1, a1, a2, SP[a4, a5], a3, n] + S2[a2, n]*S2[a1, a1, a3, a4, a5, n] + 
    S2[a1, a1, a3, a4, SP[a2, a5], n] + S2[a1, a1, a3, SP[a2, a4], a5, n] - 
    S2[a3, n]*S2[a1, a1, a4, a2, a5, n] - S2[a1, a1, a4, a2, SP[a3, a5], n] + 
    S2[a2, n]*S2[a1, a1, a4, a3, a5, n] + S2[a1, a1, a4, a3, SP[a2, a5], n] - 
    S2[a3, n]*S2[a1, a1, a4, a5, a2, n] + 
    S2[a2, n]*S2[a1, a1, a4, a5, a3, n] + S2[a1, a1, a4, SP[a2, a5], a3, n] - 
    S2[a1, a1, a4, SP[a3, a5], a2, n] + S2[a1, a1, a5, a2, SP[a3, a4], n] + 
    S2[a1, a1, a5, SP[a2, a4], a3, n] + S2[a1, a1, SP[a2, a3], a4, a5, n] + 
    S2[a1, a1, SP[a2, a4], a3, a5, n] + S2[a1, a1, SP[a2, a4], a5, a3, n] - 
    S2[a1, a1, SP[a3, a4], a2, a5, n] - S2[a1, a1, SP[a3, a4], a5, a2, n] - 
    S2[a1, a2, a1, a3, SP[a4, a5], n] - S2[a1, a2, a1, a4, SP[a3, a5], n] + 
    S2[a1, a2, a1, a5, SP[a3, a4], n] - S2[a1, a2, a1, SP[a4, a5], a3, n] - 
    S2[a1, a2, a3, a1, SP[a4, a5], n] - S2[a1, a2, a3, SP[a1, a4], a5, n] - 
    S2[a1, a2, a4, a1, SP[a3, a5], n] - S2[a1, a2, a4, SP[a1, a3], a5, n] - 
    S2[a1, a2, SP[a1, a3], a4, a5, n] - S2[a1, a2, SP[a1, a4], a3, a5, n] - 
    S2[a1, a2, SP[a1, a4], a5, a3, n] + S2[a2, n]*S2[a1, a3, a1, a4, a5, n] + 
    S2[a1, a3, a1, a4, SP[a2, a5], n] + S2[a1, a3, a1, SP[a2, a4], a5, n] - 
    (S2[a1, n]*S2[a1, a3, a2, a4, a5, n])/2 - 
    S2[a1, a3, a2, a4, SP[a1, a5], n]/2 - S2[a1, a3, a2, SP[a1, a4], a5, n]/
     2 + S2[a2, n]*S2[a1, a3, a4, a1, a5, n] + S2[a1, a3, a4, a1, SP[a2, a5], 
     n] + S2[a1, a3, a4, SP[a1, a2], a5, n] + 
    S2[a1, a3, SP[a1, a2], a4, a5, n]/2 + S2[a1, a3, SP[a2, a4], a1, a5, n] - 
    S2[a3, n]*S2[a1, a4, a1, a2, a5, n] - S2[a1, a4, a1, a2, SP[a3, a5], n] + 
    S2[a2, n]*S2[a1, a4, a1, a3, a5, n] + S2[a1, a4, a1, a3, SP[a2, a5], n] - 
    S2[a3, n]*S2[a1, a4, a1, a5, a2, n] + 
    S2[a2, n]*S2[a1, a4, a1, a5, a3, n] + S2[a1, a4, a1, SP[a2, a5], a3, n] - 
    S2[a1, a4, a1, SP[a3, a5], a2, n] - S2[a3, n]*S2[a1, a4, a2, a1, a5, n] - 
    S2[a1, a4, a2, a1, SP[a3, a5], n] - S2[a1, a4, a2, SP[a1, a3], a5, n] + 
    S2[a2, n]*S2[a1, a4, a3, a1, a5, n] + S2[a1, a4, a3, a1, SP[a2, a5], n] + 
    S2[a1, a4, a3, SP[a1, a2], a5, n] + S2[a1, a4, SP[a1, a2], a3, a5, n] + 
    S2[a1, a4, SP[a1, a2], a5, a3, n] - S2[a1, a4, SP[a1, a3], a2, a5, n] - 
    S2[a1, a4, SP[a1, a3], a5, a2, n] - (S2[a1, n]*S2[a1, a5, a4, a2, a3, n])/
     2 - S2[a1, a5, a4, a2, SP[a1, a3], n]/2 - 
    S2[a1, a5, a4, SP[a1, a2], a3, n]/2 - S2[a1, a5, SP[a1, a4], a2, a3, n]/
     2 - S2[a1, SP[a1, a3], a2, a4, a5, n]/2 - S2[a1, SP[a1, a3], a4, a2, a5, 
     n] - S2[a1, SP[a1, a3], a4, a5, a2, n] - 
    S2[a1, SP[a1, a5], a4, a2, a3, n]/2 + S2[a1, SP[a2, a3], a1, a4, a5, n] + 
    S2[a1, SP[a2, a3], a4, a1, a5, n] + S2[a1, SP[a2, a4], a1, a3, a5, n] + 
    S2[a1, SP[a2, a4], a1, a5, a3, n] + S2[a1, SP[a2, a4], a3, a1, a5, n] - 
    S2[a1, SP[a3, a4], a1, a2, a5, n] - S2[a1, SP[a3, a4], a1, a5, a2, n] - 
    S2[a1, SP[a3, a4], a2, a1, a5, n] - S2[a2, a1, a1, a3, SP[a4, a5], n] - 
    S2[a2, a1, a1, a4, SP[a3, a5], n] + S2[a2, a1, a1, a5, SP[a3, a4], n] - 
    S2[a2, a1, a1, SP[a4, a5], a3, n] - S2[a2, a1, a3, a1, SP[a4, a5], n] - 
    S2[a2, a1, a3, SP[a1, a4], a5, n] - S2[a2, a1, a4, a1, SP[a3, a5], n] - 
    S2[a2, a1, a4, SP[a1, a3], a5, n] - S2[a2, a1, SP[a1, a3], a4, a5, n] - 
    S2[a2, a1, SP[a1, a4], a3, a5, n] - S2[a2, a1, SP[a1, a4], a5, a3, n] - 
    S2[a2, a3, a1, a1, SP[a4, a5], n] - S2[a2, a3, a1, SP[a1, a4], a5, n] - 
    S2[a2, a3, SP[a1, a4], a1, a5, n] + S2[a3, n]*S2[a2, a4, a1, a1, a5, n] - 
    S2[a2, SP[a1, a3], a1, a4, a5, n] - S2[a2, SP[a1, a3], a4, a1, a5, n] - 
    S2[a2, SP[a1, a4], a1, a3, a5, n] - S2[a2, SP[a1, a4], a1, a5, a3, n] - 
    S2[a2, SP[a1, a4], a3, a1, a5, n] + S2[a2, SP[a3, a4], a1, a1, a5, n] + 
    S2[a2, n]*S2[a3, a1, a1, a4, a5, n] + S2[a3, a1, a1, a4, SP[a2, a5], n] + 
    S2[a3, a1, a1, SP[a2, a4], a5, n] - (S2[a1, n]*S2[a3, a1, a2, a4, a5, n])/
     2 - S2[a3, a1, a2, a4, SP[a1, a5], n]/2 - 
    S2[a3, a1, a2, SP[a1, a4], a5, n]/2 + 
    S2[a2, n]*S2[a3, a1, a4, a1, a5, n] + S2[a3, a1, a4, a1, SP[a2, a5], n] + 
    S2[a3, a1, a4, SP[a1, a2], a5, n] + S2[a3, a1, SP[a1, a2], a4, a5, n]/2 + 
    S2[a3, a1, SP[a2, a4], a1, a5, n] - (S2[a1, n]*S2[a3, a2, a1, a4, a5, n])/
     2 - S2[a3, a2, a1, a4, SP[a1, a5], n]/2 - 
    S2[a3, a2, a1, SP[a1, a4], a5, n]/2 - 
    (S2[a1, n]*S2[a3, a2, a4, a1, a5, n])/2 - 
    S2[a3, a2, a4, a1, SP[a1, a5], n]/2 + 
    (S2[a1, n]*S2[a3, a2, a4, a5, a1, n])/2 + 
    S2[a3, a2, a4, a5, SP[a1, a1], n]/2 - S2[a3, a2, a4, SP[a1, a1], a5, n]/
     2 + S2[a3, a2, a4, SP[a1, a5], a1, n]/2 - 
    S2[a3, a2, SP[a1, a1], a4, a5, n]/2 - S2[a3, a2, SP[a1, a4], a1, a5, n]/
     2 + S2[a3, a2, SP[a1, a4], a5, a1, n]/2 - 
    S2[a3, SP[a1, a1], a2, a4, a5, n]/2 + S2[a3, SP[a1, a2], a1, a4, a5, n]/
     2 + S2[a3, SP[a1, a2], a4, a1, a5, n]/2 + 
    S2[a3, SP[a1, a2], a4, a5, a1, n]/2 + 
    (S2[a1, n]*S2[a5, a1, a4, a2, a3, n])/2 + 
    S2[a5, a1, a4, a2, SP[a1, a3], n]/2 + S2[a5, a1, a4, SP[a1, a2], a3, n]/
     2 + S2[a5, a1, SP[a1, a4], a2, a3, n]/2 + 
    (S2[a1, n]*S2[a5, a4, a1, a2, a3, n])/2 + 
    S2[a5, a4, a1, a2, SP[a1, a3], n]/2 + S2[a5, a4, a1, SP[a1, a2], a3, n]/
     2 + (S2[a1, n]*S2[a5, a4, a2, a1, a3, n])/2 + 
    S2[a5, a4, a2, a1, SP[a1, a3], n]/2 + 
    (S2[a1, n]*S2[a5, a4, a2, a3, a1, n])/2 + 
    S2[a5, a4, a2, a3, SP[a1, a1], n]/2 + S2[a5, a4, a2, SP[a1, a1], a3, n]/
     2 + S2[a5, a4, a2, SP[a1, a3], a1, n]/2 + 
    S2[a5, a4, SP[a1, a1], a2, a3, n]/2 + S2[a5, a4, SP[a1, a2], a1, a3, n]/
     2 + S2[a5, a4, SP[a1, a2], a3, a1, n]/2 + 
    S2[a5, SP[a1, a1], a4, a2, a3, n]/2 + S2[a5, SP[a1, a4], a1, a2, a3, n]/
     2 + S2[a5, SP[a1, a4], a2, a1, a3, n]/2 + 
    S2[a5, SP[a1, a4], a2, a3, a1, n]/2 - S2[SP[a1, a1], a3, a2, a4, a5, n]/
     2 - S2[SP[a1, a1], a5, a4, a2, a3, n]/2 - 
    S2[SP[a1, a3], a1, a2, a4, a5, n]/2 - S2[SP[a1, a3], a1, a4, a2, a5, n] - 
    S2[SP[a1, a3], a1, a4, a5, a2, n] - S2[SP[a1, a3], a2, a1, a4, a5, n]/2 - 
    S2[SP[a1, a3], a2, a4, a1, a5, n]/2 + S2[SP[a1, a3], a2, a4, a5, a1, n]/
     2 - S2[SP[a1, a3], a4, a1, a2, a5, n] - S2[SP[a1, a3], a4, a1, a5, a2, 
     n] - S2[SP[a1, a3], a4, a2, a1, a5, n] + 
    S2[SP[a1, a5], a1, a4, a2, a3, n]/2 + S2[SP[a1, a5], a4, a1, a2, a3, n]/
     2 + S2[SP[a1, a5], a4, a2, a1, a3, n]/2 + 
    S2[SP[a1, a5], a4, a2, a3, a1, n]/2 + S2[SP[a2, a3], a1, a1, a4, a5, n] + 
    S2[SP[a2, a3], a1, a4, a1, a5, n] + S2[SP[a2, a3], a4, a1, a1, a5, n] - 
    S2[a5, a1, a1, a4, a2, a3, n] - S2[a5, a1, a4, a1, a2, a3, n] - 
    S2[a5, a1, a4, a2, a1, a3, n] - S2[a5, a1, a4, a2, a3, a1, n] - 
    S2[a5, a4, a1, a1, a2, a3, n] - S2[a5, a4, a1, a2, a1, a3, n] - 
    S2[a5, a4, a1, a2, a3, a1, n] - S2[a5, a4, a2, a1, a1, a3, n] - 
    S2[a5, a4, a2, a1, a3, a1, n] - S2[a5, a4, a2, a3, a1, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a3_, a2_, a5_, a1_, a1_, a4_, n_] :> 
  -(S2[a2, a3, n]*S2[a1, a1, a4, a5, n]) - S2[a2, a3, n]*
     S2[a1, a1, a5, a4, n] + S2[a1, a1, SP[a2, a4], SP[a3, a5], n] + 
    S2[a1, a1, SP[a2, a5], SP[a3, a4], n] - S2[a1, a4, n]*
     S2[a1, a3, a2, a5, n] - S2[a1, a4, n]*S2[a1, a3, a5, a2, n] + 
    S2[a1, a3, SP[a1, a2], SP[a4, a5], n] + S2[a1, a3, SP[a1, a5], 
     SP[a2, a4], n] - S2[a2, a3, n]*S2[a1, a4, a1, a5, n] + 
    S2[a1, a4, SP[a1, a2], SP[a3, a5], n] - S2[a1, a4, n]*
     S2[a1, a5, a3, a2, n] + S2[a1, a5, SP[a1, a3], SP[a2, a4], n] + 
    S2[a1, SP[a1, a2], a4, SP[a3, a5], n] + S2[a1, SP[a1, a2], a5, 
     SP[a3, a4], n] + S2[a1, SP[a1, a2], SP[a3, a4], a5, n] + 
    S2[a1, SP[a1, a2], SP[a3, a5], a4, n] + S2[a1, SP[a1, a3], a2, 
     SP[a4, a5], n] + S2[a1, SP[a1, a3], a5, SP[a2, a4], n] + 
    S2[a1, SP[a1, a3], SP[a2, a4], a5, n] + S2[a1, SP[a1, a3], SP[a4, a5], 
     a2, n] + S2[a1, SP[a1, a5], a3, SP[a2, a4], n] + 
    S2[a1, SP[a1, a5], SP[a3, a4], a2, n] + S2[a1, SP[a2, a4], a1, 
     SP[a3, a5], n] + S2[a1, SP[a2, a4], SP[a1, a3], a5, n] + 
    S2[a1, a4, n]*S2[a2, a3, a1, a5, n] - S2[a2, a3, SP[a1, a1], SP[a4, a5], 
     n] - S2[a2, SP[a1, a3], a1, SP[a4, a5], n] - 
    S2[a2, SP[a1, a3], SP[a1, a4], a5, n] + S2[SP[a1, a1], a3, a2, 
     SP[a4, a5], n] + S2[SP[a1, a1], a3, a5, SP[a2, a4], n] + 
    S2[SP[a1, a1], a3, SP[a2, a4], a5, n] + S2[SP[a1, a1], a3, SP[a4, a5], 
     a2, n] + S2[SP[a1, a1], a5, a3, SP[a2, a4], n] + 
    S2[SP[a1, a1], a5, SP[a3, a4], a2, n] + S2[SP[a1, a1], SP[a3, a4], a2, 
     a5, n] + S2[SP[a1, a1], SP[a3, a4], a5, a2, n] + 
    S2[SP[a1, a1], SP[a4, a5], a3, a2, n] + S2[SP[a1, a2], a1, a4, 
     SP[a3, a5], n] + S2[SP[a1, a2], a1, a5, SP[a3, a4], n] + 
    S2[SP[a1, a2], a1, SP[a3, a4], a5, n] + S2[SP[a1, a2], a1, SP[a3, a5], 
     a4, n] - S2[SP[a1, a2], a3, a1, SP[a4, a5], n] - 
    S2[SP[a1, a2], a3, SP[a1, a4], a5, n] + S2[SP[a1, a2], a4, a1, 
     SP[a3, a5], n] + S2[SP[a1, a2], a4, SP[a1, a3], a5, n] + 
    S2[SP[a1, a2], SP[a1, a3], a4, a5, n] + S2[SP[a1, a2], SP[a1, a3], a5, 
     a4, n] - S2[a1, a1, a2, a4, SP[a3, a5], n] - 
    S2[a1, a1, a2, a5, SP[a3, a4], n] - S2[a1, a1, a2, SP[a3, a4], a5, n] - 
    S2[a1, a1, a2, SP[a3, a5], a4, n] + S2[a5, n]*S2[a1, a1, a3, a2, a4, n] - 
    S2[a1, a1, a3, a2, SP[a4, a5], n] + S2[a5, n]*S2[a1, a1, a3, a4, a2, n] + 
    S2[a2, n]*S2[a1, a1, a3, a4, a5, n] + 
    2*S2[a1, a1, a3, a4, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a1, a3, a5, a4, n] - S2[a1, a1, a3, a5, SP[a2, a4], n] - 
    S2[a1, a1, a3, SP[a2, a4], a5, n] + 2*S2[a1, a1, a3, SP[a2, a5], a4, n] - 
    S2[a1, a1, a3, SP[a4, a5], a2, n] - S2[a1, a1, a4, a2, SP[a3, a5], n] + 
    S2[a5, n]*S2[a1, a1, a4, a3, a2, n] + 
    S2[a2, n]*S2[a1, a1, a4, a3, a5, n] + 
    2*S2[a1, a1, a4, a3, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a1, a4, a5, a3, n] + S2[a1, a1, a4, a5, SP[a2, a3], n] + 
    S2[a1, a1, a4, SP[a2, a3], a5, n] + S2[a1, a1, a4, SP[a3, a5], a2, n] - 
    S2[a1, a1, a5, a2, SP[a3, a4], n] + S2[a2, n]*S2[a1, a1, a5, a3, a4, n] - 
    S2[a1, a1, a5, a3, SP[a2, a4], n] + S2[a2, n]*S2[a1, a1, a5, a4, a3, n] + 
    S2[a1, a1, a5, a4, SP[a2, a3], n] + S2[a1, a1, a5, SP[a2, a3], a4, n] - 
    2*S2[a1, a1, a5, SP[a3, a4], a2, n] + S2[a1, a1, SP[a2, a3], a4, a5, n] + 
    S2[a1, a1, SP[a2, a3], a5, a4, n] - 2*S2[a1, a1, SP[a3, a4], a2, a5, n] - 
    2*S2[a1, a1, SP[a3, a4], a5, a2, n] + S2[a1, a1, SP[a3, a5], a2, a4, n] + 
    S2[a1, a1, SP[a3, a5], a4, a2, n] - S2[a1, a1, SP[a4, a5], a3, a2, n] - 
    S2[a1, a2, a1, a4, SP[a3, a5], n] - S2[a1, a2, a1, a5, SP[a3, a4], n] - 
    S2[a1, a2, a1, SP[a3, a4], a5, n] - S2[a1, a2, a1, SP[a3, a5], a4, n] + 
    S2[a1, a2, a3, a1, SP[a4, a5], n] + S2[a1, a2, a3, SP[a1, a4], a5, n] - 
    S2[a1, a2, a4, a1, SP[a3, a5], n] - S2[a1, a2, a4, SP[a1, a3], a5, n] - 
    S2[a1, a2, SP[a1, a3], a4, a5, n] - S2[a1, a2, SP[a1, a3], a5, a4, n] + 
    S2[a5, n]*S2[a1, a3, a1, a2, a4, n] + 
    S2[a5, n]*S2[a1, a3, a1, a4, a2, n] + S2[a1, a3, a1, a4, SP[a2, a5], n] - 
    S2[a1, a3, a1, a5, SP[a2, a4], n] - S2[a1, a3, a1, SP[a2, a4], a5, n] + 
    S2[a1, a3, a1, SP[a2, a5], a4, n] + S2[a5, n]*S2[a1, a3, a2, a1, a4, n] - 
    S2[a1, a3, a5, a1, SP[a2, a4], n] - S2[a1, a3, a5, SP[a1, a2], a4, n] - 
    S2[a1, a3, SP[a1, a2], a4, a5, n] - S2[a1, a3, SP[a1, a2], a5, a4, n] + 
    S2[a1, a3, SP[a2, a5], a1, a4, n] - S2[a1, a4, a1, a2, SP[a3, a5], n] + 
    S2[a2, n]*S2[a1, a4, a1, a3, a5, n] + S2[a1, a4, a1, a3, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a4, a1, a5, a3, n] + S2[a1, a4, a1, a5, SP[a2, a3], n] + 
    S2[a1, a4, a1, SP[a2, a3], a5, n] - S2[a1, a4, a2, a1, SP[a3, a5], n] - 
    S2[a1, a4, a2, SP[a1, a3], a5, n] - S2[a1, a5, a1, a3, SP[a2, a4], n] - 
    S2[a1, a5, a1, SP[a3, a4], a2, n] - S2[a1, a5, a3, a1, SP[a2, a4], n] - 
    S2[a1, a5, a3, SP[a1, a2], a4, n] - S2[a1, a5, SP[a1, a3], a2, a4, n] - 
    S2[a1, a5, SP[a1, a3], a4, a2, n] - S2[a1, SP[a1, a3], a2, a4, a5, n] - 
    S2[a1, SP[a1, a3], a2, a5, a4, n] - S2[a1, SP[a1, a3], a4, a2, a5, n] - 
    S2[a1, SP[a1, a3], a4, a5, a2, n] - S2[a1, SP[a1, a3], a5, a2, a4, n] - 
    S2[a1, SP[a1, a3], a5, a4, a2, n] - S2[a1, SP[a1, a4], a3, a2, a5, n] - 
    S2[a1, SP[a1, a4], a3, a5, a2, n] - S2[a1, SP[a1, a4], a5, a3, a2, n] + 
    S2[a1, SP[a3, a5], a1, a2, a4, n] + S2[a1, SP[a3, a5], a1, a4, a2, n] + 
    S2[a1, SP[a3, a5], a2, a1, a4, n] - S2[a2, a1, a1, a4, SP[a3, a5], n] - 
    S2[a2, a1, a1, a5, SP[a3, a4], n] - S2[a2, a1, a1, SP[a3, a4], a5, n] - 
    S2[a2, a1, a1, SP[a3, a5], a4, n] + S2[a2, a1, a3, a1, SP[a4, a5], n] + 
    S2[a2, a1, a3, SP[a1, a4], a5, n] - S2[a2, a1, a4, a1, SP[a3, a5], n] - 
    S2[a2, a1, a4, SP[a1, a3], a5, n] - S2[a2, a1, SP[a1, a3], a4, a5, n] - 
    S2[a2, a1, SP[a1, a3], a5, a4, n] - S2[a5, n]*S2[a2, a3, a1, a1, a4, n] + 
    S2[a2, a3, a1, a1, SP[a4, a5], n] + S2[a2, a3, a1, SP[a1, a4], a5, n] + 
    S2[a2, a3, SP[a1, a1], a4, a5, n] + S2[a2, a3, SP[a1, a1], a5, a4, n] - 
    S2[a2, a3, SP[a1, a5], a1, a4, n] + S2[a3, n]*S2[a2, a5, a1, a1, a4, n] + 
    S2[a2, a5, a1, a1, SP[a3, a4], n] + S2[a2, a5, a1, SP[a1, a3], a4, n] + 
    S2[a2, a5, SP[a1, a3], a1, a4, n] - S2[a2, n]*S2[a5, a1, a1, a3, a4, n] - 
    S2[a5, a1, a1, a3, SP[a2, a4], n] - S2[a2, n]*S2[a5, a1, a1, a4, a3, n] - 
    S2[a5, a1, a1, a4, SP[a2, a3], n] - S2[a5, a1, a1, SP[a2, a3], a4, n] - 
    S2[a5, a1, a1, SP[a2, a4], a3, n] - S2[a2, n]*S2[a5, a1, a3, a1, a4, n] - 
    S2[a5, a1, a3, a1, SP[a2, a4], n] - S2[a5, a1, a3, SP[a1, a2], a4, n] - 
    S2[a5, a1, SP[a1, a2], a3, a4, n] - S2[a5, a1, SP[a1, a2], a4, a3, n] - 
    S2[a5, a1, SP[a2, a3], a1, a4, n] - S2[a5, SP[a1, a2], a1, a3, a4, n] - 
    S2[a5, SP[a1, a2], a1, a4, a3, n] - S2[a5, SP[a1, a2], a3, a1, a4, n] - 
    S2[SP[a1, a1], a3, a2, a4, a5, n] - S2[SP[a1, a1], a3, a2, a5, a4, n] - 
    S2[SP[a1, a1], a3, a4, a2, a5, n] - S2[SP[a1, a1], a3, a4, a5, a2, n] - 
    S2[SP[a1, a1], a3, a5, a2, a4, n] - S2[SP[a1, a1], a3, a5, a4, a2, n] - 
    S2[SP[a1, a1], a4, a3, a2, a5, n] - S2[SP[a1, a1], a4, a3, a5, a2, n] - 
    S2[SP[a1, a1], a4, a5, a3, a2, n] - S2[SP[a1, a1], a5, a3, a2, a4, n] - 
    S2[SP[a1, a1], a5, a3, a4, a2, n] - S2[SP[a1, a1], a5, a4, a3, a2, n] + 
    S2[SP[a1, a5], a1, a3, a2, a4, n] + S2[SP[a1, a5], a1, a3, a4, a2, n] + 
    S2[SP[a1, a5], a1, a4, a3, a2, n] + S2[SP[a1, a5], a3, a1, a2, a4, n] + 
    S2[SP[a1, a5], a3, a1, a4, a2, n] + S2[SP[a1, a5], a3, a2, a1, a4, n] + 
    S2[SP[a2, a3], a5, a1, a1, a4, n] - S2[SP[a2, a5], a1, a1, a3, a4, n] - 
    S2[SP[a2, a5], a1, a1, a4, a3, n] - S2[SP[a2, a5], a1, a3, a1, a4, n] - 
    S2[SP[a2, a5], a3, a1, a1, a4, n] + S2[a5, a1, a1, a2, a3, a4, n] + 
    S2[a5, a1, a1, a2, a4, a3, n] + S2[a5, a1, a1, a4, a2, a3, n] + 
    S2[a5, a1, a2, a1, a3, a4, n] + S2[a5, a1, a2, a1, a4, a3, n] + 
    S2[a5, a1, a2, a3, a1, a4, n] + S2[a5, a2, a1, a1, a3, a4, n] + 
    S2[a5, a2, a1, a1, a4, a3, n] + S2[a5, a2, a1, a3, a1, a4, n] + 
    S2[a5, a2, a3, a1, a1, a4, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a3_, a2_, a5_, a1_, a4_, a1_, n_] :> 
  S2[a1, a4, n]*S2[a1, a3, a2, a5, n] + S2[a1, a4, n]*S2[a1, a3, a5, a2, n] - 
    S2[a1, a3, SP[a1, a2], SP[a4, a5], n] - S2[a1, a3, SP[a1, a5], 
     SP[a2, a4], n] + S2[a2, a3, n]*S2[a1, a4, a1, a5, n] - 
    S2[a1, a4, SP[a1, a2], SP[a3, a5], n] + S2[a1, a4, n]*
     S2[a1, a5, a3, a2, n] - S2[a1, a5, SP[a1, a3], SP[a2, a4], n] - 
    S2[a1, SP[a1, a3], a2, SP[a4, a5], n] - S2[a1, SP[a1, a3], a5, 
     SP[a2, a4], n] - S2[a1, SP[a1, a3], SP[a2, a4], a5, n] - 
    S2[a1, SP[a1, a3], SP[a4, a5], a2, n] - S2[a1, SP[a1, a5], a3, 
     SP[a2, a4], n] - S2[a1, SP[a1, a5], SP[a3, a4], a2, n] - 
    S2[a1, SP[a2, a4], a1, SP[a3, a5], n] - S2[a1, SP[a2, a4], SP[a1, a3], 
     a5, n] - S2[a1, a4, n]*S2[a2, a3, a1, a5, n] + 
    S2[a2, a3, SP[a1, a1], SP[a4, a5], n] + S2[a2, SP[a1, a3], a1, 
     SP[a4, a5], n] + S2[a2, SP[a1, a3], SP[a1, a4], a5, n] - 
    S2[SP[a1, a1], a3, a2, SP[a4, a5], n] - S2[SP[a1, a1], a3, a5, 
     SP[a2, a4], n] - S2[SP[a1, a1], a3, SP[a2, a4], a5, n] - 
    S2[SP[a1, a1], a3, SP[a4, a5], a2, n] - S2[SP[a1, a1], a5, a3, 
     SP[a2, a4], n] - S2[SP[a1, a1], a5, SP[a3, a4], a2, n] - 
    S2[SP[a1, a1], SP[a3, a4], a2, a5, n] - S2[SP[a1, a1], SP[a3, a4], a5, 
     a2, n] - S2[SP[a1, a1], SP[a4, a5], a3, a2, n] + 
    S2[SP[a1, a2], a3, a1, SP[a4, a5], n] + S2[SP[a1, a2], a3, SP[a1, a4], 
     a5, n] - S2[SP[a1, a2], a4, a1, SP[a3, a5], n] - 
    S2[SP[a1, a2], a4, SP[a1, a3], a5, n] - 
    2*S2[a5, n]*S2[a1, a1, a3, a2, a4, n] - 
    2*S2[a5, n]*S2[a1, a1, a3, a4, a2, n] - 
    2*S2[a1, a1, a3, a4, SP[a2, a5], n] + 
    2*S2[a1, a1, a3, a5, SP[a2, a4], n] + 
    2*S2[a1, a1, a3, SP[a2, a4], a5, n] - 
    2*S2[a1, a1, a3, SP[a2, a5], a4, n] - 
    2*S2[a5, n]*S2[a1, a1, a4, a3, a2, n] - 
    2*S2[a1, a1, a4, a3, SP[a2, a5], n] - 
    2*S2[a1, a1, a4, SP[a3, a5], a2, n] + 
    2*S2[a1, a1, a5, a3, SP[a2, a4], n] + 
    2*S2[a1, a1, a5, SP[a3, a4], a2, n] + 
    2*S2[a1, a1, SP[a3, a4], a2, a5, n] + 
    2*S2[a1, a1, SP[a3, a4], a5, a2, n] - 
    2*S2[a1, a1, SP[a3, a5], a2, a4, n] - 
    2*S2[a1, a1, SP[a3, a5], a4, a2, n] - S2[a1, a2, a3, a1, SP[a4, a5], n] - 
    S2[a1, a2, a3, SP[a1, a4], a5, n] + S2[a1, a2, a4, a1, SP[a3, a5], n] + 
    S2[a1, a2, a4, SP[a1, a3], a5, n] - 2*S2[a5, n]*
     S2[a1, a3, a1, a2, a4, n] - S2[a1, a3, a1, a2, SP[a4, a5], n] - 
    2*S2[a5, n]*S2[a1, a3, a1, a4, a2, n] + 
    S2[a2, n]*S2[a1, a3, a1, a4, a5, n] - S2[a1, a3, a1, a4, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a3, a1, a5, a4, n] + 
    2*S2[a1, a3, a1, a5, SP[a2, a4], n] + 
    2*S2[a1, a3, a1, SP[a2, a4], a5, n] - S2[a1, a3, a1, SP[a2, a5], a4, n] - 
    S2[a1, a3, a1, SP[a4, a5], a2, n] - 2*S2[a5, n]*
     S2[a1, a3, a2, a1, a4, n] - S2[a1, a3, a2, a1, SP[a4, a5], n] - 
    S2[a1, a3, a2, SP[a1, a5], a4, n] + S2[a1, a3, a5, a1, SP[a2, a4], n] + 
    S2[a1, a3, a5, SP[a1, a2], a4, n] + 2*S2[a1, a3, SP[a1, a2], a4, a5, n] + 
    2*S2[a1, a3, SP[a1, a2], a5, a4, n] - S2[a1, a3, SP[a1, a5], a2, a4, n] - 
    S2[a1, a3, SP[a1, a5], a4, a2, n] - 2*S2[a1, a3, SP[a2, a5], a1, a4, n] + 
    S2[a1, a4, a1, a2, SP[a3, a5], n] - S2[a2, n]*S2[a1, a4, a1, a3, a5, n] - 
    S2[a1, a4, a1, a3, SP[a2, a5], n] - S2[a2, n]*S2[a1, a4, a1, a5, a3, n] - 
    S2[a1, a4, a1, a5, SP[a2, a3], n] - S2[a1, a4, a1, SP[a2, a3], a5, n] + 
    S2[a1, a4, a2, a1, SP[a3, a5], n] + S2[a1, a4, a2, SP[a1, a3], a5, n] + 
    S2[a3, n]*S2[a1, a5, a1, a2, a4, n] + S2[a1, a5, a1, a2, SP[a3, a4], n] + 
    S2[a1, a5, a1, a3, SP[a2, a4], n] + S2[a3, n]*S2[a1, a5, a1, a4, a2, n] + 
    S2[a1, a5, a1, a4, SP[a2, a3], n] + S2[a1, a5, a1, SP[a2, a3], a4, n] + 
    2*S2[a1, a5, a1, SP[a3, a4], a2, n] + 
    S2[a3, n]*S2[a1, a5, a2, a1, a4, n] + S2[a1, a5, a2, a1, SP[a3, a4], n] + 
    S2[a1, a5, a2, SP[a1, a3], a4, n] + S2[a1, a5, a3, a1, SP[a2, a4], n] + 
    S2[a1, a5, a3, SP[a1, a2], a4, n] + 2*S2[a1, a5, SP[a1, a3], a2, a4, n] + 
    2*S2[a1, a5, SP[a1, a3], a4, a2, n] + S2[a1, a5, SP[a2, a3], a1, a4, n] + 
    S2[a1, SP[a1, a3], a2, a4, a5, n] + S2[a1, SP[a1, a3], a2, a5, a4, n] + 
    S2[a1, SP[a1, a3], a4, a2, a5, n] + S2[a1, SP[a1, a3], a4, a5, a2, n] + 
    S2[a1, SP[a1, a3], a5, a2, a4, n] + S2[a1, SP[a1, a3], a5, a4, a2, n] + 
    S2[a1, SP[a1, a4], a3, a2, a5, n] + S2[a1, SP[a1, a4], a3, a5, a2, n] + 
    S2[a1, SP[a1, a4], a5, a3, a2, n] - S2[a1, SP[a1, a5], a3, a2, a4, n] - 
    S2[a1, SP[a1, a5], a3, a4, a2, n] - S2[a1, SP[a1, a5], a4, a3, a2, n] + 
    S2[a1, SP[a2, a3], a1, a4, a5, n] + S2[a1, SP[a2, a3], a1, a5, a4, n] - 
    S2[a1, SP[a3, a5], a1, a2, a4, n] - S2[a1, SP[a3, a5], a1, a4, a2, n] - 
    S2[a1, SP[a3, a5], a2, a1, a4, n] - S2[a2, a1, a3, a1, SP[a4, a5], n] - 
    S2[a2, a1, a3, SP[a1, a4], a5, n] + S2[a2, a1, a4, a1, SP[a3, a5], n] + 
    S2[a2, a1, a4, SP[a1, a3], a5, n] + 2*S2[a5, n]*
     S2[a2, a3, a1, a1, a4, n] - S2[a2, a3, a1, SP[a1, a4], a5, n] + 
    S2[a2, a3, a1, SP[a1, a5], a4, n] - S2[a2, a3, SP[a1, a1], a4, a5, n] - 
    S2[a2, a3, SP[a1, a1], a5, a4, n] + 2*S2[a2, a3, SP[a1, a5], a1, a4, n] - 
    2*S2[a3, n]*S2[a2, a5, a1, a1, a4, n] - 
    2*S2[a2, a5, a1, a1, SP[a3, a4], n] - 
    2*S2[a2, a5, a1, SP[a1, a3], a4, n] - 
    2*S2[a2, a5, SP[a1, a3], a1, a4, n] - S2[a2, SP[a1, a3], a1, a4, a5, n] - 
    S2[a2, SP[a1, a3], a1, a5, a4, n] - S2[a2, n]*S2[a3, a1, a5, a1, a4, n] - 
    S2[a3, a1, a5, a1, SP[a2, a4], n] - S2[a3, a1, a5, SP[a1, a2], a4, n] - 
    S2[a3, a1, SP[a2, a5], a1, a4, n] + S2[a1, n]*S2[a3, a2, a5, a1, a4, n] + 
    S2[a3, a2, a5, a1, SP[a1, a4], n] + S2[a3, a2, a5, SP[a1, a1], a4, n] + 
    S2[a3, a2, SP[a1, a5], a1, a4, n] + 2*S2[a2, n]*
     S2[a5, a1, a1, a3, a4, n] + 2*S2[a5, a1, a1, a3, SP[a2, a4], n] + 
    2*S2[a2, n]*S2[a5, a1, a1, a4, a3, n] + 
    2*S2[a5, a1, a1, a4, SP[a2, a3], n] + 
    2*S2[a5, a1, a1, SP[a2, a3], a4, n] + 
    2*S2[a5, a1, a1, SP[a2, a4], a3, n] - 
    S2[a1, n]*S2[a5, a1, a2, a3, a4, n] - S2[a5, a1, a2, a3, SP[a1, a4], n] - 
    S2[a1, n]*S2[a5, a1, a2, a4, a3, n] - S2[a5, a1, a2, a4, SP[a1, a3], n] - 
    S2[a5, a1, a2, SP[a1, a3], a4, n] - S2[a5, a1, a2, SP[a1, a4], a3, n] + 
    2*S2[a2, n]*S2[a5, a1, a3, a1, a4, n] + 
    2*S2[a5, a1, a3, a1, SP[a2, a4], n] + 
    2*S2[a5, a1, a3, SP[a1, a2], a4, n] - 
    S2[a1, n]*S2[a5, a1, a4, a2, a3, n] - S2[a5, a1, a4, a2, SP[a1, a3], n] - 
    S2[a5, a1, a4, SP[a1, a2], a3, n] + S2[a5, a1, SP[a1, a2], a3, a4, n] + 
    S2[a5, a1, SP[a1, a2], a4, a3, n] - S2[a5, a1, SP[a1, a4], a2, a3, n] + 
    2*S2[a5, a1, SP[a2, a3], a1, a4, n] - 
    S2[a1, n]*S2[a5, a2, a1, a3, a4, n] - S2[a5, a2, a1, a3, SP[a1, a4], n] - 
    S2[a1, n]*S2[a5, a2, a1, a4, a3, n] - S2[a5, a2, a1, a4, SP[a1, a3], n] - 
    S2[a5, a2, a1, SP[a1, a3], a4, n] - S2[a5, a2, a1, SP[a1, a4], a3, n] - 
    S2[a1, n]*S2[a5, a2, a3, a1, a4, n] - S2[a5, a2, a3, a1, SP[a1, a4], n] - 
    S2[a5, a2, a3, SP[a1, a1], a4, n] - S2[a5, a2, SP[a1, a1], a3, a4, n] - 
    S2[a5, a2, SP[a1, a1], a4, a3, n] - S2[a5, a2, SP[a1, a3], a1, a4, n] - 
    S2[a5, SP[a1, a1], a2, a3, a4, n] - S2[a5, SP[a1, a1], a2, a4, a3, n] - 
    S2[a5, SP[a1, a1], a4, a2, a3, n] + S2[a5, SP[a1, a2], a1, a3, a4, n] + 
    S2[a5, SP[a1, a2], a1, a4, a3, n] + S2[a5, SP[a1, a2], a3, a1, a4, n] + 
    S2[SP[a1, a1], a3, a2, a4, a5, n] + S2[SP[a1, a1], a3, a2, a5, a4, n] + 
    S2[SP[a1, a1], a3, a4, a2, a5, n] + S2[SP[a1, a1], a3, a4, a5, a2, n] + 
    S2[SP[a1, a1], a3, a5, a2, a4, n] + S2[SP[a1, a1], a3, a5, a4, a2, n] + 
    S2[SP[a1, a1], a4, a3, a2, a5, n] + S2[SP[a1, a1], a4, a3, a5, a2, n] + 
    S2[SP[a1, a1], a4, a5, a3, a2, n] + S2[SP[a1, a1], a5, a3, a2, a4, n] + 
    S2[SP[a1, a1], a5, a3, a4, a2, n] + S2[SP[a1, a1], a5, a4, a3, a2, n] + 
    S2[SP[a1, a3], a2, a5, a1, a4, n] + S2[SP[a1, a3], a5, a1, a2, a4, n] + 
    S2[SP[a1, a3], a5, a1, a4, a2, n] + S2[SP[a1, a3], a5, a2, a1, a4, n] - 
    S2[SP[a1, a5], a1, a2, a3, a4, n] - S2[SP[a1, a5], a1, a2, a4, a3, n] - 
    2*S2[SP[a1, a5], a1, a3, a2, a4, n] - 
    2*S2[SP[a1, a5], a1, a3, a4, a2, n] - S2[SP[a1, a5], a1, a4, a2, a3, n] - 
    2*S2[SP[a1, a5], a1, a4, a3, a2, n] - S2[SP[a1, a5], a2, a1, a3, a4, n] - 
    S2[SP[a1, a5], a2, a1, a4, a3, n] - S2[SP[a1, a5], a2, a3, a1, a4, n] - 
    2*S2[SP[a1, a5], a3, a1, a2, a4, n] - 
    2*S2[SP[a1, a5], a3, a1, a4, a2, n] - 
    2*S2[SP[a1, a5], a3, a2, a1, a4, n] - S2[SP[a2, a3], a1, a5, a1, a4, n] - 
    2*S2[SP[a2, a3], a5, a1, a1, a4, n] + 
    2*S2[SP[a2, a5], a1, a1, a3, a4, n] + 
    2*S2[SP[a2, a5], a1, a1, a4, a3, n] + 
    2*S2[SP[a2, a5], a1, a3, a1, a4, n] + 
    2*S2[SP[a2, a5], a3, a1, a1, a4, n] + S2[a5, a1, a2, a3, a4, a1, n] + 
    S2[a5, a1, a2, a4, a1, a3, n] + S2[a5, a1, a2, a4, a3, a1, n] + 
    S2[a5, a1, a4, a1, a2, a3, n] + S2[a5, a1, a4, a2, a1, a3, n] + 
    S2[a5, a1, a4, a2, a3, a1, n] + S2[a5, a2, a1, a3, a4, a1, n] + 
    S2[a5, a2, a1, a4, a1, a3, n] + S2[a5, a2, a1, a4, a3, a1, n] + 
    S2[a5, a2, a3, a1, a4, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a3_, a2_, a5_, a4_, a1_, a1_, n_] :> 
  S2[a2, a3, n]*S2[a1, a1, a4, a5, n] - S2[a1, a1, SP[a2, a4], SP[a3, a5], 
     n] - S2[a1, SP[a1, a2], a4, SP[a3, a5], n] - 
    S2[a1, SP[a1, a2], SP[a3, a4], a5, n] - S2[SP[a1, a2], a1, a4, 
     SP[a3, a5], n] - S2[SP[a1, a2], a1, SP[a3, a4], a5, n] - 
    S2[SP[a1, a2], SP[a1, a3], a4, a5, n] + S2[a1, a1, a2, a4, SP[a3, a5], 
     n] + S2[a1, a1, a2, SP[a3, a4], a5, n] + 
    S2[a5, n]*S2[a1, a1, a3, a2, a4, n] + S2[a1, a1, a3, a2, SP[a4, a5], n] + 
    S2[a5, n]*S2[a1, a1, a3, a4, a2, n] - 
    S2[a2, n]*S2[a1, a1, a3, a4, a5, n] - S2[a1, a1, a3, SP[a2, a4], a5, n] + 
    S2[a1, a1, a3, SP[a2, a5], a4, n] + S2[a1, a1, a3, SP[a4, a5], a2, n] + 
    S2[a1, a1, a4, a2, SP[a3, a5], n] + S2[a5, n]*S2[a1, a1, a4, a3, a2, n] - 
    S2[a2, n]*S2[a1, a1, a4, a3, a5, n] - 
    S2[a2, n]*S2[a1, a1, a4, a5, a3, n] - S2[a1, a1, a4, a5, SP[a2, a3], n] - 
    S2[a1, a1, a4, SP[a2, a3], a5, n] + S2[a1, a1, a4, SP[a3, a5], a2, n] - 
    S2[a3, n]*S2[a1, a1, a5, a2, a4, n] - S2[a1, a1, a5, a2, SP[a3, a4], n] - 
    S2[a3, n]*S2[a1, a1, a5, a4, a2, n] - S2[a1, a1, a5, a4, SP[a2, a3], n] - 
    S2[a1, a1, a5, SP[a2, a3], a4, n] - S2[a1, a1, a5, SP[a3, a4], a2, n] - 
    S2[a1, a1, SP[a2, a3], a4, a5, n] + S2[a1, a1, SP[a4, a5], a3, a2, n] + 
    S2[a1, a2, a1, a4, SP[a3, a5], n] + S2[a1, a2, a1, SP[a3, a4], a5, n] + 
    S2[a1, a2, SP[a1, a3], a4, a5, n] + S2[a5, n]*S2[a1, a3, a1, a2, a4, n] + 
    S2[a1, a3, a1, a2, SP[a4, a5], n] + S2[a5, n]*S2[a1, a3, a1, a4, a2, n] - 
    S2[a2, n]*S2[a1, a3, a1, a4, a5, n] - S2[a1, a3, a1, SP[a2, a4], a5, n] + 
    S2[a1, a3, a1, SP[a2, a5], a4, n] + S2[a1, a3, a1, SP[a4, a5], a2, n] + 
    S2[a5, n]*S2[a1, a3, a2, a1, a4, n] + S2[a1, a3, a2, a1, SP[a4, a5], n] - 
    (S2[a1, n]*S2[a1, a3, a2, a5, a4, n])/2 - 
    S2[a1, a3, a2, a5, SP[a1, a4], n]/2 + S2[a1, a3, a2, SP[a1, a5], a4, n]/
     2 - S2[a1, a3, SP[a1, a2], a4, a5, n] - 
    S2[a1, a3, SP[a1, a2], a5, a4, n]/2 + S2[a1, a3, SP[a1, a5], a2, a4, n] + 
    S2[a1, a3, SP[a1, a5], a4, a2, n] + S2[a1, a3, SP[a2, a5], a1, a4, n] - 
    S2[a3, n]*S2[a1, a5, a1, a2, a4, n] - S2[a1, a5, a1, a2, SP[a3, a4], n] - 
    S2[a3, n]*S2[a1, a5, a1, a4, a2, n] - S2[a1, a5, a1, a4, SP[a2, a3], n] - 
    S2[a1, a5, a1, SP[a2, a3], a4, n] - S2[a1, a5, a1, SP[a3, a4], a2, n] - 
    S2[a3, n]*S2[a1, a5, a2, a1, a4, n] - S2[a1, a5, a2, a1, SP[a3, a4], n] + 
    (S2[a1, n]*S2[a1, a5, a2, a3, a4, n])/2 + 
    S2[a1, a5, a2, a3, SP[a1, a4], n]/2 + 
    (S2[a1, n]*S2[a1, a5, a2, a4, a3, n])/2 + 
    S2[a1, a5, a2, a4, SP[a1, a3], n]/2 - S2[a1, a5, a2, SP[a1, a3], a4, n]/
     2 + S2[a1, a5, a2, SP[a1, a4], a3, n]/2 + 
    (S2[a1, n]*S2[a1, a5, a4, a2, a3, n])/2 + 
    S2[a1, a5, a4, a2, SP[a1, a3], n]/2 + S2[a1, a5, a4, SP[a1, a2], a3, n]/
     2 + S2[a1, a5, SP[a1, a2], a3, a4, n]/2 + 
    S2[a1, a5, SP[a1, a2], a4, a3, n]/2 - S2[a1, a5, SP[a1, a3], a2, a4, n] - 
    S2[a1, a5, SP[a1, a3], a4, a2, n] + S2[a1, a5, SP[a1, a4], a2, a3, n]/2 - 
    S2[a1, a5, SP[a2, a3], a1, a4, n] - S2[a1, SP[a1, a3], a2, a5, a4, n]/2 - 
    S2[a1, SP[a1, a3], a5, a2, a4, n] - S2[a1, SP[a1, a3], a5, a4, a2, n] + 
    S2[a1, SP[a1, a5], a2, a3, a4, n]/2 + S2[a1, SP[a1, a5], a2, a4, a3, n]/
     2 + S2[a1, SP[a1, a5], a3, a2, a4, n] + S2[a1, SP[a1, a5], a3, a4, a2, 
     n] + S2[a1, SP[a1, a5], a4, a2, a3, n]/2 + S2[a1, SP[a1, a5], a4, a3, 
     a2, n] - S2[a1, SP[a2, a3], a1, a4, a5, n] + 
    S2[a2, a1, a1, a4, SP[a3, a5], n] + S2[a2, a1, a1, SP[a3, a4], a5, n] + 
    S2[a2, a1, SP[a1, a3], a4, a5, n] - S2[a5, n]*S2[a2, a3, a1, a1, a4, n] - 
    S2[a2, a3, a1, a1, SP[a4, a5], n] - S2[a2, a3, a1, SP[a1, a5], a4, n] - 
    S2[a2, a3, SP[a1, a5], a1, a4, n] + S2[a3, n]*S2[a2, a5, a1, a1, a4, n] + 
    S2[a2, a5, a1, a1, SP[a3, a4], n] + S2[a2, a5, a1, SP[a1, a3], a4, n] + 
    S2[a2, a5, SP[a1, a3], a1, a4, n] + S2[a2, SP[a1, a3], a1, a4, a5, n] + 
    S2[a2, n]*S2[a3, a1, a1, a5, a4, n] + S2[a3, a1, a1, a5, SP[a2, a4], n] + 
    S2[a3, a1, a1, SP[a2, a5], a4, n] - (S2[a1, n]*S2[a3, a1, a2, a5, a4, n])/
     2 - S2[a3, a1, a2, a5, SP[a1, a4], n]/2 - 
    S2[a3, a1, a2, SP[a1, a5], a4, n]/2 + 
    S2[a2, n]*S2[a3, a1, a5, a1, a4, n] + S2[a3, a1, a5, a1, SP[a2, a4], n] + 
    S2[a3, a1, a5, SP[a1, a2], a4, n] + S2[a3, a1, SP[a1, a2], a5, a4, n]/2 + 
    S2[a3, a1, SP[a2, a5], a1, a4, n] - (S2[a1, n]*S2[a3, a2, a1, a5, a4, n])/
     2 - S2[a3, a2, a1, a5, SP[a1, a4], n]/2 - 
    S2[a3, a2, a1, SP[a1, a5], a4, n]/2 - 
    (S2[a1, n]*S2[a3, a2, a5, a1, a4, n])/2 - 
    S2[a3, a2, a5, a1, SP[a1, a4], n]/2 + 
    (S2[a1, n]*S2[a3, a2, a5, a4, a1, n])/2 + 
    S2[a3, a2, a5, a4, SP[a1, a1], n]/2 - S2[a3, a2, a5, SP[a1, a1], a4, n]/
     2 + S2[a3, a2, a5, SP[a1, a4], a1, n]/2 - 
    S2[a3, a2, SP[a1, a1], a5, a4, n]/2 - S2[a3, a2, SP[a1, a5], a1, a4, n]/
     2 + S2[a3, a2, SP[a1, a5], a4, a1, n]/2 - 
    S2[a3, SP[a1, a1], a2, a5, a4, n]/2 + S2[a3, SP[a1, a2], a1, a5, a4, n]/
     2 + S2[a3, SP[a1, a2], a5, a1, a4, n]/2 + 
    S2[a3, SP[a1, a2], a5, a4, a1, n]/2 - 
    S2[a2, n]*S2[a5, a1, a1, a3, a4, n] - S2[a5, a1, a1, a3, SP[a2, a4], n] - 
    S2[a2, n]*S2[a5, a1, a1, a4, a3, n] - S2[a5, a1, a1, a4, SP[a2, a3], n] - 
    S2[a5, a1, a1, SP[a2, a3], a4, n] - S2[a5, a1, a1, SP[a2, a4], a3, n] + 
    (S2[a1, n]*S2[a5, a1, a2, a3, a4, n])/2 + 
    S2[a5, a1, a2, a3, SP[a1, a4], n]/2 + 
    (S2[a1, n]*S2[a5, a1, a2, a4, a3, n])/2 + 
    S2[a5, a1, a2, a4, SP[a1, a3], n]/2 + S2[a5, a1, a2, SP[a1, a3], a4, n]/
     2 + S2[a5, a1, a2, SP[a1, a4], a3, n]/2 - 
    S2[a2, n]*S2[a5, a1, a3, a1, a4, n] - S2[a5, a1, a3, a1, SP[a2, a4], n] - 
    S2[a5, a1, a3, SP[a1, a2], a4, n] + (S2[a1, n]*S2[a5, a1, a4, a2, a3, n])/
     2 + S2[a5, a1, a4, a2, SP[a1, a3], n]/2 + 
    S2[a5, a1, a4, SP[a1, a2], a3, n]/2 - S2[a5, a1, SP[a1, a2], a3, a4, n]/
     2 - S2[a5, a1, SP[a1, a2], a4, a3, n]/2 + 
    S2[a5, a1, SP[a1, a4], a2, a3, n]/2 - S2[a5, a1, SP[a2, a3], a1, a4, n] + 
    (S2[a1, n]*S2[a5, a2, a1, a3, a4, n])/2 + 
    S2[a5, a2, a1, a3, SP[a1, a4], n]/2 + 
    (S2[a1, n]*S2[a5, a2, a1, a4, a3, n])/2 + 
    S2[a5, a2, a1, a4, SP[a1, a3], n]/2 + S2[a5, a2, a1, SP[a1, a3], a4, n]/
     2 + S2[a5, a2, a1, SP[a1, a4], a3, n]/2 + 
    (S2[a1, n]*S2[a5, a2, a3, a1, a4, n])/2 + 
    S2[a5, a2, a3, a1, SP[a1, a4], n]/2 - 
    (S2[a1, n]*S2[a5, a2, a3, a4, a1, n])/2 - 
    S2[a5, a2, a3, a4, SP[a1, a1], n]/2 + S2[a5, a2, a3, SP[a1, a1], a4, n]/
     2 - S2[a5, a2, a3, SP[a1, a4], a1, n]/2 - 
    (S2[a1, n]*S2[a5, a2, a4, a1, a3, n])/2 - 
    S2[a5, a2, a4, a1, SP[a1, a3], n]/2 - 
    (S2[a1, n]*S2[a5, a2, a4, a3, a1, n])/2 - 
    S2[a5, a2, a4, a3, SP[a1, a1], n]/2 - S2[a5, a2, a4, SP[a1, a1], a3, n]/
     2 - S2[a5, a2, a4, SP[a1, a3], a1, n]/2 + 
    S2[a5, a2, SP[a1, a1], a3, a4, n]/2 + S2[a5, a2, SP[a1, a1], a4, a3, n]/
     2 + S2[a5, a2, SP[a1, a3], a1, a4, n]/2 - 
    S2[a5, a2, SP[a1, a3], a4, a1, n]/2 - S2[a5, a2, SP[a1, a4], a1, a3, n]/
     2 - S2[a5, a2, SP[a1, a4], a3, a1, n]/2 - 
    (S2[a1, n]*S2[a5, a4, a1, a2, a3, n])/2 - 
    S2[a5, a4, a1, a2, SP[a1, a3], n]/2 - S2[a5, a4, a1, SP[a1, a2], a3, n]/
     2 - (S2[a1, n]*S2[a5, a4, a2, a1, a3, n])/2 - 
    S2[a5, a4, a2, a1, SP[a1, a3], n]/2 - 
    (S2[a1, n]*S2[a5, a4, a2, a3, a1, n])/2 - 
    S2[a5, a4, a2, a3, SP[a1, a1], n]/2 - S2[a5, a4, a2, SP[a1, a1], a3, n]/
     2 - S2[a5, a4, a2, SP[a1, a3], a1, n]/2 - 
    S2[a5, a4, SP[a1, a1], a2, a3, n]/2 - S2[a5, a4, SP[a1, a2], a1, a3, n]/
     2 - S2[a5, a4, SP[a1, a2], a3, a1, n]/2 + 
    S2[a5, SP[a1, a1], a2, a3, a4, n]/2 + S2[a5, SP[a1, a1], a2, a4, a3, n]/
     2 + S2[a5, SP[a1, a1], a4, a2, a3, n]/2 - 
    S2[a5, SP[a1, a2], a1, a3, a4, n]/2 - S2[a5, SP[a1, a2], a1, a4, a3, n]/
     2 - S2[a5, SP[a1, a2], a3, a1, a4, n]/2 - 
    S2[a5, SP[a1, a2], a3, a4, a1, n]/2 - S2[a5, SP[a1, a2], a4, a1, a3, n]/
     2 - S2[a5, SP[a1, a2], a4, a3, a1, n]/2 - 
    S2[a5, SP[a1, a4], a1, a2, a3, n]/2 - S2[a5, SP[a1, a4], a2, a1, a3, n]/
     2 - S2[a5, SP[a1, a4], a2, a3, a1, n]/2 - 
    S2[SP[a1, a1], a3, a2, a5, a4, n]/2 + S2[SP[a1, a1], a5, a2, a3, a4, n]/
     2 + S2[SP[a1, a1], a5, a2, a4, a3, n]/2 + 
    S2[SP[a1, a1], a5, a4, a2, a3, n]/2 - S2[SP[a1, a3], a1, a2, a5, a4, n]/
     2 - S2[SP[a1, a3], a1, a5, a2, a4, n] - S2[SP[a1, a3], a1, a5, a4, a2, 
     n] - S2[SP[a1, a3], a2, a1, a5, a4, n]/2 - 
    S2[SP[a1, a3], a2, a5, a1, a4, n]/2 + S2[SP[a1, a3], a2, a5, a4, a1, n]/
     2 - S2[SP[a1, a3], a5, a1, a2, a4, n] - S2[SP[a1, a3], a5, a1, a4, a2, 
     n] - S2[SP[a1, a3], a5, a2, a1, a4, n] + 
    S2[SP[a1, a5], a1, a2, a3, a4, n]/2 + S2[SP[a1, a5], a1, a2, a4, a3, n]/
     2 + S2[SP[a1, a5], a1, a3, a2, a4, n] + S2[SP[a1, a5], a1, a3, a4, a2, 
     n] + S2[SP[a1, a5], a1, a4, a2, a3, n]/2 + S2[SP[a1, a5], a1, a4, a3, 
     a2, n] + S2[SP[a1, a5], a2, a1, a3, a4, n]/2 + 
    S2[SP[a1, a5], a2, a1, a4, a3, n]/2 + S2[SP[a1, a5], a2, a3, a1, a4, n]/
     2 - S2[SP[a1, a5], a2, a3, a4, a1, n]/2 - 
    S2[SP[a1, a5], a2, a4, a1, a3, n]/2 - S2[SP[a1, a5], a2, a4, a3, a1, n]/
     2 + S2[SP[a1, a5], a3, a1, a2, a4, n] + S2[SP[a1, a5], a3, a1, a4, a2, 
     n] + S2[SP[a1, a5], a3, a2, a1, a4, n] - 
    S2[SP[a1, a5], a4, a1, a2, a3, n]/2 - S2[SP[a1, a5], a4, a2, a1, a3, n]/
     2 - S2[SP[a1, a5], a4, a2, a3, a1, n]/2 + S2[SP[a2, a3], a1, a1, a5, a4, 
     n] + S2[SP[a2, a3], a1, a5, a1, a4, n] + S2[SP[a2, a3], a5, a1, a1, a4, 
     n] - S2[SP[a2, a5], a1, a1, a3, a4, n] - S2[SP[a2, a5], a1, a1, a4, a3, 
     n] - S2[SP[a2, a5], a1, a3, a1, a4, n] - S2[SP[a2, a5], a3, a1, a1, a4, 
     n] + S2[a5, a2, a3, a4, a1, a1, n] + S2[a5, a2, a4, a1, a1, a3, n] + 
    S2[a5, a2, a4, a1, a3, a1, n] + S2[a5, a2, a4, a3, a1, a1, n] + 
    S2[a5, a4, a1, a1, a2, a3, n] + S2[a5, a4, a1, a2, a1, a3, n] + 
    S2[a5, a4, a1, a2, a3, a1, n] + S2[a5, a4, a2, a1, a1, a3, n] + 
    S2[a5, a4, a2, a1, a3, a1, n] + S2[a5, a4, a2, a3, a1, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a3_, a4_, a1_, a1_, a2_, a5_, n_] :> 
  S2[a1, a2, a5, n]*S2[a1, a4, a3, n] + S2[SP[a1, a1], SP[a2, a4], 
     SP[a3, a5], n] + S2[a3, a4, n]*S2[a1, a1, a2, a5, n] - 
    S2[a2, a5, n]*S2[a1, a1, a4, a3, n] - S2[a1, a1, SP[a2, a3], SP[a4, a5], 
     n] - S2[a1, a1, SP[a2, a4], SP[a3, a5], n] - S2[a1, SP[a1, a3], a2, 
     SP[a4, a5], n] - S2[a1, SP[a1, a3], SP[a2, a4], a5, n] - 
    S2[a1, SP[a1, a4], a2, SP[a3, a5], n] - S2[a1, SP[a1, a4], SP[a2, a3], 
     a5, n] - S2[SP[a1, a1], a2, a4, SP[a3, a5], n] - 
    S2[SP[a1, a1], a2, SP[a4, a5], a3, n] - S2[SP[a1, a1], a4, a2, 
     SP[a3, a5], n] - S2[SP[a1, a1], a4, SP[a2, a3], a5, n] - 
    S2[SP[a1, a1], SP[a2, a4], a3, a5, n] - S2[SP[a1, a1], SP[a2, a4], a5, 
     a3, n] + S2[SP[a1, a2], a1, a4, SP[a3, a5], n] + 
    S2[SP[a1, a2], a1, SP[a4, a5], a3, n] + S2[SP[a1, a2], SP[a1, a5], a4, 
     a3, n] - S2[SP[a1, a3], a1, a2, SP[a4, a5], n] - 
    S2[SP[a1, a3], a1, SP[a2, a4], a5, n] - S2[SP[a1, a3], SP[a1, a4], a2, 
     a5, n] + S2[a1, a1, a2, a3, SP[a4, a5], n] - 
    S2[a5, n]*S2[a1, a1, a2, a4, a3, n] - 
    S2[a3, n]*S2[a1, a1, a2, a4, a5, n] - S2[a1, a1, a2, a4, SP[a3, a5], n] - 
    S2[a3, n]*S2[a1, a1, a2, a5, a4, n] - S2[a1, a1, a2, a5, SP[a3, a4], n] - 
    S2[a1, a1, a2, SP[a3, a4], a5, n] + S2[a1, a1, a3, a2, SP[a4, a5], n] + 
    S2[a1, a1, a3, SP[a2, a4], a5, n] - S2[a5, n]*S2[a1, a1, a4, a2, a3, n] - 
    S2[a3, n]*S2[a1, a1, a4, a2, a5, n] - S2[a1, a1, a4, a2, SP[a3, a5], n] - 
    S2[a5, n]*S2[a1, a1, a4, a3, a2, n] + 
    S2[a2, n]*S2[a1, a1, a4, a3, a5, n] + 
    S2[a2, n]*S2[a1, a1, a4, a5, a3, n] + S2[a1, a1, a4, a5, SP[a2, a3], n] + 
    S2[a1, a1, a4, SP[a2, a3], a5, n] - S2[a1, a1, a4, SP[a3, a5], a2, n] + 
    S2[a2, n]*S2[a1, a1, a5, a4, a3, n] + S2[a1, a1, a5, a4, SP[a2, a3], n] + 
    S2[a1, a1, a5, SP[a2, a4], a3, n] + 2*S2[a1, a1, SP[a2, a4], a3, a5, n] + 
    2*S2[a1, a1, SP[a2, a4], a5, a3, n] - S2[a1, a1, SP[a3, a4], a2, a5, n] - 
    S2[a1, a1, SP[a4, a5], a2, a3, n] - S2[a1, a1, SP[a4, a5], a3, a2, n] - 
    S2[a5, n]*S2[a1, a2, a1, a4, a3, n] - S2[a1, a2, a1, a4, SP[a3, a5], n] - 
    S2[a1, a2, a1, SP[a4, a5], a3, n] - S2[a1, a2, SP[a1, a5], a4, a3, n] + 
    S2[a1, a3, a1, a2, SP[a4, a5], n] + S2[a1, a3, a1, SP[a2, a4], a5, n] + 
    S2[a1, a3, SP[a1, a4], a2, a5, n] - S2[a3, n]*S2[a1, a4, a1, a2, a5, n] + 
    S2[a2, n]*S2[a1, a5, a1, a4, a3, n] + S2[a1, a5, a1, a4, SP[a2, a3], n] + 
    S2[a1, a5, a1, SP[a2, a4], a3, n] + S2[a1, a5, SP[a1, a2], a4, a3, n] + 
    S2[a1, SP[a1, a2], a4, a3, a5, n] + S2[a1, SP[a1, a2], a4, a5, a3, n] + 
    S2[a1, SP[a1, a2], a5, a4, a3, n] + S2[a1, SP[a1, a4], a2, a3, a5, n] + 
    S2[a1, SP[a1, a4], a2, a5, a3, n] + S2[a1, SP[a1, a4], a3, a2, a5, n] - 
    S2[a1, SP[a1, a5], a2, a4, a3, n] - S2[a1, SP[a1, a5], a4, a2, a3, n] - 
    S2[a1, SP[a1, a5], a4, a3, a2, n] - S2[a1, SP[a3, a4], a1, a2, a5, n] - 
    S2[a2, a1, a1, a4, SP[a3, a5], n] - S2[a2, a1, a1, SP[a4, a5], a3, n] - 
    S2[a2, a1, SP[a1, a5], a4, a3, n] - S2[a2, SP[a1, a5], a1, a4, a3, n] + 
    S2[a3, a1, a1, a2, SP[a4, a5], n] + S2[a3, a1, a1, SP[a2, a4], a5, n] + 
    S2[a3, a1, SP[a1, a4], a2, a5, n] + S2[a3, SP[a1, a4], a1, a2, a5, n] + 
    S2[a2, n]*S2[a5, a1, a1, a4, a3, n] + S2[a5, a1, a1, a4, SP[a2, a3], n] + 
    S2[a5, a1, a1, SP[a2, a4], a3, n] + S2[a5, a1, SP[a1, a2], a4, a3, n] + 
    S2[a5, SP[a1, a2], a1, a4, a3, n] + S2[SP[a1, a1], a2, a4, a3, a5, n] + 
    S2[SP[a1, a1], a2, a4, a5, a3, n] + S2[SP[a1, a1], a2, a5, a4, a3, n] + 
    S2[SP[a1, a1], a4, a2, a3, a5, n] + S2[SP[a1, a1], a4, a2, a5, a3, n] + 
    S2[SP[a1, a1], a4, a3, a2, a5, n] - S2[SP[a1, a5], a1, a2, a4, a3, n] - 
    S2[SP[a1, a5], a1, a4, a2, a3, n] - S2[SP[a1, a5], a1, a4, a3, a2, n] - 
    S2[SP[a1, a5], a2, a1, a4, a3, n] + S2[SP[a2, a5], a1, a1, a4, a3, n] - 
    S2[a5, a2, a1, a1, a4, a3, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a3_, a4_, a1_, a1_, a5_, a2_, n_] :> 
  S2[a1, a4, a3, n]*S2[a1, a5, a2, n] + S2[SP[a1, a1], SP[a4, a5], 
     SP[a2, a3], n] + S2[a2, a5, n]*S2[a1, a1, a4, a3, n] + 
    S2[a3, a4, n]*S2[a1, a1, a5, a2, n] - S2[a1, a1, SP[a2, a4], SP[a3, a5], 
     n] - S2[a1, a1, SP[a3, a5], SP[a2, a4], n] - 
    2*S2[a1, a1, SP[a4, a5], SP[a2, a3], n] - S2[a1, SP[a1, a2], a4, 
     SP[a3, a5], n] - S2[a1, SP[a1, a2], SP[a4, a5], a3, n] - 
    S2[a1, SP[a1, a3], a5, SP[a2, a4], n] - S2[a1, SP[a1, a3], SP[a4, a5], 
     a2, n] - S2[a1, SP[a1, a4], a5, SP[a2, a3], n] - 
    S2[a1, SP[a1, a4], SP[a3, a5], a2, n] - S2[a1, SP[a1, a5], a4, 
     SP[a2, a3], n] - S2[a1, SP[a1, a5], SP[a2, a4], a3, n] - 
    S2[SP[a1, a1], a4, a5, SP[a2, a3], n] - S2[SP[a1, a1], a4, SP[a3, a5], 
     a2, n] - S2[SP[a1, a1], a5, a4, SP[a2, a3], n] - 
    S2[SP[a1, a1], a5, SP[a2, a4], a3, n] - S2[SP[a1, a1], SP[a4, a5], a2, 
     a3, n] - S2[SP[a1, a1], SP[a4, a5], a3, a2, n] - 
    S2[SP[a1, a2], a1, a4, SP[a3, a5], n] - S2[SP[a1, a2], a1, SP[a4, a5], 
     a3, n] - S2[SP[a1, a2], SP[a1, a5], a4, a3, n] - 
    S2[SP[a1, a3], a1, a5, SP[a2, a4], n] - S2[SP[a1, a3], a1, SP[a4, a5], 
     a2, n] - S2[SP[a1, a3], SP[a1, a4], a5, a2, n] + 
    S2[a1, a1, a2, a4, SP[a3, a5], n] + S2[a1, a1, a2, SP[a4, a5], a3, n] + 
    S2[a1, a1, a3, a5, SP[a2, a4], n] + S2[a1, a1, a3, SP[a4, a5], a2, n] + 
    S2[a1, a1, a4, a2, SP[a3, a5], n] - S2[a2, n]*S2[a1, a1, a4, a3, a5, n] - 
    S2[a1, a1, a4, a3, SP[a2, a5], n] - S2[a3, n]*S2[a1, a1, a4, a5, a2, n] - 
    S2[a2, n]*S2[a1, a1, a4, a5, a3, n] - S2[a1, a1, a4, SP[a2, a5], a3, n] + 
    S2[a1, a1, a4, SP[a3, a5], a2, n] - S2[a3, n]*S2[a1, a1, a5, a2, a4, n] - 
    S2[a1, a1, a5, a2, SP[a3, a4], n] + S2[a1, a1, a5, a3, SP[a2, a4], n] - 
    S2[a3, n]*S2[a1, a1, a5, a4, a2, n] - 
    S2[a2, n]*S2[a1, a1, a5, a4, a3, n] + S2[a1, a1, a5, SP[a2, a4], a3, n] - 
    S2[a1, a1, a5, SP[a3, a4], a2, n] - S2[a1, a1, SP[a2, a5], a4, a3, n] - 
    S2[a1, a1, SP[a3, a4], a5, a2, n] + 2*S2[a1, a1, SP[a4, a5], a2, a3, n] + 
    2*S2[a1, a1, SP[a4, a5], a3, a2, n] + S2[a1, a2, a1, a4, SP[a3, a5], n] + 
    S2[a1, a2, a1, SP[a4, a5], a3, n] + S2[a1, a2, SP[a1, a5], a4, a3, n] + 
    S2[a1, a3, a1, a5, SP[a2, a4], n] + S2[a1, a3, a1, SP[a4, a5], a2, n] + 
    S2[a1, a3, SP[a1, a4], a5, a2, n] - S2[a3, n]*S2[a1, a4, a1, a5, a2, n] - 
    S2[a2, n]*S2[a1, a5, a1, a4, a3, n] + S2[a1, SP[a1, a4], a3, a5, a2, n] + 
    S2[a1, SP[a1, a4], a5, a2, a3, n] + S2[a1, SP[a1, a4], a5, a3, a2, n] + 
    S2[a1, SP[a1, a5], a2, a4, a3, n] + S2[a1, SP[a1, a5], a4, a2, a3, n] + 
    S2[a1, SP[a1, a5], a4, a3, a2, n] - S2[a1, SP[a2, a5], a1, a4, a3, n] - 
    S2[a1, SP[a3, a4], a1, a5, a2, n] + S2[a2, a1, a1, a4, SP[a3, a5], n] + 
    S2[a2, a1, a1, SP[a4, a5], a3, n] + S2[a2, a1, SP[a1, a5], a4, a3, n] + 
    S2[a2, SP[a1, a5], a1, a4, a3, n] + S2[a3, a1, a1, a5, SP[a2, a4], n] + 
    S2[a3, a1, a1, SP[a4, a5], a2, n] + S2[a3, a1, SP[a1, a4], a5, a2, n] + 
    S2[a3, SP[a1, a4], a1, a5, a2, n] - S2[a2, n]*S2[a5, a1, a1, a4, a3, n] - 
    S2[a5, a1, a1, a4, SP[a2, a3], n] - S2[a5, a1, a1, SP[a2, a4], a3, n] - 
    S2[a5, a1, SP[a1, a2], a4, a3, n] - S2[a5, SP[a1, a2], a1, a4, a3, n] + 
    S2[SP[a1, a1], a4, a3, a5, a2, n] + S2[SP[a1, a1], a4, a5, a2, a3, n] + 
    S2[SP[a1, a1], a4, a5, a3, a2, n] + S2[SP[a1, a1], a5, a2, a4, a3, n] + 
    S2[SP[a1, a1], a5, a4, a2, a3, n] + S2[SP[a1, a1], a5, a4, a3, a2, n] - 
    S2[SP[a2, a5], a1, a1, a4, a3, n] + S2[a5, a1, a1, a2, a4, a3, n] + 
    S2[a5, a1, a1, a4, a2, a3, n] + S2[a5, a1, a1, a4, a3, a2, n] + 
    S2[a5, a1, a2, a1, a4, a3, n] + S2[a5, a2, a1, a1, a4, a3, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a3_, a4_, a1_, a2_, a1_, a5_, n_] :> 
  -(S2[a1, a2, a5, n]*S2[a1, a4, a3, n]) - S2[a1, a4, a3, n]*
     S2[a1, a5, a2, n] - S2[SP[a1, a1], SP[a2, a4], SP[a3, a5], n] - 
    S2[SP[a1, a1], SP[a4, a5], SP[a2, a3], n] + 
    2*S2[a1, a1, SP[a2, a4], SP[a3, a5], n] + 
    2*S2[a1, a1, SP[a4, a5], SP[a2, a3], n] + 
    S2[a3, a4, n]*S2[a1, a2, a1, a5, n] + S2[a1, a5, n]*
     S2[a1, a2, a4, a3, n] - S2[a1, a2, SP[a1, a3], SP[a4, a5], n] - 
    S2[a1, a2, SP[a1, a4], SP[a3, a5], n] + S2[a1, a5, n]*
     S2[a1, a4, a2, a3, n] + S2[a1, a5, n]*S2[a1, a4, a3, a2, n] - 
    S2[a1, a4, SP[a1, a2], SP[a3, a5], n] - S2[a1, a4, SP[a1, a3], 
     SP[a2, a5], n] - S2[a1, SP[a1, a4], a3, SP[a2, a5], n] + 
    S2[a1, SP[a1, a4], a5, SP[a2, a3], n] + S2[a1, SP[a1, a4], SP[a2, a3], 
     a5, n] - S2[a1, SP[a1, a4], SP[a2, a5], a3, n] + 
    S2[a1, SP[a1, a5], a4, SP[a2, a3], n] + S2[a1, SP[a1, a5], SP[a2, a4], 
     a3, n] - S2[a1, SP[a2, a3], a1, SP[a4, a5], n] - 
    S2[a1, SP[a2, a3], SP[a1, a4], a5, n] - S2[SP[a1, a1], a4, a3, 
     SP[a2, a5], n] + S2[SP[a1, a1], a4, a5, SP[a2, a3], n] + 
    S2[SP[a1, a1], a4, SP[a2, a3], a5, n] - S2[SP[a1, a1], a4, SP[a2, a5], 
     a3, n] + S2[SP[a1, a1], a5, a4, SP[a2, a3], n] + 
    S2[SP[a1, a1], a5, SP[a2, a4], a3, n] + S2[SP[a1, a1], SP[a2, a4], a3, 
     a5, n] + S2[SP[a1, a1], SP[a2, a4], a5, a3, n] - 
    S2[SP[a1, a1], SP[a2, a5], a4, a3, n] - S2[SP[a1, a3], a2, a1, 
     SP[a4, a5], n] - S2[SP[a1, a3], a2, SP[a1, a4], a5, n] - 
    S2[SP[a1, a3], SP[a2, a4], a1, a5, n] + 
    2*S2[a1, a1, a4, a3, SP[a2, a5], n] - 
    2*S2[a1, a1, a4, a5, SP[a2, a3], n] - 
    2*S2[a1, a1, a4, SP[a2, a3], a5, n] + 
    2*S2[a1, a1, a4, SP[a2, a5], a3, n] - 
    2*S2[a1, a1, a5, a4, SP[a2, a3], n] - 
    2*S2[a1, a1, a5, SP[a2, a4], a3, n] - 
    2*S2[a1, a1, SP[a2, a4], a3, a5, n] - 
    2*S2[a1, a1, SP[a2, a4], a5, a3, n] + 
    2*S2[a1, a1, SP[a2, a5], a4, a3, n] + S2[a1, a2, a1, a3, SP[a4, a5], n] + 
    S2[a5, n]*S2[a1, a2, a1, a4, a3, n] - 
    S2[a3, n]*S2[a1, a2, a1, a4, a5, n] - 
    S2[a3, n]*S2[a1, a2, a1, a5, a4, n] - S2[a1, a2, a1, a5, SP[a3, a4], n] - 
    S2[a1, a2, a1, SP[a3, a4], a5, n] + S2[a1, a2, a1, SP[a4, a5], a3, n] + 
    S2[a1, a2, a3, a1, SP[a4, a5], n] + S2[a1, a2, a3, SP[a1, a4], a5, n] - 
    S2[a3, n]*S2[a1, a2, a4, a1, a5, n] + S2[a1, a2, SP[a1, a4], a3, a5, n] + 
    S2[a1, a2, SP[a1, a4], a5, a3, n] - S2[a1, a2, SP[a3, a4], a1, a5, n] + 
    S2[a1, a3, a2, a1, SP[a4, a5], n] + S2[a1, a3, a2, SP[a1, a4], a5, n] + 
    S2[a1, a3, SP[a2, a4], a1, a5, n] + S2[a1, a4, a1, a3, SP[a2, a5], n] - 
    S2[a1, a4, a1, a5, SP[a2, a3], n] - S2[a1, a4, a1, SP[a2, a3], a5, n] + 
    S2[a1, a4, a1, SP[a2, a5], a3, n] - S2[a3, n]*S2[a1, a4, a2, a1, a5, n] + 
    S2[a1, a4, a3, a1, SP[a2, a5], n] + S2[a1, a4, a3, SP[a1, a2], a5, n] + 
    S2[a1, a4, SP[a1, a2], a3, a5, n] + S2[a1, a4, SP[a1, a2], a5, a3, n] - 
    S2[a1, a4, SP[a2, a3], a1, a5, n] - S2[a1, a5, a1, a4, SP[a2, a3], n] - 
    S2[a1, a5, a1, SP[a2, a4], a3, n] - S2[a1, a5, SP[a1, a2], a4, a3, n] + 
    S2[a1, SP[a2, a5], a1, a4, a3, n] - S2[a1, SP[a3, a4], a2, a1, a5, n] + 
    S2[a3, a1, a2, a1, SP[a4, a5], n] + S2[a3, a1, a2, SP[a1, a4], a5, n] + 
    S2[a3, a1, SP[a2, a4], a1, a5, n] + S2[a3, SP[a1, a4], a2, a1, a5, n] + 
    S2[SP[a1, a5], a2, a1, a4, a3, n] - S2[a5, a1, a2, a1, a4, a3, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a3_, a4_, a1_, a2_, a5_, a1_, n_] :> 
  S2[a1, a4, a3, n]*S2[a1, a5, a2, n] + S2[SP[a1, a1], SP[a4, a5], 
     SP[a2, a3], n] - 2*S2[a3, a4, n]*S2[a1, a1, a2, a5, n] + 
    2*S2[a1, a1, SP[a2, a3], SP[a4, a5], n] - 
    2*S2[a1, a1, SP[a4, a5], SP[a2, a3], n] - 
    S2[a3, a4, n]*S2[a1, a2, a1, a5, n] - S2[a1, a5, n]*
     S2[a1, a2, a4, a3, n] + S2[a1, a2, SP[a1, a3], SP[a4, a5], n] + 
    S2[a1, a2, SP[a1, a4], SP[a3, a5], n] - S2[a1, a5, n]*
     S2[a1, a4, a2, a3, n] - S2[a1, a5, n]*S2[a1, a4, a3, a2, n] + 
    S2[a1, a4, SP[a1, a2], SP[a3, a5], n] + S2[a1, a4, SP[a1, a3], 
     SP[a2, a5], n] + S2[a1, SP[a1, a2], a4, SP[a3, a5], n] + 
    S2[a1, SP[a1, a2], SP[a4, a5], a3, n] + 
    2*S2[a1, SP[a1, a3], a2, SP[a4, a5], n] + 
    2*S2[a1, SP[a1, a3], SP[a2, a4], a5, n] + S2[a1, SP[a1, a4], a2, 
     SP[a3, a5], n] + S2[a1, SP[a1, a4], a3, SP[a2, a5], n] - 
    S2[a1, SP[a1, a4], a5, SP[a2, a3], n] + S2[a1, SP[a1, a4], SP[a2, a5], 
     a3, n] - S2[a1, SP[a1, a5], a4, SP[a2, a3], n] - 
    S2[a1, SP[a1, a5], SP[a2, a4], a3, n] + S2[a1, SP[a2, a3], a1, 
     SP[a4, a5], n] + S2[a1, SP[a2, a3], SP[a1, a4], a5, n] + 
    S2[SP[a1, a1], a2, a4, SP[a3, a5], n] + S2[SP[a1, a1], a2, SP[a4, a5], 
     a3, n] + S2[SP[a1, a1], a4, a2, SP[a3, a5], n] + 
    S2[SP[a1, a1], a4, a3, SP[a2, a5], n] - S2[SP[a1, a1], a4, a5, 
     SP[a2, a3], n] + S2[SP[a1, a1], a4, SP[a2, a5], a3, n] - 
    S2[SP[a1, a1], a5, a4, SP[a2, a3], n] - S2[SP[a1, a1], a5, SP[a2, a4], 
     a3, n] + S2[SP[a1, a1], SP[a2, a5], a4, a3, n] + 
    2*S2[SP[a1, a3], a1, a2, SP[a4, a5], n] + 
    2*S2[SP[a1, a3], a1, SP[a2, a4], a5, n] + S2[SP[a1, a3], a2, a1, 
     SP[a4, a5], n] + S2[SP[a1, a3], a2, SP[a1, a4], a5, n] + 
    2*S2[SP[a1, a3], SP[a1, a4], a2, a5, n] + S2[SP[a1, a3], SP[a2, a4], a1, 
     a5, n] - 2*S2[a1, a1, a2, a3, SP[a4, a5], n] + 
    2*S2[a3, n]*S2[a1, a1, a2, a4, a5, n] + 
    2*S2[a3, n]*S2[a1, a1, a2, a5, a4, n] + 
    2*S2[a1, a1, a2, a5, SP[a3, a4], n] + 
    2*S2[a1, a1, a2, SP[a3, a4], a5, n] - 
    2*S2[a1, a1, a2, SP[a4, a5], a3, n] - 
    2*S2[a1, a1, a3, a2, SP[a4, a5], n] - 
    2*S2[a1, a1, a3, SP[a2, a4], a5, n] + 
    2*S2[a3, n]*S2[a1, a1, a4, a2, a5, n] - 
    2*S2[a1, a1, a4, a3, SP[a2, a5], n] + 
    2*S2[a1, a1, a4, a5, SP[a2, a3], n] + 
    2*S2[a1, a1, a4, SP[a2, a3], a5, n] - 
    2*S2[a1, a1, a4, SP[a2, a5], a3, n] + 
    2*S2[a1, a1, a5, a4, SP[a2, a3], n] + 
    2*S2[a1, a1, a5, SP[a2, a4], a3, n] - 
    2*S2[a1, a1, SP[a2, a5], a4, a3, n] + 
    2*S2[a1, a1, SP[a3, a4], a2, a5, n] - S2[a1, a2, a1, a3, SP[a4, a5], n] + 
    S2[a3, n]*S2[a1, a2, a1, a4, a5, n] + 
    S2[a3, n]*S2[a1, a2, a1, a5, a4, n] + S2[a1, a2, a1, a5, SP[a3, a4], n] + 
    S2[a1, a2, a1, SP[a3, a4], a5, n] - S2[a1, a2, a1, SP[a4, a5], a3, n] - 
    S2[a1, a2, a3, a1, SP[a4, a5], n] - S2[a1, a2, a3, SP[a1, a4], a5, n] + 
    S2[a3, n]*S2[a1, a2, a4, a1, a5, n] - S2[a1, a2, SP[a1, a4], a3, a5, n] - 
    S2[a1, a2, SP[a1, a4], a5, a3, n] + S2[a1, a2, SP[a3, a4], a1, a5, n] - 
    2*S2[a1, a3, a1, a2, SP[a4, a5], n] - 
    2*S2[a1, a3, a1, SP[a2, a4], a5, n] - S2[a1, a3, a2, a1, SP[a4, a5], n] - 
    S2[a1, a3, a2, SP[a1, a4], a5, n] - 2*S2[a1, a3, SP[a1, a4], a2, a5, n] - 
    S2[a1, a3, SP[a2, a4], a1, a5, n] + S2[a3, n]*S2[a1, a4, a1, a2, a5, n] - 
    S2[a1, a4, a1, a3, SP[a2, a5], n] + S2[a1, a4, a1, a5, SP[a2, a3], n] + 
    S2[a1, a4, a1, SP[a2, a3], a5, n] - S2[a1, a4, a1, SP[a2, a5], a3, n] + 
    S2[a3, n]*S2[a1, a4, a2, a1, a5, n] - S2[a1, a4, a3, a1, SP[a2, a5], n] - 
    S2[a1, a4, a3, SP[a1, a2], a5, n] - S2[a1, a4, SP[a1, a2], a3, a5, n] - 
    S2[a1, a4, SP[a1, a2], a5, a3, n] + S2[a1, a4, SP[a2, a3], a1, a5, n] + 
    S2[a1, a5, a1, a4, SP[a2, a3], n] + S2[a1, a5, a1, SP[a2, a4], a3, n] + 
    S2[a1, a5, SP[a1, a2], a4, a3, n] - S2[a1, SP[a1, a2], a4, a3, a5, n] - 
    S2[a1, SP[a1, a2], a4, a5, a3, n] - S2[a1, SP[a1, a2], a5, a4, a3, n] - 
    S2[a1, SP[a1, a4], a2, a3, a5, n] - S2[a1, SP[a1, a4], a2, a5, a3, n] - 
    S2[a1, SP[a1, a4], a3, a2, a5, n] + S2[a1, SP[a3, a4], a1, a2, a5, n] + 
    S2[a1, SP[a3, a4], a2, a1, a5, n] - 2*S2[a3, a1, a1, a2, SP[a4, a5], n] - 
    2*S2[a3, a1, a1, SP[a2, a4], a5, n] - S2[a3, a1, a2, a1, SP[a4, a5], n] - 
    S2[a3, a1, a2, SP[a1, a4], a5, n] - 2*S2[a3, a1, SP[a1, a4], a2, a5, n] - 
    S2[a3, a1, SP[a2, a4], a1, a5, n] + S2[a1, n]*S2[a3, a4, a1, a2, a5, n] + 
    S2[a3, a4, a1, a2, SP[a1, a5], n] + S2[a3, a4, a1, SP[a1, a2], a5, n] + 
    S2[a3, a4, SP[a1, a1], a2, a5, n] - S2[a3, SP[a1, a4], a1, a2, a5, n] - 
    S2[a3, SP[a1, a4], a2, a1, a5, n] - S2[a1, n]*S2[a5, a2, a1, a4, a3, n] - 
    S2[a5, a2, a1, a4, SP[a1, a3], n] - S2[a5, a2, a1, SP[a1, a4], a3, n] - 
    S2[a5, a2, SP[a1, a1], a4, a3, n] - S2[a5, SP[a1, a2], a1, a4, a3, n] - 
    S2[SP[a1, a1], a2, a4, a3, a5, n] - S2[SP[a1, a1], a2, a4, a5, a3, n] - 
    S2[SP[a1, a1], a2, a5, a4, a3, n] - S2[SP[a1, a1], a4, a2, a3, a5, n] - 
    S2[SP[a1, a1], a4, a2, a5, a3, n] - S2[SP[a1, a1], a4, a3, a2, a5, n] - 
    S2[SP[a1, a5], a2, a1, a4, a3, n] + S2[a5, a1, a2, a1, a4, a3, n] + 
    2*S2[a5, a2, a1, a1, a4, a3, n] + S2[a5, a2, a1, a4, a1, a3, n] + 
    S2[a5, a2, a1, a4, a3, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a3_, a4_, a1_, a5_, a1_, a2_, n_] :> 
  -(S2[a1, a2, a5, n]*S2[a1, a4, a3, n]) - S2[a1, a4, a3, n]*
     S2[a1, a5, a2, n] - S2[SP[a1, a1], SP[a2, a4], SP[a3, a5], n] - 
    S2[SP[a1, a1], SP[a4, a5], SP[a2, a3], n] - 
    2*S2[a3, a4, n]*S2[a1, a1, a2, a5, n] - 2*S2[a3, a4, n]*
     S2[a1, a1, a5, a2, n] + 2*S2[a1, a1, SP[a2, a3], SP[a4, a5], n] + 
    2*S2[a1, a1, SP[a2, a4], SP[a3, a5], n] + 
    2*S2[a1, a1, SP[a3, a5], SP[a2, a4], n] + 
    2*S2[a1, a1, SP[a4, a5], SP[a2, a3], n] - 
    S2[a3, a4, n]*S2[a1, a2, a1, a5, n] + S2[a1, a2, SP[a1, a3], SP[a4, a5], 
     n] - S2[a1, a2, n]*S2[a1, a4, a3, a5, n] - 
    S2[a1, a2, n]*S2[a1, a4, a5, a3, n] + S2[a1, a4, SP[a1, a3], SP[a2, a5], 
     n] + S2[a1, a4, SP[a1, a5], SP[a2, a3], n] - 
    S2[a1, a2, n]*S2[a1, a5, a4, a3, n] + S2[a1, a5, SP[a1, a4], SP[a2, a3], 
     n] + S2[a1, SP[a1, a2], a4, SP[a3, a5], n] + 
    S2[a1, SP[a1, a2], SP[a4, a5], a3, n] + 
    2*S2[a1, SP[a1, a3], a2, SP[a4, a5], n] + 
    2*S2[a1, SP[a1, a3], a5, SP[a2, a4], n] + 
    2*S2[a1, SP[a1, a3], SP[a2, a4], a5, n] + 
    2*S2[a1, SP[a1, a3], SP[a4, a5], a2, n] + S2[a1, SP[a1, a4], a2, 
     SP[a3, a5], n] + S2[a1, SP[a1, a4], a3, SP[a2, a5], n] + 
    2*S2[a1, SP[a1, a4], a5, SP[a2, a3], n] + 
    2*S2[a1, SP[a1, a4], SP[a2, a3], a5, n] + S2[a1, SP[a1, a4], SP[a2, a5], 
     a3, n] + S2[a1, SP[a1, a4], SP[a3, a5], a2, n] + 
    2*S2[a1, SP[a1, a5], a4, SP[a2, a3], n] + 
    2*S2[a1, SP[a1, a5], SP[a2, a4], a3, n] + S2[a1, SP[a2, a3], a1, 
     SP[a4, a5], n] + S2[a1, SP[a2, a3], SP[a1, a4], a5, n] + 
    S2[a1, a2, n]*S2[a3, a4, a1, a5, n] - S2[a3, a4, SP[a1, a1], SP[a2, a5], 
     n] - S2[a3, SP[a1, a4], a1, SP[a2, a5], n] - 
    S2[a3, SP[a1, a4], SP[a1, a2], a5, n] + S2[SP[a1, a1], a2, a4, 
     SP[a3, a5], n] + S2[SP[a1, a1], a2, SP[a4, a5], a3, n] + 
    S2[SP[a1, a1], a4, a2, SP[a3, a5], n] + S2[SP[a1, a1], a4, a3, 
     SP[a2, a5], n] + 2*S2[SP[a1, a1], a4, a5, SP[a2, a3], n] + 
    2*S2[SP[a1, a1], a4, SP[a2, a3], a5, n] + S2[SP[a1, a1], a4, SP[a2, a5], 
     a3, n] + S2[SP[a1, a1], a4, SP[a3, a5], a2, n] + 
    2*S2[SP[a1, a1], a5, a4, SP[a2, a3], n] + 
    2*S2[SP[a1, a1], a5, SP[a2, a4], a3, n] + 
    2*S2[SP[a1, a1], SP[a2, a4], a3, a5, n] + 
    2*S2[SP[a1, a1], SP[a2, a4], a5, a3, n] + S2[SP[a1, a1], SP[a2, a5], a4, 
     a3, n] + S2[SP[a1, a1], SP[a4, a5], a2, a3, n] + 
    S2[SP[a1, a1], SP[a4, a5], a3, a2, n] + 
    2*S2[SP[a1, a3], a1, a2, SP[a4, a5], n] + 
    2*S2[SP[a1, a3], a1, a5, SP[a2, a4], n] + 
    2*S2[SP[a1, a3], a1, SP[a2, a4], a5, n] + 
    2*S2[SP[a1, a3], a1, SP[a4, a5], a2, n] + S2[SP[a1, a3], a2, a1, 
     SP[a4, a5], n] + S2[SP[a1, a3], a2, SP[a1, a4], a5, n] - 
    S2[SP[a1, a3], a4, a1, SP[a2, a5], n] - S2[SP[a1, a3], a4, SP[a1, a2], 
     a5, n] + 2*S2[SP[a1, a3], SP[a1, a4], a2, a5, n] + 
    2*S2[SP[a1, a3], SP[a1, a4], a5, a2, n] - 
    2*S2[a1, a1, a2, a3, SP[a4, a5], n] + 
    2*S2[a5, n]*S2[a1, a1, a2, a4, a3, n] + 
    2*S2[a3, n]*S2[a1, a1, a2, a4, a5, n] + 
    2*S2[a1, a1, a2, a4, SP[a3, a5], n] + 
    2*S2[a3, n]*S2[a1, a1, a2, a5, a4, n] + 
    2*S2[a1, a1, a2, a5, SP[a3, a4], n] + 
    2*S2[a1, a1, a2, SP[a3, a4], a5, n] - 
    2*S2[a1, a1, a3, a2, SP[a4, a5], n] - 
    2*S2[a1, a1, a3, a5, SP[a2, a4], n] - 
    2*S2[a1, a1, a3, SP[a2, a4], a5, n] - 
    2*S2[a1, a1, a3, SP[a4, a5], a2, n] + 
    2*S2[a5, n]*S2[a1, a1, a4, a2, a3, n] + 
    2*S2[a3, n]*S2[a1, a1, a4, a2, a5, n] + 
    2*S2[a1, a1, a4, a2, SP[a3, a5], n] + 
    2*S2[a5, n]*S2[a1, a1, a4, a3, a2, n] + 
    2*S2[a3, n]*S2[a1, a1, a4, a5, a2, n] - 
    2*S2[a1, a1, a4, a5, SP[a2, a3], n] - 
    2*S2[a1, a1, a4, SP[a2, a3], a5, n] + 
    2*S2[a1, a1, a4, SP[a3, a5], a2, n] + 
    2*S2[a3, n]*S2[a1, a1, a5, a2, a4, n] + 
    2*S2[a1, a1, a5, a2, SP[a3, a4], n] - 
    2*S2[a1, a1, a5, a3, SP[a2, a4], n] + 
    2*S2[a3, n]*S2[a1, a1, a5, a4, a2, n] - 
    2*S2[a1, a1, a5, a4, SP[a2, a3], n] - 
    4*S2[a1, a1, a5, SP[a2, a4], a3, n] + 
    2*S2[a1, a1, a5, SP[a3, a4], a2, n] - 
    4*S2[a1, a1, SP[a2, a4], a3, a5, n] - 
    4*S2[a1, a1, SP[a2, a4], a5, a3, n] + 
    2*S2[a1, a1, SP[a3, a4], a2, a5, n] + 
    2*S2[a1, a1, SP[a3, a4], a5, a2, n] - S2[a1, a2, a1, a3, SP[a4, a5], n] + 
    S2[a5, n]*S2[a1, a2, a1, a4, a3, n] + 
    S2[a3, n]*S2[a1, a2, a1, a4, a5, n] + S2[a1, a2, a1, a4, SP[a3, a5], n] + 
    S2[a3, n]*S2[a1, a2, a1, a5, a4, n] + S2[a1, a2, a1, a5, SP[a3, a4], n] + 
    S2[a1, a2, a1, SP[a3, a4], a5, n] - S2[a1, a2, a3, a1, SP[a4, a5], n] - 
    S2[a1, a2, a3, SP[a1, a4], a5, n] - 2*S2[a1, a3, a1, a2, SP[a4, a5], n] - 
    2*S2[a1, a3, a1, a5, SP[a2, a4], n] - 
    2*S2[a1, a3, a1, SP[a2, a4], a5, n] - 
    2*S2[a1, a3, a1, SP[a4, a5], a2, n] - S2[a1, a3, a2, a1, SP[a4, a5], n] - 
    S2[a1, a3, a2, SP[a1, a4], a5, n] + S2[a1, a3, a4, a1, SP[a2, a5], n] + 
    S2[a1, a3, a4, SP[a1, a2], a5, n] - 2*S2[a1, a3, SP[a1, a4], a2, a5, n] - 
    2*S2[a1, a3, SP[a1, a4], a5, a2, n] + 
    S2[a5, n]*S2[a1, a4, a1, a2, a3, n] + 
    S2[a3, n]*S2[a1, a4, a1, a2, a5, n] + S2[a1, a4, a1, a2, SP[a3, a5], n] + 
    S2[a5, n]*S2[a1, a4, a1, a3, a2, n] + 
    S2[a3, n]*S2[a1, a4, a1, a5, a2, n] - S2[a1, a4, a1, a5, SP[a2, a3], n] - 
    S2[a1, a4, a1, SP[a2, a3], a5, n] + S2[a1, a4, a1, SP[a3, a5], a2, n] + 
    S2[a5, n]*S2[a1, a4, a3, a1, a2, n] - S2[a1, a4, a5, a1, SP[a2, a3], n] - 
    S2[a1, a4, a5, SP[a1, a3], a2, n] - S2[a1, a4, SP[a1, a3], a2, a5, n] - 
    S2[a1, a4, SP[a1, a3], a5, a2, n] + S2[a1, a4, SP[a3, a5], a1, a2, n] - 
    2*S2[a1, a5, a1, a4, SP[a2, a3], n] - 
    2*S2[a1, a5, a1, SP[a2, a4], a3, n] - S2[a1, a5, a4, a1, SP[a2, a3], n] - 
    S2[a1, a5, a4, SP[a1, a3], a2, n] - S2[a1, a5, SP[a1, a2], a4, a3, n] - 
    S2[a1, a5, SP[a1, a4], a2, a3, n] - S2[a1, a5, SP[a1, a4], a3, a2, n] - 
    2*S2[a1, SP[a1, a2], a4, a3, a5, n] - 
    2*S2[a1, SP[a1, a2], a4, a5, a3, n] - 
    2*S2[a1, SP[a1, a2], a5, a4, a3, n] - 
    2*S2[a1, SP[a1, a4], a2, a3, a5, n] - 
    2*S2[a1, SP[a1, a4], a2, a5, a3, n] - 
    2*S2[a1, SP[a1, a4], a3, a2, a5, n] - 
    2*S2[a1, SP[a1, a4], a3, a5, a2, n] - 
    2*S2[a1, SP[a1, a4], a5, a2, a3, n] - 
    2*S2[a1, SP[a1, a4], a5, a3, a2, n] + S2[a1, SP[a2, a5], a1, a4, a3, n] + 
    S2[a1, SP[a3, a4], a1, a2, a5, n] + S2[a1, SP[a3, a4], a1, a5, a2, n] + 
    S2[a1, SP[a4, a5], a1, a2, a3, n] + S2[a1, SP[a4, a5], a1, a3, a2, n] + 
    S2[a1, SP[a4, a5], a3, a1, a2, n] - 2*S2[a3, a1, a1, a2, SP[a4, a5], n] - 
    2*S2[a3, a1, a1, a5, SP[a2, a4], n] - 
    2*S2[a3, a1, a1, SP[a2, a4], a5, n] - 
    2*S2[a3, a1, a1, SP[a4, a5], a2, n] - S2[a3, a1, a2, a1, SP[a4, a5], n] - 
    S2[a3, a1, a2, SP[a1, a4], a5, n] + S2[a3, a1, a4, a1, SP[a2, a5], n] + 
    S2[a3, a1, a4, SP[a1, a2], a5, n] - 2*S2[a3, a1, SP[a1, a4], a2, a5, n] - 
    2*S2[a3, a1, SP[a1, a4], a5, a2, n] + 
    2*S2[a3, a4, a1, a1, SP[a2, a5], n] + S2[a3, a4, a1, SP[a1, a2], a5, n] + 
    S2[a3, a4, a1, SP[a1, a5], a2, n] + S2[a3, a4, SP[a1, a1], a2, a5, n] + 
    S2[a3, a4, SP[a1, a1], a5, a2, n] - S2[a3, SP[a1, a4], a1, a2, a5, n] - 
    S2[a3, SP[a1, a4], a1, a5, a2, n] - 2*S2[SP[a1, a1], a2, a4, a3, a5, n] - 
    2*S2[SP[a1, a1], a2, a4, a5, a3, n] - 
    2*S2[SP[a1, a1], a2, a5, a4, a3, n] - 
    2*S2[SP[a1, a1], a4, a2, a3, a5, n] - 
    2*S2[SP[a1, a1], a4, a2, a5, a3, n] - 
    2*S2[SP[a1, a1], a4, a3, a2, a5, n] - 
    2*S2[SP[a1, a1], a4, a3, a5, a2, n] - 
    2*S2[SP[a1, a1], a4, a5, a2, a3, n] - 
    2*S2[SP[a1, a1], a4, a5, a3, a2, n] - 
    2*S2[SP[a1, a1], a5, a2, a4, a3, n] - 
    2*S2[SP[a1, a1], a5, a4, a2, a3, n] - 
    2*S2[SP[a1, a1], a5, a4, a3, a2, n] + 
    2*S2[SP[a1, a5], a1, a2, a4, a3, n] + 
    2*S2[SP[a1, a5], a1, a4, a2, a3, n] + 
    2*S2[SP[a1, a5], a1, a4, a3, a2, n] + S2[SP[a1, a5], a2, a1, a4, a3, n] + 
    S2[SP[a1, a5], a4, a1, a2, a3, n] + S2[SP[a1, a5], a4, a1, a3, a2, n] + 
    S2[SP[a1, a5], a4, a3, a1, a2, n] - 2*S2[a5, a1, a1, a2, a4, a3, n] - 
    2*S2[a5, a1, a1, a4, a2, a3, n] - 2*S2[a5, a1, a1, a4, a3, a2, n] - 
    S2[a5, a1, a2, a1, a4, a3, n] - S2[a5, a1, a4, a1, a2, a3, n] - 
    S2[a5, a1, a4, a1, a3, a2, n] - S2[a5, a1, a4, a3, a1, a2, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a3_, a4_, a1_, a5_, a2_, a1_, n_] :> 
  S2[a1, a2, a5, n]*S2[a1, a4, a3, n] + S2[SP[a1, a1], SP[a2, a4], 
     SP[a3, a5], n] + 2*S2[a3, a4, n]*S2[a1, a1, a2, a5, n] - 
    2*S2[a1, a1, SP[a2, a3], SP[a4, a5], n] - 
    2*S2[a1, a1, SP[a2, a4], SP[a3, a5], n] + 
    S2[a3, a4, n]*S2[a1, a2, a1, a5, n] - S2[a1, a2, SP[a1, a3], SP[a4, a5], 
     n] + S2[a1, a2, n]*S2[a1, a4, a3, a5, n] + 
    S2[a1, a2, n]*S2[a1, a4, a5, a3, n] - S2[a1, a4, SP[a1, a3], SP[a2, a5], 
     n] - S2[a1, a4, SP[a1, a5], SP[a2, a3], n] + 
    S2[a1, a2, n]*S2[a1, a5, a4, a3, n] - S2[a1, a5, SP[a1, a4], SP[a2, a3], 
     n] - S2[a1, SP[a1, a2], a4, SP[a3, a5], n] - 
    S2[a1, SP[a1, a2], SP[a4, a5], a3, n] - 
    2*S2[a1, SP[a1, a3], a2, SP[a4, a5], n] - 
    2*S2[a1, SP[a1, a3], SP[a2, a4], a5, n] - S2[a1, SP[a1, a4], a2, 
     SP[a3, a5], n] - S2[a1, SP[a1, a4], a3, SP[a2, a5], n] - 
    S2[a1, SP[a1, a4], a5, SP[a2, a3], n] - 
    2*S2[a1, SP[a1, a4], SP[a2, a3], a5, n] - S2[a1, SP[a1, a4], SP[a2, a5], 
     a3, n] - S2[a1, SP[a1, a5], a4, SP[a2, a3], n] - 
    S2[a1, SP[a1, a5], SP[a2, a4], a3, n] - S2[a1, SP[a2, a3], a1, 
     SP[a4, a5], n] - S2[a1, SP[a2, a3], SP[a1, a4], a5, n] - 
    S2[a1, a2, n]*S2[a3, a4, a1, a5, n] + S2[a3, a4, SP[a1, a1], SP[a2, a5], 
     n] + S2[a3, SP[a1, a4], a1, SP[a2, a5], n] + 
    S2[a3, SP[a1, a4], SP[a1, a2], a5, n] - S2[SP[a1, a1], a2, a4, 
     SP[a3, a5], n] - S2[SP[a1, a1], a2, SP[a4, a5], a3, n] - 
    S2[SP[a1, a1], a4, a2, SP[a3, a5], n] - S2[SP[a1, a1], a4, a3, 
     SP[a2, a5], n] - S2[SP[a1, a1], a4, a5, SP[a2, a3], n] - 
    2*S2[SP[a1, a1], a4, SP[a2, a3], a5, n] - S2[SP[a1, a1], a4, SP[a2, a5], 
     a3, n] - S2[SP[a1, a1], a5, a4, SP[a2, a3], n] - 
    S2[SP[a1, a1], a5, SP[a2, a4], a3, n] - 
    2*S2[SP[a1, a1], SP[a2, a4], a3, a5, n] - 
    2*S2[SP[a1, a1], SP[a2, a4], a5, a3, n] - S2[SP[a1, a1], SP[a2, a5], a4, 
     a3, n] - 2*S2[SP[a1, a3], a1, a2, SP[a4, a5], n] - 
    2*S2[SP[a1, a3], a1, SP[a2, a4], a5, n] - S2[SP[a1, a3], a2, a1, 
     SP[a4, a5], n] - S2[SP[a1, a3], a2, SP[a1, a4], a5, n] + 
    S2[SP[a1, a3], a4, a1, SP[a2, a5], n] + S2[SP[a1, a3], a4, SP[a1, a2], 
     a5, n] - 2*S2[SP[a1, a3], SP[a1, a4], a2, a5, n] + 
    2*S2[a1, a1, a2, a3, SP[a4, a5], n] - 
    2*S2[a5, n]*S2[a1, a1, a2, a4, a3, n] - 
    2*S2[a3, n]*S2[a1, a1, a2, a4, a5, n] - 
    2*S2[a1, a1, a2, a4, SP[a3, a5], n] - 
    2*S2[a3, n]*S2[a1, a1, a2, a5, a4, n] - 
    2*S2[a1, a1, a2, a5, SP[a3, a4], n] - 
    2*S2[a1, a1, a2, SP[a3, a4], a5, n] + 
    2*S2[a1, a1, a3, a2, SP[a4, a5], n] + 
    2*S2[a1, a1, a3, SP[a2, a4], a5, n] - 
    2*S2[a5, n]*S2[a1, a1, a4, a2, a3, n] - 
    2*S2[a3, n]*S2[a1, a1, a4, a2, a5, n] - 
    2*S2[a1, a1, a4, a2, SP[a3, a5], n] - 
    2*S2[a5, n]*S2[a1, a1, a4, a3, a2, n] + 
    2*S2[a1, a1, a4, a5, SP[a2, a3], n] + 
    2*S2[a1, a1, a4, SP[a2, a3], a5, n] - 
    2*S2[a1, a1, a4, SP[a3, a5], a2, n] + 
    2*S2[a1, a1, a5, a4, SP[a2, a3], n] + 
    2*S2[a1, a1, a5, SP[a2, a4], a3, n] + 
    4*S2[a1, a1, SP[a2, a4], a3, a5, n] + 
    4*S2[a1, a1, SP[a2, a4], a5, a3, n] - 
    2*S2[a1, a1, SP[a3, a4], a2, a5, n] - 
    2*S2[a1, a1, SP[a4, a5], a2, a3, n] - 
    2*S2[a1, a1, SP[a4, a5], a3, a2, n] + S2[a1, a2, a1, a3, SP[a4, a5], n] - 
    S2[a5, n]*S2[a1, a2, a1, a4, a3, n] - 
    S2[a3, n]*S2[a1, a2, a1, a4, a5, n] - S2[a1, a2, a1, a4, SP[a3, a5], n] - 
    S2[a3, n]*S2[a1, a2, a1, a5, a4, n] - S2[a1, a2, a1, a5, SP[a3, a4], n] - 
    S2[a1, a2, a1, SP[a3, a4], a5, n] + S2[a1, a2, a3, a1, SP[a4, a5], n] + 
    S2[a1, a2, a3, SP[a1, a4], a5, n] + 2*S2[a1, a3, a1, a2, SP[a4, a5], n] + 
    2*S2[a1, a3, a1, SP[a2, a4], a5, n] + S2[a1, a3, a2, a1, SP[a4, a5], n] + 
    S2[a1, a3, a2, SP[a1, a4], a5, n] - S2[a1, a3, a4, a1, SP[a2, a5], n] - 
    S2[a1, a3, a4, SP[a1, a2], a5, n] + 2*S2[a1, a3, SP[a1, a4], a2, a5, n] - 
    S2[a5, n]*S2[a1, a4, a1, a2, a3, n] - 
    S2[a3, n]*S2[a1, a4, a1, a2, a5, n] - S2[a1, a4, a1, a2, SP[a3, a5], n] - 
    S2[a5, n]*S2[a1, a4, a1, a3, a2, n] + S2[a1, a4, a1, a5, SP[a2, a3], n] + 
    S2[a1, a4, a1, SP[a2, a3], a5, n] - S2[a1, a4, a1, SP[a3, a5], a2, n] - 
    S2[a5, n]*S2[a1, a4, a3, a1, a2, n] + S2[a1, a4, a5, a1, SP[a2, a3], n] + 
    S2[a1, a4, a5, SP[a1, a3], a2, n] + S2[a1, a4, SP[a1, a3], a2, a5, n] + 
    S2[a1, a4, SP[a1, a3], a5, a2, n] - S2[a1, a4, SP[a3, a5], a1, a2, n] + 
    S2[a1, a5, a1, a4, SP[a2, a3], n] + S2[a1, a5, a1, SP[a2, a4], a3, n] + 
    S2[a1, a5, a4, a1, SP[a2, a3], n] + S2[a1, a5, a4, SP[a1, a3], a2, n] + 
    S2[a1, a5, SP[a1, a4], a2, a3, n] + S2[a1, a5, SP[a1, a4], a3, a2, n] + 
    2*S2[a1, SP[a1, a2], a4, a3, a5, n] + 
    2*S2[a1, SP[a1, a2], a4, a5, a3, n] + 
    2*S2[a1, SP[a1, a2], a5, a4, a3, n] + 
    2*S2[a1, SP[a1, a4], a2, a3, a5, n] + 
    2*S2[a1, SP[a1, a4], a2, a5, a3, n] + 
    2*S2[a1, SP[a1, a4], a3, a2, a5, n] + S2[a1, SP[a1, a4], a3, a5, a2, n] + 
    S2[a1, SP[a1, a4], a5, a2, a3, n] + S2[a1, SP[a1, a4], a5, a3, a2, n] - 
    S2[a1, SP[a1, a5], a2, a4, a3, n] - S2[a1, SP[a1, a5], a4, a2, a3, n] - 
    S2[a1, SP[a1, a5], a4, a3, a2, n] - S2[a1, SP[a2, a5], a1, a4, a3, n] - 
    S2[a1, SP[a3, a4], a1, a2, a5, n] - S2[a1, SP[a4, a5], a1, a2, a3, n] - 
    S2[a1, SP[a4, a5], a1, a3, a2, n] - S2[a1, SP[a4, a5], a3, a1, a2, n] + 
    2*S2[a3, a1, a1, a2, SP[a4, a5], n] + 
    2*S2[a3, a1, a1, SP[a2, a4], a5, n] + S2[a3, a1, a2, a1, SP[a4, a5], n] + 
    S2[a3, a1, a2, SP[a1, a4], a5, n] - S2[a3, a1, a4, a1, SP[a2, a5], n] - 
    S2[a3, a1, a4, SP[a1, a2], a5, n] + 2*S2[a3, a1, SP[a1, a4], a2, a5, n] - 
    2*S2[a3, a4, a1, a1, SP[a2, a5], n] + 
    S2[a1, n]*S2[a3, a4, a1, a5, a2, n] + S2[a3, a4, a1, a5, SP[a1, a2], n] - 
    S2[a3, a4, a1, SP[a1, a2], a5, n] - S2[a3, a4, SP[a1, a1], a2, a5, n] + 
    S2[a3, SP[a1, a4], a1, a2, a5, n] + S2[a1, n]*S2[a5, a1, a2, a4, a3, n] + 
    S2[a5, a1, a2, a4, SP[a1, a3], n] + S2[a5, a1, a2, SP[a1, a4], a3, n] + 
    S2[a1, n]*S2[a5, a1, a4, a2, a3, n] + S2[a5, a1, a4, a2, SP[a1, a3], n] + 
    S2[a1, n]*S2[a5, a1, a4, a3, a2, n] + S2[a5, a1, a4, a3, SP[a1, a2], n] + 
    S2[a5, a1, a4, SP[a1, a2], a3, n] + S2[a5, a1, a4, SP[a1, a3], a2, n] + 
    S2[a5, a1, SP[a1, a2], a4, a3, n] + S2[a5, a1, SP[a1, a4], a2, a3, n] + 
    S2[a5, a1, SP[a1, a4], a3, a2, n] + S2[a1, n]*S2[a5, a2, a1, a4, a3, n] + 
    S2[a5, a2, a1, a4, SP[a1, a3], n] + S2[a5, a2, a1, SP[a1, a4], a3, n] + 
    S2[a5, a2, SP[a1, a1], a4, a3, n] + S2[a5, SP[a1, a1], a2, a4, a3, n] + 
    S2[a5, SP[a1, a1], a4, a2, a3, n] + S2[a5, SP[a1, a1], a4, a3, a2, n] + 
    S2[a5, SP[a1, a2], a1, a4, a3, n] + 2*S2[SP[a1, a1], a2, a4, a3, a5, n] + 
    2*S2[SP[a1, a1], a2, a4, a5, a3, n] + 
    2*S2[SP[a1, a1], a2, a5, a4, a3, n] + 
    2*S2[SP[a1, a1], a4, a2, a3, a5, n] + 
    2*S2[SP[a1, a1], a4, a2, a5, a3, n] + 
    2*S2[SP[a1, a1], a4, a3, a2, a5, n] + S2[SP[a1, a1], a4, a3, a5, a2, n] + 
    S2[SP[a1, a1], a4, a5, a2, a3, n] + S2[SP[a1, a1], a4, a5, a3, a2, n] + 
    S2[SP[a1, a1], a5, a2, a4, a3, n] + S2[SP[a1, a1], a5, a4, a2, a3, n] + 
    S2[SP[a1, a1], a5, a4, a3, a2, n] - S2[SP[a1, a5], a1, a2, a4, a3, n] - 
    S2[SP[a1, a5], a1, a4, a2, a3, n] - S2[SP[a1, a5], a1, a4, a3, a2, n] - 
    S2[SP[a1, a5], a4, a1, a2, a3, n] - S2[SP[a1, a5], a4, a1, a3, a2, n] - 
    S2[SP[a1, a5], a4, a3, a1, a2, n] - S2[a5, a1, a2, a1, a4, a3, n] - 
    S2[a5, a1, a2, a4, a1, a3, n] - S2[a5, a1, a2, a4, a3, a1, n] - 
    S2[a5, a1, a4, a2, a1, a3, n] - S2[a5, a1, a4, a2, a3, a1, n] - 
    S2[a5, a1, a4, a3, a2, a1, n] - 2*S2[a5, a2, a1, a1, a4, a3, n] - 
    S2[a5, a2, a1, a4, a1, a3, n] - S2[a5, a2, a1, a4, a3, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a3_, a4_, a2_, a1_, a1_, a5_, n_] :> 
  S2[a1, a1, a5, n]*S2[a2, a4, a3, n] + S2[SP[a1, a2], SP[a1, a4], 
     SP[a3, a5], n] - S2[a3, a4, n]*S2[a1, a1, a2, a5, n] - 
    S2[a3, a4, n]*S2[a1, a1, a5, a2, n] + S2[a1, a1, SP[a2, a3], SP[a4, a5], 
     n] + S2[a1, a1, SP[a3, a5], SP[a2, a4], n] - 
    S2[a3, a4, n]*S2[a1, a2, a1, a5, n] - S2[a1, a5, n]*
     S2[a1, a2, a4, a3, n] + S2[a1, a2, SP[a1, a3], SP[a4, a5], n] + 
    S2[a1, SP[a1, a3], a2, SP[a4, a5], n] + S2[a1, SP[a1, a3], a5, 
     SP[a2, a4], n] + S2[a1, SP[a1, a3], SP[a2, a4], a5, n] + 
    S2[a1, SP[a1, a3], SP[a4, a5], a2, n] + S2[a1, SP[a2, a3], a1, 
     SP[a4, a5], n] + S2[a1, SP[a2, a3], SP[a1, a4], a5, n] - 
    S2[a2, a1, SP[a1, a4], SP[a3, a5], n] - S2[a2, SP[a1, a4], a1, 
     SP[a3, a5], n] - S2[a2, SP[a1, a4], SP[a1, a3], a5, n] + 
    S2[SP[a1, a1], a2, a4, SP[a3, a5], n] + S2[SP[a1, a1], a2, SP[a4, a5], 
     a3, n] + S2[SP[a1, a1], SP[a2, a5], a4, a3, n] - 
    S2[SP[a1, a2], a1, a4, SP[a3, a5], n] - S2[SP[a1, a2], a1, SP[a4, a5], 
     a3, n] - S2[SP[a1, a2], a4, a1, SP[a3, a5], n] - 
    S2[SP[a1, a2], a4, SP[a1, a3], a5, n] - S2[SP[a1, a2], SP[a1, a4], a3, 
     a5, n] - S2[SP[a1, a2], SP[a1, a4], a5, a3, n] + 
    S2[SP[a1, a3], a1, a2, SP[a4, a5], n] + S2[SP[a1, a3], a1, a5, 
     SP[a2, a4], n] + S2[SP[a1, a3], a1, SP[a2, a4], a5, n] + 
    S2[SP[a1, a3], a1, SP[a4, a5], a2, n] + S2[SP[a1, a3], a2, a1, 
     SP[a4, a5], n] + S2[SP[a1, a3], a2, SP[a1, a4], a5, n] + 
    S2[SP[a1, a3], SP[a1, a4], a2, a5, n] + S2[SP[a1, a3], SP[a1, a4], a5, 
     a2, n] + S2[SP[a1, a3], SP[a2, a4], a1, a5, n] - 
    S2[a1, a1, a2, a3, SP[a4, a5], n] + S2[a5, n]*S2[a1, a1, a2, a4, a3, n] + 
    S2[a3, n]*S2[a1, a1, a2, a4, a5, n] + S2[a1, a1, a2, a4, SP[a3, a5], n] + 
    S2[a3, n]*S2[a1, a1, a2, a5, a4, n] + S2[a1, a1, a2, a5, SP[a3, a4], n] + 
    S2[a1, a1, a2, SP[a3, a4], a5, n] - S2[a1, a1, a3, a2, SP[a4, a5], n] - 
    S2[a1, a1, a3, a5, SP[a2, a4], n] - S2[a1, a1, a3, SP[a2, a4], a5, n] - 
    S2[a1, a1, a3, SP[a4, a5], a2, n] + S2[a3, n]*S2[a1, a1, a4, a2, a5, n] + 
    S2[a1, a1, a4, a2, SP[a3, a5], n] - S2[a2, n]*S2[a1, a1, a4, a3, a5, n] - 
    S2[a1, a1, a4, a3, SP[a2, a5], n] + S2[a3, n]*S2[a1, a1, a4, a5, a2, n] - 
    S2[a2, n]*S2[a1, a1, a4, a5, a3, n] - S2[a1, a1, a4, SP[a2, a5], a3, n] + 
    S2[a1, a1, a4, SP[a3, a5], a2, n] + S2[a3, n]*S2[a1, a1, a5, a2, a4, n] + 
    S2[a1, a1, a5, a2, SP[a3, a4], n] - S2[a1, a1, a5, a3, SP[a2, a4], n] + 
    S2[a3, n]*S2[a1, a1, a5, a4, a2, n] - 
    S2[a2, n]*S2[a1, a1, a5, a4, a3, n] - S2[a1, a1, a5, SP[a2, a4], a3, n] + 
    S2[a1, a1, a5, SP[a3, a4], a2, n] - S2[a1, a1, SP[a2, a4], a3, a5, n] - 
    S2[a1, a1, SP[a2, a4], a5, a3, n] - S2[a1, a1, SP[a2, a5], a4, a3, n] + 
    S2[a1, a1, SP[a3, a4], a2, a5, n] + S2[a1, a1, SP[a3, a4], a5, a2, n] - 
    S2[a1, a2, a1, a3, SP[a4, a5], n] + S2[a3, n]*S2[a1, a2, a1, a4, a5, n] + 
    S2[a1, a2, a1, a4, SP[a3, a5], n] + S2[a3, n]*S2[a1, a2, a1, a5, a4, n] + 
    S2[a1, a2, a1, a5, SP[a3, a4], n] + S2[a1, a2, a1, SP[a3, a4], a5, n] - 
    S2[a1, a2, a3, a1, SP[a4, a5], n] - S2[a1, a2, a3, SP[a1, a4], a5, n] + 
    S2[a3, n]*S2[a1, a2, a4, a1, a5, n] + S2[a1, a2, a4, a1, SP[a3, a5], n] + 
    S2[a1, a2, a4, SP[a1, a3], a5, n] + S2[a1, a2, SP[a3, a4], a1, a5, n] - 
    S2[a1, a3, a1, a2, SP[a4, a5], n] - S2[a1, a3, a1, a5, SP[a2, a4], n] - 
    S2[a1, a3, a1, SP[a2, a4], a5, n] - S2[a1, a3, a1, SP[a4, a5], a2, n] - 
    S2[a1, a3, a2, a1, SP[a4, a5], n] - S2[a1, a3, a2, SP[a1, a4], a5, n] - 
    S2[a1, a3, SP[a1, a4], a2, a5, n] - S2[a1, a3, SP[a1, a4], a5, a2, n] - 
    S2[a1, a3, SP[a2, a4], a1, a5, n] + S2[a3, n]*S2[a1, a4, a1, a2, a5, n] + 
    S2[a1, a4, a1, a2, SP[a3, a5], n] - S2[a2, n]*S2[a1, a4, a1, a3, a5, n] - 
    S2[a1, a4, a1, a3, SP[a2, a5], n] + S2[a3, n]*S2[a1, a4, a1, a5, a2, n] - 
    S2[a2, n]*S2[a1, a4, a1, a5, a3, n] - S2[a1, a4, a1, SP[a2, a5], a3, n] + 
    S2[a1, a4, a1, SP[a3, a5], a2, n] + S2[a3, n]*S2[a1, a4, a2, a1, a5, n] + 
    S2[a1, a4, a2, a1, SP[a3, a5], n] + S2[a1, a4, a2, SP[a1, a3], a5, n] - 
    S2[a2, n]*S2[a1, a4, a3, a1, a5, n] - S2[a1, a4, a3, a1, SP[a2, a5], n] - 
    S2[a1, a4, a3, SP[a1, a2], a5, n] - S2[a1, a4, SP[a1, a2], a3, a5, n] - 
    S2[a1, a4, SP[a1, a2], a5, a3, n] + S2[a1, a4, SP[a1, a3], a2, a5, n] + 
    S2[a1, a4, SP[a1, a3], a5, a2, n] - S2[a1, SP[a1, a2], a4, a3, a5, n] - 
    S2[a1, SP[a1, a2], a4, a5, a3, n] - S2[a1, SP[a1, a2], a5, a4, a3, n] - 
    S2[a1, SP[a2, a4], a1, a3, a5, n] - S2[a1, SP[a2, a4], a1, a5, a3, n] - 
    S2[a1, SP[a2, a4], a3, a1, a5, n] + S2[a1, SP[a3, a4], a1, a2, a5, n] + 
    S2[a1, SP[a3, a4], a1, a5, a2, n] + S2[a1, SP[a3, a4], a2, a1, a5, n] + 
    S2[a2, a1, a1, a4, SP[a3, a5], n] + S2[a2, a1, a1, SP[a4, a5], a3, n] + 
    S2[a2, a1, a4, a1, SP[a3, a5], n] + S2[a2, a1, a4, SP[a1, a3], a5, n] + 
    S2[a2, a1, SP[a1, a4], a3, a5, n] + S2[a2, a1, SP[a1, a4], a5, a3, n] - 
    S2[a3, n]*S2[a2, a4, a1, a1, a5, n] + S2[a2, SP[a1, a4], a1, a3, a5, n] + 
    S2[a2, SP[a1, a4], a1, a5, a3, n] + S2[a2, SP[a1, a4], a3, a1, a5, n] - 
    S2[a2, SP[a3, a4], a1, a1, a5, n] - S2[a3, a1, a1, a2, SP[a4, a5], n] - 
    S2[a3, a1, a1, a5, SP[a2, a4], n] - S2[a3, a1, a1, SP[a2, a4], a5, n] - 
    S2[a3, a1, a1, SP[a4, a5], a2, n] - S2[a3, a1, a2, a1, SP[a4, a5], n] - 
    S2[a3, a1, a2, SP[a1, a4], a5, n] - S2[a3, a1, SP[a1, a4], a2, a5, n] - 
    S2[a3, a1, SP[a1, a4], a5, a2, n] - S2[a3, a1, SP[a2, a4], a1, a5, n] + 
    S2[a2, n]*S2[a3, a4, a1, a1, a5, n] + S2[a3, a4, a1, a1, SP[a2, a5], n] + 
    S2[a3, a4, a1, SP[a1, a2], a5, n] + S2[a3, a4, SP[a1, a2], a1, a5, n] - 
    S2[a3, SP[a1, a4], a1, a2, a5, n] - S2[a3, SP[a1, a4], a1, a5, a2, n] - 
    S2[a3, SP[a1, a4], a2, a1, a5, n] + S2[a3, SP[a2, a4], a1, a1, a5, n] - 
    S2[SP[a1, a1], a2, a4, a3, a5, n] - S2[SP[a1, a1], a2, a4, a5, a3, n] - 
    S2[SP[a1, a1], a2, a5, a4, a3, n] - S2[SP[a1, a1], a5, a2, a4, a3, n] + 
    S2[SP[a1, a5], a1, a2, a4, a3, n] - S2[a5, a1, a1, a2, a4, a3, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a3_, a4_, a2_, a1_, a5_, a1_, n_] :> 
  -2*S2[a1, a1, a5, n]*S2[a2, a4, a3, n] - 
    2*S2[SP[a1, a2], SP[a1, a4], SP[a3, a5], n] + 
    2*S2[a3, a4, n]*S2[a1, a1, a2, a5, n] + 2*S2[a3, a4, n]*
     S2[a1, a1, a5, a2, n] - 2*S2[a1, a1, SP[a2, a3], SP[a4, a5], n] - 
    2*S2[a1, a1, SP[a3, a5], SP[a2, a4], n] + 
    S2[a3, a4, n]*S2[a1, a2, a1, a5, n] + S2[a1, a5, n]*
     S2[a1, a2, a4, a3, n] - S2[a1, a2, SP[a1, a3], SP[a4, a5], n] + 
    S2[a1, a2, SP[a1, a4], SP[a3, a5], n] + S2[a1, SP[a1, a2], a4, 
     SP[a3, a5], n] + S2[a1, SP[a1, a2], SP[a4, a5], a3, n] - 
    2*S2[a1, SP[a1, a3], a2, SP[a4, a5], n] - 
    2*S2[a1, SP[a1, a3], a5, SP[a2, a4], n] - 
    2*S2[a1, SP[a1, a3], SP[a2, a4], a5, n] - 
    2*S2[a1, SP[a1, a3], SP[a4, a5], a2, n] - S2[a1, SP[a2, a3], a1, 
     SP[a4, a5], n] - S2[a1, SP[a2, a3], SP[a1, a4], a5, n] + 
    2*S2[a2, a1, SP[a1, a4], SP[a3, a5], n] + 
    2*S2[a2, SP[a1, a4], a1, SP[a3, a5], n] + 
    2*S2[a2, SP[a1, a4], SP[a1, a3], a5, n] - S2[SP[a1, a1], a2, a4, 
     SP[a3, a5], n] - S2[SP[a1, a1], a2, SP[a4, a5], a3, n] - 
    S2[SP[a1, a1], SP[a2, a5], a4, a3, n] + 
    2*S2[SP[a1, a2], a1, a4, SP[a3, a5], n] + 
    2*S2[SP[a1, a2], a1, SP[a4, a5], a3, n] + 
    2*S2[SP[a1, a2], a4, a1, SP[a3, a5], n] + 
    2*S2[SP[a1, a2], a4, SP[a1, a3], a5, n] + 
    2*S2[SP[a1, a2], SP[a1, a4], a3, a5, n] + 
    2*S2[SP[a1, a2], SP[a1, a4], a5, a3, n] - 
    2*S2[SP[a1, a3], a1, a2, SP[a4, a5], n] - 
    2*S2[SP[a1, a3], a1, a5, SP[a2, a4], n] - 
    2*S2[SP[a1, a3], a1, SP[a2, a4], a5, n] - 
    2*S2[SP[a1, a3], a1, SP[a4, a5], a2, n] - S2[SP[a1, a3], a2, a1, 
     SP[a4, a5], n] - S2[SP[a1, a3], a2, SP[a1, a4], a5, n] - 
    2*S2[SP[a1, a3], SP[a1, a4], a2, a5, n] - 
    2*S2[SP[a1, a3], SP[a1, a4], a5, a2, n] - S2[SP[a1, a3], SP[a2, a4], a1, 
     a5, n] + 2*S2[a1, a1, a2, a3, SP[a4, a5], n] - 
    2*S2[a3, n]*S2[a1, a1, a2, a4, a5, n] - 
    2*S2[a1, a1, a2, a4, SP[a3, a5], n] - 
    2*S2[a3, n]*S2[a1, a1, a2, a5, a4, n] - 
    2*S2[a1, a1, a2, a5, SP[a3, a4], n] - 
    2*S2[a1, a1, a2, SP[a3, a4], a5, n] + 
    2*S2[a1, a1, a3, a2, SP[a4, a5], n] + 
    2*S2[a1, a1, a3, a5, SP[a2, a4], n] + 
    2*S2[a1, a1, a3, SP[a2, a4], a5, n] + 
    2*S2[a1, a1, a3, SP[a4, a5], a2, n] - 
    2*S2[a3, n]*S2[a1, a1, a4, a2, a5, n] - 
    2*S2[a1, a1, a4, a2, SP[a3, a5], n] + 
    2*S2[a2, n]*S2[a1, a1, a4, a3, a5, n] + 
    2*S2[a1, a1, a4, a3, SP[a2, a5], n] - 
    2*S2[a3, n]*S2[a1, a1, a4, a5, a2, n] + 
    2*S2[a2, n]*S2[a1, a1, a4, a5, a3, n] + 
    2*S2[a1, a1, a4, SP[a2, a5], a3, n] - 
    2*S2[a1, a1, a4, SP[a3, a5], a2, n] - 
    2*S2[a3, n]*S2[a1, a1, a5, a2, a4, n] - 
    2*S2[a1, a1, a5, a2, SP[a3, a4], n] + 
    2*S2[a1, a1, a5, a3, SP[a2, a4], n] - 
    2*S2[a3, n]*S2[a1, a1, a5, a4, a2, n] + 
    2*S2[a2, n]*S2[a1, a1, a5, a4, a3, n] + 
    2*S2[a1, a1, a5, SP[a2, a4], a3, n] - 
    2*S2[a1, a1, a5, SP[a3, a4], a2, n] + 
    2*S2[a1, a1, SP[a2, a4], a3, a5, n] + 
    2*S2[a1, a1, SP[a2, a4], a5, a3, n] + 
    2*S2[a1, a1, SP[a2, a5], a4, a3, n] - 
    2*S2[a1, a1, SP[a3, a4], a2, a5, n] - 
    2*S2[a1, a1, SP[a3, a4], a5, a2, n] + S2[a1, a2, a1, a3, SP[a4, a5], n] - 
    S2[a3, n]*S2[a1, a2, a1, a4, a5, n] - 
    2*S2[a1, a2, a1, a4, SP[a3, a5], n] - 
    S2[a3, n]*S2[a1, a2, a1, a5, a4, n] - S2[a1, a2, a1, a5, SP[a3, a4], n] - 
    S2[a1, a2, a1, SP[a3, a4], a5, n] - S2[a1, a2, a1, SP[a4, a5], a3, n] + 
    S2[a1, a2, a3, a1, SP[a4, a5], n] + S2[a1, a2, a3, SP[a1, a4], a5, n] - 
    S2[a3, n]*S2[a1, a2, a4, a1, a5, n] - 
    2*S2[a1, a2, a4, a1, SP[a3, a5], n] - 
    2*S2[a1, a2, a4, SP[a1, a3], a5, n] - S2[a1, a2, SP[a1, a4], a3, a5, n] - 
    S2[a1, a2, SP[a1, a4], a5, a3, n] - S2[a1, a2, SP[a3, a4], a1, a5, n] + 
    2*S2[a1, a3, a1, a2, SP[a4, a5], n] + 
    2*S2[a1, a3, a1, a5, SP[a2, a4], n] + 
    2*S2[a1, a3, a1, SP[a2, a4], a5, n] + 
    2*S2[a1, a3, a1, SP[a4, a5], a2, n] + S2[a1, a3, a2, a1, SP[a4, a5], n] + 
    S2[a1, a3, a2, SP[a1, a4], a5, n] + 2*S2[a1, a3, SP[a1, a4], a2, a5, n] + 
    2*S2[a1, a3, SP[a1, a4], a5, a2, n] + S2[a1, a3, SP[a2, a4], a1, a5, n] - 
    2*S2[a3, n]*S2[a1, a4, a1, a2, a5, n] - 
    2*S2[a1, a4, a1, a2, SP[a3, a5], n] + 
    2*S2[a2, n]*S2[a1, a4, a1, a3, a5, n] + 
    2*S2[a1, a4, a1, a3, SP[a2, a5], n] - 
    2*S2[a3, n]*S2[a1, a4, a1, a5, a2, n] + 
    2*S2[a2, n]*S2[a1, a4, a1, a5, a3, n] + 
    2*S2[a1, a4, a1, SP[a2, a5], a3, n] - 
    2*S2[a1, a4, a1, SP[a3, a5], a2, n] - 
    2*S2[a3, n]*S2[a1, a4, a2, a1, a5, n] - 
    2*S2[a1, a4, a2, a1, SP[a3, a5], n] - 
    2*S2[a1, a4, a2, SP[a1, a3], a5, n] + 
    2*S2[a2, n]*S2[a1, a4, a3, a1, a5, n] + 
    2*S2[a1, a4, a3, a1, SP[a2, a5], n] + 
    2*S2[a1, a4, a3, SP[a1, a2], a5, n] + 
    2*S2[a1, a4, SP[a1, a2], a3, a5, n] + 
    2*S2[a1, a4, SP[a1, a2], a5, a3, n] - 
    2*S2[a1, a4, SP[a1, a3], a2, a5, n] - 
    2*S2[a1, a4, SP[a1, a3], a5, a2, n] + S2[a1, SP[a1, a2], a4, a3, a5, n] + 
    S2[a1, SP[a1, a2], a4, a5, a3, n] + S2[a1, SP[a1, a2], a5, a4, a3, n] + 
    S2[a1, SP[a1, a5], a2, a4, a3, n] + 2*S2[a1, SP[a2, a4], a1, a3, a5, n] + 
    2*S2[a1, SP[a2, a4], a1, a5, a3, n] + 
    2*S2[a1, SP[a2, a4], a3, a1, a5, n] - 
    2*S2[a1, SP[a3, a4], a1, a2, a5, n] - 
    2*S2[a1, SP[a3, a4], a1, a5, a2, n] - 
    2*S2[a1, SP[a3, a4], a2, a1, a5, n] - 
    2*S2[a2, a1, a1, a4, SP[a3, a5], n] - 
    2*S2[a2, a1, a1, SP[a4, a5], a3, n] - 
    2*S2[a2, a1, a4, a1, SP[a3, a5], n] - 
    2*S2[a2, a1, a4, SP[a1, a3], a5, n] - 
    2*S2[a2, a1, SP[a1, a4], a3, a5, n] - 
    2*S2[a2, a1, SP[a1, a4], a5, a3, n] + 
    2*S2[a3, n]*S2[a2, a4, a1, a1, a5, n] - 
    2*S2[a2, SP[a1, a4], a1, a3, a5, n] - 
    2*S2[a2, SP[a1, a4], a1, a5, a3, n] - 
    2*S2[a2, SP[a1, a4], a3, a1, a5, n] + 
    2*S2[a2, SP[a3, a4], a1, a1, a5, n] + 
    2*S2[a3, a1, a1, a2, SP[a4, a5], n] + 
    2*S2[a3, a1, a1, a5, SP[a2, a4], n] + 
    2*S2[a3, a1, a1, SP[a2, a4], a5, n] + 
    2*S2[a3, a1, a1, SP[a4, a5], a2, n] + S2[a3, a1, a2, a1, SP[a4, a5], n] + 
    S2[a3, a1, a2, SP[a1, a4], a5, n] + 2*S2[a3, a1, SP[a1, a4], a2, a5, n] + 
    2*S2[a3, a1, SP[a1, a4], a5, a2, n] + S2[a3, a1, SP[a2, a4], a1, a5, n] - 
    2*S2[a2, n]*S2[a3, a4, a1, a1, a5, n] - 
    2*S2[a3, a4, a1, a1, SP[a2, a5], n] - 
    2*S2[a3, a4, a1, SP[a1, a2], a5, n] + 
    S2[a1, n]*S2[a3, a4, a2, a1, a5, n] + S2[a3, a4, a2, a1, SP[a1, a5], n] + 
    S2[a3, a4, a2, SP[a1, a1], a5, n] - S2[a3, a4, SP[a1, a2], a1, a5, n] + 
    2*S2[a3, SP[a1, a4], a1, a2, a5, n] + 
    2*S2[a3, SP[a1, a4], a1, a5, a2, n] + 
    2*S2[a3, SP[a1, a4], a2, a1, a5, n] - 
    2*S2[a3, SP[a2, a4], a1, a1, a5, n] - 
    S2[a1, n]*S2[a5, a1, a2, a4, a3, n] - S2[a5, a1, a2, a4, SP[a1, a3], n] - 
    S2[a5, a1, a2, SP[a1, a4], a3, n] - S2[a5, a1, SP[a1, a2], a4, a3, n] - 
    S2[a5, SP[a1, a1], a2, a4, a3, n] + S2[SP[a1, a1], a2, a4, a3, a5, n] + 
    S2[SP[a1, a1], a2, a4, a5, a3, n] + S2[SP[a1, a1], a2, a5, a4, a3, n] + 
    S2[SP[a1, a1], a5, a2, a4, a3, n] - S2[SP[a1, a5], a1, a2, a4, a3, n] + 
    2*S2[a5, a1, a1, a2, a4, a3, n] + S2[a5, a1, a2, a1, a4, a3, n] + 
    S2[a5, a1, a2, a4, a1, a3, n] + S2[a5, a1, a2, a4, a3, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a3_, a4_, a2_, a5_, a1_, a1_, n_] :> 
  S2[a1, a1, a5, n]*S2[a2, a4, a3, n] + S2[SP[a1, a2], SP[a1, a4], 
     SP[a3, a5], n] - S2[a3, a4, n]*S2[a1, a1, a5, a2, n] + 
    S2[a1, a1, SP[a3, a5], SP[a2, a4], n] - S2[a1, a2, SP[a1, a4], 
     SP[a3, a5], n] - S2[a1, SP[a1, a2], a4, SP[a3, a5], n] - 
    S2[a1, SP[a1, a2], SP[a4, a5], a3, n] + S2[a1, SP[a1, a3], a5, 
     SP[a2, a4], n] + S2[a1, SP[a1, a3], SP[a4, a5], a2, n] - 
    S2[a2, a1, SP[a1, a4], SP[a3, a5], n] - S2[a2, SP[a1, a4], a1, 
     SP[a3, a5], n] - S2[a2, SP[a1, a4], SP[a1, a3], a5, n] - 
    S2[SP[a1, a2], a1, a4, SP[a3, a5], n] - S2[SP[a1, a2], a1, SP[a4, a5], 
     a3, n] - S2[SP[a1, a2], a4, a1, SP[a3, a5], n] - 
    S2[SP[a1, a2], a4, SP[a1, a3], a5, n] - S2[SP[a1, a2], SP[a1, a4], a3, 
     a5, n] - S2[SP[a1, a2], SP[a1, a4], a5, a3, n] + 
    S2[SP[a1, a3], a1, a5, SP[a2, a4], n] + S2[SP[a1, a3], a1, SP[a4, a5], 
     a2, n] + S2[SP[a1, a3], SP[a1, a4], a5, a2, n] + 
    S2[a1, a1, a2, a4, SP[a3, a5], n] + S2[a1, a1, a2, SP[a4, a5], a3, n] - 
    S2[a1, a1, a3, a5, SP[a2, a4], n] - S2[a1, a1, a3, SP[a4, a5], a2, n] + 
    S2[a3, n]*S2[a1, a1, a4, a2, a5, n] + S2[a1, a1, a4, a2, SP[a3, a5], n] - 
    S2[a2, n]*S2[a1, a1, a4, a3, a5, n] - S2[a1, a1, a4, a3, SP[a2, a5], n] + 
    S2[a3, n]*S2[a1, a1, a4, a5, a2, n] - 
    S2[a2, n]*S2[a1, a1, a4, a5, a3, n] - S2[a1, a1, a4, SP[a2, a5], a3, n] + 
    S2[a1, a1, a4, SP[a3, a5], a2, n] + S2[a3, n]*S2[a1, a1, a5, a2, a4, n] + 
    S2[a1, a1, a5, a2, SP[a3, a4], n] - S2[a1, a1, a5, a3, SP[a2, a4], n] + 
    S2[a3, n]*S2[a1, a1, a5, a4, a2, n] - 
    S2[a2, n]*S2[a1, a1, a5, a4, a3, n] - S2[a1, a1, a5, SP[a2, a4], a3, n] + 
    S2[a1, a1, a5, SP[a3, a4], a2, n] - S2[a1, a1, SP[a2, a4], a3, a5, n] - 
    S2[a1, a1, SP[a2, a4], a5, a3, n] + S2[a1, a1, SP[a3, a4], a2, a5, n] + 
    S2[a1, a1, SP[a3, a4], a5, a2, n] + S2[a1, a2, a1, a4, SP[a3, a5], n] + 
    S2[a1, a2, a1, SP[a4, a5], a3, n] + S2[a1, a2, a4, a1, SP[a3, a5], n] + 
    S2[a1, a2, a4, SP[a1, a3], a5, n] + S2[a1, a2, SP[a1, a4], a3, a5, n] + 
    S2[a1, a2, SP[a1, a4], a5, a3, n] - S2[a1, a3, a1, a5, SP[a2, a4], n] - 
    S2[a1, a3, a1, SP[a4, a5], a2, n] - (S2[a1, n]*S2[a1, a3, a4, a2, a5, n])/
     2 - S2[a1, a3, a4, a2, SP[a1, a5], n]/2 - 
    S2[a1, a3, a4, SP[a1, a2], a5, n]/2 - S2[a1, a3, SP[a1, a4], a2, a5, n]/
     2 - S2[a1, a3, SP[a1, a4], a5, a2, n] + 
    S2[a3, n]*S2[a1, a4, a1, a2, a5, n] + S2[a1, a4, a1, a2, SP[a3, a5], n] - 
    S2[a2, n]*S2[a1, a4, a1, a3, a5, n] - S2[a1, a4, a1, a3, SP[a2, a5], n] + 
    S2[a3, n]*S2[a1, a4, a1, a5, a2, n] - 
    S2[a2, n]*S2[a1, a4, a1, a5, a3, n] - S2[a1, a4, a1, SP[a2, a5], a3, n] + 
    S2[a1, a4, a1, SP[a3, a5], a2, n] + S2[a3, n]*S2[a1, a4, a2, a1, a5, n] + 
    S2[a1, a4, a2, a1, SP[a3, a5], n] + S2[a1, a4, a2, SP[a1, a3], a5, n] - 
    S2[a2, n]*S2[a1, a4, a3, a1, a5, n] - S2[a1, a4, a3, a1, SP[a2, a5], n] - 
    S2[a1, a4, a3, SP[a1, a2], a5, n] - S2[a1, a4, SP[a1, a2], a3, a5, n] - 
    S2[a1, a4, SP[a1, a2], a5, a3, n] + S2[a1, a4, SP[a1, a3], a2, a5, n] + 
    S2[a1, a4, SP[a1, a3], a5, a2, n] - (S2[a1, n]*S2[a1, a5, a2, a4, a3, n])/
     2 - S2[a1, a5, a2, a4, SP[a1, a3], n]/2 - 
    S2[a1, a5, a2, SP[a1, a4], a3, n]/2 - S2[a1, a5, SP[a1, a2], a4, a3, n]/
     2 + S2[a1, SP[a1, a3], a4, a2, a5, n]/2 - 
    S2[a1, SP[a1, a5], a2, a4, a3, n]/2 - S2[a1, SP[a2, a4], a1, a3, a5, n] - 
    S2[a1, SP[a2, a4], a1, a5, a3, n] - S2[a1, SP[a2, a4], a3, a1, a5, n] + 
    S2[a1, SP[a3, a4], a1, a2, a5, n] + S2[a1, SP[a3, a4], a1, a5, a2, n] + 
    S2[a1, SP[a3, a4], a2, a1, a5, n] + S2[a2, a1, a1, a4, SP[a3, a5], n] + 
    S2[a2, a1, a1, SP[a4, a5], a3, n] + S2[a2, a1, a4, a1, SP[a3, a5], n] + 
    S2[a2, a1, a4, SP[a1, a3], a5, n] + S2[a2, a1, SP[a1, a4], a3, a5, n] + 
    S2[a2, a1, SP[a1, a4], a5, a3, n] - S2[a3, n]*S2[a2, a4, a1, a1, a5, n] + 
    S2[a2, SP[a1, a4], a1, a3, a5, n] + S2[a2, SP[a1, a4], a1, a5, a3, n] + 
    S2[a2, SP[a1, a4], a3, a1, a5, n] - S2[a2, SP[a3, a4], a1, a1, a5, n] - 
    S2[a3, a1, a1, a5, SP[a2, a4], n] - S2[a3, a1, a1, SP[a4, a5], a2, n] - 
    (S2[a1, n]*S2[a3, a1, a4, a2, a5, n])/2 - 
    S2[a3, a1, a4, a2, SP[a1, a5], n]/2 - S2[a3, a1, a4, SP[a1, a2], a5, n]/
     2 - S2[a3, a1, SP[a1, a4], a2, a5, n]/2 - S2[a3, a1, SP[a1, a4], a5, a2, 
     n] + S2[a2, n]*S2[a3, a4, a1, a1, a5, n] + S2[a3, a4, a1, a1, 
     SP[a2, a5], n] - (S2[a1, n]*S2[a3, a4, a1, a2, a5, n])/2 - 
    S2[a3, a4, a1, a2, SP[a1, a5], n]/2 + S2[a3, a4, a1, SP[a1, a2], a5, n]/
     2 - (S2[a1, n]*S2[a3, a4, a2, a1, a5, n])/2 - 
    S2[a3, a4, a2, a1, SP[a1, a5], n]/2 + 
    (S2[a1, n]*S2[a3, a4, a2, a5, a1, n])/2 + 
    S2[a3, a4, a2, a5, SP[a1, a1], n]/2 - S2[a3, a4, a2, SP[a1, a1], a5, n]/
     2 + S2[a3, a4, a2, SP[a1, a5], a1, n]/2 - 
    S2[a3, a4, SP[a1, a1], a2, a5, n]/2 + S2[a3, a4, SP[a1, a2], a1, a5, n]/
     2 + S2[a3, a4, SP[a1, a2], a5, a1, n]/2 - 
    S2[a3, SP[a1, a1], a4, a2, a5, n]/2 - S2[a3, SP[a1, a4], a1, a2, a5, n]/
     2 - S2[a3, SP[a1, a4], a1, a5, a2, n] - 
    S2[a3, SP[a1, a4], a2, a1, a5, n]/2 + S2[a3, SP[a1, a4], a2, a5, a1, n]/
     2 + S2[a3, SP[a2, a4], a1, a1, a5, n] + 
    (S2[a1, n]*S2[a5, a1, a2, a4, a3, n])/2 + 
    S2[a5, a1, a2, a4, SP[a1, a3], n]/2 + S2[a5, a1, a2, SP[a1, a4], a3, n]/
     2 + S2[a5, a1, SP[a1, a2], a4, a3, n]/2 + 
    (S2[a1, n]*S2[a5, a2, a1, a4, a3, n])/2 + 
    S2[a5, a2, a1, a4, SP[a1, a3], n]/2 + S2[a5, a2, a1, SP[a1, a4], a3, n]/
     2 + (S2[a1, n]*S2[a5, a2, a4, a1, a3, n])/2 + 
    S2[a5, a2, a4, a1, SP[a1, a3], n]/2 + 
    (S2[a1, n]*S2[a5, a2, a4, a3, a1, n])/2 + 
    S2[a5, a2, a4, a3, SP[a1, a1], n]/2 + S2[a5, a2, a4, SP[a1, a1], a3, n]/
     2 + S2[a5, a2, a4, SP[a1, a3], a1, n]/2 + 
    S2[a5, a2, SP[a1, a1], a4, a3, n]/2 + S2[a5, a2, SP[a1, a4], a1, a3, n]/
     2 + S2[a5, a2, SP[a1, a4], a3, a1, n]/2 + 
    S2[a5, SP[a1, a1], a2, a4, a3, n]/2 + S2[a5, SP[a1, a2], a1, a4, a3, n]/
     2 + S2[a5, SP[a1, a2], a4, a1, a3, n]/2 + 
    S2[a5, SP[a1, a2], a4, a3, a1, n]/2 - S2[SP[a1, a1], a3, a4, a2, a5, n]/
     2 - S2[SP[a1, a1], a5, a2, a4, a3, n]/2 + 
    S2[SP[a1, a3], a1, a4, a2, a5, n]/2 + S2[SP[a1, a3], a4, a1, a2, a5, n]/
     2 + S2[SP[a1, a3], a4, a2, a1, a5, n]/2 + 
    S2[SP[a1, a3], a4, a2, a5, a1, n]/2 + S2[SP[a1, a5], a1, a2, a4, a3, n]/
     2 + S2[SP[a1, a5], a2, a1, a4, a3, n]/2 + 
    S2[SP[a1, a5], a2, a4, a1, a3, n]/2 + S2[SP[a1, a5], a2, a4, a3, a1, n]/
     2 - S2[a5, a1, a1, a2, a4, a3, n] - S2[a5, a1, a2, a1, a4, a3, n] - 
    S2[a5, a1, a2, a4, a1, a3, n] - S2[a5, a1, a2, a4, a3, a1, n] - 
    S2[a5, a2, a1, a1, a4, a3, n] - S2[a5, a2, a1, a4, a1, a3, n] - 
    S2[a5, a2, a1, a4, a3, a1, n] - S2[a5, a2, a4, a1, a1, a3, n] - 
    S2[a5, a2, a4, a1, a3, a1, n] - S2[a5, a2, a4, a3, a1, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a3_, a4_, a5_, a1_, a1_, a2_, n_] :> 
  S2[a3, a4, n]*S2[a1, a1, a2, a5, n] + S2[a3, a4, n]*S2[a1, a1, a5, a2, n] - 
    S2[a1, a1, SP[a2, a3], SP[a4, a5], n] - S2[a1, a1, SP[a3, a5], 
     SP[a2, a4], n] + S2[a3, a4, n]*S2[a1, a2, a1, a5, n] - 
    S2[a1, a2, SP[a1, a3], SP[a4, a5], n] + S2[a1, a2, n]*
     S2[a1, a4, a3, a5, n] + S2[a1, a2, n]*S2[a1, a4, a5, a3, n] - 
    S2[a1, a4, SP[a1, a3], SP[a2, a5], n] - S2[a1, a4, SP[a1, a5], 
     SP[a2, a3], n] + S2[a1, a2, n]*S2[a1, a5, a4, a3, n] - 
    S2[a1, a5, SP[a1, a4], SP[a2, a3], n] - S2[a1, SP[a1, a3], a2, 
     SP[a4, a5], n] - S2[a1, SP[a1, a3], a5, SP[a2, a4], n] - 
    S2[a1, SP[a1, a3], SP[a2, a4], a5, n] - S2[a1, SP[a1, a3], SP[a4, a5], 
     a2, n] - S2[a1, SP[a1, a4], a3, SP[a2, a5], n] - 
    S2[a1, SP[a1, a4], a5, SP[a2, a3], n] - S2[a1, SP[a1, a4], SP[a2, a3], 
     a5, n] - S2[a1, SP[a1, a4], SP[a2, a5], a3, n] - 
    S2[a1, SP[a1, a5], a4, SP[a2, a3], n] - S2[a1, SP[a1, a5], SP[a2, a4], 
     a3, n] - S2[a1, SP[a2, a3], a1, SP[a4, a5], n] - 
    S2[a1, SP[a2, a3], SP[a1, a4], a5, n] - S2[a1, a2, n]*
     S2[a3, a4, a1, a5, n] + S2[a3, a4, SP[a1, a1], SP[a2, a5], n] + 
    S2[a3, SP[a1, a4], a1, SP[a2, a5], n] + S2[a3, SP[a1, a4], SP[a1, a2], 
     a5, n] - S2[SP[a1, a1], a4, a3, SP[a2, a5], n] - 
    S2[SP[a1, a1], a4, a5, SP[a2, a3], n] - S2[SP[a1, a1], a4, SP[a2, a3], 
     a5, n] - S2[SP[a1, a1], a4, SP[a2, a5], a3, n] - 
    S2[SP[a1, a1], a5, a4, SP[a2, a3], n] - S2[SP[a1, a1], a5, SP[a2, a4], 
     a3, n] - S2[SP[a1, a1], SP[a2, a4], a3, a5, n] - 
    S2[SP[a1, a1], SP[a2, a4], a5, a3, n] - S2[SP[a1, a1], SP[a2, a5], a4, 
     a3, n] - S2[SP[a1, a3], a1, a2, SP[a4, a5], n] - 
    S2[SP[a1, a3], a1, a5, SP[a2, a4], n] - S2[SP[a1, a3], a1, SP[a2, a4], 
     a5, n] - S2[SP[a1, a3], a1, SP[a4, a5], a2, n] - 
    S2[SP[a1, a3], a2, a1, SP[a4, a5], n] - S2[SP[a1, a3], a2, SP[a1, a4], 
     a5, n] + S2[SP[a1, a3], a4, a1, SP[a2, a5], n] + 
    S2[SP[a1, a3], a4, SP[a1, a2], a5, n] - S2[SP[a1, a3], SP[a1, a4], a2, 
     a5, n] - S2[SP[a1, a3], SP[a1, a4], a5, a2, n] + 
    S2[a1, a1, a2, a3, SP[a4, a5], n] - S2[a5, n]*S2[a1, a1, a2, a4, a3, n] - 
    S2[a3, n]*S2[a1, a1, a2, a4, a5, n] - 
    2*S2[a1, a1, a2, a4, SP[a3, a5], n] - 
    S2[a3, n]*S2[a1, a1, a2, a5, a4, n] - S2[a1, a1, a2, a5, SP[a3, a4], n] - 
    S2[a1, a1, a2, SP[a3, a4], a5, n] - S2[a1, a1, a2, SP[a4, a5], a3, n] + 
    S2[a1, a1, a3, a2, SP[a4, a5], n] + S2[a1, a1, a3, a5, SP[a2, a4], n] + 
    S2[a1, a1, a3, SP[a2, a4], a5, n] + S2[a1, a1, a3, SP[a4, a5], a2, n] - 
    S2[a5, n]*S2[a1, a1, a4, a2, a3, n] - 
    S2[a3, n]*S2[a1, a1, a4, a2, a5, n] - 
    2*S2[a1, a1, a4, a2, SP[a3, a5], n] - 
    S2[a5, n]*S2[a1, a1, a4, a3, a2, n] + S2[a1, a1, a4, a3, SP[a2, a5], n] - 
    S2[a3, n]*S2[a1, a1, a4, a5, a2, n] + S2[a1, a1, a4, a5, SP[a2, a3], n] + 
    S2[a1, a1, a4, SP[a2, a3], a5, n] + S2[a1, a1, a4, SP[a2, a5], a3, n] - 
    2*S2[a1, a1, a4, SP[a3, a5], a2, n] - 
    S2[a3, n]*S2[a1, a1, a5, a2, a4, n] - S2[a1, a1, a5, a2, SP[a3, a4], n] + 
    S2[a1, a1, a5, a3, SP[a2, a4], n] - S2[a3, n]*S2[a1, a1, a5, a4, a2, n] + 
    S2[a1, a1, a5, a4, SP[a2, a3], n] + 2*S2[a1, a1, a5, SP[a2, a4], a3, n] - 
    S2[a1, a1, a5, SP[a3, a4], a2, n] + 2*S2[a1, a1, SP[a2, a4], a3, a5, n] + 
    2*S2[a1, a1, SP[a2, a4], a5, a3, n] + S2[a1, a1, SP[a2, a5], a4, a3, n] - 
    S2[a1, a1, SP[a3, a4], a2, a5, n] - S2[a1, a1, SP[a3, a4], a5, a2, n] - 
    S2[a1, a1, SP[a4, a5], a2, a3, n] - S2[a1, a1, SP[a4, a5], a3, a2, n] + 
    S2[a1, a2, a1, a3, SP[a4, a5], n] - S2[a3, n]*S2[a1, a2, a1, a4, a5, n] - 
    S2[a1, a2, a1, a4, SP[a3, a5], n] - S2[a3, n]*S2[a1, a2, a1, a5, a4, n] - 
    S2[a1, a2, a1, a5, SP[a3, a4], n] - S2[a1, a2, a1, SP[a3, a4], a5, n] + 
    S2[a1, a2, a3, a1, SP[a4, a5], n] + S2[a1, a2, a3, SP[a1, a4], a5, n] + 
    S2[a1, a3, a1, a2, SP[a4, a5], n] + S2[a1, a3, a1, a5, SP[a2, a4], n] + 
    S2[a1, a3, a1, SP[a2, a4], a5, n] + S2[a1, a3, a1, SP[a4, a5], a2, n] + 
    S2[a1, a3, a2, a1, SP[a4, a5], n] + S2[a1, a3, a2, SP[a1, a4], a5, n] - 
    S2[a1, a3, a4, a1, SP[a2, a5], n] - S2[a1, a3, a4, SP[a1, a2], a5, n] + 
    S2[a1, a3, SP[a1, a4], a2, a5, n] + S2[a1, a3, SP[a1, a4], a5, a2, n] - 
    S2[a5, n]*S2[a1, a4, a1, a2, a3, n] - S2[a1, a4, a1, a2, SP[a3, a5], n] - 
    S2[a5, n]*S2[a1, a4, a1, a3, a2, n] + S2[a1, a4, a1, a5, SP[a2, a3], n] + 
    S2[a1, a4, a1, SP[a2, a3], a5, n] - S2[a1, a4, a1, SP[a3, a5], a2, n] - 
    S2[a5, n]*S2[a1, a4, a3, a1, a2, n] + S2[a1, a4, a5, a1, SP[a2, a3], n] + 
    S2[a1, a4, a5, SP[a1, a3], a2, n] + S2[a1, a4, SP[a1, a3], a2, a5, n] + 
    S2[a1, a4, SP[a1, a3], a5, a2, n] - S2[a1, a4, SP[a3, a5], a1, a2, n] + 
    S2[a1, a5, a1, a4, SP[a2, a3], n] + S2[a1, a5, a1, SP[a2, a4], a3, n] + 
    S2[a1, a5, a4, a1, SP[a2, a3], n] + S2[a1, a5, a4, SP[a1, a3], a2, n] + 
    S2[a1, a5, SP[a1, a4], a2, a3, n] + S2[a1, a5, SP[a1, a4], a3, a2, n] + 
    S2[a1, SP[a1, a2], a4, a3, a5, n] + S2[a1, SP[a1, a2], a4, a5, a3, n] + 
    S2[a1, SP[a1, a2], a5, a4, a3, n] + S2[a1, SP[a1, a4], a2, a3, a5, n] + 
    S2[a1, SP[a1, a4], a2, a5, a3, n] + S2[a1, SP[a1, a4], a3, a2, a5, n] + 
    S2[a1, SP[a1, a4], a3, a5, a2, n] + S2[a1, SP[a1, a4], a5, a2, a3, n] + 
    S2[a1, SP[a1, a4], a5, a3, a2, n] - S2[a1, SP[a4, a5], a1, a2, a3, n] - 
    S2[a1, SP[a4, a5], a1, a3, a2, n] - S2[a1, SP[a4, a5], a3, a1, a2, n] + 
    S2[a3, a1, a1, a2, SP[a4, a5], n] + S2[a3, a1, a1, a5, SP[a2, a4], n] + 
    S2[a3, a1, a1, SP[a2, a4], a5, n] + S2[a3, a1, a1, SP[a4, a5], a2, n] + 
    S2[a3, a1, a2, a1, SP[a4, a5], n] + S2[a3, a1, a2, SP[a1, a4], a5, n] - 
    S2[a3, a1, a4, a1, SP[a2, a5], n] - S2[a3, a1, a4, SP[a1, a2], a5, n] + 
    S2[a3, a1, SP[a1, a4], a2, a5, n] + S2[a3, a1, SP[a1, a4], a5, a2, n] + 
    S2[a5, n]*S2[a3, a4, a1, a1, a2, n] - S2[a3, a4, a1, a1, SP[a2, a5], n] - 
    S2[a3, a4, a1, SP[a1, a2], a5, n] - S2[a3, a4, SP[a1, a1], a2, a5, n] - 
    S2[a3, a4, SP[a1, a1], a5, a2, n] + S2[a3, a4, SP[a1, a5], a1, a2, n] + 
    S2[a3, SP[a4, a5], a1, a1, a2, n] - S2[a3, n]*S2[a5, a4, a1, a1, a2, n] - 
    S2[a5, a4, a1, a1, SP[a2, a3], n] - S2[a5, a4, a1, SP[a1, a3], a2, n] - 
    S2[a5, a4, SP[a1, a3], a1, a2, n] - S2[a5, SP[a3, a4], a1, a1, a2, n] + 
    S2[SP[a1, a1], a2, a4, a3, a5, n] + S2[SP[a1, a1], a2, a4, a5, a3, n] + 
    S2[SP[a1, a1], a2, a5, a4, a3, n] + S2[SP[a1, a1], a4, a2, a3, a5, n] + 
    S2[SP[a1, a1], a4, a2, a5, a3, n] + S2[SP[a1, a1], a4, a3, a2, a5, n] + 
    S2[SP[a1, a1], a4, a3, a5, a2, n] + S2[SP[a1, a1], a4, a5, a2, a3, n] + 
    S2[SP[a1, a1], a4, a5, a3, a2, n] + S2[SP[a1, a1], a5, a2, a4, a3, n] + 
    S2[SP[a1, a1], a5, a4, a2, a3, n] + S2[SP[a1, a1], a5, a4, a3, a2, n] - 
    S2[SP[a1, a5], a1, a2, a4, a3, n] - S2[SP[a1, a5], a1, a4, a2, a3, n] - 
    S2[SP[a1, a5], a1, a4, a3, a2, n] - S2[SP[a1, a5], a4, a1, a2, a3, n] - 
    S2[SP[a1, a5], a4, a1, a3, a2, n] - S2[SP[a1, a5], a4, a3, a1, a2, n] + 
    S2[a5, a1, a1, a2, a4, a3, n] + S2[a5, a1, a1, a4, a2, a3, n] + 
    S2[a5, a1, a1, a4, a3, a2, n] + S2[a5, a1, a4, a1, a2, a3, n] + 
    S2[a5, a1, a4, a1, a3, a2, n] + S2[a5, a1, a4, a3, a1, a2, n] + 
    S2[a5, a4, a1, a1, a2, a3, n] + S2[a5, a4, a1, a1, a3, a2, n] + 
    S2[a5, a4, a1, a3, a1, a2, n] + S2[a5, a4, a3, a1, a1, a2, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a3_, a4_, a5_, a1_, a2_, a1_, n_] :> 
  -(S2[a3, a4, n]*S2[a1, a2, a1, a5, n]) + S2[a1, a2, SP[a1, a3], SP[a4, a5], 
     n] - S2[a1, a2, n]*S2[a1, a4, a3, a5, n] - 
    S2[a1, a2, n]*S2[a1, a4, a5, a3, n] + S2[a1, a4, SP[a1, a3], SP[a2, a5], 
     n] + S2[a1, a4, SP[a1, a5], SP[a2, a3], n] - 
    S2[a1, a2, n]*S2[a1, a5, a4, a3, n] + S2[a1, a5, SP[a1, a4], SP[a2, a3], 
     n] + S2[a1, SP[a1, a4], a3, SP[a2, a5], n] + S2[a1, SP[a1, a4], a5, 
     SP[a2, a3], n] + S2[a1, SP[a1, a4], SP[a2, a3], a5, n] + 
    S2[a1, SP[a1, a4], SP[a2, a5], a3, n] + S2[a1, SP[a1, a5], a4, 
     SP[a2, a3], n] + S2[a1, SP[a1, a5], SP[a2, a4], a3, n] + 
    S2[a1, SP[a2, a3], a1, SP[a4, a5], n] + S2[a1, SP[a2, a3], SP[a1, a4], 
     a5, n] + S2[a1, a2, n]*S2[a3, a4, a1, a5, n] - 
    S2[a3, a4, SP[a1, a1], SP[a2, a5], n] - S2[a3, SP[a1, a4], a1, 
     SP[a2, a5], n] - S2[a3, SP[a1, a4], SP[a1, a2], a5, n] + 
    S2[SP[a1, a1], a4, a3, SP[a2, a5], n] + S2[SP[a1, a1], a4, a5, 
     SP[a2, a3], n] + S2[SP[a1, a1], a4, SP[a2, a3], a5, n] + 
    S2[SP[a1, a1], a4, SP[a2, a5], a3, n] + S2[SP[a1, a1], a5, a4, 
     SP[a2, a3], n] + S2[SP[a1, a1], a5, SP[a2, a4], a3, n] + 
    S2[SP[a1, a1], SP[a2, a4], a3, a5, n] + S2[SP[a1, a1], SP[a2, a4], a5, 
     a3, n] + S2[SP[a1, a1], SP[a2, a5], a4, a3, n] + 
    S2[SP[a1, a3], a2, a1, SP[a4, a5], n] + S2[SP[a1, a3], a2, SP[a1, a4], 
     a5, n] - S2[SP[a1, a3], a4, a1, SP[a2, a5], n] - 
    S2[SP[a1, a3], a4, SP[a1, a2], a5, n] + 
    2*S2[a5, n]*S2[a1, a1, a2, a4, a3, n] + 
    2*S2[a1, a1, a2, a4, SP[a3, a5], n] + 
    2*S2[a1, a1, a2, SP[a4, a5], a3, n] + 
    2*S2[a5, n]*S2[a1, a1, a4, a2, a3, n] + 
    2*S2[a1, a1, a4, a2, SP[a3, a5], n] + 
    2*S2[a5, n]*S2[a1, a1, a4, a3, a2, n] - 
    2*S2[a1, a1, a4, a5, SP[a2, a3], n] - 
    2*S2[a1, a1, a4, SP[a2, a3], a5, n] + 
    2*S2[a1, a1, a4, SP[a3, a5], a2, n] - 
    2*S2[a1, a1, a5, a4, SP[a2, a3], n] - 
    2*S2[a1, a1, a5, SP[a2, a4], a3, n] - 
    2*S2[a1, a1, SP[a2, a4], a3, a5, n] - 
    2*S2[a1, a1, SP[a2, a4], a5, a3, n] + 
    2*S2[a1, a1, SP[a4, a5], a2, a3, n] + 
    2*S2[a1, a1, SP[a4, a5], a3, a2, n] - S2[a1, a2, a1, a3, SP[a4, a5], n] + 
    S2[a3, n]*S2[a1, a2, a1, a4, a5, n] + S2[a1, a2, a1, a4, SP[a3, a5], n] + 
    S2[a3, n]*S2[a1, a2, a1, a5, a4, n] + S2[a1, a2, a1, a5, SP[a3, a4], n] + 
    S2[a1, a2, a1, SP[a3, a4], a5, n] - S2[a1, a2, a3, a1, SP[a4, a5], n] - 
    S2[a1, a2, a3, SP[a1, a4], a5, n] - S2[a1, a3, a2, a1, SP[a4, a5], n] - 
    S2[a1, a3, a2, SP[a1, a4], a5, n] + S2[a1, a3, a4, a1, SP[a2, a5], n] + 
    S2[a1, a3, a4, SP[a1, a2], a5, n] + 2*S2[a5, n]*
     S2[a1, a4, a1, a2, a3, n] - S2[a3, n]*S2[a1, a4, a1, a2, a5, n] + 
    S2[a1, a4, a1, a2, SP[a3, a5], n] + 2*S2[a5, n]*
     S2[a1, a4, a1, a3, a2, n] + S2[a1, a4, a1, a3, SP[a2, a5], n] - 
    S2[a3, n]*S2[a1, a4, a1, a5, a2, n] - 
    2*S2[a1, a4, a1, a5, SP[a2, a3], n] - 
    2*S2[a1, a4, a1, SP[a2, a3], a5, n] + S2[a1, a4, a1, SP[a2, a5], a3, n] + 
    S2[a1, a4, a1, SP[a3, a5], a2, n] + 2*S2[a5, n]*
     S2[a1, a4, a3, a1, a2, n] + S2[a1, a4, a3, a1, SP[a2, a5], n] + 
    S2[a1, a4, a3, SP[a1, a5], a2, n] - S2[a3, n]*S2[a1, a4, a5, a1, a2, n] - 
    2*S2[a1, a4, a5, a1, SP[a2, a3], n] - 
    2*S2[a1, a4, a5, SP[a1, a3], a2, n] - 
    2*S2[a1, a4, SP[a1, a3], a2, a5, n] - 
    2*S2[a1, a4, SP[a1, a3], a5, a2, n] + S2[a1, a4, SP[a1, a5], a2, a3, n] + 
    S2[a1, a4, SP[a1, a5], a3, a2, n] + S2[a1, a4, SP[a3, a5], a1, a2, n] - 
    S2[a1, a5, a1, a4, SP[a2, a3], n] - S2[a1, a5, a1, SP[a2, a4], a3, n] - 
    S2[a1, a5, a4, a1, SP[a2, a3], n] - S2[a1, a5, a4, SP[a1, a3], a2, n] - 
    S2[a1, a5, SP[a1, a4], a2, a3, n] - S2[a1, a5, SP[a1, a4], a3, a2, n] - 
    S2[a1, SP[a1, a2], a4, a3, a5, n] - S2[a1, SP[a1, a2], a4, a5, a3, n] - 
    S2[a1, SP[a1, a2], a5, a4, a3, n] - S2[a1, SP[a1, a4], a2, a3, a5, n] - 
    S2[a1, SP[a1, a4], a2, a5, a3, n] - S2[a1, SP[a1, a4], a3, a2, a5, n] - 
    S2[a1, SP[a1, a4], a3, a5, a2, n] - S2[a1, SP[a1, a4], a5, a2, a3, n] - 
    S2[a1, SP[a1, a4], a5, a3, a2, n] + S2[a1, SP[a1, a5], a2, a4, a3, n] + 
    S2[a1, SP[a1, a5], a4, a2, a3, n] + S2[a1, SP[a1, a5], a4, a3, a2, n] - 
    S2[a1, SP[a3, a4], a1, a2, a5, n] - S2[a1, SP[a3, a4], a1, a5, a2, n] - 
    S2[a1, SP[a3, a4], a5, a1, a2, n] + 2*S2[a1, SP[a4, a5], a1, a2, a3, n] + 
    2*S2[a1, SP[a4, a5], a1, a3, a2, n] + 
    2*S2[a1, SP[a4, a5], a3, a1, a2, n] - S2[a3, a1, a2, a1, SP[a4, a5], n] - 
    S2[a3, a1, a2, SP[a1, a4], a5, n] + S2[a3, a1, a4, a1, SP[a2, a5], n] + 
    S2[a3, a1, a4, SP[a1, a2], a5, n] - 2*S2[a5, n]*
     S2[a3, a4, a1, a1, a2, n] + S2[a3, a4, a1, SP[a1, a2], a5, n] - 
    S2[a3, a4, a1, SP[a1, a5], a2, n] + S2[a1, n]*S2[a3, a4, a5, a1, a2, n] + 
    S2[a3, a4, a5, a1, SP[a1, a2], n] + S2[a3, a4, a5, SP[a1, a1], a2, n] + 
    S2[a3, a4, SP[a1, a1], a2, a5, n] + S2[a3, a4, SP[a1, a1], a5, a2, n] - 
    S2[a3, a4, SP[a1, a5], a1, a2, n] + S2[a3, SP[a1, a4], a1, a2, a5, n] + 
    S2[a3, SP[a1, a4], a1, a5, a2, n] + S2[a3, SP[a1, a4], a5, a1, a2, n] - 
    2*S2[a3, SP[a4, a5], a1, a1, a2, n] - 
    S2[a1, n]*S2[a5, a1, a2, a4, a3, n] - S2[a5, a1, a2, a4, SP[a1, a3], n] - 
    S2[a5, a1, a2, SP[a1, a4], a3, n] - S2[a1, n]*S2[a5, a1, a4, a2, a3, n] - 
    S2[a5, a1, a4, a2, SP[a1, a3], n] - S2[a1, n]*S2[a5, a1, a4, a3, a2, n] - 
    S2[a5, a1, a4, a3, SP[a1, a2], n] - S2[a5, a1, a4, SP[a1, a2], a3, n] - 
    S2[a5, a1, a4, SP[a1, a3], a2, n] - S2[a5, a1, SP[a1, a2], a4, a3, n] - 
    S2[a5, a1, SP[a1, a4], a2, a3, n] - S2[a5, a1, SP[a1, a4], a3, a2, n] + 
    2*S2[a3, n]*S2[a5, a4, a1, a1, a2, n] + 
    2*S2[a5, a4, a1, a1, SP[a2, a3], n] - 
    S2[a1, n]*S2[a5, a4, a1, a2, a3, n] - S2[a5, a4, a1, a2, SP[a1, a3], n] - 
    S2[a1, n]*S2[a5, a4, a1, a3, a2, n] - S2[a5, a4, a1, a3, SP[a1, a2], n] - 
    S2[a5, a4, a1, SP[a1, a2], a3, n] + S2[a5, a4, a1, SP[a1, a3], a2, n] - 
    S2[a1, n]*S2[a5, a4, a3, a1, a2, n] - S2[a5, a4, a3, a1, SP[a1, a2], n] - 
    S2[a5, a4, a3, SP[a1, a1], a2, n] - S2[a5, a4, SP[a1, a1], a2, a3, n] - 
    S2[a5, a4, SP[a1, a1], a3, a2, n] + S2[a5, a4, SP[a1, a3], a1, a2, n] - 
    S2[a5, SP[a1, a1], a2, a4, a3, n] - S2[a5, SP[a1, a1], a4, a2, a3, n] - 
    S2[a5, SP[a1, a1], a4, a3, a2, n] - S2[a5, SP[a1, a4], a1, a2, a3, n] - 
    S2[a5, SP[a1, a4], a1, a3, a2, n] - S2[a5, SP[a1, a4], a3, a1, a2, n] + 
    2*S2[a5, SP[a3, a4], a1, a1, a2, n] - S2[SP[a1, a1], a2, a4, a3, a5, n] - 
    S2[SP[a1, a1], a2, a4, a5, a3, n] - S2[SP[a1, a1], a2, a5, a4, a3, n] - 
    S2[SP[a1, a1], a4, a2, a3, a5, n] - S2[SP[a1, a1], a4, a2, a5, a3, n] - 
    S2[SP[a1, a1], a4, a3, a2, a5, n] - S2[SP[a1, a1], a4, a3, a5, a2, n] - 
    S2[SP[a1, a1], a4, a5, a2, a3, n] - S2[SP[a1, a1], a4, a5, a3, a2, n] - 
    S2[SP[a1, a1], a5, a2, a4, a3, n] - S2[SP[a1, a1], a5, a4, a2, a3, n] - 
    S2[SP[a1, a1], a5, a4, a3, a2, n] + S2[SP[a1, a5], a1, a2, a4, a3, n] + 
    S2[SP[a1, a5], a1, a4, a2, a3, n] + S2[SP[a1, a5], a1, a4, a3, a2, n] + 
    S2[SP[a1, a5], a4, a1, a2, a3, n] + S2[SP[a1, a5], a4, a1, a3, a2, n] + 
    S2[SP[a1, a5], a4, a3, a1, a2, n] + S2[a5, a1, a2, a1, a4, a3, n] + 
    S2[a5, a1, a2, a4, a1, a3, n] + S2[a5, a1, a2, a4, a3, a1, n] + 
    S2[a5, a1, a4, a2, a1, a3, n] + S2[a5, a1, a4, a2, a3, a1, n] + 
    S2[a5, a1, a4, a3, a2, a1, n] + S2[a5, a4, a1, a2, a1, a3, n] + 
    S2[a5, a4, a1, a2, a3, a1, n] + S2[a5, a4, a1, a3, a2, a1, n] + 
    S2[a5, a4, a3, a1, a2, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a3_, a4_, a5_, a2_, a1_, a1_, n_] :> 
  -(S2[a3, a4, n]*S2[a1, a1, a2, a5, n]) + S2[a1, a1, SP[a2, a3], SP[a4, a5], 
     n] + S2[a1, SP[a1, a3], a2, SP[a4, a5], n] + 
    S2[a1, SP[a1, a3], SP[a2, a4], a5, n] + S2[SP[a1, a3], a1, a2, 
     SP[a4, a5], n] + S2[SP[a1, a3], a1, SP[a2, a4], a5, n] + 
    S2[SP[a1, a3], SP[a1, a4], a2, a5, n] - S2[a1, a1, a2, a3, SP[a4, a5], 
     n] - S2[a5, n]*S2[a1, a1, a2, a4, a3, n] + 
    S2[a3, n]*S2[a1, a1, a2, a4, a5, n] + 
    S2[a3, n]*S2[a1, a1, a2, a5, a4, n] + S2[a1, a1, a2, a5, SP[a3, a4], n] + 
    S2[a1, a1, a2, SP[a3, a4], a5, n] - S2[a1, a1, a2, SP[a4, a5], a3, n] - 
    S2[a1, a1, a3, a2, SP[a4, a5], n] - S2[a1, a1, a3, SP[a2, a4], a5, n] - 
    S2[a5, n]*S2[a1, a1, a4, a2, a3, n] + 
    S2[a3, n]*S2[a1, a1, a4, a2, a5, n] - 
    S2[a5, n]*S2[a1, a1, a4, a3, a2, n] - S2[a1, a1, a4, a3, SP[a2, a5], n] + 
    S2[a3, n]*S2[a1, a1, a4, a5, a2, n] + S2[a1, a1, a4, a5, SP[a2, a3], n] + 
    S2[a1, a1, a4, SP[a2, a3], a5, n] - S2[a1, a1, a4, SP[a2, a5], a3, n] - 
    S2[a1, a1, SP[a2, a5], a4, a3, n] + S2[a1, a1, SP[a3, a4], a2, a5, n] + 
    S2[a1, a1, SP[a3, a4], a5, a2, n] - S2[a1, a1, SP[a4, a5], a2, a3, n] - 
    S2[a1, a1, SP[a4, a5], a3, a2, n] - S2[a1, a3, a1, a2, SP[a4, a5], n] - 
    S2[a1, a3, a1, SP[a2, a4], a5, n] - (S2[a1, n]*S2[a1, a3, a4, a5, a2, n])/
     2 - S2[a1, a3, a4, a5, SP[a1, a2], n]/2 - 
    S2[a1, a3, a4, SP[a1, a5], a2, n]/2 - S2[a1, a3, SP[a1, a4], a2, a5, n] - 
    S2[a1, a3, SP[a1, a4], a5, a2, n]/2 - 
    S2[a5, n]*S2[a1, a4, a1, a2, a3, n] + 
    S2[a3, n]*S2[a1, a4, a1, a2, a5, n] - 
    S2[a5, n]*S2[a1, a4, a1, a3, a2, n] - S2[a1, a4, a1, a3, SP[a2, a5], n] + 
    S2[a3, n]*S2[a1, a4, a1, a5, a2, n] + S2[a1, a4, a1, a5, SP[a2, a3], n] + 
    S2[a1, a4, a1, SP[a2, a3], a5, n] - S2[a1, a4, a1, SP[a2, a5], a3, n] - 
    S2[a5, n]*S2[a1, a4, a3, a1, a2, n] - S2[a1, a4, a3, a1, SP[a2, a5], n] - 
    S2[a1, a4, a3, SP[a1, a5], a2, n] + S2[a3, n]*S2[a1, a4, a5, a1, a2, n] + 
    S2[a1, a4, a5, a1, SP[a2, a3], n] + S2[a1, a4, a5, SP[a1, a3], a2, n] + 
    S2[a1, a4, SP[a1, a3], a2, a5, n] + S2[a1, a4, SP[a1, a3], a5, a2, n] - 
    S2[a1, a4, SP[a1, a5], a2, a3, n] - S2[a1, a4, SP[a1, a5], a3, a2, n] + 
    (S2[a1, n]*S2[a1, a5, a2, a4, a3, n])/2 + 
    S2[a1, a5, a2, a4, SP[a1, a3], n]/2 + S2[a1, a5, a2, SP[a1, a4], a3, n]/
     2 + (S2[a1, n]*S2[a1, a5, a4, a2, a3, n])/2 + 
    S2[a1, a5, a4, a2, SP[a1, a3], n]/2 + 
    (S2[a1, n]*S2[a1, a5, a4, a3, a2, n])/2 + 
    S2[a1, a5, a4, a3, SP[a1, a2], n]/2 + S2[a1, a5, a4, SP[a1, a2], a3, n]/
     2 + S2[a1, a5, a4, SP[a1, a3], a2, n]/2 + 
    S2[a1, a5, SP[a1, a2], a4, a3, n]/2 + S2[a1, a5, SP[a1, a4], a2, a3, n]/
     2 + S2[a1, a5, SP[a1, a4], a3, a2, n]/2 + 
    S2[a1, SP[a1, a3], a4, a5, a2, n]/2 - S2[a1, SP[a1, a5], a2, a4, a3, n]/
     2 - S2[a1, SP[a1, a5], a4, a2, a3, n]/2 - 
    S2[a1, SP[a1, a5], a4, a3, a2, n]/2 + S2[a1, SP[a3, a4], a1, a2, a5, n] + 
    S2[a1, SP[a3, a4], a1, a5, a2, n] + S2[a1, SP[a3, a4], a5, a1, a2, n] - 
    S2[a1, SP[a4, a5], a1, a2, a3, n] - S2[a1, SP[a4, a5], a1, a3, a2, n] - 
    S2[a1, SP[a4, a5], a3, a1, a2, n] - S2[a3, a1, a1, a2, SP[a4, a5], n] - 
    S2[a3, a1, a1, SP[a2, a4], a5, n] - (S2[a1, n]*S2[a3, a1, a4, a5, a2, n])/
     2 - S2[a3, a1, a4, a5, SP[a1, a2], n]/2 - 
    S2[a3, a1, a4, SP[a1, a5], a2, n]/2 - S2[a3, a1, SP[a1, a4], a2, a5, n] - 
    S2[a3, a1, SP[a1, a4], a5, a2, n]/2 + 
    S2[a5, n]*S2[a3, a4, a1, a1, a2, n] + S2[a3, a4, a1, a1, SP[a2, a5], n] - 
    (S2[a1, n]*S2[a3, a4, a1, a5, a2, n])/2 - 
    S2[a3, a4, a1, a5, SP[a1, a2], n]/2 + S2[a3, a4, a1, SP[a1, a5], a2, n]/
     2 - (S2[a1, n]*S2[a3, a4, a5, a1, a2, n])/2 - 
    S2[a3, a4, a5, a1, SP[a1, a2], n]/2 + 
    (S2[a1, n]*S2[a3, a4, a5, a2, a1, n])/2 + 
    S2[a3, a4, a5, a2, SP[a1, a1], n]/2 - S2[a3, a4, a5, SP[a1, a1], a2, n]/
     2 + S2[a3, a4, a5, SP[a1, a2], a1, n]/2 - 
    S2[a3, a4, SP[a1, a1], a5, a2, n]/2 + S2[a3, a4, SP[a1, a5], a1, a2, n]/
     2 + S2[a3, a4, SP[a1, a5], a2, a1, n]/2 - 
    S2[a3, SP[a1, a1], a4, a5, a2, n]/2 - S2[a3, SP[a1, a4], a1, a2, a5, n] - 
    S2[a3, SP[a1, a4], a1, a5, a2, n]/2 - S2[a3, SP[a1, a4], a5, a1, a2, n]/
     2 + S2[a3, SP[a1, a4], a5, a2, a1, n]/2 + S2[a3, SP[a4, a5], a1, a1, a2, 
     n] + (S2[a1, n]*S2[a5, a1, a2, a4, a3, n])/2 + 
    S2[a5, a1, a2, a4, SP[a1, a3], n]/2 + S2[a5, a1, a2, SP[a1, a4], a3, n]/
     2 + (S2[a1, n]*S2[a5, a1, a4, a2, a3, n])/2 + 
    S2[a5, a1, a4, a2, SP[a1, a3], n]/2 + 
    (S2[a1, n]*S2[a5, a1, a4, a3, a2, n])/2 + 
    S2[a5, a1, a4, a3, SP[a1, a2], n]/2 + S2[a5, a1, a4, SP[a1, a2], a3, n]/
     2 + S2[a5, a1, a4, SP[a1, a3], a2, n]/2 + 
    S2[a5, a1, SP[a1, a2], a4, a3, n]/2 + S2[a5, a1, SP[a1, a4], a2, a3, n]/
     2 + S2[a5, a1, SP[a1, a4], a3, a2, n]/2 - 
    (S2[a1, n]*S2[a5, a2, a1, a4, a3, n])/2 - 
    S2[a5, a2, a1, a4, SP[a1, a3], n]/2 - S2[a5, a2, a1, SP[a1, a4], a3, n]/
     2 - (S2[a1, n]*S2[a5, a2, a4, a1, a3, n])/2 - 
    S2[a5, a2, a4, a1, SP[a1, a3], n]/2 - 
    (S2[a1, n]*S2[a5, a2, a4, a3, a1, n])/2 - 
    S2[a5, a2, a4, a3, SP[a1, a1], n]/2 - S2[a5, a2, a4, SP[a1, a1], a3, n]/
     2 - S2[a5, a2, a4, SP[a1, a3], a1, n]/2 - 
    S2[a5, a2, SP[a1, a1], a4, a3, n]/2 - S2[a5, a2, SP[a1, a4], a1, a3, n]/
     2 - S2[a5, a2, SP[a1, a4], a3, a1, n]/2 - 
    S2[a3, n]*S2[a5, a4, a1, a1, a2, n] - S2[a5, a4, a1, a1, SP[a2, a3], n] + 
    (S2[a1, n]*S2[a5, a4, a1, a2, a3, n])/2 + 
    S2[a5, a4, a1, a2, SP[a1, a3], n]/2 + 
    (S2[a1, n]*S2[a5, a4, a1, a3, a2, n])/2 + 
    S2[a5, a4, a1, a3, SP[a1, a2], n]/2 + S2[a5, a4, a1, SP[a1, a2], a3, n]/
     2 - S2[a5, a4, a1, SP[a1, a3], a2, n]/2 - 
    (S2[a1, n]*S2[a5, a4, a2, a1, a3, n])/2 - 
    S2[a5, a4, a2, a1, SP[a1, a3], n]/2 - 
    (S2[a1, n]*S2[a5, a4, a2, a3, a1, n])/2 - 
    S2[a5, a4, a2, a3, SP[a1, a1], n]/2 - S2[a5, a4, a2, SP[a1, a1], a3, n]/
     2 - S2[a5, a4, a2, SP[a1, a3], a1, n]/2 + 
    (S2[a1, n]*S2[a5, a4, a3, a1, a2, n])/2 + 
    S2[a5, a4, a3, a1, SP[a1, a2], n]/2 - 
    (S2[a1, n]*S2[a5, a4, a3, a2, a1, n])/2 - 
    S2[a5, a4, a3, a2, SP[a1, a1], n]/2 + S2[a5, a4, a3, SP[a1, a1], a2, n]/
     2 - S2[a5, a4, a3, SP[a1, a2], a1, n]/2 + 
    S2[a5, a4, SP[a1, a1], a2, a3, n]/2 + S2[a5, a4, SP[a1, a1], a3, a2, n]/
     2 - S2[a5, a4, SP[a1, a2], a1, a3, n]/2 - 
    S2[a5, a4, SP[a1, a2], a3, a1, n]/2 - S2[a5, a4, SP[a1, a3], a1, a2, n]/
     2 - S2[a5, a4, SP[a1, a3], a2, a1, n]/2 + 
    S2[a5, SP[a1, a1], a2, a4, a3, n]/2 + S2[a5, SP[a1, a1], a4, a2, a3, n]/
     2 + S2[a5, SP[a1, a1], a4, a3, a2, n]/2 - 
    S2[a5, SP[a1, a2], a1, a4, a3, n]/2 - S2[a5, SP[a1, a2], a4, a1, a3, n]/
     2 - S2[a5, SP[a1, a2], a4, a3, a1, n]/2 + 
    S2[a5, SP[a1, a4], a1, a2, a3, n]/2 + S2[a5, SP[a1, a4], a1, a3, a2, n]/
     2 - S2[a5, SP[a1, a4], a2, a1, a3, n]/2 - 
    S2[a5, SP[a1, a4], a2, a3, a1, n]/2 + S2[a5, SP[a1, a4], a3, a1, a2, n]/
     2 - S2[a5, SP[a1, a4], a3, a2, a1, n]/2 - S2[a5, SP[a3, a4], a1, a1, a2, 
     n] - S2[SP[a1, a1], a3, a4, a5, a2, n]/2 + 
    S2[SP[a1, a1], a5, a2, a4, a3, n]/2 + S2[SP[a1, a1], a5, a4, a2, a3, n]/
     2 + S2[SP[a1, a1], a5, a4, a3, a2, n]/2 + 
    S2[SP[a1, a3], a1, a4, a5, a2, n]/2 + S2[SP[a1, a3], a4, a1, a5, a2, n]/
     2 + S2[SP[a1, a3], a4, a5, a1, a2, n]/2 + 
    S2[SP[a1, a3], a4, a5, a2, a1, n]/2 - S2[SP[a1, a5], a1, a2, a4, a3, n]/
     2 - S2[SP[a1, a5], a1, a4, a2, a3, n]/2 - 
    S2[SP[a1, a5], a1, a4, a3, a2, n]/2 - S2[SP[a1, a5], a2, a1, a4, a3, n]/
     2 - S2[SP[a1, a5], a2, a4, a1, a3, n]/2 - 
    S2[SP[a1, a5], a2, a4, a3, a1, n]/2 - S2[SP[a1, a5], a4, a1, a2, a3, n]/
     2 - S2[SP[a1, a5], a4, a1, a3, a2, n]/2 - 
    S2[SP[a1, a5], a4, a2, a1, a3, n]/2 - S2[SP[a1, a5], a4, a2, a3, a1, n]/
     2 - S2[SP[a1, a5], a4, a3, a1, a2, n]/2 - 
    S2[SP[a1, a5], a4, a3, a2, a1, n]/2 + S2[a5, a2, a1, a1, a4, a3, n] + 
    S2[a5, a2, a1, a4, a1, a3, n] + S2[a5, a2, a1, a4, a3, a1, n] + 
    S2[a5, a2, a4, a1, a1, a3, n] + S2[a5, a2, a4, a1, a3, a1, n] + 
    S2[a5, a2, a4, a3, a1, a1, n] + S2[a5, a4, a2, a1, a1, a3, n] + 
    S2[a5, a4, a2, a1, a3, a1, n] + S2[a5, a4, a2, a3, a1, a1, n] + 
    S2[a5, a4, a3, a2, a1, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a3_, a5_, a1_, a1_, a2_, a4_, n_] :> 
  S2[a3, n]*S2[a5, a1, a1, a2, a4, n] + S2[a5, a1, a1, a2, SP[a3, a4], n] + 
    S2[a5, a1, a1, SP[a2, a3], a4, n] + S2[a5, a1, SP[a1, a3], a2, a4, n] + 
    S2[a5, SP[a1, a3], a1, a2, a4, n] + S2[SP[a3, a5], a1, a1, a2, a4, n] - 
    S2[a5, a1, a1, a2, a3, a4, n] - S2[a5, a1, a1, a2, a4, a3, n] - 
    S2[a5, a1, a1, a3, a2, a4, n] - S2[a5, a1, a3, a1, a2, a4, n] - 
    S2[a5, a3, a1, a1, a2, a4, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a3_, a5_, a1_, a1_, a4_, a2_, n_] :> 
  S2[a3, n]*S2[a5, a1, a1, a4, a2, n] + S2[a5, a1, a1, a4, SP[a2, a3], n] + 
    S2[a5, a1, a1, SP[a3, a4], a2, n] + S2[a5, a1, SP[a1, a3], a4, a2, n] + 
    S2[a5, SP[a1, a3], a1, a4, a2, n] + S2[SP[a3, a5], a1, a1, a4, a2, n] - 
    S2[a5, a1, a1, a3, a4, a2, n] - S2[a5, a1, a1, a4, a2, a3, n] - 
    S2[a5, a1, a1, a4, a3, a2, n] - S2[a5, a1, a3, a1, a4, a2, n] - 
    S2[a5, a3, a1, a1, a4, a2, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a3_, a5_, a1_, a2_, a1_, a4_, n_] :> 
  S2[a3, n]*S2[a5, a1, a2, a1, a4, n] + S2[a5, a1, a2, a1, SP[a3, a4], n] + 
    S2[a5, a1, a2, SP[a1, a3], a4, n] + S2[a5, a1, SP[a2, a3], a1, a4, n] + 
    S2[a5, SP[a1, a3], a2, a1, a4, n] + S2[SP[a3, a5], a1, a2, a1, a4, n] - 
    S2[a5, a1, a2, a1, a3, a4, n] - S2[a5, a1, a2, a1, a4, a3, n] - 
    S2[a5, a1, a2, a3, a1, a4, n] - S2[a5, a1, a3, a2, a1, a4, n] - 
    S2[a5, a3, a1, a2, a1, a4, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a3_, a5_, a1_, a2_, a4_, a1_, n_] :> 
  -(S2[a3, n]*S2[a1, a5, a1, a2, a4, n]) - S2[a1, a5, a1, a2, SP[a3, a4], 
     n] - S2[a1, a5, a1, SP[a2, a3], a4, n] - S2[a1, a5, SP[a1, a3], a2, a4, 
     n] - S2[a1, SP[a3, a5], a1, a2, a4, n] + 
    S2[a1, n]*S2[a3, a5, a1, a2, a4, n] + S2[a3, a5, a1, a2, SP[a1, a4], n] + 
    S2[a3, a5, a1, SP[a1, a2], a4, n] + S2[a3, a5, SP[a1, a1], a2, a4, n] + 
    S2[a3, SP[a1, a5], a1, a2, a4, n] - 2*S2[a3, n]*
     S2[a5, a1, a1, a2, a4, n] - 2*S2[a5, a1, a1, a2, SP[a3, a4], n] - 
    2*S2[a5, a1, a1, SP[a2, a3], a4, n] - 
    S2[a3, n]*S2[a5, a1, a2, a1, a4, n] - S2[a5, a1, a2, a1, SP[a3, a4], n] + 
    S2[a1, n]*S2[a5, a1, a2, a3, a4, n] + S2[a5, a1, a2, a3, SP[a1, a4], n] + 
    S2[a1, n]*S2[a5, a1, a2, a4, a3, n] + S2[a5, a1, a2, a4, SP[a1, a3], n] + 
    S2[a5, a1, a2, SP[a1, a4], a3, n] + S2[a1, n]*S2[a5, a1, a3, a2, a4, n] + 
    S2[a5, a1, a3, a2, SP[a1, a4], n] + S2[a5, a1, a3, SP[a1, a2], a4, n] + 
    S2[a5, a1, SP[a1, a2], a3, a4, n] + S2[a5, a1, SP[a1, a2], a4, a3, n] - 
    S2[a5, a1, SP[a1, a3], a2, a4, n] - S2[a5, a1, SP[a2, a3], a1, a4, n] + 
    S2[a1, n]*S2[a5, a3, a1, a2, a4, n] + S2[a5, a3, a1, a2, SP[a1, a4], n] + 
    S2[a5, a3, a1, SP[a1, a2], a4, n] + S2[a5, a3, SP[a1, a1], a2, a4, n] + 
    S2[a5, SP[a1, a1], a2, a3, a4, n] + S2[a5, SP[a1, a1], a2, a4, a3, n] + 
    S2[a5, SP[a1, a1], a3, a2, a4, n] - S2[a5, SP[a1, a3], a1, a2, a4, n] - 
    S2[a5, SP[a1, a3], a2, a1, a4, n] + S2[SP[a1, a5], a1, a2, a3, a4, n] + 
    S2[SP[a1, a5], a1, a2, a4, a3, n] + S2[SP[a1, a5], a1, a3, a2, a4, n] + 
    S2[SP[a1, a5], a3, a1, a2, a4, n] - 2*S2[SP[a3, a5], a1, a1, a2, a4, n] - 
    S2[SP[a3, a5], a1, a2, a1, a4, n] - S2[a5, a1, a2, a3, a4, a1, n] - 
    S2[a5, a1, a2, a4, a1, a3, n] - S2[a5, a1, a2, a4, a3, a1, n] - 
    S2[a5, a1, a3, a2, a4, a1, n] - S2[a5, a3, a1, a2, a4, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a3_, a5_, a1_, a4_, a1_, a2_, n_] :> 
  S2[a3, n]*S2[a5, a1, a4, a1, a2, n] + S2[a5, a1, a4, a1, SP[a2, a3], n] + 
    S2[a5, a1, a4, SP[a1, a3], a2, n] + S2[a5, a1, SP[a3, a4], a1, a2, n] + 
    S2[a5, SP[a1, a3], a4, a1, a2, n] + S2[SP[a3, a5], a1, a4, a1, a2, n] - 
    S2[a5, a1, a3, a4, a1, a2, n] - S2[a5, a1, a4, a1, a2, a3, n] - 
    S2[a5, a1, a4, a1, a3, a2, n] - S2[a5, a1, a4, a3, a1, a2, n] - 
    S2[a5, a3, a1, a4, a1, a2, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a3_, a5_, a1_, a4_, a2_, a1_, n_] :> 
  -(S2[a3, n]*S2[a1, a5, a1, a4, a2, n]) - S2[a1, a5, a1, a4, SP[a2, a3], 
     n] - S2[a1, a5, a1, SP[a3, a4], a2, n] - S2[a1, a5, SP[a1, a3], a4, a2, 
     n] - S2[a1, SP[a3, a5], a1, a4, a2, n] + 
    S2[a1, n]*S2[a3, a5, a1, a4, a2, n] + S2[a3, a5, a1, a4, SP[a1, a2], n] + 
    S2[a3, a5, a1, SP[a1, a4], a2, n] + S2[a3, a5, SP[a1, a1], a4, a2, n] + 
    S2[a3, SP[a1, a5], a1, a4, a2, n] - 2*S2[a3, n]*
     S2[a5, a1, a1, a4, a2, n] - 2*S2[a5, a1, a1, a4, SP[a2, a3], n] - 
    2*S2[a5, a1, a1, SP[a3, a4], a2, n] + 
    S2[a1, n]*S2[a5, a1, a3, a4, a2, n] + S2[a5, a1, a3, a4, SP[a1, a2], n] + 
    S2[a5, a1, a3, SP[a1, a4], a2, n] - S2[a3, n]*S2[a5, a1, a4, a1, a2, n] - 
    S2[a5, a1, a4, a1, SP[a2, a3], n] + S2[a1, n]*S2[a5, a1, a4, a2, a3, n] + 
    S2[a5, a1, a4, a2, SP[a1, a3], n] + S2[a1, n]*S2[a5, a1, a4, a3, a2, n] + 
    S2[a5, a1, a4, a3, SP[a1, a2], n] + S2[a5, a1, a4, SP[a1, a2], a3, n] - 
    S2[a5, a1, SP[a1, a3], a4, a2, n] + S2[a5, a1, SP[a1, a4], a2, a3, n] + 
    S2[a5, a1, SP[a1, a4], a3, a2, n] - S2[a5, a1, SP[a3, a4], a1, a2, n] + 
    S2[a1, n]*S2[a5, a3, a1, a4, a2, n] + S2[a5, a3, a1, a4, SP[a1, a2], n] + 
    S2[a5, a3, a1, SP[a1, a4], a2, n] + S2[a5, a3, SP[a1, a1], a4, a2, n] + 
    S2[a5, SP[a1, a1], a3, a4, a2, n] + S2[a5, SP[a1, a1], a4, a2, a3, n] + 
    S2[a5, SP[a1, a1], a4, a3, a2, n] - S2[a5, SP[a1, a3], a1, a4, a2, n] - 
    S2[a5, SP[a1, a3], a4, a1, a2, n] + S2[SP[a1, a5], a1, a3, a4, a2, n] + 
    S2[SP[a1, a5], a1, a4, a2, a3, n] + S2[SP[a1, a5], a1, a4, a3, a2, n] + 
    S2[SP[a1, a5], a3, a1, a4, a2, n] - 2*S2[SP[a3, a5], a1, a1, a4, a2, n] - 
    S2[SP[a3, a5], a1, a4, a1, a2, n] - S2[a5, a1, a3, a4, a2, a1, n] - 
    S2[a5, a1, a4, a2, a1, a3, n] - S2[a5, a1, a4, a2, a3, a1, n] - 
    S2[a5, a1, a4, a3, a2, a1, n] - S2[a5, a3, a1, a4, a2, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a3_, a5_, a2_, a1_, a1_, a4_, n_] :> 
  -(S2[a3, n]*S2[a2, a5, a1, a1, a4, n]) - S2[a2, a5, a1, a1, SP[a3, a4], 
     n] - S2[a2, a5, a1, SP[a1, a3], a4, n] - S2[a2, a5, SP[a1, a3], a1, a4, 
     n] - S2[a2, SP[a3, a5], a1, a1, a4, n] + 
    S2[a2, n]*S2[a3, a5, a1, a1, a4, n] + S2[a3, a5, a1, a1, SP[a2, a4], n] + 
    S2[a3, a5, a1, SP[a1, a2], a4, n] + S2[a3, a5, SP[a1, a2], a1, a4, n] + 
    S2[a3, SP[a2, a5], a1, a1, a4, n] - S2[a3, n]*S2[a5, a1, a1, a2, a4, n] - 
    S2[a5, a1, a1, a2, SP[a3, a4], n] + S2[a2, n]*S2[a5, a1, a1, a3, a4, n] + 
    S2[a5, a1, a1, a3, SP[a2, a4], n] - S2[a3, n]*S2[a5, a1, a1, a4, a2, n] + 
    S2[a2, n]*S2[a5, a1, a1, a4, a3, n] + S2[a5, a1, a1, SP[a2, a4], a3, n] - 
    S2[a5, a1, a1, SP[a3, a4], a2, n] - S2[a3, n]*S2[a5, a1, a2, a1, a4, n] - 
    S2[a5, a1, a2, a1, SP[a3, a4], n] - S2[a5, a1, a2, SP[a1, a3], a4, n] + 
    S2[a2, n]*S2[a5, a1, a3, a1, a4, n] + S2[a5, a1, a3, a1, SP[a2, a4], n] + 
    S2[a5, a1, a3, SP[a1, a2], a4, n] + S2[a5, a1, SP[a1, a2], a3, a4, n] + 
    S2[a5, a1, SP[a1, a2], a4, a3, n] - S2[a5, a1, SP[a1, a3], a2, a4, n] - 
    S2[a5, a1, SP[a1, a3], a4, a2, n] + S2[a2, n]*S2[a5, a3, a1, a1, a4, n] + 
    S2[a5, a3, a1, a1, SP[a2, a4], n] + S2[a5, a3, a1, SP[a1, a2], a4, n] + 
    S2[a5, a3, SP[a1, a2], a1, a4, n] + S2[a5, SP[a1, a2], a1, a3, a4, n] + 
    S2[a5, SP[a1, a2], a1, a4, a3, n] + S2[a5, SP[a1, a2], a3, a1, a4, n] - 
    S2[a5, SP[a1, a3], a1, a2, a4, n] - S2[a5, SP[a1, a3], a1, a4, a2, n] - 
    S2[a5, SP[a1, a3], a2, a1, a4, n] + S2[a5, SP[a2, a3], a1, a1, a4, n] + 
    S2[SP[a2, a5], a1, a1, a3, a4, n] + S2[SP[a2, a5], a1, a1, a4, a3, n] + 
    S2[SP[a2, a5], a1, a3, a1, a4, n] + S2[SP[a2, a5], a3, a1, a1, a4, n] - 
    S2[SP[a3, a5], a1, a1, a2, a4, n] - S2[SP[a3, a5], a1, a1, a4, a2, n] - 
    S2[SP[a3, a5], a1, a2, a1, a4, n] - S2[a5, a2, a1, a1, a3, a4, n] - 
    S2[a5, a2, a1, a1, a4, a3, n] - S2[a5, a2, a1, a3, a1, a4, n] - 
    S2[a5, a2, a3, a1, a1, a4, n] - S2[a5, a3, a2, a1, a1, a4, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a3_, a5_, a2_, a1_, a4_, a1_, n_] :> 
  -(S2[a3, n]*S2[a1, a5, a2, a1, a4, n]) - S2[a1, a5, a2, a1, SP[a3, a4], 
     n] - S2[a1, a5, a2, SP[a1, a3], a4, n] - S2[a1, a5, SP[a2, a3], a1, a4, 
     n] - S2[a1, SP[a3, a5], a2, a1, a4, n] + 
    2*S2[a3, n]*S2[a2, a5, a1, a1, a4, n] + 
    2*S2[a2, a5, a1, a1, SP[a3, a4], n] + 
    2*S2[a2, a5, a1, SP[a1, a3], a4, n] + 
    2*S2[a2, a5, SP[a1, a3], a1, a4, n] + 
    2*S2[a2, SP[a3, a5], a1, a1, a4, n] - 
    2*S2[a2, n]*S2[a3, a5, a1, a1, a4, n] - 
    2*S2[a3, a5, a1, a1, SP[a2, a4], n] - 
    2*S2[a3, a5, a1, SP[a1, a2], a4, n] + 
    S2[a1, n]*S2[a3, a5, a2, a1, a4, n] + S2[a3, a5, a2, a1, SP[a1, a4], n] + 
    S2[a3, a5, a2, SP[a1, a1], a4, n] - S2[a3, a5, SP[a1, a2], a1, a4, n] + 
    S2[a3, SP[a1, a5], a2, a1, a4, n] - 2*S2[a3, SP[a2, a5], a1, a1, a4, n] + 
    2*S2[a3, n]*S2[a5, a1, a1, a2, a4, n] + 
    2*S2[a5, a1, a1, a2, SP[a3, a4], n] - 
    2*S2[a2, n]*S2[a5, a1, a1, a3, a4, n] - 
    2*S2[a5, a1, a1, a3, SP[a2, a4], n] + 
    2*S2[a3, n]*S2[a5, a1, a1, a4, a2, n] - 
    2*S2[a2, n]*S2[a5, a1, a1, a4, a3, n] - 
    2*S2[a5, a1, a1, SP[a2, a4], a3, n] + 
    2*S2[a5, a1, a1, SP[a3, a4], a2, n] + 
    S2[a3, n]*S2[a5, a1, a2, a1, a4, n] + S2[a5, a1, a2, a1, SP[a3, a4], n] + 
    S2[a5, a1, a2, SP[a1, a3], a4, n] - 2*S2[a2, n]*
     S2[a5, a1, a3, a1, a4, n] - 2*S2[a5, a1, a3, a1, SP[a2, a4], n] - 
    2*S2[a5, a1, a3, SP[a1, a2], a4, n] - 
    2*S2[a5, a1, SP[a1, a2], a3, a4, n] - 
    2*S2[a5, a1, SP[a1, a2], a4, a3, n] + 
    2*S2[a5, a1, SP[a1, a3], a2, a4, n] + 
    2*S2[a5, a1, SP[a1, a3], a4, a2, n] - S2[a5, a1, SP[a2, a3], a1, a4, n] + 
    S2[a1, n]*S2[a5, a2, a1, a3, a4, n] + S2[a5, a2, a1, a3, SP[a1, a4], n] + 
    S2[a1, n]*S2[a5, a2, a1, a4, a3, n] + S2[a5, a2, a1, a4, SP[a1, a3], n] + 
    S2[a5, a2, a1, SP[a1, a3], a4, n] + S2[a5, a2, a1, SP[a1, a4], a3, n] + 
    S2[a1, n]*S2[a5, a2, a3, a1, a4, n] + S2[a5, a2, a3, a1, SP[a1, a4], n] + 
    S2[a5, a2, a3, SP[a1, a1], a4, n] + S2[a5, a2, SP[a1, a1], a3, a4, n] + 
    S2[a5, a2, SP[a1, a1], a4, a3, n] + S2[a5, a2, SP[a1, a3], a1, a4, n] - 
    2*S2[a2, n]*S2[a5, a3, a1, a1, a4, n] - 
    2*S2[a5, a3, a1, a1, SP[a2, a4], n] - 
    2*S2[a5, a3, a1, SP[a1, a2], a4, n] + 
    S2[a1, n]*S2[a5, a3, a2, a1, a4, n] + S2[a5, a3, a2, a1, SP[a1, a4], n] + 
    S2[a5, a3, a2, SP[a1, a1], a4, n] - S2[a5, a3, SP[a1, a2], a1, a4, n] - 
    S2[a5, SP[a1, a2], a1, a3, a4, n] - S2[a5, SP[a1, a2], a1, a4, a3, n] - 
    S2[a5, SP[a1, a2], a3, a1, a4, n] + 2*S2[a5, SP[a1, a3], a1, a2, a4, n] + 
    2*S2[a5, SP[a1, a3], a1, a4, a2, n] + 
    2*S2[a5, SP[a1, a3], a2, a1, a4, n] - 
    2*S2[a5, SP[a2, a3], a1, a1, a4, n] + S2[SP[a1, a5], a2, a1, a3, a4, n] + 
    S2[SP[a1, a5], a2, a1, a4, a3, n] + S2[SP[a1, a5], a2, a3, a1, a4, n] + 
    S2[SP[a1, a5], a3, a2, a1, a4, n] - 2*S2[SP[a2, a5], a1, a1, a3, a4, n] - 
    2*S2[SP[a2, a5], a1, a1, a4, a3, n] - 
    2*S2[SP[a2, a5], a1, a3, a1, a4, n] - 
    2*S2[SP[a2, a5], a3, a1, a1, a4, n] + 
    2*S2[SP[a3, a5], a1, a1, a2, a4, n] + 
    2*S2[SP[a3, a5], a1, a1, a4, a2, n] + S2[SP[a3, a5], a1, a2, a1, a4, n] - 
    S2[a5, a2, a1, a3, a4, a1, n] - S2[a5, a2, a1, a4, a1, a3, n] - 
    S2[a5, a2, a1, a4, a3, a1, n] - S2[a5, a2, a3, a1, a4, a1, n] - 
    S2[a5, a3, a2, a1, a4, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a3_, a5_, a2_, a4_, a1_, a1_, n_] :> 
  S2[a3, n]*S2[a1, a1, a5, a2, a4, n] + S2[a1, a1, a5, a2, SP[a3, a4], n] + 
    S2[a1, a1, a5, SP[a2, a3], a4, n] + S2[a1, a1, SP[a3, a5], a2, a4, n] - 
    (S2[a1, n]*S2[a1, a3, a5, a2, a4, n])/2 - 
    S2[a1, a3, a5, a2, SP[a1, a4], n]/2 - S2[a1, a3, a5, SP[a1, a2], a4, n]/

     2 - S2[a1, a3, SP[a1, a5], a2, a4, n]/2 + 
    S2[a3, n]*S2[a1, a5, a1, a2, a4, n] + S2[a1, a5, a1, a2, SP[a3, a4], n] + 
    S2[a1, a5, a1, SP[a2, a3], a4, n] + S2[a3, n]*S2[a1, a5, a2, a1, a4, n] + 
    S2[a1, a5, a2, a1, SP[a3, a4], n] - (S2[a1, n]*S2[a1, a5, a2, a3, a4, n])/
     2 - S2[a1, a5, a2, a3, SP[a1, a4], n]/2 - 
    (S2[a1, n]*S2[a1, a5, a2, a4, a3, n])/2 - 
    S2[a1, a5, a2, a4, SP[a1, a3], n]/2 + S2[a1, a5, a2, SP[a1, a3], a4, n]/
     2 - S2[a1, a5, a2, SP[a1, a4], a3, n]/2 - 
    (S2[a1, n]*S2[a1, a5, a3, a2, a4, n])/2 - 
    S2[a1, a5, a3, a2, SP[a1, a4], n]/2 - S2[a1, a5, a3, SP[a1, a2], a4, n]/
     2 - S2[a1, a5, SP[a1, a2], a3, a4, n]/2 - 
    S2[a1, a5, SP[a1, a2], a4, a3, n]/2 + S2[a1, a5, SP[a1, a3], a2, a4, n]/
     2 + S2[a1, a5, SP[a2, a3], a1, a4, n] + 
    S2[a1, SP[a1, a3], a5, a2, a4, n]/2 - S2[a1, SP[a1, a5], a2, a3, a4, n]/
     2 - S2[a1, SP[a1, a5], a2, a4, a3, n]/2 - 
    S2[a1, SP[a1, a5], a3, a2, a4, n]/2 + S2[a1, SP[a3, a5], a1, a2, a4, n] + 
    S2[a1, SP[a3, a5], a2, a1, a4, n] - S2[a3, n]*S2[a2, a5, a1, a1, a4, n] - 
    S2[a2, a5, a1, a1, SP[a3, a4], n] - S2[a2, a5, a1, SP[a1, a3], a4, n] - 
    S2[a2, a5, SP[a1, a3], a1, a4, n] - S2[a2, SP[a3, a5], a1, a1, a4, n] - 
    (S2[a1, n]*S2[a3, a1, a5, a2, a4, n])/2 - 
    S2[a3, a1, a5, a2, SP[a1, a4], n]/2 - S2[a3, a1, a5, SP[a1, a2], a4, n]/
     2 - S2[a3, a1, SP[a1, a5], a2, a4, n]/2 + 
    S2[a2, n]*S2[a3, a5, a1, a1, a4, n] + S2[a3, a5, a1, a1, SP[a2, a4], n] - 
    (S2[a1, n]*S2[a3, a5, a1, a2, a4, n])/2 - 
    S2[a3, a5, a1, a2, SP[a1, a4], n]/2 + S2[a3, a5, a1, SP[a1, a2], a4, n]/
     2 - (S2[a1, n]*S2[a3, a5, a2, a1, a4, n])/2 - 
    S2[a3, a5, a2, a1, SP[a1, a4], n]/2 + 
    (S2[a1, n]*S2[a3, a5, a2, a4, a1, n])/2 + 
    S2[a3, a5, a2, a4, SP[a1, a1], n]/2 - S2[a3, a5, a2, SP[a1, a1], a4, n]/
     2 + S2[a3, a5, a2, SP[a1, a4], a1, n]/2 - 
    S2[a3, a5, SP[a1, a1], a2, a4, n]/2 + S2[a3, a5, SP[a1, a2], a1, a4, n]/
     2 + S2[a3, a5, SP[a1, a2], a4, a1, n]/2 - 
    S2[a3, SP[a1, a1], a5, a2, a4, n]/2 - S2[a3, SP[a1, a5], a1, a2, a4, n]/
     2 - S2[a3, SP[a1, a5], a2, a1, a4, n]/2 + 
    S2[a3, SP[a1, a5], a2, a4, a1, n]/2 + S2[a3, SP[a2, a5], a1, a1, a4, n] + 
    S2[a2, n]*S2[a5, a1, a1, a3, a4, n] + S2[a5, a1, a1, a3, SP[a2, a4], n] - 
    S2[a3, n]*S2[a5, a1, a1, a4, a2, n] + 
    S2[a2, n]*S2[a5, a1, a1, a4, a3, n] + S2[a5, a1, a1, SP[a2, a3], a4, n] + 
    S2[a5, a1, a1, SP[a2, a4], a3, n] - S2[a5, a1, a1, SP[a3, a4], a2, n] - 
    (S2[a1, n]*S2[a5, a1, a2, a3, a4, n])/2 - 
    S2[a5, a1, a2, a3, SP[a1, a4], n]/2 - 
    (S2[a1, n]*S2[a5, a1, a2, a4, a3, n])/2 - 
    S2[a5, a1, a2, a4, SP[a1, a3], n]/2 - S2[a5, a1, a2, SP[a1, a3], a4, n]/
     2 - S2[a5, a1, a2, SP[a1, a4], a3, n]/2 + 
    S2[a2, n]*S2[a5, a1, a3, a1, a4, n] + S2[a5, a1, a3, a1, SP[a2, a4], n] - 
    (S2[a1, n]*S2[a5, a1, a3, a2, a4, n])/2 - 
    S2[a5, a1, a3, a2, SP[a1, a4], n]/2 + S2[a5, a1, a3, SP[a1, a2], a4, n]/
     2 + S2[a5, a1, SP[a1, a2], a3, a4, n]/2 + 
    S2[a5, a1, SP[a1, a2], a4, a3, n]/2 - S2[a5, a1, SP[a1, a3], a2, a4, n]/
     2 - S2[a5, a1, SP[a1, a3], a4, a2, n] + S2[a5, a1, SP[a2, a3], a1, a4, 
     n] - (S2[a1, n]*S2[a5, a2, a1, a3, a4, n])/2 - 
    S2[a5, a2, a1, a3, SP[a1, a4], n]/2 - 
    (S2[a1, n]*S2[a5, a2, a1, a4, a3, n])/2 - 
    S2[a5, a2, a1, a4, SP[a1, a3], n]/2 - S2[a5, a2, a1, SP[a1, a3], a4, n]/
     2 - S2[a5, a2, a1, SP[a1, a4], a3, n]/2 - 
    (S2[a1, n]*S2[a5, a2, a3, a1, a4, n])/2 - 
    S2[a5, a2, a3, a1, SP[a1, a4], n]/2 + 
    (S2[a1, n]*S2[a5, a2, a3, a4, a1, n])/2 + 
    S2[a5, a2, a3, a4, SP[a1, a1], n]/2 - S2[a5, a2, a3, SP[a1, a1], a4, n]/
     2 + S2[a5, a2, a3, SP[a1, a4], a1, n]/2 + 
    (S2[a1, n]*S2[a5, a2, a4, a1, a3, n])/2 + 
    S2[a5, a2, a4, a1, SP[a1, a3], n]/2 + 
    (S2[a1, n]*S2[a5, a2, a4, a3, a1, n])/2 + 
    S2[a5, a2, a4, a3, SP[a1, a1], n]/2 + S2[a5, a2, a4, SP[a1, a1], a3, n]/
     2 + S2[a5, a2, a4, SP[a1, a3], a1, n]/2 - 
    S2[a5, a2, SP[a1, a1], a3, a4, n]/2 - S2[a5, a2, SP[a1, a1], a4, a3, n]/
     2 - S2[a5, a2, SP[a1, a3], a1, a4, n]/2 + 
    S2[a5, a2, SP[a1, a3], a4, a1, n]/2 + S2[a5, a2, SP[a1, a4], a1, a3, n]/
     2 + S2[a5, a2, SP[a1, a4], a3, a1, n]/2 + 
    S2[a2, n]*S2[a5, a3, a1, a1, a4, n] + S2[a5, a3, a1, a1, SP[a2, a4], n] - 
    (S2[a1, n]*S2[a5, a3, a1, a2, a4, n])/2 - 
    S2[a5, a3, a1, a2, SP[a1, a4], n]/2 + S2[a5, a3, a1, SP[a1, a2], a4, n]/
     2 - (S2[a1, n]*S2[a5, a3, a2, a1, a4, n])/2 - 
    S2[a5, a3, a2, a1, SP[a1, a4], n]/2 + 
    (S2[a1, n]*S2[a5, a3, a2, a4, a1, n])/2 + 
    S2[a5, a3, a2, a4, SP[a1, a1], n]/2 - S2[a5, a3, a2, SP[a1, a1], a4, n]/
     2 + S2[a5, a3, a2, SP[a1, a4], a1, n]/2 - 
    S2[a5, a3, SP[a1, a1], a2, a4, n]/2 + S2[a5, a3, SP[a1, a2], a1, a4, n]/
     2 + S2[a5, a3, SP[a1, a2], a4, a1, n]/2 - 
    S2[a5, SP[a1, a1], a2, a3, a4, n]/2 - S2[a5, SP[a1, a1], a2, a4, a3, n]/
     2 - S2[a5, SP[a1, a1], a3, a2, a4, n]/2 + 
    S2[a5, SP[a1, a2], a1, a3, a4, n]/2 + S2[a5, SP[a1, a2], a1, a4, a3, n]/
     2 + S2[a5, SP[a1, a2], a3, a1, a4, n]/2 + 
    S2[a5, SP[a1, a2], a3, a4, a1, n]/2 + S2[a5, SP[a1, a2], a4, a1, a3, n]/
     2 + S2[a5, SP[a1, a2], a4, a3, a1, n]/2 - 
    S2[a5, SP[a1, a3], a1, a2, a4, n]/2 - S2[a5, SP[a1, a3], a1, a4, a2, n] - 
    S2[a5, SP[a1, a3], a2, a1, a4, n]/2 + S2[a5, SP[a1, a3], a2, a4, a1, n]/
     2 + S2[a5, SP[a2, a3], a1, a1, a4, n] - 
    S2[SP[a1, a1], a3, a5, a2, a4, n]/2 - S2[SP[a1, a1], a5, a2, a3, a4, n]/
     2 - S2[SP[a1, a1], a5, a2, a4, a3, n]/2 - 
    S2[SP[a1, a1], a5, a3, a2, a4, n]/2 + S2[SP[a1, a3], a1, a5, a2, a4, n]/
     2 + S2[SP[a1, a3], a5, a1, a2, a4, n]/2 + 
    S2[SP[a1, a3], a5, a2, a1, a4, n]/2 + S2[SP[a1, a3], a5, a2, a4, a1, n]/
     2 - S2[SP[a1, a5], a1, a2, a3, a4, n]/2 - 
    S2[SP[a1, a5], a1, a2, a4, a3, n]/2 - S2[SP[a1, a5], a1, a3, a2, a4, n]/
     2 - S2[SP[a1, a5], a2, a1, a3, a4, n]/2 - 
    S2[SP[a1, a5], a2, a1, a4, a3, n]/2 - S2[SP[a1, a5], a2, a3, a1, a4, n]/
     2 + S2[SP[a1, a5], a2, a3, a4, a1, n]/2 + 
    S2[SP[a1, a5], a2, a4, a1, a3, n]/2 + S2[SP[a1, a5], a2, a4, a3, a1, n]/
     2 - S2[SP[a1, a5], a3, a1, a2, a4, n]/2 - 
    S2[SP[a1, a5], a3, a2, a1, a4, n]/2 + S2[SP[a1, a5], a3, a2, a4, a1, n]/
     2 + S2[SP[a2, a5], a1, a1, a3, a4, n] + S2[SP[a2, a5], a1, a1, a4, a3, 
     n] + S2[SP[a2, a5], a1, a3, a1, a4, n] + S2[SP[a2, a5], a3, a1, a1, a4, 
     n] - S2[SP[a3, a5], a1, a1, a4, a2, n] - S2[a5, a2, a3, a4, a1, a1, n] - 
    S2[a5, a2, a4, a1, a1, a3, n] - S2[a5, a2, a4, a1, a3, a1, n] - 
    S2[a5, a2, a4, a3, a1, a1, n] - S2[a5, a3, a2, a4, a1, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a3_, a5_, a4_, a1_, a1_, a2_, n_] :> 
  S2[a3, n]*S2[a5, a4, a1, a1, a2, n] + S2[a5, a4, a1, a1, SP[a2, a3], n] + 
    S2[a5, a4, a1, SP[a1, a3], a2, n] + S2[a5, a4, SP[a1, a3], a1, a2, n] + 
    S2[a5, SP[a3, a4], a1, a1, a2, n] + S2[SP[a3, a5], a4, a1, a1, a2, n] - 
    S2[a5, a3, a4, a1, a1, a2, n] - S2[a5, a4, a1, a1, a2, a3, n] - 
    S2[a5, a4, a1, a1, a3, a2, n] - S2[a5, a4, a1, a3, a1, a2, n] - 
    S2[a5, a4, a3, a1, a1, a2, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a3_, a5_, a4_, a1_, a2_, a1_, n_] :> 
  -(S2[a3, n]*S2[a1, a5, a4, a1, a2, n]) - S2[a1, a5, a4, a1, SP[a2, a3], 
     n] - S2[a1, a5, a4, SP[a1, a3], a2, n] - S2[a1, a5, SP[a3, a4], a1, a2, 
     n] - S2[a1, SP[a3, a5], a4, a1, a2, n] + 
    S2[a1, n]*S2[a3, a5, a4, a1, a2, n] + S2[a3, a5, a4, a1, SP[a1, a2], n] + 
    S2[a3, a5, a4, SP[a1, a1], a2, n] + S2[a3, a5, SP[a1, a4], a1, a2, n] + 
    S2[a3, SP[a1, a5], a4, a1, a2, n] - S2[a3, n]*S2[a5, a1, a4, a1, a2, n] - 
    S2[a5, a1, a4, a1, SP[a2, a3], n] - S2[a5, a1, a4, SP[a1, a3], a2, n] - 
    S2[a5, a1, SP[a3, a4], a1, a2, n] + S2[a1, n]*S2[a5, a3, a4, a1, a2, n] + 
    S2[a5, a3, a4, a1, SP[a1, a2], n] + S2[a5, a3, a4, SP[a1, a1], a2, n] + 
    S2[a5, a3, SP[a1, a4], a1, a2, n] - 2*S2[a3, n]*
     S2[a5, a4, a1, a1, a2, n] - 2*S2[a5, a4, a1, a1, SP[a2, a3], n] + 
    S2[a1, n]*S2[a5, a4, a1, a2, a3, n] + S2[a5, a4, a1, a2, SP[a1, a3], n] + 
    S2[a1, n]*S2[a5, a4, a1, a3, a2, n] + S2[a5, a4, a1, a3, SP[a1, a2], n] + 
    S2[a5, a4, a1, SP[a1, a2], a3, n] - S2[a5, a4, a1, SP[a1, a3], a2, n] + 
    S2[a1, n]*S2[a5, a4, a3, a1, a2, n] + S2[a5, a4, a3, a1, SP[a1, a2], n] + 
    S2[a5, a4, a3, SP[a1, a1], a2, n] + S2[a5, a4, SP[a1, a1], a2, a3, n] + 
    S2[a5, a4, SP[a1, a1], a3, a2, n] - S2[a5, a4, SP[a1, a3], a1, a2, n] + 
    S2[a5, SP[a1, a4], a1, a2, a3, n] + S2[a5, SP[a1, a4], a1, a3, a2, n] + 
    S2[a5, SP[a1, a4], a3, a1, a2, n] - 2*S2[a5, SP[a3, a4], a1, a1, a2, n] + 
    S2[SP[a1, a5], a3, a4, a1, a2, n] + S2[SP[a1, a5], a4, a1, a2, a3, n] + 
    S2[SP[a1, a5], a4, a1, a3, a2, n] + S2[SP[a1, a5], a4, a3, a1, a2, n] - 
    S2[SP[a3, a5], a1, a4, a1, a2, n] - 2*S2[SP[a3, a5], a4, a1, a1, a2, n] - 
    S2[a5, a3, a4, a1, a2, a1, n] - S2[a5, a4, a1, a2, a1, a3, n] - 
    S2[a5, a4, a1, a2, a3, a1, n] - S2[a5, a4, a1, a3, a2, a1, n] - 
    S2[a5, a4, a3, a1, a2, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a3_, a5_, a4_, a2_, a1_, a1_, n_] :> 
  S2[a3, n]*S2[a1, a1, a5, a4, a2, n] + S2[a1, a1, a5, a4, SP[a2, a3], n] + 
    S2[a1, a1, a5, SP[a3, a4], a2, n] + S2[a1, a1, SP[a3, a5], a4, a2, n] - 
    (S2[a1, n]*S2[a1, a3, a5, a4, a2, n])/2 - 
    S2[a1, a3, a5, a4, SP[a1, a2], n]/2 - S2[a1, a3, a5, SP[a1, a4], a2, n]/
     2 - S2[a1, a3, SP[a1, a5], a4, a2, n]/2 + 
    S2[a3, n]*S2[a1, a5, a1, a4, a2, n] + S2[a1, a5, a1, a4, SP[a2, a3], n] + 
    S2[a1, a5, a1, SP[a3, a4], a2, n] - (S2[a1, n]*S2[a1, a5, a3, a4, a2, n])/
     2 - S2[a1, a5, a3, a4, SP[a1, a2], n]/2 - 
    S2[a1, a5, a3, SP[a1, a4], a2, n]/2 + 
    S2[a3, n]*S2[a1, a5, a4, a1, a2, n] + S2[a1, a5, a4, a1, SP[a2, a3], n] - 
    (S2[a1, n]*S2[a1, a5, a4, a2, a3, n])/2 - 
    S2[a1, a5, a4, a2, SP[a1, a3], n]/2 - 
    (S2[a1, n]*S2[a1, a5, a4, a3, a2, n])/2 - 
    S2[a1, a5, a4, a3, SP[a1, a2], n]/2 - S2[a1, a5, a4, SP[a1, a2], a3, n]/
     2 + S2[a1, a5, a4, SP[a1, a3], a2, n]/2 + 
    S2[a1, a5, SP[a1, a3], a4, a2, n]/2 - S2[a1, a5, SP[a1, a4], a2, a3, n]/
     2 - S2[a1, a5, SP[a1, a4], a3, a2, n]/2 + S2[a1, a5, SP[a3, a4], a1, a2, 
     n] + S2[a1, SP[a1, a3], a5, a4, a2, n]/2 - 
    S2[a1, SP[a1, a5], a3, a4, a2, n]/2 - S2[a1, SP[a1, a5], a4, a2, a3, n]/
     2 - S2[a1, SP[a1, a5], a4, a3, a2, n]/2 + S2[a1, SP[a3, a5], a1, a4, a2, 
     n] + S2[a1, SP[a3, a5], a4, a1, a2, n] - 
    (S2[a1, n]*S2[a3, a1, a5, a4, a2, n])/2 - 
    S2[a3, a1, a5, a4, SP[a1, a2], n]/2 - S2[a3, a1, a5, SP[a1, a4], a2, n]/
     2 - S2[a3, a1, SP[a1, a5], a4, a2, n]/2 - 
    (S2[a1, n]*S2[a3, a5, a1, a4, a2, n])/2 - 
    S2[a3, a5, a1, a4, SP[a1, a2], n]/2 - S2[a3, a5, a1, SP[a1, a4], a2, n]/
     2 - (S2[a1, n]*S2[a3, a5, a4, a1, a2, n])/2 - 
    S2[a3, a5, a4, a1, SP[a1, a2], n]/2 + 
    (S2[a1, n]*S2[a3, a5, a4, a2, a1, n])/2 + 
    S2[a3, a5, a4, a2, SP[a1, a1], n]/2 - S2[a3, a5, a4, SP[a1, a1], a2, n]/
     2 + S2[a3, a5, a4, SP[a1, a2], a1, n]/2 - 
    S2[a3, a5, SP[a1, a1], a4, a2, n]/2 - S2[a3, a5, SP[a1, a4], a1, a2, n]/
     2 + S2[a3, a5, SP[a1, a4], a2, a1, n]/2 - 
    S2[a3, SP[a1, a1], a5, a4, a2, n]/2 - S2[a3, SP[a1, a5], a1, a4, a2, n]/
     2 - S2[a3, SP[a1, a5], a4, a1, a2, n]/2 + 
    S2[a3, SP[a1, a5], a4, a2, a1, n]/2 + 
    S2[a3, n]*S2[a5, a1, a1, a4, a2, n] + S2[a5, a1, a1, a4, SP[a2, a3], n] + 
    S2[a5, a1, a1, SP[a3, a4], a2, n] - (S2[a1, n]*S2[a5, a1, a3, a4, a2, n])/
     2 - S2[a5, a1, a3, a4, SP[a1, a2], n]/2 - 
    S2[a5, a1, a3, SP[a1, a4], a2, n]/2 + 
    S2[a3, n]*S2[a5, a1, a4, a1, a2, n] + S2[a5, a1, a4, a1, SP[a2, a3], n] - 
    (S2[a1, n]*S2[a5, a1, a4, a2, a3, n])/2 - 
    S2[a5, a1, a4, a2, SP[a1, a3], n]/2 - 
    (S2[a1, n]*S2[a5, a1, a4, a3, a2, n])/2 - 
    S2[a5, a1, a4, a3, SP[a1, a2], n]/2 - S2[a5, a1, a4, SP[a1, a2], a3, n]/
     2 + S2[a5, a1, a4, SP[a1, a3], a2, n]/2 + 
    S2[a5, a1, SP[a1, a3], a4, a2, n]/2 - S2[a5, a1, SP[a1, a4], a2, a3, n]/
     2 - S2[a5, a1, SP[a1, a4], a3, a2, n]/2 + S2[a5, a1, SP[a3, a4], a1, a2, 
     n] - (S2[a1, n]*S2[a5, a3, a1, a4, a2, n])/2 - 
    S2[a5, a3, a1, a4, SP[a1, a2], n]/2 - S2[a5, a3, a1, SP[a1, a4], a2, n]/
     2 - (S2[a1, n]*S2[a5, a3, a4, a1, a2, n])/2 - 
    S2[a5, a3, a4, a1, SP[a1, a2], n]/2 + 
    (S2[a1, n]*S2[a5, a3, a4, a2, a1, n])/2 + 
    S2[a5, a3, a4, a2, SP[a1, a1], n]/2 - S2[a5, a3, a4, SP[a1, a1], a2, n]/
     2 + S2[a5, a3, a4, SP[a1, a2], a1, n]/2 - 
    S2[a5, a3, SP[a1, a1], a4, a2, n]/2 - S2[a5, a3, SP[a1, a4], a1, a2, n]/
     2 + S2[a5, a3, SP[a1, a4], a2, a1, n]/2 + 
    S2[a3, n]*S2[a5, a4, a1, a1, a2, n] + S2[a5, a4, a1, a1, SP[a2, a3], n] - 
    (S2[a1, n]*S2[a5, a4, a1, a2, a3, n])/2 - 
    S2[a5, a4, a1, a2, SP[a1, a3], n]/2 - 
    (S2[a1, n]*S2[a5, a4, a1, a3, a2, n])/2 - 
    S2[a5, a4, a1, a3, SP[a1, a2], n]/2 - S2[a5, a4, a1, SP[a1, a2], a3, n]/
     2 + S2[a5, a4, a1, SP[a1, a3], a2, n]/2 + 
    (S2[a1, n]*S2[a5, a4, a2, a1, a3, n])/2 + 
    S2[a5, a4, a2, a1, SP[a1, a3], n]/2 + 
    (S2[a1, n]*S2[a5, a4, a2, a3, a1, n])/2 + 
    S2[a5, a4, a2, a3, SP[a1, a1], n]/2 + S2[a5, a4, a2, SP[a1, a1], a3, n]/
     2 + S2[a5, a4, a2, SP[a1, a3], a1, n]/2 - 
    (S2[a1, n]*S2[a5, a4, a3, a1, a2, n])/2 - 
    S2[a5, a4, a3, a1, SP[a1, a2], n]/2 + 
    (S2[a1, n]*S2[a5, a4, a3, a2, a1, n])/2 + 
    S2[a5, a4, a3, a2, SP[a1, a1], n]/2 - S2[a5, a4, a3, SP[a1, a1], a2, n]/
     2 + S2[a5, a4, a3, SP[a1, a2], a1, n]/2 - 
    S2[a5, a4, SP[a1, a1], a2, a3, n]/2 - S2[a5, a4, SP[a1, a1], a3, a2, n]/
     2 + S2[a5, a4, SP[a1, a2], a1, a3, n]/2 + 
    S2[a5, a4, SP[a1, a2], a3, a1, n]/2 + S2[a5, a4, SP[a1, a3], a1, a2, n]/
     2 + S2[a5, a4, SP[a1, a3], a2, a1, n]/2 - 
    S2[a5, SP[a1, a1], a3, a4, a2, n]/2 - S2[a5, SP[a1, a1], a4, a2, a3, n]/
     2 - S2[a5, SP[a1, a1], a4, a3, a2, n]/2 + 
    S2[a5, SP[a1, a3], a1, a4, a2, n]/2 + S2[a5, SP[a1, a3], a4, a1, a2, n]/
     2 + S2[a5, SP[a1, a3], a4, a2, a1, n]/2 - 
    S2[a5, SP[a1, a4], a1, a2, a3, n]/2 - S2[a5, SP[a1, a4], a1, a3, a2, n]/
     2 + S2[a5, SP[a1, a4], a2, a1, a3, n]/2 + 
    S2[a5, SP[a1, a4], a2, a3, a1, n]/2 - S2[a5, SP[a1, a4], a3, a1, a2, n]/
     2 + S2[a5, SP[a1, a4], a3, a2, a1, n]/2 + S2[a5, SP[a3, a4], a1, a1, a2, 
     n] - S2[SP[a1, a1], a3, a5, a4, a2, n]/2 - 
    S2[SP[a1, a1], a5, a3, a4, a2, n]/2 - S2[SP[a1, a1], a5, a4, a2, a3, n]/
     2 - S2[SP[a1, a1], a5, a4, a3, a2, n]/2 + 
    S2[SP[a1, a3], a1, a5, a4, a2, n]/2 + S2[SP[a1, a3], a5, a1, a4, a2, n]/
     2 + S2[SP[a1, a3], a5, a4, a1, a2, n]/2 + 
    S2[SP[a1, a3], a5, a4, a2, a1, n]/2 - S2[SP[a1, a5], a1, a3, a4, a2, n]/
     2 - S2[SP[a1, a5], a1, a4, a2, a3, n]/2 - 
    S2[SP[a1, a5], a1, a4, a3, a2, n]/2 - S2[SP[a1, a5], a3, a1, a4, a2, n]/
     2 - S2[SP[a1, a5], a3, a4, a1, a2, n]/2 + 
    S2[SP[a1, a5], a3, a4, a2, a1, n]/2 - S2[SP[a1, a5], a4, a1, a2, a3, n]/
     2 - S2[SP[a1, a5], a4, a1, a3, a2, n]/2 + 
    S2[SP[a1, a5], a4, a2, a1, a3, n]/2 + S2[SP[a1, a5], a4, a2, a3, a1, n]/
     2 - S2[SP[a1, a5], a4, a3, a1, a2, n]/2 + 
    S2[SP[a1, a5], a4, a3, a2, a1, n]/2 + S2[SP[a3, a5], a1, a1, a4, a2, n] + 
    S2[SP[a3, a5], a1, a4, a1, a2, n] + S2[SP[a3, a5], a4, a1, a1, a2, n] - 
    S2[a5, a3, a4, a2, a1, a1, n] - S2[a5, a4, a2, a1, a1, a3, n] - 
    S2[a5, a4, a2, a1, a3, a1, n] - S2[a5, a4, a2, a3, a1, a1, n] - 
    S2[a5, a4, a3, a2, a1, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a4_, a1_, a1_, a2_, a3_, a5_, n_] :> 
  S2[a1, a1, a4, n]*S2[a2, a3, a5, n] + S2[SP[a1, a2], SP[a1, a3], 
     SP[a4, a5], n] + S2[a3, a5, n]*S2[a1, a1, a2, a4, n] + 
    S2[a3, a5, n]*S2[a1, a1, a4, a2, n] - S2[a1, a1, SP[a2, a3], SP[a4, a5], 
     n] - S2[a1, a1, SP[a3, a4], SP[a2, a5], n] + 
    S2[a3, a5, n]*S2[a1, a2, a1, a4, n] - S2[a1, a4, n]*
     S2[a1, a2, a3, a5, n] - S2[a1, a2, SP[a1, a3], SP[a4, a5], n] - 
    S2[a1, SP[a1, a3], a2, SP[a4, a5], n] - S2[a1, SP[a1, a3], a4, 
     SP[a2, a5], n] - S2[a1, SP[a1, a3], SP[a2, a5], a4, n] - 
    S2[a1, SP[a1, a3], SP[a4, a5], a2, n] - S2[a1, SP[a2, a3], a1, 
     SP[a4, a5], n] - S2[a1, SP[a2, a3], SP[a1, a5], a4, n] - 
    S2[a2, a1, SP[a1, a3], SP[a4, a5], n] - S2[a2, SP[a1, a3], a1, 
     SP[a4, a5], n] - S2[a2, SP[a1, a3], SP[a1, a5], a4, n] + 
    S2[SP[a1, a1], a2, a3, SP[a4, a5], n] + S2[SP[a1, a1], a2, SP[a3, a4], 
     a5, n] + S2[SP[a1, a1], SP[a2, a4], a3, a5, n] - 
    S2[SP[a1, a2], a1, a3, SP[a4, a5], n] - S2[SP[a1, a2], a1, SP[a3, a4], 
     a5, n] - S2[SP[a1, a2], a3, a1, SP[a4, a5], n] - 
    S2[SP[a1, a2], a3, SP[a1, a5], a4, n] - S2[SP[a1, a2], SP[a1, a3], a4, 
     a5, n] - S2[SP[a1, a2], SP[a1, a3], a5, a4, n] - 
    S2[SP[a1, a3], a1, a2, SP[a4, a5], n] - S2[SP[a1, a3], a1, a4, 
     SP[a2, a5], n] - S2[SP[a1, a3], a1, SP[a2, a5], a4, n] - 
    S2[SP[a1, a3], a1, SP[a4, a5], a2, n] - S2[SP[a1, a3], a2, a1, 
     SP[a4, a5], n] - S2[SP[a1, a3], a2, SP[a1, a5], a4, n] - 
    S2[SP[a1, a3], SP[a1, a5], a2, a4, n] - S2[SP[a1, a3], SP[a1, a5], a4, 
     a2, n] - S2[SP[a1, a3], SP[a2, a5], a1, a4, n] + 
    S2[a5, n]*S2[a1, a1, a2, a3, a4, n] + 
    S2[a4, n]*S2[a1, a1, a2, a3, a5, n] + 
    2*S2[a1, a1, a2, a3, SP[a4, a5], n] + 
    S2[a5, n]*S2[a1, a1, a2, a4, a3, n] - 
    S2[a3, n]*S2[a1, a1, a2, a4, a5, n] - 
    S2[a3, n]*S2[a1, a1, a2, a5, a4, n] - S2[a1, a1, a2, a5, SP[a3, a4], n] + 
    S2[a1, a1, a2, SP[a4, a5], a3, n] + S2[a5, n]*S2[a1, a1, a3, a2, a4, n] + 
    2*S2[a1, a1, a3, a2, SP[a4, a5], n] + 
    S2[a5, n]*S2[a1, a1, a3, a4, a2, n] - 
    S2[a2, n]*S2[a1, a1, a3, a4, a5, n] + S2[a1, a1, a3, a4, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a1, a3, a5, a4, n] - S2[a1, a1, a3, a5, SP[a2, a4], n] - 
    S2[a1, a1, a3, SP[a2, a4], a5, n] + S2[a1, a1, a3, SP[a2, a5], a4, n] + 
    2*S2[a1, a1, a3, SP[a4, a5], a2, n] + 
    S2[a5, n]*S2[a1, a1, a4, a2, a3, n] - 
    S2[a3, n]*S2[a1, a1, a4, a2, a5, n] + 
    S2[a5, n]*S2[a1, a1, a4, a3, a2, n] - 
    S2[a2, n]*S2[a1, a1, a4, a3, a5, n] + S2[a1, a1, a4, a3, SP[a2, a5], n] - 
    S2[a3, n]*S2[a1, a1, a4, a5, a2, n] - S2[a1, a1, a4, a5, SP[a2, a3], n] - 
    S2[a1, a1, a4, SP[a2, a3], a5, n] + S2[a1, a1, a4, SP[a2, a5], a3, n] - 
    S2[a3, n]*S2[a1, a1, a5, a2, a4, n] - S2[a1, a1, a5, a2, SP[a3, a4], n] - 
    S2[a3, n]*S2[a1, a1, a5, a4, a2, n] - S2[a1, a1, a5, a4, SP[a2, a3], n] - 
    S2[a1, a1, a5, SP[a2, a3], a4, n] - S2[a1, a1, a5, SP[a3, a4], a2, n] - 
    S2[a1, a1, SP[a2, a3], a4, a5, n] - S2[a1, a1, SP[a2, a3], a5, a4, n] - 
    S2[a1, a1, SP[a2, a4], a3, a5, n] + S2[a1, a1, SP[a2, a5], a3, a4, n] + 
    S2[a1, a1, SP[a2, a5], a4, a3, n] + S2[a1, a1, SP[a4, a5], a2, a3, n] + 
    S2[a1, a1, SP[a4, a5], a3, a2, n] + S2[a5, n]*S2[a1, a2, a1, a3, a4, n] + 
    2*S2[a1, a2, a1, a3, SP[a4, a5], n] + 
    S2[a5, n]*S2[a1, a2, a1, a4, a3, n] - 
    S2[a3, n]*S2[a1, a2, a1, a4, a5, n] - 
    S2[a3, n]*S2[a1, a2, a1, a5, a4, n] - S2[a1, a2, a1, a5, SP[a3, a4], n] + 
    S2[a1, a2, a1, SP[a4, a5], a3, n] + S2[a5, n]*S2[a1, a2, a3, a1, a4, n] + 
    2*S2[a1, a2, a3, a1, SP[a4, a5], n] + 
    2*S2[a1, a2, a3, SP[a1, a5], a4, n] - 
    S2[a3, n]*S2[a1, a2, a5, a1, a4, n] - S2[a1, a2, a5, a1, SP[a3, a4], n] - 
    S2[a1, a2, a5, SP[a1, a3], a4, n] + S2[a1, a2, SP[a1, a5], a3, a4, n] + 
    S2[a1, a2, SP[a1, a5], a4, a3, n] + S2[a5, n]*S2[a1, a3, a1, a2, a4, n] + 
    2*S2[a1, a3, a1, a2, SP[a4, a5], n] + 
    S2[a5, n]*S2[a1, a3, a1, a4, a2, n] - 
    S2[a2, n]*S2[a1, a3, a1, a4, a5, n] + S2[a1, a3, a1, a4, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a3, a1, a5, a4, n] - S2[a1, a3, a1, a5, SP[a2, a4], n] - 
    S2[a1, a3, a1, SP[a2, a4], a5, n] + S2[a1, a3, a1, SP[a2, a5], a4, n] + 
    2*S2[a1, a3, a1, SP[a4, a5], a2, n] + 
    S2[a5, n]*S2[a1, a3, a2, a1, a4, n] + 
    2*S2[a1, a3, a2, a1, SP[a4, a5], n] + 
    2*S2[a1, a3, a2, SP[a1, a5], a4, n] - 
    S2[a2, n]*S2[a1, a3, a5, a1, a4, n] - S2[a1, a3, a5, a1, SP[a2, a4], n] - 
    S2[a1, a3, a5, SP[a1, a2], a4, n] - S2[a1, a3, SP[a1, a2], a4, a5, n] - 
    S2[a1, a3, SP[a1, a2], a5, a4, n] + 2*S2[a1, a3, SP[a1, a5], a2, a4, n] + 
    2*S2[a1, a3, SP[a1, a5], a4, a2, n] + S2[a1, a3, SP[a2, a5], a1, a4, n] - 
    S2[a3, n]*S2[a1, a5, a1, a2, a4, n] - S2[a1, a5, a1, a2, SP[a3, a4], n] - 
    S2[a3, n]*S2[a1, a5, a1, a4, a2, n] - S2[a1, a5, a1, a4, SP[a2, a3], n] - 
    S2[a1, a5, a1, SP[a2, a3], a4, n] - S2[a1, a5, a1, SP[a3, a4], a2, n] - 
    S2[a3, n]*S2[a1, a5, a2, a1, a4, n] - S2[a1, a5, a2, a1, SP[a3, a4], n] - 
    S2[a1, a5, a2, SP[a1, a3], a4, n] - S2[a1, a5, SP[a1, a3], a2, a4, n] - 
    S2[a1, a5, SP[a1, a3], a4, a2, n] - S2[a1, a5, SP[a2, a3], a1, a4, n] - 
    S2[a1, SP[a1, a2], a3, a4, a5, n] - S2[a1, SP[a1, a2], a3, a5, a4, n] - 
    S2[a1, SP[a1, a2], a4, a3, a5, n] + S2[a1, SP[a1, a5], a2, a3, a4, n] + 
    S2[a1, SP[a1, a5], a2, a4, a3, n] + S2[a1, SP[a1, a5], a3, a2, a4, n] + 
    S2[a1, SP[a1, a5], a3, a4, a2, n] + S2[a1, SP[a1, a5], a4, a2, a3, n] + 
    S2[a1, SP[a1, a5], a4, a3, a2, n] - S2[a1, SP[a2, a3], a1, a4, a5, n] - 
    S2[a1, SP[a2, a3], a1, a5, a4, n] - S2[a1, SP[a2, a3], a5, a1, a4, n] + 
    S2[a1, SP[a2, a5], a1, a3, a4, n] + S2[a1, SP[a2, a5], a1, a4, a3, n] + 
    S2[a1, SP[a2, a5], a3, a1, a4, n] + S2[a2, a1, a1, a3, SP[a4, a5], n] + 
    S2[a2, a1, a1, SP[a3, a4], a5, n] + S2[a2, a1, a3, a1, SP[a4, a5], n] + 
    S2[a2, a1, a3, SP[a1, a5], a4, n] + S2[a2, a1, SP[a1, a3], a4, a5, n] + 
    S2[a2, a1, SP[a1, a3], a5, a4, n] - S2[a5, n]*S2[a2, a3, a1, a1, a4, n] + 
    S2[a2, SP[a1, a3], a1, a4, a5, n] + S2[a2, SP[a1, a3], a1, a5, a4, n] + 
    S2[a2, SP[a1, a3], a5, a1, a4, n] - S2[a2, SP[a3, a5], a1, a1, a4, n] + 
    S2[a3, a1, a1, a2, SP[a4, a5], n] + S2[a3, a1, a1, a4, SP[a2, a5], n] + 
    S2[a3, a1, a1, SP[a2, a5], a4, n] + S2[a3, a1, a1, SP[a4, a5], a2, n] + 
    S2[a3, a1, a2, a1, SP[a4, a5], n] + S2[a3, a1, a2, SP[a1, a5], a4, n] + 
    S2[a3, a1, SP[a1, a5], a2, a4, n] + S2[a3, a1, SP[a1, a5], a4, a2, n] + 
    S2[a3, a1, SP[a2, a5], a1, a4, n] + S2[a3, SP[a1, a5], a1, a2, a4, n] + 
    S2[a3, SP[a1, a5], a1, a4, a2, n] + S2[a3, SP[a1, a5], a2, a1, a4, n] - 
    S2[a3, n]*S2[a5, a1, a1, a2, a4, n] - S2[a5, a1, a1, a2, SP[a3, a4], n] - 
    S2[a3, n]*S2[a5, a1, a1, a4, a2, n] - S2[a5, a1, a1, a4, SP[a2, a3], n] - 
    S2[a5, a1, a1, SP[a2, a3], a4, n] - S2[a5, a1, a1, SP[a3, a4], a2, n] - 
    S2[a3, n]*S2[a5, a1, a2, a1, a4, n] - S2[a5, a1, a2, a1, SP[a3, a4], n] - 
    S2[a5, a1, a2, SP[a1, a3], a4, n] - S2[a5, a1, SP[a1, a3], a2, a4, n] - 
    S2[a5, a1, SP[a1, a3], a4, a2, n] - S2[a5, a1, SP[a2, a3], a1, a4, n] + 
    S2[a2, n]*S2[a5, a3, a1, a1, a4, n] + S2[a5, a3, a1, a1, SP[a2, a4], n] + 
    S2[a5, a3, a1, SP[a1, a2], a4, n] + S2[a5, a3, SP[a1, a2], a1, a4, n] - 
    S2[a5, SP[a1, a3], a1, a2, a4, n] - S2[a5, SP[a1, a3], a1, a4, a2, n] - 
    S2[a5, SP[a1, a3], a2, a1, a4, n] + S2[a5, SP[a2, a3], a1, a1, a4, n] - 
    S2[SP[a1, a1], a2, a3, a4, a5, n] - S2[SP[a1, a1], a2, a3, a5, a4, n] - 
    S2[SP[a1, a1], a2, a4, a3, a5, n] - S2[SP[a1, a1], a4, a2, a3, a5, n] + 
    S2[SP[a1, a4], a1, a2, a3, a5, n] + S2[SP[a1, a5], a1, a2, a3, a4, n] + 
    S2[SP[a1, a5], a1, a2, a4, a3, n] + S2[SP[a1, a5], a1, a3, a2, a4, n] + 
    S2[SP[a1, a5], a1, a3, a4, a2, n] + S2[SP[a1, a5], a1, a4, a2, a3, n] + 
    S2[SP[a1, a5], a1, a4, a3, a2, n] + S2[SP[a1, a5], a2, a1, a3, a4, n] + 
    S2[SP[a1, a5], a2, a1, a4, a3, n] + S2[SP[a1, a5], a2, a3, a1, a4, n] + 
    S2[SP[a1, a5], a3, a1, a2, a4, n] + S2[SP[a1, a5], a3, a1, a4, a2, n] + 
    S2[SP[a1, a5], a3, a2, a1, a4, n] - S2[SP[a3, a5], a1, a1, a2, a4, n] - 
    S2[SP[a3, a5], a1, a1, a4, a2, n] - S2[SP[a3, a5], a1, a2, a1, a4, n] - 
    S2[a5, a3, a2, a1, a1, a4, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a4_, a1_, a1_, a2_, a5_, a3_, n_] :> 
  S2[a1, a1, a4, n]*S2[a2, a5, a3, n] + S2[SP[a1, a2], SP[a1, a5], 
     SP[a3, a4], n] - S2[a3, a5, n]*S2[a1, a1, a2, a4, n] - 
    S2[a3, a5, n]*S2[a1, a1, a4, a2, n] + S2[a1, a1, SP[a2, a3], SP[a4, a5], 
     n] + S2[a1, a1, SP[a3, a4], SP[a2, a5], n] - 
    S2[a3, a5, n]*S2[a1, a2, a1, a4, n] - S2[a1, a4, n]*
     S2[a1, a2, a5, a3, n] + S2[a1, a2, SP[a1, a3], SP[a4, a5], n] + 
    S2[a1, SP[a1, a3], a2, SP[a4, a5], n] + S2[a1, SP[a1, a3], a4, 
     SP[a2, a5], n] + S2[a1, SP[a1, a3], SP[a2, a5], a4, n] + 
    S2[a1, SP[a1, a3], SP[a4, a5], a2, n] + S2[a1, SP[a2, a3], a1, 
     SP[a4, a5], n] + S2[a1, SP[a2, a3], SP[a1, a5], a4, n] - 
    S2[a2, a1, SP[a1, a5], SP[a3, a4], n] - S2[a2, SP[a1, a5], a1, 
     SP[a3, a4], n] - S2[a2, SP[a1, a5], SP[a1, a3], a4, n] + 
    S2[SP[a1, a1], a2, a5, SP[a3, a4], n] + S2[SP[a1, a1], a2, SP[a4, a5], 
     a3, n] + S2[SP[a1, a1], SP[a2, a4], a5, a3, n] - 
    S2[SP[a1, a2], a1, a5, SP[a3, a4], n] - S2[SP[a1, a2], a1, SP[a4, a5], 
     a3, n] - S2[SP[a1, a2], a5, a1, SP[a3, a4], n] - 
    S2[SP[a1, a2], a5, SP[a1, a3], a4, n] - S2[SP[a1, a2], SP[a1, a5], a3, 
     a4, n] - S2[SP[a1, a2], SP[a1, a5], a4, a3, n] + 
    S2[SP[a1, a3], a1, a2, SP[a4, a5], n] + S2[SP[a1, a3], a1, a4, 
     SP[a2, a5], n] + S2[SP[a1, a3], a1, SP[a2, a5], a4, n] + 
    S2[SP[a1, a3], a1, SP[a4, a5], a2, n] + S2[SP[a1, a3], a2, a1, 
     SP[a4, a5], n] + S2[SP[a1, a3], a2, SP[a1, a5], a4, n] + 
    S2[SP[a1, a3], SP[a1, a5], a2, a4, n] + S2[SP[a1, a3], SP[a1, a5], a4, 
     a2, n] + S2[SP[a1, a3], SP[a2, a5], a1, a4, n] - 
    S2[a1, a1, a2, a3, SP[a4, a5], n] + S2[a3, n]*S2[a1, a1, a2, a4, a5, n] + 
    S2[a1, a1, a2, a4, SP[a3, a5], n] + S2[a4, n]*S2[a1, a1, a2, a5, a3, n] + 
    S2[a3, n]*S2[a1, a1, a2, a5, a4, n] + S2[a1, a1, a2, a5, SP[a3, a4], n] + 
    S2[a1, a1, a2, SP[a3, a5], a4, n] - S2[a1, a1, a3, a2, SP[a4, a5], n] - 
    S2[a1, a1, a3, a4, SP[a2, a5], n] - S2[a1, a1, a3, SP[a2, a5], a4, n] - 
    S2[a1, a1, a3, SP[a4, a5], a2, n] + S2[a3, n]*S2[a1, a1, a4, a2, a5, n] + 
    S2[a1, a1, a4, a2, SP[a3, a5], n] - S2[a1, a1, a4, a3, SP[a2, a5], n] + 
    S2[a3, n]*S2[a1, a1, a4, a5, a2, n] - 
    S2[a2, n]*S2[a1, a1, a4, a5, a3, n] - S2[a1, a1, a4, SP[a2, a5], a3, n] + 
    S2[a1, a1, a4, SP[a3, a5], a2, n] + S2[a3, n]*S2[a1, a1, a5, a2, a4, n] + 
    S2[a1, a1, a5, a2, SP[a3, a4], n] - S2[a2, n]*S2[a1, a1, a5, a3, a4, n] - 
    S2[a1, a1, a5, a3, SP[a2, a4], n] + S2[a3, n]*S2[a1, a1, a5, a4, a2, n] - 
    S2[a2, n]*S2[a1, a1, a5, a4, a3, n] - S2[a1, a1, a5, SP[a2, a4], a3, n] + 
    S2[a1, a1, a5, SP[a3, a4], a2, n] - S2[a1, a1, SP[a2, a4], a5, a3, n] - 
    S2[a1, a1, SP[a2, a5], a3, a4, n] - S2[a1, a1, SP[a2, a5], a4, a3, n] + 
    S2[a1, a1, SP[a3, a5], a2, a4, n] + S2[a1, a1, SP[a3, a5], a4, a2, n] - 
    S2[a1, a2, a1, a3, SP[a4, a5], n] + S2[a3, n]*S2[a1, a2, a1, a4, a5, n] + 
    S2[a1, a2, a1, a4, SP[a3, a5], n] + S2[a3, n]*S2[a1, a2, a1, a5, a4, n] + 
    S2[a1, a2, a1, a5, SP[a3, a4], n] + S2[a1, a2, a1, SP[a3, a5], a4, n] - 
    S2[a1, a2, a3, a1, SP[a4, a5], n] - S2[a1, a2, a3, SP[a1, a5], a4, n] + 
    S2[a3, n]*S2[a1, a2, a5, a1, a4, n] + S2[a1, a2, a5, a1, SP[a3, a4], n] + 
    S2[a1, a2, a5, SP[a1, a3], a4, n] + S2[a1, a2, SP[a3, a5], a1, a4, n] - 
    S2[a1, a3, a1, a2, SP[a4, a5], n] - S2[a1, a3, a1, a4, SP[a2, a5], n] - 
    S2[a1, a3, a1, SP[a2, a5], a4, n] - S2[a1, a3, a1, SP[a4, a5], a2, n] - 
    S2[a1, a3, a2, a1, SP[a4, a5], n] - S2[a1, a3, a2, SP[a1, a5], a4, n] - 
    S2[a1, a3, SP[a1, a5], a2, a4, n] - S2[a1, a3, SP[a1, a5], a4, a2, n] - 
    S2[a1, a3, SP[a2, a5], a1, a4, n] + S2[a3, n]*S2[a1, a5, a1, a2, a4, n] + 
    S2[a1, a5, a1, a2, SP[a3, a4], n] - S2[a2, n]*S2[a1, a5, a1, a3, a4, n] - 
    S2[a1, a5, a1, a3, SP[a2, a4], n] + S2[a3, n]*S2[a1, a5, a1, a4, a2, n] - 
    S2[a2, n]*S2[a1, a5, a1, a4, a3, n] - S2[a1, a5, a1, SP[a2, a4], a3, n] + 
    S2[a1, a5, a1, SP[a3, a4], a2, n] + S2[a3, n]*S2[a1, a5, a2, a1, a4, n] + 
    S2[a1, a5, a2, a1, SP[a3, a4], n] + S2[a1, a5, a2, SP[a1, a3], a4, n] - 
    S2[a2, n]*S2[a1, a5, a3, a1, a4, n] - S2[a1, a5, a3, a1, SP[a2, a4], n] - 
    S2[a1, a5, a3, SP[a1, a2], a4, n] - S2[a1, a5, SP[a1, a2], a3, a4, n] - 
    S2[a1, a5, SP[a1, a2], a4, a3, n] + S2[a1, a5, SP[a1, a3], a2, a4, n] + 
    S2[a1, a5, SP[a1, a3], a4, a2, n] - S2[a1, SP[a1, a2], a4, a5, a3, n] - 
    S2[a1, SP[a1, a2], a5, a3, a4, n] - S2[a1, SP[a1, a2], a5, a4, a3, n] - 
    S2[a1, SP[a2, a5], a1, a3, a4, n] - S2[a1, SP[a2, a5], a1, a4, a3, n] - 
    S2[a1, SP[a2, a5], a3, a1, a4, n] + S2[a1, SP[a3, a5], a1, a2, a4, n] + 
    S2[a1, SP[a3, a5], a1, a4, a2, n] + S2[a1, SP[a3, a5], a2, a1, a4, n] + 
    S2[a2, a1, a1, a5, SP[a3, a4], n] + S2[a2, a1, a1, SP[a4, a5], a3, n] + 
    S2[a2, a1, a5, a1, SP[a3, a4], n] + S2[a2, a1, a5, SP[a1, a3], a4, n] + 
    S2[a2, a1, SP[a1, a5], a3, a4, n] + S2[a2, a1, SP[a1, a5], a4, a3, n] + 
    S2[a2, a5, a1, a1, SP[a3, a4], n] + S2[a2, a5, a1, SP[a1, a3], a4, n] + 
    S2[a2, a5, SP[a1, a3], a1, a4, n] + S2[a2, SP[a1, a5], a1, a3, a4, n] + 
    S2[a2, SP[a1, a5], a1, a4, a3, n] + S2[a2, SP[a1, a5], a3, a1, a4, n] - 
    S2[a3, a1, a1, a2, SP[a4, a5], n] - S2[a3, a1, a1, a4, SP[a2, a5], n] - 
    S2[a3, a1, a1, SP[a2, a5], a4, n] - S2[a3, a1, a1, SP[a4, a5], a2, n] - 
    S2[a3, a1, a2, a1, SP[a4, a5], n] - S2[a3, a1, a2, SP[a1, a5], a4, n] - 
    S2[a3, a1, SP[a1, a5], a2, a4, n] - S2[a3, a1, SP[a1, a5], a4, a2, n] - 
    S2[a3, a1, SP[a2, a5], a1, a4, n] - S2[a3, SP[a1, a5], a1, a2, a4, n] - 
    S2[a3, SP[a1, a5], a1, a4, a2, n] - S2[a3, SP[a1, a5], a2, a1, a4, n] + 
    S2[a3, n]*S2[a5, a1, a1, a2, a4, n] + S2[a5, a1, a1, a2, SP[a3, a4], n] - 
    S2[a2, n]*S2[a5, a1, a1, a3, a4, n] - S2[a5, a1, a1, a3, SP[a2, a4], n] + 
    S2[a3, n]*S2[a5, a1, a1, a4, a2, n] - 
    S2[a2, n]*S2[a5, a1, a1, a4, a3, n] - S2[a5, a1, a1, SP[a2, a4], a3, n] + 
    S2[a5, a1, a1, SP[a3, a4], a2, n] + S2[a3, n]*S2[a5, a1, a2, a1, a4, n] + 
    S2[a5, a1, a2, a1, SP[a3, a4], n] + S2[a5, a1, a2, SP[a1, a3], a4, n] - 
    S2[a2, n]*S2[a5, a1, a3, a1, a4, n] - S2[a5, a1, a3, a1, SP[a2, a4], n] - 
    S2[a5, a1, a3, SP[a1, a2], a4, n] - S2[a5, a1, SP[a1, a2], a3, a4, n] - 
    S2[a5, a1, SP[a1, a2], a4, a3, n] + S2[a5, a1, SP[a1, a3], a2, a4, n] + 
    S2[a5, a1, SP[a1, a3], a4, a2, n] - S2[a2, n]*S2[a5, a3, a1, a1, a4, n] - 
    S2[a5, a3, a1, a1, SP[a2, a4], n] - S2[a5, a3, a1, SP[a1, a2], a4, n] - 
    S2[a5, a3, SP[a1, a2], a1, a4, n] - S2[a5, SP[a1, a2], a1, a3, a4, n] - 
    S2[a5, SP[a1, a2], a1, a4, a3, n] - S2[a5, SP[a1, a2], a3, a1, a4, n] + 
    S2[a5, SP[a1, a3], a1, a2, a4, n] + S2[a5, SP[a1, a3], a1, a4, a2, n] + 
    S2[a5, SP[a1, a3], a2, a1, a4, n] - S2[a5, SP[a2, a3], a1, a1, a4, n] - 
    S2[SP[a1, a1], a2, a4, a5, a3, n] - S2[SP[a1, a1], a2, a5, a3, a4, n] - 
    S2[SP[a1, a1], a2, a5, a4, a3, n] - S2[SP[a1, a1], a4, a2, a5, a3, n] + 
    S2[SP[a1, a4], a1, a2, a5, a3, n] - S2[SP[a2, a5], a1, a1, a3, a4, n] - 
    S2[SP[a2, a5], a1, a1, a4, a3, n] - S2[SP[a2, a5], a1, a3, a1, a4, n] - 
    S2[SP[a2, a5], a3, a1, a1, a4, n] + S2[SP[a3, a5], a1, a1, a2, a4, n] + 
    S2[SP[a3, a5], a1, a1, a4, a2, n] + S2[SP[a3, a5], a1, a2, a1, a4, n] + 
    S2[a5, a2, a1, a1, a3, a4, n] + S2[a5, a2, a1, a1, a4, a3, n] + 
    S2[a5, a2, a1, a3, a1, a4, n] + S2[a5, a2, a3, a1, a1, a4, n] + 
    S2[a5, a3, a2, a1, a1, a4, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a4_, a1_, a1_, a3_, a2_, a5_, n_] :> 
  -(S2[a1, a1, a4, n]*S2[a2, a3, a5, n]) - S2[a1, a1, a4, n]*
     S2[a2, a5, a3, n] - S2[SP[a1, a2], SP[a1, a3], SP[a4, a5], n] - 
    S2[SP[a1, a2], SP[a1, a5], SP[a3, a4], n] + 
    S2[a2, a5, n]*S2[a1, a1, a3, a4, n] + S2[a2, a5, n]*
     S2[a1, a1, a4, a3, n] - S2[a1, a1, SP[a2, a3], SP[a4, a5], n] - 
    S2[a1, a1, SP[a2, a4], SP[a3, a5], n] + S2[a1, a2, SP[a1, a3], 
     SP[a4, a5], n] + S2[a1, a2, SP[a1, a5], SP[a3, a4], n] + 
    S2[a2, a5, n]*S2[a1, a3, a1, a4, n] - S2[a1, a4, n]*
     S2[a1, a3, a2, a5, n] - S2[a1, SP[a1, a2], a4, SP[a3, a5], n] + 
    S2[a1, SP[a1, a2], a5, SP[a3, a4], n] + S2[a1, SP[a1, a2], SP[a3, a4], 
     a5, n] - S2[a1, SP[a1, a2], SP[a3, a5], a4, n] + 
    S2[a1, SP[a1, a3], a2, SP[a4, a5], n] + S2[a1, SP[a1, a3], SP[a2, a4], 
     a5, n] - S2[a1, SP[a2, a3], a1, SP[a4, a5], n] - 
    S2[a1, SP[a2, a3], SP[a1, a5], a4, n] + S2[a2, a1, SP[a1, a3], 
     SP[a4, a5], n] + S2[a2, a1, SP[a1, a5], SP[a3, a4], n] + 
    S2[a2, SP[a1, a3], a1, SP[a4, a5], n] + S2[a2, SP[a1, a3], SP[a1, a5], 
     a4, n] + S2[a2, SP[a1, a5], a1, SP[a3, a4], n] + 
    S2[a2, SP[a1, a5], SP[a1, a3], a4, n] + S2[SP[a1, a1], a3, a2, 
     SP[a4, a5], n] + S2[SP[a1, a1], a3, SP[a2, a4], a5, n] + 
    S2[SP[a1, a1], SP[a3, a4], a2, a5, n] - S2[SP[a1, a2], a1, a4, 
     SP[a3, a5], n] + S2[SP[a1, a2], a1, a5, SP[a3, a4], n] + 
    S2[SP[a1, a2], a1, SP[a3, a4], a5, n] - S2[SP[a1, a2], a1, SP[a3, a5], 
     a4, n] + S2[SP[a1, a2], a5, a1, SP[a3, a4], n] + 
    S2[SP[a1, a2], a5, SP[a1, a3], a4, n] + S2[SP[a1, a2], SP[a1, a3], a4, 
     a5, n] + S2[SP[a1, a2], SP[a1, a3], a5, a4, n] - 
    S2[SP[a1, a2], SP[a3, a5], a1, a4, n] + S2[a1, a1, a2, a4, SP[a3, a5], 
     n] - S2[a1, a1, a2, a5, SP[a3, a4], n] - S2[a1, a1, a2, SP[a3, a4], a5, 
     n] + S2[a1, a1, a2, SP[a3, a5], a4, n] + 
    S2[a4, n]*S2[a1, a1, a3, a2, a5, n] + S2[a1, a1, a4, a2, SP[a3, a5], n] + 
    S2[a1, a1, a4, SP[a2, a3], a5, n] + S2[a1, a1, SP[a2, a3], a4, a5, n] + 
    S2[a1, a1, SP[a2, a3], a5, a4, n] - S2[a1, a1, SP[a3, a4], a2, a5, n] + 
    S2[a1, a2, a1, a4, SP[a3, a5], n] - S2[a1, a2, a1, a5, SP[a3, a4], n] - 
    S2[a1, a2, a1, SP[a3, a4], a5, n] + S2[a1, a2, a1, SP[a3, a5], a4, n] - 
    S2[a1, a2, a5, a1, SP[a3, a4], n] - S2[a1, a2, a5, SP[a1, a3], a4, n] - 
    S2[a1, a2, SP[a1, a3], a4, a5, n] - S2[a1, a2, SP[a1, a3], a5, a4, n] + 
    S2[a1, a2, SP[a3, a5], a1, a4, n] - S2[a1, SP[a1, a3], a2, a4, a5, n] - 
    S2[a1, SP[a1, a3], a2, a5, a4, n] - S2[a1, SP[a1, a3], a4, a2, a5, n] + 
    S2[a1, SP[a2, a3], a1, a4, a5, n] + S2[a1, SP[a2, a3], a1, a5, a4, n] + 
    S2[a1, SP[a2, a3], a5, a1, a4, n] + S2[a2, a1, a1, a4, SP[a3, a5], n] - 
    S2[a2, a1, a1, a5, SP[a3, a4], n] - S2[a2, a1, a1, SP[a3, a4], a5, n] + 
    S2[a2, a1, a1, SP[a3, a5], a4, n] - S2[a2, a1, a5, a1, SP[a3, a4], n] - 
    S2[a2, a1, a5, SP[a1, a3], a4, n] - S2[a2, a1, SP[a1, a3], a4, a5, n] - 
    S2[a2, a1, SP[a1, a3], a5, a4, n] + S2[a2, a1, SP[a3, a5], a1, a4, n] + 
    S2[a5, n]*S2[a2, a3, a1, a1, a4, n] - S2[a2, a5, a1, a1, SP[a3, a4], n] - 
    S2[a2, a5, a1, SP[a1, a3], a4, n] - S2[a2, a5, SP[a1, a3], a1, a4, n] - 
    S2[a2, SP[a1, a3], a1, a4, a5, n] - S2[a2, SP[a1, a3], a1, a5, a4, n] - 
    S2[a2, SP[a1, a3], a5, a1, a4, n] + S2[a2, SP[a3, a5], a1, a1, a4, n] - 
    S2[SP[a1, a1], a3, a2, a4, a5, n] - S2[SP[a1, a1], a3, a2, a5, a4, n] - 
    S2[SP[a1, a1], a3, a4, a2, a5, n] - S2[SP[a1, a1], a4, a3, a2, a5, n] + 
    S2[SP[a1, a4], a1, a3, a2, a5, n] + S2[SP[a2, a5], a3, a1, a1, a4, n] - 
    S2[a5, a2, a3, a1, a1, a4, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a4_, a1_, a1_, a3_, a5_, a2_, n_] :> 
  S2[a1, a1, a4, n]*S2[a2, a5, a3, n] + S2[SP[a1, a2], SP[a1, a5], 
     SP[a3, a4], n] - S2[a2, a5, n]*S2[a1, a1, a3, a4, n] - 
    S2[a2, a5, n]*S2[a1, a1, a4, a3, n] + S2[a1, a1, SP[a2, a3], SP[a4, a5], 
     n] + S2[a1, a1, SP[a2, a4], SP[a3, a5], n] - S2[a1, a2, SP[a1, a5], 
     SP[a3, a4], n] - S2[a2, a5, n]*S2[a1, a3, a1, a4, n] - 
    S2[a1, a4, n]*S2[a1, a3, a5, a2, n] + S2[a1, a3, SP[a1, a2], SP[a4, a5], 
     n] + S2[a1, a3, SP[a1, a5], SP[a2, a4], n] + S2[a1, SP[a1, a2], a3, 
     SP[a4, a5], n] + S2[a1, SP[a1, a2], a4, SP[a3, a5], n] - 
    S2[a1, SP[a1, a2], a5, SP[a3, a4], n] + S2[a1, SP[a1, a2], SP[a3, a5], 
     a4, n] + S2[a1, SP[a1, a3], a5, SP[a2, a4], n] + 
    S2[a1, SP[a1, a3], SP[a4, a5], a2, n] + S2[a1, SP[a2, a3], a1, 
     SP[a4, a5], n] + S2[a1, SP[a2, a3], SP[a1, a5], a4, n] - 
    S2[a2, a1, SP[a1, a5], SP[a3, a4], n] - S2[a2, SP[a1, a5], a1, 
     SP[a3, a4], n] - S2[a2, SP[a1, a5], SP[a1, a3], a4, n] + 
    S2[SP[a1, a1], a3, a5, SP[a2, a4], n] + S2[SP[a1, a1], a3, SP[a4, a5], 
     a2, n] + S2[SP[a1, a1], SP[a3, a4], a5, a2, n] + 
    S2[SP[a1, a2], a1, a3, SP[a4, a5], n] + S2[SP[a1, a2], a1, a4, 
     SP[a3, a5], n] - S2[SP[a1, a2], a1, a5, SP[a3, a4], n] + 
    S2[SP[a1, a2], a1, SP[a3, a5], a4, n] + S2[SP[a1, a2], a3, a1, 
     SP[a4, a5], n] + S2[SP[a1, a2], a3, SP[a1, a5], a4, n] - 
    S2[SP[a1, a2], a5, a1, SP[a3, a4], n] - S2[SP[a1, a2], a5, SP[a1, a3], 
     a4, n] + S2[SP[a1, a2], SP[a3, a5], a1, a4, n] - 
    S2[a1, a1, a2, a3, SP[a4, a5], n] - S2[a1, a1, a2, a4, SP[a3, a5], n] + 
    S2[a1, a1, a2, a5, SP[a3, a4], n] - S2[a1, a1, a2, SP[a3, a5], a4, n] - 
    S2[a1, a1, a3, a2, SP[a4, a5], n] + S2[a2, n]*S2[a1, a1, a3, a4, a5, n] + 
    S2[a1, a1, a3, a4, SP[a2, a5], n] + S2[a4, n]*S2[a1, a1, a3, a5, a2, n] + 
    S2[a2, n]*S2[a1, a1, a3, a5, a4, n] + S2[a1, a1, a3, SP[a2, a5], a4, n] - 
    S2[a1, a1, a3, SP[a4, a5], a2, n] - S2[a1, a1, a4, a2, SP[a3, a5], n] + 
    S2[a2, n]*S2[a1, a1, a4, a3, a5, n] + S2[a1, a1, a4, a3, SP[a2, a5], n] - 
    S2[a1, a1, SP[a3, a4], a5, a2, n] - S2[a1, a2, a1, a3, SP[a4, a5], n] - 
    S2[a1, a2, a1, a4, SP[a3, a5], n] + S2[a1, a2, a1, a5, SP[a3, a4], n] - 
    S2[a1, a2, a1, SP[a3, a5], a4, n] - S2[a1, a2, a3, a1, SP[a4, a5], n] - 
    S2[a1, a2, a3, SP[a1, a5], a4, n] + S2[a1, a2, a5, a1, SP[a3, a4], n] + 
    S2[a1, a2, a5, SP[a1, a3], a4, n] - S2[a1, a2, SP[a3, a5], a1, a4, n] - 
    S2[a1, a3, a1, a2, SP[a4, a5], n] + S2[a2, n]*S2[a1, a3, a1, a4, a5, n] + 
    S2[a1, a3, a1, a4, SP[a2, a5], n] + S2[a2, n]*S2[a1, a3, a1, a5, a4, n] + 
    S2[a1, a3, a1, SP[a2, a5], a4, n] - S2[a1, a3, a1, SP[a4, a5], a2, n] - 
    S2[a1, a3, a2, a1, SP[a4, a5], n] - S2[a1, a3, a2, SP[a1, a5], a4, n] + 
    S2[a2, n]*S2[a1, a3, a5, a1, a4, n] - S2[a1, a3, SP[a1, a5], a2, a4, n] - 
    S2[a1, a3, SP[a1, a5], a4, a2, n] + S2[a1, a3, SP[a2, a5], a1, a4, n] - 
    S2[a1, SP[a1, a3], a4, a5, a2, n] - S2[a1, SP[a1, a3], a5, a2, a4, n] - 
    S2[a1, SP[a1, a3], a5, a4, a2, n] - S2[a2, a1, a1, a3, SP[a4, a5], n] - 
    S2[a2, a1, a1, a4, SP[a3, a5], n] + S2[a2, a1, a1, a5, SP[a3, a4], n] - 
    S2[a2, a1, a1, SP[a3, a5], a4, n] - S2[a2, a1, a3, a1, SP[a4, a5], n] - 
    S2[a2, a1, a3, SP[a1, a5], a4, n] + S2[a2, a1, a5, a1, SP[a3, a4], n] + 
    S2[a2, a1, a5, SP[a1, a3], a4, n] - S2[a2, a1, SP[a3, a5], a1, a4, n] + 
    S2[a2, a5, a1, a1, SP[a3, a4], n] + S2[a2, a5, a1, SP[a1, a3], a4, n] + 
    S2[a2, a5, SP[a1, a3], a1, a4, n] - S2[a2, n]*S2[a5, a3, a1, a1, a4, n] - 
    S2[a5, a3, a1, a1, SP[a2, a4], n] - S2[a5, a3, a1, SP[a1, a2], a4, n] - 
    S2[a5, a3, SP[a1, a2], a1, a4, n] - S2[a5, SP[a2, a3], a1, a1, a4, n] - 
    S2[SP[a1, a1], a3, a4, a5, a2, n] - S2[SP[a1, a1], a3, a5, a2, a4, n] - 
    S2[SP[a1, a1], a3, a5, a4, a2, n] - S2[SP[a1, a1], a4, a3, a5, a2, n] + 
    S2[SP[a1, a4], a1, a3, a5, a2, n] - S2[SP[a2, a5], a3, a1, a1, a4, n] + 
    S2[a5, a2, a3, a1, a1, a4, n] + S2[a5, a3, a1, a1, a2, a4, n] + 
    S2[a5, a3, a1, a1, a4, a2, n] + S2[a5, a3, a1, a2, a1, a4, n] + 
    S2[a5, a3, a2, a1, a1, a4, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a4_, a1_, a1_, a5_, a2_, a3_, n_] :> 
  -(S2[a1, a1, a4, n]*S2[a2, a3, a5, n]) - S2[a1, a1, a4, n]*
     S2[a2, a5, a3, n] - S2[SP[a1, a2], SP[a1, a3], SP[a4, a5], n] - 
    S2[SP[a1, a2], SP[a1, a5], SP[a3, a4], n] + S2[a1, a2, SP[a1, a3], 
     SP[a4, a5], n] + S2[a1, a2, SP[a1, a5], SP[a3, a4], n] - 
    S2[a1, a4, n]*S2[a1, a5, a2, a3, n] + S2[a1, a5, SP[a1, a2], SP[a3, a4], 
     n] + S2[a1, SP[a1, a2], a3, SP[a4, a5], n] + S2[a1, SP[a1, a2], a5, 
     SP[a3, a4], n] + S2[a1, SP[a1, a2], SP[a3, a4], a5, n] + 
    S2[a1, SP[a1, a2], SP[a4, a5], a3, n] + S2[a1, SP[a1, a5], a2, 
     SP[a3, a4], n] + S2[a1, SP[a1, a5], SP[a2, a4], a3, n] + 
    S2[a2, a1, SP[a1, a3], SP[a4, a5], n] + S2[a2, a1, SP[a1, a5], 
     SP[a3, a4], n] + S2[a2, SP[a1, a3], a1, SP[a4, a5], n] + 
    S2[a2, SP[a1, a3], SP[a1, a5], a4, n] + S2[a2, SP[a1, a5], a1, 
     SP[a3, a4], n] + S2[a2, SP[a1, a5], SP[a1, a3], a4, n] + 
    S2[SP[a1, a1], a5, a2, SP[a3, a4], n] + S2[SP[a1, a1], a5, SP[a2, a4], 
     a3, n] + S2[SP[a1, a1], SP[a4, a5], a2, a3, n] + 
    S2[SP[a1, a2], a1, a3, SP[a4, a5], n] + S2[SP[a1, a2], a1, a5, 
     SP[a3, a4], n] + S2[SP[a1, a2], a1, SP[a3, a4], a5, n] + 
    S2[SP[a1, a2], a1, SP[a4, a5], a3, n] + S2[SP[a1, a2], a3, a1, 
     SP[a4, a5], n] + S2[SP[a1, a2], a3, SP[a1, a5], a4, n] + 
    S2[SP[a1, a2], a5, a1, SP[a3, a4], n] + S2[SP[a1, a2], a5, SP[a1, a3], 
     a4, n] + S2[SP[a1, a2], SP[a1, a3], a4, a5, n] + 
    S2[SP[a1, a2], SP[a1, a3], a5, a4, n] + S2[SP[a1, a2], SP[a1, a5], a3, 
     a4, n] + S2[SP[a1, a2], SP[a1, a5], a4, a3, n] - 
    S2[a1, a1, a2, a3, SP[a4, a5], n] - S2[a1, a1, a2, a5, SP[a3, a4], n] - 
    S2[a1, a1, a2, SP[a3, a4], a5, n] - S2[a1, a1, a2, SP[a4, a5], a3, n] - 
    S2[a5, n]*S2[a1, a1, a3, a2, a4, n] - S2[a1, a1, a3, a2, SP[a4, a5], n] - 
    S2[a5, n]*S2[a1, a1, a3, a4, a2, n] + 
    S2[a2, n]*S2[a1, a1, a3, a4, a5, n] + 
    S2[a2, n]*S2[a1, a1, a3, a5, a4, n] + S2[a1, a1, a3, a5, SP[a2, a4], n] + 
    S2[a1, a1, a3, SP[a2, a4], a5, n] - S2[a1, a1, a3, SP[a4, a5], a2, n] - 
    S2[a5, n]*S2[a1, a1, a4, a3, a2, n] + 
    S2[a2, n]*S2[a1, a1, a4, a3, a5, n] + 
    S2[a2, n]*S2[a1, a1, a4, a5, a3, n] + S2[a1, a1, a4, a5, SP[a2, a3], n] + 
    S2[a1, a1, a4, SP[a2, a3], a5, n] + S2[a1, a1, a4, SP[a2, a5], a3, n] - 
    S2[a1, a1, a4, SP[a3, a5], a2, n] + S2[a4, n]*S2[a1, a1, a5, a2, a3, n] - 
    S2[a1, a1, a5, a2, SP[a3, a4], n] + S2[a2, n]*S2[a1, a1, a5, a3, a4, n] + 
    S2[a1, a1, a5, a3, SP[a2, a4], n] + S2[a2, n]*S2[a1, a1, a5, a4, a3, n] + 
    S2[a1, a1, a5, a4, SP[a2, a3], n] + S2[a1, a1, a5, SP[a2, a3], a4, n] + 
    S2[a1, a1, SP[a2, a3], a4, a5, n] + S2[a1, a1, SP[a2, a3], a5, a4, n] + 
    S2[a1, a1, SP[a2, a5], a3, a4, n] + S2[a1, a1, SP[a2, a5], a4, a3, n] - 
    S2[a1, a1, SP[a3, a5], a2, a4, n] - S2[a1, a1, SP[a3, a5], a4, a2, n] - 
    S2[a1, a1, SP[a4, a5], a2, a3, n] - S2[a1, a1, SP[a4, a5], a3, a2, n] - 
    S2[a1, a2, a1, a3, SP[a4, a5], n] - S2[a1, a2, a1, a5, SP[a3, a4], n] - 
    S2[a1, a2, a1, SP[a3, a4], a5, n] - S2[a1, a2, a1, SP[a4, a5], a3, n] - 
    S2[a1, a2, a3, a1, SP[a4, a5], n] - S2[a1, a2, a3, SP[a1, a5], a4, n] - 
    S2[a1, a2, a5, a1, SP[a3, a4], n] - S2[a1, a2, a5, SP[a1, a3], a4, n] - 
    S2[a1, a2, SP[a1, a3], a4, a5, n] - S2[a1, a2, SP[a1, a3], a5, a4, n] - 
    S2[a1, a2, SP[a1, a5], a3, a4, n] - S2[a1, a2, SP[a1, a5], a4, a3, n] - 
    S2[a5, n]*S2[a1, a3, a1, a2, a4, n] - S2[a1, a3, a1, a2, SP[a4, a5], n] - 
    S2[a5, n]*S2[a1, a3, a1, a4, a2, n] + 
    S2[a2, n]*S2[a1, a3, a1, a4, a5, n] + 
    S2[a2, n]*S2[a1, a3, a1, a5, a4, n] + S2[a1, a3, a1, a5, SP[a2, a4], n] + 
    S2[a1, a3, a1, SP[a2, a4], a5, n] - S2[a1, a3, a1, SP[a4, a5], a2, n] - 
    S2[a5, n]*S2[a1, a3, a2, a1, a4, n] - S2[a1, a3, a2, a1, SP[a4, a5], n] - 
    S2[a1, a3, a2, SP[a1, a5], a4, n] + S2[a2, n]*S2[a1, a3, a5, a1, a4, n] + 
    S2[a1, a3, a5, a1, SP[a2, a4], n] + S2[a1, a3, a5, SP[a1, a2], a4, n] + 
    S2[a1, a3, SP[a1, a2], a4, a5, n] + S2[a1, a3, SP[a1, a2], a5, a4, n] - 
    S2[a1, a3, SP[a1, a5], a2, a4, n] - S2[a1, a3, SP[a1, a5], a4, a2, n] - 
    S2[a1, a5, a1, a2, SP[a3, a4], n] + S2[a2, n]*S2[a1, a5, a1, a3, a4, n] + 
    S2[a1, a5, a1, a3, SP[a2, a4], n] + S2[a2, n]*S2[a1, a5, a1, a4, a3, n] + 
    S2[a1, a5, a1, a4, SP[a2, a3], n] + S2[a1, a5, a1, SP[a2, a3], a4, n] - 
    S2[a1, a5, a2, a1, SP[a3, a4], n] - S2[a1, a5, a2, SP[a1, a3], a4, n] + 
    S2[a2, n]*S2[a1, a5, a3, a1, a4, n] + S2[a1, a5, a3, a1, SP[a2, a4], n] + 
    S2[a1, a5, a3, SP[a1, a2], a4, n] + S2[a1, a5, SP[a2, a3], a1, a4, n] - 
    S2[a1, SP[a1, a5], a2, a3, a4, n] - S2[a1, SP[a1, a5], a2, a4, a3, n] - 
    S2[a1, SP[a1, a5], a3, a2, a4, n] - S2[a1, SP[a1, a5], a3, a4, a2, n] - 
    S2[a1, SP[a1, a5], a4, a2, a3, n] - S2[a1, SP[a1, a5], a4, a3, a2, n] + 
    S2[a1, SP[a2, a3], a1, a4, a5, n] + S2[a1, SP[a2, a3], a1, a5, a4, n] + 
    S2[a1, SP[a2, a3], a5, a1, a4, n] + S2[a1, SP[a2, a5], a1, a3, a4, n] + 
    S2[a1, SP[a2, a5], a1, a4, a3, n] + S2[a1, SP[a2, a5], a3, a1, a4, n] - 
    S2[a1, SP[a3, a5], a1, a2, a4, n] - S2[a1, SP[a3, a5], a1, a4, a2, n] - 
    S2[a1, SP[a3, a5], a2, a1, a4, n] - S2[a2, a1, a1, a3, SP[a4, a5], n] - 
    S2[a2, a1, a1, a5, SP[a3, a4], n] - S2[a2, a1, a1, SP[a3, a4], a5, n] - 
    S2[a2, a1, a1, SP[a4, a5], a3, n] - S2[a2, a1, a3, a1, SP[a4, a5], n] - 
    S2[a2, a1, a3, SP[a1, a5], a4, n] - S2[a2, a1, a5, a1, SP[a3, a4], n] - 
    S2[a2, a1, a5, SP[a1, a3], a4, n] - S2[a2, a1, SP[a1, a3], a4, a5, n] - 
    S2[a2, a1, SP[a1, a3], a5, a4, n] - S2[a2, a1, SP[a1, a5], a3, a4, n] - 
    S2[a2, a1, SP[a1, a5], a4, a3, n] + S2[a5, n]*S2[a2, a3, a1, a1, a4, n] - 
    S2[a2, a5, a1, a1, SP[a3, a4], n] - S2[a2, a5, a1, SP[a1, a3], a4, n] - 
    S2[a2, a5, SP[a1, a3], a1, a4, n] - S2[a2, SP[a1, a3], a1, a4, a5, n] - 
    S2[a2, SP[a1, a3], a1, a5, a4, n] - S2[a2, SP[a1, a3], a5, a1, a4, n] - 
    S2[a2, SP[a1, a5], a1, a3, a4, n] - S2[a2, SP[a1, a5], a1, a4, a3, n] - 
    S2[a2, SP[a1, a5], a3, a1, a4, n] + S2[a2, SP[a3, a5], a1, a1, a4, n] + 
    S2[a2, n]*S2[a5, a1, a1, a3, a4, n] + S2[a5, a1, a1, a3, SP[a2, a4], n] + 
    S2[a2, n]*S2[a5, a1, a1, a4, a3, n] + S2[a5, a1, a1, a4, SP[a2, a3], n] + 
    S2[a5, a1, a1, SP[a2, a3], a4, n] + S2[a5, a1, a1, SP[a2, a4], a3, n] + 
    S2[a2, n]*S2[a5, a1, a3, a1, a4, n] + S2[a5, a1, a3, a1, SP[a2, a4], n] + 
    S2[a5, a1, a3, SP[a1, a2], a4, n] + S2[a5, a1, SP[a1, a2], a3, a4, n] + 
    S2[a5, a1, SP[a1, a2], a4, a3, n] + S2[a5, a1, SP[a2, a3], a1, a4, n] + 
    S2[a5, SP[a1, a2], a1, a3, a4, n] + S2[a5, SP[a1, a2], a1, a4, a3, n] + 
    S2[a5, SP[a1, a2], a3, a1, a4, n] - S2[SP[a1, a1], a4, a5, a2, a3, n] - 
    S2[SP[a1, a1], a5, a2, a3, a4, n] - S2[SP[a1, a1], a5, a2, a4, a3, n] - 
    S2[SP[a1, a1], a5, a4, a2, a3, n] + S2[SP[a1, a4], a1, a5, a2, a3, n] - 
    S2[SP[a1, a5], a1, a3, a2, a4, n] - S2[SP[a1, a5], a1, a3, a4, a2, n] - 
    S2[SP[a1, a5], a1, a4, a3, a2, n] - S2[SP[a1, a5], a3, a1, a2, a4, n] - 
    S2[SP[a1, a5], a3, a1, a4, a2, n] - S2[SP[a1, a5], a3, a2, a1, a4, n] + 
    S2[SP[a2, a5], a1, a1, a3, a4, n] + S2[SP[a2, a5], a1, a1, a4, a3, n] + 
    S2[SP[a2, a5], a1, a3, a1, a4, n] + S2[SP[a2, a5], a3, a1, a1, a4, n] - 
    S2[a5, a1, a1, a2, a3, a4, n] - S2[a5, a1, a1, a2, a4, a3, n] - 
    S2[a5, a1, a1, a4, a2, a3, n] - S2[a5, a1, a2, a1, a3, a4, n] - 
    S2[a5, a1, a2, a1, a4, a3, n] - S2[a5, a1, a2, a3, a1, a4, n] - 
    S2[a5, a2, a1, a1, a3, a4, n] - S2[a5, a2, a1, a1, a4, a3, n] - 
    S2[a5, a2, a1, a3, a1, a4, n] - S2[a5, a2, a3, a1, a1, a4, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a4_, a1_, a1_, a5_, a3_, a2_, n_] :> 
  S2[a1, a1, a4, n]*S2[a2, a3, a5, n] + S2[SP[a1, a2], SP[a1, a3], 
     SP[a4, a5], n] - S2[a1, a2, SP[a1, a3], SP[a4, a5], n] - 
    S2[a1, a4, n]*S2[a1, a5, a3, a2, n] + S2[a1, a5, SP[a1, a3], SP[a2, a4], 
     n] - S2[a1, SP[a1, a2], a3, SP[a4, a5], n] - 
    S2[a1, SP[a1, a2], SP[a3, a4], a5, n] + S2[a1, SP[a1, a5], a3, 
     SP[a2, a4], n] + S2[a1, SP[a1, a5], SP[a3, a4], a2, n] - 
    S2[a2, a1, SP[a1, a3], SP[a4, a5], n] - S2[a2, SP[a1, a3], a1, 
     SP[a4, a5], n] - S2[a2, SP[a1, a3], SP[a1, a5], a4, n] + 
    S2[SP[a1, a1], a5, a3, SP[a2, a4], n] + S2[SP[a1, a1], a5, SP[a3, a4], 
     a2, n] + S2[SP[a1, a1], SP[a4, a5], a3, a2, n] - 
    S2[SP[a1, a2], a1, a3, SP[a4, a5], n] - S2[SP[a1, a2], a1, SP[a3, a4], 
     a5, n] - S2[SP[a1, a2], a3, a1, SP[a4, a5], n] - 
    S2[SP[a1, a2], a3, SP[a1, a5], a4, n] - S2[SP[a1, a2], SP[a1, a3], a4, 
     a5, n] - S2[SP[a1, a2], SP[a1, a3], a5, a4, n] + 
    S2[a1, a1, a2, a3, SP[a4, a5], n] + S2[a1, a1, a2, SP[a3, a4], a5, n] + 
    S2[a5, n]*S2[a1, a1, a3, a2, a4, n] + S2[a1, a1, a3, a2, SP[a4, a5], n] + 
    S2[a5, n]*S2[a1, a1, a3, a4, a2, n] - 
    S2[a2, n]*S2[a1, a1, a3, a4, a5, n] - 
    S2[a2, n]*S2[a1, a1, a3, a5, a4, n] - S2[a1, a1, a3, a5, SP[a2, a4], n] - 
    S2[a1, a1, a3, SP[a2, a4], a5, n] + S2[a1, a1, a3, SP[a4, a5], a2, n] + 
    S2[a5, n]*S2[a1, a1, a4, a3, a2, n] - 
    S2[a2, n]*S2[a1, a1, a4, a3, a5, n] - S2[a1, a1, a4, SP[a2, a3], a5, n] + 
    S2[a1, a1, a4, SP[a3, a5], a2, n] + S2[a4, n]*S2[a1, a1, a5, a3, a2, n] - 
    S2[a1, a1, a5, a3, SP[a2, a4], n] - S2[a1, a1, a5, SP[a3, a4], a2, n] - 
    S2[a1, a1, SP[a2, a3], a4, a5, n] - S2[a1, a1, SP[a2, a3], a5, a4, n] + 
    S2[a1, a1, SP[a3, a5], a2, a4, n] + S2[a1, a1, SP[a3, a5], a4, a2, n] + 
    S2[a1, a2, a1, a3, SP[a4, a5], n] + S2[a1, a2, a1, SP[a3, a4], a5, n] + 
    S2[a1, a2, a3, a1, SP[a4, a5], n] + S2[a1, a2, a3, SP[a1, a5], a4, n] + 
    S2[a1, a2, SP[a1, a3], a4, a5, n] + S2[a1, a2, SP[a1, a3], a5, a4, n] + 
    S2[a5, n]*S2[a1, a3, a1, a2, a4, n] + S2[a1, a3, a1, a2, SP[a4, a5], n] + 
    S2[a5, n]*S2[a1, a3, a1, a4, a2, n] - 
    S2[a2, n]*S2[a1, a3, a1, a4, a5, n] - 
    S2[a2, n]*S2[a1, a3, a1, a5, a4, n] - S2[a1, a3, a1, a5, SP[a2, a4], n] - 
    S2[a1, a3, a1, SP[a2, a4], a5, n] + S2[a1, a3, a1, SP[a4, a5], a2, n] + 
    S2[a5, n]*S2[a1, a3, a2, a1, a4, n] + S2[a1, a3, a2, a1, SP[a4, a5], n] + 
    S2[a1, a3, a2, SP[a1, a5], a4, n] - S2[a2, n]*S2[a1, a3, a5, a1, a4, n] - 
    S2[a1, a3, a5, a1, SP[a2, a4], n] - S2[a1, a3, a5, SP[a1, a2], a4, n] - 
    S2[a1, a3, SP[a1, a2], a4, a5, n] - S2[a1, a3, SP[a1, a2], a5, a4, n] + 
    S2[a1, a3, SP[a1, a5], a2, a4, n] + S2[a1, a3, SP[a1, a5], a4, a2, n] - 
    S2[a1, a5, a1, a3, SP[a2, a4], n] - S2[a1, a5, a1, SP[a3, a4], a2, n] - 
    S2[a1, a5, a3, a1, SP[a2, a4], n] - S2[a1, a5, a3, SP[a1, a2], a4, n] - 
    S2[a1, a5, SP[a1, a3], a2, a4, n] - S2[a1, a5, SP[a1, a3], a4, a2, n] - 
    S2[a1, SP[a2, a3], a1, a4, a5, n] - S2[a1, SP[a2, a3], a1, a5, a4, n] - 
    S2[a1, SP[a2, a3], a5, a1, a4, n] + S2[a1, SP[a3, a5], a1, a2, a4, n] + 
    S2[a1, SP[a3, a5], a1, a4, a2, n] + S2[a1, SP[a3, a5], a2, a1, a4, n] + 
    S2[a2, a1, a1, a3, SP[a4, a5], n] + S2[a2, a1, a1, SP[a3, a4], a5, n] + 
    S2[a2, a1, a3, a1, SP[a4, a5], n] + S2[a2, a1, a3, SP[a1, a5], a4, n] + 
    S2[a2, a1, SP[a1, a3], a4, a5, n] + S2[a2, a1, SP[a1, a3], a5, a4, n] - 
    S2[a5, n]*S2[a2, a3, a1, a1, a4, n] + S2[a2, SP[a1, a3], a1, a4, a5, n] + 
    S2[a2, SP[a1, a3], a1, a5, a4, n] + S2[a2, SP[a1, a3], a5, a1, a4, n] - 
    S2[a2, SP[a3, a5], a1, a1, a4, n] + S2[a2, n]*S2[a5, a3, a1, a1, a4, n] + 
    S2[a5, a3, a1, a1, SP[a2, a4], n] + S2[a5, a3, a1, SP[a1, a2], a4, n] + 
    S2[a5, a3, SP[a1, a2], a1, a4, n] + S2[a5, SP[a2, a3], a1, a1, a4, n] - 
    S2[SP[a1, a1], a4, a5, a3, a2, n] - S2[SP[a1, a1], a5, a3, a2, a4, n] - 
    S2[SP[a1, a1], a5, a3, a4, a2, n] - S2[SP[a1, a1], a5, a4, a3, a2, n] + 
    S2[SP[a1, a4], a1, a5, a3, a2, n] + S2[SP[a1, a5], a1, a3, a2, a4, n] + 
    S2[SP[a1, a5], a1, a3, a4, a2, n] + S2[SP[a1, a5], a1, a4, a3, a2, n] + 
    S2[SP[a1, a5], a3, a1, a2, a4, n] + S2[SP[a1, a5], a3, a1, a4, a2, n] + 
    S2[SP[a1, a5], a3, a2, a1, a4, n] - S2[a5, a1, a1, a3, a2, a4, n] - 
    S2[a5, a1, a1, a3, a4, a2, n] - S2[a5, a1, a1, a4, a3, a2, n] - 
    S2[a5, a1, a3, a1, a2, a4, n] - S2[a5, a1, a3, a1, a4, a2, n] - 
    S2[a5, a1, a3, a2, a1, a4, n] - S2[a5, a3, a1, a1, a2, a4, n] - 
    S2[a5, a3, a1, a1, a4, a2, n] - S2[a5, a3, a1, a2, a1, a4, n] - 
    S2[a5, a3, a2, a1, a1, a4, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a4_, a1_, a2_, a1_, a3_, a5_, n_] :> 
  -(S2[a1, a2, a4, n]*S2[a1, a3, a5, n]) - S2[a1, a3, a5, n]*
     S2[a1, a4, a2, n] - S2[SP[a1, a1], SP[a2, a3], SP[a4, a5], n] - 
    S2[SP[a1, a1], SP[a3, a4], SP[a2, a5], n] + 
    2*S2[a1, a1, SP[a2, a3], SP[a4, a5], n] + 
    2*S2[a1, a1, SP[a3, a4], SP[a2, a5], n] - 
    S2[a3, a5, n]*S2[a1, a2, a1, a4, n] + S2[a1, a4, n]*
     S2[a1, a2, a3, a5, n] + S2[a1, a4, n]*S2[a1, a3, a2, a5, n] + 
    S2[a1, a4, n]*S2[a1, a3, a5, a2, n] - S2[a1, a3, SP[a1, a2], SP[a4, a5], 
     n] - S2[a1, a3, SP[a1, a5], SP[a2, a4], n] + S2[a1, SP[a1, a3], a4, 
     SP[a2, a5], n] - S2[a1, SP[a1, a3], a5, SP[a2, a4], n] - 
    S2[a1, SP[a1, a3], SP[a2, a4], a5, n] + S2[a1, SP[a1, a3], SP[a2, a5], 
     a4, n] + S2[a1, SP[a1, a4], a3, SP[a2, a5], n] + 
    S2[a1, SP[a1, a4], SP[a2, a3], a5, n] + S2[a1, SP[a2, a3], a1, 
     SP[a4, a5], n] + S2[a1, SP[a2, a3], SP[a1, a5], a4, n] + 
    S2[SP[a1, a1], a3, a4, SP[a2, a5], n] - S2[SP[a1, a1], a3, a5, 
     SP[a2, a4], n] - S2[SP[a1, a1], a3, SP[a2, a4], a5, n] + 
    S2[SP[a1, a1], a3, SP[a2, a5], a4, n] + S2[SP[a1, a1], a4, a3, 
     SP[a2, a5], n] + S2[SP[a1, a1], a4, SP[a2, a3], a5, n] + 
    S2[SP[a1, a1], SP[a2, a3], a4, a5, n] + S2[SP[a1, a1], SP[a2, a3], a5, 
     a4, n] - S2[SP[a1, a1], SP[a2, a4], a3, a5, n] + 
    S2[SP[a1, a3], a2, a1, SP[a4, a5], n] + S2[SP[a1, a3], a2, SP[a1, a5], 
     a4, n] + S2[SP[a1, a3], SP[a2, a5], a1, a4, n] - 
    2*S2[a1, a1, a3, a4, SP[a2, a5], n] + 
    2*S2[a1, a1, a3, a5, SP[a2, a4], n] + 
    2*S2[a1, a1, a3, SP[a2, a4], a5, n] - 
    2*S2[a1, a1, a3, SP[a2, a5], a4, n] - 
    2*S2[a1, a1, a4, a3, SP[a2, a5], n] - 
    2*S2[a1, a1, a4, SP[a2, a3], a5, n] - 
    2*S2[a1, a1, SP[a2, a3], a4, a5, n] - 
    2*S2[a1, a1, SP[a2, a3], a5, a4, n] + 
    2*S2[a1, a1, SP[a2, a4], a3, a5, n] - 
    S2[a5, n]*S2[a1, a2, a1, a3, a4, n] + 
    S2[a4, n]*S2[a1, a2, a1, a3, a5, n] - S2[a1, a2, a1, a3, SP[a4, a5], n] - 
    S2[a5, n]*S2[a1, a2, a1, a4, a3, n] + 
    S2[a3, n]*S2[a1, a2, a1, a4, a5, n] + 
    S2[a3, n]*S2[a1, a2, a1, a5, a4, n] + S2[a1, a2, a1, a5, SP[a3, a4], n] + 
    S2[a1, a2, a1, SP[a3, a4], a5, n] - S2[a1, a2, a1, SP[a4, a5], a3, n] - 
    S2[a5, n]*S2[a1, a2, a3, a1, a4, n] - S2[a1, a2, a3, a1, SP[a4, a5], n] - 
    S2[a1, a2, a3, SP[a1, a5], a4, n] + S2[a3, n]*S2[a1, a2, a5, a1, a4, n] + 
    S2[a1, a2, a5, a1, SP[a3, a4], n] + S2[a1, a2, a5, SP[a1, a3], a4, n] + 
    S2[a1, a2, SP[a1, a3], a4, a5, n] + S2[a1, a2, SP[a1, a3], a5, a4, n] - 
    S2[a1, a2, SP[a1, a5], a3, a4, n] - S2[a1, a2, SP[a1, a5], a4, a3, n] - 
    S2[a1, a3, a1, a4, SP[a2, a5], n] + S2[a1, a3, a1, a5, SP[a2, a4], n] + 
    S2[a1, a3, a1, SP[a2, a4], a5, n] - S2[a1, a3, a1, SP[a2, a5], a4, n] - 
    S2[a5, n]*S2[a1, a3, a2, a1, a4, n] - S2[a1, a3, a2, a1, SP[a4, a5], n] - 
    S2[a1, a3, a2, SP[a1, a5], a4, n] + S2[a1, a3, a5, a1, SP[a2, a4], n] + 
    S2[a1, a3, a5, SP[a1, a2], a4, n] + S2[a1, a3, SP[a1, a2], a4, a5, n] + 
    S2[a1, a3, SP[a1, a2], a5, a4, n] - 2*S2[a1, a3, SP[a2, a5], a1, a4, n] - 
    S2[a1, a4, a1, a3, SP[a2, a5], n] - S2[a1, a4, a1, SP[a2, a3], a5, n] - 
    S2[a1, a4, SP[a1, a2], a3, a5, n] + S2[a3, n]*S2[a1, a5, a2, a1, a4, n] + 
    S2[a1, a5, a2, a1, SP[a3, a4], n] + S2[a1, a5, a2, SP[a1, a3], a4, n] + 
    S2[a1, a5, SP[a2, a3], a1, a4, n] + S2[a1, SP[a2, a4], a1, a3, a5, n] - 
    S2[a1, SP[a2, a5], a1, a3, a4, n] - S2[a1, SP[a2, a5], a1, a4, a3, n] - 
    S2[a1, SP[a2, a5], a3, a1, a4, n] - S2[a3, a1, a2, a1, SP[a4, a5], n] - 
    S2[a3, a1, a2, SP[a1, a5], a4, n] - S2[a3, a1, SP[a2, a5], a1, a4, n] - 
    S2[a3, SP[a1, a5], a2, a1, a4, n] + S2[a3, n]*S2[a5, a1, a2, a1, a4, n] + 
    S2[a5, a1, a2, a1, SP[a3, a4], n] + S2[a5, a1, a2, SP[a1, a3], a4, n] + 
    S2[a5, a1, SP[a2, a3], a1, a4, n] + S2[a5, SP[a1, a3], a2, a1, a4, n] + 
    S2[SP[a1, a4], a2, a1, a3, a5, n] - S2[SP[a1, a5], a2, a1, a3, a4, n] - 
    S2[SP[a1, a5], a2, a1, a4, a3, n] - S2[SP[a1, a5], a2, a3, a1, a4, n] - 
    S2[SP[a1, a5], a3, a2, a1, a4, n] + S2[SP[a3, a5], a1, a2, a1, a4, n] - 
    S2[a5, a3, a1, a2, a1, a4, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a4_, a1_, a2_, a1_, a5_, a3_, n_] :> 
  -(S2[a1, a2, a4, n]*S2[a1, a5, a3, n]) - S2[a1, a4, a2, n]*
     S2[a1, a5, a3, n] - S2[SP[a1, a1], SP[a2, a5], SP[a3, a4], n] - 
    S2[SP[a1, a1], SP[a4, a5], SP[a2, a3], n] + 
    2*S2[a1, a1, SP[a2, a5], SP[a3, a4], n] + 
    2*S2[a1, a1, SP[a4, a5], SP[a2, a3], n] + 
    S2[a3, a5, n]*S2[a1, a2, a1, a4, n] + S2[a1, a4, n]*
     S2[a1, a2, a5, a3, n] - S2[a1, a2, SP[a1, a3], SP[a4, a5], n] - 
    S2[a1, a2, SP[a1, a5], SP[a3, a4], n] + S2[a1, a4, n]*
     S2[a1, a5, a2, a3, n] + S2[a1, a4, n]*S2[a1, a5, a3, a2, n] - 
    S2[a1, a5, SP[a1, a2], SP[a3, a4], n] - S2[a1, a5, SP[a1, a3], 
     SP[a2, a4], n] + S2[a1, SP[a1, a4], a5, SP[a2, a3], n] + 
    S2[a1, SP[a1, a4], SP[a2, a5], a3, n] - S2[a1, SP[a1, a5], a3, 
     SP[a2, a4], n] + S2[a1, SP[a1, a5], a4, SP[a2, a3], n] + 
    S2[a1, SP[a1, a5], SP[a2, a3], a4, n] - S2[a1, SP[a1, a5], SP[a2, a4], 
     a3, n] - S2[a1, SP[a2, a3], a1, SP[a4, a5], n] - 
    S2[a1, SP[a2, a3], SP[a1, a5], a4, n] + S2[SP[a1, a1], a4, a5, 
     SP[a2, a3], n] + S2[SP[a1, a1], a4, SP[a2, a5], a3, n] - 
    S2[SP[a1, a1], a5, a3, SP[a2, a4], n] + S2[SP[a1, a1], a5, a4, 
     SP[a2, a3], n] + S2[SP[a1, a1], a5, SP[a2, a3], a4, n] - 
    S2[SP[a1, a1], a5, SP[a2, a4], a3, n] - S2[SP[a1, a1], SP[a2, a4], a5, 
     a3, n] + S2[SP[a1, a1], SP[a2, a5], a3, a4, n] + 
    S2[SP[a1, a1], SP[a2, a5], a4, a3, n] - S2[SP[a1, a3], a2, a1, 
     SP[a4, a5], n] - S2[SP[a1, a3], a2, SP[a1, a5], a4, n] - 
    S2[SP[a1, a3], SP[a2, a5], a1, a4, n] - 
    2*S2[a1, a1, a4, a5, SP[a2, a3], n] - 
    2*S2[a1, a1, a4, SP[a2, a5], a3, n] + 
    2*S2[a1, a1, a5, a3, SP[a2, a4], n] - 
    2*S2[a1, a1, a5, a4, SP[a2, a3], n] - 
    2*S2[a1, a1, a5, SP[a2, a3], a4, n] + 
    2*S2[a1, a1, a5, SP[a2, a4], a3, n] + 
    2*S2[a1, a1, SP[a2, a4], a5, a3, n] - 
    2*S2[a1, a1, SP[a2, a5], a3, a4, n] - 
    2*S2[a1, a1, SP[a2, a5], a4, a3, n] + S2[a1, a2, a1, a3, SP[a4, a5], n] - 
    S2[a3, n]*S2[a1, a2, a1, a4, a5, n] - S2[a1, a2, a1, a4, SP[a3, a5], n] + 
    S2[a4, n]*S2[a1, a2, a1, a5, a3, n] - 
    S2[a3, n]*S2[a1, a2, a1, a5, a4, n] - S2[a1, a2, a1, SP[a3, a5], a4, n] + 
    S2[a1, a2, a1, SP[a4, a5], a3, n] + S2[a1, a2, a3, a1, SP[a4, a5], n] + 
    S2[a1, a2, a3, SP[a1, a5], a4, n] - S2[a3, n]*S2[a1, a2, a5, a1, a4, n] + 
    S2[a1, a2, SP[a1, a5], a3, a4, n] + S2[a1, a2, SP[a1, a5], a4, a3, n] - 
    S2[a1, a2, SP[a3, a5], a1, a4, n] + S2[a1, a3, a2, a1, SP[a4, a5], n] + 
    S2[a1, a3, a2, SP[a1, a5], a4, n] + S2[a1, a3, SP[a2, a5], a1, a4, n] - 
    S2[a1, a4, a1, a5, SP[a2, a3], n] - S2[a1, a4, a1, SP[a2, a5], a3, n] - 
    S2[a1, a4, SP[a1, a2], a5, a3, n] + S2[a1, a5, a1, a3, SP[a2, a4], n] - 
    S2[a1, a5, a1, a4, SP[a2, a3], n] - S2[a1, a5, a1, SP[a2, a3], a4, n] + 
    S2[a1, a5, a1, SP[a2, a4], a3, n] - S2[a3, n]*S2[a1, a5, a2, a1, a4, n] + 
    S2[a1, a5, a3, a1, SP[a2, a4], n] + S2[a1, a5, a3, SP[a1, a2], a4, n] + 
    S2[a1, a5, SP[a1, a2], a3, a4, n] + S2[a1, a5, SP[a1, a2], a4, a3, n] - 
    S2[a1, a5, SP[a2, a3], a1, a4, n] + S2[a1, SP[a2, a4], a1, a5, a3, n] - 
    S2[a1, SP[a3, a5], a2, a1, a4, n] + S2[a3, a1, a2, a1, SP[a4, a5], n] + 
    S2[a3, a1, a2, SP[a1, a5], a4, n] + S2[a3, a1, SP[a2, a5], a1, a4, n] + 
    S2[a3, SP[a1, a5], a2, a1, a4, n] - S2[a3, n]*S2[a5, a1, a2, a1, a4, n] - 
    S2[a5, a1, a2, a1, SP[a3, a4], n] - S2[a5, a1, a2, SP[a1, a3], a4, n] - 
    S2[a5, a1, SP[a2, a3], a1, a4, n] - S2[a5, SP[a1, a3], a2, a1, a4, n] + 
    S2[SP[a1, a4], a2, a1, a5, a3, n] - S2[SP[a3, a5], a1, a2, a1, a4, n] + 
    S2[a5, a1, a2, a1, a3, a4, n] + S2[a5, a1, a2, a1, a4, a3, n] + 
    S2[a5, a1, a2, a3, a1, a4, n] + S2[a5, a1, a3, a2, a1, a4, n] + 
    S2[a5, a3, a1, a2, a1, a4, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a4_, a1_, a2_, a3_, a1_, a5_, n_] :> 
  S2[a1, a2, a4, n]*S2[a1, a3, a5, n] + S2[a1, a3, a5, n]*S2[a1, a4, a2, n] + 
    S2[a1, a2, a4, n]*S2[a1, a5, a3, n] + S2[a1, a4, a2, n]*
     S2[a1, a5, a3, n] + S2[SP[a1, a1], SP[a2, a3], SP[a4, a5], n] + 
    S2[SP[a1, a1], SP[a2, a5], SP[a3, a4], n] + S2[SP[a1, a1], SP[a3, a4], 
     SP[a2, a5], n] + S2[SP[a1, a1], SP[a4, a5], SP[a2, a3], n] - 
    2*S2[a1, a1, SP[a2, a3], SP[a4, a5], n] - 
    2*S2[a1, a1, SP[a2, a5], SP[a3, a4], n] - 
    2*S2[a1, a1, SP[a3, a4], SP[a2, a5], n] - 
    2*S2[a1, a1, SP[a4, a5], SP[a2, a3], n] - 
    S2[a1, a5, n]*S2[a1, a2, a3, a4, n] - S2[a1, a5, n]*
     S2[a1, a2, a4, a3, n] + S2[a1, a2, SP[a1, a3], SP[a4, a5], n] + 
    S2[a1, a2, SP[a1, a4], SP[a3, a5], n] - S2[a1, a4, n]*
     S2[a1, a3, a2, a5, n] - S2[a1, a4, n]*S2[a1, a3, a5, a2, n] + 
    S2[a1, a3, SP[a1, a2], SP[a4, a5], n] + S2[a1, a3, SP[a1, a5], 
     SP[a2, a4], n] - S2[a1, a5, n]*S2[a1, a4, a2, a3, n] + 
    S2[a1, a4, SP[a1, a2], SP[a3, a5], n] - S2[a1, a4, n]*
     S2[a1, a5, a3, a2, n] + S2[a1, a5, SP[a1, a3], SP[a2, a4], n] + 
    S2[a1, SP[a1, a2], a4, SP[a3, a5], n] - S2[a1, SP[a1, a2], a5, 
     SP[a3, a4], n] - S2[a1, SP[a1, a2], SP[a3, a4], a5, n] + 
    S2[a1, SP[a1, a2], SP[a3, a5], a4, n] - S2[a1, SP[a1, a3], a4, 
     SP[a2, a5], n] + S2[a1, SP[a1, a3], a5, SP[a2, a4], n] + 
    S2[a1, SP[a1, a3], SP[a2, a4], a5, n] - S2[a1, SP[a1, a3], SP[a2, a5], 
     a4, n] + S2[a1, SP[a1, a4], a2, SP[a3, a5], n] - 
    S2[a1, SP[a1, a4], a3, SP[a2, a5], n] - S2[a1, SP[a1, a4], a5, 
     SP[a2, a3], n] - S2[a1, SP[a1, a4], SP[a2, a3], a5, n] - 
    S2[a1, SP[a1, a5], a2, SP[a3, a4], n] + S2[a1, SP[a1, a5], a3, 
     SP[a2, a4], n] - S2[a1, SP[a1, a5], a4, SP[a2, a3], n] - 
    S2[a1, SP[a1, a5], SP[a2, a3], a4, n] + S2[SP[a1, a1], a2, a4, 
     SP[a3, a5], n] - S2[SP[a1, a1], a2, a5, SP[a3, a4], n] - 
    S2[SP[a1, a1], a2, SP[a3, a4], a5, n] + S2[SP[a1, a1], a2, SP[a3, a5], 
     a4, n] - S2[SP[a1, a1], a3, a4, SP[a2, a5], n] + 
    S2[SP[a1, a1], a3, a5, SP[a2, a4], n] + S2[SP[a1, a1], a3, SP[a2, a4], 
     a5, n] - S2[SP[a1, a1], a3, SP[a2, a5], a4, n] + 
    S2[SP[a1, a1], a4, a2, SP[a3, a5], n] - S2[SP[a1, a1], a4, a3, 
     SP[a2, a5], n] - S2[SP[a1, a1], a4, a5, SP[a2, a3], n] - 
    S2[SP[a1, a1], a4, SP[a2, a3], a5, n] - S2[SP[a1, a1], a5, a2, 
     SP[a3, a4], n] + S2[SP[a1, a1], a5, a3, SP[a2, a4], n] - 
    S2[SP[a1, a1], a5, a4, SP[a2, a3], n] - S2[SP[a1, a1], a5, SP[a2, a3], 
     a4, n] - S2[SP[a1, a1], SP[a2, a3], a4, a5, n] - 
    S2[SP[a1, a1], SP[a2, a3], a5, a4, n] - 
    2*S2[a1, a1, a2, a4, SP[a3, a5], n] + 
    2*S2[a1, a1, a2, a5, SP[a3, a4], n] + 
    2*S2[a1, a1, a2, SP[a3, a4], a5, n] - 
    2*S2[a1, a1, a2, SP[a3, a5], a4, n] + 
    2*S2[a1, a1, a3, a4, SP[a2, a5], n] - 
    2*S2[a1, a1, a3, a5, SP[a2, a4], n] - 
    2*S2[a1, a1, a3, SP[a2, a4], a5, n] + 
    2*S2[a1, a1, a3, SP[a2, a5], a4, n] - 
    2*S2[a1, a1, a4, a2, SP[a3, a5], n] + 
    2*S2[a1, a1, a4, a3, SP[a2, a5], n] + 
    2*S2[a1, a1, a4, a5, SP[a2, a3], n] + 
    2*S2[a1, a1, a4, SP[a2, a3], a5, n] + 
    2*S2[a1, a1, a5, a2, SP[a3, a4], n] - 
    2*S2[a1, a1, a5, a3, SP[a2, a4], n] + 
    2*S2[a1, a1, a5, a4, SP[a2, a3], n] + 
    2*S2[a1, a1, a5, SP[a2, a3], a4, n] + 
    2*S2[a1, a1, SP[a2, a3], a4, a5, n] + 
    2*S2[a1, a1, SP[a2, a3], a5, a4, n] - S2[a1, a2, a1, a4, SP[a3, a5], n] + 
    S2[a1, a2, a1, a5, SP[a3, a4], n] + S2[a1, a2, a1, SP[a3, a4], a5, n] - 
    S2[a1, a2, a1, SP[a3, a5], a4, n] + S2[a4, n]*S2[a1, a2, a3, a1, a5, n] - 
    S2[a1, a2, a4, a1, SP[a3, a5], n] - S2[a1, a2, a4, SP[a1, a3], a5, n] - 
    S2[a1, a2, SP[a1, a3], a4, a5, n] - S2[a1, a2, SP[a1, a3], a5, a4, n] + 
    S2[a1, a2, SP[a3, a4], a1, a5, n] + S2[a1, a3, a1, a4, SP[a2, a5], n] - 
    S2[a1, a3, a1, a5, SP[a2, a4], n] - S2[a1, a3, a1, SP[a2, a4], a5, n] + 
    S2[a1, a3, a1, SP[a2, a5], a4, n] + S2[a5, n]*S2[a1, a3, a2, a1, a4, n] - 
    S2[a1, a3, a5, a1, SP[a2, a4], n] - S2[a1, a3, a5, SP[a1, a2], a4, n] - 
    S2[a1, a3, SP[a1, a2], a4, a5, n] - S2[a1, a3, SP[a1, a2], a5, a4, n] + 
    S2[a1, a3, SP[a2, a5], a1, a4, n] - S2[a1, a4, a1, a2, SP[a3, a5], n] + 
    S2[a1, a4, a1, a3, SP[a2, a5], n] + S2[a1, a4, a1, a5, SP[a2, a3], n] + 
    S2[a1, a4, a1, SP[a2, a3], a5, n] - S2[a1, a4, a2, a1, SP[a3, a5], n] - 
    S2[a1, a4, a2, SP[a1, a3], a5, n] + S2[a1, a5, a1, a2, SP[a3, a4], n] - 
    S2[a1, a5, a1, a3, SP[a2, a4], n] + S2[a1, a5, a1, a4, SP[a2, a3], n] + 
    S2[a1, a5, a1, SP[a2, a3], a4, n] - S2[a1, a5, a3, a1, SP[a2, a4], n] - 
    S2[a1, a5, a3, SP[a1, a2], a4, n] + S2[a1, SP[a2, a4], a3, a1, a5, n] + 
    S2[a1, SP[a3, a5], a2, a1, a4, n] + S2[SP[a1, a4], a2, a3, a1, a5, n] + 
    S2[SP[a1, a5], a3, a2, a1, a4, n] - S2[a5, a1, a3, a2, a1, a4, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a4_, a1_, a2_, a3_, a5_, a1_, n_] :> 
  -(S2[a1, a2, a4, n]*S2[a1, a5, a3, n]) - S2[a1, a4, a2, n]*
     S2[a1, a5, a3, n] - S2[SP[a1, a1], SP[a2, a5], SP[a3, a4], n] - 
    S2[SP[a1, a1], SP[a4, a5], SP[a2, a3], n] + 
    2*S2[a1, a1, SP[a2, a5], SP[a3, a4], n] + 
    2*S2[a1, a1, SP[a4, a5], SP[a2, a3], n] + 
    S2[a1, a5, n]*S2[a1, a2, a3, a4, n] + S2[a1, a5, n]*
     S2[a1, a2, a4, a3, n] - S2[a1, a2, SP[a1, a3], SP[a4, a5], n] - 
    S2[a1, a2, SP[a1, a4], SP[a3, a5], n] + S2[a1, a5, n]*
     S2[a1, a4, a2, a3, n] - S2[a1, a4, SP[a1, a2], SP[a3, a5], n] + 
    S2[a1, a4, n]*S2[a1, a5, a3, a2, n] - S2[a1, a5, SP[a1, a3], SP[a2, a4], 
     n] - S2[a1, SP[a1, a2], a3, SP[a4, a5], n] - S2[a1, SP[a1, a2], a4, 
     SP[a3, a5], n] + S2[a1, SP[a1, a2], a5, SP[a3, a4], n] - 
    S2[a1, SP[a1, a2], SP[a3, a5], a4, n] - S2[a1, SP[a1, a4], a2, 
     SP[a3, a5], n] + S2[a1, SP[a1, a4], a5, SP[a2, a3], n] + 
    S2[a1, SP[a1, a5], a2, SP[a3, a4], n] - S2[a1, SP[a1, a5], a3, 
     SP[a2, a4], n] + S2[a1, SP[a1, a5], a4, SP[a2, a3], n] + 
    S2[a1, SP[a1, a5], SP[a2, a3], a4, n] - S2[SP[a1, a1], a2, a3, 
     SP[a4, a5], n] - S2[SP[a1, a1], a2, a4, SP[a3, a5], n] + 
    S2[SP[a1, a1], a2, a5, SP[a3, a4], n] - S2[SP[a1, a1], a2, SP[a3, a5], 
     a4, n] - S2[SP[a1, a1], a4, a2, SP[a3, a5], n] + 
    S2[SP[a1, a1], a4, a5, SP[a2, a3], n] + S2[SP[a1, a1], a5, a2, 
     SP[a3, a4], n] - S2[SP[a1, a1], a5, a3, SP[a2, a4], n] + 
    S2[SP[a1, a1], a5, a4, SP[a2, a3], n] + S2[SP[a1, a1], a5, SP[a2, a3], 
     a4, n] - 2*S2[a4, n]*S2[a1, a1, a2, a3, a5, n] + 
    2*S2[a1, a1, a2, a4, SP[a3, a5], n] - 
    2*S2[a1, a1, a2, a5, SP[a3, a4], n] - 
    2*S2[a1, a1, a2, SP[a3, a4], a5, n] + 
    2*S2[a1, a1, a2, SP[a3, a5], a4, n] + 
    2*S2[a1, a1, a4, a2, SP[a3, a5], n] - 
    2*S2[a1, a1, a4, a5, SP[a2, a3], n] - 
    2*S2[a1, a1, a5, a2, SP[a3, a4], n] + 
    2*S2[a1, a1, a5, a3, SP[a2, a4], n] - 
    2*S2[a1, a1, a5, a4, SP[a2, a3], n] - 
    2*S2[a1, a1, a5, SP[a2, a3], a4, n] - 
    2*S2[a1, a1, SP[a2, a4], a3, a5, n] - 
    S2[a4, n]*S2[a1, a2, a1, a3, a5, n] + S2[a1, a2, a1, a4, SP[a3, a5], n] - 
    S2[a1, a2, a1, a5, SP[a3, a4], n] - S2[a1, a2, a1, SP[a3, a4], a5, n] + 
    S2[a1, a2, a1, SP[a3, a5], a4, n] - S2[a4, n]*S2[a1, a2, a3, a1, a5, n] + 
    S2[a1, a2, a4, a1, SP[a3, a5], n] + S2[a1, a2, a4, SP[a1, a3], a5, n] + 
    S2[a1, a2, SP[a1, a3], a4, a5, n] + S2[a1, a2, SP[a1, a3], a5, a4, n] - 
    S2[a1, a2, SP[a3, a4], a1, a5, n] + S2[a1, a4, a1, a2, SP[a3, a5], n] - 
    S2[a1, a4, a1, a5, SP[a2, a3], n] + S2[a1, a4, a2, a1, SP[a3, a5], n] + 
    S2[a1, a4, a2, SP[a1, a3], a5, n] + S2[a1, a4, SP[a1, a2], a3, a5, n] - 
    S2[a1, a5, a1, a2, SP[a3, a4], n] + S2[a1, a5, a1, a3, SP[a2, a4], n] - 
    S2[a1, a5, a1, a4, SP[a2, a3], n] - S2[a1, a5, a1, SP[a2, a3], a4, n] + 
    S2[a1, a5, a3, a1, SP[a2, a4], n] + S2[a1, a5, a3, SP[a1, a2], a4, n] + 
    S2[a1, SP[a1, a2], a3, a4, a5, n] + S2[a1, SP[a1, a2], a3, a5, a4, n] + 
    S2[a1, SP[a1, a2], a4, a3, a5, n] - S2[a1, SP[a1, a4], a2, a3, a5, n] - 
    S2[a1, SP[a2, a4], a1, a3, a5, n] - S2[a1, SP[a2, a4], a3, a1, a5, n] + 
    S2[a1, n]*S2[a4, a1, a2, a3, a5, n] + S2[a4, a1, a2, a3, SP[a1, a5], n] + 
    S2[a4, a1, a2, SP[a1, a3], a5, n] + S2[a4, a1, SP[a1, a2], a3, a5, n] + 
    S2[a4, SP[a1, a1], a2, a3, a5, n] - S2[a1, n]*S2[a5, a3, a2, a1, a4, n] - 
    S2[a5, a3, a2, a1, SP[a1, a4], n] - S2[a5, a3, a2, SP[a1, a1], a4, n] - 
    S2[a5, a3, SP[a1, a2], a1, a4, n] - S2[a5, SP[a1, a3], a2, a1, a4, n] + 
    S2[SP[a1, a1], a2, a3, a4, a5, n] + S2[SP[a1, a1], a2, a3, a5, a4, n] + 
    S2[SP[a1, a1], a2, a4, a3, a5, n] + S2[SP[a1, a1], a4, a2, a3, a5, n] - 
    S2[SP[a1, a4], a1, a2, a3, a5, n] - S2[SP[a1, a4], a2, a1, a3, a5, n] - 
    S2[SP[a1, a4], a2, a3, a1, a5, n] - S2[SP[a1, a5], a3, a2, a1, a4, n] + 
    S2[a5, a1, a3, a2, a1, a4, n] + S2[a5, a3, a1, a2, a1, a4, n] + 
    2*S2[a5, a3, a2, a1, a1, a4, n] + S2[a5, a3, a2, a1, a4, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a4_, a1_, a2_, a5_, a1_, a3_, n_] :> 
  S2[a1, a2, a4, n]*S2[a1, a3, a5, n] + S2[a1, a3, a5, n]*S2[a1, a4, a2, n] + 
    S2[a1, a2, a4, n]*S2[a1, a5, a3, n] + S2[a1, a4, a2, n]*
     S2[a1, a5, a3, n] + S2[SP[a1, a1], SP[a2, a3], SP[a4, a5], n] + 
    S2[SP[a1, a1], SP[a2, a5], SP[a3, a4], n] + S2[SP[a1, a1], SP[a3, a4], 
     SP[a2, a5], n] + S2[SP[a1, a1], SP[a4, a5], SP[a2, a3], n] - 
    2*S2[a1, a1, SP[a2, a3], SP[a4, a5], n] - 
    2*S2[a1, a1, SP[a2, a5], SP[a3, a4], n] - 
    2*S2[a1, a1, SP[a3, a4], SP[a2, a5], n] - 
    2*S2[a1, a1, SP[a4, a5], SP[a2, a3], n] - 
    S2[a1, a4, n]*S2[a1, a3, a5, a2, n] + S2[a1, a3, SP[a1, a5], SP[a2, a4], 
     n] + S2[a1, a3, n]*S2[a1, a4, a5, a2, n] - S2[a1, a4, SP[a1, a5], 
     SP[a2, a3], n] - S2[a1, a4, n]*S2[a1, a5, a2, a3, n] + 
    S2[a1, a3, n]*S2[a1, a5, a2, a4, n] - S2[a1, a4, n]*
     S2[a1, a5, a3, a2, n] + S2[a1, a3, n]*S2[a1, a5, a4, a2, n] + 
    S2[a1, a5, SP[a1, a3], SP[a2, a4], n] - S2[a1, a5, SP[a1, a4], 
     SP[a2, a3], n] - S2[a1, SP[a1, a2], a3, SP[a4, a5], n] - 
    S2[a1, SP[a1, a2], a5, SP[a3, a4], n] - S2[a1, SP[a1, a2], SP[a3, a4], 
     a5, n] - S2[a1, SP[a1, a2], SP[a4, a5], a3, n] - 
    S2[a1, SP[a1, a3], a2, SP[a4, a5], n] - S2[a1, SP[a1, a3], a4, 
     SP[a2, a5], n] + S2[a1, SP[a1, a3], a5, SP[a2, a4], n] - 
    S2[a1, SP[a1, a3], SP[a2, a5], a4, n] - S2[a1, SP[a1, a4], a3, 
     SP[a2, a5], n] - 2*S2[a1, SP[a1, a4], a5, SP[a2, a3], n] - 
    S2[a1, SP[a1, a4], SP[a2, a3], a5, n] - S2[a1, SP[a1, a4], SP[a2, a5], 
     a3, n] - S2[a1, SP[a1, a4], SP[a3, a5], a2, n] - 
    S2[a1, SP[a1, a5], a2, SP[a3, a4], n] + S2[a1, SP[a1, a5], a3, 
     SP[a2, a4], n] - 2*S2[a1, SP[a1, a5], a4, SP[a2, a3], n] - 
    2*S2[a1, SP[a1, a5], SP[a2, a3], a4, n] + S2[a1, SP[a1, a5], SP[a2, a4], 
     a3, n] - S2[a1, SP[a1, a5], SP[a3, a4], a2, n] - 
    S2[a1, a3, n]*S2[a2, a5, a1, a4, n] + S2[a2, a5, SP[a1, a1], SP[a3, a4], 
     n] + S2[a2, SP[a1, a5], a1, SP[a3, a4], n] + 
    S2[a2, SP[a1, a5], SP[a1, a3], a4, n] - S2[SP[a1, a1], a2, a3, 
     SP[a4, a5], n] - S2[SP[a1, a1], a2, a5, SP[a3, a4], n] - 
    S2[SP[a1, a1], a2, SP[a3, a4], a5, n] - S2[SP[a1, a1], a2, SP[a4, a5], 
     a3, n] - S2[SP[a1, a1], a3, a2, SP[a4, a5], n] - 
    S2[SP[a1, a1], a3, a4, SP[a2, a5], n] + S2[SP[a1, a1], a3, a5, 
     SP[a2, a4], n] - S2[SP[a1, a1], a3, SP[a2, a5], a4, n] - 
    S2[SP[a1, a1], a4, a3, SP[a2, a5], n] - 
    2*S2[SP[a1, a1], a4, a5, SP[a2, a3], n] - S2[SP[a1, a1], a4, SP[a2, a3], 
     a5, n] - S2[SP[a1, a1], a4, SP[a2, a5], a3, n] - 
    S2[SP[a1, a1], a4, SP[a3, a5], a2, n] - S2[SP[a1, a1], a5, a2, 
     SP[a3, a4], n] + S2[SP[a1, a1], a5, a3, SP[a2, a4], n] - 
    2*S2[SP[a1, a1], a5, a4, SP[a2, a3], n] - 
    2*S2[SP[a1, a1], a5, SP[a2, a3], a4, n] + S2[SP[a1, a1], a5, SP[a2, a4], 
     a3, n] - S2[SP[a1, a1], a5, SP[a3, a4], a2, n] - 
    S2[SP[a1, a1], SP[a2, a3], a4, a5, n] - S2[SP[a1, a1], SP[a2, a3], a5, 
     a4, n] - S2[SP[a1, a1], SP[a2, a5], a3, a4, n] - 
    S2[SP[a1, a1], SP[a2, a5], a4, a3, n] - S2[SP[a1, a1], SP[a3, a4], a2, 
     a5, n] - S2[SP[a1, a1], SP[a3, a4], a5, a2, n] - 
    S2[SP[a1, a1], SP[a3, a5], a2, a4, n] - S2[SP[a1, a1], SP[a3, a5], a4, 
     a2, n] + S2[SP[a1, a2], a5, a1, SP[a3, a4], n] + 
    S2[SP[a1, a2], a5, SP[a1, a3], a4, n] + S2[SP[a1, a2], SP[a3, a5], a1, 
     a4, n] - 2*S2[a5, n]*S2[a1, a1, a2, a3, a4, n] - 
    2*S2[a5, n]*S2[a1, a1, a2, a4, a3, n] - 
    2*S2[a1, a1, a2, a4, SP[a3, a5], n] + 
    2*S2[a1, a1, a2, a5, SP[a3, a4], n] + 
    2*S2[a1, a1, a2, SP[a3, a4], a5, n] - 
    2*S2[a1, a1, a2, SP[a3, a5], a4, n] - 
    2*S2[a5, n]*S2[a1, a1, a3, a2, a4, n] - 
    2*S2[a5, n]*S2[a1, a1, a3, a4, a2, n] - 
    2*S2[a1, a1, a3, a5, SP[a2, a4], n] - 
    2*S2[a1, a1, a3, SP[a4, a5], a2, n] - 
    2*S2[a5, n]*S2[a1, a1, a4, a2, a3, n] - 
    2*S2[a1, a1, a4, a2, SP[a3, a5], n] - 
    2*S2[a5, n]*S2[a1, a1, a4, a3, a2, n] + 
    4*S2[a1, a1, a4, a5, SP[a2, a3], n] + 
    2*S2[a1, a1, a4, SP[a2, a3], a5, n] + 
    2*S2[a1, a1, a5, a2, SP[a3, a4], n] - 
    2*S2[a1, a1, a5, a3, SP[a2, a4], n] + 
    4*S2[a1, a1, a5, a4, SP[a2, a3], n] + 
    4*S2[a1, a1, a5, SP[a2, a3], a4, n] - 
    2*S2[a1, a1, a5, SP[a2, a4], a3, n] + 
    2*S2[a1, a1, a5, SP[a3, a4], a2, n] + 
    2*S2[a1, a1, SP[a2, a3], a4, a5, n] + 
    2*S2[a1, a1, SP[a2, a3], a5, a4, n] + 
    2*S2[a1, a1, SP[a3, a4], a2, a5, n] + 
    2*S2[a1, a1, SP[a3, a4], a5, a2, n] - 
    2*S2[a1, a1, SP[a4, a5], a2, a3, n] - 
    2*S2[a1, a1, SP[a4, a5], a3, a2, n] - 
    S2[a5, n]*S2[a1, a2, a1, a3, a4, n] - 
    S2[a5, n]*S2[a1, a2, a1, a4, a3, n] - S2[a1, a2, a1, a4, SP[a3, a5], n] + 
    S2[a1, a2, a1, a5, SP[a3, a4], n] + S2[a1, a2, a1, SP[a3, a4], a5, n] - 
    S2[a1, a2, a1, SP[a3, a5], a4, n] - S2[a5, n]*S2[a1, a2, a4, a1, a3, n] - 
    S2[a1, a2, a4, a1, SP[a3, a5], n] - S2[a1, a2, a4, SP[a1, a5], a3, n] + 
    S2[a4, n]*S2[a1, a2, a5, a1, a3, n] - S2[a1, a2, a5, SP[a1, a3], a4, n] + 
    S2[a1, a2, a5, SP[a1, a4], a3, n] + S2[a1, a2, SP[a1, a4], a3, a5, n] + 
    S2[a1, a2, SP[a1, a4], a5, a3, n] - S2[a1, a2, SP[a1, a5], a3, a4, n] - 
    S2[a1, a2, SP[a1, a5], a4, a3, n] - S2[a1, a2, SP[a3, a5], a1, a4, n] - 
    S2[a5, n]*S2[a1, a3, a1, a2, a4, n] - 
    S2[a5, n]*S2[a1, a3, a1, a4, a2, n] - S2[a1, a3, a1, a5, SP[a2, a4], n] - 
    S2[a1, a3, a1, SP[a4, a5], a2, n] + S2[a2, n]*S2[a1, a3, a5, a1, a4, n] - 
    S2[a1, a3, SP[a1, a5], a2, a4, n] - S2[a1, a3, SP[a1, a5], a4, a2, n] + 
    S2[a1, a3, SP[a2, a5], a1, a4, n] - S2[a5, n]*S2[a1, a4, a1, a2, a3, n] - 
    S2[a1, a4, a1, a2, SP[a3, a5], n] - S2[a5, n]*S2[a1, a4, a1, a3, a2, n] + 
    2*S2[a1, a4, a1, a5, SP[a2, a3], n] + S2[a1, a4, a1, SP[a2, a3], a5, n] - 
    S2[a5, n]*S2[a1, a4, a2, a1, a3, n] - S2[a1, a4, a2, a1, SP[a3, a5], n] - 
    S2[a1, a4, a2, SP[a1, a5], a3, n] + S2[a1, a4, a5, a1, SP[a2, a3], n] + 
    S2[a1, a4, a5, SP[a1, a2], a3, n] + S2[a1, a4, SP[a1, a2], a3, a5, n] + 
    S2[a1, a4, SP[a1, a2], a5, a3, n] - S2[a1, a4, SP[a2, a5], a1, a3, n] + 
    S2[a1, a5, a1, a2, SP[a3, a4], n] + S2[a2, n]*S2[a1, a5, a1, a3, a4, n] + 
    S2[a2, n]*S2[a1, a5, a1, a4, a3, n] + 
    3*S2[a1, a5, a1, a4, SP[a2, a3], n] + 
    3*S2[a1, a5, a1, SP[a2, a3], a4, n] + S2[a1, a5, a1, SP[a3, a4], a2, n] - 
    S2[a1, a5, a2, SP[a1, a3], a4, n] + S2[a1, a5, a2, SP[a1, a4], a3, n] + 
    S2[a2, n]*S2[a1, a5, a3, a1, a4, n] + S2[a1, a5, a4, a1, SP[a2, a3], n] + 
    S2[a1, a5, a4, SP[a1, a2], a3, n] + S2[a1, a5, SP[a1, a2], a3, a4, n] + 
    S2[a1, a5, SP[a1, a2], a4, a3, n] + S2[a1, a5, SP[a1, a4], a2, a3, n] + 
    S2[a1, a5, SP[a1, a4], a3, a2, n] + S2[a1, a5, SP[a2, a3], a1, a4, n] + 
    S2[a1, SP[a1, a2], a3, a4, a5, n] + S2[a1, SP[a1, a2], a3, a5, a4, n] + 
    S2[a1, SP[a1, a2], a4, a3, a5, n] + S2[a1, SP[a1, a2], a4, a5, a3, n] + 
    S2[a1, SP[a1, a2], a5, a3, a4, n] + S2[a1, SP[a1, a2], a5, a4, a3, n] + 
    S2[a1, SP[a1, a3], a2, a4, a5, n] + S2[a1, SP[a1, a3], a2, a5, a4, n] + 
    S2[a1, SP[a1, a3], a4, a2, a5, n] + S2[a1, SP[a1, a3], a4, a5, a2, n] + 
    S2[a1, SP[a1, a3], a5, a2, a4, n] + S2[a1, SP[a1, a3], a5, a4, a2, n] + 
    S2[a1, SP[a1, a4], a2, a3, a5, n] + S2[a1, SP[a1, a4], a2, a5, a3, n] + 
    S2[a1, SP[a1, a4], a3, a2, a5, n] + S2[a1, SP[a1, a4], a3, a5, a2, n] + 
    S2[a1, SP[a1, a4], a5, a2, a3, n] + S2[a1, SP[a1, a4], a5, a3, a2, n] - 
    S2[a1, SP[a1, a5], a2, a3, a4, n] - S2[a1, SP[a1, a5], a2, a4, a3, n] - 
    S2[a1, SP[a1, a5], a3, a2, a4, n] - S2[a1, SP[a1, a5], a3, a4, a2, n] - 
    S2[a1, SP[a1, a5], a4, a2, a3, n] - S2[a1, SP[a1, a5], a4, a3, a2, n] + 
    S2[a1, SP[a2, a4], a5, a1, a3, n] + S2[a1, SP[a2, a5], a3, a1, a4, n] - 
    S2[a1, SP[a2, a5], a4, a1, a3, n] - S2[a1, SP[a3, a5], a1, a2, a4, n] - 
    S2[a1, SP[a3, a5], a1, a4, a2, n] - S2[a1, SP[a4, a5], a1, a2, a3, n] - 
    S2[a1, SP[a4, a5], a1, a3, a2, n] - S2[a1, SP[a4, a5], a2, a1, a3, n] - 
    S2[a2, a1, a5, a1, SP[a3, a4], n] - S2[a2, a1, a5, SP[a1, a3], a4, n] - 
    S2[a2, a1, SP[a3, a5], a1, a4, n] - 2*S2[a2, a5, a1, a1, SP[a3, a4], n] - 
    S2[a2, a5, a1, SP[a1, a3], a4, n] - S2[a2, a5, a1, SP[a1, a4], a3, n] - 
    S2[a2, a5, SP[a1, a1], a3, a4, n] - S2[a2, a5, SP[a1, a1], a4, a3, n] - 
    S2[a2, SP[a1, a5], a1, a3, a4, n] - S2[a2, SP[a1, a5], a1, a4, a3, n] - 
    S2[a2, SP[a1, a5], a3, a1, a4, n] + 2*S2[a2, n]*
     S2[a5, a1, a1, a3, a4, n] + 2*S2[a5, a1, a1, a3, SP[a2, a4], n] + 
    2*S2[a2, n]*S2[a5, a1, a1, a4, a3, n] + 
    2*S2[a5, a1, a1, a4, SP[a2, a3], n] + 
    2*S2[a5, a1, a1, SP[a2, a3], a4, n] + 
    2*S2[a5, a1, a1, SP[a2, a4], a3, n] + 
    S2[a2, n]*S2[a5, a1, a3, a1, a4, n] + S2[a5, a1, a3, a1, SP[a2, a4], n] + 
    S2[a5, a1, a3, SP[a1, a2], a4, n] + S2[a2, n]*S2[a5, a1, a4, a1, a3, n] + 
    S2[a5, a1, a4, a1, SP[a2, a3], n] + S2[a5, a1, a4, SP[a1, a2], a3, n] + 
    2*S2[a5, a1, SP[a1, a2], a3, a4, n] + 
    2*S2[a5, a1, SP[a1, a2], a4, a3, n] + S2[a5, a1, SP[a2, a3], a1, a4, n] + 
    S2[a5, a1, SP[a2, a4], a1, a3, n] + 2*S2[a5, SP[a1, a2], a1, a3, a4, n] + 
    2*S2[a5, SP[a1, a2], a1, a4, a3, n] + S2[a5, SP[a1, a2], a3, a1, a4, n] + 
    S2[a5, SP[a1, a2], a4, a1, a3, n] + S2[SP[a1, a1], a2, a3, a4, a5, n] + 
    S2[SP[a1, a1], a2, a3, a5, a4, n] + S2[SP[a1, a1], a2, a4, a3, a5, n] + 
    S2[SP[a1, a1], a2, a4, a5, a3, n] + S2[SP[a1, a1], a2, a5, a3, a4, n] + 
    S2[SP[a1, a1], a2, a5, a4, a3, n] + S2[SP[a1, a1], a3, a2, a4, a5, n] + 
    S2[SP[a1, a1], a3, a2, a5, a4, n] + S2[SP[a1, a1], a3, a4, a2, a5, n] + 
    S2[SP[a1, a1], a3, a4, a5, a2, n] + S2[SP[a1, a1], a3, a5, a2, a4, n] + 
    S2[SP[a1, a1], a3, a5, a4, a2, n] + S2[SP[a1, a1], a4, a2, a3, a5, n] + 
    S2[SP[a1, a1], a4, a2, a5, a3, n] + S2[SP[a1, a1], a4, a3, a2, a5, n] + 
    S2[SP[a1, a1], a4, a3, a5, a2, n] + S2[SP[a1, a1], a4, a5, a2, a3, n] + 
    S2[SP[a1, a1], a4, a5, a3, a2, n] + S2[SP[a1, a1], a5, a2, a3, a4, n] + 
    S2[SP[a1, a1], a5, a2, a4, a3, n] + S2[SP[a1, a1], a5, a3, a2, a4, n] + 
    S2[SP[a1, a1], a5, a3, a4, a2, n] + S2[SP[a1, a1], a5, a4, a2, a3, n] + 
    S2[SP[a1, a1], a5, a4, a3, a2, n] + S2[SP[a1, a4], a2, a5, a1, a3, n] - 
    2*S2[SP[a1, a5], a1, a2, a3, a4, n] - 
    2*S2[SP[a1, a5], a1, a2, a4, a3, n] - 
    2*S2[SP[a1, a5], a1, a3, a2, a4, n] - 
    2*S2[SP[a1, a5], a1, a3, a4, a2, n] - 
    2*S2[SP[a1, a5], a1, a4, a2, a3, n] - 
    2*S2[SP[a1, a5], a1, a4, a3, a2, n] - S2[SP[a1, a5], a2, a1, a3, a4, n] - 
    S2[SP[a1, a5], a2, a1, a4, a3, n] - S2[SP[a1, a5], a2, a4, a1, a3, n] - 
    S2[SP[a1, a5], a3, a1, a2, a4, n] - S2[SP[a1, a5], a3, a1, a4, a2, n] - 
    S2[SP[a1, a5], a4, a1, a2, a3, n] - S2[SP[a1, a5], a4, a1, a3, a2, n] - 
    S2[SP[a1, a5], a4, a2, a1, a3, n] + 2*S2[SP[a2, a5], a1, a1, a3, a4, n] + 
    2*S2[SP[a2, a5], a1, a1, a4, a3, n] + S2[SP[a2, a5], a1, a3, a1, a4, n] + 
    S2[SP[a2, a5], a1, a4, a1, a3, n] - S2[a5, a1, a2, a1, a3, a4, n] - 
    S2[a5, a1, a2, a1, a4, a3, n] - S2[a5, a1, a2, a3, a1, a4, n] - 
    S2[a5, a1, a3, a2, a1, a4, n] - 2*S2[a5, a2, a1, a1, a3, a4, n] - 
    2*S2[a5, a2, a1, a1, a4, a3, n] - S2[a5, a2, a1, a3, a1, a4, n] - 
    S2[a5, a2, a1, a4, a1, a3, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a4_, a1_, a2_, a5_, a3_, a1_, n_] :> 
  -(S2[a1, a2, a4, n]*S2[a1, a3, a5, n]) - S2[a1, a3, a5, n]*
     S2[a1, a4, a2, n] - S2[SP[a1, a1], SP[a2, a3], SP[a4, a5], n] - 
    S2[SP[a1, a1], SP[a3, a4], SP[a2, a5], n] + 
    2*S2[a1, a1, SP[a2, a3], SP[a4, a5], n] + 
    2*S2[a1, a1, SP[a3, a4], SP[a2, a5], n] + 
    S2[a1, a4, n]*S2[a1, a3, a5, a2, n] - S2[a1, a3, SP[a1, a5], SP[a2, a4], 
     n] - S2[a1, a3, n]*S2[a1, a4, a5, a2, n] + S2[a1, a4, SP[a1, a5], 
     SP[a2, a3], n] - S2[a1, a3, n]*S2[a1, a5, a2, a4, n] - 
    S2[a1, a3, n]*S2[a1, a5, a4, a2, n] + S2[a1, a5, SP[a1, a2], SP[a3, a4], 
     n] + S2[a1, a5, SP[a1, a4], SP[a2, a3], n] + S2[a1, SP[a1, a2], a3, 
     SP[a4, a5], n] + S2[a1, SP[a1, a2], SP[a3, a4], a5, n] + 
    S2[a1, SP[a1, a3], a2, SP[a4, a5], n] + S2[a1, SP[a1, a3], a4, 
     SP[a2, a5], n] - S2[a1, SP[a1, a3], a5, SP[a2, a4], n] + 
    S2[a1, SP[a1, a3], SP[a2, a5], a4, n] + S2[a1, SP[a1, a4], a3, 
     SP[a2, a5], n] + S2[a1, SP[a1, a4], a5, SP[a2, a3], n] + 
    S2[a1, SP[a1, a4], SP[a2, a3], a5, n] + S2[a1, SP[a1, a4], SP[a3, a5], 
     a2, n] + S2[a1, SP[a1, a5], a2, SP[a3, a4], n] + 
    S2[a1, SP[a1, a5], a4, SP[a2, a3], n] + S2[a1, SP[a1, a5], SP[a2, a3], 
     a4, n] + S2[a1, SP[a1, a5], SP[a3, a4], a2, n] + 
    S2[a1, a3, n]*S2[a2, a5, a1, a4, n] - S2[a2, a5, SP[a1, a1], SP[a3, a4], 
     n] - S2[a2, SP[a1, a5], a1, SP[a3, a4], n] - 
    S2[a2, SP[a1, a5], SP[a1, a3], a4, n] + S2[SP[a1, a1], a2, a3, 
     SP[a4, a5], n] + S2[SP[a1, a1], a2, SP[a3, a4], a5, n] + 
    S2[SP[a1, a1], a3, a2, SP[a4, a5], n] + S2[SP[a1, a1], a3, a4, 
     SP[a2, a5], n] - S2[SP[a1, a1], a3, a5, SP[a2, a4], n] + 
    S2[SP[a1, a1], a3, SP[a2, a5], a4, n] + S2[SP[a1, a1], a4, a3, 
     SP[a2, a5], n] + S2[SP[a1, a1], a4, a5, SP[a2, a3], n] + 
    S2[SP[a1, a1], a4, SP[a2, a3], a5, n] + S2[SP[a1, a1], a4, SP[a3, a5], 
     a2, n] + S2[SP[a1, a1], a5, a2, SP[a3, a4], n] + 
    S2[SP[a1, a1], a5, a4, SP[a2, a3], n] + S2[SP[a1, a1], a5, SP[a2, a3], 
     a4, n] + S2[SP[a1, a1], a5, SP[a3, a4], a2, n] + 
    S2[SP[a1, a1], SP[a2, a3], a4, a5, n] + S2[SP[a1, a1], SP[a2, a3], a5, 
     a4, n] + S2[SP[a1, a1], SP[a3, a4], a2, a5, n] + 
    S2[SP[a1, a1], SP[a3, a4], a5, a2, n] + S2[SP[a1, a1], SP[a3, a5], a2, 
     a4, n] + S2[SP[a1, a1], SP[a3, a5], a4, a2, n] - 
    S2[SP[a1, a2], a5, a1, SP[a3, a4], n] - S2[SP[a1, a2], a5, SP[a1, a3], 
     a4, n] - S2[SP[a1, a2], SP[a3, a5], a1, a4, n] + 
    2*S2[a5, n]*S2[a1, a1, a2, a3, a4, n] + 
    2*S2[a5, n]*S2[a1, a1, a2, a4, a3, n] + 
    2*S2[a1, a1, a2, a4, SP[a3, a5], n] - 
    2*S2[a4, n]*S2[a1, a1, a2, a5, a3, n] - 
    2*S2[a1, a1, a2, a5, SP[a3, a4], n] - 
    2*S2[a1, a1, a2, SP[a3, a4], a5, n] + 
    2*S2[a1, a1, a2, SP[a3, a5], a4, n] + 
    2*S2[a5, n]*S2[a1, a1, a3, a2, a4, n] + 
    2*S2[a5, n]*S2[a1, a1, a3, a4, a2, n] + 
    2*S2[a1, a1, a3, a5, SP[a2, a4], n] + 
    2*S2[a1, a1, a3, SP[a4, a5], a2, n] + 
    2*S2[a5, n]*S2[a1, a1, a4, a2, a3, n] + 
    2*S2[a1, a1, a4, a2, SP[a3, a5], n] + 
    2*S2[a5, n]*S2[a1, a1, a4, a3, a2, n] - 
    2*S2[a1, a1, a4, a5, SP[a2, a3], n] - 
    2*S2[a1, a1, a4, SP[a2, a3], a5, n] + 
    2*S2[a1, a1, a4, SP[a2, a5], a3, n] - 
    2*S2[a1, a1, a5, a2, SP[a3, a4], n] - 
    2*S2[a1, a1, a5, a4, SP[a2, a3], n] - 
    2*S2[a1, a1, a5, SP[a2, a3], a4, n] - 
    2*S2[a1, a1, a5, SP[a3, a4], a2, n] - 
    2*S2[a1, a1, SP[a2, a3], a4, a5, n] - 
    2*S2[a1, a1, SP[a2, a3], a5, a4, n] - 
    2*S2[a1, a1, SP[a2, a4], a5, a3, n] + 
    2*S2[a1, a1, SP[a2, a5], a3, a4, n] + 
    2*S2[a1, a1, SP[a2, a5], a4, a3, n] - 
    2*S2[a1, a1, SP[a3, a4], a2, a5, n] - 
    2*S2[a1, a1, SP[a3, a4], a5, a2, n] + 
    2*S2[a1, a1, SP[a4, a5], a2, a3, n] + 
    2*S2[a1, a1, SP[a4, a5], a3, a2, n] + 
    S2[a5, n]*S2[a1, a2, a1, a3, a4, n] + 
    S2[a5, n]*S2[a1, a2, a1, a4, a3, n] + S2[a1, a2, a1, a4, SP[a3, a5], n] - 
    S2[a4, n]*S2[a1, a2, a1, a5, a3, n] - S2[a1, a2, a1, a5, SP[a3, a4], n] - 
    S2[a1, a2, a1, SP[a3, a4], a5, n] + S2[a1, a2, a1, SP[a3, a5], a4, n] + 
    S2[a5, n]*S2[a1, a2, a4, a1, a3, n] + S2[a1, a2, a4, a1, SP[a3, a5], n] + 
    S2[a1, a2, a4, SP[a1, a5], a3, n] - S2[a4, n]*S2[a1, a2, a5, a1, a3, n] + 
    S2[a1, a2, a5, SP[a1, a3], a4, n] - S2[a1, a2, a5, SP[a1, a4], a3, n] - 
    S2[a1, a2, SP[a1, a4], a3, a5, n] - S2[a1, a2, SP[a1, a4], a5, a3, n] + 
    S2[a1, a2, SP[a1, a5], a3, a4, n] + S2[a1, a2, SP[a1, a5], a4, a3, n] + 
    S2[a1, a2, SP[a3, a5], a1, a4, n] + S2[a5, n]*S2[a1, a3, a1, a2, a4, n] + 
    S2[a5, n]*S2[a1, a3, a1, a4, a2, n] + S2[a1, a3, a1, a5, SP[a2, a4], n] + 
    S2[a1, a3, a1, SP[a4, a5], a2, n] - S2[a2, n]*S2[a1, a3, a5, a1, a4, n] + 
    S2[a1, a3, SP[a1, a5], a2, a4, n] + S2[a1, a3, SP[a1, a5], a4, a2, n] - 
    S2[a1, a3, SP[a2, a5], a1, a4, n] + S2[a5, n]*S2[a1, a4, a1, a2, a3, n] + 
    S2[a1, a4, a1, a2, SP[a3, a5], n] + S2[a5, n]*S2[a1, a4, a1, a3, a2, n] - 
    S2[a1, a4, a1, a5, SP[a2, a3], n] - S2[a1, a4, a1, SP[a2, a3], a5, n] + 
    S2[a1, a4, a1, SP[a2, a5], a3, n] + S2[a5, n]*S2[a1, a4, a2, a1, a3, n] + 
    S2[a1, a4, a2, a1, SP[a3, a5], n] + S2[a1, a4, a2, SP[a1, a5], a3, n] - 
    S2[a1, a4, a5, a1, SP[a2, a3], n] - S2[a1, a4, a5, SP[a1, a2], a3, n] - 
    S2[a1, a4, SP[a1, a2], a3, a5, n] + S2[a1, a4, SP[a2, a5], a1, a3, n] - 
    S2[a1, a5, a1, a2, SP[a3, a4], n] - S2[a2, n]*S2[a1, a5, a1, a3, a4, n] - 
    S2[a1, a5, a1, a3, SP[a2, a4], n] - S2[a2, n]*S2[a1, a5, a1, a4, a3, n] - 
    2*S2[a1, a5, a1, a4, SP[a2, a3], n] - 
    2*S2[a1, a5, a1, SP[a2, a3], a4, n] - S2[a1, a5, a1, SP[a2, a4], a3, n] - 
    S2[a1, a5, a1, SP[a3, a4], a2, n] - S2[a1, a5, a2, a1, SP[a3, a4], n] - 
    S2[a1, a5, a2, SP[a1, a4], a3, n] - S2[a2, n]*S2[a1, a5, a3, a1, a4, n] - 
    S2[a1, a5, a3, a1, SP[a2, a4], n] - S2[a1, a5, a3, SP[a1, a2], a4, n] - 
    S2[a1, a5, a4, a1, SP[a2, a3], n] - S2[a1, a5, a4, SP[a1, a2], a3, n] - 
    2*S2[a1, a5, SP[a1, a2], a3, a4, n] - 
    2*S2[a1, a5, SP[a1, a2], a4, a3, n] - S2[a1, a5, SP[a1, a4], a2, a3, n] - 
    S2[a1, a5, SP[a1, a4], a3, a2, n] - S2[a1, a5, SP[a2, a3], a1, a4, n] - 
    S2[a1, SP[a1, a2], a3, a4, a5, n] - S2[a1, SP[a1, a2], a3, a5, a4, n] - 
    S2[a1, SP[a1, a2], a4, a3, a5, n] - S2[a1, SP[a1, a3], a2, a4, a5, n] - 
    S2[a1, SP[a1, a3], a2, a5, a4, n] - S2[a1, SP[a1, a3], a4, a2, a5, n] - 
    S2[a1, SP[a1, a3], a4, a5, a2, n] - S2[a1, SP[a1, a3], a5, a2, a4, n] - 
    S2[a1, SP[a1, a3], a5, a4, a2, n] - S2[a1, SP[a1, a4], a2, a3, a5, n] - 
    2*S2[a1, SP[a1, a4], a2, a5, a3, n] - S2[a1, SP[a1, a4], a3, a2, a5, n] - 
    S2[a1, SP[a1, a4], a3, a5, a2, n] - S2[a1, SP[a1, a4], a5, a2, a3, n] - 
    S2[a1, SP[a1, a4], a5, a3, a2, n] + S2[a1, SP[a1, a5], a2, a3, a4, n] + 
    S2[a1, SP[a1, a5], a2, a4, a3, n] + S2[a1, SP[a1, a5], a3, a2, a4, n] + 
    S2[a1, SP[a1, a5], a3, a4, a2, n] + S2[a1, SP[a1, a5], a4, a2, a3, n] + 
    S2[a1, SP[a1, a5], a4, a3, a2, n] - S2[a1, SP[a2, a4], a1, a5, a3, n] - 
    S2[a1, SP[a2, a4], a5, a1, a3, n] - S2[a1, SP[a2, a5], a3, a1, a4, n] + 
    S2[a1, SP[a2, a5], a4, a1, a3, n] + S2[a1, SP[a3, a5], a1, a2, a4, n] + 
    S2[a1, SP[a3, a5], a1, a4, a2, n] + S2[a1, SP[a4, a5], a1, a2, a3, n] + 
    S2[a1, SP[a4, a5], a1, a3, a2, n] + S2[a1, SP[a4, a5], a2, a1, a3, n] + 
    S2[a2, a1, a5, a1, SP[a3, a4], n] + S2[a2, a1, a5, SP[a1, a3], a4, n] + 
    S2[a2, a1, SP[a3, a5], a1, a4, n] + 2*S2[a2, a5, a1, a1, SP[a3, a4], n] + 
    S2[a2, a5, a1, SP[a1, a3], a4, n] + S2[a2, a5, a1, SP[a1, a4], a3, n] + 
    S2[a2, a5, SP[a1, a1], a3, a4, n] + S2[a2, a5, SP[a1, a1], a4, a3, n] + 
    S2[a2, SP[a1, a5], a1, a3, a4, n] + S2[a2, SP[a1, a5], a1, a4, a3, n] + 
    S2[a2, SP[a1, a5], a3, a1, a4, n] + S2[a1, n]*S2[a4, a1, a2, a5, a3, n] + 
    S2[a4, a1, a2, a5, SP[a1, a3], n] + S2[a4, a1, a2, SP[a1, a5], a3, n] + 
    S2[a4, a1, SP[a1, a2], a5, a3, n] + S2[a4, SP[a1, a1], a2, a5, a3, n] - 
    2*S2[a2, n]*S2[a5, a1, a1, a3, a4, n] - 
    2*S2[a5, a1, a1, a3, SP[a2, a4], n] - 
    2*S2[a2, n]*S2[a5, a1, a1, a4, a3, n] - 
    2*S2[a5, a1, a1, a4, SP[a2, a3], n] - 
    2*S2[a5, a1, a1, SP[a2, a3], a4, n] - 
    2*S2[a5, a1, a1, SP[a2, a4], a3, n] - 
    S2[a2, n]*S2[a5, a1, a3, a1, a4, n] - S2[a5, a1, a3, a1, SP[a2, a4], n] - 
    S2[a5, a1, a3, SP[a1, a2], a4, n] - S2[a2, n]*S2[a5, a1, a4, a1, a3, n] - 
    S2[a5, a1, a4, a1, SP[a2, a3], n] - S2[a5, a1, a4, SP[a1, a2], a3, n] - 
    2*S2[a5, a1, SP[a1, a2], a3, a4, n] - 
    2*S2[a5, a1, SP[a1, a2], a4, a3, n] - S2[a5, a1, SP[a2, a3], a1, a4, n] - 
    S2[a5, a1, SP[a2, a4], a1, a3, n] + S2[a1, n]*S2[a5, a2, a1, a3, a4, n] + 
    S2[a5, a2, a1, a3, SP[a1, a4], n] + S2[a1, n]*S2[a5, a2, a1, a4, a3, n] + 
    S2[a5, a2, a1, a4, SP[a1, a3], n] + S2[a5, a2, a1, SP[a1, a3], a4, n] + 
    S2[a5, a2, a1, SP[a1, a4], a3, n] + S2[a1, n]*S2[a5, a2, a3, a1, a4, n] + 
    S2[a5, a2, a3, a1, SP[a1, a4], n] + S2[a5, a2, a3, SP[a1, a1], a4, n] + 
    S2[a5, a2, SP[a1, a1], a3, a4, n] + S2[a5, a2, SP[a1, a1], a4, a3, n] + 
    S2[a5, a2, SP[a1, a3], a1, a4, n] + S2[a1, n]*S2[a5, a3, a2, a1, a4, n] + 
    S2[a5, a3, a2, a1, SP[a1, a4], n] + S2[a5, a3, a2, SP[a1, a1], a4, n] + 
    S2[a5, a3, SP[a1, a2], a1, a4, n] - S2[a5, SP[a1, a2], a1, a3, a4, n] - 
    S2[a5, SP[a1, a2], a1, a4, a3, n] - S2[a5, SP[a1, a2], a4, a1, a3, n] + 
    S2[a5, SP[a1, a3], a2, a1, a4, n] - S2[SP[a1, a1], a2, a3, a4, a5, n] - 
    S2[SP[a1, a1], a2, a3, a5, a4, n] - S2[SP[a1, a1], a2, a4, a3, a5, n] - 
    S2[SP[a1, a1], a3, a2, a4, a5, n] - S2[SP[a1, a1], a3, a2, a5, a4, n] - 
    S2[SP[a1, a1], a3, a4, a2, a5, n] - S2[SP[a1, a1], a3, a4, a5, a2, n] - 
    S2[SP[a1, a1], a3, a5, a2, a4, n] - S2[SP[a1, a1], a3, a5, a4, a2, n] - 
    S2[SP[a1, a1], a4, a2, a3, a5, n] - S2[SP[a1, a1], a4, a3, a2, a5, n] - 
    S2[SP[a1, a1], a4, a3, a5, a2, n] - S2[SP[a1, a1], a4, a5, a2, a3, n] - 
    S2[SP[a1, a1], a4, a5, a3, a2, n] - S2[SP[a1, a1], a5, a2, a3, a4, n] - 
    S2[SP[a1, a1], a5, a2, a4, a3, n] - S2[SP[a1, a1], a5, a3, a2, a4, n] - 
    S2[SP[a1, a1], a5, a3, a4, a2, n] - S2[SP[a1, a1], a5, a4, a2, a3, n] - 
    S2[SP[a1, a1], a5, a4, a3, a2, n] - S2[SP[a1, a4], a1, a2, a5, a3, n] - 
    S2[SP[a1, a4], a2, a1, a5, a3, n] - S2[SP[a1, a4], a2, a5, a1, a3, n] + 
    2*S2[SP[a1, a5], a1, a2, a3, a4, n] + 
    2*S2[SP[a1, a5], a1, a2, a4, a3, n] + 
    2*S2[SP[a1, a5], a1, a3, a2, a4, n] + 
    2*S2[SP[a1, a5], a1, a3, a4, a2, n] + 
    2*S2[SP[a1, a5], a1, a4, a2, a3, n] + 
    2*S2[SP[a1, a5], a1, a4, a3, a2, n] + 
    2*S2[SP[a1, a5], a2, a1, a3, a4, n] + 
    2*S2[SP[a1, a5], a2, a1, a4, a3, n] + S2[SP[a1, a5], a2, a3, a1, a4, n] + 
    S2[SP[a1, a5], a2, a4, a1, a3, n] + S2[SP[a1, a5], a3, a1, a2, a4, n] + 
    S2[SP[a1, a5], a3, a1, a4, a2, n] + S2[SP[a1, a5], a3, a2, a1, a4, n] + 
    S2[SP[a1, a5], a4, a1, a2, a3, n] + S2[SP[a1, a5], a4, a1, a3, a2, n] + 
    S2[SP[a1, a5], a4, a2, a1, a3, n] - 2*S2[SP[a2, a5], a1, a1, a3, a4, n] - 
    2*S2[SP[a2, a5], a1, a1, a4, a3, n] - S2[SP[a2, a5], a1, a3, a1, a4, n] - 
    S2[SP[a2, a5], a1, a4, a1, a3, n] - S2[a5, a2, a1, a3, a1, a4, n] - 
    S2[a5, a2, a1, a3, a4, a1, n] - S2[a5, a2, a1, a4, a3, a1, n] - 
    2*S2[a5, a2, a3, a1, a1, a4, n] - S2[a5, a2, a3, a1, a4, a1, n] - 
    S2[a5, a3, a1, a2, a1, a4, n] - 2*S2[a5, a3, a2, a1, a1, a4, n] - 
    S2[a5, a3, a2, a1, a4, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a4_, a1_, a3_, a1_, a2_, a5_, n_] :> 
  -(S2[a1, a2, a5, n]*S2[a1, a3, a4, n]) - S2[a1, a2, a5, n]*
     S2[a1, a4, a3, n] - S2[SP[a1, a1], SP[a2, a3], SP[a4, a5], n] - 
    S2[SP[a1, a1], SP[a2, a4], SP[a3, a5], n] + 
    2*S2[a1, a1, SP[a2, a3], SP[a4, a5], n] + 
    2*S2[a1, a1, SP[a2, a4], SP[a3, a5], n] + 
    S2[a1, a4, n]*S2[a1, a2, a3, a5, n] + S2[a1, a4, n]*
     S2[a1, a2, a5, a3, n] - S2[a1, a2, SP[a1, a3], SP[a4, a5], n] - 
    S2[a1, a2, SP[a1, a5], SP[a3, a4], n] - S2[a2, a5, n]*
     S2[a1, a3, a1, a4, n] + S2[a1, a4, n]*S2[a1, a3, a2, a5, n] + 
    S2[a1, SP[a1, a2], a4, SP[a3, a5], n] - S2[a1, SP[a1, a2], a5, 
     SP[a3, a4], n] - S2[a1, SP[a1, a2], SP[a3, a4], a5, n] + 
    S2[a1, SP[a1, a2], SP[a3, a5], a4, n] + S2[a1, SP[a1, a4], a2, 
     SP[a3, a5], n] + S2[a1, SP[a1, a4], SP[a2, a3], a5, n] + 
    S2[a1, SP[a2, a3], a1, SP[a4, a5], n] + S2[a1, SP[a2, a3], SP[a1, a5], 
     a4, n] + S2[SP[a1, a1], a2, a4, SP[a3, a5], n] - 
    S2[SP[a1, a1], a2, a5, SP[a3, a4], n] - S2[SP[a1, a1], a2, SP[a3, a4], 
     a5, n] + S2[SP[a1, a1], a2, SP[a3, a5], a4, n] + 
    S2[SP[a1, a1], a4, a2, SP[a3, a5], n] + S2[SP[a1, a1], a4, SP[a2, a3], 
     a5, n] + S2[SP[a1, a1], SP[a2, a3], a4, a5, n] + 
    S2[SP[a1, a1], SP[a2, a3], a5, a4, n] - S2[SP[a1, a1], SP[a3, a4], a2, 
     a5, n] + S2[SP[a1, a2], a3, a1, SP[a4, a5], n] + 
    S2[SP[a1, a2], a3, SP[a1, a5], a4, n] + S2[SP[a1, a2], SP[a3, a5], a1, 
     a4, n] - 2*S2[a1, a1, a2, a4, SP[a3, a5], n] + 
    2*S2[a1, a1, a2, a5, SP[a3, a4], n] + 
    2*S2[a1, a1, a2, SP[a3, a4], a5, n] - 
    2*S2[a1, a1, a2, SP[a3, a5], a4, n] - 
    2*S2[a1, a1, a4, a2, SP[a3, a5], n] - 
    2*S2[a1, a1, a4, SP[a2, a3], a5, n] - 
    2*S2[a1, a1, SP[a2, a3], a4, a5, n] - 
    2*S2[a1, a1, SP[a2, a3], a5, a4, n] + 
    2*S2[a1, a1, SP[a3, a4], a2, a5, n] - S2[a1, a2, a1, a4, SP[a3, a5], n] + 
    S2[a1, a2, a1, a5, SP[a3, a4], n] + S2[a1, a2, a1, SP[a3, a4], a5, n] - 
    S2[a1, a2, a1, SP[a3, a5], a4, n] - S2[a5, n]*S2[a1, a2, a3, a1, a4, n] - 
    S2[a1, a2, a3, a1, SP[a4, a5], n] - S2[a1, a2, a3, SP[a1, a5], a4, n] + 
    S2[a1, a2, a5, a1, SP[a3, a4], n] + S2[a1, a2, a5, SP[a1, a3], a4, n] + 
    S2[a1, a2, SP[a1, a3], a4, a5, n] + S2[a1, a2, SP[a1, a3], a5, a4, n] - 
    2*S2[a1, a2, SP[a3, a5], a1, a4, n] - 
    S2[a5, n]*S2[a1, a3, a1, a2, a4, n] + 
    S2[a4, n]*S2[a1, a3, a1, a2, a5, n] - S2[a1, a3, a1, a2, SP[a4, a5], n] - 
    S2[a5, n]*S2[a1, a3, a1, a4, a2, n] + 
    S2[a2, n]*S2[a1, a3, a1, a4, a5, n] + 
    S2[a2, n]*S2[a1, a3, a1, a5, a4, n] + S2[a1, a3, a1, a5, SP[a2, a4], n] + 
    S2[a1, a3, a1, SP[a2, a4], a5, n] - S2[a1, a3, a1, SP[a4, a5], a2, n] - 
    S2[a5, n]*S2[a1, a3, a2, a1, a4, n] - S2[a1, a3, a2, a1, SP[a4, a5], n] - 
    S2[a1, a3, a2, SP[a1, a5], a4, n] + S2[a2, n]*S2[a1, a3, a5, a1, a4, n] + 
    S2[a1, a3, a5, a1, SP[a2, a4], n] + S2[a1, a3, a5, SP[a1, a2], a4, n] + 
    S2[a1, a3, SP[a1, a2], a4, a5, n] + S2[a1, a3, SP[a1, a2], a5, a4, n] - 
    S2[a1, a3, SP[a1, a5], a2, a4, n] - S2[a1, a3, SP[a1, a5], a4, a2, n] - 
    S2[a1, a4, a1, a2, SP[a3, a5], n] - S2[a1, a4, a1, SP[a2, a3], a5, n] - 
    S2[a1, a4, SP[a1, a3], a2, a5, n] + S2[a2, n]*S2[a1, a5, a3, a1, a4, n] + 
    S2[a1, a5, a3, a1, SP[a2, a4], n] + S2[a1, a5, a3, SP[a1, a2], a4, n] + 
    S2[a1, a5, SP[a2, a3], a1, a4, n] + S2[a1, SP[a3, a4], a1, a2, a5, n] - 
    S2[a1, SP[a3, a5], a1, a2, a4, n] - S2[a1, SP[a3, a5], a1, a4, a2, n] - 
    S2[a1, SP[a3, a5], a2, a1, a4, n] - S2[a2, a1, a3, a1, SP[a4, a5], n] - 
    S2[a2, a1, a3, SP[a1, a5], a4, n] - S2[a2, a1, SP[a3, a5], a1, a4, n] - 
    S2[a2, SP[a1, a5], a3, a1, a4, n] + S2[a2, n]*S2[a5, a1, a3, a1, a4, n] + 
    S2[a5, a1, a3, a1, SP[a2, a4], n] + S2[a5, a1, a3, SP[a1, a2], a4, n] + 
    S2[a5, a1, SP[a2, a3], a1, a4, n] + S2[a5, SP[a1, a2], a3, a1, a4, n] + 
    S2[SP[a1, a4], a3, a1, a2, a5, n] - S2[SP[a1, a5], a2, a3, a1, a4, n] - 
    S2[SP[a1, a5], a3, a1, a2, a4, n] - S2[SP[a1, a5], a3, a1, a4, a2, n] - 
    S2[SP[a1, a5], a3, a2, a1, a4, n] + S2[SP[a2, a5], a1, a3, a1, a4, n] - 
    S2[a5, a2, a1, a3, a1, a4, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a4_, a1_, a3_, a1_, a5_, a2_, n_] :> 
  -(S2[a1, a3, a4, n]*S2[a1, a5, a2, n]) - S2[a1, a4, a3, n]*
     S2[a1, a5, a2, n] - S2[SP[a1, a1], SP[a3, a5], SP[a2, a4], n] - 
    S2[SP[a1, a1], SP[a4, a5], SP[a2, a3], n] + 
    2*S2[a1, a1, SP[a3, a5], SP[a2, a4], n] + 
    2*S2[a1, a1, SP[a4, a5], SP[a2, a3], n] + 
    S2[a2, a5, n]*S2[a1, a3, a1, a4, n] + S2[a1, a4, n]*
     S2[a1, a3, a5, a2, n] - S2[a1, a3, SP[a1, a2], SP[a4, a5], n] - 
    S2[a1, a3, SP[a1, a5], SP[a2, a4], n] + S2[a1, a4, n]*
     S2[a1, a5, a2, a3, n] + S2[a1, a4, n]*S2[a1, a5, a3, a2, n] - 
    S2[a1, a5, SP[a1, a2], SP[a3, a4], n] - S2[a1, a5, SP[a1, a3], 
     SP[a2, a4], n] + S2[a1, SP[a1, a4], a5, SP[a2, a3], n] + 
    S2[a1, SP[a1, a4], SP[a3, a5], a2, n] - S2[a1, SP[a1, a5], a2, 
     SP[a3, a4], n] + S2[a1, SP[a1, a5], a4, SP[a2, a3], n] + 
    S2[a1, SP[a1, a5], SP[a2, a3], a4, n] - S2[a1, SP[a1, a5], SP[a3, a4], 
     a2, n] - S2[a1, SP[a2, a3], a1, SP[a4, a5], n] - 
    S2[a1, SP[a2, a3], SP[a1, a5], a4, n] + S2[SP[a1, a1], a4, a5, 
     SP[a2, a3], n] + S2[SP[a1, a1], a4, SP[a3, a5], a2, n] - 
    S2[SP[a1, a1], a5, a2, SP[a3, a4], n] + S2[SP[a1, a1], a5, a4, 
     SP[a2, a3], n] + S2[SP[a1, a1], a5, SP[a2, a3], a4, n] - 
    S2[SP[a1, a1], a5, SP[a3, a4], a2, n] - S2[SP[a1, a1], SP[a3, a4], a5, 
     a2, n] + S2[SP[a1, a1], SP[a3, a5], a2, a4, n] + 
    S2[SP[a1, a1], SP[a3, a5], a4, a2, n] - S2[SP[a1, a2], a3, a1, 
     SP[a4, a5], n] - S2[SP[a1, a2], a3, SP[a1, a5], a4, n] - 
    S2[SP[a1, a2], SP[a3, a5], a1, a4, n] - 
    2*S2[a1, a1, a4, a5, SP[a2, a3], n] - 
    2*S2[a1, a1, a4, SP[a3, a5], a2, n] + 
    2*S2[a1, a1, a5, a2, SP[a3, a4], n] - 
    2*S2[a1, a1, a5, a4, SP[a2, a3], n] - 
    2*S2[a1, a1, a5, SP[a2, a3], a4, n] + 
    2*S2[a1, a1, a5, SP[a3, a4], a2, n] + 
    2*S2[a1, a1, SP[a3, a4], a5, a2, n] - 
    2*S2[a1, a1, SP[a3, a5], a2, a4, n] - 
    2*S2[a1, a1, SP[a3, a5], a4, a2, n] + S2[a1, a2, a3, a1, SP[a4, a5], n] + 
    S2[a1, a2, a3, SP[a1, a5], a4, n] + S2[a1, a2, SP[a3, a5], a1, a4, n] + 
    S2[a1, a3, a1, a2, SP[a4, a5], n] - S2[a2, n]*S2[a1, a3, a1, a4, a5, n] - 
    S2[a1, a3, a1, a4, SP[a2, a5], n] + S2[a4, n]*S2[a1, a3, a1, a5, a2, n] - 
    S2[a2, n]*S2[a1, a3, a1, a5, a4, n] - S2[a1, a3, a1, SP[a2, a5], a4, n] + 
    S2[a1, a3, a1, SP[a4, a5], a2, n] + S2[a1, a3, a2, a1, SP[a4, a5], n] + 
    S2[a1, a3, a2, SP[a1, a5], a4, n] - S2[a2, n]*S2[a1, a3, a5, a1, a4, n] + 
    S2[a1, a3, SP[a1, a5], a2, a4, n] + S2[a1, a3, SP[a1, a5], a4, a2, n] - 
    S2[a1, a3, SP[a2, a5], a1, a4, n] - S2[a1, a4, a1, a5, SP[a2, a3], n] - 
    S2[a1, a4, a1, SP[a3, a5], a2, n] - S2[a1, a4, SP[a1, a3], a5, a2, n] + 
    S2[a1, a5, a1, a2, SP[a3, a4], n] - S2[a1, a5, a1, a4, SP[a2, a3], n] - 
    S2[a1, a5, a1, SP[a2, a3], a4, n] + S2[a1, a5, a1, SP[a3, a4], a2, n] + 
    S2[a1, a5, a2, a1, SP[a3, a4], n] + S2[a1, a5, a2, SP[a1, a3], a4, n] - 
    S2[a2, n]*S2[a1, a5, a3, a1, a4, n] + S2[a1, a5, SP[a1, a3], a2, a4, n] + 
    S2[a1, a5, SP[a1, a3], a4, a2, n] - S2[a1, a5, SP[a2, a3], a1, a4, n] - 
    S2[a1, SP[a2, a5], a3, a1, a4, n] + S2[a1, SP[a3, a4], a1, a5, a2, n] + 
    S2[a2, a1, a3, a1, SP[a4, a5], n] + S2[a2, a1, a3, SP[a1, a5], a4, n] + 
    S2[a2, a1, SP[a3, a5], a1, a4, n] + S2[a2, SP[a1, a5], a3, a1, a4, n] - 
    S2[a2, n]*S2[a5, a1, a3, a1, a4, n] - S2[a5, a1, a3, a1, SP[a2, a4], n] - 
    S2[a5, a1, a3, SP[a1, a2], a4, n] - S2[a5, a1, SP[a2, a3], a1, a4, n] - 
    S2[a5, SP[a1, a2], a3, a1, a4, n] + S2[SP[a1, a4], a3, a1, a5, a2, n] - 
    S2[SP[a2, a5], a1, a3, a1, a4, n] + S2[a5, a1, a2, a3, a1, a4, n] + 
    S2[a5, a1, a3, a1, a2, a4, n] + S2[a5, a1, a3, a1, a4, a2, n] + 
    S2[a5, a1, a3, a2, a1, a4, n] + S2[a5, a2, a1, a3, a1, a4, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a4_, a1_, a3_, a2_, a1_, a5_, n_] :> 
  S2[a1, a2, a5, n]*S2[a1, a3, a4, n] + S2[a1, a2, a5, n]*S2[a1, a4, a3, n] + 
    S2[a1, a3, a4, n]*S2[a1, a5, a2, n] + S2[a1, a4, a3, n]*
     S2[a1, a5, a2, n] + S2[SP[a1, a1], SP[a2, a3], SP[a4, a5], n] + 
    S2[SP[a1, a1], SP[a2, a4], SP[a3, a5], n] + S2[SP[a1, a1], SP[a3, a5], 
     SP[a2, a4], n] + S2[SP[a1, a1], SP[a4, a5], SP[a2, a3], n] - 
    2*S2[a1, a1, SP[a2, a3], SP[a4, a5], n] - 
    2*S2[a1, a1, SP[a2, a4], SP[a3, a5], n] - 
    2*S2[a1, a1, SP[a3, a5], SP[a2, a4], n] - 
    2*S2[a1, a1, SP[a4, a5], SP[a2, a3], n] - 
    S2[a1, a4, n]*S2[a1, a2, a3, a5, n] - S2[a1, a4, n]*
     S2[a1, a2, a5, a3, n] + S2[a1, a2, SP[a1, a3], SP[a4, a5], n] + 
    S2[a1, a2, SP[a1, a5], SP[a3, a4], n] - S2[a1, a5, n]*
     S2[a1, a3, a2, a4, n] - S2[a1, a5, n]*S2[a1, a3, a4, a2, n] + 
    S2[a1, a3, SP[a1, a2], SP[a4, a5], n] + S2[a1, a3, SP[a1, a4], 
     SP[a2, a5], n] - S2[a1, a5, n]*S2[a1, a4, a3, a2, n] + 
    S2[a1, a4, SP[a1, a3], SP[a2, a5], n] - S2[a1, a4, n]*
     S2[a1, a5, a2, a3, n] + S2[a1, a5, SP[a1, a2], SP[a3, a4], n] - 
    S2[a1, SP[a1, a2], a4, SP[a3, a5], n] + S2[a1, SP[a1, a2], a5, 
     SP[a3, a4], n] + S2[a1, SP[a1, a2], SP[a3, a4], a5, n] - 
    S2[a1, SP[a1, a2], SP[a3, a5], a4, n] + S2[a1, SP[a1, a3], a4, 
     SP[a2, a5], n] - S2[a1, SP[a1, a3], a5, SP[a2, a4], n] - 
    S2[a1, SP[a1, a3], SP[a2, a4], a5, n] + S2[a1, SP[a1, a3], SP[a2, a5], 
     a4, n] - S2[a1, SP[a1, a4], a2, SP[a3, a5], n] + 
    S2[a1, SP[a1, a4], a3, SP[a2, a5], n] - S2[a1, SP[a1, a4], a5, 
     SP[a2, a3], n] - S2[a1, SP[a1, a4], SP[a2, a3], a5, n] + 
    S2[a1, SP[a1, a5], a2, SP[a3, a4], n] - S2[a1, SP[a1, a5], a3, 
     SP[a2, a4], n] - S2[a1, SP[a1, a5], a4, SP[a2, a3], n] - 
    S2[a1, SP[a1, a5], SP[a2, a3], a4, n] - S2[SP[a1, a1], a2, a4, 
     SP[a3, a5], n] + S2[SP[a1, a1], a2, a5, SP[a3, a4], n] + 
    S2[SP[a1, a1], a2, SP[a3, a4], a5, n] - S2[SP[a1, a1], a2, SP[a3, a5], 
     a4, n] + S2[SP[a1, a1], a3, a4, SP[a2, a5], n] - 
    S2[SP[a1, a1], a3, a5, SP[a2, a4], n] - S2[SP[a1, a1], a3, SP[a2, a4], 
     a5, n] + S2[SP[a1, a1], a3, SP[a2, a5], a4, n] - 
    S2[SP[a1, a1], a4, a2, SP[a3, a5], n] + S2[SP[a1, a1], a4, a3, 
     SP[a2, a5], n] - S2[SP[a1, a1], a4, a5, SP[a2, a3], n] - 
    S2[SP[a1, a1], a4, SP[a2, a3], a5, n] + S2[SP[a1, a1], a5, a2, 
     SP[a3, a4], n] - S2[SP[a1, a1], a5, a3, SP[a2, a4], n] - 
    S2[SP[a1, a1], a5, a4, SP[a2, a3], n] - S2[SP[a1, a1], a5, SP[a2, a3], 
     a4, n] - S2[SP[a1, a1], SP[a2, a3], a4, a5, n] - 
    S2[SP[a1, a1], SP[a2, a3], a5, a4, n] + 
    2*S2[a1, a1, a2, a4, SP[a3, a5], n] - 
    2*S2[a1, a1, a2, a5, SP[a3, a4], n] - 
    2*S2[a1, a1, a2, SP[a3, a4], a5, n] + 
    2*S2[a1, a1, a2, SP[a3, a5], a4, n] - 
    2*S2[a1, a1, a3, a4, SP[a2, a5], n] + 
    2*S2[a1, a1, a3, a5, SP[a2, a4], n] + 
    2*S2[a1, a1, a3, SP[a2, a4], a5, n] - 
    2*S2[a1, a1, a3, SP[a2, a5], a4, n] + 
    2*S2[a1, a1, a4, a2, SP[a3, a5], n] - 
    2*S2[a1, a1, a4, a3, SP[a2, a5], n] + 
    2*S2[a1, a1, a4, a5, SP[a2, a3], n] + 
    2*S2[a1, a1, a4, SP[a2, a3], a5, n] - 
    2*S2[a1, a1, a5, a2, SP[a3, a4], n] + 
    2*S2[a1, a1, a5, a3, SP[a2, a4], n] + 
    2*S2[a1, a1, a5, a4, SP[a2, a3], n] + 
    2*S2[a1, a1, a5, SP[a2, a3], a4, n] + 
    2*S2[a1, a1, SP[a2, a3], a4, a5, n] + 
    2*S2[a1, a1, SP[a2, a3], a5, a4, n] + S2[a1, a2, a1, a4, SP[a3, a5], n] - 
    S2[a1, a2, a1, a5, SP[a3, a4], n] - S2[a1, a2, a1, SP[a3, a4], a5, n] + 
    S2[a1, a2, a1, SP[a3, a5], a4, n] + S2[a5, n]*S2[a1, a2, a3, a1, a4, n] - 
    S2[a1, a2, a5, a1, SP[a3, a4], n] - S2[a1, a2, a5, SP[a1, a3], a4, n] - 
    S2[a1, a2, SP[a1, a3], a4, a5, n] - S2[a1, a2, SP[a1, a3], a5, a4, n] + 
    S2[a1, a2, SP[a3, a5], a1, a4, n] - S2[a1, a3, a1, a4, SP[a2, a5], n] + 
    S2[a1, a3, a1, a5, SP[a2, a4], n] + S2[a1, a3, a1, SP[a2, a4], a5, n] - 
    S2[a1, a3, a1, SP[a2, a5], a4, n] + S2[a4, n]*S2[a1, a3, a2, a1, a5, n] - 
    S2[a1, a3, a4, a1, SP[a2, a5], n] - S2[a1, a3, a4, SP[a1, a2], a5, n] - 
    S2[a1, a3, SP[a1, a2], a4, a5, n] - S2[a1, a3, SP[a1, a2], a5, a4, n] + 
    S2[a1, a3, SP[a2, a4], a1, a5, n] + S2[a1, a4, a1, a2, SP[a3, a5], n] - 
    S2[a1, a4, a1, a3, SP[a2, a5], n] + S2[a1, a4, a1, a5, SP[a2, a3], n] + 
    S2[a1, a4, a1, SP[a2, a3], a5, n] - S2[a1, a4, a3, a1, SP[a2, a5], n] - 
    S2[a1, a4, a3, SP[a1, a2], a5, n] - S2[a1, a5, a1, a2, SP[a3, a4], n] + 
    S2[a1, a5, a1, a3, SP[a2, a4], n] + S2[a1, a5, a1, a4, SP[a2, a3], n] + 
    S2[a1, a5, a1, SP[a2, a3], a4, n] - S2[a1, a5, a2, a1, SP[a3, a4], n] - 
    S2[a1, a5, a2, SP[a1, a3], a4, n] + S2[a1, SP[a2, a5], a3, a1, a4, n] + 
    S2[a1, SP[a3, a4], a2, a1, a5, n] + S2[SP[a1, a4], a3, a2, a1, a5, n] + 
    S2[SP[a1, a5], a2, a3, a1, a4, n] - S2[a5, a1, a2, a3, a1, a4, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a4_, a1_, a3_, a2_, a5_, a1_, n_] :> 
  -(S2[a1, a3, a4, n]*S2[a1, a5, a2, n]) - S2[a1, a4, a3, n]*
     S2[a1, a5, a2, n] - S2[SP[a1, a1], SP[a3, a5], SP[a2, a4], n] - 
    S2[SP[a1, a1], SP[a4, a5], SP[a2, a3], n] + 
    2*S2[a1, a1, SP[a3, a5], SP[a2, a4], n] + 
    2*S2[a1, a1, SP[a4, a5], SP[a2, a3], n] + 
    S2[a1, a5, n]*S2[a1, a3, a2, a4, n] + S2[a1, a5, n]*
     S2[a1, a3, a4, a2, n] - S2[a1, a3, SP[a1, a2], SP[a4, a5], n] - 
    S2[a1, a3, SP[a1, a4], SP[a2, a5], n] + S2[a1, a5, n]*
     S2[a1, a4, a3, a2, n] - S2[a1, a4, SP[a1, a3], SP[a2, a5], n] + 
    S2[a1, a4, n]*S2[a1, a5, a2, a3, n] - S2[a1, a5, SP[a1, a2], SP[a3, a4], 
     n] - S2[a1, SP[a1, a3], a2, SP[a4, a5], n] - S2[a1, SP[a1, a3], a4, 
     SP[a2, a5], n] + S2[a1, SP[a1, a3], a5, SP[a2, a4], n] - 
    S2[a1, SP[a1, a3], SP[a2, a5], a4, n] - S2[a1, SP[a1, a4], a3, 
     SP[a2, a5], n] + S2[a1, SP[a1, a4], a5, SP[a2, a3], n] - 
    S2[a1, SP[a1, a5], a2, SP[a3, a4], n] + S2[a1, SP[a1, a5], a3, 
     SP[a2, a4], n] + S2[a1, SP[a1, a5], a4, SP[a2, a3], n] + 
    S2[a1, SP[a1, a5], SP[a2, a3], a4, n] - S2[SP[a1, a1], a3, a2, 
     SP[a4, a5], n] - S2[SP[a1, a1], a3, a4, SP[a2, a5], n] + 
    S2[SP[a1, a1], a3, a5, SP[a2, a4], n] - S2[SP[a1, a1], a3, SP[a2, a5], 
     a4, n] - S2[SP[a1, a1], a4, a3, SP[a2, a5], n] + 
    S2[SP[a1, a1], a4, a5, SP[a2, a3], n] - S2[SP[a1, a1], a5, a2, 
     SP[a3, a4], n] + S2[SP[a1, a1], a5, a3, SP[a2, a4], n] + 
    S2[SP[a1, a1], a5, a4, SP[a2, a3], n] + S2[SP[a1, a1], a5, SP[a2, a3], 
     a4, n] - 2*S2[a4, n]*S2[a1, a1, a3, a2, a5, n] + 
    2*S2[a1, a1, a3, a4, SP[a2, a5], n] - 
    2*S2[a1, a1, a3, a5, SP[a2, a4], n] - 
    2*S2[a1, a1, a3, SP[a2, a4], a5, n] + 
    2*S2[a1, a1, a3, SP[a2, a5], a4, n] + 
    2*S2[a1, a1, a4, a3, SP[a2, a5], n] - 
    2*S2[a1, a1, a4, a5, SP[a2, a3], n] + 
    2*S2[a1, a1, a5, a2, SP[a3, a4], n] - 
    2*S2[a1, a1, a5, a3, SP[a2, a4], n] - 
    2*S2[a1, a1, a5, a4, SP[a2, a3], n] - 
    2*S2[a1, a1, a5, SP[a2, a3], a4, n] - 
    2*S2[a1, a1, SP[a3, a4], a2, a5, n] - 
    S2[a4, n]*S2[a1, a3, a1, a2, a5, n] + S2[a1, a3, a1, a4, SP[a2, a5], n] - 
    S2[a1, a3, a1, a5, SP[a2, a4], n] - S2[a1, a3, a1, SP[a2, a4], a5, n] + 
    S2[a1, a3, a1, SP[a2, a5], a4, n] - S2[a4, n]*S2[a1, a3, a2, a1, a5, n] + 
    S2[a1, a3, a4, a1, SP[a2, a5], n] + S2[a1, a3, a4, SP[a1, a2], a5, n] + 
    S2[a1, a3, SP[a1, a2], a4, a5, n] + S2[a1, a3, SP[a1, a2], a5, a4, n] - 
    S2[a1, a3, SP[a2, a4], a1, a5, n] + S2[a1, a4, a1, a3, SP[a2, a5], n] - 
    S2[a1, a4, a1, a5, SP[a2, a3], n] + S2[a1, a4, a3, a1, SP[a2, a5], n] + 
    S2[a1, a4, a3, SP[a1, a2], a5, n] + S2[a1, a4, SP[a1, a3], a2, a5, n] + 
    S2[a1, a5, a1, a2, SP[a3, a4], n] - S2[a1, a5, a1, a3, SP[a2, a4], n] - 
    S2[a1, a5, a1, a4, SP[a2, a3], n] - S2[a1, a5, a1, SP[a2, a3], a4, n] + 
    S2[a1, a5, a2, a1, SP[a3, a4], n] + S2[a1, a5, a2, SP[a1, a3], a4, n] + 
    S2[a1, SP[a1, a3], a2, a4, a5, n] + S2[a1, SP[a1, a3], a2, a5, a4, n] + 
    S2[a1, SP[a1, a3], a4, a2, a5, n] - S2[a1, SP[a1, a4], a3, a2, a5, n] - 
    S2[a1, SP[a3, a4], a1, a2, a5, n] - S2[a1, SP[a3, a4], a2, a1, a5, n] + 
    S2[a1, n]*S2[a4, a1, a3, a2, a5, n] + S2[a4, a1, a3, a2, SP[a1, a5], n] + 
    S2[a4, a1, a3, SP[a1, a2], a5, n] + S2[a4, a1, SP[a1, a3], a2, a5, n] + 
    S2[a4, SP[a1, a1], a3, a2, a5, n] - S2[a1, n]*S2[a5, a2, a3, a1, a4, n] - 
    S2[a5, a2, a3, a1, SP[a1, a4], n] - S2[a5, a2, a3, SP[a1, a1], a4, n] - 
    S2[a5, a2, SP[a1, a3], a1, a4, n] - S2[a5, SP[a1, a2], a3, a1, a4, n] + 
    S2[SP[a1, a1], a3, a2, a4, a5, n] + S2[SP[a1, a1], a3, a2, a5, a4, n] + 
    S2[SP[a1, a1], a3, a4, a2, a5, n] + S2[SP[a1, a1], a4, a3, a2, a5, n] - 
    S2[SP[a1, a4], a1, a3, a2, a5, n] - S2[SP[a1, a4], a3, a1, a2, a5, n] - 
    S2[SP[a1, a4], a3, a2, a1, a5, n] - S2[SP[a1, a5], a2, a3, a1, a4, n] + 
    S2[a5, a1, a2, a3, a1, a4, n] + S2[a5, a2, a1, a3, a1, a4, n] + 
    2*S2[a5, a2, a3, a1, a1, a4, n] + S2[a5, a2, a3, a1, a4, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a4_, a1_, a3_, a5_, a1_, a2_, n_] :> 
  S2[a1, a2, a5, n]*S2[a1, a3, a4, n] + S2[a1, a2, a5, n]*S2[a1, a4, a3, n] + 
    S2[a1, a3, a4, n]*S2[a1, a5, a2, n] + S2[a1, a4, a3, n]*
     S2[a1, a5, a2, n] + S2[SP[a1, a1], SP[a2, a3], SP[a4, a5], n] + 
    S2[SP[a1, a1], SP[a2, a4], SP[a3, a5], n] + S2[SP[a1, a1], SP[a3, a5], 
     SP[a2, a4], n] + S2[SP[a1, a1], SP[a4, a5], SP[a2, a3], n] - 
    2*S2[a1, a1, SP[a2, a3], SP[a4, a5], n] - 
    2*S2[a1, a1, SP[a2, a4], SP[a3, a5], n] - 
    2*S2[a1, a1, SP[a3, a5], SP[a2, a4], n] - 
    2*S2[a1, a1, SP[a4, a5], SP[a2, a3], n] - 
    S2[a1, a4, n]*S2[a1, a2, a5, a3, n] + S2[a1, a2, SP[a1, a5], SP[a3, a4], 
     n] + S2[a1, a2, n]*S2[a1, a4, a5, a3, n] - S2[a1, a4, SP[a1, a5], 
     SP[a2, a3], n] - S2[a1, a4, n]*S2[a1, a5, a2, a3, n] - 
    S2[a1, a4, n]*S2[a1, a5, a3, a2, n] + S2[a1, a2, n]*
     S2[a1, a5, a3, a4, n] + S2[a1, a2, n]*S2[a1, a5, a4, a3, n] + 
    S2[a1, a5, SP[a1, a2], SP[a3, a4], n] - S2[a1, a5, SP[a1, a4], 
     SP[a2, a3], n] - S2[a1, SP[a1, a2], a3, SP[a4, a5], n] - 
    S2[a1, SP[a1, a2], a4, SP[a3, a5], n] + S2[a1, SP[a1, a2], a5, 
     SP[a3, a4], n] - S2[a1, SP[a1, a2], SP[a3, a5], a4, n] - 
    S2[a1, SP[a1, a3], a2, SP[a4, a5], n] - S2[a1, SP[a1, a3], a5, 
     SP[a2, a4], n] - S2[a1, SP[a1, a3], SP[a2, a4], a5, n] - 
    S2[a1, SP[a1, a3], SP[a4, a5], a2, n] - S2[a1, SP[a1, a4], a2, 
     SP[a3, a5], n] - 2*S2[a1, SP[a1, a4], a5, SP[a2, a3], n] - 
    S2[a1, SP[a1, a4], SP[a2, a3], a5, n] - S2[a1, SP[a1, a4], SP[a2, a5], 
     a3, n] - S2[a1, SP[a1, a4], SP[a3, a5], a2, n] + 
    S2[a1, SP[a1, a5], a2, SP[a3, a4], n] - S2[a1, SP[a1, a5], a3, 
     SP[a2, a4], n] - 2*S2[a1, SP[a1, a5], a4, SP[a2, a3], n] - 
    2*S2[a1, SP[a1, a5], SP[a2, a3], a4, n] - S2[a1, SP[a1, a5], SP[a2, a4], 
     a3, n] + S2[a1, SP[a1, a5], SP[a3, a4], a2, n] - 
    S2[a1, a2, n]*S2[a3, a5, a1, a4, n] + S2[a3, a5, SP[a1, a1], SP[a2, a4], 
     n] + S2[a3, SP[a1, a5], a1, SP[a2, a4], n] + 
    S2[a3, SP[a1, a5], SP[a1, a2], a4, n] - S2[SP[a1, a1], a2, a3, 
     SP[a4, a5], n] - S2[SP[a1, a1], a2, a4, SP[a3, a5], n] + 
    S2[SP[a1, a1], a2, a5, SP[a3, a4], n] - S2[SP[a1, a1], a2, SP[a3, a5], 
     a4, n] - S2[SP[a1, a1], a3, a2, SP[a4, a5], n] - 
    S2[SP[a1, a1], a3, a5, SP[a2, a4], n] - S2[SP[a1, a1], a3, SP[a2, a4], 
     a5, n] - S2[SP[a1, a1], a3, SP[a4, a5], a2, n] - 
    S2[SP[a1, a1], a4, a2, SP[a3, a5], n] - 
    2*S2[SP[a1, a1], a4, a5, SP[a2, a3], n] - S2[SP[a1, a1], a4, SP[a2, a3], 
     a5, n] - S2[SP[a1, a1], a4, SP[a2, a5], a3, n] - 
    S2[SP[a1, a1], a4, SP[a3, a5], a2, n] + S2[SP[a1, a1], a5, a2, 
     SP[a3, a4], n] - S2[SP[a1, a1], a5, a3, SP[a2, a4], n] - 
    2*S2[SP[a1, a1], a5, a4, SP[a2, a3], n] - 
    2*S2[SP[a1, a1], a5, SP[a2, a3], a4, n] - S2[SP[a1, a1], a5, SP[a2, a4], 
     a3, n] + S2[SP[a1, a1], a5, SP[a3, a4], a2, n] - 
    S2[SP[a1, a1], SP[a2, a3], a4, a5, n] - S2[SP[a1, a1], SP[a2, a3], a5, 
     a4, n] - S2[SP[a1, a1], SP[a2, a4], a3, a5, n] - 
    S2[SP[a1, a1], SP[a2, a4], a5, a3, n] - S2[SP[a1, a1], SP[a2, a5], a3, 
     a4, n] - S2[SP[a1, a1], SP[a2, a5], a4, a3, n] - 
    S2[SP[a1, a1], SP[a3, a5], a2, a4, n] - S2[SP[a1, a1], SP[a3, a5], a4, 
     a2, n] + S2[SP[a1, a3], a5, a1, SP[a2, a4], n] + 
    S2[SP[a1, a3], a5, SP[a1, a2], a4, n] + S2[SP[a1, a3], SP[a2, a5], a1, 
     a4, n] - 2*S2[a5, n]*S2[a1, a1, a2, a3, a4, n] - 
    2*S2[a5, n]*S2[a1, a1, a2, a4, a3, n] - 
    2*S2[a1, a1, a2, a5, SP[a3, a4], n] - 
    2*S2[a1, a1, a2, SP[a4, a5], a3, n] - 
    2*S2[a5, n]*S2[a1, a1, a3, a2, a4, n] - 
    2*S2[a5, n]*S2[a1, a1, a3, a4, a2, n] - 
    2*S2[a1, a1, a3, a4, SP[a2, a5], n] + 
    2*S2[a1, a1, a3, a5, SP[a2, a4], n] + 
    2*S2[a1, a1, a3, SP[a2, a4], a5, n] - 
    2*S2[a1, a1, a3, SP[a2, a5], a4, n] - 
    2*S2[a5, n]*S2[a1, a1, a4, a2, a3, n] - 
    2*S2[a5, n]*S2[a1, a1, a4, a3, a2, n] - 
    2*S2[a1, a1, a4, a3, SP[a2, a5], n] + 
    4*S2[a1, a1, a4, a5, SP[a2, a3], n] + 
    2*S2[a1, a1, a4, SP[a2, a3], a5, n] - 
    2*S2[a1, a1, a5, a2, SP[a3, a4], n] + 
    2*S2[a1, a1, a5, a3, SP[a2, a4], n] + 
    4*S2[a1, a1, a5, a4, SP[a2, a3], n] + 
    4*S2[a1, a1, a5, SP[a2, a3], a4, n] + 
    2*S2[a1, a1, a5, SP[a2, a4], a3, n] - 
    2*S2[a1, a1, a5, SP[a3, a4], a2, n] + 
    2*S2[a1, a1, SP[a2, a3], a4, a5, n] + 
    2*S2[a1, a1, SP[a2, a3], a5, a4, n] + 
    2*S2[a1, a1, SP[a2, a4], a3, a5, n] + 
    2*S2[a1, a1, SP[a2, a4], a5, a3, n] - 
    2*S2[a1, a1, SP[a4, a5], a2, a3, n] - 
    2*S2[a1, a1, SP[a4, a5], a3, a2, n] - 
    S2[a5, n]*S2[a1, a2, a1, a3, a4, n] - 
    S2[a5, n]*S2[a1, a2, a1, a4, a3, n] - S2[a1, a2, a1, a5, SP[a3, a4], n] - 
    S2[a1, a2, a1, SP[a4, a5], a3, n] + S2[a3, n]*S2[a1, a2, a5, a1, a4, n] - 
    S2[a1, a2, SP[a1, a5], a3, a4, n] - S2[a1, a2, SP[a1, a5], a4, a3, n] + 
    S2[a1, a2, SP[a3, a5], a1, a4, n] - S2[a5, n]*S2[a1, a3, a1, a2, a4, n] - 
    S2[a5, n]*S2[a1, a3, a1, a4, a2, n] - S2[a1, a3, a1, a4, SP[a2, a5], n] + 
    S2[a1, a3, a1, a5, SP[a2, a4], n] + S2[a1, a3, a1, SP[a2, a4], a5, n] - 
    S2[a1, a3, a1, SP[a2, a5], a4, n] - S2[a5, n]*S2[a1, a3, a4, a1, a2, n] - 
    S2[a1, a3, a4, a1, SP[a2, a5], n] - S2[a1, a3, a4, SP[a1, a5], a2, n] + 
    S2[a4, n]*S2[a1, a3, a5, a1, a2, n] - S2[a1, a3, a5, SP[a1, a2], a4, n] + 
    S2[a1, a3, a5, SP[a1, a4], a2, n] + S2[a1, a3, SP[a1, a4], a2, a5, n] + 
    S2[a1, a3, SP[a1, a4], a5, a2, n] - S2[a1, a3, SP[a1, a5], a2, a4, n] - 
    S2[a1, a3, SP[a1, a5], a4, a2, n] - S2[a1, a3, SP[a2, a5], a1, a4, n] - 
    S2[a5, n]*S2[a1, a4, a1, a2, a3, n] - 
    S2[a5, n]*S2[a1, a4, a1, a3, a2, n] - S2[a1, a4, a1, a3, SP[a2, a5], n] + 
    2*S2[a1, a4, a1, a5, SP[a2, a3], n] + S2[a1, a4, a1, SP[a2, a3], a5, n] - 
    S2[a5, n]*S2[a1, a4, a3, a1, a2, n] - S2[a1, a4, a3, a1, SP[a2, a5], n] - 
    S2[a1, a4, a3, SP[a1, a5], a2, n] + S2[a1, a4, a5, a1, SP[a2, a3], n] + 
    S2[a1, a4, a5, SP[a1, a3], a2, n] + S2[a1, a4, SP[a1, a3], a2, a5, n] + 
    S2[a1, a4, SP[a1, a3], a5, a2, n] - S2[a1, a4, SP[a3, a5], a1, a2, n] + 
    S2[a3, n]*S2[a1, a5, a1, a2, a4, n] + S2[a1, a5, a1, a3, SP[a2, a4], n] + 
    S2[a3, n]*S2[a1, a5, a1, a4, a2, n] + 
    3*S2[a1, a5, a1, a4, SP[a2, a3], n] + 
    3*S2[a1, a5, a1, SP[a2, a3], a4, n] + S2[a1, a5, a1, SP[a2, a4], a3, n] + 
    S2[a3, n]*S2[a1, a5, a2, a1, a4, n] - S2[a1, a5, a3, SP[a1, a2], a4, n] + 
    S2[a1, a5, a3, SP[a1, a4], a2, n] + S2[a1, a5, a4, a1, SP[a2, a3], n] + 
    S2[a1, a5, a4, SP[a1, a3], a2, n] + S2[a1, a5, SP[a1, a3], a2, a4, n] + 
    S2[a1, a5, SP[a1, a3], a4, a2, n] + S2[a1, a5, SP[a1, a4], a2, a3, n] + 
    S2[a1, a5, SP[a1, a4], a3, a2, n] + S2[a1, a5, SP[a2, a3], a1, a4, n] + 
    S2[a1, SP[a1, a2], a3, a4, a5, n] + S2[a1, SP[a1, a2], a3, a5, a4, n] + 
    S2[a1, SP[a1, a2], a4, a3, a5, n] + S2[a1, SP[a1, a2], a4, a5, a3, n] + 
    S2[a1, SP[a1, a2], a5, a3, a4, n] + S2[a1, SP[a1, a2], a5, a4, a3, n] + 
    S2[a1, SP[a1, a3], a2, a4, a5, n] + S2[a1, SP[a1, a3], a2, a5, a4, n] + 
    S2[a1, SP[a1, a3], a4, a2, a5, n] + S2[a1, SP[a1, a3], a4, a5, a2, n] + 
    S2[a1, SP[a1, a3], a5, a2, a4, n] + S2[a1, SP[a1, a3], a5, a4, a2, n] + 
    S2[a1, SP[a1, a4], a2, a3, a5, n] + S2[a1, SP[a1, a4], a2, a5, a3, n] + 
    S2[a1, SP[a1, a4], a3, a2, a5, n] + S2[a1, SP[a1, a4], a3, a5, a2, n] + 
    S2[a1, SP[a1, a4], a5, a2, a3, n] + S2[a1, SP[a1, a4], a5, a3, a2, n] - 
    S2[a1, SP[a1, a5], a2, a3, a4, n] - S2[a1, SP[a1, a5], a2, a4, a3, n] - 
    S2[a1, SP[a1, a5], a3, a2, a4, n] - S2[a1, SP[a1, a5], a3, a4, a2, n] - 
    S2[a1, SP[a1, a5], a4, a2, a3, n] - S2[a1, SP[a1, a5], a4, a3, a2, n] - 
    S2[a1, SP[a2, a5], a1, a3, a4, n] - S2[a1, SP[a2, a5], a1, a4, a3, n] + 
    S2[a1, SP[a3, a4], a5, a1, a2, n] + S2[a1, SP[a3, a5], a2, a1, a4, n] - 
    S2[a1, SP[a3, a5], a4, a1, a2, n] - S2[a1, SP[a4, a5], a1, a2, a3, n] - 
    S2[a1, SP[a4, a5], a1, a3, a2, n] - S2[a1, SP[a4, a5], a3, a1, a2, n] - 
    S2[a3, a1, a5, a1, SP[a2, a4], n] - S2[a3, a1, a5, SP[a1, a2], a4, n] - 
    S2[a3, a1, SP[a2, a5], a1, a4, n] - 2*S2[a3, a5, a1, a1, SP[a2, a4], n] - 
    S2[a3, a5, a1, SP[a1, a2], a4, n] - S2[a3, a5, a1, SP[a1, a4], a2, n] - 
    S2[a3, a5, SP[a1, a1], a2, a4, n] - S2[a3, a5, SP[a1, a1], a4, a2, n] - 
    S2[a3, SP[a1, a5], a1, a2, a4, n] - S2[a3, SP[a1, a5], a1, a4, a2, n] - 
    S2[a3, SP[a1, a5], a2, a1, a4, n] + 2*S2[a3, n]*
     S2[a5, a1, a1, a2, a4, n] + 2*S2[a5, a1, a1, a2, SP[a3, a4], n] + 
    2*S2[a3, n]*S2[a5, a1, a1, a4, a2, n] + 
    2*S2[a5, a1, a1, a4, SP[a2, a3], n] + 
    2*S2[a5, a1, a1, SP[a2, a3], a4, n] + 
    2*S2[a5, a1, a1, SP[a3, a4], a2, n] + 
    S2[a3, n]*S2[a5, a1, a2, a1, a4, n] + S2[a5, a1, a2, a1, SP[a3, a4], n] + 
    S2[a5, a1, a2, SP[a1, a3], a4, n] + S2[a3, n]*S2[a5, a1, a4, a1, a2, n] + 
    S2[a5, a1, a4, a1, SP[a2, a3], n] + S2[a5, a1, a4, SP[a1, a3], a2, n] + 
    2*S2[a5, a1, SP[a1, a3], a2, a4, n] + 
    2*S2[a5, a1, SP[a1, a3], a4, a2, n] + S2[a5, a1, SP[a2, a3], a1, a4, n] + 
    S2[a5, a1, SP[a3, a4], a1, a2, n] + 2*S2[a5, SP[a1, a3], a1, a2, a4, n] + 
    2*S2[a5, SP[a1, a3], a1, a4, a2, n] + S2[a5, SP[a1, a3], a2, a1, a4, n] + 
    S2[a5, SP[a1, a3], a4, a1, a2, n] + S2[SP[a1, a1], a2, a3, a4, a5, n] + 
    S2[SP[a1, a1], a2, a3, a5, a4, n] + S2[SP[a1, a1], a2, a4, a3, a5, n] + 
    S2[SP[a1, a1], a2, a4, a5, a3, n] + S2[SP[a1, a1], a2, a5, a3, a4, n] + 
    S2[SP[a1, a1], a2, a5, a4, a3, n] + S2[SP[a1, a1], a3, a2, a4, a5, n] + 
    S2[SP[a1, a1], a3, a2, a5, a4, n] + S2[SP[a1, a1], a3, a4, a2, a5, n] + 
    S2[SP[a1, a1], a3, a4, a5, a2, n] + S2[SP[a1, a1], a3, a5, a2, a4, n] + 
    S2[SP[a1, a1], a3, a5, a4, a2, n] + S2[SP[a1, a1], a4, a2, a3, a5, n] + 
    S2[SP[a1, a1], a4, a2, a5, a3, n] + S2[SP[a1, a1], a4, a3, a2, a5, n] + 
    S2[SP[a1, a1], a4, a3, a5, a2, n] + S2[SP[a1, a1], a4, a5, a2, a3, n] + 
    S2[SP[a1, a1], a4, a5, a3, a2, n] + S2[SP[a1, a1], a5, a2, a3, a4, n] + 
    S2[SP[a1, a1], a5, a2, a4, a3, n] + S2[SP[a1, a1], a5, a3, a2, a4, n] + 
    S2[SP[a1, a1], a5, a3, a4, a2, n] + S2[SP[a1, a1], a5, a4, a2, a3, n] + 
    S2[SP[a1, a1], a5, a4, a3, a2, n] + S2[SP[a1, a4], a3, a5, a1, a2, n] - 
    2*S2[SP[a1, a5], a1, a2, a3, a4, n] - 
    2*S2[SP[a1, a5], a1, a2, a4, a3, n] - 
    2*S2[SP[a1, a5], a1, a3, a2, a4, n] - 
    2*S2[SP[a1, a5], a1, a3, a4, a2, n] - 
    2*S2[SP[a1, a5], a1, a4, a2, a3, n] - 
    2*S2[SP[a1, a5], a1, a4, a3, a2, n] - S2[SP[a1, a5], a2, a1, a3, a4, n] - 
    S2[SP[a1, a5], a2, a1, a4, a3, n] - S2[SP[a1, a5], a3, a1, a2, a4, n] - 
    S2[SP[a1, a5], a3, a1, a4, a2, n] - S2[SP[a1, a5], a3, a4, a1, a2, n] - 
    S2[SP[a1, a5], a4, a1, a2, a3, n] - S2[SP[a1, a5], a4, a1, a3, a2, n] - 
    S2[SP[a1, a5], a4, a3, a1, a2, n] + 2*S2[SP[a3, a5], a1, a1, a2, a4, n] + 
    2*S2[SP[a3, a5], a1, a1, a4, a2, n] + S2[SP[a3, a5], a1, a2, a1, a4, n] + 
    S2[SP[a3, a5], a1, a4, a1, a2, n] - S2[a5, a1, a2, a3, a1, a4, n] - 
    S2[a5, a1, a3, a1, a2, a4, n] - S2[a5, a1, a3, a1, a4, a2, n] - 
    S2[a5, a1, a3, a2, a1, a4, n] - 2*S2[a5, a3, a1, a1, a2, a4, n] - 
    2*S2[a5, a3, a1, a1, a4, a2, n] - S2[a5, a3, a1, a2, a1, a4, n] - 
    S2[a5, a3, a1, a4, a1, a2, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a4_, a1_, a3_, a5_, a2_, a1_, n_] :> 
  -(S2[a1, a2, a5, n]*S2[a1, a3, a4, n]) - S2[a1, a2, a5, n]*
     S2[a1, a4, a3, n] - S2[SP[a1, a1], SP[a2, a3], SP[a4, a5], n] - 
    S2[SP[a1, a1], SP[a2, a4], SP[a3, a5], n] + 
    2*S2[a1, a1, SP[a2, a3], SP[a4, a5], n] + 
    2*S2[a1, a1, SP[a2, a4], SP[a3, a5], n] + 
    S2[a1, a4, n]*S2[a1, a2, a5, a3, n] - S2[a1, a2, SP[a1, a5], SP[a3, a4], 
     n] - S2[a1, a2, n]*S2[a1, a4, a5, a3, n] + S2[a1, a4, SP[a1, a5], 
     SP[a2, a3], n] - S2[a1, a2, n]*S2[a1, a5, a3, a4, n] - 
    S2[a1, a2, n]*S2[a1, a5, a4, a3, n] + S2[a1, a5, SP[a1, a3], SP[a2, a4], 
     n] + S2[a1, a5, SP[a1, a4], SP[a2, a3], n] + S2[a1, SP[a1, a2], a3, 
     SP[a4, a5], n] + S2[a1, SP[a1, a2], a4, SP[a3, a5], n] - 
    S2[a1, SP[a1, a2], a5, SP[a3, a4], n] + S2[a1, SP[a1, a2], SP[a3, a5], 
     a4, n] + S2[a1, SP[a1, a3], a2, SP[a4, a5], n] + 
    S2[a1, SP[a1, a3], SP[a2, a4], a5, n] + S2[a1, SP[a1, a4], a2, 
     SP[a3, a5], n] + S2[a1, SP[a1, a4], a5, SP[a2, a3], n] + 
    S2[a1, SP[a1, a4], SP[a2, a3], a5, n] + S2[a1, SP[a1, a4], SP[a2, a5], 
     a3, n] + S2[a1, SP[a1, a5], a3, SP[a2, a4], n] + 
    S2[a1, SP[a1, a5], a4, SP[a2, a3], n] + S2[a1, SP[a1, a5], SP[a2, a3], 
     a4, n] + S2[a1, SP[a1, a5], SP[a2, a4], a3, n] + 
    S2[a1, a2, n]*S2[a3, a5, a1, a4, n] - S2[a3, a5, SP[a1, a1], SP[a2, a4], 
     n] - S2[a3, SP[a1, a5], a1, SP[a2, a4], n] - 
    S2[a3, SP[a1, a5], SP[a1, a2], a4, n] + S2[SP[a1, a1], a2, a3, 
     SP[a4, a5], n] + S2[SP[a1, a1], a2, a4, SP[a3, a5], n] - 
    S2[SP[a1, a1], a2, a5, SP[a3, a4], n] + S2[SP[a1, a1], a2, SP[a3, a5], 
     a4, n] + S2[SP[a1, a1], a3, a2, SP[a4, a5], n] + 
    S2[SP[a1, a1], a3, SP[a2, a4], a5, n] + S2[SP[a1, a1], a4, a2, 
     SP[a3, a5], n] + S2[SP[a1, a1], a4, a5, SP[a2, a3], n] + 
    S2[SP[a1, a1], a4, SP[a2, a3], a5, n] + S2[SP[a1, a1], a4, SP[a2, a5], 
     a3, n] + S2[SP[a1, a1], a5, a3, SP[a2, a4], n] + 
    S2[SP[a1, a1], a5, a4, SP[a2, a3], n] + S2[SP[a1, a1], a5, SP[a2, a3], 
     a4, n] + S2[SP[a1, a1], a5, SP[a2, a4], a3, n] + 
    S2[SP[a1, a1], SP[a2, a3], a4, a5, n] + S2[SP[a1, a1], SP[a2, a3], a5, 
     a4, n] + S2[SP[a1, a1], SP[a2, a4], a3, a5, n] + 
    S2[SP[a1, a1], SP[a2, a4], a5, a3, n] + S2[SP[a1, a1], SP[a2, a5], a3, 
     a4, n] + S2[SP[a1, a1], SP[a2, a5], a4, a3, n] - 
    S2[SP[a1, a3], a5, a1, SP[a2, a4], n] - S2[SP[a1, a3], a5, SP[a1, a2], 
     a4, n] - S2[SP[a1, a3], SP[a2, a5], a1, a4, n] + 
    2*S2[a5, n]*S2[a1, a1, a2, a3, a4, n] + 
    2*S2[a5, n]*S2[a1, a1, a2, a4, a3, n] + 
    2*S2[a1, a1, a2, a5, SP[a3, a4], n] + 
    2*S2[a1, a1, a2, SP[a4, a5], a3, n] + 
    2*S2[a5, n]*S2[a1, a1, a3, a2, a4, n] + 
    2*S2[a5, n]*S2[a1, a1, a3, a4, a2, n] + 
    2*S2[a1, a1, a3, a4, SP[a2, a5], n] - 
    2*S2[a4, n]*S2[a1, a1, a3, a5, a2, n] - 
    2*S2[a1, a1, a3, a5, SP[a2, a4], n] - 
    2*S2[a1, a1, a3, SP[a2, a4], a5, n] + 
    2*S2[a1, a1, a3, SP[a2, a5], a4, n] + 
    2*S2[a5, n]*S2[a1, a1, a4, a2, a3, n] + 
    2*S2[a5, n]*S2[a1, a1, a4, a3, a2, n] + 
    2*S2[a1, a1, a4, a3, SP[a2, a5], n] - 
    2*S2[a1, a1, a4, a5, SP[a2, a3], n] - 
    2*S2[a1, a1, a4, SP[a2, a3], a5, n] + 
    2*S2[a1, a1, a4, SP[a3, a5], a2, n] - 
    2*S2[a1, a1, a5, a3, SP[a2, a4], n] - 
    2*S2[a1, a1, a5, a4, SP[a2, a3], n] - 
    2*S2[a1, a1, a5, SP[a2, a3], a4, n] - 
    2*S2[a1, a1, a5, SP[a2, a4], a3, n] - 
    2*S2[a1, a1, SP[a2, a3], a4, a5, n] - 
    2*S2[a1, a1, SP[a2, a3], a5, a4, n] - 
    2*S2[a1, a1, SP[a2, a4], a3, a5, n] - 
    2*S2[a1, a1, SP[a2, a4], a5, a3, n] - 
    2*S2[a1, a1, SP[a3, a4], a5, a2, n] + 
    2*S2[a1, a1, SP[a3, a5], a2, a4, n] + 
    2*S2[a1, a1, SP[a3, a5], a4, a2, n] + 
    2*S2[a1, a1, SP[a4, a5], a2, a3, n] + 
    2*S2[a1, a1, SP[a4, a5], a3, a2, n] + 
    S2[a5, n]*S2[a1, a2, a1, a3, a4, n] + 
    S2[a5, n]*S2[a1, a2, a1, a4, a3, n] + S2[a1, a2, a1, a5, SP[a3, a4], n] + 
    S2[a1, a2, a1, SP[a4, a5], a3, n] - S2[a3, n]*S2[a1, a2, a5, a1, a4, n] + 
    S2[a1, a2, SP[a1, a5], a3, a4, n] + S2[a1, a2, SP[a1, a5], a4, a3, n] - 
    S2[a1, a2, SP[a3, a5], a1, a4, n] + S2[a5, n]*S2[a1, a3, a1, a2, a4, n] + 
    S2[a5, n]*S2[a1, a3, a1, a4, a2, n] + S2[a1, a3, a1, a4, SP[a2, a5], n] - 
    S2[a4, n]*S2[a1, a3, a1, a5, a2, n] - S2[a1, a3, a1, a5, SP[a2, a4], n] - 
    S2[a1, a3, a1, SP[a2, a4], a5, n] + S2[a1, a3, a1, SP[a2, a5], a4, n] + 
    S2[a5, n]*S2[a1, a3, a4, a1, a2, n] + S2[a1, a3, a4, a1, SP[a2, a5], n] + 
    S2[a1, a3, a4, SP[a1, a5], a2, n] - S2[a4, n]*S2[a1, a3, a5, a1, a2, n] + 
    S2[a1, a3, a5, SP[a1, a2], a4, n] - S2[a1, a3, a5, SP[a1, a4], a2, n] - 
    S2[a1, a3, SP[a1, a4], a2, a5, n] - S2[a1, a3, SP[a1, a4], a5, a2, n] + 
    S2[a1, a3, SP[a1, a5], a2, a4, n] + S2[a1, a3, SP[a1, a5], a4, a2, n] + 
    S2[a1, a3, SP[a2, a5], a1, a4, n] + S2[a5, n]*S2[a1, a4, a1, a2, a3, n] + 
    S2[a5, n]*S2[a1, a4, a1, a3, a2, n] + S2[a1, a4, a1, a3, SP[a2, a5], n] - 
    S2[a1, a4, a1, a5, SP[a2, a3], n] - S2[a1, a4, a1, SP[a2, a3], a5, n] + 
    S2[a1, a4, a1, SP[a3, a5], a2, n] + S2[a5, n]*S2[a1, a4, a3, a1, a2, n] + 
    S2[a1, a4, a3, a1, SP[a2, a5], n] + S2[a1, a4, a3, SP[a1, a5], a2, n] - 
    S2[a1, a4, a5, a1, SP[a2, a3], n] - S2[a1, a4, a5, SP[a1, a3], a2, n] - 
    S2[a1, a4, SP[a1, a3], a2, a5, n] + S2[a1, a4, SP[a3, a5], a1, a2, n] - 
    S2[a3, n]*S2[a1, a5, a1, a2, a4, n] - S2[a1, a5, a1, a2, SP[a3, a4], n] - 
    S2[a1, a5, a1, a3, SP[a2, a4], n] - S2[a3, n]*S2[a1, a5, a1, a4, a2, n] - 
    2*S2[a1, a5, a1, a4, SP[a2, a3], n] - 
    2*S2[a1, a5, a1, SP[a2, a3], a4, n] - S2[a1, a5, a1, SP[a2, a4], a3, n] - 
    S2[a1, a5, a1, SP[a3, a4], a2, n] - S2[a3, n]*S2[a1, a5, a2, a1, a4, n] - 
    S2[a1, a5, a2, a1, SP[a3, a4], n] - S2[a1, a5, a2, SP[a1, a3], a4, n] - 
    S2[a1, a5, a3, a1, SP[a2, a4], n] - S2[a1, a5, a3, SP[a1, a4], a2, n] - 
    S2[a1, a5, a4, a1, SP[a2, a3], n] - S2[a1, a5, a4, SP[a1, a3], a2, n] - 
    2*S2[a1, a5, SP[a1, a3], a2, a4, n] - 
    2*S2[a1, a5, SP[a1, a3], a4, a2, n] - S2[a1, a5, SP[a1, a4], a2, a3, n] - 
    S2[a1, a5, SP[a1, a4], a3, a2, n] - S2[a1, a5, SP[a2, a3], a1, a4, n] - 
    S2[a1, SP[a1, a2], a3, a4, a5, n] - S2[a1, SP[a1, a2], a3, a5, a4, n] - 
    S2[a1, SP[a1, a2], a4, a3, a5, n] - S2[a1, SP[a1, a2], a4, a5, a3, n] - 
    S2[a1, SP[a1, a2], a5, a3, a4, n] - S2[a1, SP[a1, a2], a5, a4, a3, n] - 
    S2[a1, SP[a1, a3], a2, a4, a5, n] - S2[a1, SP[a1, a3], a2, a5, a4, n] - 
    S2[a1, SP[a1, a3], a4, a2, a5, n] - S2[a1, SP[a1, a4], a2, a3, a5, n] - 
    S2[a1, SP[a1, a4], a2, a5, a3, n] - S2[a1, SP[a1, a4], a3, a2, a5, n] - 
    2*S2[a1, SP[a1, a4], a3, a5, a2, n] - S2[a1, SP[a1, a4], a5, a2, a3, n] - 
    S2[a1, SP[a1, a4], a5, a3, a2, n] + S2[a1, SP[a1, a5], a2, a3, a4, n] + 
    S2[a1, SP[a1, a5], a2, a4, a3, n] + S2[a1, SP[a1, a5], a3, a2, a4, n] + 
    S2[a1, SP[a1, a5], a3, a4, a2, n] + S2[a1, SP[a1, a5], a4, a2, a3, n] + 
    S2[a1, SP[a1, a5], a4, a3, a2, n] + S2[a1, SP[a2, a5], a1, a3, a4, n] + 
    S2[a1, SP[a2, a5], a1, a4, a3, n] - S2[a1, SP[a3, a4], a1, a5, a2, n] - 
    S2[a1, SP[a3, a4], a5, a1, a2, n] - S2[a1, SP[a3, a5], a2, a1, a4, n] + 
    S2[a1, SP[a3, a5], a4, a1, a2, n] + S2[a1, SP[a4, a5], a1, a2, a3, n] + 
    S2[a1, SP[a4, a5], a1, a3, a2, n] + S2[a1, SP[a4, a5], a3, a1, a2, n] + 
    S2[a3, a1, a5, a1, SP[a2, a4], n] + S2[a3, a1, a5, SP[a1, a2], a4, n] + 
    S2[a3, a1, SP[a2, a5], a1, a4, n] + 2*S2[a3, a5, a1, a1, SP[a2, a4], n] + 
    S2[a3, a5, a1, SP[a1, a2], a4, n] + S2[a3, a5, a1, SP[a1, a4], a2, n] + 
    S2[a3, a5, SP[a1, a1], a2, a4, n] + S2[a3, a5, SP[a1, a1], a4, a2, n] + 
    S2[a3, SP[a1, a5], a1, a2, a4, n] + S2[a3, SP[a1, a5], a1, a4, a2, n] + 
    S2[a3, SP[a1, a5], a2, a1, a4, n] + S2[a1, n]*S2[a4, a1, a3, a5, a2, n] + 
    S2[a4, a1, a3, a5, SP[a1, a2], n] + S2[a4, a1, a3, SP[a1, a5], a2, n] + 
    S2[a4, a1, SP[a1, a3], a5, a2, n] + S2[a4, SP[a1, a1], a3, a5, a2, n] - 
    2*S2[a3, n]*S2[a5, a1, a1, a2, a4, n] - 
    2*S2[a5, a1, a1, a2, SP[a3, a4], n] - 
    2*S2[a3, n]*S2[a5, a1, a1, a4, a2, n] - 
    2*S2[a5, a1, a1, a4, SP[a2, a3], n] - 
    2*S2[a5, a1, a1, SP[a2, a3], a4, n] - 
    2*S2[a5, a1, a1, SP[a3, a4], a2, n] - 
    S2[a3, n]*S2[a5, a1, a2, a1, a4, n] - S2[a5, a1, a2, a1, SP[a3, a4], n] - 
    S2[a5, a1, a2, SP[a1, a3], a4, n] - S2[a3, n]*S2[a5, a1, a4, a1, a2, n] - 
    S2[a5, a1, a4, a1, SP[a2, a3], n] - S2[a5, a1, a4, SP[a1, a3], a2, n] - 
    2*S2[a5, a1, SP[a1, a3], a2, a4, n] - 
    2*S2[a5, a1, SP[a1, a3], a4, a2, n] - S2[a5, a1, SP[a2, a3], a1, a4, n] - 
    S2[a5, a1, SP[a3, a4], a1, a2, n] + S2[a1, n]*S2[a5, a2, a3, a1, a4, n] + 
    S2[a5, a2, a3, a1, SP[a1, a4], n] + S2[a5, a2, a3, SP[a1, a1], a4, n] + 
    S2[a5, a2, SP[a1, a3], a1, a4, n] + S2[a1, n]*S2[a5, a3, a1, a2, a4, n] + 
    S2[a5, a3, a1, a2, SP[a1, a4], n] + S2[a1, n]*S2[a5, a3, a1, a4, a2, n] + 
    S2[a5, a3, a1, a4, SP[a1, a2], n] + S2[a5, a3, a1, SP[a1, a2], a4, n] + 
    S2[a5, a3, a1, SP[a1, a4], a2, n] + S2[a1, n]*S2[a5, a3, a2, a1, a4, n] + 
    S2[a5, a3, a2, a1, SP[a1, a4], n] + S2[a5, a3, a2, SP[a1, a1], a4, n] + 
    S2[a5, a3, SP[a1, a1], a2, a4, n] + S2[a5, a3, SP[a1, a1], a4, a2, n] + 
    S2[a5, a3, SP[a1, a2], a1, a4, n] + S2[a5, SP[a1, a2], a3, a1, a4, n] - 
    S2[a5, SP[a1, a3], a1, a2, a4, n] - S2[a5, SP[a1, a3], a1, a4, a2, n] - 
    S2[a5, SP[a1, a3], a4, a1, a2, n] - S2[SP[a1, a1], a2, a3, a4, a5, n] - 
    S2[SP[a1, a1], a2, a3, a5, a4, n] - S2[SP[a1, a1], a2, a4, a3, a5, n] - 
    S2[SP[a1, a1], a2, a4, a5, a3, n] - S2[SP[a1, a1], a2, a5, a3, a4, n] - 
    S2[SP[a1, a1], a2, a5, a4, a3, n] - S2[SP[a1, a1], a3, a2, a4, a5, n] - 
    S2[SP[a1, a1], a3, a2, a5, a4, n] - S2[SP[a1, a1], a3, a4, a2, a5, n] - 
    S2[SP[a1, a1], a4, a2, a3, a5, n] - S2[SP[a1, a1], a4, a2, a5, a3, n] - 
    S2[SP[a1, a1], a4, a3, a2, a5, n] - S2[SP[a1, a1], a4, a5, a2, a3, n] - 
    S2[SP[a1, a1], a4, a5, a3, a2, n] - S2[SP[a1, a1], a5, a2, a3, a4, n] - 
    S2[SP[a1, a1], a5, a2, a4, a3, n] - S2[SP[a1, a1], a5, a3, a2, a4, n] - 
    S2[SP[a1, a1], a5, a3, a4, a2, n] - S2[SP[a1, a1], a5, a4, a2, a3, n] - 
    S2[SP[a1, a1], a5, a4, a3, a2, n] - S2[SP[a1, a4], a1, a3, a5, a2, n] - 
    S2[SP[a1, a4], a3, a1, a5, a2, n] - S2[SP[a1, a4], a3, a5, a1, a2, n] + 
    2*S2[SP[a1, a5], a1, a2, a3, a4, n] + 
    2*S2[SP[a1, a5], a1, a2, a4, a3, n] + 
    2*S2[SP[a1, a5], a1, a3, a2, a4, n] + 
    2*S2[SP[a1, a5], a1, a3, a4, a2, n] + 
    2*S2[SP[a1, a5], a1, a4, a2, a3, n] + 
    2*S2[SP[a1, a5], a1, a4, a3, a2, n] + S2[SP[a1, a5], a2, a1, a3, a4, n] + 
    S2[SP[a1, a5], a2, a1, a4, a3, n] + S2[SP[a1, a5], a2, a3, a1, a4, n] + 
    2*S2[SP[a1, a5], a3, a1, a2, a4, n] + 
    2*S2[SP[a1, a5], a3, a1, a4, a2, n] + S2[SP[a1, a5], a3, a2, a1, a4, n] + 
    S2[SP[a1, a5], a3, a4, a1, a2, n] + S2[SP[a1, a5], a4, a1, a2, a3, n] + 
    S2[SP[a1, a5], a4, a1, a3, a2, n] + S2[SP[a1, a5], a4, a3, a1, a2, n] - 
    2*S2[SP[a3, a5], a1, a1, a2, a4, n] - 
    2*S2[SP[a3, a5], a1, a1, a4, a2, n] - S2[SP[a3, a5], a1, a2, a1, a4, n] - 
    S2[SP[a3, a5], a1, a4, a1, a2, n] - S2[a5, a2, a1, a3, a1, a4, n] - 
    2*S2[a5, a2, a3, a1, a1, a4, n] - S2[a5, a2, a3, a1, a4, a1, n] - 
    S2[a5, a3, a1, a2, a1, a4, n] - S2[a5, a3, a1, a2, a4, a1, n] - 
    S2[a5, a3, a1, a4, a2, a1, n] - 2*S2[a5, a3, a2, a1, a1, a4, n] - 
    S2[a5, a3, a2, a1, a4, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a4_, a1_, a5_, a1_, a2_, a3_, n_] :> 
  S2[a1, a4, n]*S2[a1, a2, a3, a5, n] + S2[a1, a4, n]*S2[a1, a2, a5, a3, n] - 
    S2[a1, a2, SP[a1, a3], SP[a4, a5], n] - S2[a1, a2, SP[a1, a5], 
     SP[a3, a4], n] + S2[a1, a4, n]*S2[a1, a5, a2, a3, n] - 
    S2[a1, a5, SP[a1, a2], SP[a3, a4], n] - S2[a1, SP[a1, a2], a3, 
     SP[a4, a5], n] - S2[a1, SP[a1, a2], a5, SP[a3, a4], n] - 
    S2[a1, SP[a1, a2], SP[a3, a4], a5, n] - S2[a1, SP[a1, a2], SP[a4, a5], 
     a3, n] - S2[a1, SP[a1, a5], a2, SP[a3, a4], n] - 
    S2[a1, SP[a1, a5], SP[a2, a4], a3, n] - S2[SP[a1, a1], a2, a3, 
     SP[a4, a5], n] - S2[SP[a1, a1], a2, a5, SP[a3, a4], n] - 
    S2[SP[a1, a1], a2, SP[a3, a4], a5, n] - S2[SP[a1, a1], a2, SP[a4, a5], 
     a3, n] - S2[SP[a1, a1], a5, a2, SP[a3, a4], n] - 
    S2[SP[a1, a1], a5, SP[a2, a4], a3, n] - S2[SP[a1, a1], SP[a2, a4], a3, 
     a5, n] - S2[SP[a1, a1], SP[a2, a4], a5, a3, n] - 
    S2[SP[a1, a1], SP[a4, a5], a2, a3, n] - 
    2*S2[a5, n]*S2[a1, a1, a2, a3, a4, n] - 
    2*S2[a5, n]*S2[a1, a1, a2, a4, a3, n] - 
    2*S2[a1, a1, a2, a4, SP[a3, a5], n] + 
    2*S2[a1, a1, a2, a5, SP[a3, a4], n] + 
    2*S2[a1, a1, a2, SP[a3, a4], a5, n] - 
    2*S2[a1, a1, a2, SP[a3, a5], a4, n] - 
    2*S2[a5, n]*S2[a1, a1, a4, a2, a3, n] - 
    2*S2[a1, a1, a4, a2, SP[a3, a5], n] - 
    2*S2[a1, a1, a4, SP[a2, a5], a3, n] + 
    2*S2[a1, a1, a5, a2, SP[a3, a4], n] + 
    2*S2[a1, a1, a5, SP[a2, a4], a3, n] + 
    2*S2[a1, a1, SP[a2, a4], a3, a5, n] + 
    2*S2[a1, a1, SP[a2, a4], a5, a3, n] - 
    2*S2[a1, a1, SP[a2, a5], a3, a4, n] - 
    2*S2[a1, a1, SP[a2, a5], a4, a3, n] - 
    S2[a5, n]*S2[a1, a2, a1, a3, a4, n] - 
    S2[a5, n]*S2[a1, a2, a1, a4, a3, n] - S2[a1, a2, a1, a4, SP[a3, a5], n] + 
    S2[a1, a2, a1, a5, SP[a3, a4], n] + S2[a1, a2, a1, SP[a3, a4], a5, n] - 
    S2[a1, a2, a1, SP[a3, a5], a4, n] - S2[a5, n]*S2[a1, a2, a3, a1, a4, n] + 
    S2[a1, a2, a5, a1, SP[a3, a4], n] + S2[a1, a2, a5, SP[a1, a3], a4, n] + 
    S2[a1, a2, SP[a1, a3], a4, a5, n] + S2[a1, a2, SP[a1, a3], a5, a4, n] - 
    S2[a1, a2, SP[a3, a5], a1, a4, n] - S2[a5, n]*S2[a1, a4, a1, a2, a3, n] - 
    S2[a1, a4, a1, a2, SP[a3, a5], n] - S2[a1, a4, a1, SP[a2, a5], a3, n] - 
    S2[a1, a4, SP[a1, a5], a2, a3, n] + S2[a4, n]*S2[a1, a5, a1, a2, a3, n] + 
    2*S2[a1, a5, a1, a2, SP[a3, a4], n] + 
    2*S2[a1, a5, a1, SP[a2, a4], a3, n] + S2[a1, a5, a2, a1, SP[a3, a4], n] + 
    S2[a1, a5, a2, SP[a1, a3], a4, n] + S2[a1, a5, SP[a1, a2], a3, a4, n] + 
    S2[a1, a5, SP[a1, a2], a4, a3, n] + S2[a1, a5, SP[a1, a4], a2, a3, n] + 
    S2[a1, SP[a1, a2], a3, a4, a5, n] + S2[a1, SP[a1, a2], a3, a5, a4, n] + 
    S2[a1, SP[a1, a2], a4, a3, a5, n] + S2[a1, SP[a1, a2], a4, a5, a3, n] + 
    S2[a1, SP[a1, a2], a5, a3, a4, n] + S2[a1, SP[a1, a2], a5, a4, a3, n] + 
    S2[a1, SP[a1, a4], a2, a3, a5, n] + S2[a1, SP[a1, a4], a2, a5, a3, n] + 
    S2[a1, SP[a1, a4], a5, a2, a3, n] - S2[a1, SP[a1, a5], a2, a3, a4, n] - 
    S2[a1, SP[a1, a5], a2, a4, a3, n] - S2[a1, SP[a1, a5], a4, a2, a3, n] - 
    S2[a1, SP[a2, a5], a1, a3, a4, n] - S2[a1, SP[a2, a5], a1, a4, a3, n] - 
    S2[a1, SP[a2, a5], a3, a1, a4, n] + S2[SP[a1, a1], a2, a3, a4, a5, n] + 
    S2[SP[a1, a1], a2, a3, a5, a4, n] + S2[SP[a1, a1], a2, a4, a3, a5, n] + 
    S2[SP[a1, a1], a2, a4, a5, a3, n] + S2[SP[a1, a1], a2, a5, a3, a4, n] + 
    S2[SP[a1, a1], a2, a5, a4, a3, n] + S2[SP[a1, a1], a4, a2, a3, a5, n] + 
    S2[SP[a1, a1], a4, a2, a5, a3, n] + S2[SP[a1, a1], a4, a5, a2, a3, n] + 
    S2[SP[a1, a1], a5, a2, a3, a4, n] + S2[SP[a1, a1], a5, a2, a4, a3, n] + 
    S2[SP[a1, a1], a5, a4, a2, a3, n] + S2[SP[a1, a4], a5, a1, a2, a3, n] - 
    2*S2[SP[a1, a5], a1, a2, a3, a4, n] - 
    2*S2[SP[a1, a5], a1, a2, a4, a3, n] - 
    2*S2[SP[a1, a5], a1, a4, a2, a3, n] - S2[SP[a1, a5], a2, a1, a3, a4, n] - 
    S2[SP[a1, a5], a2, a1, a4, a3, n] - S2[SP[a1, a5], a2, a3, a1, a4, n] - 
    S2[SP[a1, a5], a4, a1, a2, a3, n] + 2*S2[a5, a1, a1, a2, a3, a4, n] + 
    2*S2[a5, a1, a1, a2, a4, a3, n] + 2*S2[a5, a1, a1, a4, a2, a3, n] + 
    S2[a5, a1, a2, a1, a3, a4, n] + S2[a5, a1, a2, a1, a4, a3, n] + 
    S2[a5, a1, a2, a3, a1, a4, n] + S2[a5, a1, a4, a1, a2, a3, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a4_, a1_, a5_, a1_, a3_, a2_, n_] :> 
  S2[a1, a4, n]*S2[a1, a3, a2, a5, n] + S2[a1, a4, n]*S2[a1, a3, a5, a2, n] - 
    S2[a1, a3, SP[a1, a2], SP[a4, a5], n] - S2[a1, a3, SP[a1, a5], 
     SP[a2, a4], n] + S2[a1, a4, n]*S2[a1, a5, a3, a2, n] - 
    S2[a1, a5, SP[a1, a3], SP[a2, a4], n] - S2[a1, SP[a1, a3], a2, 
     SP[a4, a5], n] - S2[a1, SP[a1, a3], a5, SP[a2, a4], n] - 
    S2[a1, SP[a1, a3], SP[a2, a4], a5, n] - S2[a1, SP[a1, a3], SP[a4, a5], 
     a2, n] - S2[a1, SP[a1, a5], a3, SP[a2, a4], n] - 
    S2[a1, SP[a1, a5], SP[a3, a4], a2, n] - S2[SP[a1, a1], a3, a2, 
     SP[a4, a5], n] - S2[SP[a1, a1], a3, a5, SP[a2, a4], n] - 
    S2[SP[a1, a1], a3, SP[a2, a4], a5, n] - S2[SP[a1, a1], a3, SP[a4, a5], 
     a2, n] - S2[SP[a1, a1], a5, a3, SP[a2, a4], n] - 
    S2[SP[a1, a1], a5, SP[a3, a4], a2, n] - S2[SP[a1, a1], SP[a3, a4], a2, 
     a5, n] - S2[SP[a1, a1], SP[a3, a4], a5, a2, n] - 
    S2[SP[a1, a1], SP[a4, a5], a3, a2, n] - 
    2*S2[a5, n]*S2[a1, a1, a3, a2, a4, n] - 
    2*S2[a5, n]*S2[a1, a1, a3, a4, a2, n] - 
    2*S2[a1, a1, a3, a4, SP[a2, a5], n] + 
    2*S2[a1, a1, a3, a5, SP[a2, a4], n] + 
    2*S2[a1, a1, a3, SP[a2, a4], a5, n] - 
    2*S2[a1, a1, a3, SP[a2, a5], a4, n] - 
    2*S2[a5, n]*S2[a1, a1, a4, a3, a2, n] - 
    2*S2[a1, a1, a4, a3, SP[a2, a5], n] - 
    2*S2[a1, a1, a4, SP[a3, a5], a2, n] + 
    2*S2[a1, a1, a5, a3, SP[a2, a4], n] + 
    2*S2[a1, a1, a5, SP[a3, a4], a2, n] + 
    2*S2[a1, a1, SP[a3, a4], a2, a5, n] + 
    2*S2[a1, a1, SP[a3, a4], a5, a2, n] - 
    2*S2[a1, a1, SP[a3, a5], a2, a4, n] - 
    2*S2[a1, a1, SP[a3, a5], a4, a2, n] - 
    S2[a5, n]*S2[a1, a3, a1, a2, a4, n] - 
    S2[a5, n]*S2[a1, a3, a1, a4, a2, n] - S2[a1, a3, a1, a4, SP[a2, a5], n] + 
    S2[a1, a3, a1, a5, SP[a2, a4], n] + S2[a1, a3, a1, SP[a2, a4], a5, n] - 
    S2[a1, a3, a1, SP[a2, a5], a4, n] - S2[a5, n]*S2[a1, a3, a2, a1, a4, n] + 
    S2[a1, a3, a5, a1, SP[a2, a4], n] + S2[a1, a3, a5, SP[a1, a2], a4, n] + 
    S2[a1, a3, SP[a1, a2], a4, a5, n] + S2[a1, a3, SP[a1, a2], a5, a4, n] - 
    S2[a1, a3, SP[a2, a5], a1, a4, n] - S2[a5, n]*S2[a1, a4, a1, a3, a2, n] - 
    S2[a1, a4, a1, a3, SP[a2, a5], n] - S2[a1, a4, a1, SP[a3, a5], a2, n] - 
    S2[a1, a4, SP[a1, a5], a3, a2, n] + S2[a4, n]*S2[a1, a5, a1, a3, a2, n] + 
    2*S2[a1, a5, a1, a3, SP[a2, a4], n] + 
    2*S2[a1, a5, a1, SP[a3, a4], a2, n] + S2[a1, a5, a3, a1, SP[a2, a4], n] + 
    S2[a1, a5, a3, SP[a1, a2], a4, n] + S2[a1, a5, SP[a1, a3], a2, a4, n] + 
    S2[a1, a5, SP[a1, a3], a4, a2, n] + S2[a1, a5, SP[a1, a4], a3, a2, n] + 
    S2[a1, SP[a1, a3], a2, a4, a5, n] + S2[a1, SP[a1, a3], a2, a5, a4, n] + 
    S2[a1, SP[a1, a3], a4, a2, a5, n] + S2[a1, SP[a1, a3], a4, a5, a2, n] + 
    S2[a1, SP[a1, a3], a5, a2, a4, n] + S2[a1, SP[a1, a3], a5, a4, a2, n] + 
    S2[a1, SP[a1, a4], a3, a2, a5, n] + S2[a1, SP[a1, a4], a3, a5, a2, n] + 
    S2[a1, SP[a1, a4], a5, a3, a2, n] - S2[a1, SP[a1, a5], a3, a2, a4, n] - 
    S2[a1, SP[a1, a5], a3, a4, a2, n] - S2[a1, SP[a1, a5], a4, a3, a2, n] - 
    S2[a1, SP[a3, a5], a1, a2, a4, n] - S2[a1, SP[a3, a5], a1, a4, a2, n] - 
    S2[a1, SP[a3, a5], a2, a1, a4, n] + S2[SP[a1, a1], a3, a2, a4, a5, n] + 
    S2[SP[a1, a1], a3, a2, a5, a4, n] + S2[SP[a1, a1], a3, a4, a2, a5, n] + 
    S2[SP[a1, a1], a3, a4, a5, a2, n] + S2[SP[a1, a1], a3, a5, a2, a4, n] + 
    S2[SP[a1, a1], a3, a5, a4, a2, n] + S2[SP[a1, a1], a4, a3, a2, a5, n] + 
    S2[SP[a1, a1], a4, a3, a5, a2, n] + S2[SP[a1, a1], a4, a5, a3, a2, n] + 
    S2[SP[a1, a1], a5, a3, a2, a4, n] + S2[SP[a1, a1], a5, a3, a4, a2, n] + 
    S2[SP[a1, a1], a5, a4, a3, a2, n] + S2[SP[a1, a4], a5, a1, a3, a2, n] - 
    2*S2[SP[a1, a5], a1, a3, a2, a4, n] - 
    2*S2[SP[a1, a5], a1, a3, a4, a2, n] - 
    2*S2[SP[a1, a5], a1, a4, a3, a2, n] - S2[SP[a1, a5], a3, a1, a2, a4, n] - 
    S2[SP[a1, a5], a3, a1, a4, a2, n] - S2[SP[a1, a5], a3, a2, a1, a4, n] - 
    S2[SP[a1, a5], a4, a1, a3, a2, n] + 2*S2[a5, a1, a1, a3, a2, a4, n] + 
    2*S2[a5, a1, a1, a3, a4, a2, n] + 2*S2[a5, a1, a1, a4, a3, a2, n] + 
    S2[a5, a1, a3, a1, a2, a4, n] + S2[a5, a1, a3, a1, a4, a2, n] + 
    S2[a5, a1, a3, a2, a1, a4, n] + S2[a5, a1, a4, a1, a3, a2, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a4_, a1_, a5_, a2_, a1_, a3_, n_] :> 
  -(S2[a1, a4, n]*S2[a1, a2, a3, a5, n]) - S2[a1, a4, n]*
     S2[a1, a2, a5, a3, n] + S2[a1, a2, SP[a1, a3], SP[a4, a5], n] + 
    S2[a1, a2, SP[a1, a5], SP[a3, a4], n] - S2[a1, a4, n]*
     S2[a1, a3, a2, a5, n] + S2[a1, a3, SP[a1, a2], SP[a4, a5], n] - 
    S2[a1, a3, n]*S2[a1, a4, a5, a2, n] + S2[a1, a4, SP[a1, a5], SP[a2, a3], 
     n] - S2[a1, a3, n]*S2[a1, a5, a2, a4, n] - 
    S2[a1, a3, n]*S2[a1, a5, a4, a2, n] + S2[a1, a5, SP[a1, a2], SP[a3, a4], 
     n] + S2[a1, a5, SP[a1, a4], SP[a2, a3], n] + S2[a1, SP[a1, a2], a3, 
     SP[a4, a5], n] + S2[a1, SP[a1, a2], a5, SP[a3, a4], n] + 
    S2[a1, SP[a1, a2], SP[a3, a4], a5, n] + S2[a1, SP[a1, a2], SP[a4, a5], 
     a3, n] + S2[a1, SP[a1, a3], a2, SP[a4, a5], n] + 
    S2[a1, SP[a1, a3], SP[a2, a4], a5, n] + S2[a1, SP[a1, a4], a5, 
     SP[a2, a3], n] + S2[a1, SP[a1, a4], SP[a3, a5], a2, n] + 
    S2[a1, SP[a1, a5], a2, SP[a3, a4], n] + S2[a1, SP[a1, a5], a4, 
     SP[a2, a3], n] + S2[a1, SP[a1, a5], SP[a2, a3], a4, n] + 
    S2[a1, SP[a1, a5], SP[a3, a4], a2, n] + S2[a1, a3, n]*
     S2[a2, a5, a1, a4, n] - S2[a2, a5, SP[a1, a1], SP[a3, a4], n] - 
    S2[a2, SP[a1, a5], a1, SP[a3, a4], n] - S2[a2, SP[a1, a5], SP[a1, a3], 
     a4, n] + S2[SP[a1, a1], a2, a3, SP[a4, a5], n] + 
    S2[SP[a1, a1], a2, a5, SP[a3, a4], n] + S2[SP[a1, a1], a2, SP[a3, a4], 
     a5, n] + S2[SP[a1, a1], a2, SP[a4, a5], a3, n] + 
    S2[SP[a1, a1], a3, a2, SP[a4, a5], n] + S2[SP[a1, a1], a3, SP[a2, a4], 
     a5, n] + S2[SP[a1, a1], a4, a5, SP[a2, a3], n] + 
    S2[SP[a1, a1], a4, SP[a3, a5], a2, n] + S2[SP[a1, a1], a5, a2, 
     SP[a3, a4], n] + S2[SP[a1, a1], a5, a4, SP[a2, a3], n] + 
    S2[SP[a1, a1], a5, SP[a2, a3], a4, n] + S2[SP[a1, a1], a5, SP[a3, a4], 
     a2, n] + S2[SP[a1, a1], SP[a2, a4], a3, a5, n] + 
    S2[SP[a1, a1], SP[a2, a4], a5, a3, n] + S2[SP[a1, a1], SP[a3, a4], a2, 
     a5, n] + S2[SP[a1, a1], SP[a3, a4], a5, a2, n] + 
    S2[SP[a1, a1], SP[a3, a5], a2, a4, n] + S2[SP[a1, a1], SP[a3, a5], a4, 
     a2, n] - S2[SP[a1, a2], a5, a1, SP[a3, a4], n] - 
    S2[SP[a1, a2], a5, SP[a1, a3], a4, n] - S2[SP[a1, a2], SP[a3, a5], a1, 
     a4, n] + 2*S2[a5, n]*S2[a1, a1, a2, a3, a4, n] + 
    2*S2[a5, n]*S2[a1, a1, a2, a4, a3, n] + 
    2*S2[a1, a1, a2, a4, SP[a3, a5], n] - 
    2*S2[a1, a1, a2, a5, SP[a3, a4], n] - 
    2*S2[a1, a1, a2, SP[a3, a4], a5, n] + 
    2*S2[a1, a1, a2, SP[a3, a5], a4, n] + 
    2*S2[a5, n]*S2[a1, a1, a3, a2, a4, n] + 
    2*S2[a5, n]*S2[a1, a1, a3, a4, a2, n] + 
    2*S2[a1, a1, a3, a4, SP[a2, a5], n] - 
    2*S2[a1, a1, a3, SP[a2, a4], a5, n] + 
    2*S2[a1, a1, a3, SP[a2, a5], a4, n] + 
    2*S2[a1, a1, a3, SP[a4, a5], a2, n] + 
    2*S2[a5, n]*S2[a1, a1, a4, a2, a3, n] + 
    2*S2[a1, a1, a4, a2, SP[a3, a5], n] + 
    2*S2[a5, n]*S2[a1, a1, a4, a3, a2, n] + 
    2*S2[a1, a1, a4, a3, SP[a2, a5], n] - 
    2*S2[a1, a1, a4, a5, SP[a2, a3], n] + 
    2*S2[a1, a1, a4, SP[a2, a5], a3, n] - 
    2*S2[a1, a1, a5, a2, SP[a3, a4], n] - 
    2*S2[a1, a1, a5, a4, SP[a2, a3], n] - 
    2*S2[a1, a1, a5, SP[a2, a3], a4, n] - 
    2*S2[a1, a1, a5, SP[a3, a4], a2, n] - 
    2*S2[a1, a1, SP[a2, a4], a3, a5, n] - 
    2*S2[a1, a1, SP[a2, a4], a5, a3, n] + 
    2*S2[a1, a1, SP[a2, a5], a3, a4, n] + 
    2*S2[a1, a1, SP[a2, a5], a4, a3, n] - 
    2*S2[a1, a1, SP[a3, a4], a2, a5, n] - 
    2*S2[a1, a1, SP[a3, a4], a5, a2, n] + 
    2*S2[a1, a1, SP[a4, a5], a2, a3, n] + 
    2*S2[a1, a1, SP[a4, a5], a3, a2, n] + 
    S2[a5, n]*S2[a1, a2, a1, a3, a4, n] + 
    S2[a5, n]*S2[a1, a2, a1, a4, a3, n] + S2[a1, a2, a1, a4, SP[a3, a5], n] - 
    S2[a1, a2, a1, a5, SP[a3, a4], n] - S2[a1, a2, a1, SP[a3, a4], a5, n] + 
    S2[a1, a2, a1, SP[a3, a5], a4, n] + S2[a5, n]*S2[a1, a2, a3, a1, a4, n] - 
    S2[a1, a2, SP[a1, a3], a4, a5, n] - S2[a1, a2, SP[a1, a3], a5, a4, n] + 
    2*S2[a1, a2, SP[a3, a5], a1, a4, n] + 
    S2[a5, n]*S2[a1, a3, a1, a2, a4, n] + 
    S2[a5, n]*S2[a1, a3, a1, a4, a2, n] + S2[a1, a3, a1, a4, SP[a2, a5], n] - 
    S2[a1, a3, a1, SP[a2, a4], a5, n] + S2[a1, a3, a1, SP[a2, a5], a4, n] + 
    S2[a1, a3, a1, SP[a4, a5], a2, n] + S2[a5, n]*S2[a1, a3, a2, a1, a4, n] - 
    S2[a2, n]*S2[a1, a3, a5, a1, a4, n] - S2[a1, a3, a5, a1, SP[a2, a4], n] - 
    S2[a1, a3, a5, SP[a1, a2], a4, n] - S2[a1, a3, SP[a1, a2], a4, a5, n] - 
    S2[a1, a3, SP[a1, a2], a5, a4, n] + S2[a1, a3, SP[a1, a5], a2, a4, n] + 
    S2[a1, a3, SP[a1, a5], a4, a2, n] + S2[a5, n]*S2[a1, a4, a1, a2, a3, n] + 
    S2[a1, a4, a1, a2, SP[a3, a5], n] + S2[a5, n]*S2[a1, a4, a1, a3, a2, n] + 
    S2[a1, a4, a1, a3, SP[a2, a5], n] - S2[a1, a4, a1, a5, SP[a2, a3], n] + 
    S2[a1, a4, a1, SP[a2, a5], a3, n] - S2[a1, a4, a5, a1, SP[a2, a3], n] - 
    S2[a1, a4, a5, SP[a1, a2], a3, n] - S2[a1, a5, a1, a2, SP[a3, a4], n] - 
    S2[a2, n]*S2[a1, a5, a1, a3, a4, n] - S2[a1, a5, a1, a3, SP[a2, a4], n] - 
    S2[a2, n]*S2[a1, a5, a1, a4, a3, n] - 
    2*S2[a1, a5, a1, a4, SP[a2, a3], n] - 
    2*S2[a1, a5, a1, SP[a2, a3], a4, n] - S2[a1, a5, a1, SP[a2, a4], a3, n] - 
    S2[a1, a5, a1, SP[a3, a4], a2, n] + S2[a4, n]*S2[a1, a5, a2, a1, a3, n] - 
    S2[a2, n]*S2[a1, a5, a3, a1, a4, n] - S2[a1, a5, a3, a1, SP[a2, a4], n] - 
    S2[a1, a5, a3, SP[a1, a2], a4, n] - S2[a1, a5, a4, a1, SP[a2, a3], n] - 
    S2[a1, a5, a4, SP[a1, a2], a3, n] - 2*S2[a1, a5, SP[a1, a2], a3, a4, n] - 
    2*S2[a1, a5, SP[a1, a2], a4, a3, n] - S2[a1, a5, SP[a1, a4], a2, a3, n] - 
    S2[a1, a5, SP[a1, a4], a3, a2, n] - S2[a1, a5, SP[a2, a3], a1, a4, n] + 
    S2[a1, a5, SP[a2, a4], a1, a3, n] - S2[a1, SP[a1, a2], a3, a4, a5, n] - 
    S2[a1, SP[a1, a2], a3, a5, a4, n] - S2[a1, SP[a1, a2], a4, a3, a5, n] - 
    S2[a1, SP[a1, a2], a4, a5, a3, n] - S2[a1, SP[a1, a2], a5, a3, a4, n] - 
    S2[a1, SP[a1, a2], a5, a4, a3, n] - S2[a1, SP[a1, a3], a2, a4, a5, n] - 
    S2[a1, SP[a1, a3], a2, a5, a4, n] - S2[a1, SP[a1, a3], a4, a2, a5, n] - 
    S2[a1, SP[a1, a3], a4, a5, a2, n] - S2[a1, SP[a1, a3], a5, a2, a4, n] - 
    S2[a1, SP[a1, a3], a5, a4, a2, n] - S2[a1, SP[a1, a4], a2, a3, a5, n] - 
    S2[a1, SP[a1, a4], a2, a5, a3, n] - S2[a1, SP[a1, a4], a3, a2, a5, n] - 
    S2[a1, SP[a1, a4], a3, a5, a2, n] - S2[a1, SP[a1, a4], a5, a2, a3, n] - 
    S2[a1, SP[a1, a4], a5, a3, a2, n] + S2[a1, SP[a1, a5], a2, a3, a4, n] + 
    S2[a1, SP[a1, a5], a2, a4, a3, n] + S2[a1, SP[a1, a5], a3, a2, a4, n] + 
    S2[a1, SP[a1, a5], a3, a4, a2, n] + S2[a1, SP[a1, a5], a4, a2, a3, n] + 
    S2[a1, SP[a1, a5], a4, a3, a2, n] + S2[a1, SP[a3, a5], a1, a2, a4, n] + 
    S2[a1, SP[a3, a5], a1, a4, a2, n] + S2[a1, SP[a3, a5], a2, a1, a4, n] + 
    S2[a1, SP[a4, a5], a1, a2, a3, n] + S2[a1, SP[a4, a5], a1, a3, a2, n] + 
    S2[a1, SP[a4, a5], a2, a1, a3, n] + S2[a2, a1, a5, a1, SP[a3, a4], n] + 
    S2[a2, a1, a5, SP[a1, a3], a4, n] + S2[a2, a1, SP[a3, a5], a1, a4, n] + 
    2*S2[a2, a5, a1, a1, SP[a3, a4], n] + S2[a2, a5, a1, SP[a1, a3], a4, n] + 
    S2[a2, a5, a1, SP[a1, a4], a3, n] + S2[a2, a5, SP[a1, a1], a3, a4, n] + 
    S2[a2, a5, SP[a1, a1], a4, a3, n] + S2[a2, SP[a1, a5], a1, a3, a4, n] + 
    S2[a2, SP[a1, a5], a1, a4, a3, n] + S2[a2, SP[a1, a5], a3, a1, a4, n] - 
    2*S2[a2, n]*S2[a5, a1, a1, a3, a4, n] - 
    2*S2[a5, a1, a1, a3, SP[a2, a4], n] - 
    2*S2[a2, n]*S2[a5, a1, a1, a4, a3, n] - 
    2*S2[a5, a1, a1, a4, SP[a2, a3], n] - 
    2*S2[a5, a1, a1, SP[a2, a3], a4, n] - 
    2*S2[a5, a1, a1, SP[a2, a4], a3, n] - 
    S2[a2, n]*S2[a5, a1, a3, a1, a4, n] - S2[a5, a1, a3, a1, SP[a2, a4], n] - 
    S2[a5, a1, a3, SP[a1, a2], a4, n] - S2[a2, n]*S2[a5, a1, a4, a1, a3, n] - 
    S2[a5, a1, a4, a1, SP[a2, a3], n] - S2[a5, a1, a4, SP[a1, a2], a3, n] - 
    2*S2[a5, a1, SP[a1, a2], a3, a4, n] - 
    2*S2[a5, a1, SP[a1, a2], a4, a3, n] - S2[a5, a1, SP[a2, a3], a1, a4, n] - 
    S2[a5, a1, SP[a2, a4], a1, a3, n] - 2*S2[a5, SP[a1, a2], a1, a3, a4, n] - 
    2*S2[a5, SP[a1, a2], a1, a4, a3, n] - S2[a5, SP[a1, a2], a3, a1, a4, n] - 
    S2[a5, SP[a1, a2], a4, a1, a3, n] - S2[SP[a1, a1], a2, a3, a4, a5, n] - 
    S2[SP[a1, a1], a2, a3, a5, a4, n] - S2[SP[a1, a1], a2, a4, a3, a5, n] - 
    S2[SP[a1, a1], a2, a4, a5, a3, n] - S2[SP[a1, a1], a2, a5, a3, a4, n] - 
    S2[SP[a1, a1], a2, a5, a4, a3, n] - S2[SP[a1, a1], a3, a2, a4, a5, n] - 
    S2[SP[a1, a1], a3, a2, a5, a4, n] - S2[SP[a1, a1], a3, a4, a2, a5, n] - 
    S2[SP[a1, a1], a3, a4, a5, a2, n] - S2[SP[a1, a1], a3, a5, a2, a4, n] - 
    S2[SP[a1, a1], a3, a5, a4, a2, n] - S2[SP[a1, a1], a4, a2, a3, a5, n] - 
    S2[SP[a1, a1], a4, a2, a5, a3, n] - S2[SP[a1, a1], a4, a3, a2, a5, n] - 
    S2[SP[a1, a1], a4, a3, a5, a2, n] - S2[SP[a1, a1], a4, a5, a2, a3, n] - 
    S2[SP[a1, a1], a4, a5, a3, a2, n] - S2[SP[a1, a1], a5, a2, a3, a4, n] - 
    S2[SP[a1, a1], a5, a2, a4, a3, n] - S2[SP[a1, a1], a5, a3, a2, a4, n] - 
    S2[SP[a1, a1], a5, a3, a4, a2, n] - S2[SP[a1, a1], a5, a4, a2, a3, n] - 
    S2[SP[a1, a1], a5, a4, a3, a2, n] + S2[SP[a1, a4], a5, a2, a1, a3, n] + 
    2*S2[SP[a1, a5], a1, a2, a3, a4, n] + 
    2*S2[SP[a1, a5], a1, a2, a4, a3, n] + 
    2*S2[SP[a1, a5], a1, a3, a2, a4, n] + 
    2*S2[SP[a1, a5], a1, a3, a4, a2, n] + 
    2*S2[SP[a1, a5], a1, a4, a2, a3, n] + 
    2*S2[SP[a1, a5], a1, a4, a3, a2, n] + S2[SP[a1, a5], a2, a1, a3, a4, n] + 
    S2[SP[a1, a5], a2, a1, a4, a3, n] + S2[SP[a1, a5], a2, a3, a1, a4, n] + 
    S2[SP[a1, a5], a3, a1, a2, a4, n] + S2[SP[a1, a5], a3, a1, a4, a2, n] + 
    S2[SP[a1, a5], a3, a2, a1, a4, n] + S2[SP[a1, a5], a4, a1, a2, a3, n] + 
    S2[SP[a1, a5], a4, a1, a3, a2, n] - 2*S2[SP[a2, a5], a1, a1, a3, a4, n] - 
    2*S2[SP[a2, a5], a1, a1, a4, a3, n] - S2[SP[a2, a5], a1, a3, a1, a4, n] - 
    S2[SP[a2, a5], a1, a4, a1, a3, n] + S2[a5, a1, a2, a1, a3, a4, n] + 
    S2[a5, a1, a2, a1, a4, a3, n] + S2[a5, a1, a2, a4, a1, a3, n] + 
    S2[a5, a1, a4, a2, a1, a3, n] + 2*S2[a5, a2, a1, a1, a3, a4, n] + 
    2*S2[a5, a2, a1, a1, a4, a3, n] + S2[a5, a2, a1, a3, a1, a4, n] + 
    S2[a5, a2, a1, a4, a1, a3, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a4_, a1_, a5_, a2_, a3_, a1_, n_] :> 
  S2[a1, a4, n]*S2[a1, a3, a2, a5, n] - S2[a1, a3, SP[a1, a2], SP[a4, a5], 
     n] + S2[a1, a3, n]*S2[a1, a4, a5, a2, n] - S2[a1, a4, SP[a1, a5], 
     SP[a2, a3], n] + S2[a1, a3, n]*S2[a1, a5, a2, a4, n] + 
    S2[a1, a3, n]*S2[a1, a5, a4, a2, n] - S2[a1, a5, SP[a1, a2], SP[a3, a4], 
     n] - S2[a1, a5, SP[a1, a4], SP[a2, a3], n] - S2[a1, SP[a1, a3], a2, 
     SP[a4, a5], n] - S2[a1, SP[a1, a3], SP[a2, a4], a5, n] - 
    S2[a1, SP[a1, a4], a5, SP[a2, a3], n] - S2[a1, SP[a1, a4], SP[a3, a5], 
     a2, n] - S2[a1, SP[a1, a5], a2, SP[a3, a4], n] - 
    S2[a1, SP[a1, a5], a4, SP[a2, a3], n] - S2[a1, SP[a1, a5], SP[a2, a3], 
     a4, n] - S2[a1, SP[a1, a5], SP[a3, a4], a2, n] - 
    S2[a1, a3, n]*S2[a2, a5, a1, a4, n] + S2[a2, a5, SP[a1, a1], SP[a3, a4], 
     n] + S2[a2, SP[a1, a5], a1, SP[a3, a4], n] + 
    S2[a2, SP[a1, a5], SP[a1, a3], a4, n] - S2[SP[a1, a1], a3, a2, 
     SP[a4, a5], n] - S2[SP[a1, a1], a3, SP[a2, a4], a5, n] - 
    S2[SP[a1, a1], a4, a5, SP[a2, a3], n] - S2[SP[a1, a1], a4, SP[a3, a5], 
     a2, n] - S2[SP[a1, a1], a5, a2, SP[a3, a4], n] - 
    S2[SP[a1, a1], a5, a4, SP[a2, a3], n] - S2[SP[a1, a1], a5, SP[a2, a3], 
     a4, n] - S2[SP[a1, a1], a5, SP[a3, a4], a2, n] - 
    S2[SP[a1, a1], SP[a3, a4], a2, a5, n] - S2[SP[a1, a1], SP[a3, a4], a5, 
     a2, n] - S2[SP[a1, a1], SP[a3, a5], a2, a4, n] - 
    S2[SP[a1, a1], SP[a3, a5], a4, a2, n] + S2[SP[a1, a2], a5, a1, 
     SP[a3, a4], n] + S2[SP[a1, a2], a5, SP[a1, a3], a4, n] + 
    S2[SP[a1, a2], SP[a3, a5], a1, a4, n] - 
    2*S2[a5, n]*S2[a1, a1, a3, a2, a4, n] - 
    2*S2[a5, n]*S2[a1, a1, a3, a4, a2, n] - 
    2*S2[a1, a1, a3, a4, SP[a2, a5], n] + 
    2*S2[a1, a1, a3, SP[a2, a4], a5, n] - 
    2*S2[a1, a1, a3, SP[a2, a5], a4, n] - 
    2*S2[a1, a1, a3, SP[a4, a5], a2, n] - 
    2*S2[a5, n]*S2[a1, a1, a4, a3, a2, n] - 
    2*S2[a1, a1, a4, a3, SP[a2, a5], n] + 
    2*S2[a1, a1, a4, a5, SP[a2, a3], n] - 
    2*S2[a4, n]*S2[a1, a1, a5, a2, a3, n] + 
    2*S2[a1, a1, a5, a4, SP[a2, a3], n] + 
    2*S2[a1, a1, a5, SP[a2, a3], a4, n] - 
    2*S2[a1, a1, a5, SP[a2, a4], a3, n] + 
    2*S2[a1, a1, a5, SP[a3, a4], a2, n] + 
    2*S2[a1, a1, SP[a3, a4], a2, a5, n] + 
    2*S2[a1, a1, SP[a3, a4], a5, a2, n] - 
    2*S2[a1, a1, SP[a4, a5], a2, a3, n] - 
    2*S2[a1, a1, SP[a4, a5], a3, a2, n] - S2[a1, a2, a5, a1, SP[a3, a4], n] - 
    S2[a1, a2, a5, SP[a1, a3], a4, n] - S2[a1, a2, SP[a3, a5], a1, a4, n] - 
    S2[a5, n]*S2[a1, a3, a1, a2, a4, n] - 
    S2[a5, n]*S2[a1, a3, a1, a4, a2, n] - S2[a1, a3, a1, a4, SP[a2, a5], n] + 
    S2[a1, a3, a1, SP[a2, a4], a5, n] - S2[a1, a3, a1, SP[a2, a5], a4, n] - 
    S2[a1, a3, a1, SP[a4, a5], a2, n] - S2[a5, n]*S2[a1, a3, a2, a1, a4, n] + 
    S2[a2, n]*S2[a1, a3, a5, a1, a4, n] + S2[a1, a3, a5, a1, SP[a2, a4], n] + 
    S2[a1, a3, a5, SP[a1, a2], a4, n] + S2[a1, a3, SP[a1, a2], a4, a5, n] + 
    S2[a1, a3, SP[a1, a2], a5, a4, n] - S2[a1, a3, SP[a1, a5], a2, a4, n] - 
    S2[a1, a3, SP[a1, a5], a4, a2, n] - S2[a5, n]*S2[a1, a4, a1, a3, a2, n] - 
    S2[a1, a4, a1, a3, SP[a2, a5], n] + S2[a1, a4, a1, a5, SP[a2, a3], n] + 
    S2[a1, a4, a5, a1, SP[a2, a3], n] + S2[a1, a4, a5, SP[a1, a2], a3, n] + 
    S2[a1, a4, SP[a1, a5], a2, a3, n] - S2[a4, n]*S2[a1, a5, a1, a2, a3, n] + 
    S2[a2, n]*S2[a1, a5, a1, a3, a4, n] + S2[a1, a5, a1, a3, SP[a2, a4], n] + 
    S2[a2, n]*S2[a1, a5, a1, a4, a3, n] + 
    2*S2[a1, a5, a1, a4, SP[a2, a3], n] + 
    2*S2[a1, a5, a1, SP[a2, a3], a4, n] + S2[a1, a5, a1, SP[a3, a4], a2, n] - 
    S2[a4, n]*S2[a1, a5, a2, a1, a3, n] + 
    S2[a2, n]*S2[a1, a5, a3, a1, a4, n] + S2[a1, a5, a3, a1, SP[a2, a4], n] + 
    S2[a1, a5, a3, SP[a1, a2], a4, n] + S2[a1, a5, a4, a1, SP[a2, a3], n] + 
    S2[a1, a5, a4, SP[a1, a2], a3, n] + 2*S2[a1, a5, SP[a1, a2], a3, a4, n] + 
    2*S2[a1, a5, SP[a1, a2], a4, a3, n] + S2[a1, a5, SP[a1, a4], a3, a2, n] + 
    S2[a1, a5, SP[a2, a3], a1, a4, n] - S2[a1, a5, SP[a2, a4], a1, a3, n] + 
    S2[a1, SP[a1, a3], a2, a4, a5, n] + S2[a1, SP[a1, a3], a2, a5, a4, n] + 
    S2[a1, SP[a1, a3], a4, a2, a5, n] + S2[a1, SP[a1, a3], a4, a5, a2, n] + 
    S2[a1, SP[a1, a3], a5, a2, a4, n] + S2[a1, SP[a1, a3], a5, a4, a2, n] + 
    S2[a1, SP[a1, a4], a3, a2, a5, n] + S2[a1, SP[a1, a4], a3, a5, a2, n] - 
    S2[a1, SP[a1, a4], a5, a2, a3, n] + S2[a1, SP[a1, a4], a5, a3, a2, n] + 
    S2[a1, SP[a1, a5], a2, a3, a4, n] + S2[a1, SP[a1, a5], a2, a4, a3, n] - 
    S2[a1, SP[a1, a5], a3, a2, a4, n] - S2[a1, SP[a1, a5], a3, a4, a2, n] + 
    S2[a1, SP[a1, a5], a4, a2, a3, n] - S2[a1, SP[a1, a5], a4, a3, a2, n] + 
    S2[a1, SP[a2, a5], a1, a3, a4, n] + S2[a1, SP[a2, a5], a1, a4, a3, n] + 
    S2[a1, SP[a2, a5], a3, a1, a4, n] - S2[a1, SP[a3, a5], a1, a2, a4, n] - 
    S2[a1, SP[a3, a5], a1, a4, a2, n] - S2[a1, SP[a3, a5], a2, a1, a4, n] - 
    S2[a1, SP[a4, a5], a1, a2, a3, n] - S2[a1, SP[a4, a5], a1, a3, a2, n] - 
    S2[a1, SP[a4, a5], a2, a1, a3, n] - S2[a2, a1, a5, a1, SP[a3, a4], n] - 
    S2[a2, a1, a5, SP[a1, a3], a4, n] - S2[a2, a1, SP[a3, a5], a1, a4, n] - 
    2*S2[a2, a5, a1, a1, SP[a3, a4], n] - S2[a2, a5, a1, SP[a1, a3], a4, n] - 
    S2[a2, a5, a1, SP[a1, a4], a3, n] - S2[a2, a5, SP[a1, a1], a3, a4, n] - 
    S2[a2, a5, SP[a1, a1], a4, a3, n] - S2[a2, SP[a1, a5], a1, a3, a4, n] - 
    S2[a2, SP[a1, a5], a1, a4, a3, n] - S2[a2, SP[a1, a5], a3, a1, a4, n] + 
    S2[a1, n]*S2[a4, a1, a5, a2, a3, n] + S2[a4, a1, a5, a2, SP[a1, a3], n] + 
    S2[a4, a1, a5, SP[a1, a2], a3, n] + S2[a4, a1, SP[a1, a5], a2, a3, n] + 
    S2[a4, SP[a1, a1], a5, a2, a3, n] + 2*S2[a2, n]*
     S2[a5, a1, a1, a3, a4, n] + 2*S2[a5, a1, a1, a3, SP[a2, a4], n] + 
    2*S2[a2, n]*S2[a5, a1, a1, a4, a3, n] + 
    2*S2[a5, a1, a1, a4, SP[a2, a3], n] + 
    2*S2[a5, a1, a1, SP[a2, a3], a4, n] + 
    2*S2[a5, a1, a1, SP[a2, a4], a3, n] - 
    S2[a1, n]*S2[a5, a1, a2, a3, a4, n] - S2[a5, a1, a2, a3, SP[a1, a4], n] - 
    S2[a1, n]*S2[a5, a1, a2, a4, a3, n] - S2[a5, a1, a2, a4, SP[a1, a3], n] - 
    S2[a5, a1, a2, SP[a1, a3], a4, n] - S2[a5, a1, a2, SP[a1, a4], a3, n] + 
    S2[a2, n]*S2[a5, a1, a3, a1, a4, n] + S2[a5, a1, a3, a1, SP[a2, a4], n] + 
    S2[a5, a1, a3, SP[a1, a2], a4, n] + S2[a2, n]*S2[a5, a1, a4, a1, a3, n] + 
    S2[a5, a1, a4, a1, SP[a2, a3], n] - S2[a1, n]*S2[a5, a1, a4, a2, a3, n] - 
    S2[a5, a1, a4, a2, SP[a1, a3], n] + S2[a5, a1, SP[a1, a2], a3, a4, n] + 
    S2[a5, a1, SP[a1, a2], a4, a3, n] - S2[a5, a1, SP[a1, a4], a2, a3, n] + 
    S2[a5, a1, SP[a2, a3], a1, a4, n] + S2[a5, a1, SP[a2, a4], a1, a3, n] - 
    S2[a1, n]*S2[a5, a2, a1, a3, a4, n] - S2[a5, a2, a1, a3, SP[a1, a4], n] - 
    S2[a1, n]*S2[a5, a2, a1, a4, a3, n] - S2[a5, a2, a1, a4, SP[a1, a3], n] - 
    S2[a5, a2, a1, SP[a1, a3], a4, n] - S2[a5, a2, a1, SP[a1, a4], a3, n] - 
    S2[a1, n]*S2[a5, a2, a3, a1, a4, n] - S2[a5, a2, a3, a1, SP[a1, a4], n] - 
    S2[a5, a2, a3, SP[a1, a1], a4, n] - S2[a5, a2, SP[a1, a1], a3, a4, n] - 
    S2[a5, a2, SP[a1, a1], a4, a3, n] - S2[a5, a2, SP[a1, a3], a1, a4, n] - 
    S2[a5, SP[a1, a1], a2, a3, a4, n] - S2[a5, SP[a1, a1], a2, a4, a3, n] - 
    S2[a5, SP[a1, a1], a4, a2, a3, n] + S2[a5, SP[a1, a2], a1, a3, a4, n] + 
    S2[a5, SP[a1, a2], a1, a4, a3, n] + S2[a5, SP[a1, a2], a4, a1, a3, n] + 
    S2[SP[a1, a1], a3, a2, a4, a5, n] + S2[SP[a1, a1], a3, a2, a5, a4, n] + 
    S2[SP[a1, a1], a3, a4, a2, a5, n] + S2[SP[a1, a1], a3, a4, a5, a2, n] + 
    S2[SP[a1, a1], a3, a5, a2, a4, n] + S2[SP[a1, a1], a3, a5, a4, a2, n] + 
    S2[SP[a1, a1], a4, a3, a2, a5, n] + S2[SP[a1, a1], a4, a3, a5, a2, n] + 
    S2[SP[a1, a1], a4, a5, a2, a3, n] + S2[SP[a1, a1], a4, a5, a3, a2, n] + 
    S2[SP[a1, a1], a5, a2, a3, a4, n] + S2[SP[a1, a1], a5, a2, a4, a3, n] + 
    S2[SP[a1, a1], a5, a3, a2, a4, n] + S2[SP[a1, a1], a5, a3, a4, a2, n] + 
    S2[SP[a1, a1], a5, a4, a2, a3, n] + S2[SP[a1, a1], a5, a4, a3, a2, n] - 
    S2[SP[a1, a4], a1, a5, a2, a3, n] - S2[SP[a1, a4], a5, a1, a2, a3, n] - 
    S2[SP[a1, a4], a5, a2, a1, a3, n] - S2[SP[a1, a5], a1, a2, a3, a4, n] - 
    S2[SP[a1, a5], a1, a2, a4, a3, n] - 2*S2[SP[a1, a5], a1, a3, a2, a4, n] - 
    2*S2[SP[a1, a5], a1, a3, a4, a2, n] - S2[SP[a1, a5], a1, a4, a2, a3, n] - 
    2*S2[SP[a1, a5], a1, a4, a3, a2, n] - S2[SP[a1, a5], a2, a1, a3, a4, n] - 
    S2[SP[a1, a5], a2, a1, a4, a3, n] - S2[SP[a1, a5], a2, a3, a1, a4, n] - 
    S2[SP[a1, a5], a3, a1, a2, a4, n] - S2[SP[a1, a5], a3, a1, a4, a2, n] - 
    S2[SP[a1, a5], a3, a2, a1, a4, n] - S2[SP[a1, a5], a4, a1, a3, a2, n] + 
    2*S2[SP[a2, a5], a1, a1, a3, a4, n] + 
    2*S2[SP[a2, a5], a1, a1, a4, a3, n] + S2[SP[a2, a5], a1, a3, a1, a4, n] + 
    S2[SP[a2, a5], a1, a4, a1, a3, n] + S2[a5, a1, a2, a3, a1, a4, n] + 
    S2[a5, a1, a2, a3, a4, a1, n] + S2[a5, a1, a2, a4, a3, a1, n] + 
    S2[a5, a1, a4, a2, a3, a1, n] + S2[a5, a2, a1, a3, a1, a4, n] + 
    S2[a5, a2, a1, a3, a4, a1, n] + S2[a5, a2, a1, a4, a3, a1, n] + 
    2*S2[a5, a2, a3, a1, a1, a4, n] + S2[a5, a2, a3, a1, a4, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a4_, a1_, a5_, a3_, a1_, a2_, n_] :> 
  -(S2[a1, a4, n]*S2[a1, a2, a3, a5, n]) + S2[a1, a2, SP[a1, a3], SP[a4, a5], 
     n] - S2[a1, a4, n]*S2[a1, a3, a2, a5, n] - 
    S2[a1, a4, n]*S2[a1, a3, a5, a2, n] + S2[a1, a3, SP[a1, a2], SP[a4, a5], 
     n] + S2[a1, a3, SP[a1, a5], SP[a2, a4], n] - 
    S2[a1, a2, n]*S2[a1, a4, a5, a3, n] + S2[a1, a4, SP[a1, a5], SP[a2, a3], 
     n] - S2[a1, a2, n]*S2[a1, a5, a3, a4, n] - 
    S2[a1, a2, n]*S2[a1, a5, a4, a3, n] + S2[a1, a5, SP[a1, a3], SP[a2, a4], 
     n] + S2[a1, a5, SP[a1, a4], SP[a2, a3], n] + S2[a1, SP[a1, a2], a3, 
     SP[a4, a5], n] + S2[a1, SP[a1, a2], SP[a3, a4], a5, n] + 
    S2[a1, SP[a1, a3], a2, SP[a4, a5], n] + S2[a1, SP[a1, a3], a5, 
     SP[a2, a4], n] + S2[a1, SP[a1, a3], SP[a2, a4], a5, n] + 
    S2[a1, SP[a1, a3], SP[a4, a5], a2, n] + S2[a1, SP[a1, a4], a5, 
     SP[a2, a3], n] + S2[a1, SP[a1, a4], SP[a2, a5], a3, n] + 
    S2[a1, SP[a1, a5], a3, SP[a2, a4], n] + S2[a1, SP[a1, a5], a4, 
     SP[a2, a3], n] + S2[a1, SP[a1, a5], SP[a2, a3], a4, n] + 
    S2[a1, SP[a1, a5], SP[a2, a4], a3, n] + S2[a1, a2, n]*
     S2[a3, a5, a1, a4, n] - S2[a3, a5, SP[a1, a1], SP[a2, a4], n] - 
    S2[a3, SP[a1, a5], a1, SP[a2, a4], n] - S2[a3, SP[a1, a5], SP[a1, a2], 
     a4, n] + S2[SP[a1, a1], a2, a3, SP[a4, a5], n] + 
    S2[SP[a1, a1], a2, SP[a3, a4], a5, n] + S2[SP[a1, a1], a3, a2, 
     SP[a4, a5], n] + S2[SP[a1, a1], a3, a5, SP[a2, a4], n] + 
    S2[SP[a1, a1], a3, SP[a2, a4], a5, n] + S2[SP[a1, a1], a3, SP[a4, a5], 
     a2, n] + S2[SP[a1, a1], a4, a5, SP[a2, a3], n] + 
    S2[SP[a1, a1], a4, SP[a2, a5], a3, n] + S2[SP[a1, a1], a5, a3, 
     SP[a2, a4], n] + S2[SP[a1, a1], a5, a4, SP[a2, a3], n] + 
    S2[SP[a1, a1], a5, SP[a2, a3], a4, n] + S2[SP[a1, a1], a5, SP[a2, a4], 
     a3, n] + S2[SP[a1, a1], SP[a2, a4], a3, a5, n] + 
    S2[SP[a1, a1], SP[a2, a4], a5, a3, n] + S2[SP[a1, a1], SP[a2, a5], a3, 
     a4, n] + S2[SP[a1, a1], SP[a2, a5], a4, a3, n] + 
    S2[SP[a1, a1], SP[a3, a4], a2, a5, n] + S2[SP[a1, a1], SP[a3, a4], a5, 
     a2, n] - S2[SP[a1, a3], a5, a1, SP[a2, a4], n] - 
    S2[SP[a1, a3], a5, SP[a1, a2], a4, n] - S2[SP[a1, a3], SP[a2, a5], a1, 
     a4, n] + 2*S2[a5, n]*S2[a1, a1, a2, a3, a4, n] + 
    2*S2[a5, n]*S2[a1, a1, a2, a4, a3, n] + 
    2*S2[a1, a1, a2, a4, SP[a3, a5], n] - 
    2*S2[a1, a1, a2, SP[a3, a4], a5, n] + 
    2*S2[a1, a1, a2, SP[a3, a5], a4, n] + 
    2*S2[a1, a1, a2, SP[a4, a5], a3, n] + 
    2*S2[a5, n]*S2[a1, a1, a3, a2, a4, n] + 
    2*S2[a5, n]*S2[a1, a1, a3, a4, a2, n] + 
    2*S2[a1, a1, a3, a4, SP[a2, a5], n] - 
    2*S2[a1, a1, a3, a5, SP[a2, a4], n] - 
    2*S2[a1, a1, a3, SP[a2, a4], a5, n] + 
    2*S2[a1, a1, a3, SP[a2, a5], a4, n] + 
    2*S2[a5, n]*S2[a1, a1, a4, a2, a3, n] + 
    2*S2[a1, a1, a4, a2, SP[a3, a5], n] + 
    2*S2[a5, n]*S2[a1, a1, a4, a3, a2, n] + 
    2*S2[a1, a1, a4, a3, SP[a2, a5], n] - 
    2*S2[a1, a1, a4, a5, SP[a2, a3], n] + 
    2*S2[a1, a1, a4, SP[a3, a5], a2, n] - 
    2*S2[a1, a1, a5, a3, SP[a2, a4], n] - 
    2*S2[a1, a1, a5, a4, SP[a2, a3], n] - 
    2*S2[a1, a1, a5, SP[a2, a3], a4, n] - 
    2*S2[a1, a1, a5, SP[a2, a4], a3, n] - 
    2*S2[a1, a1, SP[a2, a4], a3, a5, n] - 
    2*S2[a1, a1, SP[a2, a4], a5, a3, n] - 
    2*S2[a1, a1, SP[a3, a4], a2, a5, n] - 
    2*S2[a1, a1, SP[a3, a4], a5, a2, n] + 
    2*S2[a1, a1, SP[a3, a5], a2, a4, n] + 
    2*S2[a1, a1, SP[a3, a5], a4, a2, n] + 
    2*S2[a1, a1, SP[a4, a5], a2, a3, n] + 
    2*S2[a1, a1, SP[a4, a5], a3, a2, n] + 
    S2[a5, n]*S2[a1, a2, a1, a3, a4, n] + 
    S2[a5, n]*S2[a1, a2, a1, a4, a3, n] + S2[a1, a2, a1, a4, SP[a3, a5], n] - 
    S2[a1, a2, a1, SP[a3, a4], a5, n] + S2[a1, a2, a1, SP[a3, a5], a4, n] + 
    S2[a1, a2, a1, SP[a4, a5], a3, n] + S2[a5, n]*S2[a1, a2, a3, a1, a4, n] - 
    S2[a3, n]*S2[a1, a2, a5, a1, a4, n] - S2[a1, a2, a5, a1, SP[a3, a4], n] - 
    S2[a1, a2, a5, SP[a1, a3], a4, n] - S2[a1, a2, SP[a1, a3], a4, a5, n] - 
    S2[a1, a2, SP[a1, a3], a5, a4, n] + S2[a1, a2, SP[a1, a5], a3, a4, n] + 
    S2[a1, a2, SP[a1, a5], a4, a3, n] + S2[a5, n]*S2[a1, a3, a1, a2, a4, n] + 
    S2[a5, n]*S2[a1, a3, a1, a4, a2, n] + S2[a1, a3, a1, a4, SP[a2, a5], n] - 
    S2[a1, a3, a1, a5, SP[a2, a4], n] - S2[a1, a3, a1, SP[a2, a4], a5, n] + 
    S2[a1, a3, a1, SP[a2, a5], a4, n] + S2[a5, n]*S2[a1, a3, a2, a1, a4, n] - 
    S2[a1, a3, SP[a1, a2], a4, a5, n] - S2[a1, a3, SP[a1, a2], a5, a4, n] + 
    2*S2[a1, a3, SP[a2, a5], a1, a4, n] + 
    S2[a5, n]*S2[a1, a4, a1, a2, a3, n] + S2[a1, a4, a1, a2, SP[a3, a5], n] + 
    S2[a5, n]*S2[a1, a4, a1, a3, a2, n] + S2[a1, a4, a1, a3, SP[a2, a5], n] - 
    S2[a1, a4, a1, a5, SP[a2, a3], n] + S2[a1, a4, a1, SP[a3, a5], a2, n] - 
    S2[a1, a4, a5, a1, SP[a2, a3], n] - S2[a1, a4, a5, SP[a1, a3], a2, n] - 
    S2[a3, n]*S2[a1, a5, a1, a2, a4, n] - S2[a1, a5, a1, a2, SP[a3, a4], n] - 
    S2[a1, a5, a1, a3, SP[a2, a4], n] - S2[a3, n]*S2[a1, a5, a1, a4, a2, n] - 
    2*S2[a1, a5, a1, a4, SP[a2, a3], n] - 
    2*S2[a1, a5, a1, SP[a2, a3], a4, n] - S2[a1, a5, a1, SP[a2, a4], a3, n] - 
    S2[a1, a5, a1, SP[a3, a4], a2, n] - S2[a3, n]*S2[a1, a5, a2, a1, a4, n] - 
    S2[a1, a5, a2, a1, SP[a3, a4], n] - S2[a1, a5, a2, SP[a1, a3], a4, n] + 
    S2[a4, n]*S2[a1, a5, a3, a1, a2, n] - S2[a1, a5, a4, a1, SP[a2, a3], n] - 
    S2[a1, a5, a4, SP[a1, a3], a2, n] - 2*S2[a1, a5, SP[a1, a3], a2, a4, n] - 
    2*S2[a1, a5, SP[a1, a3], a4, a2, n] - S2[a1, a5, SP[a1, a4], a2, a3, n] - 
    S2[a1, a5, SP[a1, a4], a3, a2, n] - S2[a1, a5, SP[a2, a3], a1, a4, n] + 
    S2[a1, a5, SP[a3, a4], a1, a2, n] - S2[a1, SP[a1, a2], a3, a4, a5, n] - 
    S2[a1, SP[a1, a2], a3, a5, a4, n] - S2[a1, SP[a1, a2], a4, a3, a5, n] - 
    S2[a1, SP[a1, a2], a4, a5, a3, n] - S2[a1, SP[a1, a2], a5, a3, a4, n] - 
    S2[a1, SP[a1, a2], a5, a4, a3, n] - S2[a1, SP[a1, a3], a2, a4, a5, n] - 
    S2[a1, SP[a1, a3], a2, a5, a4, n] - S2[a1, SP[a1, a3], a4, a2, a5, n] - 
    S2[a1, SP[a1, a3], a4, a5, a2, n] - S2[a1, SP[a1, a3], a5, a2, a4, n] - 
    S2[a1, SP[a1, a3], a5, a4, a2, n] - S2[a1, SP[a1, a4], a2, a3, a5, n] - 
    S2[a1, SP[a1, a4], a2, a5, a3, n] - S2[a1, SP[a1, a4], a3, a2, a5, n] - 
    S2[a1, SP[a1, a4], a3, a5, a2, n] - S2[a1, SP[a1, a4], a5, a2, a3, n] - 
    S2[a1, SP[a1, a4], a5, a3, a2, n] + S2[a1, SP[a1, a5], a2, a3, a4, n] + 
    S2[a1, SP[a1, a5], a2, a4, a3, n] + S2[a1, SP[a1, a5], a3, a2, a4, n] + 
    S2[a1, SP[a1, a5], a3, a4, a2, n] + S2[a1, SP[a1, a5], a4, a2, a3, n] + 
    S2[a1, SP[a1, a5], a4, a3, a2, n] + S2[a1, SP[a2, a5], a1, a3, a4, n] + 
    S2[a1, SP[a2, a5], a1, a4, a3, n] + S2[a1, SP[a2, a5], a3, a1, a4, n] + 
    S2[a1, SP[a4, a5], a1, a2, a3, n] + S2[a1, SP[a4, a5], a1, a3, a2, n] + 
    S2[a1, SP[a4, a5], a3, a1, a2, n] + S2[a3, a1, a5, a1, SP[a2, a4], n] + 
    S2[a3, a1, a5, SP[a1, a2], a4, n] + S2[a3, a1, SP[a2, a5], a1, a4, n] + 
    2*S2[a3, a5, a1, a1, SP[a2, a4], n] + S2[a3, a5, a1, SP[a1, a2], a4, n] + 
    S2[a3, a5, a1, SP[a1, a4], a2, n] + S2[a3, a5, SP[a1, a1], a2, a4, n] + 
    S2[a3, a5, SP[a1, a1], a4, a2, n] + S2[a3, SP[a1, a5], a1, a2, a4, n] + 
    S2[a3, SP[a1, a5], a1, a4, a2, n] + S2[a3, SP[a1, a5], a2, a1, a4, n] - 
    2*S2[a3, n]*S2[a5, a1, a1, a2, a4, n] - 
    2*S2[a5, a1, a1, a2, SP[a3, a4], n] - 
    2*S2[a3, n]*S2[a5, a1, a1, a4, a2, n] - 
    2*S2[a5, a1, a1, a4, SP[a2, a3], n] - 
    2*S2[a5, a1, a1, SP[a2, a3], a4, n] - 
    2*S2[a5, a1, a1, SP[a3, a4], a2, n] - 
    S2[a3, n]*S2[a5, a1, a2, a1, a4, n] - S2[a5, a1, a2, a1, SP[a3, a4], n] - 
    S2[a5, a1, a2, SP[a1, a3], a4, n] - S2[a3, n]*S2[a5, a1, a4, a1, a2, n] - 
    S2[a5, a1, a4, a1, SP[a2, a3], n] - S2[a5, a1, a4, SP[a1, a3], a2, n] - 
    2*S2[a5, a1, SP[a1, a3], a2, a4, n] - 
    2*S2[a5, a1, SP[a1, a3], a4, a2, n] - S2[a5, a1, SP[a2, a3], a1, a4, n] - 
    S2[a5, a1, SP[a3, a4], a1, a2, n] - 2*S2[a5, SP[a1, a3], a1, a2, a4, n] - 
    2*S2[a5, SP[a1, a3], a1, a4, a2, n] - S2[a5, SP[a1, a3], a2, a1, a4, n] - 
    S2[a5, SP[a1, a3], a4, a1, a2, n] - S2[SP[a1, a1], a2, a3, a4, a5, n] - 
    S2[SP[a1, a1], a2, a3, a5, a4, n] - S2[SP[a1, a1], a2, a4, a3, a5, n] - 
    S2[SP[a1, a1], a2, a4, a5, a3, n] - S2[SP[a1, a1], a2, a5, a3, a4, n] - 
    S2[SP[a1, a1], a2, a5, a4, a3, n] - S2[SP[a1, a1], a3, a2, a4, a5, n] - 
    S2[SP[a1, a1], a3, a2, a5, a4, n] - S2[SP[a1, a1], a3, a4, a2, a5, n] - 
    S2[SP[a1, a1], a3, a4, a5, a2, n] - S2[SP[a1, a1], a3, a5, a2, a4, n] - 
    S2[SP[a1, a1], a3, a5, a4, a2, n] - S2[SP[a1, a1], a4, a2, a3, a5, n] - 
    S2[SP[a1, a1], a4, a2, a5, a3, n] - S2[SP[a1, a1], a4, a3, a2, a5, n] - 
    S2[SP[a1, a1], a4, a3, a5, a2, n] - S2[SP[a1, a1], a4, a5, a2, a3, n] - 
    S2[SP[a1, a1], a4, a5, a3, a2, n] - S2[SP[a1, a1], a5, a2, a3, a4, n] - 
    S2[SP[a1, a1], a5, a2, a4, a3, n] - S2[SP[a1, a1], a5, a3, a2, a4, n] - 
    S2[SP[a1, a1], a5, a3, a4, a2, n] - S2[SP[a1, a1], a5, a4, a2, a3, n] - 
    S2[SP[a1, a1], a5, a4, a3, a2, n] + S2[SP[a1, a4], a5, a3, a1, a2, n] + 
    2*S2[SP[a1, a5], a1, a2, a3, a4, n] + 
    2*S2[SP[a1, a5], a1, a2, a4, a3, n] + 
    2*S2[SP[a1, a5], a1, a3, a2, a4, n] + 
    2*S2[SP[a1, a5], a1, a3, a4, a2, n] + 
    2*S2[SP[a1, a5], a1, a4, a2, a3, n] + 
    2*S2[SP[a1, a5], a1, a4, a3, a2, n] + S2[SP[a1, a5], a2, a1, a3, a4, n] + 
    S2[SP[a1, a5], a2, a1, a4, a3, n] + S2[SP[a1, a5], a2, a3, a1, a4, n] + 
    S2[SP[a1, a5], a3, a1, a2, a4, n] + S2[SP[a1, a5], a3, a1, a4, a2, n] + 
    S2[SP[a1, a5], a3, a2, a1, a4, n] + S2[SP[a1, a5], a4, a1, a2, a3, n] + 
    S2[SP[a1, a5], a4, a1, a3, a2, n] - 2*S2[SP[a3, a5], a1, a1, a2, a4, n] - 
    2*S2[SP[a3, a5], a1, a1, a4, a2, n] - S2[SP[a3, a5], a1, a2, a1, a4, n] - 
    S2[SP[a3, a5], a1, a4, a1, a2, n] + S2[a5, a1, a3, a1, a2, a4, n] + 
    S2[a5, a1, a3, a1, a4, a2, n] + S2[a5, a1, a3, a4, a1, a2, n] + 
    S2[a5, a1, a4, a3, a1, a2, n] + 2*S2[a5, a3, a1, a1, a2, a4, n] + 
    2*S2[a5, a3, a1, a1, a4, a2, n] + S2[a5, a3, a1, a2, a1, a4, n] + 
    S2[a5, a3, a1, a4, a1, a2, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a4_, a1_, a5_, a3_, a2_, a1_, n_] :> 
  S2[a1, a4, n]*S2[a1, a2, a3, a5, n] - S2[a1, a2, SP[a1, a3], SP[a4, a5], 
     n] + S2[a1, a2, n]*S2[a1, a4, a5, a3, n] - S2[a1, a4, SP[a1, a5], 
     SP[a2, a3], n] + S2[a1, a2, n]*S2[a1, a5, a3, a4, n] + 
    S2[a1, a2, n]*S2[a1, a5, a4, a3, n] - S2[a1, a5, SP[a1, a3], SP[a2, a4], 
     n] - S2[a1, a5, SP[a1, a4], SP[a2, a3], n] - S2[a1, SP[a1, a2], a3, 
     SP[a4, a5], n] - S2[a1, SP[a1, a2], SP[a3, a4], a5, n] - 
    S2[a1, SP[a1, a4], a5, SP[a2, a3], n] - S2[a1, SP[a1, a4], SP[a2, a5], 
     a3, n] - S2[a1, SP[a1, a5], a3, SP[a2, a4], n] - 
    S2[a1, SP[a1, a5], a4, SP[a2, a3], n] - S2[a1, SP[a1, a5], SP[a2, a3], 
     a4, n] - S2[a1, SP[a1, a5], SP[a2, a4], a3, n] - 
    S2[a1, a2, n]*S2[a3, a5, a1, a4, n] + S2[a3, a5, SP[a1, a1], SP[a2, a4], 
     n] + S2[a3, SP[a1, a5], a1, SP[a2, a4], n] + 
    S2[a3, SP[a1, a5], SP[a1, a2], a4, n] - S2[SP[a1, a1], a2, a3, 
     SP[a4, a5], n] - S2[SP[a1, a1], a2, SP[a3, a4], a5, n] - 
    S2[SP[a1, a1], a4, a5, SP[a2, a3], n] - S2[SP[a1, a1], a4, SP[a2, a5], 
     a3, n] - S2[SP[a1, a1], a5, a3, SP[a2, a4], n] - 
    S2[SP[a1, a1], a5, a4, SP[a2, a3], n] - S2[SP[a1, a1], a5, SP[a2, a3], 
     a4, n] - S2[SP[a1, a1], a5, SP[a2, a4], a3, n] - 
    S2[SP[a1, a1], SP[a2, a4], a3, a5, n] - S2[SP[a1, a1], SP[a2, a4], a5, 
     a3, n] - S2[SP[a1, a1], SP[a2, a5], a3, a4, n] - 
    S2[SP[a1, a1], SP[a2, a5], a4, a3, n] + S2[SP[a1, a3], a5, a1, 
     SP[a2, a4], n] + S2[SP[a1, a3], a5, SP[a1, a2], a4, n] + 
    S2[SP[a1, a3], SP[a2, a5], a1, a4, n] - 
    2*S2[a5, n]*S2[a1, a1, a2, a3, a4, n] - 
    2*S2[a5, n]*S2[a1, a1, a2, a4, a3, n] - 
    2*S2[a1, a1, a2, a4, SP[a3, a5], n] + 
    2*S2[a1, a1, a2, SP[a3, a4], a5, n] - 
    2*S2[a1, a1, a2, SP[a3, a5], a4, n] - 
    2*S2[a1, a1, a2, SP[a4, a5], a3, n] - 
    2*S2[a5, n]*S2[a1, a1, a4, a2, a3, n] - 
    2*S2[a1, a1, a4, a2, SP[a3, a5], n] + 
    2*S2[a1, a1, a4, a5, SP[a2, a3], n] - 
    2*S2[a4, n]*S2[a1, a1, a5, a3, a2, n] + 
    2*S2[a1, a1, a5, a4, SP[a2, a3], n] + 
    2*S2[a1, a1, a5, SP[a2, a3], a4, n] + 
    2*S2[a1, a1, a5, SP[a2, a4], a3, n] - 
    2*S2[a1, a1, a5, SP[a3, a4], a2, n] + 
    2*S2[a1, a1, SP[a2, a4], a3, a5, n] + 
    2*S2[a1, a1, SP[a2, a4], a5, a3, n] - 
    2*S2[a1, a1, SP[a4, a5], a2, a3, n] - 
    2*S2[a1, a1, SP[a4, a5], a3, a2, n] - 
    S2[a5, n]*S2[a1, a2, a1, a3, a4, n] - 
    S2[a5, n]*S2[a1, a2, a1, a4, a3, n] - S2[a1, a2, a1, a4, SP[a3, a5], n] + 
    S2[a1, a2, a1, SP[a3, a4], a5, n] - S2[a1, a2, a1, SP[a3, a5], a4, n] - 
    S2[a1, a2, a1, SP[a4, a5], a3, n] - S2[a5, n]*S2[a1, a2, a3, a1, a4, n] + 
    S2[a3, n]*S2[a1, a2, a5, a1, a4, n] + S2[a1, a2, a5, a1, SP[a3, a4], n] + 
    S2[a1, a2, a5, SP[a1, a3], a4, n] + S2[a1, a2, SP[a1, a3], a4, a5, n] + 
    S2[a1, a2, SP[a1, a3], a5, a4, n] - S2[a1, a2, SP[a1, a5], a3, a4, n] - 
    S2[a1, a2, SP[a1, a5], a4, a3, n] - S2[a1, a3, a5, a1, SP[a2, a4], n] - 
    S2[a1, a3, a5, SP[a1, a2], a4, n] - S2[a1, a3, SP[a2, a5], a1, a4, n] - 
    S2[a5, n]*S2[a1, a4, a1, a2, a3, n] - S2[a1, a4, a1, a2, SP[a3, a5], n] + 
    S2[a1, a4, a1, a5, SP[a2, a3], n] + S2[a1, a4, a5, a1, SP[a2, a3], n] + 
    S2[a1, a4, a5, SP[a1, a3], a2, n] + S2[a1, a4, SP[a1, a5], a3, a2, n] + 
    S2[a3, n]*S2[a1, a5, a1, a2, a4, n] + S2[a1, a5, a1, a2, SP[a3, a4], n] - 
    S2[a4, n]*S2[a1, a5, a1, a3, a2, n] + 
    S2[a3, n]*S2[a1, a5, a1, a4, a2, n] + 
    2*S2[a1, a5, a1, a4, SP[a2, a3], n] + 
    2*S2[a1, a5, a1, SP[a2, a3], a4, n] + S2[a1, a5, a1, SP[a2, a4], a3, n] + 
    S2[a3, n]*S2[a1, a5, a2, a1, a4, n] + S2[a1, a5, a2, a1, SP[a3, a4], n] + 
    S2[a1, a5, a2, SP[a1, a3], a4, n] - S2[a4, n]*S2[a1, a5, a3, a1, a2, n] + 
    S2[a1, a5, a4, a1, SP[a2, a3], n] + S2[a1, a5, a4, SP[a1, a3], a2, n] + 
    2*S2[a1, a5, SP[a1, a3], a2, a4, n] + 
    2*S2[a1, a5, SP[a1, a3], a4, a2, n] + S2[a1, a5, SP[a1, a4], a2, a3, n] + 
    S2[a1, a5, SP[a2, a3], a1, a4, n] - S2[a1, a5, SP[a3, a4], a1, a2, n] + 
    S2[a1, SP[a1, a2], a3, a4, a5, n] + S2[a1, SP[a1, a2], a3, a5, a4, n] + 
    S2[a1, SP[a1, a2], a4, a3, a5, n] + S2[a1, SP[a1, a2], a4, a5, a3, n] + 
    S2[a1, SP[a1, a2], a5, a3, a4, n] + S2[a1, SP[a1, a2], a5, a4, a3, n] + 
    S2[a1, SP[a1, a4], a2, a3, a5, n] + S2[a1, SP[a1, a4], a2, a5, a3, n] + 
    S2[a1, SP[a1, a4], a5, a2, a3, n] - S2[a1, SP[a1, a4], a5, a3, a2, n] - 
    S2[a1, SP[a1, a5], a2, a3, a4, n] - S2[a1, SP[a1, a5], a2, a4, a3, n] + 
    S2[a1, SP[a1, a5], a3, a2, a4, n] + S2[a1, SP[a1, a5], a3, a4, a2, n] - 
    S2[a1, SP[a1, a5], a4, a2, a3, n] + S2[a1, SP[a1, a5], a4, a3, a2, n] - 
    S2[a1, SP[a2, a5], a1, a3, a4, n] - S2[a1, SP[a2, a5], a1, a4, a3, n] - 
    S2[a1, SP[a2, a5], a3, a1, a4, n] + S2[a1, SP[a3, a5], a1, a2, a4, n] + 
    S2[a1, SP[a3, a5], a1, a4, a2, n] + S2[a1, SP[a3, a5], a2, a1, a4, n] - 
    S2[a1, SP[a4, a5], a1, a2, a3, n] - S2[a1, SP[a4, a5], a1, a3, a2, n] - 
    S2[a1, SP[a4, a5], a3, a1, a2, n] - S2[a3, a1, a5, a1, SP[a2, a4], n] - 
    S2[a3, a1, a5, SP[a1, a2], a4, n] - S2[a3, a1, SP[a2, a5], a1, a4, n] - 
    2*S2[a3, a5, a1, a1, SP[a2, a4], n] - S2[a3, a5, a1, SP[a1, a2], a4, n] - 
    S2[a3, a5, a1, SP[a1, a4], a2, n] - S2[a3, a5, SP[a1, a1], a2, a4, n] - 
    S2[a3, a5, SP[a1, a1], a4, a2, n] - S2[a3, SP[a1, a5], a1, a2, a4, n] - 
    S2[a3, SP[a1, a5], a1, a4, a2, n] - S2[a3, SP[a1, a5], a2, a1, a4, n] + 
    S2[a1, n]*S2[a4, a1, a5, a3, a2, n] + S2[a4, a1, a5, a3, SP[a1, a2], n] + 
    S2[a4, a1, a5, SP[a1, a3], a2, n] + S2[a4, a1, SP[a1, a5], a3, a2, n] + 
    S2[a4, SP[a1, a1], a5, a3, a2, n] + 2*S2[a3, n]*
     S2[a5, a1, a1, a2, a4, n] + 2*S2[a5, a1, a1, a2, SP[a3, a4], n] + 
    2*S2[a3, n]*S2[a5, a1, a1, a4, a2, n] + 
    2*S2[a5, a1, a1, a4, SP[a2, a3], n] + 
    2*S2[a5, a1, a1, SP[a2, a3], a4, n] + 
    2*S2[a5, a1, a1, SP[a3, a4], a2, n] + 
    S2[a3, n]*S2[a5, a1, a2, a1, a4, n] + S2[a5, a1, a2, a1, SP[a3, a4], n] + 
    S2[a5, a1, a2, SP[a1, a3], a4, n] - S2[a1, n]*S2[a5, a1, a3, a2, a4, n] - 
    S2[a5, a1, a3, a2, SP[a1, a4], n] - S2[a1, n]*S2[a5, a1, a3, a4, a2, n] - 
    S2[a5, a1, a3, a4, SP[a1, a2], n] - S2[a5, a1, a3, SP[a1, a2], a4, n] - 
    S2[a5, a1, a3, SP[a1, a4], a2, n] + S2[a3, n]*S2[a5, a1, a4, a1, a2, n] + 
    S2[a5, a1, a4, a1, SP[a2, a3], n] - S2[a1, n]*S2[a5, a1, a4, a3, a2, n] - 
    S2[a5, a1, a4, a3, SP[a1, a2], n] + S2[a5, a1, SP[a1, a3], a2, a4, n] + 
    S2[a5, a1, SP[a1, a3], a4, a2, n] - S2[a5, a1, SP[a1, a4], a3, a2, n] + 
    S2[a5, a1, SP[a2, a3], a1, a4, n] + S2[a5, a1, SP[a3, a4], a1, a2, n] - 
    S2[a1, n]*S2[a5, a3, a1, a2, a4, n] - S2[a5, a3, a1, a2, SP[a1, a4], n] - 
    S2[a1, n]*S2[a5, a3, a1, a4, a2, n] - S2[a5, a3, a1, a4, SP[a1, a2], n] - 
    S2[a5, a3, a1, SP[a1, a2], a4, n] - S2[a5, a3, a1, SP[a1, a4], a2, n] - 
    S2[a1, n]*S2[a5, a3, a2, a1, a4, n] - S2[a5, a3, a2, a1, SP[a1, a4], n] - 
    S2[a5, a3, a2, SP[a1, a1], a4, n] - S2[a5, a3, SP[a1, a1], a2, a4, n] - 
    S2[a5, a3, SP[a1, a1], a4, a2, n] - S2[a5, a3, SP[a1, a2], a1, a4, n] - 
    S2[a5, SP[a1, a1], a3, a2, a4, n] - S2[a5, SP[a1, a1], a3, a4, a2, n] - 
    S2[a5, SP[a1, a1], a4, a3, a2, n] + S2[a5, SP[a1, a3], a1, a2, a4, n] + 
    S2[a5, SP[a1, a3], a1, a4, a2, n] + S2[a5, SP[a1, a3], a4, a1, a2, n] + 
    S2[SP[a1, a1], a2, a3, a4, a5, n] + S2[SP[a1, a1], a2, a3, a5, a4, n] + 
    S2[SP[a1, a1], a2, a4, a3, a5, n] + S2[SP[a1, a1], a2, a4, a5, a3, n] + 
    S2[SP[a1, a1], a2, a5, a3, a4, n] + S2[SP[a1, a1], a2, a5, a4, a3, n] + 
    S2[SP[a1, a1], a4, a2, a3, a5, n] + S2[SP[a1, a1], a4, a2, a5, a3, n] + 
    S2[SP[a1, a1], a4, a5, a2, a3, n] + S2[SP[a1, a1], a4, a5, a3, a2, n] + 
    S2[SP[a1, a1], a5, a2, a3, a4, n] + S2[SP[a1, a1], a5, a2, a4, a3, n] + 
    S2[SP[a1, a1], a5, a3, a2, a4, n] + S2[SP[a1, a1], a5, a3, a4, a2, n] + 
    S2[SP[a1, a1], a5, a4, a2, a3, n] + S2[SP[a1, a1], a5, a4, a3, a2, n] - 
    S2[SP[a1, a4], a1, a5, a3, a2, n] - S2[SP[a1, a4], a5, a1, a3, a2, n] - 
    S2[SP[a1, a4], a5, a3, a1, a2, n] - 2*S2[SP[a1, a5], a1, a2, a3, a4, n] - 
    2*S2[SP[a1, a5], a1, a2, a4, a3, n] - S2[SP[a1, a5], a1, a3, a2, a4, n] - 
    S2[SP[a1, a5], a1, a3, a4, a2, n] - 2*S2[SP[a1, a5], a1, a4, a2, a3, n] - 
    S2[SP[a1, a5], a1, a4, a3, a2, n] - S2[SP[a1, a5], a2, a1, a3, a4, n] - 
    S2[SP[a1, a5], a2, a1, a4, a3, n] - S2[SP[a1, a5], a2, a3, a1, a4, n] - 
    S2[SP[a1, a5], a3, a1, a2, a4, n] - S2[SP[a1, a5], a3, a1, a4, a2, n] - 
    S2[SP[a1, a5], a3, a2, a1, a4, n] - S2[SP[a1, a5], a4, a1, a2, a3, n] + 
    2*S2[SP[a3, a5], a1, a1, a2, a4, n] + 
    2*S2[SP[a3, a5], a1, a1, a4, a2, n] + S2[SP[a3, a5], a1, a2, a1, a4, n] + 
    S2[SP[a3, a5], a1, a4, a1, a2, n] + S2[a5, a1, a3, a2, a1, a4, n] + 
    S2[a5, a1, a3, a2, a4, a1, n] + S2[a5, a1, a3, a4, a2, a1, n] + 
    S2[a5, a1, a4, a3, a2, a1, n] + S2[a5, a3, a1, a2, a1, a4, n] + 
    S2[a5, a3, a1, a2, a4, a1, n] + S2[a5, a3, a1, a4, a2, a1, n] + 
    2*S2[a5, a3, a2, a1, a1, a4, n] + S2[a5, a3, a2, a1, a4, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a4_, a2_, a1_, a1_, a3_, a5_, n_] :> 
  S2[a1, a2, a4, n]*S2[a1, a3, a5, n] + S2[SP[a1, a1], SP[a2, a3], 
     SP[a4, a5], n] - S2[a3, a5, n]*S2[a1, a1, a2, a4, n] - 
    S2[a2, a4, n]*S2[a1, a1, a3, a5, n] - S2[SP[a1, a1], a2, a3, SP[a4, a5], 
     n] - S2[SP[a1, a1], a2, SP[a3, a4], a5, n] - S2[SP[a1, a1], a3, a2, 
     SP[a4, a5], n] - S2[SP[a1, a1], a3, SP[a2, a5], a4, n] - 
    S2[SP[a1, a1], SP[a2, a3], a4, a5, n] - S2[SP[a1, a1], SP[a2, a3], a5, 
     a4, n] + S2[SP[a1, a2], a1, a3, SP[a4, a5], n] + 
    S2[SP[a1, a2], a1, SP[a3, a4], a5, n] + S2[SP[a1, a2], SP[a1, a4], a3, 
     a5, n] + S2[SP[a1, a3], a1, a2, SP[a4, a5], n] + 
    S2[SP[a1, a3], a1, SP[a2, a5], a4, n] + S2[SP[a1, a3], SP[a1, a5], a2, 
     a4, n] - S2[a5, n]*S2[a1, a1, a2, a3, a4, n] - 
    S2[a4, n]*S2[a1, a1, a2, a3, a5, n] - 
    2*S2[a1, a1, a2, a3, SP[a4, a5], n] - 
    S2[a5, n]*S2[a1, a1, a2, a4, a3, n] + 
    S2[a3, n]*S2[a1, a1, a2, a4, a5, n] + 
    S2[a3, n]*S2[a1, a1, a2, a5, a4, n] + S2[a1, a1, a2, a5, SP[a3, a4], n] - 
    S2[a1, a1, a2, SP[a4, a5], a3, n] - S2[a5, n]*S2[a1, a1, a3, a2, a4, n] - 
    S2[a4, n]*S2[a1, a1, a3, a2, a5, n] - 
    2*S2[a1, a1, a3, a2, SP[a4, a5], n] + 
    S2[a2, n]*S2[a1, a1, a3, a4, a5, n] + S2[a1, a1, a3, a4, SP[a2, a5], n] - 
    S2[a4, n]*S2[a1, a1, a3, a5, a2, n] + 
    S2[a2, n]*S2[a1, a1, a3, a5, a4, n] - S2[a1, a1, a3, SP[a4, a5], a2, n] + 
    S2[a2, n]*S2[a1, a1, a4, a3, a5, n] + S2[a1, a1, a4, a3, SP[a2, a5], n] + 
    S2[a1, a1, a4, SP[a2, a3], a5, n] + S2[a3, n]*S2[a1, a1, a5, a2, a4, n] + 
    S2[a1, a1, a5, a2, SP[a3, a4], n] + S2[a1, a1, a5, SP[a2, a3], a4, n] + 
    2*S2[a1, a1, SP[a2, a3], a4, a5, n] + 
    2*S2[a1, a1, SP[a2, a3], a5, a4, n] - S2[a1, a1, SP[a2, a5], a3, a4, n] - 
    S2[a1, a1, SP[a2, a5], a4, a3, n] - S2[a1, a1, SP[a3, a4], a2, a5, n] - 
    S2[a1, a1, SP[a3, a4], a5, a2, n] - S2[a4, n]*S2[a1, a2, a1, a3, a5, n] - 
    S2[a1, a2, a1, a3, SP[a4, a5], n] - S2[a1, a2, a1, SP[a3, a4], a5, n] - 
    S2[a1, a2, SP[a1, a4], a3, a5, n] - S2[a5, n]*S2[a1, a3, a1, a2, a4, n] - 
    S2[a1, a3, a1, a2, SP[a4, a5], n] - S2[a1, a3, a1, SP[a2, a5], a4, n] - 
    S2[a1, a3, SP[a1, a5], a2, a4, n] + S2[a2, n]*S2[a1, a4, a1, a3, a5, n] + 
    S2[a1, a4, a1, a3, SP[a2, a5], n] + S2[a1, a4, a1, SP[a2, a3], a5, n] + 
    S2[a1, a4, SP[a1, a2], a3, a5, n] + S2[a3, n]*S2[a1, a5, a1, a2, a4, n] + 
    S2[a1, a5, a1, a2, SP[a3, a4], n] + S2[a1, a5, a1, SP[a2, a3], a4, n] + 
    S2[a1, a5, SP[a1, a3], a2, a4, n] + S2[a1, SP[a1, a2], a3, a4, a5, n] + 
    S2[a1, SP[a1, a2], a3, a5, a4, n] + S2[a1, SP[a1, a2], a4, a3, a5, n] + 
    S2[a1, SP[a1, a3], a2, a4, a5, n] + S2[a1, SP[a1, a3], a2, a5, a4, n] + 
    S2[a1, SP[a1, a3], a5, a2, a4, n] - S2[a1, SP[a1, a4], a2, a3, a5, n] - 
    S2[a1, SP[a1, a4], a3, a2, a5, n] - S2[a1, SP[a1, a4], a3, a5, a2, n] - 
    S2[a1, SP[a1, a5], a2, a3, a4, n] - S2[a1, SP[a1, a5], a2, a4, a3, n] - 
    S2[a1, SP[a1, a5], a3, a2, a4, n] - S2[a2, a1, a1, a3, SP[a4, a5], n] - 
    S2[a2, a1, a1, SP[a3, a4], a5, n] - S2[a2, a1, SP[a1, a4], a3, a5, n] - 
    S2[a2, SP[a1, a4], a1, a3, a5, n] - S2[a3, a1, a1, a2, SP[a4, a5], n] - 
    S2[a3, a1, a1, SP[a2, a5], a4, n] - S2[a3, a1, SP[a1, a5], a2, a4, n] - 
    S2[a3, SP[a1, a5], a1, a2, a4, n] + S2[a2, n]*S2[a4, a1, a1, a3, a5, n] + 
    S2[a4, a1, a1, a3, SP[a2, a5], n] + S2[a4, a1, a1, SP[a2, a3], a5, n] + 
    S2[a4, a1, SP[a1, a2], a3, a5, n] + S2[a4, SP[a1, a2], a1, a3, a5, n] + 
    S2[a3, n]*S2[a5, a1, a1, a2, a4, n] + S2[a5, a1, a1, a2, SP[a3, a4], n] + 
    S2[a5, a1, a1, SP[a2, a3], a4, n] + S2[a5, a1, SP[a1, a3], a2, a4, n] + 
    S2[a5, SP[a1, a3], a1, a2, a4, n] + S2[SP[a1, a1], a2, a3, a4, a5, n] + 
    S2[SP[a1, a1], a2, a3, a5, a4, n] + S2[SP[a1, a1], a2, a4, a3, a5, n] + 
    S2[SP[a1, a1], a3, a2, a4, a5, n] + S2[SP[a1, a1], a3, a2, a5, a4, n] + 
    S2[SP[a1, a1], a3, a5, a2, a4, n] - S2[SP[a1, a4], a1, a2, a3, a5, n] - 
    S2[SP[a1, a4], a1, a3, a2, a5, n] - S2[SP[a1, a4], a1, a3, a5, a2, n] - 
    S2[SP[a1, a4], a2, a1, a3, a5, n] - S2[SP[a1, a5], a1, a2, a3, a4, n] - 
    S2[SP[a1, a5], a1, a2, a4, a3, n] - S2[SP[a1, a5], a1, a3, a2, a4, n] - 
    S2[SP[a1, a5], a3, a1, a2, a4, n] + S2[SP[a2, a4], a1, a1, a3, a5, n] + 
    S2[SP[a3, a5], a1, a1, a2, a4, n] - S2[a5, a3, a1, a1, a2, a4, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a4_, a2_, a1_, a1_, a5_, a3_, n_] :> 
  S2[a1, a2, a4, n]*S2[a1, a5, a3, n] + S2[SP[a1, a1], SP[a2, a5], 
     SP[a3, a4], n] + S2[a3, a5, n]*S2[a1, a1, a2, a4, n] - 
    S2[a2, a4, n]*S2[a1, a1, a5, a3, n] - S2[a1, a1, SP[a2, a3], SP[a4, a5], 
     n] - S2[a1, a1, SP[a2, a5], SP[a3, a4], n] - S2[a1, SP[a1, a3], a2, 
     SP[a4, a5], n] - S2[a1, SP[a1, a3], SP[a2, a5], a4, n] - 
    S2[a1, SP[a1, a5], a2, SP[a3, a4], n] - S2[a1, SP[a1, a5], SP[a2, a3], 
     a4, n] - S2[SP[a1, a1], a2, a5, SP[a3, a4], n] - 
    S2[SP[a1, a1], a2, SP[a4, a5], a3, n] - S2[SP[a1, a1], a5, a2, 
     SP[a3, a4], n] - S2[SP[a1, a1], a5, SP[a2, a3], a4, n] - 
    S2[SP[a1, a1], SP[a2, a5], a3, a4, n] - S2[SP[a1, a1], SP[a2, a5], a4, 
     a3, n] + S2[SP[a1, a2], a1, a5, SP[a3, a4], n] + 
    S2[SP[a1, a2], a1, SP[a4, a5], a3, n] + S2[SP[a1, a2], SP[a1, a4], a5, 
     a3, n] - S2[SP[a1, a3], a1, a2, SP[a4, a5], n] - 
    S2[SP[a1, a3], a1, SP[a2, a5], a4, n] - S2[SP[a1, a3], SP[a1, a5], a2, 
     a4, n] + S2[a1, a1, a2, a3, SP[a4, a5], n] - 
    S2[a3, n]*S2[a1, a1, a2, a4, a5, n] - S2[a1, a1, a2, a4, SP[a3, a5], n] - 
    S2[a4, n]*S2[a1, a1, a2, a5, a3, n] - 
    S2[a3, n]*S2[a1, a1, a2, a5, a4, n] - S2[a1, a1, a2, a5, SP[a3, a4], n] - 
    S2[a1, a1, a2, SP[a3, a5], a4, n] + S2[a1, a1, a3, a2, SP[a4, a5], n] + 
    S2[a1, a1, a3, SP[a2, a5], a4, n] + S2[a2, n]*S2[a1, a1, a4, a5, a3, n] + 
    S2[a1, a1, a4, a5, SP[a2, a3], n] + S2[a1, a1, a4, SP[a2, a5], a3, n] - 
    S2[a4, n]*S2[a1, a1, a5, a2, a3, n] - 
    S2[a3, n]*S2[a1, a1, a5, a2, a4, n] - S2[a1, a1, a5, a2, SP[a3, a4], n] - 
    S2[a4, n]*S2[a1, a1, a5, a3, a2, n] + 
    S2[a2, n]*S2[a1, a1, a5, a3, a4, n] + 
    S2[a2, n]*S2[a1, a1, a5, a4, a3, n] + S2[a1, a1, a5, a4, SP[a2, a3], n] + 
    S2[a1, a1, a5, SP[a2, a3], a4, n] - S2[a1, a1, a5, SP[a3, a4], a2, n] + 
    2*S2[a1, a1, SP[a2, a5], a3, a4, n] + 
    2*S2[a1, a1, SP[a2, a5], a4, a3, n] - S2[a1, a1, SP[a3, a5], a2, a4, n] - 
    S2[a1, a1, SP[a4, a5], a2, a3, n] - S2[a1, a1, SP[a4, a5], a3, a2, n] - 
    S2[a4, n]*S2[a1, a2, a1, a5, a3, n] - S2[a1, a2, a1, a5, SP[a3, a4], n] - 
    S2[a1, a2, a1, SP[a4, a5], a3, n] - S2[a1, a2, SP[a1, a4], a5, a3, n] + 
    S2[a1, a3, a1, a2, SP[a4, a5], n] + S2[a1, a3, a1, SP[a2, a5], a4, n] + 
    S2[a1, a3, SP[a1, a5], a2, a4, n] + S2[a2, n]*S2[a1, a4, a1, a5, a3, n] + 
    S2[a1, a4, a1, a5, SP[a2, a3], n] + S2[a1, a4, a1, SP[a2, a5], a3, n] + 
    S2[a1, a4, SP[a1, a2], a5, a3, n] - S2[a3, n]*S2[a1, a5, a1, a2, a4, n] + 
    S2[a1, SP[a1, a2], a4, a5, a3, n] + S2[a1, SP[a1, a2], a5, a3, a4, n] + 
    S2[a1, SP[a1, a2], a5, a4, a3, n] - S2[a1, SP[a1, a4], a2, a5, a3, n] - 
    S2[a1, SP[a1, a4], a5, a2, a3, n] - S2[a1, SP[a1, a4], a5, a3, a2, n] + 
    S2[a1, SP[a1, a5], a2, a3, a4, n] + S2[a1, SP[a1, a5], a2, a4, a3, n] + 
    S2[a1, SP[a1, a5], a3, a2, a4, n] - S2[a1, SP[a3, a5], a1, a2, a4, n] - 
    S2[a2, a1, a1, a5, SP[a3, a4], n] - S2[a2, a1, a1, SP[a4, a5], a3, n] - 
    S2[a2, a1, SP[a1, a4], a5, a3, n] - S2[a2, SP[a1, a4], a1, a5, a3, n] + 
    S2[a3, a1, a1, a2, SP[a4, a5], n] + S2[a3, a1, a1, SP[a2, a5], a4, n] + 
    S2[a3, a1, SP[a1, a5], a2, a4, n] + S2[a3, SP[a1, a5], a1, a2, a4, n] + 
    S2[a2, n]*S2[a4, a1, a1, a5, a3, n] + S2[a4, a1, a1, a5, SP[a2, a3], n] + 
    S2[a4, a1, a1, SP[a2, a5], a3, n] + S2[a4, a1, SP[a1, a2], a5, a3, n] + 
    S2[a4, SP[a1, a2], a1, a5, a3, n] - S2[a3, n]*S2[a5, a1, a1, a2, a4, n] - 
    S2[a5, a1, a1, a2, SP[a3, a4], n] - S2[a5, a1, a1, SP[a2, a3], a4, n] - 
    S2[a5, a1, SP[a1, a3], a2, a4, n] - S2[a5, SP[a1, a3], a1, a2, a4, n] + 
    S2[SP[a1, a1], a2, a4, a5, a3, n] + S2[SP[a1, a1], a2, a5, a3, a4, n] + 
    S2[SP[a1, a1], a2, a5, a4, a3, n] + S2[SP[a1, a1], a5, a2, a3, a4, n] + 
    S2[SP[a1, a1], a5, a2, a4, a3, n] + S2[SP[a1, a1], a5, a3, a2, a4, n] - 
    S2[SP[a1, a4], a1, a2, a5, a3, n] - S2[SP[a1, a4], a1, a5, a2, a3, n] - 
    S2[SP[a1, a4], a1, a5, a3, a2, n] - S2[SP[a1, a4], a2, a1, a5, a3, n] + 
    S2[SP[a2, a4], a1, a1, a5, a3, n] - S2[SP[a3, a5], a1, a1, a2, a4, n] + 
    S2[a5, a1, a1, a2, a3, a4, n] + S2[a5, a1, a1, a2, a4, a3, n] + 
    S2[a5, a1, a1, a3, a2, a4, n] + S2[a5, a1, a3, a1, a2, a4, n] + 
    S2[a5, a3, a1, a1, a2, a4, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a4_, a2_, a1_, a3_, a1_, a5_, n_] :> 
  -(S2[a1, a2, a4, n]*S2[a1, a3, a5, n]) - S2[a1, a2, a4, n]*
     S2[a1, a5, a3, n] - S2[SP[a1, a1], SP[a2, a3], SP[a4, a5], n] - 
    S2[SP[a1, a1], SP[a2, a5], SP[a3, a4], n] + 
    2*S2[a1, a1, SP[a2, a3], SP[a4, a5], n] + 
    2*S2[a1, a1, SP[a2, a5], SP[a3, a4], n] + 
    S2[a1, a5, n]*S2[a1, a2, a3, a4, n] + S2[a1, a5, n]*
     S2[a1, a2, a4, a3, n] - S2[a1, a2, SP[a1, a3], SP[a4, a5], n] - 
    S2[a1, a2, SP[a1, a4], SP[a3, a5], n] - S2[a2, a4, n]*
     S2[a1, a3, a1, a5, n] + S2[a1, a5, n]*S2[a1, a3, a2, a4, n] - 
    S2[a1, SP[a1, a2], a4, SP[a3, a5], n] + S2[a1, SP[a1, a2], a5, 
     SP[a3, a4], n] + S2[a1, SP[a1, a2], SP[a3, a4], a5, n] - 
    S2[a1, SP[a1, a2], SP[a3, a5], a4, n] + S2[a1, SP[a1, a5], a2, 
     SP[a3, a4], n] + S2[a1, SP[a1, a5], SP[a2, a3], a4, n] + 
    S2[a1, SP[a2, a3], a1, SP[a4, a5], n] + S2[a1, SP[a2, a3], SP[a1, a4], 
     a5, n] - S2[SP[a1, a1], a2, a4, SP[a3, a5], n] + 
    S2[SP[a1, a1], a2, a5, SP[a3, a4], n] + S2[SP[a1, a1], a2, SP[a3, a4], 
     a5, n] - S2[SP[a1, a1], a2, SP[a3, a5], a4, n] + 
    S2[SP[a1, a1], a5, a2, SP[a3, a4], n] + S2[SP[a1, a1], a5, SP[a2, a3], 
     a4, n] + S2[SP[a1, a1], SP[a2, a3], a4, a5, n] + 
    S2[SP[a1, a1], SP[a2, a3], a5, a4, n] - S2[SP[a1, a1], SP[a3, a5], a2, 
     a4, n] + S2[SP[a1, a2], a3, a1, SP[a4, a5], n] + 
    S2[SP[a1, a2], a3, SP[a1, a4], a5, n] + S2[SP[a1, a2], SP[a3, a4], a1, 
     a5, n] + 2*S2[a1, a1, a2, a4, SP[a3, a5], n] - 
    2*S2[a1, a1, a2, a5, SP[a3, a4], n] - 
    2*S2[a1, a1, a2, SP[a3, a4], a5, n] + 
    2*S2[a1, a1, a2, SP[a3, a5], a4, n] - 
    2*S2[a1, a1, a5, a2, SP[a3, a4], n] - 
    2*S2[a1, a1, a5, SP[a2, a3], a4, n] - 
    2*S2[a1, a1, SP[a2, a3], a4, a5, n] - 
    2*S2[a1, a1, SP[a2, a3], a5, a4, n] + 
    2*S2[a1, a1, SP[a3, a5], a2, a4, n] + S2[a1, a2, a1, a4, SP[a3, a5], n] - 
    S2[a1, a2, a1, a5, SP[a3, a4], n] - S2[a1, a2, a1, SP[a3, a4], a5, n] + 
    S2[a1, a2, a1, SP[a3, a5], a4, n] - S2[a4, n]*S2[a1, a2, a3, a1, a5, n] - 
    S2[a1, a2, a3, a1, SP[a4, a5], n] - S2[a1, a2, a3, SP[a1, a4], a5, n] + 
    S2[a1, a2, a4, a1, SP[a3, a5], n] + S2[a1, a2, a4, SP[a1, a3], a5, n] + 
    S2[a1, a2, SP[a1, a3], a4, a5, n] + S2[a1, a2, SP[a1, a3], a5, a4, n] - 
    2*S2[a1, a2, SP[a3, a4], a1, a5, n] + 
    S2[a5, n]*S2[a1, a3, a1, a2, a4, n] - 
    S2[a4, n]*S2[a1, a3, a1, a2, a5, n] - S2[a1, a3, a1, a2, SP[a4, a5], n] + 
    S2[a2, n]*S2[a1, a3, a1, a4, a5, n] + S2[a1, a3, a1, a4, SP[a2, a5], n] - 
    S2[a4, n]*S2[a1, a3, a1, a5, a2, n] + 
    S2[a2, n]*S2[a1, a3, a1, a5, a4, n] + S2[a1, a3, a1, SP[a2, a5], a4, n] - 
    S2[a1, a3, a1, SP[a4, a5], a2, n] - S2[a4, n]*S2[a1, a3, a2, a1, a5, n] - 
    S2[a1, a3, a2, a1, SP[a4, a5], n] - S2[a1, a3, a2, SP[a1, a4], a5, n] + 
    S2[a2, n]*S2[a1, a3, a4, a1, a5, n] + S2[a1, a3, a4, a1, SP[a2, a5], n] + 
    S2[a1, a3, a4, SP[a1, a2], a5, n] + S2[a1, a3, SP[a1, a2], a4, a5, n] + 
    S2[a1, a3, SP[a1, a2], a5, a4, n] - S2[a1, a3, SP[a1, a4], a2, a5, n] - 
    S2[a1, a3, SP[a1, a4], a5, a2, n] + S2[a2, n]*S2[a1, a4, a3, a1, a5, n] + 
    S2[a1, a4, a3, a1, SP[a2, a5], n] + S2[a1, a4, a3, SP[a1, a2], a5, n] + 
    S2[a1, a4, SP[a2, a3], a1, a5, n] - S2[a1, a5, a1, a2, SP[a3, a4], n] - 
    S2[a1, a5, a1, SP[a2, a3], a4, n] - S2[a1, a5, SP[a1, a3], a2, a4, n] - 
    S2[a1, SP[a3, a4], a1, a2, a5, n] - S2[a1, SP[a3, a4], a1, a5, a2, n] - 
    S2[a1, SP[a3, a4], a2, a1, a5, n] + S2[a1, SP[a3, a5], a1, a2, a4, n] - 
    S2[a2, a1, a3, a1, SP[a4, a5], n] - S2[a2, a1, a3, SP[a1, a4], a5, n] - 
    S2[a2, a1, SP[a3, a4], a1, a5, n] - S2[a2, SP[a1, a4], a3, a1, a5, n] + 
    S2[a2, n]*S2[a4, a1, a3, a1, a5, n] + S2[a4, a1, a3, a1, SP[a2, a5], n] + 
    S2[a4, a1, a3, SP[a1, a2], a5, n] + S2[a4, a1, SP[a2, a3], a1, a5, n] + 
    S2[a4, SP[a1, a2], a3, a1, a5, n] - S2[SP[a1, a4], a2, a3, a1, a5, n] - 
    S2[SP[a1, a4], a3, a1, a2, a5, n] - S2[SP[a1, a4], a3, a1, a5, a2, n] - 
    S2[SP[a1, a4], a3, a2, a1, a5, n] + S2[SP[a1, a5], a3, a1, a2, a4, n] + 
    S2[SP[a2, a4], a1, a3, a1, a5, n] - S2[a5, a1, a3, a1, a2, a4, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a4_, a2_, a1_, a3_, a5_, a1_, n_] :> 
  S2[a1, a2, a4, n]*S2[a1, a5, a3, n] + S2[SP[a1, a1], SP[a2, a5], 
     SP[a3, a4], n] + 2*S2[a2, a4, n]*S2[a1, a1, a3, a5, n] - 
    2*S2[a1, a1, SP[a2, a3], SP[a4, a5], n] - 
    2*S2[a1, a1, SP[a2, a5], SP[a3, a4], n] - 
    S2[a1, a5, n]*S2[a1, a2, a3, a4, n] - S2[a1, a5, n]*
     S2[a1, a2, a4, a3, n] + S2[a1, a2, SP[a1, a3], SP[a4, a5], n] + 
    S2[a1, a2, SP[a1, a4], SP[a3, a5], n] + S2[a2, a4, n]*
     S2[a1, a3, a1, a5, n] - S2[a1, a5, n]*S2[a1, a3, a2, a4, n] - 
    S2[a1, SP[a1, a2], a3, SP[a4, a5], n] + S2[a1, SP[a1, a2], a4, 
     SP[a3, a5], n] - S2[a1, SP[a1, a2], a5, SP[a3, a4], n] - 
    2*S2[a1, SP[a1, a2], SP[a3, a4], a5, n] + S2[a1, SP[a1, a2], SP[a3, a5], 
     a4, n] + S2[a1, SP[a1, a3], a2, SP[a4, a5], n] + 
    S2[a1, SP[a1, a3], SP[a2, a5], a4, n] - S2[a1, SP[a1, a5], a2, 
     SP[a3, a4], n] - S2[a1, SP[a1, a5], SP[a2, a3], a4, n] - 
    S2[a1, SP[a2, a3], a1, SP[a4, a5], n] - S2[a1, SP[a2, a3], SP[a1, a4], 
     a5, n] + S2[SP[a1, a1], a2, a3, SP[a4, a5], n] + 
    S2[SP[a1, a1], a2, a4, SP[a3, a5], n] - S2[SP[a1, a1], a2, a5, 
     SP[a3, a4], n] + S2[SP[a1, a1], a2, SP[a3, a5], a4, n] + 
    S2[SP[a1, a1], a3, a2, SP[a4, a5], n] + S2[SP[a1, a1], a3, SP[a2, a5], 
     a4, n] - S2[SP[a1, a1], a5, a2, SP[a3, a4], n] - 
    S2[SP[a1, a1], a5, SP[a2, a3], a4, n] + S2[SP[a1, a1], SP[a3, a5], a2, 
     a4, n] - 2*S2[SP[a1, a2], a1, a3, SP[a4, a5], n] - 
    2*S2[SP[a1, a2], a1, SP[a3, a4], a5, n] - S2[SP[a1, a2], a3, a1, 
     SP[a4, a5], n] - S2[SP[a1, a2], a3, SP[a1, a4], a5, n] - 
    2*S2[SP[a1, a2], SP[a1, a4], a3, a5, n] - S2[SP[a1, a2], SP[a3, a4], a1, 
     a5, n] + 2*S2[a4, n]*S2[a1, a1, a2, a3, a5, n] + 
    2*S2[a1, a1, a2, a3, SP[a4, a5], n] - 
    2*S2[a1, a1, a2, a4, SP[a3, a5], n] + 
    2*S2[a1, a1, a2, a5, SP[a3, a4], n] + 
    4*S2[a1, a1, a2, SP[a3, a4], a5, n] - 
    2*S2[a1, a1, a2, SP[a3, a5], a4, n] + 
    2*S2[a4, n]*S2[a1, a1, a3, a2, a5, n] + 
    2*S2[a1, a1, a3, a2, SP[a4, a5], n] - 
    2*S2[a2, n]*S2[a1, a1, a3, a4, a5, n] - 
    2*S2[a1, a1, a3, a4, SP[a2, a5], n] + 
    2*S2[a4, n]*S2[a1, a1, a3, a5, a2, n] - 
    2*S2[a2, n]*S2[a1, a1, a3, a5, a4, n] - 
    2*S2[a1, a1, a3, SP[a2, a5], a4, n] + 
    2*S2[a1, a1, a3, SP[a4, a5], a2, n] - 
    2*S2[a2, n]*S2[a1, a1, a4, a3, a5, n] - 
    2*S2[a1, a1, a4, a3, SP[a2, a5], n] - 
    2*S2[a1, a1, a4, SP[a2, a3], a5, n] + 
    2*S2[a1, a1, a5, a2, SP[a3, a4], n] + 
    2*S2[a1, a1, a5, SP[a2, a3], a4, n] + 
    2*S2[a1, a1, SP[a3, a4], a2, a5, n] + 
    2*S2[a1, a1, SP[a3, a4], a5, a2, n] - 
    2*S2[a1, a1, SP[a3, a5], a2, a4, n] + 
    S2[a4, n]*S2[a1, a2, a1, a3, a5, n] + 
    2*S2[a1, a2, a1, a3, SP[a4, a5], n] - S2[a1, a2, a1, a4, SP[a3, a5], n] + 
    S2[a1, a2, a1, a5, SP[a3, a4], n] + 3*S2[a1, a2, a1, SP[a3, a4], a5, n] - 
    S2[a1, a2, a1, SP[a3, a5], a4, n] + S2[a4, n]*S2[a1, a2, a3, a1, a5, n] + 
    S2[a1, a2, a3, a1, SP[a4, a5], n] + S2[a1, a2, a3, SP[a1, a4], a5, n] - 
    S2[a1, a2, a4, a1, SP[a3, a5], n] - S2[a1, a2, a4, SP[a1, a3], a5, n] - 
    S2[a1, a2, SP[a1, a3], a4, a5, n] - S2[a1, a2, SP[a1, a3], a5, a4, n] + 
    2*S2[a1, a2, SP[a1, a4], a3, a5, n] + 
    2*S2[a1, a2, SP[a3, a4], a1, a5, n] + 
    S2[a4, n]*S2[a1, a3, a1, a2, a5, n] + S2[a1, a3, a1, a2, SP[a4, a5], n] - 
    S2[a2, n]*S2[a1, a3, a1, a4, a5, n] - S2[a1, a3, a1, a4, SP[a2, a5], n] + 
    S2[a4, n]*S2[a1, a3, a1, a5, a2, n] - 
    S2[a2, n]*S2[a1, a3, a1, a5, a4, n] - S2[a1, a3, a1, SP[a2, a5], a4, n] + 
    S2[a1, a3, a1, SP[a4, a5], a2, n] + S2[a4, n]*S2[a1, a3, a2, a1, a5, n] + 
    S2[a1, a3, a2, a1, SP[a4, a5], n] + S2[a1, a3, a2, SP[a1, a4], a5, n] - 
    S2[a2, n]*S2[a1, a3, a4, a1, a5, n] - S2[a1, a3, a4, a1, SP[a2, a5], n] - 
    S2[a1, a3, a4, SP[a1, a2], a5, n] - S2[a1, a3, SP[a1, a2], a4, a5, n] - 
    S2[a1, a3, SP[a1, a2], a5, a4, n] + S2[a1, a3, SP[a1, a4], a2, a5, n] + 
    S2[a1, a3, SP[a1, a4], a5, a2, n] - 2*S2[a2, n]*
     S2[a1, a4, a1, a3, a5, n] - 2*S2[a1, a4, a1, a3, SP[a2, a5], n] - 
    2*S2[a1, a4, a1, SP[a2, a3], a5, n] - 
    S2[a2, n]*S2[a1, a4, a3, a1, a5, n] - S2[a1, a4, a3, a1, SP[a2, a5], n] - 
    S2[a1, a4, a3, SP[a1, a2], a5, n] - 2*S2[a1, a4, SP[a1, a2], a3, a5, n] - 
    S2[a1, a4, SP[a2, a3], a1, a5, n] + S2[a1, a5, a1, a2, SP[a3, a4], n] + 
    S2[a1, a5, a1, SP[a2, a3], a4, n] + S2[a1, a5, SP[a1, a3], a2, a4, n] - 
    S2[a1, SP[a1, a2], a3, a4, a5, n] - S2[a1, SP[a1, a2], a3, a5, a4, n] - 
    S2[a1, SP[a1, a2], a4, a3, a5, n] - S2[a1, SP[a1, a3], a2, a4, a5, n] - 
    S2[a1, SP[a1, a3], a2, a5, a4, n] - S2[a1, SP[a1, a3], a5, a2, a4, n] + 
    2*S2[a1, SP[a1, a4], a2, a3, a5, n] + 
    2*S2[a1, SP[a1, a4], a3, a2, a5, n] + 
    2*S2[a1, SP[a1, a4], a3, a5, a2, n] - S2[a1, SP[a2, a4], a1, a3, a5, n] + 
    S2[a1, SP[a3, a4], a1, a2, a5, n] + S2[a1, SP[a3, a4], a1, a5, a2, n] + 
    S2[a1, SP[a3, a4], a2, a1, a5, n] + 2*S2[a2, a1, a1, a3, SP[a4, a5], n] + 
    2*S2[a2, a1, a1, SP[a3, a4], a5, n] + S2[a2, a1, a3, a1, SP[a4, a5], n] + 
    S2[a2, a1, a3, SP[a1, a4], a5, n] + 2*S2[a2, a1, SP[a1, a4], a3, a5, n] + 
    S2[a2, a1, SP[a3, a4], a1, a5, n] + 2*S2[a2, SP[a1, a4], a1, a3, a5, n] + 
    S2[a2, SP[a1, a4], a3, a1, a5, n] - 2*S2[a2, n]*
     S2[a4, a1, a1, a3, a5, n] - 2*S2[a4, a1, a1, a3, SP[a2, a5], n] - 
    2*S2[a4, a1, a1, SP[a2, a3], a5, n] - 
    S2[a2, n]*S2[a4, a1, a3, a1, a5, n] - S2[a4, a1, a3, a1, SP[a2, a5], n] - 
    S2[a4, a1, a3, SP[a1, a2], a5, n] - 2*S2[a4, a1, SP[a1, a2], a3, a5, n] - 
    S2[a4, a1, SP[a2, a3], a1, a5, n] + S2[a1, n]*S2[a4, a2, a1, a3, a5, n] + 
    S2[a4, a2, a1, a3, SP[a1, a5], n] + S2[a4, a2, a1, SP[a1, a3], a5, n] + 
    S2[a4, a2, SP[a1, a1], a3, a5, n] - S2[a4, SP[a1, a2], a1, a3, a5, n] - 
    S2[a4, SP[a1, a2], a3, a1, a5, n] - S2[a1, n]*S2[a5, a3, a1, a2, a4, n] - 
    S2[a5, a3, a1, a2, SP[a1, a4], n] - S2[a5, a3, a1, SP[a1, a2], a4, n] - 
    S2[a5, a3, SP[a1, a1], a2, a4, n] - S2[a5, SP[a1, a3], a1, a2, a4, n] - 
    S2[SP[a1, a1], a2, a3, a4, a5, n] - S2[SP[a1, a1], a2, a3, a5, a4, n] - 
    S2[SP[a1, a1], a2, a4, a3, a5, n] - S2[SP[a1, a1], a3, a2, a4, a5, n] - 
    S2[SP[a1, a1], a3, a2, a5, a4, n] - S2[SP[a1, a1], a3, a5, a2, a4, n] + 
    2*S2[SP[a1, a4], a1, a2, a3, a5, n] + 
    2*S2[SP[a1, a4], a1, a3, a2, a5, n] + 
    2*S2[SP[a1, a4], a1, a3, a5, a2, n] + 
    2*S2[SP[a1, a4], a2, a1, a3, a5, n] + S2[SP[a1, a4], a2, a3, a1, a5, n] + 
    S2[SP[a1, a4], a3, a1, a2, a5, n] + S2[SP[a1, a4], a3, a1, a5, a2, n] + 
    S2[SP[a1, a4], a3, a2, a1, a5, n] - S2[SP[a1, a5], a3, a1, a2, a4, n] - 
    2*S2[SP[a2, a4], a1, a1, a3, a5, n] - S2[SP[a2, a4], a1, a3, a1, a5, n] + 
    S2[a5, a1, a3, a1, a2, a4, n] + 2*S2[a5, a3, a1, a1, a2, a4, n] + 
    S2[a5, a3, a1, a2, a1, a4, n] + S2[a5, a3, a1, a2, a4, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a4_, a2_, a1_, a5_, a1_, a3_, n_] :> 
  -(S2[a1, a2, a4, n]*S2[a1, a3, a5, n]) - S2[a1, a2, a4, n]*
     S2[a1, a5, a3, n] - S2[SP[a1, a1], SP[a2, a3], SP[a4, a5], n] - 
    S2[SP[a1, a1], SP[a2, a5], SP[a3, a4], n] + 
    2*S2[a2, a4, n]*S2[a1, a1, a3, a5, n] + 2*S2[a2, a4, n]*
     S2[a1, a1, a5, a3, n] + S2[a2, a4, n]*S2[a1, a3, a1, a5, n] - 
    S2[a1, a3, SP[a1, a2], SP[a4, a5], n] + S2[a1, a3, n]*
     S2[a1, a4, a2, a5, n] + S2[a1, a3, n]*S2[a1, a4, a5, a2, n] - 
    S2[a1, a4, SP[a1, a2], SP[a3, a5], n] - S2[a1, a4, SP[a1, a5], 
     SP[a2, a3], n] + S2[a1, a3, n]*S2[a1, a5, a4, a2, n] - 
    S2[a1, a5, SP[a1, a4], SP[a2, a3], n] - S2[a1, SP[a1, a2], a3, 
     SP[a4, a5], n] - S2[a1, SP[a1, a2], a5, SP[a3, a4], n] - 
    S2[a1, SP[a1, a2], SP[a3, a4], a5, n] - S2[a1, SP[a1, a2], SP[a4, a5], 
     a3, n] + S2[a1, SP[a1, a3], a2, SP[a4, a5], n] + 
    S2[a1, SP[a1, a3], SP[a2, a5], a4, n] - S2[a1, SP[a1, a4], a2, 
     SP[a3, a5], n] - S2[a1, SP[a1, a4], a5, SP[a2, a3], n] - 
    S2[a1, SP[a1, a4], SP[a2, a3], a5, n] - S2[a1, SP[a1, a4], SP[a3, a5], 
     a2, n] + S2[a1, SP[a1, a5], a2, SP[a3, a4], n] - 
    S2[a1, SP[a1, a5], a4, SP[a2, a3], n] + S2[a1, SP[a1, a5], SP[a2, a3], 
     a4, n] - S2[a1, SP[a1, a5], SP[a3, a4], a2, n] - 
    S2[a1, SP[a2, a3], a1, SP[a4, a5], n] - S2[a1, SP[a2, a3], SP[a1, a4], 
     a5, n] - S2[a1, a3, n]*S2[a2, a4, a1, a5, n] + 
    S2[a2, a4, SP[a1, a1], SP[a3, a5], n] + S2[a2, SP[a1, a4], a1, 
     SP[a3, a5], n] + S2[a2, SP[a1, a4], SP[a1, a3], a5, n] + 
    S2[SP[a1, a1], a2, a3, SP[a4, a5], n] + S2[SP[a1, a1], a2, a5, 
     SP[a3, a4], n] + S2[SP[a1, a1], a2, SP[a3, a4], a5, n] + 
    S2[SP[a1, a1], a2, SP[a4, a5], a3, n] + S2[SP[a1, a1], a3, a2, 
     SP[a4, a5], n] + S2[SP[a1, a1], a3, SP[a2, a5], a4, n] - 
    S2[SP[a1, a1], a4, a2, SP[a3, a5], n] - S2[SP[a1, a1], a4, a5, 
     SP[a2, a3], n] - S2[SP[a1, a1], a4, SP[a2, a3], a5, n] - 
    S2[SP[a1, a1], a4, SP[a3, a5], a2, n] + S2[SP[a1, a1], a5, a2, 
     SP[a3, a4], n] - S2[SP[a1, a1], a5, a4, SP[a2, a3], n] + 
    S2[SP[a1, a1], a5, SP[a2, a3], a4, n] - S2[SP[a1, a1], a5, SP[a3, a4], 
     a2, n] + S2[SP[a1, a1], SP[a2, a3], a4, a5, n] + 
    S2[SP[a1, a1], SP[a2, a3], a5, a4, n] + S2[SP[a1, a1], SP[a2, a5], a3, 
     a4, n] + S2[SP[a1, a1], SP[a2, a5], a4, a3, n] - 
    S2[SP[a1, a1], SP[a3, a4], a2, a5, n] - S2[SP[a1, a1], SP[a3, a4], a5, 
     a2, n] - S2[SP[a1, a1], SP[a3, a5], a4, a2, n] - 
    2*S2[SP[a1, a2], a1, a3, SP[a4, a5], n] - 
    2*S2[SP[a1, a2], a1, a5, SP[a3, a4], n] - 
    2*S2[SP[a1, a2], a1, SP[a3, a4], a5, n] - 
    2*S2[SP[a1, a2], a1, SP[a4, a5], a3, n] - S2[SP[a1, a2], a3, a1, 
     SP[a4, a5], n] - S2[SP[a1, a2], a3, SP[a1, a4], a5, n] + 
    S2[SP[a1, a2], a4, a1, SP[a3, a5], n] + S2[SP[a1, a2], a4, SP[a1, a3], 
     a5, n] - 2*S2[SP[a1, a2], SP[a1, a4], a3, a5, n] - 
    2*S2[SP[a1, a2], SP[a1, a4], a5, a3, n] + 
    2*S2[a5, n]*S2[a1, a1, a2, a3, a4, n] + 
    2*S2[a1, a1, a2, a3, SP[a4, a5], n] + 
    2*S2[a5, n]*S2[a1, a1, a2, a4, a3, n] + 
    2*S2[a1, a1, a2, a4, SP[a3, a5], n] + 
    2*S2[a1, a1, a2, SP[a3, a5], a4, n] + 
    2*S2[a1, a1, a2, SP[a4, a5], a3, n] + 
    2*S2[a5, n]*S2[a1, a1, a3, a2, a4, n] + 
    2*S2[a1, a1, a3, a2, SP[a4, a5], n] - 
    2*S2[a2, n]*S2[a1, a1, a3, a4, a5, n] - 
    2*S2[a1, a1, a3, a4, SP[a2, a5], n] - 
    2*S2[a2, n]*S2[a1, a1, a3, a5, a4, n] - 
    2*S2[a1, a1, a3, a5, SP[a2, a4], n] - 
    2*S2[a1, a1, a3, SP[a2, a4], a5, n] + 
    2*S2[a1, a1, a4, a2, SP[a3, a5], n] - 
    2*S2[a2, n]*S2[a1, a1, a4, a3, a5, n] - 
    2*S2[a1, a1, a4, a3, SP[a2, a5], n] - 
    2*S2[a2, n]*S2[a1, a1, a4, a5, a3, n] - 
    2*S2[a1, a1, a4, SP[a2, a5], a3, n] + 
    2*S2[a1, a1, a4, SP[a3, a5], a2, n] - 
    2*S2[a2, n]*S2[a1, a1, a5, a3, a4, n] - 
    2*S2[a1, a1, a5, a3, SP[a2, a4], n] - 
    2*S2[a2, n]*S2[a1, a1, a5, a4, a3, n] - 
    2*S2[a1, a1, a5, SP[a2, a3], a4, n] - 
    2*S2[a1, a1, a5, SP[a2, a4], a3, n] + 
    2*S2[a1, a1, a5, SP[a3, a4], a2, n] - 
    2*S2[a1, a1, SP[a2, a3], a4, a5, n] - 
    2*S2[a1, a1, SP[a2, a3], a5, a4, n] - 
    2*S2[a1, a1, SP[a2, a4], a3, a5, n] - 
    2*S2[a1, a1, SP[a2, a4], a5, a3, n] + 
    2*S2[a1, a1, SP[a3, a4], a2, a5, n] + 
    2*S2[a1, a1, SP[a3, a4], a5, a2, n] + 
    2*S2[a1, a1, SP[a3, a5], a2, a4, n] + 
    2*S2[a1, a1, SP[a3, a5], a4, a2, n] + 
    S2[a5, n]*S2[a1, a2, a1, a3, a4, n] + 
    2*S2[a1, a2, a1, a3, SP[a4, a5], n] + 
    S2[a5, n]*S2[a1, a2, a1, a4, a3, n] + S2[a1, a2, a1, a4, SP[a3, a5], n] + 
    S2[a1, a2, a1, a5, SP[a3, a4], n] + S2[a1, a2, a1, SP[a3, a4], a5, n] + 
    S2[a1, a2, a1, SP[a3, a5], a4, n] + 2*S2[a1, a2, a1, SP[a4, a5], a3, n] + 
    S2[a1, a2, a3, a1, SP[a4, a5], n] + S2[a1, a2, a3, SP[a1, a4], a5, n] + 
    S2[a5, n]*S2[a1, a2, a4, a1, a3, n] - S2[a1, a2, a4, SP[a1, a3], a5, n] + 
    S2[a1, a2, a4, SP[a1, a5], a3, n] - S2[a4, n]*S2[a1, a2, a5, a1, a3, n] - 
    S2[a1, a2, a5, a1, SP[a3, a4], n] - S2[a1, a2, a5, SP[a1, a4], a3, n] + 
    S2[a1, a2, SP[a1, a4], a3, a5, n] + S2[a1, a2, SP[a1, a4], a5, a3, n] + 
    S2[a1, a2, SP[a1, a5], a3, a4, n] + S2[a1, a2, SP[a1, a5], a4, a3, n] + 
    S2[a5, n]*S2[a1, a3, a1, a2, a4, n] + S2[a1, a3, a1, a2, SP[a4, a5], n] - 
    S2[a2, n]*S2[a1, a3, a1, a4, a5, n] - S2[a1, a3, a1, a4, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a3, a1, a5, a4, n] - S2[a1, a3, a1, a5, SP[a2, a4], n] - 
    S2[a1, a3, a1, SP[a2, a4], a5, n] + S2[a1, a3, a2, a1, SP[a4, a5], n] + 
    S2[a1, a3, a2, SP[a1, a4], a5, n] + S2[a1, a4, a1, a2, SP[a3, a5], n] - 
    S2[a2, n]*S2[a1, a4, a1, a3, a5, n] - S2[a1, a4, a1, a3, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a4, a1, a5, a3, n] - S2[a1, a4, a1, SP[a2, a5], a3, n] + 
    S2[a1, a4, a1, SP[a3, a5], a2, n] + S2[a1, a4, a2, a1, SP[a3, a5], n] + 
    S2[a1, a4, a2, SP[a1, a5], a3, n] + S2[a1, a4, a5, a1, SP[a2, a3], n] + 
    S2[a1, a4, a5, SP[a1, a2], a3, n] + S2[a1, a4, SP[a1, a5], a2, a3, n] + 
    S2[a1, a4, SP[a1, a5], a3, a2, n] - S2[a4, n]*S2[a1, a5, a1, a2, a3, n] - 
    2*S2[a1, a5, a1, a2, SP[a3, a4], n] - 
    S2[a4, n]*S2[a1, a5, a1, a3, a2, n] - S2[a1, a5, a1, a3, SP[a2, a4], n] + 
    S2[a1, a5, a1, a4, SP[a2, a3], n] - S2[a1, a5, a1, SP[a2, a3], a4, n] - 
    S2[a1, a5, a1, SP[a2, a4], a3, n] - S2[a4, n]*S2[a1, a5, a2, a1, a3, n] - 
    S2[a1, a5, a2, a1, SP[a3, a4], n] - S2[a1, a5, a2, SP[a1, a4], a3, n] + 
    S2[a1, a5, a4, a1, SP[a2, a3], n] + S2[a1, a5, a4, SP[a1, a2], a3, n] - 
    S2[a1, a5, SP[a1, a3], a2, a4, n] - S2[a1, a5, SP[a2, a4], a1, a3, n] - 
    S2[a1, SP[a1, a2], a3, a4, a5, n] - S2[a1, SP[a1, a2], a3, a5, a4, n] - 
    S2[a1, SP[a1, a2], a4, a3, a5, n] - S2[a1, SP[a1, a2], a4, a5, a3, n] - 
    S2[a1, SP[a1, a2], a5, a3, a4, n] - S2[a1, SP[a1, a2], a5, a4, a3, n] - 
    S2[a1, SP[a1, a3], a2, a4, a5, n] - S2[a1, SP[a1, a3], a2, a5, a4, n] + 
    S2[a1, SP[a1, a3], a4, a2, a5, n] + S2[a1, SP[a1, a3], a4, a5, a2, n] - 
    S2[a1, SP[a1, a3], a5, a2, a4, n] + S2[a1, SP[a1, a3], a5, a4, a2, n] + 
    S2[a1, SP[a1, a4], a2, a3, a5, n] + S2[a1, SP[a1, a4], a2, a5, a3, n] + 
    S2[a1, SP[a1, a4], a3, a2, a5, n] + S2[a1, SP[a1, a4], a3, a5, a2, n] + 
    S2[a1, SP[a1, a4], a5, a2, a3, n] + S2[a1, SP[a1, a4], a5, a3, a2, n] + 
    S2[a1, SP[a1, a5], a2, a3, a4, n] + S2[a1, SP[a1, a5], a2, a4, a3, n] + 
    S2[a1, SP[a1, a5], a3, a2, a4, n] + S2[a1, SP[a1, a5], a3, a4, a2, n] + 
    S2[a1, SP[a1, a5], a4, a2, a3, n] + S2[a1, SP[a1, a5], a4, a3, a2, n] - 
    S2[a1, SP[a2, a4], a1, a3, a5, n] - S2[a1, SP[a2, a4], a1, a5, a3, n] - 
    S2[a1, SP[a2, a4], a5, a1, a3, n] + S2[a1, SP[a2, a5], a1, a3, a4, n] + 
    S2[a1, SP[a2, a5], a1, a4, a3, n] + S2[a1, SP[a2, a5], a4, a1, a3, n] + 
    S2[a1, SP[a3, a5], a1, a2, a4, n] - S2[a1, SP[a4, a5], a1, a2, a3, n] - 
    S2[a1, SP[a4, a5], a1, a3, a2, n] - S2[a1, SP[a4, a5], a2, a1, a3, n] + 
    2*S2[a2, a1, a1, a3, SP[a4, a5], n] + 
    2*S2[a2, a1, a1, a5, SP[a3, a4], n] + 
    2*S2[a2, a1, a1, SP[a3, a4], a5, n] + 
    2*S2[a2, a1, a1, SP[a4, a5], a3, n] + S2[a2, a1, a3, a1, SP[a4, a5], n] + 
    S2[a2, a1, a3, SP[a1, a4], a5, n] - S2[a2, a1, a4, a1, SP[a3, a5], n] - 
    S2[a2, a1, a4, SP[a1, a3], a5, n] + 2*S2[a2, a1, SP[a1, a4], a3, a5, n] + 
    2*S2[a2, a1, SP[a1, a4], a5, a3, n] - 
    2*S2[a2, a4, a1, a1, SP[a3, a5], n] - S2[a2, a4, a1, SP[a1, a3], a5, n] - 
    S2[a2, a4, a1, SP[a1, a5], a3, n] - S2[a2, a4, SP[a1, a1], a3, a5, n] - 
    S2[a2, a4, SP[a1, a1], a5, a3, n] + S2[a2, SP[a1, a4], a1, a3, a5, n] + 
    S2[a2, SP[a1, a4], a1, a5, a3, n] + S2[a2, n]*S2[a4, a1, a5, a1, a3, n] + 
    S2[a4, a1, a5, a1, SP[a2, a3], n] + S2[a4, a1, a5, SP[a1, a2], a3, n] + 
    S2[a4, a1, SP[a2, a5], a1, a3, n] + S2[a4, SP[a1, a2], a5, a1, a3, n] - 
    S2[SP[a1, a1], a2, a3, a4, a5, n] - S2[SP[a1, a1], a2, a3, a5, a4, n] - 
    S2[SP[a1, a1], a2, a4, a3, a5, n] - S2[SP[a1, a1], a2, a4, a5, a3, n] - 
    S2[SP[a1, a1], a2, a5, a3, a4, n] - S2[SP[a1, a1], a2, a5, a4, a3, n] - 
    S2[SP[a1, a1], a3, a2, a4, a5, n] - S2[SP[a1, a1], a3, a2, a5, a4, n] + 
    S2[SP[a1, a1], a3, a4, a2, a5, n] + S2[SP[a1, a1], a3, a4, a5, a2, n] - 
    S2[SP[a1, a1], a3, a5, a2, a4, n] + S2[SP[a1, a1], a3, a5, a4, a2, n] + 
    S2[SP[a1, a1], a4, a2, a3, a5, n] + S2[SP[a1, a1], a4, a2, a5, a3, n] + 
    S2[SP[a1, a1], a4, a3, a2, a5, n] + S2[SP[a1, a1], a4, a3, a5, a2, n] + 
    S2[SP[a1, a1], a4, a5, a2, a3, n] + S2[SP[a1, a1], a4, a5, a3, a2, n] - 
    S2[SP[a1, a1], a5, a2, a3, a4, n] - S2[SP[a1, a1], a5, a2, a4, a3, n] - 
    S2[SP[a1, a1], a5, a3, a2, a4, n] + S2[SP[a1, a1], a5, a3, a4, a2, n] + 
    S2[SP[a1, a1], a5, a4, a2, a3, n] + S2[SP[a1, a1], a5, a4, a3, a2, n] - 
    S2[SP[a1, a4], a2, a5, a1, a3, n] - S2[SP[a1, a4], a5, a1, a2, a3, n] - 
    S2[SP[a1, a4], a5, a1, a3, a2, n] - S2[SP[a1, a4], a5, a2, a1, a3, n] + 
    2*S2[SP[a1, a5], a1, a2, a3, a4, n] + 
    2*S2[SP[a1, a5], a1, a2, a4, a3, n] + 
    2*S2[SP[a1, a5], a1, a3, a2, a4, n] + S2[SP[a1, a5], a2, a1, a3, a4, n] + 
    S2[SP[a1, a5], a2, a1, a4, a3, n] + S2[SP[a1, a5], a2, a4, a1, a3, n] + 
    S2[SP[a1, a5], a3, a1, a2, a4, n] + S2[SP[a2, a4], a1, a5, a1, a3, n] - 
    2*S2[a5, a1, a1, a2, a3, a4, n] - 2*S2[a5, a1, a1, a2, a4, a3, n] - 
    2*S2[a5, a1, a1, a3, a2, a4, n] - S2[a5, a1, a2, a1, a3, a4, n] - 
    S2[a5, a1, a2, a1, a4, a3, n] - S2[a5, a1, a2, a4, a1, a3, n] - 
    S2[a5, a1, a3, a1, a2, a4, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a4_, a2_, a1_, a5_, a3_, a1_, n_] :> 
  S2[a1, a2, a4, n]*S2[a1, a3, a5, n] + S2[SP[a1, a1], SP[a2, a3], 
     SP[a4, a5], n] - 2*S2[a2, a4, n]*S2[a1, a1, a3, a5, n] - 
    S2[a2, a4, n]*S2[a1, a3, a1, a5, n] + S2[a1, a3, SP[a1, a2], SP[a4, a5], 
     n] - S2[a1, a3, n]*S2[a1, a4, a2, a5, n] - 
    S2[a1, a3, n]*S2[a1, a4, a5, a2, n] + S2[a1, a4, SP[a1, a2], SP[a3, a5], 
     n] + S2[a1, a4, SP[a1, a5], SP[a2, a3], n] - 
    S2[a1, a3, n]*S2[a1, a5, a4, a2, n] + S2[a1, a5, SP[a1, a4], SP[a2, a3], 
     n] + S2[a1, SP[a1, a2], a3, SP[a4, a5], n] + 
    S2[a1, SP[a1, a2], SP[a3, a4], a5, n] - S2[a1, SP[a1, a3], a2, 
     SP[a4, a5], n] - S2[a1, SP[a1, a3], SP[a2, a5], a4, n] + 
    S2[a1, SP[a1, a4], a2, SP[a3, a5], n] + S2[a1, SP[a1, a4], a5, 
     SP[a2, a3], n] + S2[a1, SP[a1, a4], SP[a2, a3], a5, n] + 
    S2[a1, SP[a1, a4], SP[a3, a5], a2, n] + S2[a1, SP[a1, a5], a4, 
     SP[a2, a3], n] + S2[a1, SP[a1, a5], SP[a3, a4], a2, n] + 
    S2[a1, SP[a2, a3], a1, SP[a4, a5], n] + S2[a1, SP[a2, a3], SP[a1, a4], 
     a5, n] + S2[a1, a3, n]*S2[a2, a4, a1, a5, n] - 
    S2[a2, a4, SP[a1, a1], SP[a3, a5], n] - S2[a2, SP[a1, a4], a1, 
     SP[a3, a5], n] - S2[a2, SP[a1, a4], SP[a1, a3], a5, n] - 
    S2[SP[a1, a1], a2, a3, SP[a4, a5], n] - S2[SP[a1, a1], a2, SP[a3, a4], 
     a5, n] - S2[SP[a1, a1], a3, a2, SP[a4, a5], n] - 
    S2[SP[a1, a1], a3, SP[a2, a5], a4, n] + S2[SP[a1, a1], a4, a2, 
     SP[a3, a5], n] + S2[SP[a1, a1], a4, a5, SP[a2, a3], n] + 
    S2[SP[a1, a1], a4, SP[a2, a3], a5, n] + S2[SP[a1, a1], a4, SP[a3, a5], 
     a2, n] + S2[SP[a1, a1], a5, a4, SP[a2, a3], n] + 
    S2[SP[a1, a1], a5, SP[a3, a4], a2, n] - S2[SP[a1, a1], SP[a2, a3], a4, 
     a5, n] - S2[SP[a1, a1], SP[a2, a3], a5, a4, n] + 
    S2[SP[a1, a1], SP[a3, a4], a2, a5, n] + S2[SP[a1, a1], SP[a3, a4], a5, 
     a2, n] + S2[SP[a1, a1], SP[a3, a5], a4, a2, n] + 
    2*S2[SP[a1, a2], a1, a3, SP[a4, a5], n] + 
    2*S2[SP[a1, a2], a1, SP[a3, a4], a5, n] + S2[SP[a1, a2], a3, a1, 
     SP[a4, a5], n] + S2[SP[a1, a2], a3, SP[a1, a4], a5, n] - 
    S2[SP[a1, a2], a4, a1, SP[a3, a5], n] - S2[SP[a1, a2], a4, SP[a1, a3], 
     a5, n] + 2*S2[SP[a1, a2], SP[a1, a4], a3, a5, n] - 
    2*S2[a5, n]*S2[a1, a1, a2, a3, a4, n] - 
    2*S2[a1, a1, a2, a3, SP[a4, a5], n] - 
    2*S2[a5, n]*S2[a1, a1, a2, a4, a3, n] - 
    2*S2[a1, a1, a2, a4, SP[a3, a5], n] + 
    2*S2[a4, n]*S2[a1, a1, a2, a5, a3, n] + 
    2*S2[a1, a1, a2, a5, SP[a3, a4], n] - 
    2*S2[a1, a1, a2, SP[a3, a5], a4, n] - 
    2*S2[a5, n]*S2[a1, a1, a3, a2, a4, n] - 
    2*S2[a1, a1, a3, a2, SP[a4, a5], n] + 
    2*S2[a2, n]*S2[a1, a1, a3, a4, a5, n] + 
    2*S2[a1, a1, a3, a4, SP[a2, a5], n] + 
    2*S2[a2, n]*S2[a1, a1, a3, a5, a4, n] + 
    2*S2[a1, a1, a3, a5, SP[a2, a4], n] + 
    2*S2[a1, a1, a3, SP[a2, a4], a5, n] - 
    2*S2[a1, a1, a4, a2, SP[a3, a5], n] + 
    2*S2[a2, n]*S2[a1, a1, a4, a3, a5, n] + 
    2*S2[a1, a1, a4, a3, SP[a2, a5], n] - 
    2*S2[a1, a1, a4, a5, SP[a2, a3], n] - 
    2*S2[a1, a1, a4, SP[a3, a5], a2, n] + 
    2*S2[a4, n]*S2[a1, a1, a5, a2, a3, n] + 
    2*S2[a1, a1, a5, a2, SP[a3, a4], n] + 
    2*S2[a4, n]*S2[a1, a1, a5, a3, a2, n] + 
    2*S2[a1, a1, a5, a3, SP[a2, a4], n] - 
    2*S2[a1, a1, a5, a4, SP[a2, a3], n] + 
    2*S2[a1, a1, a5, SP[a2, a4], a3, n] + 
    2*S2[a1, a1, SP[a2, a3], a4, a5, n] + 
    2*S2[a1, a1, SP[a2, a3], a5, a4, n] + 
    2*S2[a1, a1, SP[a2, a4], a3, a5, n] + 
    2*S2[a1, a1, SP[a2, a4], a5, a3, n] - 
    2*S2[a1, a1, SP[a2, a5], a3, a4, n] - 
    2*S2[a1, a1, SP[a2, a5], a4, a3, n] - 
    2*S2[a1, a1, SP[a3, a4], a2, a5, n] - 
    2*S2[a1, a1, SP[a3, a4], a5, a2, n] - 
    2*S2[a1, a1, SP[a3, a5], a2, a4, n] - 
    2*S2[a1, a1, SP[a3, a5], a4, a2, n] + 
    2*S2[a1, a1, SP[a4, a5], a2, a3, n] + 
    2*S2[a1, a1, SP[a4, a5], a3, a2, n] - 
    S2[a5, n]*S2[a1, a2, a1, a3, a4, n] - 
    2*S2[a1, a2, a1, a3, SP[a4, a5], n] - 
    S2[a5, n]*S2[a1, a2, a1, a4, a3, n] - S2[a1, a2, a1, a4, SP[a3, a5], n] + 
    S2[a4, n]*S2[a1, a2, a1, a5, a3, n] + S2[a1, a2, a1, a5, SP[a3, a4], n] - 
    S2[a1, a2, a1, SP[a3, a4], a5, n] - S2[a1, a2, a1, SP[a3, a5], a4, n] - 
    S2[a1, a2, a3, a1, SP[a4, a5], n] - S2[a1, a2, a3, SP[a1, a4], a5, n] - 
    S2[a5, n]*S2[a1, a2, a4, a1, a3, n] + S2[a1, a2, a4, SP[a1, a3], a5, n] - 
    S2[a1, a2, a4, SP[a1, a5], a3, n] + S2[a4, n]*S2[a1, a2, a5, a1, a3, n] + 
    S2[a1, a2, a5, a1, SP[a3, a4], n] + S2[a1, a2, a5, SP[a1, a4], a3, n] - 
    S2[a1, a2, SP[a1, a4], a3, a5, n] + S2[a1, a2, SP[a1, a4], a5, a3, n] - 
    S2[a1, a2, SP[a1, a5], a3, a4, n] - S2[a1, a2, SP[a1, a5], a4, a3, n] - 
    S2[a5, n]*S2[a1, a3, a1, a2, a4, n] - S2[a1, a3, a1, a2, SP[a4, a5], n] + 
    S2[a2, n]*S2[a1, a3, a1, a4, a5, n] + S2[a1, a3, a1, a4, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a3, a1, a5, a4, n] + S2[a1, a3, a1, a5, SP[a2, a4], n] + 
    S2[a1, a3, a1, SP[a2, a4], a5, n] - S2[a1, a3, a2, a1, SP[a4, a5], n] - 
    S2[a1, a3, a2, SP[a1, a4], a5, n] - S2[a1, a4, a1, a2, SP[a3, a5], n] + 
    S2[a2, n]*S2[a1, a4, a1, a3, a5, n] + S2[a1, a4, a1, a3, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a4, a1, a5, a3, n] - 
    2*S2[a1, a4, a1, a5, SP[a2, a3], n] - S2[a1, a4, a1, SP[a2, a5], a3, n] - 
    S2[a1, a4, a1, SP[a3, a5], a2, n] - S2[a1, a4, a2, a1, SP[a3, a5], n] - 
    S2[a1, a4, a2, SP[a1, a5], a3, n] - S2[a1, a4, a5, a1, SP[a2, a3], n] - 
    S2[a1, a4, a5, SP[a1, a2], a3, n] - 2*S2[a1, a4, SP[a1, a2], a5, a3, n] - 
    S2[a1, a4, SP[a1, a5], a2, a3, n] - S2[a1, a4, SP[a1, a5], a3, a2, n] + 
    S2[a4, n]*S2[a1, a5, a1, a2, a3, n] + S2[a1, a5, a1, a2, SP[a3, a4], n] + 
    S2[a4, n]*S2[a1, a5, a1, a3, a2, n] + S2[a1, a5, a1, a3, SP[a2, a4], n] - 
    S2[a1, a5, a1, a4, SP[a2, a3], n] + S2[a1, a5, a1, SP[a2, a4], a3, n] + 
    S2[a4, n]*S2[a1, a5, a2, a1, a3, n] + S2[a1, a5, a2, a1, SP[a3, a4], n] + 
    S2[a1, a5, a2, SP[a1, a4], a3, n] - S2[a1, a5, a4, a1, SP[a2, a3], n] - 
    S2[a1, a5, a4, SP[a1, a2], a3, n] + S2[a1, a5, SP[a2, a4], a1, a3, n] + 
    S2[a1, SP[a1, a2], a3, a4, a5, n] + S2[a1, SP[a1, a2], a3, a5, a4, n] + 
    S2[a1, SP[a1, a2], a4, a3, a5, n] + S2[a1, SP[a1, a3], a2, a4, a5, n] + 
    S2[a1, SP[a1, a3], a2, a5, a4, n] - S2[a1, SP[a1, a3], a4, a2, a5, n] - 
    S2[a1, SP[a1, a3], a4, a5, a2, n] + S2[a1, SP[a1, a3], a5, a2, a4, n] - 
    S2[a1, SP[a1, a3], a5, a4, a2, n] - S2[a1, SP[a1, a4], a2, a3, a5, n] + 
    S2[a1, SP[a1, a4], a2, a5, a3, n] - S2[a1, SP[a1, a4], a3, a2, a5, n] - 
    S2[a1, SP[a1, a4], a3, a5, a2, n] + S2[a1, SP[a1, a4], a5, a2, a3, n] + 
    S2[a1, SP[a1, a4], a5, a3, a2, n] - 2*S2[a1, SP[a1, a5], a2, a3, a4, n] - 
    2*S2[a1, SP[a1, a5], a2, a4, a3, n] - 
    2*S2[a1, SP[a1, a5], a3, a2, a4, n] - S2[a1, SP[a1, a5], a3, a4, a2, n] - 
    S2[a1, SP[a1, a5], a4, a2, a3, n] - S2[a1, SP[a1, a5], a4, a3, a2, n] + 
    S2[a1, SP[a2, a4], a1, a3, a5, n] + S2[a1, SP[a2, a4], a5, a1, a3, n] - 
    S2[a1, SP[a2, a5], a1, a3, a4, n] - S2[a1, SP[a2, a5], a1, a4, a3, n] - 
    S2[a1, SP[a2, a5], a4, a1, a3, n] - S2[a1, SP[a3, a5], a1, a2, a4, n] + 
    S2[a1, SP[a4, a5], a1, a2, a3, n] + S2[a1, SP[a4, a5], a1, a3, a2, n] + 
    S2[a1, SP[a4, a5], a2, a1, a3, n] - 2*S2[a2, a1, a1, a3, SP[a4, a5], n] - 
    2*S2[a2, a1, a1, SP[a3, a4], a5, n] - S2[a2, a1, a3, a1, SP[a4, a5], n] - 
    S2[a2, a1, a3, SP[a1, a4], a5, n] + S2[a2, a1, a4, a1, SP[a3, a5], n] + 
    S2[a2, a1, a4, SP[a1, a3], a5, n] - 2*S2[a2, a1, SP[a1, a4], a3, a5, n] + 
    2*S2[a2, a4, a1, a1, SP[a3, a5], n] + S2[a2, a4, a1, SP[a1, a3], a5, n] + 
    S2[a2, a4, a1, SP[a1, a5], a3, n] + S2[a2, a4, SP[a1, a1], a3, a5, n] + 
    S2[a2, a4, SP[a1, a1], a5, a3, n] - S2[a2, SP[a1, a4], a1, a3, a5, n] + 
    S2[a2, SP[a1, a4], a1, a5, a3, n] - 2*S2[a2, n]*
     S2[a4, a1, a1, a5, a3, n] - 2*S2[a4, a1, a1, a5, SP[a2, a3], n] - 
    2*S2[a4, a1, a1, SP[a2, a5], a3, n] - 
    S2[a2, n]*S2[a4, a1, a5, a1, a3, n] - S2[a4, a1, a5, a1, SP[a2, a3], n] - 
    S2[a4, a1, a5, SP[a1, a2], a3, n] - 2*S2[a4, a1, SP[a1, a2], a5, a3, n] - 
    S2[a4, a1, SP[a2, a5], a1, a3, n] + S2[a1, n]*S2[a4, a2, a1, a5, a3, n] + 
    S2[a4, a2, a1, a5, SP[a1, a3], n] + S2[a4, a2, a1, SP[a1, a5], a3, n] + 
    S2[a4, a2, SP[a1, a1], a5, a3, n] - S2[a4, SP[a1, a2], a1, a5, a3, n] - 
    S2[a4, SP[a1, a2], a5, a1, a3, n] + S2[a1, n]*S2[a5, a1, a2, a3, a4, n] + 
    S2[a5, a1, a2, a3, SP[a1, a4], n] + S2[a1, n]*S2[a5, a1, a2, a4, a3, n] + 
    S2[a5, a1, a2, a4, SP[a1, a3], n] + S2[a5, a1, a2, SP[a1, a3], a4, n] + 
    S2[a5, a1, a2, SP[a1, a4], a3, n] + S2[a1, n]*S2[a5, a1, a3, a2, a4, n] + 
    S2[a5, a1, a3, a2, SP[a1, a4], n] + S2[a5, a1, a3, SP[a1, a2], a4, n] + 
    S2[a5, a1, SP[a1, a2], a3, a4, n] + S2[a5, a1, SP[a1, a2], a4, a3, n] + 
    S2[a5, a1, SP[a1, a3], a2, a4, n] + S2[a1, n]*S2[a5, a3, a1, a2, a4, n] + 
    S2[a5, a3, a1, a2, SP[a1, a4], n] + S2[a5, a3, a1, SP[a1, a2], a4, n] + 
    S2[a5, a3, SP[a1, a1], a2, a4, n] + S2[a5, SP[a1, a1], a2, a3, a4, n] + 
    S2[a5, SP[a1, a1], a2, a4, a3, n] + S2[a5, SP[a1, a1], a3, a2, a4, n] + 
    S2[a5, SP[a1, a3], a1, a2, a4, n] + S2[SP[a1, a1], a2, a3, a4, a5, n] + 
    S2[SP[a1, a1], a2, a3, a5, a4, n] + S2[SP[a1, a1], a2, a4, a3, a5, n] + 
    S2[SP[a1, a1], a3, a2, a4, a5, n] + S2[SP[a1, a1], a3, a2, a5, a4, n] - 
    S2[SP[a1, a1], a3, a4, a2, a5, n] - S2[SP[a1, a1], a3, a4, a5, a2, n] + 
    S2[SP[a1, a1], a3, a5, a2, a4, n] - S2[SP[a1, a1], a3, a5, a4, a2, n] - 
    S2[SP[a1, a1], a4, a2, a3, a5, n] - S2[SP[a1, a1], a4, a2, a5, a3, n] - 
    S2[SP[a1, a1], a4, a3, a2, a5, n] - S2[SP[a1, a1], a4, a3, a5, a2, n] - 
    S2[SP[a1, a1], a4, a5, a2, a3, n] - S2[SP[a1, a1], a4, a5, a3, a2, n] - 
    S2[SP[a1, a1], a5, a3, a4, a2, n] - S2[SP[a1, a1], a5, a4, a2, a3, n] - 
    S2[SP[a1, a1], a5, a4, a3, a2, n] + 2*S2[SP[a1, a4], a1, a2, a5, a3, n] + 
    2*S2[SP[a1, a4], a1, a5, a2, a3, n] + 
    2*S2[SP[a1, a4], a1, a5, a3, a2, n] + 
    2*S2[SP[a1, a4], a2, a1, a5, a3, n] + S2[SP[a1, a4], a2, a5, a1, a3, n] + 
    S2[SP[a1, a4], a5, a1, a2, a3, n] + S2[SP[a1, a4], a5, a1, a3, a2, n] + 
    S2[SP[a1, a4], a5, a2, a1, a3, n] - S2[SP[a1, a5], a1, a2, a3, a4, n] - 
    S2[SP[a1, a5], a1, a2, a4, a3, n] - S2[SP[a1, a5], a1, a3, a2, a4, n] - 
    S2[SP[a1, a5], a2, a1, a3, a4, n] - S2[SP[a1, a5], a2, a1, a4, a3, n] - 
    S2[SP[a1, a5], a2, a4, a1, a3, n] - 2*S2[SP[a2, a4], a1, a1, a5, a3, n] - 
    S2[SP[a2, a4], a1, a5, a1, a3, n] - S2[a5, a1, a2, a3, a1, a4, n] - 
    S2[a5, a1, a2, a3, a4, a1, n] - S2[a5, a1, a2, a4, a3, a1, n] - 
    S2[a5, a1, a3, a1, a2, a4, n] - S2[a5, a1, a3, a2, a1, a4, n] - 
    S2[a5, a1, a3, a2, a4, a1, n] - 2*S2[a5, a3, a1, a1, a2, a4, n] - 
    S2[a5, a3, a1, a2, a1, a4, n] - S2[a5, a3, a1, a2, a4, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a4_, a2_, a3_, a1_, a1_, a5_, n_] :> 
  -(S2[a1, a1, a5, n]*S2[a2, a3, a4, n]) - S2[a1, a1, a5, n]*
     S2[a2, a4, a3, n] - S2[SP[a1, a2], SP[a1, a3], SP[a4, a5], n] - 
    S2[SP[a1, a2], SP[a1, a4], SP[a3, a5], n] + 
    S2[a2, a4, n]*S2[a1, a1, a3, a5, n] + S2[a2, a4, n]*
     S2[a1, a1, a5, a3, n] - S2[a1, a1, SP[a2, a3], SP[a4, a5], n] - 
    S2[a1, a1, SP[a2, a5], SP[a3, a4], n] + S2[a1, a2, SP[a1, a3], 
     SP[a4, a5], n] + S2[a1, a2, SP[a1, a4], SP[a3, a5], n] + 
    S2[a2, a4, n]*S2[a1, a3, a1, a5, n] - S2[a1, a5, n]*
     S2[a1, a3, a2, a4, n] + S2[a1, SP[a1, a2], a4, SP[a3, a5], n] - 
    S2[a1, SP[a1, a2], a5, SP[a3, a4], n] - S2[a1, SP[a1, a2], SP[a3, a4], 
     a5, n] + S2[a1, SP[a1, a2], SP[a3, a5], a4, n] + 
    S2[a1, SP[a1, a3], a2, SP[a4, a5], n] + S2[a1, SP[a1, a3], SP[a2, a5], 
     a4, n] - S2[a1, SP[a2, a3], a1, SP[a4, a5], n] - 
    S2[a1, SP[a2, a3], SP[a1, a4], a5, n] + S2[a2, a1, SP[a1, a3], 
     SP[a4, a5], n] + S2[a2, a1, SP[a1, a4], SP[a3, a5], n] + 
    S2[a2, SP[a1, a3], a1, SP[a4, a5], n] + S2[a2, SP[a1, a3], SP[a1, a4], 
     a5, n] + S2[a2, SP[a1, a4], a1, SP[a3, a5], n] + 
    S2[a2, SP[a1, a4], SP[a1, a3], a5, n] + S2[SP[a1, a1], a3, a2, 
     SP[a4, a5], n] + S2[SP[a1, a1], a3, SP[a2, a5], a4, n] + 
    S2[SP[a1, a1], SP[a3, a5], a2, a4, n] + S2[SP[a1, a2], a1, a4, 
     SP[a3, a5], n] - S2[SP[a1, a2], a1, a5, SP[a3, a4], n] - 
    S2[SP[a1, a2], a1, SP[a3, a4], a5, n] + S2[SP[a1, a2], a1, SP[a3, a5], 
     a4, n] + S2[SP[a1, a2], a4, a1, SP[a3, a5], n] + 
    S2[SP[a1, a2], a4, SP[a1, a3], a5, n] + S2[SP[a1, a2], SP[a1, a3], a4, 
     a5, n] + S2[SP[a1, a2], SP[a1, a3], a5, a4, n] - 
    S2[SP[a1, a2], SP[a3, a4], a1, a5, n] - S2[a1, a1, a2, a4, SP[a3, a5], 
     n] + S2[a1, a1, a2, a5, SP[a3, a4], n] + S2[a1, a1, a2, SP[a3, a4], a5, 
     n] - S2[a1, a1, a2, SP[a3, a5], a4, n] + 
    S2[a5, n]*S2[a1, a1, a3, a2, a4, n] + S2[a1, a1, a5, a2, SP[a3, a4], n] + 
    S2[a1, a1, a5, SP[a2, a3], a4, n] + S2[a1, a1, SP[a2, a3], a4, a5, n] + 
    S2[a1, a1, SP[a2, a3], a5, a4, n] - S2[a1, a1, SP[a3, a5], a2, a4, n] - 
    S2[a1, a2, a1, a4, SP[a3, a5], n] + S2[a1, a2, a1, a5, SP[a3, a4], n] + 
    S2[a1, a2, a1, SP[a3, a4], a5, n] - S2[a1, a2, a1, SP[a3, a5], a4, n] - 
    S2[a1, a2, a4, a1, SP[a3, a5], n] - S2[a1, a2, a4, SP[a1, a3], a5, n] - 
    S2[a1, a2, SP[a1, a3], a4, a5, n] - S2[a1, a2, SP[a1, a3], a5, a4, n] + 
    S2[a1, a2, SP[a3, a4], a1, a5, n] - S2[a1, SP[a1, a3], a2, a4, a5, n] - 
    S2[a1, SP[a1, a3], a2, a5, a4, n] - S2[a1, SP[a1, a3], a5, a2, a4, n] + 
    S2[a1, SP[a2, a3], a1, a4, a5, n] + S2[a1, SP[a2, a3], a1, a5, a4, n] + 
    S2[a1, SP[a2, a3], a4, a1, a5, n] - S2[a2, a1, a1, a4, SP[a3, a5], n] + 
    S2[a2, a1, a1, a5, SP[a3, a4], n] + S2[a2, a1, a1, SP[a3, a4], a5, n] - 
    S2[a2, a1, a1, SP[a3, a5], a4, n] - S2[a2, a1, a4, a1, SP[a3, a5], n] - 
    S2[a2, a1, a4, SP[a1, a3], a5, n] - S2[a2, a1, SP[a1, a3], a4, a5, n] - 
    S2[a2, a1, SP[a1, a3], a5, a4, n] + S2[a2, a1, SP[a3, a4], a1, a5, n] + 
    S2[a4, n]*S2[a2, a3, a1, a1, a5, n] - S2[a2, a4, a1, a1, SP[a3, a5], n] - 
    S2[a2, a4, a1, SP[a1, a3], a5, n] - S2[a2, a4, SP[a1, a3], a1, a5, n] - 
    S2[a2, SP[a1, a3], a1, a4, a5, n] - S2[a2, SP[a1, a3], a1, a5, a4, n] - 
    S2[a2, SP[a1, a3], a4, a1, a5, n] + S2[a2, SP[a3, a4], a1, a1, a5, n] - 
    S2[SP[a1, a1], a3, a2, a4, a5, n] - S2[SP[a1, a1], a3, a2, a5, a4, n] - 
    S2[SP[a1, a1], a3, a5, a2, a4, n] - S2[SP[a1, a1], a5, a3, a2, a4, n] + 
    S2[SP[a1, a5], a1, a3, a2, a4, n] + S2[SP[a2, a4], a3, a1, a1, a5, n] - 
    S2[a5, a1, a1, a3, a2, a4, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a4_, a2_, a3_, a1_, a5_, a1_, n_] :> 
  2*S2[a1, a1, a5, n]*S2[a2, a3, a4, n] + 2*S2[a1, a1, a5, n]*
     S2[a2, a4, a3, n] + 2*S2[SP[a1, a2], SP[a1, a3], SP[a4, a5], n] + 
    2*S2[SP[a1, a2], SP[a1, a4], SP[a3, a5], n] - 
    2*S2[a2, a4, n]*S2[a1, a1, a3, a5, n] - 2*S2[a2, a4, n]*
     S2[a1, a1, a5, a3, n] + 2*S2[a1, a1, SP[a2, a3], SP[a4, a5], n] + 
    2*S2[a1, a1, SP[a2, a5], SP[a3, a4], n] - 
    2*S2[a1, a2, SP[a1, a3], SP[a4, a5], n] - 
    2*S2[a1, a2, SP[a1, a4], SP[a3, a5], n] - 
    S2[a2, a4, n]*S2[a1, a3, a1, a5, n] + S2[a1, a5, n]*
     S2[a1, a3, a2, a4, n] - 2*S2[a1, SP[a1, a2], a4, SP[a3, a5], n] + 
    2*S2[a1, SP[a1, a2], a5, SP[a3, a4], n] + 
    2*S2[a1, SP[a1, a2], SP[a3, a4], a5, n] - 
    2*S2[a1, SP[a1, a2], SP[a3, a5], a4, n] - S2[a1, SP[a1, a3], a2, 
     SP[a4, a5], n] - S2[a1, SP[a1, a3], SP[a2, a5], a4, n] + 
    S2[a1, SP[a2, a3], a1, SP[a4, a5], n] + S2[a1, SP[a2, a3], SP[a1, a4], 
     a5, n] - 2*S2[a2, a1, SP[a1, a3], SP[a4, a5], n] - 
    2*S2[a2, a1, SP[a1, a4], SP[a3, a5], n] - 
    2*S2[a2, SP[a1, a3], a1, SP[a4, a5], n] - 
    2*S2[a2, SP[a1, a3], SP[a1, a4], a5, n] - 
    2*S2[a2, SP[a1, a4], a1, SP[a3, a5], n] - 
    2*S2[a2, SP[a1, a4], SP[a1, a3], a5, n] - S2[SP[a1, a1], a3, a2, 
     SP[a4, a5], n] - S2[SP[a1, a1], a3, SP[a2, a5], a4, n] - 
    S2[SP[a1, a1], SP[a3, a5], a2, a4, n] - 
    2*S2[SP[a1, a2], a1, a4, SP[a3, a5], n] + 
    2*S2[SP[a1, a2], a1, a5, SP[a3, a4], n] + 
    2*S2[SP[a1, a2], a1, SP[a3, a4], a5, n] - 
    2*S2[SP[a1, a2], a1, SP[a3, a5], a4, n] - S2[SP[a1, a2], a3, a1, 
     SP[a4, a5], n] - S2[SP[a1, a2], a3, SP[a1, a4], a5, n] - 
    2*S2[SP[a1, a2], a4, a1, SP[a3, a5], n] - 
    2*S2[SP[a1, a2], a4, SP[a1, a3], a5, n] - 
    2*S2[SP[a1, a2], SP[a1, a3], a4, a5, n] - 
    2*S2[SP[a1, a2], SP[a1, a3], a5, a4, n] + S2[SP[a1, a2], SP[a3, a4], a1, 
     a5, n] + 2*S2[a1, a1, a2, a4, SP[a3, a5], n] - 
    2*S2[a1, a1, a2, a5, SP[a3, a4], n] - 
    2*S2[a1, a1, a2, SP[a3, a4], a5, n] + 
    2*S2[a1, a1, a2, SP[a3, a5], a4, n] - 
    2*S2[a1, a1, a5, a2, SP[a3, a4], n] - 
    2*S2[a1, a1, a5, SP[a2, a3], a4, n] - 
    2*S2[a1, a1, SP[a2, a3], a4, a5, n] - 
    2*S2[a1, a1, SP[a2, a3], a5, a4, n] + 
    2*S2[a1, a1, SP[a3, a5], a2, a4, n] + 
    2*S2[a1, a2, a1, a4, SP[a3, a5], n] - 
    2*S2[a1, a2, a1, a5, SP[a3, a4], n] - 
    2*S2[a1, a2, a1, SP[a3, a4], a5, n] + 
    2*S2[a1, a2, a1, SP[a3, a5], a4, n] + S2[a1, a2, a3, a1, SP[a4, a5], n] + 
    S2[a1, a2, a3, SP[a1, a4], a5, n] + 2*S2[a1, a2, a4, a1, SP[a3, a5], n] + 
    2*S2[a1, a2, a4, SP[a1, a3], a5, n] + 
    2*S2[a1, a2, SP[a1, a3], a4, a5, n] + 
    2*S2[a1, a2, SP[a1, a3], a5, a4, n] - S2[a1, a2, SP[a3, a4], a1, a5, n] + 
    S2[a4, n]*S2[a1, a3, a1, a2, a5, n] + S2[a1, a3, a1, a2, SP[a4, a5], n] - 
    S2[a2, n]*S2[a1, a3, a1, a4, a5, n] - S2[a1, a3, a1, a4, SP[a2, a5], n] + 
    S2[a4, n]*S2[a1, a3, a1, a5, a2, n] - 
    S2[a2, n]*S2[a1, a3, a1, a5, a4, n] - S2[a1, a3, a1, SP[a2, a5], a4, n] + 
    S2[a1, a3, a1, SP[a4, a5], a2, n] + S2[a4, n]*S2[a1, a3, a2, a1, a5, n] + 
    S2[a1, a3, a2, a1, SP[a4, a5], n] + S2[a1, a3, a2, SP[a1, a4], a5, n] - 
    S2[a2, n]*S2[a1, a3, a4, a1, a5, n] - S2[a1, a3, a4, a1, SP[a2, a5], n] - 
    S2[a1, a3, a4, SP[a1, a2], a5, n] - S2[a1, a3, SP[a1, a2], a4, a5, n] - 
    S2[a1, a3, SP[a1, a2], a5, a4, n] + S2[a1, a3, SP[a1, a4], a2, a5, n] + 
    S2[a1, a3, SP[a1, a4], a5, a2, n] - S2[a2, n]*S2[a1, a4, a3, a1, a5, n] - 
    S2[a1, a4, a3, a1, SP[a2, a5], n] - S2[a1, a4, a3, SP[a1, a2], a5, n] - 
    S2[a1, a4, SP[a2, a3], a1, a5, n] + S2[a1, SP[a1, a3], a2, a4, a5, n] + 
    S2[a1, SP[a1, a3], a2, a5, a4, n] + S2[a1, SP[a1, a3], a5, a2, a4, n] + 
    S2[a1, SP[a1, a5], a3, a2, a4, n] - 2*S2[a1, SP[a2, a3], a1, a4, a5, n] - 
    2*S2[a1, SP[a2, a3], a1, a5, a4, n] - 
    2*S2[a1, SP[a2, a3], a4, a1, a5, n] - S2[a1, SP[a2, a4], a3, a1, a5, n] + 
    S2[a1, SP[a3, a4], a1, a2, a5, n] + S2[a1, SP[a3, a4], a1, a5, a2, n] + 
    S2[a1, SP[a3, a4], a2, a1, a5, n] + 2*S2[a2, a1, a1, a4, SP[a3, a5], n] - 
    2*S2[a2, a1, a1, a5, SP[a3, a4], n] - 
    2*S2[a2, a1, a1, SP[a3, a4], a5, n] + 
    2*S2[a2, a1, a1, SP[a3, a5], a4, n] + S2[a2, a1, a3, a1, SP[a4, a5], n] + 
    S2[a2, a1, a3, SP[a1, a4], a5, n] + 2*S2[a2, a1, a4, a1, SP[a3, a5], n] + 
    2*S2[a2, a1, a4, SP[a1, a3], a5, n] + 
    2*S2[a2, a1, SP[a1, a3], a4, a5, n] + 
    2*S2[a2, a1, SP[a1, a3], a5, a4, n] - S2[a2, a1, SP[a3, a4], a1, a5, n] - 
    2*S2[a4, n]*S2[a2, a3, a1, a1, a5, n] + 
    2*S2[a2, a4, a1, a1, SP[a3, a5], n] + 
    2*S2[a2, a4, a1, SP[a1, a3], a5, n] + 
    2*S2[a2, a4, SP[a1, a3], a1, a5, n] + 
    2*S2[a2, SP[a1, a3], a1, a4, a5, n] + 
    2*S2[a2, SP[a1, a3], a1, a5, a4, n] + 
    2*S2[a2, SP[a1, a3], a4, a1, a5, n] + S2[a2, SP[a1, a4], a3, a1, a5, n] - 
    2*S2[a2, SP[a3, a4], a1, a1, a5, n] - 
    S2[a2, n]*S2[a4, a1, a3, a1, a5, n] - S2[a4, a1, a3, a1, SP[a2, a5], n] - 
    S2[a4, a1, a3, SP[a1, a2], a5, n] - S2[a4, a1, SP[a2, a3], a1, a5, n] + 
    S2[a1, n]*S2[a4, a2, a3, a1, a5, n] + S2[a4, a2, a3, a1, SP[a1, a5], n] + 
    S2[a4, a2, a3, SP[a1, a1], a5, n] + S2[a4, a2, SP[a1, a3], a1, a5, n] - 
    S2[a1, n]*S2[a5, a1, a3, a2, a4, n] - S2[a5, a1, a3, a2, SP[a1, a4], n] - 
    S2[a5, a1, a3, SP[a1, a2], a4, n] - S2[a5, a1, SP[a1, a3], a2, a4, n] - 
    S2[a5, SP[a1, a1], a3, a2, a4, n] + S2[SP[a1, a1], a3, a2, a4, a5, n] + 
    S2[SP[a1, a1], a3, a2, a5, a4, n] + S2[SP[a1, a1], a3, a5, a2, a4, n] + 
    S2[SP[a1, a1], a5, a3, a2, a4, n] + S2[SP[a1, a4], a2, a3, a1, a5, n] + 
    S2[SP[a1, a4], a3, a1, a2, a5, n] + S2[SP[a1, a4], a3, a1, a5, a2, n] + 
    S2[SP[a1, a4], a3, a2, a1, a5, n] - S2[SP[a1, a5], a1, a3, a2, a4, n] - 
    S2[SP[a2, a4], a1, a3, a1, a5, n] - 2*S2[SP[a2, a4], a3, a1, a1, a5, n] + 
    2*S2[a5, a1, a1, a3, a2, a4, n] + S2[a5, a1, a3, a1, a2, a4, n] + 
    S2[a5, a1, a3, a2, a1, a4, n] + S2[a5, a1, a3, a2, a4, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a4_, a2_, a3_, a5_, a1_, a1_, n_] :> 
  -(S2[a1, a1, a5, n]*S2[a2, a3, a4, n]) - S2[a1, a1, a5, n]*
     S2[a2, a4, a3, n] - S2[SP[a1, a2], SP[a1, a3], SP[a4, a5], n] - 
    S2[SP[a1, a2], SP[a1, a4], SP[a3, a5], n] + 
    S2[a2, a4, n]*S2[a1, a1, a5, a3, n] - S2[a1, a1, SP[a2, a5], SP[a3, a4], 
     n] + S2[a1, a2, SP[a1, a3], SP[a4, a5], n] + S2[a1, a2, SP[a1, a4], 
     SP[a3, a5], n] + S2[a1, SP[a1, a2], a3, SP[a4, a5], n] + 
    S2[a1, SP[a1, a2], a4, SP[a3, a5], n] - S2[a1, SP[a1, a2], a5, 
     SP[a3, a4], n] + S2[a1, SP[a1, a2], SP[a3, a5], a4, n] + 
    S2[a2, a1, SP[a1, a3], SP[a4, a5], n] + S2[a2, a1, SP[a1, a4], 
     SP[a3, a5], n] + S2[a2, SP[a1, a3], a1, SP[a4, a5], n] + 
    S2[a2, SP[a1, a3], SP[a1, a4], a5, n] + S2[a2, SP[a1, a4], a1, 
     SP[a3, a5], n] + S2[a2, SP[a1, a4], SP[a1, a3], a5, n] + 
    S2[SP[a1, a2], a1, a3, SP[a4, a5], n] + S2[SP[a1, a2], a1, a4, 
     SP[a3, a5], n] - S2[SP[a1, a2], a1, a5, SP[a3, a4], n] + 
    S2[SP[a1, a2], a1, SP[a3, a5], a4, n] + S2[SP[a1, a2], a3, a1, 
     SP[a4, a5], n] + S2[SP[a1, a2], a3, SP[a1, a4], a5, n] + 
    S2[SP[a1, a2], a4, a1, SP[a3, a5], n] + S2[SP[a1, a2], a4, SP[a1, a3], 
     a5, n] + S2[SP[a1, a2], SP[a1, a3], a4, a5, n] + 
    S2[SP[a1, a2], SP[a1, a3], a5, a4, n] + S2[SP[a1, a2], SP[a1, a4], a3, 
     a5, n] - S2[a1, a1, a2, a3, SP[a4, a5], n] - 
    S2[a1, a1, a2, a4, SP[a3, a5], n] + S2[a1, a1, a2, a5, SP[a3, a4], n] - 
    S2[a1, a1, a2, SP[a3, a5], a4, n] - S2[a4, n]*S2[a1, a1, a3, a2, a5, n] - 
    S2[a1, a1, a3, a2, SP[a4, a5], n] + S2[a2, n]*S2[a1, a1, a3, a4, a5, n] + 
    S2[a1, a1, a3, a4, SP[a2, a5], n] - S2[a4, n]*S2[a1, a1, a3, a5, a2, n] + 
    S2[a2, n]*S2[a1, a1, a3, a5, a4, n] + S2[a1, a1, a3, SP[a2, a5], a4, n] - 
    S2[a1, a1, a3, SP[a4, a5], a2, n] + S2[a2, n]*S2[a1, a1, a4, a3, a5, n] + 
    S2[a1, a1, a4, a3, SP[a2, a5], n] + S2[a1, a1, a4, SP[a2, a3], a5, n] + 
    S2[a1, a1, a5, a2, SP[a3, a4], n] + S2[a1, a1, a5, SP[a2, a3], a4, n] + 
    S2[a1, a1, SP[a2, a3], a4, a5, n] + S2[a1, a1, SP[a2, a3], a5, a4, n] + 
    S2[a1, a1, SP[a2, a4], a3, a5, n] - S2[a1, a1, SP[a3, a4], a2, a5, n] - 
    S2[a1, a1, SP[a3, a4], a5, a2, n] - S2[a1, a2, a1, a3, SP[a4, a5], n] - 
    S2[a1, a2, a1, a4, SP[a3, a5], n] + S2[a1, a2, a1, a5, SP[a3, a4], n] - 
    S2[a1, a2, a1, SP[a3, a5], a4, n] - S2[a1, a2, a3, a1, SP[a4, a5], n] - 
    S2[a1, a2, a3, SP[a1, a4], a5, n] - S2[a1, a2, a4, a1, SP[a3, a5], n] - 
    S2[a1, a2, a4, SP[a1, a3], a5, n] - S2[a1, a2, SP[a1, a3], a4, a5, n] - 
    S2[a1, a2, SP[a1, a3], a5, a4, n] - S2[a1, a2, SP[a1, a4], a3, a5, n] - 
    S2[a4, n]*S2[a1, a3, a1, a2, a5, n] - S2[a1, a3, a1, a2, SP[a4, a5], n] + 
    S2[a2, n]*S2[a1, a3, a1, a4, a5, n] + S2[a1, a3, a1, a4, SP[a2, a5], n] - 
    S2[a4, n]*S2[a1, a3, a1, a5, a2, n] + 
    S2[a2, n]*S2[a1, a3, a1, a5, a4, n] + S2[a1, a3, a1, SP[a2, a5], a4, n] - 
    S2[a1, a3, a1, SP[a4, a5], a2, n] - S2[a4, n]*S2[a1, a3, a2, a1, a5, n] - 
    S2[a1, a3, a2, a1, SP[a4, a5], n] - S2[a1, a3, a2, SP[a1, a4], a5, n] + 
    S2[a2, n]*S2[a1, a3, a4, a1, a5, n] + S2[a1, a3, a4, a1, SP[a2, a5], n] + 
    S2[a1, a3, a4, SP[a1, a2], a5, n] + S2[a1, a3, SP[a1, a2], a4, a5, n] + 
    S2[a1, a3, SP[a1, a2], a5, a4, n] - S2[a1, a3, SP[a1, a4], a2, a5, n] - 
    S2[a1, a3, SP[a1, a4], a5, a2, n] + S2[a2, n]*S2[a1, a4, a1, a3, a5, n] + 
    S2[a1, a4, a1, a3, SP[a2, a5], n] + S2[a1, a4, a1, SP[a2, a3], a5, n] - 
    (S2[a1, n]*S2[a1, a4, a2, a3, a5, n])/2 - 
    S2[a1, a4, a2, a3, SP[a1, a5], n]/2 - S2[a1, a4, a2, SP[a1, a3], a5, n]/
     2 + S2[a2, n]*S2[a1, a4, a3, a1, a5, n] + S2[a1, a4, a3, a1, SP[a2, a5], 
     n] + S2[a1, a4, a3, SP[a1, a2], a5, n] + 
    S2[a1, a4, SP[a1, a2], a3, a5, n]/2 + S2[a1, a4, SP[a2, a3], a1, a5, n] - 
    (S2[a1, n]*S2[a1, a5, a3, a2, a4, n])/2 - 
    S2[a1, a5, a3, a2, SP[a1, a4], n]/2 - S2[a1, a5, a3, SP[a1, a2], a4, n]/
     2 - S2[a1, a5, SP[a1, a3], a2, a4, n]/2 - 
    S2[a1, SP[a1, a4], a2, a3, a5, n]/2 - S2[a1, SP[a1, a4], a3, a2, a5, n] - 
    S2[a1, SP[a1, a4], a3, a5, a2, n] - S2[a1, SP[a1, a5], a3, a2, a4, n]/2 + 
    S2[a1, SP[a2, a3], a1, a4, a5, n] + S2[a1, SP[a2, a3], a1, a5, a4, n] + 
    S2[a1, SP[a2, a3], a4, a1, a5, n] + S2[a1, SP[a2, a4], a1, a3, a5, n] + 
    S2[a1, SP[a2, a4], a3, a1, a5, n] - S2[a1, SP[a3, a4], a1, a2, a5, n] - 
    S2[a1, SP[a3, a4], a1, a5, a2, n] - S2[a1, SP[a3, a4], a2, a1, a5, n] - 
    S2[a2, a1, a1, a3, SP[a4, a5], n] - S2[a2, a1, a1, a4, SP[a3, a5], n] + 
    S2[a2, a1, a1, a5, SP[a3, a4], n] - S2[a2, a1, a1, SP[a3, a5], a4, n] - 
    S2[a2, a1, a3, a1, SP[a4, a5], n] - S2[a2, a1, a3, SP[a1, a4], a5, n] - 
    S2[a2, a1, a4, a1, SP[a3, a5], n] - S2[a2, a1, a4, SP[a1, a3], a5, n] - 
    S2[a2, a1, SP[a1, a3], a4, a5, n] - S2[a2, a1, SP[a1, a3], a5, a4, n] - 
    S2[a2, a1, SP[a1, a4], a3, a5, n] + S2[a4, n]*S2[a2, a3, a1, a1, a5, n] - 
    S2[a2, a4, a1, a1, SP[a3, a5], n] - S2[a2, a4, a1, SP[a1, a3], a5, n] - 
    S2[a2, a4, SP[a1, a3], a1, a5, n] - S2[a2, SP[a1, a3], a1, a4, a5, n] - 
    S2[a2, SP[a1, a3], a1, a5, a4, n] - S2[a2, SP[a1, a3], a4, a1, a5, n] - 
    S2[a2, SP[a1, a4], a1, a3, a5, n] - S2[a2, SP[a1, a4], a3, a1, a5, n] + 
    S2[a2, SP[a3, a4], a1, a1, a5, n] + S2[a2, n]*S2[a4, a1, a1, a3, a5, n] + 
    S2[a4, a1, a1, a3, SP[a2, a5], n] + S2[a4, a1, a1, SP[a2, a3], a5, n] - 
    (S2[a1, n]*S2[a4, a1, a2, a3, a5, n])/2 - 
    S2[a4, a1, a2, a3, SP[a1, a5], n]/2 - S2[a4, a1, a2, SP[a1, a3], a5, n]/
     2 + S2[a2, n]*S2[a4, a1, a3, a1, a5, n] + S2[a4, a1, a3, a1, SP[a2, a5], 
     n] + S2[a4, a1, a3, SP[a1, a2], a5, n] + 
    S2[a4, a1, SP[a1, a2], a3, a5, n]/2 + S2[a4, a1, SP[a2, a3], a1, a5, n] - 
    (S2[a1, n]*S2[a4, a2, a1, a3, a5, n])/2 - 
    S2[a4, a2, a1, a3, SP[a1, a5], n]/2 - S2[a4, a2, a1, SP[a1, a3], a5, n]/
     2 - (S2[a1, n]*S2[a4, a2, a3, a1, a5, n])/2 - 
    S2[a4, a2, a3, a1, SP[a1, a5], n]/2 + 
    (S2[a1, n]*S2[a4, a2, a3, a5, a1, n])/2 + 
    S2[a4, a2, a3, a5, SP[a1, a1], n]/2 - S2[a4, a2, a3, SP[a1, a1], a5, n]/
     2 + S2[a4, a2, a3, SP[a1, a5], a1, n]/2 - 
    S2[a4, a2, SP[a1, a1], a3, a5, n]/2 - S2[a4, a2, SP[a1, a3], a1, a5, n]/
     2 + S2[a4, a2, SP[a1, a3], a5, a1, n]/2 - 
    S2[a4, SP[a1, a1], a2, a3, a5, n]/2 + S2[a4, SP[a1, a2], a1, a3, a5, n]/
     2 + S2[a4, SP[a1, a2], a3, a1, a5, n]/2 + 
    S2[a4, SP[a1, a2], a3, a5, a1, n]/2 + 
    (S2[a1, n]*S2[a5, a1, a3, a2, a4, n])/2 + 
    S2[a5, a1, a3, a2, SP[a1, a4], n]/2 + S2[a5, a1, a3, SP[a1, a2], a4, n]/
     2 + S2[a5, a1, SP[a1, a3], a2, a4, n]/2 + 
    (S2[a1, n]*S2[a5, a3, a1, a2, a4, n])/2 + 
    S2[a5, a3, a1, a2, SP[a1, a4], n]/2 + S2[a5, a3, a1, SP[a1, a2], a4, n]/
     2 + (S2[a1, n]*S2[a5, a3, a2, a1, a4, n])/2 + 
    S2[a5, a3, a2, a1, SP[a1, a4], n]/2 + 
    (S2[a1, n]*S2[a5, a3, a2, a4, a1, n])/2 + 
    S2[a5, a3, a2, a4, SP[a1, a1], n]/2 + S2[a5, a3, a2, SP[a1, a1], a4, n]/
     2 + S2[a5, a3, a2, SP[a1, a4], a1, n]/2 + 
    S2[a5, a3, SP[a1, a1], a2, a4, n]/2 + S2[a5, a3, SP[a1, a2], a1, a4, n]/
     2 + S2[a5, a3, SP[a1, a2], a4, a1, n]/2 + 
    S2[a5, SP[a1, a1], a3, a2, a4, n]/2 + S2[a5, SP[a1, a3], a1, a2, a4, n]/
     2 + S2[a5, SP[a1, a3], a2, a1, a4, n]/2 + 
    S2[a5, SP[a1, a3], a2, a4, a1, n]/2 - S2[SP[a1, a1], a4, a2, a3, a5, n]/
     2 - S2[SP[a1, a1], a5, a3, a2, a4, n]/2 - 
    S2[SP[a1, a4], a1, a2, a3, a5, n]/2 - S2[SP[a1, a4], a1, a3, a2, a5, n] - 
    S2[SP[a1, a4], a1, a3, a5, a2, n] - S2[SP[a1, a4], a2, a1, a3, a5, n]/2 - 
    S2[SP[a1, a4], a2, a3, a1, a5, n]/2 + S2[SP[a1, a4], a2, a3, a5, a1, n]/
     2 - S2[SP[a1, a4], a3, a1, a2, a5, n] - S2[SP[a1, a4], a3, a1, a5, a2, 
     n] - S2[SP[a1, a4], a3, a2, a1, a5, n] + 
    S2[SP[a1, a5], a1, a3, a2, a4, n]/2 + S2[SP[a1, a5], a3, a1, a2, a4, n]/
     2 + S2[SP[a1, a5], a3, a2, a1, a4, n]/2 + 
    S2[SP[a1, a5], a3, a2, a4, a1, n]/2 + S2[SP[a2, a4], a1, a1, a3, a5, n] + 
    S2[SP[a2, a4], a1, a3, a1, a5, n] + S2[SP[a2, a4], a3, a1, a1, a5, n] - 
    S2[a5, a1, a1, a3, a2, a4, n] - S2[a5, a1, a3, a1, a2, a4, n] - 
    S2[a5, a1, a3, a2, a1, a4, n] - S2[a5, a1, a3, a2, a4, a1, n] - 
    S2[a5, a3, a1, a1, a2, a4, n] - S2[a5, a3, a1, a2, a1, a4, n] - 
    S2[a5, a3, a1, a2, a4, a1, n] - S2[a5, a3, a2, a1, a1, a4, n] - 
    S2[a5, a3, a2, a1, a4, a1, n] - S2[a5, a3, a2, a4, a1, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a4_, a2_, a5_, a1_, a1_, a3_, n_] :> 
  -(S2[a2, a4, n]*S2[a1, a1, a3, a5, n]) - S2[a2, a4, n]*
     S2[a1, a1, a5, a3, n] + S2[a1, a1, SP[a2, a3], SP[a4, a5], n] + 
    S2[a1, a1, SP[a2, a5], SP[a3, a4], n] - S2[a2, a4, n]*
     S2[a1, a3, a1, a5, n] + S2[a1, a3, SP[a1, a2], SP[a4, a5], n] - 
    S2[a1, a3, n]*S2[a1, a4, a2, a5, n] - S2[a1, a3, n]*
     S2[a1, a4, a5, a2, n] + S2[a1, a4, SP[a1, a2], SP[a3, a5], n] + 
    S2[a1, a4, SP[a1, a5], SP[a2, a3], n] - S2[a1, a3, n]*
     S2[a1, a5, a4, a2, n] + S2[a1, a5, SP[a1, a4], SP[a2, a3], n] + 
    S2[a1, SP[a1, a2], a3, SP[a4, a5], n] + S2[a1, SP[a1, a2], a5, 
     SP[a3, a4], n] + S2[a1, SP[a1, a2], SP[a3, a4], a5, n] + 
    S2[a1, SP[a1, a2], SP[a4, a5], a3, n] + S2[a1, SP[a1, a4], a2, 
     SP[a3, a5], n] + S2[a1, SP[a1, a4], a5, SP[a2, a3], n] + 
    S2[a1, SP[a1, a4], SP[a2, a3], a5, n] + S2[a1, SP[a1, a4], SP[a3, a5], 
     a2, n] + S2[a1, SP[a1, a5], a4, SP[a2, a3], n] + 
    S2[a1, SP[a1, a5], SP[a3, a4], a2, n] + S2[a1, SP[a2, a3], a1, 
     SP[a4, a5], n] + S2[a1, SP[a2, a3], SP[a1, a4], a5, n] + 
    S2[a1, a3, n]*S2[a2, a4, a1, a5, n] - S2[a2, a4, SP[a1, a1], SP[a3, a5], 
     n] - S2[a2, SP[a1, a4], a1, SP[a3, a5], n] - 
    S2[a2, SP[a1, a4], SP[a1, a3], a5, n] + S2[SP[a1, a1], a4, a2, 
     SP[a3, a5], n] + S2[SP[a1, a1], a4, a5, SP[a2, a3], n] + 
    S2[SP[a1, a1], a4, SP[a2, a3], a5, n] + S2[SP[a1, a1], a4, SP[a3, a5], 
     a2, n] + S2[SP[a1, a1], a5, a4, SP[a2, a3], n] + 
    S2[SP[a1, a1], a5, SP[a3, a4], a2, n] + S2[SP[a1, a1], SP[a3, a4], a2, 
     a5, n] + S2[SP[a1, a1], SP[a3, a4], a5, a2, n] + 
    S2[SP[a1, a1], SP[a3, a5], a4, a2, n] + S2[SP[a1, a2], a1, a3, 
     SP[a4, a5], n] + S2[SP[a1, a2], a1, a5, SP[a3, a4], n] + 
    S2[SP[a1, a2], a1, SP[a3, a4], a5, n] + S2[SP[a1, a2], a1, SP[a4, a5], 
     a3, n] + S2[SP[a1, a2], a3, a1, SP[a4, a5], n] + 
    S2[SP[a1, a2], a3, SP[a1, a4], a5, n] - S2[SP[a1, a2], a4, a1, 
     SP[a3, a5], n] - S2[SP[a1, a2], a4, SP[a1, a3], a5, n] + 
    S2[SP[a1, a2], SP[a1, a4], a3, a5, n] + S2[SP[a1, a2], SP[a1, a4], a5, 
     a3, n] - S2[a1, a1, a2, a3, SP[a4, a5], n] - 
    S2[a1, a1, a2, a5, SP[a3, a4], n] - S2[a1, a1, a2, SP[a3, a4], a5, n] - 
    S2[a1, a1, a2, SP[a4, a5], a3, n] - S2[a1, a1, a3, a2, SP[a4, a5], n] + 
    S2[a5, n]*S2[a1, a1, a3, a4, a2, n] + 
    S2[a2, n]*S2[a1, a1, a3, a4, a5, n] + 
    2*S2[a1, a1, a3, a4, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a1, a3, a5, a4, n] + S2[a1, a1, a3, a5, SP[a2, a4], n] + 
    S2[a1, a1, a3, SP[a2, a4], a5, n] + S2[a1, a1, a3, SP[a4, a5], a2, n] + 
    S2[a5, n]*S2[a1, a1, a4, a2, a3, n] - S2[a1, a1, a4, a2, SP[a3, a5], n] + 
    S2[a5, n]*S2[a1, a1, a4, a3, a2, n] + 
    S2[a2, n]*S2[a1, a1, a4, a3, a5, n] + 
    2*S2[a1, a1, a4, a3, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a1, a4, a5, a3, n] - S2[a1, a1, a4, a5, SP[a2, a3], n] - 
    S2[a1, a1, a4, SP[a2, a3], a5, n] + 2*S2[a1, a1, a4, SP[a2, a5], a3, n] - 
    S2[a1, a1, a4, SP[a3, a5], a2, n] - S2[a1, a1, a5, a2, SP[a3, a4], n] + 
    S2[a2, n]*S2[a1, a1, a5, a3, a4, n] + S2[a1, a1, a5, a3, SP[a2, a4], n] + 
    S2[a2, n]*S2[a1, a1, a5, a4, a3, n] - S2[a1, a1, a5, a4, SP[a2, a3], n] + 
    S2[a1, a1, a5, SP[a2, a4], a3, n] - 2*S2[a1, a1, a5, SP[a3, a4], a2, n] + 
    S2[a1, a1, SP[a2, a4], a3, a5, n] + S2[a1, a1, SP[a2, a4], a5, a3, n] - 
    2*S2[a1, a1, SP[a3, a4], a2, a5, n] - 
    2*S2[a1, a1, SP[a3, a4], a5, a2, n] - S2[a1, a1, SP[a3, a5], a4, a2, n] + 
    S2[a1, a1, SP[a4, a5], a2, a3, n] + S2[a1, a1, SP[a4, a5], a3, a2, n] - 
    S2[a1, a2, a1, a3, SP[a4, a5], n] - S2[a1, a2, a1, a5, SP[a3, a4], n] - 
    S2[a1, a2, a1, SP[a3, a4], a5, n] - S2[a1, a2, a1, SP[a4, a5], a3, n] - 
    S2[a1, a2, a3, a1, SP[a4, a5], n] - S2[a1, a2, a3, SP[a1, a4], a5, n] + 
    S2[a1, a2, a4, a1, SP[a3, a5], n] + S2[a1, a2, a4, SP[a1, a3], a5, n] - 
    S2[a1, a2, SP[a1, a4], a3, a5, n] - S2[a1, a2, SP[a1, a4], a5, a3, n] - 
    S2[a1, a3, a1, a2, SP[a4, a5], n] + S2[a2, n]*S2[a1, a3, a1, a4, a5, n] + 
    S2[a1, a3, a1, a4, SP[a2, a5], n] + S2[a2, n]*S2[a1, a3, a1, a5, a4, n] + 
    S2[a1, a3, a1, a5, SP[a2, a4], n] + S2[a1, a3, a1, SP[a2, a4], a5, n] - 
    S2[a1, a3, a2, a1, SP[a4, a5], n] - S2[a1, a3, a2, SP[a1, a4], a5, n] + 
    S2[a5, n]*S2[a1, a4, a1, a2, a3, n] + 
    S2[a5, n]*S2[a1, a4, a1, a3, a2, n] + S2[a1, a4, a1, a3, SP[a2, a5], n] - 
    S2[a1, a4, a1, a5, SP[a2, a3], n] - S2[a1, a4, a1, SP[a2, a3], a5, n] + 
    S2[a1, a4, a1, SP[a2, a5], a3, n] + S2[a5, n]*S2[a1, a4, a2, a1, a3, n] - 
    S2[a1, a4, a5, a1, SP[a2, a3], n] - S2[a1, a4, a5, SP[a1, a2], a3, n] - 
    S2[a1, a4, SP[a1, a2], a3, a5, n] - S2[a1, a4, SP[a1, a2], a5, a3, n] + 
    S2[a1, a4, SP[a2, a5], a1, a3, n] - S2[a1, a5, a1, a4, SP[a2, a3], n] - 
    S2[a1, a5, a1, SP[a3, a4], a2, n] - S2[a1, a5, a4, a1, SP[a2, a3], n] - 
    S2[a1, a5, a4, SP[a1, a2], a3, n] - S2[a1, a5, SP[a1, a4], a2, a3, n] - 
    S2[a1, a5, SP[a1, a4], a3, a2, n] - S2[a1, SP[a1, a3], a4, a2, a5, n] - 
    S2[a1, SP[a1, a3], a4, a5, a2, n] - S2[a1, SP[a1, a3], a5, a4, a2, n] - 
    S2[a1, SP[a1, a4], a2, a3, a5, n] - S2[a1, SP[a1, a4], a2, a5, a3, n] - 
    S2[a1, SP[a1, a4], a3, a2, a5, n] - S2[a1, SP[a1, a4], a3, a5, a2, n] - 
    S2[a1, SP[a1, a4], a5, a2, a3, n] - S2[a1, SP[a1, a4], a5, a3, a2, n] + 
    S2[a1, SP[a4, a5], a1, a2, a3, n] + S2[a1, SP[a4, a5], a1, a3, a2, n] + 
    S2[a1, SP[a4, a5], a2, a1, a3, n] - S2[a2, a1, a1, a3, SP[a4, a5], n] - 
    S2[a2, a1, a1, a5, SP[a3, a4], n] - S2[a2, a1, a1, SP[a3, a4], a5, n] - 
    S2[a2, a1, a1, SP[a4, a5], a3, n] - S2[a2, a1, a3, a1, SP[a4, a5], n] - 
    S2[a2, a1, a3, SP[a1, a4], a5, n] + S2[a2, a1, a4, a1, SP[a3, a5], n] + 
    S2[a2, a1, a4, SP[a1, a3], a5, n] - S2[a2, a1, SP[a1, a4], a3, a5, n] - 
    S2[a2, a1, SP[a1, a4], a5, a3, n] - S2[a5, n]*S2[a2, a4, a1, a1, a3, n] + 
    S2[a2, a4, a1, a1, SP[a3, a5], n] + S2[a2, a4, a1, SP[a1, a3], a5, n] + 
    S2[a2, a4, SP[a1, a1], a3, a5, n] + S2[a2, a4, SP[a1, a1], a5, a3, n] - 
    S2[a2, a4, SP[a1, a5], a1, a3, n] + S2[a4, n]*S2[a2, a5, a1, a1, a3, n] + 
    S2[a2, a5, a1, a1, SP[a3, a4], n] + S2[a2, a5, a1, SP[a1, a4], a3, n] + 
    S2[a2, a5, SP[a1, a4], a1, a3, n] - S2[a2, n]*S2[a5, a1, a1, a3, a4, n] - 
    S2[a5, a1, a1, a3, SP[a2, a4], n] - S2[a2, n]*S2[a5, a1, a1, a4, a3, n] - 
    S2[a5, a1, a1, a4, SP[a2, a3], n] - S2[a5, a1, a1, SP[a2, a3], a4, n] - 
    S2[a5, a1, a1, SP[a2, a4], a3, n] - S2[a2, n]*S2[a5, a1, a4, a1, a3, n] - 
    S2[a5, a1, a4, a1, SP[a2, a3], n] - S2[a5, a1, a4, SP[a1, a2], a3, n] - 
    S2[a5, a1, SP[a1, a2], a3, a4, n] - S2[a5, a1, SP[a1, a2], a4, a3, n] - 
    S2[a5, a1, SP[a2, a4], a1, a3, n] - S2[a5, SP[a1, a2], a1, a3, a4, n] - 
    S2[a5, SP[a1, a2], a1, a4, a3, n] - S2[a5, SP[a1, a2], a4, a1, a3, n] - 
    S2[SP[a1, a1], a3, a4, a2, a5, n] - S2[SP[a1, a1], a3, a4, a5, a2, n] - 
    S2[SP[a1, a1], a3, a5, a4, a2, n] - S2[SP[a1, a1], a4, a2, a3, a5, n] - 
    S2[SP[a1, a1], a4, a2, a5, a3, n] - S2[SP[a1, a1], a4, a3, a2, a5, n] - 
    S2[SP[a1, a1], a4, a3, a5, a2, n] - S2[SP[a1, a1], a4, a5, a2, a3, n] - 
    S2[SP[a1, a1], a4, a5, a3, a2, n] - S2[SP[a1, a1], a5, a3, a4, a2, n] - 
    S2[SP[a1, a1], a5, a4, a2, a3, n] - S2[SP[a1, a1], a5, a4, a3, a2, n] + 
    S2[SP[a1, a5], a1, a3, a4, a2, n] + S2[SP[a1, a5], a1, a4, a2, a3, n] + 
    S2[SP[a1, a5], a1, a4, a3, a2, n] + S2[SP[a1, a5], a4, a1, a2, a3, n] + 
    S2[SP[a1, a5], a4, a1, a3, a2, n] + S2[SP[a1, a5], a4, a2, a1, a3, n] + 
    S2[SP[a2, a4], a5, a1, a1, a3, n] - S2[SP[a2, a5], a1, a1, a3, a4, n] - 
    S2[SP[a2, a5], a1, a1, a4, a3, n] - S2[SP[a2, a5], a1, a4, a1, a3, n] - 
    S2[SP[a2, a5], a4, a1, a1, a3, n] + S2[a5, a1, a1, a2, a3, a4, n] + 
    S2[a5, a1, a1, a2, a4, a3, n] + S2[a5, a1, a1, a3, a2, a4, n] + 
    S2[a5, a1, a2, a1, a3, a4, n] + S2[a5, a1, a2, a1, a4, a3, n] + 
    S2[a5, a1, a2, a4, a1, a3, n] + S2[a5, a2, a1, a1, a3, a4, n] + 
    S2[a5, a2, a1, a1, a4, a3, n] + S2[a5, a2, a1, a4, a1, a3, n] + 
    S2[a5, a2, a4, a1, a1, a3, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a4_, a2_, a5_, a1_, a3_, a1_, n_] :> 
  S2[a2, a4, n]*S2[a1, a3, a1, a5, n] - S2[a1, a3, SP[a1, a2], SP[a4, a5], 
     n] + S2[a1, a3, n]*S2[a1, a4, a2, a5, n] + 
    S2[a1, a3, n]*S2[a1, a4, a5, a2, n] - S2[a1, a4, SP[a1, a2], SP[a3, a5], 
     n] - S2[a1, a4, SP[a1, a5], SP[a2, a3], n] + 
    S2[a1, a3, n]*S2[a1, a5, a4, a2, n] - S2[a1, a5, SP[a1, a4], SP[a2, a3], 
     n] - S2[a1, SP[a1, a4], a2, SP[a3, a5], n] - S2[a1, SP[a1, a4], a5, 
     SP[a2, a3], n] - S2[a1, SP[a1, a4], SP[a2, a3], a5, n] - 
    S2[a1, SP[a1, a4], SP[a3, a5], a2, n] - S2[a1, SP[a1, a5], a4, 
     SP[a2, a3], n] - S2[a1, SP[a1, a5], SP[a3, a4], a2, n] - 
    S2[a1, SP[a2, a3], a1, SP[a4, a5], n] - S2[a1, SP[a2, a3], SP[a1, a4], 
     a5, n] - S2[a1, a3, n]*S2[a2, a4, a1, a5, n] + 
    S2[a2, a4, SP[a1, a1], SP[a3, a5], n] + S2[a2, SP[a1, a4], a1, 
     SP[a3, a5], n] + S2[a2, SP[a1, a4], SP[a1, a3], a5, n] - 
    S2[SP[a1, a1], a4, a2, SP[a3, a5], n] - S2[SP[a1, a1], a4, a5, 
     SP[a2, a3], n] - S2[SP[a1, a1], a4, SP[a2, a3], a5, n] - 
    S2[SP[a1, a1], a4, SP[a3, a5], a2, n] - S2[SP[a1, a1], a5, a4, 
     SP[a2, a3], n] - S2[SP[a1, a1], a5, SP[a3, a4], a2, n] - 
    S2[SP[a1, a1], SP[a3, a4], a2, a5, n] - S2[SP[a1, a1], SP[a3, a4], a5, 
     a2, n] - S2[SP[a1, a1], SP[a3, a5], a4, a2, n] - 
    S2[SP[a1, a2], a3, a1, SP[a4, a5], n] - S2[SP[a1, a2], a3, SP[a1, a4], 
     a5, n] + S2[SP[a1, a2], a4, a1, SP[a3, a5], n] + 
    S2[SP[a1, a2], a4, SP[a1, a3], a5, n] - 
    2*S2[a5, n]*S2[a1, a1, a3, a4, a2, n] - 
    2*S2[a1, a1, a3, a4, SP[a2, a5], n] - 
    2*S2[a1, a1, a3, SP[a4, a5], a2, n] - 
    2*S2[a5, n]*S2[a1, a1, a4, a2, a3, n] - 
    2*S2[a5, n]*S2[a1, a1, a4, a3, a2, n] - 
    2*S2[a1, a1, a4, a3, SP[a2, a5], n] + 
    2*S2[a1, a1, a4, a5, SP[a2, a3], n] + 
    2*S2[a1, a1, a4, SP[a2, a3], a5, n] - 
    2*S2[a1, a1, a4, SP[a2, a5], a3, n] + 
    2*S2[a1, a1, a5, a4, SP[a2, a3], n] + 
    2*S2[a1, a1, a5, SP[a3, a4], a2, n] + 
    2*S2[a1, a1, SP[a3, a4], a2, a5, n] + 
    2*S2[a1, a1, SP[a3, a4], a5, a2, n] - 
    2*S2[a1, a1, SP[a4, a5], a2, a3, n] - 
    2*S2[a1, a1, SP[a4, a5], a3, a2, n] + S2[a1, a2, a3, a1, SP[a4, a5], n] + 
    S2[a1, a2, a3, SP[a1, a4], a5, n] - S2[a1, a2, a4, a1, SP[a3, a5], n] - 
    S2[a1, a2, a4, SP[a1, a3], a5, n] + S2[a1, a3, a1, a2, SP[a4, a5], n] - 
    S2[a2, n]*S2[a1, a3, a1, a4, a5, n] - S2[a1, a3, a1, a4, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a3, a1, a5, a4, n] - S2[a1, a3, a1, a5, SP[a2, a4], n] - 
    S2[a1, a3, a1, SP[a2, a4], a5, n] + S2[a1, a3, a2, a1, SP[a4, a5], n] + 
    S2[a1, a3, a2, SP[a1, a4], a5, n] - 2*S2[a5, n]*
     S2[a1, a4, a1, a2, a3, n] - S2[a1, a4, a1, a2, SP[a3, a5], n] - 
    2*S2[a5, n]*S2[a1, a4, a1, a3, a2, n] + 
    S2[a2, n]*S2[a1, a4, a1, a3, a5, n] - S2[a1, a4, a1, a3, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a4, a1, a5, a3, n] + 
    2*S2[a1, a4, a1, a5, SP[a2, a3], n] + 
    2*S2[a1, a4, a1, SP[a2, a3], a5, n] - S2[a1, a4, a1, SP[a2, a5], a3, n] - 
    S2[a1, a4, a1, SP[a3, a5], a2, n] - 2*S2[a5, n]*
     S2[a1, a4, a2, a1, a3, n] - S2[a1, a4, a2, a1, SP[a3, a5], n] - 
    S2[a1, a4, a2, SP[a1, a5], a3, n] + S2[a1, a4, a5, a1, SP[a2, a3], n] + 
    S2[a1, a4, a5, SP[a1, a2], a3, n] + 2*S2[a1, a4, SP[a1, a2], a3, a5, n] + 
    2*S2[a1, a4, SP[a1, a2], a5, a3, n] - S2[a1, a4, SP[a1, a5], a2, a3, n] - 
    S2[a1, a4, SP[a1, a5], a3, a2, n] - 2*S2[a1, a4, SP[a2, a5], a1, a3, n] + 
    S2[a4, n]*S2[a1, a5, a1, a2, a3, n] + S2[a1, a5, a1, a2, SP[a3, a4], n] + 
    S2[a4, n]*S2[a1, a5, a1, a3, a2, n] + S2[a1, a5, a1, a3, SP[a2, a4], n] + 
    S2[a1, a5, a1, a4, SP[a2, a3], n] + S2[a1, a5, a1, SP[a2, a4], a3, n] + 
    2*S2[a1, a5, a1, SP[a3, a4], a2, n] + 
    S2[a4, n]*S2[a1, a5, a2, a1, a3, n] + S2[a1, a5, a2, a1, SP[a3, a4], n] + 
    S2[a1, a5, a2, SP[a1, a4], a3, n] + S2[a1, a5, a4, a1, SP[a2, a3], n] + 
    S2[a1, a5, a4, SP[a1, a2], a3, n] + 2*S2[a1, a5, SP[a1, a4], a2, a3, n] + 
    2*S2[a1, a5, SP[a1, a4], a3, a2, n] + S2[a1, a5, SP[a2, a4], a1, a3, n] + 
    S2[a1, SP[a1, a3], a4, a2, a5, n] + S2[a1, SP[a1, a3], a4, a5, a2, n] + 
    S2[a1, SP[a1, a3], a5, a4, a2, n] + S2[a1, SP[a1, a4], a2, a3, a5, n] + 
    S2[a1, SP[a1, a4], a2, a5, a3, n] + S2[a1, SP[a1, a4], a3, a2, a5, n] + 
    S2[a1, SP[a1, a4], a3, a5, a2, n] + S2[a1, SP[a1, a4], a5, a2, a3, n] + 
    S2[a1, SP[a1, a4], a5, a3, a2, n] - S2[a1, SP[a1, a5], a3, a4, a2, n] - 
    S2[a1, SP[a1, a5], a4, a2, a3, n] - S2[a1, SP[a1, a5], a4, a3, a2, n] + 
    S2[a1, SP[a2, a4], a1, a3, a5, n] + S2[a1, SP[a2, a4], a1, a5, a3, n] - 
    S2[a1, SP[a4, a5], a1, a2, a3, n] - S2[a1, SP[a4, a5], a1, a3, a2, n] - 
    S2[a1, SP[a4, a5], a2, a1, a3, n] + S2[a2, a1, a3, a1, SP[a4, a5], n] + 
    S2[a2, a1, a3, SP[a1, a4], a5, n] - S2[a2, a1, a4, a1, SP[a3, a5], n] - 
    S2[a2, a1, a4, SP[a1, a3], a5, n] + 2*S2[a5, n]*
     S2[a2, a4, a1, a1, a3, n] - S2[a2, a4, a1, SP[a1, a3], a5, n] + 
    S2[a2, a4, a1, SP[a1, a5], a3, n] - S2[a2, a4, SP[a1, a1], a3, a5, n] - 
    S2[a2, a4, SP[a1, a1], a5, a3, n] + 2*S2[a2, a4, SP[a1, a5], a1, a3, n] - 
    2*S2[a4, n]*S2[a2, a5, a1, a1, a3, n] - 
    2*S2[a2, a5, a1, a1, SP[a3, a4], n] - 
    2*S2[a2, a5, a1, SP[a1, a4], a3, n] - 
    2*S2[a2, a5, SP[a1, a4], a1, a3, n] - S2[a2, SP[a1, a4], a1, a3, a5, n] - 
    S2[a2, SP[a1, a4], a1, a5, a3, n] - S2[a2, n]*S2[a4, a1, a5, a1, a3, n] - 
    S2[a4, a1, a5, a1, SP[a2, a3], n] - S2[a4, a1, a5, SP[a1, a2], a3, n] - 
    S2[a4, a1, SP[a2, a5], a1, a3, n] + S2[a1, n]*S2[a4, a2, a5, a1, a3, n] + 
    S2[a4, a2, a5, a1, SP[a1, a3], n] + S2[a4, a2, a5, SP[a1, a1], a3, n] + 
    S2[a4, a2, SP[a1, a5], a1, a3, n] + 2*S2[a2, n]*
     S2[a5, a1, a1, a3, a4, n] + 2*S2[a5, a1, a1, a3, SP[a2, a4], n] + 
    2*S2[a2, n]*S2[a5, a1, a1, a4, a3, n] + 
    2*S2[a5, a1, a1, a4, SP[a2, a3], n] + 
    2*S2[a5, a1, a1, SP[a2, a3], a4, n] + 
    2*S2[a5, a1, a1, SP[a2, a4], a3, n] - 
    S2[a1, n]*S2[a5, a1, a2, a3, a4, n] - S2[a5, a1, a2, a3, SP[a1, a4], n] - 
    S2[a1, n]*S2[a5, a1, a2, a4, a3, n] - S2[a5, a1, a2, a4, SP[a1, a3], n] - 
    S2[a5, a1, a2, SP[a1, a3], a4, n] - S2[a5, a1, a2, SP[a1, a4], a3, n] - 
    S2[a1, n]*S2[a5, a1, a3, a2, a4, n] - S2[a5, a1, a3, a2, SP[a1, a4], n] - 
    S2[a5, a1, a3, SP[a1, a2], a4, n] + 2*S2[a2, n]*
     S2[a5, a1, a4, a1, a3, n] + 2*S2[a5, a1, a4, a1, SP[a2, a3], n] + 
    2*S2[a5, a1, a4, SP[a1, a2], a3, n] + S2[a5, a1, SP[a1, a2], a3, a4, n] + 
    S2[a5, a1, SP[a1, a2], a4, a3, n] - S2[a5, a1, SP[a1, a3], a2, a4, n] + 
    2*S2[a5, a1, SP[a2, a4], a1, a3, n] - 
    S2[a1, n]*S2[a5, a2, a1, a3, a4, n] - S2[a5, a2, a1, a3, SP[a1, a4], n] - 
    S2[a1, n]*S2[a5, a2, a1, a4, a3, n] - S2[a5, a2, a1, a4, SP[a1, a3], n] - 
    S2[a5, a2, a1, SP[a1, a3], a4, n] - S2[a5, a2, a1, SP[a1, a4], a3, n] - 
    S2[a1, n]*S2[a5, a2, a4, a1, a3, n] - S2[a5, a2, a4, a1, SP[a1, a3], n] - 
    S2[a5, a2, a4, SP[a1, a1], a3, n] - S2[a5, a2, SP[a1, a1], a3, a4, n] - 
    S2[a5, a2, SP[a1, a1], a4, a3, n] - S2[a5, a2, SP[a1, a4], a1, a3, n] - 
    S2[a5, SP[a1, a1], a2, a3, a4, n] - S2[a5, SP[a1, a1], a2, a4, a3, n] - 
    S2[a5, SP[a1, a1], a3, a2, a4, n] + S2[a5, SP[a1, a2], a1, a3, a4, n] + 
    S2[a5, SP[a1, a2], a1, a4, a3, n] + S2[a5, SP[a1, a2], a4, a1, a3, n] + 
    S2[SP[a1, a1], a3, a4, a2, a5, n] + S2[SP[a1, a1], a3, a4, a5, a2, n] + 
    S2[SP[a1, a1], a3, a5, a4, a2, n] + S2[SP[a1, a1], a4, a2, a3, a5, n] + 
    S2[SP[a1, a1], a4, a2, a5, a3, n] + S2[SP[a1, a1], a4, a3, a2, a5, n] + 
    S2[SP[a1, a1], a4, a3, a5, a2, n] + S2[SP[a1, a1], a4, a5, a2, a3, n] + 
    S2[SP[a1, a1], a4, a5, a3, a2, n] + S2[SP[a1, a1], a5, a3, a4, a2, n] + 
    S2[SP[a1, a1], a5, a4, a2, a3, n] + S2[SP[a1, a1], a5, a4, a3, a2, n] + 
    S2[SP[a1, a4], a2, a5, a1, a3, n] + S2[SP[a1, a4], a5, a1, a2, a3, n] + 
    S2[SP[a1, a4], a5, a1, a3, a2, n] + S2[SP[a1, a4], a5, a2, a1, a3, n] - 
    S2[SP[a1, a5], a1, a2, a3, a4, n] - S2[SP[a1, a5], a1, a2, a4, a3, n] - 
    S2[SP[a1, a5], a1, a3, a2, a4, n] - 2*S2[SP[a1, a5], a1, a3, a4, a2, n] - 
    2*S2[SP[a1, a5], a1, a4, a2, a3, n] - 
    2*S2[SP[a1, a5], a1, a4, a3, a2, n] - S2[SP[a1, a5], a2, a1, a3, a4, n] - 
    S2[SP[a1, a5], a2, a1, a4, a3, n] - S2[SP[a1, a5], a2, a4, a1, a3, n] - 
    2*S2[SP[a1, a5], a4, a1, a2, a3, n] - 
    2*S2[SP[a1, a5], a4, a1, a3, a2, n] - 
    2*S2[SP[a1, a5], a4, a2, a1, a3, n] - S2[SP[a2, a4], a1, a5, a1, a3, n] - 
    2*S2[SP[a2, a4], a5, a1, a1, a3, n] + 
    2*S2[SP[a2, a5], a1, a1, a3, a4, n] + 
    2*S2[SP[a2, a5], a1, a1, a4, a3, n] + 
    2*S2[SP[a2, a5], a1, a4, a1, a3, n] + 
    2*S2[SP[a2, a5], a4, a1, a1, a3, n] + S2[a5, a1, a2, a3, a1, a4, n] + 
    S2[a5, a1, a2, a3, a4, a1, n] + S2[a5, a1, a2, a4, a3, a1, n] + 
    S2[a5, a1, a3, a1, a2, a4, n] + S2[a5, a1, a3, a2, a1, a4, n] + 
    S2[a5, a1, a3, a2, a4, a1, n] + S2[a5, a2, a1, a3, a1, a4, n] + 
    S2[a5, a2, a1, a3, a4, a1, n] + S2[a5, a2, a1, a4, a3, a1, n] + 
    S2[a5, a2, a4, a1, a3, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a4_, a2_, a5_, a3_, a1_, a1_, n_] :> 
  S2[a2, a4, n]*S2[a1, a1, a3, a5, n] - S2[a1, a1, SP[a2, a3], SP[a4, a5], 
     n] - S2[a1, SP[a1, a2], a3, SP[a4, a5], n] - 
    S2[a1, SP[a1, a2], SP[a3, a4], a5, n] - S2[SP[a1, a2], a1, a3, 
     SP[a4, a5], n] - S2[SP[a1, a2], a1, SP[a3, a4], a5, n] - 
    S2[SP[a1, a2], SP[a1, a4], a3, a5, n] + S2[a1, a1, a2, a3, SP[a4, a5], 
     n] + S2[a1, a1, a2, SP[a3, a4], a5, n] + S2[a1, a1, a3, a2, SP[a4, a5], 
     n] + S2[a5, n]*S2[a1, a1, a3, a4, a2, n] - 
    S2[a2, n]*S2[a1, a1, a3, a4, a5, n] - 
    S2[a2, n]*S2[a1, a1, a3, a5, a4, n] - S2[a1, a1, a3, a5, SP[a2, a4], n] - 
    S2[a1, a1, a3, SP[a2, a4], a5, n] + S2[a1, a1, a3, SP[a4, a5], a2, n] + 
    S2[a5, n]*S2[a1, a1, a4, a2, a3, n] + S2[a1, a1, a4, a2, SP[a3, a5], n] + 
    S2[a5, n]*S2[a1, a1, a4, a3, a2, n] - 
    S2[a2, n]*S2[a1, a1, a4, a3, a5, n] - S2[a1, a1, a4, SP[a2, a3], a5, n] + 
    S2[a1, a1, a4, SP[a2, a5], a3, n] + S2[a1, a1, a4, SP[a3, a5], a2, n] - 
    S2[a4, n]*S2[a1, a1, a5, a2, a3, n] - S2[a1, a1, a5, a2, SP[a3, a4], n] - 
    S2[a4, n]*S2[a1, a1, a5, a3, a2, n] - S2[a1, a1, a5, a3, SP[a2, a4], n] - 
    S2[a1, a1, a5, SP[a2, a4], a3, n] - S2[a1, a1, a5, SP[a3, a4], a2, n] - 
    S2[a1, a1, SP[a2, a4], a3, a5, n] + S2[a1, a1, SP[a3, a5], a4, a2, n] + 
    S2[a1, a2, a1, a3, SP[a4, a5], n] + S2[a1, a2, a1, SP[a3, a4], a5, n] + 
    S2[a1, a2, SP[a1, a4], a3, a5, n] + S2[a5, n]*S2[a1, a4, a1, a2, a3, n] + 
    S2[a1, a4, a1, a2, SP[a3, a5], n] + S2[a5, n]*S2[a1, a4, a1, a3, a2, n] - 
    S2[a2, n]*S2[a1, a4, a1, a3, a5, n] - S2[a1, a4, a1, SP[a2, a3], a5, n] + 
    S2[a1, a4, a1, SP[a2, a5], a3, n] + S2[a1, a4, a1, SP[a3, a5], a2, n] + 
    S2[a5, n]*S2[a1, a4, a2, a1, a3, n] + S2[a1, a4, a2, a1, SP[a3, a5], n] - 
    (S2[a1, n]*S2[a1, a4, a2, a5, a3, n])/2 - 
    S2[a1, a4, a2, a5, SP[a1, a3], n]/2 + S2[a1, a4, a2, SP[a1, a5], a3, n]/
     2 - S2[a1, a4, SP[a1, a2], a3, a5, n] - 
    S2[a1, a4, SP[a1, a2], a5, a3, n]/2 + S2[a1, a4, SP[a1, a5], a2, a3, n] + 
    S2[a1, a4, SP[a1, a5], a3, a2, n] + S2[a1, a4, SP[a2, a5], a1, a3, n] - 
    S2[a4, n]*S2[a1, a5, a1, a2, a3, n] - S2[a1, a5, a1, a2, SP[a3, a4], n] - 
    S2[a4, n]*S2[a1, a5, a1, a3, a2, n] - S2[a1, a5, a1, a3, SP[a2, a4], n] - 
    S2[a1, a5, a1, SP[a2, a4], a3, n] - S2[a1, a5, a1, SP[a3, a4], a2, n] - 
    S2[a4, n]*S2[a1, a5, a2, a1, a3, n] - S2[a1, a5, a2, a1, SP[a3, a4], n] + 
    (S2[a1, n]*S2[a1, a5, a2, a3, a4, n])/2 + 
    S2[a1, a5, a2, a3, SP[a1, a4], n]/2 + 
    (S2[a1, n]*S2[a1, a5, a2, a4, a3, n])/2 + 
    S2[a1, a5, a2, a4, SP[a1, a3], n]/2 + S2[a1, a5, a2, SP[a1, a3], a4, n]/
     2 - S2[a1, a5, a2, SP[a1, a4], a3, n]/2 + 
    (S2[a1, n]*S2[a1, a5, a3, a2, a4, n])/2 + 
    S2[a1, a5, a3, a2, SP[a1, a4], n]/2 + S2[a1, a5, a3, SP[a1, a2], a4, n]/
     2 + S2[a1, a5, SP[a1, a2], a3, a4, n]/2 + 
    S2[a1, a5, SP[a1, a2], a4, a3, n]/2 + S2[a1, a5, SP[a1, a3], a2, a4, n]/
     2 - S2[a1, a5, SP[a1, a4], a2, a3, n] - S2[a1, a5, SP[a1, a4], a3, a2, 
     n] - S2[a1, a5, SP[a2, a4], a1, a3, n] - 
    S2[a1, SP[a1, a4], a2, a5, a3, n]/2 - S2[a1, SP[a1, a4], a5, a2, a3, n] - 
    S2[a1, SP[a1, a4], a5, a3, a2, n] + S2[a1, SP[a1, a5], a2, a3, a4, n]/2 + 
    S2[a1, SP[a1, a5], a2, a4, a3, n]/2 + S2[a1, SP[a1, a5], a3, a2, a4, n]/
     2 + S2[a1, SP[a1, a5], a3, a4, a2, n] + S2[a1, SP[a1, a5], a4, a2, a3, 
     n] + S2[a1, SP[a1, a5], a4, a3, a2, n] - S2[a1, SP[a2, a4], a1, a3, a5, 
     n] + S2[a2, a1, a1, a3, SP[a4, a5], n] + S2[a2, a1, a1, SP[a3, a4], a5, 
     n] + S2[a2, a1, SP[a1, a4], a3, a5, n] - 
    S2[a5, n]*S2[a2, a4, a1, a1, a3, n] - S2[a2, a4, a1, a1, SP[a3, a5], n] - 
    S2[a2, a4, a1, SP[a1, a5], a3, n] - S2[a2, a4, SP[a1, a5], a1, a3, n] + 
    S2[a4, n]*S2[a2, a5, a1, a1, a3, n] + S2[a2, a5, a1, a1, SP[a3, a4], n] + 
    S2[a2, a5, a1, SP[a1, a4], a3, n] + S2[a2, a5, SP[a1, a4], a1, a3, n] + 
    S2[a2, SP[a1, a4], a1, a3, a5, n] + S2[a2, n]*S2[a4, a1, a1, a5, a3, n] + 
    S2[a4, a1, a1, a5, SP[a2, a3], n] + S2[a4, a1, a1, SP[a2, a5], a3, n] - 
    (S2[a1, n]*S2[a4, a1, a2, a5, a3, n])/2 - 
    S2[a4, a1, a2, a5, SP[a1, a3], n]/2 - S2[a4, a1, a2, SP[a1, a5], a3, n]/
     2 + S2[a2, n]*S2[a4, a1, a5, a1, a3, n] + S2[a4, a1, a5, a1, SP[a2, a3], 
     n] + S2[a4, a1, a5, SP[a1, a2], a3, n] + 
    S2[a4, a1, SP[a1, a2], a5, a3, n]/2 + S2[a4, a1, SP[a2, a5], a1, a3, n] - 
    (S2[a1, n]*S2[a4, a2, a1, a5, a3, n])/2 - 
    S2[a4, a2, a1, a5, SP[a1, a3], n]/2 - S2[a4, a2, a1, SP[a1, a5], a3, n]/
     2 - (S2[a1, n]*S2[a4, a2, a5, a1, a3, n])/2 - 
    S2[a4, a2, a5, a1, SP[a1, a3], n]/2 + 
    (S2[a1, n]*S2[a4, a2, a5, a3, a1, n])/2 + 
    S2[a4, a2, a5, a3, SP[a1, a1], n]/2 - S2[a4, a2, a5, SP[a1, a1], a3, n]/
     2 + S2[a4, a2, a5, SP[a1, a3], a1, n]/2 - 
    S2[a4, a2, SP[a1, a1], a5, a3, n]/2 - S2[a4, a2, SP[a1, a5], a1, a3, n]/
     2 + S2[a4, a2, SP[a1, a5], a3, a1, n]/2 - 
    S2[a4, SP[a1, a1], a2, a5, a3, n]/2 + S2[a4, SP[a1, a2], a1, a5, a3, n]/
     2 + S2[a4, SP[a1, a2], a5, a1, a3, n]/2 + 
    S2[a4, SP[a1, a2], a5, a3, a1, n]/2 - 
    S2[a2, n]*S2[a5, a1, a1, a3, a4, n] - S2[a5, a1, a1, a3, SP[a2, a4], n] - 
    S2[a2, n]*S2[a5, a1, a1, a4, a3, n] - S2[a5, a1, a1, a4, SP[a2, a3], n] - 
    S2[a5, a1, a1, SP[a2, a3], a4, n] - S2[a5, a1, a1, SP[a2, a4], a3, n] + 
    (S2[a1, n]*S2[a5, a1, a2, a3, a4, n])/2 + 
    S2[a5, a1, a2, a3, SP[a1, a4], n]/2 + 
    (S2[a1, n]*S2[a5, a1, a2, a4, a3, n])/2 + 
    S2[a5, a1, a2, a4, SP[a1, a3], n]/2 + S2[a5, a1, a2, SP[a1, a3], a4, n]/
     2 + S2[a5, a1, a2, SP[a1, a4], a3, n]/2 + 
    (S2[a1, n]*S2[a5, a1, a3, a2, a4, n])/2 + 
    S2[a5, a1, a3, a2, SP[a1, a4], n]/2 + S2[a5, a1, a3, SP[a1, a2], a4, n]/
     2 - S2[a2, n]*S2[a5, a1, a4, a1, a3, n] - S2[a5, a1, a4, a1, SP[a2, a3], 
     n] - S2[a5, a1, a4, SP[a1, a2], a3, n] - 
    S2[a5, a1, SP[a1, a2], a3, a4, n]/2 - S2[a5, a1, SP[a1, a2], a4, a3, n]/
     2 + S2[a5, a1, SP[a1, a3], a2, a4, n]/2 - S2[a5, a1, SP[a2, a4], a1, a3, 
     n] + (S2[a1, n]*S2[a5, a2, a1, a3, a4, n])/2 + 
    S2[a5, a2, a1, a3, SP[a1, a4], n]/2 + 
    (S2[a1, n]*S2[a5, a2, a1, a4, a3, n])/2 + 
    S2[a5, a2, a1, a4, SP[a1, a3], n]/2 + S2[a5, a2, a1, SP[a1, a3], a4, n]/
     2 + S2[a5, a2, a1, SP[a1, a4], a3, n]/2 - 
    (S2[a1, n]*S2[a5, a2, a3, a1, a4, n])/2 - 
    S2[a5, a2, a3, a1, SP[a1, a4], n]/2 - 
    (S2[a1, n]*S2[a5, a2, a3, a4, a1, n])/2 - 
    S2[a5, a2, a3, a4, SP[a1, a1], n]/2 - S2[a5, a2, a3, SP[a1, a1], a4, n]/
     2 - S2[a5, a2, a3, SP[a1, a4], a1, n]/2 + 
    (S2[a1, n]*S2[a5, a2, a4, a1, a3, n])/2 + 
    S2[a5, a2, a4, a1, SP[a1, a3], n]/2 - 
    (S2[a1, n]*S2[a5, a2, a4, a3, a1, n])/2 - 
    S2[a5, a2, a4, a3, SP[a1, a1], n]/2 + S2[a5, a2, a4, SP[a1, a1], a3, n]/
     2 - S2[a5, a2, a4, SP[a1, a3], a1, n]/2 + 
    S2[a5, a2, SP[a1, a1], a3, a4, n]/2 + S2[a5, a2, SP[a1, a1], a4, a3, n]/
     2 - S2[a5, a2, SP[a1, a3], a1, a4, n]/2 - 
    S2[a5, a2, SP[a1, a3], a4, a1, n]/2 + S2[a5, a2, SP[a1, a4], a1, a3, n]/
     2 - S2[a5, a2, SP[a1, a4], a3, a1, n]/2 - 
    (S2[a1, n]*S2[a5, a3, a1, a2, a4, n])/2 - 
    S2[a5, a3, a1, a2, SP[a1, a4], n]/2 - S2[a5, a3, a1, SP[a1, a2], a4, n]/
     2 - (S2[a1, n]*S2[a5, a3, a2, a1, a4, n])/2 - 
    S2[a5, a3, a2, a1, SP[a1, a4], n]/2 - 
    (S2[a1, n]*S2[a5, a3, a2, a4, a1, n])/2 - 
    S2[a5, a3, a2, a4, SP[a1, a1], n]/2 - S2[a5, a3, a2, SP[a1, a1], a4, n]/
     2 - S2[a5, a3, a2, SP[a1, a4], a1, n]/2 - 
    S2[a5, a3, SP[a1, a1], a2, a4, n]/2 - S2[a5, a3, SP[a1, a2], a1, a4, n]/
     2 - S2[a5, a3, SP[a1, a2], a4, a1, n]/2 + 
    S2[a5, SP[a1, a1], a2, a3, a4, n]/2 + S2[a5, SP[a1, a1], a2, a4, a3, n]/
     2 + S2[a5, SP[a1, a1], a3, a2, a4, n]/2 - 
    S2[a5, SP[a1, a2], a1, a3, a4, n]/2 - S2[a5, SP[a1, a2], a1, a4, a3, n]/
     2 - S2[a5, SP[a1, a2], a3, a1, a4, n]/2 - 
    S2[a5, SP[a1, a2], a3, a4, a1, n]/2 - S2[a5, SP[a1, a2], a4, a1, a3, n]/
     2 - S2[a5, SP[a1, a2], a4, a3, a1, n]/2 - 
    S2[a5, SP[a1, a3], a1, a2, a4, n]/2 - S2[a5, SP[a1, a3], a2, a1, a4, n]/
     2 - S2[a5, SP[a1, a3], a2, a4, a1, n]/2 - 
    S2[SP[a1, a1], a4, a2, a5, a3, n]/2 + S2[SP[a1, a1], a5, a2, a3, a4, n]/
     2 + S2[SP[a1, a1], a5, a2, a4, a3, n]/2 + 
    S2[SP[a1, a1], a5, a3, a2, a4, n]/2 - S2[SP[a1, a4], a1, a2, a5, a3, n]/
     2 - S2[SP[a1, a4], a1, a5, a2, a3, n] - S2[SP[a1, a4], a1, a5, a3, a2, 
     n] - S2[SP[a1, a4], a2, a1, a5, a3, n]/2 - 
    S2[SP[a1, a4], a2, a5, a1, a3, n]/2 + S2[SP[a1, a4], a2, a5, a3, a1, n]/
     2 - S2[SP[a1, a4], a5, a1, a2, a3, n] - S2[SP[a1, a4], a5, a1, a3, a2, 
     n] - S2[SP[a1, a4], a5, a2, a1, a3, n] + 
    S2[SP[a1, a5], a1, a2, a3, a4, n]/2 + S2[SP[a1, a5], a1, a2, a4, a3, n]/
     2 + S2[SP[a1, a5], a1, a3, a2, a4, n]/2 + S2[SP[a1, a5], a1, a3, a4, a2, 
     n] + S2[SP[a1, a5], a1, a4, a2, a3, n] + S2[SP[a1, a5], a1, a4, a3, a2, 
     n] + S2[SP[a1, a5], a2, a1, a3, a4, n]/2 + 
    S2[SP[a1, a5], a2, a1, a4, a3, n]/2 - S2[SP[a1, a5], a2, a3, a1, a4, n]/
     2 - S2[SP[a1, a5], a2, a3, a4, a1, n]/2 + 
    S2[SP[a1, a5], a2, a4, a1, a3, n]/2 - S2[SP[a1, a5], a2, a4, a3, a1, n]/
     2 - S2[SP[a1, a5], a3, a1, a2, a4, n]/2 - 
    S2[SP[a1, a5], a3, a2, a1, a4, n]/2 - S2[SP[a1, a5], a3, a2, a4, a1, n]/
     2 + S2[SP[a1, a5], a4, a1, a2, a3, n] + S2[SP[a1, a5], a4, a1, a3, a2, 
     n] + S2[SP[a1, a5], a4, a2, a1, a3, n] + S2[SP[a2, a4], a1, a1, a5, a3, 
     n] + S2[SP[a2, a4], a1, a5, a1, a3, n] + S2[SP[a2, a4], a5, a1, a1, a3, 
     n] - S2[SP[a2, a5], a1, a1, a3, a4, n] - S2[SP[a2, a5], a1, a1, a4, a3, 
     n] - S2[SP[a2, a5], a1, a4, a1, a3, n] - S2[SP[a2, a5], a4, a1, a1, a3, 
     n] + S2[a5, a2, a3, a1, a1, a4, n] + S2[a5, a2, a3, a1, a4, a1, n] + 
    S2[a5, a2, a3, a4, a1, a1, n] + S2[a5, a2, a4, a3, a1, a1, n] + 
    S2[a5, a3, a1, a1, a2, a4, n] + S2[a5, a3, a1, a2, a1, a4, n] + 
    S2[a5, a3, a1, a2, a4, a1, n] + S2[a5, a3, a2, a1, a1, a4, n] + 
    S2[a5, a3, a2, a1, a4, a1, n] + S2[a5, a3, a2, a4, a1, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a4_, a3_, a1_, a1_, a2_, a5_, n_] :> 
  S2[a1, a2, a5, n]*S2[a1, a3, a4, n] + S2[SP[a1, a1], SP[a2, a3], 
     SP[a4, a5], n] - S2[a3, a4, n]*S2[a1, a1, a2, a5, n] - 
    S2[a2, a5, n]*S2[a1, a1, a3, a4, n] - S2[SP[a1, a1], a2, a3, SP[a4, a5], 
     n] - S2[SP[a1, a1], a2, SP[a3, a5], a4, n] - S2[SP[a1, a1], a3, a2, 
     SP[a4, a5], n] - S2[SP[a1, a1], a3, SP[a2, a4], a5, n] - 
    S2[SP[a1, a1], SP[a2, a3], a4, a5, n] - S2[SP[a1, a1], SP[a2, a3], a5, 
     a4, n] + S2[SP[a1, a2], a1, a3, SP[a4, a5], n] + 
    S2[SP[a1, a2], a1, SP[a3, a5], a4, n] + S2[SP[a1, a2], SP[a1, a5], a3, 
     a4, n] + S2[SP[a1, a3], a1, a2, SP[a4, a5], n] + 
    S2[SP[a1, a3], a1, SP[a2, a4], a5, n] + S2[SP[a1, a3], SP[a1, a4], a2, 
     a5, n] - S2[a5, n]*S2[a1, a1, a2, a3, a4, n] - 
    S2[a4, n]*S2[a1, a1, a2, a3, a5, n] - 
    2*S2[a1, a1, a2, a3, SP[a4, a5], n] + 
    S2[a3, n]*S2[a1, a1, a2, a4, a5, n] + S2[a1, a1, a2, a4, SP[a3, a5], n] - 
    S2[a4, n]*S2[a1, a1, a2, a5, a3, n] + 
    S2[a3, n]*S2[a1, a1, a2, a5, a4, n] - S2[a1, a1, a2, SP[a4, a5], a3, n] - 
    S2[a5, n]*S2[a1, a1, a3, a2, a4, n] - 
    S2[a4, n]*S2[a1, a1, a3, a2, a5, n] - 
    2*S2[a1, a1, a3, a2, SP[a4, a5], n] - 
    S2[a5, n]*S2[a1, a1, a3, a4, a2, n] + 
    S2[a2, n]*S2[a1, a1, a3, a4, a5, n] + 
    S2[a2, n]*S2[a1, a1, a3, a5, a4, n] + S2[a1, a1, a3, a5, SP[a2, a4], n] - 
    S2[a1, a1, a3, SP[a4, a5], a2, n] + S2[a3, n]*S2[a1, a1, a4, a2, a5, n] + 
    S2[a1, a1, a4, a2, SP[a3, a5], n] + S2[a1, a1, a4, SP[a2, a3], a5, n] + 
    S2[a2, n]*S2[a1, a1, a5, a3, a4, n] + S2[a1, a1, a5, a3, SP[a2, a4], n] + 
    S2[a1, a1, a5, SP[a2, a3], a4, n] + 2*S2[a1, a1, SP[a2, a3], a4, a5, n] + 
    2*S2[a1, a1, SP[a2, a3], a5, a4, n] - S2[a1, a1, SP[a2, a4], a3, a5, n] - 
    S2[a1, a1, SP[a2, a4], a5, a3, n] - S2[a1, a1, SP[a3, a5], a2, a4, n] - 
    S2[a1, a1, SP[a3, a5], a4, a2, n] - S2[a5, n]*S2[a1, a2, a1, a3, a4, n] - 
    S2[a1, a2, a1, a3, SP[a4, a5], n] - S2[a1, a2, a1, SP[a3, a5], a4, n] - 
    S2[a1, a2, SP[a1, a5], a3, a4, n] - S2[a4, n]*S2[a1, a3, a1, a2, a5, n] - 
    S2[a1, a3, a1, a2, SP[a4, a5], n] - S2[a1, a3, a1, SP[a2, a4], a5, n] - 
    S2[a1, a3, SP[a1, a4], a2, a5, n] + S2[a3, n]*S2[a1, a4, a1, a2, a5, n] + 
    S2[a1, a4, a1, a2, SP[a3, a5], n] + S2[a1, a4, a1, SP[a2, a3], a5, n] + 
    S2[a1, a4, SP[a1, a3], a2, a5, n] + S2[a2, n]*S2[a1, a5, a1, a3, a4, n] + 
    S2[a1, a5, a1, a3, SP[a2, a4], n] + S2[a1, a5, a1, SP[a2, a3], a4, n] + 
    S2[a1, a5, SP[a1, a2], a3, a4, n] + S2[a1, SP[a1, a2], a3, a4, a5, n] + 
    S2[a1, SP[a1, a2], a3, a5, a4, n] + S2[a1, SP[a1, a2], a5, a3, a4, n] + 
    S2[a1, SP[a1, a3], a2, a4, a5, n] + S2[a1, SP[a1, a3], a2, a5, a4, n] + 
    S2[a1, SP[a1, a3], a4, a2, a5, n] - S2[a1, SP[a1, a4], a2, a3, a5, n] - 
    S2[a1, SP[a1, a4], a2, a5, a3, n] - S2[a1, SP[a1, a4], a3, a2, a5, n] - 
    S2[a1, SP[a1, a5], a2, a3, a4, n] - S2[a1, SP[a1, a5], a3, a2, a4, n] - 
    S2[a1, SP[a1, a5], a3, a4, a2, n] - S2[a2, a1, a1, a3, SP[a4, a5], n] - 
    S2[a2, a1, a1, SP[a3, a5], a4, n] - S2[a2, a1, SP[a1, a5], a3, a4, n] - 
    S2[a2, SP[a1, a5], a1, a3, a4, n] - S2[a3, a1, a1, a2, SP[a4, a5], n] - 
    S2[a3, a1, a1, SP[a2, a4], a5, n] - S2[a3, a1, SP[a1, a4], a2, a5, n] - 
    S2[a3, SP[a1, a4], a1, a2, a5, n] + S2[a3, n]*S2[a4, a1, a1, a2, a5, n] + 
    S2[a4, a1, a1, a2, SP[a3, a5], n] + S2[a4, a1, a1, SP[a2, a3], a5, n] + 
    S2[a4, a1, SP[a1, a3], a2, a5, n] + S2[a4, SP[a1, a3], a1, a2, a5, n] + 
    S2[a2, n]*S2[a5, a1, a1, a3, a4, n] + S2[a5, a1, a1, a3, SP[a2, a4], n] + 
    S2[a5, a1, a1, SP[a2, a3], a4, n] + S2[a5, a1, SP[a1, a2], a3, a4, n] + 
    S2[a5, SP[a1, a2], a1, a3, a4, n] + S2[SP[a1, a1], a2, a3, a4, a5, n] + 
    S2[SP[a1, a1], a2, a3, a5, a4, n] + S2[SP[a1, a1], a2, a5, a3, a4, n] + 
    S2[SP[a1, a1], a3, a2, a4, a5, n] + S2[SP[a1, a1], a3, a2, a5, a4, n] + 
    S2[SP[a1, a1], a3, a4, a2, a5, n] - S2[SP[a1, a4], a1, a2, a3, a5, n] - 
    S2[SP[a1, a4], a1, a2, a5, a3, n] - S2[SP[a1, a4], a1, a3, a2, a5, n] - 
    S2[SP[a1, a4], a3, a1, a2, a5, n] - S2[SP[a1, a5], a1, a2, a3, a4, n] - 
    S2[SP[a1, a5], a1, a3, a2, a4, n] - S2[SP[a1, a5], a1, a3, a4, a2, n] - 
    S2[SP[a1, a5], a2, a1, a3, a4, n] + S2[SP[a2, a5], a1, a1, a3, a4, n] + 
    S2[SP[a3, a4], a1, a1, a2, a5, n] - S2[a5, a2, a1, a1, a3, a4, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a4_, a3_, a1_, a1_, a5_, a2_, n_] :> 
  S2[a1, a3, a4, n]*S2[a1, a5, a2, n] + S2[SP[a1, a1], SP[a3, a5], 
     SP[a2, a4], n] + S2[a2, a5, n]*S2[a1, a1, a3, a4, n] - 
    S2[a3, a4, n]*S2[a1, a1, a5, a2, n] - S2[a1, a1, SP[a2, a3], SP[a4, a5], 
     n] - S2[a1, a1, SP[a3, a5], SP[a2, a4], n] - S2[a1, SP[a1, a2], a3, 
     SP[a4, a5], n] - S2[a1, SP[a1, a2], SP[a3, a5], a4, n] - 
    S2[a1, SP[a1, a5], a3, SP[a2, a4], n] - S2[a1, SP[a1, a5], SP[a2, a3], 
     a4, n] - S2[SP[a1, a1], a3, a5, SP[a2, a4], n] - 
    S2[SP[a1, a1], a3, SP[a4, a5], a2, n] - S2[SP[a1, a1], a5, a3, 
     SP[a2, a4], n] - S2[SP[a1, a1], a5, SP[a2, a3], a4, n] - 
    S2[SP[a1, a1], SP[a3, a5], a2, a4, n] - S2[SP[a1, a1], SP[a3, a5], a4, 
     a2, n] - S2[SP[a1, a2], a1, a3, SP[a4, a5], n] - 
    S2[SP[a1, a2], a1, SP[a3, a5], a4, n] - S2[SP[a1, a2], SP[a1, a5], a3, 
     a4, n] + S2[SP[a1, a3], a1, a5, SP[a2, a4], n] + 
    S2[SP[a1, a3], a1, SP[a4, a5], a2, n] + S2[SP[a1, a3], SP[a1, a4], a5, 
     a2, n] + S2[a1, a1, a2, a3, SP[a4, a5], n] + S2[a1, a1, a2, SP[a3, a5], 
     a4, n] + S2[a1, a1, a3, a2, SP[a4, a5], n] - 
    S2[a2, n]*S2[a1, a1, a3, a4, a5, n] - S2[a1, a1, a3, a4, SP[a2, a5], n] - 
    S2[a4, n]*S2[a1, a1, a3, a5, a2, n] - 
    S2[a2, n]*S2[a1, a1, a3, a5, a4, n] - S2[a1, a1, a3, a5, SP[a2, a4], n] - 
    S2[a1, a1, a3, SP[a2, a5], a4, n] + S2[a3, n]*S2[a1, a1, a4, a5, a2, n] + 
    S2[a1, a1, a4, a5, SP[a2, a3], n] + S2[a1, a1, a4, SP[a3, a5], a2, n] - 
    S2[a4, n]*S2[a1, a1, a5, a2, a3, n] + 
    S2[a3, n]*S2[a1, a1, a5, a2, a4, n] - 
    S2[a4, n]*S2[a1, a1, a5, a3, a2, n] - 
    S2[a2, n]*S2[a1, a1, a5, a3, a4, n] - S2[a1, a1, a5, a3, SP[a2, a4], n] + 
    S2[a3, n]*S2[a1, a1, a5, a4, a2, n] + S2[a1, a1, a5, a4, SP[a2, a3], n] + 
    S2[a1, a1, a5, SP[a2, a3], a4, n] - S2[a1, a1, a5, SP[a2, a4], a3, n] - 
    S2[a1, a1, SP[a2, a5], a3, a4, n] + 2*S2[a1, a1, SP[a3, a5], a2, a4, n] + 
    2*S2[a1, a1, SP[a3, a5], a4, a2, n] - S2[a1, a1, SP[a4, a5], a2, a3, n] - 
    S2[a1, a1, SP[a4, a5], a3, a2, n] + S2[a1, a2, a1, a3, SP[a4, a5], n] + 
    S2[a1, a2, a1, SP[a3, a5], a4, n] + S2[a1, a2, SP[a1, a5], a3, a4, n] - 
    S2[a4, n]*S2[a1, a3, a1, a5, a2, n] - S2[a1, a3, a1, a5, SP[a2, a4], n] - 
    S2[a1, a3, a1, SP[a4, a5], a2, n] - S2[a1, a3, SP[a1, a4], a5, a2, n] + 
    S2[a3, n]*S2[a1, a4, a1, a5, a2, n] + S2[a1, a4, a1, a5, SP[a2, a3], n] + 
    S2[a1, a4, a1, SP[a3, a5], a2, n] + S2[a1, a4, SP[a1, a3], a5, a2, n] - 
    S2[a2, n]*S2[a1, a5, a1, a3, a4, n] + S2[a1, SP[a1, a3], a4, a5, a2, n] + 
    S2[a1, SP[a1, a3], a5, a2, a4, n] + S2[a1, SP[a1, a3], a5, a4, a2, n] - 
    S2[a1, SP[a1, a4], a3, a5, a2, n] - S2[a1, SP[a1, a4], a5, a2, a3, n] - 
    S2[a1, SP[a1, a4], a5, a3, a2, n] + S2[a1, SP[a1, a5], a2, a3, a4, n] + 
    S2[a1, SP[a1, a5], a3, a2, a4, n] + S2[a1, SP[a1, a5], a3, a4, a2, n] - 
    S2[a1, SP[a2, a5], a1, a3, a4, n] + S2[a2, a1, a1, a3, SP[a4, a5], n] + 
    S2[a2, a1, a1, SP[a3, a5], a4, n] + S2[a2, a1, SP[a1, a5], a3, a4, n] + 
    S2[a2, SP[a1, a5], a1, a3, a4, n] - S2[a3, a1, a1, a5, SP[a2, a4], n] - 
    S2[a3, a1, a1, SP[a4, a5], a2, n] - S2[a3, a1, SP[a1, a4], a5, a2, n] - 
    S2[a3, SP[a1, a4], a1, a5, a2, n] + S2[a3, n]*S2[a4, a1, a1, a5, a2, n] + 
    S2[a4, a1, a1, a5, SP[a2, a3], n] + S2[a4, a1, a1, SP[a3, a5], a2, n] + 
    S2[a4, a1, SP[a1, a3], a5, a2, n] + S2[a4, SP[a1, a3], a1, a5, a2, n] - 
    S2[a2, n]*S2[a5, a1, a1, a3, a4, n] - S2[a5, a1, a1, a3, SP[a2, a4], n] - 
    S2[a5, a1, a1, SP[a2, a3], a4, n] - S2[a5, a1, SP[a1, a2], a3, a4, n] - 
    S2[a5, SP[a1, a2], a1, a3, a4, n] + S2[SP[a1, a1], a3, a4, a5, a2, n] + 
    S2[SP[a1, a1], a3, a5, a2, a4, n] + S2[SP[a1, a1], a3, a5, a4, a2, n] + 
    S2[SP[a1, a1], a5, a2, a3, a4, n] + S2[SP[a1, a1], a5, a3, a2, a4, n] + 
    S2[SP[a1, a1], a5, a3, a4, a2, n] - S2[SP[a1, a4], a1, a3, a5, a2, n] - 
    S2[SP[a1, a4], a1, a5, a2, a3, n] - S2[SP[a1, a4], a1, a5, a3, a2, n] - 
    S2[SP[a1, a4], a3, a1, a5, a2, n] - S2[SP[a2, a5], a1, a1, a3, a4, n] + 
    S2[SP[a3, a4], a1, a1, a5, a2, n] + S2[a5, a1, a1, a2, a3, a4, n] + 
    S2[a5, a1, a1, a3, a2, a4, n] + S2[a5, a1, a1, a3, a4, a2, n] + 
    S2[a5, a1, a2, a1, a3, a4, n] + S2[a5, a2, a1, a1, a3, a4, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a4_, a3_, a1_, a2_, a1_, a5_, n_] :> 
  -(S2[a1, a2, a5, n]*S2[a1, a3, a4, n]) - S2[a1, a3, a4, n]*
     S2[a1, a5, a2, n] - S2[SP[a1, a1], SP[a2, a3], SP[a4, a5], n] - 
    S2[SP[a1, a1], SP[a3, a5], SP[a2, a4], n] + 
    2*S2[a1, a1, SP[a2, a3], SP[a4, a5], n] + 
    2*S2[a1, a1, SP[a3, a5], SP[a2, a4], n] - 
    S2[a3, a4, n]*S2[a1, a2, a1, a5, n] + S2[a1, a5, n]*
     S2[a1, a2, a3, a4, n] + S2[a1, a5, n]*S2[a1, a3, a2, a4, n] + 
    S2[a1, a5, n]*S2[a1, a3, a4, a2, n] - S2[a1, a3, SP[a1, a2], SP[a4, a5], 
     n] - S2[a1, a3, SP[a1, a4], SP[a2, a5], n] - S2[a1, SP[a1, a3], a4, 
     SP[a2, a5], n] + S2[a1, SP[a1, a3], a5, SP[a2, a4], n] + 
    S2[a1, SP[a1, a3], SP[a2, a4], a5, n] - S2[a1, SP[a1, a3], SP[a2, a5], 
     a4, n] + S2[a1, SP[a1, a5], a3, SP[a2, a4], n] + 
    S2[a1, SP[a1, a5], SP[a2, a3], a4, n] + S2[a1, SP[a2, a3], a1, 
     SP[a4, a5], n] + S2[a1, SP[a2, a3], SP[a1, a4], a5, n] - 
    S2[SP[a1, a1], a3, a4, SP[a2, a5], n] + S2[SP[a1, a1], a3, a5, 
     SP[a2, a4], n] + S2[SP[a1, a1], a3, SP[a2, a4], a5, n] - 
    S2[SP[a1, a1], a3, SP[a2, a5], a4, n] + S2[SP[a1, a1], a5, a3, 
     SP[a2, a4], n] + S2[SP[a1, a1], a5, SP[a2, a3], a4, n] + 
    S2[SP[a1, a1], SP[a2, a3], a4, a5, n] + S2[SP[a1, a1], SP[a2, a3], a5, 
     a4, n] - S2[SP[a1, a1], SP[a2, a5], a3, a4, n] + 
    S2[SP[a1, a3], a2, a1, SP[a4, a5], n] + S2[SP[a1, a3], a2, SP[a1, a4], 
     a5, n] + S2[SP[a1, a3], SP[a2, a4], a1, a5, n] + 
    2*S2[a1, a1, a3, a4, SP[a2, a5], n] - 
    2*S2[a1, a1, a3, a5, SP[a2, a4], n] - 
    2*S2[a1, a1, a3, SP[a2, a4], a5, n] + 
    2*S2[a1, a1, a3, SP[a2, a5], a4, n] - 
    2*S2[a1, a1, a5, a3, SP[a2, a4], n] - 
    2*S2[a1, a1, a5, SP[a2, a3], a4, n] - 
    2*S2[a1, a1, SP[a2, a3], a4, a5, n] - 
    2*S2[a1, a1, SP[a2, a3], a5, a4, n] + 
    2*S2[a1, a1, SP[a2, a5], a3, a4, n] + 
    S2[a5, n]*S2[a1, a2, a1, a3, a4, n] - 
    S2[a4, n]*S2[a1, a2, a1, a3, a5, n] - S2[a1, a2, a1, a3, SP[a4, a5], n] + 
    S2[a3, n]*S2[a1, a2, a1, a4, a5, n] + S2[a1, a2, a1, a4, SP[a3, a5], n] - 
    S2[a4, n]*S2[a1, a2, a1, a5, a3, n] + 
    S2[a3, n]*S2[a1, a2, a1, a5, a4, n] + S2[a1, a2, a1, SP[a3, a5], a4, n] - 
    S2[a1, a2, a1, SP[a4, a5], a3, n] - S2[a4, n]*S2[a1, a2, a3, a1, a5, n] - 
    S2[a1, a2, a3, a1, SP[a4, a5], n] - S2[a1, a2, a3, SP[a1, a4], a5, n] + 
    S2[a3, n]*S2[a1, a2, a4, a1, a5, n] + S2[a1, a2, a4, a1, SP[a3, a5], n] + 
    S2[a1, a2, a4, SP[a1, a3], a5, n] + S2[a1, a2, SP[a1, a3], a4, a5, n] + 
    S2[a1, a2, SP[a1, a3], a5, a4, n] - S2[a1, a2, SP[a1, a4], a3, a5, n] - 
    S2[a1, a2, SP[a1, a4], a5, a3, n] + S2[a1, a3, a1, a4, SP[a2, a5], n] - 
    S2[a1, a3, a1, a5, SP[a2, a4], n] - S2[a1, a3, a1, SP[a2, a4], a5, n] + 
    S2[a1, a3, a1, SP[a2, a5], a4, n] - S2[a4, n]*S2[a1, a3, a2, a1, a5, n] - 
    S2[a1, a3, a2, a1, SP[a4, a5], n] - S2[a1, a3, a2, SP[a1, a4], a5, n] + 
    S2[a1, a3, a4, a1, SP[a2, a5], n] + S2[a1, a3, a4, SP[a1, a2], a5, n] + 
    S2[a1, a3, SP[a1, a2], a4, a5, n] + S2[a1, a3, SP[a1, a2], a5, a4, n] - 
    2*S2[a1, a3, SP[a2, a4], a1, a5, n] + 
    S2[a3, n]*S2[a1, a4, a2, a1, a5, n] + S2[a1, a4, a2, a1, SP[a3, a5], n] + 
    S2[a1, a4, a2, SP[a1, a3], a5, n] + S2[a1, a4, SP[a2, a3], a1, a5, n] - 
    S2[a1, a5, a1, a3, SP[a2, a4], n] - S2[a1, a5, a1, SP[a2, a3], a4, n] - 
    S2[a1, a5, SP[a1, a2], a3, a4, n] - S2[a1, SP[a2, a4], a1, a3, a5, n] - 
    S2[a1, SP[a2, a4], a1, a5, a3, n] - S2[a1, SP[a2, a4], a3, a1, a5, n] + 
    S2[a1, SP[a2, a5], a1, a3, a4, n] - S2[a3, a1, a2, a1, SP[a4, a5], n] - 
    S2[a3, a1, a2, SP[a1, a4], a5, n] - S2[a3, a1, SP[a2, a4], a1, a5, n] - 
    S2[a3, SP[a1, a4], a2, a1, a5, n] + S2[a3, n]*S2[a4, a1, a2, a1, a5, n] + 
    S2[a4, a1, a2, a1, SP[a3, a5], n] + S2[a4, a1, a2, SP[a1, a3], a5, n] + 
    S2[a4, a1, SP[a2, a3], a1, a5, n] + S2[a4, SP[a1, a3], a2, a1, a5, n] - 
    S2[SP[a1, a4], a2, a1, a3, a5, n] - S2[SP[a1, a4], a2, a1, a5, a3, n] - 
    S2[SP[a1, a4], a2, a3, a1, a5, n] - S2[SP[a1, a4], a3, a2, a1, a5, n] + 
    S2[SP[a1, a5], a2, a1, a3, a4, n] + S2[SP[a3, a4], a1, a2, a1, a5, n] - 
    S2[a5, a1, a2, a1, a3, a4, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a4_, a3_, a1_, a2_, a5_, a1_, n_] :> 
  S2[a1, a3, a4, n]*S2[a1, a5, a2, n] + S2[SP[a1, a1], SP[a3, a5], 
     SP[a2, a4], n] + 2*S2[a3, a4, n]*S2[a1, a1, a2, a5, n] - 
    2*S2[a1, a1, SP[a2, a3], SP[a4, a5], n] - 
    2*S2[a1, a1, SP[a3, a5], SP[a2, a4], n] + 
    S2[a3, a4, n]*S2[a1, a2, a1, a5, n] - S2[a1, a5, n]*
     S2[a1, a2, a3, a4, n] - S2[a1, a5, n]*S2[a1, a3, a2, a4, n] - 
    S2[a1, a5, n]*S2[a1, a3, a4, a2, n] + S2[a1, a3, SP[a1, a2], SP[a4, a5], 
     n] + S2[a1, a3, SP[a1, a4], SP[a2, a5], n] + S2[a1, SP[a1, a2], a3, 
     SP[a4, a5], n] + S2[a1, SP[a1, a2], SP[a3, a5], a4, n] - 
    S2[a1, SP[a1, a3], a2, SP[a4, a5], n] + S2[a1, SP[a1, a3], a4, 
     SP[a2, a5], n] - S2[a1, SP[a1, a3], a5, SP[a2, a4], n] - 
    2*S2[a1, SP[a1, a3], SP[a2, a4], a5, n] + S2[a1, SP[a1, a3], SP[a2, a5], 
     a4, n] - S2[a1, SP[a1, a5], a3, SP[a2, a4], n] - 
    S2[a1, SP[a1, a5], SP[a2, a3], a4, n] - S2[a1, SP[a2, a3], a1, 
     SP[a4, a5], n] - S2[a1, SP[a2, a3], SP[a1, a4], a5, n] + 
    S2[SP[a1, a1], a2, a3, SP[a4, a5], n] + S2[SP[a1, a1], a2, SP[a3, a5], 
     a4, n] + S2[SP[a1, a1], a3, a2, SP[a4, a5], n] + 
    S2[SP[a1, a1], a3, a4, SP[a2, a5], n] - S2[SP[a1, a1], a3, a5, 
     SP[a2, a4], n] + S2[SP[a1, a1], a3, SP[a2, a5], a4, n] - 
    S2[SP[a1, a1], a5, a3, SP[a2, a4], n] - S2[SP[a1, a1], a5, SP[a2, a3], 
     a4, n] + S2[SP[a1, a1], SP[a2, a5], a3, a4, n] - 
    2*S2[SP[a1, a3], a1, a2, SP[a4, a5], n] - 
    2*S2[SP[a1, a3], a1, SP[a2, a4], a5, n] - S2[SP[a1, a3], a2, a1, 
     SP[a4, a5], n] - S2[SP[a1, a3], a2, SP[a1, a4], a5, n] - 
    2*S2[SP[a1, a3], SP[a1, a4], a2, a5, n] - S2[SP[a1, a3], SP[a2, a4], a1, 
     a5, n] + 2*S2[a4, n]*S2[a1, a1, a2, a3, a5, n] + 
    2*S2[a1, a1, a2, a3, SP[a4, a5], n] - 
    2*S2[a3, n]*S2[a1, a1, a2, a4, a5, n] - 
    2*S2[a1, a1, a2, a4, SP[a3, a5], n] + 
    2*S2[a4, n]*S2[a1, a1, a2, a5, a3, n] - 
    2*S2[a3, n]*S2[a1, a1, a2, a5, a4, n] - 
    2*S2[a1, a1, a2, SP[a3, a5], a4, n] + 
    2*S2[a1, a1, a2, SP[a4, a5], a3, n] + 
    2*S2[a4, n]*S2[a1, a1, a3, a2, a5, n] + 
    2*S2[a1, a1, a3, a2, SP[a4, a5], n] - 
    2*S2[a1, a1, a3, a4, SP[a2, a5], n] + 
    2*S2[a1, a1, a3, a5, SP[a2, a4], n] + 
    4*S2[a1, a1, a3, SP[a2, a4], a5, n] - 
    2*S2[a1, a1, a3, SP[a2, a5], a4, n] - 
    2*S2[a3, n]*S2[a1, a1, a4, a2, a5, n] - 
    2*S2[a1, a1, a4, a2, SP[a3, a5], n] - 
    2*S2[a1, a1, a4, SP[a2, a3], a5, n] + 
    2*S2[a1, a1, a5, a3, SP[a2, a4], n] + 
    2*S2[a1, a1, a5, SP[a2, a3], a4, n] + 
    2*S2[a1, a1, SP[a2, a4], a3, a5, n] + 
    2*S2[a1, a1, SP[a2, a4], a5, a3, n] - 
    2*S2[a1, a1, SP[a2, a5], a3, a4, n] + 
    S2[a4, n]*S2[a1, a2, a1, a3, a5, n] + S2[a1, a2, a1, a3, SP[a4, a5], n] - 
    S2[a3, n]*S2[a1, a2, a1, a4, a5, n] - S2[a1, a2, a1, a4, SP[a3, a5], n] + 
    S2[a4, n]*S2[a1, a2, a1, a5, a3, n] - 
    S2[a3, n]*S2[a1, a2, a1, a5, a4, n] - S2[a1, a2, a1, SP[a3, a5], a4, n] + 
    S2[a1, a2, a1, SP[a4, a5], a3, n] + S2[a4, n]*S2[a1, a2, a3, a1, a5, n] + 
    S2[a1, a2, a3, a1, SP[a4, a5], n] + S2[a1, a2, a3, SP[a1, a4], a5, n] - 
    S2[a3, n]*S2[a1, a2, a4, a1, a5, n] - S2[a1, a2, a4, a1, SP[a3, a5], n] - 
    S2[a1, a2, a4, SP[a1, a3], a5, n] - S2[a1, a2, SP[a1, a3], a4, a5, n] - 
    S2[a1, a2, SP[a1, a3], a5, a4, n] + S2[a1, a2, SP[a1, a4], a3, a5, n] + 
    S2[a1, a2, SP[a1, a4], a5, a3, n] + S2[a4, n]*S2[a1, a3, a1, a2, a5, n] + 
    2*S2[a1, a3, a1, a2, SP[a4, a5], n] - S2[a1, a3, a1, a4, SP[a2, a5], n] + 
    S2[a1, a3, a1, a5, SP[a2, a4], n] + 3*S2[a1, a3, a1, SP[a2, a4], a5, n] - 
    S2[a1, a3, a1, SP[a2, a5], a4, n] + S2[a4, n]*S2[a1, a3, a2, a1, a5, n] + 
    S2[a1, a3, a2, a1, SP[a4, a5], n] + S2[a1, a3, a2, SP[a1, a4], a5, n] - 
    S2[a1, a3, a4, a1, SP[a2, a5], n] - S2[a1, a3, a4, SP[a1, a2], a5, n] - 
    S2[a1, a3, SP[a1, a2], a4, a5, n] - S2[a1, a3, SP[a1, a2], a5, a4, n] + 
    2*S2[a1, a3, SP[a1, a4], a2, a5, n] + 
    2*S2[a1, a3, SP[a2, a4], a1, a5, n] - 
    2*S2[a3, n]*S2[a1, a4, a1, a2, a5, n] - 
    2*S2[a1, a4, a1, a2, SP[a3, a5], n] - 
    2*S2[a1, a4, a1, SP[a2, a3], a5, n] - 
    S2[a3, n]*S2[a1, a4, a2, a1, a5, n] - S2[a1, a4, a2, a1, SP[a3, a5], n] - 
    S2[a1, a4, a2, SP[a1, a3], a5, n] - 2*S2[a1, a4, SP[a1, a3], a2, a5, n] - 
    S2[a1, a4, SP[a2, a3], a1, a5, n] + S2[a1, a5, a1, a3, SP[a2, a4], n] + 
    S2[a1, a5, a1, SP[a2, a3], a4, n] + S2[a1, a5, SP[a1, a2], a3, a4, n] - 
    S2[a1, SP[a1, a2], a3, a4, a5, n] - S2[a1, SP[a1, a2], a3, a5, a4, n] - 
    S2[a1, SP[a1, a2], a5, a3, a4, n] - S2[a1, SP[a1, a3], a2, a4, a5, n] - 
    S2[a1, SP[a1, a3], a2, a5, a4, n] - S2[a1, SP[a1, a3], a4, a2, a5, n] + 
    2*S2[a1, SP[a1, a4], a2, a3, a5, n] + 
    2*S2[a1, SP[a1, a4], a2, a5, a3, n] + 
    2*S2[a1, SP[a1, a4], a3, a2, a5, n] + S2[a1, SP[a2, a4], a1, a3, a5, n] + 
    S2[a1, SP[a2, a4], a1, a5, a3, n] + S2[a1, SP[a2, a4], a3, a1, a5, n] - 
    S2[a1, SP[a3, a4], a1, a2, a5, n] + 2*S2[a3, a1, a1, a2, SP[a4, a5], n] + 
    2*S2[a3, a1, a1, SP[a2, a4], a5, n] + S2[a3, a1, a2, a1, SP[a4, a5], n] + 
    S2[a3, a1, a2, SP[a1, a4], a5, n] + 2*S2[a3, a1, SP[a1, a4], a2, a5, n] + 
    S2[a3, a1, SP[a2, a4], a1, a5, n] + 2*S2[a3, SP[a1, a4], a1, a2, a5, n] + 
    S2[a3, SP[a1, a4], a2, a1, a5, n] - 2*S2[a3, n]*
     S2[a4, a1, a1, a2, a5, n] - 2*S2[a4, a1, a1, a2, SP[a3, a5], n] - 
    2*S2[a4, a1, a1, SP[a2, a3], a5, n] - 
    S2[a3, n]*S2[a4, a1, a2, a1, a5, n] - S2[a4, a1, a2, a1, SP[a3, a5], n] - 
    S2[a4, a1, a2, SP[a1, a3], a5, n] - 2*S2[a4, a1, SP[a1, a3], a2, a5, n] - 
    S2[a4, a1, SP[a2, a3], a1, a5, n] + S2[a1, n]*S2[a4, a3, a1, a2, a5, n] + 
    S2[a4, a3, a1, a2, SP[a1, a5], n] + S2[a4, a3, a1, SP[a1, a2], a5, n] + 
    S2[a4, a3, SP[a1, a1], a2, a5, n] - S2[a4, SP[a1, a3], a1, a2, a5, n] - 
    S2[a4, SP[a1, a3], a2, a1, a5, n] - S2[a1, n]*S2[a5, a2, a1, a3, a4, n] - 
    S2[a5, a2, a1, a3, SP[a1, a4], n] - S2[a5, a2, a1, SP[a1, a3], a4, n] - 
    S2[a5, a2, SP[a1, a1], a3, a4, n] - S2[a5, SP[a1, a2], a1, a3, a4, n] - 
    S2[SP[a1, a1], a2, a3, a4, a5, n] - S2[SP[a1, a1], a2, a3, a5, a4, n] - 
    S2[SP[a1, a1], a2, a5, a3, a4, n] - S2[SP[a1, a1], a3, a2, a4, a5, n] - 
    S2[SP[a1, a1], a3, a2, a5, a4, n] - S2[SP[a1, a1], a3, a4, a2, a5, n] + 
    2*S2[SP[a1, a4], a1, a2, a3, a5, n] + 
    2*S2[SP[a1, a4], a1, a2, a5, a3, n] + 
    2*S2[SP[a1, a4], a1, a3, a2, a5, n] + S2[SP[a1, a4], a2, a1, a3, a5, n] + 
    S2[SP[a1, a4], a2, a1, a5, a3, n] + S2[SP[a1, a4], a2, a3, a1, a5, n] + 
    2*S2[SP[a1, a4], a3, a1, a2, a5, n] + S2[SP[a1, a4], a3, a2, a1, a5, n] - 
    S2[SP[a1, a5], a2, a1, a3, a4, n] - 2*S2[SP[a3, a4], a1, a1, a2, a5, n] - 
    S2[SP[a3, a4], a1, a2, a1, a5, n] + S2[a5, a1, a2, a1, a3, a4, n] + 
    2*S2[a5, a2, a1, a1, a3, a4, n] + S2[a5, a2, a1, a3, a1, a4, n] + 
    S2[a5, a2, a1, a3, a4, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a4_, a3_, a1_, a5_, a1_, a2_, n_] :> 
  -(S2[a1, a2, a5, n]*S2[a1, a3, a4, n]) - S2[a1, a3, a4, n]*
     S2[a1, a5, a2, n] - S2[SP[a1, a1], SP[a2, a3], SP[a4, a5], n] - 
    S2[SP[a1, a1], SP[a3, a5], SP[a2, a4], n] + 
    2*S2[a3, a4, n]*S2[a1, a1, a2, a5, n] + 2*S2[a3, a4, n]*
     S2[a1, a1, a5, a2, n] + S2[a3, a4, n]*S2[a1, a2, a1, a5, n] - 
    S2[a1, a2, SP[a1, a3], SP[a4, a5], n] + S2[a1, a2, n]*
     S2[a1, a4, a3, a5, n] + S2[a1, a2, n]*S2[a1, a4, a5, a3, n] - 
    S2[a1, a4, SP[a1, a3], SP[a2, a5], n] - S2[a1, a4, SP[a1, a5], 
     SP[a2, a3], n] + S2[a1, a2, n]*S2[a1, a5, a4, a3, n] - 
    S2[a1, a5, SP[a1, a4], SP[a2, a3], n] + S2[a1, SP[a1, a2], a3, 
     SP[a4, a5], n] + S2[a1, SP[a1, a2], SP[a3, a5], a4, n] - 
    S2[a1, SP[a1, a3], a2, SP[a4, a5], n] - S2[a1, SP[a1, a3], a5, 
     SP[a2, a4], n] - S2[a1, SP[a1, a3], SP[a2, a4], a5, n] - 
    S2[a1, SP[a1, a3], SP[a4, a5], a2, n] - S2[a1, SP[a1, a4], a3, 
     SP[a2, a5], n] - S2[a1, SP[a1, a4], a5, SP[a2, a3], n] - 
    S2[a1, SP[a1, a4], SP[a2, a3], a5, n] - S2[a1, SP[a1, a4], SP[a2, a5], 
     a3, n] + S2[a1, SP[a1, a5], a3, SP[a2, a4], n] - 
    S2[a1, SP[a1, a5], a4, SP[a2, a3], n] + S2[a1, SP[a1, a5], SP[a2, a3], 
     a4, n] - S2[a1, SP[a1, a5], SP[a2, a4], a3, n] - 
    S2[a1, SP[a2, a3], a1, SP[a4, a5], n] - S2[a1, SP[a2, a3], SP[a1, a4], 
     a5, n] - S2[a1, a2, n]*S2[a3, a4, a1, a5, n] + 
    S2[a3, a4, SP[a1, a1], SP[a2, a5], n] + S2[a3, SP[a1, a4], a1, 
     SP[a2, a5], n] + S2[a3, SP[a1, a4], SP[a1, a2], a5, n] + 
    S2[SP[a1, a1], a2, a3, SP[a4, a5], n] + S2[SP[a1, a1], a2, SP[a3, a5], 
     a4, n] + S2[SP[a1, a1], a3, a2, SP[a4, a5], n] + 
    S2[SP[a1, a1], a3, a5, SP[a2, a4], n] + S2[SP[a1, a1], a3, SP[a2, a4], 
     a5, n] + S2[SP[a1, a1], a3, SP[a4, a5], a2, n] - 
    S2[SP[a1, a1], a4, a3, SP[a2, a5], n] - S2[SP[a1, a1], a4, a5, 
     SP[a2, a3], n] - S2[SP[a1, a1], a4, SP[a2, a3], a5, n] - 
    S2[SP[a1, a1], a4, SP[a2, a5], a3, n] + S2[SP[a1, a1], a5, a3, 
     SP[a2, a4], n] - S2[SP[a1, a1], a5, a4, SP[a2, a3], n] + 
    S2[SP[a1, a1], a5, SP[a2, a3], a4, n] - S2[SP[a1, a1], a5, SP[a2, a4], 
     a3, n] + S2[SP[a1, a1], SP[a2, a3], a4, a5, n] + 
    S2[SP[a1, a1], SP[a2, a3], a5, a4, n] - S2[SP[a1, a1], SP[a2, a4], a3, 
     a5, n] - S2[SP[a1, a1], SP[a2, a4], a5, a3, n] - 
    S2[SP[a1, a1], SP[a2, a5], a4, a3, n] + S2[SP[a1, a1], SP[a3, a5], a2, 
     a4, n] + S2[SP[a1, a1], SP[a3, a5], a4, a2, n] - 
    2*S2[SP[a1, a3], a1, a2, SP[a4, a5], n] - 
    2*S2[SP[a1, a3], a1, a5, SP[a2, a4], n] - 
    2*S2[SP[a1, a3], a1, SP[a2, a4], a5, n] - 
    2*S2[SP[a1, a3], a1, SP[a4, a5], a2, n] - S2[SP[a1, a3], a2, a1, 
     SP[a4, a5], n] - S2[SP[a1, a3], a2, SP[a1, a4], a5, n] + 
    S2[SP[a1, a3], a4, a1, SP[a2, a5], n] + S2[SP[a1, a3], a4, SP[a1, a2], 
     a5, n] - 2*S2[SP[a1, a3], SP[a1, a4], a2, a5, n] - 
    2*S2[SP[a1, a3], SP[a1, a4], a5, a2, n] + 
    2*S2[a5, n]*S2[a1, a1, a2, a3, a4, n] + 
    2*S2[a1, a1, a2, a3, SP[a4, a5], n] - 
    2*S2[a3, n]*S2[a1, a1, a2, a4, a5, n] - 
    2*S2[a1, a1, a2, a4, SP[a3, a5], n] - 
    2*S2[a3, n]*S2[a1, a1, a2, a5, a4, n] - 
    2*S2[a1, a1, a2, a5, SP[a3, a4], n] - 
    2*S2[a1, a1, a2, SP[a3, a4], a5, n] + 
    2*S2[a5, n]*S2[a1, a1, a3, a2, a4, n] + 
    2*S2[a1, a1, a3, a2, SP[a4, a5], n] + 
    2*S2[a5, n]*S2[a1, a1, a3, a4, a2, n] + 
    2*S2[a1, a1, a3, a4, SP[a2, a5], n] + 
    2*S2[a1, a1, a3, SP[a2, a5], a4, n] + 
    2*S2[a1, a1, a3, SP[a4, a5], a2, n] - 
    2*S2[a3, n]*S2[a1, a1, a4, a2, a5, n] - 
    2*S2[a1, a1, a4, a2, SP[a3, a5], n] + 
    2*S2[a1, a1, a4, a3, SP[a2, a5], n] - 
    2*S2[a3, n]*S2[a1, a1, a4, a5, a2, n] + 
    2*S2[a1, a1, a4, SP[a2, a5], a3, n] - 
    2*S2[a1, a1, a4, SP[a3, a5], a2, n] - 
    2*S2[a3, n]*S2[a1, a1, a5, a2, a4, n] - 
    2*S2[a1, a1, a5, a2, SP[a3, a4], n] - 
    2*S2[a3, n]*S2[a1, a1, a5, a4, a2, n] - 
    2*S2[a1, a1, a5, SP[a2, a3], a4, n] + 
    2*S2[a1, a1, a5, SP[a2, a4], a3, n] - 
    2*S2[a1, a1, a5, SP[a3, a4], a2, n] - 
    2*S2[a1, a1, SP[a2, a3], a4, a5, n] - 
    2*S2[a1, a1, SP[a2, a3], a5, a4, n] + 
    2*S2[a1, a1, SP[a2, a4], a3, a5, n] + 
    2*S2[a1, a1, SP[a2, a4], a5, a3, n] + 
    2*S2[a1, a1, SP[a2, a5], a3, a4, n] + 
    2*S2[a1, a1, SP[a2, a5], a4, a3, n] - 
    2*S2[a1, a1, SP[a3, a4], a2, a5, n] - 
    2*S2[a1, a1, SP[a3, a4], a5, a2, n] + 
    S2[a5, n]*S2[a1, a2, a1, a3, a4, n] + S2[a1, a2, a1, a3, SP[a4, a5], n] - 
    S2[a3, n]*S2[a1, a2, a1, a4, a5, n] - S2[a1, a2, a1, a4, SP[a3, a5], n] - 
    S2[a3, n]*S2[a1, a2, a1, a5, a4, n] - S2[a1, a2, a1, a5, SP[a3, a4], n] - 
    S2[a1, a2, a1, SP[a3, a4], a5, n] + S2[a1, a2, a3, a1, SP[a4, a5], n] + 
    S2[a1, a2, a3, SP[a1, a4], a5, n] + S2[a5, n]*S2[a1, a3, a1, a2, a4, n] + 
    2*S2[a1, a3, a1, a2, SP[a4, a5], n] + 
    S2[a5, n]*S2[a1, a3, a1, a4, a2, n] + S2[a1, a3, a1, a4, SP[a2, a5], n] + 
    S2[a1, a3, a1, a5, SP[a2, a4], n] + S2[a1, a3, a1, SP[a2, a4], a5, n] + 
    S2[a1, a3, a1, SP[a2, a5], a4, n] + 2*S2[a1, a3, a1, SP[a4, a5], a2, n] + 
    S2[a1, a3, a2, a1, SP[a4, a5], n] + S2[a1, a3, a2, SP[a1, a4], a5, n] + 
    S2[a5, n]*S2[a1, a3, a4, a1, a2, n] - S2[a1, a3, a4, SP[a1, a2], a5, n] + 
    S2[a1, a3, a4, SP[a1, a5], a2, n] - S2[a4, n]*S2[a1, a3, a5, a1, a2, n] - 
    S2[a1, a3, a5, a1, SP[a2, a4], n] - S2[a1, a3, a5, SP[a1, a4], a2, n] + 
    S2[a1, a3, SP[a1, a4], a2, a5, n] + S2[a1, a3, SP[a1, a4], a5, a2, n] + 
    S2[a1, a3, SP[a1, a5], a2, a4, n] + S2[a1, a3, SP[a1, a5], a4, a2, n] - 
    S2[a3, n]*S2[a1, a4, a1, a2, a5, n] - S2[a1, a4, a1, a2, SP[a3, a5], n] + 
    S2[a1, a4, a1, a3, SP[a2, a5], n] - S2[a3, n]*S2[a1, a4, a1, a5, a2, n] + 
    S2[a1, a4, a1, SP[a2, a5], a3, n] - S2[a1, a4, a1, SP[a3, a5], a2, n] + 
    S2[a1, a4, a3, a1, SP[a2, a5], n] + S2[a1, a4, a3, SP[a1, a5], a2, n] + 
    S2[a1, a4, a5, a1, SP[a2, a3], n] + S2[a1, a4, a5, SP[a1, a3], a2, n] + 
    S2[a1, a4, SP[a1, a5], a2, a3, n] + S2[a1, a4, SP[a1, a5], a3, a2, n] - 
    S2[a4, n]*S2[a1, a5, a1, a2, a3, n] - S2[a1, a5, a1, a2, SP[a3, a4], n] - 
    S2[a4, n]*S2[a1, a5, a1, a3, a2, n] - 
    2*S2[a1, a5, a1, a3, SP[a2, a4], n] + S2[a1, a5, a1, a4, SP[a2, a3], n] - 
    S2[a1, a5, a1, SP[a2, a3], a4, n] - S2[a1, a5, a1, SP[a3, a4], a2, n] - 
    S2[a4, n]*S2[a1, a5, a3, a1, a2, n] - S2[a1, a5, a3, a1, SP[a2, a4], n] - 
    S2[a1, a5, a3, SP[a1, a4], a2, n] + S2[a1, a5, a4, a1, SP[a2, a3], n] + 
    S2[a1, a5, a4, SP[a1, a3], a2, n] - S2[a1, a5, SP[a1, a2], a3, a4, n] - 
    S2[a1, a5, SP[a3, a4], a1, a2, n] - S2[a1, SP[a1, a2], a3, a4, a5, n] - 
    S2[a1, SP[a1, a2], a3, a5, a4, n] + S2[a1, SP[a1, a2], a4, a3, a5, n] + 
    S2[a1, SP[a1, a2], a4, a5, a3, n] - S2[a1, SP[a1, a2], a5, a3, a4, n] + 
    S2[a1, SP[a1, a2], a5, a4, a3, n] - S2[a1, SP[a1, a3], a2, a4, a5, n] - 
    S2[a1, SP[a1, a3], a2, a5, a4, n] - S2[a1, SP[a1, a3], a4, a2, a5, n] - 
    S2[a1, SP[a1, a3], a4, a5, a2, n] - S2[a1, SP[a1, a3], a5, a2, a4, n] - 
    S2[a1, SP[a1, a3], a5, a4, a2, n] + S2[a1, SP[a1, a4], a2, a3, a5, n] + 
    S2[a1, SP[a1, a4], a2, a5, a3, n] + S2[a1, SP[a1, a4], a3, a2, a5, n] + 
    S2[a1, SP[a1, a4], a3, a5, a2, n] + S2[a1, SP[a1, a4], a5, a2, a3, n] + 
    S2[a1, SP[a1, a4], a5, a3, a2, n] + S2[a1, SP[a1, a5], a2, a3, a4, n] + 
    S2[a1, SP[a1, a5], a2, a4, a3, n] + S2[a1, SP[a1, a5], a3, a2, a4, n] + 
    S2[a1, SP[a1, a5], a3, a4, a2, n] + S2[a1, SP[a1, a5], a4, a2, a3, n] + 
    S2[a1, SP[a1, a5], a4, a3, a2, n] + S2[a1, SP[a2, a5], a1, a3, a4, n] - 
    S2[a1, SP[a3, a4], a1, a2, a5, n] - S2[a1, SP[a3, a4], a1, a5, a2, n] - 
    S2[a1, SP[a3, a4], a5, a1, a2, n] + S2[a1, SP[a3, a5], a1, a2, a4, n] + 
    S2[a1, SP[a3, a5], a1, a4, a2, n] + S2[a1, SP[a3, a5], a4, a1, a2, n] - 
    S2[a1, SP[a4, a5], a1, a2, a3, n] - S2[a1, SP[a4, a5], a1, a3, a2, n] - 
    S2[a1, SP[a4, a5], a3, a1, a2, n] + 2*S2[a3, a1, a1, a2, SP[a4, a5], n] + 
    2*S2[a3, a1, a1, a5, SP[a2, a4], n] + 
    2*S2[a3, a1, a1, SP[a2, a4], a5, n] + 
    2*S2[a3, a1, a1, SP[a4, a5], a2, n] + S2[a3, a1, a2, a1, SP[a4, a5], n] + 
    S2[a3, a1, a2, SP[a1, a4], a5, n] - S2[a3, a1, a4, a1, SP[a2, a5], n] - 
    S2[a3, a1, a4, SP[a1, a2], a5, n] + 2*S2[a3, a1, SP[a1, a4], a2, a5, n] + 
    2*S2[a3, a1, SP[a1, a4], a5, a2, n] - 
    2*S2[a3, a4, a1, a1, SP[a2, a5], n] - S2[a3, a4, a1, SP[a1, a2], a5, n] - 
    S2[a3, a4, a1, SP[a1, a5], a2, n] - S2[a3, a4, SP[a1, a1], a2, a5, n] - 
    S2[a3, a4, SP[a1, a1], a5, a2, n] + S2[a3, SP[a1, a4], a1, a2, a5, n] + 
    S2[a3, SP[a1, a4], a1, a5, a2, n] + S2[a3, n]*S2[a4, a1, a5, a1, a2, n] + 
    S2[a4, a1, a5, a1, SP[a2, a3], n] + S2[a4, a1, a5, SP[a1, a3], a2, n] + 
    S2[a4, a1, SP[a3, a5], a1, a2, n] + S2[a4, SP[a1, a3], a5, a1, a2, n] - 
    S2[SP[a1, a1], a2, a3, a4, a5, n] - S2[SP[a1, a1], a2, a3, a5, a4, n] + 
    S2[SP[a1, a1], a2, a4, a3, a5, n] + S2[SP[a1, a1], a2, a4, a5, a3, n] - 
    S2[SP[a1, a1], a2, a5, a3, a4, n] + S2[SP[a1, a1], a2, a5, a4, a3, n] - 
    S2[SP[a1, a1], a3, a2, a4, a5, n] - S2[SP[a1, a1], a3, a2, a5, a4, n] - 
    S2[SP[a1, a1], a3, a4, a2, a5, n] - S2[SP[a1, a1], a3, a4, a5, a2, n] - 
    S2[SP[a1, a1], a3, a5, a2, a4, n] - S2[SP[a1, a1], a3, a5, a4, a2, n] + 
    S2[SP[a1, a1], a4, a2, a3, a5, n] + S2[SP[a1, a1], a4, a2, a5, a3, n] + 
    S2[SP[a1, a1], a4, a3, a2, a5, n] + S2[SP[a1, a1], a4, a3, a5, a2, n] + 
    S2[SP[a1, a1], a4, a5, a2, a3, n] + S2[SP[a1, a1], a4, a5, a3, a2, n] - 
    S2[SP[a1, a1], a5, a2, a3, a4, n] + S2[SP[a1, a1], a5, a2, a4, a3, n] - 
    S2[SP[a1, a1], a5, a3, a2, a4, n] - S2[SP[a1, a1], a5, a3, a4, a2, n] + 
    S2[SP[a1, a1], a5, a4, a2, a3, n] + S2[SP[a1, a1], a5, a4, a3, a2, n] - 
    S2[SP[a1, a4], a3, a5, a1, a2, n] - S2[SP[a1, a4], a5, a1, a2, a3, n] - 
    S2[SP[a1, a4], a5, a1, a3, a2, n] - S2[SP[a1, a4], a5, a3, a1, a2, n] + 
    2*S2[SP[a1, a5], a1, a2, a3, a4, n] + 
    2*S2[SP[a1, a5], a1, a3, a2, a4, n] + 
    2*S2[SP[a1, a5], a1, a3, a4, a2, n] + S2[SP[a1, a5], a2, a1, a3, a4, n] + 
    S2[SP[a1, a5], a3, a1, a2, a4, n] + S2[SP[a1, a5], a3, a1, a4, a2, n] + 
    S2[SP[a1, a5], a3, a4, a1, a2, n] + S2[SP[a3, a4], a1, a5, a1, a2, n] - 
    2*S2[a5, a1, a1, a2, a3, a4, n] - 2*S2[a5, a1, a1, a3, a2, a4, n] - 
    2*S2[a5, a1, a1, a3, a4, a2, n] - S2[a5, a1, a2, a1, a3, a4, n] - 
    S2[a5, a1, a3, a1, a2, a4, n] - S2[a5, a1, a3, a1, a4, a2, n] - 
    S2[a5, a1, a3, a4, a1, a2, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a4_, a3_, a1_, a5_, a2_, a1_, n_] :> 
  S2[a1, a2, a5, n]*S2[a1, a3, a4, n] + S2[SP[a1, a1], SP[a2, a3], 
     SP[a4, a5], n] - 2*S2[a3, a4, n]*S2[a1, a1, a2, a5, n] - 
    S2[a3, a4, n]*S2[a1, a2, a1, a5, n] + S2[a1, a2, SP[a1, a3], SP[a4, a5], 
     n] - S2[a1, a2, n]*S2[a1, a4, a3, a5, n] - 
    S2[a1, a2, n]*S2[a1, a4, a5, a3, n] + S2[a1, a4, SP[a1, a3], SP[a2, a5], 
     n] + S2[a1, a4, SP[a1, a5], SP[a2, a3], n] - 
    S2[a1, a2, n]*S2[a1, a5, a4, a3, n] + S2[a1, a5, SP[a1, a4], SP[a2, a3], 
     n] - S2[a1, SP[a1, a2], a3, SP[a4, a5], n] - 
    S2[a1, SP[a1, a2], SP[a3, a5], a4, n] + S2[a1, SP[a1, a3], a2, 
     SP[a4, a5], n] + S2[a1, SP[a1, a3], SP[a2, a4], a5, n] + 
    S2[a1, SP[a1, a4], a3, SP[a2, a5], n] + S2[a1, SP[a1, a4], a5, 
     SP[a2, a3], n] + S2[a1, SP[a1, a4], SP[a2, a3], a5, n] + 
    S2[a1, SP[a1, a4], SP[a2, a5], a3, n] + S2[a1, SP[a1, a5], a4, 
     SP[a2, a3], n] + S2[a1, SP[a1, a5], SP[a2, a4], a3, n] + 
    S2[a1, SP[a2, a3], a1, SP[a4, a5], n] + S2[a1, SP[a2, a3], SP[a1, a4], 
     a5, n] + S2[a1, a2, n]*S2[a3, a4, a1, a5, n] - 
    S2[a3, a4, SP[a1, a1], SP[a2, a5], n] - S2[a3, SP[a1, a4], a1, 
     SP[a2, a5], n] - S2[a3, SP[a1, a4], SP[a1, a2], a5, n] - 
    S2[SP[a1, a1], a2, a3, SP[a4, a5], n] - S2[SP[a1, a1], a2, SP[a3, a5], 
     a4, n] - S2[SP[a1, a1], a3, a2, SP[a4, a5], n] - 
    S2[SP[a1, a1], a3, SP[a2, a4], a5, n] + S2[SP[a1, a1], a4, a3, 
     SP[a2, a5], n] + S2[SP[a1, a1], a4, a5, SP[a2, a3], n] + 
    S2[SP[a1, a1], a4, SP[a2, a3], a5, n] + S2[SP[a1, a1], a4, SP[a2, a5], 
     a3, n] + S2[SP[a1, a1], a5, a4, SP[a2, a3], n] + 
    S2[SP[a1, a1], a5, SP[a2, a4], a3, n] - S2[SP[a1, a1], SP[a2, a3], a4, 
     a5, n] - S2[SP[a1, a1], SP[a2, a3], a5, a4, n] + 
    S2[SP[a1, a1], SP[a2, a4], a3, a5, n] + S2[SP[a1, a1], SP[a2, a4], a5, 
     a3, n] + S2[SP[a1, a1], SP[a2, a5], a4, a3, n] + 
    2*S2[SP[a1, a3], a1, a2, SP[a4, a5], n] + 
    2*S2[SP[a1, a3], a1, SP[a2, a4], a5, n] + S2[SP[a1, a3], a2, a1, 
     SP[a4, a5], n] + S2[SP[a1, a3], a2, SP[a1, a4], a5, n] - 
    S2[SP[a1, a3], a4, a1, SP[a2, a5], n] - S2[SP[a1, a3], a4, SP[a1, a2], 
     a5, n] + 2*S2[SP[a1, a3], SP[a1, a4], a2, a5, n] - 
    2*S2[a5, n]*S2[a1, a1, a2, a3, a4, n] - 
    2*S2[a1, a1, a2, a3, SP[a4, a5], n] + 
    2*S2[a3, n]*S2[a1, a1, a2, a4, a5, n] + 
    2*S2[a1, a1, a2, a4, SP[a3, a5], n] + 
    2*S2[a3, n]*S2[a1, a1, a2, a5, a4, n] + 
    2*S2[a1, a1, a2, a5, SP[a3, a4], n] + 
    2*S2[a1, a1, a2, SP[a3, a4], a5, n] - 
    2*S2[a5, n]*S2[a1, a1, a3, a2, a4, n] - 
    2*S2[a1, a1, a3, a2, SP[a4, a5], n] - 
    2*S2[a5, n]*S2[a1, a1, a3, a4, a2, n] - 
    2*S2[a1, a1, a3, a4, SP[a2, a5], n] + 
    2*S2[a4, n]*S2[a1, a1, a3, a5, a2, n] + 
    2*S2[a1, a1, a3, a5, SP[a2, a4], n] - 
    2*S2[a1, a1, a3, SP[a2, a5], a4, n] + 
    2*S2[a3, n]*S2[a1, a1, a4, a2, a5, n] + 
    2*S2[a1, a1, a4, a2, SP[a3, a5], n] - 
    2*S2[a1, a1, a4, a3, SP[a2, a5], n] - 
    2*S2[a1, a1, a4, a5, SP[a2, a3], n] - 
    2*S2[a1, a1, a4, SP[a2, a5], a3, n] + 
    2*S2[a4, n]*S2[a1, a1, a5, a2, a3, n] + 
    2*S2[a1, a1, a5, a2, SP[a3, a4], n] + 
    2*S2[a4, n]*S2[a1, a1, a5, a3, a2, n] + 
    2*S2[a1, a1, a5, a3, SP[a2, a4], n] - 
    2*S2[a1, a1, a5, a4, SP[a2, a3], n] + 
    2*S2[a1, a1, a5, SP[a3, a4], a2, n] + 
    2*S2[a1, a1, SP[a2, a3], a4, a5, n] + 
    2*S2[a1, a1, SP[a2, a3], a5, a4, n] - 
    2*S2[a1, a1, SP[a2, a4], a3, a5, n] - 
    2*S2[a1, a1, SP[a2, a4], a5, a3, n] - 
    2*S2[a1, a1, SP[a2, a5], a3, a4, n] - 
    2*S2[a1, a1, SP[a2, a5], a4, a3, n] + 
    2*S2[a1, a1, SP[a3, a4], a2, a5, n] + 
    2*S2[a1, a1, SP[a3, a4], a5, a2, n] - 
    2*S2[a1, a1, SP[a3, a5], a2, a4, n] - 
    2*S2[a1, a1, SP[a3, a5], a4, a2, n] + 
    2*S2[a1, a1, SP[a4, a5], a2, a3, n] + 
    2*S2[a1, a1, SP[a4, a5], a3, a2, n] - 
    S2[a5, n]*S2[a1, a2, a1, a3, a4, n] - S2[a1, a2, a1, a3, SP[a4, a5], n] + 
    S2[a3, n]*S2[a1, a2, a1, a4, a5, n] + S2[a1, a2, a1, a4, SP[a3, a5], n] + 
    S2[a3, n]*S2[a1, a2, a1, a5, a4, n] + S2[a1, a2, a1, a5, SP[a3, a4], n] + 
    S2[a1, a2, a1, SP[a3, a4], a5, n] - S2[a1, a2, a3, a1, SP[a4, a5], n] - 
    S2[a1, a2, a3, SP[a1, a4], a5, n] - S2[a5, n]*S2[a1, a3, a1, a2, a4, n] - 
    2*S2[a1, a3, a1, a2, SP[a4, a5], n] - 
    S2[a5, n]*S2[a1, a3, a1, a4, a2, n] - S2[a1, a3, a1, a4, SP[a2, a5], n] + 
    S2[a4, n]*S2[a1, a3, a1, a5, a2, n] + S2[a1, a3, a1, a5, SP[a2, a4], n] - 
    S2[a1, a3, a1, SP[a2, a4], a5, n] - S2[a1, a3, a1, SP[a2, a5], a4, n] - 
    S2[a1, a3, a2, a1, SP[a4, a5], n] - S2[a1, a3, a2, SP[a1, a4], a5, n] - 
    S2[a5, n]*S2[a1, a3, a4, a1, a2, n] + S2[a1, a3, a4, SP[a1, a2], a5, n] - 
    S2[a1, a3, a4, SP[a1, a5], a2, n] + S2[a4, n]*S2[a1, a3, a5, a1, a2, n] + 
    S2[a1, a3, a5, a1, SP[a2, a4], n] + S2[a1, a3, a5, SP[a1, a4], a2, n] - 
    S2[a1, a3, SP[a1, a4], a2, a5, n] + S2[a1, a3, SP[a1, a4], a5, a2, n] - 
    S2[a1, a3, SP[a1, a5], a2, a4, n] - S2[a1, a3, SP[a1, a5], a4, a2, n] + 
    S2[a3, n]*S2[a1, a4, a1, a2, a5, n] + S2[a1, a4, a1, a2, SP[a3, a5], n] - 
    S2[a1, a4, a1, a3, SP[a2, a5], n] - S2[a3, n]*S2[a1, a4, a1, a5, a2, n] - 
    2*S2[a1, a4, a1, a5, SP[a2, a3], n] - S2[a1, a4, a1, SP[a2, a5], a3, n] - 
    S2[a1, a4, a1, SP[a3, a5], a2, n] - S2[a1, a4, a3, a1, SP[a2, a5], n] - 
    S2[a1, a4, a3, SP[a1, a5], a2, n] - S2[a1, a4, a5, a1, SP[a2, a3], n] - 
    S2[a1, a4, a5, SP[a1, a3], a2, n] - 2*S2[a1, a4, SP[a1, a3], a5, a2, n] - 
    S2[a1, a4, SP[a1, a5], a2, a3, n] - S2[a1, a4, SP[a1, a5], a3, a2, n] + 
    S2[a4, n]*S2[a1, a5, a1, a2, a3, n] + S2[a1, a5, a1, a2, SP[a3, a4], n] + 
    S2[a4, n]*S2[a1, a5, a1, a3, a2, n] + S2[a1, a5, a1, a3, SP[a2, a4], n] - 
    S2[a1, a5, a1, a4, SP[a2, a3], n] + S2[a1, a5, a1, SP[a3, a4], a2, n] + 
    S2[a4, n]*S2[a1, a5, a3, a1, a2, n] + S2[a1, a5, a3, a1, SP[a2, a4], n] + 
    S2[a1, a5, a3, SP[a1, a4], a2, n] - S2[a1, a5, a4, a1, SP[a2, a3], n] - 
    S2[a1, a5, a4, SP[a1, a3], a2, n] + S2[a1, a5, SP[a3, a4], a1, a2, n] + 
    S2[a1, SP[a1, a2], a3, a4, a5, n] + S2[a1, SP[a1, a2], a3, a5, a4, n] - 
    S2[a1, SP[a1, a2], a4, a3, a5, n] - S2[a1, SP[a1, a2], a4, a5, a3, n] + 
    S2[a1, SP[a1, a2], a5, a3, a4, n] - S2[a1, SP[a1, a2], a5, a4, a3, n] + 
    S2[a1, SP[a1, a3], a2, a4, a5, n] + S2[a1, SP[a1, a3], a2, a5, a4, n] + 
    S2[a1, SP[a1, a3], a4, a2, a5, n] - S2[a1, SP[a1, a4], a2, a3, a5, n] - 
    S2[a1, SP[a1, a4], a2, a5, a3, n] - S2[a1, SP[a1, a4], a3, a2, a5, n] + 
    S2[a1, SP[a1, a4], a3, a5, a2, n] + S2[a1, SP[a1, a4], a5, a2, a3, n] + 
    S2[a1, SP[a1, a4], a5, a3, a2, n] - 2*S2[a1, SP[a1, a5], a2, a3, a4, n] - 
    S2[a1, SP[a1, a5], a2, a4, a3, n] - 2*S2[a1, SP[a1, a5], a3, a2, a4, n] - 
    2*S2[a1, SP[a1, a5], a3, a4, a2, n] - S2[a1, SP[a1, a5], a4, a2, a3, n] - 
    S2[a1, SP[a1, a5], a4, a3, a2, n] - S2[a1, SP[a2, a5], a1, a3, a4, n] + 
    S2[a1, SP[a3, a4], a1, a2, a5, n] + S2[a1, SP[a3, a4], a5, a1, a2, n] - 
    S2[a1, SP[a3, a5], a1, a2, a4, n] - S2[a1, SP[a3, a5], a1, a4, a2, n] - 
    S2[a1, SP[a3, a5], a4, a1, a2, n] + S2[a1, SP[a4, a5], a1, a2, a3, n] + 
    S2[a1, SP[a4, a5], a1, a3, a2, n] + S2[a1, SP[a4, a5], a3, a1, a2, n] - 
    2*S2[a3, a1, a1, a2, SP[a4, a5], n] - 
    2*S2[a3, a1, a1, SP[a2, a4], a5, n] - S2[a3, a1, a2, a1, SP[a4, a5], n] - 
    S2[a3, a1, a2, SP[a1, a4], a5, n] + S2[a3, a1, a4, a1, SP[a2, a5], n] + 
    S2[a3, a1, a4, SP[a1, a2], a5, n] - 2*S2[a3, a1, SP[a1, a4], a2, a5, n] + 
    2*S2[a3, a4, a1, a1, SP[a2, a5], n] + S2[a3, a4, a1, SP[a1, a2], a5, n] + 
    S2[a3, a4, a1, SP[a1, a5], a2, n] + S2[a3, a4, SP[a1, a1], a2, a5, n] + 
    S2[a3, a4, SP[a1, a1], a5, a2, n] - S2[a3, SP[a1, a4], a1, a2, a5, n] + 
    S2[a3, SP[a1, a4], a1, a5, a2, n] - 2*S2[a3, n]*
     S2[a4, a1, a1, a5, a2, n] - 2*S2[a4, a1, a1, a5, SP[a2, a3], n] - 
    2*S2[a4, a1, a1, SP[a3, a5], a2, n] - 
    S2[a3, n]*S2[a4, a1, a5, a1, a2, n] - S2[a4, a1, a5, a1, SP[a2, a3], n] - 
    S2[a4, a1, a5, SP[a1, a3], a2, n] - 2*S2[a4, a1, SP[a1, a3], a5, a2, n] - 
    S2[a4, a1, SP[a3, a5], a1, a2, n] + S2[a1, n]*S2[a4, a3, a1, a5, a2, n] + 
    S2[a4, a3, a1, a5, SP[a1, a2], n] + S2[a4, a3, a1, SP[a1, a5], a2, n] + 
    S2[a4, a3, SP[a1, a1], a5, a2, n] - S2[a4, SP[a1, a3], a1, a5, a2, n] - 
    S2[a4, SP[a1, a3], a5, a1, a2, n] + S2[a1, n]*S2[a5, a1, a2, a3, a4, n] + 
    S2[a5, a1, a2, a3, SP[a1, a4], n] + S2[a5, a1, a2, SP[a1, a3], a4, n] + 
    S2[a1, n]*S2[a5, a1, a3, a2, a4, n] + S2[a5, a1, a3, a2, SP[a1, a4], n] + 
    S2[a1, n]*S2[a5, a1, a3, a4, a2, n] + S2[a5, a1, a3, a4, SP[a1, a2], n] + 
    S2[a5, a1, a3, SP[a1, a2], a4, n] + S2[a5, a1, a3, SP[a1, a4], a2, n] + 
    S2[a5, a1, SP[a1, a2], a3, a4, n] + S2[a5, a1, SP[a1, a3], a2, a4, n] + 
    S2[a5, a1, SP[a1, a3], a4, a2, n] + S2[a1, n]*S2[a5, a2, a1, a3, a4, n] + 
    S2[a5, a2, a1, a3, SP[a1, a4], n] + S2[a5, a2, a1, SP[a1, a3], a4, n] + 
    S2[a5, a2, SP[a1, a1], a3, a4, n] + S2[a5, SP[a1, a1], a2, a3, a4, n] + 
    S2[a5, SP[a1, a1], a3, a2, a4, n] + S2[a5, SP[a1, a1], a3, a4, a2, n] + 
    S2[a5, SP[a1, a2], a1, a3, a4, n] + S2[SP[a1, a1], a2, a3, a4, a5, n] + 
    S2[SP[a1, a1], a2, a3, a5, a4, n] - S2[SP[a1, a1], a2, a4, a3, a5, n] - 
    S2[SP[a1, a1], a2, a4, a5, a3, n] + S2[SP[a1, a1], a2, a5, a3, a4, n] - 
    S2[SP[a1, a1], a2, a5, a4, a3, n] + S2[SP[a1, a1], a3, a2, a4, a5, n] + 
    S2[SP[a1, a1], a3, a2, a5, a4, n] + S2[SP[a1, a1], a3, a4, a2, a5, n] - 
    S2[SP[a1, a1], a4, a2, a3, a5, n] - S2[SP[a1, a1], a4, a2, a5, a3, n] - 
    S2[SP[a1, a1], a4, a3, a2, a5, n] - S2[SP[a1, a1], a4, a3, a5, a2, n] - 
    S2[SP[a1, a1], a4, a5, a2, a3, n] - S2[SP[a1, a1], a4, a5, a3, a2, n] - 
    S2[SP[a1, a1], a5, a2, a4, a3, n] - S2[SP[a1, a1], a5, a4, a2, a3, n] - 
    S2[SP[a1, a1], a5, a4, a3, a2, n] + 2*S2[SP[a1, a4], a1, a3, a5, a2, n] + 
    2*S2[SP[a1, a4], a1, a5, a2, a3, n] + 
    2*S2[SP[a1, a4], a1, a5, a3, a2, n] + 
    2*S2[SP[a1, a4], a3, a1, a5, a2, n] + S2[SP[a1, a4], a3, a5, a1, a2, n] + 
    S2[SP[a1, a4], a5, a1, a2, a3, n] + S2[SP[a1, a4], a5, a1, a3, a2, n] + 
    S2[SP[a1, a4], a5, a3, a1, a2, n] - S2[SP[a1, a5], a1, a2, a3, a4, n] - 
    S2[SP[a1, a5], a1, a3, a2, a4, n] - S2[SP[a1, a5], a1, a3, a4, a2, n] - 
    S2[SP[a1, a5], a3, a1, a2, a4, n] - S2[SP[a1, a5], a3, a1, a4, a2, n] - 
    S2[SP[a1, a5], a3, a4, a1, a2, n] - 2*S2[SP[a3, a4], a1, a1, a5, a2, n] - 
    S2[SP[a3, a4], a1, a5, a1, a2, n] - S2[a5, a1, a2, a1, a3, a4, n] - 
    S2[a5, a1, a2, a3, a1, a4, n] - S2[a5, a1, a2, a3, a4, a1, n] - 
    S2[a5, a1, a3, a2, a1, a4, n] - S2[a5, a1, a3, a2, a4, a1, n] - 
    S2[a5, a1, a3, a4, a2, a1, n] - 2*S2[a5, a2, a1, a1, a3, a4, n] - 
    S2[a5, a2, a1, a3, a1, a4, n] - S2[a5, a2, a1, a3, a4, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a4_, a3_, a2_, a1_, a1_, a5_, n_] :> 
  S2[a1, a1, a5, n]*S2[a2, a3, a4, n] + S2[SP[a1, a2], SP[a1, a3], 
     SP[a4, a5], n] + S2[a3, a4, n]*S2[a1, a1, a2, a5, n] + 
    S2[a3, a4, n]*S2[a1, a1, a5, a2, n] - S2[a1, a1, SP[a2, a3], SP[a4, a5], 
     n] - S2[a1, a1, SP[a3, a5], SP[a2, a4], n] + 
    S2[a3, a4, n]*S2[a1, a2, a1, a5, n] - S2[a1, a5, n]*
     S2[a1, a2, a3, a4, n] - S2[a1, a2, SP[a1, a3], SP[a4, a5], n] - 
    S2[a1, SP[a1, a3], a2, SP[a4, a5], n] - S2[a1, SP[a1, a3], a5, 
     SP[a2, a4], n] - S2[a1, SP[a1, a3], SP[a2, a4], a5, n] - 
    S2[a1, SP[a1, a3], SP[a4, a5], a2, n] - S2[a1, SP[a2, a3], a1, 
     SP[a4, a5], n] - S2[a1, SP[a2, a3], SP[a1, a4], a5, n] - 
    S2[a2, a1, SP[a1, a3], SP[a4, a5], n] - S2[a2, SP[a1, a3], a1, 
     SP[a4, a5], n] - S2[a2, SP[a1, a3], SP[a1, a4], a5, n] + 
    S2[SP[a1, a1], a2, a3, SP[a4, a5], n] + S2[SP[a1, a1], a2, SP[a3, a5], 
     a4, n] + S2[SP[a1, a1], SP[a2, a5], a3, a4, n] - 
    S2[SP[a1, a2], a1, a3, SP[a4, a5], n] - S2[SP[a1, a2], a1, SP[a3, a5], 
     a4, n] - S2[SP[a1, a2], a3, a1, SP[a4, a5], n] - 
    S2[SP[a1, a2], a3, SP[a1, a4], a5, n] - S2[SP[a1, a2], SP[a1, a3], a4, 
     a5, n] - S2[SP[a1, a2], SP[a1, a3], a5, a4, n] - 
    S2[SP[a1, a3], a1, a2, SP[a4, a5], n] - S2[SP[a1, a3], a1, a5, 
     SP[a2, a4], n] - S2[SP[a1, a3], a1, SP[a2, a4], a5, n] - 
    S2[SP[a1, a3], a1, SP[a4, a5], a2, n] - S2[SP[a1, a3], a2, a1, 
     SP[a4, a5], n] - S2[SP[a1, a3], a2, SP[a1, a4], a5, n] - 
    S2[SP[a1, a3], SP[a1, a4], a2, a5, n] - S2[SP[a1, a3], SP[a1, a4], a5, 
     a2, n] - S2[SP[a1, a3], SP[a2, a4], a1, a5, n] + 
    S2[a5, n]*S2[a1, a1, a2, a3, a4, n] + 
    S2[a4, n]*S2[a1, a1, a2, a3, a5, n] + 
    2*S2[a1, a1, a2, a3, SP[a4, a5], n] - 
    S2[a3, n]*S2[a1, a1, a2, a4, a5, n] - S2[a1, a1, a2, a4, SP[a3, a5], n] + 
    S2[a4, n]*S2[a1, a1, a2, a5, a3, n] - 
    S2[a3, n]*S2[a1, a1, a2, a5, a4, n] + S2[a1, a1, a2, SP[a4, a5], a3, n] + 
    S2[a4, n]*S2[a1, a1, a3, a2, a5, n] + 
    2*S2[a1, a1, a3, a2, SP[a4, a5], n] - 
    S2[a2, n]*S2[a1, a1, a3, a4, a5, n] - S2[a1, a1, a3, a4, SP[a2, a5], n] + 
    S2[a4, n]*S2[a1, a1, a3, a5, a2, n] - 
    S2[a2, n]*S2[a1, a1, a3, a5, a4, n] + S2[a1, a1, a3, a5, SP[a2, a4], n] + 
    S2[a1, a1, a3, SP[a2, a4], a5, n] - S2[a1, a1, a3, SP[a2, a5], a4, n] + 
    2*S2[a1, a1, a3, SP[a4, a5], a2, n] - 
    S2[a3, n]*S2[a1, a1, a4, a2, a5, n] - S2[a1, a1, a4, a2, SP[a3, a5], n] - 
    S2[a3, n]*S2[a1, a1, a4, a5, a2, n] - S2[a1, a1, a4, a5, SP[a2, a3], n] - 
    S2[a1, a1, a4, SP[a2, a3], a5, n] - S2[a1, a1, a4, SP[a3, a5], a2, n] + 
    S2[a4, n]*S2[a1, a1, a5, a2, a3, n] - 
    S2[a3, n]*S2[a1, a1, a5, a2, a4, n] + 
    S2[a4, n]*S2[a1, a1, a5, a3, a2, n] - 
    S2[a2, n]*S2[a1, a1, a5, a3, a4, n] + S2[a1, a1, a5, a3, SP[a2, a4], n] - 
    S2[a3, n]*S2[a1, a1, a5, a4, a2, n] - S2[a1, a1, a5, a4, SP[a2, a3], n] - 
    S2[a1, a1, a5, SP[a2, a3], a4, n] + S2[a1, a1, a5, SP[a2, a4], a3, n] - 
    S2[a1, a1, SP[a2, a3], a4, a5, n] - S2[a1, a1, SP[a2, a3], a5, a4, n] + 
    S2[a1, a1, SP[a2, a4], a3, a5, n] + S2[a1, a1, SP[a2, a4], a5, a3, n] - 
    S2[a1, a1, SP[a2, a5], a3, a4, n] + S2[a1, a1, SP[a4, a5], a2, a3, n] + 
    S2[a1, a1, SP[a4, a5], a3, a2, n] + S2[a4, n]*S2[a1, a2, a1, a3, a5, n] + 
    2*S2[a1, a2, a1, a3, SP[a4, a5], n] - 
    S2[a3, n]*S2[a1, a2, a1, a4, a5, n] - S2[a1, a2, a1, a4, SP[a3, a5], n] + 
    S2[a4, n]*S2[a1, a2, a1, a5, a3, n] - 
    S2[a3, n]*S2[a1, a2, a1, a5, a4, n] + S2[a1, a2, a1, SP[a4, a5], a3, n] + 
    S2[a4, n]*S2[a1, a2, a3, a1, a5, n] + 
    2*S2[a1, a2, a3, a1, SP[a4, a5], n] + 
    2*S2[a1, a2, a3, SP[a1, a4], a5, n] - 
    S2[a3, n]*S2[a1, a2, a4, a1, a5, n] - S2[a1, a2, a4, a1, SP[a3, a5], n] - 
    S2[a1, a2, a4, SP[a1, a3], a5, n] + S2[a1, a2, SP[a1, a4], a3, a5, n] + 
    S2[a1, a2, SP[a1, a4], a5, a3, n] + S2[a4, n]*S2[a1, a3, a1, a2, a5, n] + 
    2*S2[a1, a3, a1, a2, SP[a4, a5], n] - 
    S2[a2, n]*S2[a1, a3, a1, a4, a5, n] - S2[a1, a3, a1, a4, SP[a2, a5], n] + 
    S2[a4, n]*S2[a1, a3, a1, a5, a2, n] - 
    S2[a2, n]*S2[a1, a3, a1, a5, a4, n] + S2[a1, a3, a1, a5, SP[a2, a4], n] + 
    S2[a1, a3, a1, SP[a2, a4], a5, n] - S2[a1, a3, a1, SP[a2, a5], a4, n] + 
    2*S2[a1, a3, a1, SP[a4, a5], a2, n] + 
    S2[a4, n]*S2[a1, a3, a2, a1, a5, n] + 
    2*S2[a1, a3, a2, a1, SP[a4, a5], n] + 
    2*S2[a1, a3, a2, SP[a1, a4], a5, n] - 
    S2[a2, n]*S2[a1, a3, a4, a1, a5, n] - S2[a1, a3, a4, a1, SP[a2, a5], n] - 
    S2[a1, a3, a4, SP[a1, a2], a5, n] - S2[a1, a3, SP[a1, a2], a4, a5, n] - 
    S2[a1, a3, SP[a1, a2], a5, a4, n] + 2*S2[a1, a3, SP[a1, a4], a2, a5, n] + 
    2*S2[a1, a3, SP[a1, a4], a5, a2, n] + S2[a1, a3, SP[a2, a4], a1, a5, n] - 
    S2[a3, n]*S2[a1, a4, a1, a2, a5, n] - S2[a1, a4, a1, a2, SP[a3, a5], n] - 
    S2[a3, n]*S2[a1, a4, a1, a5, a2, n] - S2[a1, a4, a1, a5, SP[a2, a3], n] - 
    S2[a1, a4, a1, SP[a2, a3], a5, n] - S2[a1, a4, a1, SP[a3, a5], a2, n] - 
    S2[a3, n]*S2[a1, a4, a2, a1, a5, n] - S2[a1, a4, a2, a1, SP[a3, a5], n] - 
    S2[a1, a4, a2, SP[a1, a3], a5, n] - S2[a1, a4, SP[a1, a3], a2, a5, n] - 
    S2[a1, a4, SP[a1, a3], a5, a2, n] - S2[a1, a4, SP[a2, a3], a1, a5, n] - 
    S2[a1, SP[a1, a2], a3, a4, a5, n] - S2[a1, SP[a1, a2], a3, a5, a4, n] - 
    S2[a1, SP[a1, a2], a5, a3, a4, n] + S2[a1, SP[a1, a4], a2, a3, a5, n] + 
    S2[a1, SP[a1, a4], a2, a5, a3, n] + S2[a1, SP[a1, a4], a3, a2, a5, n] + 
    S2[a1, SP[a1, a4], a3, a5, a2, n] + S2[a1, SP[a1, a4], a5, a2, a3, n] + 
    S2[a1, SP[a1, a4], a5, a3, a2, n] - S2[a1, SP[a2, a3], a1, a4, a5, n] - 
    S2[a1, SP[a2, a3], a1, a5, a4, n] - S2[a1, SP[a2, a3], a4, a1, a5, n] + 
    S2[a1, SP[a2, a4], a1, a3, a5, n] + S2[a1, SP[a2, a4], a1, a5, a3, n] + 
    S2[a1, SP[a2, a4], a3, a1, a5, n] + S2[a2, a1, a1, a3, SP[a4, a5], n] + 
    S2[a2, a1, a1, SP[a3, a5], a4, n] + S2[a2, a1, a3, a1, SP[a4, a5], n] + 
    S2[a2, a1, a3, SP[a1, a4], a5, n] + S2[a2, a1, SP[a1, a3], a4, a5, n] + 
    S2[a2, a1, SP[a1, a3], a5, a4, n] - S2[a4, n]*S2[a2, a3, a1, a1, a5, n] + 
    S2[a2, SP[a1, a3], a1, a4, a5, n] + S2[a2, SP[a1, a3], a1, a5, a4, n] + 
    S2[a2, SP[a1, a3], a4, a1, a5, n] - S2[a2, SP[a3, a4], a1, a1, a5, n] + 
    S2[a3, a1, a1, a2, SP[a4, a5], n] + S2[a3, a1, a1, a5, SP[a2, a4], n] + 
    S2[a3, a1, a1, SP[a2, a4], a5, n] + S2[a3, a1, a1, SP[a4, a5], a2, n] + 
    S2[a3, a1, a2, a1, SP[a4, a5], n] + S2[a3, a1, a2, SP[a1, a4], a5, n] + 
    S2[a3, a1, SP[a1, a4], a2, a5, n] + S2[a3, a1, SP[a1, a4], a5, a2, n] + 
    S2[a3, a1, SP[a2, a4], a1, a5, n] + S2[a3, SP[a1, a4], a1, a2, a5, n] + 
    S2[a3, SP[a1, a4], a1, a5, a2, n] + S2[a3, SP[a1, a4], a2, a1, a5, n] - 
    S2[a3, n]*S2[a4, a1, a1, a2, a5, n] - S2[a4, a1, a1, a2, SP[a3, a5], n] - 
    S2[a3, n]*S2[a4, a1, a1, a5, a2, n] - S2[a4, a1, a1, a5, SP[a2, a3], n] - 
    S2[a4, a1, a1, SP[a2, a3], a5, n] - S2[a4, a1, a1, SP[a3, a5], a2, n] - 
    S2[a3, n]*S2[a4, a1, a2, a1, a5, n] - S2[a4, a1, a2, a1, SP[a3, a5], n] - 
    S2[a4, a1, a2, SP[a1, a3], a5, n] - S2[a4, a1, SP[a1, a3], a2, a5, n] - 
    S2[a4, a1, SP[a1, a3], a5, a2, n] - S2[a4, a1, SP[a2, a3], a1, a5, n] + 
    S2[a2, n]*S2[a4, a3, a1, a1, a5, n] + S2[a4, a3, a1, a1, SP[a2, a5], n] + 
    S2[a4, a3, a1, SP[a1, a2], a5, n] + S2[a4, a3, SP[a1, a2], a1, a5, n] - 
    S2[a4, SP[a1, a3], a1, a2, a5, n] - S2[a4, SP[a1, a3], a1, a5, a2, n] - 
    S2[a4, SP[a1, a3], a2, a1, a5, n] + S2[a4, SP[a2, a3], a1, a1, a5, n] - 
    S2[SP[a1, a1], a2, a3, a4, a5, n] - S2[SP[a1, a1], a2, a3, a5, a4, n] - 
    S2[SP[a1, a1], a2, a5, a3, a4, n] - S2[SP[a1, a1], a5, a2, a3, a4, n] + 
    S2[SP[a1, a4], a1, a2, a3, a5, n] + S2[SP[a1, a4], a1, a2, a5, a3, n] + 
    S2[SP[a1, a4], a1, a3, a2, a5, n] + S2[SP[a1, a4], a1, a3, a5, a2, n] + 
    S2[SP[a1, a4], a1, a5, a2, a3, n] + S2[SP[a1, a4], a1, a5, a3, a2, n] + 
    S2[SP[a1, a4], a2, a1, a3, a5, n] + S2[SP[a1, a4], a2, a1, a5, a3, n] + 
    S2[SP[a1, a4], a2, a3, a1, a5, n] + S2[SP[a1, a4], a3, a1, a2, a5, n] + 
    S2[SP[a1, a4], a3, a1, a5, a2, n] + S2[SP[a1, a4], a3, a2, a1, a5, n] + 
    S2[SP[a1, a5], a1, a2, a3, a4, n] - S2[SP[a3, a4], a1, a1, a2, a5, n] - 
    S2[SP[a3, a4], a1, a1, a5, a2, n] - S2[SP[a3, a4], a1, a2, a1, a5, n] - 
    S2[a5, a1, a1, a2, a3, a4, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a4_, a3_, a2_, a1_, a5_, a1_, n_] :> 
  -2*S2[a1, a1, a5, n]*S2[a2, a3, a4, n] - 
    2*S2[SP[a1, a2], SP[a1, a3], SP[a4, a5], n] - 
    2*S2[a3, a4, n]*S2[a1, a1, a2, a5, n] - 2*S2[a3, a4, n]*
     S2[a1, a1, a5, a2, n] + 2*S2[a1, a1, SP[a2, a3], SP[a4, a5], n] + 
    2*S2[a1, a1, SP[a3, a5], SP[a2, a4], n] - 
    S2[a3, a4, n]*S2[a1, a2, a1, a5, n] + S2[a1, a5, n]*
     S2[a1, a2, a3, a4, n] + 2*S2[a1, a2, SP[a1, a3], SP[a4, a5], n] + 
    S2[a1, SP[a1, a2], a3, SP[a4, a5], n] + S2[a1, SP[a1, a2], SP[a3, a5], 
     a4, n] + 2*S2[a1, SP[a1, a3], a2, SP[a4, a5], n] + 
    2*S2[a1, SP[a1, a3], a5, SP[a2, a4], n] + 
    2*S2[a1, SP[a1, a3], SP[a2, a4], a5, n] + 
    2*S2[a1, SP[a1, a3], SP[a4, a5], a2, n] + S2[a1, SP[a2, a3], a1, 
     SP[a4, a5], n] + S2[a1, SP[a2, a3], SP[a1, a4], a5, n] + 
    2*S2[a2, a1, SP[a1, a3], SP[a4, a5], n] + 
    2*S2[a2, SP[a1, a3], a1, SP[a4, a5], n] + 
    2*S2[a2, SP[a1, a3], SP[a1, a4], a5, n] - S2[SP[a1, a1], a2, a3, 
     SP[a4, a5], n] - S2[SP[a1, a1], a2, SP[a3, a5], a4, n] - 
    S2[SP[a1, a1], SP[a2, a5], a3, a4, n] + 
    2*S2[SP[a1, a2], a1, a3, SP[a4, a5], n] + 
    2*S2[SP[a1, a2], a1, SP[a3, a5], a4, n] + 
    2*S2[SP[a1, a2], a3, a1, SP[a4, a5], n] + 
    2*S2[SP[a1, a2], a3, SP[a1, a4], a5, n] + 
    2*S2[SP[a1, a2], SP[a1, a3], a4, a5, n] + 
    2*S2[SP[a1, a2], SP[a1, a3], a5, a4, n] + 
    2*S2[SP[a1, a3], a1, a2, SP[a4, a5], n] + 
    2*S2[SP[a1, a3], a1, a5, SP[a2, a4], n] + 
    2*S2[SP[a1, a3], a1, SP[a2, a4], a5, n] + 
    2*S2[SP[a1, a3], a1, SP[a4, a5], a2, n] + S2[SP[a1, a3], a2, a1, 
     SP[a4, a5], n] + S2[SP[a1, a3], a2, SP[a1, a4], a5, n] + 
    2*S2[SP[a1, a3], SP[a1, a4], a2, a5, n] + 
    2*S2[SP[a1, a3], SP[a1, a4], a5, a2, n] + S2[SP[a1, a3], SP[a2, a4], a1, 
     a5, n] - 2*S2[a4, n]*S2[a1, a1, a2, a3, a5, n] - 
    4*S2[a1, a1, a2, a3, SP[a4, a5], n] + 
    2*S2[a3, n]*S2[a1, a1, a2, a4, a5, n] + 
    2*S2[a1, a1, a2, a4, SP[a3, a5], n] - 
    2*S2[a4, n]*S2[a1, a1, a2, a5, a3, n] + 
    2*S2[a3, n]*S2[a1, a1, a2, a5, a4, n] - 
    2*S2[a1, a1, a2, SP[a4, a5], a3, n] - 
    2*S2[a4, n]*S2[a1, a1, a3, a2, a5, n] - 
    4*S2[a1, a1, a3, a2, SP[a4, a5], n] + 
    2*S2[a2, n]*S2[a1, a1, a3, a4, a5, n] + 
    2*S2[a1, a1, a3, a4, SP[a2, a5], n] - 
    2*S2[a4, n]*S2[a1, a1, a3, a5, a2, n] + 
    2*S2[a2, n]*S2[a1, a1, a3, a5, a4, n] - 
    2*S2[a1, a1, a3, a5, SP[a2, a4], n] - 
    2*S2[a1, a1, a3, SP[a2, a4], a5, n] + 
    2*S2[a1, a1, a3, SP[a2, a5], a4, n] - 
    4*S2[a1, a1, a3, SP[a4, a5], a2, n] + 
    2*S2[a3, n]*S2[a1, a1, a4, a2, a5, n] + 
    2*S2[a1, a1, a4, a2, SP[a3, a5], n] + 
    2*S2[a3, n]*S2[a1, a1, a4, a5, a2, n] + 
    2*S2[a1, a1, a4, a5, SP[a2, a3], n] + 
    2*S2[a1, a1, a4, SP[a2, a3], a5, n] + 
    2*S2[a1, a1, a4, SP[a3, a5], a2, n] - 
    2*S2[a4, n]*S2[a1, a1, a5, a2, a3, n] + 
    2*S2[a3, n]*S2[a1, a1, a5, a2, a4, n] - 
    2*S2[a4, n]*S2[a1, a1, a5, a3, a2, n] + 
    2*S2[a2, n]*S2[a1, a1, a5, a3, a4, n] - 
    2*S2[a1, a1, a5, a3, SP[a2, a4], n] + 
    2*S2[a3, n]*S2[a1, a1, a5, a4, a2, n] + 
    2*S2[a1, a1, a5, a4, SP[a2, a3], n] + 
    2*S2[a1, a1, a5, SP[a2, a3], a4, n] - 
    2*S2[a1, a1, a5, SP[a2, a4], a3, n] + 
    2*S2[a1, a1, SP[a2, a3], a4, a5, n] + 
    2*S2[a1, a1, SP[a2, a3], a5, a4, n] - 
    2*S2[a1, a1, SP[a2, a4], a3, a5, n] - 
    2*S2[a1, a1, SP[a2, a4], a5, a3, n] + 
    2*S2[a1, a1, SP[a2, a5], a3, a4, n] - 
    2*S2[a1, a1, SP[a4, a5], a2, a3, n] - 
    2*S2[a1, a1, SP[a4, a5], a3, a2, n] - 
    S2[a4, n]*S2[a1, a2, a1, a3, a5, n] - 
    3*S2[a1, a2, a1, a3, SP[a4, a5], n] + 
    S2[a3, n]*S2[a1, a2, a1, a4, a5, n] + S2[a1, a2, a1, a4, SP[a3, a5], n] - 
    S2[a4, n]*S2[a1, a2, a1, a5, a3, n] + 
    S2[a3, n]*S2[a1, a2, a1, a5, a4, n] - S2[a1, a2, a1, SP[a3, a5], a4, n] - 
    S2[a1, a2, a1, SP[a4, a5], a3, n] - S2[a4, n]*S2[a1, a2, a3, a1, a5, n] - 
    3*S2[a1, a2, a3, a1, SP[a4, a5], n] - 
    3*S2[a1, a2, a3, SP[a1, a4], a5, n] + 
    S2[a3, n]*S2[a1, a2, a4, a1, a5, n] + S2[a1, a2, a4, a1, SP[a3, a5], n] + 
    S2[a1, a2, a4, SP[a1, a3], a5, n] - S2[a1, a2, SP[a1, a3], a4, a5, n] - 
    S2[a1, a2, SP[a1, a3], a5, a4, n] - S2[a1, a2, SP[a1, a4], a3, a5, n] - 
    S2[a1, a2, SP[a1, a4], a5, a3, n] - 2*S2[a4, n]*
     S2[a1, a3, a1, a2, a5, n] - 4*S2[a1, a3, a1, a2, SP[a4, a5], n] + 
    2*S2[a2, n]*S2[a1, a3, a1, a4, a5, n] + 
    2*S2[a1, a3, a1, a4, SP[a2, a5], n] - 
    2*S2[a4, n]*S2[a1, a3, a1, a5, a2, n] + 
    2*S2[a2, n]*S2[a1, a3, a1, a5, a4, n] - 
    2*S2[a1, a3, a1, a5, SP[a2, a4], n] - 
    2*S2[a1, a3, a1, SP[a2, a4], a5, n] + 
    2*S2[a1, a3, a1, SP[a2, a5], a4, n] - 
    4*S2[a1, a3, a1, SP[a4, a5], a2, n] - 
    2*S2[a4, n]*S2[a1, a3, a2, a1, a5, n] - 
    3*S2[a1, a3, a2, a1, SP[a4, a5], n] - 
    3*S2[a1, a3, a2, SP[a1, a4], a5, n] + 
    2*S2[a2, n]*S2[a1, a3, a4, a1, a5, n] + 
    2*S2[a1, a3, a4, a1, SP[a2, a5], n] + 
    2*S2[a1, a3, a4, SP[a1, a2], a5, n] + 
    2*S2[a1, a3, SP[a1, a2], a4, a5, n] + 
    2*S2[a1, a3, SP[a1, a2], a5, a4, n] - 
    4*S2[a1, a3, SP[a1, a4], a2, a5, n] - 
    4*S2[a1, a3, SP[a1, a4], a5, a2, n] - S2[a1, a3, SP[a2, a4], a1, a5, n] + 
    2*S2[a3, n]*S2[a1, a4, a1, a2, a5, n] + 
    2*S2[a1, a4, a1, a2, SP[a3, a5], n] + 
    2*S2[a3, n]*S2[a1, a4, a1, a5, a2, n] + 
    2*S2[a1, a4, a1, a5, SP[a2, a3], n] + 
    2*S2[a1, a4, a1, SP[a2, a3], a5, n] + 
    2*S2[a1, a4, a1, SP[a3, a5], a2, n] + 
    S2[a3, n]*S2[a1, a4, a2, a1, a5, n] + S2[a1, a4, a2, a1, SP[a3, a5], n] + 
    S2[a1, a4, a2, SP[a1, a3], a5, n] + 2*S2[a1, a4, SP[a1, a3], a2, a5, n] + 
    2*S2[a1, a4, SP[a1, a3], a5, a2, n] + S2[a1, a4, SP[a2, a3], a1, a5, n] + 
    S2[a1, SP[a1, a2], a3, a4, a5, n] + S2[a1, SP[a1, a2], a3, a5, a4, n] + 
    S2[a1, SP[a1, a2], a5, a3, a4, n] - 2*S2[a1, SP[a1, a4], a2, a3, a5, n] - 
    2*S2[a1, SP[a1, a4], a2, a5, a3, n] - 
    2*S2[a1, SP[a1, a4], a3, a2, a5, n] - 
    2*S2[a1, SP[a1, a4], a3, a5, a2, n] - 
    2*S2[a1, SP[a1, a4], a5, a2, a3, n] - 
    2*S2[a1, SP[a1, a4], a5, a3, a2, n] + S2[a1, SP[a1, a5], a2, a3, a4, n] + 
    2*S2[a1, SP[a2, a3], a1, a4, a5, n] + 
    2*S2[a1, SP[a2, a3], a1, a5, a4, n] + 
    2*S2[a1, SP[a2, a3], a4, a1, a5, n] - S2[a1, SP[a2, a4], a1, a3, a5, n] - 
    S2[a1, SP[a2, a4], a1, a5, a3, n] - S2[a1, SP[a2, a4], a3, a1, a5, n] - 
    S2[a1, SP[a3, a4], a2, a1, a5, n] - 2*S2[a2, a1, a1, a3, SP[a4, a5], n] - 
    2*S2[a2, a1, a1, SP[a3, a5], a4, n] - 
    2*S2[a2, a1, a3, a1, SP[a4, a5], n] - 
    2*S2[a2, a1, a3, SP[a1, a4], a5, n] - 
    2*S2[a2, a1, SP[a1, a3], a4, a5, n] - 
    2*S2[a2, a1, SP[a1, a3], a5, a4, n] + 
    2*S2[a4, n]*S2[a2, a3, a1, a1, a5, n] - 
    2*S2[a2, SP[a1, a3], a1, a4, a5, n] - 
    2*S2[a2, SP[a1, a3], a1, a5, a4, n] - 
    2*S2[a2, SP[a1, a3], a4, a1, a5, n] + 
    2*S2[a2, SP[a3, a4], a1, a1, a5, n] - 
    2*S2[a3, a1, a1, a2, SP[a4, a5], n] - 
    2*S2[a3, a1, a1, a5, SP[a2, a4], n] - 
    2*S2[a3, a1, a1, SP[a2, a4], a5, n] - 
    2*S2[a3, a1, a1, SP[a4, a5], a2, n] - S2[a3, a1, a2, a1, SP[a4, a5], n] - 
    S2[a3, a1, a2, SP[a1, a4], a5, n] - 2*S2[a3, a1, SP[a1, a4], a2, a5, n] - 
    2*S2[a3, a1, SP[a1, a4], a5, a2, n] - S2[a3, a1, SP[a2, a4], a1, a5, n] - 
    2*S2[a3, SP[a1, a4], a1, a2, a5, n] - 
    2*S2[a3, SP[a1, a4], a1, a5, a2, n] - S2[a3, SP[a1, a4], a2, a1, a5, n] + 
    2*S2[a3, n]*S2[a4, a1, a1, a2, a5, n] + 
    2*S2[a4, a1, a1, a2, SP[a3, a5], n] + 
    2*S2[a3, n]*S2[a4, a1, a1, a5, a2, n] + 
    2*S2[a4, a1, a1, a5, SP[a2, a3], n] + 
    2*S2[a4, a1, a1, SP[a2, a3], a5, n] + 
    2*S2[a4, a1, a1, SP[a3, a5], a2, n] + 
    S2[a3, n]*S2[a4, a1, a2, a1, a5, n] + S2[a4, a1, a2, a1, SP[a3, a5], n] + 
    S2[a4, a1, a2, SP[a1, a3], a5, n] + 2*S2[a4, a1, SP[a1, a3], a2, a5, n] + 
    2*S2[a4, a1, SP[a1, a3], a5, a2, n] + S2[a4, a1, SP[a2, a3], a1, a5, n] - 
    2*S2[a2, n]*S2[a4, a3, a1, a1, a5, n] - 
    2*S2[a4, a3, a1, a1, SP[a2, a5], n] - 
    2*S2[a4, a3, a1, SP[a1, a2], a5, n] + 
    S2[a1, n]*S2[a4, a3, a2, a1, a5, n] + S2[a4, a3, a2, a1, SP[a1, a5], n] + 
    S2[a4, a3, a2, SP[a1, a1], a5, n] - S2[a4, a3, SP[a1, a2], a1, a5, n] + 
    2*S2[a4, SP[a1, a3], a1, a2, a5, n] + 
    2*S2[a4, SP[a1, a3], a1, a5, a2, n] + 
    2*S2[a4, SP[a1, a3], a2, a1, a5, n] - 
    2*S2[a4, SP[a2, a3], a1, a1, a5, n] - 
    S2[a1, n]*S2[a5, a1, a2, a3, a4, n] - S2[a5, a1, a2, a3, SP[a1, a4], n] - 
    S2[a5, a1, a2, SP[a1, a3], a4, n] - S2[a5, a1, SP[a1, a2], a3, a4, n] - 
    S2[a5, SP[a1, a1], a2, a3, a4, n] + S2[SP[a1, a1], a2, a3, a4, a5, n] + 
    S2[SP[a1, a1], a2, a3, a5, a4, n] + S2[SP[a1, a1], a2, a5, a3, a4, n] + 
    S2[SP[a1, a1], a5, a2, a3, a4, n] - 2*S2[SP[a1, a4], a1, a2, a3, a5, n] - 
    2*S2[SP[a1, a4], a1, a2, a5, a3, n] - 
    2*S2[SP[a1, a4], a1, a3, a2, a5, n] - 
    2*S2[SP[a1, a4], a1, a3, a5, a2, n] - 
    2*S2[SP[a1, a4], a1, a5, a2, a3, n] - 
    2*S2[SP[a1, a4], a1, a5, a3, a2, n] - S2[SP[a1, a4], a2, a1, a3, a5, n] - 
    S2[SP[a1, a4], a2, a1, a5, a3, n] - S2[SP[a1, a4], a2, a3, a1, a5, n] - 
    2*S2[SP[a1, a4], a3, a1, a2, a5, n] - 
    2*S2[SP[a1, a4], a3, a1, a5, a2, n] - S2[SP[a1, a4], a3, a2, a1, a5, n] - 
    S2[SP[a1, a5], a1, a2, a3, a4, n] + 2*S2[SP[a3, a4], a1, a1, a2, a5, n] + 
    2*S2[SP[a3, a4], a1, a1, a5, a2, n] + S2[SP[a3, a4], a1, a2, a1, a5, n] + 
    2*S2[a5, a1, a1, a2, a3, a4, n] + S2[a5, a1, a2, a1, a3, a4, n] + 
    S2[a5, a1, a2, a3, a1, a4, n] + S2[a5, a1, a2, a3, a4, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a4_, a3_, a2_, a5_, a1_, a1_, n_] :> 
  S2[a1, a1, a5, n]*S2[a2, a3, a4, n] + S2[SP[a1, a2], SP[a1, a3], 
     SP[a4, a5], n] + S2[a3, a4, n]*S2[a1, a1, a5, a2, n] - 
    S2[a1, a1, SP[a3, a5], SP[a2, a4], n] - S2[a1, a2, SP[a1, a3], 
     SP[a4, a5], n] - S2[a1, SP[a1, a2], a3, SP[a4, a5], n] - 
    S2[a1, SP[a1, a2], SP[a3, a5], a4, n] - S2[a1, SP[a1, a3], a5, 
     SP[a2, a4], n] - S2[a1, SP[a1, a3], SP[a4, a5], a2, n] - 
    S2[a2, a1, SP[a1, a3], SP[a4, a5], n] - S2[a2, SP[a1, a3], a1, 
     SP[a4, a5], n] - S2[a2, SP[a1, a3], SP[a1, a4], a5, n] - 
    S2[SP[a1, a2], a1, a3, SP[a4, a5], n] - S2[SP[a1, a2], a1, SP[a3, a5], 
     a4, n] - S2[SP[a1, a2], a3, a1, SP[a4, a5], n] - 
    S2[SP[a1, a2], a3, SP[a1, a4], a5, n] - S2[SP[a1, a2], SP[a1, a3], a4, 
     a5, n] - S2[SP[a1, a2], SP[a1, a3], a5, a4, n] - 
    S2[SP[a1, a3], a1, a5, SP[a2, a4], n] - S2[SP[a1, a3], a1, SP[a4, a5], 
     a2, n] - S2[SP[a1, a3], SP[a1, a4], a5, a2, n] + 
    S2[a1, a1, a2, a3, SP[a4, a5], n] + S2[a1, a1, a2, SP[a3, a5], a4, n] + 
    S2[a4, n]*S2[a1, a1, a3, a2, a5, n] + S2[a1, a1, a3, a2, SP[a4, a5], n] - 
    S2[a2, n]*S2[a1, a1, a3, a4, a5, n] - S2[a1, a1, a3, a4, SP[a2, a5], n] + 
    S2[a4, n]*S2[a1, a1, a3, a5, a2, n] - 
    S2[a2, n]*S2[a1, a1, a3, a5, a4, n] + S2[a1, a1, a3, a5, SP[a2, a4], n] - 
    S2[a1, a1, a3, SP[a2, a5], a4, n] + 2*S2[a1, a1, a3, SP[a4, a5], a2, n] - 
    S2[a3, n]*S2[a1, a1, a4, a5, a2, n] - S2[a1, a1, a4, a5, SP[a2, a3], n] - 
    S2[a1, a1, a4, SP[a3, a5], a2, n] + S2[a4, n]*S2[a1, a1, a5, a2, a3, n] - 
    S2[a3, n]*S2[a1, a1, a5, a2, a4, n] + 
    S2[a4, n]*S2[a1, a1, a5, a3, a2, n] - 
    S2[a2, n]*S2[a1, a1, a5, a3, a4, n] + S2[a1, a1, a5, a3, SP[a2, a4], n] - 
    S2[a3, n]*S2[a1, a1, a5, a4, a2, n] - S2[a1, a1, a5, a4, SP[a2, a3], n] - 
    S2[a1, a1, a5, SP[a2, a3], a4, n] + S2[a1, a1, a5, SP[a2, a4], a3, n] - 
    S2[a1, a1, SP[a2, a3], a4, a5, n] - S2[a1, a1, SP[a2, a3], a5, a4, n] + 
    S2[a1, a1, SP[a3, a4], a2, a5, n] + S2[a1, a1, SP[a4, a5], a2, a3, n] + 
    S2[a1, a1, SP[a4, a5], a3, a2, n] + S2[a1, a2, a1, a3, SP[a4, a5], n] + 
    S2[a1, a2, a1, SP[a3, a5], a4, n] + S2[a1, a2, a3, a1, SP[a4, a5], n] + 
    S2[a1, a2, a3, SP[a1, a4], a5, n] + S2[a1, a2, SP[a1, a3], a4, a5, n] + 
    S2[a1, a2, SP[a1, a3], a5, a4, n] + S2[a4, n]*S2[a1, a3, a1, a2, a5, n] + 
    S2[a1, a3, a1, a2, SP[a4, a5], n] - S2[a2, n]*S2[a1, a3, a1, a4, a5, n] - 
    S2[a1, a3, a1, a4, SP[a2, a5], n] + S2[a4, n]*S2[a1, a3, a1, a5, a2, n] - 
    S2[a2, n]*S2[a1, a3, a1, a5, a4, n] + S2[a1, a3, a1, a5, SP[a2, a4], n] - 
    S2[a1, a3, a1, SP[a2, a5], a4, n] + 2*S2[a1, a3, a1, SP[a4, a5], a2, n] + 
    S2[a4, n]*S2[a1, a3, a2, a1, a5, n] + S2[a1, a3, a2, a1, SP[a4, a5], n] + 
    S2[a1, a3, a2, SP[a1, a4], a5, n] - S2[a2, n]*S2[a1, a3, a4, a1, a5, n] - 
    S2[a1, a3, a4, a1, SP[a2, a5], n] - S2[a1, a3, a4, SP[a1, a2], a5, n] - 
    S2[a1, a3, SP[a1, a2], a4, a5, n] - S2[a1, a3, SP[a1, a2], a5, a4, n] + 
    S2[a1, a3, SP[a1, a4], a2, a5, n] + 2*S2[a1, a3, SP[a1, a4], a5, a2, n] - 
    S2[a3, n]*S2[a1, a4, a1, a5, a2, n] - S2[a1, a4, a1, a5, SP[a2, a3], n] - 
    S2[a1, a4, a1, SP[a3, a5], a2, n] - (S2[a1, n]*S2[a1, a4, a3, a2, a5, n])/
     2 - S2[a1, a4, a3, a2, SP[a1, a5], n]/2 - 
    S2[a1, a4, a3, SP[a1, a2], a5, n]/2 - S2[a1, a4, SP[a1, a3], a2, a5, n]/
     2 - S2[a1, a4, SP[a1, a3], a5, a2, n] - 
    (S2[a1, n]*S2[a1, a5, a2, a3, a4, n])/2 - 
    S2[a1, a5, a2, a3, SP[a1, a4], n]/2 - S2[a1, a5, a2, SP[a1, a3], a4, n]/
     2 - S2[a1, a5, SP[a1, a2], a3, a4, n]/2 + 
    S2[a1, SP[a1, a4], a3, a2, a5, n]/2 + S2[a1, SP[a1, a4], a3, a5, a2, n] + 
    S2[a1, SP[a1, a4], a5, a2, a3, n] + S2[a1, SP[a1, a4], a5, a3, a2, n] - 
    S2[a1, SP[a1, a5], a2, a3, a4, n]/2 - S2[a1, SP[a2, a3], a1, a4, a5, n] - 
    S2[a1, SP[a2, a3], a1, a5, a4, n] - S2[a1, SP[a2, a3], a4, a1, a5, n] + 
    S2[a1, SP[a3, a4], a1, a2, a5, n] + S2[a1, SP[a3, a4], a2, a1, a5, n] + 
    S2[a2, a1, a1, a3, SP[a4, a5], n] + S2[a2, a1, a1, SP[a3, a5], a4, n] + 
    S2[a2, a1, a3, a1, SP[a4, a5], n] + S2[a2, a1, a3, SP[a1, a4], a5, n] + 
    S2[a2, a1, SP[a1, a3], a4, a5, n] + S2[a2, a1, SP[a1, a3], a5, a4, n] - 
    S2[a4, n]*S2[a2, a3, a1, a1, a5, n] + S2[a2, SP[a1, a3], a1, a4, a5, n] + 
    S2[a2, SP[a1, a3], a1, a5, a4, n] + S2[a2, SP[a1, a3], a4, a1, a5, n] - 
    S2[a2, SP[a3, a4], a1, a1, a5, n] + S2[a3, a1, a1, a5, SP[a2, a4], n] + 
    S2[a3, a1, a1, SP[a4, a5], a2, n] + S2[a3, a1, SP[a1, a4], a5, a2, n] + 
    S2[a3, SP[a1, a4], a1, a5, a2, n] - S2[a3, n]*S2[a4, a1, a1, a5, a2, n] - 
    S2[a4, a1, a1, a5, SP[a2, a3], n] - S2[a4, a1, a1, SP[a3, a5], a2, n] - 
    (S2[a1, n]*S2[a4, a1, a3, a2, a5, n])/2 - 
    S2[a4, a1, a3, a2, SP[a1, a5], n]/2 - S2[a4, a1, a3, SP[a1, a2], a5, n]/
     2 - S2[a4, a1, SP[a1, a3], a2, a5, n]/2 - S2[a4, a1, SP[a1, a3], a5, a2, 
     n] + S2[a2, n]*S2[a4, a3, a1, a1, a5, n] + S2[a4, a3, a1, a1, 
     SP[a2, a5], n] - (S2[a1, n]*S2[a4, a3, a1, a2, a5, n])/2 - 
    S2[a4, a3, a1, a2, SP[a1, a5], n]/2 + S2[a4, a3, a1, SP[a1, a2], a5, n]/
     2 - (S2[a1, n]*S2[a4, a3, a2, a1, a5, n])/2 - 
    S2[a4, a3, a2, a1, SP[a1, a5], n]/2 + 
    (S2[a1, n]*S2[a4, a3, a2, a5, a1, n])/2 + 
    S2[a4, a3, a2, a5, SP[a1, a1], n]/2 - S2[a4, a3, a2, SP[a1, a1], a5, n]/
     2 + S2[a4, a3, a2, SP[a1, a5], a1, n]/2 - 
    S2[a4, a3, SP[a1, a1], a2, a5, n]/2 + S2[a4, a3, SP[a1, a2], a1, a5, n]/
     2 + S2[a4, a3, SP[a1, a2], a5, a1, n]/2 - 
    S2[a4, SP[a1, a1], a3, a2, a5, n]/2 - S2[a4, SP[a1, a3], a1, a2, a5, n]/
     2 - S2[a4, SP[a1, a3], a1, a5, a2, n] - 
    S2[a4, SP[a1, a3], a2, a1, a5, n]/2 + S2[a4, SP[a1, a3], a2, a5, a1, n]/
     2 + S2[a4, SP[a2, a3], a1, a1, a5, n] + 
    (S2[a1, n]*S2[a5, a1, a2, a3, a4, n])/2 + 
    S2[a5, a1, a2, a3, SP[a1, a4], n]/2 + S2[a5, a1, a2, SP[a1, a3], a4, n]/
     2 + S2[a5, a1, SP[a1, a2], a3, a4, n]/2 + 
    (S2[a1, n]*S2[a5, a2, a1, a3, a4, n])/2 + 
    S2[a5, a2, a1, a3, SP[a1, a4], n]/2 + S2[a5, a2, a1, SP[a1, a3], a4, n]/
     2 + (S2[a1, n]*S2[a5, a2, a3, a1, a4, n])/2 + 
    S2[a5, a2, a3, a1, SP[a1, a4], n]/2 + 
    (S2[a1, n]*S2[a5, a2, a3, a4, a1, n])/2 + 
    S2[a5, a2, a3, a4, SP[a1, a1], n]/2 + S2[a5, a2, a3, SP[a1, a1], a4, n]/
     2 + S2[a5, a2, a3, SP[a1, a4], a1, n]/2 + 
    S2[a5, a2, SP[a1, a1], a3, a4, n]/2 + S2[a5, a2, SP[a1, a3], a1, a4, n]/
     2 + S2[a5, a2, SP[a1, a3], a4, a1, n]/2 + 
    S2[a5, SP[a1, a1], a2, a3, a4, n]/2 + S2[a5, SP[a1, a2], a1, a3, a4, n]/
     2 + S2[a5, SP[a1, a2], a3, a1, a4, n]/2 + 
    S2[a5, SP[a1, a2], a3, a4, a1, n]/2 - S2[SP[a1, a1], a4, a3, a2, a5, n]/
     2 - S2[SP[a1, a1], a5, a2, a3, a4, n]/2 + 
    S2[SP[a1, a4], a1, a3, a2, a5, n]/2 + S2[SP[a1, a4], a1, a3, a5, a2, n] + 
    S2[SP[a1, a4], a1, a5, a2, a3, n] + S2[SP[a1, a4], a1, a5, a3, a2, n] + 
    S2[SP[a1, a4], a3, a1, a2, a5, n]/2 + S2[SP[a1, a4], a3, a1, a5, a2, n] + 
    S2[SP[a1, a4], a3, a2, a1, a5, n]/2 + S2[SP[a1, a4], a3, a2, a5, a1, n]/
     2 + S2[SP[a1, a5], a1, a2, a3, a4, n]/2 + 
    S2[SP[a1, a5], a2, a1, a3, a4, n]/2 + S2[SP[a1, a5], a2, a3, a1, a4, n]/
     2 + S2[SP[a1, a5], a2, a3, a4, a1, n]/2 - S2[SP[a3, a4], a1, a1, a5, a2, 
     n] - S2[a5, a1, a1, a2, a3, a4, n] - S2[a5, a1, a2, a1, a3, a4, n] - 
    S2[a5, a1, a2, a3, a1, a4, n] - S2[a5, a1, a2, a3, a4, a1, n] - 
    S2[a5, a2, a1, a1, a3, a4, n] - S2[a5, a2, a1, a3, a1, a4, n] - 
    S2[a5, a2, a1, a3, a4, a1, n] - S2[a5, a2, a3, a1, a1, a4, n] - 
    S2[a5, a2, a3, a1, a4, a1, n] - S2[a5, a2, a3, a4, a1, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a4_, a3_, a5_, a1_, a1_, a2_, n_] :> 
  -(S2[a3, a4, n]*S2[a1, a1, a2, a5, n]) - S2[a3, a4, n]*
     S2[a1, a1, a5, a2, n] + S2[a1, a1, SP[a2, a3], SP[a4, a5], n] + 
    S2[a1, a1, SP[a3, a5], SP[a2, a4], n] - S2[a3, a4, n]*
     S2[a1, a2, a1, a5, n] + S2[a1, a2, SP[a1, a3], SP[a4, a5], n] - 
    S2[a1, a2, n]*S2[a1, a4, a3, a5, n] - S2[a1, a2, n]*
     S2[a1, a4, a5, a3, n] + S2[a1, a4, SP[a1, a3], SP[a2, a5], n] + 
    S2[a1, a4, SP[a1, a5], SP[a2, a3], n] - S2[a1, a2, n]*
     S2[a1, a5, a4, a3, n] + S2[a1, a5, SP[a1, a4], SP[a2, a3], n] + 
    S2[a1, SP[a1, a3], a2, SP[a4, a5], n] + S2[a1, SP[a1, a3], a5, 
     SP[a2, a4], n] + S2[a1, SP[a1, a3], SP[a2, a4], a5, n] + 
    S2[a1, SP[a1, a3], SP[a4, a5], a2, n] + S2[a1, SP[a1, a4], a3, 
     SP[a2, a5], n] + S2[a1, SP[a1, a4], a5, SP[a2, a3], n] + 
    S2[a1, SP[a1, a4], SP[a2, a3], a5, n] + S2[a1, SP[a1, a4], SP[a2, a5], 
     a3, n] + S2[a1, SP[a1, a5], a4, SP[a2, a3], n] + 
    S2[a1, SP[a1, a5], SP[a2, a4], a3, n] + S2[a1, SP[a2, a3], a1, 
     SP[a4, a5], n] + S2[a1, SP[a2, a3], SP[a1, a4], a5, n] + 
    S2[a1, a2, n]*S2[a3, a4, a1, a5, n] - S2[a3, a4, SP[a1, a1], SP[a2, a5], 
     n] - S2[a3, SP[a1, a4], a1, SP[a2, a5], n] - 
    S2[a3, SP[a1, a4], SP[a1, a2], a5, n] + S2[SP[a1, a1], a4, a3, 
     SP[a2, a5], n] + S2[SP[a1, a1], a4, a5, SP[a2, a3], n] + 
    S2[SP[a1, a1], a4, SP[a2, a3], a5, n] + S2[SP[a1, a1], a4, SP[a2, a5], 
     a3, n] + S2[SP[a1, a1], a5, a4, SP[a2, a3], n] + 
    S2[SP[a1, a1], a5, SP[a2, a4], a3, n] + S2[SP[a1, a1], SP[a2, a4], a3, 
     a5, n] + S2[SP[a1, a1], SP[a2, a4], a5, a3, n] + 
    S2[SP[a1, a1], SP[a2, a5], a4, a3, n] + S2[SP[a1, a3], a1, a2, 
     SP[a4, a5], n] + S2[SP[a1, a3], a1, a5, SP[a2, a4], n] + 
    S2[SP[a1, a3], a1, SP[a2, a4], a5, n] + S2[SP[a1, a3], a1, SP[a4, a5], 
     a2, n] + S2[SP[a1, a3], a2, a1, SP[a4, a5], n] + 
    S2[SP[a1, a3], a2, SP[a1, a4], a5, n] - S2[SP[a1, a3], a4, a1, 
     SP[a2, a5], n] - S2[SP[a1, a3], a4, SP[a1, a2], a5, n] + 
    S2[SP[a1, a3], SP[a1, a4], a2, a5, n] + S2[SP[a1, a3], SP[a1, a4], a5, 
     a2, n] - S2[a1, a1, a2, a3, SP[a4, a5], n] + 
    S2[a5, n]*S2[a1, a1, a2, a4, a3, n] + 
    S2[a3, n]*S2[a1, a1, a2, a4, a5, n] + 
    2*S2[a1, a1, a2, a4, SP[a3, a5], n] + 
    S2[a3, n]*S2[a1, a1, a2, a5, a4, n] + S2[a1, a1, a2, a5, SP[a3, a4], n] + 
    S2[a1, a1, a2, SP[a3, a4], a5, n] + S2[a1, a1, a2, SP[a4, a5], a3, n] - 
    S2[a1, a1, a3, a2, SP[a4, a5], n] - S2[a1, a1, a3, a5, SP[a2, a4], n] - 
    S2[a1, a1, a3, SP[a2, a4], a5, n] - S2[a1, a1, a3, SP[a4, a5], a2, n] + 
    S2[a5, n]*S2[a1, a1, a4, a2, a3, n] + 
    S2[a3, n]*S2[a1, a1, a4, a2, a5, n] + 
    2*S2[a1, a1, a4, a2, SP[a3, a5], n] + 
    S2[a5, n]*S2[a1, a1, a4, a3, a2, n] - S2[a1, a1, a4, a3, SP[a2, a5], n] + 
    S2[a3, n]*S2[a1, a1, a4, a5, a2, n] - S2[a1, a1, a4, a5, SP[a2, a3], n] - 
    S2[a1, a1, a4, SP[a2, a3], a5, n] - S2[a1, a1, a4, SP[a2, a5], a3, n] + 
    2*S2[a1, a1, a4, SP[a3, a5], a2, n] + 
    S2[a3, n]*S2[a1, a1, a5, a2, a4, n] + S2[a1, a1, a5, a2, SP[a3, a4], n] - 
    S2[a1, a1, a5, a3, SP[a2, a4], n] + S2[a3, n]*S2[a1, a1, a5, a4, a2, n] - 
    S2[a1, a1, a5, a4, SP[a2, a3], n] - 2*S2[a1, a1, a5, SP[a2, a4], a3, n] + 
    S2[a1, a1, a5, SP[a3, a4], a2, n] - 2*S2[a1, a1, SP[a2, a4], a3, a5, n] - 
    2*S2[a1, a1, SP[a2, a4], a5, a3, n] - S2[a1, a1, SP[a2, a5], a4, a3, n] + 
    S2[a1, a1, SP[a3, a4], a2, a5, n] + S2[a1, a1, SP[a3, a4], a5, a2, n] + 
    S2[a1, a1, SP[a4, a5], a2, a3, n] + S2[a1, a1, SP[a4, a5], a3, a2, n] - 
    S2[a1, a2, a1, a3, SP[a4, a5], n] + S2[a3, n]*S2[a1, a2, a1, a4, a5, n] + 
    S2[a1, a2, a1, a4, SP[a3, a5], n] + S2[a3, n]*S2[a1, a2, a1, a5, a4, n] + 
    S2[a1, a2, a1, a5, SP[a3, a4], n] + S2[a1, a2, a1, SP[a3, a4], a5, n] - 
    S2[a1, a2, a3, a1, SP[a4, a5], n] - S2[a1, a2, a3, SP[a1, a4], a5, n] - 
    S2[a1, a3, a1, a2, SP[a4, a5], n] - S2[a1, a3, a1, a5, SP[a2, a4], n] - 
    S2[a1, a3, a1, SP[a2, a4], a5, n] - S2[a1, a3, a1, SP[a4, a5], a2, n] - 
    S2[a1, a3, a2, a1, SP[a4, a5], n] - S2[a1, a3, a2, SP[a1, a4], a5, n] + 
    S2[a1, a3, a4, a1, SP[a2, a5], n] + S2[a1, a3, a4, SP[a1, a2], a5, n] - 
    S2[a1, a3, SP[a1, a4], a2, a5, n] - S2[a1, a3, SP[a1, a4], a5, a2, n] + 
    S2[a5, n]*S2[a1, a4, a1, a2, a3, n] + S2[a1, a4, a1, a2, SP[a3, a5], n] + 
    S2[a5, n]*S2[a1, a4, a1, a3, a2, n] - S2[a1, a4, a1, a5, SP[a2, a3], n] - 
    S2[a1, a4, a1, SP[a2, a3], a5, n] + S2[a1, a4, a1, SP[a3, a5], a2, n] + 
    S2[a5, n]*S2[a1, a4, a3, a1, a2, n] - S2[a1, a4, a5, a1, SP[a2, a3], n] - 
    S2[a1, a4, a5, SP[a1, a3], a2, n] - S2[a1, a4, SP[a1, a3], a2, a5, n] - 
    S2[a1, a4, SP[a1, a3], a5, a2, n] + S2[a1, a4, SP[a3, a5], a1, a2, n] - 
    S2[a1, a5, a1, a4, SP[a2, a3], n] - S2[a1, a5, a1, SP[a2, a4], a3, n] - 
    S2[a1, a5, a4, a1, SP[a2, a3], n] - S2[a1, a5, a4, SP[a1, a3], a2, n] - 
    S2[a1, a5, SP[a1, a4], a2, a3, n] - S2[a1, a5, SP[a1, a4], a3, a2, n] - 
    S2[a1, SP[a1, a2], a4, a3, a5, n] - S2[a1, SP[a1, a2], a4, a5, a3, n] - 
    S2[a1, SP[a1, a2], a5, a4, a3, n] - S2[a1, SP[a1, a4], a2, a3, a5, n] - 
    S2[a1, SP[a1, a4], a2, a5, a3, n] - S2[a1, SP[a1, a4], a3, a2, a5, n] - 
    S2[a1, SP[a1, a4], a3, a5, a2, n] - S2[a1, SP[a1, a4], a5, a2, a3, n] - 
    S2[a1, SP[a1, a4], a5, a3, a2, n] + S2[a1, SP[a4, a5], a1, a2, a3, n] + 
    S2[a1, SP[a4, a5], a1, a3, a2, n] + S2[a1, SP[a4, a5], a3, a1, a2, n] - 
    S2[a3, a1, a1, a2, SP[a4, a5], n] - S2[a3, a1, a1, a5, SP[a2, a4], n] - 
    S2[a3, a1, a1, SP[a2, a4], a5, n] - S2[a3, a1, a1, SP[a4, a5], a2, n] - 
    S2[a3, a1, a2, a1, SP[a4, a5], n] - S2[a3, a1, a2, SP[a1, a4], a5, n] + 
    S2[a3, a1, a4, a1, SP[a2, a5], n] + S2[a3, a1, a4, SP[a1, a2], a5, n] - 
    S2[a3, a1, SP[a1, a4], a2, a5, n] - S2[a3, a1, SP[a1, a4], a5, a2, n] - 
    S2[a5, n]*S2[a3, a4, a1, a1, a2, n] + S2[a3, a4, a1, a1, SP[a2, a5], n] + 
    S2[a3, a4, a1, SP[a1, a2], a5, n] + S2[a3, a4, SP[a1, a1], a2, a5, n] + 
    S2[a3, a4, SP[a1, a1], a5, a2, n] - S2[a3, a4, SP[a1, a5], a1, a2, n] + 
    S2[a4, n]*S2[a3, a5, a1, a1, a2, n] + S2[a3, a5, a1, a1, SP[a2, a4], n] + 
    S2[a3, a5, a1, SP[a1, a4], a2, n] + S2[a3, a5, SP[a1, a4], a1, a2, n] - 
    S2[a3, n]*S2[a5, a1, a1, a2, a4, n] - S2[a5, a1, a1, a2, SP[a3, a4], n] - 
    S2[a3, n]*S2[a5, a1, a1, a4, a2, n] - S2[a5, a1, a1, a4, SP[a2, a3], n] - 
    S2[a5, a1, a1, SP[a2, a3], a4, n] - S2[a5, a1, a1, SP[a3, a4], a2, n] - 
    S2[a3, n]*S2[a5, a1, a4, a1, a2, n] - S2[a5, a1, a4, a1, SP[a2, a3], n] - 
    S2[a5, a1, a4, SP[a1, a3], a2, n] - S2[a5, a1, SP[a1, a3], a2, a4, n] - 
    S2[a5, a1, SP[a1, a3], a4, a2, n] - S2[a5, a1, SP[a3, a4], a1, a2, n] - 
    S2[a5, SP[a1, a3], a1, a2, a4, n] - S2[a5, SP[a1, a3], a1, a4, a2, n] - 
    S2[a5, SP[a1, a3], a4, a1, a2, n] - S2[SP[a1, a1], a2, a4, a3, a5, n] - 
    S2[SP[a1, a1], a2, a4, a5, a3, n] - S2[SP[a1, a1], a2, a5, a4, a3, n] - 
    S2[SP[a1, a1], a4, a2, a3, a5, n] - S2[SP[a1, a1], a4, a2, a5, a3, n] - 
    S2[SP[a1, a1], a4, a3, a2, a5, n] - S2[SP[a1, a1], a4, a3, a5, a2, n] - 
    S2[SP[a1, a1], a4, a5, a2, a3, n] - S2[SP[a1, a1], a4, a5, a3, a2, n] - 
    S2[SP[a1, a1], a5, a2, a4, a3, n] - S2[SP[a1, a1], a5, a4, a2, a3, n] - 
    S2[SP[a1, a1], a5, a4, a3, a2, n] + S2[SP[a1, a5], a1, a2, a4, a3, n] + 
    S2[SP[a1, a5], a1, a4, a2, a3, n] + S2[SP[a1, a5], a1, a4, a3, a2, n] + 
    S2[SP[a1, a5], a4, a1, a2, a3, n] + S2[SP[a1, a5], a4, a1, a3, a2, n] + 
    S2[SP[a1, a5], a4, a3, a1, a2, n] + S2[SP[a3, a4], a5, a1, a1, a2, n] - 
    S2[SP[a3, a5], a1, a1, a2, a4, n] - S2[SP[a3, a5], a1, a1, a4, a2, n] - 
    S2[SP[a3, a5], a1, a4, a1, a2, n] - S2[SP[a3, a5], a4, a1, a1, a2, n] + 
    S2[a5, a1, a1, a2, a3, a4, n] + S2[a5, a1, a1, a3, a2, a4, n] + 
    S2[a5, a1, a1, a3, a4, a2, n] + S2[a5, a1, a3, a1, a2, a4, n] + 
    S2[a5, a1, a3, a1, a4, a2, n] + S2[a5, a1, a3, a4, a1, a2, n] + 
    S2[a5, a3, a1, a1, a2, a4, n] + S2[a5, a3, a1, a1, a4, a2, n] + 
    S2[a5, a3, a1, a4, a1, a2, n] + S2[a5, a3, a4, a1, a1, a2, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a4_, a3_, a5_, a1_, a2_, a1_, n_] :> 
  S2[a3, a4, n]*S2[a1, a2, a1, a5, n] - S2[a1, a2, SP[a1, a3], SP[a4, a5], 
     n] + S2[a1, a2, n]*S2[a1, a4, a3, a5, n] + 
    S2[a1, a2, n]*S2[a1, a4, a5, a3, n] - S2[a1, a4, SP[a1, a3], SP[a2, a5], 
     n] - S2[a1, a4, SP[a1, a5], SP[a2, a3], n] + 
    S2[a1, a2, n]*S2[a1, a5, a4, a3, n] - S2[a1, a5, SP[a1, a4], SP[a2, a3], 
     n] - S2[a1, SP[a1, a4], a3, SP[a2, a5], n] - S2[a1, SP[a1, a4], a5, 
     SP[a2, a3], n] - S2[a1, SP[a1, a4], SP[a2, a3], a5, n] - 
    S2[a1, SP[a1, a4], SP[a2, a5], a3, n] - S2[a1, SP[a1, a5], a4, 
     SP[a2, a3], n] - S2[a1, SP[a1, a5], SP[a2, a4], a3, n] - 
    S2[a1, SP[a2, a3], a1, SP[a4, a5], n] - S2[a1, SP[a2, a3], SP[a1, a4], 
     a5, n] - S2[a1, a2, n]*S2[a3, a4, a1, a5, n] + 
    S2[a3, a4, SP[a1, a1], SP[a2, a5], n] + S2[a3, SP[a1, a4], a1, 
     SP[a2, a5], n] + S2[a3, SP[a1, a4], SP[a1, a2], a5, n] - 
    S2[SP[a1, a1], a4, a3, SP[a2, a5], n] - S2[SP[a1, a1], a4, a5, 
     SP[a2, a3], n] - S2[SP[a1, a1], a4, SP[a2, a3], a5, n] - 
    S2[SP[a1, a1], a4, SP[a2, a5], a3, n] - S2[SP[a1, a1], a5, a4, 
     SP[a2, a3], n] - S2[SP[a1, a1], a5, SP[a2, a4], a3, n] - 
    S2[SP[a1, a1], SP[a2, a4], a3, a5, n] - S2[SP[a1, a1], SP[a2, a4], a5, 
     a3, n] - S2[SP[a1, a1], SP[a2, a5], a4, a3, n] - 
    S2[SP[a1, a3], a2, a1, SP[a4, a5], n] - S2[SP[a1, a3], a2, SP[a1, a4], 
     a5, n] + S2[SP[a1, a3], a4, a1, SP[a2, a5], n] + 
    S2[SP[a1, a3], a4, SP[a1, a2], a5, n] - 
    2*S2[a5, n]*S2[a1, a1, a2, a4, a3, n] - 
    2*S2[a1, a1, a2, a4, SP[a3, a5], n] - 
    2*S2[a1, a1, a2, SP[a4, a5], a3, n] - 
    2*S2[a5, n]*S2[a1, a1, a4, a2, a3, n] - 
    2*S2[a1, a1, a4, a2, SP[a3, a5], n] - 
    2*S2[a5, n]*S2[a1, a1, a4, a3, a2, n] + 
    2*S2[a1, a1, a4, a5, SP[a2, a3], n] + 
    2*S2[a1, a1, a4, SP[a2, a3], a5, n] - 
    2*S2[a1, a1, a4, SP[a3, a5], a2, n] + 
    2*S2[a1, a1, a5, a4, SP[a2, a3], n] + 
    2*S2[a1, a1, a5, SP[a2, a4], a3, n] + 
    2*S2[a1, a1, SP[a2, a4], a3, a5, n] + 
    2*S2[a1, a1, SP[a2, a4], a5, a3, n] - 
    2*S2[a1, a1, SP[a4, a5], a2, a3, n] - 
    2*S2[a1, a1, SP[a4, a5], a3, a2, n] + S2[a1, a2, a1, a3, SP[a4, a5], n] - 
    S2[a3, n]*S2[a1, a2, a1, a4, a5, n] - S2[a1, a2, a1, a4, SP[a3, a5], n] - 
    S2[a3, n]*S2[a1, a2, a1, a5, a4, n] - S2[a1, a2, a1, a5, SP[a3, a4], n] - 
    S2[a1, a2, a1, SP[a3, a4], a5, n] + S2[a1, a2, a3, a1, SP[a4, a5], n] + 
    S2[a1, a2, a3, SP[a1, a4], a5, n] + S2[a1, a3, a2, a1, SP[a4, a5], n] + 
    S2[a1, a3, a2, SP[a1, a4], a5, n] - S2[a1, a3, a4, a1, SP[a2, a5], n] - 
    S2[a1, a3, a4, SP[a1, a2], a5, n] - 2*S2[a5, n]*
     S2[a1, a4, a1, a2, a3, n] + S2[a3, n]*S2[a1, a4, a1, a2, a5, n] - 
    S2[a1, a4, a1, a2, SP[a3, a5], n] - 2*S2[a5, n]*
     S2[a1, a4, a1, a3, a2, n] - S2[a1, a4, a1, a3, SP[a2, a5], n] + 
    S2[a3, n]*S2[a1, a4, a1, a5, a2, n] + 
    2*S2[a1, a4, a1, a5, SP[a2, a3], n] + 
    2*S2[a1, a4, a1, SP[a2, a3], a5, n] - S2[a1, a4, a1, SP[a2, a5], a3, n] - 
    S2[a1, a4, a1, SP[a3, a5], a2, n] - 2*S2[a5, n]*
     S2[a1, a4, a3, a1, a2, n] - S2[a1, a4, a3, a1, SP[a2, a5], n] - 
    S2[a1, a4, a3, SP[a1, a5], a2, n] + S2[a1, a4, a5, a1, SP[a2, a3], n] + 
    S2[a1, a4, a5, SP[a1, a3], a2, n] + 2*S2[a1, a4, SP[a1, a3], a2, a5, n] + 
    2*S2[a1, a4, SP[a1, a3], a5, a2, n] - S2[a1, a4, SP[a1, a5], a2, a3, n] - 
    S2[a1, a4, SP[a1, a5], a3, a2, n] - 2*S2[a1, a4, SP[a3, a5], a1, a2, n] + 
    S2[a4, n]*S2[a1, a5, a1, a2, a3, n] + S2[a1, a5, a1, a2, SP[a3, a4], n] + 
    S2[a4, n]*S2[a1, a5, a1, a3, a2, n] + S2[a1, a5, a1, a3, SP[a2, a4], n] + 
    S2[a1, a5, a1, a4, SP[a2, a3], n] + 2*S2[a1, a5, a1, SP[a2, a4], a3, n] + 
    S2[a1, a5, a1, SP[a3, a4], a2, n] + S2[a4, n]*S2[a1, a5, a3, a1, a2, n] + 
    S2[a1, a5, a3, a1, SP[a2, a4], n] + S2[a1, a5, a3, SP[a1, a4], a2, n] + 
    S2[a1, a5, a4, a1, SP[a2, a3], n] + S2[a1, a5, a4, SP[a1, a3], a2, n] + 
    2*S2[a1, a5, SP[a1, a4], a2, a3, n] + 
    2*S2[a1, a5, SP[a1, a4], a3, a2, n] + S2[a1, a5, SP[a3, a4], a1, a2, n] + 
    S2[a1, SP[a1, a2], a4, a3, a5, n] + S2[a1, SP[a1, a2], a4, a5, a3, n] + 
    S2[a1, SP[a1, a2], a5, a4, a3, n] + S2[a1, SP[a1, a4], a2, a3, a5, n] + 
    S2[a1, SP[a1, a4], a2, a5, a3, n] + S2[a1, SP[a1, a4], a3, a2, a5, n] + 
    S2[a1, SP[a1, a4], a3, a5, a2, n] + S2[a1, SP[a1, a4], a5, a2, a3, n] + 
    S2[a1, SP[a1, a4], a5, a3, a2, n] - S2[a1, SP[a1, a5], a2, a4, a3, n] - 
    S2[a1, SP[a1, a5], a4, a2, a3, n] - S2[a1, SP[a1, a5], a4, a3, a2, n] + 
    S2[a1, SP[a3, a4], a1, a2, a5, n] + S2[a1, SP[a3, a4], a1, a5, a2, n] - 
    S2[a1, SP[a4, a5], a1, a2, a3, n] - S2[a1, SP[a4, a5], a1, a3, a2, n] - 
    S2[a1, SP[a4, a5], a3, a1, a2, n] + S2[a3, a1, a2, a1, SP[a4, a5], n] + 
    S2[a3, a1, a2, SP[a1, a4], a5, n] - S2[a3, a1, a4, a1, SP[a2, a5], n] - 
    S2[a3, a1, a4, SP[a1, a2], a5, n] + 2*S2[a5, n]*
     S2[a3, a4, a1, a1, a2, n] - S2[a3, a4, a1, SP[a1, a2], a5, n] + 
    S2[a3, a4, a1, SP[a1, a5], a2, n] - S2[a3, a4, SP[a1, a1], a2, a5, n] - 
    S2[a3, a4, SP[a1, a1], a5, a2, n] + 2*S2[a3, a4, SP[a1, a5], a1, a2, n] - 
    2*S2[a4, n]*S2[a3, a5, a1, a1, a2, n] - 
    2*S2[a3, a5, a1, a1, SP[a2, a4], n] - 
    2*S2[a3, a5, a1, SP[a1, a4], a2, n] - 
    2*S2[a3, a5, SP[a1, a4], a1, a2, n] - S2[a3, SP[a1, a4], a1, a2, a5, n] - 
    S2[a3, SP[a1, a4], a1, a5, a2, n] - S2[a3, n]*S2[a4, a1, a5, a1, a2, n] - 
    S2[a4, a1, a5, a1, SP[a2, a3], n] - S2[a4, a1, a5, SP[a1, a3], a2, n] - 
    S2[a4, a1, SP[a3, a5], a1, a2, n] + S2[a1, n]*S2[a4, a3, a5, a1, a2, n] + 
    S2[a4, a3, a5, a1, SP[a1, a2], n] + S2[a4, a3, a5, SP[a1, a1], a2, n] + 
    S2[a4, a3, SP[a1, a5], a1, a2, n] + 2*S2[a3, n]*
     S2[a5, a1, a1, a2, a4, n] + 2*S2[a5, a1, a1, a2, SP[a3, a4], n] + 
    2*S2[a3, n]*S2[a5, a1, a1, a4, a2, n] + 
    2*S2[a5, a1, a1, a4, SP[a2, a3], n] + 
    2*S2[a5, a1, a1, SP[a2, a3], a4, n] + 
    2*S2[a5, a1, a1, SP[a3, a4], a2, n] - 
    S2[a1, n]*S2[a5, a1, a2, a3, a4, n] - S2[a5, a1, a2, a3, SP[a1, a4], n] - 
    S2[a5, a1, a2, SP[a1, a3], a4, n] - S2[a1, n]*S2[a5, a1, a3, a2, a4, n] - 
    S2[a5, a1, a3, a2, SP[a1, a4], n] - S2[a1, n]*S2[a5, a1, a3, a4, a2, n] - 
    S2[a5, a1, a3, a4, SP[a1, a2], n] - S2[a5, a1, a3, SP[a1, a2], a4, n] - 
    S2[a5, a1, a3, SP[a1, a4], a2, n] + 2*S2[a3, n]*
     S2[a5, a1, a4, a1, a2, n] + 2*S2[a5, a1, a4, a1, SP[a2, a3], n] + 
    2*S2[a5, a1, a4, SP[a1, a3], a2, n] - S2[a5, a1, SP[a1, a2], a3, a4, n] + 
    S2[a5, a1, SP[a1, a3], a2, a4, n] + S2[a5, a1, SP[a1, a3], a4, a2, n] + 
    2*S2[a5, a1, SP[a3, a4], a1, a2, n] - 
    S2[a1, n]*S2[a5, a3, a1, a2, a4, n] - S2[a5, a3, a1, a2, SP[a1, a4], n] - 
    S2[a1, n]*S2[a5, a3, a1, a4, a2, n] - S2[a5, a3, a1, a4, SP[a1, a2], n] - 
    S2[a5, a3, a1, SP[a1, a2], a4, n] - S2[a5, a3, a1, SP[a1, a4], a2, n] - 
    S2[a1, n]*S2[a5, a3, a4, a1, a2, n] - S2[a5, a3, a4, a1, SP[a1, a2], n] - 
    S2[a5, a3, a4, SP[a1, a1], a2, n] - S2[a5, a3, SP[a1, a1], a2, a4, n] - 
    S2[a5, a3, SP[a1, a1], a4, a2, n] - S2[a5, a3, SP[a1, a4], a1, a2, n] - 
    S2[a5, SP[a1, a1], a2, a3, a4, n] - S2[a5, SP[a1, a1], a3, a2, a4, n] - 
    S2[a5, SP[a1, a1], a3, a4, a2, n] + S2[a5, SP[a1, a3], a1, a2, a4, n] + 
    S2[a5, SP[a1, a3], a1, a4, a2, n] + S2[a5, SP[a1, a3], a4, a1, a2, n] + 
    S2[SP[a1, a1], a2, a4, a3, a5, n] + S2[SP[a1, a1], a2, a4, a5, a3, n] + 
    S2[SP[a1, a1], a2, a5, a4, a3, n] + S2[SP[a1, a1], a4, a2, a3, a5, n] + 
    S2[SP[a1, a1], a4, a2, a5, a3, n] + S2[SP[a1, a1], a4, a3, a2, a5, n] + 
    S2[SP[a1, a1], a4, a3, a5, a2, n] + S2[SP[a1, a1], a4, a5, a2, a3, n] + 
    S2[SP[a1, a1], a4, a5, a3, a2, n] + S2[SP[a1, a1], a5, a2, a4, a3, n] + 
    S2[SP[a1, a1], a5, a4, a2, a3, n] + S2[SP[a1, a1], a5, a4, a3, a2, n] + 
    S2[SP[a1, a4], a3, a5, a1, a2, n] + S2[SP[a1, a4], a5, a1, a2, a3, n] + 
    S2[SP[a1, a4], a5, a1, a3, a2, n] + S2[SP[a1, a4], a5, a3, a1, a2, n] - 
    S2[SP[a1, a5], a1, a2, a3, a4, n] - 2*S2[SP[a1, a5], a1, a2, a4, a3, n] - 
    S2[SP[a1, a5], a1, a3, a2, a4, n] - S2[SP[a1, a5], a1, a3, a4, a2, n] - 
    2*S2[SP[a1, a5], a1, a4, a2, a3, n] - 
    2*S2[SP[a1, a5], a1, a4, a3, a2, n] - S2[SP[a1, a5], a3, a1, a2, a4, n] - 
    S2[SP[a1, a5], a3, a1, a4, a2, n] - S2[SP[a1, a5], a3, a4, a1, a2, n] - 
    2*S2[SP[a1, a5], a4, a1, a2, a3, n] - 
    2*S2[SP[a1, a5], a4, a1, a3, a2, n] - 
    2*S2[SP[a1, a5], a4, a3, a1, a2, n] - S2[SP[a3, a4], a1, a5, a1, a2, n] - 
    2*S2[SP[a3, a4], a5, a1, a1, a2, n] + 
    2*S2[SP[a3, a5], a1, a1, a2, a4, n] + 
    2*S2[SP[a3, a5], a1, a1, a4, a2, n] + 
    2*S2[SP[a3, a5], a1, a4, a1, a2, n] + 
    2*S2[SP[a3, a5], a4, a1, a1, a2, n] + S2[a5, a1, a2, a1, a3, a4, n] + 
    S2[a5, a1, a2, a3, a1, a4, n] + S2[a5, a1, a2, a3, a4, a1, n] + 
    S2[a5, a1, a3, a2, a1, a4, n] + S2[a5, a1, a3, a2, a4, a1, n] + 
    S2[a5, a1, a3, a4, a2, a1, n] + S2[a5, a3, a1, a2, a1, a4, n] + 
    S2[a5, a3, a1, a2, a4, a1, n] + S2[a5, a3, a1, a4, a2, a1, n] + 
    S2[a5, a3, a4, a1, a2, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a4_, a3_, a5_, a2_, a1_, a1_, n_] :> 
  S2[a3, a4, n]*S2[a1, a1, a2, a5, n] - S2[a1, a1, SP[a2, a3], SP[a4, a5], 
     n] - S2[a1, SP[a1, a3], a2, SP[a4, a5], n] - 
    S2[a1, SP[a1, a3], SP[a2, a4], a5, n] - S2[SP[a1, a3], a1, a2, 
     SP[a4, a5], n] - S2[SP[a1, a3], a1, SP[a2, a4], a5, n] - 
    S2[SP[a1, a3], SP[a1, a4], a2, a5, n] + S2[a1, a1, a2, a3, SP[a4, a5], 
     n] + S2[a5, n]*S2[a1, a1, a2, a4, a3, n] - 
    S2[a3, n]*S2[a1, a1, a2, a4, a5, n] - 
    S2[a3, n]*S2[a1, a1, a2, a5, a4, n] - S2[a1, a1, a2, a5, SP[a3, a4], n] - 
    S2[a1, a1, a2, SP[a3, a4], a5, n] + S2[a1, a1, a2, SP[a4, a5], a3, n] + 
    S2[a1, a1, a3, a2, SP[a4, a5], n] + S2[a1, a1, a3, SP[a2, a4], a5, n] + 
    S2[a5, n]*S2[a1, a1, a4, a2, a3, n] - 
    S2[a3, n]*S2[a1, a1, a4, a2, a5, n] + 
    S2[a5, n]*S2[a1, a1, a4, a3, a2, n] + S2[a1, a1, a4, a3, SP[a2, a5], n] - 
    S2[a1, a1, a4, SP[a2, a3], a5, n] + S2[a1, a1, a4, SP[a2, a5], a3, n] + 
    S2[a1, a1, a4, SP[a3, a5], a2, n] - S2[a4, n]*S2[a1, a1, a5, a2, a3, n] - 
    S2[a1, a1, a5, a2, SP[a3, a4], n] - S2[a4, n]*S2[a1, a1, a5, a3, a2, n] - 
    S2[a1, a1, a5, a3, SP[a2, a4], n] - S2[a1, a1, a5, SP[a2, a4], a3, n] - 
    S2[a1, a1, a5, SP[a3, a4], a2, n] + S2[a1, a1, SP[a2, a5], a4, a3, n] - 
    S2[a1, a1, SP[a3, a4], a2, a5, n] + S2[a1, a3, a1, a2, SP[a4, a5], n] + 
    S2[a1, a3, a1, SP[a2, a4], a5, n] + S2[a1, a3, SP[a1, a4], a2, a5, n] + 
    S2[a5, n]*S2[a1, a4, a1, a2, a3, n] - 
    S2[a3, n]*S2[a1, a4, a1, a2, a5, n] + 
    S2[a5, n]*S2[a1, a4, a1, a3, a2, n] + S2[a1, a4, a1, a3, SP[a2, a5], n] - 
    S2[a1, a4, a1, SP[a2, a3], a5, n] + S2[a1, a4, a1, SP[a2, a5], a3, n] + 
    S2[a1, a4, a1, SP[a3, a5], a2, n] + S2[a5, n]*S2[a1, a4, a3, a1, a2, n] + 
    S2[a1, a4, a3, a1, SP[a2, a5], n] - (S2[a1, n]*S2[a1, a4, a3, a5, a2, n])/
     2 - S2[a1, a4, a3, a5, SP[a1, a2], n]/2 + 
    S2[a1, a4, a3, SP[a1, a5], a2, n]/2 - S2[a1, a4, SP[a1, a3], a2, a5, n] - 
    S2[a1, a4, SP[a1, a3], a5, a2, n]/2 + S2[a1, a4, SP[a1, a5], a2, a3, n] + 
    S2[a1, a4, SP[a1, a5], a3, a2, n] + S2[a1, a4, SP[a3, a5], a1, a2, n] - 
    S2[a4, n]*S2[a1, a5, a1, a2, a3, n] - S2[a1, a5, a1, a2, SP[a3, a4], n] - 
    S2[a4, n]*S2[a1, a5, a1, a3, a2, n] - S2[a1, a5, a1, a3, SP[a2, a4], n] - 
    S2[a1, a5, a1, SP[a2, a4], a3, n] - S2[a1, a5, a1, SP[a3, a4], a2, n] + 
    (S2[a1, n]*S2[a1, a5, a2, a3, a4, n])/2 + 
    S2[a1, a5, a2, a3, SP[a1, a4], n]/2 + S2[a1, a5, a2, SP[a1, a3], a4, n]/
     2 - S2[a4, n]*S2[a1, a5, a3, a1, a2, n] - S2[a1, a5, a3, a1, SP[a2, a4], 
     n] + (S2[a1, n]*S2[a1, a5, a3, a2, a4, n])/2 + 
    S2[a1, a5, a3, a2, SP[a1, a4], n]/2 + 
    (S2[a1, n]*S2[a1, a5, a3, a4, a2, n])/2 + 
    S2[a1, a5, a3, a4, SP[a1, a2], n]/2 + S2[a1, a5, a3, SP[a1, a2], a4, n]/
     2 - S2[a1, a5, a3, SP[a1, a4], a2, n]/2 + 
    S2[a1, a5, SP[a1, a2], a3, a4, n]/2 + S2[a1, a5, SP[a1, a3], a2, a4, n]/
     2 + S2[a1, a5, SP[a1, a3], a4, a2, n]/2 - S2[a1, a5, SP[a1, a4], a2, a3, 
     n] - S2[a1, a5, SP[a1, a4], a3, a2, n] - S2[a1, a5, SP[a3, a4], a1, a2, 
     n] - S2[a1, SP[a1, a4], a3, a5, a2, n]/2 - S2[a1, SP[a1, a4], a5, a2, 
     a3, n] - S2[a1, SP[a1, a4], a5, a3, a2, n] + 
    S2[a1, SP[a1, a5], a2, a3, a4, n]/2 + S2[a1, SP[a1, a5], a2, a4, a3, n] + 
    S2[a1, SP[a1, a5], a3, a2, a4, n]/2 + S2[a1, SP[a1, a5], a3, a4, a2, n]/
     2 + S2[a1, SP[a1, a5], a4, a2, a3, n] + S2[a1, SP[a1, a5], a4, a3, a2, 
     n] - S2[a1, SP[a3, a4], a1, a2, a5, n] + S2[a3, a1, a1, a2, SP[a4, a5], 
     n] + S2[a3, a1, a1, SP[a2, a4], a5, n] + S2[a3, a1, SP[a1, a4], a2, a5, 
     n] - S2[a5, n]*S2[a3, a4, a1, a1, a2, n] - S2[a3, a4, a1, a1, 
     SP[a2, a5], n] - S2[a3, a4, a1, SP[a1, a5], a2, n] - 
    S2[a3, a4, SP[a1, a5], a1, a2, n] + S2[a4, n]*S2[a3, a5, a1, a1, a2, n] + 
    S2[a3, a5, a1, a1, SP[a2, a4], n] + S2[a3, a5, a1, SP[a1, a4], a2, n] + 
    S2[a3, a5, SP[a1, a4], a1, a2, n] + S2[a3, SP[a1, a4], a1, a2, a5, n] + 
    S2[a3, n]*S2[a4, a1, a1, a5, a2, n] + S2[a4, a1, a1, a5, SP[a2, a3], n] + 
    S2[a4, a1, a1, SP[a3, a5], a2, n] - (S2[a1, n]*S2[a4, a1, a3, a5, a2, n])/
     2 - S2[a4, a1, a3, a5, SP[a1, a2], n]/2 - 
    S2[a4, a1, a3, SP[a1, a5], a2, n]/2 + 
    S2[a3, n]*S2[a4, a1, a5, a1, a2, n] + S2[a4, a1, a5, a1, SP[a2, a3], n] + 
    S2[a4, a1, a5, SP[a1, a3], a2, n] + S2[a4, a1, SP[a1, a3], a5, a2, n]/2 + 
    S2[a4, a1, SP[a3, a5], a1, a2, n] - (S2[a1, n]*S2[a4, a3, a1, a5, a2, n])/
     2 - S2[a4, a3, a1, a5, SP[a1, a2], n]/2 - 
    S2[a4, a3, a1, SP[a1, a5], a2, n]/2 - 
    (S2[a1, n]*S2[a4, a3, a5, a1, a2, n])/2 - 
    S2[a4, a3, a5, a1, SP[a1, a2], n]/2 + 
    (S2[a1, n]*S2[a4, a3, a5, a2, a1, n])/2 + 
    S2[a4, a3, a5, a2, SP[a1, a1], n]/2 - S2[a4, a3, a5, SP[a1, a1], a2, n]/
     2 + S2[a4, a3, a5, SP[a1, a2], a1, n]/2 - 
    S2[a4, a3, SP[a1, a1], a5, a2, n]/2 - S2[a4, a3, SP[a1, a5], a1, a2, n]/
     2 + S2[a4, a3, SP[a1, a5], a2, a1, n]/2 - 
    S2[a4, SP[a1, a1], a3, a5, a2, n]/2 + S2[a4, SP[a1, a3], a1, a5, a2, n]/
     2 + S2[a4, SP[a1, a3], a5, a1, a2, n]/2 + 
    S2[a4, SP[a1, a3], a5, a2, a1, n]/2 - 
    S2[a3, n]*S2[a5, a1, a1, a2, a4, n] - S2[a5, a1, a1, a2, SP[a3, a4], n] - 
    S2[a3, n]*S2[a5, a1, a1, a4, a2, n] - S2[a5, a1, a1, a4, SP[a2, a3], n] - 
    S2[a5, a1, a1, SP[a2, a3], a4, n] - S2[a5, a1, a1, SP[a3, a4], a2, n] + 
    (S2[a1, n]*S2[a5, a1, a2, a3, a4, n])/2 + 
    S2[a5, a1, a2, a3, SP[a1, a4], n]/2 + S2[a5, a1, a2, SP[a1, a3], a4, n]/
     2 + (S2[a1, n]*S2[a5, a1, a3, a2, a4, n])/2 + 
    S2[a5, a1, a3, a2, SP[a1, a4], n]/2 + 
    (S2[a1, n]*S2[a5, a1, a3, a4, a2, n])/2 + 
    S2[a5, a1, a3, a4, SP[a1, a2], n]/2 + S2[a5, a1, a3, SP[a1, a2], a4, n]/
     2 + S2[a5, a1, a3, SP[a1, a4], a2, n]/2 - 
    S2[a3, n]*S2[a5, a1, a4, a1, a2, n] - S2[a5, a1, a4, a1, SP[a2, a3], n] - 
    S2[a5, a1, a4, SP[a1, a3], a2, n] + S2[a5, a1, SP[a1, a2], a3, a4, n]/2 - 
    S2[a5, a1, SP[a1, a3], a2, a4, n]/2 - S2[a5, a1, SP[a1, a3], a4, a2, n]/
     2 - S2[a5, a1, SP[a3, a4], a1, a2, n] - 
    (S2[a1, n]*S2[a5, a2, a1, a3, a4, n])/2 - 
    S2[a5, a2, a1, a3, SP[a1, a4], n]/2 - S2[a5, a2, a1, SP[a1, a3], a4, n]/
     2 - (S2[a1, n]*S2[a5, a2, a3, a1, a4, n])/2 - 
    S2[a5, a2, a3, a1, SP[a1, a4], n]/2 - 
    (S2[a1, n]*S2[a5, a2, a3, a4, a1, n])/2 - 
    S2[a5, a2, a3, a4, SP[a1, a1], n]/2 - S2[a5, a2, a3, SP[a1, a1], a4, n]/
     2 - S2[a5, a2, a3, SP[a1, a4], a1, n]/2 - 
    S2[a5, a2, SP[a1, a1], a3, a4, n]/2 - S2[a5, a2, SP[a1, a3], a1, a4, n]/
     2 - S2[a5, a2, SP[a1, a3], a4, a1, n]/2 + 
    (S2[a1, n]*S2[a5, a3, a1, a2, a4, n])/2 + 
    S2[a5, a3, a1, a2, SP[a1, a4], n]/2 + 
    (S2[a1, n]*S2[a5, a3, a1, a4, a2, n])/2 + 
    S2[a5, a3, a1, a4, SP[a1, a2], n]/2 + S2[a5, a3, a1, SP[a1, a2], a4, n]/
     2 + S2[a5, a3, a1, SP[a1, a4], a2, n]/2 - 
    (S2[a1, n]*S2[a5, a3, a2, a1, a4, n])/2 - 
    S2[a5, a3, a2, a1, SP[a1, a4], n]/2 - 
    (S2[a1, n]*S2[a5, a3, a2, a4, a1, n])/2 - 
    S2[a5, a3, a2, a4, SP[a1, a1], n]/2 - S2[a5, a3, a2, SP[a1, a1], a4, n]/
     2 - S2[a5, a3, a2, SP[a1, a4], a1, n]/2 + 
    (S2[a1, n]*S2[a5, a3, a4, a1, a2, n])/2 + 
    S2[a5, a3, a4, a1, SP[a1, a2], n]/2 - 
    (S2[a1, n]*S2[a5, a3, a4, a2, a1, n])/2 - 
    S2[a5, a3, a4, a2, SP[a1, a1], n]/2 + S2[a5, a3, a4, SP[a1, a1], a2, n]/
     2 - S2[a5, a3, a4, SP[a1, a2], a1, n]/2 + 
    S2[a5, a3, SP[a1, a1], a2, a4, n]/2 + S2[a5, a3, SP[a1, a1], a4, a2, n]/
     2 - S2[a5, a3, SP[a1, a2], a1, a4, n]/2 - 
    S2[a5, a3, SP[a1, a2], a4, a1, n]/2 + S2[a5, a3, SP[a1, a4], a1, a2, n]/
     2 - S2[a5, a3, SP[a1, a4], a2, a1, n]/2 + 
    S2[a5, SP[a1, a1], a2, a3, a4, n]/2 + S2[a5, SP[a1, a1], a3, a2, a4, n]/
     2 + S2[a5, SP[a1, a1], a3, a4, a2, n]/2 - 
    S2[a5, SP[a1, a2], a1, a3, a4, n]/2 - S2[a5, SP[a1, a2], a3, a1, a4, n]/
     2 - S2[a5, SP[a1, a2], a3, a4, a1, n]/2 - 
    S2[a5, SP[a1, a3], a1, a2, a4, n]/2 - S2[a5, SP[a1, a3], a1, a4, a2, n]/
     2 - S2[a5, SP[a1, a3], a2, a1, a4, n]/2 - 
    S2[a5, SP[a1, a3], a2, a4, a1, n]/2 - S2[a5, SP[a1, a3], a4, a1, a2, n]/
     2 - S2[a5, SP[a1, a3], a4, a2, a1, n]/2 - 
    S2[SP[a1, a1], a4, a3, a5, a2, n]/2 + S2[SP[a1, a1], a5, a2, a3, a4, n]/
     2 + S2[SP[a1, a1], a5, a3, a2, a4, n]/2 + 
    S2[SP[a1, a1], a5, a3, a4, a2, n]/2 - S2[SP[a1, a4], a1, a3, a5, a2, n]/
     2 - S2[SP[a1, a4], a1, a5, a2, a3, n] - S2[SP[a1, a4], a1, a5, a3, a2, 
     n] - S2[SP[a1, a4], a3, a1, a5, a2, n]/2 - 
    S2[SP[a1, a4], a3, a5, a1, a2, n]/2 + S2[SP[a1, a4], a3, a5, a2, a1, n]/
     2 - S2[SP[a1, a4], a5, a1, a2, a3, n] - S2[SP[a1, a4], a5, a1, a3, a2, 
     n] - S2[SP[a1, a4], a5, a3, a1, a2, n] + 
    S2[SP[a1, a5], a1, a2, a3, a4, n]/2 + S2[SP[a1, a5], a1, a2, a4, a3, n] + 
    S2[SP[a1, a5], a1, a3, a2, a4, n]/2 + S2[SP[a1, a5], a1, a3, a4, a2, n]/
     2 + S2[SP[a1, a5], a1, a4, a2, a3, n] + S2[SP[a1, a5], a1, a4, a3, a2, 
     n] - S2[SP[a1, a5], a2, a1, a3, a4, n]/2 - 
    S2[SP[a1, a5], a2, a3, a1, a4, n]/2 - S2[SP[a1, a5], a2, a3, a4, a1, n]/
     2 + S2[SP[a1, a5], a3, a1, a2, a4, n]/2 + 
    S2[SP[a1, a5], a3, a1, a4, a2, n]/2 - S2[SP[a1, a5], a3, a2, a1, a4, n]/
     2 - S2[SP[a1, a5], a3, a2, a4, a1, n]/2 + 
    S2[SP[a1, a5], a3, a4, a1, a2, n]/2 - S2[SP[a1, a5], a3, a4, a2, a1, n]/
     2 + S2[SP[a1, a5], a4, a1, a2, a3, n] + S2[SP[a1, a5], a4, a1, a3, a2, 
     n] + S2[SP[a1, a5], a4, a3, a1, a2, n] + S2[SP[a3, a4], a1, a1, a5, a2, 
     n] + S2[SP[a3, a4], a1, a5, a1, a2, n] + S2[SP[a3, a4], a5, a1, a1, a2, 
     n] - S2[SP[a3, a5], a1, a1, a2, a4, n] - S2[SP[a3, a5], a1, a1, a4, a2, 
     n] - S2[SP[a3, a5], a1, a4, a1, a2, n] - S2[SP[a3, a5], a4, a1, a1, a2, 
     n] + S2[a5, a2, a1, a1, a3, a4, n] + S2[a5, a2, a1, a3, a1, a4, n] + 
    S2[a5, a2, a1, a3, a4, a1, n] + S2[a5, a2, a3, a1, a1, a4, n] + 
    S2[a5, a2, a3, a1, a4, a1, n] + S2[a5, a2, a3, a4, a1, a1, n] + 
    S2[a5, a3, a2, a1, a1, a4, n] + S2[a5, a3, a2, a1, a4, a1, n] + 
    S2[a5, a3, a2, a4, a1, a1, n] + S2[a5, a3, a4, a2, a1, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a4_, a5_, a1_, a1_, a2_, a3_, n_] :> 
  S2[a4, n]*S2[a5, a1, a1, a2, a3, n] + S2[a5, a1, a1, a2, SP[a3, a4], n] + 
    S2[a5, a1, a1, SP[a2, a4], a3, n] + S2[a5, a1, SP[a1, a4], a2, a3, n] + 
    S2[a5, SP[a1, a4], a1, a2, a3, n] + S2[SP[a4, a5], a1, a1, a2, a3, n] - 
    S2[a5, a1, a1, a2, a3, a4, n] - S2[a5, a1, a1, a2, a4, a3, n] - 
    S2[a5, a1, a1, a4, a2, a3, n] - S2[a5, a1, a4, a1, a2, a3, n] - 
    S2[a5, a4, a1, a1, a2, a3, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a4_, a5_, a1_, a1_, a3_, a2_, n_] :> 
  S2[a4, n]*S2[a5, a1, a1, a3, a2, n] + S2[a5, a1, a1, a3, SP[a2, a4], n] + 
    S2[a5, a1, a1, SP[a3, a4], a2, n] + S2[a5, a1, SP[a1, a4], a3, a2, n] + 
    S2[a5, SP[a1, a4], a1, a3, a2, n] + S2[SP[a4, a5], a1, a1, a3, a2, n] - 
    S2[a5, a1, a1, a3, a2, a4, n] - S2[a5, a1, a1, a3, a4, a2, n] - 
    S2[a5, a1, a1, a4, a3, a2, n] - S2[a5, a1, a4, a1, a3, a2, n] - 
    S2[a5, a4, a1, a1, a3, a2, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a4_, a5_, a1_, a2_, a1_, a3_, n_] :> 
  S2[a4, n]*S2[a5, a1, a2, a1, a3, n] + S2[a5, a1, a2, a1, SP[a3, a4], n] + 
    S2[a5, a1, a2, SP[a1, a4], a3, n] + S2[a5, a1, SP[a2, a4], a1, a3, n] + 
    S2[a5, SP[a1, a4], a2, a1, a3, n] + S2[SP[a4, a5], a1, a2, a1, a3, n] - 
    S2[a5, a1, a2, a1, a3, a4, n] - S2[a5, a1, a2, a1, a4, a3, n] - 
    S2[a5, a1, a2, a4, a1, a3, n] - S2[a5, a1, a4, a2, a1, a3, n] - 
    S2[a5, a4, a1, a2, a1, a3, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a4_, a5_, a1_, a2_, a3_, a1_, n_] :> 
  -(S2[a4, n]*S2[a1, a5, a1, a2, a3, n]) - S2[a1, a5, a1, a2, SP[a3, a4], 
     n] - S2[a1, a5, a1, SP[a2, a4], a3, n] - S2[a1, a5, SP[a1, a4], a2, a3, 
     n] - S2[a1, SP[a4, a5], a1, a2, a3, n] + 
    S2[a1, n]*S2[a4, a5, a1, a2, a3, n] + S2[a4, a5, a1, a2, SP[a1, a3], n] + 
    S2[a4, a5, a1, SP[a1, a2], a3, n] + S2[a4, a5, SP[a1, a1], a2, a3, n] + 
    S2[a4, SP[a1, a5], a1, a2, a3, n] - 2*S2[a4, n]*
     S2[a5, a1, a1, a2, a3, n] - 2*S2[a5, a1, a1, a2, SP[a3, a4], n] - 
    2*S2[a5, a1, a1, SP[a2, a4], a3, n] - 
    S2[a4, n]*S2[a5, a1, a2, a1, a3, n] - S2[a5, a1, a2, a1, SP[a3, a4], n] + 
    S2[a1, n]*S2[a5, a1, a2, a3, a4, n] + S2[a5, a1, a2, a3, SP[a1, a4], n] + 
    S2[a1, n]*S2[a5, a1, a2, a4, a3, n] + S2[a5, a1, a2, a4, SP[a1, a3], n] + 
    S2[a5, a1, a2, SP[a1, a3], a4, n] + S2[a1, n]*S2[a5, a1, a4, a2, a3, n] + 
    S2[a5, a1, a4, a2, SP[a1, a3], n] + S2[a5, a1, a4, SP[a1, a2], a3, n] + 
    S2[a5, a1, SP[a1, a2], a3, a4, n] + S2[a5, a1, SP[a1, a2], a4, a3, n] - 
    S2[a5, a1, SP[a1, a4], a2, a3, n] - S2[a5, a1, SP[a2, a4], a1, a3, n] + 
    S2[a1, n]*S2[a5, a4, a1, a2, a3, n] + S2[a5, a4, a1, a2, SP[a1, a3], n] + 
    S2[a5, a4, a1, SP[a1, a2], a3, n] + S2[a5, a4, SP[a1, a1], a2, a3, n] + 
    S2[a5, SP[a1, a1], a2, a3, a4, n] + S2[a5, SP[a1, a1], a2, a4, a3, n] + 
    S2[a5, SP[a1, a1], a4, a2, a3, n] - S2[a5, SP[a1, a4], a1, a2, a3, n] - 
    S2[a5, SP[a1, a4], a2, a1, a3, n] + S2[SP[a1, a5], a1, a2, a3, a4, n] + 
    S2[SP[a1, a5], a1, a2, a4, a3, n] + S2[SP[a1, a5], a1, a4, a2, a3, n] + 
    S2[SP[a1, a5], a4, a1, a2, a3, n] - 2*S2[SP[a4, a5], a1, a1, a2, a3, n] - 
    S2[SP[a4, a5], a1, a2, a1, a3, n] - S2[a5, a1, a2, a3, a1, a4, n] - 
    S2[a5, a1, a2, a3, a4, a1, n] - S2[a5, a1, a2, a4, a3, a1, n] - 
    S2[a5, a1, a4, a2, a3, a1, n] - S2[a5, a4, a1, a2, a3, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a4_, a5_, a1_, a3_, a1_, a2_, n_] :> 
  S2[a4, n]*S2[a5, a1, a3, a1, a2, n] + S2[a5, a1, a3, a1, SP[a2, a4], n] + 
    S2[a5, a1, a3, SP[a1, a4], a2, n] + S2[a5, a1, SP[a3, a4], a1, a2, n] + 
    S2[a5, SP[a1, a4], a3, a1, a2, n] + S2[SP[a4, a5], a1, a3, a1, a2, n] - 
    S2[a5, a1, a3, a1, a2, a4, n] - S2[a5, a1, a3, a1, a4, a2, n] - 
    S2[a5, a1, a3, a4, a1, a2, n] - S2[a5, a1, a4, a3, a1, a2, n] - 
    S2[a5, a4, a1, a3, a1, a2, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a4_, a5_, a1_, a3_, a2_, a1_, n_] :> 
  -(S2[a4, n]*S2[a1, a5, a1, a3, a2, n]) - S2[a1, a5, a1, a3, SP[a2, a4], 
     n] - S2[a1, a5, a1, SP[a3, a4], a2, n] - S2[a1, a5, SP[a1, a4], a3, a2, 
     n] - S2[a1, SP[a4, a5], a1, a3, a2, n] + 
    S2[a1, n]*S2[a4, a5, a1, a3, a2, n] + S2[a4, a5, a1, a3, SP[a1, a2], n] + 
    S2[a4, a5, a1, SP[a1, a3], a2, n] + S2[a4, a5, SP[a1, a1], a3, a2, n] + 
    S2[a4, SP[a1, a5], a1, a3, a2, n] - 2*S2[a4, n]*
     S2[a5, a1, a1, a3, a2, n] - 2*S2[a5, a1, a1, a3, SP[a2, a4], n] - 
    2*S2[a5, a1, a1, SP[a3, a4], a2, n] - 
    S2[a4, n]*S2[a5, a1, a3, a1, a2, n] - S2[a5, a1, a3, a1, SP[a2, a4], n] + 
    S2[a1, n]*S2[a5, a1, a3, a2, a4, n] + S2[a5, a1, a3, a2, SP[a1, a4], n] + 
    S2[a1, n]*S2[a5, a1, a3, a4, a2, n] + S2[a5, a1, a3, a4, SP[a1, a2], n] + 
    S2[a5, a1, a3, SP[a1, a2], a4, n] + S2[a1, n]*S2[a5, a1, a4, a3, a2, n] + 
    S2[a5, a1, a4, a3, SP[a1, a2], n] + S2[a5, a1, a4, SP[a1, a3], a2, n] + 
    S2[a5, a1, SP[a1, a3], a2, a4, n] + S2[a5, a1, SP[a1, a3], a4, a2, n] - 
    S2[a5, a1, SP[a1, a4], a3, a2, n] - S2[a5, a1, SP[a3, a4], a1, a2, n] + 
    S2[a1, n]*S2[a5, a4, a1, a3, a2, n] + S2[a5, a4, a1, a3, SP[a1, a2], n] + 
    S2[a5, a4, a1, SP[a1, a3], a2, n] + S2[a5, a4, SP[a1, a1], a3, a2, n] + 
    S2[a5, SP[a1, a1], a3, a2, a4, n] + S2[a5, SP[a1, a1], a3, a4, a2, n] + 
    S2[a5, SP[a1, a1], a4, a3, a2, n] - S2[a5, SP[a1, a4], a1, a3, a2, n] - 
    S2[a5, SP[a1, a4], a3, a1, a2, n] + S2[SP[a1, a5], a1, a3, a2, a4, n] + 
    S2[SP[a1, a5], a1, a3, a4, a2, n] + S2[SP[a1, a5], a1, a4, a3, a2, n] + 
    S2[SP[a1, a5], a4, a1, a3, a2, n] - 2*S2[SP[a4, a5], a1, a1, a3, a2, n] - 
    S2[SP[a4, a5], a1, a3, a1, a2, n] - S2[a5, a1, a3, a2, a1, a4, n] - 
    S2[a5, a1, a3, a2, a4, a1, n] - S2[a5, a1, a3, a4, a2, a1, n] - 
    S2[a5, a1, a4, a3, a2, a1, n] - S2[a5, a4, a1, a3, a2, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a4_, a5_, a2_, a1_, a1_, a3_, n_] :> 
  -(S2[a4, n]*S2[a2, a5, a1, a1, a3, n]) - S2[a2, a5, a1, a1, SP[a3, a4], 
     n] - S2[a2, a5, a1, SP[a1, a4], a3, n] - S2[a2, a5, SP[a1, a4], a1, a3, 
     n] - S2[a2, SP[a4, a5], a1, a1, a3, n] + 
    S2[a2, n]*S2[a4, a5, a1, a1, a3, n] + S2[a4, a5, a1, a1, SP[a2, a3], n] + 
    S2[a4, a5, a1, SP[a1, a2], a3, n] + S2[a4, a5, SP[a1, a2], a1, a3, n] + 
    S2[a4, SP[a2, a5], a1, a1, a3, n] - S2[a4, n]*S2[a5, a1, a1, a2, a3, n] - 
    S2[a5, a1, a1, a2, SP[a3, a4], n] - S2[a4, n]*S2[a5, a1, a1, a3, a2, n] + 
    S2[a2, n]*S2[a5, a1, a1, a3, a4, n] + 
    S2[a2, n]*S2[a5, a1, a1, a4, a3, n] + S2[a5, a1, a1, a4, SP[a2, a3], n] + 
    S2[a5, a1, a1, SP[a2, a3], a4, n] - S2[a5, a1, a1, SP[a3, a4], a2, n] - 
    S2[a4, n]*S2[a5, a1, a2, a1, a3, n] - S2[a5, a1, a2, a1, SP[a3, a4], n] - 
    S2[a5, a1, a2, SP[a1, a4], a3, n] + S2[a2, n]*S2[a5, a1, a4, a1, a3, n] + 
    S2[a5, a1, a4, a1, SP[a2, a3], n] + S2[a5, a1, a4, SP[a1, a2], a3, n] + 
    S2[a5, a1, SP[a1, a2], a3, a4, n] + S2[a5, a1, SP[a1, a2], a4, a3, n] - 
    S2[a5, a1, SP[a1, a4], a2, a3, n] - S2[a5, a1, SP[a1, a4], a3, a2, n] + 
    S2[a2, n]*S2[a5, a4, a1, a1, a3, n] + S2[a5, a4, a1, a1, SP[a2, a3], n] + 
    S2[a5, a4, a1, SP[a1, a2], a3, n] + S2[a5, a4, SP[a1, a2], a1, a3, n] + 
    S2[a5, SP[a1, a2], a1, a3, a4, n] + S2[a5, SP[a1, a2], a1, a4, a3, n] + 
    S2[a5, SP[a1, a2], a4, a1, a3, n] - S2[a5, SP[a1, a4], a1, a2, a3, n] - 
    S2[a5, SP[a1, a4], a1, a3, a2, n] - S2[a5, SP[a1, a4], a2, a1, a3, n] + 
    S2[a5, SP[a2, a4], a1, a1, a3, n] + S2[SP[a2, a5], a1, a1, a3, a4, n] + 
    S2[SP[a2, a5], a1, a1, a4, a3, n] + S2[SP[a2, a5], a1, a4, a1, a3, n] + 
    S2[SP[a2, a5], a4, a1, a1, a3, n] - S2[SP[a4, a5], a1, a1, a2, a3, n] - 
    S2[SP[a4, a5], a1, a1, a3, a2, n] - S2[SP[a4, a5], a1, a2, a1, a3, n] - 
    S2[a5, a2, a1, a1, a3, a4, n] - S2[a5, a2, a1, a1, a4, a3, n] - 
    S2[a5, a2, a1, a4, a1, a3, n] - S2[a5, a2, a4, a1, a1, a3, n] - 
    S2[a5, a4, a2, a1, a1, a3, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a4_, a5_, a2_, a1_, a3_, a1_, n_] :> 
  -(S2[a4, n]*S2[a1, a5, a2, a1, a3, n]) - S2[a1, a5, a2, a1, SP[a3, a4], 
     n] - S2[a1, a5, a2, SP[a1, a4], a3, n] - S2[a1, a5, SP[a2, a4], a1, a3, 
     n] - S2[a1, SP[a4, a5], a2, a1, a3, n] + 
    2*S2[a4, n]*S2[a2, a5, a1, a1, a3, n] + 
    2*S2[a2, a5, a1, a1, SP[a3, a4], n] + 
    2*S2[a2, a5, a1, SP[a1, a4], a3, n] + 
    2*S2[a2, a5, SP[a1, a4], a1, a3, n] + 
    2*S2[a2, SP[a4, a5], a1, a1, a3, n] - 
    2*S2[a2, n]*S2[a4, a5, a1, a1, a3, n] - 
    2*S2[a4, a5, a1, a1, SP[a2, a3], n] - 
    2*S2[a4, a5, a1, SP[a1, a2], a3, n] + 
    S2[a1, n]*S2[a4, a5, a2, a1, a3, n] + S2[a4, a5, a2, a1, SP[a1, a3], n] + 
    S2[a4, a5, a2, SP[a1, a1], a3, n] - S2[a4, a5, SP[a1, a2], a1, a3, n] + 
    S2[a4, SP[a1, a5], a2, a1, a3, n] - 2*S2[a4, SP[a2, a5], a1, a1, a3, n] + 
    2*S2[a4, n]*S2[a5, a1, a1, a2, a3, n] + 
    2*S2[a5, a1, a1, a2, SP[a3, a4], n] + 
    2*S2[a4, n]*S2[a5, a1, a1, a3, a2, n] - 
    2*S2[a2, n]*S2[a5, a1, a1, a3, a4, n] - 
    2*S2[a2, n]*S2[a5, a1, a1, a4, a3, n] - 
    2*S2[a5, a1, a1, a4, SP[a2, a3], n] - 
    2*S2[a5, a1, a1, SP[a2, a3], a4, n] + 
    2*S2[a5, a1, a1, SP[a3, a4], a2, n] + 
    S2[a4, n]*S2[a5, a1, a2, a1, a3, n] + S2[a5, a1, a2, a1, SP[a3, a4], n] + 
    S2[a5, a1, a2, SP[a1, a4], a3, n] - 2*S2[a2, n]*
     S2[a5, a1, a4, a1, a3, n] - 2*S2[a5, a1, a4, a1, SP[a2, a3], n] - 
    2*S2[a5, a1, a4, SP[a1, a2], a3, n] - 
    2*S2[a5, a1, SP[a1, a2], a3, a4, n] - 
    2*S2[a5, a1, SP[a1, a2], a4, a3, n] + 
    2*S2[a5, a1, SP[a1, a4], a2, a3, n] + 
    2*S2[a5, a1, SP[a1, a4], a3, a2, n] - S2[a5, a1, SP[a2, a4], a1, a3, n] + 
    S2[a1, n]*S2[a5, a2, a1, a3, a4, n] + S2[a5, a2, a1, a3, SP[a1, a4], n] + 
    S2[a1, n]*S2[a5, a2, a1, a4, a3, n] + S2[a5, a2, a1, a4, SP[a1, a3], n] + 
    S2[a5, a2, a1, SP[a1, a3], a4, n] + S2[a5, a2, a1, SP[a1, a4], a3, n] + 
    S2[a1, n]*S2[a5, a2, a4, a1, a3, n] + S2[a5, a2, a4, a1, SP[a1, a3], n] + 
    S2[a5, a2, a4, SP[a1, a1], a3, n] + S2[a5, a2, SP[a1, a1], a3, a4, n] + 
    S2[a5, a2, SP[a1, a1], a4, a3, n] + S2[a5, a2, SP[a1, a4], a1, a3, n] - 
    2*S2[a2, n]*S2[a5, a4, a1, a1, a3, n] - 
    2*S2[a5, a4, a1, a1, SP[a2, a3], n] - 
    2*S2[a5, a4, a1, SP[a1, a2], a3, n] + 
    S2[a1, n]*S2[a5, a4, a2, a1, a3, n] + S2[a5, a4, a2, a1, SP[a1, a3], n] + 
    S2[a5, a4, a2, SP[a1, a1], a3, n] - S2[a5, a4, SP[a1, a2], a1, a3, n] - 
    S2[a5, SP[a1, a2], a1, a3, a4, n] - S2[a5, SP[a1, a2], a1, a4, a3, n] - 
    S2[a5, SP[a1, a2], a4, a1, a3, n] + 2*S2[a5, SP[a1, a4], a1, a2, a3, n] + 
    2*S2[a5, SP[a1, a4], a1, a3, a2, n] + 
    2*S2[a5, SP[a1, a4], a2, a1, a3, n] - 
    2*S2[a5, SP[a2, a4], a1, a1, a3, n] + S2[SP[a1, a5], a2, a1, a3, a4, n] + 
    S2[SP[a1, a5], a2, a1, a4, a3, n] + S2[SP[a1, a5], a2, a4, a1, a3, n] + 
    S2[SP[a1, a5], a4, a2, a1, a3, n] - 2*S2[SP[a2, a5], a1, a1, a3, a4, n] - 
    2*S2[SP[a2, a5], a1, a1, a4, a3, n] - 
    2*S2[SP[a2, a5], a1, a4, a1, a3, n] - 
    2*S2[SP[a2, a5], a4, a1, a1, a3, n] + 
    2*S2[SP[a4, a5], a1, a1, a2, a3, n] + 
    2*S2[SP[a4, a5], a1, a1, a3, a2, n] + S2[SP[a4, a5], a1, a2, a1, a3, n] - 
    S2[a5, a2, a1, a3, a1, a4, n] - S2[a5, a2, a1, a3, a4, a1, n] - 
    S2[a5, a2, a1, a4, a3, a1, n] - S2[a5, a2, a4, a1, a3, a1, n] - 
    S2[a5, a4, a2, a1, a3, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a4_, a5_, a2_, a3_, a1_, a1_, n_] :> 
  S2[a4, n]*S2[a1, a1, a5, a2, a3, n] + S2[a1, a1, a5, a2, SP[a3, a4], n] + 
    S2[a1, a1, a5, SP[a2, a4], a3, n] + S2[a1, a1, SP[a4, a5], a2, a3, n] - 
    (S2[a1, n]*S2[a1, a4, a5, a2, a3, n])/2 - 
    S2[a1, a4, a5, a2, SP[a1, a3], n]/2 - S2[a1, a4, a5, SP[a1, a2], a3, n]/
     2 - S2[a1, a4, SP[a1, a5], a2, a3, n]/2 + 
    S2[a4, n]*S2[a1, a5, a1, a2, a3, n] + S2[a1, a5, a1, a2, SP[a3, a4], n] + 
    S2[a1, a5, a1, SP[a2, a4], a3, n] + S2[a4, n]*S2[a1, a5, a2, a1, a3, n] + 
    S2[a1, a5, a2, a1, SP[a3, a4], n] - (S2[a1, n]*S2[a1, a5, a2, a3, a4, n])/
     2 - S2[a1, a5, a2, a3, SP[a1, a4], n]/2 - 
    (S2[a1, n]*S2[a1, a5, a2, a4, a3, n])/2 - 
    S2[a1, a5, a2, a4, SP[a1, a3], n]/2 - S2[a1, a5, a2, SP[a1, a3], a4, n]/
     2 + S2[a1, a5, a2, SP[a1, a4], a3, n]/2 - 
    (S2[a1, n]*S2[a1, a5, a4, a2, a3, n])/2 - 
    S2[a1, a5, a4, a2, SP[a1, a3], n]/2 - S2[a1, a5, a4, SP[a1, a2], a3, n]/
     2 - S2[a1, a5, SP[a1, a2], a3, a4, n]/2 - 
    S2[a1, a5, SP[a1, a2], a4, a3, n]/2 + S2[a1, a5, SP[a1, a4], a2, a3, n]/
     2 + S2[a1, a5, SP[a2, a4], a1, a3, n] + 
    S2[a1, SP[a1, a4], a5, a2, a3, n]/2 - S2[a1, SP[a1, a5], a2, a3, a4, n]/
     2 - S2[a1, SP[a1, a5], a2, a4, a3, n]/2 - 
    S2[a1, SP[a1, a5], a4, a2, a3, n]/2 + S2[a1, SP[a4, a5], a1, a2, a3, n] + 
    S2[a1, SP[a4, a5], a2, a1, a3, n] - S2[a4, n]*S2[a2, a5, a1, a1, a3, n] - 
    S2[a2, a5, a1, a1, SP[a3, a4], n] - S2[a2, a5, a1, SP[a1, a4], a3, n] - 
    S2[a2, a5, SP[a1, a4], a1, a3, n] - S2[a2, SP[a4, a5], a1, a1, a3, n] - 
    (S2[a1, n]*S2[a4, a1, a5, a2, a3, n])/2 - 
    S2[a4, a1, a5, a2, SP[a1, a3], n]/2 - S2[a4, a1, a5, SP[a1, a2], a3, n]/
     2 - S2[a4, a1, SP[a1, a5], a2, a3, n]/2 + 
    S2[a2, n]*S2[a4, a5, a1, a1, a3, n] + S2[a4, a5, a1, a1, SP[a2, a3], n] - 
    (S2[a1, n]*S2[a4, a5, a1, a2, a3, n])/2 - 
    S2[a4, a5, a1, a2, SP[a1, a3], n]/2 + S2[a4, a5, a1, SP[a1, a2], a3, n]/
     2 - (S2[a1, n]*S2[a4, a5, a2, a1, a3, n])/2 - 
    S2[a4, a5, a2, a1, SP[a1, a3], n]/2 + 
    (S2[a1, n]*S2[a4, a5, a2, a3, a1, n])/2 + 
    S2[a4, a5, a2, a3, SP[a1, a1], n]/2 - S2[a4, a5, a2, SP[a1, a1], a3, n]/
     2 + S2[a4, a5, a2, SP[a1, a3], a1, n]/2 - 
    S2[a4, a5, SP[a1, a1], a2, a3, n]/2 + S2[a4, a5, SP[a1, a2], a1, a3, n]/
     2 + S2[a4, a5, SP[a1, a2], a3, a1, n]/2 - 
    S2[a4, SP[a1, a1], a5, a2, a3, n]/2 - S2[a4, SP[a1, a5], a1, a2, a3, n]/
     2 - S2[a4, SP[a1, a5], a2, a1, a3, n]/2 + 
    S2[a4, SP[a1, a5], a2, a3, a1, n]/2 + S2[a4, SP[a2, a5], a1, a1, a3, n] - 
    S2[a4, n]*S2[a5, a1, a1, a3, a2, n] + 
    S2[a2, n]*S2[a5, a1, a1, a3, a4, n] + 
    S2[a2, n]*S2[a5, a1, a1, a4, a3, n] + S2[a5, a1, a1, a4, SP[a2, a3], n] + 
    S2[a5, a1, a1, SP[a2, a3], a4, n] + S2[a5, a1, a1, SP[a2, a4], a3, n] - 
    S2[a5, a1, a1, SP[a3, a4], a2, n] - (S2[a1, n]*S2[a5, a1, a2, a3, a4, n])/
     2 - S2[a5, a1, a2, a3, SP[a1, a4], n]/2 - 
    (S2[a1, n]*S2[a5, a1, a2, a4, a3, n])/2 - 
    S2[a5, a1, a2, a4, SP[a1, a3], n]/2 - S2[a5, a1, a2, SP[a1, a3], a4, n]/
     2 - S2[a5, a1, a2, SP[a1, a4], a3, n]/2 + 
    S2[a2, n]*S2[a5, a1, a4, a1, a3, n] + S2[a5, a1, a4, a1, SP[a2, a3], n] - 
    (S2[a1, n]*S2[a5, a1, a4, a2, a3, n])/2 - 
    S2[a5, a1, a4, a2, SP[a1, a3], n]/2 + S2[a5, a1, a4, SP[a1, a2], a3, n]/
     2 + S2[a5, a1, SP[a1, a2], a3, a4, n]/2 + 
    S2[a5, a1, SP[a1, a2], a4, a3, n]/2 - S2[a5, a1, SP[a1, a4], a2, a3, n]/
     2 - S2[a5, a1, SP[a1, a4], a3, a2, n] + S2[a5, a1, SP[a2, a4], a1, a3, 
     n] - (S2[a1, n]*S2[a5, a2, a1, a3, a4, n])/2 - 
    S2[a5, a2, a1, a3, SP[a1, a4], n]/2 - 
    (S2[a1, n]*S2[a5, a2, a1, a4, a3, n])/2 - 
    S2[a5, a2, a1, a4, SP[a1, a3], n]/2 - S2[a5, a2, a1, SP[a1, a3], a4, n]/
     2 - S2[a5, a2, a1, SP[a1, a4], a3, n]/2 + 
    (S2[a1, n]*S2[a5, a2, a3, a1, a4, n])/2 + 
    S2[a5, a2, a3, a1, SP[a1, a4], n]/2 + 
    (S2[a1, n]*S2[a5, a2, a3, a4, a1, n])/2 + 
    S2[a5, a2, a3, a4, SP[a1, a1], n]/2 + S2[a5, a2, a3, SP[a1, a1], a4, n]/
     2 + S2[a5, a2, a3, SP[a1, a4], a1, n]/2 - 
    (S2[a1, n]*S2[a5, a2, a4, a1, a3, n])/2 - 
    S2[a5, a2, a4, a1, SP[a1, a3], n]/2 + 
    (S2[a1, n]*S2[a5, a2, a4, a3, a1, n])/2 + 
    S2[a5, a2, a4, a3, SP[a1, a1], n]/2 - S2[a5, a2, a4, SP[a1, a1], a3, n]/
     2 + S2[a5, a2, a4, SP[a1, a3], a1, n]/2 - 
    S2[a5, a2, SP[a1, a1], a3, a4, n]/2 - S2[a5, a2, SP[a1, a1], a4, a3, n]/
     2 + S2[a5, a2, SP[a1, a3], a1, a4, n]/2 + 
    S2[a5, a2, SP[a1, a3], a4, a1, n]/2 - S2[a5, a2, SP[a1, a4], a1, a3, n]/
     2 + S2[a5, a2, SP[a1, a4], a3, a1, n]/2 + 
    S2[a2, n]*S2[a5, a4, a1, a1, a3, n] + S2[a5, a4, a1, a1, SP[a2, a3], n] - 
    (S2[a1, n]*S2[a5, a4, a1, a2, a3, n])/2 - 
    S2[a5, a4, a1, a2, SP[a1, a3], n]/2 + S2[a5, a4, a1, SP[a1, a2], a3, n]/
     2 - (S2[a1, n]*S2[a5, a4, a2, a1, a3, n])/2 - 
    S2[a5, a4, a2, a1, SP[a1, a3], n]/2 + 
    (S2[a1, n]*S2[a5, a4, a2, a3, a1, n])/2 + 
    S2[a5, a4, a2, a3, SP[a1, a1], n]/2 - S2[a5, a4, a2, SP[a1, a1], a3, n]/
     2 + S2[a5, a4, a2, SP[a1, a3], a1, n]/2 - 
    S2[a5, a4, SP[a1, a1], a2, a3, n]/2 + S2[a5, a4, SP[a1, a2], a1, a3, n]/
     2 + S2[a5, a4, SP[a1, a2], a3, a1, n]/2 - 
    S2[a5, SP[a1, a1], a2, a3, a4, n]/2 - S2[a5, SP[a1, a1], a2, a4, a3, n]/
     2 - S2[a5, SP[a1, a1], a4, a2, a3, n]/2 + 
    S2[a5, SP[a1, a2], a1, a3, a4, n]/2 + S2[a5, SP[a1, a2], a1, a4, a3, n]/
     2 + S2[a5, SP[a1, a2], a3, a1, a4, n]/2 + 
    S2[a5, SP[a1, a2], a3, a4, a1, n]/2 + S2[a5, SP[a1, a2], a4, a1, a3, n]/
     2 + S2[a5, SP[a1, a2], a4, a3, a1, n]/2 - 
    S2[a5, SP[a1, a4], a1, a2, a3, n]/2 - S2[a5, SP[a1, a4], a1, a3, a2, n] - 
    S2[a5, SP[a1, a4], a2, a1, a3, n]/2 + S2[a5, SP[a1, a4], a2, a3, a1, n]/
     2 + S2[a5, SP[a2, a4], a1, a1, a3, n] - 
    S2[SP[a1, a1], a4, a5, a2, a3, n]/2 - S2[SP[a1, a1], a5, a2, a3, a4, n]/
     2 - S2[SP[a1, a1], a5, a2, a4, a3, n]/2 - 
    S2[SP[a1, a1], a5, a4, a2, a3, n]/2 + S2[SP[a1, a4], a1, a5, a2, a3, n]/
     2 + S2[SP[a1, a4], a5, a1, a2, a3, n]/2 + 
    S2[SP[a1, a4], a5, a2, a1, a3, n]/2 + S2[SP[a1, a4], a5, a2, a3, a1, n]/
     2 - S2[SP[a1, a5], a1, a2, a3, a4, n]/2 - 
    S2[SP[a1, a5], a1, a2, a4, a3, n]/2 - S2[SP[a1, a5], a1, a4, a2, a3, n]/
     2 - S2[SP[a1, a5], a2, a1, a3, a4, n]/2 - 
    S2[SP[a1, a5], a2, a1, a4, a3, n]/2 + S2[SP[a1, a5], a2, a3, a1, a4, n]/
     2 + S2[SP[a1, a5], a2, a3, a4, a1, n]/2 - 
    S2[SP[a1, a5], a2, a4, a1, a3, n]/2 + S2[SP[a1, a5], a2, a4, a3, a1, n]/
     2 - S2[SP[a1, a5], a4, a1, a2, a3, n]/2 - 
    S2[SP[a1, a5], a4, a2, a1, a3, n]/2 + S2[SP[a1, a5], a4, a2, a3, a1, n]/
     2 + S2[SP[a2, a5], a1, a1, a3, a4, n] + S2[SP[a2, a5], a1, a1, a4, a3, 
     n] + S2[SP[a2, a5], a1, a4, a1, a3, n] + S2[SP[a2, a5], a4, a1, a1, a3, 
     n] - S2[SP[a4, a5], a1, a1, a3, a2, n] - S2[a5, a2, a3, a1, a1, a4, n] - 
    S2[a5, a2, a3, a1, a4, a1, n] - S2[a5, a2, a3, a4, a1, a1, n] - 
    S2[a5, a2, a4, a3, a1, a1, n] - S2[a5, a4, a2, a3, a1, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a4_, a5_, a3_, a1_, a1_, a2_, n_] :> 
  -(S2[a4, n]*S2[a3, a5, a1, a1, a2, n]) - S2[a3, a5, a1, a1, SP[a2, a4], 
     n] - S2[a3, a5, a1, SP[a1, a4], a2, n] - S2[a3, a5, SP[a1, a4], a1, a2, 
     n] - S2[a3, SP[a4, a5], a1, a1, a2, n] + 
    S2[a3, n]*S2[a4, a5, a1, a1, a2, n] + S2[a4, a5, a1, a1, SP[a2, a3], n] + 
    S2[a4, a5, a1, SP[a1, a3], a2, n] + S2[a4, a5, SP[a1, a3], a1, a2, n] + 
    S2[a4, SP[a3, a5], a1, a1, a2, n] - S2[a4, n]*S2[a5, a1, a1, a2, a3, n] + 
    S2[a3, n]*S2[a5, a1, a1, a2, a4, n] - 
    S2[a4, n]*S2[a5, a1, a1, a3, a2, n] - S2[a5, a1, a1, a3, SP[a2, a4], n] + 
    S2[a3, n]*S2[a5, a1, a1, a4, a2, n] + S2[a5, a1, a1, a4, SP[a2, a3], n] + 
    S2[a5, a1, a1, SP[a2, a3], a4, n] - S2[a5, a1, a1, SP[a2, a4], a3, n] - 
    S2[a4, n]*S2[a5, a1, a3, a1, a2, n] - S2[a5, a1, a3, a1, SP[a2, a4], n] - 
    S2[a5, a1, a3, SP[a1, a4], a2, n] + S2[a3, n]*S2[a5, a1, a4, a1, a2, n] + 
    S2[a5, a1, a4, a1, SP[a2, a3], n] + S2[a5, a1, a4, SP[a1, a3], a2, n] + 
    S2[a5, a1, SP[a1, a3], a2, a4, n] + S2[a5, a1, SP[a1, a3], a4, a2, n] - 
    S2[a5, a1, SP[a1, a4], a2, a3, n] - S2[a5, a1, SP[a1, a4], a3, a2, n] + 
    S2[a3, n]*S2[a5, a4, a1, a1, a2, n] + S2[a5, a4, a1, a1, SP[a2, a3], n] + 
    S2[a5, a4, a1, SP[a1, a3], a2, n] + S2[a5, a4, SP[a1, a3], a1, a2, n] + 
    S2[a5, SP[a1, a3], a1, a2, a4, n] + S2[a5, SP[a1, a3], a1, a4, a2, n] + 
    S2[a5, SP[a1, a3], a4, a1, a2, n] - S2[a5, SP[a1, a4], a1, a2, a3, n] - 
    S2[a5, SP[a1, a4], a1, a3, a2, n] - S2[a5, SP[a1, a4], a3, a1, a2, n] + 
    S2[a5, SP[a3, a4], a1, a1, a2, n] + S2[SP[a3, a5], a1, a1, a2, a4, n] + 
    S2[SP[a3, a5], a1, a1, a4, a2, n] + S2[SP[a3, a5], a1, a4, a1, a2, n] + 
    S2[SP[a3, a5], a4, a1, a1, a2, n] - S2[SP[a4, a5], a1, a1, a2, a3, n] - 
    S2[SP[a4, a5], a1, a1, a3, a2, n] - S2[SP[a4, a5], a1, a3, a1, a2, n] - 
    S2[a5, a3, a1, a1, a2, a4, n] - S2[a5, a3, a1, a1, a4, a2, n] - 
    S2[a5, a3, a1, a4, a1, a2, n] - S2[a5, a3, a4, a1, a1, a2, n] - 
    S2[a5, a4, a3, a1, a1, a2, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a4_, a5_, a3_, a1_, a2_, a1_, n_] :> 
  -(S2[a4, n]*S2[a1, a5, a3, a1, a2, n]) - S2[a1, a5, a3, a1, SP[a2, a4], 
     n] - S2[a1, a5, a3, SP[a1, a4], a2, n] - S2[a1, a5, SP[a3, a4], a1, a2, 
     n] - S2[a1, SP[a4, a5], a3, a1, a2, n] + 
    2*S2[a4, n]*S2[a3, a5, a1, a1, a2, n] + 
    2*S2[a3, a5, a1, a1, SP[a2, a4], n] + 
    2*S2[a3, a5, a1, SP[a1, a4], a2, n] + 
    2*S2[a3, a5, SP[a1, a4], a1, a2, n] + 
    2*S2[a3, SP[a4, a5], a1, a1, a2, n] - 
    2*S2[a3, n]*S2[a4, a5, a1, a1, a2, n] - 
    2*S2[a4, a5, a1, a1, SP[a2, a3], n] - 
    2*S2[a4, a5, a1, SP[a1, a3], a2, n] + 
    S2[a1, n]*S2[a4, a5, a3, a1, a2, n] + S2[a4, a5, a3, a1, SP[a1, a2], n] + 
    S2[a4, a5, a3, SP[a1, a1], a2, n] - S2[a4, a5, SP[a1, a3], a1, a2, n] + 
    S2[a4, SP[a1, a5], a3, a1, a2, n] - 2*S2[a4, SP[a3, a5], a1, a1, a2, n] + 
    2*S2[a4, n]*S2[a5, a1, a1, a2, a3, n] - 
    2*S2[a3, n]*S2[a5, a1, a1, a2, a4, n] + 
    2*S2[a4, n]*S2[a5, a1, a1, a3, a2, n] + 
    2*S2[a5, a1, a1, a3, SP[a2, a4], n] - 
    2*S2[a3, n]*S2[a5, a1, a1, a4, a2, n] - 
    2*S2[a5, a1, a1, a4, SP[a2, a3], n] - 
    2*S2[a5, a1, a1, SP[a2, a3], a4, n] + 
    2*S2[a5, a1, a1, SP[a2, a4], a3, n] + 
    S2[a4, n]*S2[a5, a1, a3, a1, a2, n] + S2[a5, a1, a3, a1, SP[a2, a4], n] + 
    S2[a5, a1, a3, SP[a1, a4], a2, n] - 2*S2[a3, n]*
     S2[a5, a1, a4, a1, a2, n] - 2*S2[a5, a1, a4, a1, SP[a2, a3], n] - 
    2*S2[a5, a1, a4, SP[a1, a3], a2, n] - 
    2*S2[a5, a1, SP[a1, a3], a2, a4, n] - 
    2*S2[a5, a1, SP[a1, a3], a4, a2, n] + 
    2*S2[a5, a1, SP[a1, a4], a2, a3, n] + 
    2*S2[a5, a1, SP[a1, a4], a3, a2, n] - S2[a5, a1, SP[a3, a4], a1, a2, n] + 
    S2[a1, n]*S2[a5, a3, a1, a2, a4, n] + S2[a5, a3, a1, a2, SP[a1, a4], n] + 
    S2[a1, n]*S2[a5, a3, a1, a4, a2, n] + S2[a5, a3, a1, a4, SP[a1, a2], n] + 
    S2[a5, a3, a1, SP[a1, a2], a4, n] + S2[a5, a3, a1, SP[a1, a4], a2, n] + 
    S2[a1, n]*S2[a5, a3, a4, a1, a2, n] + S2[a5, a3, a4, a1, SP[a1, a2], n] + 
    S2[a5, a3, a4, SP[a1, a1], a2, n] + S2[a5, a3, SP[a1, a1], a2, a4, n] + 
    S2[a5, a3, SP[a1, a1], a4, a2, n] + S2[a5, a3, SP[a1, a4], a1, a2, n] - 
    2*S2[a3, n]*S2[a5, a4, a1, a1, a2, n] - 
    2*S2[a5, a4, a1, a1, SP[a2, a3], n] - 
    2*S2[a5, a4, a1, SP[a1, a3], a2, n] + 
    S2[a1, n]*S2[a5, a4, a3, a1, a2, n] + S2[a5, a4, a3, a1, SP[a1, a2], n] + 
    S2[a5, a4, a3, SP[a1, a1], a2, n] - S2[a5, a4, SP[a1, a3], a1, a2, n] - 
    S2[a5, SP[a1, a3], a1, a2, a4, n] - S2[a5, SP[a1, a3], a1, a4, a2, n] - 
    S2[a5, SP[a1, a3], a4, a1, a2, n] + 2*S2[a5, SP[a1, a4], a1, a2, a3, n] + 
    2*S2[a5, SP[a1, a4], a1, a3, a2, n] + 
    2*S2[a5, SP[a1, a4], a3, a1, a2, n] - 
    2*S2[a5, SP[a3, a4], a1, a1, a2, n] + S2[SP[a1, a5], a3, a1, a2, a4, n] + 
    S2[SP[a1, a5], a3, a1, a4, a2, n] + S2[SP[a1, a5], a3, a4, a1, a2, n] + 
    S2[SP[a1, a5], a4, a3, a1, a2, n] - 2*S2[SP[a3, a5], a1, a1, a2, a4, n] - 
    2*S2[SP[a3, a5], a1, a1, a4, a2, n] - 
    2*S2[SP[a3, a5], a1, a4, a1, a2, n] - 
    2*S2[SP[a3, a5], a4, a1, a1, a2, n] + 
    2*S2[SP[a4, a5], a1, a1, a2, a3, n] + 
    2*S2[SP[a4, a5], a1, a1, a3, a2, n] + S2[SP[a4, a5], a1, a3, a1, a2, n] - 
    S2[a5, a3, a1, a2, a1, a4, n] - S2[a5, a3, a1, a2, a4, a1, n] - 
    S2[a5, a3, a1, a4, a2, a1, n] - S2[a5, a3, a4, a1, a2, a1, n] - 
    S2[a5, a4, a3, a1, a2, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a4_, a5_, a3_, a2_, a1_, a1_, n_] :> 
  S2[a4, n]*S2[a1, a1, a5, a3, a2, n] + S2[a1, a1, a5, a3, SP[a2, a4], n] + 
    S2[a1, a1, a5, SP[a3, a4], a2, n] + S2[a1, a1, SP[a4, a5], a3, a2, n] - 
    (S2[a1, n]*S2[a1, a4, a5, a3, a2, n])/2 - 
    S2[a1, a4, a5, a3, SP[a1, a2], n]/2 - S2[a1, a4, a5, SP[a1, a3], a2, n]/
     2 - S2[a1, a4, SP[a1, a5], a3, a2, n]/2 + 
    S2[a4, n]*S2[a1, a5, a1, a3, a2, n] + S2[a1, a5, a1, a3, SP[a2, a4], n] + 
    S2[a1, a5, a1, SP[a3, a4], a2, n] + S2[a4, n]*S2[a1, a5, a3, a1, a2, n] + 
    S2[a1, a5, a3, a1, SP[a2, a4], n] - (S2[a1, n]*S2[a1, a5, a3, a2, a4, n])/
     2 - S2[a1, a5, a3, a2, SP[a1, a4], n]/2 - 
    (S2[a1, n]*S2[a1, a5, a3, a4, a2, n])/2 - 
    S2[a1, a5, a3, a4, SP[a1, a2], n]/2 - S2[a1, a5, a3, SP[a1, a2], a4, n]/
     2 + S2[a1, a5, a3, SP[a1, a4], a2, n]/2 - 
    (S2[a1, n]*S2[a1, a5, a4, a3, a2, n])/2 - 
    S2[a1, a5, a4, a3, SP[a1, a2], n]/2 - S2[a1, a5, a4, SP[a1, a3], a2, n]/
     2 - S2[a1, a5, SP[a1, a3], a2, a4, n]/2 - 
    S2[a1, a5, SP[a1, a3], a4, a2, n]/2 + S2[a1, a5, SP[a1, a4], a3, a2, n]/
     2 + S2[a1, a5, SP[a3, a4], a1, a2, n] + 
    S2[a1, SP[a1, a4], a5, a3, a2, n]/2 - S2[a1, SP[a1, a5], a3, a2, a4, n]/
     2 - S2[a1, SP[a1, a5], a3, a4, a2, n]/2 - 
    S2[a1, SP[a1, a5], a4, a3, a2, n]/2 + S2[a1, SP[a4, a5], a1, a3, a2, n] + 
    S2[a1, SP[a4, a5], a3, a1, a2, n] - S2[a4, n]*S2[a3, a5, a1, a1, a2, n] - 
    S2[a3, a5, a1, a1, SP[a2, a4], n] - S2[a3, a5, a1, SP[a1, a4], a2, n] - 
    S2[a3, a5, SP[a1, a4], a1, a2, n] - S2[a3, SP[a4, a5], a1, a1, a2, n] - 
    (S2[a1, n]*S2[a4, a1, a5, a3, a2, n])/2 - 
    S2[a4, a1, a5, a3, SP[a1, a2], n]/2 - S2[a4, a1, a5, SP[a1, a3], a2, n]/
     2 - S2[a4, a1, SP[a1, a5], a3, a2, n]/2 + 
    S2[a3, n]*S2[a4, a5, a1, a1, a2, n] + S2[a4, a5, a1, a1, SP[a2, a3], n] - 
    (S2[a1, n]*S2[a4, a5, a1, a3, a2, n])/2 - 
    S2[a4, a5, a1, a3, SP[a1, a2], n]/2 + S2[a4, a5, a1, SP[a1, a3], a2, n]/
     2 - (S2[a1, n]*S2[a4, a5, a3, a1, a2, n])/2 - 
    S2[a4, a5, a3, a1, SP[a1, a2], n]/2 + 
    (S2[a1, n]*S2[a4, a5, a3, a2, a1, n])/2 + 
    S2[a4, a5, a3, a2, SP[a1, a1], n]/2 - S2[a4, a5, a3, SP[a1, a1], a2, n]/
     2 + S2[a4, a5, a3, SP[a1, a2], a1, n]/2 - 
    S2[a4, a5, SP[a1, a1], a3, a2, n]/2 + S2[a4, a5, SP[a1, a3], a1, a2, n]/
     2 + S2[a4, a5, SP[a1, a3], a2, a1, n]/2 - 
    S2[a4, SP[a1, a1], a5, a3, a2, n]/2 - S2[a4, SP[a1, a5], a1, a3, a2, n]/
     2 - S2[a4, SP[a1, a5], a3, a1, a2, n]/2 + 
    S2[a4, SP[a1, a5], a3, a2, a1, n]/2 + S2[a4, SP[a3, a5], a1, a1, a2, n] - 
    S2[a4, n]*S2[a5, a1, a1, a2, a3, n] + 
    S2[a3, n]*S2[a5, a1, a1, a2, a4, n] + 
    S2[a3, n]*S2[a5, a1, a1, a4, a2, n] + S2[a5, a1, a1, a4, SP[a2, a3], n] + 
    S2[a5, a1, a1, SP[a2, a3], a4, n] - S2[a5, a1, a1, SP[a2, a4], a3, n] + 
    S2[a5, a1, a1, SP[a3, a4], a2, n] - (S2[a1, n]*S2[a5, a1, a3, a2, a4, n])/
     2 - S2[a5, a1, a3, a2, SP[a1, a4], n]/2 - 
    (S2[a1, n]*S2[a5, a1, a3, a4, a2, n])/2 - 
    S2[a5, a1, a3, a4, SP[a1, a2], n]/2 - S2[a5, a1, a3, SP[a1, a2], a4, n]/
     2 - S2[a5, a1, a3, SP[a1, a4], a2, n]/2 + 
    S2[a3, n]*S2[a5, a1, a4, a1, a2, n] + S2[a5, a1, a4, a1, SP[a2, a3], n] - 
    (S2[a1, n]*S2[a5, a1, a4, a3, a2, n])/2 - 
    S2[a5, a1, a4, a3, SP[a1, a2], n]/2 + S2[a5, a1, a4, SP[a1, a3], a2, n]/
     2 + S2[a5, a1, SP[a1, a3], a2, a4, n]/2 + 
    S2[a5, a1, SP[a1, a3], a4, a2, n]/2 - S2[a5, a1, SP[a1, a4], a2, a3, n] - 
    S2[a5, a1, SP[a1, a4], a3, a2, n]/2 + S2[a5, a1, SP[a3, a4], a1, a2, n] - 
    (S2[a1, n]*S2[a5, a3, a1, a2, a4, n])/2 - 
    S2[a5, a3, a1, a2, SP[a1, a4], n]/2 - 
    (S2[a1, n]*S2[a5, a3, a1, a4, a2, n])/2 - 
    S2[a5, a3, a1, a4, SP[a1, a2], n]/2 - S2[a5, a3, a1, SP[a1, a2], a4, n]/
     2 - S2[a5, a3, a1, SP[a1, a4], a2, n]/2 + 
    (S2[a1, n]*S2[a5, a3, a2, a1, a4, n])/2 + 
    S2[a5, a3, a2, a1, SP[a1, a4], n]/2 + 
    (S2[a1, n]*S2[a5, a3, a2, a4, a1, n])/2 + 
    S2[a5, a3, a2, a4, SP[a1, a1], n]/2 + S2[a5, a3, a2, SP[a1, a1], a4, n]/
     2 + S2[a5, a3, a2, SP[a1, a4], a1, n]/2 - 
    (S2[a1, n]*S2[a5, a3, a4, a1, a2, n])/2 - 
    S2[a5, a3, a4, a1, SP[a1, a2], n]/2 + 
    (S2[a1, n]*S2[a5, a3, a4, a2, a1, n])/2 + 
    S2[a5, a3, a4, a2, SP[a1, a1], n]/2 - S2[a5, a3, a4, SP[a1, a1], a2, n]/
     2 + S2[a5, a3, a4, SP[a1, a2], a1, n]/2 - 
    S2[a5, a3, SP[a1, a1], a2, a4, n]/2 - S2[a5, a3, SP[a1, a1], a4, a2, n]/
     2 + S2[a5, a3, SP[a1, a2], a1, a4, n]/2 + 
    S2[a5, a3, SP[a1, a2], a4, a1, n]/2 - S2[a5, a3, SP[a1, a4], a1, a2, n]/
     2 + S2[a5, a3, SP[a1, a4], a2, a1, n]/2 + 
    S2[a3, n]*S2[a5, a4, a1, a1, a2, n] + S2[a5, a4, a1, a1, SP[a2, a3], n] - 
    (S2[a1, n]*S2[a5, a4, a1, a3, a2, n])/2 - 
    S2[a5, a4, a1, a3, SP[a1, a2], n]/2 + S2[a5, a4, a1, SP[a1, a3], a2, n]/
     2 - (S2[a1, n]*S2[a5, a4, a3, a1, a2, n])/2 - 
    S2[a5, a4, a3, a1, SP[a1, a2], n]/2 + 
    (S2[a1, n]*S2[a5, a4, a3, a2, a1, n])/2 + 
    S2[a5, a4, a3, a2, SP[a1, a1], n]/2 - S2[a5, a4, a3, SP[a1, a1], a2, n]/
     2 + S2[a5, a4, a3, SP[a1, a2], a1, n]/2 - 
    S2[a5, a4, SP[a1, a1], a3, a2, n]/2 + S2[a5, a4, SP[a1, a3], a1, a2, n]/
     2 + S2[a5, a4, SP[a1, a3], a2, a1, n]/2 - 
    S2[a5, SP[a1, a1], a3, a2, a4, n]/2 - S2[a5, SP[a1, a1], a3, a4, a2, n]/
     2 - S2[a5, SP[a1, a1], a4, a3, a2, n]/2 + 
    S2[a5, SP[a1, a3], a1, a2, a4, n]/2 + S2[a5, SP[a1, a3], a1, a4, a2, n]/
     2 + S2[a5, SP[a1, a3], a2, a1, a4, n]/2 + 
    S2[a5, SP[a1, a3], a2, a4, a1, n]/2 + S2[a5, SP[a1, a3], a4, a1, a2, n]/
     2 + S2[a5, SP[a1, a3], a4, a2, a1, n]/2 - S2[a5, SP[a1, a4], a1, a2, a3, 
     n] - S2[a5, SP[a1, a4], a1, a3, a2, n]/2 - 
    S2[a5, SP[a1, a4], a3, a1, a2, n]/2 + S2[a5, SP[a1, a4], a3, a2, a1, n]/
     2 + S2[a5, SP[a3, a4], a1, a1, a2, n] - 
    S2[SP[a1, a1], a4, a5, a3, a2, n]/2 - S2[SP[a1, a1], a5, a3, a2, a4, n]/
     2 - S2[SP[a1, a1], a5, a3, a4, a2, n]/2 - 
    S2[SP[a1, a1], a5, a4, a3, a2, n]/2 + S2[SP[a1, a4], a1, a5, a3, a2, n]/
     2 + S2[SP[a1, a4], a5, a1, a3, a2, n]/2 + 
    S2[SP[a1, a4], a5, a3, a1, a2, n]/2 + S2[SP[a1, a4], a5, a3, a2, a1, n]/
     2 - S2[SP[a1, a5], a1, a3, a2, a4, n]/2 - 
    S2[SP[a1, a5], a1, a3, a4, a2, n]/2 - S2[SP[a1, a5], a1, a4, a3, a2, n]/
     2 - S2[SP[a1, a5], a3, a1, a2, a4, n]/2 - 
    S2[SP[a1, a5], a3, a1, a4, a2, n]/2 + S2[SP[a1, a5], a3, a2, a1, a4, n]/
     2 + S2[SP[a1, a5], a3, a2, a4, a1, n]/2 - 
    S2[SP[a1, a5], a3, a4, a1, a2, n]/2 + S2[SP[a1, a5], a3, a4, a2, a1, n]/
     2 - S2[SP[a1, a5], a4, a1, a3, a2, n]/2 - 
    S2[SP[a1, a5], a4, a3, a1, a2, n]/2 + S2[SP[a1, a5], a4, a3, a2, a1, n]/
     2 + S2[SP[a3, a5], a1, a1, a2, a4, n] + S2[SP[a3, a5], a1, a1, a4, a2, 
     n] + S2[SP[a3, a5], a1, a4, a1, a2, n] + S2[SP[a3, a5], a4, a1, a1, a2, 
     n] - S2[SP[a4, a5], a1, a1, a2, a3, n] - S2[a5, a3, a2, a1, a1, a4, n] - 
    S2[a5, a3, a2, a1, a4, a1, n] - S2[a5, a3, a2, a4, a1, a1, n] - 
    S2[a5, a3, a4, a2, a1, a1, n] - S2[a5, a4, a3, a2, a1, a1, n] /; 
   MyMemberQ[{{a2, a3, a4, a5}}, {a1, a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a1_, a1_, a2_, a2_, a3_, a4_, n_] :> 
  S2[a1, a1, a2, n]*S2[a2, a3, a4, n] + S2[SP[a1, a2], SP[a1, a3], 
     SP[a2, a4], n] + S2[a3, a4, n]*S2[a1, a1, a2, a2, n] - 
    S2[a1, a1, SP[a2, a3], SP[a2, a4], n] - S2[a1, a2, SP[a1, a3], 
     SP[a2, a4], n] - S2[a1, SP[a1, a2], a3, SP[a2, a4], n] - 
    S2[a1, SP[a1, a2], SP[a2, a3], a4, n] - S2[a1, SP[a1, a3], a2, 
     SP[a2, a4], n] - S2[a1, SP[a1, a3], SP[a2, a4], a2, n] - 
    S2[a2, a1, SP[a1, a3], SP[a2, a4], n] - S2[a2, SP[a1, a3], a1, 
     SP[a2, a4], n] - S2[a2, SP[a1, a3], SP[a1, a4], a2, n] - 
    S2[SP[a1, a2], a1, a3, SP[a2, a4], n] - S2[SP[a1, a2], a1, SP[a2, a3], 
     a4, n] - S2[SP[a1, a2], a3, a1, SP[a2, a4], n] - 
    S2[SP[a1, a2], a3, SP[a1, a4], a2, n] - S2[SP[a1, a2], SP[a1, a3], a2, 
     a4, n] - S2[SP[a1, a2], SP[a1, a3], a4, a2, n] - 
    S2[SP[a1, a3], a1, a2, SP[a2, a4], n] - S2[SP[a1, a3], a1, SP[a2, a4], 
     a2, n] - S2[SP[a1, a3], SP[a1, a4], a2, a2, n] + 
    S2[a4, n]*S2[a1, a1, a2, a2, a3, n] - 
    S2[a3, n]*S2[a1, a1, a2, a2, a4, n] + 
    S2[a4, n]*S2[a1, a1, a2, a3, a2, n] - 
    S2[a2, n]*S2[a1, a1, a2, a3, a4, n] + 
    2*S2[a1, a1, a2, a3, SP[a2, a4], n] - 
    S2[a3, n]*S2[a1, a1, a2, a4, a2, n] - S2[a1, a1, a2, a4, SP[a2, a3], n] + 
    S2[a1, a1, a2, SP[a2, a4], a3, n] + 2*S2[a4, n]*
     S2[a1, a1, a3, a2, a2, n] - S2[a2, n]*S2[a1, a1, a3, a2, a4, n] + 
    2*S2[a1, a1, a3, a2, SP[a2, a4], n] - 
    S2[a2, n]*S2[a1, a1, a3, a4, a2, n] - S2[a1, a1, a3, a4, SP[a2, a2], n] - 
    S2[a1, a1, a3, SP[a2, a2], a4, n] + 2*S2[a1, a1, a3, SP[a2, a4], a2, n] - 
    S2[a3, n]*S2[a1, a1, a4, a2, a2, n] - S2[a1, a1, a4, a2, SP[a2, a3], n] - 
    S2[a1, a1, a4, SP[a2, a3], a2, n] - S2[a1, a1, SP[a2, a3], a2, a4, n] - 
    S2[a1, a1, SP[a2, a3], a4, a2, n] + S2[a1, a1, SP[a2, a4], a2, a3, n] + 
    S2[a1, a1, SP[a2, a4], a3, a2, n] + S2[a1, a1, SP[a3, a4], a2, a2, n] + 
    S2[a1, a2, a1, a3, SP[a2, a4], n] + S2[a1, a2, a1, SP[a2, a3], a4, n] + 
    S2[a1, a2, a3, a1, SP[a2, a4], n] + S2[a1, a2, a3, SP[a1, a4], a2, n] + 
    S2[a1, a2, SP[a1, a3], a2, a4, n] + S2[a1, a2, SP[a1, a3], a4, a2, n] + 
    2*S2[a4, n]*S2[a1, a3, a1, a2, a2, n] - 
    S2[a2, n]*S2[a1, a3, a1, a2, a4, n] + 
    2*S2[a1, a3, a1, a2, SP[a2, a4], n] - 
    S2[a2, n]*S2[a1, a3, a1, a4, a2, n] - S2[a1, a3, a1, a4, SP[a2, a2], n] - 
    S2[a1, a3, a1, SP[a2, a2], a4, n] + 2*S2[a1, a3, a1, SP[a2, a4], a2, n] + 
    S2[a4, n]*S2[a1, a3, a2, a1, a2, n] + S2[a1, a3, a2, a1, SP[a2, a4], n] + 
    S2[a1, a3, a2, SP[a1, a4], a2, n] - S2[a2, n]*S2[a1, a3, a4, a1, a2, n] - 
    S2[a1, a3, a4, a1, SP[a2, a2], n] - S2[a1, a3, a4, SP[a1, a2], a2, n] - 
    S2[a1, a3, SP[a1, a2], a2, a4, n] - S2[a1, a3, SP[a1, a2], a4, a2, n] + 
    3*S2[a1, a3, SP[a1, a4], a2, a2, n] - 
    S2[a3, n]*S2[a1, a4, a1, a2, a2, n] - S2[a1, a4, a1, a2, SP[a2, a3], n] - 
    S2[a1, a4, a1, SP[a2, a3], a2, n] - (S2[a1, n]*S2[a1, a4, a3, a2, a2, n])/
     2 - S2[a1, a4, a3, a2, SP[a1, a2], n]/2 - 
    S2[a1, a4, a3, SP[a1, a2], a2, n]/2 - 
    (3*S2[a1, a4, SP[a1, a3], a2, a2, n])/2 + S2[a1, SP[a1, a4], a2, a2, a3, 
     n] + S2[a1, SP[a1, a4], a2, a3, a2, n] + 
    (3*S2[a1, SP[a1, a4], a3, a2, a2, n])/2 - S2[a1, SP[a2, a3], a1, a2, a4, 
     n] - S2[a1, SP[a2, a3], a1, a4, a2, n] - S2[a1, SP[a2, a3], a4, a1, a2, 
     n] + S2[a1, SP[a3, a4], a1, a2, a2, n] + S2[a1, SP[a3, a4], a2, a1, a2, 
     n] + S2[a2, a1, a1, a3, SP[a2, a4], n] + S2[a2, a1, a1, SP[a2, a3], a4, 
     n] + S2[a2, a1, a3, a1, SP[a2, a4], n] + S2[a2, a1, a3, SP[a1, a4], a2, 
     n] + S2[a2, a1, SP[a1, a3], a2, a4, n] + S2[a2, a1, SP[a1, a3], a4, a2, 
     n] - S2[a4, n]*S2[a2, a3, a1, a1, a2, n] + S2[a2, SP[a1, a3], a1, a2, 
     a4, n] + S2[a2, SP[a1, a3], a1, a4, a2, n] + S2[a2, SP[a1, a3], a4, a1, 
     a2, n] - S2[a2, SP[a3, a4], a1, a1, a2, n] + 
    S2[a3, a1, a1, a2, SP[a2, a4], n] + S2[a3, a1, a1, SP[a2, a4], a2, n] + 
    S2[a3, a1, SP[a1, a4], a2, a2, n] + S2[a3, SP[a1, a4], a1, a2, a2, n] - 
    S2[a3, n]*S2[a4, a1, a1, a2, a2, n] - S2[a4, a1, a1, a2, SP[a2, a3], n] - 
    S2[a4, a1, a1, SP[a2, a3], a2, n] - (S2[a1, n]*S2[a4, a1, a3, a2, a2, n])/
     2 - S2[a4, a1, a3, a2, SP[a1, a2], n]/2 - 
    S2[a4, a1, a3, SP[a1, a2], a2, n]/2 - 
    (3*S2[a4, a1, SP[a1, a3], a2, a2, n])/2 + 
    S2[a2, n]*S2[a4, a3, a1, a1, a2, n] + S2[a4, a3, a1, a1, SP[a2, a2], n] - 
    (S2[a1, n]*S2[a4, a3, a1, a2, a2, n])/2 - 
    S2[a4, a3, a1, a2, SP[a1, a2], n]/2 + S2[a4, a3, a1, SP[a1, a2], a2, n]/
     2 - (S2[a1, n]*S2[a4, a3, a2, a1, a2, n])/2 - 
    S2[a4, a3, a2, a1, SP[a1, a2], n]/2 + 
    (S2[a1, n]*S2[a4, a3, a2, a2, a1, n])/2 + 
    S2[a4, a3, a2, a2, SP[a1, a1], n]/2 - S2[a4, a3, a2, SP[a1, a1], a2, n]/
     2 + S2[a4, a3, a2, SP[a1, a2], a1, n]/2 - 
    S2[a4, a3, SP[a1, a1], a2, a2, n]/2 + S2[a4, a3, SP[a1, a2], a1, a2, n]/
     2 + S2[a4, a3, SP[a1, a2], a2, a1, n]/2 - 
    S2[a4, SP[a1, a1], a3, a2, a2, n]/2 - 
    (3*S2[a4, SP[a1, a3], a1, a2, a2, n])/2 - 
    S2[a4, SP[a1, a3], a2, a1, a2, n]/2 + S2[a4, SP[a1, a3], a2, a2, a1, n]/
     2 + S2[a4, SP[a2, a3], a1, a1, a2, n] - 
    S2[SP[a1, a1], a4, a3, a2, a2, n]/2 + S2[SP[a1, a4], a1, a2, a2, a3, n] + 
    S2[SP[a1, a4], a1, a2, a3, a2, n] + (3*S2[SP[a1, a4], a1, a3, a2, a2, n])/
     2 + (3*S2[SP[a1, a4], a3, a1, a2, a2, n])/2 + 
    S2[SP[a1, a4], a3, a2, a1, a2, n]/2 + S2[SP[a1, a4], a3, a2, a2, a1, n]/
     2 - S2[SP[a3, a4], a1, a1, a2, a2, n] - S2[a4, a3, a2, a2, a1, a1, n] /; 
   MyMemberQ[{{a1, a2}, {a3, a4}}, {a1, a1, a2, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a1_, a1_, a2_, a2_, a4_, a3_, n_] :> 
  S2[a1, a1, a2, n]*S2[a2, a4, a3, n] + S2[SP[a1, a2], SP[a1, a4], 
     SP[a2, a3], n] - S2[a3, a4, n]*S2[a1, a1, a2, a2, n] + 
    S2[a1, a1, SP[a2, a3], SP[a2, a4], n] - S2[a1, a2, SP[a1, a4], 
     SP[a2, a3], n] - S2[a1, SP[a1, a2], a4, SP[a2, a3], n] - 
    S2[a1, SP[a1, a2], SP[a2, a4], a3, n] + S2[a1, SP[a1, a3], a2, 
     SP[a2, a4], n] + S2[a1, SP[a1, a3], SP[a2, a4], a2, n] - 
    S2[a2, a1, SP[a1, a4], SP[a2, a3], n] - S2[a2, SP[a1, a4], a1, 
     SP[a2, a3], n] - S2[a2, SP[a1, a4], SP[a1, a3], a2, n] - 
    S2[SP[a1, a2], a1, a4, SP[a2, a3], n] - S2[SP[a1, a2], a1, SP[a2, a4], 
     a3, n] - S2[SP[a1, a2], a4, a1, SP[a2, a3], n] - 
    S2[SP[a1, a2], a4, SP[a1, a3], a2, n] - S2[SP[a1, a2], SP[a1, a4], a2, 
     a3, n] - S2[SP[a1, a2], SP[a1, a4], a3, a2, n] + 
    S2[SP[a1, a3], a1, a2, SP[a2, a4], n] + S2[SP[a1, a3], a1, SP[a2, a4], 
     a2, n] + S2[SP[a1, a3], SP[a1, a4], a2, a2, n] + 
    S2[a3, n]*S2[a1, a1, a2, a2, a4, n] + S2[a1, a1, a2, a2, SP[a3, a4], n] - 
    S2[a1, a1, a2, a3, SP[a2, a4], n] + S2[a3, n]*S2[a1, a1, a2, a4, a2, n] - 
    S2[a2, n]*S2[a1, a1, a2, a4, a3, n] + S2[a1, a1, a2, a4, SP[a2, a3], n] + 
    S2[a1, a1, a2, SP[a3, a4], a2, n] - S2[a1, a1, a3, a2, SP[a2, a4], n] - 
    S2[a1, a1, a3, SP[a2, a4], a2, n] + S2[a3, n]*S2[a1, a1, a4, a2, a2, n] - 
    S2[a2, n]*S2[a1, a1, a4, a2, a3, n] - 
    S2[a2, n]*S2[a1, a1, a4, a3, a2, n] - S2[a1, a1, a4, a3, SP[a2, a2], n] - 
    S2[a1, a1, a4, SP[a2, a2], a3, n] - S2[a1, a1, SP[a2, a4], a2, a3, n] - 
    S2[a1, a1, SP[a2, a4], a3, a2, n] + S2[a1, a1, SP[a3, a4], a2, a2, n] + 
    S2[a1, a2, a1, a4, SP[a2, a3], n] + S2[a1, a2, a1, SP[a2, a4], a3, n] + 
    S2[a1, a2, a4, a1, SP[a2, a3], n] + S2[a1, a2, a4, SP[a1, a3], a2, n] + 
    S2[a1, a2, SP[a1, a4], a2, a3, n] + S2[a1, a2, SP[a1, a4], a3, a2, n] - 
    S2[a1, a3, a1, a2, SP[a2, a4], n] - S2[a1, a3, a1, SP[a2, a4], a2, n] - 
    S2[a1, a3, SP[a1, a4], a2, a2, n] + S2[a3, n]*S2[a1, a4, a1, a2, a2, n] - 
    S2[a2, n]*S2[a1, a4, a1, a2, a3, n] - 
    S2[a2, n]*S2[a1, a4, a1, a3, a2, n] - S2[a1, a4, a1, a3, SP[a2, a2], n] - 
    S2[a1, a4, a1, SP[a2, a2], a3, n] + (S2[a1, n]*S2[a1, a4, a2, a2, a3, n])/
     2 + S2[a1, a4, a2, a2, SP[a1, a3], n]/2 + 
    (S2[a1, n]*S2[a1, a4, a2, a3, a2, n])/2 + 
    S2[a1, a4, a2, a3, SP[a1, a2], n]/2 + S2[a1, a4, a2, SP[a1, a2], a3, n]/
     2 + S2[a1, a4, a2, SP[a1, a3], a2, n]/2 - 
    S2[a2, n]*S2[a1, a4, a3, a1, a2, n] - S2[a1, a4, a3, a1, SP[a2, a2], n] + 
    (S2[a1, n]*S2[a1, a4, a3, a2, a2, n])/2 + 
    S2[a1, a4, a3, a2, SP[a1, a2], n]/2 - S2[a1, a4, a3, SP[a1, a2], a2, n]/
     2 - S2[a1, a4, SP[a1, a2], a2, a3, n]/2 - 
    S2[a1, a4, SP[a1, a2], a3, a2, n]/2 + 
    (3*S2[a1, a4, SP[a1, a3], a2, a2, n])/2 - S2[a1, a4, SP[a2, a3], a1, a2, 
     n] + S2[a1, SP[a1, a4], a2, a2, a3, n]/2 + 
    S2[a1, SP[a1, a4], a2, a3, a2, n]/2 + S2[a1, SP[a1, a4], a3, a2, a2, n]/
     2 - S2[a1, SP[a2, a4], a1, a2, a3, n] - S2[a1, SP[a2, a4], a1, a3, a2, 
     n] - S2[a1, SP[a2, a4], a3, a1, a2, n] + S2[a1, SP[a3, a4], a1, a2, a2, 
     n] + S2[a2, a1, a1, a4, SP[a2, a3], n] + S2[a2, a1, a1, SP[a2, a4], a3, 
     n] + S2[a2, a1, a4, a1, SP[a2, a3], n] + S2[a2, a1, a4, SP[a1, a3], a2, 
     n] + S2[a2, a1, SP[a1, a4], a2, a3, n] + S2[a2, a1, SP[a1, a4], a3, a2, 
     n] + S2[a2, a4, a1, a1, SP[a2, a3], n] + S2[a2, a4, a1, SP[a1, a3], a2, 
     n] + S2[a2, a4, SP[a1, a3], a1, a2, n] + S2[a2, SP[a1, a4], a1, a2, a3, 
     n] + S2[a2, SP[a1, a4], a1, a3, a2, n] + S2[a2, SP[a1, a4], a3, a1, a2, 
     n] - S2[a3, a1, a1, a2, SP[a2, a4], n] - S2[a3, a1, a1, SP[a2, a4], a2, 
     n] - S2[a3, a1, SP[a1, a4], a2, a2, n] - S2[a3, SP[a1, a4], a1, a2, a2, 
     n] + S2[a3, n]*S2[a4, a1, a1, a2, a2, n] - 
    S2[a2, n]*S2[a4, a1, a1, a2, a3, n] - 
    S2[a2, n]*S2[a4, a1, a1, a3, a2, n] - S2[a4, a1, a1, a3, SP[a2, a2], n] - 
    S2[a4, a1, a1, SP[a2, a2], a3, n] + (S2[a1, n]*S2[a4, a1, a2, a2, a3, n])/
     2 + S2[a4, a1, a2, a2, SP[a1, a3], n]/2 + 
    (S2[a1, n]*S2[a4, a1, a2, a3, a2, n])/2 + 
    S2[a4, a1, a2, a3, SP[a1, a2], n]/2 + S2[a4, a1, a2, SP[a1, a2], a3, n]/
     2 + S2[a4, a1, a2, SP[a1, a3], a2, n]/2 - 
    S2[a2, n]*S2[a4, a1, a3, a1, a2, n] - S2[a4, a1, a3, a1, SP[a2, a2], n] + 
    (S2[a1, n]*S2[a4, a1, a3, a2, a2, n])/2 + 
    S2[a4, a1, a3, a2, SP[a1, a2], n]/2 - S2[a4, a1, a3, SP[a1, a2], a2, n]/
     2 - S2[a4, a1, SP[a1, a2], a2, a3, n]/2 - 
    S2[a4, a1, SP[a1, a2], a3, a2, n]/2 + 
    (3*S2[a4, a1, SP[a1, a3], a2, a2, n])/2 - S2[a4, a1, SP[a2, a3], a1, a2, 
     n] + (S2[a1, n]*S2[a4, a2, a1, a2, a3, n])/2 + 
    S2[a4, a2, a1, a2, SP[a1, a3], n]/2 + 
    (S2[a1, n]*S2[a4, a2, a1, a3, a2, n])/2 + 
    S2[a4, a2, a1, a3, SP[a1, a2], n]/2 + S2[a4, a2, a1, SP[a1, a2], a3, n]/
     2 + S2[a4, a2, a1, SP[a1, a3], a2, n]/2 - 
    (S2[a1, n]*S2[a4, a2, a2, a1, a3, n])/2 - 
    S2[a4, a2, a2, a1, SP[a1, a3], n]/2 - 
    (S2[a1, n]*S2[a4, a2, a2, a3, a1, n])/2 - 
    S2[a4, a2, a2, a3, SP[a1, a1], n]/2 - S2[a4, a2, a2, SP[a1, a1], a3, n]/
     2 - S2[a4, a2, a2, SP[a1, a3], a1, n]/2 + 
    (S2[a1, n]*S2[a4, a2, a3, a1, a2, n])/2 + 
    S2[a4, a2, a3, a1, SP[a1, a2], n]/2 - 
    (S2[a1, n]*S2[a4, a2, a3, a2, a1, n])/2 - 
    S2[a4, a2, a3, a2, SP[a1, a1], n]/2 + S2[a4, a2, a3, SP[a1, a1], a2, n]/
     2 - S2[a4, a2, a3, SP[a1, a2], a1, n]/2 + 
    S2[a4, a2, SP[a1, a1], a2, a3, n]/2 + S2[a4, a2, SP[a1, a1], a3, a2, n]/
     2 - S2[a4, a2, SP[a1, a2], a1, a3, n]/2 - 
    S2[a4, a2, SP[a1, a2], a3, a1, n]/2 + S2[a4, a2, SP[a1, a3], a1, a2, n]/
     2 - S2[a4, a2, SP[a1, a3], a2, a1, n]/2 - 
    S2[a2, n]*S2[a4, a3, a1, a1, a2, n] - S2[a4, a3, a1, a1, SP[a2, a2], n] + 
    (S2[a1, n]*S2[a4, a3, a1, a2, a2, n])/2 + 
    S2[a4, a3, a1, a2, SP[a1, a2], n]/2 - S2[a4, a3, a1, SP[a1, a2], a2, n]/
     2 + (S2[a1, n]*S2[a4, a3, a2, a1, a2, n])/2 + 
    S2[a4, a3, a2, a1, SP[a1, a2], n]/2 - 
    (S2[a1, n]*S2[a4, a3, a2, a2, a1, n])/2 - 
    S2[a4, a3, a2, a2, SP[a1, a1], n]/2 + S2[a4, a3, a2, SP[a1, a1], a2, n]/
     2 - S2[a4, a3, a2, SP[a1, a2], a1, n]/2 + 
    S2[a4, a3, SP[a1, a1], a2, a2, n]/2 - S2[a4, a3, SP[a1, a2], a1, a2, n]/
     2 - S2[a4, a3, SP[a1, a2], a2, a1, n]/2 + 
    S2[a4, SP[a1, a1], a2, a2, a3, n]/2 + S2[a4, SP[a1, a1], a2, a3, a2, n]/
     2 + S2[a4, SP[a1, a1], a3, a2, a2, n]/2 - 
    S2[a4, SP[a1, a2], a1, a2, a3, n]/2 - S2[a4, SP[a1, a2], a1, a3, a2, n]/
     2 - S2[a4, SP[a1, a2], a2, a1, a3, n]/2 - 
    S2[a4, SP[a1, a2], a2, a3, a1, n]/2 - S2[a4, SP[a1, a2], a3, a1, a2, n]/
     2 - S2[a4, SP[a1, a2], a3, a2, a1, n]/2 + 
    (3*S2[a4, SP[a1, a3], a1, a2, a2, n])/2 + 
    S2[a4, SP[a1, a3], a2, a1, a2, n]/2 - S2[a4, SP[a1, a3], a2, a2, a1, n]/
     2 - S2[a4, SP[a2, a3], a1, a1, a2, n] + 
    S2[SP[a1, a1], a4, a2, a2, a3, n]/2 + S2[SP[a1, a1], a4, a2, a3, a2, n]/
     2 + S2[SP[a1, a1], a4, a3, a2, a2, n]/2 + 
    S2[SP[a1, a4], a1, a2, a2, a3, n]/2 + S2[SP[a1, a4], a1, a2, a3, a2, n]/
     2 + S2[SP[a1, a4], a1, a3, a2, a2, n]/2 + 
    S2[SP[a1, a4], a2, a1, a2, a3, n]/2 + S2[SP[a1, a4], a2, a1, a3, a2, n]/
     2 - S2[SP[a1, a4], a2, a2, a1, a3, n]/2 - 
    S2[SP[a1, a4], a2, a2, a3, a1, n]/2 + S2[SP[a1, a4], a2, a3, a1, a2, n]/
     2 - S2[SP[a1, a4], a2, a3, a2, a1, n]/2 + 
    S2[SP[a1, a4], a3, a1, a2, a2, n]/2 + S2[SP[a1, a4], a3, a2, a1, a2, n]/
     2 - S2[SP[a1, a4], a3, a2, a2, a1, n]/2 - S2[SP[a2, a4], a1, a1, a2, a3, 
     n] - S2[SP[a2, a4], a1, a1, a3, a2, n] - S2[SP[a2, a4], a1, a3, a1, a2, 
     n] - S2[SP[a2, a4], a3, a1, a1, a2, n] + S2[SP[a3, a4], a1, a1, a2, a2, 
     n] + S2[a4, a2, a2, a1, a1, a3, n] + S2[a4, a2, a2, a1, a3, a1, n] + 
    S2[a4, a2, a2, a3, a1, a1, n] + S2[a4, a2, a3, a2, a1, a1, n] + 
    S2[a4, a3, a2, a2, a1, a1, n] /; MyMemberQ[{{a1, a2}, {a3, a4}}, 
     {a1, a1, a2, a2, a3, a4}] && a1 != a2 != a3 != a4, 
 S2[a1_, a1_, a2_, a3_, a2_, a4_, n_] :> 
  -(S2[a1, a1, a2, n]*S2[a2, a3, a4, n]) - S2[a1, a1, a2, n]*
     S2[a2, a4, a3, n] - S2[SP[a1, a2], SP[a1, a3], SP[a2, a4], n] - 
    S2[SP[a1, a2], SP[a1, a4], SP[a2, a3], n] + 
    S2[a2, a4, n]*S2[a1, a1, a2, a3, n] - S2[a1, a1, SP[a2, a2], SP[a3, a4], 
     n] + S2[a1, a2, SP[a1, a3], SP[a2, a4], n] + S2[a1, a2, SP[a1, a4], 
     SP[a2, a3], n] - S2[a1, SP[a1, a2], a2, SP[a3, a4], n] + 
    S2[a1, SP[a1, a2], a3, SP[a2, a4], n] + S2[a1, SP[a1, a2], a4, 
     SP[a2, a3], n] + S2[a1, SP[a1, a2], SP[a2, a3], a4, n] + 
    S2[a2, a1, SP[a1, a3], SP[a2, a4], n] + S2[a2, a1, SP[a1, a4], 
     SP[a2, a3], n] + S2[a2, SP[a1, a3], a1, SP[a2, a4], n] + 
    S2[a2, SP[a1, a3], SP[a1, a4], a2, n] + S2[a2, SP[a1, a4], a1, 
     SP[a2, a3], n] + S2[a2, SP[a1, a4], SP[a1, a3], a2, n] - 
    S2[SP[a1, a2], a1, a2, SP[a3, a4], n] + S2[SP[a1, a2], a1, a3, 
     SP[a2, a4], n] + S2[SP[a1, a2], a1, a4, SP[a2, a3], n] + 
    S2[SP[a1, a2], a1, SP[a2, a3], a4, n] + S2[SP[a1, a2], a3, a1, 
     SP[a2, a4], n] + S2[SP[a1, a2], a3, SP[a1, a4], a2, n] + 
    S2[SP[a1, a2], a4, a1, SP[a2, a3], n] + S2[SP[a1, a2], a4, SP[a1, a3], 
     a2, n] + S2[SP[a1, a2], SP[a1, a3], a2, a4, n] + 
    S2[SP[a1, a2], SP[a1, a3], a4, a2, n] + S2[SP[a1, a2], SP[a1, a4], a3, 
     a2, n] + 2*S2[a1, a1, a2, a2, SP[a3, a4], n] - 
    S2[a1, a1, a2, a3, SP[a2, a4], n] - S2[a1, a1, a2, a4, SP[a2, a3], n] - 
    2*S2[a4, n]*S2[a1, a1, a3, a2, a2, n] + 
    S2[a2, n]*S2[a1, a1, a3, a2, a4, n] - S2[a1, a1, a3, a2, SP[a2, a4], n] + 
    S2[a2, n]*S2[a1, a1, a3, a4, a2, n] + S2[a1, a1, a3, a4, SP[a2, a2], n] + 
    S2[a1, a1, a3, SP[a2, a2], a4, n] - S2[a1, a1, a3, SP[a2, a4], a2, n] + 
    S2[a2, n]*S2[a1, a1, a4, a3, a2, n] + S2[a1, a1, a4, a3, SP[a2, a2], n] + 
    S2[a1, a1, a4, SP[a2, a3], a2, n] + S2[a1, a1, SP[a2, a3], a2, a4, n] + 
    S2[a1, a1, SP[a2, a3], a4, a2, n] + S2[a1, a1, SP[a2, a4], a3, a2, n] - 
    2*S2[a1, a1, SP[a3, a4], a2, a2, n] + S2[a1, a2, a1, a2, SP[a3, a4], n] - 
    S2[a1, a2, a1, a3, SP[a2, a4], n] - S2[a1, a2, a1, a4, SP[a2, a3], n] - 
    S2[a1, a2, a1, SP[a2, a3], a4, n] - S2[a1, a2, a3, a1, SP[a2, a4], n] - 
    S2[a1, a2, a3, SP[a1, a4], a2, n] - S2[a1, a2, a4, a1, SP[a2, a3], n] - 
    S2[a1, a2, a4, SP[a1, a3], a2, n] - S2[a1, a2, SP[a1, a3], a2, a4, n] - 
    S2[a1, a2, SP[a1, a3], a4, a2, n] - S2[a1, a2, SP[a1, a4], a3, a2, n] - 
    2*S2[a4, n]*S2[a1, a3, a1, a2, a2, n] + 
    S2[a2, n]*S2[a1, a3, a1, a2, a4, n] - S2[a1, a3, a1, a2, SP[a2, a4], n] + 
    S2[a2, n]*S2[a1, a3, a1, a4, a2, n] + S2[a1, a3, a1, a4, SP[a2, a2], n] + 
    S2[a1, a3, a1, SP[a2, a2], a4, n] - S2[a1, a3, a1, SP[a2, a4], a2, n] - 
    S2[a4, n]*S2[a1, a3, a2, a1, a2, n] - S2[a1, a3, a2, a1, SP[a2, a4], n] - 
    S2[a1, a3, a2, SP[a1, a4], a2, n] + S2[a2, n]*S2[a1, a3, a4, a1, a2, n] + 
    S2[a1, a3, a4, a1, SP[a2, a2], n] + S2[a1, a3, a4, SP[a1, a2], a2, n] + 
    S2[a1, a3, SP[a1, a2], a2, a4, n] + S2[a1, a3, SP[a1, a2], a4, a2, n] - 
    2*S2[a1, a3, SP[a1, a4], a2, a2, n] + 
    S2[a2, n]*S2[a1, a4, a1, a3, a2, n] + S2[a1, a4, a1, a3, SP[a2, a2], n] + 
    S2[a1, a4, a1, SP[a2, a3], a2, n] - (S2[a1, n]*S2[a1, a4, a2, a3, a2, n])/
     2 - S2[a1, a4, a2, a3, SP[a1, a2], n]/2 - 
    S2[a1, a4, a2, SP[a1, a3], a2, n]/2 + 
    S2[a2, n]*S2[a1, a4, a3, a1, a2, n] + S2[a1, a4, a3, a1, SP[a2, a2], n] + 
    S2[a1, a4, a3, SP[a1, a2], a2, n] + S2[a1, a4, SP[a1, a2], a3, a2, n]/2 + 
    S2[a1, a4, SP[a2, a3], a1, a2, n] - S2[a1, SP[a1, a4], a2, a3, a2, n]/2 - 
    2*S2[a1, SP[a1, a4], a3, a2, a2, n] + S2[a1, SP[a2, a3], a1, a2, a4, n] + 
    S2[a1, SP[a2, a3], a1, a4, a2, n] + S2[a1, SP[a2, a3], a4, a1, a2, n] + 
    S2[a1, SP[a2, a4], a1, a3, a2, n] + S2[a1, SP[a2, a4], a3, a1, a2, n] - 
    2*S2[a1, SP[a3, a4], a1, a2, a2, n] - S2[a1, SP[a3, a4], a2, a1, a2, n] + 
    S2[a2, a1, a1, a2, SP[a3, a4], n] - S2[a2, a1, a1, a3, SP[a2, a4], n] - 
    S2[a2, a1, a1, a4, SP[a2, a3], n] - S2[a2, a1, a1, SP[a2, a3], a4, n] - 
    S2[a2, a1, a3, a1, SP[a2, a4], n] - S2[a2, a1, a3, SP[a1, a4], a2, n] - 
    S2[a2, a1, a4, a1, SP[a2, a3], n] - S2[a2, a1, a4, SP[a1, a3], a2, n] - 
    S2[a2, a1, SP[a1, a3], a2, a4, n] - S2[a2, a1, SP[a1, a3], a4, a2, n] - 
    S2[a2, a1, SP[a1, a4], a3, a2, n] + S2[a4, n]*S2[a2, a3, a1, a1, a2, n] - 
    S2[a2, a4, a1, a1, SP[a2, a3], n] - S2[a2, a4, a1, SP[a1, a3], a2, n] - 
    S2[a2, a4, SP[a1, a3], a1, a2, n] - S2[a2, SP[a1, a3], a1, a2, a4, n] - 
    S2[a2, SP[a1, a3], a1, a4, a2, n] - S2[a2, SP[a1, a3], a4, a1, a2, n] - 
    S2[a2, SP[a1, a4], a1, a3, a2, n] - S2[a2, SP[a1, a4], a3, a1, a2, n] + 
    S2[a2, SP[a3, a4], a1, a1, a2, n] + S2[a2, n]*S2[a4, a1, a1, a3, a2, n] + 
    S2[a4, a1, a1, a3, SP[a2, a2], n] + S2[a4, a1, a1, SP[a2, a3], a2, n] - 
    (S2[a1, n]*S2[a4, a1, a2, a3, a2, n])/2 - 
    S2[a4, a1, a2, a3, SP[a1, a2], n]/2 - S2[a4, a1, a2, SP[a1, a3], a2, n]/
     2 + S2[a2, n]*S2[a4, a1, a3, a1, a2, n] + S2[a4, a1, a3, a1, SP[a2, a2], 
     n] + S2[a4, a1, a3, SP[a1, a2], a2, n] + 
    S2[a4, a1, SP[a1, a2], a3, a2, n]/2 + S2[a4, a1, SP[a2, a3], a1, a2, n] - 
    (S2[a1, n]*S2[a4, a2, a1, a3, a2, n])/2 - 
    S2[a4, a2, a1, a3, SP[a1, a2], n]/2 - S2[a4, a2, a1, SP[a1, a3], a2, n]/
     2 - (S2[a1, n]*S2[a4, a2, a3, a1, a2, n])/2 - 
    S2[a4, a2, a3, a1, SP[a1, a2], n]/2 + 
    (S2[a1, n]*S2[a4, a2, a3, a2, a1, n])/2 + 
    S2[a4, a2, a3, a2, SP[a1, a1], n]/2 - S2[a4, a2, a3, SP[a1, a1], a2, n]/
     2 + S2[a4, a2, a3, SP[a1, a2], a1, n]/2 - 
    S2[a4, a2, SP[a1, a1], a3, a2, n]/2 - S2[a4, a2, SP[a1, a3], a1, a2, n]/
     2 + S2[a4, a2, SP[a1, a3], a2, a1, n]/2 - 
    S2[a4, SP[a1, a1], a2, a3, a2, n]/2 + S2[a4, SP[a1, a2], a1, a3, a2, n]/
     2 + S2[a4, SP[a1, a2], a3, a1, a2, n]/2 + 
    S2[a4, SP[a1, a2], a3, a2, a1, n]/2 - S2[SP[a1, a1], a4, a2, a3, a2, n]/
     2 - S2[SP[a1, a4], a1, a2, a3, a2, n]/2 - 
    2*S2[SP[a1, a4], a1, a3, a2, a2, n] - S2[SP[a1, a4], a2, a1, a3, a2, n]/
     2 - S2[SP[a1, a4], a2, a3, a1, a2, n]/2 + 
    S2[SP[a1, a4], a2, a3, a2, a1, n]/2 - 
    2*S2[SP[a1, a4], a3, a1, a2, a2, n] - S2[SP[a1, a4], a3, a2, a1, a2, n] + 
    S2[SP[a2, a4], a1, a1, a3, a2, n] + S2[SP[a2, a4], a1, a3, a1, a2, n] + 
    S2[SP[a2, a4], a3, a1, a1, a2, n] - S2[a4, a2, a3, a2, a1, a1, n] /; 
   MyMemberQ[{{a1, a2}, {a3, a4}}, {a1, a1, a2, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a1_, a1_, a2_, a3_, a4_, a2_, n_] :> 
  S2[a1, a1, a2, n]*S2[a2, a4, a3, n] + S2[SP[a1, a2], SP[a1, a4], 
     SP[a2, a3], n] - S2[a2, a4, n]*S2[a1, a1, a2, a3, n] + 
    S2[a1, a1, SP[a2, a2], SP[a3, a4], n] - S2[a1, a2, SP[a1, a4], 
     SP[a2, a3], n] + S2[a1, SP[a1, a2], a2, SP[a3, a4], n] - 
    S2[a1, SP[a1, a2], a4, SP[a2, a3], n] - S2[a2, a1, SP[a1, a4], 
     SP[a2, a3], n] - S2[a2, SP[a1, a4], a1, SP[a2, a3], n] - 
    S2[a2, SP[a1, a4], SP[a1, a3], a2, n] + S2[SP[a1, a2], a1, a2, 
     SP[a3, a4], n] - S2[SP[a1, a2], a1, a4, SP[a2, a3], n] - 
    S2[SP[a1, a2], a4, a1, SP[a2, a3], n] - S2[SP[a1, a2], a4, SP[a1, a3], 
     a2, n] - S2[SP[a1, a2], SP[a1, a4], a3, a2, n] - 
    2*S2[a1, a1, a2, a2, SP[a3, a4], n] + 
    S2[a2, n]*S2[a1, a1, a2, a3, a4, n] + S2[a1, a1, a2, a3, SP[a2, a4], n] + 
    S2[a1, a1, a2, a4, SP[a2, a3], n] - S2[a2, n]*S2[a1, a1, a4, a3, a2, n] - 
    S2[a1, a1, a4, a3, SP[a2, a2], n] - S2[a1, a1, a4, SP[a2, a3], a2, n] - 
    S2[a1, a1, SP[a2, a4], a3, a2, n] - S2[a1, a2, a1, a2, SP[a3, a4], n] + 
    S2[a1, a2, a1, a4, SP[a2, a3], n] + S2[a1, a2, a4, a1, SP[a2, a3], n] + 
    S2[a1, a2, a4, SP[a1, a3], a2, n] + S2[a1, a2, SP[a1, a4], a3, a2, n] - 
    S2[a2, n]*S2[a1, a4, a1, a3, a2, n] - S2[a1, a4, a1, a3, SP[a2, a2], n] - 
    S2[a1, a4, a1, SP[a2, a3], a2, n] + (S2[a1, n]*S2[a1, a4, a2, a3, a2, n])/
     2 + S2[a1, a4, a2, a3, SP[a1, a2], n]/2 + 
    S2[a1, a4, a2, SP[a1, a3], a2, n]/2 - 
    S2[a2, n]*S2[a1, a4, a3, a1, a2, n] - S2[a1, a4, a3, a1, SP[a2, a2], n] + 
    S2[a1, n]*S2[a1, a4, a3, a2, a2, n] + S2[a1, a4, a3, a2, SP[a1, a2], n] - 
    S2[a1, a4, SP[a1, a2], a3, a2, n]/2 + S2[a1, a4, SP[a1, a3], a2, a2, n] - 
    S2[a1, a4, SP[a2, a3], a1, a2, n] + S2[a1, SP[a1, a4], a2, a3, a2, n]/2 + 
    S2[a1, SP[a1, a4], a3, a2, a2, n] - S2[a1, SP[a2, a4], a1, a3, a2, n] - 
    S2[a1, SP[a2, a4], a3, a1, a2, n] - S2[a2, a1, a1, a2, SP[a3, a4], n] + 
    S2[a2, a1, a1, a4, SP[a2, a3], n] + S2[a2, a1, a4, a1, SP[a2, a3], n] + 
    S2[a2, a1, a4, SP[a1, a3], a2, n] + S2[a2, a1, SP[a1, a4], a3, a2, n] + 
    S2[a2, a4, a1, a1, SP[a2, a3], n] + S2[a2, a4, a1, SP[a1, a3], a2, n] + 
    S2[a2, a4, SP[a1, a3], a1, a2, n] + S2[a2, SP[a1, a4], a1, a3, a2, n] + 
    S2[a2, SP[a1, a4], a3, a1, a2, n] - S2[a2, n]*S2[a4, a1, a1, a3, a2, n] - 
    S2[a4, a1, a1, a3, SP[a2, a2], n] - S2[a4, a1, a1, SP[a2, a3], a2, n] + 
    (S2[a1, n]*S2[a4, a1, a2, a3, a2, n])/2 + 
    S2[a4, a1, a2, a3, SP[a1, a2], n]/2 + S2[a4, a1, a2, SP[a1, a3], a2, n]/
     2 - S2[a2, n]*S2[a4, a1, a3, a1, a2, n] - S2[a4, a1, a3, a1, SP[a2, a2], 
     n] + S2[a1, n]*S2[a4, a1, a3, a2, a2, n] + S2[a4, a1, a3, a2, 
     SP[a1, a2], n] - S2[a4, a1, SP[a1, a2], a3, a2, n]/2 + 
    S2[a4, a1, SP[a1, a3], a2, a2, n] - S2[a4, a1, SP[a2, a3], a1, a2, n] + 
    (S2[a1, n]*S2[a4, a2, a1, a3, a2, n])/2 + 
    S2[a4, a2, a1, a3, SP[a1, a2], n]/2 + S2[a4, a2, a1, SP[a1, a3], a2, n]/
     2 + (S2[a1, n]*S2[a4, a2, a3, a1, a2, n])/2 + 
    S2[a4, a2, a3, a1, SP[a1, a2], n]/2 - 
    (S2[a1, n]*S2[a4, a2, a3, a2, a1, n])/2 - 
    S2[a4, a2, a3, a2, SP[a1, a1], n]/2 + S2[a4, a2, a3, SP[a1, a1], a2, n]/
     2 - S2[a4, a2, a3, SP[a1, a2], a1, n]/2 + 
    S2[a4, a2, SP[a1, a1], a3, a2, n]/2 + S2[a4, a2, SP[a1, a3], a1, a2, n]/
     2 - S2[a4, a2, SP[a1, a3], a2, a1, n]/2 - 
    S2[a2, n]*S2[a4, a3, a1, a1, a2, n] - S2[a4, a3, a1, a1, SP[a2, a2], n] + 
    S2[a1, n]*S2[a4, a3, a1, a2, a2, n] + S2[a4, a3, a1, a2, SP[a1, a2], n] - 
    S2[a1, n]*S2[a4, a3, a2, a2, a1, n] - S2[a4, a3, a2, a2, SP[a1, a1], n] - 
    S2[a4, a3, a2, SP[a1, a2], a1, n] + S2[a4, a3, SP[a1, a1], a2, a2, n] - 
    S2[a4, a3, SP[a1, a2], a1, a2, n] - S2[a4, a3, SP[a1, a2], a2, a1, n] + 
    S2[a4, SP[a1, a1], a2, a3, a2, n]/2 + S2[a4, SP[a1, a1], a3, a2, a2, n] - 
    S2[a4, SP[a1, a2], a1, a3, a2, n]/2 - S2[a4, SP[a1, a2], a3, a1, a2, n]/
     2 - S2[a4, SP[a1, a2], a3, a2, a1, n]/2 + S2[a4, SP[a1, a3], a1, a2, a2, 
     n] - S2[a4, SP[a1, a3], a2, a2, a1, n] - S2[a4, SP[a2, a3], a1, a1, a2, 
     n] + S2[SP[a1, a1], a4, a2, a3, a2, n]/2 + S2[SP[a1, a1], a4, a3, a2, 
     a2, n] + S2[SP[a1, a4], a1, a2, a3, a2, n]/2 + 
    S2[SP[a1, a4], a1, a3, a2, a2, n] + S2[SP[a1, a4], a2, a1, a3, a2, n]/2 + 
    S2[SP[a1, a4], a2, a3, a1, a2, n]/2 - S2[SP[a1, a4], a2, a3, a2, a1, n]/
     2 + S2[SP[a1, a4], a3, a1, a2, a2, n] - S2[SP[a1, a4], a3, a2, a2, a1, 
     n] - S2[SP[a2, a4], a1, a1, a3, a2, n] - S2[SP[a2, a4], a1, a3, a1, a2, 
     n] - S2[SP[a2, a4], a3, a1, a1, a2, n] + S2[a4, a2, a3, a2, a1, a1, n] + 
    S2[a4, a3, a2, a1, a1, a2, n] + S2[a4, a3, a2, a1, a2, a1, n] + 
    2*S2[a4, a3, a2, a2, a1, a1, n] /; 
   MyMemberQ[{{a1, a2}, {a3, a4}}, {a1, a1, a2, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a1_, a1_, a2_, a4_, a2_, a3_, n_] :> 
  -(S2[a1, a1, a2, n]*S2[a2, a3, a4, n]) - S2[a1, a1, a2, n]*
     S2[a2, a4, a3, n] - S2[SP[a1, a2], SP[a1, a3], SP[a2, a4], n] - 
    S2[SP[a1, a2], SP[a1, a4], SP[a2, a3], n] + S2[a1, a2, SP[a1, a3], 
     SP[a2, a4], n] + S2[a1, a2, SP[a1, a4], SP[a2, a3], n] + 
    S2[a1, SP[a1, a2], a3, SP[a2, a4], n] + S2[a1, SP[a1, a2], a4, 
     SP[a2, a3], n] + S2[a1, SP[a1, a2], SP[a2, a3], a4, n] + 
    S2[a1, SP[a1, a2], SP[a2, a4], a3, n] + S2[a2, a1, SP[a1, a3], 
     SP[a2, a4], n] + S2[a2, a1, SP[a1, a4], SP[a2, a3], n] + 
    S2[a2, SP[a1, a3], a1, SP[a2, a4], n] + S2[a2, SP[a1, a3], SP[a1, a4], 
     a2, n] + S2[a2, SP[a1, a4], a1, SP[a2, a3], n] + 
    S2[a2, SP[a1, a4], SP[a1, a3], a2, n] + S2[SP[a1, a2], a1, a3, 
     SP[a2, a4], n] + S2[SP[a1, a2], a1, a4, SP[a2, a3], n] + 
    S2[SP[a1, a2], a1, SP[a2, a3], a4, n] + S2[SP[a1, a2], a1, SP[a2, a4], 
     a3, n] + S2[SP[a1, a2], a3, a1, SP[a2, a4], n] + 
    S2[SP[a1, a2], a3, SP[a1, a4], a2, n] + S2[SP[a1, a2], a4, a1, 
     SP[a2, a3], n] + S2[SP[a1, a2], a4, SP[a1, a3], a2, n] + 
    S2[SP[a1, a2], SP[a1, a3], a2, a4, n] + S2[SP[a1, a2], SP[a1, a3], a4, 
     a2, n] + S2[SP[a1, a2], SP[a1, a4], a2, a3, n] + 
    S2[SP[a1, a2], SP[a1, a4], a3, a2, n] - 
    S2[a4, n]*S2[a1, a1, a2, a3, a2, n] + 
    S2[a2, n]*S2[a1, a1, a2, a3, a4, n] - S2[a1, a1, a2, a3, SP[a2, a4], n] + 
    S2[a2, n]*S2[a1, a1, a2, a4, a3, n] - S2[a1, a1, a2, SP[a3, a4], a2, n] - 
    2*S2[a4, n]*S2[a1, a1, a3, a2, a2, n] + 
    S2[a2, n]*S2[a1, a1, a3, a2, a4, n] - S2[a1, a1, a3, a2, SP[a2, a4], n] + 
    S2[a2, n]*S2[a1, a1, a3, a4, a2, n] + S2[a1, a1, a3, a4, SP[a2, a2], n] + 
    S2[a1, a1, a3, SP[a2, a2], a4, n] - S2[a1, a1, a3, SP[a2, a4], a2, n] + 
    S2[a2, n]*S2[a1, a1, a4, a2, a3, n] + S2[a1, a1, a4, a2, SP[a2, a3], n] + 
    S2[a2, n]*S2[a1, a1, a4, a3, a2, n] + S2[a1, a1, a4, a3, SP[a2, a2], n] + 
    S2[a1, a1, a4, SP[a2, a2], a3, n] + S2[a1, a1, a4, SP[a2, a3], a2, n] + 
    S2[a1, a1, SP[a2, a3], a2, a4, n] + S2[a1, a1, SP[a2, a3], a4, a2, n] + 
    S2[a1, a1, SP[a2, a4], a2, a3, n] - 2*S2[a1, a1, SP[a3, a4], a2, a2, n] - 
    S2[a1, a2, a1, a3, SP[a2, a4], n] - S2[a1, a2, a1, a4, SP[a2, a3], n] - 
    S2[a1, a2, a1, SP[a2, a3], a4, n] - S2[a1, a2, a1, SP[a2, a4], a3, n] - 
    S2[a1, a2, a3, a1, SP[a2, a4], n] - S2[a1, a2, a3, SP[a1, a4], a2, n] - 
    S2[a1, a2, a4, a1, SP[a2, a3], n] - S2[a1, a2, a4, SP[a1, a3], a2, n] - 
    S2[a1, a2, SP[a1, a3], a2, a4, n] - S2[a1, a2, SP[a1, a3], a4, a2, n] - 
    S2[a1, a2, SP[a1, a4], a2, a3, n] - S2[a1, a2, SP[a1, a4], a3, a2, n] - 
    2*S2[a4, n]*S2[a1, a3, a1, a2, a2, n] + 
    S2[a2, n]*S2[a1, a3, a1, a2, a4, n] - S2[a1, a3, a1, a2, SP[a2, a4], n] + 
    S2[a2, n]*S2[a1, a3, a1, a4, a2, n] + S2[a1, a3, a1, a4, SP[a2, a2], n] + 
    S2[a1, a3, a1, SP[a2, a2], a4, n] - S2[a1, a3, a1, SP[a2, a4], a2, n] - 
    S2[a4, n]*S2[a1, a3, a2, a1, a2, n] - S2[a1, a3, a2, a1, SP[a2, a4], n] - 
    S2[a1, a3, a2, SP[a1, a4], a2, n] + S2[a2, n]*S2[a1, a3, a4, a1, a2, n] + 
    S2[a1, a3, a4, a1, SP[a2, a2], n] + S2[a1, a3, a4, SP[a1, a2], a2, n] + 
    S2[a1, a3, SP[a1, a2], a2, a4, n] + S2[a1, a3, SP[a1, a2], a4, a2, n] - 
    2*S2[a1, a3, SP[a1, a4], a2, a2, n] + 
    S2[a2, n]*S2[a1, a4, a1, a2, a3, n] + S2[a1, a4, a1, a2, SP[a2, a3], n] + 
    S2[a2, n]*S2[a1, a4, a1, a3, a2, n] + S2[a1, a4, a1, a3, SP[a2, a2], n] + 
    S2[a1, a4, a1, SP[a2, a2], a3, n] + S2[a1, a4, a1, SP[a2, a3], a2, n] - 
    S2[a1, n]*S2[a1, a4, a2, a2, a3, n] - S2[a1, a4, a2, a2, SP[a1, a3], n] - 
    (S2[a1, n]*S2[a1, a4, a2, a3, a2, n])/2 - 
    S2[a1, a4, a2, a3, SP[a1, a2], n]/2 - S2[a1, a4, a2, SP[a1, a2], a3, n] - 
    S2[a1, a4, a2, SP[a1, a3], a2, n]/2 + 
    S2[a2, n]*S2[a1, a4, a3, a1, a2, n] + S2[a1, a4, a3, a1, SP[a2, a2], n] + 
    S2[a1, a4, a3, SP[a1, a2], a2, n] + S2[a1, a4, SP[a1, a2], a3, a2, n]/2 + 
    S2[a1, a4, SP[a2, a3], a1, a2, n] - S2[a1, SP[a1, a4], a2, a2, a3, n] - 
    (3*S2[a1, SP[a1, a4], a2, a3, a2, n])/2 - 
    2*S2[a1, SP[a1, a4], a3, a2, a2, n] + S2[a1, SP[a2, a3], a1, a2, a4, n] + 
    S2[a1, SP[a2, a3], a1, a4, a2, n] + S2[a1, SP[a2, a3], a4, a1, a2, n] + 
    S2[a1, SP[a2, a4], a1, a2, a3, n] + S2[a1, SP[a2, a4], a1, a3, a2, n] + 
    S2[a1, SP[a2, a4], a3, a1, a2, n] - 2*S2[a1, SP[a3, a4], a1, a2, a2, n] - 
    S2[a1, SP[a3, a4], a2, a1, a2, n] - S2[a2, a1, a1, a3, SP[a2, a4], n] - 
    S2[a2, a1, a1, a4, SP[a2, a3], n] - S2[a2, a1, a1, SP[a2, a3], a4, n] - 
    S2[a2, a1, a1, SP[a2, a4], a3, n] - S2[a2, a1, a3, a1, SP[a2, a4], n] - 
    S2[a2, a1, a3, SP[a1, a4], a2, n] - S2[a2, a1, a4, a1, SP[a2, a3], n] - 
    S2[a2, a1, a4, SP[a1, a3], a2, n] - S2[a2, a1, SP[a1, a3], a2, a4, n] - 
    S2[a2, a1, SP[a1, a3], a4, a2, n] - S2[a2, a1, SP[a1, a4], a2, a3, n] - 
    S2[a2, a1, SP[a1, a4], a3, a2, n] + S2[a4, n]*S2[a2, a3, a1, a1, a2, n] - 
    S2[a2, a4, a1, a1, SP[a2, a3], n] - S2[a2, a4, a1, SP[a1, a3], a2, n] - 
    S2[a2, a4, SP[a1, a3], a1, a2, n] - S2[a2, SP[a1, a3], a1, a2, a4, n] - 
    S2[a2, SP[a1, a3], a1, a4, a2, n] - S2[a2, SP[a1, a3], a4, a1, a2, n] - 
    S2[a2, SP[a1, a4], a1, a2, a3, n] - S2[a2, SP[a1, a4], a1, a3, a2, n] - 
    S2[a2, SP[a1, a4], a3, a1, a2, n] + S2[a2, SP[a3, a4], a1, a1, a2, n] + 
    S2[a2, n]*S2[a4, a1, a1, a2, a3, n] + S2[a4, a1, a1, a2, SP[a2, a3], n] + 
    S2[a2, n]*S2[a4, a1, a1, a3, a2, n] + S2[a4, a1, a1, a3, SP[a2, a2], n] + 
    S2[a4, a1, a1, SP[a2, a2], a3, n] + S2[a4, a1, a1, SP[a2, a3], a2, n] - 
    S2[a1, n]*S2[a4, a1, a2, a2, a3, n] - S2[a4, a1, a2, a2, SP[a1, a3], n] - 
    (S2[a1, n]*S2[a4, a1, a2, a3, a2, n])/2 - 
    S2[a4, a1, a2, a3, SP[a1, a2], n]/2 - S2[a4, a1, a2, SP[a1, a2], a3, n] - 
    S2[a4, a1, a2, SP[a1, a3], a2, n]/2 + 
    S2[a2, n]*S2[a4, a1, a3, a1, a2, n] + S2[a4, a1, a3, a1, SP[a2, a2], n] + 
    S2[a4, a1, a3, SP[a1, a2], a2, n] + S2[a4, a1, SP[a1, a2], a3, a2, n]/2 + 
    S2[a4, a1, SP[a2, a3], a1, a2, n] - (S2[a1, n]*S2[a4, a2, a1, a3, a2, n])/
     2 - S2[a4, a2, a1, a3, SP[a1, a2], n]/2 - 
    S2[a4, a2, a1, SP[a1, a3], a2, n]/2 + 
    S2[a1, n]*S2[a4, a2, a2, a1, a3, n] + S2[a4, a2, a2, a1, SP[a1, a3], n] + 
    S2[a1, n]*S2[a4, a2, a2, a3, a1, n] + S2[a4, a2, a2, a3, SP[a1, a1], n] + 
    S2[a4, a2, a2, SP[a1, a1], a3, n] + S2[a4, a2, a2, SP[a1, a3], a1, n] - 
    (S2[a1, n]*S2[a4, a2, a3, a1, a2, n])/2 - 
    S2[a4, a2, a3, a1, SP[a1, a2], n]/2 + 
    (S2[a1, n]*S2[a4, a2, a3, a2, a1, n])/2 + 
    S2[a4, a2, a3, a2, SP[a1, a1], n]/2 - S2[a4, a2, a3, SP[a1, a1], a2, n]/
     2 + S2[a4, a2, a3, SP[a1, a2], a1, n]/2 - 
    S2[a4, a2, SP[a1, a1], a3, a2, n]/2 + S2[a4, a2, SP[a1, a2], a1, a3, n] + 
    S2[a4, a2, SP[a1, a2], a3, a1, n] - S2[a4, a2, SP[a1, a3], a1, a2, n]/2 + 
    S2[a4, a2, SP[a1, a3], a2, a1, n]/2 - S2[a4, SP[a1, a1], a2, a2, a3, n] - 
    S2[a4, SP[a1, a1], a2, a3, a2, n]/2 + S2[a4, SP[a1, a2], a1, a2, a3, n] + 
    S2[a4, SP[a1, a2], a1, a3, a2, n]/2 + S2[a4, SP[a1, a2], a2, a1, a3, n] + 
    S2[a4, SP[a1, a2], a2, a3, a1, n] + S2[a4, SP[a1, a2], a3, a1, a2, n]/2 + 
    S2[a4, SP[a1, a2], a3, a2, a1, n]/2 - S2[SP[a1, a1], a4, a2, a2, a3, n] - 
    S2[SP[a1, a1], a4, a2, a3, a2, n]/2 - S2[SP[a1, a4], a1, a2, a2, a3, n] - 
    (3*S2[SP[a1, a4], a1, a2, a3, a2, n])/2 - 
    2*S2[SP[a1, a4], a1, a3, a2, a2, n] - S2[SP[a1, a4], a2, a1, a3, a2, n]/
     2 + S2[SP[a1, a4], a2, a2, a1, a3, n] + S2[SP[a1, a4], a2, a2, a3, a1, 
     n] - S2[SP[a1, a4], a2, a3, a1, a2, n]/2 + 
    S2[SP[a1, a4], a2, a3, a2, a1, n]/2 - 
    2*S2[SP[a1, a4], a3, a1, a2, a2, n] - S2[SP[a1, a4], a3, a2, a1, a2, n] + 
    S2[SP[a2, a4], a1, a1, a2, a3, n] + S2[SP[a2, a4], a1, a1, a3, a2, n] + 
    S2[SP[a2, a4], a1, a3, a1, a2, n] + S2[SP[a2, a4], a3, a1, a1, a2, n] - 
    S2[a4, a2, a1, a1, a2, a3, n] - S2[a4, a2, a1, a2, a1, a3, n] - 
    S2[a4, a2, a1, a2, a3, a1, n] - 2*S2[a4, a2, a2, a1, a1, a3, n] - 
    2*S2[a4, a2, a2, a1, a3, a1, n] - 2*S2[a4, a2, a2, a3, a1, a1, n] - 
    S2[a4, a2, a3, a2, a1, a1, n] /; MyMemberQ[{{a1, a2}, {a3, a4}}, 
     {a1, a1, a2, a2, a3, a4}] && a1 != a2 != a3 != a4, 
 S2[a1_, a1_, a2_, a4_, a3_, a2_, n_] :> 
  S2[a1, a1, a2, n]*S2[a2, a3, a4, n] + S2[SP[a1, a2], SP[a1, a3], 
     SP[a2, a4], n] - S2[a1, a2, SP[a1, a3], SP[a2, a4], n] - 
    S2[a1, SP[a1, a2], a3, SP[a2, a4], n] - S2[a1, SP[a1, a2], SP[a2, a3], 
     a4, n] - S2[a2, a1, SP[a1, a3], SP[a2, a4], n] - 
    S2[a2, SP[a1, a3], a1, SP[a2, a4], n] - S2[a2, SP[a1, a3], SP[a1, a4], 
     a2, n] - S2[SP[a1, a2], a1, a3, SP[a2, a4], n] - 
    S2[SP[a1, a2], a1, SP[a2, a3], a4, n] - S2[SP[a1, a2], a3, a1, 
     SP[a2, a4], n] - S2[SP[a1, a2], a3, SP[a1, a4], a2, n] - 
    S2[SP[a1, a2], SP[a1, a3], a2, a4, n] - S2[SP[a1, a2], SP[a1, a3], a4, 
     a2, n] + S2[a4, n]*S2[a1, a1, a2, a3, a2, n] - 
    S2[a2, n]*S2[a1, a1, a2, a3, a4, n] + S2[a1, a1, a2, a3, SP[a2, a4], n] + 
    S2[a1, a1, a2, SP[a3, a4], a2, n] + 2*S2[a4, n]*
     S2[a1, a1, a3, a2, a2, n] - S2[a2, n]*S2[a1, a1, a3, a2, a4, n] + 
    S2[a1, a1, a3, a2, SP[a2, a4], n] - S2[a2, n]*S2[a1, a1, a3, a4, a2, n] - 
    S2[a1, a1, a3, a4, SP[a2, a2], n] - S2[a1, a1, a3, SP[a2, a2], a4, n] + 
    S2[a1, a1, a3, SP[a2, a4], a2, n] - S2[a1, a1, SP[a2, a3], a2, a4, n] - 
    S2[a1, a1, SP[a2, a3], a4, a2, n] + S2[a1, a1, SP[a2, a4], a3, a2, n] + 
    2*S2[a1, a1, SP[a3, a4], a2, a2, n] + S2[a1, a2, a1, a3, SP[a2, a4], n] + 
    S2[a1, a2, a1, SP[a2, a3], a4, n] + S2[a1, a2, a3, a1, SP[a2, a4], n] + 
    S2[a1, a2, a3, SP[a1, a4], a2, n] + S2[a1, a2, SP[a1, a3], a2, a4, n] + 
    S2[a1, a2, SP[a1, a3], a4, a2, n] + 2*S2[a4, n]*
     S2[a1, a3, a1, a2, a2, n] - S2[a2, n]*S2[a1, a3, a1, a2, a4, n] + 
    S2[a1, a3, a1, a2, SP[a2, a4], n] - S2[a2, n]*S2[a1, a3, a1, a4, a2, n] - 
    S2[a1, a3, a1, a4, SP[a2, a2], n] - S2[a1, a3, a1, SP[a2, a2], a4, n] + 
    S2[a1, a3, a1, SP[a2, a4], a2, n] + S2[a4, n]*S2[a1, a3, a2, a1, a2, n] + 
    S2[a1, a3, a2, a1, SP[a2, a4], n] + S2[a1, a3, a2, SP[a1, a4], a2, n] - 
    S2[a2, n]*S2[a1, a3, a4, a1, a2, n] - S2[a1, a3, a4, a1, SP[a2, a2], n] - 
    S2[a1, a3, a4, SP[a1, a2], a2, n] - S2[a1, a3, SP[a1, a2], a2, a4, n] - 
    S2[a1, a3, SP[a1, a2], a4, a2, n] + 2*S2[a1, a3, SP[a1, a4], a2, a2, n] - 
    (S2[a1, n]*S2[a1, a4, a2, a3, a2, n])/2 - 
    S2[a1, a4, a2, a3, SP[a1, a2], n]/2 - S2[a1, a4, a2, SP[a1, a3], a2, n]/
     2 - S2[a1, n]*S2[a1, a4, a3, a2, a2, n] - S2[a1, a4, a3, a2, SP[a1, a2], 
     n] - S2[a1, a4, a3, SP[a1, a2], a2, n] - 
    S2[a1, a4, SP[a1, a2], a3, a2, n]/2 - S2[a1, a4, SP[a1, a3], a2, a2, n] + 
    S2[a1, SP[a1, a4], a2, a3, a2, n]/2 + S2[a1, SP[a1, a4], a3, a2, a2, n] - 
    S2[a1, SP[a2, a3], a1, a2, a4, n] - S2[a1, SP[a2, a3], a1, a4, a2, n] - 
    S2[a1, SP[a2, a3], a4, a1, a2, n] + 2*S2[a1, SP[a3, a4], a1, a2, a2, n] + 
    S2[a1, SP[a3, a4], a2, a1, a2, n] + S2[a2, a1, a1, a3, SP[a2, a4], n] + 
    S2[a2, a1, a1, SP[a2, a3], a4, n] + S2[a2, a1, a3, a1, SP[a2, a4], n] + 
    S2[a2, a1, a3, SP[a1, a4], a2, n] + S2[a2, a1, SP[a1, a3], a2, a4, n] + 
    S2[a2, a1, SP[a1, a3], a4, a2, n] - S2[a4, n]*S2[a2, a3, a1, a1, a2, n] + 
    S2[a2, SP[a1, a3], a1, a2, a4, n] + S2[a2, SP[a1, a3], a1, a4, a2, n] + 
    S2[a2, SP[a1, a3], a4, a1, a2, n] - S2[a2, SP[a3, a4], a1, a1, a2, n] - 
    (S2[a1, n]*S2[a4, a1, a2, a3, a2, n])/2 - 
    S2[a4, a1, a2, a3, SP[a1, a2], n]/2 - S2[a4, a1, a2, SP[a1, a3], a2, n]/
     2 - S2[a1, n]*S2[a4, a1, a3, a2, a2, n] - S2[a4, a1, a3, a2, SP[a1, a2], 
     n] - S2[a4, a1, a3, SP[a1, a2], a2, n] - 
    S2[a4, a1, SP[a1, a2], a3, a2, n]/2 - S2[a4, a1, SP[a1, a3], a2, a2, n] + 
    (S2[a1, n]*S2[a4, a2, a1, a3, a2, n])/2 + 
    S2[a4, a2, a1, a3, SP[a1, a2], n]/2 + S2[a4, a2, a1, SP[a1, a3], a2, n]/
     2 + (S2[a1, n]*S2[a4, a2, a3, a1, a2, n])/2 + 
    S2[a4, a2, a3, a1, SP[a1, a2], n]/2 + 
    (S2[a1, n]*S2[a4, a2, a3, a2, a1, n])/2 + 
    S2[a4, a2, a3, a2, SP[a1, a1], n]/2 + S2[a4, a2, a3, SP[a1, a1], a2, n]/
     2 + S2[a4, a2, a3, SP[a1, a2], a1, n]/2 + 
    S2[a4, a2, SP[a1, a1], a3, a2, n]/2 + S2[a4, a2, SP[a1, a3], a1, a2, n]/
     2 + S2[a4, a2, SP[a1, a3], a2, a1, n]/2 + 
    S2[a2, n]*S2[a4, a3, a1, a1, a2, n] + S2[a4, a3, a1, a1, SP[a2, a2], n] - 
    S2[a1, n]*S2[a4, a3, a1, a2, a2, n] - S2[a4, a3, a1, a2, SP[a1, a2], n] + 
    S2[a1, n]*S2[a4, a3, a2, a2, a1, n] + S2[a4, a3, a2, a2, SP[a1, a1], n] + 
    S2[a4, a3, a2, SP[a1, a2], a1, n] - S2[a4, a3, SP[a1, a1], a2, a2, n] + 
    S2[a4, a3, SP[a1, a2], a1, a2, n] + S2[a4, a3, SP[a1, a2], a2, a1, n] - 
    S2[a4, SP[a1, a1], a2, a3, a2, n]/2 - S2[a4, SP[a1, a1], a3, a2, a2, n] + 
    S2[a4, SP[a1, a2], a1, a3, a2, n]/2 + S2[a4, SP[a1, a2], a3, a1, a2, n]/
     2 + S2[a4, SP[a1, a2], a3, a2, a1, n]/2 - S2[a4, SP[a1, a3], a1, a2, a2, 
     n] + S2[a4, SP[a1, a3], a2, a2, a1, n] + S2[a4, SP[a2, a3], a1, a1, a2, 
     n] - S2[SP[a1, a1], a4, a2, a3, a2, n]/2 - S2[SP[a1, a1], a4, a3, a2, 
     a2, n] + S2[SP[a1, a4], a1, a2, a3, a2, n]/2 + 
    S2[SP[a1, a4], a1, a3, a2, a2, n] + S2[SP[a1, a4], a2, a1, a3, a2, n]/2 + 
    S2[SP[a1, a4], a2, a3, a1, a2, n]/2 + S2[SP[a1, a4], a2, a3, a2, a1, n]/
     2 + S2[SP[a1, a4], a3, a1, a2, a2, n] + S2[SP[a1, a4], a3, a2, a1, a2, 
     n] + S2[SP[a1, a4], a3, a2, a2, a1, n] - S2[a4, a2, a1, a1, a3, a2, n] - 
    S2[a4, a2, a1, a3, a1, a2, n] - S2[a4, a2, a1, a3, a2, a1, n] - 
    S2[a4, a2, a3, a1, a1, a2, n] - S2[a4, a2, a3, a1, a2, a1, n] - 
    S2[a4, a2, a3, a2, a1, a1, n] - S2[a4, a3, a2, a1, a1, a2, n] - 
    S2[a4, a3, a2, a1, a2, a1, n] - 2*S2[a4, a3, a2, a2, a1, a1, n] /; 
   MyMemberQ[{{a1, a2}, {a3, a4}}, {a1, a1, a2, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a1_, a1_, a3_, a2_, a2_, a4_, n_] :> 
  S2[a1, a1, a3, n]*S2[a2, a2, a4, n] + S2[SP[a1, a2], SP[a1, a2], 
     SP[a3, a4], n] + S2[a2, a4, n]*S2[a1, a1, a3, a2, n] - 
    S2[a1, a1, SP[a2, a3], SP[a2, a4], n] - S2[a1, a2, SP[a1, a2], 
     SP[a3, a4], n] - S2[a1, SP[a1, a2], a2, SP[a3, a4], n] - 
    S2[a1, SP[a1, a2], a3, SP[a2, a4], n] - S2[a1, SP[a1, a2], SP[a2, a3], 
     a4, n] - S2[a1, SP[a1, a2], SP[a3, a4], a2, n] - 
    S2[a2, a1, SP[a1, a2], SP[a3, a4], n] - S2[a2, SP[a1, a2], a1, 
     SP[a3, a4], n] - S2[a2, SP[a1, a2], SP[a1, a4], a3, n] - 
    S2[SP[a1, a2], a1, a2, SP[a3, a4], n] - S2[SP[a1, a2], a1, a3, 
     SP[a2, a4], n] - S2[SP[a1, a2], a1, SP[a2, a3], a4, n] - 
    S2[SP[a1, a2], a1, SP[a3, a4], a2, n] - S2[SP[a1, a2], a2, a1, 
     SP[a3, a4], n] - S2[SP[a1, a2], a2, SP[a1, a4], a3, n] - 
    S2[SP[a1, a2], SP[a1, a2], a3, a4, n] - S2[SP[a1, a2], SP[a1, a2], a4, 
     a3, n] - S2[SP[a1, a2], SP[a1, a4], a3, a2, n] + 
    S2[a1, a1, a2, a2, SP[a3, a4], n] - (S2[a2, n]*S2[a1, a1, a2, a3, a4, n])/
     2 + S2[a1, a1, a2, a3, SP[a2, a4], n]/2 - 
    (S2[a2, n]*S2[a1, a1, a2, a4, a3, n])/2 - 
    S2[a1, a1, a2, a4, SP[a2, a3], n]/2 + S2[a1, a1, a2, SP[a2, a3], a4, n]/
     2 - S2[a1, a1, a2, SP[a2, a4], a3, n]/2 + S2[a1, a1, a2, SP[a3, a4], a2, 
     n] + S2[a4, n]*S2[a1, a1, a3, a2, a2, n] - 
    (3*S2[a2, n]*S2[a1, a1, a3, a2, a4, n])/2 + 
    S2[a1, a1, a3, a2, SP[a2, a4], n]/2 - 
    (S2[a2, n]*S2[a1, a1, a3, a4, a2, n])/2 - 
    S2[a1, a1, a3, a4, SP[a2, a2], n]/2 - S2[a1, a1, a3, SP[a2, a2], a4, n]/
     2 + S2[a1, a1, a3, SP[a2, a4], a2, n]/2 + 
    (S2[a2, n]*S2[a1, a1, a4, a2, a3, n])/2 + 
    S2[a1, a1, a4, a2, SP[a2, a3], n]/2 - 
    (S2[a2, n]*S2[a1, a1, a4, a3, a2, n])/2 - 
    S2[a1, a1, a4, a3, SP[a2, a2], n]/2 + S2[a1, a1, a4, SP[a2, a2], a3, n]/
     2 - S2[a1, a1, a4, SP[a2, a3], a2, n]/2 - 
    S2[a1, a1, SP[a2, a2], a3, a4, n]/2 - S2[a1, a1, SP[a2, a2], a4, a3, n]/
     2 + S2[a1, a1, SP[a2, a3], a2, a4, n]/2 + 
    S2[a1, a1, SP[a2, a3], a4, a2, n]/2 + S2[a1, a1, SP[a2, a4], a2, a3, n]/
     2 - S2[a1, a1, SP[a2, a4], a3, a2, n]/2 + S2[a1, a1, SP[a3, a4], a2, a2, 
     n] + S2[a1, a2, a1, a2, SP[a3, a4], n] - 
    (S2[a2, n]*S2[a1, a2, a1, a3, a4, n])/2 + 
    S2[a1, a2, a1, a3, SP[a2, a4], n]/2 - 
    (S2[a2, n]*S2[a1, a2, a1, a4, a3, n])/2 - 
    S2[a1, a2, a1, a4, SP[a2, a3], n]/2 + S2[a1, a2, a1, SP[a2, a3], a4, n]/
     2 - S2[a1, a2, a1, SP[a2, a4], a3, n]/2 + S2[a1, a2, a1, SP[a3, a4], a2, 
     n] + S2[a1, a2, a2, a1, SP[a3, a4], n] + S2[a1, a2, a2, SP[a1, a4], a3, 
     n] - (S2[a2, n]*S2[a1, a2, a4, a1, a3, n])/2 - 
    S2[a1, a2, a4, a1, SP[a2, a3], n]/2 - S2[a1, a2, a4, SP[a1, a2], a3, n]/
     2 + S2[a1, a2, SP[a1, a2], a3, a4, n]/2 + 
    S2[a1, a2, SP[a1, a2], a4, a3, n]/2 + S2[a1, a2, SP[a1, a4], a3, a2, n] - 
    S2[a1, a2, SP[a2, a4], a1, a3, n]/2 + 
    (S2[a2, n]*S2[a1, a4, a1, a2, a3, n])/2 + 
    S2[a1, a4, a1, a2, SP[a2, a3], n]/2 - 
    (S2[a2, n]*S2[a1, a4, a1, a3, a2, n])/2 - 
    S2[a1, a4, a1, a3, SP[a2, a2], n]/2 + S2[a1, a4, a1, SP[a2, a2], a3, n]/
     2 - S2[a1, a4, a1, SP[a2, a3], a2, n]/2 + 
    (S2[a2, n]*S2[a1, a4, a2, a1, a3, n])/2 + 
    S2[a1, a4, a2, a1, SP[a2, a3], n]/2 - 
    (S2[a1, n]*S2[a1, a4, a2, a2, a3, n])/2 - 
    S2[a1, a4, a2, a2, SP[a1, a3], n]/2 - S2[a1, a4, SP[a1, a2], a3, a2, n]/
     2 + S2[a1, a4, SP[a2, a2], a1, a3, n]/2 + 
    S2[a1, SP[a1, a2], a2, a3, a4, n]/2 + S2[a1, SP[a1, a2], a2, a4, a3, n]/
     2 + S2[a1, SP[a1, a2], a3, a2, a4, n]/2 + 
    S2[a1, SP[a1, a2], a3, a4, a2, n]/2 + S2[a1, SP[a1, a2], a4, a2, a3, n]/
     2 + S2[a1, SP[a1, a2], a4, a3, a2, n]/2 - 
    S2[a1, SP[a1, a4], a2, a2, a3, n]/2 + S2[a1, SP[a1, a4], a3, a2, a2, n] - 
    S2[a1, SP[a2, a2], a1, a3, a4, n]/2 - S2[a1, SP[a2, a2], a1, a4, a3, n]/
     2 - S2[a1, SP[a2, a2], a4, a1, a3, n]/2 + 
    S2[a1, SP[a2, a4], a1, a2, a3, n]/2 - S2[a1, SP[a2, a4], a1, a3, a2, n]/
     2 + S2[a1, SP[a2, a4], a2, a1, a3, n]/2 + S2[a2, a1, a1, a2, SP[a3, a4], 
     n] - (S2[a2, n]*S2[a2, a1, a1, a3, a4, n])/2 + 
    S2[a2, a1, a1, a3, SP[a2, a4], n]/2 - 
    (S2[a2, n]*S2[a2, a1, a1, a4, a3, n])/2 - 
    S2[a2, a1, a1, a4, SP[a2, a3], n]/2 + S2[a2, a1, a1, SP[a2, a3], a4, n]/
     2 - S2[a2, a1, a1, SP[a2, a4], a3, n]/2 + S2[a2, a1, a1, SP[a3, a4], a2, 
     n] + S2[a2, a1, a2, a1, SP[a3, a4], n] + S2[a2, a1, a2, SP[a1, a4], a3, 
     n] - (S2[a2, n]*S2[a2, a1, a4, a1, a3, n])/2 - 
    S2[a2, a1, a4, a1, SP[a2, a3], n]/2 - S2[a2, a1, a4, SP[a1, a2], a3, n]/
     2 + S2[a2, a1, SP[a1, a2], a3, a4, n]/2 + 
    S2[a2, a1, SP[a1, a2], a4, a3, n]/2 + S2[a2, a1, SP[a1, a4], a3, a2, n] - 
    S2[a2, a1, SP[a2, a4], a1, a3, n]/2 + S2[a2, a2, a1, a1, SP[a3, a4], n] + 
    S2[a2, a2, a1, SP[a1, a4], a3, n] + S2[a2, a2, SP[a1, a4], a1, a3, n] - 
    (S2[a2, n]*S2[a2, a4, a1, a1, a3, n])/2 - 
    S2[a2, a4, a1, a1, SP[a2, a3], n]/2 - S2[a2, a4, a1, SP[a1, a2], a3, n]/
     2 - S2[a2, a4, SP[a1, a2], a1, a3, n]/2 + 
    S2[a2, SP[a1, a2], a1, a3, a4, n]/2 + S2[a2, SP[a1, a2], a1, a4, a3, n]/
     2 + S2[a2, SP[a1, a2], a4, a1, a3, n]/2 + S2[a2, SP[a1, a4], a1, a3, a2, 
     n] - S2[a2, SP[a2, a4], a1, a1, a3, n]/2 + 
    (S2[a2, n]*S2[a4, a1, a1, a2, a3, n])/2 + 
    S2[a4, a1, a1, a2, SP[a2, a3], n]/2 - 
    (S2[a2, n]*S2[a4, a1, a1, a3, a2, n])/2 - 
    S2[a4, a1, a1, a3, SP[a2, a2], n]/2 + S2[a4, a1, a1, SP[a2, a2], a3, n]/
     2 - S2[a4, a1, a1, SP[a2, a3], a2, n]/2 + 
    (S2[a2, n]*S2[a4, a1, a2, a1, a3, n])/2 + 
    S2[a4, a1, a2, a1, SP[a2, a3], n]/2 - 
    (S2[a1, n]*S2[a4, a1, a2, a2, a3, n])/2 - 
    S2[a4, a1, a2, a2, SP[a1, a3], n]/2 - S2[a4, a1, SP[a1, a2], a3, a2, n]/
     2 + S2[a4, a1, SP[a2, a2], a1, a3, n]/2 + 
    (S2[a2, n]*S2[a4, a2, a1, a1, a3, n])/2 + 
    S2[a4, a2, a1, a1, SP[a2, a3], n]/2 - 
    (S2[a1, n]*S2[a4, a2, a1, a2, a3, n])/2 - 
    S2[a4, a2, a1, a2, SP[a1, a3], n]/2 - 
    (S2[a1, n]*S2[a4, a2, a2, a1, a3, n])/2 - 
    S2[a4, a2, a2, a1, SP[a1, a3], n]/2 + 
    (S2[a1, n]*S2[a4, a2, a2, a3, a1, n])/2 + 
    S2[a4, a2, a2, a3, SP[a1, a1], n]/2 - S2[a4, a2, a2, SP[a1, a1], a3, n]/
     2 + S2[a4, a2, a2, SP[a1, a3], a1, n]/2 - 
    S2[a4, a2, SP[a1, a1], a2, a3, n]/2 + S2[a4, a2, SP[a1, a2], a3, a1, n]/
     2 - S2[a4, SP[a1, a1], a2, a2, a3, n]/2 - 
    S2[a4, SP[a1, a2], a1, a3, a2, n]/2 + S2[a4, SP[a1, a2], a2, a3, a1, n]/
     2 + S2[a4, SP[a2, a2], a1, a1, a3, n]/2 - 
    S2[SP[a1, a1], a4, a2, a2, a3, n]/2 + S2[SP[a1, a2], a1, a2, a3, a4, n]/
     2 + S2[SP[a1, a2], a1, a2, a4, a3, n]/2 + 
    S2[SP[a1, a2], a1, a3, a2, a4, n]/2 + S2[SP[a1, a2], a1, a3, a4, a2, n]/
     2 + S2[SP[a1, a2], a1, a4, a2, a3, n]/2 + 
    S2[SP[a1, a2], a1, a4, a3, a2, n]/2 + S2[SP[a1, a2], a2, a1, a3, a4, n]/
     2 + S2[SP[a1, a2], a2, a1, a4, a3, n]/2 + 
    S2[SP[a1, a2], a2, a4, a1, a3, n]/2 + S2[SP[a1, a2], a4, a1, a2, a3, n]/
     2 + S2[SP[a1, a2], a4, a1, a3, a2, n]/2 + 
    S2[SP[a1, a2], a4, a2, a1, a3, n]/2 - S2[SP[a1, a4], a1, a2, a2, a3, n]/
     2 + S2[SP[a1, a4], a1, a3, a2, a2, n] - 
    S2[SP[a1, a4], a2, a1, a2, a3, n]/2 - S2[SP[a1, a4], a2, a2, a1, a3, n]/
     2 + S2[SP[a1, a4], a2, a2, a3, a1, n]/2 - 
    S2[SP[a2, a2], a1, a1, a3, a4, n]/2 - S2[SP[a2, a2], a1, a1, a4, a3, n]/
     2 - S2[SP[a2, a2], a1, a4, a1, a3, n]/2 - 
    S2[SP[a2, a2], a4, a1, a1, a3, n]/2 + S2[SP[a2, a4], a1, a1, a2, a3, n]/
     2 - S2[SP[a2, a4], a1, a1, a3, a2, n]/2 + 
    S2[SP[a2, a4], a1, a2, a1, a3, n]/2 + S2[SP[a2, a4], a2, a1, a1, a3, n]/
     2 - S2[a4, a2, a2, a3, a1, a1, n] /; 
   MyMemberQ[{{a1, a2}, {a3, a4}}, {a1, a1, a2, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a1_, a1_, a3_, a2_, a4_, a2_, n_] :> 
  -2*S2[a1, a1, a3, n]*S2[a2, a2, a4, n] - 
    2*S2[SP[a1, a2], SP[a1, a2], SP[a3, a4], n] - 
    S2[a2, a4, n]*S2[a1, a1, a3, a2, n] + S2[a1, a1, SP[a2, a3], SP[a2, a4], 
     n] + 2*S2[a1, a2, SP[a1, a2], SP[a3, a4], n] + 
    2*S2[a1, SP[a1, a2], a2, SP[a3, a4], n] + S2[a1, SP[a1, a2], a3, 
     SP[a2, a4], n] + 2*S2[a1, SP[a1, a2], SP[a2, a3], a4, n] + 
    S2[a1, SP[a1, a2], SP[a3, a4], a2, n] + 
    2*S2[a2, a1, SP[a1, a2], SP[a3, a4], n] + 
    2*S2[a2, SP[a1, a2], a1, SP[a3, a4], n] + 
    2*S2[a2, SP[a1, a2], SP[a1, a4], a3, n] + 
    2*S2[SP[a1, a2], a1, a2, SP[a3, a4], n] + S2[SP[a1, a2], a1, a3, 
     SP[a2, a4], n] + 2*S2[SP[a1, a2], a1, SP[a2, a3], a4, n] + 
    S2[SP[a1, a2], a1, SP[a3, a4], a2, n] + 
    2*S2[SP[a1, a2], a2, a1, SP[a3, a4], n] + 
    2*S2[SP[a1, a2], a2, SP[a1, a4], a3, n] + 
    2*S2[SP[a1, a2], SP[a1, a2], a3, a4, n] + 
    2*S2[SP[a1, a2], SP[a1, a2], a4, a3, n] + S2[SP[a1, a2], SP[a1, a4], a3, 
     a2, n] - 2*S2[a1, a1, a2, a2, SP[a3, a4], n] + 
    S2[a2, n]*S2[a1, a1, a2, a3, a4, n] + 
    S2[a2, n]*S2[a1, a1, a2, a4, a3, n] + S2[a1, a1, a2, a4, SP[a2, a3], n] - 
    S2[a1, a1, a2, SP[a2, a3], a4, n] + S2[a1, a1, a2, SP[a2, a4], a3, n] - 
    S2[a1, a1, a2, SP[a3, a4], a2, n] + 2*S2[a2, n]*
     S2[a1, a1, a3, a2, a4, n] + S2[a1, a1, a3, a2, SP[a2, a4], n] + 
    S2[a1, a1, a3, SP[a2, a2], a4, n] - S2[a2, n]*S2[a1, a1, a4, a2, a3, n] - 
    S2[a1, a1, a4, a2, SP[a2, a3], n] - S2[a1, a1, a4, SP[a2, a2], a3, n] + 
    S2[a1, a1, SP[a2, a2], a3, a4, n] + S2[a1, a1, SP[a2, a2], a4, a3, n] - 
    S2[a1, a1, SP[a2, a3], a2, a4, n] - S2[a1, a1, SP[a2, a3], a4, a2, n] - 
    S2[a1, a1, SP[a2, a4], a2, a3, n] - 2*S2[a1, a2, a1, a2, SP[a3, a4], n] + 
    S2[a2, n]*S2[a1, a2, a1, a3, a4, n] + 
    S2[a2, n]*S2[a1, a2, a1, a4, a3, n] + S2[a1, a2, a1, a4, SP[a2, a3], n] - 
    S2[a1, a2, a1, SP[a2, a3], a4, n] + S2[a1, a2, a1, SP[a2, a4], a3, n] - 
    S2[a1, a2, a1, SP[a3, a4], a2, n] - 2*S2[a1, a2, a2, a1, SP[a3, a4], n] - 
    2*S2[a1, a2, a2, SP[a1, a4], a3, n] + 
    S2[a2, n]*S2[a1, a2, a4, a1, a3, n] + S2[a1, a2, a4, a1, SP[a2, a3], n] + 
    S2[a1, a2, a4, SP[a1, a2], a3, n] - S2[a1, a2, SP[a1, a2], a3, a4, n] - 
    S2[a1, a2, SP[a1, a2], a4, a3, n] - S2[a1, a2, SP[a1, a4], a3, a2, n] + 
    S2[a1, a2, SP[a2, a4], a1, a3, n] - S2[a2, n]*S2[a1, a4, a1, a2, a3, n] - 
    S2[a1, a4, a1, a2, SP[a2, a3], n] - S2[a1, a4, a1, SP[a2, a2], a3, n] - 
    S2[a2, n]*S2[a1, a4, a2, a1, a3, n] - S2[a1, a4, a2, a1, SP[a2, a3], n] + 
    S2[a1, n]*S2[a1, a4, a2, a2, a3, n] + S2[a1, a4, a2, a2, SP[a1, a3], n] + 
    (S2[a1, n]*S2[a1, a4, a2, a3, a2, n])/2 + 
    S2[a1, a4, a2, a3, SP[a1, a2], n]/2 + S2[a1, a4, a2, SP[a1, a3], a2, n]/
     2 + S2[a1, a4, SP[a1, a2], a3, a2, n]/2 - S2[a1, a4, SP[a2, a2], a1, a3, 
     n] - S2[a1, SP[a1, a2], a2, a3, a4, n] - S2[a1, SP[a1, a2], a2, a4, a3, 
     n] - S2[a1, SP[a1, a2], a3, a2, a4, n] - S2[a1, SP[a1, a2], a3, a4, a2, 
     n] - S2[a1, SP[a1, a2], a4, a2, a3, n] - S2[a1, SP[a1, a2], a4, a3, a2, 
     n] + S2[a1, SP[a1, a4], a2, a2, a3, n] + 
    S2[a1, SP[a1, a4], a2, a3, a2, n]/2 + S2[a1, SP[a2, a2], a1, a3, a4, n] + 
    S2[a1, SP[a2, a2], a1, a4, a3, n] + S2[a1, SP[a2, a2], a4, a1, a3, n] - 
    S2[a1, SP[a2, a4], a1, a2, a3, n] - S2[a1, SP[a2, a4], a2, a1, a3, n] - 
    2*S2[a2, a1, a1, a2, SP[a3, a4], n] + 
    S2[a2, n]*S2[a2, a1, a1, a3, a4, n] + 
    S2[a2, n]*S2[a2, a1, a1, a4, a3, n] + S2[a2, a1, a1, a4, SP[a2, a3], n] - 
    S2[a2, a1, a1, SP[a2, a3], a4, n] + S2[a2, a1, a1, SP[a2, a4], a3, n] - 
    S2[a2, a1, a1, SP[a3, a4], a2, n] - 2*S2[a2, a1, a2, a1, SP[a3, a4], n] - 
    2*S2[a2, a1, a2, SP[a1, a4], a3, n] + 
    S2[a2, n]*S2[a2, a1, a4, a1, a3, n] + S2[a2, a1, a4, a1, SP[a2, a3], n] + 
    S2[a2, a1, a4, SP[a1, a2], a3, n] - S2[a2, a1, SP[a1, a2], a3, a4, n] - 
    S2[a2, a1, SP[a1, a2], a4, a3, n] - S2[a2, a1, SP[a1, a4], a3, a2, n] + 
    S2[a2, a1, SP[a2, a4], a1, a3, n] - 2*S2[a2, a2, a1, a1, SP[a3, a4], n] - 
    2*S2[a2, a2, a1, SP[a1, a4], a3, n] - 
    2*S2[a2, a2, SP[a1, a4], a1, a3, n] + 
    S2[a2, n]*S2[a2, a4, a1, a1, a3, n] + S2[a2, a4, a1, a1, SP[a2, a3], n] + 
    S2[a2, a4, a1, SP[a1, a2], a3, n] + S2[a2, a4, SP[a1, a2], a1, a3, n] - 
    S2[a2, SP[a1, a2], a1, a3, a4, n] - S2[a2, SP[a1, a2], a1, a4, a3, n] - 
    S2[a2, SP[a1, a2], a4, a1, a3, n] - S2[a2, SP[a1, a4], a1, a3, a2, n] + 
    S2[a2, SP[a2, a4], a1, a1, a3, n] - S2[a2, n]*S2[a4, a1, a1, a2, a3, n] - 
    S2[a4, a1, a1, a2, SP[a2, a3], n] - S2[a4, a1, a1, SP[a2, a2], a3, n] - 
    S2[a2, n]*S2[a4, a1, a2, a1, a3, n] - S2[a4, a1, a2, a1, SP[a2, a3], n] + 
    S2[a1, n]*S2[a4, a1, a2, a2, a3, n] + S2[a4, a1, a2, a2, SP[a1, a3], n] + 
    (S2[a1, n]*S2[a4, a1, a2, a3, a2, n])/2 + 
    S2[a4, a1, a2, a3, SP[a1, a2], n]/2 + S2[a4, a1, a2, SP[a1, a3], a2, n]/
     2 + S2[a4, a1, SP[a1, a2], a3, a2, n]/2 - S2[a4, a1, SP[a2, a2], a1, a3, 
     n] - S2[a2, n]*S2[a4, a2, a1, a1, a3, n] - S2[a4, a2, a1, a1, 
     SP[a2, a3], n] + S2[a1, n]*S2[a4, a2, a1, a2, a3, n] + 
    S2[a4, a2, a1, a2, SP[a1, a3], n] + (S2[a1, n]*S2[a4, a2, a1, a3, a2, n])/
     2 + S2[a4, a2, a1, a3, SP[a1, a2], n]/2 + 
    S2[a4, a2, a1, SP[a1, a3], a2, n]/2 + 
    S2[a1, n]*S2[a4, a2, a2, a1, a3, n] + S2[a4, a2, a2, a1, SP[a1, a3], n] - 
    S2[a1, n]*S2[a4, a2, a2, a3, a1, n] - S2[a4, a2, a2, a3, SP[a1, a1], n] + 
    S2[a4, a2, a2, SP[a1, a1], a3, n] - S2[a4, a2, a2, SP[a1, a3], a1, n] - 
    (S2[a1, n]*S2[a4, a2, a3, a1, a2, n])/2 - 
    S2[a4, a2, a3, a1, SP[a1, a2], n]/2 - 
    (S2[a1, n]*S2[a4, a2, a3, a2, a1, n])/2 - 
    S2[a4, a2, a3, a2, SP[a1, a1], n]/2 - S2[a4, a2, a3, SP[a1, a1], a2, n]/
     2 - S2[a4, a2, a3, SP[a1, a2], a1, n]/2 + S2[a4, a2, SP[a1, a1], a2, a3, 
     n] + S2[a4, a2, SP[a1, a1], a3, a2, n]/2 - S2[a4, a2, SP[a1, a2], a3, 
     a1, n] - S2[a4, a2, SP[a1, a3], a1, a2, n]/2 - 
    S2[a4, a2, SP[a1, a3], a2, a1, n]/2 + S2[a4, SP[a1, a1], a2, a2, a3, n] + 
    S2[a4, SP[a1, a1], a2, a3, a2, n]/2 + S2[a4, SP[a1, a2], a1, a3, a2, n]/
     2 - S2[a4, SP[a1, a2], a2, a3, a1, n] - 
    S2[a4, SP[a1, a2], a3, a1, a2, n]/2 - S2[a4, SP[a1, a2], a3, a2, a1, n]/
     2 - S2[a4, SP[a2, a2], a1, a1, a3, n] + S2[SP[a1, a1], a4, a2, a2, a3, 
     n] + S2[SP[a1, a1], a4, a2, a3, a2, n]/2 - S2[SP[a1, a2], a1, a2, a3, 
     a4, n] - S2[SP[a1, a2], a1, a2, a4, a3, n] - S2[SP[a1, a2], a1, a3, a2, 
     a4, n] - S2[SP[a1, a2], a1, a3, a4, a2, n] - S2[SP[a1, a2], a1, a4, a2, 
     a3, n] - S2[SP[a1, a2], a1, a4, a3, a2, n] - S2[SP[a1, a2], a2, a1, a3, 
     a4, n] - S2[SP[a1, a2], a2, a1, a4, a3, n] - S2[SP[a1, a2], a2, a4, a1, 
     a3, n] - S2[SP[a1, a2], a4, a1, a2, a3, n] - S2[SP[a1, a2], a4, a1, a3, 
     a2, n] - S2[SP[a1, a2], a4, a2, a1, a3, n] + S2[SP[a1, a4], a1, a2, a2, 
     a3, n] + S2[SP[a1, a4], a1, a2, a3, a2, n]/2 + 
    S2[SP[a1, a4], a2, a1, a2, a3, n] + S2[SP[a1, a4], a2, a1, a3, a2, n]/2 + 
    S2[SP[a1, a4], a2, a2, a1, a3, n] - S2[SP[a1, a4], a2, a2, a3, a1, n] - 
    S2[SP[a1, a4], a2, a3, a1, a2, n]/2 - S2[SP[a1, a4], a2, a3, a2, a1, n]/
     2 + S2[SP[a2, a2], a1, a1, a3, a4, n] + S2[SP[a2, a2], a1, a1, a4, a3, 
     n] + S2[SP[a2, a2], a1, a4, a1, a3, n] + S2[SP[a2, a2], a4, a1, a1, a3, 
     n] - S2[SP[a2, a4], a1, a1, a2, a3, n] - S2[SP[a2, a4], a1, a2, a1, a3, 
     n] - S2[SP[a2, a4], a2, a1, a1, a3, n] + 
    2*S2[a4, a2, a2, a3, a1, a1, n] + S2[a4, a2, a3, a1, a1, a2, n] + 
    S2[a4, a2, a3, a1, a2, a1, n] + S2[a4, a2, a3, a2, a1, a1, n] /; 
   MyMemberQ[{{a1, a2}, {a3, a4}}, {a1, a1, a2, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a1_, a1_, a3_, a4_, a2_, a2_, n_] :> 
  S2[a1, a1, a3, n]*S2[a2, a2, a4, n] + S2[SP[a1, a2], SP[a1, a2], 
     SP[a3, a4], n] - S2[a1, a2, SP[a1, a2], SP[a3, a4], n] - 
    S2[a1, SP[a1, a2], a2, SP[a3, a4], n] - S2[a1, SP[a1, a2], SP[a2, a3], 
     a4, n] - S2[a2, a1, SP[a1, a2], SP[a3, a4], n] - 
    S2[a2, SP[a1, a2], a1, SP[a3, a4], n] - S2[a2, SP[a1, a2], SP[a1, a4], 
     a3, n] - S2[SP[a1, a2], a1, a2, SP[a3, a4], n] - 
    S2[SP[a1, a2], a1, SP[a2, a3], a4, n] - S2[SP[a1, a2], a2, a1, 
     SP[a3, a4], n] - S2[SP[a1, a2], a2, SP[a1, a4], a3, n] - 
    S2[SP[a1, a2], SP[a1, a2], a3, a4, n] - S2[SP[a1, a2], SP[a1, a2], a4, 
     a3, n] + S2[a1, a1, a2, a2, SP[a3, a4], n] - 
    (S2[a2, n]*S2[a1, a1, a2, a3, a4, n])/2 - 
    S2[a1, a1, a2, a3, SP[a2, a4], n]/2 - 
    (S2[a2, n]*S2[a1, a1, a2, a4, a3, n])/2 - 
    S2[a1, a1, a2, a4, SP[a2, a3], n]/2 + S2[a1, a1, a2, SP[a2, a3], a4, n]/
     2 - S2[a1, a1, a2, SP[a2, a4], a3, n]/2 - 
    (S2[a2, n]*S2[a1, a1, a3, a2, a4, n])/2 - 
    S2[a1, a1, a3, a2, SP[a2, a4], n]/2 + 
    (S2[a2, n]*S2[a1, a1, a3, a4, a2, n])/2 + 
    S2[a1, a1, a3, a4, SP[a2, a2], n]/2 - S2[a1, a1, a3, SP[a2, a2], a4, n]/
     2 + S2[a1, a1, a3, SP[a2, a4], a2, n]/2 + 
    (S2[a2, n]*S2[a1, a1, a4, a2, a3, n])/2 + 
    S2[a1, a1, a4, a2, SP[a2, a3], n]/2 + 
    (S2[a2, n]*S2[a1, a1, a4, a3, a2, n])/2 + 
    S2[a1, a1, a4, a3, SP[a2, a2], n]/2 + S2[a1, a1, a4, SP[a2, a2], a3, n]/
     2 + S2[a1, a1, a4, SP[a2, a3], a2, n]/2 - 
    S2[a1, a1, SP[a2, a2], a3, a4, n]/2 - S2[a1, a1, SP[a2, a2], a4, a3, n]/
     2 + S2[a1, a1, SP[a2, a3], a2, a4, n]/2 + 
    S2[a1, a1, SP[a2, a3], a4, a2, n]/2 + S2[a1, a1, SP[a2, a4], a2, a3, n]/
     2 + S2[a1, a1, SP[a2, a4], a3, a2, n]/2 + S2[a1, a2, a1, a2, SP[a3, a4], 
     n] - (S2[a2, n]*S2[a1, a2, a1, a3, a4, n])/2 - 
    S2[a1, a2, a1, a3, SP[a2, a4], n]/2 - 
    (S2[a2, n]*S2[a1, a2, a1, a4, a3, n])/2 - 
    S2[a1, a2, a1, a4, SP[a2, a3], n]/2 + S2[a1, a2, a1, SP[a2, a3], a4, n]/
     2 - S2[a1, a2, a1, SP[a2, a4], a3, n]/2 + S2[a1, a2, a2, a1, SP[a3, a4], 
     n] + S2[a1, a2, a2, SP[a1, a4], a3, n] - 
    (S2[a2, n]*S2[a1, a2, a4, a1, a3, n])/2 - 
    S2[a1, a2, a4, a1, SP[a2, a3], n]/2 - S2[a1, a2, a4, SP[a1, a2], a3, n]/
     2 + S2[a1, a2, SP[a1, a2], a3, a4, n]/2 + 
    S2[a1, a2, SP[a1, a2], a4, a3, n]/2 - S2[a1, a2, SP[a2, a4], a1, a3, n]/
     2 + (S2[a2, n]*S2[a1, a4, a1, a2, a3, n])/2 + 
    S2[a1, a4, a1, a2, SP[a2, a3], n]/2 + 
    (S2[a2, n]*S2[a1, a4, a1, a3, a2, n])/2 + 
    S2[a1, a4, a1, a3, SP[a2, a2], n]/2 + S2[a1, a4, a1, SP[a2, a2], a3, n]/
     2 + S2[a1, a4, a1, SP[a2, a3], a2, n]/2 + 
    (S2[a2, n]*S2[a1, a4, a2, a1, a3, n])/2 + 
    S2[a1, a4, a2, a1, SP[a2, a3], n]/2 - 
    (S2[a1, n]*S2[a1, a4, a2, a2, a3, n])/2 - 
    S2[a1, a4, a2, a2, SP[a1, a3], n]/2 - 
    (S2[a1, n]*S2[a1, a4, a2, a3, a2, n])/2 - 
    S2[a1, a4, a2, a3, SP[a1, a2], n]/2 - S2[a1, a4, a2, SP[a1, a3], a2, n]/
     2 - (S2[a1, n]*S2[a1, a4, a3, a2, a2, n])/2 - 
    S2[a1, a4, a3, a2, SP[a1, a2], n]/2 - S2[a1, a4, a3, SP[a1, a2], a2, n]/
     2 - S2[a1, a4, SP[a1, a3], a2, a2, n]/2 + 
    S2[a1, a4, SP[a2, a2], a1, a3, n]/2 + S2[a1, SP[a1, a2], a2, a3, a4, n]/
     2 + S2[a1, SP[a1, a2], a2, a4, a3, n]/2 + 
    S2[a1, SP[a1, a2], a3, a2, a4, n]/2 + S2[a1, SP[a1, a2], a3, a4, a2, n]/
     2 + S2[a1, SP[a1, a2], a4, a2, a3, n]/2 + 
    S2[a1, SP[a1, a2], a4, a3, a2, n]/2 - S2[a1, SP[a1, a4], a2, a2, a3, n]/
     2 - S2[a1, SP[a1, a4], a2, a3, a2, n]/2 - 
    S2[a1, SP[a1, a4], a3, a2, a2, n]/2 - S2[a1, SP[a2, a2], a1, a3, a4, n]/
     2 - S2[a1, SP[a2, a2], a1, a4, a3, n]/2 - 
    S2[a1, SP[a2, a2], a4, a1, a3, n]/2 + S2[a1, SP[a2, a4], a1, a2, a3, n]/
     2 + S2[a1, SP[a2, a4], a1, a3, a2, n]/2 + 
    S2[a1, SP[a2, a4], a2, a1, a3, n]/2 + S2[a2, a1, a1, a2, SP[a3, a4], n] - 
    (S2[a2, n]*S2[a2, a1, a1, a3, a4, n])/2 - 
    S2[a2, a1, a1, a3, SP[a2, a4], n]/2 - 
    (S2[a2, n]*S2[a2, a1, a1, a4, a3, n])/2 - 
    S2[a2, a1, a1, a4, SP[a2, a3], n]/2 + S2[a2, a1, a1, SP[a2, a3], a4, n]/
     2 - S2[a2, a1, a1, SP[a2, a4], a3, n]/2 + S2[a2, a1, a2, a1, SP[a3, a4], 
     n] + S2[a2, a1, a2, SP[a1, a4], a3, n] - 
    (S2[a2, n]*S2[a2, a1, a4, a1, a3, n])/2 - 
    S2[a2, a1, a4, a1, SP[a2, a3], n]/2 - S2[a2, a1, a4, SP[a1, a2], a3, n]/
     2 + S2[a2, a1, SP[a1, a2], a3, a4, n]/2 + 
    S2[a2, a1, SP[a1, a2], a4, a3, n]/2 - S2[a2, a1, SP[a2, a4], a1, a3, n]/
     2 + S2[a2, a2, a1, a1, SP[a3, a4], n] + S2[a2, a2, a1, SP[a1, a4], a3, 
     n] + S2[a2, a2, SP[a1, a4], a1, a3, n] - 
    (S2[a2, n]*S2[a2, a4, a1, a1, a3, n])/2 - 
    S2[a2, a4, a1, a1, SP[a2, a3], n]/2 - S2[a2, a4, a1, SP[a1, a2], a3, n]/
     2 - S2[a2, a4, SP[a1, a2], a1, a3, n]/2 + 
    S2[a2, SP[a1, a2], a1, a3, a4, n]/2 + S2[a2, SP[a1, a2], a1, a4, a3, n]/
     2 + S2[a2, SP[a1, a2], a4, a1, a3, n]/2 - 
    S2[a2, SP[a2, a4], a1, a1, a3, n]/2 + 
    (S2[a2, n]*S2[a4, a1, a1, a2, a3, n])/2 + 
    S2[a4, a1, a1, a2, SP[a2, a3], n]/2 + 
    (S2[a2, n]*S2[a4, a1, a1, a3, a2, n])/2 + 
    S2[a4, a1, a1, a3, SP[a2, a2], n]/2 + S2[a4, a1, a1, SP[a2, a2], a3, n]/
     2 + S2[a4, a1, a1, SP[a2, a3], a2, n]/2 + 
    (S2[a2, n]*S2[a4, a1, a2, a1, a3, n])/2 + 
    S2[a4, a1, a2, a1, SP[a2, a3], n]/2 - 
    (S2[a1, n]*S2[a4, a1, a2, a2, a3, n])/2 - 
    S2[a4, a1, a2, a2, SP[a1, a3], n]/2 - 
    (S2[a1, n]*S2[a4, a1, a2, a3, a2, n])/2 - 
    S2[a4, a1, a2, a3, SP[a1, a2], n]/2 - S2[a4, a1, a2, SP[a1, a3], a2, n]/
     2 - (S2[a1, n]*S2[a4, a1, a3, a2, a2, n])/2 - 
    S2[a4, a1, a3, a2, SP[a1, a2], n]/2 - S2[a4, a1, a3, SP[a1, a2], a2, n]/
     2 - S2[a4, a1, SP[a1, a3], a2, a2, n]/2 + 
    S2[a4, a1, SP[a2, a2], a1, a3, n]/2 + 
    (S2[a2, n]*S2[a4, a2, a1, a1, a3, n])/2 + 
    S2[a4, a2, a1, a1, SP[a2, a3], n]/2 - 
    (S2[a1, n]*S2[a4, a2, a1, a2, a3, n])/2 - 
    S2[a4, a2, a1, a2, SP[a1, a3], n]/2 - 
    (S2[a1, n]*S2[a4, a2, a1, a3, a2, n])/2 - 
    S2[a4, a2, a1, a3, SP[a1, a2], n]/2 - S2[a4, a2, a1, SP[a1, a3], a2, n]/
     2 - (S2[a1, n]*S2[a4, a2, a2, a1, a3, n])/2 - 
    S2[a4, a2, a2, a1, SP[a1, a3], n]/2 + 
    (S2[a1, n]*S2[a4, a2, a2, a3, a1, n])/2 + 
    S2[a4, a2, a2, a3, SP[a1, a1], n]/2 - S2[a4, a2, a2, SP[a1, a1], a3, n]/
     2 + S2[a4, a2, a2, SP[a1, a3], a1, n]/2 + 
    (S2[a1, n]*S2[a4, a2, a3, a1, a2, n])/2 + 
    S2[a4, a2, a3, a1, SP[a1, a2], n]/2 + 
    (S2[a1, n]*S2[a4, a2, a3, a2, a1, n])/2 + 
    S2[a4, a2, a3, a2, SP[a1, a1], n]/2 + S2[a4, a2, a3, SP[a1, a1], a2, n]/
     2 + S2[a4, a2, a3, SP[a1, a2], a1, n]/2 - 
    S2[a4, a2, SP[a1, a1], a2, a3, n]/2 - S2[a4, a2, SP[a1, a1], a3, a2, n]/
     2 + S2[a4, a2, SP[a1, a2], a3, a1, n]/2 + 
    S2[a4, a2, SP[a1, a3], a1, a2, n]/2 + S2[a4, a2, SP[a1, a3], a2, a1, n]/
     2 + (S2[a1, n]*S2[a4, a3, a1, a2, a2, n])/2 + 
    S2[a4, a3, a1, a2, SP[a1, a2], n]/2 + S2[a4, a3, a1, SP[a1, a2], a2, n]/
     2 + (S2[a1, n]*S2[a4, a3, a2, a1, a2, n])/2 + 
    S2[a4, a3, a2, a1, SP[a1, a2], n]/2 + 
    (S2[a1, n]*S2[a4, a3, a2, a2, a1, n])/2 + 
    S2[a4, a3, a2, a2, SP[a1, a1], n]/2 + S2[a4, a3, a2, SP[a1, a1], a2, n]/
     2 + S2[a4, a3, a2, SP[a1, a2], a1, n]/2 + 
    S2[a4, a3, SP[a1, a1], a2, a2, n]/2 + S2[a4, a3, SP[a1, a2], a1, a2, n]/
     2 + S2[a4, a3, SP[a1, a2], a2, a1, n]/2 - 
    S2[a4, SP[a1, a1], a2, a2, a3, n]/2 - S2[a4, SP[a1, a1], a2, a3, a2, n]/
     2 - S2[a4, SP[a1, a1], a3, a2, a2, n]/2 + 
    S2[a4, SP[a1, a2], a2, a3, a1, n]/2 + S2[a4, SP[a1, a2], a3, a1, a2, n]/
     2 + S2[a4, SP[a1, a2], a3, a2, a1, n]/2 + 
    S2[a4, SP[a1, a3], a1, a2, a2, n]/2 + S2[a4, SP[a1, a3], a2, a1, a2, n]/
     2 + S2[a4, SP[a1, a3], a2, a2, a1, n]/2 + 
    S2[a4, SP[a2, a2], a1, a1, a3, n]/2 - S2[SP[a1, a1], a4, a2, a2, a3, n]/
     2 - S2[SP[a1, a1], a4, a2, a3, a2, n]/2 - 
    S2[SP[a1, a1], a4, a3, a2, a2, n]/2 + S2[SP[a1, a2], a1, a2, a3, a4, n]/
     2 + S2[SP[a1, a2], a1, a2, a4, a3, n]/2 + 
    S2[SP[a1, a2], a1, a3, a2, a4, n]/2 + S2[SP[a1, a2], a1, a3, a4, a2, n]/
     2 + S2[SP[a1, a2], a1, a4, a2, a3, n]/2 + 
    S2[SP[a1, a2], a1, a4, a3, a2, n]/2 + S2[SP[a1, a2], a2, a1, a3, a4, n]/
     2 + S2[SP[a1, a2], a2, a1, a4, a3, n]/2 + 
    S2[SP[a1, a2], a2, a4, a1, a3, n]/2 + S2[SP[a1, a2], a4, a1, a2, a3, n]/
     2 + S2[SP[a1, a2], a4, a1, a3, a2, n]/2 + 
    S2[SP[a1, a2], a4, a2, a1, a3, n]/2 - S2[SP[a1, a4], a1, a2, a2, a3, n]/
     2 - S2[SP[a1, a4], a1, a2, a3, a2, n]/2 - 
    S2[SP[a1, a4], a1, a3, a2, a2, n]/2 - S2[SP[a1, a4], a2, a1, a2, a3, n]/
     2 - S2[SP[a1, a4], a2, a1, a3, a2, n]/2 - 
    S2[SP[a1, a4], a2, a2, a1, a3, n]/2 + S2[SP[a1, a4], a2, a2, a3, a1, n]/
     2 + S2[SP[a1, a4], a2, a3, a1, a2, n]/2 + 
    S2[SP[a1, a4], a2, a3, a2, a1, n]/2 + S2[SP[a1, a4], a3, a1, a2, a2, n]/
     2 + S2[SP[a1, a4], a3, a2, a1, a2, n]/2 + 
    S2[SP[a1, a4], a3, a2, a2, a1, n]/2 - S2[SP[a2, a2], a1, a1, a3, a4, n]/
     2 - S2[SP[a2, a2], a1, a1, a4, a3, n]/2 - 
    S2[SP[a2, a2], a1, a4, a1, a3, n]/2 - S2[SP[a2, a2], a4, a1, a1, a3, n]/
     2 + S2[SP[a2, a4], a1, a1, a2, a3, n]/2 + 
    S2[SP[a2, a4], a1, a1, a3, a2, n]/2 + S2[SP[a2, a4], a1, a2, a1, a3, n]/
     2 + S2[SP[a2, a4], a2, a1, a1, a3, n]/2 - S2[a4, a2, a2, a3, a1, a1, 
     n] - S2[a4, a2, a3, a1, a1, a2, n] - S2[a4, a2, a3, a1, a2, a1, n] - 
    S2[a4, a2, a3, a2, a1, a1, n] - S2[a4, a3, a1, a1, a2, a2, n] - 
    S2[a4, a3, a1, a2, a1, a2, n] - S2[a4, a3, a1, a2, a2, a1, n] - 
    S2[a4, a3, a2, a1, a1, a2, n] - S2[a4, a3, a2, a1, a2, a1, n] - 
    S2[a4, a3, a2, a2, a1, a1, n] /; MyMemberQ[{{a1, a2}, {a3, a4}}, 
     {a1, a1, a2, a2, a3, a4}] && a1 != a2 != a3 != a4, 
 S2[a1_, a1_, a4_, a2_, a2_, a3_, n_] :> 
  (S2[a1, n]*S2[a1, a4, a2, a2, a3, n])/2 + S2[a1, a4, a2, a2, SP[a1, a3], n]/
     2 + S2[a1, a4, a2, SP[a1, a2], a3, n]/2 + 
    S2[a1, a4, SP[a1, a2], a2, a3, n]/2 + S2[a1, SP[a1, a4], a2, a2, a3, n]/
     2 - (S2[a1, n]*S2[a4, a1, a2, a2, a3, n])/2 - 
    S2[a4, a1, a2, a2, SP[a1, a3], n]/2 - S2[a4, a1, a2, SP[a1, a2], a3, n]/
     2 - S2[a4, a1, SP[a1, a2], a2, a3, n]/2 - 
    (S2[a1, n]*S2[a4, a2, a1, a2, a3, n])/2 - 
    S2[a4, a2, a1, a2, SP[a1, a3], n]/2 - S2[a4, a2, a1, SP[a1, a2], a3, n]/
     2 - (S2[a1, n]*S2[a4, a2, a2, a1, a3, n])/2 - 
    S2[a4, a2, a2, a1, SP[a1, a3], n]/2 - 
    (S2[a1, n]*S2[a4, a2, a2, a3, a1, n])/2 - 
    S2[a4, a2, a2, a3, SP[a1, a1], n]/2 - S2[a4, a2, a2, SP[a1, a1], a3, n]/
     2 - S2[a4, a2, a2, SP[a1, a3], a1, n]/2 - 
    S2[a4, a2, SP[a1, a1], a2, a3, n]/2 - S2[a4, a2, SP[a1, a2], a1, a3, n]/
     2 - S2[a4, a2, SP[a1, a2], a3, a1, n]/2 - 
    S2[a4, SP[a1, a1], a2, a2, a3, n]/2 - S2[a4, SP[a1, a2], a1, a2, a3, n]/
     2 - S2[a4, SP[a1, a2], a2, a1, a3, n]/2 - 
    S2[a4, SP[a1, a2], a2, a3, a1, n]/2 + S2[SP[a1, a1], a4, a2, a2, a3, n]/
     2 - S2[SP[a1, a4], a1, a2, a2, a3, n]/2 - 
    S2[SP[a1, a4], a2, a1, a2, a3, n]/2 - S2[SP[a1, a4], a2, a2, a1, a3, n]/
     2 - S2[SP[a1, a4], a2, a2, a3, a1, n]/2 + S2[a4, a1, a1, a2, a2, a3, 
     n] + S2[a4, a1, a2, a1, a2, a3, n] + S2[a4, a1, a2, a2, a1, a3, n] + 
    S2[a4, a1, a2, a2, a3, a1, n] + S2[a4, a2, a1, a1, a2, a3, n] + 
    S2[a4, a2, a1, a2, a1, a3, n] + S2[a4, a2, a1, a2, a3, a1, n] + 
    S2[a4, a2, a2, a1, a1, a3, n] + S2[a4, a2, a2, a1, a3, a1, n] + 
    S2[a4, a2, a2, a3, a1, a1, n] /; MyMemberQ[{{a1, a2}, {a3, a4}}, 
     {a1, a1, a2, a2, a3, a4}] && a1 != a2 != a3 != a4, 
 S2[a1_, a1_, a4_, a2_, a3_, a2_, n_] :> 
  (S2[a1, n]*S2[a1, a4, a2, a3, a2, n])/2 + S2[a1, a4, a2, a3, SP[a1, a2], n]/
     2 + S2[a1, a4, a2, SP[a1, a3], a2, n]/2 + 
    S2[a1, a4, SP[a1, a2], a3, a2, n]/2 + S2[a1, SP[a1, a4], a2, a3, a2, n]/
     2 - (S2[a1, n]*S2[a4, a1, a2, a3, a2, n])/2 - 
    S2[a4, a1, a2, a3, SP[a1, a2], n]/2 - S2[a4, a1, a2, SP[a1, a3], a2, n]/
     2 - S2[a4, a1, SP[a1, a2], a3, a2, n]/2 - 
    (S2[a1, n]*S2[a4, a2, a1, a3, a2, n])/2 - 
    S2[a4, a2, a1, a3, SP[a1, a2], n]/2 - S2[a4, a2, a1, SP[a1, a3], a2, n]/
     2 - (S2[a1, n]*S2[a4, a2, a3, a1, a2, n])/2 - 
    S2[a4, a2, a3, a1, SP[a1, a2], n]/2 - 
    (S2[a1, n]*S2[a4, a2, a3, a2, a1, n])/2 - 
    S2[a4, a2, a3, a2, SP[a1, a1], n]/2 - S2[a4, a2, a3, SP[a1, a1], a2, n]/
     2 - S2[a4, a2, a3, SP[a1, a2], a1, n]/2 - 
    S2[a4, a2, SP[a1, a1], a3, a2, n]/2 - S2[a4, a2, SP[a1, a3], a1, a2, n]/
     2 - S2[a4, a2, SP[a1, a3], a2, a1, n]/2 - 
    S2[a4, SP[a1, a1], a2, a3, a2, n]/2 - S2[a4, SP[a1, a2], a1, a3, a2, n]/
     2 - S2[a4, SP[a1, a2], a3, a1, a2, n]/2 - 
    S2[a4, SP[a1, a2], a3, a2, a1, n]/2 + S2[SP[a1, a1], a4, a2, a3, a2, n]/
     2 - S2[SP[a1, a4], a1, a2, a3, a2, n]/2 - 
    S2[SP[a1, a4], a2, a1, a3, a2, n]/2 - S2[SP[a1, a4], a2, a3, a1, a2, n]/
     2 - S2[SP[a1, a4], a2, a3, a2, a1, n]/2 + S2[a4, a1, a1, a2, a3, a2, 
     n] + S2[a4, a1, a2, a1, a3, a2, n] + S2[a4, a1, a2, a3, a1, a2, n] + 
    S2[a4, a1, a2, a3, a2, a1, n] + S2[a4, a2, a1, a1, a3, a2, n] + 
    S2[a4, a2, a1, a3, a1, a2, n] + S2[a4, a2, a1, a3, a2, a1, n] + 
    S2[a4, a2, a3, a1, a1, a2, n] + S2[a4, a2, a3, a1, a2, a1, n] + 
    S2[a4, a2, a3, a2, a1, a1, n] /; MyMemberQ[{{a1, a2}, {a3, a4}}, 
     {a1, a1, a2, a2, a3, a4}] && a1 != a2 != a3 != a4, 
 S2[a1_, a1_, a4_, a3_, a2_, a2_, n_] :> 
  (S2[a1, n]*S2[a1, a4, a3, a2, a2, n])/2 + S2[a1, a4, a3, a2, SP[a1, a2], n]/
     2 + S2[a1, a4, a3, SP[a1, a2], a2, n]/2 + 
    S2[a1, a4, SP[a1, a3], a2, a2, n]/2 + S2[a1, SP[a1, a4], a3, a2, a2, n]/
     2 - (S2[a1, n]*S2[a4, a1, a3, a2, a2, n])/2 - 
    S2[a4, a1, a3, a2, SP[a1, a2], n]/2 - S2[a4, a1, a3, SP[a1, a2], a2, n]/
     2 - S2[a4, a1, SP[a1, a3], a2, a2, n]/2 - 
    (S2[a1, n]*S2[a4, a3, a1, a2, a2, n])/2 - 
    S2[a4, a3, a1, a2, SP[a1, a2], n]/2 - S2[a4, a3, a1, SP[a1, a2], a2, n]/
     2 - (S2[a1, n]*S2[a4, a3, a2, a1, a2, n])/2 - 
    S2[a4, a3, a2, a1, SP[a1, a2], n]/2 - 
    (S2[a1, n]*S2[a4, a3, a2, a2, a1, n])/2 - 
    S2[a4, a3, a2, a2, SP[a1, a1], n]/2 - S2[a4, a3, a2, SP[a1, a1], a2, n]/
     2 - S2[a4, a3, a2, SP[a1, a2], a1, n]/2 - 
    S2[a4, a3, SP[a1, a1], a2, a2, n]/2 - S2[a4, a3, SP[a1, a2], a1, a2, n]/
     2 - S2[a4, a3, SP[a1, a2], a2, a1, n]/2 - 
    S2[a4, SP[a1, a1], a3, a2, a2, n]/2 - S2[a4, SP[a1, a3], a1, a2, a2, n]/
     2 - S2[a4, SP[a1, a3], a2, a1, a2, n]/2 - 
    S2[a4, SP[a1, a3], a2, a2, a1, n]/2 + S2[SP[a1, a1], a4, a3, a2, a2, n]/
     2 - S2[SP[a1, a4], a1, a3, a2, a2, n]/2 - 
    S2[SP[a1, a4], a3, a1, a2, a2, n]/2 - S2[SP[a1, a4], a3, a2, a1, a2, n]/
     2 - S2[SP[a1, a4], a3, a2, a2, a1, n]/2 + S2[a4, a1, a1, a3, a2, a2, 
     n] + S2[a4, a1, a3, a1, a2, a2, n] + S2[a4, a1, a3, a2, a1, a2, n] + 
    S2[a4, a1, a3, a2, a2, a1, n] + S2[a4, a3, a1, a1, a2, a2, n] + 
    S2[a4, a3, a1, a2, a1, a2, n] + S2[a4, a3, a1, a2, a2, a1, n] + 
    S2[a4, a3, a2, a1, a1, a2, n] + S2[a4, a3, a2, a1, a2, a1, n] + 
    S2[a4, a3, a2, a2, a1, a1, n] /; MyMemberQ[{{a1, a2}, {a3, a4}}, 
     {a1, a1, a2, a2, a3, a4}] && a1 != a2 != a3 != a4, 
 S2[a1_, a2_, a1_, a2_, a3_, a4_, n_] :> 
  -2*S2[a1, a1, a2, n]*S2[a2, a3, a4, n] - 
    2*S2[SP[a1, a2], SP[a1, a3], SP[a2, a4], n] - 
    2*S2[a3, a4, n]*S2[a1, a1, a2, a2, n] + 
    2*S2[a1, a1, SP[a2, a3], SP[a2, a4], n] + 
    S2[a1, a2, n]*S2[a1, a2, a3, a4, n] + 
    (S2[a1, a2, n]*S2[a1, a2, a4, a3, n])/2 + S2[a1, a2, SP[a1, a3], 
     SP[a2, a4], n] - S2[a1, a2, SP[a1, a4], SP[a2, a3], n]/2 + 
    (S2[a1, a2, n]*S2[a1, a4, a2, a3, n])/2 + 
    (S2[a1, a2, n]*S2[a1, a4, a3, a2, n])/2 - 
    S2[a1, a4, SP[a1, a2], SP[a2, a3], n]/2 - 
    S2[a1, a4, SP[a1, a3], SP[a2, a2], n]/2 + S2[a1, SP[a1, a2], a3, 
     SP[a2, a4], n] - S2[a1, SP[a1, a2], a4, SP[a2, a3], n]/2 + 
    S2[a1, SP[a1, a2], SP[a2, a3], a4, n] - 
    S2[a1, SP[a1, a2], SP[a2, a4], a3, n]/2 + 
    2*S2[a1, SP[a1, a3], a2, SP[a2, a4], n] + 
    2*S2[a1, SP[a1, a3], SP[a2, a4], a2, n] - 
    S2[a1, SP[a1, a4], a2, SP[a2, a3], n]/2 - 
    S2[a1, SP[a1, a4], a3, SP[a2, a2], n]/2 - 
    S2[a1, SP[a1, a4], SP[a2, a2], a3, n]/2 - 
    S2[a1, SP[a1, a4], SP[a2, a3], a2, n]/2 + 
    2*S2[a2, a1, SP[a1, a3], SP[a2, a4], n] + 
    2*S2[a2, SP[a1, a3], a1, SP[a2, a4], n] + 
    2*S2[a2, SP[a1, a3], SP[a1, a4], a2, n] - 
    (S2[a1, a2, n]*S2[a3, a4, a1, a2, n])/2 + 
    S2[a3, a4, SP[a1, a1], SP[a2, a2], n]/2 + 
    S2[a3, SP[a1, a4], a1, SP[a2, a2], n]/2 + 
    S2[a3, SP[a1, a4], SP[a1, a2], a2, n]/2 - S2[SP[a1, a1], a2, a3, 
     SP[a2, a4], n] - S2[SP[a1, a1], a2, a4, SP[a2, a3], n]/2 - 
    S2[SP[a1, a1], a2, SP[a2, a3], a4, n] - 
    S2[SP[a1, a1], a2, SP[a2, a4], a3, n]/2 - 
    S2[SP[a1, a1], a4, a2, SP[a2, a3], n]/2 - 
    S2[SP[a1, a1], a4, a3, SP[a2, a2], n]/2 - 
    S2[SP[a1, a1], a4, SP[a2, a2], a3, n]/2 - 
    S2[SP[a1, a1], a4, SP[a2, a3], a2, n]/2 - S2[SP[a1, a1], SP[a2, a2], a3, 
     a4, n] - S2[SP[a1, a1], SP[a2, a2], a4, a3, n]/2 - 
    S2[SP[a1, a1], SP[a2, a4], a2, a3, n]/2 - 
    S2[SP[a1, a1], SP[a2, a4], a3, a2, n]/2 + 
    2*S2[SP[a1, a2], a1, a3, SP[a2, a4], n] + 
    2*S2[SP[a1, a2], a1, SP[a2, a3], a4, n] + 
    2*S2[SP[a1, a2], a3, a1, SP[a2, a4], n] + 
    2*S2[SP[a1, a2], a3, SP[a1, a4], a2, n] + 
    2*S2[SP[a1, a2], SP[a1, a3], a2, a4, n] + 
    2*S2[SP[a1, a2], SP[a1, a3], a4, a2, n] + 
    2*S2[SP[a1, a3], a1, a2, SP[a2, a4], n] + 
    2*S2[SP[a1, a3], a1, SP[a2, a4], a2, n] + 
    S2[SP[a1, a3], a4, a1, SP[a2, a2], n]/2 + 
    S2[SP[a1, a3], a4, SP[a1, a2], a2, n]/2 + 
    2*S2[SP[a1, a3], SP[a1, a4], a2, a2, n] + 
    S2[SP[a1, a3], SP[a2, a4], a1, a2, n]/2 - 
    4*S2[a4, n]*S2[a1, a1, a2, a2, a3, n] + 
    2*S2[a3, n]*S2[a1, a1, a2, a2, a4, n] - 
    2*S2[a1, a1, a2, a2, SP[a3, a4], n] - 
    4*S2[a4, n]*S2[a1, a1, a2, a3, a2, n] + 
    2*S2[a2, n]*S2[a1, a1, a2, a3, a4, n] - 
    4*S2[a1, a1, a2, a3, SP[a2, a4], n] + 
    2*S2[a3, n]*S2[a1, a1, a2, a4, a2, n] + 
    3*S2[a1, a1, a2, a4, SP[a2, a3], n] + 
    2*S2[a1, a1, a2, SP[a2, a3], a4, n] - 
    3*S2[a1, a1, a2, SP[a2, a4], a3, n] - 
    2*S2[a1, a1, a2, SP[a3, a4], a2, n] - 
    4*S2[a4, n]*S2[a1, a1, a3, a2, a2, n] + 
    2*S2[a2, n]*S2[a1, a1, a3, a2, a4, n] - 
    4*S2[a1, a1, a3, a2, SP[a2, a4], n] + 
    2*S2[a2, n]*S2[a1, a1, a3, a4, a2, n] + 
    2*S2[a1, a1, a3, a4, SP[a2, a2], n] + 
    2*S2[a1, a1, a3, SP[a2, a2], a4, n] - 
    4*S2[a1, a1, a3, SP[a2, a4], a2, n] + 
    2*S2[a3, n]*S2[a1, a1, a4, a2, a2, n] + 
    3*S2[a1, a1, a4, a2, SP[a2, a3], n] + S2[a1, a1, a4, a3, SP[a2, a2], n] + 
    S2[a1, a1, a4, SP[a2, a2], a3, n] + 3*S2[a1, a1, a4, SP[a2, a3], a2, n] + 
    2*S2[a1, a1, SP[a2, a2], a3, a4, n] + S2[a1, a1, SP[a2, a2], a4, a3, n] + 
    2*S2[a1, a1, SP[a2, a3], a2, a4, n] + 
    2*S2[a1, a1, SP[a2, a3], a4, a2, n] - 
    3*S2[a1, a1, SP[a2, a4], a2, a3, n] - 
    3*S2[a1, a1, SP[a2, a4], a3, a2, n] - 
    2*S2[a1, a1, SP[a3, a4], a2, a2, n] - 
    S2[a4, n]*S2[a1, a2, a1, a2, a3, n] - S2[a1, a2, a1, a2, SP[a3, a4], n] - 
    S2[a4, n]*S2[a1, a2, a1, a3, a2, n] - 
    2*S2[a1, a2, a1, a3, SP[a2, a4], n] + S2[a1, a2, a1, a4, SP[a2, a3], n]/
     2 - S2[a1, a2, a1, SP[a2, a3], a4, n] - 
    S2[a1, a2, a1, SP[a2, a4], a3, n]/2 - S2[a1, a2, a1, SP[a3, a4], a2, n] - 
    S2[a4, n]*S2[a1, a2, a3, a1, a2, n] - 
    2*S2[a1, a2, a3, a1, SP[a2, a4], n] - 
    2*S2[a1, a2, a3, SP[a1, a4], a2, n] + 
    (S2[a3, n]*S2[a1, a2, a4, a1, a2, n])/2 + S2[a1, a2, a4, a1, SP[a2, a3], 
     n] + S2[a1, a2, a4, SP[a1, a3], a2, n] - S2[a1, a2, SP[a1, a3], a2, a4, 
     n] - S2[a1, a2, SP[a1, a3], a4, a2, n] - 
    S2[a1, a2, SP[a1, a4], a2, a3, n]/2 - S2[a1, a2, SP[a1, a4], a3, a2, n]/
     2 - S2[a1, a2, SP[a3, a4], a1, a2, n]/2 - 
    4*S2[a4, n]*S2[a1, a3, a1, a2, a2, n] + 
    2*S2[a2, n]*S2[a1, a3, a1, a2, a4, n] - 
    4*S2[a1, a3, a1, a2, SP[a2, a4], n] + 
    2*S2[a2, n]*S2[a1, a3, a1, a4, a2, n] + 
    2*S2[a1, a3, a1, a4, SP[a2, a2], n] + 
    2*S2[a1, a3, a1, SP[a2, a2], a4, n] - 
    4*S2[a1, a3, a1, SP[a2, a4], a2, n] - 
    2*S2[a4, n]*S2[a1, a3, a2, a1, a2, n] - 
    2*S2[a1, a3, a2, a1, SP[a2, a4], n] - 
    2*S2[a1, a3, a2, SP[a1, a4], a2, n] + 
    2*S2[a2, n]*S2[a1, a3, a4, a1, a2, n] + 
    (3*S2[a1, a3, a4, a1, SP[a2, a2], n])/2 + 
    (3*S2[a1, a3, a4, SP[a1, a2], a2, n])/2 + 
    2*S2[a1, a3, SP[a1, a2], a2, a4, n] + 
    2*S2[a1, a3, SP[a1, a2], a4, a2, n] - 
    6*S2[a1, a3, SP[a1, a4], a2, a2, n] - S2[a1, a3, SP[a2, a4], a1, a2, n]/
     2 + 3*S2[a3, n]*S2[a1, a4, a1, a2, a2, n] + 
    (7*S2[a1, a4, a1, a2, SP[a2, a3], n])/2 + 
    S2[a1, a4, a1, a3, SP[a2, a2], n]/2 + S2[a1, a4, a1, SP[a2, a2], a3, n]/
     2 + (7*S2[a1, a4, a1, SP[a2, a3], a2, n])/2 + 
    (S2[a3, n]*S2[a1, a4, a2, a1, a2, n])/2 + S2[a1, a4, a2, a1, SP[a2, a3], 
     n] + S2[a1, a4, a2, SP[a1, a3], a2, n] + 
    S2[a1, a4, a3, a1, SP[a2, a2], n]/2 + S2[a1, a4, a3, SP[a1, a2], a2, n]/
     2 + S2[a1, a4, SP[a1, a2], a2, a3, n]/2 + 
    S2[a1, a4, SP[a1, a2], a3, a2, n]/2 + 
    4*S2[a1, a4, SP[a1, a3], a2, a2, n] + S2[a1, a4, SP[a2, a3], a1, a2, n]/
     2 + 2*S2[a1, SP[a1, a2], a2, a3, a4, n] + S2[a1, SP[a1, a2], a2, a4, a3, 
     n] + S2[a1, SP[a1, a2], a3, a2, a4, n] + S2[a1, SP[a1, a2], a3, a4, a2, 
     n] + S2[a1, SP[a1, a2], a4, a2, a3, n] + S2[a1, SP[a1, a2], a4, a3, a2, 
     n] - 3*S2[a1, SP[a1, a4], a2, a2, a3, n] - 
    3*S2[a1, SP[a1, a4], a2, a3, a2, n] - 
    3*S2[a1, SP[a1, a4], a3, a2, a2, n] + 
    2*S2[a1, SP[a2, a3], a1, a2, a4, n] + 
    2*S2[a1, SP[a2, a3], a1, a4, a2, n] + 
    2*S2[a1, SP[a2, a3], a4, a1, a2, n] - S2[a1, SP[a2, a4], a1, a2, a3, n] - 
    S2[a1, SP[a2, a4], a1, a3, a2, n] - S2[a1, SP[a2, a4], a3, a1, a2, n] - 
    S2[a1, SP[a3, a4], a1, a2, a2, n] - (3*S2[a1, SP[a3, a4], a2, a1, a2, n])/
     2 - 2*S2[a2, a1, a1, a3, SP[a2, a4], n] - 
    2*S2[a2, a1, a1, SP[a2, a3], a4, n] - 
    2*S2[a2, a1, a3, a1, SP[a2, a4], n] - 
    2*S2[a2, a1, a3, SP[a1, a4], a2, n] - 
    2*S2[a2, a1, SP[a1, a3], a2, a4, n] - 
    2*S2[a2, a1, SP[a1, a3], a4, a2, n] + 
    2*S2[a4, n]*S2[a2, a3, a1, a1, a2, n] - 
    2*S2[a2, SP[a1, a3], a1, a2, a4, n] - 
    2*S2[a2, SP[a1, a3], a1, a4, a2, n] - 
    2*S2[a2, SP[a1, a3], a4, a1, a2, n] + 
    2*S2[a2, SP[a3, a4], a1, a1, a2, n] - 
    2*S2[a3, a1, a1, a2, SP[a2, a4], n] - 
    2*S2[a3, a1, a1, SP[a2, a4], a2, n] - S2[a3, a1, a4, a1, SP[a2, a2], n]/
     2 - S2[a3, a1, a4, SP[a1, a2], a2, n]/2 - 
    2*S2[a3, a1, SP[a1, a4], a2, a2, n] - S2[a3, a1, SP[a2, a4], a1, a2, n]/
     2 - S2[a3, a4, a1, a1, SP[a2, a2], n] - S2[a3, a4, a1, SP[a1, a2], a2, 
     n] - S2[a3, a4, SP[a1, a1], a2, a2, n] - 
    3*S2[a3, SP[a1, a4], a1, a2, a2, n] - S2[a3, SP[a1, a4], a2, a1, a2, n]/
     2 + 4*S2[a3, n]*S2[a4, a1, a1, a2, a2, n] + 
    4*S2[a4, a1, a1, a2, SP[a2, a3], n] + 
    4*S2[a4, a1, a1, SP[a2, a3], a2, n] + 
    S2[a3, n]*S2[a4, a1, a2, a1, a2, n] + S2[a4, a1, a2, a1, SP[a2, a3], n] + 
    S2[a4, a1, a2, SP[a1, a3], a2, n] + 4*S2[a4, a1, SP[a1, a3], a2, a2, n] + 
    S2[a4, a1, SP[a2, a3], a1, a2, n] - 2*S2[a2, n]*
     S2[a4, a3, a1, a1, a2, n] - 2*S2[a4, a3, a1, a1, SP[a2, a2], n] - 
    2*S2[a4, a3, a1, SP[a1, a2], a2, n] + 
    S2[a1, n]*S2[a4, a3, a2, a1, a2, n] + S2[a4, a3, a2, a1, SP[a1, a2], n] + 
    S2[a4, a3, a2, SP[a1, a1], a2, n] - S2[a4, a3, SP[a1, a2], a1, a2, n] + 
    4*S2[a4, SP[a1, a3], a1, a2, a2, n] + 
    2*S2[a4, SP[a1, a3], a2, a1, a2, n] - 
    2*S2[a4, SP[a2, a3], a1, a1, a2, n] + 
    2*S2[SP[a1, a1], a2, a2, a3, a4, n] + S2[SP[a1, a1], a2, a2, a4, a3, n] + 
    S2[SP[a1, a1], a2, a3, a2, a4, n] + S2[SP[a1, a1], a2, a3, a4, a2, n] + 
    S2[SP[a1, a1], a2, a4, a2, a3, n] + S2[SP[a1, a1], a2, a4, a3, a2, n] + 
    S2[SP[a1, a1], a4, a2, a2, a3, n] + S2[SP[a1, a1], a4, a2, a3, a2, n] + 
    S2[SP[a1, a1], a4, a3, a2, a2, n] - 4*S2[SP[a1, a4], a1, a2, a2, a3, n] - 
    4*S2[SP[a1, a4], a1, a2, a3, a2, n] - 
    4*S2[SP[a1, a4], a1, a3, a2, a2, n] - S2[SP[a1, a4], a2, a1, a2, a3, n] - 
    S2[SP[a1, a4], a2, a1, a3, a2, n] - S2[SP[a1, a4], a2, a3, a1, a2, n] - 
    4*S2[SP[a1, a4], a3, a1, a2, a2, n] - S2[SP[a1, a4], a3, a2, a1, a2, n] + 
    4*S2[SP[a3, a4], a1, a1, a2, a2, n] + S2[SP[a3, a4], a1, a2, a1, a2, n] - 
    S2[a4, a3, a2, a1, a2, a1, n] /; MyMemberQ[{{a1, a2}, {a3, a4}}, 
     {a1, a1, a2, a2, a3, a4}] && a1 != a2 != a3 != a4, 
 S2[a1_, a2_, a1_, a2_, a4_, a3_, n_] :> 
  -2*S2[a1, a1, a2, n]*S2[a2, a4, a3, n] - 
    2*S2[SP[a1, a2], SP[a1, a4], SP[a2, a3], n] + 
    2*S2[a3, a4, n]*S2[a1, a1, a2, a2, n] - 
    2*S2[a1, a1, SP[a2, a3], SP[a2, a4], n] + 
    (S2[a1, a2, n]*S2[a1, a2, a4, a3, n])/2 + 
    (3*S2[a1, a2, SP[a1, a4], SP[a2, a3], n])/2 - 
    (S2[a1, a2, n]*S2[a1, a4, a2, a3, n])/2 - 
    (S2[a1, a2, n]*S2[a1, a4, a3, a2, n])/2 + 
    S2[a1, a4, SP[a1, a2], SP[a2, a3], n]/2 + 
    S2[a1, a4, SP[a1, a3], SP[a2, a2], n]/2 + 
    (3*S2[a1, SP[a1, a2], a4, SP[a2, a3], n])/2 + 
    (3*S2[a1, SP[a1, a2], SP[a2, a4], a3, n])/2 - 
    2*S2[a1, SP[a1, a3], a2, SP[a2, a4], n] - 
    2*S2[a1, SP[a1, a3], SP[a2, a4], a2, n] + 
    S2[a1, SP[a1, a4], a2, SP[a2, a3], n]/2 + 
    S2[a1, SP[a1, a4], a3, SP[a2, a2], n]/2 + 
    S2[a1, SP[a1, a4], SP[a2, a2], a3, n]/2 + 
    S2[a1, SP[a1, a4], SP[a2, a3], a2, n]/2 + 
    2*S2[a2, a1, SP[a1, a4], SP[a2, a3], n] + 
    2*S2[a2, SP[a1, a4], a1, SP[a2, a3], n] + 
    2*S2[a2, SP[a1, a4], SP[a1, a3], a2, n] + 
    (S2[a1, a2, n]*S2[a3, a4, a1, a2, n])/2 - 
    S2[a3, a4, SP[a1, a1], SP[a2, a2], n]/2 - 
    S2[a3, SP[a1, a4], a1, SP[a2, a2], n]/2 - 
    S2[a3, SP[a1, a4], SP[a1, a2], a2, n]/2 - 
    S2[SP[a1, a1], a2, a4, SP[a2, a3], n]/2 - 
    S2[SP[a1, a1], a2, SP[a2, a4], a3, n]/2 + 
    S2[SP[a1, a1], a4, a2, SP[a2, a3], n]/2 + 
    S2[SP[a1, a1], a4, a3, SP[a2, a2], n]/2 + 
    S2[SP[a1, a1], a4, SP[a2, a2], a3, n]/2 + 
    S2[SP[a1, a1], a4, SP[a2, a3], a2, n]/2 - 
    S2[SP[a1, a1], SP[a2, a2], a4, a3, n]/2 + 
    S2[SP[a1, a1], SP[a2, a4], a2, a3, n]/2 + 
    S2[SP[a1, a1], SP[a2, a4], a3, a2, n]/2 + 
    2*S2[SP[a1, a2], a1, a4, SP[a2, a3], n] + 
    2*S2[SP[a1, a2], a1, SP[a2, a4], a3, n] + 
    2*S2[SP[a1, a2], a4, a1, SP[a2, a3], n] + 
    2*S2[SP[a1, a2], a4, SP[a1, a3], a2, n] + 
    2*S2[SP[a1, a2], SP[a1, a4], a2, a3, n] + 
    2*S2[SP[a1, a2], SP[a1, a4], a3, a2, n] - 
    2*S2[SP[a1, a3], a1, a2, SP[a2, a4], n] - 
    2*S2[SP[a1, a3], a1, SP[a2, a4], a2, n] - 
    S2[SP[a1, a3], a4, a1, SP[a2, a2], n]/2 - 
    S2[SP[a1, a3], a4, SP[a1, a2], a2, n]/2 - 
    2*S2[SP[a1, a3], SP[a1, a4], a2, a2, n] - 
    S2[SP[a1, a3], SP[a2, a4], a1, a2, n]/2 - 
    2*S2[a3, n]*S2[a1, a1, a2, a2, a4, n] - 
    2*S2[a1, a1, a2, a2, SP[a3, a4], n] + 
    2*S2[a1, a1, a2, a3, SP[a2, a4], n] - 
    2*S2[a3, n]*S2[a1, a1, a2, a4, a2, n] + 
    2*S2[a2, n]*S2[a1, a1, a2, a4, a3, n] - S2[a1, a1, a2, a4, SP[a2, a3], 
     n] + S2[a1, a1, a2, SP[a2, a4], a3, n] - 
    2*S2[a1, a1, a2, SP[a3, a4], a2, n] + 
    2*S2[a1, a1, a3, a2, SP[a2, a4], n] + 
    2*S2[a1, a1, a3, SP[a2, a4], a2, n] - 
    2*S2[a3, n]*S2[a1, a1, a4, a2, a2, n] + 
    2*S2[a2, n]*S2[a1, a1, a4, a2, a3, n] - S2[a1, a1, a4, a2, SP[a2, a3], 
     n] + 2*S2[a2, n]*S2[a1, a1, a4, a3, a2, n] + 
    S2[a1, a1, a4, a3, SP[a2, a2], n] + S2[a1, a1, a4, SP[a2, a2], a3, n] - 
    S2[a1, a1, a4, SP[a2, a3], a2, n] + S2[a1, a1, SP[a2, a2], a4, a3, n] + 
    S2[a1, a1, SP[a2, a4], a2, a3, n] + S2[a1, a1, SP[a2, a4], a3, a2, n] - 
    2*S2[a1, a1, SP[a3, a4], a2, a2, n] - 
    (3*S2[a1, a2, a1, a4, SP[a2, a3], n])/2 - 
    (3*S2[a1, a2, a1, SP[a2, a4], a3, n])/2 - 
    (S2[a3, n]*S2[a1, a2, a4, a1, a2, n])/2 - 
    2*S2[a1, a2, a4, a1, SP[a2, a3], n] - 
    2*S2[a1, a2, a4, SP[a1, a3], a2, n] - 
    (3*S2[a1, a2, SP[a1, a4], a2, a3, n])/2 - 
    (3*S2[a1, a2, SP[a1, a4], a3, a2, n])/2 - 
    S2[a1, a2, SP[a3, a4], a1, a2, n]/2 + 
    2*S2[a1, a3, a1, a2, SP[a2, a4], n] + 
    2*S2[a1, a3, a1, SP[a2, a4], a2, n] + S2[a1, a3, a4, a1, SP[a2, a2], n]/
     2 + S2[a1, a3, a4, SP[a1, a2], a2, n]/2 + 
    2*S2[a1, a3, SP[a1, a4], a2, a2, n] + S2[a1, a3, SP[a2, a4], a1, a2, n]/
     2 - 3*S2[a3, n]*S2[a1, a4, a1, a2, a2, n] + 
    2*S2[a2, n]*S2[a1, a4, a1, a2, a3, n] - 
    (3*S2[a1, a4, a1, a2, SP[a2, a3], n])/2 + 
    2*S2[a2, n]*S2[a1, a4, a1, a3, a2, n] + 
    (3*S2[a1, a4, a1, a3, SP[a2, a2], n])/2 + 
    (3*S2[a1, a4, a1, SP[a2, a2], a3, n])/2 - 
    (3*S2[a1, a4, a1, SP[a2, a3], a2, n])/2 - 
    (S2[a3, n]*S2[a1, a4, a2, a1, a2, n])/2 - S2[a1, a4, a2, a1, SP[a2, a3], 
     n] - S2[a1, a4, a2, SP[a1, a3], a2, n] + 
    2*S2[a2, n]*S2[a1, a4, a3, a1, a2, n] + 
    (3*S2[a1, a4, a3, a1, SP[a2, a2], n])/2 + 
    (3*S2[a1, a4, a3, SP[a1, a2], a2, n])/2 + 
    (3*S2[a1, a4, SP[a1, a2], a2, a3, n])/2 + 
    (3*S2[a1, a4, SP[a1, a2], a3, a2, n])/2 - 
    4*S2[a1, a4, SP[a1, a3], a2, a2, n] + 
    (3*S2[a1, a4, SP[a2, a3], a1, a2, n])/2 + S2[a1, SP[a1, a2], a2, a4, a3, 
     n] - S2[a1, SP[a1, a4], a2, a2, a3, n] - S2[a1, SP[a1, a4], a2, a3, a2, 
     n] - S2[a1, SP[a1, a4], a3, a2, a2, n] + 
    2*S2[a1, SP[a2, a4], a1, a2, a3, n] + 
    2*S2[a1, SP[a2, a4], a1, a3, a2, n] + 
    2*S2[a1, SP[a2, a4], a3, a1, a2, n] - 
    3*S2[a1, SP[a3, a4], a1, a2, a2, n] - S2[a1, SP[a3, a4], a2, a1, a2, n]/
     2 - 2*S2[a2, a1, a1, a4, SP[a2, a3], n] - 
    2*S2[a2, a1, a1, SP[a2, a4], a3, n] - 
    2*S2[a2, a1, a4, a1, SP[a2, a3], n] - 
    2*S2[a2, a1, a4, SP[a1, a3], a2, n] - 
    2*S2[a2, a1, SP[a1, a4], a2, a3, n] - 
    2*S2[a2, a1, SP[a1, a4], a3, a2, n] - 
    2*S2[a2, a4, a1, a1, SP[a2, a3], n] - 
    2*S2[a2, a4, a1, SP[a1, a3], a2, n] - 
    2*S2[a2, a4, SP[a1, a3], a1, a2, n] - 
    2*S2[a2, SP[a1, a4], a1, a2, a3, n] - 
    2*S2[a2, SP[a1, a4], a1, a3, a2, n] - 
    2*S2[a2, SP[a1, a4], a3, a1, a2, n] + 
    2*S2[a3, a1, a1, a2, SP[a2, a4], n] + 
    2*S2[a3, a1, a1, SP[a2, a4], a2, n] + S2[a3, a1, a4, a1, SP[a2, a2], n]/
     2 + S2[a3, a1, a4, SP[a1, a2], a2, n]/2 + 
    2*S2[a3, a1, SP[a1, a4], a2, a2, n] + S2[a3, a1, SP[a2, a4], a1, a2, n]/
     2 + S2[a3, a4, a1, a1, SP[a2, a2], n] + S2[a3, a4, a1, SP[a1, a2], a2, 
     n] + S2[a3, a4, SP[a1, a1], a2, a2, n] + 
    3*S2[a3, SP[a1, a4], a1, a2, a2, n] + S2[a3, SP[a1, a4], a2, a1, a2, n]/
     2 - 4*S2[a3, n]*S2[a4, a1, a1, a2, a2, n] + 
    2*S2[a2, n]*S2[a4, a1, a1, a2, a3, n] - 
    2*S2[a4, a1, a1, a2, SP[a2, a3], n] + 
    2*S2[a2, n]*S2[a4, a1, a1, a3, a2, n] + 
    2*S2[a4, a1, a1, a3, SP[a2, a2], n] + 
    2*S2[a4, a1, a1, SP[a2, a2], a3, n] - 
    2*S2[a4, a1, a1, SP[a2, a3], a2, n] - 
    S2[a3, n]*S2[a4, a1, a2, a1, a2, n] - S2[a4, a1, a2, a1, SP[a2, a3], n] - 
    S2[a4, a1, a2, SP[a1, a3], a2, n] + 2*S2[a2, n]*
     S2[a4, a1, a3, a1, a2, n] + 2*S2[a4, a1, a3, a1, SP[a2, a2], n] + 
    2*S2[a4, a1, a3, SP[a1, a2], a2, n] + 
    2*S2[a4, a1, SP[a1, a2], a2, a3, n] + 
    2*S2[a4, a1, SP[a1, a2], a3, a2, n] - 
    4*S2[a4, a1, SP[a1, a3], a2, a2, n] + S2[a4, a1, SP[a2, a3], a1, a2, n] - 
    S2[a1, n]*S2[a4, a2, a1, a2, a3, n] - S2[a4, a2, a1, a2, SP[a1, a3], n] - 
    S2[a1, n]*S2[a4, a2, a1, a3, a2, n] - S2[a4, a2, a1, a3, SP[a1, a2], n] - 
    S2[a4, a2, a1, SP[a1, a2], a3, n] - S2[a4, a2, a1, SP[a1, a3], a2, n] - 
    S2[a1, n]*S2[a4, a2, a3, a1, a2, n] - S2[a4, a2, a3, a1, SP[a1, a2], n] - 
    S2[a4, a2, a3, SP[a1, a1], a2, n] - S2[a4, a2, SP[a1, a1], a2, a3, n] - 
    S2[a4, a2, SP[a1, a1], a3, a2, n] - S2[a4, a2, SP[a1, a3], a1, a2, n] + 
    2*S2[a2, n]*S2[a4, a3, a1, a1, a2, n] + 
    2*S2[a4, a3, a1, a1, SP[a2, a2], n] + 
    2*S2[a4, a3, a1, SP[a1, a2], a2, n] - 
    S2[a1, n]*S2[a4, a3, a2, a1, a2, n] - S2[a4, a3, a2, a1, SP[a1, a2], n] - 
    S2[a4, a3, a2, SP[a1, a1], a2, n] + S2[a4, a3, SP[a1, a2], a1, a2, n] + 
    S2[a4, SP[a1, a2], a1, a2, a3, n] + S2[a4, SP[a1, a2], a1, a3, a2, n] + 
    S2[a4, SP[a1, a2], a3, a1, a2, n] - 4*S2[a4, SP[a1, a3], a1, a2, a2, n] - 
    2*S2[a4, SP[a1, a3], a2, a1, a2, n] + 
    2*S2[a4, SP[a2, a3], a1, a1, a2, n] + S2[SP[a1, a1], a2, a2, a4, a3, n] - 
    S2[SP[a1, a1], a4, a2, a2, a3, n] - S2[SP[a1, a1], a4, a2, a3, a2, n] - 
    S2[SP[a1, a1], a4, a3, a2, a2, n] - S2[SP[a1, a4], a2, a1, a2, a3, n] - 
    S2[SP[a1, a4], a2, a1, a3, a2, n] - S2[SP[a1, a4], a2, a3, a1, a2, n] - 
    S2[SP[a1, a4], a3, a2, a1, a2, n] + 2*S2[SP[a2, a4], a1, a1, a2, a3, n] + 
    2*S2[SP[a2, a4], a1, a1, a3, a2, n] + 
    2*S2[SP[a2, a4], a1, a3, a1, a2, n] + 
    2*S2[SP[a2, a4], a3, a1, a1, a2, n] - 
    4*S2[SP[a3, a4], a1, a1, a2, a2, n] - S2[SP[a3, a4], a1, a2, a1, a2, n] + 
    S2[a4, a2, a1, a2, a1, a3, n] + S2[a4, a2, a1, a2, a3, a1, n] + 
    S2[a4, a2, a1, a3, a2, a1, n] + S2[a4, a2, a3, a1, a2, a1, n] + 
    S2[a4, a3, a2, a1, a2, a1, n] /; MyMemberQ[{{a1, a2}, {a3, a4}}, 
     {a1, a1, a2, a2, a3, a4}] && a1 != a2 != a3 != a4, 
 S2[a1_, a2_, a1_, a3_, a2_, a4_, n_] :> 
  2*S2[a1, a1, a2, n]*S2[a2, a3, a4, n] + 2*S2[a1, a1, a2, n]*
     S2[a2, a4, a3, n] + 2*S2[SP[a1, a2], SP[a1, a3], SP[a2, a4], n] + 
    2*S2[SP[a1, a2], SP[a1, a4], SP[a2, a3], n] + 
    S2[a2, a4, n]*S2[a1, a2, a1, a3, n] - S2[a1, a2, SP[a1, a2], SP[a3, a4], 
     n] - 2*S2[a1, a2, SP[a1, a3], SP[a2, a4], n] - 
    2*S2[a1, a2, SP[a1, a4], SP[a2, a3], n] + 
    S2[a1, a2, n]*S2[a1, a3, a2, a4, n] + S2[a1, a2, n]*
     S2[a1, a3, a4, a2, n] - S2[a1, a3, SP[a1, a2], SP[a2, a4], n] - 
    S2[a1, a3, SP[a1, a4], SP[a2, a2], n] + S2[a1, a2, n]*
     S2[a1, a4, a2, a3, n] + S2[a1, a2, n]*S2[a1, a4, a3, a2, n] - 
    S2[a1, a4, SP[a1, a2], SP[a2, a3], n] - S2[a1, a4, SP[a1, a3], 
     SP[a2, a2], n] - 2*S2[a1, SP[a1, a2], a3, SP[a2, a4], n] - 
    2*S2[a1, SP[a1, a2], a4, SP[a2, a3], n] - 
    2*S2[a1, SP[a1, a2], SP[a2, a3], a4, n] - 
    2*S2[a1, SP[a1, a2], SP[a2, a4], a3, n] - S2[a1, SP[a1, a3], a2, 
     SP[a2, a4], n] - S2[a1, SP[a1, a3], a4, SP[a2, a2], n] - 
    S2[a1, SP[a1, a3], SP[a2, a2], a4, n] - S2[a1, SP[a1, a3], SP[a2, a4], 
     a2, n] - S2[a1, SP[a1, a4], a2, SP[a2, a3], n] - 
    S2[a1, SP[a1, a4], a3, SP[a2, a2], n] - S2[a1, SP[a1, a4], SP[a2, a2], 
     a3, n] - S2[a1, SP[a1, a4], SP[a2, a3], a2, n] - 
    S2[a1, SP[a2, a2], a1, SP[a3, a4], n] - S2[a1, SP[a2, a2], SP[a1, a4], 
     a3, n] - 2*S2[a2, a1, SP[a1, a3], SP[a2, a4], n] - 
    2*S2[a2, a1, SP[a1, a4], SP[a2, a3], n] - 
    S2[a1, a2, n]*S2[a2, a4, a1, a3, n] + S2[a2, a4, SP[a1, a1], SP[a2, a3], 
     n] - 2*S2[a2, SP[a1, a3], a1, SP[a2, a4], n] - 
    2*S2[a2, SP[a1, a3], SP[a1, a4], a2, n] - S2[a2, SP[a1, a4], a1, 
     SP[a2, a3], n] + S2[a2, SP[a1, a4], SP[a1, a2], a3, n] - 
    2*S2[a2, SP[a1, a4], SP[a1, a3], a2, n] - S2[SP[a1, a1], a3, a2, 
     SP[a2, a4], n] - S2[SP[a1, a1], a3, a4, SP[a2, a2], n] - 
    S2[SP[a1, a1], a3, SP[a2, a2], a4, n] - S2[SP[a1, a1], a3, SP[a2, a4], 
     a2, n] - S2[SP[a1, a1], a4, a2, SP[a2, a3], n] - 
    S2[SP[a1, a1], a4, a3, SP[a2, a2], n] - S2[SP[a1, a1], a4, SP[a2, a2], 
     a3, n] - S2[SP[a1, a1], a4, SP[a2, a3], a2, n] - 
    S2[SP[a1, a1], SP[a2, a3], a2, a4, n] - S2[SP[a1, a1], SP[a2, a3], a4, 
     a2, n] - S2[SP[a1, a1], SP[a2, a4], a2, a3, n] - 
    S2[SP[a1, a1], SP[a2, a4], a3, a2, n] - 
    2*S2[SP[a1, a2], a1, a3, SP[a2, a4], n] - 
    2*S2[SP[a1, a2], a1, a4, SP[a2, a3], n] - 
    2*S2[SP[a1, a2], a1, SP[a2, a3], a4, n] - 
    2*S2[SP[a1, a2], a1, SP[a2, a4], a3, n] - S2[SP[a1, a2], a2, a1, 
     SP[a3, a4], n] - S2[SP[a1, a2], a2, SP[a1, a4], a3, n] - 
    2*S2[SP[a1, a2], a3, a1, SP[a2, a4], n] - 
    2*S2[SP[a1, a2], a3, SP[a1, a4], a2, n] - S2[SP[a1, a2], a4, a1, 
     SP[a2, a3], n] + S2[SP[a1, a2], a4, SP[a1, a2], a3, n] - 
    2*S2[SP[a1, a2], a4, SP[a1, a3], a2, n] - 
    2*S2[SP[a1, a2], SP[a1, a3], a2, a4, n] - 
    2*S2[SP[a1, a2], SP[a1, a3], a4, a2, n] - 
    2*S2[SP[a1, a2], SP[a1, a4], a2, a3, n] - 
    2*S2[SP[a1, a2], SP[a1, a4], a3, a2, n] - 
    2*S2[a2, n]*S2[a1, a1, a2, a3, a4, n] - 
    2*S2[a2, n]*S2[a1, a1, a2, a4, a3, n] - 
    2*S2[a2, n]*S2[a1, a1, a3, a2, a4, n] - 
    2*S2[a2, n]*S2[a1, a1, a3, a4, a2, n] - 
    2*S2[a2, n]*S2[a1, a1, a4, a2, a3, n] - 
    2*S2[a2, n]*S2[a1, a1, a4, a3, a2, n] + S2[a1, a2, a1, a2, SP[a3, a4], 
     n] - S2[a2, n]*S2[a1, a2, a1, a3, a4, n] + S2[a1, a2, a1, a3, 
     SP[a2, a4], n] - S2[a2, n]*S2[a1, a2, a1, a4, a3, n] + 
    S2[a1, a2, a1, a4, SP[a2, a3], n] + 2*S2[a1, a2, a1, SP[a2, a3], a4, n] + 
    S2[a1, a2, a1, SP[a2, a4], a3, n] + 2*S2[a1, a2, a2, a1, SP[a3, a4], n] + 
    2*S2[a1, a2, a2, SP[a1, a4], a3, n] + 
    2*S2[a1, a2, a3, a1, SP[a2, a4], n] + 
    2*S2[a1, a2, a3, SP[a1, a4], a2, n] + S2[a1, a2, a4, a1, SP[a2, a3], n] - 
    S2[a1, a2, a4, SP[a1, a2], a3, n] + 2*S2[a1, a2, a4, SP[a1, a3], a2, n] + 
    2*S2[a1, a2, SP[a1, a3], a2, a4, n] + 
    2*S2[a1, a2, SP[a1, a3], a4, a2, n] + 
    2*S2[a1, a2, SP[a1, a4], a2, a3, n] + 
    2*S2[a1, a2, SP[a1, a4], a3, a2, n] + 
    2*S2[a4, n]*S2[a1, a3, a1, a2, a2, n] - 
    2*S2[a2, n]*S2[a1, a3, a1, a2, a4, n] + S2[a1, a3, a1, a2, SP[a2, a4], 
     n] - 2*S2[a2, n]*S2[a1, a3, a1, a4, a2, n] - 
    S2[a1, a3, a1, a4, SP[a2, a2], n] - S2[a1, a3, a1, SP[a2, a2], a4, n] + 
    S2[a1, a3, a1, SP[a2, a4], a2, n] + S2[a4, n]*S2[a1, a3, a2, a1, a2, n] + 
    2*S2[a1, a3, a2, a1, SP[a2, a4], n] + 
    2*S2[a1, a3, a2, SP[a1, a4], a2, n] - 
    2*S2[a2, n]*S2[a1, a3, a4, a1, a2, n] - S2[a1, a3, a4, a1, SP[a2, a2], 
     n] - S2[a1, a3, a4, SP[a1, a2], a2, n] - S2[a1, a3, SP[a1, a2], a2, a4, 
     n] - S2[a1, a3, SP[a1, a2], a4, a2, n] + 
    4*S2[a1, a3, SP[a1, a4], a2, a2, n] - S2[a1, a3, SP[a2, a4], a1, a2, n] - 
    S2[a2, n]*S2[a1, a4, a1, a2, a3, n] - 
    S2[a2, n]*S2[a1, a4, a1, a3, a2, n] + S2[a1, a4, a2, a1, SP[a2, a3], n] + 
    S2[a1, a4, a2, SP[a1, a3], a2, n] - 2*S2[a2, n]*
     S2[a1, a4, a3, a1, a2, n] - S2[a1, a4, a3, a1, SP[a2, a2], n] - 
    S2[a1, a4, a3, SP[a1, a2], a2, n] + 2*S2[a1, a4, SP[a1, a3], a2, a2, n] - 
    2*S2[a1, a4, SP[a2, a3], a1, a2, n] + S2[a1, SP[a1, a2], a3, a2, a4, n] + 
    S2[a1, SP[a1, a2], a3, a4, a2, n] + S2[a1, SP[a1, a2], a4, a2, a3, n] + 
    S2[a1, SP[a1, a2], a4, a3, a2, n] + 2*S2[a1, SP[a1, a3], a2, a2, a4, n] + 
    2*S2[a1, SP[a1, a3], a2, a4, a2, n] + 
    2*S2[a1, SP[a1, a3], a4, a2, a2, n] + 
    2*S2[a1, SP[a1, a4], a2, a2, a3, n] + 
    2*S2[a1, SP[a1, a4], a2, a3, a2, n] + 
    2*S2[a1, SP[a1, a4], a3, a2, a2, n] - 
    2*S2[a1, SP[a2, a3], a1, a2, a4, n] - 
    2*S2[a1, SP[a2, a3], a1, a4, a2, n] - 
    2*S2[a1, SP[a2, a3], a4, a1, a2, n] - S2[a1, SP[a2, a4], a1, a2, a3, n] - 
    S2[a1, SP[a2, a4], a1, a3, a2, n] - 2*S2[a1, SP[a2, a4], a3, a1, a2, n] + 
    2*S2[a1, SP[a3, a4], a1, a2, a2, n] + S2[a1, SP[a3, a4], a2, a1, a2, n] + 
    2*S2[a2, a1, a1, a3, SP[a2, a4], n] + 
    2*S2[a2, a1, a1, a4, SP[a2, a3], n] + 
    2*S2[a2, a1, a1, SP[a2, a3], a4, n] + 
    2*S2[a2, a1, a1, SP[a2, a4], a3, n] + S2[a2, a1, a2, a1, SP[a3, a4], n] + 
    S2[a2, a1, a2, SP[a1, a4], a3, n] + 2*S2[a2, a1, a3, a1, SP[a2, a4], n] + 
    2*S2[a2, a1, a3, SP[a1, a4], a2, n] + S2[a2, a1, a4, a1, SP[a2, a3], n] - 
    S2[a2, a1, a4, SP[a1, a2], a3, n] + 2*S2[a2, a1, a4, SP[a1, a3], a2, n] + 
    2*S2[a2, a1, SP[a1, a3], a2, a4, n] + 
    2*S2[a2, a1, SP[a1, a3], a4, a2, n] + 
    2*S2[a2, a1, SP[a1, a4], a2, a3, n] + 
    2*S2[a2, a1, SP[a1, a4], a3, a2, n] - 
    2*S2[a4, n]*S2[a2, a3, a1, a1, a2, n] - S2[a2, a4, a1, SP[a1, a2], a3, 
     n] + S2[a2, a4, a1, SP[a1, a3], a2, n] - S2[a2, a4, SP[a1, a1], a2, a3, 
     n] - S2[a2, a4, SP[a1, a1], a3, a2, n] + 
    2*S2[a2, a4, SP[a1, a3], a1, a2, n] + 
    2*S2[a2, SP[a1, a3], a1, a2, a4, n] + 
    2*S2[a2, SP[a1, a3], a1, a4, a2, n] + 
    2*S2[a2, SP[a1, a3], a4, a1, a2, n] + S2[a2, SP[a1, a4], a1, a2, a3, n] + 
    S2[a2, SP[a1, a4], a1, a3, a2, n] + 2*S2[a2, SP[a1, a4], a3, a1, a2, n] - 
    2*S2[a2, SP[a3, a4], a1, a1, a2, n] - 
    S2[a2, n]*S2[a4, a1, a3, a1, a2, n] - S2[a4, a1, a3, a1, SP[a2, a2], n] - 
    S2[a4, a1, a3, SP[a1, a2], a2, n] - S2[a4, a1, SP[a2, a3], a1, a2, n] + 
    S2[a1, n]*S2[a4, a2, a3, a1, a2, n] + S2[a4, a2, a3, a1, SP[a1, a2], n] + 
    S2[a4, a2, a3, SP[a1, a1], a2, n] + S2[a4, a2, SP[a1, a3], a1, a2, n] + 
    S2[SP[a1, a1], a2, a3, a2, a4, n] + S2[SP[a1, a1], a2, a3, a4, a2, n] + 
    S2[SP[a1, a1], a2, a4, a2, a3, n] + S2[SP[a1, a1], a2, a4, a3, a2, n] + 
    2*S2[SP[a1, a1], a3, a2, a2, a4, n] + 
    2*S2[SP[a1, a1], a3, a2, a4, a2, n] + 
    2*S2[SP[a1, a1], a3, a4, a2, a2, n] + 
    2*S2[SP[a1, a1], a4, a2, a2, a3, n] + 
    2*S2[SP[a1, a1], a4, a2, a3, a2, n] + 
    2*S2[SP[a1, a1], a4, a3, a2, a2, n] + S2[SP[a1, a4], a2, a3, a1, a2, n] + 
    2*S2[SP[a1, a4], a3, a1, a2, a2, n] + S2[SP[a1, a4], a3, a2, a1, a2, n] - 
    S2[SP[a2, a4], a1, a3, a1, a2, n] - 2*S2[SP[a2, a4], a3, a1, a1, a2, n] - 
    S2[a4, a2, a3, a1, a2, a1, n] /; MyMemberQ[{{a1, a2}, {a3, a4}}, 
     {a1, a1, a2, a2, a3, a4}] && a1 != a2 != a3 != a4, 
 S2[a1_, a2_, a1_, a3_, a4_, a2_, n_] :> 
  -2*S2[a1, a1, a2, n]*S2[a2, a4, a3, n] - 
    2*S2[SP[a1, a2], SP[a1, a4], SP[a2, a3], n] - 
    S2[a2, a4, n]*S2[a1, a2, a1, a3, n] + S2[a1, a2, SP[a1, a2], SP[a3, a4], 
     n] + 2*S2[a1, a2, SP[a1, a4], SP[a2, a3], n] - 
    S2[a1, a2, n]*S2[a1, a4, a2, a3, n] - S2[a1, a2, n]*
     S2[a1, a4, a3, a2, n] + S2[a1, a4, SP[a1, a2], SP[a2, a3], n] + 
    S2[a1, a4, SP[a1, a3], SP[a2, a2], n] + 
    2*S2[a1, SP[a1, a2], a4, SP[a2, a3], n] + 
    2*S2[a1, SP[a1, a2], SP[a2, a4], a3, n] + S2[a1, SP[a1, a4], a2, 
     SP[a2, a3], n] + S2[a1, SP[a1, a4], a3, SP[a2, a2], n] + 
    S2[a1, SP[a1, a4], SP[a2, a2], a3, n] + S2[a1, SP[a1, a4], SP[a2, a3], 
     a2, n] + S2[a1, SP[a2, a2], a1, SP[a3, a4], n] + 
    S2[a1, SP[a2, a2], SP[a1, a4], a3, n] + 
    2*S2[a2, a1, SP[a1, a4], SP[a2, a3], n] + 
    S2[a1, a2, n]*S2[a2, a4, a1, a3, n] - S2[a2, a4, SP[a1, a1], SP[a2, a3], 
     n] + S2[a2, SP[a1, a4], a1, SP[a2, a3], n] - 
    S2[a2, SP[a1, a4], SP[a1, a2], a3, n] + 
    2*S2[a2, SP[a1, a4], SP[a1, a3], a2, n] + S2[SP[a1, a1], a4, a2, 
     SP[a2, a3], n] + S2[SP[a1, a1], a4, a3, SP[a2, a2], n] + 
    S2[SP[a1, a1], a4, SP[a2, a2], a3, n] + S2[SP[a1, a1], a4, SP[a2, a3], 
     a2, n] + S2[SP[a1, a1], SP[a2, a4], a2, a3, n] + 
    S2[SP[a1, a1], SP[a2, a4], a3, a2, n] + 
    2*S2[SP[a1, a2], a1, a4, SP[a2, a3], n] + 
    2*S2[SP[a1, a2], a1, SP[a2, a4], a3, n] + S2[SP[a1, a2], a2, a1, 
     SP[a3, a4], n] + S2[SP[a1, a2], a2, SP[a1, a4], a3, n] + 
    S2[SP[a1, a2], a4, a1, SP[a2, a3], n] - S2[SP[a1, a2], a4, SP[a1, a2], 
     a3, n] + 2*S2[SP[a1, a2], a4, SP[a1, a3], a2, n] + 
    2*S2[SP[a1, a2], SP[a1, a4], a2, a3, n] + 
    2*S2[SP[a1, a2], SP[a1, a4], a3, a2, n] + 
    2*S2[a2, n]*S2[a1, a1, a2, a4, a3, n] + 
    2*S2[a2, n]*S2[a1, a1, a4, a2, a3, n] + 
    2*S2[a2, n]*S2[a1, a1, a4, a3, a2, n] - S2[a1, a2, a1, a2, SP[a3, a4], 
     n] + S2[a2, n]*S2[a1, a2, a1, a3, a4, n] + S2[a1, a2, a1, a3, 
     SP[a2, a4], n] + S2[a2, n]*S2[a1, a2, a1, a4, a3, n] - 
    S2[a1, a2, a1, a4, SP[a2, a3], n] - S2[a1, a2, a1, SP[a2, a4], a3, n] - 
    2*S2[a1, a2, a2, a1, SP[a3, a4], n] - 
    2*S2[a1, a2, a2, SP[a1, a4], a3, n] - S2[a1, a2, a4, a1, SP[a2, a3], n] + 
    S2[a1, a2, a4, SP[a1, a2], a3, n] - 2*S2[a1, a2, a4, SP[a1, a3], a2, n] - 
    2*S2[a1, a2, SP[a1, a4], a2, a3, n] - 
    2*S2[a1, a2, SP[a1, a4], a3, a2, n] + 
    S2[a2, n]*S2[a1, a4, a1, a2, a3, n] + 
    S2[a2, n]*S2[a1, a4, a1, a3, a2, n] - S2[a1, a4, a2, a1, SP[a2, a3], n] - 
    S2[a1, a4, a2, SP[a1, a3], a2, n] + 2*S2[a2, n]*
     S2[a1, a4, a3, a1, a2, n] + S2[a1, a4, a3, a1, SP[a2, a2], n] + 
    S2[a1, a4, a3, SP[a1, a2], a2, n] - 2*S2[a1, a4, SP[a1, a3], a2, a2, n] + 
    2*S2[a1, a4, SP[a2, a3], a1, a2, n] - S2[a1, SP[a1, a2], a4, a2, a3, n] - 
    S2[a1, SP[a1, a2], a4, a3, a2, n] - 2*S2[a1, SP[a1, a4], a2, a2, a3, n] - 
    2*S2[a1, SP[a1, a4], a2, a3, a2, n] - 
    2*S2[a1, SP[a1, a4], a3, a2, a2, n] + S2[a1, SP[a2, a4], a1, a2, a3, n] + 
    S2[a1, SP[a2, a4], a1, a3, a2, n] + 2*S2[a1, SP[a2, a4], a3, a1, a2, n] - 
    2*S2[a2, a1, a1, a4, SP[a2, a3], n] - 
    2*S2[a2, a1, a1, SP[a2, a4], a3, n] - S2[a2, a1, a2, a1, SP[a3, a4], n] - 
    S2[a2, a1, a2, SP[a1, a4], a3, n] - S2[a2, a1, a4, a1, SP[a2, a3], n] + 
    S2[a2, a1, a4, SP[a1, a2], a3, n] - 2*S2[a2, a1, a4, SP[a1, a3], a2, n] - 
    2*S2[a2, a1, SP[a1, a4], a2, a3, n] - 
    2*S2[a2, a1, SP[a1, a4], a3, a2, n] + S2[a2, a4, a1, SP[a1, a2], a3, n] - 
    S2[a2, a4, a1, SP[a1, a3], a2, n] + S2[a2, a4, SP[a1, a1], a2, a3, n] + 
    S2[a2, a4, SP[a1, a1], a3, a2, n] - 2*S2[a2, a4, SP[a1, a3], a1, a2, n] - 
    S2[a2, SP[a1, a4], a1, a2, a3, n] - S2[a2, SP[a1, a4], a1, a3, a2, n] - 
    2*S2[a2, SP[a1, a4], a3, a1, a2, n] + 
    S2[a2, n]*S2[a4, a1, a3, a1, a2, n] + S2[a4, a1, a3, a1, SP[a2, a2], n] + 
    S2[a4, a1, a3, SP[a1, a2], a2, n] + S2[a4, a1, SP[a2, a3], a1, a2, n] - 
    S2[a1, n]*S2[a4, a2, a3, a1, a2, n] - S2[a4, a2, a3, a1, SP[a1, a2], n] - 
    S2[a4, a2, a3, SP[a1, a1], a2, n] - S2[a4, a2, SP[a1, a3], a1, a2, n] + 
    2*S2[a2, n]*S2[a4, a3, a1, a1, a2, n] + 
    2*S2[a4, a3, a1, a1, SP[a2, a2], n] - 
    2*S2[a1, n]*S2[a4, a3, a1, a2, a2, n] - 
    2*S2[a4, a3, a1, a2, SP[a1, a2], n] - 
    S2[a1, n]*S2[a4, a3, a2, a1, a2, n] - S2[a4, a3, a2, a1, SP[a1, a2], n] - 
    S2[a4, a3, a2, SP[a1, a1], a2, n] - 2*S2[a4, a3, SP[a1, a1], a2, a2, n] + 
    S2[a4, a3, SP[a1, a2], a1, a2, n] - 2*S2[a4, SP[a1, a3], a1, a2, a2, n] - 
    S2[a4, SP[a1, a3], a2, a1, a2, n] + 2*S2[a4, SP[a2, a3], a1, a1, a2, n] - 
    S2[SP[a1, a1], a2, a4, a2, a3, n] - S2[SP[a1, a1], a2, a4, a3, a2, n] - 
    2*S2[SP[a1, a1], a4, a2, a2, a3, n] - 
    2*S2[SP[a1, a1], a4, a2, a3, a2, n] - 
    2*S2[SP[a1, a1], a4, a3, a2, a2, n] - S2[SP[a1, a4], a2, a3, a1, a2, n] - 
    2*S2[SP[a1, a4], a3, a1, a2, a2, n] - S2[SP[a1, a4], a3, a2, a1, a2, n] + 
    S2[SP[a2, a4], a1, a3, a1, a2, n] + 2*S2[SP[a2, a4], a3, a1, a1, a2, n] + 
    S2[a4, a2, a3, a1, a2, a1, n] + S2[a4, a3, a1, a2, a1, a2, n] + 
    2*S2[a4, a3, a1, a2, a2, a1, n] + S2[a4, a3, a2, a1, a2, a1, n] /; 
   MyMemberQ[{{a1, a2}, {a3, a4}}, {a1, a1, a2, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a1_, a2_, a1_, a4_, a2_, a3_, n_] :> 
  2*S2[a1, a1, a2, n]*S2[a2, a3, a4, n] + 2*S2[a1, a1, a2, n]*
     S2[a2, a4, a3, n] + 2*S2[SP[a1, a2], SP[a1, a3], SP[a2, a4], n] + 
    2*S2[SP[a1, a2], SP[a1, a4], SP[a2, a3], n] - 
    2*S2[a1, a2, SP[a1, a3], SP[a2, a4], n] - 
    2*S2[a1, a2, SP[a1, a4], SP[a2, a3], n] + 
    S2[a1, a2, n]*S2[a1, a4, a2, a3, n] - S2[a1, a4, SP[a1, a2], SP[a2, a3], 
     n] - 2*S2[a1, SP[a1, a2], a3, SP[a2, a4], n] - 
    2*S2[a1, SP[a1, a2], a4, SP[a2, a3], n] - 
    2*S2[a1, SP[a1, a2], SP[a2, a3], a4, n] - 
    2*S2[a1, SP[a1, a2], SP[a2, a4], a3, n] - S2[a1, SP[a1, a4], a2, 
     SP[a2, a3], n] - S2[a1, SP[a1, a4], SP[a2, a2], a3, n] - 
    2*S2[a2, a1, SP[a1, a3], SP[a2, a4], n] - 
    2*S2[a2, a1, SP[a1, a4], SP[a2, a3], n] - 
    2*S2[a2, SP[a1, a3], a1, SP[a2, a4], n] - 
    2*S2[a2, SP[a1, a3], SP[a1, a4], a2, n] - 
    2*S2[a2, SP[a1, a4], a1, SP[a2, a3], n] - 
    2*S2[a2, SP[a1, a4], SP[a1, a3], a2, n] - S2[SP[a1, a1], a4, a2, 
     SP[a2, a3], n] - S2[SP[a1, a1], a4, SP[a2, a2], a3, n] - 
    S2[SP[a1, a1], SP[a2, a4], a2, a3, n] - 
    2*S2[SP[a1, a2], a1, a3, SP[a2, a4], n] - 
    2*S2[SP[a1, a2], a1, a4, SP[a2, a3], n] - 
    2*S2[SP[a1, a2], a1, SP[a2, a3], a4, n] - 
    2*S2[SP[a1, a2], a1, SP[a2, a4], a3, n] - 
    2*S2[SP[a1, a2], a3, a1, SP[a2, a4], n] - 
    2*S2[SP[a1, a2], a3, SP[a1, a4], a2, n] - 
    2*S2[SP[a1, a2], a4, a1, SP[a2, a3], n] - 
    2*S2[SP[a1, a2], a4, SP[a1, a3], a2, n] - 
    2*S2[SP[a1, a2], SP[a1, a3], a2, a4, n] - 
    2*S2[SP[a1, a2], SP[a1, a3], a4, a2, n] - 
    2*S2[SP[a1, a2], SP[a1, a4], a2, a3, n] - 
    2*S2[SP[a1, a2], SP[a1, a4], a3, a2, n] + 
    2*S2[a4, n]*S2[a1, a1, a2, a3, a2, n] - 
    2*S2[a2, n]*S2[a1, a1, a2, a3, a4, n] + 
    2*S2[a1, a1, a2, a3, SP[a2, a4], n] - 
    2*S2[a2, n]*S2[a1, a1, a2, a4, a3, n] + 
    2*S2[a1, a1, a2, SP[a3, a4], a2, n] + 
    4*S2[a4, n]*S2[a1, a1, a3, a2, a2, n] - 
    2*S2[a2, n]*S2[a1, a1, a3, a2, a4, n] + 
    2*S2[a1, a1, a3, a2, SP[a2, a4], n] - 
    2*S2[a2, n]*S2[a1, a1, a3, a4, a2, n] - 
    2*S2[a1, a1, a3, a4, SP[a2, a2], n] - 
    2*S2[a1, a1, a3, SP[a2, a2], a4, n] + 
    2*S2[a1, a1, a3, SP[a2, a4], a2, n] - 
    2*S2[a2, n]*S2[a1, a1, a4, a2, a3, n] - 
    2*S2[a2, n]*S2[a1, a1, a4, a3, a2, n] - 
    2*S2[a1, a1, a4, a3, SP[a2, a2], n] - 
    2*S2[a1, a1, a4, SP[a2, a3], a2, n] - 
    2*S2[a1, a1, SP[a2, a3], a2, a4, n] - 
    2*S2[a1, a1, SP[a2, a3], a4, a2, n] + 
    4*S2[a1, a1, SP[a3, a4], a2, a2, n] + 
    2*S2[a1, a2, a1, a3, SP[a2, a4], n] + 
    2*S2[a1, a2, a1, a4, SP[a2, a3], n] + 
    2*S2[a1, a2, a1, SP[a2, a3], a4, n] + 
    2*S2[a1, a2, a1, SP[a2, a4], a3, n] + 
    2*S2[a1, a2, a3, a1, SP[a2, a4], n] + 
    2*S2[a1, a2, a3, SP[a1, a4], a2, n] + 
    2*S2[a1, a2, a4, a1, SP[a2, a3], n] + 
    2*S2[a1, a2, a4, SP[a1, a3], a2, n] + 
    2*S2[a1, a2, SP[a1, a3], a2, a4, n] + 
    2*S2[a1, a2, SP[a1, a3], a4, a2, n] + 
    2*S2[a1, a2, SP[a1, a4], a2, a3, n] + 
    2*S2[a1, a2, SP[a1, a4], a3, a2, n] + 
    4*S2[a4, n]*S2[a1, a3, a1, a2, a2, n] - 
    2*S2[a2, n]*S2[a1, a3, a1, a2, a4, n] + 
    2*S2[a1, a3, a1, a2, SP[a2, a4], n] - 
    2*S2[a2, n]*S2[a1, a3, a1, a4, a2, n] - 
    2*S2[a1, a3, a1, a4, SP[a2, a2], n] - 
    2*S2[a1, a3, a1, SP[a2, a2], a4, n] + 
    2*S2[a1, a3, a1, SP[a2, a4], a2, n] + 
    2*S2[a4, n]*S2[a1, a3, a2, a1, a2, n] + 
    2*S2[a1, a3, a2, a1, SP[a2, a4], n] + 
    2*S2[a1, a3, a2, SP[a1, a4], a2, n] - 
    2*S2[a2, n]*S2[a1, a3, a4, a1, a2, n] - 
    2*S2[a1, a3, a4, a1, SP[a2, a2], n] - 
    2*S2[a1, a3, a4, SP[a1, a2], a2, n] - 
    2*S2[a1, a3, SP[a1, a2], a2, a4, n] - 
    2*S2[a1, a3, SP[a1, a2], a4, a2, n] + 
    4*S2[a1, a3, SP[a1, a4], a2, a2, n] - 
    2*S2[a2, n]*S2[a1, a4, a1, a2, a3, n] - S2[a1, a4, a1, a2, SP[a2, a3], 
     n] - 2*S2[a2, n]*S2[a1, a4, a1, a3, a2, n] - 
    2*S2[a1, a4, a1, a3, SP[a2, a2], n] - S2[a1, a4, a1, SP[a2, a2], a3, n] - 
    2*S2[a1, a4, a1, SP[a2, a3], a2, n] + S2[a1, a4, a2, a1, SP[a2, a3], n] + 
    S2[a1, a4, a2, SP[a1, a3], a2, n] - 2*S2[a2, n]*
     S2[a1, a4, a3, a1, a2, n] - 2*S2[a1, a4, a3, a1, SP[a2, a2], n] - 
    2*S2[a1, a4, a3, SP[a1, a2], a2, n] - S2[a1, a4, SP[a1, a2], a2, a3, n] - 
    S2[a1, a4, SP[a1, a2], a3, a2, n] - 2*S2[a1, a4, SP[a2, a3], a1, a2, n] + 
    S2[a1, SP[a1, a2], a4, a2, a3, n] + 2*S2[a1, SP[a1, a4], a2, a2, a3, n] + 
    3*S2[a1, SP[a1, a4], a2, a3, a2, n] + 
    4*S2[a1, SP[a1, a4], a3, a2, a2, n] - 
    2*S2[a1, SP[a2, a3], a1, a2, a4, n] - 
    2*S2[a1, SP[a2, a3], a1, a4, a2, n] - 
    2*S2[a1, SP[a2, a3], a4, a1, a2, n] - 
    2*S2[a1, SP[a2, a4], a1, a2, a3, n] - 
    2*S2[a1, SP[a2, a4], a1, a3, a2, n] - 
    2*S2[a1, SP[a2, a4], a3, a1, a2, n] + 
    4*S2[a1, SP[a3, a4], a1, a2, a2, n] + 
    2*S2[a1, SP[a3, a4], a2, a1, a2, n] + 
    2*S2[a2, a1, a1, a3, SP[a2, a4], n] + 
    2*S2[a2, a1, a1, a4, SP[a2, a3], n] + 
    2*S2[a2, a1, a1, SP[a2, a3], a4, n] + 
    2*S2[a2, a1, a1, SP[a2, a4], a3, n] + 
    2*S2[a2, a1, a3, a1, SP[a2, a4], n] + 
    2*S2[a2, a1, a3, SP[a1, a4], a2, n] + 
    2*S2[a2, a1, a4, a1, SP[a2, a3], n] + 
    2*S2[a2, a1, a4, SP[a1, a3], a2, n] + 
    2*S2[a2, a1, SP[a1, a3], a2, a4, n] + 
    2*S2[a2, a1, SP[a1, a3], a4, a2, n] + 
    2*S2[a2, a1, SP[a1, a4], a2, a3, n] + 
    2*S2[a2, a1, SP[a1, a4], a3, a2, n] - 
    2*S2[a4, n]*S2[a2, a3, a1, a1, a2, n] + 
    2*S2[a2, a4, a1, a1, SP[a2, a3], n] + 
    2*S2[a2, a4, a1, SP[a1, a3], a2, n] + 
    2*S2[a2, a4, SP[a1, a3], a1, a2, n] + 
    2*S2[a2, SP[a1, a3], a1, a2, a4, n] + 
    2*S2[a2, SP[a1, a3], a1, a4, a2, n] + 
    2*S2[a2, SP[a1, a3], a4, a1, a2, n] + 
    2*S2[a2, SP[a1, a4], a1, a2, a3, n] + 
    2*S2[a2, SP[a1, a4], a1, a3, a2, n] + 
    2*S2[a2, SP[a1, a4], a3, a1, a2, n] - 
    2*S2[a2, SP[a3, a4], a1, a1, a2, n] - 
    2*S2[a2, n]*S2[a4, a1, a1, a2, a3, n] - 
    2*S2[a4, a1, a1, a2, SP[a2, a3], n] - 
    2*S2[a2, n]*S2[a4, a1, a1, a3, a2, n] - 
    2*S2[a4, a1, a1, a3, SP[a2, a2], n] - 
    2*S2[a4, a1, a1, SP[a2, a2], a3, n] - 
    2*S2[a4, a1, a1, SP[a2, a3], a2, n] + 
    2*S2[a1, n]*S2[a4, a1, a2, a2, a3, n] + 
    2*S2[a4, a1, a2, a2, SP[a1, a3], n] + 
    S2[a1, n]*S2[a4, a1, a2, a3, a2, n] + S2[a4, a1, a2, a3, SP[a1, a2], n] + 
    2*S2[a4, a1, a2, SP[a1, a2], a3, n] + S2[a4, a1, a2, SP[a1, a3], a2, n] - 
    2*S2[a2, n]*S2[a4, a1, a3, a1, a2, n] - 
    2*S2[a4, a1, a3, a1, SP[a2, a2], n] - 
    2*S2[a4, a1, a3, SP[a1, a2], a2, n] - S2[a4, a1, SP[a1, a2], a3, a2, n] - 
    2*S2[a4, a1, SP[a2, a3], a1, a2, n] + 
    S2[a1, n]*S2[a4, a2, a1, a2, a3, n] + S2[a4, a2, a1, a2, SP[a1, a3], n] + 
    S2[a1, n]*S2[a4, a2, a1, a3, a2, n] + S2[a4, a2, a1, a3, SP[a1, a2], n] + 
    S2[a4, a2, a1, SP[a1, a2], a3, n] + S2[a4, a2, a1, SP[a1, a3], a2, n] + 
    S2[a1, n]*S2[a4, a2, a3, a1, a2, n] + S2[a4, a2, a3, a1, SP[a1, a2], n] + 
    S2[a4, a2, a3, SP[a1, a1], a2, n] + S2[a4, a2, SP[a1, a1], a2, a3, n] + 
    S2[a4, a2, SP[a1, a1], a3, a2, n] + S2[a4, a2, SP[a1, a3], a1, a2, n] + 
    2*S2[a4, SP[a1, a1], a2, a2, a3, n] + S2[a4, SP[a1, a1], a2, a3, a2, n] - 
    S2[a4, SP[a1, a2], a1, a2, a3, n] - S2[a4, SP[a1, a2], a1, a3, a2, n] - 
    S2[a4, SP[a1, a2], a3, a1, a2, n] + S2[SP[a1, a1], a2, a4, a2, a3, n] + 
    2*S2[SP[a1, a1], a4, a2, a2, a3, n] + S2[SP[a1, a1], a4, a2, a3, a2, n] + 
    2*S2[SP[a1, a4], a1, a2, a2, a3, n] + 
    3*S2[SP[a1, a4], a1, a2, a3, a2, n] + 
    4*S2[SP[a1, a4], a1, a3, a2, a2, n] + S2[SP[a1, a4], a2, a1, a2, a3, n] + 
    S2[SP[a1, a4], a2, a1, a3, a2, n] + S2[SP[a1, a4], a2, a3, a1, a2, n] + 
    4*S2[SP[a1, a4], a3, a1, a2, a2, n] + 
    2*S2[SP[a1, a4], a3, a2, a1, a2, n] - 
    2*S2[SP[a2, a4], a1, a1, a2, a3, n] - 
    2*S2[SP[a2, a4], a1, a1, a3, a2, n] - 
    2*S2[SP[a2, a4], a1, a3, a1, a2, n] - 
    2*S2[SP[a2, a4], a3, a1, a1, a2, n] - S2[a4, a1, a2, a1, a2, a3, n] - 
    2*S2[a4, a1, a2, a2, a1, a3, n] - 2*S2[a4, a1, a2, a2, a3, a1, n] - 
    S2[a4, a1, a2, a3, a2, a1, n] - S2[a4, a2, a1, a2, a1, a3, n] - 
    S2[a4, a2, a1, a2, a3, a1, n] - S2[a4, a2, a1, a3, a2, a1, n] - 
    S2[a4, a2, a3, a1, a2, a1, n] /; MyMemberQ[{{a1, a2}, {a3, a4}}, 
     {a1, a1, a2, a2, a3, a4}] && a1 != a2 != a3 != a4, 
 S2[a1_, a2_, a1_, a4_, a3_, a2_, n_] :> 
  -2*S2[a1, a1, a2, n]*S2[a2, a3, a4, n] - 
    2*S2[SP[a1, a2], SP[a1, a3], SP[a2, a4], n] + 
    2*S2[a1, a2, SP[a1, a3], SP[a2, a4], n] + 
    S2[a1, a2, n]*S2[a1, a4, a3, a2, n] - S2[a1, a4, SP[a1, a3], SP[a2, a2], 
     n] + 2*S2[a1, SP[a1, a2], a3, SP[a2, a4], n] + 
    2*S2[a1, SP[a1, a2], SP[a2, a3], a4, n] - S2[a1, SP[a1, a4], a3, 
     SP[a2, a2], n] - S2[a1, SP[a1, a4], SP[a2, a3], a2, n] + 
    2*S2[a2, a1, SP[a1, a3], SP[a2, a4], n] + 
    2*S2[a2, SP[a1, a3], a1, SP[a2, a4], n] + 
    2*S2[a2, SP[a1, a3], SP[a1, a4], a2, n] - S2[SP[a1, a1], a4, a3, 
     SP[a2, a2], n] - S2[SP[a1, a1], a4, SP[a2, a3], a2, n] - 
    S2[SP[a1, a1], SP[a2, a4], a3, a2, n] + 
    2*S2[SP[a1, a2], a1, a3, SP[a2, a4], n] + 
    2*S2[SP[a1, a2], a1, SP[a2, a3], a4, n] + 
    2*S2[SP[a1, a2], a3, a1, SP[a2, a4], n] + 
    2*S2[SP[a1, a2], a3, SP[a1, a4], a2, n] + 
    2*S2[SP[a1, a2], SP[a1, a3], a2, a4, n] + 
    2*S2[SP[a1, a2], SP[a1, a3], a4, a2, n] - 
    2*S2[a4, n]*S2[a1, a1, a2, a3, a2, n] + 
    2*S2[a2, n]*S2[a1, a1, a2, a3, a4, n] - 
    2*S2[a1, a1, a2, a3, SP[a2, a4], n] - 
    2*S2[a1, a1, a2, SP[a3, a4], a2, n] - 
    4*S2[a4, n]*S2[a1, a1, a3, a2, a2, n] + 
    2*S2[a2, n]*S2[a1, a1, a3, a2, a4, n] - 
    2*S2[a1, a1, a3, a2, SP[a2, a4], n] + 
    2*S2[a2, n]*S2[a1, a1, a3, a4, a2, n] + 
    2*S2[a1, a1, a3, a4, SP[a2, a2], n] + 
    2*S2[a1, a1, a3, SP[a2, a2], a4, n] - 
    2*S2[a1, a1, a3, SP[a2, a4], a2, n] + 
    2*S2[a1, a1, a4, a3, SP[a2, a2], n] + 
    2*S2[a1, a1, a4, SP[a2, a3], a2, n] + 
    2*S2[a1, a1, SP[a2, a3], a2, a4, n] + 
    2*S2[a1, a1, SP[a2, a3], a4, a2, n] - 
    4*S2[a1, a1, SP[a3, a4], a2, a2, n] - 
    2*S2[a1, a2, a1, a3, SP[a2, a4], n] - 
    2*S2[a1, a2, a1, SP[a2, a3], a4, n] - 
    2*S2[a1, a2, a3, a1, SP[a2, a4], n] - 
    2*S2[a1, a2, a3, SP[a1, a4], a2, n] - 
    2*S2[a1, a2, SP[a1, a3], a2, a4, n] - 
    2*S2[a1, a2, SP[a1, a3], a4, a2, n] - 
    4*S2[a4, n]*S2[a1, a3, a1, a2, a2, n] + 
    2*S2[a2, n]*S2[a1, a3, a1, a2, a4, n] - 
    2*S2[a1, a3, a1, a2, SP[a2, a4], n] + 
    2*S2[a2, n]*S2[a1, a3, a1, a4, a2, n] + 
    2*S2[a1, a3, a1, a4, SP[a2, a2], n] + 
    2*S2[a1, a3, a1, SP[a2, a2], a4, n] - 
    2*S2[a1, a3, a1, SP[a2, a4], a2, n] - 
    2*S2[a4, n]*S2[a1, a3, a2, a1, a2, n] - 
    2*S2[a1, a3, a2, a1, SP[a2, a4], n] - 
    2*S2[a1, a3, a2, SP[a1, a4], a2, n] + 
    2*S2[a2, n]*S2[a1, a3, a4, a1, a2, n] + 
    2*S2[a1, a3, a4, a1, SP[a2, a2], n] + 
    2*S2[a1, a3, a4, SP[a1, a2], a2, n] + 
    2*S2[a1, a3, SP[a1, a2], a2, a4, n] + 
    2*S2[a1, a3, SP[a1, a2], a4, a2, n] - 
    4*S2[a1, a3, SP[a1, a4], a2, a2, n] + S2[a1, a4, a1, a3, SP[a2, a2], n] + 
    S2[a1, a4, a1, SP[a2, a3], a2, n] + S2[a1, a4, a3, a1, SP[a2, a2], n] + 
    S2[a1, a4, a3, SP[a1, a2], a2, n] + 2*S2[a1, a4, SP[a1, a3], a2, a2, n] + 
    S2[a1, SP[a1, a2], a4, a3, a2, n] - S2[a1, SP[a1, a4], a2, a3, a2, n] - 
    2*S2[a1, SP[a1, a4], a3, a2, a2, n] + 
    2*S2[a1, SP[a2, a3], a1, a2, a4, n] + 
    2*S2[a1, SP[a2, a3], a1, a4, a2, n] + 
    2*S2[a1, SP[a2, a3], a4, a1, a2, n] - 
    4*S2[a1, SP[a3, a4], a1, a2, a2, n] - 
    2*S2[a1, SP[a3, a4], a2, a1, a2, n] - 
    2*S2[a2, a1, a1, a3, SP[a2, a4], n] - 
    2*S2[a2, a1, a1, SP[a2, a3], a4, n] - 
    2*S2[a2, a1, a3, a1, SP[a2, a4], n] - 
    2*S2[a2, a1, a3, SP[a1, a4], a2, n] - 
    2*S2[a2, a1, SP[a1, a3], a2, a4, n] - 
    2*S2[a2, a1, SP[a1, a3], a4, a2, n] + 
    2*S2[a4, n]*S2[a2, a3, a1, a1, a2, n] - 
    2*S2[a2, SP[a1, a3], a1, a2, a4, n] - 
    2*S2[a2, SP[a1, a3], a1, a4, a2, n] - 
    2*S2[a2, SP[a1, a3], a4, a1, a2, n] + 
    2*S2[a2, SP[a3, a4], a1, a1, a2, n] + 
    S2[a1, n]*S2[a4, a1, a2, a3, a2, n] + S2[a4, a1, a2, a3, SP[a1, a2], n] + 
    S2[a4, a1, a2, SP[a1, a3], a2, n] + 2*S2[a1, n]*
     S2[a4, a1, a3, a2, a2, n] + 2*S2[a4, a1, a3, a2, SP[a1, a2], n] + 
    2*S2[a4, a1, a3, SP[a1, a2], a2, n] + S2[a4, a1, SP[a1, a2], a3, a2, n] + 
    2*S2[a4, a1, SP[a1, a3], a2, a2, n] - 
    2*S2[a2, n]*S2[a4, a3, a1, a1, a2, n] - 
    2*S2[a4, a3, a1, a1, SP[a2, a2], n] + 
    2*S2[a1, n]*S2[a4, a3, a1, a2, a2, n] + 
    2*S2[a4, a3, a1, a2, SP[a1, a2], n] + 
    S2[a1, n]*S2[a4, a3, a2, a1, a2, n] + S2[a4, a3, a2, a1, SP[a1, a2], n] + 
    S2[a4, a3, a2, SP[a1, a1], a2, n] + 2*S2[a4, a3, SP[a1, a1], a2, a2, n] - 
    S2[a4, a3, SP[a1, a2], a1, a2, n] + S2[a4, SP[a1, a1], a2, a3, a2, n] + 
    2*S2[a4, SP[a1, a1], a3, a2, a2, n] + 
    2*S2[a4, SP[a1, a3], a1, a2, a2, n] + S2[a4, SP[a1, a3], a2, a1, a2, n] - 
    2*S2[a4, SP[a2, a3], a1, a1, a2, n] + S2[SP[a1, a1], a2, a4, a3, a2, n] + 
    S2[SP[a1, a1], a4, a2, a3, a2, n] + 2*S2[SP[a1, a1], a4, a3, a2, a2, n] - 
    S2[SP[a1, a4], a1, a2, a3, a2, n] - 2*S2[SP[a1, a4], a1, a3, a2, a2, n] - 
    2*S2[SP[a1, a4], a3, a1, a2, a2, n] - S2[SP[a1, a4], a3, a2, a1, a2, n] - 
    S2[a4, a1, a2, a1, a3, a2, n] - S2[a4, a1, a2, a3, a1, a2, n] - 
    S2[a4, a1, a2, a3, a2, a1, n] - S2[a4, a1, a3, a2, a1, a2, n] - 
    2*S2[a4, a1, a3, a2, a2, a1, n] - S2[a4, a3, a1, a2, a1, a2, n] - 
    2*S2[a4, a3, a1, a2, a2, a1, n] - S2[a4, a3, a2, a1, a2, a1, n] /; 
   MyMemberQ[{{a1, a2}, {a3, a4}}, {a1, a1, a2, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a1_, a2_, a2_, a1_, a3_, a4_, n_] :> 
  S2[a1, a2, a2, n]*S2[a1, a3, a4, n] + S2[SP[a1, a1], SP[a2, a3], 
     SP[a2, a4], n] - 2*S2[a1, a1, SP[a2, a3], SP[a2, a4], n] - 
    S2[a1, a2, n]*S2[a1, a2, a3, a4, n] - 
    (S2[a1, a2, n]*S2[a1, a2, a4, a3, n])/2 + S2[a1, a2, SP[a1, a3], 
     SP[a2, a4], n] + S2[a1, a2, SP[a1, a4], SP[a2, a3], n]/2 - 
    S2[a1, a2, n]*S2[a1, a3, a2, a4, n] - S2[a1, a2, n]*
     S2[a1, a3, a4, a2, n] + S2[a1, a3, SP[a1, a2], SP[a2, a4], n] + 
    S2[a1, a3, SP[a1, a4], SP[a2, a2], n] - 
    (S2[a1, a2, n]*S2[a1, a4, a2, a3, n])/2 - 
    (S2[a1, a2, n]*S2[a1, a4, a3, a2, n])/2 + 
    S2[a1, a4, SP[a1, a2], SP[a2, a3], n]/2 + 
    S2[a1, a4, SP[a1, a3], SP[a2, a2], n]/2 + 
    S2[a1, SP[a1, a2], a4, SP[a2, a3], n]/2 + 
    S2[a1, SP[a1, a2], SP[a2, a4], a3, n]/2 + S2[a1, SP[a1, a3], a4, 
     SP[a2, a2], n] + S2[a1, SP[a1, a3], SP[a2, a2], a4, n] + 
    S2[a1, SP[a1, a4], a2, SP[a2, a3], n]/2 + 
    S2[a1, SP[a1, a4], a3, SP[a2, a2], n]/2 + 
    S2[a1, SP[a1, a4], SP[a2, a2], a3, n]/2 + 
    S2[a1, SP[a1, a4], SP[a2, a3], a2, n]/2 + 
    (S2[a1, a2, n]*S2[a3, a4, a1, a2, n])/2 - 
    S2[a3, a4, SP[a1, a1], SP[a2, a2], n]/2 - 
    S2[a3, SP[a1, a4], a1, SP[a2, a2], n]/2 - 
    S2[a3, SP[a1, a4], SP[a1, a2], a2, n]/2 + 
    S2[SP[a1, a1], a2, a4, SP[a2, a3], n]/2 + 
    S2[SP[a1, a1], a2, SP[a2, a4], a3, n]/2 + S2[SP[a1, a1], a3, a4, 
     SP[a2, a2], n] + S2[SP[a1, a1], a3, SP[a2, a2], a4, n] + 
    S2[SP[a1, a1], a4, a2, SP[a2, a3], n]/2 + 
    S2[SP[a1, a1], a4, a3, SP[a2, a2], n]/2 + 
    S2[SP[a1, a1], a4, SP[a2, a2], a3, n]/2 + 
    S2[SP[a1, a1], a4, SP[a2, a3], a2, n]/2 + S2[SP[a1, a1], SP[a2, a2], a3, 
     a4, n] + S2[SP[a1, a1], SP[a2, a2], a4, a3, n]/2 + 
    S2[SP[a1, a1], SP[a2, a4], a2, a3, n]/2 + 
    S2[SP[a1, a1], SP[a2, a4], a3, a2, n]/2 - 
    S2[SP[a1, a3], a4, a1, SP[a2, a2], n]/2 - 
    S2[SP[a1, a3], a4, SP[a1, a2], a2, n]/2 - 
    S2[SP[a1, a3], SP[a2, a4], a1, a2, n]/2 + 
    2*S2[a4, n]*S2[a1, a1, a2, a2, a3, n] + 
    2*S2[a1, a1, a2, a2, SP[a3, a4], n] + 
    2*S2[a4, n]*S2[a1, a1, a2, a3, a2, n] + 
    2*S2[a1, a1, a2, a3, SP[a2, a4], n] - S2[a1, a1, a2, a4, SP[a2, a3], n] + 
    S2[a1, a1, a2, SP[a2, a4], a3, n] + 2*S2[a1, a1, a2, SP[a3, a4], a2, n] + 
    2*S2[a4, n]*S2[a1, a1, a3, a2, a2, n] + 
    2*S2[a1, a1, a3, a2, SP[a2, a4], n] - 
    2*S2[a1, a1, a3, a4, SP[a2, a2], n] - 
    2*S2[a1, a1, a3, SP[a2, a2], a4, n] + 
    2*S2[a1, a1, a3, SP[a2, a4], a2, n] - S2[a1, a1, a4, a2, SP[a2, a3], n] - 
    S2[a1, a1, a4, a3, SP[a2, a2], n] - S2[a1, a1, a4, SP[a2, a2], a3, n] - 
    S2[a1, a1, a4, SP[a2, a3], a2, n] - 2*S2[a1, a1, SP[a2, a2], a3, a4, n] - 
    S2[a1, a1, SP[a2, a2], a4, a3, n] + S2[a1, a1, SP[a2, a4], a2, a3, n] + 
    S2[a1, a1, SP[a2, a4], a3, a2, n] + 2*S2[a1, a1, SP[a3, a4], a2, a2, n] + 
    S2[a4, n]*S2[a1, a2, a1, a2, a3, n] + S2[a1, a2, a1, a2, SP[a3, a4], n] + 
    S2[a4, n]*S2[a1, a2, a1, a3, a2, n] + S2[a1, a2, a1, a3, SP[a2, a4], n] - 
    S2[a1, a2, a1, a4, SP[a2, a3], n]/2 + S2[a1, a2, a1, SP[a2, a4], a3, n]/
     2 + S2[a1, a2, a1, SP[a3, a4], a2, n] + 
    S2[a4, n]*S2[a1, a2, a3, a1, a2, n] - 
    (S2[a3, n]*S2[a1, a2, a4, a1, a2, n])/2 - S2[a1, a2, a4, a1, SP[a2, a3], 
     n] - S2[a1, a2, a4, SP[a1, a3], a2, n] + S2[a1, a2, SP[a1, a2], a3, a4, 
     n] - S2[a1, a2, SP[a1, a3], a2, a4, n] - S2[a1, a2, SP[a1, a3], a4, a2, 
     n] + S2[a1, a2, SP[a1, a4], a2, a3, n]/2 + 
    S2[a1, a2, SP[a1, a4], a3, a2, n]/2 + S2[a1, a2, SP[a3, a4], a1, a2, n]/
     2 + S2[a4, n]*S2[a1, a3, a1, a2, a2, n] + S2[a1, a3, a1, a2, SP[a2, a4], 
     n] - S2[a1, a3, a1, a4, SP[a2, a2], n] - S2[a1, a3, a1, SP[a2, a2], a4, 
     n] + S2[a1, a3, a1, SP[a2, a4], a2, n] + 
    S2[a4, n]*S2[a1, a3, a2, a1, a2, n] - S2[a1, a3, a4, a1, SP[a2, a2], n]/
     2 - S2[a1, a3, a4, SP[a1, a2], a2, n]/2 - S2[a1, a3, SP[a1, a2], a2, a4, 
     n] - S2[a1, a3, SP[a1, a2], a4, a2, n] + 
    (3*S2[a1, a3, SP[a2, a4], a1, a2, n])/2 - 
    S2[a3, n]*S2[a1, a4, a1, a2, a2, n] - 
    (3*S2[a1, a4, a1, a2, SP[a2, a3], n])/2 - 
    S2[a1, a4, a1, a3, SP[a2, a2], n]/2 - S2[a1, a4, a1, SP[a2, a2], a3, n]/
     2 - (3*S2[a1, a4, a1, SP[a2, a3], a2, n])/2 - 
    (S2[a3, n]*S2[a1, a4, a2, a1, a2, n])/2 - S2[a1, a4, a2, a1, SP[a2, a3], 
     n] - S2[a1, a4, a2, SP[a1, a3], a2, n] - 
    S2[a1, a4, a3, a1, SP[a2, a2], n]/2 - S2[a1, a4, a3, SP[a1, a2], a2, n]/
     2 - S2[a1, a4, SP[a1, a2], a2, a3, n]/2 - 
    S2[a1, a4, SP[a1, a2], a3, a2, n]/2 - 
    2*S2[a1, a4, SP[a1, a3], a2, a2, n] - S2[a1, a4, SP[a2, a3], a1, a2, n]/
     2 - S2[a1, SP[a1, a2], a2, a3, a4, n] - S2[a1, SP[a1, a2], a2, a4, a3, 
     n] - S2[a1, SP[a1, a2], a3, a2, a4, n] - S2[a1, SP[a1, a2], a3, a4, a2, 
     n] - S2[a1, SP[a1, a2], a4, a2, a3, n] - S2[a1, SP[a1, a2], a4, a3, a2, 
     n] - S2[a1, SP[a1, a3], a2, a2, a4, n] - S2[a1, SP[a1, a3], a2, a4, a2, 
     n] - S2[a1, SP[a1, a3], a4, a2, a2, n] + S2[a1, SP[a1, a4], a2, a2, a3, 
     n] + S2[a1, SP[a1, a4], a2, a3, a2, n] + S2[a1, SP[a1, a4], a3, a2, a2, 
     n] + S2[a1, SP[a2, a4], a1, a2, a3, n] + S2[a1, SP[a2, a4], a1, a3, a2, 
     n] + S2[a1, SP[a2, a4], a3, a1, a2, n] + 
    S2[a1, SP[a3, a4], a2, a1, a2, n]/2 + S2[a3, a1, a4, a1, SP[a2, a2], n]/
     2 + S2[a3, a1, a4, SP[a1, a2], a2, n]/2 + 
    S2[a3, a1, SP[a2, a4], a1, a2, n]/2 + S2[a3, a4, a1, a1, SP[a2, a2], n] + 
    S2[a3, a4, a1, SP[a1, a2], a2, n] + S2[a3, a4, SP[a1, a1], a2, a2, n] + 
    S2[a3, SP[a1, a4], a1, a2, a2, n] + S2[a3, SP[a1, a4], a2, a1, a2, n]/2 - 
    2*S2[a3, n]*S2[a4, a1, a1, a2, a2, n] - 
    2*S2[a4, a1, a1, a2, SP[a2, a3], n] - 
    2*S2[a4, a1, a1, SP[a2, a3], a2, n] - 
    S2[a3, n]*S2[a4, a1, a2, a1, a2, n] - S2[a4, a1, a2, a1, SP[a2, a3], n] - 
    S2[a4, a1, a2, SP[a1, a3], a2, n] - 2*S2[a4, a1, SP[a1, a3], a2, a2, n] - 
    S2[a4, a1, SP[a2, a3], a1, a2, n] + S2[a1, n]*S2[a4, a3, a1, a2, a2, n] + 
    S2[a4, a3, a1, a2, SP[a1, a2], n] + S2[a4, a3, a1, SP[a1, a2], a2, n] + 
    S2[a4, a3, SP[a1, a1], a2, a2, n] - S2[a4, SP[a1, a3], a1, a2, a2, n] - 
    S2[a4, SP[a1, a3], a2, a1, a2, n] - S2[SP[a1, a1], a2, a2, a3, a4, n] - 
    S2[SP[a1, a1], a2, a2, a4, a3, n] - S2[SP[a1, a1], a2, a3, a2, a4, n] - 
    S2[SP[a1, a1], a2, a3, a4, a2, n] - S2[SP[a1, a1], a2, a4, a2, a3, n] - 
    S2[SP[a1, a1], a2, a4, a3, a2, n] - S2[SP[a1, a1], a3, a2, a2, a4, n] - 
    S2[SP[a1, a1], a3, a2, a4, a2, n] - S2[SP[a1, a1], a3, a4, a2, a2, n] - 
    S2[SP[a1, a1], a4, a2, a2, a3, n] - S2[SP[a1, a1], a4, a2, a3, a2, n] - 
    S2[SP[a1, a1], a4, a3, a2, a2, n] + 2*S2[SP[a1, a4], a1, a2, a2, a3, n] + 
    2*S2[SP[a1, a4], a1, a2, a3, a2, n] + 
    2*S2[SP[a1, a4], a1, a3, a2, a2, n] + S2[SP[a1, a4], a2, a1, a2, a3, n] + 
    S2[SP[a1, a4], a2, a1, a3, a2, n] + S2[SP[a1, a4], a2, a3, a1, a2, n] + 
    2*S2[SP[a1, a4], a3, a1, a2, a2, n] + S2[SP[a1, a4], a3, a2, a1, a2, n] - 
    2*S2[SP[a3, a4], a1, a1, a2, a2, n] - S2[SP[a3, a4], a1, a2, a1, a2, n] - 
    S2[a4, a3, a1, a2, a2, a1, n] /; MyMemberQ[{{a1, a2}, {a3, a4}}, 
     {a1, a1, a2, a2, a3, a4}] && a1 != a2 != a3 != a4, 
 S2[a1_, a2_, a2_, a1_, a4_, a3_, n_] :> 
  S2[a1, a2, a2, n]*S2[a1, a4, a3, n] + S2[SP[a1, a1], SP[a2, a4], 
     SP[a2, a3], n] - 2*S2[a1, a1, SP[a2, a4], SP[a2, a3], n] - 
    (S2[a1, a2, n]*S2[a1, a2, a4, a3, n])/2 + 
    S2[a1, a2, SP[a1, a4], SP[a2, a3], n]/2 - 
    (S2[a1, a2, n]*S2[a1, a4, a2, a3, n])/2 - 
    (S2[a1, a2, n]*S2[a1, a4, a3, a2, n])/2 + 
    S2[a1, a4, SP[a1, a2], SP[a2, a3], n]/2 + 
    S2[a1, a4, SP[a1, a3], SP[a2, a2], n]/2 - 
    S2[a1, SP[a1, a2], a4, SP[a2, a3], n]/2 - 
    S2[a1, SP[a1, a2], SP[a2, a4], a3, n]/2 - 
    S2[a1, SP[a1, a4], a2, SP[a2, a3], n]/2 + 
    S2[a1, SP[a1, a4], a3, SP[a2, a2], n]/2 + 
    S2[a1, SP[a1, a4], SP[a2, a2], a3, n]/2 - 
    S2[a1, SP[a1, a4], SP[a2, a3], a2, n]/2 - 
    (S2[a1, a2, n]*S2[a3, a4, a1, a2, n])/2 + 
    S2[a3, a4, SP[a1, a1], SP[a2, a2], n]/2 + 
    S2[a3, SP[a1, a4], a1, SP[a2, a2], n]/2 + 
    S2[a3, SP[a1, a4], SP[a1, a2], a2, n]/2 - 
    S2[SP[a1, a1], a2, a4, SP[a2, a3], n]/2 - 
    S2[SP[a1, a1], a2, SP[a2, a4], a3, n]/2 - 
    S2[SP[a1, a1], a4, a2, SP[a2, a3], n]/2 + 
    S2[SP[a1, a1], a4, a3, SP[a2, a2], n]/2 + 
    S2[SP[a1, a1], a4, SP[a2, a2], a3, n]/2 - 
    S2[SP[a1, a1], a4, SP[a2, a3], a2, n]/2 + 
    S2[SP[a1, a1], SP[a2, a2], a4, a3, n]/2 - 
    S2[SP[a1, a1], SP[a2, a4], a2, a3, n]/2 - 
    S2[SP[a1, a1], SP[a2, a4], a3, a2, n]/2 + 
    S2[SP[a1, a3], a4, a1, SP[a2, a2], n]/2 + 
    S2[SP[a1, a3], a4, SP[a1, a2], a2, n]/2 + 
    S2[SP[a1, a3], SP[a2, a4], a1, a2, n]/2 + S2[a1, a1, a2, a4, SP[a2, a3], 
     n] + S2[a1, a1, a2, SP[a2, a4], a3, n] + S2[a1, a1, a4, a2, SP[a2, a3], 
     n] - S2[a1, a1, a4, a3, SP[a2, a2], n] - S2[a1, a1, a4, SP[a2, a2], a3, 
     n] + S2[a1, a1, a4, SP[a2, a3], a2, n] - S2[a1, a1, SP[a2, a2], a4, a3, 
     n] + S2[a1, a1, SP[a2, a4], a2, a3, n] + S2[a1, a1, SP[a2, a4], a3, a2, 
     n] + S2[a1, a2, a1, a4, SP[a2, a3], n]/2 + 
    S2[a1, a2, a1, SP[a2, a4], a3, n]/2 + 
    (S2[a3, n]*S2[a1, a2, a4, a1, a2, n])/2 + S2[a1, a2, SP[a1, a2], a4, a3, 
     n] - S2[a1, a2, SP[a1, a4], a2, a3, n]/2 - 
    S2[a1, a2, SP[a1, a4], a3, a2, n]/2 + S2[a1, a2, SP[a3, a4], a1, a2, n]/
     2 - S2[a1, a3, a4, a1, SP[a2, a2], n]/2 - 
    S2[a1, a3, a4, SP[a1, a2], a2, n]/2 - S2[a1, a3, SP[a2, a4], a1, a2, n]/
     2 + S2[a3, n]*S2[a1, a4, a1, a2, a2, n] + 
    (3*S2[a1, a4, a1, a2, SP[a2, a3], n])/2 - 
    S2[a1, a4, a1, a3, SP[a2, a2], n]/2 - S2[a1, a4, a1, SP[a2, a2], a3, n]/
     2 + (3*S2[a1, a4, a1, SP[a2, a3], a2, n])/2 + 
    (S2[a3, n]*S2[a1, a4, a2, a1, a2, n])/2 - 
    S2[a1, a4, a3, a1, SP[a2, a2], n]/2 - S2[a1, a4, a3, SP[a1, a2], a2, n]/
     2 - S2[a1, a4, SP[a1, a2], a2, a3, n]/2 - 
    S2[a1, a4, SP[a1, a2], a3, a2, n]/2 + S2[a1, a4, SP[a1, a3], a2, a2, n] + 
    S2[a1, a4, SP[a2, a3], a1, a2, n]/2 + S2[a1, SP[a3, a4], a1, a2, a2, n] + 
    S2[a1, SP[a3, a4], a2, a1, a2, n]/2 - S2[a3, a1, a4, a1, SP[a2, a2], n]/
     2 - S2[a3, a1, a4, SP[a1, a2], a2, n]/2 - 
    S2[a3, a1, SP[a2, a4], a1, a2, n]/2 - S2[a3, a4, a1, a1, SP[a2, a2], n] - 
    S2[a3, a4, a1, SP[a1, a2], a2, n] - S2[a3, a4, SP[a1, a1], a2, a2, n] - 
    S2[a3, SP[a1, a4], a1, a2, a2, n] - S2[a3, SP[a1, a4], a2, a1, a2, n]/2 + 
    2*S2[a3, n]*S2[a4, a1, a1, a2, a2, n] + 
    2*S2[a4, a1, a1, a2, SP[a2, a3], n] + 
    2*S2[a4, a1, a1, SP[a2, a3], a2, n] + 
    S2[a3, n]*S2[a4, a1, a2, a1, a2, n] + S2[a4, a1, a2, a1, SP[a2, a3], n] - 
    S2[a1, n]*S2[a4, a1, a2, a2, a3, n] - S2[a4, a1, a2, a2, SP[a1, a3], n] - 
    S2[a1, n]*S2[a4, a1, a2, a3, a2, n] - S2[a4, a1, a2, a3, SP[a1, a2], n] - 
    S2[a4, a1, a2, SP[a1, a2], a3, n] - S2[a1, n]*S2[a4, a1, a3, a2, a2, n] - 
    S2[a4, a1, a3, a2, SP[a1, a2], n] - S2[a4, a1, a3, SP[a1, a2], a2, n] - 
    S2[a4, a1, SP[a1, a2], a2, a3, n] - S2[a4, a1, SP[a1, a2], a3, a2, n] + 
    S2[a4, a1, SP[a1, a3], a2, a2, n] + S2[a4, a1, SP[a2, a3], a1, a2, n] - 
    S2[a1, n]*S2[a4, a3, a1, a2, a2, n] - S2[a4, a3, a1, a2, SP[a1, a2], n] - 
    S2[a4, a3, a1, SP[a1, a2], a2, n] - S2[a4, a3, SP[a1, a1], a2, a2, n] - 
    S2[a4, SP[a1, a1], a2, a2, a3, n] - S2[a4, SP[a1, a1], a2, a3, a2, n] - 
    S2[a4, SP[a1, a1], a3, a2, a2, n] + S2[a4, SP[a1, a3], a1, a2, a2, n] + 
    S2[a4, SP[a1, a3], a2, a1, a2, n] - S2[SP[a1, a4], a1, a2, a2, a3, n] - 
    S2[SP[a1, a4], a1, a2, a3, a2, n] - S2[SP[a1, a4], a1, a3, a2, a2, n] - 
    S2[SP[a1, a4], a3, a1, a2, a2, n] + 2*S2[SP[a3, a4], a1, a1, a2, a2, n] + 
    S2[SP[a3, a4], a1, a2, a1, a2, n] + S2[a4, a1, a2, a2, a1, a3, n] + 
    S2[a4, a1, a2, a2, a3, a1, n] + S2[a4, a1, a2, a3, a2, a1, n] + 
    S2[a4, a1, a3, a2, a2, a1, n] + S2[a4, a3, a1, a2, a2, a1, n] /; 
   MyMemberQ[{{a1, a2}, {a3, a4}}, {a1, a1, a2, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a1_, a2_, a2_, a3_, a1_, a4_, n_] :> 
  -(S2[a1, a2, a2, n]*S2[a1, a3, a4, n]) - S2[a1, a2, a2, n]*
     S2[a1, a4, a3, n] - S2[SP[a1, a1], SP[a2, a3], SP[a2, a4], n] - 
    S2[SP[a1, a1], SP[a2, a4], SP[a2, a3], n] + 
    2*S2[a1, a1, SP[a2, a3], SP[a2, a4], n] + 
    2*S2[a1, a1, SP[a2, a4], SP[a2, a3], n] + 
    S2[a1, a4, n]*S2[a1, a2, a2, a3, n] - S2[a1, a2, SP[a1, a2], SP[a3, a4], 
     n] + S2[a1, a2, n]*S2[a1, a3, a2, a4, n] + 
    S2[a1, a2, n]*S2[a1, a3, a4, a2, n] - S2[a1, a3, SP[a1, a2], SP[a2, a4], 
     n] - S2[a1, a3, SP[a1, a4], SP[a2, a2], n] + 
    S2[a1, a2, n]*S2[a1, a4, a3, a2, n] - S2[a1, a4, SP[a1, a3], SP[a2, a2], 
     n] - S2[a1, SP[a1, a2], a2, SP[a3, a4], n] + S2[a1, SP[a1, a2], a3, 
     SP[a2, a4], n] + S2[a1, SP[a1, a2], a4, SP[a2, a3], n] + 
    S2[a1, SP[a1, a2], SP[a2, a3], a4, n] - S2[a1, SP[a1, a3], a4, 
     SP[a2, a2], n] - S2[a1, SP[a1, a3], SP[a2, a2], a4, n] + 
    S2[a1, SP[a1, a4], a2, SP[a2, a3], n] - S2[a1, SP[a1, a4], a3, 
     SP[a2, a2], n] - S2[SP[a1, a1], a2, a2, SP[a3, a4], n] + 
    S2[SP[a1, a1], a2, a3, SP[a2, a4], n] + S2[SP[a1, a1], a2, a4, 
     SP[a2, a3], n] + S2[SP[a1, a1], a2, SP[a2, a3], a4, n] - 
    S2[SP[a1, a1], a3, a4, SP[a2, a2], n] - S2[SP[a1, a1], a3, SP[a2, a2], 
     a4, n] + S2[SP[a1, a1], a4, a2, SP[a2, a3], n] - 
    S2[SP[a1, a1], a4, a3, SP[a2, a2], n] + 
    2*S2[a1, a1, a2, a2, SP[a3, a4], n] - 
    2*S2[a1, a1, a2, a3, SP[a2, a4], n] - 
    2*S2[a1, a1, a2, a4, SP[a2, a3], n] - 
    2*S2[a1, a1, a2, SP[a2, a3], a4, n] - 
    2*S2[a4, n]*S2[a1, a1, a3, a2, a2, n] - 
    2*S2[a1, a1, a3, a2, SP[a2, a4], n] + 
    2*S2[a1, a1, a3, a4, SP[a2, a2], n] + 
    2*S2[a1, a1, a3, SP[a2, a2], a4, n] - 
    2*S2[a1, a1, a3, SP[a2, a4], a2, n] - 
    2*S2[a1, a1, a4, a2, SP[a2, a3], n] + 
    2*S2[a1, a1, a4, a3, SP[a2, a2], n] - 
    2*S2[a1, a1, SP[a3, a4], a2, a2, n] + S2[a1, a2, a1, a2, SP[a3, a4], n] - 
    S2[a1, a2, a1, a3, SP[a2, a4], n] - S2[a1, a2, a1, a4, SP[a2, a3], n] - 
    S2[a1, a2, a1, SP[a2, a3], a4, n] + S2[a1, a2, a2, a1, SP[a3, a4], n] + 
    S2[a1, a2, a2, SP[a1, a3], a4, n] - S2[a4, n]*S2[a1, a3, a1, a2, a2, n] - 
    S2[a1, a3, a1, a2, SP[a2, a4], n] + S2[a1, a3, a1, a4, SP[a2, a2], n] + 
    S2[a1, a3, a1, SP[a2, a2], a4, n] - S2[a1, a3, a1, SP[a2, a4], a2, n] - 
    S2[a4, n]*S2[a1, a3, a2, a1, a2, n] + S2[a1, a3, a4, a1, SP[a2, a2], n] + 
    S2[a1, a3, a4, SP[a1, a2], a2, n] + S2[a1, a3, SP[a1, a2], a2, a4, n] + 
    S2[a1, a3, SP[a1, a2], a4, a2, n] - S2[a1, a3, SP[a2, a4], a1, a2, n] - 
    S2[a1, a4, a1, a2, SP[a2, a3], n] + S2[a1, a4, a1, a3, SP[a2, a2], n] + 
    S2[a1, a4, a3, a1, SP[a2, a2], n] + S2[a1, a4, a3, SP[a1, a2], a2, n] + 
    S2[a1, a4, SP[a1, a3], a2, a2, n] + S2[a1, SP[a1, a3], a2, a2, a4, n] + 
    S2[a1, SP[a1, a3], a2, a4, a2, n] + S2[a1, SP[a1, a3], a4, a2, a2, n] - 
    S2[a1, SP[a1, a4], a3, a2, a2, n] - S2[a1, SP[a3, a4], a1, a2, a2, n] - 
    S2[a1, SP[a3, a4], a2, a1, a2, n] + S2[a1, n]*S2[a4, a1, a3, a2, a2, n] + 
    S2[a4, a1, a3, a2, SP[a1, a2], n] + S2[a4, a1, a3, SP[a1, a2], a2, n] + 
    S2[a4, a1, SP[a1, a3], a2, a2, n] + S2[a4, SP[a1, a1], a3, a2, a2, n] + 
    S2[SP[a1, a1], a3, a2, a2, a4, n] + S2[SP[a1, a1], a3, a2, a4, a2, n] + 
    S2[SP[a1, a1], a3, a4, a2, a2, n] + S2[SP[a1, a1], a4, a3, a2, a2, n] - 
    S2[SP[a1, a4], a1, a3, a2, a2, n] - S2[SP[a1, a4], a3, a1, a2, a2, n] - 
    S2[SP[a1, a4], a3, a2, a1, a2, n] - S2[a4, a1, a3, a2, a2, a1, n] /; 
   MyMemberQ[{{a1, a2}, {a3, a4}}, {a1, a1, a2, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a1_, a2_, a2_, a3_, a4_, a1_, n_] :> 
  S2[a1, a2, a2, n]*S2[a1, a4, a3, n] + S2[SP[a1, a1], SP[a2, a4], 
     SP[a2, a3], n] - 2*S2[a1, a1, SP[a2, a4], SP[a2, a3], n] - 
    S2[a1, a4, n]*S2[a1, a2, a2, a3, n] + S2[a1, a2, SP[a1, a2], SP[a3, a4], 
     n] - S2[a1, a2, n]*S2[a1, a4, a3, a2, n] + S2[a1, a4, SP[a1, a3], 
     SP[a2, a2], n] + S2[a1, SP[a1, a2], a2, SP[a3, a4], n] - 
    S2[a1, SP[a1, a2], a4, SP[a2, a3], n] - S2[a1, SP[a1, a4], a2, 
     SP[a2, a3], n] + S2[a1, SP[a1, a4], a3, SP[a2, a2], n] + 
    S2[SP[a1, a1], a2, a2, SP[a3, a4], n] - S2[SP[a1, a1], a2, a4, 
     SP[a2, a3], n] - S2[SP[a1, a1], a4, a2, SP[a2, a3], n] + 
    S2[SP[a1, a1], a4, a3, SP[a2, a2], n] - 
    2*S2[a1, a1, a2, a2, SP[a3, a4], n] + 
    2*S2[a1, a1, a2, a4, SP[a2, a3], n] + 
    2*S2[a1, a1, a4, a2, SP[a2, a3], n] - 
    2*S2[a1, a1, a4, a3, SP[a2, a2], n] - S2[a1, a2, a1, a2, SP[a3, a4], n] + 
    S2[a1, a2, a1, a4, SP[a2, a3], n] - S2[a1, a2, a2, a1, SP[a3, a4], n] + 
    S2[a1, n]*S2[a1, a2, a2, a3, a4, n] + S2[a1, a2, a2, a3, SP[a1, a4], n] + 
    S2[a1, a4, a1, a2, SP[a2, a3], n] - S2[a1, a4, a1, a3, SP[a2, a2], n] - 
    S2[a1, a4, a3, a1, SP[a2, a2], n] + S2[a1, n]*S2[a1, a4, a3, a2, a2, n] + 
    S2[a1, a4, a3, a2, SP[a1, a2], n] - S2[a1, n]*S2[a4, a3, a2, a2, a1, n] - 
    S2[a4, a3, a2, a2, SP[a1, a1], n] - S2[a4, a3, a2, SP[a1, a2], a1, n] - 
    S2[a4, a3, SP[a1, a2], a2, a1, n] - S2[a4, SP[a1, a3], a2, a2, a1, n] - 
    S2[SP[a1, a4], a3, a2, a2, a1, n] + S2[a4, a1, a3, a2, a2, a1, n] + 
    S2[a4, a3, a1, a2, a2, a1, n] + S2[a4, a3, a2, a1, a2, a1, n] + 
    2*S2[a4, a3, a2, a2, a1, a1, n] /; 
   MyMemberQ[{{a1, a2}, {a3, a4}}, {a1, a1, a2, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a1_, a2_, a2_, a4_, a1_, a3_, n_] :> 
  -(S2[a1, a2, a2, n]*S2[a1, a3, a4, n]) - S2[a1, a2, a2, n]*
     S2[a1, a4, a3, n] - S2[SP[a1, a1], SP[a2, a3], SP[a2, a4], n] - 
    S2[SP[a1, a1], SP[a2, a4], SP[a2, a3], n] + 
    2*S2[a1, a1, SP[a2, a3], SP[a2, a4], n] + 
    2*S2[a1, a1, SP[a2, a4], SP[a2, a3], n] + S2[a1, SP[a1, a2], a3, 
     SP[a2, a4], n] + S2[a1, SP[a1, a2], a4, SP[a2, a3], n] + 
    S2[a1, SP[a1, a2], SP[a2, a3], a4, n] + S2[a1, SP[a1, a2], SP[a2, a4], 
     a3, n] + S2[a1, SP[a1, a3], a2, SP[a2, a4], n] + 
    S2[a1, SP[a1, a3], SP[a2, a4], a2, n] + S2[a1, SP[a1, a4], a2, 
     SP[a2, a3], n] + S2[a1, SP[a1, a4], SP[a2, a3], a2, n] + 
    S2[a1, a2, n]*S2[a2, a4, a1, a3, n] - S2[a2, a4, SP[a1, a1], SP[a2, a3], 
     n] - S2[a2, SP[a1, a4], a1, SP[a2, a3], n] - 
    S2[a2, SP[a1, a4], SP[a1, a2], a3, n] + S2[SP[a1, a1], a2, a3, 
     SP[a2, a4], n] + S2[SP[a1, a1], a2, a4, SP[a2, a3], n] + 
    S2[SP[a1, a1], a2, SP[a2, a3], a4, n] + S2[SP[a1, a1], a2, SP[a2, a4], 
     a3, n] + S2[SP[a1, a1], a3, a2, SP[a2, a4], n] + 
    S2[SP[a1, a1], a3, SP[a2, a4], a2, n] + S2[SP[a1, a1], a4, a2, 
     SP[a2, a3], n] + S2[SP[a1, a1], a4, SP[a2, a3], a2, n] + 
    S2[SP[a1, a1], SP[a2, a3], a2, a4, n] + S2[SP[a1, a1], SP[a2, a3], a4, 
     a2, n] + S2[SP[a1, a1], SP[a2, a4], a2, a3, n] + 
    S2[SP[a1, a1], SP[a2, a4], a3, a2, n] - S2[SP[a1, a2], a4, a1, 
     SP[a2, a3], n] - S2[SP[a1, a2], a4, SP[a1, a2], a3, n] - 
    S2[SP[a1, a2], SP[a2, a4], a1, a3, n] + 
    2*S2[a4, n]*S2[a1, a1, a2, a2, a3, n] + 
    2*S2[a1, a1, a2, a2, SP[a3, a4], n] + 
    2*S2[a4, n]*S2[a1, a1, a2, a3, a2, n] - 
    2*S2[a1, a1, a2, a4, SP[a2, a3], n] - 
    2*S2[a1, a1, a2, SP[a2, a3], a4, n] + 
    2*S2[a1, a1, a2, SP[a3, a4], a2, n] + 
    2*S2[a4, n]*S2[a1, a1, a3, a2, a2, n] - 
    2*S2[a1, a1, a4, a2, SP[a2, a3], n] - 
    2*S2[a1, a1, a4, SP[a2, a3], a2, n] - 
    2*S2[a1, a1, SP[a2, a3], a2, a4, n] - 
    2*S2[a1, a1, SP[a2, a3], a4, a2, n] + 
    2*S2[a1, a1, SP[a3, a4], a2, a2, n] + 
    S2[a4, n]*S2[a1, a2, a1, a2, a3, n] + S2[a1, a2, a1, a2, SP[a3, a4], n] + 
    S2[a4, n]*S2[a1, a2, a1, a3, a2, n] - S2[a1, a2, a1, a4, SP[a2, a3], n] - 
    S2[a1, a2, a1, SP[a2, a3], a4, n] + S2[a1, a2, a1, SP[a3, a4], a2, n] + 
    S2[a4, n]*S2[a1, a2, a2, a1, a3, n] + S2[a1, a2, a2, a1, SP[a3, a4], n] + 
    S2[a1, a2, a2, SP[a1, a4], a3, n] - S2[a2, n]*S2[a1, a2, a4, a1, a3, n] - 
    S2[a1, a2, SP[a1, a2], a3, a4, n] - S2[a1, a2, SP[a1, a2], a4, a3, n] + 
    S2[a1, a2, SP[a1, a4], a2, a3, n] + S2[a1, a2, SP[a1, a4], a3, a2, n] + 
    S2[a1, a2, SP[a2, a4], a1, a3, n] + S2[a4, n]*S2[a1, a3, a1, a2, a2, n] - 
    S2[a2, n]*S2[a1, a4, a1, a2, a3, n] - 
    2*S2[a1, a4, a1, a2, SP[a2, a3], n] - 
    S2[a2, n]*S2[a1, a4, a1, a3, a2, n] - S2[a1, a4, a1, a3, SP[a2, a2], n] - 
    S2[a1, a4, a1, SP[a2, a2], a3, n] - 2*S2[a1, a4, a1, SP[a2, a3], a2, n] - 
    S2[a2, n]*S2[a1, a4, a2, a1, a3, n] - S2[a1, a4, a2, a1, SP[a2, a3], n] - 
    S2[a1, a4, a2, SP[a1, a2], a3, n] - S2[a1, a4, SP[a1, a2], a2, a3, n] - 
    S2[a1, a4, SP[a1, a2], a3, a2, n] - S2[a1, a4, SP[a1, a3], a2, a2, n] - 
    S2[a1, a4, SP[a2, a2], a1, a3, n] - S2[a1, SP[a1, a2], a2, a3, a4, n] - 
    S2[a1, SP[a1, a2], a2, a4, a3, n] - S2[a1, SP[a1, a2], a3, a2, a4, n] - 
    S2[a1, SP[a1, a2], a3, a4, a2, n] - S2[a1, SP[a1, a2], a4, a2, a3, n] - 
    S2[a1, SP[a1, a2], a4, a3, a2, n] - S2[a1, SP[a1, a3], a2, a2, a4, n] - 
    S2[a1, SP[a1, a3], a2, a4, a2, n] - S2[a1, SP[a1, a3], a4, a2, a2, n] + 
    S2[a1, SP[a1, a4], a2, a2, a3, n] + S2[a1, SP[a1, a4], a2, a3, a2, n] + 
    S2[a1, SP[a1, a4], a3, a2, a2, n] + S2[a1, SP[a3, a4], a1, a2, a2, n] + 
    S2[a2, a1, a4, a1, SP[a2, a3], n] + S2[a2, a1, a4, SP[a1, a2], a3, n] + 
    S2[a2, a1, SP[a2, a4], a1, a3, n] + 2*S2[a2, a4, a1, a1, SP[a2, a3], n] + 
    S2[a2, a4, a1, SP[a1, a2], a3, n] + S2[a2, a4, a1, SP[a1, a3], a2, n] + 
    S2[a2, a4, SP[a1, a1], a2, a3, n] + S2[a2, a4, SP[a1, a1], a3, a2, n] + 
    S2[a2, SP[a1, a4], a1, a2, a3, n] + S2[a2, SP[a1, a4], a1, a3, a2, n] + 
    S2[a2, SP[a1, a4], a2, a1, a3, n] - 2*S2[a2, n]*
     S2[a4, a1, a1, a2, a3, n] - 2*S2[a4, a1, a1, a2, SP[a2, a3], n] - 
    2*S2[a2, n]*S2[a4, a1, a1, a3, a2, n] - 
    2*S2[a4, a1, a1, a3, SP[a2, a2], n] - 
    2*S2[a4, a1, a1, SP[a2, a2], a3, n] - 
    2*S2[a4, a1, a1, SP[a2, a3], a2, n] - 
    S2[a2, n]*S2[a4, a1, a2, a1, a3, n] - S2[a4, a1, a2, a1, SP[a2, a3], n] + 
    S2[a1, n]*S2[a4, a1, a2, a2, a3, n] + S2[a4, a1, a2, a2, SP[a1, a3], n] + 
    S2[a1, n]*S2[a4, a1, a2, a3, a2, n] + S2[a4, a1, a2, a3, SP[a1, a2], n] + 
    S2[a4, a1, a2, SP[a1, a3], a2, n] - S2[a2, n]*S2[a4, a1, a3, a1, a2, n] - 
    S2[a4, a1, a3, a1, SP[a2, a2], n] + S2[a1, n]*S2[a4, a1, a3, a2, a2, n] + 
    S2[a4, a1, a3, a2, SP[a1, a2], n] - S2[a4, a1, SP[a1, a2], a2, a3, n] - 
    S2[a4, a1, SP[a1, a2], a3, a2, n] + S2[a4, a1, SP[a1, a3], a2, a2, n] - 
    S2[a4, a1, SP[a2, a2], a1, a3, n] - S2[a4, a1, SP[a2, a3], a1, a2, n] + 
    S2[a1, n]*S2[a4, a2, a1, a2, a3, n] + S2[a4, a2, a1, a2, SP[a1, a3], n] + 
    S2[a1, n]*S2[a4, a2, a1, a3, a2, n] + S2[a4, a2, a1, a3, SP[a1, a2], n] + 
    S2[a4, a2, a1, SP[a1, a2], a3, n] + S2[a4, a2, a1, SP[a1, a3], a2, n] + 
    S2[a1, n]*S2[a4, a2, a2, a1, a3, n] + S2[a4, a2, a2, a1, SP[a1, a3], n] + 
    S2[a4, a2, a2, SP[a1, a1], a3, n] + S2[a4, a2, SP[a1, a1], a2, a3, n] + 
    S2[a4, a2, SP[a1, a1], a3, a2, n] + S2[a4, a2, SP[a1, a2], a1, a3, n] + 
    S2[a4, SP[a1, a1], a2, a2, a3, n] + S2[a4, SP[a1, a1], a2, a3, a2, n] + 
    S2[a4, SP[a1, a1], a3, a2, a2, n] - S2[a4, SP[a1, a2], a1, a2, a3, n] - 
    S2[a4, SP[a1, a2], a1, a3, a2, n] - S2[a4, SP[a1, a2], a3, a1, a2, n] - 
    S2[SP[a1, a1], a2, a2, a3, a4, n] - S2[SP[a1, a1], a2, a2, a4, a3, n] - 
    S2[SP[a1, a1], a2, a3, a2, a4, n] - S2[SP[a1, a1], a2, a3, a4, a2, n] - 
    S2[SP[a1, a1], a2, a4, a2, a3, n] - S2[SP[a1, a1], a2, a4, a3, a2, n] - 
    S2[SP[a1, a1], a3, a2, a2, a4, n] - S2[SP[a1, a1], a3, a2, a4, a2, n] - 
    S2[SP[a1, a1], a3, a4, a2, a2, n] - S2[SP[a1, a1], a4, a2, a2, a3, n] - 
    S2[SP[a1, a1], a4, a2, a3, a2, n] - S2[SP[a1, a1], a4, a3, a2, a2, n] + 
    3*S2[SP[a1, a4], a1, a2, a2, a3, n] + 
    3*S2[SP[a1, a4], a1, a2, a3, a2, n] + 
    3*S2[SP[a1, a4], a1, a3, a2, a2, n] + 
    2*S2[SP[a1, a4], a2, a1, a2, a3, n] + 
    2*S2[SP[a1, a4], a2, a1, a3, a2, n] + 
    2*S2[SP[a1, a4], a2, a2, a1, a3, n] + S2[SP[a1, a4], a3, a1, a2, a2, n] - 
    2*S2[SP[a2, a4], a1, a1, a2, a3, n] - 
    2*S2[SP[a2, a4], a1, a1, a3, a2, n] - S2[SP[a2, a4], a1, a2, a1, a3, n] - 
    S2[SP[a2, a4], a1, a3, a1, a2, n] - S2[a4, a1, a2, a2, a1, a3, n] - 
    S2[a4, a1, a2, a2, a3, a1, n] - S2[a4, a1, a2, a3, a2, a1, n] - 
    S2[a4, a1, a3, a2, a2, a1, n] - S2[a4, a2, a1, a2, a1, a3, n] - 
    S2[a4, a2, a1, a2, a3, a1, n] - S2[a4, a2, a1, a3, a2, a1, n] - 
    2*S2[a4, a2, a2, a1, a1, a3, n] - S2[a4, a2, a2, a1, a3, a1, n] /; 
   MyMemberQ[{{a1, a2}, {a3, a4}}, {a1, a1, a2, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a1_, a2_, a2_, a4_, a3_, a1_, n_] :> 
  S2[a1, a2, a2, n]*S2[a1, a3, a4, n] + S2[SP[a1, a1], SP[a2, a3], 
     SP[a2, a4], n] - 2*S2[a1, a1, SP[a2, a3], SP[a2, a4], n] + 
    S2[a1, a2, n]*S2[a1, a4, a2, a3, n] + S2[a1, a2, n]*
     S2[a1, a4, a3, a2, n] - S2[a1, a4, SP[a1, a2], SP[a2, a3], n] - 
    S2[a1, a4, SP[a1, a3], SP[a2, a2], n] - S2[a1, SP[a1, a2], a3, 
     SP[a2, a4], n] - S2[a1, SP[a1, a2], SP[a2, a3], a4, n] - 
    S2[a1, SP[a1, a3], a2, SP[a2, a4], n] - S2[a1, SP[a1, a3], SP[a2, a4], 
     a2, n] - S2[a1, SP[a1, a4], a2, SP[a2, a3], n] - 
    S2[a1, SP[a1, a4], a3, SP[a2, a2], n] - S2[a1, SP[a1, a4], SP[a2, a2], 
     a3, n] - S2[a1, SP[a1, a4], SP[a2, a3], a2, n] - 
    S2[a1, a2, n]*S2[a2, a4, a1, a3, n] + S2[a2, a4, SP[a1, a1], SP[a2, a3], 
     n] + S2[a2, SP[a1, a4], a1, SP[a2, a3], n] + 
    S2[a2, SP[a1, a4], SP[a1, a2], a3, n] - S2[SP[a1, a1], a2, a3, 
     SP[a2, a4], n] - S2[SP[a1, a1], a2, SP[a2, a3], a4, n] - 
    S2[SP[a1, a1], a3, a2, SP[a2, a4], n] - S2[SP[a1, a1], a3, SP[a2, a4], 
     a2, n] - S2[SP[a1, a1], a4, a2, SP[a2, a3], n] - 
    S2[SP[a1, a1], a4, a3, SP[a2, a2], n] - S2[SP[a1, a1], a4, SP[a2, a2], 
     a3, n] - S2[SP[a1, a1], a4, SP[a2, a3], a2, n] - 
    S2[SP[a1, a1], SP[a2, a3], a2, a4, n] - S2[SP[a1, a1], SP[a2, a3], a4, 
     a2, n] - S2[SP[a1, a1], SP[a2, a4], a2, a3, n] - 
    S2[SP[a1, a1], SP[a2, a4], a3, a2, n] + S2[SP[a1, a2], a4, a1, 
     SP[a2, a3], n] + S2[SP[a1, a2], a4, SP[a1, a2], a3, n] + 
    S2[SP[a1, a2], SP[a2, a4], a1, a3, n] - 

    2*S2[a4, n]*S2[a1, a1, a2, a2, a3, n] - 
    2*S2[a1, a1, a2, a2, SP[a3, a4], n] - 
    2*S2[a4, n]*S2[a1, a1, a2, a3, a2, n] + 
    2*S2[a1, a1, a2, SP[a2, a3], a4, n] - 
    2*S2[a1, a1, a2, SP[a2, a4], a3, n] - 
    2*S2[a1, a1, a2, SP[a3, a4], a2, n] - 
    2*S2[a4, n]*S2[a1, a1, a3, a2, a2, n] + 
    2*S2[a1, a1, a4, a2, SP[a2, a3], n] + 
    2*S2[a1, a1, a4, a3, SP[a2, a2], n] + 
    2*S2[a1, a1, a4, SP[a2, a2], a3, n] + 
    2*S2[a1, a1, a4, SP[a2, a3], a2, n] + 
    2*S2[a1, a1, SP[a2, a3], a2, a4, n] + 
    2*S2[a1, a1, SP[a2, a3], a4, a2, n] - 
    2*S2[a1, a1, SP[a3, a4], a2, a2, n] - 
    S2[a4, n]*S2[a1, a2, a1, a2, a3, n] - S2[a1, a2, a1, a2, SP[a3, a4], n] - 
    S2[a4, n]*S2[a1, a2, a1, a3, a2, n] + S2[a1, a2, a1, SP[a2, a3], a4, n] - 
    S2[a1, a2, a1, SP[a2, a4], a3, n] - S2[a1, a2, a1, SP[a3, a4], a2, n] - 
    S2[a4, n]*S2[a1, a2, a2, a1, a3, n] - S2[a1, a2, a2, a1, SP[a3, a4], n] + 
    S2[a1, n]*S2[a1, a2, a2, a4, a3, n] + S2[a1, a2, a2, a4, SP[a1, a3], n] + 
    S2[a2, n]*S2[a1, a2, a4, a1, a3, n] + S2[a1, a2, SP[a1, a2], a3, a4, n] + 
    S2[a1, a2, SP[a1, a2], a4, a3, n] - S2[a1, a2, SP[a1, a4], a2, a3, n] - 
    S2[a1, a2, SP[a1, a4], a3, a2, n] - S2[a1, a2, SP[a2, a4], a1, a3, n] - 
    S2[a4, n]*S2[a1, a3, a1, a2, a2, n] + 
    S2[a2, n]*S2[a1, a4, a1, a2, a3, n] + 
    2*S2[a1, a4, a1, a2, SP[a2, a3], n] + 
    S2[a2, n]*S2[a1, a4, a1, a3, a2, n] + 
    2*S2[a1, a4, a1, a3, SP[a2, a2], n] + 
    2*S2[a1, a4, a1, SP[a2, a2], a3, n] + 
    2*S2[a1, a4, a1, SP[a2, a3], a2, n] + 
    S2[a2, n]*S2[a1, a4, a2, a1, a3, n] + 
    2*S2[a1, a4, a2, a1, SP[a2, a3], n] - 
    S2[a1, n]*S2[a1, a4, a2, a2, a3, n] - S2[a1, a4, a2, a2, SP[a1, a3], n] - 
    S2[a1, n]*S2[a1, a4, a2, a3, a2, n] - S2[a1, a4, a2, a3, SP[a1, a2], n] + 
    S2[a1, a4, a3, a1, SP[a2, a2], n] - S2[a1, n]*S2[a1, a4, a3, a2, a2, n] - 
    S2[a1, a4, a3, a2, SP[a1, a2], n] + S2[a1, a4, SP[a1, a2], a2, a3, n] + 
    S2[a1, a4, SP[a1, a2], a3, a2, n] + S2[a1, a4, SP[a1, a3], a2, a2, n] + 
    S2[a1, a4, SP[a2, a2], a1, a3, n] + S2[a1, SP[a1, a2], a2, a3, a4, n] + 
    S2[a1, SP[a1, a2], a2, a4, a3, n] + S2[a1, SP[a1, a2], a3, a2, a4, n] + 
    S2[a1, SP[a1, a2], a3, a4, a2, n] + S2[a1, SP[a1, a2], a4, a2, a3, n] + 
    S2[a1, SP[a1, a2], a4, a3, a2, n] + S2[a1, SP[a1, a3], a2, a2, a4, n] + 
    S2[a1, SP[a1, a3], a2, a4, a2, n] + S2[a1, SP[a1, a3], a4, a2, a2, n] - 
    S2[a1, SP[a1, a4], a2, a2, a3, n] - S2[a1, SP[a1, a4], a2, a3, a2, n] - 
    S2[a1, SP[a1, a4], a3, a2, a2, n] - S2[a1, SP[a3, a4], a1, a2, a2, n] - 
    S2[a2, a1, a4, a1, SP[a2, a3], n] - S2[a2, a1, a4, SP[a1, a2], a3, n] - 
    S2[a2, a1, SP[a2, a4], a1, a3, n] - 2*S2[a2, a4, a1, a1, SP[a2, a3], n] - 
    S2[a2, a4, a1, SP[a1, a2], a3, n] - S2[a2, a4, a1, SP[a1, a3], a2, n] - 
    S2[a2, a4, SP[a1, a1], a2, a3, n] - S2[a2, a4, SP[a1, a1], a3, a2, n] - 
    S2[a2, SP[a1, a4], a1, a2, a3, n] - S2[a2, SP[a1, a4], a1, a3, a2, n] - 
    S2[a2, SP[a1, a4], a2, a1, a3, n] + 2*S2[a2, n]*
     S2[a4, a1, a1, a2, a3, n] + 2*S2[a4, a1, a1, a2, SP[a2, a3], n] + 
    2*S2[a2, n]*S2[a4, a1, a1, a3, a2, n] + 
    2*S2[a4, a1, a1, a3, SP[a2, a2], n] + 
    2*S2[a4, a1, a1, SP[a2, a2], a3, n] + 
    2*S2[a4, a1, a1, SP[a2, a3], a2, n] + 
    S2[a2, n]*S2[a4, a1, a2, a1, a3, n] + S2[a4, a1, a2, a1, SP[a2, a3], n] - 
    S2[a1, n]*S2[a4, a1, a2, a2, a3, n] - S2[a4, a1, a2, a2, SP[a1, a3], n] - 
    S2[a1, n]*S2[a4, a1, a2, a3, a2, n] - S2[a4, a1, a2, a3, SP[a1, a2], n] - 
    S2[a4, a1, a2, SP[a1, a3], a2, n] + S2[a2, n]*S2[a4, a1, a3, a1, a2, n] + 
    S2[a4, a1, a3, a1, SP[a2, a2], n] - S2[a1, n]*S2[a4, a1, a3, a2, a2, n] - 
    S2[a4, a1, a3, a2, SP[a1, a2], n] + S2[a4, a1, SP[a1, a2], a2, a3, n] + 
    S2[a4, a1, SP[a1, a2], a3, a2, n] - S2[a4, a1, SP[a1, a3], a2, a2, n] + 
    S2[a4, a1, SP[a2, a2], a1, a3, n] + S2[a4, a1, SP[a2, a3], a1, a2, n] - 
    S2[a1, n]*S2[a4, a2, a1, a2, a3, n] - S2[a4, a2, a1, a2, SP[a1, a3], n] - 
    S2[a1, n]*S2[a4, a2, a1, a3, a2, n] - S2[a4, a2, a1, a3, SP[a1, a2], n] - 
    S2[a4, a2, a1, SP[a1, a2], a3, n] - S2[a4, a2, a1, SP[a1, a3], a2, n] + 
    S2[a1, n]*S2[a4, a2, a2, a3, a1, n] + S2[a4, a2, a2, a3, SP[a1, a1], n] + 
    S2[a4, a2, a2, SP[a1, a3], a1, n] + S2[a1, n]*S2[a4, a2, a3, a2, a1, n] + 
    S2[a4, a2, a3, a2, SP[a1, a1], n] + S2[a4, a2, a3, SP[a1, a2], a1, n] - 
    S2[a4, a2, SP[a1, a1], a2, a3, n] - S2[a4, a2, SP[a1, a1], a3, a2, n] + 
    S2[a4, a2, SP[a1, a2], a3, a1, n] + S2[a4, a2, SP[a1, a3], a2, a1, n] + 
    S2[a1, n]*S2[a4, a3, a2, a2, a1, n] + S2[a4, a3, a2, a2, SP[a1, a1], n] + 
    S2[a4, a3, a2, SP[a1, a2], a1, n] + S2[a4, a3, SP[a1, a2], a2, a1, n] - 
    S2[a4, SP[a1, a1], a2, a2, a3, n] - S2[a4, SP[a1, a1], a2, a3, a2, n] - 
    S2[a4, SP[a1, a1], a3, a2, a2, n] + S2[a4, SP[a1, a2], a1, a2, a3, n] + 
    S2[a4, SP[a1, a2], a1, a3, a2, n] + S2[a4, SP[a1, a2], a2, a1, a3, n] + 
    S2[a4, SP[a1, a2], a2, a3, a1, n] + S2[a4, SP[a1, a2], a3, a1, a2, n] + 
    S2[a4, SP[a1, a2], a3, a2, a1, n] + S2[a4, SP[a1, a3], a2, a2, a1, n] + 
    S2[SP[a1, a1], a2, a2, a3, a4, n] + S2[SP[a1, a1], a2, a2, a4, a3, n] + 
    S2[SP[a1, a1], a2, a3, a2, a4, n] + S2[SP[a1, a1], a2, a3, a4, a2, n] + 
    S2[SP[a1, a1], a2, a4, a2, a3, n] + S2[SP[a1, a1], a2, a4, a3, a2, n] + 
    S2[SP[a1, a1], a3, a2, a2, a4, n] + S2[SP[a1, a1], a3, a2, a4, a2, n] + 
    S2[SP[a1, a1], a3, a4, a2, a2, n] + S2[SP[a1, a1], a4, a2, a2, a3, n] + 
    S2[SP[a1, a1], a4, a2, a3, a2, n] + S2[SP[a1, a1], a4, a3, a2, a2, n] - 
    3*S2[SP[a1, a4], a1, a2, a2, a3, n] - 
    3*S2[SP[a1, a4], a1, a2, a3, a2, n] - 
    3*S2[SP[a1, a4], a1, a3, a2, a2, n] - 
    2*S2[SP[a1, a4], a2, a1, a2, a3, n] - 
    2*S2[SP[a1, a4], a2, a1, a3, a2, n] - S2[SP[a1, a4], a2, a2, a1, a3, n] + 
    S2[SP[a1, a4], a2, a2, a3, a1, n] + S2[SP[a1, a4], a2, a3, a2, a1, n] - 
    S2[SP[a1, a4], a3, a1, a2, a2, n] + S2[SP[a1, a4], a3, a2, a2, a1, n] + 
    2*S2[SP[a2, a4], a1, a1, a2, a3, n] + 
    2*S2[SP[a2, a4], a1, a1, a3, a2, n] + S2[SP[a2, a4], a1, a2, a1, a3, n] + 
    S2[SP[a2, a4], a1, a3, a1, a2, n] - S2[a4, a2, a2, a1, a3, a1, n] - 
    2*S2[a4, a2, a2, a3, a1, a1, n] - S2[a4, a2, a3, a1, a2, a1, n] - 
    2*S2[a4, a2, a3, a2, a1, a1, n] - S2[a4, a3, a1, a2, a2, a1, n] - 
    S2[a4, a3, a2, a1, a2, a1, n] - 2*S2[a4, a3, a2, a2, a1, a1, n] /; 
   MyMemberQ[{{a1, a2}, {a3, a4}}, {a1, a1, a2, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a1_, a2_, a3_, a1_, a2_, a4_, n_] :> 
  S2[a1, a2, a3, n]*S2[a1, a2, a4, n] + S2[SP[a1, a1], SP[a2, a2], 
     SP[a3, a4], n] - 2*S2[a2, a4, n]*S2[a1, a1, a2, a3, n] - 
    S2[a2, a4, n]*S2[a1, a2, a1, a3, n] - S2[a1, a2, n]*
     S2[a1, a2, a3, a4, n] - S2[a1, a2, n]*S2[a1, a2, a4, a3, n] + 
    S2[a1, a2, SP[a1, a2], SP[a3, a4], n] + S2[a1, a2, SP[a1, a3], 
     SP[a2, a4], n] + S2[a1, a2, SP[a1, a4], SP[a2, a3], n] - 
    S2[a1, a2, n]*S2[a1, a3, a2, a4, n] - S2[a1, a2, n]*
     S2[a1, a3, a4, a2, n] + S2[a1, a3, SP[a1, a2], SP[a2, a4], n] + 
    S2[a1, a3, SP[a1, a4], SP[a2, a2], n] - S2[a1, a2, n]*
     S2[a1, a4, a2, a3, n] - S2[a1, a2, n]*S2[a1, a4, a3, a2, n] + 
    S2[a1, a4, SP[a1, a2], SP[a2, a3], n] + S2[a1, a4, SP[a1, a3], 
     SP[a2, a2], n] + S2[a1, SP[a1, a2], a3, SP[a2, a4], n] + 
    S2[a1, SP[a1, a2], a4, SP[a2, a3], n] + 
    2*S2[a1, SP[a1, a2], SP[a2, a4], a3, n] + S2[a1, SP[a1, a3], a2, 
     SP[a2, a4], n] + S2[a1, SP[a1, a3], a4, SP[a2, a2], n] + 
    S2[a1, SP[a1, a3], SP[a2, a2], a4, n] + S2[a1, SP[a1, a3], SP[a2, a4], 
     a2, n] + S2[a1, SP[a1, a4], a2, SP[a2, a3], n] + 
    S2[a1, SP[a1, a4], a3, SP[a2, a2], n] + S2[a1, SP[a1, a4], SP[a2, a2], 
     a3, n] + S2[a1, SP[a1, a4], SP[a2, a3], a2, n] + 
    S2[a1, SP[a2, a2], a1, SP[a3, a4], n] + S2[a1, SP[a2, a2], SP[a1, a4], 
     a3, n] + S2[a1, a2, n]*S2[a2, a4, a1, a3, n] - 
    S2[a2, a4, SP[a1, a1], SP[a2, a3], n] - S2[a2, SP[a1, a4], a1, 
     SP[a2, a3], n] - S2[a2, SP[a1, a4], SP[a1, a2], a3, n] - 
    2*S2[SP[a1, a1], a2, a2, SP[a3, a4], n] + S2[SP[a1, a1], a2, a3, 
     SP[a2, a4], n] + S2[SP[a1, a1], a2, a4, SP[a2, a3], n] + 
    S2[SP[a1, a1], a3, a2, SP[a2, a4], n] + S2[SP[a1, a1], a3, a4, 
     SP[a2, a2], n] + S2[SP[a1, a1], a3, SP[a2, a2], a4, n] + 
    S2[SP[a1, a1], a3, SP[a2, a4], a2, n] + S2[SP[a1, a1], a4, a2, 
     SP[a2, a3], n] + S2[SP[a1, a1], a4, a3, SP[a2, a2], n] + 
    S2[SP[a1, a1], a4, SP[a2, a2], a3, n] + S2[SP[a1, a1], a4, SP[a2, a3], 
     a2, n] + S2[SP[a1, a1], SP[a2, a3], a2, a4, n] + 
    S2[SP[a1, a1], SP[a2, a3], a4, a2, n] + S2[SP[a1, a1], SP[a2, a4], a2, 
     a3, n] + S2[SP[a1, a1], SP[a2, a4], a3, a2, n] + 
    2*S2[SP[a1, a2], a1, a2, SP[a3, a4], n] + 
    2*S2[SP[a1, a2], a1, SP[a2, a4], a3, n] + S2[SP[a1, a2], a2, a1, 
     SP[a3, a4], n] + S2[SP[a1, a2], a2, SP[a1, a4], a3, n] - 
    S2[SP[a1, a2], a4, a1, SP[a2, a3], n] - S2[SP[a1, a2], a4, SP[a1, a2], 
     a3, n] + 2*S2[SP[a1, a2], SP[a1, a4], a2, a3, n] + 
    2*S2[a4, n]*S2[a1, a1, a2, a3, a2, n] + 
    2*S2[a2, n]*S2[a1, a1, a2, a3, a4, n] + 
    2*S2[a1, a1, a2, a3, SP[a2, a4], n] + 
    2*S2[a2, n]*S2[a1, a1, a2, a4, a3, n] + 
    2*S2[a1, a1, a2, SP[a3, a4], a2, n] + 
    4*S2[a4, n]*S2[a1, a1, a3, a2, a2, n] + 
    2*S2[a1, a1, a3, a2, SP[a2, a4], n] - 
    2*S2[a1, a1, a3, a4, SP[a2, a2], n] - 
    2*S2[a1, a1, a3, SP[a2, a2], a4, n] + 
    2*S2[a1, a1, a3, SP[a2, a4], a2, n] + 
    2*S2[a2, n]*S2[a1, a1, a4, a2, a3, n] - 
    2*S2[a1, a1, a4, a3, SP[a2, a2], n] - 
    2*S2[a1, a1, a4, SP[a2, a3], a2, n] - 
    2*S2[a1, a1, SP[a2, a3], a2, a4, n] - 
    2*S2[a1, a1, SP[a2, a3], a4, a2, n] + 
    4*S2[a1, a1, SP[a3, a4], a2, a2, n] - S2[a1, a2, a1, a2, SP[a3, a4], n] + 
    S2[a4, n]*S2[a1, a2, a1, a3, a2, n] + 
    S2[a2, n]*S2[a1, a2, a1, a3, a4, n] + S2[a1, a2, a1, a3, SP[a2, a4], n] + 
    S2[a2, n]*S2[a1, a2, a1, a4, a3, n] - S2[a1, a2, a1, SP[a2, a4], a3, n] + 
    S2[a1, a2, a1, SP[a3, a4], a2, n] - 2*S2[a1, a2, a2, a1, SP[a3, a4], n] - 
    2*S2[a1, a2, a2, SP[a1, a4], a3, n] + 
    S2[a4, n]*S2[a1, a2, a3, a1, a2, n] + S2[a1, a2, a4, SP[a1, a2], a3, n] - 
    S2[a1, a2, a4, SP[a1, a3], a2, n] - S2[a1, a2, SP[a1, a3], a4, a2, n] - 
    2*S2[a1, a2, SP[a1, a4], a2, a3, n] + S2[a1, a2, SP[a3, a4], a1, a2, n] + 
    2*S2[a4, n]*S2[a1, a3, a1, a2, a2, n] + S2[a1, a3, a1, a2, SP[a2, a4], 
     n] - S2[a1, a3, a1, a4, SP[a2, a2], n] - S2[a1, a3, a1, SP[a2, a2], a4, 
     n] + S2[a1, a3, a1, SP[a2, a4], a2, n] + 
    S2[a4, n]*S2[a1, a3, a2, a1, a2, n] - S2[a1, a3, a4, a1, SP[a2, a2], n] - 
    S2[a1, a3, a4, SP[a1, a2], a2, n] - S2[a1, a3, SP[a1, a2], a2, a4, n] - 
    S2[a1, a3, SP[a1, a2], a4, a2, n] + S2[a1, a3, SP[a2, a4], a1, a2, n] + 
    S2[a2, n]*S2[a1, a4, a1, a2, a3, n] - 
    S2[a2, n]*S2[a1, a4, a1, a3, a2, n] - 
    2*S2[a1, a4, a1, a3, SP[a2, a2], n] - 
    2*S2[a1, a4, a1, SP[a2, a3], a2, n] - S2[a1, a4, a2, a1, SP[a2, a3], n] - 
    S2[a1, a4, a2, SP[a1, a3], a2, n] - S2[a1, a4, a3, a1, SP[a2, a2], n] - 
    S2[a1, a4, a3, SP[a1, a2], a2, n] - 2*S2[a1, a4, SP[a1, a2], a3, a2, n] - 
    2*S2[a1, a4, SP[a1, a3], a2, a2, n] - S2[a1, SP[a1, a2], a3, a2, a4, n] - 
    2*S2[a1, SP[a1, a2], a3, a4, a2, n] - S2[a1, SP[a1, a2], a4, a2, a3, n] - 
    2*S2[a1, SP[a1, a2], a4, a3, a2, n] - 
    2*S2[a1, SP[a1, a3], a2, a2, a4, n] - 
    2*S2[a1, SP[a1, a3], a2, a4, a2, n] - 
    2*S2[a1, SP[a1, a3], a4, a2, a2, n] - 
    2*S2[a1, SP[a1, a4], a2, a2, a3, n] + 
    2*S2[a1, SP[a1, a4], a3, a2, a2, n] + S2[a1, SP[a2, a4], a1, a2, a3, n] + 
    S2[a1, SP[a2, a4], a3, a1, a2, n] + 2*S2[a1, SP[a3, a4], a1, a2, a2, n] + 
    S2[a1, SP[a3, a4], a2, a1, a2, n] - 2*S2[a2, a1, a1, a2, SP[a3, a4], n] - 
    2*S2[a2, a1, a1, SP[a2, a4], a3, n] - S2[a2, a1, a2, a1, SP[a3, a4], n] - 
    S2[a2, a1, a2, SP[a1, a4], a3, n] + S2[a2, a1, a4, a1, SP[a2, a3], n] + 
    S2[a2, a1, a4, SP[a1, a2], a3, n] - 2*S2[a2, a1, SP[a1, a4], a2, a3, n] + 
    2*S2[a2, a4, a1, a1, SP[a2, a3], n] + S2[a2, a4, a1, SP[a1, a2], a3, n] + 
    S2[a2, a4, a1, SP[a1, a3], a2, n] + S2[a2, a4, SP[a1, a1], a2, a3, n] + 
    S2[a2, a4, SP[a1, a1], a3, a2, n] - S2[a2, SP[a1, a4], a1, a2, a3, n] + 
    S2[a2, SP[a1, a4], a1, a3, a2, n] - 2*S2[a2, n]*
     S2[a4, a1, a1, a3, a2, n] - 2*S2[a4, a1, a1, a3, SP[a2, a2], n] - 
    2*S2[a4, a1, a1, SP[a2, a3], a2, n] - 
    S2[a2, n]*S2[a4, a1, a3, a1, a2, n] - S2[a4, a1, a3, a1, SP[a2, a2], n] - 
    S2[a4, a1, a3, SP[a1, a2], a2, n] - 2*S2[a4, a1, SP[a1, a2], a3, a2, n] - 
    S2[a4, a1, SP[a2, a3], a1, a2, n] + S2[a1, n]*S2[a4, a2, a1, a3, a2, n] + 
    S2[a4, a2, a1, a3, SP[a1, a2], n] + S2[a4, a2, a1, SP[a1, a3], a2, n] + 
    S2[a4, a2, SP[a1, a1], a3, a2, n] - S2[a4, SP[a1, a2], a1, a3, a2, n] - 
    S2[a4, SP[a1, a2], a3, a1, a2, n] - S2[SP[a1, a1], a2, a3, a2, a4, n] - 
    2*S2[SP[a1, a1], a2, a3, a4, a2, n] - S2[SP[a1, a1], a2, a4, a2, a3, n] - 
    2*S2[SP[a1, a1], a2, a4, a3, a2, n] - 
    2*S2[SP[a1, a1], a3, a2, a2, a4, n] - 
    2*S2[SP[a1, a1], a3, a2, a4, a2, n] - 
    2*S2[SP[a1, a1], a3, a4, a2, a2, n] - 
    2*S2[SP[a1, a1], a4, a2, a2, a3, n] - 
    2*S2[SP[a1, a1], a4, a2, a3, a2, n] - 
    2*S2[SP[a1, a1], a4, a3, a2, a2, n] + 
    2*S2[SP[a1, a4], a1, a2, a3, a2, n] + 
    4*S2[SP[a1, a4], a1, a3, a2, a2, n] + 
    2*S2[SP[a1, a4], a2, a1, a3, a2, n] + S2[SP[a1, a4], a2, a3, a1, a2, n] + 
    2*S2[SP[a1, a4], a3, a1, a2, a2, n] + S2[SP[a1, a4], a3, a2, a1, a2, n] - 
    2*S2[SP[a2, a4], a1, a1, a3, a2, n] - S2[SP[a2, a4], a1, a3, a1, a2, n] - 
    S2[a4, a2, a1, a3, a2, a1, n] /; MyMemberQ[{{a1, a2}, {a3, a4}}, 
     {a1, a1, a2, a2, a3, a4}] && a1 != a2 != a3 != a4, 
 S2[a1_, a2_, a3_, a1_, a4_, a2_, n_] :> 
  S2[a1, a2, a3, n]*S2[a1, a4, a2, n] + S2[SP[a1, a1], SP[a2, a4], 
     SP[a2, a3], n] + 2*S2[a2, a4, n]*S2[a1, a1, a2, a3, n] - 
    2*S2[a1, a1, SP[a2, a2], SP[a3, a4], n] - 
    2*S2[a1, a1, SP[a2, a4], SP[a2, a3], n] + 
    S2[a2, a4, n]*S2[a1, a2, a1, a3, n] - S2[a1, a2, SP[a1, a2], SP[a3, a4], 
     n] - 2*S2[a1, SP[a1, a2], a2, SP[a3, a4], n] - 
    S2[a1, SP[a1, a2], a4, SP[a2, a3], n] - 
    2*S2[a1, SP[a1, a2], SP[a2, a4], a3, n] - S2[a1, SP[a1, a2], SP[a3, a4], 
     a2, n] - S2[a1, SP[a1, a4], a2, SP[a2, a3], n] - 
    S2[a1, SP[a1, a4], SP[a2, a2], a3, n] - S2[a1, SP[a2, a2], a1, 
     SP[a3, a4], n] - S2[a1, SP[a2, a2], SP[a1, a4], a3, n] - 
    S2[a1, a2, n]*S2[a2, a4, a1, a3, n] + S2[a2, a4, SP[a1, a1], SP[a2, a3], 
     n] + S2[a2, SP[a1, a4], a1, SP[a2, a3], n] + 
    S2[a2, SP[a1, a4], SP[a1, a2], a3, n] - S2[SP[a1, a1], a2, a4, 
     SP[a2, a3], n] - S2[SP[a1, a1], a2, SP[a3, a4], a2, n] - 
    S2[SP[a1, a1], a4, a2, SP[a2, a3], n] - S2[SP[a1, a1], a4, SP[a2, a2], 
     a3, n] - S2[SP[a1, a1], SP[a2, a4], a2, a3, n] - 
    S2[SP[a1, a1], SP[a2, a4], a3, a2, n] - 
    2*S2[SP[a1, a2], a1, a2, SP[a3, a4], n] - 
    2*S2[SP[a1, a2], a1, SP[a2, a4], a3, n] - S2[SP[a1, a2], a2, a1, 
     SP[a3, a4], n] - S2[SP[a1, a2], a2, SP[a1, a4], a3, n] + 
    S2[SP[a1, a2], a4, a1, SP[a2, a3], n] + S2[SP[a1, a2], a4, SP[a1, a2], 
     a3, n] - 2*S2[SP[a1, a2], SP[a1, a4], a2, a3, n] + 
    4*S2[a1, a1, a2, a2, SP[a3, a4], n] - 
    2*S2[a2, n]*S2[a1, a1, a2, a3, a4, n] - 
    2*S2[a1, a1, a2, a3, SP[a2, a4], n] - 
    2*S2[a2, n]*S2[a1, a1, a2, a4, a3, n] + 
    2*S2[a1, a1, a2, SP[a3, a4], a2, n] - 
    2*S2[a2, n]*S2[a1, a1, a4, a2, a3, n] + 
    2*S2[a1, a1, SP[a2, a4], a3, a2, n] + 
    3*S2[a1, a2, a1, a2, SP[a3, a4], n] - 
    S2[a2, n]*S2[a1, a2, a1, a3, a4, n] - S2[a1, a2, a1, a3, SP[a2, a4], n] - 
    S2[a2, n]*S2[a1, a2, a1, a4, a3, n] + S2[a1, a2, a1, SP[a2, a4], a3, n] + 
    S2[a1, a2, a1, SP[a3, a4], a2, n] + 2*S2[a1, a2, a2, a1, SP[a3, a4], n] + 
    2*S2[a1, a2, a2, SP[a1, a4], a3, n] - S2[a1, a2, a4, a1, SP[a2, a3], n] - 
    S2[a1, a2, a4, SP[a1, a2], a3, n] + S2[a1, a2, SP[a1, a3], a4, a2, n] + 
    2*S2[a1, a2, SP[a1, a4], a2, a3, n] - 
    S2[a2, n]*S2[a1, a4, a1, a2, a3, n] + 
    S2[a2, n]*S2[a1, a4, a1, a3, a2, n] + S2[a1, a4, a1, a3, SP[a2, a2], n] + 
    S2[a1, a4, a1, SP[a2, a3], a2, n] + S2[a1, a4, SP[a1, a2], a3, a2, n] + 
    S2[a1, SP[a1, a2], a3, a4, a2, n] + S2[a1, SP[a1, a2], a4, a2, a3, n] + 
    S2[a1, SP[a1, a2], a4, a3, a2, n] + 2*S2[a1, SP[a1, a4], a2, a2, a3, n] + 
    S2[a1, SP[a1, a4], a2, a3, a2, n] - S2[a1, SP[a2, a4], a1, a2, a3, n] + 
    S2[a1, SP[a2, a4], a1, a3, a2, n] + 2*S2[a2, a1, a1, a2, SP[a3, a4], n] + 
    2*S2[a2, a1, a1, SP[a2, a4], a3, n] + S2[a2, a1, a2, a1, SP[a3, a4], n] + 
    S2[a2, a1, a2, SP[a1, a4], a3, n] - S2[a2, a1, a4, a1, SP[a2, a3], n] - 
    S2[a2, a1, a4, SP[a1, a2], a3, n] + 2*S2[a2, a1, SP[a1, a4], a2, a3, n] - 
    2*S2[a2, a4, a1, a1, SP[a2, a3], n] - S2[a2, a4, a1, SP[a1, a2], a3, n] - 
    S2[a2, a4, a1, SP[a1, a3], a2, n] - S2[a2, a4, SP[a1, a1], a2, a3, n] - 
    S2[a2, a4, SP[a1, a1], a3, a2, n] + S2[a2, SP[a1, a4], a1, a2, a3, n] - 
    S2[a2, SP[a1, a4], a1, a3, a2, n] + 2*S2[a2, n]*
     S2[a4, a1, a1, a3, a2, n] + 2*S2[a4, a1, a1, a3, SP[a2, a2], n] + 
    2*S2[a4, a1, a1, SP[a2, a3], a2, n] - 
    S2[a1, n]*S2[a4, a1, a2, a3, a2, n] - S2[a4, a1, a2, a3, SP[a1, a2], n] - 
    S2[a4, a1, a2, SP[a1, a3], a2, n] + S2[a2, n]*S2[a4, a1, a3, a1, a2, n] + 
    S2[a4, a1, a3, a1, SP[a2, a2], n] - 2*S2[a1, n]*
     S2[a4, a1, a3, a2, a2, n] - 2*S2[a4, a1, a3, a2, SP[a1, a2], n] - 
    S2[a4, a1, a3, SP[a1, a2], a2, n] + S2[a4, a1, SP[a1, a2], a3, a2, n] - 
    2*S2[a4, a1, SP[a1, a3], a2, a2, n] + S2[a4, a1, SP[a2, a3], a1, a2, n] - 
    S2[a1, n]*S2[a4, a2, a1, a3, a2, n] - S2[a4, a2, a1, a3, SP[a1, a2], n] - 
    S2[a4, a2, a1, SP[a1, a3], a2, n] - S2[a4, a2, SP[a1, a1], a3, a2, n] - 
    S2[a4, SP[a1, a1], a2, a3, a2, n] - 2*S2[a4, SP[a1, a1], a3, a2, a2, n] + 
    S2[a4, SP[a1, a2], a1, a3, a2, n] + S2[a4, SP[a1, a2], a3, a1, a2, n] + 
    S2[SP[a1, a1], a2, a3, a4, a2, n] + S2[SP[a1, a1], a2, a4, a2, a3, n] + 
    S2[SP[a1, a1], a2, a4, a3, a2, n] + 2*S2[SP[a1, a1], a4, a2, a2, a3, n] + 
    S2[SP[a1, a1], a4, a2, a3, a2, n] - S2[SP[a1, a4], a1, a2, a3, a2, n] - 
    2*S2[SP[a1, a4], a1, a3, a2, a2, n] - S2[SP[a1, a4], a2, a1, a3, a2, n] + 
    2*S2[SP[a2, a4], a1, a1, a3, a2, n] + S2[SP[a2, a4], a1, a3, a1, a2, n] + 
    S2[a4, a1, a2, a3, a2, a1, n] + S2[a4, a1, a3, a2, a1, a2, n] + 
    2*S2[a4, a1, a3, a2, a2, a1, n] + S2[a4, a2, a1, a3, a2, a1, n] /; 
   MyMemberQ[{{a1, a2}, {a3, a4}}, {a1, a1, a2, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a1_, a2_, a3_, a2_, a1_, a4_, n_] :> 
  -(S2[a1, a2, a3, n]*S2[a1, a2, a4, n]) - S2[a1, a2, a3, n]*
     S2[a1, a4, a2, n] - S2[SP[a1, a1], SP[a2, a2], SP[a3, a4], n] - 
    S2[SP[a1, a1], SP[a2, a4], SP[a2, a3], n] + 
    2*S2[a1, a1, SP[a2, a2], SP[a3, a4], n] + 
    2*S2[a1, a1, SP[a2, a4], SP[a2, a3], n] + 
    S2[a1, a4, n]*S2[a1, a2, a3, a2, n] + S2[a1, a2, n]*
     S2[a1, a2, a3, a4, n] + S2[a1, a2, n]*S2[a1, a2, a4, a3, n] - 
    2*S2[a1, a2, SP[a1, a3], SP[a2, a4], n] - S2[a1, a2, SP[a1, a4], 
     SP[a2, a3], n] + S2[a1, a2, n]*S2[a1, a4, a2, a3, n] - 
    S2[a1, a4, SP[a1, a2], SP[a2, a3], n] + 
    2*S2[a1, SP[a1, a2], a2, SP[a3, a4], n] - 
    2*S2[a1, SP[a1, a2], a3, SP[a2, a4], n] + 
    2*S2[SP[a1, a1], a2, a2, SP[a3, a4], n] - 
    2*S2[SP[a1, a1], a2, a3, SP[a2, a4], n] - 
    4*S2[a1, a1, a2, a2, SP[a3, a4], n] - 
    2*S2[a4, n]*S2[a1, a1, a2, a3, a2, n] + 
    2*S2[a1, a1, a2, a3, SP[a2, a4], n] - 
    2*S2[a1, a1, a2, SP[a3, a4], a2, n] - 
    2*S2[a1, a1, SP[a2, a4], a3, a2, n] - 
    2*S2[a1, a2, a1, a2, SP[a3, a4], n] - 
    S2[a4, n]*S2[a1, a2, a1, a3, a2, n] + S2[a1, a2, a1, a3, SP[a2, a4], n] - 
    S2[a1, a2, a1, SP[a3, a4], a2, n] - S2[a4, n]*S2[a1, a2, a3, a1, a2, n] + 
    S2[a1, a2, a3, a1, SP[a2, a4], n] + S2[a1, a2, a3, SP[a1, a2], a4, n] + 
    S2[a1, a2, a4, a1, SP[a2, a3], n] + S2[a1, a2, a4, SP[a1, a3], a2, n] + 
    S2[a1, a2, SP[a1, a3], a2, a4, n] + S2[a1, a2, SP[a1, a3], a4, a2, n] - 
    S2[a1, a2, SP[a3, a4], a1, a2, n] + S2[a1, a4, a2, a1, SP[a2, a3], n] + 
    S2[a1, a4, a2, SP[a1, a3], a2, n] + S2[a1, a4, SP[a1, a2], a3, a2, n] + 
    S2[a1, SP[a1, a2], a3, a2, a4, n] + S2[a1, SP[a1, a2], a3, a4, a2, n] + 
    S2[a1, SP[a1, a2], a4, a3, a2, n] - S2[a1, SP[a1, a4], a2, a3, a2, n] - 
    S2[a1, SP[a2, a4], a1, a3, a2, n] - S2[a1, SP[a2, a4], a3, a1, a2, n] + 
    S2[a1, n]*S2[a4, a1, a2, a3, a2, n] + S2[a4, a1, a2, a3, SP[a1, a2], n] + 
    S2[a4, a1, a2, SP[a1, a3], a2, n] + S2[a4, a1, SP[a1, a2], a3, a2, n] + 
    S2[a4, SP[a1, a1], a2, a3, a2, n] + S2[SP[a1, a1], a2, a3, a2, a4, n] + 
    S2[SP[a1, a1], a2, a3, a4, a2, n] + S2[SP[a1, a1], a2, a4, a3, a2, n] + 
    S2[SP[a1, a1], a4, a2, a3, a2, n] - S2[SP[a1, a4], a1, a2, a3, a2, n] - 
    S2[SP[a1, a4], a2, a1, a3, a2, n] - S2[SP[a1, a4], a2, a3, a1, a2, n] - 
    S2[a4, a1, a2, a3, a2, a1, n] /; MyMemberQ[{{a1, a2}, {a3, a4}}, 
     {a1, a1, a2, a2, a3, a4}] && a1 != a2 != a3 != a4, 
 S2[a1_, a2_, a3_, a2_, a4_, a1_, n_] :> 
  S2[a1, a2, a3, n]*S2[a1, a4, a2, n] + S2[SP[a1, a1], SP[a2, a4], 
     SP[a2, a3], n] - 2*S2[a1, a1, SP[a2, a4], SP[a2, a3], n] - 
    S2[a1, a4, n]*S2[a1, a2, a3, a2, n] + S2[a1, a2, SP[a1, a3], SP[a2, a4], 
     n] - S2[a1, a2, n]*S2[a1, a4, a2, a3, n] + S2[a1, a4, SP[a1, a2], 
     SP[a2, a3], n] + S2[a1, SP[a1, a2], a3, SP[a2, a4], n] - 
    S2[a1, SP[a1, a2], a4, SP[a2, a3], n] + S2[SP[a1, a1], a2, a3, 
     SP[a2, a4], n] - S2[SP[a1, a1], a2, a4, SP[a2, a3], n] - 
    2*S2[a1, a1, a2, a3, SP[a2, a4], n] + 
    2*S2[a1, a1, a2, a4, SP[a2, a3], n] - S2[a1, a2, a1, a3, SP[a2, a4], n] + 
    S2[a1, a2, a1, a4, SP[a2, a3], n] - S2[a1, a2, a3, a1, SP[a2, a4], n] + 
    S2[a1, n]*S2[a1, a2, a3, a2, a4, n] + S2[a1, a2, a3, a2, SP[a1, a4], n] - 
    S2[a1, a4, a2, a1, SP[a2, a3], n] + S2[a1, n]*S2[a1, a4, a2, a3, a2, n] + 
    S2[a1, a4, a2, a3, SP[a1, a2], n] - S2[a1, n]*S2[a4, a2, a3, a2, a1, n] - 
    S2[a4, a2, a3, a2, SP[a1, a1], n] - S2[a4, a2, a3, SP[a1, a2], a1, n] - 
    S2[a4, a2, SP[a1, a3], a2, a1, n] - S2[a4, SP[a1, a2], a3, a2, a1, n] - 
    S2[SP[a1, a4], a2, a3, a2, a1, n] + S2[a4, a1, a2, a3, a2, a1, n] + 
    S2[a4, a2, a1, a3, a2, a1, n] + S2[a4, a2, a3, a1, a2, a1, n] + 
    2*S2[a4, a2, a3, a2, a1, a1, n] /; 
   MyMemberQ[{{a1, a2}, {a3, a4}}, {a1, a1, a2, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a1_, a2_, a3_, a4_, a1_, a2_, n_] :> 
  -(S2[a1, a2, a3, n]*S2[a1, a2, a4, n]) - S2[a1, a2, a3, n]*
     S2[a1, a4, a2, n] - S2[SP[a1, a1], SP[a2, a2], SP[a3, a4], n] - 
    S2[SP[a1, a1], SP[a2, a4], SP[a2, a3], n] + 
    2*S2[a1, a1, SP[a2, a2], SP[a3, a4], n] + 
    2*S2[a1, a1, SP[a2, a4], SP[a2, a3], n] + 
    2*S2[a1, SP[a1, a2], a2, SP[a3, a4], n] + S2[a1, SP[a1, a2], a4, 
     SP[a2, a3], n] + S2[a1, SP[a1, a2], SP[a2, a3], a4, n] + 
    S2[a1, SP[a1, a2], SP[a2, a4], a3, n] + S2[a1, SP[a1, a2], SP[a3, a4], 
     a2, n] + S2[a1, SP[a1, a4], a2, SP[a2, a3], n] + 
    S2[a1, SP[a1, a4], SP[a2, a2], a3, n] + S2[a1, a2, n]*
     S2[a3, a4, a1, a2, n] - S2[a3, a4, SP[a1, a1], SP[a2, a2], n] - 
    S2[a3, SP[a1, a4], a1, SP[a2, a2], n] - S2[a3, SP[a1, a4], SP[a1, a2], 
     a2, n] + 2*S2[SP[a1, a1], a2, a2, SP[a3, a4], n] + 
    S2[SP[a1, a1], a2, a4, SP[a2, a3], n] + S2[SP[a1, a1], a2, SP[a2, a3], 
     a4, n] + S2[SP[a1, a1], a2, SP[a2, a4], a3, n] + 
    S2[SP[a1, a1], a2, SP[a3, a4], a2, n] + S2[SP[a1, a1], a4, a2, 
     SP[a2, a3], n] + S2[SP[a1, a1], a4, SP[a2, a2], a3, n] + 
    S2[SP[a1, a1], SP[a2, a2], a3, a4, n] + S2[SP[a1, a1], SP[a2, a2], a4, 
     a3, n] + S2[SP[a1, a1], SP[a2, a4], a2, a3, n] + 
    S2[SP[a1, a1], SP[a2, a4], a3, a2, n] - S2[SP[a1, a3], a4, a1, 
     SP[a2, a2], n] - S2[SP[a1, a3], a4, SP[a1, a2], a2, n] - 
    S2[SP[a1, a3], SP[a2, a4], a1, a2, n] + 
    4*S2[a4, n]*S2[a1, a1, a2, a2, a3, n] + 
    2*S2[a4, n]*S2[a1, a1, a2, a3, a2, n] + 
    2*S2[a1, a1, a2, a3, SP[a2, a4], n] - 
    2*S2[a1, a1, a2, a4, SP[a2, a3], n] - 
    2*S2[a1, a1, a2, SP[a2, a3], a4, n] + 
    2*S2[a1, a1, a2, SP[a2, a4], a3, n] - 
    2*S2[a1, a1, a4, a2, SP[a2, a3], n] - 
    2*S2[a1, a1, a4, SP[a2, a2], a3, n] - 
    2*S2[a1, a1, SP[a2, a2], a3, a4, n] - 
    2*S2[a1, a1, SP[a2, a2], a4, a3, n] + 
    2*S2[a1, a1, SP[a2, a4], a2, a3, n] + 
    2*S2[a4, n]*S2[a1, a2, a1, a2, a3, n] + 
    S2[a4, n]*S2[a1, a2, a1, a3, a2, n] + S2[a1, a2, a1, a3, SP[a2, a4], n] - 
    S2[a1, a2, a1, a4, SP[a2, a3], n] - S2[a1, a2, a1, SP[a2, a3], a4, n] + 
    S2[a1, a2, a1, SP[a2, a4], a3, n] + S2[a4, n]*S2[a1, a2, a3, a1, a2, n] + 
    S2[a1, a2, a3, a1, SP[a2, a4], n] + S2[a1, a2, a3, SP[a1, a4], a2, n] - 
    S2[a3, n]*S2[a1, a2, a4, a1, a2, n] - S2[a1, a2, a4, a1, SP[a2, a3], n] - 
    S2[a1, a2, a4, SP[a1, a3], a2, n] - S2[a1, a2, SP[a1, a3], a2, a4, n] - 
    S2[a1, a2, SP[a1, a3], a4, a2, n] + S2[a1, a2, SP[a1, a4], a2, a3, n] + 
    S2[a1, a2, SP[a1, a4], a3, a2, n] + S2[a1, a3, a4, a1, SP[a2, a2], n] + 
    S2[a1, a3, a4, SP[a1, a2], a2, n] + S2[a1, a3, SP[a2, a4], a1, a2, n] - 
    2*S2[a3, n]*S2[a1, a4, a1, a2, a2, n] - 
    3*S2[a1, a4, a1, a2, SP[a2, a3], n] - S2[a1, a4, a1, SP[a2, a2], a3, n] - 
    2*S2[a1, a4, a1, SP[a2, a3], a2, n] - 
    S2[a3, n]*S2[a1, a4, a2, a1, a2, n] - S2[a1, a4, a2, a1, SP[a2, a3], n] - 
    S2[a1, a4, a2, SP[a1, a3], a2, n] - S2[a1, a4, SP[a1, a2], a2, a3, n] - 
    2*S2[a1, a4, SP[a1, a3], a2, a2, n] - S2[a1, a4, SP[a2, a3], a1, a2, n] - 
    2*S2[a1, SP[a1, a2], a2, a3, a4, n] - 
    2*S2[a1, SP[a1, a2], a2, a4, a3, n] - S2[a1, SP[a1, a2], a3, a2, a4, n] - 
    S2[a1, SP[a1, a2], a3, a4, a2, n] - 2*S2[a1, SP[a1, a2], a4, a2, a3, n] - 
    S2[a1, SP[a1, a2], a4, a3, a2, n] + 2*S2[a1, SP[a1, a4], a2, a2, a3, n] + 
    S2[a1, SP[a1, a4], a2, a3, a2, n] + 2*S2[a1, SP[a2, a4], a1, a2, a3, n] + 
    S2[a1, SP[a2, a4], a1, a3, a2, n] + S2[a1, SP[a2, a4], a3, a1, a2, n] - 
    2*S2[a1, SP[a3, a4], a1, a2, a2, n] - S2[a1, SP[a3, a4], a2, a1, a2, n] + 
    S2[a3, a1, a4, a1, SP[a2, a2], n] + S2[a3, a1, a4, SP[a1, a2], a2, n] + 
    S2[a3, a1, SP[a2, a4], a1, a2, n] + 2*S2[a3, a4, a1, a1, SP[a2, a2], n] + 
    2*S2[a3, a4, a1, SP[a1, a2], a2, n] + 
    2*S2[a3, a4, SP[a1, a1], a2, a2, n] + 
    2*S2[a3, SP[a1, a4], a1, a2, a2, n] + S2[a3, SP[a1, a4], a2, a1, a2, n] - 
    4*S2[a3, n]*S2[a4, a1, a1, a2, a2, n] - 
    4*S2[a4, a1, a1, a2, SP[a2, a3], n] - 
    4*S2[a4, a1, a1, SP[a2, a3], a2, n] - 
    2*S2[a3, n]*S2[a4, a1, a2, a1, a2, n] - 
    2*S2[a4, a1, a2, a1, SP[a2, a3], n] + 
    S2[a1, n]*S2[a4, a1, a2, a3, a2, n] + S2[a4, a1, a2, a3, SP[a1, a2], n] - 
    S2[a4, a1, a2, SP[a1, a3], a2, n] + 2*S2[a1, n]*
     S2[a4, a1, a3, a2, a2, n] + 2*S2[a4, a1, a3, a2, SP[a1, a2], n] + 
    2*S2[a4, a1, a3, SP[a1, a2], a2, n] + S2[a4, a1, SP[a1, a2], a3, a2, n] - 
    2*S2[a4, a1, SP[a1, a3], a2, a2, n] - 
    2*S2[a4, a1, SP[a2, a3], a1, a2, n] + 
    2*S2[a1, n]*S2[a4, a3, a1, a2, a2, n] + 
    2*S2[a4, a3, a1, a2, SP[a1, a2], n] + 
    2*S2[a4, a3, a1, SP[a1, a2], a2, n] + 
    S2[a1, n]*S2[a4, a3, a2, a1, a2, n] + S2[a4, a3, a2, a1, SP[a1, a2], n] + 
    S2[a4, a3, a2, SP[a1, a1], a2, n] + 2*S2[a4, a3, SP[a1, a1], a2, a2, n] + 
    S2[a4, a3, SP[a1, a2], a1, a2, n] + S2[a4, SP[a1, a1], a2, a3, a2, n] + 
    2*S2[a4, SP[a1, a1], a3, a2, a2, n] - 
    2*S2[a4, SP[a1, a3], a1, a2, a2, n] - S2[a4, SP[a1, a3], a2, a1, a2, n] - 
    2*S2[SP[a1, a1], a2, a2, a3, a4, n] - 
    2*S2[SP[a1, a1], a2, a2, a4, a3, n] - S2[SP[a1, a1], a2, a3, a2, a4, n] - 
    S2[SP[a1, a1], a2, a3, a4, a2, n] - 2*S2[SP[a1, a1], a2, a4, a2, a3, n] - 
    S2[SP[a1, a1], a2, a4, a3, a2, n] - 2*S2[SP[a1, a1], a4, a2, a2, a3, n] - 
    S2[SP[a1, a1], a4, a2, a3, a2, n] + 4*S2[SP[a1, a4], a1, a2, a2, a3, n] + 
    3*S2[SP[a1, a4], a1, a2, a3, a2, n] + 
    2*S2[SP[a1, a4], a1, a3, a2, a2, n] + 
    2*S2[SP[a1, a4], a2, a1, a2, a3, n] + S2[SP[a1, a4], a2, a1, a3, a2, n] + 
    S2[SP[a1, a4], a2, a3, a1, a2, n] + 2*S2[SP[a1, a4], a3, a1, a2, a2, n] + 
    S2[SP[a1, a4], a3, a2, a1, a2, n] - 4*S2[SP[a3, a4], a1, a1, a2, a2, n] - 
    2*S2[SP[a3, a4], a1, a2, a1, a2, n] - S2[a4, a1, a2, a3, a2, a1, n] - 
    S2[a4, a1, a3, a2, a1, a2, n] - 2*S2[a4, a1, a3, a2, a2, a1, n] - 
    S2[a4, a3, a1, a2, a1, a2, n] - 2*S2[a4, a3, a1, a2, a2, a1, n] - 
    2*S2[a4, a3, a2, a1, a1, a2, n] - S2[a4, a3, a2, a1, a2, a1, n] /; 
   MyMemberQ[{{a1, a2}, {a3, a4}}, {a1, a1, a2, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a1_, a2_, a3_, a4_, a2_, a1_, n_] :> 
  S2[a1, a2, a3, n]*S2[a1, a2, a4, n] + S2[SP[a1, a1], SP[a2, a2], 
     SP[a3, a4], n] - 2*S2[a1, a1, SP[a2, a2], SP[a3, a4], n] + 
    S2[a1, a2, n]*S2[a1, a4, a2, a3, n] + S2[a1, a2, n]*
     S2[a1, a4, a3, a2, n] - S2[a1, a4, SP[a1, a2], SP[a2, a3], n] - 
    S2[a1, a4, SP[a1, a3], SP[a2, a2], n] - 
    2*S2[a1, SP[a1, a2], a2, SP[a3, a4], n] - S2[a1, SP[a1, a2], SP[a2, a3], 
     a4, n] - S2[a1, SP[a1, a2], SP[a2, a4], a3, n] - 
    S2[a1, SP[a1, a4], a2, SP[a2, a3], n] - S2[a1, SP[a1, a4], a3, 
     SP[a2, a2], n] - S2[a1, SP[a1, a4], SP[a2, a2], a3, n] - 
    S2[a1, SP[a1, a4], SP[a2, a3], a2, n] - S2[a1, a2, n]*
     S2[a3, a4, a1, a2, n] + S2[a3, a4, SP[a1, a1], SP[a2, a2], n] + 
    S2[a3, SP[a1, a4], a1, SP[a2, a2], n] + S2[a3, SP[a1, a4], SP[a1, a2], 
     a2, n] - 2*S2[SP[a1, a1], a2, a2, SP[a3, a4], n] - 
    S2[SP[a1, a1], a2, SP[a2, a3], a4, n] - S2[SP[a1, a1], a2, SP[a2, a4], 
     a3, n] - S2[SP[a1, a1], a4, a2, SP[a2, a3], n] - 
    S2[SP[a1, a1], a4, a3, SP[a2, a2], n] - S2[SP[a1, a1], a4, SP[a2, a2], 
     a3, n] - S2[SP[a1, a1], a4, SP[a2, a3], a2, n] - 
    S2[SP[a1, a1], SP[a2, a2], a3, a4, n] - S2[SP[a1, a1], SP[a2, a2], a4, 
     a3, n] - S2[SP[a1, a1], SP[a2, a4], a2, a3, n] - 
    S2[SP[a1, a1], SP[a2, a4], a3, a2, n] + S2[SP[a1, a3], a4, a1, 
     SP[a2, a2], n] + S2[SP[a1, a3], a4, SP[a1, a2], a2, n] + 
    S2[SP[a1, a3], SP[a2, a4], a1, a2, n] - 
    4*S2[a4, n]*S2[a1, a1, a2, a2, a3, n] - 
    2*S2[a4, n]*S2[a1, a1, a2, a3, a2, n] - 
    2*S2[a1, a1, a2, a3, SP[a2, a4], n] + 
    2*S2[a1, a1, a2, SP[a2, a3], a4, n] - 
    2*S2[a1, a1, a2, SP[a2, a4], a3, n] - 
    2*S2[a1, a1, a2, SP[a3, a4], a2, n] + 
    2*S2[a1, a1, a4, a2, SP[a2, a3], n] + 
    2*S2[a1, a1, a4, a3, SP[a2, a2], n] + 
    2*S2[a1, a1, a4, SP[a2, a2], a3, n] + 
    2*S2[a1, a1, a4, SP[a2, a3], a2, n] + 
    2*S2[a1, a1, SP[a2, a2], a3, a4, n] + 
    2*S2[a1, a1, SP[a2, a2], a4, a3, n] - 
    2*S2[a1, a1, SP[a2, a4], a2, a3, n] - 
    2*S2[a4, n]*S2[a1, a2, a1, a2, a3, n] - 
    S2[a4, n]*S2[a1, a2, a1, a3, a2, n] - S2[a1, a2, a1, a3, SP[a2, a4], n] + 
    S2[a1, a2, a1, SP[a2, a3], a4, n] - S2[a1, a2, a1, SP[a2, a4], a3, n] - 
    S2[a1, a2, a1, SP[a3, a4], a2, n] - S2[a4, n]*S2[a1, a2, a3, a1, a2, n] - 
    S2[a1, a2, a3, a1, SP[a2, a4], n] + S2[a1, n]*S2[a1, a2, a3, a4, a2, n] + 
    S2[a1, a2, a3, a4, SP[a1, a2], n] + S2[a3, n]*S2[a1, a2, a4, a1, a2, n] + 
    S2[a1, a2, a4, a1, SP[a2, a3], n] + S2[a1, a2, a4, SP[a1, a3], a2, n] + 
    S2[a1, a2, SP[a1, a3], a2, a4, n] + S2[a1, a2, SP[a1, a3], a4, a2, n] - 
    S2[a1, a2, SP[a1, a4], a2, a3, n] - S2[a1, a2, SP[a1, a4], a3, a2, n] - 
    S2[a1, a3, a4, a1, SP[a2, a2], n] - S2[a1, a3, a4, SP[a1, a2], a2, n] - 
    S2[a1, a3, SP[a2, a4], a1, a2, n] + 2*S2[a3, n]*
     S2[a1, a4, a1, a2, a2, n] + 3*S2[a1, a4, a1, a2, SP[a2, a3], n] + 
    S2[a1, a4, a1, a3, SP[a2, a2], n] + S2[a1, a4, a1, SP[a2, a2], a3, n] + 
    3*S2[a1, a4, a1, SP[a2, a3], a2, n] + 
    S2[a3, n]*S2[a1, a4, a2, a1, a2, n] + 
    2*S2[a1, a4, a2, a1, SP[a2, a3], n] - 
    S2[a1, n]*S2[a1, a4, a2, a3, a2, n] - S2[a1, a4, a2, a3, SP[a1, a2], n] + 
    S2[a1, a4, a2, SP[a1, a3], a2, n] + S2[a1, a4, a3, a1, SP[a2, a2], n] - 
    2*S2[a1, n]*S2[a1, a4, a3, a2, a2, n] - 
    2*S2[a1, a4, a3, a2, SP[a1, a2], n] - S2[a1, a4, a3, SP[a1, a2], a2, n] + 
    S2[a1, a4, SP[a1, a2], a2, a3, n] + 2*S2[a1, a4, SP[a1, a3], a2, a2, n] + 
    S2[a1, a4, SP[a2, a3], a1, a2, n] + 2*S2[a1, SP[a1, a2], a2, a3, a4, n] + 
    2*S2[a1, SP[a1, a2], a2, a4, a3, n] + S2[a1, SP[a1, a2], a3, a2, a4, n] + 
    S2[a1, SP[a1, a2], a3, a4, a2, n] + 2*S2[a1, SP[a1, a2], a4, a2, a3, n] + 
    S2[a1, SP[a1, a2], a4, a3, a2, n] - 2*S2[a1, SP[a1, a4], a2, a2, a3, n] - 
    S2[a1, SP[a1, a4], a2, a3, a2, n] - 2*S2[a1, SP[a2, a4], a1, a2, a3, n] - 
    S2[a1, SP[a2, a4], a1, a3, a2, n] - S2[a1, SP[a2, a4], a3, a1, a2, n] + 
    2*S2[a1, SP[a3, a4], a1, a2, a2, n] + S2[a1, SP[a3, a4], a2, a1, a2, n] - 
    S2[a3, a1, a4, a1, SP[a2, a2], n] - S2[a3, a1, a4, SP[a1, a2], a2, n] - 
    S2[a3, a1, SP[a2, a4], a1, a2, n] - 2*S2[a3, a4, a1, a1, SP[a2, a2], n] - 
    2*S2[a3, a4, a1, SP[a1, a2], a2, n] - 
    2*S2[a3, a4, SP[a1, a1], a2, a2, n] - 
    2*S2[a3, SP[a1, a4], a1, a2, a2, n] - S2[a3, SP[a1, a4], a2, a1, a2, n] + 
    4*S2[a3, n]*S2[a4, a1, a1, a2, a2, n] + 
    4*S2[a4, a1, a1, a2, SP[a2, a3], n] + 
    4*S2[a4, a1, a1, SP[a2, a3], a2, n] + 
    2*S2[a3, n]*S2[a4, a1, a2, a1, a2, n] + 
    2*S2[a4, a1, a2, a1, SP[a2, a3], n] - 
    S2[a1, n]*S2[a4, a1, a2, a3, a2, n] - S2[a4, a1, a2, a3, SP[a1, a2], n] + 
    S2[a4, a1, a2, SP[a1, a3], a2, n] - 2*S2[a1, n]*
     S2[a4, a1, a3, a2, a2, n] - 2*S2[a4, a1, a3, a2, SP[a1, a2], n] - 
    2*S2[a4, a1, a3, SP[a1, a2], a2, n] - S2[a4, a1, SP[a1, a2], a3, a2, n] + 
    2*S2[a4, a1, SP[a1, a3], a2, a2, n] + 
    2*S2[a4, a1, SP[a2, a3], a1, a2, n] + 
    S2[a1, n]*S2[a4, a2, a3, a2, a1, n] + S2[a4, a2, a3, a2, SP[a1, a1], n] + 
    S2[a4, a2, a3, SP[a1, a2], a1, n] + S2[a4, a2, SP[a1, a3], a2, a1, n] - 
    2*S2[a1, n]*S2[a4, a3, a1, a2, a2, n] - 
    2*S2[a4, a3, a1, a2, SP[a1, a2], n] - 
    2*S2[a4, a3, a1, SP[a1, a2], a2, n] + 
    2*S2[a1, n]*S2[a4, a3, a2, a2, a1, n] + 
    2*S2[a4, a3, a2, a2, SP[a1, a1], n] + 
    2*S2[a4, a3, a2, SP[a1, a2], a1, n] - 
    2*S2[a4, a3, SP[a1, a1], a2, a2, n] + 
    2*S2[a4, a3, SP[a1, a2], a2, a1, n] - S2[a4, SP[a1, a1], a2, a3, a2, n] - 
    2*S2[a4, SP[a1, a1], a3, a2, a2, n] + S2[a4, SP[a1, a2], a3, a2, a1, n] + 
    2*S2[a4, SP[a1, a3], a1, a2, a2, n] + 
    2*S2[a4, SP[a1, a3], a2, a1, a2, n] + 
    2*S2[a4, SP[a1, a3], a2, a2, a1, n] + 
    2*S2[SP[a1, a1], a2, a2, a3, a4, n] + 
    2*S2[SP[a1, a1], a2, a2, a4, a3, n] + S2[SP[a1, a1], a2, a3, a2, a4, n] + 
    S2[SP[a1, a1], a2, a3, a4, a2, n] + 2*S2[SP[a1, a1], a2, a4, a2, a3, n] + 
    S2[SP[a1, a1], a2, a4, a3, a2, n] + 2*S2[SP[a1, a1], a4, a2, a2, a3, n] + 
    S2[SP[a1, a1], a4, a2, a3, a2, n] - 4*S2[SP[a1, a4], a1, a2, a2, a3, n] - 
    3*S2[SP[a1, a4], a1, a2, a3, a2, n] - 
    2*S2[SP[a1, a4], a1, a3, a2, a2, n] - 
    2*S2[SP[a1, a4], a2, a1, a2, a3, n] - S2[SP[a1, a4], a2, a1, a3, a2, n] - 
    S2[SP[a1, a4], a2, a3, a1, a2, n] + S2[SP[a1, a4], a2, a3, a2, a1, n] - 
    2*S2[SP[a1, a4], a3, a1, a2, a2, n] + 
    2*S2[SP[a1, a4], a3, a2, a2, a1, n] + 
    4*S2[SP[a3, a4], a1, a1, a2, a2, n] + 
    2*S2[SP[a3, a4], a1, a2, a1, a2, n] - S2[a4, a2, a1, a3, a2, a1, n] - 
    S2[a4, a2, a3, a1, a2, a1, n] - 2*S2[a4, a2, a3, a2, a1, a1, n] - 
    2*S2[a4, a3, a2, a1, a2, a1, n] - 4*S2[a4, a3, a2, a2, a1, a1, n] /; 
   MyMemberQ[{{a1, a2}, {a3, a4}}, {a1, a1, a2, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a1_, a2_, a4_, a1_, a2_, a3_, n_] :> 
  -(S2[a1, a2, n]*S2[a1, a2, a3, a4, n]) - S2[a1, a2, n]*
     S2[a1, a2, a4, a3, n] + S2[a1, a2, SP[a1, a3], SP[a2, a4], n] + 
    S2[a1, a2, SP[a1, a4], SP[a2, a3], n] - S2[a1, a2, n]*
     S2[a1, a4, a2, a3, n] + S2[a1, a4, SP[a1, a2], SP[a2, a3], n] + 
    S2[a1, SP[a1, a2], a3, SP[a2, a4], n] + S2[a1, SP[a1, a2], a4, 
     SP[a2, a3], n] + S2[a1, SP[a1, a2], SP[a2, a3], a4, n] + 
    S2[a1, SP[a1, a2], SP[a2, a4], a3, n] + S2[a1, SP[a1, a4], a2, 
     SP[a2, a3], n] + S2[a1, SP[a1, a4], SP[a2, a2], a3, n] + 
    S2[SP[a1, a1], a2, a3, SP[a2, a4], n] + S2[SP[a1, a1], a2, a4, 
     SP[a2, a3], n] + S2[SP[a1, a1], a2, SP[a2, a3], a4, n] + 
    S2[SP[a1, a1], a2, SP[a2, a4], a3, n] + S2[SP[a1, a1], a4, a2, 
     SP[a2, a3], n] + S2[SP[a1, a1], a4, SP[a2, a2], a3, n] + 
    S2[SP[a1, a1], SP[a2, a2], a3, a4, n] + S2[SP[a1, a1], SP[a2, a2], a4, 
     a3, n] + S2[SP[a1, a1], SP[a2, a4], a2, a3, n] + 
    4*S2[a4, n]*S2[a1, a1, a2, a2, a3, n] + 
    4*S2[a1, a1, a2, a2, SP[a3, a4], n] + 
    2*S2[a4, n]*S2[a1, a1, a2, a3, a2, n] - 
    2*S2[a1, a1, a2, a4, SP[a2, a3], n] - 
    2*S2[a1, a1, a2, SP[a2, a3], a4, n] + 
    2*S2[a1, a1, a2, SP[a2, a4], a3, n] + 
    2*S2[a1, a1, a2, SP[a3, a4], a2, n] - 
    2*S2[a1, a1, a4, a2, SP[a2, a3], n] - 
    2*S2[a1, a1, a4, SP[a2, a2], a3, n] - 
    2*S2[a1, a1, SP[a2, a2], a3, a4, n] - 
    2*S2[a1, a1, SP[a2, a2], a4, a3, n] + 
    2*S2[a1, a1, SP[a2, a4], a2, a3, n] + 
    2*S2[a1, a1, SP[a2, a4], a3, a2, n] + 
    2*S2[a4, n]*S2[a1, a2, a1, a2, a3, n] + 
    2*S2[a1, a2, a1, a2, SP[a3, a4], n] + 
    S2[a4, n]*S2[a1, a2, a1, a3, a2, n] - S2[a1, a2, a1, a4, SP[a2, a3], n] - 
    S2[a1, a2, a1, SP[a2, a3], a4, n] + S2[a1, a2, a1, SP[a2, a4], a3, n] + 
    S2[a1, a2, a1, SP[a3, a4], a2, n] + S2[a4, n]*S2[a1, a2, a3, a1, a2, n] - 
    S2[a1, a2, a4, a1, SP[a2, a3], n] - S2[a1, a2, a4, SP[a1, a3], a2, n] - 
    S2[a1, a2, SP[a1, a3], a2, a4, n] - S2[a1, a2, SP[a1, a3], a4, a2, n] + 
    S2[a1, a2, SP[a1, a4], a2, a3, n] + S2[a1, a2, SP[a3, a4], a1, a2, n] - 
    S2[a1, a4, a1, a2, SP[a2, a3], n] - S2[a1, a4, a1, SP[a2, a2], a3, n] - 
    S2[a1, a4, a2, a1, SP[a2, a3], n] - S2[a1, a4, a2, SP[a1, a3], a2, n] - 
    S2[a1, a4, SP[a1, a2], a2, a3, n] - S2[a1, a4, SP[a1, a2], a3, a2, n] - 
    2*S2[a1, SP[a1, a2], a2, a3, a4, n] - 
    2*S2[a1, SP[a1, a2], a2, a4, a3, n] - S2[a1, SP[a1, a2], a3, a2, a4, n] - 
    S2[a1, SP[a1, a2], a3, a4, a2, n] - 2*S2[a1, SP[a1, a2], a4, a2, a3, n] - 
    S2[a1, SP[a1, a2], a4, a3, a2, n] + 2*S2[a1, SP[a1, a4], a2, a2, a3, n] + 
    S2[a1, SP[a1, a4], a2, a3, a2, n] + 2*S2[a1, SP[a2, a4], a1, a2, a3, n] + 
    S2[a1, SP[a2, a4], a1, a3, a2, n] + S2[a1, SP[a2, a4], a3, a1, a2, n] - 
    2*S2[a1, n]*S2[a4, a1, a2, a2, a3, n] - 
    2*S2[a4, a1, a2, a2, SP[a1, a3], n] - 
    S2[a1, n]*S2[a4, a1, a2, a3, a2, n] - S2[a4, a1, a2, a3, SP[a1, a2], n] - 
    2*S2[a4, a1, a2, SP[a1, a2], a3, n] - S2[a4, a1, a2, SP[a1, a3], a2, n] - 
    2*S2[a4, a1, SP[a1, a2], a2, a3, n] - S2[a4, a1, SP[a1, a2], a3, a2, n] - 
    S2[a1, n]*S2[a4, a2, a1, a2, a3, n] - S2[a4, a2, a1, a2, SP[a1, a3], n] - 
    S2[a4, a2, a1, SP[a1, a2], a3, n] - S2[a4, a2, SP[a1, a1], a2, a3, n] - 
    2*S2[a4, SP[a1, a1], a2, a2, a3, n] - S2[a4, SP[a1, a1], a2, a3, a2, n] - 
    S2[a4, SP[a1, a2], a1, a2, a3, n] - 2*S2[SP[a1, a1], a2, a2, a3, a4, n] - 
    2*S2[SP[a1, a1], a2, a2, a4, a3, n] - S2[SP[a1, a1], a2, a3, a2, a4, n] - 
    S2[SP[a1, a1], a2, a3, a4, a2, n] - 2*S2[SP[a1, a1], a2, a4, a2, a3, n] - 
    S2[SP[a1, a1], a2, a4, a3, a2, n] - 2*S2[SP[a1, a1], a4, a2, a2, a3, n] - 
    S2[SP[a1, a1], a4, a2, a3, a2, n] + 2*S2[SP[a1, a4], a1, a2, a2, a3, n] + 
    S2[SP[a1, a4], a1, a2, a3, a2, n] + S2[SP[a1, a4], a2, a1, a2, a3, n] + 
    S2[SP[a1, a4], a2, a1, a3, a2, n] + S2[SP[a1, a4], a2, a3, a1, a2, n] + 
    S2[a4, a1, a2, a1, a2, a3, n] + 2*S2[a4, a1, a2, a2, a1, a3, n] + 
    2*S2[a4, a1, a2, a2, a3, a1, n] + S2[a4, a1, a2, a3, a2, a1, n] + 
    2*S2[a4, a2, a1, a1, a2, a3, n] + S2[a4, a2, a1, a2, a1, a3, n] + 
    S2[a4, a2, a1, a2, a3, a1, n] /; MyMemberQ[{{a1, a2}, {a3, a4}}, 
     {a1, a1, a2, a2, a3, a4}] && a1 != a2 != a3 != a4, 
 S2[a1_, a2_, a4_, a1_, a3_, a2_, n_] :> 
  -(S2[a1, a2, n]*S2[a1, a3, a2, a4, n]) - S2[a1, a2, n]*
     S2[a1, a3, a4, a2, n] + S2[a1, a3, SP[a1, a2], SP[a2, a4], n] + 
    S2[a1, a3, SP[a1, a4], SP[a2, a2], n] - S2[a1, a2, n]*
     S2[a1, a4, a3, a2, n] + S2[a1, a4, SP[a1, a3], SP[a2, a2], n] + 
    S2[a1, SP[a1, a3], a2, SP[a2, a4], n] + S2[a1, SP[a1, a3], a4, 
     SP[a2, a2], n] + S2[a1, SP[a1, a3], SP[a2, a2], a4, n] + 
    S2[a1, SP[a1, a3], SP[a2, a4], a2, n] + S2[a1, SP[a1, a4], a3, 
     SP[a2, a2], n] + S2[a1, SP[a1, a4], SP[a2, a3], a2, n] + 
    S2[SP[a1, a1], a3, a2, SP[a2, a4], n] + S2[SP[a1, a1], a3, a4, 
     SP[a2, a2], n] + S2[SP[a1, a1], a3, SP[a2, a2], a4, n] + 
    S2[SP[a1, a1], a3, SP[a2, a4], a2, n] + S2[SP[a1, a1], a4, a3, 
     SP[a2, a2], n] + S2[SP[a1, a1], a4, SP[a2, a3], a2, n] + 
    S2[SP[a1, a1], SP[a2, a3], a2, a4, n] + S2[SP[a1, a1], SP[a2, a3], a4, 
     a2, n] + S2[SP[a1, a1], SP[a2, a4], a3, a2, n] + 
    2*S2[a4, n]*S2[a1, a1, a2, a3, a2, n] + 
    2*S2[a1, a1, a2, a3, SP[a2, a4], n] + 
    2*S2[a1, a1, a2, SP[a3, a4], a2, n] + 
    4*S2[a4, n]*S2[a1, a1, a3, a2, a2, n] + 
    2*S2[a1, a1, a3, a2, SP[a2, a4], n] - 
    2*S2[a1, a1, a3, a4, SP[a2, a2], n] - 
    2*S2[a1, a1, a3, SP[a2, a2], a4, n] + 
    2*S2[a1, a1, a3, SP[a2, a4], a2, n] - 
    2*S2[a1, a1, a4, a3, SP[a2, a2], n] - 
    2*S2[a1, a1, a4, SP[a2, a3], a2, n] - 
    2*S2[a1, a1, SP[a2, a3], a2, a4, n] - 
    2*S2[a1, a1, SP[a2, a3], a4, a2, n] + 
    4*S2[a1, a1, SP[a3, a4], a2, a2, n] + 
    S2[a4, n]*S2[a1, a2, a1, a3, a2, n] + S2[a1, a2, a1, a3, SP[a2, a4], n] + 
    S2[a1, a2, a1, SP[a3, a4], a2, n] + S2[a1, a2, SP[a1, a4], a3, a2, n] + 
    2*S2[a4, n]*S2[a1, a3, a1, a2, a2, n] + S2[a1, a3, a1, a2, SP[a2, a4], 
     n] - S2[a1, a3, a1, a4, SP[a2, a2], n] - S2[a1, a3, a1, SP[a2, a2], a4, 
     n] + S2[a1, a3, a1, SP[a2, a4], a2, n] + 
    S2[a4, n]*S2[a1, a3, a2, a1, a2, n] - S2[a1, a3, a4, a1, SP[a2, a2], n] - 
    S2[a1, a3, a4, SP[a1, a2], a2, n] - S2[a1, a3, SP[a1, a2], a2, a4, n] - 
    S2[a1, a3, SP[a1, a2], a4, a2, n] + S2[a1, a3, SP[a2, a4], a1, a2, n] - 
    S2[a1, a4, a1, a3, SP[a2, a2], n] - S2[a1, a4, a1, SP[a2, a3], a2, n] - 
    S2[a1, a4, a3, a1, SP[a2, a2], n] - S2[a1, a4, a3, SP[a1, a2], a2, n] - 
    2*S2[a1, a4, SP[a1, a3], a2, a2, n] - S2[a1, SP[a1, a2], a3, a2, a4, n] - 
    S2[a1, SP[a1, a2], a3, a4, a2, n] - S2[a1, SP[a1, a2], a4, a3, a2, n] - 
    2*S2[a1, SP[a1, a3], a2, a2, a4, n] - 
    2*S2[a1, SP[a1, a3], a2, a4, a2, n] - 
    2*S2[a1, SP[a1, a3], a4, a2, a2, n] + S2[a1, SP[a1, a4], a2, a3, a2, n] + 
    2*S2[a1, SP[a1, a4], a3, a2, a2, n] + S2[a1, SP[a2, a4], a1, a3, a2, n] + 
    2*S2[a1, SP[a3, a4], a1, a2, a2, n] + S2[a1, SP[a3, a4], a2, a1, a2, n] - 
    S2[a1, n]*S2[a4, a1, a2, a3, a2, n] - S2[a4, a1, a2, a3, SP[a1, a2], n] - 
    S2[a4, a1, a2, SP[a1, a3], a2, n] - 2*S2[a1, n]*
     S2[a4, a1, a3, a2, a2, n] - 2*S2[a4, a1, a3, a2, SP[a1, a2], n] - 
    2*S2[a4, a1, a3, SP[a1, a2], a2, n] - S2[a4, a1, SP[a1, a2], a3, a2, n] - 
    2*S2[a4, a1, SP[a1, a3], a2, a2, n] - 
    S2[a1, n]*S2[a4, a2, a1, a3, a2, n] - S2[a4, a2, a1, a3, SP[a1, a2], n] - 
    S2[a4, a2, a1, SP[a1, a3], a2, n] - S2[a4, a2, SP[a1, a1], a3, a2, n] - 
    S2[a4, SP[a1, a1], a2, a3, a2, n] - 2*S2[a4, SP[a1, a1], a3, a2, a2, n] - 
    S2[a4, SP[a1, a2], a1, a3, a2, n] - S2[SP[a1, a1], a2, a3, a2, a4, n] - 
    S2[SP[a1, a1], a2, a3, a4, a2, n] - S2[SP[a1, a1], a2, a4, a3, a2, n] - 
    2*S2[SP[a1, a1], a3, a2, a2, a4, n] - 
    2*S2[SP[a1, a1], a3, a2, a4, a2, n] - 
    2*S2[SP[a1, a1], a3, a4, a2, a2, n] - S2[SP[a1, a1], a4, a2, a3, a2, n] - 
    2*S2[SP[a1, a1], a4, a3, a2, a2, n] + S2[SP[a1, a4], a1, a2, a3, a2, n] + 
    2*S2[SP[a1, a4], a1, a3, a2, a2, n] + 
    2*S2[SP[a1, a4], a3, a1, a2, a2, n] + S2[SP[a1, a4], a3, a2, a1, a2, n] + 
    S2[a4, a1, a2, a1, a3, a2, n] + S2[a4, a1, a2, a3, a1, a2, n] + 
    S2[a4, a1, a2, a3, a2, a1, n] + S2[a4, a1, a3, a2, a1, a2, n] + 
    2*S2[a4, a1, a3, a2, a2, a1, n] + 2*S2[a4, a2, a1, a1, a3, a2, n] + 
    S2[a4, a2, a1, a3, a1, a2, n] + S2[a4, a2, a1, a3, a2, a1, n] /; 
   MyMemberQ[{{a1, a2}, {a3, a4}}, {a1, a1, a2, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a1_, a2_, a4_, a2_, a1_, a3_, n_] :> 
  S2[a1, a2, n]*S2[a1, a2, a3, a4, n] + S2[a1, a2, n]*S2[a1, a2, a4, a3, n] - 
    S2[a1, a2, SP[a1, a3], SP[a2, a4], n] - S2[a1, a2, SP[a1, a4], 
     SP[a2, a3], n] + S2[a1, a2, n]*S2[a1, a3, a2, a4, n] + 
    S2[a1, a2, n]*S2[a1, a3, a4, a2, n] - S2[a1, a3, SP[a1, a2], SP[a2, a4], 
     n] - S2[a1, a3, SP[a1, a4], SP[a2, a2], n] + 
    S2[a1, a2, n]*S2[a1, a4, a2, a3, n] + S2[a1, a2, n]*
     S2[a1, a4, a3, a2, n] - S2[a1, a4, SP[a1, a2], SP[a2, a3], n] - 
    S2[a1, a4, SP[a1, a3], SP[a2, a2], n] - S2[a1, SP[a1, a2], a3, 
     SP[a2, a4], n] - S2[a1, SP[a1, a2], a4, SP[a2, a3], n] - 
    S2[a1, SP[a1, a2], SP[a2, a3], a4, n] - S2[a1, SP[a1, a2], SP[a2, a4], 
     a3, n] - S2[a1, SP[a1, a3], a2, SP[a2, a4], n] - 
    S2[a1, SP[a1, a3], a4, SP[a2, a2], n] - S2[a1, SP[a1, a3], SP[a2, a2], 
     a4, n] - S2[a1, SP[a1, a3], SP[a2, a4], a2, n] - 
    S2[a1, SP[a1, a4], a2, SP[a2, a3], n] - S2[a1, SP[a1, a4], a3, 
     SP[a2, a2], n] - S2[a1, SP[a1, a4], SP[a2, a2], a3, n] - 
    S2[a1, SP[a1, a4], SP[a2, a3], a2, n] - S2[a1, a2, n]*
     S2[a2, a4, a1, a3, n] + S2[a2, a4, SP[a1, a1], SP[a2, a3], n] + 
    S2[a2, SP[a1, a4], a1, SP[a2, a3], n] + S2[a2, SP[a1, a4], SP[a1, a2], 
     a3, n] - S2[SP[a1, a1], a2, a3, SP[a2, a4], n] - 
    S2[SP[a1, a1], a2, a4, SP[a2, a3], n] - S2[SP[a1, a1], a2, SP[a2, a3], 
     a4, n] - S2[SP[a1, a1], a2, SP[a2, a4], a3, n] - 
    S2[SP[a1, a1], a3, a2, SP[a2, a4], n] - S2[SP[a1, a1], a3, a4, 
     SP[a2, a2], n] - S2[SP[a1, a1], a3, SP[a2, a2], a4, n] - 
    S2[SP[a1, a1], a3, SP[a2, a4], a2, n] - S2[SP[a1, a1], a4, a2, 
     SP[a2, a3], n] - S2[SP[a1, a1], a4, a3, SP[a2, a2], n] - 
    S2[SP[a1, a1], a4, SP[a2, a2], a3, n] - S2[SP[a1, a1], a4, SP[a2, a3], 
     a2, n] - S2[SP[a1, a1], SP[a2, a2], a3, a4, n] - 
    S2[SP[a1, a1], SP[a2, a2], a4, a3, n] - S2[SP[a1, a1], SP[a2, a3], a2, 
     a4, n] - S2[SP[a1, a1], SP[a2, a3], a4, a2, n] - 
    S2[SP[a1, a1], SP[a2, a4], a2, a3, n] - S2[SP[a1, a1], SP[a2, a4], a3, 
     a2, n] + S2[SP[a1, a2], a4, a1, SP[a2, a3], n] + 
    S2[SP[a1, a2], a4, SP[a1, a2], a3, n] + S2[SP[a1, a2], SP[a2, a4], a1, 
     a3, n] - 4*S2[a4, n]*S2[a1, a1, a2, a2, a3, n] - 
    4*S2[a1, a1, a2, a2, SP[a3, a4], n] - 
    4*S2[a4, n]*S2[a1, a1, a2, a3, a2, n] - 
    2*S2[a1, a1, a2, a3, SP[a2, a4], n] + 
    2*S2[a1, a1, a2, a4, SP[a2, a3], n] + 
    2*S2[a1, a1, a2, SP[a2, a3], a4, n] - 
    2*S2[a1, a1, a2, SP[a2, a4], a3, n] - 
    4*S2[a1, a1, a2, SP[a3, a4], a2, n] - 
    4*S2[a4, n]*S2[a1, a1, a3, a2, a2, n] - 
    2*S2[a1, a1, a3, a2, SP[a2, a4], n] + 
    2*S2[a1, a1, a3, a4, SP[a2, a2], n] + 
    2*S2[a1, a1, a3, SP[a2, a2], a4, n] - 
    2*S2[a1, a1, a3, SP[a2, a4], a2, n] + 
    2*S2[a1, a1, a4, a2, SP[a2, a3], n] + 
    2*S2[a1, a1, a4, a3, SP[a2, a2], n] + 
    2*S2[a1, a1, a4, SP[a2, a2], a3, n] + 
    2*S2[a1, a1, a4, SP[a2, a3], a2, n] + 
    2*S2[a1, a1, SP[a2, a2], a3, a4, n] + 
    2*S2[a1, a1, SP[a2, a2], a4, a3, n] + 
    2*S2[a1, a1, SP[a2, a3], a2, a4, n] + 
    2*S2[a1, a1, SP[a2, a3], a4, a2, n] - 
    2*S2[a1, a1, SP[a2, a4], a2, a3, n] - 
    2*S2[a1, a1, SP[a2, a4], a3, a2, n] - 
    4*S2[a1, a1, SP[a3, a4], a2, a2, n] - 
    2*S2[a4, n]*S2[a1, a2, a1, a2, a3, n] - 
    2*S2[a1, a2, a1, a2, SP[a3, a4], n] - 
    2*S2[a4, n]*S2[a1, a2, a1, a3, a2, n] - S2[a1, a2, a1, a3, SP[a2, a4], 
     n] + S2[a1, a2, a1, a4, SP[a2, a3], n] + S2[a1, a2, a1, SP[a2, a3], a4, 
     n] - S2[a1, a2, a1, SP[a2, a4], a3, n] - 
    2*S2[a1, a2, a1, SP[a3, a4], a2, n] - 
    S2[a4, n]*S2[a1, a2, a3, a1, a2, n] + 
    S2[a2, n]*S2[a1, a2, a4, a1, a3, n] + S2[a1, a2, a4, a1, SP[a2, a3], n] + 
    S2[a1, a2, a4, SP[a1, a3], a2, n] + S2[a1, a2, SP[a1, a3], a2, a4, n] + 
    S2[a1, a2, SP[a1, a3], a4, a2, n] - S2[a1, a2, SP[a1, a4], a2, a3, n] - 
    S2[a1, a2, SP[a1, a4], a3, a2, n] - S2[a1, a2, SP[a3, a4], a1, a2, n] - 
    2*S2[a4, n]*S2[a1, a3, a1, a2, a2, n] - S2[a1, a3, a1, a2, SP[a2, a4], 
     n] + S2[a1, a3, a1, a4, SP[a2, a2], n] + S2[a1, a3, a1, SP[a2, a2], a4, 
     n] - S2[a1, a3, a1, SP[a2, a4], a2, n] - 
    S2[a4, n]*S2[a1, a3, a2, a1, a2, n] + S2[a1, a3, a4, a1, SP[a2, a2], n] + 
    S2[a1, a3, a4, SP[a1, a2], a2, n] + S2[a1, a3, SP[a1, a2], a2, a4, n] + 
    S2[a1, a3, SP[a1, a2], a4, a2, n] - S2[a1, a3, SP[a2, a4], a1, a2, n] + 
    S2[a2, n]*S2[a1, a4, a1, a2, a3, n] + 
    2*S2[a1, a4, a1, a2, SP[a2, a3], n] + 
    S2[a2, n]*S2[a1, a4, a1, a3, a2, n] + 
    2*S2[a1, a4, a1, a3, SP[a2, a2], n] + 
    2*S2[a1, a4, a1, SP[a2, a2], a3, n] + 
    2*S2[a1, a4, a1, SP[a2, a3], a2, n] + 
    S2[a2, n]*S2[a1, a4, a2, a1, a3, n] + 
    2*S2[a1, a4, a2, a1, SP[a2, a3], n] + S2[a1, a4, a2, SP[a1, a2], a3, n] + 
    S2[a1, a4, a2, SP[a1, a3], a2, n] + S2[a1, a4, a3, a1, SP[a2, a2], n] + 
    S2[a1, a4, a3, SP[a1, a2], a2, n] + 2*S2[a1, a4, SP[a1, a2], a2, a3, n] + 
    2*S2[a1, a4, SP[a1, a2], a3, a2, n] + 
    2*S2[a1, a4, SP[a1, a3], a2, a2, n] + S2[a1, a4, SP[a2, a2], a1, a3, n] + 
    2*S2[a1, SP[a1, a2], a2, a3, a4, n] + 
    2*S2[a1, SP[a1, a2], a2, a4, a3, n] + 
    2*S2[a1, SP[a1, a2], a3, a2, a4, n] + 
    2*S2[a1, SP[a1, a2], a3, a4, a2, n] + 
    2*S2[a1, SP[a1, a2], a4, a2, a3, n] + 
    2*S2[a1, SP[a1, a2], a4, a3, a2, n] + 
    2*S2[a1, SP[a1, a3], a2, a2, a4, n] + 
    2*S2[a1, SP[a1, a3], a2, a4, a2, n] + 
    2*S2[a1, SP[a1, a3], a4, a2, a2, n] - 
    2*S2[a1, SP[a1, a4], a2, a2, a3, n] - 
    2*S2[a1, SP[a1, a4], a2, a3, a2, n] - 
    2*S2[a1, SP[a1, a4], a3, a2, a2, n] - S2[a1, SP[a2, a4], a1, a2, a3, n] - 
    S2[a1, SP[a2, a4], a1, a3, a2, n] + S2[a1, SP[a2, a4], a2, a1, a3, n] - 
    S2[a1, SP[a2, a4], a3, a1, a2, n] - 2*S2[a1, SP[a3, a4], a1, a2, a2, n] - 
    S2[a1, SP[a3, a4], a2, a1, a2, n] - S2[a2, a1, a4, a1, SP[a2, a3], n] - 
    S2[a2, a1, a4, SP[a1, a2], a3, n] - S2[a2, a1, SP[a2, a4], a1, a3, n] - 
    2*S2[a2, a4, a1, a1, SP[a2, a3], n] - S2[a2, a4, a1, SP[a1, a2], a3, n] - 
    S2[a2, a4, a1, SP[a1, a3], a2, n] - S2[a2, a4, SP[a1, a1], a2, a3, n] - 
    S2[a2, a4, SP[a1, a1], a3, a2, n] - S2[a2, SP[a1, a4], a1, a2, a3, n] - 
    S2[a2, SP[a1, a4], a1, a3, a2, n] - S2[a2, SP[a1, a4], a2, a1, a3, n] + 
    2*S2[a2, n]*S2[a4, a1, a1, a2, a3, n] + 
    2*S2[a4, a1, a1, a2, SP[a2, a3], n] + 
    2*S2[a2, n]*S2[a4, a1, a1, a3, a2, n] + 
    2*S2[a4, a1, a1, a3, SP[a2, a2], n] + 
    2*S2[a4, a1, a1, SP[a2, a2], a3, n] + 
    2*S2[a4, a1, a1, SP[a2, a3], a2, n] + 
    S2[a2, n]*S2[a4, a1, a2, a1, a3, n] + S2[a4, a1, a2, a1, SP[a2, a3], n] + 
    S2[a4, a1, a2, SP[a1, a2], a3, n] + S2[a2, n]*S2[a4, a1, a3, a1, a2, n] + 
    S2[a4, a1, a3, a1, SP[a2, a2], n] + S2[a4, a1, a3, SP[a1, a2], a2, n] + 
    2*S2[a4, a1, SP[a1, a2], a2, a3, n] + 
    2*S2[a4, a1, SP[a1, a2], a3, a2, n] + S2[a4, a1, SP[a2, a2], a1, a3, n] + 
    S2[a4, a1, SP[a2, a3], a1, a2, n] - S2[a1, n]*S2[a4, a2, a1, a2, a3, n] - 
    S2[a4, a2, a1, a2, SP[a1, a3], n] - S2[a1, n]*S2[a4, a2, a1, a3, a2, n] - 
    S2[a4, a2, a1, a3, SP[a1, a2], n] - S2[a4, a2, a1, SP[a1, a2], a3, n] - 
    S2[a4, a2, a1, SP[a1, a3], a2, n] - 2*S2[a1, n]*
     S2[a4, a2, a2, a1, a3, n] - 2*S2[a4, a2, a2, a1, SP[a1, a3], n] - 
    2*S2[a4, a2, a2, SP[a1, a1], a3, n] - S2[a4, a2, SP[a1, a1], a2, a3, n] - 
    S2[a4, a2, SP[a1, a1], a3, a2, n] - 2*S2[a4, a2, SP[a1, a2], a1, a3, n] + 
    S2[a4, SP[a1, a2], a1, a2, a3, n] + S2[a4, SP[a1, a2], a1, a3, a2, n] - 
    S2[a4, SP[a1, a2], a2, a1, a3, n] + S2[a4, SP[a1, a2], a3, a1, a2, n] + 
    2*S2[SP[a1, a1], a2, a2, a3, a4, n] + 
    2*S2[SP[a1, a1], a2, a2, a4, a3, n] + 
    2*S2[SP[a1, a1], a2, a3, a2, a4, n] + 
    2*S2[SP[a1, a1], a2, a3, a4, a2, n] + 
    2*S2[SP[a1, a1], a2, a4, a2, a3, n] + 
    2*S2[SP[a1, a1], a2, a4, a3, a2, n] + 
    2*S2[SP[a1, a1], a3, a2, a2, a4, n] + 
    2*S2[SP[a1, a1], a3, a2, a4, a2, n] + 
    2*S2[SP[a1, a1], a3, a4, a2, a2, n] + 
    2*S2[SP[a1, a1], a4, a2, a2, a3, n] + 
    2*S2[SP[a1, a1], a4, a2, a3, a2, n] + 
    2*S2[SP[a1, a1], a4, a3, a2, a2, n] - 
    4*S2[SP[a1, a4], a1, a2, a2, a3, n] - 
    4*S2[SP[a1, a4], a1, a2, a3, a2, n] - 
    4*S2[SP[a1, a4], a1, a3, a2, a2, n] - 
    3*S2[SP[a1, a4], a2, a1, a2, a3, n] - 
    3*S2[SP[a1, a4], a2, a1, a3, a2, n] - 
    2*S2[SP[a1, a4], a2, a2, a1, a3, n] - S2[SP[a1, a4], a2, a3, a1, a2, n] - 
    2*S2[SP[a1, a4], a3, a1, a2, a2, n] - S2[SP[a1, a4], a3, a2, a1, a2, n] + 
    2*S2[SP[a2, a4], a1, a1, a2, a3, n] + 
    2*S2[SP[a2, a4], a1, a1, a3, a2, n] + S2[SP[a2, a4], a1, a2, a1, a3, n] + 
    S2[SP[a2, a4], a1, a3, a1, a2, n] + 2*S2[a4, a2, a1, a2, a1, a3, n] + 
    S2[a4, a2, a1, a2, a3, a1, n] + S2[a4, a2, a1, a3, a2, a1, n] + 
    4*S2[a4, a2, a2, a1, a1, a3, n] + 2*S2[a4, a2, a2, a1, a3, a1, n] /; 
   MyMemberQ[{{a1, a2}, {a3, a4}}, {a1, a1, a2, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a1_, a2_, a4_, a2_, a3_, a1_, n_] :> 
  -(S2[a1, a2, n]*S2[a1, a3, a2, a4, n]) - S2[a1, a2, n]*
     S2[a1, a3, a4, a2, n] + S2[a1, a3, SP[a1, a2], SP[a2, a4], n] + 
    S2[a1, a3, SP[a1, a4], SP[a2, a2], n] - S2[a1, a2, n]*
     S2[a1, a4, a2, a3, n] - S2[a1, a2, n]*S2[a1, a4, a3, a2, n] + 
    S2[a1, a4, SP[a1, a2], SP[a2, a3], n] + S2[a1, a4, SP[a1, a3], 
     SP[a2, a2], n] + S2[a1, SP[a1, a3], a2, SP[a2, a4], n] + 
    S2[a1, SP[a1, a3], a4, SP[a2, a2], n] + S2[a1, SP[a1, a3], SP[a2, a2], 
     a4, n] + S2[a1, SP[a1, a3], SP[a2, a4], a2, n] + 
    S2[a1, SP[a1, a4], a2, SP[a2, a3], n] + S2[a1, SP[a1, a4], a3, 
     SP[a2, a2], n] + S2[a1, SP[a1, a4], SP[a2, a2], a3, n] + 
    S2[a1, SP[a1, a4], SP[a2, a3], a2, n] + S2[a1, a2, n]*
     S2[a2, a4, a1, a3, n] - S2[a2, a4, SP[a1, a1], SP[a2, a3], n] - 
    S2[a2, SP[a1, a4], a1, SP[a2, a3], n] - S2[a2, SP[a1, a4], SP[a1, a2], 
     a3, n] + S2[SP[a1, a1], a3, a2, SP[a2, a4], n] + 
    S2[SP[a1, a1], a3, a4, SP[a2, a2], n] + S2[SP[a1, a1], a3, SP[a2, a2], 
     a4, n] + S2[SP[a1, a1], a3, SP[a2, a4], a2, n] + 
    S2[SP[a1, a1], a4, a2, SP[a2, a3], n] + S2[SP[a1, a1], a4, a3, 
     SP[a2, a2], n] + S2[SP[a1, a1], a4, SP[a2, a2], a3, n] + 
    S2[SP[a1, a1], a4, SP[a2, a3], a2, n] + S2[SP[a1, a1], SP[a2, a3], a2, 
     a4, n] + S2[SP[a1, a1], SP[a2, a3], a4, a2, n] + 
    S2[SP[a1, a1], SP[a2, a4], a2, a3, n] + S2[SP[a1, a1], SP[a2, a4], a3, 
     a2, n] - S2[SP[a1, a2], a4, a1, SP[a2, a3], n] - 
    S2[SP[a1, a2], a4, SP[a1, a2], a3, n] - S2[SP[a1, a2], SP[a2, a4], a1, 
     a3, n] + 2*S2[a4, n]*S2[a1, a1, a2, a3, a2, n] + 
    2*S2[a1, a1, a2, a3, SP[a2, a4], n] + 
    2*S2[a1, a1, a2, SP[a3, a4], a2, n] + 
    4*S2[a4, n]*S2[a1, a1, a3, a2, a2, n] + 
    2*S2[a1, a1, a3, a2, SP[a2, a4], n] - 
    2*S2[a1, a1, a3, a4, SP[a2, a2], n] - 
    2*S2[a1, a1, a3, SP[a2, a2], a4, n] + 
    2*S2[a1, a1, a3, SP[a2, a4], a2, n] - 
    2*S2[a1, a1, a4, a2, SP[a2, a3], n] - 
    2*S2[a1, a1, a4, a3, SP[a2, a2], n] - 
    2*S2[a1, a1, a4, SP[a2, a2], a3, n] - 
    2*S2[a1, a1, a4, SP[a2, a3], a2, n] - 
    2*S2[a1, a1, SP[a2, a3], a2, a4, n] - 
    2*S2[a1, a1, SP[a2, a3], a4, a2, n] - 
    2*S2[a1, a1, SP[a2, a4], a2, a3, n] + 
    4*S2[a1, a1, SP[a3, a4], a2, a2, n] + 
    S2[a4, n]*S2[a1, a2, a1, a3, a2, n] + S2[a1, a2, a1, a3, SP[a2, a4], n] + 
    S2[a1, a2, a1, SP[a3, a4], a2, n] - S2[a2, n]*S2[a1, a2, a4, a1, a3, n] + 
    S2[a1, n]*S2[a1, a2, a4, a2, a3, n] + S2[a1, a2, a4, a2, SP[a1, a3], n] + 
    S2[a1, a2, a4, SP[a1, a2], a3, n] + S2[a1, a2, SP[a1, a4], a2, a3, n] + 
    S2[a1, a2, SP[a1, a4], a3, a2, n] + 2*S2[a4, n]*
     S2[a1, a3, a1, a2, a2, n] + S2[a1, a3, a1, a2, SP[a2, a4], n] - 
    S2[a1, a3, a1, a4, SP[a2, a2], n] - S2[a1, a3, a1, SP[a2, a2], a4, n] + 
    S2[a1, a3, a1, SP[a2, a4], a2, n] + S2[a4, n]*S2[a1, a3, a2, a1, a2, n] - 
    S2[a1, a3, a4, a1, SP[a2, a2], n] - S2[a1, a3, a4, SP[a1, a2], a2, n] - 
    S2[a1, a3, SP[a1, a2], a2, a4, n] - S2[a1, a3, SP[a1, a2], a4, a2, n] + 
    S2[a1, a3, SP[a2, a4], a1, a2, n] - S2[a2, n]*S2[a1, a4, a1, a2, a3, n] - 
    2*S2[a1, a4, a1, a2, SP[a2, a3], n] - 
    S2[a2, n]*S2[a1, a4, a1, a3, a2, n] - 
    2*S2[a1, a4, a1, a3, SP[a2, a2], n] - 
    2*S2[a1, a4, a1, SP[a2, a2], a3, n] - 
    2*S2[a1, a4, a1, SP[a2, a3], a2, n] - 
    S2[a2, n]*S2[a1, a4, a2, a1, a3, n] - 
    2*S2[a1, a4, a2, a1, SP[a2, a3], n] + 
    2*S2[a1, n]*S2[a1, a4, a2, a2, a3, n] + 
    2*S2[a1, a4, a2, a2, SP[a1, a3], n] + 
    S2[a1, n]*S2[a1, a4, a2, a3, a2, n] + S2[a1, a4, a2, a3, SP[a1, a2], n] + 
    S2[a1, a4, a2, SP[a1, a2], a3, n] - S2[a1, a4, a3, a1, SP[a2, a2], n] - 
    S2[a1, a4, a3, SP[a1, a2], a2, n] - S2[a1, a4, SP[a1, a2], a3, a2, n] - 
    2*S2[a1, a4, SP[a1, a3], a2, a2, n] - S2[a1, a4, SP[a2, a2], a1, a3, n] - 
    S2[a1, SP[a1, a2], a3, a2, a4, n] - S2[a1, SP[a1, a2], a3, a4, a2, n] - 
    S2[a1, SP[a1, a2], a4, a3, a2, n] - 2*S2[a1, SP[a1, a3], a2, a2, a4, n] - 
    2*S2[a1, SP[a1, a3], a2, a4, a2, n] - 
    2*S2[a1, SP[a1, a3], a4, a2, a2, n] + S2[a1, SP[a1, a4], a2, a3, a2, n] + 
    2*S2[a1, SP[a1, a4], a3, a2, a2, n] - S2[a1, SP[a2, a4], a1, a2, a3, n] - 
    S2[a1, SP[a2, a4], a2, a1, a3, n] + 2*S2[a1, SP[a3, a4], a1, a2, a2, n] + 
    S2[a1, SP[a3, a4], a2, a1, a2, n] + S2[a2, a1, a4, a1, SP[a2, a3], n] + 
    S2[a2, a1, a4, SP[a1, a2], a3, n] + S2[a2, a1, SP[a2, a4], a1, a3, n] + 
    2*S2[a2, a4, a1, a1, SP[a2, a3], n] + S2[a2, a4, a1, SP[a1, a2], a3, n] + 
    S2[a2, a4, a1, SP[a1, a3], a2, n] + S2[a2, a4, SP[a1, a1], a2, a3, n] + 
    S2[a2, a4, SP[a1, a1], a3, a2, n] + S2[a2, SP[a1, a4], a1, a2, a3, n] + 
    S2[a2, SP[a1, a4], a1, a3, a2, n] + S2[a2, SP[a1, a4], a2, a1, a3, n] - 
    2*S2[a2, n]*S2[a4, a1, a1, a2, a3, n] - 
    2*S2[a4, a1, a1, a2, SP[a2, a3], n] - 
    2*S2[a2, n]*S2[a4, a1, a1, a3, a2, n] - 
    2*S2[a4, a1, a1, a3, SP[a2, a2], n] - 
    2*S2[a4, a1, a1, SP[a2, a2], a3, n] - 
    2*S2[a4, a1, a1, SP[a2, a3], a2, n] - 
    S2[a2, n]*S2[a4, a1, a2, a1, a3, n] - S2[a4, a1, a2, a1, SP[a2, a3], n] + 
    2*S2[a1, n]*S2[a4, a1, a2, a2, a3, n] + 
    2*S2[a4, a1, a2, a2, SP[a1, a3], n] + 
    S2[a1, n]*S2[a4, a1, a2, a3, a2, n] + S2[a4, a1, a2, a3, SP[a1, a2], n] + 
    S2[a4, a1, a2, SP[a1, a2], a3, n] + S2[a4, a1, a2, SP[a1, a3], a2, n] - 
    S2[a2, n]*S2[a4, a1, a3, a1, a2, n] - S2[a4, a1, a3, a1, SP[a2, a2], n] - 
    S2[a4, a1, a3, SP[a1, a2], a2, n] - S2[a4, a1, SP[a1, a2], a3, a2, n] - 
    S2[a4, a1, SP[a2, a2], a1, a3, n] - S2[a4, a1, SP[a2, a3], a1, a2, n] + 
    S2[a1, n]*S2[a4, a2, a1, a2, a3, n] + S2[a4, a2, a1, a2, SP[a1, a3], n] + 
    S2[a1, n]*S2[a4, a2, a1, a3, a2, n] + S2[a4, a2, a1, a3, SP[a1, a2], n] + 
    S2[a4, a2, a1, SP[a1, a2], a3, n] + S2[a4, a2, a1, SP[a1, a3], a2, n] - 
    2*S2[a1, n]*S2[a4, a2, a2, a3, a1, n] - 
    2*S2[a4, a2, a2, a3, SP[a1, a1], n] - 
    2*S2[a4, a2, a2, SP[a1, a3], a1, n] - 
    S2[a1, n]*S2[a4, a2, a3, a2, a1, n] - S2[a4, a2, a3, a2, SP[a1, a1], n] - 
    S2[a4, a2, a3, SP[a1, a2], a1, n] + S2[a4, a2, SP[a1, a1], a2, a3, n] + 
    S2[a4, a2, SP[a1, a1], a3, a2, n] - 2*S2[a4, a2, SP[a1, a2], a3, a1, n] - 
    S2[a4, a2, SP[a1, a3], a2, a1, n] + 2*S2[a4, SP[a1, a1], a2, a2, a3, n] + 
    S2[a4, SP[a1, a1], a2, a3, a2, n] - S2[a4, SP[a1, a2], a1, a2, a3, n] - 
    S2[a4, SP[a1, a2], a1, a3, a2, n] - S2[a4, SP[a1, a2], a2, a1, a3, n] - 
    2*S2[a4, SP[a1, a2], a2, a3, a1, n] - S2[a4, SP[a1, a2], a3, a1, a2, n] - 
    S2[a4, SP[a1, a2], a3, a2, a1, n] - S2[SP[a1, a1], a2, a3, a2, a4, n] - 
    S2[SP[a1, a1], a2, a3, a4, a2, n] - S2[SP[a1, a1], a2, a4, a3, a2, n] - 
    2*S2[SP[a1, a1], a3, a2, a2, a4, n] - 
    2*S2[SP[a1, a1], a3, a2, a4, a2, n] - 
    2*S2[SP[a1, a1], a3, a4, a2, a2, n] - S2[SP[a1, a1], a4, a2, a3, a2, n] - 
    2*S2[SP[a1, a1], a4, a3, a2, a2, n] + 
    2*S2[SP[a1, a4], a1, a2, a2, a3, n] + 
    3*S2[SP[a1, a4], a1, a2, a3, a2, n] + 
    4*S2[SP[a1, a4], a1, a3, a2, a2, n] + S2[SP[a1, a4], a2, a1, a2, a3, n] + 
    2*S2[SP[a1, a4], a2, a1, a3, a2, n] - 
    2*S2[SP[a1, a4], a2, a2, a3, a1, n] - S2[SP[a1, a4], a2, a3, a2, a1, n] + 
    2*S2[SP[a1, a4], a3, a1, a2, a2, n] + S2[SP[a1, a4], a3, a2, a1, a2, n] - 
    2*S2[SP[a2, a4], a1, a1, a2, a3, n] - 
    2*S2[SP[a2, a4], a1, a1, a3, a2, n] - S2[SP[a2, a4], a1, a2, a1, a3, n] - 
    S2[SP[a2, a4], a1, a3, a1, a2, n] + S2[a4, a2, a1, a2, a3, a1, n] + 
    2*S2[a4, a2, a2, a1, a3, a1, n] + 4*S2[a4, a2, a2, a3, a1, a1, n] + 
    S2[a4, a2, a3, a1, a2, a1, n] + 2*S2[a4, a2, a3, a2, a1, a1, n] /; 
   MyMemberQ[{{a1, a2}, {a3, a4}}, {a1, a1, a2, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a1_, a2_, a4_, a3_, a1_, a2_, n_] :> 
  S2[a1, a2, n]*S2[a1, a2, a3, a4, n] + S2[a1, a2, n]*S2[a1, a2, a4, a3, n] - 
    S2[a1, a2, SP[a1, a3], SP[a2, a4], n] - S2[a1, a2, SP[a1, a4], 
     SP[a2, a3], n] + S2[a1, a2, n]*S2[a1, a3, a2, a4, n] + 
    S2[a1, a2, n]*S2[a1, a3, a4, a2, n] - S2[a1, a3, SP[a1, a2], SP[a2, a4], 
     n] - S2[a1, a3, SP[a1, a4], SP[a2, a2], n] + 
    S2[a1, a2, n]*S2[a1, a4, a2, a3, n] + S2[a1, a2, n]*
     S2[a1, a4, a3, a2, n] - S2[a1, a4, SP[a1, a2], SP[a2, a3], n] - 
    S2[a1, a4, SP[a1, a3], SP[a2, a2], n] - S2[a1, SP[a1, a2], a3, 
     SP[a2, a4], n] - S2[a1, SP[a1, a2], a4, SP[a2, a3], n] - 
    S2[a1, SP[a1, a2], SP[a2, a3], a4, n] - S2[a1, SP[a1, a2], SP[a2, a4], 
     a3, n] - S2[a1, SP[a1, a3], a2, SP[a2, a4], n] - 
    S2[a1, SP[a1, a3], a4, SP[a2, a2], n] - S2[a1, SP[a1, a3], SP[a2, a2], 
     a4, n] - S2[a1, SP[a1, a3], SP[a2, a4], a2, n] - 
    S2[a1, SP[a1, a4], a2, SP[a2, a3], n] - S2[a1, SP[a1, a4], a3, 
     SP[a2, a2], n] - S2[a1, SP[a1, a4], SP[a2, a2], a3, n] - 
    S2[a1, SP[a1, a4], SP[a2, a3], a2, n] - S2[a1, a2, n]*
     S2[a3, a4, a1, a2, n] + S2[a3, a4, SP[a1, a1], SP[a2, a2], n] + 
    S2[a3, SP[a1, a4], a1, SP[a2, a2], n] + S2[a3, SP[a1, a4], SP[a1, a2], 
     a2, n] - S2[SP[a1, a1], a2, a3, SP[a2, a4], n] - 
    S2[SP[a1, a1], a2, a4, SP[a2, a3], n] - S2[SP[a1, a1], a2, SP[a2, a3], 
     a4, n] - S2[SP[a1, a1], a2, SP[a2, a4], a3, n] - 
    S2[SP[a1, a1], a3, a2, SP[a2, a4], n] - S2[SP[a1, a1], a3, a4, 
     SP[a2, a2], n] - S2[SP[a1, a1], a3, SP[a2, a2], a4, n] - 
    S2[SP[a1, a1], a3, SP[a2, a4], a2, n] - S2[SP[a1, a1], a4, a2, 
     SP[a2, a3], n] - S2[SP[a1, a1], a4, a3, SP[a2, a2], n] - 
    S2[SP[a1, a1], a4, SP[a2, a2], a3, n] - S2[SP[a1, a1], a4, SP[a2, a3], 
     a2, n] - S2[SP[a1, a1], SP[a2, a2], a3, a4, n] - 
    S2[SP[a1, a1], SP[a2, a2], a4, a3, n] - S2[SP[a1, a1], SP[a2, a3], a2, 
     a4, n] - S2[SP[a1, a1], SP[a2, a3], a4, a2, n] - 
    S2[SP[a1, a1], SP[a2, a4], a2, a3, n] - S2[SP[a1, a1], SP[a2, a4], a3, 
     a2, n] + S2[SP[a1, a3], a4, a1, SP[a2, a2], n] + 
    S2[SP[a1, a3], a4, SP[a1, a2], a2, n] + S2[SP[a1, a3], SP[a2, a4], a1, 
     a2, n] - 4*S2[a4, n]*S2[a1, a1, a2, a2, a3, n] - 
    4*S2[a1, a1, a2, a2, SP[a3, a4], n] - 
    4*S2[a4, n]*S2[a1, a1, a2, a3, a2, n] - 
    2*S2[a1, a1, a2, a3, SP[a2, a4], n] + 
    2*S2[a1, a1, a2, a4, SP[a2, a3], n] + 
    2*S2[a1, a1, a2, SP[a2, a3], a4, n] - 
    2*S2[a1, a1, a2, SP[a2, a4], a3, n] - 
    4*S2[a1, a1, a2, SP[a3, a4], a2, n] - 
    4*S2[a4, n]*S2[a1, a1, a3, a2, a2, n] - 
    2*S2[a1, a1, a3, a2, SP[a2, a4], n] + 
    2*S2[a1, a1, a3, a4, SP[a2, a2], n] + 
    2*S2[a1, a1, a3, SP[a2, a2], a4, n] - 
    2*S2[a1, a1, a3, SP[a2, a4], a2, n] + 
    2*S2[a1, a1, a4, a2, SP[a2, a3], n] + 
    2*S2[a1, a1, a4, a3, SP[a2, a2], n] + 
    2*S2[a1, a1, a4, SP[a2, a2], a3, n] + 
    2*S2[a1, a1, a4, SP[a2, a3], a2, n] + 
    2*S2[a1, a1, SP[a2, a2], a3, a4, n] + 
    2*S2[a1, a1, SP[a2, a2], a4, a3, n] + 
    2*S2[a1, a1, SP[a2, a3], a2, a4, n] + 
    2*S2[a1, a1, SP[a2, a3], a4, a2, n] - 
    2*S2[a1, a1, SP[a2, a4], a2, a3, n] - 
    2*S2[a1, a1, SP[a2, a4], a3, a2, n] - 
    4*S2[a1, a1, SP[a3, a4], a2, a2, n] - 
    2*S2[a4, n]*S2[a1, a2, a1, a2, a3, n] - 
    2*S2[a1, a2, a1, a2, SP[a3, a4], n] - 
    2*S2[a4, n]*S2[a1, a2, a1, a3, a2, n] - S2[a1, a2, a1, a3, SP[a2, a4], 
     n] + S2[a1, a2, a1, a4, SP[a2, a3], n] + S2[a1, a2, a1, SP[a2, a3], a4, 
     n] - S2[a1, a2, a1, SP[a2, a4], a3, n] - 
    2*S2[a1, a2, a1, SP[a3, a4], a2, n] - 
    S2[a4, n]*S2[a1, a2, a3, a1, a2, n] + 
    S2[a3, n]*S2[a1, a2, a4, a1, a2, n] + 
    2*S2[a1, a2, a4, a1, SP[a2, a3], n] + 
    2*S2[a1, a2, a4, SP[a1, a3], a2, n] + S2[a1, a2, SP[a1, a3], a2, a4, n] + 
    S2[a1, a2, SP[a1, a3], a4, a2, n] - S2[a1, a2, SP[a1, a4], a2, a3, n] - 
    S2[a1, a2, SP[a1, a4], a3, a2, n] - 2*S2[a4, n]*
     S2[a1, a3, a1, a2, a2, n] - S2[a1, a3, a1, a2, SP[a2, a4], n] + 
    S2[a1, a3, a1, a4, SP[a2, a2], n] + S2[a1, a3, a1, SP[a2, a2], a4, n] - 
    S2[a1, a3, a1, SP[a2, a4], a2, n] - S2[a4, n]*S2[a1, a3, a2, a1, a2, n] + 
    S2[a1, a3, SP[a1, a2], a2, a4, n] + S2[a1, a3, SP[a1, a2], a4, a2, n] - 
    2*S2[a1, a3, SP[a2, a4], a1, a2, n] + 
    2*S2[a3, n]*S2[a1, a4, a1, a2, a2, n] + 
    3*S2[a1, a4, a1, a2, SP[a2, a3], n] + S2[a1, a4, a1, a3, SP[a2, a2], n] + 
    S2[a1, a4, a1, SP[a2, a2], a3, n] + 3*S2[a1, a4, a1, SP[a2, a3], a2, n] + 
    S2[a3, n]*S2[a1, a4, a2, a1, a2, n] + 
    2*S2[a1, a4, a2, a1, SP[a2, a3], n] + 
    2*S2[a1, a4, a2, SP[a1, a3], a2, n] + S2[a1, a4, a3, a1, SP[a2, a2], n] + 
    S2[a1, a4, a3, SP[a1, a2], a2, n] + S2[a1, a4, SP[a1, a2], a2, a3, n] + 
    S2[a1, a4, SP[a1, a2], a3, a2, n] + 4*S2[a1, a4, SP[a1, a3], a2, a2, n] + 
    S2[a1, a4, SP[a2, a3], a1, a2, n] + 2*S2[a1, SP[a1, a2], a2, a3, a4, n] + 
    2*S2[a1, SP[a1, a2], a2, a4, a3, n] + 
    2*S2[a1, SP[a1, a2], a3, a2, a4, n] + 
    2*S2[a1, SP[a1, a2], a3, a4, a2, n] + 
    2*S2[a1, SP[a1, a2], a4, a2, a3, n] + 
    2*S2[a1, SP[a1, a2], a4, a3, a2, n] + 
    2*S2[a1, SP[a1, a3], a2, a2, a4, n] + 
    2*S2[a1, SP[a1, a3], a2, a4, a2, n] + 
    2*S2[a1, SP[a1, a3], a4, a2, a2, n] - 
    2*S2[a1, SP[a1, a4], a2, a2, a3, n] - 
    2*S2[a1, SP[a1, a4], a2, a3, a2, n] - 
    2*S2[a1, SP[a1, a4], a3, a2, a2, n] - 
    2*S2[a1, SP[a2, a4], a1, a2, a3, n] - 
    2*S2[a1, SP[a2, a4], a1, a3, a2, n] - S2[a1, SP[a2, a4], a3, a1, a2, n] - 
    S2[a3, a1, a4, a1, SP[a2, a2], n] - S2[a3, a1, a4, SP[a1, a2], a2, n] - 
    S2[a3, a1, SP[a2, a4], a1, a2, n] - 2*S2[a3, a4, a1, a1, SP[a2, a2], n] - 
    2*S2[a3, a4, a1, SP[a1, a2], a2, n] - 
    2*S2[a3, a4, SP[a1, a1], a2, a2, n] - 
    2*S2[a3, SP[a1, a4], a1, a2, a2, n] - S2[a3, SP[a1, a4], a2, a1, a2, n] + 
    4*S2[a3, n]*S2[a4, a1, a1, a2, a2, n] + 
    4*S2[a4, a1, a1, a2, SP[a2, a3], n] + 
    4*S2[a4, a1, a1, SP[a2, a3], a2, n] + 
    2*S2[a3, n]*S2[a4, a1, a2, a1, a2, n] + 
    2*S2[a4, a1, a2, a1, SP[a2, a3], n] + 
    2*S2[a4, a1, a2, SP[a1, a3], a2, n] + 
    4*S2[a4, a1, SP[a1, a3], a2, a2, n] + 
    2*S2[a4, a1, SP[a2, a3], a1, a2, n] - 
    S2[a1, n]*S2[a4, a2, a3, a1, a2, n] - S2[a4, a2, a3, a1, SP[a1, a2], n] - 
    S2[a4, a2, a3, SP[a1, a1], a2, n] - S2[a4, a2, SP[a1, a3], a1, a2, n] - 
    2*S2[a1, n]*S2[a4, a3, a1, a2, a2, n] - 
    2*S2[a4, a3, a1, a2, SP[a1, a2], n] - 
    2*S2[a4, a3, a1, SP[a1, a2], a2, n] - 
    S2[a1, n]*S2[a4, a3, a2, a1, a2, n] - S2[a4, a3, a2, a1, SP[a1, a2], n] - 
    S2[a4, a3, a2, SP[a1, a1], a2, n] - 2*S2[a4, a3, SP[a1, a1], a2, a2, n] - 
    S2[a4, a3, SP[a1, a2], a1, a2, n] - S2[a4, SP[a1, a2], a3, a1, a2, n] + 
    2*S2[a4, SP[a1, a3], a1, a2, a2, n] + S2[a4, SP[a1, a3], a2, a1, a2, n] + 
    2*S2[SP[a1, a1], a2, a2, a3, a4, n] + 
    2*S2[SP[a1, a1], a2, a2, a4, a3, n] + 
    2*S2[SP[a1, a1], a2, a3, a2, a4, n] + 
    2*S2[SP[a1, a1], a2, a3, a4, a2, n] + 
    2*S2[SP[a1, a1], a2, a4, a2, a3, n] + 
    2*S2[SP[a1, a1], a2, a4, a3, a2, n] + 
    2*S2[SP[a1, a1], a3, a2, a2, a4, n] + 
    2*S2[SP[a1, a1], a3, a2, a4, a2, n] + 
    2*S2[SP[a1, a1], a3, a4, a2, a2, n] + 
    2*S2[SP[a1, a1], a4, a2, a2, a3, n] + 
    2*S2[SP[a1, a1], a4, a2, a3, a2, n] + 
    2*S2[SP[a1, a1], a4, a3, a2, a2, n] - 
    4*S2[SP[a1, a4], a1, a2, a2, a3, n] - 
    4*S2[SP[a1, a4], a1, a2, a3, a2, n] - 
    4*S2[SP[a1, a4], a1, a3, a2, a2, n] - 
    2*S2[SP[a1, a4], a2, a1, a2, a3, n] - 
    2*S2[SP[a1, a4], a2, a1, a3, a2, n] - 
    2*S2[SP[a1, a4], a2, a3, a1, a2, n] - 
    4*S2[SP[a1, a4], a3, a1, a2, a2, n] - 
    2*S2[SP[a1, a4], a3, a2, a1, a2, n] + 
    4*S2[SP[a3, a4], a1, a1, a2, a2, n] + 
    2*S2[SP[a3, a4], a1, a2, a1, a2, n] + S2[a4, a2, a1, a3, a1, a2, n] + 
    2*S2[a4, a2, a3, a1, a1, a2, n] + S2[a4, a2, a3, a1, a2, a1, n] + 
    S2[a4, a3, a1, a2, a1, a2, n] + 2*S2[a4, a3, a1, a2, a2, a1, n] + 
    2*S2[a4, a3, a2, a1, a1, a2, n] + S2[a4, a3, a2, a1, a2, a1, n] /; 
   MyMemberQ[{{a1, a2}, {a3, a4}}, {a1, a1, a2, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a1_, a2_, a4_, a3_, a2_, a1_, n_] :> 
  -(S2[a1, a2, n]*S2[a1, a2, a3, a4, n]) - S2[a1, a2, n]*
     S2[a1, a2, a4, a3, n] + S2[a1, a2, SP[a1, a3], SP[a2, a4], n] + 
    S2[a1, a2, SP[a1, a4], SP[a2, a3], n] - S2[a1, a2, n]*
     S2[a1, a4, a2, a3, n] - S2[a1, a2, n]*S2[a1, a4, a3, a2, n] + 
    S2[a1, a4, SP[a1, a2], SP[a2, a3], n] + S2[a1, a4, SP[a1, a3], 
     SP[a2, a2], n] + S2[a1, SP[a1, a2], a3, SP[a2, a4], n] + 
    S2[a1, SP[a1, a2], a4, SP[a2, a3], n] + S2[a1, SP[a1, a2], SP[a2, a3], 
     a4, n] + S2[a1, SP[a1, a2], SP[a2, a4], a3, n] + 
    S2[a1, SP[a1, a4], a2, SP[a2, a3], n] + S2[a1, SP[a1, a4], a3, 
     SP[a2, a2], n] + S2[a1, SP[a1, a4], SP[a2, a2], a3, n] + 
    S2[a1, SP[a1, a4], SP[a2, a3], a2, n] + S2[a1, a2, n]*
     S2[a3, a4, a1, a2, n] - S2[a3, a4, SP[a1, a1], SP[a2, a2], n] - 
    S2[a3, SP[a1, a4], a1, SP[a2, a2], n] - S2[a3, SP[a1, a4], SP[a1, a2], 
     a2, n] + S2[SP[a1, a1], a2, a3, SP[a2, a4], n] + 
    S2[SP[a1, a1], a2, a4, SP[a2, a3], n] + S2[SP[a1, a1], a2, SP[a2, a3], 
     a4, n] + S2[SP[a1, a1], a2, SP[a2, a4], a3, n] + 
    S2[SP[a1, a1], a4, a2, SP[a2, a3], n] + S2[SP[a1, a1], a4, a3, 
     SP[a2, a2], n] + S2[SP[a1, a1], a4, SP[a2, a2], a3, n] + 
    S2[SP[a1, a1], a4, SP[a2, a3], a2, n] + S2[SP[a1, a1], SP[a2, a2], a3, 
     a4, n] + S2[SP[a1, a1], SP[a2, a2], a4, a3, n] + 
    S2[SP[a1, a1], SP[a2, a4], a2, a3, n] + S2[SP[a1, a1], SP[a2, a4], a3, 
     a2, n] - S2[SP[a1, a3], a4, a1, SP[a2, a2], n] - 
    S2[SP[a1, a3], a4, SP[a1, a2], a2, n] - S2[SP[a1, a3], SP[a2, a4], a1, 
     a2, n] + 4*S2[a4, n]*S2[a1, a1, a2, a2, a3, n] + 
    4*S2[a1, a1, a2, a2, SP[a3, a4], n] + 
    2*S2[a4, n]*S2[a1, a1, a2, a3, a2, n] - 
    2*S2[a1, a1, a2, a4, SP[a2, a3], n] - 
    2*S2[a1, a1, a2, SP[a2, a3], a4, n] + 
    2*S2[a1, a1, a2, SP[a2, a4], a3, n] + 
    2*S2[a1, a1, a2, SP[a3, a4], a2, n] - 
    2*S2[a1, a1, a4, a2, SP[a2, a3], n] - 
    2*S2[a1, a1, a4, a3, SP[a2, a2], n] - 
    2*S2[a1, a1, a4, SP[a2, a2], a3, n] - 
    2*S2[a1, a1, a4, SP[a2, a3], a2, n] - 
    2*S2[a1, a1, SP[a2, a2], a3, a4, n] - 
    2*S2[a1, a1, SP[a2, a2], a4, a3, n] + 
    2*S2[a1, a1, SP[a2, a4], a2, a3, n] + 
    2*S2[a4, n]*S2[a1, a2, a1, a2, a3, n] + 
    2*S2[a1, a2, a1, a2, SP[a3, a4], n] + 
    S2[a4, n]*S2[a1, a2, a1, a3, a2, n] - S2[a1, a2, a1, a4, SP[a2, a3], n] - 
    S2[a1, a2, a1, SP[a2, a3], a4, n] + S2[a1, a2, a1, SP[a2, a4], a3, n] + 
    S2[a1, a2, a1, SP[a3, a4], a2, n] + S2[a4, n]*S2[a1, a2, a3, a1, a2, n] - 
    S2[a3, n]*S2[a1, a2, a4, a1, a2, n] - 
    2*S2[a1, a2, a4, a1, SP[a2, a3], n] + 
    S2[a1, n]*S2[a1, a2, a4, a3, a2, n] + S2[a1, a2, a4, a3, SP[a1, a2], n] - 
    S2[a1, a2, a4, SP[a1, a3], a2, n] - S2[a1, a2, SP[a1, a3], a2, a4, n] - 
    S2[a1, a2, SP[a1, a3], a4, a2, n] + S2[a1, a2, SP[a1, a4], a2, a3, n] + 
    S2[a1, a2, SP[a1, a4], a3, a2, n] + S2[a1, a3, a4, a1, SP[a2, a2], n] + 
    S2[a1, a3, a4, SP[a1, a2], a2, n] + S2[a1, a3, SP[a2, a4], a1, a2, n] - 
    2*S2[a3, n]*S2[a1, a4, a1, a2, a2, n] - 
    3*S2[a1, a4, a1, a2, SP[a2, a3], n] - S2[a1, a4, a1, a3, SP[a2, a2], n] - 
    S2[a1, a4, a1, SP[a2, a2], a3, n] - 3*S2[a1, a4, a1, SP[a2, a3], a2, n] - 
    S2[a3, n]*S2[a1, a4, a2, a1, a2, n] - 
    2*S2[a1, a4, a2, a1, SP[a2, a3], n] + 
    S2[a1, n]*S2[a1, a4, a2, a3, a2, n] + S2[a1, a4, a2, a3, SP[a1, a2], n] - 
    S2[a1, a4, a2, SP[a1, a3], a2, n] - S2[a1, a4, a3, a1, SP[a2, a2], n] + 
    2*S2[a1, n]*S2[a1, a4, a3, a2, a2, n] + 
    2*S2[a1, a4, a3, a2, SP[a1, a2], n] + S2[a1, a4, a3, SP[a1, a2], a2, n] - 
    S2[a1, a4, SP[a1, a2], a2, a3, n] - 2*S2[a1, a4, SP[a1, a3], a2, a2, n] - 
    S2[a1, a4, SP[a2, a3], a1, a2, n] - 2*S2[a1, SP[a1, a2], a2, a3, a4, n] - 
    2*S2[a1, SP[a1, a2], a2, a4, a3, n] - S2[a1, SP[a1, a2], a3, a2, a4, n] - 
    S2[a1, SP[a1, a2], a3, a4, a2, n] - 2*S2[a1, SP[a1, a2], a4, a2, a3, n] - 
    S2[a1, SP[a1, a2], a4, a3, a2, n] + 2*S2[a1, SP[a1, a4], a2, a2, a3, n] + 
    S2[a1, SP[a1, a4], a2, a3, a2, n] + 2*S2[a1, SP[a2, a4], a1, a2, a3, n] + 
    S2[a1, SP[a2, a4], a1, a3, a2, n] + S2[a1, SP[a2, a4], a3, a1, a2, n] - 
    2*S2[a1, SP[a3, a4], a1, a2, a2, n] - S2[a1, SP[a3, a4], a2, a1, a2, n] + 
    S2[a3, a1, a4, a1, SP[a2, a2], n] + S2[a3, a1, a4, SP[a1, a2], a2, n] + 
    S2[a3, a1, SP[a2, a4], a1, a2, n] + 2*S2[a3, a4, a1, a1, SP[a2, a2], n] + 
    2*S2[a3, a4, a1, SP[a1, a2], a2, n] + 
    2*S2[a3, a4, SP[a1, a1], a2, a2, n] + 
    2*S2[a3, SP[a1, a4], a1, a2, a2, n] + S2[a3, SP[a1, a4], a2, a1, a2, n] - 
    4*S2[a3, n]*S2[a4, a1, a1, a2, a2, n] - 
    4*S2[a4, a1, a1, a2, SP[a2, a3], n] - 
    4*S2[a4, a1, a1, SP[a2, a3], a2, n] - 
    2*S2[a3, n]*S2[a4, a1, a2, a1, a2, n] - 
    2*S2[a4, a1, a2, a1, SP[a2, a3], n] + 
    S2[a1, n]*S2[a4, a1, a2, a3, a2, n] + S2[a4, a1, a2, a3, SP[a1, a2], n] - 
    S2[a4, a1, a2, SP[a1, a3], a2, n] + 2*S2[a1, n]*
     S2[a4, a1, a3, a2, a2, n] + 2*S2[a4, a1, a3, a2, SP[a1, a2], n] + 
    2*S2[a4, a1, a3, SP[a1, a2], a2, n] + S2[a4, a1, SP[a1, a2], a3, a2, n] - 
    2*S2[a4, a1, SP[a1, a3], a2, a2, n] - 
    2*S2[a4, a1, SP[a2, a3], a1, a2, n] - 
    S2[a1, n]*S2[a4, a2, a3, a2, a1, n] - S2[a4, a2, a3, a2, SP[a1, a1], n] - 
    S2[a4, a2, a3, SP[a1, a2], a1, n] - S2[a4, a2, SP[a1, a3], a2, a1, n] + 
    2*S2[a1, n]*S2[a4, a3, a1, a2, a2, n] + 
    2*S2[a4, a3, a1, a2, SP[a1, a2], n] + 
    2*S2[a4, a3, a1, SP[a1, a2], a2, n] - 
    2*S2[a1, n]*S2[a4, a3, a2, a2, a1, n] - 
    2*S2[a4, a3, a2, a2, SP[a1, a1], n] - 
    2*S2[a4, a3, a2, SP[a1, a2], a1, n] + 
    2*S2[a4, a3, SP[a1, a1], a2, a2, n] - 
    2*S2[a4, a3, SP[a1, a2], a2, a1, n] + S2[a4, SP[a1, a1], a2, a3, a2, n] + 
    2*S2[a4, SP[a1, a1], a3, a2, a2, n] - S2[a4, SP[a1, a2], a3, a2, a1, n] - 
    2*S2[a4, SP[a1, a3], a1, a2, a2, n] - 
    2*S2[a4, SP[a1, a3], a2, a1, a2, n] - 
    2*S2[a4, SP[a1, a3], a2, a2, a1, n] - 
    2*S2[SP[a1, a1], a2, a2, a3, a4, n] - 
    2*S2[SP[a1, a1], a2, a2, a4, a3, n] - S2[SP[a1, a1], a2, a3, a2, a4, n] - 
    S2[SP[a1, a1], a2, a3, a4, a2, n] - 2*S2[SP[a1, a1], a2, a4, a2, a3, n] - 
    S2[SP[a1, a1], a2, a4, a3, a2, n] - 2*S2[SP[a1, a1], a4, a2, a2, a3, n] - 
    S2[SP[a1, a1], a4, a2, a3, a2, n] + 4*S2[SP[a1, a4], a1, a2, a2, a3, n] + 
    3*S2[SP[a1, a4], a1, a2, a3, a2, n] + 
    2*S2[SP[a1, a4], a1, a3, a2, a2, n] + 
    2*S2[SP[a1, a4], a2, a1, a2, a3, n] + S2[SP[a1, a4], a2, a1, a3, a2, n] + 
    S2[SP[a1, a4], a2, a3, a1, a2, n] - S2[SP[a1, a4], a2, a3, a2, a1, n] + 
    2*S2[SP[a1, a4], a3, a1, a2, a2, n] - 
    2*S2[SP[a1, a4], a3, a2, a2, a1, n] - 
    4*S2[SP[a3, a4], a1, a1, a2, a2, n] - 
    2*S2[SP[a3, a4], a1, a2, a1, a2, n] + S2[a4, a2, a1, a3, a2, a1, n] + 
    S2[a4, a2, a3, a1, a2, a1, n] + 2*S2[a4, a2, a3, a2, a1, a1, n] + 
    2*S2[a4, a3, a2, a1, a2, a1, n] + 4*S2[a4, a3, a2, a2, a1, a1, n] /; 
   MyMemberQ[{{a1, a2}, {a3, a4}}, {a1, a1, a2, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a1_, a3_, a1_, a2_, a2_, a4_, n_] :> 
  -2*S2[a1, a1, a3, n]*S2[a2, a2, a4, n] - 
    2*S2[SP[a1, a2], SP[a1, a2], SP[a3, a4], n] - 
    2*S2[a2, a4, n]*S2[a1, a1, a2, a3, n] - 2*S2[a2, a4, n]*
     S2[a1, a1, a3, a2, n] + 2*S2[a1, a1, SP[a2, a2], SP[a3, a4], n] + 
    2*S2[a1, a1, SP[a2, a3], SP[a2, a4], n] - 
    S2[a2, a4, n]*S2[a1, a2, a1, a3, n] + S2[a1, a3, n]*
     S2[a1, a2, a2, a4, n] + 2*S2[a1, a2, SP[a1, a2], SP[a3, a4], n] + 
    3*S2[a1, SP[a1, a2], a2, SP[a3, a4], n] + 
    2*S2[a1, SP[a1, a2], a3, SP[a2, a4], n] + S2[a1, SP[a1, a2], SP[a2, a3], 
     a4, n] + 2*S2[a1, SP[a1, a2], SP[a2, a4], a3, n] + 
    2*S2[a1, SP[a1, a2], SP[a3, a4], a2, n] + S2[a1, SP[a2, a2], a1, 
     SP[a3, a4], n] + S2[a1, SP[a2, a2], SP[a1, a4], a3, n] + 
    2*S2[a2, a1, SP[a1, a2], SP[a3, a4], n] + 
    2*S2[a2, SP[a1, a2], a1, SP[a3, a4], n] + 
    2*S2[a2, SP[a1, a2], SP[a1, a4], a3, n] - S2[SP[a1, a1], a2, a2, 
     SP[a3, a4], n] - S2[SP[a1, a1], a2, SP[a2, a3], a4, n] - 
    S2[SP[a1, a1], SP[a2, a3], a2, a4, n] + 
    4*S2[SP[a1, a2], a1, a2, SP[a3, a4], n] + 
    2*S2[SP[a1, a2], a1, a3, SP[a2, a4], n] + 
    2*S2[SP[a1, a2], a1, SP[a2, a3], a4, n] + 
    2*S2[SP[a1, a2], a1, SP[a2, a4], a3, n] + 
    2*S2[SP[a1, a2], a1, SP[a3, a4], a2, n] + 
    3*S2[SP[a1, a2], a2, a1, SP[a3, a4], n] + 
    3*S2[SP[a1, a2], a2, SP[a1, a4], a3, n] + 
    2*S2[SP[a1, a2], SP[a1, a2], a3, a4, n] + 
    2*S2[SP[a1, a2], SP[a1, a2], a4, a3, n] + 
    2*S2[SP[a1, a2], SP[a1, a4], a2, a3, n] + 
    2*S2[SP[a1, a2], SP[a1, a4], a3, a2, n] + S2[SP[a1, a2], SP[a2, a4], a1, 
     a3, n] - 2*S2[a4, n]*S2[a1, a1, a2, a2, a3, n] - 
    6*S2[a1, a1, a2, a2, SP[a3, a4], n] - 
    2*S2[a4, n]*S2[a1, a1, a2, a3, a2, n] + 
    3*S2[a2, n]*S2[a1, a1, a2, a3, a4, n] - S2[a1, a1, a2, a3, SP[a2, a4], 
     n] + 3*S2[a2, n]*S2[a1, a1, a2, a4, a3, n] + 
    3*S2[a1, a1, a2, a4, SP[a2, a3], n] + S2[a1, a1, a2, SP[a2, a3], a4, n] - 
    S2[a1, a1, a2, SP[a2, a4], a3, n] - 4*S2[a1, a1, a2, SP[a3, a4], a2, n] - 
    2*S2[a4, n]*S2[a1, a1, a3, a2, a2, n] + 
    3*S2[a2, n]*S2[a1, a1, a3, a2, a4, n] - S2[a1, a1, a3, a2, SP[a2, a4], 
     n] + S2[a2, n]*S2[a1, a1, a3, a4, a2, n] + S2[a1, a1, a3, a4, 
     SP[a2, a2], n] + S2[a1, a1, a3, SP[a2, a2], a4, n] - 
    S2[a1, a1, a3, SP[a2, a4], a2, n] + S2[a2, n]*S2[a1, a1, a4, a2, a3, n] + 
    S2[a1, a1, a4, a2, SP[a2, a3], n] + S2[a2, n]*S2[a1, a1, a4, a3, a2, n] + 
    S2[a1, a1, a4, a3, SP[a2, a2], n] + S2[a1, a1, a4, SP[a2, a2], a3, n] + 
    S2[a1, a1, a4, SP[a2, a3], a2, n] + S2[a1, a1, SP[a2, a2], a3, a4, n] + 
    S2[a1, a1, SP[a2, a2], a4, a3, n] + S2[a1, a1, SP[a2, a3], a2, a4, n] - 
    S2[a1, a1, SP[a2, a3], a4, a2, n] - S2[a1, a1, SP[a2, a4], a2, a3, n] - 
    S2[a1, a1, SP[a2, a4], a3, a2, n] - 2*S2[a1, a1, SP[a3, a4], a2, a2, n] - 
    S2[a4, n]*S2[a1, a2, a1, a2, a3, n] - 
    5*S2[a1, a2, a1, a2, SP[a3, a4], n] - 
    S2[a4, n]*S2[a1, a2, a1, a3, a2, n] + 
    2*S2[a2, n]*S2[a1, a2, a1, a3, a4, n] - S2[a1, a2, a1, a3, SP[a2, a4], 
     n] + 2*S2[a2, n]*S2[a1, a2, a1, a4, a3, n] + 
    2*S2[a1, a2, a1, a4, SP[a2, a3], n] - S2[a1, a2, a1, SP[a2, a4], a3, n] - 
    3*S2[a1, a2, a1, SP[a3, a4], a2, n] - 
    S2[a4, n]*S2[a1, a2, a2, a1, a3, n] - 
    4*S2[a1, a2, a2, a1, SP[a3, a4], n] - 
    4*S2[a1, a2, a2, SP[a1, a4], a3, n] + 
    2*S2[a2, n]*S2[a1, a2, a4, a1, a3, n] + 
    2*S2[a1, a2, a4, a1, SP[a2, a3], n] + 
    2*S2[a1, a2, a4, SP[a1, a2], a3, n] - 
    3*S2[a1, a2, SP[a1, a4], a2, a3, n] - 
    3*S2[a1, a2, SP[a1, a4], a3, a2, n] + 
    S2[a2, n]*S2[a1, a4, a1, a2, a3, n] + S2[a1, a4, a1, a2, SP[a2, a3], n] + 
    S2[a2, n]*S2[a1, a4, a1, a3, a2, n] + S2[a1, a4, a1, a3, SP[a2, a2], n] + 
    S2[a1, a4, a1, SP[a2, a2], a3, n] + S2[a1, a4, a1, SP[a2, a3], a2, n] + 
    S2[a1, a4, SP[a1, a2], a2, a3, n] + S2[a1, a4, SP[a1, a2], a3, a2, n] - 
    S2[a1, SP[a1, a2], a3, a4, a2, n] - S2[a1, SP[a1, a2], a4, a2, a3, n] - 
    S2[a1, SP[a1, a2], a4, a3, a2, n] + S2[a1, SP[a1, a3], a2, a2, a4, n] - 
    2*S2[a1, SP[a1, a4], a2, a2, a3, n] - 
    2*S2[a1, SP[a1, a4], a2, a3, a2, n] - 
    2*S2[a1, SP[a1, a4], a3, a2, a2, n] + S2[a1, SP[a2, a2], a1, a3, a4, n] + 
    S2[a1, SP[a2, a2], a1, a4, a3, n] + S2[a1, SP[a2, a2], a4, a1, a3, n] - 
    S2[a1, SP[a2, a4], a2, a1, a3, n] - 4*S2[a2, a1, a1, a2, SP[a3, a4], n] + 
    S2[a2, n]*S2[a2, a1, a1, a3, a4, n] - S2[a2, a1, a1, a3, SP[a2, a4], n] + 
    S2[a2, n]*S2[a2, a1, a1, a4, a3, n] + S2[a2, a1, a1, a4, SP[a2, a3], n] - 
    S2[a2, a1, a1, SP[a2, a3], a4, n] - S2[a2, a1, a1, SP[a2, a4], a3, n] - 
    2*S2[a2, a1, a1, SP[a3, a4], a2, n] - 
    3*S2[a2, a1, a2, a1, SP[a3, a4], n] - 
    3*S2[a2, a1, a2, SP[a1, a4], a3, n] + 
    S2[a2, n]*S2[a2, a1, a4, a1, a3, n] + S2[a2, a1, a4, a1, SP[a2, a3], n] + 
    S2[a2, a1, a4, SP[a1, a2], a3, n] - S2[a2, a1, SP[a1, a2], a3, a4, n] - 
    S2[a2, a1, SP[a1, a2], a4, a3, n] - 2*S2[a2, a1, SP[a1, a4], a2, a3, n] - 
    2*S2[a2, a1, SP[a1, a4], a3, a2, n] - 
    2*S2[a2, a2, a1, a1, SP[a3, a4], n] - 
    2*S2[a2, a2, a1, SP[a1, a4], a3, n] - 
    2*S2[a2, a2, SP[a1, a4], a1, a3, n] + 
    S2[a2, n]*S2[a2, a4, a1, a1, a3, n] + S2[a2, a4, a1, a1, SP[a2, a3], n] + 
    S2[a2, a4, a1, SP[a1, a2], a3, n] + S2[a2, a4, SP[a1, a2], a1, a3, n] - 
    S2[a2, SP[a1, a2], a1, a3, a4, n] - S2[a2, SP[a1, a2], a1, a4, a3, n] - 
    S2[a2, SP[a1, a2], a4, a1, a3, n] - 2*S2[a2, SP[a1, a4], a1, a2, a3, n] - 
    2*S2[a2, SP[a1, a4], a1, a3, a2, n] - S2[a2, SP[a1, a4], a2, a1, a3, n] + 
    S2[a2, SP[a2, a4], a1, a1, a3, n] + S2[a2, n]*S2[a4, a1, a1, a2, a3, n] + 
    S2[a4, a1, a1, a2, SP[a2, a3], n] + S2[a2, n]*S2[a4, a1, a1, a3, a2, n] + 
    S2[a4, a1, a1, a3, SP[a2, a2], n] + S2[a4, a1, a1, SP[a2, a2], a3, n] + 
    S2[a4, a1, a1, SP[a2, a3], a2, n] + S2[a4, a1, SP[a1, a2], a2, a3, n] + 
    S2[a4, a1, SP[a1, a2], a3, a2, n] - S2[a2, n]*S2[a4, a2, a1, a1, a3, n] - 
    S2[a4, a2, a1, a1, SP[a2, a3], n] - S2[a4, a2, a1, SP[a1, a2], a3, n] + 
    S2[a1, n]*S2[a4, a2, a2, a1, a3, n] + S2[a4, a2, a2, a1, SP[a1, a3], n] + 
    S2[a4, a2, a2, SP[a1, a1], a3, n] + S2[a4, SP[a1, a2], a1, a2, a3, n] + 
    S2[a4, SP[a1, a2], a1, a3, a2, n] + S2[a4, SP[a1, a2], a2, a1, a3, n] - 
    S2[a4, SP[a2, a2], a1, a1, a3, n] + S2[SP[a1, a1], a2, a2, a3, a4, n] + 
    S2[SP[a1, a1], a2, a2, a4, a3, n] + S2[SP[a1, a1], a2, a3, a2, a4, n] + 
    S2[SP[a1, a1], a3, a2, a2, a4, n] - S2[SP[a1, a2], a1, a2, a3, a4, n] - 
    S2[SP[a1, a2], a1, a2, a4, a3, n] - S2[SP[a1, a2], a1, a3, a2, a4, n] - 
    S2[SP[a1, a2], a1, a3, a4, a2, n] - S2[SP[a1, a2], a1, a4, a2, a3, n] - 
    S2[SP[a1, a2], a1, a4, a3, a2, n] - S2[SP[a1, a2], a2, a1, a3, a4, n] - 
    S2[SP[a1, a2], a2, a1, a4, a3, n] - S2[SP[a1, a2], a2, a4, a1, a3, n] - 
    S2[SP[a1, a2], a4, a1, a2, a3, n] - S2[SP[a1, a2], a4, a1, a3, a2, n] - 
    S2[SP[a1, a2], a4, a2, a1, a3, n] - 2*S2[SP[a1, a4], a1, a2, a2, a3, n] - 
    2*S2[SP[a1, a4], a1, a2, a3, a2, n] - 
    2*S2[SP[a1, a4], a1, a3, a2, a2, n] - S2[SP[a1, a4], a2, a1, a2, a3, n] - 
    S2[SP[a1, a4], a2, a1, a3, a2, n] + S2[SP[a2, a2], a1, a1, a3, a4, n] + 
    S2[SP[a2, a2], a1, a1, a4, a3, n] + S2[SP[a2, a2], a1, a4, a1, a3, n] + 
    S2[SP[a2, a2], a4, a1, a1, a3, n] + S2[SP[a2, a4], a1, a1, a2, a3, n] + 
    S2[SP[a2, a4], a1, a1, a3, a2, n] - S2[SP[a2, a4], a2, a1, a1, a3, n] - 
    S2[a4, a2, a2, a1, a3, a1, n] /; MyMemberQ[{{a1, a2}, {a3, a4}}, 
     {a1, a1, a2, a2, a3, a4}] && a1 != a2 != a3 != a4, 
 S2[a1_, a3_, a1_, a2_, a4_, a2_, n_] :> 
  4*S2[a1, a1, a3, n]*S2[a2, a2, a4, n] + 
    4*S2[SP[a1, a2], SP[a1, a2], SP[a3, a4], n] + 
    2*S2[a2, a4, n]*S2[a1, a1, a2, a3, n] + 2*S2[a2, a4, n]*
     S2[a1, a1, a3, a2, n] - 2*S2[a1, a1, SP[a2, a2], SP[a3, a4], n] - 
    2*S2[a1, a1, SP[a2, a3], SP[a2, a4], n] + 
    S2[a2, a4, n]*S2[a1, a2, a1, a3, n] + S2[a1, a3, n]*
     S2[a1, a2, a4, a2, n] - 5*S2[a1, a2, SP[a1, a2], SP[a3, a4], n] - 
    S2[a1, a2, SP[a1, a4], SP[a2, a3], n] - 
    6*S2[a1, SP[a1, a2], a2, SP[a3, a4], n] - 
    2*S2[a1, SP[a1, a2], a3, SP[a2, a4], n] - S2[a1, SP[a1, a2], a4, 
     SP[a2, a3], n] - 4*S2[a1, SP[a1, a2], SP[a2, a3], a4, n] - 
    2*S2[a1, SP[a1, a2], SP[a2, a4], a3, n] - 
    3*S2[a1, SP[a1, a2], SP[a3, a4], a2, n] - S2[a1, SP[a2, a2], a1, 
     SP[a3, a4], n] - S2[a1, SP[a2, a2], SP[a1, a4], a3, n] - 
    4*S2[a2, a1, SP[a1, a2], SP[a3, a4], n] - 
    4*S2[a2, SP[a1, a2], a1, SP[a3, a4], n] - 
    4*S2[a2, SP[a1, a2], SP[a1, a4], a3, n] - S2[SP[a1, a1], a2, a4, 
     SP[a2, a3], n] - S2[SP[a1, a1], a2, SP[a3, a4], a2, n] - 
    S2[SP[a1, a1], SP[a2, a3], a4, a2, n] - 
    6*S2[SP[a1, a2], a1, a2, SP[a3, a4], n] - 
    2*S2[SP[a1, a2], a1, a3, SP[a2, a4], n] - 
    4*S2[SP[a1, a2], a1, SP[a2, a3], a4, n] - 
    2*S2[SP[a1, a2], a1, SP[a2, a4], a3, n] - 
    2*S2[SP[a1, a2], a1, SP[a3, a4], a2, n] - 
    5*S2[SP[a1, a2], a2, a1, SP[a3, a4], n] - 
    5*S2[SP[a1, a2], a2, SP[a1, a4], a3, n] - 
    4*S2[SP[a1, a2], SP[a1, a2], a3, a4, n] - 
    4*S2[SP[a1, a2], SP[a1, a2], a4, a3, n] - 
    2*S2[SP[a1, a2], SP[a1, a4], a2, a3, n] - 
    2*S2[SP[a1, a2], SP[a1, a4], a3, a2, n] - S2[SP[a1, a2], SP[a2, a4], a1, 
     a3, n] + 8*S2[a1, a1, a2, a2, SP[a3, a4], n] - 
    4*S2[a2, n]*S2[a1, a1, a2, a3, a4, n] - 
    2*S2[a1, a1, a2, a3, SP[a2, a4], n] - 
    4*S2[a2, n]*S2[a1, a1, a2, a4, a3, n] - 
    2*S2[a1, a1, a2, a4, SP[a2, a3], n] + 
    2*S2[a1, a1, a2, SP[a2, a3], a4, n] - 
    2*S2[a1, a1, a2, SP[a2, a4], a3, n] + 
    4*S2[a1, a1, a2, SP[a3, a4], a2, n] - 
    4*S2[a2, n]*S2[a1, a1, a3, a2, a4, n] - 
    2*S2[a1, a1, a3, a2, SP[a2, a4], n] - 
    2*S2[a1, a1, a3, SP[a2, a2], a4, n] - 
    2*S2[a1, a1, SP[a2, a2], a3, a4, n] - 
    2*S2[a1, a1, SP[a2, a2], a4, a3, n] + 
    2*S2[a1, a1, SP[a2, a3], a2, a4, n] + 
    4*S2[a1, a1, SP[a2, a3], a4, a2, n] + 
    7*S2[a1, a2, a1, a2, SP[a3, a4], n] - 
    3*S2[a2, n]*S2[a1, a2, a1, a3, a4, n] - S2[a1, a2, a1, a3, SP[a2, a4], 
     n] - 3*S2[a2, n]*S2[a1, a2, a1, a4, a3, n] - 
    2*S2[a1, a2, a1, a4, SP[a2, a3], n] + 
    2*S2[a1, a2, a1, SP[a2, a3], a4, n] - S2[a1, a2, a1, SP[a2, a4], a3, n] + 
    3*S2[a1, a2, a1, SP[a3, a4], a2, n] + 
    6*S2[a1, a2, a2, a1, SP[a3, a4], n] + 
    6*S2[a1, a2, a2, SP[a1, a4], a3, n] - 
    3*S2[a2, n]*S2[a1, a2, a4, a1, a3, n] - 
    2*S2[a1, a2, a4, a1, SP[a2, a3], n] - 
    2*S2[a1, a2, a4, SP[a1, a2], a3, n] + 
    2*S2[a1, a2, SP[a1, a2], a3, a4, n] + 
    2*S2[a1, a2, SP[a1, a2], a4, a3, n] + 
    3*S2[a1, a2, SP[a1, a4], a2, a3, n] + 
    3*S2[a1, a2, SP[a1, a4], a3, a2, n] - 
    2*S2[a1, a2, SP[a2, a4], a1, a3, n] + 
    S2[a2, n]*S2[a1, a4, a2, a1, a3, n] + S2[a1, a4, a2, a1, SP[a2, a3], n] + 
    S2[a1, a4, a2, SP[a1, a2], a3, n] + S2[a1, a4, SP[a2, a2], a1, a3, n] + 
    2*S2[a1, SP[a1, a2], a2, a3, a4, n] + 
    2*S2[a1, SP[a1, a2], a2, a4, a3, n] + 
    2*S2[a1, SP[a1, a2], a3, a2, a4, n] + 
    3*S2[a1, SP[a1, a2], a3, a4, a2, n] + 
    3*S2[a1, SP[a1, a2], a4, a2, a3, n] + 
    3*S2[a1, SP[a1, a2], a4, a3, a2, n] + S2[a1, SP[a1, a3], a2, a4, a2, n] - 
    2*S2[a1, SP[a2, a2], a1, a3, a4, n] - 
    2*S2[a1, SP[a2, a2], a1, a4, a3, n] - 
    2*S2[a1, SP[a2, a2], a4, a1, a3, n] + S2[a1, SP[a2, a4], a2, a1, a3, n] + 
    6*S2[a2, a1, a1, a2, SP[a3, a4], n] - 
    2*S2[a2, n]*S2[a2, a1, a1, a3, a4, n] - 
    2*S2[a2, n]*S2[a2, a1, a1, a4, a3, n] - 
    2*S2[a2, a1, a1, a4, SP[a2, a3], n] + 
    2*S2[a2, a1, a1, SP[a2, a3], a4, n] + 
    2*S2[a2, a1, a1, SP[a3, a4], a2, n] + 
    5*S2[a2, a1, a2, a1, SP[a3, a4], n] + 
    5*S2[a2, a1, a2, SP[a1, a4], a3, n] - 
    2*S2[a2, n]*S2[a2, a1, a4, a1, a3, n] - 
    2*S2[a2, a1, a4, a1, SP[a2, a3], n] - 
    2*S2[a2, a1, a4, SP[a1, a2], a3, n] + 
    2*S2[a2, a1, SP[a1, a2], a3, a4, n] + 
    2*S2[a2, a1, SP[a1, a2], a4, a3, n] + 
    2*S2[a2, a1, SP[a1, a4], a2, a3, n] + 
    2*S2[a2, a1, SP[a1, a4], a3, a2, n] - S2[a2, a1, SP[a2, a4], a1, a3, n] + 
    4*S2[a2, a2, a1, a1, SP[a3, a4], n] + 
    4*S2[a2, a2, a1, SP[a1, a4], a3, n] + 
    4*S2[a2, a2, SP[a1, a4], a1, a3, n] - 
    2*S2[a2, n]*S2[a2, a4, a1, a1, a3, n] - 
    2*S2[a2, a4, a1, a1, SP[a2, a3], n] - 
    2*S2[a2, a4, a1, SP[a1, a2], a3, n] - 
    2*S2[a2, a4, SP[a1, a2], a1, a3, n] + 
    2*S2[a2, SP[a1, a2], a1, a3, a4, n] + 
    2*S2[a2, SP[a1, a2], a1, a4, a3, n] + 
    2*S2[a2, SP[a1, a2], a4, a1, a3, n] + 
    2*S2[a2, SP[a1, a4], a1, a2, a3, n] + 
    2*S2[a2, SP[a1, a4], a1, a3, a2, n] + S2[a2, SP[a1, a4], a2, a1, a3, n] - 
    2*S2[a2, SP[a2, a4], a1, a1, a3, n] + 
    S2[a2, n]*S2[a4, a1, a2, a1, a3, n] + S2[a4, a1, a2, a1, SP[a2, a3], n] + 
    S2[a4, a1, a2, SP[a1, a2], a3, n] + S2[a4, a1, SP[a2, a2], a1, a3, n] + 
    2*S2[a2, n]*S2[a4, a2, a1, a1, a3, n] + 
    2*S2[a4, a2, a1, a1, SP[a2, a3], n] - 
    S2[a1, n]*S2[a4, a2, a1, a2, a3, n] - S2[a4, a2, a1, a2, SP[a1, a3], n] - 
    S2[a1, n]*S2[a4, a2, a1, a3, a2, n] - S2[a4, a2, a1, a3, SP[a1, a2], n] + 
    S2[a4, a2, a1, SP[a1, a2], a3, n] - S2[a4, a2, a1, SP[a1, a3], a2, n] - 
    2*S2[a1, n]*S2[a4, a2, a2, a1, a3, n] - 
    2*S2[a4, a2, a2, a1, SP[a1, a3], n] - 
    2*S2[a4, a2, a2, SP[a1, a1], a3, n] - S2[a4, a2, SP[a1, a1], a2, a3, n] - 
    S2[a4, a2, SP[a1, a1], a3, a2, n] - S2[a4, SP[a1, a2], a1, a2, a3, n] - 
    S2[a4, SP[a1, a2], a1, a3, a2, n] - S2[a4, SP[a1, a2], a2, a1, a3, n] + 
    2*S2[a4, SP[a2, a2], a1, a1, a3, n] + S2[SP[a1, a1], a2, a3, a4, a2, n] + 
    S2[SP[a1, a1], a2, a4, a2, a3, n] + S2[SP[a1, a1], a2, a4, a3, a2, n] + 
    S2[SP[a1, a1], a3, a2, a4, a2, n] + 2*S2[SP[a1, a2], a1, a2, a3, a4, n] + 
    2*S2[SP[a1, a2], a1, a2, a4, a3, n] + 
    2*S2[SP[a1, a2], a1, a3, a2, a4, n] + 
    2*S2[SP[a1, a2], a1, a3, a4, a2, n] + 
    2*S2[SP[a1, a2], a1, a4, a2, a3, n] + 
    2*S2[SP[a1, a2], a1, a4, a3, a2, n] + 
    2*S2[SP[a1, a2], a2, a1, a3, a4, n] + 
    2*S2[SP[a1, a2], a2, a1, a4, a3, n] + 
    2*S2[SP[a1, a2], a2, a4, a1, a3, n] + 
    2*S2[SP[a1, a2], a4, a1, a2, a3, n] + 
    2*S2[SP[a1, a2], a4, a1, a3, a2, n] + 
    2*S2[SP[a1, a2], a4, a2, a1, a3, n] - S2[SP[a1, a4], a2, a1, a2, a3, n] - 
    S2[SP[a1, a4], a2, a1, a3, a2, n] - 2*S2[SP[a1, a4], a2, a2, a1, a3, n] - 
    2*S2[SP[a2, a2], a1, a1, a3, a4, n] - 
    2*S2[SP[a2, a2], a1, a1, a4, a3, n] - 
    2*S2[SP[a2, a2], a1, a4, a1, a3, n] - 
    2*S2[SP[a2, a2], a4, a1, a1, a3, n] + S2[SP[a2, a4], a1, a2, a1, a3, n] + 
    2*S2[SP[a2, a4], a2, a1, a1, a3, n] + S2[a4, a2, a1, a2, a3, a1, n] + 
    S2[a4, a2, a1, a3, a1, a2, n] + S2[a4, a2, a1, a3, a2, a1, n] + 
    2*S2[a4, a2, a2, a1, a3, a1, n] /; 
   MyMemberQ[{{a1, a2}, {a3, a4}}, {a1, a1, a2, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a1_, a3_, a1_, a4_, a2_, a2_, n_] :> 
  -2*S2[a1, a1, a3, n]*S2[a2, a2, a4, n] - 
    2*S2[SP[a1, a2], SP[a1, a2], SP[a3, a4], n] + 
    2*S2[a1, a2, SP[a1, a2], SP[a3, a4], n] + 
    S2[a1, a3, n]*S2[a1, a4, a2, a2, n] - S2[a1, a4, SP[a1, a2], SP[a2, a3], 
     n] + 2*S2[a1, SP[a1, a2], a2, SP[a3, a4], n] + 
    2*S2[a1, SP[a1, a2], SP[a2, a3], a4, n] - S2[a1, SP[a1, a4], a2, 
     SP[a2, a3], n] - S2[a1, SP[a1, a4], SP[a2, a3], a2, n] + 
    2*S2[a2, a1, SP[a1, a2], SP[a3, a4], n] + 
    2*S2[a2, SP[a1, a2], a1, SP[a3, a4], n] + 
    2*S2[a2, SP[a1, a2], SP[a1, a4], a3, n] - S2[SP[a1, a1], a4, a2, 
     SP[a2, a3], n] - S2[SP[a1, a1], a4, SP[a2, a3], a2, n] - 
    S2[SP[a1, a1], SP[a3, a4], a2, a2, n] + 
    2*S2[SP[a1, a2], a1, a2, SP[a3, a4], n] + 
    2*S2[SP[a1, a2], a1, SP[a2, a3], a4, n] + 
    2*S2[SP[a1, a2], a2, a1, SP[a3, a4], n] + 
    2*S2[SP[a1, a2], a2, SP[a1, a4], a3, n] + 
    2*S2[SP[a1, a2], SP[a1, a2], a3, a4, n] + 
    2*S2[SP[a1, a2], SP[a1, a2], a4, a3, n] - 
    2*S2[a1, a1, a2, a2, SP[a3, a4], n] + 
    S2[a2, n]*S2[a1, a1, a2, a3, a4, n] + S2[a1, a1, a2, a3, SP[a2, a4], n] + 
    S2[a2, n]*S2[a1, a1, a2, a4, a3, n] + S2[a1, a1, a2, a4, SP[a2, a3], n] - 
    S2[a1, a1, a2, SP[a2, a3], a4, n] + S2[a1, a1, a2, SP[a2, a4], a3, n] + 
    S2[a2, n]*S2[a1, a1, a3, a2, a4, n] + S2[a1, a1, a3, a2, SP[a2, a4], n] - 
    S2[a2, n]*S2[a1, a1, a3, a4, a2, n] - S2[a1, a1, a3, a4, SP[a2, a2], n] + 
    S2[a1, a1, a3, SP[a2, a2], a4, n] - S2[a1, a1, a3, SP[a2, a4], a2, n] - 
    S2[a2, n]*S2[a1, a1, a4, a2, a3, n] + S2[a1, a1, a4, a2, SP[a2, a3], n] - 
    S2[a2, n]*S2[a1, a1, a4, a3, a2, n] - S2[a1, a1, a4, a3, SP[a2, a2], n] - 
    S2[a1, a1, a4, SP[a2, a2], a3, n] + S2[a1, a1, a4, SP[a2, a3], a2, n] + 
    S2[a1, a1, SP[a2, a2], a3, a4, n] + S2[a1, a1, SP[a2, a2], a4, a3, n] - 
    S2[a1, a1, SP[a2, a3], a2, a4, n] - S2[a1, a1, SP[a2, a3], a4, a2, n] - 
    S2[a1, a1, SP[a2, a4], a2, a3, n] - S2[a1, a1, SP[a2, a4], a3, a2, n] + 
    2*S2[a1, a1, SP[a3, a4], a2, a2, n] - 
    2*S2[a1, a2, a1, a2, SP[a3, a4], n] + 
    S2[a2, n]*S2[a1, a2, a1, a3, a4, n] + S2[a1, a2, a1, a3, SP[a2, a4], n] + 
    S2[a2, n]*S2[a1, a2, a1, a4, a3, n] + S2[a1, a2, a1, a4, SP[a2, a3], n] - 
    S2[a1, a2, a1, SP[a2, a3], a4, n] + S2[a1, a2, a1, SP[a2, a4], a3, n] - 
    2*S2[a1, a2, a2, a1, SP[a3, a4], n] - 
    2*S2[a1, a2, a2, SP[a1, a4], a3, n] + 
    S2[a2, n]*S2[a1, a2, a4, a1, a3, n] + S2[a1, a2, a4, a1, SP[a2, a3], n] + 
    S2[a1, a2, a4, SP[a1, a2], a3, n] - S2[a1, a2, SP[a1, a2], a3, a4, n] - 
    S2[a1, a2, SP[a1, a2], a4, a3, n] + S2[a1, a2, SP[a2, a4], a1, a3, n] - 
    S2[a2, n]*S2[a1, a4, a1, a2, a3, n] - 
    S2[a2, n]*S2[a1, a4, a1, a3, a2, n] - S2[a1, a4, a1, a3, SP[a2, a2], n] - 
    S2[a1, a4, a1, SP[a2, a2], a3, n] - S2[a2, n]*S2[a1, a4, a2, a1, a3, n] - 
    S2[a1, a4, SP[a2, a2], a1, a3, n] - S2[a1, SP[a1, a2], a2, a3, a4, n] - 
    S2[a1, SP[a1, a2], a2, a4, a3, n] - S2[a1, SP[a1, a2], a3, a2, a4, n] - 
    S2[a1, SP[a1, a2], a3, a4, a2, n] - S2[a1, SP[a1, a2], a4, a2, a3, n] - 
    S2[a1, SP[a1, a2], a4, a3, a2, n] + S2[a1, SP[a1, a3], a4, a2, a2, n] + 
    S2[a1, SP[a1, a4], a2, a2, a3, n] + S2[a1, SP[a1, a4], a2, a3, a2, n] + 
    S2[a1, SP[a1, a4], a3, a2, a2, n] + S2[a1, SP[a2, a2], a1, a3, a4, n] + 
    S2[a1, SP[a2, a2], a1, a4, a3, n] + S2[a1, SP[a2, a2], a4, a1, a3, n] - 
    S2[a1, SP[a2, a4], a1, a2, a3, n] - S2[a1, SP[a2, a4], a1, a3, a2, n] - 
    S2[a1, SP[a2, a4], a2, a1, a3, n] - 2*S2[a2, a1, a1, a2, SP[a3, a4], n] + 
    S2[a2, n]*S2[a2, a1, a1, a3, a4, n] + S2[a2, a1, a1, a3, SP[a2, a4], n] + 
    S2[a2, n]*S2[a2, a1, a1, a4, a3, n] + S2[a2, a1, a1, a4, SP[a2, a3], n] - 
    S2[a2, a1, a1, SP[a2, a3], a4, n] + S2[a2, a1, a1, SP[a2, a4], a3, n] - 
    2*S2[a2, a1, a2, a1, SP[a3, a4], n] - 
    2*S2[a2, a1, a2, SP[a1, a4], a3, n] + 
    S2[a2, n]*S2[a2, a1, a4, a1, a3, n] + S2[a2, a1, a4, a1, SP[a2, a3], n] + 
    S2[a2, a1, a4, SP[a1, a2], a3, n] - S2[a2, a1, SP[a1, a2], a3, a4, n] - 
    S2[a2, a1, SP[a1, a2], a4, a3, n] + S2[a2, a1, SP[a2, a4], a1, a3, n] - 
    2*S2[a2, a2, a1, a1, SP[a3, a4], n] - 
    2*S2[a2, a2, a1, SP[a1, a4], a3, n] - 
    2*S2[a2, a2, SP[a1, a4], a1, a3, n] + 
    S2[a2, n]*S2[a2, a4, a1, a1, a3, n] + S2[a2, a4, a1, a1, SP[a2, a3], n] + 
    S2[a2, a4, a1, SP[a1, a2], a3, n] + S2[a2, a4, SP[a1, a2], a1, a3, n] - 
    S2[a2, SP[a1, a2], a1, a3, a4, n] - S2[a2, SP[a1, a2], a1, a4, a3, n] - 
    S2[a2, SP[a1, a2], a4, a1, a3, n] + S2[a2, SP[a2, a4], a1, a1, a3, n] - 
    S2[a2, n]*S2[a4, a1, a1, a2, a3, n] - S2[a4, a1, a1, a2, SP[a2, a3], n] - 
    S2[a2, n]*S2[a4, a1, a1, a3, a2, n] - S2[a4, a1, a1, a3, SP[a2, a2], n] - 
    S2[a4, a1, a1, SP[a2, a2], a3, n] - S2[a4, a1, a1, SP[a2, a3], a2, n] - 
    S2[a2, n]*S2[a4, a1, a2, a1, a3, n] - S2[a4, a1, a2, a1, SP[a2, a3], n] + 
    S2[a1, n]*S2[a4, a1, a2, a2, a3, n] + S2[a4, a1, a2, a2, SP[a1, a3], n] + 
    S2[a1, n]*S2[a4, a1, a2, a3, a2, n] + S2[a4, a1, a2, a3, SP[a1, a2], n] + 
    S2[a4, a1, a2, SP[a1, a3], a2, n] + S2[a1, n]*S2[a4, a1, a3, a2, a2, n] + 
    S2[a4, a1, a3, a2, SP[a1, a2], n] + S2[a4, a1, a3, SP[a1, a2], a2, n] + 
    S2[a4, a1, SP[a1, a3], a2, a2, n] - S2[a4, a1, SP[a2, a2], a1, a3, n] - 
    S2[a2, n]*S2[a4, a2, a1, a1, a3, n] - S2[a4, a2, a1, a1, SP[a2, a3], n] + 
    S2[a1, n]*S2[a4, a2, a1, a2, a3, n] + S2[a4, a2, a1, a2, SP[a1, a3], n] + 
    S2[a1, n]*S2[a4, a2, a1, a3, a2, n] + S2[a4, a2, a1, a3, SP[a1, a2], n] + 
    S2[a4, a2, a1, SP[a1, a3], a2, n] + S2[a1, n]*S2[a4, a2, a2, a1, a3, n] + 
    S2[a4, a2, a2, a1, SP[a1, a3], n] + S2[a4, a2, a2, SP[a1, a1], a3, n] + 
    S2[a4, a2, SP[a1, a1], a2, a3, n] + S2[a4, a2, SP[a1, a1], a3, a2, n] + 
    S2[a4, SP[a1, a1], a2, a2, a3, n] + S2[a4, SP[a1, a1], a2, a3, a2, n] + 
    S2[a4, SP[a1, a1], a3, a2, a2, n] - S2[a4, SP[a2, a2], a1, a1, a3, n] + 
    S2[SP[a1, a1], a3, a4, a2, a2, n] + S2[SP[a1, a1], a4, a2, a2, a3, n] + 
    S2[SP[a1, a1], a4, a2, a3, a2, n] + S2[SP[a1, a1], a4, a3, a2, a2, n] - 
    S2[SP[a1, a2], a1, a2, a3, a4, n] - S2[SP[a1, a2], a1, a2, a4, a3, n] - 
    S2[SP[a1, a2], a1, a3, a2, a4, n] - S2[SP[a1, a2], a1, a3, a4, a2, n] - 
    S2[SP[a1, a2], a1, a4, a2, a3, n] - S2[SP[a1, a2], a1, a4, a3, a2, n] - 
    S2[SP[a1, a2], a2, a1, a3, a4, n] - S2[SP[a1, a2], a2, a1, a4, a3, n] - 
    S2[SP[a1, a2], a2, a4, a1, a3, n] - S2[SP[a1, a2], a4, a1, a2, a3, n] - 
    S2[SP[a1, a2], a4, a1, a3, a2, n] - S2[SP[a1, a2], a4, a2, a1, a3, n] + 
    S2[SP[a1, a4], a1, a2, a2, a3, n] + S2[SP[a1, a4], a1, a2, a3, a2, n] + 
    S2[SP[a1, a4], a1, a3, a2, a2, n] + S2[SP[a1, a4], a2, a1, a2, a3, n] + 
    S2[SP[a1, a4], a2, a1, a3, a2, n] + S2[SP[a1, a4], a2, a2, a1, a3, n] + 
    S2[SP[a2, a2], a1, a1, a3, a4, n] + S2[SP[a2, a2], a1, a1, a4, a3, n] + 
    S2[SP[a2, a2], a1, a4, a1, a3, n] + S2[SP[a2, a2], a4, a1, a1, a3, n] - 
    S2[SP[a2, a4], a1, a1, a2, a3, n] - S2[SP[a2, a4], a1, a1, a3, a2, n] - 
    S2[SP[a2, a4], a1, a2, a1, a3, n] - S2[SP[a2, a4], a2, a1, a1, a3, n] - 
    S2[a4, a1, a2, a2, a3, a1, n] - S2[a4, a1, a2, a3, a1, a2, n] - 
    S2[a4, a1, a2, a3, a2, a1, n] - S2[a4, a1, a3, a1, a2, a2, n] - 
    S2[a4, a1, a3, a2, a1, a2, n] - S2[a4, a1, a3, a2, a2, a1, n] - 
    S2[a4, a2, a1, a2, a3, a1, n] - S2[a4, a2, a1, a3, a1, a2, n] - 
    S2[a4, a2, a1, a3, a2, a1, n] - S2[a4, a2, a2, a1, a3, a1, n] /; 
   MyMemberQ[{{a1, a2}, {a3, a4}}, {a1, a1, a2, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a1_, a3_, a2_, a1_, a2_, a4_, n_] :> 
  S2[a1, a2, a4, n]*S2[a1, a3, a2, n] + S2[SP[a1, a1], SP[a2, a3], 
     SP[a2, a4], n] + 2*S2[a2, a4, n]*S2[a1, a1, a2, a3, n] - 
    2*S2[a1, a1, SP[a2, a2], SP[a3, a4], n] - 
    2*S2[a1, a1, SP[a2, a3], SP[a2, a4], n] + 
    S2[a2, a4, n]*S2[a1, a2, a1, a3, n] - 2*S2[a1, a3, n]*
     S2[a1, a2, a2, a4, n] - S2[a1, a3, n]*S2[a1, a2, a4, a2, n] + 
    S2[a1, a2, SP[a1, a2], SP[a3, a4], n] + S2[a1, a2, SP[a1, a4], 
     SP[a2, a3], n] - S2[a1, SP[a1, a2], a3, SP[a2, a4], n] + 
    S2[a1, SP[a1, a2], a4, SP[a2, a3], n] + 
    2*S2[a1, SP[a1, a2], SP[a2, a3], a4, n] - 
    2*S2[a1, SP[a1, a2], SP[a2, a4], a3, n] - S2[a1, SP[a1, a3], a2, 
     SP[a2, a4], n] - S2[a1, SP[a1, a3], SP[a2, a2], a4, n] - 
    S2[a1, SP[a2, a2], a1, SP[a3, a4], n] - S2[a1, SP[a2, a2], SP[a1, a4], 
     a3, n] + 2*S2[SP[a1, a1], a2, a2, SP[a3, a4], n] - 
    S2[SP[a1, a1], a2, a3, SP[a2, a4], n] + S2[SP[a1, a1], a2, a4, 
     SP[a2, a3], n] + 2*S2[SP[a1, a1], a2, SP[a2, a3], a4, n] - 
    S2[SP[a1, a1], a3, a2, SP[a2, a4], n] - S2[SP[a1, a1], a3, SP[a2, a2], 
     a4, n] + S2[SP[a1, a1], SP[a2, a3], a2, a4, n] - 
    2*S2[SP[a1, a2], a1, a2, SP[a3, a4], n] - 
    2*S2[SP[a1, a2], a1, SP[a2, a4], a3, n] - S2[SP[a1, a2], a2, a1, 
     SP[a3, a4], n] - S2[SP[a1, a2], a2, SP[a1, a4], a3, n] - 
    2*S2[SP[a1, a2], SP[a1, a4], a2, a3, n] - S2[SP[a1, a2], SP[a2, a4], a1, 
     a3, n] + 4*S2[a4, n]*S2[a1, a1, a2, a2, a3, n] + 
    4*S2[a1, a1, a2, a2, SP[a3, a4], n] + 
    2*S2[a4, n]*S2[a1, a1, a2, a3, a2, n] - 
    2*S2[a2, n]*S2[a1, a1, a2, a3, a4, n] + 
    2*S2[a1, a1, a2, a3, SP[a2, a4], n] - 
    2*S2[a2, n]*S2[a1, a1, a2, a4, a3, n] - 
    4*S2[a1, a1, a2, a4, SP[a2, a3], n] - 
    4*S2[a1, a1, a2, SP[a2, a3], a4, n] + 
    4*S2[a1, a1, a2, SP[a2, a4], a3, n] + 
    2*S2[a1, a1, a2, SP[a3, a4], a2, n] + 
    2*S2[a1, a1, a3, a2, SP[a2, a4], n] + 
    2*S2[a1, a1, a3, SP[a2, a2], a4, n] - 
    2*S2[a2, n]*S2[a1, a1, a4, a2, a3, n] - 
    2*S2[a1, a1, a4, a2, SP[a2, a3], n] - 
    2*S2[a1, a1, a4, SP[a2, a2], a3, n] - 
    2*S2[a1, a1, SP[a2, a3], a2, a4, n] + 
    2*S2[a1, a1, SP[a2, a4], a2, a3, n] + 
    2*S2[a1, a1, SP[a2, a4], a3, a2, n] + 
    2*S2[a4, n]*S2[a1, a2, a1, a2, a3, n] + 
    3*S2[a1, a2, a1, a2, SP[a3, a4], n] + 
    S2[a4, n]*S2[a1, a2, a1, a3, a2, n] - 
    S2[a2, n]*S2[a1, a2, a1, a3, a4, n] + S2[a1, a2, a1, a3, SP[a2, a4], n] - 
    S2[a2, n]*S2[a1, a2, a1, a4, a3, n] - 
    2*S2[a1, a2, a1, a4, SP[a2, a3], n] - 
    2*S2[a1, a2, a1, SP[a2, a3], a4, n] + 
    3*S2[a1, a2, a1, SP[a2, a4], a3, n] + S2[a1, a2, a1, SP[a3, a4], a2, n] + 
    2*S2[a4, n]*S2[a1, a2, a2, a1, a3, n] + 
    2*S2[a1, a2, a2, a1, SP[a3, a4], n] + 
    2*S2[a1, a2, a2, SP[a1, a4], a3, n] - 
    S2[a2, n]*S2[a1, a2, a4, a1, a3, n] - 
    2*S2[a1, a2, a4, a1, SP[a2, a3], n] - 
    2*S2[a1, a2, a4, SP[a1, a2], a3, n] - 
    2*S2[a1, a2, SP[a1, a2], a3, a4, n] - 
    2*S2[a1, a2, SP[a1, a2], a4, a3, n] + 
    3*S2[a1, a2, SP[a1, a4], a2, a3, n] + S2[a1, a2, SP[a1, a4], a3, a2, n] + 
    2*S2[a1, a2, SP[a2, a4], a1, a3, n] + S2[a1, a3, a1, a2, SP[a2, a4], n] + 
    S2[a1, a3, a1, SP[a2, a2], a4, n] + S2[a1, a3, SP[a1, a2], a2, a4, n] - 
    2*S2[a2, n]*S2[a1, a4, a1, a2, a3, n] - 
    2*S2[a1, a4, a1, a2, SP[a2, a3], n] - 
    2*S2[a1, a4, a1, SP[a2, a2], a3, n] - 
    S2[a2, n]*S2[a1, a4, a2, a1, a3, n] - S2[a1, a4, a2, a1, SP[a2, a3], n] - 
    S2[a1, a4, a2, SP[a1, a2], a3, n] - 2*S2[a1, a4, SP[a1, a2], a2, a3, n] - 
    S2[a1, a4, SP[a2, a2], a1, a3, n] - 2*S2[a1, SP[a1, a2], a2, a3, a4, n] - 
    2*S2[a1, SP[a1, a2], a2, a4, a3, n] - S2[a1, SP[a1, a2], a3, a2, a4, n] - 
    S2[a1, SP[a1, a2], a4, a2, a3, n] + 4*S2[a1, SP[a1, a4], a2, a2, a3, n] + 
    2*S2[a1, SP[a1, a4], a2, a3, a2, n] + S2[a1, SP[a2, a4], a1, a3, a2, n] + 
    S2[a1, SP[a2, a4], a2, a1, a3, n] + 2*S2[a2, a1, a1, a2, SP[a3, a4], n] + 
    2*S2[a2, a1, a1, SP[a2, a4], a3, n] + S2[a2, a1, a2, a1, SP[a3, a4], n] + 
    S2[a2, a1, a2, SP[a1, a4], a3, n] + 2*S2[a2, a1, SP[a1, a4], a2, a3, n] + 
    S2[a2, a1, SP[a2, a4], a1, a3, n] + 2*S2[a2, SP[a1, a4], a1, a2, a3, n] + 
    S2[a2, SP[a1, a4], a2, a1, a3, n] - 2*S2[a2, n]*
     S2[a4, a1, a1, a2, a3, n] - 2*S2[a4, a1, a1, a2, SP[a2, a3], n] - 
    2*S2[a4, a1, a1, SP[a2, a2], a3, n] - 
    S2[a2, n]*S2[a4, a1, a2, a1, a3, n] - S2[a4, a1, a2, a1, SP[a2, a3], n] - 
    S2[a4, a1, a2, SP[a1, a2], a3, n] - 2*S2[a4, a1, SP[a1, a2], a2, a3, n] - 
    S2[a4, a1, SP[a2, a2], a1, a3, n] + S2[a1, n]*S2[a4, a2, a1, a2, a3, n] + 
    S2[a4, a2, a1, a2, SP[a1, a3], n] + S2[a4, a2, a1, SP[a1, a2], a3, n] + 
    S2[a4, a2, SP[a1, a1], a2, a3, n] - S2[a4, SP[a1, a2], a1, a2, a3, n] - 
    S2[a4, SP[a1, a2], a2, a1, a3, n] - 2*S2[SP[a1, a1], a2, a2, a3, a4, n] - 
    2*S2[SP[a1, a1], a2, a2, a4, a3, n] - S2[SP[a1, a1], a2, a3, a2, a4, n] - 
    S2[SP[a1, a1], a2, a4, a2, a3, n] + 4*S2[SP[a1, a4], a1, a2, a2, a3, n] + 
    2*S2[SP[a1, a4], a1, a2, a3, a2, n] + 
    3*S2[SP[a1, a4], a2, a1, a2, a3, n] + S2[SP[a1, a4], a2, a1, a3, a2, n] + 
    2*S2[SP[a1, a4], a2, a2, a1, a3, n] - 
    2*S2[SP[a2, a4], a1, a1, a2, a3, n] - S2[SP[a2, a4], a1, a2, a1, a3, n] - 
    S2[a4, a2, a1, a2, a3, a1, n] /; MyMemberQ[{{a1, a2}, {a3, a4}}, 
     {a1, a1, a2, a2, a3, a4}] && a1 != a2 != a3 != a4, 
 S2[a1_, a3_, a2_, a1_, a4_, a2_, n_] :> 
  S2[a1, a3, a2, n]*S2[a1, a4, a2, n] + S2[SP[a1, a1], SP[a3, a4], 
     SP[a2, a2], n] - 2*S2[a2, a4, n]*S2[a1, a1, a2, a3, n] + 
    2*S2[a1, a1, SP[a2, a2], SP[a3, a4], n] - 
    2*S2[a1, a1, SP[a3, a4], SP[a2, a2], n] - 
    S2[a2, a4, n]*S2[a1, a2, a1, a3, n] - S2[a1, a3, n]*
     S2[a1, a2, a4, a2, n] + S2[a1, a2, SP[a1, a2], SP[a3, a4], n] + 
    S2[a1, a2, SP[a1, a4], SP[a2, a3], n] - 2*S2[a1, a3, n]*
     S2[a1, a4, a2, a2, n] + 2*S2[a1, a4, SP[a1, a2], SP[a2, a3], n] + 
    2*S2[a1, SP[a1, a2], a2, SP[a3, a4], n] + S2[a1, SP[a1, a2], a4, 
     SP[a2, a3], n] + 2*S2[a1, SP[a1, a2], SP[a2, a4], a3, n] + 
    S2[a1, SP[a1, a2], SP[a3, a4], a2, n] - S2[a1, SP[a1, a3], a4, 
     SP[a2, a2], n] - S2[a1, SP[a1, a3], SP[a2, a4], a2, n] + 
    2*S2[a1, SP[a1, a4], a2, SP[a2, a3], n] - S2[a1, SP[a1, a4], a3, 
     SP[a2, a2], n] + S2[a1, SP[a1, a4], SP[a2, a3], a2, n] + 
    S2[a1, SP[a2, a2], a1, SP[a3, a4], n] + S2[a1, SP[a2, a2], SP[a1, a4], 
     a3, n] + S2[SP[a1, a1], a2, a4, SP[a2, a3], n] + 
    S2[SP[a1, a1], a2, SP[a3, a4], a2, n] - S2[SP[a1, a1], a3, a4, 
     SP[a2, a2], n] - S2[SP[a1, a1], a3, SP[a2, a4], a2, n] + 
    2*S2[SP[a1, a1], a4, a2, SP[a2, a3], n] - S2[SP[a1, a1], a4, a3, 
     SP[a2, a2], n] + S2[SP[a1, a1], a4, SP[a2, a3], a2, n] + 
    S2[SP[a1, a1], SP[a2, a3], a4, a2, n] + 
    2*S2[SP[a1, a2], a1, a2, SP[a3, a4], n] + 
    2*S2[SP[a1, a2], a1, SP[a2, a4], a3, n] + S2[SP[a1, a2], a2, a1, 
     SP[a3, a4], n] + S2[SP[a1, a2], a2, SP[a1, a4], a3, n] + 
    2*S2[SP[a1, a2], SP[a1, a4], a2, a3, n] + S2[SP[a1, a2], SP[a2, a4], a1, 
     a3, n] - 4*S2[a1, a1, a2, a2, SP[a3, a4], n] + 
    2*S2[a2, n]*S2[a1, a1, a2, a3, a4, n] + 
    2*S2[a1, a1, a2, a3, SP[a2, a4], n] + 
    2*S2[a2, n]*S2[a1, a1, a2, a4, a3, n] - 
    2*S2[a1, a1, a2, SP[a3, a4], a2, n] + 
    2*S2[a1, a1, a3, a4, SP[a2, a2], n] + 
    2*S2[a1, a1, a3, SP[a2, a4], a2, n] + 
    2*S2[a2, n]*S2[a1, a1, a4, a2, a3, n] - 
    2*S2[a1, a1, a4, a2, SP[a2, a3], n] + 
    2*S2[a1, a1, a4, a3, SP[a2, a2], n] + 
    2*S2[a1, a1, a4, SP[a2, a2], a3, n] - 
    2*S2[a1, a1, a4, SP[a2, a3], a2, n] - 
    2*S2[a1, a1, SP[a2, a3], a4, a2, n] + 
    2*S2[a1, a1, SP[a2, a4], a2, a3, n] - 
    3*S2[a1, a2, a1, a2, SP[a3, a4], n] + 
    S2[a2, n]*S2[a1, a2, a1, a3, a4, n] + S2[a1, a2, a1, a3, SP[a2, a4], n] + 
    S2[a2, n]*S2[a1, a2, a1, a4, a3, n] - S2[a1, a2, a1, SP[a2, a4], a3, n] - 
    S2[a1, a2, a1, SP[a3, a4], a2, n] - 2*S2[a1, a2, a2, a1, SP[a3, a4], n] - 
    2*S2[a1, a2, a2, SP[a1, a4], a3, n] + 
    S2[a2, n]*S2[a1, a2, a4, a1, a3, n] - 
    3*S2[a1, a2, SP[a1, a4], a2, a3, n] - S2[a1, a2, SP[a1, a4], a3, a2, n] + 
    S2[a1, a3, a1, a4, SP[a2, a2], n] + S2[a1, a3, a1, SP[a2, a4], a2, n] + 
    S2[a1, a3, SP[a1, a2], a4, a2, n] + 2*S2[a2, n]*
     S2[a1, a4, a1, a2, a3, n] + S2[a1, a4, a1, a3, SP[a2, a2], n] + 
    2*S2[a1, a4, a1, SP[a2, a2], a3, n] - S2[a1, a4, a1, SP[a2, a3], a2, n] + 
    S2[a2, n]*S2[a1, a4, a2, a1, a3, n] - S2[a1, a4, a2, a1, SP[a2, a3], n] - 
    S2[a1, a4, a2, SP[a1, a2], a3, n] - S2[a1, a4, SP[a1, a2], a3, a2, n] + 
    S2[a1, a4, SP[a2, a2], a1, a3, n] - S2[a1, SP[a1, a2], a3, a4, a2, n] - 
    S2[a1, SP[a1, a2], a4, a2, a3, n] - S2[a1, SP[a1, a2], a4, a3, a2, n] - 
    2*S2[a1, SP[a1, a4], a2, a2, a3, n] - S2[a1, SP[a1, a4], a2, a3, a2, n] + 
    2*S2[a1, SP[a2, a4], a1, a2, a3, n] + S2[a1, SP[a2, a4], a2, a1, a3, n] - 
    2*S2[a2, a1, a1, a2, SP[a3, a4], n] - 
    2*S2[a2, a1, a1, SP[a2, a4], a3, n] - S2[a2, a1, a2, a1, SP[a3, a4], n] - 
    S2[a2, a1, a2, SP[a1, a4], a3, n] - 2*S2[a2, a1, SP[a1, a4], a2, a3, n] - 
    S2[a2, a1, SP[a2, a4], a1, a3, n] - 2*S2[a2, SP[a1, a4], a1, a2, a3, n] - 
    S2[a2, SP[a1, a4], a2, a1, a3, n] + 2*S2[a2, n]*
     S2[a4, a1, a1, a2, a3, n] + 2*S2[a4, a1, a1, a2, SP[a2, a3], n] + 
    2*S2[a4, a1, a1, SP[a2, a2], a3, n] + 
    S2[a2, n]*S2[a4, a1, a2, a1, a3, n] + S2[a4, a1, a2, a1, SP[a2, a3], n] - 
    2*S2[a1, n]*S2[a4, a1, a2, a2, a3, n] - 
    2*S2[a4, a1, a2, a2, SP[a1, a3], n] - 
    S2[a1, n]*S2[a4, a1, a2, a3, a2, n] - S2[a4, a1, a2, a3, SP[a1, a2], n] - 
    S2[a4, a1, a2, SP[a1, a2], a3, n] - S2[a4, a1, a2, SP[a1, a3], a2, n] - 
    S2[a4, a1, SP[a1, a2], a3, a2, n] + S2[a4, a1, SP[a2, a2], a1, a3, n] - 
    S2[a1, n]*S2[a4, a2, a1, a2, a3, n] - S2[a4, a2, a1, a2, SP[a1, a3], n] - 
    S2[a4, a2, a1, SP[a1, a2], a3, n] - S2[a4, a2, SP[a1, a1], a2, a3, n] - 
    2*S2[a4, SP[a1, a1], a2, a2, a3, n] - S2[a4, SP[a1, a1], a2, a3, a2, n] + 
    S2[a4, SP[a1, a2], a1, a2, a3, n] + S2[a4, SP[a1, a2], a2, a1, a3, n] - 
    S2[SP[a1, a1], a2, a3, a4, a2, n] - S2[SP[a1, a1], a2, a4, a2, a3, n] - 
    S2[SP[a1, a1], a2, a4, a3, a2, n] - 2*S2[SP[a1, a1], a4, a2, a2, a3, n] - 
    S2[SP[a1, a1], a4, a2, a3, a2, n] - 2*S2[SP[a1, a4], a1, a2, a2, a3, n] - 
    S2[SP[a1, a4], a1, a2, a3, a2, n] - S2[SP[a1, a4], a2, a1, a2, a3, n] + 
    2*S2[SP[a2, a4], a1, a1, a2, a3, n] + S2[SP[a2, a4], a1, a2, a1, a3, n] + 
    2*S2[a4, a1, a2, a2, a3, a1, n] + S2[a4, a1, a2, a3, a1, a2, n] + 
    S2[a4, a1, a2, a3, a2, a1, n] + S2[a4, a2, a1, a2, a3, a1, n] /; 
   MyMemberQ[{{a1, a2}, {a3, a4}}, {a1, a1, a2, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a1_, a3_, a2_, a2_, a1_, a4_, n_] :> 
  -(S2[a1, a2, a4, n]*S2[a1, a3, a2, n]) - S2[a1, a3, a2, n]*
     S2[a1, a4, a2, n] - S2[SP[a1, a1], SP[a2, a3], SP[a2, a4], n] - 
    S2[SP[a1, a1], SP[a3, a4], SP[a2, a2], n] + 
    2*S2[a1, a1, SP[a2, a3], SP[a2, a4], n] + 
    2*S2[a1, a1, SP[a3, a4], SP[a2, a2], n] + 
    S2[a1, a3, n]*S2[a1, a2, a2, a4, n] + S2[a1, a3, n]*
     S2[a1, a2, a4, a2, n] - S2[a1, a2, SP[a1, a2], SP[a3, a4], n] - 
    S2[a1, a2, SP[a1, a4], SP[a2, a3], n] + S2[a1, a4, n]*
     S2[a1, a3, a2, a2, n] - S2[a1, a3, SP[a1, a2], SP[a2, a4], n] + 
    S2[a1, a3, n]*S2[a1, a4, a2, a2, n] - S2[a1, a4, SP[a1, a2], SP[a2, a3], 
     n] - S2[a1, SP[a1, a2], a2, SP[a3, a4], n] + S2[a1, SP[a1, a2], a3, 
     SP[a2, a4], n] - S2[a1, SP[a1, a2], a4, SP[a2, a3], n] - 
    S2[a1, SP[a1, a2], SP[a2, a3], a4, n] + S2[a1, SP[a1, a3], a4, 
     SP[a2, a2], n] + S2[a1, SP[a1, a3], SP[a2, a2], a4, n] - 
    S2[a1, SP[a1, a4], a2, SP[a2, a3], n] + S2[a1, SP[a1, a4], a3, 
     SP[a2, a2], n] - S2[SP[a1, a1], a2, a2, SP[a3, a4], n] + 
    S2[SP[a1, a1], a2, a3, SP[a2, a4], n] - S2[SP[a1, a1], a2, a4, 
     SP[a2, a3], n] - S2[SP[a1, a1], a2, SP[a2, a3], a4, n] + 
    S2[SP[a1, a1], a3, a4, SP[a2, a2], n] + S2[SP[a1, a1], a3, SP[a2, a2], 
     a4, n] - S2[SP[a1, a1], a4, a2, SP[a2, a3], n] + 
    S2[SP[a1, a1], a4, a3, SP[a2, a2], n] - 
    2*S2[a4, n]*S2[a1, a1, a2, a2, a3, n] - 
    2*S2[a1, a1, a2, a3, SP[a2, a4], n] + 
    2*S2[a1, a1, a2, a4, SP[a2, a3], n] + 
    2*S2[a1, a1, a2, SP[a2, a3], a4, n] - 
    2*S2[a1, a1, a2, SP[a2, a4], a3, n] - 
    2*S2[a1, a1, a3, a4, SP[a2, a2], n] - 
    2*S2[a1, a1, a3, SP[a2, a2], a4, n] + 
    2*S2[a1, a1, a4, a2, SP[a2, a3], n] - 
    2*S2[a1, a1, a4, a3, SP[a2, a2], n] - 
    2*S2[a1, a1, SP[a2, a4], a2, a3, n] - 
    S2[a4, n]*S2[a1, a2, a1, a2, a3, n] - S2[a1, a2, a1, a3, SP[a2, a4], n] + 
    S2[a1, a2, a1, a4, SP[a2, a3], n] + S2[a1, a2, a1, SP[a2, a3], a4, n] - 
    S2[a1, a2, a1, SP[a2, a4], a3, n] - S2[a4, n]*S2[a1, a2, a2, a1, a3, n] + 
    S2[a1, a2, a4, a1, SP[a2, a3], n] + S2[a1, a2, a4, SP[a1, a2], a3, n] + 
    S2[a1, a2, SP[a1, a2], a3, a4, n] + S2[a1, a2, SP[a1, a2], a4, a3, n] - 
    S2[a1, a2, SP[a2, a4], a1, a3, n] - S2[a1, a3, a1, a4, SP[a2, a2], n] - 
    S2[a1, a3, a1, SP[a2, a2], a4, n] + S2[a1, a3, a2, a1, SP[a2, a4], n] + 
    S2[a1, a3, a2, SP[a1, a2], a4, n] + S2[a1, a4, a1, a2, SP[a2, a3], n] - 
    S2[a1, a4, a1, a3, SP[a2, a2], n] + S2[a1, a4, a2, a1, SP[a2, a3], n] + 
    S2[a1, a4, a2, SP[a1, a2], a3, n] + S2[a1, a4, SP[a1, a2], a2, a3, n] + 
    S2[a1, SP[a1, a2], a2, a3, a4, n] + S2[a1, SP[a1, a2], a2, a4, a3, n] + 
    S2[a1, SP[a1, a2], a4, a2, a3, n] - S2[a1, SP[a1, a4], a2, a2, a3, n] - 
    S2[a1, SP[a2, a4], a1, a2, a3, n] - S2[a1, SP[a2, a4], a2, a1, a3, n] + 
    S2[a1, n]*S2[a4, a1, a2, a2, a3, n] + S2[a4, a1, a2, a2, SP[a1, a3], n] + 
    S2[a4, a1, a2, SP[a1, a2], a3, n] + S2[a4, a1, SP[a1, a2], a2, a3, n] + 
    S2[a4, SP[a1, a1], a2, a2, a3, n] + S2[SP[a1, a1], a2, a2, a3, a4, n] + 
    S2[SP[a1, a1], a2, a2, a4, a3, n] + S2[SP[a1, a1], a2, a4, a2, a3, n] + 
    S2[SP[a1, a1], a4, a2, a2, a3, n] - S2[SP[a1, a4], a1, a2, a2, a3, n] - 
    S2[SP[a1, a4], a2, a1, a2, a3, n] - S2[SP[a1, a4], a2, a2, a1, a3, n] - 
    S2[a4, a1, a2, a2, a3, a1, n] /; MyMemberQ[{{a1, a2}, {a3, a4}}, 
     {a1, a1, a2, a2, a3, a4}] && a1 != a2 != a3 != a4, 
 S2[a1_, a3_, a2_, a2_, a4_, a1_, n_] :> 
  S2[a1, a3, a2, n]*S2[a1, a4, a2, n] + S2[SP[a1, a1], SP[a3, a4], 
     SP[a2, a2], n] - 2*S2[a1, a1, SP[a3, a4], SP[a2, a2], n] - 
    S2[a1, a4, n]*S2[a1, a3, a2, a2, n] + S2[a1, a3, SP[a1, a2], SP[a2, a4], 
     n] - S2[a1, a3, n]*S2[a1, a4, a2, a2, n] + S2[a1, a4, SP[a1, a2], 
     SP[a2, a3], n] + S2[a1, SP[a1, a3], a2, SP[a2, a4], n] - 
    S2[a1, SP[a1, a3], a4, SP[a2, a2], n] + S2[a1, SP[a1, a4], a2, 
     SP[a2, a3], n] - S2[a1, SP[a1, a4], a3, SP[a2, a2], n] + 
    S2[SP[a1, a1], a3, a2, SP[a2, a4], n] - S2[SP[a1, a1], a3, a4, 
     SP[a2, a2], n] + S2[SP[a1, a1], a4, a2, SP[a2, a3], n] - 
    S2[SP[a1, a1], a4, a3, SP[a2, a2], n] - 
    2*S2[a1, a1, a3, a2, SP[a2, a4], n] + 
    2*S2[a1, a1, a3, a4, SP[a2, a2], n] - 
    2*S2[a1, a1, a4, a2, SP[a2, a3], n] + 
    2*S2[a1, a1, a4, a3, SP[a2, a2], n] - S2[a1, a3, a1, a2, SP[a2, a4], n] + 
    S2[a1, a3, a1, a4, SP[a2, a2], n] - S2[a1, a3, a2, a1, SP[a2, a4], n] + 
    S2[a1, n]*S2[a1, a3, a2, a2, a4, n] + S2[a1, a3, a2, a2, SP[a1, a4], n] - 
    S2[a1, a4, a1, a2, SP[a2, a3], n] + S2[a1, a4, a1, a3, SP[a2, a2], n] - 
    S2[a1, a4, a2, a1, SP[a2, a3], n] + S2[a1, n]*S2[a1, a4, a2, a2, a3, n] + 
    S2[a1, a4, a2, a2, SP[a1, a3], n] - S2[a1, n]*S2[a4, a2, a2, a3, a1, n] - 
    S2[a4, a2, a2, a3, SP[a1, a1], n] - S2[a4, a2, a2, SP[a1, a3], a1, n] - 
    S2[a4, a2, SP[a1, a2], a3, a1, n] - S2[a4, SP[a1, a2], a2, a3, a1, n] - 
    S2[SP[a1, a4], a2, a2, a3, a1, n] + S2[a4, a1, a2, a2, a3, a1, n] + 
    S2[a4, a2, a1, a2, a3, a1, n] + S2[a4, a2, a2, a1, a3, a1, n] + 
    2*S2[a4, a2, a2, a3, a1, a1, n] /; 
   MyMemberQ[{{a1, a2}, {a3, a4}}, {a1, a1, a2, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a1_, a3_, a2_, a4_, a1_, a2_, n_] :> 
  -(S2[a1, a2, a4, n]*S2[a1, a3, a2, n]) - S2[a1, a3, a2, n]*
     S2[a1, a4, a2, n] - S2[SP[a1, a1], SP[a2, a3], SP[a2, a4], n] - 
    S2[SP[a1, a1], SP[a3, a4], SP[a2, a2], n] + 
    2*S2[a1, a1, SP[a2, a3], SP[a2, a4], n] + 
    2*S2[a1, a1, SP[a3, a4], SP[a2, a2], n] + 
    S2[a1, a3, n]*S2[a1, a2, a4, a2, n] - S2[a1, a2, SP[a1, a4], SP[a2, a3], 
     n] - S2[a1, a2, n]*S2[a1, a3, a4, a2, n] + S2[a1, a3, SP[a1, a4], 
     SP[a2, a2], n] + 2*S2[a1, a3, n]*S2[a1, a4, a2, a2, n] - 
    S2[a1, a2, n]*S2[a1, a4, a2, a3, n] - S2[a1, a2, n]*
     S2[a1, a4, a3, a2, n] - S2[a1, a4, SP[a1, a2], SP[a2, a3], n] + 
    S2[a1, a4, SP[a1, a3], SP[a2, a2], n] + S2[a1, SP[a1, a2], a3, 
     SP[a2, a4], n] - S2[a1, SP[a1, a2], a4, SP[a2, a3], n] + 
    S2[a1, SP[a1, a3], a2, SP[a2, a4], n] + 
    2*S2[a1, SP[a1, a3], a4, SP[a2, a2], n] + S2[a1, SP[a1, a3], SP[a2, a2], 
     a4, n] + 2*S2[a1, SP[a1, a3], SP[a2, a4], a2, n] - 
    S2[a1, SP[a1, a4], a2, SP[a2, a3], n] + 
    2*S2[a1, SP[a1, a4], a3, SP[a2, a2], n] + S2[a1, SP[a1, a4], SP[a2, a2], 
     a3, n] + S2[a1, a2, n]*S2[a2, a4, a1, a3, n] - 
    S2[a2, a4, SP[a1, a1], SP[a2, a3], n] - S2[a2, SP[a1, a4], a1, 
     SP[a2, a3], n] - S2[a2, SP[a1, a4], SP[a1, a2], a3, n] + 
    S2[SP[a1, a1], a2, a3, SP[a2, a4], n] - S2[SP[a1, a1], a2, a4, 
     SP[a2, a3], n] + S2[SP[a1, a1], a3, a2, SP[a2, a4], n] + 
    2*S2[SP[a1, a1], a3, a4, SP[a2, a2], n] + S2[SP[a1, a1], a3, SP[a2, a2], 
     a4, n] + 2*S2[SP[a1, a1], a3, SP[a2, a4], a2, n] - 
    S2[SP[a1, a1], a4, a2, SP[a2, a3], n] + 
    2*S2[SP[a1, a1], a4, a3, SP[a2, a2], n] + S2[SP[a1, a1], a4, SP[a2, a2], 
     a3, n] + S2[SP[a1, a1], SP[a2, a3], a2, a4, n] + 
    S2[SP[a1, a1], SP[a2, a3], a4, a2, n] + S2[SP[a1, a1], SP[a2, a4], a2, 
     a3, n] + S2[SP[a1, a1], SP[a2, a4], a3, a2, n] - 
    S2[SP[a1, a2], a4, a1, SP[a2, a3], n] - S2[SP[a1, a2], a4, SP[a1, a2], 
     a3, n] - S2[SP[a1, a2], SP[a2, a4], a1, a3, n] + 
    2*S2[a4, n]*S2[a1, a1, a2, a3, a2, n] + 
    2*S2[a1, a1, a2, a4, SP[a2, a3], n] + 
    2*S2[a1, a1, a2, SP[a3, a4], a2, n] + 
    4*S2[a4, n]*S2[a1, a1, a3, a2, a2, n] + 
    2*S2[a1, a1, a3, a2, SP[a2, a4], n] - 
    4*S2[a1, a1, a3, a4, SP[a2, a2], n] - 
    2*S2[a1, a1, a3, SP[a2, a2], a4, n] + 
    2*S2[a1, a1, a4, a2, SP[a2, a3], n] - 
    4*S2[a1, a1, a4, a3, SP[a2, a2], n] - 
    2*S2[a1, a1, a4, SP[a2, a2], a3, n] - 
    2*S2[a1, a1, SP[a2, a3], a2, a4, n] - 
    2*S2[a1, a1, SP[a2, a3], a4, a2, n] - 
    2*S2[a1, a1, SP[a2, a4], a2, a3, n] + 
    4*S2[a1, a1, SP[a3, a4], a2, a2, n] + 
    S2[a4, n]*S2[a1, a2, a1, a3, a2, n] + S2[a1, a2, a1, a4, SP[a2, a3], n] + 
    S2[a1, a2, a1, SP[a3, a4], a2, n] - S2[a2, n]*S2[a1, a2, a4, a1, a3, n] + 
    S2[a1, a2, a4, a1, SP[a2, a3], n] + S2[a1, a2, a4, SP[a1, a2], a3, n] + 
    S2[a1, a2, SP[a1, a4], a2, a3, n] + S2[a1, a2, SP[a1, a4], a3, a2, n] + 
    2*S2[a4, n]*S2[a1, a3, a1, a2, a2, n] + S2[a1, a3, a1, a2, SP[a2, a4], 
     n] - 2*S2[a1, a3, a1, a4, SP[a2, a2], n] - S2[a1, a3, a1, SP[a2, a2], 
     a4, n] + S2[a4, n]*S2[a1, a3, a2, a1, a2, n] + 
    S2[a1, a3, a2, a1, SP[a2, a4], n] + S2[a1, a3, a2, SP[a1, a4], a2, n] - 
    S2[a1, a3, a4, a1, SP[a2, a2], n] - S2[a1, a3, a4, SP[a1, a2], a2, n] - 
    S2[a1, a3, SP[a1, a2], a2, a4, n] - S2[a1, a3, SP[a1, a2], a4, a2, n] + 
    S2[a1, a3, SP[a2, a4], a1, a2, n] - S2[a2, n]*S2[a1, a4, a1, a2, a3, n] - 
    S2[a2, n]*S2[a1, a4, a1, a3, a2, n] - 
    3*S2[a1, a4, a1, a3, SP[a2, a2], n] - 
    2*S2[a1, a4, a1, SP[a2, a2], a3, n] - S2[a1, a4, a1, SP[a2, a3], a2, n] - 
    S2[a2, n]*S2[a1, a4, a2, a1, a3, n] + S2[a1, a4, a2, SP[a1, a2], a3, n] - 
    S2[a1, a4, a2, SP[a1, a3], a2, n] - S2[a1, a4, a3, a1, SP[a2, a2], n] - 
    S2[a1, a4, a3, SP[a1, a2], a2, n] - S2[a1, a4, SP[a1, a2], a3, a2, n] - 
    2*S2[a1, a4, SP[a1, a3], a2, a2, n] - S2[a1, a4, SP[a2, a2], a1, a3, n] - 
    S2[a1, SP[a1, a2], a3, a2, a4, n] - S2[a1, SP[a1, a2], a3, a4, a2, n] - 
    S2[a1, SP[a1, a2], a4, a3, a2, n] - 2*S2[a1, SP[a1, a3], a2, a2, a4, n] - 
    2*S2[a1, SP[a1, a3], a2, a4, a2, n] - 
    2*S2[a1, SP[a1, a3], a4, a2, a2, n] + S2[a1, SP[a1, a4], a2, a3, a2, n] + 
    2*S2[a1, SP[a1, a4], a3, a2, a2, n] - S2[a1, SP[a2, a4], a1, a2, a3, n] - 
    S2[a1, SP[a2, a4], a2, a1, a3, n] + 2*S2[a1, SP[a3, a4], a1, a2, a2, n] + 
    S2[a1, SP[a3, a4], a2, a1, a2, n] + S2[a2, a1, a4, a1, SP[a2, a3], n] + 
    S2[a2, a1, a4, SP[a1, a2], a3, n] + S2[a2, a1, SP[a2, a4], a1, a3, n] + 
    2*S2[a2, a4, a1, a1, SP[a2, a3], n] + S2[a2, a4, a1, SP[a1, a2], a3, n] + 
    S2[a2, a4, a1, SP[a1, a3], a2, n] + S2[a2, a4, SP[a1, a1], a2, a3, n] + 
    S2[a2, a4, SP[a1, a1], a3, a2, n] + S2[a2, SP[a1, a4], a1, a2, a3, n] + 
    S2[a2, SP[a1, a4], a1, a3, a2, n] + S2[a2, SP[a1, a4], a2, a1, a3, n] - 
    2*S2[a2, n]*S2[a4, a1, a1, a2, a3, n] - 
    2*S2[a4, a1, a1, a2, SP[a2, a3], n] - 
    2*S2[a2, n]*S2[a4, a1, a1, a3, a2, n] - 
    2*S2[a4, a1, a1, a3, SP[a2, a2], n] - 
    2*S2[a4, a1, a1, SP[a2, a2], a3, n] - 
    2*S2[a4, a1, a1, SP[a2, a3], a2, n] - 
    S2[a2, n]*S2[a4, a1, a2, a1, a3, n] - S2[a4, a1, a2, a1, SP[a2, a3], n] + 
    2*S2[a1, n]*S2[a4, a1, a2, a2, a3, n] + 
    2*S2[a4, a1, a2, a2, SP[a1, a3], n] + 
    S2[a1, n]*S2[a4, a1, a2, a3, a2, n] + S2[a4, a1, a2, a3, SP[a1, a2], n] + 
    S2[a4, a1, a2, SP[a1, a2], a3, n] + S2[a4, a1, a2, SP[a1, a3], a2, n] - 
    S2[a2, n]*S2[a4, a1, a3, a1, a2, n] - S2[a4, a1, a3, a1, SP[a2, a2], n] - 
    S2[a4, a1, a3, SP[a1, a2], a2, n] - S2[a4, a1, SP[a1, a2], a3, a2, n] - 
    S2[a4, a1, SP[a2, a2], a1, a3, n] - S2[a4, a1, SP[a2, a3], a1, a2, n] + 
    S2[a1, n]*S2[a4, a2, a1, a2, a3, n] + S2[a4, a2, a1, a2, SP[a1, a3], n] + 
    S2[a1, n]*S2[a4, a2, a1, a3, a2, n] + S2[a4, a2, a1, a3, SP[a1, a2], n] + 
    S2[a4, a2, a1, SP[a1, a2], a3, n] + S2[a4, a2, a1, SP[a1, a3], a2, n] + 
    S2[a1, n]*S2[a4, a2, a3, a1, a2, n] + S2[a4, a2, a3, a1, SP[a1, a2], n] + 
    S2[a4, a2, a3, SP[a1, a1], a2, n] + S2[a4, a2, SP[a1, a1], a2, a3, n] + 
    S2[a4, a2, SP[a1, a1], a3, a2, n] + S2[a4, a2, SP[a1, a3], a1, a2, n] + 
    2*S2[a4, SP[a1, a1], a2, a2, a3, n] + S2[a4, SP[a1, a1], a2, a3, a2, n] - 
    S2[a4, SP[a1, a2], a1, a2, a3, n] - S2[a4, SP[a1, a2], a1, a3, a2, n] - 
    S2[a4, SP[a1, a2], a2, a1, a3, n] - S2[SP[a1, a1], a2, a3, a2, a4, n] - 
    S2[SP[a1, a1], a2, a3, a4, a2, n] - S2[SP[a1, a1], a2, a4, a3, a2, n] - 
    2*S2[SP[a1, a1], a3, a2, a2, a4, n] - 
    2*S2[SP[a1, a1], a3, a2, a4, a2, n] - 
    2*S2[SP[a1, a1], a3, a4, a2, a2, n] - S2[SP[a1, a1], a4, a2, a3, a2, n] - 
    2*S2[SP[a1, a1], a4, a3, a2, a2, n] + 
    2*S2[SP[a1, a4], a1, a2, a2, a3, n] + 
    3*S2[SP[a1, a4], a1, a2, a3, a2, n] + 
    4*S2[SP[a1, a4], a1, a3, a2, a2, n] + S2[SP[a1, a4], a2, a1, a2, a3, n] + 
    2*S2[SP[a1, a4], a2, a1, a3, a2, n] + S2[SP[a1, a4], a2, a3, a1, a2, n] + 
    2*S2[SP[a1, a4], a3, a1, a2, a2, n] + S2[SP[a1, a4], a3, a2, a1, a2, n] - 
    2*S2[SP[a2, a4], a1, a1, a2, a3, n] - 
    2*S2[SP[a2, a4], a1, a1, a3, a2, n] - S2[SP[a2, a4], a1, a2, a1, a3, n] - 
    S2[SP[a2, a4], a1, a3, a1, a2, n] - 2*S2[a4, a1, a2, a2, a3, a1, n] - 
    S2[a4, a1, a2, a3, a1, a2, n] - S2[a4, a1, a2, a3, a2, a1, n] - 
    S2[a4, a2, a1, a2, a3, a1, n] - S2[a4, a2, a1, a3, a1, a2, n] - 
    S2[a4, a2, a1, a3, a2, a1, n] - 2*S2[a4, a2, a3, a1, a1, a2, n] - 
    S2[a4, a2, a3, a1, a2, a1, n] /; MyMemberQ[{{a1, a2}, {a3, a4}}, 
     {a1, a1, a2, a2, a3, a4}] && a1 != a2 != a3 != a4, 
 S2[a1_, a3_, a2_, a4_, a2_, a1_, n_] :> 
  S2[a1, a2, a4, n]*S2[a1, a3, a2, n] + S2[SP[a1, a1], SP[a2, a3], 
     SP[a2, a4], n] - 2*S2[a1, a1, SP[a2, a3], SP[a2, a4], n] - 
    S2[a1, a3, n]*S2[a1, a2, a4, a2, n] + S2[a1, a2, SP[a1, a4], SP[a2, a3], 
     n] + S2[a1, a2, n]*S2[a1, a3, a4, a2, n] - S2[a1, a3, SP[a1, a4], 
     SP[a2, a2], n] + S2[a1, a2, n]*S2[a1, a4, a2, a3, n] + 
    S2[a1, a2, n]*S2[a1, a4, a3, a2, n] - S2[a1, a4, SP[a1, a2], SP[a2, a3], 
     n] - S2[a1, a4, SP[a1, a3], SP[a2, a2], n] - S2[a1, SP[a1, a2], a3, 
     SP[a2, a4], n] + S2[a1, SP[a1, a2], a4, SP[a2, a3], n] - 
    S2[a1, SP[a1, a3], a2, SP[a2, a4], n] - S2[a1, SP[a1, a3], a4, 
     SP[a2, a2], n] - S2[a1, SP[a1, a3], SP[a2, a2], a4, n] - 
    S2[a1, SP[a1, a3], SP[a2, a4], a2, n] - S2[a1, SP[a1, a4], a2, 
     SP[a2, a3], n] - S2[a1, SP[a1, a4], a3, SP[a2, a2], n] - 
    S2[a1, SP[a1, a4], SP[a2, a2], a3, n] - S2[a1, SP[a1, a4], SP[a2, a3], 
     a2, n] - S2[a1, a2, n]*S2[a2, a4, a1, a3, n] + 
    S2[a2, a4, SP[a1, a1], SP[a2, a3], n] + S2[a2, SP[a1, a4], a1, 
     SP[a2, a3], n] + S2[a2, SP[a1, a4], SP[a1, a2], a3, n] - 
    S2[SP[a1, a1], a2, a3, SP[a2, a4], n] + S2[SP[a1, a1], a2, a4, 
     SP[a2, a3], n] - S2[SP[a1, a1], a3, a2, SP[a2, a4], n] - 
    S2[SP[a1, a1], a3, a4, SP[a2, a2], n] - S2[SP[a1, a1], a3, SP[a2, a2], 
     a4, n] - S2[SP[a1, a1], a3, SP[a2, a4], a2, n] - 
    S2[SP[a1, a1], a4, a2, SP[a2, a3], n] - S2[SP[a1, a1], a4, a3, 
     SP[a2, a2], n] - S2[SP[a1, a1], a4, SP[a2, a2], a3, n] - 
    S2[SP[a1, a1], a4, SP[a2, a3], a2, n] - S2[SP[a1, a1], SP[a2, a3], a2, 
     a4, n] - S2[SP[a1, a1], SP[a2, a3], a4, a2, n] - 
    S2[SP[a1, a1], SP[a2, a4], a2, a3, n] - S2[SP[a1, a1], SP[a2, a4], a3, 
     a2, n] + S2[SP[a1, a2], a4, a1, SP[a2, a3], n] + 
    S2[SP[a1, a2], a4, SP[a1, a2], a3, n] + S2[SP[a1, a2], SP[a2, a4], a1, 
     a3, n] - 2*S2[a4, n]*S2[a1, a1, a2, a3, a2, n] - 
    2*S2[a1, a1, a2, a4, SP[a2, a3], n] - 
    2*S2[a1, a1, a2, SP[a3, a4], a2, n] - 
    4*S2[a4, n]*S2[a1, a1, a3, a2, a2, n] - 
    2*S2[a1, a1, a3, a2, SP[a2, a4], n] + 
    2*S2[a1, a1, a3, a4, SP[a2, a2], n] + 
    2*S2[a1, a1, a3, SP[a2, a2], a4, n] - 
    2*S2[a1, a1, a3, SP[a2, a4], a2, n] + 
    2*S2[a1, a1, a4, a2, SP[a2, a3], n] + 
    2*S2[a1, a1, a4, a3, SP[a2, a2], n] + 
    2*S2[a1, a1, a4, SP[a2, a2], a3, n] + 
    2*S2[a1, a1, a4, SP[a2, a3], a2, n] + 
    2*S2[a1, a1, SP[a2, a3], a2, a4, n] + 
    2*S2[a1, a1, SP[a2, a3], a4, a2, n] + 
    2*S2[a1, a1, SP[a2, a4], a2, a3, n] - 
    4*S2[a1, a1, SP[a3, a4], a2, a2, n] - 
    S2[a4, n]*S2[a1, a2, a1, a3, a2, n] - S2[a1, a2, a1, a4, SP[a2, a3], n] - 
    S2[a1, a2, a1, SP[a3, a4], a2, n] + S2[a2, n]*S2[a1, a2, a4, a1, a3, n] - 
    S2[a1, a2, a4, a1, SP[a2, a3], n] - S2[a1, a2, a4, SP[a1, a2], a3, n] - 
    S2[a1, a2, SP[a1, a4], a2, a3, n] - S2[a1, a2, SP[a1, a4], a3, a2, n] - 
    2*S2[a4, n]*S2[a1, a3, a1, a2, a2, n] - S2[a1, a3, a1, a2, SP[a2, a4], 
     n] + S2[a1, a3, a1, a4, SP[a2, a2], n] + S2[a1, a3, a1, SP[a2, a2], a4, 
     n] - S2[a1, a3, a1, SP[a2, a4], a2, n] - 
    S2[a4, n]*S2[a1, a3, a2, a1, a2, n] - S2[a1, a3, a2, a1, SP[a2, a4], n] + 
    S2[a1, n]*S2[a1, a3, a2, a4, a2, n] + S2[a1, a3, a2, a4, SP[a1, a2], n] + 
    S2[a1, a3, a4, a1, SP[a2, a2], n] + S2[a1, a3, a4, SP[a1, a2], a2, n] + 
    S2[a1, a3, SP[a1, a2], a2, a4, n] + S2[a1, a3, SP[a1, a2], a4, a2, n] - 
    S2[a1, a3, SP[a2, a4], a1, a2, n] + S2[a2, n]*S2[a1, a4, a1, a2, a3, n] + 
    2*S2[a1, a4, a1, a2, SP[a2, a3], n] + 
    S2[a2, n]*S2[a1, a4, a1, a3, a2, n] + 
    2*S2[a1, a4, a1, a3, SP[a2, a2], n] + 
    2*S2[a1, a4, a1, SP[a2, a2], a3, n] + 
    2*S2[a1, a4, a1, SP[a2, a3], a2, n] + 
    S2[a2, n]*S2[a1, a4, a2, a1, a3, n] + 
    2*S2[a1, a4, a2, a1, SP[a2, a3], n] - 
    2*S2[a1, n]*S2[a1, a4, a2, a2, a3, n] - 
    2*S2[a1, a4, a2, a2, SP[a1, a3], n] - 
    S2[a1, n]*S2[a1, a4, a2, a3, a2, n] - S2[a1, a4, a2, a3, SP[a1, a2], n] - 
    S2[a1, a4, a2, SP[a1, a2], a3, n] + S2[a1, a4, a3, a1, SP[a2, a2], n] + 
    S2[a1, a4, a3, SP[a1, a2], a2, n] + S2[a1, a4, SP[a1, a2], a3, a2, n] + 
    2*S2[a1, a4, SP[a1, a3], a2, a2, n] + S2[a1, a4, SP[a2, a2], a1, a3, n] + 
    S2[a1, SP[a1, a2], a3, a2, a4, n] + S2[a1, SP[a1, a2], a3, a4, a2, n] + 
    S2[a1, SP[a1, a2], a4, a3, a2, n] + 2*S2[a1, SP[a1, a3], a2, a2, a4, n] + 
    2*S2[a1, SP[a1, a3], a2, a4, a2, n] + 
    2*S2[a1, SP[a1, a3], a4, a2, a2, n] - S2[a1, SP[a1, a4], a2, a3, a2, n] - 
    2*S2[a1, SP[a1, a4], a3, a2, a2, n] + S2[a1, SP[a2, a4], a1, a2, a3, n] + 
    S2[a1, SP[a2, a4], a2, a1, a3, n] - 2*S2[a1, SP[a3, a4], a1, a2, a2, n] - 
    S2[a1, SP[a3, a4], a2, a1, a2, n] - S2[a2, a1, a4, a1, SP[a2, a3], n] - 
    S2[a2, a1, a4, SP[a1, a2], a3, n] - S2[a2, a1, SP[a2, a4], a1, a3, n] - 
    2*S2[a2, a4, a1, a1, SP[a2, a3], n] - S2[a2, a4, a1, SP[a1, a2], a3, n] - 
    S2[a2, a4, a1, SP[a1, a3], a2, n] - S2[a2, a4, SP[a1, a1], a2, a3, n] - 
    S2[a2, a4, SP[a1, a1], a3, a2, n] - S2[a2, SP[a1, a4], a1, a2, a3, n] - 
    S2[a2, SP[a1, a4], a1, a3, a2, n] - S2[a2, SP[a1, a4], a2, a1, a3, n] + 
    2*S2[a2, n]*S2[a4, a1, a1, a2, a3, n] + 
    2*S2[a4, a1, a1, a2, SP[a2, a3], n] + 
    2*S2[a2, n]*S2[a4, a1, a1, a3, a2, n] + 
    2*S2[a4, a1, a1, a3, SP[a2, a2], n] + 
    2*S2[a4, a1, a1, SP[a2, a2], a3, n] + 
    2*S2[a4, a1, a1, SP[a2, a3], a2, n] + 
    S2[a2, n]*S2[a4, a1, a2, a1, a3, n] + S2[a4, a1, a2, a1, SP[a2, a3], n] - 
    2*S2[a1, n]*S2[a4, a1, a2, a2, a3, n] - 
    2*S2[a4, a1, a2, a2, SP[a1, a3], n] - 
    S2[a1, n]*S2[a4, a1, a2, a3, a2, n] - S2[a4, a1, a2, a3, SP[a1, a2], n] - 
    S2[a4, a1, a2, SP[a1, a2], a3, n] - S2[a4, a1, a2, SP[a1, a3], a2, n] + 
    S2[a2, n]*S2[a4, a1, a3, a1, a2, n] + S2[a4, a1, a3, a1, SP[a2, a2], n] + 
    S2[a4, a1, a3, SP[a1, a2], a2, n] + S2[a4, a1, SP[a1, a2], a3, a2, n] + 
    S2[a4, a1, SP[a2, a2], a1, a3, n] + S2[a4, a1, SP[a2, a3], a1, a2, n] - 
    S2[a1, n]*S2[a4, a2, a1, a2, a3, n] - S2[a4, a2, a1, a2, SP[a1, a3], n] - 
    S2[a1, n]*S2[a4, a2, a1, a3, a2, n] - S2[a4, a2, a1, a3, SP[a1, a2], n] - 
    S2[a4, a2, a1, SP[a1, a2], a3, n] - S2[a4, a2, a1, SP[a1, a3], a2, n] + 
    2*S2[a1, n]*S2[a4, a2, a2, a3, a1, n] + 
    2*S2[a4, a2, a2, a3, SP[a1, a1], n] + 
    2*S2[a4, a2, a2, SP[a1, a3], a1, n] + 
    S2[a1, n]*S2[a4, a2, a3, a2, a1, n] + S2[a4, a2, a3, a2, SP[a1, a1], n] + 
    S2[a4, a2, a3, SP[a1, a2], a1, n] - S2[a4, a2, SP[a1, a1], a2, a3, n] - 
    S2[a4, a2, SP[a1, a1], a3, a2, n] + 2*S2[a4, a2, SP[a1, a2], a3, a1, n] + 
    S2[a4, a2, SP[a1, a3], a2, a1, n] - 2*S2[a4, SP[a1, a1], a2, a2, a3, n] - 
    S2[a4, SP[a1, a1], a2, a3, a2, n] + S2[a4, SP[a1, a2], a1, a2, a3, n] + 
    S2[a4, SP[a1, a2], a1, a3, a2, n] + S2[a4, SP[a1, a2], a2, a1, a3, n] + 
    2*S2[a4, SP[a1, a2], a2, a3, a1, n] + S2[a4, SP[a1, a2], a3, a1, a2, n] + 
    S2[a4, SP[a1, a2], a3, a2, a1, n] + S2[SP[a1, a1], a2, a3, a2, a4, n] + 
    S2[SP[a1, a1], a2, a3, a4, a2, n] + S2[SP[a1, a1], a2, a4, a3, a2, n] + 
    2*S2[SP[a1, a1], a3, a2, a2, a4, n] + 
    2*S2[SP[a1, a1], a3, a2, a4, a2, n] + 
    2*S2[SP[a1, a1], a3, a4, a2, a2, n] + S2[SP[a1, a1], a4, a2, a3, a2, n] + 
    2*S2[SP[a1, a1], a4, a3, a2, a2, n] - 
    2*S2[SP[a1, a4], a1, a2, a2, a3, n] - 
    3*S2[SP[a1, a4], a1, a2, a3, a2, n] - 
    4*S2[SP[a1, a4], a1, a3, a2, a2, n] - S2[SP[a1, a4], a2, a1, a2, a3, n] - 
    2*S2[SP[a1, a4], a2, a1, a3, a2, n] + 
    2*S2[SP[a1, a4], a2, a2, a3, a1, n] + S2[SP[a1, a4], a2, a3, a2, a1, n] - 
    2*S2[SP[a1, a4], a3, a1, a2, a2, n] - S2[SP[a1, a4], a3, a2, a1, a2, n] + 
    2*S2[SP[a2, a4], a1, a1, a2, a3, n] + 
    2*S2[SP[a2, a4], a1, a1, a3, a2, n] + S2[SP[a2, a4], a1, a2, a1, a3, n] + 
    S2[SP[a2, a4], a1, a3, a1, a2, n] - S2[a4, a2, a1, a2, a3, a1, n] - 
    2*S2[a4, a2, a2, a1, a3, a1, n] - 4*S2[a4, a2, a2, a3, a1, a1, n] - 
    S2[a4, a2, a3, a1, a2, a1, n] - 2*S2[a4, a2, a3, a2, a1, a1, n] /; 
   MyMemberQ[{{a1, a2}, {a3, a4}}, {a1, a1, a2, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a1_, a3_, a4_, a1_, a2_, a2_, n_] :> 
  -(S2[a1, a3, n]*S2[a1, a2, a2, a4, n]) - S2[a1, a3, n]*
     S2[a1, a2, a4, a2, n] + S2[a1, a2, SP[a1, a2], SP[a3, a4], n] + 
    S2[a1, a2, SP[a1, a4], SP[a2, a3], n] - S2[a1, a3, n]*
     S2[a1, a4, a2, a2, n] + S2[a1, a4, SP[a1, a2], SP[a2, a3], n] + 
    S2[a1, SP[a1, a2], a2, SP[a3, a4], n] + S2[a1, SP[a1, a2], a4, 
     SP[a2, a3], n] + S2[a1, SP[a1, a2], SP[a2, a3], a4, n] + 
    S2[a1, SP[a1, a2], SP[a3, a4], a2, n] + S2[a1, SP[a1, a4], a2, 
     SP[a2, a3], n] + S2[a1, SP[a1, a4], SP[a2, a3], a2, n] + 
    S2[SP[a1, a1], a2, a2, SP[a3, a4], n] + S2[SP[a1, a1], a2, a4, 
     SP[a2, a3], n] + S2[SP[a1, a1], a2, SP[a2, a3], a4, n] + 
    S2[SP[a1, a1], a2, SP[a3, a4], a2, n] + S2[SP[a1, a1], a4, a2, 
     SP[a2, a3], n] + S2[SP[a1, a1], a4, SP[a2, a3], a2, n] + 
    S2[SP[a1, a1], SP[a2, a3], a2, a4, n] + S2[SP[a1, a1], SP[a2, a3], a4, 
     a2, n] + S2[SP[a1, a1], SP[a3, a4], a2, a2, n] + 
    2*S2[a4, n]*S2[a1, a1, a2, a2, a3, n] + 
    2*S2[a4, n]*S2[a1, a1, a2, a3, a2, n] + 
    2*S2[a1, a1, a2, a3, SP[a2, a4], n] - 
    2*S2[a1, a1, a2, a4, SP[a2, a3], n] - 
    2*S2[a1, a1, a2, SP[a2, a3], a4, n] + 
    2*S2[a1, a1, a2, SP[a2, a4], a3, n] + 
    2*S2[a4, n]*S2[a1, a1, a3, a2, a2, n] + 
    2*S2[a1, a1, a3, a2, SP[a2, a4], n] + 
    2*S2[a1, a1, a3, SP[a2, a4], a2, n] - 
    2*S2[a1, a1, a4, a2, SP[a2, a3], n] - 
    2*S2[a1, a1, a4, SP[a2, a3], a2, n] - 
    2*S2[a1, a1, SP[a2, a3], a2, a4, n] - 
    2*S2[a1, a1, SP[a2, a3], a4, a2, n] + 
    2*S2[a1, a1, SP[a2, a4], a2, a3, n] + 
    2*S2[a1, a1, SP[a2, a4], a3, a2, n] + 
    S2[a4, n]*S2[a1, a2, a1, a2, a3, n] + 
    S2[a4, n]*S2[a1, a2, a1, a3, a2, n] + S2[a1, a2, a1, a3, SP[a2, a4], n] - 
    S2[a1, a2, a1, a4, SP[a2, a3], n] - S2[a1, a2, a1, SP[a2, a3], a4, n] + 
    S2[a1, a2, a1, SP[a2, a4], a3, n] + S2[a4, n]*S2[a1, a2, a2, a1, a3, n] - 
    S2[a1, a2, a4, a1, SP[a2, a3], n] - S2[a1, a2, a4, SP[a1, a2], a3, n] - 
    S2[a1, a2, SP[a1, a2], a3, a4, n] - S2[a1, a2, SP[a1, a2], a4, a3, n] + 
    S2[a1, a2, SP[a2, a4], a1, a3, n] + S2[a4, n]*S2[a1, a3, a1, a2, a2, n] + 
    S2[a1, a3, a1, a2, SP[a2, a4], n] + S2[a1, a3, a1, SP[a2, a4], a2, n] + 
    S2[a1, a3, SP[a1, a4], a2, a2, n] - S2[a1, a4, a1, a2, SP[a2, a3], n] - 
    S2[a1, a4, a1, SP[a2, a3], a2, n] - S2[a1, a4, a2, a1, SP[a2, a3], n] - 
    S2[a1, a4, a2, SP[a1, a2], a3, n] - S2[a1, a4, SP[a1, a2], a2, a3, n] - 
    S2[a1, a4, SP[a1, a2], a3, a2, n] - S2[a1, SP[a1, a2], a2, a3, a4, n] - 
    S2[a1, SP[a1, a2], a2, a4, a3, n] - S2[a1, SP[a1, a2], a3, a2, a4, n] - 
    S2[a1, SP[a1, a2], a3, a4, a2, n] - S2[a1, SP[a1, a2], a4, a2, a3, n] - 
    S2[a1, SP[a1, a2], a4, a3, a2, n] - S2[a1, SP[a1, a3], a2, a2, a4, n] - 
    S2[a1, SP[a1, a3], a2, a4, a2, n] - S2[a1, SP[a1, a3], a4, a2, a2, n] + 
    S2[a1, SP[a1, a4], a2, a2, a3, n] + S2[a1, SP[a1, a4], a2, a3, a2, n] + 
    S2[a1, SP[a1, a4], a3, a2, a2, n] + S2[a1, SP[a2, a4], a1, a2, a3, n] + 
    S2[a1, SP[a2, a4], a1, a3, a2, n] + S2[a1, SP[a2, a4], a2, a1, a3, n] + 
    S2[a1, SP[a3, a4], a1, a2, a2, n] - S2[a1, n]*S2[a4, a1, a2, a2, a3, n] - 
    S2[a4, a1, a2, a2, SP[a1, a3], n] - S2[a1, n]*S2[a4, a1, a2, a3, a2, n] - 
    S2[a4, a1, a2, a3, SP[a1, a2], n] - S2[a4, a1, a2, SP[a1, a2], a3, n] - 
    S2[a4, a1, a2, SP[a1, a3], a2, n] - S2[a1, n]*S2[a4, a1, a3, a2, a2, n] - 
    S2[a4, a1, a3, a2, SP[a1, a2], n] - S2[a4, a1, a3, SP[a1, a2], a2, n] - 
    S2[a4, a1, SP[a1, a2], a2, a3, n] - S2[a4, a1, SP[a1, a2], a3, a2, n] - 
    S2[a4, a1, SP[a1, a3], a2, a2, n] - S2[a1, n]*S2[a4, a3, a1, a2, a2, n] - 
    S2[a4, a3, a1, a2, SP[a1, a2], n] - S2[a4, a3, a1, SP[a1, a2], a2, n] - 
    S2[a4, a3, SP[a1, a1], a2, a2, n] - S2[a4, SP[a1, a1], a2, a2, a3, n] - 
    S2[a4, SP[a1, a1], a2, a3, a2, n] - S2[a4, SP[a1, a1], a3, a2, a2, n] - 
    S2[a4, SP[a1, a3], a1, a2, a2, n] - S2[SP[a1, a1], a2, a2, a3, a4, n] - 
    S2[SP[a1, a1], a2, a2, a4, a3, n] - S2[SP[a1, a1], a2, a3, a2, a4, n] - 
    S2[SP[a1, a1], a2, a3, a4, a2, n] - S2[SP[a1, a1], a2, a4, a2, a3, n] - 
    S2[SP[a1, a1], a2, a4, a3, a2, n] - S2[SP[a1, a1], a3, a2, a2, a4, n] - 
    S2[SP[a1, a1], a3, a2, a4, a2, n] - S2[SP[a1, a1], a3, a4, a2, a2, n] - 
    S2[SP[a1, a1], a4, a2, a2, a3, n] - S2[SP[a1, a1], a4, a2, a3, a2, n] - 
    S2[SP[a1, a1], a4, a3, a2, a2, n] + S2[SP[a1, a4], a1, a2, a2, a3, n] + 
    S2[SP[a1, a4], a1, a2, a3, a2, n] + S2[SP[a1, a4], a1, a3, a2, a2, n] + 
    S2[SP[a1, a4], a2, a1, a2, a3, n] + S2[SP[a1, a4], a2, a1, a3, a2, n] + 
    S2[SP[a1, a4], a2, a2, a1, a3, n] + S2[a4, a1, a2, a2, a3, a1, n] + 
    S2[a4, a1, a2, a3, a1, a2, n] + S2[a4, a1, a2, a3, a2, a1, n] + 
    S2[a4, a1, a3, a1, a2, a2, n] + S2[a4, a1, a3, a2, a1, a2, n] + 
    S2[a4, a1, a3, a2, a2, a1, n] + 2*S2[a4, a3, a1, a1, a2, a2, n] + 
    S2[a4, a3, a1, a2, a1, a2, n] + S2[a4, a3, a1, a2, a2, a1, n] /; 
   MyMemberQ[{{a1, a2}, {a3, a4}}, {a1, a1, a2, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a1_, a3_, a4_, a2_, a1_, a2_, n_] :> 
  2*S2[a1, a3, n]*S2[a1, a2, a2, a4, n] + S2[a1, a3, n]*
     S2[a1, a2, a4, a2, n] - 2*S2[a1, a2, SP[a1, a2], SP[a3, a4], n] - 
    S2[a1, a2, SP[a1, a4], SP[a2, a3], n] + S2[a1, a2, n]*
     S2[a1, a3, a4, a2, n] - S2[a1, a3, SP[a1, a4], SP[a2, a2], n] + 
    S2[a1, a2, n]*S2[a1, a4, a2, a3, n] + S2[a1, a2, n]*
     S2[a1, a4, a3, a2, n] - S2[a1, a4, SP[a1, a2], SP[a2, a3], n] - 
    S2[a1, a4, SP[a1, a3], SP[a2, a2], n] - 
    2*S2[a1, SP[a1, a2], a2, SP[a3, a4], n] - S2[a1, SP[a1, a2], a4, 
     SP[a2, a3], n] - 2*S2[a1, SP[a1, a2], SP[a2, a3], a4, n] - 
    S2[a1, SP[a1, a2], SP[a3, a4], a2, n] - S2[a1, SP[a1, a3], a4, 
     SP[a2, a2], n] - S2[a1, SP[a1, a3], SP[a2, a4], a2, n] - 
    S2[a1, SP[a1, a4], a2, SP[a2, a3], n] - S2[a1, SP[a1, a4], a3, 
     SP[a2, a2], n] - S2[a1, SP[a1, a4], SP[a2, a2], a3, n] - 
    S2[a1, SP[a1, a4], SP[a2, a3], a2, n] - S2[a1, a2, n]*
     S2[a2, a4, a1, a3, n] + S2[a2, a4, SP[a1, a1], SP[a2, a3], n] + 
    S2[a2, SP[a1, a4], a1, SP[a2, a3], n] + S2[a2, SP[a1, a4], SP[a1, a2], 
     a3, n] - 2*S2[SP[a1, a1], a2, a2, SP[a3, a4], n] - 
    S2[SP[a1, a1], a2, a4, SP[a2, a3], n] - 
    2*S2[SP[a1, a1], a2, SP[a2, a3], a4, n] - S2[SP[a1, a1], a2, SP[a3, a4], 
     a2, n] - S2[SP[a1, a1], a3, a4, SP[a2, a2], n] - 
    S2[SP[a1, a1], a3, SP[a2, a4], a2, n] - S2[SP[a1, a1], a4, a2, 
     SP[a2, a3], n] - S2[SP[a1, a1], a4, a3, SP[a2, a2], n] - 
    S2[SP[a1, a1], a4, SP[a2, a2], a3, n] - S2[SP[a1, a1], a4, SP[a2, a3], 
     a2, n] - 2*S2[SP[a1, a1], SP[a2, a3], a2, a4, n] - 
    2*S2[SP[a1, a1], SP[a2, a3], a4, a2, n] - S2[SP[a1, a1], SP[a2, a4], a2, 
     a3, n] - S2[SP[a1, a1], SP[a2, a4], a3, a2, n] + 
    S2[SP[a1, a2], a4, a1, SP[a2, a3], n] + S2[SP[a1, a2], a4, SP[a1, a2], 
     a3, n] + S2[SP[a1, a2], SP[a2, a4], a1, a3, n] - 
    4*S2[a4, n]*S2[a1, a1, a2, a2, a3, n] - 
    4*S2[a4, n]*S2[a1, a1, a2, a3, a2, n] - 
    4*S2[a1, a1, a2, a3, SP[a2, a4], n] + 
    2*S2[a1, a1, a2, a4, SP[a2, a3], n] + 
    4*S2[a1, a1, a2, SP[a2, a3], a4, n] - 
    4*S2[a1, a1, a2, SP[a2, a4], a3, n] - 
    2*S2[a1, a1, a2, SP[a3, a4], a2, n] - 
    4*S2[a4, n]*S2[a1, a1, a3, a2, a2, n] - 
    4*S2[a1, a1, a3, a2, SP[a2, a4], n] + 
    2*S2[a1, a1, a3, a4, SP[a2, a2], n] - 
    2*S2[a1, a1, a3, SP[a2, a4], a2, n] + 
    2*S2[a1, a1, a4, a2, SP[a2, a3], n] + 
    2*S2[a1, a1, a4, a3, SP[a2, a2], n] + 
    2*S2[a1, a1, a4, SP[a2, a2], a3, n] + 
    2*S2[a1, a1, a4, SP[a2, a3], a2, n] + 
    4*S2[a1, a1, SP[a2, a3], a2, a4, n] + 
    4*S2[a1, a1, SP[a2, a3], a4, a2, n] - 
    2*S2[a1, a1, SP[a2, a4], a2, a3, n] - 
    2*S2[a1, a1, SP[a2, a4], a3, a2, n] - 
    4*S2[a1, a1, SP[a3, a4], a2, a2, n] - 
    2*S2[a4, n]*S2[a1, a2, a1, a2, a3, n] - 
    2*S2[a4, n]*S2[a1, a2, a1, a3, a2, n] - 
    2*S2[a1, a2, a1, a3, SP[a2, a4], n] + S2[a1, a2, a1, a4, SP[a2, a3], n] + 
    2*S2[a1, a2, a1, SP[a2, a3], a4, n] - 
    2*S2[a1, a2, a1, SP[a2, a4], a3, n] - S2[a1, a2, a1, SP[a3, a4], a2, n] - 
    2*S2[a4, n]*S2[a1, a2, a2, a1, a3, n] + 
    S2[a2, n]*S2[a1, a2, a4, a1, a3, n] + S2[a1, a2, a4, a1, SP[a2, a3], n] + 
    S2[a1, a2, a4, SP[a1, a2], a3, n] + 2*S2[a1, a2, SP[a1, a2], a3, a4, n] + 
    2*S2[a1, a2, SP[a1, a2], a4, a3, n] - S2[a1, a2, SP[a1, a4], a2, a3, n] - 
    S2[a1, a2, SP[a1, a4], a3, a2, n] - 2*S2[a1, a2, SP[a2, a4], a1, a3, n] - 
    2*S2[a4, n]*S2[a1, a3, a1, a2, a2, n] - 
    2*S2[a1, a3, a1, a2, SP[a2, a4], n] + S2[a1, a3, a1, a4, SP[a2, a2], n] - 
    S2[a1, a3, a1, SP[a2, a4], a2, n] + S2[a1, a3, a4, a1, SP[a2, a2], n] + 
    S2[a1, a3, a4, SP[a1, a2], a2, n] + S2[a2, n]*S2[a1, a4, a1, a2, a3, n] + 
    2*S2[a1, a4, a1, a2, SP[a2, a3], n] + 
    S2[a2, n]*S2[a1, a4, a1, a3, a2, n] + 
    2*S2[a1, a4, a1, a3, SP[a2, a2], n] + 
    2*S2[a1, a4, a1, SP[a2, a2], a3, n] + 
    2*S2[a1, a4, a1, SP[a2, a3], a2, n] + 
    S2[a2, n]*S2[a1, a4, a2, a1, a3, n] + 
    2*S2[a1, a4, a2, a1, SP[a2, a3], n] + S2[a1, a4, a2, SP[a1, a2], a3, n] + 
    S2[a1, a4, a2, SP[a1, a3], a2, n] + S2[a1, a4, a3, a1, SP[a2, a2], n] + 
    S2[a1, a4, a3, SP[a1, a2], a2, n] + 2*S2[a1, a4, SP[a1, a2], a2, a3, n] + 
    2*S2[a1, a4, SP[a1, a2], a3, a2, n] + 
    2*S2[a1, a4, SP[a1, a3], a2, a2, n] + S2[a1, a4, SP[a2, a2], a1, a3, n] + 
    2*S2[a1, SP[a1, a2], a2, a3, a4, n] + 
    2*S2[a1, SP[a1, a2], a2, a4, a3, n] + 
    2*S2[a1, SP[a1, a2], a3, a2, a4, n] + 
    2*S2[a1, SP[a1, a2], a3, a4, a2, n] + 
    2*S2[a1, SP[a1, a2], a4, a2, a3, n] + 
    2*S2[a1, SP[a1, a2], a4, a3, a2, n] + 
    2*S2[a1, SP[a1, a3], a2, a2, a4, n] + 
    2*S2[a1, SP[a1, a3], a2, a4, a2, n] + 
    2*S2[a1, SP[a1, a3], a4, a2, a2, n] - 
    2*S2[a1, SP[a1, a4], a2, a2, a3, n] - 
    2*S2[a1, SP[a1, a4], a2, a3, a2, n] - 
    2*S2[a1, SP[a1, a4], a3, a2, a2, n] - S2[a1, SP[a2, a4], a1, a2, a3, n] - 
    S2[a1, SP[a2, a4], a1, a3, a2, n] - S2[a1, SP[a2, a4], a2, a1, a3, n] - 
    2*S2[a1, SP[a3, a4], a1, a2, a2, n] - S2[a2, a1, a4, a1, SP[a2, a3], n] - 
    S2[a2, a1, a4, SP[a1, a2], a3, n] - S2[a2, a1, SP[a2, a4], a1, a3, n] - 
    2*S2[a2, a4, a1, a1, SP[a2, a3], n] - S2[a2, a4, a1, SP[a1, a2], a3, n] - 
    S2[a2, a4, a1, SP[a1, a3], a2, n] - S2[a2, a4, SP[a1, a1], a2, a3, n] - 
    S2[a2, a4, SP[a1, a1], a3, a2, n] - S2[a2, SP[a1, a4], a1, a2, a3, n] - 
    S2[a2, SP[a1, a4], a1, a3, a2, n] - S2[a2, SP[a1, a4], a2, a1, a3, n] + 
    2*S2[a2, n]*S2[a4, a1, a1, a2, a3, n] + 
    2*S2[a4, a1, a1, a2, SP[a2, a3], n] + 
    2*S2[a2, n]*S2[a4, a1, a1, a3, a2, n] + 
    2*S2[a4, a1, a1, a3, SP[a2, a2], n] + 
    2*S2[a4, a1, a1, SP[a2, a2], a3, n] + 
    2*S2[a4, a1, a1, SP[a2, a3], a2, n] + 
    S2[a2, n]*S2[a4, a1, a2, a1, a3, n] + S2[a4, a1, a2, a1, SP[a2, a3], n] + 
    S2[a4, a1, a2, SP[a1, a2], a3, n] + S2[a2, n]*S2[a4, a1, a3, a1, a2, n] + 
    S2[a4, a1, a3, a1, SP[a2, a2], n] + S2[a4, a1, a3, SP[a1, a2], a2, n] + 
    2*S2[a4, a1, SP[a1, a2], a2, a3, n] + 
    2*S2[a4, a1, SP[a1, a2], a3, a2, n] + S2[a4, a1, SP[a2, a2], a1, a3, n] + 
    S2[a4, a1, SP[a2, a3], a1, a2, n] - S2[a1, n]*S2[a4, a2, a1, a2, a3, n] - 
    S2[a4, a2, a1, a2, SP[a1, a3], n] - S2[a1, n]*S2[a4, a2, a1, a3, a2, n] - 
    S2[a4, a2, a1, a3, SP[a1, a2], n] - S2[a4, a2, a1, SP[a1, a2], a3, n] - 
    S2[a4, a2, a1, SP[a1, a3], a2, n] - S2[a1, n]*S2[a4, a2, a3, a1, a2, n] - 
    S2[a4, a2, a3, a1, SP[a1, a2], n] - S2[a4, a2, a3, SP[a1, a1], a2, n] - 
    S2[a4, a2, SP[a1, a1], a2, a3, n] - S2[a4, a2, SP[a1, a1], a3, a2, n] - 
    S2[a4, a2, SP[a1, a3], a1, a2, n] - S2[a1, n]*S2[a4, a3, a2, a1, a2, n] - 
    S2[a4, a3, a2, a1, SP[a1, a2], n] - S2[a4, a3, a2, SP[a1, a1], a2, n] - 
    S2[a4, a3, SP[a1, a2], a1, a2, n] + S2[a4, SP[a1, a2], a1, a2, a3, n] + 
    S2[a4, SP[a1, a2], a1, a3, a2, n] + S2[a4, SP[a1, a2], a2, a1, a3, n] - 
    S2[a4, SP[a1, a3], a2, a1, a2, n] + 2*S2[SP[a1, a1], a2, a2, a3, a4, n] + 
    2*S2[SP[a1, a1], a2, a2, a4, a3, n] + 
    2*S2[SP[a1, a1], a2, a3, a2, a4, n] + 
    2*S2[SP[a1, a1], a2, a3, a4, a2, n] + 
    2*S2[SP[a1, a1], a2, a4, a2, a3, n] + 
    2*S2[SP[a1, a1], a2, a4, a3, a2, n] + 
    2*S2[SP[a1, a1], a3, a2, a2, a4, n] + 
    2*S2[SP[a1, a1], a3, a2, a4, a2, n] + 
    2*S2[SP[a1, a1], a3, a4, a2, a2, n] + 
    2*S2[SP[a1, a1], a4, a2, a2, a3, n] + 
    2*S2[SP[a1, a1], a4, a2, a3, a2, n] + 
    2*S2[SP[a1, a1], a4, a3, a2, a2, n] - 
    4*S2[SP[a1, a4], a1, a2, a2, a3, n] - 
    4*S2[SP[a1, a4], a1, a2, a3, a2, n] - 
    4*S2[SP[a1, a4], a1, a3, a2, a2, n] - 
    3*S2[SP[a1, a4], a2, a1, a2, a3, n] - 
    3*S2[SP[a1, a4], a2, a1, a3, a2, n] - 
    2*S2[SP[a1, a4], a2, a2, a1, a3, n] - S2[SP[a1, a4], a2, a3, a1, a2, n] - 
    2*S2[SP[a1, a4], a3, a1, a2, a2, n] - S2[SP[a1, a4], a3, a2, a1, a2, n] + 
    2*S2[SP[a2, a4], a1, a1, a2, a3, n] + 
    2*S2[SP[a2, a4], a1, a1, a3, a2, n] + S2[SP[a2, a4], a1, a2, a1, a3, n] + 
    S2[SP[a2, a4], a1, a3, a1, a2, n] + S2[a4, a2, a1, a2, a3, a1, n] + 
    S2[a4, a2, a1, a3, a1, a2, n] + S2[a4, a2, a1, a3, a2, a1, n] + 
    2*S2[a4, a2, a3, a1, a1, a2, n] + S2[a4, a2, a3, a1, a2, a1, n] + 
    S2[a4, a3, a1, a2, a1, a2, n] + 2*S2[a4, a3, a2, a1, a1, a2, n] + 
    S2[a4, a3, a2, a1, a2, a1, n] /; MyMemberQ[{{a1, a2}, {a3, a4}}, 
     {a1, a1, a2, a2, a3, a4}] && a1 != a2 != a3 != a4, 
 S2[a1_, a3_, a4_, a2_, a2_, a1_, n_] :> 
  -(S2[a1, a3, n]*S2[a1, a2, a2, a4, n]) + S2[a1, a2, SP[a1, a2], SP[a3, a4], 
     n] - S2[a1, a2, n]*S2[a1, a3, a4, a2, n] + S2[a1, a3, SP[a1, a4], 
     SP[a2, a2], n] - S2[a1, a2, n]*S2[a1, a4, a2, a3, n] - 
    S2[a1, a2, n]*S2[a1, a4, a3, a2, n] + S2[a1, a4, SP[a1, a2], SP[a2, a3], 
     n] + S2[a1, a4, SP[a1, a3], SP[a2, a2], n] + S2[a1, SP[a1, a2], a2, 
     SP[a3, a4], n] + S2[a1, SP[a1, a2], SP[a2, a3], a4, n] + 
    S2[a1, SP[a1, a3], a4, SP[a2, a2], n] + S2[a1, SP[a1, a3], SP[a2, a4], 
     a2, n] + S2[a1, SP[a1, a4], a2, SP[a2, a3], n] + 
    S2[a1, SP[a1, a4], a3, SP[a2, a2], n] + S2[a1, SP[a1, a4], SP[a2, a2], 
     a3, n] + S2[a1, SP[a1, a4], SP[a2, a3], a2, n] + 
    S2[a1, a2, n]*S2[a2, a4, a1, a3, n] - S2[a2, a4, SP[a1, a1], SP[a2, a3], 
     n] - S2[a2, SP[a1, a4], a1, SP[a2, a3], n] - 
    S2[a2, SP[a1, a4], SP[a1, a2], a3, n] + S2[SP[a1, a1], a2, a2, 
     SP[a3, a4], n] + S2[SP[a1, a1], a2, SP[a2, a3], a4, n] + 
    S2[SP[a1, a1], a3, a4, SP[a2, a2], n] + S2[SP[a1, a1], a3, SP[a2, a4], 
     a2, n] + S2[SP[a1, a1], a4, a2, SP[a2, a3], n] + 
    S2[SP[a1, a1], a4, a3, SP[a2, a2], n] + S2[SP[a1, a1], a4, SP[a2, a2], 
     a3, n] + S2[SP[a1, a1], a4, SP[a2, a3], a2, n] + 
    S2[SP[a1, a1], SP[a2, a3], a2, a4, n] + S2[SP[a1, a1], SP[a2, a3], a4, 
     a2, n] + S2[SP[a1, a1], SP[a2, a4], a2, a3, n] + 
    S2[SP[a1, a1], SP[a2, a4], a3, a2, n] - S2[SP[a1, a2], a4, a1, 
     SP[a2, a3], n] - S2[SP[a1, a2], a4, SP[a1, a2], a3, n] - 
    S2[SP[a1, a2], SP[a2, a4], a1, a3, n] + 
    2*S2[a4, n]*S2[a1, a1, a2, a2, a3, n] + 
    2*S2[a4, n]*S2[a1, a1, a2, a3, a2, n] + 
    2*S2[a1, a1, a2, a3, SP[a2, a4], n] - 
    2*S2[a1, a1, a2, SP[a2, a3], a4, n] + 
    2*S2[a1, a1, a2, SP[a2, a4], a3, n] + 
    2*S2[a1, a1, a2, SP[a3, a4], a2, n] + 
    2*S2[a4, n]*S2[a1, a1, a3, a2, a2, n] + 
    2*S2[a1, a1, a3, a2, SP[a2, a4], n] - 
    2*S2[a1, a1, a3, a4, SP[a2, a2], n] - 
    2*S2[a1, a1, a4, a2, SP[a2, a3], n] - 
    2*S2[a1, a1, a4, a3, SP[a2, a2], n] - 
    2*S2[a1, a1, a4, SP[a2, a2], a3, n] - 
    2*S2[a1, a1, a4, SP[a2, a3], a2, n] - 
    2*S2[a1, a1, SP[a2, a3], a2, a4, n] - 
    2*S2[a1, a1, SP[a2, a3], a4, a2, n] + 
    2*S2[a1, a1, SP[a3, a4], a2, a2, n] + 
    S2[a4, n]*S2[a1, a2, a1, a2, a3, n] + 
    S2[a4, n]*S2[a1, a2, a1, a3, a2, n] + S2[a1, a2, a1, a3, SP[a2, a4], n] - 
    S2[a1, a2, a1, SP[a2, a3], a4, n] + S2[a1, a2, a1, SP[a2, a4], a3, n] + 
    S2[a1, a2, a1, SP[a3, a4], a2, n] + S2[a4, n]*S2[a1, a2, a2, a1, a3, n] - 
    S2[a2, n]*S2[a1, a2, a4, a1, a3, n] - S2[a1, a2, SP[a1, a2], a3, a4, n] - 
    S2[a1, a2, SP[a1, a2], a4, a3, n] + S2[a1, a2, SP[a1, a4], a2, a3, n] + 
    S2[a1, a2, SP[a1, a4], a3, a2, n] + S2[a1, a2, SP[a2, a4], a1, a3, n] + 
    S2[a4, n]*S2[a1, a3, a1, a2, a2, n] + S2[a1, a3, a1, a2, SP[a2, a4], n] - 
    S2[a1, a3, a1, a4, SP[a2, a2], n] - S2[a1, a3, a4, a1, SP[a2, a2], n] + 
    S2[a1, n]*S2[a1, a3, a4, a2, a2, n] + S2[a1, a3, a4, a2, SP[a1, a2], n] - 
    S2[a2, n]*S2[a1, a4, a1, a2, a3, n] - 
    2*S2[a1, a4, a1, a2, SP[a2, a3], n] - 
    S2[a2, n]*S2[a1, a4, a1, a3, a2, n] - 
    2*S2[a1, a4, a1, a3, SP[a2, a2], n] - 
    2*S2[a1, a4, a1, SP[a2, a2], a3, n] - 
    2*S2[a1, a4, a1, SP[a2, a3], a2, n] - 
    S2[a2, n]*S2[a1, a4, a2, a1, a3, n] - 
    2*S2[a1, a4, a2, a1, SP[a2, a3], n] + 
    S2[a1, n]*S2[a1, a4, a2, a2, a3, n] + S2[a1, a4, a2, a2, SP[a1, a3], n] + 
    S2[a1, n]*S2[a1, a4, a2, a3, a2, n] + S2[a1, a4, a2, a3, SP[a1, a2], n] - 
    S2[a1, a4, a3, a1, SP[a2, a2], n] + S2[a1, n]*S2[a1, a4, a3, a2, a2, n] + 
    S2[a1, a4, a3, a2, SP[a1, a2], n] - S2[a1, a4, SP[a1, a2], a2, a3, n] - 
    S2[a1, a4, SP[a1, a2], a3, a2, n] - S2[a1, a4, SP[a1, a3], a2, a2, n] - 
    S2[a1, a4, SP[a2, a2], a1, a3, n] - S2[a1, SP[a1, a2], a2, a3, a4, n] - 
    S2[a1, SP[a1, a2], a2, a4, a3, n] - S2[a1, SP[a1, a2], a3, a2, a4, n] - 
    S2[a1, SP[a1, a2], a3, a4, a2, n] - S2[a1, SP[a1, a2], a4, a2, a3, n] - 
    S2[a1, SP[a1, a2], a4, a3, a2, n] - S2[a1, SP[a1, a3], a2, a2, a4, n] - 
    S2[a1, SP[a1, a3], a2, a4, a2, n] - S2[a1, SP[a1, a3], a4, a2, a2, n] + 
    S2[a1, SP[a1, a4], a2, a2, a3, n] + S2[a1, SP[a1, a4], a2, a3, a2, n] + 
    S2[a1, SP[a1, a4], a3, a2, a2, n] + S2[a1, SP[a3, a4], a1, a2, a2, n] + 
    S2[a2, a1, a4, a1, SP[a2, a3], n] + S2[a2, a1, a4, SP[a1, a2], a3, n] + 
    S2[a2, a1, SP[a2, a4], a1, a3, n] + 2*S2[a2, a4, a1, a1, SP[a2, a3], n] + 
    S2[a2, a4, a1, SP[a1, a2], a3, n] + S2[a2, a4, a1, SP[a1, a3], a2, n] + 
    S2[a2, a4, SP[a1, a1], a2, a3, n] + S2[a2, a4, SP[a1, a1], a3, a2, n] + 
    S2[a2, SP[a1, a4], a1, a2, a3, n] + S2[a2, SP[a1, a4], a1, a3, a2, n] + 
    S2[a2, SP[a1, a4], a2, a1, a3, n] - 2*S2[a2, n]*
     S2[a4, a1, a1, a2, a3, n] - 2*S2[a4, a1, a1, a2, SP[a2, a3], n] - 
    2*S2[a2, n]*S2[a4, a1, a1, a3, a2, n] - 
    2*S2[a4, a1, a1, a3, SP[a2, a2], n] - 
    2*S2[a4, a1, a1, SP[a2, a2], a3, n] - 
    2*S2[a4, a1, a1, SP[a2, a3], a2, n] - 
    S2[a2, n]*S2[a4, a1, a2, a1, a3, n] - S2[a4, a1, a2, a1, SP[a2, a3], n] + 
    S2[a1, n]*S2[a4, a1, a2, a2, a3, n] + S2[a4, a1, a2, a2, SP[a1, a3], n] + 
    S2[a1, n]*S2[a4, a1, a2, a3, a2, n] + S2[a4, a1, a2, a3, SP[a1, a2], n] + 
    S2[a4, a1, a2, SP[a1, a3], a2, n] - S2[a2, n]*S2[a4, a1, a3, a1, a2, n] - 
    S2[a4, a1, a3, a1, SP[a2, a2], n] + S2[a1, n]*S2[a4, a1, a3, a2, a2, n] + 
    S2[a4, a1, a3, a2, SP[a1, a2], n] - S2[a4, a1, SP[a1, a2], a2, a3, n] - 
    S2[a4, a1, SP[a1, a2], a3, a2, n] + S2[a4, a1, SP[a1, a3], a2, a2, n] - 
    S2[a4, a1, SP[a2, a2], a1, a3, n] - S2[a4, a1, SP[a2, a3], a1, a2, n] + 
    S2[a1, n]*S2[a4, a2, a1, a2, a3, n] + S2[a4, a2, a1, a2, SP[a1, a3], n] + 
    S2[a1, n]*S2[a4, a2, a1, a3, a2, n] + S2[a4, a2, a1, a3, SP[a1, a2], n] + 
    S2[a4, a2, a1, SP[a1, a2], a3, n] + S2[a4, a2, a1, SP[a1, a3], a2, n] - 
    S2[a1, n]*S2[a4, a2, a2, a3, a1, n] - S2[a4, a2, a2, a3, SP[a1, a1], n] - 
    S2[a4, a2, a2, SP[a1, a3], a1, n] - S2[a1, n]*S2[a4, a2, a3, a2, a1, n] - 
    S2[a4, a2, a3, a2, SP[a1, a1], n] - S2[a4, a2, a3, SP[a1, a2], a1, n] + 
    S2[a4, a2, SP[a1, a1], a2, a3, n] + S2[a4, a2, SP[a1, a1], a3, a2, n] - 
    S2[a4, a2, SP[a1, a2], a3, a1, n] - S2[a4, a2, SP[a1, a3], a2, a1, n] - 
    S2[a1, n]*S2[a4, a3, a2, a2, a1, n] - S2[a4, a3, a2, a2, SP[a1, a1], n] - 
    S2[a4, a3, a2, SP[a1, a2], a1, n] - S2[a4, a3, SP[a1, a2], a2, a1, n] + 
    S2[a4, SP[a1, a1], a2, a2, a3, n] + S2[a4, SP[a1, a1], a2, a3, a2, n] + 
    S2[a4, SP[a1, a1], a3, a2, a2, n] - S2[a4, SP[a1, a2], a1, a2, a3, n] - 
    S2[a4, SP[a1, a2], a1, a3, a2, n] - S2[a4, SP[a1, a2], a2, a1, a3, n] - 
    S2[a4, SP[a1, a2], a2, a3, a1, n] - S2[a4, SP[a1, a2], a3, a1, a2, n] - 
    S2[a4, SP[a1, a2], a3, a2, a1, n] - S2[a4, SP[a1, a3], a2, a2, a1, n] - 
    S2[SP[a1, a1], a2, a2, a3, a4, n] - S2[SP[a1, a1], a2, a2, a4, a3, n] - 
    S2[SP[a1, a1], a2, a3, a2, a4, n] - S2[SP[a1, a1], a2, a3, a4, a2, n] - 
    S2[SP[a1, a1], a2, a4, a2, a3, n] - S2[SP[a1, a1], a2, a4, a3, a2, n] - 
    S2[SP[a1, a1], a3, a2, a2, a4, n] - S2[SP[a1, a1], a3, a2, a4, a2, n] - 
    S2[SP[a1, a1], a3, a4, a2, a2, n] - S2[SP[a1, a1], a4, a2, a2, a3, n] - 
    S2[SP[a1, a1], a4, a2, a3, a2, n] - S2[SP[a1, a1], a4, a3, a2, a2, n] + 
    3*S2[SP[a1, a4], a1, a2, a2, a3, n] + 
    3*S2[SP[a1, a4], a1, a2, a3, a2, n] + 
    3*S2[SP[a1, a4], a1, a3, a2, a2, n] + 
    2*S2[SP[a1, a4], a2, a1, a2, a3, n] + 
    2*S2[SP[a1, a4], a2, a1, a3, a2, n] + S2[SP[a1, a4], a2, a2, a1, a3, n] - 
    S2[SP[a1, a4], a2, a2, a3, a1, n] - S2[SP[a1, a4], a2, a3, a2, a1, n] + 
    S2[SP[a1, a4], a3, a1, a2, a2, n] - S2[SP[a1, a4], a3, a2, a2, a1, n] - 
    2*S2[SP[a2, a4], a1, a1, a2, a3, n] - 
    2*S2[SP[a2, a4], a1, a1, a3, a2, n] - S2[SP[a2, a4], a1, a2, a1, a3, n] - 
    S2[SP[a2, a4], a1, a3, a1, a2, n] + S2[a4, a2, a2, a1, a3, a1, n] + 
    2*S2[a4, a2, a2, a3, a1, a1, n] + S2[a4, a2, a3, a1, a2, a1, n] + 
    2*S2[a4, a2, a3, a2, a1, a1, n] + S2[a4, a3, a1, a2, a2, a1, n] + 
    S2[a4, a3, a2, a1, a2, a1, n] + 2*S2[a4, a3, a2, a2, a1, a1, n] /; 
   MyMemberQ[{{a1, a2}, {a3, a4}}, {a1, a1, a2, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a1_, a4_, a1_, a2_, a2_, a3_, n_] :> 
  S2[a1, n]*S2[a4, a1, a2, a2, a3, n] + S2[a4, a1, a2, a2, SP[a1, a3], n] + 
    S2[a4, a1, a2, SP[a1, a2], a3, n] + S2[a4, a1, SP[a1, a2], a2, a3, n] + 
    S2[a4, SP[a1, a1], a2, a2, a3, n] + S2[SP[a1, a4], a1, a2, a2, a3, n] - 
    2*S2[a4, a1, a1, a2, a2, a3, n] - S2[a4, a1, a2, a1, a2, a3, n] - 
    S2[a4, a1, a2, a2, a1, a3, n] - S2[a4, a1, a2, a2, a3, a1, n] /; 
   MyMemberQ[{{a1, a2}, {a3, a4}}, {a1, a1, a2, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a1_, a4_, a1_, a2_, a3_, a2_, n_] :> 
  S2[a1, n]*S2[a4, a1, a2, a3, a2, n] + S2[a4, a1, a2, a3, SP[a1, a2], n] + 
    S2[a4, a1, a2, SP[a1, a3], a2, n] + S2[a4, a1, SP[a1, a2], a3, a2, n] + 
    S2[a4, SP[a1, a1], a2, a3, a2, n] + S2[SP[a1, a4], a1, a2, a3, a2, n] - 
    2*S2[a4, a1, a1, a2, a3, a2, n] - S2[a4, a1, a2, a1, a3, a2, n] - 
    S2[a4, a1, a2, a3, a1, a2, n] - S2[a4, a1, a2, a3, a2, a1, n] /; 
   MyMemberQ[{{a1, a2}, {a3, a4}}, {a1, a1, a2, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a1_, a4_, a1_, a3_, a2_, a2_, n_] :> 
  S2[a1, n]*S2[a4, a1, a3, a2, a2, n] + S2[a4, a1, a3, a2, SP[a1, a2], n] + 
    S2[a4, a1, a3, SP[a1, a2], a2, n] + S2[a4, a1, SP[a1, a3], a2, a2, n] + 
    S2[a4, SP[a1, a1], a3, a2, a2, n] + S2[SP[a1, a4], a1, a3, a2, a2, n] - 
    2*S2[a4, a1, a1, a3, a2, a2, n] - S2[a4, a1, a3, a1, a2, a2, n] - 
    S2[a4, a1, a3, a2, a1, a2, n] - S2[a4, a1, a3, a2, a2, a1, n] /; 
   MyMemberQ[{{a1, a2}, {a3, a4}}, {a1, a1, a2, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a1_, a4_, a2_, a1_, a2_, a3_, n_] :> 
  S2[a1, n]*S2[a4, a2, a1, a2, a3, n] + S2[a4, a2, a1, a2, SP[a1, a3], n] + 
    S2[a4, a2, a1, SP[a1, a2], a3, n] + S2[a4, a2, SP[a1, a1], a2, a3, n] + 
    S2[a4, SP[a1, a2], a1, a2, a3, n] + S2[SP[a1, a4], a2, a1, a2, a3, n] - 
    S2[a4, a1, a2, a1, a2, a3, n] - 2*S2[a4, a2, a1, a1, a2, a3, n] - 
    S2[a4, a2, a1, a2, a1, a3, n] - S2[a4, a2, a1, a2, a3, a1, n] /; 
   MyMemberQ[{{a1, a2}, {a3, a4}}, {a1, a1, a2, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a1_, a4_, a2_, a1_, a3_, a2_, n_] :> 
  S2[a1, n]*S2[a4, a2, a1, a3, a2, n] + S2[a4, a2, a1, a3, SP[a1, a2], n] + 
    S2[a4, a2, a1, SP[a1, a3], a2, n] + S2[a4, a2, SP[a1, a1], a3, a2, n] + 
    S2[a4, SP[a1, a2], a1, a3, a2, n] + S2[SP[a1, a4], a2, a1, a3, a2, n] - 
    S2[a4, a1, a2, a1, a3, a2, n] - 2*S2[a4, a2, a1, a1, a3, a2, n] - 
    S2[a4, a2, a1, a3, a1, a2, n] - S2[a4, a2, a1, a3, a2, a1, n] /; 
   MyMemberQ[{{a1, a2}, {a3, a4}}, {a1, a1, a2, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a1_, a4_, a2_, a2_, a1_, a3_, n_] :> 
  S2[a1, n]*S2[a4, a2, a2, a1, a3, n] + S2[a4, a2, a2, a1, SP[a1, a3], n] + 
    S2[a4, a2, a2, SP[a1, a1], a3, n] + S2[a4, a2, SP[a1, a2], a1, a3, n] + 
    S2[a4, SP[a1, a2], a2, a1, a3, n] + S2[SP[a1, a4], a2, a2, a1, a3, n] - 
    S2[a4, a1, a2, a2, a1, a3, n] - S2[a4, a2, a1, a2, a1, a3, n] - 
    2*S2[a4, a2, a2, a1, a1, a3, n] - S2[a4, a2, a2, a1, a3, a1, n] /; 
   MyMemberQ[{{a1, a2}, {a3, a4}}, {a1, a1, a2, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a1_, a4_, a2_, a2_, a3_, a1_, n_] :> 
  S2[a1, n]*S2[a4, a2, a2, a3, a1, n] + S2[a4, a2, a2, a3, SP[a1, a1], n] + 
    S2[a4, a2, a2, SP[a1, a3], a1, n] + S2[a4, a2, SP[a1, a2], a3, a1, n] + 
    S2[a4, SP[a1, a2], a2, a3, a1, n] + S2[SP[a1, a4], a2, a2, a3, a1, n] - 
    S2[a4, a1, a2, a2, a3, a1, n] - S2[a4, a2, a1, a2, a3, a1, n] - 
    S2[a4, a2, a2, a1, a3, a1, n] - 2*S2[a4, a2, a2, a3, a1, a1, n] /; 
   MyMemberQ[{{a1, a2}, {a3, a4}}, {a1, a1, a2, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a1_, a4_, a2_, a3_, a1_, a2_, n_] :> 
  S2[a1, n]*S2[a4, a2, a3, a1, a2, n] + S2[a4, a2, a3, a1, SP[a1, a2], n] + 
    S2[a4, a2, a3, SP[a1, a1], a2, n] + S2[a4, a2, SP[a1, a3], a1, a2, n] + 
    S2[a4, SP[a1, a2], a3, a1, a2, n] + S2[SP[a1, a4], a2, a3, a1, a2, n] - 
    S2[a4, a1, a2, a3, a1, a2, n] - S2[a4, a2, a1, a3, a1, a2, n] - 
    2*S2[a4, a2, a3, a1, a1, a2, n] - S2[a4, a2, a3, a1, a2, a1, n] /; 
   MyMemberQ[{{a1, a2}, {a3, a4}}, {a1, a1, a2, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a1_, a4_, a2_, a3_, a2_, a1_, n_] :> 
  S2[a1, n]*S2[a4, a2, a3, a2, a1, n] + S2[a4, a2, a3, a2, SP[a1, a1], n] + 
    S2[a4, a2, a3, SP[a1, a2], a1, n] + S2[a4, a2, SP[a1, a3], a2, a1, n] + 
    S2[a4, SP[a1, a2], a3, a2, a1, n] + S2[SP[a1, a4], a2, a3, a2, a1, n] - 
    S2[a4, a1, a2, a3, a2, a1, n] - S2[a4, a2, a1, a3, a2, a1, n] - 
    S2[a4, a2, a3, a1, a2, a1, n] - 2*S2[a4, a2, a3, a2, a1, a1, n] /; 
   MyMemberQ[{{a1, a2}, {a3, a4}}, {a1, a1, a2, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a1_, a4_, a3_, a1_, a2_, a2_, n_] :> 
  S2[a1, n]*S2[a4, a3, a1, a2, a2, n] + S2[a4, a3, a1, a2, SP[a1, a2], n] + 
    S2[a4, a3, a1, SP[a1, a2], a2, n] + S2[a4, a3, SP[a1, a1], a2, a2, n] + 
    S2[a4, SP[a1, a3], a1, a2, a2, n] + S2[SP[a1, a4], a3, a1, a2, a2, n] - 
    S2[a4, a1, a3, a1, a2, a2, n] - 2*S2[a4, a3, a1, a1, a2, a2, n] - 
    S2[a4, a3, a1, a2, a1, a2, n] - S2[a4, a3, a1, a2, a2, a1, n] /; 
   MyMemberQ[{{a1, a2}, {a3, a4}}, {a1, a1, a2, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a1_, a4_, a3_, a2_, a1_, a2_, n_] :> 
  S2[a1, n]*S2[a4, a3, a2, a1, a2, n] + S2[a4, a3, a2, a1, SP[a1, a2], n] + 
    S2[a4, a3, a2, SP[a1, a1], a2, n] + S2[a4, a3, SP[a1, a2], a1, a2, n] + 
    S2[a4, SP[a1, a3], a2, a1, a2, n] + S2[SP[a1, a4], a3, a2, a1, a2, n] - 
    S2[a4, a1, a3, a2, a1, a2, n] - S2[a4, a3, a1, a2, a1, a2, n] - 
    2*S2[a4, a3, a2, a1, a1, a2, n] - S2[a4, a3, a2, a1, a2, a1, n] /; 
   MyMemberQ[{{a1, a2}, {a3, a4}}, {a1, a1, a2, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a1_, a4_, a3_, a2_, a2_, a1_, n_] :> 
  S2[a1, n]*S2[a4, a3, a2, a2, a1, n] + S2[a4, a3, a2, a2, SP[a1, a1], n] + 
    S2[a4, a3, a2, SP[a1, a2], a1, n] + S2[a4, a3, SP[a1, a2], a2, a1, n] + 
    S2[a4, SP[a1, a3], a2, a2, a1, n] + S2[SP[a1, a4], a3, a2, a2, a1, n] - 
    S2[a4, a1, a3, a2, a2, a1, n] - S2[a4, a3, a1, a2, a2, a1, n] - 
    S2[a4, a3, a2, a1, a2, a1, n] - 2*S2[a4, a3, a2, a2, a1, a1, n] /; 
   MyMemberQ[{{a1, a2}, {a3, a4}}, {a1, a1, a2, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a2_, a1_, a1_, a2_, a3_, a4_, n_] :> 
  S2[a1, a1, a2, n]*S2[a2, a3, a4, n] + S2[SP[a1, a2], SP[a1, a3], 
     SP[a2, a4], n] - S2[a1, a2, n]*S2[a1, a2, a3, a4, n] - 
    (S2[a1, a2, n]*S2[a1, a2, a4, a3, n])/2 + 
    S2[a1, a2, SP[a1, a4], SP[a2, a3], n]/2 - 
    (S2[a1, a2, n]*S2[a1, a4, a2, a3, n])/2 - 
    (S2[a1, a2, n]*S2[a1, a4, a3, a2, n])/2 + 
    S2[a1, a4, SP[a1, a2], SP[a2, a3], n]/2 + 
    S2[a1, a4, SP[a1, a3], SP[a2, a2], n]/2 + 
    S2[a1, SP[a1, a2], a4, SP[a2, a3], n]/2 + 
    S2[a1, SP[a1, a2], SP[a2, a4], a3, n]/2 + 
    S2[a1, SP[a1, a4], a2, SP[a2, a3], n]/2 + 
    S2[a1, SP[a1, a4], a3, SP[a2, a2], n]/2 + 
    S2[a1, SP[a1, a4], SP[a2, a2], a3, n]/2 + 
    S2[a1, SP[a1, a4], SP[a2, a3], a2, n]/2 - S2[a2, a1, SP[a1, a3], 
     SP[a2, a4], n] - S2[a2, SP[a1, a3], a1, SP[a2, a4], n] - 
    S2[a2, SP[a1, a3], SP[a1, a4], a2, n] + 
    (S2[a1, a2, n]*S2[a3, a4, a1, a2, n])/2 - 
    S2[a3, a4, SP[a1, a1], SP[a2, a2], n]/2 - 
    S2[a3, SP[a1, a4], a1, SP[a2, a2], n]/2 - 
    S2[a3, SP[a1, a4], SP[a1, a2], a2, n]/2 + S2[SP[a1, a1], a2, a3, 
     SP[a2, a4], n] + S2[SP[a1, a1], a2, a4, SP[a2, a3], n]/2 + 
    S2[SP[a1, a1], a2, SP[a2, a3], a4, n] + 
    S2[SP[a1, a1], a2, SP[a2, a4], a3, n]/2 + 
    S2[SP[a1, a1], a4, a2, SP[a2, a3], n]/2 + 
    S2[SP[a1, a1], a4, a3, SP[a2, a2], n]/2 + 
    S2[SP[a1, a1], a4, SP[a2, a2], a3, n]/2 + 
    S2[SP[a1, a1], a4, SP[a2, a3], a2, n]/2 + S2[SP[a1, a1], SP[a2, a2], a3, 
     a4, n] + S2[SP[a1, a1], SP[a2, a2], a4, a3, n]/2 + 
    S2[SP[a1, a1], SP[a2, a4], a2, a3, n]/2 + 
    S2[SP[a1, a1], SP[a2, a4], a3, a2, n]/2 - S2[SP[a1, a2], a1, a3, 
     SP[a2, a4], n] - S2[SP[a1, a2], a1, SP[a2, a3], a4, n] - 
    S2[SP[a1, a2], a3, a1, SP[a2, a4], n] - S2[SP[a1, a2], a3, SP[a1, a4], 
     a2, n] - S2[SP[a1, a2], SP[a1, a3], a2, a4, n] - 
    S2[SP[a1, a2], SP[a1, a3], a4, a2, n] - 
    S2[SP[a1, a3], a4, a1, SP[a2, a2], n]/2 - 
    S2[SP[a1, a3], a4, SP[a1, a2], a2, n]/2 - 
    S2[SP[a1, a3], SP[a2, a4], a1, a2, n]/2 + 
    2*S2[a4, n]*S2[a1, a1, a2, a2, a3, n] + 
    2*S2[a1, a1, a2, a2, SP[a3, a4], n] + 
    2*S2[a4, n]*S2[a1, a1, a2, a3, a2, n] + S2[a1, a1, a2, a3, SP[a2, a4], 
     n] - S2[a1, a1, a2, a4, SP[a2, a3], n] - S2[a1, a1, a2, SP[a2, a3], a4, 
     n] + S2[a1, a1, a2, SP[a2, a4], a3, n] + 
    2*S2[a1, a1, a2, SP[a3, a4], a2, n] + 
    2*S2[a4, n]*S2[a1, a1, a3, a2, a2, n] - 
    S2[a2, n]*S2[a1, a1, a3, a2, a4, n] + S2[a1, a1, a3, a2, SP[a2, a4], n] - 
    S2[a2, n]*S2[a1, a1, a3, a4, a2, n] - S2[a1, a1, a3, a4, SP[a2, a2], n] - 
    S2[a1, a1, a3, SP[a2, a2], a4, n] + S2[a1, a1, a3, SP[a2, a4], a2, n] - 
    S2[a1, a1, a4, a2, SP[a2, a3], n] - S2[a1, a1, a4, a3, SP[a2, a2], n] - 
    S2[a1, a1, a4, SP[a2, a2], a3, n] - S2[a1, a1, a4, SP[a2, a3], a2, n] - 
    S2[a1, a1, SP[a2, a2], a3, a4, n] - S2[a1, a1, SP[a2, a2], a4, a3, n] - 
    S2[a1, a1, SP[a2, a3], a2, a4, n] - S2[a1, a1, SP[a2, a3], a4, a2, n] + 
    S2[a1, a1, SP[a2, a4], a2, a3, n] + S2[a1, a1, SP[a2, a4], a3, a2, n] + 
    2*S2[a1, a1, SP[a3, a4], a2, a2, n] + 
    S2[a4, n]*S2[a1, a2, a1, a2, a3, n] + S2[a1, a2, a1, a2, SP[a3, a4], n] + 
    S2[a4, n]*S2[a1, a2, a1, a3, a2, n] + S2[a1, a2, a1, a3, SP[a2, a4], n] - 
    S2[a1, a2, a1, a4, SP[a2, a3], n]/2 + S2[a1, a2, a1, SP[a2, a4], a3, n]/
     2 + S2[a1, a2, a1, SP[a3, a4], a2, n] + 
    S2[a4, n]*S2[a1, a2, a3, a1, a2, n] + S2[a1, a2, a3, a1, SP[a2, a4], n] + 
    S2[a1, a2, a3, SP[a1, a4], a2, n] - (S2[a3, n]*S2[a1, a2, a4, a1, a2, n])/
     2 - S2[a1, a2, a4, a1, SP[a2, a3], n] - S2[a1, a2, a4, SP[a1, a3], a2, 
     n] + S2[a1, a2, SP[a1, a4], a2, a3, n]/2 + 
    S2[a1, a2, SP[a1, a4], a3, a2, n]/2 + S2[a1, a2, SP[a3, a4], a1, a2, n]/
     2 + 2*S2[a4, n]*S2[a1, a3, a1, a2, a2, n] - 
    S2[a2, n]*S2[a1, a3, a1, a2, a4, n] + S2[a1, a3, a1, a2, SP[a2, a4], n] - 
    S2[a2, n]*S2[a1, a3, a1, a4, a2, n] - S2[a1, a3, a1, a4, SP[a2, a2], n] - 
    S2[a1, a3, a1, SP[a2, a2], a4, n] + S2[a1, a3, a1, SP[a2, a4], a2, n] + 
    S2[a4, n]*S2[a1, a3, a2, a1, a2, n] + S2[a1, a3, a2, a1, SP[a2, a4], n] + 
    S2[a1, a3, a2, SP[a1, a4], a2, n] - S2[a2, n]*S2[a1, a3, a4, a1, a2, n] - 
    S2[a1, a3, a4, a1, SP[a2, a2], n]/2 - S2[a1, a3, a4, SP[a1, a2], a2, n]/
     2 - S2[a1, a3, SP[a1, a2], a2, a4, n] - S2[a1, a3, SP[a1, a2], a4, a2, 
     n] + 2*S2[a1, a3, SP[a1, a4], a2, a2, n] + 
    S2[a1, a3, SP[a2, a4], a1, a2, n]/2 - 
    S2[a3, n]*S2[a1, a4, a1, a2, a2, n] - 
    (3*S2[a1, a4, a1, a2, SP[a2, a3], n])/2 - 
    S2[a1, a4, a1, a3, SP[a2, a2], n]/2 - S2[a1, a4, a1, SP[a2, a2], a3, n]/
     2 - (3*S2[a1, a4, a1, SP[a2, a3], a2, n])/2 - 
    (S2[a3, n]*S2[a1, a4, a2, a1, a2, n])/2 - S2[a1, a4, a2, a1, SP[a2, a3], 
     n] - S2[a1, a4, a2, SP[a1, a3], a2, n] - 
    S2[a1, a4, a3, a1, SP[a2, a2], n]/2 - S2[a1, a4, a3, SP[a1, a2], a2, n]/
     2 - S2[a1, a4, SP[a1, a2], a2, a3, n]/2 - 
    S2[a1, a4, SP[a1, a2], a3, a2, n]/2 - 
    2*S2[a1, a4, SP[a1, a3], a2, a2, n] - S2[a1, a4, SP[a2, a3], a1, a2, n]/
     2 - S2[a1, SP[a1, a2], a2, a3, a4, n] - S2[a1, SP[a1, a2], a2, a4, a3, 
     n] - S2[a1, SP[a1, a2], a3, a2, a4, n] - S2[a1, SP[a1, a2], a3, a4, a2, 
     n] - S2[a1, SP[a1, a2], a4, a2, a3, n] - S2[a1, SP[a1, a2], a4, a3, a2, 
     n] + S2[a1, SP[a1, a4], a2, a2, a3, n] + S2[a1, SP[a1, a4], a2, a3, a2, 
     n] + S2[a1, SP[a1, a4], a3, a2, a2, n] - S2[a1, SP[a2, a3], a1, a2, a4, 
     n] - S2[a1, SP[a2, a3], a1, a4, a2, n] - S2[a1, SP[a2, a3], a4, a1, a2, 
     n] + S2[a1, SP[a2, a4], a1, a2, a3, n] + S2[a1, SP[a2, a4], a1, a3, a2, 
     n] + S2[a1, SP[a2, a4], a3, a1, a2, n] + S2[a1, SP[a3, a4], a1, a2, a2, 
     n] + S2[a1, SP[a3, a4], a2, a1, a2, n]/2 + S2[a2, a1, a1, a3, 
     SP[a2, a4], n] + S2[a2, a1, a1, SP[a2, a3], a4, n] + 
    S2[a2, a1, a3, a1, SP[a2, a4], n] + S2[a2, a1, a3, SP[a1, a4], a2, n] + 
    S2[a2, a1, SP[a1, a3], a2, a4, n] + S2[a2, a1, SP[a1, a3], a4, a2, n] - 
    S2[a4, n]*S2[a2, a3, a1, a1, a2, n] + S2[a2, SP[a1, a3], a1, a2, a4, n] + 
    S2[a2, SP[a1, a3], a1, a4, a2, n] + S2[a2, SP[a1, a3], a4, a1, a2, n] - 
    S2[a2, SP[a3, a4], a1, a1, a2, n] + S2[a3, a1, a4, a1, SP[a2, a2], n]/2 + 
    S2[a3, a1, a4, SP[a1, a2], a2, n]/2 + S2[a3, a1, SP[a2, a4], a1, a2, n]/
     2 + S2[a3, a4, a1, a1, SP[a2, a2], n] + S2[a3, a4, a1, SP[a1, a2], a2, 
     n] + S2[a3, a4, SP[a1, a1], a2, a2, n] + S2[a3, SP[a1, a4], a1, a2, a2, 
     n] + S2[a3, SP[a1, a4], a2, a1, a2, n]/2 - 
    2*S2[a3, n]*S2[a4, a1, a1, a2, a2, n] - 
    2*S2[a4, a1, a1, a2, SP[a2, a3], n] - 
    2*S2[a4, a1, a1, SP[a2, a3], a2, n] - 
    S2[a3, n]*S2[a4, a1, a2, a1, a2, n] - S2[a4, a1, a2, a1, SP[a2, a3], n] - 
    S2[a4, a1, a2, SP[a1, a3], a2, n] - 2*S2[a4, a1, SP[a1, a3], a2, a2, n] - 
    S2[a4, a1, SP[a2, a3], a1, a2, n] + S2[a2, n]*S2[a4, a3, a1, a1, a2, n] + 
    S2[a4, a3, a1, a1, SP[a2, a2], n] + S2[a4, a3, a1, SP[a1, a2], a2, n] + 
    S2[a4, a3, SP[a1, a2], a1, a2, n] - 2*S2[a4, SP[a1, a3], a1, a2, a2, n] - 
    S2[a4, SP[a1, a3], a2, a1, a2, n] + S2[a4, SP[a2, a3], a1, a1, a2, n] - 
    2*S2[SP[a1, a1], a2, a2, a3, a4, n] - S2[SP[a1, a1], a2, a2, a4, a3, n] - 
    S2[SP[a1, a1], a2, a3, a2, a4, n] - S2[SP[a1, a1], a2, a3, a4, a2, n] - 
    S2[SP[a1, a1], a2, a4, a2, a3, n] - S2[SP[a1, a1], a2, a4, a3, a2, n] - 
    S2[SP[a1, a1], a4, a2, a2, a3, n] - S2[SP[a1, a1], a4, a2, a3, a2, n] - 
    S2[SP[a1, a1], a4, a3, a2, a2, n] + S2[SP[a1, a2], a1, a2, a3, a4, n] + 
    2*S2[SP[a1, a4], a1, a2, a2, a3, n] + 
    2*S2[SP[a1, a4], a1, a2, a3, a2, n] + 
    2*S2[SP[a1, a4], a1, a3, a2, a2, n] + S2[SP[a1, a4], a2, a1, a2, a3, n] + 
    S2[SP[a1, a4], a2, a1, a3, a2, n] + S2[SP[a1, a4], a2, a3, a1, a2, n] + 
    2*S2[SP[a1, a4], a3, a1, a2, a2, n] + S2[SP[a1, a4], a3, a2, a1, a2, n] - 
    2*S2[SP[a3, a4], a1, a1, a2, a2, n] - S2[SP[a3, a4], a1, a2, a1, a2, n] - 
    S2[a4, a3, a2, a1, a1, a2, n] /; MyMemberQ[{{a1, a2}, {a3, a4}}, 
     {a1, a1, a2, a2, a3, a4}] && a1 != a2 != a3 != a4, 
 S2[a2_, a1_, a1_, a2_, a4_, a3_, n_] :> 
  S2[a1, a1, a2, n]*S2[a2, a4, a3, n] + S2[SP[a1, a2], SP[a1, a4], 
     SP[a2, a3], n] - (S2[a1, a2, n]*S2[a1, a2, a4, a3, n])/2 - 
    S2[a1, a2, SP[a1, a4], SP[a2, a3], n]/2 + 
    (S2[a1, a2, n]*S2[a1, a4, a2, a3, n])/2 + 
    (S2[a1, a2, n]*S2[a1, a4, a3, a2, n])/2 - 
    S2[a1, a4, SP[a1, a2], SP[a2, a3], n]/2 - 
    S2[a1, a4, SP[a1, a3], SP[a2, a2], n]/2 - 
    S2[a1, SP[a1, a2], a4, SP[a2, a3], n]/2 - 
    S2[a1, SP[a1, a2], SP[a2, a4], a3, n]/2 - 
    S2[a1, SP[a1, a4], a2, SP[a2, a3], n]/2 - 
    S2[a1, SP[a1, a4], a3, SP[a2, a2], n]/2 - 
    S2[a1, SP[a1, a4], SP[a2, a2], a3, n]/2 - 
    S2[a1, SP[a1, a4], SP[a2, a3], a2, n]/2 - S2[a2, a1, SP[a1, a4], 
     SP[a2, a3], n] - S2[a2, SP[a1, a4], a1, SP[a2, a3], n] - 
    S2[a2, SP[a1, a4], SP[a1, a3], a2, n] - 
    (S2[a1, a2, n]*S2[a3, a4, a1, a2, n])/2 + 
    S2[a3, a4, SP[a1, a1], SP[a2, a2], n]/2 + 
    S2[a3, SP[a1, a4], a1, SP[a2, a2], n]/2 + 
    S2[a3, SP[a1, a4], SP[a1, a2], a2, n]/2 + 
    S2[SP[a1, a1], a2, a4, SP[a2, a3], n]/2 + 
    S2[SP[a1, a1], a2, SP[a2, a4], a3, n]/2 - 
    S2[SP[a1, a1], a4, a2, SP[a2, a3], n]/2 - 
    S2[SP[a1, a1], a4, a3, SP[a2, a2], n]/2 - 
    S2[SP[a1, a1], a4, SP[a2, a2], a3, n]/2 - 
    S2[SP[a1, a1], a4, SP[a2, a3], a2, n]/2 + 
    S2[SP[a1, a1], SP[a2, a2], a4, a3, n]/2 - 
    S2[SP[a1, a1], SP[a2, a4], a2, a3, n]/2 - 
    S2[SP[a1, a1], SP[a2, a4], a3, a2, n]/2 - S2[SP[a1, a2], a1, a4, 
     SP[a2, a3], n] - S2[SP[a1, a2], a1, SP[a2, a4], a3, n] - 
    S2[SP[a1, a2], a4, a1, SP[a2, a3], n] - S2[SP[a1, a2], a4, SP[a1, a3], 
     a2, n] - S2[SP[a1, a2], SP[a1, a4], a2, a3, n] - 
    S2[SP[a1, a2], SP[a1, a4], a3, a2, n] + 
    S2[SP[a1, a3], a4, a1, SP[a2, a2], n]/2 + 
    S2[SP[a1, a3], a4, SP[a1, a2], a2, n]/2 + 
    S2[SP[a1, a3], SP[a2, a4], a1, a2, n]/2 - 
    S2[a2, n]*S2[a1, a1, a4, a2, a3, n] - 
    S2[a2, n]*S2[a1, a1, a4, a3, a2, n] + S2[a1, a2, a1, a4, SP[a2, a3], n]/
     2 + S2[a1, a2, a1, SP[a2, a4], a3, n]/2 + 
    (S2[a3, n]*S2[a1, a2, a4, a1, a2, n])/2 + S2[a1, a2, a4, a1, SP[a2, a3], 
     n] + S2[a1, a2, a4, SP[a1, a3], a2, n] + 
    S2[a1, a2, SP[a1, a4], a2, a3, n]/2 + S2[a1, a2, SP[a1, a4], a3, a2, n]/
     2 + S2[a1, a2, SP[a3, a4], a1, a2, n]/2 - 
    S2[a1, a3, a4, a1, SP[a2, a2], n]/2 - S2[a1, a3, a4, SP[a1, a2], a2, n]/
     2 - S2[a1, a3, SP[a2, a4], a1, a2, n]/2 + 
    S2[a3, n]*S2[a1, a4, a1, a2, a2, n] - 
    S2[a2, n]*S2[a1, a4, a1, a2, a3, n] + S2[a1, a4, a1, a2, SP[a2, a3], n]/
     2 - S2[a2, n]*S2[a1, a4, a1, a3, a2, n] - 
    S2[a1, a4, a1, a3, SP[a2, a2], n]/2 - S2[a1, a4, a1, SP[a2, a2], a3, n]/
     2 + S2[a1, a4, a1, SP[a2, a3], a2, n]/2 + 
    (S2[a3, n]*S2[a1, a4, a2, a1, a2, n])/2 + S2[a1, a4, a2, a1, SP[a2, a3], 
     n] + S2[a1, a4, a2, SP[a1, a3], a2, n] - 
    S2[a2, n]*S2[a1, a4, a3, a1, a2, n] - S2[a1, a4, a3, a1, SP[a2, a2], n]/
     2 - S2[a1, a4, a3, SP[a1, a2], a2, n]/2 - 
    S2[a1, a4, SP[a1, a2], a2, a3, n]/2 - S2[a1, a4, SP[a1, a2], a3, a2, n]/
     2 + 2*S2[a1, a4, SP[a1, a3], a2, a2, n] - 
    S2[a1, a4, SP[a2, a3], a1, a2, n]/2 + S2[a1, SP[a1, a4], a2, a2, a3, n] + 
    S2[a1, SP[a1, a4], a2, a3, a2, n] + S2[a1, SP[a1, a4], a3, a2, a2, n] - 
    S2[a1, SP[a2, a4], a1, a2, a3, n] - S2[a1, SP[a2, a4], a1, a3, a2, n] - 
    S2[a1, SP[a2, a4], a3, a1, a2, n] + S2[a1, SP[a3, a4], a1, a2, a2, n] + 
    S2[a1, SP[a3, a4], a2, a1, a2, n]/2 + S2[a2, a1, a1, a4, SP[a2, a3], n] + 
    S2[a2, a1, a1, SP[a2, a4], a3, n] + S2[a2, a1, a4, a1, SP[a2, a3], n] + 
    S2[a2, a1, a4, SP[a1, a3], a2, n] + S2[a2, a1, SP[a1, a4], a2, a3, n] + 
    S2[a2, a1, SP[a1, a4], a3, a2, n] + S2[a2, a4, a1, a1, SP[a2, a3], n] + 
    S2[a2, a4, a1, SP[a1, a3], a2, n] + S2[a2, a4, SP[a1, a3], a1, a2, n] + 
    S2[a2, SP[a1, a4], a1, a2, a3, n] + S2[a2, SP[a1, a4], a1, a3, a2, n] + 
    S2[a2, SP[a1, a4], a3, a1, a2, n] - S2[a3, a1, a4, a1, SP[a2, a2], n]/2 - 
    S2[a3, a1, a4, SP[a1, a2], a2, n]/2 - S2[a3, a1, SP[a2, a4], a1, a2, n]/
     2 - S2[a3, a4, a1, a1, SP[a2, a2], n] - S2[a3, a4, a1, SP[a1, a2], a2, 
     n] - S2[a3, a4, SP[a1, a1], a2, a2, n] - S2[a3, SP[a1, a4], a1, a2, a2, 
     n] - S2[a3, SP[a1, a4], a2, a1, a2, n]/2 + 
    2*S2[a3, n]*S2[a4, a1, a1, a2, a2, n] - 
    S2[a2, n]*S2[a4, a1, a1, a2, a3, n] + S2[a4, a1, a1, a2, SP[a2, a3], n] - 
    S2[a2, n]*S2[a4, a1, a1, a3, a2, n] - S2[a4, a1, a1, a3, SP[a2, a2], n] - 
    S2[a4, a1, a1, SP[a2, a2], a3, n] + S2[a4, a1, a1, SP[a2, a3], a2, n] + 
    S2[a3, n]*S2[a4, a1, a2, a1, a2, n] + S2[a4, a1, a2, a1, SP[a2, a3], n] + 
    S2[a4, a1, a2, SP[a1, a3], a2, n] - S2[a2, n]*S2[a4, a1, a3, a1, a2, n] - 
    S2[a4, a1, a3, a1, SP[a2, a2], n] - S2[a4, a1, a3, SP[a1, a2], a2, n] - 
    S2[a4, a1, SP[a1, a2], a2, a3, n] - S2[a4, a1, SP[a1, a2], a3, a2, n] + 
    2*S2[a4, a1, SP[a1, a3], a2, a2, n] - 
    S2[a2, n]*S2[a4, a3, a1, a1, a2, n] - S2[a4, a3, a1, a1, SP[a2, a2], n] - 
    S2[a4, a3, a1, SP[a1, a2], a2, n] - S2[a4, a3, SP[a1, a2], a1, a2, n] - 
    S2[a4, SP[a1, a2], a1, a2, a3, n] - S2[a4, SP[a1, a2], a1, a3, a2, n] - 
    S2[a4, SP[a1, a2], a3, a1, a2, n] + 2*S2[a4, SP[a1, a3], a1, a2, a2, n] + 
    S2[a4, SP[a1, a3], a2, a1, a2, n] - S2[a4, SP[a2, a3], a1, a1, a2, n] - 
    S2[SP[a1, a1], a2, a2, a4, a3, n] + S2[SP[a1, a1], a4, a2, a2, a3, n] + 
    S2[SP[a1, a1], a4, a2, a3, a2, n] + S2[SP[a1, a1], a4, a3, a2, a2, n] + 
    S2[SP[a1, a2], a1, a2, a4, a3, n] - S2[SP[a2, a4], a1, a1, a2, a3, n] - 
    S2[SP[a2, a4], a1, a1, a3, a2, n] - S2[SP[a2, a4], a1, a3, a1, a2, n] - 
    S2[SP[a2, a4], a3, a1, a1, a2, n] + 2*S2[SP[a3, a4], a1, a1, a2, a2, n] + 
    S2[SP[a3, a4], a1, a2, a1, a2, n] + S2[a4, a2, a1, a1, a2, a3, n] + 
    S2[a4, a2, a1, a1, a3, a2, n] + S2[a4, a2, a1, a3, a1, a2, n] + 
    S2[a4, a2, a3, a1, a1, a2, n] + S2[a4, a3, a2, a1, a1, a2, n] /; 
   MyMemberQ[{{a1, a2}, {a3, a4}}, {a1, a1, a2, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a2_, a1_, a1_, a3_, a2_, a4_, n_] :> 
  -(S2[a1, a1, a2, n]*S2[a2, a3, a4, n]) - S2[a1, a1, a2, n]*
     S2[a2, a4, a3, n] - S2[SP[a1, a2], SP[a1, a3], SP[a2, a4], n] - 
    S2[SP[a1, a2], SP[a1, a4], SP[a2, a3], n] - 
    S2[a2, a4, n]*S2[a1, a1, a2, a3, n] - S2[a2, a4, n]*
     S2[a1, a1, a3, a2, n] + S2[a1, a1, SP[a2, a2], SP[a3, a4], n] + 
    S2[a1, a1, SP[a2, a3], SP[a2, a4], n] - S2[a2, a4, n]*
     S2[a1, a2, a1, a3, n] + S2[a1, a2, SP[a1, a2], SP[a3, a4], n] + 
    S2[a1, a2, SP[a1, a3], SP[a2, a4], n] + S2[a1, a2, SP[a1, a4], 
     SP[a2, a3], n] - S2[a1, a2, n]*S2[a1, a3, a2, a4, n] - 
    S2[a1, a2, n]*S2[a1, a3, a4, a2, n] + S2[a1, a3, SP[a1, a2], SP[a2, a4], 
     n] + S2[a1, a3, SP[a1, a4], SP[a2, a2], n] - 
    S2[a1, a2, n]*S2[a1, a4, a2, a3, n] - S2[a1, a2, n]*
     S2[a1, a4, a3, a2, n] + S2[a1, a4, SP[a1, a2], SP[a2, a3], n] + 
    S2[a1, a4, SP[a1, a3], SP[a2, a2], n] + S2[a1, SP[a1, a2], a2, 
     SP[a3, a4], n] + 2*S2[a1, SP[a1, a2], a3, SP[a2, a4], n] + 
    S2[a1, SP[a1, a2], a4, SP[a2, a3], n] + S2[a1, SP[a1, a2], SP[a2, a3], 
     a4, n] + 2*S2[a1, SP[a1, a2], SP[a2, a4], a3, n] + 
    S2[a1, SP[a1, a2], SP[a3, a4], a2, n] + S2[a1, SP[a1, a3], a2, 
     SP[a2, a4], n] + S2[a1, SP[a1, a3], a4, SP[a2, a2], n] + 
    S2[a1, SP[a1, a3], SP[a2, a2], a4, n] + S2[a1, SP[a1, a3], SP[a2, a4], 
     a2, n] + S2[a1, SP[a1, a4], a2, SP[a2, a3], n] + 
    S2[a1, SP[a1, a4], a3, SP[a2, a2], n] + S2[a1, SP[a1, a4], SP[a2, a2], 
     a3, n] + S2[a1, SP[a1, a4], SP[a2, a3], a2, n] + 
    S2[a1, SP[a2, a2], a1, SP[a3, a4], n] + S2[a1, SP[a2, a2], SP[a1, a4], 
     a3, n] + S2[a2, a1, SP[a1, a3], SP[a2, a4], n] + 
    S2[a2, a1, SP[a1, a4], SP[a2, a3], n] + S2[a1, a2, n]*
     S2[a2, a4, a1, a3, n] - S2[a2, a4, SP[a1, a1], SP[a2, a3], n] + 
    S2[a2, SP[a1, a3], a1, SP[a2, a4], n] + S2[a2, SP[a1, a3], SP[a1, a4], 
     a2, n] - S2[a2, SP[a1, a4], SP[a1, a2], a3, n] + 
    S2[a2, SP[a1, a4], SP[a1, a3], a2, n] + S2[SP[a1, a1], a3, a2, 
     SP[a2, a4], n] + S2[SP[a1, a1], a3, a4, SP[a2, a2], n] + 
    S2[SP[a1, a1], a3, SP[a2, a2], a4, n] + S2[SP[a1, a1], a3, SP[a2, a4], 
     a2, n] + S2[SP[a1, a1], a4, a2, SP[a2, a3], n] + 
    S2[SP[a1, a1], a4, a3, SP[a2, a2], n] + S2[SP[a1, a1], a4, SP[a2, a2], 
     a3, n] + S2[SP[a1, a1], a4, SP[a2, a3], a2, n] + 
    S2[SP[a1, a1], SP[a2, a3], a2, a4, n] + S2[SP[a1, a1], SP[a2, a3], a4, 
     a2, n] + S2[SP[a1, a1], SP[a2, a4], a2, a3, n] + 
    S2[SP[a1, a1], SP[a2, a4], a3, a2, n] + S2[SP[a1, a2], a1, a2, 
     SP[a3, a4], n] + 2*S2[SP[a1, a2], a1, a3, SP[a2, a4], n] + 
    S2[SP[a1, a2], a1, a4, SP[a2, a3], n] + S2[SP[a1, a2], a1, SP[a2, a3], 
     a4, n] + 2*S2[SP[a1, a2], a1, SP[a2, a4], a3, n] + 
    S2[SP[a1, a2], a1, SP[a3, a4], a2, n] + S2[SP[a1, a2], a2, a1, 
     SP[a3, a4], n] + S2[SP[a1, a2], a2, SP[a1, a4], a3, n] + 
    S2[SP[a1, a2], a3, a1, SP[a2, a4], n] + S2[SP[a1, a2], a3, SP[a1, a4], 
     a2, n] - S2[SP[a1, a2], a4, SP[a1, a2], a3, n] + 
    S2[SP[a1, a2], a4, SP[a1, a3], a2, n] + S2[SP[a1, a2], SP[a1, a3], a2, 
     a4, n] + S2[SP[a1, a2], SP[a1, a3], a4, a2, n] + 
    2*S2[SP[a1, a2], SP[a1, a4], a2, a3, n] + 
    2*S2[SP[a1, a2], SP[a1, a4], a3, a2, n] - 
    2*S2[a1, a1, a2, a2, SP[a3, a4], n] + 
    2*S2[a2, n]*S2[a1, a1, a2, a3, a4, n] + 
    2*S2[a2, n]*S2[a1, a1, a2, a4, a3, n] + S2[a1, a1, a2, a4, SP[a2, a3], 
     n] - S2[a1, a1, a2, SP[a3, a4], a2, n] + 
    3*S2[a2, n]*S2[a1, a1, a3, a2, a4, n] + 
    2*S2[a2, n]*S2[a1, a1, a3, a4, a2, n] + 
    2*S2[a2, n]*S2[a1, a1, a4, a2, a3, n] + 
    2*S2[a2, n]*S2[a1, a1, a4, a3, a2, n] - S2[a1, a1, SP[a2, a3], a4, a2, 
     n] - 2*S2[a1, a2, a1, a2, SP[a3, a4], n] + 
    S2[a2, n]*S2[a1, a2, a1, a3, a4, n] - S2[a1, a2, a1, a3, SP[a2, a4], n] + 
    S2[a2, n]*S2[a1, a2, a1, a4, a3, n] - S2[a1, a2, a1, SP[a2, a3], a4, n] - 
    S2[a1, a2, a1, SP[a2, a4], a3, n] - S2[a1, a2, a1, SP[a3, a4], a2, n] - 
    2*S2[a1, a2, a2, a1, SP[a3, a4], n] - 
    2*S2[a1, a2, a2, SP[a1, a4], a3, n] - S2[a1, a2, a3, a1, SP[a2, a4], n] - 
    S2[a1, a2, a3, SP[a1, a4], a2, n] + S2[a1, a2, a4, SP[a1, a2], a3, n] - 
    S2[a1, a2, a4, SP[a1, a3], a2, n] - S2[a1, a2, SP[a1, a3], a2, a4, n] - 
    S2[a1, a2, SP[a1, a3], a4, a2, n] - 2*S2[a1, a2, SP[a1, a4], a2, a3, n] - 
    2*S2[a1, a2, SP[a1, a4], a3, a2, n] + 
    S2[a2, n]*S2[a1, a3, a1, a2, a4, n] + 
    S2[a2, n]*S2[a1, a3, a1, a4, a2, n] - S2[a1, a3, a2, a1, SP[a2, a4], n] - 
    S2[a1, a3, a2, SP[a1, a4], a2, n] + S2[a2, n]*S2[a1, a3, a4, a1, a2, n] - 
    2*S2[a1, a3, SP[a1, a4], a2, a2, n] + S2[a1, a3, SP[a2, a4], a1, a2, n] + 
    S2[a2, n]*S2[a1, a4, a1, a2, a3, n] + 
    S2[a2, n]*S2[a1, a4, a1, a3, a2, n] - S2[a1, a4, a2, a1, SP[a2, a3], n] - 
    S2[a1, a4, a2, SP[a1, a3], a2, n] + S2[a2, n]*S2[a1, a4, a3, a1, a2, n] - 
    2*S2[a1, a4, SP[a1, a3], a2, a2, n] + S2[a1, a4, SP[a2, a3], a1, a2, n] - 
    S2[a1, SP[a1, a2], a3, a4, a2, n] - S2[a1, SP[a1, a2], a4, a2, a3, n] - 
    S2[a1, SP[a1, a2], a4, a3, a2, n] - 2*S2[a1, SP[a1, a3], a2, a2, a4, n] - 
    2*S2[a1, SP[a1, a3], a2, a4, a2, n] - 
    2*S2[a1, SP[a1, a3], a4, a2, a2, n] - 
    2*S2[a1, SP[a1, a4], a2, a2, a3, n] - 
    2*S2[a1, SP[a1, a4], a2, a3, a2, n] - 
    2*S2[a1, SP[a1, a4], a3, a2, a2, n] + S2[a1, SP[a2, a3], a1, a2, a4, n] + 
    S2[a1, SP[a2, a3], a1, a4, a2, n] + S2[a1, SP[a2, a3], a4, a1, a2, n] + 
    S2[a1, SP[a2, a4], a1, a2, a3, n] + S2[a1, SP[a2, a4], a1, a3, a2, n] + 
    S2[a1, SP[a2, a4], a3, a1, a2, n] - S2[a2, a1, a1, a2, SP[a3, a4], n] - 
    2*S2[a2, a1, a1, a3, SP[a2, a4], n] - S2[a2, a1, a1, a4, SP[a2, a3], n] - 
    S2[a2, a1, a1, SP[a2, a3], a4, n] - 2*S2[a2, a1, a1, SP[a2, a4], a3, n] - 
    S2[a2, a1, a1, SP[a3, a4], a2, n] - S2[a2, a1, a2, a1, SP[a3, a4], n] - 
    S2[a2, a1, a2, SP[a1, a4], a3, n] - S2[a2, a1, a3, a1, SP[a2, a4], n] - 
    S2[a2, a1, a3, SP[a1, a4], a2, n] + S2[a2, a1, a4, SP[a1, a2], a3, n] - 
    S2[a2, a1, a4, SP[a1, a3], a2, n] - S2[a2, a1, SP[a1, a3], a2, a4, n] - 
    S2[a2, a1, SP[a1, a3], a4, a2, n] - 2*S2[a2, a1, SP[a1, a4], a2, a3, n] - 
    2*S2[a2, a1, SP[a1, a4], a3, a2, n] + 
    S2[a4, n]*S2[a2, a3, a1, a1, a2, n] + S2[a2, a4, a1, a1, SP[a2, a3], n] + 
    S2[a2, a4, a1, SP[a1, a2], a3, n] + S2[a2, a4, SP[a1, a1], a2, a3, n] + 
    S2[a2, a4, SP[a1, a1], a3, a2, n] - S2[a2, a4, SP[a1, a3], a1, a2, n] - 
    S2[a2, SP[a1, a3], a1, a2, a4, n] - S2[a2, SP[a1, a3], a1, a4, a2, n] - 
    S2[a2, SP[a1, a3], a4, a1, a2, n] - S2[a2, SP[a1, a4], a1, a2, a3, n] - 
    S2[a2, SP[a1, a4], a1, a3, a2, n] - S2[a2, SP[a1, a4], a3, a1, a2, n] + 
    S2[a2, SP[a3, a4], a1, a1, a2, n] - S2[SP[a1, a1], a2, a3, a2, a4, n] - 
    S2[SP[a1, a1], a2, a3, a4, a2, n] - S2[SP[a1, a1], a2, a4, a2, a3, n] - 
    S2[SP[a1, a1], a2, a4, a3, a2, n] - 2*S2[SP[a1, a1], a3, a2, a2, a4, n] - 
    2*S2[SP[a1, a1], a3, a2, a4, a2, n] - 
    2*S2[SP[a1, a1], a3, a4, a2, a2, n] - 
    2*S2[SP[a1, a1], a4, a2, a2, a3, n] - 
    2*S2[SP[a1, a1], a4, a2, a3, a2, n] - 
    2*S2[SP[a1, a1], a4, a3, a2, a2, n] + S2[SP[a1, a2], a1, a3, a2, a4, n] + 
    S2[SP[a2, a4], a3, a1, a1, a2, n] - S2[a4, a2, a3, a1, a1, a2, n] /; 
   MyMemberQ[{{a1, a2}, {a3, a4}}, {a1, a1, a2, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a2_, a1_, a1_, a3_, a4_, a2_, n_] :> 
  S2[a1, a1, a2, n]*S2[a2, a4, a3, n] + S2[SP[a1, a2], SP[a1, a4], 
     SP[a2, a3], n] + S2[a2, a4, n]*S2[a1, a1, a2, a3, n] + 
    S2[a2, a4, n]*S2[a1, a1, a3, a2, n] - S2[a1, a1, SP[a2, a2], SP[a3, a4], 
     n] - S2[a1, a1, SP[a2, a3], SP[a2, a4], n] + 
    S2[a2, a4, n]*S2[a1, a2, a1, a3, n] - S2[a1, a2, SP[a1, a2], SP[a3, a4], 
     n] - S2[a1, a2, SP[a1, a4], SP[a2, a3], n] + 
    S2[a1, a2, n]*S2[a1, a4, a2, a3, n] + S2[a1, a2, n]*
     S2[a1, a4, a3, a2, n] - S2[a1, a4, SP[a1, a2], SP[a2, a3], n] - 
    S2[a1, a4, SP[a1, a3], SP[a2, a2], n] - S2[a1, SP[a1, a2], a2, 
     SP[a3, a4], n] - S2[a1, SP[a1, a2], a3, SP[a2, a4], n] - 
    S2[a1, SP[a1, a2], a4, SP[a2, a3], n] - 
    2*S2[a1, SP[a1, a2], SP[a2, a4], a3, n] - S2[a1, SP[a1, a2], SP[a3, a4], 
     a2, n] - S2[a1, SP[a1, a4], a2, SP[a2, a3], n] - 
    S2[a1, SP[a1, a4], a3, SP[a2, a2], n] - S2[a1, SP[a1, a4], SP[a2, a2], 
     a3, n] - S2[a1, SP[a1, a4], SP[a2, a3], a2, n] - 
    S2[a1, SP[a2, a2], a1, SP[a3, a4], n] - S2[a1, SP[a2, a2], SP[a1, a4], 
     a3, n] - S2[a2, a1, SP[a1, a4], SP[a2, a3], n] - 
    S2[a1, a2, n]*S2[a2, a4, a1, a3, n] + S2[a2, a4, SP[a1, a1], SP[a2, a3], 
     n] + S2[a2, SP[a1, a4], SP[a1, a2], a3, n] - 
    S2[a2, SP[a1, a4], SP[a1, a3], a2, n] - S2[SP[a1, a1], a4, a2, 
     SP[a2, a3], n] - S2[SP[a1, a1], a4, a3, SP[a2, a2], n] - 
    S2[SP[a1, a1], a4, SP[a2, a2], a3, n] - S2[SP[a1, a1], a4, SP[a2, a3], 
     a2, n] - S2[SP[a1, a1], SP[a2, a4], a2, a3, n] - 
    S2[SP[a1, a1], SP[a2, a4], a3, a2, n] - S2[SP[a1, a2], a1, a2, 
     SP[a3, a4], n] - S2[SP[a1, a2], a1, a3, SP[a2, a4], n] - 
    S2[SP[a1, a2], a1, a4, SP[a2, a3], n] - 
    2*S2[SP[a1, a2], a1, SP[a2, a4], a3, n] - S2[SP[a1, a2], a1, SP[a3, a4], 
     a2, n] - S2[SP[a1, a2], a2, a1, SP[a3, a4], n] - 
    S2[SP[a1, a2], a2, SP[a1, a4], a3, n] + S2[SP[a1, a2], a4, SP[a1, a2], 
     a3, n] - S2[SP[a1, a2], a4, SP[a1, a3], a2, n] - 
    2*S2[SP[a1, a2], SP[a1, a4], a2, a3, n] - 
    2*S2[SP[a1, a2], SP[a1, a4], a3, a2, n] + 
    2*S2[a1, a1, a2, a2, SP[a3, a4], n] - 
    S2[a2, n]*S2[a1, a1, a2, a3, a4, n] - 
    2*S2[a2, n]*S2[a1, a1, a2, a4, a3, n] - S2[a1, a1, a2, a4, SP[a2, a3], 
     n] + S2[a1, a1, a2, SP[a3, a4], a2, n] - 
    S2[a2, n]*S2[a1, a1, a3, a2, a4, n] - 
    2*S2[a2, n]*S2[a1, a1, a4, a2, a3, n] - 
    2*S2[a2, n]*S2[a1, a1, a4, a3, a2, n] + S2[a1, a1, SP[a2, a3], a4, a2, 
     n] + 2*S2[a1, a2, a1, a2, SP[a3, a4], n] - 
    S2[a2, n]*S2[a1, a2, a1, a3, a4, n] - 
    S2[a2, n]*S2[a1, a2, a1, a4, a3, n] + S2[a1, a2, a1, SP[a2, a4], a3, n] + 
    S2[a1, a2, a1, SP[a3, a4], a2, n] + 2*S2[a1, a2, a2, a1, SP[a3, a4], n] + 
    2*S2[a1, a2, a2, SP[a1, a4], a3, n] - S2[a1, a2, a4, SP[a1, a2], a3, n] + 
    S2[a1, a2, a4, SP[a1, a3], a2, n] + 2*S2[a1, a2, SP[a1, a4], a2, a3, n] + 
    2*S2[a1, a2, SP[a1, a4], a3, a2, n] - 
    S2[a2, n]*S2[a1, a4, a1, a2, a3, n] - 
    S2[a2, n]*S2[a1, a4, a1, a3, a2, n] + S2[a1, a4, a2, a1, SP[a2, a3], n] + 
    S2[a1, a4, a2, SP[a1, a3], a2, n] - S2[a2, n]*S2[a1, a4, a3, a1, a2, n] + 
    2*S2[a1, a4, SP[a1, a3], a2, a2, n] - S2[a1, a4, SP[a2, a3], a1, a2, n] + 
    S2[a1, SP[a1, a2], a3, a4, a2, n] + S2[a1, SP[a1, a2], a4, a2, a3, n] + 
    S2[a1, SP[a1, a2], a4, a3, a2, n] + 2*S2[a1, SP[a1, a4], a2, a2, a3, n] + 
    2*S2[a1, SP[a1, a4], a2, a3, a2, n] + 
    2*S2[a1, SP[a1, a4], a3, a2, a2, n] - S2[a1, SP[a2, a4], a1, a2, a3, n] - 
    S2[a1, SP[a2, a4], a1, a3, a2, n] - S2[a1, SP[a2, a4], a3, a1, a2, n] + 
    S2[a2, a1, a1, a2, SP[a3, a4], n] + S2[a2, a1, a1, a3, SP[a2, a4], n] + 
    S2[a2, a1, a1, a4, SP[a2, a3], n] + 2*S2[a2, a1, a1, SP[a2, a4], a3, n] + 
    S2[a2, a1, a1, SP[a3, a4], a2, n] + S2[a2, a1, a2, a1, SP[a3, a4], n] + 
    S2[a2, a1, a2, SP[a1, a4], a3, n] - S2[a2, a1, a4, SP[a1, a2], a3, n] + 
    S2[a2, a1, a4, SP[a1, a3], a2, n] + 2*S2[a2, a1, SP[a1, a4], a2, a3, n] + 
    2*S2[a2, a1, SP[a1, a4], a3, a2, n] - S2[a2, a4, a1, a1, SP[a2, a3], n] - 
    S2[a2, a4, a1, SP[a1, a2], a3, n] - S2[a2, a4, SP[a1, a1], a2, a3, n] - 
    S2[a2, a4, SP[a1, a1], a3, a2, n] + S2[a2, a4, SP[a1, a3], a1, a2, n] + 
    S2[a2, SP[a1, a4], a1, a2, a3, n] + S2[a2, SP[a1, a4], a1, a3, a2, n] + 
    S2[a2, SP[a1, a4], a3, a1, a2, n] - S2[a2, n]*S2[a4, a3, a1, a1, a2, n] - 
    S2[a4, a3, a1, a1, SP[a2, a2], n] - S2[a4, a3, a1, SP[a1, a2], a2, n] - 
    S2[a4, a3, SP[a1, a2], a1, a2, n] - S2[a4, SP[a2, a3], a1, a1, a2, n] + 
    S2[SP[a1, a1], a2, a4, a2, a3, n] + S2[SP[a1, a1], a2, a4, a3, a2, n] + 
    2*S2[SP[a1, a1], a4, a2, a2, a3, n] + 
    2*S2[SP[a1, a1], a4, a2, a3, a2, n] + 
    2*S2[SP[a1, a1], a4, a3, a2, a2, n] + S2[SP[a1, a2], a1, a3, a4, a2, n] - 
    S2[SP[a2, a4], a3, a1, a1, a2, n] + S2[a4, a2, a3, a1, a1, a2, n] + 
    2*S2[a4, a3, a1, a1, a2, a2, n] + S2[a4, a3, a1, a2, a1, a2, n] + 
    S2[a4, a3, a2, a1, a1, a2, n] /; MyMemberQ[{{a1, a2}, {a3, a4}}, 
     {a1, a1, a2, a2, a3, a4}] && a1 != a2 != a3 != a4, 
 S2[a2_, a1_, a1_, a4_, a2_, a3_, n_] :> 
  -(S2[a1, a1, a2, n]*S2[a2, a3, a4, n]) - S2[a1, a1, a2, n]*
     S2[a2, a4, a3, n] - S2[SP[a1, a2], SP[a1, a3], SP[a2, a4], n] - 
    S2[SP[a1, a2], SP[a1, a4], SP[a2, a3], n] + S2[a1, a2, SP[a1, a3], 
     SP[a2, a4], n] + S2[a1, a2, SP[a1, a4], SP[a2, a3], n] - 
    S2[a1, a2, n]*S2[a1, a4, a2, a3, n] + S2[a1, a4, SP[a1, a2], SP[a2, a3], 
     n] + S2[a1, SP[a1, a2], a3, SP[a2, a4], n] + S2[a1, SP[a1, a2], a4, 
     SP[a2, a3], n] + S2[a1, SP[a1, a2], SP[a2, a3], a4, n] + 
    S2[a1, SP[a1, a2], SP[a2, a4], a3, n] + S2[a1, SP[a1, a4], a2, 
     SP[a2, a3], n] + S2[a1, SP[a1, a4], SP[a2, a2], a3, n] + 
    S2[a2, a1, SP[a1, a3], SP[a2, a4], n] + S2[a2, a1, SP[a1, a4], 
     SP[a2, a3], n] + S2[a2, SP[a1, a3], a1, SP[a2, a4], n] + 
    S2[a2, SP[a1, a3], SP[a1, a4], a2, n] + S2[a2, SP[a1, a4], a1, 
     SP[a2, a3], n] + S2[a2, SP[a1, a4], SP[a1, a3], a2, n] + 
    S2[SP[a1, a1], a4, a2, SP[a2, a3], n] + S2[SP[a1, a1], a4, SP[a2, a2], 
     a3, n] + S2[SP[a1, a1], SP[a2, a4], a2, a3, n] + 
    S2[SP[a1, a2], a1, a3, SP[a2, a4], n] + S2[SP[a1, a2], a1, a4, 
     SP[a2, a3], n] + S2[SP[a1, a2], a1, SP[a2, a3], a4, n] + 
    S2[SP[a1, a2], a1, SP[a2, a4], a3, n] + S2[SP[a1, a2], a3, a1, 
     SP[a2, a4], n] + S2[SP[a1, a2], a3, SP[a1, a4], a2, n] + 
    S2[SP[a1, a2], a4, a1, SP[a2, a3], n] + S2[SP[a1, a2], a4, SP[a1, a3], 
     a2, n] + S2[SP[a1, a2], SP[a1, a3], a2, a4, n] + 
    S2[SP[a1, a2], SP[a1, a3], a4, a2, n] + S2[SP[a1, a2], SP[a1, a4], a2, 
     a3, n] + S2[SP[a1, a2], SP[a1, a4], a3, a2, n] - 
    S2[a4, n]*S2[a1, a1, a2, a3, a2, n] + 
    S2[a2, n]*S2[a1, a1, a2, a3, a4, n] - S2[a1, a1, a2, a3, SP[a2, a4], n] + 
    S2[a2, n]*S2[a1, a1, a2, a4, a3, n] - S2[a1, a1, a2, SP[a3, a4], a2, n] - 
    2*S2[a4, n]*S2[a1, a1, a3, a2, a2, n] + 
    S2[a2, n]*S2[a1, a1, a3, a2, a4, n] - S2[a1, a1, a3, a2, SP[a2, a4], n] + 
    S2[a2, n]*S2[a1, a1, a3, a4, a2, n] + S2[a1, a1, a3, a4, SP[a2, a2], n] + 
    S2[a1, a1, a3, SP[a2, a2], a4, n] - S2[a1, a1, a3, SP[a2, a4], a2, n] + 
    2*S2[a2, n]*S2[a1, a1, a4, a2, a3, n] + 
    S2[a2, n]*S2[a1, a1, a4, a3, a2, n] + S2[a1, a1, a4, a3, SP[a2, a2], n] + 
    S2[a1, a1, a4, SP[a2, a3], a2, n] + S2[a1, a1, SP[a2, a3], a2, a4, n] + 
    S2[a1, a1, SP[a2, a3], a4, a2, n] - 2*S2[a1, a1, SP[a3, a4], a2, a2, n] - 
    S2[a1, a2, a1, a3, SP[a2, a4], n] - S2[a1, a2, a1, a4, SP[a2, a3], n] - 
    S2[a1, a2, a1, SP[a2, a3], a4, n] - S2[a1, a2, a1, SP[a2, a4], a3, n] - 
    S2[a1, a2, a3, a1, SP[a2, a4], n] - S2[a1, a2, a3, SP[a1, a4], a2, n] - 
    S2[a1, a2, a4, a1, SP[a2, a3], n] - S2[a1, a2, a4, SP[a1, a3], a2, n] - 
    S2[a1, a2, SP[a1, a3], a2, a4, n] - S2[a1, a2, SP[a1, a3], a4, a2, n] - 
    S2[a1, a2, SP[a1, a4], a2, a3, n] - S2[a1, a2, SP[a1, a4], a3, a2, n] - 
    2*S2[a4, n]*S2[a1, a3, a1, a2, a2, n] + 
    S2[a2, n]*S2[a1, a3, a1, a2, a4, n] - S2[a1, a3, a1, a2, SP[a2, a4], n] + 
    S2[a2, n]*S2[a1, a3, a1, a4, a2, n] + S2[a1, a3, a1, a4, SP[a2, a2], n] + 
    S2[a1, a3, a1, SP[a2, a2], a4, n] - S2[a1, a3, a1, SP[a2, a4], a2, n] - 
    S2[a4, n]*S2[a1, a3, a2, a1, a2, n] - S2[a1, a3, a2, a1, SP[a2, a4], n] - 
    S2[a1, a3, a2, SP[a1, a4], a2, n] + S2[a2, n]*S2[a1, a3, a4, a1, a2, n] + 
    S2[a1, a3, a4, a1, SP[a2, a2], n] + S2[a1, a3, a4, SP[a1, a2], a2, n] + 
    S2[a1, a3, SP[a1, a2], a2, a4, n] + S2[a1, a3, SP[a1, a2], a4, a2, n] - 
    2*S2[a1, a3, SP[a1, a4], a2, a2, n] + 
    S2[a2, n]*S2[a1, a4, a1, a2, a3, n] + 
    S2[a2, n]*S2[a1, a4, a1, a3, a2, n] + S2[a1, a4, a1, a3, SP[a2, a2], n] + 
    S2[a1, a4, a1, SP[a2, a3], a2, n] - S2[a1, a4, a2, a1, SP[a2, a3], n] - 
    S2[a1, a4, a2, SP[a1, a3], a2, n] + S2[a2, n]*S2[a1, a4, a3, a1, a2, n] + 
    S2[a1, a4, a3, a1, SP[a2, a2], n] + S2[a1, a4, a3, SP[a1, a2], a2, n] + 
    S2[a1, a4, SP[a2, a3], a1, a2, n] - 2*S2[a1, SP[a1, a4], a2, a2, a3, n] - 
    2*S2[a1, SP[a1, a4], a2, a3, a2, n] - 
    2*S2[a1, SP[a1, a4], a3, a2, a2, n] + S2[a1, SP[a2, a3], a1, a2, a4, n] + 
    S2[a1, SP[a2, a3], a1, a4, a2, n] + S2[a1, SP[a2, a3], a4, a1, a2, n] + 
    S2[a1, SP[a2, a4], a1, a2, a3, n] + S2[a1, SP[a2, a4], a1, a3, a2, n] + 
    S2[a1, SP[a2, a4], a3, a1, a2, n] - 2*S2[a1, SP[a3, a4], a1, a2, a2, n] - 
    S2[a1, SP[a3, a4], a2, a1, a2, n] - S2[a2, a1, a1, a3, SP[a2, a4], n] - 
    S2[a2, a1, a1, a4, SP[a2, a3], n] - S2[a2, a1, a1, SP[a2, a3], a4, n] - 
    S2[a2, a1, a1, SP[a2, a4], a3, n] - S2[a2, a1, a3, a1, SP[a2, a4], n] - 
    S2[a2, a1, a3, SP[a1, a4], a2, n] - S2[a2, a1, a4, a1, SP[a2, a3], n] - 
    S2[a2, a1, a4, SP[a1, a3], a2, n] - S2[a2, a1, SP[a1, a3], a2, a4, n] - 
    S2[a2, a1, SP[a1, a3], a4, a2, n] - S2[a2, a1, SP[a1, a4], a2, a3, n] - 
    S2[a2, a1, SP[a1, a4], a3, a2, n] + S2[a4, n]*S2[a2, a3, a1, a1, a2, n] - 
    S2[a2, a4, a1, a1, SP[a2, a3], n] - S2[a2, a4, a1, SP[a1, a3], a2, n] - 
    S2[a2, a4, SP[a1, a3], a1, a2, n] - S2[a2, SP[a1, a3], a1, a2, a4, n] - 
    S2[a2, SP[a1, a3], a1, a4, a2, n] - S2[a2, SP[a1, a3], a4, a1, a2, n] - 
    S2[a2, SP[a1, a4], a1, a2, a3, n] - S2[a2, SP[a1, a4], a1, a3, a2, n] - 
    S2[a2, SP[a1, a4], a3, a1, a2, n] + S2[a2, SP[a3, a4], a1, a1, a2, n] + 
    S2[a2, n]*S2[a4, a1, a1, a2, a3, n] + S2[a4, a1, a1, a2, SP[a2, a3], n] + 
    S2[a2, n]*S2[a4, a1, a1, a3, a2, n] + S2[a4, a1, a1, a3, SP[a2, a2], n] + 
    S2[a4, a1, a1, SP[a2, a2], a3, n] + S2[a4, a1, a1, SP[a2, a3], a2, n] + 
    S2[a2, n]*S2[a4, a1, a3, a1, a2, n] + S2[a4, a1, a3, a1, SP[a2, a2], n] + 
    S2[a4, a1, a3, SP[a1, a2], a2, n] + S2[a4, a1, SP[a1, a2], a2, a3, n] + 
    S2[a4, a1, SP[a1, a2], a3, a2, n] + S2[a4, a1, SP[a2, a3], a1, a2, n] + 
    S2[a4, SP[a1, a2], a1, a2, a3, n] + S2[a4, SP[a1, a2], a1, a3, a2, n] + 
    S2[a4, SP[a1, a2], a3, a1, a2, n] - S2[SP[a1, a1], a2, a4, a2, a3, n] - 
    2*S2[SP[a1, a1], a4, a2, a2, a3, n] - S2[SP[a1, a1], a4, a2, a3, a2, n] + 
    S2[SP[a1, a2], a1, a4, a2, a3, n] - S2[SP[a1, a4], a1, a2, a3, a2, n] - 
    2*S2[SP[a1, a4], a1, a3, a2, a2, n] - 
    2*S2[SP[a1, a4], a3, a1, a2, a2, n] - S2[SP[a1, a4], a3, a2, a1, a2, n] + 
    S2[SP[a2, a4], a1, a1, a2, a3, n] + S2[SP[a2, a4], a1, a1, a3, a2, n] + 
    S2[SP[a2, a4], a1, a3, a1, a2, n] + S2[SP[a2, a4], a3, a1, a1, a2, n] - 
    2*S2[a4, a1, a1, a2, a2, a3, n] - S2[a4, a1, a1, a2, a3, a2, n] - 
    S2[a4, a1, a2, a1, a2, a3, n] - S2[a4, a1, a2, a1, a3, a2, n] - 
    S2[a4, a1, a2, a3, a1, a2, n] - S2[a4, a2, a1, a1, a2, a3, n] - 
    S2[a4, a2, a1, a1, a3, a2, n] - S2[a4, a2, a1, a3, a1, a2, n] - 
    S2[a4, a2, a3, a1, a1, a2, n] /; MyMemberQ[{{a1, a2}, {a3, a4}}, 
     {a1, a1, a2, a2, a3, a4}] && a1 != a2 != a3 != a4, 
 S2[a2_, a1_, a1_, a4_, a3_, a2_, n_] :> 
  S2[a1, a1, a2, n]*S2[a2, a3, a4, n] + S2[SP[a1, a2], SP[a1, a3], 
     SP[a2, a4], n] - S2[a1, a2, SP[a1, a3], SP[a2, a4], n] - 
    S2[a1, a2, n]*S2[a1, a4, a3, a2, n] + S2[a1, a4, SP[a1, a3], SP[a2, a2], 
     n] - S2[a1, SP[a1, a2], a3, SP[a2, a4], n] - 
    S2[a1, SP[a1, a2], SP[a2, a3], a4, n] + S2[a1, SP[a1, a4], a3, 
     SP[a2, a2], n] + S2[a1, SP[a1, a4], SP[a2, a3], a2, n] - 
    S2[a2, a1, SP[a1, a3], SP[a2, a4], n] - S2[a2, SP[a1, a3], a1, 
     SP[a2, a4], n] - S2[a2, SP[a1, a3], SP[a1, a4], a2, n] + 
    S2[SP[a1, a1], a4, a3, SP[a2, a2], n] + S2[SP[a1, a1], a4, SP[a2, a3], 
     a2, n] + S2[SP[a1, a1], SP[a2, a4], a3, a2, n] - 
    S2[SP[a1, a2], a1, a3, SP[a2, a4], n] - S2[SP[a1, a2], a1, SP[a2, a3], 
     a4, n] - S2[SP[a1, a2], a3, a1, SP[a2, a4], n] - 
    S2[SP[a1, a2], a3, SP[a1, a4], a2, n] - S2[SP[a1, a2], SP[a1, a3], a2, 
     a4, n] - S2[SP[a1, a2], SP[a1, a3], a4, a2, n] + 
    S2[a4, n]*S2[a1, a1, a2, a3, a2, n] - 
    S2[a2, n]*S2[a1, a1, a2, a3, a4, n] + S2[a1, a1, a2, a3, SP[a2, a4], n] + 
    S2[a1, a1, a2, SP[a3, a4], a2, n] + 2*S2[a4, n]*
     S2[a1, a1, a3, a2, a2, n] - S2[a2, n]*S2[a1, a1, a3, a2, a4, n] + 
    S2[a1, a1, a3, a2, SP[a2, a4], n] - S2[a2, n]*S2[a1, a1, a3, a4, a2, n] - 
    S2[a1, a1, a3, a4, SP[a2, a2], n] - S2[a1, a1, a3, SP[a2, a2], a4, n] + 
    S2[a1, a1, a3, SP[a2, a4], a2, n] + S2[a2, n]*S2[a1, a1, a4, a3, a2, n] - 
    S2[a1, a1, a4, a3, SP[a2, a2], n] - S2[a1, a1, a4, SP[a2, a3], a2, n] - 
    S2[a1, a1, SP[a2, a3], a2, a4, n] - S2[a1, a1, SP[a2, a3], a4, a2, n] + 
    2*S2[a1, a1, SP[a3, a4], a2, a2, n] + S2[a1, a2, a1, a3, SP[a2, a4], n] + 
    S2[a1, a2, a1, SP[a2, a3], a4, n] + S2[a1, a2, a3, a1, SP[a2, a4], n] + 
    S2[a1, a2, a3, SP[a1, a4], a2, n] + S2[a1, a2, SP[a1, a3], a2, a4, n] + 
    S2[a1, a2, SP[a1, a3], a4, a2, n] + 2*S2[a4, n]*
     S2[a1, a3, a1, a2, a2, n] - S2[a2, n]*S2[a1, a3, a1, a2, a4, n] + 
    S2[a1, a3, a1, a2, SP[a2, a4], n] - S2[a2, n]*S2[a1, a3, a1, a4, a2, n] - 
    S2[a1, a3, a1, a4, SP[a2, a2], n] - S2[a1, a3, a1, SP[a2, a2], a4, n] + 
    S2[a1, a3, a1, SP[a2, a4], a2, n] + S2[a4, n]*S2[a1, a3, a2, a1, a2, n] + 
    S2[a1, a3, a2, a1, SP[a2, a4], n] + S2[a1, a3, a2, SP[a1, a4], a2, n] - 
    S2[a2, n]*S2[a1, a3, a4, a1, a2, n] - S2[a1, a3, a4, a1, SP[a2, a2], n] - 
    S2[a1, a3, a4, SP[a1, a2], a2, n] - S2[a1, a3, SP[a1, a2], a2, a4, n] - 
    S2[a1, a3, SP[a1, a2], a4, a2, n] + 2*S2[a1, a3, SP[a1, a4], a2, a2, n] - 
    S2[a1, a4, a1, a3, SP[a2, a2], n] - S2[a1, a4, a1, SP[a2, a3], a2, n] - 
    S2[a1, a4, a3, a1, SP[a2, a2], n] - S2[a1, a4, a3, SP[a1, a2], a2, n] - 
    2*S2[a1, a4, SP[a1, a3], a2, a2, n] - S2[a1, SP[a2, a3], a1, a2, a4, n] - 
    S2[a1, SP[a2, a3], a1, a4, a2, n] - S2[a1, SP[a2, a3], a4, a1, a2, n] + 
    2*S2[a1, SP[a3, a4], a1, a2, a2, n] + S2[a1, SP[a3, a4], a2, a1, a2, n] + 
    S2[a2, a1, a1, a3, SP[a2, a4], n] + S2[a2, a1, a1, SP[a2, a3], a4, n] + 
    S2[a2, a1, a3, a1, SP[a2, a4], n] + S2[a2, a1, a3, SP[a1, a4], a2, n] + 
    S2[a2, a1, SP[a1, a3], a2, a4, n] + S2[a2, a1, SP[a1, a3], a4, a2, n] - 
    S2[a4, n]*S2[a2, a3, a1, a1, a2, n] + S2[a2, SP[a1, a3], a1, a2, a4, n] + 
    S2[a2, SP[a1, a3], a1, a4, a2, n] + S2[a2, SP[a1, a3], a4, a1, a2, n] - 
    S2[a2, SP[a3, a4], a1, a1, a2, n] + S2[a2, n]*S2[a4, a3, a1, a1, a2, n] + 
    S2[a4, a3, a1, a1, SP[a2, a2], n] + S2[a4, a3, a1, SP[a1, a2], a2, n] + 
    S2[a4, a3, SP[a1, a2], a1, a2, n] + S2[a4, SP[a2, a3], a1, a1, a2, n] - 
    S2[SP[a1, a1], a2, a4, a3, a2, n] - S2[SP[a1, a1], a4, a2, a3, a2, n] - 
    2*S2[SP[a1, a1], a4, a3, a2, a2, n] + S2[SP[a1, a2], a1, a4, a3, a2, n] + 
    S2[SP[a1, a4], a1, a2, a3, a2, n] + 2*S2[SP[a1, a4], a1, a3, a2, a2, n] + 
    2*S2[SP[a1, a4], a3, a1, a2, a2, n] + S2[SP[a1, a4], a3, a2, a1, a2, n] - 
    S2[a4, a1, a1, a2, a3, a2, n] - 2*S2[a4, a1, a1, a3, a2, a2, n] - 
    2*S2[a4, a1, a3, a1, a2, a2, n] - S2[a4, a1, a3, a2, a1, a2, n] - 
    2*S2[a4, a3, a1, a1, a2, a2, n] - S2[a4, a3, a1, a2, a1, a2, n] - 
    S2[a4, a3, a2, a1, a1, a2, n] /; MyMemberQ[{{a1, a2}, {a3, a4}}, 
     {a1, a1, a2, a2, a3, a4}] && a1 != a2 != a3 != a4, 
 S2[a2_, a1_, a2_, a1_, a3_, a4_, n_] :> 
  -2*S2[a1, a2, a2, n]*S2[a1, a3, a4, n] - 
    2*S2[SP[a1, a1], SP[a2, a3], SP[a2, a4], n] + 
    2*S2[a3, a4, n]*S2[a1, a1, a2, a2, n] + 
    2*S2[a1, a1, SP[a2, a3], SP[a2, a4], n] + 
    S2[a1, a2, n]*S2[a1, a2, a3, a4, n] + 
    (S2[a1, a2, n]*S2[a1, a2, a4, a3, n])/2 - S2[a1, a2, SP[a1, a3], 
     SP[a2, a4], n] - S2[a1, a2, SP[a1, a4], SP[a2, a3], n]/2 + 
    S2[a1, a2, n]*S2[a1, a3, a2, a4, n] + S2[a1, a2, n]*
     S2[a1, a3, a4, a2, n] - S2[a1, a3, SP[a1, a2], SP[a2, a4], n] - 
    S2[a1, a3, SP[a1, a4], SP[a2, a2], n] + 
    (S2[a1, a2, n]*S2[a1, a4, a2, a3, n])/2 + 
    (S2[a1, a2, n]*S2[a1, a4, a3, a2, n])/2 - 
    S2[a1, a4, SP[a1, a2], SP[a2, a3], n]/2 - 
    S2[a1, a4, SP[a1, a3], SP[a2, a2], n]/2 + S2[a1, SP[a1, a2], a3, 
     SP[a2, a4], n] - S2[a1, SP[a1, a2], a4, SP[a2, a3], n]/2 + 
    S2[a1, SP[a1, a2], SP[a2, a3], a4, n] - 
    S2[a1, SP[a1, a2], SP[a2, a4], a3, n]/2 - S2[a1, SP[a1, a3], a2, 
     SP[a2, a4], n] - S2[a1, SP[a1, a3], a4, SP[a2, a2], n] - 
    S2[a1, SP[a1, a3], SP[a2, a2], a4, n] - S2[a1, SP[a1, a3], SP[a2, a4], 
     a2, n] - S2[a1, SP[a1, a4], a2, SP[a2, a3], n]/2 - 
    S2[a1, SP[a1, a4], a3, SP[a2, a2], n]/2 - 
    S2[a1, SP[a1, a4], SP[a2, a2], a3, n]/2 - 
    S2[a1, SP[a1, a4], SP[a2, a3], a2, n]/2 - 
    (S2[a1, a2, n]*S2[a3, a4, a1, a2, n])/2 + 
    S2[a3, a4, SP[a1, a1], SP[a2, a2], n]/2 + 
    S2[a3, SP[a1, a4], a1, SP[a2, a2], n]/2 + 
    S2[a3, SP[a1, a4], SP[a1, a2], a2, n]/2 + S2[SP[a1, a1], a2, a3, 
     SP[a2, a4], n] - S2[SP[a1, a1], a2, a4, SP[a2, a3], n]/2 + 
    S2[SP[a1, a1], a2, SP[a2, a3], a4, n] - 
    S2[SP[a1, a1], a2, SP[a2, a4], a3, n]/2 + S2[SP[a1, a1], a3, a2, 
     SP[a2, a4], n] - S2[SP[a1, a1], a3, a4, SP[a2, a2], n] - 
    S2[SP[a1, a1], a3, SP[a2, a2], a4, n] + S2[SP[a1, a1], a3, SP[a2, a4], 
     a2, n] - S2[SP[a1, a1], a4, a2, SP[a2, a3], n]/2 - 
    S2[SP[a1, a1], a4, a3, SP[a2, a2], n]/2 - 
    S2[SP[a1, a1], a4, SP[a2, a2], a3, n]/2 - 
    S2[SP[a1, a1], a4, SP[a2, a3], a2, n]/2 - S2[SP[a1, a1], SP[a2, a2], a3, 
     a4, n] - S2[SP[a1, a1], SP[a2, a2], a4, a3, n]/2 + 
    S2[SP[a1, a1], SP[a2, a3], a2, a4, n] + S2[SP[a1, a1], SP[a2, a3], a4, 
     a2, n] - S2[SP[a1, a1], SP[a2, a4], a2, a3, n]/2 - 
    S2[SP[a1, a1], SP[a2, a4], a3, a2, n]/2 - 
    2*S2[SP[a1, a3], a1, a2, SP[a2, a4], n] - 
    2*S2[SP[a1, a3], a1, SP[a2, a4], a2, n] + 
    S2[SP[a1, a3], a4, a1, SP[a2, a2], n]/2 + 
    S2[SP[a1, a3], a4, SP[a1, a2], a2, n]/2 - 
    2*S2[SP[a1, a3], SP[a1, a4], a2, a2, n] + 
    S2[SP[a1, a3], SP[a2, a4], a1, a2, n]/2 - 
    2*S2[a3, n]*S2[a1, a1, a2, a2, a4, n] - 
    2*S2[a1, a1, a2, a2, SP[a3, a4], n] - 
    2*S2[a3, n]*S2[a1, a1, a2, a4, a2, n] - S2[a1, a1, a2, a4, SP[a2, a3], 
     n] - 2*S2[a1, a1, a2, SP[a2, a3], a4, n] + S2[a1, a1, a2, SP[a2, a4], 
     a3, n] - 2*S2[a1, a1, a2, SP[a3, a4], a2, n] + 
    2*S2[a1, a1, a3, a4, SP[a2, a2], n] + 
    2*S2[a1, a1, a3, SP[a2, a2], a4, n] - 
    2*S2[a3, n]*S2[a1, a1, a4, a2, a2, n] - S2[a1, a1, a4, a2, SP[a2, a3], 
     n] + S2[a1, a1, a4, a3, SP[a2, a2], n] + S2[a1, a1, a4, SP[a2, a2], a3, 
     n] - S2[a1, a1, a4, SP[a2, a3], a2, n] + 
    2*S2[a1, a1, SP[a2, a2], a3, a4, n] + S2[a1, a1, SP[a2, a2], a4, a3, n] - 
    2*S2[a1, a1, SP[a2, a3], a2, a4, n] - 
    2*S2[a1, a1, SP[a2, a3], a4, a2, n] + S2[a1, a1, SP[a2, a4], a2, a3, n] + 
    S2[a1, a1, SP[a2, a4], a3, a2, n] - 2*S2[a1, a1, SP[a3, a4], a2, a2, n] - 
    S2[a4, n]*S2[a1, a2, a1, a2, a3, n] - S2[a1, a2, a1, a2, SP[a3, a4], n] - 
    S2[a4, n]*S2[a1, a2, a1, a3, a2, n] + 
    S2[a2, n]*S2[a1, a2, a1, a3, a4, n] - S2[a1, a2, a1, a3, SP[a2, a4], n] + 
    S2[a1, a2, a1, a4, SP[a2, a3], n]/2 - S2[a1, a2, a1, SP[a2, a4], a3, n]/
     2 - S2[a1, a2, a1, SP[a3, a4], a2, n] - 
    S2[a4, n]*S2[a1, a2, a3, a1, a2, n] + 
    (S2[a3, n]*S2[a1, a2, a4, a1, a2, n])/2 + S2[a1, a2, a4, a1, SP[a2, a3], 
     n] + S2[a1, a2, a4, SP[a1, a3], a2, n] - S2[a1, a2, SP[a1, a2], a3, a4, 
     n] + S2[a1, a2, SP[a1, a3], a2, a4, n] + S2[a1, a2, SP[a1, a3], a4, a2, 
     n] - S2[a1, a2, SP[a1, a4], a2, a3, n]/2 - 
    S2[a1, a2, SP[a1, a4], a3, a2, n]/2 - S2[a1, a2, SP[a3, a4], a1, a2, n]/
     2 + S2[a1, a3, a1, a2, SP[a2, a4], n] + S2[a1, a3, a1, a4, SP[a2, a2], 
     n] + S2[a1, a3, a1, SP[a2, a2], a4, n] + S2[a1, a3, a1, SP[a2, a4], a2, 
     n] - S2[a4, n]*S2[a1, a3, a2, a1, a2, n] + 
    S2[a1, a3, a4, a1, SP[a2, a2], n]/2 + S2[a1, a3, a4, SP[a1, a2], a2, n]/
     2 + S2[a1, a3, SP[a1, a2], a2, a4, n] + S2[a1, a3, SP[a1, a2], a4, a2, 
     n] + 2*S2[a1, a3, SP[a1, a4], a2, a2, n] - 
    (3*S2[a1, a3, SP[a2, a4], a1, a2, n])/2 - 
    S2[a3, n]*S2[a1, a4, a1, a2, a2, n] - S2[a1, a4, a1, a2, SP[a2, a3], n]/
     2 + S2[a1, a4, a1, a3, SP[a2, a2], n]/2 + 
    S2[a1, a4, a1, SP[a2, a2], a3, n]/2 - S2[a1, a4, a1, SP[a2, a3], a2, n]/
     2 + (S2[a3, n]*S2[a1, a4, a2, a1, a2, n])/2 + 
    S2[a1, a4, a2, a1, SP[a2, a3], n] + S2[a1, a4, a2, SP[a1, a3], a2, n] + 
    S2[a1, a4, a3, a1, SP[a2, a2], n]/2 + S2[a1, a4, a3, SP[a1, a2], a2, n]/
     2 + S2[a1, a4, SP[a1, a2], a2, a3, n]/2 + 
    S2[a1, a4, SP[a1, a2], a3, a2, n]/2 + S2[a1, a4, SP[a2, a3], a1, a2, n]/
     2 + S2[a1, SP[a1, a2], a2, a4, a3, n] + S2[a1, SP[a1, a2], a4, a2, a3, 
     n] + S2[a1, SP[a1, a2], a4, a3, a2, n] + S2[a1, SP[a1, a4], a2, a2, a3, 
     n] + S2[a1, SP[a1, a4], a2, a3, a2, n] + S2[a1, SP[a1, a4], a3, a2, a2, 
     n] + S2[a1, SP[a2, a2], a1, a3, a4, n] - S2[a1, SP[a2, a4], a1, a2, a3, 
     n] - S2[a1, SP[a2, a4], a1, a3, a2, n] - S2[a1, SP[a2, a4], a3, a1, a2, 
     n] - S2[a1, SP[a3, a4], a1, a2, a2, n] - 
    S2[a1, SP[a3, a4], a2, a1, a2, n]/2 + 
    2*S2[a3, a1, a1, a2, SP[a2, a4], n] + 
    2*S2[a3, a1, a1, SP[a2, a4], a2, n] - S2[a3, a1, a4, a1, SP[a2, a2], n]/
     2 - S2[a3, a1, a4, SP[a1, a2], a2, n]/2 + 
    2*S2[a3, a1, SP[a1, a4], a2, a2, n] - S2[a3, a1, SP[a2, a4], a1, a2, n]/
     2 - S2[a3, a4, a1, a1, SP[a2, a2], n] - S2[a3, a4, a1, SP[a1, a2], a2, 
     n] - S2[a3, a4, SP[a1, a1], a2, a2, n] + S2[a3, SP[a1, a4], a1, a2, a2, 
     n] - S2[a3, SP[a1, a4], a2, a1, a2, n]/2 + 
    S2[a3, n]*S2[a4, a1, a2, a1, a2, n] + S2[a4, a1, a2, a1, SP[a2, a3], n] + 
    S2[a4, a1, a2, SP[a1, a3], a2, n] + S2[a4, a1, SP[a2, a3], a1, a2, n] + 
    S2[a4, SP[a1, a3], a2, a1, a2, n] + S2[SP[a1, a1], a2, a2, a4, a3, n] + 
    S2[SP[a1, a1], a2, a4, a2, a3, n] + S2[SP[a1, a1], a2, a4, a3, a2, n] + 
    S2[SP[a1, a1], a4, a2, a2, a3, n] + S2[SP[a1, a1], a4, a2, a3, a2, n] + 
    S2[SP[a1, a1], a4, a3, a2, a2, n] + S2[SP[a1, a2], a2, a1, a3, a4, n] - 
    S2[SP[a1, a4], a2, a1, a2, a3, n] - S2[SP[a1, a4], a2, a1, a3, a2, n] - 
    S2[SP[a1, a4], a2, a3, a1, a2, n] - S2[SP[a1, a4], a3, a2, a1, a2, n] + 
    S2[SP[a3, a4], a1, a2, a1, a2, n] - S2[a4, a3, a1, a2, a1, a2, n] /; 
   MyMemberQ[{{a1, a2}, {a3, a4}}, {a1, a1, a2, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a2_, a1_, a2_, a1_, a4_, a3_, n_] :> 
  -2*S2[a1, a2, a2, n]*S2[a1, a4, a3, n] - 
    2*S2[SP[a1, a1], SP[a2, a4], SP[a2, a3], n] - 
    2*S2[a3, a4, n]*S2[a1, a1, a2, a2, n] + 
    2*S2[a1, a1, SP[a2, a3], SP[a2, a4], n] + 
    4*S2[a1, a1, SP[a2, a4], SP[a2, a3], n] + 
    (S2[a1, a2, n]*S2[a1, a2, a4, a3, n])/2 - 
    S2[a1, a2, SP[a1, a4], SP[a2, a3], n]/2 + 
    (S2[a1, a2, n]*S2[a1, a4, a2, a3, n])/2 + 
    (S2[a1, a2, n]*S2[a1, a4, a3, a2, n])/2 - 
    S2[a1, a4, SP[a1, a2], SP[a2, a3], n]/2 - 
    S2[a1, a4, SP[a1, a3], SP[a2, a2], n]/2 + 
    (3*S2[a1, SP[a1, a2], a4, SP[a2, a3], n])/2 + 
    (3*S2[a1, SP[a1, a2], SP[a2, a4], a3, n])/2 + 
    2*S2[a1, SP[a1, a3], a2, SP[a2, a4], n] + 
    2*S2[a1, SP[a1, a3], SP[a2, a4], a2, n] + 
    (3*S2[a1, SP[a1, a4], a2, SP[a2, a3], n])/2 - 
    S2[a1, SP[a1, a4], a3, SP[a2, a2], n]/2 - 
    S2[a1, SP[a1, a4], SP[a2, a2], a3, n]/2 + 
    (3*S2[a1, SP[a1, a4], SP[a2, a3], a2, n])/2 + 
    (S2[a1, a2, n]*S2[a3, a4, a1, a2, n])/2 - 
    S2[a3, a4, SP[a1, a1], SP[a2, a2], n]/2 - 
    S2[a3, SP[a1, a4], a1, SP[a2, a2], n]/2 - 
    S2[a3, SP[a1, a4], SP[a1, a2], a2, n]/2 + 
    (3*S2[SP[a1, a1], a2, a4, SP[a2, a3], n])/2 + 
    (3*S2[SP[a1, a1], a2, SP[a2, a4], a3, n])/2 + 
    (3*S2[SP[a1, a1], a4, a2, SP[a2, a3], n])/2 - 
    S2[SP[a1, a1], a4, a3, SP[a2, a2], n]/2 - 
    S2[SP[a1, a1], a4, SP[a2, a2], a3, n]/2 + 
    (3*S2[SP[a1, a1], a4, SP[a2, a3], a2, n])/2 - 
    S2[SP[a1, a1], SP[a2, a2], a4, a3, n]/2 + 
    (3*S2[SP[a1, a1], SP[a2, a4], a2, a3, n])/2 + 
    (3*S2[SP[a1, a1], SP[a2, a4], a3, a2, n])/2 + 
    2*S2[SP[a1, a3], a1, a2, SP[a2, a4], n] + 
    2*S2[SP[a1, a3], a1, SP[a2, a4], a2, n] - 
    S2[SP[a1, a3], a4, a1, SP[a2, a2], n]/2 - 
    S2[SP[a1, a3], a4, SP[a1, a2], a2, n]/2 + 
    2*S2[SP[a1, a3], SP[a1, a4], a2, a2, n] - 
    S2[SP[a1, a3], SP[a2, a4], a1, a2, n]/2 + 
    2*S2[a3, n]*S2[a1, a1, a2, a2, a4, n] + 
    2*S2[a1, a1, a2, a2, SP[a3, a4], n] - 
    2*S2[a1, a1, a2, a3, SP[a2, a4], n] + 
    2*S2[a3, n]*S2[a1, a1, a2, a4, a2, n] - S2[a1, a1, a2, a4, SP[a2, a3], 
     n] - 3*S2[a1, a1, a2, SP[a2, a4], a3, n] + 
    2*S2[a1, a1, a2, SP[a3, a4], a2, n] - 
    2*S2[a1, a1, a3, a2, SP[a2, a4], n] - 
    2*S2[a1, a1, a3, SP[a2, a4], a2, n] + 
    2*S2[a3, n]*S2[a1, a1, a4, a2, a2, n] - S2[a1, a1, a4, a2, SP[a2, a3], 
     n] + S2[a1, a1, a4, a3, SP[a2, a2], n] + S2[a1, a1, a4, SP[a2, a2], a3, 
     n] - S2[a1, a1, a4, SP[a2, a3], a2, n] + S2[a1, a1, SP[a2, a2], a4, a3, 
     n] - 3*S2[a1, a1, SP[a2, a4], a2, a3, n] - 
    3*S2[a1, a1, SP[a2, a4], a3, a2, n] + 
    2*S2[a1, a1, SP[a3, a4], a2, a2, n] + 
    S2[a2, n]*S2[a1, a2, a1, a4, a3, n] - S2[a1, a2, a1, a4, SP[a2, a3], n]/
     2 - S2[a1, a2, a1, SP[a2, a4], a3, n]/2 - 
    (S2[a3, n]*S2[a1, a2, a4, a1, a2, n])/2 - S2[a1, a2, SP[a1, a2], a4, a3, 
     n] + S2[a1, a2, SP[a1, a4], a2, a3, n]/2 + 
    S2[a1, a2, SP[a1, a4], a3, a2, n]/2 - S2[a1, a2, SP[a3, a4], a1, a2, n]/
     2 - 2*S2[a1, a3, a1, a2, SP[a2, a4], n] - 
    2*S2[a1, a3, a1, SP[a2, a4], a2, n] + S2[a1, a3, a4, a1, SP[a2, a2], n]/
     2 + S2[a1, a3, a4, SP[a1, a2], a2, n]/2 - 
    2*S2[a1, a3, SP[a1, a4], a2, a2, n] + S2[a1, a3, SP[a2, a4], a1, a2, n]/
     2 + S2[a3, n]*S2[a1, a4, a1, a2, a2, n] - 
    S2[a1, a4, a1, a2, SP[a2, a3], n]/2 + S2[a1, a4, a1, a3, SP[a2, a2], n]/
     2 + S2[a1, a4, a1, SP[a2, a2], a3, n]/2 - 
    S2[a1, a4, a1, SP[a2, a3], a2, n]/2 - 
    (S2[a3, n]*S2[a1, a4, a2, a1, a2, n])/2 + 
    S2[a1, a4, a3, a1, SP[a2, a2], n]/2 + S2[a1, a4, a3, SP[a1, a2], a2, n]/
     2 + S2[a1, a4, SP[a1, a2], a2, a3, n]/2 + 
    S2[a1, a4, SP[a1, a2], a3, a2, n]/2 - S2[a1, a4, SP[a2, a3], a1, a2, n]/
     2 - S2[a1, SP[a1, a2], a2, a4, a3, n] - S2[a1, SP[a1, a2], a4, a2, a3, 
     n] - S2[a1, SP[a1, a2], a4, a3, a2, n] - S2[a1, SP[a1, a4], a2, a2, a3, 
     n] - S2[a1, SP[a1, a4], a2, a3, a2, n] - S2[a1, SP[a1, a4], a3, a2, a2, 
     n] + S2[a1, SP[a2, a2], a1, a4, a3, n] + S2[a1, SP[a3, a4], a1, a2, a2, 
     n] - S2[a1, SP[a3, a4], a2, a1, a2, n]/2 - 
    2*S2[a3, a1, a1, a2, SP[a2, a4], n] - 
    2*S2[a3, a1, a1, SP[a2, a4], a2, n] + S2[a3, a1, a4, a1, SP[a2, a2], n]/
     2 + S2[a3, a1, a4, SP[a1, a2], a2, n]/2 - 
    2*S2[a3, a1, SP[a1, a4], a2, a2, n] + S2[a3, a1, SP[a2, a4], a1, a2, n]/
     2 + S2[a3, a4, a1, a1, SP[a2, a2], n] + S2[a3, a4, a1, SP[a1, a2], a2, 
     n] + S2[a3, a4, SP[a1, a1], a2, a2, n] - S2[a3, SP[a1, a4], a1, a2, a2, 
     n] + S2[a3, SP[a1, a4], a2, a1, a2, n]/2 - 
    S2[a3, n]*S2[a4, a1, a2, a1, a2, n] - S2[a4, a1, a2, a1, SP[a2, a3], n] - 
    S2[a4, a1, a2, SP[a1, a3], a2, n] - S2[a4, a1, SP[a2, a3], a1, a2, n] - 
    S2[a4, SP[a1, a3], a2, a1, a2, n] - S2[SP[a1, a1], a2, a2, a4, a3, n] - 
    S2[SP[a1, a1], a2, a4, a2, a3, n] - S2[SP[a1, a1], a2, a4, a3, a2, n] - 
    S2[SP[a1, a1], a4, a2, a2, a3, n] - S2[SP[a1, a1], a4, a2, a3, a2, n] - 
    S2[SP[a1, a1], a4, a3, a2, a2, n] + S2[SP[a1, a2], a2, a1, a4, a3, n] - 
    S2[SP[a3, a4], a1, a2, a1, a2, n] + S2[a4, a1, a2, a1, a2, a3, n] + 
    S2[a4, a1, a2, a1, a3, a2, n] + S2[a4, a1, a2, a3, a1, a2, n] + 
    S2[a4, a1, a3, a2, a1, a2, n] + S2[a4, a3, a1, a2, a1, a2, n] /; 
   MyMemberQ[{{a1, a2}, {a3, a4}}, {a1, a1, a2, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a2_, a1_, a2_, a3_, a1_, a4_, n_] :> 
  2*S2[a1, a2, a2, n]*S2[a1, a3, a4, n] + 2*S2[a1, a2, a2, n]*
     S2[a1, a4, a3, n] + 2*S2[SP[a1, a1], SP[a2, a3], SP[a2, a4], n] + 
    2*S2[SP[a1, a1], SP[a2, a4], SP[a2, a3], n] - 
    4*S2[a1, a1, SP[a2, a3], SP[a2, a4], n] - 
    4*S2[a1, a1, SP[a2, a4], SP[a2, a3], n] - 2*S2[a1, a4, n]*
     S2[a1, a2, a2, a3, n] - S2[a1, a4, n]*S2[a1, a2, a3, a2, n] + 
    2*S2[a1, a2, SP[a1, a2], SP[a3, a4], n] + S2[a1, a2, SP[a1, a3], 
     SP[a2, a4], n] - S2[a1, a2, n]*S2[a1, a3, a2, a4, n] - 
    S2[a1, a2, n]*S2[a1, a3, a4, a2, n] + S2[a1, a3, SP[a1, a2], SP[a2, a4], 
     n] + S2[a1, a3, SP[a1, a4], SP[a2, a2], n] - 
    S2[a1, a2, n]*S2[a1, a4, a3, a2, n] + S2[a1, a4, SP[a1, a3], SP[a2, a2], 
     n] + 2*S2[a1, SP[a1, a2], a2, SP[a3, a4], n] - 
    S2[a1, SP[a1, a2], a3, SP[a2, a4], n] - 
    2*S2[a1, SP[a1, a2], a4, SP[a2, a3], n] - 
    2*S2[a1, SP[a1, a2], SP[a2, a3], a4, n] + S2[a1, SP[a1, a2], SP[a3, a4], 
     a2, n] - S2[a1, SP[a1, a3], a2, SP[a2, a4], n] + 
    S2[a1, SP[a1, a3], a4, SP[a2, a2], n] + S2[a1, SP[a1, a3], SP[a2, a2], 
     a4, n] - S2[a1, SP[a1, a3], SP[a2, a4], a2, n] - 
    2*S2[a1, SP[a1, a4], a2, SP[a2, a3], n] + S2[a1, SP[a1, a4], a3, 
     SP[a2, a2], n] - S2[a1, SP[a1, a4], SP[a2, a3], a2, n] + 
    2*S2[SP[a1, a1], a2, a2, SP[a3, a4], n] - S2[SP[a1, a1], a2, a3, 
     SP[a2, a4], n] - 2*S2[SP[a1, a1], a2, a4, SP[a2, a3], n] - 
    2*S2[SP[a1, a1], a2, SP[a2, a3], a4, n] + S2[SP[a1, a1], a2, SP[a3, a4], 
     a2, n] - S2[SP[a1, a1], a3, a2, SP[a2, a4], n] + 
    S2[SP[a1, a1], a3, a4, SP[a2, a2], n] + S2[SP[a1, a1], a3, SP[a2, a2], 
     a4, n] - S2[SP[a1, a1], a3, SP[a2, a4], a2, n] - 
    2*S2[SP[a1, a1], a4, a2, SP[a2, a3], n] + S2[SP[a1, a1], a4, a3, 
     SP[a2, a2], n] - S2[SP[a1, a1], a4, SP[a2, a3], a2, n] - 
    S2[SP[a1, a1], SP[a2, a3], a2, a4, n] - S2[SP[a1, a1], SP[a2, a3], a4, 
     a2, n] - 4*S2[a1, a1, a2, a2, SP[a3, a4], n] + 
    2*S2[a1, a1, a2, a3, SP[a2, a4], n] + 
    4*S2[a1, a1, a2, a4, SP[a2, a3], n] + 
    4*S2[a1, a1, a2, SP[a2, a3], a4, n] - 
    2*S2[a1, a1, a2, SP[a3, a4], a2, n] + 
    2*S2[a1, a1, a3, a2, SP[a2, a4], n] - 
    2*S2[a1, a1, a3, a4, SP[a2, a2], n] - 
    2*S2[a1, a1, a3, SP[a2, a2], a4, n] + 
    2*S2[a1, a1, a3, SP[a2, a4], a2, n] + 
    4*S2[a1, a1, a4, a2, SP[a2, a3], n] - 
    2*S2[a1, a1, a4, a3, SP[a2, a2], n] + 
    2*S2[a1, a1, a4, SP[a2, a3], a2, n] + 
    2*S2[a1, a1, SP[a2, a3], a2, a4, n] + 
    2*S2[a1, a1, SP[a2, a3], a4, a2, n] - 
    2*S2[a1, a2, a1, a2, SP[a3, a4], n] + S2[a1, a2, a1, a3, SP[a2, a4], n] + 
    2*S2[a1, a2, a1, a4, SP[a2, a3], n] + 
    2*S2[a1, a2, a1, SP[a2, a3], a4, n] - S2[a1, a2, a1, SP[a3, a4], a2, n] - 
    2*S2[a1, a2, a2, a1, SP[a3, a4], n] - 
    2*S2[a1, a2, a2, SP[a1, a3], a4, n] + 
    S2[a2, n]*S2[a1, a2, a3, a1, a4, n] - S2[a1, a2, SP[a1, a3], a2, a4, n] - 
    S2[a1, a2, SP[a1, a3], a4, a2, n] + S2[a1, a2, SP[a2, a3], a1, a4, n] + 
    S2[a1, a3, a1, a2, SP[a2, a4], n] - S2[a1, a3, a1, a4, SP[a2, a2], n] - 
    S2[a1, a3, a1, SP[a2, a2], a4, n] + S2[a1, a3, a1, SP[a2, a4], a2, n] + 
    S2[a4, n]*S2[a1, a3, a2, a1, a2, n] - S2[a1, a3, a4, a1, SP[a2, a2], n] - 
    S2[a1, a3, a4, SP[a1, a2], a2, n] - S2[a1, a3, SP[a1, a2], a2, a4, n] - 
    S2[a1, a3, SP[a1, a2], a4, a2, n] + S2[a1, a3, SP[a2, a4], a1, a2, n] + 
    2*S2[a1, a4, a1, a2, SP[a2, a3], n] - S2[a1, a4, a1, a3, SP[a2, a2], n] + 
    S2[a1, a4, a1, SP[a2, a3], a2, n] - S2[a1, a4, a3, a1, SP[a2, a2], n] - 
    S2[a1, a4, a3, SP[a1, a2], a2, n] + S2[a1, SP[a2, a2], a3, a1, a4, n] + 
    S2[a1, SP[a3, a4], a2, a1, a2, n] + S2[SP[a1, a2], a2, a3, a1, a4, n] + 
    S2[SP[a1, a4], a3, a2, a1, a2, n] - S2[a4, a1, a3, a2, a1, a2, n] /; 
   MyMemberQ[{{a1, a2}, {a3, a4}}, {a1, a1, a2, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a2_, a1_, a2_, a3_, a4_, a1_, n_] :> 
  -2*S2[a1, a2, a2, n]*S2[a1, a4, a3, n] - 
    2*S2[SP[a1, a1], SP[a2, a4], SP[a2, a3], n] + 
    4*S2[a1, a1, SP[a2, a4], SP[a2, a3], n] + 2*S2[a1, a4, n]*
     S2[a1, a2, a2, a3, n] + S2[a1, a4, n]*S2[a1, a2, a3, a2, n] - 
    2*S2[a1, a2, SP[a1, a2], SP[a3, a4], n] - S2[a1, a2, SP[a1, a3], 
     SP[a2, a4], n] + S2[a1, a2, n]*S2[a1, a4, a3, a2, n] - 
    S2[a1, a4, SP[a1, a3], SP[a2, a2], n] - 
    2*S2[a1, SP[a1, a2], a2, SP[a3, a4], n] - S2[a1, SP[a1, a2], a3, 
     SP[a2, a4], n] + 2*S2[a1, SP[a1, a2], a4, SP[a2, a3], n] - 
    S2[a1, SP[a1, a2], SP[a3, a4], a2, n] + 
    2*S2[a1, SP[a1, a4], a2, SP[a2, a3], n] - S2[a1, SP[a1, a4], a3, 
     SP[a2, a2], n] + S2[a1, SP[a1, a4], SP[a2, a3], a2, n] - 
    2*S2[SP[a1, a1], a2, a2, SP[a3, a4], n] - S2[SP[a1, a1], a2, a3, 
     SP[a2, a4], n] + 2*S2[SP[a1, a1], a2, a4, SP[a2, a3], n] - 
    S2[SP[a1, a1], a2, SP[a3, a4], a2, n] + 
    2*S2[SP[a1, a1], a4, a2, SP[a2, a3], n] - S2[SP[a1, a1], a4, a3, 
     SP[a2, a2], n] + S2[SP[a1, a1], a4, SP[a2, a3], a2, n] + 
    4*S2[a1, a1, a2, a2, SP[a3, a4], n] - 
    2*S2[a2, n]*S2[a1, a1, a2, a3, a4, n] - 
    4*S2[a1, a1, a2, a4, SP[a2, a3], n] - 
    2*S2[a1, a1, a2, SP[a2, a3], a4, n] + 
    2*S2[a1, a1, a2, SP[a3, a4], a2, n] - 
    4*S2[a1, a1, a4, a2, SP[a2, a3], n] + 
    2*S2[a1, a1, a4, a3, SP[a2, a2], n] - 
    2*S2[a1, a1, a4, SP[a2, a3], a2, n] - 
    2*S2[a1, a1, SP[a2, a2], a3, a4, n] + 
    2*S2[a1, a2, a1, a2, SP[a3, a4], n] - 
    S2[a2, n]*S2[a1, a2, a1, a3, a4, n] - 
    2*S2[a1, a2, a1, a4, SP[a2, a3], n] - S2[a1, a2, a1, SP[a2, a3], a4, n] + 
    S2[a1, a2, a1, SP[a3, a4], a2, n] + 2*S2[a1, a2, a2, a1, SP[a3, a4], n] + 
    2*S2[a1, a2, a2, SP[a1, a3], a4, n] - 
    S2[a2, n]*S2[a1, a2, a3, a1, a4, n] + S2[a1, a2, SP[a1, a2], a3, a4, n] + 
    S2[a1, a2, SP[a1, a3], a2, a4, n] + S2[a1, a2, SP[a1, a3], a4, a2, n] - 
    S2[a1, a2, SP[a2, a3], a1, a4, n] - 2*S2[a1, a4, a1, a2, SP[a2, a3], n] + 
    S2[a1, a4, a1, a3, SP[a2, a2], n] - S2[a1, a4, a1, SP[a2, a3], a2, n] + 
    S2[a1, a4, a3, a1, SP[a2, a2], n] + S2[a1, a4, a3, SP[a1, a2], a2, n] + 
    S2[a1, SP[a1, a2], a3, a2, a4, n] + S2[a1, SP[a1, a2], a3, a4, a2, n] - 
    S2[a1, SP[a2, a2], a1, a3, a4, n] - S2[a1, SP[a2, a2], a3, a1, a4, n] + 
    S2[a1, n]*S2[a2, a1, a2, a3, a4, n] + S2[a2, a1, a2, a3, SP[a1, a4], n] + 
    S2[a2, a1, a2, SP[a1, a3], a4, n] + S2[a2, a1, SP[a1, a2], a3, a4, n] + 
    S2[a2, SP[a1, a1], a2, a3, a4, n] - S2[a1, n]*S2[a4, a3, a2, a1, a2, n] - 
    S2[a4, a3, a2, a1, SP[a1, a2], n] - S2[a4, a3, a2, SP[a1, a1], a2, n] - 
    S2[a4, a3, SP[a1, a2], a1, a2, n] - S2[a4, SP[a1, a3], a2, a1, a2, n] + 
    2*S2[SP[a1, a1], a2, a2, a3, a4, n] + S2[SP[a1, a1], a2, a3, a2, a4, n] + 
    S2[SP[a1, a1], a2, a3, a4, a2, n] - S2[SP[a1, a2], a1, a2, a3, a4, n] - 
    S2[SP[a1, a2], a2, a1, a3, a4, n] - S2[SP[a1, a2], a2, a3, a1, a4, n] - 
    S2[SP[a1, a4], a3, a2, a1, a2, n] + S2[a4, a1, a3, a2, a1, a2, n] + 
    S2[a4, a3, a1, a2, a1, a2, n] + 2*S2[a4, a3, a2, a1, a1, a2, n] + 
    S2[a4, a3, a2, a1, a2, a1, n] /; MyMemberQ[{{a1, a2}, {a3, a4}}, 
     {a1, a1, a2, a2, a3, a4}] && a1 != a2 != a3 != a4, 
 S2[a2_, a1_, a2_, a4_, a1_, a3_, n_] :> 
  2*S2[a1, a2, a2, n]*S2[a1, a3, a4, n] + 2*S2[a1, a2, a2, n]*
     S2[a1, a4, a3, n] + 2*S2[SP[a1, a1], SP[a2, a3], SP[a2, a4], n] + 
    2*S2[SP[a1, a1], SP[a2, a4], SP[a2, a3], n] - 
    4*S2[a1, a1, SP[a2, a3], SP[a2, a4], n] - 
    4*S2[a1, a1, SP[a2, a4], SP[a2, a3], n] - 
    2*S2[a1, SP[a1, a2], a3, SP[a2, a4], n] - 
    2*S2[a1, SP[a1, a2], a4, SP[a2, a3], n] - 
    2*S2[a1, SP[a1, a2], SP[a2, a3], a4, n] - 
    2*S2[a1, SP[a1, a2], SP[a2, a4], a3, n] - 
    2*S2[a1, SP[a1, a3], a2, SP[a2, a4], n] - 
    2*S2[a1, SP[a1, a3], SP[a2, a4], a2, n] - 
    2*S2[a1, SP[a1, a4], a2, SP[a2, a3], n] - 
    2*S2[a1, SP[a1, a4], SP[a2, a3], a2, n] - 
    S2[a1, a2, n]*S2[a2, a4, a1, a3, n] + S2[a2, a4, SP[a1, a1], SP[a2, a3], 
     n] + S2[a2, SP[a1, a4], a1, SP[a2, a3], n] + 
    S2[a2, SP[a1, a4], SP[a1, a2], a3, n] - 
    2*S2[SP[a1, a1], a2, a3, SP[a2, a4], n] - 
    2*S2[SP[a1, a1], a2, a4, SP[a2, a3], n] - 
    2*S2[SP[a1, a1], a2, SP[a2, a3], a4, n] - 
    2*S2[SP[a1, a1], a2, SP[a2, a4], a3, n] - 
    2*S2[SP[a1, a1], a3, a2, SP[a2, a4], n] - 
    2*S2[SP[a1, a1], a3, SP[a2, a4], a2, n] - 
    2*S2[SP[a1, a1], a4, a2, SP[a2, a3], n] - 
    2*S2[SP[a1, a1], a4, SP[a2, a3], a2, n] - 
    2*S2[SP[a1, a1], SP[a2, a3], a2, a4, n] - 
    2*S2[SP[a1, a1], SP[a2, a3], a4, a2, n] - 
    2*S2[SP[a1, a1], SP[a2, a4], a2, a3, n] - 
    2*S2[SP[a1, a1], SP[a2, a4], a3, a2, n] + S2[SP[a1, a2], a4, a1, 
     SP[a2, a3], n] + S2[SP[a1, a2], a4, SP[a1, a2], a3, n] + 
    S2[SP[a1, a2], SP[a2, a4], a1, a3, n] - 
    4*S2[a4, n]*S2[a1, a1, a2, a2, a3, n] - 
    4*S2[a1, a1, a2, a2, SP[a3, a4], n] - 
    4*S2[a4, n]*S2[a1, a1, a2, a3, a2, n] + 
    4*S2[a1, a1, a2, a4, SP[a2, a3], n] + 
    4*S2[a1, a1, a2, SP[a2, a3], a4, n] - 
    4*S2[a1, a1, a2, SP[a3, a4], a2, n] - 
    4*S2[a4, n]*S2[a1, a1, a3, a2, a2, n] + 
    4*S2[a1, a1, a4, a2, SP[a2, a3], n] + 
    4*S2[a1, a1, a4, SP[a2, a3], a2, n] + 
    4*S2[a1, a1, SP[a2, a3], a2, a4, n] + 
    4*S2[a1, a1, SP[a2, a3], a4, a2, n] - 
    4*S2[a1, a1, SP[a3, a4], a2, a2, n] - 
    2*S2[a4, n]*S2[a1, a2, a1, a2, a3, n] - 
    2*S2[a1, a2, a1, a2, SP[a3, a4], n] - 
    2*S2[a4, n]*S2[a1, a2, a1, a3, a2, n] + 
    2*S2[a1, a2, a1, a4, SP[a2, a3], n] + 
    2*S2[a1, a2, a1, SP[a2, a3], a4, n] - 
    2*S2[a1, a2, a1, SP[a3, a4], a2, n] - 
    2*S2[a4, n]*S2[a1, a2, a2, a1, a3, n] - 
    2*S2[a1, a2, a2, a1, SP[a3, a4], n] - 
    2*S2[a1, a2, a2, SP[a1, a4], a3, n] + 
    2*S2[a2, n]*S2[a1, a2, a4, a1, a3, n] + S2[a1, a2, a4, a1, SP[a2, a3], 
     n] + S2[a1, a2, a4, SP[a1, a2], a3, n] + 
    2*S2[a1, a2, SP[a1, a2], a3, a4, n] + 
    2*S2[a1, a2, SP[a1, a2], a4, a3, n] - 
    2*S2[a1, a2, SP[a1, a4], a2, a3, n] - 
    2*S2[a1, a2, SP[a1, a4], a3, a2, n] - S2[a1, a2, SP[a2, a4], a1, a3, n] - 
    2*S2[a4, n]*S2[a1, a3, a1, a2, a2, n] + 
    S2[a2, n]*S2[a1, a4, a1, a2, a3, n] + 
    3*S2[a1, a4, a1, a2, SP[a2, a3], n] + 
    S2[a2, n]*S2[a1, a4, a1, a3, a2, n] + S2[a1, a4, a1, a3, SP[a2, a2], n] + 
    S2[a1, a4, a1, SP[a2, a2], a3, n] + 3*S2[a1, a4, a1, SP[a2, a3], a2, n] + 
    S2[a2, n]*S2[a1, a4, a2, a1, a3, n] + S2[a1, a4, a2, a1, SP[a2, a3], n] + 
    S2[a1, a4, a2, SP[a1, a2], a3, n] + S2[a1, a4, SP[a1, a2], a2, a3, n] + 
    S2[a1, a4, SP[a1, a2], a3, a2, n] + 2*S2[a1, a4, SP[a1, a3], a2, a2, n] + 
    S2[a1, a4, SP[a2, a2], a1, a3, n] + 2*S2[a1, SP[a1, a2], a2, a3, a4, n] + 
    2*S2[a1, SP[a1, a2], a2, a4, a3, n] + 
    2*S2[a1, SP[a1, a2], a3, a2, a4, n] + 
    2*S2[a1, SP[a1, a2], a3, a4, a2, n] + 
    2*S2[a1, SP[a1, a2], a4, a2, a3, n] + 
    2*S2[a1, SP[a1, a2], a4, a3, a2, n] + 
    2*S2[a1, SP[a1, a3], a2, a2, a4, n] + 
    2*S2[a1, SP[a1, a3], a2, a4, a2, n] + 
    2*S2[a1, SP[a1, a3], a4, a2, a2, n] - 
    2*S2[a1, SP[a1, a4], a2, a2, a3, n] - 
    2*S2[a1, SP[a1, a4], a2, a3, a2, n] - 
    2*S2[a1, SP[a1, a4], a3, a2, a2, n] + S2[a1, SP[a2, a2], a4, a1, a3, n] - 
    S2[a1, SP[a2, a4], a1, a2, a3, n] - S2[a1, SP[a2, a4], a1, a3, a2, n] - 
    S2[a1, SP[a2, a4], a2, a1, a3, n] - 2*S2[a1, SP[a3, a4], a1, a2, a2, n] - 
    S2[a2, a1, a4, a1, SP[a2, a3], n] - S2[a2, a1, a4, SP[a1, a2], a3, n] - 
    S2[a2, a1, SP[a2, a4], a1, a3, n] - 2*S2[a2, a4, a1, a1, SP[a2, a3], n] - 
    S2[a2, a4, a1, SP[a1, a2], a3, n] - S2[a2, a4, a1, SP[a1, a3], a2, n] - 
    S2[a2, a4, SP[a1, a1], a2, a3, n] - S2[a2, a4, SP[a1, a1], a3, a2, n] - 
    S2[a2, SP[a1, a4], a1, a2, a3, n] - S2[a2, SP[a1, a4], a1, a3, a2, n] - 
    S2[a2, SP[a1, a4], a2, a1, a3, n] + 2*S2[a2, n]*
     S2[a4, a1, a1, a2, a3, n] + 2*S2[a4, a1, a1, a2, SP[a2, a3], n] + 
    2*S2[a2, n]*S2[a4, a1, a1, a3, a2, n] + 
    2*S2[a4, a1, a1, a3, SP[a2, a2], n] + 
    2*S2[a4, a1, a1, SP[a2, a2], a3, n] + 
    2*S2[a4, a1, a1, SP[a2, a3], a2, n] + 
    S2[a2, n]*S2[a4, a1, a2, a1, a3, n] + S2[a4, a1, a2, a1, SP[a2, a3], n] + 
    S2[a4, a1, a2, SP[a1, a2], a3, n] + S2[a2, n]*S2[a4, a1, a3, a1, a2, n] + 
    S2[a4, a1, a3, a1, SP[a2, a2], n] + S2[a4, a1, a3, SP[a1, a2], a2, n] + 
    2*S2[a4, a1, SP[a1, a2], a2, a3, n] + 
    2*S2[a4, a1, SP[a1, a2], a3, a2, n] + S2[a4, a1, SP[a2, a2], a1, a3, n] + 
    S2[a4, a1, SP[a2, a3], a1, a2, n] + 2*S2[a4, SP[a1, a2], a1, a2, a3, n] + 
    2*S2[a4, SP[a1, a2], a1, a3, a2, n] + S2[a4, SP[a1, a2], a2, a1, a3, n] + 
    S2[a4, SP[a1, a2], a3, a1, a2, n] + 2*S2[SP[a1, a1], a2, a2, a3, a4, n] + 
    2*S2[SP[a1, a1], a2, a2, a4, a3, n] + 
    2*S2[SP[a1, a1], a2, a3, a2, a4, n] + 
    2*S2[SP[a1, a1], a2, a3, a4, a2, n] + 
    2*S2[SP[a1, a1], a2, a4, a2, a3, n] + 
    2*S2[SP[a1, a1], a2, a4, a3, a2, n] + 
    2*S2[SP[a1, a1], a3, a2, a2, a4, n] + 
    2*S2[SP[a1, a1], a3, a2, a4, a2, n] + 
    2*S2[SP[a1, a1], a3, a4, a2, a2, n] + 
    2*S2[SP[a1, a1], a4, a2, a2, a3, n] + 
    2*S2[SP[a1, a1], a4, a2, a3, a2, n] + 
    2*S2[SP[a1, a1], a4, a3, a2, a2, n] + S2[SP[a1, a2], a2, a4, a1, a3, n] - 
    4*S2[SP[a1, a4], a1, a2, a2, a3, n] - 
    4*S2[SP[a1, a4], a1, a2, a3, a2, n] - 
    4*S2[SP[a1, a4], a1, a3, a2, a2, n] - 
    2*S2[SP[a1, a4], a2, a1, a2, a3, n] - 
    2*S2[SP[a1, a4], a2, a1, a3, a2, n] - 
    2*S2[SP[a1, a4], a2, a2, a1, a3, n] - 
    2*S2[SP[a1, a4], a3, a1, a2, a2, n] + 
    2*S2[SP[a2, a4], a1, a1, a2, a3, n] + 
    2*S2[SP[a2, a4], a1, a1, a3, a2, n] + S2[SP[a2, a4], a1, a2, a1, a3, n] + 
    S2[SP[a2, a4], a1, a3, a1, a2, n] - S2[a4, a1, a2, a1, a2, a3, n] - 
    S2[a4, a1, a2, a1, a3, a2, n] - S2[a4, a1, a2, a3, a1, a2, n] - 
    S2[a4, a1, a3, a2, a1, a2, n] - 2*S2[a4, a2, a1, a1, a2, a3, n] - 
    2*S2[a4, a2, a1, a1, a3, a2, n] - S2[a4, a2, a1, a2, a1, a3, n] - 
    S2[a4, a2, a1, a3, a1, a2, n] /; MyMemberQ[{{a1, a2}, {a3, a4}}, 
     {a1, a1, a2, a2, a3, a4}] && a1 != a2 != a3 != a4, 
 S2[a2_, a1_, a2_, a4_, a3_, a1_, n_] :> 
  -2*S2[a1, a2, a2, n]*S2[a1, a3, a4, n] - 
    2*S2[SP[a1, a1], SP[a2, a3], SP[a2, a4], n] + 
    4*S2[a1, a1, SP[a2, a3], SP[a2, a4], n] - 
    S2[a1, a2, n]*S2[a1, a4, a2, a3, n] - S2[a1, a2, n]*
     S2[a1, a4, a3, a2, n] + S2[a1, a4, SP[a1, a2], SP[a2, a3], n] + 
    S2[a1, a4, SP[a1, a3], SP[a2, a2], n] + 
    2*S2[a1, SP[a1, a2], a3, SP[a2, a4], n] + 
    2*S2[a1, SP[a1, a2], SP[a2, a3], a4, n] + 
    2*S2[a1, SP[a1, a3], a2, SP[a2, a4], n] + 
    2*S2[a1, SP[a1, a3], SP[a2, a4], a2, n] + S2[a1, SP[a1, a4], a2, 
     SP[a2, a3], n] + S2[a1, SP[a1, a4], a3, SP[a2, a2], n] + 
    S2[a1, SP[a1, a4], SP[a2, a2], a3, n] + S2[a1, SP[a1, a4], SP[a2, a3], 
     a2, n] + S2[a1, a2, n]*S2[a2, a4, a1, a3, n] - 
    S2[a2, a4, SP[a1, a1], SP[a2, a3], n] - S2[a2, SP[a1, a4], a1, 
     SP[a2, a3], n] - S2[a2, SP[a1, a4], SP[a1, a2], a3, n] + 
    2*S2[SP[a1, a1], a2, a3, SP[a2, a4], n] + 
    2*S2[SP[a1, a1], a2, SP[a2, a3], a4, n] + 
    2*S2[SP[a1, a1], a3, a2, SP[a2, a4], n] + 
    2*S2[SP[a1, a1], a3, SP[a2, a4], a2, n] + S2[SP[a1, a1], a4, a2, 
     SP[a2, a3], n] + S2[SP[a1, a1], a4, a3, SP[a2, a2], n] + 
    S2[SP[a1, a1], a4, SP[a2, a2], a3, n] + S2[SP[a1, a1], a4, SP[a2, a3], 
     a2, n] + 2*S2[SP[a1, a1], SP[a2, a3], a2, a4, n] + 
    2*S2[SP[a1, a1], SP[a2, a3], a4, a2, n] + S2[SP[a1, a1], SP[a2, a4], a2, 
     a3, n] + S2[SP[a1, a1], SP[a2, a4], a3, a2, n] - 
    S2[SP[a1, a2], a4, a1, SP[a2, a3], n] - S2[SP[a1, a2], a4, SP[a1, a2], 
     a3, n] - S2[SP[a1, a2], SP[a2, a4], a1, a3, n] + 
    4*S2[a4, n]*S2[a1, a1, a2, a2, a3, n] + 
    4*S2[a1, a1, a2, a2, SP[a3, a4], n] + 
    4*S2[a4, n]*S2[a1, a1, a2, a3, a2, n] - 
    2*S2[a2, n]*S2[a1, a1, a2, a4, a3, n] - 
    2*S2[a1, a1, a2, a4, SP[a2, a3], n] - 
    4*S2[a1, a1, a2, SP[a2, a3], a4, n] + 
    2*S2[a1, a1, a2, SP[a2, a4], a3, n] + 
    4*S2[a1, a1, a2, SP[a3, a4], a2, n] + 
    4*S2[a4, n]*S2[a1, a1, a3, a2, a2, n] - 
    2*S2[a1, a1, a4, a2, SP[a2, a3], n] - 
    2*S2[a1, a1, a4, a3, SP[a2, a2], n] - 
    2*S2[a1, a1, a4, SP[a2, a2], a3, n] - 
    2*S2[a1, a1, a4, SP[a2, a3], a2, n] - 
    2*S2[a1, a1, SP[a2, a2], a4, a3, n] - 
    4*S2[a1, a1, SP[a2, a3], a2, a4, n] - 
    4*S2[a1, a1, SP[a2, a3], a4, a2, n] + 
    2*S2[a1, a1, SP[a2, a4], a2, a3, n] + 
    2*S2[a1, a1, SP[a2, a4], a3, a2, n] + 
    4*S2[a1, a1, SP[a3, a4], a2, a2, n] + 
    2*S2[a4, n]*S2[a1, a2, a1, a2, a3, n] + 
    2*S2[a1, a2, a1, a2, SP[a3, a4], n] + 
    2*S2[a4, n]*S2[a1, a2, a1, a3, a2, n] - 
    S2[a2, n]*S2[a1, a2, a1, a4, a3, n] - S2[a1, a2, a1, a4, SP[a2, a3], n] - 
    2*S2[a1, a2, a1, SP[a2, a3], a4, n] + S2[a1, a2, a1, SP[a2, a4], a3, n] + 
    2*S2[a1, a2, a1, SP[a3, a4], a2, n] + 
    2*S2[a4, n]*S2[a1, a2, a2, a1, a3, n] + 
    2*S2[a1, a2, a2, a1, SP[a3, a4], n] + 
    2*S2[a1, a2, a2, SP[a1, a4], a3, n] - 
    2*S2[a2, n]*S2[a1, a2, a4, a1, a3, n] - S2[a1, a2, a4, a1, SP[a2, a3], 
     n] - S2[a1, a2, a4, SP[a1, a2], a3, n] - 
    2*S2[a1, a2, SP[a1, a2], a3, a4, n] - S2[a1, a2, SP[a1, a2], a4, a3, n] + 
    2*S2[a1, a2, SP[a1, a4], a2, a3, n] + 
    2*S2[a1, a2, SP[a1, a4], a3, a2, n] + S2[a1, a2, SP[a2, a4], a1, a3, n] + 
    2*S2[a4, n]*S2[a1, a3, a1, a2, a2, n] - 
    S2[a2, n]*S2[a1, a4, a1, a2, a3, n] - 
    2*S2[a1, a4, a1, a2, SP[a2, a3], n] - 
    S2[a2, n]*S2[a1, a4, a1, a3, a2, n] - 
    2*S2[a1, a4, a1, a3, SP[a2, a2], n] - 
    2*S2[a1, a4, a1, SP[a2, a2], a3, n] - 
    2*S2[a1, a4, a1, SP[a2, a3], a2, n] - 
    S2[a2, n]*S2[a1, a4, a2, a1, a3, n] - 
    2*S2[a1, a4, a2, a1, SP[a2, a3], n] - S2[a1, a4, a2, SP[a1, a2], a3, n] - 
    S2[a1, a4, a2, SP[a1, a3], a2, n] - S2[a1, a4, a3, a1, SP[a2, a2], n] - 
    S2[a1, a4, a3, SP[a1, a2], a2, n] - 2*S2[a1, a4, SP[a1, a2], a2, a3, n] - 
    2*S2[a1, a4, SP[a1, a2], a3, a2, n] - 
    2*S2[a1, a4, SP[a1, a3], a2, a2, n] - S2[a1, a4, SP[a2, a2], a1, a3, n] - 
    2*S2[a1, SP[a1, a2], a2, a3, a4, n] - 
    2*S2[a1, SP[a1, a2], a2, a4, a3, n] - 
    2*S2[a1, SP[a1, a2], a3, a2, a4, n] - 
    2*S2[a1, SP[a1, a2], a3, a4, a2, n] - S2[a1, SP[a1, a2], a4, a2, a3, n] - 
    S2[a1, SP[a1, a2], a4, a3, a2, n] - 2*S2[a1, SP[a1, a3], a2, a2, a4, n] - 
    2*S2[a1, SP[a1, a3], a2, a4, a2, n] - 
    2*S2[a1, SP[a1, a3], a4, a2, a2, n] + 
    2*S2[a1, SP[a1, a4], a2, a2, a3, n] + 
    2*S2[a1, SP[a1, a4], a2, a3, a2, n] + 
    2*S2[a1, SP[a1, a4], a3, a2, a2, n] - S2[a1, SP[a2, a2], a1, a4, a3, n] - 
    S2[a1, SP[a2, a2], a4, a1, a3, n] + S2[a1, SP[a2, a4], a1, a2, a3, n] + 
    S2[a1, SP[a2, a4], a1, a3, a2, n] + S2[a1, SP[a2, a4], a2, a1, a3, n] + 
    2*S2[a1, SP[a3, a4], a1, a2, a2, n] + 
    S2[a1, n]*S2[a2, a1, a2, a4, a3, n] + S2[a2, a1, a2, a4, SP[a1, a3], n] + 
    S2[a2, a1, a2, SP[a1, a4], a3, n] + S2[a2, a1, a4, a1, SP[a2, a3], n] + 
    S2[a2, a1, a4, SP[a1, a2], a3, n] + S2[a2, a1, SP[a1, a2], a4, a3, n] + 
    S2[a2, a1, SP[a2, a4], a1, a3, n] + 2*S2[a2, a4, a1, a1, SP[a2, a3], n] + 
    S2[a2, a4, a1, SP[a1, a2], a3, n] + S2[a2, a4, a1, SP[a1, a3], a2, n] + 
    S2[a2, a4, SP[a1, a1], a2, a3, n] + S2[a2, a4, SP[a1, a1], a3, a2, n] + 
    S2[a2, SP[a1, a1], a2, a4, a3, n] + S2[a2, SP[a1, a4], a1, a2, a3, n] + 
    S2[a2, SP[a1, a4], a1, a3, a2, n] + S2[a2, SP[a1, a4], a2, a1, a3, n] - 
    2*S2[a2, n]*S2[a4, a1, a1, a2, a3, n] - 
    2*S2[a4, a1, a1, a2, SP[a2, a3], n] - 
    2*S2[a2, n]*S2[a4, a1, a1, a3, a2, n] - 
    2*S2[a4, a1, a1, a3, SP[a2, a2], n] - 
    2*S2[a4, a1, a1, SP[a2, a2], a3, n] - 
    2*S2[a4, a1, a1, SP[a2, a3], a2, n] - 
    S2[a2, n]*S2[a4, a1, a2, a1, a3, n] - S2[a4, a1, a2, a1, SP[a2, a3], n] - 
    S2[a4, a1, a2, SP[a1, a2], a3, n] - S2[a2, n]*S2[a4, a1, a3, a1, a2, n] - 
    S2[a4, a1, a3, a1, SP[a2, a2], n] - S2[a4, a1, a3, SP[a1, a2], a2, n] - 
    2*S2[a4, a1, SP[a1, a2], a2, a3, n] - 
    2*S2[a4, a1, SP[a1, a2], a3, a2, n] - S2[a4, a1, SP[a2, a2], a1, a3, n] - 
    S2[a4, a1, SP[a2, a3], a1, a2, n] + S2[a1, n]*S2[a4, a2, a1, a2, a3, n] + 
    S2[a4, a2, a1, a2, SP[a1, a3], n] + S2[a1, n]*S2[a4, a2, a1, a3, a2, n] + 
    S2[a4, a2, a1, a3, SP[a1, a2], n] + S2[a4, a2, a1, SP[a1, a2], a3, n] + 
    S2[a4, a2, a1, SP[a1, a3], a2, n] + S2[a1, n]*S2[a4, a2, a3, a1, a2, n] + 
    S2[a4, a2, a3, a1, SP[a1, a2], n] + S2[a4, a2, a3, SP[a1, a1], a2, n] + 
    S2[a4, a2, SP[a1, a1], a2, a3, n] + S2[a4, a2, SP[a1, a1], a3, a2, n] + 
    S2[a4, a2, SP[a1, a3], a1, a2, n] + S2[a1, n]*S2[a4, a3, a2, a1, a2, n] + 
    S2[a4, a3, a2, a1, SP[a1, a2], n] + S2[a4, a3, a2, SP[a1, a1], a2, n] + 
    S2[a4, a3, SP[a1, a2], a1, a2, n] - S2[a4, SP[a1, a2], a1, a2, a3, n] - 
    S2[a4, SP[a1, a2], a1, a3, a2, n] - S2[a4, SP[a1, a2], a2, a1, a3, n] + 
    S2[a4, SP[a1, a3], a2, a1, a2, n] - 2*S2[SP[a1, a1], a2, a2, a3, a4, n] - 
    2*S2[SP[a1, a1], a2, a3, a2, a4, n] - 
    2*S2[SP[a1, a1], a2, a3, a4, a2, n] - S2[SP[a1, a1], a2, a4, a2, a3, n] - 
    S2[SP[a1, a1], a2, a4, a3, a2, n] - 2*S2[SP[a1, a1], a3, a2, a2, a4, n] - 
    2*S2[SP[a1, a1], a3, a2, a4, a2, n] - 
    2*S2[SP[a1, a1], a3, a4, a2, a2, n] - 
    2*S2[SP[a1, a1], a4, a2, a2, a3, n] - 
    2*S2[SP[a1, a1], a4, a2, a3, a2, n] - 
    2*S2[SP[a1, a1], a4, a3, a2, a2, n] - S2[SP[a1, a2], a1, a2, a4, a3, n] - 
    S2[SP[a1, a2], a2, a1, a4, a3, n] - S2[SP[a1, a2], a2, a4, a1, a3, n] + 
    4*S2[SP[a1, a4], a1, a2, a2, a3, n] + 
    4*S2[SP[a1, a4], a1, a2, a3, a2, n] + 
    4*S2[SP[a1, a4], a1, a3, a2, a2, n] + 
    3*S2[SP[a1, a4], a2, a1, a2, a3, n] + 
    3*S2[SP[a1, a4], a2, a1, a3, a2, n] + 
    2*S2[SP[a1, a4], a2, a2, a1, a3, n] + S2[SP[a1, a4], a2, a3, a1, a2, n] + 
    2*S2[SP[a1, a4], a3, a1, a2, a2, n] + S2[SP[a1, a4], a3, a2, a1, a2, n] - 
    2*S2[SP[a2, a4], a1, a1, a2, a3, n] - 
    2*S2[SP[a2, a4], a1, a1, a3, a2, n] - S2[SP[a2, a4], a1, a2, a1, a3, n] - 
    S2[SP[a2, a4], a1, a3, a1, a2, n] - S2[a4, a2, a1, a2, a3, a1, n] - 
    S2[a4, a2, a1, a3, a1, a2, n] - S2[a4, a2, a1, a3, a2, a1, n] - 
    2*S2[a4, a2, a3, a1, a1, a2, n] - S2[a4, a2, a3, a1, a2, a1, n] - 
    S2[a4, a3, a1, a2, a1, a2, n] - 2*S2[a4, a3, a2, a1, a1, a2, n] - 
    S2[a4, a3, a2, a1, a2, a1, n] /; MyMemberQ[{{a1, a2}, {a3, a4}}, 
     {a1, a1, a2, a2, a3, a4}] && a1 != a2 != a3 != a4, 
 S2[a2_, a1_, a3_, a1_, a2_, a4_, n_] :> 
  -(S2[a1, a2, a3, n]*S2[a1, a2, a4, n]) - S2[a1, a2, a4, n]*
     S2[a1, a3, a2, n] - S2[SP[a1, a1], SP[a2, a2], SP[a3, a4], n] - 
    S2[SP[a1, a1], SP[a2, a3], SP[a2, a4], n] + 
    2*S2[a2, a4, n]*S2[a1, a1, a2, a3, n] + 2*S2[a2, a4, n]*
     S2[a1, a1, a3, a2, n] + S2[a2, a4, n]*S2[a1, a2, a1, a3, n] + 
    S2[a1, a2, n]*S2[a1, a2, a3, a4, n] + S2[a1, a2, n]*
     S2[a1, a2, a4, a3, n] - S2[a1, a2, SP[a1, a2], SP[a3, a4], n] - 
    S2[a1, a2, SP[a1, a3], SP[a2, a4], n] - S2[a1, a2, SP[a1, a4], 
     SP[a2, a3], n] + S2[a1, a2, n]*S2[a1, a3, a2, a4, n] + 
    S2[a1, a2, n]*S2[a1, a3, a4, a2, n] - S2[a1, a3, SP[a1, a2], SP[a2, a4], 
     n] - S2[a1, a3, SP[a1, a4], SP[a2, a2], n] + 
    S2[a1, a2, n]*S2[a1, a4, a2, a3, n] + S2[a1, a2, n]*
     S2[a1, a4, a3, a2, n] - S2[a1, a4, SP[a1, a2], SP[a2, a3], n] - 
    S2[a1, a4, SP[a1, a3], SP[a2, a2], n] - 
    2*S2[a1, SP[a1, a2], a3, SP[a2, a4], n] - S2[a1, SP[a1, a2], a4, 
     SP[a2, a3], n] - 2*S2[a1, SP[a1, a2], SP[a2, a4], a3, n] - 
    S2[a1, SP[a1, a2], SP[a3, a4], a2, n] - S2[a1, SP[a1, a3], a4, 
     SP[a2, a2], n] - S2[a1, SP[a1, a3], SP[a2, a4], a2, n] - 
    S2[a1, SP[a1, a4], a2, SP[a2, a3], n] - S2[a1, SP[a1, a4], a3, 
     SP[a2, a2], n] - S2[a1, SP[a1, a4], SP[a2, a2], a3, n] - 
    S2[a1, SP[a1, a4], SP[a2, a3], a2, n] - S2[a1, SP[a2, a2], a1, 
     SP[a3, a4], n] - S2[a1, SP[a2, a2], SP[a1, a4], a3, n] - 
    S2[a1, a2, n]*S2[a2, a4, a1, a3, n] + S2[a2, a4, SP[a1, a1], SP[a2, a3], 
     n] + S2[a2, SP[a1, a4], a1, SP[a2, a3], n] + 
    S2[a2, SP[a1, a4], SP[a1, a2], a3, n] + 
    2*S2[SP[a1, a1], a2, a2, SP[a3, a4], n] - S2[SP[a1, a1], a2, a4, 
     SP[a2, a3], n] + S2[SP[a1, a1], a2, SP[a3, a4], a2, n] - 
    S2[SP[a1, a1], a3, a4, SP[a2, a2], n] - S2[SP[a1, a1], a3, SP[a2, a4], 
     a2, n] - S2[SP[a1, a1], a4, a2, SP[a2, a3], n] - 
    S2[SP[a1, a1], a4, a3, SP[a2, a2], n] - S2[SP[a1, a1], a4, SP[a2, a2], 
     a3, n] - S2[SP[a1, a1], a4, SP[a2, a3], a2, n] - 
    S2[SP[a1, a1], SP[a2, a4], a2, a3, n] - S2[SP[a1, a1], SP[a2, a4], a3, 
     a2, n] - 2*S2[SP[a1, a2], a1, a2, SP[a3, a4], n] - 
    2*S2[SP[a1, a2], a1, a3, SP[a2, a4], n] - 
    2*S2[SP[a1, a2], a1, SP[a2, a4], a3, n] - 
    2*S2[SP[a1, a2], a1, SP[a3, a4], a2, n] - S2[SP[a1, a2], a2, a1, 
     SP[a3, a4], n] - S2[SP[a1, a2], a2, SP[a1, a4], a3, n] + 
    S2[SP[a1, a2], a4, a1, SP[a2, a3], n] + S2[SP[a1, a2], a4, SP[a1, a2], 
     a3, n] - 2*S2[SP[a1, a2], SP[a1, a4], a2, a3, n] - 
    2*S2[SP[a1, a2], SP[a1, a4], a3, a2, n] - 
    2*S2[a2, n]*S2[a1, a1, a2, a3, a4, n] - 
    2*S2[a2, n]*S2[a1, a1, a2, a4, a3, n] - 
    2*S2[a2, n]*S2[a1, a1, a3, a2, a4, n] - 
    2*S2[a2, n]*S2[a1, a1, a3, a4, a2, n] - 
    2*S2[a2, n]*S2[a1, a1, a4, a2, a3, n] - 
    2*S2[a2, n]*S2[a1, a1, a4, a3, a2, n] + S2[a1, a2, a1, a2, SP[a3, a4], 
     n] - S2[a2, n]*S2[a1, a2, a1, a3, a4, n] + S2[a1, a2, a1, a3, 
     SP[a2, a4], n] - S2[a2, n]*S2[a1, a2, a1, a4, a3, n] + 
    S2[a1, a2, a1, SP[a2, a4], a3, n] + S2[a1, a2, a1, SP[a3, a4], a2, n] + 
    2*S2[a1, a2, a2, a1, SP[a3, a4], n] + 
    2*S2[a1, a2, a2, SP[a1, a4], a3, n] - 
    S2[a4, n]*S2[a1, a2, a3, a1, a2, n] - S2[a1, a2, a4, SP[a1, a2], a3, n] + 
    S2[a1, a2, a4, SP[a1, a3], a2, n] + S2[a1, a2, SP[a1, a3], a4, a2, n] + 
    2*S2[a1, a2, SP[a1, a4], a2, a3, n] + 
    2*S2[a1, a2, SP[a1, a4], a3, a2, n] - S2[a1, a2, SP[a3, a4], a1, a2, n] - 
    2*S2[a4, n]*S2[a1, a3, a1, a2, a2, n] + 
    S2[a2, n]*S2[a1, a3, a1, a2, a4, n] - S2[a1, a3, a1, a2, SP[a2, a4], n] + 
    S2[a1, a3, a1, a4, SP[a2, a2], n] + S2[a1, a3, a1, SP[a2, a2], a4, n] - 
    S2[a1, a3, a1, SP[a2, a4], a2, n] - S2[a4, n]*S2[a1, a3, a2, a1, a2, n] + 
    S2[a1, a3, a4, a1, SP[a2, a2], n] + S2[a1, a3, a4, SP[a1, a2], a2, n] + 
    S2[a1, a3, SP[a1, a2], a2, a4, n] + S2[a1, a3, SP[a1, a2], a4, a2, n] - 
    S2[a1, a3, SP[a2, a4], a1, a2, n] - S2[a2, n]*S2[a1, a4, a1, a2, a3, n] - 
    S2[a2, n]*S2[a1, a4, a1, a3, a2, n] + S2[a1, a4, a2, a1, SP[a2, a3], n] + 
    S2[a1, a4, a2, SP[a1, a3], a2, n] + S2[a1, a4, a3, a1, SP[a2, a2], n] + 
    S2[a1, a4, a3, SP[a1, a2], a2, n] + 2*S2[a1, a4, SP[a1, a3], a2, a2, n] + 
    S2[a1, SP[a1, a2], a3, a4, a2, n] + S2[a1, SP[a1, a2], a4, a2, a3, n] + 
    S2[a1, SP[a1, a2], a4, a3, a2, n] + S2[a1, SP[a1, a3], a2, a4, a2, n] + 
    2*S2[a1, SP[a1, a3], a4, a2, a2, n] + 
    2*S2[a1, SP[a1, a4], a2, a2, a3, n] + 
    2*S2[a1, SP[a1, a4], a2, a3, a2, n] + 
    2*S2[a1, SP[a1, a4], a3, a2, a2, n] + S2[a1, SP[a2, a3], a1, a2, a4, n] - 
    S2[a1, SP[a2, a4], a1, a2, a3, n] - S2[a1, SP[a2, a4], a1, a3, a2, n] - 
    S2[a1, SP[a2, a4], a3, a1, a2, n] - 2*S2[a1, SP[a3, a4], a1, a2, a2, n] - 
    S2[a1, SP[a3, a4], a2, a1, a2, n] + 2*S2[a2, a1, a1, a2, SP[a3, a4], n] + 
    2*S2[a2, a1, a1, a3, SP[a2, a4], n] + 
    2*S2[a2, a1, a1, SP[a2, a4], a3, n] + 
    2*S2[a2, a1, a1, SP[a3, a4], a2, n] + S2[a2, a1, a2, a1, SP[a3, a4], n] + 
    S2[a2, a1, a2, SP[a1, a4], a3, n] - S2[a2, a1, a4, a1, SP[a2, a3], n] - 
    S2[a2, a1, a4, SP[a1, a2], a3, n] + 2*S2[a2, a1, SP[a1, a4], a2, a3, n] + 
    2*S2[a2, a1, SP[a1, a4], a3, a2, n] - 
    2*S2[a2, a4, a1, a1, SP[a2, a3], n] - S2[a2, a4, a1, SP[a1, a2], a3, n] - 
    S2[a2, a4, a1, SP[a1, a3], a2, n] - S2[a2, a4, SP[a1, a1], a2, a3, n] - 
    S2[a2, a4, SP[a1, a1], a3, a2, n] + S2[a2, SP[a1, a4], a1, a2, a3, n] + 
    S2[a2, SP[a1, a4], a1, a3, a2, n] + S2[a2, n]*S2[a4, a1, a3, a1, a2, n] + 
    S2[a4, a1, a3, a1, SP[a2, a2], n] + S2[a4, a1, a3, SP[a1, a2], a2, n] + 
    S2[a4, a1, SP[a2, a3], a1, a2, n] + S2[a4, SP[a1, a2], a3, a1, a2, n] + 
    S2[SP[a1, a1], a2, a3, a4, a2, n] + S2[SP[a1, a1], a2, a4, a2, a3, n] + 
    S2[SP[a1, a1], a2, a4, a3, a2, n] + S2[SP[a1, a1], a3, a2, a4, a2, n] + 
    2*S2[SP[a1, a1], a3, a4, a2, a2, n] + 
    2*S2[SP[a1, a1], a4, a2, a2, a3, n] + 
    2*S2[SP[a1, a1], a4, a2, a3, a2, n] + 
    2*S2[SP[a1, a1], a4, a3, a2, a2, n] + S2[SP[a1, a2], a3, a1, a2, a4, n] - 
    S2[SP[a1, a4], a2, a3, a1, a2, n] - 2*S2[SP[a1, a4], a3, a1, a2, a2, n] - 
    S2[SP[a1, a4], a3, a2, a1, a2, n] + S2[SP[a2, a4], a1, a3, a1, a2, n] - 
    S2[a4, a2, a1, a3, a1, a2, n] /; MyMemberQ[{{a1, a2}, {a3, a4}}, 
     {a1, a1, a2, a2, a3, a4}] && a1 != a2 != a3 != a4, 
 S2[a2_, a1_, a3_, a1_, a4_, a2_, n_] :> 
  -(S2[a1, a2, a3, n]*S2[a1, a4, a2, n]) - S2[a1, a3, a2, n]*
     S2[a1, a4, a2, n] - S2[SP[a1, a1], SP[a2, a4], SP[a2, a3], n] - 
    S2[SP[a1, a1], SP[a3, a4], SP[a2, a2], n] - 
    2*S2[a2, a4, n]*S2[a1, a1, a2, a3, n] - 2*S2[a2, a4, n]*
     S2[a1, a1, a3, a2, n] + 2*S2[a1, a1, SP[a2, a2], SP[a3, a4], n] + 
    2*S2[a1, a1, SP[a2, a3], SP[a2, a4], n] + 
    2*S2[a1, a1, SP[a2, a4], SP[a2, a3], n] + 
    2*S2[a1, a1, SP[a3, a4], SP[a2, a2], n] - 
    S2[a2, a4, n]*S2[a1, a2, a1, a3, n] + S2[a1, a2, SP[a1, a2], SP[a3, a4], 
     n] + 2*S2[a1, SP[a1, a2], a2, SP[a3, a4], n] + 
    2*S2[a1, SP[a1, a2], a3, SP[a2, a4], n] + S2[a1, SP[a1, a2], a4, 
     SP[a2, a3], n] + 2*S2[a1, SP[a1, a2], SP[a2, a4], a3, n] + 
    3*S2[a1, SP[a1, a2], SP[a3, a4], a2, n] + S2[a1, SP[a1, a3], a4, 
     SP[a2, a2], n] + S2[a1, SP[a1, a3], SP[a2, a4], a2, n] + 
    S2[a1, SP[a1, a4], a2, SP[a2, a3], n] + S2[a1, SP[a1, a4], a3, 
     SP[a2, a2], n] + S2[a1, SP[a1, a4], SP[a2, a2], a3, n] + 
    S2[a1, SP[a1, a4], SP[a2, a3], a2, n] + S2[a1, SP[a2, a2], a1, 
     SP[a3, a4], n] + S2[a1, SP[a2, a2], SP[a1, a4], a3, n] + 
    S2[a1, a2, n]*S2[a2, a4, a1, a3, n] - S2[a2, a4, SP[a1, a1], SP[a2, a3], 
     n] - S2[a2, SP[a1, a4], a1, SP[a2, a3], n] - 
    S2[a2, SP[a1, a4], SP[a1, a2], a3, n] + S2[SP[a1, a1], a2, a4, 
     SP[a2, a3], n] + S2[SP[a1, a1], a2, SP[a3, a4], a2, n] + 
    S2[SP[a1, a1], a3, a4, SP[a2, a2], n] + S2[SP[a1, a1], a3, SP[a2, a4], 
     a2, n] + S2[SP[a1, a1], a4, a2, SP[a2, a3], n] + 
    S2[SP[a1, a1], a4, a3, SP[a2, a2], n] + S2[SP[a1, a1], a4, SP[a2, a2], 
     a3, n] + S2[SP[a1, a1], a4, SP[a2, a3], a2, n] + 
    S2[SP[a1, a1], SP[a2, a4], a2, a3, n] + S2[SP[a1, a1], SP[a2, a4], a3, 
     a2, n] + 2*S2[SP[a1, a1], SP[a3, a4], a2, a2, n] + 
    2*S2[SP[a1, a2], a1, a2, SP[a3, a4], n] + 
    2*S2[SP[a1, a2], a1, a3, SP[a2, a4], n] + 
    2*S2[SP[a1, a2], a1, SP[a2, a4], a3, n] + 
    2*S2[SP[a1, a2], a1, SP[a3, a4], a2, n] + S2[SP[a1, a2], a2, a1, 
     SP[a3, a4], n] + S2[SP[a1, a2], a2, SP[a1, a4], a3, n] - 
    S2[SP[a1, a2], a4, a1, SP[a2, a3], n] - S2[SP[a1, a2], a4, SP[a1, a2], 
     a3, n] + 2*S2[SP[a1, a2], SP[a1, a4], a2, a3, n] + 
    2*S2[SP[a1, a2], SP[a1, a4], a3, a2, n] - 
    4*S2[a1, a1, a2, a2, SP[a3, a4], n] + 
    2*S2[a2, n]*S2[a1, a1, a2, a3, a4, n] + 
    2*S2[a2, n]*S2[a1, a1, a2, a4, a3, n] - 
    4*S2[a1, a1, a2, SP[a3, a4], a2, n] + 
    2*S2[a2, n]*S2[a1, a1, a3, a2, a4, n] + 
    2*S2[a2, n]*S2[a1, a1, a3, a4, a2, n] + 
    2*S2[a2, n]*S2[a1, a1, a4, a2, a3, n] + 
    2*S2[a2, n]*S2[a1, a1, a4, a3, a2, n] - 
    4*S2[a1, a1, SP[a3, a4], a2, a2, n] - 
    3*S2[a1, a2, a1, a2, SP[a3, a4], n] + 
    S2[a2, n]*S2[a1, a2, a1, a3, a4, n] - S2[a1, a2, a1, a3, SP[a2, a4], n] + 
    S2[a2, n]*S2[a1, a2, a1, a4, a3, n] - S2[a1, a2, a1, SP[a2, a4], a3, n] - 
    3*S2[a1, a2, a1, SP[a3, a4], a2, n] - 
    2*S2[a1, a2, a2, a1, SP[a3, a4], n] - 
    2*S2[a1, a2, a2, SP[a1, a4], a3, n] + S2[a1, a2, a4, a1, SP[a2, a3], n] + 
    S2[a1, a2, a4, SP[a1, a2], a3, n] - S2[a1, a2, SP[a1, a3], a4, a2, n] - 
    2*S2[a1, a2, SP[a1, a4], a2, a3, n] - 
    2*S2[a1, a2, SP[a1, a4], a3, a2, n] + 
    S2[a2, n]*S2[a1, a3, a1, a4, a2, n] + 
    S2[a2, n]*S2[a1, a4, a1, a2, a3, n] + 
    S2[a2, n]*S2[a1, a4, a1, a3, a2, n] - S2[a1, SP[a1, a2], a3, a4, a2, n] - 
    S2[a1, SP[a1, a2], a4, a2, a3, n] - S2[a1, SP[a1, a2], a4, a3, a2, n] - 
    S2[a1, SP[a1, a3], a2, a4, a2, n] - 2*S2[a1, SP[a1, a3], a4, a2, a2, n] - 
    2*S2[a1, SP[a1, a4], a2, a2, a3, n] - 
    2*S2[a1, SP[a1, a4], a2, a3, a2, n] - 
    2*S2[a1, SP[a1, a4], a3, a2, a2, n] + S2[a1, SP[a2, a3], a1, a4, a2, n] + 
    S2[a1, SP[a2, a4], a1, a2, a3, n] + S2[a1, SP[a2, a4], a1, a3, a2, n] - 
    2*S2[a2, a1, a1, a2, SP[a3, a4], n] - 
    2*S2[a2, a1, a1, a3, SP[a2, a4], n] - 
    2*S2[a2, a1, a1, SP[a2, a4], a3, n] - 
    2*S2[a2, a1, a1, SP[a3, a4], a2, n] - S2[a2, a1, a2, a1, SP[a3, a4], n] - 
    S2[a2, a1, a2, SP[a1, a4], a3, n] + S2[a2, a1, a4, a1, SP[a2, a3], n] + 
    S2[a2, a1, a4, SP[a1, a2], a3, n] - 2*S2[a2, a1, SP[a1, a4], a2, a3, n] - 
    2*S2[a2, a1, SP[a1, a4], a3, a2, n] + 
    2*S2[a2, a4, a1, a1, SP[a2, a3], n] + S2[a2, a4, a1, SP[a1, a2], a3, n] + 
    S2[a2, a4, a1, SP[a1, a3], a2, n] + S2[a2, a4, SP[a1, a1], a2, a3, n] + 
    S2[a2, a4, SP[a1, a1], a3, a2, n] - S2[a2, SP[a1, a4], a1, a2, a3, n] - 
    S2[a2, SP[a1, a4], a1, a3, a2, n] - S2[a2, n]*S2[a4, a1, a3, a1, a2, n] - 
    S2[a4, a1, a3, a1, SP[a2, a2], n] - S2[a4, a1, a3, SP[a1, a2], a2, n] - 
    S2[a4, a1, SP[a2, a3], a1, a2, n] - S2[a4, SP[a1, a2], a3, a1, a2, n] - 
    S2[SP[a1, a1], a2, a3, a4, a2, n] - S2[SP[a1, a1], a2, a4, a2, a3, n] - 
    S2[SP[a1, a1], a2, a4, a3, a2, n] - S2[SP[a1, a1], a3, a2, a4, a2, n] - 
    2*S2[SP[a1, a1], a3, a4, a2, a2, n] - 
    2*S2[SP[a1, a1], a4, a2, a2, a3, n] - 
    2*S2[SP[a1, a1], a4, a2, a3, a2, n] - 
    2*S2[SP[a1, a1], a4, a3, a2, a2, n] + S2[SP[a1, a2], a3, a1, a4, a2, n] - 
    S2[SP[a2, a4], a1, a3, a1, a2, n] + S2[a4, a1, a2, a3, a1, a2, n] + 
    2*S2[a4, a1, a3, a1, a2, a2, n] + S2[a4, a1, a3, a2, a1, a2, n] + 
    S2[a4, a2, a1, a3, a1, a2, n] /; MyMemberQ[{{a1, a2}, {a3, a4}}, 
     {a1, a1, a2, a2, a3, a4}] && a1 != a2 != a3 != a4, 
 S2[a2_, a1_, a3_, a2_, a1_, a4_, n_] :> 
  S2[a1, a2, a3, n]*S2[a1, a2, a4, n] + S2[a1, a2, a4, n]*S2[a1, a3, a2, n] + 
    S2[a1, a2, a3, n]*S2[a1, a4, a2, n] + S2[a1, a3, a2, n]*
     S2[a1, a4, a2, n] + S2[SP[a1, a1], SP[a2, a2], SP[a3, a4], n] + 
    S2[SP[a1, a1], SP[a2, a3], SP[a2, a4], n] + S2[SP[a1, a1], SP[a2, a4], 
     SP[a2, a3], n] + S2[SP[a1, a1], SP[a3, a4], SP[a2, a2], n] - 
    2*S2[a1, a1, SP[a2, a2], SP[a3, a4], n] - 
    2*S2[a1, a1, SP[a2, a3], SP[a2, a4], n] - 
    2*S2[a1, a1, SP[a2, a4], SP[a2, a3], n] - 
    2*S2[a1, a1, SP[a3, a4], SP[a2, a2], n] - 
    S2[a1, a4, n]*S2[a1, a2, a3, a2, n] - S2[a1, a2, n]*
     S2[a1, a2, a3, a4, n] - S2[a1, a2, n]*S2[a1, a2, a4, a3, n] + 
    2*S2[a1, a2, SP[a1, a3], SP[a2, a4], n] + S2[a1, a2, SP[a1, a4], 
     SP[a2, a3], n] - 2*S2[a1, a4, n]*S2[a1, a3, a2, a2, n] + 
    2*S2[a1, a3, SP[a1, a2], SP[a2, a4], n] - 
    S2[a1, a2, n]*S2[a1, a4, a2, a3, n] + S2[a1, a4, SP[a1, a2], SP[a2, a3], 
     n] - 2*S2[a1, SP[a1, a2], a2, SP[a3, a4], n] + 
    S2[a1, SP[a1, a2], a3, SP[a2, a4], n] - S2[a1, SP[a1, a2], SP[a3, a4], 
     a2, n] + S2[a1, SP[a1, a3], a2, SP[a2, a4], n] - 
    S2[a1, SP[a1, a3], a4, SP[a2, a2], n] - S2[a1, SP[a1, a3], SP[a2, a2], 
     a4, n] + S2[a1, SP[a1, a3], SP[a2, a4], a2, n] - 
    S2[a1, SP[a1, a4], a3, SP[a2, a2], n] - S2[a1, SP[a1, a4], SP[a2, a3], 
     a2, n] - 2*S2[SP[a1, a1], a2, a2, SP[a3, a4], n] + 
    S2[SP[a1, a1], a2, a3, SP[a2, a4], n] - S2[SP[a1, a1], a2, SP[a3, a4], 
     a2, n] + S2[SP[a1, a1], a3, a2, SP[a2, a4], n] - 
    S2[SP[a1, a1], a3, a4, SP[a2, a2], n] - S2[SP[a1, a1], a3, SP[a2, a2], 
     a4, n] + S2[SP[a1, a1], a3, SP[a2, a4], a2, n] - 
    S2[SP[a1, a1], a4, a3, SP[a2, a2], n] - S2[SP[a1, a1], a4, SP[a2, a3], 
     a2, n] - S2[SP[a1, a1], SP[a2, a3], a2, a4, n] - 
    S2[SP[a1, a1], SP[a2, a3], a4, a2, n] + 
    4*S2[a1, a1, a2, a2, SP[a3, a4], n] - 
    2*S2[a1, a1, a2, a3, SP[a2, a4], n] + 
    2*S2[a1, a1, a2, SP[a3, a4], a2, n] - 
    2*S2[a1, a1, a3, a2, SP[a2, a4], n] + 
    2*S2[a1, a1, a3, a4, SP[a2, a2], n] + 
    2*S2[a1, a1, a3, SP[a2, a2], a4, n] - 
    2*S2[a1, a1, a3, SP[a2, a4], a2, n] + 
    2*S2[a1, a1, a4, a3, SP[a2, a2], n] + 
    2*S2[a1, a1, a4, SP[a2, a3], a2, n] + 
    2*S2[a1, a1, SP[a2, a3], a2, a4, n] + 
    2*S2[a1, a1, SP[a2, a3], a4, a2, n] + 
    2*S2[a1, a2, a1, a2, SP[a3, a4], n] - S2[a1, a2, a1, a3, SP[a2, a4], n] + 
    S2[a1, a2, a1, SP[a3, a4], a2, n] + S2[a4, n]*S2[a1, a2, a3, a1, a2, n] - 
    S2[a1, a2, a3, a1, SP[a2, a4], n] - S2[a1, a2, a3, SP[a1, a2], a4, n] - 
    S2[a1, a2, a4, a1, SP[a2, a3], n] - S2[a1, a2, a4, SP[a1, a3], a2, n] - 
    S2[a1, a2, SP[a1, a3], a2, a4, n] - S2[a1, a2, SP[a1, a3], a4, a2, n] + 
    S2[a1, a2, SP[a3, a4], a1, a2, n] - S2[a1, a3, a1, a2, SP[a2, a4], n] + 
    S2[a1, a3, a1, a4, SP[a2, a2], n] + S2[a1, a3, a1, SP[a2, a2], a4, n] - 
    S2[a1, a3, a1, SP[a2, a4], a2, n] + S2[a2, n]*S2[a1, a3, a2, a1, a4, n] - 
    S2[a1, a3, a2, a1, SP[a2, a4], n] - S2[a1, a3, a2, SP[a1, a2], a4, n] - 
    S2[a1, a3, SP[a1, a2], a2, a4, n] - S2[a1, a3, SP[a1, a2], a4, a2, n] + 
    S2[a1, a3, SP[a2, a2], a1, a4, n] + S2[a1, a4, a1, a3, SP[a2, a2], n] + 
    S2[a1, a4, a1, SP[a2, a3], a2, n] - S2[a1, a4, a2, a1, SP[a2, a3], n] - 
    S2[a1, a4, a2, SP[a1, a3], a2, n] + S2[a1, SP[a2, a3], a2, a1, a4, n] + 
    S2[a1, SP[a2, a4], a3, a1, a2, n] + S2[SP[a1, a2], a3, a2, a1, a4, n] + 
    S2[SP[a1, a4], a2, a3, a1, a2, n] - S2[a4, a1, a2, a3, a1, a2, n] /; 
   MyMemberQ[{{a1, a2}, {a3, a4}}, {a1, a1, a2, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a2_, a1_, a3_, a2_, a4_, a1_, n_] :> 
  -(S2[a1, a2, a3, n]*S2[a1, a4, a2, n]) - S2[a1, a3, a2, n]*
     S2[a1, a4, a2, n] - S2[SP[a1, a1], SP[a2, a4], SP[a2, a3], n] - 
    S2[SP[a1, a1], SP[a3, a4], SP[a2, a2], n] + 
    2*S2[a1, a1, SP[a2, a4], SP[a2, a3], n] + 
    2*S2[a1, a1, SP[a3, a4], SP[a2, a2], n] + 
    S2[a1, a4, n]*S2[a1, a2, a3, a2, n] - S2[a1, a2, SP[a1, a3], SP[a2, a4], 
     n] + 2*S2[a1, a4, n]*S2[a1, a3, a2, a2, n] - 
    2*S2[a1, a3, SP[a1, a2], SP[a2, a4], n] + 
    S2[a1, a2, n]*S2[a1, a4, a2, a3, n] - S2[a1, a4, SP[a1, a2], SP[a2, a3], 
     n] - S2[a1, SP[a1, a2], a3, SP[a2, a4], n] + S2[a1, SP[a1, a2], a4, 
     SP[a2, a3], n] - 2*S2[a1, SP[a1, a3], a2, SP[a2, a4], n] + 
    S2[a1, SP[a1, a3], a4, SP[a2, a2], n] - S2[a1, SP[a1, a3], SP[a2, a4], 
     a2, n] + S2[a1, SP[a1, a4], a3, SP[a2, a2], n] + 
    S2[a1, SP[a1, a4], SP[a2, a3], a2, n] - S2[SP[a1, a1], a2, a3, 
     SP[a2, a4], n] + S2[SP[a1, a1], a2, a4, SP[a2, a3], n] - 
    2*S2[SP[a1, a1], a3, a2, SP[a2, a4], n] + S2[SP[a1, a1], a3, a4, 
     SP[a2, a2], n] - S2[SP[a1, a1], a3, SP[a2, a4], a2, n] + 
    S2[SP[a1, a1], a4, a3, SP[a2, a2], n] + S2[SP[a1, a1], a4, SP[a2, a3], 
     a2, n] + 2*S2[a1, a1, a2, a3, SP[a2, a4], n] - 
    2*S2[a1, a1, a2, a4, SP[a2, a3], n] - 
    2*S2[a2, n]*S2[a1, a1, a3, a2, a4, n] + 
    2*S2[a1, a1, a3, a2, SP[a2, a4], n] - 
    2*S2[a1, a1, a3, a4, SP[a2, a2], n] - 
    2*S2[a1, a1, a3, SP[a2, a2], a4, n] + 
    2*S2[a1, a1, a3, SP[a2, a4], a2, n] - 
    2*S2[a1, a1, a4, a3, SP[a2, a2], n] - 

    2*S2[a1, a1, a4, SP[a2, a3], a2, n] - 
    2*S2[a1, a1, SP[a2, a3], a2, a4, n] + S2[a1, a2, a1, a3, SP[a2, a4], n] - 
    S2[a1, a2, a1, a4, SP[a2, a3], n] + S2[a1, a2, a3, a1, SP[a2, a4], n] + 
    S2[a1, a2, a3, SP[a1, a2], a4, n] + S2[a1, a2, SP[a1, a3], a2, a4, n] - 
    S2[a2, n]*S2[a1, a3, a1, a2, a4, n] + S2[a1, a3, a1, a2, SP[a2, a4], n] - 
    S2[a1, a3, a1, a4, SP[a2, a2], n] - S2[a1, a3, a1, SP[a2, a2], a4, n] + 
    S2[a1, a3, a1, SP[a2, a4], a2, n] - S2[a2, n]*S2[a1, a3, a2, a1, a4, n] + 
    S2[a1, a3, a2, a1, SP[a2, a4], n] + S2[a1, a3, a2, SP[a1, a2], a4, n] + 
    S2[a1, a3, SP[a1, a2], a2, a4, n] + S2[a1, a3, SP[a1, a2], a4, a2, n] - 
    S2[a1, a3, SP[a2, a2], a1, a4, n] - S2[a1, a4, a1, a3, SP[a2, a2], n] - 
    S2[a1, a4, a1, SP[a2, a3], a2, n] + S2[a1, a4, a2, a1, SP[a2, a3], n] + 
    S2[a1, a4, a2, SP[a1, a3], a2, n] - S2[a1, SP[a1, a2], a3, a2, a4, n] + 
    2*S2[a1, SP[a1, a3], a2, a2, a4, n] + S2[a1, SP[a1, a3], a2, a4, a2, n] - 
    S2[a1, SP[a2, a3], a1, a2, a4, n] - S2[a1, SP[a2, a3], a2, a1, a4, n] + 
    S2[a1, n]*S2[a2, a1, a3, a2, a4, n] + S2[a2, a1, a3, a2, SP[a1, a4], n] + 
    S2[a2, a1, a3, SP[a1, a2], a4, n] + S2[a2, a1, SP[a1, a3], a2, a4, n] + 
    S2[a2, SP[a1, a1], a3, a2, a4, n] - S2[a1, n]*S2[a4, a2, a3, a1, a2, n] - 
    S2[a4, a2, a3, a1, SP[a1, a2], n] - S2[a4, a2, a3, SP[a1, a1], a2, n] - 
    S2[a4, a2, SP[a1, a3], a1, a2, n] - S2[a4, SP[a1, a2], a3, a1, a2, n] + 
    S2[SP[a1, a1], a2, a3, a2, a4, n] + 2*S2[SP[a1, a1], a3, a2, a2, a4, n] + 
    S2[SP[a1, a1], a3, a2, a4, a2, n] - S2[SP[a1, a2], a1, a3, a2, a4, n] - 
    S2[SP[a1, a2], a3, a1, a2, a4, n] - S2[SP[a1, a2], a3, a2, a1, a4, n] - 
    S2[SP[a1, a4], a2, a3, a1, a2, n] + S2[a4, a1, a2, a3, a1, a2, n] + 
    S2[a4, a2, a1, a3, a1, a2, n] + 2*S2[a4, a2, a3, a1, a1, a2, n] + 
    S2[a4, a2, a3, a1, a2, a1, n] /; MyMemberQ[{{a1, a2}, {a3, a4}}, 
     {a1, a1, a2, a2, a3, a4}] && a1 != a2 != a3 != a4, 
 S2[a2_, a1_, a3_, a4_, a1_, a2_, n_] :> 
  S2[a1, a2, a3, n]*S2[a1, a2, a4, n] + S2[a1, a2, a4, n]*S2[a1, a3, a2, n] + 
    S2[a1, a2, a3, n]*S2[a1, a4, a2, n] + S2[a1, a3, a2, n]*
     S2[a1, a4, a2, n] + S2[SP[a1, a1], SP[a2, a2], SP[a3, a4], n] + 
    S2[SP[a1, a1], SP[a2, a3], SP[a2, a4], n] + S2[SP[a1, a1], SP[a2, a4], 
     SP[a2, a3], n] + S2[SP[a1, a1], SP[a3, a4], SP[a2, a2], n] - 
    2*S2[a1, a1, SP[a2, a2], SP[a3, a4], n] - 
    2*S2[a1, a1, SP[a2, a3], SP[a2, a4], n] - 
    2*S2[a1, a1, SP[a2, a4], SP[a2, a3], n] - 
    2*S2[a1, a1, SP[a3, a4], SP[a2, a2], n] - 
    2*S2[a1, SP[a1, a2], a2, SP[a3, a4], n] - S2[a1, SP[a1, a2], a3, 
     SP[a2, a4], n] - S2[a1, SP[a1, a2], a4, SP[a2, a3], n] - 
    S2[a1, SP[a1, a2], SP[a2, a3], a4, n] - S2[a1, SP[a1, a2], SP[a2, a4], 
     a3, n] - 2*S2[a1, SP[a1, a2], SP[a3, a4], a2, n] - 
    S2[a1, SP[a1, a3], a2, SP[a2, a4], n] - S2[a1, SP[a1, a3], a4, 
     SP[a2, a2], n] - S2[a1, SP[a1, a3], SP[a2, a2], a4, n] - 
    S2[a1, SP[a1, a3], SP[a2, a4], a2, n] - S2[a1, SP[a1, a4], a2, 
     SP[a2, a3], n] - S2[a1, SP[a1, a4], a3, SP[a2, a2], n] - 
    S2[a1, SP[a1, a4], SP[a2, a2], a3, n] - S2[a1, SP[a1, a4], SP[a2, a3], 
     a2, n] - S2[a1, a2, n]*S2[a3, a4, a1, a2, n] + 
    S2[a3, a4, SP[a1, a1], SP[a2, a2], n] + S2[a3, SP[a1, a4], a1, 
     SP[a2, a2], n] + S2[a3, SP[a1, a4], SP[a1, a2], a2, n] - 
    2*S2[SP[a1, a1], a2, a2, SP[a3, a4], n] - S2[SP[a1, a1], a2, a3, 
     SP[a2, a4], n] - S2[SP[a1, a1], a2, a4, SP[a2, a3], n] - 
    S2[SP[a1, a1], a2, SP[a2, a3], a4, n] - S2[SP[a1, a1], a2, SP[a2, a4], 
     a3, n] - 2*S2[SP[a1, a1], a2, SP[a3, a4], a2, n] - 
    S2[SP[a1, a1], a3, a2, SP[a2, a4], n] - S2[SP[a1, a1], a3, a4, 
     SP[a2, a2], n] - S2[SP[a1, a1], a3, SP[a2, a2], a4, n] - 
    S2[SP[a1, a1], a3, SP[a2, a4], a2, n] - S2[SP[a1, a1], a4, a2, 
     SP[a2, a3], n] - S2[SP[a1, a1], a4, a3, SP[a2, a2], n] - 
    S2[SP[a1, a1], a4, SP[a2, a2], a3, n] - S2[SP[a1, a1], a4, SP[a2, a3], 
     a2, n] - S2[SP[a1, a1], SP[a2, a2], a3, a4, n] - 
    S2[SP[a1, a1], SP[a2, a2], a4, a3, n] - S2[SP[a1, a1], SP[a2, a3], a2, 
     a4, n] - S2[SP[a1, a1], SP[a2, a3], a4, a2, n] - 
    S2[SP[a1, a1], SP[a2, a4], a2, a3, n] - S2[SP[a1, a1], SP[a2, a4], a3, 
     a2, n] - 2*S2[SP[a1, a1], SP[a3, a4], a2, a2, n] + 
    S2[SP[a1, a3], a4, a1, SP[a2, a2], n] + S2[SP[a1, a3], a4, SP[a1, a2], 
     a2, n] + S2[SP[a1, a3], SP[a2, a4], a1, a2, n] - 
    4*S2[a4, n]*S2[a1, a1, a2, a2, a3, n] - 
    4*S2[a4, n]*S2[a1, a1, a2, a3, a2, n] - 
    2*S2[a1, a1, a2, a3, SP[a2, a4], n] + 
    2*S2[a1, a1, a2, a4, SP[a2, a3], n] + 
    2*S2[a1, a1, a2, SP[a2, a3], a4, n] - 
    2*S2[a1, a1, a2, SP[a2, a4], a3, n] - 
    4*S2[a4, n]*S2[a1, a1, a3, a2, a2, n] - 
    2*S2[a1, a1, a3, a2, SP[a2, a4], n] + 
    2*S2[a1, a1, a3, a4, SP[a2, a2], n] + 
    2*S2[a1, a1, a3, SP[a2, a2], a4, n] - 
    2*S2[a1, a1, a3, SP[a2, a4], a2, n] + 
    2*S2[a1, a1, a4, a2, SP[a2, a3], n] + 
    2*S2[a1, a1, a4, a3, SP[a2, a2], n] + 
    2*S2[a1, a1, a4, SP[a2, a2], a3, n] + 
    2*S2[a1, a1, a4, SP[a2, a3], a2, n] + 
    2*S2[a1, a1, SP[a2, a2], a3, a4, n] + 
    2*S2[a1, a1, SP[a2, a2], a4, a3, n] + 
    2*S2[a1, a1, SP[a2, a3], a2, a4, n] + 
    2*S2[a1, a1, SP[a2, a3], a4, a2, n] - 
    2*S2[a1, a1, SP[a2, a4], a2, a3, n] - 
    2*S2[a1, a1, SP[a2, a4], a3, a2, n] - 
    2*S2[a4, n]*S2[a1, a2, a1, a2, a3, n] - 
    2*S2[a4, n]*S2[a1, a2, a1, a3, a2, n] - S2[a1, a2, a1, a3, SP[a2, a4], 
     n] + S2[a1, a2, a1, a4, SP[a2, a3], n] + S2[a1, a2, a1, SP[a2, a3], a4, 
     n] - S2[a1, a2, a1, SP[a2, a4], a3, n] - 
    S2[a4, n]*S2[a1, a2, a3, a1, a2, n] - S2[a1, a2, a3, a1, SP[a2, a4], n] - 
    S2[a1, a2, a3, SP[a1, a4], a2, n] + S2[a3, n]*S2[a1, a2, a4, a1, a2, n] + 
    S2[a1, a2, a4, a1, SP[a2, a3], n] + S2[a1, a2, a4, SP[a1, a3], a2, n] + 
    S2[a1, a2, SP[a1, a3], a2, a4, n] + S2[a1, a2, SP[a1, a3], a4, a2, n] - 
    S2[a1, a2, SP[a1, a4], a2, a3, n] - S2[a1, a2, SP[a1, a4], a3, a2, n] - 
    2*S2[a4, n]*S2[a1, a3, a1, a2, a2, n] - S2[a1, a3, a1, a2, SP[a2, a4], 
     n] + S2[a1, a3, a1, a4, SP[a2, a2], n] + S2[a1, a3, a1, SP[a2, a2], a4, 
     n] - S2[a1, a3, a1, SP[a2, a4], a2, n] - 
    S2[a4, n]*S2[a1, a3, a2, a1, a2, n] - S2[a1, a3, a2, a1, SP[a2, a4], n] - 
    S2[a1, a3, a2, SP[a1, a4], a2, n] + S2[a2, n]*S2[a1, a3, a4, a1, a2, n] + 
    S2[a1, a3, SP[a1, a2], a2, a4, n] + S2[a1, a3, SP[a1, a2], a4, a2, n] - 
    2*S2[a1, a3, SP[a1, a4], a2, a2, n] - S2[a1, a3, SP[a2, a4], a1, a2, n] + 
    2*S2[a3, n]*S2[a1, a4, a1, a2, a2, n] + 
    3*S2[a1, a4, a1, a2, SP[a2, a3], n] + S2[a1, a4, a1, a3, SP[a2, a2], n] + 
    S2[a1, a4, a1, SP[a2, a2], a3, n] + 3*S2[a1, a4, a1, SP[a2, a3], a2, n] + 
    S2[a3, n]*S2[a1, a4, a2, a1, a2, n] + S2[a1, a4, a2, a1, SP[a2, a3], n] + 
    S2[a1, a4, a2, SP[a1, a3], a2, n] + S2[a1, a4, SP[a1, a2], a2, a3, n] + 
    S2[a1, a4, SP[a1, a2], a3, a2, n] + 2*S2[a1, a4, SP[a1, a3], a2, a2, n] + 
    S2[a1, a4, SP[a2, a3], a1, a2, n] + 2*S2[a1, SP[a1, a2], a2, a3, a4, n] + 
    2*S2[a1, SP[a1, a2], a2, a4, a3, n] + 
    2*S2[a1, SP[a1, a2], a3, a2, a4, n] + 
    2*S2[a1, SP[a1, a2], a3, a4, a2, n] + 
    2*S2[a1, SP[a1, a2], a4, a2, a3, n] + 
    2*S2[a1, SP[a1, a2], a4, a3, a2, n] + 
    2*S2[a1, SP[a1, a3], a2, a2, a4, n] + 
    2*S2[a1, SP[a1, a3], a2, a4, a2, n] + 
    2*S2[a1, SP[a1, a3], a4, a2, a2, n] - 
    2*S2[a1, SP[a1, a4], a2, a2, a3, n] - 
    2*S2[a1, SP[a1, a4], a2, a3, a2, n] - 
    2*S2[a1, SP[a1, a4], a3, a2, a2, n] + S2[a1, SP[a2, a3], a4, a1, a2, n] - 
    2*S2[a1, SP[a2, a4], a1, a2, a3, n] - 
    2*S2[a1, SP[a2, a4], a1, a3, a2, n] - S2[a1, SP[a2, a4], a3, a1, a2, n] - 
    S2[a3, a1, a4, a1, SP[a2, a2], n] - S2[a3, a1, a4, SP[a1, a2], a2, n] - 
    S2[a3, a1, SP[a2, a4], a1, a2, n] - 2*S2[a3, a4, a1, a1, SP[a2, a2], n] - 
    2*S2[a3, a4, a1, SP[a1, a2], a2, n] - 
    2*S2[a3, a4, SP[a1, a1], a2, a2, n] - 
    2*S2[a3, SP[a1, a4], a1, a2, a2, n] - S2[a3, SP[a1, a4], a2, a1, a2, n] + 
    4*S2[a3, n]*S2[a4, a1, a1, a2, a2, n] + 
    4*S2[a4, a1, a1, a2, SP[a2, a3], n] + 
    4*S2[a4, a1, a1, SP[a2, a3], a2, n] + 
    2*S2[a3, n]*S2[a4, a1, a2, a1, a2, n] + 
    2*S2[a4, a1, a2, a1, SP[a2, a3], n] + 
    2*S2[a4, a1, a2, SP[a1, a3], a2, n] + 
    4*S2[a4, a1, SP[a1, a3], a2, a2, n] + 
    2*S2[a4, a1, SP[a2, a3], a1, a2, n] + 
    4*S2[a4, SP[a1, a3], a1, a2, a2, n] + 
    2*S2[a4, SP[a1, a3], a2, a1, a2, n] + 
    2*S2[SP[a1, a1], a2, a2, a3, a4, n] + 
    2*S2[SP[a1, a1], a2, a2, a4, a3, n] + 
    2*S2[SP[a1, a1], a2, a3, a2, a4, n] + 
    2*S2[SP[a1, a1], a2, a3, a4, a2, n] + 
    2*S2[SP[a1, a1], a2, a4, a2, a3, n] + 
    2*S2[SP[a1, a1], a2, a4, a3, a2, n] + 
    2*S2[SP[a1, a1], a3, a2, a2, a4, n] + 
    2*S2[SP[a1, a1], a3, a2, a4, a2, n] + 
    2*S2[SP[a1, a1], a3, a4, a2, a2, n] + 
    2*S2[SP[a1, a1], a4, a2, a2, a3, n] + 
    2*S2[SP[a1, a1], a4, a2, a3, a2, n] + 
    2*S2[SP[a1, a1], a4, a3, a2, a2, n] + S2[SP[a1, a2], a3, a4, a1, a2, n] - 
    4*S2[SP[a1, a4], a1, a2, a2, a3, n] - 
    4*S2[SP[a1, a4], a1, a2, a3, a2, n] - 
    4*S2[SP[a1, a4], a1, a3, a2, a2, n] - 
    2*S2[SP[a1, a4], a2, a1, a2, a3, n] - 
    2*S2[SP[a1, a4], a2, a1, a3, a2, n] - S2[SP[a1, a4], a2, a3, a1, a2, n] - 
    2*S2[SP[a1, a4], a3, a1, a2, a2, n] - S2[SP[a1, a4], a3, a2, a1, a2, n] + 
    4*S2[SP[a3, a4], a1, a1, a2, a2, n] + 
    2*S2[SP[a3, a4], a1, a2, a1, a2, n] - S2[a4, a1, a2, a3, a1, a2, n] - 
    2*S2[a4, a1, a3, a1, a2, a2, n] - S2[a4, a1, a3, a2, a1, a2, n] - 
    4*S2[a4, a3, a1, a1, a2, a2, n] - 2*S2[a4, a3, a1, a2, a1, a2, n] /; 
   MyMemberQ[{{a1, a2}, {a3, a4}}, {a1, a1, a2, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a2_, a1_, a3_, a4_, a2_, a1_, n_] :> 
  -(S2[a1, a2, a3, n]*S2[a1, a2, a4, n]) - S2[a1, a2, a4, n]*
     S2[a1, a3, a2, n] - S2[SP[a1, a1], SP[a2, a2], SP[a3, a4], n] - 
    S2[SP[a1, a1], SP[a2, a3], SP[a2, a4], n] + 
    2*S2[a1, a1, SP[a2, a2], SP[a3, a4], n] + 
    2*S2[a1, a1, SP[a2, a3], SP[a2, a4], n] - 
    S2[a1, a2, n]*S2[a1, a4, a2, a3, n] - S2[a1, a2, n]*
     S2[a1, a4, a3, a2, n] + S2[a1, a4, SP[a1, a2], SP[a2, a3], n] + 
    S2[a1, a4, SP[a1, a3], SP[a2, a2], n] + 
    2*S2[a1, SP[a1, a2], a2, SP[a3, a4], n] + S2[a1, SP[a1, a2], a3, 
     SP[a2, a4], n] + S2[a1, SP[a1, a2], SP[a2, a3], a4, n] + 
    S2[a1, SP[a1, a2], SP[a2, a4], a3, n] + S2[a1, SP[a1, a2], SP[a3, a4], 
     a2, n] + S2[a1, SP[a1, a3], a2, SP[a2, a4], n] + 
    S2[a1, SP[a1, a3], SP[a2, a2], a4, n] + S2[a1, SP[a1, a4], a2, 
     SP[a2, a3], n] + S2[a1, SP[a1, a4], a3, SP[a2, a2], n] + 
    S2[a1, SP[a1, a4], SP[a2, a2], a3, n] + S2[a1, SP[a1, a4], SP[a2, a3], 
     a2, n] + S2[a1, a2, n]*S2[a3, a4, a1, a2, n] - 
    S2[a3, a4, SP[a1, a1], SP[a2, a2], n] - S2[a3, SP[a1, a4], a1, 
     SP[a2, a2], n] - S2[a3, SP[a1, a4], SP[a1, a2], a2, n] + 
    2*S2[SP[a1, a1], a2, a2, SP[a3, a4], n] + S2[SP[a1, a1], a2, a3, 
     SP[a2, a4], n] + S2[SP[a1, a1], a2, SP[a2, a3], a4, n] + 
    S2[SP[a1, a1], a2, SP[a2, a4], a3, n] + S2[SP[a1, a1], a2, SP[a3, a4], 
     a2, n] + S2[SP[a1, a1], a3, a2, SP[a2, a4], n] + 
    S2[SP[a1, a1], a3, SP[a2, a2], a4, n] + S2[SP[a1, a1], a4, a2, 
     SP[a2, a3], n] + S2[SP[a1, a1], a4, a3, SP[a2, a2], n] + 
    S2[SP[a1, a1], a4, SP[a2, a2], a3, n] + S2[SP[a1, a1], a4, SP[a2, a3], 
     a2, n] + S2[SP[a1, a1], SP[a2, a2], a3, a4, n] + 
    S2[SP[a1, a1], SP[a2, a2], a4, a3, n] + S2[SP[a1, a1], SP[a2, a3], a2, 
     a4, n] + S2[SP[a1, a1], SP[a2, a3], a4, a2, n] + 
    S2[SP[a1, a1], SP[a2, a4], a2, a3, n] + S2[SP[a1, a1], SP[a2, a4], a3, 
     a2, n] - S2[SP[a1, a3], a4, a1, SP[a2, a2], n] - 
    S2[SP[a1, a3], a4, SP[a1, a2], a2, n] - S2[SP[a1, a3], SP[a2, a4], a1, 
     a2, n] + 4*S2[a4, n]*S2[a1, a1, a2, a2, a3, n] + 
    4*S2[a4, n]*S2[a1, a1, a2, a3, a2, n] + 
    2*S2[a1, a1, a2, a3, SP[a2, a4], n] - 
    2*S2[a1, a1, a2, SP[a2, a3], a4, n] + 
    2*S2[a1, a1, a2, SP[a2, a4], a3, n] + 
    2*S2[a1, a1, a2, SP[a3, a4], a2, n] + 
    4*S2[a4, n]*S2[a1, a1, a3, a2, a2, n] + 
    2*S2[a1, a1, a3, a2, SP[a2, a4], n] - 
    2*S2[a2, n]*S2[a1, a1, a3, a4, a2, n] - 
    2*S2[a1, a1, a3, a4, SP[a2, a2], n] - 
    2*S2[a1, a1, a3, SP[a2, a2], a4, n] + 
    2*S2[a1, a1, a3, SP[a2, a4], a2, n] - 
    2*S2[a1, a1, a4, a2, SP[a2, a3], n] - 
    2*S2[a1, a1, a4, a3, SP[a2, a2], n] - 
    2*S2[a1, a1, a4, SP[a2, a2], a3, n] - 
    2*S2[a1, a1, a4, SP[a2, a3], a2, n] - 
    2*S2[a1, a1, SP[a2, a2], a3, a4, n] - 
    2*S2[a1, a1, SP[a2, a2], a4, a3, n] - 
    2*S2[a1, a1, SP[a2, a3], a2, a4, n] - 
    4*S2[a1, a1, SP[a2, a3], a4, a2, n] + 
    2*S2[a1, a1, SP[a2, a4], a2, a3, n] + 
    2*S2[a1, a1, SP[a2, a4], a3, a2, n] + 
    4*S2[a1, a1, SP[a3, a4], a2, a2, n] + 
    2*S2[a4, n]*S2[a1, a2, a1, a2, a3, n] + 
    2*S2[a4, n]*S2[a1, a2, a1, a3, a2, n] + S2[a1, a2, a1, a3, SP[a2, a4], 
     n] - S2[a1, a2, a1, SP[a2, a3], a4, n] + S2[a1, a2, a1, SP[a2, a4], a3, 
     n] + S2[a1, a2, a1, SP[a3, a4], a2, n] + 
    S2[a4, n]*S2[a1, a2, a3, a1, a2, n] + S2[a1, a2, a3, a1, SP[a2, a4], n] + 
    S2[a1, a2, a3, SP[a1, a4], a2, n] - S2[a3, n]*S2[a1, a2, a4, a1, a2, n] - 
    S2[a1, a2, a4, a1, SP[a2, a3], n] - S2[a1, a2, a4, SP[a1, a3], a2, n] - 
    S2[a1, a2, SP[a1, a3], a2, a4, n] + S2[a1, a2, SP[a1, a4], a2, a3, n] + 
    S2[a1, a2, SP[a1, a4], a3, a2, n] + 2*S2[a4, n]*
     S2[a1, a3, a1, a2, a2, n] + S2[a1, a3, a1, a2, SP[a2, a4], n] - 
    S2[a2, n]*S2[a1, a3, a1, a4, a2, n] - S2[a1, a3, a1, a4, SP[a2, a2], n] - 
    S2[a1, a3, a1, SP[a2, a2], a4, n] + S2[a1, a3, a1, SP[a2, a4], a2, n] + 
    S2[a4, n]*S2[a1, a3, a2, a1, a2, n] + S2[a1, a3, a2, a1, SP[a2, a4], n] + 
    S2[a1, a3, a2, SP[a1, a4], a2, n] - S2[a2, n]*S2[a1, a3, a4, a1, a2, n] - 
    S2[a1, a3, SP[a1, a2], a2, a4, n] - S2[a1, a3, SP[a1, a2], a4, a2, n] + 
    2*S2[a1, a3, SP[a1, a4], a2, a2, n] + S2[a1, a3, SP[a2, a4], a1, a2, n] - 
    2*S2[a3, n]*S2[a1, a4, a1, a2, a2, n] - 
    3*S2[a1, a4, a1, a2, SP[a2, a3], n] - S2[a1, a4, a1, a3, SP[a2, a2], n] - 
    S2[a1, a4, a1, SP[a2, a2], a3, n] - 3*S2[a1, a4, a1, SP[a2, a3], a2, n] - 
    S2[a3, n]*S2[a1, a4, a2, a1, a2, n] - 
    2*S2[a1, a4, a2, a1, SP[a2, a3], n] - 
    2*S2[a1, a4, a2, SP[a1, a3], a2, n] - S2[a1, a4, a3, a1, SP[a2, a2], n] - 
    S2[a1, a4, a3, SP[a1, a2], a2, n] - S2[a1, a4, SP[a1, a2], a2, a3, n] - 
    S2[a1, a4, SP[a1, a2], a3, a2, n] - 4*S2[a1, a4, SP[a1, a3], a2, a2, n] - 
    S2[a1, a4, SP[a2, a3], a1, a2, n] - 2*S2[a1, SP[a1, a2], a2, a3, a4, n] - 
    2*S2[a1, SP[a1, a2], a2, a4, a3, n] - 
    2*S2[a1, SP[a1, a2], a3, a2, a4, n] - 
    3*S2[a1, SP[a1, a2], a3, a4, a2, n] - 
    2*S2[a1, SP[a1, a2], a4, a2, a3, n] - 
    2*S2[a1, SP[a1, a2], a4, a3, a2, n] - 
    2*S2[a1, SP[a1, a3], a2, a2, a4, n] - S2[a1, SP[a1, a3], a2, a4, a2, n] + 
    2*S2[a1, SP[a1, a4], a2, a2, a3, n] + 
    2*S2[a1, SP[a1, a4], a2, a3, a2, n] + 
    2*S2[a1, SP[a1, a4], a3, a2, a2, n] - S2[a1, SP[a2, a3], a1, a4, a2, n] - 
    S2[a1, SP[a2, a3], a4, a1, a2, n] + 2*S2[a1, SP[a2, a4], a1, a2, a3, n] + 
    2*S2[a1, SP[a2, a4], a1, a3, a2, n] + S2[a1, SP[a2, a4], a3, a1, a2, n] + 
    S2[a1, n]*S2[a2, a1, a3, a4, a2, n] + S2[a2, a1, a3, a4, SP[a1, a2], n] + 
    S2[a2, a1, a3, SP[a1, a4], a2, n] + S2[a2, a1, SP[a1, a3], a4, a2, n] + 
    S2[a2, SP[a1, a1], a3, a4, a2, n] + S2[a3, a1, a4, a1, SP[a2, a2], n] + 
    S2[a3, a1, a4, SP[a1, a2], a2, n] + S2[a3, a1, SP[a2, a4], a1, a2, n] + 
    2*S2[a3, a4, a1, a1, SP[a2, a2], n] + 
    2*S2[a3, a4, a1, SP[a1, a2], a2, n] + 
    2*S2[a3, a4, SP[a1, a1], a2, a2, n] + 
    2*S2[a3, SP[a1, a4], a1, a2, a2, n] + S2[a3, SP[a1, a4], a2, a1, a2, n] - 
    4*S2[a3, n]*S2[a4, a1, a1, a2, a2, n] - 
    4*S2[a4, a1, a1, a2, SP[a2, a3], n] - 
    4*S2[a4, a1, a1, SP[a2, a3], a2, n] - 
    2*S2[a3, n]*S2[a4, a1, a2, a1, a2, n] - 
    2*S2[a4, a1, a2, a1, SP[a2, a3], n] - 
    2*S2[a4, a1, a2, SP[a1, a3], a2, n] - 
    4*S2[a4, a1, SP[a1, a3], a2, a2, n] - 
    2*S2[a4, a1, SP[a2, a3], a1, a2, n] + 
    S2[a1, n]*S2[a4, a2, a3, a1, a2, n] + S2[a4, a2, a3, a1, SP[a1, a2], n] + 
    S2[a4, a2, a3, SP[a1, a1], a2, n] + S2[a4, a2, SP[a1, a3], a1, a2, n] + 
    2*S2[a1, n]*S2[a4, a3, a1, a2, a2, n] + 
    2*S2[a4, a3, a1, a2, SP[a1, a2], n] + 
    2*S2[a4, a3, a1, SP[a1, a2], a2, n] + 
    S2[a1, n]*S2[a4, a3, a2, a1, a2, n] + S2[a4, a3, a2, a1, SP[a1, a2], n] + 
    S2[a4, a3, a2, SP[a1, a1], a2, n] + 2*S2[a4, a3, SP[a1, a1], a2, a2, n] + 
    S2[a4, a3, SP[a1, a2], a1, a2, n] + S2[a4, SP[a1, a2], a3, a1, a2, n] - 
    2*S2[a4, SP[a1, a3], a1, a2, a2, n] - S2[a4, SP[a1, a3], a2, a1, a2, n] - 
    2*S2[SP[a1, a1], a2, a2, a3, a4, n] - 
    2*S2[SP[a1, a1], a2, a2, a4, a3, n] - 
    2*S2[SP[a1, a1], a2, a3, a2, a4, n] - S2[SP[a1, a1], a2, a3, a4, a2, n] - 
    2*S2[SP[a1, a1], a2, a4, a2, a3, n] - 
    2*S2[SP[a1, a1], a2, a4, a3, a2, n] - 
    2*S2[SP[a1, a1], a3, a2, a2, a4, n] - S2[SP[a1, a1], a3, a2, a4, a2, n] - 
    2*S2[SP[a1, a1], a4, a2, a2, a3, n] - 
    2*S2[SP[a1, a1], a4, a2, a3, a2, n] - 
    2*S2[SP[a1, a1], a4, a3, a2, a2, n] - S2[SP[a1, a2], a1, a3, a4, a2, n] - 
    S2[SP[a1, a2], a3, a1, a4, a2, n] - S2[SP[a1, a2], a3, a4, a1, a2, n] + 
    4*S2[SP[a1, a4], a1, a2, a2, a3, n] + 
    4*S2[SP[a1, a4], a1, a2, a3, a2, n] + 
    4*S2[SP[a1, a4], a1, a3, a2, a2, n] + 
    2*S2[SP[a1, a4], a2, a1, a2, a3, n] + 
    2*S2[SP[a1, a4], a2, a1, a3, a2, n] + 
    2*S2[SP[a1, a4], a2, a3, a1, a2, n] + 
    4*S2[SP[a1, a4], a3, a1, a2, a2, n] + 
    2*S2[SP[a1, a4], a3, a2, a1, a2, n] - 
    4*S2[SP[a3, a4], a1, a1, a2, a2, n] - 
    2*S2[SP[a3, a4], a1, a2, a1, a2, n] - S2[a4, a2, a1, a3, a1, a2, n] - 
    2*S2[a4, a2, a3, a1, a1, a2, n] - S2[a4, a2, a3, a1, a2, a1, n] - 
    S2[a4, a3, a1, a2, a1, a2, n] - 2*S2[a4, a3, a1, a2, a2, a1, n] - 
    2*S2[a4, a3, a2, a1, a1, a2, n] - S2[a4, a3, a2, a1, a2, a1, n] /; 
   MyMemberQ[{{a1, a2}, {a3, a4}}, {a1, a1, a2, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a2_, a1_, a4_, a1_, a2_, a3_, n_] :> 
  S2[a1, a2, n]*S2[a1, a2, a3, a4, n] + S2[a1, a2, n]*S2[a1, a2, a4, a3, n] - 
    S2[a1, a2, SP[a1, a3], SP[a2, a4], n] - S2[a1, a2, SP[a1, a4], 
     SP[a2, a3], n] + S2[a1, a2, n]*S2[a1, a4, a2, a3, n] - 
    S2[a1, a4, SP[a1, a2], SP[a2, a3], n] - S2[a1, SP[a1, a2], a3, 
     SP[a2, a4], n] - S2[a1, SP[a1, a2], a4, SP[a2, a3], n] - 
    S2[a1, SP[a1, a2], SP[a2, a3], a4, n] - S2[a1, SP[a1, a2], SP[a2, a4], 
     a3, n] - S2[a1, SP[a1, a4], a2, SP[a2, a3], n] - 
    S2[a1, SP[a1, a4], SP[a2, a2], a3, n] - S2[SP[a1, a1], a2, a3, 
     SP[a2, a4], n] - S2[SP[a1, a1], a2, a4, SP[a2, a3], n] - 
    S2[SP[a1, a1], a2, SP[a2, a3], a4, n] - S2[SP[a1, a1], a2, SP[a2, a4], 
     a3, n] - S2[SP[a1, a1], a4, a2, SP[a2, a3], n] - 
    S2[SP[a1, a1], a4, SP[a2, a2], a3, n] - S2[SP[a1, a1], SP[a2, a2], a3, 
     a4, n] - S2[SP[a1, a1], SP[a2, a2], a4, a3, n] - 
    S2[SP[a1, a1], SP[a2, a4], a2, a3, n] - 
    4*S2[a4, n]*S2[a1, a1, a2, a2, a3, n] - 
    4*S2[a1, a1, a2, a2, SP[a3, a4], n] - 
    2*S2[a4, n]*S2[a1, a1, a2, a3, a2, n] + 
    2*S2[a1, a1, a2, a4, SP[a2, a3], n] + 
    2*S2[a1, a1, a2, SP[a2, a3], a4, n] - 
    2*S2[a1, a1, a2, SP[a2, a4], a3, n] - 
    2*S2[a1, a1, a2, SP[a3, a4], a2, n] + 
    2*S2[a1, a1, a4, a2, SP[a2, a3], n] + 
    2*S2[a1, a1, a4, SP[a2, a2], a3, n] + 
    2*S2[a1, a1, SP[a2, a2], a3, a4, n] + 
    2*S2[a1, a1, SP[a2, a2], a4, a3, n] - 
    2*S2[a1, a1, SP[a2, a4], a2, a3, n] - 
    2*S2[a1, a1, SP[a2, a4], a3, a2, n] - 
    2*S2[a4, n]*S2[a1, a2, a1, a2, a3, n] - 
    2*S2[a1, a2, a1, a2, SP[a3, a4], n] - 
    S2[a4, n]*S2[a1, a2, a1, a3, a2, n] + S2[a1, a2, a1, a4, SP[a2, a3], n] + 
    S2[a1, a2, a1, SP[a2, a3], a4, n] - S2[a1, a2, a1, SP[a2, a4], a3, n] - 
    S2[a1, a2, a1, SP[a3, a4], a2, n] - S2[a4, n]*S2[a1, a2, a3, a1, a2, n] + 
    S2[a1, a2, a4, a1, SP[a2, a3], n] + S2[a1, a2, a4, SP[a1, a3], a2, n] + 
    S2[a1, a2, SP[a1, a3], a2, a4, n] + S2[a1, a2, SP[a1, a3], a4, a2, n] - 
    S2[a1, a2, SP[a1, a4], a2, a3, n] - S2[a1, a2, SP[a3, a4], a1, a2, n] + 
    S2[a2, n]*S2[a1, a4, a1, a2, a3, n] + 
    2*S2[a1, a4, a1, a2, SP[a2, a3], n] + 
    2*S2[a1, a4, a1, SP[a2, a2], a3, n] + S2[a1, a4, a2, a1, SP[a2, a3], n] + 
    S2[a1, a4, a2, SP[a1, a3], a2, n] + 2*S2[a1, a4, SP[a1, a2], a2, a3, n] + 
    S2[a1, a4, SP[a1, a2], a3, a2, n] + 2*S2[a1, SP[a1, a2], a2, a3, a4, n] + 
    2*S2[a1, SP[a1, a2], a2, a4, a3, n] + S2[a1, SP[a1, a2], a3, a2, a4, n] + 
    S2[a1, SP[a1, a2], a3, a4, a2, n] + 2*S2[a1, SP[a1, a2], a4, a2, a3, n] + 
    S2[a1, SP[a1, a2], a4, a3, a2, n] - 2*S2[a1, SP[a1, a4], a2, a2, a3, n] - 
    S2[a1, SP[a1, a4], a2, a3, a2, n] - S2[a1, SP[a2, a4], a1, a2, a3, n] - 
    S2[a1, SP[a2, a4], a1, a3, a2, n] - S2[a1, SP[a2, a4], a3, a1, a2, n] + 
    2*S2[SP[a1, a1], a2, a2, a3, a4, n] + 
    2*S2[SP[a1, a1], a2, a2, a4, a3, n] + S2[SP[a1, a1], a2, a3, a2, a4, n] + 
    S2[SP[a1, a1], a2, a3, a4, a2, n] + 2*S2[SP[a1, a1], a2, a4, a2, a3, n] + 
    S2[SP[a1, a1], a2, a4, a3, a2, n] + 2*S2[SP[a1, a1], a4, a2, a2, a3, n] + 
    S2[SP[a1, a1], a4, a2, a3, a2, n] + S2[SP[a1, a2], a4, a1, a2, a3, n] - 
    4*S2[SP[a1, a4], a1, a2, a2, a3, n] - 
    2*S2[SP[a1, a4], a1, a2, a3, a2, n] - 
    2*S2[SP[a1, a4], a2, a1, a2, a3, n] - S2[SP[a1, a4], a2, a1, a3, a2, n] - 
    S2[SP[a1, a4], a2, a3, a1, a2, n] + 4*S2[a4, a1, a1, a2, a2, a3, n] + 
    2*S2[a4, a1, a1, a2, a3, a2, n] + 2*S2[a4, a1, a2, a1, a2, a3, n] + 
    S2[a4, a1, a2, a1, a3, a2, n] + S2[a4, a1, a2, a3, a1, a2, n] /; 
   MyMemberQ[{{a1, a2}, {a3, a4}}, {a1, a1, a2, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a2_, a1_, a4_, a1_, a3_, a2_, n_] :> 
  S2[a1, a2, n]*S2[a1, a3, a2, a4, n] + S2[a1, a2, n]*S2[a1, a3, a4, a2, n] - 
    S2[a1, a3, SP[a1, a2], SP[a2, a4], n] - S2[a1, a3, SP[a1, a4], 
     SP[a2, a2], n] + S2[a1, a2, n]*S2[a1, a4, a3, a2, n] - 
    S2[a1, a4, SP[a1, a3], SP[a2, a2], n] - S2[a1, SP[a1, a3], a2, 
     SP[a2, a4], n] - S2[a1, SP[a1, a3], a4, SP[a2, a2], n] - 
    S2[a1, SP[a1, a3], SP[a2, a2], a4, n] - S2[a1, SP[a1, a3], SP[a2, a4], 
     a2, n] - S2[a1, SP[a1, a4], a3, SP[a2, a2], n] - 
    S2[a1, SP[a1, a4], SP[a2, a3], a2, n] - S2[SP[a1, a1], a3, a2, 
     SP[a2, a4], n] - S2[SP[a1, a1], a3, a4, SP[a2, a2], n] - 
    S2[SP[a1, a1], a3, SP[a2, a2], a4, n] - S2[SP[a1, a1], a3, SP[a2, a4], 
     a2, n] - S2[SP[a1, a1], a4, a3, SP[a2, a2], n] - 
    S2[SP[a1, a1], a4, SP[a2, a3], a2, n] - S2[SP[a1, a1], SP[a2, a3], a2, 
     a4, n] - S2[SP[a1, a1], SP[a2, a3], a4, a2, n] - 
    S2[SP[a1, a1], SP[a2, a4], a3, a2, n] - 
    2*S2[a4, n]*S2[a1, a1, a2, a3, a2, n] - 
    2*S2[a1, a1, a2, a3, SP[a2, a4], n] - 
    2*S2[a1, a1, a2, SP[a3, a4], a2, n] - 
    4*S2[a4, n]*S2[a1, a1, a3, a2, a2, n] - 
    2*S2[a1, a1, a3, a2, SP[a2, a4], n] + 
    2*S2[a1, a1, a3, a4, SP[a2, a2], n] + 
    2*S2[a1, a1, a3, SP[a2, a2], a4, n] - 
    2*S2[a1, a1, a3, SP[a2, a4], a2, n] + 
    2*S2[a1, a1, a4, a3, SP[a2, a2], n] + 
    2*S2[a1, a1, a4, SP[a2, a3], a2, n] + 
    2*S2[a1, a1, SP[a2, a3], a2, a4, n] + 
    2*S2[a1, a1, SP[a2, a3], a4, a2, n] - 
    4*S2[a1, a1, SP[a3, a4], a2, a2, n] - 
    S2[a4, n]*S2[a1, a2, a1, a3, a2, n] - S2[a1, a2, a1, a3, SP[a2, a4], n] - 
    S2[a1, a2, a1, SP[a3, a4], a2, n] - S2[a1, a2, SP[a1, a4], a3, a2, n] - 
    2*S2[a4, n]*S2[a1, a3, a1, a2, a2, n] - S2[a1, a3, a1, a2, SP[a2, a4], 
     n] + S2[a1, a3, a1, a4, SP[a2, a2], n] + S2[a1, a3, a1, SP[a2, a2], a4, 
     n] - S2[a1, a3, a1, SP[a2, a4], a2, n] - 
    S2[a4, n]*S2[a1, a3, a2, a1, a2, n] + S2[a1, a3, a4, a1, SP[a2, a2], n] + 
    S2[a1, a3, a4, SP[a1, a2], a2, n] + S2[a1, a3, SP[a1, a2], a2, a4, n] + 
    S2[a1, a3, SP[a1, a2], a4, a2, n] - S2[a1, a3, SP[a2, a4], a1, a2, n] + 
    S2[a2, n]*S2[a1, a4, a1, a3, a2, n] + 
    2*S2[a1, a4, a1, a3, SP[a2, a2], n] + 
    2*S2[a1, a4, a1, SP[a2, a3], a2, n] + S2[a1, a4, a3, a1, SP[a2, a2], n] + 
    S2[a1, a4, a3, SP[a1, a2], a2, n] + S2[a1, a4, SP[a1, a2], a3, a2, n] + 
    2*S2[a1, a4, SP[a1, a3], a2, a2, n] + S2[a1, SP[a1, a2], a3, a2, a4, n] + 
    S2[a1, SP[a1, a2], a3, a4, a2, n] + S2[a1, SP[a1, a2], a4, a3, a2, n] + 
    2*S2[a1, SP[a1, a3], a2, a2, a4, n] + 
    2*S2[a1, SP[a1, a3], a2, a4, a2, n] + 
    2*S2[a1, SP[a1, a3], a4, a2, a2, n] - S2[a1, SP[a1, a4], a2, a3, a2, n] - 
    2*S2[a1, SP[a1, a4], a3, a2, a2, n] - 
    2*S2[a1, SP[a3, a4], a1, a2, a2, n] - S2[a1, SP[a3, a4], a2, a1, a2, n] + 
    S2[SP[a1, a1], a2, a3, a2, a4, n] + S2[SP[a1, a1], a2, a3, a4, a2, n] + 
    S2[SP[a1, a1], a2, a4, a3, a2, n] + 2*S2[SP[a1, a1], a3, a2, a2, a4, n] + 
    2*S2[SP[a1, a1], a3, a2, a4, a2, n] + 
    2*S2[SP[a1, a1], a3, a4, a2, a2, n] + S2[SP[a1, a1], a4, a2, a3, a2, n] + 
    2*S2[SP[a1, a1], a4, a3, a2, a2, n] + S2[SP[a1, a2], a4, a1, a3, a2, n] - 
    2*S2[SP[a1, a4], a1, a2, a3, a2, n] - 
    4*S2[SP[a1, a4], a1, a3, a2, a2, n] - S2[SP[a1, a4], a2, a1, a3, a2, n] - 
    2*S2[SP[a1, a4], a3, a1, a2, a2, n] - S2[SP[a1, a4], a3, a2, a1, a2, n] + 
    2*S2[a4, a1, a1, a2, a3, a2, n] + 4*S2[a4, a1, a1, a3, a2, a2, n] + 
    S2[a4, a1, a2, a1, a3, a2, n] + 2*S2[a4, a1, a3, a1, a2, a2, n] + 
    S2[a4, a1, a3, a2, a1, a2, n] /; MyMemberQ[{{a1, a2}, {a3, a4}}, 
     {a1, a1, a2, a2, a3, a4}] && a1 != a2 != a3 != a4, 
 S2[a2_, a1_, a4_, a2_, a1_, a3_, n_] :> 
  -(S2[a1, a2, n]*S2[a1, a2, a3, a4, n]) - S2[a1, a2, n]*
     S2[a1, a2, a4, a3, n] + S2[a1, a2, SP[a1, a3], SP[a2, a4], n] + 
    S2[a1, a2, SP[a1, a4], SP[a2, a3], n] - S2[a1, a2, n]*
     S2[a1, a3, a2, a4, n] - S2[a1, a2, n]*S2[a1, a3, a4, a2, n] + 
    S2[a1, a3, SP[a1, a2], SP[a2, a4], n] + S2[a1, a3, SP[a1, a4], 
     SP[a2, a2], n] - S2[a1, a2, n]*S2[a1, a4, a2, a3, n] - 
    S2[a1, a2, n]*S2[a1, a4, a3, a2, n] + S2[a1, a4, SP[a1, a2], SP[a2, a3], 
     n] + S2[a1, a4, SP[a1, a3], SP[a2, a2], n] + S2[a1, SP[a1, a2], a3, 
     SP[a2, a4], n] + S2[a1, SP[a1, a2], a4, SP[a2, a3], n] + 
    S2[a1, SP[a1, a2], SP[a2, a3], a4, n] + S2[a1, SP[a1, a2], SP[a2, a4], 
     a3, n] + S2[a1, SP[a1, a3], a2, SP[a2, a4], n] + 
    S2[a1, SP[a1, a3], a4, SP[a2, a2], n] + S2[a1, SP[a1, a3], SP[a2, a2], 
     a4, n] + S2[a1, SP[a1, a3], SP[a2, a4], a2, n] + 
    S2[a1, SP[a1, a4], a2, SP[a2, a3], n] + S2[a1, SP[a1, a4], a3, 
     SP[a2, a2], n] + S2[a1, SP[a1, a4], SP[a2, a2], a3, n] + 
    S2[a1, SP[a1, a4], SP[a2, a3], a2, n] + S2[a1, a2, n]*
     S2[a2, a4, a1, a3, n] - S2[a2, a4, SP[a1, a1], SP[a2, a3], n] - 
    S2[a2, SP[a1, a4], a1, SP[a2, a3], n] - S2[a2, SP[a1, a4], SP[a1, a2], 
     a3, n] + S2[SP[a1, a1], a2, a3, SP[a2, a4], n] + 
    S2[SP[a1, a1], a2, a4, SP[a2, a3], n] + S2[SP[a1, a1], a2, SP[a2, a3], 
     a4, n] + S2[SP[a1, a1], a2, SP[a2, a4], a3, n] + 
    S2[SP[a1, a1], a3, a2, SP[a2, a4], n] + S2[SP[a1, a1], a3, a4, 
     SP[a2, a2], n] + S2[SP[a1, a1], a3, SP[a2, a2], a4, n] + 
    S2[SP[a1, a1], a3, SP[a2, a4], a2, n] + S2[SP[a1, a1], a4, a2, 
     SP[a2, a3], n] + S2[SP[a1, a1], a4, a3, SP[a2, a2], n] + 
    S2[SP[a1, a1], a4, SP[a2, a2], a3, n] + S2[SP[a1, a1], a4, SP[a2, a3], 
     a2, n] + S2[SP[a1, a1], SP[a2, a2], a3, a4, n] + 
    S2[SP[a1, a1], SP[a2, a2], a4, a3, n] + S2[SP[a1, a1], SP[a2, a3], a2, 
     a4, n] + S2[SP[a1, a1], SP[a2, a3], a4, a2, n] + 
    S2[SP[a1, a1], SP[a2, a4], a2, a3, n] + S2[SP[a1, a1], SP[a2, a4], a3, 
     a2, n] - S2[SP[a1, a2], a4, a1, SP[a2, a3], n] - 
    S2[SP[a1, a2], a4, SP[a1, a2], a3, n] - S2[SP[a1, a2], SP[a2, a4], a1, 
     a3, n] + 4*S2[a4, n]*S2[a1, a1, a2, a2, a3, n] + 
    4*S2[a1, a1, a2, a2, SP[a3, a4], n] + 
    4*S2[a4, n]*S2[a1, a1, a2, a3, a2, n] + 
    2*S2[a1, a1, a2, a3, SP[a2, a4], n] - 
    2*S2[a1, a1, a2, a4, SP[a2, a3], n] - 
    2*S2[a1, a1, a2, SP[a2, a3], a4, n] + 
    2*S2[a1, a1, a2, SP[a2, a4], a3, n] + 
    4*S2[a1, a1, a2, SP[a3, a4], a2, n] + 
    4*S2[a4, n]*S2[a1, a1, a3, a2, a2, n] + 
    2*S2[a1, a1, a3, a2, SP[a2, a4], n] - 
    2*S2[a1, a1, a3, a4, SP[a2, a2], n] - 
    2*S2[a1, a1, a3, SP[a2, a2], a4, n] + 
    2*S2[a1, a1, a3, SP[a2, a4], a2, n] - 
    2*S2[a1, a1, a4, a2, SP[a2, a3], n] - 
    2*S2[a1, a1, a4, a3, SP[a2, a2], n] - 
    2*S2[a1, a1, a4, SP[a2, a2], a3, n] - 
    2*S2[a1, a1, a4, SP[a2, a3], a2, n] - 
    2*S2[a1, a1, SP[a2, a2], a3, a4, n] - 
    2*S2[a1, a1, SP[a2, a2], a4, a3, n] - 
    2*S2[a1, a1, SP[a2, a3], a2, a4, n] - 
    2*S2[a1, a1, SP[a2, a3], a4, a2, n] + 
    2*S2[a1, a1, SP[a2, a4], a2, a3, n] + 
    2*S2[a1, a1, SP[a2, a4], a3, a2, n] + 
    4*S2[a1, a1, SP[a3, a4], a2, a2, n] + 
    2*S2[a4, n]*S2[a1, a2, a1, a2, a3, n] + 
    2*S2[a1, a2, a1, a2, SP[a3, a4], n] + 
    2*S2[a4, n]*S2[a1, a2, a1, a3, a2, n] + S2[a1, a2, a1, a3, SP[a2, a4], 
     n] - S2[a1, a2, a1, a4, SP[a2, a3], n] - S2[a1, a2, a1, SP[a2, a3], a4, 
     n] + S2[a1, a2, a1, SP[a2, a4], a3, n] + 
    2*S2[a1, a2, a1, SP[a3, a4], a2, n] + 
    S2[a4, n]*S2[a1, a2, a3, a1, a2, n] - 
    S2[a2, n]*S2[a1, a2, a4, a1, a3, n] - S2[a1, a2, a4, a1, SP[a2, a3], n] - 
    S2[a1, a2, a4, SP[a1, a3], a2, n] - S2[a1, a2, SP[a1, a3], a2, a4, n] - 
    S2[a1, a2, SP[a1, a3], a4, a2, n] + S2[a1, a2, SP[a1, a4], a2, a3, n] + 
    S2[a1, a2, SP[a1, a4], a3, a2, n] + S2[a1, a2, SP[a3, a4], a1, a2, n] + 
    2*S2[a4, n]*S2[a1, a3, a1, a2, a2, n] + S2[a1, a3, a1, a2, SP[a2, a4], 
     n] - S2[a1, a3, a1, a4, SP[a2, a2], n] - S2[a1, a3, a1, SP[a2, a2], a4, 
     n] + S2[a1, a3, a1, SP[a2, a4], a2, n] + 
    S2[a4, n]*S2[a1, a3, a2, a1, a2, n] - S2[a1, a3, a4, a1, SP[a2, a2], n] - 
    S2[a1, a3, a4, SP[a1, a2], a2, n] - S2[a1, a3, SP[a1, a2], a2, a4, n] - 
    S2[a1, a3, SP[a1, a2], a4, a2, n] + S2[a1, a3, SP[a2, a4], a1, a2, n] - 
    S2[a2, n]*S2[a1, a4, a1, a2, a3, n] - 
    2*S2[a1, a4, a1, a2, SP[a2, a3], n] - 
    S2[a2, n]*S2[a1, a4, a1, a3, a2, n] - 
    2*S2[a1, a4, a1, a3, SP[a2, a2], n] - 
    2*S2[a1, a4, a1, SP[a2, a2], a3, n] - 
    2*S2[a1, a4, a1, SP[a2, a3], a2, n] - S2[a1, a4, a2, a1, SP[a2, a3], n] - 
    S2[a1, a4, a2, SP[a1, a3], a2, n] - S2[a1, a4, a3, a1, SP[a2, a2], n] - 
    S2[a1, a4, a3, SP[a1, a2], a2, n] - 2*S2[a1, a4, SP[a1, a2], a2, a3, n] - 
    2*S2[a1, a4, SP[a1, a2], a3, a2, n] - 
    2*S2[a1, a4, SP[a1, a3], a2, a2, n] - 
    2*S2[a1, SP[a1, a2], a2, a3, a4, n] - 
    2*S2[a1, SP[a1, a2], a2, a4, a3, n] - 
    2*S2[a1, SP[a1, a2], a3, a2, a4, n] - 
    2*S2[a1, SP[a1, a2], a3, a4, a2, n] - 
    2*S2[a1, SP[a1, a2], a4, a2, a3, n] - 
    2*S2[a1, SP[a1, a2], a4, a3, a2, n] - 
    2*S2[a1, SP[a1, a3], a2, a2, a4, n] - 
    2*S2[a1, SP[a1, a3], a2, a4, a2, n] - 
    2*S2[a1, SP[a1, a3], a4, a2, a2, n] + 
    2*S2[a1, SP[a1, a4], a2, a2, a3, n] + 
    2*S2[a1, SP[a1, a4], a2, a3, a2, n] + 
    2*S2[a1, SP[a1, a4], a3, a2, a2, n] + S2[a1, SP[a2, a4], a1, a2, a3, n] + 
    S2[a1, SP[a2, a4], a1, a3, a2, n] + S2[a1, SP[a2, a4], a3, a1, a2, n] + 
    2*S2[a1, SP[a3, a4], a1, a2, a2, n] + S2[a1, SP[a3, a4], a2, a1, a2, n] + 
    S2[a2, a1, a4, a1, SP[a2, a3], n] + S2[a2, a1, a4, SP[a1, a2], a3, n] + 
    S2[a2, a1, SP[a2, a4], a1, a3, n] + 2*S2[a2, a4, a1, a1, SP[a2, a3], n] + 
    S2[a2, a4, a1, SP[a1, a2], a3, n] + S2[a2, a4, a1, SP[a1, a3], a2, n] + 
    S2[a2, a4, SP[a1, a1], a2, a3, n] + S2[a2, a4, SP[a1, a1], a3, a2, n] + 
    S2[a2, SP[a1, a4], a1, a2, a3, n] + S2[a2, SP[a1, a4], a1, a3, a2, n] + 
    S2[a2, SP[a1, a4], a2, a1, a3, n] - 2*S2[a2, n]*
     S2[a4, a1, a1, a2, a3, n] - 2*S2[a4, a1, a1, a2, SP[a2, a3], n] - 
    2*S2[a2, n]*S2[a4, a1, a1, a3, a2, n] - 
    2*S2[a4, a1, a1, a3, SP[a2, a2], n] - 
    2*S2[a4, a1, a1, SP[a2, a2], a3, n] - 
    2*S2[a4, a1, a1, SP[a2, a3], a2, n] - 
    S2[a2, n]*S2[a4, a1, a2, a1, a3, n] - S2[a4, a1, a2, a1, SP[a2, a3], n] - 
    S2[a4, a1, a2, SP[a1, a2], a3, n] - S2[a2, n]*S2[a4, a1, a3, a1, a2, n] - 
    S2[a4, a1, a3, a1, SP[a2, a2], n] - S2[a4, a1, a3, SP[a1, a2], a2, n] - 
    2*S2[a4, a1, SP[a1, a2], a2, a3, n] - 
    2*S2[a4, a1, SP[a1, a2], a3, a2, n] - S2[a4, a1, SP[a2, a2], a1, a3, n] - 
    S2[a4, a1, SP[a2, a3], a1, a2, n] - 2*S2[a4, SP[a1, a2], a1, a2, a3, n] - 
    2*S2[a4, SP[a1, a2], a1, a3, a2, n] - S2[a4, SP[a1, a2], a2, a1, a3, n] - 
    S2[a4, SP[a1, a2], a3, a1, a2, n] - 2*S2[SP[a1, a1], a2, a2, a3, a4, n] - 
    2*S2[SP[a1, a1], a2, a2, a4, a3, n] - 
    2*S2[SP[a1, a1], a2, a3, a2, a4, n] - 
    2*S2[SP[a1, a1], a2, a3, a4, a2, n] - 
    2*S2[SP[a1, a1], a2, a4, a2, a3, n] - 
    2*S2[SP[a1, a1], a2, a4, a3, a2, n] - 
    2*S2[SP[a1, a1], a3, a2, a2, a4, n] - 
    2*S2[SP[a1, a1], a3, a2, a4, a2, n] - 
    2*S2[SP[a1, a1], a3, a4, a2, a2, n] - 
    2*S2[SP[a1, a1], a4, a2, a2, a3, n] - 
    2*S2[SP[a1, a1], a4, a2, a3, a2, n] - 
    2*S2[SP[a1, a1], a4, a3, a2, a2, n] + S2[SP[a1, a2], a4, a2, a1, a3, n] + 
    4*S2[SP[a1, a4], a1, a2, a2, a3, n] + 
    4*S2[SP[a1, a4], a1, a2, a3, a2, n] + 
    4*S2[SP[a1, a4], a1, a3, a2, a2, n] + 
    2*S2[SP[a1, a4], a2, a1, a2, a3, n] + 
    2*S2[SP[a1, a4], a2, a1, a3, a2, n] + S2[SP[a1, a4], a2, a3, a1, a2, n] + 
    2*S2[SP[a1, a4], a3, a1, a2, a2, n] + S2[SP[a1, a4], a3, a2, a1, a2, n] - 
    2*S2[SP[a2, a4], a1, a1, a2, a3, n] - 
    2*S2[SP[a2, a4], a1, a1, a3, a2, n] - S2[SP[a2, a4], a1, a2, a1, a3, n] - 
    S2[SP[a2, a4], a1, a3, a1, a2, n] + S2[a4, a1, a2, a1, a2, a3, n] + 
    S2[a4, a1, a2, a1, a3, a2, n] + 2*S2[a4, a1, a2, a2, a1, a3, n] + 
    2*S2[a4, a2, a1, a1, a2, a3, n] + 2*S2[a4, a2, a1, a1, a3, a2, n] + 
    S2[a4, a2, a1, a2, a1, a3, n] + S2[a4, a2, a1, a3, a1, a2, n] /; 
   MyMemberQ[{{a1, a2}, {a3, a4}}, {a1, a1, a2, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a2_, a1_, a4_, a2_, a3_, a1_, n_] :> 
  S2[a1, a2, n]*S2[a1, a3, a2, a4, n] + S2[a1, a2, n]*S2[a1, a3, a4, a2, n] - 
    S2[a1, a3, SP[a1, a2], SP[a2, a4], n] - S2[a1, a3, SP[a1, a4], 
     SP[a2, a2], n] + S2[a1, a2, n]*S2[a1, a4, a2, a3, n] + 
    S2[a1, a2, n]*S2[a1, a4, a3, a2, n] - S2[a1, a4, SP[a1, a2], SP[a2, a3], 
     n] - S2[a1, a4, SP[a1, a3], SP[a2, a2], n] - S2[a1, SP[a1, a3], a2, 
     SP[a2, a4], n] - S2[a1, SP[a1, a3], a4, SP[a2, a2], n] - 
    S2[a1, SP[a1, a3], SP[a2, a2], a4, n] - S2[a1, SP[a1, a3], SP[a2, a4], 
     a2, n] - S2[a1, SP[a1, a4], a2, SP[a2, a3], n] - 
    S2[a1, SP[a1, a4], a3, SP[a2, a2], n] - S2[a1, SP[a1, a4], SP[a2, a2], 
     a3, n] - S2[a1, SP[a1, a4], SP[a2, a3], a2, n] - 
    S2[a1, a2, n]*S2[a2, a4, a1, a3, n] + S2[a2, a4, SP[a1, a1], SP[a2, a3], 
     n] + S2[a2, SP[a1, a4], a1, SP[a2, a3], n] + 
    S2[a2, SP[a1, a4], SP[a1, a2], a3, n] - S2[SP[a1, a1], a3, a2, 
     SP[a2, a4], n] - S2[SP[a1, a1], a3, a4, SP[a2, a2], n] - 
    S2[SP[a1, a1], a3, SP[a2, a2], a4, n] - S2[SP[a1, a1], a3, SP[a2, a4], 
     a2, n] - S2[SP[a1, a1], a4, a2, SP[a2, a3], n] - 
    S2[SP[a1, a1], a4, a3, SP[a2, a2], n] - S2[SP[a1, a1], a4, SP[a2, a2], 
     a3, n] - S2[SP[a1, a1], a4, SP[a2, a3], a2, n] - 
    S2[SP[a1, a1], SP[a2, a3], a2, a4, n] - S2[SP[a1, a1], SP[a2, a3], a4, 
     a2, n] - S2[SP[a1, a1], SP[a2, a4], a2, a3, n] - 
    S2[SP[a1, a1], SP[a2, a4], a3, a2, n] + S2[SP[a1, a2], a4, a1, 
     SP[a2, a3], n] + S2[SP[a1, a2], a4, SP[a1, a2], a3, n] + 
    S2[SP[a1, a2], SP[a2, a4], a1, a3, n] - 
    2*S2[a4, n]*S2[a1, a1, a2, a3, a2, n] - 
    2*S2[a1, a1, a2, a3, SP[a2, a4], n] - 
    2*S2[a1, a1, a2, SP[a3, a4], a2, n] - 
    4*S2[a4, n]*S2[a1, a1, a3, a2, a2, n] - 
    2*S2[a1, a1, a3, a2, SP[a2, a4], n] + 
    2*S2[a1, a1, a3, a4, SP[a2, a2], n] + 
    2*S2[a1, a1, a3, SP[a2, a2], a4, n] - 
    2*S2[a1, a1, a3, SP[a2, a4], a2, n] - 
    2*S2[a2, n]*S2[a1, a1, a4, a2, a3, n] + 
    2*S2[a1, a1, a4, a3, SP[a2, a2], n] + 
    2*S2[a1, a1, a4, SP[a2, a3], a2, n] + 
    2*S2[a1, a1, SP[a2, a3], a2, a4, n] + 
    2*S2[a1, a1, SP[a2, a3], a4, a2, n] - 
    4*S2[a1, a1, SP[a3, a4], a2, a2, n] - 
    S2[a4, n]*S2[a1, a2, a1, a3, a2, n] - S2[a1, a2, a1, a3, SP[a2, a4], n] - 
    S2[a1, a2, a1, SP[a3, a4], a2, n] + S2[a2, n]*S2[a1, a2, a4, a1, a3, n] - 
    S2[a1, a2, SP[a1, a4], a3, a2, n] - 2*S2[a4, n]*
     S2[a1, a3, a1, a2, a2, n] - S2[a1, a3, a1, a2, SP[a2, a4], n] + 
    S2[a1, a3, a1, a4, SP[a2, a2], n] + S2[a1, a3, a1, SP[a2, a2], a4, n] - 
    S2[a1, a3, a1, SP[a2, a4], a2, n] - S2[a4, n]*S2[a1, a3, a2, a1, a2, n] + 
    S2[a1, a3, a4, a1, SP[a2, a2], n] + S2[a1, a3, a4, SP[a1, a2], a2, n] + 
    S2[a1, a3, SP[a1, a2], a2, a4, n] + S2[a1, a3, SP[a1, a2], a4, a2, n] - 
    S2[a1, a3, SP[a2, a4], a1, a2, n] + S2[a1, a4, a1, a2, SP[a2, a3], n] + 
    S2[a2, n]*S2[a1, a4, a1, a3, a2, n] + 
    2*S2[a1, a4, a1, a3, SP[a2, a2], n] + S2[a1, a4, a1, SP[a2, a2], a3, n] + 
    2*S2[a1, a4, a1, SP[a2, a3], a2, n] + S2[a1, a4, a2, a1, SP[a2, a3], n] + 
    S2[a1, a4, a2, SP[a1, a3], a2, n] + S2[a1, a4, a3, a1, SP[a2, a2], n] + 
    S2[a1, a4, a3, SP[a1, a2], a2, n] + S2[a1, a4, SP[a1, a2], a2, a3, n] + 
    2*S2[a1, a4, SP[a1, a2], a3, a2, n] + 
    2*S2[a1, a4, SP[a1, a3], a2, a2, n] + S2[a1, SP[a1, a2], a3, a2, a4, n] + 
    S2[a1, SP[a1, a2], a3, a4, a2, n] - S2[a1, SP[a1, a2], a4, a2, a3, n] + 
    S2[a1, SP[a1, a2], a4, a3, a2, n] + 2*S2[a1, SP[a1, a3], a2, a2, a4, n] + 
    2*S2[a1, SP[a1, a3], a2, a4, a2, n] + 
    2*S2[a1, SP[a1, a3], a4, a2, a2, n] + 
    2*S2[a1, SP[a1, a4], a2, a2, a3, n] - 
    2*S2[a1, SP[a1, a4], a3, a2, a2, n] - 
    2*S2[a1, SP[a3, a4], a1, a2, a2, n] - S2[a1, SP[a3, a4], a2, a1, a2, n] - 
    S2[a2, a1, a4, a1, SP[a2, a3], n] + S2[a1, n]*S2[a2, a1, a4, a2, a3, n] + 
    S2[a2, a1, a4, a2, SP[a1, a3], n] + S2[a2, a1, SP[a1, a4], a2, a3, n] - 
    S2[a2, a1, SP[a2, a4], a1, a3, n] - 2*S2[a2, a4, a1, a1, SP[a2, a3], n] - 
    S2[a2, a4, a1, SP[a1, a2], a3, n] - S2[a2, a4, a1, SP[a1, a3], a2, n] - 
    S2[a2, a4, SP[a1, a1], a2, a3, n] - S2[a2, a4, SP[a1, a1], a3, a2, n] + 
    S2[a2, SP[a1, a1], a4, a2, a3, n] - S2[a2, SP[a1, a4], a1, a2, a3, n] - 
    S2[a2, SP[a1, a4], a1, a3, a2, n] - S2[a2, SP[a1, a4], a2, a1, a3, n] + 
    2*S2[a2, n]*S2[a4, a1, a1, a2, a3, n] + 
    2*S2[a4, a1, a1, a2, SP[a2, a3], n] + 
    2*S2[a2, n]*S2[a4, a1, a1, a3, a2, n] + 
    2*S2[a4, a1, a1, a3, SP[a2, a2], n] + 
    2*S2[a4, a1, a1, SP[a2, a2], a3, n] + 
    2*S2[a4, a1, a1, SP[a2, a3], a2, n] + 
    S2[a2, n]*S2[a4, a1, a2, a1, a3, n] + S2[a4, a1, a2, a1, SP[a2, a3], n] - 
    2*S2[a1, n]*S2[a4, a1, a2, a2, a3, n] - 
    2*S2[a4, a1, a2, a2, SP[a1, a3], n] - 
    S2[a1, n]*S2[a4, a1, a2, a3, a2, n] - S2[a4, a1, a2, a3, SP[a1, a2], n] - 
    S2[a4, a1, a2, SP[a1, a2], a3, n] - S2[a4, a1, a2, SP[a1, a3], a2, n] + 
    S2[a2, n]*S2[a4, a1, a3, a1, a2, n] + S2[a4, a1, a3, a1, SP[a2, a2], n] + 
    S2[a4, a1, a3, SP[a1, a2], a2, n] + S2[a4, a1, SP[a1, a2], a3, a2, n] + 
    S2[a4, a1, SP[a2, a2], a1, a3, n] + S2[a4, a1, SP[a2, a3], a1, a2, n] - 
    S2[a1, n]*S2[a4, a2, a1, a2, a3, n] - S2[a4, a2, a1, a2, SP[a1, a3], n] - 
    S2[a1, n]*S2[a4, a2, a1, a3, a2, n] - S2[a4, a2, a1, a3, SP[a1, a2], n] - 
    S2[a4, a2, a1, SP[a1, a2], a3, n] - S2[a4, a2, a1, SP[a1, a3], a2, n] - 
    S2[a1, n]*S2[a4, a2, a3, a1, a2, n] - S2[a4, a2, a3, a1, SP[a1, a2], n] - 
    S2[a4, a2, a3, SP[a1, a1], a2, n] - S2[a4, a2, SP[a1, a1], a2, a3, n] - 
    S2[a4, a2, SP[a1, a1], a3, a2, n] - S2[a4, a2, SP[a1, a3], a1, a2, n] - 
    2*S2[a4, SP[a1, a1], a2, a2, a3, n] - S2[a4, SP[a1, a1], a2, a3, a2, n] + 
    S2[a4, SP[a1, a2], a1, a2, a3, n] + S2[a4, SP[a1, a2], a1, a3, a2, n] + 
    S2[a4, SP[a1, a2], a2, a1, a3, n] + S2[SP[a1, a1], a2, a3, a2, a4, n] + 
    S2[SP[a1, a1], a2, a3, a4, a2, n] + S2[SP[a1, a1], a2, a4, a2, a3, n] + 
    S2[SP[a1, a1], a2, a4, a3, a2, n] + 2*S2[SP[a1, a1], a3, a2, a2, a4, n] + 
    2*S2[SP[a1, a1], a3, a2, a4, a2, n] + 
    2*S2[SP[a1, a1], a3, a4, a2, a2, n] + 
    2*S2[SP[a1, a1], a4, a2, a2, a3, n] + 
    2*S2[SP[a1, a1], a4, a2, a3, a2, n] + 
    2*S2[SP[a1, a1], a4, a3, a2, a2, n] - S2[SP[a1, a2], a1, a4, a2, a3, n] - 
    S2[SP[a1, a2], a4, a1, a2, a3, n] - S2[SP[a1, a2], a4, a2, a1, a3, n] - 
    2*S2[SP[a1, a4], a1, a2, a2, a3, n] - 
    3*S2[SP[a1, a4], a1, a2, a3, a2, n] - 
    4*S2[SP[a1, a4], a1, a3, a2, a2, n] - S2[SP[a1, a4], a2, a1, a2, a3, n] - 
    2*S2[SP[a1, a4], a2, a1, a3, a2, n] - S2[SP[a1, a4], a2, a3, a1, a2, n] - 
    2*S2[SP[a1, a4], a3, a1, a2, a2, n] - S2[SP[a1, a4], a3, a2, a1, a2, n] + 
    2*S2[SP[a2, a4], a1, a1, a2, a3, n] + 
    2*S2[SP[a2, a4], a1, a1, a3, a2, n] + S2[SP[a2, a4], a1, a2, a1, a3, n] + 
    S2[SP[a2, a4], a1, a3, a1, a2, n] + 2*S2[a4, a1, a2, a2, a3, a1, n] + 
    S2[a4, a1, a2, a3, a1, a2, n] + S2[a4, a1, a2, a3, a2, a1, n] + 
    S2[a4, a2, a1, a2, a3, a1, n] + S2[a4, a2, a1, a3, a1, a2, n] + 
    S2[a4, a2, a1, a3, a2, a1, n] + 2*S2[a4, a2, a3, a1, a1, a2, n] + 
    S2[a4, a2, a3, a1, a2, a1, n] /; MyMemberQ[{{a1, a2}, {a3, a4}}, 
     {a1, a1, a2, a2, a3, a4}] && a1 != a2 != a3 != a4, 
 S2[a2_, a1_, a4_, a3_, a1_, a2_, n_] :> 
  -(S2[a1, a2, n]*S2[a1, a2, a3, a4, n]) - S2[a1, a2, n]*
     S2[a1, a2, a4, a3, n] + S2[a1, a2, SP[a1, a3], SP[a2, a4], n] + 
    S2[a1, a2, SP[a1, a4], SP[a2, a3], n] - S2[a1, a2, n]*
     S2[a1, a3, a2, a4, n] - S2[a1, a2, n]*S2[a1, a3, a4, a2, n] + 
    S2[a1, a3, SP[a1, a2], SP[a2, a4], n] + S2[a1, a3, SP[a1, a4], 
     SP[a2, a2], n] - S2[a1, a2, n]*S2[a1, a4, a2, a3, n] - 
    S2[a1, a2, n]*S2[a1, a4, a3, a2, n] + S2[a1, a4, SP[a1, a2], SP[a2, a3], 
     n] + S2[a1, a4, SP[a1, a3], SP[a2, a2], n] + S2[a1, SP[a1, a2], a3, 
     SP[a2, a4], n] + S2[a1, SP[a1, a2], a4, SP[a2, a3], n] + 
    S2[a1, SP[a1, a2], SP[a2, a3], a4, n] + S2[a1, SP[a1, a2], SP[a2, a4], 
     a3, n] + S2[a1, SP[a1, a3], a2, SP[a2, a4], n] + 
    S2[a1, SP[a1, a3], a4, SP[a2, a2], n] + S2[a1, SP[a1, a3], SP[a2, a2], 
     a4, n] + S2[a1, SP[a1, a3], SP[a2, a4], a2, n] + 
    S2[a1, SP[a1, a4], a2, SP[a2, a3], n] + S2[a1, SP[a1, a4], a3, 
     SP[a2, a2], n] + S2[a1, SP[a1, a4], SP[a2, a2], a3, n] + 
    S2[a1, SP[a1, a4], SP[a2, a3], a2, n] + S2[a1, a2, n]*
     S2[a3, a4, a1, a2, n] - S2[a3, a4, SP[a1, a1], SP[a2, a2], n] - 
    S2[a3, SP[a1, a4], a1, SP[a2, a2], n] - S2[a3, SP[a1, a4], SP[a1, a2], 
     a2, n] + S2[SP[a1, a1], a2, a3, SP[a2, a4], n] + 
    S2[SP[a1, a1], a2, a4, SP[a2, a3], n] + S2[SP[a1, a1], a2, SP[a2, a3], 
     a4, n] + S2[SP[a1, a1], a2, SP[a2, a4], a3, n] + 
    S2[SP[a1, a1], a3, a2, SP[a2, a4], n] + S2[SP[a1, a1], a3, a4, 
     SP[a2, a2], n] + S2[SP[a1, a1], a3, SP[a2, a2], a4, n] + 
    S2[SP[a1, a1], a3, SP[a2, a4], a2, n] + S2[SP[a1, a1], a4, a2, 
     SP[a2, a3], n] + S2[SP[a1, a1], a4, a3, SP[a2, a2], n] + 
    S2[SP[a1, a1], a4, SP[a2, a2], a3, n] + S2[SP[a1, a1], a4, SP[a2, a3], 
     a2, n] + S2[SP[a1, a1], SP[a2, a2], a3, a4, n] + 
    S2[SP[a1, a1], SP[a2, a2], a4, a3, n] + S2[SP[a1, a1], SP[a2, a3], a2, 
     a4, n] + S2[SP[a1, a1], SP[a2, a3], a4, a2, n] + 
    S2[SP[a1, a1], SP[a2, a4], a2, a3, n] + S2[SP[a1, a1], SP[a2, a4], a3, 
     a2, n] - S2[SP[a1, a3], a4, a1, SP[a2, a2], n] - 
    S2[SP[a1, a3], a4, SP[a1, a2], a2, n] - S2[SP[a1, a3], SP[a2, a4], a1, 
     a2, n] + 4*S2[a4, n]*S2[a1, a1, a2, a2, a3, n] + 
    4*S2[a1, a1, a2, a2, SP[a3, a4], n] + 
    4*S2[a4, n]*S2[a1, a1, a2, a3, a2, n] + 
    2*S2[a1, a1, a2, a3, SP[a2, a4], n] - 
    2*S2[a1, a1, a2, a4, SP[a2, a3], n] - 
    2*S2[a1, a1, a2, SP[a2, a3], a4, n] + 
    2*S2[a1, a1, a2, SP[a2, a4], a3, n] + 
    4*S2[a1, a1, a2, SP[a3, a4], a2, n] + 
    4*S2[a4, n]*S2[a1, a1, a3, a2, a2, n] + 
    2*S2[a1, a1, a3, a2, SP[a2, a4], n] - 
    2*S2[a1, a1, a3, a4, SP[a2, a2], n] - 
    2*S2[a1, a1, a3, SP[a2, a2], a4, n] + 
    2*S2[a1, a1, a3, SP[a2, a4], a2, n] - 
    2*S2[a1, a1, a4, a2, SP[a2, a3], n] - 
    2*S2[a1, a1, a4, a3, SP[a2, a2], n] - 
    2*S2[a1, a1, a4, SP[a2, a2], a3, n] - 
    2*S2[a1, a1, a4, SP[a2, a3], a2, n] - 
    2*S2[a1, a1, SP[a2, a2], a3, a4, n] - 
    2*S2[a1, a1, SP[a2, a2], a4, a3, n] - 
    2*S2[a1, a1, SP[a2, a3], a2, a4, n] - 
    2*S2[a1, a1, SP[a2, a3], a4, a2, n] + 
    2*S2[a1, a1, SP[a2, a4], a2, a3, n] + 
    2*S2[a1, a1, SP[a2, a4], a3, a2, n] + 
    4*S2[a1, a1, SP[a3, a4], a2, a2, n] + 
    2*S2[a4, n]*S2[a1, a2, a1, a2, a3, n] + 
    2*S2[a1, a2, a1, a2, SP[a3, a4], n] + 
    2*S2[a4, n]*S2[a1, a2, a1, a3, a2, n] + S2[a1, a2, a1, a3, SP[a2, a4], 
     n] - S2[a1, a2, a1, a4, SP[a2, a3], n] - S2[a1, a2, a1, SP[a2, a3], a4, 
     n] + S2[a1, a2, a1, SP[a2, a4], a3, n] + 
    2*S2[a1, a2, a1, SP[a3, a4], a2, n] + 
    S2[a4, n]*S2[a1, a2, a3, a1, a2, n] - 
    S2[a3, n]*S2[a1, a2, a4, a1, a2, n] - 
    2*S2[a1, a2, a4, a1, SP[a2, a3], n] - 
    2*S2[a1, a2, a4, SP[a1, a3], a2, n] - S2[a1, a2, SP[a1, a3], a2, a4, n] - 
    S2[a1, a2, SP[a1, a3], a4, a2, n] + S2[a1, a2, SP[a1, a4], a2, a3, n] + 
    S2[a1, a2, SP[a1, a4], a3, a2, n] + 2*S2[a4, n]*
     S2[a1, a3, a1, a2, a2, n] + S2[a1, a3, a1, a2, SP[a2, a4], n] - 
    S2[a1, a3, a1, a4, SP[a2, a2], n] - S2[a1, a3, a1, SP[a2, a2], a4, n] + 
    S2[a1, a3, a1, SP[a2, a4], a2, n] + S2[a4, n]*S2[a1, a3, a2, a1, a2, n] - 
    S2[a1, a3, SP[a1, a2], a2, a4, n] - S2[a1, a3, SP[a1, a2], a4, a2, n] + 
    2*S2[a1, a3, SP[a2, a4], a1, a2, n] - 
    2*S2[a3, n]*S2[a1, a4, a1, a2, a2, n] - 
    3*S2[a1, a4, a1, a2, SP[a2, a3], n] - S2[a1, a4, a1, a3, SP[a2, a2], n] - 
    S2[a1, a4, a1, SP[a2, a2], a3, n] - 3*S2[a1, a4, a1, SP[a2, a3], a2, n] - 
    S2[a3, n]*S2[a1, a4, a2, a1, a2, n] - 
    2*S2[a1, a4, a2, a1, SP[a2, a3], n] - 
    2*S2[a1, a4, a2, SP[a1, a3], a2, n] + 
    S2[a2, n]*S2[a1, a4, a3, a1, a2, n] - S2[a1, a4, SP[a1, a2], a2, a3, n] - 
    S2[a1, a4, SP[a1, a2], a3, a2, n] - 4*S2[a1, a4, SP[a1, a3], a2, a2, n] - 
    2*S2[a1, SP[a1, a2], a2, a3, a4, n] - 
    2*S2[a1, SP[a1, a2], a2, a4, a3, n] - 
    2*S2[a1, SP[a1, a2], a3, a2, a4, n] - 
    2*S2[a1, SP[a1, a2], a3, a4, a2, n] - 
    2*S2[a1, SP[a1, a2], a4, a2, a3, n] - 
    2*S2[a1, SP[a1, a2], a4, a3, a2, n] - 
    2*S2[a1, SP[a1, a3], a2, a2, a4, n] - 
    2*S2[a1, SP[a1, a3], a2, a4, a2, n] - 
    2*S2[a1, SP[a1, a3], a4, a2, a2, n] + 
    2*S2[a1, SP[a1, a4], a2, a2, a3, n] + 
    2*S2[a1, SP[a1, a4], a2, a3, a2, n] + 
    2*S2[a1, SP[a1, a4], a3, a2, a2, n] + 
    2*S2[a1, SP[a2, a4], a1, a2, a3, n] + 
    2*S2[a1, SP[a2, a4], a1, a3, a2, n] + 
    2*S2[a1, SP[a2, a4], a3, a1, a2, n] + S2[a3, a1, a4, a1, SP[a2, a2], n] + 
    S2[a3, a1, a4, SP[a1, a2], a2, n] + S2[a3, a1, SP[a2, a4], a1, a2, n] + 
    2*S2[a3, a4, a1, a1, SP[a2, a2], n] + 
    2*S2[a3, a4, a1, SP[a1, a2], a2, n] + 
    2*S2[a3, a4, SP[a1, a1], a2, a2, n] + 
    2*S2[a3, SP[a1, a4], a1, a2, a2, n] + S2[a3, SP[a1, a4], a2, a1, a2, n] - 
    4*S2[a3, n]*S2[a4, a1, a1, a2, a2, n] - 
    4*S2[a4, a1, a1, a2, SP[a2, a3], n] - 
    4*S2[a4, a1, a1, SP[a2, a3], a2, n] - 
    2*S2[a3, n]*S2[a4, a1, a2, a1, a2, n] - 
    2*S2[a4, a1, a2, a1, SP[a2, a3], n] - 
    2*S2[a4, a1, a2, SP[a1, a3], a2, n] - 
    4*S2[a4, a1, SP[a1, a3], a2, a2, n] - 
    2*S2[a4, a1, SP[a2, a3], a1, a2, n] - 
    4*S2[a4, SP[a1, a3], a1, a2, a2, n] - 
    2*S2[a4, SP[a1, a3], a2, a1, a2, n] - 
    2*S2[SP[a1, a1], a2, a2, a3, a4, n] - 
    2*S2[SP[a1, a1], a2, a2, a4, a3, n] - 
    2*S2[SP[a1, a1], a2, a3, a2, a4, n] - 
    2*S2[SP[a1, a1], a2, a3, a4, a2, n] - 
    2*S2[SP[a1, a1], a2, a4, a2, a3, n] - 
    2*S2[SP[a1, a1], a2, a4, a3, a2, n] - 
    2*S2[SP[a1, a1], a3, a2, a2, a4, n] - 
    2*S2[SP[a1, a1], a3, a2, a4, a2, n] - 
    2*S2[SP[a1, a1], a3, a4, a2, a2, n] - 
    2*S2[SP[a1, a1], a4, a2, a2, a3, n] - 
    2*S2[SP[a1, a1], a4, a2, a3, a2, n] - 
    2*S2[SP[a1, a1], a4, a3, a2, a2, n] + S2[SP[a1, a2], a4, a3, a1, a2, n] + 
    4*S2[SP[a1, a4], a1, a2, a2, a3, n] + 
    4*S2[SP[a1, a4], a1, a2, a3, a2, n] + 
    4*S2[SP[a1, a4], a1, a3, a2, a2, n] + 
    2*S2[SP[a1, a4], a2, a1, a2, a3, n] + 
    2*S2[SP[a1, a4], a2, a1, a3, a2, n] + S2[SP[a1, a4], a2, a3, a1, a2, n] + 
    2*S2[SP[a1, a4], a3, a1, a2, a2, n] + S2[SP[a1, a4], a3, a2, a1, a2, n] - 
    4*S2[SP[a3, a4], a1, a1, a2, a2, n] - 
    2*S2[SP[a3, a4], a1, a2, a1, a2, n] + S2[a4, a1, a2, a3, a1, a2, n] + 
    2*S2[a4, a1, a3, a1, a2, a2, n] + S2[a4, a1, a3, a2, a1, a2, n] + 
    4*S2[a4, a3, a1, a1, a2, a2, n] + 2*S2[a4, a3, a1, a2, a1, a2, n] /; 
   MyMemberQ[{{a1, a2}, {a3, a4}}, {a1, a1, a2, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a2_, a1_, a4_, a3_, a2_, a1_, n_] :> 
  S2[a1, a2, n]*S2[a1, a2, a3, a4, n] + S2[a1, a2, n]*S2[a1, a2, a4, a3, n] - 
    S2[a1, a2, SP[a1, a3], SP[a2, a4], n] - S2[a1, a2, SP[a1, a4], 
     SP[a2, a3], n] + S2[a1, a2, n]*S2[a1, a4, a2, a3, n] + 
    S2[a1, a2, n]*S2[a1, a4, a3, a2, n] - S2[a1, a4, SP[a1, a2], SP[a2, a3], 
     n] - S2[a1, a4, SP[a1, a3], SP[a2, a2], n] - S2[a1, SP[a1, a2], a3, 
     SP[a2, a4], n] - S2[a1, SP[a1, a2], a4, SP[a2, a3], n] - 
    S2[a1, SP[a1, a2], SP[a2, a3], a4, n] - S2[a1, SP[a1, a2], SP[a2, a4], 
     a3, n] - S2[a1, SP[a1, a4], a2, SP[a2, a3], n] - 
    S2[a1, SP[a1, a4], a3, SP[a2, a2], n] - S2[a1, SP[a1, a4], SP[a2, a2], 
     a3, n] - S2[a1, SP[a1, a4], SP[a2, a3], a2, n] - 
    S2[a1, a2, n]*S2[a3, a4, a1, a2, n] + S2[a3, a4, SP[a1, a1], SP[a2, a2], 
     n] + S2[a3, SP[a1, a4], a1, SP[a2, a2], n] + 
    S2[a3, SP[a1, a4], SP[a1, a2], a2, n] - S2[SP[a1, a1], a2, a3, 
     SP[a2, a4], n] - S2[SP[a1, a1], a2, a4, SP[a2, a3], n] - 
    S2[SP[a1, a1], a2, SP[a2, a3], a4, n] - S2[SP[a1, a1], a2, SP[a2, a4], 
     a3, n] - S2[SP[a1, a1], a4, a2, SP[a2, a3], n] - 
    S2[SP[a1, a1], a4, a3, SP[a2, a2], n] - S2[SP[a1, a1], a4, SP[a2, a2], 
     a3, n] - S2[SP[a1, a1], a4, SP[a2, a3], a2, n] - 
    S2[SP[a1, a1], SP[a2, a2], a3, a4, n] - S2[SP[a1, a1], SP[a2, a2], a4, 
     a3, n] - S2[SP[a1, a1], SP[a2, a4], a2, a3, n] - 
    S2[SP[a1, a1], SP[a2, a4], a3, a2, n] + S2[SP[a1, a3], a4, a1, 
     SP[a2, a2], n] + S2[SP[a1, a3], a4, SP[a1, a2], a2, n] + 
    S2[SP[a1, a3], SP[a2, a4], a1, a2, n] - 
    4*S2[a4, n]*S2[a1, a1, a2, a2, a3, n] - 
    4*S2[a1, a1, a2, a2, SP[a3, a4], n] - 
    2*S2[a4, n]*S2[a1, a1, a2, a3, a2, n] + 
    2*S2[a1, a1, a2, a4, SP[a2, a3], n] + 
    2*S2[a1, a1, a2, SP[a2, a3], a4, n] - 
    2*S2[a1, a1, a2, SP[a2, a4], a3, n] - 
    2*S2[a1, a1, a2, SP[a3, a4], a2, n] + 
    2*S2[a1, a1, a4, a2, SP[a2, a3], n] - 
    2*S2[a2, n]*S2[a1, a1, a4, a3, a2, n] + 
    2*S2[a1, a1, a4, SP[a2, a2], a3, n] + 
    2*S2[a1, a1, SP[a2, a2], a3, a4, n] + 
    2*S2[a1, a1, SP[a2, a2], a4, a3, n] - 
    2*S2[a1, a1, SP[a2, a4], a2, a3, n] - 
    2*S2[a1, a1, SP[a2, a4], a3, a2, n] - 
    2*S2[a4, n]*S2[a1, a2, a1, a2, a3, n] - 
    2*S2[a1, a2, a1, a2, SP[a3, a4], n] - 
    S2[a4, n]*S2[a1, a2, a1, a3, a2, n] + S2[a1, a2, a1, a4, SP[a2, a3], n] + 
    S2[a1, a2, a1, SP[a2, a3], a4, n] - S2[a1, a2, a1, SP[a2, a4], a3, n] - 
    S2[a1, a2, a1, SP[a3, a4], a2, n] - S2[a4, n]*S2[a1, a2, a3, a1, a2, n] + 
    S2[a3, n]*S2[a1, a2, a4, a1, a2, n] + 
    2*S2[a1, a2, a4, a1, SP[a2, a3], n] + 
    2*S2[a1, a2, a4, SP[a1, a3], a2, n] + S2[a1, a2, SP[a1, a3], a2, a4, n] + 
    S2[a1, a2, SP[a1, a3], a4, a2, n] - S2[a1, a2, SP[a1, a4], a2, a3, n] - 
    S2[a1, a3, a4, a1, SP[a2, a2], n] - S2[a1, a3, a4, SP[a1, a2], a2, n] - 
    S2[a1, a3, SP[a2, a4], a1, a2, n] + 2*S2[a3, n]*
     S2[a1, a4, a1, a2, a2, n] + 3*S2[a1, a4, a1, a2, SP[a2, a3], n] - 
    S2[a2, n]*S2[a1, a4, a1, a3, a2, n] + S2[a1, a4, a1, SP[a2, a2], a3, n] + 
    2*S2[a1, a4, a1, SP[a2, a3], a2, n] + 
    S2[a3, n]*S2[a1, a4, a2, a1, a2, n] + 
    2*S2[a1, a4, a2, a1, SP[a2, a3], n] + 
    2*S2[a1, a4, a2, SP[a1, a3], a2, n] - 
    S2[a2, n]*S2[a1, a4, a3, a1, a2, n] + S2[a1, a4, SP[a1, a2], a2, a3, n] + 
    4*S2[a1, a4, SP[a1, a3], a2, a2, n] + 
    2*S2[a1, SP[a1, a2], a2, a3, a4, n] + 
    2*S2[a1, SP[a1, a2], a2, a4, a3, n] + S2[a1, SP[a1, a2], a3, a2, a4, n] + 
    S2[a1, SP[a1, a2], a3, a4, a2, n] + 2*S2[a1, SP[a1, a2], a4, a2, a3, n] - 
    2*S2[a1, SP[a1, a4], a2, a2, a3, n] + 
    2*S2[a1, SP[a1, a4], a3, a2, a2, n] - 
    2*S2[a1, SP[a2, a4], a1, a2, a3, n] - 
    2*S2[a1, SP[a2, a4], a1, a3, a2, n] - 
    2*S2[a1, SP[a2, a4], a3, a1, a2, n] + 
    2*S2[a1, SP[a3, a4], a1, a2, a2, n] + S2[a1, SP[a3, a4], a2, a1, a2, n] + 
    S2[a1, n]*S2[a2, a1, a4, a3, a2, n] + S2[a2, a1, a4, a3, SP[a1, a2], n] + 
    S2[a2, a1, a4, SP[a1, a3], a2, n] + S2[a2, a1, SP[a1, a4], a3, a2, n] + 
    S2[a2, SP[a1, a1], a4, a3, a2, n] - S2[a3, a1, a4, a1, SP[a2, a2], n] - 
    S2[a3, a1, a4, SP[a1, a2], a2, n] - S2[a3, a1, SP[a2, a4], a1, a2, n] - 
    2*S2[a3, a4, a1, a1, SP[a2, a2], n] - 
    2*S2[a3, a4, a1, SP[a1, a2], a2, n] - 
    2*S2[a3, a4, SP[a1, a1], a2, a2, n] - 
    2*S2[a3, SP[a1, a4], a1, a2, a2, n] - S2[a3, SP[a1, a4], a2, a1, a2, n] + 
    4*S2[a3, n]*S2[a4, a1, a1, a2, a2, n] + 
    4*S2[a4, a1, a1, a2, SP[a2, a3], n] + 
    4*S2[a4, a1, a1, SP[a2, a3], a2, n] + 
    2*S2[a3, n]*S2[a4, a1, a2, a1, a2, n] + 
    2*S2[a4, a1, a2, a1, SP[a2, a3], n] - 
    S2[a1, n]*S2[a4, a1, a2, a3, a2, n] - S2[a4, a1, a2, a3, SP[a1, a2], n] + 
    S2[a4, a1, a2, SP[a1, a3], a2, n] - 2*S2[a1, n]*
     S2[a4, a1, a3, a2, a2, n] - 2*S2[a4, a1, a3, a2, SP[a1, a2], n] - 
    2*S2[a4, a1, a3, SP[a1, a2], a2, n] - S2[a4, a1, SP[a1, a2], a3, a2, n] + 
    2*S2[a4, a1, SP[a1, a3], a2, a2, n] + 
    2*S2[a4, a1, SP[a2, a3], a1, a2, n] - 
    2*S2[a1, n]*S2[a4, a3, a1, a2, a2, n] - 
    2*S2[a4, a3, a1, a2, SP[a1, a2], n] - 
    2*S2[a4, a3, a1, SP[a1, a2], a2, n] - 
    S2[a1, n]*S2[a4, a3, a2, a1, a2, n] - S2[a4, a3, a2, a1, SP[a1, a2], n] - 
    S2[a4, a3, a2, SP[a1, a1], a2, n] - 2*S2[a4, a3, SP[a1, a1], a2, a2, n] - 
    S2[a4, a3, SP[a1, a2], a1, a2, n] - S2[a4, SP[a1, a1], a2, a3, a2, n] - 
    2*S2[a4, SP[a1, a1], a3, a2, a2, n] + 
    2*S2[a4, SP[a1, a3], a1, a2, a2, n] + S2[a4, SP[a1, a3], a2, a1, a2, n] + 
    2*S2[SP[a1, a1], a2, a2, a3, a4, n] + 
    2*S2[SP[a1, a1], a2, a2, a4, a3, n] + S2[SP[a1, a1], a2, a3, a2, a4, n] + 
    S2[SP[a1, a1], a2, a3, a4, a2, n] + 2*S2[SP[a1, a1], a2, a4, a2, a3, n] + 
    2*S2[SP[a1, a1], a2, a4, a3, a2, n] + 
    2*S2[SP[a1, a1], a4, a2, a2, a3, n] + 
    2*S2[SP[a1, a1], a4, a2, a3, a2, n] + 
    2*S2[SP[a1, a1], a4, a3, a2, a2, n] - S2[SP[a1, a2], a1, a4, a3, a2, n] - 
    S2[SP[a1, a2], a4, a1, a3, a2, n] - S2[SP[a1, a2], a4, a3, a1, a2, n] - 
    4*S2[SP[a1, a4], a1, a2, a2, a3, n] - 
    3*S2[SP[a1, a4], a1, a2, a3, a2, n] - 
    2*S2[SP[a1, a4], a1, a3, a2, a2, n] - 
    2*S2[SP[a1, a4], a2, a1, a2, a3, n] - S2[SP[a1, a4], a2, a1, a3, a2, n] - 
    S2[SP[a1, a4], a2, a3, a1, a2, n] - 2*S2[SP[a1, a4], a3, a1, a2, a2, n] - 
    S2[SP[a1, a4], a3, a2, a1, a2, n] + 4*S2[SP[a3, a4], a1, a1, a2, a2, n] + 
    2*S2[SP[a3, a4], a1, a2, a1, a2, n] + S2[a4, a1, a2, a3, a2, a1, n] + 
    S2[a4, a1, a3, a2, a1, a2, n] + 2*S2[a4, a1, a3, a2, a2, a1, n] + 
    S2[a4, a3, a1, a2, a1, a2, n] + 2*S2[a4, a3, a1, a2, a2, a1, n] + 
    2*S2[a4, a3, a2, a1, a1, a2, n] + S2[a4, a3, a2, a1, a2, a1, n] /; 
   MyMemberQ[{{a1, a2}, {a3, a4}}, {a1, a1, a2, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a2_, a2_, a1_, a1_, a3_, a4_, n_] :> 
  S2[a1, a2, a2, n]*S2[a1, a3, a4, n] + S2[SP[a1, a1], SP[a2, a3], 
     SP[a2, a4], n] - S2[a3, a4, n]*S2[a1, a1, a2, a2, n] - 
    S2[a1, a1, SP[a2, a3], SP[a2, a4], n] - S2[a1, SP[a1, a2], a3, 
     SP[a2, a4], n] - S2[a1, SP[a1, a2], SP[a2, a3], a4, n] - 
    S2[SP[a1, a1], a2, a3, SP[a2, a4], n] - S2[SP[a1, a1], a2, SP[a2, a3], 
     a4, n] - S2[SP[a1, a1], a3, a2, SP[a2, a4], n] - 
    S2[SP[a1, a1], a3, SP[a2, a4], a2, n] - S2[SP[a1, a1], SP[a2, a3], a2, 
     a4, n] - S2[SP[a1, a1], SP[a2, a3], a4, a2, n] + 
    S2[SP[a1, a3], a1, a2, SP[a2, a4], n] + S2[SP[a1, a3], a1, SP[a2, a4], 
     a2, n] + S2[SP[a1, a3], SP[a1, a4], a2, a2, n] - 
    S2[a4, n]*S2[a1, a1, a2, a2, a3, n] + 
    S2[a3, n]*S2[a1, a1, a2, a2, a4, n] - 
    S2[a4, n]*S2[a1, a1, a2, a3, a2, n] - 
    (S2[a2, n]*S2[a1, a1, a2, a3, a4, n])/2 - 
    S2[a1, a1, a2, a3, SP[a2, a4], n]/2 + 
    S2[a3, n]*S2[a1, a1, a2, a4, a2, n] + S2[a1, a1, a2, a4, SP[a2, a3], n] + 
    (3*S2[a1, a1, a2, SP[a2, a3], a4, n])/2 - S2[a1, a1, a2, SP[a2, a4], a3, 
     n] - S2[a4, n]*S2[a1, a1, a3, a2, a2, n] - 
    (S2[a2, n]*S2[a1, a1, a3, a2, a4, n])/2 - 
    S2[a1, a1, a3, a2, SP[a2, a4], n]/2 - 
    (S2[a2, n]*S2[a1, a1, a3, a4, a2, n])/2 - 
    S2[a1, a1, a3, a4, SP[a2, a2], n]/2 - S2[a1, a1, a3, SP[a2, a2], a4, n]/
     2 - S2[a1, a1, a3, SP[a2, a4], a2, n]/2 + 
    S2[a3, n]*S2[a1, a1, a4, a2, a2, n] + S2[a1, a1, a4, a2, SP[a2, a3], n] + 
    S2[a1, a1, a4, SP[a2, a3], a2, n] - S2[a1, a1, SP[a2, a2], a3, a4, n]/2 + 
    (3*S2[a1, a1, SP[a2, a3], a2, a4, n])/2 + 
    (3*S2[a1, a1, SP[a2, a3], a4, a2, n])/2 - S2[a1, a1, SP[a2, a4], a2, a3, 
     n] - S2[a1, a1, SP[a2, a4], a3, a2, n] - 
    (S2[a2, n]*S2[a1, a2, a1, a3, a4, n])/2 + 
    S2[a1, a2, a1, a3, SP[a2, a4], n]/2 + S2[a1, a2, a1, SP[a2, a3], a4, n]/
     2 + S2[a1, a2, SP[a1, a2], a3, a4, n]/2 - 
    S2[a4, n]*S2[a1, a3, a1, a2, a2, n] - S2[a1, a3, a1, a2, SP[a2, a4], n] - 
    S2[a1, a3, a1, SP[a2, a4], a2, n] - S2[a1, a3, SP[a1, a4], a2, a2, n] + 
    S2[a3, n]*S2[a1, a4, a1, a2, a2, n] + S2[a1, a4, a1, a2, SP[a2, a3], n] + 
    S2[a1, a4, a1, SP[a2, a3], a2, n] + S2[a1, a4, SP[a1, a3], a2, a2, n] + 
    S2[a1, SP[a1, a2], a2, a3, a4, n]/2 + S2[a1, SP[a1, a2], a3, a2, a4, n]/
     2 + S2[a1, SP[a1, a2], a3, a4, a2, n]/2 + S2[a1, SP[a1, a3], a2, a2, a4, 
     n] + S2[a1, SP[a1, a3], a2, a4, a2, n] + S2[a1, SP[a1, a3], a4, a2, a2, 
     n] - S2[a1, SP[a1, a4], a2, a2, a3, n] - S2[a1, SP[a1, a4], a2, a3, a2, 
     n] - S2[a1, SP[a1, a4], a3, a2, a2, n] - 
    S2[a1, SP[a2, a2], a1, a3, a4, n]/2 + 
    (S2[a2, n]*S2[a2, a1, a1, a3, a4, n])/2 + 
    S2[a2, a1, a1, a3, SP[a2, a4], n]/2 + S2[a2, a1, a1, SP[a2, a3], a4, n]/
     2 + S2[a2, a1, SP[a1, a2], a3, a4, n]/2 + 
    S2[a2, SP[a1, a2], a1, a3, a4, n]/2 - S2[a3, a1, a1, a2, SP[a2, a4], n] - 
    S2[a3, a1, a1, SP[a2, a4], a2, n] - S2[a3, a1, SP[a1, a4], a2, a2, n] - 
    S2[a3, SP[a1, a4], a1, a2, a2, n] + S2[a3, n]*S2[a4, a1, a1, a2, a2, n] + 
    S2[a4, a1, a1, a2, SP[a2, a3], n] + S2[a4, a1, a1, SP[a2, a3], a2, n] + 
    S2[a4, a1, SP[a1, a3], a2, a2, n] + S2[a4, SP[a1, a3], a1, a2, a2, n] + 
    S2[SP[a1, a1], a2, a2, a3, a4, n] + S2[SP[a1, a1], a2, a3, a2, a4, n] + 
    S2[SP[a1, a1], a2, a3, a4, a2, n] + S2[SP[a1, a1], a3, a2, a2, a4, n] + 
    S2[SP[a1, a1], a3, a2, a4, a2, n] + S2[SP[a1, a1], a3, a4, a2, a2, n] - 
    S2[SP[a1, a2], a1, a2, a3, a4, n]/2 - S2[SP[a1, a2], a1, a3, a2, a4, n]/
     2 - S2[SP[a1, a2], a1, a3, a4, a2, n]/2 - 
    S2[SP[a1, a2], a2, a1, a3, a4, n]/2 - S2[SP[a1, a4], a1, a2, a2, a3, n] - 
    S2[SP[a1, a4], a1, a2, a3, a2, n] - S2[SP[a1, a4], a1, a3, a2, a2, n] - 
    S2[SP[a1, a4], a3, a1, a2, a2, n] + S2[SP[a2, a2], a1, a1, a3, a4, n]/2 + 
    S2[SP[a3, a4], a1, a1, a2, a2, n] - S2[a4, a3, a1, a1, a2, a2, n] /; 
   MyMemberQ[{{a1, a2}, {a3, a4}}, {a1, a1, a2, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a2_, a2_, a1_, a1_, a4_, a3_, n_] :> 
  S2[a1, a2, a2, n]*S2[a1, a4, a3, n] + S2[SP[a1, a1], SP[a2, a4], 
     SP[a2, a3], n] + S2[a3, a4, n]*S2[a1, a1, a2, a2, n] - 
    S2[a1, a1, SP[a2, a3], SP[a2, a4], n] - 
    2*S2[a1, a1, SP[a2, a4], SP[a2, a3], n] - S2[a1, SP[a1, a2], a4, 
     SP[a2, a3], n] - S2[a1, SP[a1, a2], SP[a2, a4], a3, n] - 
    S2[a1, SP[a1, a3], a2, SP[a2, a4], n] - S2[a1, SP[a1, a3], SP[a2, a4], 
     a2, n] - S2[a1, SP[a1, a4], a2, SP[a2, a3], n] - 
    S2[a1, SP[a1, a4], SP[a2, a3], a2, n] - S2[SP[a1, a1], a2, a4, 
     SP[a2, a3], n] - S2[SP[a1, a1], a2, SP[a2, a4], a3, n] - 
    S2[SP[a1, a1], a4, a2, SP[a2, a3], n] - S2[SP[a1, a1], a4, SP[a2, a3], 
     a2, n] - S2[SP[a1, a1], SP[a2, a4], a2, a3, n] - 
    S2[SP[a1, a1], SP[a2, a4], a3, a2, n] - S2[SP[a1, a3], a1, a2, 
     SP[a2, a4], n] - S2[SP[a1, a3], a1, SP[a2, a4], a2, n] - 
    S2[SP[a1, a3], SP[a1, a4], a2, a2, n] - 
    S2[a3, n]*S2[a1, a1, a2, a2, a4, n] - S2[a1, a1, a2, a2, SP[a3, a4], n] + 
    S2[a1, a1, a2, a3, SP[a2, a4], n] - S2[a3, n]*S2[a1, a1, a2, a4, a2, n] - 
    (S2[a2, n]*S2[a1, a1, a2, a4, a3, n])/2 + 
    S2[a1, a1, a2, a4, SP[a2, a3], n]/2 + 
    (3*S2[a1, a1, a2, SP[a2, a4], a3, n])/2 - S2[a1, a1, a2, SP[a3, a4], a2, 
     n] + S2[a1, a1, a3, a2, SP[a2, a4], n] + S2[a1, a1, a3, SP[a2, a4], a2, 
     n] - S2[a3, n]*S2[a1, a1, a4, a2, a2, n] - 
    (S2[a2, n]*S2[a1, a1, a4, a2, a3, n])/2 + 
    S2[a1, a1, a4, a2, SP[a2, a3], n]/2 - 
    (S2[a2, n]*S2[a1, a1, a4, a3, a2, n])/2 - 
    S2[a1, a1, a4, a3, SP[a2, a2], n]/2 - S2[a1, a1, a4, SP[a2, a2], a3, n]/
     2 + S2[a1, a1, a4, SP[a2, a3], a2, n]/2 - 
    S2[a1, a1, SP[a2, a2], a4, a3, n]/2 + 
    (3*S2[a1, a1, SP[a2, a4], a2, a3, n])/2 + 
    (3*S2[a1, a1, SP[a2, a4], a3, a2, n])/2 - S2[a1, a1, SP[a3, a4], a2, a2, 
     n] - (S2[a2, n]*S2[a1, a2, a1, a4, a3, n])/2 + 
    S2[a1, a2, a1, a4, SP[a2, a3], n]/2 + S2[a1, a2, a1, SP[a2, a4], a3, n]/
     2 + S2[a1, a2, SP[a1, a2], a4, a3, n]/2 + S2[a1, a3, a1, a2, SP[a2, a4], 
     n] + S2[a1, a3, a1, SP[a2, a4], a2, n] + S2[a1, a3, SP[a1, a4], a2, a2, 
     n] - S2[a3, n]*S2[a1, a4, a1, a2, a2, n] + 
    S2[a1, SP[a1, a2], a2, a4, a3, n]/2 + S2[a1, SP[a1, a2], a4, a2, a3, n]/
     2 + S2[a1, SP[a1, a2], a4, a3, a2, n]/2 + S2[a1, SP[a1, a4], a2, a2, a3, 
     n] + S2[a1, SP[a1, a4], a2, a3, a2, n] + S2[a1, SP[a1, a4], a3, a2, a2, 
     n] - S2[a1, SP[a2, a2], a1, a4, a3, n]/2 - S2[a1, SP[a3, a4], a1, a2, 
     a2, n] + (S2[a2, n]*S2[a2, a1, a1, a4, a3, n])/2 + 
    S2[a2, a1, a1, a4, SP[a2, a3], n]/2 + S2[a2, a1, a1, SP[a2, a4], a3, n]/
     2 + S2[a2, a1, SP[a1, a2], a4, a3, n]/2 + 
    S2[a2, SP[a1, a2], a1, a4, a3, n]/2 + S2[a3, a1, a1, a2, SP[a2, a4], n] + 
    S2[a3, a1, a1, SP[a2, a4], a2, n] + S2[a3, a1, SP[a1, a4], a2, a2, n] + 
    S2[a3, SP[a1, a4], a1, a2, a2, n] - S2[a3, n]*S2[a4, a1, a1, a2, a2, n] - 
    S2[a4, a1, a1, a2, SP[a2, a3], n] - S2[a4, a1, a1, SP[a2, a3], a2, n] - 
    S2[a4, a1, SP[a1, a3], a2, a2, n] - S2[a4, SP[a1, a3], a1, a2, a2, n] + 
    S2[SP[a1, a1], a2, a2, a4, a3, n] + S2[SP[a1, a1], a2, a4, a2, a3, n] + 
    S2[SP[a1, a1], a2, a4, a3, a2, n] + S2[SP[a1, a1], a4, a2, a2, a3, n] + 
    S2[SP[a1, a1], a4, a2, a3, a2, n] + S2[SP[a1, a1], a4, a3, a2, a2, n] - 
    S2[SP[a1, a2], a1, a2, a4, a3, n]/2 - S2[SP[a1, a2], a1, a4, a2, a3, n]/
     2 - S2[SP[a1, a2], a1, a4, a3, a2, n]/2 - 
    S2[SP[a1, a2], a2, a1, a4, a3, n]/2 + S2[SP[a2, a2], a1, a1, a4, a3, n]/
     2 - S2[SP[a3, a4], a1, a1, a2, a2, n] + S2[a4, a1, a1, a2, a2, a3, n] + 
    S2[a4, a1, a1, a2, a3, a2, n] + S2[a4, a1, a1, a3, a2, a2, n] + 
    S2[a4, a1, a3, a1, a2, a2, n] + S2[a4, a3, a1, a1, a2, a2, n] /; 
   MyMemberQ[{{a1, a2}, {a3, a4}}, {a1, a1, a2, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a2_, a2_, a1_, a3_, a1_, a4_, n_] :> 
  -(S2[a1, a2, a2, n]*S2[a1, a3, a4, n]) - S2[a1, a2, a2, n]*
     S2[a1, a4, a3, n] - S2[SP[a1, a1], SP[a2, a3], SP[a2, a4], n] - 
    S2[SP[a1, a1], SP[a2, a4], SP[a2, a3], n] + 
    2*S2[a1, a1, SP[a2, a3], SP[a2, a4], n] + 
    2*S2[a1, a1, SP[a2, a4], SP[a2, a3], n] + 
    S2[a1, a4, n]*S2[a1, a2, a2, a3, n] + S2[a1, a4, n]*
     S2[a1, a2, a3, a2, n] - S2[a1, a2, SP[a1, a2], SP[a3, a4], n] - 
    S2[a1, a2, SP[a1, a3], SP[a2, a4], n] + S2[a1, a4, n]*
     S2[a1, a3, a2, a2, n] - S2[a1, a3, SP[a1, a2], SP[a2, a4], n] - 
    S2[a1, SP[a1, a2], a2, SP[a3, a4], n] + S2[a1, SP[a1, a2], a4, 
     SP[a2, a3], n] + S2[a1, SP[a1, a2], SP[a2, a3], a4, n] - 
    S2[a1, SP[a1, a2], SP[a3, a4], a2, n] + S2[a1, SP[a1, a4], a2, 
     SP[a2, a3], n] + S2[a1, SP[a1, a4], SP[a2, a3], a2, n] - 
    S2[SP[a1, a1], a2, a2, SP[a3, a4], n] + S2[SP[a1, a1], a2, a4, 
     SP[a2, a3], n] + S2[SP[a1, a1], a2, SP[a2, a3], a4, n] - 
    S2[SP[a1, a1], a2, SP[a3, a4], a2, n] + S2[SP[a1, a1], a4, a2, 
     SP[a2, a3], n] + S2[SP[a1, a1], a4, SP[a2, a3], a2, n] + 
    S2[SP[a1, a1], SP[a2, a3], a2, a4, n] + S2[SP[a1, a1], SP[a2, a3], a4, 
     a2, n] - S2[SP[a1, a1], SP[a3, a4], a2, a2, n] + 
    2*S2[a1, a1, a2, a2, SP[a3, a4], n] - 
    2*S2[a1, a1, a2, a4, SP[a2, a3], n] - 
    2*S2[a1, a1, a2, SP[a2, a3], a4, n] + 
    2*S2[a1, a1, a2, SP[a3, a4], a2, n] - 
    2*S2[a1, a1, a4, a2, SP[a2, a3], n] - 
    2*S2[a1, a1, a4, SP[a2, a3], a2, n] - 
    2*S2[a1, a1, SP[a2, a3], a2, a4, n] - 
    2*S2[a1, a1, SP[a2, a3], a4, a2, n] + 
    2*S2[a1, a1, SP[a3, a4], a2, a2, n] + S2[a1, a2, a1, a2, SP[a3, a4], n] - 
    S2[a1, a2, a1, a4, SP[a2, a3], n] - S2[a1, a2, a1, SP[a2, a3], a4, n] + 
    S2[a1, a2, a1, SP[a3, a4], a2, n] + S2[a1, a2, a2, a1, SP[a3, a4], n] + 
    S2[a1, a2, a2, SP[a1, a3], a4, n] - (S2[a2, n]*S2[a1, a2, a3, a1, a4, n])/
     2 + S2[a1, a2, a3, a1, SP[a2, a4], n]/2 + 
    S2[a1, a2, a3, SP[a1, a2], a4, n]/2 + S2[a1, a2, SP[a1, a3], a2, a4, n] + 
    S2[a1, a2, SP[a1, a3], a4, a2, n] - S2[a1, a2, SP[a2, a3], a1, a4, n]/2 + 
    S2[a4, n]*S2[a1, a3, a1, a2, a2, n] - 
    (S2[a2, n]*S2[a1, a3, a1, a2, a4, n])/2 + 
    S2[a1, a3, a1, a2, SP[a2, a4], n]/2 - 
    (S2[a2, n]*S2[a1, a3, a1, a4, a2, n])/2 - 
    S2[a1, a3, a1, a4, SP[a2, a2], n]/2 - S2[a1, a3, a1, SP[a2, a2], a4, n]/
     2 + S2[a1, a3, a1, SP[a2, a4], a2, n]/2 - 
    (S2[a2, n]*S2[a1, a3, a2, a1, a4, n])/2 + 
    S2[a1, a3, a2, a1, SP[a2, a4], n]/2 + S2[a1, a3, a2, SP[a1, a2], a4, n]/
     2 + S2[a1, a3, SP[a1, a2], a2, a4, n]/2 + 
    S2[a1, a3, SP[a1, a2], a4, a2, n]/2 - S2[a1, a3, SP[a2, a2], a1, a4, n]/
     2 - S2[a1, a4, a1, a2, SP[a2, a3], n] - S2[a1, a4, a1, SP[a2, a3], a2, 
     n] - S2[a1, a4, SP[a1, a3], a2, a2, n] - 
    S2[a1, SP[a2, a2], a3, a1, a4, n]/2 - S2[a1, SP[a2, a3], a1, a2, a4, n]/
     2 - S2[a1, SP[a2, a3], a1, a4, a2, n]/2 - 
    S2[a1, SP[a2, a3], a2, a1, a4, n]/2 + S2[a1, SP[a3, a4], a1, a2, a2, n] + 
    (S2[a2, n]*S2[a2, a1, a3, a1, a4, n])/2 + 
    S2[a2, a1, a3, a1, SP[a2, a4], n]/2 + S2[a2, a1, a3, SP[a1, a2], a4, n]/
     2 + S2[a2, a1, SP[a2, a3], a1, a4, n]/2 + 
    S2[a2, SP[a1, a2], a3, a1, a4, n]/2 - S2[SP[a1, a2], a2, a3, a1, a4, n]/
     2 - S2[SP[a1, a2], a3, a1, a2, a4, n]/2 - 
    S2[SP[a1, a2], a3, a1, a4, a2, n]/2 - S2[SP[a1, a2], a3, a2, a1, a4, n]/
     2 + S2[SP[a1, a4], a3, a1, a2, a2, n] + 
    S2[SP[a2, a2], a1, a3, a1, a4, n]/2 - S2[a4, a1, a3, a1, a2, a2, n] /; 
   MyMemberQ[{{a1, a2}, {a3, a4}}, {a1, a1, a2, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a2_, a2_, a1_, a3_, a4_, a1_, n_] :> 
  S2[a1, a2, a2, n]*S2[a1, a4, a3, n] + S2[SP[a1, a1], SP[a2, a4], 
     SP[a2, a3], n] - 2*S2[a1, a1, SP[a2, a4], SP[a2, a3], n] - 
    S2[a1, a4, n]*S2[a1, a2, a2, a3, n] - S2[a1, a4, n]*
     S2[a1, a2, a3, a2, n] + S2[a1, a2, SP[a1, a2], SP[a3, a4], n] + 
    S2[a1, a2, SP[a1, a3], SP[a2, a4], n] - S2[a1, a4, n]*
     S2[a1, a3, a2, a2, n] + S2[a1, a3, SP[a1, a2], SP[a2, a4], n] + 
    S2[a1, SP[a1, a2], a2, SP[a3, a4], n] + S2[a1, SP[a1, a2], a3, 
     SP[a2, a4], n] - S2[a1, SP[a1, a2], a4, SP[a2, a3], n] + 
    S2[a1, SP[a1, a2], SP[a3, a4], a2, n] + S2[a1, SP[a1, a3], a2, 
     SP[a2, a4], n] + S2[a1, SP[a1, a3], SP[a2, a4], a2, n] - 
    S2[a1, SP[a1, a4], a2, SP[a2, a3], n] - S2[a1, SP[a1, a4], SP[a2, a3], 
     a2, n] + S2[SP[a1, a1], a2, a2, SP[a3, a4], n] + 
    S2[SP[a1, a1], a2, a3, SP[a2, a4], n] - S2[SP[a1, a1], a2, a4, 
     SP[a2, a3], n] + S2[SP[a1, a1], a2, SP[a3, a4], a2, n] + 
    S2[SP[a1, a1], a3, a2, SP[a2, a4], n] + S2[SP[a1, a1], a3, SP[a2, a4], 
     a2, n] - S2[SP[a1, a1], a4, a2, SP[a2, a3], n] - 
    S2[SP[a1, a1], a4, SP[a2, a3], a2, n] + S2[SP[a1, a1], SP[a3, a4], a2, 
     a2, n] - 2*S2[a1, a1, a2, a2, SP[a3, a4], n] + 
    S2[a2, n]*S2[a1, a1, a2, a3, a4, n] - S2[a1, a1, a2, a3, SP[a2, a4], n] + 
    2*S2[a1, a1, a2, a4, SP[a2, a3], n] + S2[a1, a1, a2, SP[a2, a3], a4, n] - 
    2*S2[a1, a1, a2, SP[a3, a4], a2, n] + 
    S2[a2, n]*S2[a1, a1, a3, a2, a4, n] - S2[a1, a1, a3, a2, SP[a2, a4], n] + 
    S2[a2, n]*S2[a1, a1, a3, a4, a2, n] + S2[a1, a1, a3, a4, SP[a2, a2], n] + 
    S2[a1, a1, a3, SP[a2, a2], a4, n] - S2[a1, a1, a3, SP[a2, a4], a2, n] + 
    2*S2[a1, a1, a4, a2, SP[a2, a3], n] + 
    2*S2[a1, a1, a4, SP[a2, a3], a2, n] + S2[a1, a1, SP[a2, a2], a3, a4, n] + 
    S2[a1, a1, SP[a2, a3], a2, a4, n] + S2[a1, a1, SP[a2, a3], a4, a2, n] - 
    2*S2[a1, a1, SP[a3, a4], a2, a2, n] - S2[a1, a2, a1, a2, SP[a3, a4], n] - 
    S2[a1, a2, a1, a3, SP[a2, a4], n] + S2[a1, a2, a1, a4, SP[a2, a3], n] - 
    S2[a1, a2, a1, SP[a3, a4], a2, n] - S2[a1, a2, a2, a1, SP[a3, a4], n] - 
    S2[a1, a2, a2, SP[a1, a3], a4, n] + (S2[a2, n]*S2[a1, a2, a3, a1, a4, n])/
     2 - S2[a1, a2, a3, a1, SP[a2, a4], n]/2 - 
    S2[a1, a2, a3, SP[a1, a2], a4, n]/2 - S2[a1, a2, SP[a1, a2], a3, a4, n] - 
    S2[a1, a2, SP[a1, a3], a2, a4, n] - S2[a1, a2, SP[a1, a3], a4, a2, n] + 
    S2[a1, a2, SP[a2, a3], a1, a4, n]/2 + 
    (S2[a2, n]*S2[a1, a3, a1, a2, a4, n])/2 - 
    S2[a1, a3, a1, a2, SP[a2, a4], n]/2 + 
    (S2[a2, n]*S2[a1, a3, a1, a4, a2, n])/2 + 
    S2[a1, a3, a1, a4, SP[a2, a2], n]/2 + S2[a1, a3, a1, SP[a2, a2], a4, n]/
     2 - S2[a1, a3, a1, SP[a2, a4], a2, n]/2 + 
    (S2[a2, n]*S2[a1, a3, a2, a1, a4, n])/2 - 
    S2[a1, a3, a2, a1, SP[a2, a4], n]/2 - S2[a1, a3, a2, SP[a1, a2], a4, n]/
     2 - S2[a1, a3, SP[a1, a2], a2, a4, n]/2 - 
    S2[a1, a3, SP[a1, a2], a4, a2, n]/2 + S2[a1, a3, SP[a2, a2], a1, a4, n]/
     2 + S2[a1, a4, a1, a2, SP[a2, a3], n] + S2[a1, a4, a1, SP[a2, a3], a2, 
     n] + S2[a1, a4, SP[a1, a3], a2, a2, n] - S2[a1, SP[a1, a3], a2, a2, a4, 
     n] - S2[a1, SP[a1, a3], a2, a4, a2, n] - S2[a1, SP[a1, a3], a4, a2, a2, 
     n] + S2[a1, SP[a2, a2], a3, a1, a4, n]/2 + 
    S2[a1, SP[a2, a3], a1, a2, a4, n]/2 + S2[a1, SP[a2, a3], a1, a4, a2, n]/
     2 + S2[a1, SP[a2, a3], a2, a1, a4, n]/2 - 
    S2[a2, n]*S2[a2, a1, a1, a3, a4, n] - S2[a2, a1, a1, a3, SP[a2, a4], n] - 
    S2[a2, a1, a1, SP[a2, a3], a4, n] - (S2[a2, n]*S2[a2, a1, a3, a1, a4, n])/
     2 - S2[a2, a1, a3, a1, SP[a2, a4], n]/2 - 
    S2[a2, a1, a3, SP[a1, a2], a4, n]/2 - S2[a2, a1, SP[a1, a2], a3, a4, n] - 
    S2[a2, a1, SP[a2, a3], a1, a4, n]/2 + 
    S2[a1, n]*S2[a2, a2, a1, a3, a4, n] + S2[a2, a2, a1, a3, SP[a1, a4], n] + 
    S2[a2, a2, a1, SP[a1, a3], a4, n] + S2[a2, a2, SP[a1, a1], a3, a4, n] - 
    S2[a2, SP[a1, a2], a3, a1, a4, n]/2 - 
    S2[a1, n]*S2[a4, a3, a1, a2, a2, n] - S2[a4, a3, a1, a2, SP[a1, a2], n] - 
    S2[a4, a3, a1, SP[a1, a2], a2, n] - S2[a4, a3, SP[a1, a1], a2, a2, n] - 
    S2[a4, SP[a1, a3], a1, a2, a2, n] - S2[SP[a1, a1], a2, a2, a3, a4, n] - 
    S2[SP[a1, a1], a2, a3, a2, a4, n] - S2[SP[a1, a1], a2, a3, a4, a2, n] - 
    S2[SP[a1, a1], a3, a2, a2, a4, n] - S2[SP[a1, a1], a3, a2, a4, a2, n] - 
    S2[SP[a1, a1], a3, a4, a2, a2, n] + S2[SP[a1, a2], a1, a2, a3, a4, n] + 
    S2[SP[a1, a2], a1, a3, a2, a4, n] + S2[SP[a1, a2], a1, a3, a4, a2, n] + 
    S2[SP[a1, a2], a2, a1, a3, a4, n] + S2[SP[a1, a2], a2, a3, a1, a4, n]/2 + 
    S2[SP[a1, a2], a3, a1, a2, a4, n]/2 + S2[SP[a1, a2], a3, a1, a4, a2, n]/
     2 + S2[SP[a1, a2], a3, a2, a1, a4, n]/2 - S2[SP[a1, a4], a3, a1, a2, a2, 
     n] - S2[SP[a2, a2], a1, a1, a3, a4, n] - 
    S2[SP[a2, a2], a1, a3, a1, a4, n]/2 + S2[a4, a1, a3, a1, a2, a2, n] + 
    2*S2[a4, a3, a1, a1, a2, a2, n] + S2[a4, a3, a1, a2, a1, a2, n] + 
    S2[a4, a3, a1, a2, a2, a1, n] /; MyMemberQ[{{a1, a2}, {a3, a4}}, 
     {a1, a1, a2, a2, a3, a4}] && a1 != a2 != a3 != a4, 
 S2[a2_, a2_, a1_, a4_, a1_, a3_, n_] :> 
  -(S2[a1, a2, a2, n]*S2[a1, a3, a4, n]) - S2[a1, a2, a2, n]*
     S2[a1, a4, a3, n] - S2[SP[a1, a1], SP[a2, a3], SP[a2, a4], n] - 
    S2[SP[a1, a1], SP[a2, a4], SP[a2, a3], n] + 
    2*S2[a1, a1, SP[a2, a3], SP[a2, a4], n] + 
    2*S2[a1, a1, SP[a2, a4], SP[a2, a3], n] + S2[a1, SP[a1, a2], a3, 
     SP[a2, a4], n] + S2[a1, SP[a1, a2], a4, SP[a2, a3], n] + 
    S2[a1, SP[a1, a2], SP[a2, a3], a4, n] + S2[a1, SP[a1, a2], SP[a2, a4], 
     a3, n] + S2[a1, SP[a1, a3], a2, SP[a2, a4], n] + 
    S2[a1, SP[a1, a3], SP[a2, a4], a2, n] + S2[a1, SP[a1, a4], a2, 
     SP[a2, a3], n] + S2[a1, SP[a1, a4], SP[a2, a3], a2, n] + 
    S2[SP[a1, a1], a2, a3, SP[a2, a4], n] + S2[SP[a1, a1], a2, a4, 
     SP[a2, a3], n] + S2[SP[a1, a1], a2, SP[a2, a3], a4, n] + 
    S2[SP[a1, a1], a2, SP[a2, a4], a3, n] + S2[SP[a1, a1], a3, a2, 
     SP[a2, a4], n] + S2[SP[a1, a1], a3, SP[a2, a4], a2, n] + 
    S2[SP[a1, a1], a4, a2, SP[a2, a3], n] + S2[SP[a1, a1], a4, SP[a2, a3], 
     a2, n] + S2[SP[a1, a1], SP[a2, a3], a2, a4, n] + 
    S2[SP[a1, a1], SP[a2, a3], a4, a2, n] + S2[SP[a1, a1], SP[a2, a4], a2, 
     a3, n] + S2[SP[a1, a1], SP[a2, a4], a3, a2, n] + 
    2*S2[a4, n]*S2[a1, a1, a2, a2, a3, n] + 
    2*S2[a1, a1, a2, a2, SP[a3, a4], n] + 
    2*S2[a4, n]*S2[a1, a1, a2, a3, a2, n] - 
    2*S2[a1, a1, a2, a4, SP[a2, a3], n] - 
    2*S2[a1, a1, a2, SP[a2, a3], a4, n] + 
    2*S2[a1, a1, a2, SP[a3, a4], a2, n] + 
    2*S2[a4, n]*S2[a1, a1, a3, a2, a2, n] - 
    2*S2[a1, a1, a4, a2, SP[a2, a3], n] - 
    2*S2[a1, a1, a4, SP[a2, a3], a2, n] - 
    2*S2[a1, a1, SP[a2, a3], a2, a4, n] - 
    2*S2[a1, a1, SP[a2, a3], a4, a2, n] + 
    2*S2[a1, a1, SP[a3, a4], a2, a2, n] + 
    S2[a4, n]*S2[a1, a2, a1, a2, a3, n] + S2[a1, a2, a1, a2, SP[a3, a4], n] + 
    S2[a4, n]*S2[a1, a2, a1, a3, a2, n] - S2[a1, a2, a1, a4, SP[a2, a3], n] - 
    S2[a1, a2, a1, SP[a2, a3], a4, n] + S2[a1, a2, a1, SP[a3, a4], a2, n] + 
    S2[a4, n]*S2[a1, a2, a2, a1, a3, n] + S2[a1, a2, a2, a1, SP[a3, a4], n] + 
    S2[a1, a2, a2, SP[a1, a4], a3, n] - (S2[a2, n]*S2[a1, a2, a4, a1, a3, n])/
     2 - S2[a1, a2, a4, a1, SP[a2, a3], n]/2 - 
    S2[a1, a2, a4, SP[a1, a2], a3, n]/2 - S2[a1, a2, SP[a1, a2], a3, a4, n] - 
    S2[a1, a2, SP[a1, a2], a4, a3, n] + S2[a1, a2, SP[a1, a4], a2, a3, n] + 
    S2[a1, a2, SP[a1, a4], a3, a2, n] + S2[a1, a2, SP[a2, a4], a1, a3, n]/2 + 
    S2[a4, n]*S2[a1, a3, a1, a2, a2, n] - 
    (S2[a2, n]*S2[a1, a4, a1, a2, a3, n])/2 - 
    (3*S2[a1, a4, a1, a2, SP[a2, a3], n])/2 - 
    (S2[a2, n]*S2[a1, a4, a1, a3, a2, n])/2 - 
    S2[a1, a4, a1, a3, SP[a2, a2], n]/2 - S2[a1, a4, a1, SP[a2, a2], a3, n]/
     2 - (3*S2[a1, a4, a1, SP[a2, a3], a2, n])/2 - 
    (S2[a2, n]*S2[a1, a4, a2, a1, a3, n])/2 - 
    S2[a1, a4, a2, a1, SP[a2, a3], n]/2 - S2[a1, a4, a2, SP[a1, a2], a3, n]/
     2 - S2[a1, a4, SP[a1, a2], a2, a3, n]/2 - 
    S2[a1, a4, SP[a1, a2], a3, a2, n]/2 - S2[a1, a4, SP[a1, a3], a2, a2, n] - 
    S2[a1, a4, SP[a2, a2], a1, a3, n]/2 - S2[a1, SP[a1, a2], a2, a3, a4, n] - 
    S2[a1, SP[a1, a2], a2, a4, a3, n] - S2[a1, SP[a1, a2], a3, a2, a4, n] - 
    S2[a1, SP[a1, a2], a3, a4, a2, n] - S2[a1, SP[a1, a2], a4, a2, a3, n] - 
    S2[a1, SP[a1, a2], a4, a3, a2, n] - S2[a1, SP[a1, a3], a2, a2, a4, n] - 
    S2[a1, SP[a1, a3], a2, a4, a2, n] - S2[a1, SP[a1, a3], a4, a2, a2, n] + 
    S2[a1, SP[a1, a4], a2, a2, a3, n] + S2[a1, SP[a1, a4], a2, a3, a2, n] + 
    S2[a1, SP[a1, a4], a3, a2, a2, n] - S2[a1, SP[a2, a2], a4, a1, a3, n]/2 + 
    S2[a1, SP[a2, a4], a1, a2, a3, n]/2 + S2[a1, SP[a2, a4], a1, a3, a2, n]/
     2 + S2[a1, SP[a2, a4], a2, a1, a3, n]/2 + S2[a1, SP[a3, a4], a1, a2, a2, 
     n] + (S2[a2, n]*S2[a2, a1, a4, a1, a3, n])/2 + 
    S2[a2, a1, a4, a1, SP[a2, a3], n]/2 + S2[a2, a1, a4, SP[a1, a2], a3, n]/
     2 + S2[a2, a1, SP[a2, a4], a1, a3, n]/2 + 
    S2[a2, SP[a1, a2], a4, a1, a3, n]/2 - S2[SP[a1, a1], a2, a2, a3, a4, n] - 
    S2[SP[a1, a1], a2, a2, a4, a3, n] - S2[SP[a1, a1], a2, a3, a2, a4, n] - 
    S2[SP[a1, a1], a2, a3, a4, a2, n] - S2[SP[a1, a1], a2, a4, a2, a3, n] - 
    S2[SP[a1, a1], a2, a4, a3, a2, n] - S2[SP[a1, a1], a3, a2, a2, a4, n] - 
    S2[SP[a1, a1], a3, a2, a4, a2, n] - S2[SP[a1, a1], a3, a4, a2, a2, n] - 
    S2[SP[a1, a1], a4, a2, a2, a3, n] - S2[SP[a1, a1], a4, a2, a3, a2, n] - 
    S2[SP[a1, a1], a4, a3, a2, a2, n] - S2[SP[a1, a2], a2, a4, a1, a3, n]/2 - 
    S2[SP[a1, a2], a4, a1, a2, a3, n]/2 - S2[SP[a1, a2], a4, a1, a3, a2, n]/
     2 - S2[SP[a1, a2], a4, a2, a1, a3, n]/2 + 
    2*S2[SP[a1, a4], a1, a2, a2, a3, n] + 
    2*S2[SP[a1, a4], a1, a2, a3, a2, n] + 
    2*S2[SP[a1, a4], a1, a3, a2, a2, n] + S2[SP[a1, a4], a2, a1, a2, a3, n] + 
    S2[SP[a1, a4], a2, a1, a3, a2, n] + S2[SP[a1, a4], a2, a2, a1, a3, n] + 
    S2[SP[a1, a4], a3, a1, a2, a2, n] + S2[SP[a2, a2], a1, a4, a1, a3, n]/2 - 
    2*S2[a4, a1, a1, a2, a2, a3, n] - 2*S2[a4, a1, a1, a2, a3, a2, n] - 
    2*S2[a4, a1, a1, a3, a2, a2, n] - S2[a4, a1, a2, a1, a2, a3, n] - 
    S2[a4, a1, a2, a1, a3, a2, n] - S2[a4, a1, a2, a2, a1, a3, n] - 
    S2[a4, a1, a3, a1, a2, a2, n] /; MyMemberQ[{{a1, a2}, {a3, a4}}, 
     {a1, a1, a2, a2, a3, a4}] && a1 != a2 != a3 != a4, 
 S2[a2_, a2_, a1_, a4_, a3_, a1_, n_] :> 
  S2[a1, a2, a2, n]*S2[a1, a3, a4, n] + S2[SP[a1, a1], SP[a2, a3], 
     SP[a2, a4], n] - 2*S2[a1, a1, SP[a2, a3], SP[a2, a4], n] - 
    S2[a1, SP[a1, a2], a3, SP[a2, a4], n] - S2[a1, SP[a1, a2], SP[a2, a3], 
     a4, n] - S2[a1, SP[a1, a3], a2, SP[a2, a4], n] - 
    S2[a1, SP[a1, a3], SP[a2, a4], a2, n] - S2[SP[a1, a1], a2, a3, 
     SP[a2, a4], n] - S2[SP[a1, a1], a2, SP[a2, a3], a4, n] - 
    S2[SP[a1, a1], a3, a2, SP[a2, a4], n] - S2[SP[a1, a1], a3, SP[a2, a4], 
     a2, n] - S2[SP[a1, a1], SP[a2, a3], a2, a4, n] - 
    S2[SP[a1, a1], SP[a2, a3], a4, a2, n] - 
    2*S2[a4, n]*S2[a1, a1, a2, a2, a3, n] - 
    2*S2[a1, a1, a2, a2, SP[a3, a4], n] - 
    2*S2[a4, n]*S2[a1, a1, a2, a3, a2, n] + 
    S2[a2, n]*S2[a1, a1, a2, a4, a3, n] + S2[a1, a1, a2, a4, SP[a2, a3], n] + 
    2*S2[a1, a1, a2, SP[a2, a3], a4, n] - S2[a1, a1, a2, SP[a2, a4], a3, n] - 
    2*S2[a1, a1, a2, SP[a3, a4], a2, n] - 
    2*S2[a4, n]*S2[a1, a1, a3, a2, a2, n] + 
    S2[a2, n]*S2[a1, a1, a4, a2, a3, n] + S2[a1, a1, a4, a2, SP[a2, a3], n] + 
    S2[a2, n]*S2[a1, a1, a4, a3, a2, n] + S2[a1, a1, a4, a3, SP[a2, a2], n] + 
    S2[a1, a1, a4, SP[a2, a2], a3, n] + S2[a1, a1, a4, SP[a2, a3], a2, n] + 
    S2[a1, a1, SP[a2, a2], a4, a3, n] + 2*S2[a1, a1, SP[a2, a3], a2, a4, n] + 
    2*S2[a1, a1, SP[a2, a3], a4, a2, n] - S2[a1, a1, SP[a2, a4], a2, a3, n] - 
    S2[a1, a1, SP[a2, a4], a3, a2, n] - 2*S2[a1, a1, SP[a3, a4], a2, a2, n] - 
    S2[a4, n]*S2[a1, a2, a1, a2, a3, n] - S2[a1, a2, a1, a2, SP[a3, a4], n] - 
    S2[a4, n]*S2[a1, a2, a1, a3, a2, n] + S2[a1, a2, a1, SP[a2, a3], a4, n] - 
    S2[a1, a2, a1, SP[a2, a4], a3, n] - S2[a1, a2, a1, SP[a3, a4], a2, n] - 
    S2[a4, n]*S2[a1, a2, a2, a1, a3, n] - S2[a1, a2, a2, a1, SP[a3, a4], n] - 
    S2[a1, a2, a2, SP[a1, a4], a3, n] + (S2[a2, n]*S2[a1, a2, a4, a1, a3, n])/
     2 + S2[a1, a2, a4, a1, SP[a2, a3], n]/2 + 
    S2[a1, a2, a4, SP[a1, a2], a3, n]/2 + S2[a1, a2, SP[a1, a2], a3, a4, n] - 
    S2[a1, a2, SP[a1, a4], a2, a3, n] - S2[a1, a2, SP[a1, a4], a3, a2, n] - 
    S2[a1, a2, SP[a2, a4], a1, a3, n]/2 - 
    S2[a4, n]*S2[a1, a3, a1, a2, a2, n] + 
    (S2[a2, n]*S2[a1, a4, a1, a2, a3, n])/2 + 
    S2[a1, a4, a1, a2, SP[a2, a3], n]/2 + 
    (S2[a2, n]*S2[a1, a4, a1, a3, a2, n])/2 + 
    S2[a1, a4, a1, a3, SP[a2, a2], n]/2 + S2[a1, a4, a1, SP[a2, a2], a3, n]/
     2 + S2[a1, a4, a1, SP[a2, a3], a2, n]/2 + 
    (S2[a2, n]*S2[a1, a4, a2, a1, a3, n])/2 + 
    S2[a1, a4, a2, a1, SP[a2, a3], n]/2 + S2[a1, a4, a2, SP[a1, a2], a3, n]/
     2 + S2[a1, a4, SP[a1, a2], a2, a3, n]/2 + 
    S2[a1, a4, SP[a1, a2], a3, a2, n]/2 + S2[a1, a4, SP[a2, a2], a1, a3, n]/
     2 + S2[a1, SP[a1, a2], a2, a3, a4, n] + S2[a1, SP[a1, a2], a2, a4, a3, 
     n] + S2[a1, SP[a1, a2], a3, a2, a4, n] + S2[a1, SP[a1, a2], a3, a4, a2, 
     n] + S2[a1, SP[a1, a2], a4, a2, a3, n] + S2[a1, SP[a1, a2], a4, a3, a2, 
     n] + S2[a1, SP[a1, a3], a2, a2, a4, n] + S2[a1, SP[a1, a3], a2, a4, a2, 
     n] + S2[a1, SP[a1, a3], a4, a2, a2, n] - 
    2*S2[a1, SP[a1, a4], a2, a2, a3, n] - 
    2*S2[a1, SP[a1, a4], a2, a3, a2, n] - 
    2*S2[a1, SP[a1, a4], a3, a2, a2, n] + S2[a1, SP[a2, a2], a4, a1, a3, n]/
     2 - S2[a1, SP[a2, a4], a1, a2, a3, n]/2 - 
    S2[a1, SP[a2, a4], a1, a3, a2, n]/2 - S2[a1, SP[a2, a4], a2, a1, a3, n]/
     2 - S2[a1, SP[a3, a4], a1, a2, a2, n] - 
    S2[a2, n]*S2[a2, a1, a1, a4, a3, n] - S2[a2, a1, a1, a4, SP[a2, a3], n] - 
    S2[a2, a1, a1, SP[a2, a4], a3, n] - (S2[a2, n]*S2[a2, a1, a4, a1, a3, n])/
     2 - S2[a2, a1, a4, a1, SP[a2, a3], n]/2 - 
    S2[a2, a1, a4, SP[a1, a2], a3, n]/2 - S2[a2, a1, SP[a1, a2], a4, a3, n] - 
    S2[a2, a1, SP[a2, a4], a1, a3, n]/2 + 
    S2[a1, n]*S2[a2, a2, a1, a4, a3, n] + S2[a2, a2, a1, a4, SP[a1, a3], n] + 
    S2[a2, a2, a1, SP[a1, a4], a3, n] + S2[a2, a2, SP[a1, a1], a4, a3, n] - 
    S2[a2, SP[a1, a2], a4, a1, a3, n]/2 + 
    S2[a1, n]*S2[a4, a1, a2, a2, a3, n] + S2[a4, a1, a2, a2, SP[a1, a3], n] + 
    S2[a1, n]*S2[a4, a1, a2, a3, a2, n] + S2[a4, a1, a2, a3, SP[a1, a2], n] + 
    S2[a4, a1, a2, SP[a1, a2], a3, n] + S2[a4, a1, a2, SP[a1, a3], a2, n] + 
    S2[a1, n]*S2[a4, a1, a3, a2, a2, n] + S2[a4, a1, a3, a2, SP[a1, a2], n] + 
    S2[a4, a1, a3, SP[a1, a2], a2, n] + S2[a4, a1, SP[a1, a2], a2, a3, n] + 
    S2[a4, a1, SP[a1, a2], a3, a2, n] + S2[a4, a1, SP[a1, a3], a2, a2, n] + 
    S2[a1, n]*S2[a4, a3, a1, a2, a2, n] + S2[a4, a3, a1, a2, SP[a1, a2], n] + 
    S2[a4, a3, a1, SP[a1, a2], a2, n] + S2[a4, a3, SP[a1, a1], a2, a2, n] + 
    S2[a4, SP[a1, a1], a2, a2, a3, n] + S2[a4, SP[a1, a1], a2, a3, a2, n] + 
    S2[a4, SP[a1, a1], a3, a2, a2, n] + S2[a4, SP[a1, a3], a1, a2, a2, n] + 
    S2[SP[a1, a1], a2, a2, a3, a4, n] + S2[SP[a1, a1], a2, a3, a2, a4, n] + 
    S2[SP[a1, a1], a2, a3, a4, a2, n] + S2[SP[a1, a1], a3, a2, a2, a4, n] + 
    S2[SP[a1, a1], a3, a2, a4, a2, n] + S2[SP[a1, a1], a3, a4, a2, a2, n] + 
    S2[SP[a1, a2], a1, a2, a4, a3, n] + S2[SP[a1, a2], a1, a4, a2, a3, n] + 
    S2[SP[a1, a2], a1, a4, a3, a2, n] + S2[SP[a1, a2], a2, a1, a4, a3, n] + 
    S2[SP[a1, a2], a2, a4, a1, a3, n]/2 + S2[SP[a1, a2], a4, a1, a2, a3, n]/
     2 + S2[SP[a1, a2], a4, a1, a3, a2, n]/2 + 
    S2[SP[a1, a2], a4, a2, a1, a3, n]/2 - S2[SP[a1, a4], a1, a2, a2, a3, n] - 
    S2[SP[a1, a4], a1, a2, a3, a2, n] - S2[SP[a1, a4], a1, a3, a2, a2, n] - 
    S2[SP[a1, a4], a2, a1, a2, a3, n] - S2[SP[a1, a4], a2, a1, a3, a2, n] - 
    S2[SP[a1, a4], a2, a2, a1, a3, n] - S2[SP[a2, a2], a1, a1, a4, a3, n] - 
    S2[SP[a2, a2], a1, a4, a1, a3, n]/2 - S2[a4, a1, a2, a2, a3, a1, n] - 
    S2[a4, a1, a2, a3, a1, a2, n] - S2[a4, a1, a2, a3, a2, a1, n] - 
    S2[a4, a1, a3, a1, a2, a2, n] - S2[a4, a1, a3, a2, a1, a2, n] - 
    S2[a4, a1, a3, a2, a2, a1, n] - 2*S2[a4, a3, a1, a1, a2, a2, n] - 
    S2[a4, a3, a1, a2, a1, a2, n] - S2[a4, a3, a1, a2, a2, a1, n] /; 
   MyMemberQ[{{a1, a2}, {a3, a4}}, {a1, a1, a2, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a2_, a2_, a3_, a1_, a1_, a4_, n_] :> 
  S2[a1, a1, a4, n]*S2[a2, a2, a3, n] + S2[SP[a1, a2], SP[a1, a2], 
     SP[a3, a4], n] - S2[a1, a2, SP[a1, a2], SP[a3, a4], n] - 
    S2[a1, a4, n]*S2[a1, a3, a2, a2, n] + S2[a1, a3, SP[a1, a2], SP[a2, a4], 
     n] - S2[a1, SP[a1, a2], a2, SP[a3, a4], n] - 
    S2[a1, SP[a1, a2], SP[a2, a4], a3, n] + S2[a1, SP[a1, a3], a2, 
     SP[a2, a4], n] + S2[a1, SP[a1, a3], SP[a2, a4], a2, n] - 
    S2[a2, a1, SP[a1, a2], SP[a3, a4], n] - S2[a2, SP[a1, a2], a1, 
     SP[a3, a4], n] - S2[a2, SP[a1, a2], SP[a1, a3], a4, n] + 
    S2[SP[a1, a1], a3, a2, SP[a2, a4], n] + S2[SP[a1, a1], a3, SP[a2, a4], 
     a2, n] + S2[SP[a1, a1], SP[a3, a4], a2, a2, n] - 
    S2[SP[a1, a2], a1, a2, SP[a3, a4], n] - S2[SP[a1, a2], a1, SP[a2, a4], 
     a3, n] - S2[SP[a1, a2], a2, a1, SP[a3, a4], n] - 
    S2[SP[a1, a2], a2, SP[a1, a3], a4, n] - S2[SP[a1, a2], SP[a1, a2], a3, 
     a4, n] - S2[SP[a1, a2], SP[a1, a2], a4, a3, n] + 
    S2[a1, a1, a2, a2, SP[a3, a4], n] - (S2[a2, n]*S2[a1, a1, a2, a3, a4, n])/
     2 - S2[a1, a1, a2, a3, SP[a2, a4], n]/2 - 
    (S2[a2, n]*S2[a1, a1, a2, a4, a3, n])/2 - 
    S2[a1, a1, a2, a4, SP[a2, a3], n]/2 - S2[a1, a1, a2, SP[a2, a3], a4, n]/
     2 + S2[a1, a1, a2, SP[a2, a4], a3, n]/2 + 
    S2[a4, n]*S2[a1, a1, a3, a2, a2, n] + 
    (S2[a2, n]*S2[a1, a1, a3, a2, a4, n])/2 - 
    S2[a1, a1, a3, a2, SP[a2, a4], n]/2 + 
    (S2[a2, n]*S2[a1, a1, a3, a4, a2, n])/2 + 
    S2[a1, a1, a3, a4, SP[a2, a2], n]/2 + S2[a1, a1, a3, SP[a2, a2], a4, n]/
     2 - S2[a1, a1, a3, SP[a2, a4], a2, n]/2 - 
    (S2[a2, n]*S2[a1, a1, a4, a2, a3, n])/2 - 
    S2[a1, a1, a4, a2, SP[a2, a3], n]/2 + 
    (S2[a2, n]*S2[a1, a1, a4, a3, a2, n])/2 + 
    S2[a1, a1, a4, a3, SP[a2, a2], n]/2 - S2[a1, a1, a4, SP[a2, a2], a3, n]/
     2 + S2[a1, a1, a4, SP[a2, a3], a2, n]/2 - 
    S2[a1, a1, SP[a2, a2], a3, a4, n]/2 - S2[a1, a1, SP[a2, a2], a4, a3, n]/
     2 + S2[a1, a1, SP[a2, a3], a2, a4, n]/2 + 
    S2[a1, a1, SP[a2, a3], a4, a2, n]/2 + S2[a1, a1, SP[a2, a4], a2, a3, n]/
     2 + S2[a1, a1, SP[a2, a4], a3, a2, n]/2 - S2[a1, a1, SP[a3, a4], a2, a2, 
     n] + S2[a1, a2, a1, a2, SP[a3, a4], n] - 
    (S2[a2, n]*S2[a1, a2, a1, a3, a4, n])/2 - 
    S2[a1, a2, a1, a3, SP[a2, a4], n]/2 - 
    (S2[a2, n]*S2[a1, a2, a1, a4, a3, n])/2 - 
    S2[a1, a2, a1, a4, SP[a2, a3], n]/2 - S2[a1, a2, a1, SP[a2, a3], a4, n]/
     2 + S2[a1, a2, a1, SP[a2, a4], a3, n]/2 + S2[a1, a2, a2, a1, SP[a3, a4], 
     n] + S2[a1, a2, a2, SP[a1, a3], a4, n] - 
    (S2[a2, n]*S2[a1, a2, a3, a1, a4, n])/2 - 
    S2[a1, a2, a3, a1, SP[a2, a4], n]/2 - S2[a1, a2, a3, SP[a1, a2], a4, n]/
     2 + S2[a1, a2, SP[a1, a2], a3, a4, n]/2 + 
    S2[a1, a2, SP[a1, a2], a4, a3, n]/2 - S2[a1, a2, SP[a2, a3], a1, a4, n]/
     2 + (S2[a2, n]*S2[a1, a3, a1, a2, a4, n])/2 - 
    S2[a1, a3, a1, a2, SP[a2, a4], n]/2 + 
    (S2[a2, n]*S2[a1, a3, a1, a4, a2, n])/2 + 
    S2[a1, a3, a1, a4, SP[a2, a2], n]/2 + S2[a1, a3, a1, SP[a2, a2], a4, n]/
     2 - S2[a1, a3, a1, SP[a2, a4], a2, n]/2 + 
    (S2[a2, n]*S2[a1, a3, a2, a1, a4, n])/2 - 
    S2[a1, a3, a2, a1, SP[a2, a4], n]/2 - S2[a1, a3, a2, SP[a1, a2], a4, n]/
     2 - S2[a1, a3, SP[a1, a2], a2, a4, n]/2 - 
    S2[a1, a3, SP[a1, a2], a4, a2, n]/2 + S2[a1, a3, SP[a2, a2], a1, a4, n]/
     2 + S2[a1, SP[a1, a2], a2, a3, a4, n]/2 + 
    S2[a1, SP[a1, a2], a2, a4, a3, n]/2 + S2[a1, SP[a1, a2], a3, a2, a4, n]/
     2 + S2[a1, SP[a1, a2], a3, a4, a2, n]/2 + 
    S2[a1, SP[a1, a2], a4, a2, a3, n]/2 + S2[a1, SP[a1, a2], a4, a3, a2, n]/
     2 - S2[a1, SP[a1, a3], a2, a2, a4, n] - S2[a1, SP[a1, a3], a2, a4, a2, 
     n] - S2[a1, SP[a1, a3], a4, a2, a2, n] - 
    S2[a1, SP[a2, a2], a1, a3, a4, n]/2 - S2[a1, SP[a2, a2], a1, a4, a3, n]/
     2 - S2[a1, SP[a2, a2], a3, a1, a4, n]/2 + 
    S2[a1, SP[a2, a3], a1, a2, a4, n]/2 + S2[a1, SP[a2, a3], a1, a4, a2, n]/
     2 + S2[a1, SP[a2, a3], a2, a1, a4, n]/2 + S2[a2, a1, a1, a2, SP[a3, a4], 
     n] - (S2[a2, n]*S2[a2, a1, a1, a3, a4, n])/2 - 
    S2[a2, a1, a1, a3, SP[a2, a4], n]/2 - 
    (S2[a2, n]*S2[a2, a1, a1, a4, a3, n])/2 - 
    S2[a2, a1, a1, a4, SP[a2, a3], n]/2 - S2[a2, a1, a1, SP[a2, a3], a4, n]/
     2 + S2[a2, a1, a1, SP[a2, a4], a3, n]/2 + S2[a2, a1, a2, a1, SP[a3, a4], 
     n] + S2[a2, a1, a2, SP[a1, a3], a4, n] - 
    (S2[a2, n]*S2[a2, a1, a3, a1, a4, n])/2 - 
    S2[a2, a1, a3, a1, SP[a2, a4], n]/2 - S2[a2, a1, a3, SP[a1, a2], a4, n]/
     2 + S2[a2, a1, SP[a1, a2], a3, a4, n]/2 + 
    S2[a2, a1, SP[a1, a2], a4, a3, n]/2 - S2[a2, a1, SP[a2, a3], a1, a4, n]/
     2 + S2[a2, a2, a1, a1, SP[a3, a4], n] + S2[a2, a2, a1, SP[a1, a3], a4, 
     n] + S2[a2, a2, SP[a1, a3], a1, a4, n] + 
    S2[a2, SP[a1, a2], a1, a3, a4, n]/2 + S2[a2, SP[a1, a2], a1, a4, a3, n]/
     2 + S2[a2, SP[a1, a2], a3, a1, a4, n]/2 - S2[SP[a1, a1], a3, a2, a2, a4, 
     n] - S2[SP[a1, a1], a3, a2, a4, a2, n] - S2[SP[a1, a1], a3, a4, a2, a2, 
     n] - S2[SP[a1, a1], a4, a3, a2, a2, n] + 
    S2[SP[a1, a2], a1, a2, a3, a4, n]/2 + S2[SP[a1, a2], a1, a2, a4, a3, n]/
     2 + S2[SP[a1, a2], a1, a3, a2, a4, n]/2 + 
    S2[SP[a1, a2], a1, a3, a4, a2, n]/2 + S2[SP[a1, a2], a1, a4, a2, a3, n]/
     2 + S2[SP[a1, a2], a1, a4, a3, a2, n]/2 + 
    S2[SP[a1, a2], a2, a1, a3, a4, n]/2 + S2[SP[a1, a2], a2, a1, a4, a3, n]/
     2 + S2[SP[a1, a2], a2, a3, a1, a4, n]/2 + 
    S2[SP[a1, a2], a3, a1, a2, a4, n]/2 + S2[SP[a1, a2], a3, a1, a4, a2, n]/
     2 + S2[SP[a1, a2], a3, a2, a1, a4, n]/2 + S2[SP[a1, a4], a1, a3, a2, a2, 
     n] - S2[SP[a2, a2], a1, a1, a3, a4, n]/2 - 
    S2[SP[a2, a2], a1, a1, a4, a3, n]/2 - S2[SP[a2, a2], a1, a3, a1, a4, n]/
     2 - S2[a4, a1, a1, a3, a2, a2, n] /; 
   MyMemberQ[{{a1, a2}, {a3, a4}}, {a1, a1, a2, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a2_, a2_, a3_, a1_, a4_, a1_, n_] :> 
  -2*S2[a1, a1, a4, n]*S2[a2, a2, a3, n] - 
    2*S2[SP[a1, a2], SP[a1, a2], SP[a3, a4], n] + 
    2*S2[a1, a2, SP[a1, a2], SP[a3, a4], n] + 
    S2[a1, a4, n]*S2[a1, a3, a2, a2, n] - S2[a1, a3, SP[a1, a2], SP[a2, a4], 
     n] + 2*S2[a1, SP[a1, a2], a2, SP[a3, a4], n] + 
    2*S2[a1, SP[a1, a2], SP[a2, a4], a3, n] - S2[a1, SP[a1, a3], a2, 
     SP[a2, a4], n] - S2[a1, SP[a1, a3], SP[a2, a4], a2, n] + 
    2*S2[a2, a1, SP[a1, a2], SP[a3, a4], n] + 
    2*S2[a2, SP[a1, a2], a1, SP[a3, a4], n] + 
    2*S2[a2, SP[a1, a2], SP[a1, a3], a4, n] - S2[SP[a1, a1], a3, a2, 
     SP[a2, a4], n] - S2[SP[a1, a1], a3, SP[a2, a4], a2, n] - 
    S2[SP[a1, a1], SP[a3, a4], a2, a2, n] + 
    2*S2[SP[a1, a2], a1, a2, SP[a3, a4], n] + 
    2*S2[SP[a1, a2], a1, SP[a2, a4], a3, n] + 
    2*S2[SP[a1, a2], a2, a1, SP[a3, a4], n] + 
    2*S2[SP[a1, a2], a2, SP[a1, a3], a4, n] + 
    2*S2[SP[a1, a2], SP[a1, a2], a3, a4, n] + 
    2*S2[SP[a1, a2], SP[a1, a2], a4, a3, n] - 
    2*S2[a1, a1, a2, a2, SP[a3, a4], n] + 
    S2[a2, n]*S2[a1, a1, a2, a3, a4, n] + S2[a1, a1, a2, a3, SP[a2, a4], n] + 
    S2[a2, n]*S2[a1, a1, a2, a4, a3, n] + S2[a1, a1, a2, a4, SP[a2, a3], n] + 
    S2[a1, a1, a2, SP[a2, a3], a4, n] - S2[a1, a1, a2, SP[a2, a4], a3, n] - 
    S2[a2, n]*S2[a1, a1, a3, a2, a4, n] + S2[a1, a1, a3, a2, SP[a2, a4], n] - 
    S2[a2, n]*S2[a1, a1, a3, a4, a2, n] - S2[a1, a1, a3, a4, SP[a2, a2], n] - 
    S2[a1, a1, a3, SP[a2, a2], a4, n] + S2[a1, a1, a3, SP[a2, a4], a2, n] + 
    S2[a2, n]*S2[a1, a1, a4, a2, a3, n] + S2[a1, a1, a4, a2, SP[a2, a3], n] - 
    S2[a2, n]*S2[a1, a1, a4, a3, a2, n] - S2[a1, a1, a4, a3, SP[a2, a2], n] + 
    S2[a1, a1, a4, SP[a2, a2], a3, n] - S2[a1, a1, a4, SP[a2, a3], a2, n] + 
    S2[a1, a1, SP[a2, a2], a3, a4, n] + S2[a1, a1, SP[a2, a2], a4, a3, n] - 
    S2[a1, a1, SP[a2, a3], a2, a4, n] - S2[a1, a1, SP[a2, a3], a4, a2, n] - 
    S2[a1, a1, SP[a2, a4], a2, a3, n] - S2[a1, a1, SP[a2, a4], a3, a2, n] + 
    2*S2[a1, a1, SP[a3, a4], a2, a2, n] - 
    2*S2[a1, a2, a1, a2, SP[a3, a4], n] + 
    S2[a2, n]*S2[a1, a2, a1, a3, a4, n] + S2[a1, a2, a1, a3, SP[a2, a4], n] + 
    S2[a2, n]*S2[a1, a2, a1, a4, a3, n] + S2[a1, a2, a1, a4, SP[a2, a3], n] + 
    S2[a1, a2, a1, SP[a2, a3], a4, n] - S2[a1, a2, a1, SP[a2, a4], a3, n] - 
    2*S2[a1, a2, a2, a1, SP[a3, a4], n] - 
    2*S2[a1, a2, a2, SP[a1, a3], a4, n] + 
    (S2[a2, n]*S2[a1, a2, a3, a1, a4, n])/2 + 
    S2[a1, a2, a3, a1, SP[a2, a4], n]/2 + S2[a1, a2, a3, SP[a1, a2], a4, n]/
     2 - S2[a1, a2, SP[a1, a2], a3, a4, n] - S2[a1, a2, SP[a1, a2], a4, a3, 
     n] + S2[a1, a2, SP[a2, a3], a1, a4, n]/2 - 
    (S2[a2, n]*S2[a1, a3, a1, a2, a4, n])/2 + 
    S2[a1, a3, a1, a2, SP[a2, a4], n]/2 - 
    (S2[a2, n]*S2[a1, a3, a1, a4, a2, n])/2 - 
    S2[a1, a3, a1, a4, SP[a2, a2], n]/2 - S2[a1, a3, a1, SP[a2, a2], a4, n]/
     2 + S2[a1, a3, a1, SP[a2, a4], a2, n]/2 - 
    (S2[a2, n]*S2[a1, a3, a2, a1, a4, n])/2 + 
    S2[a1, a3, a2, a1, SP[a2, a4], n]/2 + S2[a1, a3, a2, SP[a1, a2], a4, n]/
     2 + S2[a1, a3, SP[a1, a2], a2, a4, n]/2 + 
    S2[a1, a3, SP[a1, a2], a4, a2, n]/2 - S2[a1, a3, SP[a2, a2], a1, a4, n]/
     2 - S2[a1, SP[a1, a2], a2, a3, a4, n] - S2[a1, SP[a1, a2], a2, a4, a3, 
     n] - S2[a1, SP[a1, a2], a3, a2, a4, n] - S2[a1, SP[a1, a2], a3, a4, a2, 
     n] - S2[a1, SP[a1, a2], a4, a2, a3, n] - S2[a1, SP[a1, a2], a4, a3, a2, 
     n] + S2[a1, SP[a1, a3], a2, a2, a4, n] + S2[a1, SP[a1, a3], a2, a4, a2, 
     n] + S2[a1, SP[a1, a3], a4, a2, a2, n] + S2[a1, SP[a1, a4], a3, a2, a2, 
     n] + S2[a1, SP[a2, a2], a1, a3, a4, n] + S2[a1, SP[a2, a2], a1, a4, a3, 
     n] + S2[a1, SP[a2, a2], a3, a1, a4, n]/2 - 
    S2[a1, SP[a2, a3], a1, a2, a4, n]/2 - S2[a1, SP[a2, a3], a1, a4, a2, n]/
     2 - S2[a1, SP[a2, a3], a2, a1, a4, n]/2 - 
    2*S2[a2, a1, a1, a2, SP[a3, a4], n] + 
    S2[a2, n]*S2[a2, a1, a1, a3, a4, n] + S2[a2, a1, a1, a3, SP[a2, a4], n] + 
    S2[a2, n]*S2[a2, a1, a1, a4, a3, n] + S2[a2, a1, a1, a4, SP[a2, a3], n] + 
    S2[a2, a1, a1, SP[a2, a3], a4, n] - S2[a2, a1, a1, SP[a2, a4], a3, n] - 
    2*S2[a2, a1, a2, a1, SP[a3, a4], n] - 
    2*S2[a2, a1, a2, SP[a1, a3], a4, n] + 
    (S2[a2, n]*S2[a2, a1, a3, a1, a4, n])/2 + 
    S2[a2, a1, a3, a1, SP[a2, a4], n]/2 + S2[a2, a1, a3, SP[a1, a2], a4, n]/
     2 - S2[a2, a1, SP[a1, a2], a3, a4, n] - S2[a2, a1, SP[a1, a2], a4, a3, 
     n] + S2[a2, a1, SP[a2, a3], a1, a4, n]/2 - 
    2*S2[a2, a2, a1, a1, SP[a3, a4], n] - 
    2*S2[a2, a2, a1, SP[a1, a3], a4, n] + 
    S2[a1, n]*S2[a2, a2, a3, a1, a4, n] + S2[a2, a2, a3, a1, SP[a1, a4], n] + 
    S2[a2, a2, a3, SP[a1, a1], a4, n] - S2[a2, a2, SP[a1, a3], a1, a4, n] - 
    S2[a2, SP[a1, a2], a1, a3, a4, n] - S2[a2, SP[a1, a2], a1, a4, a3, n] - 
    S2[a2, SP[a1, a2], a3, a1, a4, n]/2 - 
    S2[a1, n]*S2[a4, a1, a3, a2, a2, n] - S2[a4, a1, a3, a2, SP[a1, a2], n] - 
    S2[a4, a1, a3, SP[a1, a2], a2, n] - S2[a4, a1, SP[a1, a3], a2, a2, n] - 
    S2[a4, SP[a1, a1], a3, a2, a2, n] + S2[SP[a1, a1], a3, a2, a2, a4, n] + 
    S2[SP[a1, a1], a3, a2, a4, a2, n] + S2[SP[a1, a1], a3, a4, a2, a2, n] + 
    S2[SP[a1, a1], a4, a3, a2, a2, n] - S2[SP[a1, a2], a1, a2, a3, a4, n] - 
    S2[SP[a1, a2], a1, a2, a4, a3, n] - S2[SP[a1, a2], a1, a3, a2, a4, n] - 
    S2[SP[a1, a2], a1, a3, a4, a2, n] - S2[SP[a1, a2], a1, a4, a2, a3, n] - 
    S2[SP[a1, a2], a1, a4, a3, a2, n] - S2[SP[a1, a2], a2, a1, a3, a4, n] - 
    S2[SP[a1, a2], a2, a1, a4, a3, n] - S2[SP[a1, a2], a2, a3, a1, a4, n]/2 - 
    S2[SP[a1, a2], a3, a1, a2, a4, n]/2 - S2[SP[a1, a2], a3, a1, a4, a2, n]/
     2 - S2[SP[a1, a2], a3, a2, a1, a4, n]/2 - S2[SP[a1, a4], a1, a3, a2, a2, 
     n] + S2[SP[a2, a2], a1, a1, a3, a4, n] + S2[SP[a2, a2], a1, a1, a4, a3, 
     n] + S2[SP[a2, a2], a1, a3, a1, a4, n]/2 + 
    2*S2[a4, a1, a1, a3, a2, a2, n] + S2[a4, a1, a3, a1, a2, a2, n] + 
    S2[a4, a1, a3, a2, a1, a2, n] + S2[a4, a1, a3, a2, a2, a1, n] /; 
   MyMemberQ[{{a1, a2}, {a3, a4}}, {a1, a1, a2, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a2_, a2_, a3_, a4_, a1_, a1_, n_] :> 
  S2[a1, a1, a4, n]*S2[a2, a2, a3, n] + S2[SP[a1, a2], SP[a1, a2], 
     SP[a3, a4], n] - S2[a1, a2, SP[a1, a2], SP[a3, a4], n] - 
    S2[a1, SP[a1, a2], a2, SP[a3, a4], n] - S2[a1, SP[a1, a2], SP[a2, a4], 
     a3, n] - S2[a2, a1, SP[a1, a2], SP[a3, a4], n] - 
    S2[a2, SP[a1, a2], a1, SP[a3, a4], n] - S2[a2, SP[a1, a2], SP[a1, a3], 
     a4, n] - S2[SP[a1, a2], a1, a2, SP[a3, a4], n] - 
    S2[SP[a1, a2], a1, SP[a2, a4], a3, n] - S2[SP[a1, a2], a2, a1, 
     SP[a3, a4], n] - S2[SP[a1, a2], a2, SP[a1, a3], a4, n] - 
    S2[SP[a1, a2], SP[a1, a2], a3, a4, n] - S2[SP[a1, a2], SP[a1, a2], a4, 
     a3, n] + S2[a1, a1, a2, a2, SP[a3, a4], n] - 
    (S2[a2, n]*S2[a1, a1, a2, a4, a3, n])/2 - 
    S2[a1, a1, a2, a4, SP[a2, a3], n]/2 + S2[a1, a1, a2, SP[a2, a4], a3, n]/
     2 - (S2[a2, n]*S2[a1, a1, a4, a2, a3, n])/2 - 
    S2[a1, a1, a4, a2, SP[a2, a3], n]/2 + 
    (S2[a2, n]*S2[a1, a1, a4, a3, a2, n])/2 + 
    S2[a1, a1, a4, a3, SP[a2, a2], n]/2 - S2[a1, a1, a4, SP[a2, a2], a3, n]/
     2 + S2[a1, a1, a4, SP[a2, a3], a2, n]/2 - 
    S2[a1, a1, SP[a2, a2], a4, a3, n]/2 + S2[a1, a1, SP[a2, a4], a2, a3, n]/
     2 + S2[a1, a1, SP[a2, a4], a3, a2, n]/2 + S2[a1, a2, a1, a2, SP[a3, a4], 
     n] - (S2[a2, n]*S2[a1, a2, a1, a4, a3, n])/2 - 
    S2[a1, a2, a1, a4, SP[a2, a3], n]/2 + S2[a1, a2, a1, SP[a2, a4], a3, n]/
     2 + S2[a1, a2, a2, a1, SP[a3, a4], n] - 
    (S2[a1, n]*S2[a1, a2, a2, a3, a4, n])/2 - 
    S2[a1, a2, a2, a3, SP[a1, a4], n]/2 + S2[a1, a2, a2, SP[a1, a3], a4, n]/
     2 + S2[a1, a2, SP[a1, a2], a3, a4, n]/2 + 
    S2[a1, a2, SP[a1, a2], a4, a3, n]/2 - 
    (S2[a1, n]*S2[a1, a4, a3, a2, a2, n])/2 - 
    S2[a1, a4, a3, a2, SP[a1, a2], n]/2 - S2[a1, a4, a3, SP[a1, a2], a2, n]/
     2 - S2[a1, a4, SP[a1, a3], a2, a2, n]/2 + 
    S2[a1, SP[a1, a2], a2, a3, a4, n]/2 + S2[a1, SP[a1, a2], a2, a4, a3, n]/
     2 + S2[a1, SP[a1, a2], a4, a2, a3, n]/2 + 
    S2[a1, SP[a1, a2], a4, a3, a2, n]/2 - S2[a1, SP[a1, a4], a3, a2, a2, n]/
     2 - S2[a1, SP[a2, a2], a1, a4, a3, n]/2 + S2[a2, a1, a1, a2, SP[a3, a4], 
     n] - (S2[a2, n]*S2[a2, a1, a1, a4, a3, n])/2 - 
    S2[a2, a1, a1, a4, SP[a2, a3], n]/2 + S2[a2, a1, a1, SP[a2, a4], a3, n]/
     2 + S2[a2, a1, a2, a1, SP[a3, a4], n] - 
    (S2[a1, n]*S2[a2, a1, a2, a3, a4, n])/2 - 
    S2[a2, a1, a2, a3, SP[a1, a4], n]/2 + S2[a2, a1, a2, SP[a1, a3], a4, n]/
     2 + S2[a2, a1, SP[a1, a2], a3, a4, n]/2 + 
    S2[a2, a1, SP[a1, a2], a4, a3, n]/2 + S2[a2, a2, a1, a1, SP[a3, a4], n] - 
    (S2[a1, n]*S2[a2, a2, a1, a3, a4, n])/2 - 
    S2[a2, a2, a1, a3, SP[a1, a4], n]/2 + S2[a2, a2, a1, SP[a1, a3], a4, n]/
     2 - (S2[a1, n]*S2[a2, a2, a3, a1, a4, n])/2 - 
    S2[a2, a2, a3, a1, SP[a1, a4], n]/2 + 
    (S2[a1, n]*S2[a2, a2, a3, a4, a1, n])/2 + 
    S2[a2, a2, a3, a4, SP[a1, a1], n]/2 - S2[a2, a2, a3, SP[a1, a1], a4, n]/
     2 + S2[a2, a2, a3, SP[a1, a4], a1, n]/2 - 
    S2[a2, a2, SP[a1, a1], a3, a4, n]/2 + S2[a2, a2, SP[a1, a3], a1, a4, n]/
     2 + S2[a2, a2, SP[a1, a3], a4, a1, n]/2 - 
    S2[a2, SP[a1, a1], a2, a3, a4, n]/2 + S2[a2, SP[a1, a2], a1, a3, a4, n]/
     2 + S2[a2, SP[a1, a2], a1, a4, a3, n]/2 + 
    S2[a2, SP[a1, a2], a3, a1, a4, n]/2 + S2[a2, SP[a1, a2], a3, a4, a1, n]/
     2 + (S2[a1, n]*S2[a4, a1, a3, a2, a2, n])/2 + 
    S2[a4, a1, a3, a2, SP[a1, a2], n]/2 + S2[a4, a1, a3, SP[a1, a2], a2, n]/
     2 + S2[a4, a1, SP[a1, a3], a2, a2, n]/2 + 
    (S2[a1, n]*S2[a4, a3, a1, a2, a2, n])/2 + 
    S2[a4, a3, a1, a2, SP[a1, a2], n]/2 + S2[a4, a3, a1, SP[a1, a2], a2, n]/
     2 + (S2[a1, n]*S2[a4, a3, a2, a1, a2, n])/2 + 
    S2[a4, a3, a2, a1, SP[a1, a2], n]/2 + 
    (S2[a1, n]*S2[a4, a3, a2, a2, a1, n])/2 + 
    S2[a4, a3, a2, a2, SP[a1, a1], n]/2 + S2[a4, a3, a2, SP[a1, a1], a2, n]/
     2 + S2[a4, a3, a2, SP[a1, a2], a1, n]/2 + 
    S2[a4, a3, SP[a1, a1], a2, a2, n]/2 + S2[a4, a3, SP[a1, a2], a1, a2, n]/
     2 + S2[a4, a3, SP[a1, a2], a2, a1, n]/2 + 
    S2[a4, SP[a1, a1], a3, a2, a2, n]/2 + S2[a4, SP[a1, a3], a1, a2, a2, n]/
     2 + S2[a4, SP[a1, a3], a2, a1, a2, n]/2 + 
    S2[a4, SP[a1, a3], a2, a2, a1, n]/2 - S2[SP[a1, a1], a2, a2, a3, a4, n]/
     2 - S2[SP[a1, a1], a4, a3, a2, a2, n]/2 + 
    S2[SP[a1, a2], a1, a2, a3, a4, n]/2 + S2[SP[a1, a2], a1, a2, a4, a3, n]/
     2 + S2[SP[a1, a2], a1, a4, a2, a3, n]/2 + 
    S2[SP[a1, a2], a1, a4, a3, a2, n]/2 + S2[SP[a1, a2], a2, a1, a3, a4, n]/
     2 + S2[SP[a1, a2], a2, a1, a4, a3, n]/2 + 
    S2[SP[a1, a2], a2, a3, a1, a4, n]/2 + S2[SP[a1, a2], a2, a3, a4, a1, n]/
     2 + S2[SP[a1, a4], a1, a3, a2, a2, n]/2 + 
    S2[SP[a1, a4], a3, a1, a2, a2, n]/2 + S2[SP[a1, a4], a3, a2, a1, a2, n]/
     2 + S2[SP[a1, a4], a3, a2, a2, a1, n]/2 - 
    S2[SP[a2, a2], a1, a1, a4, a3, n]/2 - S2[a4, a1, a1, a3, a2, a2, n] - 
    S2[a4, a1, a3, a1, a2, a2, n] - S2[a4, a1, a3, a2, a1, a2, n] - 
    S2[a4, a1, a3, a2, a2, a1, n] - S2[a4, a3, a1, a1, a2, a2, n] - 
    S2[a4, a3, a1, a2, a1, a2, n] - S2[a4, a3, a1, a2, a2, a1, n] - 
    S2[a4, a3, a2, a1, a1, a2, n] - S2[a4, a3, a2, a1, a2, a1, n] - 
    S2[a4, a3, a2, a2, a1, a1, n] /; MyMemberQ[{{a1, a2}, {a3, a4}}, 
     {a1, a1, a2, a2, a3, a4}] && a1 != a2 != a3 != a4, 
 S2[a2_, a2_, a4_, a1_, a1_, a3_, n_] :> 
  (S2[a2, n]*S2[a2, a4, a1, a1, a3, n])/2 + S2[a2, a4, a1, a1, SP[a2, a3], n]/
     2 + S2[a2, a4, a1, SP[a1, a2], a3, n]/2 + 
    S2[a2, a4, SP[a1, a2], a1, a3, n]/2 + S2[a2, SP[a2, a4], a1, a1, a3, n]/
     2 - (S2[a2, n]*S2[a4, a1, a1, a2, a3, n])/2 - 
    S2[a4, a1, a1, a2, SP[a2, a3], n]/2 - 
    (S2[a2, n]*S2[a4, a1, a1, a3, a2, n])/2 - 
    S2[a4, a1, a1, a3, SP[a2, a2], n]/2 - S2[a4, a1, a1, SP[a2, a2], a3, n]/
     2 - S2[a4, a1, a1, SP[a2, a3], a2, n]/2 - 
    (S2[a2, n]*S2[a4, a1, a2, a1, a3, n])/2 - 
    S2[a4, a1, a2, a1, SP[a2, a3], n]/2 - S2[a4, a1, a2, SP[a1, a2], a3, n]/
     2 - S2[a4, a1, SP[a1, a2], a2, a3, n]/2 - 
    S2[a4, a1, SP[a1, a2], a3, a2, n]/2 - S2[a4, a1, SP[a2, a2], a1, a3, n]/
     2 - (S2[a2, n]*S2[a4, a2, a1, a1, a3, n])/2 - 
    S2[a4, a2, a1, a1, SP[a2, a3], n]/2 - S2[a4, a2, a1, SP[a1, a2], a3, n]/
     2 - S2[a4, a2, SP[a1, a2], a1, a3, n]/2 - 
    S2[a4, SP[a1, a2], a1, a2, a3, n]/2 - S2[a4, SP[a1, a2], a1, a3, a2, n]/
     2 - S2[a4, SP[a1, a2], a2, a1, a3, n]/2 - 
    S2[a4, SP[a2, a2], a1, a1, a3, n]/2 + S2[SP[a2, a2], a4, a1, a1, a3, n]/
     2 - S2[SP[a2, a4], a1, a1, a2, a3, n]/2 - 
    S2[SP[a2, a4], a1, a1, a3, a2, n]/2 - S2[SP[a2, a4], a1, a2, a1, a3, n]/
     2 - S2[SP[a2, a4], a2, a1, a1, a3, n]/2 + S2[a4, a1, a1, a2, a2, a3, 
     n] + S2[a4, a1, a1, a2, a3, a2, n] + S2[a4, a1, a1, a3, a2, a2, n] + 
    S2[a4, a1, a2, a1, a2, a3, n] + S2[a4, a1, a2, a1, a3, a2, n] + 
    S2[a4, a1, a2, a2, a1, a3, n] + S2[a4, a2, a1, a1, a2, a3, n] + 
    S2[a4, a2, a1, a1, a3, a2, n] + S2[a4, a2, a1, a2, a1, a3, n] + 
    S2[a4, a2, a2, a1, a1, a3, n] /; MyMemberQ[{{a1, a2}, {a3, a4}}, 
     {a1, a1, a2, a2, a3, a4}] && a1 != a2 != a3 != a4, 
 S2[a2_, a2_, a4_, a1_, a3_, a1_, n_] :> 
  -((S2[a2, n]*S2[a1, a2, a4, a1, a3, n])/2) - 
    S2[a1, a2, a4, a1, SP[a2, a3], n]/2 - S2[a1, a2, a4, SP[a1, a2], a3, n]/
     2 - S2[a1, a2, SP[a2, a4], a1, a3, n]/2 + 
    (S2[a2, n]*S2[a1, a4, a1, a2, a3, n])/2 + 
    S2[a1, a4, a1, a2, SP[a2, a3], n]/2 + 
    (S2[a2, n]*S2[a1, a4, a1, a3, a2, n])/2 + 
    S2[a1, a4, a1, a3, SP[a2, a2], n]/2 + S2[a1, a4, a1, SP[a2, a2], a3, n]/
     2 + S2[a1, a4, a1, SP[a2, a3], a2, n]/2 + 
    (S2[a2, n]*S2[a1, a4, a2, a1, a3, n])/2 + 
    S2[a1, a4, a2, a1, SP[a2, a3], n]/2 + S2[a1, a4, a2, SP[a1, a2], a3, n]/
     2 + S2[a1, a4, SP[a1, a2], a2, a3, n]/2 + 
    S2[a1, a4, SP[a1, a2], a3, a2, n]/2 + S2[a1, a4, SP[a2, a2], a1, a3, n]/
     2 - S2[a1, SP[a2, a2], a4, a1, a3, n]/2 + 
    S2[a1, SP[a2, a4], a1, a2, a3, n]/2 + S2[a1, SP[a2, a4], a1, a3, a2, n]/
     2 + S2[a1, SP[a2, a4], a2, a1, a3, n]/2 - 
    (S2[a2, n]*S2[a2, a1, a4, a1, a3, n])/2 - 
    S2[a2, a1, a4, a1, SP[a2, a3], n]/2 - S2[a2, a1, a4, SP[a1, a2], a3, n]/
     2 - S2[a2, a1, SP[a2, a4], a1, a3, n]/2 + 
    S2[a1, n]*S2[a2, a2, a4, a1, a3, n] + S2[a2, a2, a4, a1, SP[a1, a3], n] + 
    S2[a2, a2, a4, SP[a1, a1], a3, n] + S2[a2, a2, SP[a1, a4], a1, a3, n] - 
    S2[a2, n]*S2[a2, a4, a1, a1, a3, n] - S2[a2, a4, a1, a1, SP[a2, a3], n] - 
    S2[a2, a4, a1, SP[a1, a2], a3, n] - S2[a2, a4, SP[a1, a2], a1, a3, n] + 
    S2[a2, SP[a1, a2], a4, a1, a3, n]/2 - S2[a2, SP[a2, a4], a1, a1, a3, n] + 
    S2[a2, n]*S2[a4, a1, a1, a2, a3, n] + S2[a4, a1, a1, a2, SP[a2, a3], n] + 
    S2[a2, n]*S2[a4, a1, a1, a3, a2, n] + S2[a4, a1, a1, a3, SP[a2, a2], n] + 
    S2[a4, a1, a1, SP[a2, a2], a3, n] + S2[a4, a1, a1, SP[a2, a3], a2, n] + 
    S2[a2, n]*S2[a4, a1, a2, a1, a3, n] + S2[a4, a1, a2, a1, SP[a2, a3], n] - 
    S2[a1, n]*S2[a4, a1, a2, a2, a3, n] - S2[a4, a1, a2, a2, SP[a1, a3], n] - 
    S2[a1, n]*S2[a4, a1, a2, a3, a2, n] - S2[a4, a1, a2, a3, SP[a1, a2], n] - 
    S2[a4, a1, a2, SP[a1, a3], a2, n] - S2[a1, n]*S2[a4, a1, a3, a2, a2, n] - 
    S2[a4, a1, a3, a2, SP[a1, a2], n] - S2[a4, a1, a3, SP[a1, a2], a2, n] - 
    S2[a4, a1, SP[a1, a3], a2, a2, n] + S2[a4, a1, SP[a2, a2], a1, a3, n] + 
    S2[a2, n]*S2[a4, a2, a1, a1, a3, n] + S2[a4, a2, a1, a1, SP[a2, a3], n] - 
    S2[a1, n]*S2[a4, a2, a1, a2, a3, n] - S2[a4, a2, a1, a2, SP[a1, a3], n] - 
    S2[a1, n]*S2[a4, a2, a1, a3, a2, n] - S2[a4, a2, a1, a3, SP[a1, a2], n] - 
    S2[a4, a2, a1, SP[a1, a3], a2, n] - S2[a1, n]*S2[a4, a2, a2, a1, a3, n] - 
    S2[a4, a2, a2, a1, SP[a1, a3], n] - S2[a4, a2, a2, SP[a1, a1], a3, n] - 
    S2[a4, a2, SP[a1, a1], a2, a3, n] - S2[a4, a2, SP[a1, a1], a3, a2, n] - 
    S2[a4, SP[a1, a1], a2, a2, a3, n] - S2[a4, SP[a1, a1], a2, a3, a2, n] - 
    S2[a4, SP[a1, a1], a3, a2, a2, n] + S2[a4, SP[a2, a2], a1, a1, a3, n] + 
    S2[SP[a1, a2], a2, a4, a1, a3, n]/2 + S2[SP[a1, a2], a4, a1, a2, a3, n]/
     2 + S2[SP[a1, a2], a4, a1, a3, a2, n]/2 + 
    S2[SP[a1, a2], a4, a2, a1, a3, n]/2 - S2[SP[a1, a4], a1, a2, a2, a3, n] - 
    S2[SP[a1, a4], a1, a2, a3, a2, n] - S2[SP[a1, a4], a1, a3, a2, a2, n] - 
    S2[SP[a1, a4], a2, a1, a2, a3, n] - S2[SP[a1, a4], a2, a1, a3, a2, n] - 
    S2[SP[a1, a4], a2, a2, a1, a3, n] - S2[SP[a2, a2], a1, a4, a1, a3, n]/2 - 
    S2[SP[a2, a2], a4, a1, a1, a3, n] + S2[SP[a2, a4], a1, a1, a2, a3, n] + 
    S2[SP[a2, a4], a1, a1, a3, a2, n] + S2[SP[a2, a4], a1, a2, a1, a3, n] + 
    S2[SP[a2, a4], a2, a1, a1, a3, n] + S2[a4, a1, a2, a2, a3, a1, n] + 
    S2[a4, a1, a2, a3, a1, a2, n] + S2[a4, a1, a2, a3, a2, a1, n] + 
    S2[a4, a1, a3, a1, a2, a2, n] + S2[a4, a1, a3, a2, a1, a2, n] + 
    S2[a4, a1, a3, a2, a2, a1, n] + S2[a4, a2, a1, a2, a3, a1, n] + 
    S2[a4, a2, a1, a3, a1, a2, n] + S2[a4, a2, a1, a3, a2, a1, n] + 
    S2[a4, a2, a2, a1, a3, a1, n] /; MyMemberQ[{{a1, a2}, {a3, a4}}, 
     {a1, a1, a2, a2, a3, a4}] && a1 != a2 != a3 != a4, 
 S2[a2_, a2_, a4_, a3_, a1_, a1_, n_] :> 
  (S2[a2, n]*S2[a1, a1, a2, a4, a3, n])/2 + S2[a1, a1, a2, a4, SP[a2, a3], n]/
     2 + S2[a1, a1, a2, SP[a2, a4], a3, n]/2 - 
    (S2[a2, n]*S2[a1, a1, a4, a2, a3, n])/2 - 
    S2[a1, a1, a4, a2, SP[a2, a3], n]/2 - 
    (S2[a2, n]*S2[a1, a1, a4, a3, a2, n])/2 - 
    S2[a1, a1, a4, a3, SP[a2, a2], n]/2 - S2[a1, a1, a4, SP[a2, a2], a3, n]/
     2 - S2[a1, a1, a4, SP[a2, a3], a2, n]/2 + 
    S2[a1, a1, SP[a2, a2], a4, a3, n]/2 - S2[a1, a1, SP[a2, a4], a2, a3, n]/
     2 - S2[a1, a1, SP[a2, a4], a3, a2, n]/2 + 
    (S2[a2, n]*S2[a1, a2, a1, a4, a3, n])/2 + 
    S2[a1, a2, a1, a4, SP[a2, a3], n]/2 + S2[a1, a2, a1, SP[a2, a4], a3, n]/
     2 - (S2[a1, n]*S2[a1, a2, a2, a4, a3, n])/2 - 
    S2[a1, a2, a2, a4, SP[a1, a3], n]/2 - S2[a1, a2, a2, SP[a1, a4], a3, n]/
     2 + (S2[a2, n]*S2[a1, a2, a4, a1, a3, n])/2 + 
    S2[a1, a2, a4, a1, SP[a2, a3], n]/2 + S2[a1, a2, a4, SP[a1, a2], a3, n]/
     2 + S2[a1, a2, SP[a2, a4], a1, a3, n]/2 - 
    (S2[a2, n]*S2[a1, a4, a1, a2, a3, n])/2 - 
    S2[a1, a4, a1, a2, SP[a2, a3], n]/2 - 
    (S2[a2, n]*S2[a1, a4, a1, a3, a2, n])/2 - 
    S2[a1, a4, a1, a3, SP[a2, a2], n]/2 - S2[a1, a4, a1, SP[a2, a2], a3, n]/
     2 - S2[a1, a4, a1, SP[a2, a3], a2, n]/2 - 
    (S2[a2, n]*S2[a1, a4, a2, a1, a3, n])/2 - 
    S2[a1, a4, a2, a1, SP[a2, a3], n]/2 + 
    (S2[a1, n]*S2[a1, a4, a2, a2, a3, n])/2 + 
    S2[a1, a4, a2, a2, SP[a1, a3], n]/2 + 
    (S2[a1, n]*S2[a1, a4, a2, a3, a2, n])/2 + 
    S2[a1, a4, a2, a3, SP[a1, a2], n]/2 + S2[a1, a4, a2, SP[a1, a3], a2, n]/
     2 + (S2[a1, n]*S2[a1, a4, a3, a2, a2, n])/2 + 
    S2[a1, a4, a3, a2, SP[a1, a2], n]/2 + S2[a1, a4, a3, SP[a1, a2], a2, n]/
     2 + S2[a1, a4, SP[a1, a3], a2, a2, n]/2 - 
    S2[a1, a4, SP[a2, a2], a1, a3, n]/2 - S2[a1, SP[a1, a2], a4, a2, a3, n]/
     2 - S2[a1, SP[a1, a2], a4, a3, a2, n]/2 + 
    S2[a1, SP[a1, a4], a2, a2, a3, n]/2 + S2[a1, SP[a1, a4], a2, a3, a2, n]/
     2 + S2[a1, SP[a1, a4], a3, a2, a2, n]/2 + 
    S2[a1, SP[a2, a2], a1, a4, a3, n]/2 + S2[a1, SP[a2, a2], a4, a1, a3, n]/
     2 - S2[a1, SP[a2, a4], a1, a2, a3, n]/2 - 
    S2[a1, SP[a2, a4], a1, a3, a2, n]/2 - S2[a1, SP[a2, a4], a2, a1, a3, n]/
     2 + (S2[a2, n]*S2[a2, a1, a1, a4, a3, n])/2 + 
    S2[a2, a1, a1, a4, SP[a2, a3], n]/2 + S2[a2, a1, a1, SP[a2, a4], a3, n]/
     2 - (S2[a1, n]*S2[a2, a1, a2, a4, a3, n])/2 - 
    S2[a2, a1, a2, a4, SP[a1, a3], n]/2 - S2[a2, a1, a2, SP[a1, a4], a3, n]/
     2 + (S2[a2, n]*S2[a2, a1, a4, a1, a3, n])/2 + 
    S2[a2, a1, a4, a1, SP[a2, a3], n]/2 + S2[a2, a1, a4, SP[a1, a2], a3, n]/
     2 + S2[a2, a1, SP[a2, a4], a1, a3, n]/2 - 
    (S2[a1, n]*S2[a2, a2, a1, a4, a3, n])/2 - 
    S2[a2, a2, a1, a4, SP[a1, a3], n]/2 - S2[a2, a2, a1, SP[a1, a4], a3, n]/
     2 - (S2[a1, n]*S2[a2, a2, a4, a1, a3, n])/2 - 
    S2[a2, a2, a4, a1, SP[a1, a3], n]/2 + 
    (S2[a1, n]*S2[a2, a2, a4, a3, a1, n])/2 + 
    S2[a2, a2, a4, a3, SP[a1, a1], n]/2 - S2[a2, a2, a4, SP[a1, a1], a3, n]/
     2 + S2[a2, a2, a4, SP[a1, a3], a1, n]/2 - 
    S2[a2, a2, SP[a1, a1], a4, a3, n]/2 - S2[a2, a2, SP[a1, a4], a1, a3, n]/
     2 + S2[a2, a2, SP[a1, a4], a3, a1, n]/2 + 
    (S2[a2, n]*S2[a2, a4, a1, a1, a3, n])/2 + 
    S2[a2, a4, a1, a1, SP[a2, a3], n]/2 + S2[a2, a4, a1, SP[a1, a2], a3, n]/
     2 + S2[a2, a4, SP[a1, a2], a1, a3, n]/2 - 
    S2[a2, SP[a1, a1], a2, a4, a3, n]/2 + S2[a2, SP[a1, a2], a4, a3, a1, n]/
     2 + S2[a2, SP[a2, a4], a1, a1, a3, n]/2 - 
    (S2[a2, n]*S2[a4, a1, a1, a2, a3, n])/2 - 
    S2[a4, a1, a1, a2, SP[a2, a3], n]/2 - 
    (S2[a2, n]*S2[a4, a1, a1, a3, a2, n])/2 - 
    S2[a4, a1, a1, a3, SP[a2, a2], n]/2 - S2[a4, a1, a1, SP[a2, a2], a3, n]/
     2 - S2[a4, a1, a1, SP[a2, a3], a2, n]/2 - 
    (S2[a2, n]*S2[a4, a1, a2, a1, a3, n])/2 - 
    S2[a4, a1, a2, a1, SP[a2, a3], n]/2 + 
    (S2[a1, n]*S2[a4, a1, a2, a2, a3, n])/2 + 
    S2[a4, a1, a2, a2, SP[a1, a3], n]/2 + 
    (S2[a1, n]*S2[a4, a1, a2, a3, a2, n])/2 + 
    S2[a4, a1, a2, a3, SP[a1, a2], n]/2 + S2[a4, a1, a2, SP[a1, a3], a2, n]/
     2 + (S2[a1, n]*S2[a4, a1, a3, a2, a2, n])/2 + 
    S2[a4, a1, a3, a2, SP[a1, a2], n]/2 + S2[a4, a1, a3, SP[a1, a2], a2, n]/
     2 + S2[a4, a1, SP[a1, a3], a2, a2, n]/2 - 
    S2[a4, a1, SP[a2, a2], a1, a3, n]/2 - 
    (S2[a2, n]*S2[a4, a2, a1, a1, a3, n])/2 - 
    S2[a4, a2, a1, a1, SP[a2, a3], n]/2 + 
    (S2[a1, n]*S2[a4, a2, a1, a2, a3, n])/2 + 
    S2[a4, a2, a1, a2, SP[a1, a3], n]/2 + 
    (S2[a1, n]*S2[a4, a2, a1, a3, a2, n])/2 + 
    S2[a4, a2, a1, a3, SP[a1, a2], n]/2 + S2[a4, a2, a1, SP[a1, a3], a2, n]/
     2 + (S2[a1, n]*S2[a4, a2, a2, a1, a3, n])/2 + 
    S2[a4, a2, a2, a1, SP[a1, a3], n]/2 - 
    (S2[a1, n]*S2[a4, a2, a2, a3, a1, n])/2 - 
    S2[a4, a2, a2, a3, SP[a1, a1], n]/2 + S2[a4, a2, a2, SP[a1, a1], a3, n]/
     2 - S2[a4, a2, a2, SP[a1, a3], a1, n]/2 - 
    (S2[a1, n]*S2[a4, a2, a3, a1, a2, n])/2 - 
    S2[a4, a2, a3, a1, SP[a1, a2], n]/2 - 
    (S2[a1, n]*S2[a4, a2, a3, a2, a1, n])/2 - 
    S2[a4, a2, a3, a2, SP[a1, a1], n]/2 - S2[a4, a2, a3, SP[a1, a1], a2, n]/
     2 - S2[a4, a2, a3, SP[a1, a2], a1, n]/2 + 
    S2[a4, a2, SP[a1, a1], a2, a3, n]/2 + S2[a4, a2, SP[a1, a1], a3, a2, n]/
     2 - S2[a4, a2, SP[a1, a2], a3, a1, n]/2 - 
    S2[a4, a2, SP[a1, a3], a1, a2, n]/2 - S2[a4, a2, SP[a1, a3], a2, a1, n]/
     2 - (S2[a1, n]*S2[a4, a3, a1, a2, a2, n])/2 - 
    S2[a4, a3, a1, a2, SP[a1, a2], n]/2 - S2[a4, a3, a1, SP[a1, a2], a2, n]/
     2 - (S2[a1, n]*S2[a4, a3, a2, a1, a2, n])/2 - 
    S2[a4, a3, a2, a1, SP[a1, a2], n]/2 - 
    (S2[a1, n]*S2[a4, a3, a2, a2, a1, n])/2 - 
    S2[a4, a3, a2, a2, SP[a1, a1], n]/2 - S2[a4, a3, a2, SP[a1, a1], a2, n]/
     2 - S2[a4, a3, a2, SP[a1, a2], a1, n]/2 - 
    S2[a4, a3, SP[a1, a1], a2, a2, n]/2 - S2[a4, a3, SP[a1, a2], a1, a2, n]/
     2 - S2[a4, a3, SP[a1, a2], a2, a1, n]/2 + 
    S2[a4, SP[a1, a1], a2, a2, a3, n]/2 + S2[a4, SP[a1, a1], a2, a3, a2, n]/
     2 + S2[a4, SP[a1, a1], a3, a2, a2, n]/2 - 
    S2[a4, SP[a1, a2], a2, a3, a1, n]/2 - S2[a4, SP[a1, a2], a3, a1, a2, n]/
     2 - S2[a4, SP[a1, a2], a3, a2, a1, n]/2 - 
    S2[a4, SP[a1, a3], a1, a2, a2, n]/2 - S2[a4, SP[a1, a3], a2, a1, a2, n]/
     2 - S2[a4, SP[a1, a3], a2, a2, a1, n]/2 - 
    S2[a4, SP[a2, a2], a1, a1, a3, n]/2 - S2[SP[a1, a1], a2, a2, a4, a3, n]/
     2 + S2[SP[a1, a1], a4, a2, a2, a3, n]/2 + 
    S2[SP[a1, a1], a4, a2, a3, a2, n]/2 + S2[SP[a1, a1], a4, a3, a2, a2, n]/
     2 - S2[SP[a1, a2], a1, a4, a2, a3, n]/2 - 
    S2[SP[a1, a2], a1, a4, a3, a2, n]/2 + S2[SP[a1, a2], a2, a4, a3, a1, n]/
     2 - S2[SP[a1, a2], a4, a1, a2, a3, n]/2 - 
    S2[SP[a1, a2], a4, a1, a3, a2, n]/2 - S2[SP[a1, a2], a4, a2, a1, a3, n]/
     2 + S2[SP[a1, a4], a1, a2, a2, a3, n]/2 + 
    S2[SP[a1, a4], a1, a2, a3, a2, n]/2 + S2[SP[a1, a4], a1, a3, a2, a2, n]/
     2 + S2[SP[a1, a4], a2, a1, a2, a3, n]/2 + 
    S2[SP[a1, a4], a2, a1, a3, a2, n]/2 + S2[SP[a1, a4], a2, a2, a1, a3, n]/
     2 - S2[SP[a1, a4], a2, a2, a3, a1, n]/2 - 
    S2[SP[a1, a4], a2, a3, a1, a2, n]/2 - S2[SP[a1, a4], a2, a3, a2, a1, n]/
     2 - S2[SP[a1, a4], a3, a1, a2, a2, n]/2 - 
    S2[SP[a1, a4], a3, a2, a1, a2, n]/2 - S2[SP[a1, a4], a3, a2, a2, a1, n]/
     2 + S2[SP[a2, a2], a1, a1, a4, a3, n]/2 + 
    S2[SP[a2, a2], a1, a4, a1, a3, n]/2 + S2[SP[a2, a2], a4, a1, a1, a3, n]/
     2 - S2[SP[a2, a4], a1, a1, a2, a3, n]/2 - 
    S2[SP[a2, a4], a1, a1, a3, a2, n]/2 - S2[SP[a2, a4], a1, a2, a1, a3, n]/
     2 - S2[SP[a2, a4], a2, a1, a1, a3, n]/2 + S2[a4, a2, a2, a3, a1, a1, 
     n] + S2[a4, a2, a3, a1, a1, a2, n] + S2[a4, a2, a3, a1, a2, a1, n] + 
    S2[a4, a2, a3, a2, a1, a1, n] + S2[a4, a3, a1, a1, a2, a2, n] + 
    S2[a4, a3, a1, a2, a1, a2, n] + S2[a4, a3, a1, a2, a2, a1, n] + 
    S2[a4, a3, a2, a1, a1, a2, n] + S2[a4, a3, a2, a1, a2, a1, n] + 
    S2[a4, a3, a2, a2, a1, a1, n] /; MyMemberQ[{{a1, a2}, {a3, a4}}, 
     {a1, a1, a2, a2, a3, a4}] && a1 != a2 != a3 != a4, 
 S2[a2_, a3_, a1_, a1_, a2_, a4_, n_] :> 
  S2[a1, a2, a4, n]*S2[a1, a3, a2, n] + S2[SP[a1, a1], SP[a2, a3], 
     SP[a2, a4], n] + S2[a2, a3, n]*S2[a1, a1, a2, a4, n] - 
    S2[a2, a4, n]*S2[a1, a1, a3, a2, n] - S2[a1, a1, SP[a2, a2], SP[a3, a4], 
     n] - S2[a1, a1, SP[a2, a3], SP[a2, a4], n] - S2[a1, SP[a1, a2], a2, 
     SP[a3, a4], n] - S2[a1, SP[a1, a2], SP[a2, a3], a4, n] - 
    S2[a1, SP[a1, a3], a2, SP[a2, a4], n] - S2[a1, SP[a1, a3], SP[a2, a2], 
     a4, n] - S2[SP[a1, a1], a2, a3, SP[a2, a4], n] - 
    S2[SP[a1, a1], a2, SP[a3, a4], a2, n] - S2[SP[a1, a1], a3, a2, 
     SP[a2, a4], n] - S2[SP[a1, a1], a3, SP[a2, a2], a4, n] - 
    S2[SP[a1, a1], SP[a2, a3], a2, a4, n] - S2[SP[a1, a1], SP[a2, a3], a4, 
     a2, n] - S2[SP[a1, a2], a1, a2, SP[a3, a4], n] + 
    S2[SP[a1, a2], a1, a3, SP[a2, a4], n] - S2[SP[a1, a2], a1, SP[a2, a3], 
     a4, n] + S2[SP[a1, a2], a1, SP[a3, a4], a2, n] - 
    S2[SP[a1, a2], SP[a1, a3], a2, a4, n] + S2[SP[a1, a2], SP[a1, a4], a3, 
     a2, n] + 2*S2[a1, a1, a2, a2, SP[a3, a4], n] - 
    S2[a4, n]*S2[a1, a1, a2, a3, a2, n] - 
    S2[a2, n]*S2[a1, a1, a2, a3, a4, n] - S2[a1, a1, a2, a3, SP[a2, a4], n] - 
    S2[a2, n]*S2[a1, a1, a2, a4, a3, n] - S2[a1, a1, a2, a4, SP[a2, a3], n] - 
    2*S2[a4, n]*S2[a1, a1, a3, a2, a2, n] - S2[a1, a1, a3, a2, SP[a2, a4], 
     n] + S2[a2, n]*S2[a1, a1, a3, a4, a2, n] + S2[a1, a1, a3, a4, 
     SP[a2, a2], n] + S2[a1, a1, a3, SP[a2, a2], a4, n] - 
    S2[a1, a1, a3, SP[a2, a4], a2, n] + S2[a2, n]*S2[a1, a1, a4, a3, a2, n] + 
    S2[a1, a1, a4, a3, SP[a2, a2], n] + S2[a1, a1, a4, SP[a2, a3], a2, n] + 
    S2[a1, a1, SP[a2, a3], a2, a4, n] + 2*S2[a1, a1, SP[a2, a3], a4, a2, n] - 
    2*S2[a1, a1, SP[a3, a4], a2, a2, n] + S2[a1, a2, a1, a2, SP[a3, a4], n] - 
    S2[a4, n]*S2[a1, a2, a1, a3, a2, n] - S2[a1, a2, a1, a3, SP[a2, a4], n] + 
    S2[a1, a2, a1, SP[a2, a3], a4, n] - S2[a1, a2, a1, SP[a3, a4], a2, n] + 
    S2[a1, a2, SP[a1, a3], a2, a4, n] - S2[a1, a2, SP[a1, a4], a3, a2, n] - 
    S2[a2, n]*S2[a1, a3, a1, a2, a4, n] + 
    S2[a2, n]*S2[a1, a4, a1, a3, a2, n] + S2[a1, a4, a1, a3, SP[a2, a2], n] + 
    S2[a1, a4, a1, SP[a2, a3], a2, n] + S2[a1, a4, SP[a1, a2], a3, a2, n] + 
    S2[a1, SP[a1, a2], a3, a2, a4, n] + S2[a1, SP[a1, a2], a3, a4, a2, n] + 
    S2[a1, SP[a1, a2], a4, a3, a2, n] + 2*S2[a1, SP[a1, a3], a2, a2, a4, n] + 
    S2[a1, SP[a1, a3], a2, a4, a2, n] - S2[a1, SP[a1, a4], a2, a3, a2, n] - 
    2*S2[a1, SP[a1, a4], a3, a2, a2, n] - S2[a1, SP[a2, a3], a1, a2, a4, n] + 
    S2[a2, a1, a1, a2, SP[a3, a4], n] - S2[a2, a1, a1, a3, SP[a2, a4], n] + 
    S2[a2, a1, a1, SP[a2, a3], a4, n] - S2[a2, a1, a1, SP[a3, a4], a2, n] + 
    S2[a2, a1, SP[a1, a3], a2, a4, n] - S2[a2, a1, SP[a1, a4], a3, a2, n] + 
    S2[a2, SP[a1, a3], a1, a2, a4, n] - S2[a2, SP[a1, a4], a1, a3, a2, n] + 
    S2[a2, n]*S2[a4, a1, a1, a3, a2, n] + S2[a4, a1, a1, a3, SP[a2, a2], n] + 
    S2[a4, a1, a1, SP[a2, a3], a2, n] + S2[a4, a1, SP[a1, a2], a3, a2, n] + 
    S2[a4, SP[a1, a2], a1, a3, a2, n] + S2[SP[a1, a1], a2, a3, a2, a4, n] + 
    S2[SP[a1, a1], a2, a3, a4, a2, n] + S2[SP[a1, a1], a2, a4, a3, a2, n] + 
    2*S2[SP[a1, a1], a3, a2, a2, a4, n] + S2[SP[a1, a1], a3, a2, a4, a2, n] - 
    S2[SP[a1, a4], a1, a2, a3, a2, n] - 2*S2[SP[a1, a4], a1, a3, a2, a2, n] - 
    S2[SP[a1, a4], a2, a1, a3, a2, n] + S2[SP[a2, a4], a1, a1, a3, a2, n] - 
    S2[a4, a2, a1, a1, a3, a2, n] /; MyMemberQ[{{a1, a2}, {a3, a4}}, 
     {a1, a1, a2, a2, a3, a4}] && a1 != a2 != a3 != a4, 
 S2[a2_, a3_, a1_, a1_, a4_, a2_, n_] :> 
  S2[a1, a3, a2, n]*S2[a1, a4, a2, n] + S2[SP[a1, a1], SP[a3, a4], 
     SP[a2, a2], n] + S2[a2, a4, n]*S2[a1, a1, a3, a2, n] + 
    S2[a2, a3, n]*S2[a1, a1, a4, a2, n] - S2[a1, a1, SP[a2, a3], SP[a2, a4], 
     n] - S2[a1, a1, SP[a2, a4], SP[a2, a3], n] - 
    2*S2[a1, a1, SP[a3, a4], SP[a2, a2], n] - S2[a1, SP[a1, a2], a3, 
     SP[a2, a4], n] - S2[a1, SP[a1, a2], a4, SP[a2, a3], n] - 
    2*S2[a1, SP[a1, a2], SP[a3, a4], a2, n] - S2[a1, SP[a1, a3], a4, 
     SP[a2, a2], n] - S2[a1, SP[a1, a3], SP[a2, a4], a2, n] - 
    S2[a1, SP[a1, a4], a3, SP[a2, a2], n] - S2[a1, SP[a1, a4], SP[a2, a3], 
     a2, n] - S2[SP[a1, a1], a3, a4, SP[a2, a2], n] - 
    S2[SP[a1, a1], a3, SP[a2, a4], a2, n] - S2[SP[a1, a1], a4, a3, 
     SP[a2, a2], n] - S2[SP[a1, a1], a4, SP[a2, a3], a2, n] - 
    2*S2[SP[a1, a1], SP[a3, a4], a2, a2, n] - S2[SP[a1, a2], a1, a3, 
     SP[a2, a4], n] - S2[SP[a1, a2], a1, a4, SP[a2, a3], n] - 
    2*S2[SP[a1, a2], a1, SP[a3, a4], a2, n] - S2[SP[a1, a2], SP[a1, a3], a4, 
     a2, n] - S2[SP[a1, a2], SP[a1, a4], a3, a2, n] + 
    S2[a1, a1, a2, a3, SP[a2, a4], n] + S2[a1, a1, a2, a4, SP[a2, a3], n] + 
    2*S2[a1, a1, a2, SP[a3, a4], a2, n] - 
    S2[a2, n]*S2[a1, a1, a3, a2, a4, n] - 
    2*S2[a2, n]*S2[a1, a1, a3, a4, a2, n] - 
    S2[a2, n]*S2[a1, a1, a4, a2, a3, n] - 
    2*S2[a2, n]*S2[a1, a1, a4, a3, a2, n] - S2[a1, a1, SP[a2, a3], a4, a2, 
     n] - S2[a1, a1, SP[a2, a4], a3, a2, n] + 
    4*S2[a1, a1, SP[a3, a4], a2, a2, n] + S2[a1, a2, a1, a3, SP[a2, a4], n] + 
    S2[a1, a2, a1, a4, SP[a2, a3], n] + 2*S2[a1, a2, a1, SP[a3, a4], a2, n] + 
    S2[a1, a2, SP[a1, a3], a4, a2, n] + S2[a1, a2, SP[a1, a4], a3, a2, n] - 
    S2[a2, n]*S2[a1, a3, a1, a4, a2, n] - 
    S2[a2, n]*S2[a1, a4, a1, a3, a2, n] + S2[a1, SP[a1, a3], a2, a4, a2, n] + 
    2*S2[a1, SP[a1, a3], a4, a2, a2, n] + S2[a1, SP[a1, a4], a2, a3, a2, n] + 
    2*S2[a1, SP[a1, a4], a3, a2, a2, n] - S2[a1, SP[a2, a3], a1, a4, a2, n] - 
    S2[a1, SP[a2, a4], a1, a3, a2, n] + S2[a2, a1, a1, a3, SP[a2, a4], n] + 
    S2[a2, a1, a1, a4, SP[a2, a3], n] + 2*S2[a2, a1, a1, SP[a3, a4], a2, n] + 
    S2[a2, a1, SP[a1, a3], a4, a2, n] + S2[a2, a1, SP[a1, a4], a3, a2, n] + 
    S2[a2, SP[a1, a3], a1, a4, a2, n] + S2[a2, SP[a1, a4], a1, a3, a2, n] - 
    S2[a2, n]*S2[a4, a1, a1, a3, a2, n] - S2[a4, a1, a1, a3, SP[a2, a2], n] - 
    S2[a4, a1, a1, SP[a2, a3], a2, n] - S2[a4, a1, SP[a1, a2], a3, a2, n] - 
    S2[a4, SP[a1, a2], a1, a3, a2, n] + S2[SP[a1, a1], a3, a2, a4, a2, n] + 
    2*S2[SP[a1, a1], a3, a4, a2, a2, n] + S2[SP[a1, a1], a4, a2, a3, a2, n] + 
    2*S2[SP[a1, a1], a4, a3, a2, a2, n] - S2[SP[a2, a4], a1, a1, a3, a2, n] + 
    S2[a4, a1, a1, a2, a3, a2, n] + 2*S2[a4, a1, a1, a3, a2, a2, n] + 
    S2[a4, a1, a2, a1, a3, a2, n] + S2[a4, a2, a1, a1, a3, a2, n] /; 
   MyMemberQ[{{a1, a2}, {a3, a4}}, {a1, a1, a2, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a2_, a3_, a1_, a2_, a1_, a4_, n_] :> 
  -(S2[a1, a2, a4, n]*S2[a1, a3, a2, n]) - S2[a1, a3, a2, n]*
     S2[a1, a4, a2, n] - S2[SP[a1, a1], SP[a2, a3], SP[a2, a4], n] - 
    S2[SP[a1, a1], SP[a3, a4], SP[a2, a2], n] + 
    2*S2[a1, a1, SP[a2, a3], SP[a2, a4], n] + 
    2*S2[a1, a1, SP[a3, a4], SP[a2, a2], n] + 
    S2[a2, a3, n]*S2[a1, a2, a1, a4, n] + S2[a1, a4, n]*
     S2[a1, a2, a3, a2, n] - S2[a1, a2, SP[a1, a2], SP[a3, a4], n] - 
    S2[a1, a2, SP[a1, a3], SP[a2, a4], n] + 2*S2[a1, a4, n]*
     S2[a1, a3, a2, a2, n] - 2*S2[a1, a3, SP[a1, a2], SP[a2, a4], n] - 
    S2[a1, SP[a1, a3], a2, SP[a2, a4], n] + S2[a1, SP[a1, a3], a4, 
     SP[a2, a2], n] + S2[a1, SP[a1, a3], SP[a2, a2], a4, n] - 
    S2[a1, SP[a1, a3], SP[a2, a4], a2, n] + S2[a1, SP[a1, a4], a3, 
     SP[a2, a2], n] + S2[a1, SP[a1, a4], SP[a2, a3], a2, n] - 
    S2[a1, SP[a2, a2], a1, SP[a3, a4], n] - S2[a1, SP[a2, a2], SP[a1, a3], 
     a4, n] - S2[SP[a1, a1], a3, a2, SP[a2, a4], n] + 
    S2[SP[a1, a1], a3, a4, SP[a2, a2], n] + S2[SP[a1, a1], a3, SP[a2, a2], 
     a4, n] - S2[SP[a1, a1], a3, SP[a2, a4], a2, n] + 
    S2[SP[a1, a1], a4, a3, SP[a2, a2], n] + S2[SP[a1, a1], a4, SP[a2, a3], 
     a2, n] + S2[SP[a1, a1], SP[a2, a3], a2, a4, n] + 
    S2[SP[a1, a1], SP[a2, a3], a4, a2, n] - S2[SP[a1, a1], SP[a2, a4], a3, 
     a2, n] - S2[SP[a1, a2], a2, a1, SP[a3, a4], n] - 
    S2[SP[a1, a2], a2, SP[a1, a3], a4, n] - S2[SP[a1, a2], SP[a2, a3], a1, 
     a4, n] + 2*S2[a1, a1, a3, a2, SP[a2, a4], n] - 
    2*S2[a1, a1, a3, a4, SP[a2, a2], n] - 
    2*S2[a1, a1, a3, SP[a2, a2], a4, n] + 
    2*S2[a1, a1, a3, SP[a2, a4], a2, n] - 
    2*S2[a1, a1, a4, a3, SP[a2, a2], n] - 
    2*S2[a1, a1, a4, SP[a2, a3], a2, n] - 
    2*S2[a1, a1, SP[a2, a3], a2, a4, n] - 
    2*S2[a1, a1, SP[a2, a3], a4, a2, n] + 
    2*S2[a1, a1, SP[a2, a4], a3, a2, n] + S2[a1, a2, a1, a2, SP[a3, a4], n] + 
    S2[a4, n]*S2[a1, a2, a1, a3, a2, n] - 
    S2[a2, n]*S2[a1, a2, a1, a3, a4, n] - 
    S2[a2, n]*S2[a1, a2, a1, a4, a3, n] - S2[a1, a2, a1, a4, SP[a2, a3], n] - 
    S2[a1, a2, a1, SP[a2, a3], a4, n] + S2[a1, a2, a1, SP[a3, a4], a2, n] + 
    2*S2[a1, a2, a2, a1, SP[a3, a4], n] + 
    2*S2[a1, a2, a2, SP[a1, a3], a4, n] - 
    S2[a2, n]*S2[a1, a2, a3, a1, a4, n] + S2[a1, a2, SP[a1, a3], a2, a4, n] + 
    S2[a1, a2, SP[a1, a3], a4, a2, n] + S2[a1, a3, a1, a2, SP[a2, a4], n] - 
    S2[a1, a3, a1, a4, SP[a2, a2], n] - S2[a1, a3, a1, SP[a2, a2], a4, n] + 
    S2[a1, a3, a1, SP[a2, a4], a2, n] - S2[a2, n]*S2[a1, a3, a2, a1, a4, n] + 
    S2[a1, a3, a2, a1, SP[a2, a4], n] + S2[a1, a3, a2, SP[a1, a2], a4, n] + 
    S2[a1, a3, SP[a1, a2], a2, a4, n] + S2[a1, a3, SP[a1, a2], a4, a2, n] - 
    S2[a1, a3, SP[a2, a2], a1, a4, n] - S2[a1, a4, a1, a3, SP[a2, a2], n] - 
    S2[a1, a4, a1, SP[a2, a3], a2, n] - S2[a1, a4, SP[a1, a2], a3, a2, n] - 
    S2[a1, SP[a2, a3], a2, a1, a4, n] + S2[a1, SP[a2, a4], a1, a3, a2, n] + 
    S2[a2, a1, a2, a1, SP[a3, a4], n] + S2[a2, a1, a2, SP[a1, a3], a4, n] + 
    S2[a2, a1, SP[a2, a3], a1, a4, n] + S2[a2, SP[a1, a3], a2, a1, a4, n] + 
    S2[SP[a1, a4], a2, a1, a3, a2, n] - S2[a4, a1, a2, a1, a3, a2, n] /; 
   MyMemberQ[{{a1, a2}, {a3, a4}}, {a1, a1, a2, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a2_, a3_, a1_, a2_, a4_, a1_, n_] :> 
  S2[a1, a3, a2, n]*S2[a1, a4, a2, n] + S2[SP[a1, a1], SP[a3, a4], 
     SP[a2, a2], n] - 2*S2[a2, a3, n]*S2[a1, a1, a2, a4, n] + 
    2*S2[a1, a1, SP[a2, a2], SP[a3, a4], n] - 
    2*S2[a1, a1, SP[a3, a4], SP[a2, a2], n] - 
    S2[a2, a3, n]*S2[a1, a2, a1, a4, n] - S2[a1, a4, n]*
     S2[a1, a2, a3, a2, n] + S2[a1, a2, SP[a1, a2], SP[a3, a4], n] + 
    S2[a1, a2, SP[a1, a3], SP[a2, a4], n] - 2*S2[a1, a4, n]*
     S2[a1, a3, a2, a2, n] + 2*S2[a1, a3, SP[a1, a2], SP[a2, a4], n] + 
    2*S2[a1, SP[a1, a2], a2, SP[a3, a4], n] + S2[a1, SP[a1, a2], a3, 
     SP[a2, a4], n] + 2*S2[a1, SP[a1, a2], SP[a2, a3], a4, n] + 
    S2[a1, SP[a1, a2], SP[a3, a4], a2, n] + 
    2*S2[a1, SP[a1, a3], a2, SP[a2, a4], n] - S2[a1, SP[a1, a3], a4, 
     SP[a2, a2], n] + S2[a1, SP[a1, a3], SP[a2, a4], a2, n] - 
    S2[a1, SP[a1, a4], a3, SP[a2, a2], n] - S2[a1, SP[a1, a4], SP[a2, a3], 
     a2, n] + S2[a1, SP[a2, a2], a1, SP[a3, a4], n] + 
    S2[a1, SP[a2, a2], SP[a1, a3], a4, n] + S2[SP[a1, a1], a2, a3, 
     SP[a2, a4], n] + S2[SP[a1, a1], a2, SP[a3, a4], a2, n] + 
    2*S2[SP[a1, a1], a3, a2, SP[a2, a4], n] - S2[SP[a1, a1], a3, a4, 
     SP[a2, a2], n] + S2[SP[a1, a1], a3, SP[a2, a4], a2, n] - 
    S2[SP[a1, a1], a4, a3, SP[a2, a2], n] - S2[SP[a1, a1], a4, SP[a2, a3], 
     a2, n] + S2[SP[a1, a1], SP[a2, a4], a3, a2, n] + 
    2*S2[SP[a1, a2], a1, a2, SP[a3, a4], n] + 
    2*S2[SP[a1, a2], a1, SP[a2, a3], a4, n] + S2[SP[a1, a2], a2, a1, 
     SP[a3, a4], n] + S2[SP[a1, a2], a2, SP[a1, a3], a4, n] + 
    2*S2[SP[a1, a2], SP[a1, a3], a2, a4, n] + S2[SP[a1, a2], SP[a2, a3], a1, 
     a4, n] - 4*S2[a1, a1, a2, a2, SP[a3, a4], n] + 
    2*S2[a2, n]*S2[a1, a1, a2, a3, a4, n] + 
    2*S2[a2, n]*S2[a1, a1, a2, a4, a3, n] + 
    2*S2[a1, a1, a2, a4, SP[a2, a3], n] - 
    2*S2[a1, a1, a2, SP[a3, a4], a2, n] + 
    2*S2[a2, n]*S2[a1, a1, a3, a2, a4, n] - 
    2*S2[a1, a1, a3, a2, SP[a2, a4], n] + 
    2*S2[a1, a1, a3, a4, SP[a2, a2], n] + 
    2*S2[a1, a1, a3, SP[a2, a2], a4, n] - 
    2*S2[a1, a1, a3, SP[a2, a4], a2, n] + 
    2*S2[a1, a1, a4, a3, SP[a2, a2], n] + 
    2*S2[a1, a1, a4, SP[a2, a3], a2, n] + 
    2*S2[a1, a1, SP[a2, a3], a2, a4, n] - 
    2*S2[a1, a1, SP[a2, a4], a3, a2, n] - 
    3*S2[a1, a2, a1, a2, SP[a3, a4], n] + 
    S2[a2, n]*S2[a1, a2, a1, a3, a4, n] + 
    S2[a2, n]*S2[a1, a2, a1, a4, a3, n] + S2[a1, a2, a1, a4, SP[a2, a3], n] - 
    S2[a1, a2, a1, SP[a2, a3], a4, n] - S2[a1, a2, a1, SP[a3, a4], a2, n] - 
    2*S2[a1, a2, a2, a1, SP[a3, a4], n] - 
    2*S2[a1, a2, a2, SP[a1, a3], a4, n] + 
    S2[a2, n]*S2[a1, a2, a3, a1, a4, n] - 
    3*S2[a1, a2, SP[a1, a3], a2, a4, n] - S2[a1, a2, SP[a1, a3], a4, a2, n] + 
    S2[a2, n]*S2[a1, a3, a1, a2, a4, n] - S2[a1, a3, a1, a2, SP[a2, a4], n] + 
    S2[a1, a3, a1, a4, SP[a2, a2], n] + S2[a1, a3, a1, SP[a2, a2], a4, n] - 
    S2[a1, a3, a1, SP[a2, a4], a2, n] + S2[a2, n]*S2[a1, a3, a2, a1, a4, n] - 
    S2[a1, a3, a2, a1, SP[a2, a4], n] - S2[a1, a3, a2, SP[a1, a2], a4, n] - 
    S2[a1, a3, SP[a1, a2], a2, a4, n] - S2[a1, a3, SP[a1, a2], a4, a2, n] + 
    S2[a1, a3, SP[a2, a2], a1, a4, n] + S2[a1, a4, a1, a3, SP[a2, a2], n] + 
    S2[a1, a4, a1, SP[a2, a3], a2, n] + S2[a1, a4, SP[a1, a2], a3, a2, n] - 
    S2[a1, SP[a1, a2], a3, a2, a4, n] - S2[a1, SP[a1, a2], a3, a4, a2, n] - 
    S2[a1, SP[a1, a2], a4, a3, a2, n] - 2*S2[a1, SP[a1, a3], a2, a2, a4, n] - 
    S2[a1, SP[a1, a3], a2, a4, a2, n] + S2[a1, SP[a2, a3], a1, a2, a4, n] + 
    S2[a1, SP[a2, a3], a2, a1, a4, n] - 2*S2[a2, a1, a1, a2, SP[a3, a4], n] - 
    2*S2[a2, a1, a1, SP[a2, a3], a4, n] - S2[a2, a1, a2, a1, SP[a3, a4], n] - 
    S2[a2, a1, a2, SP[a1, a3], a4, n] - 2*S2[a2, a1, SP[a1, a3], a2, a4, n] - 
    S2[a2, a1, SP[a2, a3], a1, a4, n] + S2[a1, n]*S2[a2, a3, a1, a2, a4, n] + 
    S2[a2, a3, a1, a2, SP[a1, a4], n] + S2[a2, a3, a1, SP[a1, a2], a4, n] + 
    S2[a2, a3, SP[a1, a1], a2, a4, n] - S2[a2, SP[a1, a3], a1, a2, a4, n] - 
    S2[a2, SP[a1, a3], a2, a1, a4, n] - S2[a1, n]*S2[a4, a2, a1, a3, a2, n] - 
    S2[a4, a2, a1, a3, SP[a1, a2], n] - S2[a4, a2, a1, SP[a1, a3], a2, n] - 
    S2[a4, a2, SP[a1, a1], a3, a2, n] - S2[a4, SP[a1, a2], a1, a3, a2, n] - 
    S2[SP[a1, a1], a2, a3, a2, a4, n] - S2[SP[a1, a1], a2, a3, a4, a2, n] - 
    S2[SP[a1, a1], a2, a4, a3, a2, n] - 2*S2[SP[a1, a1], a3, a2, a2, a4, n] - 
    S2[SP[a1, a1], a3, a2, a4, a2, n] - S2[SP[a1, a4], a2, a1, a3, a2, n] + 
    S2[a4, a1, a2, a1, a3, a2, n] + 2*S2[a4, a2, a1, a1, a3, a2, n] + 
    S2[a4, a2, a1, a3, a1, a2, n] + S2[a4, a2, a1, a3, a2, a1, n] /; 
   MyMemberQ[{{a1, a2}, {a3, a4}}, {a1, a1, a2, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a2_, a3_, a1_, a4_, a1_, a2_, n_] :> 
  -(S2[a1, a2, a4, n]*S2[a1, a3, a2, n]) - S2[a1, a3, a2, n]*
     S2[a1, a4, a2, n] - S2[SP[a1, a1], SP[a2, a3], SP[a2, a4], n] - 
    S2[SP[a1, a1], SP[a3, a4], SP[a2, a2], n] - 
    2*S2[a2, a3, n]*S2[a1, a1, a2, a4, n] - 2*S2[a2, a3, n]*
     S2[a1, a1, a4, a2, n] + 2*S2[a1, a1, SP[a2, a2], SP[a3, a4], n] + 
    2*S2[a1, a1, SP[a2, a3], SP[a2, a4], n] + 
    2*S2[a1, a1, SP[a2, a4], SP[a2, a3], n] + 
    2*S2[a1, a1, SP[a3, a4], SP[a2, a2], n] - 
    S2[a2, a3, n]*S2[a1, a2, a1, a4, n] + S2[a1, a2, SP[a1, a2], SP[a3, a4], 
     n] - S2[a1, a2, n]*S2[a1, a3, a2, a4, n] - 
    S2[a1, a2, n]*S2[a1, a3, a4, a2, n] + S2[a1, a3, SP[a1, a2], SP[a2, a4], 
     n] + S2[a1, a3, SP[a1, a4], SP[a2, a2], n] - 
    S2[a1, a2, n]*S2[a1, a4, a3, a2, n] + S2[a1, a4, SP[a1, a3], SP[a2, a2], 
     n] + 2*S2[a1, SP[a1, a2], a2, SP[a3, a4], n] + 
    S2[a1, SP[a1, a2], a3, SP[a2, a4], n] + 
    2*S2[a1, SP[a1, a2], a4, SP[a2, a3], n] + 
    2*S2[a1, SP[a1, a2], SP[a2, a3], a4, n] + 
    3*S2[a1, SP[a1, a2], SP[a3, a4], a2, n] + 
    2*S2[a1, SP[a1, a3], a2, SP[a2, a4], n] + 
    2*S2[a1, SP[a1, a3], a4, SP[a2, a2], n] + 
    2*S2[a1, SP[a1, a3], SP[a2, a2], a4, n] + 
    2*S2[a1, SP[a1, a3], SP[a2, a4], a2, n] + 
    2*S2[a1, SP[a1, a4], a3, SP[a2, a2], n] + 
    2*S2[a1, SP[a1, a4], SP[a2, a3], a2, n] + S2[a1, SP[a2, a2], a1, 
     SP[a3, a4], n] + S2[a1, SP[a2, a2], SP[a1, a3], a4, n] + 
    S2[a1, a2, n]*S2[a2, a3, a1, a4, n] - S2[a2, a3, SP[a1, a1], SP[a2, a4], 
     n] - S2[a2, SP[a1, a3], a1, SP[a2, a4], n] - 
    S2[a2, SP[a1, a3], SP[a1, a2], a4, n] + S2[SP[a1, a1], a2, a3, 
     SP[a2, a4], n] + S2[SP[a1, a1], a2, SP[a3, a4], a2, n] + 
    2*S2[SP[a1, a1], a3, a2, SP[a2, a4], n] + 
    2*S2[SP[a1, a1], a3, a4, SP[a2, a2], n] + 
    2*S2[SP[a1, a1], a3, SP[a2, a2], a4, n] + 
    2*S2[SP[a1, a1], a3, SP[a2, a4], a2, n] + 
    2*S2[SP[a1, a1], a4, a3, SP[a2, a2], n] + 
    2*S2[SP[a1, a1], a4, SP[a2, a3], a2, n] + 
    2*S2[SP[a1, a1], SP[a2, a3], a2, a4, n] + 
    2*S2[SP[a1, a1], SP[a2, a3], a4, a2, n] + S2[SP[a1, a1], SP[a2, a4], a3, 
     a2, n] + 2*S2[SP[a1, a1], SP[a3, a4], a2, a2, n] + 
    2*S2[SP[a1, a2], a1, a2, SP[a3, a4], n] + 
    2*S2[SP[a1, a2], a1, a4, SP[a2, a3], n] + 
    2*S2[SP[a1, a2], a1, SP[a2, a3], a4, n] + 
    2*S2[SP[a1, a2], a1, SP[a3, a4], a2, n] + S2[SP[a1, a2], a2, a1, 
     SP[a3, a4], n] + S2[SP[a1, a2], a2, SP[a1, a3], a4, n] - 
    S2[SP[a1, a2], a3, a1, SP[a2, a4], n] - S2[SP[a1, a2], a3, SP[a1, a2], 
     a4, n] + 2*S2[SP[a1, a2], SP[a1, a3], a2, a4, n] + 
    2*S2[SP[a1, a2], SP[a1, a3], a4, a2, n] - 
    4*S2[a1, a1, a2, a2, SP[a3, a4], n] + 
    2*S2[a4, n]*S2[a1, a1, a2, a3, a2, n] + 
    2*S2[a2, n]*S2[a1, a1, a2, a3, a4, n] + 
    2*S2[a1, a1, a2, a3, SP[a2, a4], n] + 
    2*S2[a2, n]*S2[a1, a1, a2, a4, a3, n] - 
    2*S2[a1, a1, a2, SP[a3, a4], a2, n] + 
    4*S2[a4, n]*S2[a1, a1, a3, a2, a2, n] + 
    2*S2[a2, n]*S2[a1, a1, a3, a2, a4, n] + 
    2*S2[a1, a1, a3, a2, SP[a2, a4], n] + 
    2*S2[a2, n]*S2[a1, a1, a3, a4, a2, n] - 
    2*S2[a1, a1, a3, a4, SP[a2, a2], n] - 
    2*S2[a1, a1, a3, SP[a2, a2], a4, n] + 
    2*S2[a1, a1, a3, SP[a2, a4], a2, n] + 
    2*S2[a2, n]*S2[a1, a1, a4, a2, a3, n] + 
    2*S2[a2, n]*S2[a1, a1, a4, a3, a2, n] - 
    2*S2[a1, a1, a4, a3, SP[a2, a2], n] - 
    2*S2[a1, a1, a4, SP[a2, a3], a2, n] - 
    2*S2[a1, a1, SP[a2, a3], a2, a4, n] - 
    2*S2[a1, a1, SP[a2, a3], a4, a2, n] - 
    3*S2[a1, a2, a1, a2, SP[a3, a4], n] + 
    S2[a4, n]*S2[a1, a2, a1, a3, a2, n] + 
    S2[a2, n]*S2[a1, a2, a1, a3, a4, n] + S2[a1, a2, a1, a3, SP[a2, a4], n] + 
    S2[a2, n]*S2[a1, a2, a1, a4, a3, n] - S2[a1, a2, a1, a4, SP[a2, a3], n] - 
    S2[a1, a2, a1, SP[a2, a3], a4, n] - 2*S2[a1, a2, a1, SP[a3, a4], a2, n] - 
    2*S2[a1, a2, a2, a1, SP[a3, a4], n] - 
    2*S2[a1, a2, a2, SP[a1, a3], a4, n] + S2[a1, a2, a3, a1, SP[a2, a4], n] + 
    S2[a1, a2, a3, SP[a1, a2], a4, n] - 2*S2[a1, a2, SP[a1, a3], a2, a4, n] - 
    2*S2[a1, a2, SP[a1, a3], a4, a2, n] + 
    2*S2[a4, n]*S2[a1, a3, a1, a2, a2, n] + 
    S2[a2, n]*S2[a1, a3, a1, a2, a4, n] + S2[a1, a3, a1, a2, SP[a2, a4], n] + 
    S2[a2, n]*S2[a1, a3, a1, a4, a2, n] - S2[a1, a3, a1, a4, SP[a2, a2], n] - 
    S2[a1, a3, a1, SP[a2, a2], a4, n] + S2[a1, a3, a1, SP[a2, a4], a2, n] + 
    S2[a4, n]*S2[a1, a3, a2, a1, a2, n] - S2[a1, a3, a4, a1, SP[a2, a2], n] - 
    S2[a1, a3, a4, SP[a1, a2], a2, n] - S2[a1, a3, SP[a1, a2], a2, a4, n] - 
    S2[a1, a3, SP[a1, a2], a4, a2, n] + S2[a1, a3, SP[a2, a4], a1, a2, n] - 
    2*S2[a1, a4, a1, a3, SP[a2, a2], n] - 
    2*S2[a1, a4, a1, SP[a2, a3], a2, n] - S2[a1, a4, a3, a1, SP[a2, a2], n] - 
    S2[a1, a4, a3, SP[a1, a2], a2, n] - S2[a1, a4, SP[a1, a2], a3, a2, n] - 
    2*S2[a1, a4, SP[a1, a3], a2, a2, n] - 
    2*S2[a1, SP[a1, a2], a3, a2, a4, n] - 
    2*S2[a1, SP[a1, a2], a3, a4, a2, n] - 
    2*S2[a1, SP[a1, a2], a4, a3, a2, n] - 
    4*S2[a1, SP[a1, a3], a2, a2, a4, n] - 
    4*S2[a1, SP[a1, a3], a2, a4, a2, n] - 
    4*S2[a1, SP[a1, a3], a4, a2, a2, n] + S2[a1, SP[a2, a3], a1, a2, a4, n] + 
    S2[a1, SP[a2, a3], a1, a4, a2, n] + S2[a1, SP[a2, a4], a1, a3, a2, n] + 
    2*S2[a1, SP[a3, a4], a1, a2, a2, n] + S2[a1, SP[a3, a4], a2, a1, a2, n] - 
    2*S2[a2, a1, a1, a2, SP[a3, a4], n] - 
    2*S2[a2, a1, a1, a4, SP[a2, a3], n] - 
    2*S2[a2, a1, a1, SP[a2, a3], a4, n] - 
    2*S2[a2, a1, a1, SP[a3, a4], a2, n] - S2[a2, a1, a2, a1, SP[a3, a4], n] - 
    S2[a2, a1, a2, SP[a1, a3], a4, n] + S2[a2, a1, a3, a1, SP[a2, a4], n] + 
    S2[a2, a1, a3, SP[a1, a2], a4, n] - 2*S2[a2, a1, SP[a1, a3], a2, a4, n] - 
    2*S2[a2, a1, SP[a1, a3], a4, a2, n] + 
    2*S2[a2, a3, a1, a1, SP[a2, a4], n] + S2[a2, a3, a1, SP[a1, a2], a4, n] + 
    S2[a2, a3, a1, SP[a1, a4], a2, n] + S2[a2, a3, SP[a1, a1], a2, a4, n] + 
    S2[a2, a3, SP[a1, a1], a4, a2, n] - S2[a2, SP[a1, a3], a1, a2, a4, n] - 
    S2[a2, SP[a1, a3], a1, a4, a2, n] - 2*S2[SP[a1, a1], a2, a3, a2, a4, n] - 
    2*S2[SP[a1, a1], a2, a3, a4, a2, n] - 
    2*S2[SP[a1, a1], a2, a4, a3, a2, n] - 
    4*S2[SP[a1, a1], a3, a2, a2, a4, n] - 
    4*S2[SP[a1, a1], a3, a2, a4, a2, n] - 
    4*S2[SP[a1, a1], a3, a4, a2, a2, n] - 
    2*S2[SP[a1, a1], a4, a2, a3, a2, n] - 
    4*S2[SP[a1, a1], a4, a3, a2, a2, n] + 
    2*S2[SP[a1, a4], a1, a2, a3, a2, n] + 
    4*S2[SP[a1, a4], a1, a3, a2, a2, n] + S2[SP[a1, a4], a2, a1, a3, a2, n] + 
    2*S2[SP[a1, a4], a3, a1, a2, a2, n] + S2[SP[a1, a4], a3, a2, a1, a2, n] - 
    2*S2[a4, a1, a1, a2, a3, a2, n] - 4*S2[a4, a1, a1, a3, a2, a2, n] - 
    S2[a4, a1, a2, a1, a3, a2, n] - 2*S2[a4, a1, a3, a1, a2, a2, n] - 
    S2[a4, a1, a3, a2, a1, a2, n] /; MyMemberQ[{{a1, a2}, {a3, a4}}, 
     {a1, a1, a2, a2, a3, a4}] && a1 != a2 != a3 != a4, 
 S2[a2_, a3_, a1_, a4_, a2_, a1_, n_] :> 
  S2[a1, a2, a4, n]*S2[a1, a3, a2, n] + S2[SP[a1, a1], SP[a2, a3], 
     SP[a2, a4], n] + 2*S2[a2, a3, n]*S2[a1, a1, a2, a4, n] - 
    2*S2[a1, a1, SP[a2, a2], SP[a3, a4], n] - 
    2*S2[a1, a1, SP[a2, a3], SP[a2, a4], n] + 
    S2[a2, a3, n]*S2[a1, a2, a1, a4, n] - S2[a1, a2, SP[a1, a2], SP[a3, a4], 
     n] + S2[a1, a2, n]*S2[a1, a3, a2, a4, n] + 
    S2[a1, a2, n]*S2[a1, a3, a4, a2, n] - S2[a1, a3, SP[a1, a2], SP[a2, a4], 
     n] - S2[a1, a3, SP[a1, a4], SP[a2, a2], n] + 
    S2[a1, a2, n]*S2[a1, a4, a3, a2, n] - S2[a1, a4, SP[a1, a3], SP[a2, a2], 
     n] - 2*S2[a1, SP[a1, a2], a2, SP[a3, a4], n] - 
    S2[a1, SP[a1, a2], a3, SP[a2, a4], n] - 
    2*S2[a1, SP[a1, a2], SP[a2, a3], a4, n] - S2[a1, SP[a1, a2], SP[a3, a4], 
     a2, n] - 2*S2[a1, SP[a1, a3], a2, SP[a2, a4], n] - 
    S2[a1, SP[a1, a3], a4, SP[a2, a2], n] - 
    2*S2[a1, SP[a1, a3], SP[a2, a2], a4, n] - S2[a1, SP[a1, a3], SP[a2, a4], 
     a2, n] - S2[a1, SP[a1, a4], a3, SP[a2, a2], n] - 
    S2[a1, SP[a1, a4], SP[a2, a3], a2, n] - S2[a1, SP[a2, a2], a1, 
     SP[a3, a4], n] - S2[a1, SP[a2, a2], SP[a1, a3], a4, n] - 
    S2[a1, a2, n]*S2[a2, a3, a1, a4, n] + S2[a2, a3, SP[a1, a1], SP[a2, a4], 
     n] + S2[a2, SP[a1, a3], a1, SP[a2, a4], n] + 
    S2[a2, SP[a1, a3], SP[a1, a2], a4, n] - S2[SP[a1, a1], a2, a3, 
     SP[a2, a4], n] - S2[SP[a1, a1], a2, SP[a3, a4], a2, n] - 
    2*S2[SP[a1, a1], a3, a2, SP[a2, a4], n] - S2[SP[a1, a1], a3, a4, 
     SP[a2, a2], n] - 2*S2[SP[a1, a1], a3, SP[a2, a2], a4, n] - 
    S2[SP[a1, a1], a3, SP[a2, a4], a2, n] - S2[SP[a1, a1], a4, a3, 
     SP[a2, a2], n] - S2[SP[a1, a1], a4, SP[a2, a3], a2, n] - 
    2*S2[SP[a1, a1], SP[a2, a3], a2, a4, n] - 
    2*S2[SP[a1, a1], SP[a2, a3], a4, a2, n] - S2[SP[a1, a1], SP[a2, a4], a3, 
     a2, n] - 2*S2[SP[a1, a2], a1, a2, SP[a3, a4], n] - 
    2*S2[SP[a1, a2], a1, SP[a2, a3], a4, n] - S2[SP[a1, a2], a2, a1, 
     SP[a3, a4], n] - S2[SP[a1, a2], a2, SP[a1, a3], a4, n] + 
    S2[SP[a1, a2], a3, a1, SP[a2, a4], n] + S2[SP[a1, a2], a3, SP[a1, a2], 
     a4, n] - 2*S2[SP[a1, a2], SP[a1, a3], a2, a4, n] + 
    4*S2[a1, a1, a2, a2, SP[a3, a4], n] - 
    2*S2[a4, n]*S2[a1, a1, a2, a3, a2, n] - 
    2*S2[a2, n]*S2[a1, a1, a2, a3, a4, n] - 
    2*S2[a1, a1, a2, a3, SP[a2, a4], n] - 
    2*S2[a2, n]*S2[a1, a1, a2, a4, a3, n] - 
    2*S2[a1, a1, a2, a4, SP[a2, a3], n] - 
    4*S2[a4, n]*S2[a1, a1, a3, a2, a2, n] - 
    2*S2[a2, n]*S2[a1, a1, a3, a2, a4, n] - 
    2*S2[a1, a1, a3, a2, SP[a2, a4], n] + 
    2*S2[a1, a1, a3, a4, SP[a2, a2], n] + 
    2*S2[a1, a1, a3, SP[a2, a2], a4, n] - 
    2*S2[a1, a1, a3, SP[a2, a4], a2, n] + 
    2*S2[a1, a1, a4, a3, SP[a2, a2], n] + 
    2*S2[a1, a1, a4, SP[a2, a3], a2, n] + 
    2*S2[a1, a1, SP[a2, a3], a2, a4, n] + 
    4*S2[a1, a1, SP[a2, a3], a4, a2, n] - 
    4*S2[a1, a1, SP[a3, a4], a2, a2, n] + 
    3*S2[a1, a2, a1, a2, SP[a3, a4], n] - 
    S2[a4, n]*S2[a1, a2, a1, a3, a2, n] - 
    S2[a2, n]*S2[a1, a2, a1, a3, a4, n] - S2[a1, a2, a1, a3, SP[a2, a4], n] - 
    S2[a2, n]*S2[a1, a2, a1, a4, a3, n] - S2[a1, a2, a1, a4, SP[a2, a3], n] + 
    S2[a1, a2, a1, SP[a2, a3], a4, n] + 2*S2[a1, a2, a2, a1, SP[a3, a4], n] + 
    2*S2[a1, a2, a2, SP[a1, a3], a4, n] - S2[a1, a2, a3, a1, SP[a2, a4], n] - 
    S2[a1, a2, a3, SP[a1, a2], a4, n] + 2*S2[a1, a2, SP[a1, a3], a2, a4, n] - 
    2*S2[a4, n]*S2[a1, a3, a1, a2, a2, n] - 
    S2[a2, n]*S2[a1, a3, a1, a2, a4, n] - S2[a1, a3, a1, a2, SP[a2, a4], n] + 
    S2[a1, a3, a1, a4, SP[a2, a2], n] + S2[a1, a3, a1, SP[a2, a2], a4, n] - 
    S2[a1, a3, a1, SP[a2, a4], a2, n] - S2[a4, n]*S2[a1, a3, a2, a1, a2, n] + 
    S2[a1, a3, a4, a1, SP[a2, a2], n] + S2[a1, a3, a4, SP[a1, a2], a2, n] + 
    S2[a1, a3, SP[a1, a2], a2, a4, n] + S2[a1, a3, SP[a1, a2], a4, a2, n] - 
    S2[a1, a3, SP[a2, a4], a1, a2, n] + S2[a1, a4, a1, a3, SP[a2, a2], n] + 
    S2[a1, a4, a1, SP[a2, a3], a2, n] + S2[a1, a4, a3, a1, SP[a2, a2], n] + 
    S2[a1, a4, a3, SP[a1, a2], a2, n] + 2*S2[a1, a4, SP[a1, a3], a2, a2, n] + 
    2*S2[a1, SP[a1, a2], a3, a2, a4, n] + 
    2*S2[a1, SP[a1, a2], a3, a4, a2, n] + 
    2*S2[a1, SP[a1, a2], a4, a3, a2, n] + 
    4*S2[a1, SP[a1, a3], a2, a2, a4, n] + 
    3*S2[a1, SP[a1, a3], a2, a4, a2, n] + 
    2*S2[a1, SP[a1, a3], a4, a2, a2, n] - S2[a1, SP[a1, a4], a2, a3, a2, n] - 
    2*S2[a1, SP[a1, a4], a3, a2, a2, n] - S2[a1, SP[a2, a3], a1, a2, a4, n] - 
    S2[a1, SP[a2, a4], a1, a3, a2, n] - 2*S2[a1, SP[a3, a4], a1, a2, a2, n] - 
    S2[a1, SP[a3, a4], a2, a1, a2, n] + 2*S2[a2, a1, a1, a2, SP[a3, a4], n] + 
    2*S2[a2, a1, a1, SP[a2, a3], a4, n] + S2[a2, a1, a2, a1, SP[a3, a4], n] + 
    S2[a2, a1, a2, SP[a1, a3], a4, n] - S2[a2, a1, a3, a1, SP[a2, a4], n] - 
    S2[a2, a1, a3, SP[a1, a2], a4, n] + 2*S2[a2, a1, SP[a1, a3], a2, a4, n] - 
    2*S2[a2, a3, a1, a1, SP[a2, a4], n] + 
    S2[a1, n]*S2[a2, a3, a1, a4, a2, n] + S2[a2, a3, a1, a4, SP[a1, a2], n] - 
    S2[a2, a3, a1, SP[a1, a2], a4, n] - S2[a2, a3, SP[a1, a1], a2, a4, n] + 
    S2[a2, SP[a1, a3], a1, a2, a4, n] + S2[a1, n]*S2[a4, a1, a2, a3, a2, n] + 
    S2[a4, a1, a2, a3, SP[a1, a2], n] + S2[a4, a1, a2, SP[a1, a3], a2, n] + 
    2*S2[a1, n]*S2[a4, a1, a3, a2, a2, n] + 
    2*S2[a4, a1, a3, a2, SP[a1, a2], n] + 
    2*S2[a4, a1, a3, SP[a1, a2], a2, n] + S2[a4, a1, SP[a1, a2], a3, a2, n] + 
    2*S2[a4, a1, SP[a1, a3], a2, a2, n] + 
    S2[a1, n]*S2[a4, a2, a1, a3, a2, n] + S2[a4, a2, a1, a3, SP[a1, a2], n] + 
    S2[a4, a2, a1, SP[a1, a3], a2, n] + S2[a4, a2, SP[a1, a1], a3, a2, n] + 
    S2[a4, SP[a1, a1], a2, a3, a2, n] + 2*S2[a4, SP[a1, a1], a3, a2, a2, n] + 
    S2[a4, SP[a1, a2], a1, a3, a2, n] + 2*S2[SP[a1, a1], a2, a3, a2, a4, n] + 
    2*S2[SP[a1, a1], a2, a3, a4, a2, n] + 
    2*S2[SP[a1, a1], a2, a4, a3, a2, n] + 
    4*S2[SP[a1, a1], a3, a2, a2, a4, n] + 
    3*S2[SP[a1, a1], a3, a2, a4, a2, n] + 
    2*S2[SP[a1, a1], a3, a4, a2, a2, n] + S2[SP[a1, a1], a4, a2, a3, a2, n] + 
    2*S2[SP[a1, a1], a4, a3, a2, a2, n] - S2[SP[a1, a4], a1, a2, a3, a2, n] - 
    2*S2[SP[a1, a4], a1, a3, a2, a2, n] - 
    2*S2[SP[a1, a4], a3, a1, a2, a2, n] - S2[SP[a1, a4], a3, a2, a1, a2, n] - 
    S2[a4, a1, a2, a1, a3, a2, n] - S2[a4, a1, a2, a3, a1, a2, n] - 
    S2[a4, a1, a2, a3, a2, a1, n] - S2[a4, a1, a3, a2, a1, a2, n] - 
    2*S2[a4, a1, a3, a2, a2, a1, n] - 2*S2[a4, a2, a1, a1, a3, a2, n] - 
    S2[a4, a2, a1, a3, a1, a2, n] - S2[a4, a2, a1, a3, a2, a1, n] /; 
   MyMemberQ[{{a1, a2}, {a3, a4}}, {a1, a1, a2, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a2_, a3_, a2_, a1_, a1_, a4_, n_] :> 
  -2*S2[a1, a1, a4, n]*S2[a2, a2, a3, n] - 
    2*S2[SP[a1, a2], SP[a1, a2], SP[a3, a4], n] - 
    S2[a2, a3, n]*S2[a1, a1, a2, a4, n] - S2[a2, a3, n]*
     S2[a1, a1, a4, a2, n] + S2[a1, a1, SP[a2, a2], SP[a3, a4], n] + 
    S2[a1, a1, SP[a2, a4], SP[a2, a3], n] - S2[a2, a3, n]*
     S2[a1, a2, a1, a4, n] - S2[a1, a4, n]*S2[a1, a2, a3, a2, n] + 
    3*S2[a1, a2, SP[a1, a2], SP[a3, a4], n] + S2[a1, a2, SP[a1, a3], 
     SP[a2, a4], n] + 3*S2[a1, SP[a1, a2], a2, SP[a3, a4], n] + 
    S2[a1, SP[a1, a2], a3, SP[a2, a4], n] + S2[a1, SP[a1, a2], a4, 
     SP[a2, a3], n] + S2[a1, SP[a1, a2], SP[a2, a3], a4, n] + 
    2*S2[a1, SP[a1, a2], SP[a2, a4], a3, n] + 
    2*S2[a1, SP[a1, a2], SP[a3, a4], a2, n] + S2[a1, SP[a2, a2], a1, 
     SP[a3, a4], n] + S2[a1, SP[a2, a2], SP[a1, a3], a4, n] + 
    2*S2[a2, a1, SP[a1, a2], SP[a3, a4], n] + 
    2*S2[a2, SP[a1, a2], a1, SP[a3, a4], n] + 
    2*S2[a2, SP[a1, a2], SP[a1, a3], a4, n] + S2[SP[a1, a1], a2, a3, 
     SP[a2, a4], n] + S2[SP[a1, a1], a2, SP[a3, a4], a2, n] + 
    S2[SP[a1, a1], SP[a2, a4], a3, a2, n] + 
    3*S2[SP[a1, a2], a1, a2, SP[a3, a4], n] + S2[SP[a1, a2], a1, a4, 
     SP[a2, a3], n] + S2[SP[a1, a2], a1, SP[a2, a3], a4, n] + 
    2*S2[SP[a1, a2], a1, SP[a2, a4], a3, n] + S2[SP[a1, a2], a1, SP[a3, a4], 
     a2, n] + 3*S2[SP[a1, a2], a2, a1, SP[a3, a4], n] + 
    3*S2[SP[a1, a2], a2, SP[a1, a3], a4, n] + 
    2*S2[SP[a1, a2], SP[a1, a2], a3, a4, n] + 
    2*S2[SP[a1, a2], SP[a1, a2], a4, a3, n] + S2[SP[a1, a2], SP[a1, a3], a2, 
     a4, n] + S2[SP[a1, a2], SP[a1, a3], a4, a2, n] + 
    S2[SP[a1, a2], SP[a2, a3], a1, a4, n] - 
    4*S2[a1, a1, a2, a2, SP[a3, a4], n] + 
    S2[a4, n]*S2[a1, a1, a2, a3, a2, n] + 
    2*S2[a2, n]*S2[a1, a1, a2, a3, a4, n] + S2[a1, a1, a2, a3, SP[a2, a4], 
     n] + 2*S2[a2, n]*S2[a1, a1, a2, a4, a3, n] + 
    S2[a1, a1, a2, a4, SP[a2, a3], n] + S2[a1, a1, a2, SP[a2, a3], a4, n] - 
    S2[a1, a1, a2, SP[a2, a4], a3, n] - 2*S2[a1, a1, a2, SP[a3, a4], a2, n] + 
    2*S2[a2, n]*S2[a1, a1, a4, a2, a3, n] + S2[a1, a1, a4, a2, SP[a2, a3], 
     n] + S2[a1, a1, a4, SP[a2, a2], a3, n] + S2[a1, a1, SP[a2, a2], a3, a4, 
     n] + S2[a1, a1, SP[a2, a2], a4, a3, n] - S2[a1, a1, SP[a2, a4], a2, a3, 
     n] - 2*S2[a1, a1, SP[a2, a4], a3, a2, n] - 
    4*S2[a1, a2, a1, a2, SP[a3, a4], n] + 
    2*S2[a2, n]*S2[a1, a2, a1, a3, a4, n] + S2[a1, a2, a1, a3, SP[a2, a4], 
     n] + 2*S2[a2, n]*S2[a1, a2, a1, a4, a3, n] + 
    S2[a1, a2, a1, a4, SP[a2, a3], n] + S2[a1, a2, a1, SP[a2, a3], a4, n] - 
    S2[a1, a2, a1, SP[a2, a4], a3, n] - 2*S2[a1, a2, a1, SP[a3, a4], a2, n] - 
    4*S2[a1, a2, a2, a1, SP[a3, a4], n] - 
    4*S2[a1, a2, a2, SP[a1, a3], a4, n] + 
    2*S2[a2, n]*S2[a1, a2, a3, a1, a4, n] + S2[a1, a2, a3, a1, SP[a2, a4], 
     n] + S2[a1, a2, a3, SP[a1, a2], a4, n] - S2[a1, a2, SP[a1, a2], a3, a4, 
     n] - S2[a1, a2, SP[a1, a2], a4, a3, n] - 
    2*S2[a1, a2, SP[a1, a3], a2, a4, n] - 
    2*S2[a1, a2, SP[a1, a3], a4, a2, n] + S2[a1, a2, SP[a2, a3], a1, a4, n] - 
    S2[a1, SP[a1, a2], a2, a3, a4, n] - S2[a1, SP[a1, a2], a2, a4, a3, n] - 
    2*S2[a1, SP[a1, a2], a3, a2, a4, n] - 
    2*S2[a1, SP[a1, a2], a3, a4, a2, n] - S2[a1, SP[a1, a2], a4, a2, a3, n] - 
    2*S2[a1, SP[a1, a2], a4, a3, a2, n] + S2[a1, SP[a2, a2], a1, a3, a4, n] + 
    S2[a1, SP[a2, a2], a1, a4, a3, n] + S2[a1, SP[a2, a2], a3, a1, a4, n] - 
    3*S2[a2, a1, a1, a2, SP[a3, a4], n] + 
    S2[a2, n]*S2[a2, a1, a1, a3, a4, n] + S2[a2, a1, a1, a3, SP[a2, a4], n] + 
    S2[a2, n]*S2[a2, a1, a1, a4, a3, n] - S2[a2, a1, a1, SP[a2, a4], a3, n] - 
    S2[a2, a1, a1, SP[a3, a4], a2, n] - 3*S2[a2, a1, a2, a1, SP[a3, a4], n] - 
    3*S2[a2, a1, a2, SP[a1, a3], a4, n] + 
    S2[a2, n]*S2[a2, a1, a3, a1, a4, n] + S2[a2, a1, a3, a1, SP[a2, a4], n] + 
    S2[a2, a1, a3, SP[a1, a2], a4, n] - S2[a2, a1, SP[a1, a2], a3, a4, n] - 
    S2[a2, a1, SP[a1, a2], a4, a3, n] - S2[a2, a1, SP[a1, a3], a2, a4, n] - 
    S2[a2, a1, SP[a1, a3], a4, a2, n] - 2*S2[a2, a2, a1, a1, SP[a3, a4], n] - 
    2*S2[a2, a2, a1, SP[a1, a3], a4, n] - 
    2*S2[a2, a2, SP[a1, a3], a1, a4, n] + 
    S2[a2, n]*S2[a2, a3, a1, a1, a4, n] + S2[a2, a3, a1, a1, SP[a2, a4], n] + 
    S2[a2, a3, a1, SP[a1, a2], a4, n] + S2[a2, a3, SP[a1, a2], a1, a4, n] - 
    S2[a2, SP[a1, a2], a1, a3, a4, n] - S2[a2, SP[a1, a2], a1, a4, a3, n] - 
    S2[a2, SP[a1, a2], a3, a1, a4, n] - S2[a2, SP[a1, a3], a1, a2, a4, n] - 
    S2[a2, SP[a1, a3], a1, a4, a2, n] - S2[a2, SP[a1, a3], a2, a1, a4, n] + 
    S2[a2, SP[a2, a3], a1, a1, a4, n] - S2[SP[a1, a1], a2, a3, a2, a4, n] - 
    S2[SP[a1, a1], a2, a3, a4, a2, n] - S2[SP[a1, a1], a2, a4, a3, a2, n] - 
    S2[SP[a1, a1], a4, a2, a3, a2, n] - S2[SP[a1, a2], a1, a2, a3, a4, n] - 
    S2[SP[a1, a2], a1, a2, a4, a3, n] - S2[SP[a1, a2], a1, a3, a2, a4, n] - 
    S2[SP[a1, a2], a1, a3, a4, a2, n] - S2[SP[a1, a2], a1, a4, a2, a3, n] - 
    S2[SP[a1, a2], a1, a4, a3, a2, n] - S2[SP[a1, a2], a2, a1, a3, a4, n] - 
    S2[SP[a1, a2], a2, a1, a4, a3, n] - S2[SP[a1, a2], a2, a3, a1, a4, n] - 
    S2[SP[a1, a2], a3, a1, a2, a4, n] - S2[SP[a1, a2], a3, a1, a4, a2, n] - 
    S2[SP[a1, a2], a3, a2, a1, a4, n] + S2[SP[a1, a4], a1, a2, a3, a2, n] + 
    S2[SP[a2, a2], a1, a1, a3, a4, n] + S2[SP[a2, a2], a1, a1, a4, a3, n] + 
    S2[SP[a2, a2], a1, a3, a1, a4, n] + S2[SP[a2, a2], a3, a1, a1, a4, n] - 
    S2[a4, a1, a1, a2, a3, a2, n] /; MyMemberQ[{{a1, a2}, {a3, a4}}, 
     {a1, a1, a2, a2, a3, a4}] && a1 != a2 != a3 != a4, 
 S2[a2_, a3_, a2_, a1_, a4_, a1_, n_] :> 
  4*S2[a1, a1, a4, n]*S2[a2, a2, a3, n] + 
    4*S2[SP[a1, a2], SP[a1, a2], SP[a3, a4], n] + 
    2*S2[a2, a3, n]*S2[a1, a1, a2, a4, n] + 2*S2[a2, a3, n]*
     S2[a1, a1, a4, a2, n] - 2*S2[a1, a1, SP[a2, a2], SP[a3, a4], n] - 
    2*S2[a1, a1, SP[a2, a4], SP[a2, a3], n] + 
    S2[a2, a3, n]*S2[a1, a2, a1, a4, n] + S2[a1, a4, n]*
     S2[a1, a2, a3, a2, n] - 5*S2[a1, a2, SP[a1, a2], SP[a3, a4], n] - 
    S2[a1, a2, SP[a1, a3], SP[a2, a4], n] - 
    6*S2[a1, SP[a1, a2], a2, SP[a3, a4], n] - S2[a1, SP[a1, a2], a3, 
     SP[a2, a4], n] - 2*S2[a1, SP[a1, a2], a4, SP[a2, a3], n] - 
    2*S2[a1, SP[a1, a2], SP[a2, a3], a4, n] - 
    4*S2[a1, SP[a1, a2], SP[a2, a4], a3, n] - 
    3*S2[a1, SP[a1, a2], SP[a3, a4], a2, n] - S2[a1, SP[a2, a2], a1, 
     SP[a3, a4], n] - S2[a1, SP[a2, a2], SP[a1, a3], a4, n] - 
    4*S2[a2, a1, SP[a1, a2], SP[a3, a4], n] - 
    4*S2[a2, SP[a1, a2], a1, SP[a3, a4], n] - 
    4*S2[a2, SP[a1, a2], SP[a1, a3], a4, n] - S2[SP[a1, a1], a2, a3, 
     SP[a2, a4], n] - S2[SP[a1, a1], a2, SP[a3, a4], a2, n] - 
    S2[SP[a1, a1], SP[a2, a4], a3, a2, n] - 
    6*S2[SP[a1, a2], a1, a2, SP[a3, a4], n] - 
    2*S2[SP[a1, a2], a1, a4, SP[a2, a3], n] - 
    2*S2[SP[a1, a2], a1, SP[a2, a3], a4, n] - 
    4*S2[SP[a1, a2], a1, SP[a2, a4], a3, n] - 
    2*S2[SP[a1, a2], a1, SP[a3, a4], a2, n] - 
    5*S2[SP[a1, a2], a2, a1, SP[a3, a4], n] - 
    5*S2[SP[a1, a2], a2, SP[a1, a3], a4, n] - 
    4*S2[SP[a1, a2], SP[a1, a2], a3, a4, n] - 
    4*S2[SP[a1, a2], SP[a1, a2], a4, a3, n] - 
    2*S2[SP[a1, a2], SP[a1, a3], a2, a4, n] - 
    2*S2[SP[a1, a2], SP[a1, a3], a4, a2, n] - S2[SP[a1, a2], SP[a2, a3], a1, 
     a4, n] + 8*S2[a1, a1, a2, a2, SP[a3, a4], n] - 
    4*S2[a2, n]*S2[a1, a1, a2, a3, a4, n] - 
    2*S2[a1, a1, a2, a3, SP[a2, a4], n] - 
    4*S2[a2, n]*S2[a1, a1, a2, a4, a3, n] - 
    2*S2[a1, a1, a2, a4, SP[a2, a3], n] - 
    2*S2[a1, a1, a2, SP[a2, a3], a4, n] + 
    2*S2[a1, a1, a2, SP[a2, a4], a3, n] + 
    4*S2[a1, a1, a2, SP[a3, a4], a2, n] - 
    4*S2[a2, n]*S2[a1, a1, a4, a2, a3, n] - 
    2*S2[a1, a1, a4, a2, SP[a2, a3], n] - 
    2*S2[a1, a1, a4, SP[a2, a2], a3, n] - 
    2*S2[a1, a1, SP[a2, a2], a3, a4, n] - 
    2*S2[a1, a1, SP[a2, a2], a4, a3, n] + 
    2*S2[a1, a1, SP[a2, a4], a2, a3, n] + 
    4*S2[a1, a1, SP[a2, a4], a3, a2, n] + 
    7*S2[a1, a2, a1, a2, SP[a3, a4], n] - 
    3*S2[a2, n]*S2[a1, a2, a1, a3, a4, n] - 
    2*S2[a1, a2, a1, a3, SP[a2, a4], n] - 
    3*S2[a2, n]*S2[a1, a2, a1, a4, a3, n] - S2[a1, a2, a1, a4, SP[a2, a3], 
     n] - S2[a1, a2, a1, SP[a2, a3], a4, n] + 
    2*S2[a1, a2, a1, SP[a2, a4], a3, n] + 
    3*S2[a1, a2, a1, SP[a3, a4], a2, n] + 
    6*S2[a1, a2, a2, a1, SP[a3, a4], n] + 
    6*S2[a1, a2, a2, SP[a1, a3], a4, n] - 
    3*S2[a2, n]*S2[a1, a2, a3, a1, a4, n] - 
    2*S2[a1, a2, a3, a1, SP[a2, a4], n] - 
    2*S2[a1, a2, a3, SP[a1, a2], a4, n] + 
    2*S2[a1, a2, SP[a1, a2], a3, a4, n] + 
    2*S2[a1, a2, SP[a1, a2], a4, a3, n] + 
    3*S2[a1, a2, SP[a1, a3], a2, a4, n] + 
    3*S2[a1, a2, SP[a1, a3], a4, a2, n] - 
    2*S2[a1, a2, SP[a2, a3], a1, a4, n] + 
    2*S2[a1, SP[a1, a2], a2, a3, a4, n] + 
    2*S2[a1, SP[a1, a2], a2, a4, a3, n] + 
    3*S2[a1, SP[a1, a2], a3, a2, a4, n] + 
    3*S2[a1, SP[a1, a2], a3, a4, a2, n] + 
    2*S2[a1, SP[a1, a2], a4, a2, a3, n] + 
    3*S2[a1, SP[a1, a2], a4, a3, a2, n] + S2[a1, SP[a1, a4], a2, a3, a2, n] - 
    2*S2[a1, SP[a2, a2], a1, a3, a4, n] - 
    2*S2[a1, SP[a2, a2], a1, a4, a3, n] - 
    2*S2[a1, SP[a2, a2], a3, a1, a4, n] + 
    6*S2[a2, a1, a1, a2, SP[a3, a4], n] - 
    2*S2[a2, n]*S2[a2, a1, a1, a3, a4, n] - 
    2*S2[a2, a1, a1, a3, SP[a2, a4], n] - 
    2*S2[a2, n]*S2[a2, a1, a1, a4, a3, n] + 
    2*S2[a2, a1, a1, SP[a2, a4], a3, n] + 
    2*S2[a2, a1, a1, SP[a3, a4], a2, n] + 
    5*S2[a2, a1, a2, a1, SP[a3, a4], n] + 
    5*S2[a2, a1, a2, SP[a1, a3], a4, n] - 
    2*S2[a2, n]*S2[a2, a1, a3, a1, a4, n] - 
    2*S2[a2, a1, a3, a1, SP[a2, a4], n] - 
    2*S2[a2, a1, a3, SP[a1, a2], a4, n] + 
    2*S2[a2, a1, SP[a1, a2], a3, a4, n] + 
    2*S2[a2, a1, SP[a1, a2], a4, a3, n] + 
    2*S2[a2, a1, SP[a1, a3], a2, a4, n] + 
    2*S2[a2, a1, SP[a1, a3], a4, a2, n] - S2[a2, a1, SP[a2, a3], a1, a4, n] + 
    4*S2[a2, a2, a1, a1, SP[a3, a4], n] + 
    4*S2[a2, a2, a1, SP[a1, a3], a4, n] + 
    4*S2[a2, a2, SP[a1, a3], a1, a4, n] - 
    2*S2[a2, n]*S2[a2, a3, a1, a1, a4, n] - 
    2*S2[a2, a3, a1, a1, SP[a2, a4], n] - 
    2*S2[a2, a3, a1, SP[a1, a2], a4, n] + 
    S2[a1, n]*S2[a2, a3, a2, a1, a4, n] + S2[a2, a3, a2, a1, SP[a1, a4], n] + 
    S2[a2, a3, a2, SP[a1, a1], a4, n] - S2[a2, a3, SP[a1, a2], a1, a4, n] + 
    2*S2[a2, SP[a1, a2], a1, a3, a4, n] + 
    2*S2[a2, SP[a1, a2], a1, a4, a3, n] + 
    2*S2[a2, SP[a1, a2], a3, a1, a4, n] + 
    2*S2[a2, SP[a1, a3], a1, a2, a4, n] + 
    2*S2[a2, SP[a1, a3], a1, a4, a2, n] + 
    2*S2[a2, SP[a1, a3], a2, a1, a4, n] - 
    2*S2[a2, SP[a2, a3], a1, a1, a4, n] - 
    S2[a1, n]*S2[a4, a1, a2, a3, a2, n] - S2[a4, a1, a2, a3, SP[a1, a2], n] - 
    S2[a4, a1, a2, SP[a1, a3], a2, n] - S2[a4, a1, SP[a1, a2], a3, a2, n] - 
    S2[a4, SP[a1, a1], a2, a3, a2, n] + S2[SP[a1, a1], a2, a3, a2, a4, n] + 
    S2[SP[a1, a1], a2, a3, a4, a2, n] + S2[SP[a1, a1], a2, a4, a3, a2, n] + 
    S2[SP[a1, a1], a4, a2, a3, a2, n] + 2*S2[SP[a1, a2], a1, a2, a3, a4, n] + 
    2*S2[SP[a1, a2], a1, a2, a4, a3, n] + 
    2*S2[SP[a1, a2], a1, a3, a2, a4, n] + 
    2*S2[SP[a1, a2], a1, a3, a4, a2, n] + 
    2*S2[SP[a1, a2], a1, a4, a2, a3, n] + 
    2*S2[SP[a1, a2], a1, a4, a3, a2, n] + 
    2*S2[SP[a1, a2], a2, a1, a3, a4, n] + 
    2*S2[SP[a1, a2], a2, a1, a4, a3, n] + 
    2*S2[SP[a1, a2], a2, a3, a1, a4, n] + 
    2*S2[SP[a1, a2], a3, a1, a2, a4, n] + 
    2*S2[SP[a1, a2], a3, a1, a4, a2, n] + 
    2*S2[SP[a1, a2], a3, a2, a1, a4, n] - S2[SP[a1, a4], a1, a2, a3, a2, n] - 
    2*S2[SP[a2, a2], a1, a1, a3, a4, n] - 
    2*S2[SP[a2, a2], a1, a1, a4, a3, n] - 
    2*S2[SP[a2, a2], a1, a3, a1, a4, n] - 
    2*S2[SP[a2, a2], a3, a1, a1, a4, n] + 2*S2[a4, a1, a1, a2, a3, a2, n] + 
    S2[a4, a1, a2, a1, a3, a2, n] + S2[a4, a1, a2, a3, a1, a2, n] + 
    S2[a4, a1, a2, a3, a2, a1, n] /; MyMemberQ[{{a1, a2}, {a3, a4}}, 
     {a1, a1, a2, a2, a3, a4}] && a1 != a2 != a3 != a4, 
 S2[a2_, a3_, a2_, a4_, a1_, a1_, n_] :> 
  -2*S2[a1, a1, a4, n]*S2[a2, a2, a3, n] - 
    2*S2[SP[a1, a2], SP[a1, a2], SP[a3, a4], n] - 
    S2[a2, a3, n]*S2[a1, a1, a4, a2, n] + S2[a1, a1, SP[a2, a4], SP[a2, a3], 
     n] + 2*S2[a1, a2, SP[a1, a2], SP[a3, a4], n] + 
    2*S2[a1, SP[a1, a2], a2, SP[a3, a4], n] + S2[a1, SP[a1, a2], a4, 
     SP[a2, a3], n] + 2*S2[a1, SP[a1, a2], SP[a2, a4], a3, n] + 
    S2[a1, SP[a1, a2], SP[a3, a4], a2, n] + 
    2*S2[a2, a1, SP[a1, a2], SP[a3, a4], n] + 
    2*S2[a2, SP[a1, a2], a1, SP[a3, a4], n] + 
    2*S2[a2, SP[a1, a2], SP[a1, a3], a4, n] + 
    2*S2[SP[a1, a2], a1, a2, SP[a3, a4], n] + S2[SP[a1, a2], a1, a4, 
     SP[a2, a3], n] + 2*S2[SP[a1, a2], a1, SP[a2, a4], a3, n] + 
    S2[SP[a1, a2], a1, SP[a3, a4], a2, n] + 
    2*S2[SP[a1, a2], a2, a1, SP[a3, a4], n] + 
    2*S2[SP[a1, a2], a2, SP[a1, a3], a4, n] + 
    2*S2[SP[a1, a2], SP[a1, a2], a3, a4, n] + 
    2*S2[SP[a1, a2], SP[a1, a2], a4, a3, n] + S2[SP[a1, a2], SP[a1, a3], a4, 
     a2, n] - 2*S2[a1, a1, a2, a2, SP[a3, a4], n] + 
    S2[a2, n]*S2[a1, a1, a2, a3, a4, n] + S2[a1, a1, a2, a3, SP[a2, a4], n] + 
    S2[a2, n]*S2[a1, a1, a2, a4, a3, n] + S2[a1, a1, a2, SP[a2, a3], a4, n] - 
    S2[a1, a1, a2, SP[a2, a4], a3, n] - S2[a1, a1, a2, SP[a3, a4], a2, n] + 
    2*S2[a2, n]*S2[a1, a1, a4, a2, a3, n] + S2[a1, a1, a4, a2, SP[a2, a3], 
     n] + S2[a1, a1, a4, SP[a2, a2], a3, n] + S2[a1, a1, SP[a2, a2], a3, a4, 
     n] + S2[a1, a1, SP[a2, a2], a4, a3, n] - S2[a1, a1, SP[a2, a4], a2, a3, 
     n] - S2[a1, a1, SP[a2, a4], a3, a2, n] - 
    2*S2[a1, a2, a1, a2, SP[a3, a4], n] + 
    S2[a2, n]*S2[a1, a2, a1, a3, a4, n] + S2[a1, a2, a1, a3, SP[a2, a4], n] + 
    S2[a2, n]*S2[a1, a2, a1, a4, a3, n] + S2[a1, a2, a1, SP[a2, a3], a4, n] - 
    S2[a1, a2, a1, SP[a2, a4], a3, n] - S2[a1, a2, a1, SP[a3, a4], a2, n] - 
    2*S2[a1, a2, a2, a1, SP[a3, a4], n] - 
    2*S2[a1, a2, a2, SP[a1, a3], a4, n] + 
    S2[a2, n]*S2[a1, a2, a3, a1, a4, n] + S2[a1, a2, a3, a1, SP[a2, a4], n] - 
    (S2[a1, n]*S2[a1, a2, a3, a2, a4, n])/2 - 
    S2[a1, a2, a3, a2, SP[a1, a4], n]/2 + S2[a1, a2, a3, SP[a1, a2], a4, n]/
     2 - S2[a1, a2, SP[a1, a2], a3, a4, n] - S2[a1, a2, SP[a1, a2], a4, a3, 
     n] - S2[a1, a2, SP[a1, a3], a2, a4, n]/2 - S2[a1, a2, SP[a1, a3], a4, 
     a2, n] + S2[a1, a2, SP[a2, a3], a1, a4, n] - 
    (S2[a1, n]*S2[a1, a4, a2, a3, a2, n])/2 - 
    S2[a1, a4, a2, a3, SP[a1, a2], n]/2 - S2[a1, a4, a2, SP[a1, a3], a2, n]/
     2 - S2[a1, a4, SP[a1, a2], a3, a2, n]/2 - S2[a1, SP[a1, a2], a2, a3, a4, 
     n] - S2[a1, SP[a1, a2], a2, a4, a3, n] - 
    S2[a1, SP[a1, a2], a3, a2, a4, n]/2 - S2[a1, SP[a1, a2], a3, a4, a2, n] - 
    S2[a1, SP[a1, a2], a4, a2, a3, n] - S2[a1, SP[a1, a2], a4, a3, a2, n] - 
    S2[a1, SP[a1, a4], a2, a3, a2, n]/2 + S2[a1, SP[a2, a2], a1, a3, a4, n] + 
    S2[a1, SP[a2, a2], a1, a4, a3, n] + S2[a1, SP[a2, a2], a3, a1, a4, n] - 
    2*S2[a2, a1, a1, a2, SP[a3, a4], n] + 
    S2[a2, n]*S2[a2, a1, a1, a3, a4, n] + S2[a2, a1, a1, a3, SP[a2, a4], n] + 
    S2[a2, n]*S2[a2, a1, a1, a4, a3, n] + S2[a2, a1, a1, SP[a2, a3], a4, n] - 
    S2[a2, a1, a1, SP[a2, a4], a3, n] - S2[a2, a1, a1, SP[a3, a4], a2, n] - 
    2*S2[a2, a1, a2, a1, SP[a3, a4], n] - 
    2*S2[a2, a1, a2, SP[a1, a3], a4, n] + 
    S2[a2, n]*S2[a2, a1, a3, a1, a4, n] + S2[a2, a1, a3, a1, SP[a2, a4], n] - 
    (S2[a1, n]*S2[a2, a1, a3, a2, a4, n])/2 - 
    S2[a2, a1, a3, a2, SP[a1, a4], n]/2 + S2[a2, a1, a3, SP[a1, a2], a4, n]/
     2 - S2[a2, a1, SP[a1, a2], a3, a4, n] - S2[a2, a1, SP[a1, a2], a4, a3, 
     n] - S2[a2, a1, SP[a1, a3], a2, a4, n]/2 - S2[a2, a1, SP[a1, a3], a4, 
     a2, n] + S2[a2, a1, SP[a2, a3], a1, a4, n] - 
    2*S2[a2, a2, a1, a1, SP[a3, a4], n] - 
    2*S2[a2, a2, a1, SP[a1, a3], a4, n] - 
    2*S2[a2, a2, SP[a1, a3], a1, a4, n] + 
    S2[a2, n]*S2[a2, a3, a1, a1, a4, n] + S2[a2, a3, a1, a1, SP[a2, a4], n] - 
    (S2[a1, n]*S2[a2, a3, a1, a2, a4, n])/2 - 
    S2[a2, a3, a1, a2, SP[a1, a4], n]/2 + S2[a2, a3, a1, SP[a1, a2], a4, n]/
     2 - (S2[a1, n]*S2[a2, a3, a2, a1, a4, n])/2 - 
    S2[a2, a3, a2, a1, SP[a1, a4], n]/2 + 
    (S2[a1, n]*S2[a2, a3, a2, a4, a1, n])/2 + 
    S2[a2, a3, a2, a4, SP[a1, a1], n]/2 - S2[a2, a3, a2, SP[a1, a1], a4, n]/
     2 + S2[a2, a3, a2, SP[a1, a4], a1, n]/2 - 
    S2[a2, a3, SP[a1, a1], a2, a4, n]/2 + S2[a2, a3, SP[a1, a2], a1, a4, n]/
     2 + S2[a2, a3, SP[a1, a2], a4, a1, n]/2 - 
    S2[a2, SP[a1, a1], a3, a2, a4, n]/2 - S2[a2, SP[a1, a2], a1, a3, a4, n] - 
    S2[a2, SP[a1, a2], a1, a4, a3, n] - S2[a2, SP[a1, a2], a3, a1, a4, n] - 
    S2[a2, SP[a1, a3], a1, a2, a4, n]/2 - S2[a2, SP[a1, a3], a1, a4, a2, n] - 
    S2[a2, SP[a1, a3], a2, a1, a4, n]/2 + S2[a2, SP[a1, a3], a2, a4, a1, n]/
     2 + S2[a2, SP[a2, a3], a1, a1, a4, n] + 
    (S2[a1, n]*S2[a4, a1, a2, a3, a2, n])/2 + 
    S2[a4, a1, a2, a3, SP[a1, a2], n]/2 + S2[a4, a1, a2, SP[a1, a3], a2, n]/
     2 + S2[a4, a1, SP[a1, a2], a3, a2, n]/2 + 
    (S2[a1, n]*S2[a4, a2, a1, a3, a2, n])/2 + 
    S2[a4, a2, a1, a3, SP[a1, a2], n]/2 + S2[a4, a2, a1, SP[a1, a3], a2, n]/
     2 + (S2[a1, n]*S2[a4, a2, a3, a1, a2, n])/2 + 
    S2[a4, a2, a3, a1, SP[a1, a2], n]/2 + 
    (S2[a1, n]*S2[a4, a2, a3, a2, a1, n])/2 + 
    S2[a4, a2, a3, a2, SP[a1, a1], n]/2 + S2[a4, a2, a3, SP[a1, a1], a2, n]/
     2 + S2[a4, a2, a3, SP[a1, a2], a1, n]/2 + 
    S2[a4, a2, SP[a1, a1], a3, a2, n]/2 + S2[a4, a2, SP[a1, a3], a1, a2, n]/
     2 + S2[a4, a2, SP[a1, a3], a2, a1, n]/2 + 
    S2[a4, SP[a1, a1], a2, a3, a2, n]/2 + S2[a4, SP[a1, a2], a1, a3, a2, n]/
     2 + S2[a4, SP[a1, a2], a3, a1, a2, n]/2 + 
    S2[a4, SP[a1, a2], a3, a2, a1, n]/2 - S2[SP[a1, a1], a2, a3, a2, a4, n]/
     2 - S2[SP[a1, a1], a4, a2, a3, a2, n]/2 - S2[SP[a1, a2], a1, a2, a3, a4, 
     n] - S2[SP[a1, a2], a1, a2, a4, a3, n] - 
    S2[SP[a1, a2], a1, a3, a2, a4, n]/2 - S2[SP[a1, a2], a1, a3, a4, a2, n] - 
    S2[SP[a1, a2], a1, a4, a2, a3, n] - S2[SP[a1, a2], a1, a4, a3, a2, n] - 
    S2[SP[a1, a2], a2, a1, a3, a4, n] - S2[SP[a1, a2], a2, a1, a4, a3, n] - 
    S2[SP[a1, a2], a2, a3, a1, a4, n] - S2[SP[a1, a2], a3, a1, a2, a4, n]/2 - 
    S2[SP[a1, a2], a3, a1, a4, a2, n] - S2[SP[a1, a2], a3, a2, a1, a4, n]/2 + 
    S2[SP[a1, a2], a3, a2, a4, a1, n]/2 + S2[SP[a1, a4], a1, a2, a3, a2, n]/
     2 + S2[SP[a1, a4], a2, a1, a3, a2, n]/2 + 
    S2[SP[a1, a4], a2, a3, a1, a2, n]/2 + S2[SP[a1, a4], a2, a3, a2, a1, n]/
     2 + S2[SP[a2, a2], a1, a1, a3, a4, n] + S2[SP[a2, a2], a1, a1, a4, a3, 
     n] + S2[SP[a2, a2], a1, a3, a1, a4, n] + S2[SP[a2, a2], a3, a1, a1, a4, 
     n] - S2[a4, a1, a1, a2, a3, a2, n] - S2[a4, a1, a2, a1, a3, a2, n] - 
    S2[a4, a1, a2, a3, a1, a2, n] - S2[a4, a1, a2, a3, a2, a1, n] - 
    S2[a4, a2, a1, a1, a3, a2, n] - S2[a4, a2, a1, a3, a1, a2, n] - 
    S2[a4, a2, a1, a3, a2, a1, n] - S2[a4, a2, a3, a1, a1, a2, n] - 
    S2[a4, a2, a3, a1, a2, a1, n] - S2[a4, a2, a3, a2, a1, a1, n] /; 
   MyMemberQ[{{a1, a2}, {a3, a4}}, {a1, a1, a2, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a2_, a3_, a4_, a1_, a1_, a2_, n_] :> 
  S2[a2, a3, n]*S2[a1, a1, a2, a4, n] + S2[a2, a3, n]*S2[a1, a1, a4, a2, n] - 
    S2[a1, a1, SP[a2, a2], SP[a3, a4], n] - S2[a1, a1, SP[a2, a4], 
     SP[a2, a3], n] + S2[a2, a3, n]*S2[a1, a2, a1, a4, n] - 
    S2[a1, a2, SP[a1, a2], SP[a3, a4], n] + S2[a1, a2, n]*
     S2[a1, a3, a2, a4, n] + S2[a1, a2, n]*S2[a1, a3, a4, a2, n] - 
    S2[a1, a3, SP[a1, a2], SP[a2, a4], n] - S2[a1, a3, SP[a1, a4], 
     SP[a2, a2], n] + S2[a1, a2, n]*S2[a1, a4, a3, a2, n] - 
    S2[a1, a4, SP[a1, a3], SP[a2, a2], n] - S2[a1, SP[a1, a2], a2, 
     SP[a3, a4], n] - S2[a1, SP[a1, a2], a4, SP[a2, a3], n] - 
    S2[a1, SP[a1, a2], SP[a2, a3], a4, n] - S2[a1, SP[a1, a2], SP[a3, a4], 
     a2, n] - S2[a1, SP[a1, a3], a2, SP[a2, a4], n] - 
    S2[a1, SP[a1, a3], a4, SP[a2, a2], n] - S2[a1, SP[a1, a3], SP[a2, a2], 
     a4, n] - S2[a1, SP[a1, a3], SP[a2, a4], a2, n] - 
    S2[a1, SP[a1, a4], a3, SP[a2, a2], n] - S2[a1, SP[a1, a4], SP[a2, a3], 
     a2, n] - S2[a1, SP[a2, a2], a1, SP[a3, a4], n] - 
    S2[a1, SP[a2, a2], SP[a1, a3], a4, n] - S2[a1, a2, n]*
     S2[a2, a3, a1, a4, n] + S2[a2, a3, SP[a1, a1], SP[a2, a4], n] + 
    S2[a2, SP[a1, a3], a1, SP[a2, a4], n] + S2[a2, SP[a1, a3], SP[a1, a2], 
     a4, n] - S2[SP[a1, a1], a3, a2, SP[a2, a4], n] - 
    S2[SP[a1, a1], a3, a4, SP[a2, a2], n] - S2[SP[a1, a1], a3, SP[a2, a2], 
     a4, n] - S2[SP[a1, a1], a3, SP[a2, a4], a2, n] - 
    S2[SP[a1, a1], a4, a3, SP[a2, a2], n] - S2[SP[a1, a1], a4, SP[a2, a3], 
     a2, n] - S2[SP[a1, a1], SP[a2, a3], a2, a4, n] - 
    S2[SP[a1, a1], SP[a2, a3], a4, a2, n] - S2[SP[a1, a1], SP[a2, a4], a3, 
     a2, n] - S2[SP[a1, a2], a1, a2, SP[a3, a4], n] - 
    S2[SP[a1, a2], a1, a4, SP[a2, a3], n] - S2[SP[a1, a2], a1, SP[a2, a3], 
     a4, n] - S2[SP[a1, a2], a1, SP[a3, a4], a2, n] - 
    S2[SP[a1, a2], a2, a1, SP[a3, a4], n] - S2[SP[a1, a2], a2, SP[a1, a3], 
     a4, n] + S2[SP[a1, a2], a3, a1, SP[a2, a4], n] + 
    S2[SP[a1, a2], a3, SP[a1, a2], a4, n] - S2[SP[a1, a2], SP[a1, a3], a2, 
     a4, n] - S2[SP[a1, a2], SP[a1, a3], a4, a2, n] + 
    2*S2[a1, a1, a2, a2, SP[a3, a4], n] - 
    S2[a4, n]*S2[a1, a1, a2, a3, a2, n] - 
    S2[a2, n]*S2[a1, a1, a2, a3, a4, n] - 
    2*S2[a1, a1, a2, a3, SP[a2, a4], n] - 
    S2[a2, n]*S2[a1, a1, a2, a4, a3, n] - 
    2*S2[a4, n]*S2[a1, a1, a3, a2, a2, n] - 
    S2[a2, n]*S2[a1, a1, a3, a2, a4, n] - S2[a1, a1, a3, a2, SP[a2, a4], n] - 
    S2[a2, n]*S2[a1, a1, a3, a4, a2, n] + S2[a1, a1, a3, a4, SP[a2, a2], n] + 
    S2[a1, a1, a3, SP[a2, a2], a4, n] - S2[a1, a1, a3, SP[a2, a4], a2, n] - 
    S2[a2, n]*S2[a1, a1, a4, a2, a3, n] - 
    S2[a2, n]*S2[a1, a1, a4, a3, a2, n] + S2[a1, a1, a4, a3, SP[a2, a2], n] + 
    S2[a1, a1, a4, SP[a2, a3], a2, n] + S2[a1, a1, SP[a2, a3], a2, a4, n] + 
    S2[a1, a1, SP[a2, a3], a4, a2, n] + S2[a1, a1, SP[a2, a4], a3, a2, n] - 
    2*S2[a1, a1, SP[a3, a4], a2, a2, n] + 
    2*S2[a1, a2, a1, a2, SP[a3, a4], n] - 
    S2[a2, n]*S2[a1, a2, a1, a3, a4, n] - S2[a1, a2, a1, a3, SP[a2, a4], n] - 
    S2[a2, n]*S2[a1, a2, a1, a4, a3, n] + S2[a1, a2, a1, SP[a3, a4], a2, n] + 
    2*S2[a1, a2, a2, a1, SP[a3, a4], n] + 
    2*S2[a1, a2, a2, SP[a1, a3], a4, n] - S2[a1, a2, a3, a1, SP[a2, a4], n] - 
    S2[a1, a2, a3, SP[a1, a2], a4, n] + S2[a1, a2, SP[a1, a3], a2, a4, n] + 
    S2[a1, a2, SP[a1, a3], a4, a2, n] - 2*S2[a4, n]*
     S2[a1, a3, a1, a2, a2, n] - S2[a1, a3, a1, a2, SP[a2, a4], n] + 
    S2[a1, a3, a1, a4, SP[a2, a2], n] + S2[a1, a3, a1, SP[a2, a2], a4, n] - 
    S2[a1, a3, a1, SP[a2, a4], a2, n] - S2[a4, n]*S2[a1, a3, a2, a1, a2, n] + 
    S2[a1, a3, a4, a1, SP[a2, a2], n] + S2[a1, a3, a4, SP[a1, a2], a2, n] + 
    S2[a1, a3, SP[a1, a2], a2, a4, n] + S2[a1, a3, SP[a1, a2], a4, a2, n] - 
    S2[a1, a3, SP[a2, a4], a1, a2, n] + S2[a1, a4, a1, a3, SP[a2, a2], n] + 
    S2[a1, a4, a1, SP[a2, a3], a2, n] + S2[a1, a4, a3, a1, SP[a2, a2], n] + 
    S2[a1, a4, a3, SP[a1, a2], a2, n] + 2*S2[a1, a4, SP[a1, a3], a2, a2, n] + 
    S2[a1, SP[a1, a2], a3, a2, a4, n] + S2[a1, SP[a1, a2], a3, a4, a2, n] + 
    S2[a1, SP[a1, a2], a4, a3, a2, n] + 2*S2[a1, SP[a1, a3], a2, a2, a4, n] + 
    2*S2[a1, SP[a1, a3], a2, a4, a2, n] + 
    2*S2[a1, SP[a1, a3], a4, a2, a2, n] - 
    2*S2[a1, SP[a3, a4], a1, a2, a2, n] - S2[a1, SP[a3, a4], a2, a1, a2, n] + 
    S2[a2, a1, a1, a2, SP[a3, a4], n] + S2[a2, a1, a1, a4, SP[a2, a3], n] + 
    S2[a2, a1, a1, SP[a2, a3], a4, n] + S2[a2, a1, a1, SP[a3, a4], a2, n] + 
    S2[a2, a1, a2, a1, SP[a3, a4], n] + S2[a2, a1, a2, SP[a1, a3], a4, n] - 
    S2[a2, a1, a3, a1, SP[a2, a4], n] - S2[a2, a1, a3, SP[a1, a2], a4, n] + 
    S2[a2, a1, SP[a1, a3], a2, a4, n] + S2[a2, a1, SP[a1, a3], a4, a2, n] + 
    S2[a4, n]*S2[a2, a3, a1, a1, a2, n] - S2[a2, a3, a1, a1, SP[a2, a4], n] - 
    S2[a2, a3, a1, SP[a1, a2], a4, n] - S2[a2, a3, SP[a1, a1], a2, a4, n] - 
    S2[a2, a3, SP[a1, a1], a4, a2, n] + S2[a2, a3, SP[a1, a4], a1, a2, n] + 
    S2[a2, SP[a3, a4], a1, a1, a2, n] - S2[a2, n]*S2[a4, a3, a1, a1, a2, n] - 
    S2[a4, a3, a1, a1, SP[a2, a2], n] - S2[a4, a3, a1, SP[a1, a2], a2, n] - 
    S2[a4, a3, SP[a1, a2], a1, a2, n] - S2[a4, SP[a2, a3], a1, a1, a2, n] + 
    S2[SP[a1, a1], a2, a3, a2, a4, n] + S2[SP[a1, a1], a2, a3, a4, a2, n] + 
    S2[SP[a1, a1], a2, a4, a3, a2, n] + 2*S2[SP[a1, a1], a3, a2, a2, a4, n] + 
    2*S2[SP[a1, a1], a3, a2, a4, a2, n] + 
    2*S2[SP[a1, a1], a3, a4, a2, a2, n] + S2[SP[a1, a1], a4, a2, a3, a2, n] + 
    2*S2[SP[a1, a1], a4, a3, a2, a2, n] - S2[SP[a1, a4], a1, a2, a3, a2, n] - 
    2*S2[SP[a1, a4], a1, a3, a2, a2, n] - 
    2*S2[SP[a1, a4], a3, a1, a2, a2, n] - S2[SP[a1, a4], a3, a2, a1, a2, n] + 
    S2[a4, a1, a1, a2, a3, a2, n] + 2*S2[a4, a1, a1, a3, a2, a2, n] + 
    2*S2[a4, a1, a3, a1, a2, a2, n] + S2[a4, a1, a3, a2, a1, a2, n] + 
    2*S2[a4, a3, a1, a1, a2, a2, n] + S2[a4, a3, a1, a2, a1, a2, n] + 
    S2[a4, a3, a2, a1, a1, a2, n] /; MyMemberQ[{{a1, a2}, {a3, a4}}, 
     {a1, a1, a2, a2, a3, a4}] && a1 != a2 != a3 != a4, 
 S2[a2_, a3_, a4_, a1_, a2_, a1_, n_] :> 
  -(S2[a2, a3, n]*S2[a1, a2, a1, a4, n]) + S2[a1, a2, SP[a1, a2], SP[a3, a4], 
     n] - S2[a1, a2, n]*S2[a1, a3, a2, a4, n] - 
    S2[a1, a2, n]*S2[a1, a3, a4, a2, n] + S2[a1, a3, SP[a1, a2], SP[a2, a4], 
     n] + S2[a1, a3, SP[a1, a4], SP[a2, a2], n] - 
    S2[a1, a2, n]*S2[a1, a4, a3, a2, n] + S2[a1, a4, SP[a1, a3], SP[a2, a2], 
     n] + S2[a1, SP[a1, a3], a2, SP[a2, a4], n] + S2[a1, SP[a1, a3], a4, 
     SP[a2, a2], n] + S2[a1, SP[a1, a3], SP[a2, a2], a4, n] + 
    S2[a1, SP[a1, a3], SP[a2, a4], a2, n] + S2[a1, SP[a1, a4], a3, 
     SP[a2, a2], n] + S2[a1, SP[a1, a4], SP[a2, a3], a2, n] + 
    S2[a1, SP[a2, a2], a1, SP[a3, a4], n] + S2[a1, SP[a2, a2], SP[a1, a3], 
     a4, n] + S2[a1, a2, n]*S2[a2, a3, a1, a4, n] - 
    S2[a2, a3, SP[a1, a1], SP[a2, a4], n] - S2[a2, SP[a1, a3], a1, 
     SP[a2, a4], n] - S2[a2, SP[a1, a3], SP[a1, a2], a4, n] + 
    S2[SP[a1, a1], a3, a2, SP[a2, a4], n] + S2[SP[a1, a1], a3, a4, 
     SP[a2, a2], n] + S2[SP[a1, a1], a3, SP[a2, a2], a4, n] + 
    S2[SP[a1, a1], a3, SP[a2, a4], a2, n] + S2[SP[a1, a1], a4, a3, 
     SP[a2, a2], n] + S2[SP[a1, a1], a4, SP[a2, a3], a2, n] + 
    S2[SP[a1, a1], SP[a2, a3], a2, a4, n] + S2[SP[a1, a1], SP[a2, a3], a4, 
     a2, n] + S2[SP[a1, a1], SP[a2, a4], a3, a2, n] + 
    S2[SP[a1, a2], a2, a1, SP[a3, a4], n] + S2[SP[a1, a2], a2, SP[a1, a3], 
     a4, n] - S2[SP[a1, a2], a3, a1, SP[a2, a4], n] - 
    S2[SP[a1, a2], a3, SP[a1, a2], a4, n] + 
    2*S2[a4, n]*S2[a1, a1, a2, a3, a2, n] + 
    2*S2[a1, a1, a2, a3, SP[a2, a4], n] + 
    2*S2[a1, a1, a2, SP[a3, a4], a2, n] + 
    4*S2[a4, n]*S2[a1, a1, a3, a2, a2, n] + 
    2*S2[a1, a1, a3, a2, SP[a2, a4], n] - 
    2*S2[a1, a1, a3, a4, SP[a2, a2], n] - 
    2*S2[a1, a1, a3, SP[a2, a2], a4, n] + 
    2*S2[a1, a1, a3, SP[a2, a4], a2, n] - 
    2*S2[a1, a1, a4, a3, SP[a2, a2], n] - 
    2*S2[a1, a1, a4, SP[a2, a3], a2, n] - 
    2*S2[a1, a1, SP[a2, a3], a2, a4, n] - 
    2*S2[a1, a1, SP[a2, a3], a4, a2, n] + 
    4*S2[a1, a1, SP[a3, a4], a2, a2, n] - S2[a1, a2, a1, a2, SP[a3, a4], n] + 
    S2[a2, n]*S2[a1, a2, a1, a3, a4, n] + S2[a1, a2, a1, a3, SP[a2, a4], n] + 
    S2[a2, n]*S2[a1, a2, a1, a4, a3, n] + S2[a1, a2, a1, a4, SP[a2, a3], n] + 
    S2[a1, a2, a1, SP[a2, a3], a4, n] - 2*S2[a1, a2, a2, a1, SP[a3, a4], n] - 
    2*S2[a1, a2, a2, SP[a1, a3], a4, n] + S2[a1, a2, a3, a1, SP[a2, a4], n] + 
    S2[a1, a2, a3, SP[a1, a2], a4, n] + 4*S2[a4, n]*
     S2[a1, a3, a1, a2, a2, n] - S2[a2, n]*S2[a1, a3, a1, a2, a4, n] + 
    2*S2[a1, a3, a1, a2, SP[a2, a4], n] - 
    S2[a2, n]*S2[a1, a3, a1, a4, a2, n] - 
    2*S2[a1, a3, a1, a4, SP[a2, a2], n] - 
    2*S2[a1, a3, a1, SP[a2, a2], a4, n] + 
    2*S2[a1, a3, a1, SP[a2, a4], a2, n] + 
    2*S2[a4, n]*S2[a1, a3, a2, a1, a2, n] + S2[a1, a3, a2, a1, SP[a2, a4], 
     n] + S2[a1, a3, a2, SP[a1, a4], a2, n] - 
    S2[a2, n]*S2[a1, a3, a4, a1, a2, n] - 
    2*S2[a1, a3, a4, a1, SP[a2, a2], n] - 
    2*S2[a1, a3, a4, SP[a1, a2], a2, n] - 
    2*S2[a1, a3, SP[a1, a2], a2, a4, n] - 
    2*S2[a1, a3, SP[a1, a2], a4, a2, n] + 
    2*S2[a1, a3, SP[a1, a4], a2, a2, n] + S2[a1, a3, SP[a2, a4], a1, a2, n] - 
    S2[a1, a4, a1, a3, SP[a2, a2], n] - S2[a1, a4, a1, SP[a2, a3], a2, n] - 
    S2[a1, a4, a3, a1, SP[a2, a2], n] - S2[a1, a4, a3, SP[a1, a2], a2, n] - 
    2*S2[a1, a4, SP[a1, a3], a2, a2, n] - S2[a1, SP[a1, a2], a3, a2, a4, n] - 
    S2[a1, SP[a1, a2], a3, a4, a2, n] - S2[a1, SP[a1, a2], a4, a3, a2, n] - 
    2*S2[a1, SP[a1, a3], a2, a2, a4, n] - 
    2*S2[a1, SP[a1, a3], a2, a4, a2, n] - 
    2*S2[a1, SP[a1, a3], a4, a2, a2, n] + S2[a1, SP[a1, a4], a2, a3, a2, n] + 
    2*S2[a1, SP[a1, a4], a3, a2, a2, n] - S2[a1, SP[a2, a3], a1, a2, a4, n] - 
    S2[a1, SP[a2, a3], a1, a4, a2, n] - S2[a1, SP[a2, a3], a4, a1, a2, n] + 
    4*S2[a1, SP[a3, a4], a1, a2, a2, n] + 
    2*S2[a1, SP[a3, a4], a2, a1, a2, n] - S2[a2, a1, a2, a1, SP[a3, a4], n] - 
    S2[a2, a1, a2, SP[a1, a3], a4, n] + S2[a2, a1, a3, a1, SP[a2, a4], n] + 
    S2[a2, a1, a3, SP[a1, a2], a4, n] - 2*S2[a4, n]*
     S2[a2, a3, a1, a1, a2, n] + S2[a2, a3, a1, SP[a1, a2], a4, n] - 
    S2[a2, a3, a1, SP[a1, a4], a2, n] + S2[a1, n]*S2[a2, a3, a4, a1, a2, n] + 
    S2[a2, a3, a4, a1, SP[a1, a2], n] + S2[a2, a3, a4, SP[a1, a1], a2, n] + 
    S2[a2, a3, SP[a1, a1], a2, a4, n] + S2[a2, a3, SP[a1, a1], a4, a2, n] - 
    S2[a2, a3, SP[a1, a4], a1, a2, n] + S2[a2, SP[a1, a3], a1, a2, a4, n] + 
    S2[a2, SP[a1, a3], a1, a4, a2, n] + S2[a2, SP[a1, a3], a4, a1, a2, n] - 
    2*S2[a2, SP[a3, a4], a1, a1, a2, n] - 
    S2[a1, n]*S2[a4, a1, a2, a3, a2, n] - S2[a4, a1, a2, a3, SP[a1, a2], n] - 
    S2[a4, a1, a2, SP[a1, a3], a2, n] - 2*S2[a1, n]*
     S2[a4, a1, a3, a2, a2, n] - 2*S2[a4, a1, a3, a2, SP[a1, a2], n] - 
    2*S2[a4, a1, a3, SP[a1, a2], a2, n] - S2[a4, a1, SP[a1, a2], a3, a2, n] - 
    2*S2[a4, a1, SP[a1, a3], a2, a2, n] + 
    2*S2[a2, n]*S2[a4, a3, a1, a1, a2, n] + 
    2*S2[a4, a3, a1, a1, SP[a2, a2], n] - 
    2*S2[a1, n]*S2[a4, a3, a1, a2, a2, n] - 
    2*S2[a4, a3, a1, a2, SP[a1, a2], n] - 
    S2[a1, n]*S2[a4, a3, a2, a1, a2, n] - S2[a4, a3, a2, a1, SP[a1, a2], n] - 
    S2[a4, a3, a2, SP[a1, a1], a2, n] - 2*S2[a4, a3, SP[a1, a1], a2, a2, n] + 
    S2[a4, a3, SP[a1, a2], a1, a2, n] - S2[a4, SP[a1, a1], a2, a3, a2, n] - 
    2*S2[a4, SP[a1, a1], a3, a2, a2, n] - 
    2*S2[a4, SP[a1, a3], a1, a2, a2, n] - S2[a4, SP[a1, a3], a2, a1, a2, n] + 
    2*S2[a4, SP[a2, a3], a1, a1, a2, n] - S2[SP[a1, a1], a2, a3, a2, a4, n] - 
    S2[SP[a1, a1], a2, a3, a4, a2, n] - S2[SP[a1, a1], a2, a4, a3, a2, n] - 
    2*S2[SP[a1, a1], a3, a2, a2, a4, n] - 
    2*S2[SP[a1, a1], a3, a2, a4, a2, n] - 
    2*S2[SP[a1, a1], a3, a4, a2, a2, n] - S2[SP[a1, a1], a4, a2, a3, a2, n] - 
    2*S2[SP[a1, a1], a4, a3, a2, a2, n] + S2[SP[a1, a4], a1, a2, a3, a2, n] + 
    2*S2[SP[a1, a4], a1, a3, a2, a2, n] + 
    2*S2[SP[a1, a4], a3, a1, a2, a2, n] + S2[SP[a1, a4], a3, a2, a1, a2, n] + 
    S2[a4, a1, a2, a1, a3, a2, n] + S2[a4, a1, a2, a3, a1, a2, n] + 
    S2[a4, a1, a2, a3, a2, a1, n] + S2[a4, a1, a3, a2, a1, a2, n] + 
    2*S2[a4, a1, a3, a2, a2, a1, n] + S2[a4, a3, a1, a2, a1, a2, n] + 
    2*S2[a4, a3, a1, a2, a2, a1, n] + S2[a4, a3, a2, a1, a2, a1, n] /; 
   MyMemberQ[{{a1, a2}, {a3, a4}}, {a1, a1, a2, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a2_, a3_, a4_, a2_, a1_, a1_, n_] :> 
  -(S2[a2, a3, n]*S2[a1, a1, a2, a4, n]) + S2[a1, a1, SP[a2, a2], SP[a3, a4], 
     n] + S2[a1, SP[a1, a2], a2, SP[a3, a4], n] + 
    S2[a1, SP[a1, a2], SP[a2, a3], a4, n] + S2[SP[a1, a2], a1, a2, 
     SP[a3, a4], n] + S2[SP[a1, a2], a1, SP[a2, a3], a4, n] + 
    S2[SP[a1, a2], SP[a1, a3], a2, a4, n] - 
    2*S2[a1, a1, a2, a2, SP[a3, a4], n] - 
    S2[a4, n]*S2[a1, a1, a2, a3, a2, n] + 
    S2[a2, n]*S2[a1, a1, a2, a3, a4, n] + 
    S2[a2, n]*S2[a1, a1, a2, a4, a3, n] + S2[a1, a1, a2, a4, SP[a2, a3], n] - 
    S2[a1, a1, a2, SP[a3, a4], a2, n] - 2*S2[a4, n]*
     S2[a1, a1, a3, a2, a2, n] + S2[a2, n]*S2[a1, a1, a3, a2, a4, n] - 
    S2[a1, a1, a3, a2, SP[a2, a4], n] + S2[a2, n]*S2[a1, a1, a3, a4, a2, n] + 
    S2[a1, a1, a3, a4, SP[a2, a2], n] + S2[a1, a1, a3, SP[a2, a2], a4, n] - 
    S2[a1, a1, a3, SP[a2, a4], a2, n] + S2[a1, a1, SP[a2, a3], a2, a4, n] + 
    S2[a1, a1, SP[a2, a3], a4, a2, n] - S2[a1, a1, SP[a2, a4], a3, a2, n] - 
    2*S2[a1, a1, SP[a3, a4], a2, a2, n] - S2[a1, a2, a1, a2, SP[a3, a4], n] - 
    S2[a1, a2, a1, SP[a2, a3], a4, n] - (S2[a1, n]*S2[a1, a2, a3, a4, a2, n])/
     2 - S2[a1, a2, a3, a4, SP[a1, a2], n]/2 - 
    S2[a1, a2, a3, SP[a1, a4], a2, n]/2 - S2[a1, a2, SP[a1, a3], a2, a4, n] - 
    S2[a1, a2, SP[a1, a3], a4, a2, n]/2 - 
    2*S2[a4, n]*S2[a1, a3, a1, a2, a2, n] + 
    S2[a2, n]*S2[a1, a3, a1, a2, a4, n] - S2[a1, a3, a1, a2, SP[a2, a4], n] + 
    S2[a2, n]*S2[a1, a3, a1, a4, a2, n] + S2[a1, a3, a1, a4, SP[a2, a2], n] + 
    S2[a1, a3, a1, SP[a2, a2], a4, n] - S2[a1, a3, a1, SP[a2, a4], a2, n] - 
    S2[a4, n]*S2[a1, a3, a2, a1, a2, n] - S2[a1, a3, a2, a1, SP[a2, a4], n] - 
    S2[a1, a3, a2, SP[a1, a4], a2, n] + S2[a2, n]*S2[a1, a3, a4, a1, a2, n] + 
    S2[a1, a3, a4, a1, SP[a2, a2], n] + S2[a1, a3, a4, SP[a1, a2], a2, n] + 
    S2[a1, a3, SP[a1, a2], a2, a4, n] + S2[a1, a3, SP[a1, a2], a4, a2, n] - 
    2*S2[a1, a3, SP[a1, a4], a2, a2, n] + 
    (S2[a1, n]*S2[a1, a4, a2, a3, a2, n])/2 + 
    S2[a1, a4, a2, a3, SP[a1, a2], n]/2 + S2[a1, a4, a2, SP[a1, a3], a2, n]/
     2 + S2[a1, n]*S2[a1, a4, a3, a2, a2, n] + S2[a1, a4, a3, a2, SP[a1, a2], 
     n] + S2[a1, a4, a3, SP[a1, a2], a2, n] + 
    S2[a1, a4, SP[a1, a2], a3, a2, n]/2 + S2[a1, a4, SP[a1, a3], a2, a2, n] + 
    S2[a1, SP[a1, a2], a3, a4, a2, n]/2 - S2[a1, SP[a1, a4], a2, a3, a2, n]/
     2 - S2[a1, SP[a1, a4], a3, a2, a2, n] + S2[a1, SP[a2, a3], a1, a2, a4, 
     n] + S2[a1, SP[a2, a3], a1, a4, a2, n] + S2[a1, SP[a2, a3], a4, a1, a2, 
     n] - 2*S2[a1, SP[a3, a4], a1, a2, a2, n] - S2[a1, SP[a3, a4], a2, a1, 
     a2, n] - S2[a2, a1, a1, a2, SP[a3, a4], n] - S2[a2, a1, a1, SP[a2, a3], 
     a4, n] - (S2[a1, n]*S2[a2, a1, a3, a4, a2, n])/2 - 
    S2[a2, a1, a3, a4, SP[a1, a2], n]/2 - S2[a2, a1, a3, SP[a1, a4], a2, n]/
     2 - S2[a2, a1, SP[a1, a3], a2, a4, n] - 
    S2[a2, a1, SP[a1, a3], a4, a2, n]/2 + 
    S2[a4, n]*S2[a2, a3, a1, a1, a2, n] + S2[a2, a3, a1, a1, SP[a2, a4], n] - 
    (S2[a1, n]*S2[a2, a3, a1, a4, a2, n])/2 - 
    S2[a2, a3, a1, a4, SP[a1, a2], n]/2 + S2[a2, a3, a1, SP[a1, a4], a2, n]/
     2 - (S2[a1, n]*S2[a2, a3, a4, a1, a2, n])/2 - 
    S2[a2, a3, a4, a1, SP[a1, a2], n]/2 + 
    (S2[a1, n]*S2[a2, a3, a4, a2, a1, n])/2 + 
    S2[a2, a3, a4, a2, SP[a1, a1], n]/2 - S2[a2, a3, a4, SP[a1, a1], a2, n]/
     2 + S2[a2, a3, a4, SP[a1, a2], a1, n]/2 - 
    S2[a2, a3, SP[a1, a1], a4, a2, n]/2 + S2[a2, a3, SP[a1, a4], a1, a2, n]/
     2 + S2[a2, a3, SP[a1, a4], a2, a1, n]/2 - 
    S2[a2, SP[a1, a1], a3, a4, a2, n]/2 - S2[a2, SP[a1, a3], a1, a2, a4, n] - 
    S2[a2, SP[a1, a3], a1, a4, a2, n]/2 - S2[a2, SP[a1, a3], a4, a1, a2, n]/
     2 + S2[a2, SP[a1, a3], a4, a2, a1, n]/2 + S2[a2, SP[a3, a4], a1, a1, a2, 
     n] + (S2[a1, n]*S2[a4, a1, a2, a3, a2, n])/2 + 
    S2[a4, a1, a2, a3, SP[a1, a2], n]/2 + S2[a4, a1, a2, SP[a1, a3], a2, n]/
     2 + S2[a1, n]*S2[a4, a1, a3, a2, a2, n] + S2[a4, a1, a3, a2, SP[a1, a2], 
     n] + S2[a4, a1, a3, SP[a1, a2], a2, n] + 
    S2[a4, a1, SP[a1, a2], a3, a2, n]/2 + S2[a4, a1, SP[a1, a3], a2, a2, n] - 
    (S2[a1, n]*S2[a4, a2, a1, a3, a2, n])/2 - 
    S2[a4, a2, a1, a3, SP[a1, a2], n]/2 - S2[a4, a2, a1, SP[a1, a3], a2, n]/
     2 - (S2[a1, n]*S2[a4, a2, a3, a1, a2, n])/2 - 
    S2[a4, a2, a3, a1, SP[a1, a2], n]/2 - 
    (S2[a1, n]*S2[a4, a2, a3, a2, a1, n])/2 - 
    S2[a4, a2, a3, a2, SP[a1, a1], n]/2 - S2[a4, a2, a3, SP[a1, a1], a2, n]/
     2 - S2[a4, a2, a3, SP[a1, a2], a1, n]/2 - 
    S2[a4, a2, SP[a1, a1], a3, a2, n]/2 - S2[a4, a2, SP[a1, a3], a1, a2, n]/
     2 - S2[a4, a2, SP[a1, a3], a2, a1, n]/2 - 
    S2[a2, n]*S2[a4, a3, a1, a1, a2, n] - S2[a4, a3, a1, a1, SP[a2, a2], n] + 
    S2[a1, n]*S2[a4, a3, a1, a2, a2, n] + S2[a4, a3, a1, a2, SP[a1, a2], n] - 
    S2[a1, n]*S2[a4, a3, a2, a2, a1, n] - S2[a4, a3, a2, a2, SP[a1, a1], n] - 
    S2[a4, a3, a2, SP[a1, a2], a1, n] + S2[a4, a3, SP[a1, a1], a2, a2, n] - 
    S2[a4, a3, SP[a1, a2], a1, a2, n] - S2[a4, a3, SP[a1, a2], a2, a1, n] + 
    S2[a4, SP[a1, a1], a2, a3, a2, n]/2 + S2[a4, SP[a1, a1], a3, a2, a2, n] - 
    S2[a4, SP[a1, a2], a1, a3, a2, n]/2 - S2[a4, SP[a1, a2], a3, a1, a2, n]/
     2 - S2[a4, SP[a1, a2], a3, a2, a1, n]/2 + S2[a4, SP[a1, a3], a1, a2, a2, 
     n] - S2[a4, SP[a1, a3], a2, a2, a1, n] - S2[a4, SP[a2, a3], a1, a1, a2, 
     n] - S2[SP[a1, a1], a2, a3, a4, a2, n]/2 + 
    S2[SP[a1, a1], a4, a2, a3, a2, n]/2 + S2[SP[a1, a1], a4, a3, a2, a2, n] + 
    S2[SP[a1, a2], a1, a3, a4, a2, n]/2 + S2[SP[a1, a2], a3, a1, a4, a2, n]/
     2 + S2[SP[a1, a2], a3, a4, a1, a2, n]/2 + 
    S2[SP[a1, a2], a3, a4, a2, a1, n]/2 - S2[SP[a1, a4], a1, a2, a3, a2, n]/
     2 - S2[SP[a1, a4], a1, a3, a2, a2, n] - 
    S2[SP[a1, a4], a2, a1, a3, a2, n]/2 - S2[SP[a1, a4], a2, a3, a1, a2, n]/
     2 - S2[SP[a1, a4], a2, a3, a2, a1, n]/2 - S2[SP[a1, a4], a3, a1, a2, a2, 
     n] - S2[SP[a1, a4], a3, a2, a1, a2, n] - S2[SP[a1, a4], a3, a2, a2, a1, 
     n] + S2[a4, a2, a1, a1, a3, a2, n] + S2[a4, a2, a1, a3, a1, a2, n] + 
    S2[a4, a2, a1, a3, a2, a1, n] + S2[a4, a2, a3, a1, a1, a2, n] + 
    S2[a4, a2, a3, a1, a2, a1, n] + S2[a4, a2, a3, a2, a1, a1, n] + 
    S2[a4, a3, a2, a1, a1, a2, n] + S2[a4, a3, a2, a1, a2, a1, n] + 
    2*S2[a4, a3, a2, a2, a1, a1, n] /; 
   MyMemberQ[{{a1, a2}, {a3, a4}}, {a1, a1, a2, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a2_, a4_, a1_, a1_, a2_, a3_, n_] :> 
  S2[a2, n]*S2[a4, a1, a1, a2, a3, n] + S2[a4, a1, a1, a2, SP[a2, a3], n] + 
    S2[a4, a1, a1, SP[a2, a2], a3, n] + S2[a4, a1, SP[a1, a2], a2, a3, n] + 
    S2[a4, SP[a1, a2], a1, a2, a3, n] + S2[SP[a2, a4], a1, a1, a2, a3, n] - 
    2*S2[a4, a1, a1, a2, a2, a3, n] - S2[a4, a1, a1, a2, a3, a2, n] - 
    S2[a4, a1, a2, a1, a2, a3, n] - S2[a4, a2, a1, a1, a2, a3, n] /; 
   MyMemberQ[{{a1, a2}, {a3, a4}}, {a1, a1, a2, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a2_, a4_, a1_, a1_, a3_, a2_, n_] :> 
  S2[a2, n]*S2[a4, a1, a1, a3, a2, n] + S2[a4, a1, a1, a3, SP[a2, a2], n] + 
    S2[a4, a1, a1, SP[a2, a3], a2, n] + S2[a4, a1, SP[a1, a2], a3, a2, n] + 
    S2[a4, SP[a1, a2], a1, a3, a2, n] + S2[SP[a2, a4], a1, a1, a3, a2, n] - 
    S2[a4, a1, a1, a2, a3, a2, n] - 2*S2[a4, a1, a1, a3, a2, a2, n] - 
    S2[a4, a1, a2, a1, a3, a2, n] - S2[a4, a2, a1, a1, a3, a2, n] /; 
   MyMemberQ[{{a1, a2}, {a3, a4}}, {a1, a1, a2, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a2_, a4_, a1_, a2_, a1_, a3_, n_] :> 
  S2[a2, n]*S2[a4, a1, a2, a1, a3, n] + S2[a4, a1, a2, a1, SP[a2, a3], n] + 
    S2[a4, a1, a2, SP[a1, a2], a3, n] + S2[a4, a1, SP[a2, a2], a1, a3, n] + 
    S2[a4, SP[a1, a2], a2, a1, a3, n] + S2[SP[a2, a4], a1, a2, a1, a3, n] - 
    S2[a4, a1, a2, a1, a2, a3, n] - S2[a4, a1, a2, a1, a3, a2, n] - 
    2*S2[a4, a1, a2, a2, a1, a3, n] - S2[a4, a2, a1, a2, a1, a3, n] /; 
   MyMemberQ[{{a1, a2}, {a3, a4}}, {a1, a1, a2, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a2_, a4_, a1_, a2_, a3_, a1_, n_] :> 
  -(S2[a2, n]*S2[a1, a4, a1, a2, a3, n]) - S2[a1, a4, a1, a2, SP[a2, a3], 
     n] - S2[a1, a4, a1, SP[a2, a2], a3, n] - S2[a1, a4, SP[a1, a2], a2, a3, 
     n] - S2[a1, SP[a2, a4], a1, a2, a3, n] + 
    S2[a1, n]*S2[a2, a4, a1, a2, a3, n] + S2[a2, a4, a1, a2, SP[a1, a3], n] + 
    S2[a2, a4, a1, SP[a1, a2], a3, n] + S2[a2, a4, SP[a1, a1], a2, a3, n] + 
    S2[a2, SP[a1, a4], a1, a2, a3, n] - 2*S2[a2, n]*
     S2[a4, a1, a1, a2, a3, n] - 2*S2[a4, a1, a1, a2, SP[a2, a3], n] - 
    2*S2[a4, a1, a1, SP[a2, a2], a3, n] - 
    S2[a2, n]*S2[a4, a1, a2, a1, a3, n] - S2[a4, a1, a2, a1, SP[a2, a3], n] + 
    2*S2[a1, n]*S2[a4, a1, a2, a2, a3, n] + 
    2*S2[a4, a1, a2, a2, SP[a1, a3], n] + 
    S2[a1, n]*S2[a4, a1, a2, a3, a2, n] + S2[a4, a1, a2, a3, SP[a1, a2], n] + 
    S2[a4, a1, a2, SP[a1, a2], a3, n] + S2[a4, a1, a2, SP[a1, a3], a2, n] + 
    S2[a4, a1, SP[a1, a2], a3, a2, n] - S2[a4, a1, SP[a2, a2], a1, a3, n] + 
    S2[a1, n]*S2[a4, a2, a1, a2, a3, n] + S2[a4, a2, a1, a2, SP[a1, a3], n] + 
    S2[a4, a2, a1, SP[a1, a2], a3, n] + S2[a4, a2, SP[a1, a1], a2, a3, n] + 
    2*S2[a4, SP[a1, a1], a2, a2, a3, n] + S2[a4, SP[a1, a1], a2, a3, a2, n] - 
    S2[a4, SP[a1, a2], a1, a2, a3, n] - S2[a4, SP[a1, a2], a2, a1, a3, n] + 
    2*S2[SP[a1, a4], a1, a2, a2, a3, n] + S2[SP[a1, a4], a1, a2, a3, a2, n] + 
    S2[SP[a1, a4], a2, a1, a2, a3, n] - 2*S2[SP[a2, a4], a1, a1, a2, a3, n] - 
    S2[SP[a2, a4], a1, a2, a1, a3, n] - 2*S2[a4, a1, a2, a2, a3, a1, n] - 
    S2[a4, a1, a2, a3, a1, a2, n] - S2[a4, a1, a2, a3, a2, a1, n] - 
    S2[a4, a2, a1, a2, a3, a1, n] /; MyMemberQ[{{a1, a2}, {a3, a4}}, 
     {a1, a1, a2, a2, a3, a4}] && a1 != a2 != a3 != a4, 
 S2[a2_, a4_, a1_, a3_, a1_, a2_, n_] :> 
  S2[a2, n]*S2[a4, a1, a3, a1, a2, n] + S2[a4, a1, a3, a1, SP[a2, a2], n] + 
    S2[a4, a1, a3, SP[a1, a2], a2, n] + S2[a4, a1, SP[a2, a3], a1, a2, n] + 
    S2[a4, SP[a1, a2], a3, a1, a2, n] + S2[SP[a2, a4], a1, a3, a1, a2, n] - 
    S2[a4, a1, a2, a3, a1, a2, n] - 2*S2[a4, a1, a3, a1, a2, a2, n] - 
    S2[a4, a1, a3, a2, a1, a2, n] - S2[a4, a2, a1, a3, a1, a2, n] /; 
   MyMemberQ[{{a1, a2}, {a3, a4}}, {a1, a1, a2, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a2_, a4_, a1_, a3_, a2_, a1_, n_] :> 
  -(S2[a2, n]*S2[a1, a4, a1, a3, a2, n]) - S2[a1, a4, a1, a3, SP[a2, a2], 
     n] - S2[a1, a4, a1, SP[a2, a3], a2, n] - S2[a1, a4, SP[a1, a2], a3, a2, 
     n] - S2[a1, SP[a2, a4], a1, a3, a2, n] + 
    S2[a1, n]*S2[a2, a4, a1, a3, a2, n] + S2[a2, a4, a1, a3, SP[a1, a2], n] + 
    S2[a2, a4, a1, SP[a1, a3], a2, n] + S2[a2, a4, SP[a1, a1], a3, a2, n] + 
    S2[a2, SP[a1, a4], a1, a3, a2, n] - 2*S2[a2, n]*
     S2[a4, a1, a1, a3, a2, n] - 2*S2[a4, a1, a1, a3, SP[a2, a2], n] - 
    2*S2[a4, a1, a1, SP[a2, a3], a2, n] + 
    S2[a1, n]*S2[a4, a1, a2, a3, a2, n] + S2[a4, a1, a2, a3, SP[a1, a2], n] + 
    S2[a4, a1, a2, SP[a1, a3], a2, n] - S2[a2, n]*S2[a4, a1, a3, a1, a2, n] - 
    S2[a4, a1, a3, a1, SP[a2, a2], n] + 2*S2[a1, n]*
     S2[a4, a1, a3, a2, a2, n] + 2*S2[a4, a1, a3, a2, SP[a1, a2], n] + 
    S2[a4, a1, a3, SP[a1, a2], a2, n] - S2[a4, a1, SP[a1, a2], a3, a2, n] + 
    2*S2[a4, a1, SP[a1, a3], a2, a2, n] - S2[a4, a1, SP[a2, a3], a1, a2, n] + 
    S2[a1, n]*S2[a4, a2, a1, a3, a2, n] + S2[a4, a2, a1, a3, SP[a1, a2], n] + 
    S2[a4, a2, a1, SP[a1, a3], a2, n] + S2[a4, a2, SP[a1, a1], a3, a2, n] + 
    S2[a4, SP[a1, a1], a2, a3, a2, n] + 2*S2[a4, SP[a1, a1], a3, a2, a2, n] - 
    S2[a4, SP[a1, a2], a1, a3, a2, n] - S2[a4, SP[a1, a2], a3, a1, a2, n] + 
    S2[SP[a1, a4], a1, a2, a3, a2, n] + 2*S2[SP[a1, a4], a1, a3, a2, a2, n] + 
    S2[SP[a1, a4], a2, a1, a3, a2, n] - 2*S2[SP[a2, a4], a1, a1, a3, a2, n] - 
    S2[SP[a2, a4], a1, a3, a1, a2, n] - S2[a4, a1, a2, a3, a2, a1, n] - 
    S2[a4, a1, a3, a2, a1, a2, n] - 2*S2[a4, a1, a3, a2, a2, a1, n] - 
    S2[a4, a2, a1, a3, a2, a1, n] /; MyMemberQ[{{a1, a2}, {a3, a4}}, 
     {a1, a1, a2, a2, a3, a4}] && a1 != a2 != a3 != a4, 
 S2[a2_, a4_, a2_, a1_, a1_, a3_, n_] :> 
  S2[a2, n]*S2[a4, a2, a1, a1, a3, n] + S2[a4, a2, a1, a1, SP[a2, a3], n] + 
    S2[a4, a2, a1, SP[a1, a2], a3, n] + S2[a4, a2, SP[a1, a2], a1, a3, n] + 
    S2[a4, SP[a2, a2], a1, a1, a3, n] + S2[SP[a2, a4], a2, a1, a1, a3, n] - 
    S2[a4, a2, a1, a1, a2, a3, n] - S2[a4, a2, a1, a1, a3, a2, n] - 
    S2[a4, a2, a1, a2, a1, a3, n] - 2*S2[a4, a2, a2, a1, a1, a3, n] /; 
   MyMemberQ[{{a1, a2}, {a3, a4}}, {a1, a1, a2, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a2_, a4_, a2_, a1_, a3_, a1_, n_] :> 
  -(S2[a2, n]*S2[a1, a4, a2, a1, a3, n]) - S2[a1, a4, a2, a1, SP[a2, a3], 
     n] - S2[a1, a4, a2, SP[a1, a2], a3, n] - S2[a1, a4, SP[a2, a2], a1, a3, 
     n] - S2[a1, SP[a2, a4], a2, a1, a3, n] + 
    S2[a1, n]*S2[a2, a4, a2, a1, a3, n] + S2[a2, a4, a2, a1, SP[a1, a3], n] + 
    S2[a2, a4, a2, SP[a1, a1], a3, n] + S2[a2, a4, SP[a1, a2], a1, a3, n] + 
    S2[a2, SP[a1, a4], a2, a1, a3, n] - S2[a2, n]*S2[a4, a1, a2, a1, a3, n] - 
    S2[a4, a1, a2, a1, SP[a2, a3], n] - S2[a4, a1, a2, SP[a1, a2], a3, n] - 
    S2[a4, a1, SP[a2, a2], a1, a3, n] - 2*S2[a2, n]*
     S2[a4, a2, a1, a1, a3, n] - 2*S2[a4, a2, a1, a1, SP[a2, a3], n] + 
    S2[a1, n]*S2[a4, a2, a1, a2, a3, n] + S2[a4, a2, a1, a2, SP[a1, a3], n] + 
    S2[a1, n]*S2[a4, a2, a1, a3, a2, n] + S2[a4, a2, a1, a3, SP[a1, a2], n] - 
    S2[a4, a2, a1, SP[a1, a2], a3, n] + S2[a4, a2, a1, SP[a1, a3], a2, n] + 
    2*S2[a1, n]*S2[a4, a2, a2, a1, a3, n] + 
    2*S2[a4, a2, a2, a1, SP[a1, a3], n] + 
    2*S2[a4, a2, a2, SP[a1, a1], a3, n] + S2[a4, a2, SP[a1, a1], a2, a3, n] + 
    S2[a4, a2, SP[a1, a1], a3, a2, n] + S2[a4, SP[a1, a2], a1, a2, a3, n] + 
    S2[a4, SP[a1, a2], a1, a3, a2, n] + S2[a4, SP[a1, a2], a2, a1, a3, n] - 
    2*S2[a4, SP[a2, a2], a1, a1, a3, n] + S2[SP[a1, a4], a2, a1, a2, a3, n] + 
    S2[SP[a1, a4], a2, a1, a3, a2, n] + 2*S2[SP[a1, a4], a2, a2, a1, a3, n] - 
    S2[SP[a2, a4], a1, a2, a1, a3, n] - 2*S2[SP[a2, a4], a2, a1, a1, a3, n] - 
    S2[a4, a2, a1, a2, a3, a1, n] - S2[a4, a2, a1, a3, a1, a2, n] - 
    S2[a4, a2, a1, a3, a2, a1, n] - 2*S2[a4, a2, a2, a1, a3, a1, n] /; 
   MyMemberQ[{{a1, a2}, {a3, a4}}, {a1, a1, a2, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a2_, a4_, a2_, a3_, a1_, a1_, n_] :> 
  S2[a2, n]*S2[a1, a1, a4, a2, a3, n] + S2[a1, a1, a4, a2, SP[a2, a3], n] + 
    S2[a1, a1, a4, SP[a2, a2], a3, n] + S2[a1, a1, SP[a2, a4], a2, a3, n] - 
    (S2[a1, n]*S2[a1, a2, a4, a2, a3, n])/2 - 
    S2[a1, a2, a4, a2, SP[a1, a3], n]/2 - S2[a1, a2, a4, SP[a1, a2], a3, n]/
     2 - S2[a1, a2, SP[a1, a4], a2, a3, n]/2 + 
    S2[a2, n]*S2[a1, a4, a1, a2, a3, n] + S2[a1, a4, a1, a2, SP[a2, a3], n] + 
    S2[a1, a4, a1, SP[a2, a2], a3, n] + S2[a2, n]*S2[a1, a4, a2, a1, a3, n] + 
    S2[a1, a4, a2, a1, SP[a2, a3], n] - S2[a1, n]*S2[a1, a4, a2, a2, a3, n] - 
    S2[a1, a4, a2, a2, SP[a1, a3], n] - (S2[a1, n]*S2[a1, a4, a2, a3, a2, n])/
     2 - S2[a1, a4, a2, a3, SP[a1, a2], n]/2 - 
    S2[a1, a4, a2, SP[a1, a3], a2, n]/2 - S2[a1, a4, SP[a1, a2], a3, a2, n]/
     2 + S2[a1, a4, SP[a2, a2], a1, a3, n] + 
    S2[a1, SP[a1, a2], a4, a2, a3, n]/2 - S2[a1, SP[a1, a4], a2, a2, a3, n] - 
    S2[a1, SP[a1, a4], a2, a3, a2, n]/2 + S2[a1, SP[a2, a4], a1, a2, a3, n] + 
    S2[a1, SP[a2, a4], a2, a1, a3, n] - (S2[a1, n]*S2[a2, a1, a4, a2, a3, n])/
     2 - S2[a2, a1, a4, a2, SP[a1, a3], n]/2 - 
    S2[a2, a1, a4, SP[a1, a2], a3, n]/2 - S2[a2, a1, SP[a1, a4], a2, a3, n]/
     2 - (S2[a1, n]*S2[a2, a4, a1, a2, a3, n])/2 - 
    S2[a2, a4, a1, a2, SP[a1, a3], n]/2 - S2[a2, a4, a1, SP[a1, a2], a3, n]/
     2 - (S2[a1, n]*S2[a2, a4, a2, a1, a3, n])/2 - 
    S2[a2, a4, a2, a1, SP[a1, a3], n]/2 + 
    (S2[a1, n]*S2[a2, a4, a2, a3, a1, n])/2 + 
    S2[a2, a4, a2, a3, SP[a1, a1], n]/2 - S2[a2, a4, a2, SP[a1, a1], a3, n]/
     2 + S2[a2, a4, a2, SP[a1, a3], a1, n]/2 - 
    S2[a2, a4, SP[a1, a1], a2, a3, n]/2 - S2[a2, a4, SP[a1, a2], a1, a3, n]/
     2 + S2[a2, a4, SP[a1, a2], a3, a1, n]/2 - 
    S2[a2, SP[a1, a1], a4, a2, a3, n]/2 - S2[a2, SP[a1, a4], a1, a2, a3, n]/
     2 - S2[a2, SP[a1, a4], a2, a1, a3, n]/2 + 
    S2[a2, SP[a1, a4], a2, a3, a1, n]/2 + 
    S2[a2, n]*S2[a4, a1, a1, a2, a3, n] + S2[a4, a1, a1, a2, SP[a2, a3], n] + 
    S2[a4, a1, a1, SP[a2, a2], a3, n] + S2[a2, n]*S2[a4, a1, a2, a1, a3, n] + 
    S2[a4, a1, a2, a1, SP[a2, a3], n] - S2[a1, n]*S2[a4, a1, a2, a2, a3, n] - 
    S2[a4, a1, a2, a2, SP[a1, a3], n] - (S2[a1, n]*S2[a4, a1, a2, a3, a2, n])/
     2 - S2[a4, a1, a2, a3, SP[a1, a2], n]/2 - 
    S2[a4, a1, a2, SP[a1, a3], a2, n]/2 - S2[a4, a1, SP[a1, a2], a3, a2, n]/
     2 + S2[a4, a1, SP[a2, a2], a1, a3, n] + 
    S2[a2, n]*S2[a4, a2, a1, a1, a3, n] + S2[a4, a2, a1, a1, SP[a2, a3], n] - 
    S2[a1, n]*S2[a4, a2, a1, a2, a3, n] - S2[a4, a2, a1, a2, SP[a1, a3], n] - 
    (S2[a1, n]*S2[a4, a2, a1, a3, a2, n])/2 - 
    S2[a4, a2, a1, a3, SP[a1, a2], n]/2 - S2[a4, a2, a1, SP[a1, a3], a2, n]/
     2 - S2[a1, n]*S2[a4, a2, a2, a1, a3, n] - S2[a4, a2, a2, a1, SP[a1, a3], 
     n] + S2[a1, n]*S2[a4, a2, a2, a3, a1, n] + S2[a4, a2, a2, a3, 
     SP[a1, a1], n] - S2[a4, a2, a2, SP[a1, a1], a3, n] + 
    S2[a4, a2, a2, SP[a1, a3], a1, n] + (S2[a1, n]*S2[a4, a2, a3, a1, a2, n])/
     2 + S2[a4, a2, a3, a1, SP[a1, a2], n]/2 + 
    (S2[a1, n]*S2[a4, a2, a3, a2, a1, n])/2 + 
    S2[a4, a2, a3, a2, SP[a1, a1], n]/2 + S2[a4, a2, a3, SP[a1, a1], a2, n]/
     2 + S2[a4, a2, a3, SP[a1, a2], a1, n]/2 - S2[a4, a2, SP[a1, a1], a2, a3, 
     n] - S2[a4, a2, SP[a1, a1], a3, a2, n]/2 + S2[a4, a2, SP[a1, a2], a3, 
     a1, n] + S2[a4, a2, SP[a1, a3], a1, a2, n]/2 + 
    S2[a4, a2, SP[a1, a3], a2, a1, n]/2 - S2[a4, SP[a1, a1], a2, a2, a3, n] - 
    S2[a4, SP[a1, a1], a2, a3, a2, n]/2 - S2[a4, SP[a1, a2], a1, a3, a2, n]/
     2 + S2[a4, SP[a1, a2], a2, a3, a1, n] + 
    S2[a4, SP[a1, a2], a3, a1, a2, n]/2 + S2[a4, SP[a1, a2], a3, a2, a1, n]/
     2 + S2[a4, SP[a2, a2], a1, a1, a3, n] - 
    S2[SP[a1, a1], a2, a4, a2, a3, n]/2 - S2[SP[a1, a1], a4, a2, a2, a3, n] - 
    S2[SP[a1, a1], a4, a2, a3, a2, n]/2 + S2[SP[a1, a2], a1, a4, a2, a3, n]/
     2 + S2[SP[a1, a2], a4, a1, a2, a3, n]/2 + 
    S2[SP[a1, a2], a4, a2, a1, a3, n]/2 + S2[SP[a1, a2], a4, a2, a3, a1, n]/
     2 - S2[SP[a1, a4], a1, a2, a2, a3, n] - 
    S2[SP[a1, a4], a1, a2, a3, a2, n]/2 - S2[SP[a1, a4], a2, a1, a2, a3, n] - 
    S2[SP[a1, a4], a2, a1, a3, a2, n]/2 - S2[SP[a1, a4], a2, a2, a1, a3, n] + 
    S2[SP[a1, a4], a2, a2, a3, a1, n] + S2[SP[a1, a4], a2, a3, a1, a2, n]/2 + 
    S2[SP[a1, a4], a2, a3, a2, a1, n]/2 + S2[SP[a2, a4], a1, a1, a2, a3, n] + 
    S2[SP[a2, a4], a1, a2, a1, a3, n] + S2[SP[a2, a4], a2, a1, a1, a3, n] - 
    2*S2[a4, a2, a2, a3, a1, a1, n] - S2[a4, a2, a3, a1, a1, a2, n] - 
    S2[a4, a2, a3, a1, a2, a1, n] - S2[a4, a2, a3, a2, a1, a1, n] /; 
   MyMemberQ[{{a1, a2}, {a3, a4}}, {a1, a1, a2, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a2_, a4_, a3_, a1_, a1_, a2_, n_] :> 
  S2[a2, n]*S2[a4, a3, a1, a1, a2, n] + S2[a4, a3, a1, a1, SP[a2, a2], n] + 
    S2[a4, a3, a1, SP[a1, a2], a2, n] + S2[a4, a3, SP[a1, a2], a1, a2, n] + 
    S2[a4, SP[a2, a3], a1, a1, a2, n] + S2[SP[a2, a4], a3, a1, a1, a2, n] - 
    S2[a4, a2, a3, a1, a1, a2, n] - 2*S2[a4, a3, a1, a1, a2, a2, n] - 
    S2[a4, a3, a1, a2, a1, a2, n] - S2[a4, a3, a2, a1, a1, a2, n] /; 
   MyMemberQ[{{a1, a2}, {a3, a4}}, {a1, a1, a2, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a2_, a4_, a3_, a1_, a2_, a1_, n_] :> 
  -(S2[a2, n]*S2[a1, a4, a3, a1, a2, n]) - S2[a1, a4, a3, a1, SP[a2, a2], 
     n] - S2[a1, a4, a3, SP[a1, a2], a2, n] - S2[a1, a4, SP[a2, a3], a1, a2, 
     n] - S2[a1, SP[a2, a4], a3, a1, a2, n] + 
    S2[a1, n]*S2[a2, a4, a3, a1, a2, n] + S2[a2, a4, a3, a1, SP[a1, a2], n] + 
    S2[a2, a4, a3, SP[a1, a1], a2, n] + S2[a2, a4, SP[a1, a3], a1, a2, n] + 
    S2[a2, SP[a1, a4], a3, a1, a2, n] - S2[a2, n]*S2[a4, a1, a3, a1, a2, n] - 
    S2[a4, a1, a3, a1, SP[a2, a2], n] - S2[a4, a1, a3, SP[a1, a2], a2, n] - 
    S2[a4, a1, SP[a2, a3], a1, a2, n] + S2[a1, n]*S2[a4, a2, a3, a1, a2, n] + 
    S2[a4, a2, a3, a1, SP[a1, a2], n] + S2[a4, a2, a3, SP[a1, a1], a2, n] + 
    S2[a4, a2, SP[a1, a3], a1, a2, n] - 2*S2[a2, n]*
     S2[a4, a3, a1, a1, a2, n] - 2*S2[a4, a3, a1, a1, SP[a2, a2], n] + 
    2*S2[a1, n]*S2[a4, a3, a1, a2, a2, n] + 
    2*S2[a4, a3, a1, a2, SP[a1, a2], n] + 
    S2[a1, n]*S2[a4, a3, a2, a1, a2, n] + S2[a4, a3, a2, a1, SP[a1, a2], n] + 
    S2[a4, a3, a2, SP[a1, a1], a2, n] + 2*S2[a4, a3, SP[a1, a1], a2, a2, n] - 
    S2[a4, a3, SP[a1, a2], a1, a2, n] + 2*S2[a4, SP[a1, a3], a1, a2, a2, n] + 
    S2[a4, SP[a1, a3], a2, a1, a2, n] - 2*S2[a4, SP[a2, a3], a1, a1, a2, n] + 
    S2[SP[a1, a4], a2, a3, a1, a2, n] + 2*S2[SP[a1, a4], a3, a1, a2, a2, n] + 
    S2[SP[a1, a4], a3, a2, a1, a2, n] - S2[SP[a2, a4], a1, a3, a1, a2, n] - 
    2*S2[SP[a2, a4], a3, a1, a1, a2, n] - S2[a4, a2, a3, a1, a2, a1, n] - 
    S2[a4, a3, a1, a2, a1, a2, n] - 2*S2[a4, a3, a1, a2, a2, a1, n] - 
    S2[a4, a3, a2, a1, a2, a1, n] /; MyMemberQ[{{a1, a2}, {a3, a4}}, 
     {a1, a1, a2, a2, a3, a4}] && a1 != a2 != a3 != a4, 
 S2[a2_, a4_, a3_, a2_, a1_, a1_, n_] :> 
  S2[a2, n]*S2[a1, a1, a4, a3, a2, n] + S2[a1, a1, a4, a3, SP[a2, a2], n] + 
    S2[a1, a1, a4, SP[a2, a3], a2, n] + S2[a1, a1, SP[a2, a4], a3, a2, n] - 
    (S2[a1, n]*S2[a1, a2, a4, a3, a2, n])/2 - 
    S2[a1, a2, a4, a3, SP[a1, a2], n]/2 - S2[a1, a2, a4, SP[a1, a3], a2, n]/
     2 - S2[a1, a2, SP[a1, a4], a3, a2, n]/2 + 
    S2[a2, n]*S2[a1, a4, a1, a3, a2, n] + S2[a1, a4, a1, a3, SP[a2, a2], n] + 
    S2[a1, a4, a1, SP[a2, a3], a2, n] - (S2[a1, n]*S2[a1, a4, a2, a3, a2, n])/
     2 - S2[a1, a4, a2, a3, SP[a1, a2], n]/2 - 
    S2[a1, a4, a2, SP[a1, a3], a2, n]/2 + 
    S2[a2, n]*S2[a1, a4, a3, a1, a2, n] + S2[a1, a4, a3, a1, SP[a2, a2], n] - 
    S2[a1, n]*S2[a1, a4, a3, a2, a2, n] - S2[a1, a4, a3, a2, SP[a1, a2], n] + 
    S2[a1, a4, SP[a1, a2], a3, a2, n]/2 - S2[a1, a4, SP[a1, a3], a2, a2, n] + 
    S2[a1, a4, SP[a2, a3], a1, a2, n] + S2[a1, SP[a1, a2], a4, a3, a2, n]/2 - 
    S2[a1, SP[a1, a4], a2, a3, a2, n]/2 - S2[a1, SP[a1, a4], a3, a2, a2, n] + 
    S2[a1, SP[a2, a4], a1, a3, a2, n] + S2[a1, SP[a2, a4], a3, a1, a2, n] - 
    (S2[a1, n]*S2[a2, a1, a4, a3, a2, n])/2 - 
    S2[a2, a1, a4, a3, SP[a1, a2], n]/2 - S2[a2, a1, a4, SP[a1, a3], a2, n]/
     2 - S2[a2, a1, SP[a1, a4], a3, a2, n]/2 - 
    (S2[a1, n]*S2[a2, a4, a1, a3, a2, n])/2 - 
    S2[a2, a4, a1, a3, SP[a1, a2], n]/2 - S2[a2, a4, a1, SP[a1, a3], a2, n]/
     2 - (S2[a1, n]*S2[a2, a4, a3, a1, a2, n])/2 - 
    S2[a2, a4, a3, a1, SP[a1, a2], n]/2 + 
    (S2[a1, n]*S2[a2, a4, a3, a2, a1, n])/2 + 
    S2[a2, a4, a3, a2, SP[a1, a1], n]/2 - S2[a2, a4, a3, SP[a1, a1], a2, n]/
     2 + S2[a2, a4, a3, SP[a1, a2], a1, n]/2 - 
    S2[a2, a4, SP[a1, a1], a3, a2, n]/2 - S2[a2, a4, SP[a1, a3], a1, a2, n]/
     2 + S2[a2, a4, SP[a1, a3], a2, a1, n]/2 - 
    S2[a2, SP[a1, a1], a4, a3, a2, n]/2 - S2[a2, SP[a1, a4], a1, a3, a2, n]/
     2 - S2[a2, SP[a1, a4], a3, a1, a2, n]/2 + 
    S2[a2, SP[a1, a4], a3, a2, a1, n]/2 + 
    S2[a2, n]*S2[a4, a1, a1, a3, a2, n] + S2[a4, a1, a1, a3, SP[a2, a2], n] + 
    S2[a4, a1, a1, SP[a2, a3], a2, n] - (S2[a1, n]*S2[a4, a1, a2, a3, a2, n])/
     2 - S2[a4, a1, a2, a3, SP[a1, a2], n]/2 - 
    S2[a4, a1, a2, SP[a1, a3], a2, n]/2 + 
    S2[a2, n]*S2[a4, a1, a3, a1, a2, n] + S2[a4, a1, a3, a1, SP[a2, a2], n] - 
    S2[a1, n]*S2[a4, a1, a3, a2, a2, n] - S2[a4, a1, a3, a2, SP[a1, a2], n] + 
    S2[a4, a1, SP[a1, a2], a3, a2, n]/2 - S2[a4, a1, SP[a1, a3], a2, a2, n] + 
    S2[a4, a1, SP[a2, a3], a1, a2, n] - (S2[a1, n]*S2[a4, a2, a1, a3, a2, n])/
     2 - S2[a4, a2, a1, a3, SP[a1, a2], n]/2 - 
    S2[a4, a2, a1, SP[a1, a3], a2, n]/2 - 
    (S2[a1, n]*S2[a4, a2, a3, a1, a2, n])/2 - 
    S2[a4, a2, a3, a1, SP[a1, a2], n]/2 + 
    (S2[a1, n]*S2[a4, a2, a3, a2, a1, n])/2 + 
    S2[a4, a2, a3, a2, SP[a1, a1], n]/2 - S2[a4, a2, a3, SP[a1, a1], a2, n]/
     2 + S2[a4, a2, a3, SP[a1, a2], a1, n]/2 - 
    S2[a4, a2, SP[a1, a1], a3, a2, n]/2 - S2[a4, a2, SP[a1, a3], a1, a2, n]/
     2 + S2[a4, a2, SP[a1, a3], a2, a1, n]/2 + 
    S2[a2, n]*S2[a4, a3, a1, a1, a2, n] + S2[a4, a3, a1, a1, SP[a2, a2], n] - 
    S2[a1, n]*S2[a4, a3, a1, a2, a2, n] - S2[a4, a3, a1, a2, SP[a1, a2], n] + 
    S2[a1, n]*S2[a4, a3, a2, a2, a1, n] + S2[a4, a3, a2, a2, SP[a1, a1], n] + 
    S2[a4, a3, a2, SP[a1, a2], a1, n] - S2[a4, a3, SP[a1, a1], a2, a2, n] + 
    S2[a4, a3, SP[a1, a2], a1, a2, n] + S2[a4, a3, SP[a1, a2], a2, a1, n] - 
    S2[a4, SP[a1, a1], a2, a3, a2, n]/2 - S2[a4, SP[a1, a1], a3, a2, a2, n] + 
    S2[a4, SP[a1, a2], a1, a3, a2, n]/2 + S2[a4, SP[a1, a2], a3, a1, a2, n]/
     2 + S2[a4, SP[a1, a2], a3, a2, a1, n]/2 - S2[a4, SP[a1, a3], a1, a2, a2, 
     n] + S2[a4, SP[a1, a3], a2, a2, a1, n] + S2[a4, SP[a2, a3], a1, a1, a2, 
     n] - S2[SP[a1, a1], a2, a4, a3, a2, n]/2 - 
    S2[SP[a1, a1], a4, a2, a3, a2, n]/2 - S2[SP[a1, a1], a4, a3, a2, a2, n] + 
    S2[SP[a1, a2], a1, a4, a3, a2, n]/2 + S2[SP[a1, a2], a4, a1, a3, a2, n]/
     2 + S2[SP[a1, a2], a4, a3, a1, a2, n]/2 + 
    S2[SP[a1, a2], a4, a3, a2, a1, n]/2 - S2[SP[a1, a4], a1, a2, a3, a2, n]/
     2 - S2[SP[a1, a4], a1, a3, a2, a2, n] - 
    S2[SP[a1, a4], a2, a1, a3, a2, n]/2 - S2[SP[a1, a4], a2, a3, a1, a2, n]/
     2 + S2[SP[a1, a4], a2, a3, a2, a1, n]/2 - S2[SP[a1, a4], a3, a1, a2, a2, 
     n] + S2[SP[a1, a4], a3, a2, a2, a1, n] + S2[SP[a2, a4], a1, a1, a3, a2, 
     n] + S2[SP[a2, a4], a1, a3, a1, a2, n] + S2[SP[a2, a4], a3, a1, a1, a2, 
     n] - S2[a4, a2, a3, a2, a1, a1, n] - S2[a4, a3, a2, a1, a1, a2, n] - 
    S2[a4, a3, a2, a1, a2, a1, n] - 2*S2[a4, a3, a2, a2, a1, a1, n] /; 
   MyMemberQ[{{a1, a2}, {a3, a4}}, {a1, a1, a2, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a3_, a1_, a1_, a2_, a2_, a4_, n_] :> 
  S2[a1, a1, a3, n]*S2[a2, a2, a4, n] + S2[SP[a1, a2], SP[a1, a2], 
     SP[a3, a4], n] + S2[a2, a4, n]*S2[a1, a1, a2, a3, n] + 
    S2[a2, a4, n]*S2[a1, a1, a3, a2, n] - S2[a1, a1, SP[a2, a2], SP[a3, a4], 
     n] - S2[a1, a1, SP[a2, a3], SP[a2, a4], n] + 
    S2[a2, a4, n]*S2[a1, a2, a1, a3, n] - S2[a1, a3, n]*
     S2[a1, a2, a2, a4, n] - S2[a1, a2, SP[a1, a2], SP[a3, a4], n] - 
    S2[a1, SP[a1, a2], a2, SP[a3, a4], n] - S2[a1, SP[a1, a2], a3, 
     SP[a2, a4], n] - S2[a1, SP[a1, a2], SP[a2, a4], a3, n] - 
    S2[a1, SP[a1, a2], SP[a3, a4], a2, n] - S2[a1, SP[a2, a2], a1, 
     SP[a3, a4], n] - S2[a1, SP[a2, a2], SP[a1, a4], a3, n] - 
    S2[a2, a1, SP[a1, a2], SP[a3, a4], n] - S2[a2, SP[a1, a2], a1, 
     SP[a3, a4], n] - S2[a2, SP[a1, a2], SP[a1, a4], a3, n] + 
    S2[SP[a1, a1], a2, a2, SP[a3, a4], n] + S2[SP[a1, a1], a2, SP[a2, a3], 
     a4, n] + S2[SP[a1, a1], SP[a2, a3], a2, a4, n] - 
    2*S2[SP[a1, a2], a1, a2, SP[a3, a4], n] - S2[SP[a1, a2], a1, a3, 
     SP[a2, a4], n] - S2[SP[a1, a2], a1, SP[a2, a3], a4, n] - 
    S2[SP[a1, a2], a1, SP[a2, a4], a3, n] - S2[SP[a1, a2], a1, SP[a3, a4], 
     a2, n] - 2*S2[SP[a1, a2], a2, a1, SP[a3, a4], n] - 
    2*S2[SP[a1, a2], a2, SP[a1, a4], a3, n] - S2[SP[a1, a2], SP[a1, a2], a3, 
     a4, n] - S2[SP[a1, a2], SP[a1, a2], a4, a3, n] - 
    S2[SP[a1, a2], SP[a1, a4], a2, a3, n] - S2[SP[a1, a2], SP[a1, a4], a3, 
     a2, n] - S2[SP[a1, a2], SP[a2, a4], a1, a3, n] + 
    S2[a4, n]*S2[a1, a1, a2, a2, a3, n] + 
    S2[a3, n]*S2[a1, a1, a2, a2, a4, n] + 
    3*S2[a1, a1, a2, a2, SP[a3, a4], n] + 
    S2[a4, n]*S2[a1, a1, a2, a3, a2, n] - 
    (3*S2[a2, n]*S2[a1, a1, a2, a3, a4, n])/2 + 
    S2[a1, a1, a2, a3, SP[a2, a4], n]/2 - 
    (3*S2[a2, n]*S2[a1, a1, a2, a4, a3, n])/2 - 
    (3*S2[a1, a1, a2, a4, SP[a2, a3], n])/2 - 
    S2[a1, a1, a2, SP[a2, a3], a4, n]/2 + S2[a1, a1, a2, SP[a2, a4], a3, n]/
     2 + 2*S2[a1, a1, a2, SP[a3, a4], a2, n] + 
    S2[a4, n]*S2[a1, a1, a3, a2, a2, n] - 
    (3*S2[a2, n]*S2[a1, a1, a3, a2, a4, n])/2 + 
    S2[a1, a1, a3, a2, SP[a2, a4], n]/2 - 
    (S2[a2, n]*S2[a1, a1, a3, a4, a2, n])/2 - 
    S2[a1, a1, a3, a4, SP[a2, a2], n]/2 - S2[a1, a1, a3, SP[a2, a2], a4, n]/
     2 + S2[a1, a1, a3, SP[a2, a4], a2, n]/2 - 
    (S2[a2, n]*S2[a1, a1, a4, a2, a3, n])/2 - 
    S2[a1, a1, a4, a2, SP[a2, a3], n]/2 - 
    (S2[a2, n]*S2[a1, a1, a4, a3, a2, n])/2 - 
    S2[a1, a1, a4, a3, SP[a2, a2], n]/2 - S2[a1, a1, a4, SP[a2, a2], a3, n]/
     2 - S2[a1, a1, a4, SP[a2, a3], a2, n]/2 - 
    S2[a1, a1, SP[a2, a2], a3, a4, n]/2 - S2[a1, a1, SP[a2, a2], a4, a3, n]/
     2 - S2[a1, a1, SP[a2, a3], a2, a4, n]/2 + 
    S2[a1, a1, SP[a2, a3], a4, a2, n]/2 + S2[a1, a1, SP[a2, a4], a2, a3, n]/
     2 + S2[a1, a1, SP[a2, a4], a3, a2, n]/2 + S2[a1, a1, SP[a3, a4], a2, a2, 
     n] + S2[a4, n]*S2[a1, a2, a1, a2, a3, n] + 
    3*S2[a1, a2, a1, a2, SP[a3, a4], n] + 
    S2[a4, n]*S2[a1, a2, a1, a3, a2, n] - 
    (3*S2[a2, n]*S2[a1, a2, a1, a3, a4, n])/2 + 
    S2[a1, a2, a1, a3, SP[a2, a4], n]/2 - 
    (3*S2[a2, n]*S2[a1, a2, a1, a4, a3, n])/2 - 
    (3*S2[a1, a2, a1, a4, SP[a2, a3], n])/2 - 
    S2[a1, a2, a1, SP[a2, a3], a4, n]/2 + S2[a1, a2, a1, SP[a2, a4], a3, n]/
     2 + 2*S2[a1, a2, a1, SP[a3, a4], a2, n] + 
    S2[a4, n]*S2[a1, a2, a2, a1, a3, n] + 
    3*S2[a1, a2, a2, a1, SP[a3, a4], n] + 
    3*S2[a1, a2, a2, SP[a1, a4], a3, n] - 
    (3*S2[a2, n]*S2[a1, a2, a4, a1, a3, n])/2 - 
    (3*S2[a1, a2, a4, a1, SP[a2, a3], n])/2 - 
    (3*S2[a1, a2, a4, SP[a1, a2], a3, n])/2 - 
    S2[a1, a2, SP[a1, a2], a3, a4, n]/2 - S2[a1, a2, SP[a1, a2], a4, a3, n]/
     2 + 2*S2[a1, a2, SP[a1, a4], a2, a3, n] + 
    2*S2[a1, a2, SP[a1, a4], a3, a2, n] + S2[a1, a2, SP[a2, a4], a1, a3, n]/
     2 - (S2[a2, n]*S2[a1, a4, a1, a2, a3, n])/2 - 
    S2[a1, a4, a1, a2, SP[a2, a3], n]/2 - 
    (S2[a2, n]*S2[a1, a4, a1, a3, a2, n])/2 - 
    S2[a1, a4, a1, a3, SP[a2, a2], n]/2 - S2[a1, a4, a1, SP[a2, a2], a3, n]/
     2 - S2[a1, a4, a1, SP[a2, a3], a2, n]/2 - 
    (S2[a2, n]*S2[a1, a4, a2, a1, a3, n])/2 - 
    S2[a1, a4, a2, a1, SP[a2, a3], n]/2 - S2[a1, a4, a2, SP[a1, a2], a3, n]/
     2 - S2[a1, a4, SP[a1, a2], a2, a3, n]/2 - 
    S2[a1, a4, SP[a1, a2], a3, a2, n]/2 - S2[a1, a4, SP[a2, a2], a1, a3, n]/
     2 - S2[a1, SP[a1, a2], a2, a3, a4, n]/2 - 
    S2[a1, SP[a1, a2], a2, a4, a3, n]/2 - S2[a1, SP[a1, a2], a3, a2, a4, n]/
     2 + S2[a1, SP[a1, a2], a3, a4, a2, n]/2 + 
    S2[a1, SP[a1, a2], a4, a2, a3, n]/2 + S2[a1, SP[a1, a2], a4, a3, a2, n]/
     2 + S2[a1, SP[a1, a4], a2, a2, a3, n] + S2[a1, SP[a1, a4], a2, a3, a2, 
     n] + S2[a1, SP[a1, a4], a3, a2, a2, n] - 
    S2[a1, SP[a2, a2], a1, a3, a4, n]/2 - S2[a1, SP[a2, a2], a1, a4, a3, n]/
     2 - S2[a1, SP[a2, a2], a4, a1, a3, n]/2 + 
    S2[a1, SP[a2, a4], a1, a2, a3, n]/2 + S2[a1, SP[a2, a4], a1, a3, a2, n]/
     2 + S2[a1, SP[a2, a4], a2, a1, a3, n]/2 + 
    2*S2[a2, a1, a1, a2, SP[a3, a4], n] - 
    (S2[a2, n]*S2[a2, a1, a1, a3, a4, n])/2 + 
    S2[a2, a1, a1, a3, SP[a2, a4], n]/2 - 
    (S2[a2, n]*S2[a2, a1, a1, a4, a3, n])/2 - 
    S2[a2, a1, a1, a4, SP[a2, a3], n]/2 + S2[a2, a1, a1, SP[a2, a3], a4, n]/
     2 + S2[a2, a1, a1, SP[a2, a4], a3, n]/2 + S2[a2, a1, a1, SP[a3, a4], a2, 
     n] + 2*S2[a2, a1, a2, a1, SP[a3, a4], n] + 
    2*S2[a2, a1, a2, SP[a1, a4], a3, n] - 
    (S2[a2, n]*S2[a2, a1, a4, a1, a3, n])/2 - 
    S2[a2, a1, a4, a1, SP[a2, a3], n]/2 - S2[a2, a1, a4, SP[a1, a2], a3, n]/
     2 + S2[a2, a1, SP[a1, a2], a3, a4, n]/2 + 
    S2[a2, a1, SP[a1, a2], a4, a3, n]/2 + S2[a2, a1, SP[a1, a4], a2, a3, n] + 
    S2[a2, a1, SP[a1, a4], a3, a2, n] + S2[a2, a1, SP[a2, a4], a1, a3, n]/2 + 
    S2[a2, a2, a1, a1, SP[a3, a4], n] + S2[a2, a2, a1, SP[a1, a4], a3, n] + 
    S2[a2, a2, SP[a1, a4], a1, a3, n] - (S2[a2, n]*S2[a2, a4, a1, a1, a3, n])/
     2 - S2[a2, a4, a1, a1, SP[a2, a3], n]/2 - 
    S2[a2, a4, a1, SP[a1, a2], a3, n]/2 - S2[a2, a4, SP[a1, a2], a1, a3, n]/
     2 + S2[a2, SP[a1, a2], a1, a3, a4, n]/2 + 
    S2[a2, SP[a1, a2], a1, a4, a3, n]/2 + S2[a2, SP[a1, a2], a4, a1, a3, n]/
     2 + S2[a2, SP[a1, a4], a1, a2, a3, n] + S2[a2, SP[a1, a4], a1, a3, a2, 
     n] + S2[a2, SP[a1, a4], a2, a1, a3, n] - 
    S2[a2, SP[a2, a4], a1, a1, a3, n]/2 - 
    (S2[a2, n]*S2[a4, a1, a1, a2, a3, n])/2 - 
    S2[a4, a1, a1, a2, SP[a2, a3], n]/2 - 
    (S2[a2, n]*S2[a4, a1, a1, a3, a2, n])/2 - 
    S2[a4, a1, a1, a3, SP[a2, a2], n]/2 - S2[a4, a1, a1, SP[a2, a2], a3, n]/
     2 - S2[a4, a1, a1, SP[a2, a3], a2, n]/2 - 
    (S2[a2, n]*S2[a4, a1, a2, a1, a3, n])/2 - 
    S2[a4, a1, a2, a1, SP[a2, a3], n]/2 - S2[a4, a1, a2, SP[a1, a2], a3, n]/
     2 - S2[a4, a1, SP[a1, a2], a2, a3, n]/2 - 
    S2[a4, a1, SP[a1, a2], a3, a2, n]/2 - S2[a4, a1, SP[a2, a2], a1, a3, n]/
     2 + (S2[a2, n]*S2[a4, a2, a1, a1, a3, n])/2 + 
    S2[a4, a2, a1, a1, SP[a2, a3], n]/2 + S2[a4, a2, a1, SP[a1, a2], a3, n]/
     2 + S2[a4, a2, SP[a1, a2], a1, a3, n]/2 - 
    S2[a4, SP[a1, a2], a1, a2, a3, n]/2 - S2[a4, SP[a1, a2], a1, a3, a2, n]/
     2 - S2[a4, SP[a1, a2], a2, a1, a3, n]/2 + 
    S2[a4, SP[a2, a2], a1, a1, a3, n]/2 - S2[SP[a1, a1], a2, a2, a3, a4, n] - 
    S2[SP[a1, a1], a2, a2, a4, a3, n] - S2[SP[a1, a1], a2, a3, a2, a4, n] - 
    S2[SP[a1, a1], a3, a2, a2, a4, n] + S2[SP[a1, a2], a1, a2, a3, a4, n]/2 + 
    S2[SP[a1, a2], a1, a2, a4, a3, n]/2 + S2[SP[a1, a2], a1, a3, a2, a4, n]/
     2 + S2[SP[a1, a2], a1, a3, a4, a2, n]/2 + 
    S2[SP[a1, a2], a1, a4, a2, a3, n]/2 + S2[SP[a1, a2], a1, a4, a3, a2, n]/
     2 + S2[SP[a1, a2], a2, a1, a3, a4, n]/2 + 
    S2[SP[a1, a2], a2, a1, a4, a3, n]/2 + S2[SP[a1, a2], a2, a4, a1, a3, n]/
     2 + S2[SP[a1, a2], a4, a1, a2, a3, n]/2 + 
    S2[SP[a1, a2], a4, a1, a3, a2, n]/2 + S2[SP[a1, a2], a4, a2, a1, a3, n]/
     2 + S2[SP[a1, a3], a1, a2, a2, a4, n] + S2[SP[a1, a4], a1, a2, a2, a3, 
     n] + S2[SP[a1, a4], a1, a2, a3, a2, n] + S2[SP[a1, a4], a1, a3, a2, a2, 
     n] + S2[SP[a1, a4], a2, a1, a2, a3, n] + S2[SP[a1, a4], a2, a1, a3, a2, 
     n] + S2[SP[a1, a4], a2, a2, a1, a3, n] - 
    S2[SP[a2, a2], a1, a1, a3, a4, n]/2 - S2[SP[a2, a2], a1, a1, a4, a3, n]/
     2 - S2[SP[a2, a2], a1, a4, a1, a3, n]/2 - 
    S2[SP[a2, a2], a4, a1, a1, a3, n]/2 - S2[SP[a2, a4], a1, a1, a2, a3, n]/
     2 - S2[SP[a2, a4], a1, a1, a3, a2, n]/2 - 
    S2[SP[a2, a4], a1, a2, a1, a3, n]/2 + S2[SP[a2, a4], a2, a1, a1, a3, n]/
     2 - S2[a4, a2, a2, a1, a1, a3, n] /; 
   MyMemberQ[{{a1, a2}, {a3, a4}}, {a1, a1, a2, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a3_, a1_, a1_, a2_, a4_, a2_, n_] :> 
  -2*S2[a1, a1, a3, n]*S2[a2, a2, a4, n] - 
    2*S2[SP[a1, a2], SP[a1, a2], SP[a3, a4], n] - 
    S2[a2, a4, n]*S2[a1, a1, a2, a3, n] - S2[a2, a4, n]*
     S2[a1, a1, a3, a2, n] + S2[a1, a1, SP[a2, a2], SP[a3, a4], n] + 
    S2[a1, a1, SP[a2, a3], SP[a2, a4], n] - S2[a2, a4, n]*
     S2[a1, a2, a1, a3, n] - S2[a1, a3, n]*S2[a1, a2, a4, a2, n] + 
    3*S2[a1, a2, SP[a1, a2], SP[a3, a4], n] + S2[a1, a2, SP[a1, a4], 
     SP[a2, a3], n] + 3*S2[a1, SP[a1, a2], a2, SP[a3, a4], n] + 
    S2[a1, SP[a1, a2], a3, SP[a2, a4], n] + S2[a1, SP[a1, a2], a4, 
     SP[a2, a3], n] + 2*S2[a1, SP[a1, a2], SP[a2, a3], a4, n] + 
    S2[a1, SP[a1, a2], SP[a2, a4], a3, n] + 
    2*S2[a1, SP[a1, a2], SP[a3, a4], a2, n] + S2[a1, SP[a2, a2], a1, 
     SP[a3, a4], n] + S2[a1, SP[a2, a2], SP[a1, a4], a3, n] + 
    2*S2[a2, a1, SP[a1, a2], SP[a3, a4], n] + 
    2*S2[a2, SP[a1, a2], a1, SP[a3, a4], n] + 
    2*S2[a2, SP[a1, a2], SP[a1, a4], a3, n] + S2[SP[a1, a1], a2, a4, 
     SP[a2, a3], n] + S2[SP[a1, a1], a2, SP[a3, a4], a2, n] + 
    S2[SP[a1, a1], SP[a2, a3], a4, a2, n] + 
    3*S2[SP[a1, a2], a1, a2, SP[a3, a4], n] + S2[SP[a1, a2], a1, a3, 
     SP[a2, a4], n] + 2*S2[SP[a1, a2], a1, SP[a2, a3], a4, n] + 
    S2[SP[a1, a2], a1, SP[a2, a4], a3, n] + S2[SP[a1, a2], a1, SP[a3, a4], 
     a2, n] + 3*S2[SP[a1, a2], a2, a1, SP[a3, a4], n] + 
    3*S2[SP[a1, a2], a2, SP[a1, a4], a3, n] + 
    2*S2[SP[a1, a2], SP[a1, a2], a3, a4, n] + 
    2*S2[SP[a1, a2], SP[a1, a2], a4, a3, n] + S2[SP[a1, a2], SP[a1, a4], a2, 
     a3, n] + S2[SP[a1, a2], SP[a1, a4], a3, a2, n] + 
    S2[SP[a1, a2], SP[a2, a4], a1, a3, n] - 
    4*S2[a1, a1, a2, a2, SP[a3, a4], n] + 
    2*S2[a2, n]*S2[a1, a1, a2, a3, a4, n] + S2[a1, a1, a2, a3, SP[a2, a4], 
     n] + S2[a3, n]*S2[a1, a1, a2, a4, a2, n] + 
    2*S2[a2, n]*S2[a1, a1, a2, a4, a3, n] + S2[a1, a1, a2, a4, SP[a2, a3], 
     n] - S2[a1, a1, a2, SP[a2, a3], a4, n] + S2[a1, a1, a2, SP[a2, a4], a3, 
     n] - 2*S2[a1, a1, a2, SP[a3, a4], a2, n] + 
    2*S2[a2, n]*S2[a1, a1, a3, a2, a4, n] + S2[a1, a1, a3, a2, SP[a2, a4], 
     n] + S2[a1, a1, a3, SP[a2, a2], a4, n] + S2[a1, a1, SP[a2, a2], a3, a4, 
     n] + S2[a1, a1, SP[a2, a2], a4, a3, n] - S2[a1, a1, SP[a2, a3], a2, a4, 
     n] - 2*S2[a1, a1, SP[a2, a3], a4, a2, n] - 
    4*S2[a1, a2, a1, a2, SP[a3, a4], n] + 
    2*S2[a2, n]*S2[a1, a2, a1, a3, a4, n] + S2[a1, a2, a1, a3, SP[a2, a4], 
     n] + 2*S2[a2, n]*S2[a1, a2, a1, a4, a3, n] + 
    S2[a1, a2, a1, a4, SP[a2, a3], n] - S2[a1, a2, a1, SP[a2, a3], a4, n] + 
    S2[a1, a2, a1, SP[a2, a4], a3, n] - 2*S2[a1, a2, a1, SP[a3, a4], a2, n] - 
    4*S2[a1, a2, a2, a1, SP[a3, a4], n] - 
    4*S2[a1, a2, a2, SP[a1, a4], a3, n] + 
    2*S2[a2, n]*S2[a1, a2, a4, a1, a3, n] + S2[a1, a2, a4, a1, SP[a2, a3], 
     n] + S2[a1, a2, a4, SP[a1, a2], a3, n] - S2[a1, a2, SP[a1, a2], a3, a4, 
     n] - S2[a1, a2, SP[a1, a2], a4, a3, n] - 
    2*S2[a1, a2, SP[a1, a4], a2, a3, n] - 
    2*S2[a1, a2, SP[a1, a4], a3, a2, n] + S2[a1, a2, SP[a2, a4], a1, a3, n] - 
    S2[a1, SP[a1, a2], a2, a3, a4, n] - S2[a1, SP[a1, a2], a2, a4, a3, n] - 
    S2[a1, SP[a1, a2], a3, a2, a4, n] - 2*S2[a1, SP[a1, a2], a3, a4, a2, n] - 
    2*S2[a1, SP[a1, a2], a4, a2, a3, n] - 
    2*S2[a1, SP[a1, a2], a4, a3, a2, n] + S2[a1, SP[a2, a2], a1, a3, a4, n] + 
    S2[a1, SP[a2, a2], a1, a4, a3, n] + S2[a1, SP[a2, a2], a4, a1, a3, n] - 
    3*S2[a2, a1, a1, a2, SP[a3, a4], n] + 
    S2[a2, n]*S2[a2, a1, a1, a3, a4, n] + 
    S2[a2, n]*S2[a2, a1, a1, a4, a3, n] + S2[a2, a1, a1, a4, SP[a2, a3], n] - 
    S2[a2, a1, a1, SP[a2, a3], a4, n] - S2[a2, a1, a1, SP[a3, a4], a2, n] - 
    3*S2[a2, a1, a2, a1, SP[a3, a4], n] - 
    3*S2[a2, a1, a2, SP[a1, a4], a3, n] + 
    S2[a2, n]*S2[a2, a1, a4, a1, a3, n] + S2[a2, a1, a4, a1, SP[a2, a3], n] + 
    S2[a2, a1, a4, SP[a1, a2], a3, n] - S2[a2, a1, SP[a1, a2], a3, a4, n] - 
    S2[a2, a1, SP[a1, a2], a4, a3, n] - S2[a2, a1, SP[a1, a4], a2, a3, n] - 
    S2[a2, a1, SP[a1, a4], a3, a2, n] - 2*S2[a2, a2, a1, a1, SP[a3, a4], n] - 
    2*S2[a2, a2, a1, SP[a1, a4], a3, n] - 
    2*S2[a2, a2, SP[a1, a4], a1, a3, n] + 
    S2[a2, n]*S2[a2, a4, a1, a1, a3, n] + S2[a2, a4, a1, a1, SP[a2, a3], n] + 
    S2[a2, a4, a1, SP[a1, a2], a3, n] + S2[a2, a4, SP[a1, a2], a1, a3, n] - 
    S2[a2, SP[a1, a2], a1, a3, a4, n] - S2[a2, SP[a1, a2], a1, a4, a3, n] - 
    S2[a2, SP[a1, a2], a4, a1, a3, n] - S2[a2, SP[a1, a4], a1, a2, a3, n] - 
    S2[a2, SP[a1, a4], a1, a3, a2, n] - S2[a2, SP[a1, a4], a2, a1, a3, n] + 
    S2[a2, SP[a2, a4], a1, a1, a3, n] - S2[a2, n]*S2[a4, a2, a1, a1, a3, n] - 
    S2[a4, a2, a1, a1, SP[a2, a3], n] - S2[a4, a2, a1, SP[a1, a2], a3, n] - 
    S2[a4, a2, SP[a1, a2], a1, a3, n] - S2[a4, SP[a2, a2], a1, a1, a3, n] - 
    S2[SP[a1, a1], a2, a3, a4, a2, n] - S2[SP[a1, a1], a2, a4, a2, a3, n] - 
    S2[SP[a1, a1], a2, a4, a3, a2, n] - S2[SP[a1, a1], a3, a2, a4, a2, n] - 
    S2[SP[a1, a2], a1, a2, a3, a4, n] - S2[SP[a1, a2], a1, a2, a4, a3, n] - 
    S2[SP[a1, a2], a1, a3, a2, a4, n] - S2[SP[a1, a2], a1, a3, a4, a2, n] - 
    S2[SP[a1, a2], a1, a4, a2, a3, n] - S2[SP[a1, a2], a1, a4, a3, a2, n] - 
    S2[SP[a1, a2], a2, a1, a3, a4, n] - S2[SP[a1, a2], a2, a1, a4, a3, n] - 
    S2[SP[a1, a2], a2, a4, a1, a3, n] - S2[SP[a1, a2], a4, a1, a2, a3, n] - 
    S2[SP[a1, a2], a4, a1, a3, a2, n] - S2[SP[a1, a2], a4, a2, a1, a3, n] + 
    S2[SP[a1, a3], a1, a2, a4, a2, n] + S2[SP[a2, a2], a1, a1, a3, a4, n] + 
    S2[SP[a2, a2], a1, a1, a4, a3, n] + S2[SP[a2, a2], a1, a4, a1, a3, n] + 
    S2[SP[a2, a2], a4, a1, a1, a3, n] - S2[SP[a2, a4], a2, a1, a1, a3, n] + 
    S2[a4, a2, a1, a1, a2, a3, n] + S2[a4, a2, a1, a1, a3, a2, n] + 
    S2[a4, a2, a1, a2, a1, a3, n] + 2*S2[a4, a2, a2, a1, a1, a3, n] /; 
   MyMemberQ[{{a1, a2}, {a3, a4}}, {a1, a1, a2, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a3_, a1_, a1_, a4_, a2_, a2_, n_] :> 
  S2[a1, a1, a3, n]*S2[a2, a2, a4, n] + S2[SP[a1, a2], SP[a1, a2], 
     SP[a3, a4], n] - S2[a1, a2, SP[a1, a2], SP[a3, a4], n] - 
    S2[a1, a3, n]*S2[a1, a4, a2, a2, n] + S2[a1, a4, SP[a1, a2], SP[a2, a3], 
     n] - S2[a1, SP[a1, a2], a2, SP[a3, a4], n] - 
    S2[a1, SP[a1, a2], SP[a2, a3], a4, n] + S2[a1, SP[a1, a4], a2, 
     SP[a2, a3], n] + S2[a1, SP[a1, a4], SP[a2, a3], a2, n] - 
    S2[a2, a1, SP[a1, a2], SP[a3, a4], n] - S2[a2, SP[a1, a2], a1, 
     SP[a3, a4], n] - S2[a2, SP[a1, a2], SP[a1, a4], a3, n] + 
    S2[SP[a1, a1], a4, a2, SP[a2, a3], n] + S2[SP[a1, a1], a4, SP[a2, a3], 
     a2, n] + S2[SP[a1, a1], SP[a3, a4], a2, a2, n] - 
    S2[SP[a1, a2], a1, a2, SP[a3, a4], n] - S2[SP[a1, a2], a1, SP[a2, a3], 
     a4, n] - S2[SP[a1, a2], a2, a1, SP[a3, a4], n] - 
    S2[SP[a1, a2], a2, SP[a1, a4], a3, n] - S2[SP[a1, a2], SP[a1, a2], a3, 
     a4, n] - S2[SP[a1, a2], SP[a1, a2], a4, a3, n] + 
    S2[a1, a1, a2, a2, SP[a3, a4], n] - (S2[a2, n]*S2[a1, a1, a2, a3, a4, n])/
     2 - S2[a1, a1, a2, a3, SP[a2, a4], n]/2 - 
    (S2[a2, n]*S2[a1, a1, a2, a4, a3, n])/2 - 
    S2[a1, a1, a2, a4, SP[a2, a3], n]/2 + S2[a1, a1, a2, SP[a2, a3], a4, n]/
     2 - S2[a1, a1, a2, SP[a2, a4], a3, n]/2 - 
    (S2[a2, n]*S2[a1, a1, a3, a2, a4, n])/2 - 
    S2[a1, a1, a3, a2, SP[a2, a4], n]/2 + 
    (S2[a2, n]*S2[a1, a1, a3, a4, a2, n])/2 + 
    S2[a1, a1, a3, a4, SP[a2, a2], n]/2 - S2[a1, a1, a3, SP[a2, a2], a4, n]/
     2 + S2[a1, a1, a3, SP[a2, a4], a2, n]/2 + 
    S2[a3, n]*S2[a1, a1, a4, a2, a2, n] + 
    (S2[a2, n]*S2[a1, a1, a4, a2, a3, n])/2 - 
    S2[a1, a1, a4, a2, SP[a2, a3], n]/2 + 
    (S2[a2, n]*S2[a1, a1, a4, a3, a2, n])/2 + 
    S2[a1, a1, a4, a3, SP[a2, a2], n]/2 + S2[a1, a1, a4, SP[a2, a2], a3, n]/
     2 - S2[a1, a1, a4, SP[a2, a3], a2, n]/2 - 
    S2[a1, a1, SP[a2, a2], a3, a4, n]/2 - S2[a1, a1, SP[a2, a2], a4, a3, n]/
     2 + S2[a1, a1, SP[a2, a3], a2, a4, n]/2 + 
    S2[a1, a1, SP[a2, a3], a4, a2, n]/2 + S2[a1, a1, SP[a2, a4], a2, a3, n]/
     2 + S2[a1, a1, SP[a2, a4], a3, a2, n]/2 - S2[a1, a1, SP[a3, a4], a2, a2, 
     n] + S2[a1, a2, a1, a2, SP[a3, a4], n] - 
    (S2[a2, n]*S2[a1, a2, a1, a3, a4, n])/2 - 
    S2[a1, a2, a1, a3, SP[a2, a4], n]/2 - 
    (S2[a2, n]*S2[a1, a2, a1, a4, a3, n])/2 - 
    S2[a1, a2, a1, a4, SP[a2, a3], n]/2 + S2[a1, a2, a1, SP[a2, a3], a4, n]/
     2 - S2[a1, a2, a1, SP[a2, a4], a3, n]/2 + S2[a1, a2, a2, a1, SP[a3, a4], 
     n] + S2[a1, a2, a2, SP[a1, a4], a3, n] - 
    (S2[a2, n]*S2[a1, a2, a4, a1, a3, n])/2 - 
    S2[a1, a2, a4, a1, SP[a2, a3], n]/2 - S2[a1, a2, a4, SP[a1, a2], a3, n]/
     2 + S2[a1, a2, SP[a1, a2], a3, a4, n]/2 + 
    S2[a1, a2, SP[a1, a2], a4, a3, n]/2 - S2[a1, a2, SP[a2, a4], a1, a3, n]/
     2 + (S2[a2, n]*S2[a1, a4, a1, a2, a3, n])/2 - 
    S2[a1, a4, a1, a2, SP[a2, a3], n]/2 + 
    (S2[a2, n]*S2[a1, a4, a1, a3, a2, n])/2 + 
    S2[a1, a4, a1, a3, SP[a2, a2], n]/2 + S2[a1, a4, a1, SP[a2, a2], a3, n]/
     2 - S2[a1, a4, a1, SP[a2, a3], a2, n]/2 + 
    (S2[a2, n]*S2[a1, a4, a2, a1, a3, n])/2 - 
    S2[a1, a4, a2, a1, SP[a2, a3], n]/2 - S2[a1, a4, a2, SP[a1, a2], a3, n]/
     2 - S2[a1, a4, SP[a1, a2], a2, a3, n]/2 - 
    S2[a1, a4, SP[a1, a2], a3, a2, n]/2 + S2[a1, a4, SP[a2, a2], a1, a3, n]/
     2 + S2[a1, SP[a1, a2], a2, a3, a4, n]/2 + 
    S2[a1, SP[a1, a2], a2, a4, a3, n]/2 + S2[a1, SP[a1, a2], a3, a2, a4, n]/
     2 + S2[a1, SP[a1, a2], a3, a4, a2, n]/2 + 
    S2[a1, SP[a1, a2], a4, a2, a3, n]/2 + S2[a1, SP[a1, a2], a4, a3, a2, n]/
     2 - S2[a1, SP[a1, a4], a2, a2, a3, n] - S2[a1, SP[a1, a4], a2, a3, a2, 
     n] - S2[a1, SP[a1, a4], a3, a2, a2, n] - 
    S2[a1, SP[a2, a2], a1, a3, a4, n]/2 - S2[a1, SP[a2, a2], a1, a4, a3, n]/
     2 - S2[a1, SP[a2, a2], a4, a1, a3, n]/2 + 
    S2[a1, SP[a2, a4], a1, a2, a3, n]/2 + S2[a1, SP[a2, a4], a1, a3, a2, n]/
     2 + S2[a1, SP[a2, a4], a2, a1, a3, n]/2 + S2[a2, a1, a1, a2, SP[a3, a4], 
     n] - (S2[a2, n]*S2[a2, a1, a1, a3, a4, n])/2 - 
    S2[a2, a1, a1, a3, SP[a2, a4], n]/2 - 
    (S2[a2, n]*S2[a2, a1, a1, a4, a3, n])/2 - 
    S2[a2, a1, a1, a4, SP[a2, a3], n]/2 + S2[a2, a1, a1, SP[a2, a3], a4, n]/
     2 - S2[a2, a1, a1, SP[a2, a4], a3, n]/2 + S2[a2, a1, a2, a1, SP[a3, a4], 
     n] + S2[a2, a1, a2, SP[a1, a4], a3, n] - 
    (S2[a2, n]*S2[a2, a1, a4, a1, a3, n])/2 - 
    S2[a2, a1, a4, a1, SP[a2, a3], n]/2 - S2[a2, a1, a4, SP[a1, a2], a3, n]/
     2 + S2[a2, a1, SP[a1, a2], a3, a4, n]/2 + 
    S2[a2, a1, SP[a1, a2], a4, a3, n]/2 - S2[a2, a1, SP[a2, a4], a1, a3, n]/
     2 + S2[a2, a2, a1, a1, SP[a3, a4], n] + S2[a2, a2, a1, SP[a1, a4], a3, 
     n] + S2[a2, a2, SP[a1, a4], a1, a3, n] - 
    (S2[a2, n]*S2[a2, a4, a1, a1, a3, n])/2 - 
    S2[a2, a4, a1, a1, SP[a2, a3], n]/2 - S2[a2, a4, a1, SP[a1, a2], a3, n]/
     2 - S2[a2, a4, SP[a1, a2], a1, a3, n]/2 + 
    S2[a2, SP[a1, a2], a1, a3, a4, n]/2 + S2[a2, SP[a1, a2], a1, a4, a3, n]/
     2 + S2[a2, SP[a1, a2], a4, a1, a3, n]/2 - 
    S2[a2, SP[a2, a4], a1, a1, a3, n]/2 + 
    (S2[a2, n]*S2[a4, a1, a1, a2, a3, n])/2 + 
    S2[a4, a1, a1, a2, SP[a2, a3], n]/2 + 
    (S2[a2, n]*S2[a4, a1, a1, a3, a2, n])/2 + 
    S2[a4, a1, a1, a3, SP[a2, a2], n]/2 + S2[a4, a1, a1, SP[a2, a2], a3, n]/
     2 + S2[a4, a1, a1, SP[a2, a3], a2, n]/2 + 
    (S2[a2, n]*S2[a4, a1, a2, a1, a3, n])/2 + 
    S2[a4, a1, a2, a1, SP[a2, a3], n]/2 + S2[a4, a1, a2, SP[a1, a2], a3, n]/
     2 + S2[a4, a1, SP[a1, a2], a2, a3, n]/2 + 
    S2[a4, a1, SP[a1, a2], a3, a2, n]/2 + S2[a4, a1, SP[a2, a2], a1, a3, n]/
     2 + (S2[a2, n]*S2[a4, a2, a1, a1, a3, n])/2 + 
    S2[a4, a2, a1, a1, SP[a2, a3], n]/2 + S2[a4, a2, a1, SP[a1, a2], a3, n]/
     2 + S2[a4, a2, SP[a1, a2], a1, a3, n]/2 + 
    S2[a4, SP[a1, a2], a1, a2, a3, n]/2 + S2[a4, SP[a1, a2], a1, a3, a2, n]/
     2 + S2[a4, SP[a1, a2], a2, a1, a3, n]/2 + 
    S2[a4, SP[a2, a2], a1, a1, a3, n]/2 - S2[SP[a1, a1], a3, a4, a2, a2, n] - 
    S2[SP[a1, a1], a4, a2, a2, a3, n] - S2[SP[a1, a1], a4, a2, a3, a2, n] - 
    S2[SP[a1, a1], a4, a3, a2, a2, n] + S2[SP[a1, a2], a1, a2, a3, a4, n]/2 + 
    S2[SP[a1, a2], a1, a2, a4, a3, n]/2 + S2[SP[a1, a2], a1, a3, a2, a4, n]/
     2 + S2[SP[a1, a2], a1, a3, a4, a2, n]/2 + 
    S2[SP[a1, a2], a1, a4, a2, a3, n]/2 + S2[SP[a1, a2], a1, a4, a3, a2, n]/
     2 + S2[SP[a1, a2], a2, a1, a3, a4, n]/2 + 
    S2[SP[a1, a2], a2, a1, a4, a3, n]/2 + S2[SP[a1, a2], a2, a4, a1, a3, n]/
     2 + S2[SP[a1, a2], a4, a1, a2, a3, n]/2 + 
    S2[SP[a1, a2], a4, a1, a3, a2, n]/2 + S2[SP[a1, a2], a4, a2, a1, a3, n]/
     2 + S2[SP[a1, a3], a1, a4, a2, a2, n] - 
    S2[SP[a2, a2], a1, a1, a3, a4, n]/2 - S2[SP[a2, a2], a1, a1, a4, a3, n]/
     2 - S2[SP[a2, a2], a1, a4, a1, a3, n]/2 - 
    S2[SP[a2, a2], a4, a1, a1, a3, n]/2 + S2[SP[a2, a4], a1, a1, a2, a3, n]/
     2 + S2[SP[a2, a4], a1, a1, a3, a2, n]/2 + 
    S2[SP[a2, a4], a1, a2, a1, a3, n]/2 + S2[SP[a2, a4], a2, a1, a1, a3, n]/
     2 - S2[a4, a1, a1, a2, a2, a3, n] - S2[a4, a1, a1, a2, a3, a2, n] - 
    S2[a4, a1, a1, a3, a2, a2, n] - S2[a4, a1, a2, a1, a2, a3, n] - 
    S2[a4, a1, a2, a1, a3, a2, n] - S2[a4, a1, a2, a2, a1, a3, n] - 
    S2[a4, a2, a1, a1, a2, a3, n] - S2[a4, a2, a1, a1, a3, a2, n] - 
    S2[a4, a2, a1, a2, a1, a3, n] - S2[a4, a2, a2, a1, a1, a3, n] /; 
   MyMemberQ[{{a1, a2}, {a3, a4}}, {a1, a1, a2, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a3_, a1_, a2_, a1_, a2_, a4_, n_] :> 
  -(S2[a1, a2, a3, n]*S2[a1, a2, a4, n]) - S2[a1, a2, a4, n]*
     S2[a1, a3, a2, n] - S2[SP[a1, a1], SP[a2, a2], SP[a3, a4], n] - 
    S2[SP[a1, a1], SP[a2, a3], SP[a2, a4], n] + 
    2*S2[a1, a1, SP[a2, a2], SP[a3, a4], n] + 
    2*S2[a1, a1, SP[a2, a3], SP[a2, a4], n] - 
    S2[a2, a4, n]*S2[a1, a2, a1, a3, n] + 2*S2[a1, a3, n]*
     S2[a1, a2, a2, a4, n] + S2[a1, a3, n]*S2[a1, a2, a4, a2, n] - 
    S2[a1, a2, SP[a1, a2], SP[a3, a4], n] - S2[a1, a2, SP[a1, a4], 
     SP[a2, a3], n] + S2[a1, SP[a1, a2], a3, SP[a2, a4], n] - 
    S2[a1, SP[a1, a2], a4, SP[a2, a3], n] - S2[a1, SP[a1, a2], SP[a2, a3], 
     a4, n] + S2[a1, SP[a1, a2], SP[a2, a4], a3, n] + 
    S2[a1, SP[a1, a3], a2, SP[a2, a4], n] + S2[a1, SP[a1, a3], SP[a2, a2], 
     a4, n] + S2[a1, SP[a2, a2], a1, SP[a3, a4], n] + 
    S2[a1, SP[a2, a2], SP[a1, a4], a3, n] + S2[SP[a1, a1], a2, a3, 
     SP[a2, a4], n] - S2[SP[a1, a1], a2, a4, SP[a2, a3], n] - 
    S2[SP[a1, a1], a2, SP[a2, a3], a4, n] + S2[SP[a1, a1], a2, SP[a2, a4], 
     a3, n] + S2[SP[a1, a1], a3, a2, SP[a2, a4], n] + 
    S2[SP[a1, a1], a3, SP[a2, a2], a4, n] + S2[SP[a1, a1], SP[a2, a2], a3, 
     a4, n] + S2[SP[a1, a1], SP[a2, a2], a4, a3, n] - 
    S2[SP[a1, a1], SP[a2, a3], a2, a4, n] + S2[SP[a1, a2], a2, a1, 
     SP[a3, a4], n] + S2[SP[a1, a2], a2, SP[a1, a4], a3, n] + 
    S2[SP[a1, a2], SP[a2, a4], a1, a3, n] - 
    2*S2[a1, a1, a2, a3, SP[a2, a4], n] + 
    2*S2[a1, a1, a2, a4, SP[a2, a3], n] + 
    2*S2[a1, a1, a2, SP[a2, a3], a4, n] - 
    2*S2[a1, a1, a2, SP[a2, a4], a3, n] - 
    2*S2[a1, a1, a3, a2, SP[a2, a4], n] - 
    2*S2[a1, a1, a3, SP[a2, a2], a4, n] - 
    2*S2[a1, a1, SP[a2, a2], a3, a4, n] - 
    2*S2[a1, a1, SP[a2, a2], a4, a3, n] + 
    2*S2[a1, a1, SP[a2, a3], a2, a4, n] - 
    S2[a4, n]*S2[a1, a2, a1, a2, a3, n] + 
    S2[a3, n]*S2[a1, a2, a1, a2, a4, n] - S2[a1, a2, a1, a2, SP[a3, a4], n] - 
    S2[a4, n]*S2[a1, a2, a1, a3, a2, n] + 
    S2[a2, n]*S2[a1, a2, a1, a3, a4, n] - S2[a1, a2, a1, a3, SP[a2, a4], n] + 
    S2[a2, n]*S2[a1, a2, a1, a4, a3, n] + 
    2*S2[a1, a2, a1, a4, SP[a2, a3], n] + 
    2*S2[a1, a2, a1, SP[a2, a3], a4, n] - S2[a1, a2, a1, SP[a2, a4], a3, n] - 
    S2[a1, a2, a1, SP[a3, a4], a2, n] - 2*S2[a4, n]*
     S2[a1, a2, a2, a1, a3, n] - 2*S2[a1, a2, a2, a1, SP[a3, a4], n] - 
    2*S2[a1, a2, a2, SP[a1, a4], a3, n] + 
    S2[a2, n]*S2[a1, a2, a4, a1, a3, n] + 
    2*S2[a1, a2, a4, a1, SP[a2, a3], n] + 
    2*S2[a1, a2, a4, SP[a1, a2], a3, n] + 
    2*S2[a1, a2, SP[a1, a2], a3, a4, n] + 
    2*S2[a1, a2, SP[a1, a2], a4, a3, n] - S2[a1, a2, SP[a1, a4], a2, a3, n] - 
    S2[a1, a2, SP[a1, a4], a3, a2, n] - 2*S2[a1, a2, SP[a2, a4], a1, a3, n] - 
    S2[a1, a3, a1, a2, SP[a2, a4], n] - S2[a1, a3, a1, SP[a2, a2], a4, n] - 
    S2[a1, a3, SP[a1, a2], a2, a4, n] + S2[a2, n]*S2[a1, a4, a2, a1, a3, n] + 
    S2[a1, a4, a2, a1, SP[a2, a3], n] + S2[a1, a4, a2, SP[a1, a2], a3, n] + 
    S2[a1, a4, SP[a2, a2], a1, a3, n] + S2[a1, SP[a2, a3], a1, a2, a4, n] - 
    S2[a1, SP[a2, a4], a1, a2, a3, n] - S2[a1, SP[a2, a4], a1, a3, a2, n] - 
    S2[a1, SP[a2, a4], a2, a1, a3, n] - S2[a2, a1, a2, a1, SP[a3, a4], n] - 
    S2[a2, a1, a2, SP[a1, a4], a3, n] - S2[a2, a1, SP[a2, a4], a1, a3, n] - 
    S2[a2, SP[a1, a4], a2, a1, a3, n] + S2[a2, n]*S2[a4, a1, a2, a1, a3, n] + 
    S2[a4, a1, a2, a1, SP[a2, a3], n] + S2[a4, a1, a2, SP[a1, a2], a3, n] + 
    S2[a4, a1, SP[a2, a2], a1, a3, n] + S2[a4, SP[a1, a2], a2, a1, a3, n] + 
    S2[SP[a1, a3], a2, a1, a2, a4, n] - S2[SP[a1, a4], a2, a1, a2, a3, n] - 
    S2[SP[a1, a4], a2, a1, a3, a2, n] - 2*S2[SP[a1, a4], a2, a2, a1, a3, n] + 
    S2[SP[a2, a4], a1, a2, a1, a3, n] - S2[a4, a2, a1, a2, a1, a3, n] /; 
   MyMemberQ[{{a1, a2}, {a3, a4}}, {a1, a1, a2, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a3_, a1_, a2_, a1_, a4_, a2_, n_] :> 
  -(S2[a1, a2, a3, n]*S2[a1, a4, a2, n]) - S2[a1, a3, a2, n]*
     S2[a1, a4, a2, n] - S2[SP[a1, a1], SP[a2, a4], SP[a2, a3], n] - 
    S2[SP[a1, a1], SP[a3, a4], SP[a2, a2], n] + 
    2*S2[a1, a1, SP[a2, a4], SP[a2, a3], n] + 
    2*S2[a1, a1, SP[a3, a4], SP[a2, a2], n] + 
    S2[a2, a4, n]*S2[a1, a2, a1, a3, n] + S2[a1, a3, n]*
     S2[a1, a2, a4, a2, n] - S2[a1, a2, SP[a1, a2], SP[a3, a4], n] - 
    S2[a1, a2, SP[a1, a4], SP[a2, a3], n] + 2*S2[a1, a3, n]*
     S2[a1, a4, a2, a2, n] - 2*S2[a1, a4, SP[a1, a2], SP[a2, a3], n] + 
    S2[a1, SP[a1, a3], a4, SP[a2, a2], n] + S2[a1, SP[a1, a3], SP[a2, a4], 
     a2, n] - S2[a1, SP[a1, a4], a2, SP[a2, a3], n] + 
    S2[a1, SP[a1, a4], a3, SP[a2, a2], n] + S2[a1, SP[a1, a4], SP[a2, a2], 
     a3, n] - S2[a1, SP[a1, a4], SP[a2, a3], a2, n] - 
    S2[a1, SP[a2, a2], a1, SP[a3, a4], n] - S2[a1, SP[a2, a2], SP[a1, a4], 
     a3, n] + S2[SP[a1, a1], a3, a4, SP[a2, a2], n] + 
    S2[SP[a1, a1], a3, SP[a2, a4], a2, n] - S2[SP[a1, a1], a4, a2, 
     SP[a2, a3], n] + S2[SP[a1, a1], a4, a3, SP[a2, a2], n] + 
    S2[SP[a1, a1], a4, SP[a2, a2], a3, n] - S2[SP[a1, a1], a4, SP[a2, a3], 
     a2, n] - S2[SP[a1, a1], SP[a2, a3], a4, a2, n] + 
    S2[SP[a1, a1], SP[a2, a4], a2, a3, n] + S2[SP[a1, a1], SP[a2, a4], a3, 
     a2, n] - S2[SP[a1, a2], a2, a1, SP[a3, a4], n] - 
    S2[SP[a1, a2], a2, SP[a1, a4], a3, n] - S2[SP[a1, a2], SP[a2, a4], a1, 
     a3, n] - 2*S2[a1, a1, a3, a4, SP[a2, a2], n] - 
    2*S2[a1, a1, a3, SP[a2, a4], a2, n] + 
    2*S2[a1, a1, a4, a2, SP[a2, a3], n] - 
    2*S2[a1, a1, a4, a3, SP[a2, a2], n] - 
    2*S2[a1, a1, a4, SP[a2, a2], a3, n] + 
    2*S2[a1, a1, a4, SP[a2, a3], a2, n] + 
    2*S2[a1, a1, SP[a2, a3], a4, a2, n] - 
    2*S2[a1, a1, SP[a2, a4], a2, a3, n] - 
    2*S2[a1, a1, SP[a2, a4], a3, a2, n] + S2[a1, a2, a1, a2, SP[a3, a4], n] - 
    S2[a2, n]*S2[a1, a2, a1, a3, a4, n] - S2[a1, a2, a1, a3, SP[a2, a4], n] + 
    S2[a3, n]*S2[a1, a2, a1, a4, a2, n] - 
    S2[a2, n]*S2[a1, a2, a1, a4, a3, n] - S2[a1, a2, a1, SP[a2, a4], a3, n] + 
    S2[a1, a2, a1, SP[a3, a4], a2, n] + 2*S2[a1, a2, a2, a1, SP[a3, a4], n] + 
    2*S2[a1, a2, a2, SP[a1, a4], a3, n] - 
    S2[a2, n]*S2[a1, a2, a4, a1, a3, n] + S2[a1, a2, SP[a1, a4], a2, a3, n] + 
    S2[a1, a2, SP[a1, a4], a3, a2, n] - S2[a1, a3, a1, a4, SP[a2, a2], n] - 
    S2[a1, a3, a1, SP[a2, a4], a2, n] - S2[a1, a3, SP[a1, a2], a4, a2, n] + 
    S2[a1, a4, a1, a2, SP[a2, a3], n] - S2[a1, a4, a1, a3, SP[a2, a2], n] - 
    S2[a1, a4, a1, SP[a2, a2], a3, n] + S2[a1, a4, a1, SP[a2, a3], a2, n] - 
    S2[a2, n]*S2[a1, a4, a2, a1, a3, n] + S2[a1, a4, a2, a1, SP[a2, a3], n] + 
    S2[a1, a4, a2, SP[a1, a2], a3, n] + S2[a1, a4, SP[a1, a2], a2, a3, n] + 
    S2[a1, a4, SP[a1, a2], a3, a2, n] - S2[a1, a4, SP[a2, a2], a1, a3, n] + 
    S2[a1, SP[a2, a3], a1, a4, a2, n] - S2[a1, SP[a2, a4], a2, a1, a3, n] + 
    S2[a2, a1, a2, a1, SP[a3, a4], n] + S2[a2, a1, a2, SP[a1, a4], a3, n] + 
    S2[a2, a1, SP[a2, a4], a1, a3, n] + S2[a2, SP[a1, a4], a2, a1, a3, n] - 
    S2[a2, n]*S2[a4, a1, a2, a1, a3, n] - S2[a4, a1, a2, a1, SP[a2, a3], n] - 
    S2[a4, a1, a2, SP[a1, a2], a3, n] - S2[a4, a1, SP[a2, a2], a1, a3, n] - 
    S2[a4, SP[a1, a2], a2, a1, a3, n] + S2[SP[a1, a3], a2, a1, a4, a2, n] - 
    S2[SP[a2, a4], a1, a2, a1, a3, n] + S2[a4, a1, a2, a1, a2, a3, n] + 
    S2[a4, a1, a2, a1, a3, a2, n] + 2*S2[a4, a1, a2, a2, a1, a3, n] + 
    S2[a4, a2, a1, a2, a1, a3, n] /; MyMemberQ[{{a1, a2}, {a3, a4}}, 
     {a1, a1, a2, a2, a3, a4}] && a1 != a2 != a3 != a4, 
 S2[a3_, a1_, a2_, a2_, a1_, a4_, n_] :> 
  S2[a1, a2, a3, n]*S2[a1, a2, a4, n] + S2[a1, a2, a4, n]*S2[a1, a3, a2, n] + 
    S2[a1, a2, a3, n]*S2[a1, a4, a2, n] + S2[a1, a3, a2, n]*
     S2[a1, a4, a2, n] + S2[SP[a1, a1], SP[a2, a2], SP[a3, a4], n] + 
    S2[SP[a1, a1], SP[a2, a3], SP[a2, a4], n] + S2[SP[a1, a1], SP[a2, a4], 
     SP[a2, a3], n] + S2[SP[a1, a1], SP[a3, a4], SP[a2, a2], n] - 
    2*S2[a1, a1, SP[a2, a2], SP[a3, a4], n] - 
    2*S2[a1, a1, SP[a2, a3], SP[a2, a4], n] - 
    2*S2[a1, a1, SP[a2, a4], SP[a2, a3], n] - 
    2*S2[a1, a1, SP[a3, a4], SP[a2, a2], n] - 
    S2[a1, a4, n]*S2[a1, a2, a2, a3, n] - S2[a1, a3, n]*
     S2[a1, a2, a2, a4, n] - S2[a1, a4, n]*S2[a1, a2, a3, a2, n] - 
    S2[a1, a3, n]*S2[a1, a2, a4, a2, n] + 
    2*S2[a1, a2, SP[a1, a2], SP[a3, a4], n] + S2[a1, a2, SP[a1, a3], 
     SP[a2, a4], n] + S2[a1, a2, SP[a1, a4], SP[a2, a3], n] - 
    S2[a1, a4, n]*S2[a1, a3, a2, a2, n] + S2[a1, a3, SP[a1, a2], SP[a2, a4], 
     n] - S2[a1, a3, n]*S2[a1, a4, a2, a2, n] + S2[a1, a4, SP[a1, a2], 
     SP[a2, a3], n] - S2[a1, SP[a1, a3], a4, SP[a2, a2], n] - 
    S2[a1, SP[a1, a3], SP[a2, a2], a4, n] - S2[a1, SP[a1, a4], a3, 
     SP[a2, a2], n] - S2[a1, SP[a1, a4], SP[a2, a2], a3, n] - 
    S2[SP[a1, a1], a3, a4, SP[a2, a2], n] - S2[SP[a1, a1], a3, SP[a2, a2], 
     a4, n] - S2[SP[a1, a1], a4, a3, SP[a2, a2], n] - 
    S2[SP[a1, a1], a4, SP[a2, a2], a3, n] - S2[SP[a1, a1], SP[a2, a2], a3, 
     a4, n] - S2[SP[a1, a1], SP[a2, a2], a4, a3, n] + 
    2*S2[a1, a1, a3, a4, SP[a2, a2], n] + 
    2*S2[a1, a1, a3, SP[a2, a2], a4, n] + 
    2*S2[a1, a1, a4, a3, SP[a2, a2], n] + 
    2*S2[a1, a1, a4, SP[a2, a2], a3, n] + 
    2*S2[a1, a1, SP[a2, a2], a3, a4, n] + 
    2*S2[a1, a1, SP[a2, a2], a4, a3, n] + 
    S2[a4, n]*S2[a1, a2, a2, a1, a3, n] + 
    S2[a3, n]*S2[a1, a2, a2, a1, a4, n] - S2[a1, a2, a3, a1, SP[a2, a4], n] - 
    S2[a1, a2, a3, SP[a1, a2], a4, n] - S2[a1, a2, a4, a1, SP[a2, a3], n] - 
    S2[a1, a2, a4, SP[a1, a2], a3, n] - 2*S2[a1, a2, SP[a1, a2], a3, a4, n] - 
    2*S2[a1, a2, SP[a1, a2], a4, a3, n] + S2[a1, a2, SP[a2, a3], a1, a4, n] + 
    S2[a1, a2, SP[a2, a4], a1, a3, n] + S2[a1, a3, a1, a4, SP[a2, a2], n] + 
    S2[a1, a3, a1, SP[a2, a2], a4, n] - S2[a1, a3, a2, a1, SP[a2, a4], n] - 
    S2[a1, a3, a2, SP[a1, a2], a4, n] + S2[a1, a4, a1, a3, SP[a2, a2], n] + 
    S2[a1, a4, a1, SP[a2, a2], a3, n] - S2[a1, a4, a2, a1, SP[a2, a3], n] - 
    S2[a1, a4, a2, SP[a1, a2], a3, n] + S2[a1, SP[a2, a3], a2, a1, a4, n] + 
    S2[a1, SP[a2, a4], a2, a1, a3, n] + S2[SP[a1, a3], a2, a2, a1, a4, n] + 
    S2[SP[a1, a4], a2, a2, a1, a3, n] - S2[a4, a1, a2, a2, a1, a3, n] /; 
   MyMemberQ[{{a1, a2}, {a3, a4}}, {a1, a1, a2, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a3_, a1_, a2_, a2_, a4_, a1_, n_] :> 
  -(S2[a1, a2, a3, n]*S2[a1, a4, a2, n]) - S2[a1, a3, a2, n]*
     S2[a1, a4, a2, n] - S2[SP[a1, a1], SP[a2, a4], SP[a2, a3], n] - 
    S2[SP[a1, a1], SP[a3, a4], SP[a2, a2], n] + 
    2*S2[a1, a1, SP[a2, a4], SP[a2, a3], n] + 
    2*S2[a1, a1, SP[a3, a4], SP[a2, a2], n] + 
    S2[a1, a4, n]*S2[a1, a2, a2, a3, n] + S2[a1, a4, n]*
     S2[a1, a2, a3, a2, n] - S2[a1, a2, SP[a1, a2], SP[a3, a4], n] - 
    S2[a1, a2, SP[a1, a3], SP[a2, a4], n] + S2[a1, a4, n]*
     S2[a1, a3, a2, a2, n] - S2[a1, a3, SP[a1, a2], SP[a2, a4], n] + 
    S2[a1, a3, n]*S2[a1, a4, a2, a2, n] - S2[a1, a4, SP[a1, a2], SP[a2, a3], 
     n] - S2[a1, SP[a1, a2], a2, SP[a3, a4], n] - S2[a1, SP[a1, a2], a3, 
     SP[a2, a4], n] + S2[a1, SP[a1, a2], a4, SP[a2, a3], n] - 
    S2[a1, SP[a1, a2], SP[a2, a4], a3, n] - S2[a1, SP[a1, a3], a2, 
     SP[a2, a4], n] + S2[a1, SP[a1, a3], a4, SP[a2, a2], n] + 
    S2[a1, SP[a1, a4], a3, SP[a2, a2], n] + S2[a1, SP[a1, a4], SP[a2, a2], 
     a3, n] - S2[SP[a1, a1], a2, a2, SP[a3, a4], n] - 
    S2[SP[a1, a1], a2, a3, SP[a2, a4], n] + S2[SP[a1, a1], a2, a4, 
     SP[a2, a3], n] - S2[SP[a1, a1], a2, SP[a2, a4], a3, n] - 
    S2[SP[a1, a1], a3, a2, SP[a2, a4], n] + S2[SP[a1, a1], a3, a4, 
     SP[a2, a2], n] + S2[SP[a1, a1], a4, a3, SP[a2, a2], n] + 
    S2[SP[a1, a1], a4, SP[a2, a2], a3, n] - 
    2*S2[a3, n]*S2[a1, a1, a2, a2, a4, n] + 
    2*S2[a1, a1, a2, a3, SP[a2, a4], n] - 
    2*S2[a1, a1, a2, a4, SP[a2, a3], n] - 
    2*S2[a1, a1, a2, SP[a2, a3], a4, n] + 
    2*S2[a1, a1, a2, SP[a2, a4], a3, n] + 
    2*S2[a1, a1, a3, a2, SP[a2, a4], n] - 
    2*S2[a1, a1, a3, a4, SP[a2, a2], n] - 
    2*S2[a1, a1, a4, a3, SP[a2, a2], n] - 
    2*S2[a1, a1, a4, SP[a2, a2], a3, n] - 
    2*S2[a1, a1, SP[a2, a3], a2, a4, n] - 
    S2[a3, n]*S2[a1, a2, a1, a2, a4, n] + S2[a1, a2, a1, a3, SP[a2, a4], n] - 
    S2[a1, a2, a1, a4, SP[a2, a3], n] - S2[a1, a2, a1, SP[a2, a3], a4, n] + 
    S2[a1, a2, a1, SP[a2, a4], a3, n] - S2[a3, n]*S2[a1, a2, a2, a1, a4, n] + 
    S2[a1, a2, a3, a1, SP[a2, a4], n] + S2[a1, a2, a3, SP[a1, a2], a4, n] + 
    S2[a1, a2, SP[a1, a2], a3, a4, n] + S2[a1, a2, SP[a1, a2], a4, a3, n] - 
    S2[a1, a2, SP[a2, a3], a1, a4, n] + S2[a1, a3, a1, a2, SP[a2, a4], n] - 
    S2[a1, a3, a1, a4, SP[a2, a2], n] + S2[a1, a3, a2, a1, SP[a2, a4], n] + 
    S2[a1, a3, a2, SP[a1, a2], a4, n] + S2[a1, a3, SP[a1, a2], a2, a4, n] - 
    S2[a1, a4, a1, a3, SP[a2, a2], n] - S2[a1, a4, a1, SP[a2, a2], a3, n] + 
    S2[a1, a4, a2, a1, SP[a2, a3], n] + S2[a1, a4, a2, SP[a1, a2], a3, n] + 
    S2[a1, SP[a1, a2], a2, a3, a4, n] + S2[a1, SP[a1, a2], a2, a4, a3, n] + 
    S2[a1, SP[a1, a2], a3, a2, a4, n] - S2[a1, SP[a1, a3], a2, a2, a4, n] - 
    S2[a1, SP[a2, a3], a1, a2, a4, n] - S2[a1, SP[a2, a3], a2, a1, a4, n] + 
    S2[a1, n]*S2[a3, a1, a2, a2, a4, n] + S2[a3, a1, a2, a2, SP[a1, a4], n] + 
    S2[a3, a1, a2, SP[a1, a2], a4, n] + S2[a3, a1, SP[a1, a2], a2, a4, n] + 
    S2[a3, SP[a1, a1], a2, a2, a4, n] - S2[a1, n]*S2[a4, a2, a2, a1, a3, n] - 
    S2[a4, a2, a2, a1, SP[a1, a3], n] - S2[a4, a2, a2, SP[a1, a1], a3, n] - 
    S2[a4, a2, SP[a1, a2], a1, a3, n] - S2[a4, SP[a1, a2], a2, a1, a3, n] + 
    S2[SP[a1, a1], a2, a2, a3, a4, n] + S2[SP[a1, a1], a2, a2, a4, a3, n] + 
    S2[SP[a1, a1], a2, a3, a2, a4, n] + S2[SP[a1, a1], a3, a2, a2, a4, n] - 
    S2[SP[a1, a3], a1, a2, a2, a4, n] - S2[SP[a1, a3], a2, a1, a2, a4, n] - 
    S2[SP[a1, a3], a2, a2, a1, a4, n] - S2[SP[a1, a4], a2, a2, a1, a3, n] + 
    S2[a4, a1, a2, a2, a1, a3, n] + S2[a4, a2, a1, a2, a1, a3, n] + 
    2*S2[a4, a2, a2, a1, a1, a3, n] + S2[a4, a2, a2, a1, a3, a1, n] /; 
   MyMemberQ[{{a1, a2}, {a3, a4}}, {a1, a1, a2, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a3_, a1_, a2_, a4_, a1_, a2_, n_] :> 
  S2[a1, a2, a3, n]*S2[a1, a2, a4, n] + S2[a1, a2, a4, n]*S2[a1, a3, a2, n] + 
    S2[a1, a2, a3, n]*S2[a1, a4, a2, n] + S2[a1, a3, a2, n]*
     S2[a1, a4, a2, n] + S2[SP[a1, a1], SP[a2, a2], SP[a3, a4], n] + 
    S2[SP[a1, a1], SP[a2, a3], SP[a2, a4], n] + S2[SP[a1, a1], SP[a2, a4], 
     SP[a2, a3], n] + S2[SP[a1, a1], SP[a3, a4], SP[a2, a2], n] - 
    2*S2[a1, a1, SP[a2, a2], SP[a3, a4], n] - 
    2*S2[a1, a1, SP[a2, a3], SP[a2, a4], n] - 
    2*S2[a1, a1, SP[a2, a4], SP[a2, a3], n] - 
    2*S2[a1, a1, SP[a3, a4], SP[a2, a2], n] - 
    S2[a1, a3, n]*S2[a1, a2, a4, a2, n] + S2[a1, a2, SP[a1, a4], SP[a2, a3], 
     n] + S2[a1, a2, n]*S2[a1, a3, a4, a2, n] - S2[a1, a3, SP[a1, a4], 
     SP[a2, a2], n] - 2*S2[a1, a3, n]*S2[a1, a4, a2, a2, n] + 
    S2[a1, a2, n]*S2[a1, a4, a2, a3, n] + S2[a1, a2, n]*
     S2[a1, a4, a3, a2, n] + S2[a1, a4, SP[a1, a2], SP[a2, a3], n] - 
    S2[a1, a4, SP[a1, a3], SP[a2, a2], n] - 
    2*S2[a1, SP[a1, a2], a2, SP[a3, a4], n] - S2[a1, SP[a1, a2], a3, 
     SP[a2, a4], n] - S2[a1, SP[a1, a2], SP[a2, a3], a4, n] - 
    S2[a1, SP[a1, a2], SP[a2, a4], a3, n] - S2[a1, SP[a1, a2], SP[a3, a4], 
     a2, n] - S2[a1, SP[a1, a3], a2, SP[a2, a4], n] - 
    2*S2[a1, SP[a1, a3], a4, SP[a2, a2], n] - S2[a1, SP[a1, a3], SP[a2, a2], 
     a4, n] - 2*S2[a1, SP[a1, a3], SP[a2, a4], a2, n] - 
    2*S2[a1, SP[a1, a4], a3, SP[a2, a2], n] - 
    2*S2[a1, SP[a1, a4], SP[a2, a2], a3, n] - 
    S2[a1, a2, n]*S2[a2, a4, a1, a3, n] + S2[a2, a4, SP[a1, a1], SP[a2, a3], 
     n] + S2[a2, SP[a1, a4], a1, SP[a2, a3], n] + 
    S2[a2, SP[a1, a4], SP[a1, a2], a3, n] - 
    2*S2[SP[a1, a1], a2, a2, SP[a3, a4], n] - S2[SP[a1, a1], a2, a3, 
     SP[a2, a4], n] - S2[SP[a1, a1], a2, SP[a2, a3], a4, n] - 
    S2[SP[a1, a1], a2, SP[a2, a4], a3, n] - S2[SP[a1, a1], a2, SP[a3, a4], 
     a2, n] - S2[SP[a1, a1], a3, a2, SP[a2, a4], n] - 
    2*S2[SP[a1, a1], a3, a4, SP[a2, a2], n] - S2[SP[a1, a1], a3, SP[a2, a2], 
     a4, n] - 2*S2[SP[a1, a1], a3, SP[a2, a4], a2, n] - 
    2*S2[SP[a1, a1], a4, a3, SP[a2, a2], n] - 
    2*S2[SP[a1, a1], a4, SP[a2, a2], a3, n] - S2[SP[a1, a1], SP[a2, a2], a3, 
     a4, n] - S2[SP[a1, a1], SP[a2, a2], a4, a3, n] - 
    S2[SP[a1, a1], SP[a2, a3], a2, a4, n] - S2[SP[a1, a1], SP[a2, a3], a4, 
     a2, n] - 2*S2[SP[a1, a1], SP[a2, a4], a2, a3, n] - 
    2*S2[SP[a1, a1], SP[a2, a4], a3, a2, n] + S2[SP[a1, a2], a4, a1, 
     SP[a2, a3], n] + S2[SP[a1, a2], a4, SP[a1, a2], a3, n] + 
    S2[SP[a1, a2], SP[a2, a4], a1, a3, n] - 
    4*S2[a4, n]*S2[a1, a1, a2, a2, a3, n] - 
    4*S2[a4, n]*S2[a1, a1, a2, a3, a2, n] - 
    2*S2[a1, a1, a2, a3, SP[a2, a4], n] + 
    2*S2[a1, a1, a2, SP[a2, a3], a4, n] - 
    2*S2[a1, a1, a2, SP[a2, a4], a3, n] - 
    2*S2[a1, a1, a2, SP[a3, a4], a2, n] - 
    4*S2[a4, n]*S2[a1, a1, a3, a2, a2, n] - 
    2*S2[a1, a1, a3, a2, SP[a2, a4], n] + 
    4*S2[a1, a1, a3, a4, SP[a2, a2], n] + 
    2*S2[a1, a1, a3, SP[a2, a2], a4, n] + 
    4*S2[a1, a1, a4, a3, SP[a2, a2], n] + 
    4*S2[a1, a1, a4, SP[a2, a2], a3, n] + 
    2*S2[a1, a1, SP[a2, a2], a3, a4, n] + 
    2*S2[a1, a1, SP[a2, a2], a4, a3, n] + 
    2*S2[a1, a1, SP[a2, a3], a2, a4, n] + 
    2*S2[a1, a1, SP[a2, a3], a4, a2, n] - 
    4*S2[a1, a1, SP[a3, a4], a2, a2, n] - 
    2*S2[a4, n]*S2[a1, a2, a1, a2, a3, n] - 
    2*S2[a4, n]*S2[a1, a2, a1, a3, a2, n] - S2[a1, a2, a1, a3, SP[a2, a4], 
     n] + S2[a1, a2, a1, SP[a2, a3], a4, n] - S2[a1, a2, a1, SP[a2, a4], a3, 
     n] - S2[a1, a2, a1, SP[a3, a4], a2, n] - 
    S2[a4, n]*S2[a1, a2, a3, a1, a2, n] - S2[a1, a2, a3, a1, SP[a2, a4], n] - 
    S2[a1, a2, a3, SP[a1, a4], a2, n] + S2[a3, n]*S2[a1, a2, a4, a1, a2, n] + 
    S2[a2, n]*S2[a1, a2, a4, a1, a3, n] - S2[a1, a2, a4, SP[a1, a2], a3, n] + 
    S2[a1, a2, a4, SP[a1, a3], a2, n] + S2[a1, a2, SP[a1, a3], a2, a4, n] + 
    S2[a1, a2, SP[a1, a3], a4, a2, n] - 2*S2[a1, a2, SP[a1, a4], a2, a3, n] - 
    2*S2[a1, a2, SP[a1, a4], a3, a2, n] - 
    2*S2[a4, n]*S2[a1, a3, a1, a2, a2, n] - S2[a1, a3, a1, a2, SP[a2, a4], 
     n] + 2*S2[a1, a3, a1, a4, SP[a2, a2], n] + S2[a1, a3, a1, SP[a2, a2], 
     a4, n] - S2[a4, n]*S2[a1, a3, a2, a1, a2, n] - 
    S2[a1, a3, a2, a1, SP[a2, a4], n] - S2[a1, a3, a2, SP[a1, a4], a2, n] + 
    S2[a1, a3, a4, a1, SP[a2, a2], n] + S2[a1, a3, a4, SP[a1, a2], a2, n] + 
    S2[a1, a3, SP[a1, a2], a2, a4, n] + S2[a1, a3, SP[a1, a2], a4, a2, n] - 
    S2[a1, a3, SP[a2, a4], a1, a2, n] + S2[a2, n]*S2[a1, a4, a1, a2, a3, n] + 
    S2[a1, a4, a1, a2, SP[a2, a3], n] + S2[a2, n]*S2[a1, a4, a1, a3, a2, n] + 
    3*S2[a1, a4, a1, a3, SP[a2, a2], n] + 
    3*S2[a1, a4, a1, SP[a2, a2], a3, n] + S2[a1, a4, a1, SP[a2, a3], a2, n] + 
    S2[a2, n]*S2[a1, a4, a2, a1, a3, n] - S2[a1, a4, a2, SP[a1, a2], a3, n] + 
    S2[a1, a4, a2, SP[a1, a3], a2, n] + S2[a1, a4, a3, a1, SP[a2, a2], n] + 
    S2[a1, a4, a3, SP[a1, a2], a2, n] + S2[a1, a4, SP[a1, a2], a2, a3, n] + 
    S2[a1, a4, SP[a1, a2], a3, a2, n] + 2*S2[a1, a4, SP[a1, a3], a2, a2, n] + 
    S2[a1, a4, SP[a2, a2], a1, a3, n] + 2*S2[a1, SP[a1, a2], a2, a3, a4, n] + 
    2*S2[a1, SP[a1, a2], a2, a4, a3, n] + 
    2*S2[a1, SP[a1, a2], a3, a2, a4, n] + 
    2*S2[a1, SP[a1, a2], a3, a4, a2, n] + 
    2*S2[a1, SP[a1, a2], a4, a2, a3, n] + 
    2*S2[a1, SP[a1, a2], a4, a3, a2, n] + 
    2*S2[a1, SP[a1, a3], a2, a2, a4, n] + 
    2*S2[a1, SP[a1, a3], a2, a4, a2, n] + 
    2*S2[a1, SP[a1, a3], a4, a2, a2, n] - 
    2*S2[a1, SP[a1, a4], a2, a2, a3, n] - 
    2*S2[a1, SP[a1, a4], a2, a3, a2, n] - 
    2*S2[a1, SP[a1, a4], a3, a2, a2, n] + S2[a1, SP[a2, a3], a4, a1, a2, n] - 
    S2[a1, SP[a2, a4], a1, a2, a3, n] - S2[a1, SP[a2, a4], a1, a3, a2, n] + 
    S2[a1, SP[a2, a4], a2, a1, a3, n] - S2[a1, SP[a2, a4], a3, a1, a2, n] - 
    2*S2[a1, SP[a3, a4], a1, a2, a2, n] - S2[a1, SP[a3, a4], a2, a1, a2, n] - 
    S2[a2, a1, a4, a1, SP[a2, a3], n] - S2[a2, a1, a4, SP[a1, a2], a3, n] - 
    S2[a2, a1, SP[a2, a4], a1, a3, n] - 2*S2[a2, a4, a1, a1, SP[a2, a3], n] - 
    S2[a2, a4, a1, SP[a1, a2], a3, n] - S2[a2, a4, a1, SP[a1, a3], a2, n] - 
    S2[a2, a4, SP[a1, a1], a2, a3, n] - S2[a2, a4, SP[a1, a1], a3, a2, n] - 
    S2[a2, SP[a1, a4], a1, a2, a3, n] - S2[a2, SP[a1, a4], a1, a3, a2, n] - 
    S2[a2, SP[a1, a4], a2, a1, a3, n] + 2*S2[a2, n]*
     S2[a4, a1, a1, a2, a3, n] + 2*S2[a4, a1, a1, a2, SP[a2, a3], n] + 
    2*S2[a2, n]*S2[a4, a1, a1, a3, a2, n] + 
    2*S2[a4, a1, a1, a3, SP[a2, a2], n] + 
    2*S2[a4, a1, a1, SP[a2, a2], a3, n] + 
    2*S2[a4, a1, a1, SP[a2, a3], a2, n] + 
    S2[a2, n]*S2[a4, a1, a2, a1, a3, n] + S2[a4, a1, a2, a1, SP[a2, a3], n] + 
    S2[a4, a1, a2, SP[a1, a2], a3, n] + S2[a2, n]*S2[a4, a1, a3, a1, a2, n] + 
    S2[a4, a1, a3, a1, SP[a2, a2], n] + S2[a4, a1, a3, SP[a1, a2], a2, n] + 
    2*S2[a4, a1, SP[a1, a2], a2, a3, n] + 
    2*S2[a4, a1, SP[a1, a2], a3, a2, n] + S2[a4, a1, SP[a2, a2], a1, a3, n] + 
    S2[a4, a1, SP[a2, a3], a1, a2, n] + 2*S2[a4, SP[a1, a2], a1, a2, a3, n] + 
    2*S2[a4, SP[a1, a2], a1, a3, a2, n] + S2[a4, SP[a1, a2], a2, a1, a3, n] + 
    S2[a4, SP[a1, a2], a3, a1, a2, n] + 2*S2[SP[a1, a1], a2, a2, a3, a4, n] + 
    2*S2[SP[a1, a1], a2, a2, a4, a3, n] + 
    2*S2[SP[a1, a1], a2, a3, a2, a4, n] + 
    2*S2[SP[a1, a1], a2, a3, a4, a2, n] + 
    2*S2[SP[a1, a1], a2, a4, a2, a3, n] + 
    2*S2[SP[a1, a1], a2, a4, a3, a2, n] + 
    2*S2[SP[a1, a1], a3, a2, a2, a4, n] + 
    2*S2[SP[a1, a1], a3, a2, a4, a2, n] + 
    2*S2[SP[a1, a1], a3, a4, a2, a2, n] + 
    2*S2[SP[a1, a1], a4, a2, a2, a3, n] + 
    2*S2[SP[a1, a1], a4, a2, a3, a2, n] + 
    2*S2[SP[a1, a1], a4, a3, a2, a2, n] + S2[SP[a1, a3], a2, a4, a1, a2, n] - 
    4*S2[SP[a1, a4], a1, a2, a2, a3, n] - 
    4*S2[SP[a1, a4], a1, a2, a3, a2, n] - 
    4*S2[SP[a1, a4], a1, a3, a2, a2, n] - 
    2*S2[SP[a1, a4], a2, a1, a2, a3, n] - 
    2*S2[SP[a1, a4], a2, a1, a3, a2, n] - S2[SP[a1, a4], a2, a3, a1, a2, n] - 
    2*S2[SP[a1, a4], a3, a1, a2, a2, n] - S2[SP[a1, a4], a3, a2, a1, a2, n] + 
    2*S2[SP[a2, a4], a1, a1, a2, a3, n] + 
    2*S2[SP[a2, a4], a1, a1, a3, a2, n] + S2[SP[a2, a4], a1, a2, a1, a3, n] + 
    S2[SP[a2, a4], a1, a3, a1, a2, n] - S2[a4, a1, a2, a1, a2, a3, n] - 
    S2[a4, a1, a2, a1, a3, a2, n] - 2*S2[a4, a1, a2, a2, a1, a3, n] - 
    2*S2[a4, a2, a1, a1, a2, a3, n] - 2*S2[a4, a2, a1, a1, a3, a2, n] - 
    S2[a4, a2, a1, a2, a1, a3, n] - S2[a4, a2, a1, a3, a1, a2, n] /; 
   MyMemberQ[{{a1, a2}, {a3, a4}}, {a1, a1, a2, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a3_, a1_, a2_, a4_, a2_, a1_, n_] :> 
  -(S2[a1, a2, a3, n]*S2[a1, a2, a4, n]) - S2[a1, a2, a4, n]*
     S2[a1, a3, a2, n] - S2[SP[a1, a1], SP[a2, a2], SP[a3, a4], n] - 
    S2[SP[a1, a1], SP[a2, a3], SP[a2, a4], n] + 
    2*S2[a1, a1, SP[a2, a2], SP[a3, a4], n] + 
    2*S2[a1, a1, SP[a2, a3], SP[a2, a4], n] + 
    S2[a1, a3, n]*S2[a1, a2, a4, a2, n] - S2[a1, a2, SP[a1, a4], SP[a2, a3], 
     n] - S2[a1, a2, n]*S2[a1, a3, a4, a2, n] + S2[a1, a3, SP[a1, a4], 
     SP[a2, a2], n] - S2[a1, a2, n]*S2[a1, a4, a2, a3, n] - 
    S2[a1, a2, n]*S2[a1, a4, a3, a2, n] + S2[a1, a4, SP[a1, a2], SP[a2, a3], 
     n] + S2[a1, a4, SP[a1, a3], SP[a2, a2], n] + 
    2*S2[a1, SP[a1, a2], a2, SP[a3, a4], n] + S2[a1, SP[a1, a2], a3, 
     SP[a2, a4], n] - S2[a1, SP[a1, a2], a4, SP[a2, a3], n] + 
    S2[a1, SP[a1, a2], SP[a2, a3], a4, n] + S2[a1, SP[a1, a2], SP[a2, a4], 
     a3, n] + S2[a1, SP[a1, a3], a2, SP[a2, a4], n] + 
    S2[a1, SP[a1, a3], a4, SP[a2, a2], n] + S2[a1, SP[a1, a3], SP[a2, a2], 
     a4, n] + S2[a1, SP[a1, a3], SP[a2, a4], a2, n] + 
    S2[a1, SP[a1, a4], a2, SP[a2, a3], n] + S2[a1, SP[a1, a4], a3, 
     SP[a2, a2], n] + S2[a1, SP[a1, a4], SP[a2, a2], a3, n] + 
    S2[a1, SP[a1, a4], SP[a2, a3], a2, n] + S2[a1, a2, n]*
     S2[a2, a4, a1, a3, n] - S2[a2, a4, SP[a1, a1], SP[a2, a3], n] - 
    S2[a2, SP[a1, a4], a1, SP[a2, a3], n] - S2[a2, SP[a1, a4], SP[a1, a2], 
     a3, n] + 2*S2[SP[a1, a1], a2, a2, SP[a3, a4], n] + 
    S2[SP[a1, a1], a2, a3, SP[a2, a4], n] - S2[SP[a1, a1], a2, a4, 
     SP[a2, a3], n] + S2[SP[a1, a1], a2, SP[a2, a3], a4, n] + 
    S2[SP[a1, a1], a2, SP[a2, a4], a3, n] + S2[SP[a1, a1], a3, a2, 
     SP[a2, a4], n] + S2[SP[a1, a1], a3, a4, SP[a2, a2], n] + 
    S2[SP[a1, a1], a3, SP[a2, a2], a4, n] + S2[SP[a1, a1], a3, SP[a2, a4], 
     a2, n] + S2[SP[a1, a1], a4, a2, SP[a2, a3], n] + 
    S2[SP[a1, a1], a4, a3, SP[a2, a2], n] + S2[SP[a1, a1], a4, SP[a2, a2], 
     a3, n] + S2[SP[a1, a1], a4, SP[a2, a3], a2, n] + 
    S2[SP[a1, a1], SP[a2, a2], a3, a4, n] + S2[SP[a1, a1], SP[a2, a2], a4, 
     a3, n] + S2[SP[a1, a1], SP[a2, a3], a2, a4, n] + 
    S2[SP[a1, a1], SP[a2, a3], a4, a2, n] + S2[SP[a1, a1], SP[a2, a4], a2, 
     a3, n] + S2[SP[a1, a1], SP[a2, a4], a3, a2, n] - 
    S2[SP[a1, a2], a4, a1, SP[a2, a3], n] - S2[SP[a1, a2], a4, SP[a1, a2], 
     a3, n] - S2[SP[a1, a2], SP[a2, a4], a1, a3, n] + 
    4*S2[a4, n]*S2[a1, a1, a2, a2, a3, n] + 
    4*S2[a4, n]*S2[a1, a1, a2, a3, a2, n] + 
    2*S2[a1, a1, a2, a3, SP[a2, a4], n] - 
    2*S2[a3, n]*S2[a1, a1, a2, a4, a2, n] - 
    2*S2[a1, a1, a2, SP[a2, a3], a4, n] + 
    2*S2[a1, a1, a2, SP[a2, a4], a3, n] + 
    2*S2[a1, a1, a2, SP[a3, a4], a2, n] + 
    4*S2[a4, n]*S2[a1, a1, a3, a2, a2, n] + 
    2*S2[a1, a1, a3, a2, SP[a2, a4], n] - 
    2*S2[a1, a1, a3, a4, SP[a2, a2], n] - 
    2*S2[a1, a1, a3, SP[a2, a2], a4, n] + 
    2*S2[a1, a1, a3, SP[a2, a4], a2, n] - 
    2*S2[a1, a1, a4, a2, SP[a2, a3], n] - 
    2*S2[a1, a1, a4, a3, SP[a2, a2], n] - 
    2*S2[a1, a1, a4, SP[a2, a2], a3, n] - 
    2*S2[a1, a1, a4, SP[a2, a3], a2, n] - 
    2*S2[a1, a1, SP[a2, a2], a3, a4, n] - 
    2*S2[a1, a1, SP[a2, a2], a4, a3, n] - 
    2*S2[a1, a1, SP[a2, a3], a2, a4, n] - 
    4*S2[a1, a1, SP[a2, a3], a4, a2, n] + 
    2*S2[a1, a1, SP[a2, a4], a2, a3, n] + 
    2*S2[a1, a1, SP[a2, a4], a3, a2, n] + 
    4*S2[a1, a1, SP[a3, a4], a2, a2, n] + 
    2*S2[a4, n]*S2[a1, a2, a1, a2, a3, n] + 
    2*S2[a4, n]*S2[a1, a2, a1, a3, a2, n] + S2[a1, a2, a1, a3, SP[a2, a4], 
     n] - S2[a3, n]*S2[a1, a2, a1, a4, a2, n] - S2[a1, a2, a1, SP[a2, a3], 
     a4, n] + S2[a1, a2, a1, SP[a2, a4], a3, n] + S2[a1, a2, a1, SP[a3, a4], 
     a2, n] + S2[a4, n]*S2[a1, a2, a3, a1, a2, n] + 
    S2[a1, a2, a3, a1, SP[a2, a4], n] + S2[a1, a2, a3, SP[a1, a4], a2, n] - 
    S2[a3, n]*S2[a1, a2, a4, a1, a2, n] - 
    S2[a2, n]*S2[a1, a2, a4, a1, a3, n] + S2[a1, a2, a4, SP[a1, a2], a3, n] - 
    S2[a1, a2, a4, SP[a1, a3], a2, n] - S2[a1, a2, SP[a1, a3], a2, a4, n] - 
    S2[a1, a2, SP[a1, a3], a4, a2, n] + 2*S2[a1, a2, SP[a1, a4], a2, a3, n] + 
    2*S2[a1, a2, SP[a1, a4], a3, a2, n] + 
    2*S2[a4, n]*S2[a1, a3, a1, a2, a2, n] + S2[a1, a3, a1, a2, SP[a2, a4], 
     n] - S2[a1, a3, a1, a4, SP[a2, a2], n] - S2[a1, a3, a1, SP[a2, a2], a4, 
     n] + S2[a1, a3, a1, SP[a2, a4], a2, n] + 
    S2[a4, n]*S2[a1, a3, a2, a1, a2, n] + S2[a1, a3, a2, a1, SP[a2, a4], n] + 
    S2[a1, a3, a2, SP[a1, a4], a2, n] - S2[a1, a3, a4, a1, SP[a2, a2], n] - 
    S2[a1, a3, a4, SP[a1, a2], a2, n] - S2[a1, a3, SP[a1, a2], a2, a4, n] + 
    S2[a1, a3, SP[a2, a4], a1, a2, n] - S2[a2, n]*S2[a1, a4, a1, a2, a3, n] - 
    2*S2[a1, a4, a1, a2, SP[a2, a3], n] - 
    S2[a2, n]*S2[a1, a4, a1, a3, a2, n] - 
    2*S2[a1, a4, a1, a3, SP[a2, a2], n] - 
    2*S2[a1, a4, a1, SP[a2, a2], a3, n] - 
    2*S2[a1, a4, a1, SP[a2, a3], a2, n] - 
    S2[a2, n]*S2[a1, a4, a2, a1, a3, n] - 
    2*S2[a1, a4, a2, a1, SP[a2, a3], n] - S2[a1, a4, a2, SP[a1, a2], a3, n] - 
    S2[a1, a4, a2, SP[a1, a3], a2, n] - S2[a1, a4, a3, a1, SP[a2, a2], n] - 
    S2[a1, a4, a3, SP[a1, a2], a2, n] - 2*S2[a1, a4, SP[a1, a2], a2, a3, n] - 
    2*S2[a1, a4, SP[a1, a2], a3, a2, n] - 
    2*S2[a1, a4, SP[a1, a3], a2, a2, n] - S2[a1, a4, SP[a2, a2], a1, a3, n] - 
    2*S2[a1, SP[a1, a2], a2, a3, a4, n] - 
    2*S2[a1, SP[a1, a2], a2, a4, a3, n] - 
    2*S2[a1, SP[a1, a2], a3, a2, a4, n] - S2[a1, SP[a1, a2], a3, a4, a2, n] - 
    S2[a1, SP[a1, a2], a4, a2, a3, n] - S2[a1, SP[a1, a2], a4, a3, a2, n] - 
    2*S2[a1, SP[a1, a3], a2, a2, a4, n] - 
    3*S2[a1, SP[a1, a3], a2, a4, a2, n] - 
    2*S2[a1, SP[a1, a3], a4, a2, a2, n] + 
    2*S2[a1, SP[a1, a4], a2, a2, a3, n] + 
    2*S2[a1, SP[a1, a4], a2, a3, a2, n] + 
    2*S2[a1, SP[a1, a4], a3, a2, a2, n] - S2[a1, SP[a2, a3], a1, a4, a2, n] - 
    S2[a1, SP[a2, a3], a4, a1, a2, n] + S2[a1, SP[a2, a4], a1, a2, a3, n] + 
    S2[a1, SP[a2, a4], a1, a3, a2, n] - S2[a1, SP[a2, a4], a2, a1, a3, n] + 
    S2[a1, SP[a2, a4], a3, a1, a2, n] + 2*S2[a1, SP[a3, a4], a1, a2, a2, n] + 
    S2[a1, SP[a3, a4], a2, a1, a2, n] + S2[a2, a1, a4, a1, SP[a2, a3], n] + 
    S2[a2, a1, a4, SP[a1, a2], a3, n] + S2[a2, a1, SP[a2, a4], a1, a3, n] + 
    2*S2[a2, a4, a1, a1, SP[a2, a3], n] + S2[a2, a4, a1, SP[a1, a2], a3, n] + 
    S2[a2, a4, a1, SP[a1, a3], a2, n] + S2[a2, a4, SP[a1, a1], a2, a3, n] + 
    S2[a2, a4, SP[a1, a1], a3, a2, n] + S2[a2, SP[a1, a4], a1, a2, a3, n] + 
    S2[a2, SP[a1, a4], a1, a3, a2, n] + S2[a2, SP[a1, a4], a2, a1, a3, n] + 
    S2[a1, n]*S2[a3, a1, a2, a4, a2, n] + S2[a3, a1, a2, a4, SP[a1, a2], n] + 
    S2[a3, a1, a2, SP[a1, a4], a2, n] + S2[a3, a1, SP[a1, a2], a4, a2, n] + 
    S2[a3, SP[a1, a1], a2, a4, a2, n] - 2*S2[a2, n]*
     S2[a4, a1, a1, a2, a3, n] - 2*S2[a4, a1, a1, a2, SP[a2, a3], n] - 
    2*S2[a2, n]*S2[a4, a1, a1, a3, a2, n] - 
    2*S2[a4, a1, a1, a3, SP[a2, a2], n] - 
    2*S2[a4, a1, a1, SP[a2, a2], a3, n] - 
    2*S2[a4, a1, a1, SP[a2, a3], a2, n] - 
    S2[a2, n]*S2[a4, a1, a2, a1, a3, n] - S2[a4, a1, a2, a1, SP[a2, a3], n] - 
    S2[a4, a1, a2, SP[a1, a2], a3, n] - S2[a2, n]*S2[a4, a1, a3, a1, a2, n] - 
    S2[a4, a1, a3, a1, SP[a2, a2], n] - S2[a4, a1, a3, SP[a1, a2], a2, n] - 
    2*S2[a4, a1, SP[a1, a2], a2, a3, n] - 
    2*S2[a4, a1, SP[a1, a2], a3, a2, n] - S2[a4, a1, SP[a2, a2], a1, a3, n] - 
    S2[a4, a1, SP[a2, a3], a1, a2, n] + S2[a1, n]*S2[a4, a2, a1, a2, a3, n] + 
    S2[a4, a2, a1, a2, SP[a1, a3], n] + S2[a1, n]*S2[a4, a2, a1, a3, a2, n] + 
    S2[a4, a2, a1, a3, SP[a1, a2], n] + S2[a4, a2, a1, SP[a1, a2], a3, n] + 
    S2[a4, a2, a1, SP[a1, a3], a2, n] + 2*S2[a1, n]*
     S2[a4, a2, a2, a1, a3, n] + 2*S2[a4, a2, a2, a1, SP[a1, a3], n] + 
    2*S2[a4, a2, a2, SP[a1, a1], a3, n] + S2[a4, a2, SP[a1, a1], a2, a3, n] + 
    S2[a4, a2, SP[a1, a1], a3, a2, n] + 2*S2[a4, a2, SP[a1, a2], a1, a3, n] - 
    S2[a4, SP[a1, a2], a1, a2, a3, n] - S2[a4, SP[a1, a2], a1, a3, a2, n] + 
    S2[a4, SP[a1, a2], a2, a1, a3, n] - S2[a4, SP[a1, a2], a3, a1, a2, n] - 
    2*S2[SP[a1, a1], a2, a2, a3, a4, n] - 
    2*S2[SP[a1, a1], a2, a2, a4, a3, n] - 
    2*S2[SP[a1, a1], a2, a3, a2, a4, n] - S2[SP[a1, a1], a2, a3, a4, a2, n] - 
    S2[SP[a1, a1], a2, a4, a2, a3, n] - S2[SP[a1, a1], a2, a4, a3, a2, n] - 
    2*S2[SP[a1, a1], a3, a2, a2, a4, n] - S2[SP[a1, a1], a3, a2, a4, a2, n] - 
    2*S2[SP[a1, a1], a3, a4, a2, a2, n] - 
    2*S2[SP[a1, a1], a4, a2, a2, a3, n] - 
    2*S2[SP[a1, a1], a4, a2, a3, a2, n] - 
    2*S2[SP[a1, a1], a4, a3, a2, a2, n] - S2[SP[a1, a3], a1, a2, a4, a2, n] - 
    S2[SP[a1, a3], a2, a1, a4, a2, n] - S2[SP[a1, a3], a2, a4, a1, a2, n] + 
    4*S2[SP[a1, a4], a1, a2, a2, a3, n] + 
    4*S2[SP[a1, a4], a1, a2, a3, a2, n] + 
    4*S2[SP[a1, a4], a1, a3, a2, a2, n] + 
    3*S2[SP[a1, a4], a2, a1, a2, a3, n] + 
    3*S2[SP[a1, a4], a2, a1, a3, a2, n] + 
    2*S2[SP[a1, a4], a2, a2, a1, a3, n] + S2[SP[a1, a4], a2, a3, a1, a2, n] + 
    2*S2[SP[a1, a4], a3, a1, a2, a2, n] + S2[SP[a1, a4], a3, a2, a1, a2, n] - 
    2*S2[SP[a2, a4], a1, a1, a2, a3, n] - 
    2*S2[SP[a2, a4], a1, a1, a3, a2, n] - S2[SP[a2, a4], a1, a2, a1, a3, n] - 
    S2[SP[a2, a4], a1, a3, a1, a2, n] - 2*S2[a4, a2, a1, a2, a1, a3, n] - 
    S2[a4, a2, a1, a2, a3, a1, n] - S2[a4, a2, a1, a3, a2, a1, n] - 
    4*S2[a4, a2, a2, a1, a1, a3, n] - 2*S2[a4, a2, a2, a1, a3, a1, n] /; 
   MyMemberQ[{{a1, a2}, {a3, a4}}, {a1, a1, a2, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a3_, a1_, a4_, a1_, a2_, a2_, n_] :> 
  S2[a1, a3, n]*S2[a1, a2, a2, a4, n] + S2[a1, a3, n]*S2[a1, a2, a4, a2, n] - 
    S2[a1, a2, SP[a1, a2], SP[a3, a4], n] - S2[a1, a2, SP[a1, a4], 
     SP[a2, a3], n] + S2[a1, a3, n]*S2[a1, a4, a2, a2, n] - 
    S2[a1, a4, SP[a1, a2], SP[a2, a3], n] - S2[a1, SP[a1, a2], a2, 
     SP[a3, a4], n] - S2[a1, SP[a1, a2], a4, SP[a2, a3], n] - 
    S2[a1, SP[a1, a2], SP[a2, a3], a4, n] - S2[a1, SP[a1, a2], SP[a3, a4], 
     a2, n] - S2[a1, SP[a1, a4], a2, SP[a2, a3], n] - 
    S2[a1, SP[a1, a4], SP[a2, a3], a2, n] - S2[SP[a1, a1], a2, a2, 
     SP[a3, a4], n] - S2[SP[a1, a1], a2, a4, SP[a2, a3], n] - 
    S2[SP[a1, a1], a2, SP[a2, a3], a4, n] - S2[SP[a1, a1], a2, SP[a3, a4], 
     a2, n] - S2[SP[a1, a1], a4, a2, SP[a2, a3], n] - 
    S2[SP[a1, a1], a4, SP[a2, a3], a2, n] - S2[SP[a1, a1], SP[a2, a3], a2, 
     a4, n] - S2[SP[a1, a1], SP[a2, a3], a4, a2, n] - 
    S2[SP[a1, a1], SP[a3, a4], a2, a2, n] - 
    2*S2[a4, n]*S2[a1, a1, a2, a2, a3, n] - 
    2*S2[a4, n]*S2[a1, a1, a2, a3, a2, n] - 
    2*S2[a1, a1, a2, a3, SP[a2, a4], n] + 
    2*S2[a1, a1, a2, a4, SP[a2, a3], n] + 
    2*S2[a1, a1, a2, SP[a2, a3], a4, n] - 
    2*S2[a1, a1, a2, SP[a2, a4], a3, n] - 
    2*S2[a4, n]*S2[a1, a1, a3, a2, a2, n] - 
    2*S2[a1, a1, a3, a2, SP[a2, a4], n] - 
    2*S2[a1, a1, a3, SP[a2, a4], a2, n] + 
    2*S2[a1, a1, a4, a2, SP[a2, a3], n] + 
    2*S2[a1, a1, a4, SP[a2, a3], a2, n] + 
    2*S2[a1, a1, SP[a2, a3], a2, a4, n] + 
    2*S2[a1, a1, SP[a2, a3], a4, a2, n] - 
    2*S2[a1, a1, SP[a2, a4], a2, a3, n] - 
    2*S2[a1, a1, SP[a2, a4], a3, a2, n] - 
    S2[a4, n]*S2[a1, a2, a1, a2, a3, n] - 
    S2[a4, n]*S2[a1, a2, a1, a3, a2, n] - S2[a1, a2, a1, a3, SP[a2, a4], n] + 
    S2[a1, a2, a1, a4, SP[a2, a3], n] + S2[a1, a2, a1, SP[a2, a3], a4, n] - 
    S2[a1, a2, a1, SP[a2, a4], a3, n] - S2[a4, n]*S2[a1, a2, a2, a1, a3, n] + 
    S2[a1, a2, a4, a1, SP[a2, a3], n] + S2[a1, a2, a4, SP[a1, a2], a3, n] + 
    S2[a1, a2, SP[a1, a2], a3, a4, n] + S2[a1, a2, SP[a1, a2], a4, a3, n] - 
    S2[a1, a2, SP[a2, a4], a1, a3, n] - S2[a4, n]*S2[a1, a3, a1, a2, a2, n] - 
    S2[a1, a3, a1, a2, SP[a2, a4], n] - S2[a1, a3, a1, SP[a2, a4], a2, n] - 
    S2[a1, a3, SP[a1, a4], a2, a2, n] + S2[a3, n]*S2[a1, a4, a1, a2, a2, n] + 
    2*S2[a1, a4, a1, a2, SP[a2, a3], n] + 
    2*S2[a1, a4, a1, SP[a2, a3], a2, n] + S2[a1, a4, a2, a1, SP[a2, a3], n] + 
    S2[a1, a4, a2, SP[a1, a2], a3, n] + S2[a1, a4, SP[a1, a2], a2, a3, n] + 
    S2[a1, a4, SP[a1, a2], a3, a2, n] + S2[a1, a4, SP[a1, a3], a2, a2, n] + 
    S2[a1, SP[a1, a2], a2, a3, a4, n] + S2[a1, SP[a1, a2], a2, a4, a3, n] + 
    S2[a1, SP[a1, a2], a3, a2, a4, n] + S2[a1, SP[a1, a2], a3, a4, a2, n] + 
    S2[a1, SP[a1, a2], a4, a2, a3, n] + S2[a1, SP[a1, a2], a4, a3, a2, n] + 
    S2[a1, SP[a1, a3], a2, a2, a4, n] + S2[a1, SP[a1, a3], a2, a4, a2, n] + 
    S2[a1, SP[a1, a3], a4, a2, a2, n] - S2[a1, SP[a1, a4], a2, a2, a3, n] - 
    S2[a1, SP[a1, a4], a2, a3, a2, n] - S2[a1, SP[a1, a4], a3, a2, a2, n] - 
    S2[a1, SP[a2, a4], a1, a2, a3, n] - S2[a1, SP[a2, a4], a1, a3, a2, n] - 
    S2[a1, SP[a2, a4], a2, a1, a3, n] + S2[SP[a1, a1], a2, a2, a3, a4, n] + 
    S2[SP[a1, a1], a2, a2, a4, a3, n] + S2[SP[a1, a1], a2, a3, a2, a4, n] + 
    S2[SP[a1, a1], a2, a3, a4, a2, n] + S2[SP[a1, a1], a2, a4, a2, a3, n] + 
    S2[SP[a1, a1], a2, a4, a3, a2, n] + S2[SP[a1, a1], a3, a2, a2, a4, n] + 
    S2[SP[a1, a1], a3, a2, a4, a2, n] + S2[SP[a1, a1], a3, a4, a2, a2, n] + 
    S2[SP[a1, a1], a4, a2, a2, a3, n] + S2[SP[a1, a1], a4, a2, a3, a2, n] + 
    S2[SP[a1, a1], a4, a3, a2, a2, n] + S2[SP[a1, a3], a4, a1, a2, a2, n] - 
    2*S2[SP[a1, a4], a1, a2, a2, a3, n] - 
    2*S2[SP[a1, a4], a1, a2, a3, a2, n] - 
    2*S2[SP[a1, a4], a1, a3, a2, a2, n] - S2[SP[a1, a4], a2, a1, a2, a3, n] - 
    S2[SP[a1, a4], a2, a1, a3, a2, n] - S2[SP[a1, a4], a2, a2, a1, a3, n] - 
    S2[SP[a1, a4], a3, a1, a2, a2, n] + 2*S2[a4, a1, a1, a2, a2, a3, n] + 
    2*S2[a4, a1, a1, a2, a3, a2, n] + 2*S2[a4, a1, a1, a3, a2, a2, n] + 
    S2[a4, a1, a2, a1, a2, a3, n] + S2[a4, a1, a2, a1, a3, a2, n] + 
    S2[a4, a1, a2, a2, a1, a3, n] + S2[a4, a1, a3, a1, a2, a2, n] /; 
   MyMemberQ[{{a1, a2}, {a3, a4}}, {a1, a1, a2, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a3_, a1_, a4_, a2_, a1_, a2_, n_] :> 
  -2*S2[a1, a3, n]*S2[a1, a2, a2, a4, n] - S2[a1, a3, n]*
     S2[a1, a2, a4, a2, n] + 2*S2[a1, a2, SP[a1, a2], SP[a3, a4], n] + 
    S2[a1, a2, SP[a1, a4], SP[a2, a3], n] - S2[a1, a2, n]*
     S2[a1, a3, a4, a2, n] + S2[a1, a3, SP[a1, a4], SP[a2, a2], n] - 
    S2[a1, a2, n]*S2[a1, a4, a2, a3, n] - S2[a1, a2, n]*
     S2[a1, a4, a3, a2, n] + S2[a1, a4, SP[a1, a2], SP[a2, a3], n] + 
    S2[a1, a4, SP[a1, a3], SP[a2, a2], n] + 
    2*S2[a1, SP[a1, a2], a2, SP[a3, a4], n] + S2[a1, SP[a1, a2], a4, 
     SP[a2, a3], n] + 2*S2[a1, SP[a1, a2], SP[a2, a3], a4, n] + 
    S2[a1, SP[a1, a2], SP[a3, a4], a2, n] + S2[a1, SP[a1, a3], a4, 
     SP[a2, a2], n] + S2[a1, SP[a1, a3], SP[a2, a4], a2, n] + 
    S2[a1, SP[a1, a4], a2, SP[a2, a3], n] + S2[a1, SP[a1, a4], a3, 
     SP[a2, a2], n] + S2[a1, SP[a1, a4], SP[a2, a2], a3, n] + 
    S2[a1, SP[a1, a4], SP[a2, a3], a2, n] + S2[a1, a2, n]*
     S2[a2, a4, a1, a3, n] - S2[a2, a4, SP[a1, a1], SP[a2, a3], n] - 
    S2[a2, SP[a1, a4], a1, SP[a2, a3], n] - S2[a2, SP[a1, a4], SP[a1, a2], 
     a3, n] + 2*S2[SP[a1, a1], a2, a2, SP[a3, a4], n] + 
    S2[SP[a1, a1], a2, a4, SP[a2, a3], n] + 
    2*S2[SP[a1, a1], a2, SP[a2, a3], a4, n] + S2[SP[a1, a1], a2, SP[a3, a4], 
     a2, n] + S2[SP[a1, a1], a3, a4, SP[a2, a2], n] + 
    S2[SP[a1, a1], a3, SP[a2, a4], a2, n] + S2[SP[a1, a1], a4, a2, 
     SP[a2, a3], n] + S2[SP[a1, a1], a4, a3, SP[a2, a2], n] + 
    S2[SP[a1, a1], a4, SP[a2, a2], a3, n] + S2[SP[a1, a1], a4, SP[a2, a3], 
     a2, n] + 2*S2[SP[a1, a1], SP[a2, a3], a2, a4, n] + 
    2*S2[SP[a1, a1], SP[a2, a3], a4, a2, n] + S2[SP[a1, a1], SP[a2, a4], a2, 
     a3, n] + S2[SP[a1, a1], SP[a2, a4], a3, a2, n] - 
    S2[SP[a1, a2], a4, a1, SP[a2, a3], n] - S2[SP[a1, a2], a4, SP[a1, a2], 
     a3, n] - S2[SP[a1, a2], SP[a2, a4], a1, a3, n] + 
    4*S2[a4, n]*S2[a1, a1, a2, a2, a3, n] + 
    4*S2[a4, n]*S2[a1, a1, a2, a3, a2, n] + 
    4*S2[a1, a1, a2, a3, SP[a2, a4], n] - 
    2*S2[a1, a1, a2, a4, SP[a2, a3], n] - 
    4*S2[a1, a1, a2, SP[a2, a3], a4, n] + 
    4*S2[a1, a1, a2, SP[a2, a4], a3, n] + 
    2*S2[a1, a1, a2, SP[a3, a4], a2, n] + 
    4*S2[a4, n]*S2[a1, a1, a3, a2, a2, n] + 
    4*S2[a1, a1, a3, a2, SP[a2, a4], n] - 
    2*S2[a1, a1, a3, a4, SP[a2, a2], n] + 
    2*S2[a1, a1, a3, SP[a2, a4], a2, n] - 
    2*S2[a1, a1, a4, a2, SP[a2, a3], n] - 
    2*S2[a1, a1, a4, a3, SP[a2, a2], n] - 
    2*S2[a1, a1, a4, SP[a2, a2], a3, n] - 
    2*S2[a1, a1, a4, SP[a2, a3], a2, n] - 
    4*S2[a1, a1, SP[a2, a3], a2, a4, n] - 
    4*S2[a1, a1, SP[a2, a3], a4, a2, n] + 
    2*S2[a1, a1, SP[a2, a4], a2, a3, n] + 
    2*S2[a1, a1, SP[a2, a4], a3, a2, n] + 
    4*S2[a1, a1, SP[a3, a4], a2, a2, n] + 
    2*S2[a4, n]*S2[a1, a2, a1, a2, a3, n] + 
    2*S2[a4, n]*S2[a1, a2, a1, a3, a2, n] + 
    2*S2[a1, a2, a1, a3, SP[a2, a4], n] - S2[a1, a2, a1, a4, SP[a2, a3], n] - 
    2*S2[a1, a2, a1, SP[a2, a3], a4, n] + 
    2*S2[a1, a2, a1, SP[a2, a4], a3, n] + S2[a1, a2, a1, SP[a3, a4], a2, n] + 
    2*S2[a4, n]*S2[a1, a2, a2, a1, a3, n] - 
    S2[a2, n]*S2[a1, a2, a4, a1, a3, n] - S2[a1, a2, a4, a1, SP[a2, a3], n] - 
    S2[a1, a2, a4, SP[a1, a2], a3, n] - 2*S2[a1, a2, SP[a1, a2], a3, a4, n] - 
    2*S2[a1, a2, SP[a1, a2], a4, a3, n] + S2[a1, a2, SP[a1, a4], a2, a3, n] + 
    S2[a1, a2, SP[a1, a4], a3, a2, n] + 2*S2[a1, a2, SP[a2, a4], a1, a3, n] + 
    2*S2[a4, n]*S2[a1, a3, a1, a2, a2, n] + 
    2*S2[a1, a3, a1, a2, SP[a2, a4], n] - S2[a1, a3, a1, a4, SP[a2, a2], n] + 
    S2[a1, a3, a1, SP[a2, a4], a2, n] - S2[a1, a3, a4, a1, SP[a2, a2], n] - 
    S2[a1, a3, a4, SP[a1, a2], a2, n] - S2[a2, n]*S2[a1, a4, a1, a2, a3, n] - 
    2*S2[a1, a4, a1, a2, SP[a2, a3], n] - 
    S2[a2, n]*S2[a1, a4, a1, a3, a2, n] - 
    2*S2[a1, a4, a1, a3, SP[a2, a2], n] - 
    2*S2[a1, a4, a1, SP[a2, a2], a3, n] - 
    2*S2[a1, a4, a1, SP[a2, a3], a2, n] + 
    S2[a3, n]*S2[a1, a4, a2, a1, a2, n] - 
    S2[a2, n]*S2[a1, a4, a2, a1, a3, n] - S2[a1, a4, a2, a1, SP[a2, a3], n] - 
    S2[a1, a4, a2, SP[a1, a2], a3, n] - S2[a1, a4, a3, a1, SP[a2, a2], n] - 
    S2[a1, a4, a3, SP[a1, a2], a2, n] - 2*S2[a1, a4, SP[a1, a2], a2, a3, n] - 
    2*S2[a1, a4, SP[a1, a2], a3, a2, n] - 
    2*S2[a1, a4, SP[a1, a3], a2, a2, n] - S2[a1, a4, SP[a2, a2], a1, a3, n] + 
    S2[a1, a4, SP[a2, a3], a1, a2, n] - 2*S2[a1, SP[a1, a2], a2, a3, a4, n] - 
    2*S2[a1, SP[a1, a2], a2, a4, a3, n] - 
    2*S2[a1, SP[a1, a2], a3, a2, a4, n] - 
    2*S2[a1, SP[a1, a2], a3, a4, a2, n] - 
    2*S2[a1, SP[a1, a2], a4, a2, a3, n] - 
    2*S2[a1, SP[a1, a2], a4, a3, a2, n] - 
    2*S2[a1, SP[a1, a3], a2, a2, a4, n] - 
    2*S2[a1, SP[a1, a3], a2, a4, a2, n] - 
    2*S2[a1, SP[a1, a3], a4, a2, a2, n] + 
    2*S2[a1, SP[a1, a4], a2, a2, a3, n] + 
    2*S2[a1, SP[a1, a4], a2, a3, a2, n] + 
    2*S2[a1, SP[a1, a4], a3, a2, a2, n] + S2[a1, SP[a2, a4], a1, a2, a3, n] + 
    S2[a1, SP[a2, a4], a1, a3, a2, n] + S2[a1, SP[a2, a4], a2, a1, a3, n] + 
    2*S2[a1, SP[a3, a4], a1, a2, a2, n] + S2[a1, SP[a3, a4], a2, a1, a2, n] + 
    S2[a2, a1, a4, a1, SP[a2, a3], n] + S2[a2, a1, a4, SP[a1, a2], a3, n] + 
    S2[a2, a1, SP[a2, a4], a1, a3, n] + 2*S2[a2, a4, a1, a1, SP[a2, a3], n] + 
    S2[a2, a4, a1, SP[a1, a2], a3, n] + S2[a2, a4, a1, SP[a1, a3], a2, n] + 
    S2[a2, a4, SP[a1, a1], a2, a3, n] + S2[a2, a4, SP[a1, a1], a3, a2, n] + 
    S2[a2, SP[a1, a4], a1, a2, a3, n] + S2[a2, SP[a1, a4], a1, a3, a2, n] + 
    S2[a2, SP[a1, a4], a2, a1, a3, n] - 2*S2[a2, n]*
     S2[a4, a1, a1, a2, a3, n] - 2*S2[a4, a1, a1, a2, SP[a2, a3], n] - 
    2*S2[a2, n]*S2[a4, a1, a1, a3, a2, n] - 
    2*S2[a4, a1, a1, a3, SP[a2, a2], n] - 
    2*S2[a4, a1, a1, SP[a2, a2], a3, n] - 
    2*S2[a4, a1, a1, SP[a2, a3], a2, n] - 
    S2[a2, n]*S2[a4, a1, a2, a1, a3, n] - S2[a4, a1, a2, a1, SP[a2, a3], n] - 
    S2[a4, a1, a2, SP[a1, a2], a3, n] - S2[a2, n]*S2[a4, a1, a3, a1, a2, n] - 
    S2[a4, a1, a3, a1, SP[a2, a2], n] - S2[a4, a1, a3, SP[a1, a2], a2, n] - 
    2*S2[a4, a1, SP[a1, a2], a2, a3, n] - 
    2*S2[a4, a1, SP[a1, a2], a3, a2, n] - S2[a4, a1, SP[a2, a2], a1, a3, n] - 
    S2[a4, a1, SP[a2, a3], a1, a2, n] - 2*S2[a4, SP[a1, a2], a1, a2, a3, n] - 
    2*S2[a4, SP[a1, a2], a1, a3, a2, n] - S2[a4, SP[a1, a2], a2, a1, a3, n] - 
    S2[a4, SP[a1, a2], a3, a1, a2, n] - 2*S2[SP[a1, a1], a2, a2, a3, a4, n] - 
    2*S2[SP[a1, a1], a2, a2, a4, a3, n] - 
    2*S2[SP[a1, a1], a2, a3, a2, a4, n] - 
    2*S2[SP[a1, a1], a2, a3, a4, a2, n] - 
    2*S2[SP[a1, a1], a2, a4, a2, a3, n] - 
    2*S2[SP[a1, a1], a2, a4, a3, a2, n] - 
    2*S2[SP[a1, a1], a3, a2, a2, a4, n] - 
    2*S2[SP[a1, a1], a3, a2, a4, a2, n] - 
    2*S2[SP[a1, a1], a3, a4, a2, a2, n] - 
    2*S2[SP[a1, a1], a4, a2, a2, a3, n] - 
    2*S2[SP[a1, a1], a4, a2, a3, a2, n] - 
    2*S2[SP[a1, a1], a4, a3, a2, a2, n] + S2[SP[a1, a3], a4, a2, a1, a2, n] + 
    4*S2[SP[a1, a4], a1, a2, a2, a3, n] + 
    4*S2[SP[a1, a4], a1, a2, a3, a2, n] + 
    4*S2[SP[a1, a4], a1, a3, a2, a2, n] + 
    2*S2[SP[a1, a4], a2, a1, a2, a3, n] + 
    2*S2[SP[a1, a4], a2, a1, a3, a2, n] + 
    2*S2[SP[a1, a4], a2, a2, a1, a3, n] + 
    2*S2[SP[a1, a4], a3, a1, a2, a2, n] - 
    2*S2[SP[a2, a4], a1, a1, a2, a3, n] - 
    2*S2[SP[a2, a4], a1, a1, a3, a2, n] - S2[SP[a2, a4], a1, a2, a1, a3, n] - 
    S2[SP[a2, a4], a1, a3, a1, a2, n] + S2[a4, a1, a2, a1, a2, a3, n] + 
    S2[a4, a1, a2, a1, a3, a2, n] + S2[a4, a1, a2, a3, a1, a2, n] + 
    S2[a4, a1, a3, a2, a1, a2, n] + 2*S2[a4, a2, a1, a1, a2, a3, n] + 
    2*S2[a4, a2, a1, a1, a3, a2, n] + S2[a4, a2, a1, a2, a1, a3, n] + 
    S2[a4, a2, a1, a3, a1, a2, n] /; MyMemberQ[{{a1, a2}, {a3, a4}}, 
     {a1, a1, a2, a2, a3, a4}] && a1 != a2 != a3 != a4, 
 S2[a3_, a1_, a4_, a2_, a2_, a1_, n_] :> 
  S2[a1, a3, n]*S2[a1, a2, a2, a4, n] - S2[a1, a2, SP[a1, a2], SP[a3, a4], 
     n] + S2[a1, a2, n]*S2[a1, a3, a4, a2, n] - S2[a1, a3, SP[a1, a4], 
     SP[a2, a2], n] + S2[a1, a2, n]*S2[a1, a4, a2, a3, n] + 
    S2[a1, a2, n]*S2[a1, a4, a3, a2, n] - S2[a1, a4, SP[a1, a2], SP[a2, a3], 
     n] - S2[a1, a4, SP[a1, a3], SP[a2, a2], n] - S2[a1, SP[a1, a2], a2, 
     SP[a3, a4], n] - S2[a1, SP[a1, a2], SP[a2, a3], a4, n] - 
    S2[a1, SP[a1, a3], a4, SP[a2, a2], n] - S2[a1, SP[a1, a3], SP[a2, a4], 
     a2, n] - S2[a1, SP[a1, a4], a2, SP[a2, a3], n] - 
    S2[a1, SP[a1, a4], a3, SP[a2, a2], n] - S2[a1, SP[a1, a4], SP[a2, a2], 
     a3, n] - S2[a1, SP[a1, a4], SP[a2, a3], a2, n] - 
    S2[a1, a2, n]*S2[a2, a4, a1, a3, n] + S2[a2, a4, SP[a1, a1], SP[a2, a3], 
     n] + S2[a2, SP[a1, a4], a1, SP[a2, a3], n] + 
    S2[a2, SP[a1, a4], SP[a1, a2], a3, n] - S2[SP[a1, a1], a2, a2, 
     SP[a3, a4], n] - S2[SP[a1, a1], a2, SP[a2, a3], a4, n] - 
    S2[SP[a1, a1], a3, a4, SP[a2, a2], n] - S2[SP[a1, a1], a3, SP[a2, a4], 
     a2, n] - S2[SP[a1, a1], a4, a2, SP[a2, a3], n] - 
    S2[SP[a1, a1], a4, a3, SP[a2, a2], n] - S2[SP[a1, a1], a4, SP[a2, a2], 
     a3, n] - S2[SP[a1, a1], a4, SP[a2, a3], a2, n] - 
    S2[SP[a1, a1], SP[a2, a3], a2, a4, n] - S2[SP[a1, a1], SP[a2, a3], a4, 
     a2, n] - S2[SP[a1, a1], SP[a2, a4], a2, a3, n] - 
    S2[SP[a1, a1], SP[a2, a4], a3, a2, n] + S2[SP[a1, a2], a4, a1, 
     SP[a2, a3], n] + S2[SP[a1, a2], a4, SP[a1, a2], a3, n] + 
    S2[SP[a1, a2], SP[a2, a4], a1, a3, n] - 
    2*S2[a4, n]*S2[a1, a1, a2, a2, a3, n] - 
    2*S2[a4, n]*S2[a1, a1, a2, a3, a2, n] - 
    2*S2[a1, a1, a2, a3, SP[a2, a4], n] + 
    2*S2[a1, a1, a2, SP[a2, a3], a4, n] - 
    2*S2[a1, a1, a2, SP[a2, a4], a3, n] - 
    2*S2[a1, a1, a2, SP[a3, a4], a2, n] - 
    2*S2[a4, n]*S2[a1, a1, a3, a2, a2, n] - 
    2*S2[a1, a1, a3, a2, SP[a2, a4], n] + 
    2*S2[a1, a1, a3, a4, SP[a2, a2], n] - 
    2*S2[a3, n]*S2[a1, a1, a4, a2, a2, n] + 
    2*S2[a1, a1, a4, a3, SP[a2, a2], n] + 
    2*S2[a1, a1, a4, SP[a2, a2], a3, n] + 
    2*S2[a1, a1, SP[a2, a3], a2, a4, n] + 
    2*S2[a1, a1, SP[a2, a3], a4, a2, n] - 
    4*S2[a1, a1, SP[a3, a4], a2, a2, n] - 
    S2[a4, n]*S2[a1, a2, a1, a2, a3, n] - 
    S2[a4, n]*S2[a1, a2, a1, a3, a2, n] - S2[a1, a2, a1, a3, SP[a2, a4], n] + 
    S2[a1, a2, a1, SP[a2, a3], a4, n] - S2[a1, a2, a1, SP[a2, a4], a3, n] - 
    S2[a1, a2, a1, SP[a3, a4], a2, n] - S2[a4, n]*S2[a1, a2, a2, a1, a3, n] + 
    S2[a2, n]*S2[a1, a2, a4, a1, a3, n] + S2[a1, a2, SP[a1, a2], a3, a4, n] + 
    S2[a1, a2, SP[a1, a2], a4, a3, n] - S2[a1, a2, SP[a1, a4], a2, a3, n] - 
    S2[a1, a2, SP[a1, a4], a3, a2, n] - S2[a1, a2, SP[a2, a4], a1, a3, n] - 
    S2[a4, n]*S2[a1, a3, a1, a2, a2, n] - S2[a1, a3, a1, a2, SP[a2, a4], n] + 
    S2[a1, a3, a1, a4, SP[a2, a2], n] + S2[a1, a3, a4, a1, SP[a2, a2], n] + 
    S2[a1, a3, a4, SP[a1, a2], a2, n] + S2[a1, a3, SP[a1, a4], a2, a2, n] - 
    S2[a3, n]*S2[a1, a4, a1, a2, a2, n] + 
    S2[a2, n]*S2[a1, a4, a1, a2, a3, n] + S2[a1, a4, a1, a2, SP[a2, a3], n] + 
    S2[a2, n]*S2[a1, a4, a1, a3, a2, n] + 
    2*S2[a1, a4, a1, a3, SP[a2, a2], n] + 
    2*S2[a1, a4, a1, SP[a2, a2], a3, n] + S2[a1, a4, a1, SP[a2, a3], a2, n] - 
    S2[a3, n]*S2[a1, a4, a2, a1, a2, n] + 
    S2[a2, n]*S2[a1, a4, a2, a1, a3, n] + S2[a1, a4, a2, a1, SP[a2, a3], n] + 
    S2[a1, a4, a2, SP[a1, a2], a3, n] + S2[a1, a4, a3, a1, SP[a2, a2], n] + 
    S2[a1, a4, a3, SP[a1, a2], a2, n] + 2*S2[a1, a4, SP[a1, a2], a2, a3, n] + 
    2*S2[a1, a4, SP[a1, a2], a3, a2, n] + S2[a1, a4, SP[a1, a3], a2, a2, n] + 
    S2[a1, a4, SP[a2, a2], a1, a3, n] - S2[a1, a4, SP[a2, a3], a1, a2, n] + 
    S2[a1, SP[a1, a2], a2, a3, a4, n] + S2[a1, SP[a1, a2], a2, a4, a3, n] + 
    S2[a1, SP[a1, a2], a3, a2, a4, n] + S2[a1, SP[a1, a2], a3, a4, a2, n] + 
    S2[a1, SP[a1, a2], a4, a2, a3, n] + S2[a1, SP[a1, a2], a4, a3, a2, n] + 
    S2[a1, SP[a1, a3], a2, a2, a4, n] + S2[a1, SP[a1, a3], a2, a4, a2, n] - 
    2*S2[a1, SP[a3, a4], a1, a2, a2, n] - S2[a1, SP[a3, a4], a2, a1, a2, n] - 
    S2[a2, a1, a4, a1, SP[a2, a3], n] - S2[a2, a1, a4, SP[a1, a2], a3, n] - 
    S2[a2, a1, SP[a2, a4], a1, a3, n] - 2*S2[a2, a4, a1, a1, SP[a2, a3], n] - 
    S2[a2, a4, a1, SP[a1, a2], a3, n] - S2[a2, a4, a1, SP[a1, a3], a2, n] - 
    S2[a2, a4, SP[a1, a1], a2, a3, n] - S2[a2, a4, SP[a1, a1], a3, a2, n] - 
    S2[a2, SP[a1, a4], a1, a2, a3, n] - S2[a2, SP[a1, a4], a1, a3, a2, n] - 
    S2[a2, SP[a1, a4], a2, a1, a3, n] + S2[a1, n]*S2[a3, a1, a4, a2, a2, n] + 
    S2[a3, a1, a4, a2, SP[a1, a2], n] + S2[a3, a1, a4, SP[a1, a2], a2, n] + 
    S2[a3, a1, SP[a1, a4], a2, a2, n] + S2[a3, SP[a1, a1], a4, a2, a2, n] + 
    2*S2[a2, n]*S2[a4, a1, a1, a2, a3, n] + 
    2*S2[a4, a1, a1, a2, SP[a2, a3], n] + 
    2*S2[a2, n]*S2[a4, a1, a1, a3, a2, n] + 
    2*S2[a4, a1, a1, a3, SP[a2, a2], n] + 
    2*S2[a4, a1, a1, SP[a2, a2], a3, n] + 
    2*S2[a4, a1, a1, SP[a2, a3], a2, n] + 
    S2[a2, n]*S2[a4, a1, a2, a1, a3, n] + S2[a4, a1, a2, a1, SP[a2, a3], n] - 
    S2[a1, n]*S2[a4, a1, a2, a2, a3, n] - S2[a4, a1, a2, a2, SP[a1, a3], n] - 
    S2[a1, n]*S2[a4, a1, a2, a3, a2, n] - S2[a4, a1, a2, a3, SP[a1, a2], n] - 
    S2[a4, a1, a2, SP[a1, a3], a2, n] + S2[a2, n]*S2[a4, a1, a3, a1, a2, n] + 
    S2[a4, a1, a3, a1, SP[a2, a2], n] - S2[a1, n]*S2[a4, a1, a3, a2, a2, n] - 
    S2[a4, a1, a3, a2, SP[a1, a2], n] + S2[a4, a1, SP[a1, a2], a2, a3, n] + 
    S2[a4, a1, SP[a1, a2], a3, a2, n] - S2[a4, a1, SP[a1, a3], a2, a2, n] + 
    S2[a4, a1, SP[a2, a2], a1, a3, n] + S2[a4, a1, SP[a2, a3], a1, a2, n] - 
    S2[a1, n]*S2[a4, a2, a1, a2, a3, n] - S2[a4, a2, a1, a2, SP[a1, a3], n] - 
    S2[a1, n]*S2[a4, a2, a1, a3, a2, n] - S2[a4, a2, a1, a3, SP[a1, a2], n] - 
    S2[a4, a2, a1, SP[a1, a2], a3, n] - S2[a4, a2, a1, SP[a1, a3], a2, n] - 
    S2[a1, n]*S2[a4, a2, a2, a1, a3, n] - S2[a4, a2, a2, a1, SP[a1, a3], n] - 
    S2[a4, a2, a2, SP[a1, a1], a3, n] - S2[a4, a2, SP[a1, a1], a2, a3, n] - 
    S2[a4, a2, SP[a1, a1], a3, a2, n] - S2[a4, a2, SP[a1, a2], a1, a3, n] - 
    S2[a4, SP[a1, a1], a2, a2, a3, n] - S2[a4, SP[a1, a1], a2, a3, a2, n] - 
    S2[a4, SP[a1, a1], a3, a2, a2, n] + S2[a4, SP[a1, a2], a1, a2, a3, n] + 
    S2[a4, SP[a1, a2], a1, a3, a2, n] + S2[a4, SP[a1, a2], a3, a1, a2, n] + 
    S2[SP[a1, a1], a2, a2, a3, a4, n] + S2[SP[a1, a1], a2, a2, a4, a3, n] + 
    S2[SP[a1, a1], a2, a3, a2, a4, n] + S2[SP[a1, a1], a2, a3, a4, a2, n] + 
    S2[SP[a1, a1], a2, a4, a2, a3, n] + S2[SP[a1, a1], a2, a4, a3, a2, n] + 
    S2[SP[a1, a1], a3, a2, a2, a4, n] + S2[SP[a1, a1], a3, a2, a4, a2, n] + 
    2*S2[SP[a1, a1], a3, a4, a2, a2, n] + 
    2*S2[SP[a1, a1], a4, a2, a2, a3, n] + 
    2*S2[SP[a1, a1], a4, a2, a3, a2, n] + 
    2*S2[SP[a1, a1], a4, a3, a2, a2, n] - S2[SP[a1, a3], a1, a4, a2, a2, n] - 
    S2[SP[a1, a3], a4, a1, a2, a2, n] - S2[SP[a1, a3], a4, a2, a1, a2, n] - 
    3*S2[SP[a1, a4], a1, a2, a2, a3, n] - 
    3*S2[SP[a1, a4], a1, a2, a3, a2, n] - 
    3*S2[SP[a1, a4], a1, a3, a2, a2, n] - 
    2*S2[SP[a1, a4], a2, a1, a2, a3, n] - 
    2*S2[SP[a1, a4], a2, a1, a3, a2, n] - 
    2*S2[SP[a1, a4], a2, a2, a1, a3, n] - S2[SP[a1, a4], a3, a1, a2, a2, n] + 
    2*S2[SP[a2, a4], a1, a1, a2, a3, n] + 
    2*S2[SP[a2, a4], a1, a1, a3, a2, n] + S2[SP[a2, a4], a1, a2, a1, a3, n] + 
    S2[SP[a2, a4], a1, a3, a1, a2, n] + S2[a4, a1, a2, a2, a1, a3, n] + 
    S2[a4, a1, a2, a2, a3, a1, n] + S2[a4, a1, a2, a3, a2, a1, n] + 
    S2[a4, a1, a3, a2, a2, a1, n] + S2[a4, a2, a1, a2, a1, a3, n] + 
    S2[a4, a2, a1, a2, a3, a1, n] + S2[a4, a2, a1, a3, a2, a1, n] + 
    2*S2[a4, a2, a2, a1, a1, a3, n] + S2[a4, a2, a2, a1, a3, a1, n] /; 
   MyMemberQ[{{a1, a2}, {a3, a4}}, {a1, a1, a2, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a3_, a2_, a1_, a1_, a2_, a4_, n_] :> 
  S2[a1, a2, a3, n]*S2[a1, a2, a4, n] + S2[SP[a1, a1], SP[a2, a2], 
     SP[a3, a4], n] - S2[a2, a4, n]*S2[a1, a1, a2, a3, n] - 
    S2[a2, a3, n]*S2[a1, a1, a2, a4, n] - 
    2*S2[SP[a1, a1], a2, a2, SP[a3, a4], n] - S2[SP[a1, a1], a2, SP[a2, a3], 
     a4, n] - S2[SP[a1, a1], a2, SP[a2, a4], a3, n] - 
    S2[SP[a1, a1], SP[a2, a2], a3, a4, n] - S2[SP[a1, a1], SP[a2, a2], a4, 
     a3, n] + 2*S2[SP[a1, a2], a1, a2, SP[a3, a4], n] + 
    S2[SP[a1, a2], a1, SP[a2, a3], a4, n] + S2[SP[a1, a2], a1, SP[a2, a4], 
     a3, n] + S2[SP[a1, a2], SP[a1, a3], a2, a4, n] + 
    S2[SP[a1, a2], SP[a1, a4], a2, a3, n] - 
    2*S2[a4, n]*S2[a1, a1, a2, a2, a3, n] - 
    2*S2[a3, n]*S2[a1, a1, a2, a2, a4, n] - 
    4*S2[a1, a1, a2, a2, SP[a3, a4], n] - 
    S2[a4, n]*S2[a1, a1, a2, a3, a2, n] + 
    2*S2[a2, n]*S2[a1, a1, a2, a3, a4, n] + S2[a1, a1, a2, a3, SP[a2, a4], 
     n] - S2[a3, n]*S2[a1, a1, a2, a4, a2, n] + 
    2*S2[a2, n]*S2[a1, a1, a2, a4, a3, n] + S2[a1, a1, a2, a4, SP[a2, a3], 
     n] - 2*S2[a1, a1, a2, SP[a3, a4], a2, n] + 
    S2[a2, n]*S2[a1, a1, a3, a2, a4, n] + S2[a1, a1, a3, a2, SP[a2, a4], n] + 
    S2[a1, a1, a3, SP[a2, a2], a4, n] + S2[a2, n]*S2[a1, a1, a4, a2, a3, n] + 
    S2[a1, a1, a4, a2, SP[a2, a3], n] + S2[a1, a1, a4, SP[a2, a2], a3, n] + 
    2*S2[a1, a1, SP[a2, a2], a3, a4, n] + 
    2*S2[a1, a1, SP[a2, a2], a4, a3, n] - S2[a1, a1, SP[a2, a3], a2, a4, n] - 
    S2[a1, a1, SP[a2, a3], a4, a2, n] - S2[a1, a1, SP[a2, a4], a2, a3, n] - 
    S2[a1, a1, SP[a2, a4], a3, a2, n] - S2[a4, n]*S2[a1, a2, a1, a2, a3, n] - 
    S2[a3, n]*S2[a1, a2, a1, a2, a4, n] - 
    2*S2[a1, a2, a1, a2, SP[a3, a4], n] - S2[a1, a2, a1, SP[a2, a3], a4, n] - 
    S2[a1, a2, a1, SP[a2, a4], a3, n] - S2[a1, a2, SP[a1, a3], a2, a4, n] - 
    S2[a1, a2, SP[a1, a4], a2, a3, n] + S2[a2, n]*S2[a1, a3, a1, a2, a4, n] + 
    S2[a1, a3, a1, a2, SP[a2, a4], n] + S2[a1, a3, a1, SP[a2, a2], a4, n] + 
    S2[a1, a3, SP[a1, a2], a2, a4, n] + S2[a2, n]*S2[a1, a4, a1, a2, a3, n] + 
    S2[a1, a4, a1, a2, SP[a2, a3], n] + S2[a1, a4, a1, SP[a2, a2], a3, n] + 
    S2[a1, a4, SP[a1, a2], a2, a3, n] + 2*S2[a1, SP[a1, a2], a2, a3, a4, n] + 
    2*S2[a1, SP[a1, a2], a2, a4, a3, n] + S2[a1, SP[a1, a2], a3, a2, a4, n] + 
    S2[a1, SP[a1, a2], a4, a2, a3, n] - 2*S2[a1, SP[a1, a3], a2, a2, a4, n] - 
    S2[a1, SP[a1, a3], a2, a4, a2, n] - 2*S2[a1, SP[a1, a4], a2, a2, a3, n] - 
    S2[a1, SP[a1, a4], a2, a3, a2, n] - 2*S2[a2, a1, a1, a2, SP[a3, a4], n] - 
    S2[a2, a1, a1, SP[a2, a3], a4, n] - S2[a2, a1, a1, SP[a2, a4], a3, n] - 
    S2[a2, a1, SP[a1, a3], a2, a4, n] - S2[a2, a1, SP[a1, a4], a2, a3, n] - 
    S2[a2, SP[a1, a3], a1, a2, a4, n] - S2[a2, SP[a1, a4], a1, a2, a3, n] + 
    S2[a2, n]*S2[a3, a1, a1, a2, a4, n] + S2[a3, a1, a1, a2, SP[a2, a4], n] + 
    S2[a3, a1, a1, SP[a2, a2], a4, n] + S2[a3, a1, SP[a1, a2], a2, a4, n] + 
    S2[a3, SP[a1, a2], a1, a2, a4, n] + S2[a2, n]*S2[a4, a1, a1, a2, a3, n] + 
    S2[a4, a1, a1, a2, SP[a2, a3], n] + S2[a4, a1, a1, SP[a2, a2], a3, n] + 
    S2[a4, a1, SP[a1, a2], a2, a3, n] + S2[a4, SP[a1, a2], a1, a2, a3, n] + 
    2*S2[SP[a1, a1], a2, a2, a3, a4, n] + 
    2*S2[SP[a1, a1], a2, a2, a4, a3, n] + S2[SP[a1, a1], a2, a3, a2, a4, n] + 
    S2[SP[a1, a1], a2, a4, a2, a3, n] - 2*S2[SP[a1, a3], a1, a2, a2, a4, n] - 
    S2[SP[a1, a3], a1, a2, a4, a2, n] - S2[SP[a1, a3], a2, a1, a2, a4, n] - 
    2*S2[SP[a1, a4], a1, a2, a2, a3, n] - S2[SP[a1, a4], a1, a2, a3, a2, n] - 
    S2[SP[a1, a4], a2, a1, a2, a3, n] + S2[SP[a2, a3], a1, a1, a2, a4, n] + 
    S2[SP[a2, a4], a1, a1, a2, a3, n] - S2[a4, a2, a1, a1, a2, a3, n] /; 
   MyMemberQ[{{a1, a2}, {a3, a4}}, {a1, a1, a2, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a3_, a2_, a1_, a1_, a4_, a2_, n_] :> 
  S2[a1, a2, a3, n]*S2[a1, a4, a2, n] + S2[SP[a1, a1], SP[a2, a4], 
     SP[a2, a3], n] + S2[a2, a4, n]*S2[a1, a1, a2, a3, n] - 
    S2[a2, a3, n]*S2[a1, a1, a4, a2, n] - S2[a1, a1, SP[a2, a2], SP[a3, a4], 
     n] - S2[a1, a1, SP[a2, a4], SP[a2, a3], n] - S2[a1, SP[a1, a2], a2, 
     SP[a3, a4], n] - S2[a1, SP[a1, a2], SP[a2, a4], a3, n] - 
    S2[a1, SP[a1, a4], a2, SP[a2, a3], n] - S2[a1, SP[a1, a4], SP[a2, a2], 
     a3, n] - S2[SP[a1, a1], a2, a4, SP[a2, a3], n] - 
    S2[SP[a1, a1], a2, SP[a3, a4], a2, n] - S2[SP[a1, a1], a4, a2, 
     SP[a2, a3], n] - S2[SP[a1, a1], a4, SP[a2, a2], a3, n] - 
    S2[SP[a1, a1], SP[a2, a4], a2, a3, n] - S2[SP[a1, a1], SP[a2, a4], a3, 
     a2, n] - S2[SP[a1, a2], a1, a2, SP[a3, a4], n] + 
    S2[SP[a1, a2], a1, a4, SP[a2, a3], n] - S2[SP[a1, a2], a1, SP[a2, a4], 
     a3, n] + S2[SP[a1, a2], a1, SP[a3, a4], a2, n] + 
    S2[SP[a1, a2], SP[a1, a3], a4, a2, n] - S2[SP[a1, a2], SP[a1, a4], a2, 
     a3, n] + 2*S2[a1, a1, a2, a2, SP[a3, a4], n] - 
    S2[a2, n]*S2[a1, a1, a2, a3, a4, n] - S2[a1, a1, a2, a3, SP[a2, a4], n] - 
    S2[a3, n]*S2[a1, a1, a2, a4, a2, n] - 
    S2[a2, n]*S2[a1, a1, a2, a4, a3, n] - S2[a1, a1, a2, a4, SP[a2, a3], n] + 
    S2[a2, n]*S2[a1, a1, a3, a4, a2, n] + S2[a1, a1, a3, a4, SP[a2, a2], n] + 
    S2[a1, a1, a3, SP[a2, a4], a2, n] - 2*S2[a3, n]*
     S2[a1, a1, a4, a2, a2, n] - S2[a1, a1, a4, a2, SP[a2, a3], n] + 
    S2[a2, n]*S2[a1, a1, a4, a3, a2, n] + S2[a1, a1, a4, a3, SP[a2, a2], n] + 
    S2[a1, a1, a4, SP[a2, a2], a3, n] - S2[a1, a1, a4, SP[a2, a3], a2, n] + 
    S2[a1, a1, SP[a2, a4], a2, a3, n] + 2*S2[a1, a1, SP[a2, a4], a3, a2, n] - 
    2*S2[a1, a1, SP[a3, a4], a2, a2, n] + S2[a1, a2, a1, a2, SP[a3, a4], n] - 
    S2[a3, n]*S2[a1, a2, a1, a4, a2, n] - S2[a1, a2, a1, a4, SP[a2, a3], n] + 
    S2[a1, a2, a1, SP[a2, a4], a3, n] - S2[a1, a2, a1, SP[a3, a4], a2, n] - 
    S2[a1, a2, SP[a1, a3], a4, a2, n] + S2[a1, a2, SP[a1, a4], a2, a3, n] + 
    S2[a2, n]*S2[a1, a3, a1, a4, a2, n] + S2[a1, a3, a1, a4, SP[a2, a2], n] + 
    S2[a1, a3, a1, SP[a2, a4], a2, n] + S2[a1, a3, SP[a1, a2], a4, a2, n] - 
    S2[a2, n]*S2[a1, a4, a1, a2, a3, n] + S2[a1, SP[a1, a2], a3, a4, a2, n] + 
    S2[a1, SP[a1, a2], a4, a2, a3, n] + S2[a1, SP[a1, a2], a4, a3, a2, n] - 
    S2[a1, SP[a1, a3], a2, a4, a2, n] - 2*S2[a1, SP[a1, a3], a4, a2, a2, n] + 
    2*S2[a1, SP[a1, a4], a2, a2, a3, n] + S2[a1, SP[a1, a4], a2, a3, a2, n] - 
    S2[a1, SP[a2, a4], a1, a2, a3, n] + S2[a2, a1, a1, a2, SP[a3, a4], n] - 
    S2[a2, a1, a1, a4, SP[a2, a3], n] + S2[a2, a1, a1, SP[a2, a4], a3, n] - 
    S2[a2, a1, a1, SP[a3, a4], a2, n] - S2[a2, a1, SP[a1, a3], a4, a2, n] + 
    S2[a2, a1, SP[a1, a4], a2, a3, n] - S2[a2, SP[a1, a3], a1, a4, a2, n] + 
    S2[a2, SP[a1, a4], a1, a2, a3, n] + S2[a2, n]*S2[a3, a1, a1, a4, a2, n] + 
    S2[a3, a1, a1, a4, SP[a2, a2], n] + S2[a3, a1, a1, SP[a2, a4], a2, n] + 
    S2[a3, a1, SP[a1, a2], a4, a2, n] + S2[a3, SP[a1, a2], a1, a4, a2, n] - 
    S2[a2, n]*S2[a4, a1, a1, a2, a3, n] - S2[a4, a1, a1, a2, SP[a2, a3], n] - 
    S2[a4, a1, a1, SP[a2, a2], a3, n] - S2[a4, a1, SP[a1, a2], a2, a3, n] - 
    S2[a4, SP[a1, a2], a1, a2, a3, n] + S2[SP[a1, a1], a2, a3, a4, a2, n] + 
    S2[SP[a1, a1], a2, a4, a2, a3, n] + S2[SP[a1, a1], a2, a4, a3, a2, n] + 
    2*S2[SP[a1, a1], a4, a2, a2, a3, n] + S2[SP[a1, a1], a4, a2, a3, a2, n] - 
    S2[SP[a1, a3], a1, a2, a4, a2, n] - 2*S2[SP[a1, a3], a1, a4, a2, a2, n] - 
    S2[SP[a1, a3], a2, a1, a4, a2, n] + S2[SP[a2, a3], a1, a1, a4, a2, n] - 
    S2[SP[a2, a4], a1, a1, a2, a3, n] + 2*S2[a4, a1, a1, a2, a2, a3, n] + 
    S2[a4, a1, a1, a2, a3, a2, n] + S2[a4, a1, a2, a1, a2, a3, n] + 
    S2[a4, a2, a1, a1, a2, a3, n] /; MyMemberQ[{{a1, a2}, {a3, a4}}, 
     {a1, a1, a2, a2, a3, a4}] && a1 != a2 != a3 != a4, 
 S2[a3_, a2_, a1_, a2_, a1_, a4_, n_] :> 
  -(S2[a1, a2, a3, n]*S2[a1, a2, a4, n]) - S2[a1, a2, a3, n]*
     S2[a1, a4, a2, n] - S2[SP[a1, a1], SP[a2, a2], SP[a3, a4], n] - 
    S2[SP[a1, a1], SP[a2, a4], SP[a2, a3], n] + 
    2*S2[a1, a1, SP[a2, a2], SP[a3, a4], n] + 
    2*S2[a1, a1, SP[a2, a4], SP[a2, a3], n] - 
    S2[a2, a3, n]*S2[a1, a2, a1, a4, n] + 2*S2[a1, a4, n]*
     S2[a1, a2, a2, a3, n] + S2[a1, a4, n]*S2[a1, a2, a3, a2, n] - 
    S2[a1, a2, SP[a1, a2], SP[a3, a4], n] - S2[a1, a2, SP[a1, a3], 
     SP[a2, a4], n] - S2[a1, SP[a1, a2], a3, SP[a2, a4], n] + 
    S2[a1, SP[a1, a2], a4, SP[a2, a3], n] + S2[a1, SP[a1, a2], SP[a2, a3], 
     a4, n] - S2[a1, SP[a1, a2], SP[a2, a4], a3, n] + 
    S2[a1, SP[a1, a4], a2, SP[a2, a3], n] + S2[a1, SP[a1, a4], SP[a2, a2], 
     a3, n] + S2[a1, SP[a2, a2], a1, SP[a3, a4], n] + 
    S2[a1, SP[a2, a2], SP[a1, a3], a4, n] - S2[SP[a1, a1], a2, a3, 
     SP[a2, a4], n] + S2[SP[a1, a1], a2, a4, SP[a2, a3], n] + 
    S2[SP[a1, a1], a2, SP[a2, a3], a4, n] - S2[SP[a1, a1], a2, SP[a2, a4], 
     a3, n] + S2[SP[a1, a1], a4, a2, SP[a2, a3], n] + 
    S2[SP[a1, a1], a4, SP[a2, a2], a3, n] + S2[SP[a1, a1], SP[a2, a2], a3, 
     a4, n] + S2[SP[a1, a1], SP[a2, a2], a4, a3, n] - 
    S2[SP[a1, a1], SP[a2, a4], a2, a3, n] + S2[SP[a1, a2], a2, a1, 
     SP[a3, a4], n] + S2[SP[a1, a2], a2, SP[a1, a3], a4, n] + 
    S2[SP[a1, a2], SP[a2, a3], a1, a4, n] + 
    2*S2[a1, a1, a2, a3, SP[a2, a4], n] - 
    2*S2[a1, a1, a2, a4, SP[a2, a3], n] - 
    2*S2[a1, a1, a2, SP[a2, a3], a4, n] + 
    2*S2[a1, a1, a2, SP[a2, a4], a3, n] - 
    2*S2[a1, a1, a4, a2, SP[a2, a3], n] - 
    2*S2[a1, a1, a4, SP[a2, a2], a3, n] - 
    2*S2[a1, a1, SP[a2, a2], a3, a4, n] - 
    2*S2[a1, a1, SP[a2, a2], a4, a3, n] + 
    2*S2[a1, a1, SP[a2, a4], a2, a3, n] + 
    S2[a4, n]*S2[a1, a2, a1, a2, a3, n] - 
    S2[a3, n]*S2[a1, a2, a1, a2, a4, n] - S2[a1, a2, a1, a2, SP[a3, a4], n] + 
    S2[a2, n]*S2[a1, a2, a1, a3, a4, n] + 
    2*S2[a1, a2, a1, a3, SP[a2, a4], n] - 
    S2[a3, n]*S2[a1, a2, a1, a4, a2, n] + 
    S2[a2, n]*S2[a1, a2, a1, a4, a3, n] - S2[a1, a2, a1, a4, SP[a2, a3], n] - 
    S2[a1, a2, a1, SP[a2, a3], a4, n] + 2*S2[a1, a2, a1, SP[a2, a4], a3, n] - 
    S2[a1, a2, a1, SP[a3, a4], a2, n] - 2*S2[a3, n]*
     S2[a1, a2, a2, a1, a4, n] - 2*S2[a1, a2, a2, a1, SP[a3, a4], n] - 
    2*S2[a1, a2, a2, SP[a1, a3], a4, n] + 
    S2[a2, n]*S2[a1, a2, a3, a1, a4, n] + 
    2*S2[a1, a2, a3, a1, SP[a2, a4], n] + 
    2*S2[a1, a2, a3, SP[a1, a2], a4, n] + 
    2*S2[a1, a2, SP[a1, a2], a3, a4, n] + 
    2*S2[a1, a2, SP[a1, a2], a4, a3, n] - S2[a1, a2, SP[a1, a3], a2, a4, n] - 
    S2[a1, a2, SP[a1, a3], a4, a2, n] - 2*S2[a1, a2, SP[a2, a3], a1, a4, n] + 
    S2[a2, n]*S2[a1, a3, a2, a1, a4, n] + S2[a1, a3, a2, a1, SP[a2, a4], n] + 
    S2[a1, a3, a2, SP[a1, a2], a4, n] + S2[a1, a3, SP[a2, a2], a1, a4, n] - 
    S2[a1, a4, a1, a2, SP[a2, a3], n] - S2[a1, a4, a1, SP[a2, a2], a3, n] - 
    S2[a1, a4, SP[a1, a2], a2, a3, n] - S2[a1, SP[a2, a3], a1, a2, a4, n] - 
    S2[a1, SP[a2, a3], a1, a4, a2, n] - S2[a1, SP[a2, a3], a2, a1, a4, n] + 
    S2[a1, SP[a2, a4], a1, a2, a3, n] - S2[a2, a1, a2, a1, SP[a3, a4], n] - 
    S2[a2, a1, a2, SP[a1, a3], a4, n] - S2[a2, a1, SP[a2, a3], a1, a4, n] - 
    S2[a2, SP[a1, a3], a2, a1, a4, n] + S2[a2, n]*S2[a3, a1, a2, a1, a4, n] + 
    S2[a3, a1, a2, a1, SP[a2, a4], n] + S2[a3, a1, a2, SP[a1, a2], a4, n] + 
    S2[a3, a1, SP[a2, a2], a1, a4, n] + S2[a3, SP[a1, a2], a2, a1, a4, n] - 
    S2[SP[a1, a3], a2, a1, a2, a4, n] - S2[SP[a1, a3], a2, a1, a4, a2, n] - 
    2*S2[SP[a1, a3], a2, a2, a1, a4, n] + S2[SP[a1, a4], a2, a1, a2, a3, n] + 
    S2[SP[a2, a3], a1, a2, a1, a4, n] - S2[a4, a1, a2, a1, a2, a3, n] /; 
   MyMemberQ[{{a1, a2}, {a3, a4}}, {a1, a1, a2, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a3_, a2_, a1_, a2_, a4_, a1_, n_] :> 
  S2[a1, a2, a3, n]*S2[a1, a4, a2, n] + S2[SP[a1, a1], SP[a2, a4], 
     SP[a2, a3], n] + 2*S2[a2, a3, n]*S2[a1, a1, a2, a4, n] - 
    2*S2[a1, a1, SP[a2, a2], SP[a3, a4], n] - 
    2*S2[a1, a1, SP[a2, a4], SP[a2, a3], n] + 
    S2[a2, a3, n]*S2[a1, a2, a1, a4, n] - 2*S2[a1, a4, n]*
     S2[a1, a2, a2, a3, n] - S2[a1, a4, n]*S2[a1, a2, a3, a2, n] + 
    S2[a1, a2, SP[a1, a2], SP[a3, a4], n] + S2[a1, a2, SP[a1, a3], 
     SP[a2, a4], n] + S2[a1, SP[a1, a2], a3, SP[a2, a4], n] - 
    S2[a1, SP[a1, a2], a4, SP[a2, a3], n] - 
    2*S2[a1, SP[a1, a2], SP[a2, a3], a4, n] + 
    2*S2[a1, SP[a1, a2], SP[a2, a4], a3, n] - S2[a1, SP[a1, a4], a2, 
     SP[a2, a3], n] - S2[a1, SP[a1, a4], SP[a2, a2], a3, n] - 
    S2[a1, SP[a2, a2], a1, SP[a3, a4], n] - S2[a1, SP[a2, a2], SP[a1, a3], 
     a4, n] + 2*S2[SP[a1, a1], a2, a2, SP[a3, a4], n] + 
    S2[SP[a1, a1], a2, a3, SP[a2, a4], n] - S2[SP[a1, a1], a2, a4, 
     SP[a2, a3], n] + 2*S2[SP[a1, a1], a2, SP[a2, a4], a3, n] - 
    S2[SP[a1, a1], a4, a2, SP[a2, a3], n] - S2[SP[a1, a1], a4, SP[a2, a2], 
     a3, n] + S2[SP[a1, a1], SP[a2, a4], a2, a3, n] - 
    2*S2[SP[a1, a2], a1, a2, SP[a3, a4], n] - 
    2*S2[SP[a1, a2], a1, SP[a2, a3], a4, n] - S2[SP[a1, a2], a2, a1, 
     SP[a3, a4], n] - S2[SP[a1, a2], a2, SP[a1, a3], a4, n] - 
    2*S2[SP[a1, a2], SP[a1, a3], a2, a4, n] - S2[SP[a1, a2], SP[a2, a3], a1, 
     a4, n] + 4*S2[a3, n]*S2[a1, a1, a2, a2, a4, n] + 
    4*S2[a1, a1, a2, a2, SP[a3, a4], n] - 
    2*S2[a2, n]*S2[a1, a1, a2, a3, a4, n] - 
    4*S2[a1, a1, a2, a3, SP[a2, a4], n] + 
    2*S2[a3, n]*S2[a1, a1, a2, a4, a2, n] - 
    2*S2[a2, n]*S2[a1, a1, a2, a4, a3, n] + 
    2*S2[a1, a1, a2, a4, SP[a2, a3], n] + 
    4*S2[a1, a1, a2, SP[a2, a3], a4, n] - 
    4*S2[a1, a1, a2, SP[a2, a4], a3, n] + 
    2*S2[a1, a1, a2, SP[a3, a4], a2, n] - 
    2*S2[a2, n]*S2[a1, a1, a3, a2, a4, n] - 
    2*S2[a1, a1, a3, a2, SP[a2, a4], n] - 
    2*S2[a1, a1, a3, SP[a2, a2], a4, n] + 
    2*S2[a1, a1, a4, a2, SP[a2, a3], n] + 
    2*S2[a1, a1, a4, SP[a2, a2], a3, n] + 
    2*S2[a1, a1, SP[a2, a3], a2, a4, n] + 
    2*S2[a1, a1, SP[a2, a3], a4, a2, n] - 
    2*S2[a1, a1, SP[a2, a4], a2, a3, n] + 
    2*S2[a3, n]*S2[a1, a2, a1, a2, a4, n] + 
    3*S2[a1, a2, a1, a2, SP[a3, a4], n] - 
    S2[a2, n]*S2[a1, a2, a1, a3, a4, n] - 
    2*S2[a1, a2, a1, a3, SP[a2, a4], n] + 
    S2[a3, n]*S2[a1, a2, a1, a4, a2, n] - 
    S2[a2, n]*S2[a1, a2, a1, a4, a3, n] + S2[a1, a2, a1, a4, SP[a2, a3], n] + 
    3*S2[a1, a2, a1, SP[a2, a3], a4, n] - 
    2*S2[a1, a2, a1, SP[a2, a4], a3, n] + S2[a1, a2, a1, SP[a3, a4], a2, n] + 
    2*S2[a3, n]*S2[a1, a2, a2, a1, a4, n] + 
    2*S2[a1, a2, a2, a1, SP[a3, a4], n] + 
    2*S2[a1, a2, a2, SP[a1, a3], a4, n] - 
    S2[a2, n]*S2[a1, a2, a3, a1, a4, n] - 
    2*S2[a1, a2, a3, a1, SP[a2, a4], n] - 
    2*S2[a1, a2, a3, SP[a1, a2], a4, n] - 
    2*S2[a1, a2, SP[a1, a2], a3, a4, n] - 
    2*S2[a1, a2, SP[a1, a2], a4, a3, n] + 
    3*S2[a1, a2, SP[a1, a3], a2, a4, n] + S2[a1, a2, SP[a1, a3], a4, a2, n] + 
    2*S2[a1, a2, SP[a2, a3], a1, a4, n] - 
    2*S2[a2, n]*S2[a1, a3, a1, a2, a4, n] - 
    2*S2[a1, a3, a1, a2, SP[a2, a4], n] - 
    2*S2[a1, a3, a1, SP[a2, a2], a4, n] - 
    S2[a2, n]*S2[a1, a3, a2, a1, a4, n] - S2[a1, a3, a2, a1, SP[a2, a4], n] - 
    S2[a1, a3, a2, SP[a1, a2], a4, n] - 2*S2[a1, a3, SP[a1, a2], a2, a4, n] - 
    S2[a1, a3, SP[a2, a2], a1, a4, n] + S2[a1, a4, a1, a2, SP[a2, a3], n] + 
    S2[a1, a4, a1, SP[a2, a2], a3, n] + S2[a1, a4, SP[a1, a2], a2, a3, n] - 
    2*S2[a1, SP[a1, a2], a2, a3, a4, n] - 
    2*S2[a1, SP[a1, a2], a2, a4, a3, n] - S2[a1, SP[a1, a2], a3, a2, a4, n] - 
    S2[a1, SP[a1, a2], a4, a2, a3, n] + 4*S2[a1, SP[a1, a3], a2, a2, a4, n] + 
    2*S2[a1, SP[a1, a3], a2, a4, a2, n] + S2[a1, SP[a2, a3], a1, a4, a2, n] + 
    S2[a1, SP[a2, a3], a2, a1, a4, n] + 2*S2[a2, a1, a1, a2, SP[a3, a4], n] + 
    2*S2[a2, a1, a1, SP[a2, a3], a4, n] + S2[a2, a1, a2, a1, SP[a3, a4], n] + 
    S2[a2, a1, a2, SP[a1, a3], a4, n] + 2*S2[a2, a1, SP[a1, a3], a2, a4, n] + 
    S2[a2, a1, SP[a2, a3], a1, a4, n] + 2*S2[a2, SP[a1, a3], a1, a2, a4, n] + 
    S2[a2, SP[a1, a3], a2, a1, a4, n] - 2*S2[a2, n]*
     S2[a3, a1, a1, a2, a4, n] - 2*S2[a3, a1, a1, a2, SP[a2, a4], n] - 
    2*S2[a3, a1, a1, SP[a2, a2], a4, n] - 
    S2[a2, n]*S2[a3, a1, a2, a1, a4, n] - S2[a3, a1, a2, a1, SP[a2, a4], n] - 
    S2[a3, a1, a2, SP[a1, a2], a4, n] - 2*S2[a3, a1, SP[a1, a2], a2, a4, n] - 
    S2[a3, a1, SP[a2, a2], a1, a4, n] + S2[a1, n]*S2[a3, a2, a1, a2, a4, n] + 
    S2[a3, a2, a1, a2, SP[a1, a4], n] + S2[a3, a2, a1, SP[a1, a2], a4, n] + 
    S2[a3, a2, SP[a1, a1], a2, a4, n] - S2[a3, SP[a1, a2], a1, a2, a4, n] - 
    S2[a3, SP[a1, a2], a2, a1, a4, n] - S2[a1, n]*S2[a4, a2, a1, a2, a3, n] - 
    S2[a4, a2, a1, a2, SP[a1, a3], n] - S2[a4, a2, a1, SP[a1, a2], a3, n] - 
    S2[a4, a2, SP[a1, a1], a2, a3, n] - S2[a4, SP[a1, a2], a1, a2, a3, n] - 
    2*S2[SP[a1, a1], a2, a2, a3, a4, n] - 
    2*S2[SP[a1, a1], a2, a2, a4, a3, n] - S2[SP[a1, a1], a2, a3, a2, a4, n] - 
    S2[SP[a1, a1], a2, a4, a2, a3, n] + 4*S2[SP[a1, a3], a1, a2, a2, a4, n] + 
    2*S2[SP[a1, a3], a1, a2, a4, a2, n] + 
    3*S2[SP[a1, a3], a2, a1, a2, a4, n] + S2[SP[a1, a3], a2, a1, a4, a2, n] + 
    2*S2[SP[a1, a3], a2, a2, a1, a4, n] - S2[SP[a1, a4], a2, a1, a2, a3, n] - 
    2*S2[SP[a2, a3], a1, a1, a2, a4, n] - S2[SP[a2, a3], a1, a2, a1, a4, n] + 
    S2[a4, a1, a2, a1, a2, a3, n] + 2*S2[a4, a2, a1, a1, a2, a3, n] + 
    S2[a4, a2, a1, a2, a1, a3, n] + S2[a4, a2, a1, a2, a3, a1, n] /; 
   MyMemberQ[{{a1, a2}, {a3, a4}}, {a1, a1, a2, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a3_, a2_, a1_, a4_, a1_, a2_, n_] :> 
  -(S2[a1, a2, a3, n]*S2[a1, a2, a4, n]) - S2[a1, a2, a3, n]*
     S2[a1, a4, a2, n] - S2[SP[a1, a1], SP[a2, a2], SP[a3, a4], n] - 
    S2[SP[a1, a1], SP[a2, a4], SP[a2, a3], n] + 
    2*S2[a2, a3, n]*S2[a1, a1, a2, a4, n] + 2*S2[a2, a3, n]*
     S2[a1, a1, a4, a2, n] + S2[a2, a3, n]*S2[a1, a2, a1, a4, n] - 
    S2[a1, a2, SP[a1, a2], SP[a3, a4], n] + S2[a1, a2, n]*
     S2[a1, a3, a2, a4, n] + S2[a1, a2, n]*S2[a1, a3, a4, a2, n] - 
    S2[a1, a3, SP[a1, a2], SP[a2, a4], n] - S2[a1, a3, SP[a1, a4], 
     SP[a2, a2], n] + S2[a1, a2, n]*S2[a1, a4, a3, a2, n] - 
    S2[a1, a4, SP[a1, a3], SP[a2, a2], n] - S2[a1, SP[a1, a2], a4, 
     SP[a2, a3], n] - S2[a1, SP[a1, a2], SP[a2, a3], a4, n] + 
    S2[a1, SP[a1, a2], SP[a2, a4], a3, n] - S2[a1, SP[a1, a2], SP[a3, a4], 
     a2, n] - S2[a1, SP[a1, a3], a2, SP[a2, a4], n] - 
    S2[a1, SP[a1, a3], a4, SP[a2, a2], n] - S2[a1, SP[a1, a3], SP[a2, a2], 
     a4, n] - S2[a1, SP[a1, a3], SP[a2, a4], a2, n] + 
    S2[a1, SP[a1, a4], a2, SP[a2, a3], n] - S2[a1, SP[a1, a4], a3, 
     SP[a2, a2], n] + S2[a1, SP[a1, a4], SP[a2, a2], a3, n] - 
    S2[a1, SP[a1, a4], SP[a2, a3], a2, n] - S2[a1, SP[a2, a2], a1, 
     SP[a3, a4], n] - S2[a1, SP[a2, a2], SP[a1, a3], a4, n] - 
    S2[a1, a2, n]*S2[a2, a3, a1, a4, n] + S2[a2, a3, SP[a1, a1], SP[a2, a4], 
     n] + S2[a2, SP[a1, a3], a1, SP[a2, a4], n] + 
    S2[a2, SP[a1, a3], SP[a1, a2], a4, n] + 
    2*S2[SP[a1, a1], a2, a2, SP[a3, a4], n] + S2[SP[a1, a1], a2, a4, 
     SP[a2, a3], n] + S2[SP[a1, a1], a2, SP[a2, a3], a4, n] + 
    S2[SP[a1, a1], a2, SP[a2, a4], a3, n] + S2[SP[a1, a1], a2, SP[a3, a4], 
     a2, n] - S2[SP[a1, a1], a3, a2, SP[a2, a4], n] - 
    S2[SP[a1, a1], a3, a4, SP[a2, a2], n] - S2[SP[a1, a1], a3, SP[a2, a2], 
     a4, n] - S2[SP[a1, a1], a3, SP[a2, a4], a2, n] + 
    S2[SP[a1, a1], a4, a2, SP[a2, a3], n] - S2[SP[a1, a1], a4, a3, 
     SP[a2, a2], n] + S2[SP[a1, a1], a4, SP[a2, a2], a3, n] - 
    S2[SP[a1, a1], a4, SP[a2, a3], a2, n] + S2[SP[a1, a1], SP[a2, a2], a3, 
     a4, n] + S2[SP[a1, a1], SP[a2, a2], a4, a3, n] - 
    S2[SP[a1, a1], SP[a2, a3], a2, a4, n] - S2[SP[a1, a1], SP[a2, a3], a4, 
     a2, n] + S2[SP[a1, a1], SP[a2, a4], a2, a3, n] - 
    2*S2[SP[a1, a2], a1, a2, SP[a3, a4], n] - 
    2*S2[SP[a1, a2], a1, a4, SP[a2, a3], n] - 
    2*S2[SP[a1, a2], a1, SP[a2, a3], a4, n] - 
    2*S2[SP[a1, a2], a1, SP[a3, a4], a2, n] - S2[SP[a1, a2], a2, a1, 
     SP[a3, a4], n] - S2[SP[a1, a2], a2, SP[a1, a3], a4, n] + 
    S2[SP[a1, a2], a3, a1, SP[a2, a4], n] + S2[SP[a1, a2], a3, SP[a1, a2], 
     a4, n] - 2*S2[SP[a1, a2], SP[a1, a3], a2, a4, n] - 
    2*S2[SP[a1, a2], SP[a1, a3], a4, a2, n] + 
    4*S2[a4, n]*S2[a1, a1, a2, a2, a3, n] + 
    4*S2[a1, a1, a2, a2, SP[a3, a4], n] + 
    2*S2[a4, n]*S2[a1, a1, a2, a3, a2, n] - 
    2*S2[a2, n]*S2[a1, a1, a2, a3, a4, n] - 
    2*S2[a2, n]*S2[a1, a1, a2, a4, a3, n] - 
    2*S2[a1, a1, a2, a4, SP[a2, a3], n] - 
    2*S2[a1, a1, a2, SP[a2, a3], a4, n] + 
    2*S2[a1, a1, a2, SP[a2, a4], a3, n] + 
    2*S2[a1, a1, a2, SP[a3, a4], a2, n] - 
    2*S2[a2, n]*S2[a1, a1, a3, a2, a4, n] - 
    2*S2[a2, n]*S2[a1, a1, a3, a4, a2, n] - 
    2*S2[a2, n]*S2[a1, a1, a4, a2, a3, n] - 
    2*S2[a1, a1, a4, a2, SP[a2, a3], n] - 
    2*S2[a2, n]*S2[a1, a1, a4, a3, a2, n] - 
    2*S2[a1, a1, a4, SP[a2, a2], a3, n] - 
    2*S2[a1, a1, SP[a2, a2], a3, a4, n] - 
    2*S2[a1, a1, SP[a2, a2], a4, a3, n] + 
    2*S2[a1, a1, SP[a2, a4], a2, a3, n] + 
    2*S2[a1, a1, SP[a2, a4], a3, a2, n] + 
    2*S2[a4, n]*S2[a1, a2, a1, a2, a3, n] + 
    3*S2[a1, a2, a1, a2, SP[a3, a4], n] + 
    S2[a4, n]*S2[a1, a2, a1, a3, a2, n] - 
    S2[a2, n]*S2[a1, a2, a1, a3, a4, n] - 
    S2[a2, n]*S2[a1, a2, a1, a4, a3, n] + S2[a1, a2, a1, SP[a2, a4], a3, n] + 
    2*S2[a1, a2, a1, SP[a3, a4], a2, n] + 
    2*S2[a1, a2, a2, a1, SP[a3, a4], n] + 
    2*S2[a1, a2, a2, SP[a1, a3], a4, n] + 
    S2[a4, n]*S2[a1, a2, a3, a1, a2, n] - S2[a1, a2, a3, SP[a1, a2], a4, n] + 
    S2[a1, a2, a3, SP[a1, a4], a2, n] - S2[a3, n]*S2[a1, a2, a4, a1, a2, n] - 
    S2[a1, a2, a4, a1, SP[a2, a3], n] - S2[a1, a2, a4, SP[a1, a3], a2, n] + 
    S2[a1, a2, SP[a1, a3], a2, a4, n] + S2[a1, a2, SP[a1, a3], a4, a2, n] + 
    S2[a1, a2, SP[a1, a4], a2, a3, n] + S2[a1, a2, SP[a1, a4], a3, a2, n] - 
    S2[a2, n]*S2[a1, a3, a1, a2, a4, n] - 
    S2[a2, n]*S2[a1, a3, a1, a4, a2, n] + S2[a1, a3, a2, a1, SP[a2, a4], n] + 
    S2[a1, a3, a2, SP[a1, a4], a2, n] + S2[a1, a3, a4, a1, SP[a2, a2], n] + 
    S2[a1, a3, a4, SP[a1, a2], a2, n] + 2*S2[a1, a3, SP[a1, a4], a2, a2, n] - 
    2*S2[a3, n]*S2[a1, a4, a1, a2, a2, n] - 
    3*S2[a1, a4, a1, a2, SP[a2, a3], n] + S2[a1, a4, a1, a3, SP[a2, a2], n] - 
    S2[a1, a4, a1, SP[a2, a2], a3, n] - S2[a1, a4, a1, SP[a2, a3], a2, n] - 
    S2[a3, n]*S2[a1, a4, a2, a1, a2, n] - S2[a1, a4, a2, a1, SP[a2, a3], n] - 
    S2[a1, a4, a2, SP[a1, a3], a2, n] + S2[a1, a4, a3, a1, SP[a2, a2], n] + 
    S2[a1, a4, a3, SP[a1, a2], a2, n] - S2[a1, a4, SP[a1, a2], a2, a3, n] - 
    S2[a1, a4, SP[a2, a3], a1, a2, n] - 2*S2[a1, SP[a1, a2], a2, a3, a4, n] - 
    2*S2[a1, SP[a1, a2], a2, a4, a3, n] - 
    2*S2[a1, SP[a1, a2], a4, a2, a3, n] + 
    2*S2[a1, SP[a1, a3], a2, a2, a4, n] + 
    2*S2[a1, SP[a1, a3], a2, a4, a2, n] + 
    2*S2[a1, SP[a1, a3], a4, a2, a2, n] + 
    2*S2[a1, SP[a1, a4], a2, a2, a3, n] + 
    2*S2[a1, SP[a1, a4], a2, a3, a2, n] + 
    2*S2[a1, SP[a1, a4], a3, a2, a2, n] - S2[a1, SP[a2, a3], a1, a2, a4, n] - 
    S2[a1, SP[a2, a3], a1, a4, a2, n] - S2[a1, SP[a2, a3], a4, a1, a2, n] + 
    2*S2[a1, SP[a2, a4], a1, a2, a3, n] + S2[a1, SP[a2, a4], a1, a3, a2, n] + 
    S2[a1, SP[a2, a4], a3, a1, a2, n] - 2*S2[a1, SP[a3, a4], a1, a2, a2, n] - 
    S2[a1, SP[a3, a4], a2, a1, a2, n] + 2*S2[a2, a1, a1, a2, SP[a3, a4], n] + 
    2*S2[a2, a1, a1, a4, SP[a2, a3], n] + 
    2*S2[a2, a1, a1, SP[a2, a3], a4, n] + 
    2*S2[a2, a1, a1, SP[a3, a4], a2, n] + S2[a2, a1, a2, a1, SP[a3, a4], n] + 
    S2[a2, a1, a2, SP[a1, a3], a4, n] - S2[a2, a1, a3, a1, SP[a2, a4], n] - 
    S2[a2, a1, a3, SP[a1, a2], a4, n] + 2*S2[a2, a1, SP[a1, a3], a2, a4, n] + 
    2*S2[a2, a1, SP[a1, a3], a4, a2, n] - 
    2*S2[a2, a3, a1, a1, SP[a2, a4], n] - S2[a2, a3, a1, SP[a1, a2], a4, n] - 
    S2[a2, a3, a1, SP[a1, a4], a2, n] - S2[a2, a3, SP[a1, a1], a2, a4, n] - 
    S2[a2, a3, SP[a1, a1], a4, a2, n] + S2[a2, SP[a1, a3], a1, a2, a4, n] + 
    S2[a2, SP[a1, a3], a1, a4, a2, n] + S2[a2, n]*S2[a3, a1, a4, a1, a2, n] + 
    S2[a3, a1, a4, a1, SP[a2, a2], n] + S2[a3, a1, a4, SP[a1, a2], a2, n] + 
    S2[a3, a1, SP[a2, a4], a1, a2, n] + S2[a3, SP[a1, a2], a4, a1, a2, n] - 
    2*S2[SP[a1, a1], a2, a2, a3, a4, n] - 
    2*S2[SP[a1, a1], a2, a2, a4, a3, n] - 
    2*S2[SP[a1, a1], a2, a4, a2, a3, n] + 
    2*S2[SP[a1, a1], a3, a2, a2, a4, n] + 
    2*S2[SP[a1, a1], a3, a2, a4, a2, n] + 
    2*S2[SP[a1, a1], a3, a4, a2, a2, n] - 
    2*S2[SP[a1, a1], a4, a2, a2, a3, n] + 
    2*S2[SP[a1, a1], a4, a3, a2, a2, n] - S2[SP[a1, a3], a2, a4, a1, a2, n] - 
    2*S2[SP[a1, a3], a4, a1, a2, a2, n] - S2[SP[a1, a3], a4, a2, a1, a2, n] + 
    4*S2[SP[a1, a4], a1, a2, a2, a3, n] + 
    2*S2[SP[a1, a4], a1, a2, a3, a2, n] + 
    2*S2[SP[a1, a4], a2, a1, a2, a3, n] + S2[SP[a1, a4], a2, a1, a3, a2, n] + 
    S2[SP[a1, a4], a2, a3, a1, a2, n] + S2[SP[a2, a3], a1, a4, a1, a2, n] - 
    4*S2[a4, a1, a1, a2, a2, a3, n] - 2*S2[a4, a1, a1, a2, a3, a2, n] - 
    2*S2[a4, a1, a2, a1, a2, a3, n] - S2[a4, a1, a2, a1, a3, a2, n] - 
    S2[a4, a1, a2, a3, a1, a2, n] /; MyMemberQ[{{a1, a2}, {a3, a4}}, 
     {a1, a1, a2, a2, a3, a4}] && a1 != a2 != a3 != a4, 
 S2[a3_, a2_, a1_, a4_, a2_, a1_, n_] :> 
  S2[a1, a2, a3, n]*S2[a1, a2, a4, n] + S2[SP[a1, a1], SP[a2, a2], 
     SP[a3, a4], n] - 2*S2[a2, a3, n]*S2[a1, a1, a2, a4, n] - 
    S2[a2, a3, n]*S2[a1, a2, a1, a4, n] + S2[a1, a2, SP[a1, a2], SP[a3, a4], 
     n] - S2[a1, a2, n]*S2[a1, a3, a2, a4, n] - 
    S2[a1, a2, n]*S2[a1, a3, a4, a2, n] + S2[a1, a3, SP[a1, a2], SP[a2, a4], 
     n] + S2[a1, a3, SP[a1, a4], SP[a2, a2], n] - 
    S2[a1, a2, n]*S2[a1, a4, a3, a2, n] + S2[a1, a4, SP[a1, a3], SP[a2, a2], 
     n] + S2[a1, SP[a1, a2], SP[a2, a3], a4, n] - 
    S2[a1, SP[a1, a2], SP[a2, a4], a3, n] + S2[a1, SP[a1, a3], a2, 
     SP[a2, a4], n] + S2[a1, SP[a1, a3], a4, SP[a2, a2], n] + 
    S2[a1, SP[a1, a3], SP[a2, a2], a4, n] + S2[a1, SP[a1, a3], SP[a2, a4], 
     a2, n] + S2[a1, SP[a1, a4], a3, SP[a2, a2], n] + 
    S2[a1, SP[a1, a4], SP[a2, a3], a2, n] + S2[a1, SP[a2, a2], a1, 
     SP[a3, a4], n] + S2[a1, SP[a2, a2], SP[a1, a3], a4, n] + 
    S2[a1, a2, n]*S2[a2, a3, a1, a4, n] - S2[a2, a3, SP[a1, a1], SP[a2, a4], 
     n] - S2[a2, SP[a1, a3], a1, SP[a2, a4], n] - 
    S2[a2, SP[a1, a3], SP[a1, a2], a4, n] - 
    2*S2[SP[a1, a1], a2, a2, SP[a3, a4], n] - S2[SP[a1, a1], a2, SP[a2, a3], 
     a4, n] - S2[SP[a1, a1], a2, SP[a2, a4], a3, n] + 
    S2[SP[a1, a1], a3, a2, SP[a2, a4], n] + S2[SP[a1, a1], a3, a4, 
     SP[a2, a2], n] + S2[SP[a1, a1], a3, SP[a2, a2], a4, n] + 
    S2[SP[a1, a1], a3, SP[a2, a4], a2, n] + S2[SP[a1, a1], a4, a3, 
     SP[a2, a2], n] + S2[SP[a1, a1], a4, SP[a2, a3], a2, n] - 
    S2[SP[a1, a1], SP[a2, a2], a3, a4, n] - S2[SP[a1, a1], SP[a2, a2], a4, 
     a3, n] + S2[SP[a1, a1], SP[a2, a3], a2, a4, n] + 
    S2[SP[a1, a1], SP[a2, a3], a4, a2, n] + S2[SP[a1, a1], SP[a2, a4], a3, 
     a2, n] + 2*S2[SP[a1, a2], a1, a2, SP[a3, a4], n] + 
    2*S2[SP[a1, a2], a1, SP[a2, a3], a4, n] + S2[SP[a1, a2], a2, a1, 
     SP[a3, a4], n] + S2[SP[a1, a2], a2, SP[a1, a3], a4, n] - 
    S2[SP[a1, a2], a3, a1, SP[a2, a4], n] - S2[SP[a1, a2], a3, SP[a1, a2], 
     a4, n] + 2*S2[SP[a1, a2], SP[a1, a3], a2, a4, n] - 
    4*S2[a4, n]*S2[a1, a1, a2, a2, a3, n] - 
    4*S2[a1, a1, a2, a2, SP[a3, a4], n] - 
    2*S2[a4, n]*S2[a1, a1, a2, a3, a2, n] + 
    2*S2[a2, n]*S2[a1, a1, a2, a3, a4, n] + 
    2*S2[a3, n]*S2[a1, a1, a2, a4, a2, n] + 
    2*S2[a2, n]*S2[a1, a1, a2, a4, a3, n] + 
    4*S2[a1, a1, a2, a4, SP[a2, a3], n] + 
    2*S2[a1, a1, a2, SP[a2, a3], a4, n] - 
    2*S2[a1, a1, a2, SP[a2, a4], a3, n] + 
    2*S2[a2, n]*S2[a1, a1, a3, a2, a4, n] - 
    2*S2[a1, a1, a3, a4, SP[a2, a2], n] - 
    2*S2[a1, a1, a3, SP[a2, a4], a2, n] + 
    4*S2[a3, n]*S2[a1, a1, a4, a2, a2, n] + 
    4*S2[a1, a1, a4, a2, SP[a2, a3], n] - 
    2*S2[a1, a1, a4, a3, SP[a2, a2], n] + 
    2*S2[a1, a1, a4, SP[a2, a3], a2, n] + 
    2*S2[a1, a1, SP[a2, a2], a3, a4, n] + 
    2*S2[a1, a1, SP[a2, a2], a4, a3, n] - 
    4*S2[a1, a1, SP[a2, a4], a2, a3, n] - 
    4*S2[a1, a1, SP[a2, a4], a3, a2, n] + 
    4*S2[a1, a1, SP[a3, a4], a2, a2, n] - 
    2*S2[a4, n]*S2[a1, a2, a1, a2, a3, n] - 
    3*S2[a1, a2, a1, a2, SP[a3, a4], n] - 
    S2[a4, n]*S2[a1, a2, a1, a3, a2, n] + 
    S2[a2, n]*S2[a1, a2, a1, a3, a4, n] + 
    S2[a3, n]*S2[a1, a2, a1, a4, a2, n] + 
    S2[a2, n]*S2[a1, a2, a1, a4, a3, n] + 
    2*S2[a1, a2, a1, a4, SP[a2, a3], n] - S2[a1, a2, a1, SP[a2, a4], a3, n] - 
    2*S2[a1, a2, a2, a1, SP[a3, a4], n] - 
    2*S2[a1, a2, a2, SP[a1, a3], a4, n] - 
    S2[a4, n]*S2[a1, a2, a3, a1, a2, n] + S2[a1, a2, a3, SP[a1, a2], a4, n] - 
    S2[a1, a2, a3, SP[a1, a4], a2, n] + S2[a3, n]*S2[a1, a2, a4, a1, a2, n] + 
    S2[a1, a2, a4, a1, SP[a2, a3], n] + S2[a1, a2, a4, SP[a1, a3], a2, n] - 
    S2[a1, a2, SP[a1, a3], a2, a4, n] + S2[a1, a2, SP[a1, a3], a4, a2, n] - 
    S2[a1, a2, SP[a1, a4], a2, a3, n] - S2[a1, a2, SP[a1, a4], a3, a2, n] + 
    S2[a2, n]*S2[a1, a3, a1, a2, a4, n] - 
    S2[a2, n]*S2[a1, a3, a1, a4, a2, n] - 
    2*S2[a1, a3, a1, a4, SP[a2, a2], n] - 
    2*S2[a1, a3, a1, SP[a2, a4], a2, n] - S2[a1, a3, a2, a1, SP[a2, a4], n] - 
    S2[a1, a3, a2, SP[a1, a4], a2, n] - S2[a1, a3, a4, a1, SP[a2, a2], n] - 
    S2[a1, a3, a4, SP[a1, a2], a2, n] - 2*S2[a1, a3, SP[a1, a2], a4, a2, n] - 
    2*S2[a1, a3, SP[a1, a4], a2, a2, n] + 
    2*S2[a3, n]*S2[a1, a4, a1, a2, a2, n] + 
    2*S2[a1, a4, a1, a2, SP[a2, a3], n] - S2[a1, a4, a1, a3, SP[a2, a2], n] + 
    S2[a1, a4, a1, SP[a2, a3], a2, n] + S2[a3, n]*S2[a1, a4, a2, a1, a2, n] + 
    S2[a1, a4, a2, a1, SP[a2, a3], n] + S2[a1, a4, a2, SP[a1, a3], a2, n] - 
    S2[a1, a4, a3, a1, SP[a2, a2], n] - S2[a1, a4, a3, SP[a1, a2], a2, n] + 
    S2[a1, a4, SP[a2, a3], a1, a2, n] + 2*S2[a1, SP[a1, a2], a2, a3, a4, n] + 
    2*S2[a1, SP[a1, a2], a2, a4, a3, n] - S2[a1, SP[a1, a2], a3, a4, a2, n] + 
    S2[a1, SP[a1, a2], a4, a2, a3, n] - S2[a1, SP[a1, a2], a4, a3, a2, n] - 
    2*S2[a1, SP[a1, a3], a2, a2, a4, n] + 
    2*S2[a1, SP[a1, a3], a4, a2, a2, n] - 
    4*S2[a1, SP[a1, a4], a2, a2, a3, n] - 
    3*S2[a1, SP[a1, a4], a2, a3, a2, n] - 
    2*S2[a1, SP[a1, a4], a3, a2, a2, n] + S2[a1, SP[a2, a3], a1, a2, a4, n] + 
    S2[a1, SP[a2, a3], a4, a1, a2, n] - 2*S2[a1, SP[a2, a4], a1, a2, a3, n] - 
    S2[a1, SP[a2, a4], a1, a3, a2, n] - S2[a1, SP[a2, a4], a3, a1, a2, n] + 
    2*S2[a1, SP[a3, a4], a1, a2, a2, n] + S2[a1, SP[a3, a4], a2, a1, a2, n] - 
    2*S2[a2, a1, a1, a2, SP[a3, a4], n] - 
    2*S2[a2, a1, a1, SP[a2, a3], a4, n] - S2[a2, a1, a2, a1, SP[a3, a4], n] - 
    S2[a2, a1, a2, SP[a1, a3], a4, n] + S2[a2, a1, a3, a1, SP[a2, a4], n] + 
    S2[a2, a1, a3, SP[a1, a2], a4, n] - 2*S2[a2, a1, SP[a1, a3], a2, a4, n] + 
    2*S2[a2, a3, a1, a1, SP[a2, a4], n] + S2[a2, a3, a1, SP[a1, a2], a4, n] + 
    S2[a2, a3, a1, SP[a1, a4], a2, n] + S2[a2, a3, SP[a1, a1], a2, a4, n] + 
    S2[a2, a3, SP[a1, a1], a4, a2, n] - S2[a2, SP[a1, a3], a1, a2, a4, n] + 
    S2[a2, SP[a1, a3], a1, a4, a2, n] - 2*S2[a2, n]*
     S2[a3, a1, a1, a4, a2, n] - 2*S2[a3, a1, a1, a4, SP[a2, a2], n] - 
    2*S2[a3, a1, a1, SP[a2, a4], a2, n] - 
    S2[a2, n]*S2[a3, a1, a4, a1, a2, n] - S2[a3, a1, a4, a1, SP[a2, a2], n] - 
    S2[a3, a1, a4, SP[a1, a2], a2, n] - 2*S2[a3, a1, SP[a1, a2], a4, a2, n] - 
    S2[a3, a1, SP[a2, a4], a1, a2, n] + S2[a1, n]*S2[a3, a2, a1, a4, a2, n] + 
    S2[a3, a2, a1, a4, SP[a1, a2], n] + S2[a3, a2, a1, SP[a1, a4], a2, n] + 
    S2[a3, a2, SP[a1, a1], a4, a2, n] - S2[a3, SP[a1, a2], a1, a4, a2, n] - 
    S2[a3, SP[a1, a2], a4, a1, a2, n] + 2*S2[a1, n]*
     S2[a4, a1, a2, a2, a3, n] + 2*S2[a4, a1, a2, a2, SP[a1, a3], n] + 
    S2[a1, n]*S2[a4, a1, a2, a3, a2, n] + S2[a4, a1, a2, a3, SP[a1, a2], n] + 
    2*S2[a4, a1, a2, SP[a1, a2], a3, n] + S2[a4, a1, a2, SP[a1, a3], a2, n] + 
    2*S2[a4, a1, SP[a1, a2], a2, a3, n] + S2[a4, a1, SP[a1, a2], a3, a2, n] + 
    S2[a1, n]*S2[a4, a2, a1, a2, a3, n] + S2[a4, a2, a1, a2, SP[a1, a3], n] + 
    S2[a4, a2, a1, SP[a1, a2], a3, n] + S2[a4, a2, SP[a1, a1], a2, a3, n] + 
    2*S2[a4, SP[a1, a1], a2, a2, a3, n] + S2[a4, SP[a1, a1], a2, a3, a2, n] + 
    S2[a4, SP[a1, a2], a1, a2, a3, n] + 2*S2[SP[a1, a1], a2, a2, a3, a4, n] + 
    2*S2[SP[a1, a1], a2, a2, a4, a3, n] - S2[SP[a1, a1], a2, a3, a4, a2, n] + 
    S2[SP[a1, a1], a2, a4, a2, a3, n] - S2[SP[a1, a1], a2, a4, a3, a2, n] - 
    2*S2[SP[a1, a1], a3, a2, a2, a4, n] - 
    2*S2[SP[a1, a1], a3, a2, a4, a2, n] - 
    2*S2[SP[a1, a1], a3, a4, a2, a2, n] - S2[SP[a1, a1], a4, a2, a3, a2, n] - 
    2*S2[SP[a1, a1], a4, a3, a2, a2, n] + 
    2*S2[SP[a1, a3], a1, a2, a4, a2, n] + 
    4*S2[SP[a1, a3], a1, a4, a2, a2, n] + 
    2*S2[SP[a1, a3], a2, a1, a4, a2, n] + S2[SP[a1, a3], a2, a4, a1, a2, n] + 
    2*S2[SP[a1, a3], a4, a1, a2, a2, n] + S2[SP[a1, a3], a4, a2, a1, a2, n] - 
    2*S2[SP[a1, a4], a1, a2, a2, a3, n] - S2[SP[a1, a4], a1, a2, a3, a2, n] - 
    S2[SP[a1, a4], a2, a1, a2, a3, n] - S2[SP[a1, a4], a2, a1, a3, a2, n] - 
    S2[SP[a1, a4], a2, a3, a1, a2, n] - 2*S2[SP[a2, a3], a1, a1, a4, a2, n] - 
    S2[SP[a2, a3], a1, a4, a1, a2, n] - S2[a4, a1, a2, a1, a2, a3, n] - 
    2*S2[a4, a1, a2, a2, a1, a3, n] - 2*S2[a4, a1, a2, a2, a3, a1, n] - 
    S2[a4, a1, a2, a3, a2, a1, n] - 2*S2[a4, a2, a1, a1, a2, a3, n] - 
    S2[a4, a2, a1, a2, a1, a3, n] - S2[a4, a2, a1, a2, a3, a1, n] /; 
   MyMemberQ[{{a1, a2}, {a3, a4}}, {a1, a1, a2, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a3_, a2_, a2_, a1_, a1_, a4_, n_] :> 
  S2[a1, a1, a4, n]*S2[a2, a2, a3, n] + S2[SP[a1, a2], SP[a1, a2], 
     SP[a3, a4], n] + S2[a2, a3, n]*S2[a1, a1, a2, a4, n] + 
    S2[a2, a3, n]*S2[a1, a1, a4, a2, n] - S2[a1, a1, SP[a2, a2], SP[a3, a4], 
     n] - S2[a1, a1, SP[a2, a4], SP[a2, a3], n] + 
    S2[a2, a3, n]*S2[a1, a2, a1, a4, n] - S2[a1, a4, n]*
     S2[a1, a2, a2, a3, n] - S2[a1, a2, SP[a1, a2], SP[a3, a4], n] - 
    S2[a1, SP[a1, a2], a2, SP[a3, a4], n] - S2[a1, SP[a1, a2], a4, 
     SP[a2, a3], n] - S2[a1, SP[a1, a2], SP[a2, a3], a4, n] - 
    S2[a1, SP[a1, a2], SP[a3, a4], a2, n] - S2[a1, SP[a2, a2], a1, 
     SP[a3, a4], n] - S2[a1, SP[a2, a2], SP[a1, a3], a4, n] - 
    S2[a2, a1, SP[a1, a2], SP[a3, a4], n] - S2[a2, SP[a1, a2], a1, 
     SP[a3, a4], n] - S2[a2, SP[a1, a2], SP[a1, a3], a4, n] + 
    S2[SP[a1, a1], a2, a2, SP[a3, a4], n] + S2[SP[a1, a1], a2, SP[a2, a4], 
     a3, n] + S2[SP[a1, a1], SP[a2, a4], a2, a3, n] - 
    2*S2[SP[a1, a2], a1, a2, SP[a3, a4], n] - S2[SP[a1, a2], a1, a4, 
     SP[a2, a3], n] - S2[SP[a1, a2], a1, SP[a2, a3], a4, n] - 
    S2[SP[a1, a2], a1, SP[a2, a4], a3, n] - S2[SP[a1, a2], a1, SP[a3, a4], 
     a2, n] - 2*S2[SP[a1, a2], a2, a1, SP[a3, a4], n] - 
    2*S2[SP[a1, a2], a2, SP[a1, a3], a4, n] - S2[SP[a1, a2], SP[a1, a2], a3, 
     a4, n] - S2[SP[a1, a2], SP[a1, a2], a4, a3, n] - 
    S2[SP[a1, a2], SP[a1, a3], a2, a4, n] - S2[SP[a1, a2], SP[a1, a3], a4, 
     a2, n] - S2[SP[a1, a2], SP[a2, a3], a1, a4, n] + 
    S2[a4, n]*S2[a1, a1, a2, a2, a3, n] + 
    S2[a3, n]*S2[a1, a1, a2, a2, a4, n] + 
    3*S2[a1, a1, a2, a2, SP[a3, a4], n] - 
    (3*S2[a2, n]*S2[a1, a1, a2, a3, a4, n])/2 - 
    (3*S2[a1, a1, a2, a3, SP[a2, a4], n])/2 + 
    S2[a3, n]*S2[a1, a1, a2, a4, a2, n] - 
    (3*S2[a2, n]*S2[a1, a1, a2, a4, a3, n])/2 + 
    S2[a1, a1, a2, a4, SP[a2, a3], n]/2 + S2[a1, a1, a2, SP[a2, a3], a4, n]/
     2 - S2[a1, a1, a2, SP[a2, a4], a3, n]/2 + 
    2*S2[a1, a1, a2, SP[a3, a4], a2, n] - 
    (S2[a2, n]*S2[a1, a1, a3, a2, a4, n])/2 - 
    S2[a1, a1, a3, a2, SP[a2, a4], n]/2 - 
    (S2[a2, n]*S2[a1, a1, a3, a4, a2, n])/2 - 
    S2[a1, a1, a3, a4, SP[a2, a2], n]/2 - S2[a1, a1, a3, SP[a2, a2], a4, n]/
     2 - S2[a1, a1, a3, SP[a2, a4], a2, n]/2 + 
    S2[a3, n]*S2[a1, a1, a4, a2, a2, n] - 
    (3*S2[a2, n]*S2[a1, a1, a4, a2, a3, n])/2 + 
    S2[a1, a1, a4, a2, SP[a2, a3], n]/2 - 
    (S2[a2, n]*S2[a1, a1, a4, a3, a2, n])/2 - 
    S2[a1, a1, a4, a3, SP[a2, a2], n]/2 - S2[a1, a1, a4, SP[a2, a2], a3, n]/
     2 + S2[a1, a1, a4, SP[a2, a3], a2, n]/2 - 
    S2[a1, a1, SP[a2, a2], a3, a4, n]/2 - S2[a1, a1, SP[a2, a2], a4, a3, n]/
     2 + S2[a1, a1, SP[a2, a3], a2, a4, n]/2 + 
    S2[a1, a1, SP[a2, a3], a4, a2, n]/2 - S2[a1, a1, SP[a2, a4], a2, a3, n]/
     2 + S2[a1, a1, SP[a2, a4], a3, a2, n]/2 + S2[a1, a1, SP[a3, a4], a2, a2, 
     n] + S2[a3, n]*S2[a1, a2, a1, a2, a4, n] + 
    3*S2[a1, a2, a1, a2, SP[a3, a4], n] - 
    (3*S2[a2, n]*S2[a1, a2, a1, a3, a4, n])/2 - 
    (3*S2[a1, a2, a1, a3, SP[a2, a4], n])/2 + 
    S2[a3, n]*S2[a1, a2, a1, a4, a2, n] - 
    (3*S2[a2, n]*S2[a1, a2, a1, a4, a3, n])/2 + 
    S2[a1, a2, a1, a4, SP[a2, a3], n]/2 + S2[a1, a2, a1, SP[a2, a3], a4, n]/
     2 - S2[a1, a2, a1, SP[a2, a4], a3, n]/2 + 
    2*S2[a1, a2, a1, SP[a3, a4], a2, n] + 
    S2[a3, n]*S2[a1, a2, a2, a1, a4, n] + 
    3*S2[a1, a2, a2, a1, SP[a3, a4], n] + 
    3*S2[a1, a2, a2, SP[a1, a3], a4, n] - 
    (3*S2[a2, n]*S2[a1, a2, a3, a1, a4, n])/2 - 
    (3*S2[a1, a2, a3, a1, SP[a2, a4], n])/2 - 
    (3*S2[a1, a2, a3, SP[a1, a2], a4, n])/2 - 
    S2[a1, a2, SP[a1, a2], a3, a4, n]/2 - S2[a1, a2, SP[a1, a2], a4, a3, n]/
     2 + 2*S2[a1, a2, SP[a1, a3], a2, a4, n] + 
    2*S2[a1, a2, SP[a1, a3], a4, a2, n] + S2[a1, a2, SP[a2, a3], a1, a4, n]/
     2 - (S2[a2, n]*S2[a1, a3, a1, a2, a4, n])/2 - 
    S2[a1, a3, a1, a2, SP[a2, a4], n]/2 - 
    (S2[a2, n]*S2[a1, a3, a1, a4, a2, n])/2 - 
    S2[a1, a3, a1, a4, SP[a2, a2], n]/2 - S2[a1, a3, a1, SP[a2, a2], a4, n]/
     2 - S2[a1, a3, a1, SP[a2, a4], a2, n]/2 - 
    (S2[a2, n]*S2[a1, a3, a2, a1, a4, n])/2 - 
    S2[a1, a3, a2, a1, SP[a2, a4], n]/2 - S2[a1, a3, a2, SP[a1, a2], a4, n]/
     2 - S2[a1, a3, SP[a1, a2], a2, a4, n]/2 - 
    S2[a1, a3, SP[a1, a2], a4, a2, n]/2 - S2[a1, a3, SP[a2, a2], a1, a4, n]/
     2 - S2[a1, SP[a1, a2], a2, a3, a4, n]/2 - 
    S2[a1, SP[a1, a2], a2, a4, a3, n]/2 + S2[a1, SP[a1, a2], a3, a2, a4, n]/
     2 + S2[a1, SP[a1, a2], a3, a4, a2, n]/2 - 
    S2[a1, SP[a1, a2], a4, a2, a3, n]/2 + S2[a1, SP[a1, a2], a4, a3, a2, n]/
     2 + S2[a1, SP[a1, a3], a2, a2, a4, n] + S2[a1, SP[a1, a3], a2, a4, a2, 
     n] + S2[a1, SP[a1, a3], a4, a2, a2, n] - 
    S2[a1, SP[a2, a2], a1, a3, a4, n]/2 - S2[a1, SP[a2, a2], a1, a4, a3, n]/
     2 - S2[a1, SP[a2, a2], a3, a1, a4, n]/2 + 
    S2[a1, SP[a2, a3], a1, a2, a4, n]/2 + S2[a1, SP[a2, a3], a1, a4, a2, n]/
     2 + S2[a1, SP[a2, a3], a2, a1, a4, n]/2 + 
    2*S2[a2, a1, a1, a2, SP[a3, a4], n] - 
    (S2[a2, n]*S2[a2, a1, a1, a3, a4, n])/2 - 
    S2[a2, a1, a1, a3, SP[a2, a4], n]/2 - 
    (S2[a2, n]*S2[a2, a1, a1, a4, a3, n])/2 + 
    S2[a2, a1, a1, a4, SP[a2, a3], n]/2 + S2[a2, a1, a1, SP[a2, a3], a4, n]/
     2 + S2[a2, a1, a1, SP[a2, a4], a3, n]/2 + S2[a2, a1, a1, SP[a3, a4], a2, 
     n] + 2*S2[a2, a1, a2, a1, SP[a3, a4], n] + 
    2*S2[a2, a1, a2, SP[a1, a3], a4, n] - 
    (S2[a2, n]*S2[a2, a1, a3, a1, a4, n])/2 - 
    S2[a2, a1, a3, a1, SP[a2, a4], n]/2 - S2[a2, a1, a3, SP[a1, a2], a4, n]/
     2 + S2[a2, a1, SP[a1, a2], a3, a4, n]/2 + 
    S2[a2, a1, SP[a1, a2], a4, a3, n]/2 + S2[a2, a1, SP[a1, a3], a2, a4, n] + 
    S2[a2, a1, SP[a1, a3], a4, a2, n] + S2[a2, a1, SP[a2, a3], a1, a4, n]/2 + 
    S2[a2, a2, a1, a1, SP[a3, a4], n] + S2[a2, a2, a1, SP[a1, a3], a4, n] + 
    S2[a2, a2, SP[a1, a3], a1, a4, n] - (S2[a2, n]*S2[a2, a3, a1, a1, a4, n])/
     2 - S2[a2, a3, a1, a1, SP[a2, a4], n]/2 - 
    S2[a2, a3, a1, SP[a1, a2], a4, n]/2 - S2[a2, a3, SP[a1, a2], a1, a4, n]/
     2 + S2[a2, SP[a1, a2], a1, a3, a4, n]/2 + 
    S2[a2, SP[a1, a2], a1, a4, a3, n]/2 + S2[a2, SP[a1, a2], a3, a1, a4, n]/
     2 + S2[a2, SP[a1, a3], a1, a2, a4, n] + S2[a2, SP[a1, a3], a1, a4, a2, 
     n] + S2[a2, SP[a1, a3], a2, a1, a4, n] - 
    S2[a2, SP[a2, a3], a1, a1, a4, n]/2 - 
    (S2[a2, n]*S2[a3, a1, a1, a2, a4, n])/2 - 
    S2[a3, a1, a1, a2, SP[a2, a4], n]/2 - 
    (S2[a2, n]*S2[a3, a1, a1, a4, a2, n])/2 - 
    S2[a3, a1, a1, a4, SP[a2, a2], n]/2 - S2[a3, a1, a1, SP[a2, a2], a4, n]/
     2 - S2[a3, a1, a1, SP[a2, a4], a2, n]/2 - 
    (S2[a2, n]*S2[a3, a1, a2, a1, a4, n])/2 - 
    S2[a3, a1, a2, a1, SP[a2, a4], n]/2 - S2[a3, a1, a2, SP[a1, a2], a4, n]/
     2 - S2[a3, a1, SP[a1, a2], a2, a4, n]/2 - 
    S2[a3, a1, SP[a1, a2], a4, a2, n]/2 - S2[a3, a1, SP[a2, a2], a1, a4, n]/
     2 + (S2[a2, n]*S2[a3, a2, a1, a1, a4, n])/2 + 
    S2[a3, a2, a1, a1, SP[a2, a4], n]/2 + S2[a3, a2, a1, SP[a1, a2], a4, n]/
     2 + S2[a3, a2, SP[a1, a2], a1, a4, n]/2 - 
    S2[a3, SP[a1, a2], a1, a2, a4, n]/2 - S2[a3, SP[a1, a2], a1, a4, a2, n]/
     2 - S2[a3, SP[a1, a2], a2, a1, a4, n]/2 + 
    S2[a3, SP[a2, a2], a1, a1, a4, n]/2 - S2[SP[a1, a1], a2, a2, a3, a4, n] - 
    S2[SP[a1, a1], a2, a2, a4, a3, n] - S2[SP[a1, a1], a2, a4, a2, a3, n] - 
    S2[SP[a1, a1], a4, a2, a2, a3, n] + S2[SP[a1, a2], a1, a2, a3, a4, n]/2 + 
    S2[SP[a1, a2], a1, a2, a4, a3, n]/2 + S2[SP[a1, a2], a1, a3, a2, a4, n]/
     2 + S2[SP[a1, a2], a1, a3, a4, a2, n]/2 + 
    S2[SP[a1, a2], a1, a4, a2, a3, n]/2 + S2[SP[a1, a2], a1, a4, a3, a2, n]/
     2 + S2[SP[a1, a2], a2, a1, a3, a4, n]/2 + 
    S2[SP[a1, a2], a2, a1, a4, a3, n]/2 + S2[SP[a1, a2], a2, a3, a1, a4, n]/
     2 + S2[SP[a1, a2], a3, a1, a2, a4, n]/2 + 
    S2[SP[a1, a2], a3, a1, a4, a2, n]/2 + S2[SP[a1, a2], a3, a2, a1, a4, n]/
     2 + S2[SP[a1, a3], a1, a2, a2, a4, n] + S2[SP[a1, a3], a1, a2, a4, a2, 
     n] + S2[SP[a1, a3], a1, a4, a2, a2, n] + S2[SP[a1, a3], a2, a1, a2, a4, 
     n] + S2[SP[a1, a3], a2, a1, a4, a2, n] + S2[SP[a1, a3], a2, a2, a1, a4, 
     n] + S2[SP[a1, a4], a1, a2, a2, a3, n] - 
    S2[SP[a2, a2], a1, a1, a3, a4, n]/2 - S2[SP[a2, a2], a1, a1, a4, a3, n]/
     2 - S2[SP[a2, a2], a1, a3, a1, a4, n]/2 - 
    S2[SP[a2, a2], a3, a1, a1, a4, n]/2 - S2[SP[a2, a3], a1, a1, a2, a4, n]/
     2 - S2[SP[a2, a3], a1, a1, a4, a2, n]/2 - 
    S2[SP[a2, a3], a1, a2, a1, a4, n]/2 + S2[SP[a2, a3], a2, a1, a1, a4, n]/
     2 - S2[a4, a1, a1, a2, a2, a3, n] /; 
   MyMemberQ[{{a1, a2}, {a3, a4}}, {a1, a1, a2, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a3_, a2_, a2_, a1_, a4_, a1_, n_] :> 
  -2*S2[a1, a1, a4, n]*S2[a2, a2, a3, n] - 
    2*S2[SP[a1, a2], SP[a1, a2], SP[a3, a4], n] - 
    2*S2[a2, a3, n]*S2[a1, a1, a2, a4, n] - 2*S2[a2, a3, n]*
     S2[a1, a1, a4, a2, n] + 2*S2[a1, a1, SP[a2, a2], SP[a3, a4], n] + 
    2*S2[a1, a1, SP[a2, a4], SP[a2, a3], n] - 
    S2[a2, a3, n]*S2[a1, a2, a1, a4, n] + S2[a1, a4, n]*
     S2[a1, a2, a2, a3, n] + 2*S2[a1, a2, SP[a1, a2], SP[a3, a4], n] + 
    3*S2[a1, SP[a1, a2], a2, SP[a3, a4], n] + 
    2*S2[a1, SP[a1, a2], a4, SP[a2, a3], n] + 
    2*S2[a1, SP[a1, a2], SP[a2, a3], a4, n] + S2[a1, SP[a1, a2], SP[a2, a4], 
     a3, n] + 2*S2[a1, SP[a1, a2], SP[a3, a4], a2, n] + 
    S2[a1, SP[a2, a2], a1, SP[a3, a4], n] + S2[a1, SP[a2, a2], SP[a1, a3], 
     a4, n] + 2*S2[a2, a1, SP[a1, a2], SP[a3, a4], n] + 
    2*S2[a2, SP[a1, a2], a1, SP[a3, a4], n] + 
    2*S2[a2, SP[a1, a2], SP[a1, a3], a4, n] - S2[SP[a1, a1], a2, a2, 
     SP[a3, a4], n] - S2[SP[a1, a1], a2, SP[a2, a4], a3, n] - 
    S2[SP[a1, a1], SP[a2, a4], a2, a3, n] + 
    4*S2[SP[a1, a2], a1, a2, SP[a3, a4], n] + 
    2*S2[SP[a1, a2], a1, a4, SP[a2, a3], n] + 
    2*S2[SP[a1, a2], a1, SP[a2, a3], a4, n] + 
    2*S2[SP[a1, a2], a1, SP[a2, a4], a3, n] + 
    2*S2[SP[a1, a2], a1, SP[a3, a4], a2, n] + 
    3*S2[SP[a1, a2], a2, a1, SP[a3, a4], n] + 
    3*S2[SP[a1, a2], a2, SP[a1, a3], a4, n] + 
    2*S2[SP[a1, a2], SP[a1, a2], a3, a4, n] + 
    2*S2[SP[a1, a2], SP[a1, a2], a4, a3, n] + 
    2*S2[SP[a1, a2], SP[a1, a3], a2, a4, n] + 
    2*S2[SP[a1, a2], SP[a1, a3], a4, a2, n] + S2[SP[a1, a2], SP[a2, a3], a1, 
     a4, n] - 2*S2[a3, n]*S2[a1, a1, a2, a2, a4, n] - 
    6*S2[a1, a1, a2, a2, SP[a3, a4], n] + 
    3*S2[a2, n]*S2[a1, a1, a2, a3, a4, n] + 
    3*S2[a1, a1, a2, a3, SP[a2, a4], n] - 
    2*S2[a3, n]*S2[a1, a1, a2, a4, a2, n] + 
    3*S2[a2, n]*S2[a1, a1, a2, a4, a3, n] - S2[a1, a1, a2, a4, SP[a2, a3], 
     n] - S2[a1, a1, a2, SP[a2, a3], a4, n] + S2[a1, a1, a2, SP[a2, a4], a3, 
     n] - 4*S2[a1, a1, a2, SP[a3, a4], a2, n] + 
    S2[a2, n]*S2[a1, a1, a3, a2, a4, n] + S2[a1, a1, a3, a2, SP[a2, a4], n] + 
    S2[a2, n]*S2[a1, a1, a3, a4, a2, n] + S2[a1, a1, a3, a4, SP[a2, a2], n] + 
    S2[a1, a1, a3, SP[a2, a2], a4, n] + S2[a1, a1, a3, SP[a2, a4], a2, n] - 
    2*S2[a3, n]*S2[a1, a1, a4, a2, a2, n] + 
    3*S2[a2, n]*S2[a1, a1, a4, a2, a3, n] - S2[a1, a1, a4, a2, SP[a2, a3], 
     n] + S2[a2, n]*S2[a1, a1, a4, a3, a2, n] + S2[a1, a1, a4, a3, 
     SP[a2, a2], n] + S2[a1, a1, a4, SP[a2, a2], a3, n] - 
    S2[a1, a1, a4, SP[a2, a3], a2, n] + S2[a1, a1, SP[a2, a2], a3, a4, n] + 
    S2[a1, a1, SP[a2, a2], a4, a3, n] - S2[a1, a1, SP[a2, a3], a2, a4, n] - 
    S2[a1, a1, SP[a2, a3], a4, a2, n] + S2[a1, a1, SP[a2, a4], a2, a3, n] - 
    S2[a1, a1, SP[a2, a4], a3, a2, n] - 2*S2[a1, a1, SP[a3, a4], a2, a2, n] - 
    S2[a3, n]*S2[a1, a2, a1, a2, a4, n] - 
    5*S2[a1, a2, a1, a2, SP[a3, a4], n] + 
    2*S2[a2, n]*S2[a1, a2, a1, a3, a4, n] + 
    2*S2[a1, a2, a1, a3, SP[a2, a4], n] - 
    S2[a3, n]*S2[a1, a2, a1, a4, a2, n] + 
    2*S2[a2, n]*S2[a1, a2, a1, a4, a3, n] - S2[a1, a2, a1, a4, SP[a2, a3], 
     n] - S2[a1, a2, a1, SP[a2, a3], a4, n] - 
    3*S2[a1, a2, a1, SP[a3, a4], a2, n] - 
    S2[a3, n]*S2[a1, a2, a2, a1, a4, n] - 
    4*S2[a1, a2, a2, a1, SP[a3, a4], n] - 
    4*S2[a1, a2, a2, SP[a1, a3], a4, n] + 
    2*S2[a2, n]*S2[a1, a2, a3, a1, a4, n] + 
    2*S2[a1, a2, a3, a1, SP[a2, a4], n] + 
    2*S2[a1, a2, a3, SP[a1, a2], a4, n] - 
    3*S2[a1, a2, SP[a1, a3], a2, a4, n] - 
    3*S2[a1, a2, SP[a1, a3], a4, a2, n] + 
    S2[a2, n]*S2[a1, a3, a1, a2, a4, n] + S2[a1, a3, a1, a2, SP[a2, a4], n] + 
    S2[a2, n]*S2[a1, a3, a1, a4, a2, n] + S2[a1, a3, a1, a4, SP[a2, a2], n] + 
    S2[a1, a3, a1, SP[a2, a2], a4, n] + S2[a1, a3, a1, SP[a2, a4], a2, n] + 
    S2[a1, a3, SP[a1, a2], a2, a4, n] + S2[a1, a3, SP[a1, a2], a4, a2, n] - 
    S2[a1, SP[a1, a2], a3, a2, a4, n] - S2[a1, SP[a1, a2], a3, a4, a2, n] - 
    S2[a1, SP[a1, a2], a4, a3, a2, n] - 2*S2[a1, SP[a1, a3], a2, a2, a4, n] - 
    2*S2[a1, SP[a1, a3], a2, a4, a2, n] - 
    2*S2[a1, SP[a1, a3], a4, a2, a2, n] + S2[a1, SP[a1, a4], a2, a2, a3, n] + 
    S2[a1, SP[a2, a2], a1, a3, a4, n] + S2[a1, SP[a2, a2], a1, a4, a3, n] + 
    S2[a1, SP[a2, a2], a3, a1, a4, n] - S2[a1, SP[a2, a3], a2, a1, a4, n] - 
    4*S2[a2, a1, a1, a2, SP[a3, a4], n] + 
    S2[a2, n]*S2[a2, a1, a1, a3, a4, n] + S2[a2, a1, a1, a3, SP[a2, a4], n] + 
    S2[a2, n]*S2[a2, a1, a1, a4, a3, n] - S2[a2, a1, a1, a4, SP[a2, a3], n] - 
    S2[a2, a1, a1, SP[a2, a3], a4, n] - S2[a2, a1, a1, SP[a2, a4], a3, n] - 
    2*S2[a2, a1, a1, SP[a3, a4], a2, n] - 
    3*S2[a2, a1, a2, a1, SP[a3, a4], n] - 
    3*S2[a2, a1, a2, SP[a1, a3], a4, n] + 
    S2[a2, n]*S2[a2, a1, a3, a1, a4, n] + S2[a2, a1, a3, a1, SP[a2, a4], n] + 
    S2[a2, a1, a3, SP[a1, a2], a4, n] - S2[a2, a1, SP[a1, a2], a3, a4, n] - 
    S2[a2, a1, SP[a1, a2], a4, a3, n] - 2*S2[a2, a1, SP[a1, a3], a2, a4, n] - 
    2*S2[a2, a1, SP[a1, a3], a4, a2, n] - 
    2*S2[a2, a2, a1, a1, SP[a3, a4], n] - 
    2*S2[a2, a2, a1, SP[a1, a3], a4, n] - 
    2*S2[a2, a2, SP[a1, a3], a1, a4, n] + 
    S2[a2, n]*S2[a2, a3, a1, a1, a4, n] + S2[a2, a3, a1, a1, SP[a2, a4], n] + 
    S2[a2, a3, a1, SP[a1, a2], a4, n] + S2[a2, a3, SP[a1, a2], a1, a4, n] - 
    S2[a2, SP[a1, a2], a1, a3, a4, n] - S2[a2, SP[a1, a2], a1, a4, a3, n] - 
    S2[a2, SP[a1, a2], a3, a1, a4, n] - 2*S2[a2, SP[a1, a3], a1, a2, a4, n] - 
    2*S2[a2, SP[a1, a3], a1, a4, a2, n] - S2[a2, SP[a1, a3], a2, a1, a4, n] + 
    S2[a2, SP[a2, a3], a1, a1, a4, n] + S2[a2, n]*S2[a3, a1, a1, a2, a4, n] + 
    S2[a3, a1, a1, a2, SP[a2, a4], n] + S2[a2, n]*S2[a3, a1, a1, a4, a2, n] + 
    S2[a3, a1, a1, a4, SP[a2, a2], n] + S2[a3, a1, a1, SP[a2, a2], a4, n] + 
    S2[a3, a1, a1, SP[a2, a4], a2, n] + S2[a3, a1, SP[a1, a2], a2, a4, n] + 
    S2[a3, a1, SP[a1, a2], a4, a2, n] - S2[a2, n]*S2[a3, a2, a1, a1, a4, n] - 
    S2[a3, a2, a1, a1, SP[a2, a4], n] - S2[a3, a2, a1, SP[a1, a2], a4, n] + 
    S2[a1, n]*S2[a3, a2, a2, a1, a4, n] + S2[a3, a2, a2, a1, SP[a1, a4], n] + 
    S2[a3, a2, a2, SP[a1, a1], a4, n] + S2[a3, SP[a1, a2], a1, a2, a4, n] + 
    S2[a3, SP[a1, a2], a1, a4, a2, n] + S2[a3, SP[a1, a2], a2, a1, a4, n] - 
    S2[a3, SP[a2, a2], a1, a1, a4, n] - S2[a1, n]*S2[a4, a1, a2, a2, a3, n] - 
    S2[a4, a1, a2, a2, SP[a1, a3], n] - S2[a4, a1, a2, SP[a1, a2], a3, n] - 
    S2[a4, a1, SP[a1, a2], a2, a3, n] - S2[a4, SP[a1, a1], a2, a2, a3, n] + 
    S2[SP[a1, a1], a2, a2, a3, a4, n] + S2[SP[a1, a1], a2, a2, a4, a3, n] + 
    S2[SP[a1, a1], a2, a4, a2, a3, n] + S2[SP[a1, a1], a4, a2, a2, a3, n] - 
    S2[SP[a1, a2], a1, a2, a3, a4, n] - S2[SP[a1, a2], a1, a2, a4, a3, n] - 
    S2[SP[a1, a2], a1, a3, a2, a4, n] - S2[SP[a1, a2], a1, a3, a4, a2, n] - 
    S2[SP[a1, a2], a1, a4, a2, a3, n] - S2[SP[a1, a2], a1, a4, a3, a2, n] - 
    S2[SP[a1, a2], a2, a1, a3, a4, n] - S2[SP[a1, a2], a2, a1, a4, a3, n] - 
    S2[SP[a1, a2], a2, a3, a1, a4, n] - S2[SP[a1, a2], a3, a1, a2, a4, n] - 
    S2[SP[a1, a2], a3, a1, a4, a2, n] - S2[SP[a1, a2], a3, a2, a1, a4, n] - 
    2*S2[SP[a1, a3], a1, a2, a2, a4, n] - 
    2*S2[SP[a1, a3], a1, a2, a4, a2, n] - 
    2*S2[SP[a1, a3], a1, a4, a2, a2, n] - S2[SP[a1, a3], a2, a1, a2, a4, n] - 
    S2[SP[a1, a3], a2, a1, a4, a2, n] - S2[SP[a1, a4], a1, a2, a2, a3, n] + 
    S2[SP[a2, a2], a1, a1, a3, a4, n] + S2[SP[a2, a2], a1, a1, a4, a3, n] + 
    S2[SP[a2, a2], a1, a3, a1, a4, n] + S2[SP[a2, a2], a3, a1, a1, a4, n] + 
    S2[SP[a2, a3], a1, a1, a2, a4, n] + S2[SP[a2, a3], a1, a1, a4, a2, n] - 
    S2[SP[a2, a3], a2, a1, a1, a4, n] + 2*S2[a4, a1, a1, a2, a2, a3, n] + 
    S2[a4, a1, a2, a1, a2, a3, n] + S2[a4, a1, a2, a2, a1, a3, n] + 
    S2[a4, a1, a2, a2, a3, a1, n] /; MyMemberQ[{{a1, a2}, {a3, a4}}, 
     {a1, a1, a2, a2, a3, a4}] && a1 != a2 != a3 != a4, 
 S2[a3_, a2_, a2_, a4_, a1_, a1_, n_] :> 
  S2[a1, a1, a4, n]*S2[a2, a2, a3, n] + S2[SP[a1, a2], SP[a1, a2], 
     SP[a3, a4], n] + S2[a2, a3, n]*S2[a1, a1, a4, a2, n] - 
    S2[a1, a1, SP[a2, a4], SP[a2, a3], n] - S2[a1, a2, SP[a1, a2], 
     SP[a3, a4], n] - S2[a1, SP[a1, a2], a2, SP[a3, a4], n] - 
    S2[a1, SP[a1, a2], a4, SP[a2, a3], n] - S2[a1, SP[a1, a2], SP[a2, a4], 
     a3, n] - S2[a1, SP[a1, a2], SP[a3, a4], a2, n] - 
    S2[a2, a1, SP[a1, a2], SP[a3, a4], n] - S2[a2, SP[a1, a2], a1, 
     SP[a3, a4], n] - S2[a2, SP[a1, a2], SP[a1, a3], a4, n] - 
    S2[SP[a1, a2], a1, a2, SP[a3, a4], n] - S2[SP[a1, a2], a1, a4, 
     SP[a2, a3], n] - S2[SP[a1, a2], a1, SP[a2, a4], a3, n] - 
    S2[SP[a1, a2], a1, SP[a3, a4], a2, n] - S2[SP[a1, a2], a2, a1, 
     SP[a3, a4], n] - S2[SP[a1, a2], a2, SP[a1, a3], a4, n] - 
    S2[SP[a1, a2], SP[a1, a2], a3, a4, n] - S2[SP[a1, a2], SP[a1, a2], a4, 
     a3, n] - S2[SP[a1, a2], SP[a1, a3], a4, a2, n] + 
    S2[a1, a1, a2, a2, SP[a3, a4], n] - (S2[a2, n]*S2[a1, a1, a2, a3, a4, n])/
     2 - S2[a1, a1, a2, a3, SP[a2, a4], n]/2 - 
    (S2[a2, n]*S2[a1, a1, a2, a4, a3, n])/2 + 
    S2[a1, a1, a2, a4, SP[a2, a3], n]/2 - S2[a1, a1, a2, SP[a2, a3], a4, n]/
     2 + S2[a1, a1, a2, SP[a2, a4], a3, n]/2 + S2[a1, a1, a2, SP[a3, a4], a2, 
     n] + (S2[a2, n]*S2[a1, a1, a3, a2, a4, n])/2 + 
    S2[a1, a1, a3, a2, SP[a2, a4], n]/2 - 
    (S2[a2, n]*S2[a1, a1, a3, a4, a2, n])/2 - 
    S2[a1, a1, a3, a4, SP[a2, a2], n]/2 + S2[a1, a1, a3, SP[a2, a2], a4, n]/
     2 - S2[a1, a1, a3, SP[a2, a4], a2, n]/2 + 
    S2[a3, n]*S2[a1, a1, a4, a2, a2, n] - 
    (3*S2[a2, n]*S2[a1, a1, a4, a2, a3, n])/2 + 
    S2[a1, a1, a4, a2, SP[a2, a3], n]/2 - 
    (S2[a2, n]*S2[a1, a1, a4, a3, a2, n])/2 - 
    S2[a1, a1, a4, a3, SP[a2, a2], n]/2 - S2[a1, a1, a4, SP[a2, a2], a3, n]/
     2 + S2[a1, a1, a4, SP[a2, a3], a2, n]/2 - 
    S2[a1, a1, SP[a2, a2], a3, a4, n]/2 - S2[a1, a1, SP[a2, a2], a4, a3, n]/
     2 + S2[a1, a1, SP[a2, a3], a2, a4, n]/2 - 
    S2[a1, a1, SP[a2, a3], a4, a2, n]/2 + S2[a1, a1, SP[a2, a4], a2, a3, n]/
     2 + S2[a1, a1, SP[a2, a4], a3, a2, n]/2 + S2[a1, a1, SP[a3, a4], a2, a2, 
     n] + S2[a1, a2, a1, a2, SP[a3, a4], n] - 
    (S2[a2, n]*S2[a1, a2, a1, a3, a4, n])/2 - 
    S2[a1, a2, a1, a3, SP[a2, a4], n]/2 - 
    (S2[a2, n]*S2[a1, a2, a1, a4, a3, n])/2 + 
    S2[a1, a2, a1, a4, SP[a2, a3], n]/2 - S2[a1, a2, a1, SP[a2, a3], a4, n]/
     2 + S2[a1, a2, a1, SP[a2, a4], a3, n]/2 + S2[a1, a2, a1, SP[a3, a4], a2, 
     n] + S2[a1, a2, a2, a1, SP[a3, a4], n] + S2[a1, a2, a2, SP[a1, a3], a4, 
     n] - (S2[a2, n]*S2[a1, a2, a3, a1, a4, n])/2 - 
    S2[a1, a2, a3, a1, SP[a2, a4], n]/2 - S2[a1, a2, a3, SP[a1, a2], a4, n]/
     2 + S2[a1, a2, SP[a1, a2], a3, a4, n]/2 + 
    S2[a1, a2, SP[a1, a2], a4, a3, n]/2 + S2[a1, a2, SP[a1, a3], a4, a2, n] - 
    S2[a1, a2, SP[a2, a3], a1, a4, n]/2 + 
    (S2[a2, n]*S2[a1, a3, a1, a2, a4, n])/2 + 
    S2[a1, a3, a1, a2, SP[a2, a4], n]/2 - 
    (S2[a2, n]*S2[a1, a3, a1, a4, a2, n])/2 - 
    S2[a1, a3, a1, a4, SP[a2, a2], n]/2 + S2[a1, a3, a1, SP[a2, a2], a4, n]/
     2 - S2[a1, a3, a1, SP[a2, a4], a2, n]/2 + 
    (S2[a2, n]*S2[a1, a3, a2, a1, a4, n])/2 + 
    S2[a1, a3, a2, a1, SP[a2, a4], n]/2 - 
    (S2[a1, n]*S2[a1, a3, a2, a2, a4, n])/2 - 
    S2[a1, a3, a2, a2, SP[a1, a4], n]/2 - S2[a1, a3, SP[a1, a2], a4, a2, n]/
     2 + S2[a1, a3, SP[a2, a2], a1, a4, n]/2 - 
    (S2[a1, n]*S2[a1, a4, a2, a2, a3, n])/2 - 
    S2[a1, a4, a2, a2, SP[a1, a3], n]/2 - S2[a1, a4, a2, SP[a1, a2], a3, n]/
     2 - S2[a1, a4, SP[a1, a2], a2, a3, n]/2 + 
    S2[a1, SP[a1, a2], a2, a3, a4, n]/2 + S2[a1, SP[a1, a2], a2, a4, a3, n]/
     2 + S2[a1, SP[a1, a2], a3, a2, a4, n]/2 + 
    S2[a1, SP[a1, a2], a3, a4, a2, n]/2 + S2[a1, SP[a1, a2], a4, a2, a3, n]/
     2 + S2[a1, SP[a1, a2], a4, a3, a2, n]/2 - 
    S2[a1, SP[a1, a3], a2, a2, a4, n]/2 + S2[a1, SP[a1, a3], a4, a2, a2, n] - 
    S2[a1, SP[a1, a4], a2, a2, a3, n]/2 - S2[a1, SP[a2, a2], a1, a3, a4, n]/
     2 - S2[a1, SP[a2, a2], a1, a4, a3, n]/2 - 
    S2[a1, SP[a2, a2], a3, a1, a4, n]/2 + S2[a1, SP[a2, a3], a1, a2, a4, n]/
     2 - S2[a1, SP[a2, a3], a1, a4, a2, n]/2 + 
    S2[a1, SP[a2, a3], a2, a1, a4, n]/2 + S2[a2, a1, a1, a2, SP[a3, a4], n] - 
    (S2[a2, n]*S2[a2, a1, a1, a3, a4, n])/2 - 
    S2[a2, a1, a1, a3, SP[a2, a4], n]/2 - 
    (S2[a2, n]*S2[a2, a1, a1, a4, a3, n])/2 + 
    S2[a2, a1, a1, a4, SP[a2, a3], n]/2 - S2[a2, a1, a1, SP[a2, a3], a4, n]/
     2 + S2[a2, a1, a1, SP[a2, a4], a3, n]/2 + S2[a2, a1, a1, SP[a3, a4], a2, 
     n] + S2[a2, a1, a2, a1, SP[a3, a4], n] + S2[a2, a1, a2, SP[a1, a3], a4, 
     n] - (S2[a2, n]*S2[a2, a1, a3, a1, a4, n])/2 - 
    S2[a2, a1, a3, a1, SP[a2, a4], n]/2 - S2[a2, a1, a3, SP[a1, a2], a4, n]/
     2 + S2[a2, a1, SP[a1, a2], a3, a4, n]/2 + 
    S2[a2, a1, SP[a1, a2], a4, a3, n]/2 + S2[a2, a1, SP[a1, a3], a4, a2, n] - 
    S2[a2, a1, SP[a2, a3], a1, a4, n]/2 + S2[a2, a2, a1, a1, SP[a3, a4], n] + 
    S2[a2, a2, a1, SP[a1, a3], a4, n] + S2[a2, a2, SP[a1, a3], a1, a4, n] - 
    (S2[a2, n]*S2[a2, a3, a1, a1, a4, n])/2 - 
    S2[a2, a3, a1, a1, SP[a2, a4], n]/2 - S2[a2, a3, a1, SP[a1, a2], a4, n]/
     2 - S2[a2, a3, SP[a1, a2], a1, a4, n]/2 + 
    S2[a2, SP[a1, a2], a1, a3, a4, n]/2 + S2[a2, SP[a1, a2], a1, a4, a3, n]/
     2 + S2[a2, SP[a1, a2], a3, a1, a4, n]/2 + S2[a2, SP[a1, a3], a1, a4, a2, 
     n] - S2[a2, SP[a2, a3], a1, a1, a4, n]/2 + 
    (S2[a2, n]*S2[a3, a1, a1, a2, a4, n])/2 + 
    S2[a3, a1, a1, a2, SP[a2, a4], n]/2 - 
    (S2[a2, n]*S2[a3, a1, a1, a4, a2, n])/2 - 
    S2[a3, a1, a1, a4, SP[a2, a2], n]/2 + S2[a3, a1, a1, SP[a2, a2], a4, n]/
     2 - S2[a3, a1, a1, SP[a2, a4], a2, n]/2 + 
    (S2[a2, n]*S2[a3, a1, a2, a1, a4, n])/2 + 
    S2[a3, a1, a2, a1, SP[a2, a4], n]/2 - 
    (S2[a1, n]*S2[a3, a1, a2, a2, a4, n])/2 - 
    S2[a3, a1, a2, a2, SP[a1, a4], n]/2 - S2[a3, a1, SP[a1, a2], a4, a2, n]/
     2 + S2[a3, a1, SP[a2, a2], a1, a4, n]/2 + 
    (S2[a2, n]*S2[a3, a2, a1, a1, a4, n])/2 + 
    S2[a3, a2, a1, a1, SP[a2, a4], n]/2 - 
    (S2[a1, n]*S2[a3, a2, a1, a2, a4, n])/2 - 
    S2[a3, a2, a1, a2, SP[a1, a4], n]/2 - 
    (S2[a1, n]*S2[a3, a2, a2, a1, a4, n])/2 - 
    S2[a3, a2, a2, a1, SP[a1, a4], n]/2 + 
    (S2[a1, n]*S2[a3, a2, a2, a4, a1, n])/2 + 
    S2[a3, a2, a2, a4, SP[a1, a1], n]/2 - S2[a3, a2, a2, SP[a1, a1], a4, n]/
     2 + S2[a3, a2, a2, SP[a1, a4], a1, n]/2 - 
    S2[a3, a2, SP[a1, a1], a2, a4, n]/2 + S2[a3, a2, SP[a1, a2], a4, a1, n]/
     2 - S2[a3, SP[a1, a1], a2, a2, a4, n]/2 - 
    S2[a3, SP[a1, a2], a1, a4, a2, n]/2 + S2[a3, SP[a1, a2], a2, a4, a1, n]/
     2 + S2[a3, SP[a2, a2], a1, a1, a4, n]/2 + 
    (S2[a1, n]*S2[a4, a1, a2, a2, a3, n])/2 + 
    S2[a4, a1, a2, a2, SP[a1, a3], n]/2 + S2[a4, a1, a2, SP[a1, a2], a3, n]/
     2 + S2[a4, a1, SP[a1, a2], a2, a3, n]/2 + 
    (S2[a1, n]*S2[a4, a2, a1, a2, a3, n])/2 + 
    S2[a4, a2, a1, a2, SP[a1, a3], n]/2 + S2[a4, a2, a1, SP[a1, a2], a3, n]/
     2 + (S2[a1, n]*S2[a4, a2, a2, a1, a3, n])/2 + 
    S2[a4, a2, a2, a1, SP[a1, a3], n]/2 + 
    (S2[a1, n]*S2[a4, a2, a2, a3, a1, n])/2 + 
    S2[a4, a2, a2, a3, SP[a1, a1], n]/2 + S2[a4, a2, a2, SP[a1, a1], a3, n]/
     2 + S2[a4, a2, a2, SP[a1, a3], a1, n]/2 + 
    S2[a4, a2, SP[a1, a1], a2, a3, n]/2 + S2[a4, a2, SP[a1, a2], a1, a3, n]/
     2 + S2[a4, a2, SP[a1, a2], a3, a1, n]/2 + 
    S2[a4, SP[a1, a1], a2, a2, a3, n]/2 + S2[a4, SP[a1, a2], a1, a2, a3, n]/
     2 + S2[a4, SP[a1, a2], a2, a1, a3, n]/2 + 
    S2[a4, SP[a1, a2], a2, a3, a1, n]/2 - S2[SP[a1, a1], a3, a2, a2, a4, n]/
     2 - S2[SP[a1, a1], a4, a2, a2, a3, n]/2 + 
    S2[SP[a1, a2], a1, a2, a3, a4, n]/2 + S2[SP[a1, a2], a1, a2, a4, a3, n]/
     2 + S2[SP[a1, a2], a1, a3, a2, a4, n]/2 + 
    S2[SP[a1, a2], a1, a3, a4, a2, n]/2 + S2[SP[a1, a2], a1, a4, a2, a3, n]/
     2 + S2[SP[a1, a2], a1, a4, a3, a2, n]/2 + 
    S2[SP[a1, a2], a2, a1, a3, a4, n]/2 + S2[SP[a1, a2], a2, a1, a4, a3, n]/
     2 + S2[SP[a1, a2], a2, a3, a1, a4, n]/2 + 
    S2[SP[a1, a2], a3, a1, a2, a4, n]/2 + S2[SP[a1, a2], a3, a1, a4, a2, n]/
     2 + S2[SP[a1, a2], a3, a2, a1, a4, n]/2 - 
    S2[SP[a1, a3], a1, a2, a2, a4, n]/2 + S2[SP[a1, a3], a1, a4, a2, a2, n] - 
    S2[SP[a1, a3], a2, a1, a2, a4, n]/2 - S2[SP[a1, a3], a2, a2, a1, a4, n]/
     2 + S2[SP[a1, a3], a2, a2, a4, a1, n]/2 + 
    S2[SP[a1, a4], a1, a2, a2, a3, n]/2 + S2[SP[a1, a4], a2, a1, a2, a3, n]/
     2 + S2[SP[a1, a4], a2, a2, a1, a3, n]/2 + 
    S2[SP[a1, a4], a2, a2, a3, a1, n]/2 - S2[SP[a2, a2], a1, a1, a3, a4, n]/
     2 - S2[SP[a2, a2], a1, a1, a4, a3, n]/2 - 
    S2[SP[a2, a2], a1, a3, a1, a4, n]/2 - S2[SP[a2, a2], a3, a1, a1, a4, n]/
     2 + S2[SP[a2, a3], a1, a1, a2, a4, n]/2 - 
    S2[SP[a2, a3], a1, a1, a4, a2, n]/2 + S2[SP[a2, a3], a1, a2, a1, a4, n]/
     2 + S2[SP[a2, a3], a2, a1, a1, a4, n]/2 - S2[a4, a1, a1, a2, a2, a3, 
     n] - S2[a4, a1, a2, a1, a2, a3, n] - S2[a4, a1, a2, a2, a1, a3, n] - 
    S2[a4, a1, a2, a2, a3, a1, n] - S2[a4, a2, a1, a1, a2, a3, n] - 
    S2[a4, a2, a1, a2, a1, a3, n] - S2[a4, a2, a1, a2, a3, a1, n] - 
    S2[a4, a2, a2, a1, a1, a3, n] - S2[a4, a2, a2, a1, a3, a1, n] - 
    S2[a4, a2, a2, a3, a1, a1, n] /; MyMemberQ[{{a1, a2}, {a3, a4}}, 
     {a1, a1, a2, a2, a3, a4}] && a1 != a2 != a3 != a4, 
 S2[a3_, a2_, a4_, a1_, a1_, a2_, n_] :> 
  -(S2[a2, a3, n]*S2[a1, a1, a2, a4, n]) - S2[a2, a3, n]*
     S2[a1, a1, a4, a2, n] + S2[a1, a1, SP[a2, a2], SP[a3, a4], n] + 
    S2[a1, a1, SP[a2, a4], SP[a2, a3], n] - S2[a2, a3, n]*
     S2[a1, a2, a1, a4, n] + S2[a1, a2, SP[a1, a2], SP[a3, a4], n] - 
    S2[a1, a2, n]*S2[a1, a3, a2, a4, n] - S2[a1, a2, n]*
     S2[a1, a3, a4, a2, n] + S2[a1, a3, SP[a1, a2], SP[a2, a4], n] + 
    S2[a1, a3, SP[a1, a4], SP[a2, a2], n] - S2[a1, a2, n]*
     S2[a1, a4, a3, a2, n] + S2[a1, a4, SP[a1, a3], SP[a2, a2], n] + 
    S2[a1, SP[a1, a2], a2, SP[a3, a4], n] + S2[a1, SP[a1, a2], a4, 
     SP[a2, a3], n] + S2[a1, SP[a1, a2], SP[a2, a3], a4, n] + 
    S2[a1, SP[a1, a2], SP[a3, a4], a2, n] + S2[a1, SP[a1, a3], a2, 
     SP[a2, a4], n] + S2[a1, SP[a1, a3], a4, SP[a2, a2], n] + 
    S2[a1, SP[a1, a3], SP[a2, a2], a4, n] + S2[a1, SP[a1, a3], SP[a2, a4], 
     a2, n] + S2[a1, SP[a1, a4], a3, SP[a2, a2], n] + 
    S2[a1, SP[a1, a4], SP[a2, a3], a2, n] + S2[a1, SP[a2, a2], a1, 
     SP[a3, a4], n] + S2[a1, SP[a2, a2], SP[a1, a3], a4, n] + 
    S2[a1, a2, n]*S2[a2, a3, a1, a4, n] - S2[a2, a3, SP[a1, a1], SP[a2, a4], 
     n] - S2[a2, SP[a1, a3], a1, SP[a2, a4], n] - 
    S2[a2, SP[a1, a3], SP[a1, a2], a4, n] + S2[SP[a1, a1], a3, a2, 
     SP[a2, a4], n] + S2[SP[a1, a1], a3, a4, SP[a2, a2], n] + 
    S2[SP[a1, a1], a3, SP[a2, a2], a4, n] + S2[SP[a1, a1], a3, SP[a2, a4], 
     a2, n] + S2[SP[a1, a1], a4, a3, SP[a2, a2], n] + 
    S2[SP[a1, a1], a4, SP[a2, a3], a2, n] + S2[SP[a1, a1], SP[a2, a3], a2, 
     a4, n] + S2[SP[a1, a1], SP[a2, a3], a4, a2, n] + 
    S2[SP[a1, a1], SP[a2, a4], a3, a2, n] + S2[SP[a1, a2], a1, a2, 
     SP[a3, a4], n] + S2[SP[a1, a2], a1, a4, SP[a2, a3], n] + 
    S2[SP[a1, a2], a1, SP[a2, a3], a4, n] + S2[SP[a1, a2], a1, SP[a3, a4], 
     a2, n] + S2[SP[a1, a2], a2, a1, SP[a3, a4], n] + 
    S2[SP[a1, a2], a2, SP[a1, a3], a4, n] - S2[SP[a1, a2], a3, a1, 
     SP[a2, a4], n] - S2[SP[a1, a2], a3, SP[a1, a2], a4, n] + 
    S2[SP[a1, a2], SP[a1, a3], a2, a4, n] + S2[SP[a1, a2], SP[a1, a3], a4, 
     a2, n] - 2*S2[a1, a1, a2, a2, SP[a3, a4], n] + 
    S2[a4, n]*S2[a1, a1, a2, a3, a2, n] + 
    S2[a2, n]*S2[a1, a1, a2, a3, a4, n] + 
    2*S2[a1, a1, a2, a3, SP[a2, a4], n] + 
    S2[a2, n]*S2[a1, a1, a2, a4, a3, n] + 
    2*S2[a4, n]*S2[a1, a1, a3, a2, a2, n] + 
    S2[a2, n]*S2[a1, a1, a3, a2, a4, n] + S2[a1, a1, a3, a2, SP[a2, a4], n] + 
    S2[a2, n]*S2[a1, a1, a3, a4, a2, n] - S2[a1, a1, a3, a4, SP[a2, a2], n] - 
    S2[a1, a1, a3, SP[a2, a2], a4, n] + S2[a1, a1, a3, SP[a2, a4], a2, n] + 
    S2[a2, n]*S2[a1, a1, a4, a2, a3, n] + 
    S2[a2, n]*S2[a1, a1, a4, a3, a2, n] - S2[a1, a1, a4, a3, SP[a2, a2], n] - 
    S2[a1, a1, a4, SP[a2, a3], a2, n] - S2[a1, a1, SP[a2, a3], a2, a4, n] - 
    S2[a1, a1, SP[a2, a3], a4, a2, n] - S2[a1, a1, SP[a2, a4], a3, a2, n] + 
    2*S2[a1, a1, SP[a3, a4], a2, a2, n] - 
    2*S2[a1, a2, a1, a2, SP[a3, a4], n] + 
    S2[a2, n]*S2[a1, a2, a1, a3, a4, n] + S2[a1, a2, a1, a3, SP[a2, a4], n] + 
    S2[a2, n]*S2[a1, a2, a1, a4, a3, n] - S2[a1, a2, a1, SP[a3, a4], a2, n] - 
    2*S2[a1, a2, a2, a1, SP[a3, a4], n] - 
    2*S2[a1, a2, a2, SP[a1, a3], a4, n] + S2[a1, a2, a3, a1, SP[a2, a4], n] + 
    S2[a1, a2, a3, SP[a1, a2], a4, n] - S2[a1, a2, SP[a1, a3], a2, a4, n] - 
    S2[a1, a2, SP[a1, a3], a4, a2, n] + 2*S2[a4, n]*
     S2[a1, a3, a1, a2, a2, n] + S2[a1, a3, a1, a2, SP[a2, a4], n] - 
    S2[a1, a3, a1, a4, SP[a2, a2], n] - S2[a1, a3, a1, SP[a2, a2], a4, n] + 
    S2[a1, a3, a1, SP[a2, a4], a2, n] + S2[a4, n]*S2[a1, a3, a2, a1, a2, n] - 
    S2[a1, a3, a4, a1, SP[a2, a2], n] - S2[a1, a3, a4, SP[a1, a2], a2, n] - 
    S2[a1, a3, SP[a1, a2], a2, a4, n] - S2[a1, a3, SP[a1, a2], a4, a2, n] + 
    S2[a1, a3, SP[a2, a4], a1, a2, n] - S2[a1, a4, a1, a3, SP[a2, a2], n] - 
    S2[a1, a4, a1, SP[a2, a3], a2, n] - S2[a1, a4, a3, a1, SP[a2, a2], n] - 
    S2[a1, a4, a3, SP[a1, a2], a2, n] - 2*S2[a1, a4, SP[a1, a3], a2, a2, n] - 
    S2[a1, SP[a1, a2], a3, a2, a4, n] - S2[a1, SP[a1, a2], a3, a4, a2, n] - 
    S2[a1, SP[a1, a2], a4, a3, a2, n] - 2*S2[a1, SP[a1, a3], a2, a2, a4, n] - 
    2*S2[a1, SP[a1, a3], a2, a4, a2, n] - 
    2*S2[a1, SP[a1, a3], a4, a2, a2, n] + 
    2*S2[a1, SP[a3, a4], a1, a2, a2, n] + S2[a1, SP[a3, a4], a2, a1, a2, n] - 
    S2[a2, a1, a1, a2, SP[a3, a4], n] - S2[a2, a1, a1, a4, SP[a2, a3], n] - 
    S2[a2, a1, a1, SP[a2, a3], a4, n] - S2[a2, a1, a1, SP[a3, a4], a2, n] - 
    S2[a2, a1, a2, a1, SP[a3, a4], n] - S2[a2, a1, a2, SP[a1, a3], a4, n] + 
    S2[a2, a1, a3, a1, SP[a2, a4], n] + S2[a2, a1, a3, SP[a1, a2], a4, n] - 
    S2[a2, a1, SP[a1, a3], a2, a4, n] - S2[a2, a1, SP[a1, a3], a4, a2, n] - 
    S2[a4, n]*S2[a2, a3, a1, a1, a2, n] + S2[a2, a3, a1, a1, SP[a2, a4], n] + 
    S2[a2, a3, a1, SP[a1, a2], a4, n] + S2[a2, a3, SP[a1, a1], a2, a4, n] + 
    S2[a2, a3, SP[a1, a1], a4, a2, n] - S2[a2, a3, SP[a1, a4], a1, a2, n] + 
    S2[a3, n]*S2[a2, a4, a1, a1, a2, n] + S2[a2, a4, a1, a1, SP[a2, a3], n] + 
    S2[a2, a4, a1, SP[a1, a3], a2, n] + S2[a2, a4, SP[a1, a3], a1, a2, n] - 
    S2[a2, n]*S2[a4, a1, a1, a2, a3, n] - S2[a4, a1, a1, a2, SP[a2, a3], n] - 
    S2[a2, n]*S2[a4, a1, a1, a3, a2, n] - S2[a4, a1, a1, a3, SP[a2, a2], n] - 
    S2[a4, a1, a1, SP[a2, a2], a3, n] - S2[a4, a1, a1, SP[a2, a3], a2, n] - 
    S2[a2, n]*S2[a4, a1, a3, a1, a2, n] - S2[a4, a1, a3, a1, SP[a2, a2], n] - 
    S2[a4, a1, a3, SP[a1, a2], a2, n] - S2[a4, a1, SP[a1, a2], a2, a3, n] - 
    S2[a4, a1, SP[a1, a2], a3, a2, n] - S2[a4, a1, SP[a2, a3], a1, a2, n] - 
    S2[a4, SP[a1, a2], a1, a2, a3, n] - S2[a4, SP[a1, a2], a1, a3, a2, n] - 
    S2[a4, SP[a1, a2], a3, a1, a2, n] - S2[SP[a1, a1], a2, a3, a2, a4, n] - 
    S2[SP[a1, a1], a2, a3, a4, a2, n] - S2[SP[a1, a1], a2, a4, a3, a2, n] - 
    2*S2[SP[a1, a1], a3, a2, a2, a4, n] - 
    2*S2[SP[a1, a1], a3, a2, a4, a2, n] - 
    2*S2[SP[a1, a1], a3, a4, a2, a2, n] - S2[SP[a1, a1], a4, a2, a3, a2, n] - 
    2*S2[SP[a1, a1], a4, a3, a2, a2, n] + S2[SP[a1, a4], a1, a2, a3, a2, n] + 
    2*S2[SP[a1, a4], a1, a3, a2, a2, n] + 
    2*S2[SP[a1, a4], a3, a1, a2, a2, n] + S2[SP[a1, a4], a3, a2, a1, a2, n] + 
    S2[SP[a2, a3], a4, a1, a1, a2, n] - S2[SP[a2, a4], a1, a1, a2, a3, n] - 
    S2[SP[a2, a4], a1, a1, a3, a2, n] - S2[SP[a2, a4], a1, a3, a1, a2, n] - 
    S2[SP[a2, a4], a3, a1, a1, a2, n] + 2*S2[a4, a1, a1, a2, a2, a3, n] + 
    S2[a4, a1, a1, a2, a3, a2, n] + S2[a4, a1, a2, a1, a2, a3, n] + 
    S2[a4, a1, a2, a1, a3, a2, n] + S2[a4, a1, a2, a3, a1, a2, n] + 
    S2[a4, a2, a1, a1, a2, a3, n] + S2[a4, a2, a1, a1, a3, a2, n] + 
    S2[a4, a2, a1, a3, a1, a2, n] + S2[a4, a2, a3, a1, a1, a2, n] /; 
   MyMemberQ[{{a1, a2}, {a3, a4}}, {a1, a1, a2, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a3_, a2_, a4_, a1_, a2_, a1_, n_] :> 
  S2[a2, a3, n]*S2[a1, a2, a1, a4, n] - S2[a1, a2, SP[a1, a2], SP[a3, a4], 
     n] + S2[a1, a2, n]*S2[a1, a3, a2, a4, n] + 
    S2[a1, a2, n]*S2[a1, a3, a4, a2, n] - S2[a1, a3, SP[a1, a2], SP[a2, a4], 
     n] - S2[a1, a3, SP[a1, a4], SP[a2, a2], n] + 
    S2[a1, a2, n]*S2[a1, a4, a3, a2, n] - S2[a1, a4, SP[a1, a3], SP[a2, a2], 
     n] - S2[a1, SP[a1, a3], a2, SP[a2, a4], n] - S2[a1, SP[a1, a3], a4, 
     SP[a2, a2], n] - S2[a1, SP[a1, a3], SP[a2, a2], a4, n] - 
    S2[a1, SP[a1, a3], SP[a2, a4], a2, n] - S2[a1, SP[a1, a4], a3, 
     SP[a2, a2], n] - S2[a1, SP[a1, a4], SP[a2, a3], a2, n] - 
    S2[a1, SP[a2, a2], a1, SP[a3, a4], n] - S2[a1, SP[a2, a2], SP[a1, a3], 
     a4, n] - S2[a1, a2, n]*S2[a2, a3, a1, a4, n] + 
    S2[a2, a3, SP[a1, a1], SP[a2, a4], n] + S2[a2, SP[a1, a3], a1, 
     SP[a2, a4], n] + S2[a2, SP[a1, a3], SP[a1, a2], a4, n] - 
    S2[SP[a1, a1], a3, a2, SP[a2, a4], n] - S2[SP[a1, a1], a3, a4, 
     SP[a2, a2], n] - S2[SP[a1, a1], a3, SP[a2, a2], a4, n] - 
    S2[SP[a1, a1], a3, SP[a2, a4], a2, n] - S2[SP[a1, a1], a4, a3, 
     SP[a2, a2], n] - S2[SP[a1, a1], a4, SP[a2, a3], a2, n] - 
    S2[SP[a1, a1], SP[a2, a3], a2, a4, n] - S2[SP[a1, a1], SP[a2, a3], a4, 
     a2, n] - S2[SP[a1, a1], SP[a2, a4], a3, a2, n] - 
    S2[SP[a1, a2], a2, a1, SP[a3, a4], n] - S2[SP[a1, a2], a2, SP[a1, a3], 
     a4, n] + S2[SP[a1, a2], a3, a1, SP[a2, a4], n] + 
    S2[SP[a1, a2], a3, SP[a1, a2], a4, n] - 
    2*S2[a4, n]*S2[a1, a1, a2, a3, a2, n] - 
    2*S2[a1, a1, a2, a3, SP[a2, a4], n] - 
    2*S2[a1, a1, a2, SP[a3, a4], a2, n] - 
    4*S2[a4, n]*S2[a1, a1, a3, a2, a2, n] - 
    2*S2[a1, a1, a3, a2, SP[a2, a4], n] + 
    2*S2[a1, a1, a3, a4, SP[a2, a2], n] + 
    2*S2[a1, a1, a3, SP[a2, a2], a4, n] - 
    2*S2[a1, a1, a3, SP[a2, a4], a2, n] + 
    2*S2[a1, a1, a4, a3, SP[a2, a2], n] + 
    2*S2[a1, a1, a4, SP[a2, a3], a2, n] + 
    2*S2[a1, a1, SP[a2, a3], a2, a4, n] + 
    2*S2[a1, a1, SP[a2, a3], a4, a2, n] - 
    4*S2[a1, a1, SP[a3, a4], a2, a2, n] + S2[a1, a2, a1, a2, SP[a3, a4], n] - 
    S2[a2, n]*S2[a1, a2, a1, a3, a4, n] - S2[a1, a2, a1, a3, SP[a2, a4], n] - 
    S2[a2, n]*S2[a1, a2, a1, a4, a3, n] - S2[a1, a2, a1, a4, SP[a2, a3], n] - 
    S2[a1, a2, a1, SP[a2, a3], a4, n] + 2*S2[a1, a2, a2, a1, SP[a3, a4], n] + 
    2*S2[a1, a2, a2, SP[a1, a3], a4, n] - S2[a1, a2, a3, a1, SP[a2, a4], n] - 
    S2[a1, a2, a3, SP[a1, a2], a4, n] - 4*S2[a4, n]*
     S2[a1, a3, a1, a2, a2, n] + S2[a2, n]*S2[a1, a3, a1, a2, a4, n] - 
    2*S2[a1, a3, a1, a2, SP[a2, a4], n] + 
    S2[a2, n]*S2[a1, a3, a1, a4, a2, n] + 
    2*S2[a1, a3, a1, a4, SP[a2, a2], n] + 
    2*S2[a1, a3, a1, SP[a2, a2], a4, n] - 
    2*S2[a1, a3, a1, SP[a2, a4], a2, n] - 
    2*S2[a4, n]*S2[a1, a3, a2, a1, a2, n] - S2[a1, a3, a2, a1, SP[a2, a4], 
     n] - S2[a1, a3, a2, SP[a1, a4], a2, n] + S2[a1, a3, a4, a1, SP[a2, a2], 
     n] + S2[a1, a3, a4, SP[a1, a2], a2, n] + 
    2*S2[a1, a3, SP[a1, a2], a2, a4, n] + 
    2*S2[a1, a3, SP[a1, a2], a4, a2, n] - 
    2*S2[a1, a3, SP[a1, a4], a2, a2, n] - 
    2*S2[a1, a3, SP[a2, a4], a1, a2, n] + 
    2*S2[a3, n]*S2[a1, a4, a1, a2, a2, n] + 
    2*S2[a1, a4, a1, a2, SP[a2, a3], n] + S2[a1, a4, a1, a3, SP[a2, a2], n] + 
    3*S2[a1, a4, a1, SP[a2, a3], a2, n] + 
    S2[a3, n]*S2[a1, a4, a2, a1, a2, n] + S2[a1, a4, a2, a1, SP[a2, a3], n] + 
    S2[a1, a4, a2, SP[a1, a3], a2, n] + S2[a1, a4, a3, a1, SP[a2, a2], n] + 
    S2[a1, a4, a3, SP[a1, a2], a2, n] + 4*S2[a1, a4, SP[a1, a3], a2, a2, n] + 
    S2[a1, a4, SP[a2, a3], a1, a2, n] + S2[a1, SP[a1, a2], a3, a2, a4, n] + 
    S2[a1, SP[a1, a2], a3, a4, a2, n] + S2[a1, SP[a1, a2], a4, a3, a2, n] + 
    2*S2[a1, SP[a1, a3], a2, a2, a4, n] + 
    2*S2[a1, SP[a1, a3], a2, a4, a2, n] + 
    2*S2[a1, SP[a1, a3], a4, a2, a2, n] - S2[a1, SP[a1, a4], a2, a3, a2, n] - 
    2*S2[a1, SP[a1, a4], a3, a2, a2, n] + S2[a1, SP[a2, a3], a1, a2, a4, n] + 
    S2[a1, SP[a2, a3], a1, a4, a2, n] - 2*S2[a1, SP[a3, a4], a1, a2, a2, n] - 
    S2[a1, SP[a3, a4], a2, a1, a2, n] + S2[a2, a1, a2, a1, SP[a3, a4], n] + 
    S2[a2, a1, a2, SP[a1, a3], a4, n] - S2[a2, a1, a3, a1, SP[a2, a4], n] - 
    S2[a2, a1, a3, SP[a1, a2], a4, n] + 2*S2[a4, n]*
     S2[a2, a3, a1, a1, a2, n] - S2[a2, a3, a1, SP[a1, a2], a4, n] + 
    S2[a2, a3, a1, SP[a1, a4], a2, n] - S2[a2, a3, SP[a1, a1], a2, a4, n] - 
    S2[a2, a3, SP[a1, a1], a4, a2, n] + 2*S2[a2, a3, SP[a1, a4], a1, a2, n] - 
    2*S2[a3, n]*S2[a2, a4, a1, a1, a2, n] - 
    2*S2[a2, a4, a1, a1, SP[a2, a3], n] - 
    2*S2[a2, a4, a1, SP[a1, a3], a2, n] - 
    2*S2[a2, a4, SP[a1, a3], a1, a2, n] - S2[a2, SP[a1, a3], a1, a2, a4, n] - 
    S2[a2, SP[a1, a3], a1, a4, a2, n] - S2[a2, n]*S2[a3, a1, a4, a1, a2, n] - 
    S2[a3, a1, a4, a1, SP[a2, a2], n] - S2[a3, a1, a4, SP[a1, a2], a2, n] - 
    S2[a3, a1, SP[a2, a4], a1, a2, n] + S2[a1, n]*S2[a3, a2, a4, a1, a2, n] + 
    S2[a3, a2, a4, a1, SP[a1, a2], n] + S2[a3, a2, a4, SP[a1, a1], a2, n] + 
    S2[a3, a2, SP[a1, a4], a1, a2, n] + 2*S2[a2, n]*
     S2[a4, a1, a1, a2, a3, n] + 2*S2[a4, a1, a1, a2, SP[a2, a3], n] + 
    2*S2[a2, n]*S2[a4, a1, a1, a3, a2, n] + 
    2*S2[a4, a1, a1, a3, SP[a2, a2], n] + 
    2*S2[a4, a1, a1, SP[a2, a2], a3, n] + 
    2*S2[a4, a1, a1, SP[a2, a3], a2, n] - 
    2*S2[a1, n]*S2[a4, a1, a2, a2, a3, n] - 
    2*S2[a4, a1, a2, a2, SP[a1, a3], n] - 
    S2[a1, n]*S2[a4, a1, a2, a3, a2, n] - S2[a4, a1, a2, a3, SP[a1, a2], n] - 
    2*S2[a4, a1, a2, SP[a1, a2], a3, n] - S2[a4, a1, a2, SP[a1, a3], a2, n] + 
    2*S2[a2, n]*S2[a4, a1, a3, a1, a2, n] + 
    2*S2[a4, a1, a3, a1, SP[a2, a2], n] + 
    2*S2[a4, a1, a3, SP[a1, a2], a2, n] + S2[a4, a1, SP[a1, a2], a3, a2, n] + 
    2*S2[a4, a1, SP[a2, a3], a1, a2, n] - 
    S2[a1, n]*S2[a4, a2, a1, a2, a3, n] - S2[a4, a2, a1, a2, SP[a1, a3], n] - 
    S2[a1, n]*S2[a4, a2, a1, a3, a2, n] - S2[a4, a2, a1, a3, SP[a1, a2], n] - 
    S2[a4, a2, a1, SP[a1, a2], a3, n] - S2[a4, a2, a1, SP[a1, a3], a2, n] - 
    S2[a1, n]*S2[a4, a2, a3, a1, a2, n] - S2[a4, a2, a3, a1, SP[a1, a2], n] - 
    S2[a4, a2, a3, SP[a1, a1], a2, n] - S2[a4, a2, SP[a1, a1], a2, a3, n] - 
    S2[a4, a2, SP[a1, a1], a3, a2, n] - S2[a4, a2, SP[a1, a3], a1, a2, n] - 
    2*S2[a4, SP[a1, a1], a2, a2, a3, n] - S2[a4, SP[a1, a1], a2, a3, a2, n] + 
    S2[a4, SP[a1, a2], a1, a2, a3, n] + S2[a4, SP[a1, a2], a1, a3, a2, n] + 
    S2[a4, SP[a1, a2], a3, a1, a2, n] + S2[SP[a1, a1], a2, a3, a2, a4, n] + 
    S2[SP[a1, a1], a2, a3, a4, a2, n] + S2[SP[a1, a1], a2, a4, a3, a2, n] + 
    2*S2[SP[a1, a1], a3, a2, a2, a4, n] + 
    2*S2[SP[a1, a1], a3, a2, a4, a2, n] + 
    2*S2[SP[a1, a1], a3, a4, a2, a2, n] + S2[SP[a1, a1], a4, a2, a3, a2, n] + 
    2*S2[SP[a1, a1], a4, a3, a2, a2, n] + S2[SP[a1, a3], a2, a4, a1, a2, n] + 
    2*S2[SP[a1, a3], a4, a1, a2, a2, n] + S2[SP[a1, a3], a4, a2, a1, a2, n] - 
    2*S2[SP[a1, a4], a1, a2, a2, a3, n] - 
    3*S2[SP[a1, a4], a1, a2, a3, a2, n] - 
    4*S2[SP[a1, a4], a1, a3, a2, a2, n] - S2[SP[a1, a4], a2, a1, a2, a3, n] - 
    S2[SP[a1, a4], a2, a1, a3, a2, n] - S2[SP[a1, a4], a2, a3, a1, a2, n] - 
    4*S2[SP[a1, a4], a3, a1, a2, a2, n] - 
    2*S2[SP[a1, a4], a3, a2, a1, a2, n] - S2[SP[a2, a3], a1, a4, a1, a2, n] - 
    2*S2[SP[a2, a3], a4, a1, a1, a2, n] + 
    2*S2[SP[a2, a4], a1, a1, a2, a3, n] + 
    2*S2[SP[a2, a4], a1, a1, a3, a2, n] + 
    2*S2[SP[a2, a4], a1, a3, a1, a2, n] + 
    2*S2[SP[a2, a4], a3, a1, a1, a2, n] + S2[a4, a1, a2, a1, a2, a3, n] + 
    2*S2[a4, a1, a2, a2, a1, a3, n] + 2*S2[a4, a1, a2, a2, a3, a1, n] + 
    S2[a4, a1, a2, a3, a2, a1, n] + S2[a4, a2, a1, a2, a1, a3, n] + 
    S2[a4, a2, a1, a2, a3, a1, n] + S2[a4, a2, a1, a3, a2, a1, n] + 
    S2[a4, a2, a3, a1, a2, a1, n] /; MyMemberQ[{{a1, a2}, {a3, a4}}, 
     {a1, a1, a2, a2, a3, a4}] && a1 != a2 != a3 != a4, 
 S2[a3_, a2_, a4_, a2_, a1_, a1_, n_] :> 
  S2[a2, a3, n]*S2[a1, a1, a2, a4, n] - S2[a1, a1, SP[a2, a2], SP[a3, a4], 
     n] - S2[a1, SP[a1, a2], a2, SP[a3, a4], n] - 
    S2[a1, SP[a1, a2], SP[a2, a3], a4, n] - S2[SP[a1, a2], a1, a2, 
     SP[a3, a4], n] - S2[SP[a1, a2], a1, SP[a2, a3], a4, n] - 
    S2[SP[a1, a2], SP[a1, a3], a2, a4, n] + 
    2*S2[a1, a1, a2, a2, SP[a3, a4], n] + 
    S2[a4, n]*S2[a1, a1, a2, a3, a2, n] - 
    S2[a2, n]*S2[a1, a1, a2, a3, a4, n] - 
    S2[a2, n]*S2[a1, a1, a2, a4, a3, n] - S2[a1, a1, a2, a4, SP[a2, a3], n] + 
    S2[a1, a1, a2, SP[a3, a4], a2, n] + 2*S2[a4, n]*
     S2[a1, a1, a3, a2, a2, n] - S2[a2, n]*S2[a1, a1, a3, a2, a4, n] + 
    S2[a1, a1, a3, a2, SP[a2, a4], n] - S2[a1, a1, a3, SP[a2, a2], a4, n] + 
    2*S2[a1, a1, a3, SP[a2, a4], a2, n] - 
    2*S2[a3, n]*S2[a1, a1, a4, a2, a2, n] - 
    2*S2[a1, a1, a4, a2, SP[a2, a3], n] - 
    2*S2[a1, a1, a4, SP[a2, a3], a2, n] - S2[a1, a1, SP[a2, a3], a2, a4, n] + 
    S2[a1, a1, SP[a2, a4], a3, a2, n] + S2[a1, a2, a1, a2, SP[a3, a4], n] + 
    S2[a1, a2, a1, SP[a2, a3], a4, n] + S2[a1, a2, SP[a1, a3], a2, a4, n] + 
    2*S2[a4, n]*S2[a1, a3, a1, a2, a2, n] - 
    S2[a2, n]*S2[a1, a3, a1, a2, a4, n] + S2[a1, a3, a1, a2, SP[a2, a4], n] - 
    S2[a1, a3, a1, SP[a2, a2], a4, n] + 2*S2[a1, a3, a1, SP[a2, a4], a2, n] + 
    S2[a4, n]*S2[a1, a3, a2, a1, a2, n] + S2[a1, a3, a2, a1, SP[a2, a4], n] - 
    (S2[a1, n]*S2[a1, a3, a2, a4, a2, n])/2 - 
    S2[a1, a3, a2, a4, SP[a1, a2], n]/2 + S2[a1, a3, a2, SP[a1, a4], a2, n]/
     2 - S2[a1, a3, SP[a1, a2], a2, a4, n] - 
    S2[a1, a3, SP[a1, a2], a4, a2, n]/2 + 
    2*S2[a1, a3, SP[a1, a4], a2, a2, n] + S2[a1, a3, SP[a2, a4], a1, a2, n] - 
    2*S2[a3, n]*S2[a1, a4, a1, a2, a2, n] - 
    2*S2[a1, a4, a1, a2, SP[a2, a3], n] - 
    2*S2[a1, a4, a1, SP[a2, a3], a2, n] - 
    S2[a3, n]*S2[a1, a4, a2, a1, a2, n] - S2[a1, a4, a2, a1, SP[a2, a3], n] + 
    S2[a1, n]*S2[a1, a4, a2, a2, a3, n] + S2[a1, a4, a2, a2, SP[a1, a3], n] + 
    (S2[a1, n]*S2[a1, a4, a2, a3, a2, n])/2 + 
    S2[a1, a4, a2, a3, SP[a1, a2], n]/2 + S2[a1, a4, a2, SP[a1, a2], a3, n] - 
    S2[a1, a4, a2, SP[a1, a3], a2, n]/2 + S2[a1, a4, SP[a1, a2], a2, a3, n] + 
    S2[a1, a4, SP[a1, a2], a3, a2, n]/2 - 
    2*S2[a1, a4, SP[a1, a3], a2, a2, n] - S2[a1, a4, SP[a2, a3], a1, a2, n] - 
    S2[a1, SP[a1, a3], a2, a4, a2, n]/2 - 
    2*S2[a1, SP[a1, a3], a4, a2, a2, n] + S2[a1, SP[a1, a4], a2, a2, a3, n] + 
    (3*S2[a1, SP[a1, a4], a2, a3, a2, n])/2 + 
    2*S2[a1, SP[a1, a4], a3, a2, a2, n] - S2[a1, SP[a2, a3], a1, a2, a4, n] + 
    S2[a2, a1, a1, a2, SP[a3, a4], n] + S2[a2, a1, a1, SP[a2, a3], a4, n] + 
    S2[a2, a1, SP[a1, a3], a2, a4, n] - S2[a4, n]*S2[a2, a3, a1, a1, a2, n] - 
    S2[a2, a3, a1, a1, SP[a2, a4], n] - S2[a2, a3, a1, SP[a1, a4], a2, n] - 
    S2[a2, a3, SP[a1, a4], a1, a2, n] + S2[a3, n]*S2[a2, a4, a1, a1, a2, n] + 
    S2[a2, a4, a1, a1, SP[a2, a3], n] + S2[a2, a4, a1, SP[a1, a3], a2, n] + 
    S2[a2, a4, SP[a1, a3], a1, a2, n] + S2[a2, SP[a1, a3], a1, a2, a4, n] + 
    S2[a2, n]*S2[a3, a1, a1, a4, a2, n] + S2[a3, a1, a1, a4, SP[a2, a2], n] + 
    S2[a3, a1, a1, SP[a2, a4], a2, n] - (S2[a1, n]*S2[a3, a1, a2, a4, a2, n])/
     2 - S2[a3, a1, a2, a4, SP[a1, a2], n]/2 - 
    S2[a3, a1, a2, SP[a1, a4], a2, n]/2 + 
    S2[a2, n]*S2[a3, a1, a4, a1, a2, n] + S2[a3, a1, a4, a1, SP[a2, a2], n] + 
    S2[a3, a1, a4, SP[a1, a2], a2, n] + S2[a3, a1, SP[a1, a2], a4, a2, n]/2 + 
    S2[a3, a1, SP[a2, a4], a1, a2, n] - (S2[a1, n]*S2[a3, a2, a1, a4, a2, n])/
     2 - S2[a3, a2, a1, a4, SP[a1, a2], n]/2 - 
    S2[a3, a2, a1, SP[a1, a4], a2, n]/2 - 
    (S2[a1, n]*S2[a3, a2, a4, a1, a2, n])/2 - 
    S2[a3, a2, a4, a1, SP[a1, a2], n]/2 + 
    (S2[a1, n]*S2[a3, a2, a4, a2, a1, n])/2 + 
    S2[a3, a2, a4, a2, SP[a1, a1], n]/2 - S2[a3, a2, a4, SP[a1, a1], a2, n]/
     2 + S2[a3, a2, a4, SP[a1, a2], a1, n]/2 - 
    S2[a3, a2, SP[a1, a1], a4, a2, n]/2 - S2[a3, a2, SP[a1, a4], a1, a2, n]/
     2 + S2[a3, a2, SP[a1, a4], a2, a1, n]/2 - 
    S2[a3, SP[a1, a1], a2, a4, a2, n]/2 + S2[a3, SP[a1, a2], a1, a4, a2, n]/
     2 + S2[a3, SP[a1, a2], a4, a1, a2, n]/2 + 
    S2[a3, SP[a1, a2], a4, a2, a1, n]/2 - 
    S2[a2, n]*S2[a4, a1, a1, a2, a3, n] - S2[a4, a1, a1, a2, SP[a2, a3], n] - 
    S2[a2, n]*S2[a4, a1, a1, a3, a2, n] - S2[a4, a1, a1, a3, SP[a2, a2], n] - 
    S2[a4, a1, a1, SP[a2, a2], a3, n] - S2[a4, a1, a1, SP[a2, a3], a2, n] + 
    S2[a1, n]*S2[a4, a1, a2, a2, a3, n] + S2[a4, a1, a2, a2, SP[a1, a3], n] + 
    (S2[a1, n]*S2[a4, a1, a2, a3, a2, n])/2 + 
    S2[a4, a1, a2, a3, SP[a1, a2], n]/2 + S2[a4, a1, a2, SP[a1, a2], a3, n] + 
    S2[a4, a1, a2, SP[a1, a3], a2, n]/2 - 
    S2[a2, n]*S2[a4, a1, a3, a1, a2, n] - S2[a4, a1, a3, a1, SP[a2, a2], n] - 
    S2[a4, a1, a3, SP[a1, a2], a2, n] - S2[a4, a1, SP[a1, a2], a3, a2, n]/2 - 
    S2[a4, a1, SP[a2, a3], a1, a2, n] + (S2[a1, n]*S2[a4, a2, a1, a3, a2, n])/
     2 + S2[a4, a2, a1, a3, SP[a1, a2], n]/2 + 
    S2[a4, a2, a1, SP[a1, a3], a2, n]/2 - 
    S2[a1, n]*S2[a4, a2, a2, a1, a3, n] - S2[a4, a2, a2, a1, SP[a1, a3], n] - 
    S2[a1, n]*S2[a4, a2, a2, a3, a1, n] - S2[a4, a2, a2, a3, SP[a1, a1], n] - 
    S2[a4, a2, a2, SP[a1, a1], a3, n] - S2[a4, a2, a2, SP[a1, a3], a1, n] + 
    (S2[a1, n]*S2[a4, a2, a3, a1, a2, n])/2 + 
    S2[a4, a2, a3, a1, SP[a1, a2], n]/2 - 
    (S2[a1, n]*S2[a4, a2, a3, a2, a1, n])/2 - 
    S2[a4, a2, a3, a2, SP[a1, a1], n]/2 + S2[a4, a2, a3, SP[a1, a1], a2, n]/
     2 - S2[a4, a2, a3, SP[a1, a2], a1, n]/2 + 
    S2[a4, a2, SP[a1, a1], a3, a2, n]/2 - S2[a4, a2, SP[a1, a2], a1, a3, n] - 
    S2[a4, a2, SP[a1, a2], a3, a1, n] + S2[a4, a2, SP[a1, a3], a1, a2, n]/2 - 
    S2[a4, a2, SP[a1, a3], a2, a1, n]/2 + S2[a4, SP[a1, a1], a2, a2, a3, n] + 
    S2[a4, SP[a1, a1], a2, a3, a2, n]/2 - S2[a4, SP[a1, a2], a1, a2, a3, n] - 
    S2[a4, SP[a1, a2], a1, a3, a2, n]/2 - S2[a4, SP[a1, a2], a2, a1, a3, n] - 
    S2[a4, SP[a1, a2], a2, a3, a1, n] - S2[a4, SP[a1, a2], a3, a1, a2, n]/2 - 
    S2[a4, SP[a1, a2], a3, a2, a1, n]/2 - S2[SP[a1, a1], a3, a2, a4, a2, n]/
     2 + S2[SP[a1, a1], a4, a2, a2, a3, n] + 
    S2[SP[a1, a1], a4, a2, a3, a2, n]/2 - S2[SP[a1, a3], a1, a2, a4, a2, n]/
     2 - 2*S2[SP[a1, a3], a1, a4, a2, a2, n] - 
    S2[SP[a1, a3], a2, a1, a4, a2, n]/2 - S2[SP[a1, a3], a2, a4, a1, a2, n]/
     2 + S2[SP[a1, a3], a2, a4, a2, a1, n]/2 - 
    2*S2[SP[a1, a3], a4, a1, a2, a2, n] - S2[SP[a1, a3], a4, a2, a1, a2, n] + 
    S2[SP[a1, a4], a1, a2, a2, a3, n] + (3*S2[SP[a1, a4], a1, a2, a3, a2, n])/
     2 + 2*S2[SP[a1, a4], a1, a3, a2, a2, n] + 
    S2[SP[a1, a4], a2, a1, a3, a2, n]/2 - S2[SP[a1, a4], a2, a2, a1, a3, n] - 
    S2[SP[a1, a4], a2, a2, a3, a1, n] + S2[SP[a1, a4], a2, a3, a1, a2, n]/2 - 
    S2[SP[a1, a4], a2, a3, a2, a1, n]/2 + 
    2*S2[SP[a1, a4], a3, a1, a2, a2, n] + S2[SP[a1, a4], a3, a2, a1, a2, n] + 
    S2[SP[a2, a3], a1, a1, a4, a2, n] + S2[SP[a2, a3], a1, a4, a1, a2, n] + 
    S2[SP[a2, a3], a4, a1, a1, a2, n] - S2[SP[a2, a4], a1, a1, a2, a3, n] - 
    S2[SP[a2, a4], a1, a1, a3, a2, n] - S2[SP[a2, a4], a1, a3, a1, a2, n] - 
    S2[SP[a2, a4], a3, a1, a1, a2, n] + S2[a4, a2, a1, a1, a2, a3, n] + 
    S2[a4, a2, a1, a2, a1, a3, n] + S2[a4, a2, a1, a2, a3, a1, n] + 
    2*S2[a4, a2, a2, a1, a1, a3, n] + 2*S2[a4, a2, a2, a1, a3, a1, n] + 
    2*S2[a4, a2, a2, a3, a1, a1, n] + S2[a4, a2, a3, a2, a1, a1, n] /; 
   MyMemberQ[{{a1, a2}, {a3, a4}}, {a1, a1, a2, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a3_, a4_, a1_, a1_, a2_, a2_, n_] :> 
  S2[a3, n]*S2[a4, a1, a1, a2, a2, n] + S2[a4, a1, a1, a2, SP[a2, a3], n] + 
    S2[a4, a1, a1, SP[a2, a3], a2, n] + S2[a4, a1, SP[a1, a3], a2, a2, n] + 
    S2[a4, SP[a1, a3], a1, a2, a2, n] + S2[SP[a3, a4], a1, a1, a2, a2, n] - 
    S2[a4, a1, a1, a2, a2, a3, n] - S2[a4, a1, a1, a2, a3, a2, n] - 
    S2[a4, a1, a1, a3, a2, a2, n] - S2[a4, a1, a3, a1, a2, a2, n] - 
    S2[a4, a3, a1, a1, a2, a2, n] /; MyMemberQ[{{a1, a2}, {a3, a4}}, 
     {a1, a1, a2, a2, a3, a4}] && a1 != a2 != a3 != a4, 
 S2[a3_, a4_, a1_, a2_, a1_, a2_, n_] :> 
  S2[a3, n]*S2[a4, a1, a2, a1, a2, n] + S2[a4, a1, a2, a1, SP[a2, a3], n] + 
    S2[a4, a1, a2, SP[a1, a3], a2, n] + S2[a4, a1, SP[a2, a3], a1, a2, n] + 
    S2[a4, SP[a1, a3], a2, a1, a2, n] + S2[SP[a3, a4], a1, a2, a1, a2, n] - 
    S2[a4, a1, a2, a1, a2, a3, n] - S2[a4, a1, a2, a1, a3, a2, n] - 
    S2[a4, a1, a2, a3, a1, a2, n] - S2[a4, a1, a3, a2, a1, a2, n] - 
    S2[a4, a3, a1, a2, a1, a2, n] /; MyMemberQ[{{a1, a2}, {a3, a4}}, 
     {a1, a1, a2, a2, a3, a4}] && a1 != a2 != a3 != a4, 
 S2[a3_, a4_, a1_, a2_, a2_, a1_, n_] :> 
  -(S2[a3, n]*S2[a1, a4, a1, a2, a2, n]) - S2[a1, a4, a1, a2, SP[a2, a3], 
     n] - S2[a1, a4, a1, SP[a2, a3], a2, n] - S2[a1, a4, SP[a1, a3], a2, a2, 
     n] - S2[a1, SP[a3, a4], a1, a2, a2, n] + 
    S2[a1, n]*S2[a3, a4, a1, a2, a2, n] + S2[a3, a4, a1, a2, SP[a1, a2], n] + 
    S2[a3, a4, a1, SP[a1, a2], a2, n] + S2[a3, a4, SP[a1, a1], a2, a2, n] + 
    S2[a3, SP[a1, a4], a1, a2, a2, n] - 2*S2[a3, n]*
     S2[a4, a1, a1, a2, a2, n] - 2*S2[a4, a1, a1, a2, SP[a2, a3], n] - 
    2*S2[a4, a1, a1, SP[a2, a3], a2, n] - 
    S2[a3, n]*S2[a4, a1, a2, a1, a2, n] - S2[a4, a1, a2, a1, SP[a2, a3], n] + 
    S2[a1, n]*S2[a4, a1, a2, a2, a3, n] + S2[a4, a1, a2, a2, SP[a1, a3], n] + 
    S2[a1, n]*S2[a4, a1, a2, a3, a2, n] + S2[a4, a1, a2, a3, SP[a1, a2], n] + 
    S2[a4, a1, a2, SP[a1, a2], a3, n] + S2[a1, n]*S2[a4, a1, a3, a2, a2, n] + 
    S2[a4, a1, a3, a2, SP[a1, a2], n] + S2[a4, a1, a3, SP[a1, a2], a2, n] + 
    S2[a4, a1, SP[a1, a2], a2, a3, n] + S2[a4, a1, SP[a1, a2], a3, a2, n] - 
    S2[a4, a1, SP[a1, a3], a2, a2, n] - S2[a4, a1, SP[a2, a3], a1, a2, n] + 
    S2[a1, n]*S2[a4, a3, a1, a2, a2, n] + S2[a4, a3, a1, a2, SP[a1, a2], n] + 
    S2[a4, a3, a1, SP[a1, a2], a2, n] + S2[a4, a3, SP[a1, a1], a2, a2, n] + 
    S2[a4, SP[a1, a1], a2, a2, a3, n] + S2[a4, SP[a1, a1], a2, a3, a2, n] + 
    S2[a4, SP[a1, a1], a3, a2, a2, n] - S2[a4, SP[a1, a3], a1, a2, a2, n] - 
    S2[a4, SP[a1, a3], a2, a1, a2, n] + S2[SP[a1, a4], a1, a2, a2, a3, n] + 
    S2[SP[a1, a4], a1, a2, a3, a2, n] + S2[SP[a1, a4], a1, a3, a2, a2, n] + 
    S2[SP[a1, a4], a3, a1, a2, a2, n] - 2*S2[SP[a3, a4], a1, a1, a2, a2, n] - 
    S2[SP[a3, a4], a1, a2, a1, a2, n] - S2[a4, a1, a2, a2, a1, a3, n] - 
    S2[a4, a1, a2, a2, a3, a1, n] - S2[a4, a1, a2, a3, a2, a1, n] - 
    S2[a4, a1, a3, a2, a2, a1, n] - S2[a4, a3, a1, a2, a2, a1, n] /; 
   MyMemberQ[{{a1, a2}, {a3, a4}}, {a1, a1, a2, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a3_, a4_, a2_, a1_, a1_, a2_, n_] :> 
  -(S2[a3, n]*S2[a2, a4, a1, a1, a2, n]) - S2[a2, a4, a1, a1, SP[a2, a3], 
     n] - S2[a2, a4, a1, SP[a1, a3], a2, n] - S2[a2, a4, SP[a1, a3], a1, a2, 
     n] - S2[a2, SP[a3, a4], a1, a1, a2, n] + 
    S2[a2, n]*S2[a3, a4, a1, a1, a2, n] + S2[a3, a4, a1, a1, SP[a2, a2], n] + 
    S2[a3, a4, a1, SP[a1, a2], a2, n] + S2[a3, a4, SP[a1, a2], a1, a2, n] + 
    S2[a3, SP[a2, a4], a1, a1, a2, n] - 2*S2[a3, n]*
     S2[a4, a1, a1, a2, a2, n] + S2[a2, n]*S2[a4, a1, a1, a2, a3, n] - 
    S2[a4, a1, a1, a2, SP[a2, a3], n] + S2[a2, n]*S2[a4, a1, a1, a3, a2, n] + 
    S2[a4, a1, a1, a3, SP[a2, a2], n] + S2[a4, a1, a1, SP[a2, a2], a3, n] - 
    S2[a4, a1, a1, SP[a2, a3], a2, n] - S2[a3, n]*S2[a4, a1, a2, a1, a2, n] - 
    S2[a4, a1, a2, a1, SP[a2, a3], n] - S2[a4, a1, a2, SP[a1, a3], a2, n] + 
    S2[a2, n]*S2[a4, a1, a3, a1, a2, n] + S2[a4, a1, a3, a1, SP[a2, a2], n] + 
    S2[a4, a1, a3, SP[a1, a2], a2, n] + S2[a4, a1, SP[a1, a2], a2, a3, n] + 
    S2[a4, a1, SP[a1, a2], a3, a2, n] - 2*S2[a4, a1, SP[a1, a3], a2, a2, n] + 
    S2[a2, n]*S2[a4, a3, a1, a1, a2, n] + S2[a4, a3, a1, a1, SP[a2, a2], n] + 
    S2[a4, a3, a1, SP[a1, a2], a2, n] + S2[a4, a3, SP[a1, a2], a1, a2, n] + 
    S2[a4, SP[a1, a2], a1, a2, a3, n] + S2[a4, SP[a1, a2], a1, a3, a2, n] + 
    S2[a4, SP[a1, a2], a3, a1, a2, n] - 2*S2[a4, SP[a1, a3], a1, a2, a2, n] - 
    S2[a4, SP[a1, a3], a2, a1, a2, n] + S2[a4, SP[a2, a3], a1, a1, a2, n] + 
    S2[SP[a2, a4], a1, a1, a2, a3, n] + S2[SP[a2, a4], a1, a1, a3, a2, n] + 
    S2[SP[a2, a4], a1, a3, a1, a2, n] + S2[SP[a2, a4], a3, a1, a1, a2, n] - 
    2*S2[SP[a3, a4], a1, a1, a2, a2, n] - S2[SP[a3, a4], a1, a2, a1, a2, n] - 
    S2[a4, a2, a1, a1, a2, a3, n] - S2[a4, a2, a1, a1, a3, a2, n] - 
    S2[a4, a2, a1, a3, a1, a2, n] - S2[a4, a2, a3, a1, a1, a2, n] - 
    S2[a4, a3, a2, a1, a1, a2, n] /; MyMemberQ[{{a1, a2}, {a3, a4}}, 
     {a1, a1, a2, a2, a3, a4}] && a1 != a2 != a3 != a4, 
 S2[a3_, a4_, a2_, a1_, a2_, a1_, n_] :> 
  -(S2[a3, n]*S2[a1, a4, a2, a1, a2, n]) - S2[a1, a4, a2, a1, SP[a2, a3], 
     n] - S2[a1, a4, a2, SP[a1, a3], a2, n] - S2[a1, a4, SP[a2, a3], a1, a2, 
     n] - S2[a1, SP[a3, a4], a2, a1, a2, n] + 
    2*S2[a3, n]*S2[a2, a4, a1, a1, a2, n] + 
    2*S2[a2, a4, a1, a1, SP[a2, a3], n] + 
    2*S2[a2, a4, a1, SP[a1, a3], a2, n] + 
    2*S2[a2, a4, SP[a1, a3], a1, a2, n] + 
    2*S2[a2, SP[a3, a4], a1, a1, a2, n] - 
    2*S2[a2, n]*S2[a3, a4, a1, a1, a2, n] - 
    2*S2[a3, a4, a1, a1, SP[a2, a2], n] - 
    2*S2[a3, a4, a1, SP[a1, a2], a2, n] + 
    S2[a1, n]*S2[a3, a4, a2, a1, a2, n] + S2[a3, a4, a2, a1, SP[a1, a2], n] + 
    S2[a3, a4, a2, SP[a1, a1], a2, n] - S2[a3, a4, SP[a1, a2], a1, a2, n] + 
    S2[a3, SP[a1, a4], a2, a1, a2, n] - 2*S2[a3, SP[a2, a4], a1, a1, a2, n] + 
    4*S2[a3, n]*S2[a4, a1, a1, a2, a2, n] - 
    2*S2[a2, n]*S2[a4, a1, a1, a2, a3, n] + 
    2*S2[a4, a1, a1, a2, SP[a2, a3], n] - 
    2*S2[a2, n]*S2[a4, a1, a1, a3, a2, n] - 
    2*S2[a4, a1, a1, a3, SP[a2, a2], n] - 
    2*S2[a4, a1, a1, SP[a2, a2], a3, n] + 
    2*S2[a4, a1, a1, SP[a2, a3], a2, n] + 
    S2[a3, n]*S2[a4, a1, a2, a1, a2, n] + S2[a4, a1, a2, a1, SP[a2, a3], n] + 
    S2[a4, a1, a2, SP[a1, a3], a2, n] - 2*S2[a2, n]*
     S2[a4, a1, a3, a1, a2, n] - 2*S2[a4, a1, a3, a1, SP[a2, a2], n] - 
    2*S2[a4, a1, a3, SP[a1, a2], a2, n] - 
    2*S2[a4, a1, SP[a1, a2], a2, a3, n] - 
    2*S2[a4, a1, SP[a1, a2], a3, a2, n] + 
    4*S2[a4, a1, SP[a1, a3], a2, a2, n] - S2[a4, a1, SP[a2, a3], a1, a2, n] + 
    S2[a1, n]*S2[a4, a2, a1, a2, a3, n] + S2[a4, a2, a1, a2, SP[a1, a3], n] + 
    S2[a1, n]*S2[a4, a2, a1, a3, a2, n] + S2[a4, a2, a1, a3, SP[a1, a2], n] + 
    S2[a4, a2, a1, SP[a1, a2], a3, n] + S2[a4, a2, a1, SP[a1, a3], a2, n] + 
    S2[a1, n]*S2[a4, a2, a3, a1, a2, n] + S2[a4, a2, a3, a1, SP[a1, a2], n] + 
    S2[a4, a2, a3, SP[a1, a1], a2, n] + S2[a4, a2, SP[a1, a1], a2, a3, n] + 
    S2[a4, a2, SP[a1, a1], a3, a2, n] + S2[a4, a2, SP[a1, a3], a1, a2, n] - 
    2*S2[a2, n]*S2[a4, a3, a1, a1, a2, n] - 
    2*S2[a4, a3, a1, a1, SP[a2, a2], n] - 
    2*S2[a4, a3, a1, SP[a1, a2], a2, n] + 
    S2[a1, n]*S2[a4, a3, a2, a1, a2, n] + S2[a4, a3, a2, a1, SP[a1, a2], n] + 
    S2[a4, a3, a2, SP[a1, a1], a2, n] - S2[a4, a3, SP[a1, a2], a1, a2, n] - 
    S2[a4, SP[a1, a2], a1, a2, a3, n] - S2[a4, SP[a1, a2], a1, a3, a2, n] - 
    S2[a4, SP[a1, a2], a3, a1, a2, n] + 4*S2[a4, SP[a1, a3], a1, a2, a2, n] + 
    2*S2[a4, SP[a1, a3], a2, a1, a2, n] - 
    2*S2[a4, SP[a2, a3], a1, a1, a2, n] + S2[SP[a1, a4], a2, a1, a2, a3, n] + 
    S2[SP[a1, a4], a2, a1, a3, a2, n] + S2[SP[a1, a4], a2, a3, a1, a2, n] + 
    S2[SP[a1, a4], a3, a2, a1, a2, n] - 2*S2[SP[a2, a4], a1, a1, a2, a3, n] - 
    2*S2[SP[a2, a4], a1, a1, a3, a2, n] - 
    2*S2[SP[a2, a4], a1, a3, a1, a2, n] - 
    2*S2[SP[a2, a4], a3, a1, a1, a2, n] + 
    4*S2[SP[a3, a4], a1, a1, a2, a2, n] + S2[SP[a3, a4], a1, a2, a1, a2, n] - 
    S2[a4, a2, a1, a2, a1, a3, n] - S2[a4, a2, a1, a2, a3, a1, n] - 
    S2[a4, a2, a1, a3, a2, a1, n] - S2[a4, a2, a3, a1, a2, a1, n] - 
    S2[a4, a3, a2, a1, a2, a1, n] /; MyMemberQ[{{a1, a2}, {a3, a4}}, 
     {a1, a1, a2, a2, a3, a4}] && a1 != a2 != a3 != a4, 
 S2[a3_, a4_, a2_, a2_, a1_, a1_, n_] :> 
  S2[a3, n]*S2[a1, a1, a4, a2, a2, n] + S2[a1, a1, a4, a2, SP[a2, a3], n] + 
    S2[a1, a1, a4, SP[a2, a3], a2, n] + S2[a1, a1, SP[a3, a4], a2, a2, n] - 
    (S2[a1, n]*S2[a1, a3, a4, a2, a2, n])/2 - 
    S2[a1, a3, a4, a2, SP[a1, a2], n]/2 - S2[a1, a3, a4, SP[a1, a2], a2, n]/
     2 - S2[a1, a3, SP[a1, a4], a2, a2, n]/2 + 
    S2[a3, n]*S2[a1, a4, a1, a2, a2, n] + S2[a1, a4, a1, a2, SP[a2, a3], n] + 
    S2[a1, a4, a1, SP[a2, a3], a2, n] + S2[a3, n]*S2[a1, a4, a2, a1, a2, n] + 
    S2[a1, a4, a2, a1, SP[a2, a3], n] - (S2[a1, n]*S2[a1, a4, a2, a2, a3, n])/
     2 - S2[a1, a4, a2, a2, SP[a1, a3], n]/2 - 
    (S2[a1, n]*S2[a1, a4, a2, a3, a2, n])/2 - 
    S2[a1, a4, a2, a3, SP[a1, a2], n]/2 - S2[a1, a4, a2, SP[a1, a2], a3, n]/
     2 + S2[a1, a4, a2, SP[a1, a3], a2, n]/2 - 
    (S2[a1, n]*S2[a1, a4, a3, a2, a2, n])/2 - 
    S2[a1, a4, a3, a2, SP[a1, a2], n]/2 - S2[a1, a4, a3, SP[a1, a2], a2, n]/
     2 - S2[a1, a4, SP[a1, a2], a2, a3, n]/2 - 
    S2[a1, a4, SP[a1, a2], a3, a2, n]/2 + S2[a1, a4, SP[a1, a3], a2, a2, n]/
     2 + S2[a1, a4, SP[a2, a3], a1, a2, n] + 
    S2[a1, SP[a1, a3], a4, a2, a2, n]/2 - S2[a1, SP[a1, a4], a2, a2, a3, n]/
     2 - S2[a1, SP[a1, a4], a2, a3, a2, n]/2 - 
    S2[a1, SP[a1, a4], a3, a2, a2, n]/2 + S2[a1, SP[a3, a4], a1, a2, a2, n] + 
    S2[a1, SP[a3, a4], a2, a1, a2, n] - S2[a3, n]*S2[a2, a4, a1, a1, a2, n] - 
    S2[a2, a4, a1, a1, SP[a2, a3], n] - S2[a2, a4, a1, SP[a1, a3], a2, n] - 
    S2[a2, a4, SP[a1, a3], a1, a2, n] - S2[a2, SP[a3, a4], a1, a1, a2, n] - 
    (S2[a1, n]*S2[a3, a1, a4, a2, a2, n])/2 - 
    S2[a3, a1, a4, a2, SP[a1, a2], n]/2 - S2[a3, a1, a4, SP[a1, a2], a2, n]/
     2 - S2[a3, a1, SP[a1, a4], a2, a2, n]/2 + 
    S2[a2, n]*S2[a3, a4, a1, a1, a2, n] + S2[a3, a4, a1, a1, SP[a2, a2], n] - 
    (S2[a1, n]*S2[a3, a4, a1, a2, a2, n])/2 - 
    S2[a3, a4, a1, a2, SP[a1, a2], n]/2 + S2[a3, a4, a1, SP[a1, a2], a2, n]/
     2 - (S2[a1, n]*S2[a3, a4, a2, a1, a2, n])/2 - 
    S2[a3, a4, a2, a1, SP[a1, a2], n]/2 + 
    (S2[a1, n]*S2[a3, a4, a2, a2, a1, n])/2 + 
    S2[a3, a4, a2, a2, SP[a1, a1], n]/2 - S2[a3, a4, a2, SP[a1, a1], a2, n]/
     2 + S2[a3, a4, a2, SP[a1, a2], a1, n]/2 - 
    S2[a3, a4, SP[a1, a1], a2, a2, n]/2 + S2[a3, a4, SP[a1, a2], a1, a2, n]/
     2 + S2[a3, a4, SP[a1, a2], a2, a1, n]/2 - 
    S2[a3, SP[a1, a1], a4, a2, a2, n]/2 - S2[a3, SP[a1, a4], a1, a2, a2, n]/
     2 - S2[a3, SP[a1, a4], a2, a1, a2, n]/2 + 
    S2[a3, SP[a1, a4], a2, a2, a1, n]/2 + S2[a3, SP[a2, a4], a1, a1, a2, n] - 
    S2[a3, n]*S2[a4, a1, a1, a2, a2, n] + 
    S2[a2, n]*S2[a4, a1, a1, a2, a3, n] + 
    S2[a2, n]*S2[a4, a1, a1, a3, a2, n] + S2[a4, a1, a1, a3, SP[a2, a2], n] + 
    S2[a4, a1, a1, SP[a2, a2], a3, n] - (S2[a1, n]*S2[a4, a1, a2, a2, a3, n])/
     2 - S2[a4, a1, a2, a2, SP[a1, a3], n]/2 - 
    (S2[a1, n]*S2[a4, a1, a2, a3, a2, n])/2 - 
    S2[a4, a1, a2, a3, SP[a1, a2], n]/2 - S2[a4, a1, a2, SP[a1, a2], a3, n]/
     2 - S2[a4, a1, a2, SP[a1, a3], a2, n]/2 + 
    S2[a2, n]*S2[a4, a1, a3, a1, a2, n] + S2[a4, a1, a3, a1, SP[a2, a2], n] - 
    (S2[a1, n]*S2[a4, a1, a3, a2, a2, n])/2 - 
    S2[a4, a1, a3, a2, SP[a1, a2], n]/2 + S2[a4, a1, a3, SP[a1, a2], a2, n]/
     2 + S2[a4, a1, SP[a1, a2], a2, a3, n]/2 + 
    S2[a4, a1, SP[a1, a2], a3, a2, n]/2 - 
    (3*S2[a4, a1, SP[a1, a3], a2, a2, n])/2 + S2[a4, a1, SP[a2, a3], a1, a2, 
     n] - (S2[a1, n]*S2[a4, a2, a1, a2, a3, n])/2 - 
    S2[a4, a2, a1, a2, SP[a1, a3], n]/2 - 
    (S2[a1, n]*S2[a4, a2, a1, a3, a2, n])/2 - 
    S2[a4, a2, a1, a3, SP[a1, a2], n]/2 - S2[a4, a2, a1, SP[a1, a2], a3, n]/
     2 - S2[a4, a2, a1, SP[a1, a3], a2, n]/2 + 
    (S2[a1, n]*S2[a4, a2, a2, a1, a3, n])/2 + 
    S2[a4, a2, a2, a1, SP[a1, a3], n]/2 + 
    (S2[a1, n]*S2[a4, a2, a2, a3, a1, n])/2 + 
    S2[a4, a2, a2, a3, SP[a1, a1], n]/2 + S2[a4, a2, a2, SP[a1, a1], a3, n]/
     2 + S2[a4, a2, a2, SP[a1, a3], a1, n]/2 - 
    (S2[a1, n]*S2[a4, a2, a3, a1, a2, n])/2 - 
    S2[a4, a2, a3, a1, SP[a1, a2], n]/2 + 
    (S2[a1, n]*S2[a4, a2, a3, a2, a1, n])/2 + 
    S2[a4, a2, a3, a2, SP[a1, a1], n]/2 - S2[a4, a2, a3, SP[a1, a1], a2, n]/
     2 + S2[a4, a2, a3, SP[a1, a2], a1, n]/2 - 
    S2[a4, a2, SP[a1, a1], a2, a3, n]/2 - S2[a4, a2, SP[a1, a1], a3, a2, n]/
     2 + S2[a4, a2, SP[a1, a2], a1, a3, n]/2 + 
    S2[a4, a2, SP[a1, a2], a3, a1, n]/2 - S2[a4, a2, SP[a1, a3], a1, a2, n]/
     2 + S2[a4, a2, SP[a1, a3], a2, a1, n]/2 + 
    S2[a2, n]*S2[a4, a3, a1, a1, a2, n] + S2[a4, a3, a1, a1, SP[a2, a2], n] - 
    (S2[a1, n]*S2[a4, a3, a1, a2, a2, n])/2 - 
    S2[a4, a3, a1, a2, SP[a1, a2], n]/2 + S2[a4, a3, a1, SP[a1, a2], a2, n]/
     2 - (S2[a1, n]*S2[a4, a3, a2, a1, a2, n])/2 - 
    S2[a4, a3, a2, a1, SP[a1, a2], n]/2 + 
    (S2[a1, n]*S2[a4, a3, a2, a2, a1, n])/2 + 
    S2[a4, a3, a2, a2, SP[a1, a1], n]/2 - S2[a4, a3, a2, SP[a1, a1], a2, n]/
     2 + S2[a4, a3, a2, SP[a1, a2], a1, n]/2 - 
    S2[a4, a3, SP[a1, a1], a2, a2, n]/2 + S2[a4, a3, SP[a1, a2], a1, a2, n]/
     2 + S2[a4, a3, SP[a1, a2], a2, a1, n]/2 - 
    S2[a4, SP[a1, a1], a2, a2, a3, n]/2 - S2[a4, SP[a1, a1], a2, a3, a2, n]/
     2 - S2[a4, SP[a1, a1], a3, a2, a2, n]/2 + 
    S2[a4, SP[a1, a2], a1, a2, a3, n]/2 + S2[a4, SP[a1, a2], a1, a3, a2, n]/
     2 + S2[a4, SP[a1, a2], a2, a1, a3, n]/2 + 
    S2[a4, SP[a1, a2], a2, a3, a1, n]/2 + S2[a4, SP[a1, a2], a3, a1, a2, n]/
     2 + S2[a4, SP[a1, a2], a3, a2, a1, n]/2 - 
    (3*S2[a4, SP[a1, a3], a1, a2, a2, n])/2 - 
    S2[a4, SP[a1, a3], a2, a1, a2, n]/2 + S2[a4, SP[a1, a3], a2, a2, a1, n]/
     2 + S2[a4, SP[a2, a3], a1, a1, a2, n] - 
    S2[SP[a1, a1], a3, a4, a2, a2, n]/2 - S2[SP[a1, a1], a4, a2, a2, a3, n]/
     2 - S2[SP[a1, a1], a4, a2, a3, a2, n]/2 - 
    S2[SP[a1, a1], a4, a3, a2, a2, n]/2 + S2[SP[a1, a3], a1, a4, a2, a2, n]/
     2 + S2[SP[a1, a3], a4, a1, a2, a2, n]/2 + 
    S2[SP[a1, a3], a4, a2, a1, a2, n]/2 + S2[SP[a1, a3], a4, a2, a2, a1, n]/
     2 - S2[SP[a1, a4], a1, a2, a2, a3, n]/2 - 
    S2[SP[a1, a4], a1, a2, a3, a2, n]/2 - S2[SP[a1, a4], a1, a3, a2, a2, n]/
     2 - S2[SP[a1, a4], a2, a1, a2, a3, n]/2 - 
    S2[SP[a1, a4], a2, a1, a3, a2, n]/2 + S2[SP[a1, a4], a2, a2, a1, a3, n]/
     2 + S2[SP[a1, a4], a2, a2, a3, a1, n]/2 - 
    S2[SP[a1, a4], a2, a3, a1, a2, n]/2 + S2[SP[a1, a4], a2, a3, a2, a1, n]/
     2 - S2[SP[a1, a4], a3, a1, a2, a2, n]/2 - 
    S2[SP[a1, a4], a3, a2, a1, a2, n]/2 + S2[SP[a1, a4], a3, a2, a2, a1, n]/
     2 + S2[SP[a2, a4], a1, a1, a2, a3, n] + S2[SP[a2, a4], a1, a1, a3, a2, 
     n] + S2[SP[a2, a4], a1, a3, a1, a2, n] + S2[SP[a2, a4], a3, a1, a1, a2, 
     n] - S2[SP[a3, a4], a1, a1, a2, a2, n] - S2[a4, a2, a2, a1, a1, a3, n] - 
    S2[a4, a2, a2, a1, a3, a1, n] - S2[a4, a2, a2, a3, a1, a1, n] - 
    S2[a4, a2, a3, a2, a1, a1, n] - S2[a4, a3, a2, a2, a1, a1, n] /; 
   MyMemberQ[{{a1, a2}, {a3, a4}}, {a1, a1, a2, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a1_, a1_, a2_, a2_, a3_, a3_, n_] :> 
  S2[a1, a1, a2, n]*S2[a2, a3, a3, n] + S2[SP[a1, a2], SP[a1, a3], 
     SP[a2, a3], n] - S2[a1, a2, SP[a1, a3], SP[a2, a3], n] - 
    S2[a1, SP[a1, a2], a3, SP[a2, a3], n] - S2[a1, SP[a1, a2], SP[a2, a3], 
     a3, n] - S2[a2, a1, SP[a1, a3], SP[a2, a3], n] - 
    S2[a2, SP[a1, a3], a1, SP[a2, a3], n] - S2[a2, SP[a1, a3], SP[a1, a3], 
     a2, n] - S2[SP[a1, a2], a1, a3, SP[a2, a3], n] - 
    S2[SP[a1, a2], a1, SP[a2, a3], a3, n] - S2[SP[a1, a2], a3, a1, 
     SP[a2, a3], n] - S2[SP[a1, a2], a3, SP[a1, a3], a2, n] - 
    S2[SP[a1, a2], SP[a1, a3], a2, a3, n] - S2[SP[a1, a2], SP[a1, a3], a3, 
     a2, n] + (S2[a3, n]*S2[a1, a1, a2, a2, a3, n])/2 + 
    S2[a1, a1, a2, a2, SP[a3, a3], n]/2 + 
    (S2[a3, n]*S2[a1, a1, a2, a3, a2, n])/2 - 
    S2[a2, n]*S2[a1, a1, a2, a3, a3, n] + S2[a1, a1, a2, a3, SP[a2, a3], n]/
     2 + S2[a1, a1, a2, SP[a2, a3], a3, n]/2 + 
    S2[a1, a1, a2, SP[a3, a3], a2, n]/2 + 
    (3*S2[a3, n]*S2[a1, a1, a3, a2, a2, n])/2 - 
    S2[a2, n]*S2[a1, a1, a3, a2, a3, n] + S2[a1, a1, a3, a2, SP[a2, a3], n]/
     2 - S2[a2, n]*S2[a1, a1, a3, a3, a2, n] - S2[a1, a1, a3, a3, SP[a2, a2], 
     n] - S2[a1, a1, a3, SP[a2, a2], a3, n] + 
    S2[a1, a1, a3, SP[a2, a3], a2, n]/2 - S2[a1, a1, SP[a2, a3], a2, a3, n]/
     2 - S2[a1, a1, SP[a2, a3], a3, a2, n]/2 + 
    (3*S2[a1, a1, SP[a3, a3], a2, a2, n])/2 + S2[a1, a2, a1, a3, SP[a2, a3], 
     n] + S2[a1, a2, a1, SP[a2, a3], a3, n] + S2[a1, a2, a3, a1, SP[a2, a3], 
     n] + S2[a1, a2, a3, SP[a1, a3], a2, n] + S2[a1, a2, SP[a1, a3], a2, a3, 
     n] + S2[a1, a2, SP[a1, a3], a3, a2, n] + 
    (3*S2[a3, n]*S2[a1, a3, a1, a2, a2, n])/2 - 
    S2[a2, n]*S2[a1, a3, a1, a2, a3, n] + S2[a1, a3, a1, a2, SP[a2, a3], n]/
     2 - S2[a2, n]*S2[a1, a3, a1, a3, a2, n] - S2[a1, a3, a1, a3, SP[a2, a2], 
     n] - S2[a1, a3, a1, SP[a2, a2], a3, n] + 
    S2[a1, a3, a1, SP[a2, a3], a2, n]/2 + 
    S2[a3, n]*S2[a1, a3, a2, a1, a2, n] + S2[a1, a3, a2, a1, SP[a2, a3], n] + 
    S2[a1, a3, a2, SP[a1, a3], a2, n] - S2[a2, n]*S2[a1, a3, a3, a1, a2, n] - 
    S2[a1, a3, a3, a1, SP[a2, a2], n] - (S2[a1, n]*S2[a1, a3, a3, a2, a2, n])/
     2 - S2[a1, a3, a3, a2, SP[a1, a2], n]/2 - 
    (3*S2[a1, a3, a3, SP[a1, a2], a2, n])/2 - S2[a1, a3, SP[a1, a2], a2, a3, 
     n] - S2[a1, a3, SP[a1, a2], a3, a2, n] + S2[a1, a3, SP[a1, a3], a2, a2, 
     n] + S2[a1, SP[a1, a3], a2, a2, a3, n]/2 + 
    S2[a1, SP[a1, a3], a2, a3, a2, n]/2 + S2[a1, SP[a1, a3], a3, a2, a2, n] - 
    S2[a1, SP[a2, a3], a1, a2, a3, n] - S2[a1, SP[a2, a3], a1, a3, a2, n] - 
    S2[a1, SP[a2, a3], a3, a1, a2, n] + (3*S2[a1, SP[a3, a3], a1, a2, a2, n])/
     2 + S2[a1, SP[a3, a3], a2, a1, a2, n] + S2[a2, a1, a1, a3, SP[a2, a3], 
     n] + S2[a2, a1, a1, SP[a2, a3], a3, n] + S2[a2, a1, a3, a1, SP[a2, a3], 
     n] + S2[a2, a1, a3, SP[a1, a3], a2, n] + S2[a2, a1, SP[a1, a3], a2, a3, 
     n] + S2[a2, a1, SP[a1, a3], a3, a2, n] - 
    S2[a3, n]*S2[a2, a3, a1, a1, a2, n] + S2[a2, SP[a1, a3], a1, a2, a3, n] + 
    S2[a2, SP[a1, a3], a1, a3, a2, n] + S2[a2, SP[a1, a3], a3, a1, a2, n] - 
    S2[a2, SP[a3, a3], a1, a1, a2, n] - (S2[a3, n]*S2[a3, a1, a1, a2, a2, n])/
     2 - S2[a3, a1, a1, a2, SP[a2, a3], n]/2 - 
    S2[a3, a1, a1, SP[a2, a3], a2, n]/2 - 
    (S2[a1, n]*S2[a3, a1, a3, a2, a2, n])/2 - 
    S2[a3, a1, a3, a2, SP[a1, a2], n]/2 - S2[a3, a1, a3, SP[a1, a2], a2, n]/
     2 - S2[a3, a1, SP[a1, a3], a2, a2, n] + 
    S2[a2, n]*S2[a3, a3, a1, a1, a2, n] + S2[a3, a3, a1, a1, SP[a2, a2], n] - 
    (S2[a1, n]*S2[a3, a3, a1, a2, a2, n])/2 - 
    S2[a3, a3, a1, a2, SP[a1, a2], n]/2 + S2[a3, a3, a1, SP[a1, a2], a2, n]/
     2 - (S2[a1, n]*S2[a3, a3, a2, a1, a2, n])/2 - 
    S2[a3, a3, a2, a1, SP[a1, a2], n]/2 + 
    (S2[a1, n]*S2[a3, a3, a2, a2, a1, n])/2 + 
    S2[a3, a3, a2, a2, SP[a1, a1], n]/2 - S2[a3, a3, a2, SP[a1, a1], a2, n]/
     2 + S2[a3, a3, a2, SP[a1, a2], a1, n]/2 - 
    S2[a3, a3, SP[a1, a1], a2, a2, n]/2 + S2[a3, a3, SP[a1, a2], a1, a2, n]/
     2 + S2[a3, a3, SP[a1, a2], a2, a1, n]/2 - 
    S2[a3, SP[a1, a1], a3, a2, a2, n]/2 - S2[a3, SP[a1, a3], a1, a2, a2, n] - 
    S2[a3, SP[a1, a3], a2, a1, a2, n]/2 + S2[a3, SP[a1, a3], a2, a2, a1, n]/
     2 + S2[a3, SP[a2, a3], a1, a1, a2, n] - 
    S2[SP[a1, a1], a3, a3, a2, a2, n]/2 + S2[SP[a1, a3], a1, a2, a2, a3, n]/
     2 + S2[SP[a1, a3], a1, a2, a3, a2, n]/2 + S2[SP[a1, a3], a1, a3, a2, a2, 
     n] + S2[SP[a1, a3], a3, a1, a2, a2, n] + 
    S2[SP[a1, a3], a3, a2, a1, a2, n]/2 + S2[SP[a1, a3], a3, a2, a2, a1, n]/
     2 - S2[SP[a3, a3], a1, a1, a2, a2, n]/2 - S2[a3, a3, a2, a2, a1, a1, 
     n] /; MyMemberQ[{{a1, a2, a3}}, {a1, a1, a2, a2, a3, a3}] && 
    a1 != a2 != a3, S2[a1_, a1_, a2_, a3_, a2_, a3_, n_] :> 
  -2*S2[a1, a1, a2, n]*S2[a2, a3, a3, n] - 
    2*S2[SP[a1, a2], SP[a1, a3], SP[a2, a3], n] + 
    S2[a2, a3, n]*S2[a1, a1, a2, a3, n] - S2[a1, a1, SP[a2, a2], SP[a3, a3], 
     n] + 2*S2[a1, a2, SP[a1, a3], SP[a2, a3], n] - 
    S2[a1, SP[a1, a2], a2, SP[a3, a3], n] + 
    2*S2[a1, SP[a1, a2], a3, SP[a2, a3], n] + S2[a1, SP[a1, a2], SP[a2, a3], 
     a3, n] + 2*S2[a2, a1, SP[a1, a3], SP[a2, a3], n] + 
    2*S2[a2, SP[a1, a3], a1, SP[a2, a3], n] + 
    2*S2[a2, SP[a1, a3], SP[a1, a3], a2, n] - S2[SP[a1, a2], a1, a2, 
     SP[a3, a3], n] + 2*S2[SP[a1, a2], a1, a3, SP[a2, a3], n] + 
    S2[SP[a1, a2], a1, SP[a2, a3], a3, n] + 
    2*S2[SP[a1, a2], a3, a1, SP[a2, a3], n] + 
    2*S2[SP[a1, a2], a3, SP[a1, a3], a2, n] + S2[SP[a1, a2], SP[a1, a3], a2, 
     a3, n] + 2*S2[SP[a1, a2], SP[a1, a3], a3, a2, n] + 
    2*S2[a1, a1, a2, a2, SP[a3, a3], n] - 
    2*S2[a1, a1, a2, a3, SP[a2, a3], n] - 
    2*S2[a3, n]*S2[a1, a1, a3, a2, a2, n] + 
    S2[a2, n]*S2[a1, a1, a3, a2, a3, n] - S2[a1, a1, a3, a2, SP[a2, a3], n] + 
    2*S2[a2, n]*S2[a1, a1, a3, a3, a2, n] + 
    2*S2[a1, a1, a3, a3, SP[a2, a2], n] + S2[a1, a1, a3, SP[a2, a2], a3, n] + 
    S2[a1, a1, SP[a2, a3], a2, a3, n] + 2*S2[a1, a1, SP[a2, a3], a3, a2, n] - 
    2*S2[a1, a1, SP[a3, a3], a2, a2, n] + S2[a1, a2, a1, a2, SP[a3, a3], n] - 
    2*S2[a1, a2, a1, a3, SP[a2, a3], n] - S2[a1, a2, a1, SP[a2, a3], a3, n] - 
    2*S2[a1, a2, a3, a1, SP[a2, a3], n] - 
    2*S2[a1, a2, a3, SP[a1, a3], a2, n] - S2[a1, a2, SP[a1, a3], a2, a3, n] - 
    2*S2[a1, a2, SP[a1, a3], a3, a2, n] - 
    2*S2[a3, n]*S2[a1, a3, a1, a2, a2, n] + 
    S2[a2, n]*S2[a1, a3, a1, a2, a3, n] - S2[a1, a3, a1, a2, SP[a2, a3], n] + 
    2*S2[a2, n]*S2[a1, a3, a1, a3, a2, n] + 
    2*S2[a1, a3, a1, a3, SP[a2, a2], n] + S2[a1, a3, a1, SP[a2, a2], a3, n] - 
    S2[a3, n]*S2[a1, a3, a2, a1, a2, n] - S2[a1, a3, a2, a1, SP[a2, a3], n] - 
    (S2[a1, n]*S2[a1, a3, a2, a3, a2, n])/2 - 
    S2[a1, a3, a2, a3, SP[a1, a2], n]/2 - 
    (3*S2[a1, a3, a2, SP[a1, a3], a2, n])/2 + 
    2*S2[a2, n]*S2[a1, a3, a3, a1, a2, n] + 
    2*S2[a1, a3, a3, a1, SP[a2, a2], n] + 
    2*S2[a1, a3, a3, SP[a1, a2], a2, n] + S2[a1, a3, SP[a1, a2], a2, a3, n] + 
    (3*S2[a1, a3, SP[a1, a2], a3, a2, n])/2 - 
    2*S2[a1, a3, SP[a1, a3], a2, a2, n] + S2[a1, a3, SP[a2, a3], a1, a2, n] - 
    S2[a1, SP[a1, a3], a2, a3, a2, n]/2 - 
    2*S2[a1, SP[a1, a3], a3, a2, a2, n] + S2[a1, SP[a2, a3], a1, a2, a3, n] + 
    2*S2[a1, SP[a2, a3], a1, a3, a2, n] + 
    2*S2[a1, SP[a2, a3], a3, a1, a2, n] - 
    2*S2[a1, SP[a3, a3], a1, a2, a2, n] - S2[a1, SP[a3, a3], a2, a1, a2, n] + 
    S2[a2, a1, a1, a2, SP[a3, a3], n] - 2*S2[a2, a1, a1, a3, SP[a2, a3], n] - 
    S2[a2, a1, a1, SP[a2, a3], a3, n] - 2*S2[a2, a1, a3, a1, SP[a2, a3], n] - 
    2*S2[a2, a1, a3, SP[a1, a3], a2, n] - S2[a2, a1, SP[a1, a3], a2, a3, n] - 
    2*S2[a2, a1, SP[a1, a3], a3, a2, n] + 
    S2[a3, n]*S2[a2, a3, a1, a1, a2, n] - S2[a2, a3, a1, a1, SP[a2, a3], n] - 
    S2[a2, a3, a1, SP[a1, a3], a2, n] - S2[a2, a3, SP[a1, a3], a1, a2, n] - 
    S2[a2, SP[a1, a3], a1, a2, a3, n] - 2*S2[a2, SP[a1, a3], a1, a3, a2, n] - 
    2*S2[a2, SP[a1, a3], a3, a1, a2, n] + S2[a2, SP[a3, a3], a1, a1, a2, n] + 
    S2[a2, n]*S2[a3, a1, a1, a3, a2, n] + S2[a3, a1, a1, a3, SP[a2, a2], n] + 
    S2[a3, a1, a1, SP[a2, a3], a2, n] - (S2[a1, n]*S2[a3, a1, a2, a3, a2, n])/
     2 - S2[a3, a1, a2, a3, SP[a1, a2], n]/2 - 
    S2[a3, a1, a2, SP[a1, a3], a2, n]/2 + 
    S2[a2, n]*S2[a3, a1, a3, a1, a2, n] + S2[a3, a1, a3, a1, SP[a2, a2], n] + 
    S2[a3, a1, a3, SP[a1, a2], a2, n] + S2[a3, a1, SP[a1, a2], a3, a2, n]/2 + 
    S2[a3, a1, SP[a2, a3], a1, a2, n] - (S2[a1, n]*S2[a3, a2, a1, a3, a2, n])/
     2 - S2[a3, a2, a1, a3, SP[a1, a2], n]/2 - 
    S2[a3, a2, a1, SP[a1, a3], a2, n]/2 - 
    (S2[a1, n]*S2[a3, a2, a3, a1, a2, n])/2 - 
    S2[a3, a2, a3, a1, SP[a1, a2], n]/2 + 
    (S2[a1, n]*S2[a3, a2, a3, a2, a1, n])/2 + 
    S2[a3, a2, a3, a2, SP[a1, a1], n]/2 - S2[a3, a2, a3, SP[a1, a1], a2, n]/
     2 + S2[a3, a2, a3, SP[a1, a2], a1, n]/2 - 
    S2[a3, a2, SP[a1, a1], a3, a2, n]/2 - S2[a3, a2, SP[a1, a3], a1, a2, n]/
     2 + S2[a3, a2, SP[a1, a3], a2, a1, n]/2 - 
    S2[a3, SP[a1, a1], a2, a3, a2, n]/2 + S2[a3, SP[a1, a2], a1, a3, a2, n]/
     2 + S2[a3, SP[a1, a2], a3, a1, a2, n]/2 + 
    S2[a3, SP[a1, a2], a3, a2, a1, n]/2 - S2[SP[a1, a1], a3, a2, a3, a2, n]/
     2 - S2[SP[a1, a3], a1, a2, a3, a2, n]/2 - 
    2*S2[SP[a1, a3], a1, a3, a2, a2, n] - S2[SP[a1, a3], a2, a1, a3, a2, n]/
     2 - S2[SP[a1, a3], a2, a3, a1, a2, n]/2 + 
    S2[SP[a1, a3], a2, a3, a2, a1, n]/2 - 
    2*S2[SP[a1, a3], a3, a1, a2, a2, n] - S2[SP[a1, a3], a3, a2, a1, a2, n] + 
    S2[SP[a2, a3], a1, a1, a3, a2, n] + S2[SP[a2, a3], a1, a3, a1, a2, n] + 
    S2[SP[a2, a3], a3, a1, a1, a2, n] - S2[a3, a2, a3, a2, a1, a1, n] /; 
   MyMemberQ[{{a1, a2, a3}}, {a1, a1, a2, a2, a3, a3}] && a1 != a2 != a3, 
 S2[a1_, a1_, a2_, a3_, a3_, a2_, n_] :> 
  S2[a1, a1, a2, n]*S2[a2, a3, a3, n] + S2[SP[a1, a2], SP[a1, a3], 
     SP[a2, a3], n] - S2[a2, a3, n]*S2[a1, a1, a2, a3, n] + 
    S2[a1, a1, SP[a2, a2], SP[a3, a3], n] - S2[a1, a2, SP[a1, a3], 
     SP[a2, a3], n] + S2[a1, SP[a1, a2], a2, SP[a3, a3], n] - 
    S2[a1, SP[a1, a2], a3, SP[a2, a3], n] - S2[a2, a1, SP[a1, a3], 
     SP[a2, a3], n] - S2[a2, SP[a1, a3], a1, SP[a2, a3], n] - 
    S2[a2, SP[a1, a3], SP[a1, a3], a2, n] + S2[SP[a1, a2], a1, a2, 
     SP[a3, a3], n] - S2[SP[a1, a2], a1, a3, SP[a2, a3], n] - 
    S2[SP[a1, a2], a3, a1, SP[a2, a3], n] - S2[SP[a1, a2], a3, SP[a1, a3], 
     a2, n] - S2[SP[a1, a2], SP[a1, a3], a3, a2, n] - 
    2*S2[a1, a1, a2, a2, SP[a3, a3], n] + 
    S2[a2, n]*S2[a1, a1, a2, a3, a3, n] + 
    2*S2[a1, a1, a2, a3, SP[a2, a3], n] - 
    S2[a2, n]*S2[a1, a1, a3, a3, a2, n] - S2[a1, a1, a3, a3, SP[a2, a2], n] - 
    S2[a1, a1, a3, SP[a2, a3], a2, n] - S2[a1, a1, SP[a2, a3], a3, a2, n] - 
    S2[a1, a2, a1, a2, SP[a3, a3], n] + S2[a1, a2, a1, a3, SP[a2, a3], n] + 
    S2[a1, a2, a3, a1, SP[a2, a3], n] + S2[a1, a2, a3, SP[a1, a3], a2, n] + 
    S2[a1, a2, SP[a1, a3], a3, a2, n] - S2[a2, n]*S2[a1, a3, a1, a3, a2, n] - 
    S2[a1, a3, a1, a3, SP[a2, a2], n] - S2[a1, a3, a1, SP[a2, a3], a2, n] + 
    (S2[a1, n]*S2[a1, a3, a2, a3, a2, n])/2 + 
    S2[a1, a3, a2, a3, SP[a1, a2], n]/2 + S2[a1, a3, a2, SP[a1, a3], a2, n]/
     2 - S2[a2, n]*S2[a1, a3, a3, a1, a2, n] - S2[a1, a3, a3, a1, SP[a2, a2], 
     n] + S2[a1, n]*S2[a1, a3, a3, a2, a2, n] + S2[a1, a3, a3, a2, 
     SP[a1, a2], n] - S2[a1, a3, SP[a1, a2], a3, a2, n]/2 + 
    S2[a1, a3, SP[a1, a3], a2, a2, n] - S2[a1, a3, SP[a2, a3], a1, a2, n] + 
    S2[a1, SP[a1, a3], a2, a3, a2, n]/2 + S2[a1, SP[a1, a3], a3, a2, a2, n] - 
    S2[a1, SP[a2, a3], a1, a3, a2, n] - S2[a1, SP[a2, a3], a3, a1, a2, n] - 
    S2[a2, a1, a1, a2, SP[a3, a3], n] + S2[a2, a1, a1, a3, SP[a2, a3], n] + 
    S2[a2, a1, a3, a1, SP[a2, a3], n] + S2[a2, a1, a3, SP[a1, a3], a2, n] + 
    S2[a2, a1, SP[a1, a3], a3, a2, n] + S2[a2, a3, a1, a1, SP[a2, a3], n] + 
    S2[a2, a3, a1, SP[a1, a3], a2, n] + S2[a2, a3, SP[a1, a3], a1, a2, n] + 
    S2[a2, SP[a1, a3], a1, a3, a2, n] + S2[a2, SP[a1, a3], a3, a1, a2, n] - 
    S2[a2, n]*S2[a3, a1, a1, a3, a2, n] - S2[a3, a1, a1, a3, SP[a2, a2], n] - 
    S2[a3, a1, a1, SP[a2, a3], a2, n] + (S2[a1, n]*S2[a3, a1, a2, a3, a2, n])/
     2 + S2[a3, a1, a2, a3, SP[a1, a2], n]/2 + 
    S2[a3, a1, a2, SP[a1, a3], a2, n]/2 - 
    S2[a2, n]*S2[a3, a1, a3, a1, a2, n] - S2[a3, a1, a3, a1, SP[a2, a2], n] + 
    S2[a1, n]*S2[a3, a1, a3, a2, a2, n] + S2[a3, a1, a3, a2, SP[a1, a2], n] - 
    S2[a3, a1, SP[a1, a2], a3, a2, n]/2 + S2[a3, a1, SP[a1, a3], a2, a2, n] - 
    S2[a3, a1, SP[a2, a3], a1, a2, n] + (S2[a1, n]*S2[a3, a2, a1, a3, a2, n])/
     2 + S2[a3, a2, a1, a3, SP[a1, a2], n]/2 + 
    S2[a3, a2, a1, SP[a1, a3], a2, n]/2 + 
    (S2[a1, n]*S2[a3, a2, a3, a1, a2, n])/2 + 
    S2[a3, a2, a3, a1, SP[a1, a2], n]/2 - 
    (S2[a1, n]*S2[a3, a2, a3, a2, a1, n])/2 - 
    S2[a3, a2, a3, a2, SP[a1, a1], n]/2 + S2[a3, a2, a3, SP[a1, a1], a2, n]/
     2 - S2[a3, a2, a3, SP[a1, a2], a1, n]/2 + 
    S2[a3, a2, SP[a1, a1], a3, a2, n]/2 + S2[a3, a2, SP[a1, a3], a1, a2, n]/
     2 - S2[a3, a2, SP[a1, a3], a2, a1, n]/2 - 
    S2[a2, n]*S2[a3, a3, a1, a1, a2, n] - S2[a3, a3, a1, a1, SP[a2, a2], n] + 
    S2[a1, n]*S2[a3, a3, a1, a2, a2, n] + S2[a3, a3, a1, a2, SP[a1, a2], n] - 
    S2[a1, n]*S2[a3, a3, a2, a2, a1, n] - S2[a3, a3, a2, a2, SP[a1, a1], n] - 
    S2[a3, a3, a2, SP[a1, a2], a1, n] + S2[a3, a3, SP[a1, a1], a2, a2, n] - 
    S2[a3, a3, SP[a1, a2], a1, a2, n] - S2[a3, a3, SP[a1, a2], a2, a1, n] + 
    S2[a3, SP[a1, a1], a2, a3, a2, n]/2 + S2[a3, SP[a1, a1], a3, a2, a2, n] - 
    S2[a3, SP[a1, a2], a1, a3, a2, n]/2 - S2[a3, SP[a1, a2], a3, a1, a2, n]/
     2 - S2[a3, SP[a1, a2], a3, a2, a1, n]/2 + S2[a3, SP[a1, a3], a1, a2, a2, 
     n] - S2[a3, SP[a1, a3], a2, a2, a1, n] - S2[a3, SP[a2, a3], a1, a1, a2, 
     n] + S2[SP[a1, a1], a3, a2, a3, a2, n]/2 + S2[SP[a1, a1], a3, a3, a2, 
     a2, n] + S2[SP[a1, a3], a1, a2, a3, a2, n]/2 + 
    S2[SP[a1, a3], a1, a3, a2, a2, n] + S2[SP[a1, a3], a2, a1, a3, a2, n]/2 + 
    S2[SP[a1, a3], a2, a3, a1, a2, n]/2 - S2[SP[a1, a3], a2, a3, a2, a1, n]/
     2 + S2[SP[a1, a3], a3, a1, a2, a2, n] - S2[SP[a1, a3], a3, a2, a2, a1, 
     n] - S2[SP[a2, a3], a1, a1, a3, a2, n] - S2[SP[a2, a3], a1, a3, a1, a2, 
     n] - S2[SP[a2, a3], a3, a1, a1, a2, n] + S2[a3, a2, a3, a2, a1, a1, n] + 
    S2[a3, a3, a2, a1, a1, a2, n] + S2[a3, a3, a2, a1, a2, a1, n] + 
    2*S2[a3, a3, a2, a2, a1, a1, n] /; 
   MyMemberQ[{{a1, a2, a3}}, {a1, a1, a2, a2, a3, a3}] && a1 != a2 != a3, 
 S2[a1_, a1_, a3_, a2_, a2_, a3_, n_] :> 
  S2[a1, a1, a3, n]*S2[a2, a2, a3, n] + S2[SP[a1, a2], SP[a1, a2], 
     SP[a3, a3], n] + S2[a2, a3, n]*S2[a1, a1, a3, a2, n] - 
    S2[a1, a1, SP[a2, a3], SP[a2, a3], n] - S2[a1, a2, SP[a1, a2], 
     SP[a3, a3], n] - S2[a1, SP[a1, a2], a2, SP[a3, a3], n] - 
    S2[a1, SP[a1, a2], a3, SP[a2, a3], n] - S2[a1, SP[a1, a2], SP[a2, a3], 
     a3, n] - S2[a1, SP[a1, a2], SP[a3, a3], a2, n] - 
    S2[a2, a1, SP[a1, a2], SP[a3, a3], n] - S2[a2, SP[a1, a2], a1, 
     SP[a3, a3], n] - S2[a2, SP[a1, a2], SP[a1, a3], a3, n] - 
    S2[SP[a1, a2], a1, a2, SP[a3, a3], n] - S2[SP[a1, a2], a1, a3, 
     SP[a2, a3], n] - S2[SP[a1, a2], a1, SP[a2, a3], a3, n] - 
    S2[SP[a1, a2], a1, SP[a3, a3], a2, n] - S2[SP[a1, a2], a2, a1, 
     SP[a3, a3], n] - S2[SP[a1, a2], a2, SP[a1, a3], a3, n] - 
    2*S2[SP[a1, a2], SP[a1, a2], a3, a3, n] - S2[SP[a1, a2], SP[a1, a3], a3, 
     a2, n] + S2[a1, a1, a2, a2, SP[a3, a3], n] - 
    S2[a2, n]*S2[a1, a1, a2, a3, a3, n] + S2[a1, a1, a2, SP[a3, a3], a2, n] + 
    S2[a3, n]*S2[a1, a1, a3, a2, a2, n] - 
    S2[a2, n]*S2[a1, a1, a3, a2, a3, n] + S2[a1, a1, a3, a2, SP[a2, a3], n] - 
    S2[a2, n]*S2[a1, a1, a3, a3, a2, n] - S2[a1, a1, a3, a3, SP[a2, a2], n] - 
    S2[a1, a1, SP[a2, a2], a3, a3, n] + S2[a1, a1, SP[a2, a3], a2, a3, n] + 
    S2[a1, a1, SP[a3, a3], a2, a2, n] + S2[a1, a2, a1, a2, SP[a3, a3], n] - 
    S2[a2, n]*S2[a1, a2, a1, a3, a3, n] + S2[a1, a2, a1, SP[a3, a3], a2, n] + 
    S2[a1, a2, a2, a1, SP[a3, a3], n] + S2[a1, a2, a2, SP[a1, a3], a3, n] - 
    (S2[a2, n]*S2[a1, a2, a3, a1, a3, n])/2 - 
    S2[a1, a2, a3, a1, SP[a2, a3], n]/2 - S2[a1, a2, a3, SP[a1, a2], a3, n]/
     2 + S2[a1, a2, SP[a1, a2], a3, a3, n] + S2[a1, a2, SP[a1, a3], a3, a2, 
     n] - S2[a1, a2, SP[a2, a3], a1, a3, n]/2 + 
    (S2[a2, n]*S2[a1, a3, a1, a2, a3, n])/2 + 
    S2[a1, a3, a1, a2, SP[a2, a3], n]/2 - 
    (S2[a2, n]*S2[a1, a3, a1, a3, a2, n])/2 - 
    S2[a1, a3, a1, a3, SP[a2, a2], n]/2 + S2[a1, a3, a1, SP[a2, a2], a3, n]/
     2 - S2[a1, a3, a1, SP[a2, a3], a2, n]/2 + 
    (S2[a2, n]*S2[a1, a3, a2, a1, a3, n])/2 + 
    S2[a1, a3, a2, a1, SP[a2, a3], n]/2 - 
    (S2[a1, n]*S2[a1, a3, a2, a2, a3, n])/2 - 
    S2[a1, a3, a2, a2, SP[a1, a3], n]/2 - S2[a1, a3, SP[a1, a2], a3, a2, n]/
     2 + S2[a1, a3, SP[a2, a2], a1, a3, n]/2 + S2[a1, SP[a1, a2], a2, a3, a3, 
     n] + S2[a1, SP[a1, a2], a3, a2, a3, n] + S2[a1, SP[a1, a2], a3, a3, a2, 
     n] - S2[a1, SP[a1, a3], a2, a2, a3, n]/2 + S2[a1, SP[a1, a3], a3, a2, 
     a2, n] - S2[a1, SP[a2, a2], a1, a3, a3, n] - 
    S2[a1, SP[a2, a2], a3, a1, a3, n]/2 + S2[a1, SP[a2, a3], a1, a2, a3, n]/
     2 - S2[a1, SP[a2, a3], a1, a3, a2, n]/2 + 
    S2[a1, SP[a2, a3], a2, a1, a3, n]/2 + S2[a2, a1, a1, a2, SP[a3, a3], n] - 
    S2[a2, n]*S2[a2, a1, a1, a3, a3, n] + S2[a2, a1, a1, SP[a3, a3], a2, n] + 
    S2[a2, a1, a2, a1, SP[a3, a3], n] + S2[a2, a1, a2, SP[a1, a3], a3, n] - 
    (S2[a2, n]*S2[a2, a1, a3, a1, a3, n])/2 - 
    S2[a2, a1, a3, a1, SP[a2, a3], n]/2 - S2[a2, a1, a3, SP[a1, a2], a3, n]/
     2 + S2[a2, a1, SP[a1, a2], a3, a3, n] + S2[a2, a1, SP[a1, a3], a3, a2, 
     n] - S2[a2, a1, SP[a2, a3], a1, a3, n]/2 + S2[a2, a2, a1, a1, 
     SP[a3, a3], n] + S2[a2, a2, a1, SP[a1, a3], a3, n] + 
    S2[a2, a2, SP[a1, a3], a1, a3, n] - (S2[a2, n]*S2[a2, a3, a1, a1, a3, n])/
     2 - S2[a2, a3, a1, a1, SP[a2, a3], n]/2 - 
    S2[a2, a3, a1, SP[a1, a2], a3, n]/2 - S2[a2, a3, SP[a1, a2], a1, a3, n]/
     2 + S2[a2, SP[a1, a2], a1, a3, a3, n] + 
    S2[a2, SP[a1, a2], a3, a1, a3, n]/2 + S2[a2, SP[a1, a3], a1, a3, a2, n] - 
    S2[a2, SP[a2, a3], a1, a1, a3, n]/2 + 
    (S2[a2, n]*S2[a3, a1, a1, a2, a3, n])/2 + 
    S2[a3, a1, a1, a2, SP[a2, a3], n]/2 - 
    (S2[a2, n]*S2[a3, a1, a1, a3, a2, n])/2 - 
    S2[a3, a1, a1, a3, SP[a2, a2], n]/2 + S2[a3, a1, a1, SP[a2, a2], a3, n]/
     2 - S2[a3, a1, a1, SP[a2, a3], a2, n]/2 + 
    (S2[a2, n]*S2[a3, a1, a2, a1, a3, n])/2 + 
    S2[a3, a1, a2, a1, SP[a2, a3], n]/2 - 
    (S2[a1, n]*S2[a3, a1, a2, a2, a3, n])/2 - 
    S2[a3, a1, a2, a2, SP[a1, a3], n]/2 - S2[a3, a1, SP[a1, a2], a3, a2, n]/
     2 + S2[a3, a1, SP[a2, a2], a1, a3, n]/2 + 
    (S2[a2, n]*S2[a3, a2, a1, a1, a3, n])/2 + 
    S2[a3, a2, a1, a1, SP[a2, a3], n]/2 - 
    (S2[a1, n]*S2[a3, a2, a1, a2, a3, n])/2 - 
    S2[a3, a2, a1, a2, SP[a1, a3], n]/2 - 
    (S2[a1, n]*S2[a3, a2, a2, a1, a3, n])/2 - 
    S2[a3, a2, a2, a1, SP[a1, a3], n]/2 + 
    (S2[a1, n]*S2[a3, a2, a2, a3, a1, n])/2 + 
    S2[a3, a2, a2, a3, SP[a1, a1], n]/2 - S2[a3, a2, a2, SP[a1, a1], a3, n]/
     2 + S2[a3, a2, a2, SP[a1, a3], a1, n]/2 - 
    S2[a3, a2, SP[a1, a1], a2, a3, n]/2 + S2[a3, a2, SP[a1, a2], a3, a1, n]/
     2 - S2[a3, SP[a1, a1], a2, a2, a3, n]/2 - 
    S2[a3, SP[a1, a2], a1, a3, a2, n]/2 + S2[a3, SP[a1, a2], a2, a3, a1, n]/
     2 + S2[a3, SP[a2, a2], a1, a1, a3, n]/2 - 
    S2[SP[a1, a1], a3, a2, a2, a3, n]/2 + S2[SP[a1, a2], a1, a2, a3, a3, n] + 
    S2[SP[a1, a2], a1, a3, a2, a3, n] + S2[SP[a1, a2], a1, a3, a3, a2, n] + 
    S2[SP[a1, a2], a2, a1, a3, a3, n] + S2[SP[a1, a2], a2, a3, a1, a3, n]/2 + 
    S2[SP[a1, a2], a3, a1, a2, a3, n]/2 + S2[SP[a1, a2], a3, a1, a3, a2, n]/
     2 + S2[SP[a1, a2], a3, a2, a1, a3, n]/2 - 
    S2[SP[a1, a3], a1, a2, a2, a3, n]/2 + S2[SP[a1, a3], a1, a3, a2, a2, n] - 
    S2[SP[a1, a3], a2, a1, a2, a3, n]/2 - S2[SP[a1, a3], a2, a2, a1, a3, n]/
     2 + S2[SP[a1, a3], a2, a2, a3, a1, n]/2 - S2[SP[a2, a2], a1, a1, a3, a3, 
     n] - S2[SP[a2, a2], a1, a3, a1, a3, n]/2 - 
    S2[SP[a2, a2], a3, a1, a1, a3, n]/2 + S2[SP[a2, a3], a1, a1, a2, a3, n]/
     2 - S2[SP[a2, a3], a1, a1, a3, a2, n]/2 + 
    S2[SP[a2, a3], a1, a2, a1, a3, n]/2 + S2[SP[a2, a3], a2, a1, a1, a3, n]/
     2 - S2[a3, a2, a2, a3, a1, a1, n] /; 
   MyMemberQ[{{a1, a2, a3}}, {a1, a1, a2, a2, a3, a3}] && a1 != a2 != a3, 
 S2[a1_, a1_, a3_, a2_, a3_, a2_, n_] :> 
  -2*S2[a1, a1, a3, n]*S2[a2, a2, a3, n] - 
    2*S2[SP[a1, a2], SP[a1, a2], SP[a3, a3], n] - 
    S2[a2, a3, n]*S2[a1, a1, a3, a2, n] + S2[a1, a1, SP[a2, a3], SP[a2, a3], 
     n] + 2*S2[a1, a2, SP[a1, a2], SP[a3, a3], n] + 
    2*S2[a1, SP[a1, a2], a2, SP[a3, a3], n] + S2[a1, SP[a1, a2], a3, 
     SP[a2, a3], n] + 2*S2[a1, SP[a1, a2], SP[a2, a3], a3, n] + 
    S2[a1, SP[a1, a2], SP[a3, a3], a2, n] + 
    2*S2[a2, a1, SP[a1, a2], SP[a3, a3], n] + 
    2*S2[a2, SP[a1, a2], a1, SP[a3, a3], n] + 
    2*S2[a2, SP[a1, a2], SP[a1, a3], a3, n] + 
    2*S2[SP[a1, a2], a1, a2, SP[a3, a3], n] + S2[SP[a1, a2], a1, a3, 
     SP[a2, a3], n] + 2*S2[SP[a1, a2], a1, SP[a2, a3], a3, n] + 
    S2[SP[a1, a2], a1, SP[a3, a3], a2, n] + 
    2*S2[SP[a1, a2], a2, a1, SP[a3, a3], n] + 
    2*S2[SP[a1, a2], a2, SP[a1, a3], a3, n] + 
    4*S2[SP[a1, a2], SP[a1, a2], a3, a3, n] + S2[SP[a1, a2], SP[a1, a3], a3, 
     a2, n] - 2*S2[a1, a1, a2, a2, SP[a3, a3], n] + 
    2*S2[a2, n]*S2[a1, a1, a2, a3, a3, n] + S2[a1, a1, a2, a3, SP[a2, a3], 
     n] - S2[a1, a1, a2, SP[a3, a3], a2, n] + 
    S2[a2, n]*S2[a1, a1, a3, a2, a3, n] + 
    2*S2[a1, a1, SP[a2, a2], a3, a3, n] - 
    2*S2[a1, a1, SP[a2, a3], a2, a3, n] - S2[a1, a1, SP[a2, a3], a3, a2, n] - 
    2*S2[a1, a2, a1, a2, SP[a3, a3], n] + 
    2*S2[a2, n]*S2[a1, a2, a1, a3, a3, n] + S2[a1, a2, a1, a3, SP[a2, a3], 
     n] - S2[a1, a2, a1, SP[a3, a3], a2, n] - 
    2*S2[a1, a2, a2, a1, SP[a3, a3], n] - 
    2*S2[a1, a2, a2, SP[a1, a3], a3, n] + 
    S2[a2, n]*S2[a1, a2, a3, a1, a3, n] + S2[a1, a2, a3, a1, SP[a2, a3], n] + 
    S2[a1, a2, a3, SP[a1, a2], a3, n] - 2*S2[a1, a2, SP[a1, a2], a3, a3, n] - 
    S2[a1, a2, SP[a1, a3], a3, a2, n] + S2[a1, a2, SP[a2, a3], a1, a3, n] - 
    S2[a2, n]*S2[a1, a3, a1, a2, a3, n] - S2[a1, a3, a1, a2, SP[a2, a3], n] - 
    S2[a1, a3, a1, SP[a2, a2], a3, n] - S2[a2, n]*S2[a1, a3, a2, a1, a3, n] - 
    S2[a1, a3, a2, a1, SP[a2, a3], n] + S2[a1, n]*S2[a1, a3, a2, a2, a3, n] + 
    S2[a1, a3, a2, a2, SP[a1, a3], n] + (S2[a1, n]*S2[a1, a3, a2, a3, a2, n])/
     2 + S2[a1, a3, a2, a3, SP[a1, a2], n]/2 + 
    S2[a1, a3, a2, SP[a1, a3], a2, n]/2 + S2[a1, a3, SP[a1, a2], a3, a2, n]/
     2 - S2[a1, a3, SP[a2, a2], a1, a3, n] - 
    2*S2[a1, SP[a1, a2], a2, a3, a3, n] - 
    2*S2[a1, SP[a1, a2], a3, a2, a3, n] - 
    2*S2[a1, SP[a1, a2], a3, a3, a2, n] + S2[a1, SP[a1, a3], a2, a2, a3, n] + 
    S2[a1, SP[a1, a3], a2, a3, a2, n]/2 + 
    2*S2[a1, SP[a2, a2], a1, a3, a3, n] + S2[a1, SP[a2, a2], a3, a1, a3, n] - 
    S2[a1, SP[a2, a3], a1, a2, a3, n] - S2[a1, SP[a2, a3], a2, a1, a3, n] - 
    2*S2[a2, a1, a1, a2, SP[a3, a3], n] + 
    2*S2[a2, n]*S2[a2, a1, a1, a3, a3, n] + S2[a2, a1, a1, a3, SP[a2, a3], 
     n] - S2[a2, a1, a1, SP[a3, a3], a2, n] - 
    2*S2[a2, a1, a2, a1, SP[a3, a3], n] - 
    2*S2[a2, a1, a2, SP[a1, a3], a3, n] + 
    S2[a2, n]*S2[a2, a1, a3, a1, a3, n] + S2[a2, a1, a3, a1, SP[a2, a3], n] + 
    S2[a2, a1, a3, SP[a1, a2], a3, n] - 2*S2[a2, a1, SP[a1, a2], a3, a3, n] - 
    S2[a2, a1, SP[a1, a3], a3, a2, n] + S2[a2, a1, SP[a2, a3], a1, a3, n] - 
    2*S2[a2, a2, a1, a1, SP[a3, a3], n] - 
    2*S2[a2, a2, a1, SP[a1, a3], a3, n] - 
    2*S2[a2, a2, SP[a1, a3], a1, a3, n] + 
    S2[a2, n]*S2[a2, a3, a1, a1, a3, n] + S2[a2, a3, a1, a1, SP[a2, a3], n] + 
    S2[a2, a3, a1, SP[a1, a2], a3, n] + S2[a2, a3, SP[a1, a2], a1, a3, n] - 
    2*S2[a2, SP[a1, a2], a1, a3, a3, n] - S2[a2, SP[a1, a2], a3, a1, a3, n] - 
    S2[a2, SP[a1, a3], a1, a3, a2, n] + S2[a2, SP[a2, a3], a1, a1, a3, n] - 
    S2[a2, n]*S2[a3, a1, a1, a2, a3, n] - S2[a3, a1, a1, a2, SP[a2, a3], n] - 
    S2[a3, a1, a1, SP[a2, a2], a3, n] - S2[a2, n]*S2[a3, a1, a2, a1, a3, n] - 
    S2[a3, a1, a2, a1, SP[a2, a3], n] + S2[a1, n]*S2[a3, a1, a2, a2, a3, n] + 
    S2[a3, a1, a2, a2, SP[a1, a3], n] + (S2[a1, n]*S2[a3, a1, a2, a3, a2, n])/
     2 + S2[a3, a1, a2, a3, SP[a1, a2], n]/2 + 
    S2[a3, a1, a2, SP[a1, a3], a2, n]/2 + S2[a3, a1, SP[a1, a2], a3, a2, n]/
     2 - S2[a3, a1, SP[a2, a2], a1, a3, n] - 
    S2[a2, n]*S2[a3, a2, a1, a1, a3, n] - S2[a3, a2, a1, a1, SP[a2, a3], n] + 
    S2[a1, n]*S2[a3, a2, a1, a2, a3, n] + S2[a3, a2, a1, a2, SP[a1, a3], n] + 
    (S2[a1, n]*S2[a3, a2, a1, a3, a2, n])/2 + 
    S2[a3, a2, a1, a3, SP[a1, a2], n]/2 + S2[a3, a2, a1, SP[a1, a3], a2, n]/
     2 + S2[a1, n]*S2[a3, a2, a2, a1, a3, n] + S2[a3, a2, a2, a1, SP[a1, a3], 
     n] - S2[a1, n]*S2[a3, a2, a2, a3, a1, n] - S2[a3, a2, a2, a3, 
     SP[a1, a1], n] + S2[a3, a2, a2, SP[a1, a1], a3, n] - 
    S2[a3, a2, a2, SP[a1, a3], a1, n] - (S2[a1, n]*S2[a3, a2, a3, a1, a2, n])/
     2 - S2[a3, a2, a3, a1, SP[a1, a2], n]/2 - 
    (S2[a1, n]*S2[a3, a2, a3, a2, a1, n])/2 - 
    S2[a3, a2, a3, a2, SP[a1, a1], n]/2 - S2[a3, a2, a3, SP[a1, a1], a2, n]/
     2 - S2[a3, a2, a3, SP[a1, a2], a1, n]/2 + S2[a3, a2, SP[a1, a1], a2, a3, 
     n] + S2[a3, a2, SP[a1, a1], a3, a2, n]/2 - S2[a3, a2, SP[a1, a2], a3, 
     a1, n] - S2[a3, a2, SP[a1, a3], a1, a2, n]/2 - 
    S2[a3, a2, SP[a1, a3], a2, a1, n]/2 + S2[a3, SP[a1, a1], a2, a2, a3, n] + 
    S2[a3, SP[a1, a1], a2, a3, a2, n]/2 + S2[a3, SP[a1, a2], a1, a3, a2, n]/
     2 - S2[a3, SP[a1, a2], a2, a3, a1, n] - 
    S2[a3, SP[a1, a2], a3, a1, a2, n]/2 - S2[a3, SP[a1, a2], a3, a2, a1, n]/
     2 - S2[a3, SP[a2, a2], a1, a1, a3, n] + S2[SP[a1, a1], a3, a2, a2, a3, 
     n] + S2[SP[a1, a1], a3, a2, a3, a2, n]/2 - 
    2*S2[SP[a1, a2], a1, a2, a3, a3, n] - 
    2*S2[SP[a1, a2], a1, a3, a2, a3, n] - 
    2*S2[SP[a1, a2], a1, a3, a3, a2, n] - 
    2*S2[SP[a1, a2], a2, a1, a3, a3, n] - S2[SP[a1, a2], a2, a3, a1, a3, n] - 
    S2[SP[a1, a2], a3, a1, a2, a3, n] - S2[SP[a1, a2], a3, a1, a3, a2, n] - 
    S2[SP[a1, a2], a3, a2, a1, a3, n] + S2[SP[a1, a3], a1, a2, a2, a3, n] + 
    S2[SP[a1, a3], a1, a2, a3, a2, n]/2 + S2[SP[a1, a3], a2, a1, a2, a3, n] + 
    S2[SP[a1, a3], a2, a1, a3, a2, n]/2 + S2[SP[a1, a3], a2, a2, a1, a3, n] - 
    S2[SP[a1, a3], a2, a2, a3, a1, n] - S2[SP[a1, a3], a2, a3, a1, a2, n]/2 - 
    S2[SP[a1, a3], a2, a3, a2, a1, n]/2 + 
    2*S2[SP[a2, a2], a1, a1, a3, a3, n] + S2[SP[a2, a2], a1, a3, a1, a3, n] + 
    S2[SP[a2, a2], a3, a1, a1, a3, n] - S2[SP[a2, a3], a1, a1, a2, a3, n] - 
    S2[SP[a2, a3], a1, a2, a1, a3, n] - S2[SP[a2, a3], a2, a1, a1, a3, n] + 
    2*S2[a3, a2, a2, a3, a1, a1, n] + S2[a3, a2, a3, a1, a1, a2, n] + 
    S2[a3, a2, a3, a1, a2, a1, n] + S2[a3, a2, a3, a2, a1, a1, n] /; 
   MyMemberQ[{{a1, a2, a3}}, {a1, a1, a2, a2, a3, a3}] && a1 != a2 != a3, 
 S2[a1_, a1_, a3_, a3_, a2_, a2_, n_] :> 
  S2[a1, a1, a3, n]*S2[a2, a2, a3, n] + S2[SP[a1, a2], SP[a1, a2], 
     SP[a3, a3], n] - S2[a1, a2, SP[a1, a2], SP[a3, a3], n] - 
    S2[a1, SP[a1, a2], a2, SP[a3, a3], n] - S2[a1, SP[a1, a2], SP[a2, a3], 
     a3, n] - S2[a2, a1, SP[a1, a2], SP[a3, a3], n] - 
    S2[a2, SP[a1, a2], a1, SP[a3, a3], n] - S2[a2, SP[a1, a2], SP[a1, a3], 
     a3, n] - S2[SP[a1, a2], a1, a2, SP[a3, a3], n] - 
    S2[SP[a1, a2], a1, SP[a2, a3], a3, n] - S2[SP[a1, a2], a2, a1, 
     SP[a3, a3], n] - S2[SP[a1, a2], a2, SP[a1, a3], a3, n] - 
    2*S2[SP[a1, a2], SP[a1, a2], a3, a3, n] + S2[a1, a1, a2, a2, SP[a3, a3], 
     n] - S2[a2, n]*S2[a1, a1, a2, a3, a3, n] - S2[a1, a1, a2, a3, 
     SP[a2, a3], n] + S2[a2, n]*S2[a1, a1, a3, a3, a2, n] + 
    S2[a1, a1, a3, a3, SP[a2, a2], n] + S2[a1, a1, a3, SP[a2, a3], a2, n] - 
    S2[a1, a1, SP[a2, a2], a3, a3, n] + S2[a1, a1, SP[a2, a3], a2, a3, n] + 
    S2[a1, a1, SP[a2, a3], a3, a2, n] + S2[a1, a2, a1, a2, SP[a3, a3], n] - 
    S2[a2, n]*S2[a1, a2, a1, a3, a3, n] - S2[a1, a2, a1, a3, SP[a2, a3], n] + 
    S2[a1, a2, a2, a1, SP[a3, a3], n] + S2[a1, a2, a2, SP[a1, a3], a3, n] - 
    (S2[a2, n]*S2[a1, a2, a3, a1, a3, n])/2 - 
    S2[a1, a2, a3, a1, SP[a2, a3], n]/2 - S2[a1, a2, a3, SP[a1, a2], a3, n]/
     2 + S2[a1, a2, SP[a1, a2], a3, a3, n] - 
    S2[a1, a2, SP[a2, a3], a1, a3, n]/2 + 
    (S2[a2, n]*S2[a1, a3, a1, a2, a3, n])/2 + 
    S2[a1, a3, a1, a2, SP[a2, a3], n]/2 + 
    (S2[a2, n]*S2[a1, a3, a1, a3, a2, n])/2 + 
    S2[a1, a3, a1, a3, SP[a2, a2], n]/2 + S2[a1, a3, a1, SP[a2, a2], a3, n]/
     2 + S2[a1, a3, a1, SP[a2, a3], a2, n]/2 + 
    (S2[a2, n]*S2[a1, a3, a2, a1, a3, n])/2 + 
    S2[a1, a3, a2, a1, SP[a2, a3], n]/2 - 
    (S2[a1, n]*S2[a1, a3, a2, a2, a3, n])/2 - 
    S2[a1, a3, a2, a2, SP[a1, a3], n]/2 - 
    (S2[a1, n]*S2[a1, a3, a2, a3, a2, n])/2 - 
    S2[a1, a3, a2, a3, SP[a1, a2], n]/2 - S2[a1, a3, a2, SP[a1, a3], a2, n]/
     2 - (S2[a1, n]*S2[a1, a3, a3, a2, a2, n])/2 - 
    S2[a1, a3, a3, a2, SP[a1, a2], n]/2 - S2[a1, a3, a3, SP[a1, a2], a2, n]/
     2 - S2[a1, a3, SP[a1, a3], a2, a2, n]/2 + 
    S2[a1, a3, SP[a2, a2], a1, a3, n]/2 + S2[a1, SP[a1, a2], a2, a3, a3, n] + 
    S2[a1, SP[a1, a2], a3, a2, a3, n] + S2[a1, SP[a1, a2], a3, a3, a2, n] - 
    S2[a1, SP[a1, a3], a2, a2, a3, n]/2 - S2[a1, SP[a1, a3], a2, a3, a2, n]/
     2 - S2[a1, SP[a1, a3], a3, a2, a2, n]/2 - S2[a1, SP[a2, a2], a1, a3, a3, 
     n] - S2[a1, SP[a2, a2], a3, a1, a3, n]/2 + 
    S2[a1, SP[a2, a3], a1, a2, a3, n]/2 + S2[a1, SP[a2, a3], a1, a3, a2, n]/
     2 + S2[a1, SP[a2, a3], a2, a1, a3, n]/2 + S2[a2, a1, a1, a2, SP[a3, a3], 
     n] - S2[a2, n]*S2[a2, a1, a1, a3, a3, n] - S2[a2, a1, a1, a3, 
     SP[a2, a3], n] + S2[a2, a1, a2, a1, SP[a3, a3], n] + 
    S2[a2, a1, a2, SP[a1, a3], a3, n] - (S2[a2, n]*S2[a2, a1, a3, a1, a3, n])/
     2 - S2[a2, a1, a3, a1, SP[a2, a3], n]/2 - 
    S2[a2, a1, a3, SP[a1, a2], a3, n]/2 + S2[a2, a1, SP[a1, a2], a3, a3, n] - 
    S2[a2, a1, SP[a2, a3], a1, a3, n]/2 + S2[a2, a2, a1, a1, SP[a3, a3], n] + 
    S2[a2, a2, a1, SP[a1, a3], a3, n] + S2[a2, a2, SP[a1, a3], a1, a3, n] - 
    (S2[a2, n]*S2[a2, a3, a1, a1, a3, n])/2 - 
    S2[a2, a3, a1, a1, SP[a2, a3], n]/2 - S2[a2, a3, a1, SP[a1, a2], a3, n]/
     2 - S2[a2, a3, SP[a1, a2], a1, a3, n]/2 + S2[a2, SP[a1, a2], a1, a3, a3, 
     n] + S2[a2, SP[a1, a2], a3, a1, a3, n]/2 - 
    S2[a2, SP[a2, a3], a1, a1, a3, n]/2 + 
    (S2[a2, n]*S2[a3, a1, a1, a2, a3, n])/2 + 
    S2[a3, a1, a1, a2, SP[a2, a3], n]/2 + 
    (S2[a2, n]*S2[a3, a1, a1, a3, a2, n])/2 + 
    S2[a3, a1, a1, a3, SP[a2, a2], n]/2 + S2[a3, a1, a1, SP[a2, a2], a3, n]/
     2 + S2[a3, a1, a1, SP[a2, a3], a2, n]/2 + 
    (S2[a2, n]*S2[a3, a1, a2, a1, a3, n])/2 + 
    S2[a3, a1, a2, a1, SP[a2, a3], n]/2 - 
    (S2[a1, n]*S2[a3, a1, a2, a2, a3, n])/2 - 
    S2[a3, a1, a2, a2, SP[a1, a3], n]/2 - 
    (S2[a1, n]*S2[a3, a1, a2, a3, a2, n])/2 - 
    S2[a3, a1, a2, a3, SP[a1, a2], n]/2 - S2[a3, a1, a2, SP[a1, a3], a2, n]/
     2 - (S2[a1, n]*S2[a3, a1, a3, a2, a2, n])/2 - 
    S2[a3, a1, a3, a2, SP[a1, a2], n]/2 - S2[a3, a1, a3, SP[a1, a2], a2, n]/
     2 - S2[a3, a1, SP[a1, a3], a2, a2, n]/2 + 
    S2[a3, a1, SP[a2, a2], a1, a3, n]/2 + 
    (S2[a2, n]*S2[a3, a2, a1, a1, a3, n])/2 + 
    S2[a3, a2, a1, a1, SP[a2, a3], n]/2 - 
    (S2[a1, n]*S2[a3, a2, a1, a2, a3, n])/2 - 
    S2[a3, a2, a1, a2, SP[a1, a3], n]/2 - 
    (S2[a1, n]*S2[a3, a2, a1, a3, a2, n])/2 - 
    S2[a3, a2, a1, a3, SP[a1, a2], n]/2 - S2[a3, a2, a1, SP[a1, a3], a2, n]/
     2 - (S2[a1, n]*S2[a3, a2, a2, a1, a3, n])/2 - 
    S2[a3, a2, a2, a1, SP[a1, a3], n]/2 + 
    (S2[a1, n]*S2[a3, a2, a2, a3, a1, n])/2 + 
    S2[a3, a2, a2, a3, SP[a1, a1], n]/2 - S2[a3, a2, a2, SP[a1, a1], a3, n]/
     2 + S2[a3, a2, a2, SP[a1, a3], a1, n]/2 + 
    (S2[a1, n]*S2[a3, a2, a3, a1, a2, n])/2 + 
    S2[a3, a2, a3, a1, SP[a1, a2], n]/2 + 
    (S2[a1, n]*S2[a3, a2, a3, a2, a1, n])/2 + 
    S2[a3, a2, a3, a2, SP[a1, a1], n]/2 + S2[a3, a2, a3, SP[a1, a1], a2, n]/
     2 + S2[a3, a2, a3, SP[a1, a2], a1, n]/2 - 
    S2[a3, a2, SP[a1, a1], a2, a3, n]/2 - S2[a3, a2, SP[a1, a1], a3, a2, n]/
     2 + S2[a3, a2, SP[a1, a2], a3, a1, n]/2 + 
    S2[a3, a2, SP[a1, a3], a1, a2, n]/2 + S2[a3, a2, SP[a1, a3], a2, a1, n]/
     2 + (S2[a1, n]*S2[a3, a3, a1, a2, a2, n])/2 + 
    S2[a3, a3, a1, a2, SP[a1, a2], n]/2 + S2[a3, a3, a1, SP[a1, a2], a2, n]/
     2 + (S2[a1, n]*S2[a3, a3, a2, a1, a2, n])/2 + 
    S2[a3, a3, a2, a1, SP[a1, a2], n]/2 + 
    (S2[a1, n]*S2[a3, a3, a2, a2, a1, n])/2 + 
    S2[a3, a3, a2, a2, SP[a1, a1], n]/2 + S2[a3, a3, a2, SP[a1, a1], a2, n]/
     2 + S2[a3, a3, a2, SP[a1, a2], a1, n]/2 + 
    S2[a3, a3, SP[a1, a1], a2, a2, n]/2 + S2[a3, a3, SP[a1, a2], a1, a2, n]/
     2 + S2[a3, a3, SP[a1, a2], a2, a1, n]/2 - 
    S2[a3, SP[a1, a1], a2, a2, a3, n]/2 - S2[a3, SP[a1, a1], a2, a3, a2, n]/
     2 - S2[a3, SP[a1, a1], a3, a2, a2, n]/2 + 
    S2[a3, SP[a1, a2], a2, a3, a1, n]/2 + S2[a3, SP[a1, a2], a3, a1, a2, n]/
     2 + S2[a3, SP[a1, a2], a3, a2, a1, n]/2 + 
    S2[a3, SP[a1, a3], a1, a2, a2, n]/2 + S2[a3, SP[a1, a3], a2, a1, a2, n]/
     2 + S2[a3, SP[a1, a3], a2, a2, a1, n]/2 + 
    S2[a3, SP[a2, a2], a1, a1, a3, n]/2 - S2[SP[a1, a1], a3, a2, a2, a3, n]/
     2 - S2[SP[a1, a1], a3, a2, a3, a2, n]/2 - 
    S2[SP[a1, a1], a3, a3, a2, a2, n]/2 + S2[SP[a1, a2], a1, a2, a3, a3, n] + 
    S2[SP[a1, a2], a1, a3, a2, a3, n] + S2[SP[a1, a2], a1, a3, a3, a2, n] + 
    S2[SP[a1, a2], a2, a1, a3, a3, n] + S2[SP[a1, a2], a2, a3, a1, a3, n]/2 + 
    S2[SP[a1, a2], a3, a1, a2, a3, n]/2 + S2[SP[a1, a2], a3, a1, a3, a2, n]/
     2 + S2[SP[a1, a2], a3, a2, a1, a3, n]/2 - 
    S2[SP[a1, a3], a1, a2, a2, a3, n]/2 - S2[SP[a1, a3], a1, a2, a3, a2, n]/
     2 - S2[SP[a1, a3], a1, a3, a2, a2, n]/2 - 
    S2[SP[a1, a3], a2, a1, a2, a3, n]/2 - S2[SP[a1, a3], a2, a1, a3, a2, n]/
     2 - S2[SP[a1, a3], a2, a2, a1, a3, n]/2 + 
    S2[SP[a1, a3], a2, a2, a3, a1, n]/2 + S2[SP[a1, a3], a2, a3, a1, a2, n]/
     2 + S2[SP[a1, a3], a2, a3, a2, a1, n]/2 + 
    S2[SP[a1, a3], a3, a1, a2, a2, n]/2 + S2[SP[a1, a3], a3, a2, a1, a2, n]/
     2 + S2[SP[a1, a3], a3, a2, a2, a1, n]/2 - S2[SP[a2, a2], a1, a1, a3, a3, 
     n] - S2[SP[a2, a2], a1, a3, a1, a3, n]/2 - 
    S2[SP[a2, a2], a3, a1, a1, a3, n]/2 + S2[SP[a2, a3], a1, a1, a2, a3, n]/
     2 + S2[SP[a2, a3], a1, a1, a3, a2, n]/2 + 
    S2[SP[a2, a3], a1, a2, a1, a3, n]/2 + S2[SP[a2, a3], a2, a1, a1, a3, n]/
     2 - S2[a3, a2, a2, a3, a1, a1, n] - S2[a3, a2, a3, a1, a1, a2, n] - 
    S2[a3, a2, a3, a1, a2, a1, n] - S2[a3, a2, a3, a2, a1, a1, n] - 
    S2[a3, a3, a1, a1, a2, a2, n] - S2[a3, a3, a1, a2, a1, a2, n] - 
    S2[a3, a3, a1, a2, a2, a1, n] - S2[a3, a3, a2, a1, a1, a2, n] - 
    S2[a3, a3, a2, a1, a2, a1, n] - S2[a3, a3, a2, a2, a1, a1, n] /; 
   MyMemberQ[{{a1, a2, a3}}, {a1, a1, a2, a2, a3, a3}] && a1 != a2 != a3, 
 S2[a1_, a2_, a1_, a2_, a3_, a3_, n_] :> 
  -2*S2[a1, a1, a2, n]*S2[a2, a3, a3, n] - 
    2*S2[SP[a1, a2], SP[a1, a3], SP[a2, a3], n] + 
    S2[a1, a2, n]*S2[a1, a2, a3, a3, n] + S2[a1, a2, SP[a1, a3], SP[a2, a3], 
     n] + S2[a1, SP[a1, a2], a3, SP[a2, a3], n] + 
    S2[a1, SP[a1, a2], SP[a2, a3], a3, n] + 
    2*S2[a2, a1, SP[a1, a3], SP[a2, a3], n] + 
    2*S2[a2, SP[a1, a3], a1, SP[a2, a3], n] + 
    2*S2[a2, SP[a1, a3], SP[a1, a3], a2, n] - S2[SP[a1, a1], a2, a3, 
     SP[a2, a3], n] - S2[SP[a1, a1], a2, SP[a2, a3], a3, n] - 
    S2[SP[a1, a1], SP[a2, a2], a3, a3, n] + 
    2*S2[SP[a1, a2], a1, a3, SP[a2, a3], n] + 
    2*S2[SP[a1, a2], a1, SP[a2, a3], a3, n] + 
    2*S2[SP[a1, a2], a3, a1, SP[a2, a3], n] + 
    2*S2[SP[a1, a2], a3, SP[a1, a3], a2, n] + 
    2*S2[SP[a1, a2], SP[a1, a3], a2, a3, n] + 
    2*S2[SP[a1, a2], SP[a1, a3], a3, a2, n] - 
    2*S2[a3, n]*S2[a1, a1, a2, a2, a3, n] - 
    2*S2[a1, a1, a2, a2, SP[a3, a3], n] - 
    2*S2[a3, n]*S2[a1, a1, a2, a3, a2, n] + 
    2*S2[a2, n]*S2[a1, a1, a2, a3, a3, n] - 
    2*S2[a1, a1, a2, SP[a3, a3], a2, n] - 
    2*S2[a3, n]*S2[a1, a1, a3, a2, a2, n] + 
    2*S2[a2, n]*S2[a1, a1, a3, a2, a3, n] + 
    2*S2[a2, n]*S2[a1, a1, a3, a3, a2, n] + 
    2*S2[a1, a1, a3, a3, SP[a2, a2], n] + 
    2*S2[a1, a1, a3, SP[a2, a2], a3, n] + 
    2*S2[a1, a1, SP[a2, a2], a3, a3, n] - 
    2*S2[a1, a1, SP[a3, a3], a2, a2, n] - 
    (S2[a3, n]*S2[a1, a2, a1, a2, a3, n])/2 - 
    S2[a1, a2, a1, a2, SP[a3, a3], n]/2 - 
    (S2[a3, n]*S2[a1, a2, a1, a3, a2, n])/2 - 
    (3*S2[a1, a2, a1, a3, SP[a2, a3], n])/2 - 
    (3*S2[a1, a2, a1, SP[a2, a3], a3, n])/2 - 
    S2[a1, a2, a1, SP[a3, a3], a2, n]/2 - 
    (S2[a3, n]*S2[a1, a2, a3, a1, a2, n])/2 - 
    (3*S2[a1, a2, a3, a1, SP[a2, a3], n])/2 - 
    (3*S2[a1, a2, a3, SP[a1, a3], a2, n])/2 - 
    (3*S2[a1, a2, SP[a1, a3], a2, a3, n])/2 - 
    (3*S2[a1, a2, SP[a1, a3], a3, a2, n])/2 - 
    S2[a1, a2, SP[a3, a3], a1, a2, n]/2 - 
    2*S2[a3, n]*S2[a1, a3, a1, a2, a2, n] + 
    2*S2[a2, n]*S2[a1, a3, a1, a2, a3, n] + 
    2*S2[a2, n]*S2[a1, a3, a1, a3, a2, n] + 
    2*S2[a1, a3, a1, a3, SP[a2, a2], n] + 
    2*S2[a1, a3, a1, SP[a2, a2], a3, n] - 
    (3*S2[a3, n]*S2[a1, a3, a2, a1, a2, n])/2 - 
    (3*S2[a1, a3, a2, a1, SP[a2, a3], n])/2 - 
    (3*S2[a1, a3, a2, SP[a1, a3], a2, n])/2 + 
    2*S2[a2, n]*S2[a1, a3, a3, a1, a2, n] + 
    2*S2[a1, a3, a3, a1, SP[a2, a2], n] + 
    2*S2[a1, a3, a3, SP[a1, a2], a2, n] + 
    2*S2[a1, a3, SP[a1, a2], a2, a3, n] + 
    2*S2[a1, a3, SP[a1, a2], a3, a2, n] - 
    2*S2[a1, a3, SP[a1, a3], a2, a2, n] + S2[a1, a3, SP[a2, a3], a1, a2, n]/
     2 + 2*S2[a1, SP[a1, a2], a2, a3, a3, n] + S2[a1, SP[a1, a2], a3, a2, a3, 
     n] + S2[a1, SP[a1, a2], a3, a3, a2, n] - 
    2*S2[a1, SP[a1, a3], a2, a2, a3, n] - 
    2*S2[a1, SP[a1, a3], a2, a3, a2, n] - 
    2*S2[a1, SP[a1, a3], a3, a2, a2, n] + 
    (3*S2[a1, SP[a2, a3], a1, a2, a3, n])/2 + 
    (3*S2[a1, SP[a2, a3], a1, a3, a2, n])/2 + 
    (3*S2[a1, SP[a2, a3], a3, a1, a2, n])/2 - 
    2*S2[a1, SP[a3, a3], a1, a2, a2, n] - 
    (3*S2[a1, SP[a3, a3], a2, a1, a2, n])/2 - 
    2*S2[a2, a1, a1, a3, SP[a2, a3], n] - 
    2*S2[a2, a1, a1, SP[a2, a3], a3, n] - 
    2*S2[a2, a1, a3, a1, SP[a2, a3], n] - 
    2*S2[a2, a1, a3, SP[a1, a3], a2, n] - 
    2*S2[a2, a1, SP[a1, a3], a2, a3, n] - 
    2*S2[a2, a1, SP[a1, a3], a3, a2, n] + 
    2*S2[a3, n]*S2[a2, a3, a1, a1, a2, n] - 
    2*S2[a2, SP[a1, a3], a1, a2, a3, n] - 
    2*S2[a2, SP[a1, a3], a1, a3, a2, n] - 
    2*S2[a2, SP[a1, a3], a3, a1, a2, n] + 
    2*S2[a2, SP[a3, a3], a1, a1, a2, n] + 
    2*S2[a3, n]*S2[a3, a1, a1, a2, a2, n] + 
    2*S2[a3, a1, a1, a2, SP[a2, a3], n] + 
    2*S2[a3, a1, a1, SP[a2, a3], a2, n] + 
    (S2[a3, n]*S2[a3, a1, a2, a1, a2, n])/2 + 
    S2[a3, a1, a2, a1, SP[a2, a3], n]/2 + S2[a3, a1, a2, SP[a1, a3], a2, n]/
     2 + 2*S2[a3, a1, SP[a1, a3], a2, a2, n] + 
    S2[a3, a1, SP[a2, a3], a1, a2, n]/2 - 
    2*S2[a2, n]*S2[a3, a3, a1, a1, a2, n] - 
    2*S2[a3, a3, a1, a1, SP[a2, a2], n] - 
    2*S2[a3, a3, a1, SP[a1, a2], a2, n] + 
    S2[a1, n]*S2[a3, a3, a2, a1, a2, n] + S2[a3, a3, a2, a1, SP[a1, a2], n] + 
    S2[a3, a3, a2, SP[a1, a1], a2, n] - S2[a3, a3, SP[a1, a2], a1, a2, n] + 
    2*S2[a3, SP[a1, a3], a1, a2, a2, n] + 
    (3*S2[a3, SP[a1, a3], a2, a1, a2, n])/2 - 
    2*S2[a3, SP[a2, a3], a1, a1, a2, n] + 
    2*S2[SP[a1, a1], a2, a2, a3, a3, n] + S2[SP[a1, a1], a2, a3, a2, a3, n] + 
    S2[SP[a1, a1], a2, a3, a3, a2, n] - 2*S2[SP[a1, a3], a1, a2, a2, a3, n] - 
    2*S2[SP[a1, a3], a1, a2, a3, a2, n] - 
    2*S2[SP[a1, a3], a1, a3, a2, a2, n] - S2[SP[a1, a3], a2, a1, a2, a3, n]/
     2 - S2[SP[a1, a3], a2, a1, a3, a2, n]/2 - 
    S2[SP[a1, a3], a2, a3, a1, a2, n]/2 - 
    2*S2[SP[a1, a3], a3, a1, a2, a2, n] - S2[SP[a1, a3], a3, a2, a1, a2, n]/
     2 + 2*S2[SP[a3, a3], a1, a1, a2, a2, n] + 
    S2[SP[a3, a3], a1, a2, a1, a2, n]/2 - S2[a3, a3, a2, a1, a2, a1, n] /; 
   MyMemberQ[{{a1, a2, a3}}, {a1, a1, a2, a2, a3, a3}] && a1 != a2 != a3, 
 S2[a1_, a2_, a1_, a3_, a2_, a3_, n_] :> 
  4*S2[a1, a1, a2, n]*S2[a2, a3, a3, n] + 
    4*S2[SP[a1, a2], SP[a1, a3], SP[a2, a3], n] + 
    S2[a2, a3, n]*S2[a1, a2, a1, a3, n] - S2[a1, a2, SP[a1, a2], SP[a3, a3], 
     n] - 4*S2[a1, a2, SP[a1, a3], SP[a2, a3], n] + 
    2*S2[a1, a2, n]*S2[a1, a3, a2, a3, n] + 2*S2[a1, a2, n]*
     S2[a1, a3, a3, a2, n] - 2*S2[a1, a3, SP[a1, a2], SP[a2, a3], n] - 
    2*S2[a1, a3, SP[a1, a3], SP[a2, a2], n] - 
    4*S2[a1, SP[a1, a2], a3, SP[a2, a3], n] - 
    4*S2[a1, SP[a1, a2], SP[a2, a3], a3, n] - 
    2*S2[a1, SP[a1, a3], a2, SP[a2, a3], n] - 
    2*S2[a1, SP[a1, a3], a3, SP[a2, a2], n] - 
    2*S2[a1, SP[a1, a3], SP[a2, a2], a3, n] - 
    2*S2[a1, SP[a1, a3], SP[a2, a3], a2, n] - S2[a1, SP[a2, a2], a1, 
     SP[a3, a3], n] - S2[a1, SP[a2, a2], SP[a1, a3], a3, n] - 
    4*S2[a2, a1, SP[a1, a3], SP[a2, a3], n] - 
    S2[a1, a2, n]*S2[a2, a3, a1, a3, n] + S2[a2, a3, SP[a1, a1], SP[a2, a3], 
     n] - 3*S2[a2, SP[a1, a3], a1, SP[a2, a3], n] + 
    S2[a2, SP[a1, a3], SP[a1, a2], a3, n] - 
    4*S2[a2, SP[a1, a3], SP[a1, a3], a2, n] - 
    2*S2[SP[a1, a1], a3, a2, SP[a2, a3], n] - 
    2*S2[SP[a1, a1], a3, a3, SP[a2, a2], n] - 
    2*S2[SP[a1, a1], a3, SP[a2, a2], a3, n] - 
    2*S2[SP[a1, a1], a3, SP[a2, a3], a2, n] - 
    2*S2[SP[a1, a1], SP[a2, a3], a2, a3, n] - 
    2*S2[SP[a1, a1], SP[a2, a3], a3, a2, n] - 
    4*S2[SP[a1, a2], a1, a3, SP[a2, a3], n] - 
    4*S2[SP[a1, a2], a1, SP[a2, a3], a3, n] - S2[SP[a1, a2], a2, a1, 
     SP[a3, a3], n] - S2[SP[a1, a2], a2, SP[a1, a3], a3, n] - 
    3*S2[SP[a1, a2], a3, a1, SP[a2, a3], n] + S2[SP[a1, a2], a3, SP[a1, a2], 
     a3, n] - 4*S2[SP[a1, a2], a3, SP[a1, a3], a2, n] - 
    4*S2[SP[a1, a2], SP[a1, a3], a2, a3, n] - 
    4*S2[SP[a1, a2], SP[a1, a3], a3, a2, n] - 
    4*S2[a2, n]*S2[a1, a1, a2, a3, a3, n] - 
    4*S2[a2, n]*S2[a1, a1, a3, a2, a3, n] - 
    4*S2[a2, n]*S2[a1, a1, a3, a3, a2, n] + S2[a1, a2, a1, a2, SP[a3, a3], 
     n] - 2*S2[a2, n]*S2[a1, a2, a1, a3, a3, n] + 
    2*S2[a1, a2, a1, a3, SP[a2, a3], n] + 
    3*S2[a1, a2, a1, SP[a2, a3], a3, n] + 
    2*S2[a1, a2, a2, a1, SP[a3, a3], n] + 
    2*S2[a1, a2, a2, SP[a1, a3], a3, n] + 
    3*S2[a1, a2, a3, a1, SP[a2, a3], n] - S2[a1, a2, a3, SP[a1, a2], a3, n] + 
    4*S2[a1, a2, a3, SP[a1, a3], a2, n] + 
    4*S2[a1, a2, SP[a1, a3], a2, a3, n] + 
    4*S2[a1, a2, SP[a1, a3], a3, a2, n] + 
    2*S2[a3, n]*S2[a1, a3, a1, a2, a2, n] - 
    3*S2[a2, n]*S2[a1, a3, a1, a2, a3, n] + S2[a1, a3, a1, a2, SP[a2, a3], 
     n] - 3*S2[a2, n]*S2[a1, a3, a1, a3, a2, n] - 
    S2[a1, a3, a1, a3, SP[a2, a2], n] - S2[a1, a3, a1, SP[a2, a2], a3, n] + 
    S2[a1, a3, a1, SP[a2, a3], a2, n] + S2[a3, n]*S2[a1, a3, a2, a1, a2, n] + 
    3*S2[a1, a3, a2, a1, SP[a2, a3], n] + 
    3*S2[a1, a3, a2, SP[a1, a3], a2, n] - 
    4*S2[a2, n]*S2[a1, a3, a3, a1, a2, n] - 
    2*S2[a1, a3, a3, a1, SP[a2, a2], n] - 
    2*S2[a1, a3, a3, SP[a1, a2], a2, n] - S2[a1, a3, SP[a1, a2], a2, a3, n] - 
    S2[a1, a3, SP[a1, a2], a3, a2, n] + 6*S2[a1, a3, SP[a1, a3], a2, a2, n] - 
    3*S2[a1, a3, SP[a2, a3], a1, a2, n] + 
    2*S2[a1, SP[a1, a2], a3, a2, a3, n] + 
    2*S2[a1, SP[a1, a2], a3, a3, a2, n] + 
    4*S2[a1, SP[a1, a3], a2, a2, a3, n] + 
    4*S2[a1, SP[a1, a3], a2, a3, a2, n] + 
    4*S2[a1, SP[a1, a3], a3, a2, a2, n] - 
    3*S2[a1, SP[a2, a3], a1, a2, a3, n] - 
    3*S2[a1, SP[a2, a3], a1, a3, a2, n] - 
    4*S2[a1, SP[a2, a3], a3, a1, a2, n] + 
    2*S2[a1, SP[a3, a3], a1, a2, a2, n] + S2[a1, SP[a3, a3], a2, a1, a2, n] + 
    4*S2[a2, a1, a1, a3, SP[a2, a3], n] + 
    4*S2[a2, a1, a1, SP[a2, a3], a3, n] + S2[a2, a1, a2, a1, SP[a3, a3], n] + 
    S2[a2, a1, a2, SP[a1, a3], a3, n] + 3*S2[a2, a1, a3, a1, SP[a2, a3], n] - 
    S2[a2, a1, a3, SP[a1, a2], a3, n] + 4*S2[a2, a1, a3, SP[a1, a3], a2, n] + 
    4*S2[a2, a1, SP[a1, a3], a2, a3, n] + 
    4*S2[a2, a1, SP[a1, a3], a3, a2, n] - 
    2*S2[a3, n]*S2[a2, a3, a1, a1, a2, n] - S2[a2, a3, a1, SP[a1, a2], a3, 
     n] + S2[a2, a3, a1, SP[a1, a3], a2, n] - S2[a2, a3, SP[a1, a1], a2, a3, 
     n] - S2[a2, a3, SP[a1, a1], a3, a2, n] + 
    2*S2[a2, a3, SP[a1, a3], a1, a2, n] + 
    3*S2[a2, SP[a1, a3], a1, a2, a3, n] + 
    3*S2[a2, SP[a1, a3], a1, a3, a2, n] + 
    4*S2[a2, SP[a1, a3], a3, a1, a2, n] - 
    2*S2[a2, SP[a3, a3], a1, a1, a2, n] - 
    S2[a2, n]*S2[a3, a1, a3, a1, a2, n] - S2[a3, a1, a3, a1, SP[a2, a2], n] - 
    S2[a3, a1, a3, SP[a1, a2], a2, n] - S2[a3, a1, SP[a2, a3], a1, a2, n] + 
    S2[a1, n]*S2[a3, a2, a3, a1, a2, n] + S2[a3, a2, a3, a1, SP[a1, a2], n] + 
    S2[a3, a2, a3, SP[a1, a1], a2, n] + S2[a3, a2, SP[a1, a3], a1, a2, n] + 
    2*S2[SP[a1, a1], a2, a3, a2, a3, n] + 
    2*S2[SP[a1, a1], a2, a3, a3, a2, n] + 
    4*S2[SP[a1, a1], a3, a2, a2, a3, n] + 
    4*S2[SP[a1, a1], a3, a2, a3, a2, n] + 
    4*S2[SP[a1, a1], a3, a3, a2, a2, n] + S2[SP[a1, a3], a2, a3, a1, a2, n] + 
    2*S2[SP[a1, a3], a3, a1, a2, a2, n] + S2[SP[a1, a3], a3, a2, a1, a2, n] - 
    S2[SP[a2, a3], a1, a3, a1, a2, n] - 2*S2[SP[a2, a3], a3, a1, a1, a2, n] - 
    S2[a3, a2, a3, a1, a2, a1, n] /; 
   MyMemberQ[{{a1, a2, a3}}, {a1, a1, a2, a2, a3, a3}] && a1 != a2 != a3, 
 S2[a1_, a2_, a1_, a3_, a3_, a2_, n_] :> 
  -2*S2[a1, a1, a2, n]*S2[a2, a3, a3, n] - 
    2*S2[SP[a1, a2], SP[a1, a3], SP[a2, a3], n] - 
    S2[a2, a3, n]*S2[a1, a2, a1, a3, n] + S2[a1, a2, SP[a1, a2], SP[a3, a3], 
     n] + 2*S2[a1, a2, SP[a1, a3], SP[a2, a3], n] - 
    S2[a1, a2, n]*S2[a1, a3, a2, a3, n] - S2[a1, a2, n]*
     S2[a1, a3, a3, a2, n] + S2[a1, a3, SP[a1, a2], SP[a2, a3], n] + 
    S2[a1, a3, SP[a1, a3], SP[a2, a2], n] + 
    2*S2[a1, SP[a1, a2], a3, SP[a2, a3], n] + 
    2*S2[a1, SP[a1, a2], SP[a2, a3], a3, n] + S2[a1, SP[a1, a3], a2, 
     SP[a2, a3], n] + S2[a1, SP[a1, a3], a3, SP[a2, a2], n] + 
    S2[a1, SP[a1, a3], SP[a2, a2], a3, n] + S2[a1, SP[a1, a3], SP[a2, a3], 
     a2, n] + S2[a1, SP[a2, a2], a1, SP[a3, a3], n] + 
    S2[a1, SP[a2, a2], SP[a1, a3], a3, n] + 
    2*S2[a2, a1, SP[a1, a3], SP[a2, a3], n] + 
    S2[a1, a2, n]*S2[a2, a3, a1, a3, n] - S2[a2, a3, SP[a1, a1], SP[a2, a3], 
     n] + S2[a2, SP[a1, a3], a1, SP[a2, a3], n] - 
    S2[a2, SP[a1, a3], SP[a1, a2], a3, n] + 
    2*S2[a2, SP[a1, a3], SP[a1, a3], a2, n] + S2[SP[a1, a1], a3, a2, 
     SP[a2, a3], n] + S2[SP[a1, a1], a3, a3, SP[a2, a2], n] + 
    S2[SP[a1, a1], a3, SP[a2, a2], a3, n] + S2[SP[a1, a1], a3, SP[a2, a3], 
     a2, n] + S2[SP[a1, a1], SP[a2, a3], a2, a3, n] + 
    S2[SP[a1, a1], SP[a2, a3], a3, a2, n] + 
    2*S2[SP[a1, a2], a1, a3, SP[a2, a3], n] + 
    2*S2[SP[a1, a2], a1, SP[a2, a3], a3, n] + S2[SP[a1, a2], a2, a1, 
     SP[a3, a3], n] + S2[SP[a1, a2], a2, SP[a1, a3], a3, n] + 
    S2[SP[a1, a2], a3, a1, SP[a2, a3], n] - S2[SP[a1, a2], a3, SP[a1, a2], 
     a3, n] + 2*S2[SP[a1, a2], a3, SP[a1, a3], a2, n] + 
    2*S2[SP[a1, a2], SP[a1, a3], a2, a3, n] + 
    2*S2[SP[a1, a2], SP[a1, a3], a3, a2, n] + 
    2*S2[a2, n]*S2[a1, a1, a2, a3, a3, n] + 
    2*S2[a2, n]*S2[a1, a1, a3, a2, a3, n] + 
    2*S2[a2, n]*S2[a1, a1, a3, a3, a2, n] - S2[a1, a2, a1, a2, SP[a3, a3], 
     n] + 2*S2[a2, n]*S2[a1, a2, a1, a3, a3, n] - S2[a1, a2, a1, SP[a2, a3], 
     a3, n] - 2*S2[a1, a2, a2, a1, SP[a3, a3], n] - 
    2*S2[a1, a2, a2, SP[a1, a3], a3, n] - S2[a1, a2, a3, a1, SP[a2, a3], n] + 
    S2[a1, a2, a3, SP[a1, a2], a3, n] - 2*S2[a1, a2, a3, SP[a1, a3], a2, n] - 
    2*S2[a1, a2, SP[a1, a3], a2, a3, n] - 
    2*S2[a1, a2, SP[a1, a3], a3, a2, n] + 
    S2[a2, n]*S2[a1, a3, a1, a2, a3, n] + 
    S2[a2, n]*S2[a1, a3, a1, a3, a2, n] - S2[a1, a3, a2, a1, SP[a2, a3], n] - 
    S2[a1, a3, a2, SP[a1, a3], a2, n] + 2*S2[a2, n]*
     S2[a1, a3, a3, a1, a2, n] + S2[a1, a3, a3, a1, SP[a2, a2], n] + 
    S2[a1, a3, a3, SP[a1, a2], a2, n] - 2*S2[a1, a3, SP[a1, a3], a2, a2, n] + 
    2*S2[a1, a3, SP[a2, a3], a1, a2, n] - S2[a1, SP[a1, a2], a3, a2, a3, n] - 
    S2[a1, SP[a1, a2], a3, a3, a2, n] - 2*S2[a1, SP[a1, a3], a2, a2, a3, n] - 
    2*S2[a1, SP[a1, a3], a2, a3, a2, n] - 
    2*S2[a1, SP[a1, a3], a3, a2, a2, n] + S2[a1, SP[a2, a3], a1, a2, a3, n] + 
    S2[a1, SP[a2, a3], a1, a3, a2, n] + 2*S2[a1, SP[a2, a3], a3, a1, a2, n] - 
    2*S2[a2, a1, a1, a3, SP[a2, a3], n] - 
    2*S2[a2, a1, a1, SP[a2, a3], a3, n] - S2[a2, a1, a2, a1, SP[a3, a3], n] - 
    S2[a2, a1, a2, SP[a1, a3], a3, n] - S2[a2, a1, a3, a1, SP[a2, a3], n] + 
    S2[a2, a1, a3, SP[a1, a2], a3, n] - 2*S2[a2, a1, a3, SP[a1, a3], a2, n] - 
    2*S2[a2, a1, SP[a1, a3], a2, a3, n] - 
    2*S2[a2, a1, SP[a1, a3], a3, a2, n] + S2[a2, a3, a1, SP[a1, a2], a3, n] - 
    S2[a2, a3, a1, SP[a1, a3], a2, n] + S2[a2, a3, SP[a1, a1], a2, a3, n] + 
    S2[a2, a3, SP[a1, a1], a3, a2, n] - 2*S2[a2, a3, SP[a1, a3], a1, a2, n] - 
    S2[a2, SP[a1, a3], a1, a2, a3, n] - S2[a2, SP[a1, a3], a1, a3, a2, n] - 
    2*S2[a2, SP[a1, a3], a3, a1, a2, n] + 
    S2[a2, n]*S2[a3, a1, a3, a1, a2, n] + S2[a3, a1, a3, a1, SP[a2, a2], n] + 
    S2[a3, a1, a3, SP[a1, a2], a2, n] + S2[a3, a1, SP[a2, a3], a1, a2, n] - 
    S2[a1, n]*S2[a3, a2, a3, a1, a2, n] - S2[a3, a2, a3, a1, SP[a1, a2], n] - 
    S2[a3, a2, a3, SP[a1, a1], a2, n] - S2[a3, a2, SP[a1, a3], a1, a2, n] + 
    2*S2[a2, n]*S2[a3, a3, a1, a1, a2, n] + 
    2*S2[a3, a3, a1, a1, SP[a2, a2], n] - 
    2*S2[a1, n]*S2[a3, a3, a1, a2, a2, n] - 
    2*S2[a3, a3, a1, a2, SP[a1, a2], n] - 
    S2[a1, n]*S2[a3, a3, a2, a1, a2, n] - S2[a3, a3, a2, a1, SP[a1, a2], n] - 
    S2[a3, a3, a2, SP[a1, a1], a2, n] - 2*S2[a3, a3, SP[a1, a1], a2, a2, n] + 
    S2[a3, a3, SP[a1, a2], a1, a2, n] - 2*S2[a3, SP[a1, a3], a1, a2, a2, n] - 
    S2[a3, SP[a1, a3], a2, a1, a2, n] + 2*S2[a3, SP[a2, a3], a1, a1, a2, n] - 
    S2[SP[a1, a1], a2, a3, a2, a3, n] - S2[SP[a1, a1], a2, a3, a3, a2, n] - 
    2*S2[SP[a1, a1], a3, a2, a2, a3, n] - 
    2*S2[SP[a1, a1], a3, a2, a3, a2, n] - 
    2*S2[SP[a1, a1], a3, a3, a2, a2, n] - S2[SP[a1, a3], a2, a3, a1, a2, n] - 
    2*S2[SP[a1, a3], a3, a1, a2, a2, n] - S2[SP[a1, a3], a3, a2, a1, a2, n] + 
    S2[SP[a2, a3], a1, a3, a1, a2, n] + 2*S2[SP[a2, a3], a3, a1, a1, a2, n] + 
    S2[a3, a2, a3, a1, a2, a1, n] + S2[a3, a3, a1, a2, a1, a2, n] + 
    2*S2[a3, a3, a1, a2, a2, a1, n] + S2[a3, a3, a2, a1, a2, a1, n] /; 
   MyMemberQ[{{a1, a2, a3}}, {a1, a1, a2, a2, a3, a3}] && a1 != a2 != a3, 
 S2[a1_, a2_, a2_, a1_, a3_, a3_, n_] :> 
  S2[a1, a2, a2, n]*S2[a1, a3, a3, n] + S2[SP[a1, a1], SP[a2, a3], 
     SP[a2, a3], n] - 2*S2[a1, a1, SP[a2, a3], SP[a2, a3], n] - 
    S2[a1, a2, n]*S2[a1, a2, a3, a3, n] + S2[a1, a2, SP[a1, a3], SP[a2, a3], 
     n] - S2[a1, a2, n]*S2[a1, a3, a2, a3, n] - 
    S2[a1, a2, n]*S2[a1, a3, a3, a2, n] + S2[a1, a3, SP[a1, a2], SP[a2, a3], 
     n] + S2[a1, a3, SP[a1, a3], SP[a2, a2], n] + S2[a1, SP[a1, a3], a3, 
     SP[a2, a2], n] + S2[a1, SP[a1, a3], SP[a2, a2], a3, n] + 
    S2[SP[a1, a1], a3, a3, SP[a2, a2], n] + S2[SP[a1, a1], a3, SP[a2, a2], 
     a3, n] + S2[SP[a1, a1], SP[a2, a2], a3, a3, n] + 
    S2[a3, n]*S2[a1, a1, a2, a2, a3, n] + S2[a1, a1, a2, a2, SP[a3, a3], n] + 
    S2[a3, n]*S2[a1, a1, a2, a3, a2, n] + S2[a1, a1, a2, a3, SP[a2, a3], n] + 
    S2[a1, a1, a2, SP[a2, a3], a3, n] + S2[a1, a1, a2, SP[a3, a3], a2, n] + 
    S2[a3, n]*S2[a1, a1, a3, a2, a2, n] + S2[a1, a1, a3, a2, SP[a2, a3], n] - 
    2*S2[a1, a1, a3, a3, SP[a2, a2], n] - 
    2*S2[a1, a1, a3, SP[a2, a2], a3, n] + S2[a1, a1, a3, SP[a2, a3], a2, n] - 
    2*S2[a1, a1, SP[a2, a2], a3, a3, n] + S2[a1, a1, SP[a2, a3], a2, a3, n] + 
    S2[a1, a1, SP[a2, a3], a3, a2, n] + S2[a1, a1, SP[a3, a3], a2, a2, n] + 
    (S2[a3, n]*S2[a1, a2, a1, a2, a3, n])/2 + 
    S2[a1, a2, a1, a2, SP[a3, a3], n]/2 + 
    (S2[a3, n]*S2[a1, a2, a1, a3, a2, n])/2 + 
    S2[a1, a2, a1, a3, SP[a2, a3], n]/2 + S2[a1, a2, a1, SP[a2, a3], a3, n]/
     2 + S2[a1, a2, a1, SP[a3, a3], a2, n]/2 + 
    (S2[a3, n]*S2[a1, a2, a3, a1, a2, n])/2 - 
    S2[a1, a2, a3, a1, SP[a2, a3], n]/2 - S2[a1, a2, a3, SP[a1, a3], a2, n]/
     2 + S2[a1, a2, SP[a1, a2], a3, a3, n] - 
    S2[a1, a2, SP[a1, a3], a2, a3, n]/2 - S2[a1, a2, SP[a1, a3], a3, a2, n]/
     2 + S2[a1, a2, SP[a3, a3], a1, a2, n]/2 - S2[a1, a3, a1, a3, SP[a2, a2], 
     n] - S2[a1, a3, a1, SP[a2, a2], a3, n] + 
    (S2[a3, n]*S2[a1, a3, a2, a1, a2, n])/2 - 
    S2[a1, a3, a2, a1, SP[a2, a3], n]/2 - S2[a1, a3, a2, SP[a1, a3], a2, n]/
     2 - S2[a1, a3, a3, a1, SP[a2, a2], n] - S2[a1, a3, a3, SP[a1, a2], a2, 
     n] - S2[a1, a3, SP[a1, a2], a2, a3, n] - S2[a1, a3, SP[a1, a2], a3, a2, 
     n] - S2[a1, a3, SP[a1, a3], a2, a2, n] + 
    S2[a1, a3, SP[a2, a3], a1, a2, n]/2 - S2[a1, SP[a1, a2], a2, a3, a3, n] - 
    S2[a1, SP[a1, a2], a3, a2, a3, n] - S2[a1, SP[a1, a2], a3, a3, a2, n] + 
    S2[a1, SP[a2, a3], a1, a2, a3, n]/2 + S2[a1, SP[a2, a3], a1, a3, a2, n]/
     2 + S2[a1, SP[a2, a3], a3, a1, a2, n]/2 + 
    S2[a1, SP[a3, a3], a2, a1, a2, n]/2 - 
    S2[a3, n]*S2[a3, a1, a1, a2, a2, n] - S2[a3, a1, a1, a2, SP[a2, a3], n] - 
    S2[a3, a1, a1, SP[a2, a3], a2, n] - (S2[a3, n]*S2[a3, a1, a2, a1, a2, n])/
     2 - S2[a3, a1, a2, a1, SP[a2, a3], n]/2 - 
    S2[a3, a1, a2, SP[a1, a3], a2, n]/2 - S2[a3, a1, SP[a1, a3], a2, a2, n] - 
    S2[a3, a1, SP[a2, a3], a1, a2, n]/2 + 
    S2[a1, n]*S2[a3, a3, a1, a2, a2, n] + S2[a3, a3, a1, a2, SP[a1, a2], n] + 
    S2[a3, a3, a1, SP[a1, a2], a2, n] + S2[a3, a3, SP[a1, a1], a2, a2, n] - 
    S2[a3, SP[a1, a3], a2, a1, a2, n]/2 - S2[SP[a1, a1], a2, a2, a3, a3, n] - 
    S2[SP[a1, a1], a2, a3, a2, a3, n] - S2[SP[a1, a1], a2, a3, a3, a2, n] - 
    S2[SP[a1, a1], a3, a2, a2, a3, n] - S2[SP[a1, a1], a3, a2, a3, a2, n] - 
    S2[SP[a1, a1], a3, a3, a2, a2, n] + S2[SP[a1, a3], a1, a2, a2, a3, n] + 
    S2[SP[a1, a3], a1, a2, a3, a2, n] + S2[SP[a1, a3], a1, a3, a2, a2, n] + 
    S2[SP[a1, a3], a2, a1, a2, a3, n]/2 + S2[SP[a1, a3], a2, a1, a3, a2, n]/
     2 + S2[SP[a1, a3], a2, a3, a1, a2, n]/2 + S2[SP[a1, a3], a3, a1, a2, a2, 
     n] + S2[SP[a1, a3], a3, a2, a1, a2, n]/2 - S2[SP[a3, a3], a1, a1, a2, 
     a2, n] - S2[SP[a3, a3], a1, a2, a1, a2, n]/2 - 
    S2[a3, a3, a1, a2, a2, a1, n] /; 
   MyMemberQ[{{a1, a2, a3}}, {a1, a1, a2, a2, a3, a3}] && a1 != a2 != a3, 
 S2[a1_, a2_, a2_, a3_, a1_, a3_, n_] :> 
  -2*S2[a1, a2, a2, n]*S2[a1, a3, a3, n] - 
    2*S2[SP[a1, a1], SP[a2, a3], SP[a2, a3], n] + 
    4*S2[a1, a1, SP[a2, a3], SP[a2, a3], n] + 
    2*S2[a1, SP[a1, a2], a3, SP[a2, a3], n] + 
    2*S2[a1, SP[a1, a2], SP[a2, a3], a3, n] + 
    2*S2[a1, SP[a1, a3], a2, SP[a2, a3], n] + 
    2*S2[a1, SP[a1, a3], SP[a2, a3], a2, n] + 
    S2[a1, a2, n]*S2[a2, a3, a1, a3, n] - S2[a2, a3, SP[a1, a1], SP[a2, a3], 
     n] - S2[a2, SP[a1, a3], a1, SP[a2, a3], n] - 
    S2[a2, SP[a1, a3], SP[a1, a2], a3, n] + 
    2*S2[SP[a1, a1], a2, a3, SP[a2, a3], n] + 
    2*S2[SP[a1, a1], a2, SP[a2, a3], a3, n] + 
    2*S2[SP[a1, a1], a3, a2, SP[a2, a3], n] + 
    2*S2[SP[a1, a1], a3, SP[a2, a3], a2, n] + 
    2*S2[SP[a1, a1], SP[a2, a3], a2, a3, n] + 
    2*S2[SP[a1, a1], SP[a2, a3], a3, a2, n] - S2[SP[a1, a2], a3, a1, 
     SP[a2, a3], n] - S2[SP[a1, a2], a3, SP[a1, a2], a3, n] - 
    S2[SP[a1, a2], SP[a2, a3], a1, a3, n] + 
    2*S2[a3, n]*S2[a1, a1, a2, a2, a3, n] + 
    2*S2[a1, a1, a2, a2, SP[a3, a3], n] + 
    2*S2[a3, n]*S2[a1, a1, a2, a3, a2, n] - 
    2*S2[a1, a1, a2, a3, SP[a2, a3], n] - 
    2*S2[a1, a1, a2, SP[a2, a3], a3, n] + 
    2*S2[a1, a1, a2, SP[a3, a3], a2, n] - 
    4*S2[a1, a1, a3, a2, SP[a2, a3], n] - 
    4*S2[a1, a1, a3, SP[a2, a3], a2, n] - 
    2*S2[a1, a1, SP[a2, a3], a2, a3, n] - 
    2*S2[a1, a1, SP[a2, a3], a3, a2, n] + 
    S2[a3, n]*S2[a1, a2, a1, a2, a3, n] + S2[a1, a2, a1, a2, SP[a3, a3], n] + 
    S2[a3, n]*S2[a1, a2, a1, a3, a2, n] - S2[a1, a2, a1, a3, SP[a2, a3], n] - 
    S2[a1, a2, a1, SP[a2, a3], a3, n] + S2[a1, a2, a1, SP[a3, a3], a2, n] + 
    S2[a3, n]*S2[a1, a2, a2, a1, a3, n] + S2[a1, a2, a2, a1, SP[a3, a3], n] + 
    S2[a1, a2, a2, SP[a1, a3], a3, n] - S2[a2, n]*S2[a1, a2, a3, a1, a3, n] - 
    2*S2[a1, a2, SP[a1, a2], a3, a3, n] + S2[a1, a2, SP[a1, a3], a2, a3, n] + 
    S2[a1, a2, SP[a1, a3], a3, a2, n] + S2[a1, a2, SP[a2, a3], a1, a3, n] - 
    S2[a2, n]*S2[a1, a3, a1, a2, a3, n] - 
    3*S2[a1, a3, a1, a2, SP[a2, a3], n] - 
    S2[a2, n]*S2[a1, a3, a1, a3, a2, n] - S2[a1, a3, a1, a3, SP[a2, a2], n] - 
    S2[a1, a3, a1, SP[a2, a2], a3, n] - 3*S2[a1, a3, a1, SP[a2, a3], a2, n] - 
    S2[a3, n]*S2[a1, a3, a2, a1, a2, n] - 
    S2[a2, n]*S2[a1, a3, a2, a1, a3, n] - 
    2*S2[a1, a3, a2, a1, SP[a2, a3], n] + 
    S2[a1, n]*S2[a1, a3, a2, a2, a3, n] + S2[a1, a3, a2, a2, SP[a1, a3], n] + 
    S2[a1, n]*S2[a1, a3, a2, a3, a2, n] + S2[a1, a3, a2, a3, SP[a1, a2], n] + 
    2*S2[a1, n]*S2[a1, a3, a3, a2, a2, n] + 
    2*S2[a1, a3, a3, a2, SP[a1, a2], n] + 
    2*S2[a1, a3, a3, SP[a1, a2], a2, n] - S2[a1, a3, SP[a2, a2], a1, a3, n] - 
    S2[a1, a3, SP[a2, a3], a1, a2, n] - 2*S2[a1, SP[a1, a2], a2, a3, a3, n] - 
    2*S2[a1, SP[a1, a2], a3, a2, a3, n] - 
    2*S2[a1, SP[a1, a2], a3, a3, a2, n] + S2[a1, SP[a1, a3], a2, a2, a3, n] + 
    S2[a1, SP[a1, a3], a2, a3, a2, n] - S2[a1, SP[a3, a3], a2, a1, a2, n] + 
    S2[a2, a1, a3, a1, SP[a2, a3], n] + S2[a2, a1, a3, SP[a1, a2], a3, n] + 
    S2[a2, a1, SP[a2, a3], a1, a3, n] + 2*S2[a2, a3, a1, a1, SP[a2, a3], n] + 
    S2[a2, a3, a1, SP[a1, a2], a3, n] + S2[a2, a3, a1, SP[a1, a3], a2, n] + 
    S2[a2, a3, SP[a1, a1], a2, a3, n] + S2[a2, a3, SP[a1, a1], a3, a2, n] + 
    S2[a2, SP[a1, a3], a1, a2, a3, n] + S2[a2, SP[a1, a3], a1, a3, a2, n] + 
    S2[a2, SP[a1, a3], a2, a1, a3, n] - 2*S2[a2, n]*
     S2[a3, a1, a1, a2, a3, n] - 2*S2[a3, a1, a1, a2, SP[a2, a3], n] - 
    2*S2[a2, n]*S2[a3, a1, a1, a3, a2, n] - 
    2*S2[a3, a1, a1, a3, SP[a2, a2], n] - 
    2*S2[a3, a1, a1, SP[a2, a2], a3, n] - 
    2*S2[a3, a1, a1, SP[a2, a3], a2, n] - 
    S2[a2, n]*S2[a3, a1, a2, a1, a3, n] - S2[a3, a1, a2, a1, SP[a2, a3], n] + 
    S2[a1, n]*S2[a3, a1, a2, a2, a3, n] + S2[a3, a1, a2, a2, SP[a1, a3], n] + 
    S2[a1, n]*S2[a3, a1, a2, a3, a2, n] + S2[a3, a1, a2, a3, SP[a1, a2], n] + 
    S2[a3, a1, a2, SP[a1, a3], a2, n] - S2[a2, n]*S2[a3, a1, a3, a1, a2, n] - 
    S2[a3, a1, a3, a1, SP[a2, a2], n] + 2*S2[a1, n]*
     S2[a3, a1, a3, a2, a2, n] + 2*S2[a3, a1, a3, a2, SP[a1, a2], n] + 
    S2[a3, a1, a3, SP[a1, a2], a2, n] - S2[a3, a1, SP[a1, a2], a2, a3, n] - 
    S2[a3, a1, SP[a1, a2], a3, a2, n] + 2*S2[a3, a1, SP[a1, a3], a2, a2, n] - 
    S2[a3, a1, SP[a2, a2], a1, a3, n] - S2[a3, a1, SP[a2, a3], a1, a2, n] + 
    S2[a1, n]*S2[a3, a2, a1, a2, a3, n] + S2[a3, a2, a1, a2, SP[a1, a3], n] + 
    S2[a1, n]*S2[a3, a2, a1, a3, a2, n] + S2[a3, a2, a1, a3, SP[a1, a2], n] + 
    S2[a3, a2, a1, SP[a1, a2], a3, n] + S2[a3, a2, a1, SP[a1, a3], a2, n] - 
    S2[a1, n]*S2[a3, a2, a2, a3, a1, n] - S2[a3, a2, a2, a3, SP[a1, a1], n] - 
    S2[a3, a2, a2, SP[a1, a3], a1, n] - S2[a1, n]*S2[a3, a2, a3, a2, a1, n] - 
    S2[a3, a2, a3, a2, SP[a1, a1], n] - S2[a3, a2, a3, SP[a1, a2], a1, n] + 
    S2[a3, a2, SP[a1, a1], a2, a3, n] + S2[a3, a2, SP[a1, a1], a3, a2, n] - 
    S2[a3, a2, SP[a1, a2], a3, a1, n] - S2[a3, a2, SP[a1, a3], a2, a1, n] - 
    2*S2[a1, n]*S2[a3, a3, a2, a2, a1, n] - 
    2*S2[a3, a3, a2, a2, SP[a1, a1], n] - 
    2*S2[a3, a3, a2, SP[a1, a2], a1, n] - 
    2*S2[a3, a3, SP[a1, a2], a2, a1, n] + S2[a3, SP[a1, a1], a2, a2, a3, n] + 
    S2[a3, SP[a1, a1], a2, a3, a2, n] + 2*S2[a3, SP[a1, a1], a3, a2, a2, n] - 
    S2[a3, SP[a1, a2], a1, a2, a3, n] - S2[a3, SP[a1, a2], a1, a3, a2, n] - 
    S2[a3, SP[a1, a2], a2, a1, a3, n] - S2[a3, SP[a1, a2], a2, a3, a1, n] - 
    S2[a3, SP[a1, a2], a3, a1, a2, n] - S2[a3, SP[a1, a2], a3, a2, a1, n] - 
    2*S2[a3, SP[a1, a3], a2, a2, a1, n] - 
    2*S2[SP[a1, a1], a2, a2, a3, a3, n] - 
    2*S2[SP[a1, a1], a2, a3, a2, a3, n] - 
    2*S2[SP[a1, a1], a2, a3, a3, a2, n] - S2[SP[a1, a1], a3, a2, a2, a3, n] - 
    S2[SP[a1, a1], a3, a2, a3, a2, n] + 3*S2[SP[a1, a3], a1, a2, a2, a3, n] + 
    3*S2[SP[a1, a3], a1, a2, a3, a2, n] + 
    2*S2[SP[a1, a3], a1, a3, a2, a2, n] + 
    2*S2[SP[a1, a3], a2, a1, a2, a3, n] + 
    2*S2[SP[a1, a3], a2, a1, a3, a2, n] + S2[SP[a1, a3], a2, a2, a1, a3, n] - 
    S2[SP[a1, a3], a2, a2, a3, a1, n] - S2[SP[a1, a3], a2, a3, a2, a1, n] - 
    S2[SP[a1, a3], a3, a2, a1, a2, n] - 2*S2[SP[a1, a3], a3, a2, a2, a1, n] - 
    2*S2[SP[a2, a3], a1, a1, a2, a3, n] - 
    2*S2[SP[a2, a3], a1, a1, a3, a2, n] - S2[SP[a2, a3], a1, a2, a1, a3, n] - 
    S2[SP[a2, a3], a1, a3, a1, a2, n] + S2[a3, a2, a2, a1, a3, a1, n] + 
    2*S2[a3, a2, a2, a3, a1, a1, n] + S2[a3, a2, a3, a1, a2, a1, n] + 
    2*S2[a3, a2, a3, a2, a1, a1, n] + 2*S2[a3, a3, a1, a2, a2, a1, n] + 
    2*S2[a3, a3, a2, a1, a2, a1, n] + 4*S2[a3, a3, a2, a2, a1, a1, n] /; 
   MyMemberQ[{{a1, a2, a3}}, {a1, a1, a2, a2, a3, a3}] && a1 != a2 != a3, 
 S2[a1_, a2_, a2_, a3_, a3_, a1_, n_] :> 
  S2[a1, a2, a2, n]*S2[a1, a3, a3, n] + S2[SP[a1, a1], SP[a2, a3], 
     SP[a2, a3], n] - 2*S2[a1, a1, SP[a2, a3], SP[a2, a3], n] + 
    S2[a1, a2, n]*S2[a1, a3, a2, a3, n] + S2[a1, a2, n]*
     S2[a1, a3, a3, a2, n] - S2[a1, a3, SP[a1, a2], SP[a2, a3], n] - 
    S2[a1, a3, SP[a1, a3], SP[a2, a2], n] - S2[a1, SP[a1, a2], a3, 
     SP[a2, a3], n] - S2[a1, SP[a1, a2], SP[a2, a3], a3, n] - 
    2*S2[a1, SP[a1, a3], a2, SP[a2, a3], n] - S2[a1, SP[a1, a3], a3, 
     SP[a2, a2], n] - S2[a1, SP[a1, a3], SP[a2, a2], a3, n] - 
    2*S2[a1, SP[a1, a3], SP[a2, a3], a2, n] - 
    S2[a1, a2, n]*S2[a2, a3, a1, a3, n] + S2[a2, a3, SP[a1, a1], SP[a2, a3], 
     n] + S2[a2, SP[a1, a3], a1, SP[a2, a3], n] + 
    S2[a2, SP[a1, a3], SP[a1, a2], a3, n] - S2[SP[a1, a1], a2, a3, 
     SP[a2, a3], n] - S2[SP[a1, a1], a2, SP[a2, a3], a3, n] - 
    2*S2[SP[a1, a1], a3, a2, SP[a2, a3], n] - S2[SP[a1, a1], a3, a3, 
     SP[a2, a2], n] - S2[SP[a1, a1], a3, SP[a2, a2], a3, n] - 
    2*S2[SP[a1, a1], a3, SP[a2, a3], a2, n] - 
    2*S2[SP[a1, a1], SP[a2, a3], a2, a3, n] - 
    2*S2[SP[a1, a1], SP[a2, a3], a3, a2, n] + S2[SP[a1, a2], a3, a1, 
     SP[a2, a3], n] + S2[SP[a1, a2], a3, SP[a1, a2], a3, n] + 
    S2[SP[a1, a2], SP[a2, a3], a1, a3, n] - 
    2*S2[a3, n]*S2[a1, a1, a2, a2, a3, n] - 
    2*S2[a1, a1, a2, a2, SP[a3, a3], n] - 
    2*S2[a3, n]*S2[a1, a1, a2, a3, a2, n] - 
    2*S2[a1, a1, a2, SP[a3, a3], a2, n] - 
    2*S2[a3, n]*S2[a1, a1, a3, a2, a2, n] + 
    2*S2[a1, a1, a3, a2, SP[a2, a3], n] + 
    2*S2[a1, a1, a3, a3, SP[a2, a2], n] + 
    2*S2[a1, a1, a3, SP[a2, a2], a3, n] + 
    2*S2[a1, a1, a3, SP[a2, a3], a2, n] + 
    2*S2[a1, a1, SP[a2, a3], a2, a3, n] + 
    2*S2[a1, a1, SP[a2, a3], a3, a2, n] - 
    2*S2[a1, a1, SP[a3, a3], a2, a2, n] - 
    S2[a3, n]*S2[a1, a2, a1, a2, a3, n] - S2[a1, a2, a1, a2, SP[a3, a3], n] - 
    S2[a3, n]*S2[a1, a2, a1, a3, a2, n] - S2[a1, a2, a1, SP[a3, a3], a2, n] - 
    S2[a3, n]*S2[a1, a2, a2, a1, a3, n] - S2[a1, a2, a2, a1, SP[a3, a3], n] + 
    S2[a1, n]*S2[a1, a2, a2, a3, a3, n] + S2[a1, a2, a2, a3, SP[a1, a3], n] + 
    S2[a2, n]*S2[a1, a2, a3, a1, a3, n] + 
    2*S2[a1, a2, SP[a1, a2], a3, a3, n] - S2[a1, a2, SP[a1, a3], a2, a3, n] - 
    S2[a1, a2, SP[a1, a3], a3, a2, n] - S2[a1, a2, SP[a2, a3], a1, a3, n] - 
    S2[a3, n]*S2[a1, a3, a1, a2, a2, n] + 
    S2[a2, n]*S2[a1, a3, a1, a2, a3, n] + 
    2*S2[a1, a3, a1, a2, SP[a2, a3], n] + 
    S2[a2, n]*S2[a1, a3, a1, a3, a2, n] + 
    2*S2[a1, a3, a1, a3, SP[a2, a2], n] + 
    2*S2[a1, a3, a1, SP[a2, a2], a3, n] + 
    2*S2[a1, a3, a1, SP[a2, a3], a2, n] + 
    S2[a2, n]*S2[a1, a3, a2, a1, a3, n] + 
    2*S2[a1, a3, a2, a1, SP[a2, a3], n] - 
    S2[a1, n]*S2[a1, a3, a2, a2, a3, n] - S2[a1, a3, a2, a2, SP[a1, a3], n] - 
    S2[a1, n]*S2[a1, a3, a2, a3, a2, n] - S2[a1, a3, a2, a3, SP[a1, a2], n] + 
    S2[a1, a3, a3, a1, SP[a2, a2], n] - S2[a1, n]*S2[a1, a3, a3, a2, a2, n] - 
    S2[a1, a3, a3, a2, SP[a1, a2], n] + S2[a1, a3, SP[a1, a2], a2, a3, n] + 
    S2[a1, a3, SP[a1, a2], a3, a2, n] + S2[a1, a3, SP[a1, a3], a2, a2, n] + 
    S2[a1, a3, SP[a2, a2], a1, a3, n] + 2*S2[a1, SP[a1, a2], a2, a3, a3, n] + 
    2*S2[a1, SP[a1, a2], a3, a2, a3, n] + 
    2*S2[a1, SP[a1, a2], a3, a3, a2, n] - S2[a1, SP[a3, a3], a1, a2, a2, n] - 
    S2[a2, a1, a3, a1, SP[a2, a3], n] - S2[a2, a1, a3, SP[a1, a2], a3, n] - 
    S2[a2, a1, SP[a2, a3], a1, a3, n] - 2*S2[a2, a3, a1, a1, SP[a2, a3], n] - 
    S2[a2, a3, a1, SP[a1, a2], a3, n] - S2[a2, a3, a1, SP[a1, a3], a2, n] - 
    S2[a2, a3, SP[a1, a1], a2, a3, n] - S2[a2, a3, SP[a1, a1], a3, a2, n] - 
    S2[a2, SP[a1, a3], a1, a2, a3, n] - S2[a2, SP[a1, a3], a1, a3, a2, n] - 
    S2[a2, SP[a1, a3], a2, a1, a3, n] + 2*S2[a2, n]*
     S2[a3, a1, a1, a2, a3, n] + 2*S2[a3, a1, a1, a2, SP[a2, a3], n] + 
    2*S2[a2, n]*S2[a3, a1, a1, a3, a2, n] + 
    2*S2[a3, a1, a1, a3, SP[a2, a2], n] + 
    2*S2[a3, a1, a1, SP[a2, a2], a3, n] + 
    2*S2[a3, a1, a1, SP[a2, a3], a2, n] + 
    S2[a2, n]*S2[a3, a1, a2, a1, a3, n] + S2[a3, a1, a2, a1, SP[a2, a3], n] - 
    S2[a1, n]*S2[a3, a1, a2, a2, a3, n] - S2[a3, a1, a2, a2, SP[a1, a3], n] - 
    S2[a1, n]*S2[a3, a1, a2, a3, a2, n] - S2[a3, a1, a2, a3, SP[a1, a2], n] - 
    S2[a3, a1, a2, SP[a1, a3], a2, n] + S2[a2, n]*S2[a3, a1, a3, a1, a2, n] + 
    S2[a3, a1, a3, a1, SP[a2, a2], n] - S2[a1, n]*S2[a3, a1, a3, a2, a2, n] - 
    S2[a3, a1, a3, a2, SP[a1, a2], n] + S2[a3, a1, SP[a1, a2], a2, a3, n] + 
    S2[a3, a1, SP[a1, a2], a3, a2, n] - S2[a3, a1, SP[a1, a3], a2, a2, n] + 
    S2[a3, a1, SP[a2, a2], a1, a3, n] + S2[a3, a1, SP[a2, a3], a1, a2, n] - 
    S2[a1, n]*S2[a3, a2, a1, a2, a3, n] - S2[a3, a2, a1, a2, SP[a1, a3], n] - 
    S2[a1, n]*S2[a3, a2, a1, a3, a2, n] - S2[a3, a2, a1, a3, SP[a1, a2], n] - 
    S2[a3, a2, a1, SP[a1, a2], a3, n] - S2[a3, a2, a1, SP[a1, a3], a2, n] + 
    S2[a1, n]*S2[a3, a2, a2, a3, a1, n] + S2[a3, a2, a2, a3, SP[a1, a1], n] + 
    S2[a3, a2, a2, SP[a1, a3], a1, n] + S2[a1, n]*S2[a3, a2, a3, a2, a1, n] + 
    S2[a3, a2, a3, a2, SP[a1, a1], n] + S2[a3, a2, a3, SP[a1, a2], a1, n] - 
    S2[a3, a2, SP[a1, a1], a2, a3, n] - S2[a3, a2, SP[a1, a1], a3, a2, n] + 
    S2[a3, a2, SP[a1, a2], a3, a1, n] + S2[a3, a2, SP[a1, a3], a2, a1, n] + 
    S2[a1, n]*S2[a3, a3, a2, a2, a1, n] + S2[a3, a3, a2, a2, SP[a1, a1], n] + 
    S2[a3, a3, a2, SP[a1, a2], a1, n] + S2[a3, a3, SP[a1, a2], a2, a1, n] - 
    S2[a3, SP[a1, a1], a2, a2, a3, n] - S2[a3, SP[a1, a1], a2, a3, a2, n] - 
    S2[a3, SP[a1, a1], a3, a2, a2, n] + S2[a3, SP[a1, a2], a1, a2, a3, n] + 
    S2[a3, SP[a1, a2], a1, a3, a2, n] + S2[a3, SP[a1, a2], a2, a1, a3, n] + 
    S2[a3, SP[a1, a2], a2, a3, a1, n] + S2[a3, SP[a1, a2], a3, a1, a2, n] + 
    S2[a3, SP[a1, a2], a3, a2, a1, n] + S2[a3, SP[a1, a3], a2, a2, a1, n] + 
    2*S2[SP[a1, a1], a2, a2, a3, a3, n] + 
    2*S2[SP[a1, a1], a2, a3, a2, a3, n] + 
    2*S2[SP[a1, a1], a2, a3, a3, a2, n] + 
    2*S2[SP[a1, a1], a3, a2, a2, a3, n] + 
    2*S2[SP[a1, a1], a3, a2, a3, a2, n] + 
    2*S2[SP[a1, a1], a3, a3, a2, a2, n] - 
    3*S2[SP[a1, a3], a1, a2, a2, a3, n] - 
    3*S2[SP[a1, a3], a1, a2, a3, a2, n] - 
    3*S2[SP[a1, a3], a1, a3, a2, a2, n] - 
    2*S2[SP[a1, a3], a2, a1, a2, a3, n] - 
    2*S2[SP[a1, a3], a2, a1, a3, a2, n] - S2[SP[a1, a3], a2, a2, a1, a3, n] + 
    S2[SP[a1, a3], a2, a2, a3, a1, n] + S2[SP[a1, a3], a2, a3, a2, a1, n] - 
    S2[SP[a1, a3], a3, a1, a2, a2, n] + S2[SP[a1, a3], a3, a2, a2, a1, n] + 
    2*S2[SP[a2, a3], a1, a1, a2, a3, n] + 
    2*S2[SP[a2, a3], a1, a1, a3, a2, n] + S2[SP[a2, a3], a1, a2, a1, a3, n] + 
    S2[SP[a2, a3], a1, a3, a1, a2, n] - S2[a3, a2, a2, a1, a3, a1, n] - 
    2*S2[a3, a2, a2, a3, a1, a1, n] - S2[a3, a2, a3, a1, a2, a1, n] - 
    2*S2[a3, a2, a3, a2, a1, a1, n] - S2[a3, a3, a1, a2, a2, a1, n] - 
    S2[a3, a3, a2, a1, a2, a1, n] - 2*S2[a3, a3, a2, a2, a1, a1, n] /; 
   MyMemberQ[{{a1, a2, a3}}, {a1, a1, a2, a2, a3, a3}] && a1 != a2 != a3, 
 S2[a1_, a2_, a3_, a1_, a2_, a3_, n_] :> 
  S2[a1, a2, a3, n]^2/2 + S2[SP[a1, a1], SP[a2, a2], SP[a3, a3], n]/2 - 
    2*S2[a2, a3, n]*S2[a1, a1, a2, a3, n] + S2[a1, a1, SP[a2, a2], 
     SP[a3, a3], n] - S2[a2, a3, n]*S2[a1, a2, a1, a3, n] - 
    2*S2[a1, a2, n]*S2[a1, a2, a3, a3, n] + S2[a1, a2, SP[a1, a2], 
     SP[a3, a3], n] + 2*S2[a1, a2, SP[a1, a3], SP[a2, a3], n] - 
    2*S2[a1, a2, n]*S2[a1, a3, a2, a3, n] - 2*S2[a1, a2, n]*
     S2[a1, a3, a3, a2, n] + 2*S2[a1, a3, SP[a1, a2], SP[a2, a3], n] + 
    2*S2[a1, a3, SP[a1, a3], SP[a2, a2], n] + S2[a1, SP[a1, a2], a2, 
     SP[a3, a3], n] + 2*S2[a1, SP[a1, a2], a3, SP[a2, a3], n] + 
    3*S2[a1, SP[a1, a2], SP[a2, a3], a3, n] + 
    2*S2[a1, SP[a1, a3], a2, SP[a2, a3], n] + 
    2*S2[a1, SP[a1, a3], a3, SP[a2, a2], n] + 
    2*S2[a1, SP[a1, a3], SP[a2, a2], a3, n] + 
    2*S2[a1, SP[a1, a3], SP[a2, a3], a2, n] + S2[a1, SP[a2, a2], a1, 
     SP[a3, a3], n] + S2[a1, SP[a2, a2], SP[a1, a3], a3, n] + 
    S2[a1, a2, n]*S2[a2, a3, a1, a3, n] - S2[a2, a3, SP[a1, a1], SP[a2, a3], 
     n] - S2[a2, SP[a1, a3], a1, SP[a2, a3], n] - 
    S2[a2, SP[a1, a3], SP[a1, a2], a3, n] - S2[SP[a1, a1], a2, a2, 
     SP[a3, a3], n] + 2*S2[SP[a1, a1], a2, a3, SP[a2, a3], n] + 
    S2[SP[a1, a1], a2, SP[a2, a3], a3, n] + 
    2*S2[SP[a1, a1], a3, a2, SP[a2, a3], n] + 
    2*S2[SP[a1, a1], a3, a3, SP[a2, a2], n] + 
    2*S2[SP[a1, a1], a3, SP[a2, a2], a3, n] + 
    2*S2[SP[a1, a1], a3, SP[a2, a3], a2, n] + S2[SP[a1, a1], SP[a2, a2], a3, 
     a3, n] + 2*S2[SP[a1, a1], SP[a2, a3], a2, a3, n] + 
    2*S2[SP[a1, a1], SP[a2, a3], a3, a2, n] + 
    2*S2[SP[a1, a2], a1, a2, SP[a3, a3], n] + 
    2*S2[SP[a1, a2], a1, SP[a2, a3], a3, n] + S2[SP[a1, a2], a2, a1, 
     SP[a3, a3], n] + S2[SP[a1, a2], a2, SP[a1, a3], a3, n] - 
    S2[SP[a1, a2], a3, a1, SP[a2, a3], n] - S2[SP[a1, a2], a3, SP[a1, a2], 
     a3, n] + 2*S2[SP[a1, a2], SP[a1, a3], a2, a3, n] + 
    2*S2[a3, n]*S2[a1, a1, a2, a2, a3, n] + 
    2*S2[a3, n]*S2[a1, a1, a2, a3, a2, n] + 
    4*S2[a2, n]*S2[a1, a1, a2, a3, a3, n] + 
    2*S2[a1, a1, a2, a3, SP[a2, a3], n] + 
    2*S2[a1, a1, a2, SP[a3, a3], a2, n] + 
    2*S2[a3, n]*S2[a1, a1, a3, a2, a2, n] + 
    2*S2[a2, n]*S2[a1, a1, a3, a2, a3, n] - 
    4*S2[a1, a1, a3, a3, SP[a2, a2], n] - 
    2*S2[a1, a1, a3, SP[a2, a2], a3, n] - 
    2*S2[a1, a1, a3, SP[a2, a3], a2, n] - 
    2*S2[a1, a1, SP[a2, a2], a3, a3, n] - 
    2*S2[a1, a1, SP[a2, a3], a3, a2, n] + 
    2*S2[a1, a1, SP[a3, a3], a2, a2, n] + 
    S2[a3, n]*S2[a1, a2, a1, a2, a3, n] - S2[a1, a2, a1, a2, SP[a3, a3], n] + 
    S2[a3, n]*S2[a1, a2, a1, a3, a2, n] + 
    2*S2[a2, n]*S2[a1, a2, a1, a3, a3, n] + S2[a1, a2, a1, a3, SP[a2, a3], 
     n] - S2[a1, a2, a1, SP[a2, a3], a3, n] + S2[a1, a2, a1, SP[a3, a3], a2, 
     n] - 2*S2[a1, a2, a2, a1, SP[a3, a3], n] - 
    2*S2[a1, a2, a2, SP[a1, a3], a3, n] + 
    S2[a3, n]*S2[a1, a2, a3, a1, a2, n] + S2[a1, a2, a3, SP[a1, a2], a3, n] - 
    S2[a1, a2, a3, SP[a1, a3], a2, n] - 2*S2[a1, a2, SP[a1, a3], a2, a3, n] - 
    S2[a1, a2, SP[a1, a3], a3, a2, n] + S2[a1, a2, SP[a3, a3], a1, a2, n] + 
    S2[a2, n]*S2[a1, a3, a1, a2, a3, n] - S2[a1, a3, a1, a2, SP[a2, a3], n] - 
    S2[a2, n]*S2[a1, a3, a1, a3, a2, n] - 
    3*S2[a1, a3, a1, a3, SP[a2, a2], n] - S2[a1, a3, a1, SP[a2, a2], a3, n] - 
    3*S2[a1, a3, a1, SP[a2, a3], a2, n] - 
    2*S2[a1, a3, a2, a1, SP[a2, a3], n] + 
    S2[a1, n]*S2[a1, a3, a2, a3, a2, n] + S2[a1, a3, a2, a3, SP[a1, a2], n] - 
    S2[a1, a3, a2, SP[a1, a3], a2, n] - 2*S2[a1, a3, a3, a1, SP[a2, a2], n] + 
    2*S2[a1, n]*S2[a1, a3, a3, a2, a2, n] + 
    2*S2[a1, a3, a3, a2, SP[a1, a2], n] - S2[a1, a3, SP[a1, a2], a2, a3, n] - 
    2*S2[a1, a3, SP[a1, a2], a3, a2, n] - 
    2*S2[a1, a3, SP[a1, a3], a2, a2, n] - 
    2*S2[a1, SP[a1, a2], a2, a3, a3, n] - 
    3*S2[a1, SP[a1, a2], a3, a2, a3, n] - 
    4*S2[a1, SP[a1, a2], a3, a3, a2, n] - 
    2*S2[a1, SP[a1, a3], a2, a2, a3, n] - S2[a1, SP[a1, a3], a2, a3, a2, n] + 
    2*S2[a1, SP[a2, a3], a1, a2, a3, n] + S2[a1, SP[a2, a3], a3, a1, a2, n] - 
    2*S2[a2, a1, a1, a2, SP[a3, a3], n] - 
    2*S2[a2, a1, a1, SP[a2, a3], a3, n] - S2[a2, a1, a2, a1, SP[a3, a3], n] - 
    S2[a2, a1, a2, SP[a1, a3], a3, n] + S2[a2, a1, a3, a1, SP[a2, a3], n] + 
    S2[a2, a1, a3, SP[a1, a2], a3, n] - 2*S2[a2, a1, SP[a1, a3], a2, a3, n] + 
    2*S2[a2, a3, a1, a1, SP[a2, a3], n] + S2[a2, a3, a1, SP[a1, a2], a3, n] + 
    S2[a2, a3, a1, SP[a1, a3], a2, n] + S2[a2, a3, SP[a1, a1], a2, a3, n] + 
    S2[a2, a3, SP[a1, a1], a3, a2, n] - S2[a2, SP[a1, a3], a1, a2, a3, n] + 
    S2[a2, SP[a1, a3], a1, a3, a2, n] - 2*S2[a3, n]*
     S2[a3, a1, a1, a2, a2, n] - 2*S2[a3, a1, a1, a2, SP[a2, a3], n] - 
    2*S2[a2, n]*S2[a3, a1, a1, a3, a2, n] - 
    2*S2[a3, a1, a1, a3, SP[a2, a2], n] - 
    4*S2[a3, a1, a1, SP[a2, a3], a2, n] - 
    S2[a3, n]*S2[a3, a1, a2, a1, a2, n] - S2[a3, a1, a2, a1, SP[a2, a3], n] + 
    S2[a1, n]*S2[a3, a1, a2, a3, a2, n] + S2[a3, a1, a2, a3, SP[a1, a2], n] - 
    S2[a2, n]*S2[a3, a1, a3, a1, a2, n] - S2[a3, a1, a3, a1, SP[a2, a2], n] + 
    2*S2[a1, n]*S2[a3, a1, a3, a2, a2, n] + 
    2*S2[a3, a1, a3, a2, SP[a1, a2], n] + S2[a3, a1, a3, SP[a1, a2], a2, n] - 
    S2[a3, a1, SP[a1, a2], a3, a2, n] - 2*S2[a3, a1, SP[a2, a3], a1, a2, n] + 
    S2[a1, n]*S2[a3, a2, a1, a3, a2, n] + S2[a3, a2, a1, a3, SP[a1, a2], n] + 
    S2[a3, a2, a1, SP[a1, a3], a2, n] - S2[a1, n]*S2[a3, a2, a3, a2, a1, n] - 
    S2[a3, a2, a3, a2, SP[a1, a1], n] - S2[a3, a2, a3, SP[a1, a2], a1, n] + 
    S2[a3, a2, SP[a1, a1], a3, a2, n] - S2[a3, a2, SP[a1, a3], a2, a1, n] + 
    2*S2[a1, n]*S2[a3, a3, a1, a2, a2, n] + 
    2*S2[a3, a3, a1, a2, SP[a1, a2], n] + 
    2*S2[a3, a3, a1, SP[a1, a2], a2, n] - 
    2*S2[a1, n]*S2[a3, a3, a2, a2, a1, n] - 
    2*S2[a3, a3, a2, a2, SP[a1, a1], n] - 
    2*S2[a3, a3, a2, SP[a1, a2], a1, n] + 
    2*S2[a3, a3, SP[a1, a1], a2, a2, n] - 
    2*S2[a3, a3, SP[a1, a2], a2, a1, n] + S2[a3, SP[a1, a1], a2, a3, a2, n] + 
    2*S2[a3, SP[a1, a1], a3, a2, a2, n] - S2[a3, SP[a1, a2], a1, a3, a2, n] - 
    S2[a3, SP[a1, a2], a3, a1, a2, n] - S2[a3, SP[a1, a2], a3, a2, a1, n] - 
    S2[a3, SP[a1, a3], a2, a1, a2, n] - 2*S2[a3, SP[a1, a3], a2, a2, a1, n] - 
    2*S2[SP[a1, a1], a2, a2, a3, a3, n] - 
    3*S2[SP[a1, a1], a2, a3, a2, a3, n] - 
    4*S2[SP[a1, a1], a2, a3, a3, a2, n] - 
    4*S2[SP[a1, a1], a3, a2, a2, a3, n] - 
    3*S2[SP[a1, a1], a3, a2, a3, a2, n] - 
    2*S2[SP[a1, a1], a3, a3, a2, a2, n] + 
    2*S2[SP[a1, a3], a1, a2, a2, a3, n] + 
    3*S2[SP[a1, a3], a1, a2, a3, a2, n] + 
    4*S2[SP[a1, a3], a1, a3, a2, a2, n] + S2[SP[a1, a3], a2, a1, a2, a3, n] + 
    2*S2[SP[a1, a3], a2, a1, a3, a2, n] + S2[SP[a1, a3], a2, a3, a1, a2, n] - 
    S2[SP[a1, a3], a2, a3, a2, a1, n] + 2*S2[SP[a1, a3], a3, a1, a2, a2, n] - 
    2*S2[SP[a1, a3], a3, a2, a2, a1, n] - 
    2*S2[SP[a2, a3], a1, a1, a3, a2, n] - S2[SP[a2, a3], a1, a3, a1, a2, n] - 
    2*S2[SP[a3, a3], a1, a1, a2, a2, n] - S2[SP[a3, a3], a1, a2, a1, a2, n] + 
    S2[a3, a2, a3, a1, a2, a1, n] + 2*S2[a3, a2, a3, a2, a1, a1, n] + 
    2*S2[a3, a3, a2, a1, a2, a1, n] + 4*S2[a3, a3, a2, a2, a1, a1, n] /; 
   MyMemberQ[{{a1, a2, a3}}, {a1, a1, a2, a2, a3, a3}] && a1 != a2 != a3, 
 S2[a1_, a2_, a3_, a1_, a3_, a2_, n_] :> 
  -(S2[a1, a2, a3, n]^2/2) - S2[SP[a1, a1], SP[a2, a2], SP[a3, a3], n]/2 + 
    2*S2[a2, a3, n]*S2[a1, a1, a2, a3, n] - S2[a1, a1, SP[a2, a2], 
     SP[a3, a3], n] + S2[a2, a3, n]*S2[a1, a2, a1, a3, n] - 
    S2[a1, a2, SP[a1, a2], SP[a3, a3], n] - S2[a1, SP[a1, a2], a2, 
     SP[a3, a3], n] - S2[a1, SP[a1, a2], SP[a2, a3], a3, n] - 
    S2[a1, SP[a2, a2], a1, SP[a3, a3], n] - S2[a1, SP[a2, a2], SP[a1, a3], 
     a3, n] - S2[a1, a2, n]*S2[a2, a3, a1, a3, n] + 
    S2[a2, a3, SP[a1, a1], SP[a2, a3], n] + S2[a2, SP[a1, a3], a1, 
     SP[a2, a3], n] + S2[a2, SP[a1, a3], SP[a1, a2], a3, n] + 
    S2[SP[a1, a1], a2, a2, SP[a3, a3], n] + S2[SP[a1, a1], a2, SP[a2, a3], 
     a3, n] + S2[SP[a1, a1], SP[a2, a2], a3, a3, n] - 
    2*S2[SP[a1, a2], a1, a2, SP[a3, a3], n] - 
    2*S2[SP[a1, a2], a1, SP[a2, a3], a3, n] - S2[SP[a1, a2], a2, a1, 
     SP[a3, a3], n] - S2[SP[a1, a2], a2, SP[a1, a3], a3, n] + 
    S2[SP[a1, a2], a3, a1, SP[a2, a3], n] + S2[SP[a1, a2], a3, SP[a1, a2], 
     a3, n] - 2*S2[SP[a1, a2], SP[a1, a3], a2, a3, n] + 
    2*S2[a3, n]*S2[a1, a1, a2, a2, a3, n] + 
    4*S2[a1, a1, a2, a2, SP[a3, a3], n] + 
    2*S2[a3, n]*S2[a1, a1, a2, a3, a2, n] - 
    4*S2[a2, n]*S2[a1, a1, a2, a3, a3, n] - 
    2*S2[a1, a1, a2, a3, SP[a2, a3], n] + 
    2*S2[a1, a1, a2, SP[a3, a3], a2, n] + 
    2*S2[a3, n]*S2[a1, a1, a3, a2, a2, n] - 
    2*S2[a2, n]*S2[a1, a1, a3, a2, a3, n] - 
    2*S2[a1, a1, a3, SP[a2, a2], a3, n] + 
    2*S2[a1, a1, a3, SP[a2, a3], a2, n] - 
    2*S2[a1, a1, SP[a2, a2], a3, a3, n] + 
    2*S2[a1, a1, SP[a2, a3], a3, a2, n] + 
    2*S2[a1, a1, SP[a3, a3], a2, a2, n] + 
    S2[a3, n]*S2[a1, a2, a1, a2, a3, n] + 
    3*S2[a1, a2, a1, a2, SP[a3, a3], n] + 
    S2[a3, n]*S2[a1, a2, a1, a3, a2, n] - 
    2*S2[a2, n]*S2[a1, a2, a1, a3, a3, n] - S2[a1, a2, a1, a3, SP[a2, a3], 
     n] + S2[a1, a2, a1, SP[a2, a3], a3, n] + S2[a1, a2, a1, SP[a3, a3], a2, 
     n] + 2*S2[a1, a2, a2, a1, SP[a3, a3], n] + 
    2*S2[a1, a2, a2, SP[a1, a3], a3, n] - S2[a1, a2, a3, a1, SP[a2, a3], n] - 
    S2[a1, a2, a3, SP[a1, a2], a3, n] + 2*S2[a1, a2, SP[a1, a3], a2, a3, n] + 
    S2[a1, a2, SP[a1, a3], a3, a2, n] - S2[a2, n]*S2[a1, a3, a1, a2, a3, n] - 
    S2[a1, a3, a1, a2, SP[a2, a3], n] + S2[a2, n]*S2[a1, a3, a1, a3, a2, n] + 
    S2[a1, a3, a1, a3, SP[a2, a2], n] - S2[a1, a3, a1, SP[a2, a2], a3, n] + 
    S2[a1, a3, a1, SP[a2, a3], a2, n] - S2[a1, n]*S2[a1, a3, a2, a3, a2, n] - 
    S2[a1, a3, a2, a3, SP[a1, a2], n] - S2[a1, a3, a2, SP[a1, a3], a2, n] - 
    2*S2[a1, n]*S2[a1, a3, a3, a2, a2, n] - 
    2*S2[a1, a3, a3, a2, SP[a1, a2], n] - 
    2*S2[a1, a3, a3, SP[a1, a2], a2, n] - S2[a1, a3, SP[a1, a2], a2, a3, n] - 
    2*S2[a1, a3, SP[a1, a3], a2, a2, n] - 
    2*S2[a1, SP[a1, a2], a2, a3, a3, n] - S2[a1, SP[a1, a2], a3, a2, a3, n] + 
    2*S2[a1, SP[a1, a3], a2, a2, a3, n] + S2[a1, SP[a1, a3], a2, a3, a2, n] + 
    2*S2[a1, SP[a2, a3], a1, a3, a2, n] + 
    2*S2[a2, a1, a1, a2, SP[a3, a3], n] + 
    2*S2[a2, a1, a1, SP[a2, a3], a3, n] + S2[a2, a1, a2, a1, SP[a3, a3], n] + 
    S2[a2, a1, a2, SP[a1, a3], a3, n] - S2[a2, a1, a3, a1, SP[a2, a3], n] - 
    S2[a2, a1, a3, SP[a1, a2], a3, n] + 2*S2[a2, a1, SP[a1, a3], a2, a3, n] - 
    2*S2[a2, a3, a1, a1, SP[a2, a3], n] - S2[a2, a3, a1, SP[a1, a2], a3, n] - 
    S2[a2, a3, a1, SP[a1, a3], a2, n] - S2[a2, a3, SP[a1, a1], a2, a3, n] - 
    S2[a2, a3, SP[a1, a1], a3, a2, n] + S2[a2, SP[a1, a3], a1, a2, a3, n] - 
    S2[a2, SP[a1, a3], a1, a3, a2, n] - 2*S2[a3, n]*
     S2[a3, a1, a1, a2, a2, n] - 2*S2[a3, a1, a1, a2, SP[a2, a3], n] + 
    2*S2[a2, n]*S2[a3, a1, a1, a3, a2, n] + 
    2*S2[a3, a1, a1, a3, SP[a2, a2], n] - 
    S2[a3, n]*S2[a3, a1, a2, a1, a2, n] - S2[a3, a1, a2, a1, SP[a2, a3], n] - 
    S2[a1, n]*S2[a3, a1, a2, a3, a2, n] - S2[a3, a1, a2, a3, SP[a1, a2], n] - 
    2*S2[a3, a1, a2, SP[a1, a3], a2, n] + 
    S2[a2, n]*S2[a3, a1, a3, a1, a2, n] + S2[a3, a1, a3, a1, SP[a2, a2], n] - 
    2*S2[a1, n]*S2[a3, a1, a3, a2, a2, n] - 
    2*S2[a3, a1, a3, a2, SP[a1, a2], n] - S2[a3, a1, a3, SP[a1, a2], a2, n] + 
    S2[a3, a1, SP[a1, a2], a3, a2, n] - 4*S2[a3, a1, SP[a1, a3], a2, a2, n] - 
    S2[a1, n]*S2[a3, a2, a1, a3, a2, n] - S2[a3, a2, a1, a3, SP[a1, a2], n] - 
    S2[a3, a2, a1, SP[a1, a3], a2, n] + S2[a1, n]*S2[a3, a2, a3, a1, a2, n] + 
    S2[a3, a2, a3, a1, SP[a1, a2], n] + S2[a1, n]*S2[a3, a2, a3, a2, a1, n] + 
    S2[a3, a2, a3, a2, SP[a1, a1], n] + S2[a3, a2, a3, SP[a1, a1], a2, n] + 
    S2[a3, a2, a3, SP[a1, a2], a1, n] - S2[a3, a2, SP[a1, a1], a3, a2, n] + 
    S2[a3, a2, SP[a1, a3], a1, a2, n] + S2[a3, a2, SP[a1, a3], a2, a1, n] + 
    2*S2[a1, n]*S2[a3, a3, a1, a2, a2, n] + 
    2*S2[a3, a3, a1, a2, SP[a1, a2], n] + 
    2*S2[a3, a3, a1, SP[a1, a2], a2, n] + 
    2*S2[a1, n]*S2[a3, a3, a2, a1, a2, n] + 
    2*S2[a3, a3, a2, a1, SP[a1, a2], n] + 
    2*S2[a1, n]*S2[a3, a3, a2, a2, a1, n] + 
    2*S2[a3, a3, a2, a2, SP[a1, a1], n] + 
    2*S2[a3, a3, a2, SP[a1, a1], a2, n] + 
    2*S2[a3, a3, a2, SP[a1, a2], a1, n] + 
    2*S2[a3, a3, SP[a1, a1], a2, a2, n] + 
    2*S2[a3, a3, SP[a1, a2], a1, a2, n] + 
    2*S2[a3, a3, SP[a1, a2], a2, a1, n] - S2[a3, SP[a1, a1], a2, a3, a2, n] - 
    2*S2[a3, SP[a1, a1], a3, a2, a2, n] + S2[a3, SP[a1, a2], a1, a3, a2, n] + 
    2*S2[a3, SP[a1, a2], a3, a1, a2, n] + S2[a3, SP[a1, a2], a3, a2, a1, n] + 
    S2[a3, SP[a1, a3], a2, a1, a2, n] + 2*S2[a3, SP[a1, a3], a2, a2, a1, n] - 
    2*S2[SP[a1, a1], a2, a2, a3, a3, n] - S2[SP[a1, a1], a2, a3, a2, a3, n] - 
    S2[SP[a1, a1], a3, a2, a3, a2, n] - 2*S2[SP[a1, a1], a3, a3, a2, a2, n] + 
    2*S2[SP[a1, a3], a1, a2, a2, a3, n] + S2[SP[a1, a3], a1, a2, a3, a2, n] + 
    S2[SP[a1, a3], a2, a1, a2, a3, n] + S2[SP[a1, a3], a2, a3, a1, a2, n] + 
    S2[SP[a1, a3], a2, a3, a2, a1, n] + 2*S2[SP[a1, a3], a3, a1, a2, a2, n] + 
    2*S2[SP[a1, a3], a3, a2, a1, a2, n] + 
    2*S2[SP[a1, a3], a3, a2, a2, a1, n] + 
    2*S2[SP[a2, a3], a1, a1, a3, a2, n] + S2[SP[a2, a3], a1, a3, a1, a2, n] - 
    2*S2[SP[a3, a3], a1, a1, a2, a2, n] - S2[SP[a3, a3], a1, a2, a1, a2, n] - 
    S2[a3, a2, a1, a3, a1, a2, n] - 2*S2[a3, a2, a3, a1, a1, a2, n] - 
    2*S2[a3, a2, a3, a1, a2, a1, n] - 2*S2[a3, a2, a3, a2, a1, a1, n] - 
    2*S2[a3, a3, a1, a2, a1, a2, n] - 4*S2[a3, a3, a1, a2, a2, a1, n] - 
    4*S2[a3, a3, a2, a1, a1, a2, n] - 4*S2[a3, a3, a2, a1, a2, a1, n] - 
    4*S2[a3, a3, a2, a2, a1, a1, n] /; 
   MyMemberQ[{{a1, a2, a3}}, {a1, a1, a2, a2, a3, a3}] && a1 != a2 != a3, 
 S2[a1_, a2_, a3_, a2_, a1_, a3_, n_] :> 
  -(S2[a1, a2, a3, n]^2/2) - S2[SP[a1, a1], SP[a2, a2], SP[a3, a3], n]/2 + 
    S2[a1, a1, SP[a2, a2], SP[a3, a3], n] + 2*S2[a1, a2, n]*
     S2[a1, a2, a3, a3, n] - 2*S2[a1, a2, SP[a1, a3], SP[a2, a3], n] + 
    2*S2[a1, a2, n]*S2[a1, a3, a2, a3, n] + 2*S2[a1, a2, n]*
     S2[a1, a3, a3, a2, n] - 2*S2[a1, a3, SP[a1, a2], SP[a2, a3], n] - 
    2*S2[a1, a3, SP[a1, a3], SP[a2, a2], n] + S2[a1, SP[a1, a2], a2, 
     SP[a3, a3], n] - 2*S2[a1, SP[a1, a2], a3, SP[a2, a3], n] - 
    S2[a1, SP[a1, a2], SP[a2, a3], a3, n] - 
    2*S2[a1, SP[a1, a3], a2, SP[a2, a3], n] - 
    2*S2[a1, SP[a1, a3], a3, SP[a2, a2], n] - 
    2*S2[a1, SP[a1, a3], SP[a2, a2], a3, n] - 
    2*S2[a1, SP[a1, a3], SP[a2, a3], a2, n] - 
    S2[a1, a2, n]*S2[a2, a3, a1, a3, n] + S2[a2, a3, SP[a1, a1], SP[a2, a3], 
     n] + S2[a2, SP[a1, a3], a1, SP[a2, a3], n] + 
    S2[a2, SP[a1, a3], SP[a1, a2], a3, n] + S2[SP[a1, a1], a2, a2, 
     SP[a3, a3], n] - 2*S2[SP[a1, a1], a2, a3, SP[a2, a3], n] - 
    S2[SP[a1, a1], a2, SP[a2, a3], a3, n] - 
    2*S2[SP[a1, a1], a3, a2, SP[a2, a3], n] - 
    2*S2[SP[a1, a1], a3, a3, SP[a2, a2], n] - 
    2*S2[SP[a1, a1], a3, SP[a2, a2], a3, n] - 
    2*S2[SP[a1, a1], a3, SP[a2, a3], a2, n] - S2[SP[a1, a1], SP[a2, a2], a3, 
     a3, n] - 2*S2[SP[a1, a1], SP[a2, a3], a2, a3, n] - 
    2*S2[SP[a1, a1], SP[a2, a3], a3, a2, n] + S2[SP[a1, a2], a3, a1, 
     SP[a2, a3], n] + S2[SP[a1, a2], a3, SP[a1, a2], a3, n] + 
    S2[SP[a1, a2], SP[a2, a3], a1, a3, n] - 
    2*S2[a3, n]*S2[a1, a1, a2, a2, a3, n] - 
    4*S2[a1, a1, a2, a2, SP[a3, a3], n] - 
    4*S2[a3, n]*S2[a1, a1, a2, a3, a2, n] - 
    4*S2[a1, a1, a2, SP[a3, a3], a2, n] - 
    2*S2[a3, n]*S2[a1, a1, a3, a2, a2, n] + 
    2*S2[a1, a1, a3, a2, SP[a2, a3], n] + 
    4*S2[a1, a1, a3, a3, SP[a2, a2], n] + 
    4*S2[a1, a1, a3, SP[a2, a2], a3, n] + 
    2*S2[a1, a1, a3, SP[a2, a3], a2, n] + 
    2*S2[a1, a1, SP[a2, a2], a3, a3, n] + 
    2*S2[a1, a1, SP[a2, a3], a2, a3, n] - 
    2*S2[a1, a1, SP[a3, a3], a2, a2, n] - 
    S2[a3, n]*S2[a1, a2, a1, a2, a3, n] - 
    2*S2[a1, a2, a1, a2, SP[a3, a3], n] - 
    2*S2[a3, n]*S2[a1, a2, a1, a3, a2, n] - 
    2*S2[a1, a2, a1, SP[a3, a3], a2, n] - 
    S2[a3, n]*S2[a1, a2, a3, a1, a2, n] + 
    S2[a2, n]*S2[a1, a2, a3, a1, a3, n] + S2[a1, a2, a3, a1, SP[a2, a3], n] + 
    S2[a1, a2, a3, SP[a1, a3], a2, n] - S2[a1, a2, SP[a3, a3], a1, a2, n] + 
    S2[a2, n]*S2[a1, a3, a1, a2, a3, n] + 
    3*S2[a1, a3, a1, a2, SP[a2, a3], n] + 
    S2[a2, n]*S2[a1, a3, a1, a3, a2, n] + 
    3*S2[a1, a3, a1, a3, SP[a2, a2], n] + 
    3*S2[a1, a3, a1, SP[a2, a2], a3, n] + 
    3*S2[a1, a3, a1, SP[a2, a3], a2, n] + 
    S2[a2, n]*S2[a1, a3, a2, a1, a3, n] + 
    3*S2[a1, a3, a2, a1, SP[a2, a3], n] - 
    2*S2[a1, n]*S2[a1, a3, a2, a2, a3, n] - 
    2*S2[a1, a3, a2, a2, SP[a1, a3], n] - 
    S2[a1, n]*S2[a1, a3, a2, a3, a2, n] - S2[a1, a3, a2, a3, SP[a1, a2], n] - 
    S2[a1, a3, a2, SP[a1, a2], a3, n] + S2[a1, a3, a2, SP[a1, a3], a2, n] + 
    2*S2[a1, a3, a3, a1, SP[a2, a2], n] - 
    2*S2[a1, n]*S2[a1, a3, a3, a2, a2, n] - 
    2*S2[a1, a3, a3, a2, SP[a1, a2], n] + S2[a1, a3, SP[a1, a2], a2, a3, n] + 
    2*S2[a1, a3, SP[a1, a2], a3, a2, n] + 
    2*S2[a1, a3, SP[a1, a3], a2, a2, n] + S2[a1, a3, SP[a2, a2], a1, a3, n] + 
    2*S2[a1, SP[a1, a2], a2, a3, a3, n] + 
    3*S2[a1, SP[a1, a2], a3, a2, a3, n] + 
    4*S2[a1, SP[a1, a2], a3, a3, a2, n] - S2[a1, SP[a1, a3], a2, a3, a2, n] - 
    S2[a1, SP[a2, a3], a1, a3, a2, n] + S2[a1, SP[a2, a3], a2, a1, a3, n] - 
    S2[a1, SP[a2, a3], a3, a1, a2, n] - S2[a2, a1, a3, a1, SP[a2, a3], n] - 
    S2[a2, a1, a3, SP[a1, a2], a3, n] - S2[a2, a1, SP[a2, a3], a1, a3, n] - 
    2*S2[a2, a3, a1, a1, SP[a2, a3], n] - S2[a2, a3, a1, SP[a1, a2], a3, n] - 
    S2[a2, a3, a1, SP[a1, a3], a2, n] - S2[a2, a3, SP[a1, a1], a2, a3, n] - 
    S2[a2, a3, SP[a1, a1], a3, a2, n] - S2[a2, SP[a1, a3], a1, a2, a3, n] - 
    S2[a2, SP[a1, a3], a1, a3, a2, n] - S2[a2, SP[a1, a3], a2, a1, a3, n] + 
    2*S2[a3, n]*S2[a3, a1, a1, a2, a2, n] + 
    2*S2[a2, n]*S2[a3, a1, a1, a2, a3, n] + 
    4*S2[a3, a1, a1, a2, SP[a2, a3], n] + 
    2*S2[a2, n]*S2[a3, a1, a1, a3, a2, n] + 
    2*S2[a3, a1, a1, a3, SP[a2, a2], n] + 
    2*S2[a3, a1, a1, SP[a2, a2], a3, n] + 
    4*S2[a3, a1, a1, SP[a2, a3], a2, n] + 
    S2[a3, n]*S2[a3, a1, a2, a1, a2, n] + 
    S2[a2, n]*S2[a3, a1, a2, a1, a3, n] + 
    2*S2[a3, a1, a2, a1, SP[a2, a3], n] - 
    2*S2[a1, n]*S2[a3, a1, a2, a2, a3, n] - 
    2*S2[a3, a1, a2, a2, SP[a1, a3], n] - 
    S2[a1, n]*S2[a3, a1, a2, a3, a2, n] - S2[a3, a1, a2, a3, SP[a1, a2], n] - 
    S2[a3, a1, a2, SP[a1, a2], a3, n] + S2[a2, n]*S2[a3, a1, a3, a1, a2, n] + 
    S2[a3, a1, a3, a1, SP[a2, a2], n] - 2*S2[a1, n]*
     S2[a3, a1, a3, a2, a2, n] - 2*S2[a3, a1, a3, a2, SP[a1, a2], n] - 
    S2[a3, a1, a3, SP[a1, a2], a2, n] + S2[a3, a1, SP[a1, a2], a3, a2, n] + 
    S2[a3, a1, SP[a2, a2], a1, a3, n] + 2*S2[a3, a1, SP[a2, a3], a1, a2, n] - 
    S2[a1, n]*S2[a3, a2, a1, a2, a3, n] - S2[a3, a2, a1, a2, SP[a1, a3], n] - 
    S2[a1, n]*S2[a3, a2, a1, a3, a2, n] - S2[a3, a2, a1, a3, SP[a1, a2], n] - 
    S2[a3, a2, a1, SP[a1, a2], a3, n] - S2[a3, a2, a1, SP[a1, a3], a2, n] + 
    2*S2[a1, n]*S2[a3, a2, a2, a3, a1, n] + 
    2*S2[a3, a2, a2, a3, SP[a1, a1], n] + 
    2*S2[a3, a2, a2, SP[a1, a3], a1, n] + 
    S2[a1, n]*S2[a3, a2, a3, a2, a1, n] + S2[a3, a2, a3, a2, SP[a1, a1], n] + 
    S2[a3, a2, a3, SP[a1, a2], a1, n] - S2[a3, a2, SP[a1, a1], a2, a3, n] - 
    S2[a3, a2, SP[a1, a1], a3, a2, n] + 2*S2[a3, a2, SP[a1, a2], a3, a1, n] + 
    S2[a3, a2, SP[a1, a3], a2, a1, n] - 2*S2[a1, n]*
     S2[a3, a3, a1, a2, a2, n] - 2*S2[a3, a3, a1, a2, SP[a1, a2], n] - 
    2*S2[a3, a3, a1, SP[a1, a2], a2, n] + 
    2*S2[a1, n]*S2[a3, a3, a2, a2, a1, n] + 
    2*S2[a3, a3, a2, a2, SP[a1, a1], n] + 
    2*S2[a3, a3, a2, SP[a1, a2], a1, n] - 
    2*S2[a3, a3, SP[a1, a1], a2, a2, n] + 
    2*S2[a3, a3, SP[a1, a2], a2, a1, n] - 
    2*S2[a3, SP[a1, a1], a2, a2, a3, n] - S2[a3, SP[a1, a1], a2, a3, a2, n] - 
    2*S2[a3, SP[a1, a1], a3, a2, a2, n] + S2[a3, SP[a1, a2], a1, a2, a3, n] + 
    S2[a3, SP[a1, a2], a1, a3, a2, n] + S2[a3, SP[a1, a2], a2, a1, a3, n] + 
    2*S2[a3, SP[a1, a2], a2, a3, a1, n] + S2[a3, SP[a1, a2], a3, a1, a2, n] + 
    S2[a3, SP[a1, a2], a3, a2, a1, n] + S2[a3, SP[a1, a3], a2, a1, a2, n] + 
    2*S2[a3, SP[a1, a3], a2, a2, a1, n] + 
    2*S2[SP[a1, a1], a2, a2, a3, a3, n] + 
    3*S2[SP[a1, a1], a2, a3, a2, a3, n] + 
    4*S2[SP[a1, a1], a2, a3, a3, a2, n] + 
    2*S2[SP[a1, a1], a3, a2, a2, a3, n] + 
    3*S2[SP[a1, a1], a3, a2, a3, a2, n] + 
    2*S2[SP[a1, a1], a3, a3, a2, a2, n] - 
    4*S2[SP[a1, a3], a1, a2, a2, a3, n] - 
    5*S2[SP[a1, a3], a1, a2, a3, a2, n] - 
    4*S2[SP[a1, a3], a1, a3, a2, a2, n] - 
    2*S2[SP[a1, a3], a2, a1, a2, a3, n] - 
    3*S2[SP[a1, a3], a2, a1, a3, a2, n] + 
    2*S2[SP[a1, a3], a2, a2, a3, a1, n] - S2[SP[a1, a3], a2, a3, a1, a2, n] + 
    S2[SP[a1, a3], a2, a3, a2, a1, n] - 2*S2[SP[a1, a3], a3, a1, a2, a2, n] + 
    2*S2[SP[a1, a3], a3, a2, a2, a1, n] + 
    2*S2[SP[a2, a3], a1, a1, a2, a3, n] + 
    2*S2[SP[a2, a3], a1, a1, a3, a2, n] + S2[SP[a2, a3], a1, a2, a1, a3, n] + 
    S2[SP[a2, a3], a1, a3, a1, a2, n] + 2*S2[SP[a3, a3], a1, a1, a2, a2, n] + 
    S2[SP[a3, a3], a1, a2, a1, a2, n] - S2[a3, a2, a1, a2, a3, a1, n] - 
    2*S2[a3, a2, a2, a1, a3, a1, n] - 4*S2[a3, a2, a2, a3, a1, a1, n] - 
    S2[a3, a2, a3, a1, a2, a1, n] - 2*S2[a3, a2, a3, a2, a1, a1, n] - 
    2*S2[a3, a3, a2, a1, a2, a1, n] - 4*S2[a3, a3, a2, a2, a1, a1, n] /; 
   MyMemberQ[{{a1, a2, a3}}, {a1, a1, a2, a2, a3, a3}] && a1 != a2 != a3, 
 S2[a1_, a2_, a3_, a2_, a3_, a1_, n_] :> 
  -2*S2[a1, a2, n]*S2[a1, a3, a2, a3, n] - 2*S2[a1, a2, n]*
     S2[a1, a3, a3, a2, n] + 2*S2[a1, a3, SP[a1, a2], SP[a2, a3], n] + 
    2*S2[a1, a3, SP[a1, a3], SP[a2, a2], n] + 
    2*S2[a1, SP[a1, a3], a2, SP[a2, a3], n] + 
    2*S2[a1, SP[a1, a3], a3, SP[a2, a2], n] + 
    2*S2[a1, SP[a1, a3], SP[a2, a2], a3, n] + 
    2*S2[a1, SP[a1, a3], SP[a2, a3], a2, n] + 
    S2[a1, a2, n]*S2[a2, a3, a1, a3, n] - S2[a2, a3, SP[a1, a1], SP[a2, a3], 
     n] - S2[a2, SP[a1, a3], a1, SP[a2, a3], n] - 
    S2[a2, SP[a1, a3], SP[a1, a2], a3, n] + 
    2*S2[SP[a1, a1], a3, a2, SP[a2, a3], n] + 
    2*S2[SP[a1, a1], a3, a3, SP[a2, a2], n] + 
    2*S2[SP[a1, a1], a3, SP[a2, a2], a3, n] + 
    2*S2[SP[a1, a1], a3, SP[a2, a3], a2, n] + 
    2*S2[SP[a1, a1], SP[a2, a3], a2, a3, n] + 
    2*S2[SP[a1, a1], SP[a2, a3], a3, a2, n] - S2[SP[a1, a2], a3, a1, 
     SP[a2, a3], n] - S2[SP[a1, a2], a3, SP[a1, a2], a3, n] - 
    S2[SP[a1, a2], SP[a2, a3], a1, a3, n] + 
    2*S2[a3, n]*S2[a1, a1, a2, a3, a2, n] + 
    2*S2[a1, a1, a2, a3, SP[a2, a3], n] + 
    2*S2[a1, a1, a2, SP[a3, a3], a2, n] + 
    4*S2[a3, n]*S2[a1, a1, a3, a2, a2, n] - 
    4*S2[a1, a1, a3, a3, SP[a2, a2], n] - 
    4*S2[a1, a1, a3, SP[a2, a2], a3, n] - 
    4*S2[a1, a1, SP[a2, a3], a2, a3, n] - 
    2*S2[a1, a1, SP[a2, a3], a3, a2, n] + 
    4*S2[a1, a1, SP[a3, a3], a2, a2, n] + 
    S2[a3, n]*S2[a1, a2, a1, a3, a2, n] + S2[a1, a2, a1, a3, SP[a2, a3], n] + 
    S2[a1, a2, a1, SP[a3, a3], a2, n] - S2[a2, n]*S2[a1, a2, a3, a1, a3, n] + 
    S2[a1, n]*S2[a1, a2, a3, a2, a3, n] + S2[a1, a2, a3, a2, SP[a1, a3], n] + 
    S2[a1, a2, a3, SP[a1, a2], a3, n] + S2[a1, a2, SP[a1, a3], a2, a3, n] + 
    S2[a1, a2, SP[a1, a3], a3, a2, n] + 2*S2[a3, n]*
     S2[a1, a3, a1, a2, a2, n] - S2[a2, n]*S2[a1, a3, a1, a2, a3, n] - 
    S2[a1, a3, a1, a2, SP[a2, a3], n] - S2[a2, n]*S2[a1, a3, a1, a3, a2, n] - 
    3*S2[a1, a3, a1, a3, SP[a2, a2], n] - 
    3*S2[a1, a3, a1, SP[a2, a2], a3, n] - S2[a1, a3, a1, SP[a2, a3], a2, n] + 
    S2[a3, n]*S2[a1, a3, a2, a1, a2, n] - 
    S2[a2, n]*S2[a1, a3, a2, a1, a3, n] - 
    2*S2[a1, a3, a2, a1, SP[a2, a3], n] + 
    2*S2[a1, n]*S2[a1, a3, a2, a2, a3, n] + 
    2*S2[a1, a3, a2, a2, SP[a1, a3], n] + 
    S2[a1, n]*S2[a1, a3, a2, a3, a2, n] + S2[a1, a3, a2, a3, SP[a1, a2], n] + 
    S2[a1, a3, a2, SP[a1, a2], a3, n] - 2*S2[a1, a3, a3, a1, SP[a2, a2], n] - 
    2*S2[a1, a3, a3, SP[a1, a2], a2, n] - S2[a1, a3, SP[a1, a2], a2, a3, n] - 
    2*S2[a1, a3, SP[a1, a2], a3, a2, n] - 
    2*S2[a1, a3, SP[a1, a3], a2, a2, n] - S2[a1, a3, SP[a2, a2], a1, a3, n] + 
    S2[a1, a3, SP[a2, a3], a1, a2, n] - S2[a1, SP[a1, a2], a3, a2, a3, n] - 
    2*S2[a1, SP[a1, a2], a3, a3, a2, n] - 
    2*S2[a1, SP[a1, a3], a2, a2, a3, n] - S2[a1, SP[a1, a3], a2, a3, a2, n] - 
    S2[a1, SP[a2, a3], a1, a2, a3, n] - S2[a1, SP[a2, a3], a2, a1, a3, n] + 
    2*S2[a1, SP[a3, a3], a1, a2, a2, n] + S2[a1, SP[a3, a3], a2, a1, a2, n] + 
    S2[a2, a1, a3, a1, SP[a2, a3], n] + S2[a2, a1, a3, SP[a1, a2], a3, n] + 
    S2[a2, a1, SP[a2, a3], a1, a3, n] + 2*S2[a2, a3, a1, a1, SP[a2, a3], n] + 
    S2[a2, a3, a1, SP[a1, a2], a3, n] + S2[a2, a3, a1, SP[a1, a3], a2, n] + 
    S2[a2, a3, SP[a1, a1], a2, a3, n] + S2[a2, a3, SP[a1, a1], a3, a2, n] + 
    S2[a2, SP[a1, a3], a1, a2, a3, n] + S2[a2, SP[a1, a3], a1, a3, a2, n] + 
    S2[a2, SP[a1, a3], a2, a1, a3, n] - 2*S2[a2, n]*
     S2[a3, a1, a1, a2, a3, n] - 2*S2[a3, a1, a1, a2, SP[a2, a3], n] - 
    2*S2[a2, n]*S2[a3, a1, a1, a3, a2, n] - 
    2*S2[a3, a1, a1, a3, SP[a2, a2], n] - 
    2*S2[a3, a1, a1, SP[a2, a2], a3, n] - 
    2*S2[a3, a1, a1, SP[a2, a3], a2, n] - 
    S2[a2, n]*S2[a3, a1, a2, a1, a3, n] - S2[a3, a1, a2, a1, SP[a2, a3], n] + 
    2*S2[a1, n]*S2[a3, a1, a2, a2, a3, n] + 
    2*S2[a3, a1, a2, a2, SP[a1, a3], n] + 
    S2[a1, n]*S2[a3, a1, a2, a3, a2, n] + S2[a3, a1, a2, a3, SP[a1, a2], n] + 
    S2[a3, a1, a2, SP[a1, a2], a3, n] + S2[a3, a1, a2, SP[a1, a3], a2, n] - 
    S2[a2, n]*S2[a3, a1, a3, a1, a2, n] - S2[a3, a1, a3, a1, SP[a2, a2], n] - 
    S2[a3, a1, a3, SP[a1, a2], a2, n] - S2[a3, a1, SP[a1, a2], a3, a2, n] - 
    S2[a3, a1, SP[a2, a2], a1, a3, n] - S2[a3, a1, SP[a2, a3], a1, a2, n] + 
    S2[a1, n]*S2[a3, a2, a1, a2, a3, n] + S2[a3, a2, a1, a2, SP[a1, a3], n] + 
    S2[a1, n]*S2[a3, a2, a1, a3, a2, n] + S2[a3, a2, a1, a3, SP[a1, a2], n] + 
    S2[a3, a2, a1, SP[a1, a2], a3, n] + S2[a3, a2, a1, SP[a1, a3], a2, n] - 
    2*S2[a1, n]*S2[a3, a2, a2, a3, a1, n] - 
    2*S2[a3, a2, a2, a3, SP[a1, a1], n] - 
    2*S2[a3, a2, a2, SP[a1, a3], a1, n] - 
    S2[a1, n]*S2[a3, a2, a3, a2, a1, n] - S2[a3, a2, a3, a2, SP[a1, a1], n] - 
    S2[a3, a2, a3, SP[a1, a2], a1, n] + S2[a3, a2, SP[a1, a1], a2, a3, n] + 
    S2[a3, a2, SP[a1, a1], a3, a2, n] - 2*S2[a3, a2, SP[a1, a2], a3, a1, n] - 
    S2[a3, a2, SP[a1, a3], a2, a1, n] + 2*S2[a3, SP[a1, a1], a2, a2, a3, n] + 
    S2[a3, SP[a1, a1], a2, a3, a2, n] - S2[a3, SP[a1, a2], a1, a2, a3, n] - 
    S2[a3, SP[a1, a2], a1, a3, a2, n] - S2[a3, SP[a1, a2], a2, a1, a3, n] - 
    2*S2[a3, SP[a1, a2], a2, a3, a1, n] - S2[a3, SP[a1, a2], a3, a1, a2, n] - 
    S2[a3, SP[a1, a2], a3, a2, a1, n] - S2[SP[a1, a1], a2, a3, a2, a3, n] - 
    2*S2[SP[a1, a1], a2, a3, a3, a2, n] - 
    2*S2[SP[a1, a1], a3, a2, a2, a3, n] - 
    3*S2[SP[a1, a1], a3, a2, a3, a2, n] - 
    4*S2[SP[a1, a1], a3, a3, a2, a2, n] + 
    2*S2[SP[a1, a3], a1, a2, a2, a3, n] + 
    3*S2[SP[a1, a3], a1, a2, a3, a2, n] + 
    4*S2[SP[a1, a3], a1, a3, a2, a2, n] + S2[SP[a1, a3], a2, a1, a2, a3, n] + 
    2*S2[SP[a1, a3], a2, a1, a3, a2, n] - 
    2*S2[SP[a1, a3], a2, a2, a3, a1, n] - S2[SP[a1, a3], a2, a3, a2, a1, n] + 
    2*S2[SP[a1, a3], a3, a1, a2, a2, n] + S2[SP[a1, a3], a3, a2, a1, a2, n] - 
    2*S2[SP[a2, a3], a1, a1, a2, a3, n] - 
    2*S2[SP[a2, a3], a1, a1, a3, a2, n] - S2[SP[a2, a3], a1, a2, a1, a3, n] - 
    S2[SP[a2, a3], a1, a3, a1, a2, n] + S2[a3, a2, a1, a2, a3, a1, n] + 
    2*S2[a3, a2, a2, a1, a3, a1, n] + 4*S2[a3, a2, a2, a3, a1, a1, n] + 
    S2[a3, a2, a3, a1, a2, a1, n] + 2*S2[a3, a2, a3, a2, a1, a1, n] /; 
   MyMemberQ[{{a1, a2, a3}}, {a1, a1, a2, a2, a3, a3}] && a1 != a2 != a3, 
 S2[a1_, a2_, a3_, a3_, a1_, a2_, n_] :> 
  S2[a1, a2, n]*S2[a1, a2, a3, a3, n] - S2[a1, a2, SP[a1, a3], SP[a2, a3], 
     n] + S2[a1, a2, n]*S2[a1, a3, a2, a3, n] + 
    S2[a1, a2, n]*S2[a1, a3, a3, a2, n] - S2[a1, a3, SP[a1, a2], SP[a2, a3], 
     n] - S2[a1, a3, SP[a1, a3], SP[a2, a2], n] - S2[a1, SP[a1, a2], a3, 
     SP[a2, a3], n] - S2[a1, SP[a1, a2], SP[a2, a3], a3, n] - 
    S2[a1, SP[a1, a3], a2, SP[a2, a3], n] - S2[a1, SP[a1, a3], a3, 
     SP[a2, a2], n] - S2[a1, SP[a1, a3], SP[a2, a2], a3, n] - 
    S2[a1, SP[a1, a3], SP[a2, a3], a2, n] - S2[SP[a1, a1], a2, a3, 
     SP[a2, a3], n] - S2[SP[a1, a1], a2, SP[a2, a3], a3, n] - 
    S2[SP[a1, a1], a3, a2, SP[a2, a3], n] - S2[SP[a1, a1], a3, a3, 
     SP[a2, a2], n] - S2[SP[a1, a1], a3, SP[a2, a2], a3, n] - 
    S2[SP[a1, a1], a3, SP[a2, a3], a2, n] - S2[SP[a1, a1], SP[a2, a2], a3, 
     a3, n] - S2[SP[a1, a1], SP[a2, a3], a2, a3, n] - 
    S2[SP[a1, a1], SP[a2, a3], a3, a2, n] - 
    2*S2[a3, n]*S2[a1, a1, a2, a2, a3, n] - 
    2*S2[a1, a1, a2, a2, SP[a3, a3], n] - 
    2*S2[a3, n]*S2[a1, a1, a2, a3, a2, n] - 
    2*S2[a1, a1, a2, SP[a3, a3], a2, n] - 
    2*S2[a3, n]*S2[a1, a1, a3, a2, a2, n] + 
    2*S2[a1, a1, a3, a3, SP[a2, a2], n] + 
    2*S2[a1, a1, a3, SP[a2, a2], a3, n] + 
    2*S2[a1, a1, SP[a2, a2], a3, a3, n] - 
    2*S2[a1, a1, SP[a3, a3], a2, a2, n] - 
    S2[a3, n]*S2[a1, a2, a1, a2, a3, n] - S2[a1, a2, a1, a2, SP[a3, a3], n] - 
    S2[a3, n]*S2[a1, a2, a1, a3, a2, n] - S2[a1, a2, a1, SP[a3, a3], a2, n] + 
    S2[a1, a2, a3, a1, SP[a2, a3], n] + S2[a1, a2, a3, SP[a1, a3], a2, n] + 
    S2[a1, a3, a1, a2, SP[a2, a3], n] + S2[a1, a3, a1, a3, SP[a2, a2], n] + 
    S2[a1, a3, a1, SP[a2, a2], a3, n] + S2[a1, a3, a1, SP[a2, a3], a2, n] + 
    S2[a1, a3, a2, a1, SP[a2, a3], n] + S2[a1, a3, a2, SP[a1, a3], a2, n] + 
    S2[a1, a3, a3, a1, SP[a2, a2], n] + S2[a1, a3, a3, SP[a1, a2], a2, n] + 
    S2[a1, a3, SP[a1, a2], a2, a3, n] + S2[a1, a3, SP[a1, a2], a3, a2, n] + 
    2*S2[a1, a3, SP[a1, a3], a2, a2, n] + 
    2*S2[a1, SP[a1, a2], a2, a3, a3, n] + 
    2*S2[a1, SP[a1, a2], a3, a2, a3, n] + 
    2*S2[a1, SP[a1, a2], a3, a3, a2, n] - S2[a1, SP[a2, a3], a1, a2, a3, n] - 

    S2[a1, SP[a2, a3], a1, a3, a2, n] + 2*S2[a3, n]*
     S2[a3, a1, a1, a2, a2, n] + 2*S2[a3, a1, a1, a2, SP[a2, a3], n] + 
    2*S2[a3, a1, a1, SP[a2, a3], a2, n] + 
    S2[a3, n]*S2[a3, a1, a2, a1, a2, n] + S2[a3, a1, a2, a1, SP[a2, a3], n] + 
    S2[a3, a1, a2, SP[a1, a3], a2, n] + 2*S2[a3, a1, SP[a1, a3], a2, a2, n] + 
    S2[a3, a1, SP[a2, a3], a1, a2, n] - S2[a1, n]*S2[a3, a2, a3, a1, a2, n] - 
    S2[a3, a2, a3, a1, SP[a1, a2], n] - S2[a3, a2, a3, SP[a1, a1], a2, n] - 
    S2[a3, a2, SP[a1, a3], a1, a2, n] - 2*S2[a1, n]*
     S2[a3, a3, a1, a2, a2, n] - 2*S2[a3, a3, a1, a2, SP[a1, a2], n] - 
    2*S2[a3, a3, a1, SP[a1, a2], a2, n] - 
    S2[a1, n]*S2[a3, a3, a2, a1, a2, n] - S2[a3, a3, a2, a1, SP[a1, a2], n] - 
    S2[a3, a3, a2, SP[a1, a1], a2, n] - 2*S2[a3, a3, SP[a1, a1], a2, a2, n] - 
    S2[a3, a3, SP[a1, a2], a1, a2, n] - S2[a3, SP[a1, a2], a3, a1, a2, n] + 
    2*S2[SP[a1, a1], a2, a2, a3, a3, n] + 
    2*S2[SP[a1, a1], a2, a3, a2, a3, n] + 
    2*S2[SP[a1, a1], a2, a3, a3, a2, n] + 
    2*S2[SP[a1, a1], a3, a2, a2, a3, n] + 
    2*S2[SP[a1, a1], a3, a2, a3, a2, n] + 
    2*S2[SP[a1, a1], a3, a3, a2, a2, n] - 
    2*S2[SP[a1, a3], a1, a2, a2, a3, n] - 
    2*S2[SP[a1, a3], a1, a2, a3, a2, n] - 
    2*S2[SP[a1, a3], a1, a3, a2, a2, n] - S2[SP[a1, a3], a2, a1, a2, a3, n] - 
    S2[SP[a1, a3], a2, a1, a3, a2, n] - S2[SP[a1, a3], a2, a3, a1, a2, n] - 
    2*S2[SP[a1, a3], a3, a1, a2, a2, n] - S2[SP[a1, a3], a3, a2, a1, a2, n] + 
    2*S2[SP[a3, a3], a1, a1, a2, a2, n] + S2[SP[a3, a3], a1, a2, a1, a2, n] + 
    S2[a3, a2, a1, a3, a1, a2, n] + 2*S2[a3, a2, a3, a1, a1, a2, n] + 
    S2[a3, a2, a3, a1, a2, a1, n] + S2[a3, a3, a1, a2, a1, a2, n] + 
    2*S2[a3, a3, a1, a2, a2, a1, n] + 2*S2[a3, a3, a2, a1, a1, a2, n] + 
    S2[a3, a3, a2, a1, a2, a1, n] /; 
   MyMemberQ[{{a1, a2, a3}}, {a1, a1, a2, a2, a3, a3}] && a1 != a2 != a3, 
 S2[a1_, a2_, a3_, a3_, a2_, a1_, n_] :> 
  S2[a1, a2, a3, n]^2/2 + S2[SP[a1, a1], SP[a2, a2], SP[a3, a3], n]/2 - 
    S2[a1, a1, SP[a2, a2], SP[a3, a3], n] - S2[a1, a2, n]*
     S2[a1, a2, a3, a3, n] + S2[a1, a2, SP[a1, a3], SP[a2, a3], n] - 
    S2[a1, SP[a1, a2], a2, SP[a3, a3], n] + S2[a1, SP[a1, a2], a3, 
     SP[a2, a3], n] - S2[SP[a1, a1], a2, a2, SP[a3, a3], n] + 
    S2[SP[a1, a1], a2, a3, SP[a2, a3], n] + 
    2*S2[a1, a1, a2, a2, SP[a3, a3], n] - 
    2*S2[a1, a1, a2, a3, SP[a2, a3], n] + S2[a1, a2, a1, a2, SP[a3, a3], n] - 
    S2[a1, a2, a1, a3, SP[a2, a3], n] - S2[a1, a2, a3, a1, SP[a2, a3], n] + 
    S2[a1, n]*S2[a1, a2, a3, a3, a2, n] + S2[a1, a2, a3, a3, SP[a1, a2], 
     n] /; MyMemberQ[{{a1, a2, a3}}, {a1, a1, a2, a2, a3, a3}] && 
    a1 != a2 != a3, S2[a1_, a3_, a1_, a2_, a2_, a3_, n_] :> 
  -2*S2[a1, a1, a3, n]*S2[a2, a2, a3, n] - 
    2*S2[SP[a1, a2], SP[a1, a2], SP[a3, a3], n] - 
    2*S2[a2, a3, n]*S2[a1, a1, a2, a3, n] - 2*S2[a2, a3, n]*
     S2[a1, a1, a3, a2, n] + 2*S2[a1, a1, SP[a2, a2], SP[a3, a3], n] + 
    2*S2[a1, a1, SP[a2, a3], SP[a2, a3], n] - 
    S2[a2, a3, n]*S2[a1, a2, a1, a3, n] + S2[a1, a3, n]*
     S2[a1, a2, a2, a3, n] + 2*S2[a1, a2, SP[a1, a2], SP[a3, a3], n] + 
    3*S2[a1, SP[a1, a2], a2, SP[a3, a3], n] + 
    2*S2[a1, SP[a1, a2], a3, SP[a2, a3], n] + 
    3*S2[a1, SP[a1, a2], SP[a2, a3], a3, n] + 
    2*S2[a1, SP[a1, a2], SP[a3, a3], a2, n] + S2[a1, SP[a2, a2], a1, 
     SP[a3, a3], n] + S2[a1, SP[a2, a2], SP[a1, a3], a3, n] + 
    2*S2[a2, a1, SP[a1, a2], SP[a3, a3], n] + 
    2*S2[a2, SP[a1, a2], a1, SP[a3, a3], n] + 
    2*S2[a2, SP[a1, a2], SP[a1, a3], a3, n] - S2[SP[a1, a1], a2, a2, 
     SP[a3, a3], n] - S2[SP[a1, a1], a2, SP[a2, a3], a3, n] - 
    S2[SP[a1, a1], SP[a2, a3], a2, a3, n] + 
    4*S2[SP[a1, a2], a1, a2, SP[a3, a3], n] + 
    2*S2[SP[a1, a2], a1, a3, SP[a2, a3], n] + 
    4*S2[SP[a1, a2], a1, SP[a2, a3], a3, n] + 
    2*S2[SP[a1, a2], a1, SP[a3, a3], a2, n] + 
    3*S2[SP[a1, a2], a2, a1, SP[a3, a3], n] + 
    3*S2[SP[a1, a2], a2, SP[a1, a3], a3, n] + 
    4*S2[SP[a1, a2], SP[a1, a2], a3, a3, n] + 
    2*S2[SP[a1, a2], SP[a1, a3], a2, a3, n] + 
    2*S2[SP[a1, a2], SP[a1, a3], a3, a2, n] + S2[SP[a1, a2], SP[a2, a3], a1, 
     a3, n] - 2*S2[a3, n]*S2[a1, a1, a2, a2, a3, n] - 
    6*S2[a1, a1, a2, a2, SP[a3, a3], n] - 
    2*S2[a3, n]*S2[a1, a1, a2, a3, a2, n] + 
    6*S2[a2, n]*S2[a1, a1, a2, a3, a3, n] + 
    2*S2[a1, a1, a2, a3, SP[a2, a3], n] - 
    4*S2[a1, a1, a2, SP[a3, a3], a2, n] - 
    2*S2[a3, n]*S2[a1, a1, a3, a2, a2, n] + 
    4*S2[a2, n]*S2[a1, a1, a3, a2, a3, n] + 
    2*S2[a2, n]*S2[a1, a1, a3, a3, a2, n] + 
    2*S2[a1, a1, a3, a3, SP[a2, a2], n] + 
    2*S2[a1, a1, a3, SP[a2, a2], a3, n] + 
    2*S2[a1, a1, SP[a2, a2], a3, a3, n] - 
    2*S2[a1, a1, SP[a2, a3], a3, a2, n] - 
    2*S2[a1, a1, SP[a3, a3], a2, a2, n] - 
    S2[a3, n]*S2[a1, a2, a1, a2, a3, n] - 
    5*S2[a1, a2, a1, a2, SP[a3, a3], n] - 
    S2[a3, n]*S2[a1, a2, a1, a3, a2, n] + 
    4*S2[a2, n]*S2[a1, a2, a1, a3, a3, n] + S2[a1, a2, a1, a3, SP[a2, a3], 
     n] - S2[a1, a2, a1, SP[a2, a3], a3, n] - 
    3*S2[a1, a2, a1, SP[a3, a3], a2, n] - 
    S2[a3, n]*S2[a1, a2, a2, a1, a3, n] - 
    4*S2[a1, a2, a2, a1, SP[a3, a3], n] - 
    4*S2[a1, a2, a2, SP[a1, a3], a3, n] + 
    2*S2[a2, n]*S2[a1, a2, a3, a1, a3, n] + 
    2*S2[a1, a2, a3, a1, SP[a2, a3], n] + 
    2*S2[a1, a2, a3, SP[a1, a2], a3, n] - 
    3*S2[a1, a2, SP[a1, a3], a2, a3, n] - 
    3*S2[a1, a2, SP[a1, a3], a3, a2, n] + 
    S2[a2, n]*S2[a1, a3, a1, a2, a3, n] + S2[a1, a3, a1, a2, SP[a2, a3], n] + 
    S2[a2, n]*S2[a1, a3, a1, a3, a2, n] + S2[a1, a3, a1, a3, SP[a2, a2], n] + 
    S2[a1, a3, a1, SP[a2, a2], a3, n] + S2[a1, a3, a1, SP[a2, a3], a2, n] + 
    S2[a1, a3, SP[a1, a2], a2, a3, n] + S2[a1, a3, SP[a1, a2], a3, a2, n] - 
    S2[a1, SP[a1, a2], a3, a2, a3, n] - 2*S2[a1, SP[a1, a2], a3, a3, a2, n] - 
    S2[a1, SP[a1, a3], a2, a2, a3, n] - 2*S2[a1, SP[a1, a3], a2, a3, a2, n] - 
    2*S2[a1, SP[a1, a3], a3, a2, a2, n] + 
    2*S2[a1, SP[a2, a2], a1, a3, a3, n] + S2[a1, SP[a2, a2], a3, a1, a3, n] - 
    S2[a1, SP[a2, a3], a2, a1, a3, n] - 4*S2[a2, a1, a1, a2, SP[a3, a3], n] + 
    2*S2[a2, n]*S2[a2, a1, a1, a3, a3, n] - 
    2*S2[a2, a1, a1, SP[a2, a3], a3, n] - 
    2*S2[a2, a1, a1, SP[a3, a3], a2, n] - 
    3*S2[a2, a1, a2, a1, SP[a3, a3], n] - 
    3*S2[a2, a1, a2, SP[a1, a3], a3, n] + 
    S2[a2, n]*S2[a2, a1, a3, a1, a3, n] + S2[a2, a1, a3, a1, SP[a2, a3], n] + 
    S2[a2, a1, a3, SP[a1, a2], a3, n] - 2*S2[a2, a1, SP[a1, a2], a3, a3, n] - 
    2*S2[a2, a1, SP[a1, a3], a2, a3, n] - 
    2*S2[a2, a1, SP[a1, a3], a3, a2, n] - 
    2*S2[a2, a2, a1, a1, SP[a3, a3], n] - 
    2*S2[a2, a2, a1, SP[a1, a3], a3, n] - 
    2*S2[a2, a2, SP[a1, a3], a1, a3, n] + 
    S2[a2, n]*S2[a2, a3, a1, a1, a3, n] + S2[a2, a3, a1, a1, SP[a2, a3], n] + 
    S2[a2, a3, a1, SP[a1, a2], a3, n] + S2[a2, a3, SP[a1, a2], a1, a3, n] - 
    2*S2[a2, SP[a1, a2], a1, a3, a3, n] - S2[a2, SP[a1, a2], a3, a1, a3, n] - 
    2*S2[a2, SP[a1, a3], a1, a2, a3, n] - 
    2*S2[a2, SP[a1, a3], a1, a3, a2, n] - S2[a2, SP[a1, a3], a2, a1, a3, n] + 
    S2[a2, SP[a2, a3], a1, a1, a3, n] + S2[a2, n]*S2[a3, a1, a1, a2, a3, n] + 
    S2[a3, a1, a1, a2, SP[a2, a3], n] + S2[a2, n]*S2[a3, a1, a1, a3, a2, n] + 
    S2[a3, a1, a1, a3, SP[a2, a2], n] + S2[a3, a1, a1, SP[a2, a2], a3, n] + 
    S2[a3, a1, a1, SP[a2, a3], a2, n] + S2[a3, a1, SP[a1, a2], a2, a3, n] + 
    S2[a3, a1, SP[a1, a2], a3, a2, n] - S2[a2, n]*S2[a3, a2, a1, a1, a3, n] - 
    S2[a3, a2, a1, a1, SP[a2, a3], n] - S2[a3, a2, a1, SP[a1, a2], a3, n] + 
    S2[a1, n]*S2[a3, a2, a2, a1, a3, n] + S2[a3, a2, a2, a1, SP[a1, a3], n] + 
    S2[a3, a2, a2, SP[a1, a1], a3, n] + S2[a3, SP[a1, a2], a1, a2, a3, n] + 
    S2[a3, SP[a1, a2], a1, a3, a2, n] + S2[a3, SP[a1, a2], a2, a1, a3, n] - 
    S2[a3, SP[a2, a2], a1, a1, a3, n] + 2*S2[SP[a1, a1], a2, a2, a3, a3, n] + 
    S2[SP[a1, a1], a2, a3, a2, a3, n] + S2[SP[a1, a1], a3, a2, a2, a3, n] - 
    2*S2[SP[a1, a2], a1, a2, a3, a3, n] - 
    2*S2[SP[a1, a2], a1, a3, a2, a3, n] - 
    2*S2[SP[a1, a2], a1, a3, a3, a2, n] - 
    2*S2[SP[a1, a2], a2, a1, a3, a3, n] - S2[SP[a1, a2], a2, a3, a1, a3, n] - 
    S2[SP[a1, a2], a3, a1, a2, a3, n] - S2[SP[a1, a2], a3, a1, a3, a2, n] - 
    S2[SP[a1, a2], a3, a2, a1, a3, n] - 2*S2[SP[a1, a3], a1, a2, a2, a3, n] - 
    2*S2[SP[a1, a3], a1, a2, a3, a2, n] - 
    2*S2[SP[a1, a3], a1, a3, a2, a2, n] - S2[SP[a1, a3], a2, a1, a2, a3, n] - 
    S2[SP[a1, a3], a2, a1, a3, a2, n] + 2*S2[SP[a2, a2], a1, a1, a3, a3, n] + 
    S2[SP[a2, a2], a1, a3, a1, a3, n] + S2[SP[a2, a2], a3, a1, a1, a3, n] + 
    S2[SP[a2, a3], a1, a1, a2, a3, n] + S2[SP[a2, a3], a1, a1, a3, a2, n] - 
    S2[SP[a2, a3], a2, a1, a1, a3, n] - S2[a3, a2, a2, a1, a3, a1, n] /; 
   MyMemberQ[{{a1, a2, a3}}, {a1, a1, a2, a2, a3, a3}] && a1 != a2 != a3, 
 S2[a1_, a3_, a1_, a2_, a3_, a2_, n_] :> 
  S2[a1, a2, a3, n]^2/2 + 4*S2[a1, a1, a3, n]*S2[a2, a2, a3, n] + 
    S2[SP[a1, a1], SP[a2, a2], SP[a3, a3], n]/2 + 
    4*S2[SP[a1, a2], SP[a1, a2], SP[a3, a3], n] + 
    2*S2[a2, a3, n]*S2[a1, a1, a2, a3, n] + 2*S2[a2, a3, n]*
     S2[a1, a1, a3, a2, n] - 3*S2[a1, a1, SP[a2, a2], SP[a3, a3], n] - 
    2*S2[a1, a1, SP[a2, a3], SP[a2, a3], n] + 
    S2[a2, a3, n]*S2[a1, a2, a1, a3, n] + S2[a1, a3, n]*
     S2[a1, a2, a3, a2, n] - 5*S2[a1, a2, SP[a1, a2], SP[a3, a3], n] - 
    S2[a1, a2, SP[a1, a3], SP[a2, a3], n] - 
    7*S2[a1, SP[a1, a2], a2, SP[a3, a3], n] - 
    3*S2[a1, SP[a1, a2], a3, SP[a2, a3], n] - 
    7*S2[a1, SP[a1, a2], SP[a2, a3], a3, n] - 
    3*S2[a1, SP[a1, a2], SP[a3, a3], a2, n] - S2[a1, SP[a2, a2], a1, 
     SP[a3, a3], n] - S2[a1, SP[a2, a2], SP[a1, a3], a3, n] - 
    4*S2[a2, a1, SP[a1, a2], SP[a3, a3], n] - 
    4*S2[a2, SP[a1, a2], a1, SP[a3, a3], n] - 
    4*S2[a2, SP[a1, a2], SP[a1, a3], a3, n] - S2[SP[a1, a1], a2, a2, 
     SP[a3, a3], n] - S2[SP[a1, a1], a2, a3, SP[a2, a3], n] - 
    S2[SP[a1, a1], a2, SP[a2, a3], a3, n] - S2[SP[a1, a1], a2, SP[a3, a3], 
     a2, n] - S2[SP[a1, a1], SP[a2, a2], a3, a3, n] - 
    S2[SP[a1, a1], SP[a2, a3], a3, a2, n] - 
    6*S2[SP[a1, a2], a1, a2, SP[a3, a3], n] - 
    2*S2[SP[a1, a2], a1, a3, SP[a2, a3], n] - 
    6*S2[SP[a1, a2], a1, SP[a2, a3], a3, n] - 
    2*S2[SP[a1, a2], a1, SP[a3, a3], a2, n] - 
    5*S2[SP[a1, a2], a2, a1, SP[a3, a3], n] - 
    5*S2[SP[a1, a2], a2, SP[a1, a3], a3, n] - 
    8*S2[SP[a1, a2], SP[a1, a2], a3, a3, n] - 
    2*S2[SP[a1, a2], SP[a1, a3], a2, a3, n] - 
    2*S2[SP[a1, a2], SP[a1, a3], a3, a2, n] - S2[SP[a1, a2], SP[a2, a3], a1, 
     a3, n] - 2*S2[a3, n]*S2[a1, a1, a2, a2, a3, n] + 
    8*S2[a1, a1, a2, a2, SP[a3, a3], n] - 
    8*S2[a2, n]*S2[a1, a1, a2, a3, a3, n] - 
    4*S2[a1, a1, a2, a3, SP[a2, a3], n] + 
    4*S2[a1, a1, a2, SP[a3, a3], a2, n] + 
    2*S2[a3, n]*S2[a1, a1, a3, a2, a2, n] - 
    4*S2[a2, n]*S2[a1, a1, a3, a2, a3, n] - 
    2*S2[a1, a1, a3, SP[a2, a2], a3, n] + 
    2*S2[a1, a1, a3, SP[a2, a3], a2, n] - 
    2*S2[a1, a1, SP[a2, a2], a3, a3, n] + 
    4*S2[a1, a1, SP[a2, a3], a3, a2, n] + 
    2*S2[a1, a1, SP[a3, a3], a2, a2, n] - 
    S2[a3, n]*S2[a1, a2, a1, a2, a3, n] + 
    7*S2[a1, a2, a1, a2, SP[a3, a3], n] - 
    6*S2[a2, n]*S2[a1, a2, a1, a3, a3, n] - 
    3*S2[a1, a2, a1, a3, SP[a2, a3], n] + S2[a1, a2, a1, SP[a2, a3], a3, n] + 
    3*S2[a1, a2, a1, SP[a3, a3], a2, n] + 
    6*S2[a1, a2, a2, a1, SP[a3, a3], n] + 
    6*S2[a1, a2, a2, SP[a1, a3], a3, n] - 
    3*S2[a2, n]*S2[a1, a2, a3, a1, a3, n] - 
    2*S2[a1, a2, a3, a1, SP[a2, a3], n] - 
    2*S2[a1, a2, a3, SP[a1, a2], a3, n] + 
    4*S2[a1, a2, SP[a1, a2], a3, a3, n] + 
    3*S2[a1, a2, SP[a1, a3], a2, a3, n] + 
    3*S2[a1, a2, SP[a1, a3], a3, a2, n] - 
    2*S2[a1, a2, SP[a2, a3], a1, a3, n] + 
    2*S2[a3, n]*S2[a1, a3, a1, a2, a2, n] + 
    2*S2[a1, a3, a1, a2, SP[a2, a3], n] + 
    2*S2[a1, a3, a1, SP[a2, a3], a2, n] + 
    S2[a3, n]*S2[a1, a3, a2, a1, a2, n] + 
    S2[a2, n]*S2[a1, a3, a2, a1, a3, n] + 
    2*S2[a1, a3, a2, a1, SP[a2, a3], n] - 
    S2[a1, n]*S2[a1, a3, a2, a3, a2, n] - S2[a1, a3, a2, a3, SP[a1, a2], n] + 
    S2[a1, a3, a2, SP[a1, a2], a3, n] - 2*S2[a1, n]*
     S2[a1, a3, a3, a2, a2, n] - 2*S2[a1, a3, a3, a2, SP[a1, a2], n] - 
    2*S2[a1, a3, a3, SP[a1, a2], a2, n] - S2[a1, a3, SP[a1, a2], a3, a2, n] + 
    S2[a1, a3, SP[a2, a2], a1, a3, n] + S2[a1, a3, SP[a2, a3], a1, a2, n] + 
    6*S2[a1, SP[a1, a2], a2, a3, a3, n] + 
    6*S2[a1, SP[a1, a2], a3, a2, a3, n] + 
    6*S2[a1, SP[a1, a2], a3, a3, a2, n] - 
    2*S2[a1, SP[a1, a3], a2, a2, a3, n] - 
    4*S2[a1, SP[a2, a2], a1, a3, a3, n] - 
    2*S2[a1, SP[a2, a2], a3, a1, a3, n] - S2[a1, SP[a2, a3], a1, a2, a3, n] + 
    S2[a1, SP[a2, a3], a2, a1, a3, n] + 2*S2[a1, SP[a3, a3], a1, a2, a2, n] + 
    S2[a1, SP[a3, a3], a2, a1, a2, n] + 6*S2[a2, a1, a1, a2, SP[a3, a3], n] - 
    4*S2[a2, n]*S2[a2, a1, a1, a3, a3, n] - 
    2*S2[a2, a1, a1, a3, SP[a2, a3], n] + 
    2*S2[a2, a1, a1, SP[a2, a3], a3, n] + 
    2*S2[a2, a1, a1, SP[a3, a3], a2, n] + 
    5*S2[a2, a1, a2, a1, SP[a3, a3], n] + 
    5*S2[a2, a1, a2, SP[a1, a3], a3, n] - 
    2*S2[a2, n]*S2[a2, a1, a3, a1, a3, n] - 
    2*S2[a2, a1, a3, a1, SP[a2, a3], n] - 
    2*S2[a2, a1, a3, SP[a1, a2], a3, n] + 
    4*S2[a2, a1, SP[a1, a2], a3, a3, n] + 
    2*S2[a2, a1, SP[a1, a3], a2, a3, n] + 
    2*S2[a2, a1, SP[a1, a3], a3, a2, n] - S2[a2, a1, SP[a2, a3], a1, a3, n] + 
    4*S2[a2, a2, a1, a1, SP[a3, a3], n] + 
    4*S2[a2, a2, a1, SP[a1, a3], a3, n] + 
    4*S2[a2, a2, SP[a1, a3], a1, a3, n] - 
    2*S2[a2, n]*S2[a2, a3, a1, a1, a3, n] - 
    2*S2[a2, a3, a1, a1, SP[a2, a3], n] - 
    2*S2[a2, a3, a1, SP[a1, a2], a3, n] - 
    2*S2[a2, a3, SP[a1, a2], a1, a3, n] + 
    4*S2[a2, SP[a1, a2], a1, a3, a3, n] + 
    2*S2[a2, SP[a1, a2], a3, a1, a3, n] + 
    2*S2[a2, SP[a1, a3], a1, a2, a3, n] + 
    2*S2[a2, SP[a1, a3], a1, a3, a2, n] + S2[a2, SP[a1, a3], a2, a1, a3, n] - 
    2*S2[a2, SP[a2, a3], a1, a1, a3, n] + 
    2*S2[a3, n]*S2[a3, a1, a1, a2, a2, n] + 
    2*S2[a3, a1, a1, a2, SP[a2, a3], n] + 
    2*S2[a3, a1, a1, SP[a2, a3], a2, n] + 
    S2[a3, n]*S2[a3, a1, a2, a1, a2, n] + 
    S2[a2, n]*S2[a3, a1, a2, a1, a3, n] + 
    2*S2[a3, a1, a2, a1, SP[a2, a3], n] - 
    S2[a1, n]*S2[a3, a1, a2, a3, a2, n] - S2[a3, a1, a2, a3, SP[a1, a2], n] + 
    S2[a3, a1, a2, SP[a1, a2], a3, n] - 2*S2[a1, n]*
     S2[a3, a1, a3, a2, a2, n] - 2*S2[a3, a1, a3, a2, SP[a1, a2], n] - 
    2*S2[a3, a1, a3, SP[a1, a2], a2, n] - S2[a3, a1, SP[a1, a2], a3, a2, n] + 
    S2[a3, a1, SP[a2, a2], a1, a3, n] + S2[a3, a1, SP[a2, a3], a1, a2, n] + 
    2*S2[a2, n]*S2[a3, a2, a1, a1, a3, n] + 
    2*S2[a3, a2, a1, a1, SP[a2, a3], n] - 
    S2[a1, n]*S2[a3, a2, a1, a2, a3, n] - S2[a3, a2, a1, a2, SP[a1, a3], n] - 
    S2[a1, n]*S2[a3, a2, a1, a3, a2, n] - S2[a3, a2, a1, a3, SP[a1, a2], n] + 
    S2[a3, a2, a1, SP[a1, a2], a3, n] - S2[a3, a2, a1, SP[a1, a3], a2, n] - 
    2*S2[a1, n]*S2[a3, a2, a2, a1, a3, n] - 
    2*S2[a3, a2, a2, a1, SP[a1, a3], n] - 
    2*S2[a3, a2, a2, SP[a1, a1], a3, n] + 
    S2[a1, n]*S2[a3, a2, a3, a2, a1, n] + S2[a3, a2, a3, a2, SP[a1, a1], n] + 
    S2[a3, a2, a3, SP[a1, a2], a1, n] - S2[a3, a2, SP[a1, a1], a2, a3, n] - 
    S2[a3, a2, SP[a1, a1], a3, a2, n] + S2[a3, a2, SP[a1, a3], a2, a1, n] - 
    2*S2[a1, n]*S2[a3, a3, a1, a2, a2, n] - 
    2*S2[a3, a3, a1, a2, SP[a1, a2], n] - 
    2*S2[a3, a3, a1, SP[a1, a2], a2, n] + 
    2*S2[a1, n]*S2[a3, a3, a2, a2, a1, n] + 
    2*S2[a3, a3, a2, a2, SP[a1, a1], n] + 
    2*S2[a3, a3, a2, SP[a1, a2], a1, n] - 
    2*S2[a3, a3, SP[a1, a1], a2, a2, n] + 
    2*S2[a3, a3, SP[a1, a2], a2, a1, n] - S2[a3, SP[a1, a1], a2, a3, a2, n] - 
    2*S2[a3, SP[a1, a1], a3, a2, a2, n] - S2[a3, SP[a1, a2], a1, a2, a3, n] - 
    S2[a3, SP[a1, a2], a1, a3, a2, n] - S2[a3, SP[a1, a2], a2, a1, a3, n] + 
    S2[a3, SP[a1, a2], a3, a2, a1, n] + S2[a3, SP[a1, a3], a2, a1, a2, n] + 
    2*S2[a3, SP[a1, a3], a2, a2, a1, n] + 
    2*S2[a3, SP[a2, a2], a1, a1, a3, n] + 
    2*S2[SP[a1, a1], a2, a2, a3, a3, n] + 
    2*S2[SP[a1, a1], a2, a3, a2, a3, n] + 
    2*S2[SP[a1, a1], a2, a3, a3, a2, n] - 
    2*S2[SP[a1, a1], a3, a3, a2, a2, n] + 
    4*S2[SP[a1, a2], a1, a2, a3, a3, n] + 
    4*S2[SP[a1, a2], a1, a3, a2, a3, n] + 
    4*S2[SP[a1, a2], a1, a3, a3, a2, n] + 
    4*S2[SP[a1, a2], a2, a1, a3, a3, n] + 
    2*S2[SP[a1, a2], a2, a3, a1, a3, n] + 
    2*S2[SP[a1, a2], a3, a1, a2, a3, n] + 
    2*S2[SP[a1, a2], a3, a1, a3, a2, n] + 
    2*S2[SP[a1, a2], a3, a2, a1, a3, n] - 
    2*S2[SP[a1, a3], a1, a2, a2, a3, n] - S2[SP[a1, a3], a1, a2, a3, a2, n] - 
    2*S2[SP[a1, a3], a2, a1, a2, a3, n] - S2[SP[a1, a3], a2, a1, a3, a2, n] - 
    2*S2[SP[a1, a3], a2, a2, a1, a3, n] + S2[SP[a1, a3], a2, a3, a2, a1, n] + 
    S2[SP[a1, a3], a3, a2, a1, a2, n] + 2*S2[SP[a1, a3], a3, a2, a2, a1, n] - 
    4*S2[SP[a2, a2], a1, a1, a3, a3, n] - 
    2*S2[SP[a2, a2], a1, a3, a1, a3, n] - 
    2*S2[SP[a2, a2], a3, a1, a1, a3, n] + S2[SP[a2, a3], a1, a2, a1, a3, n] + 
    2*S2[SP[a2, a3], a2, a1, a1, a3, n] + 
    2*S2[SP[a3, a3], a1, a1, a2, a2, n] + S2[SP[a3, a3], a1, a2, a1, a2, n] + 
    S2[a3, a2, a1, a2, a3, a1, n] + S2[a3, a2, a1, a3, a1, a2, n] + 
    2*S2[a3, a2, a2, a1, a3, a1, n] - S2[a3, a2, a3, a1, a2, a1, n] - 
    2*S2[a3, a2, a3, a2, a1, a1, n] - 2*S2[a3, a3, a2, a1, a2, a1, n] - 
    4*S2[a3, a3, a2, a2, a1, a1, n] /; 
   MyMemberQ[{{a1, a2, a3}}, {a1, a1, a2, a2, a3, a3}] && a1 != a2 != a3, 
 S2[a1_, a3_, a1_, a3_, a2_, a2_, n_] :> 
  -(S2[a1, a2, a3, n]^2/2) - 2*S2[a1, a1, a3, n]*S2[a2, a2, a3, n] - 
    S2[SP[a1, a1], SP[a2, a2], SP[a3, a3], n]/2 - 
    2*S2[SP[a1, a2], SP[a1, a2], SP[a3, a3], n] + S2[a1, a1, SP[a2, a2], 
     SP[a3, a3], n] - S2[a1, a3, n]*S2[a1, a2, a2, a3, n] - 
    S2[a1, a3, n]*S2[a1, a2, a3, a2, n] + 
    3*S2[a1, a2, SP[a1, a2], SP[a3, a3], n] + S2[a1, a2, SP[a1, a3], 
     SP[a2, a3], n] + 4*S2[a1, SP[a1, a2], a2, SP[a3, a3], n] + 
    S2[a1, SP[a1, a2], a3, SP[a2, a3], n] + 
    4*S2[a1, SP[a1, a2], SP[a2, a3], a3, n] + S2[a1, SP[a1, a2], SP[a3, a3], 
     a2, n] + 2*S2[a2, a1, SP[a1, a2], SP[a3, a3], n] + 
    2*S2[a2, SP[a1, a2], a1, SP[a3, a3], n] + 
    2*S2[a2, SP[a1, a2], SP[a1, a3], a3, n] + 
    2*S2[SP[a1, a1], a2, a2, SP[a3, a3], n] + S2[SP[a1, a1], a2, a3, 
     SP[a2, a3], n] + 2*S2[SP[a1, a1], a2, SP[a2, a3], a3, n] + 
    S2[SP[a1, a1], a2, SP[a3, a3], a2, n] + S2[SP[a1, a1], SP[a2, a2], a3, 
     a3, n] + S2[SP[a1, a1], SP[a2, a3], a2, a3, n] + 
    S2[SP[a1, a1], SP[a2, a3], a3, a2, n] + 
    2*S2[SP[a1, a2], a1, a2, SP[a3, a3], n] + 
    2*S2[SP[a1, a2], a1, SP[a2, a3], a3, n] + 
    2*S2[SP[a1, a2], a2, a1, SP[a3, a3], n] + 
    2*S2[SP[a1, a2], a2, SP[a1, a3], a3, n] + 
    4*S2[SP[a1, a2], SP[a1, a2], a3, a3, n] + 
    4*S2[a3, n]*S2[a1, a1, a2, a2, a3, n] - 
    2*S2[a1, a1, a2, a2, SP[a3, a3], n] + 
    2*S2[a3, n]*S2[a1, a1, a2, a3, a2, n] + 
    2*S2[a2, n]*S2[a1, a1, a2, a3, a3, n] + 
    2*S2[a1, a1, a2, a3, SP[a2, a3], n] - 
    2*S2[a2, n]*S2[a1, a1, a3, a3, a2, n] - 
    2*S2[a1, a1, a3, a3, SP[a2, a2], n] - 
    2*S2[a1, a1, a3, SP[a2, a3], a2, n] - 
    2*S2[a1, a1, SP[a2, a3], a3, a2, n] + 
    2*S2[a3, n]*S2[a1, a2, a1, a2, a3, n] - 
    2*S2[a1, a2, a1, a2, SP[a3, a3], n] + 
    S2[a3, n]*S2[a1, a2, a1, a3, a2, n] + 
    2*S2[a2, n]*S2[a1, a2, a1, a3, a3, n] + 
    2*S2[a1, a2, a1, a3, SP[a2, a3], n] + 
    S2[a3, n]*S2[a1, a2, a2, a1, a3, n] - 
    2*S2[a1, a2, a2, a1, SP[a3, a3], n] - 
    2*S2[a1, a2, a2, SP[a1, a3], a3, n] + 
    S2[a2, n]*S2[a1, a2, a3, a1, a3, n] - 
    4*S2[a1, a2, SP[a1, a2], a3, a3, n] + 
    2*S2[a1, a2, SP[a2, a3], a1, a3, n] - 
    S2[a3, n]*S2[a1, a3, a1, a2, a2, n] - 
    S2[a2, n]*S2[a1, a3, a1, a2, a3, n] - 
    2*S2[a1, a3, a1, a2, SP[a2, a3], n] - 
    S2[a2, n]*S2[a1, a3, a1, a3, a2, n] - S2[a1, a3, a1, a3, SP[a2, a2], n] - 
    S2[a1, a3, a1, SP[a2, a2], a3, n] - 2*S2[a1, a3, a1, SP[a2, a3], a2, n] - 
    S2[a3, n]*S2[a1, a3, a2, a1, a2, n] - 
    S2[a2, n]*S2[a1, a3, a2, a1, a3, n] - 
    2*S2[a1, a3, a2, a1, SP[a2, a3], n] + 
    S2[a1, n]*S2[a1, a3, a2, a3, a2, n] + S2[a1, a3, a2, a3, SP[a1, a2], n] - 
    S2[a1, a3, a2, SP[a1, a2], a3, n] + 2*S2[a1, n]*
     S2[a1, a3, a3, a2, a2, n] + 2*S2[a1, a3, a3, a2, SP[a1, a2], n] + 
    2*S2[a1, a3, a3, SP[a1, a2], a2, n] - S2[a1, a3, SP[a1, a2], a2, a3, n] + 
    S2[a1, a3, SP[a1, a3], a2, a2, n] - S2[a1, a3, SP[a2, a2], a1, a3, n] - 
    S2[a1, a3, SP[a2, a3], a1, a2, n] - 6*S2[a1, SP[a1, a2], a2, a3, a3, n] - 
    5*S2[a1, SP[a1, a2], a3, a2, a3, n] - 
    4*S2[a1, SP[a1, a2], a3, a3, a2, n] + 
    3*S2[a1, SP[a1, a3], a2, a2, a3, n] + 
    2*S2[a1, SP[a1, a3], a2, a3, a2, n] + 
    2*S2[a1, SP[a1, a3], a3, a2, a2, n] + 
    2*S2[a1, SP[a2, a2], a1, a3, a3, n] + S2[a1, SP[a2, a2], a3, a1, a3, n] + 
    S2[a1, SP[a2, a3], a1, a2, a3, n] - S2[a1, SP[a3, a3], a1, a2, a2, n] - 
    S2[a1, SP[a3, a3], a2, a1, a2, n] - 2*S2[a2, a1, a1, a2, SP[a3, a3], n] + 
    2*S2[a2, n]*S2[a2, a1, a1, a3, a3, n] + 
    2*S2[a2, a1, a1, a3, SP[a2, a3], n] - 
    2*S2[a2, a1, a2, a1, SP[a3, a3], n] - 
    2*S2[a2, a1, a2, SP[a1, a3], a3, n] + 
    S2[a2, n]*S2[a2, a1, a3, a1, a3, n] + S2[a2, a1, a3, a1, SP[a2, a3], n] + 
    S2[a2, a1, a3, SP[a1, a2], a3, n] - 2*S2[a2, a1, SP[a1, a2], a3, a3, n] + 
    S2[a2, a1, SP[a2, a3], a1, a3, n] - 2*S2[a2, a2, a1, a1, SP[a3, a3], n] - 
    2*S2[a2, a2, a1, SP[a1, a3], a3, n] - 
    2*S2[a2, a2, SP[a1, a3], a1, a3, n] + 
    S2[a2, n]*S2[a2, a3, a1, a1, a3, n] + S2[a2, a3, a1, a1, SP[a2, a3], n] + 
    S2[a2, a3, a1, SP[a1, a2], a3, n] + S2[a2, a3, SP[a1, a2], a1, a3, n] - 
    2*S2[a2, SP[a1, a2], a1, a3, a3, n] - S2[a2, SP[a1, a2], a3, a1, a3, n] + 
    S2[a2, SP[a2, a3], a1, a1, a3, n] - 2*S2[a3, n]*
     S2[a3, a1, a1, a2, a2, n] - S2[a2, n]*S2[a3, a1, a1, a2, a3, n] - 
    3*S2[a3, a1, a1, a2, SP[a2, a3], n] - 
    S2[a2, n]*S2[a3, a1, a1, a3, a2, n] - S2[a3, a1, a1, a3, SP[a2, a2], n] - 
    S2[a3, a1, a1, SP[a2, a2], a3, n] - 3*S2[a3, a1, a1, SP[a2, a3], a2, n] - 
    S2[a3, n]*S2[a3, a1, a2, a1, a2, n] - 
    S2[a2, n]*S2[a3, a1, a2, a1, a3, n] - 
    2*S2[a3, a1, a2, a1, SP[a2, a3], n] + 
    S2[a1, n]*S2[a3, a1, a2, a3, a2, n] + S2[a3, a1, a2, a3, SP[a1, a2], n] - 
    S2[a3, a1, a2, SP[a1, a2], a3, n] + 2*S2[a1, n]*
     S2[a3, a1, a3, a2, a2, n] + 2*S2[a3, a1, a3, a2, SP[a1, a2], n] + 
    2*S2[a3, a1, a3, SP[a1, a2], a2, n] - S2[a3, a1, SP[a1, a2], a2, a3, n] - 
    S2[a3, a1, SP[a2, a2], a1, a3, n] - S2[a3, a1, SP[a2, a3], a1, a2, n] - 
    S2[a2, n]*S2[a3, a2, a1, a1, a3, n] - S2[a3, a2, a1, a1, SP[a2, a3], n] + 
    S2[a1, n]*S2[a3, a2, a1, a2, a3, n] + S2[a3, a2, a1, a2, SP[a1, a3], n] + 
    S2[a1, n]*S2[a3, a2, a1, a3, a2, n] + S2[a3, a2, a1, a3, SP[a1, a2], n] + 
    S2[a3, a2, a1, SP[a1, a3], a2, n] + S2[a1, n]*S2[a3, a2, a2, a1, a3, n] + 
    S2[a3, a2, a2, a1, SP[a1, a3], n] + S2[a3, a2, a2, SP[a1, a1], a3, n] - 
    S2[a1, n]*S2[a3, a2, a3, a2, a1, n] - S2[a3, a2, a3, a2, SP[a1, a1], n] - 
    S2[a3, a2, a3, SP[a1, a2], a1, n] + S2[a3, a2, SP[a1, a1], a2, a3, n] + 
    S2[a3, a2, SP[a1, a1], a3, a2, n] - S2[a3, a2, SP[a1, a3], a2, a1, n] - 
    2*S2[a1, n]*S2[a3, a3, a2, a2, a1, n] - 
    2*S2[a3, a3, a2, a2, SP[a1, a1], n] - 
    2*S2[a3, a3, a2, SP[a1, a2], a1, n] - 
    2*S2[a3, a3, SP[a1, a2], a2, a1, n] + S2[a3, SP[a1, a1], a2, a3, a2, n] + 
    2*S2[a3, SP[a1, a1], a3, a2, a2, n] - S2[a3, SP[a1, a2], a3, a2, a1, n] - 
    2*S2[a3, SP[a1, a3], a1, a2, a2, n] - S2[a3, SP[a1, a3], a2, a1, a2, n] - 
    2*S2[a3, SP[a1, a3], a2, a2, a1, n] - S2[a3, SP[a2, a2], a1, a1, a3, n] - 
    4*S2[SP[a1, a1], a2, a2, a3, a3, n] - 
    3*S2[SP[a1, a1], a2, a3, a2, a3, n] - 
    2*S2[SP[a1, a1], a2, a3, a3, a2, n] - S2[SP[a1, a1], a3, a2, a2, a3, n] + 
    2*S2[SP[a1, a1], a3, a3, a2, a2, n] - 
    2*S2[SP[a1, a2], a1, a2, a3, a3, n] - 
    2*S2[SP[a1, a2], a1, a3, a2, a3, n] - 
    2*S2[SP[a1, a2], a1, a3, a3, a2, n] - 
    2*S2[SP[a1, a2], a2, a1, a3, a3, n] - S2[SP[a1, a2], a2, a3, a1, a3, n] - 
    S2[SP[a1, a2], a3, a1, a2, a3, n] - S2[SP[a1, a2], a3, a1, a3, a2, n] - 
    S2[SP[a1, a2], a3, a2, a1, a3, n] + 4*S2[SP[a1, a3], a1, a2, a2, a3, n] + 
    3*S2[SP[a1, a3], a1, a2, a3, a2, n] + 
    2*S2[SP[a1, a3], a1, a3, a2, a2, n] + 
    3*S2[SP[a1, a3], a2, a1, a2, a3, n] + 
    2*S2[SP[a1, a3], a2, a1, a3, a2, n] + 
    2*S2[SP[a1, a3], a2, a2, a1, a3, n] - S2[SP[a1, a3], a2, a3, a2, a1, n] - 
    S2[SP[a1, a3], a3, a1, a2, a2, n] - S2[SP[a1, a3], a3, a2, a1, a2, n] - 
    2*S2[SP[a1, a3], a3, a2, a2, a1, n] + 
    2*S2[SP[a2, a2], a1, a1, a3, a3, n] + S2[SP[a2, a2], a1, a3, a1, a3, n] + 
    S2[SP[a2, a2], a3, a1, a1, a3, n] - S2[SP[a2, a3], a1, a1, a2, a3, n] - 
    S2[SP[a2, a3], a1, a1, a3, a2, n] - S2[SP[a2, a3], a1, a2, a1, a3, n] - 
    S2[SP[a2, a3], a2, a1, a1, a3, n] - 2*S2[SP[a3, a3], a1, a1, a2, a2, n] - 
    S2[SP[a3, a3], a1, a2, a1, a2, n] + S2[a3, a1, a3, a1, a2, a2, n] - 
    S2[a3, a2, a1, a2, a3, a1, n] - S2[a3, a2, a1, a3, a1, a2, n] - 
    S2[a3, a2, a2, a1, a3, a1, n] + S2[a3, a2, a3, a1, a2, a1, n] + 
    2*S2[a3, a2, a3, a2, a1, a1, n] + 4*S2[a3, a3, a1, a1, a2, a2, n] + 
    2*S2[a3, a3, a1, a2, a1, a2, n] + 2*S2[a3, a3, a1, a2, a2, a1, n] + 
    2*S2[a3, a3, a2, a1, a2, a1, n] + 4*S2[a3, a3, a2, a2, a1, a1, n] /; 
   MyMemberQ[{{a1, a2, a3}}, {a1, a1, a2, a2, a3, a3}] && a1 != a2 != a3, 
 S2[a1_, a3_, a2_, a1_, a2_, a3_, n_] :> 
  S2[a1, a2, a3, n]*S2[a1, a3, a2, n] + S2[SP[a1, a1], SP[a2, a3], 
     SP[a2, a3], n] + 2*S2[a2, a3, n]*S2[a1, a1, a2, a3, n] - 
    2*S2[a1, a1, SP[a2, a2], SP[a3, a3], n] - 
    2*S2[a1, a1, SP[a2, a3], SP[a2, a3], n] + 
    S2[a2, a3, n]*S2[a1, a2, a1, a3, n] - 2*S2[a1, a3, n]*
     S2[a1, a2, a2, a3, n] - S2[a1, a3, n]*S2[a1, a2, a3, a2, n] + 
    S2[a1, a2, SP[a1, a2], SP[a3, a3], n] + S2[a1, a2, SP[a1, a3], 
     SP[a2, a3], n] - S2[a1, SP[a1, a3], a2, SP[a2, a3], n] - 
    S2[a1, SP[a1, a3], SP[a2, a2], a3, n] - S2[a1, SP[a2, a2], a1, 
     SP[a3, a3], n] - S2[a1, SP[a2, a2], SP[a1, a3], a3, n] + 
    2*S2[SP[a1, a1], a2, a2, SP[a3, a3], n] + 
    2*S2[SP[a1, a1], a2, SP[a2, a3], a3, n] - S2[SP[a1, a1], a3, a2, 
     SP[a2, a3], n] - S2[SP[a1, a1], a3, SP[a2, a2], a3, n] + 
    S2[SP[a1, a1], SP[a2, a3], a2, a3, n] - 
    2*S2[SP[a1, a2], a1, a2, SP[a3, a3], n] - 
    2*S2[SP[a1, a2], a1, SP[a2, a3], a3, n] - S2[SP[a1, a2], a2, a1, 
     SP[a3, a3], n] - S2[SP[a1, a2], a2, SP[a1, a3], a3, n] - 
    2*S2[SP[a1, a2], SP[a1, a3], a2, a3, n] - S2[SP[a1, a2], SP[a2, a3], a1, 
     a3, n] + 4*S2[a3, n]*S2[a1, a1, a2, a2, a3, n] + 
    4*S2[a1, a1, a2, a2, SP[a3, a3], n] + 
    2*S2[a3, n]*S2[a1, a1, a2, a3, a2, n] - 
    4*S2[a2, n]*S2[a1, a1, a2, a3, a3, n] - 
    2*S2[a1, a1, a2, a3, SP[a2, a3], n] + 
    2*S2[a1, a1, a2, SP[a3, a3], a2, n] - 
    2*S2[a2, n]*S2[a1, a1, a3, a2, a3, n] + 
    2*S2[a1, a1, SP[a2, a3], a3, a2, n] + 
    2*S2[a3, n]*S2[a1, a2, a1, a2, a3, n] + 
    3*S2[a1, a2, a1, a2, SP[a3, a3], n] + 
    S2[a3, n]*S2[a1, a2, a1, a3, a2, n] - 
    2*S2[a2, n]*S2[a1, a2, a1, a3, a3, n] - S2[a1, a2, a1, a3, SP[a2, a3], 
     n] + S2[a1, a2, a1, SP[a2, a3], a3, n] + S2[a1, a2, a1, SP[a3, a3], a2, 
     n] + 2*S2[a3, n]*S2[a1, a2, a2, a1, a3, n] + 
    2*S2[a1, a2, a2, a1, SP[a3, a3], n] + 
    2*S2[a1, a2, a2, SP[a1, a3], a3, n] - 
    S2[a2, n]*S2[a1, a2, a3, a1, a3, n] - 
    2*S2[a1, a2, a3, a1, SP[a2, a3], n] - 
    2*S2[a1, a2, a3, SP[a1, a2], a3, n] - 
    4*S2[a1, a2, SP[a1, a2], a3, a3, n] + 
    3*S2[a1, a2, SP[a1, a3], a2, a3, n] + S2[a1, a2, SP[a1, a3], a3, a2, n] + 
    2*S2[a1, a2, SP[a2, a3], a1, a3, n] - 
    2*S2[a2, n]*S2[a1, a3, a1, a2, a3, n] - S2[a1, a3, a1, a2, SP[a2, a3], 
     n] - S2[a1, a3, a1, SP[a2, a2], a3, n] - 
    S2[a2, n]*S2[a1, a3, a2, a1, a3, n] - S2[a1, a3, a2, a1, SP[a2, a3], n] - 
    S2[a1, a3, a2, SP[a1, a2], a3, n] - S2[a1, a3, SP[a1, a2], a2, a3, n] - 
    S2[a1, a3, SP[a2, a2], a1, a3, n] - 4*S2[a1, SP[a1, a2], a2, a3, a3, n] - 
    2*S2[a1, SP[a1, a2], a3, a2, a3, n] + 
    4*S2[a1, SP[a1, a3], a2, a2, a3, n] + 
    2*S2[a1, SP[a1, a3], a2, a3, a2, n] + S2[a1, SP[a2, a3], a1, a3, a2, n] + 
    S2[a1, SP[a2, a3], a2, a1, a3, n] + 2*S2[a2, a1, a1, a2, SP[a3, a3], n] + 
    2*S2[a2, a1, a1, SP[a2, a3], a3, n] + S2[a2, a1, a2, a1, SP[a3, a3], n] + 
    S2[a2, a1, a2, SP[a1, a3], a3, n] + 2*S2[a2, a1, SP[a1, a3], a2, a3, n] + 
    S2[a2, a1, SP[a2, a3], a1, a3, n] + 2*S2[a2, SP[a1, a3], a1, a2, a3, n] + 
    S2[a2, SP[a1, a3], a2, a1, a3, n] - 2*S2[a2, n]*
     S2[a3, a1, a1, a2, a3, n] - 2*S2[a3, a1, a1, a2, SP[a2, a3], n] - 
    2*S2[a3, a1, a1, SP[a2, a2], a3, n] - 
    S2[a2, n]*S2[a3, a1, a2, a1, a3, n] - S2[a3, a1, a2, a1, SP[a2, a3], n] - 
    S2[a3, a1, a2, SP[a1, a2], a3, n] - 2*S2[a3, a1, SP[a1, a2], a2, a3, n] - 
    S2[a3, a1, SP[a2, a2], a1, a3, n] + S2[a1, n]*S2[a3, a2, a1, a2, a3, n] + 
    S2[a3, a2, a1, a2, SP[a1, a3], n] + S2[a3, a2, a1, SP[a1, a2], a3, n] + 
    S2[a3, a2, SP[a1, a1], a2, a3, n] - S2[a3, SP[a1, a2], a1, a2, a3, n] - 
    S2[a3, SP[a1, a2], a2, a1, a3, n] - 4*S2[SP[a1, a1], a2, a2, a3, a3, n] - 
    2*S2[SP[a1, a1], a2, a3, a2, a3, n] + 
    4*S2[SP[a1, a3], a1, a2, a2, a3, n] + 
    2*S2[SP[a1, a3], a1, a2, a3, a2, n] + 
    3*S2[SP[a1, a3], a2, a1, a2, a3, n] + S2[SP[a1, a3], a2, a1, a3, a2, n] + 
    2*S2[SP[a1, a3], a2, a2, a1, a3, n] - 
    2*S2[SP[a2, a3], a1, a1, a2, a3, n] - S2[SP[a2, a3], a1, a2, a1, a3, n] - 
    S2[a3, a2, a1, a2, a3, a1, n] /; 
   MyMemberQ[{{a1, a2, a3}}, {a1, a1, a2, a2, a3, a3}] && a1 != a2 != a3, 
 S2[a1_, a3_, a2_, a1_, a3_, a2_, n_] :> 
  S2[a1, a2, a3, n]^2/2 + S2[a1, a3, a2, n]^2/2 + 
    S2[SP[a1, a1], SP[a2, a2], SP[a3, a3], n]/2 + 
    S2[SP[a1, a1], SP[a3, a3], SP[a2, a2], n]/2 - 
    2*S2[a2, a3, n]*S2[a1, a1, a2, a3, n] + S2[a1, a1, SP[a2, a2], 
     SP[a3, a3], n] - S2[a1, a1, SP[a3, a3], SP[a2, a2], n] - 
    S2[a2, a3, n]*S2[a1, a2, a1, a3, n] + 2*S2[a1, a3, n]*
     S2[a1, a2, a2, a3, n] + S2[a1, a3, n]*S2[a1, a2, a3, a2, n] - 
    S2[a1, a2, SP[a1, a2], SP[a3, a3], n] - S2[a1, a2, SP[a1, a3], 
     SP[a2, a3], n] - S2[a1, SP[a1, a2], a2, SP[a3, a3], n] - 
    S2[a1, SP[a1, a2], a3, SP[a2, a3], n] - S2[a1, SP[a1, a2], SP[a2, a3], 
     a3, n] - S2[a1, SP[a1, a2], SP[a3, a3], a2, n] - 
    S2[a1, SP[a1, a3], a3, SP[a2, a2], n] - S2[a1, SP[a1, a3], SP[a2, a3], 
     a2, n] + S2[a1, SP[a2, a2], a1, SP[a3, a3], n] + 
    S2[a1, SP[a2, a2], SP[a1, a3], a3, n] - 
    3*S2[SP[a1, a1], a2, a2, SP[a3, a3], n] - S2[SP[a1, a1], a2, a3, 
     SP[a2, a3], n] - 3*S2[SP[a1, a1], a2, SP[a2, a3], a3, n] - 
    S2[SP[a1, a1], a2, SP[a3, a3], a2, n] - S2[SP[a1, a1], a3, a3, 
     SP[a2, a2], n] - S2[SP[a1, a1], a3, SP[a2, a3], a2, n] - 
    S2[SP[a1, a1], SP[a2, a2], a3, a3, n] - 
    2*S2[SP[a1, a1], SP[a2, a3], a2, a3, n] - S2[SP[a1, a1], SP[a2, a3], a3, 
     a2, n] - S2[SP[a1, a1], SP[a3, a3], a2, a2, n] + 
    2*S2[SP[a1, a2], a1, a2, SP[a3, a3], n] + 
    2*S2[SP[a1, a2], a1, SP[a2, a3], a3, n] + S2[SP[a1, a2], a2, a1, 
     SP[a3, a3], n] + S2[SP[a1, a2], a2, SP[a1, a3], a3, n] + 
    2*S2[SP[a1, a2], SP[a1, a3], a2, a3, n] + S2[SP[a1, a2], SP[a2, a3], a1, 
     a3, n] - 6*S2[a3, n]*S2[a1, a1, a2, a2, a3, n] - 
    4*S2[a1, a1, a2, a2, SP[a3, a3], n] - 
    4*S2[a3, n]*S2[a1, a1, a2, a3, a2, n] + 
    4*S2[a2, n]*S2[a1, a1, a2, a3, a3, n] + 
    2*S2[a1, a1, a2, a3, SP[a2, a3], n] - 
    2*S2[a1, a1, a2, SP[a3, a3], a2, n] - 
    2*S2[a3, n]*S2[a1, a1, a3, a2, a2, n] + 
    2*S2[a2, n]*S2[a1, a1, a3, a2, a3, n] + 
    2*S2[a1, a1, a3, a3, SP[a2, a2], n] + 
    2*S2[a1, a1, a3, SP[a2, a2], a3, n] + 
    2*S2[a1, a1, SP[a2, a2], a3, a3, n] - 
    2*S2[a1, a1, SP[a2, a3], a3, a2, n] - 
    3*S2[a3, n]*S2[a1, a2, a1, a2, a3, n] - 
    3*S2[a1, a2, a1, a2, SP[a3, a3], n] - 
    2*S2[a3, n]*S2[a1, a2, a1, a3, a2, n] + 
    2*S2[a2, n]*S2[a1, a2, a1, a3, a3, n] + S2[a1, a2, a1, a3, SP[a2, a3], 
     n] - S2[a1, a2, a1, SP[a2, a3], a3, n] - S2[a1, a2, a1, SP[a3, a3], a2, 
     n] - 2*S2[a3, n]*S2[a1, a2, a2, a1, a3, n] - 
    2*S2[a1, a2, a2, a1, SP[a3, a3], n] - 
    2*S2[a1, a2, a2, SP[a1, a3], a3, n] + 
    S2[a2, n]*S2[a1, a2, a3, a1, a3, n] + 
    2*S2[a1, a2, a3, a1, SP[a2, a3], n] + 
    2*S2[a1, a2, a3, SP[a1, a2], a3, n] + 
    4*S2[a1, a2, SP[a1, a2], a3, a3, n] - 
    3*S2[a1, a2, SP[a1, a3], a2, a3, n] - S2[a1, a2, SP[a1, a3], a3, a2, n] - 
    2*S2[a1, a2, SP[a2, a3], a1, a3, n] + 
    2*S2[a2, n]*S2[a1, a3, a1, a2, a3, n] + 
    2*S2[a1, a3, a1, a2, SP[a2, a3], n] + S2[a1, a3, a1, a3, SP[a2, a2], n] + 
    2*S2[a1, a3, a1, SP[a2, a2], a3, n] + S2[a1, a3, a1, SP[a2, a3], a2, n] + 
    S2[a3, n]*S2[a1, a3, a2, a1, a2, n] + 
    S2[a2, n]*S2[a1, a3, a2, a1, a3, n] + 
    2*S2[a1, a3, a2, a1, SP[a2, a3], n] + S2[a1, a3, a2, SP[a1, a2], a3, n] + 
    S2[a1, a3, a2, SP[a1, a3], a2, n] + 2*S2[a1, a3, SP[a1, a2], a2, a3, n] + 
    S2[a1, a3, SP[a1, a2], a3, a2, n] + S2[a1, a3, SP[a2, a2], a1, a3, n] + 
    S2[a1, a3, SP[a2, a3], a1, a2, n] + 6*S2[a1, SP[a1, a2], a2, a3, a3, n] + 
    4*S2[a1, SP[a1, a2], a3, a2, a3, n] + 
    2*S2[a1, SP[a1, a2], a3, a3, a2, n] - 
    4*S2[a1, SP[a1, a3], a2, a2, a3, n] - 
    2*S2[a1, SP[a1, a3], a2, a3, a2, n] - S2[a1, SP[a2, a3], a1, a2, a3, n] - 
    2*S2[a1, SP[a2, a3], a1, a3, a2, n] - S2[a1, SP[a2, a3], a2, a1, a3, n] + 
    S2[a1, SP[a3, a3], a2, a1, a2, n] - 2*S2[a2, a1, a1, a2, SP[a3, a3], n] - 
    2*S2[a2, a1, a1, SP[a2, a3], a3, n] - S2[a2, a1, a2, a1, SP[a3, a3], n] - 
    S2[a2, a1, a2, SP[a1, a3], a3, n] - 2*S2[a2, a1, SP[a1, a3], a2, a3, n] - 
    S2[a2, a1, SP[a2, a3], a1, a3, n] - 2*S2[a2, SP[a1, a3], a1, a2, a3, n] - 
    S2[a2, SP[a1, a3], a2, a1, a3, n] + 2*S2[a3, n]*
     S2[a3, a1, a1, a2, a2, n] + 2*S2[a2, n]*S2[a3, a1, a1, a2, a3, n] + 
    4*S2[a3, a1, a1, a2, SP[a2, a3], n] + 
    2*S2[a3, a1, a1, SP[a2, a2], a3, n] + 
    2*S2[a3, a1, a1, SP[a2, a3], a2, n] + 
    S2[a3, n]*S2[a3, a1, a2, a1, a2, n] + 
    S2[a2, n]*S2[a3, a1, a2, a1, a3, n] + 
    2*S2[a3, a1, a2, a1, SP[a2, a3], n] + S2[a3, a1, a2, SP[a1, a2], a3, n] + 
    S2[a3, a1, a2, SP[a1, a3], a2, n] + 2*S2[a3, a1, SP[a1, a2], a2, a3, n] + 
    2*S2[a3, a1, SP[a1, a3], a2, a2, n] + S2[a3, a1, SP[a2, a2], a1, a3, n] + 
    S2[a3, a1, SP[a2, a3], a1, a2, n] - S2[a1, n]*S2[a3, a2, a1, a2, a3, n] - 
    S2[a3, a2, a1, a2, SP[a1, a3], n] - S2[a3, a2, a1, SP[a1, a2], a3, n] - 
    S2[a1, n]*S2[a3, a2, a3, a1, a2, n] - S2[a3, a2, a3, a1, SP[a1, a2], n] - 
    S2[a3, a2, a3, SP[a1, a1], a2, n] - S2[a3, a2, SP[a1, a1], a2, a3, n] - 
    S2[a3, a2, SP[a1, a3], a1, a2, n] - 2*S2[a1, n]*
     S2[a3, a3, a2, a1, a2, n] - 2*S2[a3, a3, a2, a1, SP[a1, a2], n] - 
    2*S2[a3, a3, a2, SP[a1, a1], a2, n] - 
    2*S2[a3, a3, SP[a1, a2], a1, a2, n] + S2[a3, SP[a1, a2], a1, a2, a3, n] + 
    S2[a3, SP[a1, a2], a2, a1, a3, n] - S2[a3, SP[a1, a2], a3, a1, a2, n] + 
    2*S2[a3, SP[a1, a3], a1, a2, a2, n] - S2[a3, SP[a1, a3], a2, a1, a2, n] + 
    6*S2[SP[a1, a1], a2, a2, a3, a3, n] + 
    4*S2[SP[a1, a1], a2, a3, a2, a3, n] + 
    2*S2[SP[a1, a1], a2, a3, a3, a2, n] + 
    2*S2[SP[a1, a1], a3, a2, a2, a3, n] + 
    2*S2[SP[a1, a1], a3, a2, a3, a2, n] + 
    2*S2[SP[a1, a1], a3, a3, a2, a2, n] - 
    6*S2[SP[a1, a3], a1, a2, a2, a3, n] - 
    4*S2[SP[a1, a3], a1, a2, a3, a2, n] - 
    2*S2[SP[a1, a3], a1, a3, a2, a2, n] - 
    4*S2[SP[a1, a3], a2, a1, a2, a3, n] - 
    2*S2[SP[a1, a3], a2, a1, a3, a2, n] - 
    2*S2[SP[a1, a3], a2, a2, a1, a3, n] - S2[SP[a1, a3], a2, a3, a1, a2, n] - 
    S2[SP[a1, a3], a3, a2, a1, a2, n] + 2*S2[SP[a2, a3], a1, a1, a2, a3, n] + 
    S2[SP[a2, a3], a1, a2, a1, a3, n] + 2*S2[SP[a3, a3], a1, a1, a2, a2, n] + 
    S2[SP[a3, a3], a1, a2, a1, a2, n] - 2*S2[a3, a1, a3, a1, a2, a2, n] + 
    S2[a3, a2, a1, a2, a3, a1, n] + S2[a3, a2, a1, a3, a1, a2, n] + 
    2*S2[a3, a2, a3, a1, a1, a2, n] + S2[a3, a2, a3, a1, a2, a1, n] - 
    4*S2[a3, a3, a1, a1, a2, a2, n] + 4*S2[a3, a3, a2, a1, a1, a2, n] + 
    2*S2[a3, a3, a2, a1, a2, a1, n] /; 
   MyMemberQ[{{a1, a2, a3}}, {a1, a1, a2, a2, a3, a3}] && a1 != a2 != a3, 
 S2[a1_, a3_, a2_, a2_, a1_, a3_, n_] :> 
  -(S2[a1, a2, a3, n]*S2[a1, a3, a2, n]) - S2[a1, a3, a2, n]^2/2 - 
    S2[SP[a1, a1], SP[a2, a3], SP[a2, a3], n] - 
    S2[SP[a1, a1], SP[a3, a3], SP[a2, a2], n]/2 + 
    2*S2[a1, a1, SP[a2, a3], SP[a2, a3], n] + S2[a1, a1, SP[a3, a3], 
     SP[a2, a2], n] + S2[a1, a3, n]*S2[a1, a2, a2, a3, n] + 
    S2[a1, a3, n]*S2[a1, a2, a3, a2, n] - S2[a1, a2, SP[a1, a2], SP[a3, a3], 
     n] - S2[a1, a2, SP[a1, a3], SP[a2, a3], n] + 
    S2[a1, a3, n]*S2[a1, a3, a2, a2, n] - S2[a1, a3, SP[a1, a2], SP[a2, a3], 
     n] - S2[a1, SP[a1, a2], a2, SP[a3, a3], n] - 
    S2[a1, SP[a1, a2], SP[a2, a3], a3, n] + S2[a1, SP[a1, a3], a3, 
     SP[a2, a2], n] + S2[a1, SP[a1, a3], SP[a2, a2], a3, n] - 
    S2[SP[a1, a1], a2, a2, SP[a3, a3], n] - S2[SP[a1, a1], a2, SP[a2, a3], 
     a3, n] + S2[SP[a1, a1], a3, a3, SP[a2, a2], n] + 
    S2[SP[a1, a1], a3, SP[a2, a2], a3, n] - 
    2*S2[a3, n]*S2[a1, a1, a2, a2, a3, n] - 
    2*S2[a1, a1, a3, a3, SP[a2, a2], n] - 
    2*S2[a1, a1, a3, SP[a2, a2], a3, n] - 
    2*S2[a1, a1, SP[a2, a3], a2, a3, n] - 
    S2[a3, n]*S2[a1, a2, a1, a2, a3, n] - 
    S2[a3, n]*S2[a1, a2, a2, a1, a3, n] + S2[a1, a2, a3, a1, SP[a2, a3], n] + 
    S2[a1, a2, a3, SP[a1, a2], a3, n] + 2*S2[a1, a2, SP[a1, a2], a3, a3, n] - 
    S2[a1, a2, SP[a2, a3], a1, a3, n] - S2[a1, a3, a1, a3, SP[a2, a2], n] - 
    S2[a1, a3, a1, SP[a2, a2], a3, n] + S2[a1, a3, a2, a1, SP[a2, a3], n] + 
    S2[a1, n]*S2[a1, a3, a2, a2, a3, n] + S2[a1, a3, a2, a2, SP[a1, a3], n] + 
    2*S2[a1, a3, a2, SP[a1, a2], a3, n] + S2[a1, a3, SP[a1, a2], a2, a3, n] + 
    2*S2[a1, SP[a1, a2], a2, a3, a3, n] + S2[a1, SP[a1, a2], a3, a2, a3, n] - 
    S2[a1, SP[a1, a3], a2, a2, a3, n] - S2[a1, SP[a2, a3], a1, a2, a3, n] - 
    S2[a1, SP[a2, a3], a2, a1, a3, n] + S2[a1, n]*S2[a3, a1, a2, a2, a3, n] + 
    S2[a3, a1, a2, a2, SP[a1, a3], n] + S2[a3, a1, a2, SP[a1, a2], a3, n] + 
    S2[a3, a1, SP[a1, a2], a2, a3, n] - S2[a1, n]*S2[a3, a2, a2, a3, a1, n] - 
    S2[a3, a2, a2, a3, SP[a1, a1], n] - S2[a3, a2, a2, SP[a1, a3], a1, n] - 
    S2[a3, a2, SP[a1, a2], a3, a1, n] + S2[a3, SP[a1, a1], a2, a2, a3, n] - 
    S2[a3, SP[a1, a2], a2, a3, a1, n] + 2*S2[SP[a1, a1], a2, a2, a3, a3, n] + 
    S2[SP[a1, a1], a2, a3, a2, a3, n] + S2[SP[a1, a1], a3, a2, a2, a3, n] - 
    S2[SP[a1, a3], a1, a2, a2, a3, n] - S2[SP[a1, a3], a2, a1, a2, a3, n] - 
    S2[SP[a1, a3], a2, a2, a1, a3, n] - S2[SP[a1, a3], a2, a2, a3, a1, n] + 
    S2[a3, a2, a1, a2, a3, a1, n] + S2[a3, a2, a2, a1, a3, a1, n] + 
    2*S2[a3, a2, a2, a3, a1, a1, n] /; 
   MyMemberQ[{{a1, a2, a3}}, {a1, a1, a2, a2, a3, a3}] && a1 != a2 != a3, 
 S2[a1_, a3_, a2_, a2_, a3_, a1_, n_] :> 
  S2[a1, a3, a2, n]^2/2 + S2[SP[a1, a1], SP[a3, a3], SP[a2, a2], n]/2 - 
    S2[a1, a1, SP[a3, a3], SP[a2, a2], n] - S2[a1, a3, n]*
     S2[a1, a3, a2, a2, n] + S2[a1, a3, SP[a1, a2], SP[a2, a3], n] + 
    S2[a1, SP[a1, a3], a2, SP[a2, a3], n] - S2[a1, SP[a1, a3], a3, 
     SP[a2, a2], n] + S2[SP[a1, a1], a3, a2, SP[a2, a3], n] - 
    S2[SP[a1, a1], a3, a3, SP[a2, a2], n] - 
    2*S2[a1, a1, a3, a2, SP[a2, a3], n] + 
    2*S2[a1, a1, a3, a3, SP[a2, a2], n] - S2[a1, a3, a1, a2, SP[a2, a3], n] + 
    S2[a1, a3, a1, a3, SP[a2, a2], n] - S2[a1, a3, a2, a1, SP[a2, a3], n] + 
    S2[a1, n]*S2[a1, a3, a2, a2, a3, n] + S2[a1, a3, a2, a2, SP[a1, a3], 
     n] /; MyMemberQ[{{a1, a2, a3}}, {a1, a1, a2, a2, a3, a3}] && 
    a1 != a2 != a3, S2[a1_, a3_, a2_, a3_, a1_, a2_, n_] :> 
  -S2[a1, a2, a3, n]^2 - S2[a1, a2, a3, n]*S2[a1, a3, a2, n] - 
    S2[a1, a3, a2, n]^2/2 - S2[SP[a1, a1], SP[a2, a2], SP[a3, a3], n] - 
    S2[SP[a1, a1], SP[a2, a3], SP[a2, a3], n] - 
    S2[SP[a1, a1], SP[a3, a3], SP[a2, a2], n]/2 + 
    2*S2[a1, a1, SP[a2, a2], SP[a3, a3], n] + 
    2*S2[a1, a1, SP[a2, a3], SP[a2, a3], n] + S2[a1, a1, SP[a3, a3], 
     SP[a2, a2], n] - 2*S2[a1, a3, n]*S2[a1, a2, a2, a3, n] - 
    S2[a1, a3, n]*S2[a1, a2, a3, a2, n] + 
    2*S2[a1, a2, SP[a1, a2], SP[a3, a3], n] + S2[a1, a2, SP[a1, a3], 
     SP[a2, a3], n] - S2[a1, a2, n]*S2[a1, a3, a2, a3, n] - 
    2*S2[a1, a2, n]*S2[a1, a3, a3, a2, n] + S2[a1, a3, SP[a1, a2], 
     SP[a2, a3], n] + 2*S2[a1, a3, SP[a1, a3], SP[a2, a2], n] + 
    4*S2[a1, SP[a1, a2], a2, SP[a3, a3], n] + 
    2*S2[a1, SP[a1, a2], a3, SP[a2, a3], n] + 
    4*S2[a1, SP[a1, a2], SP[a2, a3], a3, n] + 
    2*S2[a1, SP[a1, a2], SP[a3, a3], a2, n] + 
    2*S2[a1, SP[a1, a3], a2, SP[a2, a3], n] + 
    3*S2[a1, SP[a1, a3], a3, SP[a2, a2], n] + 
    2*S2[a1, SP[a1, a3], SP[a2, a2], a3, n] + 
    3*S2[a1, SP[a1, a3], SP[a2, a3], a2, n] + 
    S2[a1, a2, n]*S2[a2, a3, a1, a3, n] - S2[a2, a3, SP[a1, a1], SP[a2, a3], 
     n] - S2[a2, SP[a1, a3], a1, SP[a2, a3], n] - 
    S2[a2, SP[a1, a3], SP[a1, a2], a3, n] + 
    4*S2[SP[a1, a1], a2, a2, SP[a3, a3], n] + 
    2*S2[SP[a1, a1], a2, a3, SP[a2, a3], n] + 
    4*S2[SP[a1, a1], a2, SP[a2, a3], a3, n] + 
    2*S2[SP[a1, a1], a2, SP[a3, a3], a2, n] + 
    2*S2[SP[a1, a1], a3, a2, SP[a2, a3], n] + 
    3*S2[SP[a1, a1], a3, a3, SP[a2, a2], n] + 
    2*S2[SP[a1, a1], a3, SP[a2, a2], a3, n] + 
    3*S2[SP[a1, a1], a3, SP[a2, a3], a2, n] + 
    2*S2[SP[a1, a1], SP[a2, a2], a3, a3, n] + 
    4*S2[SP[a1, a1], SP[a2, a3], a2, a3, n] + 
    4*S2[SP[a1, a1], SP[a2, a3], a3, a2, n] + S2[SP[a1, a1], SP[a3, a3], a2, 
     a2, n] - S2[SP[a1, a2], a3, a1, SP[a2, a3], n] - 
    S2[SP[a1, a2], a3, SP[a1, a2], a3, n] - S2[SP[a1, a2], SP[a2, a3], a1, 
     a3, n] + 8*S2[a3, n]*S2[a1, a1, a2, a2, a3, n] + 
    6*S2[a3, n]*S2[a1, a1, a2, a3, a2, n] + 
    2*S2[a1, a1, a2, a3, SP[a2, a3], n] + 
    2*S2[a1, a1, a2, SP[a3, a3], a2, n] + 
    4*S2[a3, n]*S2[a1, a1, a3, a2, a2, n] - 
    6*S2[a1, a1, a3, a3, SP[a2, a2], n] - 
    4*S2[a1, a1, a3, SP[a2, a2], a3, n] - 
    2*S2[a1, a1, a3, SP[a2, a3], a2, n] - 
    4*S2[a1, a1, SP[a2, a2], a3, a3, n] - 
    2*S2[a1, a1, SP[a2, a3], a3, a2, n] + 
    2*S2[a1, a1, SP[a3, a3], a2, a2, n] + 
    4*S2[a3, n]*S2[a1, a2, a1, a2, a3, n] + 
    3*S2[a3, n]*S2[a1, a2, a1, a3, a2, n] + S2[a1, a2, a1, a3, SP[a2, a3], 
     n] + S2[a1, a2, a1, SP[a3, a3], a2, n] + 
    2*S2[a3, n]*S2[a1, a2, a2, a1, a3, n] - 
    S2[a2, n]*S2[a1, a2, a3, a1, a3, n] - S2[a1, a2, a3, a1, SP[a2, a3], n] - 
    S2[a1, a2, a3, SP[a1, a2], a3, n] - 4*S2[a1, a2, SP[a1, a2], a3, a3, n] + 
    S2[a1, a2, SP[a1, a3], a2, a3, n] + S2[a1, a2, SP[a1, a3], a3, a2, n] + 
    2*S2[a1, a2, SP[a2, a3], a1, a3, n] - 
    S2[a2, n]*S2[a1, a3, a1, a2, a3, n] - 
    3*S2[a1, a3, a1, a2, SP[a2, a3], n] - 
    S2[a2, n]*S2[a1, a3, a1, a3, a2, n] - 
    4*S2[a1, a3, a1, a3, SP[a2, a2], n] - 
    3*S2[a1, a3, a1, SP[a2, a2], a3, n] - 
    4*S2[a1, a3, a1, SP[a2, a3], a2, n] - 
    S2[a3, n]*S2[a1, a3, a2, a1, a2, n] - 
    S2[a2, n]*S2[a1, a3, a2, a1, a3, n] - 
    3*S2[a1, a3, a2, a1, SP[a2, a3], n] + 
    S2[a1, n]*S2[a1, a3, a2, a3, a2, n] + S2[a1, a3, a2, a3, SP[a1, a2], n] - 
    S2[a1, a3, a2, SP[a1, a2], a3, n] - S2[a1, a3, a2, SP[a1, a3], a2, n] - 
    2*S2[a1, a3, a3, a1, SP[a2, a2], n] + 
    2*S2[a1, n]*S2[a1, a3, a3, a2, a2, n] + 
    2*S2[a1, a3, a3, a2, SP[a1, a2], n] - 
    3*S2[a1, a3, SP[a1, a2], a2, a3, n] - 
    2*S2[a1, a3, SP[a1, a2], a3, a2, n] - 
    2*S2[a1, a3, SP[a1, a3], a2, a2, n] - S2[a1, a3, SP[a2, a2], a1, a3, n] - 
    S2[a1, a3, SP[a2, a3], a1, a2, n] - 8*S2[a1, SP[a1, a2], a2, a3, a3, n] - 
    7*S2[a1, SP[a1, a2], a3, a2, a3, n] - 
    6*S2[a1, SP[a1, a2], a3, a3, a2, n] + 
    2*S2[a1, SP[a1, a3], a2, a2, a3, n] + S2[a1, SP[a1, a3], a2, a3, a2, n] + 
    3*S2[a1, SP[a2, a3], a1, a2, a3, n] + 
    2*S2[a1, SP[a2, a3], a1, a3, a2, n] + S2[a1, SP[a2, a3], a2, a1, a3, n] - 
    S2[a1, SP[a3, a3], a2, a1, a2, n] + S2[a2, a1, a3, a1, SP[a2, a3], n] + 
    S2[a2, a1, a3, SP[a1, a2], a3, n] + S2[a2, a1, SP[a2, a3], a1, a3, n] + 
    2*S2[a2, a3, a1, a1, SP[a2, a3], n] + S2[a2, a3, a1, SP[a1, a2], a3, n] + 
    S2[a2, a3, a1, SP[a1, a3], a2, n] + S2[a2, a3, SP[a1, a1], a2, a3, n] + 
    S2[a2, a3, SP[a1, a1], a3, a2, n] + S2[a2, SP[a1, a3], a1, a2, a3, n] + 
    S2[a2, SP[a1, a3], a1, a3, a2, n] + S2[a2, SP[a1, a3], a2, a1, a3, n] - 
    4*S2[a3, n]*S2[a3, a1, a1, a2, a2, n] - 
    2*S2[a2, n]*S2[a3, a1, a1, a2, a3, n] - 
    6*S2[a3, a1, a1, a2, SP[a2, a3], n] - 
    2*S2[a2, n]*S2[a3, a1, a1, a3, a2, n] - 
    2*S2[a3, a1, a1, a3, SP[a2, a2], n] - 
    2*S2[a3, a1, a1, SP[a2, a2], a3, n] - 
    6*S2[a3, a1, a1, SP[a2, a3], a2, n] - 
    2*S2[a3, n]*S2[a3, a1, a2, a1, a2, n] - 
    S2[a2, n]*S2[a3, a1, a2, a1, a3, n] - 
    3*S2[a3, a1, a2, a1, SP[a2, a3], n] + 
    S2[a1, n]*S2[a3, a1, a2, a3, a2, n] + S2[a3, a1, a2, a3, SP[a1, a2], n] - 
    S2[a3, a1, a2, SP[a1, a2], a3, n] - S2[a3, a1, a2, SP[a1, a3], a2, n] - 
    S2[a2, n]*S2[a3, a1, a3, a1, a2, n] - S2[a3, a1, a3, a1, SP[a2, a2], n] + 
    2*S2[a1, n]*S2[a3, a1, a3, a2, a2, n] + 
    2*S2[a3, a1, a3, a2, SP[a1, a2], n] + S2[a3, a1, a3, SP[a1, a2], a2, n] - 
    2*S2[a3, a1, SP[a1, a2], a2, a3, n] - S2[a3, a1, SP[a1, a2], a3, a2, n] - 
    2*S2[a3, a1, SP[a1, a3], a2, a2, n] - S2[a3, a1, SP[a2, a2], a1, a3, n] - 
    3*S2[a3, a1, SP[a2, a3], a1, a2, n] + 
    S2[a1, n]*S2[a3, a2, a1, a2, a3, n] + S2[a3, a2, a1, a2, SP[a1, a3], n] + 
    S2[a1, n]*S2[a3, a2, a1, a3, a2, n] + S2[a3, a2, a1, a3, SP[a1, a2], n] + 
    S2[a3, a2, a1, SP[a1, a2], a3, n] + S2[a3, a2, a1, SP[a1, a3], a2, n] + 
    2*S2[a1, n]*S2[a3, a2, a3, a1, a2, n] + 
    2*S2[a3, a2, a3, a1, SP[a1, a2], n] - 
    S2[a1, n]*S2[a3, a2, a3, a2, a1, n] - S2[a3, a2, a3, a2, SP[a1, a1], n] + 
    2*S2[a3, a2, a3, SP[a1, a1], a2, n] - S2[a3, a2, a3, SP[a1, a2], a1, n] + 
    S2[a3, a2, SP[a1, a1], a2, a3, n] + S2[a3, a2, SP[a1, a1], a3, a2, n] + 
    2*S2[a3, a2, SP[a1, a3], a1, a2, n] - S2[a3, a2, SP[a1, a3], a2, a1, n] + 
    2*S2[a1, n]*S2[a3, a3, a1, a2, a2, n] + 
    2*S2[a3, a3, a1, a2, SP[a1, a2], n] + 
    2*S2[a3, a3, a1, SP[a1, a2], a2, n] + 
    2*S2[a1, n]*S2[a3, a3, a2, a1, a2, n] + 
    2*S2[a3, a3, a2, a1, SP[a1, a2], n] - 
    2*S2[a1, n]*S2[a3, a3, a2, a2, a1, n] - 
    2*S2[a3, a3, a2, a2, SP[a1, a1], n] + 
    2*S2[a3, a3, a2, SP[a1, a1], a2, n] - 
    2*S2[a3, a3, a2, SP[a1, a2], a1, n] + 
    2*S2[a3, a3, SP[a1, a1], a2, a2, n] + 
    2*S2[a3, a3, SP[a1, a2], a1, a2, n] - 
    2*S2[a3, a3, SP[a1, a2], a2, a1, n] + S2[a3, SP[a1, a1], a2, a3, a2, n] + 
    2*S2[a3, SP[a1, a1], a3, a2, a2, n] - S2[a3, SP[a1, a2], a1, a2, a3, n] - 
    S2[a3, SP[a1, a2], a1, a3, a2, n] - S2[a3, SP[a1, a2], a2, a1, a3, n] + 
    S2[a3, SP[a1, a2], a3, a1, a2, n] - S2[a3, SP[a1, a2], a3, a2, a1, n] - 
    2*S2[a3, SP[a1, a3], a1, a2, a2, n] - 
    2*S2[a3, SP[a1, a3], a2, a2, a1, n] - 
    8*S2[SP[a1, a1], a2, a2, a3, a3, n] - 
    7*S2[SP[a1, a1], a2, a3, a2, a3, n] - 
    6*S2[SP[a1, a1], a2, a3, a3, a2, n] - 
    6*S2[SP[a1, a1], a3, a2, a2, a3, n] - 
    5*S2[SP[a1, a1], a3, a2, a3, a2, n] - 
    4*S2[SP[a1, a1], a3, a3, a2, a2, n] + 
    8*S2[SP[a1, a3], a1, a2, a2, a3, n] + 
    7*S2[SP[a1, a3], a1, a2, a3, a2, n] + 
    6*S2[SP[a1, a3], a1, a3, a2, a2, n] + 
    5*S2[SP[a1, a3], a2, a1, a2, a3, n] + 
    4*S2[SP[a1, a3], a2, a1, a3, a2, n] + 
    2*S2[SP[a1, a3], a2, a2, a1, a3, n] + 
    2*S2[SP[a1, a3], a2, a3, a1, a2, n] - S2[SP[a1, a3], a2, a3, a2, a1, n] + 
    2*S2[SP[a1, a3], a3, a1, a2, a2, n] + S2[SP[a1, a3], a3, a2, a1, a2, n] - 
    2*S2[SP[a1, a3], a3, a2, a2, a1, n] - 
    2*S2[SP[a2, a3], a1, a1, a2, a3, n] - 
    2*S2[SP[a2, a3], a1, a1, a3, a2, n] - S2[SP[a2, a3], a1, a2, a1, a3, n] - 
    S2[SP[a2, a3], a1, a3, a1, a2, n] - 4*S2[SP[a3, a3], a1, a1, a2, a2, n] - 
    2*S2[SP[a3, a3], a1, a2, a1, a2, n] + 2*S2[a3, a1, a3, a1, a2, a2, n] - 
    S2[a3, a2, a1, a2, a3, a1, n] - 2*S2[a3, a2, a1, a3, a1, a2, n] - 
    4*S2[a3, a2, a3, a1, a1, a2, n] - S2[a3, a2, a3, a1, a2, a1, n] + 
    2*S2[a3, a2, a3, a2, a1, a1, n] + 4*S2[a3, a3, a1, a1, a2, a2, n] - 
    4*S2[a3, a3, a2, a1, a1, a2, n] + 4*S2[a3, a3, a2, a2, a1, a1, n] /; 
   MyMemberQ[{{a1, a2, a3}}, {a1, a1, a2, a2, a3, a3}] && a1 != a2 != a3, 
 S2[a1_, a3_, a2_, a3_, a2_, a1_, n_] :> 
  S2[a1, a2, a3, n]*S2[a1, a3, a2, n] + S2[SP[a1, a1], SP[a2, a3], 
     SP[a2, a3], n] - 2*S2[a1, a1, SP[a2, a3], SP[a2, a3], n] - 
    S2[a1, a3, n]*S2[a1, a2, a3, a2, n] + S2[a1, a2, SP[a1, a3], SP[a2, a3], 
     n] + S2[a1, a2, n]*S2[a1, a3, a2, a3, n] + 
    2*S2[a1, a2, n]*S2[a1, a3, a3, a2, n] - S2[a1, a3, SP[a1, a2], 
     SP[a2, a3], n] - 2*S2[a1, a3, SP[a1, a3], SP[a2, a2], n] - 
    2*S2[a1, SP[a1, a3], a2, SP[a2, a3], n] - 
    2*S2[a1, SP[a1, a3], a3, SP[a2, a2], n] - 
    2*S2[a1, SP[a1, a3], SP[a2, a2], a3, n] - 
    2*S2[a1, SP[a1, a3], SP[a2, a3], a2, n] - 
    S2[a1, a2, n]*S2[a2, a3, a1, a3, n] + S2[a2, a3, SP[a1, a1], SP[a2, a3], 
     n] + S2[a2, SP[a1, a3], a1, SP[a2, a3], n] + 
    S2[a2, SP[a1, a3], SP[a1, a2], a3, n] - 
    2*S2[SP[a1, a1], a3, a2, SP[a2, a3], n] - 
    2*S2[SP[a1, a1], a3, a3, SP[a2, a2], n] - 
    2*S2[SP[a1, a1], a3, SP[a2, a2], a3, n] - 
    2*S2[SP[a1, a1], a3, SP[a2, a3], a2, n] - 
    2*S2[SP[a1, a1], SP[a2, a3], a2, a3, n] - 
    2*S2[SP[a1, a1], SP[a2, a3], a3, a2, n] + S2[SP[a1, a2], a3, a1, 
     SP[a2, a3], n] + S2[SP[a1, a2], a3, SP[a1, a2], a3, n] + 
    S2[SP[a1, a2], SP[a2, a3], a1, a3, n] - 
    2*S2[a3, n]*S2[a1, a1, a2, a3, a2, n] - 
    2*S2[a1, a1, a2, a3, SP[a2, a3], n] - 
    2*S2[a1, a1, a2, SP[a3, a3], a2, n] - 
    4*S2[a3, n]*S2[a1, a1, a3, a2, a2, n] + 
    4*S2[a1, a1, a3, a3, SP[a2, a2], n] + 
    4*S2[a1, a1, a3, SP[a2, a2], a3, n] + 
    4*S2[a1, a1, SP[a2, a3], a2, a3, n] + 
    2*S2[a1, a1, SP[a2, a3], a3, a2, n] - 
    4*S2[a1, a1, SP[a3, a3], a2, a2, n] - 
    S2[a3, n]*S2[a1, a2, a1, a3, a2, n] - S2[a1, a2, a1, a3, SP[a2, a3], n] - 
    S2[a1, a2, a1, SP[a3, a3], a2, n] + S2[a2, n]*S2[a1, a2, a3, a1, a3, n] - 
    S2[a1, a2, a3, a1, SP[a2, a3], n] - S2[a1, a2, a3, SP[a1, a2], a3, n] - 
    S2[a1, a2, SP[a1, a3], a2, a3, n] - S2[a1, a2, SP[a1, a3], a3, a2, n] - 
    2*S2[a3, n]*S2[a1, a3, a1, a2, a2, n] + 
    S2[a2, n]*S2[a1, a3, a1, a2, a3, n] + S2[a1, a3, a1, a2, SP[a2, a3], n] + 
    S2[a2, n]*S2[a1, a3, a1, a3, a2, n] + 
    3*S2[a1, a3, a1, a3, SP[a2, a2], n] + 
    3*S2[a1, a3, a1, SP[a2, a2], a3, n] + S2[a1, a3, a1, SP[a2, a3], a2, n] - 
    S2[a3, n]*S2[a1, a3, a2, a1, a2, n] + 
    S2[a2, n]*S2[a1, a3, a2, a1, a3, n] + S2[a1, a3, a2, a1, SP[a2, a3], n] - 
    2*S2[a1, n]*S2[a1, a3, a2, a2, a3, n] - 
    2*S2[a1, a3, a2, a2, SP[a1, a3], n] - S2[a1, a3, a2, SP[a1, a2], a3, n] + 
    2*S2[a1, a3, a3, a1, SP[a2, a2], n] + 
    2*S2[a1, a3, a3, SP[a1, a2], a2, n] + S2[a1, a3, SP[a1, a2], a2, a3, n] + 
    2*S2[a1, a3, SP[a1, a2], a3, a2, n] + 
    2*S2[a1, a3, SP[a1, a3], a2, a2, n] + S2[a1, a3, SP[a2, a2], a1, a3, n] - 
    S2[a1, a3, SP[a2, a3], a1, a2, n] + S2[a1, SP[a1, a2], a3, a2, a3, n] + 
    2*S2[a1, SP[a1, a2], a3, a3, a2, n] + 
    2*S2[a1, SP[a1, a3], a2, a2, a3, n] + S2[a1, SP[a1, a3], a2, a3, a2, n] + 
    S2[a1, SP[a2, a3], a1, a2, a3, n] + S2[a1, SP[a2, a3], a2, a1, a3, n] - 
    2*S2[a1, SP[a3, a3], a1, a2, a2, n] - S2[a1, SP[a3, a3], a2, a1, a2, n] - 
    S2[a2, a1, a3, a1, SP[a2, a3], n] - S2[a2, a1, a3, SP[a1, a2], a3, n] - 
    S2[a2, a1, SP[a2, a3], a1, a3, n] - 2*S2[a2, a3, a1, a1, SP[a2, a3], n] - 
    S2[a2, a3, a1, SP[a1, a2], a3, n] - S2[a2, a3, a1, SP[a1, a3], a2, n] - 
    S2[a2, a3, SP[a1, a1], a2, a3, n] - S2[a2, a3, SP[a1, a1], a3, a2, n] - 
    S2[a2, SP[a1, a3], a1, a2, a3, n] - S2[a2, SP[a1, a3], a1, a3, a2, n] - 
    S2[a2, SP[a1, a3], a2, a1, a3, n] + 2*S2[a2, n]*
     S2[a3, a1, a1, a2, a3, n] + 2*S2[a3, a1, a1, a2, SP[a2, a3], n] + 
    2*S2[a2, n]*S2[a3, a1, a1, a3, a2, n] + 
    2*S2[a3, a1, a1, a3, SP[a2, a2], n] + 
    2*S2[a3, a1, a1, SP[a2, a2], a3, n] + 
    2*S2[a3, a1, a1, SP[a2, a3], a2, n] + 
    S2[a2, n]*S2[a3, a1, a2, a1, a3, n] + S2[a3, a1, a2, a1, SP[a2, a3], n] - 
    2*S2[a1, n]*S2[a3, a1, a2, a2, a3, n] - 
    2*S2[a3, a1, a2, a2, SP[a1, a3], n] - 
    S2[a1, n]*S2[a3, a1, a2, a3, a2, n] - S2[a3, a1, a2, a3, SP[a1, a2], n] - 
    S2[a3, a1, a2, SP[a1, a2], a3, n] - S2[a3, a1, a2, SP[a1, a3], a2, n] + 
    S2[a2, n]*S2[a3, a1, a3, a1, a2, n] + S2[a3, a1, a3, a1, SP[a2, a2], n] + 
    S2[a3, a1, a3, SP[a1, a2], a2, n] + S2[a3, a1, SP[a1, a2], a3, a2, n] + 
    S2[a3, a1, SP[a2, a2], a1, a3, n] + S2[a3, a1, SP[a2, a3], a1, a2, n] - 
    S2[a1, n]*S2[a3, a2, a1, a2, a3, n] - S2[a3, a2, a1, a2, SP[a1, a3], n] - 
    S2[a1, n]*S2[a3, a2, a1, a3, a2, n] - S2[a3, a2, a1, a3, SP[a1, a2], n] - 
    S2[a3, a2, a1, SP[a1, a2], a3, n] - S2[a3, a2, a1, SP[a1, a3], a2, n] + 
    2*S2[a1, n]*S2[a3, a2, a2, a3, a1, n] + 
    2*S2[a3, a2, a2, a3, SP[a1, a1], n] + 
    2*S2[a3, a2, a2, SP[a1, a3], a1, n] + 
    S2[a1, n]*S2[a3, a2, a3, a2, a1, n] + S2[a3, a2, a3, a2, SP[a1, a1], n] + 
    S2[a3, a2, a3, SP[a1, a2], a1, n] - S2[a3, a2, SP[a1, a1], a2, a3, n] - 
    S2[a3, a2, SP[a1, a1], a3, a2, n] + 2*S2[a3, a2, SP[a1, a2], a3, a1, n] + 
    S2[a3, a2, SP[a1, a3], a2, a1, n] - 2*S2[a3, SP[a1, a1], a2, a2, a3, n] - 
    S2[a3, SP[a1, a1], a2, a3, a2, n] + S2[a3, SP[a1, a2], a1, a2, a3, n] + 
    S2[a3, SP[a1, a2], a1, a3, a2, n] + S2[a3, SP[a1, a2], a2, a1, a3, n] + 
    2*S2[a3, SP[a1, a2], a2, a3, a1, n] + S2[a3, SP[a1, a2], a3, a1, a2, n] + 
    S2[a3, SP[a1, a2], a3, a2, a1, n] + S2[SP[a1, a1], a2, a3, a2, a3, n] + 
    2*S2[SP[a1, a1], a2, a3, a3, a2, n] + 
    2*S2[SP[a1, a1], a3, a2, a2, a3, n] + 
    3*S2[SP[a1, a1], a3, a2, a3, a2, n] + 
    4*S2[SP[a1, a1], a3, a3, a2, a2, n] - 
    2*S2[SP[a1, a3], a1, a2, a2, a3, n] - 
    3*S2[SP[a1, a3], a1, a2, a3, a2, n] - 
    4*S2[SP[a1, a3], a1, a3, a2, a2, n] - S2[SP[a1, a3], a2, a1, a2, a3, n] - 
    2*S2[SP[a1, a3], a2, a1, a3, a2, n] + 
    2*S2[SP[a1, a3], a2, a2, a3, a1, n] + S2[SP[a1, a3], a2, a3, a2, a1, n] - 
    2*S2[SP[a1, a3], a3, a1, a2, a2, n] - S2[SP[a1, a3], a3, a2, a1, a2, n] + 
    2*S2[SP[a2, a3], a1, a1, a2, a3, n] + 
    2*S2[SP[a2, a3], a1, a1, a3, a2, n] + S2[SP[a2, a3], a1, a2, a1, a3, n] + 
    S2[SP[a2, a3], a1, a3, a1, a2, n] - S2[a3, a2, a1, a2, a3, a1, n] - 
    2*S2[a3, a2, a2, a1, a3, a1, n] - 4*S2[a3, a2, a2, a3, a1, a1, n] - 
    S2[a3, a2, a3, a1, a2, a1, n] - 2*S2[a3, a2, a3, a2, a1, a1, n] /; 
   MyMemberQ[{{a1, a2, a3}}, {a1, a1, a2, a2, a3, a3}] && a1 != a2 != a3, 
 S2[a1_, a3_, a3_, a1_, a2_, a2_, n_] :> 
  S2[a1, n]*S2[a3, a3, a1, a2, a2, n] + S2[a3, a3, a1, a2, SP[a1, a2], n] + 
    S2[a3, a3, a1, SP[a1, a2], a2, n] + S2[a3, a3, SP[a1, a1], a2, a2, n] + 
    S2[a3, SP[a1, a3], a1, a2, a2, n] + S2[SP[a1, a3], a3, a1, a2, a2, n] - 
    S2[a3, a1, a3, a1, a2, a2, n] - 2*S2[a3, a3, a1, a1, a2, a2, n] - 
    S2[a3, a3, a1, a2, a1, a2, n] - S2[a3, a3, a1, a2, a2, a1, n] /; 
   MyMemberQ[{{a1, a2, a3}}, {a1, a1, a2, a2, a3, a3}] && a1 != a2 != a3, 
 S2[a1_, a3_, a3_, a2_, a1_, a2_, n_] :> 
  S2[a1, a2, a3, n]^2/2 + S2[SP[a1, a1], SP[a2, a2], SP[a3, a3], n]/2 - 
    S2[a1, a1, SP[a2, a2], SP[a3, a3], n] + 2*S2[a1, a3, n]*
     S2[a1, a2, a2, a3, n] + S2[a1, a3, n]*S2[a1, a2, a3, a2, n] - 
    2*S2[a1, a2, SP[a1, a2], SP[a3, a3], n] - S2[a1, a2, SP[a1, a3], 
     SP[a2, a3], n] + S2[a1, a2, n]*S2[a1, a3, a2, a3, n] + 
    2*S2[a1, a2, n]*S2[a1, a3, a3, a2, n] - S2[a1, a3, SP[a1, a2], 
     SP[a2, a3], n] - 2*S2[a1, a3, SP[a1, a3], SP[a2, a2], n] - 
    3*S2[a1, SP[a1, a2], a2, SP[a3, a3], n] - S2[a1, SP[a1, a2], a3, 
     SP[a2, a3], n] - 3*S2[a1, SP[a1, a2], SP[a2, a3], a3, n] - 
    S2[a1, SP[a1, a2], SP[a3, a3], a2, n] - S2[a1, SP[a1, a3], a2, 
     SP[a2, a3], n] - 2*S2[a1, SP[a1, a3], a3, SP[a2, a2], n] - 
    S2[a1, SP[a1, a3], SP[a2, a2], a3, n] - 
    2*S2[a1, SP[a1, a3], SP[a2, a3], a2, n] - 
    S2[a1, a2, n]*S2[a2, a3, a1, a3, n] + S2[a2, a3, SP[a1, a1], SP[a2, a3], 
     n] + S2[a2, SP[a1, a3], a1, SP[a2, a3], n] + 
    S2[a2, SP[a1, a3], SP[a1, a2], a3, n] - 
    3*S2[SP[a1, a1], a2, a2, SP[a3, a3], n] - S2[SP[a1, a1], a2, a3, 
     SP[a2, a3], n] - 3*S2[SP[a1, a1], a2, SP[a2, a3], a3, n] - 
    S2[SP[a1, a1], a2, SP[a3, a3], a2, n] - S2[SP[a1, a1], a3, a2, 
     SP[a2, a3], n] - 2*S2[SP[a1, a1], a3, a3, SP[a2, a2], n] - 
    S2[SP[a1, a1], a3, SP[a2, a2], a3, n] - 
    2*S2[SP[a1, a1], a3, SP[a2, a3], a2, n] - S2[SP[a1, a1], SP[a2, a2], a3, 
     a3, n] - 3*S2[SP[a1, a1], SP[a2, a3], a2, a3, n] - 
    3*S2[SP[a1, a1], SP[a2, a3], a3, a2, n] + S2[SP[a1, a2], a3, a1, 
     SP[a2, a3], n] + S2[SP[a1, a2], a3, SP[a1, a2], a3, n] + 
    S2[SP[a1, a2], SP[a2, a3], a1, a3, n] - 
    6*S2[a3, n]*S2[a1, a1, a2, a2, a3, n] - 
    4*S2[a3, n]*S2[a1, a1, a2, a3, a2, n] - 
    2*S2[a1, a1, a2, a3, SP[a2, a3], n] - 
    2*S2[a1, a1, a2, SP[a3, a3], a2, n] - 
    2*S2[a3, n]*S2[a1, a1, a3, a2, a2, n] + 
    4*S2[a1, a1, a3, a3, SP[a2, a2], n] + 
    2*S2[a1, a1, a3, SP[a2, a2], a3, n] + 
    2*S2[a1, a1, a3, SP[a2, a3], a2, n] + 
    2*S2[a1, a1, SP[a2, a2], a3, a3, n] + 
    2*S2[a1, a1, SP[a2, a3], a3, a2, n] - 
    2*S2[a1, a1, SP[a3, a3], a2, a2, n] - 
    3*S2[a3, n]*S2[a1, a2, a1, a2, a3, n] - 
    2*S2[a3, n]*S2[a1, a2, a1, a3, a2, n] - S2[a1, a2, a1, a3, SP[a2, a3], 
     n] - S2[a1, a2, a1, SP[a3, a3], a2, n] - 
    2*S2[a3, n]*S2[a1, a2, a2, a1, a3, n] + 
    S2[a2, n]*S2[a1, a2, a3, a1, a3, n] + S2[a1, a2, a3, a1, SP[a2, a3], n] + 
    S2[a1, a2, a3, SP[a1, a2], a3, n] + 4*S2[a1, a2, SP[a1, a2], a3, a3, n] - 
    S2[a1, a2, SP[a1, a3], a2, a3, n] - S2[a1, a2, SP[a1, a3], a3, a2, n] - 
    2*S2[a1, a2, SP[a2, a3], a1, a3, n] + 
    S2[a2, n]*S2[a1, a3, a1, a2, a3, n] + 
    2*S2[a1, a3, a1, a2, SP[a2, a3], n] + 
    S2[a2, n]*S2[a1, a3, a1, a3, a2, n] + 
    3*S2[a1, a3, a1, a3, SP[a2, a2], n] + 
    2*S2[a1, a3, a1, SP[a2, a2], a3, n] + 
    3*S2[a1, a3, a1, SP[a2, a3], a2, n] + 
    S2[a3, n]*S2[a1, a3, a2, a1, a2, n] + 
    S2[a2, n]*S2[a1, a3, a2, a1, a3, n] + 
    3*S2[a1, a3, a2, a1, SP[a2, a3], n] - 
    S2[a1, n]*S2[a1, a3, a2, a3, a2, n] - S2[a1, a3, a2, a3, SP[a1, a2], n] + 
    S2[a1, a3, a2, SP[a1, a2], a3, n] + S2[a1, a3, a2, SP[a1, a3], a2, n] + 
    2*S2[a1, a3, a3, a1, SP[a2, a2], n] - 
    2*S2[a1, n]*S2[a1, a3, a3, a2, a2, n] - 
    2*S2[a1, a3, a3, a2, SP[a1, a2], n] + 
    2*S2[a1, a3, SP[a1, a2], a2, a3, n] + S2[a1, a3, SP[a1, a2], a3, a2, n] + 
    2*S2[a1, a3, SP[a1, a3], a2, a2, n] + S2[a1, a3, SP[a2, a2], a1, a3, n] + 
    S2[a1, a3, SP[a2, a3], a1, a2, n] + 6*S2[a1, SP[a1, a2], a2, a3, a3, n] + 
    5*S2[a1, SP[a1, a2], a3, a2, a3, n] + 
    4*S2[a1, SP[a1, a2], a3, a3, a2, n] - 
    2*S2[a1, SP[a1, a3], a2, a2, a3, n] - S2[a1, SP[a1, a3], a2, a3, a2, n] - 
    2*S2[a1, SP[a2, a3], a1, a2, a3, n] - S2[a1, SP[a2, a3], a1, a3, a2, n] - 
    S2[a1, SP[a2, a3], a2, a1, a3, n] + S2[a1, SP[a3, a3], a2, a1, a2, n] - 
    S2[a2, a1, a3, a1, SP[a2, a3], n] - S2[a2, a1, a3, SP[a1, a2], a3, n] - 
    S2[a2, a1, SP[a2, a3], a1, a3, n] - 2*S2[a2, a3, a1, a1, SP[a2, a3], n] - 
    S2[a2, a3, a1, SP[a1, a2], a3, n] - S2[a2, a3, a1, SP[a1, a3], a2, n] - 
    S2[a2, a3, SP[a1, a1], a2, a3, n] - S2[a2, a3, SP[a1, a1], a3, a2, n] - 
    S2[a2, SP[a1, a3], a1, a2, a3, n] - S2[a2, SP[a1, a3], a1, a3, a2, n] - 
    S2[a2, SP[a1, a3], a2, a1, a3, n] + 2*S2[a3, n]*
     S2[a3, a1, a1, a2, a2, n] + 2*S2[a2, n]*S2[a3, a1, a1, a2, a3, n] + 
    4*S2[a3, a1, a1, a2, SP[a2, a3], n] + 
    2*S2[a2, n]*S2[a3, a1, a1, a3, a2, n] + 
    2*S2[a3, a1, a1, a3, SP[a2, a2], n] + 
    2*S2[a3, a1, a1, SP[a2, a2], a3, n] + 
    4*S2[a3, a1, a1, SP[a2, a3], a2, n] + 
    S2[a3, n]*S2[a3, a1, a2, a1, a2, n] + 
    S2[a2, n]*S2[a3, a1, a2, a1, a3, n] + 
    2*S2[a3, a1, a2, a1, SP[a2, a3], n] - 
    S2[a1, n]*S2[a3, a1, a2, a3, a2, n] - S2[a3, a1, a2, a3, SP[a1, a2], n] + 
    S2[a3, a1, a2, SP[a1, a2], a3, n] + S2[a2, n]*S2[a3, a1, a3, a1, a2, n] + 
    S2[a3, a1, a3, a1, SP[a2, a2], n] - 2*S2[a1, n]*
     S2[a3, a1, a3, a2, a2, n] - 2*S2[a3, a1, a3, a2, SP[a1, a2], n] - 
    S2[a3, a1, a3, SP[a1, a2], a2, n] + 2*S2[a3, a1, SP[a1, a2], a2, a3, n] + 
    S2[a3, a1, SP[a1, a2], a3, a2, n] + S2[a3, a1, SP[a2, a2], a1, a3, n] + 
    2*S2[a3, a1, SP[a2, a3], a1, a2, n] - 
    S2[a1, n]*S2[a3, a2, a1, a2, a3, n] - S2[a3, a2, a1, a2, SP[a1, a3], n] - 
    S2[a1, n]*S2[a3, a2, a1, a3, a2, n] - S2[a3, a2, a1, a3, SP[a1, a2], n] - 
    S2[a3, a2, a1, SP[a1, a2], a3, n] - S2[a3, a2, a1, SP[a1, a3], a2, n] - 
    S2[a1, n]*S2[a3, a2, a3, a1, a2, n] - S2[a3, a2, a3, a1, SP[a1, a2], n] + 
    S2[a1, n]*S2[a3, a2, a3, a2, a1, n] + S2[a3, a2, a3, a2, SP[a1, a1], n] - 
    S2[a3, a2, a3, SP[a1, a1], a2, n] + S2[a3, a2, a3, SP[a1, a2], a1, n] - 
    S2[a3, a2, SP[a1, a1], a2, a3, n] - S2[a3, a2, SP[a1, a1], a3, a2, n] - 
    S2[a3, a2, SP[a1, a3], a1, a2, n] + S2[a3, a2, SP[a1, a3], a2, a1, n] - 
    2*S2[a1, n]*S2[a3, a3, a1, a2, a2, n] - 
    2*S2[a3, a3, a1, a2, SP[a1, a2], n] - 
    2*S2[a3, a3, a1, SP[a1, a2], a2, n] - 
    S2[a1, n]*S2[a3, a3, a2, a1, a2, n] - S2[a3, a3, a2, a1, SP[a1, a2], n] + 
    2*S2[a1, n]*S2[a3, a3, a2, a2, a1, n] + 
    2*S2[a3, a3, a2, a2, SP[a1, a1], n] - S2[a3, a3, a2, SP[a1, a1], a2, n] + 
    2*S2[a3, a3, a2, SP[a1, a2], a1, n] - 
    2*S2[a3, a3, SP[a1, a1], a2, a2, n] - S2[a3, a3, SP[a1, a2], a1, a2, n] + 
    2*S2[a3, a3, SP[a1, a2], a2, a1, n] - S2[a3, SP[a1, a1], a2, a3, a2, n] - 
    2*S2[a3, SP[a1, a1], a3, a2, a2, n] + S2[a3, SP[a1, a2], a1, a2, a3, n] + 
    S2[a3, SP[a1, a2], a1, a3, a2, n] + S2[a3, SP[a1, a2], a2, a1, a3, n] + 
    S2[a3, SP[a1, a2], a3, a2, a1, n] + 2*S2[a3, SP[a1, a3], a2, a2, a1, n] + 
    6*S2[SP[a1, a1], a2, a2, a3, a3, n] + 
    5*S2[SP[a1, a1], a2, a3, a2, a3, n] + 
    4*S2[SP[a1, a1], a2, a3, a3, a2, n] + 
    4*S2[SP[a1, a1], a3, a2, a2, a3, n] + 
    3*S2[SP[a1, a1], a3, a2, a3, a2, n] + 
    2*S2[SP[a1, a1], a3, a3, a2, a2, n] - 
    6*S2[SP[a1, a3], a1, a2, a2, a3, n] - 
    5*S2[SP[a1, a3], a1, a2, a3, a2, n] - 
    4*S2[SP[a1, a3], a1, a3, a2, a2, n] - 
    4*S2[SP[a1, a3], a2, a1, a2, a3, n] - 
    3*S2[SP[a1, a3], a2, a1, a3, a2, n] - 
    2*S2[SP[a1, a3], a2, a2, a1, a3, n] - S2[SP[a1, a3], a2, a3, a1, a2, n] + 
    S2[SP[a1, a3], a2, a3, a2, a1, n] - 2*S2[SP[a1, a3], a3, a1, a2, a2, n] + 
    2*S2[SP[a1, a3], a3, a2, a2, a1, n] + 
    2*S2[SP[a2, a3], a1, a1, a2, a3, n] + 
    2*S2[SP[a2, a3], a1, a1, a3, a2, n] + S2[SP[a2, a3], a1, a2, a1, a3, n] + 
    S2[SP[a2, a3], a1, a3, a1, a2, n] + 2*S2[SP[a3, a3], a1, a1, a2, a2, n] + 
    S2[SP[a3, a3], a1, a2, a1, a2, n] + S2[a3, a2, a1, a2, a3, a1, n] + 
    S2[a3, a2, a1, a3, a1, a2, n] + 2*S2[a3, a2, a3, a1, a1, a2, n] - 
    2*S2[a3, a2, a3, a2, a1, a1, n] + S2[a3, a3, a1, a2, a1, a2, n] + 
    2*S2[a3, a3, a2, a1, a1, a2, n] - S2[a3, a3, a2, a1, a2, a1, n] - 
    4*S2[a3, a3, a2, a2, a1, a1, n] /; 
   MyMemberQ[{{a1, a2, a3}}, {a1, a1, a2, a2, a3, a3}] && a1 != a2 != a3, 
 S2[a1_, a3_, a3_, a2_, a2_, a1_, n_] :> 
  -(S2[a1, a3, n]*S2[a1, a2, a2, a3, n]) + S2[a1, a2, SP[a1, a2], SP[a3, a3], 
     n] - S2[a1, a2, n]*S2[a1, a3, a2, a3, n] - 
    2*S2[a1, a2, n]*S2[a1, a3, a3, a2, n] + S2[a1, a3, SP[a1, a2], 
     SP[a2, a3], n] + 2*S2[a1, a3, SP[a1, a3], SP[a2, a2], n] + 
    S2[a1, SP[a1, a2], a2, SP[a3, a3], n] + S2[a1, SP[a1, a2], SP[a2, a3], 
     a3, n] + S2[a1, SP[a1, a3], a2, SP[a2, a3], n] + 
    2*S2[a1, SP[a1, a3], a3, SP[a2, a2], n] + S2[a1, SP[a1, a3], SP[a2, a2], 
     a3, n] + 2*S2[a1, SP[a1, a3], SP[a2, a3], a2, n] + 
    S2[a1, a2, n]*S2[a2, a3, a1, a3, n] - S2[a2, a3, SP[a1, a1], SP[a2, a3], 
     n] - S2[a2, SP[a1, a3], a1, SP[a2, a3], n] - 
    S2[a2, SP[a1, a3], SP[a1, a2], a3, n] + S2[SP[a1, a1], a2, a2, 
     SP[a3, a3], n] + S2[SP[a1, a1], a2, SP[a2, a3], a3, n] + 
    S2[SP[a1, a1], a3, a2, SP[a2, a3], n] + 
    2*S2[SP[a1, a1], a3, a3, SP[a2, a2], n] + S2[SP[a1, a1], a3, SP[a2, a2], 
     a3, n] + 2*S2[SP[a1, a1], a3, SP[a2, a3], a2, n] + 
    2*S2[SP[a1, a1], SP[a2, a3], a2, a3, n] + 
    2*S2[SP[a1, a1], SP[a2, a3], a3, a2, n] - S2[SP[a1, a2], a3, a1, 
     SP[a2, a3], n] - S2[SP[a1, a2], a3, SP[a1, a2], a3, n] - 
    S2[SP[a1, a2], SP[a2, a3], a1, a3, n] + 
    2*S2[a3, n]*S2[a1, a1, a2, a2, a3, n] + 
    2*S2[a3, n]*S2[a1, a1, a2, a3, a2, n] + 
    2*S2[a1, a1, a2, a3, SP[a2, a3], n] + 
    2*S2[a1, a1, a2, SP[a3, a3], a2, n] + 
    2*S2[a3, n]*S2[a1, a1, a3, a2, a2, n] - 
    4*S2[a1, a1, a3, a3, SP[a2, a2], n] - 
    2*S2[a1, a1, a3, SP[a2, a2], a3, n] - 
    2*S2[a1, a1, a3, SP[a2, a3], a2, n] - 
    2*S2[a1, a1, SP[a2, a3], a2, a3, n] - 
    2*S2[a1, a1, SP[a2, a3], a3, a2, n] + 
    2*S2[a1, a1, SP[a3, a3], a2, a2, n] + 
    S2[a3, n]*S2[a1, a2, a1, a2, a3, n] + 
    S2[a3, n]*S2[a1, a2, a1, a3, a2, n] + S2[a1, a2, a1, a3, SP[a2, a3], n] + 
    S2[a1, a2, a1, SP[a3, a3], a2, n] + S2[a3, n]*S2[a1, a2, a2, a1, a3, n] - 
    S2[a2, n]*S2[a1, a2, a3, a1, a3, n] - 
    2*S2[a1, a2, SP[a1, a2], a3, a3, n] + S2[a1, a2, SP[a1, a3], a2, a3, n] + 
    S2[a1, a2, SP[a1, a3], a3, a2, n] + S2[a1, a2, SP[a2, a3], a1, a3, n] + 
    S2[a3, n]*S2[a1, a3, a1, a2, a2, n] - 
    S2[a2, n]*S2[a1, a3, a1, a2, a3, n] - S2[a1, a3, a1, a2, SP[a2, a3], n] - 
    S2[a2, n]*S2[a1, a3, a1, a3, a2, n] - 
    3*S2[a1, a3, a1, a3, SP[a2, a2], n] - 
    2*S2[a1, a3, a1, SP[a2, a2], a3, n] - 
    2*S2[a1, a3, a1, SP[a2, a3], a2, n] - 
    S2[a2, n]*S2[a1, a3, a2, a1, a3, n] - 
    2*S2[a1, a3, a2, a1, SP[a2, a3], n] + 
    S2[a1, n]*S2[a1, a3, a2, a2, a3, n] + S2[a1, a3, a2, a2, SP[a1, a3], n] + 
    S2[a1, n]*S2[a1, a3, a2, a3, a2, n] + S2[a1, a3, a2, a3, SP[a1, a2], n] - 
    2*S2[a1, a3, a3, a1, SP[a2, a2], n] + 
    2*S2[a1, n]*S2[a1, a3, a3, a2, a2, n] + 
    2*S2[a1, a3, a3, a2, SP[a1, a2], n] - S2[a1, a3, SP[a1, a2], a2, a3, n] - 
    S2[a1, a3, SP[a1, a2], a3, a2, n] - S2[a1, a3, SP[a1, a3], a2, a2, n] - 
    S2[a1, a3, SP[a2, a2], a1, a3, n] - 2*S2[a1, SP[a1, a2], a2, a3, a3, n] - 
    2*S2[a1, SP[a1, a2], a3, a2, a3, n] - 
    2*S2[a1, SP[a1, a2], a3, a3, a2, n] + S2[a1, SP[a3, a3], a1, a2, a2, n] + 
    S2[a2, a1, a3, a1, SP[a2, a3], n] + S2[a2, a1, a3, SP[a1, a2], a3, n] + 
    S2[a2, a1, SP[a2, a3], a1, a3, n] + 2*S2[a2, a3, a1, a1, SP[a2, a3], n] + 
    S2[a2, a3, a1, SP[a1, a2], a3, n] + S2[a2, a3, a1, SP[a1, a3], a2, n] + 
    S2[a2, a3, SP[a1, a1], a2, a3, n] + S2[a2, a3, SP[a1, a1], a3, a2, n] + 
    S2[a2, SP[a1, a3], a1, a2, a3, n] + S2[a2, SP[a1, a3], a1, a3, a2, n] + 
    S2[a2, SP[a1, a3], a2, a1, a3, n] - 2*S2[a2, n]*
     S2[a3, a1, a1, a2, a3, n] - 2*S2[a3, a1, a1, a2, SP[a2, a3], n] - 
    2*S2[a2, n]*S2[a3, a1, a1, a3, a2, n] - 
    2*S2[a3, a1, a1, a3, SP[a2, a2], n] - 
    2*S2[a3, a1, a1, SP[a2, a2], a3, n] - 
    2*S2[a3, a1, a1, SP[a2, a3], a2, n] - 
    S2[a2, n]*S2[a3, a1, a2, a1, a3, n] - S2[a3, a1, a2, a1, SP[a2, a3], n] + 
    S2[a1, n]*S2[a3, a1, a2, a2, a3, n] + S2[a3, a1, a2, a2, SP[a1, a3], n] + 
    S2[a1, n]*S2[a3, a1, a2, a3, a2, n] + S2[a3, a1, a2, a3, SP[a1, a2], n] + 
    S2[a3, a1, a2, SP[a1, a3], a2, n] - S2[a2, n]*S2[a3, a1, a3, a1, a2, n] - 
    S2[a3, a1, a3, a1, SP[a2, a2], n] + S2[a1, n]*S2[a3, a1, a3, a2, a2, n] + 
    S2[a3, a1, a3, a2, SP[a1, a2], n] - S2[a3, a1, SP[a1, a2], a2, a3, n] - 
    S2[a3, a1, SP[a1, a2], a3, a2, n] + S2[a3, a1, SP[a1, a3], a2, a2, n] - 
    S2[a3, a1, SP[a2, a2], a1, a3, n] - S2[a3, a1, SP[a2, a3], a1, a2, n] + 
    S2[a1, n]*S2[a3, a2, a1, a2, a3, n] + S2[a3, a2, a1, a2, SP[a1, a3], n] + 
    S2[a1, n]*S2[a3, a2, a1, a3, a2, n] + S2[a3, a2, a1, a3, SP[a1, a2], n] + 
    S2[a3, a2, a1, SP[a1, a2], a3, n] + S2[a3, a2, a1, SP[a1, a3], a2, n] - 
    S2[a1, n]*S2[a3, a2, a2, a3, a1, n] - S2[a3, a2, a2, a3, SP[a1, a1], n] - 
    S2[a3, a2, a2, SP[a1, a3], a1, n] - S2[a1, n]*S2[a3, a2, a3, a2, a1, n] - 
    S2[a3, a2, a3, a2, SP[a1, a1], n] - S2[a3, a2, a3, SP[a1, a2], a1, n] + 
    S2[a3, a2, SP[a1, a1], a2, a3, n] + S2[a3, a2, SP[a1, a1], a3, a2, n] - 
    S2[a3, a2, SP[a1, a2], a3, a1, n] - S2[a3, a2, SP[a1, a3], a2, a1, n] - 
    S2[a1, n]*S2[a3, a3, a2, a2, a1, n] - S2[a3, a3, a2, a2, SP[a1, a1], n] - 
    S2[a3, a3, a2, SP[a1, a2], a1, n] - S2[a3, a3, SP[a1, a2], a2, a1, n] + 
    S2[a3, SP[a1, a1], a2, a2, a3, n] + S2[a3, SP[a1, a1], a2, a3, a2, n] + 
    S2[a3, SP[a1, a1], a3, a2, a2, n] - S2[a3, SP[a1, a2], a1, a2, a3, n] - 
    S2[a3, SP[a1, a2], a1, a3, a2, n] - S2[a3, SP[a1, a2], a2, a1, a3, n] - 
    S2[a3, SP[a1, a2], a2, a3, a1, n] - S2[a3, SP[a1, a2], a3, a1, a2, n] - 
    S2[a3, SP[a1, a2], a3, a2, a1, n] - S2[a3, SP[a1, a3], a2, a2, a1, n] - 
    2*S2[SP[a1, a1], a2, a2, a3, a3, n] - 
    2*S2[SP[a1, a1], a2, a3, a2, a3, n] - 
    2*S2[SP[a1, a1], a2, a3, a3, a2, n] - 
    2*S2[SP[a1, a1], a3, a2, a2, a3, n] - 
    2*S2[SP[a1, a1], a3, a2, a3, a2, n] - 
    2*S2[SP[a1, a1], a3, a3, a2, a2, n] + 
    3*S2[SP[a1, a3], a1, a2, a2, a3, n] + 
    3*S2[SP[a1, a3], a1, a2, a3, a2, n] + 
    3*S2[SP[a1, a3], a1, a3, a2, a2, n] + 
    2*S2[SP[a1, a3], a2, a1, a2, a3, n] + 
    2*S2[SP[a1, a3], a2, a1, a3, a2, n] + S2[SP[a1, a3], a2, a2, a1, a3, n] - 
    S2[SP[a1, a3], a2, a2, a3, a1, n] - S2[SP[a1, a3], a2, a3, a2, a1, n] + 
    S2[SP[a1, a3], a3, a1, a2, a2, n] - S2[SP[a1, a3], a3, a2, a2, a1, n] - 
    2*S2[SP[a2, a3], a1, a1, a2, a3, n] - 
    2*S2[SP[a2, a3], a1, a1, a3, a2, n] - S2[SP[a2, a3], a1, a2, a1, a3, n] - 
    S2[SP[a2, a3], a1, a3, a1, a2, n] + S2[a3, a2, a2, a1, a3, a1, n] + 
    2*S2[a3, a2, a2, a3, a1, a1, n] + S2[a3, a2, a3, a1, a2, a1, n] + 
    2*S2[a3, a2, a3, a2, a1, a1, n] + S2[a3, a3, a1, a2, a2, a1, n] + 
    S2[a3, a3, a2, a1, a2, a1, n] + 2*S2[a3, a3, a2, a2, a1, a1, n] /; 
   MyMemberQ[{{a1, a2, a3}}, {a1, a1, a2, a2, a3, a3}] && a1 != a2 != a3, 
 S2[a2_, a1_, a1_, a2_, a3_, a3_, n_] :> 
  S2[a1, a1, a2, n]*S2[a2, a3, a3, n] + S2[SP[a1, a2], SP[a1, a3], 
     SP[a2, a3], n] - S2[a1, a2, n]*S2[a1, a2, a3, a3, n] - 
    S2[a2, a1, SP[a1, a3], SP[a2, a3], n] - S2[a2, SP[a1, a3], a1, 
     SP[a2, a3], n] - S2[a2, SP[a1, a3], SP[a1, a3], a2, n] + 
    S2[SP[a1, a1], a2, a3, SP[a2, a3], n] + S2[SP[a1, a1], a2, SP[a2, a3], 
     a3, n] + S2[SP[a1, a1], SP[a2, a2], a3, a3, n] - 
    S2[SP[a1, a2], a1, a3, SP[a2, a3], n] - S2[SP[a1, a2], a1, SP[a2, a3], 
     a3, n] - S2[SP[a1, a2], a3, a1, SP[a2, a3], n] - 
    S2[SP[a1, a2], a3, SP[a1, a3], a2, n] - S2[SP[a1, a2], SP[a1, a3], a2, 
     a3, n] - S2[SP[a1, a2], SP[a1, a3], a3, a2, n] + 
    S2[a3, n]*S2[a1, a1, a2, a2, a3, n] + S2[a1, a1, a2, a2, SP[a3, a3], n] + 
    S2[a3, n]*S2[a1, a1, a2, a3, a2, n] + S2[a1, a1, a2, SP[a3, a3], a2, n] + 
    S2[a3, n]*S2[a1, a1, a3, a2, a2, n] - 
    S2[a2, n]*S2[a1, a1, a3, a2, a3, n] - 
    S2[a2, n]*S2[a1, a1, a3, a3, a2, n] - S2[a1, a1, a3, a3, SP[a2, a2], n] - 
    S2[a1, a1, a3, SP[a2, a2], a3, n] - S2[a1, a1, SP[a2, a2], a3, a3, n] + 
    S2[a1, a1, SP[a3, a3], a2, a2, n] + (S2[a3, n]*S2[a1, a2, a1, a2, a3, n])/
     2 + S2[a1, a2, a1, a2, SP[a3, a3], n]/2 + 
    (S2[a3, n]*S2[a1, a2, a1, a3, a2, n])/2 + 
    S2[a1, a2, a1, a3, SP[a2, a3], n]/2 + S2[a1, a2, a1, SP[a2, a3], a3, n]/
     2 + S2[a1, a2, a1, SP[a3, a3], a2, n]/2 + 
    (S2[a3, n]*S2[a1, a2, a3, a1, a2, n])/2 + 
    S2[a1, a2, a3, a1, SP[a2, a3], n]/2 + S2[a1, a2, a3, SP[a1, a3], a2, n]/
     2 + S2[a1, a2, SP[a1, a3], a2, a3, n]/2 + 
    S2[a1, a2, SP[a1, a3], a3, a2, n]/2 + S2[a1, a2, SP[a3, a3], a1, a2, n]/
     2 + S2[a3, n]*S2[a1, a3, a1, a2, a2, n] - 
    S2[a2, n]*S2[a1, a3, a1, a2, a3, n] - 
    S2[a2, n]*S2[a1, a3, a1, a3, a2, n] - S2[a1, a3, a1, a3, SP[a2, a2], n] - 
    S2[a1, a3, a1, SP[a2, a2], a3, n] + (S2[a3, n]*S2[a1, a3, a2, a1, a2, n])/
     2 + S2[a1, a3, a2, a1, SP[a2, a3], n]/2 + 
    S2[a1, a3, a2, SP[a1, a3], a2, n]/2 - 
    S2[a2, n]*S2[a1, a3, a3, a1, a2, n] - S2[a1, a3, a3, a1, SP[a2, a2], n] - 
    S2[a1, a3, a3, SP[a1, a2], a2, n] - S2[a1, a3, SP[a1, a2], a2, a3, n] - 
    S2[a1, a3, SP[a1, a2], a3, a2, n] + S2[a1, a3, SP[a1, a3], a2, a2, n] - 
    S2[a1, a3, SP[a2, a3], a1, a2, n]/2 - S2[a1, SP[a1, a2], a2, a3, a3, n] - 
    S2[a1, SP[a1, a2], a3, a2, a3, n] - S2[a1, SP[a1, a2], a3, a3, a2, n] + 
    S2[a1, SP[a1, a3], a2, a2, a3, n] + S2[a1, SP[a1, a3], a2, a3, a2, n] + 
    S2[a1, SP[a1, a3], a3, a2, a2, n] - S2[a1, SP[a2, a3], a1, a2, a3, n]/2 - 
    S2[a1, SP[a2, a3], a1, a3, a2, n]/2 - S2[a1, SP[a2, a3], a3, a1, a2, n]/
     2 + S2[a1, SP[a3, a3], a1, a2, a2, n] + 
    S2[a1, SP[a3, a3], a2, a1, a2, n]/2 + S2[a2, a1, a1, a3, SP[a2, a3], n] + 
    S2[a2, a1, a1, SP[a2, a3], a3, n] + S2[a2, a1, a3, a1, SP[a2, a3], n] + 
    S2[a2, a1, a3, SP[a1, a3], a2, n] + S2[a2, a1, SP[a1, a3], a2, a3, n] + 
    S2[a2, a1, SP[a1, a3], a3, a2, n] - S2[a3, n]*S2[a2, a3, a1, a1, a2, n] + 
    S2[a2, SP[a1, a3], a1, a2, a3, n] + S2[a2, SP[a1, a3], a1, a3, a2, n] + 
    S2[a2, SP[a1, a3], a3, a1, a2, n] - S2[a2, SP[a3, a3], a1, a1, a2, n] - 
    S2[a3, n]*S2[a3, a1, a1, a2, a2, n] - S2[a3, a1, a1, a2, SP[a2, a3], n] - 
    S2[a3, a1, a1, SP[a2, a3], a2, n] - (S2[a3, n]*S2[a3, a1, a2, a1, a2, n])/
     2 - S2[a3, a1, a2, a1, SP[a2, a3], n]/2 - 
    S2[a3, a1, a2, SP[a1, a3], a2, n]/2 - S2[a3, a1, SP[a1, a3], a2, a2, n] - 
    S2[a3, a1, SP[a2, a3], a1, a2, n]/2 + 
    S2[a2, n]*S2[a3, a3, a1, a1, a2, n] + S2[a3, a3, a1, a1, SP[a2, a2], n] + 
    S2[a3, a3, a1, SP[a1, a2], a2, n] + S2[a3, a3, SP[a1, a2], a1, a2, n] - 
    S2[a3, SP[a1, a3], a1, a2, a2, n] - S2[a3, SP[a1, a3], a2, a1, a2, n]/2 + 
    S2[a3, SP[a2, a3], a1, a1, a2, n] - 2*S2[SP[a1, a1], a2, a2, a3, a3, n] - 
    S2[SP[a1, a1], a2, a3, a2, a3, n] - S2[SP[a1, a1], a2, a3, a3, a2, n] + 
    S2[SP[a1, a2], a1, a2, a3, a3, n] + S2[SP[a1, a3], a1, a2, a2, a3, n] + 
    S2[SP[a1, a3], a1, a2, a3, a2, n] + S2[SP[a1, a3], a1, a3, a2, a2, n] + 
    S2[SP[a1, a3], a2, a1, a2, a3, n]/2 + S2[SP[a1, a3], a2, a1, a3, a2, n]/
     2 + S2[SP[a1, a3], a2, a3, a1, a2, n]/2 + S2[SP[a1, a3], a3, a1, a2, a2, 
     n] + S2[SP[a1, a3], a3, a2, a1, a2, n]/2 - S2[SP[a3, a3], a1, a1, a2, 
     a2, n] - S2[SP[a3, a3], a1, a2, a1, a2, n]/2 - 
    S2[a3, a3, a2, a1, a1, a2, n] /; 
   MyMemberQ[{{a1, a2, a3}}, {a1, a1, a2, a2, a3, a3}] && a1 != a2 != a3, 
 S2[a2_, a1_, a1_, a3_, a2_, a3_, n_] :> 
  -2*S2[a1, a1, a2, n]*S2[a2, a3, a3, n] - 
    2*S2[SP[a1, a2], SP[a1, a3], SP[a2, a3], n] - 
    S2[a2, a3, n]*S2[a1, a1, a2, a3, n] - S2[a2, a3, n]*
     S2[a1, a1, a3, a2, n] + S2[a1, a1, SP[a2, a2], SP[a3, a3], n] + 
    S2[a1, a1, SP[a2, a3], SP[a2, a3], n] - S2[a2, a3, n]*
     S2[a1, a2, a1, a3, n] + S2[a1, a2, SP[a1, a2], SP[a3, a3], n] + 
    2*S2[a1, a2, SP[a1, a3], SP[a2, a3], n] - 2*S2[a1, a2, n]*
     S2[a1, a3, a2, a3, n] - 2*S2[a1, a2, n]*S2[a1, a3, a3, a2, n] + 
    2*S2[a1, a3, SP[a1, a2], SP[a2, a3], n] + 
    2*S2[a1, a3, SP[a1, a3], SP[a2, a2], n] + S2[a1, SP[a1, a2], a2, 
     SP[a3, a3], n] + 3*S2[a1, SP[a1, a2], a3, SP[a2, a3], n] + 
    3*S2[a1, SP[a1, a2], SP[a2, a3], a3, n] + S2[a1, SP[a1, a2], SP[a3, a3], 
     a2, n] + 2*S2[a1, SP[a1, a3], a2, SP[a2, a3], n] + 
    2*S2[a1, SP[a1, a3], a3, SP[a2, a2], n] + 
    2*S2[a1, SP[a1, a3], SP[a2, a2], a3, n] + 
    2*S2[a1, SP[a1, a3], SP[a2, a3], a2, n] + S2[a1, SP[a2, a2], a1, 
     SP[a3, a3], n] + S2[a1, SP[a2, a2], SP[a1, a3], a3, n] + 
    2*S2[a2, a1, SP[a1, a3], SP[a2, a3], n] + 
    S2[a1, a2, n]*S2[a2, a3, a1, a3, n] - S2[a2, a3, SP[a1, a1], SP[a2, a3], 
     n] + S2[a2, SP[a1, a3], a1, SP[a2, a3], n] - 
    S2[a2, SP[a1, a3], SP[a1, a2], a3, n] + 
    2*S2[a2, SP[a1, a3], SP[a1, a3], a2, n] + 
    2*S2[SP[a1, a1], a3, a2, SP[a2, a3], n] + 
    2*S2[SP[a1, a1], a3, a3, SP[a2, a2], n] + 
    2*S2[SP[a1, a1], a3, SP[a2, a2], a3, n] + 
    2*S2[SP[a1, a1], a3, SP[a2, a3], a2, n] + 
    2*S2[SP[a1, a1], SP[a2, a3], a2, a3, n] + 
    2*S2[SP[a1, a1], SP[a2, a3], a3, a2, n] + S2[SP[a1, a2], a1, a2, 
     SP[a3, a3], n] + 3*S2[SP[a1, a2], a1, a3, SP[a2, a3], n] + 
    3*S2[SP[a1, a2], a1, SP[a2, a3], a3, n] + S2[SP[a1, a2], a1, SP[a3, a3], 
     a2, n] + S2[SP[a1, a2], a2, a1, SP[a3, a3], n] + 
    S2[SP[a1, a2], a2, SP[a1, a3], a3, n] + S2[SP[a1, a2], a3, a1, 
     SP[a2, a3], n] - S2[SP[a1, a2], a3, SP[a1, a2], a3, n] + 
    2*S2[SP[a1, a2], a3, SP[a1, a3], a2, n] + 
    3*S2[SP[a1, a2], SP[a1, a3], a2, a3, n] + 
    3*S2[SP[a1, a2], SP[a1, a3], a3, a2, n] - 
    2*S2[a1, a1, a2, a2, SP[a3, a3], n] + 
    4*S2[a2, n]*S2[a1, a1, a2, a3, a3, n] + S2[a1, a1, a2, a3, SP[a2, a3], 
     n] - S2[a1, a1, a2, SP[a3, a3], a2, n] + 
    5*S2[a2, n]*S2[a1, a1, a3, a2, a3, n] + 
    4*S2[a2, n]*S2[a1, a1, a3, a3, a2, n] - S2[a1, a1, SP[a2, a3], a3, a2, 
     n] - 2*S2[a1, a2, a1, a2, SP[a3, a3], n] + 
    2*S2[a2, n]*S2[a1, a2, a1, a3, a3, n] - S2[a1, a2, a1, a3, SP[a2, a3], 
     n] - 2*S2[a1, a2, a1, SP[a2, a3], a3, n] - S2[a1, a2, a1, SP[a3, a3], 
     a2, n] - 2*S2[a1, a2, a2, a1, SP[a3, a3], n] - 
    2*S2[a1, a2, a2, SP[a1, a3], a3, n] - S2[a1, a2, a3, a1, SP[a2, a3], n] + 
    S2[a1, a2, a3, SP[a1, a2], a3, n] - 2*S2[a1, a2, a3, SP[a1, a3], a2, n] - 
    3*S2[a1, a2, SP[a1, a3], a2, a3, n] - 
    3*S2[a1, a2, SP[a1, a3], a3, a2, n] + 
    2*S2[a2, n]*S2[a1, a3, a1, a2, a3, n] + 
    2*S2[a2, n]*S2[a1, a3, a1, a3, a2, n] - 
    2*S2[a1, a3, a2, a1, SP[a2, a3], n] - 
    2*S2[a1, a3, a2, SP[a1, a3], a2, n] + 
    2*S2[a2, n]*S2[a1, a3, a3, a1, a2, n] - 
    4*S2[a1, a3, SP[a1, a3], a2, a2, n] + 
    2*S2[a1, a3, SP[a2, a3], a1, a2, n] - S2[a1, SP[a1, a2], a3, a2, a3, n] - 
    2*S2[a1, SP[a1, a2], a3, a3, a2, n] - 
    4*S2[a1, SP[a1, a3], a2, a2, a3, n] - 
    4*S2[a1, SP[a1, a3], a2, a3, a2, n] - 
    4*S2[a1, SP[a1, a3], a3, a2, a2, n] + 
    2*S2[a1, SP[a2, a3], a1, a2, a3, n] + 
    2*S2[a1, SP[a2, a3], a1, a3, a2, n] + 
    2*S2[a1, SP[a2, a3], a3, a1, a2, n] - S2[a2, a1, a1, a2, SP[a3, a3], n] - 
    3*S2[a2, a1, a1, a3, SP[a2, a3], n] - 
    3*S2[a2, a1, a1, SP[a2, a3], a3, n] - S2[a2, a1, a1, SP[a3, a3], a2, n] - 
    S2[a2, a1, a2, a1, SP[a3, a3], n] - S2[a2, a1, a2, SP[a1, a3], a3, n] - 
    S2[a2, a1, a3, a1, SP[a2, a3], n] + S2[a2, a1, a3, SP[a1, a2], a3, n] - 
    2*S2[a2, a1, a3, SP[a1, a3], a2, n] - 
    3*S2[a2, a1, SP[a1, a3], a2, a3, n] - 
    3*S2[a2, a1, SP[a1, a3], a3, a2, n] + 
    S2[a3, n]*S2[a2, a3, a1, a1, a2, n] + S2[a2, a3, a1, a1, SP[a2, a3], n] + 
    S2[a2, a3, a1, SP[a1, a2], a3, n] + S2[a2, a3, SP[a1, a1], a2, a3, n] + 
    S2[a2, a3, SP[a1, a1], a3, a2, n] - S2[a2, a3, SP[a1, a3], a1, a2, n] - 
    2*S2[a2, SP[a1, a3], a1, a2, a3, n] - 
    2*S2[a2, SP[a1, a3], a1, a3, a2, n] - 
    2*S2[a2, SP[a1, a3], a3, a1, a2, n] + S2[a2, SP[a3, a3], a1, a1, a2, n] - 
    2*S2[SP[a1, a1], a2, a3, a2, a3, n] - 
    2*S2[SP[a1, a1], a2, a3, a3, a2, n] - 
    4*S2[SP[a1, a1], a3, a2, a2, a3, n] - 
    4*S2[SP[a1, a1], a3, a2, a3, a2, n] - 
    4*S2[SP[a1, a1], a3, a3, a2, a2, n] + S2[SP[a1, a2], a1, a3, a2, a3, n] + 
    S2[SP[a2, a3], a3, a1, a1, a2, n] - S2[a3, a2, a3, a1, a1, a2, n] /; 
   MyMemberQ[{{a1, a2, a3}}, {a1, a1, a2, a2, a3, a3}] && a1 != a2 != a3, 
 S2[a2_, a1_, a1_, a3_, a3_, a2_, n_] :> 
  S2[a1, a1, a2, n]*S2[a2, a3, a3, n] + S2[SP[a1, a2], SP[a1, a3], 
     SP[a2, a3], n] + S2[a2, a3, n]*S2[a1, a1, a2, a3, n] + 
    S2[a2, a3, n]*S2[a1, a1, a3, a2, n] - S2[a1, a1, SP[a2, a2], SP[a3, a3], 
     n] - S2[a1, a1, SP[a2, a3], SP[a2, a3], n] + 
    S2[a2, a3, n]*S2[a1, a2, a1, a3, n] - S2[a1, a2, SP[a1, a2], SP[a3, a3], 
     n] - S2[a1, a2, SP[a1, a3], SP[a2, a3], n] + 
    S2[a1, a2, n]*S2[a1, a3, a2, a3, n] + S2[a1, a2, n]*
     S2[a1, a3, a3, a2, n] - S2[a1, a3, SP[a1, a2], SP[a2, a3], n] - 
    S2[a1, a3, SP[a1, a3], SP[a2, a2], n] - S2[a1, SP[a1, a2], a2, 
     SP[a3, a3], n] - 2*S2[a1, SP[a1, a2], a3, SP[a2, a3], n] - 
    2*S2[a1, SP[a1, a2], SP[a2, a3], a3, n] - S2[a1, SP[a1, a2], SP[a3, a3], 
     a2, n] - S2[a1, SP[a1, a3], a2, SP[a2, a3], n] - 
    S2[a1, SP[a1, a3], a3, SP[a2, a2], n] - S2[a1, SP[a1, a3], SP[a2, a2], 
     a3, n] - S2[a1, SP[a1, a3], SP[a2, a3], a2, n] - 
    S2[a1, SP[a2, a2], a1, SP[a3, a3], n] - S2[a1, SP[a2, a2], SP[a1, a3], 
     a3, n] - S2[a2, a1, SP[a1, a3], SP[a2, a3], n] - 
    S2[a1, a2, n]*S2[a2, a3, a1, a3, n] + S2[a2, a3, SP[a1, a1], SP[a2, a3], 
     n] + S2[a2, SP[a1, a3], SP[a1, a2], a3, n] - 
    S2[a2, SP[a1, a3], SP[a1, a3], a2, n] - S2[SP[a1, a1], a3, a2, 
     SP[a2, a3], n] - S2[SP[a1, a1], a3, a3, SP[a2, a2], n] - 
    S2[SP[a1, a1], a3, SP[a2, a2], a3, n] - S2[SP[a1, a1], a3, SP[a2, a3], 
     a2, n] - S2[SP[a1, a1], SP[a2, a3], a2, a3, n] - 
    S2[SP[a1, a1], SP[a2, a3], a3, a2, n] - S2[SP[a1, a2], a1, a2, 
     SP[a3, a3], n] - 2*S2[SP[a1, a2], a1, a3, SP[a2, a3], n] - 
    2*S2[SP[a1, a2], a1, SP[a2, a3], a3, n] - S2[SP[a1, a2], a1, SP[a3, a3], 
     a2, n] - S2[SP[a1, a2], a2, a1, SP[a3, a3], n] - 
    S2[SP[a1, a2], a2, SP[a1, a3], a3, n] + S2[SP[a1, a2], a3, SP[a1, a2], 
     a3, n] - S2[SP[a1, a2], a3, SP[a1, a3], a2, n] - 
    2*S2[SP[a1, a2], SP[a1, a3], a2, a3, n] - 
    2*S2[SP[a1, a2], SP[a1, a3], a3, a2, n] + 
    2*S2[a1, a1, a2, a2, SP[a3, a3], n] - 
    3*S2[a2, n]*S2[a1, a1, a2, a3, a3, n] - S2[a1, a1, a2, a3, SP[a2, a3], 
     n] + S2[a1, a1, a2, SP[a3, a3], a2, n] - 
    3*S2[a2, n]*S2[a1, a1, a3, a2, a3, n] - 
    2*S2[a2, n]*S2[a1, a1, a3, a3, a2, n] + S2[a1, a1, SP[a2, a3], a3, a2, 
     n] + 2*S2[a1, a2, a1, a2, SP[a3, a3], n] - 
    2*S2[a2, n]*S2[a1, a2, a1, a3, a3, n] + S2[a1, a2, a1, SP[a2, a3], a3, 
     n] + S2[a1, a2, a1, SP[a3, a3], a2, n] + 
    2*S2[a1, a2, a2, a1, SP[a3, a3], n] + 
    2*S2[a1, a2, a2, SP[a1, a3], a3, n] - S2[a1, a2, a3, SP[a1, a2], a3, n] + 
    S2[a1, a2, a3, SP[a1, a3], a2, n] + 2*S2[a1, a2, SP[a1, a3], a2, a3, n] + 
    2*S2[a1, a2, SP[a1, a3], a3, a2, n] - 
    S2[a2, n]*S2[a1, a3, a1, a2, a3, n] - 
    S2[a2, n]*S2[a1, a3, a1, a3, a2, n] + S2[a1, a3, a2, a1, SP[a2, a3], n] + 
    S2[a1, a3, a2, SP[a1, a3], a2, n] - S2[a2, n]*S2[a1, a3, a3, a1, a2, n] + 
    2*S2[a1, a3, SP[a1, a3], a2, a2, n] - S2[a1, a3, SP[a2, a3], a1, a2, n] + 
    S2[a1, SP[a1, a2], a3, a2, a3, n] + 2*S2[a1, SP[a1, a2], a3, a3, a2, n] + 
    2*S2[a1, SP[a1, a3], a2, a2, a3, n] + 
    2*S2[a1, SP[a1, a3], a2, a3, a2, n] + 
    2*S2[a1, SP[a1, a3], a3, a2, a2, n] - S2[a1, SP[a2, a3], a1, a2, a3, n] - 
    S2[a1, SP[a2, a3], a1, a3, a2, n] - S2[a1, SP[a2, a3], a3, a1, a2, n] + 
    S2[a2, a1, a1, a2, SP[a3, a3], n] + 2*S2[a2, a1, a1, a3, SP[a2, a3], n] + 
    2*S2[a2, a1, a1, SP[a2, a3], a3, n] + S2[a2, a1, a1, SP[a3, a3], a2, n] + 
    S2[a2, a1, a2, a1, SP[a3, a3], n] + S2[a2, a1, a2, SP[a1, a3], a3, n] - 
    S2[a2, a1, a3, SP[a1, a2], a3, n] + S2[a2, a1, a3, SP[a1, a3], a2, n] + 
    2*S2[a2, a1, SP[a1, a3], a2, a3, n] + 
    2*S2[a2, a1, SP[a1, a3], a3, a2, n] - S2[a2, a3, a1, a1, SP[a2, a3], n] - 
    S2[a2, a3, a1, SP[a1, a2], a3, n] - S2[a2, a3, SP[a1, a1], a2, a3, n] - 
    S2[a2, a3, SP[a1, a1], a3, a2, n] + S2[a2, a3, SP[a1, a3], a1, a2, n] + 
    S2[a2, SP[a1, a3], a1, a2, a3, n] + S2[a2, SP[a1, a3], a1, a3, a2, n] + 
    S2[a2, SP[a1, a3], a3, a1, a2, n] - S2[a2, n]*S2[a3, a3, a1, a1, a2, n] - 
    S2[a3, a3, a1, a1, SP[a2, a2], n] - S2[a3, a3, a1, SP[a1, a2], a2, n] - 
    S2[a3, a3, SP[a1, a2], a1, a2, n] - S2[a3, SP[a2, a3], a1, a1, a2, n] + 
    S2[SP[a1, a1], a2, a3, a2, a3, n] + S2[SP[a1, a1], a2, a3, a3, a2, n] + 
    2*S2[SP[a1, a1], a3, a2, a2, a3, n] + 
    2*S2[SP[a1, a1], a3, a2, a3, a2, n] + 
    2*S2[SP[a1, a1], a3, a3, a2, a2, n] + S2[SP[a1, a2], a1, a3, a3, a2, n] - 
    S2[SP[a2, a3], a3, a1, a1, a2, n] + S2[a3, a2, a3, a1, a1, a2, n] + 
    2*S2[a3, a3, a1, a1, a2, a2, n] + S2[a3, a3, a1, a2, a1, a2, n] + 
    S2[a3, a3, a2, a1, a1, a2, n] /; 
   MyMemberQ[{{a1, a2, a3}}, {a1, a1, a2, a2, a3, a3}] && a1 != a2 != a3, 
 S2[a2_, a1_, a2_, a1_, a3_, a3_, n_] :> 
  -2*S2[a1, a2, a2, n]*S2[a1, a3, a3, n] - 
    2*S2[SP[a1, a1], SP[a2, a3], SP[a2, a3], n] + 
    4*S2[a1, a1, SP[a2, a3], SP[a2, a3], n] + 
    S2[a1, a2, n]*S2[a1, a2, a3, a3, n] - S2[a1, a2, SP[a1, a3], SP[a2, a3], 
     n] + S2[a1, a2, n]*S2[a1, a3, a2, a3, n] + 
    S2[a1, a2, n]*S2[a1, a3, a3, a2, n] - S2[a1, a3, SP[a1, a2], SP[a2, a3], 
     n] - S2[a1, a3, SP[a1, a3], SP[a2, a2], n] + S2[a1, SP[a1, a2], a3, 
     SP[a2, a3], n] + S2[a1, SP[a1, a2], SP[a2, a3], a3, n] + 
    S2[a1, SP[a1, a3], a2, SP[a2, a3], n] - S2[a1, SP[a1, a3], a3, 
     SP[a2, a2], n] - S2[a1, SP[a1, a3], SP[a2, a2], a3, n] + 
    S2[a1, SP[a1, a3], SP[a2, a3], a2, n] + S2[SP[a1, a1], a2, a3, 
     SP[a2, a3], n] + S2[SP[a1, a1], a2, SP[a2, a3], a3, n] + 
    S2[SP[a1, a1], a3, a2, SP[a2, a3], n] - S2[SP[a1, a1], a3, a3, 
     SP[a2, a2], n] - S2[SP[a1, a1], a3, SP[a2, a2], a3, n] + 
    S2[SP[a1, a1], a3, SP[a2, a3], a2, n] - S2[SP[a1, a1], SP[a2, a2], a3, 
     a3, n] + S2[SP[a1, a1], SP[a2, a3], a2, a3, n] + 
    S2[SP[a1, a1], SP[a2, a3], a3, a2, n] - 
    2*S2[a1, a1, a2, a3, SP[a2, a3], n] - 
    2*S2[a1, a1, a2, SP[a2, a3], a3, n] - 
    2*S2[a1, a1, a3, a2, SP[a2, a3], n] + 
    2*S2[a1, a1, a3, a3, SP[a2, a2], n] + 
    2*S2[a1, a1, a3, SP[a2, a2], a3, n] - 
    2*S2[a1, a1, a3, SP[a2, a3], a2, n] + 
    2*S2[a1, a1, SP[a2, a2], a3, a3, n] - 
    2*S2[a1, a1, SP[a2, a3], a2, a3, n] - 
    2*S2[a1, a1, SP[a2, a3], a3, a2, n] - 
    (S2[a3, n]*S2[a1, a2, a1, a2, a3, n])/2 - 
    S2[a1, a2, a1, a2, SP[a3, a3], n]/2 - 
    (S2[a3, n]*S2[a1, a2, a1, a3, a2, n])/2 + 
    S2[a2, n]*S2[a1, a2, a1, a3, a3, n] - S2[a1, a2, a1, a3, SP[a2, a3], n]/
     2 - S2[a1, a2, a1, SP[a2, a3], a3, n]/2 - 
    S2[a1, a2, a1, SP[a3, a3], a2, n]/2 - 
    (S2[a3, n]*S2[a1, a2, a3, a1, a2, n])/2 + 
    S2[a1, a2, a3, a1, SP[a2, a3], n]/2 + S2[a1, a2, a3, SP[a1, a3], a2, n]/
     2 - S2[a1, a2, SP[a1, a2], a3, a3, n] + 
    S2[a1, a2, SP[a1, a3], a2, a3, n]/2 + S2[a1, a2, SP[a1, a3], a3, a2, n]/
     2 - S2[a1, a2, SP[a3, a3], a1, a2, n]/2 - S2[a1, a3, a1, a2, SP[a2, a3], 
     n] + S2[a1, a3, a1, a3, SP[a2, a2], n] + S2[a1, a3, a1, SP[a2, a2], a3, 
     n] - S2[a1, a3, a1, SP[a2, a3], a2, n] - 
    (S2[a3, n]*S2[a1, a3, a2, a1, a2, n])/2 + 
    S2[a1, a3, a2, a1, SP[a2, a3], n]/2 + S2[a1, a3, a2, SP[a1, a3], a2, n]/
     2 + S2[a1, a3, a3, a1, SP[a2, a2], n] + S2[a1, a3, a3, SP[a1, a2], a2, 
     n] + S2[a1, a3, SP[a1, a2], a2, a3, n] + S2[a1, a3, SP[a1, a2], a3, a2, 
     n] - S2[a1, a3, SP[a2, a3], a1, a2, n]/2 + S2[a1, SP[a2, a2], a1, a3, 
     a3, n] - S2[a1, SP[a2, a3], a1, a2, a3, n]/2 - 
    S2[a1, SP[a2, a3], a1, a3, a2, n]/2 - S2[a1, SP[a2, a3], a3, a1, a2, n]/
     2 - S2[a1, SP[a3, a3], a2, a1, a2, n]/2 + 
    (S2[a3, n]*S2[a3, a1, a2, a1, a2, n])/2 + 
    S2[a3, a1, a2, a1, SP[a2, a3], n]/2 + S2[a3, a1, a2, SP[a1, a3], a2, n]/
     2 + S2[a3, a1, SP[a2, a3], a1, a2, n]/2 + 
    S2[a3, SP[a1, a3], a2, a1, a2, n]/2 + S2[SP[a1, a2], a2, a1, a3, a3, n] - 
    S2[SP[a1, a3], a2, a1, a2, a3, n]/2 - S2[SP[a1, a3], a2, a1, a3, a2, n]/
     2 - S2[SP[a1, a3], a2, a3, a1, a2, n]/2 - 
    S2[SP[a1, a3], a3, a2, a1, a2, n]/2 + S2[SP[a3, a3], a1, a2, a1, a2, n]/
     2 - S2[a3, a3, a1, a2, a1, a2, n] /; 
   MyMemberQ[{{a1, a2, a3}}, {a1, a1, a2, a2, a3, a3}] && a1 != a2 != a3, 
 S2[a2_, a1_, a2_, a3_, a1_, a3_, n_] :> 
  S2[a1, a2, a3, n]^2/2 + 4*S2[a1, a2, a2, n]*S2[a1, a3, a3, n] + 
    S2[SP[a1, a1], SP[a2, a2], SP[a3, a3], n]/2 + 
    4*S2[SP[a1, a1], SP[a2, a3], SP[a2, a3], n] - S2[a1, a1, SP[a2, a2], 
     SP[a3, a3], n] - 8*S2[a1, a1, SP[a2, a3], SP[a2, a3], n] - 
    S2[a1, SP[a1, a2], a2, SP[a3, a3], n] - 
    4*S2[a1, SP[a1, a2], a3, SP[a2, a3], n] - 
    5*S2[a1, SP[a1, a2], SP[a2, a3], a3, n] - 
    4*S2[a1, SP[a1, a3], a2, SP[a2, a3], n] - 
    4*S2[a1, SP[a1, a3], SP[a2, a3], a2, n] - 
    S2[a1, a2, n]*S2[a2, a3, a1, a3, n] + S2[a2, a3, SP[a1, a1], SP[a2, a3], 
     n] + S2[a2, SP[a1, a3], a1, SP[a2, a3], n] + 
    S2[a2, SP[a1, a3], SP[a1, a2], a3, n] - S2[SP[a1, a1], a2, a2, 
     SP[a3, a3], n] - 4*S2[SP[a1, a1], a2, a3, SP[a2, a3], n] - 
    5*S2[SP[a1, a1], a2, SP[a2, a3], a3, n] - 
    4*S2[SP[a1, a1], a3, a2, SP[a2, a3], n] - 
    4*S2[SP[a1, a1], a3, SP[a2, a3], a2, n] - S2[SP[a1, a1], SP[a2, a2], a3, 
     a3, n] - 4*S2[SP[a1, a1], SP[a2, a3], a2, a3, n] - 
    4*S2[SP[a1, a1], SP[a2, a3], a3, a2, n] + S2[SP[a1, a2], a3, a1, 
     SP[a2, a3], n] + S2[SP[a1, a2], a3, SP[a1, a2], a3, n] + 
    S2[SP[a1, a2], SP[a2, a3], a1, a3, n] - 
    6*S2[a3, n]*S2[a1, a1, a2, a2, a3, n] - 
    4*S2[a1, a1, a2, a2, SP[a3, a3], n] - 
    4*S2[a3, n]*S2[a1, a1, a2, a3, a2, n] + 
    4*S2[a1, a1, a2, a3, SP[a2, a3], n] + 
    4*S2[a1, a1, a2, SP[a2, a3], a3, n] - 
    4*S2[a1, a1, a2, SP[a3, a3], a2, n] - 
    2*S2[a3, n]*S2[a1, a1, a3, a2, a2, n] + 
    6*S2[a1, a1, a3, a2, SP[a2, a3], n] + 
    6*S2[a1, a1, a3, SP[a2, a3], a2, n] + 
    2*S2[a1, a1, SP[a2, a2], a3, a3, n] + 
    2*S2[a1, a1, SP[a2, a3], a2, a3, n] + 
    4*S2[a1, a1, SP[a2, a3], a3, a2, n] - 
    2*S2[a1, a1, SP[a3, a3], a2, a2, n] - 
    3*S2[a3, n]*S2[a1, a2, a1, a2, a3, n] - 
    2*S2[a1, a2, a1, a2, SP[a3, a3], n] - 
    2*S2[a3, n]*S2[a1, a2, a1, a3, a2, n] + 
    2*S2[a1, a2, a1, a3, SP[a2, a3], n] + 
    2*S2[a1, a2, a1, SP[a2, a3], a3, n] - 
    2*S2[a1, a2, a1, SP[a3, a3], a2, n] - 
    2*S2[a3, n]*S2[a1, a2, a2, a1, a3, n] - 
    2*S2[a1, a2, a2, a1, SP[a3, a3], n] - 
    2*S2[a1, a2, a2, SP[a1, a3], a3, n] + 
    2*S2[a2, n]*S2[a1, a2, a3, a1, a3, n] + S2[a1, a2, a3, a1, SP[a2, a3], 
     n] + S2[a1, a2, a3, SP[a1, a2], a3, n] + 
    4*S2[a1, a2, SP[a1, a2], a3, a3, n] - 
    2*S2[a1, a2, SP[a1, a3], a2, a3, n] - 
    2*S2[a1, a2, SP[a1, a3], a3, a2, n] - S2[a1, a2, SP[a2, a3], a1, a3, n] + 
    S2[a2, n]*S2[a1, a3, a1, a2, a3, n] + 
    5*S2[a1, a3, a1, a2, SP[a2, a3], n] + 
    S2[a2, n]*S2[a1, a3, a1, a3, a2, n] + S2[a1, a3, a1, a3, SP[a2, a2], n] + 
    S2[a1, a3, a1, SP[a2, a2], a3, n] + 5*S2[a1, a3, a1, SP[a2, a3], a2, n] + 
    2*S2[a3, n]*S2[a1, a3, a2, a1, a2, n] + 
    S2[a2, n]*S2[a1, a3, a2, a1, a3, n] + 
    3*S2[a1, a3, a2, a1, SP[a2, a3], n] - 
    S2[a1, n]*S2[a1, a3, a2, a3, a2, n] - S2[a1, a3, a2, a3, SP[a1, a2], n] + 
    S2[a1, a3, a2, SP[a1, a2], a3, n] + S2[a1, a3, a2, SP[a1, a3], a2, n] - 
    2*S2[a1, n]*S2[a1, a3, a3, a2, a2, n] - 
    2*S2[a1, a3, a3, a2, SP[a1, a2], n] - 
    2*S2[a1, a3, a3, SP[a1, a2], a2, n] + S2[a1, a3, SP[a1, a2], a2, a3, n] + 
    2*S2[a1, a3, SP[a1, a3], a2, a2, n] + S2[a1, a3, SP[a2, a2], a1, a3, n] + 
    2*S2[a1, a3, SP[a2, a3], a1, a2, n] + 
    6*S2[a1, SP[a1, a2], a2, a3, a3, n] + 
    5*S2[a1, SP[a1, a2], a3, a2, a3, n] + 
    4*S2[a1, SP[a1, a2], a3, a3, a2, n] - 
    2*S2[a1, SP[a1, a3], a2, a2, a3, n] - S2[a1, SP[a1, a3], a2, a3, a2, n] + 
    S2[a1, SP[a2, a2], a3, a1, a3, n] - 2*S2[a1, SP[a2, a3], a1, a2, a3, n] - 
    S2[a1, SP[a2, a3], a1, a3, a2, n] - S2[a1, SP[a2, a3], a2, a1, a3, n] + 
    2*S2[a1, SP[a3, a3], a2, a1, a2, n] - S2[a2, a1, a3, a1, SP[a2, a3], n] - 
    S2[a2, a1, a3, SP[a1, a2], a3, n] - S2[a2, a1, SP[a2, a3], a1, a3, n] - 
    2*S2[a2, a3, a1, a1, SP[a2, a3], n] - S2[a2, a3, a1, SP[a1, a2], a3, n] - 
    S2[a2, a3, a1, SP[a1, a3], a2, n] - S2[a2, a3, SP[a1, a1], a2, a3, n] - 
    S2[a2, a3, SP[a1, a1], a3, a2, n] - S2[a2, SP[a1, a3], a1, a2, a3, n] - 
    S2[a2, SP[a1, a3], a1, a3, a2, n] - S2[a2, SP[a1, a3], a2, a1, a3, n] + 
    2*S2[a3, n]*S2[a3, a1, a1, a2, a2, n] + 
    2*S2[a2, n]*S2[a3, a1, a1, a2, a3, n] + 
    4*S2[a3, a1, a1, a2, SP[a2, a3], n] + 
    2*S2[a2, n]*S2[a3, a1, a1, a3, a2, n] + 
    2*S2[a3, a1, a1, a3, SP[a2, a2], n] + 
    2*S2[a3, a1, a1, SP[a2, a2], a3, n] + 
    4*S2[a3, a1, a1, SP[a2, a3], a2, n] + 
    S2[a3, n]*S2[a3, a1, a2, a1, a2, n] + 
    S2[a2, n]*S2[a3, a1, a2, a1, a3, n] + 
    2*S2[a3, a1, a2, a1, SP[a2, a3], n] - 
    S2[a1, n]*S2[a3, a1, a2, a3, a2, n] - S2[a3, a1, a2, a3, SP[a1, a2], n] + 
    S2[a3, a1, a2, SP[a1, a2], a3, n] + S2[a2, n]*S2[a3, a1, a3, a1, a2, n] + 
    S2[a3, a1, a3, a1, SP[a2, a2], n] - 2*S2[a1, n]*
     S2[a3, a1, a3, a2, a2, n] - 2*S2[a3, a1, a3, a2, SP[a1, a2], n] - 
    S2[a3, a1, a3, SP[a1, a2], a2, n] + 2*S2[a3, a1, SP[a1, a2], a2, a3, n] + 
    S2[a3, a1, SP[a1, a2], a3, a2, n] + S2[a3, a1, SP[a2, a2], a1, a3, n] + 
    2*S2[a3, a1, SP[a2, a3], a1, a2, n] - 
    S2[a1, n]*S2[a3, a2, a1, a2, a3, n] - S2[a3, a2, a1, a2, SP[a1, a3], n] - 
    S2[a1, n]*S2[a3, a2, a1, a3, a2, n] - S2[a3, a2, a1, a3, SP[a1, a2], n] - 
    S2[a3, a2, a1, SP[a1, a2], a3, n] - S2[a3, a2, a1, SP[a1, a3], a2, n] - 
    S2[a1, n]*S2[a3, a2, a3, a1, a2, n] - S2[a3, a2, a3, a1, SP[a1, a2], n] + 
    S2[a1, n]*S2[a3, a2, a3, a2, a1, n] + S2[a3, a2, a3, a2, SP[a1, a1], n] - 
    S2[a3, a2, a3, SP[a1, a1], a2, n] + S2[a3, a2, a3, SP[a1, a2], a1, n] - 
    S2[a3, a2, SP[a1, a1], a2, a3, n] - S2[a3, a2, SP[a1, a1], a3, a2, n] - 
    S2[a3, a2, SP[a1, a3], a1, a2, n] + S2[a3, a2, SP[a1, a3], a2, a1, n] - 
    2*S2[a1, n]*S2[a3, a3, a1, a2, a2, n] - 
    2*S2[a3, a3, a1, a2, SP[a1, a2], n] - 
    2*S2[a3, a3, a1, SP[a1, a2], a2, n] - 
    2*S2[a1, n]*S2[a3, a3, a2, a1, a2, n] - 
    2*S2[a3, a3, a2, a1, SP[a1, a2], n] + 
    2*S2[a1, n]*S2[a3, a3, a2, a2, a1, n] + 
    2*S2[a3, a3, a2, a2, SP[a1, a1], n] - 
    2*S2[a3, a3, a2, SP[a1, a1], a2, n] + 
    2*S2[a3, a3, a2, SP[a1, a2], a1, n] - 
    2*S2[a3, a3, SP[a1, a1], a2, a2, n] - 
    2*S2[a3, a3, SP[a1, a2], a1, a2, n] + 
    2*S2[a3, a3, SP[a1, a2], a2, a1, n] - S2[a3, SP[a1, a1], a2, a3, a2, n] - 
    2*S2[a3, SP[a1, a1], a3, a2, a2, n] + S2[a3, SP[a1, a2], a1, a2, a3, n] + 
    S2[a3, SP[a1, a2], a1, a3, a2, n] + S2[a3, SP[a1, a2], a2, a1, a3, n] + 
    S2[a3, SP[a1, a2], a3, a2, a1, n] - S2[a3, SP[a1, a3], a2, a1, a2, n] + 
    2*S2[a3, SP[a1, a3], a2, a2, a1, n] + 
    6*S2[SP[a1, a1], a2, a2, a3, a3, n] + 
    5*S2[SP[a1, a1], a2, a3, a2, a3, n] + 
    4*S2[SP[a1, a1], a2, a3, a3, a2, n] + 
    4*S2[SP[a1, a1], a3, a2, a2, a3, n] + 
    3*S2[SP[a1, a1], a3, a2, a3, a2, n] + 
    2*S2[SP[a1, a1], a3, a3, a2, a2, n] + S2[SP[a1, a2], a2, a3, a1, a3, n] - 
    6*S2[SP[a1, a3], a1, a2, a2, a3, n] - 
    5*S2[SP[a1, a3], a1, a2, a3, a2, n] - 
    4*S2[SP[a1, a3], a1, a3, a2, a2, n] - 
    4*S2[SP[a1, a3], a2, a1, a2, a3, n] - 
    3*S2[SP[a1, a3], a2, a1, a3, a2, n] - 
    2*S2[SP[a1, a3], a2, a2, a1, a3, n] - S2[SP[a1, a3], a2, a3, a1, a2, n] + 
    S2[SP[a1, a3], a2, a3, a2, a1, n] - 2*S2[SP[a1, a3], a3, a1, a2, a2, n] + 
    2*S2[SP[a1, a3], a3, a2, a2, a1, n] + 
    2*S2[SP[a2, a3], a1, a1, a2, a3, n] + 
    2*S2[SP[a2, a3], a1, a1, a3, a2, n] + S2[SP[a2, a3], a1, a2, a1, a3, n] + 
    S2[SP[a2, a3], a1, a3, a1, a2, n] + 2*S2[SP[a3, a3], a1, a1, a2, a2, n] + 
    S2[SP[a3, a3], a1, a2, a1, a2, n] + S2[a3, a2, a1, a2, a3, a1, n] + 
    S2[a3, a2, a1, a3, a1, a2, n] + 2*S2[a3, a2, a3, a1, a1, a2, n] - 
    2*S2[a3, a2, a3, a2, a1, a1, n] + 2*S2[a3, a3, a1, a2, a1, a2, n] + 
    4*S2[a3, a3, a2, a1, a1, a2, n] - 4*S2[a3, a3, a2, a2, a1, a1, n] /; 
   MyMemberQ[{{a1, a2, a3}}, {a1, a1, a2, a2, a3, a3}] && a1 != a2 != a3, 
 S2[a2_, a1_, a2_, a3_, a3_, a1_, n_] :> 
  -(S2[a1, a2, a3, n]^2/2) - 2*S2[a1, a2, a2, n]*S2[a1, a3, a3, n] - 
    S2[SP[a1, a1], SP[a2, a2], SP[a3, a3], n]/2 - 
    2*S2[SP[a1, a1], SP[a2, a3], SP[a2, a3], n] + S2[a1, a1, SP[a2, a2], 
     SP[a3, a3], n] + 4*S2[a1, a1, SP[a2, a3], SP[a2, a3], n] - 
    S2[a1, a2, n]*S2[a1, a3, a2, a3, n] - S2[a1, a2, n]*
     S2[a1, a3, a3, a2, n] + S2[a1, a3, SP[a1, a2], SP[a2, a3], n] + 
    S2[a1, a3, SP[a1, a3], SP[a2, a2], n] + S2[a1, SP[a1, a2], a2, 
     SP[a3, a3], n] + 2*S2[a1, SP[a1, a2], a3, SP[a2, a3], n] + 
    3*S2[a1, SP[a1, a2], SP[a2, a3], a3, n] + 
    3*S2[a1, SP[a1, a3], a2, SP[a2, a3], n] + S2[a1, SP[a1, a3], a3, 
     SP[a2, a2], n] + S2[a1, SP[a1, a3], SP[a2, a2], a3, n] + 
    3*S2[a1, SP[a1, a3], SP[a2, a3], a2, n] + 
    S2[a1, a2, n]*S2[a2, a3, a1, a3, n] - S2[a2, a3, SP[a1, a1], SP[a2, a3], 
     n] - S2[a2, SP[a1, a3], a1, SP[a2, a3], n] - 
    S2[a2, SP[a1, a3], SP[a1, a2], a3, n] + S2[SP[a1, a1], a2, a2, 
     SP[a3, a3], n] + 2*S2[SP[a1, a1], a2, a3, SP[a2, a3], n] + 
    3*S2[SP[a1, a1], a2, SP[a2, a3], a3, n] + 
    3*S2[SP[a1, a1], a3, a2, SP[a2, a3], n] + S2[SP[a1, a1], a3, a3, 
     SP[a2, a2], n] + S2[SP[a1, a1], a3, SP[a2, a2], a3, n] + 
    3*S2[SP[a1, a1], a3, SP[a2, a3], a2, n] + S2[SP[a1, a1], SP[a2, a2], a3, 
     a3, n] + 3*S2[SP[a1, a1], SP[a2, a3], a2, a3, n] + 
    3*S2[SP[a1, a1], SP[a2, a3], a3, a2, n] - S2[SP[a1, a2], a3, a1, 
     SP[a2, a3], n] - S2[SP[a1, a2], a3, SP[a1, a2], a3, n] - 
    S2[SP[a1, a2], SP[a2, a3], a1, a3, n] + 
    6*S2[a3, n]*S2[a1, a1, a2, a2, a3, n] + 
    4*S2[a1, a1, a2, a2, SP[a3, a3], n] + 
    4*S2[a3, n]*S2[a1, a1, a2, a3, a2, n] - 
    2*S2[a2, n]*S2[a1, a1, a2, a3, a3, n] - 
    2*S2[a1, a1, a2, a3, SP[a2, a3], n] - 
    2*S2[a1, a1, a2, SP[a2, a3], a3, n] + 
    4*S2[a1, a1, a2, SP[a3, a3], a2, n] + 
    2*S2[a3, n]*S2[a1, a1, a3, a2, a2, n] - 
    4*S2[a1, a1, a3, a2, SP[a2, a3], n] - 
    2*S2[a1, a1, a3, a3, SP[a2, a2], n] - 
    2*S2[a1, a1, a3, SP[a2, a2], a3, n] - 
    4*S2[a1, a1, a3, SP[a2, a3], a2, n] - 
    4*S2[a1, a1, SP[a2, a2], a3, a3, n] - 
    2*S2[a1, a1, SP[a2, a3], a3, a2, n] + 
    2*S2[a1, a1, SP[a3, a3], a2, a2, n] + 
    3*S2[a3, n]*S2[a1, a2, a1, a2, a3, n] + 
    2*S2[a1, a2, a1, a2, SP[a3, a3], n] + 
    2*S2[a3, n]*S2[a1, a2, a1, a3, a2, n] - 
    S2[a2, n]*S2[a1, a2, a1, a3, a3, n] - S2[a1, a2, a1, a3, SP[a2, a3], n] - 
    S2[a1, a2, a1, SP[a2, a3], a3, n] + 2*S2[a1, a2, a1, SP[a3, a3], a2, n] + 
    2*S2[a3, n]*S2[a1, a2, a2, a1, a3, n] + 
    2*S2[a1, a2, a2, a1, SP[a3, a3], n] + 
    2*S2[a1, a2, a2, SP[a1, a3], a3, n] - 
    2*S2[a2, n]*S2[a1, a2, a3, a1, a3, n] - S2[a1, a2, a3, a1, SP[a2, a3], 
     n] - S2[a1, a2, a3, SP[a1, a2], a3, n] - 
    3*S2[a1, a2, SP[a1, a2], a3, a3, n] + 
    2*S2[a1, a2, SP[a1, a3], a2, a3, n] + 
    2*S2[a1, a2, SP[a1, a3], a3, a2, n] + S2[a1, a2, SP[a2, a3], a1, a3, n] - 
    S2[a2, n]*S2[a1, a3, a1, a2, a3, n] - 
    4*S2[a1, a3, a1, a2, SP[a2, a3], n] - 
    S2[a2, n]*S2[a1, a3, a1, a3, a2, n] - 
    2*S2[a1, a3, a1, a3, SP[a2, a2], n] - 
    2*S2[a1, a3, a1, SP[a2, a2], a3, n] - 
    4*S2[a1, a3, a1, SP[a2, a3], a2, n] - 
    S2[a3, n]*S2[a1, a3, a2, a1, a2, n] - 
    S2[a2, n]*S2[a1, a3, a2, a1, a3, n] - 
    3*S2[a1, a3, a2, a1, SP[a2, a3], n] + 
    S2[a1, n]*S2[a1, a3, a2, a3, a2, n] + S2[a1, a3, a2, a3, SP[a1, a2], n] - 
    S2[a1, a3, a2, SP[a1, a2], a3, n] - S2[a1, a3, a2, SP[a1, a3], a2, n] - 
    S2[a1, a3, a3, a1, SP[a2, a2], n] + 2*S2[a1, n]*
     S2[a1, a3, a3, a2, a2, n] + 2*S2[a1, a3, a3, a2, SP[a1, a2], n] + 
    S2[a1, a3, a3, SP[a1, a2], a2, n] - 2*S2[a1, a3, SP[a1, a2], a2, a3, n] - 
    S2[a1, a3, SP[a1, a2], a3, a2, n] - 2*S2[a1, a3, SP[a1, a3], a2, a2, n] - 
    S2[a1, a3, SP[a2, a2], a1, a3, n] - S2[a1, a3, SP[a2, a3], a1, a2, n] - 
    6*S2[a1, SP[a1, a2], a2, a3, a3, n] - 
    4*S2[a1, SP[a1, a2], a3, a2, a3, n] - 
    3*S2[a1, SP[a1, a2], a3, a3, a2, n] + 
    2*S2[a1, SP[a1, a3], a2, a2, a3, n] + S2[a1, SP[a1, a3], a2, a3, a2, n] - 
    S2[a1, SP[a2, a2], a1, a3, a3, n] - S2[a1, SP[a2, a2], a3, a1, a3, n] + 
    2*S2[a1, SP[a2, a3], a1, a2, a3, n] + S2[a1, SP[a2, a3], a1, a3, a2, n] + 
    S2[a1, SP[a2, a3], a2, a1, a3, n] - S2[a1, SP[a3, a3], a2, a1, a2, n] + 
    S2[a1, n]*S2[a2, a1, a2, a3, a3, n] + S2[a2, a1, a2, a3, SP[a1, a3], n] + 
    S2[a2, a1, a2, SP[a1, a3], a3, n] + S2[a2, a1, a3, a1, SP[a2, a3], n] + 
    S2[a2, a1, a3, SP[a1, a2], a3, n] + S2[a2, a1, SP[a1, a2], a3, a3, n] + 
    S2[a2, a1, SP[a2, a3], a1, a3, n] + 2*S2[a2, a3, a1, a1, SP[a2, a3], n] + 
    S2[a2, a3, a1, SP[a1, a2], a3, n] + S2[a2, a3, a1, SP[a1, a3], a2, n] + 
    S2[a2, a3, SP[a1, a1], a2, a3, n] + S2[a2, a3, SP[a1, a1], a3, a2, n] + 
    S2[a2, SP[a1, a1], a2, a3, a3, n] + S2[a2, SP[a1, a3], a1, a2, a3, n] + 
    S2[a2, SP[a1, a3], a1, a3, a2, n] + S2[a2, SP[a1, a3], a2, a1, a3, n] - 
    2*S2[a3, n]*S2[a3, a1, a1, a2, a2, n] - 
    2*S2[a2, n]*S2[a3, a1, a1, a2, a3, n] - 
    4*S2[a3, a1, a1, a2, SP[a2, a3], n] - 
    2*S2[a2, n]*S2[a3, a1, a1, a3, a2, n] - 
    2*S2[a3, a1, a1, a3, SP[a2, a2], n] - 
    2*S2[a3, a1, a1, SP[a2, a2], a3, n] - 
    4*S2[a3, a1, a1, SP[a2, a3], a2, n] - 
    S2[a3, n]*S2[a3, a1, a2, a1, a2, n] - 
    S2[a2, n]*S2[a3, a1, a2, a1, a3, n] - 
    2*S2[a3, a1, a2, a1, SP[a2, a3], n] + 
    S2[a1, n]*S2[a3, a1, a2, a3, a2, n] + S2[a3, a1, a2, a3, SP[a1, a2], n] - 
    S2[a3, a1, a2, SP[a1, a2], a3, n] - S2[a2, n]*S2[a3, a1, a3, a1, a2, n] - 
    S2[a3, a1, a3, a1, SP[a2, a2], n] + 2*S2[a1, n]*
     S2[a3, a1, a3, a2, a2, n] + 2*S2[a3, a1, a3, a2, SP[a1, a2], n] + 
    S2[a3, a1, a3, SP[a1, a2], a2, n] - 2*S2[a3, a1, SP[a1, a2], a2, a3, n] - 
    S2[a3, a1, SP[a1, a2], a3, a2, n] - S2[a3, a1, SP[a2, a2], a1, a3, n] - 
    2*S2[a3, a1, SP[a2, a3], a1, a2, n] + 
    S2[a1, n]*S2[a3, a2, a1, a2, a3, n] + S2[a3, a2, a1, a2, SP[a1, a3], n] + 
    S2[a1, n]*S2[a3, a2, a1, a3, a2, n] + S2[a3, a2, a1, a3, SP[a1, a2], n] + 
    S2[a3, a2, a1, SP[a1, a2], a3, n] + S2[a3, a2, a1, SP[a1, a3], a2, n] + 
    S2[a1, n]*S2[a3, a2, a3, a1, a2, n] + S2[a3, a2, a3, a1, SP[a1, a2], n] - 
    S2[a1, n]*S2[a3, a2, a3, a2, a1, n] - S2[a3, a2, a3, a2, SP[a1, a1], n] + 
    S2[a3, a2, a3, SP[a1, a1], a2, n] - S2[a3, a2, a3, SP[a1, a2], a1, n] + 
    S2[a3, a2, SP[a1, a1], a2, a3, n] + S2[a3, a2, SP[a1, a1], a3, a2, n] + 
    S2[a3, a2, SP[a1, a3], a1, a2, n] - S2[a3, a2, SP[a1, a3], a2, a1, n] + 
    2*S2[a1, n]*S2[a3, a3, a1, a2, a2, n] + 
    2*S2[a3, a3, a1, a2, SP[a1, a2], n] + 
    2*S2[a3, a3, a1, SP[a1, a2], a2, n] + 
    S2[a1, n]*S2[a3, a3, a2, a1, a2, n] + S2[a3, a3, a2, a1, SP[a1, a2], n] - 
    2*S2[a1, n]*S2[a3, a3, a2, a2, a1, n] - 
    2*S2[a3, a3, a2, a2, SP[a1, a1], n] + S2[a3, a3, a2, SP[a1, a1], a2, n] - 
    2*S2[a3, a3, a2, SP[a1, a2], a1, n] + 
    2*S2[a3, a3, SP[a1, a1], a2, a2, n] + S2[a3, a3, SP[a1, a2], a1, a2, n] - 
    2*S2[a3, a3, SP[a1, a2], a2, a1, n] + S2[a3, SP[a1, a1], a2, a3, a2, n] + 
    2*S2[a3, SP[a1, a1], a3, a2, a2, n] - S2[a3, SP[a1, a2], a1, a2, a3, n] - 
    S2[a3, SP[a1, a2], a1, a3, a2, n] - S2[a3, SP[a1, a2], a2, a1, a3, n] - 
    S2[a3, SP[a1, a2], a3, a2, a1, n] - 2*S2[a3, SP[a1, a3], a2, a2, a1, n] - 
    4*S2[SP[a1, a1], a2, a2, a3, a3, n] - 
    4*S2[SP[a1, a1], a2, a3, a2, a3, n] - 
    3*S2[SP[a1, a1], a2, a3, a3, a2, n] - 
    4*S2[SP[a1, a1], a3, a2, a2, a3, n] - 
    3*S2[SP[a1, a1], a3, a2, a3, a2, n] - 
    2*S2[SP[a1, a1], a3, a3, a2, a2, n] - S2[SP[a1, a2], a1, a2, a3, a3, n] - 
    S2[SP[a1, a2], a2, a1, a3, a3, n] - S2[SP[a1, a2], a2, a3, a1, a3, n] + 
    6*S2[SP[a1, a3], a1, a2, a2, a3, n] + 
    5*S2[SP[a1, a3], a1, a2, a3, a2, n] + 
    4*S2[SP[a1, a3], a1, a3, a2, a2, n] + 
    4*S2[SP[a1, a3], a2, a1, a2, a3, n] + 
    3*S2[SP[a1, a3], a2, a1, a3, a2, n] + 
    2*S2[SP[a1, a3], a2, a2, a1, a3, n] + S2[SP[a1, a3], a2, a3, a1, a2, n] - 
    S2[SP[a1, a3], a2, a3, a2, a1, n] + 2*S2[SP[a1, a3], a3, a1, a2, a2, n] - 
    2*S2[SP[a1, a3], a3, a2, a2, a1, n] - 
    2*S2[SP[a2, a3], a1, a1, a2, a3, n] - 
    2*S2[SP[a2, a3], a1, a1, a3, a2, n] - S2[SP[a2, a3], a1, a2, a1, a3, n] - 
    S2[SP[a2, a3], a1, a3, a1, a2, n] - 2*S2[SP[a3, a3], a1, a1, a2, a2, n] - 
    S2[SP[a3, a3], a1, a2, a1, a2, n] - S2[a3, a2, a1, a2, a3, a1, n] - 
    S2[a3, a2, a1, a3, a1, a2, n] - 2*S2[a3, a2, a3, a1, a1, a2, n] + 
    2*S2[a3, a2, a3, a2, a1, a1, n] - S2[a3, a3, a1, a2, a1, a2, n] - 
    2*S2[a3, a3, a2, a1, a1, a2, n] + S2[a3, a3, a2, a1, a2, a1, n] + 
    4*S2[a3, a3, a2, a2, a1, a1, n] /; 
   MyMemberQ[{{a1, a2, a3}}, {a1, a1, a2, a2, a3, a3}] && a1 != a2 != a3, 
 S2[a2_, a1_, a3_, a1_, a2_, a3_, n_] :> 
  -S2[a1, a2, a3, n]^2 - S2[a1, a2, a3, n]*S2[a1, a3, a2, n] - 
    S2[SP[a1, a1], SP[a2, a2], SP[a3, a3], n] - S2[SP[a1, a1], SP[a2, a3], 
     SP[a2, a3], n] + 2*S2[a2, a3, n]*S2[a1, a1, a2, a3, n] + 
    2*S2[a2, a3, n]*S2[a1, a1, a3, a2, n] + S2[a2, a3, n]*
     S2[a1, a2, a1, a3, n] + 2*S2[a1, a2, n]*S2[a1, a2, a3, a3, n] - 
    S2[a1, a2, SP[a1, a2], SP[a3, a3], n] - 
    2*S2[a1, a2, SP[a1, a3], SP[a2, a3], n] + 2*S2[a1, a2, n]*
     S2[a1, a3, a2, a3, n] + 2*S2[a1, a2, n]*S2[a1, a3, a3, a2, n] - 
    2*S2[a1, a3, SP[a1, a2], SP[a2, a3], n] - 
    2*S2[a1, a3, SP[a1, a3], SP[a2, a2], n] - 
    3*S2[a1, SP[a1, a2], a3, SP[a2, a3], n] - 
    2*S2[a1, SP[a1, a2], SP[a2, a3], a3, n] - S2[a1, SP[a1, a2], SP[a3, a3], 
     a2, n] - S2[a1, SP[a1, a3], a2, SP[a2, a3], n] - 
    2*S2[a1, SP[a1, a3], a3, SP[a2, a2], n] - S2[a1, SP[a1, a3], SP[a2, a2], 
     a3, n] - 2*S2[a1, SP[a1, a3], SP[a2, a3], a2, n] - 
    S2[a1, SP[a2, a2], a1, SP[a3, a3], n] - S2[a1, SP[a2, a2], SP[a1, a3], 
     a3, n] - S2[a1, a2, n]*S2[a2, a3, a1, a3, n] + 
    S2[a2, a3, SP[a1, a1], SP[a2, a3], n] + S2[a2, SP[a1, a3], a1, 
     SP[a2, a3], n] + S2[a2, SP[a1, a3], SP[a1, a2], a3, n] + 
    2*S2[SP[a1, a1], a2, a2, SP[a3, a3], n] - S2[SP[a1, a1], a2, a3, 
     SP[a2, a3], n] + S2[SP[a1, a1], a2, SP[a3, a3], a2, n] - 
    S2[SP[a1, a1], a3, a2, SP[a2, a3], n] - 
    2*S2[SP[a1, a1], a3, a3, SP[a2, a2], n] - S2[SP[a1, a1], a3, SP[a2, a2], 
     a3, n] - 2*S2[SP[a1, a1], a3, SP[a2, a3], a2, n] - 
    S2[SP[a1, a1], SP[a2, a3], a2, a3, n] - S2[SP[a1, a1], SP[a2, a3], a3, 
     a2, n] - 2*S2[SP[a1, a2], a1, a2, SP[a3, a3], n] - 
    2*S2[SP[a1, a2], a1, a3, SP[a2, a3], n] - 
    2*S2[SP[a1, a2], a1, SP[a2, a3], a3, n] - 
    2*S2[SP[a1, a2], a1, SP[a3, a3], a2, n] - S2[SP[a1, a2], a2, a1, 
     SP[a3, a3], n] - S2[SP[a1, a2], a2, SP[a1, a3], a3, n] + 
    S2[SP[a1, a2], a3, a1, SP[a2, a3], n] + S2[SP[a1, a2], a3, SP[a1, a2], 
     a3, n] - 2*S2[SP[a1, a2], SP[a1, a3], a2, a3, n] - 
    2*S2[SP[a1, a2], SP[a1, a3], a3, a2, n] - 
    4*S2[a2, n]*S2[a1, a1, a2, a3, a3, n] - 
    4*S2[a2, n]*S2[a1, a1, a3, a2, a3, n] - 
    4*S2[a2, n]*S2[a1, a1, a3, a3, a2, n] + S2[a1, a2, a1, a2, SP[a3, a3], 
     n] - 2*S2[a2, n]*S2[a1, a2, a1, a3, a3, n] + 
    S2[a1, a2, a1, a3, SP[a2, a3], n] + S2[a1, a2, a1, SP[a2, a3], a3, n] + 
    S2[a1, a2, a1, SP[a3, a3], a2, n] + 2*S2[a1, a2, a2, a1, SP[a3, a3], n] + 
    2*S2[a1, a2, a2, SP[a1, a3], a3, n] - 
    S2[a3, n]*S2[a1, a2, a3, a1, a2, n] - S2[a1, a2, a3, SP[a1, a2], a3, n] + 
    S2[a1, a2, a3, SP[a1, a3], a2, n] + 2*S2[a1, a2, SP[a1, a3], a2, a3, n] + 
    3*S2[a1, a2, SP[a1, a3], a3, a2, n] - S2[a1, a2, SP[a3, a3], a1, a2, n] - 
    2*S2[a3, n]*S2[a1, a3, a1, a2, a2, n] - S2[a1, a3, a1, a2, SP[a2, a3], 
     n] - S2[a2, n]*S2[a1, a3, a1, a3, a2, n] + S2[a1, a3, a1, a3, 
     SP[a2, a2], n] + S2[a1, a3, a1, SP[a2, a2], a3, n] - 
    S2[a1, a3, a1, SP[a2, a3], a2, n] - S2[a3, n]*S2[a1, a3, a2, a1, a2, n] + 
    S2[a1, a3, a2, a1, SP[a2, a3], n] + S2[a1, a3, a2, SP[a1, a3], a2, n] + 
    2*S2[a1, a3, a3, a1, SP[a2, a2], n] + 
    2*S2[a1, a3, a3, SP[a1, a2], a2, n] + S2[a1, a3, SP[a1, a2], a2, a3, n] + 
    S2[a1, a3, SP[a1, a2], a3, a2, n] + 2*S2[a1, a3, SP[a1, a3], a2, a2, n] - 
    S2[a1, a3, SP[a2, a3], a1, a2, n] + S2[a1, SP[a1, a2], a3, a2, a3, n] + 
    2*S2[a1, SP[a1, a2], a3, a3, a2, n] + 
    2*S2[a1, SP[a1, a3], a2, a2, a3, n] + 
    3*S2[a1, SP[a1, a3], a2, a3, a2, n] + 
    4*S2[a1, SP[a1, a3], a3, a2, a2, n] - S2[a1, SP[a2, a3], a1, a3, a2, n] - 
    S2[a1, SP[a2, a3], a3, a1, a2, n] - 2*S2[a1, SP[a3, a3], a1, a2, a2, n] - 
    S2[a1, SP[a3, a3], a2, a1, a2, n] + 2*S2[a2, a1, a1, a2, SP[a3, a3], n] + 
    2*S2[a2, a1, a1, a3, SP[a2, a3], n] + 
    2*S2[a2, a1, a1, SP[a2, a3], a3, n] + 
    2*S2[a2, a1, a1, SP[a3, a3], a2, n] + S2[a2, a1, a2, a1, SP[a3, a3], n] + 
    S2[a2, a1, a2, SP[a1, a3], a3, n] - S2[a2, a1, a3, a1, SP[a2, a3], n] - 
    S2[a2, a1, a3, SP[a1, a2], a3, n] + 2*S2[a2, a1, SP[a1, a3], a2, a3, n] + 
    2*S2[a2, a1, SP[a1, a3], a3, a2, n] - 
    2*S2[a2, a3, a1, a1, SP[a2, a3], n] - S2[a2, a3, a1, SP[a1, a2], a3, n] - 
    S2[a2, a3, a1, SP[a1, a3], a2, n] - S2[a2, a3, SP[a1, a1], a2, a3, n] - 
    S2[a2, a3, SP[a1, a1], a3, a2, n] + S2[a2, SP[a1, a3], a1, a2, a3, n] + 
    S2[a2, SP[a1, a3], a1, a3, a2, n] + S2[a2, n]*S2[a3, a1, a3, a1, a2, n] + 
    S2[a3, a1, a3, a1, SP[a2, a2], n] + S2[a3, a1, a3, SP[a1, a2], a2, n] + 
    S2[a3, a1, SP[a2, a3], a1, a2, n] + S2[a3, SP[a1, a2], a3, a1, a2, n] + 
    S2[SP[a1, a1], a2, a3, a2, a3, n] + 2*S2[SP[a1, a1], a2, a3, a3, a2, n] + 
    2*S2[SP[a1, a1], a3, a2, a2, a3, n] + 
    3*S2[SP[a1, a1], a3, a2, a3, a2, n] + 
    4*S2[SP[a1, a1], a3, a3, a2, a2, n] + S2[SP[a1, a2], a3, a1, a2, a3, n] - 
    S2[SP[a1, a3], a2, a3, a1, a2, n] - 2*S2[SP[a1, a3], a3, a1, a2, a2, n] - 
    S2[SP[a1, a3], a3, a2, a1, a2, n] + S2[SP[a2, a3], a1, a3, a1, a2, n] - 
    S2[a3, a2, a1, a3, a1, a2, n] /; 
   MyMemberQ[{{a1, a2, a3}}, {a1, a1, a2, a2, a3, a3}] && a1 != a2 != a3, 
 S2[a2_, a1_, a3_, a1_, a3_, a2_, n_] :> 
  S2[a1, a2, a3, n]^2/2 - S2[a1, a3, a2, n]^2/2 + 
    S2[SP[a1, a1], SP[a2, a2], SP[a3, a3], n]/2 - 
    S2[SP[a1, a1], SP[a3, a3], SP[a2, a2], n]/2 - 
    2*S2[a2, a3, n]*S2[a1, a1, a2, a3, n] - 2*S2[a2, a3, n]*
     S2[a1, a1, a3, a2, n] + S2[a1, a1, SP[a2, a2], SP[a3, a3], n] + 
    2*S2[a1, a1, SP[a2, a3], SP[a2, a3], n] + S2[a1, a1, SP[a3, a3], 
     SP[a2, a2], n] - S2[a2, a3, n]*S2[a1, a2, a1, a3, n] + 
    S2[a1, a2, SP[a1, a2], SP[a3, a3], n] + S2[a1, SP[a1, a2], a2, 
     SP[a3, a3], n] + 2*S2[a1, SP[a1, a2], a3, SP[a2, a3], n] + 
    S2[a1, SP[a1, a2], SP[a2, a3], a3, n] + 
    2*S2[a1, SP[a1, a2], SP[a3, a3], a2, n] + S2[a1, SP[a1, a3], a3, 
     SP[a2, a2], n] + S2[a1, SP[a1, a3], SP[a2, a3], a2, n] + 
    S2[a1, SP[a2, a2], a1, SP[a3, a3], n] + S2[a1, SP[a2, a2], SP[a1, a3], 
     a3, n] + S2[a1, a2, n]*S2[a2, a3, a1, a3, n] - 
    S2[a2, a3, SP[a1, a1], SP[a2, a3], n] - S2[a2, SP[a1, a3], a1, 
     SP[a2, a3], n] - S2[a2, SP[a1, a3], SP[a1, a2], a3, n] - 
    S2[SP[a1, a1], a2, a2, SP[a3, a3], n] - S2[SP[a1, a1], a2, SP[a2, a3], 
     a3, n] + S2[SP[a1, a1], a3, a3, SP[a2, a2], n] + 
    S2[SP[a1, a1], a3, SP[a2, a3], a2, n] - S2[SP[a1, a1], SP[a2, a2], a3, 
     a3, n] + S2[SP[a1, a1], SP[a3, a3], a2, a2, n] + 
    2*S2[SP[a1, a2], a1, a2, SP[a3, a3], n] + 
    2*S2[SP[a1, a2], a1, a3, SP[a2, a3], n] + 
    2*S2[SP[a1, a2], a1, SP[a2, a3], a3, n] + 
    2*S2[SP[a1, a2], a1, SP[a3, a3], a2, n] + S2[SP[a1, a2], a2, a1, 
     SP[a3, a3], n] + S2[SP[a1, a2], a2, SP[a1, a3], a3, n] - 
    S2[SP[a1, a2], a3, a1, SP[a2, a3], n] - S2[SP[a1, a2], a3, SP[a1, a2], 
     a3, n] + 2*S2[SP[a1, a2], SP[a1, a3], a2, a3, n] + 
    2*S2[SP[a1, a2], SP[a1, a3], a3, a2, n] - 
    2*S2[a3, n]*S2[a1, a1, a2, a2, a3, n] - 
    4*S2[a1, a1, a2, a2, SP[a3, a3], n] - 
    2*S2[a3, n]*S2[a1, a1, a2, a3, a2, n] + 
    4*S2[a2, n]*S2[a1, a1, a2, a3, a3, n] - 
    4*S2[a1, a1, a2, SP[a3, a3], a2, n] - 
    2*S2[a3, n]*S2[a1, a1, a3, a2, a2, n] + 
    4*S2[a2, n]*S2[a1, a1, a3, a2, a3, n] + 
    4*S2[a2, n]*S2[a1, a1, a3, a3, a2, n] + 
    2*S2[a1, a1, a3, a3, SP[a2, a2], n] + 
    2*S2[a1, a1, a3, SP[a2, a2], a3, n] + 
    2*S2[a1, a1, SP[a2, a2], a3, a3, n] - 
    4*S2[a1, a1, SP[a3, a3], a2, a2, n] - 
    S2[a3, n]*S2[a1, a2, a1, a2, a3, n] - 
    3*S2[a1, a2, a1, a2, SP[a3, a3], n] - 
    S2[a3, n]*S2[a1, a2, a1, a3, a2, n] + 
    2*S2[a2, n]*S2[a1, a2, a1, a3, a3, n] - S2[a1, a2, a1, a3, SP[a2, a3], 
     n] - S2[a1, a2, a1, SP[a2, a3], a3, n] - 
    3*S2[a1, a2, a1, SP[a3, a3], a2, n] - 
    2*S2[a1, a2, a2, a1, SP[a3, a3], n] - 
    2*S2[a1, a2, a2, SP[a1, a3], a3, n] + S2[a1, a2, a3, a1, SP[a2, a3], n] + 
    S2[a1, a2, a3, SP[a1, a2], a3, n] - 2*S2[a1, a2, SP[a1, a3], a2, a3, n] - 
    3*S2[a1, a2, SP[a1, a3], a3, a2, n] + 
    S2[a2, n]*S2[a1, a3, a1, a2, a3, n] + S2[a1, a3, a1, a2, SP[a2, a3], n] + 
    2*S2[a2, n]*S2[a1, a3, a1, a3, a2, n] + S2[a1, a3, a1, a3, SP[a2, a2], 
     n] + S2[a1, a3, a1, SP[a2, a2], a3, n] + S2[a1, a3, a1, SP[a2, a3], a2, 
     n] + S2[a1, a3, SP[a1, a2], a2, a3, n] + S2[a1, a3, SP[a1, a2], a3, a2, 
     n] + 2*S2[a1, SP[a1, a2], a2, a3, a3, n] + S2[a1, SP[a1, a2], a3, a2, 
     a3, n] - 2*S2[a1, SP[a1, a3], a2, a2, a3, n] - 
    3*S2[a1, SP[a1, a3], a2, a3, a2, n] - 
    4*S2[a1, SP[a1, a3], a3, a2, a2, n] + S2[a1, SP[a2, a3], a1, a3, a2, n] - 
    2*S2[a2, a1, a1, a2, SP[a3, a3], n] - 
    2*S2[a2, a1, a1, a3, SP[a2, a3], n] - 
    2*S2[a2, a1, a1, SP[a2, a3], a3, n] - 
    2*S2[a2, a1, a1, SP[a3, a3], a2, n] - S2[a2, a1, a2, a1, SP[a3, a3], n] - 
    S2[a2, a1, a2, SP[a1, a3], a3, n] + S2[a2, a1, a3, a1, SP[a2, a3], n] + 
    S2[a2, a1, a3, SP[a1, a2], a3, n] - 2*S2[a2, a1, SP[a1, a3], a2, a3, n] - 
    2*S2[a2, a1, SP[a1, a3], a3, a2, n] + 
    2*S2[a2, a3, a1, a1, SP[a2, a3], n] + S2[a2, a3, a1, SP[a1, a2], a3, n] + 
    S2[a2, a3, a1, SP[a1, a3], a2, n] + S2[a2, a3, SP[a1, a1], a2, a3, n] + 
    S2[a2, a3, SP[a1, a1], a3, a2, n] - S2[a2, SP[a1, a3], a1, a2, a3, n] - 
    S2[a2, SP[a1, a3], a1, a3, a2, n] + 2*S2[a3, n]*
     S2[a3, a1, a1, a2, a2, n] + 2*S2[a3, a1, a1, a2, SP[a2, a3], n] + 
    2*S2[a3, a1, a1, SP[a2, a3], a2, n] + 
    S2[a3, n]*S2[a3, a1, a2, a1, a2, n] + S2[a3, a1, a2, a1, SP[a2, a3], n] + 
    S2[a3, a1, a2, SP[a1, a3], a2, n] - S2[a2, n]*S2[a3, a1, a3, a1, a2, n] - 
    S2[a3, a1, a3, a1, SP[a2, a2], n] - S2[a3, a1, a3, SP[a1, a2], a2, n] + 
    2*S2[a3, a1, SP[a1, a3], a2, a2, n] - S2[a3, SP[a1, a2], a3, a1, a2, n] + 
    2*S2[a3, SP[a1, a3], a1, a2, a2, n] + S2[a3, SP[a1, a3], a2, a1, a2, n] + 
    2*S2[SP[a1, a1], a2, a2, a3, a3, n] + S2[SP[a1, a1], a2, a3, a2, a3, n] - 
    S2[SP[a1, a1], a3, a2, a3, a2, n] - 2*S2[SP[a1, a1], a3, a3, a2, a2, n] + 
    S2[SP[a1, a2], a3, a1, a3, a2, n] - 2*S2[SP[a1, a3], a1, a2, a2, a3, n] - 
    2*S2[SP[a1, a3], a1, a2, a3, a2, n] - 
    2*S2[SP[a1, a3], a1, a3, a2, a2, n] - S2[SP[a1, a3], a2, a1, a2, a3, n] - 
    S2[SP[a1, a3], a2, a1, a3, a2, n] - S2[SP[a2, a3], a1, a3, a1, a2, n] + 
    2*S2[SP[a3, a3], a1, a1, a2, a2, n] + S2[SP[a3, a3], a1, a2, a1, a2, n] + 
    S2[a3, a2, a1, a3, a1, a2, n] - 4*S2[a3, a3, a1, a1, a2, a2, n] - 
    2*S2[a3, a3, a1, a2, a1, a2, n] /; 
   MyMemberQ[{{a1, a2, a3}}, {a1, a1, a2, a2, a3, a3}] && a1 != a2 != a3, 
 S2[a2_, a1_, a3_, a2_, a1_, a3_, n_] :> 
  S2[a1, a2, a3, n]*S2[a1, a3, a2, n] + S2[a1, a3, a2, n]^2/2 + 
    S2[SP[a1, a1], SP[a2, a3], SP[a2, a3], n] + 
    S2[SP[a1, a1], SP[a3, a3], SP[a2, a2], n]/2 - 
    2*S2[a1, a1, SP[a2, a3], SP[a2, a3], n] - S2[a1, a1, SP[a3, a3], 
     SP[a2, a2], n] - 2*S2[a1, a3, n]*S2[a1, a2, a2, a3, n] - 
    2*S2[a1, a3, n]*S2[a1, a2, a3, a2, n] - 2*S2[a1, a2, n]*
     S2[a1, a2, a3, a3, n] + 2*S2[a1, a2, SP[a1, a2], SP[a3, a3], n] + 
    4*S2[a1, a2, SP[a1, a3], SP[a2, a3], n] - 2*S2[a1, a3, n]*
     S2[a1, a3, a2, a2, n] - 2*S2[a1, a2, n]*S2[a1, a3, a2, a3, n] - 
    2*S2[a1, a2, n]*S2[a1, a3, a3, a2, n] + 
    4*S2[a1, a3, SP[a1, a2], SP[a2, a3], n] + 
    2*S2[a1, a3, SP[a1, a3], SP[a2, a2], n] + 
    2*S2[a1, SP[a1, a2], a2, SP[a3, a3], n] + 
    3*S2[a1, SP[a1, a2], a3, SP[a2, a3], n] + 
    4*S2[a1, SP[a1, a2], SP[a2, a3], a3, n] + S2[a1, SP[a1, a2], SP[a3, a3], 
     a2, n] + 3*S2[a1, SP[a1, a3], a2, SP[a2, a3], n] + 
    S2[a1, SP[a1, a3], a3, SP[a2, a2], n] + S2[a1, SP[a1, a3], SP[a2, a2], 
     a3, n] + 3*S2[a1, SP[a1, a3], SP[a2, a3], a2, n] + 
    S2[a1, a2, n]*S2[a2, a3, a1, a3, n] - S2[a2, a3, SP[a1, a1], SP[a2, a3], 
     n] - S2[a2, SP[a1, a3], a1, SP[a2, a3], n] - 
    S2[a2, SP[a1, a3], SP[a1, a2], a3, n] + 
    2*S2[SP[a1, a1], a2, a2, SP[a3, a3], n] + 
    3*S2[SP[a1, a1], a2, a3, SP[a2, a3], n] + 
    4*S2[SP[a1, a1], a2, SP[a2, a3], a3, n] + S2[SP[a1, a1], a2, SP[a3, a3], 
     a2, n] + 3*S2[SP[a1, a1], a3, a2, SP[a2, a3], n] + 
    S2[SP[a1, a1], a3, a3, SP[a2, a2], n] + S2[SP[a1, a1], a3, SP[a2, a2], 
     a3, n] + 3*S2[SP[a1, a1], a3, SP[a2, a3], a2, n] + 
    2*S2[SP[a1, a1], SP[a2, a2], a3, a3, n] + 
    3*S2[SP[a1, a1], SP[a2, a3], a2, a3, n] + 
    3*S2[SP[a1, a1], SP[a2, a3], a3, a2, n] + S2[SP[a1, a1], SP[a3, a3], a2, 
     a2, n] - S2[SP[a1, a2], a3, a1, SP[a2, a3], n] - 
    S2[SP[a1, a2], a3, SP[a1, a2], a3, n] - S2[SP[a1, a2], SP[a2, a3], a1, 
     a3, n] + 8*S2[a3, n]*S2[a1, a1, a2, a2, a3, n] + 
    4*S2[a1, a1, a2, a2, SP[a3, a3], n] + 
    6*S2[a3, n]*S2[a1, a1, a2, a3, a2, n] + 
    4*S2[a1, a1, a2, SP[a3, a3], a2, n] + 
    4*S2[a3, n]*S2[a1, a1, a3, a2, a2, n] - 
    2*S2[a1, a1, a3, a2, SP[a2, a3], n] - 
    2*S2[a1, a1, a3, a3, SP[a2, a2], n] - 
    2*S2[a1, a1, a3, SP[a2, a2], a3, n] - 
    2*S2[a1, a1, a3, SP[a2, a3], a2, n] - 
    4*S2[a1, a1, SP[a2, a2], a3, a3, n] + 
    2*S2[a1, a1, SP[a2, a3], a2, a3, n] + 
    2*S2[a1, a1, SP[a3, a3], a2, a2, n] + 
    4*S2[a3, n]*S2[a1, a2, a1, a2, a3, n] + 
    2*S2[a1, a2, a1, a2, SP[a3, a3], n] + 
    3*S2[a3, n]*S2[a1, a2, a1, a3, a2, n] + 
    2*S2[a1, a2, a1, SP[a3, a3], a2, n] + 
    2*S2[a3, n]*S2[a1, a2, a2, a1, a3, n] + 
    S2[a3, n]*S2[a1, a2, a3, a1, a2, n] - 
    S2[a2, n]*S2[a1, a2, a3, a1, a3, n] - 
    3*S2[a1, a2, a3, a1, SP[a2, a3], n] - 
    2*S2[a1, a2, a3, SP[a1, a2], a3, n] - S2[a1, a2, a3, SP[a1, a3], a2, n] - 
    4*S2[a1, a2, SP[a1, a2], a3, a3, n] + 
    2*S2[a1, a2, SP[a2, a3], a1, a3, n] + S2[a1, a2, SP[a3, a3], a1, a2, n] - 
    S2[a2, n]*S2[a1, a3, a1, a2, a3, n] - 
    4*S2[a1, a3, a1, a2, SP[a2, a3], n] - 
    S2[a2, n]*S2[a1, a3, a1, a3, a2, n] - 
    2*S2[a1, a3, a1, a3, SP[a2, a2], n] - 
    2*S2[a1, a3, a1, SP[a2, a2], a3, n] - 
    4*S2[a1, a3, a1, SP[a2, a3], a2, n] - 
    S2[a3, n]*S2[a1, a3, a2, a1, a2, n] - 
    5*S2[a1, a3, a2, a1, SP[a2, a3], n] + 
    S2[a1, n]*S2[a1, a3, a2, a3, a2, n] + S2[a1, a3, a2, a3, SP[a1, a2], n] - 
    2*S2[a1, a3, a2, SP[a1, a2], a3, n] - 
    2*S2[a1, a3, a2, SP[a1, a3], a2, n] - 
    2*S2[a1, a3, a3, a1, SP[a2, a2], n] + 
    2*S2[a1, n]*S2[a1, a3, a3, a2, a2, n] + 
    2*S2[a1, a3, a3, a2, SP[a1, a2], n] - 
    4*S2[a1, a3, SP[a1, a2], a2, a3, n] - 
    3*S2[a1, a3, SP[a1, a2], a3, a2, n] - 
    2*S2[a1, a3, SP[a1, a3], a2, a2, n] - S2[a1, a3, SP[a2, a3], a1, a2, n] - 
    8*S2[a1, SP[a1, a2], a2, a3, a3, n] - 
    7*S2[a1, SP[a1, a2], a3, a2, a3, n] - 
    6*S2[a1, SP[a1, a2], a3, a3, a2, n] + 
    2*S2[a1, SP[a1, a3], a2, a2, a3, n] + S2[a1, SP[a1, a3], a2, a3, a2, n] + 
    3*S2[a1, SP[a2, a3], a1, a2, a3, n] + 
    2*S2[a1, SP[a2, a3], a1, a3, a2, n] + 
    2*S2[a1, SP[a2, a3], a2, a1, a3, n] + S2[a1, SP[a2, a3], a3, a1, a2, n] - 
    S2[a1, SP[a3, a3], a2, a1, a2, n] + S2[a2, a1, a3, a1, SP[a2, a3], n] + 
    S2[a2, a1, a3, SP[a1, a2], a3, n] + S2[a2, a1, SP[a2, a3], a1, a3, n] + 
    2*S2[a2, a3, a1, a1, SP[a2, a3], n] + S2[a2, a3, a1, SP[a1, a2], a3, n] + 
    S2[a2, a3, a1, SP[a1, a3], a2, n] + S2[a2, a3, SP[a1, a1], a2, a3, n] + 
    S2[a2, a3, SP[a1, a1], a3, a2, n] + S2[a2, SP[a1, a3], a1, a2, a3, n] + 
    S2[a2, SP[a1, a3], a1, a3, a2, n] + S2[a2, SP[a1, a3], a2, a1, a3, n] - 
    4*S2[a3, n]*S2[a3, a1, a1, a2, a2, n] - 
    2*S2[a2, n]*S2[a3, a1, a1, a2, a3, n] - 
    6*S2[a3, a1, a1, a2, SP[a2, a3], n] - 
    2*S2[a2, n]*S2[a3, a1, a1, a3, a2, n] - 
    2*S2[a3, a1, a1, a3, SP[a2, a2], n] - 
    2*S2[a3, a1, a1, SP[a2, a2], a3, n] - 
    6*S2[a3, a1, a1, SP[a2, a3], a2, n] - 
    2*S2[a3, n]*S2[a3, a1, a2, a1, a2, n] - 
    S2[a2, n]*S2[a3, a1, a2, a1, a3, n] - 
    3*S2[a3, a1, a2, a1, SP[a2, a3], n] + 
    S2[a1, n]*S2[a3, a1, a2, a3, a2, n] + S2[a3, a1, a2, a3, SP[a1, a2], n] - 
    S2[a3, a1, a2, SP[a1, a2], a3, n] - S2[a3, a1, a2, SP[a1, a3], a2, n] - 
    S2[a2, n]*S2[a3, a1, a3, a1, a2, n] - S2[a3, a1, a3, a1, SP[a2, a2], n] + 
    2*S2[a1, n]*S2[a3, a1, a3, a2, a2, n] + 
    2*S2[a3, a1, a3, a2, SP[a1, a2], n] + S2[a3, a1, a3, SP[a1, a2], a2, n] - 
    2*S2[a3, a1, SP[a1, a2], a2, a3, n] - S2[a3, a1, SP[a1, a2], a3, a2, n] - 
    2*S2[a3, a1, SP[a1, a3], a2, a2, n] - S2[a3, a1, SP[a2, a2], a1, a3, n] - 
    3*S2[a3, a1, SP[a2, a3], a1, a2, n] + 
    S2[a1, n]*S2[a3, a2, a1, a2, a3, n] + S2[a3, a2, a1, a2, SP[a1, a3], n] + 
    S2[a1, n]*S2[a3, a2, a1, a3, a2, n] + S2[a3, a2, a1, a3, SP[a1, a2], n] + 
    S2[a3, a2, a1, SP[a1, a2], a3, n] + S2[a3, a2, a1, SP[a1, a3], a2, n] + 
    S2[a1, n]*S2[a3, a2, a3, a1, a2, n] + S2[a3, a2, a3, a1, SP[a1, a2], n] - 
    S2[a1, n]*S2[a3, a2, a3, a2, a1, n] - S2[a3, a2, a3, a2, SP[a1, a1], n] + 
    S2[a3, a2, a3, SP[a1, a1], a2, n] - S2[a3, a2, a3, SP[a1, a2], a1, n] + 
    S2[a3, a2, SP[a1, a1], a2, a3, n] + S2[a3, a2, SP[a1, a1], a3, a2, n] + 
    S2[a3, a2, SP[a1, a3], a1, a2, n] - S2[a3, a2, SP[a1, a3], a2, a1, n] + 
    2*S2[a1, n]*S2[a3, a3, a1, a2, a2, n] + 
    2*S2[a3, a3, a1, a2, SP[a1, a2], n] + 
    2*S2[a3, a3, a1, SP[a1, a2], a2, n] + 
    2*S2[a1, n]*S2[a3, a3, a2, a1, a2, n] + 
    2*S2[a3, a3, a2, a1, SP[a1, a2], n] - 
    2*S2[a1, n]*S2[a3, a3, a2, a2, a1, n] - 
    2*S2[a3, a3, a2, a2, SP[a1, a1], n] + 
    2*S2[a3, a3, a2, SP[a1, a1], a2, n] - 
    2*S2[a3, a3, a2, SP[a1, a2], a1, n] + 
    2*S2[a3, a3, SP[a1, a1], a2, a2, n] + 
    2*S2[a3, a3, SP[a1, a2], a1, a2, n] - 
    2*S2[a3, a3, SP[a1, a2], a2, a1, n] + S2[a3, SP[a1, a1], a2, a3, a2, n] + 
    2*S2[a3, SP[a1, a1], a3, a2, a2, n] - S2[a3, SP[a1, a2], a1, a2, a3, n] - 
    S2[a3, SP[a1, a2], a1, a3, a2, n] - S2[a3, SP[a1, a2], a2, a1, a3, n] - 
    S2[a3, SP[a1, a2], a3, a2, a1, n] - 2*S2[a3, SP[a1, a3], a1, a2, a2, n] - 
    2*S2[a3, SP[a1, a3], a2, a2, a1, n] - 
    8*S2[SP[a1, a1], a2, a2, a3, a3, n] - 
    7*S2[SP[a1, a1], a2, a3, a2, a3, n] - 
    6*S2[SP[a1, a1], a2, a3, a3, a2, n] - 
    6*S2[SP[a1, a1], a3, a2, a2, a3, n] - 
    5*S2[SP[a1, a1], a3, a2, a3, a2, n] - 
    4*S2[SP[a1, a1], a3, a3, a2, a2, n] + S2[SP[a1, a2], a3, a2, a1, a3, n] + 
    8*S2[SP[a1, a3], a1, a2, a2, a3, n] + 
    7*S2[SP[a1, a3], a1, a2, a3, a2, n] + 
    6*S2[SP[a1, a3], a1, a3, a2, a2, n] + 
    5*S2[SP[a1, a3], a2, a1, a2, a3, n] + 
    4*S2[SP[a1, a3], a2, a1, a3, a2, n] + 
    2*S2[SP[a1, a3], a2, a2, a1, a3, n] + 
    2*S2[SP[a1, a3], a2, a3, a1, a2, n] - S2[SP[a1, a3], a2, a3, a2, a1, n] + 
    2*S2[SP[a1, a3], a3, a1, a2, a2, n] + S2[SP[a1, a3], a3, a2, a1, a2, n] - 
    2*S2[SP[a1, a3], a3, a2, a2, a1, n] - 
    2*S2[SP[a2, a3], a1, a1, a2, a3, n] - 
    2*S2[SP[a2, a3], a1, a1, a3, a2, n] - S2[SP[a2, a3], a1, a2, a1, a3, n] - 
    S2[SP[a2, a3], a1, a3, a1, a2, n] - 4*S2[SP[a3, a3], a1, a1, a2, a2, n] - 
    2*S2[SP[a3, a3], a1, a2, a1, a2, n] + 2*S2[a3, a1, a3, a1, a2, a2, n] - 
    S2[a3, a2, a1, a2, a3, a1, n] - S2[a3, a2, a1, a3, a1, a2, n] - 
    2*S2[a3, a2, a3, a1, a1, a2, n] + 2*S2[a3, a2, a3, a2, a1, a1, n] + 
    4*S2[a3, a3, a1, a1, a2, a2, n] - 4*S2[a3, a3, a2, a1, a1, a2, n] + 
    4*S2[a3, a3, a2, a2, a1, a1, n] /; 
   MyMemberQ[{{a1, a2, a3}}, {a1, a1, a2, a2, a3, a3}] && a1 != a2 != a3, 
 S2[a2_, a1_, a3_, a2_, a3_, a1_, n_] :> 
  S2[a1, a2, a3, n]^2 - S2[a1, a3, a2, n]^2/2 + S2[SP[a1, a1], SP[a2, a2], 
     SP[a3, a3], n] - S2[SP[a1, a1], SP[a3, a3], SP[a2, a2], n]/2 - 
    2*S2[a1, a1, SP[a2, a2], SP[a3, a3], n] + S2[a1, a1, SP[a3, a3], 
     SP[a2, a2], n] + 2*S2[a1, a3, n]*S2[a1, a2, a2, a3, n] + 
    2*S2[a1, a3, n]*S2[a1, a2, a3, a2, n] - 
    2*S2[a1, a2, SP[a1, a2], SP[a3, a3], n] - 
    2*S2[a1, a2, SP[a1, a3], SP[a2, a3], n] + 2*S2[a1, a3, n]*
     S2[a1, a3, a2, a2, n] + 2*S2[a1, a2, n]*S2[a1, a3, a2, a3, n] + 
    2*S2[a1, a2, n]*S2[a1, a3, a3, a2, n] - 
    4*S2[a1, a3, SP[a1, a2], SP[a2, a3], n] - 
    2*S2[a1, a3, SP[a1, a3], SP[a2, a2], n] - 
    4*S2[a1, SP[a1, a2], a2, SP[a3, a3], n] - 
    2*S2[a1, SP[a1, a2], a3, SP[a2, a3], n] - 
    4*S2[a1, SP[a1, a2], SP[a2, a3], a3, n] - 
    2*S2[a1, SP[a1, a2], SP[a3, a3], a2, n] - 
    4*S2[a1, SP[a1, a3], a2, SP[a2, a3], n] - S2[a1, SP[a1, a3], a3, 
     SP[a2, a2], n] - 2*S2[a1, SP[a1, a3], SP[a2, a2], a3, n] - 
    3*S2[a1, SP[a1, a3], SP[a2, a3], a2, n] - 
    S2[a1, a2, n]*S2[a2, a3, a1, a3, n] + S2[a2, a3, SP[a1, a1], SP[a2, a3], 
     n] + S2[a2, SP[a1, a3], a1, SP[a2, a3], n] + 
    S2[a2, SP[a1, a3], SP[a1, a2], a3, n] - 
    4*S2[SP[a1, a1], a2, a2, SP[a3, a3], n] - 
    2*S2[SP[a1, a1], a2, a3, SP[a2, a3], n] - 
    4*S2[SP[a1, a1], a2, SP[a2, a3], a3, n] - 
    2*S2[SP[a1, a1], a2, SP[a3, a3], a2, n] - 
    4*S2[SP[a1, a1], a3, a2, SP[a2, a3], n] - S2[SP[a1, a1], a3, a3, 
     SP[a2, a2], n] - 2*S2[SP[a1, a1], a3, SP[a2, a2], a3, n] - 
    3*S2[SP[a1, a1], a3, SP[a2, a3], a2, n] - 
    2*S2[SP[a1, a1], SP[a2, a2], a3, a3, n] - 
    4*S2[SP[a1, a1], SP[a2, a3], a2, a3, n] - 
    4*S2[SP[a1, a1], SP[a2, a3], a3, a2, n] - S2[SP[a1, a1], SP[a3, a3], a2, 
     a2, n] + S2[SP[a1, a2], a3, a1, SP[a2, a3], n] + 
    S2[SP[a1, a2], a3, SP[a1, a2], a3, n] + S2[SP[a1, a2], SP[a2, a3], a1, 
     a3, n] - 8*S2[a3, n]*S2[a1, a1, a2, a2, a3, n] - 
    6*S2[a3, n]*S2[a1, a1, a2, a3, a2, n] - 
    2*S2[a1, a1, a2, a3, SP[a2, a3], n] - 
    2*S2[a1, a1, a2, SP[a3, a3], a2, n] - 
    4*S2[a3, n]*S2[a1, a1, a3, a2, a2, n] - 
    2*S2[a2, n]*S2[a1, a1, a3, a2, a3, n] + 
    2*S2[a1, a1, a3, a2, SP[a2, a3], n] + 
    2*S2[a1, a1, a3, a3, SP[a2, a2], n] + 
    2*S2[a1, a1, a3, SP[a2, a2], a3, n] + 
    2*S2[a1, a1, a3, SP[a2, a3], a2, n] + 
    4*S2[a1, a1, SP[a2, a2], a3, a3, n] - 
    2*S2[a1, a1, SP[a2, a3], a2, a3, n] + 
    2*S2[a1, a1, SP[a2, a3], a3, a2, n] - 
    2*S2[a1, a1, SP[a3, a3], a2, a2, n] - 
    4*S2[a3, n]*S2[a1, a2, a1, a2, a3, n] - 
    3*S2[a3, n]*S2[a1, a2, a1, a3, a2, n] - S2[a1, a2, a1, a3, SP[a2, a3], 
     n] - S2[a1, a2, a1, SP[a3, a3], a2, n] - 
    2*S2[a3, n]*S2[a1, a2, a2, a1, a3, n] + 
    S2[a2, n]*S2[a1, a2, a3, a1, a3, n] + 
    2*S2[a1, a2, a3, a1, SP[a2, a3], n] + 
    2*S2[a1, a2, a3, SP[a1, a2], a3, n] + 
    4*S2[a1, a2, SP[a1, a2], a3, a3, n] - S2[a1, a2, SP[a1, a3], a3, a2, n] - 
    2*S2[a1, a2, SP[a2, a3], a1, a3, n] + 
    4*S2[a1, a3, a1, a2, SP[a2, a3], n] + 
    S2[a2, n]*S2[a1, a3, a1, a3, a2, n] + 
    2*S2[a1, a3, a1, a3, SP[a2, a2], n] + 
    2*S2[a1, a3, a1, SP[a2, a2], a3, n] + 
    4*S2[a1, a3, a1, SP[a2, a3], a2, n] + 
    S2[a3, n]*S2[a1, a3, a2, a1, a2, n] + 
    5*S2[a1, a3, a2, a1, SP[a2, a3], n] - 
    S2[a1, n]*S2[a1, a3, a2, a3, a2, n] - S2[a1, a3, a2, a3, SP[a1, a2], n] + 
    2*S2[a1, a3, a2, SP[a1, a2], a3, n] + 
    2*S2[a1, a3, a2, SP[a1, a3], a2, n] + 
    2*S2[a1, a3, a3, a1, SP[a2, a2], n] - 
    2*S2[a1, n]*S2[a1, a3, a3, a2, a2, n] - 
    2*S2[a1, a3, a3, a2, SP[a1, a2], n] + 
    4*S2[a1, a3, SP[a1, a2], a2, a3, n] + 
    3*S2[a1, a3, SP[a1, a2], a3, a2, n] + 
    2*S2[a1, a3, SP[a1, a3], a2, a2, n] + S2[a1, a3, SP[a2, a3], a1, a2, n] + 
    8*S2[a1, SP[a1, a2], a2, a3, a3, n] + 
    6*S2[a1, SP[a1, a2], a3, a2, a3, n] + 
    6*S2[a1, SP[a1, a2], a3, a3, a2, n] - 
    4*S2[a1, SP[a2, a3], a1, a2, a3, n] - 
    2*S2[a1, SP[a2, a3], a1, a3, a2, n] - 
    2*S2[a1, SP[a2, a3], a2, a1, a3, n] + S2[a1, SP[a3, a3], a2, a1, a2, n] - 
    S2[a2, a1, a3, a1, SP[a2, a3], n] + S2[a1, n]*S2[a2, a1, a3, a2, a3, n] + 
    S2[a2, a1, a3, a2, SP[a1, a3], n] + S2[a2, a1, SP[a1, a3], a2, a3, n] - 
    S2[a2, a1, SP[a2, a3], a1, a3, n] - 2*S2[a2, a3, a1, a1, SP[a2, a3], n] - 
    S2[a2, a3, a1, SP[a1, a2], a3, n] - S2[a2, a3, a1, SP[a1, a3], a2, n] - 
    S2[a2, a3, SP[a1, a1], a2, a3, n] - S2[a2, a3, SP[a1, a1], a3, a2, n] + 
    S2[a2, SP[a1, a1], a3, a2, a3, n] - S2[a2, SP[a1, a3], a1, a2, a3, n] - 
    S2[a2, SP[a1, a3], a1, a3, a2, n] - S2[a2, SP[a1, a3], a2, a1, a3, n] + 
    4*S2[a3, n]*S2[a3, a1, a1, a2, a2, n] + 
    2*S2[a2, n]*S2[a3, a1, a1, a2, a3, n] + 
    6*S2[a3, a1, a1, a2, SP[a2, a3], n] + 
    2*S2[a2, n]*S2[a3, a1, a1, a3, a2, n] + 
    2*S2[a3, a1, a1, a3, SP[a2, a2], n] + 
    2*S2[a3, a1, a1, SP[a2, a2], a3, n] + 
    6*S2[a3, a1, a1, SP[a2, a3], a2, n] + 
    2*S2[a3, n]*S2[a3, a1, a2, a1, a2, n] + 
    S2[a2, n]*S2[a3, a1, a2, a1, a3, n] + 
    3*S2[a3, a1, a2, a1, SP[a2, a3], n] - 
    S2[a1, n]*S2[a3, a1, a2, a3, a2, n] - S2[a3, a1, a2, a3, SP[a1, a2], n] + 
    S2[a3, a1, a2, SP[a1, a2], a3, n] + S2[a3, a1, a2, SP[a1, a3], a2, n] + 
    S2[a2, n]*S2[a3, a1, a3, a1, a2, n] + S2[a3, a1, a3, a1, SP[a2, a2], n] - 
    2*S2[a1, n]*S2[a3, a1, a3, a2, a2, n] - 
    2*S2[a3, a1, a3, a2, SP[a1, a2], n] - S2[a3, a1, a3, SP[a1, a2], a2, n] + 
    2*S2[a3, a1, SP[a1, a2], a2, a3, n] + S2[a3, a1, SP[a1, a2], a3, a2, n] + 
    2*S2[a3, a1, SP[a1, a3], a2, a2, n] + S2[a3, a1, SP[a2, a2], a1, a3, n] + 
    3*S2[a3, a1, SP[a2, a3], a1, a2, n] - 
    S2[a1, n]*S2[a3, a2, a1, a2, a3, n] - S2[a3, a2, a1, a2, SP[a1, a3], n] - 
    S2[a1, n]*S2[a3, a2, a1, a3, a2, n] - S2[a3, a2, a1, a3, SP[a1, a2], n] - 
    S2[a3, a2, a1, SP[a1, a2], a3, n] - S2[a3, a2, a1, SP[a1, a3], a2, n] - 
    2*S2[a1, n]*S2[a3, a2, a3, a1, a2, n] - 
    2*S2[a3, a2, a3, a1, SP[a1, a2], n] + 
    S2[a1, n]*S2[a3, a2, a3, a2, a1, n] + S2[a3, a2, a3, a2, SP[a1, a1], n] - 
    2*S2[a3, a2, a3, SP[a1, a1], a2, n] + S2[a3, a2, a3, SP[a1, a2], a1, n] - 
    S2[a3, a2, SP[a1, a1], a2, a3, n] - S2[a3, a2, SP[a1, a1], a3, a2, n] - 
    2*S2[a3, a2, SP[a1, a3], a1, a2, n] + S2[a3, a2, SP[a1, a3], a2, a1, n] - 
    2*S2[a1, n]*S2[a3, a3, a1, a2, a2, n] - 
    2*S2[a3, a3, a1, a2, SP[a1, a2], n] - 
    2*S2[a3, a3, a1, SP[a1, a2], a2, n] - 
    2*S2[a1, n]*S2[a3, a3, a2, a1, a2, n] - 
    2*S2[a3, a3, a2, a1, SP[a1, a2], n] + 
    2*S2[a1, n]*S2[a3, a3, a2, a2, a1, n] + 
    2*S2[a3, a3, a2, a2, SP[a1, a1], n] - 
    2*S2[a3, a3, a2, SP[a1, a1], a2, n] + 
    2*S2[a3, a3, a2, SP[a1, a2], a1, n] - 
    2*S2[a3, a3, SP[a1, a1], a2, a2, n] - 
    2*S2[a3, a3, SP[a1, a2], a1, a2, n] + 
    2*S2[a3, a3, SP[a1, a2], a2, a1, n] - S2[a3, SP[a1, a1], a2, a3, a2, n] - 
    2*S2[a3, SP[a1, a1], a3, a2, a2, n] + S2[a3, SP[a1, a2], a1, a2, a3, n] + 
    S2[a3, SP[a1, a2], a1, a3, a2, n] + S2[a3, SP[a1, a2], a2, a1, a3, n] - 
    S2[a3, SP[a1, a2], a3, a1, a2, n] + S2[a3, SP[a1, a2], a3, a2, a1, n] + 
    2*S2[a3, SP[a1, a3], a1, a2, a2, n] + 
    2*S2[a3, SP[a1, a3], a2, a2, a1, n] + 
    8*S2[SP[a1, a1], a2, a2, a3, a3, n] + 
    8*S2[SP[a1, a1], a2, a3, a2, a3, n] + 
    6*S2[SP[a1, a1], a2, a3, a3, a2, n] + 
    8*S2[SP[a1, a1], a3, a2, a2, a3, n] + 
    6*S2[SP[a1, a1], a3, a2, a3, a2, n] + 
    4*S2[SP[a1, a1], a3, a3, a2, a2, n] - S2[SP[a1, a2], a1, a3, a2, a3, n] - 
    S2[SP[a1, a2], a3, a1, a2, a3, n] - S2[SP[a1, a2], a3, a2, a1, a3, n] - 
    8*S2[SP[a1, a3], a1, a2, a2, a3, n] - 
    7*S2[SP[a1, a3], a1, a2, a3, a2, n] - 
    6*S2[SP[a1, a3], a1, a3, a2, a2, n] - 
    5*S2[SP[a1, a3], a2, a1, a2, a3, n] - 
    4*S2[SP[a1, a3], a2, a1, a3, a2, n] - 
    2*S2[SP[a1, a3], a2, a2, a1, a3, n] - 
    2*S2[SP[a1, a3], a2, a3, a1, a2, n] + S2[SP[a1, a3], a2, a3, a2, a1, n] - 
    2*S2[SP[a1, a3], a3, a1, a2, a2, n] - S2[SP[a1, a3], a3, a2, a1, a2, n] + 
    2*S2[SP[a1, a3], a3, a2, a2, a1, n] + 
    2*S2[SP[a2, a3], a1, a1, a2, a3, n] + 
    2*S2[SP[a2, a3], a1, a1, a3, a2, n] + S2[SP[a2, a3], a1, a2, a1, a3, n] + 
    S2[SP[a2, a3], a1, a3, a1, a2, n] + 4*S2[SP[a3, a3], a1, a1, a2, a2, n] + 
    2*S2[SP[a3, a3], a1, a2, a1, a2, n] - 2*S2[a3, a1, a3, a1, a2, a2, n] + 
    S2[a3, a2, a1, a2, a3, a1, n] + 2*S2[a3, a2, a1, a3, a1, a2, n] + 
    4*S2[a3, a2, a3, a1, a1, a2, n] + S2[a3, a2, a3, a1, a2, a1, n] - 
    2*S2[a3, a2, a3, a2, a1, a1, n] - 4*S2[a3, a3, a1, a1, a2, a2, n] + 
    4*S2[a3, a3, a2, a1, a1, a2, n] - 4*S2[a3, a3, a2, a2, a1, a1, n] /; 
   MyMemberQ[{{a1, a2, a3}}, {a1, a1, a2, a2, a3, a3}] && a1 != a2 != a3, 
 S2[a2_, a1_, a3_, a3_, a1_, a2_, n_] :> 
  S2[a1, a2, a3, n]^2/2 + S2[a1, a2, a3, n]*S2[a1, a3, a2, n] + 
    S2[a1, a3, a2, n]^2/2 + S2[SP[a1, a1], SP[a2, a2], SP[a3, a3], n]/2 + 
    S2[SP[a1, a1], SP[a2, a3], SP[a2, a3], n] + 
    S2[SP[a1, a1], SP[a3, a3], SP[a2, a2], n]/2 - S2[a1, a1, SP[a2, a2], 
     SP[a3, a3], n] - 2*S2[a1, a1, SP[a2, a3], SP[a2, a3], n] - 
    S2[a1, a1, SP[a3, a3], SP[a2, a2], n] - S2[a1, a2, n]*
     S2[a1, a2, a3, a3, n] + S2[a1, a2, SP[a1, a3], SP[a2, a3], n] - 
    S2[a1, a2, n]*S2[a1, a3, a2, a3, n] - S2[a1, a2, n]*
     S2[a1, a3, a3, a2, n] + S2[a1, a3, SP[a1, a2], SP[a2, a3], n] + 
    S2[a1, a3, SP[a1, a3], SP[a2, a2], n] - S2[a1, SP[a1, a2], a2, 
     SP[a3, a3], n] - S2[a1, SP[a1, a2], SP[a3, a3], a2, n] - 
    S2[SP[a1, a1], a2, a2, SP[a3, a3], n] - S2[SP[a1, a1], a2, SP[a3, a3], 
     a2, n] - S2[SP[a1, a1], SP[a3, a3], a2, a2, n] + 
    2*S2[a1, a1, a2, a2, SP[a3, a3], n] + 
    2*S2[a1, a1, a2, SP[a3, a3], a2, n] + 
    2*S2[a1, a1, SP[a3, a3], a2, a2, n] + S2[a1, a2, a1, a2, SP[a3, a3], n] + 
    S2[a1, a2, a1, SP[a3, a3], a2, n] - S2[a1, a2, a3, a1, SP[a2, a3], n] - 
    S2[a1, a2, a3, SP[a1, a3], a2, n] - S2[a1, a3, a2, a1, SP[a2, a3], n] - 
    S2[a1, a3, a2, SP[a1, a3], a2, n] + S2[a2, n]*S2[a1, a3, a3, a1, a2, n] - 
    2*S2[a1, a3, SP[a1, a3], a2, a2, n] + S2[a1, a3, SP[a2, a3], a1, a2, n] + 
    S2[a1, SP[a2, a3], a3, a1, a2, n] + S2[SP[a1, a2], a3, a3, a1, a2, n] /; 
   MyMemberQ[{{a1, a2, a3}}, {a1, a1, a2, a2, a3, a3}] && a1 != a2 != a3, 
 S2[a2_, a1_, a3_, a3_, a2_, a1_, n_] :> 
  -S2[a1, a2, a3, n]^2 - S2[a1, a2, a3, n]*S2[a1, a3, a2, n] - 
    S2[SP[a1, a1], SP[a2, a2], SP[a3, a3], n] - S2[SP[a1, a1], SP[a2, a3], 
     SP[a2, a3], n] + 2*S2[a1, a1, SP[a2, a2], SP[a3, a3], n] + 
    2*S2[a1, a1, SP[a2, a3], SP[a2, a3], n] + 
    S2[a1, a2, n]*S2[a1, a2, a3, a3, n] - S2[a1, a2, SP[a1, a3], SP[a2, a3], 
     n] + 2*S2[a1, SP[a1, a2], a2, SP[a3, a3], n] + 
    S2[a1, SP[a1, a2], SP[a2, a3], a3, n] + S2[a1, SP[a1, a2], SP[a3, a3], 
     a2, n] + S2[a1, SP[a1, a3], a2, SP[a2, a3], n] + 
    S2[a1, SP[a1, a3], SP[a2, a2], a3, n] + 
    2*S2[SP[a1, a1], a2, a2, SP[a3, a3], n] + S2[SP[a1, a1], a2, SP[a2, a3], 
     a3, n] + S2[SP[a1, a1], a2, SP[a3, a3], a2, n] + 
    S2[SP[a1, a1], a3, a2, SP[a2, a3], n] + S2[SP[a1, a1], a3, SP[a2, a2], 
     a3, n] + S2[SP[a1, a1], SP[a2, a2], a3, a3, n] + 
    S2[SP[a1, a1], SP[a2, a3], a2, a3, n] + S2[SP[a1, a1], SP[a2, a3], a3, 
     a2, n] + 2*S2[a3, n]*S2[a1, a1, a2, a2, a3, n] - 
    2*S2[a1, a1, a2, a2, SP[a3, a3], n] + 
    2*S2[a3, n]*S2[a1, a1, a2, a3, a2, n] + 
    2*S2[a1, a1, a2, a3, SP[a2, a3], n] + 
    2*S2[a3, n]*S2[a1, a1, a3, a2, a2, n] - 
    2*S2[a2, n]*S2[a1, a1, a3, a3, a2, n] - 
    2*S2[a1, a1, a3, a3, SP[a2, a2], n] - 
    2*S2[a1, a1, a3, SP[a2, a2], a3, n] - 
    2*S2[a1, a1, SP[a2, a2], a3, a3, n] - 
    2*S2[a1, a1, SP[a2, a3], a3, a2, n] + 
    2*S2[a1, a1, SP[a3, a3], a2, a2, n] + 
    S2[a3, n]*S2[a1, a2, a1, a2, a3, n] - S2[a1, a2, a1, a2, SP[a3, a3], n] + 
    S2[a3, n]*S2[a1, a2, a1, a3, a2, n] + S2[a1, a2, a1, a3, SP[a2, a3], n] + 
    S2[a1, a2, a3, a1, SP[a2, a3], n] + S2[a1, a2, a3, SP[a1, a3], a2, n] + 
    S2[a1, a2, SP[a1, a3], a3, a2, n] - S2[a1, a3, a1, a2, SP[a2, a3], n] - 
    S2[a2, n]*S2[a1, a3, a1, a3, a2, n] - S2[a1, a3, a1, a3, SP[a2, a2], n] - 
    S2[a1, a3, a1, SP[a2, a2], a3, n] - S2[a1, a3, a1, SP[a2, a3], a2, n] - 
    S2[a2, n]*S2[a1, a3, a3, a1, a2, n] - S2[a1, a3, a3, a1, SP[a2, a2], n] - 
    S2[a1, a3, a3, SP[a1, a2], a2, n] - S2[a1, a3, SP[a1, a2], a2, a3, n] - 
    S2[a1, a3, SP[a1, a2], a3, a2, n] - S2[a1, a3, SP[a2, a3], a1, a2, n] - 
    2*S2[a1, SP[a1, a2], a2, a3, a3, n] - 
    2*S2[a1, SP[a1, a2], a3, a2, a3, n] - 
    3*S2[a1, SP[a1, a2], a3, a3, a2, n] + S2[a1, SP[a1, a3], a2, a3, a2, n] + 
    2*S2[a1, SP[a1, a3], a3, a2, a2, n] + S2[a1, SP[a2, a3], a1, a2, a3, n] - 
    S2[a1, SP[a2, a3], a3, a1, a2, n] + S2[a1, n]*S2[a2, a1, a3, a3, a2, n] + 
    S2[a2, a1, a3, a3, SP[a1, a2], n] + S2[a2, a1, a3, SP[a1, a3], a2, n] + 
    S2[a2, a1, SP[a1, a3], a3, a2, n] + S2[a2, SP[a1, a1], a3, a3, a2, n] - 
    2*S2[a3, n]*S2[a3, a1, a1, a2, a2, n] - 
    2*S2[a3, a1, a1, a2, SP[a2, a3], n] - 
    2*S2[a3, a1, a1, SP[a2, a3], a2, n] - 
    S2[a3, n]*S2[a3, a1, a2, a1, a2, n] - S2[a3, a1, a2, a1, SP[a2, a3], n] - 
    S2[a3, a1, a2, SP[a1, a3], a2, n] - 2*S2[a3, a1, SP[a1, a3], a2, a2, n] - 
    S2[a3, a1, SP[a2, a3], a1, a2, n] + S2[a1, n]*S2[a3, a2, a3, a1, a2, n] + 
    S2[a3, a2, a3, a1, SP[a1, a2], n] + S2[a3, a2, a3, SP[a1, a1], a2, n] + 
    S2[a3, a2, SP[a1, a3], a1, a2, n] + 2*S2[a1, n]*
     S2[a3, a3, a1, a2, a2, n] + 2*S2[a3, a3, a1, a2, SP[a1, a2], n] + 
    2*S2[a3, a3, a1, SP[a1, a2], a2, n] + 
    S2[a1, n]*S2[a3, a3, a2, a1, a2, n] + S2[a3, a3, a2, a1, SP[a1, a2], n] + 
    S2[a3, a3, a2, SP[a1, a1], a2, n] + 2*S2[a3, a3, SP[a1, a1], a2, a2, n] + 
    S2[a3, a3, SP[a1, a2], a1, a2, n] + S2[a3, SP[a1, a2], a3, a1, a2, n] - 
    2*S2[SP[a1, a1], a2, a2, a3, a3, n] - 
    2*S2[SP[a1, a1], a2, a3, a2, a3, n] - S2[SP[a1, a1], a2, a3, a3, a2, n] - 
    2*S2[SP[a1, a1], a3, a2, a2, a3, n] - S2[SP[a1, a1], a3, a2, a3, a2, n] - 
    S2[SP[a1, a2], a1, a3, a3, a2, n] - S2[SP[a1, a2], a3, a1, a3, a2, n] - 
    S2[SP[a1, a2], a3, a3, a1, a2, n] + 2*S2[SP[a1, a3], a1, a2, a2, a3, n] + 
    2*S2[SP[a1, a3], a1, a2, a3, a2, n] + 
    2*S2[SP[a1, a3], a1, a3, a2, a2, n] + S2[SP[a1, a3], a2, a1, a2, a3, n] + 
    S2[SP[a1, a3], a2, a1, a3, a2, n] + S2[SP[a1, a3], a2, a3, a1, a2, n] + 
    2*S2[SP[a1, a3], a3, a1, a2, a2, n] + S2[SP[a1, a3], a3, a2, a1, a2, n] - 
    2*S2[SP[a3, a3], a1, a1, a2, a2, n] - S2[SP[a3, a3], a1, a2, a1, a2, n] - 
    S2[a3, a2, a1, a3, a1, a2, n] - 2*S2[a3, a2, a3, a1, a1, a2, n] - 
    S2[a3, a2, a3, a1, a2, a1, n] - S2[a3, a3, a1, a2, a1, a2, n] - 
    2*S2[a3, a3, a1, a2, a2, a1, n] - 2*S2[a3, a3, a2, a1, a1, a2, n] - 
    S2[a3, a3, a2, a1, a2, a1, n] /; 
   MyMemberQ[{{a1, a2, a3}}, {a1, a1, a2, a2, a3, a3}] && a1 != a2 != a3, 
 S2[a2_, a2_, a1_, a1_, a3_, a3_, n_] :> 
  S2[a1, a2, a2, n]*S2[a1, a3, a3, n] + S2[SP[a1, a1], SP[a2, a3], 
     SP[a2, a3], n] - 2*S2[a1, a1, SP[a2, a3], SP[a2, a3], n] - 
    S2[a1, SP[a1, a2], a3, SP[a2, a3], n] - S2[a1, SP[a1, a2], SP[a2, a3], 
     a3, n] - S2[a1, SP[a1, a3], a2, SP[a2, a3], n] - 
    S2[a1, SP[a1, a3], SP[a2, a3], a2, n] - S2[SP[a1, a1], a2, a3, 
     SP[a2, a3], n] - S2[SP[a1, a1], a2, SP[a2, a3], a3, n] - 
    S2[SP[a1, a1], a3, a2, SP[a2, a3], n] - S2[SP[a1, a1], a3, SP[a2, a3], 
     a2, n] - S2[SP[a1, a1], SP[a2, a3], a2, a3, n] - 
    S2[SP[a1, a1], SP[a2, a3], a3, a2, n] - 
    (S2[a3, n]*S2[a1, a1, a2, a2, a3, n])/2 - 
    S2[a1, a1, a2, a2, SP[a3, a3], n]/2 - 
    (S2[a3, n]*S2[a1, a1, a2, a3, a2, n])/2 - 
    (S2[a2, n]*S2[a1, a1, a2, a3, a3, n])/2 + S2[a1, a1, a2, a3, SP[a2, a3], 
     n] + S2[a1, a1, a2, SP[a2, a3], a3, n] - 
    S2[a1, a1, a2, SP[a3, a3], a2, n]/2 - 
    (S2[a3, n]*S2[a1, a1, a3, a2, a2, n])/2 - 
    (S2[a2, n]*S2[a1, a1, a3, a2, a3, n])/2 + S2[a1, a1, a3, a2, SP[a2, a3], 
     n] - (S2[a2, n]*S2[a1, a1, a3, a3, a2, n])/2 - 
    S2[a1, a1, a3, a3, SP[a2, a2], n]/2 - S2[a1, a1, a3, SP[a2, a2], a3, n]/
     2 + S2[a1, a1, a3, SP[a2, a3], a2, n] - 
    S2[a1, a1, SP[a2, a2], a3, a3, n]/2 + S2[a1, a1, SP[a2, a3], a2, a3, n] + 
    S2[a1, a1, SP[a2, a3], a3, a2, n] - S2[a1, a1, SP[a3, a3], a2, a2, n]/2 - 
    (S2[a2, n]*S2[a1, a2, a1, a3, a3, n])/2 + 
    S2[a1, a2, a1, a3, SP[a2, a3], n]/2 + S2[a1, a2, a1, SP[a2, a3], a3, n]/
     2 + S2[a1, a2, SP[a1, a2], a3, a3, n]/2 - 
    (S2[a3, n]*S2[a1, a3, a1, a2, a2, n])/2 + 
    S2[a1, a3, a1, a2, SP[a2, a3], n]/2 + S2[a1, a3, a1, SP[a2, a3], a2, n]/
     2 + S2[a1, a3, SP[a1, a3], a2, a2, n]/2 + 
    S2[a1, SP[a1, a2], a2, a3, a3, n]/2 + S2[a1, SP[a1, a2], a3, a2, a3, n]/
     2 + S2[a1, SP[a1, a2], a3, a3, a2, n]/2 + 
    S2[a1, SP[a1, a3], a2, a2, a3, n]/2 + S2[a1, SP[a1, a3], a2, a3, a2, n]/
     2 + S2[a1, SP[a1, a3], a3, a2, a2, n]/2 - 
    S2[a1, SP[a2, a2], a1, a3, a3, n]/2 - S2[a1, SP[a3, a3], a1, a2, a2, n]/
     2 + (S2[a2, n]*S2[a2, a1, a1, a3, a3, n])/2 + 
    S2[a2, a1, a1, a3, SP[a2, a3], n]/2 + S2[a2, a1, a1, SP[a2, a3], a3, n]/
     2 + S2[a2, a1, SP[a1, a2], a3, a3, n]/2 + 
    S2[a2, SP[a1, a2], a1, a3, a3, n]/2 + 
    (S2[a3, n]*S2[a3, a1, a1, a2, a2, n])/2 + 
    S2[a3, a1, a1, a2, SP[a2, a3], n]/2 + S2[a3, a1, a1, SP[a2, a3], a2, n]/
     2 + S2[a3, a1, SP[a1, a3], a2, a2, n]/2 + 
    S2[a3, SP[a1, a3], a1, a2, a2, n]/2 + S2[SP[a1, a1], a2, a2, a3, a3, n] + 
    S2[SP[a1, a1], a2, a3, a2, a3, n] + S2[SP[a1, a1], a2, a3, a3, a2, n] + 
    S2[SP[a1, a1], a3, a2, a2, a3, n] + S2[SP[a1, a1], a3, a2, a3, a2, n] + 
    S2[SP[a1, a1], a3, a3, a2, a2, n] - S2[SP[a1, a2], a1, a2, a3, a3, n]/2 - 
    S2[SP[a1, a2], a1, a3, a2, a3, n]/2 - S2[SP[a1, a2], a1, a3, a3, a2, n]/
     2 - S2[SP[a1, a2], a2, a1, a3, a3, n]/2 - 
    S2[SP[a1, a3], a1, a2, a2, a3, n]/2 - S2[SP[a1, a3], a1, a2, a3, a2, n]/
     2 - S2[SP[a1, a3], a1, a3, a2, a2, n]/2 - 
    S2[SP[a1, a3], a3, a1, a2, a2, n]/2 + S2[SP[a2, a2], a1, a1, a3, a3, n]/
     2 + S2[SP[a3, a3], a1, a1, a2, a2, n]/2 - S2[a3, a3, a1, a1, a2, a2, 
     n] /; MyMemberQ[{{a1, a2, a3}}, {a1, a1, a2, a2, a3, a3}] && 
    a1 != a2 != a3, S2[a2_, a2_, a1_, a3_, a1_, a3_, n_] :> 
  -2*S2[a1, a2, a2, n]*S2[a1, a3, a3, n] - 
    2*S2[SP[a1, a1], SP[a2, a3], SP[a2, a3], n] + 
    4*S2[a1, a1, SP[a2, a3], SP[a2, a3], n] + 
    S2[a1, a3, n]*S2[a1, a2, a2, a3, n] + S2[a1, a3, n]*
     S2[a1, a2, a3, a2, n] - S2[a1, a2, SP[a1, a2], SP[a3, a3], n] - 
    S2[a1, a2, SP[a1, a3], SP[a2, a3], n] + S2[a1, a3, n]*
     S2[a1, a3, a2, a2, n] - S2[a1, a3, SP[a1, a2], SP[a2, a3], n] - 
    S2[a1, SP[a1, a2], a2, SP[a3, a3], n] + S2[a1, SP[a1, a2], a3, 
     SP[a2, a3], n] + S2[a1, SP[a1, a2], SP[a2, a3], a3, n] - 
    S2[a1, SP[a1, a2], SP[a3, a3], a2, n] + S2[a1, SP[a1, a3], a2, 
     SP[a2, a3], n] + S2[a1, SP[a1, a3], SP[a2, a3], a2, n] - 
    S2[SP[a1, a1], a2, a2, SP[a3, a3], n] + S2[SP[a1, a1], a2, a3, 
     SP[a2, a3], n] + S2[SP[a1, a1], a2, SP[a2, a3], a3, n] - 
    S2[SP[a1, a1], a2, SP[a3, a3], a2, n] + S2[SP[a1, a1], a3, a2, 
     SP[a2, a3], n] + S2[SP[a1, a1], a3, SP[a2, a3], a2, n] + 
    S2[SP[a1, a1], SP[a2, a3], a2, a3, n] + S2[SP[a1, a1], SP[a2, a3], a3, 
     a2, n] - S2[SP[a1, a1], SP[a3, a3], a2, a2, n] + 
    2*S2[a1, a1, a2, a2, SP[a3, a3], n] - 
    2*S2[a1, a1, a2, a3, SP[a2, a3], n] - 
    2*S2[a1, a1, a2, SP[a2, a3], a3, n] + 
    2*S2[a1, a1, a2, SP[a3, a3], a2, n] - 
    2*S2[a1, a1, a3, a2, SP[a2, a3], n] - 
    2*S2[a1, a1, a3, SP[a2, a3], a2, n] - 
    2*S2[a1, a1, SP[a2, a3], a2, a3, n] - 
    2*S2[a1, a1, SP[a2, a3], a3, a2, n] + 
    2*S2[a1, a1, SP[a3, a3], a2, a2, n] + S2[a1, a2, a1, a2, SP[a3, a3], n] - 
    S2[a1, a2, a1, a3, SP[a2, a3], n] - S2[a1, a2, a1, SP[a2, a3], a3, n] + 
    S2[a1, a2, a1, SP[a3, a3], a2, n] + S2[a1, a2, a2, a1, SP[a3, a3], n] + 
    S2[a1, a2, a2, SP[a1, a3], a3, n] - (S2[a2, n]*S2[a1, a2, a3, a1, a3, n])/
     2 + S2[a1, a2, a3, a1, SP[a2, a3], n]/2 + 
    S2[a1, a2, a3, SP[a1, a2], a3, n]/2 + S2[a1, a2, SP[a1, a3], a2, a3, n] + 
    S2[a1, a2, SP[a1, a3], a3, a2, n] - S2[a1, a2, SP[a2, a3], a1, a3, n]/2 + 
    S2[a3, n]*S2[a1, a3, a1, a2, a2, n] - 
    (S2[a2, n]*S2[a1, a3, a1, a2, a3, n])/2 - 
    S2[a1, a3, a1, a2, SP[a2, a3], n]/2 - 
    (S2[a2, n]*S2[a1, a3, a1, a3, a2, n])/2 - 
    S2[a1, a3, a1, a3, SP[a2, a2], n]/2 - S2[a1, a3, a1, SP[a2, a2], a3, n]/
     2 - S2[a1, a3, a1, SP[a2, a3], a2, n]/2 - 
    (S2[a2, n]*S2[a1, a3, a2, a1, a3, n])/2 + 
    S2[a1, a3, a2, a1, SP[a2, a3], n]/2 + S2[a1, a3, a2, SP[a1, a2], a3, n]/
     2 + S2[a1, a3, SP[a1, a2], a2, a3, n]/2 + 
    S2[a1, a3, SP[a1, a2], a3, a2, n]/2 - S2[a1, a3, SP[a1, a3], a2, a2, n] - 
    S2[a1, a3, SP[a2, a2], a1, a3, n]/2 - S2[a1, SP[a2, a2], a3, a1, a3, n]/
     2 - S2[a1, SP[a2, a3], a1, a2, a3, n]/2 - 
    S2[a1, SP[a2, a3], a1, a3, a2, n]/2 - S2[a1, SP[a2, a3], a2, a1, a3, n]/
     2 + S2[a1, SP[a3, a3], a1, a2, a2, n] + 
    (S2[a2, n]*S2[a2, a1, a3, a1, a3, n])/2 + 
    S2[a2, a1, a3, a1, SP[a2, a3], n]/2 + S2[a2, a1, a3, SP[a1, a2], a3, n]/
     2 + S2[a2, a1, SP[a2, a3], a1, a3, n]/2 + 
    S2[a2, SP[a1, a2], a3, a1, a3, n]/2 - S2[SP[a1, a2], a2, a3, a1, a3, n]/
     2 - S2[SP[a1, a2], a3, a1, a2, a3, n]/2 - 
    S2[SP[a1, a2], a3, a1, a3, a2, n]/2 - S2[SP[a1, a2], a3, a2, a1, a3, n]/
     2 + S2[SP[a1, a3], a3, a1, a2, a2, n] + 
    S2[SP[a2, a2], a1, a3, a1, a3, n]/2 - S2[a3, a1, a3, a1, a2, a2, n] /; 
   MyMemberQ[{{a1, a2, a3}}, {a1, a1, a2, a2, a3, a3}] && a1 != a2 != a3, 
 S2[a2_, a2_, a1_, a3_, a3_, a1_, n_] :> 
  S2[a1, a2, a2, n]*S2[a1, a3, a3, n] + S2[SP[a1, a1], SP[a2, a3], 
     SP[a2, a3], n] - 2*S2[a1, a1, SP[a2, a3], SP[a2, a3], n] - 
    S2[a1, a3, n]*S2[a1, a2, a2, a3, n] - S2[a1, a3, n]*
     S2[a1, a2, a3, a2, n] + S2[a1, a2, SP[a1, a2], SP[a3, a3], n] + 
    S2[a1, a2, SP[a1, a3], SP[a2, a3], n] - S2[a1, a3, n]*
     S2[a1, a3, a2, a2, n] + S2[a1, a3, SP[a1, a2], SP[a2, a3], n] + 
    S2[a1, SP[a1, a2], a2, SP[a3, a3], n] + S2[a1, SP[a1, a2], SP[a3, a3], 
     a2, n] + S2[SP[a1, a1], a2, a2, SP[a3, a3], n] + 
    S2[SP[a1, a1], a2, SP[a3, a3], a2, n] + S2[SP[a1, a1], SP[a3, a3], a2, 
     a2, n] - 2*S2[a1, a1, a2, a2, SP[a3, a3], n] + 
    S2[a2, n]*S2[a1, a1, a2, a3, a3, n] + S2[a1, a1, a2, a3, SP[a2, a3], n] + 
    S2[a1, a1, a2, SP[a2, a3], a3, n] - 2*S2[a1, a1, a2, SP[a3, a3], a2, n] + 
    S2[a2, n]*S2[a1, a1, a3, a2, a3, n] + S2[a1, a1, a3, a2, SP[a2, a3], n] + 
    S2[a2, n]*S2[a1, a1, a3, a3, a2, n] + S2[a1, a1, a3, a3, SP[a2, a2], n] + 
    S2[a1, a1, a3, SP[a2, a2], a3, n] + S2[a1, a1, a3, SP[a2, a3], a2, n] + 
    S2[a1, a1, SP[a2, a2], a3, a3, n] + S2[a1, a1, SP[a2, a3], a2, a3, n] + 
    S2[a1, a1, SP[a2, a3], a3, a2, n] - 2*S2[a1, a1, SP[a3, a3], a2, a2, n] - 
    S2[a1, a2, a1, a2, SP[a3, a3], n] - S2[a1, a2, a1, SP[a3, a3], a2, n] - 
    S2[a1, a2, a2, a1, SP[a3, a3], n] - S2[a1, a2, a2, SP[a1, a3], a3, n] + 
    (S2[a2, n]*S2[a1, a2, a3, a1, a3, n])/2 - 
    S2[a1, a2, a3, a1, SP[a2, a3], n]/2 - S2[a1, a2, a3, SP[a1, a2], a3, n]/
     2 - S2[a1, a2, SP[a1, a2], a3, a3, n] - S2[a1, a2, SP[a1, a3], a2, a3, 
     n] - S2[a1, a2, SP[a1, a3], a3, a2, n] + 
    S2[a1, a2, SP[a2, a3], a1, a3, n]/2 + 
    (S2[a2, n]*S2[a1, a3, a1, a2, a3, n])/2 + 
    S2[a1, a3, a1, a2, SP[a2, a3], n]/2 + 
    (S2[a2, n]*S2[a1, a3, a1, a3, a2, n])/2 + 
    S2[a1, a3, a1, a3, SP[a2, a2], n]/2 + S2[a1, a3, a1, SP[a2, a2], a3, n]/
     2 + S2[a1, a3, a1, SP[a2, a3], a2, n]/2 + 
    (S2[a2, n]*S2[a1, a3, a2, a1, a3, n])/2 - 
    S2[a1, a3, a2, a1, SP[a2, a3], n]/2 - S2[a1, a3, a2, SP[a1, a2], a3, n]/
     2 - S2[a1, a3, SP[a1, a2], a2, a3, n]/2 - 
    S2[a1, a3, SP[a1, a2], a3, a2, n]/2 + S2[a1, a3, SP[a1, a3], a2, a2, n] + 
    S2[a1, a3, SP[a2, a2], a1, a3, n]/2 - S2[a1, SP[a1, a3], a2, a2, a3, n] - 
    S2[a1, SP[a1, a3], a2, a3, a2, n] - S2[a1, SP[a1, a3], a3, a2, a2, n] + 
    S2[a1, SP[a2, a2], a3, a1, a3, n]/2 + S2[a1, SP[a2, a3], a1, a2, a3, n]/
     2 + S2[a1, SP[a2, a3], a1, a3, a2, n]/2 + 
    S2[a1, SP[a2, a3], a2, a1, a3, n]/2 - 
    S2[a2, n]*S2[a2, a1, a1, a3, a3, n] - S2[a2, a1, a1, a3, SP[a2, a3], n] - 
    S2[a2, a1, a1, SP[a2, a3], a3, n] - (S2[a2, n]*S2[a2, a1, a3, a1, a3, n])/
     2 - S2[a2, a1, a3, a1, SP[a2, a3], n]/2 - 
    S2[a2, a1, a3, SP[a1, a2], a3, n]/2 - S2[a2, a1, SP[a1, a2], a3, a3, n] - 
    S2[a2, a1, SP[a2, a3], a1, a3, n]/2 + 
    S2[a1, n]*S2[a2, a2, a1, a3, a3, n] + S2[a2, a2, a1, a3, SP[a1, a3], n] + 
    S2[a2, a2, a1, SP[a1, a3], a3, n] + S2[a2, a2, SP[a1, a1], a3, a3, n] - 
    S2[a2, SP[a1, a2], a3, a1, a3, n]/2 - 
    S2[a1, n]*S2[a3, a3, a1, a2, a2, n] - S2[a3, a3, a1, a2, SP[a1, a2], n] - 
    S2[a3, a3, a1, SP[a1, a2], a2, n] - S2[a3, a3, SP[a1, a1], a2, a2, n] - 
    S2[a3, SP[a1, a3], a1, a2, a2, n] - S2[SP[a1, a1], a2, a2, a3, a3, n] - 
    S2[SP[a1, a1], a2, a3, a2, a3, n] - S2[SP[a1, a1], a2, a3, a3, a2, n] - 
    S2[SP[a1, a1], a3, a2, a2, a3, n] - S2[SP[a1, a1], a3, a2, a3, a2, n] - 
    S2[SP[a1, a1], a3, a3, a2, a2, n] + S2[SP[a1, a2], a1, a2, a3, a3, n] + 
    S2[SP[a1, a2], a1, a3, a2, a3, n] + S2[SP[a1, a2], a1, a3, a3, a2, n] + 
    S2[SP[a1, a2], a2, a1, a3, a3, n] + S2[SP[a1, a2], a2, a3, a1, a3, n]/2 + 
    S2[SP[a1, a2], a3, a1, a2, a3, n]/2 + S2[SP[a1, a2], a3, a1, a3, a2, n]/
     2 + S2[SP[a1, a2], a3, a2, a1, a3, n]/2 - S2[SP[a1, a3], a3, a1, a2, a2, 
     n] - S2[SP[a2, a2], a1, a1, a3, a3, n] - 
    S2[SP[a2, a2], a1, a3, a1, a3, n]/2 + S2[a3, a1, a3, a1, a2, a2, n] + 
    2*S2[a3, a3, a1, a1, a2, a2, n] + S2[a3, a3, a1, a2, a1, a2, n] + 
    S2[a3, a3, a1, a2, a2, a1, n] /; 
   MyMemberQ[{{a1, a2, a3}}, {a1, a1, a2, a2, a3, a3}] && a1 != a2 != a3, 
 S2[a2_, a2_, a3_, a1_, a1_, a3_, n_] :> 
  -(S2[a1, a2, a3, n]^2/2) - S2[SP[a1, a1], SP[a2, a2], SP[a3, a3], n]/2 + 
    S2[a1, a1, SP[a2, a2], SP[a3, a3], n] - S2[a1, a3, n]*
     S2[a1, a2, a2, a3, n] - S2[a1, a3, n]*S2[a1, a2, a3, a2, n] + 
    S2[a1, a2, SP[a1, a2], SP[a3, a3], n] + S2[a1, a2, SP[a1, a3], 
     SP[a2, a3], n] - S2[a1, a3, n]*S2[a1, a3, a2, a2, n] + 
    S2[a1, a3, SP[a1, a2], SP[a2, a3], n] + 
    2*S2[a1, SP[a1, a2], a2, SP[a3, a3], n] + S2[a1, SP[a1, a2], a3, 
     SP[a2, a3], n] + 2*S2[a1, SP[a1, a2], SP[a2, a3], a3, n] + 
    S2[a1, SP[a1, a2], SP[a3, a3], a2, n] + S2[a1, SP[a1, a3], a2, 
     SP[a2, a3], n] + S2[a1, SP[a1, a3], SP[a2, a3], a2, n] + 
    2*S2[SP[a1, a1], a2, a2, SP[a3, a3], n] + S2[SP[a1, a1], a2, a3, 
     SP[a2, a3], n] + 2*S2[SP[a1, a1], a2, SP[a2, a3], a3, n] + 
    S2[SP[a1, a1], a2, SP[a3, a3], a2, n] + S2[SP[a1, a1], a3, a2, 
     SP[a2, a3], n] + S2[SP[a1, a1], a3, SP[a2, a3], a2, n] + 
    S2[SP[a1, a1], SP[a2, a2], a3, a3, n] + S2[SP[a1, a1], SP[a2, a3], a2, 
     a3, n] + S2[SP[a1, a1], SP[a2, a3], a3, a2, n] + 
    S2[SP[a1, a1], SP[a3, a3], a2, a2, n] + 
    4*S2[a3, n]*S2[a1, a1, a2, a2, a3, n] + 
    2*S2[a3, n]*S2[a1, a1, a2, a3, a2, n] + 
    S2[a3, n]*S2[a1, a1, a3, a2, a2, n] - S2[a1, a1, a3, a2, SP[a2, a3], n] - 
    S2[a1, a1, a3, SP[a2, a3], a2, n] - 2*S2[a1, a1, SP[a2, a2], a3, a3, n] + 
    2*S2[a1, a1, SP[a2, a3], a2, a3, n] - S2[a1, a1, SP[a3, a3], a2, a2, n] + 
    2*S2[a3, n]*S2[a1, a2, a1, a2, a3, n] + 
    S2[a3, n]*S2[a1, a2, a1, a3, a2, n] + 
    S2[a3, n]*S2[a1, a2, a2, a1, a3, n] - S2[a1, a2, a3, a1, SP[a2, a3], n] - 
    S2[a1, a2, a3, SP[a1, a2], a3, n] - 2*S2[a1, a2, SP[a1, a2], a3, a3, n] + 
    S2[a1, a2, SP[a2, a3], a1, a3, n] - S2[a3, n]*S2[a1, a3, a1, a2, a2, n] - 
    2*S2[a1, a3, a1, a2, SP[a2, a3], n] - 
    2*S2[a1, a3, a1, SP[a2, a3], a2, n] - 
    S2[a3, n]*S2[a1, a3, a2, a1, a2, n] - 
    2*S2[a1, a3, a2, a1, SP[a2, a3], n] - 
    (S2[a1, n]*S2[a1, a3, a2, a2, a3, n])/2 - 
    S2[a1, a3, a2, a2, SP[a1, a3], n]/2 + 
    (S2[a1, n]*S2[a1, a3, a2, a3, a2, n])/2 + 
    S2[a1, a3, a2, a3, SP[a1, a2], n]/2 - 
    (3*S2[a1, a3, a2, SP[a1, a2], a3, n])/2 - 
    S2[a1, a3, a2, SP[a1, a3], a2, n]/2 + 
    S2[a1, n]*S2[a1, a3, a3, a2, a2, n] + S2[a1, a3, a3, a2, SP[a1, a2], n] + 
    S2[a1, a3, a3, SP[a1, a2], a2, n] - (3*S2[a1, a3, SP[a1, a2], a2, a3, n])/
     2 - S2[a1, a3, SP[a1, a2], a3, a2, n]/2 - S2[a1, a3, SP[a2, a3], a1, a2, 
     n] - 4*S2[a1, SP[a1, a2], a2, a3, a3, n] - 
    3*S2[a1, SP[a1, a2], a3, a2, a3, n] - 
    2*S2[a1, SP[a1, a2], a3, a3, a2, n] + 
    (3*S2[a1, SP[a1, a3], a2, a2, a3, n])/2 + 
    S2[a1, SP[a1, a3], a2, a3, a2, n]/2 + 
    2*S2[a1, SP[a2, a3], a1, a2, a3, n] + S2[a1, SP[a2, a3], a1, a3, a2, n] + 
    S2[a1, SP[a2, a3], a2, a1, a3, n] - S2[a1, SP[a3, a3], a1, a2, a2, n] - 
    S2[a1, SP[a3, a3], a2, a1, a2, n] + (S2[a2, n]*S2[a2, a3, a1, a1, a3, n])/
     2 + S2[a2, a3, a1, a1, SP[a2, a3], n]/2 + 
    S2[a2, a3, a1, SP[a1, a2], a3, n]/2 + S2[a2, a3, SP[a1, a2], a1, a3, n]/
     2 + S2[a2, SP[a2, a3], a1, a1, a3, n]/2 - 
    2*S2[a3, n]*S2[a3, a1, a1, a2, a2, n] - 
    (S2[a2, n]*S2[a3, a1, a1, a2, a3, n])/2 - 
    (5*S2[a3, a1, a1, a2, SP[a2, a3], n])/2 - 
    (S2[a2, n]*S2[a3, a1, a1, a3, a2, n])/2 - 
    S2[a3, a1, a1, a3, SP[a2, a2], n]/2 - S2[a3, a1, a1, SP[a2, a2], a3, n]/
     2 - (5*S2[a3, a1, a1, SP[a2, a3], a2, n])/2 - 
    S2[a3, n]*S2[a3, a1, a2, a1, a2, n] - 
    (S2[a2, n]*S2[a3, a1, a2, a1, a3, n])/2 - 
    (3*S2[a3, a1, a2, a1, SP[a2, a3], n])/2 - 
    (S2[a1, n]*S2[a3, a1, a2, a2, a3, n])/2 - 
    S2[a3, a1, a2, a2, SP[a1, a3], n]/2 + 
    (S2[a1, n]*S2[a3, a1, a2, a3, a2, n])/2 + 
    S2[a3, a1, a2, a3, SP[a1, a2], n]/2 - S2[a3, a1, a2, SP[a1, a2], a3, n] - 
    S2[a3, a1, a2, SP[a1, a3], a2, n]/2 + 
    S2[a1, n]*S2[a3, a1, a3, a2, a2, n] + S2[a3, a1, a3, a2, SP[a1, a2], n] + 
    S2[a3, a1, a3, SP[a1, a2], a2, n] - S2[a3, a1, SP[a1, a2], a2, a3, n] - 
    S2[a3, a1, SP[a1, a3], a2, a2, n] - S2[a3, a1, SP[a2, a2], a1, a3, n]/2 - 
    S2[a3, a1, SP[a2, a3], a1, a2, n] - (S2[a2, n]*S2[a3, a2, a1, a1, a3, n])/
     2 - S2[a3, a2, a1, a1, SP[a2, a3], n]/2 + 
    (S2[a1, n]*S2[a3, a2, a1, a2, a3, n])/2 + 
    S2[a3, a2, a1, a2, SP[a1, a3], n]/2 + 
    (S2[a1, n]*S2[a3, a2, a1, a3, a2, n])/2 + 
    S2[a3, a2, a1, a3, SP[a1, a2], n]/2 + S2[a3, a2, a1, SP[a1, a3], a2, n]/
     2 + (S2[a1, n]*S2[a3, a2, a2, a1, a3, n])/2 + 
    S2[a3, a2, a2, a1, SP[a1, a3], n]/2 + 
    (S2[a1, n]*S2[a3, a2, a2, a3, a1, n])/2 + 
    S2[a3, a2, a2, a3, SP[a1, a1], n]/2 + S2[a3, a2, a2, SP[a1, a1], a3, n]/
     2 + S2[a3, a2, a2, SP[a1, a3], a1, n]/2 + 
    (S2[a1, n]*S2[a3, a2, a3, a1, a2, n])/2 + 
    S2[a3, a2, a3, a1, SP[a1, a2], n]/2 - 
    (S2[a1, n]*S2[a3, a2, a3, a2, a1, n])/2 - 
    S2[a3, a2, a3, a2, SP[a1, a1], n]/2 + S2[a3, a2, a3, SP[a1, a1], a2, n]/
     2 - S2[a3, a2, a3, SP[a1, a2], a1, n]/2 + 
    S2[a3, a2, SP[a1, a1], a2, a3, n]/2 + S2[a3, a2, SP[a1, a1], a3, a2, n]/
     2 + S2[a3, a2, SP[a1, a2], a3, a1, n]/2 + 
    S2[a3, a2, SP[a1, a3], a1, a2, n]/2 - S2[a3, a2, SP[a1, a3], a2, a1, n]/
     2 + S2[a1, n]*S2[a3, a3, a1, a2, a2, n] + S2[a3, a3, a1, a2, SP[a1, a2], 
     n] + S2[a3, a3, a1, SP[a1, a2], a2, n] + 
    S2[a1, n]*S2[a3, a3, a2, a1, a2, n] + S2[a3, a3, a2, a1, SP[a1, a2], n] - 
    S2[a1, n]*S2[a3, a3, a2, a2, a1, n] - S2[a3, a3, a2, a2, SP[a1, a1], n] + 
    S2[a3, a3, a2, SP[a1, a1], a2, n] - S2[a3, a3, a2, SP[a1, a2], a1, n] + 
    S2[a3, a3, SP[a1, a1], a2, a2, n] + S2[a3, a3, SP[a1, a2], a1, a2, n] - 
    S2[a3, a3, SP[a1, a2], a2, a1, n] - S2[a3, SP[a1, a1], a2, a2, a3, n]/2 + 
    S2[a3, SP[a1, a1], a2, a3, a2, n]/2 + S2[a3, SP[a1, a1], a3, a2, a2, n] + 
    S2[a3, SP[a1, a2], a2, a3, a1, n]/2 + S2[a3, SP[a1, a2], a3, a1, a2, n]/
     2 - S2[a3, SP[a1, a2], a3, a2, a1, n]/2 - S2[a3, SP[a1, a3], a1, a2, a2, 
     n] - S2[a3, SP[a1, a3], a2, a2, a1, n] - 
    S2[a3, SP[a2, a2], a1, a1, a3, n]/2 - 
    4*S2[SP[a1, a1], a2, a2, a3, a3, n] - 
    3*S2[SP[a1, a1], a2, a3, a2, a3, n] - 
    2*S2[SP[a1, a1], a2, a3, a3, a2, n] - 
    (5*S2[SP[a1, a1], a3, a2, a2, a3, n])/2 - 
    (3*S2[SP[a1, a1], a3, a2, a3, a2, n])/2 - S2[SP[a1, a1], a3, a3, a2, a2, 
     n] + (7*S2[SP[a1, a3], a1, a2, a2, a3, n])/2 + 
    (5*S2[SP[a1, a3], a1, a2, a3, a2, n])/2 + 
    2*S2[SP[a1, a3], a1, a3, a2, a2, n] + 
    (5*S2[SP[a1, a3], a2, a1, a2, a3, n])/2 + 
    (3*S2[SP[a1, a3], a2, a1, a3, a2, n])/2 + 
    (3*S2[SP[a1, a3], a2, a2, a1, a3, n])/2 + 
    S2[SP[a1, a3], a2, a2, a3, a1, n]/2 + S2[SP[a1, a3], a2, a3, a1, a2, n]/
     2 - S2[SP[a1, a3], a2, a3, a2, a1, n]/2 - S2[SP[a1, a3], a3, a2, a2, a1, 
     n] + S2[SP[a2, a2], a3, a1, a1, a3, n]/2 - 
    S2[SP[a2, a3], a1, a1, a2, a3, n]/2 - S2[SP[a2, a3], a1, a1, a3, a2, n]/
     2 - S2[SP[a2, a3], a1, a2, a1, a3, n]/2 - 
    S2[SP[a2, a3], a2, a1, a1, a3, n]/2 - 
    2*S2[SP[a3, a3], a1, a1, a2, a2, n] - S2[SP[a3, a3], a1, a2, a1, a2, n] + 
    S2[a3, a1, a3, a1, a2, a2, n] - S2[a3, a2, a1, a2, a3, a1, n] - 
    S2[a3, a2, a1, a3, a1, a2, n] - S2[a3, a2, a2, a1, a3, a1, n] - 
    S2[a3, a2, a2, a3, a1, a1, n] - S2[a3, a2, a3, a1, a1, a2, n] + 
    S2[a3, a2, a3, a2, a1, a1, n] + 2*S2[a3, a3, a1, a1, a2, a2, n] - 
    2*S2[a3, a3, a2, a1, a1, a2, n] + 2*S2[a3, a3, a2, a2, a1, a1, n] /; 
   MyMemberQ[{{a1, a2, a3}}, {a1, a1, a2, a2, a3, a3}] && a1 != a2 != a3, 
 S2[a2_, a2_, a3_, a1_, a3_, a1_, n_] :> 
  S2[a1, a2, a3, n]^2/2 + S2[SP[a1, a1], SP[a2, a2], SP[a3, a3], n]/2 - 
    S2[a1, a1, SP[a2, a2], SP[a3, a3], n] + S2[a1, a3, n]*
     S2[a1, a2, a2, a3, n] + S2[a1, a3, n]*S2[a1, a2, a3, a2, n] - 
    S2[a1, a2, SP[a1, a2], SP[a3, a3], n] - S2[a1, a2, SP[a1, a3], 
     SP[a2, a3], n] + S2[a1, a3, n]*S2[a1, a3, a2, a2, n] - 
    S2[a1, a3, SP[a1, a2], SP[a2, a3], n] - 
    2*S2[a1, SP[a1, a2], a2, SP[a3, a3], n] - S2[a1, SP[a1, a2], a3, 
     SP[a2, a3], n] - 2*S2[a1, SP[a1, a2], SP[a2, a3], a3, n] - 
    S2[a1, SP[a1, a2], SP[a3, a3], a2, n] - S2[a1, SP[a1, a3], a2, 
     SP[a2, a3], n] - S2[a1, SP[a1, a3], SP[a2, a3], a2, n] - 
    2*S2[SP[a1, a1], a2, a2, SP[a3, a3], n] - S2[SP[a1, a1], a2, a3, 
     SP[a2, a3], n] - 2*S2[SP[a1, a1], a2, SP[a2, a3], a3, n] - 
    S2[SP[a1, a1], a2, SP[a3, a3], a2, n] - S2[SP[a1, a1], a3, a2, 
     SP[a2, a3], n] - S2[SP[a1, a1], a3, SP[a2, a3], a2, n] - 
    S2[SP[a1, a1], SP[a2, a2], a3, a3, n] - S2[SP[a1, a1], SP[a2, a3], a2, 
     a3, n] - S2[SP[a1, a1], SP[a2, a3], a3, a2, n] - 
    S2[SP[a1, a1], SP[a3, a3], a2, a2, n] - 
    4*S2[a3, n]*S2[a1, a1, a2, a2, a3, n] - 
    2*S2[a3, n]*S2[a1, a1, a2, a3, a2, n] + 
    2*S2[a1, a1, a3, a2, SP[a2, a3], n] + 
    2*S2[a1, a1, a3, SP[a2, a3], a2, n] + 
    2*S2[a1, a1, SP[a2, a2], a3, a3, n] - 
    2*S2[a1, a1, SP[a2, a3], a2, a3, n] + 
    2*S2[a1, a1, SP[a3, a3], a2, a2, n] - 
    2*S2[a3, n]*S2[a1, a2, a1, a2, a3, n] - 
    S2[a3, n]*S2[a1, a2, a1, a3, a2, n] - 
    S2[a3, n]*S2[a1, a2, a2, a1, a3, n] - 
    (S2[a2, n]*S2[a1, a2, a3, a1, a3, n])/2 + 
    S2[a1, a2, a3, a1, SP[a2, a3], n]/2 + S2[a1, a2, a3, SP[a1, a2], a3, n]/
     2 + 2*S2[a1, a2, SP[a1, a2], a3, a3, n] - 
    (3*S2[a1, a2, SP[a2, a3], a1, a3, n])/2 + 
    S2[a3, n]*S2[a1, a3, a1, a2, a2, n] + 
    (S2[a2, n]*S2[a1, a3, a1, a2, a3, n])/2 + 
    (5*S2[a1, a3, a1, a2, SP[a2, a3], n])/2 + 
    (S2[a2, n]*S2[a1, a3, a1, a3, a2, n])/2 + 
    S2[a1, a3, a1, a3, SP[a2, a2], n]/2 + S2[a1, a3, a1, SP[a2, a2], a3, n]/
     2 + (5*S2[a1, a3, a1, SP[a2, a3], a2, n])/2 + 
    S2[a3, n]*S2[a1, a3, a2, a1, a2, n] + 
    (S2[a2, n]*S2[a1, a3, a2, a1, a3, n])/2 + 
    (5*S2[a1, a3, a2, a1, SP[a2, a3], n])/2 - 
    S2[a1, n]*S2[a1, a3, a2, a3, a2, n] - S2[a1, a3, a2, a3, SP[a1, a2], n] + 
    (3*S2[a1, a3, a2, SP[a1, a2], a3, n])/2 - 
    2*S2[a1, n]*S2[a1, a3, a3, a2, a2, n] - 
    2*S2[a1, a3, a3, a2, SP[a1, a2], n] - 
    2*S2[a1, a3, a3, SP[a1, a2], a2, n] + 
    (3*S2[a1, a3, SP[a1, a2], a2, a3, n])/2 + 
    S2[a1, a3, SP[a1, a2], a3, a2, n]/2 - S2[a1, a3, SP[a1, a3], a2, a2, n] + 
    S2[a1, a3, SP[a2, a2], a1, a3, n]/2 + S2[a1, a3, SP[a2, a3], a1, a2, n] + 
    4*S2[a1, SP[a1, a2], a2, a3, a3, n] + 
    3*S2[a1, SP[a1, a2], a3, a2, a3, n] + 
    2*S2[a1, SP[a1, a2], a3, a3, a2, n] - 
    2*S2[a1, SP[a1, a3], a2, a2, a3, n] - S2[a1, SP[a1, a3], a2, a3, a2, n] - 
    S2[a1, SP[a2, a2], a3, a1, a3, n]/2 - 
    (3*S2[a1, SP[a2, a3], a1, a2, a3, n])/2 - 
    S2[a1, SP[a2, a3], a1, a3, a2, n]/2 - S2[a1, SP[a2, a3], a2, a1, a3, n]/
     2 + S2[a1, SP[a3, a3], a1, a2, a2, n] + S2[a1, SP[a3, a3], a2, a1, a2, 
     n] - (S2[a2, n]*S2[a2, a1, a3, a1, a3, n])/2 - 
    S2[a2, a1, a3, a1, SP[a2, a3], n]/2 - S2[a2, a1, a3, SP[a1, a2], a3, n]/
     2 - S2[a2, a1, SP[a2, a3], a1, a3, n]/2 + 
    S2[a1, n]*S2[a2, a2, a3, a1, a3, n] + S2[a2, a2, a3, a1, SP[a1, a3], n] + 
    S2[a2, a2, a3, SP[a1, a1], a3, n] + S2[a2, a2, SP[a1, a3], a1, a3, n] - 
    S2[a2, n]*S2[a2, a3, a1, a1, a3, n] - S2[a2, a3, a1, a1, SP[a2, a3], n] - 
    S2[a2, a3, a1, SP[a1, a2], a3, n] - S2[a2, a3, SP[a1, a2], a1, a3, n] + 
    S2[a2, SP[a1, a2], a3, a1, a3, n]/2 - S2[a2, SP[a2, a3], a1, a1, a3, n] + 
    2*S2[a3, n]*S2[a3, a1, a1, a2, a2, n] + 
    S2[a2, n]*S2[a3, a1, a1, a2, a3, n] + 
    3*S2[a3, a1, a1, a2, SP[a2, a3], n] + 
    S2[a2, n]*S2[a3, a1, a1, a3, a2, n] + S2[a3, a1, a1, a3, SP[a2, a2], n] + 
    S2[a3, a1, a1, SP[a2, a2], a3, n] + 3*S2[a3, a1, a1, SP[a2, a3], a2, n] + 
    S2[a3, n]*S2[a3, a1, a2, a1, a2, n] + 
    S2[a2, n]*S2[a3, a1, a2, a1, a3, n] + 
    2*S2[a3, a1, a2, a1, SP[a2, a3], n] - 
    S2[a1, n]*S2[a3, a1, a2, a3, a2, n] - S2[a3, a1, a2, a3, SP[a1, a2], n] + 
    S2[a3, a1, a2, SP[a1, a2], a3, n] - 2*S2[a1, n]*
     S2[a3, a1, a3, a2, a2, n] - 2*S2[a3, a1, a3, a2, SP[a1, a2], n] - 
    2*S2[a3, a1, a3, SP[a1, a2], a2, n] + S2[a3, a1, SP[a1, a2], a2, a3, n] + 
    S2[a3, a1, SP[a2, a2], a1, a3, n] + S2[a3, a1, SP[a2, a3], a1, a2, n] + 
    S2[a2, n]*S2[a3, a2, a1, a1, a3, n] + S2[a3, a2, a1, a1, SP[a2, a3], n] - 
    S2[a1, n]*S2[a3, a2, a1, a2, a3, n] - S2[a3, a2, a1, a2, SP[a1, a3], n] - 
    S2[a1, n]*S2[a3, a2, a1, a3, a2, n] - S2[a3, a2, a1, a3, SP[a1, a2], n] - 
    S2[a3, a2, a1, SP[a1, a3], a2, n] - S2[a1, n]*S2[a3, a2, a2, a1, a3, n] - 
    S2[a3, a2, a2, a1, SP[a1, a3], n] - S2[a3, a2, a2, SP[a1, a1], a3, n] + 
    S2[a1, n]*S2[a3, a2, a3, a2, a1, n] + S2[a3, a2, a3, a2, SP[a1, a1], n] + 
    S2[a3, a2, a3, SP[a1, a2], a1, n] - S2[a3, a2, SP[a1, a1], a2, a3, n] - 
    S2[a3, a2, SP[a1, a1], a3, a2, n] + S2[a3, a2, SP[a1, a3], a2, a1, n] + 
    2*S2[a1, n]*S2[a3, a3, a2, a2, a1, n] + 
    2*S2[a3, a3, a2, a2, SP[a1, a1], n] + 
    2*S2[a3, a3, a2, SP[a1, a2], a1, n] + 
    2*S2[a3, a3, SP[a1, a2], a2, a1, n] - S2[a3, SP[a1, a1], a2, a3, a2, n] - 
    2*S2[a3, SP[a1, a1], a3, a2, a2, n] + S2[a3, SP[a1, a2], a3, a2, a1, n] + 
    2*S2[a3, SP[a1, a3], a1, a2, a2, n] + S2[a3, SP[a1, a3], a2, a1, a2, n] + 
    2*S2[a3, SP[a1, a3], a2, a2, a1, n] + S2[a3, SP[a2, a2], a1, a1, a3, n] + 
    4*S2[SP[a1, a1], a2, a2, a3, a3, n] + 
    3*S2[SP[a1, a1], a2, a3, a2, a3, n] + 
    2*S2[SP[a1, a1], a2, a3, a3, a2, n] + 
    2*S2[SP[a1, a1], a3, a2, a2, a3, n] + S2[SP[a1, a1], a3, a2, a3, a2, n] + 
    S2[SP[a1, a2], a2, a3, a1, a3, n]/2 + S2[SP[a1, a2], a3, a1, a2, a3, n]/
     2 + S2[SP[a1, a2], a3, a1, a3, a2, n]/2 + 
    S2[SP[a1, a2], a3, a2, a1, a3, n]/2 - 
    4*S2[SP[a1, a3], a1, a2, a2, a3, n] - 
    3*S2[SP[a1, a3], a1, a2, a3, a2, n] - 
    2*S2[SP[a1, a3], a1, a3, a2, a2, n] - 
    3*S2[SP[a1, a3], a2, a1, a2, a3, n] - 
    2*S2[SP[a1, a3], a2, a1, a3, a2, n] - 
    2*S2[SP[a1, a3], a2, a2, a1, a3, n] + S2[SP[a1, a3], a2, a3, a2, a1, n] + 
    S2[SP[a1, a3], a3, a1, a2, a2, n] + S2[SP[a1, a3], a3, a2, a1, a2, n] + 
    2*S2[SP[a1, a3], a3, a2, a2, a1, n] - S2[SP[a2, a2], a1, a3, a1, a3, n]/
     2 - S2[SP[a2, a2], a3, a1, a1, a3, n] + S2[SP[a2, a3], a1, a1, a2, a3, 
     n] + S2[SP[a2, a3], a1, a1, a3, a2, n] + S2[SP[a2, a3], a1, a2, a1, a3, 
     n] + S2[SP[a2, a3], a2, a1, a1, a3, n] + 
    2*S2[SP[a3, a3], a1, a1, a2, a2, n] + S2[SP[a3, a3], a1, a2, a1, a2, n] - 
    S2[a3, a1, a3, a1, a2, a2, n] + S2[a3, a2, a1, a2, a3, a1, n] + 
    S2[a3, a2, a1, a3, a1, a2, n] + S2[a3, a2, a2, a1, a3, a1, n] - 
    S2[a3, a2, a3, a1, a2, a1, n] - 2*S2[a3, a2, a3, a2, a1, a1, n] - 
    4*S2[a3, a3, a1, a1, a2, a2, n] - 2*S2[a3, a3, a1, a2, a1, a2, n] - 
    2*S2[a3, a3, a1, a2, a2, a1, n] - 2*S2[a3, a3, a2, a1, a2, a1, n] - 
    4*S2[a3, a3, a2, a2, a1, a1, n] /; 
   MyMemberQ[{{a1, a2, a3}}, {a1, a1, a2, a2, a3, a3}] && a1 != a2 != a3, 
 S2[a2_, a2_, a3_, a3_, a1_, a1_, n_] :> 
  (S2[a2, n]*S2[a1, a1, a2, a3, a3, n])/2 + S2[a1, a1, a2, a3, SP[a2, a3], n]/
     2 + S2[a1, a1, a2, SP[a2, a3], a3, n]/2 - 
    (S2[a2, n]*S2[a1, a1, a3, a2, a3, n])/2 - 
    S2[a1, a1, a3, a2, SP[a2, a3], n]/2 - 
    (S2[a2, n]*S2[a1, a1, a3, a3, a2, n])/2 - 
    S2[a1, a1, a3, a3, SP[a2, a2], n]/2 - S2[a1, a1, a3, SP[a2, a2], a3, n]/
     2 - S2[a1, a1, a3, SP[a2, a3], a2, n]/2 + 
    S2[a1, a1, SP[a2, a2], a3, a3, n]/2 - S2[a1, a1, SP[a2, a3], a2, a3, n]/
     2 - S2[a1, a1, SP[a2, a3], a3, a2, n]/2 + 
    (S2[a2, n]*S2[a1, a2, a1, a3, a3, n])/2 + 
    S2[a1, a2, a1, a3, SP[a2, a3], n]/2 + S2[a1, a2, a1, SP[a2, a3], a3, n]/
     2 - (S2[a1, n]*S2[a1, a2, a2, a3, a3, n])/2 - 
    S2[a1, a2, a2, a3, SP[a1, a3], n]/2 - S2[a1, a2, a2, SP[a1, a3], a3, n]/
     2 + (S2[a2, n]*S2[a1, a2, a3, a1, a3, n])/2 + 
    S2[a1, a2, a3, a1, SP[a2, a3], n]/2 + S2[a1, a2, a3, SP[a1, a2], a3, n]/
     2 + S2[a1, a2, SP[a2, a3], a1, a3, n]/2 - 
    (S2[a2, n]*S2[a1, a3, a1, a2, a3, n])/2 - 
    S2[a1, a3, a1, a2, SP[a2, a3], n]/2 - 
    (S2[a2, n]*S2[a1, a3, a1, a3, a2, n])/2 - 
    S2[a1, a3, a1, a3, SP[a2, a2], n]/2 - S2[a1, a3, a1, SP[a2, a2], a3, n]/
     2 - S2[a1, a3, a1, SP[a2, a3], a2, n]/2 - 
    (S2[a2, n]*S2[a1, a3, a2, a1, a3, n])/2 - 
    S2[a1, a3, a2, a1, SP[a2, a3], n]/2 + 
    (S2[a1, n]*S2[a1, a3, a2, a2, a3, n])/2 + 
    S2[a1, a3, a2, a2, SP[a1, a3], n]/2 + 
    (S2[a1, n]*S2[a1, a3, a2, a3, a2, n])/2 + 
    S2[a1, a3, a2, a3, SP[a1, a2], n]/2 + S2[a1, a3, a2, SP[a1, a3], a2, n]/
     2 + (S2[a1, n]*S2[a1, a3, a3, a2, a2, n])/2 + 
    S2[a1, a3, a3, a2, SP[a1, a2], n]/2 + S2[a1, a3, a3, SP[a1, a2], a2, n]/
     2 + S2[a1, a3, SP[a1, a3], a2, a2, n]/2 - 
    S2[a1, a3, SP[a2, a2], a1, a3, n]/2 - S2[a1, SP[a1, a2], a3, a2, a3, n]/
     2 - S2[a1, SP[a1, a2], a3, a3, a2, n]/2 + 
    S2[a1, SP[a1, a3], a2, a2, a3, n]/2 + S2[a1, SP[a1, a3], a2, a3, a2, n]/
     2 + S2[a1, SP[a1, a3], a3, a2, a2, n]/2 + 
    S2[a1, SP[a2, a2], a1, a3, a3, n]/2 + S2[a1, SP[a2, a2], a3, a1, a3, n]/
     2 - S2[a1, SP[a2, a3], a1, a2, a3, n]/2 - 
    S2[a1, SP[a2, a3], a1, a3, a2, n]/2 - S2[a1, SP[a2, a3], a2, a1, a3, n]/
     2 + (S2[a2, n]*S2[a2, a1, a1, a3, a3, n])/2 + 
    S2[a2, a1, a1, a3, SP[a2, a3], n]/2 + S2[a2, a1, a1, SP[a2, a3], a3, n]/
     2 - (S2[a1, n]*S2[a2, a1, a2, a3, a3, n])/2 - 
    S2[a2, a1, a2, a3, SP[a1, a3], n]/2 - S2[a2, a1, a2, SP[a1, a3], a3, n]/
     2 + (S2[a2, n]*S2[a2, a1, a3, a1, a3, n])/2 + 
    S2[a2, a1, a3, a1, SP[a2, a3], n]/2 + S2[a2, a1, a3, SP[a1, a2], a3, n]/
     2 + S2[a2, a1, SP[a2, a3], a1, a3, n]/2 - 
    (S2[a1, n]*S2[a2, a2, a1, a3, a3, n])/2 - 
    S2[a2, a2, a1, a3, SP[a1, a3], n]/2 - S2[a2, a2, a1, SP[a1, a3], a3, n]/
     2 - (S2[a1, n]*S2[a2, a2, a3, a1, a3, n])/2 - 
    S2[a2, a2, a3, a1, SP[a1, a3], n]/2 + 
    (S2[a1, n]*S2[a2, a2, a3, a3, a1, n])/2 + 
    S2[a2, a2, a3, a3, SP[a1, a1], n]/2 - S2[a2, a2, a3, SP[a1, a1], a3, n]/
     2 + S2[a2, a2, a3, SP[a1, a3], a1, n]/2 - 
    S2[a2, a2, SP[a1, a1], a3, a3, n]/2 - S2[a2, a2, SP[a1, a3], a1, a3, n]/
     2 + S2[a2, a2, SP[a1, a3], a3, a1, n]/2 + 
    (S2[a2, n]*S2[a2, a3, a1, a1, a3, n])/2 + 
    S2[a2, a3, a1, a1, SP[a2, a3], n]/2 + S2[a2, a3, a1, SP[a1, a2], a3, n]/
     2 + S2[a2, a3, SP[a1, a2], a1, a3, n]/2 - 
    S2[a2, SP[a1, a1], a2, a3, a3, n]/2 + S2[a2, SP[a1, a2], a3, a3, a1, n]/
     2 + S2[a2, SP[a2, a3], a1, a1, a3, n]/2 - 
    (S2[a2, n]*S2[a3, a1, a1, a2, a3, n])/2 - 
    S2[a3, a1, a1, a2, SP[a2, a3], n]/2 - 
    (S2[a2, n]*S2[a3, a1, a1, a3, a2, n])/2 - 
    S2[a3, a1, a1, a3, SP[a2, a2], n]/2 - S2[a3, a1, a1, SP[a2, a2], a3, n]/
     2 - S2[a3, a1, a1, SP[a2, a3], a2, n]/2 - 
    (S2[a2, n]*S2[a3, a1, a2, a1, a3, n])/2 - 
    S2[a3, a1, a2, a1, SP[a2, a3], n]/2 + 
    (S2[a1, n]*S2[a3, a1, a2, a2, a3, n])/2 + 
    S2[a3, a1, a2, a2, SP[a1, a3], n]/2 + 
    (S2[a1, n]*S2[a3, a1, a2, a3, a2, n])/2 + 
    S2[a3, a1, a2, a3, SP[a1, a2], n]/2 + S2[a3, a1, a2, SP[a1, a3], a2, n]/
     2 + (S2[a1, n]*S2[a3, a1, a3, a2, a2, n])/2 + 
    S2[a3, a1, a3, a2, SP[a1, a2], n]/2 + S2[a3, a1, a3, SP[a1, a2], a2, n]/
     2 + S2[a3, a1, SP[a1, a3], a2, a2, n]/2 - 
    S2[a3, a1, SP[a2, a2], a1, a3, n]/2 - 
    (S2[a2, n]*S2[a3, a2, a1, a1, a3, n])/2 - 
    S2[a3, a2, a1, a1, SP[a2, a3], n]/2 + 
    (S2[a1, n]*S2[a3, a2, a1, a2, a3, n])/2 + 
    S2[a3, a2, a1, a2, SP[a1, a3], n]/2 + 
    (S2[a1, n]*S2[a3, a2, a1, a3, a2, n])/2 + 
    S2[a3, a2, a1, a3, SP[a1, a2], n]/2 + S2[a3, a2, a1, SP[a1, a3], a2, n]/
     2 + (S2[a1, n]*S2[a3, a2, a2, a1, a3, n])/2 + 
    S2[a3, a2, a2, a1, SP[a1, a3], n]/2 - 
    (S2[a1, n]*S2[a3, a2, a2, a3, a1, n])/2 - 
    S2[a3, a2, a2, a3, SP[a1, a1], n]/2 + S2[a3, a2, a2, SP[a1, a1], a3, n]/
     2 - S2[a3, a2, a2, SP[a1, a3], a1, n]/2 - 
    (S2[a1, n]*S2[a3, a2, a3, a1, a2, n])/2 - 
    S2[a3, a2, a3, a1, SP[a1, a2], n]/2 - 
    (S2[a1, n]*S2[a3, a2, a3, a2, a1, n])/2 - 
    S2[a3, a2, a3, a2, SP[a1, a1], n]/2 - S2[a3, a2, a3, SP[a1, a1], a2, n]/
     2 - S2[a3, a2, a3, SP[a1, a2], a1, n]/2 + 
    S2[a3, a2, SP[a1, a1], a2, a3, n]/2 + S2[a3, a2, SP[a1, a1], a3, a2, n]/
     2 - S2[a3, a2, SP[a1, a2], a3, a1, n]/2 - 
    S2[a3, a2, SP[a1, a3], a1, a2, n]/2 - S2[a3, a2, SP[a1, a3], a2, a1, n]/
     2 - (S2[a1, n]*S2[a3, a3, a1, a2, a2, n])/2 - 
    S2[a3, a3, a1, a2, SP[a1, a2], n]/2 - S2[a3, a3, a1, SP[a1, a2], a2, n]/
     2 - (S2[a1, n]*S2[a3, a3, a2, a1, a2, n])/2 - 
    S2[a3, a3, a2, a1, SP[a1, a2], n]/2 - 
    (S2[a1, n]*S2[a3, a3, a2, a2, a1, n])/2 - 
    S2[a3, a3, a2, a2, SP[a1, a1], n]/2 - S2[a3, a3, a2, SP[a1, a1], a2, n]/
     2 - S2[a3, a3, a2, SP[a1, a2], a1, n]/2 - 
    S2[a3, a3, SP[a1, a1], a2, a2, n]/2 - S2[a3, a3, SP[a1, a2], a1, a2, n]/
     2 - S2[a3, a3, SP[a1, a2], a2, a1, n]/2 + 
    S2[a3, SP[a1, a1], a2, a2, a3, n]/2 + S2[a3, SP[a1, a1], a2, a3, a2, n]/
     2 + S2[a3, SP[a1, a1], a3, a2, a2, n]/2 - 
    S2[a3, SP[a1, a2], a2, a3, a1, n]/2 - S2[a3, SP[a1, a2], a3, a1, a2, n]/
     2 - S2[a3, SP[a1, a2], a3, a2, a1, n]/2 - 
    S2[a3, SP[a1, a3], a1, a2, a2, n]/2 - S2[a3, SP[a1, a3], a2, a1, a2, n]/
     2 - S2[a3, SP[a1, a3], a2, a2, a1, n]/2 - 
    S2[a3, SP[a2, a2], a1, a1, a3, n]/2 - S2[SP[a1, a1], a2, a2, a3, a3, n]/
     2 + S2[SP[a1, a1], a3, a2, a2, a3, n]/2 + 
    S2[SP[a1, a1], a3, a2, a3, a2, n]/2 + S2[SP[a1, a1], a3, a3, a2, a2, n]/
     2 - S2[SP[a1, a2], a1, a3, a2, a3, n]/2 - 
    S2[SP[a1, a2], a1, a3, a3, a2, n]/2 + S2[SP[a1, a2], a2, a3, a3, a1, n]/
     2 - S2[SP[a1, a2], a3, a1, a2, a3, n]/2 - 
    S2[SP[a1, a2], a3, a1, a3, a2, n]/2 - S2[SP[a1, a2], a3, a2, a1, a3, n]/
     2 + S2[SP[a1, a3], a1, a2, a2, a3, n]/2 + 
    S2[SP[a1, a3], a1, a2, a3, a2, n]/2 + S2[SP[a1, a3], a1, a3, a2, a2, n]/
     2 + S2[SP[a1, a3], a2, a1, a2, a3, n]/2 + 
    S2[SP[a1, a3], a2, a1, a3, a2, n]/2 + S2[SP[a1, a3], a2, a2, a1, a3, n]/
     2 - S2[SP[a1, a3], a2, a2, a3, a1, n]/2 - 
    S2[SP[a1, a3], a2, a3, a1, a2, n]/2 - S2[SP[a1, a3], a2, a3, a2, a1, n]/
     2 - S2[SP[a1, a3], a3, a1, a2, a2, n]/2 - 
    S2[SP[a1, a3], a3, a2, a1, a2, n]/2 - S2[SP[a1, a3], a3, a2, a2, a1, n]/
     2 + S2[SP[a2, a2], a1, a1, a3, a3, n]/2 + 
    S2[SP[a2, a2], a1, a3, a1, a3, n]/2 + S2[SP[a2, a2], a3, a1, a1, a3, n]/
     2 - S2[SP[a2, a3], a1, a1, a2, a3, n]/2 - 
    S2[SP[a2, a3], a1, a1, a3, a2, n]/2 - S2[SP[a2, a3], a1, a2, a1, a3, n]/
     2 - S2[SP[a2, a3], a2, a1, a1, a3, n]/2 + S2[a3, a2, a2, a3, a1, a1, 
     n] + S2[a3, a2, a3, a1, a1, a2, n] + S2[a3, a2, a3, a1, a2, a1, n] + 
    S2[a3, a2, a3, a2, a1, a1, n] + S2[a3, a3, a1, a1, a2, a2, n] + 
    S2[a3, a3, a1, a2, a1, a2, n] + S2[a3, a3, a1, a2, a2, a1, n] + 
    S2[a3, a3, a2, a1, a1, a2, n] + S2[a3, a3, a2, a1, a2, a1, n] + 
    S2[a3, a3, a2, a2, a1, a1, n] /; 
   MyMemberQ[{{a1, a2, a3}}, {a1, a1, a2, a2, a3, a3}] && a1 != a2 != a3, 
 S2[a2_, a3_, a1_, a1_, a2_, a3_, n_] :> 
  S2[a1, a2, a3, n]^2/2 + S2[a1, a2, a3, n]*S2[a1, a3, a2, n] + 
    S2[SP[a1, a1], SP[a2, a2], SP[a3, a3], n]/2 + S2[SP[a1, a1], SP[a2, a3], 
     SP[a2, a3], n] - S2[a2, a3, n]*S2[a1, a1, a3, a2, n] - 
    S2[a1, a1, SP[a2, a2], SP[a3, a3], n] - S2[a1, a1, SP[a2, a3], 
     SP[a2, a3], n] - S2[a1, SP[a1, a2], a2, SP[a3, a3], n] - 
    S2[a1, SP[a1, a2], SP[a2, a3], a3, n] - S2[a1, SP[a1, a3], a2, 
     SP[a2, a3], n] - S2[a1, SP[a1, a3], SP[a2, a2], a3, n] - 
    S2[SP[a1, a1], a2, a2, SP[a3, a3], n] - S2[SP[a1, a1], a2, a3, 
     SP[a2, a3], n] - S2[SP[a1, a1], a2, SP[a2, a3], a3, n] - 
    S2[SP[a1, a1], a2, SP[a3, a3], a2, n] - S2[SP[a1, a1], a3, a2, 
     SP[a2, a3], n] - S2[SP[a1, a1], a3, SP[a2, a2], a3, n] - 
    S2[SP[a1, a1], SP[a2, a2], a3, a3, n] - S2[SP[a1, a1], SP[a2, a3], a2, 
     a3, n] - S2[SP[a1, a1], SP[a2, a3], a3, a2, n] + 
    S2[SP[a1, a2], a1, a3, SP[a2, a3], n] + S2[SP[a1, a2], a1, SP[a3, a3], 
     a2, n] + S2[SP[a1, a2], SP[a1, a3], a3, a2, n] - 
    2*S2[a3, n]*S2[a1, a1, a2, a2, a3, n] - 
    2*S2[a3, n]*S2[a1, a1, a2, a3, a2, n] - S2[a1, a1, a2, a3, SP[a2, a3], 
     n] - S2[a1, a1, a2, SP[a3, a3], a2, n] - 
    2*S2[a3, n]*S2[a1, a1, a3, a2, a2, n] + 
    S2[a2, n]*S2[a1, a1, a3, a2, a3, n] + 
    2*S2[a2, n]*S2[a1, a1, a3, a3, a2, n] + 
    2*S2[a1, a1, a3, a3, SP[a2, a2], n] + 
    2*S2[a1, a1, a3, SP[a2, a2], a3, n] + 
    2*S2[a1, a1, SP[a2, a2], a3, a3, n] + S2[a1, a1, SP[a2, a3], a3, a2, n] - 
    2*S2[a1, a1, SP[a3, a3], a2, a2, n] - 
    S2[a3, n]*S2[a1, a2, a1, a2, a3, n] - 
    S2[a3, n]*S2[a1, a2, a1, a3, a2, n] - S2[a1, a2, a1, a3, SP[a2, a3], n] - 
    S2[a1, a2, a1, SP[a3, a3], a2, n] - S2[a1, a2, SP[a1, a3], a3, a2, n] + 
    S2[a1, a3, a1, a2, SP[a2, a3], n] + S2[a2, n]*S2[a1, a3, a1, a3, a2, n] + 
    S2[a1, a3, a1, a3, SP[a2, a2], n] + S2[a1, a3, a1, SP[a2, a2], a3, n] + 
    S2[a1, a3, a1, SP[a2, a3], a2, n] + S2[a1, a3, SP[a1, a2], a2, a3, n] + 
    S2[a1, a3, SP[a1, a2], a3, a2, n] + 2*S2[a1, SP[a1, a2], a2, a3, a3, n] + 
    2*S2[a1, SP[a1, a2], a3, a2, a3, n] + 
    2*S2[a1, SP[a1, a2], a3, a3, a2, n] - S2[a1, SP[a1, a3], a2, a3, a2, n] - 
    2*S2[a1, SP[a1, a3], a3, a2, a2, n] - S2[a1, SP[a2, a3], a1, a2, a3, n] - 
    S2[a2, a1, a1, a3, SP[a2, a3], n] - S2[a2, a1, a1, SP[a3, a3], a2, n] - 
    S2[a2, a1, SP[a1, a3], a3, a2, n] + S2[a3, n]*S2[a2, a3, a1, a1, a2, n] + 
    S2[a2, a3, a1, a1, SP[a2, a3], n] + S2[a2, a3, a1, SP[a1, a3], a2, n] + 
    S2[a2, a3, SP[a1, a3], a1, a2, n] - S2[a2, SP[a1, a3], a1, a3, a2, n] + 
    S2[a2, SP[a3, a3], a1, a1, a2, n] + 2*S2[a3, n]*
     S2[a3, a1, a1, a2, a2, n] + 2*S2[a3, a1, a1, a2, SP[a2, a3], n] + 
    2*S2[a3, a1, a1, SP[a2, a3], a2, n] + 
    S2[a3, n]*S2[a3, a1, a2, a1, a2, n] + S2[a3, a1, a2, a1, SP[a2, a3], n] + 
    S2[a3, a1, a2, SP[a1, a3], a2, n] - S2[a2, n]*S2[a3, a1, a3, a1, a2, n] - 
    S2[a3, a1, a3, a1, SP[a2, a2], n] - S2[a3, a1, a3, SP[a1, a2], a2, n] + 
    2*S2[a3, a1, SP[a1, a3], a2, a2, n] - 
    2*S2[a2, n]*S2[a3, a3, a1, a1, a2, n] - 
    2*S2[a3, a3, a1, a1, SP[a2, a2], n] - 
    2*S2[a3, a3, a1, SP[a1, a2], a2, n] - 
    2*S2[a3, a3, SP[a1, a2], a1, a2, n] - S2[a3, SP[a1, a2], a3, a1, a2, n] + 
    2*S2[a3, SP[a1, a3], a1, a2, a2, n] + S2[a3, SP[a1, a3], a2, a1, a2, n] - 
    2*S2[a3, SP[a2, a3], a1, a1, a2, n] + 
    2*S2[SP[a1, a1], a2, a2, a3, a3, n] + 
    2*S2[SP[a1, a1], a2, a3, a2, a3, n] + 
    2*S2[SP[a1, a1], a2, a3, a3, a2, n] + 
    2*S2[SP[a1, a1], a3, a2, a2, a3, n] + S2[SP[a1, a1], a3, a2, a3, a2, n] - 
    2*S2[SP[a1, a3], a1, a2, a2, a3, n] - 
    2*S2[SP[a1, a3], a1, a2, a3, a2, n] - 
    2*S2[SP[a1, a3], a1, a3, a2, a2, n] - S2[SP[a1, a3], a2, a1, a2, a3, n] - 
    S2[SP[a1, a3], a2, a1, a3, a2, n] - S2[SP[a2, a3], a1, a3, a1, a2, n] - 
    S2[SP[a2, a3], a3, a1, a1, a2, n] + 2*S2[SP[a3, a3], a1, a1, a2, a2, n] + 
    S2[SP[a3, a3], a1, a2, a1, a2, n] + S2[a3, a2, a1, a3, a1, a2, n] + 
    S2[a3, a2, a3, a1, a1, a2, n] + 2*S2[a3, a3, a2, a1, a1, a2, n] /; 
   MyMemberQ[{{a1, a2, a3}}, {a1, a1, a2, a2, a3, a3}] && a1 != a2 != a3, 
 S2[a2_, a3_, a1_, a1_, a3_, a2_, n_] :> 
  S2[a1, a3, a2, n]^2/2 + S2[SP[a1, a1], SP[a3, a3], SP[a2, a2], n]/2 + 
    S2[a2, a3, n]*S2[a1, a1, a3, a2, n] - S2[a1, a1, SP[a2, a3], SP[a2, a3], 
     n] - S2[a1, a1, SP[a3, a3], SP[a2, a2], n] - S2[a1, SP[a1, a2], a3, 
     SP[a2, a3], n] - S2[a1, SP[a1, a2], SP[a3, a3], a2, n] - 
    S2[a1, SP[a1, a3], a3, SP[a2, a2], n] - S2[a1, SP[a1, a3], SP[a2, a3], 
     a2, n] - S2[SP[a1, a1], a3, a3, SP[a2, a2], n] - 
    S2[SP[a1, a1], a3, SP[a2, a3], a2, n] - S2[SP[a1, a1], SP[a3, a3], a2, 
     a2, n] - S2[SP[a1, a2], a1, a3, SP[a2, a3], n] - 
    S2[SP[a1, a2], a1, SP[a3, a3], a2, n] - S2[SP[a1, a2], SP[a1, a3], a3, 
     a2, n] + S2[a1, a1, a2, a3, SP[a2, a3], n] + S2[a1, a1, a2, SP[a3, a3], 
     a2, n] - S2[a2, n]*S2[a1, a1, a3, a2, a3, n] - 
    2*S2[a2, n]*S2[a1, a1, a3, a3, a2, n] - S2[a1, a1, SP[a2, a3], a3, a2, 
     n] + 2*S2[a1, a1, SP[a3, a3], a2, a2, n] + S2[a1, a2, a1, a3, 
     SP[a2, a3], n] + S2[a1, a2, a1, SP[a3, a3], a2, n] + 
    S2[a1, a2, SP[a1, a3], a3, a2, n] - S2[a2, n]*S2[a1, a3, a1, a3, a2, n] + 
    S2[a1, SP[a1, a3], a2, a3, a2, n] + 2*S2[a1, SP[a1, a3], a3, a2, a2, n] - 
    S2[a1, SP[a2, a3], a1, a3, a2, n] + S2[a2, a1, a1, a3, SP[a2, a3], n] + 
    S2[a2, a1, a1, SP[a3, a3], a2, n] + S2[a2, a1, SP[a1, a3], a3, a2, n] + 
    S2[a2, SP[a1, a3], a1, a3, a2, n] + S2[SP[a1, a1], a3, a2, a3, a2, n] + 
    2*S2[SP[a1, a1], a3, a3, a2, a2, n] /; 
   MyMemberQ[{{a1, a2, a3}}, {a1, a1, a2, a2, a3, a3}] && a1 != a2 != a3, 
 S2[a2_, a3_, a1_, a2_, a1_, a3_, n_] :> 
  -(S2[a1, a2, a3, n]*S2[a1, a3, a2, n]) - S2[a1, a3, a2, n]^2/2 - 
    S2[SP[a1, a1], SP[a2, a3], SP[a2, a3], n] - 
    S2[SP[a1, a1], SP[a3, a3], SP[a2, a2], n]/2 + 
    2*S2[a1, a1, SP[a2, a3], SP[a2, a3], n] + S2[a1, a1, SP[a3, a3], 
     SP[a2, a2], n] + 2*S2[a1, a3, n]*S2[a1, a2, a2, a3, n] + 
    2*S2[a1, a3, n]*S2[a1, a2, a3, a2, n] - 
    2*S2[a1, a2, SP[a1, a2], SP[a3, a3], n] - 
    2*S2[a1, a2, SP[a1, a3], SP[a2, a3], n] + 2*S2[a1, a3, n]*
     S2[a1, a3, a2, a2, n] - 2*S2[a1, a3, SP[a1, a2], SP[a2, a3], n] - 
    2*S2[a1, SP[a1, a2], a2, SP[a3, a3], n] - S2[a1, SP[a1, a2], a3, 
     SP[a2, a3], n] - 2*S2[a1, SP[a1, a2], SP[a2, a3], a3, n] - 
    S2[a1, SP[a1, a2], SP[a3, a3], a2, n] - S2[a1, SP[a1, a3], a2, 
     SP[a2, a3], n] + S2[a1, SP[a1, a3], a3, SP[a2, a2], n] + 
    S2[a1, SP[a1, a3], SP[a2, a2], a3, n] - S2[a1, SP[a1, a3], SP[a2, a3], 
     a2, n] - 2*S2[SP[a1, a1], a2, a2, SP[a3, a3], n] - 
    S2[SP[a1, a1], a2, a3, SP[a2, a3], n] - 
    2*S2[SP[a1, a1], a2, SP[a2, a3], a3, n] - S2[SP[a1, a1], a2, SP[a3, a3], 
     a2, n] - S2[SP[a1, a1], a3, a2, SP[a2, a3], n] + 
    S2[SP[a1, a1], a3, a3, SP[a2, a2], n] + S2[SP[a1, a1], a3, SP[a2, a2], 
     a3, n] - S2[SP[a1, a1], a3, SP[a2, a3], a2, n] - 
    S2[SP[a1, a1], SP[a2, a3], a2, a3, n] - S2[SP[a1, a1], SP[a2, a3], a3, 
     a2, n] - S2[SP[a1, a1], SP[a3, a3], a2, a2, n] - 
    4*S2[a3, n]*S2[a1, a1, a2, a2, a3, n] - 
    2*S2[a3, n]*S2[a1, a1, a2, a3, a2, n] + 
    2*S2[a1, a1, a3, a2, SP[a2, a3], n] - 
    2*S2[a1, a1, a3, a3, SP[a2, a2], n] - 
    2*S2[a1, a1, a3, SP[a2, a2], a3, n] + 
    2*S2[a1, a1, a3, SP[a2, a3], a2, n] - 
    2*S2[a1, a1, SP[a2, a3], a2, a3, n] + 
    2*S2[a1, a1, SP[a3, a3], a2, a2, n] - 
    2*S2[a3, n]*S2[a1, a2, a1, a2, a3, n] - 
    S2[a3, n]*S2[a1, a2, a1, a3, a2, n] - 
    2*S2[a3, n]*S2[a1, a2, a2, a1, a3, n] + 
    2*S2[a1, a2, a3, a1, SP[a2, a3], n] + 
    2*S2[a1, a2, a3, SP[a1, a2], a3, n] + 
    4*S2[a1, a2, SP[a1, a2], a3, a3, n] - 
    2*S2[a1, a2, SP[a2, a3], a1, a3, n] + 
    2*S2[a3, n]*S2[a1, a3, a1, a2, a2, n] + 
    3*S2[a1, a3, a1, a2, SP[a2, a3], n] - S2[a1, a3, a1, a3, SP[a2, a2], n] - 
    S2[a1, a3, a1, SP[a2, a2], a3, n] + 3*S2[a1, a3, a1, SP[a2, a3], a2, n] + 
    2*S2[a3, n]*S2[a1, a3, a2, a1, a2, n] + 
    4*S2[a1, a3, a2, a1, SP[a2, a3], n] - 
    S2[a1, n]*S2[a1, a3, a2, a3, a2, n] - S2[a1, a3, a2, a3, SP[a1, a2], n] + 
    2*S2[a1, a3, a2, SP[a1, a2], a3, n] + S2[a1, a3, a2, SP[a1, a3], a2, n] - 
    2*S2[a1, n]*S2[a1, a3, a3, a2, a2, n] - 
    2*S2[a1, a3, a3, a2, SP[a1, a2], n] - 
    2*S2[a1, a3, a3, SP[a1, a2], a2, n] + S2[a1, a3, SP[a1, a2], a2, a3, n] + 
    2*S2[a1, a3, SP[a2, a3], a1, a2, n] + 
    4*S2[a1, SP[a1, a2], a2, a3, a3, n] + 
    3*S2[a1, SP[a1, a2], a3, a2, a3, n] + 
    2*S2[a1, SP[a1, a2], a3, a3, a2, n] - 
    2*S2[a1, SP[a1, a3], a2, a2, a3, n] - S2[a1, SP[a1, a3], a2, a3, a2, n] - 
    2*S2[a1, SP[a2, a3], a1, a2, a3, n] - S2[a1, SP[a2, a3], a1, a3, a2, n] - 
    2*S2[a1, SP[a2, a3], a2, a1, a3, n] + 
    2*S2[a1, SP[a3, a3], a1, a2, a2, n] + 
    2*S2[a1, SP[a3, a3], a2, a1, a2, n] - 
    2*S2[a3, n]*S2[a2, a3, a1, a1, a2, n] - 
    2*S2[a2, a3, a1, a1, SP[a2, a3], n] - 
    2*S2[a2, a3, a1, SP[a1, a3], a2, n] - 
    2*S2[a2, a3, SP[a1, a3], a1, a2, n] - 
    2*S2[a2, SP[a3, a3], a1, a1, a2, n] + 
    2*S2[a2, n]*S2[a3, a1, a1, a2, a3, n] + 
    2*S2[a3, a1, a1, a2, SP[a2, a3], n] + 
    2*S2[a2, n]*S2[a3, a1, a1, a3, a2, n] + 
    2*S2[a3, a1, a1, a3, SP[a2, a2], n] + 
    2*S2[a3, a1, a1, SP[a2, a2], a3, n] + 
    2*S2[a3, a1, a1, SP[a2, a3], a2, n] + 
    S2[a2, n]*S2[a3, a1, a2, a1, a3, n] + S2[a3, a1, a2, a1, SP[a2, a3], n] - 
    S2[a1, n]*S2[a3, a1, a2, a3, a2, n] - S2[a3, a1, a2, a3, SP[a1, a2], n] + 
    S2[a3, a1, a2, SP[a1, a2], a3, n] - S2[a3, a1, a2, SP[a1, a3], a2, n] + 
    2*S2[a2, n]*S2[a3, a1, a3, a1, a2, n] + 
    2*S2[a3, a1, a3, a1, SP[a2, a2], n] - 
    2*S2[a1, n]*S2[a3, a1, a3, a2, a2, n] - 
    2*S2[a3, a1, a3, a2, SP[a1, a2], n] + 
    2*S2[a3, a1, SP[a1, a2], a2, a3, n] + S2[a3, a1, SP[a1, a2], a3, a2, n] - 
    2*S2[a3, a1, SP[a1, a3], a2, a2, n] + S2[a3, a1, SP[a2, a2], a1, a3, n] + 
    2*S2[a3, a1, SP[a2, a3], a1, a2, n] - 
    S2[a1, n]*S2[a3, a2, a1, a2, a3, n] - S2[a3, a2, a1, a2, SP[a1, a3], n] - 
    S2[a1, n]*S2[a3, a2, a1, a3, a2, n] - S2[a3, a2, a1, a3, SP[a1, a2], n] - 
    S2[a3, a2, a1, SP[a1, a2], a3, n] - S2[a3, a2, a1, SP[a1, a3], a2, n] - 
    S2[a1, n]*S2[a3, a2, a3, a1, a2, n] - S2[a3, a2, a3, a1, SP[a1, a2], n] + 
    S2[a1, n]*S2[a3, a2, a3, a2, a1, n] + S2[a3, a2, a3, a2, SP[a1, a1], n] - 
    S2[a3, a2, a3, SP[a1, a1], a2, n] + S2[a3, a2, a3, SP[a1, a2], a1, n] - 
    S2[a3, a2, SP[a1, a1], a2, a3, n] - S2[a3, a2, SP[a1, a1], a3, a2, n] - 
    S2[a3, a2, SP[a1, a3], a1, a2, n] + S2[a3, a2, SP[a1, a3], a2, a1, n] + 
    4*S2[a2, n]*S2[a3, a3, a1, a1, a2, n] + 
    4*S2[a3, a3, a1, a1, SP[a2, a2], n] - 
    2*S2[a1, n]*S2[a3, a3, a1, a2, a2, n] - 
    2*S2[a3, a3, a1, a2, SP[a1, a2], n] + 
    2*S2[a3, a3, a1, SP[a1, a2], a2, n] - 
    2*S2[a1, n]*S2[a3, a3, a2, a1, a2, n] - 
    2*S2[a3, a3, a2, a1, SP[a1, a2], n] + 
    2*S2[a1, n]*S2[a3, a3, a2, a2, a1, n] + 
    2*S2[a3, a3, a2, a2, SP[a1, a1], n] - 
    2*S2[a3, a3, a2, SP[a1, a1], a2, n] + 
    2*S2[a3, a3, a2, SP[a1, a2], a1, n] - 
    2*S2[a3, a3, SP[a1, a1], a2, a2, n] + 
    2*S2[a3, a3, SP[a1, a2], a1, a2, n] + 
    2*S2[a3, a3, SP[a1, a2], a2, a1, n] - S2[a3, SP[a1, a1], a2, a3, a2, n] - 
    2*S2[a3, SP[a1, a1], a3, a2, a2, n] + S2[a3, SP[a1, a2], a1, a2, a3, n] + 
    S2[a3, SP[a1, a2], a1, a3, a2, n] + S2[a3, SP[a1, a2], a2, a1, a3, n] + 
    S2[a3, SP[a1, a2], a3, a1, a2, n] + S2[a3, SP[a1, a2], a3, a2, a1, n] - 
    2*S2[a3, SP[a1, a3], a1, a2, a2, n] - 
    2*S2[a3, SP[a1, a3], a2, a1, a2, n] + 
    2*S2[a3, SP[a1, a3], a2, a2, a1, n] + 
    4*S2[a3, SP[a2, a3], a1, a1, a2, n] + 
    4*S2[SP[a1, a1], a2, a2, a3, a3, n] + 
    3*S2[SP[a1, a1], a2, a3, a2, a3, n] + 
    2*S2[SP[a1, a1], a2, a3, a3, a2, n] + 
    2*S2[SP[a1, a1], a3, a2, a2, a3, n] + S2[SP[a1, a1], a3, a2, a3, a2, n] - 
    4*S2[SP[a1, a3], a1, a2, a2, a3, n] - 
    3*S2[SP[a1, a3], a1, a2, a3, a2, n] - 
    2*S2[SP[a1, a3], a1, a3, a2, a2, n] - 
    3*S2[SP[a1, a3], a2, a1, a2, a3, n] - 
    2*S2[SP[a1, a3], a2, a1, a3, a2, n] - 
    2*S2[SP[a1, a3], a2, a2, a1, a3, n] - S2[SP[a1, a3], a2, a3, a1, a2, n] + 
    S2[SP[a1, a3], a2, a3, a2, a1, n] + 2*S2[SP[a1, a3], a3, a2, a2, a1, n] + 
    2*S2[SP[a2, a3], a1, a1, a2, a3, n] + 
    2*S2[SP[a2, a3], a1, a1, a3, a2, n] + S2[SP[a2, a3], a1, a2, a1, a3, n] + 
    2*S2[SP[a2, a3], a1, a3, a1, a2, n] + 
    2*S2[SP[a2, a3], a3, a1, a1, a2, n] - 2*S2[a3, a1, a3, a1, a2, a2, n] + 
    S2[a3, a2, a1, a2, a3, a1, n] - 2*S2[a3, a2, a3, a2, a1, a1, n] - 
    4*S2[a3, a3, a1, a1, a2, a2, n] - 4*S2[a3, a3, a2, a2, a1, a1, n] /; 
   MyMemberQ[{{a1, a2, a3}}, {a1, a1, a2, a2, a3, a3}] && a1 != a2 != a3, 
 S2[a2_, a3_, a1_, a2_, a3_, a1_, n_] :> 
  -(S2[a1, a2, a3, n]^2/2) + S2[a1, a3, a2, n]^2/2 - 
    S2[SP[a1, a1], SP[a2, a2], SP[a3, a3], n]/2 + 
    S2[SP[a1, a1], SP[a3, a3], SP[a2, a2], n]/2 + S2[a1, a1, SP[a2, a2], 
     SP[a3, a3], n] - S2[a1, a1, SP[a3, a3], SP[a2, a2], n] - 
    2*S2[a1, a3, n]*S2[a1, a2, a2, a3, n] - 2*S2[a1, a3, n]*
     S2[a1, a2, a3, a2, n] + 2*S2[a1, a2, SP[a1, a2], SP[a3, a3], n] + 
    2*S2[a1, a2, SP[a1, a3], SP[a2, a3], n] - 2*S2[a1, a3, n]*
     S2[a1, a3, a2, a2, n] + 2*S2[a1, a3, SP[a1, a2], SP[a2, a3], n] + 
    3*S2[a1, SP[a1, a2], a2, SP[a3, a3], n] + 
    2*S2[a1, SP[a1, a2], a3, SP[a2, a3], n] + 
    3*S2[a1, SP[a1, a2], SP[a2, a3], a3, n] + 
    2*S2[a1, SP[a1, a2], SP[a3, a3], a2, n] + 
    2*S2[a1, SP[a1, a3], a2, SP[a2, a3], n] - S2[a1, SP[a1, a3], a3, 
     SP[a2, a2], n] + S2[a1, SP[a1, a3], SP[a2, a3], a2, n] + 
    3*S2[SP[a1, a1], a2, a2, SP[a3, a3], n] + 
    2*S2[SP[a1, a1], a2, a3, SP[a2, a3], n] + 
    3*S2[SP[a1, a1], a2, SP[a2, a3], a3, n] + 
    2*S2[SP[a1, a1], a2, SP[a3, a3], a2, n] + 
    2*S2[SP[a1, a1], a3, a2, SP[a2, a3], n] - S2[SP[a1, a1], a3, a3, 
     SP[a2, a2], n] + S2[SP[a1, a1], a3, SP[a2, a3], a2, n] + 
    S2[SP[a1, a1], SP[a2, a2], a3, a3, n] + 
    2*S2[SP[a1, a1], SP[a2, a3], a2, a3, n] + 
    2*S2[SP[a1, a1], SP[a2, a3], a3, a2, n] + S2[SP[a1, a1], SP[a3, a3], a2, 
     a2, n] + 6*S2[a3, n]*S2[a1, a1, a2, a2, a3, n] + 
    4*S2[a3, n]*S2[a1, a1, a2, a3, a2, n] + 
    2*S2[a3, n]*S2[a1, a1, a3, a2, a2, n] - 
    2*S2[a1, a1, a3, a2, SP[a2, a3], n] + 
    2*S2[a1, a1, a3, a3, SP[a2, a2], n] - 
    2*S2[a1, a1, SP[a2, a2], a3, a3, n] + 
    2*S2[a1, a1, SP[a2, a3], a2, a3, n] + 
    3*S2[a3, n]*S2[a1, a2, a1, a2, a3, n] + 
    2*S2[a3, n]*S2[a1, a2, a1, a3, a2, n] + 
    2*S2[a3, n]*S2[a1, a2, a2, a1, a3, n] - 
    2*S2[a1, a2, a3, a1, SP[a2, a3], n] - 
    2*S2[a1, a2, a3, SP[a1, a2], a3, n] - 
    4*S2[a1, a2, SP[a1, a2], a3, a3, n] + 
    2*S2[a1, a2, SP[a2, a3], a1, a3, n] - 
    S2[a2, n]*S2[a1, a3, a1, a2, a3, n] - 
    3*S2[a1, a3, a1, a2, SP[a2, a3], n] + S2[a1, a3, a1, a3, SP[a2, a2], n] - 
    S2[a1, a3, a1, SP[a2, a2], a3, n] - S2[a1, a3, a1, SP[a2, a3], a2, n] - 
    S2[a3, n]*S2[a1, a3, a2, a1, a2, n] - 
    3*S2[a1, a3, a2, a1, SP[a2, a3], n] - 
    2*S2[a1, a3, a2, SP[a1, a2], a3, n] - S2[a1, a3, a2, SP[a1, a3], a2, n] - 
    3*S2[a1, a3, SP[a1, a2], a2, a3, n] - S2[a1, a3, SP[a1, a2], a3, a2, n] - 
    S2[a1, a3, SP[a2, a3], a1, a2, n] - 6*S2[a1, SP[a1, a2], a2, a3, a3, n] - 
    5*S2[a1, SP[a1, a2], a3, a2, a3, n] - 
    4*S2[a1, SP[a1, a2], a3, a3, a2, n] + 
    2*S2[a1, SP[a1, a3], a2, a2, a3, n] + S2[a1, SP[a1, a3], a2, a3, a2, n] + 
    2*S2[a1, SP[a2, a3], a1, a2, a3, n] + 
    2*S2[a1, SP[a2, a3], a1, a3, a2, n] + 
    2*S2[a1, SP[a2, a3], a2, a1, a3, n] - S2[a1, SP[a3, a3], a2, a1, a2, n] + 
    S2[a1, n]*S2[a2, a3, a1, a2, a3, n] + S2[a2, a3, a1, a2, SP[a1, a3], n] + 
    S2[a2, a3, a1, SP[a1, a2], a3, n] + S2[a2, a3, SP[a1, a1], a2, a3, n] + 
    S2[a2, SP[a1, a3], a1, a2, a3, n] - 2*S2[a3, n]*
     S2[a3, a1, a1, a2, a2, n] - 2*S2[a2, n]*S2[a3, a1, a1, a2, a3, n] - 
    4*S2[a3, a1, a1, a2, SP[a2, a3], n] - 
    2*S2[a3, a1, a1, SP[a2, a2], a3, n] - 
    2*S2[a3, a1, a1, SP[a2, a3], a2, n] - 
    S2[a3, n]*S2[a3, a1, a2, a1, a2, n] - 
    S2[a2, n]*S2[a3, a1, a2, a1, a3, n] - 
    2*S2[a3, a1, a2, a1, SP[a2, a3], n] - S2[a3, a1, a2, SP[a1, a2], a3, n] - 
    S2[a3, a1, a2, SP[a1, a3], a2, n] - 2*S2[a3, a1, SP[a1, a2], a2, a3, n] - 
    2*S2[a3, a1, SP[a1, a3], a2, a2, n] - S2[a3, a1, SP[a2, a2], a1, a3, n] - 
    S2[a3, a1, SP[a2, a3], a1, a2, n] + S2[a1, n]*S2[a3, a2, a1, a2, a3, n] + 
    S2[a3, a2, a1, a2, SP[a1, a3], n] + S2[a3, a2, a1, SP[a1, a2], a3, n] + 
    S2[a1, n]*S2[a3, a2, a3, a1, a2, n] + S2[a3, a2, a3, a1, SP[a1, a2], n] + 
    S2[a3, a2, a3, SP[a1, a1], a2, n] + S2[a3, a2, SP[a1, a1], a2, a3, n] + 
    S2[a3, a2, SP[a1, a3], a1, a2, n] + 2*S2[a1, n]*
     S2[a3, a3, a2, a1, a2, n] + 2*S2[a3, a3, a2, a1, SP[a1, a2], n] + 
    2*S2[a3, a3, a2, SP[a1, a1], a2, n] + 
    2*S2[a3, a3, SP[a1, a2], a1, a2, n] - S2[a3, SP[a1, a2], a1, a2, a3, n] - 
    S2[a3, SP[a1, a2], a2, a1, a3, n] + S2[a3, SP[a1, a2], a3, a1, a2, n] - 
    2*S2[a3, SP[a1, a3], a1, a2, a2, n] + S2[a3, SP[a1, a3], a2, a1, a2, n] - 
    6*S2[SP[a1, a1], a2, a2, a3, a3, n] - 
    5*S2[SP[a1, a1], a2, a3, a2, a3, n] - 
    4*S2[SP[a1, a1], a2, a3, a3, a2, n] - 
    4*S2[SP[a1, a1], a3, a2, a2, a3, n] - 
    3*S2[SP[a1, a1], a3, a2, a3, a2, n] - 
    2*S2[SP[a1, a1], a3, a3, a2, a2, n] + 
    6*S2[SP[a1, a3], a1, a2, a2, a3, n] + 
    4*S2[SP[a1, a3], a1, a2, a3, a2, n] + 
    2*S2[SP[a1, a3], a1, a3, a2, a2, n] + 
    4*S2[SP[a1, a3], a2, a1, a2, a3, n] + 
    2*S2[SP[a1, a3], a2, a1, a3, a2, n] + 
    2*S2[SP[a1, a3], a2, a2, a1, a3, n] + S2[SP[a1, a3], a2, a3, a1, a2, n] + 
    S2[SP[a1, a3], a3, a2, a1, a2, n] - 2*S2[SP[a2, a3], a1, a1, a2, a3, n] - 
    S2[SP[a2, a3], a1, a2, a1, a3, n] - 2*S2[SP[a3, a3], a1, a1, a2, a2, n] - 
    S2[SP[a3, a3], a1, a2, a1, a2, n] + 2*S2[a3, a1, a3, a1, a2, a2, n] - 
    S2[a3, a2, a1, a2, a3, a1, n] - S2[a3, a2, a1, a3, a1, a2, n] - 
    2*S2[a3, a2, a3, a1, a1, a2, n] - S2[a3, a2, a3, a1, a2, a1, n] + 
    4*S2[a3, a3, a1, a1, a2, a2, n] - 4*S2[a3, a3, a2, a1, a1, a2, n] - 
    2*S2[a3, a3, a2, a1, a2, a1, n] /; 
   MyMemberQ[{{a1, a2, a3}}, {a1, a1, a2, a2, a3, a3}] && a1 != a2 != a3, 
 S2[a2_, a3_, a1_, a3_, a1_, a2_, n_] :> 
  -(S2[a1, a2, a3, n]^2/2) - S2[a1, a2, a3, n]*S2[a1, a3, a2, n] - 
    S2[a1, a3, a2, n]^2/2 - S2[SP[a1, a1], SP[a2, a2], SP[a3, a3], n]/2 - 
    S2[SP[a1, a1], SP[a2, a3], SP[a2, a3], n] - 
    S2[SP[a1, a1], SP[a3, a3], SP[a2, a2], n]/2 + S2[a1, a1, SP[a2, a2], 
     SP[a3, a3], n] + 2*S2[a1, a1, SP[a2, a3], SP[a2, a3], n] + 
    S2[a1, a1, SP[a3, a3], SP[a2, a2], n] + S2[a1, SP[a1, a2], a2, 
     SP[a3, a3], n] + S2[a1, SP[a1, a2], a3, SP[a2, a3], n] + 
    S2[a1, SP[a1, a2], SP[a2, a3], a3, n] + S2[a1, SP[a1, a2], SP[a3, a3], 
     a2, n] + S2[a1, SP[a1, a3], a2, SP[a2, a3], n] + 
    S2[a1, SP[a1, a3], a3, SP[a2, a2], n] + S2[a1, SP[a1, a3], SP[a2, a2], 
     a3, n] + S2[a1, SP[a1, a3], SP[a2, a3], a2, n] + 
    S2[SP[a1, a1], a2, a2, SP[a3, a3], n] + S2[SP[a1, a1], a2, a3, 
     SP[a2, a3], n] + S2[SP[a1, a1], a2, SP[a2, a3], a3, n] + 
    S2[SP[a1, a1], a2, SP[a3, a3], a2, n] + S2[SP[a1, a1], a3, a2, 
     SP[a2, a3], n] + S2[SP[a1, a1], a3, a3, SP[a2, a2], n] + 
    S2[SP[a1, a1], a3, SP[a2, a2], a3, n] + S2[SP[a1, a1], a3, SP[a2, a3], 
     a2, n] + S2[SP[a1, a1], SP[a2, a2], a3, a3, n] + 
    S2[SP[a1, a1], SP[a2, a3], a2, a3, n] + S2[SP[a1, a1], SP[a2, a3], a3, 
     a2, n] + S2[SP[a1, a1], SP[a3, a3], a2, a2, n] + 
    2*S2[a3, n]*S2[a1, a1, a2, a2, a3, n] + 
    2*S2[a3, n]*S2[a1, a1, a2, a3, a2, n] + 
    2*S2[a3, n]*S2[a1, a1, a3, a2, a2, n] - 
    2*S2[a1, a1, a3, a3, SP[a2, a2], n] - 
    2*S2[a1, a1, a3, SP[a2, a2], a3, n] - 
    2*S2[a1, a1, SP[a2, a2], a3, a3, n] + 
    S2[a3, n]*S2[a1, a2, a1, a2, a3, n] + 
    S2[a3, n]*S2[a1, a2, a1, a3, a2, n] - S2[a1, a3, a1, a2, SP[a2, a3], n] - 
    S2[a1, a3, a1, a3, SP[a2, a2], n] - S2[a1, a3, a1, SP[a2, a2], a3, n] - 
    S2[a1, a3, a1, SP[a2, a3], a2, n] - S2[a1, a3, SP[a1, a2], a2, a3, n] - 
    S2[a1, a3, SP[a1, a2], a3, a2, n] - 2*S2[a1, SP[a1, a2], a2, a3, a3, n] - 
    2*S2[a1, SP[a1, a2], a3, a2, a3, n] - 
    2*S2[a1, SP[a1, a2], a3, a3, a2, n] + S2[a1, SP[a2, a3], a1, a2, a3, n] + 
    S2[a1, SP[a2, a3], a1, a3, a2, n] - 2*S2[a3, n]*
     S2[a3, a1, a1, a2, a2, n] - 2*S2[a3, a1, a1, a2, SP[a2, a3], n] - 
    2*S2[a3, a1, a1, SP[a2, a3], a2, n] - 
    S2[a3, n]*S2[a3, a1, a2, a1, a2, n] - S2[a3, a1, a2, a1, SP[a2, a3], n] - 
    S2[a3, a1, a2, SP[a1, a3], a2, n] + S2[a2, n]*S2[a3, a1, a3, a1, a2, n] + 
    S2[a3, a1, a3, a1, SP[a2, a2], n] + S2[a3, a1, a3, SP[a1, a2], a2, n] - 
    2*S2[a3, a1, SP[a1, a3], a2, a2, n] + S2[a3, SP[a1, a2], a3, a1, a2, n] - 
    2*S2[a3, SP[a1, a3], a1, a2, a2, n] - S2[a3, SP[a1, a3], a2, a1, a2, n] - 
    2*S2[SP[a1, a1], a2, a2, a3, a3, n] - 
    2*S2[SP[a1, a1], a2, a3, a2, a3, n] - 
    2*S2[SP[a1, a1], a2, a3, a3, a2, n] - 
    2*S2[SP[a1, a1], a3, a2, a2, a3, n] - 
    2*S2[SP[a1, a1], a3, a2, a3, a2, n] - 
    2*S2[SP[a1, a1], a3, a3, a2, a2, n] + 
    2*S2[SP[a1, a3], a1, a2, a2, a3, n] + 
    2*S2[SP[a1, a3], a1, a2, a3, a2, n] + 
    2*S2[SP[a1, a3], a1, a3, a2, a2, n] + S2[SP[a1, a3], a2, a1, a2, a3, n] + 
    S2[SP[a1, a3], a2, a1, a3, a2, n] + S2[SP[a2, a3], a1, a3, a1, a2, n] - 
    2*S2[SP[a3, a3], a1, a1, a2, a2, n] - S2[SP[a3, a3], a1, a2, a1, a2, n] - 
    S2[a3, a2, a1, a3, a1, a2, n] + 4*S2[a3, a3, a1, a1, a2, a2, n] + 
    2*S2[a3, a3, a1, a2, a1, a2, n] /; 
   MyMemberQ[{{a1, a2, a3}}, {a1, a1, a2, a2, a3, a3}] && a1 != a2 != a3, 
 S2[a2_, a3_, a1_, a3_, a2_, a1_, n_] :> 
  S2[a1, a2, a3, n]^2/2 + S2[a1, a2, a3, n]*S2[a1, a3, a2, n] + 
    S2[SP[a1, a1], SP[a2, a2], SP[a3, a3], n]/2 + S2[SP[a1, a1], SP[a2, a3], 
     SP[a2, a3], n] - S2[a1, a1, SP[a2, a2], SP[a3, a3], n] - 
    2*S2[a1, a1, SP[a2, a3], SP[a2, a3], n] - S2[a1, SP[a1, a2], a2, 
     SP[a3, a3], n] - S2[a1, SP[a1, a2], a3, SP[a2, a3], n] - 
    S2[a1, SP[a1, a2], SP[a2, a3], a3, n] - S2[a1, SP[a1, a2], SP[a3, a3], 
     a2, n] - S2[a1, SP[a1, a3], a2, SP[a2, a3], n] - 
    S2[a1, SP[a1, a3], SP[a2, a2], a3, n] - S2[SP[a1, a1], a2, a2, 
     SP[a3, a3], n] - S2[SP[a1, a1], a2, a3, SP[a2, a3], n] - 
    S2[SP[a1, a1], a2, SP[a2, a3], a3, n] - S2[SP[a1, a1], a2, SP[a3, a3], 
     a2, n] - S2[SP[a1, a1], a3, a2, SP[a2, a3], n] - 
    S2[SP[a1, a1], a3, SP[a2, a2], a3, n] - S2[SP[a1, a1], SP[a2, a2], a3, 
     a3, n] - S2[SP[a1, a1], SP[a2, a3], a2, a3, n] - 
    S2[SP[a1, a1], SP[a2, a3], a3, a2, n] - 
    2*S2[a3, n]*S2[a1, a1, a2, a2, a3, n] - 
    2*S2[a3, n]*S2[a1, a1, a2, a3, a2, n] - 
    2*S2[a3, n]*S2[a1, a1, a3, a2, a2, n] + 
    2*S2[a1, a1, a3, SP[a2, a2], a3, n] - 
    2*S2[a1, a1, a3, SP[a2, a3], a2, n] + 
    2*S2[a1, a1, SP[a2, a2], a3, a3, n] - 
    2*S2[a1, a1, SP[a3, a3], a2, a2, n] - 
    S2[a3, n]*S2[a1, a2, a1, a2, a3, n] - 
    S2[a3, n]*S2[a1, a2, a1, a3, a2, n] + S2[a1, a3, a1, a2, SP[a2, a3], n] - 
    S2[a2, n]*S2[a1, a3, a1, a3, a2, n] - S2[a1, a3, a1, a3, SP[a2, a2], n] + 
    S2[a1, a3, a1, SP[a2, a2], a3, n] - S2[a1, a3, a1, SP[a2, a3], a2, n] + 
    S2[a1, n]*S2[a1, a3, a2, a3, a2, n] + S2[a1, a3, a2, a3, SP[a1, a2], n] + 
    S2[a1, a3, a2, SP[a1, a3], a2, n] + 2*S2[a1, n]*
     S2[a1, a3, a3, a2, a2, n] + 2*S2[a1, a3, a3, a2, SP[a1, a2], n] + 
    2*S2[a1, a3, a3, SP[a1, a2], a2, n] + S2[a1, a3, SP[a1, a2], a2, a3, n] + 
    2*S2[a1, a3, SP[a1, a3], a2, a2, n] + 
    2*S2[a1, SP[a1, a2], a2, a3, a3, n] + 
    2*S2[a1, SP[a1, a2], a3, a2, a3, n] + 
    2*S2[a1, SP[a1, a2], a3, a3, a2, n] - S2[a1, SP[a2, a3], a1, a2, a3, n] - 
    2*S2[a1, SP[a2, a3], a1, a3, a2, n] + 
    S2[a1, n]*S2[a2, a3, a1, a3, a2, n] + S2[a2, a3, a1, a3, SP[a1, a2], n] + 
    S2[a2, a3, a1, SP[a1, a3], a2, n] + S2[a2, a3, SP[a1, a1], a3, a2, n] + 
    S2[a2, SP[a1, a3], a1, a3, a2, n] + 2*S2[a3, n]*
     S2[a3, a1, a1, a2, a2, n] + 2*S2[a3, a1, a1, a2, SP[a2, a3], n] - 
    2*S2[a2, n]*S2[a3, a1, a1, a3, a2, n] - 
    2*S2[a3, a1, a1, a3, SP[a2, a2], n] + 
    S2[a3, n]*S2[a3, a1, a2, a1, a2, n] + S2[a3, a1, a2, a1, SP[a2, a3], n] + 
    S2[a1, n]*S2[a3, a1, a2, a3, a2, n] + S2[a3, a1, a2, a3, SP[a1, a2], n] + 
    2*S2[a3, a1, a2, SP[a1, a3], a2, n] - 
    S2[a2, n]*S2[a3, a1, a3, a1, a2, n] - S2[a3, a1, a3, a1, SP[a2, a2], n] + 
    2*S2[a1, n]*S2[a3, a1, a3, a2, a2, n] + 
    2*S2[a3, a1, a3, a2, SP[a1, a2], n] + S2[a3, a1, a3, SP[a1, a2], a2, n] - 
    S2[a3, a1, SP[a1, a2], a3, a2, n] + 4*S2[a3, a1, SP[a1, a3], a2, a2, n] + 
    S2[a1, n]*S2[a3, a2, a1, a3, a2, n] + S2[a3, a2, a1, a3, SP[a1, a2], n] + 
    S2[a3, a2, a1, SP[a1, a3], a2, n] - S2[a1, n]*S2[a3, a2, a3, a1, a2, n] - 
    S2[a3, a2, a3, a1, SP[a1, a2], n] - S2[a1, n]*S2[a3, a2, a3, a2, a1, n] - 
    S2[a3, a2, a3, a2, SP[a1, a1], n] - S2[a3, a2, a3, SP[a1, a1], a2, n] - 
    S2[a3, a2, a3, SP[a1, a2], a1, n] + S2[a3, a2, SP[a1, a1], a3, a2, n] - 
    S2[a3, a2, SP[a1, a3], a1, a2, n] - S2[a3, a2, SP[a1, a3], a2, a1, n] - 
    2*S2[a1, n]*S2[a3, a3, a1, a2, a2, n] - 
    2*S2[a3, a3, a1, a2, SP[a1, a2], n] - 
    2*S2[a3, a3, a1, SP[a1, a2], a2, n] - 
    2*S2[a1, n]*S2[a3, a3, a2, a1, a2, n] - 
    2*S2[a3, a3, a2, a1, SP[a1, a2], n] - 
    2*S2[a1, n]*S2[a3, a3, a2, a2, a1, n] - 
    2*S2[a3, a3, a2, a2, SP[a1, a1], n] - 
    2*S2[a3, a3, a2, SP[a1, a1], a2, n] - 
    2*S2[a3, a3, a2, SP[a1, a2], a1, n] - 
    2*S2[a3, a3, SP[a1, a1], a2, a2, n] - 
    2*S2[a3, a3, SP[a1, a2], a1, a2, n] - 
    2*S2[a3, a3, SP[a1, a2], a2, a1, n] + S2[a3, SP[a1, a1], a2, a3, a2, n] + 
    2*S2[a3, SP[a1, a1], a3, a2, a2, n] - S2[a3, SP[a1, a2], a1, a3, a2, n] - 
    2*S2[a3, SP[a1, a2], a3, a1, a2, n] - S2[a3, SP[a1, a2], a3, a2, a1, n] - 
    S2[a3, SP[a1, a3], a2, a1, a2, n] - 2*S2[a3, SP[a1, a3], a2, a2, a1, n] + 
    2*S2[SP[a1, a1], a2, a2, a3, a3, n] + 
    2*S2[SP[a1, a1], a2, a3, a2, a3, n] + 
    2*S2[SP[a1, a1], a2, a3, a3, a2, n] + 
    2*S2[SP[a1, a1], a3, a2, a2, a3, n] + 
    2*S2[SP[a1, a1], a3, a2, a3, a2, n] + 
    2*S2[SP[a1, a1], a3, a3, a2, a2, n] - 
    2*S2[SP[a1, a3], a1, a2, a2, a3, n] - S2[SP[a1, a3], a1, a2, a3, a2, n] - 
    S2[SP[a1, a3], a2, a1, a2, a3, n] - S2[SP[a1, a3], a2, a3, a1, a2, n] - 
    S2[SP[a1, a3], a2, a3, a2, a1, n] - 2*S2[SP[a1, a3], a3, a1, a2, a2, n] - 
    2*S2[SP[a1, a3], a3, a2, a1, a2, n] - 
    2*S2[SP[a1, a3], a3, a2, a2, a1, n] - 
    2*S2[SP[a2, a3], a1, a1, a3, a2, n] - S2[SP[a2, a3], a1, a3, a1, a2, n] + 
    2*S2[SP[a3, a3], a1, a1, a2, a2, n] + S2[SP[a3, a3], a1, a2, a1, a2, n] + 
    S2[a3, a2, a1, a3, a1, a2, n] + 2*S2[a3, a2, a3, a1, a1, a2, n] + 
    2*S2[a3, a2, a3, a1, a2, a1, n] + 2*S2[a3, a2, a3, a2, a1, a1, n] + 
    2*S2[a3, a3, a1, a2, a1, a2, n] + 4*S2[a3, a3, a1, a2, a2, a1, n] + 
    4*S2[a3, a3, a2, a1, a1, a2, n] + 4*S2[a3, a3, a2, a1, a2, a1, n] + 
    4*S2[a3, a3, a2, a2, a1, a1, n] /; 
   MyMemberQ[{{a1, a2, a3}}, {a1, a1, a2, a2, a3, a3}] && a1 != a2 != a3, 
 S2[a2_, a3_, a2_, a1_, a1_, a3_, n_] :> 
  S2[a1, a2, a3, n]^2/2 + S2[SP[a1, a1], SP[a2, a2], SP[a3, a3], n]/2 - 
    S2[a1, a1, SP[a2, a2], SP[a3, a3], n] - S2[a1, SP[a1, a2], a2, 
     SP[a3, a3], n] - S2[a1, SP[a1, a2], SP[a2, a3], a3, n] - 
    S2[SP[a1, a1], a2, a2, SP[a3, a3], n] - S2[SP[a1, a1], a2, SP[a2, a3], 
     a3, n] - S2[SP[a1, a1], SP[a2, a2], a3, a3, n] - 
    2*S2[a3, n]*S2[a1, a1, a2, a2, a3, n] + 
    2*S2[a1, a1, SP[a2, a2], a3, a3, n] - 
    2*S2[a1, a1, SP[a2, a3], a2, a3, n] - 
    S2[a3, n]*S2[a1, a2, a1, a2, a3, n] + 
    S2[a1, n]*S2[a1, a3, a2, a2, a3, n] + S2[a1, a3, a2, a2, SP[a1, a3], n] + 
    S2[a1, a3, a2, SP[a1, a2], a3, n] + S2[a1, a3, SP[a1, a2], a2, a3, n] + 
    2*S2[a1, SP[a1, a2], a2, a3, a3, n] + S2[a1, SP[a1, a2], a3, a2, a3, n] - 
    S2[a1, SP[a1, a3], a2, a2, a3, n] - S2[a1, SP[a2, a3], a1, a2, a3, n] + 
    S2[a3, n]*S2[a2, a3, a1, a1, a2, n] + S2[a2, a3, a1, a1, SP[a2, a3], n] + 
    S2[a2, a3, a1, SP[a1, a3], a2, n] + S2[a2, a3, SP[a1, a3], a1, a2, n] + 
    S2[a2, SP[a3, a3], a1, a1, a2, n] + 2*S2[a3, n]*
     S2[a3, a1, a1, a2, a2, n] - S2[a2, n]*S2[a3, a1, a1, a2, a3, n] + 
    S2[a3, a1, a1, a2, SP[a2, a3], n] - S2[a2, n]*S2[a3, a1, a1, a3, a2, n] - 
    S2[a3, a1, a1, a3, SP[a2, a2], n] - S2[a3, a1, a1, SP[a2, a2], a3, n] + 
    S2[a3, a1, a1, SP[a2, a3], a2, n] + S2[a3, n]*S2[a3, a1, a2, a1, a2, n] + 
    S2[a3, a1, a2, a1, SP[a2, a3], n] + S2[a1, n]*S2[a3, a1, a2, a2, a3, n] + 
    S2[a3, a1, a2, a2, SP[a1, a3], n] + S2[a3, a1, a2, SP[a1, a2], a3, n] + 
    S2[a3, a1, a2, SP[a1, a3], a2, n] - S2[a2, n]*S2[a3, a1, a3, a1, a2, n] - 
    S2[a3, a1, a3, a1, SP[a2, a2], n] - S2[a3, a1, a3, SP[a1, a2], a2, n] - 
    S2[a3, a1, SP[a1, a2], a3, a2, n] + 2*S2[a3, a1, SP[a1, a3], a2, a2, n] + 
    S2[a2, n]*S2[a3, a2, a1, a1, a3, n] + S2[a3, a2, a1, a1, SP[a2, a3], n] + 
    S2[a3, a2, a1, SP[a1, a2], a3, n] - S2[a1, n]*S2[a3, a2, a2, a1, a3, n] - 
    S2[a3, a2, a2, a1, SP[a1, a3], n] - S2[a1, n]*S2[a3, a2, a2, a3, a1, n] - 
    S2[a3, a2, a2, a3, SP[a1, a1], n] - S2[a3, a2, a2, SP[a1, a1], a3, n] - 
    S2[a3, a2, a2, SP[a1, a3], a1, n] - S2[a3, a2, SP[a1, a2], a3, a1, n] - 
    2*S2[a2, n]*S2[a3, a3, a1, a1, a2, n] - 
    2*S2[a3, a3, a1, a1, SP[a2, a2], n] - 
    2*S2[a3, a3, a1, SP[a1, a2], a2, n] - 
    2*S2[a3, a3, SP[a1, a2], a1, a2, n] + S2[a3, SP[a1, a1], a2, a2, a3, n] - 
    S2[a3, SP[a1, a2], a1, a2, a3, n] - S2[a3, SP[a1, a2], a1, a3, a2, n] - 
    S2[a3, SP[a1, a2], a2, a1, a3, n] - S2[a3, SP[a1, a2], a2, a3, a1, n] - 
    S2[a3, SP[a1, a2], a3, a1, a2, n] + 2*S2[a3, SP[a1, a3], a1, a2, a2, n] + 
    S2[a3, SP[a1, a3], a2, a1, a2, n] + S2[a3, SP[a2, a2], a1, a1, a3, n] - 
    2*S2[a3, SP[a2, a3], a1, a1, a2, n] + 
    2*S2[SP[a1, a1], a2, a2, a3, a3, n] + S2[SP[a1, a1], a2, a3, a2, a3, n] + 
    S2[SP[a1, a1], a3, a2, a2, a3, n] - S2[SP[a1, a3], a1, a2, a2, a3, n] - 
    S2[SP[a1, a3], a2, a1, a2, a3, n] - S2[SP[a1, a3], a2, a2, a1, a3, n] - 
    S2[SP[a1, a3], a2, a2, a3, a1, n] - S2[SP[a2, a3], a1, a1, a2, a3, n] - 
    S2[SP[a2, a3], a1, a1, a3, a2, n] - S2[SP[a2, a3], a1, a3, a1, a2, n] + 
    S2[SP[a2, a3], a2, a1, a1, a3, n] - S2[SP[a2, a3], a3, a1, a1, a2, n] + 
    2*S2[SP[a3, a3], a1, a1, a2, a2, n] + S2[SP[a3, a3], a1, a2, a1, a2, n] + 
    S2[a3, a2, a1, a2, a3, a1, n] + S2[a3, a2, a1, a3, a1, a2, n] + 
    2*S2[a3, a2, a2, a1, a3, a1, n] + 2*S2[a3, a2, a2, a3, a1, a1, n] + 
    S2[a3, a2, a3, a1, a1, a2, n] + 2*S2[a3, a3, a2, a1, a1, a2, n] /; 
   MyMemberQ[{{a1, a2, a3}}, {a1, a1, a2, a2, a3, a3}] && a1 != a2 != a3, 
 S2[a2_, a3_, a2_, a1_, a3_, a1_, n_] :> 
  -(S2[a1, a2, a3, n]^2/2) - S2[SP[a1, a1], SP[a2, a2], SP[a3, a3], n]/2 + 
    S2[a1, a1, SP[a2, a2], SP[a3, a3], n] + S2[a1, SP[a1, a2], a2, 
     SP[a3, a3], n] + S2[a1, SP[a1, a2], SP[a2, a3], a3, n] + 
    S2[SP[a1, a1], a2, a2, SP[a3, a3], n] + S2[SP[a1, a1], a2, SP[a2, a3], 
     a3, n] + S2[SP[a1, a1], SP[a2, a2], a3, a3, n] + 
    2*S2[a3, n]*S2[a1, a1, a2, a2, a3, n] - 
    2*S2[a3, n]*S2[a1, a1, a3, a2, a2, n] - 
    2*S2[a1, a1, a3, a2, SP[a2, a3], n] - 
    2*S2[a1, a1, a3, SP[a2, a3], a2, n] - 
    2*S2[a1, a1, SP[a2, a2], a3, a3, n] + 
    2*S2[a1, a1, SP[a2, a3], a2, a3, n] - 
    2*S2[a1, a1, SP[a3, a3], a2, a2, n] + 
    S2[a3, n]*S2[a1, a2, a1, a2, a3, n] - 
    2*S2[a3, n]*S2[a1, a3, a1, a2, a2, n] - 
    2*S2[a1, a3, a1, a2, SP[a2, a3], n] - 
    2*S2[a1, a3, a1, SP[a2, a3], a2, n] - 
    S2[a3, n]*S2[a1, a3, a2, a1, a2, n] - 
    S2[a2, n]*S2[a1, a3, a2, a1, a3, n] - 
    2*S2[a1, a3, a2, a1, SP[a2, a3], n] + 
    S2[a1, n]*S2[a1, a3, a2, a3, a2, n] + S2[a1, a3, a2, a3, SP[a1, a2], n] - 
    S2[a1, a3, a2, SP[a1, a2], a3, n] + 2*S2[a1, n]*
     S2[a1, a3, a3, a2, a2, n] + 2*S2[a1, a3, a3, a2, SP[a1, a2], n] + 
    2*S2[a1, a3, a3, SP[a1, a2], a2, n] + S2[a1, a3, SP[a1, a2], a3, a2, n] - 
    S2[a1, a3, SP[a2, a2], a1, a3, n] - S2[a1, a3, SP[a2, a3], a1, a2, n] - 
    2*S2[a1, SP[a1, a2], a2, a3, a3, n] - S2[a1, SP[a1, a2], a3, a2, a3, n] + 
    2*S2[a1, SP[a1, a3], a2, a2, a3, n] + S2[a1, SP[a1, a3], a2, a3, a2, n] + 
    S2[a1, SP[a2, a3], a1, a2, a3, n] - S2[a1, SP[a2, a3], a2, a1, a3, n] - 
    2*S2[a1, SP[a3, a3], a1, a2, a2, n] - S2[a1, SP[a3, a3], a2, a1, a2, n] + 
    S2[a1, n]*S2[a2, a3, a2, a1, a3, n] + S2[a2, a3, a2, a1, SP[a1, a3], n] + 
    S2[a2, a3, a2, SP[a1, a1], a3, n] + S2[a2, a3, SP[a1, a2], a1, a3, n] + 
    S2[a2, SP[a1, a3], a2, a1, a3, n] - 2*S2[a3, n]*
     S2[a3, a1, a1, a2, a2, n] - 2*S2[a3, a1, a1, a2, SP[a2, a3], n] - 
    2*S2[a3, a1, a1, SP[a2, a3], a2, n] - 
    S2[a3, n]*S2[a3, a1, a2, a1, a2, n] - 
    S2[a2, n]*S2[a3, a1, a2, a1, a3, n] - 
    2*S2[a3, a1, a2, a1, SP[a2, a3], n] + 
    S2[a1, n]*S2[a3, a1, a2, a3, a2, n] + S2[a3, a1, a2, a3, SP[a1, a2], n] - 
    S2[a3, a1, a2, SP[a1, a2], a3, n] + 2*S2[a1, n]*
     S2[a3, a1, a3, a2, a2, n] + 2*S2[a3, a1, a3, a2, SP[a1, a2], n] + 
    2*S2[a3, a1, a3, SP[a1, a2], a2, n] + S2[a3, a1, SP[a1, a2], a3, a2, n] - 
    S2[a3, a1, SP[a2, a2], a1, a3, n] - S2[a3, a1, SP[a2, a3], a1, a2, n] - 
    2*S2[a2, n]*S2[a3, a2, a1, a1, a3, n] - 
    2*S2[a3, a2, a1, a1, SP[a2, a3], n] + 
    S2[a1, n]*S2[a3, a2, a1, a2, a3, n] + S2[a3, a2, a1, a2, SP[a1, a3], n] + 
    S2[a1, n]*S2[a3, a2, a1, a3, a2, n] + S2[a3, a2, a1, a3, SP[a1, a2], n] - 
    S2[a3, a2, a1, SP[a1, a2], a3, n] + S2[a3, a2, a1, SP[a1, a3], a2, n] + 
    2*S2[a1, n]*S2[a3, a2, a2, a1, a3, n] + 
    2*S2[a3, a2, a2, a1, SP[a1, a3], n] + 
    2*S2[a3, a2, a2, SP[a1, a1], a3, n] - 
    S2[a1, n]*S2[a3, a2, a3, a2, a1, n] - S2[a3, a2, a3, a2, SP[a1, a1], n] - 
    S2[a3, a2, a3, SP[a1, a2], a1, n] + S2[a3, a2, SP[a1, a1], a2, a3, n] + 
    S2[a3, a2, SP[a1, a1], a3, a2, n] - S2[a3, a2, SP[a1, a3], a2, a1, n] + 
    2*S2[a1, n]*S2[a3, a3, a1, a2, a2, n] + 
    2*S2[a3, a3, a1, a2, SP[a1, a2], n] + 
    2*S2[a3, a3, a1, SP[a1, a2], a2, n] - 
    2*S2[a1, n]*S2[a3, a3, a2, a2, a1, n] - 
    2*S2[a3, a3, a2, a2, SP[a1, a1], n] - 
    2*S2[a3, a3, a2, SP[a1, a2], a1, n] + 
    2*S2[a3, a3, SP[a1, a1], a2, a2, n] - 
    2*S2[a3, a3, SP[a1, a2], a2, a1, n] + S2[a3, SP[a1, a1], a2, a3, a2, n] + 
    2*S2[a3, SP[a1, a1], a3, a2, a2, n] + S2[a3, SP[a1, a2], a1, a2, a3, n] + 
    S2[a3, SP[a1, a2], a1, a3, a2, n] + S2[a3, SP[a1, a2], a2, a1, a3, n] - 
    S2[a3, SP[a1, a2], a3, a2, a1, n] - S2[a3, SP[a1, a3], a2, a1, a2, n] - 
    2*S2[a3, SP[a1, a3], a2, a2, a1, n] - 
    2*S2[a3, SP[a2, a2], a1, a1, a3, n] - 
    2*S2[SP[a1, a1], a2, a2, a3, a3, n] - S2[SP[a1, a1], a2, a3, a2, a3, n] + 
    S2[SP[a1, a1], a3, a2, a3, a2, n] + 2*S2[SP[a1, a1], a3, a3, a2, a2, n] + 
    2*S2[SP[a1, a3], a1, a2, a2, a3, n] + S2[SP[a1, a3], a1, a2, a3, a2, n] + 
    2*S2[SP[a1, a3], a2, a1, a2, a3, n] + S2[SP[a1, a3], a2, a1, a3, a2, n] + 
    2*S2[SP[a1, a3], a2, a2, a1, a3, n] - S2[SP[a1, a3], a2, a3, a2, a1, n] - 
    S2[SP[a1, a3], a3, a2, a1, a2, n] - 2*S2[SP[a1, a3], a3, a2, a2, a1, n] - 
    S2[SP[a2, a3], a1, a2, a1, a3, n] - 2*S2[SP[a2, a3], a2, a1, a1, a3, n] - 
    2*S2[SP[a3, a3], a1, a1, a2, a2, n] - S2[SP[a3, a3], a1, a2, a1, a2, n] - 
    S2[a3, a2, a1, a2, a3, a1, n] - S2[a3, a2, a1, a3, a1, a2, n] - 
    2*S2[a3, a2, a2, a1, a3, a1, n] + S2[a3, a2, a3, a1, a2, a1, n] + 
    2*S2[a3, a2, a3, a2, a1, a1, n] + 2*S2[a3, a3, a2, a1, a2, a1, n] + 
    4*S2[a3, a3, a2, a2, a1, a1, n] /; 
   MyMemberQ[{{a1, a2, a3}}, {a1, a1, a2, a2, a3, a3}] && a1 != a2 != a3, 
 S2[a2_, a3_, a2_, a3_, a1_, a1_, n_] :> 
  S2[a2, n]*S2[a1, a1, a3, a2, a3, n] + S2[a1, a1, a3, a2, SP[a2, a3], n] + 
    S2[a1, a1, a3, SP[a2, a2], a3, n] + S2[a1, a1, SP[a2, a3], a2, a3, n] - 
    (S2[a1, n]*S2[a1, a2, a3, a2, a3, n])/2 - 
    S2[a1, a2, a3, a2, SP[a1, a3], n]/2 - S2[a1, a2, a3, SP[a1, a2], a3, n]/
     2 - S2[a1, a2, SP[a1, a3], a2, a3, n]/2 + 
    S2[a2, n]*S2[a1, a3, a1, a2, a3, n] + S2[a1, a3, a1, a2, SP[a2, a3], n] + 
    S2[a1, a3, a1, SP[a2, a2], a3, n] + S2[a2, n]*S2[a1, a3, a2, a1, a3, n] + 
    S2[a1, a3, a2, a1, SP[a2, a3], n] - S2[a1, n]*S2[a1, a3, a2, a2, a3, n] - 
    S2[a1, a3, a2, a2, SP[a1, a3], n] - (S2[a1, n]*S2[a1, a3, a2, a3, a2, n])/
     2 - S2[a1, a3, a2, a3, SP[a1, a2], n]/2 - 
    S2[a1, a3, a2, SP[a1, a3], a2, n]/2 - S2[a1, a3, SP[a1, a2], a3, a2, n]/
     2 + S2[a1, a3, SP[a2, a2], a1, a3, n] + 
    S2[a1, SP[a1, a2], a3, a2, a3, n]/2 - S2[a1, SP[a1, a3], a2, a2, a3, n] - 
    S2[a1, SP[a1, a3], a2, a3, a2, n]/2 + S2[a1, SP[a2, a3], a1, a2, a3, n] + 
    S2[a1, SP[a2, a3], a2, a1, a3, n] - (S2[a1, n]*S2[a2, a1, a3, a2, a3, n])/
     2 - S2[a2, a1, a3, a2, SP[a1, a3], n]/2 - 
    S2[a2, a1, a3, SP[a1, a2], a3, n]/2 - S2[a2, a1, SP[a1, a3], a2, a3, n]/
     2 - (S2[a1, n]*S2[a2, a3, a1, a2, a3, n])/2 - 
    S2[a2, a3, a1, a2, SP[a1, a3], n]/2 - S2[a2, a3, a1, SP[a1, a2], a3, n]/
     2 - (S2[a1, n]*S2[a2, a3, a2, a1, a3, n])/2 - 
    S2[a2, a3, a2, a1, SP[a1, a3], n]/2 + 
    (S2[a1, n]*S2[a2, a3, a2, a3, a1, n])/2 + 
    S2[a2, a3, a2, a3, SP[a1, a1], n]/2 - S2[a2, a3, a2, SP[a1, a1], a3, n]/
     2 + S2[a2, a3, a2, SP[a1, a3], a1, n]/2 - 
    S2[a2, a3, SP[a1, a1], a2, a3, n]/2 - S2[a2, a3, SP[a1, a2], a1, a3, n]/
     2 + S2[a2, a3, SP[a1, a2], a3, a1, n]/2 - 
    S2[a2, SP[a1, a1], a3, a2, a3, n]/2 - S2[a2, SP[a1, a3], a1, a2, a3, n]/
     2 - S2[a2, SP[a1, a3], a2, a1, a3, n]/2 + 
    S2[a2, SP[a1, a3], a2, a3, a1, n]/2 + 
    S2[a2, n]*S2[a3, a1, a1, a2, a3, n] + S2[a3, a1, a1, a2, SP[a2, a3], n] + 
    S2[a3, a1, a1, SP[a2, a2], a3, n] + S2[a2, n]*S2[a3, a1, a2, a1, a3, n] + 
    S2[a3, a1, a2, a1, SP[a2, a3], n] - S2[a1, n]*S2[a3, a1, a2, a2, a3, n] - 
    S2[a3, a1, a2, a2, SP[a1, a3], n] - (S2[a1, n]*S2[a3, a1, a2, a3, a2, n])/
     2 - S2[a3, a1, a2, a3, SP[a1, a2], n]/2 - 
    S2[a3, a1, a2, SP[a1, a3], a2, n]/2 - S2[a3, a1, SP[a1, a2], a3, a2, n]/
     2 + S2[a3, a1, SP[a2, a2], a1, a3, n] + 
    S2[a2, n]*S2[a3, a2, a1, a1, a3, n] + S2[a3, a2, a1, a1, SP[a2, a3], n] - 
    S2[a1, n]*S2[a3, a2, a1, a2, a3, n] - S2[a3, a2, a1, a2, SP[a1, a3], n] - 
    (S2[a1, n]*S2[a3, a2, a1, a3, a2, n])/2 - 
    S2[a3, a2, a1, a3, SP[a1, a2], n]/2 - S2[a3, a2, a1, SP[a1, a3], a2, n]/
     2 - S2[a1, n]*S2[a3, a2, a2, a1, a3, n] - S2[a3, a2, a2, a1, SP[a1, a3], 
     n] + S2[a1, n]*S2[a3, a2, a2, a3, a1, n] + S2[a3, a2, a2, a3, 
     SP[a1, a1], n] - S2[a3, a2, a2, SP[a1, a1], a3, n] + 
    S2[a3, a2, a2, SP[a1, a3], a1, n] + (S2[a1, n]*S2[a3, a2, a3, a1, a2, n])/
     2 + S2[a3, a2, a3, a1, SP[a1, a2], n]/2 + 
    (S2[a1, n]*S2[a3, a2, a3, a2, a1, n])/2 + 
    S2[a3, a2, a3, a2, SP[a1, a1], n]/2 + S2[a3, a2, a3, SP[a1, a1], a2, n]/
     2 + S2[a3, a2, a3, SP[a1, a2], a1, n]/2 - S2[a3, a2, SP[a1, a1], a2, a3, 
     n] - S2[a3, a2, SP[a1, a1], a3, a2, n]/2 + S2[a3, a2, SP[a1, a2], a3, 
     a1, n] + S2[a3, a2, SP[a1, a3], a1, a2, n]/2 + 
    S2[a3, a2, SP[a1, a3], a2, a1, n]/2 - S2[a3, SP[a1, a1], a2, a2, a3, n] - 
    S2[a3, SP[a1, a1], a2, a3, a2, n]/2 - S2[a3, SP[a1, a2], a1, a3, a2, n]/
     2 + S2[a3, SP[a1, a2], a2, a3, a1, n] + 
    S2[a3, SP[a1, a2], a3, a1, a2, n]/2 + S2[a3, SP[a1, a2], a3, a2, a1, n]/
     2 + S2[a3, SP[a2, a2], a1, a1, a3, n] - 
    S2[SP[a1, a1], a2, a3, a2, a3, n]/2 - S2[SP[a1, a1], a3, a2, a2, a3, n] - 
    S2[SP[a1, a1], a3, a2, a3, a2, n]/2 + S2[SP[a1, a2], a1, a3, a2, a3, n]/
     2 + S2[SP[a1, a2], a3, a1, a2, a3, n]/2 + 
    S2[SP[a1, a2], a3, a2, a1, a3, n]/2 + S2[SP[a1, a2], a3, a2, a3, a1, n]/
     2 - S2[SP[a1, a3], a1, a2, a2, a3, n] - 
    S2[SP[a1, a3], a1, a2, a3, a2, n]/2 - S2[SP[a1, a3], a2, a1, a2, a3, n] - 
    S2[SP[a1, a3], a2, a1, a3, a2, n]/2 - S2[SP[a1, a3], a2, a2, a1, a3, n] + 
    S2[SP[a1, a3], a2, a2, a3, a1, n] + S2[SP[a1, a3], a2, a3, a1, a2, n]/2 + 
    S2[SP[a1, a3], a2, a3, a2, a1, n]/2 + S2[SP[a2, a3], a1, a1, a2, a3, n] + 
    S2[SP[a2, a3], a1, a2, a1, a3, n] + S2[SP[a2, a3], a2, a1, a1, a3, n] - 
    2*S2[a3, a2, a2, a3, a1, a1, n] - S2[a3, a2, a3, a1, a1, a2, n] - 
    S2[a3, a2, a3, a1, a2, a1, n] - S2[a3, a2, a3, a2, a1, a1, n] /; 
   MyMemberQ[{{a1, a2, a3}}, {a1, a1, a2, a2, a3, a3}] && a1 != a2 != a3, 
 S2[a2_, a3_, a3_, a1_, a1_, a2_, n_] :> 
  S2[a2, n]*S2[a3, a3, a1, a1, a2, n] + S2[a3, a3, a1, a1, SP[a2, a2], n] + 
    S2[a3, a3, a1, SP[a1, a2], a2, n] + S2[a3, a3, SP[a1, a2], a1, a2, n] + 
    S2[a3, SP[a2, a3], a1, a1, a2, n] + S2[SP[a2, a3], a3, a1, a1, a2, n] - 
    S2[a3, a2, a3, a1, a1, a2, n] - 2*S2[a3, a3, a1, a1, a2, a2, n] - 
    S2[a3, a3, a1, a2, a1, a2, n] - S2[a3, a3, a2, a1, a1, a2, n] /; 
   MyMemberQ[{{a1, a2, a3}}, {a1, a1, a2, a2, a3, a3}] && a1 != a2 != a3, 
 S2[a2_, a3_, a3_, a1_, a2_, a1_, n_] :> 
  -(S2[a2, n]*S2[a1, a3, a3, a1, a2, n]) - S2[a1, a3, a3, a1, SP[a2, a2], 
     n] - S2[a1, a3, a3, SP[a1, a2], a2, n] - S2[a1, a3, SP[a2, a3], a1, a2, 
     n] - S2[a1, SP[a2, a3], a3, a1, a2, n] + 
    S2[a1, n]*S2[a2, a3, a3, a1, a2, n] + S2[a2, a3, a3, a1, SP[a1, a2], n] + 
    S2[a2, a3, a3, SP[a1, a1], a2, n] + S2[a2, a3, SP[a1, a3], a1, a2, n] + 
    S2[a2, SP[a1, a3], a3, a1, a2, n] - S2[a2, n]*S2[a3, a1, a3, a1, a2, n] - 
    S2[a3, a1, a3, a1, SP[a2, a2], n] - S2[a3, a1, a3, SP[a1, a2], a2, n] - 
    S2[a3, a1, SP[a2, a3], a1, a2, n] + S2[a1, n]*S2[a3, a2, a3, a1, a2, n] + 
    S2[a3, a2, a3, a1, SP[a1, a2], n] + S2[a3, a2, a3, SP[a1, a1], a2, n] + 
    S2[a3, a2, SP[a1, a3], a1, a2, n] - 2*S2[a2, n]*
     S2[a3, a3, a1, a1, a2, n] - 2*S2[a3, a3, a1, a1, SP[a2, a2], n] + 
    2*S2[a1, n]*S2[a3, a3, a1, a2, a2, n] + 
    2*S2[a3, a3, a1, a2, SP[a1, a2], n] + 
    S2[a1, n]*S2[a3, a3, a2, a1, a2, n] + S2[a3, a3, a2, a1, SP[a1, a2], n] + 
    S2[a3, a3, a2, SP[a1, a1], a2, n] + 2*S2[a3, a3, SP[a1, a1], a2, a2, n] - 
    S2[a3, a3, SP[a1, a2], a1, a2, n] + 2*S2[a3, SP[a1, a3], a1, a2, a2, n] + 
    S2[a3, SP[a1, a3], a2, a1, a2, n] - 2*S2[a3, SP[a2, a3], a1, a1, a2, n] + 
    S2[SP[a1, a3], a2, a3, a1, a2, n] + 2*S2[SP[a1, a3], a3, a1, a2, a2, n] + 
    S2[SP[a1, a3], a3, a2, a1, a2, n] - S2[SP[a2, a3], a1, a3, a1, a2, n] - 
    2*S2[SP[a2, a3], a3, a1, a1, a2, n] - S2[a3, a2, a3, a1, a2, a1, n] - 
    S2[a3, a3, a1, a2, a1, a2, n] - 2*S2[a3, a3, a1, a2, a2, a1, n] - 
    S2[a3, a3, a2, a1, a2, a1, n] /; 
   MyMemberQ[{{a1, a2, a3}}, {a1, a1, a2, a2, a3, a3}] && a1 != a2 != a3, 
 S2[a2_, a3_, a3_, a2_, a1_, a1_, n_] :> 
  S2[a2, n]*S2[a1, a1, a3, a3, a2, n] + S2[a1, a1, a3, a3, SP[a2, a2], n] + 
    S2[a1, a1, a3, SP[a2, a3], a2, n] + S2[a1, a1, SP[a2, a3], a3, a2, n] - 
    (S2[a1, n]*S2[a1, a2, a3, a3, a2, n])/2 - 
    S2[a1, a2, a3, a3, SP[a1, a2], n]/2 - S2[a1, a2, a3, SP[a1, a3], a2, n]/
     2 - S2[a1, a2, SP[a1, a3], a3, a2, n]/2 + 
    S2[a2, n]*S2[a1, a3, a1, a3, a2, n] + S2[a1, a3, a1, a3, SP[a2, a2], n] + 
    S2[a1, a3, a1, SP[a2, a3], a2, n] - (S2[a1, n]*S2[a1, a3, a2, a3, a2, n])/
     2 - S2[a1, a3, a2, a3, SP[a1, a2], n]/2 - 
    S2[a1, a3, a2, SP[a1, a3], a2, n]/2 + 
    S2[a2, n]*S2[a1, a3, a3, a1, a2, n] + S2[a1, a3, a3, a1, SP[a2, a2], n] - 
    S2[a1, n]*S2[a1, a3, a3, a2, a2, n] - S2[a1, a3, a3, a2, SP[a1, a2], n] + 
    S2[a1, a3, SP[a1, a2], a3, a2, n]/2 - S2[a1, a3, SP[a1, a3], a2, a2, n] + 
    S2[a1, a3, SP[a2, a3], a1, a2, n] + S2[a1, SP[a1, a2], a3, a3, a2, n]/2 - 
    S2[a1, SP[a1, a3], a2, a3, a2, n]/2 - S2[a1, SP[a1, a3], a3, a2, a2, n] + 
    S2[a1, SP[a2, a3], a1, a3, a2, n] + S2[a1, SP[a2, a3], a3, a1, a2, n] - 
    (S2[a1, n]*S2[a2, a1, a3, a3, a2, n])/2 - 
    S2[a2, a1, a3, a3, SP[a1, a2], n]/2 - S2[a2, a1, a3, SP[a1, a3], a2, n]/
     2 - S2[a2, a1, SP[a1, a3], a3, a2, n]/2 - 
    (S2[a1, n]*S2[a2, a3, a1, a3, a2, n])/2 - 
    S2[a2, a3, a1, a3, SP[a1, a2], n]/2 - S2[a2, a3, a1, SP[a1, a3], a2, n]/
     2 - (S2[a1, n]*S2[a2, a3, a3, a1, a2, n])/2 - 
    S2[a2, a3, a3, a1, SP[a1, a2], n]/2 + 
    (S2[a1, n]*S2[a2, a3, a3, a2, a1, n])/2 + 
    S2[a2, a3, a3, a2, SP[a1, a1], n]/2 - S2[a2, a3, a3, SP[a1, a1], a2, n]/
     2 + S2[a2, a3, a3, SP[a1, a2], a1, n]/2 - 
    S2[a2, a3, SP[a1, a1], a3, a2, n]/2 - S2[a2, a3, SP[a1, a3], a1, a2, n]/
     2 + S2[a2, a3, SP[a1, a3], a2, a1, n]/2 - 
    S2[a2, SP[a1, a1], a3, a3, a2, n]/2 - S2[a2, SP[a1, a3], a1, a3, a2, n]/
     2 - S2[a2, SP[a1, a3], a3, a1, a2, n]/2 + 
    S2[a2, SP[a1, a3], a3, a2, a1, n]/2 + 
    S2[a2, n]*S2[a3, a1, a1, a3, a2, n] + S2[a3, a1, a1, a3, SP[a2, a2], n] + 
    S2[a3, a1, a1, SP[a2, a3], a2, n] - (S2[a1, n]*S2[a3, a1, a2, a3, a2, n])/
     2 - S2[a3, a1, a2, a3, SP[a1, a2], n]/2 - 
    S2[a3, a1, a2, SP[a1, a3], a2, n]/2 + 
    S2[a2, n]*S2[a3, a1, a3, a1, a2, n] + S2[a3, a1, a3, a1, SP[a2, a2], n] - 
    S2[a1, n]*S2[a3, a1, a3, a2, a2, n] - S2[a3, a1, a3, a2, SP[a1, a2], n] + 
    S2[a3, a1, SP[a1, a2], a3, a2, n]/2 - S2[a3, a1, SP[a1, a3], a2, a2, n] + 
    S2[a3, a1, SP[a2, a3], a1, a2, n] - (S2[a1, n]*S2[a3, a2, a1, a3, a2, n])/
     2 - S2[a3, a2, a1, a3, SP[a1, a2], n]/2 - 
    S2[a3, a2, a1, SP[a1, a3], a2, n]/2 - 
    (S2[a1, n]*S2[a3, a2, a3, a1, a2, n])/2 - 
    S2[a3, a2, a3, a1, SP[a1, a2], n]/2 + 
    (S2[a1, n]*S2[a3, a2, a3, a2, a1, n])/2 + 
    S2[a3, a2, a3, a2, SP[a1, a1], n]/2 - S2[a3, a2, a3, SP[a1, a1], a2, n]/
     2 + S2[a3, a2, a3, SP[a1, a2], a1, n]/2 - 
    S2[a3, a2, SP[a1, a1], a3, a2, n]/2 - S2[a3, a2, SP[a1, a3], a1, a2, n]/
     2 + S2[a3, a2, SP[a1, a3], a2, a1, n]/2 + 
    S2[a2, n]*S2[a3, a3, a1, a1, a2, n] + S2[a3, a3, a1, a1, SP[a2, a2], n] - 
    S2[a1, n]*S2[a3, a3, a1, a2, a2, n] - S2[a3, a3, a1, a2, SP[a1, a2], n] + 
    S2[a1, n]*S2[a3, a3, a2, a2, a1, n] + S2[a3, a3, a2, a2, SP[a1, a1], n] + 
    S2[a3, a3, a2, SP[a1, a2], a1, n] - S2[a3, a3, SP[a1, a1], a2, a2, n] + 
    S2[a3, a3, SP[a1, a2], a1, a2, n] + S2[a3, a3, SP[a1, a2], a2, a1, n] - 
    S2[a3, SP[a1, a1], a2, a3, a2, n]/2 - S2[a3, SP[a1, a1], a3, a2, a2, n] + 
    S2[a3, SP[a1, a2], a1, a3, a2, n]/2 + S2[a3, SP[a1, a2], a3, a1, a2, n]/
     2 + S2[a3, SP[a1, a2], a3, a2, a1, n]/2 - S2[a3, SP[a1, a3], a1, a2, a2, 
     n] + S2[a3, SP[a1, a3], a2, a2, a1, n] + S2[a3, SP[a2, a3], a1, a1, a2, 
     n] - S2[SP[a1, a1], a2, a3, a3, a2, n]/2 - 
    S2[SP[a1, a1], a3, a2, a3, a2, n]/2 - S2[SP[a1, a1], a3, a3, a2, a2, n] + 
    S2[SP[a1, a2], a1, a3, a3, a2, n]/2 + S2[SP[a1, a2], a3, a1, a3, a2, n]/
     2 + S2[SP[a1, a2], a3, a3, a1, a2, n]/2 + 
    S2[SP[a1, a2], a3, a3, a2, a1, n]/2 - S2[SP[a1, a3], a1, a2, a3, a2, n]/
     2 - S2[SP[a1, a3], a1, a3, a2, a2, n] - 
    S2[SP[a1, a3], a2, a1, a3, a2, n]/2 - S2[SP[a1, a3], a2, a3, a1, a2, n]/
     2 + S2[SP[a1, a3], a2, a3, a2, a1, n]/2 - S2[SP[a1, a3], a3, a1, a2, a2, 
     n] + S2[SP[a1, a3], a3, a2, a2, a1, n] + S2[SP[a2, a3], a1, a1, a3, a2, 
     n] + S2[SP[a2, a3], a1, a3, a1, a2, n] + S2[SP[a2, a3], a3, a1, a1, a2, 
     n] - S2[a3, a2, a3, a2, a1, a1, n] - S2[a3, a3, a2, a1, a1, a2, n] - 
    S2[a3, a3, a2, a1, a2, a1, n] - 2*S2[a3, a3, a2, a2, a1, a1, n] /; 
   MyMemberQ[{{a1, a2, a3}}, {a1, a1, a2, a2, a3, a3}] && a1 != a2 != a3, 
 S2[a3_, a1_, a1_, a2_, a2_, a3_, n_] :> 
  S2[a1, a1, a3, n]*S2[a2, a2, a3, n] + S2[SP[a1, a2], SP[a1, a2], 
     SP[a3, a3], n] + S2[a2, a3, n]*S2[a1, a1, a2, a3, n] + 
    S2[a2, a3, n]*S2[a1, a1, a3, a2, n] - S2[a1, a1, SP[a2, a2], SP[a3, a3], 
     n] - S2[a1, a1, SP[a2, a3], SP[a2, a3], n] + 
    S2[a2, a3, n]*S2[a1, a2, a1, a3, n] - S2[a1, a3, n]*
     S2[a1, a2, a2, a3, n] - S2[a1, a2, SP[a1, a2], SP[a3, a3], n] - 
    S2[a1, SP[a1, a2], a2, SP[a3, a3], n] - S2[a1, SP[a1, a2], a3, 
     SP[a2, a3], n] - S2[a1, SP[a1, a2], SP[a2, a3], a3, n] - 
    S2[a1, SP[a1, a2], SP[a3, a3], a2, n] - S2[a1, SP[a2, a2], a1, 
     SP[a3, a3], n] - S2[a1, SP[a2, a2], SP[a1, a3], a3, n] - 
    S2[a2, a1, SP[a1, a2], SP[a3, a3], n] - S2[a2, SP[a1, a2], a1, 
     SP[a3, a3], n] - S2[a2, SP[a1, a2], SP[a1, a3], a3, n] + 
    S2[SP[a1, a1], a2, a2, SP[a3, a3], n] + S2[SP[a1, a1], a2, SP[a2, a3], 
     a3, n] + S2[SP[a1, a1], SP[a2, a3], a2, a3, n] - 
    2*S2[SP[a1, a2], a1, a2, SP[a3, a3], n] - S2[SP[a1, a2], a1, a3, 
     SP[a2, a3], n] - 2*S2[SP[a1, a2], a1, SP[a2, a3], a3, n] - 
    S2[SP[a1, a2], a1, SP[a3, a3], a2, n] - 
    2*S2[SP[a1, a2], a2, a1, SP[a3, a3], n] - 
    2*S2[SP[a1, a2], a2, SP[a1, a3], a3, n] - 
    2*S2[SP[a1, a2], SP[a1, a2], a3, a3, n] - S2[SP[a1, a2], SP[a1, a3], a2, 
     a3, n] - S2[SP[a1, a2], SP[a1, a3], a3, a2, n] - 
    S2[SP[a1, a2], SP[a2, a3], a1, a3, n] + 
    2*S2[a3, n]*S2[a1, a1, a2, a2, a3, n] + 
    3*S2[a1, a1, a2, a2, SP[a3, a3], n] + 
    S2[a3, n]*S2[a1, a1, a2, a3, a2, n] - 
    3*S2[a2, n]*S2[a1, a1, a2, a3, a3, n] - S2[a1, a1, a2, a3, SP[a2, a3], 
     n] + 2*S2[a1, a1, a2, SP[a3, a3], a2, n] - 
    2*S2[a2, n]*S2[a1, a1, a3, a2, a3, n] - S2[a1, a1, a3, a2, SP[a2, a3], 
     n] - S2[a2, n]*S2[a1, a1, a3, a3, a2, n] - S2[a1, a1, a3, a3, 
     SP[a2, a2], n] - S2[a1, a1, a3, SP[a2, a2], a3, n] - 
    S2[a1, a1, a3, SP[a2, a3], a2, n] - S2[a1, a1, SP[a2, a2], a3, a3, n] + 
    S2[a1, a1, SP[a2, a3], a3, a2, n] + S2[a3, n]*S2[a1, a2, a1, a2, a3, n] + 
    3*S2[a1, a2, a1, a2, SP[a3, a3], n] + 
    S2[a3, n]*S2[a1, a2, a1, a3, a2, n] - 
    3*S2[a2, n]*S2[a1, a2, a1, a3, a3, n] - S2[a1, a2, a1, a3, SP[a2, a3], 
     n] + 2*S2[a1, a2, a1, SP[a3, a3], a2, n] + 
    S2[a3, n]*S2[a1, a2, a2, a1, a3, n] + 
    3*S2[a1, a2, a2, a1, SP[a3, a3], n] + 
    3*S2[a1, a2, a2, SP[a1, a3], a3, n] - 
    (3*S2[a2, n]*S2[a1, a2, a3, a1, a3, n])/2 - 
    (3*S2[a1, a2, a3, a1, SP[a2, a3], n])/2 - 
    (3*S2[a1, a2, a3, SP[a1, a2], a3, n])/2 - S2[a1, a2, SP[a1, a2], a3, a3, 
     n] + 2*S2[a1, a2, SP[a1, a3], a2, a3, n] + 
    2*S2[a1, a2, SP[a1, a3], a3, a2, n] + S2[a1, a2, SP[a2, a3], a1, a3, n]/
     2 - S2[a3, n]*S2[a1, a3, a1, a2, a2, n] - 
    (S2[a2, n]*S2[a1, a3, a1, a2, a3, n])/2 - 
    (3*S2[a1, a3, a1, a2, SP[a2, a3], n])/2 - 
    (S2[a2, n]*S2[a1, a3, a1, a3, a2, n])/2 - 
    S2[a1, a3, a1, a3, SP[a2, a2], n]/2 - S2[a1, a3, a1, SP[a2, a2], a3, n]/
     2 - (3*S2[a1, a3, a1, SP[a2, a3], a2, n])/2 - 
    S2[a3, n]*S2[a1, a3, a2, a1, a2, n] - 
    (S2[a2, n]*S2[a1, a3, a2, a1, a3, n])/2 - 
    (3*S2[a1, a3, a2, a1, SP[a2, a3], n])/2 + 
    (S2[a1, n]*S2[a1, a3, a2, a2, a3, n])/2 + 
    S2[a1, a3, a2, a2, SP[a1, a3], n]/2 + 
    (S2[a1, n]*S2[a1, a3, a2, a3, a2, n])/2 + 
    S2[a1, a3, a2, a3, SP[a1, a2], n]/2 - S2[a1, a3, a2, SP[a1, a3], a2, n]/
     2 + S2[a1, n]*S2[a1, a3, a3, a2, a2, n] + S2[a1, a3, a3, a2, SP[a1, a2], 
     n] + S2[a1, a3, a3, SP[a1, a2], a2, n] - 
    S2[a1, a3, SP[a2, a2], a1, a3, n]/2 - S2[a1, a3, SP[a2, a3], a1, a2, n] - 
    S2[a1, SP[a1, a2], a2, a3, a3, n] + S2[a1, SP[a1, a2], a3, a3, a2, n] + 
    (3*S2[a1, SP[a1, a3], a2, a2, a3, n])/2 + 
    (3*S2[a1, SP[a1, a3], a2, a3, a2, n])/2 + S2[a1, SP[a1, a3], a3, a2, a2, 
     n] - S2[a1, SP[a2, a2], a1, a3, a3, n] - 
    S2[a1, SP[a2, a2], a3, a1, a3, n]/2 + S2[a1, SP[a2, a3], a1, a2, a3, n]/
     2 + S2[a1, SP[a2, a3], a1, a3, a2, n]/2 + 
    S2[a1, SP[a2, a3], a2, a1, a3, n]/2 - S2[a1, SP[a3, a3], a1, a2, a2, n] - 
    S2[a1, SP[a3, a3], a2, a1, a2, n] + 2*S2[a2, a1, a1, a2, SP[a3, a3], n] - 
    S2[a2, n]*S2[a2, a1, a1, a3, a3, n] + S2[a2, a1, a1, SP[a2, a3], a3, n] + 
    S2[a2, a1, a1, SP[a3, a3], a2, n] + 2*S2[a2, a1, a2, a1, SP[a3, a3], n] + 
    2*S2[a2, a1, a2, SP[a1, a3], a3, n] - 
    (S2[a2, n]*S2[a2, a1, a3, a1, a3, n])/2 - 
    S2[a2, a1, a3, a1, SP[a2, a3], n]/2 - S2[a2, a1, a3, SP[a1, a2], a3, n]/
     2 + S2[a2, a1, SP[a1, a2], a3, a3, n] + S2[a2, a1, SP[a1, a3], a2, a3, 
     n] + S2[a2, a1, SP[a1, a3], a3, a2, n] + 
    S2[a2, a1, SP[a2, a3], a1, a3, n]/2 + S2[a2, a2, a1, a1, SP[a3, a3], n] + 
    S2[a2, a2, a1, SP[a1, a3], a3, n] + S2[a2, a2, SP[a1, a3], a1, a3, n] + 
    S2[a3, n]*S2[a2, a3, a1, a1, a2, n] - 
    (S2[a2, n]*S2[a2, a3, a1, a1, a3, n])/2 + 
    S2[a2, a3, a1, a1, SP[a2, a3], n]/2 - S2[a2, a3, a1, SP[a1, a2], a3, n]/
     2 + S2[a2, a3, a1, SP[a1, a3], a2, n] - 
    S2[a2, a3, SP[a1, a2], a1, a3, n]/2 + S2[a2, a3, SP[a1, a3], a1, a2, n] + 
    S2[a2, SP[a1, a2], a1, a3, a3, n] + S2[a2, SP[a1, a2], a3, a1, a3, n]/2 + 
    S2[a2, SP[a1, a3], a1, a2, a3, n] + S2[a2, SP[a1, a3], a1, a3, a2, n] + 
    S2[a2, SP[a1, a3], a2, a1, a3, n] - S2[a2, SP[a2, a3], a1, a1, a3, n]/2 + 
    S2[a2, SP[a3, a3], a1, a1, a2, n] + S2[a3, n]*S2[a3, a1, a1, a2, a2, n] - 
    (3*S2[a2, n]*S2[a3, a1, a1, a2, a3, n])/2 - 
    S2[a3, a1, a1, a2, SP[a2, a3], n]/2 - 
    (3*S2[a2, n]*S2[a3, a1, a1, a3, a2, n])/2 - 
    (3*S2[a3, a1, a1, a3, SP[a2, a2], n])/2 - 
    (3*S2[a3, a1, a1, SP[a2, a2], a3, n])/2 - 
    S2[a3, a1, a1, SP[a2, a3], a2, n]/2 - 
    (S2[a2, n]*S2[a3, a1, a2, a1, a3, n])/2 - 
    S2[a3, a1, a2, a1, SP[a2, a3], n]/2 + 
    (S2[a1, n]*S2[a3, a1, a2, a2, a3, n])/2 + 
    S2[a3, a1, a2, a2, SP[a1, a3], n]/2 + 
    (S2[a1, n]*S2[a3, a1, a2, a3, a2, n])/2 + 
    S2[a3, a1, a2, a3, SP[a1, a2], n]/2 + S2[a3, a1, a2, SP[a1, a3], a2, n]/
     2 - S2[a2, n]*S2[a3, a1, a3, a1, a2, n] - S2[a3, a1, a3, a1, SP[a2, a2], 
     n] + S2[a1, n]*S2[a3, a1, a3, a2, a2, n] + S2[a3, a1, a3, a2, 
     SP[a1, a2], n] - S2[a3, a1, SP[a1, a2], a2, a3, n] - 
    S2[a3, a1, SP[a1, a2], a3, a2, n] + 2*S2[a3, a1, SP[a1, a3], a2, a2, n] - 
    S2[a3, a1, SP[a2, a2], a1, a3, n]/2 - S2[a3, a1, SP[a2, a3], a1, a2, n] + 
    (S2[a2, n]*S2[a3, a2, a1, a1, a3, n])/2 + 
    S2[a3, a2, a1, a1, SP[a2, a3], n]/2 + 
    (S2[a1, n]*S2[a3, a2, a1, a2, a3, n])/2 + 
    S2[a3, a2, a1, a2, SP[a1, a3], n]/2 + 
    (S2[a1, n]*S2[a3, a2, a1, a3, a2, n])/2 + 
    S2[a3, a2, a1, a3, SP[a1, a2], n]/2 + S2[a3, a2, a1, SP[a1, a2], a3, n] + 
    S2[a3, a2, a1, SP[a1, a3], a2, n]/2 - 
    (S2[a1, n]*S2[a3, a2, a2, a1, a3, n])/2 - 
    S2[a3, a2, a2, a1, SP[a1, a3], n]/2 - 
    (S2[a1, n]*S2[a3, a2, a2, a3, a1, n])/2 - 
    S2[a3, a2, a2, a3, SP[a1, a1], n]/2 - S2[a3, a2, a2, SP[a1, a1], a3, n]/
     2 - S2[a3, a2, a2, SP[a1, a3], a1, n]/2 + 
    (S2[a1, n]*S2[a3, a2, a3, a1, a2, n])/2 + 
    S2[a3, a2, a3, a1, SP[a1, a2], n]/2 - 
    (S2[a1, n]*S2[a3, a2, a3, a2, a1, n])/2 - 
    S2[a3, a2, a3, a2, SP[a1, a1], n]/2 + S2[a3, a2, a3, SP[a1, a1], a2, n]/
     2 - S2[a3, a2, a3, SP[a1, a2], a1, n]/2 + 
    S2[a3, a2, SP[a1, a1], a2, a3, n]/2 + S2[a3, a2, SP[a1, a1], a3, a2, n]/
     2 - S2[a3, a2, SP[a1, a2], a3, a1, n]/2 + 
    S2[a3, a2, SP[a1, a3], a1, a2, n]/2 - S2[a3, a2, SP[a1, a3], a2, a1, n]/
     2 - 2*S2[a2, n]*S2[a3, a3, a1, a1, a2, n] - 
    2*S2[a3, a3, a1, a1, SP[a2, a2], n] + 
    S2[a1, n]*S2[a3, a3, a1, a2, a2, n] + S2[a3, a3, a1, a2, SP[a1, a2], n] - 
    S2[a3, a3, a1, SP[a1, a2], a2, n] + S2[a1, n]*S2[a3, a3, a2, a1, a2, n] + 
    S2[a3, a3, a2, a1, SP[a1, a2], n] - S2[a1, n]*S2[a3, a3, a2, a2, a1, n] - 
    S2[a3, a3, a2, a2, SP[a1, a1], n] + S2[a3, a3, a2, SP[a1, a1], a2, n] - 
    S2[a3, a3, a2, SP[a1, a2], a1, n] + S2[a3, a3, SP[a1, a1], a2, a2, n] - 
    S2[a3, a3, SP[a1, a2], a1, a2, n] - S2[a3, a3, SP[a1, a2], a2, a1, n] + 
    S2[a3, SP[a1, a1], a2, a2, a3, n]/2 + S2[a3, SP[a1, a1], a2, a3, a2, n]/
     2 + S2[a3, SP[a1, a1], a3, a2, a2, n] - S2[a3, SP[a1, a2], a1, a2, a3, 
     n] - S2[a3, SP[a1, a2], a1, a3, a2, n] - S2[a3, SP[a1, a2], a2, a1, a3, 
     n] - S2[a3, SP[a1, a2], a2, a3, a1, n]/2 - 
    S2[a3, SP[a1, a2], a3, a1, a2, n]/2 - S2[a3, SP[a1, a2], a3, a2, a1, n]/
     2 + 2*S2[a3, SP[a1, a3], a1, a2, a2, n] + S2[a3, SP[a1, a3], a2, a1, a2, 
     n] - S2[a3, SP[a1, a3], a2, a2, a1, n] + 
    S2[a3, SP[a2, a2], a1, a1, a3, n]/2 - 
    2*S2[a3, SP[a2, a3], a1, a1, a2, n] - 
    2*S2[SP[a1, a1], a2, a2, a3, a3, n] - S2[SP[a1, a1], a2, a3, a2, a3, n] - 
    S2[SP[a1, a1], a3, a2, a2, a3, n]/2 + S2[SP[a1, a1], a3, a2, a3, a2, n]/
     2 + S2[SP[a1, a1], a3, a3, a2, a2, n] + S2[SP[a1, a2], a1, a2, a3, a3, 
     n] + S2[SP[a1, a2], a1, a3, a2, a3, n] + S2[SP[a1, a2], a1, a3, a3, a2, 
     n] + S2[SP[a1, a2], a2, a1, a3, a3, n] + 
    S2[SP[a1, a2], a2, a3, a1, a3, n]/2 + S2[SP[a1, a2], a3, a1, a2, a3, n]/
     2 + S2[SP[a1, a2], a3, a1, a3, a2, n]/2 + 
    S2[SP[a1, a2], a3, a2, a1, a3, n]/2 + 
    (5*S2[SP[a1, a3], a1, a2, a2, a3, n])/2 + 
    (3*S2[SP[a1, a3], a1, a2, a3, a2, n])/2 + S2[SP[a1, a3], a1, a3, a2, a2, 
     n] + (3*S2[SP[a1, a3], a2, a1, a2, a3, n])/2 + 
    (3*S2[SP[a1, a3], a2, a1, a3, a2, n])/2 + 
    S2[SP[a1, a3], a2, a2, a1, a3, n]/2 - S2[SP[a1, a3], a2, a2, a3, a1, n]/
     2 + S2[SP[a1, a3], a2, a3, a1, a2, n]/2 - 
    S2[SP[a1, a3], a2, a3, a2, a1, n]/2 - S2[SP[a1, a3], a3, a2, a2, a1, n] - 
    S2[SP[a2, a2], a1, a1, a3, a3, n] - S2[SP[a2, a2], a1, a3, a1, a3, n]/2 - 
    S2[SP[a2, a2], a3, a1, a1, a3, n]/2 - 
    (3*S2[SP[a2, a3], a1, a1, a2, a3, n])/2 - 
    (3*S2[SP[a2, a3], a1, a1, a3, a2, n])/2 - 
    S2[SP[a2, a3], a1, a2, a1, a3, n]/2 - S2[SP[a2, a3], a1, a3, a1, a2, n] + 
    S2[SP[a2, a3], a2, a1, a1, a3, n]/2 - S2[SP[a2, a3], a3, a1, a1, a2, n] + 
    S2[SP[a3, a3], a1, a1, a2, a2, n] + S2[a3, a2, a2, a1, a3, a1, n] + 
    S2[a3, a2, a2, a3, a1, a1, n] + S2[a3, a2, a3, a2, a1, a1, n] + 
    2*S2[a3, a3, a2, a2, a1, a1, n] /; 
   MyMemberQ[{{a1, a2, a3}}, {a1, a1, a2, a2, a3, a3}] && a1 != a2 != a3, 
 S2[a3_, a1_, a1_, a2_, a3_, a2_, n_] :> 
  -(S2[a1, a2, a3, n]^2/2) - 2*S2[a1, a1, a3, n]*S2[a2, a2, a3, n] - 
    S2[SP[a1, a1], SP[a2, a2], SP[a3, a3], n]/2 - 
    2*S2[SP[a1, a2], SP[a1, a2], SP[a3, a3], n] - 
    S2[a2, a3, n]*S2[a1, a1, a2, a3, n] - S2[a2, a3, n]*
     S2[a1, a1, a3, a2, n] + 2*S2[a1, a1, SP[a2, a2], SP[a3, a3], n] + 
    S2[a1, a1, SP[a2, a3], SP[a2, a3], n] - S2[a2, a3, n]*
     S2[a1, a2, a1, a3, n] - S2[a1, a3, n]*S2[a1, a2, a3, a2, n] + 
    3*S2[a1, a2, SP[a1, a2], SP[a3, a3], n] + S2[a1, a2, SP[a1, a3], 
     SP[a2, a3], n] + 4*S2[a1, SP[a1, a2], a2, SP[a3, a3], n] + 
    2*S2[a1, SP[a1, a2], a3, SP[a2, a3], n] + 
    4*S2[a1, SP[a1, a2], SP[a2, a3], a3, n] + 
    2*S2[a1, SP[a1, a2], SP[a3, a3], a2, n] + S2[a1, SP[a2, a2], a1, 
     SP[a3, a3], n] + S2[a1, SP[a2, a2], SP[a1, a3], a3, n] + 
    2*S2[a2, a1, SP[a1, a2], SP[a3, a3], n] + 
    2*S2[a2, SP[a1, a2], a1, SP[a3, a3], n] + 
    2*S2[a2, SP[a1, a2], SP[a1, a3], a3, n] + S2[SP[a1, a1], a2, a2, 
     SP[a3, a3], n] + S2[SP[a1, a1], a2, a3, SP[a2, a3], n] + 
    S2[SP[a1, a1], a2, SP[a2, a3], a3, n] + S2[SP[a1, a1], a2, SP[a3, a3], 
     a2, n] + S2[SP[a1, a1], SP[a2, a2], a3, a3, n] + 
    S2[SP[a1, a1], SP[a2, a3], a3, a2, n] + 
    3*S2[SP[a1, a2], a1, a2, SP[a3, a3], n] + S2[SP[a1, a2], a1, a3, 
     SP[a2, a3], n] + 3*S2[SP[a1, a2], a1, SP[a2, a3], a3, n] + 
    S2[SP[a1, a2], a1, SP[a3, a3], a2, n] + 
    3*S2[SP[a1, a2], a2, a1, SP[a3, a3], n] + 
    3*S2[SP[a1, a2], a2, SP[a1, a3], a3, n] + 
    4*S2[SP[a1, a2], SP[a1, a2], a3, a3, n] + S2[SP[a1, a2], SP[a1, a3], a2, 
     a3, n] + S2[SP[a1, a2], SP[a1, a3], a3, a2, n] + 
    S2[SP[a1, a2], SP[a2, a3], a1, a3, n] + 
    2*S2[a3, n]*S2[a1, a1, a2, a2, a3, n] - 
    4*S2[a1, a1, a2, a2, SP[a3, a3], n] + 
    S2[a3, n]*S2[a1, a1, a2, a3, a2, n] + 
    4*S2[a2, n]*S2[a1, a1, a2, a3, a3, n] + 
    2*S2[a1, a1, a2, a3, SP[a2, a3], n] - 
    2*S2[a1, a1, a2, SP[a3, a3], a2, n] + 
    2*S2[a2, n]*S2[a1, a1, a3, a2, a3, n] + S2[a1, a1, a3, a2, SP[a2, a3], 
     n] + S2[a1, a1, a3, SP[a2, a2], a3, n] + S2[a1, a1, SP[a2, a3], a2, a3, 
     n] - 2*S2[a1, a1, SP[a2, a3], a3, a2, n] + 
    S2[a3, n]*S2[a1, a2, a1, a2, a3, n] - 
    4*S2[a1, a2, a1, a2, SP[a3, a3], n] + 
    4*S2[a2, n]*S2[a1, a2, a1, a3, a3, n] + 
    2*S2[a1, a2, a1, a3, SP[a2, a3], n] - 
    2*S2[a1, a2, a1, SP[a3, a3], a2, n] - 
    4*S2[a1, a2, a2, a1, SP[a3, a3], n] - 
    4*S2[a1, a2, a2, SP[a1, a3], a3, n] + 
    2*S2[a2, n]*S2[a1, a2, a3, a1, a3, n] + S2[a1, a2, a3, a1, SP[a2, a3], 
     n] + S2[a1, a2, a3, SP[a1, a2], a3, n] - 
    2*S2[a1, a2, SP[a1, a2], a3, a3, n] - 
    2*S2[a1, a2, SP[a1, a3], a2, a3, n] - 
    2*S2[a1, a2, SP[a1, a3], a3, a2, n] + S2[a1, a2, SP[a2, a3], a1, a3, n] - 
    S2[a1, n]*S2[a1, a3, a2, a2, a3, n] - S2[a1, a3, a2, a2, SP[a1, a3], n] - 
    S2[a1, a3, a2, SP[a1, a2], a3, n] - S2[a1, a3, SP[a1, a2], a2, a3, n] - 
    4*S2[a1, SP[a1, a2], a2, a3, a3, n] - 
    4*S2[a1, SP[a1, a2], a3, a2, a3, n] - 
    4*S2[a1, SP[a1, a2], a3, a3, a2, n] + S2[a1, SP[a1, a3], a2, a2, a3, n] + 
    2*S2[a1, SP[a2, a2], a1, a3, a3, n] + S2[a1, SP[a2, a2], a3, a1, a3, n] + 
    S2[a1, SP[a2, a3], a1, a2, a3, n] - 3*S2[a2, a1, a1, a2, SP[a3, a3], n] + 
    2*S2[a2, n]*S2[a2, a1, a1, a3, a3, n] + S2[a2, a1, a1, a3, SP[a2, a3], 
     n] - S2[a2, a1, a1, SP[a2, a3], a3, n] - S2[a2, a1, a1, SP[a3, a3], a2, 
     n] - 3*S2[a2, a1, a2, a1, SP[a3, a3], n] - 
    3*S2[a2, a1, a2, SP[a1, a3], a3, n] + 
    S2[a2, n]*S2[a2, a1, a3, a1, a3, n] + S2[a2, a1, a3, a1, SP[a2, a3], n] + 
    S2[a2, a1, a3, SP[a1, a2], a3, n] - 2*S2[a2, a1, SP[a1, a2], a3, a3, n] - 
    S2[a2, a1, SP[a1, a3], a2, a3, n] - S2[a2, a1, SP[a1, a3], a3, a2, n] - 
    2*S2[a2, a2, a1, a1, SP[a3, a3], n] - 
    2*S2[a2, a2, a1, SP[a1, a3], a3, n] - 
    2*S2[a2, a2, SP[a1, a3], a1, a3, n] - 
    S2[a3, n]*S2[a2, a3, a1, a1, a2, n] + 
    S2[a2, n]*S2[a2, a3, a1, a1, a3, n] + S2[a2, a3, a1, SP[a1, a2], a3, n] - 
    S2[a2, a3, a1, SP[a1, a3], a2, n] + S2[a2, a3, SP[a1, a2], a1, a3, n] - 
    S2[a2, a3, SP[a1, a3], a1, a2, n] - 2*S2[a2, SP[a1, a2], a1, a3, a3, n] - 
    S2[a2, SP[a1, a2], a3, a1, a3, n] - S2[a2, SP[a1, a3], a1, a2, a3, n] - 
    S2[a2, SP[a1, a3], a1, a3, a2, n] - S2[a2, SP[a1, a3], a2, a1, a3, n] + 
    S2[a2, SP[a2, a3], a1, a1, a3, n] - S2[a2, SP[a3, a3], a1, a1, a2, n] - 
    2*S2[a3, n]*S2[a3, a1, a1, a2, a2, n] + 
    S2[a2, n]*S2[a3, a1, a1, a2, a3, n] - S2[a3, a1, a1, a2, SP[a2, a3], n] + 
    S2[a2, n]*S2[a3, a1, a1, a3, a2, n] + S2[a3, a1, a1, a3, SP[a2, a2], n] + 
    S2[a3, a1, a1, SP[a2, a2], a3, n] - S2[a3, a1, a1, SP[a2, a3], a2, n] - 
    S2[a3, n]*S2[a3, a1, a2, a1, a2, n] - S2[a3, a1, a2, a1, SP[a2, a3], n] - 
    S2[a1, n]*S2[a3, a1, a2, a2, a3, n] - S2[a3, a1, a2, a2, SP[a1, a3], n] - 
    S2[a3, a1, a2, SP[a1, a2], a3, n] - S2[a3, a1, a2, SP[a1, a3], a2, n] + 
    S2[a2, n]*S2[a3, a1, a3, a1, a2, n] + S2[a3, a1, a3, a1, SP[a2, a2], n] + 
    S2[a3, a1, a3, SP[a1, a2], a2, n] + S2[a3, a1, SP[a1, a2], a3, a2, n] - 
    2*S2[a3, a1, SP[a1, a3], a2, a2, n] - 
    S2[a2, n]*S2[a3, a2, a1, a1, a3, n] - S2[a3, a2, a1, a1, SP[a2, a3], n] - 
    S2[a3, a2, a1, SP[a1, a2], a3, n] + S2[a1, n]*S2[a3, a2, a2, a1, a3, n] + 
    S2[a3, a2, a2, a1, SP[a1, a3], n] + S2[a1, n]*S2[a3, a2, a2, a3, a1, n] + 
    S2[a3, a2, a2, a3, SP[a1, a1], n] + S2[a3, a2, a2, SP[a1, a1], a3, n] + 
    S2[a3, a2, a2, SP[a1, a3], a1, n] + S2[a3, a2, SP[a1, a2], a3, a1, n] + 
    2*S2[a2, n]*S2[a3, a3, a1, a1, a2, n] + 
    2*S2[a3, a3, a1, a1, SP[a2, a2], n] + 
    2*S2[a3, a3, a1, SP[a1, a2], a2, n] + 
    2*S2[a3, a3, SP[a1, a2], a1, a2, n] - S2[a3, SP[a1, a1], a2, a2, a3, n] + 
    S2[a3, SP[a1, a2], a1, a2, a3, n] + S2[a3, SP[a1, a2], a1, a3, a2, n] + 
    S2[a3, SP[a1, a2], a2, a1, a3, n] + S2[a3, SP[a1, a2], a2, a3, a1, n] + 
    S2[a3, SP[a1, a2], a3, a1, a2, n] - 2*S2[a3, SP[a1, a3], a1, a2, a2, n] - 
    S2[a3, SP[a1, a3], a2, a1, a2, n] - S2[a3, SP[a2, a2], a1, a1, a3, n] + 
    2*S2[a3, SP[a2, a3], a1, a1, a2, n] - 
    2*S2[SP[a1, a1], a2, a2, a3, a3, n] - 
    2*S2[SP[a1, a1], a2, a3, a2, a3, n] - 
    2*S2[SP[a1, a1], a2, a3, a3, a2, n] - S2[SP[a1, a1], a3, a2, a2, a3, n] - 
    S2[SP[a1, a1], a3, a2, a3, a2, n] - 2*S2[SP[a1, a2], a1, a2, a3, a3, n] - 
    2*S2[SP[a1, a2], a1, a3, a2, a3, n] - 
    2*S2[SP[a1, a2], a1, a3, a3, a2, n] - 
    2*S2[SP[a1, a2], a2, a1, a3, a3, n] - S2[SP[a1, a2], a2, a3, a1, a3, n] - 
    S2[SP[a1, a2], a3, a1, a2, a3, n] - S2[SP[a1, a2], a3, a1, a3, a2, n] - 
    S2[SP[a1, a2], a3, a2, a1, a3, n] + S2[SP[a1, a3], a1, a2, a2, a3, n] + 
    S2[SP[a1, a3], a1, a2, a3, a2, n] + S2[SP[a1, a3], a2, a1, a2, a3, n] + 
    S2[SP[a1, a3], a2, a2, a1, a3, n] + S2[SP[a1, a3], a2, a2, a3, a1, n] + 
    2*S2[SP[a2, a2], a1, a1, a3, a3, n] + S2[SP[a2, a2], a1, a3, a1, a3, n] + 
    S2[SP[a2, a2], a3, a1, a1, a3, n] + S2[SP[a2, a3], a1, a1, a2, a3, n] + 
    S2[SP[a2, a3], a1, a1, a3, a2, n] + S2[SP[a2, a3], a1, a3, a1, a2, n] - 
    S2[SP[a2, a3], a2, a1, a1, a3, n] + S2[SP[a2, a3], a3, a1, a1, a2, n] - 
    2*S2[SP[a3, a3], a1, a1, a2, a2, n] - S2[SP[a3, a3], a1, a2, a1, a2, n] - 
    S2[a3, a2, a1, a2, a3, a1, n] - S2[a3, a2, a1, a3, a1, a2, n] - 
    2*S2[a3, a2, a2, a1, a3, a1, n] - 2*S2[a3, a2, a2, a3, a1, a1, n] - 
    S2[a3, a2, a3, a1, a1, a2, n] - 2*S2[a3, a3, a2, a1, a1, a2, n] /; 
   MyMemberQ[{{a1, a2, a3}}, {a1, a1, a2, a2, a3, a3}] && a1 != a2 != a3, 
 S2[a3_, a1_, a1_, a3_, a2_, a2_, n_] :> 
  S2[a1, a2, a3, n]^2/2 + S2[a1, a1, a3, n]*S2[a2, a2, a3, n] + 
    S2[SP[a1, a1], SP[a2, a2], SP[a3, a3], n]/2 + S2[SP[a1, a2], SP[a1, a2], 
     SP[a3, a3], n] - S2[a1, a1, SP[a2, a2], SP[a3, a3], n] + 
    S2[a1, a3, n]*S2[a1, a2, a2, a3, n] + S2[a1, a3, n]*
     S2[a1, a2, a3, a2, n] - 2*S2[a1, a2, SP[a1, a2], SP[a3, a3], n] - 
    S2[a1, a2, SP[a1, a3], SP[a2, a3], n] - 
    3*S2[a1, SP[a1, a2], a2, SP[a3, a3], n] - S2[a1, SP[a1, a2], a3, 
     SP[a2, a3], n] - 3*S2[a1, SP[a1, a2], SP[a2, a3], a3, n] - 
    S2[a1, SP[a1, a2], SP[a3, a3], a2, n] - S2[a2, a1, SP[a1, a2], 
     SP[a3, a3], n] - S2[a2, SP[a1, a2], a1, SP[a3, a3], n] - 
    S2[a2, SP[a1, a2], SP[a1, a3], a3, n] - 
    2*S2[SP[a1, a1], a2, a2, SP[a3, a3], n] - S2[SP[a1, a1], a2, a3, 
     SP[a2, a3], n] - 2*S2[SP[a1, a1], a2, SP[a2, a3], a3, n] - 
    S2[SP[a1, a1], a2, SP[a3, a3], a2, n] - S2[SP[a1, a1], SP[a2, a2], a3, 
     a3, n] - S2[SP[a1, a1], SP[a2, a3], a2, a3, n] - 
    S2[SP[a1, a1], SP[a2, a3], a3, a2, n] - S2[SP[a1, a2], a1, a2, 
     SP[a3, a3], n] - S2[SP[a1, a2], a1, SP[a2, a3], a3, n] - 
    S2[SP[a1, a2], a2, a1, SP[a3, a3], n] - S2[SP[a1, a2], a2, SP[a1, a3], 
     a3, n] - 2*S2[SP[a1, a2], SP[a1, a2], a3, a3, n] - 
    4*S2[a3, n]*S2[a1, a1, a2, a2, a3, n] + S2[a1, a1, a2, a2, SP[a3, a3], 
     n] - 2*S2[a3, n]*S2[a1, a1, a2, a3, a2, n] - 
    S2[a2, n]*S2[a1, a1, a2, a3, a3, n] - S2[a1, a1, a2, a3, SP[a2, a3], n] + 
    S2[a2, n]*S2[a1, a1, a3, a3, a2, n] + S2[a1, a1, a3, a3, SP[a2, a2], n] + 
    S2[a1, a1, a3, SP[a2, a3], a2, n] + S2[a1, a1, SP[a2, a2], a3, a3, n] - 
    S2[a1, a1, SP[a2, a3], a2, a3, n] + S2[a1, a1, SP[a2, a3], a3, a2, n] - 
    2*S2[a3, n]*S2[a1, a2, a1, a2, a3, n] + S2[a1, a2, a1, a2, SP[a3, a3], 
     n] - S2[a3, n]*S2[a1, a2, a1, a3, a2, n] - 
    S2[a2, n]*S2[a1, a2, a1, a3, a3, n] - S2[a1, a2, a1, a3, SP[a2, a3], n] - 
    S2[a3, n]*S2[a1, a2, a2, a1, a3, n] + S2[a1, a2, a2, a1, SP[a3, a3], n] + 
    S2[a1, a2, a2, SP[a1, a3], a3, n] - (S2[a2, n]*S2[a1, a2, a3, a1, a3, n])/
     2 + S2[a1, a2, a3, a1, SP[a2, a3], n]/2 + 
    S2[a1, a2, a3, SP[a1, a2], a3, n]/2 + 
    3*S2[a1, a2, SP[a1, a2], a3, a3, n] - 
    (3*S2[a1, a2, SP[a2, a3], a1, a3, n])/2 + 
    S2[a3, n]*S2[a1, a3, a1, a2, a2, n] + 
    (S2[a2, n]*S2[a1, a3, a1, a2, a3, n])/2 + 
    (3*S2[a1, a3, a1, a2, SP[a2, a3], n])/2 + 
    (S2[a2, n]*S2[a1, a3, a1, a3, a2, n])/2 + 
    S2[a1, a3, a1, a3, SP[a2, a2], n]/2 + S2[a1, a3, a1, SP[a2, a2], a3, n]/
     2 + (3*S2[a1, a3, a1, SP[a2, a3], a2, n])/2 + 
    S2[a3, n]*S2[a1, a3, a2, a1, a2, n] + 
    (S2[a2, n]*S2[a1, a3, a2, a1, a3, n])/2 + 
    (3*S2[a1, a3, a2, a1, SP[a2, a3], n])/2 + 
    (S2[a1, n]*S2[a1, a3, a2, a2, a3, n])/2 + 
    S2[a1, a3, a2, a2, SP[a1, a3], n]/2 - 
    (S2[a1, n]*S2[a1, a3, a2, a3, a2, n])/2 - 
    S2[a1, a3, a2, a3, SP[a1, a2], n]/2 + S2[a1, a3, a2, SP[a1, a2], a3, n] + 
    S2[a1, a3, a2, SP[a1, a3], a2, n]/2 - 
    S2[a1, n]*S2[a1, a3, a3, a2, a2, n] - S2[a1, a3, a3, a2, SP[a1, a2], n] - 
    S2[a1, a3, a3, SP[a1, a2], a2, n] + S2[a1, a3, SP[a1, a2], a2, a3, n] + 
    S2[a1, a3, SP[a2, a2], a1, a3, n]/2 + S2[a1, a3, SP[a2, a3], a1, a2, n] + 
    5*S2[a1, SP[a1, a2], a2, a3, a3, n] + 
    4*S2[a1, SP[a1, a2], a3, a2, a3, n] + 
    3*S2[a1, SP[a1, a2], a3, a3, a2, n] - 
    (5*S2[a1, SP[a1, a3], a2, a2, a3, n])/2 - 
    (3*S2[a1, SP[a1, a3], a2, a3, a2, n])/2 - S2[a1, SP[a1, a3], a3, a2, a2, 
     n] - S2[a1, SP[a2, a2], a1, a3, a3, n] - 
    S2[a1, SP[a2, a2], a3, a1, a3, n]/2 - 
    (3*S2[a1, SP[a2, a3], a1, a2, a3, n])/2 - 
    S2[a1, SP[a2, a3], a1, a3, a2, n]/2 - S2[a1, SP[a2, a3], a2, a1, a3, n]/
     2 + S2[a1, SP[a3, a3], a1, a2, a2, n] + S2[a1, SP[a3, a3], a2, a1, a2, 
     n] + S2[a2, a1, a1, a2, SP[a3, a3], n] - 
    S2[a2, n]*S2[a2, a1, a1, a3, a3, n] - S2[a2, a1, a1, a3, SP[a2, a3], n] + 
    S2[a2, a1, a2, a1, SP[a3, a3], n] + S2[a2, a1, a2, SP[a1, a3], a3, n] - 
    (S2[a2, n]*S2[a2, a1, a3, a1, a3, n])/2 - 
    S2[a2, a1, a3, a1, SP[a2, a3], n]/2 - S2[a2, a1, a3, SP[a1, a2], a3, n]/
     2 + S2[a2, a1, SP[a1, a2], a3, a3, n] - 
    S2[a2, a1, SP[a2, a3], a1, a3, n]/2 + S2[a2, a2, a1, a1, SP[a3, a3], n] + 
    S2[a2, a2, a1, SP[a1, a3], a3, n] + S2[a2, a2, SP[a1, a3], a1, a3, n] - 
    (S2[a2, n]*S2[a2, a3, a1, a1, a3, n])/2 - 
    S2[a2, a3, a1, a1, SP[a2, a3], n]/2 - S2[a2, a3, a1, SP[a1, a2], a3, n]/
     2 - S2[a2, a3, SP[a1, a2], a1, a3, n]/2 + S2[a2, SP[a1, a2], a1, a3, a3, 
     n] + S2[a2, SP[a1, a2], a3, a1, a3, n]/2 - 
    S2[a2, SP[a2, a3], a1, a1, a3, n]/2 + 
    2*S2[a3, n]*S2[a3, a1, a1, a2, a2, n] + 
    (S2[a2, n]*S2[a3, a1, a1, a2, a3, n])/2 + 
    (5*S2[a3, a1, a1, a2, SP[a2, a3], n])/2 + 
    (S2[a2, n]*S2[a3, a1, a1, a3, a2, n])/2 + 
    S2[a3, a1, a1, a3, SP[a2, a2], n]/2 + S2[a3, a1, a1, SP[a2, a2], a3, n]/
     2 + (5*S2[a3, a1, a1, SP[a2, a3], a2, n])/2 + 
    S2[a3, n]*S2[a3, a1, a2, a1, a2, n] + 
    (S2[a2, n]*S2[a3, a1, a2, a1, a3, n])/2 + 
    (3*S2[a3, a1, a2, a1, SP[a2, a3], n])/2 + 
    (S2[a1, n]*S2[a3, a1, a2, a2, a3, n])/2 + 
    S2[a3, a1, a2, a2, SP[a1, a3], n]/2 - 
    (S2[a1, n]*S2[a3, a1, a2, a3, a2, n])/2 - 
    S2[a3, a1, a2, a3, SP[a1, a2], n]/2 + S2[a3, a1, a2, SP[a1, a2], a3, n] + 
    S2[a3, a1, a2, SP[a1, a3], a2, n]/2 - 
    S2[a1, n]*S2[a3, a1, a3, a2, a2, n] - S2[a3, a1, a3, a2, SP[a1, a2], n] - 
    S2[a3, a1, a3, SP[a1, a2], a2, n] + S2[a3, a1, SP[a1, a2], a2, a3, n] + 
    S2[a3, a1, SP[a1, a3], a2, a2, n] + S2[a3, a1, SP[a2, a2], a1, a3, n]/2 + 
    S2[a3, a1, SP[a2, a3], a1, a2, n] + (S2[a2, n]*S2[a3, a2, a1, a1, a3, n])/
     2 + S2[a3, a2, a1, a1, SP[a2, a3], n]/2 - 
    (S2[a1, n]*S2[a3, a2, a1, a2, a3, n])/2 - 
    S2[a3, a2, a1, a2, SP[a1, a3], n]/2 - 
    (S2[a1, n]*S2[a3, a2, a1, a3, a2, n])/2 - 
    S2[a3, a2, a1, a3, SP[a1, a2], n]/2 - S2[a3, a2, a1, SP[a1, a3], a2, n]/
     2 - (S2[a1, n]*S2[a3, a2, a2, a1, a3, n])/2 - 
    S2[a3, a2, a2, a1, SP[a1, a3], n]/2 - 
    (S2[a1, n]*S2[a3, a2, a2, a3, a1, n])/2 - 
    S2[a3, a2, a2, a3, SP[a1, a1], n]/2 - S2[a3, a2, a2, SP[a1, a1], a3, n]/
     2 - S2[a3, a2, a2, SP[a1, a3], a1, n]/2 - 
    (S2[a1, n]*S2[a3, a2, a3, a1, a2, n])/2 - 
    S2[a3, a2, a3, a1, SP[a1, a2], n]/2 + 
    (S2[a1, n]*S2[a3, a2, a3, a2, a1, n])/2 + 
    S2[a3, a2, a3, a2, SP[a1, a1], n]/2 - S2[a3, a2, a3, SP[a1, a1], a2, n]/
     2 + S2[a3, a2, a3, SP[a1, a2], a1, n]/2 - 
    S2[a3, a2, SP[a1, a1], a2, a3, n]/2 - S2[a3, a2, SP[a1, a1], a3, a2, n]/
     2 - S2[a3, a2, SP[a1, a2], a3, a1, n]/2 - 
    S2[a3, a2, SP[a1, a3], a1, a2, n]/2 + S2[a3, a2, SP[a1, a3], a2, a1, n]/
     2 - S2[a1, n]*S2[a3, a3, a1, a2, a2, n] - S2[a3, a3, a1, a2, SP[a1, a2], 
     n] - S2[a3, a3, a1, SP[a1, a2], a2, n] - 
    S2[a1, n]*S2[a3, a3, a2, a1, a2, n] - S2[a3, a3, a2, a1, SP[a1, a2], n] + 
    S2[a1, n]*S2[a3, a3, a2, a2, a1, n] + S2[a3, a3, a2, a2, SP[a1, a1], n] - 
    S2[a3, a3, a2, SP[a1, a1], a2, n] + S2[a3, a3, a2, SP[a1, a2], a1, n] - 
    S2[a3, a3, SP[a1, a1], a2, a2, n] - S2[a3, a3, SP[a1, a2], a1, a2, n] + 
    S2[a3, a3, SP[a1, a2], a2, a1, n] + S2[a3, SP[a1, a1], a2, a2, a3, n]/2 - 
    S2[a3, SP[a1, a1], a2, a3, a2, n]/2 - S2[a3, SP[a1, a1], a3, a2, a2, n] - 
    S2[a3, SP[a1, a2], a2, a3, a1, n]/2 - S2[a3, SP[a1, a2], a3, a1, a2, n]/
     2 + S2[a3, SP[a1, a2], a3, a2, a1, n]/2 + S2[a3, SP[a1, a3], a1, a2, a2, 
     n] + S2[a3, SP[a1, a3], a2, a2, a1, n] + 
    S2[a3, SP[a2, a2], a1, a1, a3, n]/2 + 
    4*S2[SP[a1, a1], a2, a2, a3, a3, n] + 
    3*S2[SP[a1, a1], a2, a3, a2, a3, n] + 
    2*S2[SP[a1, a1], a2, a3, a3, a2, n] + 
    (3*S2[SP[a1, a1], a3, a2, a2, a3, n])/2 + 
    S2[SP[a1, a1], a3, a2, a3, a2, n]/2 - S2[SP[a1, a1], a3, a3, a2, a2, n] + 
    S2[SP[a1, a2], a1, a2, a3, a3, n] + S2[SP[a1, a2], a1, a3, a2, a3, n] + 
    S2[SP[a1, a2], a1, a3, a3, a2, n] + S2[SP[a1, a2], a2, a1, a3, a3, n] + 
    S2[SP[a1, a2], a2, a3, a1, a3, n]/2 + S2[SP[a1, a2], a3, a1, a2, a3, n]/
     2 + S2[SP[a1, a2], a3, a1, a3, a2, n]/2 + 
    S2[SP[a1, a2], a3, a2, a1, a3, n]/2 - 
    (7*S2[SP[a1, a3], a1, a2, a2, a3, n])/2 - 
    (5*S2[SP[a1, a3], a1, a2, a3, a2, n])/2 - S2[SP[a1, a3], a1, a3, a2, a2, 
     n] - (5*S2[SP[a1, a3], a2, a1, a2, a3, n])/2 - 
    (3*S2[SP[a1, a3], a2, a1, a3, a2, n])/2 - 
    (3*S2[SP[a1, a3], a2, a2, a1, a3, n])/2 - 
    S2[SP[a1, a3], a2, a2, a3, a1, n]/2 - S2[SP[a1, a3], a2, a3, a1, a2, n]/
     2 + S2[SP[a1, a3], a2, a3, a2, a1, n]/2 + S2[SP[a1, a3], a3, a2, a2, a1, 
     n] - S2[SP[a2, a2], a1, a1, a3, a3, n] - 
    S2[SP[a2, a2], a1, a3, a1, a3, n]/2 - S2[SP[a2, a2], a3, a1, a1, a3, n]/
     2 + S2[SP[a2, a3], a1, a1, a2, a3, n]/2 + 
    S2[SP[a2, a3], a1, a1, a3, a2, n]/2 + S2[SP[a2, a3], a1, a2, a1, a3, n]/
     2 + S2[SP[a2, a3], a2, a1, a1, a3, n]/2 + 
    2*S2[SP[a3, a3], a1, a1, a2, a2, n] + S2[SP[a3, a3], a1, a2, a1, a2, n] - 
    S2[a3, a1, a3, a1, a2, a2, n] + S2[a3, a2, a1, a2, a3, a1, n] + 
    S2[a3, a2, a1, a3, a1, a2, n] + S2[a3, a2, a2, a1, a3, a1, n] + 
    S2[a3, a2, a2, a3, a1, a1, n] + S2[a3, a2, a3, a1, a1, a2, n] - 
    S2[a3, a2, a3, a2, a1, a1, n] - 2*S2[a3, a3, a1, a1, a2, a2, n] + 
    2*S2[a3, a3, a2, a1, a1, a2, n] - 2*S2[a3, a3, a2, a2, a1, a1, n] /; 
   MyMemberQ[{{a1, a2, a3}}, {a1, a1, a2, a2, a3, a3}] && a1 != a2 != a3, 
 S2[a3_, a1_, a2_, a1_, a2_, a3_, n_] :> 
  -(S2[a1, a2, a3, n]^2/2) - S2[a1, a2, a3, n]*S2[a1, a3, a2, n] - 
    S2[SP[a1, a1], SP[a2, a2], SP[a3, a3], n]/2 - S2[SP[a1, a1], SP[a2, a3], 
     SP[a2, a3], n] + S2[a1, a1, SP[a2, a2], SP[a3, a3], n] + 
    2*S2[a1, a1, SP[a2, a3], SP[a2, a3], n] - 
    S2[a2, a3, n]*S2[a1, a2, a1, a3, n] + 2*S2[a1, a3, n]*
     S2[a1, a2, a2, a3, n] + S2[a1, a3, n]*S2[a1, a2, a3, a2, n] - 
    S2[a1, a2, SP[a1, a2], SP[a3, a3], n] - S2[a1, a2, SP[a1, a3], 
     SP[a2, a3], n] - S2[a1, SP[a1, a2], a2, SP[a3, a3], n] - 
    S2[a1, SP[a1, a2], SP[a2, a3], a3, n] + S2[a1, SP[a1, a3], a2, 
     SP[a2, a3], n] + S2[a1, SP[a1, a3], SP[a2, a2], a3, n] + 
    S2[a1, SP[a2, a2], a1, SP[a3, a3], n] + S2[a1, SP[a2, a2], SP[a1, a3], 
     a3, n] - S2[SP[a1, a1], a2, a2, SP[a3, a3], n] - 
    S2[SP[a1, a1], a2, SP[a2, a3], a3, n] + S2[SP[a1, a1], a3, a2, 
     SP[a2, a3], n] + S2[SP[a1, a1], a3, SP[a2, a2], a3, n] + 
    S2[SP[a1, a1], SP[a2, a2], a3, a3, n] - S2[SP[a1, a1], SP[a2, a3], a2, 
     a3, n] + S2[SP[a1, a2], a2, a1, SP[a3, a3], n] + 
    S2[SP[a1, a2], a2, SP[a1, a3], a3, n] + S2[SP[a1, a2], SP[a2, a3], a1, 
     a3, n] - 2*S2[a3, n]*S2[a1, a1, a2, a2, a3, n] + 
    2*S2[a3, n]*S2[a1, a1, a3, a2, a2, n] - 
    2*S2[a1, a1, a3, SP[a2, a2], a3, n] + 
    2*S2[a1, a1, a3, SP[a2, a3], a2, n] - 
    2*S2[a1, a1, SP[a2, a2], a3, a3, n] + 
    2*S2[a1, a1, SP[a3, a3], a2, a2, n] - 
    S2[a3, n]*S2[a1, a2, a1, a2, a3, n] - S2[a1, a2, a1, a2, SP[a3, a3], n] - 
    S2[a3, n]*S2[a1, a2, a1, a3, a2, n] + 
    2*S2[a2, n]*S2[a1, a2, a1, a3, a3, n] + S2[a1, a2, a1, a3, SP[a2, a3], 
     n] + S2[a1, a2, a1, SP[a2, a3], a3, n] - S2[a1, a2, a1, SP[a3, a3], a2, 
     n] - 2*S2[a3, n]*S2[a1, a2, a2, a1, a3, n] - 
    2*S2[a1, a2, a2, a1, SP[a3, a3], n] - 
    2*S2[a1, a2, a2, SP[a1, a3], a3, n] + 
    S2[a2, n]*S2[a1, a2, a3, a1, a3, n] + 
    2*S2[a1, a2, a3, a1, SP[a2, a3], n] + 
    2*S2[a1, a2, a3, SP[a1, a2], a3, n] + 
    4*S2[a1, a2, SP[a1, a2], a3, a3, n] - S2[a1, a2, SP[a1, a3], a2, a3, n] - 
    S2[a1, a2, SP[a1, a3], a3, a2, n] - 2*S2[a1, a2, SP[a2, a3], a1, a3, n] + 
    2*S2[a3, n]*S2[a1, a3, a1, a2, a2, n] + S2[a1, a3, a1, a2, SP[a2, a3], 
     n] - S2[a1, a3, a1, SP[a2, a2], a3, n] + 
    2*S2[a1, a3, a1, SP[a2, a3], a2, n] + 
    2*S2[a3, n]*S2[a1, a3, a2, a1, a2, n] + 
    S2[a2, n]*S2[a1, a3, a2, a1, a3, n] + 
    3*S2[a1, a3, a2, a1, SP[a2, a3], n] - 
    S2[a1, n]*S2[a1, a3, a2, a3, a2, n] - S2[a1, a3, a2, a3, SP[a1, a2], n] + 
    S2[a1, a3, a2, SP[a1, a2], a3, n] + S2[a1, a3, a2, SP[a1, a3], a2, n] - 
    2*S2[a1, n]*S2[a1, a3, a3, a2, a2, n] - 
    2*S2[a1, a3, a3, a2, SP[a1, a2], n] - 
    2*S2[a1, a3, a3, SP[a1, a2], a2, n] - S2[a1, a3, SP[a1, a2], a2, a3, n] - 
    S2[a1, a3, SP[a1, a2], a3, a2, n] + S2[a1, a3, SP[a2, a2], a1, a3, n] + 
    2*S2[a1, a3, SP[a2, a3], a1, a2, n] + 
    2*S2[a1, SP[a1, a2], a2, a3, a3, n] + S2[a1, SP[a1, a2], a3, a2, a3, n] - 
    2*S2[a1, SP[a1, a3], a2, a2, a3, n] - S2[a1, SP[a1, a3], a2, a3, a2, n] - 
    S2[a1, SP[a2, a3], a1, a2, a3, n] - S2[a1, SP[a2, a3], a1, a3, a2, n] - 
    S2[a1, SP[a2, a3], a2, a1, a3, n] + 2*S2[a1, SP[a3, a3], a1, a2, a2, n] + 
    2*S2[a1, SP[a3, a3], a2, a1, a2, n] - S2[a2, a1, a2, a1, SP[a3, a3], n] - 
    S2[a2, a1, a2, SP[a1, a3], a3, n] - S2[a2, a1, SP[a2, a3], a1, a3, n] - 
    2*S2[a3, n]*S2[a2, a3, a1, a1, a2, n] - 
    2*S2[a2, a3, a1, a1, SP[a2, a3], n] - 
    2*S2[a2, a3, a1, SP[a1, a3], a2, n] - 
    2*S2[a2, a3, SP[a1, a3], a1, a2, n] - S2[a2, SP[a1, a3], a2, a1, a3, n] - 
    2*S2[a2, SP[a3, a3], a1, a1, a2, n] - 
    2*S2[a3, n]*S2[a3, a1, a1, a2, a2, n] + 
    2*S2[a2, n]*S2[a3, a1, a1, a2, a3, n] + 
    2*S2[a2, n]*S2[a3, a1, a1, a3, a2, n] + 
    2*S2[a3, a1, a1, a3, SP[a2, a2], n] + 
    2*S2[a3, a1, a1, SP[a2, a2], a3, n] + 
    S2[a2, n]*S2[a3, a1, a2, a1, a3, n] + S2[a3, a1, a2, a1, SP[a2, a3], n] - 
    S2[a1, n]*S2[a3, a1, a2, a3, a2, n] - S2[a3, a1, a2, a3, SP[a1, a2], n] + 
    S2[a3, a1, a2, SP[a1, a2], a3, n] - S2[a3, a1, a2, SP[a1, a3], a2, n] + 
    2*S2[a2, n]*S2[a3, a1, a3, a1, a2, n] + 
    2*S2[a3, a1, a3, a1, SP[a2, a2], n] - 
    2*S2[a1, n]*S2[a3, a1, a3, a2, a2, n] - 
    2*S2[a3, a1, a3, a2, SP[a1, a2], n] + 
    2*S2[a3, a1, SP[a1, a2], a2, a3, n] + S2[a3, a1, SP[a1, a2], a3, a2, n] - 
    4*S2[a3, a1, SP[a1, a3], a2, a2, n] + S2[a3, a1, SP[a2, a2], a1, a3, n] + 
    2*S2[a3, a1, SP[a2, a3], a1, a2, n] - 
    S2[a1, n]*S2[a3, a2, a1, a2, a3, n] - S2[a3, a2, a1, a2, SP[a1, a3], n] - 
    S2[a1, n]*S2[a3, a2, a1, a3, a2, n] - S2[a3, a2, a1, a3, SP[a1, a2], n] - 
    S2[a3, a2, a1, SP[a1, a2], a3, n] - S2[a3, a2, a1, SP[a1, a3], a2, n] - 
    S2[a1, n]*S2[a3, a2, a3, a1, a2, n] - S2[a3, a2, a3, a1, SP[a1, a2], n] + 
    S2[a1, n]*S2[a3, a2, a3, a2, a1, n] + S2[a3, a2, a3, a2, SP[a1, a1], n] - 
    S2[a3, a2, a3, SP[a1, a1], a2, n] + S2[a3, a2, a3, SP[a1, a2], a1, n] - 
    S2[a3, a2, SP[a1, a1], a2, a3, n] - S2[a3, a2, SP[a1, a1], a3, a2, n] - 
    S2[a3, a2, SP[a1, a3], a1, a2, n] + S2[a3, a2, SP[a1, a3], a2, a1, n] + 
    4*S2[a2, n]*S2[a3, a3, a1, a1, a2, n] + 
    4*S2[a3, a3, a1, a1, SP[a2, a2], n] - 
    2*S2[a1, n]*S2[a3, a3, a1, a2, a2, n] - 
    2*S2[a3, a3, a1, a2, SP[a1, a2], n] + 
    2*S2[a3, a3, a1, SP[a1, a2], a2, n] - 
    2*S2[a1, n]*S2[a3, a3, a2, a1, a2, n] - 
    2*S2[a3, a3, a2, a1, SP[a1, a2], n] + 
    2*S2[a1, n]*S2[a3, a3, a2, a2, a1, n] + 
    2*S2[a3, a3, a2, a2, SP[a1, a1], n] - 
    2*S2[a3, a3, a2, SP[a1, a1], a2, n] + 
    2*S2[a3, a3, a2, SP[a1, a2], a1, n] - 
    2*S2[a3, a3, SP[a1, a1], a2, a2, n] + 
    2*S2[a3, a3, SP[a1, a2], a1, a2, n] + 
    2*S2[a3, a3, SP[a1, a2], a2, a1, n] - S2[a3, SP[a1, a1], a2, a3, a2, n] - 
    2*S2[a3, SP[a1, a1], a3, a2, a2, n] + S2[a3, SP[a1, a2], a1, a2, a3, n] + 
    S2[a3, SP[a1, a2], a1, a3, a2, n] + S2[a3, SP[a1, a2], a2, a1, a3, n] + 
    S2[a3, SP[a1, a2], a3, a1, a2, n] + S2[a3, SP[a1, a2], a3, a2, a1, n] - 
    4*S2[a3, SP[a1, a3], a1, a2, a2, n] - 
    2*S2[a3, SP[a1, a3], a2, a1, a2, n] + 
    2*S2[a3, SP[a1, a3], a2, a2, a1, n] + 
    4*S2[a3, SP[a2, a3], a1, a1, a2, n] + 
    2*S2[SP[a1, a1], a2, a2, a3, a3, n] + S2[SP[a1, a1], a2, a3, a2, a3, n] - 
    S2[SP[a1, a1], a3, a2, a3, a2, n] - 2*S2[SP[a1, a1], a3, a3, a2, a2, n] - 
    2*S2[SP[a1, a3], a1, a2, a2, a3, n] - S2[SP[a1, a3], a1, a2, a3, a2, n] - 
    2*S2[SP[a1, a3], a2, a1, a2, a3, n] - 
    2*S2[SP[a1, a3], a2, a1, a3, a2, n] - 
    2*S2[SP[a1, a3], a2, a2, a1, a3, n] - S2[SP[a1, a3], a2, a3, a1, a2, n] + 
    S2[SP[a1, a3], a2, a3, a2, a1, n] + 2*S2[SP[a1, a3], a3, a2, a2, a1, n] + 
    2*S2[SP[a2, a3], a1, a1, a2, a3, n] + 
    2*S2[SP[a2, a3], a1, a1, a3, a2, n] + S2[SP[a2, a3], a1, a2, a1, a3, n] + 
    2*S2[SP[a2, a3], a1, a3, a1, a2, n] + 
    2*S2[SP[a2, a3], a3, a1, a1, a2, n] - 
    2*S2[SP[a3, a3], a1, a1, a2, a2, n] + S2[a3, a2, a1, a2, a3, a1, n] - 
    2*S2[a3, a2, a3, a2, a1, a1, n] - 4*S2[a3, a3, a2, a2, a1, a1, n] /; 
   MyMemberQ[{{a1, a2, a3}}, {a1, a1, a2, a2, a3, a3}] && a1 != a2 != a3, 
 S2[a3_, a1_, a2_, a1_, a3_, a2_, n_] :> 
  -(S2[a1, a3, a2, n]^2/2) - S2[SP[a1, a1], SP[a3, a3], SP[a2, a2], n]/2 + 
    S2[a1, a1, SP[a3, a3], SP[a2, a2], n] + S2[a2, a3, n]*
     S2[a1, a2, a1, a3, n] - 2*S2[a1, a3, n]*S2[a1, a2, a2, a3, n] - 
    S2[a1, a3, n]*S2[a1, a2, a3, a2, n] + S2[a1, a2, SP[a1, a2], SP[a3, a3], 
     n] + S2[a1, a2, SP[a1, a3], SP[a2, a3], n] + 
    2*S2[a1, SP[a1, a2], a2, SP[a3, a3], n] + S2[a1, SP[a1, a2], a3, 
     SP[a2, a3], n] + 2*S2[a1, SP[a1, a2], SP[a2, a3], a3, n] + 
    S2[a1, SP[a1, a2], SP[a3, a3], a2, n] + S2[a1, SP[a1, a3], a3, 
     SP[a2, a2], n] + S2[a1, SP[a1, a3], SP[a2, a3], a2, n] - 
    S2[a1, SP[a2, a2], a1, SP[a3, a3], n] - S2[a1, SP[a2, a2], SP[a1, a3], 
     a3, n] + 2*S2[SP[a1, a1], a2, a2, SP[a3, a3], n] + 
    S2[SP[a1, a1], a2, a3, SP[a2, a3], n] + 
    2*S2[SP[a1, a1], a2, SP[a2, a3], a3, n] + S2[SP[a1, a1], a2, SP[a3, a3], 
     a2, n] + S2[SP[a1, a1], a3, a3, SP[a2, a2], n] + 
    S2[SP[a1, a1], a3, SP[a2, a3], a2, n] + 
    2*S2[SP[a1, a1], SP[a2, a3], a2, a3, n] + S2[SP[a1, a1], SP[a2, a3], a3, 
     a2, n] + S2[SP[a1, a1], SP[a3, a3], a2, a2, n] - 
    S2[SP[a1, a2], a2, a1, SP[a3, a3], n] - S2[SP[a1, a2], a2, SP[a1, a3], 
     a3, n] - S2[SP[a1, a2], SP[a2, a3], a1, a3, n] + 
    4*S2[a3, n]*S2[a1, a1, a2, a2, a3, n] + 
    2*S2[a3, n]*S2[a1, a1, a2, a3, a2, n] - 
    2*S2[a1, a1, a3, a3, SP[a2, a2], n] - 
    2*S2[a1, a1, a3, SP[a2, a3], a2, n] - 
    2*S2[a1, a1, SP[a3, a3], a2, a2, n] + 
    2*S2[a3, n]*S2[a1, a2, a1, a2, a3, n] + S2[a1, a2, a1, a2, SP[a3, a3], 
     n] + 2*S2[a3, n]*S2[a1, a2, a1, a3, a2, n] - 
    2*S2[a2, n]*S2[a1, a2, a1, a3, a3, n] - S2[a1, a2, a1, a3, SP[a2, a3], 
     n] - S2[a1, a2, a1, SP[a2, a3], a3, n] + S2[a1, a2, a1, SP[a3, a3], a2, 
     n] + 2*S2[a3, n]*S2[a1, a2, a2, a1, a3, n] + 
    2*S2[a1, a2, a2, a1, SP[a3, a3], n] + 
    2*S2[a1, a2, a2, SP[a1, a3], a3, n] - 
    S2[a2, n]*S2[a1, a2, a3, a1, a3, n] - 
    2*S2[a1, a2, a3, a1, SP[a2, a3], n] - 
    2*S2[a1, a2, a3, SP[a1, a2], a3, n] - 
    4*S2[a1, a2, SP[a1, a2], a3, a3, n] + S2[a1, a2, SP[a1, a3], a2, a3, n] + 
    S2[a1, a2, SP[a1, a3], a3, a2, n] + 2*S2[a1, a2, SP[a2, a3], a1, a3, n] - 
    2*S2[a3, n]*S2[a1, a3, a1, a2, a2, n] - 
    2*S2[a1, a3, a1, a2, SP[a2, a3], n] - S2[a1, a3, a1, a3, SP[a2, a2], n] - 
    3*S2[a1, a3, a1, SP[a2, a3], a2, n] - 
    2*S2[a3, n]*S2[a1, a3, a2, a1, a2, n] - 
    S2[a2, n]*S2[a1, a3, a2, a1, a3, n] - 
    3*S2[a1, a3, a2, a1, SP[a2, a3], n] + 
    S2[a1, n]*S2[a1, a3, a2, a3, a2, n] + S2[a1, a3, a2, a3, SP[a1, a2], n] - 
    S2[a1, a3, a2, SP[a1, a2], a3, n] - S2[a1, a3, a2, SP[a1, a3], a2, n] + 
    2*S2[a1, n]*S2[a1, a3, a3, a2, a2, n] + 
    2*S2[a1, a3, a3, a2, SP[a1, a2], n] + 
    2*S2[a1, a3, a3, SP[a1, a2], a2, n] - S2[a1, a3, SP[a2, a2], a1, a3, n] - 
    2*S2[a1, a3, SP[a2, a3], a1, a2, n] - 
    4*S2[a1, SP[a1, a2], a2, a3, a3, n] - 
    3*S2[a1, SP[a1, a2], a3, a2, a3, n] - 
    2*S2[a1, SP[a1, a2], a3, a3, a2, n] + 
    2*S2[a1, SP[a1, a3], a2, a2, a3, n] + S2[a1, SP[a1, a3], a2, a3, a2, n] + 
    2*S2[a1, SP[a2, a3], a1, a2, a3, n] + 
    2*S2[a1, SP[a2, a3], a1, a3, a2, n] + S2[a1, SP[a2, a3], a2, a1, a3, n] - 
    2*S2[a1, SP[a3, a3], a1, a2, a2, n] - 
    2*S2[a1, SP[a3, a3], a2, a1, a2, n] + S2[a2, a1, a2, a1, SP[a3, a3], n] + 
    S2[a2, a1, a2, SP[a1, a3], a3, n] + S2[a2, a1, SP[a2, a3], a1, a3, n] + 
    2*S2[a3, n]*S2[a2, a3, a1, a1, a2, n] + 
    2*S2[a2, a3, a1, a1, SP[a2, a3], n] + 
    2*S2[a2, a3, a1, SP[a1, a3], a2, n] + 
    2*S2[a2, a3, SP[a1, a3], a1, a2, n] + S2[a2, SP[a1, a3], a2, a1, a3, n] + 
    2*S2[a2, SP[a3, a3], a1, a1, a2, n] - 
    2*S2[a2, n]*S2[a3, a1, a1, a2, a3, n] - 
    2*S2[a3, a1, a1, a2, SP[a2, a3], n] - 
    2*S2[a2, n]*S2[a3, a1, a1, a3, a2, n] - 
    2*S2[a3, a1, a1, a3, SP[a2, a2], n] - 
    2*S2[a3, a1, a1, SP[a2, a2], a3, n] - 
    2*S2[a3, a1, a1, SP[a2, a3], a2, n] - 
    S2[a2, n]*S2[a3, a1, a2, a1, a3, n] - S2[a3, a1, a2, a1, SP[a2, a3], n] + 
    S2[a1, n]*S2[a3, a1, a2, a3, a2, n] + S2[a3, a1, a2, a3, SP[a1, a2], n] - 
    S2[a3, a1, a2, SP[a1, a2], a3, n] + S2[a3, a1, a2, SP[a1, a3], a2, n] - 
    2*S2[a2, n]*S2[a3, a1, a3, a1, a2, n] - 
    2*S2[a3, a1, a3, a1, SP[a2, a2], n] + 
    2*S2[a1, n]*S2[a3, a1, a3, a2, a2, n] + 
    2*S2[a3, a1, a3, a2, SP[a1, a2], n] - 
    2*S2[a3, a1, SP[a1, a2], a2, a3, n] - S2[a3, a1, SP[a1, a2], a3, a2, n] + 
    2*S2[a3, a1, SP[a1, a3], a2, a2, n] - S2[a3, a1, SP[a2, a2], a1, a3, n] - 
    2*S2[a3, a1, SP[a2, a3], a1, a2, n] + 
    S2[a1, n]*S2[a3, a2, a1, a2, a3, n] + S2[a3, a2, a1, a2, SP[a1, a3], n] + 
    S2[a1, n]*S2[a3, a2, a1, a3, a2, n] + S2[a3, a2, a1, a3, SP[a1, a2], n] + 
    S2[a3, a2, a1, SP[a1, a2], a3, n] + S2[a3, a2, a1, SP[a1, a3], a2, n] + 
    S2[a1, n]*S2[a3, a2, a3, a1, a2, n] + S2[a3, a2, a3, a1, SP[a1, a2], n] - 
    S2[a1, n]*S2[a3, a2, a3, a2, a1, n] - S2[a3, a2, a3, a2, SP[a1, a1], n] + 
    S2[a3, a2, a3, SP[a1, a1], a2, n] - S2[a3, a2, a3, SP[a1, a2], a1, n] + 
    S2[a3, a2, SP[a1, a1], a2, a3, n] + S2[a3, a2, SP[a1, a1], a3, a2, n] + 
    S2[a3, a2, SP[a1, a3], a1, a2, n] - S2[a3, a2, SP[a1, a3], a2, a1, n] - 
    4*S2[a2, n]*S2[a3, a3, a1, a1, a2, n] - 
    4*S2[a3, a3, a1, a1, SP[a2, a2], n] + 
    2*S2[a1, n]*S2[a3, a3, a1, a2, a2, n] + 
    2*S2[a3, a3, a1, a2, SP[a1, a2], n] - 
    2*S2[a3, a3, a1, SP[a1, a2], a2, n] + 
    2*S2[a1, n]*S2[a3, a3, a2, a1, a2, n] + 
    2*S2[a3, a3, a2, a1, SP[a1, a2], n] - 
    2*S2[a1, n]*S2[a3, a3, a2, a2, a1, n] - 
    2*S2[a3, a3, a2, a2, SP[a1, a1], n] + 
    2*S2[a3, a3, a2, SP[a1, a1], a2, n] - 
    2*S2[a3, a3, a2, SP[a1, a2], a1, n] + 
    2*S2[a3, a3, SP[a1, a1], a2, a2, n] - 
    2*S2[a3, a3, SP[a1, a2], a1, a2, n] - 
    2*S2[a3, a3, SP[a1, a2], a2, a1, n] + S2[a3, SP[a1, a1], a2, a3, a2, n] + 
    2*S2[a3, SP[a1, a1], a3, a2, a2, n] - S2[a3, SP[a1, a2], a1, a2, a3, n] - 
    S2[a3, SP[a1, a2], a1, a3, a2, n] - S2[a3, SP[a1, a2], a2, a1, a3, n] - 
    S2[a3, SP[a1, a2], a3, a1, a2, n] - S2[a3, SP[a1, a2], a3, a2, a1, n] + 
    2*S2[a3, SP[a1, a3], a1, a2, a2, n] + 
    2*S2[a3, SP[a1, a3], a2, a1, a2, n] - 
    2*S2[a3, SP[a1, a3], a2, a2, a1, n] - 
    4*S2[a3, SP[a2, a3], a1, a1, a2, n] - 
    4*S2[SP[a1, a1], a2, a2, a3, a3, n] - 
    3*S2[SP[a1, a1], a2, a3, a2, a3, n] - 
    2*S2[SP[a1, a1], a2, a3, a3, a2, n] - 
    2*S2[SP[a1, a1], a3, a2, a2, a3, n] - S2[SP[a1, a1], a3, a2, a3, a2, n] + 
    4*S2[SP[a1, a3], a1, a2, a2, a3, n] + 
    3*S2[SP[a1, a3], a1, a2, a3, a2, n] + 
    2*S2[SP[a1, a3], a1, a3, a2, a2, n] + 
    3*S2[SP[a1, a3], a2, a1, a2, a3, n] + 
    3*S2[SP[a1, a3], a2, a1, a3, a2, n] + 
    2*S2[SP[a1, a3], a2, a2, a1, a3, n] + S2[SP[a1, a3], a2, a3, a1, a2, n] - 
    S2[SP[a1, a3], a2, a3, a2, a1, n] - 2*S2[SP[a1, a3], a3, a2, a2, a1, n] - 
    2*S2[SP[a2, a3], a1, a1, a2, a3, n] - 
    2*S2[SP[a2, a3], a1, a1, a3, a2, n] - S2[SP[a2, a3], a1, a2, a1, a3, n] - 
    2*S2[SP[a2, a3], a1, a3, a1, a2, n] - 
    2*S2[SP[a2, a3], a3, a1, a1, a2, n] + 2*S2[a3, a1, a3, a1, a2, a2, n] - 
    S2[a3, a2, a1, a2, a3, a1, n] + 2*S2[a3, a2, a3, a2, a1, a1, n] + 
    4*S2[a3, a3, a1, a1, a2, a2, n] + 4*S2[a3, a3, a2, a2, a1, a1, n] /; 
   MyMemberQ[{{a1, a2, a3}}, {a1, a1, a2, a2, a3, a3}] && a1 != a2 != a3, 
 S2[a3_, a1_, a2_, a2_, a1_, a3_, n_] :> 
  S2[a1, a2, a3, n]^2/2 + S2[a1, a2, a3, n]*S2[a1, a3, a2, n] + 
    S2[a1, a3, a2, n]^2/2 + S2[SP[a1, a1], SP[a2, a2], SP[a3, a3], n]/2 + 
    S2[SP[a1, a1], SP[a2, a3], SP[a2, a3], n] + 
    S2[SP[a1, a1], SP[a3, a3], SP[a2, a2], n]/2 - S2[a1, a1, SP[a2, a2], 
     SP[a3, a3], n] - 2*S2[a1, a1, SP[a2, a3], SP[a2, a3], n] - 
    S2[a1, a1, SP[a3, a3], SP[a2, a2], n] - S2[a1, a3, n]*
     S2[a1, a2, a2, a3, n] - S2[a1, a3, n]*S2[a1, a2, a3, a2, n] + 
    S2[a1, a2, SP[a1, a2], SP[a3, a3], n] + S2[a1, a2, SP[a1, a3], 
     SP[a2, a3], n] - S2[a1, a3, n]*S2[a1, a3, a2, a2, n] + 
    S2[a1, a3, SP[a1, a2], SP[a2, a3], n] - S2[a1, SP[a1, a3], a3, 
     SP[a2, a2], n] - S2[a1, SP[a1, a3], SP[a2, a2], a3, n] - 
    S2[SP[a1, a1], a3, a3, SP[a2, a2], n] - S2[SP[a1, a1], a3, SP[a2, a2], 
     a3, n] - S2[SP[a1, a1], SP[a2, a2], a3, a3, n] + 
    2*S2[a1, a1, a3, a3, SP[a2, a2], n] + 
    2*S2[a1, a1, a3, SP[a2, a2], a3, n] + 
    2*S2[a1, a1, SP[a2, a2], a3, a3, n] + 
    S2[a3, n]*S2[a1, a2, a2, a1, a3, n] - S2[a1, a2, a3, a1, SP[a2, a3], n] - 
    S2[a1, a2, a3, SP[a1, a2], a3, n] - 2*S2[a1, a2, SP[a1, a2], a3, a3, n] + 
    S2[a1, a2, SP[a2, a3], a1, a3, n] + S2[a1, a3, a1, a3, SP[a2, a2], n] + 
    S2[a1, a3, a1, SP[a2, a2], a3, n] - S2[a1, a3, a2, a1, SP[a2, a3], n] - 
    S2[a1, a3, a2, SP[a1, a2], a3, n] + S2[a1, SP[a2, a3], a2, a1, a3, n] + 
    S2[SP[a1, a3], a2, a2, a1, a3, n] /; 
   MyMemberQ[{{a1, a2, a3}}, {a1, a1, a2, a2, a3, a3}] && a1 != a2 != a3, 
 S2[a3_, a1_, a2_, a2_, a3_, a1_, n_] :> 
  -(S2[a1, a3, a2, n]^2/2) - S2[SP[a1, a1], SP[a3, a3], SP[a2, a2], n]/2 + 
    S2[a1, a1, SP[a3, a3], SP[a2, a2], n] + S2[a1, a3, n]*
     S2[a1, a3, a2, a2, n] - S2[a1, a3, SP[a1, a2], SP[a2, a3], n] - 
    S2[a1, SP[a1, a3], a2, SP[a2, a3], n] + S2[a1, SP[a1, a3], a3, 
     SP[a2, a2], n] - S2[SP[a1, a1], a3, a2, SP[a2, a3], n] + 
    S2[SP[a1, a1], a3, a3, SP[a2, a2], n] + 
    2*S2[a1, a1, a3, a2, SP[a2, a3], n] - 
    2*S2[a1, a1, a3, a3, SP[a2, a2], n] + S2[a1, a3, a1, a2, SP[a2, a3], n] - 
    S2[a1, a3, a1, a3, SP[a2, a2], n] + S2[a1, a3, a2, a1, SP[a2, a3], n] - 
    S2[a1, n]*S2[a1, a3, a2, a2, a3, n] - S2[a1, a3, a2, a2, SP[a1, a3], n] + 
    S2[a1, n]*S2[a3, a2, a2, a3, a1, n] + S2[a3, a2, a2, a3, SP[a1, a1], n] + 
    S2[a3, a2, a2, SP[a1, a3], a1, n] + S2[a3, a2, SP[a1, a2], a3, a1, n] + 
    S2[a3, SP[a1, a2], a2, a3, a1, n] + S2[SP[a1, a3], a2, a2, a3, a1, n] - 
    S2[a3, a2, a1, a2, a3, a1, n] - S2[a3, a2, a2, a1, a3, a1, n] - 
    2*S2[a3, a2, a2, a3, a1, a1, n] /; 
   MyMemberQ[{{a1, a2, a3}}, {a1, a1, a2, a2, a3, a3}] && a1 != a2 != a3, 
 S2[a3_, a1_, a2_, a3_, a1_, a2_, n_] :> 
  S2[a1, a2, a3, n]^2 + S2[a1, a2, a3, n]*S2[a1, a3, a2, n] + 
    S2[a1, a3, a2, n]^2/2 + S2[SP[a1, a1], SP[a2, a2], SP[a3, a3], n] + 
    S2[SP[a1, a1], SP[a2, a3], SP[a2, a3], n] + 
    S2[SP[a1, a1], SP[a3, a3], SP[a2, a2], n]/2 - 
    2*S2[a1, a1, SP[a2, a2], SP[a3, a3], n] - 
    2*S2[a1, a1, SP[a2, a3], SP[a2, a3], n] - S2[a1, a1, SP[a3, a3], 
     SP[a2, a2], n] + 2*S2[a1, a3, n]*S2[a1, a2, a2, a3, n] + 
    S2[a1, a3, n]*S2[a1, a2, a3, a2, n] - 
    2*S2[a1, a2, SP[a1, a2], SP[a3, a3], n] - S2[a1, a2, SP[a1, a3], 
     SP[a2, a3], n] + S2[a1, a2, n]*S2[a1, a3, a2, a3, n] + 
    2*S2[a1, a2, n]*S2[a1, a3, a3, a2, n] - S2[a1, a3, SP[a1, a2], 
     SP[a2, a3], n] - 2*S2[a1, a3, SP[a1, a3], SP[a2, a2], n] - 
    4*S2[a1, SP[a1, a2], a2, SP[a3, a3], n] - 
    2*S2[a1, SP[a1, a2], a3, SP[a2, a3], n] - 
    4*S2[a1, SP[a1, a2], SP[a2, a3], a3, n] - 
    2*S2[a1, SP[a1, a2], SP[a3, a3], a2, n] - 
    2*S2[a1, SP[a1, a3], a2, SP[a2, a3], n] - 
    3*S2[a1, SP[a1, a3], a3, SP[a2, a2], n] - 
    2*S2[a1, SP[a1, a3], SP[a2, a2], a3, n] - 
    3*S2[a1, SP[a1, a3], SP[a2, a3], a2, n] - 
    S2[a1, a2, n]*S2[a2, a3, a1, a3, n] + S2[a2, a3, SP[a1, a1], SP[a2, a3], 
     n] + S2[a2, SP[a1, a3], a1, SP[a2, a3], n] + 
    S2[a2, SP[a1, a3], SP[a1, a2], a3, n] - 
    4*S2[SP[a1, a1], a2, a2, SP[a3, a3], n] - 
    2*S2[SP[a1, a1], a2, a3, SP[a2, a3], n] - 
    4*S2[SP[a1, a1], a2, SP[a2, a3], a3, n] - 
    2*S2[SP[a1, a1], a2, SP[a3, a3], a2, n] - 
    2*S2[SP[a1, a1], a3, a2, SP[a2, a3], n] - 
    3*S2[SP[a1, a1], a3, a3, SP[a2, a2], n] - 
    2*S2[SP[a1, a1], a3, SP[a2, a2], a3, n] - 
    3*S2[SP[a1, a1], a3, SP[a2, a3], a2, n] - 
    2*S2[SP[a1, a1], SP[a2, a2], a3, a3, n] - 
    4*S2[SP[a1, a1], SP[a2, a3], a2, a3, n] - 
    4*S2[SP[a1, a1], SP[a2, a3], a3, a2, n] - S2[SP[a1, a1], SP[a3, a3], a2, 
     a2, n] + S2[SP[a1, a2], a3, a1, SP[a2, a3], n] + 
    S2[SP[a1, a2], a3, SP[a1, a2], a3, n] + S2[SP[a1, a2], SP[a2, a3], a1, 
     a3, n] - 8*S2[a3, n]*S2[a1, a1, a2, a2, a3, n] - 
    6*S2[a3, n]*S2[a1, a1, a2, a3, a2, n] - 
    2*S2[a1, a1, a2, a3, SP[a2, a3], n] - 
    2*S2[a1, a1, a2, SP[a3, a3], a2, n] - 
    4*S2[a3, n]*S2[a1, a1, a3, a2, a2, n] + 
    6*S2[a1, a1, a3, a3, SP[a2, a2], n] + 
    4*S2[a1, a1, a3, SP[a2, a2], a3, n] + 
    2*S2[a1, a1, a3, SP[a2, a3], a2, n] + 
    4*S2[a1, a1, SP[a2, a2], a3, a3, n] + 
    2*S2[a1, a1, SP[a2, a3], a3, a2, n] - 
    2*S2[a1, a1, SP[a3, a3], a2, a2, n] - 
    4*S2[a3, n]*S2[a1, a2, a1, a2, a3, n] - 
    3*S2[a3, n]*S2[a1, a2, a1, a3, a2, n] - S2[a1, a2, a1, a3, SP[a2, a3], 
     n] - S2[a1, a2, a1, SP[a3, a3], a2, n] - 
    2*S2[a3, n]*S2[a1, a2, a2, a1, a3, n] + 
    S2[a2, n]*S2[a1, a2, a3, a1, a3, n] + S2[a1, a2, a3, a1, SP[a2, a3], n] + 
    S2[a1, a2, a3, SP[a1, a2], a3, n] + 4*S2[a1, a2, SP[a1, a2], a3, a3, n] - 
    S2[a1, a2, SP[a1, a3], a2, a3, n] - S2[a1, a2, SP[a1, a3], a3, a2, n] - 
    2*S2[a1, a2, SP[a2, a3], a1, a3, n] + 
    S2[a2, n]*S2[a1, a3, a1, a2, a3, n] + 
    3*S2[a1, a3, a1, a2, SP[a2, a3], n] + 
    S2[a2, n]*S2[a1, a3, a1, a3, a2, n] + 
    4*S2[a1, a3, a1, a3, SP[a2, a2], n] + 
    3*S2[a1, a3, a1, SP[a2, a2], a3, n] + 
    4*S2[a1, a3, a1, SP[a2, a3], a2, n] + 
    S2[a3, n]*S2[a1, a3, a2, a1, a2, n] + 
    S2[a2, n]*S2[a1, a3, a2, a1, a3, n] + 
    3*S2[a1, a3, a2, a1, SP[a2, a3], n] - 
    S2[a1, n]*S2[a1, a3, a2, a3, a2, n] - S2[a1, a3, a2, a3, SP[a1, a2], n] + 
    S2[a1, a3, a2, SP[a1, a2], a3, n] + S2[a1, a3, a2, SP[a1, a3], a2, n] + 
    2*S2[a1, a3, a3, a1, SP[a2, a2], n] - 
    2*S2[a1, n]*S2[a1, a3, a3, a2, a2, n] - 
    2*S2[a1, a3, a3, a2, SP[a1, a2], n] + 
    3*S2[a1, a3, SP[a1, a2], a2, a3, n] + 
    2*S2[a1, a3, SP[a1, a2], a3, a2, n] + 
    2*S2[a1, a3, SP[a1, a3], a2, a2, n] + S2[a1, a3, SP[a2, a2], a1, a3, n] + 
    S2[a1, a3, SP[a2, a3], a1, a2, n] + 8*S2[a1, SP[a1, a2], a2, a3, a3, n] + 
    7*S2[a1, SP[a1, a2], a3, a2, a3, n] + 
    6*S2[a1, SP[a1, a2], a3, a3, a2, n] - 
    2*S2[a1, SP[a1, a3], a2, a2, a3, n] - S2[a1, SP[a1, a3], a2, a3, a2, n] - 
    3*S2[a1, SP[a2, a3], a1, a2, a3, n] - 
    2*S2[a1, SP[a2, a3], a1, a3, a2, n] - S2[a1, SP[a2, a3], a2, a1, a3, n] + 
    S2[a1, SP[a3, a3], a2, a1, a2, n] - S2[a2, a1, a3, a1, SP[a2, a3], n] - 
    S2[a2, a1, a3, SP[a1, a2], a3, n] - S2[a2, a1, SP[a2, a3], a1, a3, n] - 
    2*S2[a2, a3, a1, a1, SP[a2, a3], n] - S2[a2, a3, a1, SP[a1, a2], a3, n] - 
    S2[a2, a3, a1, SP[a1, a3], a2, n] - S2[a2, a3, SP[a1, a1], a2, a3, n] - 
    S2[a2, a3, SP[a1, a1], a3, a2, n] - S2[a2, SP[a1, a3], a1, a2, a3, n] - 
    S2[a2, SP[a1, a3], a1, a3, a2, n] - S2[a2, SP[a1, a3], a2, a1, a3, n] + 
    4*S2[a3, n]*S2[a3, a1, a1, a2, a2, n] + 
    2*S2[a2, n]*S2[a3, a1, a1, a2, a3, n] + 
    6*S2[a3, a1, a1, a2, SP[a2, a3], n] + 
    2*S2[a2, n]*S2[a3, a1, a1, a3, a2, n] + 
    2*S2[a3, a1, a1, a3, SP[a2, a2], n] + 
    2*S2[a3, a1, a1, SP[a2, a2], a3, n] + 
    6*S2[a3, a1, a1, SP[a2, a3], a2, n] + 
    2*S2[a3, n]*S2[a3, a1, a2, a1, a2, n] + 
    S2[a2, n]*S2[a3, a1, a2, a1, a3, n] + 
    3*S2[a3, a1, a2, a1, SP[a2, a3], n] - 
    S2[a1, n]*S2[a3, a1, a2, a3, a2, n] - S2[a3, a1, a2, a3, SP[a1, a2], n] + 
    S2[a3, a1, a2, SP[a1, a2], a3, n] + S2[a3, a1, a2, SP[a1, a3], a2, n] + 
    S2[a2, n]*S2[a3, a1, a3, a1, a2, n] + S2[a3, a1, a3, a1, SP[a2, a2], n] - 
    2*S2[a1, n]*S2[a3, a1, a3, a2, a2, n] - 
    2*S2[a3, a1, a3, a2, SP[a1, a2], n] - S2[a3, a1, a3, SP[a1, a2], a2, n] + 
    2*S2[a3, a1, SP[a1, a2], a2, a3, n] + S2[a3, a1, SP[a1, a2], a3, a2, n] + 
    2*S2[a3, a1, SP[a1, a3], a2, a2, n] + S2[a3, a1, SP[a2, a2], a1, a3, n] + 
    3*S2[a3, a1, SP[a2, a3], a1, a2, n] - 
    S2[a1, n]*S2[a3, a2, a1, a2, a3, n] - S2[a3, a2, a1, a2, SP[a1, a3], n] - 
    S2[a1, n]*S2[a3, a2, a1, a3, a2, n] - S2[a3, a2, a1, a3, SP[a1, a2], n] - 
    S2[a3, a2, a1, SP[a1, a2], a3, n] - S2[a3, a2, a1, SP[a1, a3], a2, n] - 
    S2[a1, n]*S2[a3, a2, a3, a1, a2, n] - S2[a3, a2, a3, a1, SP[a1, a2], n] + 
    S2[a1, n]*S2[a3, a2, a3, a2, a1, n] + S2[a3, a2, a3, a2, SP[a1, a1], n] - 
    S2[a3, a2, a3, SP[a1, a1], a2, n] + S2[a3, a2, a3, SP[a1, a2], a1, n] - 
    S2[a3, a2, SP[a1, a1], a2, a3, n] - S2[a3, a2, SP[a1, a1], a3, a2, n] - 
    S2[a3, a2, SP[a1, a3], a1, a2, n] + S2[a3, a2, SP[a1, a3], a2, a1, n] - 
    2*S2[a1, n]*S2[a3, a3, a1, a2, a2, n] - 
    2*S2[a3, a3, a1, a2, SP[a1, a2], n] - 
    2*S2[a3, a3, a1, SP[a1, a2], a2, n] - 
    2*S2[a1, n]*S2[a3, a3, a2, a1, a2, n] - 
    2*S2[a3, a3, a2, a1, SP[a1, a2], n] + 
    2*S2[a1, n]*S2[a3, a3, a2, a2, a1, n] + 
    2*S2[a3, a3, a2, a2, SP[a1, a1], n] - 
    2*S2[a3, a3, a2, SP[a1, a1], a2, n] + 
    2*S2[a3, a3, a2, SP[a1, a2], a1, n] - 
    2*S2[a3, a3, SP[a1, a1], a2, a2, n] - 
    2*S2[a3, a3, SP[a1, a2], a1, a2, n] + 
    2*S2[a3, a3, SP[a1, a2], a2, a1, n] - S2[a3, SP[a1, a1], a2, a3, a2, n] - 
    2*S2[a3, SP[a1, a1], a3, a2, a2, n] + S2[a3, SP[a1, a2], a1, a2, a3, n] + 
    S2[a3, SP[a1, a2], a1, a3, a2, n] + S2[a3, SP[a1, a2], a2, a1, a3, n] + 
    S2[a3, SP[a1, a2], a3, a2, a1, n] + 2*S2[a3, SP[a1, a3], a1, a2, a2, n] + 
    2*S2[a3, SP[a1, a3], a2, a2, a1, n] + 
    8*S2[SP[a1, a1], a2, a2, a3, a3, n] + 
    7*S2[SP[a1, a1], a2, a3, a2, a3, n] + 
    6*S2[SP[a1, a1], a2, a3, a3, a2, n] + 
    6*S2[SP[a1, a1], a3, a2, a2, a3, n] + 
    5*S2[SP[a1, a1], a3, a2, a3, a2, n] + 
    4*S2[SP[a1, a1], a3, a3, a2, a2, n] - 
    8*S2[SP[a1, a3], a1, a2, a2, a3, n] - 
    7*S2[SP[a1, a3], a1, a2, a3, a2, n] - 
    6*S2[SP[a1, a3], a1, a3, a2, a2, n] - 
    5*S2[SP[a1, a3], a2, a1, a2, a3, n] - 
    4*S2[SP[a1, a3], a2, a1, a3, a2, n] - 
    2*S2[SP[a1, a3], a2, a2, a1, a3, n] - S2[SP[a1, a3], a2, a3, a1, a2, n] + 
    S2[SP[a1, a3], a2, a3, a2, a1, n] - 2*S2[SP[a1, a3], a3, a1, a2, a2, n] - 
    S2[SP[a1, a3], a3, a2, a1, a2, n] + 2*S2[SP[a1, a3], a3, a2, a2, a1, n] + 
    2*S2[SP[a2, a3], a1, a1, a2, a3, n] + 
    2*S2[SP[a2, a3], a1, a1, a3, a2, n] + S2[SP[a2, a3], a1, a2, a1, a3, n] + 
    S2[SP[a2, a3], a1, a3, a1, a2, n] + 4*S2[SP[a3, a3], a1, a1, a2, a2, n] + 
    2*S2[SP[a3, a3], a1, a2, a1, a2, n] - 2*S2[a3, a1, a3, a1, a2, a2, n] + 
    S2[a3, a2, a1, a2, a3, a1, n] + S2[a3, a2, a1, a3, a1, a2, n] + 
    2*S2[a3, a2, a3, a1, a1, a2, n] - 2*S2[a3, a2, a3, a2, a1, a1, n] - 
    4*S2[a3, a3, a1, a1, a2, a2, n] + 4*S2[a3, a3, a2, a1, a1, a2, n] - 
    4*S2[a3, a3, a2, a2, a1, a1, n] /; 
   MyMemberQ[{{a1, a2, a3}}, {a1, a1, a2, a2, a3, a3}] && a1 != a2 != a3, 
 S2[a3_, a1_, a2_, a3_, a2_, a1_, n_] :> 
  -(S2[a1, a2, a3, n]^2/2) - S2[a1, a2, a3, n]*S2[a1, a3, a2, n] - 
    S2[SP[a1, a1], SP[a2, a2], SP[a3, a3], n]/2 - S2[SP[a1, a1], SP[a2, a3], 
     SP[a2, a3], n] + S2[a1, a1, SP[a2, a2], SP[a3, a3], n] + 
    2*S2[a1, a1, SP[a2, a3], SP[a2, a3], n] + 
    S2[a1, a3, n]*S2[a1, a2, a3, a2, n] - S2[a1, a2, SP[a1, a3], SP[a2, a3], 
     n] - S2[a1, a2, n]*S2[a1, a3, a2, a3, n] - 
    2*S2[a1, a2, n]*S2[a1, a3, a3, a2, n] + S2[a1, a3, SP[a1, a2], 
     SP[a2, a3], n] + 2*S2[a1, a3, SP[a1, a3], SP[a2, a2], n] + 
    S2[a1, SP[a1, a2], a2, SP[a3, a3], n] + S2[a1, SP[a1, a2], SP[a2, a3], 
     a3, n] + 2*S2[a1, SP[a1, a3], a2, SP[a2, a3], n] + 
    2*S2[a1, SP[a1, a3], a3, SP[a2, a2], n] + 
    2*S2[a1, SP[a1, a3], SP[a2, a2], a3, n] + 
    2*S2[a1, SP[a1, a3], SP[a2, a3], a2, n] + 
    S2[a1, a2, n]*S2[a2, a3, a1, a3, n] - S2[a2, a3, SP[a1, a1], SP[a2, a3], 
     n] - S2[a2, SP[a1, a3], a1, SP[a2, a3], n] - 
    S2[a2, SP[a1, a3], SP[a1, a2], a3, n] + S2[SP[a1, a1], a2, a2, 
     SP[a3, a3], n] + S2[SP[a1, a1], a2, SP[a2, a3], a3, n] + 
    2*S2[SP[a1, a1], a3, a2, SP[a2, a3], n] + 
    2*S2[SP[a1, a1], a3, a3, SP[a2, a2], n] + 
    2*S2[SP[a1, a1], a3, SP[a2, a2], a3, n] + 
    2*S2[SP[a1, a1], a3, SP[a2, a3], a2, n] + S2[SP[a1, a1], SP[a2, a2], a3, 
     a3, n] + 2*S2[SP[a1, a1], SP[a2, a3], a2, a3, n] + 
    2*S2[SP[a1, a1], SP[a2, a3], a3, a2, n] - S2[SP[a1, a2], a3, a1, 
     SP[a2, a3], n] - S2[SP[a1, a2], a3, SP[a1, a2], a3, n] - 
    S2[SP[a1, a2], SP[a2, a3], a1, a3, n] + 
    2*S2[a3, n]*S2[a1, a1, a2, a2, a3, n] + 
    2*S2[a3, n]*S2[a1, a1, a2, a3, a2, n] + 
    2*S2[a1, a1, a2, a3, SP[a2, a3], n] + 
    2*S2[a1, a1, a2, SP[a3, a3], a2, n] + 
    2*S2[a3, n]*S2[a1, a1, a3, a2, a2, n] - 
    2*S2[a1, a1, a3, a2, SP[a2, a3], n] - 
    4*S2[a1, a1, a3, a3, SP[a2, a2], n] - 
    4*S2[a1, a1, a3, SP[a2, a2], a3, n] - 
    2*S2[a1, a1, a3, SP[a2, a3], a2, n] - 
    2*S2[a1, a1, SP[a2, a2], a3, a3, n] - 
    2*S2[a1, a1, SP[a2, a3], a2, a3, n] - 
    2*S2[a1, a1, SP[a2, a3], a3, a2, n] + 
    2*S2[a1, a1, SP[a3, a3], a2, a2, n] + 
    S2[a3, n]*S2[a1, a2, a1, a2, a3, n] + 
    S2[a3, n]*S2[a1, a2, a1, a3, a2, n] + S2[a1, a2, a1, a3, SP[a2, a3], n] + 
    S2[a1, a2, a1, SP[a3, a3], a2, n] - S2[a2, n]*S2[a1, a2, a3, a1, a3, n] + 
    S2[a1, a2, a3, a1, SP[a2, a3], n] + S2[a1, a2, a3, SP[a1, a2], a3, n] + 
    S2[a1, a2, SP[a1, a3], a2, a3, n] + S2[a1, a2, SP[a1, a3], a3, a2, n] - 
    S2[a2, n]*S2[a1, a3, a1, a2, a3, n] - 
    3*S2[a1, a3, a1, a2, SP[a2, a3], n] - 
    S2[a2, n]*S2[a1, a3, a1, a3, a2, n] - 
    3*S2[a1, a3, a1, a3, SP[a2, a2], n] - 
    3*S2[a1, a3, a1, SP[a2, a2], a3, n] - 
    3*S2[a1, a3, a1, SP[a2, a3], a2, n] - 
    S2[a2, n]*S2[a1, a3, a2, a1, a3, n] - 
    2*S2[a1, a3, a2, a1, SP[a2, a3], n] + 
    2*S2[a1, n]*S2[a1, a3, a2, a2, a3, n] + 
    2*S2[a1, a3, a2, a2, SP[a1, a3], n] + 
    S2[a1, n]*S2[a1, a3, a2, a3, a2, n] + S2[a1, a3, a2, a3, SP[a1, a2], n] + 
    S2[a1, a3, a2, SP[a1, a2], a3, n] - 2*S2[a1, a3, a3, a1, SP[a2, a2], n] + 
    2*S2[a1, n]*S2[a1, a3, a3, a2, a2, n] + 
    2*S2[a1, a3, a3, a2, SP[a1, a2], n] - S2[a1, a3, SP[a1, a2], a2, a3, n] - 
    S2[a1, a3, SP[a1, a2], a3, a2, n] - 2*S2[a1, a3, SP[a1, a3], a2, a2, n] - 
    S2[a1, a3, SP[a2, a2], a1, a3, n] - 2*S2[a1, SP[a1, a2], a2, a3, a3, n] - 
    2*S2[a1, SP[a1, a2], a3, a2, a3, n] - 
    2*S2[a1, SP[a1, a2], a3, a3, a2, n] - S2[a1, SP[a2, a3], a2, a1, a3, n] + 
    S2[a2, a1, a3, a1, SP[a2, a3], n] + S2[a2, a1, a3, SP[a1, a2], a3, n] + 
    S2[a2, a1, SP[a2, a3], a1, a3, n] + 2*S2[a2, a3, a1, a1, SP[a2, a3], n] + 
    S2[a2, a3, a1, SP[a1, a2], a3, n] + S2[a2, a3, a1, SP[a1, a3], a2, n] + 
    S2[a2, a3, SP[a1, a1], a2, a3, n] + S2[a2, a3, SP[a1, a1], a3, a2, n] + 
    S2[a2, SP[a1, a3], a1, a2, a3, n] + S2[a2, SP[a1, a3], a1, a3, a2, n] + 
    S2[a2, SP[a1, a3], a2, a1, a3, n] - 2*S2[a3, n]*
     S2[a3, a1, a1, a2, a2, n] - 2*S2[a2, n]*S2[a3, a1, a1, a2, a3, n] - 
    4*S2[a3, a1, a1, a2, SP[a2, a3], n] - 
    2*S2[a2, n]*S2[a3, a1, a1, a3, a2, n] - 
    2*S2[a3, a1, a1, a3, SP[a2, a2], n] - 
    2*S2[a3, a1, a1, SP[a2, a2], a3, n] - 
    4*S2[a3, a1, a1, SP[a2, a3], a2, n] - 
    S2[a3, n]*S2[a3, a1, a2, a1, a2, n] - 
    S2[a2, n]*S2[a3, a1, a2, a1, a3, n] - 
    2*S2[a3, a1, a2, a1, SP[a2, a3], n] + 
    2*S2[a1, n]*S2[a3, a1, a2, a2, a3, n] + 
    2*S2[a3, a1, a2, a2, SP[a1, a3], n] + 
    2*S2[a1, n]*S2[a3, a1, a2, a3, a2, n] + 
    2*S2[a3, a1, a2, a3, SP[a1, a2], n] + S2[a3, a1, a2, SP[a1, a2], a3, n] + 
    S2[a3, a1, a2, SP[a1, a3], a2, n] - S2[a2, n]*S2[a3, a1, a3, a1, a2, n] - 
    S2[a3, a1, a3, a1, SP[a2, a2], n] + 2*S2[a1, n]*
     S2[a3, a1, a3, a2, a2, n] + 2*S2[a3, a1, a3, a2, SP[a1, a2], n] + 
    S2[a3, a1, a3, SP[a1, a2], a2, n] - S2[a3, a1, SP[a2, a2], a1, a3, n] - 
    2*S2[a3, a1, SP[a2, a3], a1, a2, n] + 
    S2[a1, n]*S2[a3, a2, a1, a2, a3, n] + S2[a3, a2, a1, a2, SP[a1, a3], n] + 
    S2[a1, n]*S2[a3, a2, a1, a3, a2, n] + S2[a3, a2, a1, a3, SP[a1, a2], n] + 
    S2[a3, a2, a1, SP[a1, a2], a3, n] + S2[a3, a2, a1, SP[a1, a3], a2, n] - 
    2*S2[a1, n]*S2[a3, a2, a2, a3, a1, n] - 
    2*S2[a3, a2, a2, a3, SP[a1, a1], n] - 
    2*S2[a3, a2, a2, SP[a1, a3], a1, n] - 
    S2[a1, n]*S2[a3, a2, a3, a2, a1, n] - S2[a3, a2, a3, a2, SP[a1, a1], n] - 
    S2[a3, a2, a3, SP[a1, a2], a1, n] + S2[a3, a2, SP[a1, a1], a2, a3, n] + 
    S2[a3, a2, SP[a1, a1], a3, a2, n] - 2*S2[a3, a2, SP[a1, a2], a3, a1, n] - 
    S2[a3, a2, SP[a1, a3], a2, a1, n] + 2*S2[a1, n]*
     S2[a3, a3, a1, a2, a2, n] + 2*S2[a3, a3, a1, a2, SP[a1, a2], n] + 
    2*S2[a3, a3, a1, SP[a1, a2], a2, n] - 
    2*S2[a1, n]*S2[a3, a3, a2, a2, a1, n] - 
    2*S2[a3, a3, a2, a2, SP[a1, a1], n] - 
    2*S2[a3, a3, a2, SP[a1, a2], a1, n] + 
    2*S2[a3, a3, SP[a1, a1], a2, a2, n] - 
    2*S2[a3, a3, SP[a1, a2], a2, a1, n] + 
    2*S2[a3, SP[a1, a1], a2, a2, a3, n] + 
    2*S2[a3, SP[a1, a1], a2, a3, a2, n] + 
    2*S2[a3, SP[a1, a1], a3, a2, a2, n] - S2[a3, SP[a1, a2], a1, a2, a3, n] - 
    S2[a3, SP[a1, a2], a1, a3, a2, n] - S2[a3, SP[a1, a2], a2, a1, a3, n] - 
    2*S2[a3, SP[a1, a2], a2, a3, a1, n] - S2[a3, SP[a1, a2], a3, a1, a2, n] - 
    S2[a3, SP[a1, a2], a3, a2, a1, n] - S2[a3, SP[a1, a3], a2, a1, a2, n] - 
    2*S2[a3, SP[a1, a3], a2, a2, a1, n] - 
    2*S2[SP[a1, a1], a2, a2, a3, a3, n] - 
    2*S2[SP[a1, a1], a2, a3, a2, a3, n] - 
    2*S2[SP[a1, a1], a2, a3, a3, a2, n] - 
    2*S2[SP[a1, a1], a3, a2, a2, a3, n] - 
    2*S2[SP[a1, a1], a3, a2, a3, a2, n] - 
    2*S2[SP[a1, a1], a3, a3, a2, a2, n] + 
    4*S2[SP[a1, a3], a1, a2, a2, a3, n] + 
    4*S2[SP[a1, a3], a1, a2, a3, a2, n] + 
    4*S2[SP[a1, a3], a1, a3, a2, a2, n] + 
    2*S2[SP[a1, a3], a2, a1, a2, a3, n] + 
    2*S2[SP[a1, a3], a2, a1, a3, a2, n] - 
    2*S2[SP[a1, a3], a2, a2, a3, a1, n] - S2[SP[a1, a3], a2, a3, a2, a1, n] + 
    2*S2[SP[a1, a3], a3, a1, a2, a2, n] - 
    2*S2[SP[a1, a3], a3, a2, a2, a1, n] - 
    2*S2[SP[a2, a3], a1, a1, a2, a3, n] - 
    2*S2[SP[a2, a3], a1, a1, a3, a2, n] - S2[SP[a2, a3], a1, a2, a1, a3, n] - 
    S2[SP[a2, a3], a1, a3, a1, a2, n] - 2*S2[SP[a3, a3], a1, a1, a2, a2, n] - 
    S2[SP[a3, a3], a1, a2, a1, a2, n] + S2[a3, a2, a1, a2, a3, a1, n] + 
    2*S2[a3, a2, a2, a1, a3, a1, n] + 4*S2[a3, a2, a2, a3, a1, a1, n] + 
    S2[a3, a2, a3, a1, a2, a1, n] + 2*S2[a3, a2, a3, a2, a1, a1, n] + 
    2*S2[a3, a3, a2, a1, a2, a1, n] + 4*S2[a3, a3, a2, a2, a1, a1, n] /; 
   MyMemberQ[{{a1, a2, a3}}, {a1, a1, a2, a2, a3, a3}] && a1 != a2 != a3, 
 S2[a3_, a1_, a3_, a2_, a1_, a2_, n_] :> 
  -(S2[a1, a2, a3, n]^2/2) - S2[SP[a1, a1], SP[a2, a2], SP[a3, a3], n]/2 + 
    S2[a1, a1, SP[a2, a2], SP[a3, a3], n] - 2*S2[a1, a3, n]*
     S2[a1, a2, a2, a3, n] - S2[a1, a3, n]*S2[a1, a2, a3, a2, n] + 
    2*S2[a1, a2, SP[a1, a2], SP[a3, a3], n] + S2[a1, a2, SP[a1, a3], 
     SP[a2, a3], n] - S2[a1, a2, n]*S2[a1, a3, a2, a3, n] - 
    2*S2[a1, a2, n]*S2[a1, a3, a3, a2, n] + S2[a1, a3, SP[a1, a2], 
     SP[a2, a3], n] + 2*S2[a1, a3, SP[a1, a3], SP[a2, a2], n] + 
    3*S2[a1, SP[a1, a2], a2, SP[a3, a3], n] + S2[a1, SP[a1, a2], a3, 
     SP[a2, a3], n] + 3*S2[a1, SP[a1, a2], SP[a2, a3], a3, n] + 
    S2[a1, SP[a1, a2], SP[a3, a3], a2, n] + S2[a1, SP[a1, a3], a2, 
     SP[a2, a3], n] + 2*S2[a1, SP[a1, a3], a3, SP[a2, a2], n] + 
    S2[a1, SP[a1, a3], SP[a2, a2], a3, n] + 
    2*S2[a1, SP[a1, a3], SP[a2, a3], a2, n] + 
    S2[a1, a2, n]*S2[a2, a3, a1, a3, n] - S2[a2, a3, SP[a1, a1], SP[a2, a3], 
     n] - S2[a2, SP[a1, a3], a1, SP[a2, a3], n] - 
    S2[a2, SP[a1, a3], SP[a1, a2], a3, n] + 
    3*S2[SP[a1, a1], a2, a2, SP[a3, a3], n] + S2[SP[a1, a1], a2, a3, 
     SP[a2, a3], n] + 3*S2[SP[a1, a1], a2, SP[a2, a3], a3, n] + 
    S2[SP[a1, a1], a2, SP[a3, a3], a2, n] + S2[SP[a1, a1], a3, a2, 
     SP[a2, a3], n] + 2*S2[SP[a1, a1], a3, a3, SP[a2, a2], n] + 
    S2[SP[a1, a1], a3, SP[a2, a2], a3, n] + 
    2*S2[SP[a1, a1], a3, SP[a2, a3], a2, n] + S2[SP[a1, a1], SP[a2, a2], a3, 
     a3, n] + 3*S2[SP[a1, a1], SP[a2, a3], a2, a3, n] + 
    3*S2[SP[a1, a1], SP[a2, a3], a3, a2, n] - S2[SP[a1, a2], a3, a1, 
     SP[a2, a3], n] - S2[SP[a1, a2], a3, SP[a1, a2], a3, n] - 
    S2[SP[a1, a2], SP[a2, a3], a1, a3, n] + 
    6*S2[a3, n]*S2[a1, a1, a2, a2, a3, n] + 
    4*S2[a3, n]*S2[a1, a1, a2, a3, a2, n] + 
    2*S2[a1, a1, a2, a3, SP[a2, a3], n] + 
    2*S2[a1, a1, a2, SP[a3, a3], a2, n] + 
    2*S2[a3, n]*S2[a1, a1, a3, a2, a2, n] - 
    4*S2[a1, a1, a3, a3, SP[a2, a2], n] - 
    2*S2[a1, a1, a3, SP[a2, a2], a3, n] - 
    2*S2[a1, a1, a3, SP[a2, a3], a2, n] - 
    2*S2[a1, a1, SP[a2, a2], a3, a3, n] - 
    2*S2[a1, a1, SP[a2, a3], a3, a2, n] + 
    2*S2[a1, a1, SP[a3, a3], a2, a2, n] + 
    3*S2[a3, n]*S2[a1, a2, a1, a2, a3, n] + 
    2*S2[a3, n]*S2[a1, a2, a1, a3, a2, n] + S2[a1, a2, a1, a3, SP[a2, a3], 
     n] + S2[a1, a2, a1, SP[a3, a3], a2, n] + 
    2*S2[a3, n]*S2[a1, a2, a2, a1, a3, n] - 
    S2[a2, n]*S2[a1, a2, a3, a1, a3, n] - S2[a1, a2, a3, a1, SP[a2, a3], n] - 
    S2[a1, a2, a3, SP[a1, a2], a3, n] - 4*S2[a1, a2, SP[a1, a2], a3, a3, n] + 
    S2[a1, a2, SP[a1, a3], a2, a3, n] + S2[a1, a2, SP[a1, a3], a3, a2, n] + 
    2*S2[a1, a2, SP[a2, a3], a1, a3, n] - 
    S2[a2, n]*S2[a1, a3, a1, a2, a3, n] - 
    2*S2[a1, a3, a1, a2, SP[a2, a3], n] - 
    S2[a2, n]*S2[a1, a3, a1, a3, a2, n] - 
    3*S2[a1, a3, a1, a3, SP[a2, a2], n] - 
    2*S2[a1, a3, a1, SP[a2, a2], a3, n] - 
    3*S2[a1, a3, a1, SP[a2, a3], a2, n] - 
    S2[a3, n]*S2[a1, a3, a2, a1, a2, n] - 
    S2[a2, n]*S2[a1, a3, a2, a1, a3, n] - 
    3*S2[a1, a3, a2, a1, SP[a2, a3], n] + 
    S2[a1, n]*S2[a1, a3, a2, a3, a2, n] + S2[a1, a3, a2, a3, SP[a1, a2], n] - 
    S2[a1, a3, a2, SP[a1, a2], a3, n] - S2[a1, a3, a2, SP[a1, a3], a2, n] - 
    2*S2[a1, a3, a3, a1, SP[a2, a2], n] + 
    2*S2[a1, n]*S2[a1, a3, a3, a2, a2, n] + 
    2*S2[a1, a3, a3, a2, SP[a1, a2], n] - 
    2*S2[a1, a3, SP[a1, a2], a2, a3, n] - S2[a1, a3, SP[a1, a2], a3, a2, n] - 
    2*S2[a1, a3, SP[a1, a3], a2, a2, n] - S2[a1, a3, SP[a2, a2], a1, a3, n] - 
    S2[a1, a3, SP[a2, a3], a1, a2, n] - 6*S2[a1, SP[a1, a2], a2, a3, a3, n] - 
    5*S2[a1, SP[a1, a2], a3, a2, a3, n] - 
    4*S2[a1, SP[a1, a2], a3, a3, a2, n] + 
    2*S2[a1, SP[a1, a3], a2, a2, a3, n] + S2[a1, SP[a1, a3], a2, a3, a2, n] + 
    2*S2[a1, SP[a2, a3], a1, a2, a3, n] + S2[a1, SP[a2, a3], a1, a3, a2, n] + 
    S2[a1, SP[a2, a3], a2, a1, a3, n] - S2[a1, SP[a3, a3], a2, a1, a2, n] + 
    S2[a2, a1, a3, a1, SP[a2, a3], n] + S2[a2, a1, a3, SP[a1, a2], a3, n] + 
    S2[a2, a1, SP[a2, a3], a1, a3, n] + 2*S2[a2, a3, a1, a1, SP[a2, a3], n] + 
    S2[a2, a3, a1, SP[a1, a2], a3, n] + S2[a2, a3, a1, SP[a1, a3], a2, n] + 
    S2[a2, a3, SP[a1, a1], a2, a3, n] + S2[a2, a3, SP[a1, a1], a3, a2, n] + 
    S2[a2, SP[a1, a3], a1, a2, a3, n] + S2[a2, SP[a1, a3], a1, a3, a2, n] + 
    S2[a2, SP[a1, a3], a2, a1, a3, n] - 2*S2[a3, n]*
     S2[a3, a1, a1, a2, a2, n] - 2*S2[a2, n]*S2[a3, a1, a1, a2, a3, n] - 
    4*S2[a3, a1, a1, a2, SP[a2, a3], n] - 
    2*S2[a2, n]*S2[a3, a1, a1, a3, a2, n] - 
    2*S2[a3, a1, a1, a3, SP[a2, a2], n] - 
    2*S2[a3, a1, a1, SP[a2, a2], a3, n] - 
    4*S2[a3, a1, a1, SP[a2, a3], a2, n] - 
    S2[a3, n]*S2[a3, a1, a2, a1, a2, n] - 
    S2[a2, n]*S2[a3, a1, a2, a1, a3, n] - 
    2*S2[a3, a1, a2, a1, SP[a2, a3], n] + 
    S2[a1, n]*S2[a3, a1, a2, a3, a2, n] + S2[a3, a1, a2, a3, SP[a1, a2], n] - 
    S2[a3, a1, a2, SP[a1, a2], a3, n] - S2[a2, n]*S2[a3, a1, a3, a1, a2, n] - 
    S2[a3, a1, a3, a1, SP[a2, a2], n] + 2*S2[a1, n]*
     S2[a3, a1, a3, a2, a2, n] + 2*S2[a3, a1, a3, a2, SP[a1, a2], n] + 
    S2[a3, a1, a3, SP[a1, a2], a2, n] - 2*S2[a3, a1, SP[a1, a2], a2, a3, n] - 
    S2[a3, a1, SP[a1, a2], a3, a2, n] - S2[a3, a1, SP[a2, a2], a1, a3, n] - 
    2*S2[a3, a1, SP[a2, a3], a1, a2, n] + 
    S2[a1, n]*S2[a3, a2, a1, a2, a3, n] + S2[a3, a2, a1, a2, SP[a1, a3], n] + 
    S2[a1, n]*S2[a3, a2, a1, a3, a2, n] + S2[a3, a2, a1, a3, SP[a1, a2], n] + 
    S2[a3, a2, a1, SP[a1, a2], a3, n] + S2[a3, a2, a1, SP[a1, a3], a2, n] + 
    S2[a1, n]*S2[a3, a2, a3, a1, a2, n] + S2[a3, a2, a3, a1, SP[a1, a2], n] - 
    S2[a1, n]*S2[a3, a2, a3, a2, a1, n] - S2[a3, a2, a3, a2, SP[a1, a1], n] + 
    S2[a3, a2, a3, SP[a1, a1], a2, n] - S2[a3, a2, a3, SP[a1, a2], a1, n] + 
    S2[a3, a2, SP[a1, a1], a2, a3, n] + S2[a3, a2, SP[a1, a1], a3, a2, n] + 
    S2[a3, a2, SP[a1, a3], a1, a2, n] - S2[a3, a2, SP[a1, a3], a2, a1, n] + 
    2*S2[a1, n]*S2[a3, a3, a1, a2, a2, n] + 
    2*S2[a3, a3, a1, a2, SP[a1, a2], n] + 
    2*S2[a3, a3, a1, SP[a1, a2], a2, n] + 
    2*S2[a1, n]*S2[a3, a3, a2, a1, a2, n] + 
    2*S2[a3, a3, a2, a1, SP[a1, a2], n] - 
    2*S2[a1, n]*S2[a3, a3, a2, a2, a1, n] - 
    2*S2[a3, a3, a2, a2, SP[a1, a1], n] + 
    2*S2[a3, a3, a2, SP[a1, a1], a2, n] - 
    2*S2[a3, a3, a2, SP[a1, a2], a1, n] + 
    2*S2[a3, a3, SP[a1, a1], a2, a2, n] + 
    2*S2[a3, a3, SP[a1, a2], a1, a2, n] - 
    2*S2[a3, a3, SP[a1, a2], a2, a1, n] + S2[a3, SP[a1, a1], a2, a3, a2, n] + 
    2*S2[a3, SP[a1, a1], a3, a2, a2, n] - S2[a3, SP[a1, a2], a1, a2, a3, n] - 
    S2[a3, SP[a1, a2], a1, a3, a2, n] - S2[a3, SP[a1, a2], a2, a1, a3, n] - 
    S2[a3, SP[a1, a2], a3, a2, a1, n] + S2[a3, SP[a1, a3], a2, a1, a2, n] - 
    2*S2[a3, SP[a1, a3], a2, a2, a1, n] - 
    6*S2[SP[a1, a1], a2, a2, a3, a3, n] - 
    5*S2[SP[a1, a1], a2, a3, a2, a3, n] - 
    4*S2[SP[a1, a1], a2, a3, a3, a2, n] - 
    4*S2[SP[a1, a1], a3, a2, a2, a3, n] - 
    3*S2[SP[a1, a1], a3, a2, a3, a2, n] - 
    2*S2[SP[a1, a1], a3, a3, a2, a2, n] + 
    6*S2[SP[a1, a3], a1, a2, a2, a3, n] + 
    5*S2[SP[a1, a3], a1, a2, a3, a2, n] + 
    4*S2[SP[a1, a3], a1, a3, a2, a2, n] + 
    4*S2[SP[a1, a3], a2, a1, a2, a3, n] + 
    3*S2[SP[a1, a3], a2, a1, a3, a2, n] + 
    2*S2[SP[a1, a3], a2, a2, a1, a3, n] + S2[SP[a1, a3], a2, a3, a1, a2, n] - 
    S2[SP[a1, a3], a2, a3, a2, a1, n] + 2*S2[SP[a1, a3], a3, a1, a2, a2, n] + 
    S2[SP[a1, a3], a3, a2, a1, a2, n] - 2*S2[SP[a1, a3], a3, a2, a2, a1, n] - 
    2*S2[SP[a2, a3], a1, a1, a2, a3, n] - 
    2*S2[SP[a2, a3], a1, a1, a3, a2, n] - S2[SP[a2, a3], a1, a2, a1, a3, n] - 
    S2[SP[a2, a3], a1, a3, a1, a2, n] - 2*S2[SP[a3, a3], a1, a1, a2, a2, n] - 
    S2[SP[a3, a3], a1, a2, a1, a2, n] - S2[a3, a2, a1, a2, a3, a1, n] - 
    S2[a3, a2, a1, a3, a1, a2, n] - 2*S2[a3, a2, a3, a1, a1, a2, n] + 
    2*S2[a3, a2, a3, a2, a1, a1, n] - 2*S2[a3, a3, a1, a2, a1, a2, n] - 
    4*S2[a3, a3, a2, a1, a1, a2, n] + 4*S2[a3, a3, a2, a2, a1, a1, n] /; 
   MyMemberQ[{{a1, a2, a3}}, {a1, a1, a2, a2, a3, a3}] && a1 != a2 != a3, 
 S2[a3_, a1_, a3_, a2_, a2_, a1_, n_] :> 
  S2[a1, a3, n]*S2[a1, a2, a2, a3, n] - S2[a1, a2, SP[a1, a2], SP[a3, a3], 
     n] + S2[a1, a2, n]*S2[a1, a3, a2, a3, n] + 
    2*S2[a1, a2, n]*S2[a1, a3, a3, a2, n] - S2[a1, a3, SP[a1, a2], 
     SP[a2, a3], n] - 2*S2[a1, a3, SP[a1, a3], SP[a2, a2], n] - 
    S2[a1, SP[a1, a2], a2, SP[a3, a3], n] - S2[a1, SP[a1, a2], SP[a2, a3], 
     a3, n] - S2[a1, SP[a1, a3], a2, SP[a2, a3], n] - 
    2*S2[a1, SP[a1, a3], a3, SP[a2, a2], n] - S2[a1, SP[a1, a3], SP[a2, a2], 
     a3, n] - 2*S2[a1, SP[a1, a3], SP[a2, a3], a2, n] - 
    S2[a1, a2, n]*S2[a2, a3, a1, a3, n] + S2[a2, a3, SP[a1, a1], SP[a2, a3], 
     n] + S2[a2, SP[a1, a3], a1, SP[a2, a3], n] + 
    S2[a2, SP[a1, a3], SP[a1, a2], a3, n] - S2[SP[a1, a1], a2, a2, 
     SP[a3, a3], n] - S2[SP[a1, a1], a2, SP[a2, a3], a3, n] - 
    S2[SP[a1, a1], a3, a2, SP[a2, a3], n] - 
    2*S2[SP[a1, a1], a3, a3, SP[a2, a2], n] - S2[SP[a1, a1], a3, SP[a2, a2], 
     a3, n] - 2*S2[SP[a1, a1], a3, SP[a2, a3], a2, n] - 
    2*S2[SP[a1, a1], SP[a2, a3], a2, a3, n] - 
    2*S2[SP[a1, a1], SP[a2, a3], a3, a2, n] + S2[SP[a1, a2], a3, a1, 
     SP[a2, a3], n] + S2[SP[a1, a2], a3, SP[a1, a2], a3, n] + 
    S2[SP[a1, a2], SP[a2, a3], a1, a3, n] - 
    2*S2[a3, n]*S2[a1, a1, a2, a2, a3, n] - 
    2*S2[a3, n]*S2[a1, a1, a2, a3, a2, n] - 
    2*S2[a1, a1, a2, a3, SP[a2, a3], n] - 
    2*S2[a1, a1, a2, SP[a3, a3], a2, n] - 
    2*S2[a3, n]*S2[a1, a1, a3, a2, a2, n] + 
    4*S2[a1, a1, a3, a3, SP[a2, a2], n] + 
    2*S2[a1, a1, a3, SP[a2, a2], a3, n] + 
    2*S2[a1, a1, a3, SP[a2, a3], a2, n] + 
    2*S2[a1, a1, SP[a2, a3], a2, a3, n] + 
    2*S2[a1, a1, SP[a2, a3], a3, a2, n] - 
    2*S2[a1, a1, SP[a3, a3], a2, a2, n] - 
    S2[a3, n]*S2[a1, a2, a1, a2, a3, n] - 
    S2[a3, n]*S2[a1, a2, a1, a3, a2, n] - S2[a1, a2, a1, a3, SP[a2, a3], n] - 
    S2[a1, a2, a1, SP[a3, a3], a2, n] - S2[a3, n]*S2[a1, a2, a2, a1, a3, n] + 
    S2[a2, n]*S2[a1, a2, a3, a1, a3, n] + 
    2*S2[a1, a2, SP[a1, a2], a3, a3, n] - S2[a1, a2, SP[a1, a3], a2, a3, n] - 
    S2[a1, a2, SP[a1, a3], a3, a2, n] - S2[a1, a2, SP[a2, a3], a1, a3, n] - 
    S2[a3, n]*S2[a1, a3, a1, a2, a2, n] + 
    S2[a2, n]*S2[a1, a3, a1, a2, a3, n] + S2[a1, a3, a1, a2, SP[a2, a3], n] + 
    S2[a2, n]*S2[a1, a3, a1, a3, a2, n] + 
    3*S2[a1, a3, a1, a3, SP[a2, a2], n] + 
    2*S2[a1, a3, a1, SP[a2, a2], a3, n] + 
    2*S2[a1, a3, a1, SP[a2, a3], a2, n] + 
    S2[a2, n]*S2[a1, a3, a2, a1, a3, n] + 
    2*S2[a1, a3, a2, a1, SP[a2, a3], n] - 
    S2[a1, n]*S2[a1, a3, a2, a2, a3, n] - S2[a1, a3, a2, a2, SP[a1, a3], n] - 
    S2[a1, n]*S2[a1, a3, a2, a3, a2, n] - S2[a1, a3, a2, a3, SP[a1, a2], n] + 
    2*S2[a1, a3, a3, a1, SP[a2, a2], n] - 
    2*S2[a1, n]*S2[a1, a3, a3, a2, a2, n] - 
    2*S2[a1, a3, a3, a2, SP[a1, a2], n] + S2[a1, a3, SP[a1, a2], a2, a3, n] + 
    S2[a1, a3, SP[a1, a2], a3, a2, n] + S2[a1, a3, SP[a1, a3], a2, a2, n] + 
    S2[a1, a3, SP[a2, a2], a1, a3, n] + 2*S2[a1, SP[a1, a2], a2, a3, a3, n] + 
    2*S2[a1, SP[a1, a2], a3, a2, a3, n] + 
    2*S2[a1, SP[a1, a2], a3, a3, a2, n] - S2[a1, SP[a3, a3], a1, a2, a2, n] - 
    S2[a2, a1, a3, a1, SP[a2, a3], n] - S2[a2, a1, a3, SP[a1, a2], a3, n] - 
    S2[a2, a1, SP[a2, a3], a1, a3, n] - 2*S2[a2, a3, a1, a1, SP[a2, a3], n] - 
    S2[a2, a3, a1, SP[a1, a2], a3, n] - S2[a2, a3, a1, SP[a1, a3], a2, n] - 
    S2[a2, a3, SP[a1, a1], a2, a3, n] - S2[a2, a3, SP[a1, a1], a3, a2, n] - 
    S2[a2, SP[a1, a3], a1, a2, a3, n] - S2[a2, SP[a1, a3], a1, a3, a2, n] - 
    S2[a2, SP[a1, a3], a2, a1, a3, n] + 2*S2[a2, n]*
     S2[a3, a1, a1, a2, a3, n] + 2*S2[a3, a1, a1, a2, SP[a2, a3], n] + 
    2*S2[a2, n]*S2[a3, a1, a1, a3, a2, n] + 
    2*S2[a3, a1, a1, a3, SP[a2, a2], n] + 
    2*S2[a3, a1, a1, SP[a2, a2], a3, n] + 
    2*S2[a3, a1, a1, SP[a2, a3], a2, n] + 
    S2[a2, n]*S2[a3, a1, a2, a1, a3, n] + S2[a3, a1, a2, a1, SP[a2, a3], n] - 
    S2[a1, n]*S2[a3, a1, a2, a2, a3, n] - S2[a3, a1, a2, a2, SP[a1, a3], n] - 
    S2[a1, n]*S2[a3, a1, a2, a3, a2, n] - S2[a3, a1, a2, a3, SP[a1, a2], n] - 
    S2[a3, a1, a2, SP[a1, a3], a2, n] + S2[a2, n]*S2[a3, a1, a3, a1, a2, n] + 
    S2[a3, a1, a3, a1, SP[a2, a2], n] - S2[a1, n]*S2[a3, a1, a3, a2, a2, n] - 
    S2[a3, a1, a3, a2, SP[a1, a2], n] + S2[a3, a1, SP[a1, a2], a2, a3, n] + 
    S2[a3, a1, SP[a1, a2], a3, a2, n] - S2[a3, a1, SP[a1, a3], a2, a2, n] + 
    S2[a3, a1, SP[a2, a2], a1, a3, n] + S2[a3, a1, SP[a2, a3], a1, a2, n] - 
    S2[a1, n]*S2[a3, a2, a1, a2, a3, n] - S2[a3, a2, a1, a2, SP[a1, a3], n] - 
    S2[a1, n]*S2[a3, a2, a1, a3, a2, n] - S2[a3, a2, a1, a3, SP[a1, a2], n] - 
    S2[a3, a2, a1, SP[a1, a2], a3, n] - S2[a3, a2, a1, SP[a1, a3], a2, n] + 
    S2[a1, n]*S2[a3, a2, a2, a3, a1, n] + S2[a3, a2, a2, a3, SP[a1, a1], n] + 
    S2[a3, a2, a2, SP[a1, a3], a1, n] + S2[a1, n]*S2[a3, a2, a3, a2, a1, n] + 
    S2[a3, a2, a3, a2, SP[a1, a1], n] + S2[a3, a2, a3, SP[a1, a2], a1, n] - 
    S2[a3, a2, SP[a1, a1], a2, a3, n] - S2[a3, a2, SP[a1, a1], a3, a2, n] + 
    S2[a3, a2, SP[a1, a2], a3, a1, n] + S2[a3, a2, SP[a1, a3], a2, a1, n] + 
    2*S2[a1, n]*S2[a3, a3, a2, a2, a1, n] + 
    2*S2[a3, a3, a2, a2, SP[a1, a1], n] + 
    2*S2[a3, a3, a2, SP[a1, a2], a1, n] + 
    2*S2[a3, a3, SP[a1, a2], a2, a1, n] - S2[a3, SP[a1, a1], a2, a2, a3, n] - 
    S2[a3, SP[a1, a1], a2, a3, a2, n] - S2[a3, SP[a1, a1], a3, a2, a2, n] + 
    S2[a3, SP[a1, a2], a1, a2, a3, n] + S2[a3, SP[a1, a2], a1, a3, a2, n] + 
    S2[a3, SP[a1, a2], a2, a1, a3, n] + S2[a3, SP[a1, a2], a2, a3, a1, n] + 
    S2[a3, SP[a1, a2], a3, a1, a2, n] + S2[a3, SP[a1, a2], a3, a2, a1, n] + 
    2*S2[a3, SP[a1, a3], a2, a2, a1, n] + 
    2*S2[SP[a1, a1], a2, a2, a3, a3, n] + 
    2*S2[SP[a1, a1], a2, a3, a2, a3, n] + 
    2*S2[SP[a1, a1], a2, a3, a3, a2, n] + 
    2*S2[SP[a1, a1], a3, a2, a2, a3, n] + 
    2*S2[SP[a1, a1], a3, a2, a3, a2, n] + 
    2*S2[SP[a1, a1], a3, a3, a2, a2, n] - 
    3*S2[SP[a1, a3], a1, a2, a2, a3, n] - 
    3*S2[SP[a1, a3], a1, a2, a3, a2, n] - 
    3*S2[SP[a1, a3], a1, a3, a2, a2, n] - 
    2*S2[SP[a1, a3], a2, a1, a2, a3, n] - 
    2*S2[SP[a1, a3], a2, a1, a3, a2, n] - S2[SP[a1, a3], a2, a2, a1, a3, n] + 
    S2[SP[a1, a3], a2, a2, a3, a1, n] + S2[SP[a1, a3], a2, a3, a2, a1, n] - 
    S2[SP[a1, a3], a3, a1, a2, a2, n] + 2*S2[SP[a1, a3], a3, a2, a2, a1, n] + 
    2*S2[SP[a2, a3], a1, a1, a2, a3, n] + 
    2*S2[SP[a2, a3], a1, a1, a3, a2, n] + S2[SP[a2, a3], a1, a2, a1, a3, n] + 
    S2[SP[a2, a3], a1, a3, a1, a2, n] - S2[a3, a2, a2, a1, a3, a1, n] - 
    2*S2[a3, a2, a2, a3, a1, a1, n] - S2[a3, a2, a3, a1, a2, a1, n] - 
    2*S2[a3, a2, a3, a2, a1, a1, n] - 2*S2[a3, a3, a1, a2, a2, a1, n] - 
    2*S2[a3, a3, a2, a1, a2, a1, n] - 4*S2[a3, a3, a2, a2, a1, a1, n] /; 
   MyMemberQ[{{a1, a2, a3}}, {a1, a1, a2, a2, a3, a3}] && a1 != a2 != a3, 
 S2[a3_, a2_, a1_, a1_, a2_, a3_, n_] :> 
  S2[a1, a2, a3, n]^2/2 + S2[SP[a1, a1], SP[a2, a2], SP[a3, a3], n]/2 - 
    S2[a2, a3, n]*S2[a1, a1, a2, a3, n] - S2[SP[a1, a1], a2, a2, SP[a3, a3], 
     n] - S2[SP[a1, a1], a2, SP[a2, a3], a3, n] - S2[SP[a1, a1], SP[a2, a2], 
     a3, a3, n] + S2[SP[a1, a2], a1, a2, SP[a3, a3], n] + 
    S2[SP[a1, a2], a1, SP[a2, a3], a3, n] + S2[SP[a1, a2], SP[a1, a3], a2, 
     a3, n] - 2*S2[a3, n]*S2[a1, a1, a2, a2, a3, n] - 
    2*S2[a1, a1, a2, a2, SP[a3, a3], n] - 
    S2[a3, n]*S2[a1, a1, a2, a3, a2, n] + 
    2*S2[a2, n]*S2[a1, a1, a2, a3, a3, n] + S2[a1, a1, a2, a3, SP[a2, a3], 
     n] - S2[a1, a1, a2, SP[a3, a3], a2, n] + 
    S2[a2, n]*S2[a1, a1, a3, a2, a3, n] + S2[a1, a1, a3, a2, SP[a2, a3], n] + 
    S2[a1, a1, a3, SP[a2, a2], a3, n] + 2*S2[a1, a1, SP[a2, a2], a3, a3, n] - 
    S2[a1, a1, SP[a2, a3], a2, a3, n] - S2[a1, a1, SP[a2, a3], a3, a2, n] - 
    S2[a3, n]*S2[a1, a2, a1, a2, a3, n] - S2[a1, a2, a1, a2, SP[a3, a3], n] - 
    S2[a1, a2, a1, SP[a2, a3], a3, n] - S2[a1, a2, SP[a1, a3], a2, a3, n] + 
    S2[a2, n]*S2[a1, a3, a1, a2, a3, n] + S2[a1, a3, a1, a2, SP[a2, a3], n] + 
    S2[a1, a3, a1, SP[a2, a2], a3, n] + S2[a1, a3, SP[a1, a2], a2, a3, n] + 
    2*S2[a1, SP[a1, a2], a2, a3, a3, n] + S2[a1, SP[a1, a2], a3, a2, a3, n] - 
    2*S2[a1, SP[a1, a3], a2, a2, a3, n] - S2[a1, SP[a1, a3], a2, a3, a2, n] - 
    S2[a2, a1, a1, a2, SP[a3, a3], n] - S2[a2, a1, a1, SP[a2, a3], a3, n] - 
    S2[a2, a1, SP[a1, a3], a2, a3, n] - S2[a2, SP[a1, a3], a1, a2, a3, n] + 
    S2[a2, n]*S2[a3, a1, a1, a2, a3, n] + S2[a3, a1, a1, a2, SP[a2, a3], n] + 
    S2[a3, a1, a1, SP[a2, a2], a3, n] + S2[a3, a1, SP[a1, a2], a2, a3, n] + 
    S2[a3, SP[a1, a2], a1, a2, a3, n] + 2*S2[SP[a1, a1], a2, a2, a3, a3, n] + 
    S2[SP[a1, a1], a2, a3, a2, a3, n] - 2*S2[SP[a1, a3], a1, a2, a2, a3, n] - 
    S2[SP[a1, a3], a1, a2, a3, a2, n] - S2[SP[a1, a3], a2, a1, a2, a3, n] + 
    S2[SP[a2, a3], a1, a1, a2, a3, n] /; 
   MyMemberQ[{{a1, a2, a3}}, {a1, a1, a2, a2, a3, a3}] && a1 != a2 != a3, 
 S2[a3_, a2_, a1_, a1_, a3_, a2_, n_] :> 
  -(S2[a1, a2, a3, n]^2/2) - S2[SP[a1, a1], SP[a2, a2], SP[a3, a3], n]/2 + 
    S2[a2, a3, n]*S2[a1, a1, a2, a3, n] + S2[SP[a1, a1], a2, a2, SP[a3, a3], 
     n] + S2[SP[a1, a1], a2, SP[a2, a3], a3, n] + S2[SP[a1, a1], SP[a2, a2], 
     a3, a3, n] - S2[SP[a1, a2], a1, a2, SP[a3, a3], n] - 
    S2[SP[a1, a2], a1, SP[a2, a3], a3, n] - S2[SP[a1, a2], SP[a1, a3], a2, 
     a3, n] + 2*S2[a3, n]*S2[a1, a1, a2, a2, a3, n] + 
    2*S2[a1, a1, a2, a2, SP[a3, a3], n] + 
    S2[a3, n]*S2[a1, a1, a2, a3, a2, n] - 
    2*S2[a2, n]*S2[a1, a1, a2, a3, a3, n] - S2[a1, a1, a2, a3, SP[a2, a3], 
     n] + S2[a1, a1, a2, SP[a3, a3], a2, n] - 
    S2[a2, n]*S2[a1, a1, a3, a2, a3, n] - S2[a1, a1, a3, a2, SP[a2, a3], n] - 
    S2[a1, a1, a3, SP[a2, a2], a3, n] - 2*S2[a1, a1, SP[a2, a2], a3, a3, n] + 
    S2[a1, a1, SP[a2, a3], a2, a3, n] + S2[a1, a1, SP[a2, a3], a3, a2, n] + 
    S2[a3, n]*S2[a1, a2, a1, a2, a3, n] + S2[a1, a2, a1, a2, SP[a3, a3], n] + 
    S2[a1, a2, a1, SP[a2, a3], a3, n] + S2[a1, a2, SP[a1, a3], a2, a3, n] - 
    S2[a2, n]*S2[a1, a3, a1, a2, a3, n] - S2[a1, a3, a1, a2, SP[a2, a3], n] - 
    S2[a1, a3, a1, SP[a2, a2], a3, n] - S2[a1, a3, SP[a1, a2], a2, a3, n] - 
    2*S2[a1, SP[a1, a2], a2, a3, a3, n] - S2[a1, SP[a1, a2], a3, a2, a3, n] + 
    2*S2[a1, SP[a1, a3], a2, a2, a3, n] + S2[a1, SP[a1, a3], a2, a3, a2, n] + 
    S2[a2, a1, a1, a2, SP[a3, a3], n] + S2[a2, a1, a1, SP[a2, a3], a3, n] + 
    S2[a2, a1, SP[a1, a3], a2, a3, n] - S2[a3, n]*S2[a2, a3, a1, a1, a2, n] - 
    S2[a2, a3, a1, a1, SP[a2, a3], n] - S2[a2, a3, a1, SP[a1, a3], a2, n] - 
    S2[a2, a3, SP[a1, a3], a1, a2, n] + S2[a2, SP[a1, a3], a1, a2, a3, n] - 
    S2[a2, SP[a3, a3], a1, a1, a2, n] - 2*S2[a3, n]*
     S2[a3, a1, a1, a2, a2, n] - 2*S2[a3, a1, a1, a2, SP[a2, a3], n] + 
    S2[a2, n]*S2[a3, a1, a1, a3, a2, n] + S2[a3, a1, a1, a3, SP[a2, a2], n] - 
    S2[a3, a1, a1, SP[a2, a3], a2, n] - S2[a3, n]*S2[a3, a1, a2, a1, a2, n] - 
    S2[a3, a1, a2, a1, SP[a2, a3], n] - S2[a3, a1, a2, SP[a1, a3], a2, n] + 
    S2[a2, n]*S2[a3, a1, a3, a1, a2, n] + S2[a3, a1, a3, a1, SP[a2, a2], n] + 
    S2[a3, a1, a3, SP[a1, a2], a2, n] + S2[a3, a1, SP[a1, a2], a3, a2, n] - 
    2*S2[a3, a1, SP[a1, a3], a2, a2, n] + 
    2*S2[a2, n]*S2[a3, a3, a1, a1, a2, n] + 
    2*S2[a3, a3, a1, a1, SP[a2, a2], n] + 
    2*S2[a3, a3, a1, SP[a1, a2], a2, n] + 
    2*S2[a3, a3, SP[a1, a2], a1, a2, n] + S2[a3, SP[a1, a2], a1, a3, a2, n] + 
    S2[a3, SP[a1, a2], a3, a1, a2, n] - 2*S2[a3, SP[a1, a3], a1, a2, a2, n] - 
    S2[a3, SP[a1, a3], a2, a1, a2, n] + 2*S2[a3, SP[a2, a3], a1, a1, a2, n] - 
    2*S2[SP[a1, a1], a2, a2, a3, a3, n] - S2[SP[a1, a1], a2, a3, a2, a3, n] + 
    2*S2[SP[a1, a3], a1, a2, a2, a3, n] + S2[SP[a1, a3], a1, a2, a3, a2, n] + 
    S2[SP[a1, a3], a2, a1, a2, a3, n] + S2[SP[a2, a3], a1, a1, a3, a2, n] + 
    S2[SP[a2, a3], a1, a3, a1, a2, n] + S2[SP[a2, a3], a3, a1, a1, a2, n] - 
    2*S2[SP[a3, a3], a1, a1, a2, a2, n] - S2[SP[a3, a3], a1, a2, a1, a2, n] - 
    S2[a3, a2, a1, a3, a1, a2, n] - S2[a3, a2, a3, a1, a1, a2, n] - 
    2*S2[a3, a3, a2, a1, a1, a2, n] /; 
   MyMemberQ[{{a1, a2, a3}}, {a1, a1, a2, a2, a3, a3}] && a1 != a2 != a3, 
 S2[a3_, a2_, a1_, a2_, a1_, a3_, n_] :> 
  -(S2[a1, a2, a3, n]^2/2) - S2[SP[a1, a1], SP[a2, a2], SP[a3, a3], n]/2 + 
    S2[a1, a1, SP[a2, a2], SP[a3, a3], n] + S2[a1, SP[a1, a2], a2, 
     SP[a3, a3], n] + S2[a1, SP[a1, a2], SP[a2, a3], a3, n] + 
    S2[SP[a1, a1], a2, a2, SP[a3, a3], n] + S2[SP[a1, a1], a2, SP[a2, a3], 
     a3, n] + S2[SP[a1, a1], SP[a2, a2], a3, a3, n] + 
    2*S2[a3, n]*S2[a1, a1, a2, a2, a3, n] - 
    2*S2[a3, n]*S2[a1, a1, a3, a2, a2, n] - 
    2*S2[a1, a1, a3, a2, SP[a2, a3], n] - 
    2*S2[a1, a1, a3, SP[a2, a3], a2, n] - 
    2*S2[a1, a1, SP[a2, a2], a3, a3, n] + 
    2*S2[a1, a1, SP[a2, a3], a2, a3, n] - 
    2*S2[a1, a1, SP[a3, a3], a2, a2, n] + 
    S2[a3, n]*S2[a1, a2, a1, a2, a3, n] - 
    2*S2[a3, n]*S2[a1, a3, a1, a2, a2, n] - 
    2*S2[a1, a3, a1, a2, SP[a2, a3], n] - 
    2*S2[a1, a3, a1, SP[a2, a3], a2, n] - 
    2*S2[a3, n]*S2[a1, a3, a2, a1, a2, n] - 
    2*S2[a1, a3, a2, a1, SP[a2, a3], n] + 
    S2[a1, n]*S2[a1, a3, a2, a3, a2, n] + S2[a1, a3, a2, a3, SP[a1, a2], n] - 
    S2[a1, a3, a2, SP[a1, a3], a2, n] + 2*S2[a1, n]*
     S2[a1, a3, a3, a2, a2, n] + 2*S2[a1, a3, a3, a2, SP[a1, a2], n] + 
    2*S2[a1, a3, a3, SP[a1, a2], a2, n] + S2[a1, a3, SP[a1, a2], a3, a2, n] - 
    2*S2[a1, a3, SP[a2, a3], a1, a2, n] - 
    2*S2[a1, SP[a1, a2], a2, a3, a3, n] - S2[a1, SP[a1, a2], a3, a2, a3, n] + 
    2*S2[a1, SP[a1, a3], a2, a2, a3, n] + S2[a1, SP[a1, a3], a2, a3, a2, n] + 
    S2[a1, SP[a2, a3], a1, a2, a3, n] - 2*S2[a1, SP[a3, a3], a1, a2, a2, n] - 
    2*S2[a1, SP[a3, a3], a2, a1, a2, n] + 
    2*S2[a3, n]*S2[a2, a3, a1, a1, a2, n] + 
    2*S2[a2, a3, a1, a1, SP[a2, a3], n] + 
    2*S2[a2, a3, a1, SP[a1, a3], a2, n] + 
    2*S2[a2, a3, SP[a1, a3], a1, a2, n] + 
    2*S2[a2, SP[a3, a3], a1, a1, a2, n] + 
    2*S2[a3, n]*S2[a3, a1, a1, a2, a2, n] - 
    2*S2[a2, n]*S2[a3, a1, a1, a2, a3, n] - 
    2*S2[a2, n]*S2[a3, a1, a1, a3, a2, n] - 
    2*S2[a3, a1, a1, a3, SP[a2, a2], n] - 
    2*S2[a3, a1, a1, SP[a2, a2], a3, n] + 
    S2[a1, n]*S2[a3, a1, a2, a3, a2, n] + S2[a3, a1, a2, a3, SP[a1, a2], n] + 
    S2[a3, a1, a2, SP[a1, a3], a2, n] - 2*S2[a2, n]*
     S2[a3, a1, a3, a1, a2, n] - 2*S2[a3, a1, a3, a1, SP[a2, a2], n] + 
    2*S2[a1, n]*S2[a3, a1, a3, a2, a2, n] + 
    2*S2[a3, a1, a3, a2, SP[a1, a2], n] - 
    2*S2[a3, a1, SP[a1, a2], a2, a3, n] - S2[a3, a1, SP[a1, a2], a3, a2, n] + 
    4*S2[a3, a1, SP[a1, a3], a2, a2, n] - 
    2*S2[a3, a1, SP[a2, a3], a1, a2, n] + 
    S2[a1, n]*S2[a3, a2, a1, a2, a3, n] + S2[a3, a2, a1, a2, SP[a1, a3], n] + 
    S2[a1, n]*S2[a3, a2, a1, a3, a2, n] + S2[a3, a2, a1, a3, SP[a1, a2], n] + 
    S2[a3, a2, a1, SP[a1, a2], a3, n] + S2[a3, a2, a1, SP[a1, a3], a2, n] + 
    S2[a1, n]*S2[a3, a2, a3, a1, a2, n] + S2[a3, a2, a3, a1, SP[a1, a2], n] - 
    S2[a1, n]*S2[a3, a2, a3, a2, a1, n] - S2[a3, a2, a3, a2, SP[a1, a1], n] + 
    S2[a3, a2, a3, SP[a1, a1], a2, n] - S2[a3, a2, a3, SP[a1, a2], a1, n] + 
    S2[a3, a2, SP[a1, a1], a2, a3, n] + S2[a3, a2, SP[a1, a1], a3, a2, n] + 
    S2[a3, a2, SP[a1, a3], a1, a2, n] - S2[a3, a2, SP[a1, a3], a2, a1, n] - 
    4*S2[a2, n]*S2[a3, a3, a1, a1, a2, n] - 
    4*S2[a3, a3, a1, a1, SP[a2, a2], n] + 
    2*S2[a1, n]*S2[a3, a3, a1, a2, a2, n] + 
    2*S2[a3, a3, a1, a2, SP[a1, a2], n] - 
    2*S2[a3, a3, a1, SP[a1, a2], a2, n] + 
    2*S2[a1, n]*S2[a3, a3, a2, a1, a2, n] + 
    2*S2[a3, a3, a2, a1, SP[a1, a2], n] - 
    2*S2[a1, n]*S2[a3, a3, a2, a2, a1, n] - 
    2*S2[a3, a3, a2, a2, SP[a1, a1], n] + 
    2*S2[a3, a3, a2, SP[a1, a1], a2, n] - 
    2*S2[a3, a3, a2, SP[a1, a2], a1, n] + 
    2*S2[a3, a3, SP[a1, a1], a2, a2, n] - 
    2*S2[a3, a3, SP[a1, a2], a1, a2, n] - 
    2*S2[a3, a3, SP[a1, a2], a2, a1, n] + S2[a3, SP[a1, a1], a2, a3, a2, n] + 
    2*S2[a3, SP[a1, a1], a3, a2, a2, n] - S2[a3, SP[a1, a2], a1, a2, a3, n] - 
    S2[a3, SP[a1, a2], a1, a3, a2, n] - S2[a3, SP[a1, a2], a3, a1, a2, n] - 
    S2[a3, SP[a1, a2], a3, a2, a1, n] + 4*S2[a3, SP[a1, a3], a1, a2, a2, n] + 
    2*S2[a3, SP[a1, a3], a2, a1, a2, n] - 
    2*S2[a3, SP[a1, a3], a2, a2, a1, n] - 
    4*S2[a3, SP[a2, a3], a1, a1, a2, n] - 
    2*S2[SP[a1, a1], a2, a2, a3, a3, n] - S2[SP[a1, a1], a2, a3, a2, a3, n] + 
    S2[SP[a1, a1], a3, a2, a3, a2, n] + 2*S2[SP[a1, a1], a3, a3, a2, a2, n] + 
    2*S2[SP[a1, a3], a1, a2, a2, a3, n] + S2[SP[a1, a3], a1, a2, a3, a2, n] + 
    2*S2[SP[a1, a3], a2, a1, a2, a3, n] + S2[SP[a1, a3], a2, a1, a3, a2, n] + 
    S2[SP[a1, a3], a2, a3, a1, a2, n] - S2[SP[a1, a3], a2, a3, a2, a1, n] - 
    2*S2[SP[a1, a3], a3, a2, a2, a1, n] - 
    2*S2[SP[a2, a3], a1, a1, a2, a3, n] - 
    2*S2[SP[a2, a3], a1, a1, a3, a2, n] - 
    2*S2[SP[a2, a3], a1, a3, a1, a2, n] - 
    2*S2[SP[a2, a3], a3, a1, a1, a2, n] + 
    2*S2[SP[a3, a3], a1, a1, a2, a2, n] - S2[a3, a2, a1, a2, a3, a1, n] + 
    2*S2[a3, a2, a3, a2, a1, a1, n] + 4*S2[a3, a3, a2, a2, a1, a1, n] /; 
   MyMemberQ[{{a1, a2, a3}}, {a1, a1, a2, a2, a3, a3}] && a1 != a2 != a3, 
 S2[a3_, a2_, a1_, a3_, a2_, a1_, n_] :> 
  S2[a1, a2, a3, n]^2/2 + S2[SP[a1, a1], SP[a2, a2], SP[a3, a3], n]/2 - 
    S2[a1, a1, SP[a2, a2], SP[a3, a3], n] - S2[a1, SP[a1, a2], a2, 
     SP[a3, a3], n] - S2[a1, SP[a1, a2], SP[a2, a3], a3, n] - 
    S2[SP[a1, a1], a2, a2, SP[a3, a3], n] - S2[SP[a1, a1], a2, SP[a2, a3], 
     a3, n] - S2[SP[a1, a1], SP[a2, a2], a3, a3, n] - 
    2*S2[a3, n]*S2[a1, a1, a2, a2, a3, n] + 
    2*S2[a3, n]*S2[a1, a1, a3, a2, a2, n] + 
    2*S2[a1, a1, a3, a2, SP[a2, a3], n] + 
    2*S2[a1, a1, a3, SP[a2, a3], a2, n] + 
    2*S2[a1, a1, SP[a2, a2], a3, a3, n] - 
    2*S2[a1, a1, SP[a2, a3], a2, a3, n] + 
    2*S2[a1, a1, SP[a3, a3], a2, a2, n] - 
    S2[a3, n]*S2[a1, a2, a1, a2, a3, n] + 
    2*S2[a3, n]*S2[a1, a3, a1, a2, a2, n] + 
    2*S2[a1, a3, a1, a2, SP[a2, a3], n] + 
    2*S2[a1, a3, a1, SP[a2, a3], a2, n] + 
    S2[a3, n]*S2[a1, a3, a2, a1, a2, n] + S2[a1, a3, a2, a1, SP[a2, a3], n] - 
    S2[a1, n]*S2[a1, a3, a2, a3, a2, n] - S2[a1, a3, a2, a3, SP[a1, a2], n] - 
    2*S2[a1, n]*S2[a1, a3, a3, a2, a2, n] - 
    2*S2[a1, a3, a3, a2, SP[a1, a2], n] - 
    2*S2[a1, a3, a3, SP[a1, a2], a2, n] - S2[a1, a3, SP[a1, a2], a3, a2, n] + 
    S2[a1, a3, SP[a2, a3], a1, a2, n] + 2*S2[a1, SP[a1, a2], a2, a3, a3, n] + 
    S2[a1, SP[a1, a2], a3, a2, a3, n] - 2*S2[a1, SP[a1, a3], a2, a2, a3, n] - 
    S2[a1, SP[a1, a3], a2, a3, a2, n] - S2[a1, SP[a2, a3], a1, a2, a3, n] + 
    2*S2[a1, SP[a3, a3], a1, a2, a2, n] + S2[a1, SP[a3, a3], a2, a1, a2, n] + 
    2*S2[a3, n]*S2[a3, a1, a1, a2, a2, n] + 
    2*S2[a3, a1, a1, a2, SP[a2, a3], n] + 
    2*S2[a3, a1, a1, SP[a2, a3], a2, n] + 
    S2[a3, n]*S2[a3, a1, a2, a1, a2, n] + S2[a3, a1, a2, a1, SP[a2, a3], n] - 
    S2[a1, n]*S2[a3, a1, a2, a3, a2, n] - S2[a3, a1, a2, a3, SP[a1, a2], n] - 
    2*S2[a1, n]*S2[a3, a1, a3, a2, a2, n] - 
    2*S2[a3, a1, a3, a2, SP[a1, a2], n] - 
    2*S2[a3, a1, a3, SP[a1, a2], a2, n] - S2[a3, a1, SP[a1, a2], a3, a2, n] + 
    S2[a3, a1, SP[a2, a3], a1, a2, n] + S2[a1, n]*S2[a3, a2, a3, a2, a1, n] + 
    S2[a3, a2, a3, a2, SP[a1, a1], n] + S2[a3, a2, a3, SP[a1, a2], a1, n] + 
    S2[a3, a2, SP[a1, a3], a2, a1, n] - 2*S2[a1, n]*
     S2[a3, a3, a1, a2, a2, n] - 2*S2[a3, a3, a1, a2, SP[a1, a2], n] - 
    2*S2[a3, a3, a1, SP[a1, a2], a2, n] + 
    2*S2[a1, n]*S2[a3, a3, a2, a2, a1, n] + 
    2*S2[a3, a3, a2, a2, SP[a1, a1], n] + 
    2*S2[a3, a3, a2, SP[a1, a2], a1, n] - 
    2*S2[a3, a3, SP[a1, a1], a2, a2, n] + 
    2*S2[a3, a3, SP[a1, a2], a2, a1, n] - S2[a3, SP[a1, a1], a2, a3, a2, n] - 
    2*S2[a3, SP[a1, a1], a3, a2, a2, n] + S2[a3, SP[a1, a2], a3, a2, a1, n] + 
    S2[a3, SP[a1, a3], a2, a1, a2, n] + 2*S2[a3, SP[a1, a3], a2, a2, a1, n] + 
    2*S2[SP[a1, a1], a2, a2, a3, a3, n] + S2[SP[a1, a1], a2, a3, a2, a3, n] - 
    S2[SP[a1, a1], a3, a2, a3, a2, n] - 2*S2[SP[a1, a1], a3, a3, a2, a2, n] - 
    2*S2[SP[a1, a3], a1, a2, a2, a3, n] - S2[SP[a1, a3], a1, a2, a3, a2, n] - 
    S2[SP[a1, a3], a2, a1, a2, a3, n] + S2[SP[a1, a3], a2, a3, a2, a1, n] + 
    S2[SP[a1, a3], a3, a2, a1, a2, n] + 2*S2[SP[a1, a3], a3, a2, a2, a1, n] + 
    2*S2[SP[a3, a3], a1, a1, a2, a2, n] + S2[SP[a3, a3], a1, a2, a1, a2, n] - 
    S2[a3, a2, a3, a1, a2, a1, n] - 2*S2[a3, a2, a3, a2, a1, a1, n] - 
    2*S2[a3, a3, a2, a1, a2, a1, n] - 4*S2[a3, a3, a2, a2, a1, a1, n] /; 
   MyMemberQ[{{a1, a2, a3}}, {a1, a1, a2, a2, a3, a3}] && a1 != a2 != a3, 
 S2[a3_, a2_, a2_, a1_, a1_, a3_, n_] :> 
  S2[a3, n]*S2[a1, a1, a3, a2, a2, n] + S2[a1, a1, a3, a2, SP[a2, a3], n] + 
    S2[a1, a1, a3, SP[a2, a3], a2, n] + S2[a1, a1, SP[a3, a3], a2, a2, n] + 
    S2[a3, n]*S2[a1, a3, a1, a2, a2, n] + S2[a1, a3, a1, a2, SP[a2, a3], n] + 
    S2[a1, a3, a1, SP[a2, a3], a2, n] + S2[a3, n]*S2[a1, a3, a2, a1, a2, n] + 
    S2[a1, a3, a2, a1, SP[a2, a3], n] - (S2[a1, n]*S2[a1, a3, a2, a2, a3, n])/
     2 - S2[a1, a3, a2, a2, SP[a1, a3], n]/2 - 
    (S2[a1, n]*S2[a1, a3, a2, a3, a2, n])/2 - 
    S2[a1, a3, a2, a3, SP[a1, a2], n]/2 - S2[a1, a3, a2, SP[a1, a2], a3, n]/
     2 + S2[a1, a3, a2, SP[a1, a3], a2, n]/2 - 
    S2[a1, n]*S2[a1, a3, a3, a2, a2, n] - S2[a1, a3, a3, a2, SP[a1, a2], n] - 
    S2[a1, a3, a3, SP[a1, a2], a2, n] - S2[a1, a3, SP[a1, a2], a2, a3, n]/2 - 
    S2[a1, a3, SP[a1, a2], a3, a2, n]/2 + S2[a1, a3, SP[a2, a3], a1, a2, n] - 
    S2[a1, SP[a1, a3], a2, a2, a3, n]/2 - S2[a1, SP[a1, a3], a2, a3, a2, n]/
     2 + S2[a1, SP[a3, a3], a1, a2, a2, n] + S2[a1, SP[a3, a3], a2, a1, a2, 
     n] - S2[a3, n]*S2[a2, a3, a1, a1, a2, n] - S2[a2, a3, a1, a1, 
     SP[a2, a3], n] - S2[a2, a3, a1, SP[a1, a3], a2, n] - 
    S2[a2, a3, SP[a1, a3], a1, a2, n] - S2[a2, SP[a3, a3], a1, a1, a2, n] - 
    S2[a3, n]*S2[a3, a1, a1, a2, a2, n] + 
    S2[a2, n]*S2[a3, a1, a1, a2, a3, n] + 
    S2[a2, n]*S2[a3, a1, a1, a3, a2, n] + S2[a3, a1, a1, a3, SP[a2, a2], n] + 
    S2[a3, a1, a1, SP[a2, a2], a3, n] - (S2[a1, n]*S2[a3, a1, a2, a2, a3, n])/
     2 - S2[a3, a1, a2, a2, SP[a1, a3], n]/2 - 
    (S2[a1, n]*S2[a3, a1, a2, a3, a2, n])/2 - 
    S2[a3, a1, a2, a3, SP[a1, a2], n]/2 - S2[a3, a1, a2, SP[a1, a2], a3, n]/
     2 - S2[a3, a1, a2, SP[a1, a3], a2, n]/2 + 
    S2[a2, n]*S2[a3, a1, a3, a1, a2, n] + S2[a3, a1, a3, a1, SP[a2, a2], n] - 
    S2[a1, n]*S2[a3, a1, a3, a2, a2, n] - S2[a3, a1, a3, a2, SP[a1, a2], n] + 
    S2[a3, a1, SP[a1, a2], a2, a3, n]/2 + S2[a3, a1, SP[a1, a2], a3, a2, n]/
     2 - 2*S2[a3, a1, SP[a1, a3], a2, a2, n] + S2[a3, a1, SP[a2, a3], a1, a2, 
     n] - (S2[a1, n]*S2[a3, a2, a1, a2, a3, n])/2 - 
    S2[a3, a2, a1, a2, SP[a1, a3], n]/2 - 
    (S2[a1, n]*S2[a3, a2, a1, a3, a2, n])/2 - 
    S2[a3, a2, a1, a3, SP[a1, a2], n]/2 - S2[a3, a2, a1, SP[a1, a2], a3, n]/
     2 - S2[a3, a2, a1, SP[a1, a3], a2, n]/2 + 
    (S2[a1, n]*S2[a3, a2, a2, a1, a3, n])/2 + 
    S2[a3, a2, a2, a1, SP[a1, a3], n]/2 + 
    (S2[a1, n]*S2[a3, a2, a2, a3, a1, n])/2 + 
    S2[a3, a2, a2, a3, SP[a1, a1], n]/2 + S2[a3, a2, a2, SP[a1, a1], a3, n]/
     2 + S2[a3, a2, a2, SP[a1, a3], a1, n]/2 - 
    (S2[a1, n]*S2[a3, a2, a3, a1, a2, n])/2 - 
    S2[a3, a2, a3, a1, SP[a1, a2], n]/2 + 
    (S2[a1, n]*S2[a3, a2, a3, a2, a1, n])/2 + 
    S2[a3, a2, a3, a2, SP[a1, a1], n]/2 - S2[a3, a2, a3, SP[a1, a1], a2, n]/
     2 + S2[a3, a2, a3, SP[a1, a2], a1, n]/2 - 
    S2[a3, a2, SP[a1, a1], a2, a3, n]/2 - S2[a3, a2, SP[a1, a1], a3, a2, n]/
     2 + S2[a3, a2, SP[a1, a2], a1, a3, n]/2 + 
    S2[a3, a2, SP[a1, a2], a3, a1, n]/2 - S2[a3, a2, SP[a1, a3], a1, a2, n]/
     2 + S2[a3, a2, SP[a1, a3], a2, a1, n]/2 + 
    2*S2[a2, n]*S2[a3, a3, a1, a1, a2, n] + 
    2*S2[a3, a3, a1, a1, SP[a2, a2], n] - 
    S2[a1, n]*S2[a3, a3, a1, a2, a2, n] - S2[a3, a3, a1, a2, SP[a1, a2], n] + 
    S2[a3, a3, a1, SP[a1, a2], a2, n] - S2[a1, n]*S2[a3, a3, a2, a1, a2, n] - 
    S2[a3, a3, a2, a1, SP[a1, a2], n] + S2[a1, n]*S2[a3, a3, a2, a2, a1, n] + 
    S2[a3, a3, a2, a2, SP[a1, a1], n] - S2[a3, a3, a2, SP[a1, a1], a2, n] + 
    S2[a3, a3, a2, SP[a1, a2], a1, n] - S2[a3, a3, SP[a1, a1], a2, a2, n] + 
    S2[a3, a3, SP[a1, a2], a1, a2, n] + S2[a3, a3, SP[a1, a2], a2, a1, n] - 
    S2[a3, SP[a1, a1], a2, a2, a3, n]/2 - S2[a3, SP[a1, a1], a2, a3, a2, n]/
     2 - S2[a3, SP[a1, a1], a3, a2, a2, n] + 
    S2[a3, SP[a1, a2], a1, a2, a3, n]/2 + S2[a3, SP[a1, a2], a1, a3, a2, n]/
     2 + S2[a3, SP[a1, a2], a2, a1, a3, n]/2 + 
    S2[a3, SP[a1, a2], a2, a3, a1, n]/2 + S2[a3, SP[a1, a2], a3, a1, a2, n]/
     2 + S2[a3, SP[a1, a2], a3, a2, a1, n]/2 - 
    2*S2[a3, SP[a1, a3], a1, a2, a2, n] - S2[a3, SP[a1, a3], a2, a1, a2, n] + 
    S2[a3, SP[a1, a3], a2, a2, a1, n] + 2*S2[a3, SP[a2, a3], a1, a1, a2, n] - 
    S2[SP[a1, a1], a3, a2, a2, a3, n]/2 - S2[SP[a1, a1], a3, a2, a3, a2, n]/
     2 - S2[SP[a1, a1], a3, a3, a2, a2, n] - 
    S2[SP[a1, a3], a1, a2, a2, a3, n]/2 - S2[SP[a1, a3], a1, a2, a3, a2, n]/
     2 - S2[SP[a1, a3], a2, a1, a2, a3, n]/2 - 
    S2[SP[a1, a3], a2, a1, a3, a2, n]/2 + S2[SP[a1, a3], a2, a2, a1, a3, n]/
     2 + S2[SP[a1, a3], a2, a2, a3, a1, n]/2 - 
    S2[SP[a1, a3], a2, a3, a1, a2, n]/2 + S2[SP[a1, a3], a2, a3, a2, a1, n]/
     2 + S2[SP[a1, a3], a3, a2, a2, a1, n] + S2[SP[a2, a3], a1, a1, a2, a3, 
     n] + S2[SP[a2, a3], a1, a1, a3, a2, n] + S2[SP[a2, a3], a1, a3, a1, a2, 
     n] + S2[SP[a2, a3], a3, a1, a1, a2, n] - S2[SP[a3, a3], a1, a1, a2, a2, 
     n] - S2[a3, a2, a2, a1, a3, a1, n] - S2[a3, a2, a2, a3, a1, a1, n] - 
    S2[a3, a2, a3, a2, a1, a1, n] - 2*S2[a3, a3, a2, a2, a1, a1, n] /; 
   MyMemberQ[{{a1, a2, a3}}, {a1, a1, a2, a2, a3, a3}] && a1 != a2 != a3, 
 S2[a1_, a1_, a1_, a2_, a3_, a4_, n_] :> 
  S2[a3, a4, n]*S2[a1, a1, a1, a2, n] - S2[a1, a1, SP[a1, a3], SP[a2, a4], 
     n] - S2[a1, SP[a1, a3], a1, SP[a2, a4], n] - 
    S2[a1, SP[a1, a3], SP[a1, a4], a2, n] - S2[SP[a1, a3], a1, a1, 
     SP[a2, a4], n] - S2[SP[a1, a3], a1, SP[a1, a4], a2, n] - 
    S2[SP[a1, a3], SP[a1, a4], a1, a2, n] + 
    S2[a4, n]*S2[a1, a1, a1, a2, a3, n] - 
    S2[a3, n]*S2[a1, a1, a1, a2, a4, n] + S2[a1, a1, a1, a3, SP[a2, a4], n] - 
    S2[a3, n]*S2[a1, a1, a1, a4, a2, n] - S2[a1, a1, a1, a4, SP[a2, a3], n] + 
    S2[a1, a1, a1, SP[a2, a4], a3, n] - S2[a1, a1, a1, SP[a3, a4], a2, n] + 
    S2[a1, a1, a3, a1, SP[a2, a4], n] + S2[a1, a1, a3, SP[a1, a4], a2, n] - 
    S2[a3, n]*S2[a1, a1, a4, a1, a2, n] - S2[a1, a1, a4, a1, SP[a2, a3], n] + 
    (S2[a1, n]*S2[a1, a1, a4, a3, a2, n])/3 + 
    S2[a1, a1, a4, a3, SP[a1, a2], n]/3 - 
    (2*S2[a1, a1, a4, SP[a1, a3], a2, n])/3 + S2[a1, a1, SP[a1, a4], a2, a3, 
     n] + S2[a1, a1, SP[a1, a4], a3, a2, n]/3 - S2[a1, a1, SP[a3, a4], a1, 
     a2, n] + S2[a1, a3, a1, a1, SP[a2, a4], n] + S2[a1, a3, a1, SP[a1, a4], 
     a2, n] + S2[a1, a3, SP[a1, a4], a1, a2, n] - 
    S2[a3, n]*S2[a1, a4, a1, a1, a2, n] - S2[a1, a4, a1, a1, SP[a2, a3], n] + 
    (S2[a1, n]*S2[a1, a4, a1, a3, a2, n])/3 + 
    S2[a1, a4, a1, a3, SP[a1, a2], n]/3 - 
    (2*S2[a1, a4, a1, SP[a1, a3], a2, n])/3 + 
    (S2[a1, n]*S2[a1, a4, a3, a1, a2, n])/3 + 
    S2[a1, a4, a3, a1, SP[a1, a2], n]/3 - 
    (S2[a1, n]*S2[a1, a4, a3, a2, a1, n])/6 - 
    S2[a1, a4, a3, a2, SP[a1, a1], n]/6 + S2[a1, a4, a3, SP[a1, a1], a2, n]/
     3 - S2[a1, a4, a3, SP[a1, a2], a1, n]/6 + 
    S2[a1, a4, SP[a1, a1], a3, a2, n]/3 - 
    (2*S2[a1, a4, SP[a1, a3], a1, a2, n])/3 - 
    S2[a1, a4, SP[a1, a3], a2, a1, n]/6 + S2[a1, SP[a1, a1], a4, a3, a2, n]/
     3 + S2[a1, SP[a1, a4], a1, a2, a3, n] + 
    S2[a1, SP[a1, a4], a1, a3, a2, n]/3 + S2[a1, SP[a1, a4], a3, a1, a2, n]/
     3 - S2[a1, SP[a1, a4], a3, a2, a1, n]/6 - S2[a1, SP[a3, a4], a1, a1, a2, 
     n] + S2[a3, a1, a1, a1, SP[a2, a4], n] + S2[a3, a1, a1, SP[a1, a4], a2, 
     n] + S2[a3, a1, SP[a1, a4], a1, a2, n] + S2[a3, SP[a1, a4], a1, a1, a2, 
     n] - S2[a3, n]*S2[a4, a1, a1, a1, a2, n] - S2[a4, a1, a1, a1, 
     SP[a2, a3], n] + (S2[a1, n]*S2[a4, a1, a1, a3, a2, n])/3 + 
    S2[a4, a1, a1, a3, SP[a1, a2], n]/3 - 
    (2*S2[a4, a1, a1, SP[a1, a3], a2, n])/3 + 
    (S2[a1, n]*S2[a4, a1, a3, a1, a2, n])/3 + 
    S2[a4, a1, a3, a1, SP[a1, a2], n]/3 - 
    (S2[a1, n]*S2[a4, a1, a3, a2, a1, n])/6 - 
    S2[a4, a1, a3, a2, SP[a1, a1], n]/6 + S2[a4, a1, a3, SP[a1, a1], a2, n]/
     3 - S2[a4, a1, a3, SP[a1, a2], a1, n]/6 + 
    S2[a4, a1, SP[a1, a1], a3, a2, n]/3 - 
    (2*S2[a4, a1, SP[a1, a3], a1, a2, n])/3 - 
    S2[a4, a1, SP[a1, a3], a2, a1, n]/6 + 
    (S2[a1, n]*S2[a4, a3, a1, a1, a2, n])/3 + 
    S2[a4, a3, a1, a1, SP[a1, a2], n]/3 - 
    (S2[a1, n]*S2[a4, a3, a1, a2, a1, n])/6 - 
    S2[a4, a3, a1, a2, SP[a1, a1], n]/6 + S2[a4, a3, a1, SP[a1, a1], a2, n]/
     3 - S2[a4, a3, a1, SP[a1, a2], a1, n]/6 + 
    (S2[a1, n]*S2[a4, a3, a2, a1, a1, n])/3 + 
    S2[a4, a3, a2, a1, SP[a1, a1], n]/3 + S2[a4, a3, a2, SP[a1, a1], a1, n]/
     3 + S2[a4, a3, SP[a1, a1], a1, a2, n]/3 - 
    S2[a4, a3, SP[a1, a1], a2, a1, n]/6 + S2[a4, a3, SP[a1, a2], a1, a1, n]/
     3 + S2[a4, SP[a1, a1], a1, a3, a2, n]/3 + 
    S2[a4, SP[a1, a1], a3, a1, a2, n]/3 - S2[a4, SP[a1, a1], a3, a2, a1, n]/
     6 - (2*S2[a4, SP[a1, a3], a1, a1, a2, n])/3 - 
    S2[a4, SP[a1, a3], a1, a2, a1, n]/6 + S2[a4, SP[a1, a3], a2, a1, a1, n]/
     3 + S2[SP[a1, a1], a1, a4, a3, a2, n]/3 + 
    S2[SP[a1, a1], a4, a1, a3, a2, n]/3 + S2[SP[a1, a1], a4, a3, a1, a2, n]/
     3 - S2[SP[a1, a1], a4, a3, a2, a1, n]/6 + S2[SP[a1, a4], a1, a1, a2, a3, 
     n] + S2[SP[a1, a4], a1, a1, a3, a2, n]/3 + 
    S2[SP[a1, a4], a1, a3, a1, a2, n]/3 - S2[SP[a1, a4], a1, a3, a2, a1, n]/
     6 + S2[SP[a1, a4], a3, a1, a1, a2, n]/3 - 
    S2[SP[a1, a4], a3, a1, a2, a1, n]/6 + S2[SP[a1, a4], a3, a2, a1, a1, n]/
     3 - S2[SP[a3, a4], a1, a1, a1, a2, n] - S2[a4, a3, a2, a1, a1, a1, n] /; 
   MyMemberQ[{{a2, a3, a4}}, {a1, a1, a1, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a1_, a1_, a1_, a2_, a4_, a3_, n_] :> 
  -(S2[a3, a4, n]*S2[a1, a1, a1, a2, n]) + S2[a1, a1, SP[a1, a3], SP[a2, a4], 
     n] + S2[a1, SP[a1, a3], a1, SP[a2, a4], n] + 
    S2[a1, SP[a1, a3], SP[a1, a4], a2, n] + S2[SP[a1, a3], a1, a1, 
     SP[a2, a4], n] + S2[SP[a1, a3], a1, SP[a1, a4], a2, n] + 
    S2[SP[a1, a3], SP[a1, a4], a1, a2, n] + 
    S2[a3, n]*S2[a1, a1, a1, a2, a4, n] + S2[a1, a1, a1, a2, SP[a3, a4], n] - 
    S2[a1, a1, a1, a3, SP[a2, a4], n] + S2[a3, n]*S2[a1, a1, a1, a4, a2, n] + 
    S2[a1, a1, a1, a4, SP[a2, a3], n] + S2[a1, a1, a1, SP[a3, a4], a2, n] - 
    S2[a1, a1, a3, a1, SP[a2, a4], n] - S2[a1, a1, a3, SP[a1, a4], a2, n] + 
    S2[a3, n]*S2[a1, a1, a4, a1, a2, n] + S2[a1, a1, a4, a1, SP[a2, a3], n] - 
    (S2[a1, n]*S2[a1, a1, a4, a2, a3, n])/3 - 
    S2[a1, a1, a4, a2, SP[a1, a3], n]/3 - 
    (S2[a1, n]*S2[a1, a1, a4, a3, a2, n])/3 - 
    S2[a1, a1, a4, a3, SP[a1, a2], n]/3 - S2[a1, a1, a4, SP[a1, a2], a3, n]/
     3 + (2*S2[a1, a1, a4, SP[a1, a3], a2, n])/3 - 
    S2[a1, a1, SP[a1, a4], a2, a3, n]/3 - S2[a1, a1, SP[a1, a4], a3, a2, n]/
     3 + S2[a1, a1, SP[a3, a4], a1, a2, n] - S2[a1, a3, a1, a1, SP[a2, a4], 
     n] - S2[a1, a3, a1, SP[a1, a4], a2, n] - S2[a1, a3, SP[a1, a4], a1, a2, 
     n] + S2[a3, n]*S2[a1, a4, a1, a1, a2, n] + S2[a1, a4, a1, a1, 
     SP[a2, a3], n] - (S2[a1, n]*S2[a1, a4, a1, a2, a3, n])/3 - 
    S2[a1, a4, a1, a2, SP[a1, a3], n]/3 - 
    (S2[a1, n]*S2[a1, a4, a1, a3, a2, n])/3 - 
    S2[a1, a4, a1, a3, SP[a1, a2], n]/3 - S2[a1, a4, a1, SP[a1, a2], a3, n]/
     3 + (2*S2[a1, a4, a1, SP[a1, a3], a2, n])/3 + 
    (S2[a1, n]*S2[a1, a4, a2, a1, a3, n])/6 + 
    S2[a1, a4, a2, a1, SP[a1, a3], n]/6 + 
    (S2[a1, n]*S2[a1, a4, a2, a3, a1, n])/6 + 
    S2[a1, a4, a2, a3, SP[a1, a1], n]/6 + S2[a1, a4, a2, SP[a1, a1], a3, n]/
     6 + S2[a1, a4, a2, SP[a1, a3], a1, n]/6 - 
    (S2[a1, n]*S2[a1, a4, a3, a1, a2, n])/3 - 
    S2[a1, a4, a3, a1, SP[a1, a2], n]/3 + 
    (S2[a1, n]*S2[a1, a4, a3, a2, a1, n])/6 + 
    S2[a1, a4, a3, a2, SP[a1, a1], n]/6 - S2[a1, a4, a3, SP[a1, a1], a2, n]/
     3 + S2[a1, a4, a3, SP[a1, a2], a1, n]/6 - 
    S2[a1, a4, SP[a1, a1], a2, a3, n]/3 - S2[a1, a4, SP[a1, a1], a3, a2, n]/
     3 + S2[a1, a4, SP[a1, a2], a1, a3, n]/6 + 
    S2[a1, a4, SP[a1, a2], a3, a1, n]/6 + 
    (2*S2[a1, a4, SP[a1, a3], a1, a2, n])/3 + 
    S2[a1, a4, SP[a1, a3], a2, a1, n]/6 - S2[a1, SP[a1, a1], a4, a2, a3, n]/
     3 - S2[a1, SP[a1, a1], a4, a3, a2, n]/3 - 
    S2[a1, SP[a1, a4], a1, a2, a3, n]/3 - S2[a1, SP[a1, a4], a1, a3, a2, n]/
     3 + S2[a1, SP[a1, a4], a2, a1, a3, n]/6 + 
    S2[a1, SP[a1, a4], a2, a3, a1, n]/6 - S2[a1, SP[a1, a4], a3, a1, a2, n]/
     3 + S2[a1, SP[a1, a4], a3, a2, a1, n]/6 + S2[a1, SP[a3, a4], a1, a1, a2, 
     n] - S2[a3, a1, a1, a1, SP[a2, a4], n] - S2[a3, a1, a1, SP[a1, a4], a2, 
     n] - S2[a3, a1, SP[a1, a4], a1, a2, n] - S2[a3, SP[a1, a4], a1, a1, a2, 
     n] + S2[a3, n]*S2[a4, a1, a1, a1, a2, n] + S2[a4, a1, a1, a1, 
     SP[a2, a3], n] - (S2[a1, n]*S2[a4, a1, a1, a2, a3, n])/3 - 
    S2[a4, a1, a1, a2, SP[a1, a3], n]/3 - 
    (S2[a1, n]*S2[a4, a1, a1, a3, a2, n])/3 - 
    S2[a4, a1, a1, a3, SP[a1, a2], n]/3 - S2[a4, a1, a1, SP[a1, a2], a3, n]/
     3 + (2*S2[a4, a1, a1, SP[a1, a3], a2, n])/3 + 
    (S2[a1, n]*S2[a4, a1, a2, a1, a3, n])/6 + 
    S2[a4, a1, a2, a1, SP[a1, a3], n]/6 + 
    (S2[a1, n]*S2[a4, a1, a2, a3, a1, n])/6 + 
    S2[a4, a1, a2, a3, SP[a1, a1], n]/6 + S2[a4, a1, a2, SP[a1, a1], a3, n]/
     6 + S2[a4, a1, a2, SP[a1, a3], a1, n]/6 - 
    (S2[a1, n]*S2[a4, a1, a3, a1, a2, n])/3 - 
    S2[a4, a1, a3, a1, SP[a1, a2], n]/3 + 
    (S2[a1, n]*S2[a4, a1, a3, a2, a1, n])/6 + 
    S2[a4, a1, a3, a2, SP[a1, a1], n]/6 - S2[a4, a1, a3, SP[a1, a1], a2, n]/
     3 + S2[a4, a1, a3, SP[a1, a2], a1, n]/6 - 
    S2[a4, a1, SP[a1, a1], a2, a3, n]/3 - S2[a4, a1, SP[a1, a1], a3, a2, n]/
     3 + S2[a4, a1, SP[a1, a2], a1, a3, n]/6 + 
    S2[a4, a1, SP[a1, a2], a3, a1, n]/6 + 
    (2*S2[a4, a1, SP[a1, a3], a1, a2, n])/3 + 
    S2[a4, a1, SP[a1, a3], a2, a1, n]/6 - 
    (S2[a1, n]*S2[a4, a2, a1, a1, a3, n])/3 - 
    S2[a4, a2, a1, a1, SP[a1, a3], n]/3 - 
    (S2[a1, n]*S2[a4, a2, a1, a3, a1, n])/3 - 
    S2[a4, a2, a1, a3, SP[a1, a1], n]/3 - S2[a4, a2, a1, SP[a1, a1], a3, n]/
     3 - S2[a4, a2, a1, SP[a1, a3], a1, n]/3 - 
    (S2[a1, n]*S2[a4, a2, a3, a1, a1, n])/3 - 
    S2[a4, a2, a3, a1, SP[a1, a1], n]/3 - S2[a4, a2, a3, SP[a1, a1], a1, n]/
     3 - S2[a4, a2, SP[a1, a1], a1, a3, n]/3 - 
    S2[a4, a2, SP[a1, a1], a3, a1, n]/3 - S2[a4, a2, SP[a1, a3], a1, a1, n]/
     3 - (S2[a1, n]*S2[a4, a3, a1, a1, a2, n])/3 - 
    S2[a4, a3, a1, a1, SP[a1, a2], n]/3 + 
    (S2[a1, n]*S2[a4, a3, a1, a2, a1, n])/6 + 
    S2[a4, a3, a1, a2, SP[a1, a1], n]/6 - S2[a4, a3, a1, SP[a1, a1], a2, n]/
     3 + S2[a4, a3, a1, SP[a1, a2], a1, n]/6 - 
    (S2[a1, n]*S2[a4, a3, a2, a1, a1, n])/3 - 
    S2[a4, a3, a2, a1, SP[a1, a1], n]/3 - S2[a4, a3, a2, SP[a1, a1], a1, n]/
     3 - S2[a4, a3, SP[a1, a1], a1, a2, n]/3 + 
    S2[a4, a3, SP[a1, a1], a2, a1, n]/6 - S2[a4, a3, SP[a1, a2], a1, a1, n]/
     3 - S2[a4, SP[a1, a1], a1, a2, a3, n]/3 - 
    S2[a4, SP[a1, a1], a1, a3, a2, n]/3 + S2[a4, SP[a1, a1], a2, a1, a3, n]/
     6 + S2[a4, SP[a1, a1], a2, a3, a1, n]/6 - 
    S2[a4, SP[a1, a1], a3, a1, a2, n]/3 + S2[a4, SP[a1, a1], a3, a2, a1, n]/
     6 - S2[a4, SP[a1, a2], a1, a1, a3, n]/3 - 
    S2[a4, SP[a1, a2], a1, a3, a1, n]/3 - S2[a4, SP[a1, a2], a3, a1, a1, n]/
     3 + (2*S2[a4, SP[a1, a3], a1, a1, a2, n])/3 + 
    S2[a4, SP[a1, a3], a1, a2, a1, n]/6 - S2[a4, SP[a1, a3], a2, a1, a1, n]/
     3 - S2[SP[a1, a1], a1, a4, a2, a3, n]/3 - 
    S2[SP[a1, a1], a1, a4, a3, a2, n]/3 - S2[SP[a1, a1], a4, a1, a2, a3, n]/
     3 - S2[SP[a1, a1], a4, a1, a3, a2, n]/3 + 
    S2[SP[a1, a1], a4, a2, a1, a3, n]/6 + S2[SP[a1, a1], a4, a2, a3, a1, n]/
     6 - S2[SP[a1, a1], a4, a3, a1, a2, n]/3 + 
    S2[SP[a1, a1], a4, a3, a2, a1, n]/6 - S2[SP[a1, a4], a1, a1, a2, a3, n]/
     3 - S2[SP[a1, a4], a1, a1, a3, a2, n]/3 + 
    S2[SP[a1, a4], a1, a2, a1, a3, n]/6 + S2[SP[a1, a4], a1, a2, a3, a1, n]/
     6 - S2[SP[a1, a4], a1, a3, a1, a2, n]/3 + 
    S2[SP[a1, a4], a1, a3, a2, a1, n]/6 - S2[SP[a1, a4], a2, a1, a1, a3, n]/
     3 - S2[SP[a1, a4], a2, a1, a3, a1, n]/3 - 
    S2[SP[a1, a4], a2, a3, a1, a1, n]/3 - S2[SP[a1, a4], a3, a1, a1, a2, n]/
     3 + S2[SP[a1, a4], a3, a1, a2, a1, n]/6 - 
    S2[SP[a1, a4], a3, a2, a1, a1, n]/3 + S2[SP[a3, a4], a1, a1, a1, a2, n] + 
    S2[a4, a2, a1, a1, a1, a3, n] + S2[a4, a2, a1, a1, a3, a1, n] + 
    S2[a4, a2, a1, a3, a1, a1, n] + S2[a4, a2, a3, a1, a1, a1, n] + 
    S2[a4, a3, a2, a1, a1, a1, n] /; 
   MyMemberQ[{{a2, a3, a4}}, {a1, a1, a1, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a1_, a1_, a1_, a3_, a2_, a4_, n_] :> 
  S2[a2, a4, n]*S2[a1, a1, a1, a3, n] - S2[a1, a1, SP[a1, a2], SP[a3, a4], 
     n] - S2[a1, SP[a1, a2], a1, SP[a3, a4], n] - 
    S2[a1, SP[a1, a2], SP[a1, a4], a3, n] - S2[SP[a1, a2], a1, a1, 
     SP[a3, a4], n] - S2[SP[a1, a2], a1, SP[a1, a4], a3, n] - 
    S2[SP[a1, a2], SP[a1, a4], a1, a3, n] + S2[a1, a1, a1, a2, SP[a3, a4], 
     n] + S2[a4, n]*S2[a1, a1, a1, a3, a2, n] - 
    S2[a2, n]*S2[a1, a1, a1, a3, a4, n] - 
    S2[a2, n]*S2[a1, a1, a1, a4, a3, n] - S2[a1, a1, a1, a4, SP[a2, a3], n] - 
    S2[a1, a1, a1, SP[a2, a4], a3, n] + S2[a1, a1, a1, SP[a3, a4], a2, n] + 
    S2[a1, a1, a2, a1, SP[a3, a4], n] + S2[a1, a1, a2, SP[a1, a4], a3, n] - 
    S2[a2, n]*S2[a1, a1, a4, a1, a3, n] - S2[a1, a1, a4, a1, SP[a2, a3], n] + 
    (S2[a1, n]*S2[a1, a1, a4, a2, a3, n])/3 + 
    S2[a1, a1, a4, a2, SP[a1, a3], n]/3 - 
    (2*S2[a1, a1, a4, SP[a1, a2], a3, n])/3 + 
    S2[a1, a1, SP[a1, a4], a2, a3, n]/3 + S2[a1, a1, SP[a1, a4], a3, a2, n] - 
    S2[a1, a1, SP[a2, a4], a1, a3, n] + S2[a1, a2, a1, a1, SP[a3, a4], n] + 
    S2[a1, a2, a1, SP[a1, a4], a3, n] + S2[a1, a2, SP[a1, a4], a1, a3, n] - 
    S2[a2, n]*S2[a1, a4, a1, a1, a3, n] - S2[a1, a4, a1, a1, SP[a2, a3], n] + 
    (S2[a1, n]*S2[a1, a4, a1, a2, a3, n])/3 + 
    S2[a1, a4, a1, a2, SP[a1, a3], n]/3 - 
    (2*S2[a1, a4, a1, SP[a1, a2], a3, n])/3 + 
    (S2[a1, n]*S2[a1, a4, a2, a1, a3, n])/3 + 
    S2[a1, a4, a2, a1, SP[a1, a3], n]/3 - 
    (S2[a1, n]*S2[a1, a4, a2, a3, a1, n])/6 - 
    S2[a1, a4, a2, a3, SP[a1, a1], n]/6 + S2[a1, a4, a2, SP[a1, a1], a3, n]/
     3 - S2[a1, a4, a2, SP[a1, a3], a1, n]/6 + 
    S2[a1, a4, SP[a1, a1], a2, a3, n]/3 - 
    (2*S2[a1, a4, SP[a1, a2], a1, a3, n])/3 - 
    S2[a1, a4, SP[a1, a2], a3, a1, n]/6 + S2[a1, SP[a1, a1], a4, a2, a3, n]/
     3 + S2[a1, SP[a1, a4], a1, a2, a3, n]/3 + S2[a1, SP[a1, a4], a1, a3, a2, 
     n] + S2[a1, SP[a1, a4], a2, a1, a3, n]/3 - 
    S2[a1, SP[a1, a4], a2, a3, a1, n]/6 - S2[a1, SP[a2, a4], a1, a1, a3, n] + 
    S2[a2, a1, a1, a1, SP[a3, a4], n] + S2[a2, a1, a1, SP[a1, a4], a3, n] + 
    S2[a2, a1, SP[a1, a4], a1, a3, n] + S2[a2, SP[a1, a4], a1, a1, a3, n] - 
    S2[a2, n]*S2[a4, a1, a1, a1, a3, n] - S2[a4, a1, a1, a1, SP[a2, a3], n] + 
    (S2[a1, n]*S2[a4, a1, a1, a2, a3, n])/3 + 
    S2[a4, a1, a1, a2, SP[a1, a3], n]/3 - 
    (2*S2[a4, a1, a1, SP[a1, a2], a3, n])/3 + 
    (S2[a1, n]*S2[a4, a1, a2, a1, a3, n])/3 + 
    S2[a4, a1, a2, a1, SP[a1, a3], n]/3 - 
    (S2[a1, n]*S2[a4, a1, a2, a3, a1, n])/6 - 
    S2[a4, a1, a2, a3, SP[a1, a1], n]/6 + S2[a4, a1, a2, SP[a1, a1], a3, n]/
     3 - S2[a4, a1, a2, SP[a1, a3], a1, n]/6 + 
    S2[a4, a1, SP[a1, a1], a2, a3, n]/3 - 
    (2*S2[a4, a1, SP[a1, a2], a1, a3, n])/3 - 
    S2[a4, a1, SP[a1, a2], a3, a1, n]/6 + 
    (S2[a1, n]*S2[a4, a2, a1, a1, a3, n])/3 + 
    S2[a4, a2, a1, a1, SP[a1, a3], n]/3 - 
    (S2[a1, n]*S2[a4, a2, a1, a3, a1, n])/6 - 
    S2[a4, a2, a1, a3, SP[a1, a1], n]/6 + S2[a4, a2, a1, SP[a1, a1], a3, n]/
     3 - S2[a4, a2, a1, SP[a1, a3], a1, n]/6 + 
    (S2[a1, n]*S2[a4, a2, a3, a1, a1, n])/3 + 
    S2[a4, a2, a3, a1, SP[a1, a1], n]/3 + S2[a4, a2, a3, SP[a1, a1], a1, n]/
     3 + S2[a4, a2, SP[a1, a1], a1, a3, n]/3 - 
    S2[a4, a2, SP[a1, a1], a3, a1, n]/6 + S2[a4, a2, SP[a1, a3], a1, a1, n]/
     3 + S2[a4, SP[a1, a1], a1, a2, a3, n]/3 + 
    S2[a4, SP[a1, a1], a2, a1, a3, n]/3 - S2[a4, SP[a1, a1], a2, a3, a1, n]/
     6 - (2*S2[a4, SP[a1, a2], a1, a1, a3, n])/3 - 
    S2[a4, SP[a1, a2], a1, a3, a1, n]/6 + S2[a4, SP[a1, a2], a3, a1, a1, n]/
     3 + S2[SP[a1, a1], a1, a4, a2, a3, n]/3 + 
    S2[SP[a1, a1], a4, a1, a2, a3, n]/3 + S2[SP[a1, a1], a4, a2, a1, a3, n]/
     3 - S2[SP[a1, a1], a4, a2, a3, a1, n]/6 + 
    S2[SP[a1, a4], a1, a1, a2, a3, n]/3 + S2[SP[a1, a4], a1, a1, a3, a2, n] + 
    S2[SP[a1, a4], a1, a2, a1, a3, n]/3 - S2[SP[a1, a4], a1, a2, a3, a1, n]/
     6 + S2[SP[a1, a4], a2, a1, a1, a3, n]/3 - 
    S2[SP[a1, a4], a2, a1, a3, a1, n]/6 + S2[SP[a1, a4], a2, a3, a1, a1, n]/
     3 - S2[SP[a2, a4], a1, a1, a1, a3, n] - S2[a4, a2, a3, a1, a1, a1, n] /; 
   MyMemberQ[{{a2, a3, a4}}, {a1, a1, a1, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a1_, a1_, a1_, a3_, a4_, a2_, n_] :> 
  -(S2[a2, a4, n]*S2[a1, a1, a1, a3, n]) + S2[a1, a1, SP[a1, a2], SP[a3, a4], 
     n] + S2[a1, SP[a1, a2], a1, SP[a3, a4], n] + 
    S2[a1, SP[a1, a2], SP[a1, a4], a3, n] + S2[SP[a1, a2], a1, a1, 
     SP[a3, a4], n] + S2[SP[a1, a2], a1, SP[a1, a4], a3, n] + 
    S2[SP[a1, a2], SP[a1, a4], a1, a3, n] - S2[a1, a1, a1, a2, SP[a3, a4], 
     n] + S2[a2, n]*S2[a1, a1, a1, a3, a4, n] + S2[a1, a1, a1, a3, 
     SP[a2, a4], n] + S2[a2, n]*S2[a1, a1, a1, a4, a3, n] + 
    S2[a1, a1, a1, a4, SP[a2, a3], n] + S2[a1, a1, a1, SP[a2, a4], a3, n] - 
    S2[a1, a1, a2, a1, SP[a3, a4], n] - S2[a1, a1, a2, SP[a1, a4], a3, n] + 
    S2[a2, n]*S2[a1, a1, a4, a1, a3, n] + S2[a1, a1, a4, a1, SP[a2, a3], n] - 
    (S2[a1, n]*S2[a1, a1, a4, a2, a3, n])/3 - 
    S2[a1, a1, a4, a2, SP[a1, a3], n]/3 - 
    (S2[a1, n]*S2[a1, a1, a4, a3, a2, n])/3 - 
    S2[a1, a1, a4, a3, SP[a1, a2], n]/3 + 
    (2*S2[a1, a1, a4, SP[a1, a2], a3, n])/3 - 
    S2[a1, a1, a4, SP[a1, a3], a2, n]/3 - S2[a1, a1, SP[a1, a4], a2, a3, n]/
     3 - S2[a1, a1, SP[a1, a4], a3, a2, n]/3 + S2[a1, a1, SP[a2, a4], a1, a3, 
     n] - S2[a1, a2, a1, a1, SP[a3, a4], n] - S2[a1, a2, a1, SP[a1, a4], a3, 
     n] - S2[a1, a2, SP[a1, a4], a1, a3, n] + 
    S2[a2, n]*S2[a1, a4, a1, a1, a3, n] + S2[a1, a4, a1, a1, SP[a2, a3], n] - 
    (S2[a1, n]*S2[a1, a4, a1, a2, a3, n])/3 - 
    S2[a1, a4, a1, a2, SP[a1, a3], n]/3 - 
    (S2[a1, n]*S2[a1, a4, a1, a3, a2, n])/3 - 
    S2[a1, a4, a1, a3, SP[a1, a2], n]/3 + 
    (2*S2[a1, a4, a1, SP[a1, a2], a3, n])/3 - 
    S2[a1, a4, a1, SP[a1, a3], a2, n]/3 - 
    (S2[a1, n]*S2[a1, a4, a2, a1, a3, n])/3 - 
    S2[a1, a4, a2, a1, SP[a1, a3], n]/3 + 
    (S2[a1, n]*S2[a1, a4, a2, a3, a1, n])/6 + 
    S2[a1, a4, a2, a3, SP[a1, a1], n]/6 - S2[a1, a4, a2, SP[a1, a1], a3, n]/
     3 + S2[a1, a4, a2, SP[a1, a3], a1, n]/6 + 
    (S2[a1, n]*S2[a1, a4, a3, a1, a2, n])/6 + 
    S2[a1, a4, a3, a1, SP[a1, a2], n]/6 + 
    (S2[a1, n]*S2[a1, a4, a3, a2, a1, n])/6 + 
    S2[a1, a4, a3, a2, SP[a1, a1], n]/6 + S2[a1, a4, a3, SP[a1, a1], a2, n]/
     6 + S2[a1, a4, a3, SP[a1, a2], a1, n]/6 - 
    S2[a1, a4, SP[a1, a1], a2, a3, n]/3 - S2[a1, a4, SP[a1, a1], a3, a2, n]/
     3 + (2*S2[a1, a4, SP[a1, a2], a1, a3, n])/3 + 
    S2[a1, a4, SP[a1, a2], a3, a1, n]/6 + S2[a1, a4, SP[a1, a3], a1, a2, n]/
     6 + S2[a1, a4, SP[a1, a3], a2, a1, n]/6 - 
    S2[a1, SP[a1, a1], a4, a2, a3, n]/3 - S2[a1, SP[a1, a1], a4, a3, a2, n]/
     3 - S2[a1, SP[a1, a4], a1, a2, a3, n]/3 - 
    S2[a1, SP[a1, a4], a1, a3, a2, n]/3 - S2[a1, SP[a1, a4], a2, a1, a3, n]/
     3 + S2[a1, SP[a1, a4], a2, a3, a1, n]/6 + 
    S2[a1, SP[a1, a4], a3, a1, a2, n]/6 + S2[a1, SP[a1, a4], a3, a2, a1, n]/
     6 + S2[a1, SP[a2, a4], a1, a1, a3, n] - S2[a2, a1, a1, a1, SP[a3, a4], 
     n] - S2[a2, a1, a1, SP[a1, a4], a3, n] - S2[a2, a1, SP[a1, a4], a1, a3, 
     n] - S2[a2, SP[a1, a4], a1, a1, a3, n] + 
    S2[a2, n]*S2[a4, a1, a1, a1, a3, n] + S2[a4, a1, a1, a1, SP[a2, a3], n] - 
    (S2[a1, n]*S2[a4, a1, a1, a2, a3, n])/3 - 
    S2[a4, a1, a1, a2, SP[a1, a3], n]/3 - 
    (S2[a1, n]*S2[a4, a1, a1, a3, a2, n])/3 - 
    S2[a4, a1, a1, a3, SP[a1, a2], n]/3 + 
    (2*S2[a4, a1, a1, SP[a1, a2], a3, n])/3 - 
    S2[a4, a1, a1, SP[a1, a3], a2, n]/3 - 
    (S2[a1, n]*S2[a4, a1, a2, a1, a3, n])/3 - 
    S2[a4, a1, a2, a1, SP[a1, a3], n]/3 + 
    (S2[a1, n]*S2[a4, a1, a2, a3, a1, n])/6 + 
    S2[a4, a1, a2, a3, SP[a1, a1], n]/6 - S2[a4, a1, a2, SP[a1, a1], a3, n]/
     3 + S2[a4, a1, a2, SP[a1, a3], a1, n]/6 + 
    (S2[a1, n]*S2[a4, a1, a3, a1, a2, n])/6 + 
    S2[a4, a1, a3, a1, SP[a1, a2], n]/6 + 
    (S2[a1, n]*S2[a4, a1, a3, a2, a1, n])/6 + 
    S2[a4, a1, a3, a2, SP[a1, a1], n]/6 + S2[a4, a1, a3, SP[a1, a1], a2, n]/
     6 + S2[a4, a1, a3, SP[a1, a2], a1, n]/6 - 
    S2[a4, a1, SP[a1, a1], a2, a3, n]/3 - S2[a4, a1, SP[a1, a1], a3, a2, n]/
     3 + (2*S2[a4, a1, SP[a1, a2], a1, a3, n])/3 + 
    S2[a4, a1, SP[a1, a2], a3, a1, n]/6 + S2[a4, a1, SP[a1, a3], a1, a2, n]/
     6 + S2[a4, a1, SP[a1, a3], a2, a1, n]/6 - 
    (S2[a1, n]*S2[a4, a2, a1, a1, a3, n])/3 - 
    S2[a4, a2, a1, a1, SP[a1, a3], n]/3 + 
    (S2[a1, n]*S2[a4, a2, a1, a3, a1, n])/6 + 
    S2[a4, a2, a1, a3, SP[a1, a1], n]/6 - S2[a4, a2, a1, SP[a1, a1], a3, n]/
     3 + S2[a4, a2, a1, SP[a1, a3], a1, n]/6 - 
    (S2[a1, n]*S2[a4, a2, a3, a1, a1, n])/3 - 
    S2[a4, a2, a3, a1, SP[a1, a1], n]/3 - S2[a4, a2, a3, SP[a1, a1], a1, n]/
     3 - S2[a4, a2, SP[a1, a1], a1, a3, n]/3 + 
    S2[a4, a2, SP[a1, a1], a3, a1, n]/6 - S2[a4, a2, SP[a1, a3], a1, a1, n]/
     3 - (S2[a1, n]*S2[a4, a3, a1, a1, a2, n])/3 - 
    S2[a4, a3, a1, a1, SP[a1, a2], n]/3 - 
    (S2[a1, n]*S2[a4, a3, a1, a2, a1, n])/3 - 
    S2[a4, a3, a1, a2, SP[a1, a1], n]/3 - S2[a4, a3, a1, SP[a1, a1], a2, n]/
     3 - S2[a4, a3, a1, SP[a1, a2], a1, n]/3 - 
    (S2[a1, n]*S2[a4, a3, a2, a1, a1, n])/3 - 
    S2[a4, a3, a2, a1, SP[a1, a1], n]/3 - S2[a4, a3, a2, SP[a1, a1], a1, n]/
     3 - S2[a4, a3, SP[a1, a1], a1, a2, n]/3 - 
    S2[a4, a3, SP[a1, a1], a2, a1, n]/3 - S2[a4, a3, SP[a1, a2], a1, a1, n]/
     3 - S2[a4, SP[a1, a1], a1, a2, a3, n]/3 - 
    S2[a4, SP[a1, a1], a1, a3, a2, n]/3 - S2[a4, SP[a1, a1], a2, a1, a3, n]/
     3 + S2[a4, SP[a1, a1], a2, a3, a1, n]/6 + 
    S2[a4, SP[a1, a1], a3, a1, a2, n]/6 + S2[a4, SP[a1, a1], a3, a2, a1, n]/
     6 + (2*S2[a4, SP[a1, a2], a1, a1, a3, n])/3 + 
    S2[a4, SP[a1, a2], a1, a3, a1, n]/6 - S2[a4, SP[a1, a2], a3, a1, a1, n]/
     3 - S2[a4, SP[a1, a3], a1, a1, a2, n]/3 - 
    S2[a4, SP[a1, a3], a1, a2, a1, n]/3 - S2[a4, SP[a1, a3], a2, a1, a1, n]/
     3 - S2[SP[a1, a1], a1, a4, a2, a3, n]/3 - 
    S2[SP[a1, a1], a1, a4, a3, a2, n]/3 - S2[SP[a1, a1], a4, a1, a2, a3, n]/
     3 - S2[SP[a1, a1], a4, a1, a3, a2, n]/3 - 
    S2[SP[a1, a1], a4, a2, a1, a3, n]/3 + S2[SP[a1, a1], a4, a2, a3, a1, n]/
     6 + S2[SP[a1, a1], a4, a3, a1, a2, n]/6 + 
    S2[SP[a1, a1], a4, a3, a2, a1, n]/6 - S2[SP[a1, a4], a1, a1, a2, a3, n]/
     3 - S2[SP[a1, a4], a1, a1, a3, a2, n]/3 - 
    S2[SP[a1, a4], a1, a2, a1, a3, n]/3 + S2[SP[a1, a4], a1, a2, a3, a1, n]/
     6 + S2[SP[a1, a4], a1, a3, a1, a2, n]/6 + 
    S2[SP[a1, a4], a1, a3, a2, a1, n]/6 - S2[SP[a1, a4], a2, a1, a1, a3, n]/
     3 + S2[SP[a1, a4], a2, a1, a3, a1, n]/6 - 
    S2[SP[a1, a4], a2, a3, a1, a1, n]/3 - S2[SP[a1, a4], a3, a1, a1, a2, n]/
     3 - S2[SP[a1, a4], a3, a1, a2, a1, n]/3 - 
    S2[SP[a1, a4], a3, a2, a1, a1, n]/3 + S2[SP[a2, a4], a1, a1, a1, a3, n] + 
    S2[a4, a2, a3, a1, a1, a1, n] + S2[a4, a3, a1, a1, a1, a2, n] + 
    S2[a4, a3, a1, a1, a2, a1, n] + S2[a4, a3, a1, a2, a1, a1, n] + 
    S2[a4, a3, a2, a1, a1, a1, n] /; 
   MyMemberQ[{{a2, a3, a4}}, {a1, a1, a1, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a1_, a1_, a1_, a4_, a2_, a3_, n_] :> 
  (S2[a1, n]*S2[a1, a1, a4, a2, a3, n])/3 + S2[a1, a1, a4, a2, SP[a1, a3], n]/
     3 + S2[a1, a1, a4, SP[a1, a2], a3, n]/3 + 
    S2[a1, a1, SP[a1, a4], a2, a3, n]/3 - 
    (S2[a1, n]*S2[a1, a4, a1, a2, a3, n])/6 - 
    S2[a1, a4, a1, a2, SP[a1, a3], n]/6 - S2[a1, a4, a1, SP[a1, a2], a3, n]/
     6 - (S2[a1, n]*S2[a1, a4, a2, a1, a3, n])/6 - 
    S2[a1, a4, a2, a1, SP[a1, a3], n]/6 - 
    (S2[a1, n]*S2[a1, a4, a2, a3, a1, n])/6 - 
    S2[a1, a4, a2, a3, SP[a1, a1], n]/6 - S2[a1, a4, a2, SP[a1, a1], a3, n]/
     6 - S2[a1, a4, a2, SP[a1, a3], a1, n]/6 - 
    S2[a1, a4, SP[a1, a1], a2, a3, n]/6 - S2[a1, a4, SP[a1, a2], a1, a3, n]/
     6 - S2[a1, a4, SP[a1, a2], a3, a1, n]/6 + 
    S2[a1, SP[a1, a1], a4, a2, a3, n]/3 - S2[a1, SP[a1, a4], a1, a2, a3, n]/
     6 - S2[a1, SP[a1, a4], a2, a1, a3, n]/6 - 
    S2[a1, SP[a1, a4], a2, a3, a1, n]/6 + 
    (S2[a1, n]*S2[a4, a1, a1, a2, a3, n])/3 + 
    S2[a4, a1, a1, a2, SP[a1, a3], n]/3 + S2[a4, a1, a1, SP[a1, a2], a3, n]/
     3 + (S2[a1, n]*S2[a4, a1, a2, a1, a3, n])/3 + 
    S2[a4, a1, a2, a1, SP[a1, a3], n]/3 + 
    (S2[a1, n]*S2[a4, a1, a2, a3, a1, n])/3 + 
    S2[a4, a1, a2, a3, SP[a1, a1], n]/3 + S2[a4, a1, a2, SP[a1, a1], a3, n]/
     3 + S2[a4, a1, a2, SP[a1, a3], a1, n]/3 + 
    S2[a4, a1, SP[a1, a1], a2, a3, n]/3 + S2[a4, a1, SP[a1, a2], a1, a3, n]/
     3 + S2[a4, a1, SP[a1, a2], a3, a1, n]/3 + 
    (S2[a1, n]*S2[a4, a2, a1, a1, a3, n])/3 + 
    S2[a4, a2, a1, a1, SP[a1, a3], n]/3 + 
    (S2[a1, n]*S2[a4, a2, a1, a3, a1, n])/3 + 
    S2[a4, a2, a1, a3, SP[a1, a1], n]/3 + S2[a4, a2, a1, SP[a1, a1], a3, n]/
     3 + S2[a4, a2, a1, SP[a1, a3], a1, n]/3 + 
    (S2[a1, n]*S2[a4, a2, a3, a1, a1, n])/3 + 
    S2[a4, a2, a3, a1, SP[a1, a1], n]/3 + S2[a4, a2, a3, SP[a1, a1], a1, n]/
     3 + S2[a4, a2, SP[a1, a1], a1, a3, n]/3 + 
    S2[a4, a2, SP[a1, a1], a3, a1, n]/3 + S2[a4, a2, SP[a1, a3], a1, a1, n]/
     3 + S2[a4, SP[a1, a1], a1, a2, a3, n]/3 + 
    S2[a4, SP[a1, a1], a2, a1, a3, n]/3 + S2[a4, SP[a1, a1], a2, a3, a1, n]/
     3 + S2[a4, SP[a1, a2], a1, a1, a3, n]/3 + 
    S2[a4, SP[a1, a2], a1, a3, a1, n]/3 + S2[a4, SP[a1, a2], a3, a1, a1, n]/
     3 + S2[SP[a1, a1], a1, a4, a2, a3, n]/3 - 
    S2[SP[a1, a1], a4, a1, a2, a3, n]/6 - S2[SP[a1, a1], a4, a2, a1, a3, n]/
     6 - S2[SP[a1, a1], a4, a2, a3, a1, n]/6 + 
    S2[SP[a1, a4], a1, a1, a2, a3, n]/3 + S2[SP[a1, a4], a1, a2, a1, a3, n]/
     3 + S2[SP[a1, a4], a1, a2, a3, a1, n]/3 + 
    S2[SP[a1, a4], a2, a1, a1, a3, n]/3 + S2[SP[a1, a4], a2, a1, a3, a1, n]/
     3 + S2[SP[a1, a4], a2, a3, a1, a1, n]/3 - S2[a4, a1, a1, a1, a2, a3, 
     n] - S2[a4, a1, a1, a2, a1, a3, n] - S2[a4, a1, a1, a2, a3, a1, n] - 
    S2[a4, a1, a2, a1, a1, a3, n] - S2[a4, a1, a2, a1, a3, a1, n] - 
    S2[a4, a1, a2, a3, a1, a1, n] - S2[a4, a2, a1, a1, a1, a3, n] - 
    S2[a4, a2, a1, a1, a3, a1, n] - S2[a4, a2, a1, a3, a1, a1, n] - 
    S2[a4, a2, a3, a1, a1, a1, n] /; 
   MyMemberQ[{{a2, a3, a4}}, {a1, a1, a1, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a1_, a1_, a1_, a4_, a3_, a2_, n_] :> 
  (S2[a1, n]*S2[a1, a1, a4, a3, a2, n])/3 + S2[a1, a1, a4, a3, SP[a1, a2], n]/
     3 + S2[a1, a1, a4, SP[a1, a3], a2, n]/3 + 
    S2[a1, a1, SP[a1, a4], a3, a2, n]/3 - 
    (S2[a1, n]*S2[a1, a4, a1, a3, a2, n])/6 - 
    S2[a1, a4, a1, a3, SP[a1, a2], n]/6 - S2[a1, a4, a1, SP[a1, a3], a2, n]/
     6 - (S2[a1, n]*S2[a1, a4, a3, a1, a2, n])/6 - 
    S2[a1, a4, a3, a1, SP[a1, a2], n]/6 - 
    (S2[a1, n]*S2[a1, a4, a3, a2, a1, n])/6 - 
    S2[a1, a4, a3, a2, SP[a1, a1], n]/6 - S2[a1, a4, a3, SP[a1, a1], a2, n]/
     6 - S2[a1, a4, a3, SP[a1, a2], a1, n]/6 - 
    S2[a1, a4, SP[a1, a1], a3, a2, n]/6 - S2[a1, a4, SP[a1, a3], a1, a2, n]/
     6 - S2[a1, a4, SP[a1, a3], a2, a1, n]/6 + 
    S2[a1, SP[a1, a1], a4, a3, a2, n]/3 - S2[a1, SP[a1, a4], a1, a3, a2, n]/
     6 - S2[a1, SP[a1, a4], a3, a1, a2, n]/6 - 
    S2[a1, SP[a1, a4], a3, a2, a1, n]/6 + 
    (S2[a1, n]*S2[a4, a1, a1, a3, a2, n])/3 + 
    S2[a4, a1, a1, a3, SP[a1, a2], n]/3 + S2[a4, a1, a1, SP[a1, a3], a2, n]/
     3 + (S2[a1, n]*S2[a4, a1, a3, a1, a2, n])/3 + 
    S2[a4, a1, a3, a1, SP[a1, a2], n]/3 + 
    (S2[a1, n]*S2[a4, a1, a3, a2, a1, n])/3 + 
    S2[a4, a1, a3, a2, SP[a1, a1], n]/3 + S2[a4, a1, a3, SP[a1, a1], a2, n]/
     3 + S2[a4, a1, a3, SP[a1, a2], a1, n]/3 + 
    S2[a4, a1, SP[a1, a1], a3, a2, n]/3 + S2[a4, a1, SP[a1, a3], a1, a2, n]/
     3 + S2[a4, a1, SP[a1, a3], a2, a1, n]/3 + 
    (S2[a1, n]*S2[a4, a3, a1, a1, a2, n])/3 + 
    S2[a4, a3, a1, a1, SP[a1, a2], n]/3 + 
    (S2[a1, n]*S2[a4, a3, a1, a2, a1, n])/3 + 
    S2[a4, a3, a1, a2, SP[a1, a1], n]/3 + S2[a4, a3, a1, SP[a1, a1], a2, n]/
     3 + S2[a4, a3, a1, SP[a1, a2], a1, n]/3 + 
    (S2[a1, n]*S2[a4, a3, a2, a1, a1, n])/3 + 
    S2[a4, a3, a2, a1, SP[a1, a1], n]/3 + S2[a4, a3, a2, SP[a1, a1], a1, n]/
     3 + S2[a4, a3, SP[a1, a1], a1, a2, n]/3 + 
    S2[a4, a3, SP[a1, a1], a2, a1, n]/3 + S2[a4, a3, SP[a1, a2], a1, a1, n]/
     3 + S2[a4, SP[a1, a1], a1, a3, a2, n]/3 + 
    S2[a4, SP[a1, a1], a3, a1, a2, n]/3 + S2[a4, SP[a1, a1], a3, a2, a1, n]/
     3 + S2[a4, SP[a1, a3], a1, a1, a2, n]/3 + 
    S2[a4, SP[a1, a3], a1, a2, a1, n]/3 + S2[a4, SP[a1, a3], a2, a1, a1, n]/
     3 + S2[SP[a1, a1], a1, a4, a3, a2, n]/3 - 
    S2[SP[a1, a1], a4, a1, a3, a2, n]/6 - S2[SP[a1, a1], a4, a3, a1, a2, n]/
     6 - S2[SP[a1, a1], a4, a3, a2, a1, n]/6 + 
    S2[SP[a1, a4], a1, a1, a3, a2, n]/3 + S2[SP[a1, a4], a1, a3, a1, a2, n]/
     3 + S2[SP[a1, a4], a1, a3, a2, a1, n]/3 + 
    S2[SP[a1, a4], a3, a1, a1, a2, n]/3 + S2[SP[a1, a4], a3, a1, a2, a1, n]/
     3 + S2[SP[a1, a4], a3, a2, a1, a1, n]/3 - S2[a4, a1, a1, a1, a3, a2, 
     n] - S2[a4, a1, a1, a3, a1, a2, n] - S2[a4, a1, a1, a3, a2, a1, n] - 
    S2[a4, a1, a3, a1, a1, a2, n] - S2[a4, a1, a3, a1, a2, a1, n] - 
    S2[a4, a1, a3, a2, a1, a1, n] - S2[a4, a3, a1, a1, a1, a2, n] - 
    S2[a4, a3, a1, a1, a2, a1, n] - S2[a4, a3, a1, a2, a1, a1, n] - 
    S2[a4, a3, a2, a1, a1, a1, n] /; 
   MyMemberQ[{{a2, a3, a4}}, {a1, a1, a1, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a1_, a1_, a2_, a1_, a3_, a4_, n_] :> 
  S2[a1, a1, a2, n]*S2[a1, a3, a4, n] + S2[SP[a1, a1], SP[a1, a3], 
     SP[a2, a4], n] - 3*S2[a3, a4, n]*S2[a1, a1, a1, a2, n] + 
    S2[a1, a1, SP[a1, a3], SP[a2, a4], n] - S2[a1, SP[a1, a1], a3, 
     SP[a2, a4], n] - S2[a1, SP[a1, a1], SP[a2, a3], a4, n] + 
    2*S2[a1, SP[a1, a3], a1, SP[a2, a4], n] + 
    2*S2[a1, SP[a1, a3], SP[a1, a4], a2, n] - S2[SP[a1, a1], a1, a3, 
     SP[a2, a4], n] - S2[SP[a1, a1], a1, SP[a2, a3], a4, n] - 
    S2[SP[a1, a1], a3, a1, SP[a2, a4], n] - S2[SP[a1, a1], a3, SP[a1, a4], 
     a2, n] - S2[SP[a1, a1], SP[a1, a3], a2, a4, n] - 
    S2[SP[a1, a1], SP[a1, a3], a4, a2, n] + 
    3*S2[SP[a1, a3], a1, a1, SP[a2, a4], n] + 
    3*S2[SP[a1, a3], a1, SP[a1, a4], a2, n] + 
    3*S2[SP[a1, a3], SP[a1, a4], a1, a2, n] - 
    3*S2[a4, n]*S2[a1, a1, a1, a2, a3, n] + 
    3*S2[a3, n]*S2[a1, a1, a1, a2, a4, n] - 
    3*S2[a4, n]*S2[a1, a1, a1, a3, a2, n] - 
    3*S2[a1, a1, a1, a3, SP[a2, a4], n] + 
    3*S2[a3, n]*S2[a1, a1, a1, a4, a2, n] + 
    3*S2[a1, a1, a1, a4, SP[a2, a3], n] + 
    3*S2[a1, a1, a1, SP[a2, a3], a4, n] - 
    3*S2[a1, a1, a1, SP[a2, a4], a3, n] - 
    2*S2[a4, n]*S2[a1, a1, a3, a1, a2, n] - 
    3*S2[a1, a1, a3, a1, SP[a2, a4], n] - 
    3*S2[a1, a1, a3, SP[a1, a4], a2, n] + 
    3*S2[a3, n]*S2[a1, a1, a4, a1, a2, n] + 
    3*S2[a1, a1, a4, a1, SP[a2, a3], n] + 
    3*S2[a1, a1, a4, SP[a1, a3], a2, n] + S2[a1, a1, SP[a1, a2], a3, a4, n] + 
    2*S2[a1, a1, SP[a1, a3], a2, a4, n] + 
    2*S2[a1, a1, SP[a1, a3], a4, a2, n] - 
    3*S2[a1, a1, SP[a1, a4], a2, a3, n] - 
    3*S2[a1, a1, SP[a1, a4], a3, a2, n] + S2[a1, a1, SP[a3, a4], a1, a2, n] - 
    S2[a4, n]*S2[a1, a3, a1, a1, a2, n] - 
    3*S2[a1, a3, a1, a1, SP[a2, a4], n] - 
    3*S2[a1, a3, a1, SP[a1, a4], a2, n] - 
    3*S2[a1, a3, SP[a1, a4], a1, a2, n] + 
    3*S2[a3, n]*S2[a1, a4, a1, a1, a2, n] + 
    3*S2[a1, a4, a1, a1, SP[a2, a3], n] + 
    3*S2[a1, a4, a1, SP[a1, a3], a2, n] - 
    (S2[a1, n]*S2[a1, a4, a3, a1, a2, n])/2 - 
    S2[a1, a4, a3, a1, SP[a1, a2], n]/2 - S2[a1, a4, a3, SP[a1, a1], a2, n]/
     2 + (5*S2[a1, a4, SP[a1, a3], a1, a2, n])/2 + 
    S2[a1, SP[a1, a1], a2, a3, a4, n] + S2[a1, SP[a1, a1], a3, a2, a4, n] + 
    S2[a1, SP[a1, a1], a3, a4, a2, n] + S2[a1, SP[a1, a3], a1, a2, a4, n] + 
    S2[a1, SP[a1, a3], a1, a4, a2, n] + S2[a1, SP[a1, a3], a4, a1, a2, n] - 
    3*S2[a1, SP[a1, a4], a1, a2, a3, n] - 
    3*S2[a1, SP[a1, a4], a1, a3, a2, n] - 
    (5*S2[a1, SP[a1, a4], a3, a1, a2, n])/2 + 
    2*S2[a1, SP[a3, a4], a1, a1, a2, n] - 
    3*S2[a3, a1, a1, a1, SP[a2, a4], n] - 
    3*S2[a3, a1, a1, SP[a1, a4], a2, n] - 
    3*S2[a3, a1, SP[a1, a4], a1, a2, n] - 
    3*S2[a3, SP[a1, a4], a1, a1, a2, n] + 
    3*S2[a3, n]*S2[a4, a1, a1, a1, a2, n] + 
    3*S2[a4, a1, a1, a1, SP[a2, a3], n] + 
    3*S2[a4, a1, a1, SP[a1, a3], a2, n] - 
    (S2[a1, n]*S2[a4, a1, a3, a1, a2, n])/2 - 
    S2[a4, a1, a3, a1, SP[a1, a2], n]/2 - S2[a4, a1, a3, SP[a1, a1], a2, n]/
     2 + (5*S2[a4, a1, SP[a1, a3], a1, a2, n])/2 - 
    S2[a1, n]*S2[a4, a3, a1, a1, a2, n] - S2[a4, a3, a1, a1, SP[a1, a2], n] + 
    (S2[a1, n]*S2[a4, a3, a1, a2, a1, n])/2 + 
    S2[a4, a3, a1, a2, SP[a1, a1], n]/2 - S2[a4, a3, a1, SP[a1, a1], a2, n] + 
    S2[a4, a3, a1, SP[a1, a2], a1, n]/2 - S2[a4, a3, SP[a1, a1], a1, a2, n] + 
    S2[a4, a3, SP[a1, a1], a2, a1, n]/2 - S2[a4, SP[a1, a1], a3, a1, a2, n]/
     2 + 2*S2[a4, SP[a1, a3], a1, a1, a2, n] + 
    S2[a4, SP[a1, a3], a1, a2, a1, n]/2 + S2[SP[a1, a1], a1, a2, a3, a4, n] + 
    S2[SP[a1, a1], a1, a3, a2, a4, n] + S2[SP[a1, a1], a1, a3, a4, a2, n] + 
    S2[SP[a1, a1], a3, a1, a2, a4, n] + S2[SP[a1, a1], a3, a1, a4, a2, n] + 
    S2[SP[a1, a1], a3, a4, a1, a2, n] - S2[SP[a1, a1], a4, a3, a1, a2, n]/2 - 
    3*S2[SP[a1, a4], a1, a1, a2, a3, n] - 
    3*S2[SP[a1, a4], a1, a1, a3, a2, n] - 
    (5*S2[SP[a1, a4], a1, a3, a1, a2, n])/2 - 
    2*S2[SP[a1, a4], a3, a1, a1, a2, n] + S2[SP[a1, a4], a3, a1, a2, a1, n]/
     2 + 3*S2[SP[a3, a4], a1, a1, a1, a2, n] - S2[a4, a3, a1, a2, a1, a1, 
     n] /; MyMemberQ[{{a2, a3, a4}}, {a1, a1, a1, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a1_, a1_, a2_, a1_, a4_, a3_, n_] :> 
  S2[a1, a1, a2, n]*S2[a1, a4, a3, n] + S2[SP[a1, a1], SP[a1, a4], 
     SP[a2, a3], n] + 3*S2[a3, a4, n]*S2[a1, a1, a1, a2, n] - 
    3*S2[a1, a1, SP[a1, a3], SP[a2, a4], n] - 
    2*S2[a1, a1, SP[a1, a4], SP[a2, a3], n] - S2[a1, SP[a1, a1], a4, 
     SP[a2, a3], n] - S2[a1, SP[a1, a1], SP[a2, a4], a3, n] - 
    3*S2[a1, SP[a1, a3], a1, SP[a2, a4], n] - 
    3*S2[a1, SP[a1, a3], SP[a1, a4], a2, n] - S2[a1, SP[a1, a4], a1, 
     SP[a2, a3], n] - S2[a1, SP[a1, a4], SP[a1, a3], a2, n] - 
    S2[SP[a1, a1], a1, a4, SP[a2, a3], n] - S2[SP[a1, a1], a1, SP[a2, a4], 
     a3, n] - S2[SP[a1, a1], a4, a1, SP[a2, a3], n] - 
    S2[SP[a1, a1], a4, SP[a1, a3], a2, n] - S2[SP[a1, a1], SP[a1, a4], a2, 
     a3, n] - S2[SP[a1, a1], SP[a1, a4], a3, a2, n] - 
    3*S2[SP[a1, a3], a1, a1, SP[a2, a4], n] - 
    3*S2[SP[a1, a3], a1, SP[a1, a4], a2, n] - 
    3*S2[SP[a1, a3], SP[a1, a4], a1, a2, n] - 
    3*S2[a3, n]*S2[a1, a1, a1, a2, a4, n] - 
    3*S2[a1, a1, a1, a2, SP[a3, a4], n] + 
    3*S2[a1, a1, a1, a3, SP[a2, a4], n] - 
    3*S2[a3, n]*S2[a1, a1, a1, a4, a2, n] + 
    3*S2[a1, a1, a1, SP[a2, a4], a3, n] - 
    3*S2[a1, a1, a1, SP[a3, a4], a2, n] + 
    3*S2[a1, a1, a3, a1, SP[a2, a4], n] + 
    3*S2[a1, a1, a3, SP[a1, a4], a2, n] - 
    3*S2[a3, n]*S2[a1, a1, a4, a1, a2, n] - S2[a1, a1, a4, a1, SP[a2, a3], 
     n] - S2[a1, a1, a4, SP[a1, a3], a2, n] + S2[a1, a1, SP[a1, a2], a4, a3, 
     n] + 2*S2[a1, a1, SP[a1, a4], a2, a3, n] + 
    2*S2[a1, a1, SP[a1, a4], a3, a2, n] - 
    3*S2[a1, a1, SP[a3, a4], a1, a2, n] + 
    3*S2[a1, a3, a1, a1, SP[a2, a4], n] + 
    3*S2[a1, a3, a1, SP[a1, a4], a2, n] + 
    3*S2[a1, a3, SP[a1, a4], a1, a2, n] - 
    3*S2[a3, n]*S2[a1, a4, a1, a1, a2, n] - 
    2*S2[a1, a4, a1, a1, SP[a2, a3], n] + 
    (S2[a1, n]*S2[a1, a4, a1, a2, a3, n])/2 + 
    S2[a1, a4, a1, a2, SP[a1, a3], n]/2 + 
    (S2[a1, n]*S2[a1, a4, a1, a3, a2, n])/2 + 
    S2[a1, a4, a1, a3, SP[a1, a2], n]/2 + S2[a1, a4, a1, SP[a1, a2], a3, n]/
     2 - (3*S2[a1, a4, a1, SP[a1, a3], a2, n])/2 + 
    (S2[a1, n]*S2[a1, a4, a3, a1, a2, n])/2 + 
    S2[a1, a4, a3, a1, SP[a1, a2], n]/2 + S2[a1, a4, a3, SP[a1, a1], a2, n]/
     2 + S2[a1, a4, SP[a1, a1], a2, a3, n]/2 + 
    S2[a1, a4, SP[a1, a1], a3, a2, n]/2 - 
    (3*S2[a1, a4, SP[a1, a3], a1, a2, n])/2 + S2[a1, SP[a1, a1], a2, a4, a3, 
     n] + S2[a1, SP[a1, a1], a4, a2, a3, n] + S2[a1, SP[a1, a1], a4, a3, a2, 
     n] + (3*S2[a1, SP[a1, a4], a1, a2, a3, n])/2 + 
    (3*S2[a1, SP[a1, a4], a1, a3, a2, n])/2 + 
    (3*S2[a1, SP[a1, a4], a3, a1, a2, n])/2 - 
    3*S2[a1, SP[a3, a4], a1, a1, a2, n] + 
    3*S2[a3, a1, a1, a1, SP[a2, a4], n] + 
    3*S2[a3, a1, a1, SP[a1, a4], a2, n] + 
    3*S2[a3, a1, SP[a1, a4], a1, a2, n] + 
    3*S2[a3, SP[a1, a4], a1, a1, a2, n] - 
    3*S2[a3, n]*S2[a4, a1, a1, a1, a2, n] - 
    3*S2[a4, a1, a1, a1, SP[a2, a3], n] + 
    S2[a1, n]*S2[a4, a1, a1, a2, a3, n] + S2[a4, a1, a1, a2, SP[a1, a3], n] + 
    S2[a1, n]*S2[a4, a1, a1, a3, a2, n] + S2[a4, a1, a1, a3, SP[a1, a2], n] + 
    S2[a4, a1, a1, SP[a1, a2], a3, n] - 2*S2[a4, a1, a1, SP[a1, a3], a2, n] - 
    (S2[a1, n]*S2[a4, a1, a2, a1, a3, n])/2 - 
    S2[a4, a1, a2, a1, SP[a1, a3], n]/2 - 
    (S2[a1, n]*S2[a4, a1, a2, a3, a1, n])/2 - 
    S2[a4, a1, a2, a3, SP[a1, a1], n]/2 - S2[a4, a1, a2, SP[a1, a1], a3, n]/
     2 - S2[a4, a1, a2, SP[a1, a3], a1, n]/2 + 
    S2[a1, n]*S2[a4, a1, a3, a1, a2, n] + S2[a4, a1, a3, a1, SP[a1, a2], n] - 
    (S2[a1, n]*S2[a4, a1, a3, a2, a1, n])/2 - 
    S2[a4, a1, a3, a2, SP[a1, a1], n]/2 + S2[a4, a1, a3, SP[a1, a1], a2, n] - 
    S2[a4, a1, a3, SP[a1, a2], a1, n]/2 + S2[a4, a1, SP[a1, a1], a2, a3, n] + 
    S2[a4, a1, SP[a1, a1], a3, a2, n] - S2[a4, a1, SP[a1, a2], a1, a3, n]/2 - 
    S2[a4, a1, SP[a1, a2], a3, a1, n]/2 - 
    2*S2[a4, a1, SP[a1, a3], a1, a2, n] - S2[a4, a1, SP[a1, a3], a2, a1, n]/
     2 + S2[a1, n]*S2[a4, a3, a1, a1, a2, n] + S2[a4, a3, a1, a1, SP[a1, a2], 
     n] - (S2[a1, n]*S2[a4, a3, a1, a2, a1, n])/2 - 
    S2[a4, a3, a1, a2, SP[a1, a1], n]/2 + S2[a4, a3, a1, SP[a1, a1], a2, n] - 
    S2[a4, a3, a1, SP[a1, a2], a1, n]/2 + S2[a4, a3, SP[a1, a1], a1, a2, n] - 
    S2[a4, a3, SP[a1, a1], a2, a1, n]/2 + S2[a4, SP[a1, a1], a1, a2, a3, n] + 
    S2[a4, SP[a1, a1], a1, a3, a2, n] - S2[a4, SP[a1, a1], a2, a1, a3, n]/2 - 
    S2[a4, SP[a1, a1], a2, a3, a1, n]/2 + S2[a4, SP[a1, a1], a3, a1, a2, n] - 
    S2[a4, SP[a1, a1], a3, a2, a1, n]/2 - 
    2*S2[a4, SP[a1, a3], a1, a1, a2, n] - S2[a4, SP[a1, a3], a1, a2, a1, n]/
     2 + S2[SP[a1, a1], a1, a2, a4, a3, n] + S2[SP[a1, a1], a1, a4, a2, a3, 
     n] + S2[SP[a1, a1], a1, a4, a3, a2, n] + 
    (3*S2[SP[a1, a1], a4, a1, a2, a3, n])/2 + 
    (3*S2[SP[a1, a1], a4, a1, a3, a2, n])/2 + 
    (3*S2[SP[a1, a1], a4, a3, a1, a2, n])/2 + S2[SP[a1, a4], a1, a1, a2, a3, 
     n] + S2[SP[a1, a4], a1, a1, a3, a2, n] - 
    S2[SP[a1, a4], a1, a2, a1, a3, n]/2 - S2[SP[a1, a4], a1, a2, a3, a1, n]/
     2 + S2[SP[a1, a4], a1, a3, a1, a2, n] - 
    S2[SP[a1, a4], a1, a3, a2, a1, n]/2 + S2[SP[a1, a4], a3, a1, a1, a2, n] - 
    S2[SP[a1, a4], a3, a1, a2, a1, n]/2 - 
    3*S2[SP[a3, a4], a1, a1, a1, a2, n] + S2[a4, a1, a2, a1, a1, a3, n] + 
    S2[a4, a1, a2, a1, a3, a1, n] + S2[a4, a1, a2, a3, a1, a1, n] + 
    S2[a4, a1, a3, a2, a1, a1, n] + S2[a4, a3, a1, a2, a1, a1, n] /; 
   MyMemberQ[{{a2, a3, a4}}, {a1, a1, a1, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a1_, a1_, a2_, a3_, a1_, a4_, n_] :> 
  -(S2[a1, a1, a2, n]*S2[a1, a3, a4, n]) - S2[a1, a1, a2, n]*
     S2[a1, a4, a3, n] - S2[SP[a1, a1], SP[a1, a3], SP[a2, a4], n] - 
    S2[SP[a1, a1], SP[a1, a4], SP[a2, a3], n] + 
    S2[a1, a4, n]*S2[a1, a1, a2, a3, n] - S2[a1, a1, SP[a1, a2], SP[a3, a4], 
     n] + 2*S2[a1, a1, SP[a1, a3], SP[a2, a4], n] + 
    2*S2[a1, a1, SP[a1, a4], SP[a2, a3], n] - S2[a1, SP[a1, a1], a2, 
     SP[a3, a4], n] + S2[a1, SP[a1, a1], a3, SP[a2, a4], n] + 
    S2[a1, SP[a1, a1], a4, SP[a2, a3], n] + S2[a1, SP[a1, a1], SP[a2, a3], 
     a4, n] + S2[a1, SP[a1, a3], a1, SP[a2, a4], n] + 
    S2[a1, SP[a1, a3], SP[a1, a4], a2, n] + S2[a1, SP[a1, a4], a1, 
     SP[a2, a3], n] + S2[a1, SP[a1, a4], SP[a1, a3], a2, n] - 
    S2[SP[a1, a1], a1, a2, SP[a3, a4], n] + S2[SP[a1, a1], a1, a3, 
     SP[a2, a4], n] + S2[SP[a1, a1], a1, a4, SP[a2, a3], n] + 
    S2[SP[a1, a1], a1, SP[a2, a3], a4, n] + S2[SP[a1, a1], a3, a1, 
     SP[a2, a4], n] + S2[SP[a1, a1], a3, SP[a1, a4], a2, n] + 
    S2[SP[a1, a1], a4, a1, SP[a2, a3], n] + S2[SP[a1, a1], a4, SP[a1, a3], 
     a2, n] + S2[SP[a1, a1], SP[a1, a3], a2, a4, n] + 
    S2[SP[a1, a1], SP[a1, a3], a4, a2, n] + S2[SP[a1, a1], SP[a1, a4], a3, 
     a2, n] + 3*S2[a1, a1, a1, a2, SP[a3, a4], n] + 
    3*S2[a4, n]*S2[a1, a1, a1, a3, a2, n] - 
    3*S2[a1, a1, a1, a4, SP[a2, a3], n] - 
    3*S2[a1, a1, a1, SP[a2, a3], a4, n] + 
    3*S2[a1, a1, a1, SP[a3, a4], a2, n] + S2[a1, a1, a2, a1, SP[a3, a4], n] + 
    S2[a1, a1, a2, SP[a1, a3], a4, n] + 2*S2[a4, n]*
     S2[a1, a1, a3, a1, a2, n] - 2*S2[a1, a1, a4, a1, SP[a2, a3], n] - 
    2*S2[a1, a1, a4, SP[a1, a3], a2, n] - 
    2*S2[a1, a1, SP[a1, a3], a2, a4, n] - 
    2*S2[a1, a1, SP[a1, a3], a4, a2, n] + S2[a1, a1, SP[a1, a4], a3, a2, n] + 
    2*S2[a1, a1, SP[a3, a4], a1, a2, n] + 
    S2[a4, n]*S2[a1, a3, a1, a1, a2, n] - S2[a1, a4, a1, a1, SP[a2, a3], n] - 
    (S2[a1, n]*S2[a1, a4, a1, a3, a2, n])/2 - 
    S2[a1, a4, a1, a3, SP[a1, a2], n]/2 - 
    (3*S2[a1, a4, a1, SP[a1, a3], a2, n])/2 - 
    S2[a1, a4, SP[a1, a1], a3, a2, n]/2 - S2[a1, a4, SP[a1, a3], a1, a2, n] - 
    S2[a1, SP[a1, a1], a3, a2, a4, n] - S2[a1, SP[a1, a1], a3, a4, a2, n] - 
    S2[a1, SP[a1, a1], a4, a3, a2, n] - S2[a1, SP[a1, a3], a1, a2, a4, n] - 
    S2[a1, SP[a1, a3], a1, a4, a2, n] - S2[a1, SP[a1, a3], a4, a1, a2, n] + 
    (3*S2[a1, SP[a1, a4], a1, a3, a2, n])/2 + S2[a1, SP[a1, a4], a3, a1, a2, 
     n] + S2[a1, SP[a3, a4], a1, a1, a2, n] - 
    S2[a1, n]*S2[a4, a1, a1, a3, a2, n] - S2[a4, a1, a1, a3, SP[a1, a2], n] - 
    S2[a4, a1, a1, SP[a1, a3], a2, n] - (S2[a1, n]*S2[a4, a1, a3, a1, a2, n])/
     2 - S2[a4, a1, a3, a1, SP[a1, a2], n]/2 + 
    (S2[a1, n]*S2[a4, a1, a3, a2, a1, n])/2 + 
    S2[a4, a1, a3, a2, SP[a1, a1], n]/2 - S2[a4, a1, a3, SP[a1, a1], a2, n]/
     2 + S2[a4, a1, a3, SP[a1, a2], a1, n]/2 - S2[a4, a1, SP[a1, a1], a3, a2, 
     n] - S2[a4, a1, SP[a1, a3], a1, a2, n]/2 + 
    S2[a4, a1, SP[a1, a3], a2, a1, n]/2 - S2[a4, SP[a1, a1], a1, a3, a2, n] - 
    S2[a4, SP[a1, a1], a3, a1, a2, n]/2 + S2[a4, SP[a1, a1], a3, a2, a1, n]/
     2 - S2[SP[a1, a1], a1, a3, a2, a4, n] - S2[SP[a1, a1], a1, a3, a4, a2, 
     n] - S2[SP[a1, a1], a1, a4, a3, a2, n] - S2[SP[a1, a1], a3, a1, a2, a4, 
     n] - S2[SP[a1, a1], a3, a1, a4, a2, n] - S2[SP[a1, a1], a3, a4, a1, a2, 
     n] - (3*S2[SP[a1, a1], a4, a1, a3, a2, n])/2 - 
    S2[SP[a1, a1], a4, a3, a1, a2, n] + 2*S2[SP[a1, a4], a1, a1, a3, a2, n] + 
    (3*S2[SP[a1, a4], a1, a3, a1, a2, n])/2 + 
    S2[SP[a1, a4], a1, a3, a2, a1, n]/2 + S2[SP[a1, a4], a3, a1, a1, a2, n] - 
    S2[a4, a1, a3, a2, a1, a1, n] /; 
   MyMemberQ[{{a2, a3, a4}}, {a1, a1, a1, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a1_, a1_, a2_, a3_, a4_, a1_, n_] :> 
  S2[a1, a1, a2, n]*S2[a1, a4, a3, n] + S2[SP[a1, a1], SP[a1, a4], 
     SP[a2, a3], n] - S2[a1, a4, n]*S2[a1, a1, a2, a3, n] + 
    S2[a1, a1, SP[a1, a2], SP[a3, a4], n] - 
    2*S2[a1, a1, SP[a1, a4], SP[a2, a3], n] + S2[a1, SP[a1, a1], a2, 
     SP[a3, a4], n] - S2[a1, SP[a1, a1], a4, SP[a2, a3], n] - 
    S2[a1, SP[a1, a4], a1, SP[a2, a3], n] - S2[a1, SP[a1, a4], SP[a1, a3], 
     a2, n] + S2[SP[a1, a1], a1, a2, SP[a3, a4], n] - 
    S2[SP[a1, a1], a1, a4, SP[a2, a3], n] - S2[SP[a1, a1], a4, a1, 
     SP[a2, a3], n] - S2[SP[a1, a1], a4, SP[a1, a3], a2, n] - 
    S2[SP[a1, a1], SP[a1, a4], a3, a2, n] - 
    3*S2[a1, a1, a1, a2, SP[a3, a4], n] + 
    3*S2[a1, a1, a1, a4, SP[a2, a3], n] - S2[a1, a1, a2, a1, SP[a3, a4], n] + 
    S2[a1, n]*S2[a1, a1, a2, a3, a4, n] + S2[a1, a1, a2, a3, SP[a1, a4], n] + 
    2*S2[a1, a1, a4, a1, SP[a2, a3], n] - 
    S2[a1, n]*S2[a1, a1, a4, a3, a2, n] - S2[a1, a1, a4, a3, SP[a1, a2], n] + 
    S2[a1, a1, a4, SP[a1, a3], a2, n] + S2[a1, a1, SP[a1, a4], a3, a2, n] + 
    S2[a1, a4, a1, a1, SP[a2, a3], n] - (S2[a1, n]*S2[a1, a4, a1, a3, a2, n])/
     2 - S2[a1, a4, a1, a3, SP[a1, a2], n]/2 + 
    S2[a1, a4, a1, SP[a1, a3], a2, n]/2 - 
    (S2[a1, n]*S2[a1, a4, a3, a1, a2, n])/2 - 
    S2[a1, a4, a3, a1, SP[a1, a2], n]/2 + 
    (S2[a1, n]*S2[a1, a4, a3, a2, a1, n])/2 + 
    S2[a1, a4, a3, a2, SP[a1, a1], n]/2 - S2[a1, a4, a3, SP[a1, a1], a2, n]/
     2 + S2[a1, a4, a3, SP[a1, a2], a1, n]/2 - 
    S2[a1, a4, SP[a1, a1], a3, a2, n]/2 + S2[a1, a4, SP[a1, a3], a1, a2, n]/
     2 + S2[a1, a4, SP[a1, a3], a2, a1, n]/2 + 
    S2[a1, SP[a1, a4], a1, a3, a2, n]/2 + S2[a1, SP[a1, a4], a3, a1, a2, n]/
     2 + S2[a1, SP[a1, a4], a3, a2, a1, n]/2 - 
    S2[a1, n]*S2[a4, a3, a2, a1, a1, n] - S2[a4, a3, a2, a1, SP[a1, a1], n] - 
    S2[a4, a3, a2, SP[a1, a1], a1, n] - S2[a4, a3, SP[a1, a2], a1, a1, n] - 
    S2[a4, SP[a1, a3], a2, a1, a1, n] + S2[SP[a1, a1], a4, a1, a3, a2, n]/2 + 
    S2[SP[a1, a1], a4, a3, a1, a2, n]/2 + S2[SP[a1, a1], a4, a3, a2, a1, n]/
     2 - S2[SP[a1, a4], a3, a2, a1, a1, n] + S2[a4, a1, a3, a2, a1, a1, n] + 
    S2[a4, a3, a1, a2, a1, a1, n] + 3*S2[a4, a3, a2, a1, a1, a1, n] /; 
   MyMemberQ[{{a2, a3, a4}}, {a1, a1, a1, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a1_, a1_, a2_, a4_, a1_, a3_, n_] :> 
  -(S2[a1, a1, a2, n]*S2[a1, a3, a4, n]) - S2[a1, a1, a2, n]*
     S2[a1, a4, a3, n] - S2[SP[a1, a1], SP[a1, a3], SP[a2, a4], n] - 
    S2[SP[a1, a1], SP[a1, a4], SP[a2, a3], n] + 
    2*S2[a1, a1, SP[a1, a3], SP[a2, a4], n] + 
    2*S2[a1, a1, SP[a1, a4], SP[a2, a3], n] + S2[a1, SP[a1, a1], a3, 
     SP[a2, a4], n] + S2[a1, SP[a1, a1], a4, SP[a2, a3], n] + 
    S2[a1, SP[a1, a1], SP[a2, a3], a4, n] + S2[a1, SP[a1, a1], SP[a2, a4], 
     a3, n] + S2[a1, SP[a1, a3], a1, SP[a2, a4], n] + 
    S2[a1, SP[a1, a3], SP[a1, a4], a2, n] + S2[a1, SP[a1, a4], a1, 
     SP[a2, a3], n] + S2[a1, SP[a1, a4], SP[a1, a3], a2, n] + 
    S2[SP[a1, a1], a1, a3, SP[a2, a4], n] + S2[SP[a1, a1], a1, a4, 
     SP[a2, a3], n] + S2[SP[a1, a1], a1, SP[a2, a3], a4, n] + 
    S2[SP[a1, a1], a1, SP[a2, a4], a3, n] + S2[SP[a1, a1], a3, a1, 
     SP[a2, a4], n] + S2[SP[a1, a1], a3, SP[a1, a4], a2, n] + 
    S2[SP[a1, a1], a4, a1, SP[a2, a3], n] + S2[SP[a1, a1], a4, SP[a1, a3], 
     a2, n] + S2[SP[a1, a1], SP[a1, a3], a2, a4, n] + 
    S2[SP[a1, a1], SP[a1, a3], a4, a2, n] + S2[SP[a1, a1], SP[a1, a4], a2, 
     a3, n] + S2[SP[a1, a1], SP[a1, a4], a3, a2, n] + 
    3*S2[a4, n]*S2[a1, a1, a1, a2, a3, n] + 
    3*S2[a1, a1, a1, a2, SP[a3, a4], n] + 
    3*S2[a4, n]*S2[a1, a1, a1, a3, a2, n] - 
    3*S2[a1, a1, a1, a4, SP[a2, a3], n] - 
    3*S2[a1, a1, a1, SP[a2, a3], a4, n] + 
    3*S2[a1, a1, a1, SP[a3, a4], a2, n] + 
    S2[a4, n]*S2[a1, a1, a2, a1, a3, n] + S2[a1, a1, a2, a1, SP[a3, a4], n] + 
    S2[a1, a1, a2, SP[a1, a4], a3, n] + 2*S2[a4, n]*
     S2[a1, a1, a3, a1, a2, n] - 2*S2[a1, a1, a4, a1, SP[a2, a3], n] - 
    2*S2[a1, a1, a4, SP[a1, a3], a2, n] - S2[a1, a1, SP[a1, a2], a3, a4, n] - 
    S2[a1, a1, SP[a1, a2], a4, a3, n] - 2*S2[a1, a1, SP[a1, a3], a2, a4, n] - 
    2*S2[a1, a1, SP[a1, a3], a4, a2, n] + S2[a1, a1, SP[a1, a4], a2, a3, n] + 
    S2[a1, a1, SP[a1, a4], a3, a2, n] + S2[a1, a1, SP[a2, a4], a1, a3, n] + 
    2*S2[a1, a1, SP[a3, a4], a1, a2, n] + 
    S2[a4, n]*S2[a1, a3, a1, a1, a2, n] - S2[a1, a4, a1, a1, SP[a2, a3], n] - 
    (S2[a1, n]*S2[a1, a4, a1, a2, a3, n])/2 - 
    S2[a1, a4, a1, a2, SP[a1, a3], n]/2 - 
    (S2[a1, n]*S2[a1, a4, a1, a3, a2, n])/2 - 
    S2[a1, a4, a1, a3, SP[a1, a2], n]/2 - S2[a1, a4, a1, SP[a1, a2], a3, n]/
     2 - (3*S2[a1, a4, a1, SP[a1, a3], a2, n])/2 - 
    (S2[a1, n]*S2[a1, a4, a2, a1, a3, n])/2 - 
    S2[a1, a4, a2, a1, SP[a1, a3], n]/2 - S2[a1, a4, a2, SP[a1, a1], a3, n]/
     2 - S2[a1, a4, SP[a1, a1], a2, a3, n]/2 - 
    S2[a1, a4, SP[a1, a1], a3, a2, n]/2 - S2[a1, a4, SP[a1, a2], a1, a3, n]/
     2 - S2[a1, a4, SP[a1, a3], a1, a2, n] - S2[a1, SP[a1, a1], a2, a3, a4, 
     n] - S2[a1, SP[a1, a1], a2, a4, a3, n] - S2[a1, SP[a1, a1], a3, a2, a4, 
     n] - S2[a1, SP[a1, a1], a3, a4, a2, n] - S2[a1, SP[a1, a1], a4, a2, a3, 
     n] - S2[a1, SP[a1, a1], a4, a3, a2, n] - S2[a1, SP[a1, a3], a1, a2, a4, 
     n] - S2[a1, SP[a1, a3], a1, a4, a2, n] - S2[a1, SP[a1, a3], a4, a1, a2, 
     n] + (3*S2[a1, SP[a1, a4], a1, a2, a3, n])/2 + 
    (3*S2[a1, SP[a1, a4], a1, a3, a2, n])/2 + 
    S2[a1, SP[a1, a4], a2, a1, a3, n]/2 + S2[a1, SP[a1, a4], a3, a1, a2, n] + 
    S2[a1, SP[a3, a4], a1, a1, a2, n] - S2[a1, n]*S2[a4, a1, a1, a2, a3, n] - 
    S2[a4, a1, a1, a2, SP[a1, a3], n] - S2[a1, n]*S2[a4, a1, a1, a3, a2, n] - 
    S2[a4, a1, a1, a3, SP[a1, a2], n] - S2[a4, a1, a1, SP[a1, a2], a3, n] - 
    S2[a4, a1, a1, SP[a1, a3], a2, n] + (S2[a1, n]*S2[a4, a1, a2, a3, a1, n])/
     2 + S2[a4, a1, a2, a3, SP[a1, a1], n]/2 + 
    S2[a4, a1, a2, SP[a1, a3], a1, n]/2 - 
    (S2[a1, n]*S2[a4, a1, a3, a1, a2, n])/2 - 
    S2[a4, a1, a3, a1, SP[a1, a2], n]/2 + 
    (S2[a1, n]*S2[a4, a1, a3, a2, a1, n])/2 + 
    S2[a4, a1, a3, a2, SP[a1, a1], n]/2 - S2[a4, a1, a3, SP[a1, a1], a2, n]/
     2 + S2[a4, a1, a3, SP[a1, a2], a1, n]/2 - S2[a4, a1, SP[a1, a1], a2, a3, 
     n] - S2[a4, a1, SP[a1, a1], a3, a2, n] + 
    S2[a4, a1, SP[a1, a2], a3, a1, n]/2 - S2[a4, a1, SP[a1, a3], a1, a2, n]/
     2 + S2[a4, a1, SP[a1, a3], a2, a1, n]/2 + 
    S2[a1, n]*S2[a4, a2, a1, a1, a3, n] + S2[a4, a2, a1, a1, SP[a1, a3], n] + 
    (S2[a1, n]*S2[a4, a2, a1, a3, a1, n])/2 + 
    S2[a4, a2, a1, a3, SP[a1, a1], n]/2 + S2[a4, a2, a1, SP[a1, a1], a3, n] + 
    S2[a4, a2, a1, SP[a1, a3], a1, n]/2 + S2[a4, a2, SP[a1, a1], a1, a3, n] + 
    S2[a4, a2, SP[a1, a1], a3, a1, n]/2 - S2[a4, SP[a1, a1], a1, a2, a3, n] - 
    S2[a4, SP[a1, a1], a1, a3, a2, n] + S2[a4, SP[a1, a1], a2, a3, a1, n]/2 - 
    S2[a4, SP[a1, a1], a3, a1, a2, n]/2 + S2[a4, SP[a1, a1], a3, a2, a1, n]/
     2 + S2[a4, SP[a1, a2], a1, a1, a3, n] + 
    S2[a4, SP[a1, a2], a1, a3, a1, n]/2 - S2[SP[a1, a1], a1, a2, a3, a4, n] - 
    S2[SP[a1, a1], a1, a2, a4, a3, n] - S2[SP[a1, a1], a1, a3, a2, a4, n] - 
    S2[SP[a1, a1], a1, a3, a4, a2, n] - S2[SP[a1, a1], a1, a4, a2, a3, n] - 
    S2[SP[a1, a1], a1, a4, a3, a2, n] - S2[SP[a1, a1], a3, a1, a2, a4, n] - 
    S2[SP[a1, a1], a3, a1, a4, a2, n] - S2[SP[a1, a1], a3, a4, a1, a2, n] - 
    (3*S2[SP[a1, a1], a4, a1, a2, a3, n])/2 - 
    (3*S2[SP[a1, a1], a4, a1, a3, a2, n])/2 - 
    S2[SP[a1, a1], a4, a2, a1, a3, n]/2 - S2[SP[a1, a1], a4, a3, a1, a2, n] + 
    2*S2[SP[a1, a4], a1, a1, a2, a3, n] + 
    2*S2[SP[a1, a4], a1, a1, a3, a2, n] + S2[SP[a1, a4], a1, a2, a1, a3, n] + 
    S2[SP[a1, a4], a1, a2, a3, a1, n]/2 + 
    (3*S2[SP[a1, a4], a1, a3, a1, a2, n])/2 + 
    S2[SP[a1, a4], a1, a3, a2, a1, n]/2 + S2[SP[a1, a4], a2, a1, a1, a3, n] + 
    S2[SP[a1, a4], a2, a1, a3, a1, n]/2 + S2[SP[a1, a4], a3, a1, a1, a2, n] - 
    S2[a4, a1, a2, a1, a1, a3, n] - S2[a4, a1, a2, a1, a3, a1, n] - 
    S2[a4, a1, a2, a3, a1, a1, n] - S2[a4, a1, a3, a2, a1, a1, n] - 
    3*S2[a4, a2, a1, a1, a1, a3, n] - 2*S2[a4, a2, a1, a1, a3, a1, n] - 
    S2[a4, a2, a1, a3, a1, a1, n] /; 
   MyMemberQ[{{a2, a3, a4}}, {a1, a1, a1, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a1_, a1_, a2_, a4_, a3_, a1_, n_] :> 
  S2[a1, a1, a2, n]*S2[a1, a3, a4, n] + S2[SP[a1, a1], SP[a1, a3], 
     SP[a2, a4], n] - 2*S2[a1, a1, SP[a1, a3], SP[a2, a4], n] - 
    S2[a1, SP[a1, a1], a3, SP[a2, a4], n] - S2[a1, SP[a1, a1], SP[a2, a3], 
     a4, n] - S2[a1, SP[a1, a3], a1, SP[a2, a4], n] - 
    S2[a1, SP[a1, a3], SP[a1, a4], a2, n] - S2[SP[a1, a1], a1, a3, 
     SP[a2, a4], n] - S2[SP[a1, a1], a1, SP[a2, a3], a4, n] - 
    S2[SP[a1, a1], a3, a1, SP[a2, a4], n] - S2[SP[a1, a1], a3, SP[a1, a4], 
     a2, n] - S2[SP[a1, a1], SP[a1, a3], a2, a4, n] - 
    S2[SP[a1, a1], SP[a1, a3], a4, a2, n] - 
    3*S2[a4, n]*S2[a1, a1, a1, a2, a3, n] - 
    3*S2[a1, a1, a1, a2, SP[a3, a4], n] - 
    3*S2[a4, n]*S2[a1, a1, a1, a3, a2, n] + 
    3*S2[a1, a1, a1, SP[a2, a3], a4, n] - 
    3*S2[a1, a1, a1, SP[a2, a4], a3, n] - 
    3*S2[a1, a1, a1, SP[a3, a4], a2, n] - 
    S2[a4, n]*S2[a1, a1, a2, a1, a3, n] - S2[a1, a1, a2, a1, SP[a3, a4], n] + 
    S2[a1, n]*S2[a1, a1, a2, a4, a3, n] + S2[a1, a1, a2, a4, SP[a1, a3], n] - 
    2*S2[a4, n]*S2[a1, a1, a3, a1, a2, n] + 
    S2[a1, n]*S2[a1, a1, a4, a2, a3, n] + S2[a1, a1, a4, a2, SP[a1, a3], n] + 
    S2[a1, n]*S2[a1, a1, a4, a3, a2, n] + S2[a1, a1, a4, a3, SP[a1, a2], n] + 
    S2[a1, a1, a4, SP[a1, a2], a3, n] + S2[a1, a1, a4, SP[a1, a3], a2, n] + 
    S2[a1, a1, SP[a1, a2], a3, a4, n] + S2[a1, a1, SP[a1, a2], a4, a3, n] + 
    2*S2[a1, a1, SP[a1, a3], a2, a4, n] + 
    2*S2[a1, a1, SP[a1, a3], a4, a2, n] - 
    2*S2[a1, a1, SP[a1, a4], a2, a3, n] - 
    2*S2[a1, a1, SP[a1, a4], a3, a2, n] - S2[a1, a1, SP[a2, a4], a1, a3, n] - 
    2*S2[a1, a1, SP[a3, a4], a1, a2, n] - 
    S2[a4, n]*S2[a1, a3, a1, a1, a2, n] + 
    S2[a1, n]*S2[a1, a4, a1, a2, a3, n] + S2[a1, a4, a1, a2, SP[a1, a3], n] + 
    S2[a1, n]*S2[a1, a4, a1, a3, a2, n] + S2[a1, a4, a1, a3, SP[a1, a2], n] + 
    S2[a1, a4, a1, SP[a1, a2], a3, n] + S2[a1, a4, a1, SP[a1, a3], a2, n] - 
    (S2[a1, n]*S2[a1, a4, a2, a3, a1, n])/2 - 
    S2[a1, a4, a2, a3, SP[a1, a1], n]/2 - S2[a1, a4, a2, SP[a1, a3], a1, n]/
     2 + (S2[a1, n]*S2[a1, a4, a3, a1, a2, n])/2 + 
    S2[a1, a4, a3, a1, SP[a1, a2], n]/2 - 
    (S2[a1, n]*S2[a1, a4, a3, a2, a1, n])/2 - 
    S2[a1, a4, a3, a2, SP[a1, a1], n]/2 + S2[a1, a4, a3, SP[a1, a1], a2, n]/
     2 - S2[a1, a4, a3, SP[a1, a2], a1, n]/2 + S2[a1, a4, SP[a1, a1], a2, a3, 
     n] + S2[a1, a4, SP[a1, a1], a3, a2, n] - 
    S2[a1, a4, SP[a1, a2], a3, a1, n]/2 + S2[a1, a4, SP[a1, a3], a1, a2, n]/
     2 - S2[a1, a4, SP[a1, a3], a2, a1, n]/2 + S2[a1, SP[a1, a1], a2, a3, a4, 
     n] + S2[a1, SP[a1, a1], a2, a4, a3, n] + S2[a1, SP[a1, a1], a3, a2, a4, 
     n] + S2[a1, SP[a1, a1], a3, a4, a2, n] + S2[a1, SP[a1, a1], a4, a2, a3, 
     n] + S2[a1, SP[a1, a1], a4, a3, a2, n] + S2[a1, SP[a1, a3], a1, a2, a4, 
     n] + S2[a1, SP[a1, a3], a1, a4, a2, n] + S2[a1, SP[a1, a3], a4, a1, a2, 
     n] - 2*S2[a1, SP[a1, a4], a1, a2, a3, n] - 
    2*S2[a1, SP[a1, a4], a1, a3, a2, n] - S2[a1, SP[a1, a4], a2, a1, a3, n] - 
    S2[a1, SP[a1, a4], a2, a3, a1, n]/2 - 
    (3*S2[a1, SP[a1, a4], a3, a1, a2, n])/2 - 
    S2[a1, SP[a1, a4], a3, a2, a1, n]/2 - S2[a1, SP[a3, a4], a1, a1, a2, n] + 
    S2[a1, n]*S2[a4, a1, a1, a2, a3, n] + S2[a4, a1, a1, a2, SP[a1, a3], n] + 
    S2[a1, n]*S2[a4, a1, a1, a3, a2, n] + S2[a4, a1, a1, a3, SP[a1, a2], n] + 
    S2[a4, a1, a1, SP[a1, a2], a3, n] + S2[a4, a1, a1, SP[a1, a3], a2, n] - 
    (S2[a1, n]*S2[a4, a1, a2, a3, a1, n])/2 - 
    S2[a4, a1, a2, a3, SP[a1, a1], n]/2 - S2[a4, a1, a2, SP[a1, a3], a1, n]/
     2 + (S2[a1, n]*S2[a4, a1, a3, a1, a2, n])/2 + 
    S2[a4, a1, a3, a1, SP[a1, a2], n]/2 - 
    (S2[a1, n]*S2[a4, a1, a3, a2, a1, n])/2 - 
    S2[a4, a1, a3, a2, SP[a1, a1], n]/2 + S2[a4, a1, a3, SP[a1, a1], a2, n]/
     2 - S2[a4, a1, a3, SP[a1, a2], a1, n]/2 + S2[a4, a1, SP[a1, a1], a2, a3, 
     n] + S2[a4, a1, SP[a1, a1], a3, a2, n] - 
    S2[a4, a1, SP[a1, a2], a3, a1, n]/2 + S2[a4, a1, SP[a1, a3], a1, a2, n]/
     2 - S2[a4, a1, SP[a1, a3], a2, a1, n]/2 + 
    (S2[a1, n]*S2[a4, a2, a1, a3, a1, n])/2 + 
    S2[a4, a2, a1, a3, SP[a1, a1], n]/2 + S2[a4, a2, a1, SP[a1, a3], a1, n]/
     2 + S2[a1, n]*S2[a4, a2, a3, a1, a1, n] + S2[a4, a2, a3, a1, SP[a1, a1], 
     n] + S2[a4, a2, a3, SP[a1, a1], a1, n] + 
    S2[a4, a2, SP[a1, a1], a3, a1, n]/2 + S2[a4, a2, SP[a1, a3], a1, a1, n] + 
    S2[a1, n]*S2[a4, a3, a2, a1, a1, n] + S2[a4, a3, a2, a1, SP[a1, a1], n] + 
    S2[a4, a3, a2, SP[a1, a1], a1, n] + S2[a4, a3, SP[a1, a2], a1, a1, n] + 
    S2[a4, SP[a1, a1], a1, a2, a3, n] + S2[a4, SP[a1, a1], a1, a3, a2, n] - 
    S2[a4, SP[a1, a1], a2, a3, a1, n]/2 + S2[a4, SP[a1, a1], a3, a1, a2, n]/
     2 - S2[a4, SP[a1, a1], a3, a2, a1, n]/2 + 
    S2[a4, SP[a1, a2], a1, a3, a1, n]/2 + S2[a4, SP[a1, a2], a3, a1, a1, n] + 
    S2[a4, SP[a1, a3], a2, a1, a1, n] + S2[SP[a1, a1], a1, a2, a3, a4, n] + 
    S2[SP[a1, a1], a1, a2, a4, a3, n] + S2[SP[a1, a1], a1, a3, a2, a4, n] + 
    S2[SP[a1, a1], a1, a3, a4, a2, n] + S2[SP[a1, a1], a1, a4, a2, a3, n] + 
    S2[SP[a1, a1], a1, a4, a3, a2, n] + S2[SP[a1, a1], a3, a1, a2, a4, n] + 
    S2[SP[a1, a1], a3, a1, a4, a2, n] + S2[SP[a1, a1], a3, a4, a1, a2, n] + 
    S2[SP[a1, a1], a4, a1, a2, a3, n] + S2[SP[a1, a1], a4, a1, a3, a2, n] - 
    S2[SP[a1, a1], a4, a2, a3, a1, n]/2 + S2[SP[a1, a1], a4, a3, a1, a2, n]/
     2 - S2[SP[a1, a1], a4, a3, a2, a1, n]/2 - 
    2*S2[SP[a1, a4], a1, a1, a2, a3, n] - 
    2*S2[SP[a1, a4], a1, a1, a3, a2, n] - S2[SP[a1, a4], a1, a2, a1, a3, n] - 
    S2[SP[a1, a4], a1, a2, a3, a1, n]/2 - 
    (3*S2[SP[a1, a4], a1, a3, a1, a2, n])/2 - 
    S2[SP[a1, a4], a1, a3, a2, a1, n]/2 + S2[SP[a1, a4], a2, a1, a3, a1, n]/
     2 + S2[SP[a1, a4], a2, a3, a1, a1, n] - S2[SP[a1, a4], a3, a1, a1, a2, 
     n] + S2[SP[a1, a4], a3, a2, a1, a1, n] - S2[a4, a2, a1, a1, a3, a1, n] - 
    2*S2[a4, a2, a1, a3, a1, a1, n] - 3*S2[a4, a2, a3, a1, a1, a1, n] - 
    S2[a4, a3, a1, a2, a1, a1, n] - 3*S2[a4, a3, a2, a1, a1, a1, n] /; 
   MyMemberQ[{{a2, a3, a4}}, {a1, a1, a1, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a1_, a1_, a3_, a1_, a2_, a4_, n_] :> 
  S2[a1, a1, a3, n]*S2[a1, a2, a4, n] + S2[SP[a1, a1], SP[a1, a2], 
     SP[a3, a4], n] - 3*S2[a2, a4, n]*S2[a1, a1, a1, a3, n] + 
    S2[a1, a1, SP[a1, a2], SP[a3, a4], n] - S2[a1, SP[a1, a1], a2, 
     SP[a3, a4], n] - S2[a1, SP[a1, a1], SP[a2, a3], a4, n] + 
    2*S2[a1, SP[a1, a2], a1, SP[a3, a4], n] + 
    2*S2[a1, SP[a1, a2], SP[a1, a4], a3, n] - S2[SP[a1, a1], a1, a2, 
     SP[a3, a4], n] - S2[SP[a1, a1], a1, SP[a2, a3], a4, n] - 
    S2[SP[a1, a1], a2, a1, SP[a3, a4], n] - S2[SP[a1, a1], a2, SP[a1, a4], 
     a3, n] - S2[SP[a1, a1], SP[a1, a2], a3, a4, n] - 
    S2[SP[a1, a1], SP[a1, a2], a4, a3, n] + 
    3*S2[SP[a1, a2], a1, a1, SP[a3, a4], n] + 
    3*S2[SP[a1, a2], a1, SP[a1, a4], a3, n] + 
    3*S2[SP[a1, a2], SP[a1, a4], a1, a3, n] - 
    3*S2[a4, n]*S2[a1, a1, a1, a2, a3, n] - 
    3*S2[a1, a1, a1, a2, SP[a3, a4], n] - 
    3*S2[a4, n]*S2[a1, a1, a1, a3, a2, n] + 
    3*S2[a2, n]*S2[a1, a1, a1, a3, a4, n] + 
    3*S2[a2, n]*S2[a1, a1, a1, a4, a3, n] + 
    3*S2[a1, a1, a1, a4, SP[a2, a3], n] + 
    3*S2[a1, a1, a1, SP[a2, a3], a4, n] - 
    3*S2[a1, a1, a1, SP[a3, a4], a2, n] - 
    2*S2[a4, n]*S2[a1, a1, a2, a1, a3, n] - 
    3*S2[a1, a1, a2, a1, SP[a3, a4], n] - 
    3*S2[a1, a1, a2, SP[a1, a4], a3, n] + 
    3*S2[a2, n]*S2[a1, a1, a4, a1, a3, n] + 
    3*S2[a1, a1, a4, a1, SP[a2, a3], n] + 
    3*S2[a1, a1, a4, SP[a1, a2], a3, n] + 
    2*S2[a1, a1, SP[a1, a2], a3, a4, n] + 
    2*S2[a1, a1, SP[a1, a2], a4, a3, n] + S2[a1, a1, SP[a1, a3], a2, a4, n] - 
    3*S2[a1, a1, SP[a1, a4], a2, a3, n] - 
    3*S2[a1, a1, SP[a1, a4], a3, a2, n] + S2[a1, a1, SP[a2, a4], a1, a3, n] - 
    S2[a4, n]*S2[a1, a2, a1, a1, a3, n] - 
    3*S2[a1, a2, a1, a1, SP[a3, a4], n] - 
    3*S2[a1, a2, a1, SP[a1, a4], a3, n] - 
    3*S2[a1, a2, SP[a1, a4], a1, a3, n] + 
    3*S2[a2, n]*S2[a1, a4, a1, a1, a3, n] + 
    3*S2[a1, a4, a1, a1, SP[a2, a3], n] + 
    3*S2[a1, a4, a1, SP[a1, a2], a3, n] - 
    (S2[a1, n]*S2[a1, a4, a2, a1, a3, n])/2 - 
    S2[a1, a4, a2, a1, SP[a1, a3], n]/2 - S2[a1, a4, a2, SP[a1, a1], a3, n]/
     2 + (5*S2[a1, a4, SP[a1, a2], a1, a3, n])/2 + 
    S2[a1, SP[a1, a1], a2, a3, a4, n] + S2[a1, SP[a1, a1], a2, a4, a3, n] + 
    S2[a1, SP[a1, a1], a3, a2, a4, n] + S2[a1, SP[a1, a2], a1, a3, a4, n] + 
    S2[a1, SP[a1, a2], a1, a4, a3, n] + S2[a1, SP[a1, a2], a4, a1, a3, n] - 
    3*S2[a1, SP[a1, a4], a1, a2, a3, n] - 
    3*S2[a1, SP[a1, a4], a1, a3, a2, n] - 
    (5*S2[a1, SP[a1, a4], a2, a1, a3, n])/2 + 
    2*S2[a1, SP[a2, a4], a1, a1, a3, n] - 
    3*S2[a2, a1, a1, a1, SP[a3, a4], n] - 
    3*S2[a2, a1, a1, SP[a1, a4], a3, n] - 
    3*S2[a2, a1, SP[a1, a4], a1, a3, n] - 
    3*S2[a2, SP[a1, a4], a1, a1, a3, n] + 
    3*S2[a2, n]*S2[a4, a1, a1, a1, a3, n] + 
    3*S2[a4, a1, a1, a1, SP[a2, a3], n] + 
    3*S2[a4, a1, a1, SP[a1, a2], a3, n] - 
    (S2[a1, n]*S2[a4, a1, a2, a1, a3, n])/2 - 
    S2[a4, a1, a2, a1, SP[a1, a3], n]/2 - S2[a4, a1, a2, SP[a1, a1], a3, n]/
     2 + (5*S2[a4, a1, SP[a1, a2], a1, a3, n])/2 - 
    S2[a1, n]*S2[a4, a2, a1, a1, a3, n] - S2[a4, a2, a1, a1, SP[a1, a3], n] + 
    (S2[a1, n]*S2[a4, a2, a1, a3, a1, n])/2 + 
    S2[a4, a2, a1, a3, SP[a1, a1], n]/2 - S2[a4, a2, a1, SP[a1, a1], a3, n] + 
    S2[a4, a2, a1, SP[a1, a3], a1, n]/2 - S2[a4, a2, SP[a1, a1], a1, a3, n] + 
    S2[a4, a2, SP[a1, a1], a3, a1, n]/2 - S2[a4, SP[a1, a1], a2, a1, a3, n]/
     2 + 2*S2[a4, SP[a1, a2], a1, a1, a3, n] + 
    S2[a4, SP[a1, a2], a1, a3, a1, n]/2 + S2[SP[a1, a1], a1, a2, a3, a4, n] + 
    S2[SP[a1, a1], a1, a2, a4, a3, n] + S2[SP[a1, a1], a1, a3, a2, a4, n] + 
    S2[SP[a1, a1], a2, a1, a3, a4, n] + S2[SP[a1, a1], a2, a1, a4, a3, n] + 
    S2[SP[a1, a1], a2, a4, a1, a3, n] - S2[SP[a1, a1], a4, a2, a1, a3, n]/2 - 
    3*S2[SP[a1, a4], a1, a1, a2, a3, n] - 
    3*S2[SP[a1, a4], a1, a1, a3, a2, n] - 
    (5*S2[SP[a1, a4], a1, a2, a1, a3, n])/2 - 
    2*S2[SP[a1, a4], a2, a1, a1, a3, n] + S2[SP[a1, a4], a2, a1, a3, a1, n]/
     2 + 3*S2[SP[a2, a4], a1, a1, a1, a3, n] - S2[a4, a2, a1, a3, a1, a1, 
     n] /; MyMemberQ[{{a2, a3, a4}}, {a1, a1, a1, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a1_, a1_, a3_, a1_, a4_, a2_, n_] :> 
  S2[a1, a1, a3, n]*S2[a1, a4, a2, n] + S2[SP[a1, a1], SP[a1, a4], 
     SP[a2, a3], n] + 3*S2[a2, a4, n]*S2[a1, a1, a1, a3, n] - 
    3*S2[a1, a1, SP[a1, a2], SP[a3, a4], n] - 
    2*S2[a1, a1, SP[a1, a4], SP[a2, a3], n] - S2[a1, SP[a1, a1], a4, 
     SP[a2, a3], n] - S2[a1, SP[a1, a1], SP[a3, a4], a2, n] - 
    3*S2[a1, SP[a1, a2], a1, SP[a3, a4], n] - 
    3*S2[a1, SP[a1, a2], SP[a1, a4], a3, n] - S2[a1, SP[a1, a4], a1, 
     SP[a2, a3], n] - S2[a1, SP[a1, a4], SP[a1, a2], a3, n] - 
    S2[SP[a1, a1], a1, a4, SP[a2, a3], n] - S2[SP[a1, a1], a1, SP[a3, a4], 
     a2, n] - S2[SP[a1, a1], a4, a1, SP[a2, a3], n] - 
    S2[SP[a1, a1], a4, SP[a1, a2], a3, n] - S2[SP[a1, a1], SP[a1, a4], a2, 
     a3, n] - S2[SP[a1, a1], SP[a1, a4], a3, a2, n] - 
    3*S2[SP[a1, a2], a1, a1, SP[a3, a4], n] - 
    3*S2[SP[a1, a2], a1, SP[a1, a4], a3, n] - 
    3*S2[SP[a1, a2], SP[a1, a4], a1, a3, n] + 
    3*S2[a1, a1, a1, a2, SP[a3, a4], n] - 
    3*S2[a2, n]*S2[a1, a1, a1, a3, a4, n] - 
    3*S2[a1, a1, a1, a3, SP[a2, a4], n] - 
    3*S2[a2, n]*S2[a1, a1, a1, a4, a3, n] - 
    3*S2[a1, a1, a1, SP[a2, a4], a3, n] + 
    3*S2[a1, a1, a1, SP[a3, a4], a2, n] + 
    3*S2[a1, a1, a2, a1, SP[a3, a4], n] + 
    3*S2[a1, a1, a2, SP[a1, a4], a3, n] - 
    3*S2[a2, n]*S2[a1, a1, a4, a1, a3, n] - S2[a1, a1, a4, a1, SP[a2, a3], 
     n] - S2[a1, a1, a4, SP[a1, a2], a3, n] + S2[a1, a1, SP[a1, a3], a4, a2, 
     n] + 2*S2[a1, a1, SP[a1, a4], a2, a3, n] + 
    2*S2[a1, a1, SP[a1, a4], a3, a2, n] - 
    3*S2[a1, a1, SP[a2, a4], a1, a3, n] + 
    3*S2[a1, a2, a1, a1, SP[a3, a4], n] + 
    3*S2[a1, a2, a1, SP[a1, a4], a3, n] + 
    3*S2[a1, a2, SP[a1, a4], a1, a3, n] - 
    3*S2[a2, n]*S2[a1, a4, a1, a1, a3, n] - 
    2*S2[a1, a4, a1, a1, SP[a2, a3], n] + 
    (S2[a1, n]*S2[a1, a4, a1, a2, a3, n])/2 + 
    S2[a1, a4, a1, a2, SP[a1, a3], n]/2 + 
    (S2[a1, n]*S2[a1, a4, a1, a3, a2, n])/2 + 
    S2[a1, a4, a1, a3, SP[a1, a2], n]/2 - 
    (3*S2[a1, a4, a1, SP[a1, a2], a3, n])/2 + 
    S2[a1, a4, a1, SP[a1, a3], a2, n]/2 + 
    (S2[a1, n]*S2[a1, a4, a2, a1, a3, n])/2 + 
    S2[a1, a4, a2, a1, SP[a1, a3], n]/2 + S2[a1, a4, a2, SP[a1, a1], a3, n]/
     2 + S2[a1, a4, SP[a1, a1], a2, a3, n]/2 + 
    S2[a1, a4, SP[a1, a1], a3, a2, n]/2 - 
    (3*S2[a1, a4, SP[a1, a2], a1, a3, n])/2 + S2[a1, SP[a1, a1], a3, a4, a2, 
     n] + S2[a1, SP[a1, a1], a4, a2, a3, n] + S2[a1, SP[a1, a1], a4, a3, a2, 
     n] + (3*S2[a1, SP[a1, a4], a1, a2, a3, n])/2 + 
    (3*S2[a1, SP[a1, a4], a1, a3, a2, n])/2 + 
    (3*S2[a1, SP[a1, a4], a2, a1, a3, n])/2 - 
    3*S2[a1, SP[a2, a4], a1, a1, a3, n] + 
    3*S2[a2, a1, a1, a1, SP[a3, a4], n] + 
    3*S2[a2, a1, a1, SP[a1, a4], a3, n] + 
    3*S2[a2, a1, SP[a1, a4], a1, a3, n] + 
    3*S2[a2, SP[a1, a4], a1, a1, a3, n] - 
    3*S2[a2, n]*S2[a4, a1, a1, a1, a3, n] - 
    3*S2[a4, a1, a1, a1, SP[a2, a3], n] + 
    S2[a1, n]*S2[a4, a1, a1, a2, a3, n] + S2[a4, a1, a1, a2, SP[a1, a3], n] + 
    S2[a1, n]*S2[a4, a1, a1, a3, a2, n] + S2[a4, a1, a1, a3, SP[a1, a2], n] - 
    2*S2[a4, a1, a1, SP[a1, a2], a3, n] + S2[a4, a1, a1, SP[a1, a3], a2, n] + 
    S2[a1, n]*S2[a4, a1, a2, a1, a3, n] + S2[a4, a1, a2, a1, SP[a1, a3], n] - 
    (S2[a1, n]*S2[a4, a1, a2, a3, a1, n])/2 - 
    S2[a4, a1, a2, a3, SP[a1, a1], n]/2 + S2[a4, a1, a2, SP[a1, a1], a3, n] - 
    S2[a4, a1, a2, SP[a1, a3], a1, n]/2 - 
    (S2[a1, n]*S2[a4, a1, a3, a1, a2, n])/2 - 
    S2[a4, a1, a3, a1, SP[a1, a2], n]/2 - 
    (S2[a1, n]*S2[a4, a1, a3, a2, a1, n])/2 - 
    S2[a4, a1, a3, a2, SP[a1, a1], n]/2 - S2[a4, a1, a3, SP[a1, a1], a2, n]/
     2 - S2[a4, a1, a3, SP[a1, a2], a1, n]/2 + S2[a4, a1, SP[a1, a1], a2, a3, 
     n] + S2[a4, a1, SP[a1, a1], a3, a2, n] - 
    2*S2[a4, a1, SP[a1, a2], a1, a3, n] - S2[a4, a1, SP[a1, a2], a3, a1, n]/
     2 - S2[a4, a1, SP[a1, a3], a1, a2, n]/2 - 
    S2[a4, a1, SP[a1, a3], a2, a1, n]/2 + 
    S2[a1, n]*S2[a4, a2, a1, a1, a3, n] + S2[a4, a2, a1, a1, SP[a1, a3], n] - 
    (S2[a1, n]*S2[a4, a2, a1, a3, a1, n])/2 - 
    S2[a4, a2, a1, a3, SP[a1, a1], n]/2 + S2[a4, a2, a1, SP[a1, a1], a3, n] - 
    S2[a4, a2, a1, SP[a1, a3], a1, n]/2 + S2[a4, a2, SP[a1, a1], a1, a3, n] - 
    S2[a4, a2, SP[a1, a1], a3, a1, n]/2 + S2[a4, SP[a1, a1], a1, a2, a3, n] + 
    S2[a4, SP[a1, a1], a1, a3, a2, n] + S2[a4, SP[a1, a1], a2, a1, a3, n] - 
    S2[a4, SP[a1, a1], a2, a3, a1, n]/2 - S2[a4, SP[a1, a1], a3, a1, a2, n]/
     2 - S2[a4, SP[a1, a1], a3, a2, a1, n]/2 - 
    2*S2[a4, SP[a1, a2], a1, a1, a3, n] - S2[a4, SP[a1, a2], a1, a3, a1, n]/
     2 + S2[SP[a1, a1], a1, a3, a4, a2, n] + S2[SP[a1, a1], a1, a4, a2, a3, 
     n] + S2[SP[a1, a1], a1, a4, a3, a2, n] + 
    (3*S2[SP[a1, a1], a4, a1, a2, a3, n])/2 + 
    (3*S2[SP[a1, a1], a4, a1, a3, a2, n])/2 + 
    (3*S2[SP[a1, a1], a4, a2, a1, a3, n])/2 + S2[SP[a1, a4], a1, a1, a2, a3, 
     n] + S2[SP[a1, a4], a1, a1, a3, a2, n] + S2[SP[a1, a4], a1, a2, a1, a3, 
     n] - S2[SP[a1, a4], a1, a2, a3, a1, n]/2 - 
    S2[SP[a1, a4], a1, a3, a1, a2, n]/2 - S2[SP[a1, a4], a1, a3, a2, a1, n]/
     2 + S2[SP[a1, a4], a2, a1, a1, a3, n] - 
    S2[SP[a1, a4], a2, a1, a3, a1, n]/2 - 
    3*S2[SP[a2, a4], a1, a1, a1, a3, n] + S2[a4, a1, a2, a3, a1, a1, n] + 
    S2[a4, a1, a3, a1, a1, a2, n] + S2[a4, a1, a3, a1, a2, a1, n] + 
    S2[a4, a1, a3, a2, a1, a1, n] + S2[a4, a2, a1, a3, a1, a1, n] /; 
   MyMemberQ[{{a2, a3, a4}}, {a1, a1, a1, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a1_, a1_, a3_, a2_, a1_, a4_, n_] :> 
  -(S2[a1, a1, a3, n]*S2[a1, a2, a4, n]) - S2[a1, a1, a3, n]*
     S2[a1, a4, a2, n] - S2[SP[a1, a1], SP[a1, a2], SP[a3, a4], n] - 
    S2[SP[a1, a1], SP[a1, a4], SP[a2, a3], n] + 
    S2[a1, a4, n]*S2[a1, a1, a3, a2, n] + 
    2*S2[a1, a1, SP[a1, a2], SP[a3, a4], n] - S2[a1, a1, SP[a1, a3], 
     SP[a2, a4], n] + 2*S2[a1, a1, SP[a1, a4], SP[a2, a3], n] + 
    S2[a1, SP[a1, a1], a2, SP[a3, a4], n] - S2[a1, SP[a1, a1], a3, 
     SP[a2, a4], n] + S2[a1, SP[a1, a1], a4, SP[a2, a3], n] + 
    S2[a1, SP[a1, a1], SP[a2, a3], a4, n] + S2[a1, SP[a1, a2], a1, 
     SP[a3, a4], n] + S2[a1, SP[a1, a2], SP[a1, a4], a3, n] + 
    S2[a1, SP[a1, a4], a1, SP[a2, a3], n] + S2[a1, SP[a1, a4], SP[a1, a2], 
     a3, n] + S2[SP[a1, a1], a1, a2, SP[a3, a4], n] - 
    S2[SP[a1, a1], a1, a3, SP[a2, a4], n] + S2[SP[a1, a1], a1, a4, 
     SP[a2, a3], n] + S2[SP[a1, a1], a1, SP[a2, a3], a4, n] + 
    S2[SP[a1, a1], a2, a1, SP[a3, a4], n] + S2[SP[a1, a1], a2, SP[a1, a4], 
     a3, n] + S2[SP[a1, a1], a4, a1, SP[a2, a3], n] + 
    S2[SP[a1, a1], a4, SP[a1, a2], a3, n] + S2[SP[a1, a1], SP[a1, a2], a3, 
     a4, n] + S2[SP[a1, a1], SP[a1, a2], a4, a3, n] + 
    S2[SP[a1, a1], SP[a1, a4], a2, a3, n] + 
    3*S2[a4, n]*S2[a1, a1, a1, a2, a3, n] + 
    3*S2[a1, a1, a1, a3, SP[a2, a4], n] - 
    3*S2[a1, a1, a1, a4, SP[a2, a3], n] - 
    3*S2[a1, a1, a1, SP[a2, a3], a4, n] + 
    3*S2[a1, a1, a1, SP[a2, a4], a3, n] + 
    2*S2[a4, n]*S2[a1, a1, a2, a1, a3, n] + S2[a1, a1, a3, a1, SP[a2, a4], 
     n] + S2[a1, a1, a3, SP[a1, a2], a4, n] - 
    2*S2[a1, a1, a4, a1, SP[a2, a3], n] - 
    2*S2[a1, a1, a4, SP[a1, a2], a3, n] - 
    2*S2[a1, a1, SP[a1, a2], a3, a4, n] - 
    2*S2[a1, a1, SP[a1, a2], a4, a3, n] + S2[a1, a1, SP[a1, a4], a2, a3, n] + 
    2*S2[a1, a1, SP[a2, a4], a1, a3, n] + 
    S2[a4, n]*S2[a1, a2, a1, a1, a3, n] - S2[a1, a4, a1, a1, SP[a2, a3], n] - 
    (S2[a1, n]*S2[a1, a4, a1, a2, a3, n])/2 - 
    S2[a1, a4, a1, a2, SP[a1, a3], n]/2 - 
    (3*S2[a1, a4, a1, SP[a1, a2], a3, n])/2 - 
    S2[a1, a4, SP[a1, a1], a2, a3, n]/2 - S2[a1, a4, SP[a1, a2], a1, a3, n] - 
    S2[a1, SP[a1, a1], a2, a3, a4, n] - S2[a1, SP[a1, a1], a2, a4, a3, n] - 
    S2[a1, SP[a1, a1], a4, a2, a3, n] - S2[a1, SP[a1, a2], a1, a3, a4, n] - 
    S2[a1, SP[a1, a2], a1, a4, a3, n] - S2[a1, SP[a1, a2], a4, a1, a3, n] + 
    (3*S2[a1, SP[a1, a4], a1, a2, a3, n])/2 + S2[a1, SP[a1, a4], a2, a1, a3, 
     n] + S2[a1, SP[a2, a4], a1, a1, a3, n] - 
    S2[a1, n]*S2[a4, a1, a1, a2, a3, n] - S2[a4, a1, a1, a2, SP[a1, a3], n] - 
    S2[a4, a1, a1, SP[a1, a2], a3, n] - (S2[a1, n]*S2[a4, a1, a2, a1, a3, n])/
     2 - S2[a4, a1, a2, a1, SP[a1, a3], n]/2 + 
    (S2[a1, n]*S2[a4, a1, a2, a3, a1, n])/2 + 
    S2[a4, a1, a2, a3, SP[a1, a1], n]/2 - S2[a4, a1, a2, SP[a1, a1], a3, n]/
     2 + S2[a4, a1, a2, SP[a1, a3], a1, n]/2 - S2[a4, a1, SP[a1, a1], a2, a3, 
     n] - S2[a4, a1, SP[a1, a2], a1, a3, n]/2 + 
    S2[a4, a1, SP[a1, a2], a3, a1, n]/2 - S2[a4, SP[a1, a1], a1, a2, a3, n] - 
    S2[a4, SP[a1, a1], a2, a1, a3, n]/2 + S2[a4, SP[a1, a1], a2, a3, a1, n]/
     2 - S2[SP[a1, a1], a1, a2, a3, a4, n] - S2[SP[a1, a1], a1, a2, a4, a3, 
     n] - S2[SP[a1, a1], a1, a4, a2, a3, n] - S2[SP[a1, a1], a2, a1, a3, a4, 
     n] - S2[SP[a1, a1], a2, a1, a4, a3, n] - S2[SP[a1, a1], a2, a4, a1, a3, 
     n] - (3*S2[SP[a1, a1], a4, a1, a2, a3, n])/2 - 
    S2[SP[a1, a1], a4, a2, a1, a3, n] + 2*S2[SP[a1, a4], a1, a1, a2, a3, n] + 
    (3*S2[SP[a1, a4], a1, a2, a1, a3, n])/2 + 
    S2[SP[a1, a4], a1, a2, a3, a1, n]/2 + S2[SP[a1, a4], a2, a1, a1, a3, n] - 
    S2[a4, a1, a2, a3, a1, a1, n] /; 
   MyMemberQ[{{a2, a3, a4}}, {a1, a1, a1, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a1_, a1_, a3_, a2_, a4_, a1_, n_] :> 
  S2[a1, a1, a3, n]*S2[a1, a4, a2, n] + S2[SP[a1, a1], SP[a1, a4], 
     SP[a2, a3], n] - S2[a1, a4, n]*S2[a1, a1, a3, a2, n] + 
    S2[a1, a1, SP[a1, a3], SP[a2, a4], n] - 
    2*S2[a1, a1, SP[a1, a4], SP[a2, a3], n] + S2[a1, SP[a1, a1], a3, 
     SP[a2, a4], n] - S2[a1, SP[a1, a1], a4, SP[a2, a3], n] - 
    S2[a1, SP[a1, a4], a1, SP[a2, a3], n] - S2[a1, SP[a1, a4], SP[a1, a2], 
     a3, n] + S2[SP[a1, a1], a1, a3, SP[a2, a4], n] - 
    S2[SP[a1, a1], a1, a4, SP[a2, a3], n] - S2[SP[a1, a1], a4, a1, 
     SP[a2, a3], n] - S2[SP[a1, a1], a4, SP[a1, a2], a3, n] - 
    S2[SP[a1, a1], SP[a1, a4], a2, a3, n] - 
    3*S2[a1, a1, a1, a3, SP[a2, a4], n] + 
    3*S2[a1, a1, a1, a4, SP[a2, a3], n] - S2[a1, a1, a3, a1, SP[a2, a4], n] + 
    S2[a1, n]*S2[a1, a1, a3, a2, a4, n] + S2[a1, a1, a3, a2, SP[a1, a4], n] + 
    2*S2[a1, a1, a4, a1, SP[a2, a3], n] - 
    S2[a1, n]*S2[a1, a1, a4, a2, a3, n] - S2[a1, a1, a4, a2, SP[a1, a3], n] + 
    S2[a1, a1, a4, SP[a1, a2], a3, n] + S2[a1, a1, SP[a1, a4], a2, a3, n] + 
    S2[a1, a4, a1, a1, SP[a2, a3], n] - (S2[a1, n]*S2[a1, a4, a1, a2, a3, n])/
     2 - S2[a1, a4, a1, a2, SP[a1, a3], n]/2 + 
    S2[a1, a4, a1, SP[a1, a2], a3, n]/2 - 
    (S2[a1, n]*S2[a1, a4, a2, a1, a3, n])/2 - 
    S2[a1, a4, a2, a1, SP[a1, a3], n]/2 + 
    (S2[a1, n]*S2[a1, a4, a2, a3, a1, n])/2 + 
    S2[a1, a4, a2, a3, SP[a1, a1], n]/2 - S2[a1, a4, a2, SP[a1, a1], a3, n]/
     2 + S2[a1, a4, a2, SP[a1, a3], a1, n]/2 - 
    S2[a1, a4, SP[a1, a1], a2, a3, n]/2 + S2[a1, a4, SP[a1, a2], a1, a3, n]/
     2 + S2[a1, a4, SP[a1, a2], a3, a1, n]/2 + 
    S2[a1, SP[a1, a4], a1, a2, a3, n]/2 + S2[a1, SP[a1, a4], a2, a1, a3, n]/
     2 + S2[a1, SP[a1, a4], a2, a3, a1, n]/2 - 
    S2[a1, n]*S2[a4, a2, a3, a1, a1, n] - S2[a4, a2, a3, a1, SP[a1, a1], n] - 
    S2[a4, a2, a3, SP[a1, a1], a1, n] - S2[a4, a2, SP[a1, a3], a1, a1, n] - 
    S2[a4, SP[a1, a2], a3, a1, a1, n] + S2[SP[a1, a1], a4, a1, a2, a3, n]/2 + 
    S2[SP[a1, a1], a4, a2, a1, a3, n]/2 + S2[SP[a1, a1], a4, a2, a3, a1, n]/
     2 - S2[SP[a1, a4], a2, a3, a1, a1, n] + S2[a4, a1, a2, a3, a1, a1, n] + 
    S2[a4, a2, a1, a3, a1, a1, n] + 3*S2[a4, a2, a3, a1, a1, a1, n] /; 
   MyMemberQ[{{a2, a3, a4}}, {a1, a1, a1, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a1_, a1_, a3_, a4_, a1_, a2_, n_] :> 
  -(S2[a1, a1, a3, n]*S2[a1, a2, a4, n]) - S2[a1, a1, a3, n]*
     S2[a1, a4, a2, n] - S2[SP[a1, a1], SP[a1, a2], SP[a3, a4], n] - 
    S2[SP[a1, a1], SP[a1, a4], SP[a2, a3], n] + 
    2*S2[a1, a1, SP[a1, a2], SP[a3, a4], n] + 
    2*S2[a1, a1, SP[a1, a4], SP[a2, a3], n] + S2[a1, SP[a1, a1], a2, 
     SP[a3, a4], n] + S2[a1, SP[a1, a1], a4, SP[a2, a3], n] + 
    S2[a1, SP[a1, a1], SP[a2, a3], a4, n] + S2[a1, SP[a1, a1], SP[a3, a4], 
     a2, n] + S2[a1, SP[a1, a2], a1, SP[a3, a4], n] + 
    S2[a1, SP[a1, a2], SP[a1, a4], a3, n] + S2[a1, SP[a1, a4], a1, 
     SP[a2, a3], n] + S2[a1, SP[a1, a4], SP[a1, a2], a3, n] + 
    S2[SP[a1, a1], a1, a2, SP[a3, a4], n] + S2[SP[a1, a1], a1, a4, 
     SP[a2, a3], n] + S2[SP[a1, a1], a1, SP[a2, a3], a4, n] + 
    S2[SP[a1, a1], a1, SP[a3, a4], a2, n] + S2[SP[a1, a1], a2, a1, 
     SP[a3, a4], n] + S2[SP[a1, a1], a2, SP[a1, a4], a3, n] + 
    S2[SP[a1, a1], a4, a1, SP[a2, a3], n] + S2[SP[a1, a1], a4, SP[a1, a2], 
     a3, n] + S2[SP[a1, a1], SP[a1, a2], a3, a4, n] + 
    S2[SP[a1, a1], SP[a1, a2], a4, a3, n] + S2[SP[a1, a1], SP[a1, a4], a2, 
     a3, n] + S2[SP[a1, a1], SP[a1, a4], a3, a2, n] + 
    3*S2[a4, n]*S2[a1, a1, a1, a2, a3, n] + 
    3*S2[a4, n]*S2[a1, a1, a1, a3, a2, n] + 
    3*S2[a1, a1, a1, a3, SP[a2, a4], n] - 
    3*S2[a1, a1, a1, a4, SP[a2, a3], n] - 
    3*S2[a1, a1, a1, SP[a2, a3], a4, n] + 
    3*S2[a1, a1, a1, SP[a2, a4], a3, n] + 
    2*S2[a4, n]*S2[a1, a1, a2, a1, a3, n] + 
    S2[a4, n]*S2[a1, a1, a3, a1, a2, n] + S2[a1, a1, a3, a1, SP[a2, a4], n] + 
    S2[a1, a1, a3, SP[a1, a4], a2, n] - 2*S2[a1, a1, a4, a1, SP[a2, a3], n] - 
    2*S2[a1, a1, a4, SP[a1, a2], a3, n] - 
    2*S2[a1, a1, SP[a1, a2], a3, a4, n] - 
    2*S2[a1, a1, SP[a1, a2], a4, a3, n] - S2[a1, a1, SP[a1, a3], a2, a4, n] - 
    S2[a1, a1, SP[a1, a3], a4, a2, n] + S2[a1, a1, SP[a1, a4], a2, a3, n] + 
    S2[a1, a1, SP[a1, a4], a3, a2, n] + 2*S2[a1, a1, SP[a2, a4], a1, a3, n] + 
    S2[a1, a1, SP[a3, a4], a1, a2, n] + S2[a4, n]*S2[a1, a2, a1, a1, a3, n] - 
    S2[a1, a4, a1, a1, SP[a2, a3], n] - (S2[a1, n]*S2[a1, a4, a1, a2, a3, n])/
     2 - S2[a1, a4, a1, a2, SP[a1, a3], n]/2 - 
    (S2[a1, n]*S2[a1, a4, a1, a3, a2, n])/2 - 
    S2[a1, a4, a1, a3, SP[a1, a2], n]/2 - 
    (3*S2[a1, a4, a1, SP[a1, a2], a3, n])/2 - 
    S2[a1, a4, a1, SP[a1, a3], a2, n]/2 - 
    (S2[a1, n]*S2[a1, a4, a3, a1, a2, n])/2 - 
    S2[a1, a4, a3, a1, SP[a1, a2], n]/2 - S2[a1, a4, a3, SP[a1, a1], a2, n]/
     2 - S2[a1, a4, SP[a1, a1], a2, a3, n]/2 - 
    S2[a1, a4, SP[a1, a1], a3, a2, n]/2 - S2[a1, a4, SP[a1, a2], a1, a3, n] - 
    S2[a1, a4, SP[a1, a3], a1, a2, n]/2 - S2[a1, SP[a1, a1], a2, a3, a4, n] - 
    S2[a1, SP[a1, a1], a2, a4, a3, n] - S2[a1, SP[a1, a1], a3, a2, a4, n] - 
    S2[a1, SP[a1, a1], a3, a4, a2, n] - S2[a1, SP[a1, a1], a4, a2, a3, n] - 
    S2[a1, SP[a1, a1], a4, a3, a2, n] - S2[a1, SP[a1, a2], a1, a3, a4, n] - 
    S2[a1, SP[a1, a2], a1, a4, a3, n] - S2[a1, SP[a1, a2], a4, a1, a3, n] + 
    (3*S2[a1, SP[a1, a4], a1, a2, a3, n])/2 + 
    (3*S2[a1, SP[a1, a4], a1, a3, a2, n])/2 + S2[a1, SP[a1, a4], a2, a1, a3, 
     n] + S2[a1, SP[a1, a4], a3, a1, a2, n]/2 + S2[a1, SP[a2, a4], a1, a1, 
     a3, n] - S2[a1, n]*S2[a4, a1, a1, a2, a3, n] - 
    S2[a4, a1, a1, a2, SP[a1, a3], n] - S2[a1, n]*S2[a4, a1, a1, a3, a2, n] - 
    S2[a4, a1, a1, a3, SP[a1, a2], n] - S2[a4, a1, a1, SP[a1, a2], a3, n] - 
    S2[a4, a1, a1, SP[a1, a3], a2, n] - (S2[a1, n]*S2[a4, a1, a2, a1, a3, n])/
     2 - S2[a4, a1, a2, a1, SP[a1, a3], n]/2 + 
    (S2[a1, n]*S2[a4, a1, a2, a3, a1, n])/2 + 
    S2[a4, a1, a2, a3, SP[a1, a1], n]/2 - S2[a4, a1, a2, SP[a1, a1], a3, n]/
     2 + S2[a4, a1, a2, SP[a1, a3], a1, n]/2 + 
    (S2[a1, n]*S2[a4, a1, a3, a2, a1, n])/2 + 
    S2[a4, a1, a3, a2, SP[a1, a1], n]/2 + S2[a4, a1, a3, SP[a1, a2], a1, n]/
     2 - S2[a4, a1, SP[a1, a1], a2, a3, n] - S2[a4, a1, SP[a1, a1], a3, a2, 
     n] - S2[a4, a1, SP[a1, a2], a1, a3, n]/2 + 
    S2[a4, a1, SP[a1, a2], a3, a1, n]/2 + S2[a4, a1, SP[a1, a3], a2, a1, n]/
     2 + S2[a1, n]*S2[a4, a3, a1, a1, a2, n] + S2[a4, a3, a1, a1, SP[a1, a2], 
     n] + (S2[a1, n]*S2[a4, a3, a1, a2, a1, n])/2 + 
    S2[a4, a3, a1, a2, SP[a1, a1], n]/2 + S2[a4, a3, a1, SP[a1, a1], a2, n] + 
    S2[a4, a3, a1, SP[a1, a2], a1, n]/2 + S2[a4, a3, SP[a1, a1], a1, a2, n] + 
    S2[a4, a3, SP[a1, a1], a2, a1, n]/2 - S2[a4, SP[a1, a1], a1, a2, a3, n] - 
    S2[a4, SP[a1, a1], a1, a3, a2, n] - S2[a4, SP[a1, a1], a2, a1, a3, n]/2 + 
    S2[a4, SP[a1, a1], a2, a3, a1, n]/2 + S2[a4, SP[a1, a1], a3, a2, a1, n]/
     2 + S2[a4, SP[a1, a3], a1, a1, a2, n] + 
    S2[a4, SP[a1, a3], a1, a2, a1, n]/2 - S2[SP[a1, a1], a1, a2, a3, a4, n] - 
    S2[SP[a1, a1], a1, a2, a4, a3, n] - S2[SP[a1, a1], a1, a3, a2, a4, n] - 
    S2[SP[a1, a1], a1, a3, a4, a2, n] - S2[SP[a1, a1], a1, a4, a2, a3, n] - 
    S2[SP[a1, a1], a1, a4, a3, a2, n] - S2[SP[a1, a1], a2, a1, a3, a4, n] - 
    S2[SP[a1, a1], a2, a1, a4, a3, n] - S2[SP[a1, a1], a2, a4, a1, a3, n] - 
    (3*S2[SP[a1, a1], a4, a1, a2, a3, n])/2 - 
    (3*S2[SP[a1, a1], a4, a1, a3, a2, n])/2 - S2[SP[a1, a1], a4, a2, a1, a3, 
     n] - S2[SP[a1, a1], a4, a3, a1, a2, n]/2 + 
    2*S2[SP[a1, a4], a1, a1, a2, a3, n] + 
    2*S2[SP[a1, a4], a1, a1, a3, a2, n] + 
    (3*S2[SP[a1, a4], a1, a2, a1, a3, n])/2 + 
    S2[SP[a1, a4], a1, a2, a3, a1, n]/2 + S2[SP[a1, a4], a1, a3, a1, a2, n] + 
    S2[SP[a1, a4], a1, a3, a2, a1, n]/2 + S2[SP[a1, a4], a2, a1, a1, a3, n] + 
    S2[SP[a1, a4], a3, a1, a1, a2, n] + S2[SP[a1, a4], a3, a1, a2, a1, n]/2 - 
    S2[a4, a1, a2, a3, a1, a1, n] - S2[a4, a1, a3, a1, a1, a2, n] - 
    S2[a4, a1, a3, a1, a2, a1, n] - S2[a4, a1, a3, a2, a1, a1, n] - 
    3*S2[a4, a3, a1, a1, a1, a2, n] - 2*S2[a4, a3, a1, a1, a2, a1, n] - 
    S2[a4, a3, a1, a2, a1, a1, n] /; 
   MyMemberQ[{{a2, a3, a4}}, {a1, a1, a1, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a1_, a1_, a3_, a4_, a2_, a1_, n_] :> 
  S2[a1, a1, a3, n]*S2[a1, a2, a4, n] + S2[SP[a1, a1], SP[a1, a2], 
     SP[a3, a4], n] - 2*S2[a1, a1, SP[a1, a2], SP[a3, a4], n] - 
    S2[a1, SP[a1, a1], a2, SP[a3, a4], n] - S2[a1, SP[a1, a1], SP[a2, a3], 
     a4, n] - S2[a1, SP[a1, a2], a1, SP[a3, a4], n] - 
    S2[a1, SP[a1, a2], SP[a1, a4], a3, n] - S2[SP[a1, a1], a1, a2, 
     SP[a3, a4], n] - S2[SP[a1, a1], a1, SP[a2, a3], a4, n] - 
    S2[SP[a1, a1], a2, a1, SP[a3, a4], n] - S2[SP[a1, a1], a2, SP[a1, a4], 
     a3, n] - S2[SP[a1, a1], SP[a1, a2], a3, a4, n] - 
    S2[SP[a1, a1], SP[a1, a2], a4, a3, n] - 
    3*S2[a4, n]*S2[a1, a1, a1, a2, a3, n] - 
    3*S2[a4, n]*S2[a1, a1, a1, a3, a2, n] - 
    3*S2[a1, a1, a1, a3, SP[a2, a4], n] + 
    3*S2[a1, a1, a1, SP[a2, a3], a4, n] - 
    3*S2[a1, a1, a1, SP[a2, a4], a3, n] - 
    3*S2[a1, a1, a1, SP[a3, a4], a2, n] - 
    2*S2[a4, n]*S2[a1, a1, a2, a1, a3, n] - 
    S2[a4, n]*S2[a1, a1, a3, a1, a2, n] - S2[a1, a1, a3, a1, SP[a2, a4], n] + 
    S2[a1, n]*S2[a1, a1, a3, a4, a2, n] + S2[a1, a1, a3, a4, SP[a1, a2], n] + 
    S2[a1, n]*S2[a1, a1, a4, a2, a3, n] + S2[a1, a1, a4, a2, SP[a1, a3], n] + 
    S2[a1, n]*S2[a1, a1, a4, a3, a2, n] + S2[a1, a1, a4, a3, SP[a1, a2], n] + 
    S2[a1, a1, a4, SP[a1, a2], a3, n] + S2[a1, a1, a4, SP[a1, a3], a2, n] + 
    2*S2[a1, a1, SP[a1, a2], a3, a4, n] + 
    2*S2[a1, a1, SP[a1, a2], a4, a3, n] + S2[a1, a1, SP[a1, a3], a2, a4, n] + 
    S2[a1, a1, SP[a1, a3], a4, a2, n] - 2*S2[a1, a1, SP[a1, a4], a2, a3, n] - 
    2*S2[a1, a1, SP[a1, a4], a3, a2, n] - 
    2*S2[a1, a1, SP[a2, a4], a1, a3, n] - S2[a1, a1, SP[a3, a4], a1, a2, n] - 
    S2[a4, n]*S2[a1, a2, a1, a1, a3, n] + 
    S2[a1, n]*S2[a1, a4, a1, a2, a3, n] + S2[a1, a4, a1, a2, SP[a1, a3], n] + 
    S2[a1, n]*S2[a1, a4, a1, a3, a2, n] + S2[a1, a4, a1, a3, SP[a1, a2], n] + 
    S2[a1, a4, a1, SP[a1, a2], a3, n] + S2[a1, a4, a1, SP[a1, a3], a2, n] + 
    (S2[a1, n]*S2[a1, a4, a2, a1, a3, n])/2 + 
    S2[a1, a4, a2, a1, SP[a1, a3], n]/2 - 
    (S2[a1, n]*S2[a1, a4, a2, a3, a1, n])/2 - 
    S2[a1, a4, a2, a3, SP[a1, a1], n]/2 + S2[a1, a4, a2, SP[a1, a1], a3, n]/
     2 - S2[a1, a4, a2, SP[a1, a3], a1, n]/2 - 
    (S2[a1, n]*S2[a1, a4, a3, a2, a1, n])/2 - 
    S2[a1, a4, a3, a2, SP[a1, a1], n]/2 - S2[a1, a4, a3, SP[a1, a2], a1, n]/
     2 + S2[a1, a4, SP[a1, a1], a2, a3, n] + S2[a1, a4, SP[a1, a1], a3, a2, 
     n] + S2[a1, a4, SP[a1, a2], a1, a3, n]/2 - 
    S2[a1, a4, SP[a1, a2], a3, a1, n]/2 - S2[a1, a4, SP[a1, a3], a2, a1, n]/
     2 + S2[a1, SP[a1, a1], a2, a3, a4, n] + S2[a1, SP[a1, a1], a2, a4, a3, 
     n] + S2[a1, SP[a1, a1], a3, a2, a4, n] + S2[a1, SP[a1, a1], a3, a4, a2, 
     n] + S2[a1, SP[a1, a1], a4, a2, a3, n] + S2[a1, SP[a1, a1], a4, a3, a2, 
     n] + S2[a1, SP[a1, a2], a1, a3, a4, n] + S2[a1, SP[a1, a2], a1, a4, a3, 
     n] + S2[a1, SP[a1, a2], a4, a1, a3, n] - 
    2*S2[a1, SP[a1, a4], a1, a2, a3, n] - 
    2*S2[a1, SP[a1, a4], a1, a3, a2, n] - 
    (3*S2[a1, SP[a1, a4], a2, a1, a3, n])/2 - 
    S2[a1, SP[a1, a4], a2, a3, a1, n]/2 - S2[a1, SP[a1, a4], a3, a1, a2, n] - 
    S2[a1, SP[a1, a4], a3, a2, a1, n]/2 - S2[a1, SP[a2, a4], a1, a1, a3, n] + 
    S2[a1, n]*S2[a4, a1, a1, a2, a3, n] + S2[a4, a1, a1, a2, SP[a1, a3], n] + 
    S2[a1, n]*S2[a4, a1, a1, a3, a2, n] + S2[a4, a1, a1, a3, SP[a1, a2], n] + 
    S2[a4, a1, a1, SP[a1, a2], a3, n] + S2[a4, a1, a1, SP[a1, a3], a2, n] + 
    (S2[a1, n]*S2[a4, a1, a2, a1, a3, n])/2 + 
    S2[a4, a1, a2, a1, SP[a1, a3], n]/2 - 
    (S2[a1, n]*S2[a4, a1, a2, a3, a1, n])/2 - 
    S2[a4, a1, a2, a3, SP[a1, a1], n]/2 + S2[a4, a1, a2, SP[a1, a1], a3, n]/
     2 - S2[a4, a1, a2, SP[a1, a3], a1, n]/2 - 
    (S2[a1, n]*S2[a4, a1, a3, a2, a1, n])/2 - 
    S2[a4, a1, a3, a2, SP[a1, a1], n]/2 - S2[a4, a1, a3, SP[a1, a2], a1, n]/
     2 + S2[a4, a1, SP[a1, a1], a2, a3, n] + S2[a4, a1, SP[a1, a1], a3, a2, 
     n] + S2[a4, a1, SP[a1, a2], a1, a3, n]/2 - 
    S2[a4, a1, SP[a1, a2], a3, a1, n]/2 - S2[a4, a1, SP[a1, a3], a2, a1, n]/
     2 + S2[a1, n]*S2[a4, a2, a3, a1, a1, n] + S2[a4, a2, a3, a1, SP[a1, a1], 
     n] + S2[a4, a2, a3, SP[a1, a1], a1, n] + S2[a4, a2, SP[a1, a3], a1, a1, 
     n] + (S2[a1, n]*S2[a4, a3, a1, a2, a1, n])/2 + 
    S2[a4, a3, a1, a2, SP[a1, a1], n]/2 + S2[a4, a3, a1, SP[a1, a2], a1, n]/
     2 + S2[a1, n]*S2[a4, a3, a2, a1, a1, n] + S2[a4, a3, a2, a1, SP[a1, a1], 
     n] + S2[a4, a3, a2, SP[a1, a1], a1, n] + 
    S2[a4, a3, SP[a1, a1], a2, a1, n]/2 + S2[a4, a3, SP[a1, a2], a1, a1, n] + 
    S2[a4, SP[a1, a1], a1, a2, a3, n] + S2[a4, SP[a1, a1], a1, a3, a2, n] + 
    S2[a4, SP[a1, a1], a2, a1, a3, n]/2 - S2[a4, SP[a1, a1], a2, a3, a1, n]/
     2 - S2[a4, SP[a1, a1], a3, a2, a1, n]/2 + S2[a4, SP[a1, a2], a3, a1, a1, 
     n] + S2[a4, SP[a1, a3], a1, a2, a1, n]/2 + S2[a4, SP[a1, a3], a2, a1, 
     a1, n] + S2[SP[a1, a1], a1, a2, a3, a4, n] + S2[SP[a1, a1], a1, a2, a4, 
     a3, n] + S2[SP[a1, a1], a1, a3, a2, a4, n] + S2[SP[a1, a1], a1, a3, a4, 
     a2, n] + S2[SP[a1, a1], a1, a4, a2, a3, n] + S2[SP[a1, a1], a1, a4, a3, 
     a2, n] + S2[SP[a1, a1], a2, a1, a3, a4, n] + S2[SP[a1, a1], a2, a1, a4, 
     a3, n] + S2[SP[a1, a1], a2, a4, a1, a3, n] + S2[SP[a1, a1], a4, a1, a2, 
     a3, n] + S2[SP[a1, a1], a4, a1, a3, a2, n] + 
    S2[SP[a1, a1], a4, a2, a1, a3, n]/2 - S2[SP[a1, a1], a4, a2, a3, a1, n]/
     2 - S2[SP[a1, a1], a4, a3, a2, a1, n]/2 - 
    2*S2[SP[a1, a4], a1, a1, a2, a3, n] - 
    2*S2[SP[a1, a4], a1, a1, a3, a2, n] - 
    (3*S2[SP[a1, a4], a1, a2, a1, a3, n])/2 - 
    S2[SP[a1, a4], a1, a2, a3, a1, n]/2 - S2[SP[a1, a4], a1, a3, a1, a2, n] - 
    S2[SP[a1, a4], a1, a3, a2, a1, n]/2 - S2[SP[a1, a4], a2, a1, a1, a3, n] + 
    S2[SP[a1, a4], a2, a3, a1, a1, n] + S2[SP[a1, a4], a3, a1, a2, a1, n]/2 + 
    S2[SP[a1, a4], a3, a2, a1, a1, n] - S2[a4, a2, a1, a3, a1, a1, n] - 
    3*S2[a4, a2, a3, a1, a1, a1, n] - S2[a4, a3, a1, a1, a2, a1, n] - 
    2*S2[a4, a3, a1, a2, a1, a1, n] - 3*S2[a4, a3, a2, a1, a1, a1, n] /; 
   MyMemberQ[{{a2, a3, a4}}, {a1, a1, a1, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a1_, a1_, a4_, a1_, a2_, a3_, n_] :> 
  (S2[a1, n]*S2[a1, a4, a1, a2, a3, n])/2 + S2[a1, a4, a1, a2, SP[a1, a3], n]/
     2 + S2[a1, a4, a1, SP[a1, a2], a3, n]/2 + 
    S2[a1, a4, SP[a1, a1], a2, a3, n]/2 + S2[a1, SP[a1, a4], a1, a2, a3, n]/
     2 - S2[a1, n]*S2[a4, a1, a1, a2, a3, n] - S2[a4, a1, a1, a2, SP[a1, a3], 
     n] - S2[a4, a1, a1, SP[a1, a2], a3, n] - 
    (S2[a1, n]*S2[a4, a1, a2, a1, a3, n])/2 - 
    S2[a4, a1, a2, a1, SP[a1, a3], n]/2 - 
    (S2[a1, n]*S2[a4, a1, a2, a3, a1, n])/2 - 
    S2[a4, a1, a2, a3, SP[a1, a1], n]/2 - S2[a4, a1, a2, SP[a1, a1], a3, n]/
     2 - S2[a4, a1, a2, SP[a1, a3], a1, n]/2 - S2[a4, a1, SP[a1, a1], a2, a3, 
     n] - S2[a4, a1, SP[a1, a2], a1, a3, n]/2 - 
    S2[a4, a1, SP[a1, a2], a3, a1, n]/2 - S2[a4, SP[a1, a1], a1, a2, a3, n] - 
    S2[a4, SP[a1, a1], a2, a1, a3, n]/2 - S2[a4, SP[a1, a1], a2, a3, a1, n]/
     2 + S2[SP[a1, a1], a4, a1, a2, a3, n]/2 - S2[SP[a1, a4], a1, a1, a2, a3, 
     n] - S2[SP[a1, a4], a1, a2, a1, a3, n]/2 - 
    S2[SP[a1, a4], a1, a2, a3, a1, n]/2 + 3*S2[a4, a1, a1, a1, a2, a3, n] + 
    2*S2[a4, a1, a1, a2, a1, a3, n] + 2*S2[a4, a1, a1, a2, a3, a1, n] + 
    S2[a4, a1, a2, a1, a1, a3, n] + S2[a4, a1, a2, a1, a3, a1, n] + 
    S2[a4, a1, a2, a3, a1, a1, n] /; 
   MyMemberQ[{{a2, a3, a4}}, {a1, a1, a1, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a1_, a1_, a4_, a1_, a3_, a2_, n_] :> 
  (S2[a1, n]*S2[a1, a4, a1, a3, a2, n])/2 + S2[a1, a4, a1, a3, SP[a1, a2], n]/
     2 + S2[a1, a4, a1, SP[a1, a3], a2, n]/2 + 
    S2[a1, a4, SP[a1, a1], a3, a2, n]/2 + S2[a1, SP[a1, a4], a1, a3, a2, n]/
     2 - S2[a1, n]*S2[a4, a1, a1, a3, a2, n] - S2[a4, a1, a1, a3, SP[a1, a2], 
     n] - S2[a4, a1, a1, SP[a1, a3], a2, n] - 
    (S2[a1, n]*S2[a4, a1, a3, a1, a2, n])/2 - 
    S2[a4, a1, a3, a1, SP[a1, a2], n]/2 - 
    (S2[a1, n]*S2[a4, a1, a3, a2, a1, n])/2 - 
    S2[a4, a1, a3, a2, SP[a1, a1], n]/2 - S2[a4, a1, a3, SP[a1, a1], a2, n]/
     2 - S2[a4, a1, a3, SP[a1, a2], a1, n]/2 - S2[a4, a1, SP[a1, a1], a3, a2, 
     n] - S2[a4, a1, SP[a1, a3], a1, a2, n]/2 - 
    S2[a4, a1, SP[a1, a3], a2, a1, n]/2 - S2[a4, SP[a1, a1], a1, a3, a2, n] - 
    S2[a4, SP[a1, a1], a3, a1, a2, n]/2 - S2[a4, SP[a1, a1], a3, a2, a1, n]/
     2 + S2[SP[a1, a1], a4, a1, a3, a2, n]/2 - S2[SP[a1, a4], a1, a1, a3, a2, 
     n] - S2[SP[a1, a4], a1, a3, a1, a2, n]/2 - 
    S2[SP[a1, a4], a1, a3, a2, a1, n]/2 + 3*S2[a4, a1, a1, a1, a3, a2, n] + 
    2*S2[a4, a1, a1, a3, a1, a2, n] + 2*S2[a4, a1, a1, a3, a2, a1, n] + 
    S2[a4, a1, a3, a1, a1, a2, n] + S2[a4, a1, a3, a1, a2, a1, n] + 
    S2[a4, a1, a3, a2, a1, a1, n] /; 
   MyMemberQ[{{a2, a3, a4}}, {a1, a1, a1, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a1_, a1_, a4_, a2_, a1_, a3_, n_] :> 
  (S2[a1, n]*S2[a1, a4, a2, a1, a3, n])/2 + S2[a1, a4, a2, a1, SP[a1, a3], n]/
     2 + S2[a1, a4, a2, SP[a1, a1], a3, n]/2 + 
    S2[a1, a4, SP[a1, a2], a1, a3, n]/2 + S2[a1, SP[a1, a4], a2, a1, a3, n]/
     2 - (S2[a1, n]*S2[a4, a1, a2, a1, a3, n])/2 - 
    S2[a4, a1, a2, a1, SP[a1, a3], n]/2 - S2[a4, a1, a2, SP[a1, a1], a3, n]/
     2 - S2[a4, a1, SP[a1, a2], a1, a3, n]/2 - 
    S2[a1, n]*S2[a4, a2, a1, a1, a3, n] - S2[a4, a2, a1, a1, SP[a1, a3], n] - 
    (S2[a1, n]*S2[a4, a2, a1, a3, a1, n])/2 - 
    S2[a4, a2, a1, a3, SP[a1, a1], n]/2 - S2[a4, a2, a1, SP[a1, a1], a3, n] - 
    S2[a4, a2, a1, SP[a1, a3], a1, n]/2 - S2[a4, a2, SP[a1, a1], a1, a3, n] - 
    S2[a4, a2, SP[a1, a1], a3, a1, n]/2 - S2[a4, SP[a1, a1], a2, a1, a3, n]/
     2 - S2[a4, SP[a1, a2], a1, a1, a3, n] - 
    S2[a4, SP[a1, a2], a1, a3, a1, n]/2 + S2[SP[a1, a1], a4, a2, a1, a3, n]/
     2 - S2[SP[a1, a4], a1, a2, a1, a3, n]/2 - S2[SP[a1, a4], a2, a1, a1, a3, 
     n] - S2[SP[a1, a4], a2, a1, a3, a1, n]/2 + S2[a4, a1, a1, a2, a1, a3, 
     n] + 2*S2[a4, a1, a2, a1, a1, a3, n] + S2[a4, a1, a2, a1, a3, a1, n] + 
    3*S2[a4, a2, a1, a1, a1, a3, n] + 2*S2[a4, a2, a1, a1, a3, a1, n] + 
    S2[a4, a2, a1, a3, a1, a1, n] /; 
   MyMemberQ[{{a2, a3, a4}}, {a1, a1, a1, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a1_, a1_, a4_, a2_, a3_, a1_, n_] :> 
  (S2[a1, n]*S2[a1, a4, a2, a3, a1, n])/2 + S2[a1, a4, a2, a3, SP[a1, a1], n]/
     2 + S2[a1, a4, a2, SP[a1, a3], a1, n]/2 + 
    S2[a1, a4, SP[a1, a2], a3, a1, n]/2 + S2[a1, SP[a1, a4], a2, a3, a1, n]/
     2 - (S2[a1, n]*S2[a4, a1, a2, a3, a1, n])/2 - 
    S2[a4, a1, a2, a3, SP[a1, a1], n]/2 - S2[a4, a1, a2, SP[a1, a3], a1, n]/
     2 - S2[a4, a1, SP[a1, a2], a3, a1, n]/2 - 
    (S2[a1, n]*S2[a4, a2, a1, a3, a1, n])/2 - 
    S2[a4, a2, a1, a3, SP[a1, a1], n]/2 - S2[a4, a2, a1, SP[a1, a3], a1, n]/
     2 - S2[a1, n]*S2[a4, a2, a3, a1, a1, n] - S2[a4, a2, a3, a1, SP[a1, a1], 
     n] - S2[a4, a2, a3, SP[a1, a1], a1, n] - 
    S2[a4, a2, SP[a1, a1], a3, a1, n]/2 - S2[a4, a2, SP[a1, a3], a1, a1, n] - 
    S2[a4, SP[a1, a1], a2, a3, a1, n]/2 - S2[a4, SP[a1, a2], a1, a3, a1, n]/
     2 - S2[a4, SP[a1, a2], a3, a1, a1, n] + 
    S2[SP[a1, a1], a4, a2, a3, a1, n]/2 - S2[SP[a1, a4], a1, a2, a3, a1, n]/
     2 - S2[SP[a1, a4], a2, a1, a3, a1, n]/2 - S2[SP[a1, a4], a2, a3, a1, a1, 
     n] + S2[a4, a1, a1, a2, a3, a1, n] + S2[a4, a1, a2, a1, a3, a1, n] + 
    2*S2[a4, a1, a2, a3, a1, a1, n] + S2[a4, a2, a1, a1, a3, a1, n] + 
    2*S2[a4, a2, a1, a3, a1, a1, n] + 3*S2[a4, a2, a3, a1, a1, a1, n] /; 
   MyMemberQ[{{a2, a3, a4}}, {a1, a1, a1, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a1_, a1_, a4_, a3_, a1_, a2_, n_] :> 
  (S2[a1, n]*S2[a1, a4, a3, a1, a2, n])/2 + S2[a1, a4, a3, a1, SP[a1, a2], n]/
     2 + S2[a1, a4, a3, SP[a1, a1], a2, n]/2 + 
    S2[a1, a4, SP[a1, a3], a1, a2, n]/2 + S2[a1, SP[a1, a4], a3, a1, a2, n]/
     2 - (S2[a1, n]*S2[a4, a1, a3, a1, a2, n])/2 - 
    S2[a4, a1, a3, a1, SP[a1, a2], n]/2 - S2[a4, a1, a3, SP[a1, a1], a2, n]/
     2 - S2[a4, a1, SP[a1, a3], a1, a2, n]/2 - 
    S2[a1, n]*S2[a4, a3, a1, a1, a2, n] - S2[a4, a3, a1, a1, SP[a1, a2], n] - 
    (S2[a1, n]*S2[a4, a3, a1, a2, a1, n])/2 - 
    S2[a4, a3, a1, a2, SP[a1, a1], n]/2 - S2[a4, a3, a1, SP[a1, a1], a2, n] - 
    S2[a4, a3, a1, SP[a1, a2], a1, n]/2 - S2[a4, a3, SP[a1, a1], a1, a2, n] - 
    S2[a4, a3, SP[a1, a1], a2, a1, n]/2 - S2[a4, SP[a1, a1], a3, a1, a2, n]/
     2 - S2[a4, SP[a1, a3], a1, a1, a2, n] - 
    S2[a4, SP[a1, a3], a1, a2, a1, n]/2 + S2[SP[a1, a1], a4, a3, a1, a2, n]/
     2 - S2[SP[a1, a4], a1, a3, a1, a2, n]/2 - S2[SP[a1, a4], a3, a1, a1, a2, 
     n] - S2[SP[a1, a4], a3, a1, a2, a1, n]/2 + S2[a4, a1, a1, a3, a1, a2, 
     n] + 2*S2[a4, a1, a3, a1, a1, a2, n] + S2[a4, a1, a3, a1, a2, a1, n] + 
    3*S2[a4, a3, a1, a1, a1, a2, n] + 2*S2[a4, a3, a1, a1, a2, a1, n] + 
    S2[a4, a3, a1, a2, a1, a1, n] /; 
   MyMemberQ[{{a2, a3, a4}}, {a1, a1, a1, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a1_, a1_, a4_, a3_, a2_, a1_, n_] :> 
  (S2[a1, n]*S2[a1, a4, a3, a2, a1, n])/2 + S2[a1, a4, a3, a2, SP[a1, a1], n]/
     2 + S2[a1, a4, a3, SP[a1, a2], a1, n]/2 + 
    S2[a1, a4, SP[a1, a3], a2, a1, n]/2 + S2[a1, SP[a1, a4], a3, a2, a1, n]/
     2 - (S2[a1, n]*S2[a4, a1, a3, a2, a1, n])/2 - 
    S2[a4, a1, a3, a2, SP[a1, a1], n]/2 - S2[a4, a1, a3, SP[a1, a2], a1, n]/
     2 - S2[a4, a1, SP[a1, a3], a2, a1, n]/2 - 
    (S2[a1, n]*S2[a4, a3, a1, a2, a1, n])/2 - 
    S2[a4, a3, a1, a2, SP[a1, a1], n]/2 - S2[a4, a3, a1, SP[a1, a2], a1, n]/
     2 - S2[a1, n]*S2[a4, a3, a2, a1, a1, n] - S2[a4, a3, a2, a1, SP[a1, a1], 
     n] - S2[a4, a3, a2, SP[a1, a1], a1, n] - 
    S2[a4, a3, SP[a1, a1], a2, a1, n]/2 - S2[a4, a3, SP[a1, a2], a1, a1, n] - 
    S2[a4, SP[a1, a1], a3, a2, a1, n]/2 - S2[a4, SP[a1, a3], a1, a2, a1, n]/
     2 - S2[a4, SP[a1, a3], a2, a1, a1, n] + 
    S2[SP[a1, a1], a4, a3, a2, a1, n]/2 - S2[SP[a1, a4], a1, a3, a2, a1, n]/
     2 - S2[SP[a1, a4], a3, a1, a2, a1, n]/2 - S2[SP[a1, a4], a3, a2, a1, a1, 
     n] + S2[a4, a1, a1, a3, a2, a1, n] + S2[a4, a1, a3, a1, a2, a1, n] + 
    2*S2[a4, a1, a3, a2, a1, a1, n] + S2[a4, a3, a1, a1, a2, a1, n] + 
    2*S2[a4, a3, a1, a2, a1, a1, n] + 3*S2[a4, a3, a2, a1, a1, a1, n] /; 
   MyMemberQ[{{a2, a3, a4}}, {a1, a1, a1, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a1_, a2_, a1_, a1_, a3_, a4_, n_] :> 
  -2*S2[a1, a1, a2, n]*S2[a1, a3, a4, n] - 
    2*S2[SP[a1, a1], SP[a1, a3], SP[a2, a4], n] + 
    3*S2[a3, a4, n]*S2[a1, a1, a1, a2, n] + S2[a1, a2, n]*
     S2[a1, a1, a3, a4, n] + S2[a1, SP[a1, a1], a3, SP[a2, a4], n] + 
    S2[a1, SP[a1, a1], SP[a2, a3], a4, n] - S2[a1, SP[a1, a3], a1, 
     SP[a2, a4], n] - S2[a1, SP[a1, a3], SP[a1, a4], a2, n] + 
    S2[SP[a1, a1], a1, a3, SP[a2, a4], n] + S2[SP[a1, a1], a1, SP[a2, a3], 
     a4, n] + 2*S2[SP[a1, a1], a3, a1, SP[a2, a4], n] + 
    2*S2[SP[a1, a1], a3, SP[a1, a4], a2, n] - S2[SP[a1, a1], SP[a1, a2], a3, 
     a4, n] + 2*S2[SP[a1, a1], SP[a1, a3], a2, a4, n] + 
    2*S2[SP[a1, a1], SP[a1, a3], a4, a2, n] - 
    3*S2[SP[a1, a3], a1, a1, SP[a2, a4], n] - 
    3*S2[SP[a1, a3], a1, SP[a1, a4], a2, n] - 
    3*S2[SP[a1, a3], SP[a1, a4], a1, a2, n] + 
    3*S2[a4, n]*S2[a1, a1, a1, a2, a3, n] - 
    3*S2[a3, n]*S2[a1, a1, a1, a2, a4, n] + 
    3*S2[a4, n]*S2[a1, a1, a1, a3, a2, n] + 
    3*S2[a1, a1, a1, a3, SP[a2, a4], n] - 
    3*S2[a3, n]*S2[a1, a1, a1, a4, a2, n] - 
    3*S2[a1, a1, a1, a4, SP[a2, a3], n] - 
    3*S2[a1, a1, a1, SP[a2, a3], a4, n] + 
    3*S2[a1, a1, a1, SP[a2, a4], a3, n] + 
    3*S2[a4, n]*S2[a1, a1, a3, a1, a2, n] + 
    3*S2[a1, a1, a3, a1, SP[a2, a4], n] + 
    3*S2[a1, a1, a3, SP[a1, a4], a2, n] - 
    3*S2[a3, n]*S2[a1, a1, a4, a1, a2, n] - 
    3*S2[a1, a1, a4, a1, SP[a2, a3], n] - 
    3*S2[a1, a1, a4, SP[a1, a3], a2, n] - 
    3*S2[a1, a1, SP[a1, a3], a2, a4, n] - 
    3*S2[a1, a1, SP[a1, a3], a4, a2, n] + 
    3*S2[a1, a1, SP[a1, a4], a2, a3, n] + 
    3*S2[a1, a1, SP[a1, a4], a3, a2, n] + 
    2*S2[a4, n]*S2[a1, a3, a1, a1, a2, n] + 
    3*S2[a1, a3, a1, a1, SP[a2, a4], n] + 
    3*S2[a1, a3, a1, SP[a1, a4], a2, n] + 
    3*S2[a1, a3, SP[a1, a4], a1, a2, n] - 
    3*S2[a3, n]*S2[a1, a4, a1, a1, a2, n] - 
    3*S2[a1, a4, a1, a1, SP[a2, a3], n] - 
    3*S2[a1, a4, a1, SP[a1, a3], a2, n] - 
    3*S2[a1, a4, SP[a1, a3], a1, a2, n] - S2[a1, SP[a1, a1], a2, a3, a4, n] - 
    S2[a1, SP[a1, a1], a3, a2, a4, n] - S2[a1, SP[a1, a1], a3, a4, a2, n] + 
    S2[a1, SP[a1, a2], a1, a3, a4, n] - 2*S2[a1, SP[a1, a3], a1, a2, a4, n] - 
    2*S2[a1, SP[a1, a3], a1, a4, a2, n] - 
    2*S2[a1, SP[a1, a3], a4, a1, a2, n] + 
    3*S2[a1, SP[a1, a4], a1, a2, a3, n] + 
    3*S2[a1, SP[a1, a4], a1, a3, a2, n] + 
    3*S2[a1, SP[a1, a4], a3, a1, a2, n] - S2[a1, SP[a3, a4], a1, a1, a2, n] + 
    3*S2[a3, a1, a1, a1, SP[a2, a4], n] + 
    3*S2[a3, a1, a1, SP[a1, a4], a2, n] + 
    3*S2[a3, a1, SP[a1, a4], a1, a2, n] + 
    3*S2[a3, SP[a1, a4], a1, a1, a2, n] - 
    3*S2[a3, n]*S2[a4, a1, a1, a1, a2, n] - 
    3*S2[a4, a1, a1, a1, SP[a2, a3], n] - 
    3*S2[a4, a1, a1, SP[a1, a3], a2, n] - 
    3*S2[a4, a1, SP[a1, a3], a1, a2, n] + 
    S2[a1, n]*S2[a4, a3, a1, a1, a2, n] + S2[a4, a3, a1, a1, SP[a1, a2], n] + 
    S2[a4, a3, a1, SP[a1, a1], a2, n] + S2[a4, a3, SP[a1, a1], a1, a2, n] - 
    2*S2[a4, SP[a1, a3], a1, a1, a2, n] - S2[SP[a1, a1], a1, a2, a3, a4, n] - 
    S2[SP[a1, a1], a1, a3, a2, a4, n] - S2[SP[a1, a1], a1, a3, a4, a2, n] + 
    S2[SP[a1, a1], a2, a1, a3, a4, n] - 2*S2[SP[a1, a1], a3, a1, a2, a4, n] - 
    2*S2[SP[a1, a1], a3, a1, a4, a2, n] - 
    2*S2[SP[a1, a1], a3, a4, a1, a2, n] + 
    3*S2[SP[a1, a4], a1, a1, a2, a3, n] + 
    3*S2[SP[a1, a4], a1, a1, a3, a2, n] + 
    3*S2[SP[a1, a4], a1, a3, a1, a2, n] + 
    3*S2[SP[a1, a4], a3, a1, a1, a2, n] - 
    3*S2[SP[a3, a4], a1, a1, a1, a2, n] - S2[a4, a3, a1, a1, a2, a1, n] /; 
   MyMemberQ[{{a2, a3, a4}}, {a1, a1, a1, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a1_, a2_, a1_, a1_, a4_, a3_, n_] :> 
  -2*S2[a1, a1, a2, n]*S2[a1, a4, a3, n] - 
    2*S2[SP[a1, a1], SP[a1, a4], SP[a2, a3], n] - 
    3*S2[a3, a4, n]*S2[a1, a1, a1, a2, n] + S2[a1, a2, n]*
     S2[a1, a1, a4, a3, n] + 3*S2[a1, a1, SP[a1, a3], SP[a2, a4], n] + 
    3*S2[a1, a1, SP[a1, a4], SP[a2, a3], n] + S2[a1, SP[a1, a1], a4, 
     SP[a2, a3], n] + S2[a1, SP[a1, a1], SP[a2, a4], a3, n] + 
    3*S2[a1, SP[a1, a3], a1, SP[a2, a4], n] + 
    3*S2[a1, SP[a1, a3], SP[a1, a4], a2, n] + 
    2*S2[a1, SP[a1, a4], a1, SP[a2, a3], n] + 
    2*S2[a1, SP[a1, a4], SP[a1, a3], a2, n] + S2[SP[a1, a1], a1, a4, 
     SP[a2, a3], n] + S2[SP[a1, a1], a1, SP[a2, a4], a3, n] + 
    2*S2[SP[a1, a1], a4, a1, SP[a2, a3], n] + 
    2*S2[SP[a1, a1], a4, SP[a1, a3], a2, n] - S2[SP[a1, a1], SP[a1, a2], a4, 
     a3, n] + 2*S2[SP[a1, a1], SP[a1, a4], a2, a3, n] + 
    2*S2[SP[a1, a1], SP[a1, a4], a3, a2, n] + 
    3*S2[SP[a1, a3], a1, a1, SP[a2, a4], n] + 
    3*S2[SP[a1, a3], a1, SP[a1, a4], a2, n] + 
    3*S2[SP[a1, a3], SP[a1, a4], a1, a2, n] + 
    3*S2[a3, n]*S2[a1, a1, a1, a2, a4, n] + 
    3*S2[a1, a1, a1, a2, SP[a3, a4], n] - 
    3*S2[a1, a1, a1, a3, SP[a2, a4], n] + 
    3*S2[a3, n]*S2[a1, a1, a1, a4, a2, n] - 
    3*S2[a1, a1, a1, SP[a2, a4], a3, n] + 
    3*S2[a1, a1, a1, SP[a3, a4], a2, n] - 
    3*S2[a1, a1, a3, a1, SP[a2, a4], n] - 
    3*S2[a1, a1, a3, SP[a1, a4], a2, n] + 
    3*S2[a3, n]*S2[a1, a1, a4, a1, a2, n] - 
    3*S2[a1, a1, SP[a1, a4], a2, a3, n] - 
    3*S2[a1, a1, SP[a1, a4], a3, a2, n] + 
    3*S2[a1, a1, SP[a3, a4], a1, a2, n] - 
    3*S2[a1, a3, a1, a1, SP[a2, a4], n] - 
    3*S2[a1, a3, a1, SP[a1, a4], a2, n] - 
    3*S2[a1, a3, SP[a1, a4], a1, a2, n] + 
    3*S2[a3, n]*S2[a1, a4, a1, a1, a2, n] + S2[a1, a4, a1, a1, SP[a2, a3], 
     n] + S2[a1, a4, a1, SP[a1, a3], a2, n] + S2[a1, a4, SP[a1, a3], a1, a2, 
     n] - S2[a1, SP[a1, a1], a2, a4, a3, n] - S2[a1, SP[a1, a1], a4, a2, a3, 
     n] - S2[a1, SP[a1, a1], a4, a3, a2, n] + S2[a1, SP[a1, a2], a1, a4, a3, 
     n] - 2*S2[a1, SP[a1, a4], a1, a2, a3, n] - 
    2*S2[a1, SP[a1, a4], a1, a3, a2, n] - 
    2*S2[a1, SP[a1, a4], a3, a1, a2, n] + 
    3*S2[a1, SP[a3, a4], a1, a1, a2, n] - 
    3*S2[a3, a1, a1, a1, SP[a2, a4], n] - 
    3*S2[a3, a1, a1, SP[a1, a4], a2, n] - 
    3*S2[a3, a1, SP[a1, a4], a1, a2, n] - 
    3*S2[a3, SP[a1, a4], a1, a1, a2, n] + 
    3*S2[a3, n]*S2[a4, a1, a1, a1, a2, n] + 
    3*S2[a4, a1, a1, a1, SP[a2, a3], n] - 
    S2[a1, n]*S2[a4, a1, a1, a2, a3, n] - S2[a4, a1, a1, a2, SP[a1, a3], n] - 
    S2[a1, n]*S2[a4, a1, a1, a3, a2, n] - S2[a4, a1, a1, a3, SP[a1, a2], n] - 
    S2[a4, a1, a1, SP[a1, a2], a3, n] + 2*S2[a4, a1, a1, SP[a1, a3], a2, n] - 
    S2[a1, n]*S2[a4, a1, a3, a1, a2, n] - S2[a4, a1, a3, a1, SP[a1, a2], n] - 
    S2[a4, a1, a3, SP[a1, a1], a2, n] - S2[a4, a1, SP[a1, a1], a2, a3, n] - 
    S2[a4, a1, SP[a1, a1], a3, a2, n] + 2*S2[a4, a1, SP[a1, a3], a1, a2, n] - 
    S2[a1, n]*S2[a4, a3, a1, a1, a2, n] - S2[a4, a3, a1, a1, SP[a1, a2], n] - 
    S2[a4, a3, a1, SP[a1, a1], a2, n] - S2[a4, a3, SP[a1, a1], a1, a2, n] - 
    S2[a4, SP[a1, a1], a1, a2, a3, n] - S2[a4, SP[a1, a1], a1, a3, a2, n] - 
    S2[a4, SP[a1, a1], a3, a1, a2, n] + 2*S2[a4, SP[a1, a3], a1, a1, a2, n] - 
    S2[SP[a1, a1], a1, a2, a4, a3, n] - S2[SP[a1, a1], a1, a4, a2, a3, n] - 
    S2[SP[a1, a1], a1, a4, a3, a2, n] + S2[SP[a1, a1], a2, a1, a4, a3, n] - 
    2*S2[SP[a1, a1], a4, a1, a2, a3, n] - 
    2*S2[SP[a1, a1], a4, a1, a3, a2, n] - 
    2*S2[SP[a1, a1], a4, a3, a1, a2, n] - S2[SP[a1, a4], a1, a1, a2, a3, n] - 
    S2[SP[a1, a4], a1, a1, a3, a2, n] - S2[SP[a1, a4], a1, a3, a1, a2, n] - 
    S2[SP[a1, a4], a3, a1, a1, a2, n] + 3*S2[SP[a3, a4], a1, a1, a1, a2, n] + 
    S2[a4, a1, a1, a2, a1, a3, n] + S2[a4, a1, a1, a2, a3, a1, n] + 
    S2[a4, a1, a1, a3, a2, a1, n] + S2[a4, a1, a3, a1, a2, a1, n] + 
    S2[a4, a3, a1, a1, a2, a1, n] /; 
   MyMemberQ[{{a2, a3, a4}}, {a1, a1, a1, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a1_, a2_, a1_, a3_, a1_, a4_, n_] :> 
  2*S2[a1, a1, a2, n]*S2[a1, a3, a4, n] + 2*S2[a1, a1, a2, n]*
     S2[a1, a4, a3, n] + 2*S2[SP[a1, a1], SP[a1, a3], SP[a2, a4], n] + 
    2*S2[SP[a1, a1], SP[a1, a4], SP[a2, a3], n] - 
    2*S2[a1, a2, n]*S2[a1, a1, a3, a4, n] - 2*S2[a1, a2, n]*
     S2[a1, a1, a4, a3, n] - 2*S2[a1, a1, SP[a1, a3], SP[a2, a4], n] - 
    2*S2[a1, a1, SP[a1, a4], SP[a2, a3], n] + 
    S2[a1, a4, n]*S2[a1, a2, a1, a3, n] - S2[a1, a2, SP[a1, a1], SP[a3, a4], 
     n] - S2[a1, a2, n]*S2[a1, a4, a1, a3, n] + S2[a1, a4, SP[a1, a1], 
     SP[a2, a3], n] - S2[a1, SP[a1, a2], a1, SP[a3, a4], n] - 
    S2[a1, SP[a1, a2], SP[a1, a4], a3, n] - 
    2*S2[a1, SP[a1, a3], a1, SP[a2, a4], n] - 
    2*S2[a1, SP[a1, a3], SP[a1, a4], a2, n] - S2[a1, SP[a1, a4], a1, 
     SP[a2, a3], n] + S2[a1, SP[a1, a4], SP[a1, a2], a3, n] - 
    2*S2[a1, SP[a1, a4], SP[a1, a3], a2, n] - S2[SP[a1, a1], a2, a1, 
     SP[a3, a4], n] - S2[SP[a1, a1], a2, SP[a1, a4], a3, n] - 
    2*S2[SP[a1, a1], a3, a1, SP[a2, a4], n] - 
    2*S2[SP[a1, a1], a3, SP[a1, a4], a2, n] - S2[SP[a1, a1], a4, a1, 
     SP[a2, a3], n] + S2[SP[a1, a1], a4, SP[a1, a2], a3, n] - 
    2*S2[SP[a1, a1], a4, SP[a1, a3], a2, n] + 
    2*S2[SP[a1, a1], SP[a1, a2], a3, a4, n] + 
    2*S2[SP[a1, a1], SP[a1, a2], a4, a3, n] - 
    2*S2[SP[a1, a1], SP[a1, a3], a2, a4, n] - 
    2*S2[SP[a1, a1], SP[a1, a3], a4, a2, n] - 
    2*S2[SP[a1, a1], SP[a1, a4], a2, a3, n] - 
    2*S2[SP[a1, a1], SP[a1, a4], a3, a2, n] + 
    2*S2[a1, a1, a2, a1, SP[a3, a4], n] + 
    2*S2[a1, a1, a2, SP[a1, a4], a3, n] - 
    2*S2[a4, n]*S2[a1, a1, a3, a1, a2, n] - 
    2*S2[a1, a1, a4, SP[a1, a2], a3, n] + 
    2*S2[a1, a1, a4, SP[a1, a3], a2, n] - 
    2*S2[a1, a1, SP[a1, a2], a3, a4, n] - 
    2*S2[a1, a1, SP[a1, a2], a4, a3, n] + 
    2*S2[a1, a1, SP[a1, a3], a2, a4, n] + 
    2*S2[a1, a1, SP[a1, a3], a4, a2, n] + 
    2*S2[a1, a1, SP[a1, a4], a2, a3, n] + 
    2*S2[a1, a1, SP[a1, a4], a3, a2, n] - 
    2*S2[a1, a1, SP[a3, a4], a1, a2, n] + 
    2*S2[a1, a2, a1, a1, SP[a3, a4], n] + S2[a1, a2, a1, SP[a1, a3], a4, n] + 
    S2[a1, a2, a1, SP[a1, a4], a3, n] + S2[a1, a2, SP[a1, a1], a3, a4, n] + 
    S2[a1, a2, SP[a1, a1], a4, a3, n] - 2*S2[a4, n]*
     S2[a1, a3, a1, a1, a2, n] - S2[a1, a4, a1, SP[a1, a2], a3, n] + 
    S2[a1, a4, a1, SP[a1, a3], a2, n] - S2[a1, a4, SP[a1, a1], a2, a3, n] - 
    S2[a1, a4, SP[a1, a1], a3, a2, n] + 2*S2[a1, a4, SP[a1, a3], a1, a2, n] - 
    S2[a1, SP[a1, a2], a1, a3, a4, n] - S2[a1, SP[a1, a2], a1, a4, a3, n] + 
    2*S2[a1, SP[a1, a3], a1, a2, a4, n] + 
    2*S2[a1, SP[a1, a3], a1, a4, a2, n] + 
    2*S2[a1, SP[a1, a3], a4, a1, a2, n] + S2[a1, SP[a1, a4], a1, a2, a3, n] + 
    S2[a1, SP[a1, a4], a1, a3, a2, n] - 2*S2[a1, SP[a3, a4], a1, a1, a2, n] + 
    S2[a1, n]*S2[a4, a1, a3, a1, a2, n] + S2[a4, a1, a3, a1, SP[a1, a2], n] + 
    S2[a4, a1, a3, SP[a1, a1], a2, n] + S2[a4, a1, SP[a1, a3], a1, a2, n] + 
    S2[a4, SP[a1, a1], a3, a1, a2, n] - S2[SP[a1, a1], a2, a1, a3, a4, n] - 
    S2[SP[a1, a1], a2, a1, a4, a3, n] + 2*S2[SP[a1, a1], a3, a1, a2, a4, n] + 
    2*S2[SP[a1, a1], a3, a1, a4, a2, n] + 
    2*S2[SP[a1, a1], a3, a4, a1, a2, n] + S2[SP[a1, a1], a4, a1, a2, a3, n] + 
    S2[SP[a1, a1], a4, a1, a3, a2, n] + 2*S2[SP[a1, a1], a4, a3, a1, a2, n] - 
    S2[SP[a1, a4], a1, a3, a1, a2, n] - 2*S2[SP[a1, a4], a3, a1, a1, a2, n] - 
    S2[a4, a1, a3, a1, a2, a1, n] /; 
   MyMemberQ[{{a2, a3, a4}}, {a1, a1, a1, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a1_, a2_, a1_, a3_, a4_, a1_, n_] :> 
  -2*S2[a1, a1, a2, n]*S2[a1, a4, a3, n] - 
    2*S2[SP[a1, a1], SP[a1, a4], SP[a2, a3], n] + 
    2*S2[a1, a2, n]*S2[a1, a1, a4, a3, n] + 
    2*S2[a1, a1, SP[a1, a4], SP[a2, a3], n] - 
    S2[a1, a4, n]*S2[a1, a2, a1, a3, n] + S2[a1, a2, SP[a1, a1], SP[a3, a4], 
     n] + S2[a1, a2, n]*S2[a1, a4, a1, a3, n] - S2[a1, a4, SP[a1, a1], 
     SP[a2, a3], n] + S2[a1, SP[a1, a2], a1, SP[a3, a4], n] + 
    S2[a1, SP[a1, a2], SP[a1, a4], a3, n] + S2[a1, SP[a1, a4], a1, 
     SP[a2, a3], n] - S2[a1, SP[a1, a4], SP[a1, a2], a3, n] + 
    2*S2[a1, SP[a1, a4], SP[a1, a3], a2, n] + S2[SP[a1, a1], a2, a1, 
     SP[a3, a4], n] + S2[SP[a1, a1], a2, SP[a1, a4], a3, n] + 
    S2[SP[a1, a1], a4, a1, SP[a2, a3], n] - S2[SP[a1, a1], a4, SP[a1, a2], 
     a3, n] + 2*S2[SP[a1, a1], a4, SP[a1, a3], a2, n] - 
    2*S2[SP[a1, a1], SP[a1, a2], a4, a3, n] + 
    2*S2[SP[a1, a1], SP[a1, a4], a2, a3, n] + 
    2*S2[SP[a1, a1], SP[a1, a4], a3, a2, n] - 
    2*S2[a1, a1, a2, a1, SP[a3, a4], n] - 
    2*S2[a1, a1, a2, SP[a1, a4], a3, n] + 
    2*S2[a1, a1, a4, SP[a1, a2], a3, n] - 
    2*S2[a1, a1, a4, SP[a1, a3], a2, n] + 
    2*S2[a1, a1, SP[a1, a2], a4, a3, n] - 
    2*S2[a1, a1, SP[a1, a4], a2, a3, n] - 
    2*S2[a1, a1, SP[a1, a4], a3, a2, n] - 
    2*S2[a1, a2, a1, a1, SP[a3, a4], n] + 
    S2[a1, n]*S2[a1, a2, a1, a3, a4, n] + S2[a1, a2, a1, a3, SP[a1, a4], n] - 
    S2[a1, a2, a1, SP[a1, a4], a3, n] - S2[a1, a2, SP[a1, a1], a4, a3, n] + 
    S2[a1, a4, a1, SP[a1, a2], a3, n] - S2[a1, a4, a1, SP[a1, a3], a2, n] + 
    S2[a1, n]*S2[a1, a4, a3, a1, a2, n] + S2[a1, a4, a3, a1, SP[a1, a2], n] + 
    S2[a1, a4, a3, SP[a1, a1], a2, n] + S2[a1, a4, SP[a1, a1], a2, a3, n] + 
    S2[a1, a4, SP[a1, a1], a3, a2, n] - S2[a1, a4, SP[a1, a3], a1, a2, n] + 
    S2[a1, SP[a1, a2], a1, a4, a3, n] - S2[a1, SP[a1, a4], a1, a2, a3, n] - 
    S2[a1, SP[a1, a4], a1, a3, a2, n] - S2[a1, SP[a1, a4], a3, a1, a2, n] - 
    S2[a1, n]*S2[a4, a3, a1, a2, a1, n] - S2[a4, a3, a1, a2, SP[a1, a1], n] - 
    S2[a4, a3, a1, SP[a1, a2], a1, n] - S2[a4, a3, SP[a1, a1], a2, a1, n] - 
    S2[a4, SP[a1, a3], a1, a2, a1, n] + S2[SP[a1, a1], a2, a1, a4, a3, n] - 
    S2[SP[a1, a1], a4, a1, a2, a3, n] - S2[SP[a1, a1], a4, a1, a3, a2, n] - 
    S2[SP[a1, a1], a4, a3, a1, a2, n] - S2[SP[a1, a4], a3, a1, a2, a1, n] + 
    S2[a4, a1, a3, a1, a2, a1, n] + 2*S2[a4, a3, a1, a1, a2, a1, n] + 
    2*S2[a4, a3, a1, a2, a1, a1, n] /; 
   MyMemberQ[{{a2, a3, a4}}, {a1, a1, a1, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a1_, a2_, a1_, a4_, a1_, a3_, n_] :> 
  2*S2[a1, a1, a2, n]*S2[a1, a3, a4, n] + 2*S2[a1, a1, a2, n]*
     S2[a1, a4, a3, n] + 2*S2[SP[a1, a1], SP[a1, a3], SP[a2, a4], n] + 
    2*S2[SP[a1, a1], SP[a1, a4], SP[a2, a3], n] - 
    4*S2[a1, a1, SP[a1, a3], SP[a2, a4], n] - 
    4*S2[a1, a1, SP[a1, a4], SP[a2, a3], n] + 
    S2[a1, a2, n]*S2[a1, a4, a1, a3, n] - S2[a1, a4, SP[a1, a1], SP[a2, a3], 
     n] - 2*S2[a1, SP[a1, a1], a3, SP[a2, a4], n] - 
    2*S2[a1, SP[a1, a1], a4, SP[a2, a3], n] - 
    2*S2[a1, SP[a1, a1], SP[a2, a3], a4, n] - 
    2*S2[a1, SP[a1, a1], SP[a2, a4], a3, n] - 
    2*S2[a1, SP[a1, a3], a1, SP[a2, a4], n] - 
    2*S2[a1, SP[a1, a3], SP[a1, a4], a2, n] - 
    3*S2[a1, SP[a1, a4], a1, SP[a2, a3], n] - S2[a1, SP[a1, a4], SP[a1, a2], 
     a3, n] - 2*S2[a1, SP[a1, a4], SP[a1, a3], a2, n] - 
    2*S2[SP[a1, a1], a1, a3, SP[a2, a4], n] - 
    2*S2[SP[a1, a1], a1, a4, SP[a2, a3], n] - 
    2*S2[SP[a1, a1], a1, SP[a2, a3], a4, n] - 
    2*S2[SP[a1, a1], a1, SP[a2, a4], a3, n] - 
    2*S2[SP[a1, a1], a3, a1, SP[a2, a4], n] - 
    2*S2[SP[a1, a1], a3, SP[a1, a4], a2, n] - 
    3*S2[SP[a1, a1], a4, a1, SP[a2, a3], n] - S2[SP[a1, a1], a4, SP[a1, a2], 
     a3, n] - 2*S2[SP[a1, a1], a4, SP[a1, a3], a2, n] - 
    2*S2[SP[a1, a1], SP[a1, a3], a2, a4, n] - 
    2*S2[SP[a1, a1], SP[a1, a3], a4, a2, n] - 
    2*S2[SP[a1, a1], SP[a1, a4], a2, a3, n] - 
    2*S2[SP[a1, a1], SP[a1, a4], a3, a2, n] - S2[SP[a1, a1], SP[a2, a4], a1, 
     a3, n] - 6*S2[a4, n]*S2[a1, a1, a1, a2, a3, n] - 
    6*S2[a1, a1, a1, a2, SP[a3, a4], n] - 
    6*S2[a4, n]*S2[a1, a1, a1, a3, a2, n] + 
    6*S2[a1, a1, a1, a4, SP[a2, a3], n] + 
    6*S2[a1, a1, a1, SP[a2, a3], a4, n] - 
    6*S2[a1, a1, a1, SP[a3, a4], a2, n] - 
    2*S2[a4, n]*S2[a1, a1, a2, a1, a3, n] - 
    2*S2[a1, a1, a2, a1, SP[a3, a4], n] - 
    2*S2[a1, a1, a2, SP[a1, a4], a3, n] - 
    4*S2[a4, n]*S2[a1, a1, a3, a1, a2, n] + 
    6*S2[a1, a1, a4, a1, SP[a2, a3], n] + 
    2*S2[a1, a1, a4, SP[a1, a2], a3, n] + 
    4*S2[a1, a1, a4, SP[a1, a3], a2, n] + 
    2*S2[a1, a1, SP[a1, a2], a3, a4, n] + 
    2*S2[a1, a1, SP[a1, a2], a4, a3, n] + 
    4*S2[a1, a1, SP[a1, a3], a2, a4, n] + 
    4*S2[a1, a1, SP[a1, a3], a4, a2, n] - 
    2*S2[a1, a1, SP[a1, a4], a2, a3, n] - 
    2*S2[a1, a1, SP[a1, a4], a3, a2, n] - 
    4*S2[a1, a1, SP[a3, a4], a1, a2, n] - 
    2*S2[a4, n]*S2[a1, a3, a1, a1, a2, n] + 
    4*S2[a1, a4, a1, a1, SP[a2, a3], n] + S2[a1, a4, a1, SP[a1, a2], a3, n] + 
    3*S2[a1, a4, a1, SP[a1, a3], a2, n] + S2[a1, a4, SP[a1, a1], a2, a3, n] + 
    S2[a1, a4, SP[a1, a1], a3, a2, n] + 2*S2[a1, a4, SP[a1, a3], a1, a2, n] + 
    2*S2[a1, SP[a1, a1], a2, a3, a4, n] + 
    2*S2[a1, SP[a1, a1], a2, a4, a3, n] + 
    2*S2[a1, SP[a1, a1], a3, a2, a4, n] + 
    2*S2[a1, SP[a1, a1], a3, a4, a2, n] + 
    2*S2[a1, SP[a1, a1], a4, a2, a3, n] + 
    2*S2[a1, SP[a1, a1], a4, a3, a2, n] + S2[a1, SP[a1, a2], a4, a1, a3, n] + 
    2*S2[a1, SP[a1, a3], a1, a2, a4, n] + 
    2*S2[a1, SP[a1, a3], a1, a4, a2, n] + 
    2*S2[a1, SP[a1, a3], a4, a1, a2, n] - 
    3*S2[a1, SP[a1, a4], a1, a2, a3, n] - 
    3*S2[a1, SP[a1, a4], a1, a3, a2, n] - S2[a1, SP[a1, a4], a2, a1, a3, n] - 
    2*S2[a1, SP[a1, a4], a3, a1, a2, n] - 
    2*S2[a1, SP[a3, a4], a1, a1, a2, n] + 
    2*S2[a1, n]*S2[a4, a1, a1, a2, a3, n] + 
    2*S2[a4, a1, a1, a2, SP[a1, a3], n] + 
    2*S2[a1, n]*S2[a4, a1, a1, a3, a2, n] + 
    2*S2[a4, a1, a1, a3, SP[a1, a2], n] + 
    2*S2[a4, a1, a1, SP[a1, a2], a3, n] + 
    2*S2[a4, a1, a1, SP[a1, a3], a2, n] + 
    S2[a1, n]*S2[a4, a1, a2, a1, a3, n] + S2[a4, a1, a2, a1, SP[a1, a3], n] + 
    S2[a4, a1, a2, SP[a1, a1], a3, n] + S2[a1, n]*S2[a4, a1, a3, a1, a2, n] + 
    S2[a4, a1, a3, a1, SP[a1, a2], n] + S2[a4, a1, a3, SP[a1, a1], a2, n] + 
    2*S2[a4, a1, SP[a1, a1], a2, a3, n] + 
    2*S2[a4, a1, SP[a1, a1], a3, a2, n] + S2[a4, a1, SP[a1, a2], a1, a3, n] + 
    S2[a4, a1, SP[a1, a3], a1, a2, n] + 2*S2[a4, SP[a1, a1], a1, a2, a3, n] + 
    2*S2[a4, SP[a1, a1], a1, a3, a2, n] + S2[a4, SP[a1, a1], a2, a1, a3, n] + 
    S2[a4, SP[a1, a1], a3, a1, a2, n] + 2*S2[SP[a1, a1], a1, a2, a3, a4, n] + 
    2*S2[SP[a1, a1], a1, a2, a4, a3, n] + 
    2*S2[SP[a1, a1], a1, a3, a2, a4, n] + 
    2*S2[SP[a1, a1], a1, a3, a4, a2, n] + 
    2*S2[SP[a1, a1], a1, a4, a2, a3, n] + 
    2*S2[SP[a1, a1], a1, a4, a3, a2, n] + S2[SP[a1, a1], a2, a4, a1, a3, n] + 
    2*S2[SP[a1, a1], a3, a1, a2, a4, n] + 
    2*S2[SP[a1, a1], a3, a1, a4, a2, n] + 
    2*S2[SP[a1, a1], a3, a4, a1, a2, n] + 
    3*S2[SP[a1, a1], a4, a1, a2, a3, n] + 
    3*S2[SP[a1, a1], a4, a1, a3, a2, n] + S2[SP[a1, a1], a4, a2, a1, a3, n] + 
    2*S2[SP[a1, a1], a4, a3, a1, a2, n] - 
    4*S2[SP[a1, a4], a1, a1, a2, a3, n] - 
    4*S2[SP[a1, a4], a1, a1, a3, a2, n] - S2[SP[a1, a4], a1, a2, a1, a3, n] - 
    3*S2[SP[a1, a4], a1, a3, a1, a2, n] - 
    2*S2[SP[a1, a4], a3, a1, a1, a2, n] - 2*S2[a4, a1, a1, a2, a1, a3, n] - 
    2*S2[a4, a1, a1, a2, a3, a1, n] - 2*S2[a4, a1, a1, a3, a2, a1, n] - 
    2*S2[a4, a1, a2, a1, a1, a3, n] - S2[a4, a1, a2, a1, a3, a1, n] - 
    S2[a4, a1, a3, a1, a2, a1, n] /; 
   MyMemberQ[{{a2, a3, a4}}, {a1, a1, a1, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a1_, a2_, a1_, a4_, a3_, a1_, n_] :> 
  -2*S2[a1, a1, a2, n]*S2[a1, a3, a4, n] - 
    2*S2[SP[a1, a1], SP[a1, a3], SP[a2, a4], n] - 
    2*S2[a1, a2, n]*S2[a1, a1, a4, a3, n] + 
    4*S2[a1, a1, SP[a1, a3], SP[a2, a4], n] + 
    2*S2[a1, a1, SP[a1, a4], SP[a2, a3], n] - 
    S2[a1, a2, n]*S2[a1, a4, a1, a3, n] + S2[a1, a4, SP[a1, a1], SP[a2, a3], 
     n] + 2*S2[a1, SP[a1, a1], a3, SP[a2, a4], n] + 
    2*S2[a1, SP[a1, a1], a4, SP[a2, a3], n] + 
    2*S2[a1, SP[a1, a1], SP[a2, a3], a4, n] + 
    2*S2[a1, SP[a1, a1], SP[a2, a4], a3, n] + 
    2*S2[a1, SP[a1, a3], a1, SP[a2, a4], n] + 
    2*S2[a1, SP[a1, a3], SP[a1, a4], a2, n] + S2[a1, SP[a1, a4], a1, 
     SP[a2, a3], n] + S2[a1, SP[a1, a4], SP[a1, a2], a3, n] + 
    2*S2[SP[a1, a1], a1, a3, SP[a2, a4], n] + 
    2*S2[SP[a1, a1], a1, a4, SP[a2, a3], n] + 
    2*S2[SP[a1, a1], a1, SP[a2, a3], a4, n] + 
    2*S2[SP[a1, a1], a1, SP[a2, a4], a3, n] + 
    2*S2[SP[a1, a1], a3, a1, SP[a2, a4], n] + 
    2*S2[SP[a1, a1], a3, SP[a1, a4], a2, n] + S2[SP[a1, a1], a4, a1, 
     SP[a2, a3], n] + S2[SP[a1, a1], a4, SP[a1, a2], a3, n] + 
    2*S2[SP[a1, a1], SP[a1, a2], a4, a3, n] + 
    2*S2[SP[a1, a1], SP[a1, a3], a2, a4, n] + 
    2*S2[SP[a1, a1], SP[a1, a3], a4, a2, n] + S2[SP[a1, a1], SP[a2, a4], a1, 
     a3, n] + 6*S2[a4, n]*S2[a1, a1, a1, a2, a3, n] + 
    6*S2[a1, a1, a1, a2, SP[a3, a4], n] + 
    6*S2[a4, n]*S2[a1, a1, a1, a3, a2, n] - 
    6*S2[a1, a1, a1, a4, SP[a2, a3], n] - 
    6*S2[a1, a1, a1, SP[a2, a3], a4, n] + 
    6*S2[a1, a1, a1, SP[a3, a4], a2, n] + 
    2*S2[a4, n]*S2[a1, a1, a2, a1, a3, n] + 
    2*S2[a1, a1, a2, a1, SP[a3, a4], n] + 
    2*S2[a1, a1, a2, SP[a1, a4], a3, n] + 
    4*S2[a4, n]*S2[a1, a1, a3, a1, a2, n] - 
    4*S2[a1, a1, a4, a1, SP[a2, a3], n] - 
    2*S2[a1, a1, a4, SP[a1, a2], a3, n] - 
    2*S2[a1, a1, a4, SP[a1, a3], a2, n] - 
    2*S2[a1, a1, SP[a1, a2], a3, a4, n] - 
    4*S2[a1, a1, SP[a1, a2], a4, a3, n] - 
    4*S2[a1, a1, SP[a1, a3], a2, a4, n] - 
    4*S2[a1, a1, SP[a1, a3], a4, a2, n] + 
    4*S2[a1, a1, SP[a1, a4], a2, a3, n] + 
    4*S2[a1, a1, SP[a1, a4], a3, a2, n] + 
    4*S2[a1, a1, SP[a3, a4], a1, a2, n] + 
    S2[a1, n]*S2[a1, a2, a1, a4, a3, n] + S2[a1, a2, a1, a4, SP[a1, a3], n] + 
    S2[a1, a2, a1, SP[a1, a4], a3, n] + S2[a1, a2, SP[a1, a1], a4, a3, n] + 
    2*S2[a4, n]*S2[a1, a3, a1, a1, a2, n] - 
    2*S2[a1, a4, a1, a1, SP[a2, a3], n] - 
    S2[a1, n]*S2[a1, a4, a1, a2, a3, n] - S2[a1, a4, a1, a2, SP[a1, a3], n] - 
    S2[a1, n]*S2[a1, a4, a1, a3, a2, n] - S2[a1, a4, a1, a3, SP[a1, a2], n] - 
    2*S2[a1, a4, a1, SP[a1, a2], a3, n] - 
    2*S2[a1, a4, a1, SP[a1, a3], a2, n] - 
    S2[a1, n]*S2[a1, a4, a3, a1, a2, n] - S2[a1, a4, a3, a1, SP[a1, a2], n] - 
    S2[a1, a4, a3, SP[a1, a1], a2, n] - 2*S2[a1, a4, SP[a1, a1], a2, a3, n] - 
    2*S2[a1, a4, SP[a1, a1], a3, a2, n] - S2[a1, a4, SP[a1, a3], a1, a2, n] - 
    2*S2[a1, SP[a1, a1], a2, a3, a4, n] - 
    2*S2[a1, SP[a1, a1], a2, a4, a3, n] - 
    2*S2[a1, SP[a1, a1], a3, a2, a4, n] - 
    2*S2[a1, SP[a1, a1], a3, a4, a2, n] - 
    2*S2[a1, SP[a1, a1], a4, a2, a3, n] - 
    2*S2[a1, SP[a1, a1], a4, a3, a2, n] - S2[a1, SP[a1, a2], a1, a4, a3, n] - 
    S2[a1, SP[a1, a2], a4, a1, a3, n] - 2*S2[a1, SP[a1, a3], a1, a2, a4, n] - 
    2*S2[a1, SP[a1, a3], a1, a4, a2, n] - 
    2*S2[a1, SP[a1, a3], a4, a1, a2, n] + 
    4*S2[a1, SP[a1, a4], a1, a2, a3, n] + 
    4*S2[a1, SP[a1, a4], a1, a3, a2, n] + S2[a1, SP[a1, a4], a2, a1, a3, n] + 
    3*S2[a1, SP[a1, a4], a3, a1, a2, n] + 
    2*S2[a1, SP[a3, a4], a1, a1, a2, n] - 
    2*S2[a1, n]*S2[a4, a1, a1, a2, a3, n] - 
    2*S2[a4, a1, a1, a2, SP[a1, a3], n] - 
    2*S2[a1, n]*S2[a4, a1, a1, a3, a2, n] - 
    2*S2[a4, a1, a1, a3, SP[a1, a2], n] - 
    2*S2[a4, a1, a1, SP[a1, a2], a3, n] - 
    2*S2[a4, a1, a1, SP[a1, a3], a2, n] + 
    S2[a1, n]*S2[a4, a1, a2, a3, a1, n] + S2[a4, a1, a2, a3, SP[a1, a1], n] + 
    S2[a4, a1, a2, SP[a1, a3], a1, n] - S2[a1, n]*S2[a4, a1, a3, a1, a2, n] - 
    S2[a4, a1, a3, a1, SP[a1, a2], n] + S2[a1, n]*S2[a4, a1, a3, a2, a1, n] + 
    S2[a4, a1, a3, a2, SP[a1, a1], n] - S2[a4, a1, a3, SP[a1, a1], a2, n] + 
    S2[a4, a1, a3, SP[a1, a2], a1, n] - 2*S2[a4, a1, SP[a1, a1], a2, a3, n] - 
    2*S2[a4, a1, SP[a1, a1], a3, a2, n] + S2[a4, a1, SP[a1, a2], a3, a1, n] - 
    S2[a4, a1, SP[a1, a3], a1, a2, n] + S2[a4, a1, SP[a1, a3], a2, a1, n] + 
    S2[a1, n]*S2[a4, a3, a1, a2, a1, n] + S2[a4, a3, a1, a2, SP[a1, a1], n] + 
    S2[a4, a3, a1, SP[a1, a2], a1, n] + S2[a4, a3, SP[a1, a1], a2, a1, n] - 
    2*S2[a4, SP[a1, a1], a1, a2, a3, n] - 
    2*S2[a4, SP[a1, a1], a1, a3, a2, n] + S2[a4, SP[a1, a1], a2, a3, a1, n] - 
    S2[a4, SP[a1, a1], a3, a1, a2, n] + S2[a4, SP[a1, a1], a3, a2, a1, n] + 
    S2[a4, SP[a1, a3], a1, a2, a1, n] - 2*S2[SP[a1, a1], a1, a2, a3, a4, n] - 
    2*S2[SP[a1, a1], a1, a2, a4, a3, n] - 
    2*S2[SP[a1, a1], a1, a3, a2, a4, n] - 
    2*S2[SP[a1, a1], a1, a3, a4, a2, n] - 
    2*S2[SP[a1, a1], a1, a4, a2, a3, n] - 
    2*S2[SP[a1, a1], a1, a4, a3, a2, n] - S2[SP[a1, a1], a2, a1, a4, a3, n] - 
    S2[SP[a1, a1], a2, a4, a1, a3, n] - 2*S2[SP[a1, a1], a3, a1, a2, a4, n] - 
    2*S2[SP[a1, a1], a3, a1, a4, a2, n] - 
    2*S2[SP[a1, a1], a3, a4, a1, a2, n] - 
    2*S2[SP[a1, a1], a4, a1, a2, a3, n] - 
    2*S2[SP[a1, a1], a4, a1, a3, a2, n] - S2[SP[a1, a1], a4, a2, a1, a3, n] - 
    S2[SP[a1, a1], a4, a3, a1, a2, n] + 4*S2[SP[a1, a4], a1, a1, a2, a3, n] + 
    4*S2[SP[a1, a4], a1, a1, a3, a2, n] + 
    2*S2[SP[a1, a4], a1, a2, a1, a3, n] + S2[SP[a1, a4], a1, a2, a3, a1, n] + 
    3*S2[SP[a1, a4], a1, a3, a1, a2, n] + S2[SP[a1, a4], a1, a3, a2, a1, n] + 
    2*S2[SP[a1, a4], a3, a1, a1, a2, n] + S2[SP[a1, a4], a3, a1, a2, a1, n] - 
    S2[a4, a1, a2, a1, a3, a1, n] - 2*S2[a4, a1, a2, a3, a1, a1, n] - 
    S2[a4, a1, a3, a1, a2, a1, n] - 2*S2[a4, a1, a3, a2, a1, a1, n] - 
    2*S2[a4, a3, a1, a1, a2, a1, n] - 2*S2[a4, a3, a1, a2, a1, a1, n] /; 
   MyMemberQ[{{a2, a3, a4}}, {a1, a1, a1, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a1_, a2_, a3_, a1_, a1_, a4_, n_] :> 
  S2[a1, a1, a4, n]*S2[a1, a2, a3, n] + S2[SP[a1, a1], SP[a1, a2], 
     SP[a3, a4], n] - 2*S2[a1, a4, n]*S2[a1, a1, a2, a3, n] + 
    S2[a1, a2, n]*S2[a1, a1, a3, a4, n] + S2[a1, a2, n]*
     S2[a1, a1, a4, a3, n] - S2[a1, a1, SP[a1, a3], SP[a2, a4], n] - 
    S2[a1, a1, SP[a1, a4], SP[a2, a3], n] - S2[a1, a4, n]*
     S2[a1, a2, a1, a3, n] + S2[a1, a2, SP[a1, a1], SP[a3, a4], n] + 
    S2[a1, a2, n]*S2[a1, a4, a1, a3, n] - S2[a1, a4, SP[a1, a1], SP[a2, a3], 
     n] + S2[a1, SP[a1, a1], a2, SP[a3, a4], n] - S2[a1, SP[a1, a1], a3, 
     SP[a2, a4], n] - S2[a1, SP[a1, a1], a4, SP[a2, a3], n] - 
    S2[a1, SP[a1, a1], SP[a2, a3], a4, n] - S2[a1, SP[a1, a2], SP[a1, a3], 
     a4, n] + S2[a1, SP[a1, a2], SP[a1, a4], a3, n] - 
    S2[a1, SP[a1, a4], a1, SP[a2, a3], n] - S2[a1, SP[a1, a4], SP[a1, a2], 
     a3, n] + S2[SP[a1, a1], a1, a2, SP[a3, a4], n] - 
    S2[SP[a1, a1], a1, a3, SP[a2, a4], n] - S2[SP[a1, a1], a1, a4, 
     SP[a2, a3], n] - S2[SP[a1, a1], a1, SP[a2, a3], a4, n] - 
    S2[SP[a1, a1], a2, SP[a1, a3], a4, n] + S2[SP[a1, a1], a2, SP[a1, a4], 
     a3, n] - S2[SP[a1, a1], a4, a1, SP[a2, a3], n] - 
    S2[SP[a1, a1], a4, SP[a1, a2], a3, n] - 
    2*S2[SP[a1, a1], SP[a1, a2], a3, a4, n] - 
    2*S2[SP[a1, a1], SP[a1, a2], a4, a3, n] + 
    2*S2[SP[a1, a1], SP[a1, a4], a2, a3, n] - 
    3*S2[a1, a1, a1, a2, SP[a3, a4], n] - 
    3*S2[a4, n]*S2[a1, a1, a1, a3, a2, n] + 
    3*S2[a1, a1, a1, a4, SP[a2, a3], n] + 
    3*S2[a1, a1, a1, SP[a2, a3], a4, n] - 
    3*S2[a1, a1, a1, SP[a3, a4], a2, n] - 
    2*S2[a1, a1, a2, a1, SP[a3, a4], n] - 
    2*S2[a1, a1, a2, SP[a1, a4], a3, n] - 
    S2[a4, n]*S2[a1, a1, a3, a1, a2, n] + 
    3*S2[a1, a1, a4, a1, SP[a2, a3], n] + 
    2*S2[a1, a1, a4, SP[a1, a2], a3, n] + S2[a1, a1, a4, SP[a1, a3], a2, n] + 
    2*S2[a1, a1, SP[a1, a2], a3, a4, n] + 
    2*S2[a1, a1, SP[a1, a2], a4, a3, n] + S2[a1, a1, SP[a1, a3], a2, a4, n] + 
    S2[a1, a1, SP[a1, a3], a4, a2, n] - 2*S2[a1, a1, SP[a1, a4], a2, a3, n] - 
    2*S2[a1, a1, SP[a1, a4], a3, a2, n] - S2[a1, a1, SP[a3, a4], a1, a2, n] - 
    S2[a1, a2, a1, a1, SP[a3, a4], n] - S2[a1, a2, a1, SP[a1, a4], a3, n] - 
    S2[a1, a2, SP[a1, a1], a3, a4, n] - S2[a1, a2, SP[a1, a1], a4, a3, n] + 
    S2[a1, a2, SP[a1, a3], a1, a4, n] + 2*S2[a1, a4, a1, a1, SP[a2, a3], n] + 
    S2[a1, a4, a1, SP[a1, a2], a3, n] + S2[a1, a4, a1, SP[a1, a3], a2, n] + 
    S2[a1, a4, SP[a1, a1], a2, a3, n] + S2[a1, a4, SP[a1, a1], a3, a2, n] + 
    S2[a1, SP[a1, a1], a3, a2, a4, n] + S2[a1, SP[a1, a1], a3, a4, a2, n] + 
    S2[a1, SP[a1, a1], a4, a3, a2, n] + S2[a1, SP[a1, a2], a1, a3, a4, n] + 
    S2[a1, SP[a1, a2], a1, a4, a3, n] + S2[a1, SP[a1, a2], a3, a1, a4, n] - 
    S2[a1, SP[a1, a4], a1, a2, a3, n] - 2*S2[a1, SP[a1, a4], a1, a3, a2, n] - 
    S2[a1, SP[a1, a4], a3, a1, a2, n] + S2[a1, n]*S2[a4, a1, a1, a3, a2, n] + 
    S2[a4, a1, a1, a3, SP[a1, a2], n] + S2[a4, a1, a1, SP[a1, a3], a2, n] + 
    S2[a4, a1, SP[a1, a1], a3, a2, n] + S2[a4, SP[a1, a1], a1, a3, a2, n] + 
    S2[SP[a1, a1], a1, a3, a2, a4, n] + S2[SP[a1, a1], a1, a3, a4, a2, n] + 
    S2[SP[a1, a1], a1, a4, a3, a2, n] + S2[SP[a1, a1], a2, a1, a3, a4, n] + 
    S2[SP[a1, a1], a2, a1, a4, a3, n] + S2[SP[a1, a1], a2, a3, a1, a4, n] - 
    S2[SP[a1, a1], a4, a1, a2, a3, n] + S2[SP[a1, a1], a4, a1, a3, a2, n] - 
    2*S2[SP[a1, a4], a1, a1, a3, a2, n] - S2[SP[a1, a4], a1, a3, a1, a2, n] - 
    S2[a4, a1, a1, a3, a2, a1, n] /; 
   MyMemberQ[{{a2, a3, a4}}, {a1, a1, a1, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a1_, a2_, a3_, a1_, a4_, a1_, n_] :> 
  -2*S2[a1, a1, a4, n]*S2[a1, a2, a3, n] - 
    2*S2[SP[a1, a1], SP[a1, a2], SP[a3, a4], n] + 
    2*S2[a1, a4, n]*S2[a1, a1, a2, a3, n] + 
    2*S2[a1, a1, SP[a1, a2], SP[a3, a4], n] + 
    S2[a1, a4, n]*S2[a1, a2, a1, a3, n] - S2[a1, a2, SP[a1, a1], SP[a3, a4], 
     n] - S2[a1, a2, n]*S2[a1, a4, a1, a3, n] + S2[a1, a4, SP[a1, a1], 
     SP[a2, a3], n] + S2[a1, SP[a1, a2], a1, SP[a3, a4], n] + 
    2*S2[a1, SP[a1, a2], SP[a1, a3], a4, n] - S2[a1, SP[a1, a2], SP[a1, a4], 
     a3, n] + S2[a1, SP[a1, a4], a1, SP[a2, a3], n] + 
    S2[a1, SP[a1, a4], SP[a1, a2], a3, n] + S2[SP[a1, a1], a2, a1, 
     SP[a3, a4], n] + 2*S2[SP[a1, a1], a2, SP[a1, a3], a4, n] - 
    S2[SP[a1, a1], a2, SP[a1, a4], a3, n] + S2[SP[a1, a1], a4, a1, 
     SP[a2, a3], n] + S2[SP[a1, a1], a4, SP[a1, a2], a3, n] + 
    2*S2[SP[a1, a1], SP[a1, a2], a3, a4, n] + 
    2*S2[SP[a1, a1], SP[a1, a2], a4, a3, n] - 
    2*S2[SP[a1, a1], SP[a1, a4], a2, a3, n] - 
    2*S2[a1, a1, a2, SP[a1, a3], a4, n] + 
    2*S2[a1, a1, a2, SP[a1, a4], a3, n] - 
    2*S2[a1, a1, a4, a1, SP[a2, a3], n] - 
    2*S2[a1, a1, a4, SP[a1, a2], a3, n] - 
    2*S2[a1, a1, SP[a1, a2], a3, a4, n] - 
    2*S2[a1, a1, SP[a1, a2], a4, a3, n] + 
    2*S2[a1, a1, SP[a1, a4], a2, a3, n] - S2[a1, a2, a1, SP[a1, a3], a4, n] + 
    S2[a1, a2, a1, SP[a1, a4], a3, n] + S2[a1, n]*S2[a1, a2, a3, a1, a4, n] + 
    S2[a1, a2, a3, a1, SP[a1, a4], n] + S2[a1, a2, a3, SP[a1, a1], a4, n] + 
    S2[a1, a2, SP[a1, a1], a3, a4, n] + S2[a1, a2, SP[a1, a1], a4, a3, n] - 
    S2[a1, a2, SP[a1, a3], a1, a4, n] - 2*S2[a1, a4, a1, a1, SP[a2, a3], n] + 
    S2[a1, n]*S2[a1, a4, a1, a3, a2, n] + S2[a1, a4, a1, a3, SP[a1, a2], n] - 
    S2[a1, a4, a1, SP[a1, a2], a3, n] - S2[a1, a4, SP[a1, a1], a2, a3, n] - 
    S2[a1, SP[a1, a2], a1, a3, a4, n] - S2[a1, SP[a1, a2], a1, a4, a3, n] - 
    S2[a1, SP[a1, a2], a3, a1, a4, n] + S2[a1, SP[a1, a4], a1, a2, a3, n] - 
    S2[a1, n]*S2[a4, a1, a3, a2, a1, n] - S2[a4, a1, a3, a2, SP[a1, a1], n] - 
    S2[a4, a1, a3, SP[a1, a2], a1, n] - S2[a4, a1, SP[a1, a3], a2, a1, n] - 
    S2[a4, SP[a1, a1], a3, a2, a1, n] - S2[SP[a1, a1], a2, a1, a3, a4, n] - 
    S2[SP[a1, a1], a2, a1, a4, a3, n] - S2[SP[a1, a1], a2, a3, a1, a4, n] + 
    S2[SP[a1, a1], a4, a1, a2, a3, n] - S2[SP[a1, a4], a1, a3, a2, a1, n] + 
    2*S2[a4, a1, a1, a3, a2, a1, n] + S2[a4, a1, a3, a1, a2, a1, n] + 
    2*S2[a4, a1, a3, a2, a1, a1, n] /; 
   MyMemberQ[{{a2, a3, a4}}, {a1, a1, a1, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a1_, a2_, a3_, a4_, a1_, a1_, n_] :> 
  S2[a1, a1, a4, n]*S2[a1, a2, a3, n] + S2[SP[a1, a1], SP[a1, a2], 
     SP[a3, a4], n] - S2[a1, a2, n]*S2[a1, a1, a4, a3, n] - 
    2*S2[a1, a1, SP[a1, a2], SP[a3, a4], n] + S2[a1, a1, SP[a1, a4], 
     SP[a2, a3], n] - S2[a1, SP[a1, a1], a2, SP[a3, a4], n] + 
    S2[a1, SP[a1, a1], a4, SP[a2, a3], n] - S2[a1, SP[a1, a2], a1, 
     SP[a3, a4], n] - S2[a1, SP[a1, a2], SP[a1, a3], a4, n] - 
    S2[SP[a1, a1], a1, a2, SP[a3, a4], n] + S2[SP[a1, a1], a1, a4, 
     SP[a2, a3], n] - S2[SP[a1, a1], a2, a1, SP[a3, a4], n] - 
    S2[SP[a1, a1], a2, SP[a1, a3], a4, n] - S2[SP[a1, a1], SP[a1, a2], a3, 
     a4, n] + 3*S2[a1, a1, a1, a2, SP[a3, a4], n] - 
    3*S2[a1, a1, a1, a4, SP[a2, a3], n] + 
    2*S2[a1, a1, a2, a1, SP[a3, a4], n] - 
    S2[a1, n]*S2[a1, a1, a2, a3, a4, n] - S2[a1, a1, a2, a3, SP[a1, a4], n] + 
    S2[a1, a1, a2, SP[a1, a3], a4, n] - S2[a1, a1, a4, a1, SP[a2, a3], n] + 
    S2[a1, n]*S2[a1, a1, a4, a3, a2, n] + S2[a1, a1, a4, a3, SP[a1, a2], n] + 
    S2[a1, a1, SP[a1, a2], a3, a4, n] + S2[a1, a2, a1, a1, SP[a3, a4], n] - 
    (S2[a1, n]*S2[a1, a2, a1, a3, a4, n])/2 - 
    S2[a1, a2, a1, a3, SP[a1, a4], n]/2 + S2[a1, a2, a1, SP[a1, a3], a4, n]/
     2 - (S2[a1, n]*S2[a1, a2, a3, a1, a4, n])/2 - 
    S2[a1, a2, a3, a1, SP[a1, a4], n]/2 + 
    (S2[a1, n]*S2[a1, a2, a3, a4, a1, n])/2 + 
    S2[a1, a2, a3, a4, SP[a1, a1], n]/2 - S2[a1, a2, a3, SP[a1, a1], a4, n]/
     2 + S2[a1, a2, a3, SP[a1, a4], a1, n]/2 - 
    S2[a1, a2, SP[a1, a1], a3, a4, n]/2 + S2[a1, a2, SP[a1, a3], a1, a4, n]/
     2 + S2[a1, a2, SP[a1, a3], a4, a1, n]/2 - 
    (S2[a1, n]*S2[a1, a4, a3, a2, a1, n])/2 - 
    S2[a1, a4, a3, a2, SP[a1, a1], n]/2 - S2[a1, a4, a3, SP[a1, a2], a1, n]/
     2 - S2[a1, a4, SP[a1, a3], a2, a1, n]/2 + 
    S2[a1, SP[a1, a2], a1, a3, a4, n]/2 + S2[a1, SP[a1, a2], a3, a1, a4, n]/
     2 + S2[a1, SP[a1, a2], a3, a4, a1, n]/2 - 
    S2[a1, SP[a1, a4], a3, a2, a1, n]/2 + 
    (S2[a1, n]*S2[a4, a1, a3, a2, a1, n])/2 + 
    S2[a4, a1, a3, a2, SP[a1, a1], n]/2 + S2[a4, a1, a3, SP[a1, a2], a1, n]/
     2 + S2[a4, a1, SP[a1, a3], a2, a1, n]/2 + 
    (S2[a1, n]*S2[a4, a3, a1, a2, a1, n])/2 + 
    S2[a4, a3, a1, a2, SP[a1, a1], n]/2 + S2[a4, a3, a1, SP[a1, a2], a1, n]/
     2 + S2[a1, n]*S2[a4, a3, a2, a1, a1, n] + S2[a4, a3, a2, a1, SP[a1, a1], 
     n] + S2[a4, a3, a2, SP[a1, a1], a1, n] + 
    S2[a4, a3, SP[a1, a1], a2, a1, n]/2 + S2[a4, a3, SP[a1, a2], a1, a1, n] + 
    S2[a4, SP[a1, a1], a3, a2, a1, n]/2 + S2[a4, SP[a1, a3], a1, a2, a1, n]/
     2 + S2[a4, SP[a1, a3], a2, a1, a1, n] + 
    S2[SP[a1, a1], a2, a1, a3, a4, n]/2 + S2[SP[a1, a1], a2, a3, a1, a4, n]/
     2 + S2[SP[a1, a1], a2, a3, a4, a1, n]/2 - 
    S2[SP[a1, a1], a4, a3, a2, a1, n]/2 + S2[SP[a1, a4], a1, a3, a2, a1, n]/
     2 + S2[SP[a1, a4], a3, a1, a2, a1, n]/2 + S2[SP[a1, a4], a3, a2, a1, a1, 
     n] - S2[a4, a1, a1, a3, a2, a1, n] - S2[a4, a1, a3, a1, a2, a1, n] - 
    2*S2[a4, a1, a3, a2, a1, a1, n] - S2[a4, a3, a1, a1, a2, a1, n] - 
    2*S2[a4, a3, a1, a2, a1, a1, n] - 3*S2[a4, a3, a2, a1, a1, a1, n] /; 
   MyMemberQ[{{a2, a3, a4}}, {a1, a1, a1, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a1_, a2_, a4_, a1_, a1_, a3_, n_] :> 
  -(S2[a1, a2, n]*S2[a1, a1, a3, a4, n]) - S2[a1, a2, n]*
     S2[a1, a1, a4, a3, n] + S2[a1, a1, SP[a1, a3], SP[a2, a4], n] + 
    S2[a1, a1, SP[a1, a4], SP[a2, a3], n] - S2[a1, a2, n]*
     S2[a1, a4, a1, a3, n] + S2[a1, a4, SP[a1, a1], SP[a2, a3], n] + 
    S2[a1, SP[a1, a1], a3, SP[a2, a4], n] + S2[a1, SP[a1, a1], a4, 
     SP[a2, a3], n] + S2[a1, SP[a1, a1], SP[a2, a3], a4, n] + 
    S2[a1, SP[a1, a1], SP[a2, a4], a3, n] + S2[a1, SP[a1, a4], a1, 
     SP[a2, a3], n] + S2[a1, SP[a1, a4], SP[a1, a2], a3, n] + 
    S2[SP[a1, a1], a1, a3, SP[a2, a4], n] + S2[SP[a1, a1], a1, a4, 
     SP[a2, a3], n] + S2[SP[a1, a1], a1, SP[a2, a3], a4, n] + 
    S2[SP[a1, a1], a1, SP[a2, a4], a3, n] + S2[SP[a1, a1], a4, a1, 
     SP[a2, a3], n] + S2[SP[a1, a1], a4, SP[a1, a2], a3, n] + 
    S2[SP[a1, a1], SP[a1, a2], a3, a4, n] + S2[SP[a1, a1], SP[a1, a2], a4, 
     a3, n] + S2[SP[a1, a1], SP[a2, a4], a1, a3, n] + 
    3*S2[a4, n]*S2[a1, a1, a1, a2, a3, n] + 
    3*S2[a1, a1, a1, a2, SP[a3, a4], n] + 
    3*S2[a4, n]*S2[a1, a1, a1, a3, a2, n] - 
    3*S2[a1, a1, a1, a4, SP[a2, a3], n] - 
    3*S2[a1, a1, a1, SP[a2, a3], a4, n] + 
    3*S2[a1, a1, a1, SP[a3, a4], a2, n] + 
    2*S2[a4, n]*S2[a1, a1, a2, a1, a3, n] + 
    2*S2[a1, a1, a2, a1, SP[a3, a4], n] + 
    2*S2[a1, a1, a2, SP[a1, a4], a3, n] + 
    S2[a4, n]*S2[a1, a1, a3, a1, a2, n] - 
    3*S2[a1, a1, a4, a1, SP[a2, a3], n] - 
    2*S2[a1, a1, a4, SP[a1, a2], a3, n] - S2[a1, a1, a4, SP[a1, a3], a2, n] - 
    2*S2[a1, a1, SP[a1, a2], a3, a4, n] - 
    2*S2[a1, a1, SP[a1, a2], a4, a3, n] - S2[a1, a1, SP[a1, a3], a2, a4, n] - 
    S2[a1, a1, SP[a1, a3], a4, a2, n] + 2*S2[a1, a1, SP[a1, a4], a2, a3, n] + 
    2*S2[a1, a1, SP[a1, a4], a3, a2, n] + S2[a1, a1, SP[a3, a4], a1, a2, n] + 
    S2[a4, n]*S2[a1, a2, a1, a1, a3, n] + S2[a1, a2, a1, a1, SP[a3, a4], n] + 
    S2[a1, a2, a1, SP[a1, a4], a3, n] + S2[a1, a2, SP[a1, a4], a1, a3, n] - 
    2*S2[a1, a4, a1, a1, SP[a2, a3], n] - S2[a1, a4, a1, SP[a1, a2], a3, n] - 
    S2[a1, a4, a1, SP[a1, a3], a2, n] - S2[a1, a4, SP[a1, a1], a2, a3, n] - 
    S2[a1, a4, SP[a1, a1], a3, a2, n] - S2[a1, SP[a1, a1], a2, a3, a4, n] - 
    S2[a1, SP[a1, a1], a2, a4, a3, n] - S2[a1, SP[a1, a1], a3, a2, a4, n] - 
    S2[a1, SP[a1, a1], a3, a4, a2, n] - S2[a1, SP[a1, a1], a4, a2, a3, n] - 
    S2[a1, SP[a1, a1], a4, a3, a2, n] - S2[a1, SP[a1, a2], a1, a3, a4, n] - 
    S2[a1, SP[a1, a2], a1, a4, a3, n] - S2[a1, SP[a1, a2], a4, a1, a3, n] + 
    2*S2[a1, SP[a1, a4], a1, a2, a3, n] + 
    2*S2[a1, SP[a1, a4], a1, a3, a2, n] + S2[a1, SP[a1, a4], a2, a1, a3, n] + 
    S2[a1, SP[a1, a4], a3, a1, a2, n] + S2[a1, SP[a2, a4], a1, a1, a3, n] - 
    S2[a1, n]*S2[a4, a1, a1, a2, a3, n] - S2[a4, a1, a1, a2, SP[a1, a3], n] - 
    S2[a1, n]*S2[a4, a1, a1, a3, a2, n] - S2[a4, a1, a1, a3, SP[a1, a2], n] - 
    S2[a4, a1, a1, SP[a1, a2], a3, n] - S2[a4, a1, a1, SP[a1, a3], a2, n] - 
    S2[a1, n]*S2[a4, a1, a2, a1, a3, n] - S2[a4, a1, a2, a1, SP[a1, a3], n] - 
    S2[a4, a1, a2, SP[a1, a1], a3, n] - S2[a4, a1, SP[a1, a1], a2, a3, n] - 
    S2[a4, a1, SP[a1, a1], a3, a2, n] - S2[a4, a1, SP[a1, a2], a1, a3, n] - 
    S2[a1, n]*S2[a4, a2, a1, a1, a3, n] - S2[a4, a2, a1, a1, SP[a1, a3], n] - 
    S2[a4, a2, a1, SP[a1, a1], a3, n] - S2[a4, a2, SP[a1, a1], a1, a3, n] - 
    S2[a4, SP[a1, a1], a1, a2, a3, n] - S2[a4, SP[a1, a1], a1, a3, a2, n] - 
    S2[a4, SP[a1, a1], a2, a1, a3, n] - S2[a4, SP[a1, a2], a1, a1, a3, n] - 
    S2[SP[a1, a1], a1, a2, a3, a4, n] - S2[SP[a1, a1], a1, a2, a4, a3, n] - 
    S2[SP[a1, a1], a1, a3, a2, a4, n] - S2[SP[a1, a1], a1, a3, a4, a2, n] - 
    S2[SP[a1, a1], a1, a4, a2, a3, n] - S2[SP[a1, a1], a1, a4, a3, a2, n] - 
    S2[SP[a1, a1], a2, a1, a3, a4, n] - S2[SP[a1, a1], a2, a1, a4, a3, n] - 
    S2[SP[a1, a1], a2, a4, a1, a3, n] - S2[SP[a1, a1], a4, a1, a2, a3, n] - 
    S2[SP[a1, a1], a4, a1, a3, a2, n] - S2[SP[a1, a1], a4, a2, a1, a3, n] + 
    2*S2[SP[a1, a4], a1, a1, a2, a3, n] + 
    2*S2[SP[a1, a4], a1, a1, a3, a2, n] + S2[SP[a1, a4], a1, a2, a1, a3, n] + 
    S2[SP[a1, a4], a1, a3, a1, a2, n] + S2[a4, a1, a1, a2, a1, a3, n] + 
    S2[a4, a1, a1, a2, a3, a1, n] + S2[a4, a1, a1, a3, a2, a1, n] + 
    2*S2[a4, a1, a2, a1, a1, a3, n] + S2[a4, a1, a2, a1, a3, a1, n] + 
    3*S2[a4, a2, a1, a1, a1, a3, n] + S2[a4, a2, a1, a1, a3, a1, n] /; 
   MyMemberQ[{{a2, a3, a4}}, {a1, a1, a1, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a1_, a2_, a4_, a1_, a3_, a1_, n_] :> 
  2*S2[a1, a2, n]*S2[a1, a1, a3, a4, n] + 2*S2[a1, a2, n]*
     S2[a1, a1, a4, a3, n] - 2*S2[a1, a1, SP[a1, a3], SP[a2, a4], n] - 
    2*S2[a1, a1, SP[a1, a4], SP[a2, a3], n] + 
    S2[a1, a2, n]*S2[a1, a4, a1, a3, n] - S2[a1, a4, SP[a1, a1], SP[a2, a3], 
     n] - 2*S2[a1, SP[a1, a1], a3, SP[a2, a4], n] - 
    2*S2[a1, SP[a1, a1], a4, SP[a2, a3], n] - 
    2*S2[a1, SP[a1, a1], SP[a2, a3], a4, n] - 
    2*S2[a1, SP[a1, a1], SP[a2, a4], a3, n] - S2[a1, SP[a1, a4], a1, 
     SP[a2, a3], n] - S2[a1, SP[a1, a4], SP[a1, a2], a3, n] - 
    2*S2[SP[a1, a1], a1, a3, SP[a2, a4], n] - 
    2*S2[SP[a1, a1], a1, a4, SP[a2, a3], n] - 
    2*S2[SP[a1, a1], a1, SP[a2, a3], a4, n] - 
    2*S2[SP[a1, a1], a1, SP[a2, a4], a3, n] - S2[SP[a1, a1], a4, a1, 
     SP[a2, a3], n] - S2[SP[a1, a1], a4, SP[a1, a2], a3, n] - 
    2*S2[SP[a1, a1], SP[a1, a2], a3, a4, n] - 
    2*S2[SP[a1, a1], SP[a1, a2], a4, a3, n] - S2[SP[a1, a1], SP[a2, a4], a1, 
     a3, n] - 6*S2[a4, n]*S2[a1, a1, a1, a2, a3, n] - 
    6*S2[a1, a1, a1, a2, SP[a3, a4], n] - 
    6*S2[a4, n]*S2[a1, a1, a1, a3, a2, n] + 
    6*S2[a1, a1, a1, a4, SP[a2, a3], n] + 
    6*S2[a1, a1, a1, SP[a2, a3], a4, n] - 
    6*S2[a1, a1, a1, SP[a3, a4], a2, n] - 
    4*S2[a4, n]*S2[a1, a1, a2, a1, a3, n] - 
    4*S2[a1, a1, a2, a1, SP[a3, a4], n] - 
    4*S2[a1, a1, a2, SP[a1, a4], a3, n] - 
    2*S2[a4, n]*S2[a1, a1, a3, a1, a2, n] + 
    4*S2[a1, a1, a4, a1, SP[a2, a3], n] + 
    2*S2[a1, a1, a4, SP[a1, a2], a3, n] + 
    2*S2[a1, a1, a4, SP[a1, a3], a2, n] + 
    4*S2[a1, a1, SP[a1, a2], a3, a4, n] + 
    4*S2[a1, a1, SP[a1, a2], a4, a3, n] + 
    2*S2[a1, a1, SP[a1, a3], a2, a4, n] + 
    2*S2[a1, a1, SP[a1, a3], a4, a2, n] - 
    4*S2[a1, a1, SP[a1, a4], a2, a3, n] - 
    4*S2[a1, a1, SP[a1, a4], a3, a2, n] - 
    2*S2[a1, a1, SP[a2, a4], a1, a3, n] - 
    2*S2[a1, a1, SP[a3, a4], a1, a2, n] - 
    2*S2[a4, n]*S2[a1, a2, a1, a1, a3, n] - 
    2*S2[a1, a2, a1, a1, SP[a3, a4], n] - 
    2*S2[a1, a2, a1, SP[a1, a4], a3, n] + 
    S2[a1, n]*S2[a1, a2, a4, a1, a3, n] + S2[a1, a2, a4, a1, SP[a1, a3], n] + 
    S2[a1, a2, a4, SP[a1, a1], a3, n] - S2[a1, a2, SP[a1, a4], a1, a3, n] + 
    2*S2[a1, a4, a1, a1, SP[a2, a3], n] + 
    S2[a1, n]*S2[a1, a4, a1, a2, a3, n] + S2[a1, a4, a1, a2, SP[a1, a3], n] + 
    S2[a1, n]*S2[a1, a4, a1, a3, a2, n] + S2[a1, a4, a1, a3, SP[a1, a2], n] + 
    2*S2[a1, a4, a1, SP[a1, a2], a3, n] + 
    2*S2[a1, a4, a1, SP[a1, a3], a2, n] + 
    S2[a1, n]*S2[a1, a4, a2, a1, a3, n] + S2[a1, a4, a2, a1, SP[a1, a3], n] + 
    S2[a1, a4, a2, SP[a1, a1], a3, n] + 2*S2[a1, a4, SP[a1, a1], a2, a3, n] + 
    2*S2[a1, a4, SP[a1, a1], a3, a2, n] + S2[a1, a4, SP[a1, a2], a1, a3, n] + 
    2*S2[a1, SP[a1, a1], a2, a3, a4, n] + 
    2*S2[a1, SP[a1, a1], a2, a4, a3, n] + 
    2*S2[a1, SP[a1, a1], a3, a2, a4, n] + 
    2*S2[a1, SP[a1, a1], a3, a4, a2, n] + 
    2*S2[a1, SP[a1, a1], a4, a2, a3, n] + 
    2*S2[a1, SP[a1, a1], a4, a3, a2, n] + 
    2*S2[a1, SP[a1, a2], a1, a3, a4, n] + 
    2*S2[a1, SP[a1, a2], a1, a4, a3, n] + 
    2*S2[a1, SP[a1, a2], a4, a1, a3, n] - 
    4*S2[a1, SP[a1, a4], a1, a2, a3, n] - 
    4*S2[a1, SP[a1, a4], a1, a3, a2, n] - 
    2*S2[a1, SP[a1, a4], a2, a1, a3, n] - 
    2*S2[a1, SP[a1, a4], a3, a1, a2, n] - 
    2*S2[a1, SP[a2, a4], a1, a1, a3, n] + 
    2*S2[a1, n]*S2[a4, a1, a1, a2, a3, n] + 
    2*S2[a4, a1, a1, a2, SP[a1, a3], n] + 
    2*S2[a1, n]*S2[a4, a1, a1, a3, a2, n] + 
    2*S2[a4, a1, a1, a3, SP[a1, a2], n] + 
    2*S2[a4, a1, a1, SP[a1, a2], a3, n] + 
    2*S2[a4, a1, a1, SP[a1, a3], a2, n] + 
    S2[a1, n]*S2[a4, a1, a2, a1, a3, n] + S2[a4, a1, a2, a1, SP[a1, a3], n] - 
    S2[a1, n]*S2[a4, a1, a2, a3, a1, n] - S2[a4, a1, a2, a3, SP[a1, a1], n] + 
    S2[a4, a1, a2, SP[a1, a1], a3, n] - S2[a4, a1, a2, SP[a1, a3], a1, n] - 
    S2[a1, n]*S2[a4, a1, a3, a2, a1, n] - S2[a4, a1, a3, a2, SP[a1, a1], n] - 
    S2[a4, a1, a3, SP[a1, a2], a1, n] + 2*S2[a4, a1, SP[a1, a1], a2, a3, n] + 
    2*S2[a4, a1, SP[a1, a1], a3, a2, n] + S2[a4, a1, SP[a1, a2], a1, a3, n] - 
    S2[a4, a1, SP[a1, a2], a3, a1, n] - S2[a4, a1, SP[a1, a3], a2, a1, n] - 
    S2[a1, n]*S2[a4, a2, a1, a3, a1, n] - S2[a4, a2, a1, a3, SP[a1, a1], n] - 
    S2[a4, a2, a1, SP[a1, a3], a1, n] - S2[a4, a2, SP[a1, a1], a3, a1, n] + 
    2*S2[a4, SP[a1, a1], a1, a2, a3, n] + 
    2*S2[a4, SP[a1, a1], a1, a3, a2, n] + S2[a4, SP[a1, a1], a2, a1, a3, n] - 
    S2[a4, SP[a1, a1], a2, a3, a1, n] - S2[a4, SP[a1, a1], a3, a2, a1, n] - 
    S2[a4, SP[a1, a2], a1, a3, a1, n] + 2*S2[SP[a1, a1], a1, a2, a3, a4, n] + 
    2*S2[SP[a1, a1], a1, a2, a4, a3, n] + 
    2*S2[SP[a1, a1], a1, a3, a2, a4, n] + 
    2*S2[SP[a1, a1], a1, a3, a4, a2, n] + 
    2*S2[SP[a1, a1], a1, a4, a2, a3, n] + 
    2*S2[SP[a1, a1], a1, a4, a3, a2, n] + 
    2*S2[SP[a1, a1], a2, a1, a3, a4, n] + 
    2*S2[SP[a1, a1], a2, a1, a4, a3, n] + 
    2*S2[SP[a1, a1], a2, a4, a1, a3, n] + 
    2*S2[SP[a1, a1], a4, a1, a2, a3, n] + 
    2*S2[SP[a1, a1], a4, a1, a3, a2, n] + 
    2*S2[SP[a1, a1], a4, a2, a1, a3, n] - 
    4*S2[SP[a1, a4], a1, a1, a2, a3, n] - 
    4*S2[SP[a1, a4], a1, a1, a3, a2, n] - 
    3*S2[SP[a1, a4], a1, a2, a1, a3, n] - S2[SP[a1, a4], a1, a2, a3, a1, n] - 
    2*S2[SP[a1, a4], a1, a3, a1, a2, n] - S2[SP[a1, a4], a1, a3, a2, a1, n] - 
    2*S2[SP[a1, a4], a2, a1, a1, a3, n] - S2[SP[a1, a4], a2, a1, a3, a1, n] + 
    S2[a4, a1, a2, a1, a3, a1, n] + 2*S2[a4, a1, a2, a3, a1, a1, n] + 
    S2[a4, a1, a3, a1, a2, a1, n] + 2*S2[a4, a1, a3, a2, a1, a1, n] + 
    2*S2[a4, a2, a1, a1, a3, a1, n] + 2*S2[a4, a2, a1, a3, a1, a1, n] /; 
   MyMemberQ[{{a2, a3, a4}}, {a1, a1, a1, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a1_, a2_, a4_, a3_, a1_, a1_, n_] :> 
  -(S2[a1, a2, n]*S2[a1, a1, a3, a4, n]) + S2[a1, a1, SP[a1, a3], SP[a2, a4], 
     n] + S2[a1, SP[a1, a1], a3, SP[a2, a4], n] + 
    S2[a1, SP[a1, a1], SP[a2, a3], a4, n] + S2[SP[a1, a1], a1, a3, 
     SP[a2, a4], n] + S2[SP[a1, a1], a1, SP[a2, a3], a4, n] + 
    S2[SP[a1, a1], SP[a1, a2], a3, a4, n] + 
    3*S2[a4, n]*S2[a1, a1, a1, a2, a3, n] + 
    3*S2[a1, a1, a1, a2, SP[a3, a4], n] + 
    3*S2[a4, n]*S2[a1, a1, a1, a3, a2, n] - 
    3*S2[a1, a1, a1, SP[a2, a3], a4, n] + 
    3*S2[a1, a1, a1, SP[a2, a4], a3, n] + 
    3*S2[a1, a1, a1, SP[a3, a4], a2, n] + 
    2*S2[a4, n]*S2[a1, a1, a2, a1, a3, n] + 
    2*S2[a1, a1, a2, a1, SP[a3, a4], n] - 
    S2[a1, n]*S2[a1, a1, a2, a4, a3, n] - S2[a1, a1, a2, a4, SP[a1, a3], n] + 
    S2[a1, a1, a2, SP[a1, a4], a3, n] + S2[a4, n]*S2[a1, a1, a3, a1, a2, n] - 
    S2[a1, n]*S2[a1, a1, a4, a2, a3, n] - S2[a1, a1, a4, a2, SP[a1, a3], n] - 
    S2[a1, n]*S2[a1, a1, a4, a3, a2, n] - S2[a1, a1, a4, a3, SP[a1, a2], n] - 
    S2[a1, a1, a4, SP[a1, a2], a3, n] - S2[a1, a1, a4, SP[a1, a3], a2, n] - 
    2*S2[a1, a1, SP[a1, a2], a3, a4, n] - S2[a1, a1, SP[a1, a2], a4, a3, n] - 
    S2[a1, a1, SP[a1, a3], a2, a4, n] - S2[a1, a1, SP[a1, a3], a4, a2, n] + 
    2*S2[a1, a1, SP[a1, a4], a2, a3, n] + 
    2*S2[a1, a1, SP[a1, a4], a3, a2, n] + 
    2*S2[a1, a1, SP[a2, a4], a1, a3, n] + S2[a1, a1, SP[a3, a4], a1, a2, n] + 
    S2[a4, n]*S2[a1, a2, a1, a1, a3, n] + S2[a1, a2, a1, a1, SP[a3, a4], n] - 
    (S2[a1, n]*S2[a1, a2, a1, a4, a3, n])/2 - 
    S2[a1, a2, a1, a4, SP[a1, a3], n]/2 + S2[a1, a2, a1, SP[a1, a4], a3, n]/
     2 - (S2[a1, n]*S2[a1, a2, a4, a1, a3, n])/2 - 
    S2[a1, a2, a4, a1, SP[a1, a3], n]/2 + 
    (S2[a1, n]*S2[a1, a2, a4, a3, a1, n])/2 + 
    S2[a1, a2, a4, a3, SP[a1, a1], n]/2 - S2[a1, a2, a4, SP[a1, a1], a3, n]/
     2 + S2[a1, a2, a4, SP[a1, a3], a1, n]/2 - 
    S2[a1, a2, SP[a1, a1], a4, a3, n]/2 + S2[a1, a2, SP[a1, a4], a1, a3, n]/
     2 + S2[a1, a2, SP[a1, a4], a3, a1, n]/2 - 
    S2[a1, n]*S2[a1, a4, a1, a2, a3, n] - S2[a1, a4, a1, a2, SP[a1, a3], n] - 
    S2[a1, n]*S2[a1, a4, a1, a3, a2, n] - S2[a1, a4, a1, a3, SP[a1, a2], n] - 
    S2[a1, a4, a1, SP[a1, a2], a3, n] - S2[a1, a4, a1, SP[a1, a3], a2, n] - 
    (S2[a1, n]*S2[a1, a4, a2, a1, a3, n])/2 - 
    S2[a1, a4, a2, a1, SP[a1, a3], n]/2 + 
    (S2[a1, n]*S2[a1, a4, a2, a3, a1, n])/2 + 
    S2[a1, a4, a2, a3, SP[a1, a1], n]/2 - S2[a1, a4, a2, SP[a1, a1], a3, n]/
     2 + S2[a1, a4, a2, SP[a1, a3], a1, n]/2 + 
    (S2[a1, n]*S2[a1, a4, a3, a2, a1, n])/2 + 
    S2[a1, a4, a3, a2, SP[a1, a1], n]/2 + S2[a1, a4, a3, SP[a1, a2], a1, n]/
     2 - S2[a1, a4, SP[a1, a1], a2, a3, n] - S2[a1, a4, SP[a1, a1], a3, a2, 
     n] - S2[a1, a4, SP[a1, a2], a1, a3, n]/2 + 
    S2[a1, a4, SP[a1, a2], a3, a1, n]/2 + S2[a1, a4, SP[a1, a3], a2, a1, n]/
     2 - S2[a1, SP[a1, a1], a2, a3, a4, n] - S2[a1, SP[a1, a1], a2, a4, a3, 
     n] - S2[a1, SP[a1, a1], a3, a2, a4, n] - S2[a1, SP[a1, a1], a3, a4, a2, 
     n] - S2[a1, SP[a1, a1], a4, a2, a3, n] - S2[a1, SP[a1, a1], a4, a3, a2, 
     n] - S2[a1, SP[a1, a2], a1, a3, a4, n] - 
    S2[a1, SP[a1, a2], a1, a4, a3, n]/2 - S2[a1, SP[a1, a2], a4, a1, a3, n]/
     2 + S2[a1, SP[a1, a2], a4, a3, a1, n]/2 + 
    2*S2[a1, SP[a1, a4], a1, a2, a3, n] + 
    2*S2[a1, SP[a1, a4], a1, a3, a2, n] + 
    (3*S2[a1, SP[a1, a4], a2, a1, a3, n])/2 + 
    S2[a1, SP[a1, a4], a2, a3, a1, n]/2 + S2[a1, SP[a1, a4], a3, a1, a2, n] + 
    S2[a1, SP[a1, a4], a3, a2, a1, n]/2 + S2[a1, SP[a2, a4], a1, a1, a3, n] - 
    S2[a1, n]*S2[a4, a1, a1, a2, a3, n] - S2[a4, a1, a1, a2, SP[a1, a3], n] - 
    S2[a1, n]*S2[a4, a1, a1, a3, a2, n] - S2[a4, a1, a1, a3, SP[a1, a2], n] - 
    S2[a4, a1, a1, SP[a1, a2], a3, n] - S2[a4, a1, a1, SP[a1, a3], a2, n] - 
    (S2[a1, n]*S2[a4, a1, a2, a1, a3, n])/2 - 
    S2[a4, a1, a2, a1, SP[a1, a3], n]/2 + 
    (S2[a1, n]*S2[a4, a1, a2, a3, a1, n])/2 + 
    S2[a4, a1, a2, a3, SP[a1, a1], n]/2 - S2[a4, a1, a2, SP[a1, a1], a3, n]/
     2 + S2[a4, a1, a2, SP[a1, a3], a1, n]/2 + 
    (S2[a1, n]*S2[a4, a1, a3, a2, a1, n])/2 + 
    S2[a4, a1, a3, a2, SP[a1, a1], n]/2 + S2[a4, a1, a3, SP[a1, a2], a1, n]/
     2 - S2[a4, a1, SP[a1, a1], a2, a3, n] - S2[a4, a1, SP[a1, a1], a3, a2, 
     n] - S2[a4, a1, SP[a1, a2], a1, a3, n]/2 + 
    S2[a4, a1, SP[a1, a2], a3, a1, n]/2 + S2[a4, a1, SP[a1, a3], a2, a1, n]/
     2 - S2[a1, n]*S2[a4, a2, a3, a1, a1, n] - S2[a4, a2, a3, a1, SP[a1, a1], 
     n] - S2[a4, a2, a3, SP[a1, a1], a1, n] - S2[a4, a2, SP[a1, a3], a1, a1, 
     n] - (S2[a1, n]*S2[a4, a3, a1, a2, a1, n])/2 - 
    S2[a4, a3, a1, a2, SP[a1, a1], n]/2 - S2[a4, a3, a1, SP[a1, a2], a1, n]/
     2 - S2[a1, n]*S2[a4, a3, a2, a1, a1, n] - S2[a4, a3, a2, a1, SP[a1, a1], 
     n] - S2[a4, a3, a2, SP[a1, a1], a1, n] - 
    S2[a4, a3, SP[a1, a1], a2, a1, n]/2 - S2[a4, a3, SP[a1, a2], a1, a1, n] - 
    S2[a4, SP[a1, a1], a1, a2, a3, n] - S2[a4, SP[a1, a1], a1, a3, a2, n] - 
    S2[a4, SP[a1, a1], a2, a1, a3, n]/2 + S2[a4, SP[a1, a1], a2, a3, a1, n]/
     2 + S2[a4, SP[a1, a1], a3, a2, a1, n]/2 - S2[a4, SP[a1, a2], a3, a1, a1, 
     n] - S2[a4, SP[a1, a3], a1, a2, a1, n]/2 - S2[a4, SP[a1, a3], a2, a1, 
     a1, n] - S2[SP[a1, a1], a1, a2, a3, a4, n] - S2[SP[a1, a1], a1, a2, a4, 
     a3, n] - S2[SP[a1, a1], a1, a3, a2, a4, n] - S2[SP[a1, a1], a1, a3, a4, 
     a2, n] - S2[SP[a1, a1], a1, a4, a2, a3, n] - S2[SP[a1, a1], a1, a4, a3, 
     a2, n] - S2[SP[a1, a1], a2, a1, a3, a4, n] - 
    S2[SP[a1, a1], a2, a1, a4, a3, n]/2 - S2[SP[a1, a1], a2, a4, a1, a3, n]/
     2 + S2[SP[a1, a1], a2, a4, a3, a1, n]/2 - S2[SP[a1, a1], a4, a1, a2, a3, 
     n] - S2[SP[a1, a1], a4, a1, a3, a2, n] - 
    S2[SP[a1, a1], a4, a2, a1, a3, n]/2 + S2[SP[a1, a1], a4, a2, a3, a1, n]/
     2 + S2[SP[a1, a1], a4, a3, a2, a1, n]/2 + 
    2*S2[SP[a1, a4], a1, a1, a2, a3, n] + 
    2*S2[SP[a1, a4], a1, a1, a3, a2, n] + 
    (3*S2[SP[a1, a4], a1, a2, a1, a3, n])/2 + 
    S2[SP[a1, a4], a1, a2, a3, a1, n]/2 + S2[SP[a1, a4], a1, a3, a1, a2, n] + 
    S2[SP[a1, a4], a1, a3, a2, a1, n]/2 + S2[SP[a1, a4], a2, a1, a1, a3, n] - 
    S2[SP[a1, a4], a2, a3, a1, a1, n] - S2[SP[a1, a4], a3, a1, a2, a1, n]/2 - 
    S2[SP[a1, a4], a3, a2, a1, a1, n] + S2[a4, a2, a1, a3, a1, a1, n] + 
    3*S2[a4, a2, a3, a1, a1, a1, n] + S2[a4, a3, a1, a1, a2, a1, n] + 
    2*S2[a4, a3, a1, a2, a1, a1, n] + 3*S2[a4, a3, a2, a1, a1, a1, n] /; 
   MyMemberQ[{{a2, a3, a4}}, {a1, a1, a1, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a1_, a3_, a1_, a1_, a2_, a4_, n_] :> 
  -2*S2[a1, a1, a3, n]*S2[a1, a2, a4, n] - 
    2*S2[SP[a1, a1], SP[a1, a2], SP[a3, a4], n] + 
    3*S2[a2, a4, n]*S2[a1, a1, a1, a3, n] + S2[a1, a3, n]*
     S2[a1, a1, a2, a4, n] + S2[a1, SP[a1, a1], a2, SP[a3, a4], n] + 
    S2[a1, SP[a1, a1], SP[a2, a3], a4, n] - S2[a1, SP[a1, a2], a1, 
     SP[a3, a4], n] - S2[a1, SP[a1, a2], SP[a1, a4], a3, n] + 
    S2[SP[a1, a1], a1, a2, SP[a3, a4], n] + S2[SP[a1, a1], a1, SP[a2, a3], 
     a4, n] + 2*S2[SP[a1, a1], a2, a1, SP[a3, a4], n] + 
    2*S2[SP[a1, a1], a2, SP[a1, a4], a3, n] + 
    2*S2[SP[a1, a1], SP[a1, a2], a3, a4, n] + 
    2*S2[SP[a1, a1], SP[a1, a2], a4, a3, n] - S2[SP[a1, a1], SP[a1, a3], a2, 
     a4, n] - 3*S2[SP[a1, a2], a1, a1, SP[a3, a4], n] - 
    3*S2[SP[a1, a2], a1, SP[a1, a4], a3, n] - 
    3*S2[SP[a1, a2], SP[a1, a4], a1, a3, n] + 
    3*S2[a4, n]*S2[a1, a1, a1, a2, a3, n] + 
    3*S2[a1, a1, a1, a2, SP[a3, a4], n] + 
    3*S2[a4, n]*S2[a1, a1, a1, a3, a2, n] - 
    3*S2[a2, n]*S2[a1, a1, a1, a3, a4, n] - 
    3*S2[a2, n]*S2[a1, a1, a1, a4, a3, n] - 
    3*S2[a1, a1, a1, a4, SP[a2, a3], n] - 
    3*S2[a1, a1, a1, SP[a2, a3], a4, n] + 
    3*S2[a1, a1, a1, SP[a3, a4], a2, n] + 
    3*S2[a4, n]*S2[a1, a1, a2, a1, a3, n] + 
    3*S2[a1, a1, a2, a1, SP[a3, a4], n] + 
    3*S2[a1, a1, a2, SP[a1, a4], a3, n] - 
    3*S2[a2, n]*S2[a1, a1, a4, a1, a3, n] - 
    3*S2[a1, a1, a4, a1, SP[a2, a3], n] - 
    3*S2[a1, a1, a4, SP[a1, a2], a3, n] - 
    3*S2[a1, a1, SP[a1, a2], a3, a4, n] - 
    3*S2[a1, a1, SP[a1, a2], a4, a3, n] + 
    3*S2[a1, a1, SP[a1, a4], a2, a3, n] + 
    3*S2[a1, a1, SP[a1, a4], a3, a2, n] + 
    2*S2[a4, n]*S2[a1, a2, a1, a1, a3, n] + 
    3*S2[a1, a2, a1, a1, SP[a3, a4], n] + 
    3*S2[a1, a2, a1, SP[a1, a4], a3, n] + 
    3*S2[a1, a2, SP[a1, a4], a1, a3, n] - 
    3*S2[a2, n]*S2[a1, a4, a1, a1, a3, n] - 
    3*S2[a1, a4, a1, a1, SP[a2, a3], n] - 
    3*S2[a1, a4, a1, SP[a1, a2], a3, n] - 
    3*S2[a1, a4, SP[a1, a2], a1, a3, n] - S2[a1, SP[a1, a1], a2, a3, a4, n] - 
    S2[a1, SP[a1, a1], a2, a4, a3, n] - S2[a1, SP[a1, a1], a3, a2, a4, n] - 
    2*S2[a1, SP[a1, a2], a1, a3, a4, n] - 
    2*S2[a1, SP[a1, a2], a1, a4, a3, n] - 
    2*S2[a1, SP[a1, a2], a4, a1, a3, n] + S2[a1, SP[a1, a3], a1, a2, a4, n] + 
    3*S2[a1, SP[a1, a4], a1, a2, a3, n] + 
    3*S2[a1, SP[a1, a4], a1, a3, a2, n] + 
    3*S2[a1, SP[a1, a4], a2, a1, a3, n] - S2[a1, SP[a2, a4], a1, a1, a3, n] + 
    3*S2[a2, a1, a1, a1, SP[a3, a4], n] + 
    3*S2[a2, a1, a1, SP[a1, a4], a3, n] + 
    3*S2[a2, a1, SP[a1, a4], a1, a3, n] + 
    3*S2[a2, SP[a1, a4], a1, a1, a3, n] - 
    3*S2[a2, n]*S2[a4, a1, a1, a1, a3, n] - 
    3*S2[a4, a1, a1, a1, SP[a2, a3], n] - 
    3*S2[a4, a1, a1, SP[a1, a2], a3, n] - 
    3*S2[a4, a1, SP[a1, a2], a1, a3, n] + 
    S2[a1, n]*S2[a4, a2, a1, a1, a3, n] + S2[a4, a2, a1, a1, SP[a1, a3], n] + 
    S2[a4, a2, a1, SP[a1, a1], a3, n] + S2[a4, a2, SP[a1, a1], a1, a3, n] - 
    2*S2[a4, SP[a1, a2], a1, a1, a3, n] - S2[SP[a1, a1], a1, a2, a3, a4, n] - 
    S2[SP[a1, a1], a1, a2, a4, a3, n] - S2[SP[a1, a1], a1, a3, a2, a4, n] - 
    2*S2[SP[a1, a1], a2, a1, a3, a4, n] - 
    2*S2[SP[a1, a1], a2, a1, a4, a3, n] - 
    2*S2[SP[a1, a1], a2, a4, a1, a3, n] + S2[SP[a1, a1], a3, a1, a2, a4, n] + 
    3*S2[SP[a1, a4], a1, a1, a2, a3, n] + 
    3*S2[SP[a1, a4], a1, a1, a3, a2, n] + 
    3*S2[SP[a1, a4], a1, a2, a1, a3, n] + 
    3*S2[SP[a1, a4], a2, a1, a1, a3, n] - 
    3*S2[SP[a2, a4], a1, a1, a1, a3, n] - S2[a4, a2, a1, a1, a3, a1, n] /; 
   MyMemberQ[{{a2, a3, a4}}, {a1, a1, a1, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a1_, a3_, a1_, a1_, a4_, a2_, n_] :> 
  -2*S2[a1, a1, a3, n]*S2[a1, a4, a2, n] - 
    2*S2[SP[a1, a1], SP[a1, a4], SP[a2, a3], n] - 
    3*S2[a2, a4, n]*S2[a1, a1, a1, a3, n] + S2[a1, a3, n]*
     S2[a1, a1, a4, a2, n] + 3*S2[a1, a1, SP[a1, a2], SP[a3, a4], n] + 
    3*S2[a1, a1, SP[a1, a4], SP[a2, a3], n] + S2[a1, SP[a1, a1], a4, 
     SP[a2, a3], n] + S2[a1, SP[a1, a1], SP[a3, a4], a2, n] + 
    3*S2[a1, SP[a1, a2], a1, SP[a3, a4], n] + 
    3*S2[a1, SP[a1, a2], SP[a1, a4], a3, n] + 
    2*S2[a1, SP[a1, a4], a1, SP[a2, a3], n] + 
    2*S2[a1, SP[a1, a4], SP[a1, a2], a3, n] + S2[SP[a1, a1], a1, a4, 
     SP[a2, a3], n] + S2[SP[a1, a1], a1, SP[a3, a4], a2, n] + 
    2*S2[SP[a1, a1], a4, a1, SP[a2, a3], n] + 
    2*S2[SP[a1, a1], a4, SP[a1, a2], a3, n] - S2[SP[a1, a1], SP[a1, a3], a4, 
     a2, n] + 2*S2[SP[a1, a1], SP[a1, a4], a2, a3, n] + 
    2*S2[SP[a1, a1], SP[a1, a4], a3, a2, n] + 
    3*S2[SP[a1, a2], a1, a1, SP[a3, a4], n] + 
    3*S2[SP[a1, a2], a1, SP[a1, a4], a3, n] + 
    3*S2[SP[a1, a2], SP[a1, a4], a1, a3, n] - 
    3*S2[a1, a1, a1, a2, SP[a3, a4], n] + 
    3*S2[a2, n]*S2[a1, a1, a1, a3, a4, n] + 
    3*S2[a1, a1, a1, a3, SP[a2, a4], n] + 
    3*S2[a2, n]*S2[a1, a1, a1, a4, a3, n] + 
    3*S2[a1, a1, a1, SP[a2, a4], a3, n] - 
    3*S2[a1, a1, a1, SP[a3, a4], a2, n] - 
    3*S2[a1, a1, a2, a1, SP[a3, a4], n] - 
    3*S2[a1, a1, a2, SP[a1, a4], a3, n] + 
    3*S2[a2, n]*S2[a1, a1, a4, a1, a3, n] - 
    3*S2[a1, a1, SP[a1, a4], a2, a3, n] - 
    3*S2[a1, a1, SP[a1, a4], a3, a2, n] + 
    3*S2[a1, a1, SP[a2, a4], a1, a3, n] - 
    3*S2[a1, a2, a1, a1, SP[a3, a4], n] - 
    3*S2[a1, a2, a1, SP[a1, a4], a3, n] - 
    3*S2[a1, a2, SP[a1, a4], a1, a3, n] + 
    3*S2[a2, n]*S2[a1, a4, a1, a1, a3, n] + S2[a1, a4, a1, a1, SP[a2, a3], 
     n] + S2[a1, a4, a1, SP[a1, a2], a3, n] + S2[a1, a4, SP[a1, a2], a1, a3, 
     n] - S2[a1, SP[a1, a1], a3, a4, a2, n] - S2[a1, SP[a1, a1], a4, a2, a3, 
     n] - S2[a1, SP[a1, a1], a4, a3, a2, n] + S2[a1, SP[a1, a3], a1, a4, a2, 
     n] - 2*S2[a1, SP[a1, a4], a1, a2, a3, n] - 
    2*S2[a1, SP[a1, a4], a1, a3, a2, n] - 
    2*S2[a1, SP[a1, a4], a2, a1, a3, n] + 
    3*S2[a1, SP[a2, a4], a1, a1, a3, n] - 
    3*S2[a2, a1, a1, a1, SP[a3, a4], n] - 
    3*S2[a2, a1, a1, SP[a1, a4], a3, n] - 
    3*S2[a2, a1, SP[a1, a4], a1, a3, n] - 
    3*S2[a2, SP[a1, a4], a1, a1, a3, n] + 
    3*S2[a2, n]*S2[a4, a1, a1, a1, a3, n] + 
    3*S2[a4, a1, a1, a1, SP[a2, a3], n] - 
    S2[a1, n]*S2[a4, a1, a1, a2, a3, n] - S2[a4, a1, a1, a2, SP[a1, a3], n] - 
    S2[a1, n]*S2[a4, a1, a1, a3, a2, n] - S2[a4, a1, a1, a3, SP[a1, a2], n] + 
    2*S2[a4, a1, a1, SP[a1, a2], a3, n] - S2[a4, a1, a1, SP[a1, a3], a2, n] - 
    S2[a1, n]*S2[a4, a1, a2, a1, a3, n] - S2[a4, a1, a2, a1, SP[a1, a3], n] - 
    S2[a4, a1, a2, SP[a1, a1], a3, n] - S2[a4, a1, SP[a1, a1], a2, a3, n] - 
    S2[a4, a1, SP[a1, a1], a3, a2, n] + 2*S2[a4, a1, SP[a1, a2], a1, a3, n] - 
    S2[a1, n]*S2[a4, a2, a1, a1, a3, n] - S2[a4, a2, a1, a1, SP[a1, a3], n] - 
    S2[a4, a2, a1, SP[a1, a1], a3, n] - S2[a4, a2, SP[a1, a1], a1, a3, n] - 
    S2[a4, SP[a1, a1], a1, a2, a3, n] - S2[a4, SP[a1, a1], a1, a3, a2, n] - 
    S2[a4, SP[a1, a1], a2, a1, a3, n] + 2*S2[a4, SP[a1, a2], a1, a1, a3, n] - 
    S2[SP[a1, a1], a1, a3, a4, a2, n] - S2[SP[a1, a1], a1, a4, a2, a3, n] - 
    S2[SP[a1, a1], a1, a4, a3, a2, n] + S2[SP[a1, a1], a3, a1, a4, a2, n] - 
    2*S2[SP[a1, a1], a4, a1, a2, a3, n] - 
    2*S2[SP[a1, a1], a4, a1, a3, a2, n] - 
    2*S2[SP[a1, a1], a4, a2, a1, a3, n] - S2[SP[a1, a4], a1, a1, a2, a3, n] - 
    S2[SP[a1, a4], a1, a1, a3, a2, n] - S2[SP[a1, a4], a1, a2, a1, a3, n] - 
    S2[SP[a1, a4], a2, a1, a1, a3, n] + 3*S2[SP[a2, a4], a1, a1, a1, a3, n] + 
    S2[a4, a1, a1, a2, a3, a1, n] + S2[a4, a1, a1, a3, a1, a2, n] + 
    S2[a4, a1, a1, a3, a2, a1, n] + S2[a4, a1, a2, a1, a3, a1, n] + 
    S2[a4, a2, a1, a1, a3, a1, n] /; 
   MyMemberQ[{{a2, a3, a4}}, {a1, a1, a1, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a1_, a3_, a1_, a2_, a1_, a4_, n_] :> 
  2*S2[a1, a1, a3, n]*S2[a1, a2, a4, n] + 2*S2[a1, a1, a3, n]*
     S2[a1, a4, a2, n] + 2*S2[SP[a1, a1], SP[a1, a2], SP[a3, a4], n] + 
    2*S2[SP[a1, a1], SP[a1, a4], SP[a2, a3], n] - 
    2*S2[a1, a4, n]*S2[a1, a1, a2, a3, n] - 2*S2[a1, a4, n]*
     S2[a1, a1, a3, a2, n] - 2*S2[a1, a1, SP[a1, a2], SP[a3, a4], n] + 
    2*S2[a1, a1, SP[a1, a3], SP[a2, a4], n] - 
    4*S2[a1, a1, SP[a1, a4], SP[a2, a3], n] - 
    S2[a1, a4, n]*S2[a1, a2, a1, a3, n] + S2[a1, a3, n]*
     S2[a1, a2, a1, a4, n] + 2*S2[a1, SP[a1, a1], a3, SP[a2, a4], n] - 
    2*S2[a1, SP[a1, a1], a4, SP[a2, a3], n] - 
    2*S2[a1, SP[a1, a1], SP[a2, a3], a4, n] + 
    2*S2[a1, SP[a1, a1], SP[a2, a4], a3, n] - 
    2*S2[a1, SP[a1, a2], a1, SP[a3, a4], n] - S2[a1, SP[a1, a2], SP[a1, a3], 
     a4, n] - S2[a1, SP[a1, a2], SP[a1, a4], a3, n] - 
    2*S2[a1, SP[a1, a4], a1, SP[a2, a3], n] - 
    2*S2[a1, SP[a1, a4], SP[a1, a2], a3, n] + 
    2*S2[SP[a1, a1], a1, a3, SP[a2, a4], n] - 
    2*S2[SP[a1, a1], a1, a4, SP[a2, a3], n] - 
    2*S2[SP[a1, a1], a1, SP[a2, a3], a4, n] + 
    2*S2[SP[a1, a1], a1, SP[a2, a4], a3, n] - 
    2*S2[SP[a1, a1], a2, a1, SP[a3, a4], n] - S2[SP[a1, a1], a2, SP[a1, a3], 
     a4, n] - S2[SP[a1, a1], a2, SP[a1, a4], a3, n] - 
    2*S2[SP[a1, a1], a4, a1, SP[a2, a3], n] - 
    2*S2[SP[a1, a1], a4, SP[a1, a2], a3, n] - 
    2*S2[SP[a1, a1], SP[a1, a2], a3, a4, n] - 
    2*S2[SP[a1, a1], SP[a1, a2], a4, a3, n] - S2[SP[a1, a1], SP[a2, a3], a1, 
     a4, n] + S2[SP[a1, a1], SP[a2, a4], a1, a3, n] - 
    6*S2[a1, a1, a1, a3, SP[a2, a4], n] + 
    6*S2[a1, a1, a1, a4, SP[a2, a3], n] + 
    6*S2[a1, a1, a1, SP[a2, a3], a4, n] - 
    6*S2[a1, a1, a1, SP[a2, a4], a3, n] - 
    2*S2[a4, n]*S2[a1, a1, a2, a1, a3, n] - 
    2*S2[a1, a1, a3, a1, SP[a2, a4], n] - 
    2*S2[a1, a1, a3, SP[a1, a2], a4, n] + 
    4*S2[a1, a1, a4, a1, SP[a2, a3], n] + 
    4*S2[a1, a1, a4, SP[a1, a2], a3, n] + 
    2*S2[a1, a1, SP[a1, a2], a3, a4, n] + 
    2*S2[a1, a1, SP[a1, a2], a4, a3, n] + 
    2*S2[a1, a1, SP[a2, a3], a1, a4, n] - 
    4*S2[a1, a1, SP[a2, a4], a1, a3, n] - 
    2*S2[a4, n]*S2[a1, a2, a1, a1, a3, n] + 
    2*S2[a1, a4, a1, a1, SP[a2, a3], n] + 
    2*S2[a1, a4, a1, SP[a1, a2], a3, n] + 
    2*S2[a1, a4, SP[a1, a2], a1, a3, n] + 
    2*S2[a1, SP[a1, a2], a1, a3, a4, n] + 
    2*S2[a1, SP[a1, a2], a1, a4, a3, n] + S2[a1, SP[a1, a2], a3, a1, a4, n] + 
    S2[a1, SP[a1, a2], a4, a1, a3, n] + S2[a1, SP[a1, a3], a2, a1, a4, n] - 
    S2[a1, SP[a1, a4], a2, a1, a3, n] - 2*S2[a1, SP[a2, a4], a1, a1, a3, n] + 
    S2[a1, n]*S2[a4, a1, a2, a1, a3, n] + S2[a4, a1, a2, a1, SP[a1, a3], n] + 
    S2[a4, a1, a2, SP[a1, a1], a3, n] + S2[a4, a1, SP[a1, a2], a1, a3, n] + 
    S2[a4, SP[a1, a1], a2, a1, a3, n] + 2*S2[SP[a1, a1], a2, a1, a3, a4, n] + 
    2*S2[SP[a1, a1], a2, a1, a4, a3, n] + S2[SP[a1, a1], a2, a3, a1, a4, n] + 
    S2[SP[a1, a1], a2, a4, a1, a3, n] + S2[SP[a1, a1], a3, a2, a1, a4, n] + 
    S2[SP[a1, a1], a4, a2, a1, a3, n] - S2[SP[a1, a4], a1, a2, a1, a3, n] - 
    2*S2[SP[a1, a4], a2, a1, a1, a3, n] - S2[a4, a1, a2, a1, a3, a1, n] /; 
   MyMemberQ[{{a2, a3, a4}}, {a1, a1, a1, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a1_, a3_, a1_, a2_, a4_, a1_, n_] :> 
  -2*S2[a1, a1, a3, n]*S2[a1, a4, a2, n] - 
    2*S2[SP[a1, a1], SP[a1, a4], SP[a2, a3], n] + 
    2*S2[a1, a4, n]*S2[a1, a1, a2, a3, n] - 2*S2[a1, a3, n]*
     S2[a1, a1, a2, a4, n] + 2*S2[a1, a4, n]*S2[a1, a1, a3, a2, n] - 
    2*S2[a1, a1, SP[a1, a3], SP[a2, a4], n] + 
    4*S2[a1, a1, SP[a1, a4], SP[a2, a3], n] + 
    S2[a1, a4, n]*S2[a1, a2, a1, a3, n] - S2[a1, a3, n]*
     S2[a1, a2, a1, a4, n] - 2*S2[a1, SP[a1, a1], a3, SP[a2, a4], n] + 
    2*S2[a1, SP[a1, a1], a4, SP[a2, a3], n] + 
    2*S2[a1, SP[a1, a1], SP[a2, a3], a4, n] - 
    2*S2[a1, SP[a1, a1], SP[a2, a4], a3, n] + S2[a1, SP[a1, a2], SP[a1, a3], 
     a4, n] - S2[a1, SP[a1, a2], SP[a1, a4], a3, n] + 
    2*S2[a1, SP[a1, a4], a1, SP[a2, a3], n] + 
    2*S2[a1, SP[a1, a4], SP[a1, a2], a3, n] - 
    2*S2[SP[a1, a1], a1, a3, SP[a2, a4], n] + 
    2*S2[SP[a1, a1], a1, a4, SP[a2, a3], n] + 
    2*S2[SP[a1, a1], a1, SP[a2, a3], a4, n] - 
    2*S2[SP[a1, a1], a1, SP[a2, a4], a3, n] + S2[SP[a1, a1], a2, SP[a1, a3], 
     a4, n] - S2[SP[a1, a1], a2, SP[a1, a4], a3, n] + 
    2*S2[SP[a1, a1], a4, a1, SP[a2, a3], n] + 
    2*S2[SP[a1, a1], a4, SP[a1, a2], a3, n] + 
    2*S2[SP[a1, a1], SP[a1, a3], a2, a4, n] + S2[SP[a1, a1], SP[a2, a3], a1, 
     a4, n] - S2[SP[a1, a1], SP[a2, a4], a1, a3, n] + 
    6*S2[a1, a1, a1, a3, SP[a2, a4], n] - 
    6*S2[a1, a1, a1, a4, SP[a2, a3], n] - 
    6*S2[a1, a1, a1, SP[a2, a3], a4, n] + 
    6*S2[a1, a1, a1, SP[a2, a4], a3, n] + 
    2*S2[a1, a1, a3, a1, SP[a2, a4], n] + 
    2*S2[a1, a1, a3, SP[a1, a2], a4, n] - 
    4*S2[a1, a1, a4, a1, SP[a2, a3], n] - 
    4*S2[a1, a1, a4, SP[a1, a2], a3, n] - 
    2*S2[a1, a1, SP[a1, a3], a2, a4, n] - 
    2*S2[a1, a1, SP[a2, a3], a1, a4, n] + 
    2*S2[a1, a1, SP[a2, a4], a1, a3, n] + 
    S2[a1, n]*S2[a1, a3, a1, a2, a4, n] + S2[a1, a3, a1, a2, SP[a1, a4], n] + 
    S2[a1, a3, a1, SP[a1, a2], a4, n] + S2[a1, a3, SP[a1, a1], a2, a4, n] - 
    2*S2[a1, a4, a1, a1, SP[a2, a3], n] - 
    2*S2[a1, a4, a1, SP[a1, a2], a3, n] + 
    S2[a1, n]*S2[a1, a4, a2, a1, a3, n] + S2[a1, a4, a2, a1, SP[a1, a3], n] + 
    S2[a1, a4, a2, SP[a1, a1], a3, n] - S2[a1, a4, SP[a1, a2], a1, a3, n] - 
    S2[a1, SP[a1, a2], a3, a1, a4, n] + S2[a1, SP[a1, a2], a4, a1, a3, n] - 
    S2[a1, SP[a1, a3], a1, a2, a4, n] - S2[a1, SP[a1, a3], a2, a1, a4, n] - 
    S2[a1, n]*S2[a4, a2, a1, a3, a1, n] - S2[a4, a2, a1, a3, SP[a1, a1], n] - 
    S2[a4, a2, a1, SP[a1, a3], a1, n] - S2[a4, a2, SP[a1, a1], a3, a1, n] - 
    S2[a4, SP[a1, a2], a1, a3, a1, n] - S2[SP[a1, a1], a2, a3, a1, a4, n] + 
    S2[SP[a1, a1], a2, a4, a1, a3, n] - S2[SP[a1, a1], a3, a1, a2, a4, n] - 
    S2[SP[a1, a1], a3, a2, a1, a4, n] - S2[SP[a1, a4], a2, a1, a3, a1, n] + 
    S2[a4, a1, a2, a1, a3, a1, n] + 2*S2[a4, a2, a1, a1, a3, a1, n] + 
    2*S2[a4, a2, a1, a3, a1, a1, n] /; 
   MyMemberQ[{{a2, a3, a4}}, {a1, a1, a1, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a1_, a3_, a1_, a4_, a1_, a2_, n_] :> 
  2*S2[a1, a1, a3, n]*S2[a1, a2, a4, n] + 2*S2[a1, a1, a3, n]*
     S2[a1, a4, a2, n] + 2*S2[SP[a1, a1], SP[a1, a2], SP[a3, a4], n] + 
    2*S2[SP[a1, a1], SP[a1, a4], SP[a2, a3], n] - 
    2*S2[a1, a3, n]*S2[a1, a1, a2, a4, n] + 2*S2[a1, a2, n]*
     S2[a1, a1, a3, a4, n] - 2*S2[a1, a3, n]*S2[a1, a1, a4, a2, n] + 
    2*S2[a1, a2, n]*S2[a1, a1, a4, a3, n] - 
    2*S2[a1, a1, SP[a1, a2], SP[a3, a4], n] - 
    2*S2[a1, a1, SP[a1, a3], SP[a2, a4], n] - 
    4*S2[a1, a1, SP[a1, a4], SP[a2, a3], n] - 
    S2[a1, a3, n]*S2[a1, a2, a1, a4, n] + S2[a1, a2, SP[a1, a1], SP[a3, a4], 
     n] + S2[a1, a2, n]*S2[a1, a3, a1, a4, n] - S2[a1, a3, SP[a1, a1], 
     SP[a2, a4], n] + S2[a1, a2, n]*S2[a1, a4, a1, a3, n] - 
    S2[a1, a4, SP[a1, a1], SP[a2, a3], n] - 
    2*S2[a1, SP[a1, a1], a3, SP[a2, a4], n] - 
    2*S2[a1, SP[a1, a1], a4, SP[a2, a3], n] - 
    2*S2[a1, SP[a1, a1], SP[a2, a3], a4, n] - 
    2*S2[a1, SP[a1, a1], SP[a2, a4], a3, n] - S2[a1, SP[a1, a2], a1, 
     SP[a3, a4], n] + S2[a1, SP[a1, a2], SP[a1, a3], a4, n] - 
    2*S2[a1, SP[a1, a2], SP[a1, a4], a3, n] - S2[a1, SP[a1, a3], a1, 
     SP[a2, a4], n] - S2[a1, SP[a1, a3], SP[a1, a2], a4, n] - 
    3*S2[a1, SP[a1, a4], a1, SP[a2, a3], n] - 
    3*S2[a1, SP[a1, a4], SP[a1, a2], a3, n] - 
    2*S2[SP[a1, a1], a1, a3, SP[a2, a4], n] - 
    2*S2[SP[a1, a1], a1, a4, SP[a2, a3], n] - 
    2*S2[SP[a1, a1], a1, SP[a2, a3], a4, n] - 
    2*S2[SP[a1, a1], a1, SP[a2, a4], a3, n] - S2[SP[a1, a1], a2, a1, 
     SP[a3, a4], n] + S2[SP[a1, a1], a2, SP[a1, a3], a4, n] - 
    2*S2[SP[a1, a1], a2, SP[a1, a4], a3, n] - S2[SP[a1, a1], a3, a1, 
     SP[a2, a4], n] - S2[SP[a1, a1], a3, SP[a1, a2], a4, n] - 
    3*S2[SP[a1, a1], a4, a1, SP[a2, a3], n] - 
    3*S2[SP[a1, a1], a4, SP[a1, a2], a3, n] - 
    4*S2[SP[a1, a1], SP[a1, a2], a3, a4, n] - 
    4*S2[SP[a1, a1], SP[a1, a2], a4, a3, n] + 
    2*S2[SP[a1, a1], SP[a1, a3], a2, a4, n] + 
    2*S2[SP[a1, a1], SP[a1, a3], a4, a2, n] - 
    2*S2[SP[a1, a1], SP[a1, a4], a2, a3, n] - 
    2*S2[SP[a1, a1], SP[a1, a4], a3, a2, n] - S2[SP[a1, a1], SP[a2, a4], a1, 
     a3, n] - 6*S2[a4, n]*S2[a1, a1, a1, a2, a3, n] - 
    6*S2[a1, a1, a1, a2, SP[a3, a4], n] - 
    6*S2[a4, n]*S2[a1, a1, a1, a3, a2, n] + 
    6*S2[a1, a1, a1, a4, SP[a2, a3], n] + 
    6*S2[a1, a1, a1, SP[a2, a3], a4, n] - 
    6*S2[a1, a1, a1, SP[a3, a4], a2, n] - 
    4*S2[a4, n]*S2[a1, a1, a2, a1, a3, n] - 
    4*S2[a1, a1, a2, a1, SP[a3, a4], n] - 
    2*S2[a1, a1, a2, SP[a1, a3], a4, n] - 
    2*S2[a1, a1, a2, SP[a1, a4], a3, n] - 
    2*S2[a4, n]*S2[a1, a1, a3, a1, a2, n] + 
    2*S2[a1, a1, a3, a1, SP[a2, a4], n] + 
    2*S2[a1, a1, a3, SP[a1, a2], a4, n] + 
    6*S2[a1, a1, a4, a1, SP[a2, a3], n] + 
    4*S2[a1, a1, a4, SP[a1, a2], a3, n] + 
    2*S2[a1, a1, a4, SP[a1, a3], a2, n] + 
    6*S2[a1, a1, SP[a1, a2], a3, a4, n] + 
    6*S2[a1, a1, SP[a1, a2], a4, a3, n] - 
    2*S2[a1, a1, SP[a1, a4], a2, a3, n] - 
    2*S2[a1, a1, SP[a1, a4], a3, a2, n] - 
    2*S2[a1, a1, SP[a2, a4], a1, a3, n] - 
    2*S2[a1, a1, SP[a3, a4], a1, a2, n] - 
    2*S2[a4, n]*S2[a1, a2, a1, a1, a3, n] - 
    2*S2[a1, a2, a1, a1, SP[a3, a4], n] - S2[a1, a2, a1, SP[a1, a3], a4, n] - 
    S2[a1, a2, a1, SP[a1, a4], a3, n] - S2[a1, a2, SP[a1, a1], a3, a4, n] - 
    S2[a1, a2, SP[a1, a1], a4, a3, n] + 2*S2[a1, a3, a1, a1, SP[a2, a4], n] + 
    S2[a1, a3, a1, SP[a1, a2], a4, n] + S2[a1, a3, a1, SP[a1, a4], a2, n] + 
    S2[a1, a3, SP[a1, a1], a2, a4, n] + S2[a1, a3, SP[a1, a1], a4, a2, n] + 
    4*S2[a1, a4, a1, a1, SP[a2, a3], n] + 
    3*S2[a1, a4, a1, SP[a1, a2], a3, n] + S2[a1, a4, a1, SP[a1, a3], a2, n] + 
    S2[a1, a4, SP[a1, a1], a2, a3, n] + S2[a1, a4, SP[a1, a1], a3, a2, n] + 
    2*S2[a1, a4, SP[a1, a2], a1, a3, n] + 
    2*S2[a1, SP[a1, a1], a2, a3, a4, n] + 
    2*S2[a1, SP[a1, a1], a2, a4, a3, n] + 
    2*S2[a1, SP[a1, a1], a3, a2, a4, n] + 
    2*S2[a1, SP[a1, a1], a3, a4, a2, n] + 
    2*S2[a1, SP[a1, a1], a4, a2, a3, n] + 
    2*S2[a1, SP[a1, a1], a4, a3, a2, n] + 
    3*S2[a1, SP[a1, a2], a1, a3, a4, n] + 
    3*S2[a1, SP[a1, a2], a1, a4, a3, n] + 
    3*S2[a1, SP[a1, a2], a4, a1, a3, n] - S2[a1, SP[a1, a3], a1, a2, a4, n] - 
    S2[a1, SP[a1, a3], a1, a4, a2, n] - 3*S2[a1, SP[a1, a4], a1, a2, a3, n] - 
    3*S2[a1, SP[a1, a4], a1, a3, a2, n] - S2[a1, SP[a1, a4], a2, a1, a3, n] - 
    2*S2[a1, SP[a1, a4], a3, a1, a2, n] - 
    2*S2[a1, SP[a2, a4], a1, a1, a3, n] + 
    2*S2[a1, n]*S2[a4, a1, a1, a2, a3, n] + 
    2*S2[a4, a1, a1, a2, SP[a1, a3], n] + 
    2*S2[a1, n]*S2[a4, a1, a1, a3, a2, n] + 
    2*S2[a4, a1, a1, a3, SP[a1, a2], n] + 
    2*S2[a4, a1, a1, SP[a1, a2], a3, n] + 
    2*S2[a4, a1, a1, SP[a1, a3], a2, n] + 
    S2[a1, n]*S2[a4, a1, a2, a1, a3, n] + S2[a4, a1, a2, a1, SP[a1, a3], n] + 
    S2[a4, a1, a2, SP[a1, a1], a3, n] + S2[a1, n]*S2[a4, a1, a3, a1, a2, n] + 
    S2[a4, a1, a3, a1, SP[a1, a2], n] + S2[a4, a1, a3, SP[a1, a1], a2, n] + 
    2*S2[a4, a1, SP[a1, a1], a2, a3, n] + 
    2*S2[a4, a1, SP[a1, a1], a3, a2, n] + S2[a4, a1, SP[a1, a2], a1, a3, n] + 
    S2[a4, a1, SP[a1, a3], a1, a2, n] + 2*S2[a4, SP[a1, a1], a1, a2, a3, n] + 
    2*S2[a4, SP[a1, a1], a1, a3, a2, n] + S2[a4, SP[a1, a1], a2, a1, a3, n] + 
    S2[a4, SP[a1, a1], a3, a1, a2, n] + 2*S2[SP[a1, a1], a1, a2, a3, a4, n] + 
    2*S2[SP[a1, a1], a1, a2, a4, a3, n] + 
    2*S2[SP[a1, a1], a1, a3, a2, a4, n] + 
    2*S2[SP[a1, a1], a1, a3, a4, a2, n] + 
    2*S2[SP[a1, a1], a1, a4, a2, a3, n] + 
    2*S2[SP[a1, a1], a1, a4, a3, a2, n] + 
    3*S2[SP[a1, a1], a2, a1, a3, a4, n] + 
    3*S2[SP[a1, a1], a2, a1, a4, a3, n] + 
    3*S2[SP[a1, a1], a2, a4, a1, a3, n] - S2[SP[a1, a1], a3, a1, a2, a4, n] - 
    S2[SP[a1, a1], a3, a1, a4, a2, n] + 3*S2[SP[a1, a1], a4, a1, a2, a3, n] + 
    3*S2[SP[a1, a1], a4, a1, a3, a2, n] + 
    3*S2[SP[a1, a1], a4, a2, a1, a3, n] - 
    4*S2[SP[a1, a4], a1, a1, a2, a3, n] - 
    4*S2[SP[a1, a4], a1, a1, a3, a2, n] - 
    3*S2[SP[a1, a4], a1, a2, a1, a3, n] - S2[SP[a1, a4], a1, a3, a1, a2, n] - 
    2*S2[SP[a1, a4], a2, a1, a1, a3, n] - 2*S2[a4, a1, a1, a2, a3, a1, n] - 
    2*S2[a4, a1, a1, a3, a1, a2, n] - 2*S2[a4, a1, a1, a3, a2, a1, n] - 
    S2[a4, a1, a2, a1, a3, a1, n] - 2*S2[a4, a1, a3, a1, a1, a2, n] - 
    S2[a4, a1, a3, a1, a2, a1, n] /; 
   MyMemberQ[{{a2, a3, a4}}, {a1, a1, a1, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a1_, a3_, a1_, a4_, a2_, a1_, n_] :> 
  -2*S2[a1, a1, a3, n]*S2[a1, a2, a4, n] - 
    2*S2[SP[a1, a1], SP[a1, a2], SP[a3, a4], n] + 
    2*S2[a1, a3, n]*S2[a1, a1, a2, a4, n] - 2*S2[a1, a2, n]*
     S2[a1, a1, a3, a4, n] - 2*S2[a1, a2, n]*S2[a1, a1, a4, a3, n] + 
    2*S2[a1, a1, SP[a1, a2], SP[a3, a4], n] + 
    2*S2[a1, a1, SP[a1, a3], SP[a2, a4], n] + 
    2*S2[a1, a1, SP[a1, a4], SP[a2, a3], n] + 
    S2[a1, a3, n]*S2[a1, a2, a1, a4, n] - S2[a1, a2, SP[a1, a1], SP[a3, a4], 
     n] - S2[a1, a2, n]*S2[a1, a3, a1, a4, n] + S2[a1, a3, SP[a1, a1], 
     SP[a2, a4], n] - S2[a1, a2, n]*S2[a1, a4, a1, a3, n] + 
    S2[a1, a4, SP[a1, a1], SP[a2, a3], n] + 
    2*S2[a1, SP[a1, a1], a3, SP[a2, a4], n] + 
    2*S2[a1, SP[a1, a1], a4, SP[a2, a3], n] + 
    2*S2[a1, SP[a1, a1], SP[a2, a3], a4, n] + 
    2*S2[a1, SP[a1, a1], SP[a2, a4], a3, n] + S2[a1, SP[a1, a2], a1, 
     SP[a3, a4], n] - S2[a1, SP[a1, a2], SP[a1, a3], a4, n] + 
    2*S2[a1, SP[a1, a2], SP[a1, a4], a3, n] + S2[a1, SP[a1, a3], a1, 
     SP[a2, a4], n] + S2[a1, SP[a1, a3], SP[a1, a2], a4, n] + 
    S2[a1, SP[a1, a4], a1, SP[a2, a3], n] + S2[a1, SP[a1, a4], SP[a1, a2], 
     a3, n] + 2*S2[SP[a1, a1], a1, a3, SP[a2, a4], n] + 
    2*S2[SP[a1, a1], a1, a4, SP[a2, a3], n] + 
    2*S2[SP[a1, a1], a1, SP[a2, a3], a4, n] + 
    2*S2[SP[a1, a1], a1, SP[a2, a4], a3, n] + S2[SP[a1, a1], a2, a1, 
     SP[a3, a4], n] - S2[SP[a1, a1], a2, SP[a1, a3], a4, n] + 
    2*S2[SP[a1, a1], a2, SP[a1, a4], a3, n] + S2[SP[a1, a1], a3, a1, 
     SP[a2, a4], n] + S2[SP[a1, a1], a3, SP[a1, a2], a4, n] + 
    S2[SP[a1, a1], a4, a1, SP[a2, a3], n] + S2[SP[a1, a1], a4, SP[a1, a2], 
     a3, n] + 4*S2[SP[a1, a1], SP[a1, a2], a3, a4, n] + 
    4*S2[SP[a1, a1], SP[a1, a2], a4, a3, n] - 
    2*S2[SP[a1, a1], SP[a1, a3], a2, a4, n] + S2[SP[a1, a1], SP[a2, a4], a1, 
     a3, n] + 6*S2[a4, n]*S2[a1, a1, a1, a2, a3, n] + 
    6*S2[a1, a1, a1, a2, SP[a3, a4], n] + 
    6*S2[a4, n]*S2[a1, a1, a1, a3, a2, n] - 
    6*S2[a1, a1, a1, a4, SP[a2, a3], n] - 
    6*S2[a1, a1, a1, SP[a2, a3], a4, n] + 
    6*S2[a1, a1, a1, SP[a3, a4], a2, n] + 
    4*S2[a4, n]*S2[a1, a1, a2, a1, a3, n] + 
    4*S2[a1, a1, a2, a1, SP[a3, a4], n] + 
    2*S2[a1, a1, a2, SP[a1, a3], a4, n] + 
    2*S2[a1, a1, a2, SP[a1, a4], a3, n] + 
    2*S2[a4, n]*S2[a1, a1, a3, a1, a2, n] - 
    2*S2[a1, a1, a3, a1, SP[a2, a4], n] - 
    2*S2[a1, a1, a3, SP[a1, a2], a4, n] - 
    4*S2[a1, a1, a4, a1, SP[a2, a3], n] - 
    2*S2[a1, a1, a4, SP[a1, a2], a3, n] - 
    2*S2[a1, a1, a4, SP[a1, a3], a2, n] - 
    6*S2[a1, a1, SP[a1, a2], a3, a4, n] - 
    6*S2[a1, a1, SP[a1, a2], a4, a3, n] - 
    2*S2[a1, a1, SP[a1, a3], a4, a2, n] + 
    4*S2[a1, a1, SP[a1, a4], a2, a3, n] + 
    4*S2[a1, a1, SP[a1, a4], a3, a2, n] + 
    2*S2[a1, a1, SP[a2, a4], a1, a3, n] + 
    2*S2[a1, a1, SP[a3, a4], a1, a2, n] + 
    2*S2[a4, n]*S2[a1, a2, a1, a1, a3, n] + 
    2*S2[a1, a2, a1, a1, SP[a3, a4], n] + S2[a1, a2, a1, SP[a1, a3], a4, n] + 
    S2[a1, a2, a1, SP[a1, a4], a3, n] + S2[a1, a2, SP[a1, a1], a3, a4, n] + 
    S2[a1, a2, SP[a1, a1], a4, a3, n] - 2*S2[a1, a3, a1, a1, SP[a2, a4], n] + 
    S2[a1, n]*S2[a1, a3, a1, a4, a2, n] + S2[a1, a3, a1, a4, SP[a1, a2], n] - 
    S2[a1, a3, a1, SP[a1, a2], a4, n] - S2[a1, a3, SP[a1, a1], a2, a4, n] - 
    2*S2[a1, a4, a1, a1, SP[a2, a3], n] - 
    S2[a1, n]*S2[a1, a4, a1, a2, a3, n] - S2[a1, a4, a1, a2, SP[a1, a3], n] - 
    S2[a1, n]*S2[a1, a4, a1, a3, a2, n] - S2[a1, a4, a1, a3, SP[a1, a2], n] - 
    2*S2[a1, a4, a1, SP[a1, a2], a3, n] - 
    2*S2[a1, a4, a1, SP[a1, a3], a2, n] - 
    S2[a1, n]*S2[a1, a4, a2, a1, a3, n] - S2[a1, a4, a2, a1, SP[a1, a3], n] - 
    S2[a1, a4, a2, SP[a1, a1], a3, n] - 2*S2[a1, a4, SP[a1, a1], a2, a3, n] - 
    2*S2[a1, a4, SP[a1, a1], a3, a2, n] - S2[a1, a4, SP[a1, a2], a1, a3, n] - 
    2*S2[a1, SP[a1, a1], a2, a3, a4, n] - 
    2*S2[a1, SP[a1, a1], a2, a4, a3, n] - 
    2*S2[a1, SP[a1, a1], a3, a2, a4, n] - 
    2*S2[a1, SP[a1, a1], a3, a4, a2, n] - 
    2*S2[a1, SP[a1, a1], a4, a2, a3, n] - 
    2*S2[a1, SP[a1, a1], a4, a3, a2, n] - 
    3*S2[a1, SP[a1, a2], a1, a3, a4, n] - 
    3*S2[a1, SP[a1, a2], a1, a4, a3, n] - 
    3*S2[a1, SP[a1, a2], a4, a1, a3, n] + S2[a1, SP[a1, a3], a1, a2, a4, n] + 
    4*S2[a1, SP[a1, a4], a1, a2, a3, n] + 
    4*S2[a1, SP[a1, a4], a1, a3, a2, n] + 
    2*S2[a1, SP[a1, a4], a2, a1, a3, n] + 
    2*S2[a1, SP[a1, a4], a3, a1, a2, n] + 
    2*S2[a1, SP[a2, a4], a1, a1, a3, n] - 
    2*S2[a1, n]*S2[a4, a1, a1, a2, a3, n] - 
    2*S2[a4, a1, a1, a2, SP[a1, a3], n] - 
    2*S2[a1, n]*S2[a4, a1, a1, a3, a2, n] - 
    2*S2[a4, a1, a1, a3, SP[a1, a2], n] - 
    2*S2[a4, a1, a1, SP[a1, a2], a3, n] - 
    2*S2[a4, a1, a1, SP[a1, a3], a2, n] - 
    S2[a1, n]*S2[a4, a1, a2, a1, a3, n] - S2[a4, a1, a2, a1, SP[a1, a3], n] + 
    S2[a1, n]*S2[a4, a1, a2, a3, a1, n] + S2[a4, a1, a2, a3, SP[a1, a1], n] - 
    S2[a4, a1, a2, SP[a1, a1], a3, n] + S2[a4, a1, a2, SP[a1, a3], a1, n] + 
    S2[a1, n]*S2[a4, a1, a3, a2, a1, n] + S2[a4, a1, a3, a2, SP[a1, a1], n] + 
    S2[a4, a1, a3, SP[a1, a2], a1, n] - 2*S2[a4, a1, SP[a1, a1], a2, a3, n] - 
    2*S2[a4, a1, SP[a1, a1], a3, a2, n] - S2[a4, a1, SP[a1, a2], a1, a3, n] + 
    S2[a4, a1, SP[a1, a2], a3, a1, n] + S2[a4, a1, SP[a1, a3], a2, a1, n] + 
    S2[a1, n]*S2[a4, a2, a1, a3, a1, n] + S2[a4, a2, a1, a3, SP[a1, a1], n] + 
    S2[a4, a2, a1, SP[a1, a3], a1, n] + S2[a4, a2, SP[a1, a1], a3, a1, n] - 
    2*S2[a4, SP[a1, a1], a1, a2, a3, n] - 
    2*S2[a4, SP[a1, a1], a1, a3, a2, n] - S2[a4, SP[a1, a1], a2, a1, a3, n] + 
    S2[a4, SP[a1, a1], a2, a3, a1, n] + S2[a4, SP[a1, a1], a3, a2, a1, n] + 
    S2[a4, SP[a1, a2], a1, a3, a1, n] - 2*S2[SP[a1, a1], a1, a2, a3, a4, n] - 
    2*S2[SP[a1, a1], a1, a2, a4, a3, n] - 
    2*S2[SP[a1, a1], a1, a3, a2, a4, n] - 
    2*S2[SP[a1, a1], a1, a3, a4, a2, n] - 
    2*S2[SP[a1, a1], a1, a4, a2, a3, n] - 
    2*S2[SP[a1, a1], a1, a4, a3, a2, n] - 
    3*S2[SP[a1, a1], a2, a1, a3, a4, n] - 
    3*S2[SP[a1, a1], a2, a1, a4, a3, n] - 
    3*S2[SP[a1, a1], a2, a4, a1, a3, n] + S2[SP[a1, a1], a3, a1, a2, a4, n] - 
    2*S2[SP[a1, a1], a4, a1, a2, a3, n] - 
    2*S2[SP[a1, a1], a4, a1, a3, a2, n] - 
    2*S2[SP[a1, a1], a4, a2, a1, a3, n] + 
    4*S2[SP[a1, a4], a1, a1, a2, a3, n] + 
    4*S2[SP[a1, a4], a1, a1, a3, a2, n] + 
    3*S2[SP[a1, a4], a1, a2, a1, a3, n] + S2[SP[a1, a4], a1, a2, a3, a1, n] + 
    2*S2[SP[a1, a4], a1, a3, a1, a2, n] + S2[SP[a1, a4], a1, a3, a2, a1, n] + 
    2*S2[SP[a1, a4], a2, a1, a1, a3, n] + S2[SP[a1, a4], a2, a1, a3, a1, n] - 
    S2[a4, a1, a2, a1, a3, a1, n] - 2*S2[a4, a1, a2, a3, a1, a1, n] - 
    S2[a4, a1, a3, a1, a2, a1, n] - 2*S2[a4, a1, a3, a2, a1, a1, n] - 
    2*S2[a4, a2, a1, a1, a3, a1, n] - 2*S2[a4, a2, a1, a3, a1, a1, n] /; 
   MyMemberQ[{{a2, a3, a4}}, {a1, a1, a1, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a1_, a3_, a2_, a1_, a1_, a4_, n_] :> 
  S2[a1, a1, a4, n]*S2[a1, a3, a2, n] + S2[SP[a1, a1], SP[a1, a3], 
     SP[a2, a4], n] + 2*S2[a1, a4, n]*S2[a1, a1, a2, a3, n] - 
    S2[a1, a3, n]*S2[a1, a1, a2, a4, n] - S2[a1, a3, n]*
     S2[a1, a1, a4, a2, n] - S2[a1, a1, SP[a1, a2], SP[a3, a4], n] - 
    2*S2[a1, a1, SP[a1, a3], SP[a2, a4], n] + S2[a1, a1, SP[a1, a4], 
     SP[a2, a3], n] + S2[a1, a4, n]*S2[a1, a2, a1, a3, n] - 
    S2[a1, a3, n]*S2[a1, a2, a1, a4, n] - S2[a1, SP[a1, a1], a2, SP[a3, a4], 
     n] - S2[a1, SP[a1, a1], a3, SP[a2, a4], n] + S2[a1, SP[a1, a1], a4, 
     SP[a2, a3], n] + S2[a1, SP[a1, a1], SP[a2, a3], a4, n] - 
    2*S2[a1, SP[a1, a1], SP[a2, a4], a3, n] + S2[a1, SP[a1, a2], SP[a1, a3], 
     a4, n] - S2[a1, SP[a1, a2], SP[a1, a4], a3, n] - 
    S2[a1, SP[a1, a3], a1, SP[a2, a4], n] - S2[a1, SP[a1, a3], SP[a1, a2], 
     a4, n] - S2[SP[a1, a1], a1, a2, SP[a3, a4], n] - 
    S2[SP[a1, a1], a1, a3, SP[a2, a4], n] + S2[SP[a1, a1], a1, a4, 
     SP[a2, a3], n] + S2[SP[a1, a1], a1, SP[a2, a3], a4, n] - 
    2*S2[SP[a1, a1], a1, SP[a2, a4], a3, n] + S2[SP[a1, a1], a2, SP[a1, a3], 
     a4, n] - S2[SP[a1, a1], a2, SP[a1, a4], a3, n] - 
    S2[SP[a1, a1], a3, a1, SP[a2, a4], n] - S2[SP[a1, a1], a3, SP[a1, a2], 
     a4, n] - 2*S2[SP[a1, a1], SP[a1, a4], a2, a3, n] + 
    S2[SP[a1, a1], SP[a2, a3], a1, a4, n] - S2[SP[a1, a1], SP[a2, a4], a1, 
     a3, n] - 3*S2[a4, n]*S2[a1, a1, a1, a2, a3, n] + 
    3*S2[a1, a1, a1, a3, SP[a2, a4], n] - 
    3*S2[a1, a1, a1, a4, SP[a2, a3], n] - 
    3*S2[a1, a1, a1, SP[a2, a3], a4, n] + 
    3*S2[a1, a1, a1, SP[a2, a4], a3, n] - 
    S2[a4, n]*S2[a1, a1, a2, a1, a3, n] + 
    2*S2[a1, a1, a3, a1, SP[a2, a4], n] + 
    2*S2[a1, a1, a3, SP[a1, a2], a4, n] - S2[a1, a1, a4, a1, SP[a2, a3], n] - 
    S2[a1, a1, a4, SP[a1, a2], a3, n] + S2[a1, a1, SP[a1, a2], a3, a4, n] + 
    S2[a1, a1, SP[a1, a2], a4, a3, n] - 2*S2[a1, a1, SP[a2, a3], a1, a4, n] + 
    S2[a1, a1, SP[a2, a4], a1, a3, n] + S2[a1, a3, a1, a1, SP[a2, a4], n] + 
    S2[a1, a3, a1, SP[a1, a2], a4, n] + S2[a1, a3, SP[a1, a2], a1, a4, n] + 
    S2[a1, SP[a1, a1], a2, a3, a4, n] + S2[a1, SP[a1, a1], a2, a4, a3, n] + 
    S2[a1, SP[a1, a1], a4, a2, a3, n] - S2[a1, SP[a1, a2], a3, a1, a4, n] + 
    S2[a1, SP[a1, a2], a4, a1, a3, n] - S2[a1, SP[a1, a4], a1, a2, a3, n] + 
    S2[a1, n]*S2[a4, a1, a1, a2, a3, n] + S2[a4, a1, a1, a2, SP[a1, a3], n] + 
    S2[a4, a1, a1, SP[a1, a2], a3, n] + S2[a4, a1, SP[a1, a1], a2, a3, n] + 
    S2[a4, SP[a1, a1], a1, a2, a3, n] + S2[SP[a1, a1], a1, a2, a3, a4, n] + 
    S2[SP[a1, a1], a1, a2, a4, a3, n] + S2[SP[a1, a1], a1, a4, a2, a3, n] - 
    S2[SP[a1, a1], a2, a3, a1, a4, n] + S2[SP[a1, a1], a2, a4, a1, a3, n] + 
    2*S2[SP[a1, a1], a4, a1, a2, a3, n] + S2[SP[a1, a1], a4, a2, a1, a3, n] - 
    2*S2[SP[a1, a4], a1, a1, a2, a3, n] - S2[SP[a1, a4], a1, a2, a1, a3, n] - 
    S2[a4, a1, a1, a2, a3, a1, n] /; 
   MyMemberQ[{{a2, a3, a4}}, {a1, a1, a1, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a1_, a3_, a2_, a1_, a4_, a1_, n_] :> 
  -2*S2[a1, a1, a4, n]*S2[a1, a3, a2, n] - 
    2*S2[SP[a1, a1], SP[a1, a3], SP[a2, a4], n] - 
    2*S2[a1, a4, n]*S2[a1, a1, a2, a3, n] + 2*S2[a1, a3, n]*
     S2[a1, a1, a2, a4, n] + 2*S2[a1, a3, n]*S2[a1, a1, a4, a2, n] + 
    4*S2[a1, a1, SP[a1, a3], SP[a2, a4], n] - 
    2*S2[a1, a1, SP[a1, a4], SP[a2, a3], n] - 
    S2[a1, a4, n]*S2[a1, a2, a1, a3, n] + S2[a1, a3, n]*
     S2[a1, a2, a1, a4, n] + 2*S2[a1, SP[a1, a1], a3, SP[a2, a4], n] - 
    2*S2[a1, SP[a1, a1], a4, SP[a2, a3], n] - 
    2*S2[a1, SP[a1, a1], SP[a2, a3], a4, n] + 
    2*S2[a1, SP[a1, a1], SP[a2, a4], a3, n] - S2[a1, SP[a1, a2], SP[a1, a3], 
     a4, n] + S2[a1, SP[a1, a2], SP[a1, a4], a3, n] + 
    2*S2[a1, SP[a1, a3], a1, SP[a2, a4], n] + 
    2*S2[a1, SP[a1, a3], SP[a1, a2], a4, n] + 
    2*S2[SP[a1, a1], a1, a3, SP[a2, a4], n] - 
    2*S2[SP[a1, a1], a1, a4, SP[a2, a3], n] - 
    2*S2[SP[a1, a1], a1, SP[a2, a3], a4, n] + 
    2*S2[SP[a1, a1], a1, SP[a2, a4], a3, n] - S2[SP[a1, a1], a2, SP[a1, a3], 
     a4, n] + S2[SP[a1, a1], a2, SP[a1, a4], a3, n] + 
    2*S2[SP[a1, a1], a3, a1, SP[a2, a4], n] + 
    2*S2[SP[a1, a1], a3, SP[a1, a2], a4, n] + 
    2*S2[SP[a1, a1], SP[a1, a4], a2, a3, n] - S2[SP[a1, a1], SP[a2, a3], a1, 
     a4, n] + S2[SP[a1, a1], SP[a2, a4], a1, a3, n] - 
    6*S2[a1, a1, a1, a3, SP[a2, a4], n] + 
    6*S2[a1, a1, a1, a4, SP[a2, a3], n] + 
    6*S2[a1, a1, a1, SP[a2, a3], a4, n] - 
    6*S2[a1, a1, a1, SP[a2, a4], a3, n] - 
    4*S2[a1, a1, a3, a1, SP[a2, a4], n] - 
    4*S2[a1, a1, a3, SP[a1, a2], a4, n] + 
    2*S2[a1, a1, a4, a1, SP[a2, a3], n] + 
    2*S2[a1, a1, a4, SP[a1, a2], a3, n] - 
    2*S2[a1, a1, SP[a1, a4], a2, a3, n] + 
    2*S2[a1, a1, SP[a2, a3], a1, a4, n] - 
    2*S2[a1, a1, SP[a2, a4], a1, a3, n] - 
    2*S2[a1, a3, a1, a1, SP[a2, a4], n] - 
    2*S2[a1, a3, a1, SP[a1, a2], a4, n] + 
    S2[a1, n]*S2[a1, a3, a2, a1, a4, n] + S2[a1, a3, a2, a1, SP[a1, a4], n] + 
    S2[a1, a3, a2, SP[a1, a1], a4, n] - S2[a1, a3, SP[a1, a2], a1, a4, n] + 
    S2[a1, n]*S2[a1, a4, a1, a2, a3, n] + S2[a1, a4, a1, a2, SP[a1, a3], n] + 
    S2[a1, a4, a1, SP[a1, a2], a3, n] + S2[a1, a4, SP[a1, a1], a2, a3, n] + 
    S2[a1, SP[a1, a2], a3, a1, a4, n] - S2[a1, SP[a1, a2], a4, a1, a3, n] - 
    S2[a1, SP[a1, a4], a1, a2, a3, n] - S2[a1, SP[a1, a4], a2, a1, a3, n] - 
    S2[a1, n]*S2[a4, a1, a2, a3, a1, n] - S2[a4, a1, a2, a3, SP[a1, a1], n] - 
    S2[a4, a1, a2, SP[a1, a3], a1, n] - S2[a4, a1, SP[a1, a2], a3, a1, n] - 
    S2[a4, SP[a1, a1], a2, a3, a1, n] + S2[SP[a1, a1], a2, a3, a1, a4, n] - 
    S2[SP[a1, a1], a2, a4, a1, a3, n] - S2[SP[a1, a1], a4, a1, a2, a3, n] - 
    S2[SP[a1, a1], a4, a2, a1, a3, n] - S2[SP[a1, a4], a1, a2, a3, a1, n] + 
    2*S2[a4, a1, a1, a2, a3, a1, n] + S2[a4, a1, a2, a1, a3, a1, n] + 
    2*S2[a4, a1, a2, a3, a1, a1, n] /; 
   MyMemberQ[{{a2, a3, a4}}, {a1, a1, a1, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a1_, a3_, a2_, a4_, a1_, a1_, n_] :> 
  S2[a1, a1, a4, n]*S2[a1, a3, a2, n] + S2[SP[a1, a1], SP[a1, a3], 
     SP[a2, a4], n] - S2[a1, a3, n]*S2[a1, a1, a4, a2, n] - 
    2*S2[a1, a1, SP[a1, a3], SP[a2, a4], n] + S2[a1, a1, SP[a1, a4], 
     SP[a2, a3], n] - S2[a1, SP[a1, a1], a3, SP[a2, a4], n] + 
    S2[a1, SP[a1, a1], a4, SP[a2, a3], n] - S2[a1, SP[a1, a3], a1, 
     SP[a2, a4], n] - S2[a1, SP[a1, a3], SP[a1, a2], a4, n] - 
    S2[SP[a1, a1], a1, a3, SP[a2, a4], n] + S2[SP[a1, a1], a1, a4, 
     SP[a2, a3], n] - S2[SP[a1, a1], a3, a1, SP[a2, a4], n] - 
    S2[SP[a1, a1], a3, SP[a1, a2], a4, n] - S2[SP[a1, a1], SP[a1, a3], a2, 
     a4, n] + 3*S2[a1, a1, a1, a3, SP[a2, a4], n] - 
    3*S2[a1, a1, a1, a4, SP[a2, a3], n] + 
    2*S2[a1, a1, a3, a1, SP[a2, a4], n] - 
    S2[a1, n]*S2[a1, a1, a3, a2, a4, n] - S2[a1, a1, a3, a2, SP[a1, a4], n] + 
    S2[a1, a1, a3, SP[a1, a2], a4, n] - S2[a1, a1, a4, a1, SP[a2, a3], n] + 
    S2[a1, n]*S2[a1, a1, a4, a2, a3, n] + S2[a1, a1, a4, a2, SP[a1, a3], n] + 
    S2[a1, a1, SP[a1, a3], a2, a4, n] + S2[a1, a3, a1, a1, SP[a2, a4], n] - 
    (S2[a1, n]*S2[a1, a3, a1, a2, a4, n])/2 - 
    S2[a1, a3, a1, a2, SP[a1, a4], n]/2 + S2[a1, a3, a1, SP[a1, a2], a4, n]/
     2 - (S2[a1, n]*S2[a1, a3, a2, a1, a4, n])/2 - 
    S2[a1, a3, a2, a1, SP[a1, a4], n]/2 + 
    (S2[a1, n]*S2[a1, a3, a2, a4, a1, n])/2 + 
    S2[a1, a3, a2, a4, SP[a1, a1], n]/2 - S2[a1, a3, a2, SP[a1, a1], a4, n]/
     2 + S2[a1, a3, a2, SP[a1, a4], a1, n]/2 - 
    S2[a1, a3, SP[a1, a1], a2, a4, n]/2 + S2[a1, a3, SP[a1, a2], a1, a4, n]/
     2 + S2[a1, a3, SP[a1, a2], a4, a1, n]/2 - 
    (S2[a1, n]*S2[a1, a4, a2, a3, a1, n])/2 - 
    S2[a1, a4, a2, a3, SP[a1, a1], n]/2 - S2[a1, a4, a2, SP[a1, a3], a1, n]/
     2 - S2[a1, a4, SP[a1, a2], a3, a1, n]/2 + 
    S2[a1, SP[a1, a3], a1, a2, a4, n]/2 + S2[a1, SP[a1, a3], a2, a1, a4, n]/
     2 + S2[a1, SP[a1, a3], a2, a4, a1, n]/2 - 
    S2[a1, SP[a1, a4], a2, a3, a1, n]/2 + 
    (S2[a1, n]*S2[a4, a1, a2, a3, a1, n])/2 + 
    S2[a4, a1, a2, a3, SP[a1, a1], n]/2 + S2[a4, a1, a2, SP[a1, a3], a1, n]/
     2 + S2[a4, a1, SP[a1, a2], a3, a1, n]/2 + 
    (S2[a1, n]*S2[a4, a2, a1, a3, a1, n])/2 + 
    S2[a4, a2, a1, a3, SP[a1, a1], n]/2 + S2[a4, a2, a1, SP[a1, a3], a1, n]/
     2 + S2[a1, n]*S2[a4, a2, a3, a1, a1, n] + S2[a4, a2, a3, a1, SP[a1, a1], 
     n] + S2[a4, a2, a3, SP[a1, a1], a1, n] + 
    S2[a4, a2, SP[a1, a1], a3, a1, n]/2 + S2[a4, a2, SP[a1, a3], a1, a1, n] + 
    S2[a4, SP[a1, a1], a2, a3, a1, n]/2 + S2[a4, SP[a1, a2], a1, a3, a1, n]/
     2 + S2[a4, SP[a1, a2], a3, a1, a1, n] + 
    S2[SP[a1, a1], a3, a1, a2, a4, n]/2 + S2[SP[a1, a1], a3, a2, a1, a4, n]/
     2 + S2[SP[a1, a1], a3, a2, a4, a1, n]/2 - 
    S2[SP[a1, a1], a4, a2, a3, a1, n]/2 + S2[SP[a1, a4], a1, a2, a3, a1, n]/
     2 + S2[SP[a1, a4], a2, a1, a3, a1, n]/2 + S2[SP[a1, a4], a2, a3, a1, a1, 
     n] - S2[a4, a1, a1, a2, a3, a1, n] - S2[a4, a1, a2, a1, a3, a1, n] - 
    2*S2[a4, a1, a2, a3, a1, a1, n] - S2[a4, a2, a1, a1, a3, a1, n] - 
    2*S2[a4, a2, a1, a3, a1, a1, n] - 3*S2[a4, a2, a3, a1, a1, a1, n] /; 
   MyMemberQ[{{a2, a3, a4}}, {a1, a1, a1, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a1_, a3_, a4_, a1_, a1_, a2_, n_] :> 
  S2[a1, a3, n]*S2[a1, a1, a2, a4, n] - 2*S2[a1, a2, n]*
     S2[a1, a1, a3, a4, n] + S2[a1, a3, n]*S2[a1, a1, a4, a2, n] - 
    2*S2[a1, a2, n]*S2[a1, a1, a4, a3, n] - S2[a1, a1, SP[a1, a2], 
     SP[a3, a4], n] + 2*S2[a1, a1, SP[a1, a3], SP[a2, a4], n] + 
    S2[a1, a1, SP[a1, a4], SP[a2, a3], n] + S2[a1, a3, n]*
     S2[a1, a2, a1, a4, n] - S2[a1, a2, SP[a1, a1], SP[a3, a4], n] - 
    S2[a1, a2, n]*S2[a1, a3, a1, a4, n] + S2[a1, a3, SP[a1, a1], SP[a2, a4], 
     n] - S2[a1, a2, n]*S2[a1, a4, a1, a3, n] + S2[a1, a4, SP[a1, a1], 
     SP[a2, a3], n] - S2[a1, SP[a1, a1], a2, SP[a3, a4], n] + 
    2*S2[a1, SP[a1, a1], a3, SP[a2, a4], n] + S2[a1, SP[a1, a1], a4, 
     SP[a2, a3], n] + S2[a1, SP[a1, a1], SP[a2, a3], a4, n] + 
    2*S2[a1, SP[a1, a1], SP[a2, a4], a3, n] - S2[a1, SP[a1, a1], SP[a3, a4], 
     a2, n] - S2[a1, SP[a1, a2], a1, SP[a3, a4], n] - 
    S2[a1, SP[a1, a2], SP[a1, a3], a4, n] + S2[a1, SP[a1, a3], a1, 
     SP[a2, a4], n] + S2[a1, SP[a1, a3], SP[a1, a2], a4, n] + 
    S2[a1, SP[a1, a4], a1, SP[a2, a3], n] + S2[a1, SP[a1, a4], SP[a1, a2], 
     a3, n] - S2[SP[a1, a1], a1, a2, SP[a3, a4], n] + 
    2*S2[SP[a1, a1], a1, a3, SP[a2, a4], n] + S2[SP[a1, a1], a1, a4, 
     SP[a2, a3], n] + S2[SP[a1, a1], a1, SP[a2, a3], a4, n] + 
    2*S2[SP[a1, a1], a1, SP[a2, a4], a3, n] - S2[SP[a1, a1], a1, SP[a3, a4], 
     a2, n] - S2[SP[a1, a1], a2, a1, SP[a3, a4], n] - 
    S2[SP[a1, a1], a2, SP[a1, a3], a4, n] + S2[SP[a1, a1], a3, a1, 
     SP[a2, a4], n] + S2[SP[a1, a1], a3, SP[a1, a2], a4, n] + 
    S2[SP[a1, a1], a4, a1, SP[a2, a3], n] + S2[SP[a1, a1], a4, SP[a1, a2], 
     a3, n] + 2*S2[SP[a1, a1], SP[a1, a2], a3, a4, n] + 
    2*S2[SP[a1, a1], SP[a1, a2], a4, a3, n] - S2[SP[a1, a1], SP[a1, a3], a2, 
     a4, n] - S2[SP[a1, a1], SP[a1, a3], a4, a2, n] + 
    S2[SP[a1, a1], SP[a2, a4], a1, a3, n] + 
    3*S2[a4, n]*S2[a1, a1, a1, a2, a3, n] + 
    6*S2[a1, a1, a1, a2, SP[a3, a4], n] + 
    3*S2[a4, n]*S2[a1, a1, a1, a3, a2, n] - 
    3*S2[a1, a1, a1, a3, SP[a2, a4], n] - 
    3*S2[a1, a1, a1, a4, SP[a2, a3], n] - 
    3*S2[a1, a1, a1, SP[a2, a3], a4, n] - 
    3*S2[a1, a1, a1, SP[a2, a4], a3, n] + 
    6*S2[a1, a1, a1, SP[a3, a4], a2, n] + 
    S2[a4, n]*S2[a1, a1, a2, a1, a3, n] + 
    4*S2[a1, a1, a2, a1, SP[a3, a4], n] + 
    2*S2[a1, a1, a2, SP[a1, a3], a4, n] + 
    2*S2[a1, a1, a2, SP[a1, a4], a3, n] + 
    2*S2[a4, n]*S2[a1, a1, a3, a1, a2, n] - 
    2*S2[a1, a1, a3, a1, SP[a2, a4], n] - 
    2*S2[a1, a1, a3, SP[a1, a2], a4, n] - 
    3*S2[a1, a1, a4, a1, SP[a2, a3], n] - S2[a1, a1, a4, SP[a1, a2], a3, n] - 
    2*S2[a1, a1, a4, SP[a1, a3], a2, n] - 
    3*S2[a1, a1, SP[a1, a2], a3, a4, n] - 
    3*S2[a1, a1, SP[a1, a2], a4, a3, n] + 
    2*S2[a1, a1, SP[a1, a4], a2, a3, n] + 
    2*S2[a1, a1, SP[a1, a4], a3, a2, n] - S2[a1, a1, SP[a2, a4], a1, a3, n] + 
    2*S2[a1, a1, SP[a3, a4], a1, a2, n] + 
    2*S2[a1, a2, a1, a1, SP[a3, a4], n] + S2[a1, a2, a1, SP[a1, a3], a4, n] + 
    S2[a1, a2, a1, SP[a1, a4], a3, n] + S2[a1, a2, SP[a1, a1], a3, a4, n] + 
    S2[a1, a2, SP[a1, a1], a4, a3, n] + S2[a4, n]*S2[a1, a3, a1, a1, a2, n] - 
    S2[a1, a3, a1, a1, SP[a2, a4], n] - S2[a1, a3, a1, SP[a1, a2], a4, n] - 
    S2[a1, a3, SP[a1, a1], a2, a4, n] - S2[a1, a3, SP[a1, a1], a4, a2, n] + 
    S2[a1, a3, SP[a1, a4], a1, a2, n] - 2*S2[a1, a4, a1, a1, SP[a2, a3], n] - 
    S2[a1, a4, a1, SP[a1, a2], a3, n] - S2[a1, a4, a1, SP[a1, a3], a2, n] - 
    S2[a1, a4, SP[a1, a1], a2, a3, n] - S2[a1, a4, SP[a1, a1], a3, a2, n] - 
    S2[a1, SP[a1, a1], a2, a3, a4, n] - S2[a1, SP[a1, a1], a2, a4, a3, n] - 
    S2[a1, SP[a1, a1], a3, a2, a4, n] - S2[a1, SP[a1, a1], a3, a4, a2, n] - 
    S2[a1, SP[a1, a1], a4, a2, a3, n] - S2[a1, SP[a1, a1], a4, a3, a2, n] - 
    S2[a1, SP[a1, a2], a1, a3, a4, n] - S2[a1, SP[a1, a2], a1, a4, a3, n] - 
    S2[a1, SP[a1, a2], a4, a1, a3, n] + 2*S2[a1, SP[a1, a4], a1, a2, a3, n] + 
    2*S2[a1, SP[a1, a4], a1, a3, a2, n] + 
    2*S2[a1, SP[a1, a4], a3, a1, a2, n] + S2[a1, SP[a3, a4], a1, a1, a2, n] - 
    S2[a1, n]*S2[a4, a1, a1, a2, a3, n] - S2[a4, a1, a1, a2, SP[a1, a3], n] - 
    S2[a1, n]*S2[a4, a1, a1, a3, a2, n] - S2[a4, a1, a1, a3, SP[a1, a2], n] - 
    S2[a4, a1, a1, SP[a1, a2], a3, n] - S2[a4, a1, a1, SP[a1, a3], a2, n] - 
    S2[a1, n]*S2[a4, a1, a3, a1, a2, n] - S2[a4, a1, a3, a1, SP[a1, a2], n] - 
    S2[a4, a1, a3, SP[a1, a1], a2, n] - S2[a4, a1, SP[a1, a1], a2, a3, n] - 
    S2[a4, a1, SP[a1, a1], a3, a2, n] - S2[a4, a1, SP[a1, a3], a1, a2, n] - 
    S2[a1, n]*S2[a4, a3, a1, a1, a2, n] - S2[a4, a3, a1, a1, SP[a1, a2], n] - 
    S2[a4, a3, a1, SP[a1, a1], a2, n] - S2[a4, a3, SP[a1, a1], a1, a2, n] - 
    S2[a4, SP[a1, a1], a1, a2, a3, n] - S2[a4, SP[a1, a1], a1, a3, a2, n] - 
    S2[a4, SP[a1, a1], a3, a1, a2, n] - S2[a4, SP[a1, a3], a1, a1, a2, n] - 
    S2[SP[a1, a1], a1, a2, a3, a4, n] - S2[SP[a1, a1], a1, a2, a4, a3, n] - 
    S2[SP[a1, a1], a1, a3, a2, a4, n] - S2[SP[a1, a1], a1, a3, a4, a2, n] - 
    S2[SP[a1, a1], a1, a4, a2, a3, n] - S2[SP[a1, a1], a1, a4, a3, a2, n] - 
    S2[SP[a1, a1], a2, a1, a3, a4, n] - S2[SP[a1, a1], a2, a1, a4, a3, n] - 
    S2[SP[a1, a1], a2, a4, a1, a3, n] - S2[SP[a1, a1], a4, a1, a2, a3, n] - 
    S2[SP[a1, a1], a4, a1, a3, a2, n] - S2[SP[a1, a1], a4, a2, a1, a3, n] + 
    2*S2[SP[a1, a4], a1, a1, a2, a3, n] + 
    2*S2[SP[a1, a4], a1, a1, a3, a2, n] + S2[SP[a1, a4], a1, a2, a1, a3, n] + 
    S2[SP[a1, a4], a1, a3, a1, a2, n] + S2[a4, a1, a1, a2, a3, a1, n] + 
    S2[a4, a1, a1, a3, a1, a2, n] + S2[a4, a1, a1, a3, a2, a1, n] + 
    2*S2[a4, a1, a3, a1, a1, a2, n] + S2[a4, a1, a3, a1, a2, a1, n] + 
    3*S2[a4, a3, a1, a1, a1, a2, n] + S2[a4, a3, a1, a1, a2, a1, n] /; 
   MyMemberQ[{{a2, a3, a4}}, {a1, a1, a1, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a1_, a3_, a4_, a1_, a2_, a1_, n_] :> 
  2*S2[a1, a2, n]*S2[a1, a1, a3, a4, n] + 2*S2[a1, a2, n]*
     S2[a1, a1, a4, a3, n] - 2*S2[a1, a1, SP[a1, a3], SP[a2, a4], n] - 
    2*S2[a1, a1, SP[a1, a4], SP[a2, a3], n] - 
    S2[a1, a3, n]*S2[a1, a2, a1, a4, n] + S2[a1, a2, SP[a1, a1], SP[a3, a4], 
     n] + S2[a1, a2, n]*S2[a1, a3, a1, a4, n] - S2[a1, a3, SP[a1, a1], 
     SP[a2, a4], n] + S2[a1, a2, n]*S2[a1, a4, a1, a3, n] - 
    S2[a1, a4, SP[a1, a1], SP[a2, a3], n] - 
    2*S2[a1, SP[a1, a1], a3, SP[a2, a4], n] - 
    2*S2[a1, SP[a1, a1], a4, SP[a2, a3], n] - 
    2*S2[a1, SP[a1, a1], SP[a2, a3], a4, n] - 
    2*S2[a1, SP[a1, a1], SP[a2, a4], a3, n] + S2[a1, SP[a1, a2], a1, 
     SP[a3, a4], n] + S2[a1, SP[a1, a2], SP[a1, a3], a4, n] - 
    S2[a1, SP[a1, a3], a1, SP[a2, a4], n] - S2[a1, SP[a1, a3], SP[a1, a2], 
     a4, n] - S2[a1, SP[a1, a4], a1, SP[a2, a3], n] - 
    S2[a1, SP[a1, a4], SP[a1, a2], a3, n] - 
    2*S2[SP[a1, a1], a1, a3, SP[a2, a4], n] - 
    2*S2[SP[a1, a1], a1, a4, SP[a2, a3], n] - 
    2*S2[SP[a1, a1], a1, SP[a2, a3], a4, n] - 
    2*S2[SP[a1, a1], a1, SP[a2, a4], a3, n] + S2[SP[a1, a1], a2, a1, 
     SP[a3, a4], n] + S2[SP[a1, a1], a2, SP[a1, a3], a4, n] - 
    S2[SP[a1, a1], a3, a1, SP[a2, a4], n] - S2[SP[a1, a1], a3, SP[a1, a2], 
     a4, n] - S2[SP[a1, a1], a4, a1, SP[a2, a3], n] - 
    S2[SP[a1, a1], a4, SP[a1, a2], a3, n] - 
    2*S2[SP[a1, a1], SP[a1, a2], a3, a4, n] - 
    2*S2[SP[a1, a1], SP[a1, a2], a4, a3, n] - S2[SP[a1, a1], SP[a2, a4], a1, 
     a3, n] - 6*S2[a4, n]*S2[a1, a1, a1, a2, a3, n] - 
    6*S2[a1, a1, a1, a2, SP[a3, a4], n] - 
    6*S2[a4, n]*S2[a1, a1, a1, a3, a2, n] + 
    6*S2[a1, a1, a1, a4, SP[a2, a3], n] + 
    6*S2[a1, a1, a1, SP[a2, a3], a4, n] - 
    6*S2[a1, a1, a1, SP[a3, a4], a2, n] - 
    2*S2[a4, n]*S2[a1, a1, a2, a1, a3, n] - 
    4*S2[a1, a1, a2, a1, SP[a3, a4], n] - 
    2*S2[a1, a1, a2, SP[a1, a3], a4, n] - 
    2*S2[a1, a1, a2, SP[a1, a4], a3, n] - 
    4*S2[a4, n]*S2[a1, a1, a3, a1, a2, n] + 
    2*S2[a1, a1, a3, SP[a1, a2], a4, n] - 
    2*S2[a1, a1, a3, SP[a1, a4], a2, n] + 
    4*S2[a1, a1, a4, a1, SP[a2, a3], n] + 
    2*S2[a1, a1, a4, SP[a1, a2], a3, n] + 
    2*S2[a1, a1, a4, SP[a1, a3], a2, n] + 
    4*S2[a1, a1, SP[a1, a2], a3, a4, n] + 
    4*S2[a1, a1, SP[a1, a2], a4, a3, n] + 
    2*S2[a1, a1, SP[a1, a3], a2, a4, n] + 
    2*S2[a1, a1, SP[a1, a3], a4, a2, n] - 
    4*S2[a1, a1, SP[a1, a4], a2, a3, n] - 
    4*S2[a1, a1, SP[a1, a4], a3, a2, n] - 
    4*S2[a1, a1, SP[a3, a4], a1, a2, n] - 
    2*S2[a1, a2, a1, a1, SP[a3, a4], n] - S2[a1, a2, a1, SP[a1, a3], a4, n] - 
    S2[a1, a2, a1, SP[a1, a4], a3, n] - S2[a1, a2, SP[a1, a1], a3, a4, n] - 
    S2[a1, a2, SP[a1, a1], a4, a3, n] - 2*S2[a4, n]*
     S2[a1, a3, a1, a1, a2, n] + S2[a1, a3, a1, SP[a1, a2], a4, n] - 
    S2[a1, a3, a1, SP[a1, a4], a2, n] + S2[a1, n]*S2[a1, a3, a4, a1, a2, n] + 
    S2[a1, a3, a4, a1, SP[a1, a2], n] + S2[a1, a3, a4, SP[a1, a1], a2, n] + 
    S2[a1, a3, SP[a1, a1], a2, a4, n] + S2[a1, a3, SP[a1, a1], a4, a2, n] - 
    S2[a1, a3, SP[a1, a4], a1, a2, n] + 2*S2[a1, a4, a1, a1, SP[a2, a3], n] + 
    S2[a1, n]*S2[a1, a4, a1, a2, a3, n] + S2[a1, a4, a1, a2, SP[a1, a3], n] + 
    S2[a1, n]*S2[a1, a4, a1, a3, a2, n] + S2[a1, a4, a1, a3, SP[a1, a2], n] + 
    2*S2[a1, a4, a1, SP[a1, a2], a3, n] + 
    2*S2[a1, a4, a1, SP[a1, a3], a2, n] + 
    S2[a1, n]*S2[a1, a4, a3, a1, a2, n] + S2[a1, a4, a3, a1, SP[a1, a2], n] + 
    S2[a1, a4, a3, SP[a1, a1], a2, n] + 2*S2[a1, a4, SP[a1, a1], a2, a3, n] + 
    2*S2[a1, a4, SP[a1, a1], a3, a2, n] + S2[a1, a4, SP[a1, a3], a1, a2, n] + 
    2*S2[a1, SP[a1, a1], a2, a3, a4, n] + 
    2*S2[a1, SP[a1, a1], a2, a4, a3, n] + 
    2*S2[a1, SP[a1, a1], a3, a2, a4, n] + 
    2*S2[a1, SP[a1, a1], a3, a4, a2, n] + 
    2*S2[a1, SP[a1, a1], a4, a2, a3, n] + 
    2*S2[a1, SP[a1, a1], a4, a3, a2, n] + S2[a1, SP[a1, a2], a1, a3, a4, n] + 
    S2[a1, SP[a1, a2], a1, a4, a3, n] + S2[a1, SP[a1, a2], a4, a1, a3, n] + 
    S2[a1, SP[a1, a3], a1, a2, a4, n] + S2[a1, SP[a1, a3], a1, a4, a2, n] + 
    S2[a1, SP[a1, a3], a4, a1, a2, n] - 4*S2[a1, SP[a1, a4], a1, a2, a3, n] - 
    4*S2[a1, SP[a1, a4], a1, a3, a2, n] - S2[a1, SP[a1, a4], a2, a1, a3, n] - 
    3*S2[a1, SP[a1, a4], a3, a1, a2, n] - 
    2*S2[a1, SP[a3, a4], a1, a1, a2, n] + 
    2*S2[a1, n]*S2[a4, a1, a1, a2, a3, n] + 
    2*S2[a4, a1, a1, a2, SP[a1, a3], n] + 
    2*S2[a1, n]*S2[a4, a1, a1, a3, a2, n] + 
    2*S2[a4, a1, a1, a3, SP[a1, a2], n] + 
    2*S2[a4, a1, a1, SP[a1, a2], a3, n] + 
    2*S2[a4, a1, a1, SP[a1, a3], a2, n] - 
    S2[a1, n]*S2[a4, a1, a2, a3, a1, n] - S2[a4, a1, a2, a3, SP[a1, a1], n] - 
    S2[a4, a1, a2, SP[a1, a3], a1, n] + S2[a1, n]*S2[a4, a1, a3, a1, a2, n] + 
    S2[a4, a1, a3, a1, SP[a1, a2], n] - S2[a1, n]*S2[a4, a1, a3, a2, a1, n] - 
    S2[a4, a1, a3, a2, SP[a1, a1], n] + S2[a4, a1, a3, SP[a1, a1], a2, n] - 
    S2[a4, a1, a3, SP[a1, a2], a1, n] + 2*S2[a4, a1, SP[a1, a1], a2, a3, n] + 
    2*S2[a4, a1, SP[a1, a1], a3, a2, n] - S2[a4, a1, SP[a1, a2], a3, a1, n] + 
    S2[a4, a1, SP[a1, a3], a1, a2, n] - S2[a4, a1, SP[a1, a3], a2, a1, n] - 
    S2[a1, n]*S2[a4, a3, a1, a2, a1, n] - S2[a4, a3, a1, a2, SP[a1, a1], n] - 
    S2[a4, a3, a1, SP[a1, a2], a1, n] - S2[a4, a3, SP[a1, a1], a2, a1, n] + 
    2*S2[a4, SP[a1, a1], a1, a2, a3, n] + 
    2*S2[a4, SP[a1, a1], a1, a3, a2, n] - S2[a4, SP[a1, a1], a2, a3, a1, n] + 
    S2[a4, SP[a1, a1], a3, a1, a2, n] - S2[a4, SP[a1, a1], a3, a2, a1, n] - 
    S2[a4, SP[a1, a3], a1, a2, a1, n] + 2*S2[SP[a1, a1], a1, a2, a3, a4, n] + 
    2*S2[SP[a1, a1], a1, a2, a4, a3, n] + 
    2*S2[SP[a1, a1], a1, a3, a2, a4, n] + 
    2*S2[SP[a1, a1], a1, a3, a4, a2, n] + 
    2*S2[SP[a1, a1], a1, a4, a2, a3, n] + 
    2*S2[SP[a1, a1], a1, a4, a3, a2, n] + S2[SP[a1, a1], a2, a1, a3, a4, n] + 
    S2[SP[a1, a1], a2, a1, a4, a3, n] + S2[SP[a1, a1], a2, a4, a1, a3, n] + 
    S2[SP[a1, a1], a3, a1, a2, a4, n] + S2[SP[a1, a1], a3, a1, a4, a2, n] + 
    S2[SP[a1, a1], a3, a4, a1, a2, n] + 2*S2[SP[a1, a1], a4, a1, a2, a3, n] + 
    2*S2[SP[a1, a1], a4, a1, a3, a2, n] + S2[SP[a1, a1], a4, a2, a1, a3, n] + 
    S2[SP[a1, a1], a4, a3, a1, a2, n] - 4*S2[SP[a1, a4], a1, a1, a2, a3, n] - 
    4*S2[SP[a1, a4], a1, a1, a3, a2, n] - 
    2*S2[SP[a1, a4], a1, a2, a1, a3, n] - S2[SP[a1, a4], a1, a2, a3, a1, n] - 
    3*S2[SP[a1, a4], a1, a3, a1, a2, n] - S2[SP[a1, a4], a1, a3, a2, a1, n] - 
    2*S2[SP[a1, a4], a3, a1, a1, a2, n] - S2[SP[a1, a4], a3, a1, a2, a1, n] + 
    S2[a4, a1, a2, a1, a3, a1, n] + 2*S2[a4, a1, a2, a3, a1, a1, n] + 
    S2[a4, a1, a3, a1, a2, a1, n] + 2*S2[a4, a1, a3, a2, a1, a1, n] + 
    2*S2[a4, a3, a1, a1, a2, a1, n] + 2*S2[a4, a3, a1, a2, a1, a1, n] /; 
   MyMemberQ[{{a2, a3, a4}}, {a1, a1, a1, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a1_, a3_, a4_, a2_, a1_, a1_, n_] :> 
  -(S2[a1, a3, n]*S2[a1, a1, a2, a4, n]) + S2[a1, a1, SP[a1, a2], SP[a3, a4], 
     n] + S2[a1, SP[a1, a1], a2, SP[a3, a4], n] + 
    S2[a1, SP[a1, a1], SP[a2, a3], a4, n] + S2[SP[a1, a1], a1, a2, 
     SP[a3, a4], n] + S2[SP[a1, a1], a1, SP[a2, a3], a4, n] + 
    S2[SP[a1, a1], SP[a1, a3], a2, a4, n] + 
    3*S2[a4, n]*S2[a1, a1, a1, a2, a3, n] + 
    3*S2[a4, n]*S2[a1, a1, a1, a3, a2, n] + 
    3*S2[a1, a1, a1, a3, SP[a2, a4], n] - 
    3*S2[a1, a1, a1, SP[a2, a3], a4, n] + 
    3*S2[a1, a1, a1, SP[a2, a4], a3, n] + 
    3*S2[a1, a1, a1, SP[a3, a4], a2, n] + 
    S2[a4, n]*S2[a1, a1, a2, a1, a3, n] + 
    2*S2[a4, n]*S2[a1, a1, a3, a1, a2, n] + 
    2*S2[a1, a1, a3, a1, SP[a2, a4], n] - 
    S2[a1, n]*S2[a1, a1, a3, a4, a2, n] - S2[a1, a1, a3, a4, SP[a1, a2], n] + 
    S2[a1, a1, a3, SP[a1, a4], a2, n] - S2[a1, n]*S2[a1, a1, a4, a2, a3, n] - 
    S2[a1, a1, a4, a2, SP[a1, a3], n] - S2[a1, n]*S2[a1, a1, a4, a3, a2, n] - 
    S2[a1, a1, a4, a3, SP[a1, a2], n] - S2[a1, a1, a4, SP[a1, a2], a3, n] - 
    S2[a1, a1, a4, SP[a1, a3], a2, n] - S2[a1, a1, SP[a1, a2], a3, a4, n] - 
    S2[a1, a1, SP[a1, a2], a4, a3, n] - 2*S2[a1, a1, SP[a1, a3], a2, a4, n] - 
    S2[a1, a1, SP[a1, a3], a4, a2, n] + 2*S2[a1, a1, SP[a1, a4], a2, a3, n] + 
    2*S2[a1, a1, SP[a1, a4], a3, a2, n] + S2[a1, a1, SP[a2, a4], a1, a3, n] + 
    2*S2[a1, a1, SP[a3, a4], a1, a2, n] + 
    S2[a4, n]*S2[a1, a3, a1, a1, a2, n] + S2[a1, a3, a1, a1, SP[a2, a4], n] - 
    (S2[a1, n]*S2[a1, a3, a1, a4, a2, n])/2 - 
    S2[a1, a3, a1, a4, SP[a1, a2], n]/2 + S2[a1, a3, a1, SP[a1, a4], a2, n]/
     2 - (S2[a1, n]*S2[a1, a3, a4, a1, a2, n])/2 - 
    S2[a1, a3, a4, a1, SP[a1, a2], n]/2 + 
    (S2[a1, n]*S2[a1, a3, a4, a2, a1, n])/2 + 
    S2[a1, a3, a4, a2, SP[a1, a1], n]/2 - S2[a1, a3, a4, SP[a1, a1], a2, n]/
     2 + S2[a1, a3, a4, SP[a1, a2], a1, n]/2 - 
    S2[a1, a3, SP[a1, a1], a4, a2, n]/2 + S2[a1, a3, SP[a1, a4], a1, a2, n]/
     2 + S2[a1, a3, SP[a1, a4], a2, a1, n]/2 - 
    S2[a1, n]*S2[a1, a4, a1, a2, a3, n] - S2[a1, a4, a1, a2, SP[a1, a3], n] - 
    S2[a1, n]*S2[a1, a4, a1, a3, a2, n] - S2[a1, a4, a1, a3, SP[a1, a2], n] - 
    S2[a1, a4, a1, SP[a1, a2], a3, n] - S2[a1, a4, a1, SP[a1, a3], a2, n] + 
    (S2[a1, n]*S2[a1, a4, a2, a3, a1, n])/2 + 
    S2[a1, a4, a2, a3, SP[a1, a1], n]/2 + S2[a1, a4, a2, SP[a1, a3], a1, n]/
     2 - (S2[a1, n]*S2[a1, a4, a3, a1, a2, n])/2 - 
    S2[a1, a4, a3, a1, SP[a1, a2], n]/2 + 
    (S2[a1, n]*S2[a1, a4, a3, a2, a1, n])/2 + 
    S2[a1, a4, a3, a2, SP[a1, a1], n]/2 - S2[a1, a4, a3, SP[a1, a1], a2, n]/
     2 + S2[a1, a4, a3, SP[a1, a2], a1, n]/2 - S2[a1, a4, SP[a1, a1], a2, a3, 
     n] - S2[a1, a4, SP[a1, a1], a3, a2, n] + 
    S2[a1, a4, SP[a1, a2], a3, a1, n]/2 - S2[a1, a4, SP[a1, a3], a1, a2, n]/
     2 + S2[a1, a4, SP[a1, a3], a2, a1, n]/2 - S2[a1, SP[a1, a1], a2, a3, a4, 
     n] - S2[a1, SP[a1, a1], a2, a4, a3, n] - S2[a1, SP[a1, a1], a3, a2, a4, 
     n] - S2[a1, SP[a1, a1], a3, a4, a2, n] - S2[a1, SP[a1, a1], a4, a2, a3, 
     n] - S2[a1, SP[a1, a1], a4, a3, a2, n] - S2[a1, SP[a1, a3], a1, a2, a4, 
     n] - S2[a1, SP[a1, a3], a1, a4, a2, n]/2 - 
    S2[a1, SP[a1, a3], a4, a1, a2, n]/2 + S2[a1, SP[a1, a3], a4, a2, a1, n]/
     2 + 2*S2[a1, SP[a1, a4], a1, a2, a3, n] + 
    2*S2[a1, SP[a1, a4], a1, a3, a2, n] + S2[a1, SP[a1, a4], a2, a1, a3, n] + 
    S2[a1, SP[a1, a4], a2, a3, a1, n]/2 + 
    (3*S2[a1, SP[a1, a4], a3, a1, a2, n])/2 + 
    S2[a1, SP[a1, a4], a3, a2, a1, n]/2 + S2[a1, SP[a3, a4], a1, a1, a2, n] - 
    S2[a1, n]*S2[a4, a1, a1, a2, a3, n] - S2[a4, a1, a1, a2, SP[a1, a3], n] - 
    S2[a1, n]*S2[a4, a1, a1, a3, a2, n] - S2[a4, a1, a1, a3, SP[a1, a2], n] - 
    S2[a4, a1, a1, SP[a1, a2], a3, n] - S2[a4, a1, a1, SP[a1, a3], a2, n] + 
    (S2[a1, n]*S2[a4, a1, a2, a3, a1, n])/2 + 
    S2[a4, a1, a2, a3, SP[a1, a1], n]/2 + S2[a4, a1, a2, SP[a1, a3], a1, n]/
     2 - (S2[a1, n]*S2[a4, a1, a3, a1, a2, n])/2 - 
    S2[a4, a1, a3, a1, SP[a1, a2], n]/2 + 
    (S2[a1, n]*S2[a4, a1, a3, a2, a1, n])/2 + 
    S2[a4, a1, a3, a2, SP[a1, a1], n]/2 - S2[a4, a1, a3, SP[a1, a1], a2, n]/
     2 + S2[a4, a1, a3, SP[a1, a2], a1, n]/2 - S2[a4, a1, SP[a1, a1], a2, a3, 
     n] - S2[a4, a1, SP[a1, a1], a3, a2, n] + 
    S2[a4, a1, SP[a1, a2], a3, a1, n]/2 - S2[a4, a1, SP[a1, a3], a1, a2, n]/
     2 + S2[a4, a1, SP[a1, a3], a2, a1, n]/2 - 
    (S2[a1, n]*S2[a4, a2, a1, a3, a1, n])/2 - 
    S2[a4, a2, a1, a3, SP[a1, a1], n]/2 - S2[a4, a2, a1, SP[a1, a3], a1, n]/
     2 - S2[a1, n]*S2[a4, a2, a3, a1, a1, n] - S2[a4, a2, a3, a1, SP[a1, a1], 
     n] - S2[a4, a2, a3, SP[a1, a1], a1, n] - 
    S2[a4, a2, SP[a1, a1], a3, a1, n]/2 - S2[a4, a2, SP[a1, a3], a1, a1, n] - 
    S2[a1, n]*S2[a4, a3, a2, a1, a1, n] - S2[a4, a3, a2, a1, SP[a1, a1], n] - 
    S2[a4, a3, a2, SP[a1, a1], a1, n] - S2[a4, a3, SP[a1, a2], a1, a1, n] - 
    S2[a4, SP[a1, a1], a1, a2, a3, n] - S2[a4, SP[a1, a1], a1, a3, a2, n] + 
    S2[a4, SP[a1, a1], a2, a3, a1, n]/2 - S2[a4, SP[a1, a1], a3, a1, a2, n]/
     2 + S2[a4, SP[a1, a1], a3, a2, a1, n]/2 - 
    S2[a4, SP[a1, a2], a1, a3, a1, n]/2 - S2[a4, SP[a1, a2], a3, a1, a1, n] - 
    S2[a4, SP[a1, a3], a2, a1, a1, n] - S2[SP[a1, a1], a1, a2, a3, a4, n] - 
    S2[SP[a1, a1], a1, a2, a4, a3, n] - S2[SP[a1, a1], a1, a3, a2, a4, n] - 
    S2[SP[a1, a1], a1, a3, a4, a2, n] - S2[SP[a1, a1], a1, a4, a2, a3, n] - 
    S2[SP[a1, a1], a1, a4, a3, a2, n] - S2[SP[a1, a1], a3, a1, a2, a4, n] - 
    S2[SP[a1, a1], a3, a1, a4, a2, n]/2 - S2[SP[a1, a1], a3, a4, a1, a2, n]/
     2 + S2[SP[a1, a1], a3, a4, a2, a1, n]/2 - S2[SP[a1, a1], a4, a1, a2, a3, 
     n] - S2[SP[a1, a1], a4, a1, a3, a2, n] + 
    S2[SP[a1, a1], a4, a2, a3, a1, n]/2 - S2[SP[a1, a1], a4, a3, a1, a2, n]/
     2 + S2[SP[a1, a1], a4, a3, a2, a1, n]/2 + 
    2*S2[SP[a1, a4], a1, a1, a2, a3, n] + 
    2*S2[SP[a1, a4], a1, a1, a3, a2, n] + S2[SP[a1, a4], a1, a2, a1, a3, n] + 
    S2[SP[a1, a4], a1, a2, a3, a1, n]/2 + 
    (3*S2[SP[a1, a4], a1, a3, a1, a2, n])/2 + 
    S2[SP[a1, a4], a1, a3, a2, a1, n]/2 - S2[SP[a1, a4], a2, a1, a3, a1, n]/
     2 - S2[SP[a1, a4], a2, a3, a1, a1, n] + S2[SP[a1, a4], a3, a1, a1, a2, 
     n] - S2[SP[a1, a4], a3, a2, a1, a1, n] + S2[a4, a2, a1, a1, a3, a1, n] + 
    2*S2[a4, a2, a1, a3, a1, a1, n] + 3*S2[a4, a2, a3, a1, a1, a1, n] + 
    S2[a4, a3, a1, a2, a1, a1, n] + 3*S2[a4, a3, a2, a1, a1, a1, n] /; 
   MyMemberQ[{{a2, a3, a4}}, {a1, a1, a1, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a1_, a4_, a1_, a1_, a2_, a3_, n_] :> 
  S2[a1, n]*S2[a4, a1, a1, a2, a3, n] + S2[a4, a1, a1, a2, SP[a1, a3], n] + 
    S2[a4, a1, a1, SP[a1, a2], a3, n] + S2[a4, a1, SP[a1, a1], a2, a3, n] + 
    S2[a4, SP[a1, a1], a1, a2, a3, n] + S2[SP[a1, a4], a1, a1, a2, a3, n] - 
    3*S2[a4, a1, a1, a1, a2, a3, n] - S2[a4, a1, a1, a2, a1, a3, n] - 
    S2[a4, a1, a1, a2, a3, a1, n] /; 
   MyMemberQ[{{a2, a3, a4}}, {a1, a1, a1, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a1_, a4_, a1_, a1_, a3_, a2_, n_] :> 
  S2[a1, n]*S2[a4, a1, a1, a3, a2, n] + S2[a4, a1, a1, a3, SP[a1, a2], n] + 
    S2[a4, a1, a1, SP[a1, a3], a2, n] + S2[a4, a1, SP[a1, a1], a3, a2, n] + 
    S2[a4, SP[a1, a1], a1, a3, a2, n] + S2[SP[a1, a4], a1, a1, a3, a2, n] - 
    3*S2[a4, a1, a1, a1, a3, a2, n] - S2[a4, a1, a1, a3, a1, a2, n] - 
    S2[a4, a1, a1, a3, a2, a1, n] /; 
   MyMemberQ[{{a2, a3, a4}}, {a1, a1, a1, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a1_, a4_, a1_, a2_, a1_, a3_, n_] :> 
  S2[a1, n]*S2[a4, a1, a2, a1, a3, n] + S2[a4, a1, a2, a1, SP[a1, a3], n] + 
    S2[a4, a1, a2, SP[a1, a1], a3, n] + S2[a4, a1, SP[a1, a2], a1, a3, n] + 
    S2[a4, SP[a1, a1], a2, a1, a3, n] + S2[SP[a1, a4], a1, a2, a1, a3, n] - 
    2*S2[a4, a1, a1, a2, a1, a3, n] - 2*S2[a4, a1, a2, a1, a1, a3, n] - 
    S2[a4, a1, a2, a1, a3, a1, n] /; 
   MyMemberQ[{{a2, a3, a4}}, {a1, a1, a1, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a1_, a4_, a1_, a2_, a3_, a1_, n_] :> 
  S2[a1, n]*S2[a4, a1, a2, a3, a1, n] + S2[a4, a1, a2, a3, SP[a1, a1], n] + 
    S2[a4, a1, a2, SP[a1, a3], a1, n] + S2[a4, a1, SP[a1, a2], a3, a1, n] + 
    S2[a4, SP[a1, a1], a2, a3, a1, n] + S2[SP[a1, a4], a1, a2, a3, a1, n] - 
    2*S2[a4, a1, a1, a2, a3, a1, n] - S2[a4, a1, a2, a1, a3, a1, n] - 
    2*S2[a4, a1, a2, a3, a1, a1, n] /; 
   MyMemberQ[{{a2, a3, a4}}, {a1, a1, a1, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a1_, a4_, a1_, a3_, a1_, a2_, n_] :> 
  S2[a1, n]*S2[a4, a1, a3, a1, a2, n] + S2[a4, a1, a3, a1, SP[a1, a2], n] + 
    S2[a4, a1, a3, SP[a1, a1], a2, n] + S2[a4, a1, SP[a1, a3], a1, a2, n] + 
    S2[a4, SP[a1, a1], a3, a1, a2, n] + S2[SP[a1, a4], a1, a3, a1, a2, n] - 
    2*S2[a4, a1, a1, a3, a1, a2, n] - 2*S2[a4, a1, a3, a1, a1, a2, n] - 
    S2[a4, a1, a3, a1, a2, a1, n] /; 
   MyMemberQ[{{a2, a3, a4}}, {a1, a1, a1, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a1_, a4_, a1_, a3_, a2_, a1_, n_] :> 
  S2[a1, n]*S2[a4, a1, a3, a2, a1, n] + S2[a4, a1, a3, a2, SP[a1, a1], n] + 
    S2[a4, a1, a3, SP[a1, a2], a1, n] + S2[a4, a1, SP[a1, a3], a2, a1, n] + 
    S2[a4, SP[a1, a1], a3, a2, a1, n] + S2[SP[a1, a4], a1, a3, a2, a1, n] - 
    2*S2[a4, a1, a1, a3, a2, a1, n] - S2[a4, a1, a3, a1, a2, a1, n] - 
    2*S2[a4, a1, a3, a2, a1, a1, n] /; 
   MyMemberQ[{{a2, a3, a4}}, {a1, a1, a1, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a1_, a4_, a2_, a1_, a1_, a3_, n_] :> 
  S2[a1, n]*S2[a4, a2, a1, a1, a3, n] + S2[a4, a2, a1, a1, SP[a1, a3], n] + 
    S2[a4, a2, a1, SP[a1, a1], a3, n] + S2[a4, a2, SP[a1, a1], a1, a3, n] + 
    S2[a4, SP[a1, a2], a1, a1, a3, n] + S2[SP[a1, a4], a2, a1, a1, a3, n] - 
    S2[a4, a1, a2, a1, a1, a3, n] - 3*S2[a4, a2, a1, a1, a1, a3, n] - 
    S2[a4, a2, a1, a1, a3, a1, n] /; 
   MyMemberQ[{{a2, a3, a4}}, {a1, a1, a1, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a1_, a4_, a2_, a1_, a3_, a1_, n_] :> 
  S2[a1, n]*S2[a4, a2, a1, a3, a1, n] + S2[a4, a2, a1, a3, SP[a1, a1], n] + 
    S2[a4, a2, a1, SP[a1, a3], a1, n] + S2[a4, a2, SP[a1, a1], a3, a1, n] + 
    S2[a4, SP[a1, a2], a1, a3, a1, n] + S2[SP[a1, a4], a2, a1, a3, a1, n] - 
    S2[a4, a1, a2, a1, a3, a1, n] - 2*S2[a4, a2, a1, a1, a3, a1, n] - 
    2*S2[a4, a2, a1, a3, a1, a1, n] /; 
   MyMemberQ[{{a2, a3, a4}}, {a1, a1, a1, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a1_, a4_, a2_, a3_, a1_, a1_, n_] :> 
  S2[a1, n]*S2[a4, a2, a3, a1, a1, n] + S2[a4, a2, a3, a1, SP[a1, a1], n] + 
    S2[a4, a2, a3, SP[a1, a1], a1, n] + S2[a4, a2, SP[a1, a3], a1, a1, n] + 
    S2[a4, SP[a1, a2], a3, a1, a1, n] + S2[SP[a1, a4], a2, a3, a1, a1, n] - 
    S2[a4, a1, a2, a3, a1, a1, n] - S2[a4, a2, a1, a3, a1, a1, n] - 
    3*S2[a4, a2, a3, a1, a1, a1, n] /; 
   MyMemberQ[{{a2, a3, a4}}, {a1, a1, a1, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a1_, a4_, a3_, a1_, a1_, a2_, n_] :> 
  S2[a1, n]*S2[a4, a3, a1, a1, a2, n] + S2[a4, a3, a1, a1, SP[a1, a2], n] + 
    S2[a4, a3, a1, SP[a1, a1], a2, n] + S2[a4, a3, SP[a1, a1], a1, a2, n] + 
    S2[a4, SP[a1, a3], a1, a1, a2, n] + S2[SP[a1, a4], a3, a1, a1, a2, n] - 
    S2[a4, a1, a3, a1, a1, a2, n] - 3*S2[a4, a3, a1, a1, a1, a2, n] - 
    S2[a4, a3, a1, a1, a2, a1, n] /; 
   MyMemberQ[{{a2, a3, a4}}, {a1, a1, a1, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a1_, a4_, a3_, a1_, a2_, a1_, n_] :> 
  S2[a1, n]*S2[a4, a3, a1, a2, a1, n] + S2[a4, a3, a1, a2, SP[a1, a1], n] + 
    S2[a4, a3, a1, SP[a1, a2], a1, n] + S2[a4, a3, SP[a1, a1], a2, a1, n] + 
    S2[a4, SP[a1, a3], a1, a2, a1, n] + S2[SP[a1, a4], a3, a1, a2, a1, n] - 
    S2[a4, a1, a3, a1, a2, a1, n] - 2*S2[a4, a3, a1, a1, a2, a1, n] - 
    2*S2[a4, a3, a1, a2, a1, a1, n] /; 
   MyMemberQ[{{a2, a3, a4}}, {a1, a1, a1, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a1_, a4_, a3_, a2_, a1_, a1_, n_] :> 
  S2[a1, n]*S2[a4, a3, a2, a1, a1, n] + S2[a4, a3, a2, a1, SP[a1, a1], n] + 
    S2[a4, a3, a2, SP[a1, a1], a1, n] + S2[a4, a3, SP[a1, a2], a1, a1, n] + 
    S2[a4, SP[a1, a3], a2, a1, a1, n] + S2[SP[a1, a4], a3, a2, a1, a1, n] - 
    S2[a4, a1, a3, a2, a1, a1, n] - S2[a4, a3, a1, a2, a1, a1, n] - 
    3*S2[a4, a3, a2, a1, a1, a1, n] /; 
   MyMemberQ[{{a2, a3, a4}}, {a1, a1, a1, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a2_, a1_, a1_, a1_, a3_, a4_, n_] :> 
  S2[a1, a1, a2, n]*S2[a1, a3, a4, n] + S2[SP[a1, a1], SP[a1, a3], 
     SP[a2, a4], n] - S2[a3, a4, n]*S2[a1, a1, a1, a2, n] - 
    S2[a1, a2, n]*S2[a1, a1, a3, a4, n] - S2[SP[a1, a1], a3, a1, SP[a2, a4], 
     n] - S2[SP[a1, a1], a3, SP[a1, a4], a2, n] + S2[SP[a1, a1], SP[a1, a2], 
     a3, a4, n] - S2[SP[a1, a1], SP[a1, a3], a2, a4, n] - 
    S2[SP[a1, a1], SP[a1, a3], a4, a2, n] + S2[SP[a1, a3], a1, a1, 
     SP[a2, a4], n] + S2[SP[a1, a3], a1, SP[a1, a4], a2, n] + 
    S2[SP[a1, a3], SP[a1, a4], a1, a2, n] - 
    S2[a4, n]*S2[a1, a1, a1, a2, a3, n] + 
    S2[a3, n]*S2[a1, a1, a1, a2, a4, n] - 
    S2[a4, n]*S2[a1, a1, a1, a3, a2, n] + 
    S2[a2, n]*S2[a1, a1, a1, a3, a4, n] - S2[a1, a1, a1, a3, SP[a2, a4], n] + 
    S2[a3, n]*S2[a1, a1, a1, a4, a2, n] + S2[a1, a1, a1, a4, SP[a2, a3], n] + 
    S2[a1, a1, a1, SP[a2, a3], a4, n] - S2[a1, a1, a1, SP[a2, a4], a3, n] - 
    S2[a4, n]*S2[a1, a1, a3, a1, a2, n] - S2[a1, a1, a3, a1, SP[a2, a4], n] - 
    S2[a1, a1, a3, SP[a1, a4], a2, n] + S2[a3, n]*S2[a1, a1, a4, a1, a2, n] + 
    S2[a1, a1, a4, a1, SP[a2, a3], n] + S2[a1, a1, a4, SP[a1, a3], a2, n] + 
    S2[a1, a1, SP[a1, a3], a2, a4, n] + S2[a1, a1, SP[a1, a3], a4, a2, n] - 
    S2[a1, a1, SP[a1, a4], a2, a3, n] - S2[a1, a1, SP[a1, a4], a3, a2, n] - 
    S2[a4, n]*S2[a1, a3, a1, a1, a2, n] - S2[a1, a3, a1, a1, SP[a2, a4], n] - 
    S2[a1, a3, a1, SP[a1, a4], a2, n] - S2[a1, a3, SP[a1, a4], a1, a2, n] + 
    S2[a3, n]*S2[a1, a4, a1, a1, a2, n] + S2[a1, a4, a1, a1, SP[a2, a3], n] + 
    S2[a1, a4, a1, SP[a1, a3], a2, n] + S2[a1, a4, SP[a1, a3], a1, a2, n] + 
    S2[a1, SP[a1, a3], a1, a2, a4, n] + S2[a1, SP[a1, a3], a1, a4, a2, n] + 
    S2[a1, SP[a1, a3], a4, a1, a2, n] - S2[a1, SP[a1, a4], a1, a2, a3, n] - 
    S2[a1, SP[a1, a4], a1, a3, a2, n] - S2[a1, SP[a1, a4], a3, a1, a2, n] - 
    S2[a3, a1, a1, a1, SP[a2, a4], n] - S2[a3, a1, a1, SP[a1, a4], a2, n] - 
    S2[a3, a1, SP[a1, a4], a1, a2, n] - S2[a3, SP[a1, a4], a1, a1, a2, n] + 
    S2[a3, n]*S2[a4, a1, a1, a1, a2, n] + S2[a4, a1, a1, a1, SP[a2, a3], n] + 
    S2[a4, a1, a1, SP[a1, a3], a2, n] + S2[a4, a1, SP[a1, a3], a1, a2, n] + 
    S2[a4, SP[a1, a3], a1, a1, a2, n] - S2[SP[a1, a1], a2, a1, a3, a4, n] + 
    S2[SP[a1, a1], a3, a1, a2, a4, n] + S2[SP[a1, a1], a3, a1, a4, a2, n] + 
    S2[SP[a1, a1], a3, a4, a1, a2, n] + S2[SP[a1, a2], a1, a1, a3, a4, n] - 
    S2[SP[a1, a4], a1, a1, a2, a3, n] - S2[SP[a1, a4], a1, a1, a3, a2, n] - 
    S2[SP[a1, a4], a1, a3, a1, a2, n] - S2[SP[a1, a4], a3, a1, a1, a2, n] + 
    S2[SP[a3, a4], a1, a1, a1, a2, n] - S2[a4, a3, a1, a1, a1, a2, n] /; 
   MyMemberQ[{{a2, a3, a4}}, {a1, a1, a1, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a2_, a1_, a1_, a1_, a4_, a3_, n_] :> 
  S2[a1, a1, a2, n]*S2[a1, a4, a3, n] + S2[SP[a1, a1], SP[a1, a4], 
     SP[a2, a3], n] + S2[a3, a4, n]*S2[a1, a1, a1, a2, n] - 
    S2[a1, a2, n]*S2[a1, a1, a4, a3, n] - S2[a1, a1, SP[a1, a3], SP[a2, a4], 
     n] - S2[a1, a1, SP[a1, a4], SP[a2, a3], n] - S2[a1, SP[a1, a3], a1, 
     SP[a2, a4], n] - S2[a1, SP[a1, a3], SP[a1, a4], a2, n] - 
    S2[a1, SP[a1, a4], a1, SP[a2, a3], n] - S2[a1, SP[a1, a4], SP[a1, a3], 
     a2, n] - S2[SP[a1, a1], a4, a1, SP[a2, a3], n] - 
    S2[SP[a1, a1], a4, SP[a1, a3], a2, n] + S2[SP[a1, a1], SP[a1, a2], a4, 
     a3, n] - S2[SP[a1, a1], SP[a1, a4], a2, a3, n] - 
    S2[SP[a1, a1], SP[a1, a4], a3, a2, n] - S2[SP[a1, a3], a1, a1, 
     SP[a2, a4], n] - S2[SP[a1, a3], a1, SP[a1, a4], a2, n] - 
    S2[SP[a1, a3], SP[a1, a4], a1, a2, n] - 
    S2[a3, n]*S2[a1, a1, a1, a2, a4, n] - S2[a1, a1, a1, a2, SP[a3, a4], n] + 
    S2[a1, a1, a1, a3, SP[a2, a4], n] - S2[a3, n]*S2[a1, a1, a1, a4, a2, n] + 
    S2[a2, n]*S2[a1, a1, a1, a4, a3, n] + S2[a1, a1, a1, SP[a2, a4], a3, n] - 
    S2[a1, a1, a1, SP[a3, a4], a2, n] + S2[a1, a1, a3, a1, SP[a2, a4], n] + 
    S2[a1, a1, a3, SP[a1, a4], a2, n] - S2[a3, n]*S2[a1, a1, a4, a1, a2, n] + 
    S2[a1, a1, SP[a1, a4], a2, a3, n] + S2[a1, a1, SP[a1, a4], a3, a2, n] - 
    S2[a1, a1, SP[a3, a4], a1, a2, n] + S2[a1, a3, a1, a1, SP[a2, a4], n] + 
    S2[a1, a3, a1, SP[a1, a4], a2, n] + S2[a1, a3, SP[a1, a4], a1, a2, n] - 
    S2[a3, n]*S2[a1, a4, a1, a1, a2, n] + S2[a1, SP[a1, a4], a1, a2, a3, n] + 
    S2[a1, SP[a1, a4], a1, a3, a2, n] + S2[a1, SP[a1, a4], a3, a1, a2, n] - 
    S2[a1, SP[a3, a4], a1, a1, a2, n] + S2[a3, a1, a1, a1, SP[a2, a4], n] + 
    S2[a3, a1, a1, SP[a1, a4], a2, n] + S2[a3, a1, SP[a1, a4], a1, a2, n] + 
    S2[a3, SP[a1, a4], a1, a1, a2, n] - S2[a3, n]*S2[a4, a1, a1, a1, a2, n] - 
    S2[a4, a1, a1, a1, SP[a2, a3], n] - S2[a4, a1, a1, SP[a1, a3], a2, n] - 
    S2[a4, a1, SP[a1, a3], a1, a2, n] - S2[a4, SP[a1, a3], a1, a1, a2, n] - 
    S2[SP[a1, a1], a2, a1, a4, a3, n] + S2[SP[a1, a1], a4, a1, a2, a3, n] + 
    S2[SP[a1, a1], a4, a1, a3, a2, n] + S2[SP[a1, a1], a4, a3, a1, a2, n] + 
    S2[SP[a1, a2], a1, a1, a4, a3, n] - S2[SP[a3, a4], a1, a1, a1, a2, n] + 
    S2[a4, a1, a1, a1, a2, a3, n] + S2[a4, a1, a1, a1, a3, a2, n] + 
    S2[a4, a1, a1, a3, a1, a2, n] + S2[a4, a1, a3, a1, a1, a2, n] + 
    S2[a4, a3, a1, a1, a1, a2, n] /; 
   MyMemberQ[{{a2, a3, a4}}, {a1, a1, a1, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a2_, a1_, a1_, a3_, a1_, a4_, n_] :> 
  -(S2[a1, a1, a2, n]*S2[a1, a3, a4, n]) - S2[a1, a1, a2, n]*
     S2[a1, a4, a3, n] - S2[SP[a1, a1], SP[a1, a3], SP[a2, a4], n] - 
    S2[SP[a1, a1], SP[a1, a4], SP[a2, a3], n] - 
    S2[a1, a4, n]*S2[a1, a1, a2, a3, n] - S2[a1, a4, n]*
     S2[a1, a1, a3, a2, n] + 2*S2[a1, a2, n]*S2[a1, a1, a3, a4, n] + 
    2*S2[a1, a2, n]*S2[a1, a1, a4, a3, n] + S2[a1, a1, SP[a1, a2], 
     SP[a3, a4], n] + S2[a1, a1, SP[a1, a3], SP[a2, a4], n] - 
    S2[a1, a4, n]*S2[a1, a2, a1, a3, n] + S2[a1, a2, SP[a1, a1], SP[a3, a4], 
     n] + S2[a1, a2, n]*S2[a1, a4, a1, a3, n] - S2[a1, a4, SP[a1, a1], 
     SP[a2, a3], n] + S2[a1, SP[a1, a1], a2, SP[a3, a4], n] - 
    S2[a1, SP[a1, a1], a4, SP[a2, a3], n] - S2[a1, SP[a1, a1], SP[a2, a3], 
     a4, n] + S2[a1, SP[a1, a1], SP[a3, a4], a2, n] + 
    S2[a1, SP[a1, a2], a1, SP[a3, a4], n] + S2[a1, SP[a1, a2], SP[a1, a4], 
     a3, n] + S2[a1, SP[a1, a3], a1, SP[a2, a4], n] + 
    S2[a1, SP[a1, a3], SP[a1, a4], a2, n] - S2[a1, SP[a1, a4], SP[a1, a2], 
     a3, n] + S2[a1, SP[a1, a4], SP[a1, a3], a2, n] + 
    S2[SP[a1, a1], a1, a2, SP[a3, a4], n] - S2[SP[a1, a1], a1, a4, 
     SP[a2, a3], n] - S2[SP[a1, a1], a1, SP[a2, a3], a4, n] + 
    S2[SP[a1, a1], a1, SP[a3, a4], a2, n] + S2[SP[a1, a1], a2, a1, 
     SP[a3, a4], n] + S2[SP[a1, a1], a2, SP[a1, a4], a3, n] + 
    S2[SP[a1, a1], a3, a1, SP[a2, a4], n] + S2[SP[a1, a1], a3, SP[a1, a4], 
     a2, n] - S2[SP[a1, a1], a4, SP[a1, a2], a3, n] + 
    S2[SP[a1, a1], a4, SP[a1, a3], a2, n] - 
    2*S2[SP[a1, a1], SP[a1, a2], a3, a4, n] - 
    2*S2[SP[a1, a1], SP[a1, a2], a4, a3, n] + S2[SP[a1, a1], SP[a1, a3], a2, 
     a4, n] + S2[SP[a1, a1], SP[a1, a3], a4, a2, n] + 
    2*S2[SP[a1, a1], SP[a1, a4], a2, a3, n] + 
    2*S2[SP[a1, a1], SP[a1, a4], a3, a2, n] - 
    3*S2[a1, a1, a1, a2, SP[a3, a4], n] + 
    3*S2[a1, a1, a1, a4, SP[a2, a3], n] + 
    3*S2[a1, a1, a1, SP[a2, a3], a4, n] - 
    3*S2[a1, a1, a1, SP[a3, a4], a2, n] - 
    3*S2[a1, a1, a2, a1, SP[a3, a4], n] - S2[a1, a1, a2, SP[a1, a3], a4, n] - 
    2*S2[a1, a1, a2, SP[a1, a4], a3, n] + 
    S2[a2, n]*S2[a1, a1, a3, a1, a4, n] + 
    2*S2[a1, a1, a4, a1, SP[a2, a3], n] + 
    2*S2[a1, a1, a4, SP[a1, a2], a3, n] + 
    2*S2[a1, a1, SP[a1, a2], a3, a4, n] + 
    2*S2[a1, a1, SP[a1, a2], a4, a3, n] - S2[a1, a1, SP[a1, a3], a2, a4, n] - 
    S2[a1, a1, SP[a1, a3], a4, a2, n] - 2*S2[a1, a1, SP[a1, a4], a2, a3, n] - 
    2*S2[a1, a1, SP[a1, a4], a3, a2, n] + S2[a1, a1, SP[a2, a3], a1, a4, n] - 
    2*S2[a1, a2, a1, a1, SP[a3, a4], n] - S2[a1, a2, a1, SP[a1, a3], a4, n] - 
    S2[a1, a2, a1, SP[a1, a4], a3, n] - S2[a1, a2, SP[a1, a1], a3, a4, n] - 
    S2[a1, a2, SP[a1, a1], a4, a3, n] + S2[a4, n]*S2[a1, a3, a1, a1, a2, n] + 
    S2[a1, a4, a1, a1, SP[a2, a3], n] + S2[a1, a4, a1, SP[a1, a2], a3, n] + 
    S2[a1, a4, SP[a1, a1], a2, a3, n] + S2[a1, a4, SP[a1, a1], a3, a2, n] - 
    S2[a1, a4, SP[a1, a3], a1, a2, n] + S2[a1, SP[a1, a2], a1, a3, a4, n] + 
    S2[a1, SP[a1, a2], a1, a4, a3, n] + S2[a1, SP[a1, a2], a3, a1, a4, n] - 
    S2[a1, SP[a1, a3], a1, a2, a4, n] - S2[a1, SP[a1, a3], a1, a4, a2, n] - 
    S2[a1, SP[a1, a3], a4, a1, a2, n] - S2[a1, SP[a1, a4], a1, a2, a3, n] - 
    S2[a1, SP[a1, a4], a1, a3, a2, n] - S2[a1, SP[a1, a4], a3, a1, a2, n] + 
    S2[a1, SP[a3, a4], a1, a1, a2, n] + S2[SP[a1, a1], a2, a1, a3, a4, n] + 
    S2[SP[a1, a1], a2, a1, a4, a3, n] - S2[SP[a1, a1], a3, a1, a2, a4, n] - 
    S2[SP[a1, a1], a3, a1, a4, a2, n] - S2[SP[a1, a1], a3, a4, a1, a2, n] - 
    S2[SP[a1, a1], a4, a1, a2, a3, n] - S2[SP[a1, a1], a4, a1, a3, a2, n] - 
    S2[SP[a1, a1], a4, a3, a1, a2, n] + S2[SP[a1, a2], a1, a3, a1, a4, n] + 
    S2[SP[a1, a4], a3, a1, a1, a2, n] - S2[a4, a1, a3, a1, a1, a2, n] /; 
   MyMemberQ[{{a2, a3, a4}}, {a1, a1, a1, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a2_, a1_, a1_, a3_, a4_, a1_, n_] :> 
  S2[a1, a1, a2, n]*S2[a1, a4, a3, n] + S2[SP[a1, a1], SP[a1, a4], 
     SP[a2, a3], n] + S2[a1, a4, n]*S2[a1, a1, a2, a3, n] + 
    S2[a1, a4, n]*S2[a1, a1, a3, a2, n] - 2*S2[a1, a2, n]*
     S2[a1, a1, a4, a3, n] - S2[a1, a1, SP[a1, a2], SP[a3, a4], n] - 
    S2[a1, a1, SP[a1, a3], SP[a2, a4], n] + S2[a1, a4, n]*
     S2[a1, a2, a1, a3, n] - S2[a1, a2, SP[a1, a1], SP[a3, a4], n] - 
    S2[a1, a2, n]*S2[a1, a4, a1, a3, n] + S2[a1, a4, SP[a1, a1], SP[a2, a3], 
     n] - S2[a1, SP[a1, a1], a2, SP[a3, a4], n] - S2[a1, SP[a1, a1], a3, 
     SP[a2, a4], n] + S2[a1, SP[a1, a1], a4, SP[a2, a3], n] - 
    S2[a1, SP[a1, a1], SP[a3, a4], a2, n] - S2[a1, SP[a1, a2], a1, 
     SP[a3, a4], n] - S2[a1, SP[a1, a2], SP[a1, a4], a3, n] + 
    S2[a1, SP[a1, a4], SP[a1, a2], a3, n] - S2[a1, SP[a1, a4], SP[a1, a3], 
     a2, n] - S2[SP[a1, a1], a1, a2, SP[a3, a4], n] - 
    S2[SP[a1, a1], a1, a3, SP[a2, a4], n] + S2[SP[a1, a1], a1, a4, 
     SP[a2, a3], n] - S2[SP[a1, a1], a1, SP[a3, a4], a2, n] - 
    S2[SP[a1, a1], a2, a1, SP[a3, a4], n] - S2[SP[a1, a1], a2, SP[a1, a4], 
     a3, n] + S2[SP[a1, a1], a4, SP[a1, a2], a3, n] - 
    S2[SP[a1, a1], a4, SP[a1, a3], a2, n] + 
    2*S2[SP[a1, a1], SP[a1, a2], a4, a3, n] - 
    2*S2[SP[a1, a1], SP[a1, a4], a2, a3, n] - 
    2*S2[SP[a1, a1], SP[a1, a4], a3, a2, n] + 
    3*S2[a1, a1, a1, a2, SP[a3, a4], n] - 
    3*S2[a2, n]*S2[a1, a1, a1, a3, a4, n] - 
    3*S2[a1, a1, a1, a4, SP[a2, a3], n] - 
    3*S2[a1, a1, a1, SP[a2, a3], a4, n] + 
    3*S2[a1, a1, a1, SP[a3, a4], a2, n] + 
    3*S2[a1, a1, a2, a1, SP[a3, a4], n] + S2[a1, a1, a2, SP[a1, a3], a4, n] + 
    2*S2[a1, a1, a2, SP[a1, a4], a3, n] - 
    S2[a2, n]*S2[a1, a1, a3, a1, a4, n] - 
    2*S2[a1, a1, a4, a1, SP[a2, a3], n] - 
    2*S2[a1, a1, a4, SP[a1, a2], a3, n] - 
    2*S2[a1, a1, SP[a1, a2], a3, a4, n] - 
    2*S2[a1, a1, SP[a1, a2], a4, a3, n] + S2[a1, a1, SP[a1, a3], a2, a4, n] + 
    S2[a1, a1, SP[a1, a3], a4, a2, n] + 2*S2[a1, a1, SP[a1, a4], a2, a3, n] + 
    2*S2[a1, a1, SP[a1, a4], a3, a2, n] - S2[a1, a1, SP[a2, a3], a1, a4, n] + 
    2*S2[a1, a2, a1, a1, SP[a3, a4], n] + S2[a1, a2, a1, SP[a1, a3], a4, n] + 
    S2[a1, a2, a1, SP[a1, a4], a3, n] + S2[a1, a2, SP[a1, a1], a3, a4, n] + 
    S2[a1, a2, SP[a1, a1], a4, a3, n] - S2[a1, a4, a1, a1, SP[a2, a3], n] - 
    S2[a1, a4, a1, SP[a1, a2], a3, n] - S2[a1, a4, SP[a1, a1], a2, a3, n] - 
    S2[a1, a4, SP[a1, a1], a3, a2, n] + S2[a1, a4, SP[a1, a3], a1, a2, n] + 
    S2[a1, SP[a1, a1], a2, a3, a4, n] + S2[a1, SP[a1, a1], a3, a2, a4, n] + 
    S2[a1, SP[a1, a1], a3, a4, a2, n] - 2*S2[a1, SP[a1, a2], a1, a3, a4, n] - 
    S2[a1, SP[a1, a2], a1, a4, a3, n] - S2[a1, SP[a1, a2], a3, a1, a4, n] + 
    S2[a1, SP[a1, a4], a1, a2, a3, n] + S2[a1, SP[a1, a4], a1, a3, a2, n] + 
    S2[a1, SP[a1, a4], a3, a1, a2, n] + S2[a1, n]*S2[a2, a1, a1, a3, a4, n] + 
    S2[a2, a1, a1, a3, SP[a1, a4], n] + S2[a2, a1, a1, SP[a1, a3], a4, n] + 
    S2[a2, a1, SP[a1, a1], a3, a4, n] + S2[a2, SP[a1, a1], a1, a3, a4, n] - 
    S2[a1, n]*S2[a4, a3, a1, a1, a2, n] - S2[a4, a3, a1, a1, SP[a1, a2], n] - 
    S2[a4, a3, a1, SP[a1, a1], a2, n] - S2[a4, a3, SP[a1, a1], a1, a2, n] - 
    S2[a4, SP[a1, a3], a1, a1, a2, n] + S2[SP[a1, a1], a1, a2, a3, a4, n] + 
    S2[SP[a1, a1], a1, a3, a2, a4, n] + S2[SP[a1, a1], a1, a3, a4, a2, n] + 
    S2[SP[a1, a1], a2, a1, a3, a4, n] - S2[SP[a1, a1], a2, a1, a4, a3, n] + 
    S2[SP[a1, a1], a4, a1, a2, a3, n] + S2[SP[a1, a1], a4, a1, a3, a2, n] + 
    S2[SP[a1, a1], a4, a3, a1, a2, n] - 2*S2[SP[a1, a2], a1, a1, a3, a4, n] - 
    S2[SP[a1, a2], a1, a3, a1, a4, n] - S2[SP[a1, a4], a3, a1, a1, a2, n] + 
    S2[a4, a1, a3, a1, a1, a2, n] + 3*S2[a4, a3, a1, a1, a1, a2, n] + 
    S2[a4, a3, a1, a1, a2, a1, n] /; 
   MyMemberQ[{{a2, a3, a4}}, {a1, a1, a1, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a2_, a1_, a1_, a4_, a1_, a3_, n_] :> 
  -(S2[a1, a1, a2, n]*S2[a1, a3, a4, n]) - S2[a1, a1, a2, n]*
     S2[a1, a4, a3, n] - S2[SP[a1, a1], SP[a1, a3], SP[a2, a4], n] - 
    S2[SP[a1, a1], SP[a1, a4], SP[a2, a3], n] + 
    2*S2[a1, a1, SP[a1, a3], SP[a2, a4], n] + 
    2*S2[a1, a1, SP[a1, a4], SP[a2, a3], n] - 
    S2[a1, a2, n]*S2[a1, a4, a1, a3, n] + S2[a1, a4, SP[a1, a1], SP[a2, a3], 
     n] + S2[a1, SP[a1, a1], a3, SP[a2, a4], n] + S2[a1, SP[a1, a1], a4, 
     SP[a2, a3], n] + S2[a1, SP[a1, a1], SP[a2, a3], a4, n] + 
    S2[a1, SP[a1, a1], SP[a2, a4], a3, n] + S2[a1, SP[a1, a3], a1, 
     SP[a2, a4], n] + S2[a1, SP[a1, a3], SP[a1, a4], a2, n] + 
    2*S2[a1, SP[a1, a4], a1, SP[a2, a3], n] + S2[a1, SP[a1, a4], SP[a1, a2], 
     a3, n] + S2[a1, SP[a1, a4], SP[a1, a3], a2, n] + 
    S2[SP[a1, a1], a1, a3, SP[a2, a4], n] + S2[SP[a1, a1], a1, a4, 
     SP[a2, a3], n] + S2[SP[a1, a1], a1, SP[a2, a3], a4, n] + 
    S2[SP[a1, a1], a1, SP[a2, a4], a3, n] + S2[SP[a1, a1], a3, a1, 
     SP[a2, a4], n] + S2[SP[a1, a1], a3, SP[a1, a4], a2, n] + 
    2*S2[SP[a1, a1], a4, a1, SP[a2, a3], n] + S2[SP[a1, a1], a4, SP[a1, a2], 
     a3, n] + S2[SP[a1, a1], a4, SP[a1, a3], a2, n] + 
    S2[SP[a1, a1], SP[a1, a3], a2, a4, n] + S2[SP[a1, a1], SP[a1, a3], a4, 
     a2, n] + S2[SP[a1, a1], SP[a1, a4], a2, a3, n] + 
    S2[SP[a1, a1], SP[a1, a4], a3, a2, n] + S2[SP[a1, a1], SP[a2, a4], a1, 
     a3, n] + 3*S2[a4, n]*S2[a1, a1, a1, a2, a3, n] + 
    3*S2[a1, a1, a1, a2, SP[a3, a4], n] + 
    3*S2[a4, n]*S2[a1, a1, a1, a3, a2, n] - 
    3*S2[a1, a1, a1, a4, SP[a2, a3], n] - 
    3*S2[a1, a1, a1, SP[a2, a3], a4, n] + 
    3*S2[a1, a1, a1, SP[a3, a4], a2, n] + 
    S2[a4, n]*S2[a1, a1, a2, a1, a3, n] + S2[a1, a1, a2, a1, SP[a3, a4], n] + 
    S2[a1, a1, a2, SP[a1, a4], a3, n] + 2*S2[a4, n]*
     S2[a1, a1, a3, a1, a2, n] + S2[a2, n]*S2[a1, a1, a4, a1, a3, n] - 
    3*S2[a1, a1, a4, a1, SP[a2, a3], n] - S2[a1, a1, a4, SP[a1, a2], a3, n] - 
    2*S2[a1, a1, a4, SP[a1, a3], a2, n] - S2[a1, a1, SP[a1, a2], a3, a4, n] - 
    S2[a1, a1, SP[a1, a2], a4, a3, n] - 2*S2[a1, a1, SP[a1, a3], a2, a4, n] - 
    2*S2[a1, a1, SP[a1, a3], a4, a2, n] + S2[a1, a1, SP[a1, a4], a2, a3, n] + 
    S2[a1, a1, SP[a1, a4], a3, a2, n] + 2*S2[a1, a1, SP[a3, a4], a1, a2, n] + 
    S2[a4, n]*S2[a1, a3, a1, a1, a2, n] - 
    3*S2[a1, a4, a1, a1, SP[a2, a3], n] - S2[a1, a4, a1, SP[a1, a2], a3, n] - 
    2*S2[a1, a4, a1, SP[a1, a3], a2, n] - S2[a1, a4, SP[a1, a1], a2, a3, n] - 
    S2[a1, a4, SP[a1, a1], a3, a2, n] - S2[a1, a4, SP[a1, a3], a1, a2, n] - 
    S2[a1, SP[a1, a1], a2, a3, a4, n] - S2[a1, SP[a1, a1], a2, a4, a3, n] - 
    S2[a1, SP[a1, a1], a3, a2, a4, n] - S2[a1, SP[a1, a1], a3, a4, a2, n] - 
    S2[a1, SP[a1, a1], a4, a2, a3, n] - S2[a1, SP[a1, a1], a4, a3, a2, n] - 
    S2[a1, SP[a1, a3], a1, a2, a4, n] - S2[a1, SP[a1, a3], a1, a4, a2, n] - 
    S2[a1, SP[a1, a3], a4, a1, a2, n] + S2[a1, SP[a1, a4], a1, a2, a3, n] + 
    S2[a1, SP[a1, a4], a1, a3, a2, n] + S2[a1, SP[a1, a4], a3, a1, a2, n] + 
    S2[a1, SP[a3, a4], a1, a1, a2, n] - S2[SP[a1, a1], a1, a2, a3, a4, n] - 
    S2[SP[a1, a1], a1, a2, a4, a3, n] - S2[SP[a1, a1], a1, a3, a2, a4, n] - 
    S2[SP[a1, a1], a1, a3, a4, a2, n] - S2[SP[a1, a1], a1, a4, a2, a3, n] - 
    S2[SP[a1, a1], a1, a4, a3, a2, n] - S2[SP[a1, a1], a2, a4, a1, a3, n] - 
    S2[SP[a1, a1], a3, a1, a2, a4, n] - S2[SP[a1, a1], a3, a1, a4, a2, n] - 
    S2[SP[a1, a1], a3, a4, a1, a2, n] - 2*S2[SP[a1, a1], a4, a1, a2, a3, n] - 
    2*S2[SP[a1, a1], a4, a1, a3, a2, n] - S2[SP[a1, a1], a4, a2, a1, a3, n] - 
    S2[SP[a1, a1], a4, a3, a1, a2, n] + S2[SP[a1, a2], a1, a4, a1, a3, n] + 
    3*S2[SP[a1, a4], a1, a1, a2, a3, n] + 
    3*S2[SP[a1, a4], a1, a1, a3, a2, n] + S2[SP[a1, a4], a1, a2, a1, a3, n] + 
    2*S2[SP[a1, a4], a1, a3, a1, a2, n] + S2[SP[a1, a4], a3, a1, a1, a2, n] - 
    3*S2[a4, a1, a1, a1, a2, a3, n] - 3*S2[a4, a1, a1, a1, a3, a2, n] - 
    S2[a4, a1, a1, a2, a1, a3, n] - 2*S2[a4, a1, a1, a3, a1, a2, n] - 
    S2[a4, a1, a3, a1, a1, a2, n] /; 
   MyMemberQ[{{a2, a3, a4}}, {a1, a1, a1, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a2_, a1_, a1_, a4_, a3_, a1_, n_] :> 
  S2[a1, a1, a2, n]*S2[a1, a3, a4, n] + S2[SP[a1, a1], SP[a1, a3], 
     SP[a2, a4], n] + 2*S2[a1, a2, n]*S2[a1, a1, a4, a3, n] - 
    2*S2[a1, a1, SP[a1, a3], SP[a2, a4], n] - 
    2*S2[a1, a1, SP[a1, a4], SP[a2, a3], n] + 
    S2[a1, a2, n]*S2[a1, a4, a1, a3, n] - S2[a1, a4, SP[a1, a1], SP[a2, a3], 
     n] - S2[a1, SP[a1, a1], a3, SP[a2, a4], n] - 
    2*S2[a1, SP[a1, a1], a4, SP[a2, a3], n] - S2[a1, SP[a1, a1], SP[a2, a3], 
     a4, n] - 2*S2[a1, SP[a1, a1], SP[a2, a4], a3, n] - 
    S2[a1, SP[a1, a3], a1, SP[a2, a4], n] - S2[a1, SP[a1, a3], SP[a1, a4], 
     a2, n] - S2[a1, SP[a1, a4], a1, SP[a2, a3], n] - 
    S2[a1, SP[a1, a4], SP[a1, a2], a3, n] - S2[SP[a1, a1], a1, a3, 
     SP[a2, a4], n] - 2*S2[SP[a1, a1], a1, a4, SP[a2, a3], n] - 
    S2[SP[a1, a1], a1, SP[a2, a3], a4, n] - 
    2*S2[SP[a1, a1], a1, SP[a2, a4], a3, n] - S2[SP[a1, a1], a3, a1, 
     SP[a2, a4], n] - S2[SP[a1, a1], a3, SP[a1, a4], a2, n] - 
    S2[SP[a1, a1], a4, a1, SP[a2, a3], n] - S2[SP[a1, a1], a4, SP[a1, a2], 
     a3, n] - 2*S2[SP[a1, a1], SP[a1, a2], a4, a3, n] - 
    S2[SP[a1, a1], SP[a1, a3], a2, a4, n] - S2[SP[a1, a1], SP[a1, a3], a4, 
     a2, n] - S2[SP[a1, a1], SP[a2, a4], a1, a3, n] - 
    3*S2[a4, n]*S2[a1, a1, a1, a2, a3, n] - 
    3*S2[a1, a1, a1, a2, SP[a3, a4], n] - 
    3*S2[a4, n]*S2[a1, a1, a1, a3, a2, n] - 
    3*S2[a2, n]*S2[a1, a1, a1, a4, a3, n] + 
    3*S2[a1, a1, a1, a4, SP[a2, a3], n] + 
    3*S2[a1, a1, a1, SP[a2, a3], a4, n] - 
    3*S2[a1, a1, a1, SP[a3, a4], a2, n] - 
    S2[a4, n]*S2[a1, a1, a2, a1, a3, n] - S2[a1, a1, a2, a1, SP[a3, a4], n] - 
    S2[a1, a1, a2, SP[a1, a4], a3, n] - 2*S2[a4, n]*
     S2[a1, a1, a3, a1, a2, n] - S2[a2, n]*S2[a1, a1, a4, a1, a3, n] + 
    3*S2[a1, a1, a4, a1, SP[a2, a3], n] + S2[a1, a1, a4, SP[a1, a2], a3, n] + 
    2*S2[a1, a1, a4, SP[a1, a3], a2, n] + S2[a1, a1, SP[a1, a2], a3, a4, n] + 
    S2[a1, a1, SP[a1, a2], a4, a3, n] + 2*S2[a1, a1, SP[a1, a3], a2, a4, n] + 
    2*S2[a1, a1, SP[a1, a3], a4, a2, n] - S2[a1, a1, SP[a1, a4], a2, a3, n] - 
    S2[a1, a1, SP[a1, a4], a3, a2, n] - 2*S2[a1, a1, SP[a3, a4], a1, a2, n] - 
    S2[a4, n]*S2[a1, a3, a1, a1, a2, n] + 
    2*S2[a1, a4, a1, a1, SP[a2, a3], n] + S2[a1, a4, a1, SP[a1, a2], a3, n] + 
    S2[a1, a4, a1, SP[a1, a3], a2, n] + S2[a1, a4, SP[a1, a1], a2, a3, n] + 
    S2[a1, a4, SP[a1, a1], a3, a2, n] + S2[a1, SP[a1, a1], a2, a3, a4, n] + 
    2*S2[a1, SP[a1, a1], a2, a4, a3, n] + S2[a1, SP[a1, a1], a3, a2, a4, n] + 
    S2[a1, SP[a1, a1], a3, a4, a2, n] + 2*S2[a1, SP[a1, a1], a4, a2, a3, n] + 
    2*S2[a1, SP[a1, a1], a4, a3, a2, n] - S2[a1, SP[a1, a2], a1, a4, a3, n] + 
    S2[a1, SP[a1, a3], a1, a2, a4, n] + S2[a1, SP[a1, a3], a1, a4, a2, n] + 
    S2[a1, SP[a1, a3], a4, a1, a2, n] - 2*S2[a1, SP[a1, a4], a1, a2, a3, n] - 
    2*S2[a1, SP[a1, a4], a1, a3, a2, n] - 
    2*S2[a1, SP[a1, a4], a3, a1, a2, n] - S2[a1, SP[a3, a4], a1, a1, a2, n] + 
    S2[a1, n]*S2[a2, a1, a1, a4, a3, n] + S2[a2, a1, a1, a4, SP[a1, a3], n] + 
    S2[a2, a1, a1, SP[a1, a4], a3, n] + S2[a2, a1, SP[a1, a1], a4, a3, n] + 
    S2[a2, SP[a1, a1], a1, a4, a3, n] + S2[a1, n]*S2[a4, a1, a1, a2, a3, n] + 
    S2[a4, a1, a1, a2, SP[a1, a3], n] + S2[a1, n]*S2[a4, a1, a1, a3, a2, n] + 
    S2[a4, a1, a1, a3, SP[a1, a2], n] + S2[a4, a1, a1, SP[a1, a2], a3, n] + 
    S2[a4, a1, a1, SP[a1, a3], a2, n] + S2[a1, n]*S2[a4, a1, a3, a1, a2, n] + 
    S2[a4, a1, a3, a1, SP[a1, a2], n] + S2[a4, a1, a3, SP[a1, a1], a2, n] + 
    S2[a4, a1, SP[a1, a1], a2, a3, n] + S2[a4, a1, SP[a1, a1], a3, a2, n] + 
    S2[a4, a1, SP[a1, a3], a1, a2, n] + S2[a1, n]*S2[a4, a3, a1, a1, a2, n] + 
    S2[a4, a3, a1, a1, SP[a1, a2], n] + S2[a4, a3, a1, SP[a1, a1], a2, n] + 
    S2[a4, a3, SP[a1, a1], a1, a2, n] + S2[a4, SP[a1, a1], a1, a2, a3, n] + 
    S2[a4, SP[a1, a1], a1, a3, a2, n] + S2[a4, SP[a1, a1], a3, a1, a2, n] + 
    S2[a4, SP[a1, a3], a1, a1, a2, n] + S2[SP[a1, a1], a1, a2, a3, a4, n] + 
    2*S2[SP[a1, a1], a1, a2, a4, a3, n] + S2[SP[a1, a1], a1, a3, a2, a4, n] + 
    S2[SP[a1, a1], a1, a3, a4, a2, n] + 2*S2[SP[a1, a1], a1, a4, a2, a3, n] + 
    2*S2[SP[a1, a1], a1, a4, a3, a2, n] + 
    2*S2[SP[a1, a1], a2, a1, a4, a3, n] + S2[SP[a1, a1], a2, a4, a1, a3, n] + 
    S2[SP[a1, a1], a3, a1, a2, a4, n] + S2[SP[a1, a1], a3, a1, a4, a2, n] + 
    S2[SP[a1, a1], a3, a4, a1, a2, n] + S2[SP[a1, a1], a4, a1, a2, a3, n] + 
    S2[SP[a1, a1], a4, a1, a3, a2, n] + S2[SP[a1, a1], a4, a2, a1, a3, n] - 
    2*S2[SP[a1, a2], a1, a1, a4, a3, n] - S2[SP[a1, a2], a1, a4, a1, a3, n] - 
    2*S2[SP[a1, a4], a1, a1, a2, a3, n] - 
    2*S2[SP[a1, a4], a1, a1, a3, a2, n] - S2[SP[a1, a4], a1, a2, a1, a3, n] - 
    S2[SP[a1, a4], a1, a3, a1, a2, n] - S2[a4, a1, a1, a2, a3, a1, n] - 
    S2[a4, a1, a1, a3, a1, a2, n] - S2[a4, a1, a1, a3, a2, a1, n] - 
    2*S2[a4, a1, a3, a1, a1, a2, n] - S2[a4, a1, a3, a1, a2, a1, n] - 
    3*S2[a4, a3, a1, a1, a1, a2, n] - S2[a4, a3, a1, a1, a2, a1, n] /; 
   MyMemberQ[{{a2, a3, a4}}, {a1, a1, a1, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a2_, a1_, a3_, a1_, a1_, a4_, n_] :> 
  -(S2[a1, a1, a4, n]*S2[a1, a2, a3, n]) - S2[a1, a1, a4, n]*
     S2[a1, a3, a2, n] - S2[SP[a1, a1], SP[a1, a2], SP[a3, a4], n] - 
    S2[SP[a1, a1], SP[a1, a3], SP[a2, a4], n] + 
    2*S2[a1, a4, n]*S2[a1, a1, a2, a3, n] + 2*S2[a1, a4, n]*
     S2[a1, a1, a3, a2, n] - S2[a1, a2, n]*S2[a1, a1, a3, a4, n] - 
    S2[a1, a2, n]*S2[a1, a1, a4, a3, n] + S2[a1, a1, SP[a1, a3], SP[a2, a4], 
     n] + S2[a1, a1, SP[a1, a4], SP[a2, a3], n] + 
    S2[a1, a4, n]*S2[a1, a2, a1, a3, n] - S2[a1, a2, SP[a1, a1], SP[a3, a4], 
     n] - S2[a1, a2, n]*S2[a1, a4, a1, a3, n] + S2[a1, a4, SP[a1, a1], 
     SP[a2, a3], n] - S2[a1, SP[a1, a1], a2, SP[a3, a4], n] + 
    S2[a1, SP[a1, a1], a4, SP[a2, a3], n] + S2[a1, SP[a1, a1], SP[a2, a3], 
     a4, n] - S2[a1, SP[a1, a1], SP[a3, a4], a2, n] + 
    S2[a1, SP[a1, a2], SP[a1, a3], a4, n] - S2[a1, SP[a1, a2], SP[a1, a4], 
     a3, n] + S2[a1, SP[a1, a3], a1, SP[a2, a4], n] + 
    S2[a1, SP[a1, a3], SP[a1, a2], a4, n] + S2[a1, SP[a1, a4], a1, 
     SP[a2, a3], n] + S2[a1, SP[a1, a4], SP[a1, a2], a3, n] - 
    S2[SP[a1, a1], a1, a2, SP[a3, a4], n] + S2[SP[a1, a1], a1, a4, 
     SP[a2, a3], n] + S2[SP[a1, a1], a1, SP[a2, a3], a4, n] - 
    S2[SP[a1, a1], a1, SP[a3, a4], a2, n] + S2[SP[a1, a1], a2, SP[a1, a3], 
     a4, n] - S2[SP[a1, a1], a2, SP[a1, a4], a3, n] + 
    S2[SP[a1, a1], a3, a1, SP[a2, a4], n] + S2[SP[a1, a1], a3, SP[a1, a2], 
     a4, n] + S2[SP[a1, a1], a4, a1, SP[a2, a3], n] + 
    S2[SP[a1, a1], a4, SP[a1, a2], a3, n] + 
    2*S2[SP[a1, a1], SP[a1, a2], a3, a4, n] + 
    2*S2[SP[a1, a1], SP[a1, a2], a4, a3, n] + S2[SP[a1, a1], SP[a1, a3], a2, 
     a4, n] + S2[SP[a1, a1], SP[a1, a3], a4, a2, n] - 
    2*S2[SP[a1, a1], SP[a1, a4], a2, a3, n] - 
    2*S2[SP[a1, a1], SP[a1, a4], a3, a2, n] + 
    3*S2[a1, a1, a1, a2, SP[a3, a4], n] - 
    3*S2[a1, a1, a1, a4, SP[a2, a3], n] - 
    3*S2[a1, a1, a1, SP[a2, a3], a4, n] + 
    3*S2[a1, a1, a1, SP[a3, a4], a2, n] + 
    2*S2[a1, a1, a2, a1, SP[a3, a4], n] + 
    2*S2[a1, a1, a2, SP[a1, a4], a3, n] + 
    S2[a4, n]*S2[a1, a1, a3, a1, a2, n] - 
    3*S2[a1, a1, a4, a1, SP[a2, a3], n] - 
    2*S2[a1, a1, a4, SP[a1, a2], a3, n] - S2[a1, a1, a4, SP[a1, a3], a2, n] - 
    2*S2[a1, a1, SP[a1, a2], a3, a4, n] - 
    2*S2[a1, a1, SP[a1, a2], a4, a3, n] - S2[a1, a1, SP[a1, a3], a2, a4, n] - 
    S2[a1, a1, SP[a1, a3], a4, a2, n] + 2*S2[a1, a1, SP[a1, a4], a2, a3, n] + 
    2*S2[a1, a1, SP[a1, a4], a3, a2, n] + S2[a1, a1, SP[a3, a4], a1, a2, n] + 
    S2[a1, a2, a1, a1, SP[a3, a4], n] + S2[a1, a2, a1, SP[a1, a4], a3, n] + 
    S2[a1, a2, SP[a1, a1], a3, a4, n] + S2[a1, a2, SP[a1, a1], a4, a3, n] - 
    S2[a1, a2, SP[a1, a3], a1, a4, n] + S2[a2, n]*S2[a1, a3, a1, a1, a4, n] - 
    2*S2[a1, a4, a1, a1, SP[a2, a3], n] - S2[a1, a4, a1, SP[a1, a2], a3, n] - 
    S2[a1, a4, a1, SP[a1, a3], a2, n] - S2[a1, a4, SP[a1, a1], a2, a3, n] - 
    S2[a1, a4, SP[a1, a1], a3, a2, n] - S2[a1, SP[a1, a2], a1, a3, a4, n] - 
    S2[a1, SP[a1, a2], a1, a4, a3, n] - S2[a1, SP[a1, a2], a3, a1, a4, n] - 
    S2[a1, SP[a1, a3], a1, a2, a4, n] - S2[a1, SP[a1, a3], a1, a4, a2, n] - 
    S2[a1, SP[a1, a3], a2, a1, a4, n] + S2[a1, SP[a1, a4], a1, a2, a3, n] + 
    S2[a1, SP[a1, a4], a1, a3, a2, n] + S2[a1, SP[a1, a4], a3, a1, a2, n] + 
    S2[a1, SP[a2, a3], a1, a1, a4, n] - S2[SP[a1, a1], a2, a1, a3, a4, n] - 
    S2[SP[a1, a1], a2, a1, a4, a3, n] - S2[SP[a1, a1], a2, a3, a1, a4, n] - 
    S2[SP[a1, a1], a3, a1, a2, a4, n] - S2[SP[a1, a1], a3, a1, a4, a2, n] - 
    S2[SP[a1, a1], a3, a2, a1, a4, n] + S2[SP[a1, a1], a4, a1, a2, a3, n] + 
    S2[SP[a1, a1], a4, a1, a3, a2, n] + S2[SP[a1, a2], a3, a1, a1, a4, n] + 
    S2[SP[a1, a4], a1, a3, a1, a2, n] - S2[a4, a1, a1, a3, a1, a2, n] /; 
   MyMemberQ[{{a2, a3, a4}}, {a1, a1, a1, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a2_, a1_, a3_, a1_, a4_, a1_, n_] :> 
  2*S2[a1, a1, a4, n]*S2[a1, a2, a3, n] + 2*S2[a1, a1, a4, n]*
     S2[a1, a3, a2, n] + 2*S2[SP[a1, a1], SP[a1, a2], SP[a3, a4], n] + 
    2*S2[SP[a1, a1], SP[a1, a3], SP[a2, a4], n] - 
    2*S2[a1, a4, n]*S2[a1, a1, a2, a3, n] - 2*S2[a1, a4, n]*
     S2[a1, a1, a3, a2, n] - 2*S2[a1, a1, SP[a1, a2], SP[a3, a4], n] - 
    2*S2[a1, a1, SP[a1, a3], SP[a2, a4], n] - 
    S2[a1, a4, n]*S2[a1, a2, a1, a3, n] + S2[a1, a2, SP[a1, a1], SP[a3, a4], 
     n] + S2[a1, a2, n]*S2[a1, a4, a1, a3, n] - S2[a1, a4, SP[a1, a1], 
     SP[a2, a3], n] - S2[a1, SP[a1, a2], a1, SP[a3, a4], n] - 
    2*S2[a1, SP[a1, a2], SP[a1, a3], a4, n] + S2[a1, SP[a1, a2], SP[a1, a4], 
     a3, n] - 2*S2[a1, SP[a1, a3], a1, SP[a2, a4], n] - 
    2*S2[a1, SP[a1, a3], SP[a1, a2], a4, n] - S2[a1, SP[a1, a4], a1, 
     SP[a2, a3], n] - S2[a1, SP[a1, a4], SP[a1, a2], a3, n] - 
    S2[SP[a1, a1], a2, a1, SP[a3, a4], n] - 
    2*S2[SP[a1, a1], a2, SP[a1, a3], a4, n] + S2[SP[a1, a1], a2, SP[a1, a4], 
     a3, n] - 2*S2[SP[a1, a1], a3, a1, SP[a2, a4], n] - 
    2*S2[SP[a1, a1], a3, SP[a1, a2], a4, n] - S2[SP[a1, a1], a4, a1, 
     SP[a2, a3], n] - S2[SP[a1, a1], a4, SP[a1, a2], a3, n] - 
    2*S2[SP[a1, a1], SP[a1, a2], a3, a4, n] - 
    2*S2[SP[a1, a1], SP[a1, a2], a4, a3, n] - 
    2*S2[SP[a1, a1], SP[a1, a3], a2, a4, n] - 
    2*S2[SP[a1, a1], SP[a1, a3], a4, a2, n] + 
    2*S2[SP[a1, a1], SP[a1, a4], a2, a3, n] + 
    2*S2[SP[a1, a1], SP[a1, a4], a3, a2, n] + 
    2*S2[a1, a1, a2, SP[a1, a3], a4, n] - 
    2*S2[a1, a1, a2, SP[a1, a4], a3, n] - 
    2*S2[a2, n]*S2[a1, a1, a3, a1, a4, n] + 
    2*S2[a1, a1, a4, a1, SP[a2, a3], n] + 
    2*S2[a1, a1, a4, SP[a1, a2], a3, n] + 
    2*S2[a1, a1, SP[a1, a2], a3, a4, n] + 
    2*S2[a1, a1, SP[a1, a2], a4, a3, n] + 
    2*S2[a1, a1, SP[a1, a3], a2, a4, n] + 
    2*S2[a1, a1, SP[a1, a3], a4, a2, n] - 
    2*S2[a1, a1, SP[a1, a4], a2, a3, n] - 
    2*S2[a1, a1, SP[a1, a4], a3, a2, n] - 
    2*S2[a1, a1, SP[a2, a3], a1, a4, n] + S2[a1, a2, a1, SP[a1, a3], a4, n] - 
    S2[a1, a2, a1, SP[a1, a4], a3, n] - S2[a1, a2, SP[a1, a1], a3, a4, n] - 
    S2[a1, a2, SP[a1, a1], a4, a3, n] + 2*S2[a1, a2, SP[a1, a3], a1, a4, n] - 
    2*S2[a2, n]*S2[a1, a3, a1, a1, a4, n] + 
    2*S2[a1, a4, a1, a1, SP[a2, a3], n] + S2[a1, a4, a1, SP[a1, a2], a3, n] + 
    S2[a1, a4, a1, SP[a1, a3], a2, n] + S2[a1, a4, SP[a1, a1], a2, a3, n] + 
    S2[a1, a4, SP[a1, a1], a3, a2, n] + S2[a1, SP[a1, a2], a1, a3, a4, n] + 
    S2[a1, SP[a1, a2], a1, a4, a3, n] + 2*S2[a1, SP[a1, a3], a1, a2, a4, n] + 
    2*S2[a1, SP[a1, a3], a1, a4, a2, n] + 
    2*S2[a1, SP[a1, a3], a2, a1, a4, n] - S2[a1, SP[a1, a4], a1, a2, a3, n] - 
    S2[a1, SP[a1, a4], a1, a3, a2, n] - 2*S2[a1, SP[a2, a3], a1, a1, a4, n] + 
    S2[a1, n]*S2[a2, a1, a3, a1, a4, n] + S2[a2, a1, a3, a1, SP[a1, a4], n] + 
    S2[a2, a1, a3, SP[a1, a1], a4, n] + S2[a2, a1, SP[a1, a3], a1, a4, n] + 
    S2[a2, SP[a1, a1], a3, a1, a4, n] - S2[a1, n]*S2[a4, a1, a3, a1, a2, n] - 
    S2[a4, a1, a3, a1, SP[a1, a2], n] - S2[a4, a1, a3, SP[a1, a1], a2, n] - 
    S2[a4, a1, SP[a1, a3], a1, a2, n] - S2[a4, SP[a1, a1], a3, a1, a2, n] + 
    S2[SP[a1, a1], a2, a1, a3, a4, n] + S2[SP[a1, a1], a2, a1, a4, a3, n] + 
    2*S2[SP[a1, a1], a2, a3, a1, a4, n] + 
    2*S2[SP[a1, a1], a3, a1, a2, a4, n] + 
    2*S2[SP[a1, a1], a3, a1, a4, a2, n] + 
    2*S2[SP[a1, a1], a3, a2, a1, a4, n] - S2[SP[a1, a1], a4, a1, a2, a3, n] - 
    S2[SP[a1, a1], a4, a1, a3, a2, n] - S2[SP[a1, a2], a1, a3, a1, a4, n] - 
    2*S2[SP[a1, a2], a3, a1, a1, a4, n] - S2[SP[a1, a4], a1, a3, a1, a2, n] + 
    2*S2[a4, a1, a1, a3, a1, a2, n] + 2*S2[a4, a1, a3, a1, a1, a2, n] + 
    S2[a4, a1, a3, a1, a2, a1, n] /; 
   MyMemberQ[{{a2, a3, a4}}, {a1, a1, a1, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a2_, a1_, a3_, a4_, a1_, a1_, n_] :> 
  -(S2[a1, a1, a4, n]*S2[a1, a2, a3, n]) - S2[a1, a1, a4, n]*
     S2[a1, a3, a2, n] - S2[SP[a1, a1], SP[a1, a2], SP[a3, a4], n] - 
    S2[SP[a1, a1], SP[a1, a3], SP[a2, a4], n] + 
    S2[a1, a2, n]*S2[a1, a1, a4, a3, n] + 
    2*S2[a1, a1, SP[a1, a2], SP[a3, a4], n] + 
    2*S2[a1, a1, SP[a1, a3], SP[a2, a4], n] - S2[a1, a1, SP[a1, a4], 
     SP[a2, a3], n] + S2[a1, SP[a1, a1], a2, SP[a3, a4], n] + 
    S2[a1, SP[a1, a1], a3, SP[a2, a4], n] - S2[a1, SP[a1, a1], a4, 
     SP[a2, a3], n] + S2[a1, SP[a1, a1], SP[a3, a4], a2, n] + 
    S2[a1, SP[a1, a2], a1, SP[a3, a4], n] + S2[a1, SP[a1, a2], SP[a1, a3], 
     a4, n] + S2[a1, SP[a1, a3], a1, SP[a2, a4], n] + 
    S2[a1, SP[a1, a3], SP[a1, a2], a4, n] + S2[SP[a1, a1], a1, a2, 
     SP[a3, a4], n] + S2[SP[a1, a1], a1, a3, SP[a2, a4], n] - 
    S2[SP[a1, a1], a1, a4, SP[a2, a3], n] + S2[SP[a1, a1], a1, SP[a3, a4], 
     a2, n] + S2[SP[a1, a1], a2, a1, SP[a3, a4], n] + 
    S2[SP[a1, a1], a2, SP[a1, a3], a4, n] + S2[SP[a1, a1], a3, a1, 
     SP[a2, a4], n] + S2[SP[a1, a1], a3, SP[a1, a2], a4, n] + 
    S2[SP[a1, a1], SP[a1, a2], a3, a4, n] + S2[SP[a1, a1], SP[a1, a3], a2, 
     a4, n] + S2[SP[a1, a1], SP[a1, a3], a4, a2, n] - 
    3*S2[a1, a1, a1, a2, SP[a3, a4], n] + 
    3*S2[a2, n]*S2[a1, a1, a1, a3, a4, n] + 
    3*S2[a1, a1, a1, a4, SP[a2, a3], n] + 
    3*S2[a1, a1, a1, SP[a2, a3], a4, n] - 
    3*S2[a1, a1, a1, SP[a3, a4], a2, n] - 
    2*S2[a1, a1, a2, a1, SP[a3, a4], n] - 
    2*S2[a1, a1, a2, SP[a1, a3], a4, n] + 
    2*S2[a2, n]*S2[a1, a1, a3, a1, a4, n] + S2[a1, a1, a4, a1, SP[a2, a3], 
     n] + S2[a1, a1, a4, SP[a1, a3], a2, n] + S2[a1, a1, SP[a1, a2], a3, a4, 
     n] - 2*S2[a1, a1, SP[a1, a3], a2, a4, n] - 
    2*S2[a1, a1, SP[a1, a3], a4, a2, n] + 
    2*S2[a1, a1, SP[a2, a3], a1, a4, n] - S2[a1, a2, a1, a1, SP[a3, a4], n] - 
    (S2[a1, n]*S2[a1, a2, a1, a3, a4, n])/2 - 
    S2[a1, a2, a1, a3, SP[a1, a4], n]/2 - 
    (3*S2[a1, a2, a1, SP[a1, a3], a4, n])/2 - 
    S2[a1, a2, SP[a1, a1], a3, a4, n]/2 - S2[a1, a2, SP[a1, a3], a1, a4, n] + 
    S2[a2, n]*S2[a1, a3, a1, a1, a4, n] - 
    (S2[a1, n]*S2[a1, a4, a3, a1, a2, n])/2 - 
    S2[a1, a4, a3, a1, SP[a1, a2], n]/2 - S2[a1, a4, a3, SP[a1, a1], a2, n]/
     2 - S2[a1, a4, SP[a1, a3], a1, a2, n]/2 - S2[a1, SP[a1, a1], a2, a3, a4, 
     n] - S2[a1, SP[a1, a1], a3, a2, a4, n] - S2[a1, SP[a1, a1], a3, a4, a2, 
     n] + (3*S2[a1, SP[a1, a2], a1, a3, a4, n])/2 + 
    S2[a1, SP[a1, a2], a3, a1, a4, n] - S2[a1, SP[a1, a3], a1, a2, a4, n] - 
    S2[a1, SP[a1, a3], a1, a4, a2, n] - S2[a1, SP[a1, a3], a2, a1, a4, n] - 
    S2[a1, SP[a1, a4], a3, a1, a2, n]/2 + S2[a1, SP[a2, a3], a1, a1, a4, n] - 
    S2[a1, n]*S2[a2, a1, a1, a3, a4, n] - S2[a2, a1, a1, a3, SP[a1, a4], n] - 
    S2[a2, a1, a1, SP[a1, a3], a4, n] - (S2[a1, n]*S2[a2, a1, a3, a1, a4, n])/
     2 - S2[a2, a1, a3, a1, SP[a1, a4], n]/2 + 
    (S2[a1, n]*S2[a2, a1, a3, a4, a1, n])/2 + 
    S2[a2, a1, a3, a4, SP[a1, a1], n]/2 - S2[a2, a1, a3, SP[a1, a1], a4, n]/
     2 + S2[a2, a1, a3, SP[a1, a4], a1, n]/2 - S2[a2, a1, SP[a1, a1], a3, a4, 
     n] - S2[a2, a1, SP[a1, a3], a1, a4, n]/2 + 
    S2[a2, a1, SP[a1, a3], a4, a1, n]/2 - S2[a2, SP[a1, a1], a1, a3, a4, n] - 
    S2[a2, SP[a1, a1], a3, a1, a4, n]/2 + S2[a2, SP[a1, a1], a3, a4, a1, n]/
     2 + (S2[a1, n]*S2[a4, a1, a3, a1, a2, n])/2 + 
    S2[a4, a1, a3, a1, SP[a1, a2], n]/2 + S2[a4, a1, a3, SP[a1, a1], a2, n]/
     2 + S2[a4, a1, SP[a1, a3], a1, a2, n]/2 + 
    S2[a1, n]*S2[a4, a3, a1, a1, a2, n] + S2[a4, a3, a1, a1, SP[a1, a2], n] + 
    (S2[a1, n]*S2[a4, a3, a1, a2, a1, n])/2 + 
    S2[a4, a3, a1, a2, SP[a1, a1], n]/2 + S2[a4, a3, a1, SP[a1, a1], a2, n] + 
    S2[a4, a3, a1, SP[a1, a2], a1, n]/2 + S2[a4, a3, SP[a1, a1], a1, a2, n] + 
    S2[a4, a3, SP[a1, a1], a2, a1, n]/2 + S2[a4, SP[a1, a1], a3, a1, a2, n]/
     2 + S2[a4, SP[a1, a3], a1, a1, a2, n] + 
    S2[a4, SP[a1, a3], a1, a2, a1, n]/2 - S2[SP[a1, a1], a1, a2, a3, a4, n] - 
    S2[SP[a1, a1], a1, a3, a2, a4, n] - S2[SP[a1, a1], a1, a3, a4, a2, n] - 
    (3*S2[SP[a1, a1], a2, a1, a3, a4, n])/2 - S2[SP[a1, a1], a2, a3, a1, a4, 
     n] - S2[SP[a1, a1], a3, a1, a2, a4, n] - S2[SP[a1, a1], a3, a1, a4, a2, 
     n] - S2[SP[a1, a1], a3, a2, a1, a4, n] - 
    S2[SP[a1, a1], a4, a3, a1, a2, n]/2 + 
    2*S2[SP[a1, a2], a1, a1, a3, a4, n] + 
    (3*S2[SP[a1, a2], a1, a3, a1, a4, n])/2 + 
    S2[SP[a1, a2], a1, a3, a4, a1, n]/2 + S2[SP[a1, a2], a3, a1, a1, a4, n] + 
    S2[SP[a1, a4], a1, a3, a1, a2, n]/2 + S2[SP[a1, a4], a3, a1, a1, a2, n] + 
    S2[SP[a1, a4], a3, a1, a2, a1, n]/2 - S2[a4, a1, a1, a3, a1, a2, n] - 
    2*S2[a4, a1, a3, a1, a1, a2, n] - S2[a4, a1, a3, a1, a2, a1, n] - 
    3*S2[a4, a3, a1, a1, a1, a2, n] - 2*S2[a4, a3, a1, a1, a2, a1, n] - 
    S2[a4, a3, a1, a2, a1, a1, n] /; 
   MyMemberQ[{{a2, a3, a4}}, {a1, a1, a1, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a2_, a1_, a4_, a1_, a1_, a3_, n_] :> 
  S2[a1, a2, n]*S2[a1, a1, a3, a4, n] + S2[a1, a2, n]*S2[a1, a1, a4, a3, n] - 
    S2[a1, a1, SP[a1, a3], SP[a2, a4], n] - S2[a1, a1, SP[a1, a4], 
     SP[a2, a3], n] + S2[a1, a2, n]*S2[a1, a4, a1, a3, n] - 
    S2[a1, a4, SP[a1, a1], SP[a2, a3], n] - S2[a1, SP[a1, a1], a3, 
     SP[a2, a4], n] - S2[a1, SP[a1, a1], a4, SP[a2, a3], n] - 
    S2[a1, SP[a1, a1], SP[a2, a3], a4, n] - S2[a1, SP[a1, a1], SP[a2, a4], 
     a3, n] - S2[a1, SP[a1, a4], a1, SP[a2, a3], n] - 
    S2[a1, SP[a1, a4], SP[a1, a2], a3, n] - S2[SP[a1, a1], a1, a3, 
     SP[a2, a4], n] - S2[SP[a1, a1], a1, a4, SP[a2, a3], n] - 
    S2[SP[a1, a1], a1, SP[a2, a3], a4, n] - S2[SP[a1, a1], a1, SP[a2, a4], 
     a3, n] - S2[SP[a1, a1], a4, a1, SP[a2, a3], n] - 
    S2[SP[a1, a1], a4, SP[a1, a2], a3, n] - S2[SP[a1, a1], SP[a1, a2], a3, 
     a4, n] - S2[SP[a1, a1], SP[a1, a2], a4, a3, n] - 
    S2[SP[a1, a1], SP[a2, a4], a1, a3, n] - 
    3*S2[a4, n]*S2[a1, a1, a1, a2, a3, n] - 
    3*S2[a1, a1, a1, a2, SP[a3, a4], n] - 
    3*S2[a4, n]*S2[a1, a1, a1, a3, a2, n] + 
    3*S2[a1, a1, a1, a4, SP[a2, a3], n] + 
    3*S2[a1, a1, a1, SP[a2, a3], a4, n] - 
    3*S2[a1, a1, a1, SP[a3, a4], a2, n] - 
    2*S2[a4, n]*S2[a1, a1, a2, a1, a3, n] - 
    2*S2[a1, a1, a2, a1, SP[a3, a4], n] - 
    2*S2[a1, a1, a2, SP[a1, a4], a3, n] - 
    S2[a4, n]*S2[a1, a1, a3, a1, a2, n] + 
    3*S2[a1, a1, a4, a1, SP[a2, a3], n] + 
    2*S2[a1, a1, a4, SP[a1, a2], a3, n] + S2[a1, a1, a4, SP[a1, a3], a2, n] + 
    2*S2[a1, a1, SP[a1, a2], a3, a4, n] + 
    2*S2[a1, a1, SP[a1, a2], a4, a3, n] + S2[a1, a1, SP[a1, a3], a2, a4, n] + 
    S2[a1, a1, SP[a1, a3], a4, a2, n] - 2*S2[a1, a1, SP[a1, a4], a2, a3, n] - 
    2*S2[a1, a1, SP[a1, a4], a3, a2, n] - S2[a1, a1, SP[a3, a4], a1, a2, n] - 
    S2[a4, n]*S2[a1, a2, a1, a1, a3, n] - S2[a1, a2, a1, a1, SP[a3, a4], n] - 
    S2[a1, a2, a1, SP[a1, a4], a3, n] - S2[a1, a2, SP[a1, a4], a1, a3, n] + 
    S2[a2, n]*S2[a1, a4, a1, a1, a3, n] + 
    3*S2[a1, a4, a1, a1, SP[a2, a3], n] + 
    2*S2[a1, a4, a1, SP[a1, a2], a3, n] + S2[a1, a4, a1, SP[a1, a3], a2, n] + 
    S2[a1, a4, SP[a1, a1], a2, a3, n] + S2[a1, a4, SP[a1, a1], a3, a2, n] + 
    S2[a1, a4, SP[a1, a2], a1, a3, n] + S2[a1, SP[a1, a1], a2, a3, a4, n] + 
    S2[a1, SP[a1, a1], a2, a4, a3, n] + S2[a1, SP[a1, a1], a3, a2, a4, n] + 
    S2[a1, SP[a1, a1], a3, a4, a2, n] + S2[a1, SP[a1, a1], a4, a2, a3, n] + 
    S2[a1, SP[a1, a1], a4, a3, a2, n] + S2[a1, SP[a1, a2], a1, a3, a4, n] + 
    S2[a1, SP[a1, a2], a1, a4, a3, n] + S2[a1, SP[a1, a2], a4, a1, a3, n] - 
    2*S2[a1, SP[a1, a4], a1, a2, a3, n] - 
    2*S2[a1, SP[a1, a4], a1, a3, a2, n] - S2[a1, SP[a1, a4], a2, a1, a3, n] - 
    S2[a1, SP[a1, a4], a3, a1, a2, n] + S2[SP[a1, a1], a1, a2, a3, a4, n] + 
    S2[SP[a1, a1], a1, a2, a4, a3, n] + S2[SP[a1, a1], a1, a3, a2, a4, n] + 
    S2[SP[a1, a1], a1, a3, a4, a2, n] + S2[SP[a1, a1], a1, a4, a2, a3, n] + 
    S2[SP[a1, a1], a1, a4, a3, a2, n] + S2[SP[a1, a1], a2, a1, a3, a4, n] + 
    S2[SP[a1, a1], a2, a1, a4, a3, n] + S2[SP[a1, a1], a2, a4, a1, a3, n] + 
    S2[SP[a1, a1], a4, a1, a2, a3, n] + S2[SP[a1, a1], a4, a1, a3, a2, n] + 
    S2[SP[a1, a1], a4, a2, a1, a3, n] + S2[SP[a1, a2], a4, a1, a1, a3, n] - 
    3*S2[SP[a1, a4], a1, a1, a2, a3, n] - 
    3*S2[SP[a1, a4], a1, a1, a3, a2, n] - 
    2*S2[SP[a1, a4], a1, a2, a1, a3, n] - S2[SP[a1, a4], a1, a3, a1, a2, n] - 
    S2[SP[a1, a4], a2, a1, a1, a3, n] + 3*S2[a4, a1, a1, a1, a2, a3, n] + 
    3*S2[a4, a1, a1, a1, a3, a2, n] + 2*S2[a4, a1, a1, a2, a1, a3, n] + 
    S2[a4, a1, a1, a3, a1, a2, n] + S2[a4, a1, a2, a1, a1, a3, n] /; 
   MyMemberQ[{{a2, a3, a4}}, {a1, a1, a1, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a2_, a1_, a4_, a1_, a3_, a1_, n_] :> 
  -2*S2[a1, a2, n]*S2[a1, a1, a3, a4, n] - 2*S2[a1, a2, n]*
     S2[a1, a1, a4, a3, n] + 2*S2[a1, a1, SP[a1, a3], SP[a2, a4], n] + 
    2*S2[a1, a1, SP[a1, a4], SP[a2, a3], n] - 
    S2[a1, a2, n]*S2[a1, a4, a1, a3, n] + S2[a1, a4, SP[a1, a1], SP[a2, a3], 
     n] + 2*S2[a1, SP[a1, a1], a3, SP[a2, a4], n] + 
    2*S2[a1, SP[a1, a1], a4, SP[a2, a3], n] + 
    2*S2[a1, SP[a1, a1], SP[a2, a3], a4, n] + 
    2*S2[a1, SP[a1, a1], SP[a2, a4], a3, n] + S2[a1, SP[a1, a4], a1, 
     SP[a2, a3], n] + S2[a1, SP[a1, a4], SP[a1, a2], a3, n] + 
    2*S2[SP[a1, a1], a1, a3, SP[a2, a4], n] + 
    2*S2[SP[a1, a1], a1, a4, SP[a2, a3], n] + 
    2*S2[SP[a1, a1], a1, SP[a2, a3], a4, n] + 
    2*S2[SP[a1, a1], a1, SP[a2, a4], a3, n] + S2[SP[a1, a1], a4, a1, 
     SP[a2, a3], n] + S2[SP[a1, a1], a4, SP[a1, a2], a3, n] + 
    2*S2[SP[a1, a1], SP[a1, a2], a3, a4, n] + 
    2*S2[SP[a1, a1], SP[a1, a2], a4, a3, n] + S2[SP[a1, a1], SP[a2, a4], a1, 
     a3, n] + 6*S2[a4, n]*S2[a1, a1, a1, a2, a3, n] + 
    6*S2[a1, a1, a1, a2, SP[a3, a4], n] + 
    6*S2[a4, n]*S2[a1, a1, a1, a3, a2, n] - 
    6*S2[a1, a1, a1, a4, SP[a2, a3], n] - 
    6*S2[a1, a1, a1, SP[a2, a3], a4, n] + 
    6*S2[a1, a1, a1, SP[a3, a4], a2, n] + 
    4*S2[a4, n]*S2[a1, a1, a2, a1, a3, n] + 
    4*S2[a1, a1, a2, a1, SP[a3, a4], n] + 
    4*S2[a1, a1, a2, SP[a1, a4], a3, n] + 
    2*S2[a4, n]*S2[a1, a1, a3, a1, a2, n] - 
    2*S2[a2, n]*S2[a1, a1, a4, a1, a3, n] - 
    6*S2[a1, a1, a4, a1, SP[a2, a3], n] - 
    4*S2[a1, a1, a4, SP[a1, a2], a3, n] - 
    2*S2[a1, a1, a4, SP[a1, a3], a2, n] - 
    4*S2[a1, a1, SP[a1, a2], a3, a4, n] - 
    4*S2[a1, a1, SP[a1, a2], a4, a3, n] - 
    2*S2[a1, a1, SP[a1, a3], a2, a4, n] - 
    2*S2[a1, a1, SP[a1, a3], a4, a2, n] + 
    4*S2[a1, a1, SP[a1, a4], a2, a3, n] + 
    4*S2[a1, a1, SP[a1, a4], a3, a2, n] + 
    2*S2[a1, a1, SP[a3, a4], a1, a2, n] + 
    2*S2[a4, n]*S2[a1, a2, a1, a1, a3, n] + 
    2*S2[a1, a2, a1, a1, SP[a3, a4], n] + 
    2*S2[a1, a2, a1, SP[a1, a4], a3, n] + 
    2*S2[a1, a2, SP[a1, a4], a1, a3, n] - 
    2*S2[a2, n]*S2[a1, a4, a1, a1, a3, n] - 
    4*S2[a1, a4, a1, a1, SP[a2, a3], n] - 
    3*S2[a1, a4, a1, SP[a1, a2], a3, n] - S2[a1, a4, a1, SP[a1, a3], a2, n] - 
    S2[a1, a4, SP[a1, a1], a2, a3, n] - S2[a1, a4, SP[a1, a1], a3, a2, n] - 
    2*S2[a1, a4, SP[a1, a2], a1, a3, n] - 
    2*S2[a1, SP[a1, a1], a2, a3, a4, n] - 
    2*S2[a1, SP[a1, a1], a2, a4, a3, n] - 
    2*S2[a1, SP[a1, a1], a3, a2, a4, n] - 
    2*S2[a1, SP[a1, a1], a3, a4, a2, n] - 
    2*S2[a1, SP[a1, a1], a4, a2, a3, n] - 
    2*S2[a1, SP[a1, a1], a4, a3, a2, n] - 
    2*S2[a1, SP[a1, a2], a1, a3, a4, n] - 
    2*S2[a1, SP[a1, a2], a1, a4, a3, n] - 
    3*S2[a1, SP[a1, a2], a4, a1, a3, n] + 
    5*S2[a1, SP[a1, a4], a1, a2, a3, n] + 
    5*S2[a1, SP[a1, a4], a1, a3, a2, n] + 
    3*S2[a1, SP[a1, a4], a2, a1, a3, n] + 
    2*S2[a1, SP[a1, a4], a3, a1, a2, n] + 
    S2[a1, n]*S2[a2, a1, a4, a1, a3, n] + S2[a2, a1, a4, a1, SP[a1, a3], n] + 
    S2[a2, a1, a4, SP[a1, a1], a3, n] + S2[a2, a1, SP[a1, a4], a1, a3, n] + 
    S2[a2, SP[a1, a1], a4, a1, a3, n] - 2*S2[a1, n]*
     S2[a4, a1, a1, a2, a3, n] - 2*S2[a4, a1, a1, a2, SP[a1, a3], n] - 
    2*S2[a1, n]*S2[a4, a1, a1, a3, a2, n] - 
    2*S2[a4, a1, a1, a3, SP[a1, a2], n] - 
    2*S2[a4, a1, a1, SP[a1, a2], a3, n] - 
    2*S2[a4, a1, a1, SP[a1, a3], a2, n] - 
    S2[a1, n]*S2[a4, a1, a2, a1, a3, n] - S2[a4, a1, a2, a1, SP[a1, a3], n] - 
    S2[a4, a1, a2, SP[a1, a1], a3, n] - S2[a1, n]*S2[a4, a1, a3, a1, a2, n] - 
    S2[a4, a1, a3, a1, SP[a1, a2], n] - S2[a4, a1, a3, SP[a1, a1], a2, n] - 
    2*S2[a4, a1, SP[a1, a1], a2, a3, n] - 
    2*S2[a4, a1, SP[a1, a1], a3, a2, n] - S2[a4, a1, SP[a1, a2], a1, a3, n] - 
    S2[a4, a1, SP[a1, a3], a1, a2, n] - 2*S2[a4, SP[a1, a1], a1, a2, a3, n] - 
    2*S2[a4, SP[a1, a1], a1, a3, a2, n] - S2[a4, SP[a1, a1], a2, a1, a3, n] - 
    S2[a4, SP[a1, a1], a3, a1, a2, n] - 2*S2[SP[a1, a1], a1, a2, a3, a4, n] - 
    2*S2[SP[a1, a1], a1, a2, a4, a3, n] - 
    2*S2[SP[a1, a1], a1, a3, a2, a4, n] - 
    2*S2[SP[a1, a1], a1, a3, a4, a2, n] - 
    2*S2[SP[a1, a1], a1, a4, a2, a3, n] - 
    2*S2[SP[a1, a1], a1, a4, a3, a2, n] - 
    2*S2[SP[a1, a1], a2, a1, a3, a4, n] - 
    2*S2[SP[a1, a1], a2, a1, a4, a3, n] - S2[SP[a1, a1], a2, a4, a1, a3, n] - 
    S2[SP[a1, a1], a4, a1, a2, a3, n] - S2[SP[a1, a1], a4, a1, a3, a2, n] - 
    S2[SP[a1, a1], a4, a2, a1, a3, n] - S2[SP[a1, a2], a1, a4, a1, a3, n] - 
    2*S2[SP[a1, a2], a4, a1, a1, a3, n] + 
    4*S2[SP[a1, a4], a1, a1, a2, a3, n] + 
    4*S2[SP[a1, a4], a1, a1, a3, a2, n] + 
    3*S2[SP[a1, a4], a1, a2, a1, a3, n] + S2[SP[a1, a4], a1, a3, a1, a2, n] + 
    2*S2[SP[a1, a4], a2, a1, a1, a3, n] + 2*S2[a4, a1, a1, a2, a3, a1, n] + 
    2*S2[a4, a1, a1, a3, a1, a2, n] + 2*S2[a4, a1, a1, a3, a2, a1, n] + 
    S2[a4, a1, a2, a1, a3, a1, n] + 2*S2[a4, a1, a3, a1, a1, a2, n] + 
    S2[a4, a1, a3, a1, a2, a1, n] /; 
   MyMemberQ[{{a2, a3, a4}}, {a1, a1, a1, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a2_, a1_, a4_, a3_, a1_, a1_, n_] :> 
  S2[a1, a2, n]*S2[a1, a1, a3, a4, n] - S2[a1, a1, SP[a1, a3], SP[a2, a4], 
     n] - S2[a1, SP[a1, a1], a3, SP[a2, a4], n] - 
    S2[a1, SP[a1, a1], SP[a2, a3], a4, n] - S2[SP[a1, a1], a1, a3, 
     SP[a2, a4], n] - S2[SP[a1, a1], a1, SP[a2, a3], a4, n] - 
    S2[SP[a1, a1], SP[a1, a2], a3, a4, n] - 
    3*S2[a4, n]*S2[a1, a1, a1, a2, a3, n] - 
    3*S2[a1, a1, a1, a2, SP[a3, a4], n] - 
    3*S2[a4, n]*S2[a1, a1, a1, a3, a2, n] + 
    3*S2[a2, n]*S2[a1, a1, a1, a4, a3, n] + 
    3*S2[a1, a1, a1, a4, SP[a2, a3], n] + 
    3*S2[a1, a1, a1, SP[a2, a3], a4, n] - 
    3*S2[a1, a1, a1, SP[a3, a4], a2, n] - 
    2*S2[a4, n]*S2[a1, a1, a2, a1, a3, n] - 
    2*S2[a1, a1, a2, a1, SP[a3, a4], n] - 
    2*S2[a1, a1, a2, SP[a1, a4], a3, n] - 
    S2[a4, n]*S2[a1, a1, a3, a1, a2, n] + 
    2*S2[a2, n]*S2[a1, a1, a4, a1, a3, n] + 
    2*S2[a1, a1, a4, a1, SP[a2, a3], n] + 
    2*S2[a1, a1, a4, SP[a1, a2], a3, n] + 
    2*S2[a1, a1, SP[a1, a2], a3, a4, n] + 
    3*S2[a1, a1, SP[a1, a2], a4, a3, n] + S2[a1, a1, SP[a1, a3], a2, a4, n] + 
    S2[a1, a1, SP[a1, a3], a4, a2, n] - 3*S2[a1, a1, SP[a1, a4], a2, a3, n] - 
    3*S2[a1, a1, SP[a1, a4], a3, a2, n] - S2[a1, a1, SP[a3, a4], a1, a2, n] - 
    S2[a4, n]*S2[a1, a2, a1, a1, a3, n] - S2[a1, a2, a1, a1, SP[a3, a4], n] - 
    (S2[a1, n]*S2[a1, a2, a1, a4, a3, n])/2 - 
    S2[a1, a2, a1, a4, SP[a1, a3], n]/2 - 
    (3*S2[a1, a2, a1, SP[a1, a4], a3, n])/2 - 
    S2[a1, a2, SP[a1, a1], a4, a3, n]/2 - S2[a1, a2, SP[a1, a4], a1, a3, n] + 
    S2[a2, n]*S2[a1, a4, a1, a1, a3, n] + S2[a1, a4, a1, a1, SP[a2, a3], n] + 
    (S2[a1, n]*S2[a1, a4, a1, a2, a3, n])/2 + 
    S2[a1, a4, a1, a2, SP[a1, a3], n]/2 + 
    (S2[a1, n]*S2[a1, a4, a1, a3, a2, n])/2 + 
    S2[a1, a4, a1, a3, SP[a1, a2], n]/2 + 
    (3*S2[a1, a4, a1, SP[a1, a2], a3, n])/2 + 
    S2[a1, a4, a1, SP[a1, a3], a2, n]/2 + 
    (S2[a1, n]*S2[a1, a4, a3, a1, a2, n])/2 + 
    S2[a1, a4, a3, a1, SP[a1, a2], n]/2 + S2[a1, a4, a3, SP[a1, a1], a2, n]/
     2 + S2[a1, a4, SP[a1, a1], a2, a3, n]/2 + 
    S2[a1, a4, SP[a1, a1], a3, a2, n]/2 + S2[a1, a4, SP[a1, a2], a1, a3, n] + 
    S2[a1, a4, SP[a1, a3], a1, a2, n]/2 + S2[a1, SP[a1, a1], a2, a3, a4, n] + 
    S2[a1, SP[a1, a1], a3, a2, a4, n] + S2[a1, SP[a1, a1], a3, a4, a2, n] + 
    S2[a1, SP[a1, a2], a1, a3, a4, n] + (5*S2[a1, SP[a1, a2], a1, a4, a3, n])/
     2 + 2*S2[a1, SP[a1, a2], a4, a1, a3, n] - 
    (5*S2[a1, SP[a1, a4], a1, a2, a3, n])/2 - 
    (5*S2[a1, SP[a1, a4], a1, a3, a2, n])/2 - 
    2*S2[a1, SP[a1, a4], a2, a1, a3, n] - S2[a1, SP[a1, a4], a3, a1, a2, n]/
     2 - S2[a1, n]*S2[a2, a1, a1, a4, a3, n] - S2[a2, a1, a1, a4, SP[a1, a3], 
     n] - S2[a2, a1, a1, SP[a1, a4], a3, n] - 
    (S2[a1, n]*S2[a2, a1, a4, a1, a3, n])/2 - 
    S2[a2, a1, a4, a1, SP[a1, a3], n]/2 + 
    (S2[a1, n]*S2[a2, a1, a4, a3, a1, n])/2 + 
    S2[a2, a1, a4, a3, SP[a1, a1], n]/2 - S2[a2, a1, a4, SP[a1, a1], a3, n]/
     2 + S2[a2, a1, a4, SP[a1, a3], a1, n]/2 - S2[a2, a1, SP[a1, a1], a4, a3, 
     n] - S2[a2, a1, SP[a1, a4], a1, a3, n]/2 + 
    S2[a2, a1, SP[a1, a4], a3, a1, n]/2 - S2[a2, SP[a1, a1], a1, a4, a3, n] - 
    S2[a2, SP[a1, a1], a4, a1, a3, n]/2 + S2[a2, SP[a1, a1], a4, a3, a1, n]/
     2 + S2[a1, n]*S2[a4, a1, a1, a2, a3, n] + S2[a4, a1, a1, a2, SP[a1, a3], 
     n] + S2[a1, n]*S2[a4, a1, a1, a3, a2, n] + S2[a4, a1, a1, a3, 
     SP[a1, a2], n] + S2[a4, a1, a1, SP[a1, a2], a3, n] + 
    S2[a4, a1, a1, SP[a1, a3], a2, n] + (S2[a1, n]*S2[a4, a1, a2, a1, a3, n])/
     2 + S2[a4, a1, a2, a1, SP[a1, a3], n]/2 - 
    (S2[a1, n]*S2[a4, a1, a2, a3, a1, n])/2 - 
    S2[a4, a1, a2, a3, SP[a1, a1], n]/2 + S2[a4, a1, a2, SP[a1, a1], a3, n]/
     2 - S2[a4, a1, a2, SP[a1, a3], a1, n]/2 - 
    (S2[a1, n]*S2[a4, a1, a3, a2, a1, n])/2 - 
    S2[a4, a1, a3, a2, SP[a1, a1], n]/2 - S2[a4, a1, a3, SP[a1, a2], a1, n]/
     2 + S2[a4, a1, SP[a1, a1], a2, a3, n] + S2[a4, a1, SP[a1, a1], a3, a2, 
     n] + S2[a4, a1, SP[a1, a2], a1, a3, n]/2 - 
    S2[a4, a1, SP[a1, a2], a3, a1, n]/2 - S2[a4, a1, SP[a1, a3], a2, a1, n]/
     2 - S2[a1, n]*S2[a4, a3, a1, a1, a2, n] - S2[a4, a3, a1, a1, SP[a1, a2], 
     n] - (S2[a1, n]*S2[a4, a3, a1, a2, a1, n])/2 - 
    S2[a4, a3, a1, a2, SP[a1, a1], n]/2 - S2[a4, a3, a1, SP[a1, a1], a2, n] - 
    S2[a4, a3, a1, SP[a1, a2], a1, n]/2 - S2[a4, a3, SP[a1, a1], a1, a2, n] - 
    S2[a4, a3, SP[a1, a1], a2, a1, n]/2 + S2[a4, SP[a1, a1], a1, a2, a3, n] + 
    S2[a4, SP[a1, a1], a1, a3, a2, n] + S2[a4, SP[a1, a1], a2, a1, a3, n]/2 - 
    S2[a4, SP[a1, a1], a2, a3, a1, n]/2 - S2[a4, SP[a1, a1], a3, a2, a1, n]/
     2 - S2[a4, SP[a1, a3], a1, a1, a2, n] - 
    S2[a4, SP[a1, a3], a1, a2, a1, n]/2 + S2[SP[a1, a1], a1, a2, a3, a4, n] + 
    S2[SP[a1, a1], a1, a3, a2, a4, n] + S2[SP[a1, a1], a1, a3, a4, a2, n] + 
    S2[SP[a1, a1], a2, a1, a3, a4, n] - S2[SP[a1, a1], a2, a1, a4, a3, n]/2 + 
    S2[SP[a1, a1], a4, a1, a2, a3, n]/2 + S2[SP[a1, a1], a4, a1, a3, a2, n]/
     2 + S2[SP[a1, a1], a4, a3, a1, a2, n]/2 + 
    2*S2[SP[a1, a2], a1, a1, a4, a3, n] + 
    (3*S2[SP[a1, a2], a1, a4, a1, a3, n])/2 + 
    S2[SP[a1, a2], a1, a4, a3, a1, n]/2 + S2[SP[a1, a2], a4, a1, a1, a3, n] - 
    2*S2[SP[a1, a4], a1, a1, a2, a3, n] - 
    2*S2[SP[a1, a4], a1, a1, a3, a2, n] - 
    (3*S2[SP[a1, a4], a1, a2, a1, a3, n])/2 - 
    S2[SP[a1, a4], a1, a2, a3, a1, n]/2 - S2[SP[a1, a4], a1, a3, a1, a2, n] - 
    S2[SP[a1, a4], a1, a3, a2, a1, n]/2 - S2[SP[a1, a4], a2, a1, a1, a3, n] - 
    S2[SP[a1, a4], a3, a1, a1, a2, n] - S2[SP[a1, a4], a3, a1, a2, a1, n]/2 + 
    S2[a4, a1, a2, a3, a1, a1, n] + S2[a4, a1, a3, a1, a1, a2, n] + 
    S2[a4, a1, a3, a1, a2, a1, n] + S2[a4, a1, a3, a2, a1, a1, n] + 
    3*S2[a4, a3, a1, a1, a1, a2, n] + 2*S2[a4, a3, a1, a1, a2, a1, n] + 
    S2[a4, a3, a1, a2, a1, a1, n] /; 
   MyMemberQ[{{a2, a3, a4}}, {a1, a1, a1, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a2_, a3_, a1_, a1_, a1_, a4_, n_] :> 
  S2[a1, a1, a4, n]*S2[a1, a3, a2, n] + S2[SP[a1, a1], SP[a1, a3], 
     SP[a2, a4], n] + S2[a2, a3, n]*S2[a1, a1, a1, a4, n] - 
    S2[a1, a4, n]*S2[a1, a1, a3, a2, n] - S2[a1, a1, SP[a1, a2], SP[a3, a4], 
     n] - S2[a1, a1, SP[a1, a3], SP[a2, a4], n] - S2[a1, SP[a1, a2], a1, 
     SP[a3, a4], n] - S2[a1, SP[a1, a2], SP[a1, a3], a4, n] - 
    S2[a1, SP[a1, a3], a1, SP[a2, a4], n] - S2[a1, SP[a1, a3], SP[a1, a2], 
     a4, n] - S2[SP[a1, a1], a3, a1, SP[a2, a4], n] - 
    S2[SP[a1, a1], a3, SP[a1, a2], a4, n] - S2[SP[a1, a1], SP[a1, a3], a2, 
     a4, n] - S2[SP[a1, a1], SP[a1, a3], a4, a2, n] + 
    S2[SP[a1, a1], SP[a1, a4], a3, a2, n] - S2[SP[a1, a2], a1, a1, 
     SP[a3, a4], n] - S2[SP[a1, a2], a1, SP[a1, a3], a4, n] - 
    S2[SP[a1, a2], SP[a1, a3], a1, a4, n] + S2[a1, a1, a1, a2, SP[a3, a4], 
     n] + S2[a4, n]*S2[a1, a1, a1, a3, a2, n] - 
    S2[a2, n]*S2[a1, a1, a1, a3, a4, n] - 
    S2[a2, n]*S2[a1, a1, a1, a4, a3, n] - S2[a1, a1, a1, a4, SP[a2, a3], n] - 
    S2[a1, a1, a1, SP[a2, a3], a4, n] + S2[a1, a1, a1, SP[a3, a4], a2, n] + 
    S2[a1, a1, a2, a1, SP[a3, a4], n] + S2[a1, a1, a2, SP[a1, a3], a4, n] - 
    S2[a2, n]*S2[a1, a1, a3, a1, a4, n] + S2[a1, a1, SP[a1, a3], a2, a4, n] + 
    S2[a1, a1, SP[a1, a3], a4, a2, n] - S2[a1, a1, SP[a2, a3], a1, a4, n] + 
    S2[a1, a2, a1, a1, SP[a3, a4], n] + S2[a1, a2, a1, SP[a1, a3], a4, n] + 
    S2[a1, a2, SP[a1, a3], a1, a4, n] - S2[a2, n]*S2[a1, a3, a1, a1, a4, n] + 
    S2[a1, SP[a1, a3], a1, a2, a4, n] + S2[a1, SP[a1, a3], a1, a4, a2, n] + 
    S2[a1, SP[a1, a3], a2, a1, a4, n] - S2[a1, SP[a2, a3], a1, a1, a4, n] + 
    S2[a2, a1, a1, a1, SP[a3, a4], n] + S2[a2, a1, a1, SP[a1, a3], a4, n] + 
    S2[a2, a1, SP[a1, a3], a1, a4, n] + S2[a2, SP[a1, a3], a1, a1, a4, n] + 
    S2[SP[a1, a1], a3, a1, a2, a4, n] + S2[SP[a1, a1], a3, a1, a4, a2, n] + 
    S2[SP[a1, a1], a3, a2, a1, a4, n] - S2[SP[a1, a1], a4, a1, a3, a2, n] + 
    S2[SP[a1, a4], a1, a1, a3, a2, n] - S2[a4, a1, a1, a1, a3, a2, n] /; 
   MyMemberQ[{{a2, a3, a4}}, {a1, a1, a1, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a2_, a3_, a1_, a1_, a4_, a1_, n_] :> 
  -2*S2[a1, a1, a4, n]*S2[a1, a3, a2, n] - 
    2*S2[SP[a1, a1], SP[a1, a3], SP[a2, a4], n] - 
    3*S2[a2, a3, n]*S2[a1, a1, a1, a4, n] + S2[a1, a4, n]*
     S2[a1, a1, a3, a2, n] + 3*S2[a1, a1, SP[a1, a2], SP[a3, a4], n] + 
    3*S2[a1, a1, SP[a1, a3], SP[a2, a4], n] + S2[a1, SP[a1, a1], a3, 
     SP[a2, a4], n] + S2[a1, SP[a1, a1], SP[a3, a4], a2, n] + 
    3*S2[a1, SP[a1, a2], a1, SP[a3, a4], n] + 
    3*S2[a1, SP[a1, a2], SP[a1, a3], a4, n] + 
    2*S2[a1, SP[a1, a3], a1, SP[a2, a4], n] + 
    2*S2[a1, SP[a1, a3], SP[a1, a2], a4, n] + S2[SP[a1, a1], a1, a3, 
     SP[a2, a4], n] + S2[SP[a1, a1], a1, SP[a3, a4], a2, n] + 
    2*S2[SP[a1, a1], a3, a1, SP[a2, a4], n] + 
    2*S2[SP[a1, a1], a3, SP[a1, a2], a4, n] + 
    2*S2[SP[a1, a1], SP[a1, a3], a2, a4, n] + 
    2*S2[SP[a1, a1], SP[a1, a3], a4, a2, n] - S2[SP[a1, a1], SP[a1, a4], a3, 
     a2, n] + 3*S2[SP[a1, a2], a1, a1, SP[a3, a4], n] + 
    3*S2[SP[a1, a2], a1, SP[a1, a3], a4, n] + 
    3*S2[SP[a1, a2], SP[a1, a3], a1, a4, n] - 
    3*S2[a1, a1, a1, a2, SP[a3, a4], n] + 
    3*S2[a2, n]*S2[a1, a1, a1, a3, a4, n] + 
    3*S2[a2, n]*S2[a1, a1, a1, a4, a3, n] + 
    3*S2[a1, a1, a1, a4, SP[a2, a3], n] + 
    3*S2[a1, a1, a1, SP[a2, a3], a4, n] - 
    3*S2[a1, a1, a1, SP[a3, a4], a2, n] - 
    3*S2[a1, a1, a2, a1, SP[a3, a4], n] - 
    3*S2[a1, a1, a2, SP[a1, a3], a4, n] + 
    3*S2[a2, n]*S2[a1, a1, a3, a1, a4, n] - 
    3*S2[a1, a1, SP[a1, a3], a2, a4, n] - 
    3*S2[a1, a1, SP[a1, a3], a4, a2, n] + 
    3*S2[a1, a1, SP[a2, a3], a1, a4, n] - 
    3*S2[a1, a2, a1, a1, SP[a3, a4], n] - 
    3*S2[a1, a2, a1, SP[a1, a3], a4, n] - 
    3*S2[a1, a2, SP[a1, a3], a1, a4, n] + 
    2*S2[a2, n]*S2[a1, a3, a1, a1, a4, n] - S2[a1, SP[a1, a1], a3, a2, a4, 
     n] - S2[a1, SP[a1, a1], a3, a4, a2, n] - S2[a1, SP[a1, a1], a4, a3, a2, 
     n] - 2*S2[a1, SP[a1, a3], a1, a2, a4, n] - 
    2*S2[a1, SP[a1, a3], a1, a4, a2, n] - 
    2*S2[a1, SP[a1, a3], a2, a1, a4, n] + S2[a1, SP[a1, a4], a1, a3, a2, n] + 
    2*S2[a1, SP[a2, a3], a1, a1, a4, n] - 
    3*S2[a2, a1, a1, a1, SP[a3, a4], n] - 
    3*S2[a2, a1, a1, SP[a1, a3], a4, n] - 
    3*S2[a2, a1, SP[a1, a3], a1, a4, n] + 
    S2[a1, n]*S2[a2, a3, a1, a1, a4, n] + S2[a2, a3, a1, a1, SP[a1, a4], n] + 
    S2[a2, a3, a1, SP[a1, a1], a4, n] + S2[a2, a3, SP[a1, a1], a1, a4, n] - 
    2*S2[a2, SP[a1, a3], a1, a1, a4, n] - 
    S2[a1, n]*S2[a4, a1, a1, a3, a2, n] - S2[a4, a1, a1, a3, SP[a1, a2], n] - 
    S2[a4, a1, a1, SP[a1, a3], a2, n] - S2[a4, a1, SP[a1, a1], a3, a2, n] - 
    S2[a4, SP[a1, a1], a1, a3, a2, n] - S2[SP[a1, a1], a1, a3, a2, a4, n] - 
    S2[SP[a1, a1], a1, a3, a4, a2, n] - S2[SP[a1, a1], a1, a4, a3, a2, n] - 
    2*S2[SP[a1, a1], a3, a1, a2, a4, n] - 
    2*S2[SP[a1, a1], a3, a1, a4, a2, n] - 
    2*S2[SP[a1, a1], a3, a2, a1, a4, n] + S2[SP[a1, a1], a4, a1, a3, a2, n] - 
    S2[SP[a1, a4], a1, a1, a3, a2, n] + 3*S2[a4, a1, a1, a1, a3, a2, n] + 
    S2[a4, a1, a1, a3, a1, a2, n] + S2[a4, a1, a1, a3, a2, a1, n] /; 
   MyMemberQ[{{a2, a3, a4}}, {a1, a1, a1, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a2_, a3_, a1_, a4_, a1_, a1_, n_] :> 
  S2[a1, a1, a4, n]*S2[a1, a3, a2, n] + S2[SP[a1, a1], SP[a1, a3], 
     SP[a2, a4], n] + 3*S2[a2, a3, n]*S2[a1, a1, a1, a4, n] - 
    3*S2[a1, a1, SP[a1, a2], SP[a3, a4], n] - 
    2*S2[a1, a1, SP[a1, a3], SP[a2, a4], n] - S2[a1, SP[a1, a1], a3, 
     SP[a2, a4], n] - S2[a1, SP[a1, a1], SP[a3, a4], a2, n] - 
    3*S2[a1, SP[a1, a2], a1, SP[a3, a4], n] - 
    3*S2[a1, SP[a1, a2], SP[a1, a3], a4, n] - S2[a1, SP[a1, a3], a1, 
     SP[a2, a4], n] - S2[a1, SP[a1, a3], SP[a1, a2], a4, n] - 
    S2[SP[a1, a1], a1, a3, SP[a2, a4], n] - S2[SP[a1, a1], a1, SP[a3, a4], 
     a2, n] - S2[SP[a1, a1], a3, a1, SP[a2, a4], n] - 
    S2[SP[a1, a1], a3, SP[a1, a2], a4, n] - S2[SP[a1, a1], SP[a1, a3], a2, 
     a4, n] - S2[SP[a1, a1], SP[a1, a3], a4, a2, n] - 
    3*S2[SP[a1, a2], a1, a1, SP[a3, a4], n] - 
    3*S2[SP[a1, a2], a1, SP[a1, a3], a4, n] - 
    3*S2[SP[a1, a2], SP[a1, a3], a1, a4, n] + 
    3*S2[a1, a1, a1, a2, SP[a3, a4], n] - 
    3*S2[a2, n]*S2[a1, a1, a1, a3, a4, n] - 
    3*S2[a2, n]*S2[a1, a1, a1, a4, a3, n] - 
    3*S2[a1, a1, a1, a4, SP[a2, a3], n] - 
    3*S2[a1, a1, a1, SP[a2, a3], a4, n] + 
    3*S2[a1, a1, a1, SP[a3, a4], a2, n] + 
    3*S2[a1, a1, a2, a1, SP[a3, a4], n] + 
    3*S2[a1, a1, a2, SP[a1, a3], a4, n] - 
    2*S2[a2, n]*S2[a1, a1, a3, a1, a4, n] + 
    2*S2[a1, a1, SP[a1, a3], a2, a4, n] + 
    2*S2[a1, a1, SP[a1, a3], a4, a2, n] + S2[a1, a1, SP[a1, a4], a3, a2, n] - 
    2*S2[a1, a1, SP[a2, a3], a1, a4, n] + 
    3*S2[a1, a2, a1, a1, SP[a3, a4], n] + 
    3*S2[a1, a2, a1, SP[a1, a3], a4, n] - 
    (S2[a1, n]*S2[a1, a2, a3, a1, a4, n])/2 - 
    S2[a1, a2, a3, a1, SP[a1, a4], n]/2 - S2[a1, a2, a3, SP[a1, a1], a4, n]/
     2 + (5*S2[a1, a2, SP[a1, a3], a1, a4, n])/2 - 
    S2[a2, n]*S2[a1, a3, a1, a1, a4, n] - 
    (S2[a1, n]*S2[a1, a4, a1, a3, a2, n])/2 - 
    S2[a1, a4, a1, a3, SP[a1, a2], n]/2 - S2[a1, a4, a1, SP[a1, a3], a2, n]/
     2 - S2[a1, a4, SP[a1, a1], a3, a2, n]/2 + S2[a1, SP[a1, a1], a3, a2, a4, 
     n] + S2[a1, SP[a1, a1], a3, a4, a2, n] + S2[a1, SP[a1, a1], a4, a3, a2, 
     n] + S2[a1, SP[a1, a2], a3, a1, a4, n]/2 + S2[a1, SP[a1, a3], a1, a2, 
     a4, n] + S2[a1, SP[a1, a3], a1, a4, a2, n] + S2[a1, SP[a1, a3], a2, a1, 
     a4, n] - S2[a1, SP[a1, a4], a1, a3, a2, n]/2 - 
    S2[a1, SP[a2, a3], a1, a1, a4, n] + 3*S2[a2, a1, a1, a1, SP[a3, a4], n] + 
    3*S2[a2, a1, a1, SP[a1, a3], a4, n] - 
    (S2[a1, n]*S2[a2, a1, a3, a1, a4, n])/2 - 
    S2[a2, a1, a3, a1, SP[a1, a4], n]/2 - S2[a2, a1, a3, SP[a1, a1], a4, n]/
     2 + (5*S2[a2, a1, SP[a1, a3], a1, a4, n])/2 - 
    S2[a1, n]*S2[a2, a3, a1, a1, a4, n] - S2[a2, a3, a1, a1, SP[a1, a4], n] + 
    (S2[a1, n]*S2[a2, a3, a1, a4, a1, n])/2 + 
    S2[a2, a3, a1, a4, SP[a1, a1], n]/2 - S2[a2, a3, a1, SP[a1, a1], a4, n] + 
    S2[a2, a3, a1, SP[a1, a4], a1, n]/2 - S2[a2, a3, SP[a1, a1], a1, a4, n] + 
    S2[a2, a3, SP[a1, a1], a4, a1, n]/2 - S2[a2, SP[a1, a1], a3, a1, a4, n]/
     2 + 2*S2[a2, SP[a1, a3], a1, a1, a4, n] + 
    S2[a2, SP[a1, a3], a1, a4, a1, n]/2 + 
    S2[a1, n]*S2[a4, a1, a1, a3, a2, n] + S2[a4, a1, a1, a3, SP[a1, a2], n] + 
    S2[a4, a1, a1, SP[a1, a3], a2, n] + (S2[a1, n]*S2[a4, a1, a3, a1, a2, n])/
     2 + S2[a4, a1, a3, a1, SP[a1, a2], n]/2 + 
    (S2[a1, n]*S2[a4, a1, a3, a2, a1, n])/2 + 
    S2[a4, a1, a3, a2, SP[a1, a1], n]/2 + S2[a4, a1, a3, SP[a1, a1], a2, n]/
     2 + S2[a4, a1, a3, SP[a1, a2], a1, n]/2 + S2[a4, a1, SP[a1, a1], a3, a2, 
     n] + S2[a4, a1, SP[a1, a3], a1, a2, n]/2 + 
    S2[a4, a1, SP[a1, a3], a2, a1, n]/2 + S2[a4, SP[a1, a1], a1, a3, a2, n] + 
    S2[a4, SP[a1, a1], a3, a1, a2, n]/2 + S2[a4, SP[a1, a1], a3, a2, a1, n]/
     2 + S2[SP[a1, a1], a1, a3, a2, a4, n] + S2[SP[a1, a1], a1, a3, a4, a2, 
     n] + S2[SP[a1, a1], a1, a4, a3, a2, n] - 
    S2[SP[a1, a1], a2, a3, a1, a4, n]/2 + S2[SP[a1, a1], a3, a1, a2, a4, n] + 
    S2[SP[a1, a1], a3, a1, a4, a2, n] + S2[SP[a1, a1], a3, a2, a1, a4, n] - 
    S2[SP[a1, a1], a4, a1, a3, a2, n]/2 + S2[SP[a1, a2], a1, a3, a1, a4, n]/
     2 + S2[SP[a1, a2], a3, a1, a1, a4, n] + 
    S2[SP[a1, a2], a3, a1, a4, a1, n]/2 + S2[SP[a1, a4], a1, a1, a3, a2, n] + 
    S2[SP[a1, a4], a1, a3, a1, a2, n]/2 + S2[SP[a1, a4], a1, a3, a2, a1, n]/
     2 - 3*S2[a4, a1, a1, a1, a3, a2, n] - 2*S2[a4, a1, a1, a3, a1, a2, n] - 
    2*S2[a4, a1, a1, a3, a2, a1, n] - S2[a4, a1, a3, a1, a1, a2, n] - 
    S2[a4, a1, a3, a1, a2, a1, n] - S2[a4, a1, a3, a2, a1, a1, n] /; 
   MyMemberQ[{{a2, a3, a4}}, {a1, a1, a1, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a2_, a3_, a4_, a1_, a1_, a1_, n_] :> 
  -(S2[a2, a3, n]*S2[a1, a1, a1, a4, n]) + S2[a1, a1, SP[a1, a2], SP[a3, a4], 
     n] + S2[a1, SP[a1, a2], a1, SP[a3, a4], n] + 
    S2[a1, SP[a1, a2], SP[a1, a3], a4, n] + S2[SP[a1, a2], a1, a1, 
     SP[a3, a4], n] + S2[SP[a1, a2], a1, SP[a1, a3], a4, n] + 
    S2[SP[a1, a2], SP[a1, a3], a1, a4, n] - S2[a1, a1, a1, a2, SP[a3, a4], 
     n] + S2[a2, n]*S2[a1, a1, a1, a4, a3, n] + S2[a1, a1, a1, a4, 
     SP[a2, a3], n] - S2[a1, a1, a2, a1, SP[a3, a4], n] + 
    (S2[a1, n]*S2[a1, a1, a2, a3, a4, n])/3 + 
    S2[a1, a1, a2, a3, SP[a1, a4], n]/3 - 
    (2*S2[a1, a1, a2, SP[a1, a3], a4, n])/3 - 
    (S2[a1, n]*S2[a1, a1, a4, a3, a2, n])/3 - 
    S2[a1, a1, a4, a3, SP[a1, a2], n]/3 - S2[a1, a1, a4, SP[a1, a3], a2, n]/
     3 - (2*S2[a1, a1, SP[a1, a2], a3, a4, n])/3 - 
    S2[a1, a1, SP[a1, a4], a3, a2, n]/3 - S2[a1, a2, a1, a1, SP[a3, a4], n] + 
    (S2[a1, n]*S2[a1, a2, a1, a3, a4, n])/3 + 
    S2[a1, a2, a1, a3, SP[a1, a4], n]/3 - 
    (2*S2[a1, a2, a1, SP[a1, a3], a4, n])/3 + 
    (S2[a1, n]*S2[a1, a2, a3, a1, a4, n])/3 + 
    S2[a1, a2, a3, a1, SP[a1, a4], n]/3 - 
    (S2[a1, n]*S2[a1, a2, a3, a4, a1, n])/6 - 
    S2[a1, a2, a3, a4, SP[a1, a1], n]/6 + S2[a1, a2, a3, SP[a1, a1], a4, n]/
     3 - S2[a1, a2, a3, SP[a1, a4], a1, n]/6 + 
    S2[a1, a2, SP[a1, a1], a3, a4, n]/3 - 
    (2*S2[a1, a2, SP[a1, a3], a1, a4, n])/3 - 
    S2[a1, a2, SP[a1, a3], a4, a1, n]/6 + 
    (S2[a1, n]*S2[a1, a4, a1, a3, a2, n])/6 + 
    S2[a1, a4, a1, a3, SP[a1, a2], n]/6 + S2[a1, a4, a1, SP[a1, a3], a2, n]/
     6 + (S2[a1, n]*S2[a1, a4, a3, a1, a2, n])/6 + 
    S2[a1, a4, a3, a1, SP[a1, a2], n]/6 + 
    (S2[a1, n]*S2[a1, a4, a3, a2, a1, n])/6 + 
    S2[a1, a4, a3, a2, SP[a1, a1], n]/6 + S2[a1, a4, a3, SP[a1, a1], a2, n]/
     6 + S2[a1, a4, a3, SP[a1, a2], a1, n]/6 + 
    S2[a1, a4, SP[a1, a1], a3, a2, n]/6 + S2[a1, a4, SP[a1, a3], a1, a2, n]/
     6 + S2[a1, a4, SP[a1, a3], a2, a1, n]/6 + 
    S2[a1, SP[a1, a1], a2, a3, a4, n]/3 - S2[a1, SP[a1, a1], a4, a3, a2, n]/
     3 - (2*S2[a1, SP[a1, a2], a1, a3, a4, n])/3 - 
    (2*S2[a1, SP[a1, a2], a3, a1, a4, n])/3 - 
    S2[a1, SP[a1, a2], a3, a4, a1, n]/6 + S2[a1, SP[a1, a4], a1, a3, a2, n]/
     6 + S2[a1, SP[a1, a4], a3, a1, a2, n]/6 + 
    S2[a1, SP[a1, a4], a3, a2, a1, n]/6 - S2[a2, a1, a1, a1, SP[a3, a4], n] + 
    (S2[a1, n]*S2[a2, a1, a1, a3, a4, n])/3 + 
    S2[a2, a1, a1, a3, SP[a1, a4], n]/3 - 
    (2*S2[a2, a1, a1, SP[a1, a3], a4, n])/3 + 
    (S2[a1, n]*S2[a2, a1, a3, a1, a4, n])/3 + 
    S2[a2, a1, a3, a1, SP[a1, a4], n]/3 - 
    (S2[a1, n]*S2[a2, a1, a3, a4, a1, n])/6 - 
    S2[a2, a1, a3, a4, SP[a1, a1], n]/6 + S2[a2, a1, a3, SP[a1, a1], a4, n]/
     3 - S2[a2, a1, a3, SP[a1, a4], a1, n]/6 + 
    S2[a2, a1, SP[a1, a1], a3, a4, n]/3 - 
    (2*S2[a2, a1, SP[a1, a3], a1, a4, n])/3 - 
    S2[a2, a1, SP[a1, a3], a4, a1, n]/6 + 
    (S2[a1, n]*S2[a2, a3, a1, a1, a4, n])/3 + 
    S2[a2, a3, a1, a1, SP[a1, a4], n]/3 - 
    (S2[a1, n]*S2[a2, a3, a1, a4, a1, n])/6 - 
    S2[a2, a3, a1, a4, SP[a1, a1], n]/6 + S2[a2, a3, a1, SP[a1, a1], a4, n]/
     3 - S2[a2, a3, a1, SP[a1, a4], a1, n]/6 + 
    (S2[a1, n]*S2[a2, a3, a4, a1, a1, n])/3 + 
    S2[a2, a3, a4, a1, SP[a1, a1], n]/3 + S2[a2, a3, a4, SP[a1, a1], a1, n]/
     3 + S2[a2, a3, SP[a1, a1], a1, a4, n]/3 - 
    S2[a2, a3, SP[a1, a1], a4, a1, n]/6 + S2[a2, a3, SP[a1, a4], a1, a1, n]/
     3 + S2[a2, SP[a1, a1], a1, a3, a4, n]/3 + 
    S2[a2, SP[a1, a1], a3, a1, a4, n]/3 - S2[a2, SP[a1, a1], a3, a4, a1, n]/
     6 - (2*S2[a2, SP[a1, a3], a1, a1, a4, n])/3 - 
    S2[a2, SP[a1, a3], a1, a4, a1, n]/6 + S2[a2, SP[a1, a3], a4, a1, a1, n]/
     3 - (S2[a1, n]*S2[a4, a1, a1, a3, a2, n])/3 - 
    S2[a4, a1, a1, a3, SP[a1, a2], n]/3 - S2[a4, a1, a1, SP[a1, a3], a2, n]/
     3 - (S2[a1, n]*S2[a4, a1, a3, a1, a2, n])/3 - 
    S2[a4, a1, a3, a1, SP[a1, a2], n]/3 - 
    (S2[a1, n]*S2[a4, a1, a3, a2, a1, n])/3 - 
    S2[a4, a1, a3, a2, SP[a1, a1], n]/3 - S2[a4, a1, a3, SP[a1, a1], a2, n]/
     3 - S2[a4, a1, a3, SP[a1, a2], a1, n]/3 - 
    S2[a4, a1, SP[a1, a1], a3, a2, n]/3 - S2[a4, a1, SP[a1, a3], a1, a2, n]/
     3 - S2[a4, a1, SP[a1, a3], a2, a1, n]/3 - 
    (S2[a1, n]*S2[a4, a3, a1, a1, a2, n])/3 - 
    S2[a4, a3, a1, a1, SP[a1, a2], n]/3 - 
    (S2[a1, n]*S2[a4, a3, a1, a2, a1, n])/3 - 
    S2[a4, a3, a1, a2, SP[a1, a1], n]/3 - S2[a4, a3, a1, SP[a1, a1], a2, n]/
     3 - S2[a4, a3, a1, SP[a1, a2], a1, n]/3 - 
    (S2[a1, n]*S2[a4, a3, a2, a1, a1, n])/3 - 
    S2[a4, a3, a2, a1, SP[a1, a1], n]/3 - S2[a4, a3, a2, SP[a1, a1], a1, n]/
     3 - S2[a4, a3, SP[a1, a1], a1, a2, n]/3 - 
    S2[a4, a3, SP[a1, a1], a2, a1, n]/3 - S2[a4, a3, SP[a1, a2], a1, a1, n]/
     3 - S2[a4, SP[a1, a1], a1, a3, a2, n]/3 - 
    S2[a4, SP[a1, a1], a3, a1, a2, n]/3 - S2[a4, SP[a1, a1], a3, a2, a1, n]/
     3 - S2[a4, SP[a1, a3], a1, a1, a2, n]/3 - 
    S2[a4, SP[a1, a3], a1, a2, a1, n]/3 - S2[a4, SP[a1, a3], a2, a1, a1, n]/
     3 + S2[SP[a1, a1], a1, a2, a3, a4, n]/3 - 
    S2[SP[a1, a1], a1, a4, a3, a2, n]/3 + S2[SP[a1, a1], a2, a1, a3, a4, n]/
     3 + S2[SP[a1, a1], a2, a3, a1, a4, n]/3 - 
    S2[SP[a1, a1], a2, a3, a4, a1, n]/6 + S2[SP[a1, a1], a4, a1, a3, a2, n]/
     6 + S2[SP[a1, a1], a4, a3, a1, a2, n]/6 + 
    S2[SP[a1, a1], a4, a3, a2, a1, n]/6 - 
    (2*S2[SP[a1, a2], a1, a1, a3, a4, n])/3 - 
    (2*S2[SP[a1, a2], a1, a3, a1, a4, n])/3 - 
    S2[SP[a1, a2], a1, a3, a4, a1, n]/6 - 
    (2*S2[SP[a1, a2], a3, a1, a1, a4, n])/3 - 
    S2[SP[a1, a2], a3, a1, a4, a1, n]/6 + S2[SP[a1, a2], a3, a4, a1, a1, n]/
     3 - S2[SP[a1, a4], a1, a1, a3, a2, n]/3 - 
    S2[SP[a1, a4], a1, a3, a1, a2, n]/3 - S2[SP[a1, a4], a1, a3, a2, a1, n]/
     3 - S2[SP[a1, a4], a3, a1, a1, a2, n]/3 - 
    S2[SP[a1, a4], a3, a1, a2, a1, n]/3 - S2[SP[a1, a4], a3, a2, a1, a1, n]/
     3 + S2[a4, a1, a1, a1, a3, a2, n] + S2[a4, a1, a1, a3, a1, a2, n] + 
    S2[a4, a1, a1, a3, a2, a1, n] + S2[a4, a1, a3, a1, a1, a2, n] + 
    S2[a4, a1, a3, a1, a2, a1, n] + S2[a4, a1, a3, a2, a1, a1, n] + 
    S2[a4, a3, a1, a1, a1, a2, n] + S2[a4, a3, a1, a1, a2, a1, n] + 
    S2[a4, a3, a1, a2, a1, a1, n] + S2[a4, a3, a2, a1, a1, a1, n] /; 
   MyMemberQ[{{a2, a3, a4}}, {a1, a1, a1, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a2_, a4_, a1_, a1_, a1_, a3_, n_] :> 
  S2[a2, n]*S2[a4, a1, a1, a1, a3, n] + S2[a4, a1, a1, a1, SP[a2, a3], n] + 
    S2[a4, a1, a1, SP[a1, a2], a3, n] + S2[a4, a1, SP[a1, a2], a1, a3, n] + 
    S2[a4, SP[a1, a2], a1, a1, a3, n] + S2[SP[a2, a4], a1, a1, a1, a3, n] - 
    S2[a4, a1, a1, a1, a2, a3, n] - S2[a4, a1, a1, a1, a3, a2, n] - 
    S2[a4, a1, a1, a2, a1, a3, n] - S2[a4, a1, a2, a1, a1, a3, n] - 
    S2[a4, a2, a1, a1, a1, a3, n] /; 
   MyMemberQ[{{a2, a3, a4}}, {a1, a1, a1, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a2_, a4_, a1_, a1_, a3_, a1_, n_] :> 
  -(S2[a2, n]*S2[a1, a4, a1, a1, a3, n]) - S2[a1, a4, a1, a1, SP[a2, a3], 
     n] - S2[a1, a4, a1, SP[a1, a2], a3, n] - S2[a1, a4, SP[a1, a2], a1, a3, 
     n] - S2[a1, SP[a2, a4], a1, a1, a3, n] + 
    S2[a1, n]*S2[a2, a4, a1, a1, a3, n] + S2[a2, a4, a1, a1, SP[a1, a3], n] + 
    S2[a2, a4, a1, SP[a1, a1], a3, n] + S2[a2, a4, SP[a1, a1], a1, a3, n] + 
    S2[a2, SP[a1, a4], a1, a1, a3, n] - 3*S2[a2, n]*
     S2[a4, a1, a1, a1, a3, n] - 3*S2[a4, a1, a1, a1, SP[a2, a3], n] + 
    S2[a1, n]*S2[a4, a1, a1, a2, a3, n] + S2[a4, a1, a1, a2, SP[a1, a3], n] + 
    S2[a1, n]*S2[a4, a1, a1, a3, a2, n] + S2[a4, a1, a1, a3, SP[a1, a2], n] - 
    2*S2[a4, a1, a1, SP[a1, a2], a3, n] + S2[a4, a1, a1, SP[a1, a3], a2, n] + 
    S2[a1, n]*S2[a4, a1, a2, a1, a3, n] + S2[a4, a1, a2, a1, SP[a1, a3], n] + 
    S2[a4, a1, a2, SP[a1, a1], a3, n] + S2[a4, a1, SP[a1, a1], a2, a3, n] + 
    S2[a4, a1, SP[a1, a1], a3, a2, n] - 2*S2[a4, a1, SP[a1, a2], a1, a3, n] + 
    S2[a1, n]*S2[a4, a2, a1, a1, a3, n] + S2[a4, a2, a1, a1, SP[a1, a3], n] + 
    S2[a4, a2, a1, SP[a1, a1], a3, n] + S2[a4, a2, SP[a1, a1], a1, a3, n] + 
    S2[a4, SP[a1, a1], a1, a2, a3, n] + S2[a4, SP[a1, a1], a1, a3, a2, n] + 
    S2[a4, SP[a1, a1], a2, a1, a3, n] - 2*S2[a4, SP[a1, a2], a1, a1, a3, n] + 
    S2[SP[a1, a4], a1, a1, a2, a3, n] + S2[SP[a1, a4], a1, a1, a3, a2, n] + 
    S2[SP[a1, a4], a1, a2, a1, a3, n] + S2[SP[a1, a4], a2, a1, a1, a3, n] - 
    3*S2[SP[a2, a4], a1, a1, a1, a3, n] - S2[a4, a1, a1, a2, a3, a1, n] - 
    S2[a4, a1, a1, a3, a1, a2, n] - S2[a4, a1, a1, a3, a2, a1, n] - 
    S2[a4, a1, a2, a1, a3, a1, n] - S2[a4, a2, a1, a1, a3, a1, n] /; 
   MyMemberQ[{{a2, a3, a4}}, {a1, a1, a1, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a2_, a4_, a1_, a3_, a1_, a1_, n_] :> 
  S2[a2, n]*S2[a1, a1, a4, a1, a3, n] + S2[a1, a1, a4, a1, SP[a2, a3], n] + 
    S2[a1, a1, a4, SP[a1, a2], a3, n] + S2[a1, a1, SP[a2, a4], a1, a3, n] - 
    (S2[a1, n]*S2[a1, a2, a4, a1, a3, n])/2 - 
    S2[a1, a2, a4, a1, SP[a1, a3], n]/2 - S2[a1, a2, a4, SP[a1, a1], a3, n]/
     2 - S2[a1, a2, SP[a1, a4], a1, a3, n]/2 + 
    2*S2[a2, n]*S2[a1, a4, a1, a1, a3, n] + 
    2*S2[a1, a4, a1, a1, SP[a2, a3], n] - 
    (S2[a1, n]*S2[a1, a4, a1, a2, a3, n])/2 - 
    S2[a1, a4, a1, a2, SP[a1, a3], n]/2 - 
    (S2[a1, n]*S2[a1, a4, a1, a3, a2, n])/2 - 
    S2[a1, a4, a1, a3, SP[a1, a2], n]/2 + 
    (3*S2[a1, a4, a1, SP[a1, a2], a3, n])/2 - 
    S2[a1, a4, a1, SP[a1, a3], a2, n]/2 - 
    (S2[a1, n]*S2[a1, a4, a2, a1, a3, n])/2 - 
    S2[a1, a4, a2, a1, SP[a1, a3], n]/2 - S2[a1, a4, a2, SP[a1, a1], a3, n]/
     2 - S2[a1, a4, SP[a1, a1], a2, a3, n]/2 - 
    S2[a1, a4, SP[a1, a1], a3, a2, n]/2 + 
    (3*S2[a1, a4, SP[a1, a2], a1, a3, n])/2 + 
    S2[a1, SP[a1, a2], a4, a1, a3, n]/2 - S2[a1, SP[a1, a4], a1, a2, a3, n]/
     2 - S2[a1, SP[a1, a4], a1, a3, a2, n]/2 - 
    S2[a1, SP[a1, a4], a2, a1, a3, n]/2 + 
    2*S2[a1, SP[a2, a4], a1, a1, a3, n] - 
    (S2[a1, n]*S2[a2, a1, a4, a1, a3, n])/2 - 
    S2[a2, a1, a4, a1, SP[a1, a3], n]/2 - S2[a2, a1, a4, SP[a1, a1], a3, n]/
     2 - S2[a2, a1, SP[a1, a4], a1, a3, n]/2 - 
    S2[a1, n]*S2[a2, a4, a1, a1, a3, n] - S2[a2, a4, a1, a1, SP[a1, a3], n] + 
    (S2[a1, n]*S2[a2, a4, a1, a3, a1, n])/2 + 
    S2[a2, a4, a1, a3, SP[a1, a1], n]/2 - S2[a2, a4, a1, SP[a1, a1], a3, n] + 
    S2[a2, a4, a1, SP[a1, a3], a1, n]/2 - S2[a2, a4, SP[a1, a1], a1, a3, n] + 
    S2[a2, a4, SP[a1, a1], a3, a1, n]/2 - S2[a2, SP[a1, a1], a4, a1, a3, n]/
     2 - S2[a2, SP[a1, a4], a1, a1, a3, n] + 
    S2[a2, SP[a1, a4], a1, a3, a1, n]/2 + 
    3*S2[a2, n]*S2[a4, a1, a1, a1, a3, n] + 
    3*S2[a4, a1, a1, a1, SP[a2, a3], n] - 
    S2[a1, n]*S2[a4, a1, a1, a2, a3, n] - S2[a4, a1, a1, a2, SP[a1, a3], n] - 
    S2[a1, n]*S2[a4, a1, a1, a3, a2, n] - S2[a4, a1, a1, a3, SP[a1, a2], n] + 
    2*S2[a4, a1, a1, SP[a1, a2], a3, n] - S2[a4, a1, a1, SP[a1, a3], a2, n] - 
    S2[a1, n]*S2[a4, a1, a2, a1, a3, n] - S2[a4, a1, a2, a1, SP[a1, a3], n] + 
    (S2[a1, n]*S2[a4, a1, a2, a3, a1, n])/2 + 
    S2[a4, a1, a2, a3, SP[a1, a1], n]/2 - S2[a4, a1, a2, SP[a1, a1], a3, n] + 
    S2[a4, a1, a2, SP[a1, a3], a1, n]/2 + 
    (S2[a1, n]*S2[a4, a1, a3, a1, a2, n])/2 + 
    S2[a4, a1, a3, a1, SP[a1, a2], n]/2 + 
    (S2[a1, n]*S2[a4, a1, a3, a2, a1, n])/2 + 
    S2[a4, a1, a3, a2, SP[a1, a1], n]/2 + S2[a4, a1, a3, SP[a1, a1], a2, n]/
     2 + S2[a4, a1, a3, SP[a1, a2], a1, n]/2 - S2[a4, a1, SP[a1, a1], a2, a3, 
     n] - S2[a4, a1, SP[a1, a1], a3, a2, n] + 
    2*S2[a4, a1, SP[a1, a2], a1, a3, n] + S2[a4, a1, SP[a1, a2], a3, a1, n]/
     2 + S2[a4, a1, SP[a1, a3], a1, a2, n]/2 + 
    S2[a4, a1, SP[a1, a3], a2, a1, n]/2 - 
    S2[a1, n]*S2[a4, a2, a1, a1, a3, n] - S2[a4, a2, a1, a1, SP[a1, a3], n] + 
    (S2[a1, n]*S2[a4, a2, a1, a3, a1, n])/2 + 
    S2[a4, a2, a1, a3, SP[a1, a1], n]/2 - S2[a4, a2, a1, SP[a1, a1], a3, n] + 
    S2[a4, a2, a1, SP[a1, a3], a1, n]/2 - S2[a4, a2, SP[a1, a1], a1, a3, n] + 
    S2[a4, a2, SP[a1, a1], a3, a1, n]/2 - S2[a4, SP[a1, a1], a1, a2, a3, n] - 
    S2[a4, SP[a1, a1], a1, a3, a2, n] - S2[a4, SP[a1, a1], a2, a1, a3, n] + 
    S2[a4, SP[a1, a1], a2, a3, a1, n]/2 + S2[a4, SP[a1, a1], a3, a1, a2, n]/
     2 + S2[a4, SP[a1, a1], a3, a2, a1, n]/2 + 
    2*S2[a4, SP[a1, a2], a1, a1, a3, n] + S2[a4, SP[a1, a2], a1, a3, a1, n]/
     2 - S2[SP[a1, a1], a2, a4, a1, a3, n]/2 - 
    S2[SP[a1, a1], a4, a1, a2, a3, n]/2 - S2[SP[a1, a1], a4, a1, a3, a2, n]/
     2 - S2[SP[a1, a1], a4, a2, a1, a3, n]/2 + 

    S2[SP[a1, a2], a1, a4, a1, a3, n]/2 + S2[SP[a1, a2], a4, a1, a1, a3, n] + 
    S2[SP[a1, a2], a4, a1, a3, a1, n]/2 - S2[SP[a1, a4], a1, a1, a2, a3, n] - 
    S2[SP[a1, a4], a1, a1, a3, a2, n] - S2[SP[a1, a4], a1, a2, a1, a3, n] + 
    S2[SP[a1, a4], a1, a2, a3, a1, n]/2 + S2[SP[a1, a4], a1, a3, a1, a2, n]/
     2 + S2[SP[a1, a4], a1, a3, a2, a1, n]/2 - S2[SP[a1, a4], a2, a1, a1, a3, 
     n] + S2[SP[a1, a4], a2, a1, a3, a1, n]/2 + 
    3*S2[SP[a2, a4], a1, a1, a1, a3, n] - S2[a4, a1, a2, a3, a1, a1, n] - 
    S2[a4, a1, a3, a1, a1, a2, n] - S2[a4, a1, a3, a1, a2, a1, n] - 
    S2[a4, a1, a3, a2, a1, a1, n] - S2[a4, a2, a1, a3, a1, a1, n] /; 
   MyMemberQ[{{a2, a3, a4}}, {a1, a1, a1, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a2_, a4_, a3_, a1_, a1_, a1_, n_] :> 
  -(S2[a2, n]*S2[a1, a1, a1, a4, a3, n]) - S2[a1, a1, a1, a4, SP[a2, a3], 
     n] - S2[a1, a1, a1, SP[a2, a4], a3, n] + 
    (S2[a1, n]*S2[a1, a1, a2, a4, a3, n])/3 + 
    S2[a1, a1, a2, a4, SP[a1, a3], n]/3 + S2[a1, a1, a2, SP[a1, a4], a3, n]/
     3 - S2[a2, n]*S2[a1, a1, a4, a1, a3, n] - S2[a1, a1, a4, a1, SP[a2, a3], 
     n] + (S2[a1, n]*S2[a1, a1, a4, a2, a3, n])/3 + 
    S2[a1, a1, a4, a2, SP[a1, a3], n]/3 + 
    (S2[a1, n]*S2[a1, a1, a4, a3, a2, n])/3 + 
    S2[a1, a1, a4, a3, SP[a1, a2], n]/3 - 
    (2*S2[a1, a1, a4, SP[a1, a2], a3, n])/3 + 
    S2[a1, a1, a4, SP[a1, a3], a2, n]/3 - 
    (2*S2[a1, a1, SP[a1, a2], a4, a3, n])/3 + 
    S2[a1, a1, SP[a1, a4], a2, a3, n]/3 + S2[a1, a1, SP[a1, a4], a3, a2, n]/
     3 - S2[a1, a1, SP[a2, a4], a1, a3, n] + 
    (S2[a1, n]*S2[a1, a2, a1, a4, a3, n])/3 + 
    S2[a1, a2, a1, a4, SP[a1, a3], n]/3 + S2[a1, a2, a1, SP[a1, a4], a3, n]/
     3 + (S2[a1, n]*S2[a1, a2, a4, a1, a3, n])/3 + 
    S2[a1, a2, a4, a1, SP[a1, a3], n]/3 - 
    (S2[a1, n]*S2[a1, a2, a4, a3, a1, n])/6 - 
    S2[a1, a2, a4, a3, SP[a1, a1], n]/6 + S2[a1, a2, a4, SP[a1, a1], a3, n]/
     3 - S2[a1, a2, a4, SP[a1, a3], a1, n]/6 + 
    S2[a1, a2, SP[a1, a1], a4, a3, n]/3 + S2[a1, a2, SP[a1, a4], a1, a3, n]/
     3 - S2[a1, a2, SP[a1, a4], a3, a1, n]/6 - 
    S2[a2, n]*S2[a1, a4, a1, a1, a3, n] - S2[a1, a4, a1, a1, SP[a2, a3], n] + 
    (S2[a1, n]*S2[a1, a4, a1, a2, a3, n])/3 + 
    S2[a1, a4, a1, a2, SP[a1, a3], n]/3 + 
    (S2[a1, n]*S2[a1, a4, a1, a3, a2, n])/3 + 
    S2[a1, a4, a1, a3, SP[a1, a2], n]/3 - 
    (2*S2[a1, a4, a1, SP[a1, a2], a3, n])/3 + 
    S2[a1, a4, a1, SP[a1, a3], a2, n]/3 + 
    (S2[a1, n]*S2[a1, a4, a2, a1, a3, n])/3 + 
    S2[a1, a4, a2, a1, SP[a1, a3], n]/3 - 
    (S2[a1, n]*S2[a1, a4, a2, a3, a1, n])/6 - 
    S2[a1, a4, a2, a3, SP[a1, a1], n]/6 + S2[a1, a4, a2, SP[a1, a1], a3, n]/
     3 - S2[a1, a4, a2, SP[a1, a3], a1, n]/6 - 
    (S2[a1, n]*S2[a1, a4, a3, a1, a2, n])/6 - 
    S2[a1, a4, a3, a1, SP[a1, a2], n]/6 - 
    (S2[a1, n]*S2[a1, a4, a3, a2, a1, n])/6 - 
    S2[a1, a4, a3, a2, SP[a1, a1], n]/6 - S2[a1, a4, a3, SP[a1, a1], a2, n]/
     6 - S2[a1, a4, a3, SP[a1, a2], a1, n]/6 + 
    S2[a1, a4, SP[a1, a1], a2, a3, n]/3 + S2[a1, a4, SP[a1, a1], a3, a2, n]/
     3 - (2*S2[a1, a4, SP[a1, a2], a1, a3, n])/3 - 
    S2[a1, a4, SP[a1, a2], a3, a1, n]/6 - S2[a1, a4, SP[a1, a3], a1, a2, n]/
     6 - S2[a1, a4, SP[a1, a3], a2, a1, n]/6 + 
    S2[a1, SP[a1, a1], a2, a4, a3, n]/3 + S2[a1, SP[a1, a1], a4, a2, a3, n]/
     3 + S2[a1, SP[a1, a1], a4, a3, a2, n]/3 - 
    (2*S2[a1, SP[a1, a2], a1, a4, a3, n])/3 - 
    (2*S2[a1, SP[a1, a2], a4, a1, a3, n])/3 - 
    S2[a1, SP[a1, a2], a4, a3, a1, n]/6 + S2[a1, SP[a1, a4], a1, a2, a3, n]/
     3 + S2[a1, SP[a1, a4], a1, a3, a2, n]/3 + 
    S2[a1, SP[a1, a4], a2, a1, a3, n]/3 - S2[a1, SP[a1, a4], a2, a3, a1, n]/
     6 - S2[a1, SP[a1, a4], a3, a1, a2, n]/6 - 
    S2[a1, SP[a1, a4], a3, a2, a1, n]/6 - S2[a1, SP[a2, a4], a1, a1, a3, n] + 
    (S2[a1, n]*S2[a2, a1, a1, a4, a3, n])/3 + 
    S2[a2, a1, a1, a4, SP[a1, a3], n]/3 + S2[a2, a1, a1, SP[a1, a4], a3, n]/
     3 + (S2[a1, n]*S2[a2, a1, a4, a1, a3, n])/3 + 
    S2[a2, a1, a4, a1, SP[a1, a3], n]/3 - 
    (S2[a1, n]*S2[a2, a1, a4, a3, a1, n])/6 - 
    S2[a2, a1, a4, a3, SP[a1, a1], n]/6 + S2[a2, a1, a4, SP[a1, a1], a3, n]/
     3 - S2[a2, a1, a4, SP[a1, a3], a1, n]/6 + 
    S2[a2, a1, SP[a1, a1], a4, a3, n]/3 + S2[a2, a1, SP[a1, a4], a1, a3, n]/
     3 - S2[a2, a1, SP[a1, a4], a3, a1, n]/6 + 
    (S2[a1, n]*S2[a2, a4, a1, a1, a3, n])/3 + 
    S2[a2, a4, a1, a1, SP[a1, a3], n]/3 - 
    (S2[a1, n]*S2[a2, a4, a1, a3, a1, n])/6 - 
    S2[a2, a4, a1, a3, SP[a1, a1], n]/6 + S2[a2, a4, a1, SP[a1, a1], a3, n]/
     3 - S2[a2, a4, a1, SP[a1, a3], a1, n]/6 + 
    (S2[a1, n]*S2[a2, a4, a3, a1, a1, n])/3 + 
    S2[a2, a4, a3, a1, SP[a1, a1], n]/3 + S2[a2, a4, a3, SP[a1, a1], a1, n]/
     3 + S2[a2, a4, SP[a1, a1], a1, a3, n]/3 - 
    S2[a2, a4, SP[a1, a1], a3, a1, n]/6 + S2[a2, a4, SP[a1, a3], a1, a1, n]/
     3 + S2[a2, SP[a1, a1], a1, a4, a3, n]/3 + 
    S2[a2, SP[a1, a1], a4, a1, a3, n]/3 - S2[a2, SP[a1, a1], a4, a3, a1, n]/
     6 + S2[a2, SP[a1, a4], a1, a1, a3, n]/3 - 
    S2[a2, SP[a1, a4], a1, a3, a1, n]/6 + S2[a2, SP[a1, a4], a3, a1, a1, n]/
     3 - S2[a2, n]*S2[a4, a1, a1, a1, a3, n] - S2[a4, a1, a1, a1, SP[a2, a3], 
     n] + (S2[a1, n]*S2[a4, a1, a1, a2, a3, n])/3 + 
    S2[a4, a1, a1, a2, SP[a1, a3], n]/3 + 
    (S2[a1, n]*S2[a4, a1, a1, a3, a2, n])/3 + 
    S2[a4, a1, a1, a3, SP[a1, a2], n]/3 - 
    (2*S2[a4, a1, a1, SP[a1, a2], a3, n])/3 + 
    S2[a4, a1, a1, SP[a1, a3], a2, n]/3 + 
    (S2[a1, n]*S2[a4, a1, a2, a1, a3, n])/3 + 
    S2[a4, a1, a2, a1, SP[a1, a3], n]/3 - 
    (S2[a1, n]*S2[a4, a1, a2, a3, a1, n])/6 - 
    S2[a4, a1, a2, a3, SP[a1, a1], n]/6 + S2[a4, a1, a2, SP[a1, a1], a3, n]/
     3 - S2[a4, a1, a2, SP[a1, a3], a1, n]/6 - 
    (S2[a1, n]*S2[a4, a1, a3, a1, a2, n])/6 - 
    S2[a4, a1, a3, a1, SP[a1, a2], n]/6 - 
    (S2[a1, n]*S2[a4, a1, a3, a2, a1, n])/6 - 
    S2[a4, a1, a3, a2, SP[a1, a1], n]/6 - S2[a4, a1, a3, SP[a1, a1], a2, n]/
     6 - S2[a4, a1, a3, SP[a1, a2], a1, n]/6 + 
    S2[a4, a1, SP[a1, a1], a2, a3, n]/3 + S2[a4, a1, SP[a1, a1], a3, a2, n]/
     3 - (2*S2[a4, a1, SP[a1, a2], a1, a3, n])/3 - 
    S2[a4, a1, SP[a1, a2], a3, a1, n]/6 - S2[a4, a1, SP[a1, a3], a1, a2, n]/
     6 - S2[a4, a1, SP[a1, a3], a2, a1, n]/6 + 
    (S2[a1, n]*S2[a4, a2, a1, a1, a3, n])/3 + 
    S2[a4, a2, a1, a1, SP[a1, a3], n]/3 - 
    (S2[a1, n]*S2[a4, a2, a1, a3, a1, n])/6 - 
    S2[a4, a2, a1, a3, SP[a1, a1], n]/6 + S2[a4, a2, a1, SP[a1, a1], a3, n]/
     3 - S2[a4, a2, a1, SP[a1, a3], a1, n]/6 + 
    (S2[a1, n]*S2[a4, a2, a3, a1, a1, n])/3 + 
    S2[a4, a2, a3, a1, SP[a1, a1], n]/3 + S2[a4, a2, a3, SP[a1, a1], a1, n]/
     3 + S2[a4, a2, SP[a1, a1], a1, a3, n]/3 - 
    S2[a4, a2, SP[a1, a1], a3, a1, n]/6 + S2[a4, a2, SP[a1, a3], a1, a1, n]/
     3 + (S2[a1, n]*S2[a4, a3, a1, a1, a2, n])/3 + 
    S2[a4, a3, a1, a1, SP[a1, a2], n]/3 + 
    (S2[a1, n]*S2[a4, a3, a1, a2, a1, n])/3 + 
    S2[a4, a3, a1, a2, SP[a1, a1], n]/3 + S2[a4, a3, a1, SP[a1, a1], a2, n]/
     3 + S2[a4, a3, a1, SP[a1, a2], a1, n]/3 + 
    (S2[a1, n]*S2[a4, a3, a2, a1, a1, n])/3 + 
    S2[a4, a3, a2, a1, SP[a1, a1], n]/3 + S2[a4, a3, a2, SP[a1, a1], a1, n]/
     3 + S2[a4, a3, SP[a1, a1], a1, a2, n]/3 + 
    S2[a4, a3, SP[a1, a1], a2, a1, n]/3 + S2[a4, a3, SP[a1, a2], a1, a1, n]/
     3 + S2[a4, SP[a1, a1], a1, a2, a3, n]/3 + 
    S2[a4, SP[a1, a1], a1, a3, a2, n]/3 + S2[a4, SP[a1, a1], a2, a1, a3, n]/
     3 - S2[a4, SP[a1, a1], a2, a3, a1, n]/6 - 
    S2[a4, SP[a1, a1], a3, a1, a2, n]/6 - S2[a4, SP[a1, a1], a3, a2, a1, n]/
     6 - (2*S2[a4, SP[a1, a2], a1, a1, a3, n])/3 - 
    S2[a4, SP[a1, a2], a1, a3, a1, n]/6 + S2[a4, SP[a1, a2], a3, a1, a1, n]/
     3 + S2[a4, SP[a1, a3], a1, a1, a2, n]/3 + 
    S2[a4, SP[a1, a3], a1, a2, a1, n]/3 + S2[a4, SP[a1, a3], a2, a1, a1, n]/
     3 + S2[SP[a1, a1], a1, a2, a4, a3, n]/3 + 
    S2[SP[a1, a1], a1, a4, a2, a3, n]/3 + S2[SP[a1, a1], a1, a4, a3, a2, n]/
     3 + S2[SP[a1, a1], a2, a1, a4, a3, n]/3 + 
    S2[SP[a1, a1], a2, a4, a1, a3, n]/3 - S2[SP[a1, a1], a2, a4, a3, a1, n]/
     6 + S2[SP[a1, a1], a4, a1, a2, a3, n]/3 + 
    S2[SP[a1, a1], a4, a1, a3, a2, n]/3 + S2[SP[a1, a1], a4, a2, a1, a3, n]/
     3 - S2[SP[a1, a1], a4, a2, a3, a1, n]/6 - 
    S2[SP[a1, a1], a4, a3, a1, a2, n]/6 - S2[SP[a1, a1], a4, a3, a2, a1, n]/
     6 - (2*S2[SP[a1, a2], a1, a1, a4, a3, n])/3 - 
    (2*S2[SP[a1, a2], a1, a4, a1, a3, n])/3 - 
    S2[SP[a1, a2], a1, a4, a3, a1, n]/6 - 
    (2*S2[SP[a1, a2], a4, a1, a1, a3, n])/3 - 
    S2[SP[a1, a2], a4, a1, a3, a1, n]/6 + S2[SP[a1, a2], a4, a3, a1, a1, n]/
     3 + S2[SP[a1, a4], a1, a1, a2, a3, n]/3 + 
    S2[SP[a1, a4], a1, a1, a3, a2, n]/3 + S2[SP[a1, a4], a1, a2, a1, a3, n]/
     3 - S2[SP[a1, a4], a1, a2, a3, a1, n]/6 - 
    S2[SP[a1, a4], a1, a3, a1, a2, n]/6 - S2[SP[a1, a4], a1, a3, a2, a1, n]/
     6 + S2[SP[a1, a4], a2, a1, a1, a3, n]/3 - 
    S2[SP[a1, a4], a2, a1, a3, a1, n]/6 + S2[SP[a1, a4], a2, a3, a1, a1, n]/
     3 + S2[SP[a1, a4], a3, a1, a1, a2, n]/3 + 
    S2[SP[a1, a4], a3, a1, a2, a1, n]/3 + S2[SP[a1, a4], a3, a2, a1, a1, n]/
     3 - S2[SP[a2, a4], a1, a1, a1, a3, n] - S2[a4, a2, a3, a1, a1, a1, n] - 
    S2[a4, a3, a1, a1, a1, a2, n] - S2[a4, a3, a1, a1, a2, a1, n] - 
    S2[a4, a3, a1, a2, a1, a1, n] - S2[a4, a3, a2, a1, a1, a1, n] /; 
   MyMemberQ[{{a2, a3, a4}}, {a1, a1, a1, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a3_, a1_, a1_, a1_, a2_, a4_, n_] :> 
  S2[a1, a1, a3, n]*S2[a1, a2, a4, n] + S2[SP[a1, a1], SP[a1, a2], 
     SP[a3, a4], n] - S2[a2, a4, n]*S2[a1, a1, a1, a3, n] - 
    S2[a1, a3, n]*S2[a1, a1, a2, a4, n] - S2[SP[a1, a1], a2, a1, SP[a3, a4], 
     n] - S2[SP[a1, a1], a2, SP[a1, a4], a3, n] - S2[SP[a1, a1], SP[a1, a2], 
     a3, a4, n] - S2[SP[a1, a1], SP[a1, a2], a4, a3, n] + 
    S2[SP[a1, a1], SP[a1, a3], a2, a4, n] + S2[SP[a1, a2], a1, a1, 
     SP[a3, a4], n] + S2[SP[a1, a2], a1, SP[a1, a4], a3, n] + 
    S2[SP[a1, a2], SP[a1, a4], a1, a3, n] - 
    S2[a4, n]*S2[a1, a1, a1, a2, a3, n] + 
    S2[a3, n]*S2[a1, a1, a1, a2, a4, n] - S2[a1, a1, a1, a2, SP[a3, a4], n] - 
    S2[a4, n]*S2[a1, a1, a1, a3, a2, n] + 
    S2[a2, n]*S2[a1, a1, a1, a3, a4, n] + 
    S2[a2, n]*S2[a1, a1, a1, a4, a3, n] + S2[a1, a1, a1, a4, SP[a2, a3], n] + 
    S2[a1, a1, a1, SP[a2, a3], a4, n] - S2[a1, a1, a1, SP[a3, a4], a2, n] - 
    S2[a4, n]*S2[a1, a1, a2, a1, a3, n] - S2[a1, a1, a2, a1, SP[a3, a4], n] - 
    S2[a1, a1, a2, SP[a1, a4], a3, n] + S2[a2, n]*S2[a1, a1, a4, a1, a3, n] + 
    S2[a1, a1, a4, a1, SP[a2, a3], n] + S2[a1, a1, a4, SP[a1, a2], a3, n] + 
    S2[a1, a1, SP[a1, a2], a3, a4, n] + S2[a1, a1, SP[a1, a2], a4, a3, n] - 
    S2[a1, a1, SP[a1, a4], a2, a3, n] - S2[a1, a1, SP[a1, a4], a3, a2, n] - 
    S2[a4, n]*S2[a1, a2, a1, a1, a3, n] - S2[a1, a2, a1, a1, SP[a3, a4], n] - 
    S2[a1, a2, a1, SP[a1, a4], a3, n] - S2[a1, a2, SP[a1, a4], a1, a3, n] + 
    S2[a2, n]*S2[a1, a4, a1, a1, a3, n] + S2[a1, a4, a1, a1, SP[a2, a3], n] + 
    S2[a1, a4, a1, SP[a1, a2], a3, n] + S2[a1, a4, SP[a1, a2], a1, a3, n] + 
    S2[a1, SP[a1, a2], a1, a3, a4, n] + S2[a1, SP[a1, a2], a1, a4, a3, n] + 
    S2[a1, SP[a1, a2], a4, a1, a3, n] - S2[a1, SP[a1, a4], a1, a2, a3, n] - 
    S2[a1, SP[a1, a4], a1, a3, a2, n] - S2[a1, SP[a1, a4], a2, a1, a3, n] - 
    S2[a2, a1, a1, a1, SP[a3, a4], n] - S2[a2, a1, a1, SP[a1, a4], a3, n] - 
    S2[a2, a1, SP[a1, a4], a1, a3, n] - S2[a2, SP[a1, a4], a1, a1, a3, n] + 
    S2[a2, n]*S2[a4, a1, a1, a1, a3, n] + S2[a4, a1, a1, a1, SP[a2, a3], n] + 
    S2[a4, a1, a1, SP[a1, a2], a3, n] + S2[a4, a1, SP[a1, a2], a1, a3, n] + 
    S2[a4, SP[a1, a2], a1, a1, a3, n] + S2[SP[a1, a1], a2, a1, a3, a4, n] + 
    S2[SP[a1, a1], a2, a1, a4, a3, n] + S2[SP[a1, a1], a2, a4, a1, a3, n] - 
    S2[SP[a1, a1], a3, a1, a2, a4, n] + S2[SP[a1, a3], a1, a1, a2, a4, n] - 
    S2[SP[a1, a4], a1, a1, a2, a3, n] - S2[SP[a1, a4], a1, a1, a3, a2, n] - 
    S2[SP[a1, a4], a1, a2, a1, a3, n] - S2[SP[a1, a4], a2, a1, a1, a3, n] + 
    S2[SP[a2, a4], a1, a1, a1, a3, n] - S2[a4, a2, a1, a1, a1, a3, n] /; 
   MyMemberQ[{{a2, a3, a4}}, {a1, a1, a1, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a3_, a1_, a1_, a1_, a4_, a2_, n_] :> 
  S2[a1, a1, a3, n]*S2[a1, a4, a2, n] + S2[SP[a1, a1], SP[a1, a4], 
     SP[a2, a3], n] + S2[a2, a4, n]*S2[a1, a1, a1, a3, n] - 
    S2[a1, a3, n]*S2[a1, a1, a4, a2, n] - S2[a1, a1, SP[a1, a2], SP[a3, a4], 
     n] - S2[a1, a1, SP[a1, a4], SP[a2, a3], n] - S2[a1, SP[a1, a2], a1, 
     SP[a3, a4], n] - S2[a1, SP[a1, a2], SP[a1, a4], a3, n] - 
    S2[a1, SP[a1, a4], a1, SP[a2, a3], n] - S2[a1, SP[a1, a4], SP[a1, a2], 
     a3, n] - S2[SP[a1, a1], a4, a1, SP[a2, a3], n] - 
    S2[SP[a1, a1], a4, SP[a1, a2], a3, n] + S2[SP[a1, a1], SP[a1, a3], a4, 
     a2, n] - S2[SP[a1, a1], SP[a1, a4], a2, a3, n] - 
    S2[SP[a1, a1], SP[a1, a4], a3, a2, n] - S2[SP[a1, a2], a1, a1, 
     SP[a3, a4], n] - S2[SP[a1, a2], a1, SP[a1, a4], a3, n] - 
    S2[SP[a1, a2], SP[a1, a4], a1, a3, n] + S2[a1, a1, a1, a2, SP[a3, a4], 
     n] - S2[a2, n]*S2[a1, a1, a1, a3, a4, n] - S2[a1, a1, a1, a3, 
     SP[a2, a4], n] + S2[a3, n]*S2[a1, a1, a1, a4, a2, n] - 
    S2[a2, n]*S2[a1, a1, a1, a4, a3, n] - S2[a1, a1, a1, SP[a2, a4], a3, n] + 
    S2[a1, a1, a1, SP[a3, a4], a2, n] + S2[a1, a1, a2, a1, SP[a3, a4], n] + 
    S2[a1, a1, a2, SP[a1, a4], a3, n] - S2[a2, n]*S2[a1, a1, a4, a1, a3, n] + 
    S2[a1, a1, SP[a1, a4], a2, a3, n] + S2[a1, a1, SP[a1, a4], a3, a2, n] - 
    S2[a1, a1, SP[a2, a4], a1, a3, n] + S2[a1, a2, a1, a1, SP[a3, a4], n] + 
    S2[a1, a2, a1, SP[a1, a4], a3, n] + S2[a1, a2, SP[a1, a4], a1, a3, n] - 
    S2[a2, n]*S2[a1, a4, a1, a1, a3, n] + S2[a1, SP[a1, a4], a1, a2, a3, n] + 
    S2[a1, SP[a1, a4], a1, a3, a2, n] + S2[a1, SP[a1, a4], a2, a1, a3, n] - 
    S2[a1, SP[a2, a4], a1, a1, a3, n] + S2[a2, a1, a1, a1, SP[a3, a4], n] + 
    S2[a2, a1, a1, SP[a1, a4], a3, n] + S2[a2, a1, SP[a1, a4], a1, a3, n] + 
    S2[a2, SP[a1, a4], a1, a1, a3, n] - S2[a2, n]*S2[a4, a1, a1, a1, a3, n] - 
    S2[a4, a1, a1, a1, SP[a2, a3], n] - S2[a4, a1, a1, SP[a1, a2], a3, n] - 
    S2[a4, a1, SP[a1, a2], a1, a3, n] - S2[a4, SP[a1, a2], a1, a1, a3, n] - 
    S2[SP[a1, a1], a3, a1, a4, a2, n] + S2[SP[a1, a1], a4, a1, a2, a3, n] + 
    S2[SP[a1, a1], a4, a1, a3, a2, n] + S2[SP[a1, a1], a4, a2, a1, a3, n] + 
    S2[SP[a1, a3], a1, a1, a4, a2, n] - S2[SP[a2, a4], a1, a1, a1, a3, n] + 
    S2[a4, a1, a1, a1, a2, a3, n] + S2[a4, a1, a1, a1, a3, a2, n] + 
    S2[a4, a1, a1, a2, a1, a3, n] + S2[a4, a1, a2, a1, a1, a3, n] + 
    S2[a4, a2, a1, a1, a1, a3, n] /; 
   MyMemberQ[{{a2, a3, a4}}, {a1, a1, a1, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a3_, a1_, a1_, a2_, a1_, a4_, n_] :> 
  -(S2[a1, a1, a3, n]*S2[a1, a2, a4, n]) - S2[a1, a1, a3, n]*
     S2[a1, a4, a2, n] - S2[SP[a1, a1], SP[a1, a2], SP[a3, a4], n] - 
    S2[SP[a1, a1], SP[a1, a4], SP[a2, a3], n] + 
    S2[a1, a4, n]*S2[a1, a1, a2, a3, n] + S2[a1, a4, n]*
     S2[a1, a1, a3, a2, n] + S2[a1, a1, SP[a1, a2], SP[a3, a4], n] - 
    S2[a1, a1, SP[a1, a3], SP[a2, a4], n] + 
    2*S2[a1, a1, SP[a1, a4], SP[a2, a3], n] + 
    S2[a1, a4, n]*S2[a1, a2, a1, a3, n] - S2[a1, a3, n]*
     S2[a1, a2, a1, a4, n] - S2[a1, SP[a1, a1], a3, SP[a2, a4], n] + 
    S2[a1, SP[a1, a1], a4, SP[a2, a3], n] + S2[a1, SP[a1, a1], SP[a2, a3], 
     a4, n] - S2[a1, SP[a1, a1], SP[a2, a4], a3, n] + 
    S2[a1, SP[a1, a2], a1, SP[a3, a4], n] + S2[a1, SP[a1, a2], SP[a1, a3], 
     a4, n] + S2[a1, SP[a1, a4], a1, SP[a2, a3], n] + 
    S2[a1, SP[a1, a4], SP[a1, a2], a3, n] - S2[SP[a1, a1], a1, a3, 
     SP[a2, a4], n] + S2[SP[a1, a1], a1, a4, SP[a2, a3], n] + 
    S2[SP[a1, a1], a1, SP[a2, a3], a4, n] - S2[SP[a1, a1], a1, SP[a2, a4], 
     a3, n] + S2[SP[a1, a1], a2, a1, SP[a3, a4], n] + 
    S2[SP[a1, a1], a2, SP[a1, a3], a4, n] + S2[SP[a1, a1], a4, a1, 
     SP[a2, a3], n] + S2[SP[a1, a1], a4, SP[a1, a2], a3, n] + 
    S2[SP[a1, a1], SP[a1, a2], a3, a4, n] + S2[SP[a1, a1], SP[a1, a2], a4, 
     a3, n] + S2[SP[a1, a1], SP[a2, a3], a1, a4, n] - 
    S2[SP[a1, a1], SP[a2, a4], a1, a3, n] + 
    3*S2[a1, a1, a1, a3, SP[a2, a4], n] - 
    3*S2[a1, a1, a1, a4, SP[a2, a3], n] - 
    3*S2[a1, a1, a1, SP[a2, a3], a4, n] + 
    3*S2[a1, a1, a1, SP[a2, a4], a3, n] + 
    S2[a3, n]*S2[a1, a1, a2, a1, a4, n] + S2[a1, a1, a3, a1, SP[a2, a4], n] + 
    S2[a1, a1, a3, SP[a1, a2], a4, n] - 2*S2[a1, a1, a4, a1, SP[a2, a3], n] - 
    2*S2[a1, a1, a4, SP[a1, a2], a3, n] - S2[a1, a1, SP[a1, a2], a3, a4, n] - 
    S2[a1, a1, SP[a1, a2], a4, a3, n] - S2[a1, a1, SP[a2, a3], a1, a4, n] + 
    2*S2[a1, a1, SP[a2, a4], a1, a3, n] + 
    S2[a4, n]*S2[a1, a2, a1, a1, a3, n] - S2[a1, a4, a1, a1, SP[a2, a3], n] - 
    S2[a1, a4, a1, SP[a1, a2], a3, n] - S2[a1, a4, SP[a1, a2], a1, a3, n] - 
    S2[a1, SP[a1, a2], a1, a3, a4, n] - S2[a1, SP[a1, a2], a1, a4, a3, n] - 
    S2[a1, SP[a1, a2], a3, a1, a4, n] + S2[a1, SP[a2, a4], a1, a1, a3, n] - 
    S2[SP[a1, a1], a2, a1, a3, a4, n] - S2[SP[a1, a1], a2, a1, a4, a3, n] - 
    S2[SP[a1, a1], a2, a3, a1, a4, n] - S2[SP[a1, a1], a3, a2, a1, a4, n] + 
    S2[SP[a1, a3], a1, a2, a1, a4, n] + S2[SP[a1, a4], a2, a1, a1, a3, n] - 
    S2[a4, a1, a2, a1, a1, a3, n] /; 
   MyMemberQ[{{a2, a3, a4}}, {a1, a1, a1, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a3_, a1_, a1_, a2_, a4_, a1_, n_] :> 
  S2[a1, a1, a3, n]*S2[a1, a4, a2, n] + S2[SP[a1, a1], SP[a1, a4], 
     SP[a2, a3], n] - S2[a1, a4, n]*S2[a1, a1, a2, a3, n] + 
    2*S2[a1, a3, n]*S2[a1, a1, a2, a4, n] - S2[a1, a4, n]*
     S2[a1, a1, a3, a2, n] - S2[a1, a1, SP[a1, a2], SP[a3, a4], n] + 
    S2[a1, a1, SP[a1, a3], SP[a2, a4], n] - 
    2*S2[a1, a1, SP[a1, a4], SP[a2, a3], n] - 
    S2[a1, a4, n]*S2[a1, a2, a1, a3, n] + S2[a1, a3, n]*
     S2[a1, a2, a1, a4, n] - S2[a1, SP[a1, a1], a2, SP[a3, a4], n] + 
    S2[a1, SP[a1, a1], a3, SP[a2, a4], n] - S2[a1, SP[a1, a1], a4, 
     SP[a2, a3], n] - 2*S2[a1, SP[a1, a1], SP[a2, a3], a4, n] + 
    S2[a1, SP[a1, a1], SP[a2, a4], a3, n] - S2[a1, SP[a1, a2], SP[a1, a3], 
     a4, n] + S2[a1, SP[a1, a2], SP[a1, a4], a3, n] - 
    S2[a1, SP[a1, a4], a1, SP[a2, a3], n] - S2[a1, SP[a1, a4], SP[a1, a2], 
     a3, n] - S2[SP[a1, a1], a1, a2, SP[a3, a4], n] + 
    S2[SP[a1, a1], a1, a3, SP[a2, a4], n] - S2[SP[a1, a1], a1, a4, 
     SP[a2, a3], n] - 2*S2[SP[a1, a1], a1, SP[a2, a3], a4, n] + 
    S2[SP[a1, a1], a1, SP[a2, a4], a3, n] - S2[SP[a1, a1], a2, SP[a1, a3], 
     a4, n] + S2[SP[a1, a1], a2, SP[a1, a4], a3, n] - 
    S2[SP[a1, a1], a4, a1, SP[a2, a3], n] - S2[SP[a1, a1], a4, SP[a1, a2], 
     a3, n] - 2*S2[SP[a1, a1], SP[a1, a3], a2, a4, n] - 
    S2[SP[a1, a1], SP[a2, a3], a1, a4, n] + S2[SP[a1, a1], SP[a2, a4], a1, 
     a3, n] - 3*S2[a3, n]*S2[a1, a1, a1, a2, a4, n] - 
    3*S2[a1, a1, a1, a3, SP[a2, a4], n] + 
    3*S2[a1, a1, a1, a4, SP[a2, a3], n] + 
    3*S2[a1, a1, a1, SP[a2, a3], a4, n] - 
    3*S2[a1, a1, a1, SP[a2, a4], a3, n] - 
    S2[a3, n]*S2[a1, a1, a2, a1, a4, n] - S2[a1, a1, a3, a1, SP[a2, a4], n] - 
    S2[a1, a1, a3, SP[a1, a2], a4, n] + 2*S2[a1, a1, a4, a1, SP[a2, a3], n] + 
    2*S2[a1, a1, a4, SP[a1, a2], a3, n] + S2[a1, a1, SP[a1, a2], a3, a4, n] + 
    S2[a1, a1, SP[a1, a2], a4, a3, n] + S2[a1, a1, SP[a2, a3], a1, a4, n] - 
    2*S2[a1, a1, SP[a2, a4], a1, a3, n] + S2[a1, a4, a1, a1, SP[a2, a3], n] + 
    S2[a1, a4, a1, SP[a1, a2], a3, n] + S2[a1, a4, SP[a1, a2], a1, a3, n] + 
    S2[a1, SP[a1, a1], a2, a3, a4, n] + S2[a1, SP[a1, a1], a2, a4, a3, n] + 
    S2[a1, SP[a1, a1], a3, a2, a4, n] + S2[a1, SP[a1, a2], a3, a1, a4, n] - 
    S2[a1, SP[a1, a2], a4, a1, a3, n] - S2[a1, SP[a1, a3], a1, a2, a4, n] + 
    S2[a1, n]*S2[a3, a1, a1, a2, a4, n] + S2[a3, a1, a1, a2, SP[a1, a4], n] + 
    S2[a3, a1, a1, SP[a1, a2], a4, n] + S2[a3, a1, SP[a1, a1], a2, a4, n] + 
    S2[a3, SP[a1, a1], a1, a2, a4, n] - S2[a1, n]*S2[a4, a2, a1, a1, a3, n] - 
    S2[a4, a2, a1, a1, SP[a1, a3], n] - S2[a4, a2, a1, SP[a1, a1], a3, n] - 
    S2[a4, a2, SP[a1, a1], a1, a3, n] - S2[a4, SP[a1, a2], a1, a1, a3, n] + 
    S2[SP[a1, a1], a1, a2, a3, a4, n] + S2[SP[a1, a1], a1, a2, a4, a3, n] + 
    S2[SP[a1, a1], a1, a3, a2, a4, n] + S2[SP[a1, a1], a2, a3, a1, a4, n] - 
    S2[SP[a1, a1], a2, a4, a1, a3, n] + 2*S2[SP[a1, a1], a3, a1, a2, a4, n] + 
    S2[SP[a1, a1], a3, a2, a1, a4, n] - 2*S2[SP[a1, a3], a1, a1, a2, a4, n] - 
    S2[SP[a1, a3], a1, a2, a1, a4, n] - S2[SP[a1, a4], a2, a1, a1, a3, n] + 
    S2[a4, a1, a2, a1, a1, a3, n] + 3*S2[a4, a2, a1, a1, a1, a3, n] + 
    S2[a4, a2, a1, a1, a3, a1, n] /; 
   MyMemberQ[{{a2, a3, a4}}, {a1, a1, a1, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a3_, a1_, a1_, a4_, a1_, a2_, n_] :> 
  -(S2[a1, a1, a3, n]*S2[a1, a2, a4, n]) - S2[a1, a1, a3, n]*
     S2[a1, a4, a2, n] - S2[SP[a1, a1], SP[a1, a2], SP[a3, a4], n] - 
    S2[SP[a1, a1], SP[a1, a4], SP[a2, a3], n] + 
    2*S2[a1, a3, n]*S2[a1, a1, a2, a4, n] - 2*S2[a1, a2, n]*
     S2[a1, a1, a3, a4, n] + 2*S2[a1, a3, n]*S2[a1, a1, a4, a2, n] - 
    2*S2[a1, a2, n]*S2[a1, a1, a4, a3, n] + 
    2*S2[a1, a1, SP[a1, a3], SP[a2, a4], n] + 
    2*S2[a1, a1, SP[a1, a4], SP[a2, a3], n] + 
    S2[a1, a3, n]*S2[a1, a2, a1, a4, n] - S2[a1, a2, SP[a1, a1], SP[a3, a4], 
     n] - S2[a1, a2, n]*S2[a1, a3, a1, a4, n] + S2[a1, a3, SP[a1, a1], 
     SP[a2, a4], n] - S2[a1, a2, n]*S2[a1, a4, a1, a3, n] + 
    S2[a1, a4, SP[a1, a1], SP[a2, a3], n] - S2[a1, SP[a1, a1], a2, 
     SP[a3, a4], n] + 2*S2[a1, SP[a1, a1], a3, SP[a2, a4], n] + 
    S2[a1, SP[a1, a1], a4, SP[a2, a3], n] + S2[a1, SP[a1, a1], SP[a2, a3], 
     a4, n] + 2*S2[a1, SP[a1, a1], SP[a2, a4], a3, n] - 
    S2[a1, SP[a1, a1], SP[a3, a4], a2, n] - S2[a1, SP[a1, a2], SP[a1, a3], 
     a4, n] + S2[a1, SP[a1, a2], SP[a1, a4], a3, n] + 
    S2[a1, SP[a1, a3], a1, SP[a2, a4], n] + S2[a1, SP[a1, a3], SP[a1, a2], 
     a4, n] + 2*S2[a1, SP[a1, a4], a1, SP[a2, a3], n] + 
    2*S2[a1, SP[a1, a4], SP[a1, a2], a3, n] - S2[SP[a1, a1], a1, a2, 
     SP[a3, a4], n] + 2*S2[SP[a1, a1], a1, a3, SP[a2, a4], n] + 
    S2[SP[a1, a1], a1, a4, SP[a2, a3], n] + S2[SP[a1, a1], a1, SP[a2, a3], 
     a4, n] + 2*S2[SP[a1, a1], a1, SP[a2, a4], a3, n] - 
    S2[SP[a1, a1], a1, SP[a3, a4], a2, n] - S2[SP[a1, a1], a2, SP[a1, a3], 
     a4, n] + S2[SP[a1, a1], a2, SP[a1, a4], a3, n] + 
    S2[SP[a1, a1], a3, a1, SP[a2, a4], n] + S2[SP[a1, a1], a3, SP[a1, a2], 
     a4, n] + 2*S2[SP[a1, a1], a4, a1, SP[a2, a3], n] + 
    2*S2[SP[a1, a1], a4, SP[a1, a2], a3, n] + 
    3*S2[SP[a1, a1], SP[a1, a2], a3, a4, n] + 
    3*S2[SP[a1, a1], SP[a1, a2], a4, a3, n] - 
    2*S2[SP[a1, a1], SP[a1, a3], a2, a4, n] - 
    2*S2[SP[a1, a1], SP[a1, a3], a4, a2, n] + S2[SP[a1, a1], SP[a1, a4], a2, 
     a3, n] + S2[SP[a1, a1], SP[a1, a4], a3, a2, n] + 
    S2[SP[a1, a1], SP[a2, a4], a1, a3, n] + 
    3*S2[a4, n]*S2[a1, a1, a1, a2, a3, n] + 
    6*S2[a1, a1, a1, a2, SP[a3, a4], n] + 
    3*S2[a4, n]*S2[a1, a1, a1, a3, a2, n] - 
    3*S2[a1, a1, a1, a3, SP[a2, a4], n] - 
    3*S2[a1, a1, a1, a4, SP[a2, a3], n] - 
    3*S2[a1, a1, a1, SP[a2, a3], a4, n] - 
    3*S2[a1, a1, a1, SP[a2, a4], a3, n] + 
    6*S2[a1, a1, a1, SP[a3, a4], a2, n] + 
    2*S2[a4, n]*S2[a1, a1, a2, a1, a3, n] + 
    4*S2[a1, a1, a2, a1, SP[a3, a4], n] + 
    2*S2[a1, a1, a2, SP[a1, a3], a4, n] + 
    2*S2[a1, a1, a2, SP[a1, a4], a3, n] + 
    S2[a4, n]*S2[a1, a1, a3, a1, a2, n] - 
    3*S2[a1, a1, a3, a1, SP[a2, a4], n] - 
    2*S2[a1, a1, a3, SP[a1, a2], a4, n] - S2[a1, a1, a3, SP[a1, a4], a2, n] + 
    S2[a3, n]*S2[a1, a1, a4, a1, a2, n] - 
    3*S2[a1, a1, a4, a1, SP[a2, a3], n] - 
    2*S2[a1, a1, a4, SP[a1, a2], a3, n] - S2[a1, a1, a4, SP[a1, a3], a2, n] - 
    4*S2[a1, a1, SP[a1, a2], a3, a4, n] - 
    4*S2[a1, a1, SP[a1, a2], a4, a3, n] + S2[a1, a1, SP[a1, a3], a2, a4, n] + 
    S2[a1, a1, SP[a1, a3], a4, a2, n] + S2[a1, a1, SP[a1, a4], a2, a3, n] + 
    S2[a1, a1, SP[a1, a4], a3, a2, n] + 2*S2[a1, a1, SP[a3, a4], a1, a2, n] + 
    S2[a4, n]*S2[a1, a2, a1, a1, a3, n] + 
    2*S2[a1, a2, a1, a1, SP[a3, a4], n] + S2[a1, a2, a1, SP[a1, a3], a4, n] + 
    S2[a1, a2, a1, SP[a1, a4], a3, n] + S2[a1, a2, SP[a1, a1], a3, a4, n] + 
    S2[a1, a2, SP[a1, a1], a4, a3, n] - 2*S2[a1, a3, a1, a1, SP[a2, a4], n] - 
    S2[a1, a3, a1, SP[a1, a2], a4, n] - S2[a1, a3, a1, SP[a1, a4], a2, n] - 
    S2[a1, a3, SP[a1, a1], a2, a4, n] - S2[a1, a3, SP[a1, a1], a4, a2, n] - 
    3*S2[a1, a4, a1, a1, SP[a2, a3], n] - 
    2*S2[a1, a4, a1, SP[a1, a2], a3, n] - S2[a1, a4, a1, SP[a1, a3], a2, n] - 
    S2[a1, a4, SP[a1, a1], a2, a3, n] - S2[a1, a4, SP[a1, a1], a3, a2, n] - 
    S2[a1, a4, SP[a1, a2], a1, a3, n] - S2[a1, SP[a1, a1], a2, a3, a4, n] - 
    S2[a1, SP[a1, a1], a2, a4, a3, n] - S2[a1, SP[a1, a1], a3, a2, a4, n] - 
    S2[a1, SP[a1, a1], a3, a4, a2, n] - S2[a1, SP[a1, a1], a4, a2, a3, n] - 
    S2[a1, SP[a1, a1], a4, a3, a2, n] - 2*S2[a1, SP[a1, a2], a1, a3, a4, n] - 
    2*S2[a1, SP[a1, a2], a1, a4, a3, n] - 
    2*S2[a1, SP[a1, a2], a4, a1, a3, n] + S2[a1, SP[a1, a3], a1, a2, a4, n] + 
    S2[a1, SP[a1, a3], a1, a4, a2, n] + S2[a1, SP[a1, a3], a4, a1, a2, n] + 
    S2[a1, SP[a1, a4], a1, a2, a3, n] + S2[a1, SP[a1, a4], a1, a3, a2, n] + 
    S2[a1, SP[a1, a4], a3, a1, a2, n] + S2[a1, SP[a2, a4], a1, a1, a3, n] - 
    S2[SP[a1, a1], a1, a2, a3, a4, n] - S2[SP[a1, a1], a1, a2, a4, a3, n] - 
    S2[SP[a1, a1], a1, a3, a2, a4, n] - S2[SP[a1, a1], a1, a3, a4, a2, n] - 
    S2[SP[a1, a1], a1, a4, a2, a3, n] - S2[SP[a1, a1], a1, a4, a3, a2, n] - 
    2*S2[SP[a1, a1], a2, a1, a3, a4, n] - 
    2*S2[SP[a1, a1], a2, a1, a4, a3, n] - 
    2*S2[SP[a1, a1], a2, a4, a1, a3, n] + S2[SP[a1, a1], a3, a1, a2, a4, n] + 
    S2[SP[a1, a1], a3, a1, a4, a2, n] - 2*S2[SP[a1, a1], a4, a1, a2, a3, n] - 
    2*S2[SP[a1, a1], a4, a1, a3, a2, n] - 
    2*S2[SP[a1, a1], a4, a2, a1, a3, n] + S2[SP[a1, a3], a1, a4, a1, a2, n] + 
    3*S2[SP[a1, a4], a1, a1, a2, a3, n] + 
    3*S2[SP[a1, a4], a1, a1, a3, a2, n] + 
    2*S2[SP[a1, a4], a1, a2, a1, a3, n] + S2[SP[a1, a4], a1, a3, a1, a2, n] + 
    S2[SP[a1, a4], a2, a1, a1, a3, n] - 3*S2[a4, a1, a1, a1, a2, a3, n] - 
    3*S2[a4, a1, a1, a1, a3, a2, n] - 2*S2[a4, a1, a1, a2, a1, a3, n] - 
    S2[a4, a1, a1, a3, a1, a2, n] - S2[a4, a1, a2, a1, a1, a3, n] /; 
   MyMemberQ[{{a2, a3, a4}}, {a1, a1, a1, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a3_, a1_, a1_, a4_, a2_, a1_, n_] :> 
  S2[a1, a1, a3, n]*S2[a1, a2, a4, n] + S2[SP[a1, a1], SP[a1, a2], 
     SP[a3, a4], n] - 2*S2[a1, a3, n]*S2[a1, a1, a2, a4, n] + 
    2*S2[a1, a2, n]*S2[a1, a1, a3, a4, n] + 2*S2[a1, a2, n]*
     S2[a1, a1, a4, a3, n] - 2*S2[a1, a1, SP[a1, a3], SP[a2, a4], n] - 
    2*S2[a1, a1, SP[a1, a4], SP[a2, a3], n] - 
    S2[a1, a3, n]*S2[a1, a2, a1, a4, n] + S2[a1, a2, SP[a1, a1], SP[a3, a4], 
     n] + S2[a1, a2, n]*S2[a1, a3, a1, a4, n] - S2[a1, a3, SP[a1, a1], 
     SP[a2, a4], n] + S2[a1, a2, n]*S2[a1, a4, a1, a3, n] - 
    S2[a1, a4, SP[a1, a1], SP[a2, a3], n] + S2[a1, SP[a1, a1], a2, 
     SP[a3, a4], n] - 2*S2[a1, SP[a1, a1], a3, SP[a2, a4], n] - 
    2*S2[a1, SP[a1, a1], a4, SP[a2, a3], n] - S2[a1, SP[a1, a1], SP[a2, a3], 
     a4, n] - 2*S2[a1, SP[a1, a1], SP[a2, a4], a3, n] + 
    S2[a1, SP[a1, a2], SP[a1, a3], a4, n] - S2[a1, SP[a1, a2], SP[a1, a4], 
     a3, n] - S2[a1, SP[a1, a3], a1, SP[a2, a4], n] - 
    S2[a1, SP[a1, a3], SP[a1, a2], a4, n] - S2[a1, SP[a1, a4], a1, 
     SP[a2, a3], n] - S2[a1, SP[a1, a4], SP[a1, a2], a3, n] + 
    S2[SP[a1, a1], a1, a2, SP[a3, a4], n] - 
    2*S2[SP[a1, a1], a1, a3, SP[a2, a4], n] - 
    2*S2[SP[a1, a1], a1, a4, SP[a2, a3], n] - S2[SP[a1, a1], a1, SP[a2, a3], 
     a4, n] - 2*S2[SP[a1, a1], a1, SP[a2, a4], a3, n] + 
    S2[SP[a1, a1], a2, SP[a1, a3], a4, n] - S2[SP[a1, a1], a2, SP[a1, a4], 
     a3, n] - S2[SP[a1, a1], a3, a1, SP[a2, a4], n] - 
    S2[SP[a1, a1], a3, SP[a1, a2], a4, n] - S2[SP[a1, a1], a4, a1, 
     SP[a2, a3], n] - S2[SP[a1, a1], a4, SP[a1, a2], a3, n] - 
    3*S2[SP[a1, a1], SP[a1, a2], a3, a4, n] - 
    3*S2[SP[a1, a1], SP[a1, a2], a4, a3, n] + 
    2*S2[SP[a1, a1], SP[a1, a3], a2, a4, n] - S2[SP[a1, a1], SP[a2, a4], a1, 
     a3, n] - 3*S2[a4, n]*S2[a1, a1, a1, a2, a3, n] - 
    6*S2[a1, a1, a1, a2, SP[a3, a4], n] - 
    3*S2[a4, n]*S2[a1, a1, a1, a3, a2, n] + 
    3*S2[a1, a1, a1, a3, SP[a2, a4], n] - 
    3*S2[a3, n]*S2[a1, a1, a1, a4, a2, n] + 
    3*S2[a1, a1, a1, a4, SP[a2, a3], n] + 
    3*S2[a1, a1, a1, SP[a2, a3], a4, n] + 
    3*S2[a1, a1, a1, SP[a2, a4], a3, n] - 
    6*S2[a1, a1, a1, SP[a3, a4], a2, n] - 
    2*S2[a4, n]*S2[a1, a1, a2, a1, a3, n] - 
    4*S2[a1, a1, a2, a1, SP[a3, a4], n] - 
    2*S2[a1, a1, a2, SP[a1, a3], a4, n] - 
    2*S2[a1, a1, a2, SP[a1, a4], a3, n] - 
    S2[a4, n]*S2[a1, a1, a3, a1, a2, n] + 
    3*S2[a1, a1, a3, a1, SP[a2, a4], n] + 
    2*S2[a1, a1, a3, SP[a1, a2], a4, n] + S2[a1, a1, a3, SP[a1, a4], a2, n] - 
    S2[a3, n]*S2[a1, a1, a4, a1, a2, n] + 
    3*S2[a1, a1, a4, a1, SP[a2, a3], n] + 
    2*S2[a1, a1, a4, SP[a1, a2], a3, n] + S2[a1, a1, a4, SP[a1, a3], a2, n] + 
    4*S2[a1, a1, SP[a1, a2], a3, a4, n] + 
    4*S2[a1, a1, SP[a1, a2], a4, a3, n] - S2[a1, a1, SP[a1, a3], a2, a4, n] - 
    S2[a1, a1, SP[a1, a3], a4, a2, n] - S2[a1, a1, SP[a1, a4], a2, a3, n] - 
    S2[a1, a1, SP[a1, a4], a3, a2, n] - 2*S2[a1, a1, SP[a3, a4], a1, a2, n] - 
    S2[a4, n]*S2[a1, a2, a1, a1, a3, n] - 
    2*S2[a1, a2, a1, a1, SP[a3, a4], n] - S2[a1, a2, a1, SP[a1, a3], a4, n] - 
    S2[a1, a2, a1, SP[a1, a4], a3, n] - S2[a1, a2, SP[a1, a1], a3, a4, n] - 
    S2[a1, a2, SP[a1, a1], a4, a3, n] + 2*S2[a1, a3, a1, a1, SP[a2, a4], n] + 
    S2[a1, a3, a1, SP[a1, a2], a4, n] + S2[a1, a3, a1, SP[a1, a4], a2, n] + 
    S2[a1, a3, SP[a1, a1], a2, a4, n] + S2[a1, a3, SP[a1, a1], a4, a2, n] + 
    2*S2[a1, a4, a1, a1, SP[a2, a3], n] + S2[a1, a4, a1, SP[a1, a2], a3, n] + 
    S2[a1, a4, a1, SP[a1, a3], a2, n] + S2[a1, a4, SP[a1, a1], a2, a3, n] + 
    S2[a1, a4, SP[a1, a1], a3, a2, n] + S2[a1, SP[a1, a1], a2, a3, a4, n] + 
    S2[a1, SP[a1, a1], a2, a4, a3, n] + S2[a1, SP[a1, a1], a3, a2, a4, n] + 
    2*S2[a1, SP[a1, a1], a3, a4, a2, n] + 
    2*S2[a1, SP[a1, a1], a4, a2, a3, n] + 
    2*S2[a1, SP[a1, a1], a4, a3, a2, n] + 
    2*S2[a1, SP[a1, a2], a1, a3, a4, n] + 
    2*S2[a1, SP[a1, a2], a1, a4, a3, n] + 
    2*S2[a1, SP[a1, a2], a4, a1, a3, n] - S2[a1, SP[a1, a3], a1, a2, a4, n] - 
    2*S2[a1, SP[a1, a3], a1, a4, a2, n] - S2[a1, SP[a1, a3], a4, a1, a2, n] - 
    2*S2[a1, SP[a1, a4], a1, a2, a3, n] - 
    2*S2[a1, SP[a1, a4], a1, a3, a2, n] - S2[a1, SP[a1, a4], a2, a1, a3, n] - 
    S2[a1, SP[a1, a4], a3, a1, a2, n] - S2[a1, SP[a2, a4], a1, a1, a3, n] + 
    S2[a1, n]*S2[a3, a1, a1, a4, a2, n] + S2[a3, a1, a1, a4, SP[a1, a2], n] + 
    S2[a3, a1, a1, SP[a1, a4], a2, n] + S2[a3, a1, SP[a1, a1], a4, a2, n] + 
    S2[a3, SP[a1, a1], a1, a4, a2, n] + S2[a1, n]*S2[a4, a1, a1, a2, a3, n] + 
    S2[a4, a1, a1, a2, SP[a1, a3], n] + S2[a1, n]*S2[a4, a1, a1, a3, a2, n] + 
    S2[a4, a1, a1, a3, SP[a1, a2], n] + S2[a4, a1, a1, SP[a1, a2], a3, n] + 
    S2[a4, a1, a1, SP[a1, a3], a2, n] + S2[a1, n]*S2[a4, a1, a2, a1, a3, n] + 
    S2[a4, a1, a2, a1, SP[a1, a3], n] + S2[a4, a1, a2, SP[a1, a1], a3, n] + 
    S2[a4, a1, SP[a1, a1], a2, a3, n] + S2[a4, a1, SP[a1, a1], a3, a2, n] + 
    S2[a4, a1, SP[a1, a2], a1, a3, n] + S2[a1, n]*S2[a4, a2, a1, a1, a3, n] + 
    S2[a4, a2, a1, a1, SP[a1, a3], n] + S2[a4, a2, a1, SP[a1, a1], a3, n] + 
    S2[a4, a2, SP[a1, a1], a1, a3, n] + S2[a4, SP[a1, a1], a1, a2, a3, n] + 
    S2[a4, SP[a1, a1], a1, a3, a2, n] + S2[a4, SP[a1, a1], a2, a1, a3, n] + 
    S2[a4, SP[a1, a2], a1, a1, a3, n] + S2[SP[a1, a1], a1, a2, a3, a4, n] + 
    S2[SP[a1, a1], a1, a2, a4, a3, n] + S2[SP[a1, a1], a1, a3, a2, a4, n] + 
    2*S2[SP[a1, a1], a1, a3, a4, a2, n] + 
    2*S2[SP[a1, a1], a1, a4, a2, a3, n] + 
    2*S2[SP[a1, a1], a1, a4, a3, a2, n] + 
    2*S2[SP[a1, a1], a2, a1, a3, a4, n] + 
    2*S2[SP[a1, a1], a2, a1, a4, a3, n] + 
    2*S2[SP[a1, a1], a2, a4, a1, a3, n] - S2[SP[a1, a1], a3, a1, a2, a4, n] + 
    S2[SP[a1, a1], a3, a1, a4, a2, n] + S2[SP[a1, a1], a4, a1, a2, a3, n] + 
    S2[SP[a1, a1], a4, a1, a3, a2, n] + S2[SP[a1, a1], a4, a2, a1, a3, n] - 
    2*S2[SP[a1, a3], a1, a1, a4, a2, n] - S2[SP[a1, a3], a1, a4, a1, a2, n] - 
    2*S2[SP[a1, a4], a1, a1, a2, a3, n] - 
    2*S2[SP[a1, a4], a1, a1, a3, a2, n] - S2[SP[a1, a4], a1, a2, a1, a3, n] - 
    S2[SP[a1, a4], a1, a3, a1, a2, n] - S2[a4, a1, a1, a2, a1, a3, n] - 
    S2[a4, a1, a1, a2, a3, a1, n] - S2[a4, a1, a1, a3, a2, a1, n] - 
    2*S2[a4, a1, a2, a1, a1, a3, n] - S2[a4, a1, a2, a1, a3, a1, n] - 
    3*S2[a4, a2, a1, a1, a1, a3, n] - S2[a4, a2, a1, a1, a3, a1, n] /; 
   MyMemberQ[{{a2, a3, a4}}, {a1, a1, a1, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a3_, a1_, a2_, a1_, a1_, a4_, n_] :> 
  -(S2[a1, a1, a4, n]*S2[a1, a2, a3, n]) - S2[a1, a1, a4, n]*
     S2[a1, a3, a2, n] - S2[SP[a1, a1], SP[a1, a2], SP[a3, a4], n] - 
    S2[SP[a1, a1], SP[a1, a3], SP[a2, a4], n] + 
    S2[a1, a3, n]*S2[a1, a1, a2, a4, n] + S2[a1, a3, n]*
     S2[a1, a1, a4, a2, n] + S2[a1, a1, SP[a1, a2], SP[a3, a4], n] + 
    2*S2[a1, a1, SP[a1, a3], SP[a2, a4], n] - S2[a1, a1, SP[a1, a4], 
     SP[a2, a3], n] - S2[a1, a4, n]*S2[a1, a2, a1, a3, n] + 
    S2[a1, a3, n]*S2[a1, a2, a1, a4, n] + S2[a1, SP[a1, a1], a3, SP[a2, a4], 
     n] - S2[a1, SP[a1, a1], a4, SP[a2, a3], n] - 
    S2[a1, SP[a1, a1], SP[a2, a3], a4, n] + S2[a1, SP[a1, a1], SP[a2, a4], 
     a3, n] + S2[a1, SP[a1, a2], a1, SP[a3, a4], n] + 
    S2[a1, SP[a1, a2], SP[a1, a4], a3, n] + S2[a1, SP[a1, a3], a1, 
     SP[a2, a4], n] + S2[a1, SP[a1, a3], SP[a1, a2], a4, n] + 
    S2[SP[a1, a1], a1, a3, SP[a2, a4], n] - S2[SP[a1, a1], a1, a4, 
     SP[a2, a3], n] - S2[SP[a1, a1], a1, SP[a2, a3], a4, n] + 
    S2[SP[a1, a1], a1, SP[a2, a4], a3, n] + S2[SP[a1, a1], a2, a1, 
     SP[a3, a4], n] + S2[SP[a1, a1], a2, SP[a1, a4], a3, n] + 
    S2[SP[a1, a1], a3, a1, SP[a2, a4], n] + S2[SP[a1, a1], a3, SP[a1, a2], 
     a4, n] + S2[SP[a1, a1], SP[a1, a2], a3, a4, n] + 
    S2[SP[a1, a1], SP[a1, a2], a4, a3, n] - S2[SP[a1, a1], SP[a2, a3], a1, 
     a4, n] + S2[SP[a1, a1], SP[a2, a4], a1, a3, n] - 
    3*S2[a1, a1, a1, a3, SP[a2, a4], n] + 
    3*S2[a1, a1, a1, a4, SP[a2, a3], n] + 
    3*S2[a1, a1, a1, SP[a2, a3], a4, n] - 
    3*S2[a1, a1, a1, SP[a2, a4], a3, n] + 
    S2[a4, n]*S2[a1, a1, a2, a1, a3, n] - 
    2*S2[a1, a1, a3, a1, SP[a2, a4], n] - 
    2*S2[a1, a1, a3, SP[a1, a2], a4, n] + S2[a1, a1, a4, a1, SP[a2, a3], n] + 
    S2[a1, a1, a4, SP[a1, a2], a3, n] - S2[a1, a1, SP[a1, a2], a3, a4, n] - 
    S2[a1, a1, SP[a1, a2], a4, a3, n] + 2*S2[a1, a1, SP[a2, a3], a1, a4, n] - 
    S2[a1, a1, SP[a2, a4], a1, a3, n] + S2[a3, n]*S2[a1, a2, a1, a1, a4, n] - 
    S2[a1, a3, a1, a1, SP[a2, a4], n] - S2[a1, a3, a1, SP[a1, a2], a4, n] - 
    S2[a1, a3, SP[a1, a2], a1, a4, n] - S2[a1, SP[a1, a2], a1, a3, a4, n] - 
    S2[a1, SP[a1, a2], a1, a4, a3, n] - S2[a1, SP[a1, a2], a4, a1, a3, n] + 
    S2[a1, SP[a2, a3], a1, a1, a4, n] - S2[SP[a1, a1], a2, a1, a3, a4, n] - 
    S2[SP[a1, a1], a2, a1, a4, a3, n] - S2[SP[a1, a1], a2, a4, a1, a3, n] - 
    S2[SP[a1, a1], a4, a2, a1, a3, n] + S2[SP[a1, a3], a2, a1, a1, a4, n] + 
    S2[SP[a1, a4], a1, a2, a1, a3, n] - S2[a4, a1, a1, a2, a1, a3, n] /; 
   MyMemberQ[{{a2, a3, a4}}, {a1, a1, a1, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a3_, a1_, a2_, a1_, a4_, a1_, n_] :> 
  2*S2[a1, a1, a4, n]*S2[a1, a2, a3, n] + 2*S2[a1, a1, a4, n]*
     S2[a1, a3, a2, n] + 2*S2[SP[a1, a1], SP[a1, a2], SP[a3, a4], n] + 
    2*S2[SP[a1, a1], SP[a1, a3], SP[a2, a4], n] - 
    2*S2[a1, a3, n]*S2[a1, a1, a2, a4, n] - 2*S2[a1, a3, n]*
     S2[a1, a1, a4, a2, n] - 2*S2[a1, a1, SP[a1, a2], SP[a3, a4], n] - 
    4*S2[a1, a1, SP[a1, a3], SP[a2, a4], n] + 
    2*S2[a1, a1, SP[a1, a4], SP[a2, a3], n] + 
    S2[a1, a4, n]*S2[a1, a2, a1, a3, n] - S2[a1, a3, n]*
     S2[a1, a2, a1, a4, n] - 2*S2[a1, SP[a1, a1], a3, SP[a2, a4], n] + 
    2*S2[a1, SP[a1, a1], a4, SP[a2, a3], n] + 
    2*S2[a1, SP[a1, a1], SP[a2, a3], a4, n] - 
    2*S2[a1, SP[a1, a1], SP[a2, a4], a3, n] - 
    2*S2[a1, SP[a1, a2], a1, SP[a3, a4], n] - S2[a1, SP[a1, a2], SP[a1, a3], 
     a4, n] - S2[a1, SP[a1, a2], SP[a1, a4], a3, n] - 
    2*S2[a1, SP[a1, a3], a1, SP[a2, a4], n] - 
    2*S2[a1, SP[a1, a3], SP[a1, a2], a4, n] - 
    2*S2[SP[a1, a1], a1, a3, SP[a2, a4], n] + 
    2*S2[SP[a1, a1], a1, a4, SP[a2, a3], n] + 
    2*S2[SP[a1, a1], a1, SP[a2, a3], a4, n] - 
    2*S2[SP[a1, a1], a1, SP[a2, a4], a3, n] - 
    2*S2[SP[a1, a1], a2, a1, SP[a3, a4], n] - S2[SP[a1, a1], a2, SP[a1, a3], 
     a4, n] - S2[SP[a1, a1], a2, SP[a1, a4], a3, n] - 
    2*S2[SP[a1, a1], a3, a1, SP[a2, a4], n] - 
    2*S2[SP[a1, a1], a3, SP[a1, a2], a4, n] - 
    2*S2[SP[a1, a1], SP[a1, a2], a3, a4, n] - 
    2*S2[SP[a1, a1], SP[a1, a2], a4, a3, n] + S2[SP[a1, a1], SP[a2, a3], a1, 
     a4, n] - S2[SP[a1, a1], SP[a2, a4], a1, a3, n] + 
    6*S2[a1, a1, a1, a3, SP[a2, a4], n] - 
    6*S2[a1, a1, a1, a4, SP[a2, a3], n] - 
    6*S2[a1, a1, a1, SP[a2, a3], a4, n] + 
    6*S2[a1, a1, a1, SP[a2, a4], a3, n] - 
    2*S2[a3, n]*S2[a1, a1, a2, a1, a4, n] + 
    4*S2[a1, a1, a3, a1, SP[a2, a4], n] + 
    4*S2[a1, a1, a3, SP[a1, a2], a4, n] - 
    2*S2[a1, a1, a4, a1, SP[a2, a3], n] - 
    2*S2[a1, a1, a4, SP[a1, a2], a3, n] + 
    2*S2[a1, a1, SP[a1, a2], a3, a4, n] + 
    2*S2[a1, a1, SP[a1, a2], a4, a3, n] - 
    4*S2[a1, a1, SP[a2, a3], a1, a4, n] + 
    2*S2[a1, a1, SP[a2, a4], a1, a3, n] - 
    2*S2[a3, n]*S2[a1, a2, a1, a1, a4, n] + 
    2*S2[a1, a3, a1, a1, SP[a2, a4], n] + 
    2*S2[a1, a3, a1, SP[a1, a2], a4, n] + 
    2*S2[a1, a3, SP[a1, a2], a1, a4, n] + 
    2*S2[a1, SP[a1, a2], a1, a3, a4, n] + 
    2*S2[a1, SP[a1, a2], a1, a4, a3, n] + S2[a1, SP[a1, a2], a3, a1, a4, n] + 
    S2[a1, SP[a1, a2], a4, a1, a3, n] - S2[a1, SP[a1, a3], a2, a1, a4, n] + 
    S2[a1, SP[a1, a4], a2, a1, a3, n] - 2*S2[a1, SP[a2, a3], a1, a1, a4, n] + 
    S2[a1, n]*S2[a3, a1, a2, a1, a4, n] + S2[a3, a1, a2, a1, SP[a1, a4], n] + 
    S2[a3, a1, a2, SP[a1, a1], a4, n] + S2[a3, a1, SP[a1, a2], a1, a4, n] + 
    S2[a3, SP[a1, a1], a2, a1, a4, n] - S2[a1, n]*S2[a4, a1, a2, a1, a3, n] - 
    S2[a4, a1, a2, a1, SP[a1, a3], n] - S2[a4, a1, a2, SP[a1, a1], a3, n] - 
    S2[a4, a1, SP[a1, a2], a1, a3, n] - S2[a4, SP[a1, a1], a2, a1, a3, n] + 
    2*S2[SP[a1, a1], a2, a1, a3, a4, n] + 
    2*S2[SP[a1, a1], a2, a1, a4, a3, n] + S2[SP[a1, a1], a2, a3, a1, a4, n] + 
    S2[SP[a1, a1], a2, a4, a1, a3, n] + S2[SP[a1, a1], a3, a2, a1, a4, n] + 
    S2[SP[a1, a1], a4, a2, a1, a3, n] - S2[SP[a1, a3], a1, a2, a1, a4, n] - 
    2*S2[SP[a1, a3], a2, a1, a1, a4, n] - S2[SP[a1, a4], a1, a2, a1, a3, n] + 
    2*S2[a4, a1, a1, a2, a1, a3, n] + 2*S2[a4, a1, a2, a1, a1, a3, n] + 
    S2[a4, a1, a2, a1, a3, a1, n] /; 
   MyMemberQ[{{a2, a3, a4}}, {a1, a1, a1, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a3_, a1_, a2_, a4_, a1_, a1_, n_] :> 
  -(S2[a1, a1, a4, n]*S2[a1, a2, a3, n]) - S2[a1, a1, a4, n]*
     S2[a1, a3, a2, n] - S2[SP[a1, a1], SP[a1, a2], SP[a3, a4], n] - 
    S2[SP[a1, a1], SP[a1, a3], SP[a2, a4], n] + 
    S2[a1, a3, n]*S2[a1, a1, a4, a2, n] + 
    2*S2[a1, a1, SP[a1, a2], SP[a3, a4], n] + 
    2*S2[a1, a1, SP[a1, a3], SP[a2, a4], n] - S2[a1, a1, SP[a1, a4], 
     SP[a2, a3], n] + S2[a1, SP[a1, a1], a2, SP[a3, a4], n] + 
    S2[a1, SP[a1, a1], a3, SP[a2, a4], n] - S2[a1, SP[a1, a1], a4, 
     SP[a2, a3], n] + S2[a1, SP[a1, a1], SP[a2, a4], a3, n] + 
    S2[a1, SP[a1, a2], a1, SP[a3, a4], n] + S2[a1, SP[a1, a2], SP[a1, a3], 
     a4, n] + S2[a1, SP[a1, a3], a1, SP[a2, a4], n] + 
    S2[a1, SP[a1, a3], SP[a1, a2], a4, n] + S2[SP[a1, a1], a1, a2, 
     SP[a3, a4], n] + S2[SP[a1, a1], a1, a3, SP[a2, a4], n] - 
    S2[SP[a1, a1], a1, a4, SP[a2, a3], n] + S2[SP[a1, a1], a1, SP[a2, a4], 
     a3, n] + S2[SP[a1, a1], a2, a1, SP[a3, a4], n] + 
    S2[SP[a1, a1], a2, SP[a1, a3], a4, n] + S2[SP[a1, a1], a3, a1, 
     SP[a2, a4], n] + S2[SP[a1, a1], a3, SP[a1, a2], a4, n] + 
    S2[SP[a1, a1], SP[a1, a2], a3, a4, n] + S2[SP[a1, a1], SP[a1, a2], a4, 
     a3, n] + S2[SP[a1, a1], SP[a1, a3], a2, a4, n] + 
    3*S2[a3, n]*S2[a1, a1, a1, a2, a4, n] - 
    3*S2[a1, a1, a1, a3, SP[a2, a4], n] + 
    3*S2[a1, a1, a1, a4, SP[a2, a3], n] + 
    3*S2[a1, a1, a1, SP[a2, a3], a4, n] - 
    3*S2[a1, a1, a1, SP[a2, a4], a3, n] + 
    2*S2[a3, n]*S2[a1, a1, a2, a1, a4, n] - 
    2*S2[a1, a1, a3, a1, SP[a2, a4], n] - 
    2*S2[a1, a1, a3, SP[a1, a2], a4, n] + S2[a1, a1, a4, a1, SP[a2, a3], n] + 
    S2[a1, a1, a4, SP[a1, a2], a3, n] - 2*S2[a1, a1, SP[a1, a2], a3, a4, n] - 
    2*S2[a1, a1, SP[a1, a2], a4, a3, n] + S2[a1, a1, SP[a1, a3], a2, a4, n] + 
    2*S2[a1, a1, SP[a2, a3], a1, a4, n] + 
    S2[a3, n]*S2[a1, a2, a1, a1, a4, n] - S2[a1, a3, a1, a1, SP[a2, a4], n] - 
    (S2[a1, n]*S2[a1, a3, a1, a2, a4, n])/2 - 
    S2[a1, a3, a1, a2, SP[a1, a4], n]/2 - 
    (3*S2[a1, a3, a1, SP[a1, a2], a4, n])/2 - 
    S2[a1, a3, SP[a1, a1], a2, a4, n]/2 - S2[a1, a3, SP[a1, a2], a1, a4, n] - 
    (S2[a1, n]*S2[a1, a4, a2, a1, a3, n])/2 - 
    S2[a1, a4, a2, a1, SP[a1, a3], n]/2 - S2[a1, a4, a2, SP[a1, a1], a3, n]/
     2 - S2[a1, a4, SP[a1, a2], a1, a3, n]/2 - S2[a1, SP[a1, a1], a2, a3, a4, 
     n] - S2[a1, SP[a1, a1], a2, a4, a3, n] - S2[a1, SP[a1, a1], a3, a2, a4, 
     n] - S2[a1, SP[a1, a2], a1, a3, a4, n] - S2[a1, SP[a1, a2], a1, a4, a3, 
     n] - S2[a1, SP[a1, a2], a3, a1, a4, n] + 
    (3*S2[a1, SP[a1, a3], a1, a2, a4, n])/2 + S2[a1, SP[a1, a3], a2, a1, a4, 
     n] - S2[a1, SP[a1, a4], a2, a1, a3, n]/2 + S2[a1, SP[a2, a3], a1, a1, 
     a4, n] - S2[a1, n]*S2[a3, a1, a1, a2, a4, n] - 
    S2[a3, a1, a1, a2, SP[a1, a4], n] - S2[a3, a1, a1, SP[a1, a2], a4, n] - 
    (S2[a1, n]*S2[a3, a1, a2, a1, a4, n])/2 - 
    S2[a3, a1, a2, a1, SP[a1, a4], n]/2 + 
    (S2[a1, n]*S2[a3, a1, a2, a4, a1, n])/2 + 
    S2[a3, a1, a2, a4, SP[a1, a1], n]/2 - S2[a3, a1, a2, SP[a1, a1], a4, n]/
     2 + S2[a3, a1, a2, SP[a1, a4], a1, n]/2 - S2[a3, a1, SP[a1, a1], a2, a4, 
     n] - S2[a3, a1, SP[a1, a2], a1, a4, n]/2 + 
    S2[a3, a1, SP[a1, a2], a4, a1, n]/2 - S2[a3, SP[a1, a1], a1, a2, a4, n] - 
    S2[a3, SP[a1, a1], a2, a1, a4, n]/2 + S2[a3, SP[a1, a1], a2, a4, a1, n]/
     2 + (S2[a1, n]*S2[a4, a1, a2, a1, a3, n])/2 + 
    S2[a4, a1, a2, a1, SP[a1, a3], n]/2 + S2[a4, a1, a2, SP[a1, a1], a3, n]/
     2 + S2[a4, a1, SP[a1, a2], a1, a3, n]/2 + 
    S2[a1, n]*S2[a4, a2, a1, a1, a3, n] + S2[a4, a2, a1, a1, SP[a1, a3], n] + 
    (S2[a1, n]*S2[a4, a2, a1, a3, a1, n])/2 + 
    S2[a4, a2, a1, a3, SP[a1, a1], n]/2 + S2[a4, a2, a1, SP[a1, a1], a3, n] + 
    S2[a4, a2, a1, SP[a1, a3], a1, n]/2 + S2[a4, a2, SP[a1, a1], a1, a3, n] + 
    S2[a4, a2, SP[a1, a1], a3, a1, n]/2 + S2[a4, SP[a1, a1], a2, a1, a3, n]/
     2 + S2[a4, SP[a1, a2], a1, a1, a3, n] + 
    S2[a4, SP[a1, a2], a1, a3, a1, n]/2 - S2[SP[a1, a1], a1, a2, a3, a4, n] - 
    S2[SP[a1, a1], a1, a2, a4, a3, n] - S2[SP[a1, a1], a1, a3, a2, a4, n] - 
    S2[SP[a1, a1], a2, a1, a3, a4, n] - S2[SP[a1, a1], a2, a1, a4, a3, n] - 
    S2[SP[a1, a1], a2, a3, a1, a4, n] - (3*S2[SP[a1, a1], a3, a1, a2, a4, n])/
     2 - S2[SP[a1, a1], a3, a2, a1, a4, n] - 
    S2[SP[a1, a1], a4, a2, a1, a3, n]/2 + 
    2*S2[SP[a1, a3], a1, a1, a2, a4, n] + 
    (3*S2[SP[a1, a3], a1, a2, a1, a4, n])/2 + 
    S2[SP[a1, a3], a1, a2, a4, a1, n]/2 + S2[SP[a1, a3], a2, a1, a1, a4, n] + 
    S2[SP[a1, a4], a1, a2, a1, a3, n]/2 + S2[SP[a1, a4], a2, a1, a1, a3, n] + 
    S2[SP[a1, a4], a2, a1, a3, a1, n]/2 - S2[a4, a1, a1, a2, a1, a3, n] - 
    2*S2[a4, a1, a2, a1, a1, a3, n] - S2[a4, a1, a2, a1, a3, a1, n] - 
    3*S2[a4, a2, a1, a1, a1, a3, n] - 2*S2[a4, a2, a1, a1, a3, a1, n] - 
    S2[a4, a2, a1, a3, a1, a1, n] /; 
   MyMemberQ[{{a2, a3, a4}}, {a1, a1, a1, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a3_, a1_, a4_, a1_, a1_, a2_, n_] :> 
  -(S2[a1, a3, n]*S2[a1, a1, a2, a4, n]) + 2*S2[a1, a2, n]*
     S2[a1, a1, a3, a4, n] - S2[a1, a3, n]*S2[a1, a1, a4, a2, n] + 
    2*S2[a1, a2, n]*S2[a1, a1, a4, a3, n] + S2[a1, a1, SP[a1, a2], 
     SP[a3, a4], n] - 2*S2[a1, a1, SP[a1, a3], SP[a2, a4], n] - 
    S2[a1, a1, SP[a1, a4], SP[a2, a3], n] - S2[a1, a3, n]*
     S2[a1, a2, a1, a4, n] + S2[a1, a2, SP[a1, a1], SP[a3, a4], n] + 
    S2[a1, a2, n]*S2[a1, a3, a1, a4, n] - S2[a1, a3, SP[a1, a1], SP[a2, a4], 
     n] + S2[a1, a2, n]*S2[a1, a4, a1, a3, n] - S2[a1, a4, SP[a1, a1], 
     SP[a2, a3], n] + S2[a1, SP[a1, a1], a2, SP[a3, a4], n] - 
    2*S2[a1, SP[a1, a1], a3, SP[a2, a4], n] - S2[a1, SP[a1, a1], a4, 
     SP[a2, a3], n] - S2[a1, SP[a1, a1], SP[a2, a3], a4, n] - 
    2*S2[a1, SP[a1, a1], SP[a2, a4], a3, n] + S2[a1, SP[a1, a1], SP[a3, a4], 
     a2, n] + S2[a1, SP[a1, a2], a1, SP[a3, a4], n] + 
    S2[a1, SP[a1, a2], SP[a1, a3], a4, n] - S2[a1, SP[a1, a3], a1, 
     SP[a2, a4], n] - S2[a1, SP[a1, a3], SP[a1, a2], a4, n] - 
    S2[a1, SP[a1, a4], a1, SP[a2, a3], n] - S2[a1, SP[a1, a4], SP[a1, a2], 
     a3, n] + S2[SP[a1, a1], a1, a2, SP[a3, a4], n] - 
    2*S2[SP[a1, a1], a1, a3, SP[a2, a4], n] - S2[SP[a1, a1], a1, a4, 
     SP[a2, a3], n] - S2[SP[a1, a1], a1, SP[a2, a3], a4, n] - 
    2*S2[SP[a1, a1], a1, SP[a2, a4], a3, n] + S2[SP[a1, a1], a1, SP[a3, a4], 
     a2, n] + S2[SP[a1, a1], a2, a1, SP[a3, a4], n] + 
    S2[SP[a1, a1], a2, SP[a1, a3], a4, n] - S2[SP[a1, a1], a3, a1, 
     SP[a2, a4], n] - S2[SP[a1, a1], a3, SP[a1, a2], a4, n] - 
    S2[SP[a1, a1], a4, a1, SP[a2, a3], n] - S2[SP[a1, a1], a4, SP[a1, a2], 
     a3, n] - 2*S2[SP[a1, a1], SP[a1, a2], a3, a4, n] - 
    2*S2[SP[a1, a1], SP[a1, a2], a4, a3, n] + S2[SP[a1, a1], SP[a1, a3], a2, 
     a4, n] + S2[SP[a1, a1], SP[a1, a3], a4, a2, n] - 
    S2[SP[a1, a1], SP[a2, a4], a1, a3, n] - 
    3*S2[a4, n]*S2[a1, a1, a1, a2, a3, n] - 
    6*S2[a1, a1, a1, a2, SP[a3, a4], n] - 
    3*S2[a4, n]*S2[a1, a1, a1, a3, a2, n] + 
    3*S2[a1, a1, a1, a3, SP[a2, a4], n] + 
    3*S2[a1, a1, a1, a4, SP[a2, a3], n] + 
    3*S2[a1, a1, a1, SP[a2, a3], a4, n] + 
    3*S2[a1, a1, a1, SP[a2, a4], a3, n] - 
    6*S2[a1, a1, a1, SP[a3, a4], a2, n] - 
    S2[a4, n]*S2[a1, a1, a2, a1, a3, n] - 
    4*S2[a1, a1, a2, a1, SP[a3, a4], n] - 
    2*S2[a1, a1, a2, SP[a1, a3], a4, n] - 
    2*S2[a1, a1, a2, SP[a1, a4], a3, n] - 
    2*S2[a4, n]*S2[a1, a1, a3, a1, a2, n] + 
    2*S2[a1, a1, a3, a1, SP[a2, a4], n] + 
    2*S2[a1, a1, a3, SP[a1, a2], a4, n] + 
    3*S2[a1, a1, a4, a1, SP[a2, a3], n] + S2[a1, a1, a4, SP[a1, a2], a3, n] + 
    2*S2[a1, a1, a4, SP[a1, a3], a2, n] + 
    3*S2[a1, a1, SP[a1, a2], a3, a4, n] + 
    3*S2[a1, a1, SP[a1, a2], a4, a3, n] - 
    2*S2[a1, a1, SP[a1, a4], a2, a3, n] - 
    2*S2[a1, a1, SP[a1, a4], a3, a2, n] + S2[a1, a1, SP[a2, a4], a1, a3, n] - 
    2*S2[a1, a1, SP[a3, a4], a1, a2, n] - 
    2*S2[a1, a2, a1, a1, SP[a3, a4], n] - S2[a1, a2, a1, SP[a1, a3], a4, n] - 
    S2[a1, a2, a1, SP[a1, a4], a3, n] - S2[a1, a2, SP[a1, a1], a3, a4, n] - 
    S2[a1, a2, SP[a1, a1], a4, a3, n] - S2[a4, n]*S2[a1, a3, a1, a1, a2, n] + 
    S2[a1, a3, a1, a1, SP[a2, a4], n] + S2[a1, a3, a1, SP[a1, a2], a4, n] + 
    S2[a1, a3, SP[a1, a1], a2, a4, n] + S2[a1, a3, SP[a1, a1], a4, a2, n] - 
    S2[a1, a3, SP[a1, a4], a1, a2, n] + S2[a3, n]*S2[a1, a4, a1, a1, a2, n] + 
    3*S2[a1, a4, a1, a1, SP[a2, a3], n] + S2[a1, a4, a1, SP[a1, a2], a3, n] + 
    2*S2[a1, a4, a1, SP[a1, a3], a2, n] + S2[a1, a4, SP[a1, a1], a2, a3, n] + 
    S2[a1, a4, SP[a1, a1], a3, a2, n] + S2[a1, a4, SP[a1, a3], a1, a2, n] + 
    S2[a1, SP[a1, a1], a2, a3, a4, n] + S2[a1, SP[a1, a1], a2, a4, a3, n] + 
    S2[a1, SP[a1, a1], a3, a2, a4, n] + S2[a1, SP[a1, a1], a3, a4, a2, n] + 
    S2[a1, SP[a1, a1], a4, a2, a3, n] + S2[a1, SP[a1, a1], a4, a3, a2, n] + 
    S2[a1, SP[a1, a2], a1, a3, a4, n] + S2[a1, SP[a1, a2], a1, a4, a3, n] + 
    S2[a1, SP[a1, a2], a4, a1, a3, n] - 2*S2[a1, SP[a1, a4], a1, a2, a3, n] - 
    2*S2[a1, SP[a1, a4], a1, a3, a2, n] - 
    2*S2[a1, SP[a1, a4], a3, a1, a2, n] + S2[SP[a1, a1], a1, a2, a3, a4, n] + 
    S2[SP[a1, a1], a1, a2, a4, a3, n] + S2[SP[a1, a1], a1, a3, a2, a4, n] + 
    S2[SP[a1, a1], a1, a3, a4, a2, n] + S2[SP[a1, a1], a1, a4, a2, a3, n] + 
    S2[SP[a1, a1], a1, a4, a3, a2, n] + S2[SP[a1, a1], a2, a1, a3, a4, n] + 
    S2[SP[a1, a1], a2, a1, a4, a3, n] + S2[SP[a1, a1], a2, a4, a1, a3, n] + 
    S2[SP[a1, a1], a4, a1, a2, a3, n] + S2[SP[a1, a1], a4, a1, a3, a2, n] + 
    S2[SP[a1, a1], a4, a2, a1, a3, n] + S2[SP[a1, a3], a4, a1, a1, a2, n] - 
    3*S2[SP[a1, a4], a1, a1, a2, a3, n] - 
    3*S2[SP[a1, a4], a1, a1, a3, a2, n] - S2[SP[a1, a4], a1, a2, a1, a3, n] - 
    2*S2[SP[a1, a4], a1, a3, a1, a2, n] - S2[SP[a1, a4], a3, a1, a1, a2, n] + 
    3*S2[a4, a1, a1, a1, a2, a3, n] + 3*S2[a4, a1, a1, a1, a3, a2, n] + 
    S2[a4, a1, a1, a2, a1, a3, n] + 2*S2[a4, a1, a1, a3, a1, a2, n] + 
    S2[a4, a1, a3, a1, a1, a2, n] /; 
   MyMemberQ[{{a2, a3, a4}}, {a1, a1, a1, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a3_, a1_, a4_, a1_, a2_, a1_, n_] :> 
  -2*S2[a1, a2, n]*S2[a1, a1, a3, a4, n] - 2*S2[a1, a2, n]*
     S2[a1, a1, a4, a3, n] + 2*S2[a1, a1, SP[a1, a3], SP[a2, a4], n] + 
    2*S2[a1, a1, SP[a1, a4], SP[a2, a3], n] + 
    S2[a1, a3, n]*S2[a1, a2, a1, a4, n] - S2[a1, a2, SP[a1, a1], SP[a3, a4], 
     n] - S2[a1, a2, n]*S2[a1, a3, a1, a4, n] + S2[a1, a3, SP[a1, a1], 
     SP[a2, a4], n] - S2[a1, a2, n]*S2[a1, a4, a1, a3, n] + 
    S2[a1, a4, SP[a1, a1], SP[a2, a3], n] + 
    2*S2[a1, SP[a1, a1], a3, SP[a2, a4], n] + 
    2*S2[a1, SP[a1, a1], a4, SP[a2, a3], n] + 
    2*S2[a1, SP[a1, a1], SP[a2, a3], a4, n] + 
    2*S2[a1, SP[a1, a1], SP[a2, a4], a3, n] - S2[a1, SP[a1, a2], a1, 
     SP[a3, a4], n] - S2[a1, SP[a1, a2], SP[a1, a3], a4, n] + 
    S2[a1, SP[a1, a3], a1, SP[a2, a4], n] + S2[a1, SP[a1, a3], SP[a1, a2], 
     a4, n] + S2[a1, SP[a1, a4], a1, SP[a2, a3], n] + 
    S2[a1, SP[a1, a4], SP[a1, a2], a3, n] + 
    2*S2[SP[a1, a1], a1, a3, SP[a2, a4], n] + 
    2*S2[SP[a1, a1], a1, a4, SP[a2, a3], n] + 
    2*S2[SP[a1, a1], a1, SP[a2, a3], a4, n] + 
    2*S2[SP[a1, a1], a1, SP[a2, a4], a3, n] - S2[SP[a1, a1], a2, a1, 
     SP[a3, a4], n] - S2[SP[a1, a1], a2, SP[a1, a3], a4, n] + 
    S2[SP[a1, a1], a3, a1, SP[a2, a4], n] + S2[SP[a1, a1], a3, SP[a1, a2], 
     a4, n] + S2[SP[a1, a1], a4, a1, SP[a2, a3], n] + 
    S2[SP[a1, a1], a4, SP[a1, a2], a3, n] + 
    2*S2[SP[a1, a1], SP[a1, a2], a3, a4, n] + 
    2*S2[SP[a1, a1], SP[a1, a2], a4, a3, n] + S2[SP[a1, a1], SP[a2, a4], a1, 
     a3, n] + 6*S2[a4, n]*S2[a1, a1, a1, a2, a3, n] + 
    6*S2[a1, a1, a1, a2, SP[a3, a4], n] + 
    6*S2[a4, n]*S2[a1, a1, a1, a3, a2, n] - 
    6*S2[a1, a1, a1, a4, SP[a2, a3], n] - 
    6*S2[a1, a1, a1, SP[a2, a3], a4, n] + 
    6*S2[a1, a1, a1, SP[a3, a4], a2, n] + 
    2*S2[a4, n]*S2[a1, a1, a2, a1, a3, n] + 
    4*S2[a1, a1, a2, a1, SP[a3, a4], n] + 
    2*S2[a1, a1, a2, SP[a1, a3], a4, n] + 
    2*S2[a1, a1, a2, SP[a1, a4], a3, n] + 
    4*S2[a4, n]*S2[a1, a1, a3, a1, a2, n] - 
    2*S2[a1, a1, a3, SP[a1, a2], a4, n] + 
    2*S2[a1, a1, a3, SP[a1, a4], a2, n] - 
    2*S2[a3, n]*S2[a1, a1, a4, a1, a2, n] - 
    6*S2[a1, a1, a4, a1, SP[a2, a3], n] - 
    2*S2[a1, a1, a4, SP[a1, a2], a3, n] - 
    4*S2[a1, a1, a4, SP[a1, a3], a2, n] - 
    4*S2[a1, a1, SP[a1, a2], a3, a4, n] - 
    4*S2[a1, a1, SP[a1, a2], a4, a3, n] - 
    2*S2[a1, a1, SP[a1, a3], a2, a4, n] - 
    2*S2[a1, a1, SP[a1, a3], a4, a2, n] + 
    4*S2[a1, a1, SP[a1, a4], a2, a3, n] + 
    4*S2[a1, a1, SP[a1, a4], a3, a2, n] + 
    2*S2[a1, a1, SP[a3, a4], a1, a2, n] + 
    2*S2[a1, a2, a1, a1, SP[a3, a4], n] + S2[a1, a2, a1, SP[a1, a3], a4, n] + 
    S2[a1, a2, a1, SP[a1, a4], a3, n] + S2[a1, a2, SP[a1, a1], a3, a4, n] + 
    S2[a1, a2, SP[a1, a1], a4, a3, n] + 2*S2[a4, n]*
     S2[a1, a3, a1, a1, a2, n] - S2[a1, a3, a1, SP[a1, a2], a4, n] + 
    S2[a1, a3, a1, SP[a1, a4], a2, n] - S2[a1, a3, SP[a1, a1], a2, a4, n] - 
    S2[a1, a3, SP[a1, a1], a4, a2, n] + 2*S2[a1, a3, SP[a1, a4], a1, a2, n] - 
    2*S2[a3, n]*S2[a1, a4, a1, a1, a2, n] - 
    4*S2[a1, a4, a1, a1, SP[a2, a3], n] - S2[a1, a4, a1, SP[a1, a2], a3, n] - 
    3*S2[a1, a4, a1, SP[a1, a3], a2, n] - S2[a1, a4, SP[a1, a1], a2, a3, n] - 
    S2[a1, a4, SP[a1, a1], a3, a2, n] - 2*S2[a1, a4, SP[a1, a3], a1, a2, n] - 
    2*S2[a1, SP[a1, a1], a2, a3, a4, n] - 
    2*S2[a1, SP[a1, a1], a2, a4, a3, n] - 
    2*S2[a1, SP[a1, a1], a3, a2, a4, n] - 
    2*S2[a1, SP[a1, a1], a3, a4, a2, n] - 
    2*S2[a1, SP[a1, a1], a4, a2, a3, n] - 
    2*S2[a1, SP[a1, a1], a4, a3, a2, n] - S2[a1, SP[a1, a2], a1, a3, a4, n] - 
    S2[a1, SP[a1, a2], a1, a4, a3, n] - S2[a1, SP[a1, a2], a4, a1, a3, n] - 
    S2[a1, SP[a1, a3], a1, a2, a4, n] - S2[a1, SP[a1, a3], a1, a4, a2, n] - 
    2*S2[a1, SP[a1, a3], a4, a1, a2, n] + 
    5*S2[a1, SP[a1, a4], a1, a2, a3, n] + 
    5*S2[a1, SP[a1, a4], a1, a3, a2, n] + S2[a1, SP[a1, a4], a2, a1, a3, n] + 
    4*S2[a1, SP[a1, a4], a3, a1, a2, n] + 
    S2[a1, n]*S2[a3, a1, a4, a1, a2, n] + S2[a3, a1, a4, a1, SP[a1, a2], n] + 
    S2[a3, a1, a4, SP[a1, a1], a2, n] + S2[a3, a1, SP[a1, a4], a1, a2, n] + 
    S2[a3, SP[a1, a1], a4, a1, a2, n] - 2*S2[a1, n]*
     S2[a4, a1, a1, a2, a3, n] - 2*S2[a4, a1, a1, a2, SP[a1, a3], n] - 
    2*S2[a1, n]*S2[a4, a1, a1, a3, a2, n] - 
    2*S2[a4, a1, a1, a3, SP[a1, a2], n] - 
    2*S2[a4, a1, a1, SP[a1, a2], a3, n] - 
    2*S2[a4, a1, a1, SP[a1, a3], a2, n] - 
    S2[a1, n]*S2[a4, a1, a2, a1, a3, n] - S2[a4, a1, a2, a1, SP[a1, a3], n] - 
    S2[a4, a1, a2, SP[a1, a1], a3, n] - S2[a1, n]*S2[a4, a1, a3, a1, a2, n] - 
    S2[a4, a1, a3, a1, SP[a1, a2], n] - S2[a4, a1, a3, SP[a1, a1], a2, n] - 
    2*S2[a4, a1, SP[a1, a1], a2, a3, n] - 
    2*S2[a4, a1, SP[a1, a1], a3, a2, n] - S2[a4, a1, SP[a1, a2], a1, a3, n] - 
    S2[a4, a1, SP[a1, a3], a1, a2, n] - 2*S2[a4, SP[a1, a1], a1, a2, a3, n] - 
    2*S2[a4, SP[a1, a1], a1, a3, a2, n] - S2[a4, SP[a1, a1], a2, a1, a3, n] - 
    S2[a4, SP[a1, a1], a3, a1, a2, n] - 2*S2[SP[a1, a1], a1, a2, a3, a4, n] - 
    2*S2[SP[a1, a1], a1, a2, a4, a3, n] - 
    2*S2[SP[a1, a1], a1, a3, a2, a4, n] - 
    2*S2[SP[a1, a1], a1, a3, a4, a2, n] - 
    2*S2[SP[a1, a1], a1, a4, a2, a3, n] - 
    2*S2[SP[a1, a1], a1, a4, a3, a2, n] - S2[SP[a1, a1], a2, a1, a3, a4, n] - 
    S2[SP[a1, a1], a2, a1, a4, a3, n] - S2[SP[a1, a1], a2, a4, a1, a3, n] - 
    S2[SP[a1, a1], a3, a1, a2, a4, n] - S2[SP[a1, a1], a3, a1, a4, a2, n] - 
    S2[SP[a1, a1], a4, a1, a2, a3, n] - S2[SP[a1, a1], a4, a1, a3, a2, n] - 
    S2[SP[a1, a1], a4, a2, a1, a3, n] - S2[SP[a1, a3], a1, a4, a1, a2, n] - 
    2*S2[SP[a1, a3], a4, a1, a1, a2, n] + 
    4*S2[SP[a1, a4], a1, a1, a2, a3, n] + 
    4*S2[SP[a1, a4], a1, a1, a3, a2, n] + S2[SP[a1, a4], a1, a2, a1, a3, n] + 
    3*S2[SP[a1, a4], a1, a3, a1, a2, n] + 
    2*S2[SP[a1, a4], a3, a1, a1, a2, n] + 2*S2[a4, a1, a1, a2, a1, a3, n] + 
    2*S2[a4, a1, a1, a2, a3, a1, n] + 2*S2[a4, a1, a1, a3, a2, a1, n] + 
    2*S2[a4, a1, a2, a1, a1, a3, n] + S2[a4, a1, a2, a1, a3, a1, n] + 
    S2[a4, a1, a3, a1, a2, a1, n] /; 
   MyMemberQ[{{a2, a3, a4}}, {a1, a1, a1, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a3_, a1_, a4_, a2_, a1_, a1_, n_] :> 
  S2[a1, a3, n]*S2[a1, a1, a2, a4, n] - S2[a1, a1, SP[a1, a2], SP[a3, a4], 
     n] - S2[a1, SP[a1, a1], a2, SP[a3, a4], n] - 
    S2[a1, SP[a1, a1], SP[a2, a3], a4, n] - S2[SP[a1, a1], a1, a2, 
     SP[a3, a4], n] - S2[SP[a1, a1], a1, SP[a2, a3], a4, n] - 
    S2[SP[a1, a1], SP[a1, a3], a2, a4, n] - 
    3*S2[a4, n]*S2[a1, a1, a1, a2, a3, n] - 
    3*S2[a4, n]*S2[a1, a1, a1, a3, a2, n] - 
    3*S2[a1, a1, a1, a3, SP[a2, a4], n] + 
    3*S2[a3, n]*S2[a1, a1, a1, a4, a2, n] + 
    3*S2[a1, a1, a1, a4, SP[a2, a3], n] + 
    3*S2[a1, a1, a1, SP[a2, a3], a4, n] - 
    3*S2[a1, a1, a1, SP[a2, a4], a3, n] - 
    S2[a4, n]*S2[a1, a1, a2, a1, a3, n] - 
    2*S2[a4, n]*S2[a1, a1, a3, a1, a2, n] - 
    2*S2[a1, a1, a3, a1, SP[a2, a4], n] - 
    2*S2[a1, a1, a3, SP[a1, a4], a2, n] + 
    2*S2[a3, n]*S2[a1, a1, a4, a1, a2, n] + 
    2*S2[a1, a1, a4, a1, SP[a2, a3], n] + 
    2*S2[a1, a1, a4, SP[a1, a3], a2, n] + S2[a1, a1, SP[a1, a2], a3, a4, n] + 
    S2[a1, a1, SP[a1, a2], a4, a3, n] + 2*S2[a1, a1, SP[a1, a3], a2, a4, n] + 
    3*S2[a1, a1, SP[a1, a3], a4, a2, n] - 
    3*S2[a1, a1, SP[a1, a4], a2, a3, n] - 
    3*S2[a1, a1, SP[a1, a4], a3, a2, n] - S2[a1, a1, SP[a2, a4], a1, a3, n] - 
    S2[a4, n]*S2[a1, a3, a1, a1, a2, n] - S2[a1, a3, a1, a1, SP[a2, a4], n] - 
    (S2[a1, n]*S2[a1, a3, a1, a4, a2, n])/2 - 
    S2[a1, a3, a1, a4, SP[a1, a2], n]/2 - 
    (3*S2[a1, a3, a1, SP[a1, a4], a2, n])/2 - 
    S2[a1, a3, SP[a1, a1], a4, a2, n]/2 - S2[a1, a3, SP[a1, a4], a1, a2, n] + 
    S2[a3, n]*S2[a1, a4, a1, a1, a2, n] + S2[a1, a4, a1, a1, SP[a2, a3], n] + 
    (S2[a1, n]*S2[a1, a4, a1, a2, a3, n])/2 + 
    S2[a1, a4, a1, a2, SP[a1, a3], n]/2 + 
    (S2[a1, n]*S2[a1, a4, a1, a3, a2, n])/2 + 
    S2[a1, a4, a1, a3, SP[a1, a2], n]/2 + S2[a1, a4, a1, SP[a1, a2], a3, n]/
     2 + (3*S2[a1, a4, a1, SP[a1, a3], a2, n])/2 + 
    (S2[a1, n]*S2[a1, a4, a2, a1, a3, n])/2 + 
    S2[a1, a4, a2, a1, SP[a1, a3], n]/2 + S2[a1, a4, a2, SP[a1, a1], a3, n]/
     2 + S2[a1, a4, SP[a1, a1], a2, a3, n]/2 + 
    S2[a1, a4, SP[a1, a1], a3, a2, n]/2 + S2[a1, a4, SP[a1, a2], a1, a3, n]/
     2 + S2[a1, a4, SP[a1, a3], a1, a2, n] + S2[a1, SP[a1, a1], a2, a3, a4, 
     n] + S2[a1, SP[a1, a1], a2, a4, a3, n] + S2[a1, SP[a1, a1], a3, a2, a4, 
     n] + S2[a1, SP[a1, a3], a1, a2, a4, n] + 
    (5*S2[a1, SP[a1, a3], a1, a4, a2, n])/2 + 
    2*S2[a1, SP[a1, a3], a4, a1, a2, n] - 
    (5*S2[a1, SP[a1, a4], a1, a2, a3, n])/2 - 
    (5*S2[a1, SP[a1, a4], a1, a3, a2, n])/2 - 
    S2[a1, SP[a1, a4], a2, a1, a3, n]/2 - 
    2*S2[a1, SP[a1, a4], a3, a1, a2, n] - 
    S2[a1, n]*S2[a3, a1, a1, a4, a2, n] - S2[a3, a1, a1, a4, SP[a1, a2], n] - 
    S2[a3, a1, a1, SP[a1, a4], a2, n] - (S2[a1, n]*S2[a3, a1, a4, a1, a2, n])/
     2 - S2[a3, a1, a4, a1, SP[a1, a2], n]/2 + 
    (S2[a1, n]*S2[a3, a1, a4, a2, a1, n])/2 + 
    S2[a3, a1, a4, a2, SP[a1, a1], n]/2 - S2[a3, a1, a4, SP[a1, a1], a2, n]/
     2 + S2[a3, a1, a4, SP[a1, a2], a1, n]/2 - S2[a3, a1, SP[a1, a1], a4, a2, 
     n] - S2[a3, a1, SP[a1, a4], a1, a2, n]/2 + 
    S2[a3, a1, SP[a1, a4], a2, a1, n]/2 - S2[a3, SP[a1, a1], a1, a4, a2, n] - 
    S2[a3, SP[a1, a1], a4, a1, a2, n]/2 + S2[a3, SP[a1, a1], a4, a2, a1, n]/
     2 + S2[a1, n]*S2[a4, a1, a1, a2, a3, n] + S2[a4, a1, a1, a2, SP[a1, a3], 
     n] + S2[a1, n]*S2[a4, a1, a1, a3, a2, n] + S2[a4, a1, a1, a3, 
     SP[a1, a2], n] + S2[a4, a1, a1, SP[a1, a2], a3, n] + 
    S2[a4, a1, a1, SP[a1, a3], a2, n] - (S2[a1, n]*S2[a4, a1, a2, a3, a1, n])/
     2 - S2[a4, a1, a2, a3, SP[a1, a1], n]/2 - 
    S2[a4, a1, a2, SP[a1, a3], a1, n]/2 + 
    (S2[a1, n]*S2[a4, a1, a3, a1, a2, n])/2 + 
    S2[a4, a1, a3, a1, SP[a1, a2], n]/2 - 
    (S2[a1, n]*S2[a4, a1, a3, a2, a1, n])/2 - 
    S2[a4, a1, a3, a2, SP[a1, a1], n]/2 + S2[a4, a1, a3, SP[a1, a1], a2, n]/
     2 - S2[a4, a1, a3, SP[a1, a2], a1, n]/2 + S2[a4, a1, SP[a1, a1], a2, a3, 
     n] + S2[a4, a1, SP[a1, a1], a3, a2, n] - 
    S2[a4, a1, SP[a1, a2], a3, a1, n]/2 + S2[a4, a1, SP[a1, a3], a1, a2, n]/
     2 - S2[a4, a1, SP[a1, a3], a2, a1, n]/2 - 
    S2[a1, n]*S2[a4, a2, a1, a1, a3, n] - S2[a4, a2, a1, a1, SP[a1, a3], n] - 
    (S2[a1, n]*S2[a4, a2, a1, a3, a1, n])/2 - 
    S2[a4, a2, a1, a3, SP[a1, a1], n]/2 - S2[a4, a2, a1, SP[a1, a1], a3, n] - 
    S2[a4, a2, a1, SP[a1, a3], a1, n]/2 - S2[a4, a2, SP[a1, a1], a1, a3, n] - 
    S2[a4, a2, SP[a1, a1], a3, a1, n]/2 + S2[a4, SP[a1, a1], a1, a2, a3, n] + 
    S2[a4, SP[a1, a1], a1, a3, a2, n] - S2[a4, SP[a1, a1], a2, a3, a1, n]/2 + 
    S2[a4, SP[a1, a1], a3, a1, a2, n]/2 - S2[a4, SP[a1, a1], a3, a2, a1, n]/
     2 - S2[a4, SP[a1, a2], a1, a1, a3, n] - 
    S2[a4, SP[a1, a2], a1, a3, a1, n]/2 + S2[SP[a1, a1], a1, a2, a3, a4, n] + 
    S2[SP[a1, a1], a1, a2, a4, a3, n] + S2[SP[a1, a1], a1, a3, a2, a4, n] + 
    S2[SP[a1, a1], a3, a1, a2, a4, n] - S2[SP[a1, a1], a3, a1, a4, a2, n]/2 + 
    S2[SP[a1, a1], a4, a1, a2, a3, n]/2 + S2[SP[a1, a1], a4, a1, a3, a2, n]/
     2 + S2[SP[a1, a1], a4, a2, a1, a3, n]/2 + 
    2*S2[SP[a1, a3], a1, a1, a4, a2, n] + 
    (3*S2[SP[a1, a3], a1, a4, a1, a2, n])/2 + 
    S2[SP[a1, a3], a1, a4, a2, a1, n]/2 + S2[SP[a1, a3], a4, a1, a1, a2, n] - 
    2*S2[SP[a1, a4], a1, a1, a2, a3, n] - 
    2*S2[SP[a1, a4], a1, a1, a3, a2, n] - S2[SP[a1, a4], a1, a2, a1, a3, n] - 
    S2[SP[a1, a4], a1, a2, a3, a1, n]/2 - 
    (3*S2[SP[a1, a4], a1, a3, a1, a2, n])/2 - 
    S2[SP[a1, a4], a1, a3, a2, a1, n]/2 - S2[SP[a1, a4], a2, a1, a1, a3, n] - 
    S2[SP[a1, a4], a2, a1, a3, a1, n]/2 - S2[SP[a1, a4], a3, a1, a1, a2, n] + 
    S2[a4, a1, a2, a1, a1, a3, n] + S2[a4, a1, a2, a1, a3, a1, n] + 
    S2[a4, a1, a2, a3, a1, a1, n] + S2[a4, a1, a3, a2, a1, a1, n] + 
    3*S2[a4, a2, a1, a1, a1, a3, n] + 2*S2[a4, a2, a1, a1, a3, a1, n] + 
    S2[a4, a2, a1, a3, a1, a1, n] /; 
   MyMemberQ[{{a2, a3, a4}}, {a1, a1, a1, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a3_, a2_, a1_, a1_, a1_, a4_, n_] :> 
  S2[a1, a1, a4, n]*S2[a1, a2, a3, n] + S2[SP[a1, a1], SP[a1, a2], 
     SP[a3, a4], n] - S2[a2, a3, n]*S2[a1, a1, a1, a4, n] - 
    S2[a1, a4, n]*S2[a1, a1, a2, a3, n] - S2[SP[a1, a1], a2, a1, SP[a3, a4], 
     n] - S2[SP[a1, a1], a2, SP[a1, a3], a4, n] - S2[SP[a1, a1], SP[a1, a2], 
     a3, a4, n] - S2[SP[a1, a1], SP[a1, a2], a4, a3, n] + 
    S2[SP[a1, a1], SP[a1, a4], a2, a3, n] + S2[SP[a1, a2], a1, a1, 
     SP[a3, a4], n] + S2[SP[a1, a2], a1, SP[a1, a3], a4, n] + 
    S2[SP[a1, a2], SP[a1, a3], a1, a4, n] + 
    S2[a4, n]*S2[a1, a1, a1, a2, a3, n] - 
    S2[a3, n]*S2[a1, a1, a1, a2, a4, n] - S2[a1, a1, a1, a2, SP[a3, a4], n] + 
    S2[a2, n]*S2[a1, a1, a1, a3, a4, n] + S2[a1, a1, a1, a3, SP[a2, a4], n] - 
    S2[a3, n]*S2[a1, a1, a1, a4, a2, n] + 
    S2[a2, n]*S2[a1, a1, a1, a4, a3, n] + S2[a1, a1, a1, SP[a2, a4], a3, n] - 
    S2[a1, a1, a1, SP[a3, a4], a2, n] - S2[a3, n]*S2[a1, a1, a2, a1, a4, n] - 
    S2[a1, a1, a2, a1, SP[a3, a4], n] - S2[a1, a1, a2, SP[a1, a3], a4, n] + 
    S2[a2, n]*S2[a1, a1, a3, a1, a4, n] + S2[a1, a1, a3, a1, SP[a2, a4], n] + 
    S2[a1, a1, a3, SP[a1, a2], a4, n] + S2[a1, a1, SP[a1, a2], a3, a4, n] + 
    S2[a1, a1, SP[a1, a2], a4, a3, n] - S2[a1, a1, SP[a1, a3], a2, a4, n] - 
    S2[a1, a1, SP[a1, a3], a4, a2, n] - S2[a3, n]*S2[a1, a2, a1, a1, a4, n] - 
    S2[a1, a2, a1, a1, SP[a3, a4], n] - S2[a1, a2, a1, SP[a1, a3], a4, n] - 
    S2[a1, a2, SP[a1, a3], a1, a4, n] + S2[a2, n]*S2[a1, a3, a1, a1, a4, n] + 
    S2[a1, a3, a1, a1, SP[a2, a4], n] + S2[a1, a3, a1, SP[a1, a2], a4, n] + 
    S2[a1, a3, SP[a1, a2], a1, a4, n] + S2[a1, SP[a1, a2], a1, a3, a4, n] + 
    S2[a1, SP[a1, a2], a1, a4, a3, n] + S2[a1, SP[a1, a2], a3, a1, a4, n] - 
    S2[a1, SP[a1, a3], a1, a2, a4, n] - S2[a1, SP[a1, a3], a1, a4, a2, n] - 
    S2[a1, SP[a1, a3], a2, a1, a4, n] - S2[a2, a1, a1, a1, SP[a3, a4], n] - 
    S2[a2, a1, a1, SP[a1, a3], a4, n] - S2[a2, a1, SP[a1, a3], a1, a4, n] - 
    S2[a2, SP[a1, a3], a1, a1, a4, n] + S2[a2, n]*S2[a3, a1, a1, a1, a4, n] + 
    S2[a3, a1, a1, a1, SP[a2, a4], n] + S2[a3, a1, a1, SP[a1, a2], a4, n] + 
    S2[a3, a1, SP[a1, a2], a1, a4, n] + S2[a3, SP[a1, a2], a1, a1, a4, n] + 
    S2[SP[a1, a1], a2, a1, a3, a4, n] + S2[SP[a1, a1], a2, a1, a4, a3, n] + 
    S2[SP[a1, a1], a2, a3, a1, a4, n] - S2[SP[a1, a1], a4, a1, a2, a3, n] - 
    S2[SP[a1, a3], a1, a1, a2, a4, n] - S2[SP[a1, a3], a1, a1, a4, a2, n] - 
    S2[SP[a1, a3], a1, a2, a1, a4, n] - S2[SP[a1, a3], a2, a1, a1, a4, n] + 
    S2[SP[a1, a4], a1, a1, a2, a3, n] + S2[SP[a2, a3], a1, a1, a1, a4, n] - 
    S2[a4, a1, a1, a1, a2, a3, n] /; 
   MyMemberQ[{{a2, a3, a4}}, {a1, a1, a1, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a3_, a2_, a1_, a1_, a4_, a1_, n_] :> 
  -2*S2[a1, a1, a4, n]*S2[a1, a2, a3, n] - 
    2*S2[SP[a1, a1], SP[a1, a2], SP[a3, a4], n] + 
    3*S2[a2, a3, n]*S2[a1, a1, a1, a4, n] + S2[a1, a4, n]*
     S2[a1, a1, a2, a3, n] + S2[a1, SP[a1, a1], a2, SP[a3, a4], n] + 
    S2[a1, SP[a1, a1], SP[a2, a4], a3, n] - S2[a1, SP[a1, a2], a1, 
     SP[a3, a4], n] - S2[a1, SP[a1, a2], SP[a1, a3], a4, n] + 
    S2[SP[a1, a1], a1, a2, SP[a3, a4], n] + S2[SP[a1, a1], a1, SP[a2, a4], 
     a3, n] + 2*S2[SP[a1, a1], a2, a1, SP[a3, a4], n] + 
    2*S2[SP[a1, a1], a2, SP[a1, a3], a4, n] + 
    2*S2[SP[a1, a1], SP[a1, a2], a3, a4, n] + 
    2*S2[SP[a1, a1], SP[a1, a2], a4, a3, n] - S2[SP[a1, a1], SP[a1, a4], a2, 
     a3, n] - 3*S2[SP[a1, a2], a1, a1, SP[a3, a4], n] - 
    3*S2[SP[a1, a2], a1, SP[a1, a3], a4, n] - 
    3*S2[SP[a1, a2], SP[a1, a3], a1, a4, n] + 
    3*S2[a3, n]*S2[a1, a1, a1, a2, a4, n] + 
    3*S2[a1, a1, a1, a2, SP[a3, a4], n] - 
    3*S2[a2, n]*S2[a1, a1, a1, a3, a4, n] - 
    3*S2[a1, a1, a1, a3, SP[a2, a4], n] + 
    3*S2[a3, n]*S2[a1, a1, a1, a4, a2, n] - 
    3*S2[a2, n]*S2[a1, a1, a1, a4, a3, n] - 
    3*S2[a1, a1, a1, SP[a2, a4], a3, n] + 
    3*S2[a1, a1, a1, SP[a3, a4], a2, n] + 
    3*S2[a3, n]*S2[a1, a1, a2, a1, a4, n] + 
    3*S2[a1, a1, a2, a1, SP[a3, a4], n] + 
    3*S2[a1, a1, a2, SP[a1, a3], a4, n] - 
    3*S2[a2, n]*S2[a1, a1, a3, a1, a4, n] - 
    3*S2[a1, a1, a3, a1, SP[a2, a4], n] - 
    3*S2[a1, a1, a3, SP[a1, a2], a4, n] - 
    3*S2[a1, a1, SP[a1, a2], a3, a4, n] - 
    3*S2[a1, a1, SP[a1, a2], a4, a3, n] + 
    3*S2[a1, a1, SP[a1, a3], a2, a4, n] + 
    3*S2[a1, a1, SP[a1, a3], a4, a2, n] + 
    2*S2[a3, n]*S2[a1, a2, a1, a1, a4, n] + 
    3*S2[a1, a2, a1, a1, SP[a3, a4], n] + 
    3*S2[a1, a2, a1, SP[a1, a3], a4, n] + 
    3*S2[a1, a2, SP[a1, a3], a1, a4, n] - 
    3*S2[a2, n]*S2[a1, a3, a1, a1, a4, n] - 
    3*S2[a1, a3, a1, a1, SP[a2, a4], n] - 
    3*S2[a1, a3, a1, SP[a1, a2], a4, n] - 
    3*S2[a1, a3, SP[a1, a2], a1, a4, n] - S2[a1, SP[a1, a1], a2, a3, a4, n] - 
    S2[a1, SP[a1, a1], a2, a4, a3, n] - S2[a1, SP[a1, a1], a4, a2, a3, n] - 
    2*S2[a1, SP[a1, a2], a1, a3, a4, n] - 
    2*S2[a1, SP[a1, a2], a1, a4, a3, n] - 
    2*S2[a1, SP[a1, a2], a3, a1, a4, n] + 
    3*S2[a1, SP[a1, a3], a1, a2, a4, n] + 
    3*S2[a1, SP[a1, a3], a1, a4, a2, n] + 
    3*S2[a1, SP[a1, a3], a2, a1, a4, n] + S2[a1, SP[a1, a4], a1, a2, a3, n] - 
    S2[a1, SP[a2, a3], a1, a1, a4, n] + 3*S2[a2, a1, a1, a1, SP[a3, a4], n] + 
    3*S2[a2, a1, a1, SP[a1, a3], a4, n] + 
    3*S2[a2, a1, SP[a1, a3], a1, a4, n] + 
    3*S2[a2, SP[a1, a3], a1, a1, a4, n] - 
    3*S2[a2, n]*S2[a3, a1, a1, a1, a4, n] - 
    3*S2[a3, a1, a1, a1, SP[a2, a4], n] - 
    3*S2[a3, a1, a1, SP[a1, a2], a4, n] - 
    3*S2[a3, a1, SP[a1, a2], a1, a4, n] + 
    S2[a1, n]*S2[a3, a2, a1, a1, a4, n] + S2[a3, a2, a1, a1, SP[a1, a4], n] + 
    S2[a3, a2, a1, SP[a1, a1], a4, n] + S2[a3, a2, SP[a1, a1], a1, a4, n] - 
    2*S2[a3, SP[a1, a2], a1, a1, a4, n] - 
    S2[a1, n]*S2[a4, a1, a1, a2, a3, n] - S2[a4, a1, a1, a2, SP[a1, a3], n] - 
    S2[a4, a1, a1, SP[a1, a2], a3, n] - S2[a4, a1, SP[a1, a1], a2, a3, n] - 
    S2[a4, SP[a1, a1], a1, a2, a3, n] - S2[SP[a1, a1], a1, a2, a3, a4, n] - 
    S2[SP[a1, a1], a1, a2, a4, a3, n] - S2[SP[a1, a1], a1, a4, a2, a3, n] - 
    2*S2[SP[a1, a1], a2, a1, a3, a4, n] - 
    2*S2[SP[a1, a1], a2, a1, a4, a3, n] - 
    2*S2[SP[a1, a1], a2, a3, a1, a4, n] + S2[SP[a1, a1], a4, a1, a2, a3, n] + 
    3*S2[SP[a1, a3], a1, a1, a2, a4, n] + 
    3*S2[SP[a1, a3], a1, a1, a4, a2, n] + 
    3*S2[SP[a1, a3], a1, a2, a1, a4, n] + 
    3*S2[SP[a1, a3], a2, a1, a1, a4, n] - S2[SP[a1, a4], a1, a1, a2, a3, n] - 
    3*S2[SP[a2, a3], a1, a1, a1, a4, n] + 3*S2[a4, a1, a1, a1, a2, a3, n] + 
    S2[a4, a1, a1, a2, a1, a3, n] + S2[a4, a1, a1, a2, a3, a1, n] /; 
   MyMemberQ[{{a2, a3, a4}}, {a1, a1, a1, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a3_, a2_, a1_, a4_, a1_, a1_, n_] :> 
  S2[a1, a1, a4, n]*S2[a1, a2, a3, n] + S2[SP[a1, a1], SP[a1, a2], 
     SP[a3, a4], n] - 3*S2[a2, a3, n]*S2[a1, a1, a1, a4, n] + 
    S2[a1, a1, SP[a1, a2], SP[a3, a4], n] - S2[a1, SP[a1, a1], a2, 
     SP[a3, a4], n] - S2[a1, SP[a1, a1], SP[a2, a4], a3, n] + 
    2*S2[a1, SP[a1, a2], a1, SP[a3, a4], n] + 
    2*S2[a1, SP[a1, a2], SP[a1, a3], a4, n] - S2[SP[a1, a1], a1, a2, 
     SP[a3, a4], n] - S2[SP[a1, a1], a1, SP[a2, a4], a3, n] - 
    S2[SP[a1, a1], a2, a1, SP[a3, a4], n] - S2[SP[a1, a1], a2, SP[a1, a3], 
     a4, n] - S2[SP[a1, a1], SP[a1, a2], a3, a4, n] - 
    S2[SP[a1, a1], SP[a1, a2], a4, a3, n] + 
    3*S2[SP[a1, a2], a1, a1, SP[a3, a4], n] + 
    3*S2[SP[a1, a2], a1, SP[a1, a3], a4, n] + 
    3*S2[SP[a1, a2], SP[a1, a3], a1, a4, n] - 
    3*S2[a3, n]*S2[a1, a1, a1, a2, a4, n] - 
    3*S2[a1, a1, a1, a2, SP[a3, a4], n] + 
    3*S2[a2, n]*S2[a1, a1, a1, a3, a4, n] + 
    3*S2[a1, a1, a1, a3, SP[a2, a4], n] - 
    3*S2[a3, n]*S2[a1, a1, a1, a4, a2, n] + 
    3*S2[a2, n]*S2[a1, a1, a1, a4, a3, n] + 
    3*S2[a1, a1, a1, SP[a2, a4], a3, n] - 
    3*S2[a1, a1, a1, SP[a3, a4], a2, n] - 
    2*S2[a3, n]*S2[a1, a1, a2, a1, a4, n] - 
    3*S2[a1, a1, a2, a1, SP[a3, a4], n] - 
    3*S2[a1, a1, a2, SP[a1, a3], a4, n] + 
    3*S2[a2, n]*S2[a1, a1, a3, a1, a4, n] + 
    3*S2[a1, a1, a3, a1, SP[a2, a4], n] + 
    3*S2[a1, a1, a3, SP[a1, a2], a4, n] + 
    2*S2[a1, a1, SP[a1, a2], a3, a4, n] + 
    2*S2[a1, a1, SP[a1, a2], a4, a3, n] - 
    3*S2[a1, a1, SP[a1, a3], a2, a4, n] - 
    3*S2[a1, a1, SP[a1, a3], a4, a2, n] + S2[a1, a1, SP[a1, a4], a2, a3, n] + 
    S2[a1, a1, SP[a2, a3], a1, a4, n] - S2[a3, n]*S2[a1, a2, a1, a1, a4, n] - 
    3*S2[a1, a2, a1, a1, SP[a3, a4], n] - 
    3*S2[a1, a2, a1, SP[a1, a3], a4, n] - 
    3*S2[a1, a2, SP[a1, a3], a1, a4, n] + 
    3*S2[a2, n]*S2[a1, a3, a1, a1, a4, n] + 
    3*S2[a1, a3, a1, a1, SP[a2, a4], n] + 
    3*S2[a1, a3, a1, SP[a1, a2], a4, n] - 
    (S2[a1, n]*S2[a1, a3, a2, a1, a4, n])/2 - 
    S2[a1, a3, a2, a1, SP[a1, a4], n]/2 - S2[a1, a3, a2, SP[a1, a1], a4, n]/
     2 + (5*S2[a1, a3, SP[a1, a2], a1, a4, n])/2 - 
    (S2[a1, n]*S2[a1, a4, a1, a2, a3, n])/2 - 
    S2[a1, a4, a1, a2, SP[a1, a3], n]/2 - S2[a1, a4, a1, SP[a1, a2], a3, n]/
     2 - S2[a1, a4, SP[a1, a1], a2, a3, n]/2 + S2[a1, SP[a1, a1], a2, a3, a4, 
     n] + S2[a1, SP[a1, a1], a2, a4, a3, n] + S2[a1, SP[a1, a1], a4, a2, a3, 
     n] + S2[a1, SP[a1, a2], a1, a3, a4, n] + S2[a1, SP[a1, a2], a1, a4, a3, 
     n] + S2[a1, SP[a1, a2], a3, a1, a4, n] - 
    3*S2[a1, SP[a1, a3], a1, a2, a4, n] - 
    3*S2[a1, SP[a1, a3], a1, a4, a2, n] - 
    (5*S2[a1, SP[a1, a3], a2, a1, a4, n])/2 - 
    S2[a1, SP[a1, a4], a1, a2, a3, n]/2 + 
    2*S2[a1, SP[a2, a3], a1, a1, a4, n] - 
    3*S2[a2, a1, a1, a1, SP[a3, a4], n] - 
    3*S2[a2, a1, a1, SP[a1, a3], a4, n] - 
    3*S2[a2, a1, SP[a1, a3], a1, a4, n] - 
    3*S2[a2, SP[a1, a3], a1, a1, a4, n] + 
    3*S2[a2, n]*S2[a3, a1, a1, a1, a4, n] + 
    3*S2[a3, a1, a1, a1, SP[a2, a4], n] + 
    3*S2[a3, a1, a1, SP[a1, a2], a4, n] - 
    (S2[a1, n]*S2[a3, a1, a2, a1, a4, n])/2 - 
    S2[a3, a1, a2, a1, SP[a1, a4], n]/2 - S2[a3, a1, a2, SP[a1, a1], a4, n]/
     2 + (5*S2[a3, a1, SP[a1, a2], a1, a4, n])/2 - 
    S2[a1, n]*S2[a3, a2, a1, a1, a4, n] - S2[a3, a2, a1, a1, SP[a1, a4], n] + 
    (S2[a1, n]*S2[a3, a2, a1, a4, a1, n])/2 + 
    S2[a3, a2, a1, a4, SP[a1, a1], n]/2 - S2[a3, a2, a1, SP[a1, a1], a4, n] + 
    S2[a3, a2, a1, SP[a1, a4], a1, n]/2 - S2[a3, a2, SP[a1, a1], a1, a4, n] + 
    S2[a3, a2, SP[a1, a1], a4, a1, n]/2 - S2[a3, SP[a1, a1], a2, a1, a4, n]/
     2 + 2*S2[a3, SP[a1, a2], a1, a1, a4, n] + 
    S2[a3, SP[a1, a2], a1, a4, a1, n]/2 + 
    S2[a1, n]*S2[a4, a1, a1, a2, a3, n] + S2[a4, a1, a1, a2, SP[a1, a3], n] + 
    S2[a4, a1, a1, SP[a1, a2], a3, n] + (S2[a1, n]*S2[a4, a1, a2, a1, a3, n])/
     2 + S2[a4, a1, a2, a1, SP[a1, a3], n]/2 + 
    (S2[a1, n]*S2[a4, a1, a2, a3, a1, n])/2 + 
    S2[a4, a1, a2, a3, SP[a1, a1], n]/2 + S2[a4, a1, a2, SP[a1, a1], a3, n]/
     2 + S2[a4, a1, a2, SP[a1, a3], a1, n]/2 + S2[a4, a1, SP[a1, a1], a2, a3, 
     n] + S2[a4, a1, SP[a1, a2], a1, a3, n]/2 + 
    S2[a4, a1, SP[a1, a2], a3, a1, n]/2 + S2[a4, SP[a1, a1], a1, a2, a3, n] + 
    S2[a4, SP[a1, a1], a2, a1, a3, n]/2 + S2[a4, SP[a1, a1], a2, a3, a1, n]/
     2 + S2[SP[a1, a1], a1, a2, a3, a4, n] + S2[SP[a1, a1], a1, a2, a4, a3, 
     n] + S2[SP[a1, a1], a1, a4, a2, a3, n] + S2[SP[a1, a1], a2, a1, a3, a4, 
     n] + S2[SP[a1, a1], a2, a1, a4, a3, n] + S2[SP[a1, a1], a2, a3, a1, a4, 
     n] - S2[SP[a1, a1], a3, a2, a1, a4, n]/2 - 
    S2[SP[a1, a1], a4, a1, a2, a3, n]/2 - 
    3*S2[SP[a1, a3], a1, a1, a2, a4, n] - 
    3*S2[SP[a1, a3], a1, a1, a4, a2, n] - 
    (5*S2[SP[a1, a3], a1, a2, a1, a4, n])/2 - 
    2*S2[SP[a1, a3], a2, a1, a1, a4, n] + S2[SP[a1, a3], a2, a1, a4, a1, n]/
     2 + S2[SP[a1, a4], a1, a1, a2, a3, n] + 
    S2[SP[a1, a4], a1, a2, a1, a3, n]/2 + S2[SP[a1, a4], a1, a2, a3, a1, n]/
     2 + 3*S2[SP[a2, a3], a1, a1, a1, a4, n] - 
    3*S2[a4, a1, a1, a1, a2, a3, n] - 2*S2[a4, a1, a1, a2, a1, a3, n] - 
    2*S2[a4, a1, a1, a2, a3, a1, n] - S2[a4, a1, a2, a1, a1, a3, n] - 
    S2[a4, a1, a2, a1, a3, a1, n] - S2[a4, a1, a2, a3, a1, a1, n] /; 
   MyMemberQ[{{a2, a3, a4}}, {a1, a1, a1, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a3_, a2_, a4_, a1_, a1_, a1_, n_] :> 
  S2[a2, a3, n]*S2[a1, a1, a1, a4, n] - S2[a1, a1, SP[a1, a2], SP[a3, a4], 
     n] - S2[a1, SP[a1, a2], a1, SP[a3, a4], n] - 
    S2[a1, SP[a1, a2], SP[a1, a3], a4, n] - S2[SP[a1, a2], a1, a1, 
     SP[a3, a4], n] - S2[SP[a1, a2], a1, SP[a1, a3], a4, n] - 
    S2[SP[a1, a2], SP[a1, a3], a1, a4, n] + S2[a1, a1, a1, a2, SP[a3, a4], 
     n] - S2[a2, n]*S2[a1, a1, a1, a3, a4, n] - S2[a1, a1, a1, a3, 
     SP[a2, a4], n] + S2[a3, n]*S2[a1, a1, a1, a4, a2, n] - 
    S2[a2, n]*S2[a1, a1, a1, a4, a3, n] - S2[a1, a1, a1, SP[a2, a3], a4, n] + 
    S2[a1, a1, a1, SP[a3, a4], a2, n] + S2[a1, a1, a2, a1, SP[a3, a4], n] + 
    S2[a1, a1, a2, SP[a1, a3], a4, n] - S2[a2, n]*S2[a1, a1, a3, a1, a4, n] - 
    S2[a1, a1, a3, a1, SP[a2, a4], n] + (S2[a1, n]*S2[a1, a1, a3, a2, a4, n])/
     3 + S2[a1, a1, a3, a2, SP[a1, a4], n]/3 - 
    (2*S2[a1, a1, a3, SP[a1, a2], a4, n])/3 - 
    (S2[a1, n]*S2[a1, a1, a4, a2, a3, n])/3 - 
    S2[a1, a1, a4, a2, SP[a1, a3], n]/3 - S2[a1, a1, a4, SP[a1, a2], a3, n]/
     3 + S2[a1, a1, SP[a1, a3], a2, a4, n]/3 + S2[a1, a1, SP[a1, a3], a4, a2, 
     n] - S2[a1, a1, SP[a1, a4], a2, a3, n]/3 - S2[a1, a1, SP[a2, a3], a1, 
     a4, n] + S2[a1, a2, a1, a1, SP[a3, a4], n] + S2[a1, a2, a1, SP[a1, a3], 
     a4, n] + S2[a1, a2, SP[a1, a3], a1, a4, n] - 
    S2[a2, n]*S2[a1, a3, a1, a1, a4, n] - S2[a1, a3, a1, a1, SP[a2, a4], n] + 
    (S2[a1, n]*S2[a1, a3, a1, a2, a4, n])/3 + 
    S2[a1, a3, a1, a2, SP[a1, a4], n]/3 - 
    (2*S2[a1, a3, a1, SP[a1, a2], a4, n])/3 + 
    (S2[a1, n]*S2[a1, a3, a2, a1, a4, n])/3 + 
    S2[a1, a3, a2, a1, SP[a1, a4], n]/3 - 
    (S2[a1, n]*S2[a1, a3, a2, a4, a1, n])/6 - 
    S2[a1, a3, a2, a4, SP[a1, a1], n]/6 + S2[a1, a3, a2, SP[a1, a1], a4, n]/
     3 - S2[a1, a3, a2, SP[a1, a4], a1, n]/6 + 
    S2[a1, a3, SP[a1, a1], a2, a4, n]/3 - 
    (2*S2[a1, a3, SP[a1, a2], a1, a4, n])/3 - 
    S2[a1, a3, SP[a1, a2], a4, a1, n]/6 + 
    (S2[a1, n]*S2[a1, a4, a1, a2, a3, n])/6 + 
    S2[a1, a4, a1, a2, SP[a1, a3], n]/6 + S2[a1, a4, a1, SP[a1, a2], a3, n]/
     6 + (S2[a1, n]*S2[a1, a4, a2, a1, a3, n])/6 + 
    S2[a1, a4, a2, a1, SP[a1, a3], n]/6 + 
    (S2[a1, n]*S2[a1, a4, a2, a3, a1, n])/6 + 
    S2[a1, a4, a2, a3, SP[a1, a1], n]/6 + S2[a1, a4, a2, SP[a1, a1], a3, n]/
     6 + S2[a1, a4, a2, SP[a1, a3], a1, n]/6 + 
    S2[a1, a4, SP[a1, a1], a2, a3, n]/6 + S2[a1, a4, SP[a1, a2], a1, a3, n]/
     6 + S2[a1, a4, SP[a1, a2], a3, a1, n]/6 + 
    S2[a1, SP[a1, a1], a3, a2, a4, n]/3 - S2[a1, SP[a1, a1], a4, a2, a3, n]/
     3 + S2[a1, SP[a1, a3], a1, a2, a4, n]/3 + S2[a1, SP[a1, a3], a1, a4, a2, 
     n] + S2[a1, SP[a1, a3], a2, a1, a4, n]/3 - 
    S2[a1, SP[a1, a3], a2, a4, a1, n]/6 + S2[a1, SP[a1, a4], a1, a2, a3, n]/
     6 + S2[a1, SP[a1, a4], a2, a1, a3, n]/6 + 
    S2[a1, SP[a1, a4], a2, a3, a1, n]/6 - S2[a1, SP[a2, a3], a1, a1, a4, n] + 
    S2[a2, a1, a1, a1, SP[a3, a4], n] + S2[a2, a1, a1, SP[a1, a3], a4, n] + 
    S2[a2, a1, SP[a1, a3], a1, a4, n] + S2[a2, SP[a1, a3], a1, a1, a4, n] - 
    S2[a2, n]*S2[a3, a1, a1, a1, a4, n] - S2[a3, a1, a1, a1, SP[a2, a4], n] + 
    (S2[a1, n]*S2[a3, a1, a1, a2, a4, n])/3 + 
    S2[a3, a1, a1, a2, SP[a1, a4], n]/3 - 
    (2*S2[a3, a1, a1, SP[a1, a2], a4, n])/3 + 
    (S2[a1, n]*S2[a3, a1, a2, a1, a4, n])/3 + 
    S2[a3, a1, a2, a1, SP[a1, a4], n]/3 - 
    (S2[a1, n]*S2[a3, a1, a2, a4, a1, n])/6 - 
    S2[a3, a1, a2, a4, SP[a1, a1], n]/6 + S2[a3, a1, a2, SP[a1, a1], a4, n]/
     3 - S2[a3, a1, a2, SP[a1, a4], a1, n]/6 + 
    S2[a3, a1, SP[a1, a1], a2, a4, n]/3 - 
    (2*S2[a3, a1, SP[a1, a2], a1, a4, n])/3 - 
    S2[a3, a1, SP[a1, a2], a4, a1, n]/6 + 
    (S2[a1, n]*S2[a3, a2, a1, a1, a4, n])/3 + 
    S2[a3, a2, a1, a1, SP[a1, a4], n]/3 - 
    (S2[a1, n]*S2[a3, a2, a1, a4, a1, n])/6 - 
    S2[a3, a2, a1, a4, SP[a1, a1], n]/6 + S2[a3, a2, a1, SP[a1, a1], a4, n]/
     3 - S2[a3, a2, a1, SP[a1, a4], a1, n]/6 + 
    (S2[a1, n]*S2[a3, a2, a4, a1, a1, n])/3 + 
    S2[a3, a2, a4, a1, SP[a1, a1], n]/3 + S2[a3, a2, a4, SP[a1, a1], a1, n]/
     3 + S2[a3, a2, SP[a1, a1], a1, a4, n]/3 - 
    S2[a3, a2, SP[a1, a1], a4, a1, n]/6 + S2[a3, a2, SP[a1, a4], a1, a1, n]/
     3 + S2[a3, SP[a1, a1], a1, a2, a4, n]/3 + 
    S2[a3, SP[a1, a1], a2, a1, a4, n]/3 - S2[a3, SP[a1, a1], a2, a4, a1, n]/
     6 - (2*S2[a3, SP[a1, a2], a1, a1, a4, n])/3 - 
    S2[a3, SP[a1, a2], a1, a4, a1, n]/6 + S2[a3, SP[a1, a2], a4, a1, a1, n]/
     3 - (S2[a1, n]*S2[a4, a1, a1, a2, a3, n])/3 - 
    S2[a4, a1, a1, a2, SP[a1, a3], n]/3 - S2[a4, a1, a1, SP[a1, a2], a3, n]/
     3 - (S2[a1, n]*S2[a4, a1, a2, a1, a3, n])/3 - 
    S2[a4, a1, a2, a1, SP[a1, a3], n]/3 - 
    (S2[a1, n]*S2[a4, a1, a2, a3, a1, n])/3 - 
    S2[a4, a1, a2, a3, SP[a1, a1], n]/3 - S2[a4, a1, a2, SP[a1, a1], a3, n]/
     3 - S2[a4, a1, a2, SP[a1, a3], a1, n]/3 - 
    S2[a4, a1, SP[a1, a1], a2, a3, n]/3 - S2[a4, a1, SP[a1, a2], a1, a3, n]/
     3 - S2[a4, a1, SP[a1, a2], a3, a1, n]/3 - 
    (S2[a1, n]*S2[a4, a2, a1, a1, a3, n])/3 - 
    S2[a4, a2, a1, a1, SP[a1, a3], n]/3 - 
    (S2[a1, n]*S2[a4, a2, a1, a3, a1, n])/3 - 
    S2[a4, a2, a1, a3, SP[a1, a1], n]/3 - S2[a4, a2, a1, SP[a1, a1], a3, n]/
     3 - S2[a4, a2, a1, SP[a1, a3], a1, n]/3 - 
    (S2[a1, n]*S2[a4, a2, a3, a1, a1, n])/3 - 
    S2[a4, a2, a3, a1, SP[a1, a1], n]/3 - S2[a4, a2, a3, SP[a1, a1], a1, n]/
     3 - S2[a4, a2, SP[a1, a1], a1, a3, n]/3 - 
    S2[a4, a2, SP[a1, a1], a3, a1, n]/3 - S2[a4, a2, SP[a1, a3], a1, a1, n]/
     3 - S2[a4, SP[a1, a1], a1, a2, a3, n]/3 - 
    S2[a4, SP[a1, a1], a2, a1, a3, n]/3 - S2[a4, SP[a1, a1], a2, a3, a1, n]/
     3 - S2[a4, SP[a1, a2], a1, a1, a3, n]/3 - 
    S2[a4, SP[a1, a2], a1, a3, a1, n]/3 - S2[a4, SP[a1, a2], a3, a1, a1, n]/
     3 + S2[SP[a1, a1], a1, a3, a2, a4, n]/3 - 
    S2[SP[a1, a1], a1, a4, a2, a3, n]/3 + S2[SP[a1, a1], a3, a1, a2, a4, n]/
     3 + S2[SP[a1, a1], a3, a2, a1, a4, n]/3 - 
    S2[SP[a1, a1], a3, a2, a4, a1, n]/6 + S2[SP[a1, a1], a4, a1, a2, a3, n]/
     6 + S2[SP[a1, a1], a4, a2, a1, a3, n]/6 + 
    S2[SP[a1, a1], a4, a2, a3, a1, n]/6 + S2[SP[a1, a3], a1, a1, a2, a4, n]/
     3 + S2[SP[a1, a3], a1, a1, a4, a2, n] + 
    S2[SP[a1, a3], a1, a2, a1, a4, n]/3 - S2[SP[a1, a3], a1, a2, a4, a1, n]/
     6 + S2[SP[a1, a3], a2, a1, a1, a4, n]/3 - 
    S2[SP[a1, a3], a2, a1, a4, a1, n]/6 + S2[SP[a1, a3], a2, a4, a1, a1, n]/
     3 - S2[SP[a1, a4], a1, a1, a2, a3, n]/3 - 
    S2[SP[a1, a4], a1, a2, a1, a3, n]/3 - S2[SP[a1, a4], a1, a2, a3, a1, n]/
     3 - S2[SP[a1, a4], a2, a1, a1, a3, n]/3 - 
    S2[SP[a1, a4], a2, a1, a3, a1, n]/3 - S2[SP[a1, a4], a2, a3, a1, a1, n]/
     3 - S2[SP[a2, a3], a1, a1, a1, a4, n] + S2[a4, a1, a1, a1, a2, a3, n] + 
    S2[a4, a1, a1, a2, a1, a3, n] + S2[a4, a1, a1, a2, a3, a1, n] + 
    S2[a4, a1, a2, a1, a1, a3, n] + S2[a4, a1, a2, a1, a3, a1, n] + 
    S2[a4, a1, a2, a3, a1, a1, n] + S2[a4, a2, a1, a1, a1, a3, n] + 
    S2[a4, a2, a1, a1, a3, a1, n] + S2[a4, a2, a1, a3, a1, a1, n] + 
    S2[a4, a2, a3, a1, a1, a1, n] /; 
   MyMemberQ[{{a2, a3, a4}}, {a1, a1, a1, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a3_, a4_, a1_, a1_, a1_, a2_, n_] :> 
  S2[a3, n]*S2[a4, a1, a1, a1, a2, n] + S2[a4, a1, a1, a1, SP[a2, a3], n] + 
    S2[a4, a1, a1, SP[a1, a3], a2, n] + S2[a4, a1, SP[a1, a3], a1, a2, n] + 
    S2[a4, SP[a1, a3], a1, a1, a2, n] + S2[SP[a3, a4], a1, a1, a1, a2, n] - 
    S2[a4, a1, a1, a1, a2, a3, n] - S2[a4, a1, a1, a1, a3, a2, n] - 
    S2[a4, a1, a1, a3, a1, a2, n] - S2[a4, a1, a3, a1, a1, a2, n] - 
    S2[a4, a3, a1, a1, a1, a2, n] /; 
   MyMemberQ[{{a2, a3, a4}}, {a1, a1, a1, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a3_, a4_, a1_, a1_, a2_, a1_, n_] :> 
  -(S2[a3, n]*S2[a1, a4, a1, a1, a2, n]) - S2[a1, a4, a1, a1, SP[a2, a3], 
     n] - S2[a1, a4, a1, SP[a1, a3], a2, n] - S2[a1, a4, SP[a1, a3], a1, a2, 
     n] - S2[a1, SP[a3, a4], a1, a1, a2, n] + 
    S2[a1, n]*S2[a3, a4, a1, a1, a2, n] + S2[a3, a4, a1, a1, SP[a1, a2], n] + 
    S2[a3, a4, a1, SP[a1, a1], a2, n] + S2[a3, a4, SP[a1, a1], a1, a2, n] + 
    S2[a3, SP[a1, a4], a1, a1, a2, n] - 3*S2[a3, n]*
     S2[a4, a1, a1, a1, a2, n] - 3*S2[a4, a1, a1, a1, SP[a2, a3], n] + 
    S2[a1, n]*S2[a4, a1, a1, a2, a3, n] + S2[a4, a1, a1, a2, SP[a1, a3], n] + 
    S2[a1, n]*S2[a4, a1, a1, a3, a2, n] + S2[a4, a1, a1, a3, SP[a1, a2], n] + 
    S2[a4, a1, a1, SP[a1, a2], a3, n] - 2*S2[a4, a1, a1, SP[a1, a3], a2, n] + 
    S2[a1, n]*S2[a4, a1, a3, a1, a2, n] + S2[a4, a1, a3, a1, SP[a1, a2], n] + 
    S2[a4, a1, a3, SP[a1, a1], a2, n] + S2[a4, a1, SP[a1, a1], a2, a3, n] + 
    S2[a4, a1, SP[a1, a1], a3, a2, n] - 2*S2[a4, a1, SP[a1, a3], a1, a2, n] + 
    S2[a1, n]*S2[a4, a3, a1, a1, a2, n] + S2[a4, a3, a1, a1, SP[a1, a2], n] + 
    S2[a4, a3, a1, SP[a1, a1], a2, n] + S2[a4, a3, SP[a1, a1], a1, a2, n] + 
    S2[a4, SP[a1, a1], a1, a2, a3, n] + S2[a4, SP[a1, a1], a1, a3, a2, n] + 
    S2[a4, SP[a1, a1], a3, a1, a2, n] - 2*S2[a4, SP[a1, a3], a1, a1, a2, n] + 
    S2[SP[a1, a4], a1, a1, a2, a3, n] + S2[SP[a1, a4], a1, a1, a3, a2, n] + 
    S2[SP[a1, a4], a1, a3, a1, a2, n] + S2[SP[a1, a4], a3, a1, a1, a2, n] - 
    3*S2[SP[a3, a4], a1, a1, a1, a2, n] - S2[a4, a1, a1, a2, a1, a3, n] - 
    S2[a4, a1, a1, a2, a3, a1, n] - S2[a4, a1, a1, a3, a2, a1, n] - 
    S2[a4, a1, a3, a1, a2, a1, n] - S2[a4, a3, a1, a1, a2, a1, n] /; 
   MyMemberQ[{{a2, a3, a4}}, {a1, a1, a1, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a3_, a4_, a1_, a2_, a1_, a1_, n_] :> 
  S2[a3, n]*S2[a1, a1, a4, a1, a2, n] + S2[a1, a1, a4, a1, SP[a2, a3], n] + 
    S2[a1, a1, a4, SP[a1, a3], a2, n] + S2[a1, a1, SP[a3, a4], a1, a2, n] - 
    (S2[a1, n]*S2[a1, a3, a4, a1, a2, n])/2 - 
    S2[a1, a3, a4, a1, SP[a1, a2], n]/2 - S2[a1, a3, a4, SP[a1, a1], a2, n]/
     2 - S2[a1, a3, SP[a1, a4], a1, a2, n]/2 + 
    2*S2[a3, n]*S2[a1, a4, a1, a1, a2, n] + 
    2*S2[a1, a4, a1, a1, SP[a2, a3], n] - 
    (S2[a1, n]*S2[a1, a4, a1, a2, a3, n])/2 - 
    S2[a1, a4, a1, a2, SP[a1, a3], n]/2 - 
    (S2[a1, n]*S2[a1, a4, a1, a3, a2, n])/2 - 
    S2[a1, a4, a1, a3, SP[a1, a2], n]/2 - S2[a1, a4, a1, SP[a1, a2], a3, n]/
     2 + (3*S2[a1, a4, a1, SP[a1, a3], a2, n])/2 - 
    (S2[a1, n]*S2[a1, a4, a3, a1, a2, n])/2 - 
    S2[a1, a4, a3, a1, SP[a1, a2], n]/2 - S2[a1, a4, a3, SP[a1, a1], a2, n]/
     2 - S2[a1, a4, SP[a1, a1], a2, a3, n]/2 - 
    S2[a1, a4, SP[a1, a1], a3, a2, n]/2 + 
    (3*S2[a1, a4, SP[a1, a3], a1, a2, n])/2 + 
    S2[a1, SP[a1, a3], a4, a1, a2, n]/2 - S2[a1, SP[a1, a4], a1, a2, a3, n]/
     2 - S2[a1, SP[a1, a4], a1, a3, a2, n]/2 - 
    S2[a1, SP[a1, a4], a3, a1, a2, n]/2 + 
    2*S2[a1, SP[a3, a4], a1, a1, a2, n] - 
    (S2[a1, n]*S2[a3, a1, a4, a1, a2, n])/2 - 
    S2[a3, a1, a4, a1, SP[a1, a2], n]/2 - S2[a3, a1, a4, SP[a1, a1], a2, n]/
     2 - S2[a3, a1, SP[a1, a4], a1, a2, n]/2 - 
    S2[a1, n]*S2[a3, a4, a1, a1, a2, n] - S2[a3, a4, a1, a1, SP[a1, a2], n] + 
    (S2[a1, n]*S2[a3, a4, a1, a2, a1, n])/2 + 
    S2[a3, a4, a1, a2, SP[a1, a1], n]/2 - S2[a3, a4, a1, SP[a1, a1], a2, n] + 
    S2[a3, a4, a1, SP[a1, a2], a1, n]/2 - S2[a3, a4, SP[a1, a1], a1, a2, n] + 
    S2[a3, a4, SP[a1, a1], a2, a1, n]/2 - S2[a3, SP[a1, a1], a4, a1, a2, n]/
     2 - S2[a3, SP[a1, a4], a1, a1, a2, n] + 
    S2[a3, SP[a1, a4], a1, a2, a1, n]/2 + 
    3*S2[a3, n]*S2[a4, a1, a1, a1, a2, n] + 
    3*S2[a4, a1, a1, a1, SP[a2, a3], n] - 
    S2[a1, n]*S2[a4, a1, a1, a2, a3, n] - S2[a4, a1, a1, a2, SP[a1, a3], n] - 
    S2[a1, n]*S2[a4, a1, a1, a3, a2, n] - S2[a4, a1, a1, a3, SP[a1, a2], n] - 
    S2[a4, a1, a1, SP[a1, a2], a3, n] + 2*S2[a4, a1, a1, SP[a1, a3], a2, n] + 
    (S2[a1, n]*S2[a4, a1, a2, a1, a3, n])/2 + 
    S2[a4, a1, a2, a1, SP[a1, a3], n]/2 + 
    (S2[a1, n]*S2[a4, a1, a2, a3, a1, n])/2 + 
    S2[a4, a1, a2, a3, SP[a1, a1], n]/2 + S2[a4, a1, a2, SP[a1, a1], a3, n]/
     2 + S2[a4, a1, a2, SP[a1, a3], a1, n]/2 - 
    S2[a1, n]*S2[a4, a1, a3, a1, a2, n] - S2[a4, a1, a3, a1, SP[a1, a2], n] + 
    (S2[a1, n]*S2[a4, a1, a3, a2, a1, n])/2 + 
    S2[a4, a1, a3, a2, SP[a1, a1], n]/2 - S2[a4, a1, a3, SP[a1, a1], a2, n] + 
    S2[a4, a1, a3, SP[a1, a2], a1, n]/2 - S2[a4, a1, SP[a1, a1], a2, a3, n] - 
    S2[a4, a1, SP[a1, a1], a3, a2, n] + S2[a4, a1, SP[a1, a2], a1, a3, n]/2 + 
    S2[a4, a1, SP[a1, a2], a3, a1, n]/2 + 
    2*S2[a4, a1, SP[a1, a3], a1, a2, n] + S2[a4, a1, SP[a1, a3], a2, a1, n]/
     2 - S2[a1, n]*S2[a4, a3, a1, a1, a2, n] - S2[a4, a3, a1, a1, SP[a1, a2], 
     n] + (S2[a1, n]*S2[a4, a3, a1, a2, a1, n])/2 + 
    S2[a4, a3, a1, a2, SP[a1, a1], n]/2 - S2[a4, a3, a1, SP[a1, a1], a2, n] + 
    S2[a4, a3, a1, SP[a1, a2], a1, n]/2 - S2[a4, a3, SP[a1, a1], a1, a2, n] + 
    S2[a4, a3, SP[a1, a1], a2, a1, n]/2 - S2[a4, SP[a1, a1], a1, a2, a3, n] - 
    S2[a4, SP[a1, a1], a1, a3, a2, n] + S2[a4, SP[a1, a1], a2, a1, a3, n]/2 + 
    S2[a4, SP[a1, a1], a2, a3, a1, n]/2 - S2[a4, SP[a1, a1], a3, a1, a2, n] + 
    S2[a4, SP[a1, a1], a3, a2, a1, n]/2 + 
    2*S2[a4, SP[a1, a3], a1, a1, a2, n] + S2[a4, SP[a1, a3], a1, a2, a1, n]/
     2 - S2[SP[a1, a1], a3, a4, a1, a2, n]/2 - 
    S2[SP[a1, a1], a4, a1, a2, a3, n]/2 - S2[SP[a1, a1], a4, a1, a3, a2, n]/
     2 - S2[SP[a1, a1], a4, a3, a1, a2, n]/2 + 
    S2[SP[a1, a3], a1, a4, a1, a2, n]/2 + S2[SP[a1, a3], a4, a1, a1, a2, n] + 
    S2[SP[a1, a3], a4, a1, a2, a1, n]/2 - S2[SP[a1, a4], a1, a1, a2, a3, n] - 
    S2[SP[a1, a4], a1, a1, a3, a2, n] + S2[SP[a1, a4], a1, a2, a1, a3, n]/2 + 
    S2[SP[a1, a4], a1, a2, a3, a1, n]/2 - S2[SP[a1, a4], a1, a3, a1, a2, n] + 
    S2[SP[a1, a4], a1, a3, a2, a1, n]/2 - S2[SP[a1, a4], a3, a1, a1, a2, n] + 
    S2[SP[a1, a4], a3, a1, a2, a1, n]/2 + 
    3*S2[SP[a3, a4], a1, a1, a1, a2, n] - S2[a4, a1, a2, a1, a1, a3, n] - 
    S2[a4, a1, a2, a1, a3, a1, n] - S2[a4, a1, a2, a3, a1, a1, n] - 
    S2[a4, a1, a3, a2, a1, a1, n] - S2[a4, a3, a1, a2, a1, a1, n] /; 
   MyMemberQ[{{a2, a3, a4}}, {a1, a1, a1, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a3_, a4_, a2_, a1_, a1_, a1_, n_] :> 
  -(S2[a3, n]*S2[a1, a1, a1, a4, a2, n]) - S2[a1, a1, a1, a4, SP[a2, a3], 
     n] - S2[a1, a1, a1, SP[a3, a4], a2, n] + 
    (S2[a1, n]*S2[a1, a1, a3, a4, a2, n])/3 + 
    S2[a1, a1, a3, a4, SP[a1, a2], n]/3 + S2[a1, a1, a3, SP[a1, a4], a2, n]/
     3 - S2[a3, n]*S2[a1, a1, a4, a1, a2, n] - S2[a1, a1, a4, a1, SP[a2, a3], 
     n] + (S2[a1, n]*S2[a1, a1, a4, a2, a3, n])/3 + 
    S2[a1, a1, a4, a2, SP[a1, a3], n]/3 + 
    (S2[a1, n]*S2[a1, a1, a4, a3, a2, n])/3 + 
    S2[a1, a1, a4, a3, SP[a1, a2], n]/3 + S2[a1, a1, a4, SP[a1, a2], a3, n]/
     3 - (2*S2[a1, a1, a4, SP[a1, a3], a2, n])/3 - 
    (2*S2[a1, a1, SP[a1, a3], a4, a2, n])/3 + 
    S2[a1, a1, SP[a1, a4], a2, a3, n]/3 + S2[a1, a1, SP[a1, a4], a3, a2, n]/
     3 - S2[a1, a1, SP[a3, a4], a1, a2, n] + 
    (S2[a1, n]*S2[a1, a3, a1, a4, a2, n])/3 + 
    S2[a1, a3, a1, a4, SP[a1, a2], n]/3 + S2[a1, a3, a1, SP[a1, a4], a2, n]/
     3 + (S2[a1, n]*S2[a1, a3, a4, a1, a2, n])/3 + 
    S2[a1, a3, a4, a1, SP[a1, a2], n]/3 - 
    (S2[a1, n]*S2[a1, a3, a4, a2, a1, n])/6 - 
    S2[a1, a3, a4, a2, SP[a1, a1], n]/6 + S2[a1, a3, a4, SP[a1, a1], a2, n]/
     3 - S2[a1, a3, a4, SP[a1, a2], a1, n]/6 + 
    S2[a1, a3, SP[a1, a1], a4, a2, n]/3 + S2[a1, a3, SP[a1, a4], a1, a2, n]/
     3 - S2[a1, a3, SP[a1, a4], a2, a1, n]/6 - 
    S2[a3, n]*S2[a1, a4, a1, a1, a2, n] - S2[a1, a4, a1, a1, SP[a2, a3], n] + 
    (S2[a1, n]*S2[a1, a4, a1, a2, a3, n])/3 + 
    S2[a1, a4, a1, a2, SP[a1, a3], n]/3 + 
    (S2[a1, n]*S2[a1, a4, a1, a3, a2, n])/3 + 
    S2[a1, a4, a1, a3, SP[a1, a2], n]/3 + S2[a1, a4, a1, SP[a1, a2], a3, n]/
     3 - (2*S2[a1, a4, a1, SP[a1, a3], a2, n])/3 - 
    (S2[a1, n]*S2[a1, a4, a2, a1, a3, n])/6 - 
    S2[a1, a4, a2, a1, SP[a1, a3], n]/6 - 
    (S2[a1, n]*S2[a1, a4, a2, a3, a1, n])/6 - 
    S2[a1, a4, a2, a3, SP[a1, a1], n]/6 - S2[a1, a4, a2, SP[a1, a1], a3, n]/
     6 - S2[a1, a4, a2, SP[a1, a3], a1, n]/6 + 
    (S2[a1, n]*S2[a1, a4, a3, a1, a2, n])/3 + 
    S2[a1, a4, a3, a1, SP[a1, a2], n]/3 - 
    (S2[a1, n]*S2[a1, a4, a3, a2, a1, n])/6 - 
    S2[a1, a4, a3, a2, SP[a1, a1], n]/6 + S2[a1, a4, a3, SP[a1, a1], a2, n]/
     3 - S2[a1, a4, a3, SP[a1, a2], a1, n]/6 + 
    S2[a1, a4, SP[a1, a1], a2, a3, n]/3 + S2[a1, a4, SP[a1, a1], a3, a2, n]/
     3 - S2[a1, a4, SP[a1, a2], a1, a3, n]/6 - 
    S2[a1, a4, SP[a1, a2], a3, a1, n]/6 - 
    (2*S2[a1, a4, SP[a1, a3], a1, a2, n])/3 - 
    S2[a1, a4, SP[a1, a3], a2, a1, n]/6 + S2[a1, SP[a1, a1], a3, a4, a2, n]/
     3 + S2[a1, SP[a1, a1], a4, a2, a3, n]/3 + 
    S2[a1, SP[a1, a1], a4, a3, a2, n]/3 - 
    (2*S2[a1, SP[a1, a3], a1, a4, a2, n])/3 - 
    (2*S2[a1, SP[a1, a3], a4, a1, a2, n])/3 - 
    S2[a1, SP[a1, a3], a4, a2, a1, n]/6 + S2[a1, SP[a1, a4], a1, a2, a3, n]/

     3 + S2[a1, SP[a1, a4], a1, a3, a2, n]/3 - 
    S2[a1, SP[a1, a4], a2, a1, a3, n]/6 - S2[a1, SP[a1, a4], a2, a3, a1, n]/
     6 + S2[a1, SP[a1, a4], a3, a1, a2, n]/3 - 
    S2[a1, SP[a1, a4], a3, a2, a1, n]/6 - S2[a1, SP[a3, a4], a1, a1, a2, n] + 
    (S2[a1, n]*S2[a3, a1, a1, a4, a2, n])/3 + 
    S2[a3, a1, a1, a4, SP[a1, a2], n]/3 + S2[a3, a1, a1, SP[a1, a4], a2, n]/
     3 + (S2[a1, n]*S2[a3, a1, a4, a1, a2, n])/3 + 
    S2[a3, a1, a4, a1, SP[a1, a2], n]/3 - 
    (S2[a1, n]*S2[a3, a1, a4, a2, a1, n])/6 - 
    S2[a3, a1, a4, a2, SP[a1, a1], n]/6 + S2[a3, a1, a4, SP[a1, a1], a2, n]/
     3 - S2[a3, a1, a4, SP[a1, a2], a1, n]/6 + 
    S2[a3, a1, SP[a1, a1], a4, a2, n]/3 + S2[a3, a1, SP[a1, a4], a1, a2, n]/
     3 - S2[a3, a1, SP[a1, a4], a2, a1, n]/6 + 
    (S2[a1, n]*S2[a3, a4, a1, a1, a2, n])/3 + 
    S2[a3, a4, a1, a1, SP[a1, a2], n]/3 - 
    (S2[a1, n]*S2[a3, a4, a1, a2, a1, n])/6 - 
    S2[a3, a4, a1, a2, SP[a1, a1], n]/6 + S2[a3, a4, a1, SP[a1, a1], a2, n]/
     3 - S2[a3, a4, a1, SP[a1, a2], a1, n]/6 + 
    (S2[a1, n]*S2[a3, a4, a2, a1, a1, n])/3 + 
    S2[a3, a4, a2, a1, SP[a1, a1], n]/3 + S2[a3, a4, a2, SP[a1, a1], a1, n]/
     3 + S2[a3, a4, SP[a1, a1], a1, a2, n]/3 - 
    S2[a3, a4, SP[a1, a1], a2, a1, n]/6 + S2[a3, a4, SP[a1, a2], a1, a1, n]/
     3 + S2[a3, SP[a1, a1], a1, a4, a2, n]/3 + 
    S2[a3, SP[a1, a1], a4, a1, a2, n]/3 - S2[a3, SP[a1, a1], a4, a2, a1, n]/
     6 + S2[a3, SP[a1, a4], a1, a1, a2, n]/3 - 
    S2[a3, SP[a1, a4], a1, a2, a1, n]/6 + S2[a3, SP[a1, a4], a2, a1, a1, n]/
     3 - S2[a3, n]*S2[a4, a1, a1, a1, a2, n] - S2[a4, a1, a1, a1, SP[a2, a3], 
     n] + (S2[a1, n]*S2[a4, a1, a1, a2, a3, n])/3 + 
    S2[a4, a1, a1, a2, SP[a1, a3], n]/3 + 
    (S2[a1, n]*S2[a4, a1, a1, a3, a2, n])/3 + 
    S2[a4, a1, a1, a3, SP[a1, a2], n]/3 + S2[a4, a1, a1, SP[a1, a2], a3, n]/
     3 - (2*S2[a4, a1, a1, SP[a1, a3], a2, n])/3 - 
    (S2[a1, n]*S2[a4, a1, a2, a1, a3, n])/6 - 
    S2[a4, a1, a2, a1, SP[a1, a3], n]/6 - 
    (S2[a1, n]*S2[a4, a1, a2, a3, a1, n])/6 - 
    S2[a4, a1, a2, a3, SP[a1, a1], n]/6 - S2[a4, a1, a2, SP[a1, a1], a3, n]/
     6 - S2[a4, a1, a2, SP[a1, a3], a1, n]/6 + 
    (S2[a1, n]*S2[a4, a1, a3, a1, a2, n])/3 + 
    S2[a4, a1, a3, a1, SP[a1, a2], n]/3 - 
    (S2[a1, n]*S2[a4, a1, a3, a2, a1, n])/6 - 
    S2[a4, a1, a3, a2, SP[a1, a1], n]/6 + S2[a4, a1, a3, SP[a1, a1], a2, n]/
     3 - S2[a4, a1, a3, SP[a1, a2], a1, n]/6 + 
    S2[a4, a1, SP[a1, a1], a2, a3, n]/3 + S2[a4, a1, SP[a1, a1], a3, a2, n]/
     3 - S2[a4, a1, SP[a1, a2], a1, a3, n]/6 - 
    S2[a4, a1, SP[a1, a2], a3, a1, n]/6 - 
    (2*S2[a4, a1, SP[a1, a3], a1, a2, n])/3 - 
    S2[a4, a1, SP[a1, a3], a2, a1, n]/6 + 
    (S2[a1, n]*S2[a4, a2, a1, a1, a3, n])/3 + 
    S2[a4, a2, a1, a1, SP[a1, a3], n]/3 + 
    (S2[a1, n]*S2[a4, a2, a1, a3, a1, n])/3 + 
    S2[a4, a2, a1, a3, SP[a1, a1], n]/3 + S2[a4, a2, a1, SP[a1, a1], a3, n]/
     3 + S2[a4, a2, a1, SP[a1, a3], a1, n]/3 + 
    (S2[a1, n]*S2[a4, a2, a3, a1, a1, n])/3 + 
    S2[a4, a2, a3, a1, SP[a1, a1], n]/3 + S2[a4, a2, a3, SP[a1, a1], a1, n]/
     3 + S2[a4, a2, SP[a1, a1], a1, a3, n]/3 + 
    S2[a4, a2, SP[a1, a1], a3, a1, n]/3 + S2[a4, a2, SP[a1, a3], a1, a1, n]/
     3 + (S2[a1, n]*S2[a4, a3, a1, a1, a2, n])/3 + 
    S2[a4, a3, a1, a1, SP[a1, a2], n]/3 - 
    (S2[a1, n]*S2[a4, a3, a1, a2, a1, n])/6 - 
    S2[a4, a3, a1, a2, SP[a1, a1], n]/6 + S2[a4, a3, a1, SP[a1, a1], a2, n]/
     3 - S2[a4, a3, a1, SP[a1, a2], a1, n]/6 + 
    (S2[a1, n]*S2[a4, a3, a2, a1, a1, n])/3 + 
    S2[a4, a3, a2, a1, SP[a1, a1], n]/3 + S2[a4, a3, a2, SP[a1, a1], a1, n]/
     3 + S2[a4, a3, SP[a1, a1], a1, a2, n]/3 - 
    S2[a4, a3, SP[a1, a1], a2, a1, n]/6 + S2[a4, a3, SP[a1, a2], a1, a1, n]/
     3 + S2[a4, SP[a1, a1], a1, a2, a3, n]/3 + 
    S2[a4, SP[a1, a1], a1, a3, a2, n]/3 - S2[a4, SP[a1, a1], a2, a1, a3, n]/
     6 - S2[a4, SP[a1, a1], a2, a3, a1, n]/6 + 
    S2[a4, SP[a1, a1], a3, a1, a2, n]/3 - S2[a4, SP[a1, a1], a3, a2, a1, n]/
     6 + S2[a4, SP[a1, a2], a1, a1, a3, n]/3 + 
    S2[a4, SP[a1, a2], a1, a3, a1, n]/3 + S2[a4, SP[a1, a2], a3, a1, a1, n]/
     3 - (2*S2[a4, SP[a1, a3], a1, a1, a2, n])/3 - 
    S2[a4, SP[a1, a3], a1, a2, a1, n]/6 + S2[a4, SP[a1, a3], a2, a1, a1, n]/
     3 + S2[SP[a1, a1], a1, a3, a4, a2, n]/3 + 
    S2[SP[a1, a1], a1, a4, a2, a3, n]/3 + S2[SP[a1, a1], a1, a4, a3, a2, n]/
     3 + S2[SP[a1, a1], a3, a1, a4, a2, n]/3 + 
    S2[SP[a1, a1], a3, a4, a1, a2, n]/3 - S2[SP[a1, a1], a3, a4, a2, a1, n]/
     6 + S2[SP[a1, a1], a4, a1, a2, a3, n]/3 + 
    S2[SP[a1, a1], a4, a1, a3, a2, n]/3 - S2[SP[a1, a1], a4, a2, a1, a3, n]/
     6 - S2[SP[a1, a1], a4, a2, a3, a1, n]/6 + 
    S2[SP[a1, a1], a4, a3, a1, a2, n]/3 - S2[SP[a1, a1], a4, a3, a2, a1, n]/
     6 - (2*S2[SP[a1, a3], a1, a1, a4, a2, n])/3 - 
    (2*S2[SP[a1, a3], a1, a4, a1, a2, n])/3 - 
    S2[SP[a1, a3], a1, a4, a2, a1, n]/6 - 
    (2*S2[SP[a1, a3], a4, a1, a1, a2, n])/3 - 
    S2[SP[a1, a3], a4, a1, a2, a1, n]/6 + S2[SP[a1, a3], a4, a2, a1, a1, n]/
     3 + S2[SP[a1, a4], a1, a1, a2, a3, n]/3 + 
    S2[SP[a1, a4], a1, a1, a3, a2, n]/3 - S2[SP[a1, a4], a1, a2, a1, a3, n]/
     6 - S2[SP[a1, a4], a1, a2, a3, a1, n]/6 + 
    S2[SP[a1, a4], a1, a3, a1, a2, n]/3 - S2[SP[a1, a4], a1, a3, a2, a1, n]/
     6 + S2[SP[a1, a4], a2, a1, a1, a3, n]/3 + 
    S2[SP[a1, a4], a2, a1, a3, a1, n]/3 + S2[SP[a1, a4], a2, a3, a1, a1, n]/
     3 + S2[SP[a1, a4], a3, a1, a1, a2, n]/3 - 
    S2[SP[a1, a4], a3, a1, a2, a1, n]/6 + S2[SP[a1, a4], a3, a2, a1, a1, n]/
     3 - S2[SP[a3, a4], a1, a1, a1, a2, n] - S2[a4, a2, a1, a1, a1, a3, n] - 
    S2[a4, a2, a1, a1, a3, a1, n] - S2[a4, a2, a1, a3, a1, a1, n] - 
    S2[a4, a2, a3, a1, a1, a1, n] - S2[a4, a3, a2, a1, a1, a1, n] /; 
   MyMemberQ[{{a2, a3, a4}}, {a1, a1, a1, a2, a3, a4}] && 
    a1 != a2 != a3 != a4, S2[a1_, a1_, a1_, a2_, a2_, a3_, n_] :> 
  S2[a2, a3, n]*S2[a1, a1, a1, a2, n] - S2[a1, a1, SP[a1, a2], SP[a2, a3], 
     n] - S2[a1, SP[a1, a2], a1, SP[a2, a3], n] - 
    S2[a1, SP[a1, a2], SP[a1, a3], a2, n] - S2[SP[a1, a2], a1, a1, 
     SP[a2, a3], n] - S2[SP[a1, a2], a1, SP[a1, a3], a2, n] - 
    S2[SP[a1, a2], SP[a1, a3], a1, a2, n] + 
    S2[a3, n]*S2[a1, a1, a1, a2, a2, n] - 
    S2[a2, n]*S2[a1, a1, a1, a2, a3, n] + S2[a1, a1, a1, a2, SP[a2, a3], n] - 
    S2[a2, n]*S2[a1, a1, a1, a3, a2, n] - S2[a1, a1, a1, a3, SP[a2, a2], n] + 
    S2[a1, a1, a2, a1, SP[a2, a3], n] + S2[a1, a1, a2, SP[a1, a3], a2, n] - 
    S2[a2, n]*S2[a1, a1, a3, a1, a2, n] - S2[a1, a1, a3, a1, SP[a2, a2], n] + 
    (S2[a1, n]*S2[a1, a1, a3, a2, a2, n])/3 + 
    S2[a1, a1, a3, a2, SP[a1, a2], n]/3 - 
    (2*S2[a1, a1, a3, SP[a1, a2], a2, n])/3 + 
    (4*S2[a1, a1, SP[a1, a3], a2, a2, n])/3 - S2[a1, a1, SP[a2, a3], a1, a2, 
     n] + S2[a1, a2, a1, a1, SP[a2, a3], n] + S2[a1, a2, a1, SP[a1, a3], a2, 
     n] + S2[a1, a2, SP[a1, a3], a1, a2, n] - 
    S2[a2, n]*S2[a1, a3, a1, a1, a2, n] - S2[a1, a3, a1, a1, SP[a2, a2], n] + 
    (S2[a1, n]*S2[a1, a3, a1, a2, a2, n])/3 + 
    S2[a1, a3, a1, a2, SP[a1, a2], n]/3 - 
    (2*S2[a1, a3, a1, SP[a1, a2], a2, n])/3 + 
    (S2[a1, n]*S2[a1, a3, a2, a1, a2, n])/3 + 
    S2[a1, a3, a2, a1, SP[a1, a2], n]/3 - 
    (S2[a1, n]*S2[a1, a3, a2, a2, a1, n])/6 - 
    S2[a1, a3, a2, a2, SP[a1, a1], n]/6 + S2[a1, a3, a2, SP[a1, a1], a2, n]/
     3 - S2[a1, a3, a2, SP[a1, a2], a1, n]/6 + 
    S2[a1, a3, SP[a1, a1], a2, a2, n]/3 - 
    (2*S2[a1, a3, SP[a1, a2], a1, a2, n])/3 - 
    S2[a1, a3, SP[a1, a2], a2, a1, n]/6 + S2[a1, SP[a1, a1], a3, a2, a2, n]/
     3 + (4*S2[a1, SP[a1, a3], a1, a2, a2, n])/3 + 
    S2[a1, SP[a1, a3], a2, a1, a2, n]/3 - S2[a1, SP[a1, a3], a2, a2, a1, n]/
     6 - S2[a1, SP[a2, a3], a1, a1, a2, n] + S2[a2, a1, a1, a1, SP[a2, a3], 
     n] + S2[a2, a1, a1, SP[a1, a3], a2, n] + S2[a2, a1, SP[a1, a3], a1, a2, 
     n] + S2[a2, SP[a1, a3], a1, a1, a2, n] - 
    S2[a2, n]*S2[a3, a1, a1, a1, a2, n] - S2[a3, a1, a1, a1, SP[a2, a2], n] + 
    (S2[a1, n]*S2[a3, a1, a1, a2, a2, n])/3 + 
    S2[a3, a1, a1, a2, SP[a1, a2], n]/3 - 
    (2*S2[a3, a1, a1, SP[a1, a2], a2, n])/3 + 
    (S2[a1, n]*S2[a3, a1, a2, a1, a2, n])/3 + 
    S2[a3, a1, a2, a1, SP[a1, a2], n]/3 - 
    (S2[a1, n]*S2[a3, a1, a2, a2, a1, n])/6 - 
    S2[a3, a1, a2, a2, SP[a1, a1], n]/6 + S2[a3, a1, a2, SP[a1, a1], a2, n]/
     3 - S2[a3, a1, a2, SP[a1, a2], a1, n]/6 + 
    S2[a3, a1, SP[a1, a1], a2, a2, n]/3 - 
    (2*S2[a3, a1, SP[a1, a2], a1, a2, n])/3 - 
    S2[a3, a1, SP[a1, a2], a2, a1, n]/6 + 
    (S2[a1, n]*S2[a3, a2, a1, a1, a2, n])/3 + 
    S2[a3, a2, a1, a1, SP[a1, a2], n]/3 - 
    (S2[a1, n]*S2[a3, a2, a1, a2, a1, n])/6 - 
    S2[a3, a2, a1, a2, SP[a1, a1], n]/6 + S2[a3, a2, a1, SP[a1, a1], a2, n]/
     3 - S2[a3, a2, a1, SP[a1, a2], a1, n]/6 + 
    (S2[a1, n]*S2[a3, a2, a2, a1, a1, n])/3 + 
    S2[a3, a2, a2, a1, SP[a1, a1], n]/3 + S2[a3, a2, a2, SP[a1, a1], a1, n]/
     3 + S2[a3, a2, SP[a1, a1], a1, a2, n]/3 - 
    S2[a3, a2, SP[a1, a1], a2, a1, n]/6 + S2[a3, a2, SP[a1, a2], a1, a1, n]/
     3 + S2[a3, SP[a1, a1], a1, a2, a2, n]/3 + 
    S2[a3, SP[a1, a1], a2, a1, a2, n]/3 - S2[a3, SP[a1, a1], a2, a2, a1, n]/
     6 - (2*S2[a3, SP[a1, a2], a1, a1, a2, n])/3 - 
    S2[a3, SP[a1, a2], a1, a2, a1, n]/6 + S2[a3, SP[a1, a2], a2, a1, a1, n]/
     3 + S2[SP[a1, a1], a1, a3, a2, a2, n]/3 + 
    S2[SP[a1, a1], a3, a1, a2, a2, n]/3 + S2[SP[a1, a1], a3, a2, a1, a2, n]/
     3 - S2[SP[a1, a1], a3, a2, a2, a1, n]/6 + 
    (4*S2[SP[a1, a3], a1, a1, a2, a2, n])/3 + 
    S2[SP[a1, a3], a1, a2, a1, a2, n]/3 - S2[SP[a1, a3], a1, a2, a2, a1, n]/
     6 + S2[SP[a1, a3], a2, a1, a1, a2, n]/3 - 
    S2[SP[a1, a3], a2, a1, a2, a1, n]/6 + S2[SP[a1, a3], a2, a2, a1, a1, n]/
     3 - S2[SP[a2, a3], a1, a1, a1, a2, n] - S2[a3, a2, a2, a1, a1, a1, n] /; 
   a1 != a2 != a3, S2[a1_, a1_, a1_, a2_, a3_, a2_, n_] :> 
  -(S2[a2, a3, n]*S2[a1, a1, a1, a2, n]) + S2[a1, a1, SP[a1, a2], SP[a2, a3], 
     n] + S2[a1, SP[a1, a2], a1, SP[a2, a3], n] + 
    S2[a1, SP[a1, a2], SP[a1, a3], a2, n] + S2[SP[a1, a2], a1, a1, 
     SP[a2, a3], n] + S2[SP[a1, a2], a1, SP[a1, a3], a2, n] + 
    S2[SP[a1, a2], SP[a1, a3], a1, a2, n] + 
    S2[a2, n]*S2[a1, a1, a1, a2, a3, n] + 
    S2[a2, n]*S2[a1, a1, a1, a3, a2, n] + S2[a1, a1, a1, a3, SP[a2, a2], n] + 
    S2[a1, a1, a1, SP[a2, a3], a2, n] - S2[a1, a1, a2, a1, SP[a2, a3], n] - 
    S2[a1, a1, a2, SP[a1, a3], a2, n] + S2[a2, n]*S2[a1, a1, a3, a1, a2, n] + 
    S2[a1, a1, a3, a1, SP[a2, a2], n] - 
    (2*S2[a1, n]*S2[a1, a1, a3, a2, a2, n])/3 - 
    (2*S2[a1, a1, a3, a2, SP[a1, a2], n])/3 + 
    S2[a1, a1, a3, SP[a1, a2], a2, n]/3 - 
    (2*S2[a1, a1, SP[a1, a3], a2, a2, n])/3 + S2[a1, a1, SP[a2, a3], a1, a2, 
     n] - S2[a1, a2, a1, a1, SP[a2, a3], n] - S2[a1, a2, a1, SP[a1, a3], a2, 
     n] - S2[a1, a2, SP[a1, a3], a1, a2, n] + 
    S2[a2, n]*S2[a1, a3, a1, a1, a2, n] + S2[a1, a3, a1, a1, SP[a2, a2], n] - 
    (2*S2[a1, n]*S2[a1, a3, a1, a2, a2, n])/3 - 
    (2*S2[a1, a3, a1, a2, SP[a1, a2], n])/3 + 
    S2[a1, a3, a1, SP[a1, a2], a2, n]/3 - 
    (S2[a1, n]*S2[a1, a3, a2, a1, a2, n])/6 - 
    S2[a1, a3, a2, a1, SP[a1, a2], n]/6 + 
    (S2[a1, n]*S2[a1, a3, a2, a2, a1, n])/3 + 
    S2[a1, a3, a2, a2, SP[a1, a1], n]/3 - S2[a1, a3, a2, SP[a1, a1], a2, n]/
     6 + S2[a1, a3, a2, SP[a1, a2], a1, n]/3 - 
    (2*S2[a1, a3, SP[a1, a1], a2, a2, n])/3 + 
    (5*S2[a1, a3, SP[a1, a2], a1, a2, n])/6 + 
    S2[a1, a3, SP[a1, a2], a2, a1, n]/3 - 
    (2*S2[a1, SP[a1, a1], a3, a2, a2, n])/3 - 
    (2*S2[a1, SP[a1, a3], a1, a2, a2, n])/3 - 
    S2[a1, SP[a1, a3], a2, a1, a2, n]/6 + S2[a1, SP[a1, a3], a2, a2, a1, n]/
     3 + S2[a1, SP[a2, a3], a1, a1, a2, n] - S2[a2, a1, a1, a1, SP[a2, a3], 
     n] - S2[a2, a1, a1, SP[a1, a3], a2, n] - S2[a2, a1, SP[a1, a3], a1, a2, 
     n] - S2[a2, SP[a1, a3], a1, a1, a2, n] + 
    S2[a2, n]*S2[a3, a1, a1, a1, a2, n] + S2[a3, a1, a1, a1, SP[a2, a2], n] - 
    (2*S2[a1, n]*S2[a3, a1, a1, a2, a2, n])/3 - 
    (2*S2[a3, a1, a1, a2, SP[a1, a2], n])/3 + 
    S2[a3, a1, a1, SP[a1, a2], a2, n]/3 - 
    (S2[a1, n]*S2[a3, a1, a2, a1, a2, n])/6 - 
    S2[a3, a1, a2, a1, SP[a1, a2], n]/6 + 
    (S2[a1, n]*S2[a3, a1, a2, a2, a1, n])/3 + 
    S2[a3, a1, a2, a2, SP[a1, a1], n]/3 - S2[a3, a1, a2, SP[a1, a1], a2, n]/
     6 + S2[a3, a1, a2, SP[a1, a2], a1, n]/3 - 
    (2*S2[a3, a1, SP[a1, a1], a2, a2, n])/3 + 
    (5*S2[a3, a1, SP[a1, a2], a1, a2, n])/6 + 
    S2[a3, a1, SP[a1, a2], a2, a1, n]/3 - 
    (2*S2[a1, n]*S2[a3, a2, a1, a1, a2, n])/3 - 
    (2*S2[a3, a2, a1, a1, SP[a1, a2], n])/3 - 
    (S2[a1, n]*S2[a3, a2, a1, a2, a1, n])/6 - 
    S2[a3, a2, a1, a2, SP[a1, a1], n]/6 - 
    (2*S2[a3, a2, a1, SP[a1, a1], a2, n])/3 - 
    S2[a3, a2, a1, SP[a1, a2], a1, n]/6 - 
    (2*S2[a1, n]*S2[a3, a2, a2, a1, a1, n])/3 - 
    (2*S2[a3, a2, a2, a1, SP[a1, a1], n])/3 - 
    (2*S2[a3, a2, a2, SP[a1, a1], a1, n])/3 - 
    (2*S2[a3, a2, SP[a1, a1], a1, a2, n])/3 - 
    S2[a3, a2, SP[a1, a1], a2, a1, n]/6 - 
    (2*S2[a3, a2, SP[a1, a2], a1, a1, n])/3 - 
    (2*S2[a3, SP[a1, a1], a1, a2, a2, n])/3 - 
    S2[a3, SP[a1, a1], a2, a1, a2, n]/6 + S2[a3, SP[a1, a1], a2, a2, a1, n]/
     3 + S2[a3, SP[a1, a2], a1, a1, a2, n]/3 - 
    S2[a3, SP[a1, a2], a1, a2, a1, n]/6 - 
    (2*S2[a3, SP[a1, a2], a2, a1, a1, n])/3 - 
    (2*S2[SP[a1, a1], a1, a3, a2, a2, n])/3 - 
    (2*S2[SP[a1, a1], a3, a1, a2, a2, n])/3 - 
    S2[SP[a1, a1], a3, a2, a1, a2, n]/6 + S2[SP[a1, a1], a3, a2, a2, a1, n]/
     3 - (2*S2[SP[a1, a3], a1, a1, a2, a2, n])/3 - 
    S2[SP[a1, a3], a1, a2, a1, a2, n]/6 + S2[SP[a1, a3], a1, a2, a2, a1, n]/
     3 - (2*S2[SP[a1, a3], a2, a1, a1, a2, n])/3 - 
    S2[SP[a1, a3], a2, a1, a2, a1, n]/6 - 
    (2*S2[SP[a1, a3], a2, a2, a1, a1, n])/3 + S2[SP[a2, a3], a1, a1, a1, a2, 
     n] + S2[a3, a2, a1, a1, a1, a2, n] + S2[a3, a2, a1, a1, a2, a1, n] + 
    S2[a3, a2, a1, a2, a1, a1, n] + 2*S2[a3, a2, a2, a1, a1, a1, n] /; 
   a1 != a2 != a3, S2[a1_, a1_, a1_, a3_, a2_, a2_, n_] :> 
  (S2[a1, n]*S2[a1, a1, a3, a2, a2, n])/3 + S2[a1, a1, a3, a2, SP[a1, a2], n]/
     3 + S2[a1, a1, a3, SP[a1, a2], a2, n]/3 + 
    S2[a1, a1, SP[a1, a3], a2, a2, n]/3 - 
    (S2[a1, n]*S2[a1, a3, a1, a2, a2, n])/6 - 
    S2[a1, a3, a1, a2, SP[a1, a2], n]/6 - S2[a1, a3, a1, SP[a1, a2], a2, n]/
     6 - (S2[a1, n]*S2[a1, a3, a2, a1, a2, n])/6 - 
    S2[a1, a3, a2, a1, SP[a1, a2], n]/6 - 
    (S2[a1, n]*S2[a1, a3, a2, a2, a1, n])/6 - 
    S2[a1, a3, a2, a2, SP[a1, a1], n]/6 - S2[a1, a3, a2, SP[a1, a1], a2, n]/
     6 - S2[a1, a3, a2, SP[a1, a2], a1, n]/6 - 
    S2[a1, a3, SP[a1, a1], a2, a2, n]/6 - S2[a1, a3, SP[a1, a2], a1, a2, n]/
     6 - S2[a1, a3, SP[a1, a2], a2, a1, n]/6 + 
    S2[a1, SP[a1, a1], a3, a2, a2, n]/3 - S2[a1, SP[a1, a3], a1, a2, a2, n]/
     6 - S2[a1, SP[a1, a3], a2, a1, a2, n]/6 - 
    S2[a1, SP[a1, a3], a2, a2, a1, n]/6 + 
    (S2[a1, n]*S2[a3, a1, a1, a2, a2, n])/3 + 
    S2[a3, a1, a1, a2, SP[a1, a2], n]/3 + S2[a3, a1, a1, SP[a1, a2], a2, n]/
     3 + (S2[a1, n]*S2[a3, a1, a2, a1, a2, n])/3 + 
    S2[a3, a1, a2, a1, SP[a1, a2], n]/3 + 
    (S2[a1, n]*S2[a3, a1, a2, a2, a1, n])/3 + 
    S2[a3, a1, a2, a2, SP[a1, a1], n]/3 + S2[a3, a1, a2, SP[a1, a1], a2, n]/
     3 + S2[a3, a1, a2, SP[a1, a2], a1, n]/3 + 
    S2[a3, a1, SP[a1, a1], a2, a2, n]/3 + S2[a3, a1, SP[a1, a2], a1, a2, n]/
     3 + S2[a3, a1, SP[a1, a2], a2, a1, n]/3 + 
    (S2[a1, n]*S2[a3, a2, a1, a1, a2, n])/3 + 
    S2[a3, a2, a1, a1, SP[a1, a2], n]/3 + 
    (S2[a1, n]*S2[a3, a2, a1, a2, a1, n])/3 + 
    S2[a3, a2, a1, a2, SP[a1, a1], n]/3 + S2[a3, a2, a1, SP[a1, a1], a2, n]/
     3 + S2[a3, a2, a1, SP[a1, a2], a1, n]/3 + 
    (S2[a1, n]*S2[a3, a2, a2, a1, a1, n])/3 + 
    S2[a3, a2, a2, a1, SP[a1, a1], n]/3 + S2[a3, a2, a2, SP[a1, a1], a1, n]/
     3 + S2[a3, a2, SP[a1, a1], a1, a2, n]/3 + 
    S2[a3, a2, SP[a1, a1], a2, a1, n]/3 + S2[a3, a2, SP[a1, a2], a1, a1, n]/
     3 + S2[a3, SP[a1, a1], a1, a2, a2, n]/3 + 
    S2[a3, SP[a1, a1], a2, a1, a2, n]/3 + S2[a3, SP[a1, a1], a2, a2, a1, n]/
     3 + S2[a3, SP[a1, a2], a1, a1, a2, n]/3 + 
    S2[a3, SP[a1, a2], a1, a2, a1, n]/3 + S2[a3, SP[a1, a2], a2, a1, a1, n]/
     3 + S2[SP[a1, a1], a1, a3, a2, a2, n]/3 - 
    S2[SP[a1, a1], a3, a1, a2, a2, n]/6 - S2[SP[a1, a1], a3, a2, a1, a2, n]/
     6 - S2[SP[a1, a1], a3, a2, a2, a1, n]/6 + 
    S2[SP[a1, a3], a1, a1, a2, a2, n]/3 + S2[SP[a1, a3], a1, a2, a1, a2, n]/
     3 + S2[SP[a1, a3], a1, a2, a2, a1, n]/3 + 
    S2[SP[a1, a3], a2, a1, a1, a2, n]/3 + S2[SP[a1, a3], a2, a1, a2, a1, n]/
     3 + S2[SP[a1, a3], a2, a2, a1, a1, n]/3 - S2[a3, a1, a1, a1, a2, a2, 
     n] - S2[a3, a1, a1, a2, a1, a2, n] - S2[a3, a1, a1, a2, a2, a1, n] - 
    S2[a3, a1, a2, a1, a1, a2, n] - S2[a3, a1, a2, a1, a2, a1, n] - 
    S2[a3, a1, a2, a2, a1, a1, n] - S2[a3, a2, a1, a1, a1, a2, n] - 
    S2[a3, a2, a1, a1, a2, a1, n] - S2[a3, a2, a1, a2, a1, a1, n] - 
    S2[a3, a2, a2, a1, a1, a1, n] /; a1 != a2 != a3, 
 S2[a1_, a1_, a2_, a1_, a2_, a3_, n_] :> 
  S2[a1, a1, a2, n]*S2[a1, a2, a3, n] + S2[SP[a1, a1], SP[a1, a2], 
     SP[a2, a3], n] - 3*S2[a2, a3, n]*S2[a1, a1, a1, a2, n] + 
    S2[a1, a1, SP[a1, a2], SP[a2, a3], n] - S2[a1, SP[a1, a1], a2, 
     SP[a2, a3], n] - S2[a1, SP[a1, a1], SP[a2, a2], a3, n] + 
    2*S2[a1, SP[a1, a2], a1, SP[a2, a3], n] + 
    2*S2[a1, SP[a1, a2], SP[a1, a3], a2, n] - S2[SP[a1, a1], a1, a2, 
     SP[a2, a3], n] - S2[SP[a1, a1], a1, SP[a2, a2], a3, n] - 
    S2[SP[a1, a1], a2, a1, SP[a2, a3], n] - S2[SP[a1, a1], a2, SP[a1, a3], 
     a2, n] - S2[SP[a1, a1], SP[a1, a2], a2, a3, n] - 
    S2[SP[a1, a1], SP[a1, a2], a3, a2, n] + 
    3*S2[SP[a1, a2], a1, a1, SP[a2, a3], n] + 
    3*S2[SP[a1, a2], a1, SP[a1, a3], a2, n] + 
    3*S2[SP[a1, a2], SP[a1, a3], a1, a2, n] - 
    6*S2[a3, n]*S2[a1, a1, a1, a2, a2, n] + 
    3*S2[a2, n]*S2[a1, a1, a1, a2, a3, n] - 
    3*S2[a1, a1, a1, a2, SP[a2, a3], n] + 
    3*S2[a2, n]*S2[a1, a1, a1, a3, a2, n] + 
    3*S2[a1, a1, a1, a3, SP[a2, a2], n] + 
    3*S2[a1, a1, a1, SP[a2, a2], a3, n] - 
    3*S2[a1, a1, a1, SP[a2, a3], a2, n] - 
    2*S2[a3, n]*S2[a1, a1, a2, a1, a2, n] - 
    3*S2[a1, a1, a2, a1, SP[a2, a3], n] - 
    3*S2[a1, a1, a2, SP[a1, a3], a2, n] + 
    3*S2[a2, n]*S2[a1, a1, a3, a1, a2, n] + 
    3*S2[a1, a1, a3, a1, SP[a2, a2], n] + 
    3*S2[a1, a1, a3, SP[a1, a2], a2, n] + 
    3*S2[a1, a1, SP[a1, a2], a2, a3, n] + 
    2*S2[a1, a1, SP[a1, a2], a3, a2, n] - 
    6*S2[a1, a1, SP[a1, a3], a2, a2, n] + S2[a1, a1, SP[a2, a3], a1, a2, n] - 
    S2[a3, n]*S2[a1, a2, a1, a1, a2, n] - 
    3*S2[a1, a2, a1, a1, SP[a2, a3], n] - 
    3*S2[a1, a2, a1, SP[a1, a3], a2, n] - 
    3*S2[a1, a2, SP[a1, a3], a1, a2, n] + 
    3*S2[a2, n]*S2[a1, a3, a1, a1, a2, n] + 
    3*S2[a1, a3, a1, a1, SP[a2, a2], n] + 
    3*S2[a1, a3, a1, SP[a1, a2], a2, n] - 
    (S2[a1, n]*S2[a1, a3, a2, a1, a2, n])/2 - 
    S2[a1, a3, a2, a1, SP[a1, a2], n]/2 - S2[a1, a3, a2, SP[a1, a1], a2, n]/
     2 + (5*S2[a1, a3, SP[a1, a2], a1, a2, n])/2 + 
    2*S2[a1, SP[a1, a1], a2, a2, a3, n] + S2[a1, SP[a1, a1], a2, a3, a2, n] + 
    S2[a1, SP[a1, a2], a1, a2, a3, n] + S2[a1, SP[a1, a2], a1, a3, a2, n] + 
    S2[a1, SP[a1, a2], a3, a1, a2, n] - 6*S2[a1, SP[a1, a3], a1, a2, a2, n] - 
    (5*S2[a1, SP[a1, a3], a2, a1, a2, n])/2 + 
    2*S2[a1, SP[a2, a3], a1, a1, a2, n] - 
    3*S2[a2, a1, a1, a1, SP[a2, a3], n] - 
    3*S2[a2, a1, a1, SP[a1, a3], a2, n] - 
    3*S2[a2, a1, SP[a1, a3], a1, a2, n] - 
    3*S2[a2, SP[a1, a3], a1, a1, a2, n] + 
    3*S2[a2, n]*S2[a3, a1, a1, a1, a2, n] + 
    3*S2[a3, a1, a1, a1, SP[a2, a2], n] + 
    3*S2[a3, a1, a1, SP[a1, a2], a2, n] - 
    (S2[a1, n]*S2[a3, a1, a2, a1, a2, n])/2 - 
    S2[a3, a1, a2, a1, SP[a1, a2], n]/2 - S2[a3, a1, a2, SP[a1, a1], a2, n]/
     2 + (5*S2[a3, a1, SP[a1, a2], a1, a2, n])/2 - 
    S2[a1, n]*S2[a3, a2, a1, a1, a2, n] - S2[a3, a2, a1, a1, SP[a1, a2], n] + 
    (S2[a1, n]*S2[a3, a2, a1, a2, a1, n])/2 + 
    S2[a3, a2, a1, a2, SP[a1, a1], n]/2 - S2[a3, a2, a1, SP[a1, a1], a2, n] + 
    S2[a3, a2, a1, SP[a1, a2], a1, n]/2 - S2[a3, a2, SP[a1, a1], a1, a2, n] + 
    S2[a3, a2, SP[a1, a1], a2, a1, n]/2 - S2[a3, SP[a1, a1], a2, a1, a2, n]/
     2 + 2*S2[a3, SP[a1, a2], a1, a1, a2, n] + 
    S2[a3, SP[a1, a2], a1, a2, a1, n]/2 + 
    2*S2[SP[a1, a1], a1, a2, a2, a3, n] + S2[SP[a1, a1], a1, a2, a3, a2, n] + 
    S2[SP[a1, a1], a2, a1, a2, a3, n] + S2[SP[a1, a1], a2, a1, a3, a2, n] + 
    S2[SP[a1, a1], a2, a3, a1, a2, n] - S2[SP[a1, a1], a3, a2, a1, a2, n]/2 - 
    6*S2[SP[a1, a3], a1, a1, a2, a2, n] - 
    (5*S2[SP[a1, a3], a1, a2, a1, a2, n])/2 - 
    2*S2[SP[a1, a3], a2, a1, a1, a2, n] + S2[SP[a1, a3], a2, a1, a2, a1, n]/
     2 + 3*S2[SP[a2, a3], a1, a1, a1, a2, n] - S2[a3, a2, a1, a2, a1, a1, 
     n] /; a1 != a2 != a3, S2[a1_, a1_, a2_, a1_, a3_, a2_, n_] :> 
  S2[a1, a1, a2, n]*S2[a1, a3, a2, n] + S2[SP[a1, a1], SP[a1, a3], 
     SP[a2, a2], n] + 3*S2[a2, a3, n]*S2[a1, a1, a1, a2, n] - 
    3*S2[a1, a1, SP[a1, a2], SP[a2, a3], n] - 
    2*S2[a1, a1, SP[a1, a3], SP[a2, a2], n] - S2[a1, SP[a1, a1], a3, 
     SP[a2, a2], n] - S2[a1, SP[a1, a1], SP[a2, a3], a2, n] - 
    3*S2[a1, SP[a1, a2], a1, SP[a2, a3], n] - 
    3*S2[a1, SP[a1, a2], SP[a1, a3], a2, n] - S2[a1, SP[a1, a3], a1, 
     SP[a2, a2], n] - S2[a1, SP[a1, a3], SP[a1, a2], a2, n] - 
    S2[SP[a1, a1], a1, a3, SP[a2, a2], n] - S2[SP[a1, a1], a1, SP[a2, a3], 
     a2, n] - S2[SP[a1, a1], a3, a1, SP[a2, a2], n] - 
    S2[SP[a1, a1], a3, SP[a1, a2], a2, n] - 
    2*S2[SP[a1, a1], SP[a1, a3], a2, a2, n] - 
    3*S2[SP[a1, a2], a1, a1, SP[a2, a3], n] - 
    3*S2[SP[a1, a2], a1, SP[a1, a3], a2, n] - 
    3*S2[SP[a1, a2], SP[a1, a3], a1, a2, n] - 
    3*S2[a2, n]*S2[a1, a1, a1, a2, a3, n] - 
    3*S2[a2, n]*S2[a1, a1, a1, a3, a2, n] + 
    3*S2[a1, a1, a2, a1, SP[a2, a3], n] + 
    3*S2[a1, a1, a2, SP[a1, a3], a2, n] - 
    3*S2[a2, n]*S2[a1, a1, a3, a1, a2, n] - S2[a1, a1, a3, a1, SP[a2, a2], 
     n] - S2[a1, a1, a3, SP[a1, a2], a2, n] + S2[a1, a1, SP[a1, a2], a3, a2, 
     n] + 4*S2[a1, a1, SP[a1, a3], a2, a2, n] - 
    3*S2[a1, a1, SP[a2, a3], a1, a2, n] + 
    3*S2[a1, a2, a1, a1, SP[a2, a3], n] + 
    3*S2[a1, a2, a1, SP[a1, a3], a2, n] + 
    3*S2[a1, a2, SP[a1, a3], a1, a2, n] - 
    3*S2[a2, n]*S2[a1, a3, a1, a1, a2, n] - 
    2*S2[a1, a3, a1, a1, SP[a2, a2], n] + 
    S2[a1, n]*S2[a1, a3, a1, a2, a2, n] + S2[a1, a3, a1, a2, SP[a1, a2], n] - 
    S2[a1, a3, a1, SP[a1, a2], a2, n] + (S2[a1, n]*S2[a1, a3, a2, a1, a2, n])/
     2 + S2[a1, a3, a2, a1, SP[a1, a2], n]/2 + 
    S2[a1, a3, a2, SP[a1, a1], a2, n]/2 + S2[a1, a3, SP[a1, a1], a2, a2, n] - 
    (3*S2[a1, a3, SP[a1, a2], a1, a2, n])/2 + S2[a1, SP[a1, a1], a2, a3, a2, 
     n] + 2*S2[a1, SP[a1, a1], a3, a2, a2, n] + 
    3*S2[a1, SP[a1, a3], a1, a2, a2, n] + 
    (3*S2[a1, SP[a1, a3], a2, a1, a2, n])/2 - 
    3*S2[a1, SP[a2, a3], a1, a1, a2, n] + 
    3*S2[a2, a1, a1, a1, SP[a2, a3], n] + 
    3*S2[a2, a1, a1, SP[a1, a3], a2, n] + 
    3*S2[a2, a1, SP[a1, a3], a1, a2, n] + 
    3*S2[a2, SP[a1, a3], a1, a1, a2, n] - 
    3*S2[a2, n]*S2[a3, a1, a1, a1, a2, n] - 
    3*S2[a3, a1, a1, a1, SP[a2, a2], n] + 
    2*S2[a1, n]*S2[a3, a1, a1, a2, a2, n] + 
    2*S2[a3, a1, a1, a2, SP[a1, a2], n] - S2[a3, a1, a1, SP[a1, a2], a2, n] + 
    (S2[a1, n]*S2[a3, a1, a2, a1, a2, n])/2 + 
    S2[a3, a1, a2, a1, SP[a1, a2], n]/2 - 
    S2[a1, n]*S2[a3, a1, a2, a2, a1, n] - S2[a3, a1, a2, a2, SP[a1, a1], n] + 
    S2[a3, a1, a2, SP[a1, a1], a2, n]/2 - S2[a3, a1, a2, SP[a1, a2], a1, n] + 
    2*S2[a3, a1, SP[a1, a1], a2, a2, n] - 
    (5*S2[a3, a1, SP[a1, a2], a1, a2, n])/2 - S2[a3, a1, SP[a1, a2], a2, a1, 
     n] + S2[a1, n]*S2[a3, a2, a1, a1, a2, n] + S2[a3, a2, a1, a1, 
     SP[a1, a2], n] - (S2[a1, n]*S2[a3, a2, a1, a2, a1, n])/2 - 
    S2[a3, a2, a1, a2, SP[a1, a1], n]/2 + S2[a3, a2, a1, SP[a1, a1], a2, n] - 
    S2[a3, a2, a1, SP[a1, a2], a1, n]/2 + S2[a3, a2, SP[a1, a1], a1, a2, n] - 
    S2[a3, a2, SP[a1, a1], a2, a1, n]/2 + 
    2*S2[a3, SP[a1, a1], a1, a2, a2, n] + S2[a3, SP[a1, a1], a2, a1, a2, n]/
     2 - S2[a3, SP[a1, a1], a2, a2, a1, n] - 
    2*S2[a3, SP[a1, a2], a1, a1, a2, n] - S2[a3, SP[a1, a2], a1, a2, a1, n]/
     2 + S2[SP[a1, a1], a1, a2, a3, a2, n] + 
    2*S2[SP[a1, a1], a1, a3, a2, a2, n] + 
    3*S2[SP[a1, a1], a3, a1, a2, a2, n] + 
    (3*S2[SP[a1, a1], a3, a2, a1, a2, n])/2 + 
    2*S2[SP[a1, a3], a1, a1, a2, a2, n] + S2[SP[a1, a3], a1, a2, a1, a2, n]/
     2 - S2[SP[a1, a3], a1, a2, a2, a1, n] + S2[SP[a1, a3], a2, a1, a1, a2, 
     n] - S2[SP[a1, a3], a2, a1, a2, a1, n]/2 - 
    3*S2[SP[a2, a3], a1, a1, a1, a2, n] + S2[a3, a1, a2, a1, a1, a2, n] + 
    S2[a3, a1, a2, a1, a2, a1, n] + 2*S2[a3, a1, a2, a2, a1, a1, n] + 
    S2[a3, a2, a1, a2, a1, a1, n] /; a1 != a2 != a3, 
 S2[a1_, a1_, a2_, a2_, a1_, a3_, n_] :> 
  -(S2[a1, a1, a2, n]*S2[a1, a2, a3, n]) - S2[a1, a1, a2, n]*
     S2[a1, a3, a2, n] - S2[SP[a1, a1], SP[a1, a2], SP[a2, a3], n] - 
    S2[SP[a1, a1], SP[a1, a3], SP[a2, a2], n] + 
    S2[a1, a3, n]*S2[a1, a1, a2, a2, n] + S2[a1, a1, SP[a1, a2], SP[a2, a3], 
     n] + 2*S2[a1, a1, SP[a1, a3], SP[a2, a2], n] + 
    S2[a1, SP[a1, a1], a3, SP[a2, a2], n] + S2[a1, SP[a1, a1], SP[a2, a2], 
     a3, n] + S2[a1, SP[a1, a2], a1, SP[a2, a3], n] + 
    S2[a1, SP[a1, a2], SP[a1, a3], a2, n] + S2[a1, SP[a1, a3], a1, 
     SP[a2, a2], n] + S2[a1, SP[a1, a3], SP[a1, a2], a2, n] + 
    S2[SP[a1, a1], a1, a3, SP[a2, a2], n] + S2[SP[a1, a1], a1, SP[a2, a2], 
     a3, n] + S2[SP[a1, a1], a2, a1, SP[a2, a3], n] + 
    S2[SP[a1, a1], a2, SP[a1, a3], a2, n] + S2[SP[a1, a1], a3, a1, 
     SP[a2, a2], n] + S2[SP[a1, a1], a3, SP[a1, a2], a2, n] + 
    S2[SP[a1, a1], SP[a1, a2], a2, a3, n] + S2[SP[a1, a1], SP[a1, a2], a3, 
     a2, n] + S2[SP[a1, a1], SP[a1, a3], a2, a2, n] + 
    3*S2[a3, n]*S2[a1, a1, a1, a2, a2, n] + 
    3*S2[a1, a1, a1, a2, SP[a2, a3], n] - 
    3*S2[a1, a1, a1, a3, SP[a2, a2], n] - 
    3*S2[a1, a1, a1, SP[a2, a2], a3, n] + 
    3*S2[a1, a1, a1, SP[a2, a3], a2, n] + 
    2*S2[a3, n]*S2[a1, a1, a2, a1, a2, n] + S2[a1, a1, a2, a1, SP[a2, a3], 
     n] + S2[a1, a1, a2, SP[a1, a2], a3, n] - 
    2*S2[a1, a1, a3, a1, SP[a2, a2], n] - 
    2*S2[a1, a1, a3, SP[a1, a2], a2, n] - 
    2*S2[a1, a1, SP[a1, a2], a2, a3, n] - 
    2*S2[a1, a1, SP[a1, a2], a3, a2, n] + S2[a1, a1, SP[a1, a3], a2, a2, n] + 
    2*S2[a1, a1, SP[a2, a3], a1, a2, n] + 
    S2[a3, n]*S2[a1, a2, a1, a1, a2, n] - S2[a1, a3, a1, a1, SP[a2, a2], n] - 
    (S2[a1, n]*S2[a1, a3, a1, a2, a2, n])/2 - 
    S2[a1, a3, a1, a2, SP[a1, a2], n]/2 - 
    (3*S2[a1, a3, a1, SP[a1, a2], a2, n])/2 - 
    S2[a1, a3, SP[a1, a1], a2, a2, n]/2 - S2[a1, a3, SP[a1, a2], a1, a2, n] - 
    S2[a1, SP[a1, a1], a2, a2, a3, n] - S2[a1, SP[a1, a1], a2, a3, a2, n] - 
    S2[a1, SP[a1, a1], a3, a2, a2, n] - S2[a1, SP[a1, a2], a1, a2, a3, n] - 
    S2[a1, SP[a1, a2], a1, a3, a2, n] - S2[a1, SP[a1, a2], a3, a1, a2, n] + 
    (3*S2[a1, SP[a1, a3], a1, a2, a2, n])/2 + S2[a1, SP[a1, a3], a2, a1, a2, 
     n] + S2[a1, SP[a2, a3], a1, a1, a2, n] - 
    S2[a1, n]*S2[a3, a1, a1, a2, a2, n] - S2[a3, a1, a1, a2, SP[a1, a2], n] - 
    S2[a3, a1, a1, SP[a1, a2], a2, n] - (S2[a1, n]*S2[a3, a1, a2, a1, a2, n])/
     2 - S2[a3, a1, a2, a1, SP[a1, a2], n]/2 + 
    (S2[a1, n]*S2[a3, a1, a2, a2, a1, n])/2 + 
    S2[a3, a1, a2, a2, SP[a1, a1], n]/2 - S2[a3, a1, a2, SP[a1, a1], a2, n]/
     2 + S2[a3, a1, a2, SP[a1, a2], a1, n]/2 - S2[a3, a1, SP[a1, a1], a2, a2, 
     n] - S2[a3, a1, SP[a1, a2], a1, a2, n]/2 + 
    S2[a3, a1, SP[a1, a2], a2, a1, n]/2 - S2[a3, SP[a1, a1], a1, a2, a2, n] - 
    S2[a3, SP[a1, a1], a2, a1, a2, n]/2 + S2[a3, SP[a1, a1], a2, a2, a1, n]/
     2 - S2[SP[a1, a1], a1, a2, a2, a3, n] - S2[SP[a1, a1], a1, a2, a3, a2, 
     n] - S2[SP[a1, a1], a1, a3, a2, a2, n] - S2[SP[a1, a1], a2, a1, a2, a3, 
     n] - S2[SP[a1, a1], a2, a1, a3, a2, n] - S2[SP[a1, a1], a2, a3, a1, a2, 
     n] - (3*S2[SP[a1, a1], a3, a1, a2, a2, n])/2 - 
    S2[SP[a1, a1], a3, a2, a1, a2, n] + 2*S2[SP[a1, a3], a1, a1, a2, a2, n] + 
    (3*S2[SP[a1, a3], a1, a2, a1, a2, n])/2 + 
    S2[SP[a1, a3], a1, a2, a2, a1, n]/2 + S2[SP[a1, a3], a2, a1, a1, a2, n] - 
    S2[a3, a1, a2, a2, a1, a1, n] /; a1 != a2 != a3, 
 S2[a1_, a1_, a2_, a2_, a3_, a1_, n_] :> 
  S2[a1, a1, a2, n]*S2[a1, a3, a2, n] + S2[SP[a1, a1], SP[a1, a3], 
     SP[a2, a2], n] - S2[a1, a3, n]*S2[a1, a1, a2, a2, n] + 
    S2[a1, a1, SP[a1, a2], SP[a2, a3], n] - 
    2*S2[a1, a1, SP[a1, a3], SP[a2, a2], n] + S2[a1, SP[a1, a1], a2, 
     SP[a2, a3], n] - S2[a1, SP[a1, a1], a3, SP[a2, a2], n] - 
    S2[a1, SP[a1, a3], a1, SP[a2, a2], n] - S2[a1, SP[a1, a3], SP[a1, a2], 
     a2, n] + S2[SP[a1, a1], a1, a2, SP[a2, a3], n] - 
    S2[SP[a1, a1], a1, a3, SP[a2, a2], n] - S2[SP[a1, a1], a3, a1, 
     SP[a2, a2], n] - S2[SP[a1, a1], a3, SP[a1, a2], a2, n] - 
    S2[SP[a1, a1], SP[a1, a3], a2, a2, n] - 
    3*S2[a1, a1, a1, a2, SP[a2, a3], n] + 
    3*S2[a1, a1, a1, a3, SP[a2, a2], n] - S2[a1, a1, a2, a1, SP[a2, a3], n] + 
    S2[a1, n]*S2[a1, a1, a2, a2, a3, n] + S2[a1, a1, a2, a2, SP[a1, a3], n] + 
    2*S2[a1, a1, a3, a1, SP[a2, a2], n] - 
    S2[a1, n]*S2[a1, a1, a3, a2, a2, n] - S2[a1, a1, a3, a2, SP[a1, a2], n] + 
    S2[a1, a1, a3, SP[a1, a2], a2, n] + S2[a1, a1, SP[a1, a3], a2, a2, n] + 
    S2[a1, a3, a1, a1, SP[a2, a2], n] - (S2[a1, n]*S2[a1, a3, a1, a2, a2, n])/
     2 - S2[a1, a3, a1, a2, SP[a1, a2], n]/2 + 
    S2[a1, a3, a1, SP[a1, a2], a2, n]/2 - 
    (S2[a1, n]*S2[a1, a3, a2, a1, a2, n])/2 - 
    S2[a1, a3, a2, a1, SP[a1, a2], n]/2 + 
    (S2[a1, n]*S2[a1, a3, a2, a2, a1, n])/2 + 
    S2[a1, a3, a2, a2, SP[a1, a1], n]/2 - S2[a1, a3, a2, SP[a1, a1], a2, n]/
     2 + S2[a1, a3, a2, SP[a1, a2], a1, n]/2 - 
    S2[a1, a3, SP[a1, a1], a2, a2, n]/2 + S2[a1, a3, SP[a1, a2], a1, a2, n]/
     2 + S2[a1, a3, SP[a1, a2], a2, a1, n]/2 + 
    S2[a1, SP[a1, a3], a1, a2, a2, n]/2 + S2[a1, SP[a1, a3], a2, a1, a2, n]/
     2 + S2[a1, SP[a1, a3], a2, a2, a1, n]/2 - 
    S2[a1, n]*S2[a3, a2, a2, a1, a1, n] - S2[a3, a2, a2, a1, SP[a1, a1], n] - 
    S2[a3, a2, a2, SP[a1, a1], a1, n] - S2[a3, a2, SP[a1, a2], a1, a1, n] - 
    S2[a3, SP[a1, a2], a2, a1, a1, n] + S2[SP[a1, a1], a3, a1, a2, a2, n]/2 + 
    S2[SP[a1, a1], a3, a2, a1, a2, n]/2 + S2[SP[a1, a1], a3, a2, a2, a1, n]/
     2 - S2[SP[a1, a3], a2, a2, a1, a1, n] + S2[a3, a1, a2, a2, a1, a1, n] + 
    S2[a3, a2, a1, a2, a1, a1, n] + 3*S2[a3, a2, a2, a1, a1, a1, n] /; 
   a1 != a2 != a3, S2[a1_, a1_, a2_, a3_, a1_, a2_, n_] :> 
  -(S2[a1, a1, a2, n]*S2[a1, a2, a3, n]) - S2[a1, a1, a2, n]*
     S2[a1, a3, a2, n] - S2[SP[a1, a1], SP[a1, a2], SP[a2, a3], n] - 
    S2[SP[a1, a1], SP[a1, a3], SP[a2, a2], n] + 
    2*S2[a1, a1, SP[a1, a2], SP[a2, a3], n] + 
    2*S2[a1, a1, SP[a1, a3], SP[a2, a2], n] + S2[a1, SP[a1, a1], a2, 
     SP[a2, a3], n] + S2[a1, SP[a1, a1], a3, SP[a2, a2], n] + 
    S2[a1, SP[a1, a1], SP[a2, a2], a3, n] + S2[a1, SP[a1, a1], SP[a2, a3], 
     a2, n] + S2[a1, SP[a1, a2], a1, SP[a2, a3], n] + 
    S2[a1, SP[a1, a2], SP[a1, a3], a2, n] + S2[a1, SP[a1, a3], a1, 
     SP[a2, a2], n] + S2[a1, SP[a1, a3], SP[a1, a2], a2, n] + 
    S2[SP[a1, a1], a1, a2, SP[a2, a3], n] + S2[SP[a1, a1], a1, a3, 
     SP[a2, a2], n] + S2[SP[a1, a1], a1, SP[a2, a2], a3, n] + 
    S2[SP[a1, a1], a1, SP[a2, a3], a2, n] + S2[SP[a1, a1], a2, a1, 
     SP[a2, a3], n] + S2[SP[a1, a1], a2, SP[a1, a3], a2, n] + 
    S2[SP[a1, a1], a3, a1, SP[a2, a2], n] + S2[SP[a1, a1], a3, SP[a1, a2], 
     a2, n] + S2[SP[a1, a1], SP[a1, a2], a2, a3, n] + 
    S2[SP[a1, a1], SP[a1, a2], a3, a2, n] + 
    2*S2[SP[a1, a1], SP[a1, a3], a2, a2, n] + 
    6*S2[a3, n]*S2[a1, a1, a1, a2, a2, n] + 
    3*S2[a1, a1, a1, a2, SP[a2, a3], n] - 
    3*S2[a1, a1, a1, a3, SP[a2, a2], n] - 
    3*S2[a1, a1, a1, SP[a2, a2], a3, n] + 
    3*S2[a1, a1, a1, SP[a2, a3], a2, n] + 
    3*S2[a3, n]*S2[a1, a1, a2, a1, a2, n] + S2[a1, a1, a2, a1, SP[a2, a3], 
     n] + S2[a1, a1, a2, SP[a1, a3], a2, n] - 
    2*S2[a1, a1, a3, a1, SP[a2, a2], n] - 
    2*S2[a1, a1, a3, SP[a1, a2], a2, n] - 
    3*S2[a1, a1, SP[a1, a2], a2, a3, n] - 
    3*S2[a1, a1, SP[a1, a2], a3, a2, n] + 
    2*S2[a1, a1, SP[a1, a3], a2, a2, n] + 
    3*S2[a1, a1, SP[a2, a3], a1, a2, n] + 
    S2[a3, n]*S2[a1, a2, a1, a1, a2, n] - S2[a1, a3, a1, a1, SP[a2, a2], n] - 
    S2[a1, n]*S2[a1, a3, a1, a2, a2, n] - S2[a1, a3, a1, a2, SP[a1, a2], n] - 
    2*S2[a1, a3, a1, SP[a1, a2], a2, n] - 
    (S2[a1, n]*S2[a1, a3, a2, a1, a2, n])/2 - 
    S2[a1, a3, a2, a1, SP[a1, a2], n]/2 - S2[a1, a3, a2, SP[a1, a1], a2, n]/
     2 - S2[a1, a3, SP[a1, a1], a2, a2, n] - 
    (3*S2[a1, a3, SP[a1, a2], a1, a2, n])/2 - 
    2*S2[a1, SP[a1, a1], a2, a2, a3, n] - 
    2*S2[a1, SP[a1, a1], a2, a3, a2, n] - 
    2*S2[a1, SP[a1, a1], a3, a2, a2, n] - S2[a1, SP[a1, a2], a1, a2, a3, n] - 
    S2[a1, SP[a1, a2], a1, a3, a2, n] - S2[a1, SP[a1, a2], a3, a1, a2, n] + 
    3*S2[a1, SP[a1, a3], a1, a2, a2, n] + 
    (3*S2[a1, SP[a1, a3], a2, a1, a2, n])/2 + S2[a1, SP[a2, a3], a1, a1, a2, 
     n] - 2*S2[a1, n]*S2[a3, a1, a1, a2, a2, n] - 
    2*S2[a3, a1, a1, a2, SP[a1, a2], n] - 
    2*S2[a3, a1, a1, SP[a1, a2], a2, n] - 
    (S2[a1, n]*S2[a3, a1, a2, a1, a2, n])/2 - 
    S2[a3, a1, a2, a1, SP[a1, a2], n]/2 + 
    S2[a1, n]*S2[a3, a1, a2, a2, a1, n] + S2[a3, a1, a2, a2, SP[a1, a1], n] - 
    S2[a3, a1, a2, SP[a1, a1], a2, n]/2 + S2[a3, a1, a2, SP[a1, a2], a1, n] - 
    2*S2[a3, a1, SP[a1, a1], a2, a2, n] - S2[a3, a1, SP[a1, a2], a1, a2, n]/
     2 + S2[a3, a1, SP[a1, a2], a2, a1, n] + 
    S2[a1, n]*S2[a3, a2, a1, a1, a2, n] + S2[a3, a2, a1, a1, SP[a1, a2], n] + 
    (S2[a1, n]*S2[a3, a2, a1, a2, a1, n])/2 + 
    S2[a3, a2, a1, a2, SP[a1, a1], n]/2 + S2[a3, a2, a1, SP[a1, a1], a2, n] + 
    S2[a3, a2, a1, SP[a1, a2], a1, n]/2 + S2[a3, a2, SP[a1, a1], a1, a2, n] + 
    S2[a3, a2, SP[a1, a1], a2, a1, n]/2 - 
    2*S2[a3, SP[a1, a1], a1, a2, a2, n] - S2[a3, SP[a1, a1], a2, a1, a2, n]/
     2 + S2[a3, SP[a1, a1], a2, a2, a1, n] + S2[a3, SP[a1, a2], a1, a1, a2, 
     n] + S2[a3, SP[a1, a2], a1, a2, a1, n]/2 - 
    2*S2[SP[a1, a1], a1, a2, a2, a3, n] - 
    2*S2[SP[a1, a1], a1, a2, a3, a2, n] - 
    2*S2[SP[a1, a1], a1, a3, a2, a2, n] - S2[SP[a1, a1], a2, a1, a2, a3, n] - 
    S2[SP[a1, a1], a2, a1, a3, a2, n] - S2[SP[a1, a1], a2, a3, a1, a2, n] - 
    3*S2[SP[a1, a1], a3, a1, a2, a2, n] - 
    (3*S2[SP[a1, a1], a3, a2, a1, a2, n])/2 + 
    4*S2[SP[a1, a3], a1, a1, a2, a2, n] + 
    (5*S2[SP[a1, a3], a1, a2, a1, a2, n])/2 + S2[SP[a1, a3], a1, a2, a2, a1, 
     n] + 2*S2[SP[a1, a3], a2, a1, a1, a2, n] + 
    S2[SP[a1, a3], a2, a1, a2, a1, n]/2 - S2[a3, a1, a2, a1, a1, a2, n] - 
    S2[a3, a1, a2, a1, a2, a1, n] - 2*S2[a3, a1, a2, a2, a1, a1, n] - 
    3*S2[a3, a2, a1, a1, a1, a2, n] - 2*S2[a3, a2, a1, a1, a2, a1, n] - 
    S2[a3, a2, a1, a2, a1, a1, n] /; a1 != a2 != a3, 
 S2[a1_, a1_, a2_, a3_, a2_, a1_, n_] :> 
  S2[a1, a1, a2, n]*S2[a1, a2, a3, n] + S2[SP[a1, a1], SP[a1, a2], 
     SP[a2, a3], n] - 2*S2[a1, a1, SP[a1, a2], SP[a2, a3], n] - 
    S2[a1, SP[a1, a1], a2, SP[a2, a3], n] - S2[a1, SP[a1, a1], SP[a2, a2], 
     a3, n] - S2[a1, SP[a1, a2], a1, SP[a2, a3], n] - 
    S2[a1, SP[a1, a2], SP[a1, a3], a2, n] - S2[SP[a1, a1], a1, a2, 
     SP[a2, a3], n] - S2[SP[a1, a1], a1, SP[a2, a2], a3, n] - 
    S2[SP[a1, a1], a2, a1, SP[a2, a3], n] - S2[SP[a1, a1], a2, SP[a1, a3], 
     a2, n] - S2[SP[a1, a1], SP[a1, a2], a2, a3, n] - 
    S2[SP[a1, a1], SP[a1, a2], a3, a2, n] - 
    6*S2[a3, n]*S2[a1, a1, a1, a2, a2, n] - 
    3*S2[a1, a1, a1, a2, SP[a2, a3], n] + 
    3*S2[a1, a1, a1, SP[a2, a2], a3, n] - 
    6*S2[a1, a1, a1, SP[a2, a3], a2, n] - 
    3*S2[a3, n]*S2[a1, a1, a2, a1, a2, n] - S2[a1, a1, a2, a1, SP[a2, a3], 
     n] + S2[a1, n]*S2[a1, a1, a2, a3, a2, n] + S2[a1, a1, a2, a3, 
     SP[a1, a2], n] + 2*S2[a1, n]*S2[a1, a1, a3, a2, a2, n] + 
    2*S2[a1, a1, a3, a2, SP[a1, a2], n] + 
    2*S2[a1, a1, a3, SP[a1, a2], a2, n] + 
    3*S2[a1, a1, SP[a1, a2], a2, a3, n] + 
    3*S2[a1, a1, SP[a1, a2], a3, a2, n] - 
    4*S2[a1, a1, SP[a1, a3], a2, a2, n] - 
    3*S2[a1, a1, SP[a2, a3], a1, a2, n] - 
    S2[a3, n]*S2[a1, a2, a1, a1, a2, n] + 
    2*S2[a1, n]*S2[a1, a3, a1, a2, a2, n] + 
    2*S2[a1, a3, a1, a2, SP[a1, a2], n] + 
    2*S2[a1, a3, a1, SP[a1, a2], a2, n] + 
    (S2[a1, n]*S2[a1, a3, a2, a1, a2, n])/2 + 
    S2[a1, a3, a2, a1, SP[a1, a2], n]/2 - 
    S2[a1, n]*S2[a1, a3, a2, a2, a1, n] - S2[a1, a3, a2, a2, SP[a1, a1], n] + 
    S2[a1, a3, a2, SP[a1, a1], a2, n]/2 - S2[a1, a3, a2, SP[a1, a2], a1, n] + 
    2*S2[a1, a3, SP[a1, a1], a2, a2, n] + S2[a1, a3, SP[a1, a2], a1, a2, n]/
     2 - S2[a1, a3, SP[a1, a2], a2, a1, n] + 
    2*S2[a1, SP[a1, a1], a2, a2, a3, n] + 
    2*S2[a1, SP[a1, a1], a2, a3, a2, n] + 
    2*S2[a1, SP[a1, a1], a3, a2, a2, n] + S2[a1, SP[a1, a2], a1, a2, a3, n] + 
    S2[a1, SP[a1, a2], a1, a3, a2, n] + S2[a1, SP[a1, a2], a3, a1, a2, n] - 
    4*S2[a1, SP[a1, a3], a1, a2, a2, n] - 
    (5*S2[a1, SP[a1, a3], a2, a1, a2, n])/2 - S2[a1, SP[a1, a3], a2, a2, a1, 
     n] - S2[a1, SP[a2, a3], a1, a1, a2, n] + 
    2*S2[a1, n]*S2[a3, a1, a1, a2, a2, n] + 
    2*S2[a3, a1, a1, a2, SP[a1, a2], n] + 
    2*S2[a3, a1, a1, SP[a1, a2], a2, n] + 
    (S2[a1, n]*S2[a3, a1, a2, a1, a2, n])/2 + 
    S2[a3, a1, a2, a1, SP[a1, a2], n]/2 - 
    S2[a1, n]*S2[a3, a1, a2, a2, a1, n] - S2[a3, a1, a2, a2, SP[a1, a1], n] + 
    S2[a3, a1, a2, SP[a1, a1], a2, n]/2 - S2[a3, a1, a2, SP[a1, a2], a1, n] + 
    2*S2[a3, a1, SP[a1, a1], a2, a2, n] + S2[a3, a1, SP[a1, a2], a1, a2, n]/
     2 - S2[a3, a1, SP[a1, a2], a2, a1, n] + 
    (S2[a1, n]*S2[a3, a2, a1, a2, a1, n])/2 + 
    S2[a3, a2, a1, a2, SP[a1, a1], n]/2 + S2[a3, a2, a1, SP[a1, a2], a1, n]/
     2 + 2*S2[a1, n]*S2[a3, a2, a2, a1, a1, n] + 
    2*S2[a3, a2, a2, a1, SP[a1, a1], n] + 
    2*S2[a3, a2, a2, SP[a1, a1], a1, n] + S2[a3, a2, SP[a1, a1], a2, a1, n]/
     2 + 2*S2[a3, a2, SP[a1, a2], a1, a1, n] + 
    2*S2[a3, SP[a1, a1], a1, a2, a2, n] + S2[a3, SP[a1, a1], a2, a1, a2, n]/
     2 - S2[a3, SP[a1, a1], a2, a2, a1, n] + 
    S2[a3, SP[a1, a2], a1, a2, a1, n]/2 + 
    2*S2[a3, SP[a1, a2], a2, a1, a1, n] + 
    2*S2[SP[a1, a1], a1, a2, a2, a3, n] + 
    2*S2[SP[a1, a1], a1, a2, a3, a2, n] + 
    2*S2[SP[a1, a1], a1, a3, a2, a2, n] + S2[SP[a1, a1], a2, a1, a2, a3, n] + 
    S2[SP[a1, a1], a2, a1, a3, a2, n] + S2[SP[a1, a1], a2, a3, a1, a2, n] + 
    2*S2[SP[a1, a1], a3, a1, a2, a2, n] + S2[SP[a1, a1], a3, a2, a1, a2, n]/
     2 - S2[SP[a1, a1], a3, a2, a2, a1, n] - 
    4*S2[SP[a1, a3], a1, a1, a2, a2, n] - 
    (5*S2[SP[a1, a3], a1, a2, a1, a2, n])/2 - S2[SP[a1, a3], a1, a2, a2, a1, 
     n] - S2[SP[a1, a3], a2, a1, a1, a2, n] + 
    S2[SP[a1, a3], a2, a1, a2, a1, n]/2 + 
    2*S2[SP[a1, a3], a2, a2, a1, a1, n] - S2[a3, a2, a1, a1, a2, a1, n] - 
    3*S2[a3, a2, a1, a2, a1, a1, n] - 6*S2[a3, a2, a2, a1, a1, a1, n] /; 
   a1 != a2 != a3, S2[a1_, a1_, a3_, a1_, a2_, a2_, n_] :> 
  (S2[a1, n]*S2[a1, a3, a1, a2, a2, n])/2 + S2[a1, a3, a1, a2, SP[a1, a2], n]/
     2 + S2[a1, a3, a1, SP[a1, a2], a2, n]/2 + 
    S2[a1, a3, SP[a1, a1], a2, a2, n]/2 + S2[a1, SP[a1, a3], a1, a2, a2, n]/
     2 - S2[a1, n]*S2[a3, a1, a1, a2, a2, n] - S2[a3, a1, a1, a2, SP[a1, a2], 
     n] - S2[a3, a1, a1, SP[a1, a2], a2, n] - 
    (S2[a1, n]*S2[a3, a1, a2, a1, a2, n])/2 - 
    S2[a3, a1, a2, a1, SP[a1, a2], n]/2 - 
    (S2[a1, n]*S2[a3, a1, a2, a2, a1, n])/2 - 
    S2[a3, a1, a2, a2, SP[a1, a1], n]/2 - S2[a3, a1, a2, SP[a1, a1], a2, n]/
     2 - S2[a3, a1, a2, SP[a1, a2], a1, n]/2 - S2[a3, a1, SP[a1, a1], a2, a2, 
     n] - S2[a3, a1, SP[a1, a2], a1, a2, n]/2 - 
    S2[a3, a1, SP[a1, a2], a2, a1, n]/2 - S2[a3, SP[a1, a1], a1, a2, a2, n] - 
    S2[a3, SP[a1, a1], a2, a1, a2, n]/2 - S2[a3, SP[a1, a1], a2, a2, a1, n]/
     2 + S2[SP[a1, a1], a3, a1, a2, a2, n]/2 - S2[SP[a1, a3], a1, a1, a2, a2, 
     n] - S2[SP[a1, a3], a1, a2, a1, a2, n]/2 - 
    S2[SP[a1, a3], a1, a2, a2, a1, n]/2 + 3*S2[a3, a1, a1, a1, a2, a2, n] + 
    2*S2[a3, a1, a1, a2, a1, a2, n] + 2*S2[a3, a1, a1, a2, a2, a1, n] + 
    S2[a3, a1, a2, a1, a1, a2, n] + S2[a3, a1, a2, a1, a2, a1, n] + 
    S2[a3, a1, a2, a2, a1, a1, n] /; a1 != a2 != a3, 
 S2[a1_, a1_, a3_, a2_, a1_, a2_, n_] :> 
  (S2[a1, n]*S2[a1, a3, a2, a1, a2, n])/2 + S2[a1, a3, a2, a1, SP[a1, a2], n]/
     2 + S2[a1, a3, a2, SP[a1, a1], a2, n]/2 + 
    S2[a1, a3, SP[a1, a2], a1, a2, n]/2 + S2[a1, SP[a1, a3], a2, a1, a2, n]/
     2 - (S2[a1, n]*S2[a3, a1, a2, a1, a2, n])/2 - 
    S2[a3, a1, a2, a1, SP[a1, a2], n]/2 - S2[a3, a1, a2, SP[a1, a1], a2, n]/
     2 - S2[a3, a1, SP[a1, a2], a1, a2, n]/2 - 
    S2[a1, n]*S2[a3, a2, a1, a1, a2, n] - S2[a3, a2, a1, a1, SP[a1, a2], n] - 
    (S2[a1, n]*S2[a3, a2, a1, a2, a1, n])/2 - 
    S2[a3, a2, a1, a2, SP[a1, a1], n]/2 - S2[a3, a2, a1, SP[a1, a1], a2, n] - 
    S2[a3, a2, a1, SP[a1, a2], a1, n]/2 - S2[a3, a2, SP[a1, a1], a1, a2, n] - 
    S2[a3, a2, SP[a1, a1], a2, a1, n]/2 - S2[a3, SP[a1, a1], a2, a1, a2, n]/
     2 - S2[a3, SP[a1, a2], a1, a1, a2, n] - 
    S2[a3, SP[a1, a2], a1, a2, a1, n]/2 + S2[SP[a1, a1], a3, a2, a1, a2, n]/
     2 - S2[SP[a1, a3], a1, a2, a1, a2, n]/2 - S2[SP[a1, a3], a2, a1, a1, a2, 
     n] - S2[SP[a1, a3], a2, a1, a2, a1, n]/2 + S2[a3, a1, a1, a2, a1, a2, 
     n] + 2*S2[a3, a1, a2, a1, a1, a2, n] + S2[a3, a1, a2, a1, a2, a1, n] + 
    3*S2[a3, a2, a1, a1, a1, a2, n] + 2*S2[a3, a2, a1, a1, a2, a1, n] + 
    S2[a3, a2, a1, a2, a1, a1, n] /; a1 != a2 != a3, 
 S2[a1_, a1_, a3_, a2_, a2_, a1_, n_] :> 
  (S2[a1, n]*S2[a1, a3, a2, a2, a1, n])/2 + S2[a1, a3, a2, a2, SP[a1, a1], n]/
     2 + S2[a1, a3, a2, SP[a1, a2], a1, n]/2 + 
    S2[a1, a3, SP[a1, a2], a2, a1, n]/2 + S2[a1, SP[a1, a3], a2, a2, a1, n]/
     2 - (S2[a1, n]*S2[a3, a1, a2, a2, a1, n])/2 - 
    S2[a3, a1, a2, a2, SP[a1, a1], n]/2 - S2[a3, a1, a2, SP[a1, a2], a1, n]/
     2 - S2[a3, a1, SP[a1, a2], a2, a1, n]/2 - 
    (S2[a1, n]*S2[a3, a2, a1, a2, a1, n])/2 - 
    S2[a3, a2, a1, a2, SP[a1, a1], n]/2 - S2[a3, a2, a1, SP[a1, a2], a1, n]/
     2 - S2[a1, n]*S2[a3, a2, a2, a1, a1, n] - S2[a3, a2, a2, a1, SP[a1, a1], 
     n] - S2[a3, a2, a2, SP[a1, a1], a1, n] - 
    S2[a3, a2, SP[a1, a1], a2, a1, n]/2 - S2[a3, a2, SP[a1, a2], a1, a1, n] - 
    S2[a3, SP[a1, a1], a2, a2, a1, n]/2 - S2[a3, SP[a1, a2], a1, a2, a1, n]/
     2 - S2[a3, SP[a1, a2], a2, a1, a1, n] + 
    S2[SP[a1, a1], a3, a2, a2, a1, n]/2 - S2[SP[a1, a3], a1, a2, a2, a1, n]/
     2 - S2[SP[a1, a3], a2, a1, a2, a1, n]/2 - S2[SP[a1, a3], a2, a2, a1, a1, 
     n] + S2[a3, a1, a1, a2, a2, a1, n] + S2[a3, a1, a2, a1, a2, a1, n] + 
    2*S2[a3, a1, a2, a2, a1, a1, n] + S2[a3, a2, a1, a1, a2, a1, n] + 
    2*S2[a3, a2, a1, a2, a1, a1, n] + 3*S2[a3, a2, a2, a1, a1, a1, n] /; 
   a1 != a2 != a3, S2[a1_, a2_, a1_, a1_, a2_, a3_, n_] :> 
  -2*S2[a1, a1, a2, n]*S2[a1, a2, a3, n] - 
    2*S2[SP[a1, a1], SP[a1, a2], SP[a2, a3], n] + 
    3*S2[a2, a3, n]*S2[a1, a1, a1, a2, n] + S2[a1, a2, n]*
     S2[a1, a1, a2, a3, n] + S2[a1, SP[a1, a1], a2, SP[a2, a3], n] + 
    S2[a1, SP[a1, a1], SP[a2, a2], a3, n] - S2[a1, SP[a1, a2], a1, 
     SP[a2, a3], n] - S2[a1, SP[a1, a2], SP[a1, a3], a2, n] + 
    S2[SP[a1, a1], a1, a2, SP[a2, a3], n] + S2[SP[a1, a1], a1, SP[a2, a2], 
     a3, n] + 2*S2[SP[a1, a1], a2, a1, SP[a2, a3], n] + 
    2*S2[SP[a1, a1], a2, SP[a1, a3], a2, n] + S2[SP[a1, a1], SP[a1, a2], a2, 
     a3, n] + 2*S2[SP[a1, a1], SP[a1, a2], a3, a2, n] - 
    3*S2[SP[a1, a2], a1, a1, SP[a2, a3], n] - 
    3*S2[SP[a1, a2], a1, SP[a1, a3], a2, n] - 
    3*S2[SP[a1, a2], SP[a1, a3], a1, a2, n] + 
    6*S2[a3, n]*S2[a1, a1, a1, a2, a2, n] - 
    3*S2[a2, n]*S2[a1, a1, a1, a2, a3, n] + 
    3*S2[a1, a1, a1, a2, SP[a2, a3], n] - 
    3*S2[a2, n]*S2[a1, a1, a1, a3, a2, n] - 
    3*S2[a1, a1, a1, a3, SP[a2, a2], n] - 
    3*S2[a1, a1, a1, SP[a2, a2], a3, n] + 
    3*S2[a1, a1, a1, SP[a2, a3], a2, n] + 
    3*S2[a3, n]*S2[a1, a1, a2, a1, a2, n] + 
    3*S2[a1, a1, a2, a1, SP[a2, a3], n] + 
    3*S2[a1, a1, a2, SP[a1, a3], a2, n] - 
    3*S2[a2, n]*S2[a1, a1, a3, a1, a2, n] - 
    3*S2[a1, a1, a3, a1, SP[a2, a2], n] - 
    3*S2[a1, a1, a3, SP[a1, a2], a2, n] - 
    3*S2[a1, a1, SP[a1, a2], a2, a3, n] - 
    3*S2[a1, a1, SP[a1, a2], a3, a2, n] + 
    6*S2[a1, a1, SP[a1, a3], a2, a2, n] + 
    2*S2[a3, n]*S2[a1, a2, a1, a1, a2, n] + 
    3*S2[a1, a2, a1, a1, SP[a2, a3], n] + 
    3*S2[a1, a2, a1, SP[a1, a3], a2, n] + 
    3*S2[a1, a2, SP[a1, a3], a1, a2, n] - 
    3*S2[a2, n]*S2[a1, a3, a1, a1, a2, n] - 
    3*S2[a1, a3, a1, a1, SP[a2, a2], n] - 
    3*S2[a1, a3, a1, SP[a1, a2], a2, n] - 
    3*S2[a1, a3, SP[a1, a2], a1, a2, n] - 
    2*S2[a1, SP[a1, a1], a2, a2, a3, n] - S2[a1, SP[a1, a1], a2, a3, a2, n] - 
    S2[a1, SP[a1, a2], a1, a2, a3, n] - 2*S2[a1, SP[a1, a2], a1, a3, a2, n] - 
    2*S2[a1, SP[a1, a2], a3, a1, a2, n] + 
    6*S2[a1, SP[a1, a3], a1, a2, a2, n] + 
    3*S2[a1, SP[a1, a3], a2, a1, a2, n] - S2[a1, SP[a2, a3], a1, a1, a2, n] + 
    3*S2[a2, a1, a1, a1, SP[a2, a3], n] + 
    3*S2[a2, a1, a1, SP[a1, a3], a2, n] + 
    3*S2[a2, a1, SP[a1, a3], a1, a2, n] + 
    3*S2[a2, SP[a1, a3], a1, a1, a2, n] - 
    3*S2[a2, n]*S2[a3, a1, a1, a1, a2, n] - 
    3*S2[a3, a1, a1, a1, SP[a2, a2], n] - 
    3*S2[a3, a1, a1, SP[a1, a2], a2, n] - 
    3*S2[a3, a1, SP[a1, a2], a1, a2, n] + 
    S2[a1, n]*S2[a3, a2, a1, a1, a2, n] + S2[a3, a2, a1, a1, SP[a1, a2], n] + 
    S2[a3, a2, a1, SP[a1, a1], a2, n] + S2[a3, a2, SP[a1, a1], a1, a2, n] - 
    2*S2[a3, SP[a1, a2], a1, a1, a2, n] - 
    2*S2[SP[a1, a1], a1, a2, a2, a3, n] - S2[SP[a1, a1], a1, a2, a3, a2, n] - 
    S2[SP[a1, a1], a2, a1, a2, a3, n] - 2*S2[SP[a1, a1], a2, a1, a3, a2, n] - 
    2*S2[SP[a1, a1], a2, a3, a1, a2, n] + 
    6*S2[SP[a1, a3], a1, a1, a2, a2, n] + 
    3*S2[SP[a1, a3], a1, a2, a1, a2, n] + 
    3*S2[SP[a1, a3], a2, a1, a1, a2, n] - 
    3*S2[SP[a2, a3], a1, a1, a1, a2, n] - S2[a3, a2, a1, a1, a2, a1, n] /; 
   a1 != a2 != a3, S2[a1_, a2_, a1_, a1_, a3_, a2_, n_] :> 
  -2*S2[a1, a1, a2, n]*S2[a1, a3, a2, n] - 
    2*S2[SP[a1, a1], SP[a1, a3], SP[a2, a2], n] - 
    3*S2[a2, a3, n]*S2[a1, a1, a1, a2, n] + S2[a1, a2, n]*
     S2[a1, a1, a3, a2, n] + 3*S2[a1, a1, SP[a1, a2], SP[a2, a3], n] + 
    3*S2[a1, a1, SP[a1, a3], SP[a2, a2], n] + S2[a1, SP[a1, a1], a3, 
     SP[a2, a2], n] + S2[a1, SP[a1, a1], SP[a2, a3], a2, n] + 
    3*S2[a1, SP[a1, a2], a1, SP[a2, a3], n] + 
    3*S2[a1, SP[a1, a2], SP[a1, a3], a2, n] + 
    2*S2[a1, SP[a1, a3], a1, SP[a2, a2], n] + 
    2*S2[a1, SP[a1, a3], SP[a1, a2], a2, n] + S2[SP[a1, a1], a1, a3, 
     SP[a2, a2], n] + S2[SP[a1, a1], a1, SP[a2, a3], a2, n] + 
    2*S2[SP[a1, a1], a3, a1, SP[a2, a2], n] + 
    2*S2[SP[a1, a1], a3, SP[a1, a2], a2, n] - S2[SP[a1, a1], SP[a1, a2], a3, 
     a2, n] + 4*S2[SP[a1, a1], SP[a1, a3], a2, a2, n] + 
    3*S2[SP[a1, a2], a1, a1, SP[a2, a3], n] + 
    3*S2[SP[a1, a2], a1, SP[a1, a3], a2, n] + 
    3*S2[SP[a1, a2], SP[a1, a3], a1, a2, n] + 
    3*S2[a2, n]*S2[a1, a1, a1, a2, a3, n] + 
    3*S2[a2, n]*S2[a1, a1, a1, a3, a2, n] - 
    3*S2[a1, a1, a2, a1, SP[a2, a3], n] - 
    3*S2[a1, a1, a2, SP[a1, a3], a2, n] + 
    3*S2[a2, n]*S2[a1, a1, a3, a1, a2, n] - 
    6*S2[a1, a1, SP[a1, a3], a2, a2, n] + 
    3*S2[a1, a1, SP[a2, a3], a1, a2, n] - 
    3*S2[a1, a2, a1, a1, SP[a2, a3], n] - 
    3*S2[a1, a2, a1, SP[a1, a3], a2, n] - 
    3*S2[a1, a2, SP[a1, a3], a1, a2, n] + 
    3*S2[a2, n]*S2[a1, a3, a1, a1, a2, n] + S2[a1, a3, a1, a1, SP[a2, a2], 
     n] + S2[a1, a3, a1, SP[a1, a2], a2, n] + S2[a1, a3, SP[a1, a2], a1, a2, 
     n] - S2[a1, SP[a1, a1], a2, a3, a2, n] - 
    2*S2[a1, SP[a1, a1], a3, a2, a2, n] + S2[a1, SP[a1, a2], a1, a3, a2, n] - 
    4*S2[a1, SP[a1, a3], a1, a2, a2, n] - 
    2*S2[a1, SP[a1, a3], a2, a1, a2, n] + 
    3*S2[a1, SP[a2, a3], a1, a1, a2, n] - 
    3*S2[a2, a1, a1, a1, SP[a2, a3], n] - 
    3*S2[a2, a1, a1, SP[a1, a3], a2, n] - 
    3*S2[a2, a1, SP[a1, a3], a1, a2, n] - 
    3*S2[a2, SP[a1, a3], a1, a1, a2, n] + 
    3*S2[a2, n]*S2[a3, a1, a1, a1, a2, n] + 
    3*S2[a3, a1, a1, a1, SP[a2, a2], n] - 
    2*S2[a1, n]*S2[a3, a1, a1, a2, a2, n] - 
    2*S2[a3, a1, a1, a2, SP[a1, a2], n] + S2[a3, a1, a1, SP[a1, a2], a2, n] - 
    S2[a1, n]*S2[a3, a1, a2, a1, a2, n] - S2[a3, a1, a2, a1, SP[a1, a2], n] - 
    S2[a3, a1, a2, SP[a1, a1], a2, n] - 2*S2[a3, a1, SP[a1, a1], a2, a2, n] + 
    2*S2[a3, a1, SP[a1, a2], a1, a2, n] - 
    S2[a1, n]*S2[a3, a2, a1, a1, a2, n] - S2[a3, a2, a1, a1, SP[a1, a2], n] - 
    S2[a3, a2, a1, SP[a1, a1], a2, n] - S2[a3, a2, SP[a1, a1], a1, a2, n] - 
    2*S2[a3, SP[a1, a1], a1, a2, a2, n] - S2[a3, SP[a1, a1], a2, a1, a2, n] + 
    2*S2[a3, SP[a1, a2], a1, a1, a2, n] - S2[SP[a1, a1], a1, a2, a3, a2, n] - 
    2*S2[SP[a1, a1], a1, a3, a2, a2, n] + S2[SP[a1, a1], a2, a1, a3, a2, n] - 
    4*S2[SP[a1, a1], a3, a1, a2, a2, n] - 
    2*S2[SP[a1, a1], a3, a2, a1, a2, n] - 
    2*S2[SP[a1, a3], a1, a1, a2, a2, n] - S2[SP[a1, a3], a1, a2, a1, a2, n] - 
    S2[SP[a1, a3], a2, a1, a1, a2, n] + 3*S2[SP[a2, a3], a1, a1, a1, a2, n] + 
    S2[a3, a1, a1, a2, a1, a2, n] + 2*S2[a3, a1, a1, a2, a2, a1, n] + 
    S2[a3, a1, a2, a1, a2, a1, n] + S2[a3, a2, a1, a1, a2, a1, n] /; 
   a1 != a2 != a3, S2[a1_, a2_, a1_, a2_, a1_, a3_, n_] :> 
  2*S2[a1, a1, a2, n]*S2[a1, a2, a3, n] + 2*S2[a1, a1, a2, n]*
     S2[a1, a3, a2, n] + 2*S2[SP[a1, a1], SP[a1, a2], SP[a2, a3], n] + 
    2*S2[SP[a1, a1], SP[a1, a3], SP[a2, a2], n] - 
    2*S2[a1, a3, n]*S2[a1, a1, a2, a2, n] - S2[a1, a2, n]*
     S2[a1, a1, a2, a3, n] - S2[a1, a2, n]*S2[a1, a1, a3, a2, n] - 
    S2[a1, a1, SP[a1, a2], SP[a2, a3], n] - 
    3*S2[a1, a1, SP[a1, a3], SP[a2, a2], n] + 
    (S2[a1, a2, n]*S2[a1, a2, a1, a3, n])/2 - 
    S2[a1, a2, SP[a1, a1], SP[a2, a3], n]/2 - 
    (S2[a1, a2, n]*S2[a1, a3, a1, a2, n])/2 + 
    S2[a1, a3, SP[a1, a1], SP[a2, a2], n]/2 + S2[a1, SP[a1, a1], a2, 
     SP[a2, a3], n] - S2[a1, SP[a1, a1], a3, SP[a2, a2], n] - 
    S2[a1, SP[a1, a1], SP[a2, a2], a3, n] + S2[a1, SP[a1, a1], SP[a2, a3], 
     a2, n] - (5*S2[a1, SP[a1, a2], a1, SP[a2, a3], n])/2 - 
    S2[a1, SP[a1, a2], SP[a1, a2], a3, n]/2 - 
    2*S2[a1, SP[a1, a2], SP[a1, a3], a2, n] - 
    (3*S2[a1, SP[a1, a3], a1, SP[a2, a2], n])/2 - 
    (3*S2[a1, SP[a1, a3], SP[a1, a2], a2, n])/2 + S2[SP[a1, a1], a1, a2, 
     SP[a2, a3], n] - S2[SP[a1, a1], a1, a3, SP[a2, a2], n] - 
    S2[SP[a1, a1], a1, SP[a2, a2], a3, n] + S2[SP[a1, a1], a1, SP[a2, a3], 
     a2, n] - (5*S2[SP[a1, a1], a2, a1, SP[a2, a3], n])/2 - 
    S2[SP[a1, a1], a2, SP[a1, a2], a3, n]/2 - 
    2*S2[SP[a1, a1], a2, SP[a1, a3], a2, n] - 
    (3*S2[SP[a1, a1], a3, a1, SP[a2, a2], n])/2 - 
    (3*S2[SP[a1, a1], a3, SP[a1, a2], a2, n])/2 - S2[SP[a1, a1], SP[a1, a2], 
     a2, a3, n] - S2[SP[a1, a1], SP[a1, a2], a3, a2, n] - 
    2*S2[SP[a1, a1], SP[a1, a3], a2, a2, n] - 
    S2[SP[a1, a1], SP[a2, a2], a1, a3, n]/2 + 
    S2[SP[a1, a1], SP[a2, a3], a1, a2, n]/2 - 
    3*S2[a1, a1, a1, a2, SP[a2, a3], n] + 
    3*S2[a1, a1, a1, a3, SP[a2, a2], n] + 
    3*S2[a1, a1, a1, SP[a2, a2], a3, n] - 
    3*S2[a1, a1, a1, SP[a2, a3], a2, n] - 
    2*S2[a3, n]*S2[a1, a1, a2, a1, a2, n] - S2[a1, a1, a2, SP[a1, a2], a3, 
     n] + S2[a1, a1, a2, SP[a1, a3], a2, n] + 
    2*S2[a1, a1, a3, a1, SP[a2, a2], n] + 
    2*S2[a1, a1, a3, SP[a1, a2], a2, n] + S2[a1, a1, SP[a1, a2], a2, a3, n] + 
    S2[a1, a1, SP[a1, a2], a3, a2, n] + 2*S2[a1, a1, SP[a1, a3], a2, a2, n] + 
    S2[a1, a1, SP[a2, a2], a1, a3, n] - 3*S2[a1, a1, SP[a2, a3], a1, a2, n] - 
    2*S2[a3, n]*S2[a1, a2, a1, a1, a2, n] + S2[a1, a2, a1, a1, SP[a2, a3], 
     n] + S2[a1, a2, a1, SP[a1, a2], a3, n]/2 + 
    S2[a1, a2, a1, SP[a1, a3], a2, n]/2 + S2[a1, a2, SP[a1, a1], a2, a3, n]/
     2 + S2[a1, a2, SP[a1, a1], a3, a2, n]/2 + S2[a1, a3, a1, a1, SP[a2, a2], 
     n] + S2[a1, a3, a1, SP[a1, a2], a2, n] - S2[a1, a3, SP[a1, a1], a2, a2, 
     n] + 2*S2[a1, a3, SP[a1, a2], a1, a2, n] + 
    (3*S2[a1, SP[a1, a2], a1, a2, a3, n])/2 + 
    (3*S2[a1, SP[a1, a2], a1, a3, a2, n])/2 + S2[a1, SP[a1, a2], a2, a1, a3, 
     n] + (3*S2[a1, SP[a1, a2], a3, a1, a2, n])/2 + 
    S2[a1, SP[a1, a3], a1, a2, a2, n] - S2[a1, SP[a1, a3], a2, a1, a2, n]/2 - 
    2*S2[a1, SP[a2, a3], a1, a1, a2, n] + 
    S2[a1, n]*S2[a3, a1, a2, a1, a2, n] + S2[a3, a1, a2, a1, SP[a1, a2], n] + 
    S2[a3, a1, a2, SP[a1, a1], a2, n] + S2[a3, a1, SP[a1, a2], a1, a2, n] + 
    S2[a3, SP[a1, a1], a2, a1, a2, n] + (3*S2[SP[a1, a1], a2, a1, a2, a3, n])/
     2 + (3*S2[SP[a1, a1], a2, a1, a3, a2, n])/2 + 
    S2[SP[a1, a1], a2, a2, a1, a3, n] + (3*S2[SP[a1, a1], a2, a3, a1, a2, n])/
     2 + S2[SP[a1, a1], a3, a1, a2, a2, n] + 
    (3*S2[SP[a1, a1], a3, a2, a1, a2, n])/2 - S2[SP[a1, a3], a1, a2, a1, a2, 
     n] - 2*S2[SP[a1, a3], a2, a1, a1, a2, n] - S2[a3, a1, a2, a1, a2, a1, 
     n] /; a1 != a2 != a3, S2[a1_, a2_, a1_, a2_, a3_, a1_, n_] :> 
  -2*S2[a1, a1, a2, n]*S2[a1, a3, a2, n] - 
    2*S2[SP[a1, a1], SP[a1, a3], SP[a2, a2], n] + 
    2*S2[a1, a3, n]*S2[a1, a1, a2, a2, n] - S2[a1, a2, n]*
     S2[a1, a1, a2, a3, n] + S2[a1, a2, n]*S2[a1, a1, a3, a2, n] - 
    S2[a1, a1, SP[a1, a2], SP[a2, a3], n] + 
    3*S2[a1, a1, SP[a1, a3], SP[a2, a2], n] - 
    (S2[a1, a2, n]*S2[a1, a2, a1, a3, n])/2 + 
    S2[a1, a2, SP[a1, a1], SP[a2, a3], n]/2 + 
    (S2[a1, a2, n]*S2[a1, a3, a1, a2, n])/2 - 
    S2[a1, a3, SP[a1, a1], SP[a2, a2], n]/2 - S2[a1, SP[a1, a1], a2, 
     SP[a2, a3], n] + S2[a1, SP[a1, a1], a3, SP[a2, a2], n] + 
    S2[a1, SP[a1, a1], SP[a2, a2], a3, n] - S2[a1, SP[a1, a1], SP[a2, a3], 
     a2, n] + S2[a1, SP[a1, a2], a1, SP[a2, a3], n]/2 + 
    S2[a1, SP[a1, a2], SP[a1, a2], a3, n]/2 + 
    (3*S2[a1, SP[a1, a3], a1, SP[a2, a2], n])/2 + 
    (3*S2[a1, SP[a1, a3], SP[a1, a2], a2, n])/2 - S2[SP[a1, a1], a1, a2, 
     SP[a2, a3], n] + S2[SP[a1, a1], a1, a3, SP[a2, a2], n] + 
    S2[SP[a1, a1], a1, SP[a2, a2], a3, n] - S2[SP[a1, a1], a1, SP[a2, a3], 
     a2, n] + S2[SP[a1, a1], a2, a1, SP[a2, a3], n]/2 + 
    S2[SP[a1, a1], a2, SP[a1, a2], a3, n]/2 + 
    (3*S2[SP[a1, a1], a3, a1, SP[a2, a2], n])/2 + 
    (3*S2[SP[a1, a1], a3, SP[a1, a2], a2, n])/2 + S2[SP[a1, a1], SP[a1, a2], 
     a2, a3, n] - S2[SP[a1, a1], SP[a1, a2], a3, a2, n] + 
    2*S2[SP[a1, a1], SP[a1, a3], a2, a2, n] + 
    S2[SP[a1, a1], SP[a2, a2], a1, a3, n]/2 - 
    S2[SP[a1, a1], SP[a2, a3], a1, a2, n]/2 + 
    3*S2[a1, a1, a1, a2, SP[a2, a3], n] - 
    3*S2[a1, a1, a1, a3, SP[a2, a2], n] - 
    3*S2[a1, a1, a1, SP[a2, a2], a3, n] + 
    3*S2[a1, a1, a1, SP[a2, a3], a2, n] + S2[a1, a1, a2, SP[a1, a2], a3, n] - 
    S2[a1, a1, a2, SP[a1, a3], a2, n] - 2*S2[a1, a1, a3, a1, SP[a2, a2], n] - 
    2*S2[a1, a1, a3, SP[a1, a2], a2, n] - S2[a1, a1, SP[a1, a2], a2, a3, n] + 
    S2[a1, a1, SP[a1, a2], a3, a2, n] - 2*S2[a1, a1, SP[a1, a3], a2, a2, n] - 
    S2[a1, a1, SP[a2, a2], a1, a3, n] + S2[a1, a1, SP[a2, a3], a1, a2, n] - 
    S2[a1, a2, a1, a1, SP[a2, a3], n] + S2[a1, n]*S2[a1, a2, a1, a2, a3, n] + 
    S2[a1, a2, a1, a2, SP[a1, a3], n] + S2[a1, a2, a1, SP[a1, a2], a3, n]/2 - 
    S2[a1, a2, a1, SP[a1, a3], a2, n]/2 + S2[a1, a2, SP[a1, a1], a2, a3, n]/
     2 - S2[a1, a2, SP[a1, a1], a3, a2, n]/2 - S2[a1, a3, a1, a1, SP[a2, a2], 
     n] - S2[a1, a3, a1, SP[a1, a2], a2, n] + 
    S2[a1, n]*S2[a1, a3, a2, a1, a2, n] + S2[a1, a3, a2, a1, SP[a1, a2], n] + 
    S2[a1, a3, a2, SP[a1, a1], a2, n] + S2[a1, a3, SP[a1, a1], a2, a2, n] - 
    S2[a1, a3, SP[a1, a2], a1, a2, n] - S2[a1, SP[a1, a2], a1, a2, a3, n]/2 + 
    S2[a1, SP[a1, a2], a1, a3, a2, n]/2 - S2[a1, SP[a1, a2], a2, a1, a3, n] + 
    S2[a1, SP[a1, a2], a3, a1, a2, n]/2 - S2[a1, SP[a1, a3], a1, a2, a2, n] - 
    S2[a1, SP[a1, a3], a2, a1, a2, n]/2 - 
    S2[a1, n]*S2[a3, a2, a1, a2, a1, n] - S2[a3, a2, a1, a2, SP[a1, a1], n] - 
    S2[a3, a2, a1, SP[a1, a2], a1, n] - S2[a3, a2, SP[a1, a1], a2, a1, n] - 
    S2[a3, SP[a1, a2], a1, a2, a1, n] - S2[SP[a1, a1], a2, a1, a2, a3, n]/2 + 
    S2[SP[a1, a1], a2, a1, a3, a2, n]/2 - S2[SP[a1, a1], a2, a2, a1, a3, n] + 
    S2[SP[a1, a1], a2, a3, a1, a2, n]/2 - S2[SP[a1, a1], a3, a1, a2, a2, n] - 
    S2[SP[a1, a1], a3, a2, a1, a2, n]/2 - S2[SP[a1, a3], a2, a1, a2, a1, n] + 
    S2[a3, a1, a2, a1, a2, a1, n] + 2*S2[a3, a2, a1, a1, a2, a1, n] + 
    2*S2[a3, a2, a1, a2, a1, a1, n] /; a1 != a2 != a3, 
 S2[a1_, a2_, a1_, a3_, a1_, a2_, n_] :> 
  2*S2[a1, a1, a2, n]*S2[a1, a2, a3, n] + 2*S2[a1, a1, a2, n]*
     S2[a1, a3, a2, n] + 2*S2[SP[a1, a1], SP[a1, a2], SP[a2, a3], n] + 
    2*S2[SP[a1, a1], SP[a1, a3], SP[a2, a2], n] - 
    4*S2[a1, a1, SP[a1, a2], SP[a2, a3], n] - 
    4*S2[a1, a1, SP[a1, a3], SP[a2, a2], n] + 
    S2[a1, a2, n]*S2[a1, a3, a1, a2, n] - S2[a1, a3, SP[a1, a1], SP[a2, a2], 
     n] - 2*S2[a1, SP[a1, a1], a2, SP[a2, a3], n] - 
    2*S2[a1, SP[a1, a1], a3, SP[a2, a2], n] - 
    2*S2[a1, SP[a1, a1], SP[a2, a2], a3, n] - 
    2*S2[a1, SP[a1, a1], SP[a2, a3], a2, n] - 
    2*S2[a1, SP[a1, a2], a1, SP[a2, a3], n] - 
    2*S2[a1, SP[a1, a2], SP[a1, a3], a2, n] - 
    3*S2[a1, SP[a1, a3], a1, SP[a2, a2], n] - 
    3*S2[a1, SP[a1, a3], SP[a1, a2], a2, n] - 
    2*S2[SP[a1, a1], a1, a2, SP[a2, a3], n] - 
    2*S2[SP[a1, a1], a1, a3, SP[a2, a2], n] - 
    2*S2[SP[a1, a1], a1, SP[a2, a2], a3, n] - 
    2*S2[SP[a1, a1], a1, SP[a2, a3], a2, n] - 
    2*S2[SP[a1, a1], a2, a1, SP[a2, a3], n] - 
    2*S2[SP[a1, a1], a2, SP[a1, a3], a2, n] - 
    3*S2[SP[a1, a1], a3, a1, SP[a2, a2], n] - 
    3*S2[SP[a1, a1], a3, SP[a1, a2], a2, n] - 
    2*S2[SP[a1, a1], SP[a1, a2], a2, a3, n] - 
    2*S2[SP[a1, a1], SP[a1, a2], a3, a2, n] - 
    4*S2[SP[a1, a1], SP[a1, a3], a2, a2, n] - S2[SP[a1, a1], SP[a2, a3], a1, 
     a2, n] - 12*S2[a3, n]*S2[a1, a1, a1, a2, a2, n] - 
    6*S2[a1, a1, a1, a2, SP[a2, a3], n] + 
    6*S2[a1, a1, a1, a3, SP[a2, a2], n] + 
    6*S2[a1, a1, a1, SP[a2, a2], a3, n] - 
    6*S2[a1, a1, a1, SP[a2, a3], a2, n] - 
    6*S2[a3, n]*S2[a1, a1, a2, a1, a2, n] - 
    2*S2[a1, a1, a2, a1, SP[a2, a3], n] - 
    2*S2[a1, a1, a2, SP[a1, a3], a2, n] + 
    6*S2[a1, a1, a3, a1, SP[a2, a2], n] + 
    6*S2[a1, a1, a3, SP[a1, a2], a2, n] + 
    6*S2[a1, a1, SP[a1, a2], a2, a3, n] + 
    6*S2[a1, a1, SP[a1, a2], a3, a2, n] - 
    4*S2[a1, a1, SP[a1, a3], a2, a2, n] - 
    4*S2[a1, a1, SP[a2, a3], a1, a2, n] - 
    2*S2[a3, n]*S2[a1, a2, a1, a1, a2, n] + 
    4*S2[a1, a3, a1, a1, SP[a2, a2], n] + 
    4*S2[a1, a3, a1, SP[a1, a2], a2, n] + 
    2*S2[a1, a3, SP[a1, a1], a2, a2, n] + 
    2*S2[a1, a3, SP[a1, a2], a1, a2, n] + 
    4*S2[a1, SP[a1, a1], a2, a2, a3, n] + 
    4*S2[a1, SP[a1, a1], a2, a3, a2, n] + 
    4*S2[a1, SP[a1, a1], a3, a2, a2, n] + 
    2*S2[a1, SP[a1, a2], a1, a2, a3, n] + 
    2*S2[a1, SP[a1, a2], a1, a3, a2, n] + 
    3*S2[a1, SP[a1, a2], a3, a1, a2, n] - 
    6*S2[a1, SP[a1, a3], a1, a2, a2, n] - 
    3*S2[a1, SP[a1, a3], a2, a1, a2, n] - 
    2*S2[a1, SP[a2, a3], a1, a1, a2, n] + 
    4*S2[a1, n]*S2[a3, a1, a1, a2, a2, n] + 
    4*S2[a3, a1, a1, a2, SP[a1, a2], n] + 
    4*S2[a3, a1, a1, SP[a1, a2], a2, n] + 
    2*S2[a1, n]*S2[a3, a1, a2, a1, a2, n] + 
    2*S2[a3, a1, a2, a1, SP[a1, a2], n] + 
    2*S2[a3, a1, a2, SP[a1, a1], a2, n] + 
    4*S2[a3, a1, SP[a1, a1], a2, a2, n] + 
    2*S2[a3, a1, SP[a1, a2], a1, a2, n] + 
    4*S2[a3, SP[a1, a1], a1, a2, a2, n] + 
    2*S2[a3, SP[a1, a1], a2, a1, a2, n] + 
    4*S2[SP[a1, a1], a1, a2, a2, a3, n] + 
    4*S2[SP[a1, a1], a1, a2, a3, a2, n] + 
    4*S2[SP[a1, a1], a1, a3, a2, a2, n] + 
    2*S2[SP[a1, a1], a2, a1, a2, a3, n] + 
    2*S2[SP[a1, a1], a2, a1, a3, a2, n] + 
    3*S2[SP[a1, a1], a2, a3, a1, a2, n] + 
    6*S2[SP[a1, a1], a3, a1, a2, a2, n] + 
    3*S2[SP[a1, a1], a3, a2, a1, a2, n] - 
    8*S2[SP[a1, a3], a1, a1, a2, a2, n] - 
    4*S2[SP[a1, a3], a1, a2, a1, a2, n] - 
    2*S2[SP[a1, a3], a2, a1, a1, a2, n] - 2*S2[a3, a1, a1, a2, a1, a2, n] - 
    4*S2[a3, a1, a1, a2, a2, a1, n] - 2*S2[a3, a1, a2, a1, a1, a2, n] - 
    2*S2[a3, a1, a2, a1, a2, a1, n] /; a1 != a2 != a3, 
 S2[a1_, a2_, a1_, a3_, a2_, a1_, n_] :> 
  -2*S2[a1, a1, a2, n]*S2[a1, a2, a3, n] - 
    2*S2[SP[a1, a1], SP[a1, a2], SP[a2, a3], n] - 
    2*S2[a1, a2, n]*S2[a1, a1, a3, a2, n] + 
    4*S2[a1, a1, SP[a1, a2], SP[a2, a3], n] + 
    2*S2[a1, a1, SP[a1, a3], SP[a2, a2], n] - 
    S2[a1, a2, n]*S2[a1, a3, a1, a2, n] + S2[a1, a3, SP[a1, a1], SP[a2, a2], 
     n] + 2*S2[a1, SP[a1, a1], a2, SP[a2, a3], n] + 
    2*S2[a1, SP[a1, a1], a3, SP[a2, a2], n] + 
    2*S2[a1, SP[a1, a1], SP[a2, a2], a3, n] + 
    2*S2[a1, SP[a1, a1], SP[a2, a3], a2, n] + 
    2*S2[a1, SP[a1, a2], a1, SP[a2, a3], n] + 
    2*S2[a1, SP[a1, a2], SP[a1, a3], a2, n] + S2[a1, SP[a1, a3], a1, 
     SP[a2, a2], n] + S2[a1, SP[a1, a3], SP[a1, a2], a2, n] + 
    2*S2[SP[a1, a1], a1, a2, SP[a2, a3], n] + 
    2*S2[SP[a1, a1], a1, a3, SP[a2, a2], n] + 
    2*S2[SP[a1, a1], a1, SP[a2, a2], a3, n] + 
    2*S2[SP[a1, a1], a1, SP[a2, a3], a2, n] + 
    2*S2[SP[a1, a1], a2, a1, SP[a2, a3], n] + 
    2*S2[SP[a1, a1], a2, SP[a1, a3], a2, n] + S2[SP[a1, a1], a3, a1, 
     SP[a2, a2], n] + S2[SP[a1, a1], a3, SP[a1, a2], a2, n] + 
    2*S2[SP[a1, a1], SP[a1, a2], a2, a3, n] + 
    4*S2[SP[a1, a1], SP[a1, a2], a3, a2, n] + S2[SP[a1, a1], SP[a2, a3], a1, 
     a2, n] + 12*S2[a3, n]*S2[a1, a1, a1, a2, a2, n] + 
    6*S2[a1, a1, a1, a2, SP[a2, a3], n] - 
    6*S2[a1, a1, a1, a3, SP[a2, a2], n] - 
    6*S2[a1, a1, a1, SP[a2, a2], a3, n] + 
    6*S2[a1, a1, a1, SP[a2, a3], a2, n] + 
    6*S2[a3, n]*S2[a1, a1, a2, a1, a2, n] + 
    2*S2[a1, a1, a2, a1, SP[a2, a3], n] + 
    2*S2[a1, a1, a2, SP[a1, a3], a2, n] - 
    4*S2[a1, a1, a3, a1, SP[a2, a2], n] - 
    4*S2[a1, a1, a3, SP[a1, a2], a2, n] - 
    6*S2[a1, a1, SP[a1, a2], a2, a3, n] - 
    8*S2[a1, a1, SP[a1, a2], a3, a2, n] + 
    8*S2[a1, a1, SP[a1, a3], a2, a2, n] + 
    4*S2[a1, a1, SP[a2, a3], a1, a2, n] + 
    2*S2[a3, n]*S2[a1, a2, a1, a1, a2, n] + 
    S2[a1, n]*S2[a1, a2, a1, a3, a2, n] + S2[a1, a2, a1, a3, SP[a1, a2], n] + 
    S2[a1, a2, a1, SP[a1, a3], a2, n] + S2[a1, a2, SP[a1, a1], a3, a2, n] - 
    2*S2[a1, a3, a1, a1, SP[a2, a2], n] - 
    2*S2[a1, n]*S2[a1, a3, a1, a2, a2, n] - 
    2*S2[a1, a3, a1, a2, SP[a1, a2], n] - 
    4*S2[a1, a3, a1, SP[a1, a2], a2, n] - 
    S2[a1, n]*S2[a1, a3, a2, a1, a2, n] - S2[a1, a3, a2, a1, SP[a1, a2], n] - 
    S2[a1, a3, a2, SP[a1, a1], a2, n] - 4*S2[a1, a3, SP[a1, a1], a2, a2, n] - 
    S2[a1, a3, SP[a1, a2], a1, a2, n] - 4*S2[a1, SP[a1, a1], a2, a2, a3, n] - 
    4*S2[a1, SP[a1, a1], a2, a3, a2, n] - 
    4*S2[a1, SP[a1, a1], a3, a2, a2, n] - 
    2*S2[a1, SP[a1, a2], a1, a2, a3, n] - 
    3*S2[a1, SP[a1, a2], a1, a3, a2, n] - 
    3*S2[a1, SP[a1, a2], a3, a1, a2, n] + 
    8*S2[a1, SP[a1, a3], a1, a2, a2, n] + 
    4*S2[a1, SP[a1, a3], a2, a1, a2, n] + 
    2*S2[a1, SP[a2, a3], a1, a1, a2, n] - 
    4*S2[a1, n]*S2[a3, a1, a1, a2, a2, n] - 
    4*S2[a3, a1, a1, a2, SP[a1, a2], n] - 
    4*S2[a3, a1, a1, SP[a1, a2], a2, n] - 
    S2[a1, n]*S2[a3, a1, a2, a1, a2, n] - S2[a3, a1, a2, a1, SP[a1, a2], n] + 
    2*S2[a1, n]*S2[a3, a1, a2, a2, a1, n] + 
    2*S2[a3, a1, a2, a2, SP[a1, a1], n] - S2[a3, a1, a2, SP[a1, a1], a2, n] + 
    2*S2[a3, a1, a2, SP[a1, a2], a1, n] - 
    4*S2[a3, a1, SP[a1, a1], a2, a2, n] - S2[a3, a1, SP[a1, a2], a1, a2, n] + 
    2*S2[a3, a1, SP[a1, a2], a2, a1, n] + 
    S2[a1, n]*S2[a3, a2, a1, a2, a1, n] + S2[a3, a2, a1, a2, SP[a1, a1], n] + 
    S2[a3, a2, a1, SP[a1, a2], a1, n] + S2[a3, a2, SP[a1, a1], a2, a1, n] - 
    4*S2[a3, SP[a1, a1], a1, a2, a2, n] - S2[a3, SP[a1, a1], a2, a1, a2, n] + 
    2*S2[a3, SP[a1, a1], a2, a2, a1, n] + S2[a3, SP[a1, a2], a1, a2, a1, n] - 
    4*S2[SP[a1, a1], a1, a2, a2, a3, n] - 
    4*S2[SP[a1, a1], a1, a2, a3, a2, n] - 
    4*S2[SP[a1, a1], a1, a3, a2, a2, n] - 
    2*S2[SP[a1, a1], a2, a1, a2, a3, n] - 
    3*S2[SP[a1, a1], a2, a1, a3, a2, n] - 
    3*S2[SP[a1, a1], a2, a3, a1, a2, n] - 
    4*S2[SP[a1, a1], a3, a1, a2, a2, n] - 
    2*S2[SP[a1, a1], a3, a2, a1, a2, n] + 
    8*S2[SP[a1, a3], a1, a1, a2, a2, n] + 
    5*S2[SP[a1, a3], a1, a2, a1, a2, n] + 
    2*S2[SP[a1, a3], a1, a2, a2, a1, n] + 
    2*S2[SP[a1, a3], a2, a1, a1, a2, n] + S2[SP[a1, a3], a2, a1, a2, a1, n] - 
    2*S2[a3, a1, a2, a1, a2, a1, n] - 4*S2[a3, a1, a2, a2, a1, a1, n] - 
    2*S2[a3, a2, a1, a1, a2, a1, n] - 2*S2[a3, a2, a1, a2, a1, a1, n] /; 
   a1 != a2 != a3, S2[a1_, a2_, a2_, a1_, a1_, a3_, n_] :> 
  S2[a1, a1, a3, n]*S2[a1, a2, a2, n] + S2[SP[a1, a1], SP[a1, a2], 
     SP[a2, a3], n] - 2*S2[a1, a1, SP[a1, a2], SP[a2, a3], n] - 
    (S2[a1, a2, n]*S2[a1, a2, a1, a3, n])/2 + 
    S2[a1, a2, SP[a1, a1], SP[a2, a3], n]/2 + 
    (S2[a1, a2, n]*S2[a1, a3, a1, a2, n])/2 - 
    S2[a1, a3, SP[a1, a1], SP[a2, a2], n]/2 - S2[a1, SP[a1, a1], a2, 
     SP[a2, a3], n] - S2[a1, SP[a1, a1], SP[a2, a3], a2, n] - 
    S2[a1, SP[a1, a2], a1, SP[a2, a3], n]/2 - 
    S2[a1, SP[a1, a2], SP[a1, a2], a3, n]/2 - 
    S2[a1, SP[a1, a3], a1, SP[a2, a2], n]/2 - 
    S2[a1, SP[a1, a3], SP[a1, a2], a2, n]/2 - S2[SP[a1, a1], a1, a2, 
     SP[a2, a3], n] - S2[SP[a1, a1], a1, SP[a2, a3], a2, n] - 
    S2[SP[a1, a1], a2, a1, SP[a2, a3], n]/2 - 
    S2[SP[a1, a1], a2, SP[a1, a2], a3, n]/2 - 
    S2[SP[a1, a1], a3, a1, SP[a2, a2], n]/2 - 
    S2[SP[a1, a1], a3, SP[a1, a2], a2, n]/2 - S2[SP[a1, a1], SP[a1, a2], a2, 
     a3, n] - S2[SP[a1, a1], SP[a1, a2], a3, a2, n] + 
    S2[SP[a1, a1], SP[a2, a2], a1, a3, n]/2 - 
    S2[SP[a1, a1], SP[a2, a3], a1, a2, n]/2 - 
    3*S2[a3, n]*S2[a1, a1, a1, a2, a2, n] - 
    S2[a3, n]*S2[a1, a1, a2, a1, a2, n] + S2[a1, a1, a2, SP[a1, a2], a3, n] - 
    S2[a1, a1, a2, SP[a1, a3], a2, n] + S2[a1, a1, a3, a1, SP[a2, a2], n] + 
    S2[a1, a1, a3, SP[a1, a2], a2, n] + 2*S2[a1, a1, SP[a1, a2], a2, a3, n] + 
    2*S2[a1, a1, SP[a1, a2], a3, a2, n] - 
    2*S2[a1, a1, SP[a1, a3], a2, a2, n] - S2[a1, a1, SP[a2, a2], a1, a3, n] + 
    S2[a1, a2, a1, SP[a1, a2], a3, n]/2 - S2[a1, a2, a1, SP[a1, a3], a2, n]/
     2 - S2[a1, a2, SP[a1, a1], a2, a3, n]/2 - 
    S2[a1, a2, SP[a1, a1], a3, a2, n]/2 + S2[a1, a2, SP[a1, a2], a1, a3, n] + 
    S2[a1, a3, a1, a1, SP[a2, a2], n] + S2[a1, a3, a1, SP[a1, a2], a2, n] + 
    S2[a1, a3, SP[a1, a1], a2, a2, n] + S2[a1, SP[a1, a1], a2, a2, a3, n] + 
    S2[a1, SP[a1, a1], a2, a3, a2, n] + S2[a1, SP[a1, a1], a3, a2, a2, n] + 
    S2[a1, SP[a1, a2], a1, a2, a3, n]/2 + S2[a1, SP[a1, a2], a1, a3, a2, n]/
     2 + S2[a1, SP[a1, a2], a3, a1, a2, n]/2 - 
    2*S2[a1, SP[a1, a3], a1, a2, a2, n] - S2[a1, SP[a1, a3], a2, a1, a2, n]/
     2 + S2[a1, n]*S2[a3, a1, a1, a2, a2, n] + S2[a3, a1, a1, a2, SP[a1, a2], 
     n] + S2[a3, a1, a1, SP[a1, a2], a2, n] + S2[a3, a1, SP[a1, a1], a2, a2, 
     n] + S2[a3, SP[a1, a1], a1, a2, a2, n] + S2[SP[a1, a1], a1, a2, a2, a3, 
     n] + S2[SP[a1, a1], a1, a2, a3, a2, n] + S2[SP[a1, a1], a1, a3, a2, a2, 
     n] + S2[SP[a1, a1], a2, a1, a2, a3, n]/2 + 
    S2[SP[a1, a1], a2, a1, a3, a2, n]/2 + S2[SP[a1, a1], a2, a3, a1, a2, n]/
     2 + S2[SP[a1, a1], a3, a1, a2, a2, n] + 
    S2[SP[a1, a1], a3, a2, a1, a2, n]/2 - 
    2*S2[SP[a1, a3], a1, a1, a2, a2, n] - S2[SP[a1, a3], a1, a2, a1, a2, n] - 
    S2[a3, a1, a1, a2, a2, a1, n] /; a1 != a2 != a3, 
 S2[a1_, a2_, a2_, a1_, a3_, a1_, n_] :> 
  -2*S2[a1, a1, a3, n]*S2[a1, a2, a2, n] - 
    2*S2[SP[a1, a1], SP[a1, a2], SP[a2, a3], n] + 
    S2[a1, a2, n]*S2[a1, a1, a2, a3, n] + S2[a1, a2, n]*
     S2[a1, a1, a3, a2, n] + 3*S2[a1, a1, SP[a1, a2], SP[a2, a3], n] - 
    S2[a1, a1, SP[a1, a3], SP[a2, a2], n] + 
    (S2[a1, a2, n]*S2[a1, a2, a1, a3, n])/2 - 
    S2[a1, a2, SP[a1, a1], SP[a2, a3], n]/2 - 
    (S2[a1, a2, n]*S2[a1, a3, a1, a2, n])/2 + 
    S2[a1, a3, SP[a1, a1], SP[a2, a2], n]/2 + S2[a1, SP[a1, a1], a2, 
     SP[a2, a3], n] - S2[a1, SP[a1, a1], a3, SP[a2, a2], n] - 
    S2[a1, SP[a1, a1], SP[a2, a2], a3, n] + S2[a1, SP[a1, a1], SP[a2, a3], 
     a2, n] + (3*S2[a1, SP[a1, a2], a1, SP[a2, a3], n])/2 + 
    (3*S2[a1, SP[a1, a2], SP[a1, a2], a3, n])/2 + 
    S2[a1, SP[a1, a3], a1, SP[a2, a2], n]/2 + 
    S2[a1, SP[a1, a3], SP[a1, a2], a2, n]/2 + S2[SP[a1, a1], a1, a2, 
     SP[a2, a3], n] - S2[SP[a1, a1], a1, a3, SP[a2, a2], n] - 
    S2[SP[a1, a1], a1, SP[a2, a2], a3, n] + S2[SP[a1, a1], a1, SP[a2, a3], 
     a2, n] + (3*S2[SP[a1, a1], a2, a1, SP[a2, a3], n])/2 + 
    (3*S2[SP[a1, a1], a2, SP[a1, a2], a3, n])/2 + 
    S2[SP[a1, a1], a3, a1, SP[a2, a2], n]/2 + 
    S2[SP[a1, a1], a3, SP[a1, a2], a2, n]/2 + S2[SP[a1, a1], SP[a1, a2], a2, 
     a3, n] + S2[SP[a1, a1], SP[a1, a2], a3, a2, n] - 
    S2[SP[a1, a1], SP[a2, a2], a1, a3, n]/2 + 
    S2[SP[a1, a1], SP[a2, a3], a1, a2, n]/2 - 
    3*S2[a1, a1, a1, a2, SP[a2, a3], n] + 
    3*S2[a1, a1, a1, a3, SP[a2, a2], n] + 
    3*S2[a1, a1, a1, SP[a2, a2], a3, n] - 
    3*S2[a1, a1, a1, SP[a2, a3], a2, n] - 
    2*S2[a1, a1, a2, a1, SP[a2, a3], n] - 
    3*S2[a1, a1, a2, SP[a1, a2], a3, n] + S2[a1, a1, a2, SP[a1, a3], a2, n] - 
    S2[a1, a1, SP[a1, a2], a2, a3, n] - S2[a1, a1, SP[a1, a2], a3, a2, n] + 
    S2[a1, a1, SP[a2, a2], a1, a3, n] - S2[a1, a1, SP[a2, a3], a1, a2, n] - 
    S2[a1, a2, a1, a1, SP[a2, a3], n] - (3*S2[a1, a2, a1, SP[a1, a2], a3, n])/
     2 + S2[a1, a2, a1, SP[a1, a3], a2, n]/2 + 
    S2[a1, n]*S2[a1, a2, a2, a1, a3, n] + S2[a1, a2, a2, a1, SP[a1, a3], n] + 
    S2[a1, a2, a2, SP[a1, a1], a3, n] + S2[a1, a2, SP[a1, a1], a2, a3, n]/2 + 
    S2[a1, a2, SP[a1, a1], a3, a2, n]/2 - S2[a1, a2, SP[a1, a2], a1, a3, n] - 
    S2[a1, a3, a1, a1, SP[a2, a2], n] + S2[a1, n]*S2[a1, a3, a1, a2, a2, n] + 
    S2[a1, a3, a1, a2, SP[a1, a2], n] - S2[a1, SP[a1, a2], a1, a2, a3, n]/2 - 
    S2[a1, SP[a1, a2], a1, a3, a2, n]/2 - S2[a1, SP[a1, a2], a3, a1, a2, n]/
     2 - S2[a1, SP[a1, a3], a2, a1, a2, n]/2 - 
    S2[a1, n]*S2[a3, a1, a2, a2, a1, n] - S2[a3, a1, a2, a2, SP[a1, a1], n] - 
    S2[a3, a1, a2, SP[a1, a2], a1, n] - S2[a3, a1, SP[a1, a2], a2, a1, n] - 
    S2[a3, SP[a1, a1], a2, a2, a1, n] - S2[SP[a1, a1], a2, a1, a2, a3, n]/2 - 
    S2[SP[a1, a1], a2, a1, a3, a2, n]/2 - S2[SP[a1, a1], a2, a3, a1, a2, n]/
     2 - S2[SP[a1, a1], a3, a2, a1, a2, n]/2 - S2[SP[a1, a3], a1, a2, a2, a1, 
     n] + 2*S2[a3, a1, a1, a2, a2, a1, n] + S2[a3, a1, a2, a1, a2, a1, n] + 
    2*S2[a3, a1, a2, a2, a1, a1, n] /; a1 != a2 != a3, 
 S2[a1_, a2_, a2_, a3_, a1_, a1_, n_] :> 
  S2[a1, a1, a3, n]*S2[a1, a2, a2, n] + S2[SP[a1, a1], SP[a1, a2], 
     SP[a2, a3], n] - S2[a1, a2, n]*S2[a1, a1, a3, a2, n] - 
    2*S2[a1, a1, SP[a1, a2], SP[a2, a3], n] + S2[a1, a1, SP[a1, a3], 
     SP[a2, a2], n] - S2[a1, SP[a1, a1], a2, SP[a2, a3], n] + 
    S2[a1, SP[a1, a1], a3, SP[a2, a2], n] - S2[a1, SP[a1, a2], a1, 
     SP[a2, a3], n] - S2[a1, SP[a1, a2], SP[a1, a2], a3, n] - 
    S2[SP[a1, a1], a1, a2, SP[a2, a3], n] + S2[SP[a1, a1], a1, a3, 
     SP[a2, a2], n] - S2[SP[a1, a1], a2, a1, SP[a2, a3], n] - 
    S2[SP[a1, a1], a2, SP[a1, a2], a3, n] - S2[SP[a1, a1], SP[a1, a2], a2, 
     a3, n] + 3*S2[a1, a1, a1, a2, SP[a2, a3], n] - 
    3*S2[a1, a1, a1, a3, SP[a2, a2], n] + 
    2*S2[a1, a1, a2, a1, SP[a2, a3], n] - 
    S2[a1, n]*S2[a1, a1, a2, a2, a3, n] - S2[a1, a1, a2, a2, SP[a1, a3], n] + 
    S2[a1, a1, a2, SP[a1, a2], a3, n] - S2[a1, a1, a3, a1, SP[a2, a2], n] + 
    S2[a1, n]*S2[a1, a1, a3, a2, a2, n] + S2[a1, a1, a3, a2, SP[a1, a2], n] + 
    S2[a1, a1, SP[a1, a2], a2, a3, n] + S2[a1, a2, a1, a1, SP[a2, a3], n] - 
    (S2[a1, n]*S2[a1, a2, a1, a2, a3, n])/2 - 
    S2[a1, a2, a1, a2, SP[a1, a3], n]/2 + S2[a1, a2, a1, SP[a1, a2], a3, n]/
     2 - (S2[a1, n]*S2[a1, a2, a2, a1, a3, n])/2 - 
    S2[a1, a2, a2, a1, SP[a1, a3], n]/2 + 
    (S2[a1, n]*S2[a1, a2, a2, a3, a1, n])/2 + 
    S2[a1, a2, a2, a3, SP[a1, a1], n]/2 - S2[a1, a2, a2, SP[a1, a1], a3, n]/
     2 + S2[a1, a2, a2, SP[a1, a3], a1, n]/2 - 
    S2[a1, a2, SP[a1, a1], a2, a3, n]/2 + S2[a1, a2, SP[a1, a2], a1, a3, n]/
     2 + S2[a1, a2, SP[a1, a2], a3, a1, n]/2 - 
    (S2[a1, n]*S2[a1, a3, a2, a2, a1, n])/2 - 
    S2[a1, a3, a2, a2, SP[a1, a1], n]/2 - S2[a1, a3, a2, SP[a1, a2], a1, n]/
     2 - S2[a1, a3, SP[a1, a2], a2, a1, n]/2 + 
    S2[a1, SP[a1, a2], a1, a2, a3, n]/2 + S2[a1, SP[a1, a2], a2, a1, a3, n]/
     2 + S2[a1, SP[a1, a2], a2, a3, a1, n]/2 - 
    S2[a1, SP[a1, a3], a2, a2, a1, n]/2 + 
    (S2[a1, n]*S2[a3, a1, a2, a2, a1, n])/2 + 
    S2[a3, a1, a2, a2, SP[a1, a1], n]/2 + S2[a3, a1, a2, SP[a1, a2], a1, n]/
     2 + S2[a3, a1, SP[a1, a2], a2, a1, n]/2 + 
    (S2[a1, n]*S2[a3, a2, a1, a2, a1, n])/2 + 
    S2[a3, a2, a1, a2, SP[a1, a1], n]/2 + S2[a3, a2, a1, SP[a1, a2], a1, n]/
     2 + S2[a1, n]*S2[a3, a2, a2, a1, a1, n] + S2[a3, a2, a2, a1, SP[a1, a1], 
     n] + S2[a3, a2, a2, SP[a1, a1], a1, n] + 
    S2[a3, a2, SP[a1, a1], a2, a1, n]/2 + S2[a3, a2, SP[a1, a2], a1, a1, n] + 
    S2[a3, SP[a1, a1], a2, a2, a1, n]/2 + S2[a3, SP[a1, a2], a1, a2, a1, n]/
     2 + S2[a3, SP[a1, a2], a2, a1, a1, n] + 
    S2[SP[a1, a1], a2, a1, a2, a3, n]/2 + S2[SP[a1, a1], a2, a2, a1, a3, n]/
     2 + S2[SP[a1, a1], a2, a2, a3, a1, n]/2 - 
    S2[SP[a1, a1], a3, a2, a2, a1, n]/2 + S2[SP[a1, a3], a1, a2, a2, a1, n]/
     2 + S2[SP[a1, a3], a2, a1, a2, a1, n]/2 + S2[SP[a1, a3], a2, a2, a1, a1, 
     n] - S2[a3, a1, a1, a2, a2, a1, n] - S2[a3, a1, a2, a1, a2, a1, n] - 
    2*S2[a3, a1, a2, a2, a1, a1, n] - S2[a3, a2, a1, a1, a2, a1, n] - 
    2*S2[a3, a2, a1, a2, a1, a1, n] - 3*S2[a3, a2, a2, a1, a1, a1, n] /; 
   a1 != a2 != a3, S2[a1_, a2_, a3_, a1_, a1_, a2_, n_] :> 
  -(S2[a1, a2, n]*S2[a1, a1, a2, a3, n]) - S2[a1, a2, n]*
     S2[a1, a1, a3, a2, n] + S2[a1, a1, SP[a1, a2], SP[a2, a3], n] + 
    S2[a1, a1, SP[a1, a3], SP[a2, a2], n] - S2[a1, a2, n]*
     S2[a1, a3, a1, a2, n] + S2[a1, a3, SP[a1, a1], SP[a2, a2], n] + 
    S2[a1, SP[a1, a1], a2, SP[a2, a3], n] + S2[a1, SP[a1, a1], a3, 
     SP[a2, a2], n] + S2[a1, SP[a1, a1], SP[a2, a2], a3, n] + 
    S2[a1, SP[a1, a1], SP[a2, a3], a2, n] + S2[a1, SP[a1, a3], a1, 
     SP[a2, a2], n] + S2[a1, SP[a1, a3], SP[a1, a2], a2, n] + 
    S2[SP[a1, a1], a1, a2, SP[a2, a3], n] + S2[SP[a1, a1], a1, a3, 
     SP[a2, a2], n] + S2[SP[a1, a1], a1, SP[a2, a2], a3, n] + 
    S2[SP[a1, a1], a1, SP[a2, a3], a2, n] + S2[SP[a1, a1], a3, a1, 
     SP[a2, a2], n] + S2[SP[a1, a1], a3, SP[a1, a2], a2, n] + 
    S2[SP[a1, a1], SP[a1, a2], a2, a3, n] + S2[SP[a1, a1], SP[a1, a2], a3, 
     a2, n] + S2[SP[a1, a1], SP[a2, a3], a1, a2, n] + 
    6*S2[a3, n]*S2[a1, a1, a1, a2, a2, n] + 
    3*S2[a1, a1, a1, a2, SP[a2, a3], n] - 
    3*S2[a1, a1, a1, a3, SP[a2, a2], n] - 
    3*S2[a1, a1, a1, SP[a2, a2], a3, n] + 
    3*S2[a1, a1, a1, SP[a2, a3], a2, n] + 
    3*S2[a3, n]*S2[a1, a1, a2, a1, a2, n] + 
    2*S2[a1, a1, a2, a1, SP[a2, a3], n] + 
    2*S2[a1, a1, a2, SP[a1, a3], a2, n] - 
    3*S2[a1, a1, a3, a1, SP[a2, a2], n] - 
    3*S2[a1, a1, a3, SP[a1, a2], a2, n] - 
    3*S2[a1, a1, SP[a1, a2], a2, a3, n] - 
    3*S2[a1, a1, SP[a1, a2], a3, a2, n] + 
    4*S2[a1, a1, SP[a1, a3], a2, a2, n] + S2[a1, a1, SP[a2, a3], a1, a2, n] + 
    S2[a3, n]*S2[a1, a2, a1, a1, a2, n] + S2[a1, a2, a1, a1, SP[a2, a3], n] + 
    S2[a1, a2, a1, SP[a1, a3], a2, n] + S2[a1, a2, SP[a1, a3], a1, a2, n] - 
    2*S2[a1, a3, a1, a1, SP[a2, a2], n] - 
    2*S2[a1, a3, a1, SP[a1, a2], a2, n] - 
    2*S2[a1, a3, SP[a1, a1], a2, a2, n] - 
    2*S2[a1, SP[a1, a1], a2, a2, a3, n] - 
    2*S2[a1, SP[a1, a1], a2, a3, a2, n] - 
    2*S2[a1, SP[a1, a1], a3, a2, a2, n] - S2[a1, SP[a1, a2], a1, a2, a3, n] - 
    S2[a1, SP[a1, a2], a1, a3, a2, n] - S2[a1, SP[a1, a2], a3, a1, a2, n] + 
    4*S2[a1, SP[a1, a3], a1, a2, a2, n] + 
    2*S2[a1, SP[a1, a3], a2, a1, a2, n] + S2[a1, SP[a2, a3], a1, a1, a2, n] - 
    2*S2[a1, n]*S2[a3, a1, a1, a2, a2, n] - 
    2*S2[a3, a1, a1, a2, SP[a1, a2], n] - 
    2*S2[a3, a1, a1, SP[a1, a2], a2, n] - 
    S2[a1, n]*S2[a3, a1, a2, a1, a2, n] - S2[a3, a1, a2, a1, SP[a1, a2], n] - 
    S2[a3, a1, a2, SP[a1, a1], a2, n] - 2*S2[a3, a1, SP[a1, a1], a2, a2, n] - 
    S2[a3, a1, SP[a1, a2], a1, a2, n] - S2[a1, n]*S2[a3, a2, a1, a1, a2, n] - 
    S2[a3, a2, a1, a1, SP[a1, a2], n] - S2[a3, a2, a1, SP[a1, a1], a2, n] - 
    S2[a3, a2, SP[a1, a1], a1, a2, n] - 2*S2[a3, SP[a1, a1], a1, a2, a2, n] - 
    S2[a3, SP[a1, a1], a2, a1, a2, n] - S2[a3, SP[a1, a2], a1, a1, a2, n] - 
    2*S2[SP[a1, a1], a1, a2, a2, a3, n] - 
    2*S2[SP[a1, a1], a1, a2, a3, a2, n] - 
    2*S2[SP[a1, a1], a1, a3, a2, a2, n] - S2[SP[a1, a1], a2, a1, a2, a3, n] - 
    S2[SP[a1, a1], a2, a1, a3, a2, n] - S2[SP[a1, a1], a2, a3, a1, a2, n] - 
    2*S2[SP[a1, a1], a3, a1, a2, a2, n] - S2[SP[a1, a1], a3, a2, a1, a2, n] + 
    4*S2[SP[a1, a3], a1, a1, a2, a2, n] + 
    2*S2[SP[a1, a3], a1, a2, a1, a2, n] + S2[a3, a1, a1, a2, a1, a2, n] + 
    2*S2[a3, a1, a1, a2, a2, a1, n] + 2*S2[a3, a1, a2, a1, a1, a2, n] + 
    S2[a3, a1, a2, a1, a2, a1, n] + 3*S2[a3, a2, a1, a1, a1, a2, n] + 
    S2[a3, a2, a1, a1, a2, a1, n] /; a1 != a2 != a3, 
 S2[a1_, a2_, a3_, a1_, a2_, a1_, n_] :> 
  2*S2[a1, a2, n]*S2[a1, a1, a2, a3, n] + 2*S2[a1, a2, n]*
     S2[a1, a1, a3, a2, n] - 2*S2[a1, a1, SP[a1, a2], SP[a2, a3], n] - 
    2*S2[a1, a1, SP[a1, a3], SP[a2, a2], n] + 
    S2[a1, a2, n]*S2[a1, a3, a1, a2, n] - S2[a1, a3, SP[a1, a1], SP[a2, a2], 
     n] - 2*S2[a1, SP[a1, a1], a2, SP[a2, a3], n] - 
    2*S2[a1, SP[a1, a1], a3, SP[a2, a2], n] - 
    2*S2[a1, SP[a1, a1], SP[a2, a2], a3, n] - 
    2*S2[a1, SP[a1, a1], SP[a2, a3], a2, n] - S2[a1, SP[a1, a3], a1, 
     SP[a2, a2], n] - S2[a1, SP[a1, a3], SP[a1, a2], a2, n] - 
    2*S2[SP[a1, a1], a1, a2, SP[a2, a3], n] - 
    2*S2[SP[a1, a1], a1, a3, SP[a2, a2], n] - 
    2*S2[SP[a1, a1], a1, SP[a2, a2], a3, n] - 
    2*S2[SP[a1, a1], a1, SP[a2, a3], a2, n] - S2[SP[a1, a1], a3, a1, 
     SP[a2, a2], n] - S2[SP[a1, a1], a3, SP[a1, a2], a2, n] - 
    2*S2[SP[a1, a1], SP[a1, a2], a2, a3, n] - 
    2*S2[SP[a1, a1], SP[a1, a2], a3, a2, n] - S2[SP[a1, a1], SP[a2, a3], a1, 
     a2, n] - 12*S2[a3, n]*S2[a1, a1, a1, a2, a2, n] - 
    6*S2[a1, a1, a1, a2, SP[a2, a3], n] + 
    6*S2[a1, a1, a1, a3, SP[a2, a2], n] + 
    6*S2[a1, a1, a1, SP[a2, a2], a3, n] - 
    6*S2[a1, a1, a1, SP[a2, a3], a2, n] - 
    6*S2[a3, n]*S2[a1, a1, a2, a1, a2, n] - 
    4*S2[a1, a1, a2, a1, SP[a2, a3], n] - 
    4*S2[a1, a1, a2, SP[a1, a3], a2, n] + 
    4*S2[a1, a1, a3, a1, SP[a2, a2], n] + 
    4*S2[a1, a1, a3, SP[a1, a2], a2, n] + 
    6*S2[a1, a1, SP[a1, a2], a2, a3, n] + 
    6*S2[a1, a1, SP[a1, a2], a3, a2, n] - 
    8*S2[a1, a1, SP[a1, a3], a2, a2, n] - 
    4*S2[a1, a1, SP[a2, a3], a1, a2, n] - 
    2*S2[a3, n]*S2[a1, a2, a1, a1, a2, n] - 
    2*S2[a1, a2, a1, a1, SP[a2, a3], n] - 
    2*S2[a1, a2, a1, SP[a1, a3], a2, n] + 
    S2[a1, n]*S2[a1, a2, a3, a1, a2, n] + S2[a1, a2, a3, a1, SP[a1, a2], n] + 
    S2[a1, a2, a3, SP[a1, a1], a2, n] - S2[a1, a2, SP[a1, a3], a1, a2, n] + 
    2*S2[a1, a3, a1, a1, SP[a2, a2], n] + 
    2*S2[a1, n]*S2[a1, a3, a1, a2, a2, n] + 
    2*S2[a1, a3, a1, a2, SP[a1, a2], n] + 
    4*S2[a1, a3, a1, SP[a1, a2], a2, n] + 
    S2[a1, n]*S2[a1, a3, a2, a1, a2, n] + S2[a1, a3, a2, a1, SP[a1, a2], n] + 
    S2[a1, a3, a2, SP[a1, a1], a2, n] + 4*S2[a1, a3, SP[a1, a1], a2, a2, n] + 
    S2[a1, a3, SP[a1, a2], a1, a2, n] + 4*S2[a1, SP[a1, a1], a2, a2, a3, n] + 
    4*S2[a1, SP[a1, a1], a2, a3, a2, n] + 
    4*S2[a1, SP[a1, a1], a3, a2, a2, n] + 
    2*S2[a1, SP[a1, a2], a1, a2, a3, n] + 
    2*S2[a1, SP[a1, a2], a1, a3, a2, n] + 
    2*S2[a1, SP[a1, a2], a3, a1, a2, n] - 
    8*S2[a1, SP[a1, a3], a1, a2, a2, n] - 
    4*S2[a1, SP[a1, a3], a2, a1, a2, n] - 
    2*S2[a1, SP[a2, a3], a1, a1, a2, n] + 
    4*S2[a1, n]*S2[a3, a1, a1, a2, a2, n] + 
    4*S2[a3, a1, a1, a2, SP[a1, a2], n] + 
    4*S2[a3, a1, a1, SP[a1, a2], a2, n] + 
    S2[a1, n]*S2[a3, a1, a2, a1, a2, n] + S2[a3, a1, a2, a1, SP[a1, a2], n] - 
    2*S2[a1, n]*S2[a3, a1, a2, a2, a1, n] - 
    2*S2[a3, a1, a2, a2, SP[a1, a1], n] + S2[a3, a1, a2, SP[a1, a1], a2, n] - 
    2*S2[a3, a1, a2, SP[a1, a2], a1, n] + 
    4*S2[a3, a1, SP[a1, a1], a2, a2, n] + S2[a3, a1, SP[a1, a2], a1, a2, n] - 
    2*S2[a3, a1, SP[a1, a2], a2, a1, n] - 
    S2[a1, n]*S2[a3, a2, a1, a2, a1, n] - S2[a3, a2, a1, a2, SP[a1, a1], n] - 
    S2[a3, a2, a1, SP[a1, a2], a1, n] - S2[a3, a2, SP[a1, a1], a2, a1, n] + 
    4*S2[a3, SP[a1, a1], a1, a2, a2, n] + S2[a3, SP[a1, a1], a2, a1, a2, n] - 
    2*S2[a3, SP[a1, a1], a2, a2, a1, n] - S2[a3, SP[a1, a2], a1, a2, a1, n] + 
    4*S2[SP[a1, a1], a1, a2, a2, a3, n] + 
    4*S2[SP[a1, a1], a1, a2, a3, a2, n] + 
    4*S2[SP[a1, a1], a1, a3, a2, a2, n] + 
    2*S2[SP[a1, a1], a2, a1, a2, a3, n] + 
    2*S2[SP[a1, a1], a2, a1, a3, a2, n] + 
    2*S2[SP[a1, a1], a2, a3, a1, a2, n] + 
    4*S2[SP[a1, a1], a3, a1, a2, a2, n] + 
    2*S2[SP[a1, a1], a3, a2, a1, a2, n] - 
    8*S2[SP[a1, a3], a1, a1, a2, a2, n] - 
    5*S2[SP[a1, a3], a1, a2, a1, a2, n] - 
    2*S2[SP[a1, a3], a1, a2, a2, a1, n] - 
    2*S2[SP[a1, a3], a2, a1, a1, a2, n] - S2[SP[a1, a3], a2, a1, a2, a1, n] + 
    2*S2[a3, a1, a2, a1, a2, a1, n] + 4*S2[a3, a1, a2, a2, a1, a1, n] + 
    2*S2[a3, a2, a1, a1, a2, a1, n] + 2*S2[a3, a2, a1, a2, a1, a1, n] /; 
   a1 != a2 != a3, S2[a1_, a2_, a3_, a2_, a1_, a1_, n_] :> 
  -(S2[a1, a2, n]*S2[a1, a1, a2, a3, n]) + S2[a1, a1, SP[a1, a2], SP[a2, a3], 
     n] + S2[a1, SP[a1, a1], a2, SP[a2, a3], n] + 
    S2[a1, SP[a1, a1], SP[a2, a2], a3, n] + S2[SP[a1, a1], a1, a2, 
     SP[a2, a3], n] + S2[SP[a1, a1], a1, SP[a2, a2], a3, n] + 
    S2[SP[a1, a1], SP[a1, a2], a2, a3, n] + 
    6*S2[a3, n]*S2[a1, a1, a1, a2, a2, n] + 
    3*S2[a1, a1, a1, a2, SP[a2, a3], n] - 
    3*S2[a1, a1, a1, SP[a2, a2], a3, n] + 
    6*S2[a1, a1, a1, SP[a2, a3], a2, n] + 
    3*S2[a3, n]*S2[a1, a1, a2, a1, a2, n] + 
    2*S2[a1, a1, a2, a1, SP[a2, a3], n] - 
    S2[a1, n]*S2[a1, a1, a2, a3, a2, n] - S2[a1, a1, a2, a3, SP[a1, a2], n] + 
    S2[a1, a1, a2, SP[a1, a3], a2, n] - 2*S2[a1, n]*
     S2[a1, a1, a3, a2, a2, n] - 2*S2[a1, a1, a3, a2, SP[a1, a2], n] - 
    2*S2[a1, a1, a3, SP[a1, a2], a2, n] - 
    3*S2[a1, a1, SP[a1, a2], a2, a3, n] - 
    2*S2[a1, a1, SP[a1, a2], a3, a2, n] + 
    4*S2[a1, a1, SP[a1, a3], a2, a2, n] + 
    3*S2[a1, a1, SP[a2, a3], a1, a2, n] + 
    S2[a3, n]*S2[a1, a2, a1, a1, a2, n] + S2[a1, a2, a1, a1, SP[a2, a3], n] - 
    (S2[a1, n]*S2[a1, a2, a1, a3, a2, n])/2 - 
    S2[a1, a2, a1, a3, SP[a1, a2], n]/2 + S2[a1, a2, a1, SP[a1, a3], a2, n]/
     2 - (S2[a1, n]*S2[a1, a2, a3, a1, a2, n])/2 - 
    S2[a1, a2, a3, a1, SP[a1, a2], n]/2 + 
    (S2[a1, n]*S2[a1, a2, a3, a2, a1, n])/2 + 
    S2[a1, a2, a3, a2, SP[a1, a1], n]/2 - S2[a1, a2, a3, SP[a1, a1], a2, n]/
     2 + S2[a1, a2, a3, SP[a1, a2], a1, n]/2 - 
    S2[a1, a2, SP[a1, a1], a3, a2, n]/2 + S2[a1, a2, SP[a1, a3], a1, a2, n]/
     2 + S2[a1, a2, SP[a1, a3], a2, a1, n]/2 - 
    2*S2[a1, n]*S2[a1, a3, a1, a2, a2, n] - 
    2*S2[a1, a3, a1, a2, SP[a1, a2], n] - 
    2*S2[a1, a3, a1, SP[a1, a2], a2, n] - 
    (S2[a1, n]*S2[a1, a3, a2, a1, a2, n])/2 - 
    S2[a1, a3, a2, a1, SP[a1, a2], n]/2 + 
    S2[a1, n]*S2[a1, a3, a2, a2, a1, n] + S2[a1, a3, a2, a2, SP[a1, a1], n] - 
    S2[a1, a3, a2, SP[a1, a1], a2, n]/2 + S2[a1, a3, a2, SP[a1, a2], a1, n] - 
    2*S2[a1, a3, SP[a1, a1], a2, a2, n] - S2[a1, a3, SP[a1, a2], a1, a2, n]/
     2 + S2[a1, a3, SP[a1, a2], a2, a1, n] - 
    2*S2[a1, SP[a1, a1], a2, a2, a3, n] - 
    2*S2[a1, SP[a1, a1], a2, a3, a2, n] - 
    2*S2[a1, SP[a1, a1], a3, a2, a2, n] - S2[a1, SP[a1, a2], a1, a2, a3, n] - 
    S2[a1, SP[a1, a2], a1, a3, a2, n]/2 - S2[a1, SP[a1, a2], a3, a1, a2, n]/
     2 + S2[a1, SP[a1, a2], a3, a2, a1, n]/2 + 
    4*S2[a1, SP[a1, a3], a1, a2, a2, n] + 
    (5*S2[a1, SP[a1, a3], a2, a1, a2, n])/2 + S2[a1, SP[a1, a3], a2, a2, a1, 
     n] + S2[a1, SP[a2, a3], a1, a1, a2, n] - 
    2*S2[a1, n]*S2[a3, a1, a1, a2, a2, n] - 
    2*S2[a3, a1, a1, a2, SP[a1, a2], n] - 
    2*S2[a3, a1, a1, SP[a1, a2], a2, n] - 
    (S2[a1, n]*S2[a3, a1, a2, a1, a2, n])/2 - 
    S2[a3, a1, a2, a1, SP[a1, a2], n]/2 + 
    S2[a1, n]*S2[a3, a1, a2, a2, a1, n] + S2[a3, a1, a2, a2, SP[a1, a1], n] - 
    S2[a3, a1, a2, SP[a1, a1], a2, n]/2 + S2[a3, a1, a2, SP[a1, a2], a1, n] - 
    2*S2[a3, a1, SP[a1, a1], a2, a2, n] - S2[a3, a1, SP[a1, a2], a1, a2, n]/
     2 + S2[a3, a1, SP[a1, a2], a2, a1, n] - 
    (S2[a1, n]*S2[a3, a2, a1, a2, a1, n])/2 - 
    S2[a3, a2, a1, a2, SP[a1, a1], n]/2 - S2[a3, a2, a1, SP[a1, a2], a1, n]/
     2 - 2*S2[a1, n]*S2[a3, a2, a2, a1, a1, n] - 
    2*S2[a3, a2, a2, a1, SP[a1, a1], n] - 
    2*S2[a3, a2, a2, SP[a1, a1], a1, n] - S2[a3, a2, SP[a1, a1], a2, a1, n]/
     2 - 2*S2[a3, a2, SP[a1, a2], a1, a1, n] - 
    2*S2[a3, SP[a1, a1], a1, a2, a2, n] - S2[a3, SP[a1, a1], a2, a1, a2, n]/
     2 + S2[a3, SP[a1, a1], a2, a2, a1, n] - 
    S2[a3, SP[a1, a2], a1, a2, a1, n]/2 - 
    2*S2[a3, SP[a1, a2], a2, a1, a1, n] - 
    2*S2[SP[a1, a1], a1, a2, a2, a3, n] - 
    2*S2[SP[a1, a1], a1, a2, a3, a2, n] - 
    2*S2[SP[a1, a1], a1, a3, a2, a2, n] - S2[SP[a1, a1], a2, a1, a2, a3, n] - 
    S2[SP[a1, a1], a2, a1, a3, a2, n]/2 - S2[SP[a1, a1], a2, a3, a1, a2, n]/
     2 + S2[SP[a1, a1], a2, a3, a2, a1, n]/2 - 
    2*S2[SP[a1, a1], a3, a1, a2, a2, n] - S2[SP[a1, a1], a3, a2, a1, a2, n]/
     2 + S2[SP[a1, a1], a3, a2, a2, a1, n] + 
    4*S2[SP[a1, a3], a1, a1, a2, a2, n] + 
    (5*S2[SP[a1, a3], a1, a2, a1, a2, n])/2 + S2[SP[a1, a3], a1, a2, a2, a1, 
     n] + S2[SP[a1, a3], a2, a1, a1, a2, n] - 
    S2[SP[a1, a3], a2, a1, a2, a1, n]/2 - 
    2*S2[SP[a1, a3], a2, a2, a1, a1, n] + S2[a3, a2, a1, a1, a2, a1, n] + 
    3*S2[a3, a2, a1, a2, a1, a1, n] + 6*S2[a3, a2, a2, a1, a1, a1, n] /; 
   a1 != a2 != a3, S2[a1_, a3_, a1_, a1_, a2_, a2_, n_] :> 
  S2[a1, n]*S2[a3, a1, a1, a2, a2, n] + S2[a3, a1, a1, a2, SP[a1, a2], n] + 
    S2[a3, a1, a1, SP[a1, a2], a2, n] + S2[a3, a1, SP[a1, a1], a2, a2, n] + 
    S2[a3, SP[a1, a1], a1, a2, a2, n] + S2[SP[a1, a3], a1, a1, a2, a2, n] - 
    3*S2[a3, a1, a1, a1, a2, a2, n] - S2[a3, a1, a1, a2, a1, a2, n] - 
    S2[a3, a1, a1, a2, a2, a1, n] /; a1 != a2 != a3, 
 S2[a1_, a3_, a1_, a2_, a1_, a2_, n_] :> 
  S2[a1, n]*S2[a3, a1, a2, a1, a2, n] + S2[a3, a1, a2, a1, SP[a1, a2], n] + 
    S2[a3, a1, a2, SP[a1, a1], a2, n] + S2[a3, a1, SP[a1, a2], a1, a2, n] + 
    S2[a3, SP[a1, a1], a2, a1, a2, n] + S2[SP[a1, a3], a1, a2, a1, a2, n] - 
    2*S2[a3, a1, a1, a2, a1, a2, n] - 2*S2[a3, a1, a2, a1, a1, a2, n] - 
    S2[a3, a1, a2, a1, a2, a1, n] /; a1 != a2 != a3, 
 S2[a1_, a3_, a1_, a2_, a2_, a1_, n_] :> 
  S2[a1, n]*S2[a3, a1, a2, a2, a1, n] + S2[a3, a1, a2, a2, SP[a1, a1], n] + 
    S2[a3, a1, a2, SP[a1, a2], a1, n] + S2[a3, a1, SP[a1, a2], a2, a1, n] + 
    S2[a3, SP[a1, a1], a2, a2, a1, n] + S2[SP[a1, a3], a1, a2, a2, a1, n] - 
    2*S2[a3, a1, a1, a2, a2, a1, n] - S2[a3, a1, a2, a1, a2, a1, n] - 
    2*S2[a3, a1, a2, a2, a1, a1, n] /; a1 != a2 != a3, 
 S2[a1_, a3_, a2_, a1_, a1_, a2_, n_] :> 
  S2[a1, n]*S2[a3, a2, a1, a1, a2, n] + S2[a3, a2, a1, a1, SP[a1, a2], n] + 
    S2[a3, a2, a1, SP[a1, a1], a2, n] + S2[a3, a2, SP[a1, a1], a1, a2, n] + 
    S2[a3, SP[a1, a2], a1, a1, a2, n] + S2[SP[a1, a3], a2, a1, a1, a2, n] - 
    S2[a3, a1, a2, a1, a1, a2, n] - 3*S2[a3, a2, a1, a1, a1, a2, n] - 
    S2[a3, a2, a1, a1, a2, a1, n] /; a1 != a2 != a3, 
 S2[a1_, a3_, a2_, a1_, a2_, a1_, n_] :> 
  S2[a1, n]*S2[a3, a2, a1, a2, a1, n] + S2[a3, a2, a1, a2, SP[a1, a1], n] + 
    S2[a3, a2, a1, SP[a1, a2], a1, n] + S2[a3, a2, SP[a1, a1], a2, a1, n] + 
    S2[a3, SP[a1, a2], a1, a2, a1, n] + S2[SP[a1, a3], a2, a1, a2, a1, n] - 
    S2[a3, a1, a2, a1, a2, a1, n] - 2*S2[a3, a2, a1, a1, a2, a1, n] - 
    2*S2[a3, a2, a1, a2, a1, a1, n] /; a1 != a2 != a3, 
 S2[a1_, a3_, a2_, a2_, a1_, a1_, n_] :> 
  S2[a1, n]*S2[a3, a2, a2, a1, a1, n] + S2[a3, a2, a2, a1, SP[a1, a1], n] + 
    S2[a3, a2, a2, SP[a1, a1], a1, n] + S2[a3, a2, SP[a1, a2], a1, a1, n] + 
    S2[a3, SP[a1, a2], a2, a1, a1, n] + S2[SP[a1, a3], a2, a2, a1, a1, n] - 
    S2[a3, a1, a2, a2, a1, a1, n] - S2[a3, a2, a1, a2, a1, a1, n] - 
    3*S2[a3, a2, a2, a1, a1, a1, n] /; a1 != a2 != a3, 
 S2[a2_, a1_, a1_, a1_, a2_, a3_, n_] :> 
  S2[a1, a1, a2, n]*S2[a1, a2, a3, n] + S2[SP[a1, a1], SP[a1, a2], 
     SP[a2, a3], n] - S2[a2, a3, n]*S2[a1, a1, a1, a2, n] - 
    S2[a1, a2, n]*S2[a1, a1, a2, a3, n] - S2[SP[a1, a1], a2, a1, SP[a2, a3], 
     n] - S2[SP[a1, a1], a2, SP[a1, a3], a2, n] - S2[SP[a1, a1], SP[a1, a2], 
     a3, a2, n] + S2[SP[a1, a2], a1, a1, SP[a2, a3], n] + 
    S2[SP[a1, a2], a1, SP[a1, a3], a2, n] + S2[SP[a1, a2], SP[a1, a3], a1, 
     a2, n] - 2*S2[a3, n]*S2[a1, a1, a1, a2, a2, n] + 
    2*S2[a2, n]*S2[a1, a1, a1, a2, a3, n] - S2[a1, a1, a1, a2, SP[a2, a3], 
     n] + S2[a2, n]*S2[a1, a1, a1, a3, a2, n] + S2[a1, a1, a1, a3, 
     SP[a2, a2], n] + S2[a1, a1, a1, SP[a2, a2], a3, n] - 
    S2[a1, a1, a1, SP[a2, a3], a2, n] - S2[a3, n]*S2[a1, a1, a2, a1, a2, n] - 
    S2[a1, a1, a2, a1, SP[a2, a3], n] - S2[a1, a1, a2, SP[a1, a3], a2, n] + 
    S2[a2, n]*S2[a1, a1, a3, a1, a2, n] + S2[a1, a1, a3, a1, SP[a2, a2], n] + 
    S2[a1, a1, a3, SP[a1, a2], a2, n] + S2[a1, a1, SP[a1, a2], a2, a3, n] + 
    S2[a1, a1, SP[a1, a2], a3, a2, n] - 2*S2[a1, a1, SP[a1, a3], a2, a2, n] - 
    S2[a3, n]*S2[a1, a2, a1, a1, a2, n] - S2[a1, a2, a1, a1, SP[a2, a3], n] - 
    S2[a1, a2, a1, SP[a1, a3], a2, n] - S2[a1, a2, SP[a1, a3], a1, a2, n] + 
    S2[a2, n]*S2[a1, a3, a1, a1, a2, n] + S2[a1, a3, a1, a1, SP[a2, a2], n] + 
    S2[a1, a3, a1, SP[a1, a2], a2, n] + S2[a1, a3, SP[a1, a2], a1, a2, n] + 
    S2[a1, SP[a1, a2], a1, a2, a3, n] + S2[a1, SP[a1, a2], a1, a3, a2, n] + 
    S2[a1, SP[a1, a2], a3, a1, a2, n] - 2*S2[a1, SP[a1, a3], a1, a2, a2, n] - 
    S2[a1, SP[a1, a3], a2, a1, a2, n] - S2[a2, a1, a1, a1, SP[a2, a3], n] - 
    S2[a2, a1, a1, SP[a1, a3], a2, n] - S2[a2, a1, SP[a1, a3], a1, a2, n] - 
    S2[a2, SP[a1, a3], a1, a1, a2, n] + S2[a2, n]*S2[a3, a1, a1, a1, a2, n] + 
    S2[a3, a1, a1, a1, SP[a2, a2], n] + S2[a3, a1, a1, SP[a1, a2], a2, n] + 
    S2[a3, a1, SP[a1, a2], a1, a2, n] + S2[a3, SP[a1, a2], a1, a1, a2, n] + 
    S2[SP[a1, a1], a2, a1, a3, a2, n] + S2[SP[a1, a1], a2, a3, a1, a2, n] + 
    S2[SP[a1, a2], a1, a1, a2, a3, n] - 2*S2[SP[a1, a3], a1, a1, a2, a2, n] - 
    S2[SP[a1, a3], a1, a2, a1, a2, n] - S2[SP[a1, a3], a2, a1, a1, a2, n] + 
    S2[SP[a2, a3], a1, a1, a1, a2, n] - S2[a3, a2, a1, a1, a1, a2, n] /; 
   a1 != a2 != a3, S2[a2_, a1_, a1_, a1_, a3_, a2_, n_] :> 
  S2[a1, a1, a2, n]*S2[a1, a3, a2, n] + S2[SP[a1, a1], SP[a1, a3], 
     SP[a2, a2], n] + S2[a2, a3, n]*S2[a1, a1, a1, a2, n] - 
    S2[a1, a2, n]*S2[a1, a1, a3, a2, n] - S2[a1, a1, SP[a1, a2], SP[a2, a3], 
     n] - S2[a1, a1, SP[a1, a3], SP[a2, a2], n] - S2[a1, SP[a1, a2], a1, 
     SP[a2, a3], n] - S2[a1, SP[a1, a2], SP[a1, a3], a2, n] - 
    S2[a1, SP[a1, a3], a1, SP[a2, a2], n] - S2[a1, SP[a1, a3], SP[a1, a2], 
     a2, n] - S2[SP[a1, a1], a3, a1, SP[a2, a2], n] - 
    S2[SP[a1, a1], a3, SP[a1, a2], a2, n] + S2[SP[a1, a1], SP[a1, a2], a3, 
     a2, n] - 2*S2[SP[a1, a1], SP[a1, a3], a2, a2, n] - 
    S2[SP[a1, a2], a1, a1, SP[a2, a3], n] - S2[SP[a1, a2], a1, SP[a1, a3], 
     a2, n] - S2[SP[a1, a2], SP[a1, a3], a1, a2, n] - 
    S2[a2, n]*S2[a1, a1, a1, a2, a3, n] + S2[a1, a1, a2, a1, SP[a2, a3], n] + 
    S2[a1, a1, a2, SP[a1, a3], a2, n] - S2[a2, n]*S2[a1, a1, a3, a1, a2, n] + 
    2*S2[a1, a1, SP[a1, a3], a2, a2, n] - S2[a1, a1, SP[a2, a3], a1, a2, n] + 
    S2[a1, a2, a1, a1, SP[a2, a3], n] + S2[a1, a2, a1, SP[a1, a3], a2, n] + 
    S2[a1, a2, SP[a1, a3], a1, a2, n] - S2[a2, n]*S2[a1, a3, a1, a1, a2, n] + 
    2*S2[a1, SP[a1, a3], a1, a2, a2, n] + S2[a1, SP[a1, a3], a2, a1, a2, n] - 
    S2[a1, SP[a2, a3], a1, a1, a2, n] + S2[a2, a1, a1, a1, SP[a2, a3], n] + 
    S2[a2, a1, a1, SP[a1, a3], a2, n] + S2[a2, a1, SP[a1, a3], a1, a2, n] + 
    S2[a2, SP[a1, a3], a1, a1, a2, n] - S2[a2, n]*S2[a3, a1, a1, a1, a2, n] - 
    S2[a3, a1, a1, a1, SP[a2, a2], n] - S2[a3, a1, a1, SP[a1, a2], a2, n] - 
    S2[a3, a1, SP[a1, a2], a1, a2, n] - S2[a3, SP[a1, a2], a1, a1, a2, n] - 
    S2[SP[a1, a1], a2, a1, a3, a2, n] + 2*S2[SP[a1, a1], a3, a1, a2, a2, n] + 
    S2[SP[a1, a1], a3, a2, a1, a2, n] + S2[SP[a1, a2], a1, a1, a3, a2, n] - 
    S2[SP[a2, a3], a1, a1, a1, a2, n] + 2*S2[a3, a1, a1, a1, a2, a2, n] + 
    S2[a3, a1, a1, a2, a1, a2, n] + S2[a3, a1, a2, a1, a1, a2, n] + 
    S2[a3, a2, a1, a1, a1, a2, n] /; a1 != a2 != a3, 
 S2[a2_, a1_, a1_, a2_, a1_, a3_, n_] :> 
  -(S2[a1, a1, a2, n]*S2[a1, a2, a3, n]) - S2[a1, a1, a2, n]*
     S2[a1, a3, a2, n] - S2[SP[a1, a1], SP[a1, a2], SP[a2, a3], n] - 
    S2[SP[a1, a1], SP[a1, a3], SP[a2, a2], n] + 
    S2[a1, a2, n]*S2[a1, a1, a2, a3, n] + S2[a1, a2, n]*
     S2[a1, a1, a3, a2, n] + S2[a1, a1, SP[a1, a2], SP[a2, a3], n] + 
    S2[a1, a1, SP[a1, a3], SP[a2, a2], n] - 
    (S2[a1, a2, n]*S2[a1, a2, a1, a3, n])/2 + 
    S2[a1, a2, SP[a1, a1], SP[a2, a3], n]/2 + 
    (S2[a1, a2, n]*S2[a1, a3, a1, a2, n])/2 - 
    S2[a1, a3, SP[a1, a1], SP[a2, a2], n]/2 + 
    (3*S2[a1, SP[a1, a2], a1, SP[a2, a3], n])/2 + 
    S2[a1, SP[a1, a2], SP[a1, a2], a3, n]/2 + S2[a1, SP[a1, a2], SP[a1, a3], 
     a2, n] + S2[a1, SP[a1, a3], a1, SP[a2, a2], n]/2 + 
    S2[a1, SP[a1, a3], SP[a1, a2], a2, n]/2 + 
    (3*S2[SP[a1, a1], a2, a1, SP[a2, a3], n])/2 + 
    S2[SP[a1, a1], a2, SP[a1, a2], a3, n]/2 + S2[SP[a1, a1], a2, SP[a1, a3], 
     a2, n] + S2[SP[a1, a1], a3, a1, SP[a2, a2], n]/2 + 
    S2[SP[a1, a1], a3, SP[a1, a2], a2, n]/2 + 
    2*S2[SP[a1, a1], SP[a1, a3], a2, a2, n] + 
    S2[SP[a1, a1], SP[a2, a2], a1, a3, n]/2 - 
    S2[SP[a1, a1], SP[a2, a3], a1, a2, n]/2 + 
    S2[a2, n]*S2[a1, a1, a2, a1, a3, n] - S2[a1, a1, a2, a1, SP[a2, a3], n] - 
    S2[a1, a1, a2, SP[a1, a3], a2, n] - 2*S2[a1, a1, SP[a1, a3], a2, a2, n] + 
    S2[a1, a1, SP[a2, a3], a1, a2, n] + S2[a3, n]*S2[a1, a2, a1, a1, a2, n] - 
    S2[a1, a2, a1, a1, SP[a2, a3], n] - S2[a1, a2, a1, SP[a1, a2], a3, n]/2 - 
    S2[a1, a2, a1, SP[a1, a3], a2, n]/2 - S2[a1, a2, SP[a1, a1], a2, a3, n]/
     2 - S2[a1, a2, SP[a1, a1], a3, a2, n]/2 + S2[a1, a3, SP[a1, a1], a2, a2, 
     n] - S2[a1, a3, SP[a1, a2], a1, a2, n] - 
    S2[a1, SP[a1, a2], a1, a2, a3, n]/2 - S2[a1, SP[a1, a2], a1, a3, a2, n]/
     2 - S2[a1, SP[a1, a2], a3, a1, a2, n]/2 - S2[a1, SP[a1, a3], a1, a2, a2, 
     n] - S2[a1, SP[a1, a3], a2, a1, a2, n]/2 + S2[a1, SP[a2, a3], a1, a1, 
     a2, n] - S2[SP[a1, a1], a2, a1, a2, a3, n]/2 - 
    S2[SP[a1, a1], a2, a1, a3, a2, n]/2 - S2[SP[a1, a1], a2, a2, a1, a3, n] - 
    S2[SP[a1, a1], a2, a3, a1, a2, n]/2 - S2[SP[a1, a1], a3, a1, a2, a2, n] - 
    S2[SP[a1, a1], a3, a2, a1, a2, n]/2 + S2[SP[a1, a2], a1, a2, a1, a3, n] + 
    S2[SP[a1, a3], a2, a1, a1, a2, n] - S2[a3, a1, a2, a1, a1, a2, n] /; 
   a1 != a2 != a3, S2[a2_, a1_, a1_, a2_, a3_, a1_, n_] :> 
  S2[a1, a1, a2, n]*S2[a1, a3, a2, n] + S2[SP[a1, a1], SP[a1, a3], 
     SP[a2, a2], n] + S2[a1, a2, n]*S2[a1, a1, a2, a3, n] - 
    S2[a1, a2, n]*S2[a1, a1, a3, a2, n] - S2[a1, a1, SP[a1, a2], SP[a2, a3], 
     n] - S2[a1, a1, SP[a1, a3], SP[a2, a2], n] + 
    (S2[a1, a2, n]*S2[a1, a2, a1, a3, n])/2 - 
    S2[a1, a2, SP[a1, a1], SP[a2, a3], n]/2 - 
    (S2[a1, a2, n]*S2[a1, a3, a1, a2, n])/2 + 
    S2[a1, a3, SP[a1, a1], SP[a2, a2], n]/2 - S2[a1, SP[a1, a1], a2, 
     SP[a2, a3], n] - S2[a1, SP[a1, a1], SP[a2, a2], a3, n] - 
    S2[a1, SP[a1, a2], a1, SP[a2, a3], n]/2 - 
    S2[a1, SP[a1, a2], SP[a1, a2], a3, n]/2 - 
    S2[a1, SP[a1, a3], a1, SP[a2, a2], n]/2 - 
    S2[a1, SP[a1, a3], SP[a1, a2], a2, n]/2 - S2[SP[a1, a1], a1, a2, 
     SP[a2, a3], n] - S2[SP[a1, a1], a1, SP[a2, a2], a3, n] - 
    S2[SP[a1, a1], a2, a1, SP[a2, a3], n]/2 - 
    S2[SP[a1, a1], a2, SP[a1, a2], a3, n]/2 - 
    S2[SP[a1, a1], a3, a1, SP[a2, a2], n]/2 - 
    S2[SP[a1, a1], a3, SP[a1, a2], a2, n]/2 - S2[SP[a1, a1], SP[a1, a2], a2, 
     a3, n] + S2[SP[a1, a1], SP[a1, a2], a3, a2, n] - 
    2*S2[SP[a1, a1], SP[a1, a3], a2, a2, n] - 
    S2[SP[a1, a1], SP[a2, a2], a1, a3, n]/2 + 
    S2[SP[a1, a1], SP[a2, a3], a1, a2, n]/2 - 
    3*S2[a2, n]*S2[a1, a1, a1, a2, a3, n] - 
    S2[a2, n]*S2[a1, a1, a2, a1, a3, n] + S2[a1, a1, a2, a1, SP[a2, a3], n] + 
    S2[a1, a1, a2, SP[a1, a3], a2, n] + 2*S2[a1, a1, SP[a1, a3], a2, a2, n] - 
    S2[a1, a1, SP[a2, a3], a1, a2, n] + S2[a1, a2, a1, a1, SP[a2, a3], n] + 
    S2[a1, a2, a1, SP[a1, a2], a3, n]/2 + S2[a1, a2, a1, SP[a1, a3], a2, n]/
     2 + S2[a1, a2, SP[a1, a1], a2, a3, n]/2 + 
    S2[a1, a2, SP[a1, a1], a3, a2, n]/2 - S2[a1, a3, SP[a1, a1], a2, a2, n] + 
    S2[a1, a3, SP[a1, a2], a1, a2, n] + 2*S2[a1, SP[a1, a1], a2, a2, a3, n] + 
    S2[a1, SP[a1, a1], a2, a3, a2, n] - (3*S2[a1, SP[a1, a2], a1, a2, a3, n])/
     2 - S2[a1, SP[a1, a2], a1, a3, a2, n]/2 - 
    S2[a1, SP[a1, a2], a3, a1, a2, n]/2 + S2[a1, SP[a1, a3], a1, a2, a2, n] + 
    S2[a1, SP[a1, a3], a2, a1, a2, n]/2 + 
    S2[a1, n]*S2[a2, a1, a1, a2, a3, n] + S2[a2, a1, a1, a2, SP[a1, a3], n] + 
    S2[a2, a1, a1, SP[a1, a2], a3, n] + S2[a2, a1, SP[a1, a1], a2, a3, n] + 
    S2[a2, SP[a1, a1], a1, a2, a3, n] - S2[a1, n]*S2[a3, a2, a1, a1, a2, n] - 
    S2[a3, a2, a1, a1, SP[a1, a2], n] - S2[a3, a2, a1, SP[a1, a1], a2, n] - 
    S2[a3, a2, SP[a1, a1], a1, a2, n] - S2[a3, SP[a1, a2], a1, a1, a2, n] + 
    2*S2[SP[a1, a1], a1, a2, a2, a3, n] + S2[SP[a1, a1], a1, a2, a3, a2, n] + 
    (3*S2[SP[a1, a1], a2, a1, a2, a3, n])/2 - 
    S2[SP[a1, a1], a2, a1, a3, a2, n]/2 + S2[SP[a1, a1], a2, a2, a1, a3, n] - 
    S2[SP[a1, a1], a2, a3, a1, a2, n]/2 + S2[SP[a1, a1], a3, a1, a2, a2, n] + 
    S2[SP[a1, a1], a3, a2, a1, a2, n]/2 - 
    2*S2[SP[a1, a2], a1, a1, a2, a3, n] - S2[SP[a1, a2], a1, a2, a1, a3, n] - 
    S2[SP[a1, a3], a2, a1, a1, a2, n] + S2[a3, a1, a2, a1, a1, a2, n] + 
    3*S2[a3, a2, a1, a1, a1, a2, n] + S2[a3, a2, a1, a1, a2, a1, n] /; 
   a1 != a2 != a3, S2[a2_, a1_, a1_, a3_, a1_, a2_, n_] :> 
  -(S2[a1, a1, a2, n]*S2[a1, a2, a3, n]) - S2[a1, a1, a2, n]*
     S2[a1, a3, a2, n] - S2[SP[a1, a1], SP[a1, a2], SP[a2, a3], n] - 
    S2[SP[a1, a1], SP[a1, a3], SP[a2, a2], n] + 
    2*S2[a1, a1, SP[a1, a2], SP[a2, a3], n] + 
    2*S2[a1, a1, SP[a1, a3], SP[a2, a2], n] - 
    S2[a1, a2, n]*S2[a1, a3, a1, a2, n] + S2[a1, a3, SP[a1, a1], SP[a2, a2], 
     n] + S2[a1, SP[a1, a1], a2, SP[a2, a3], n] + S2[a1, SP[a1, a1], a3, 
     SP[a2, a2], n] + S2[a1, SP[a1, a1], SP[a2, a2], a3, n] + 
    S2[a1, SP[a1, a1], SP[a2, a3], a2, n] + S2[a1, SP[a1, a2], a1, 
     SP[a2, a3], n] + S2[a1, SP[a1, a2], SP[a1, a3], a2, n] + 
    2*S2[a1, SP[a1, a3], a1, SP[a2, a2], n] + 
    2*S2[a1, SP[a1, a3], SP[a1, a2], a2, n] + S2[SP[a1, a1], a1, a2, 
     SP[a2, a3], n] + S2[SP[a1, a1], a1, a3, SP[a2, a2], n] + 
    S2[SP[a1, a1], a1, SP[a2, a2], a3, n] + S2[SP[a1, a1], a1, SP[a2, a3], 
     a2, n] + S2[SP[a1, a1], a2, a1, SP[a2, a3], n] + 
    S2[SP[a1, a1], a2, SP[a1, a3], a2, n] + 
    2*S2[SP[a1, a1], a3, a1, SP[a2, a2], n] + 
    2*S2[SP[a1, a1], a3, SP[a1, a2], a2, n] + S2[SP[a1, a1], SP[a1, a2], a2, 
     a3, n] + S2[SP[a1, a1], SP[a1, a2], a3, a2, n] + 
    2*S2[SP[a1, a1], SP[a1, a3], a2, a2, n] + S2[SP[a1, a1], SP[a2, a3], a1, 
     a2, n] + 6*S2[a3, n]*S2[a1, a1, a1, a2, a2, n] + 
    3*S2[a1, a1, a1, a2, SP[a2, a3], n] - 
    3*S2[a1, a1, a1, a3, SP[a2, a2], n] - 
    3*S2[a1, a1, a1, SP[a2, a2], a3, n] + 
    3*S2[a1, a1, a1, SP[a2, a3], a2, n] + 
    3*S2[a3, n]*S2[a1, a1, a2, a1, a2, n] + S2[a1, a1, a2, a1, SP[a2, a3], 
     n] + S2[a1, a1, a2, SP[a1, a3], a2, n] + 
    S2[a2, n]*S2[a1, a1, a3, a1, a2, n] - 
    3*S2[a1, a1, a3, a1, SP[a2, a2], n] - 
    3*S2[a1, a1, a3, SP[a1, a2], a2, n] - 
    3*S2[a1, a1, SP[a1, a2], a2, a3, n] - 
    3*S2[a1, a1, SP[a1, a2], a3, a2, n] + 
    2*S2[a1, a1, SP[a1, a3], a2, a2, n] + 
    2*S2[a1, a1, SP[a2, a3], a1, a2, n] + 
    S2[a3, n]*S2[a1, a2, a1, a1, a2, n] - 
    3*S2[a1, a3, a1, a1, SP[a2, a2], n] - 
    3*S2[a1, a3, a1, SP[a1, a2], a2, n] - 
    2*S2[a1, a3, SP[a1, a1], a2, a2, n] - S2[a1, a3, SP[a1, a2], a1, a2, n] - 
    2*S2[a1, SP[a1, a1], a2, a2, a3, n] - 
    2*S2[a1, SP[a1, a1], a2, a3, a2, n] - 
    2*S2[a1, SP[a1, a1], a3, a2, a2, n] - S2[a1, SP[a1, a2], a1, a2, a3, n] - 
    S2[a1, SP[a1, a2], a1, a3, a2, n] - S2[a1, SP[a1, a2], a3, a1, a2, n] + 
    2*S2[a1, SP[a1, a3], a1, a2, a2, n] + S2[a1, SP[a1, a3], a2, a1, a2, n] + 
    S2[a1, SP[a2, a3], a1, a1, a2, n] - 2*S2[SP[a1, a1], a1, a2, a2, a3, n] - 
    2*S2[SP[a1, a1], a1, a2, a3, a2, n] - 
    2*S2[SP[a1, a1], a1, a3, a2, a2, n] - S2[SP[a1, a1], a2, a1, a2, a3, n] - 
    S2[SP[a1, a1], a2, a1, a3, a2, n] - 2*S2[SP[a1, a1], a2, a3, a1, a2, n] - 
    4*S2[SP[a1, a1], a3, a1, a2, a2, n] - 
    2*S2[SP[a1, a1], a3, a2, a1, a2, n] + S2[SP[a1, a2], a1, a3, a1, a2, n] + 
    6*S2[SP[a1, a3], a1, a1, a2, a2, n] + 
    3*S2[SP[a1, a3], a1, a2, a1, a2, n] + S2[SP[a1, a3], a2, a1, a1, a2, n] - 
    6*S2[a3, a1, a1, a1, a2, a2, n] - 3*S2[a3, a1, a1, a2, a1, a2, n] - 
    S2[a3, a1, a2, a1, a1, a2, n] /; a1 != a2 != a3, 
 S2[a2_, a1_, a1_, a3_, a2_, a1_, n_] :> 
  S2[a1, a1, a2, n]*S2[a1, a2, a3, n] + S2[SP[a1, a1], SP[a1, a2], 
     SP[a2, a3], n] + 2*S2[a1, a2, n]*S2[a1, a1, a3, a2, n] - 
    2*S2[a1, a1, SP[a1, a2], SP[a2, a3], n] - 
    2*S2[a1, a1, SP[a1, a3], SP[a2, a2], n] + 
    S2[a1, a2, n]*S2[a1, a3, a1, a2, n] - S2[a1, a3, SP[a1, a1], SP[a2, a2], 
     n] - S2[a1, SP[a1, a1], a2, SP[a2, a3], n] - 
    2*S2[a1, SP[a1, a1], a3, SP[a2, a2], n] - S2[a1, SP[a1, a1], SP[a2, a2], 
     a3, n] - 2*S2[a1, SP[a1, a1], SP[a2, a3], a2, n] - 
    S2[a1, SP[a1, a2], a1, SP[a2, a3], n] - S2[a1, SP[a1, a2], SP[a1, a3], 
     a2, n] - S2[a1, SP[a1, a3], a1, SP[a2, a2], n] - 
    S2[a1, SP[a1, a3], SP[a1, a2], a2, n] - S2[SP[a1, a1], a1, a2, 
     SP[a2, a3], n] - 2*S2[SP[a1, a1], a1, a3, SP[a2, a2], n] - 
    S2[SP[a1, a1], a1, SP[a2, a2], a3, n] - 
    2*S2[SP[a1, a1], a1, SP[a2, a3], a2, n] - S2[SP[a1, a1], a2, a1, 
     SP[a2, a3], n] - S2[SP[a1, a1], a2, SP[a1, a3], a2, n] - 
    S2[SP[a1, a1], a3, a1, SP[a2, a2], n] - S2[SP[a1, a1], a3, SP[a1, a2], 
     a2, n] - S2[SP[a1, a1], SP[a1, a2], a2, a3, n] - 
    3*S2[SP[a1, a1], SP[a1, a2], a3, a2, n] - S2[SP[a1, a1], SP[a2, a3], a1, 
     a2, n] - 6*S2[a3, n]*S2[a1, a1, a1, a2, a2, n] - 
    3*S2[a1, a1, a1, a2, SP[a2, a3], n] - 
    3*S2[a2, n]*S2[a1, a1, a1, a3, a2, n] + 
    3*S2[a1, a1, a1, a3, SP[a2, a2], n] + 
    3*S2[a1, a1, a1, SP[a2, a2], a3, n] - 
    3*S2[a1, a1, a1, SP[a2, a3], a2, n] - 
    3*S2[a3, n]*S2[a1, a1, a2, a1, a2, n] - S2[a1, a1, a2, a1, SP[a2, a3], 
     n] - S2[a1, a1, a2, SP[a1, a3], a2, n] - 
    S2[a2, n]*S2[a1, a1, a3, a1, a2, n] + 
    3*S2[a1, a1, a3, a1, SP[a2, a2], n] + 
    3*S2[a1, a1, a3, SP[a1, a2], a2, n] + 
    3*S2[a1, a1, SP[a1, a2], a2, a3, n] + 
    3*S2[a1, a1, SP[a1, a2], a3, a2, n] - 
    2*S2[a1, a1, SP[a1, a3], a2, a2, n] - 
    2*S2[a1, a1, SP[a2, a3], a1, a2, n] - 
    S2[a3, n]*S2[a1, a2, a1, a1, a2, n] + 
    2*S2[a1, a3, a1, a1, SP[a2, a2], n] + 
    2*S2[a1, a3, a1, SP[a1, a2], a2, n] + 
    2*S2[a1, a3, SP[a1, a1], a2, a2, n] + 
    2*S2[a1, SP[a1, a1], a2, a2, a3, n] + 
    3*S2[a1, SP[a1, a1], a2, a3, a2, n] + 
    4*S2[a1, SP[a1, a1], a3, a2, a2, n] + S2[a1, SP[a1, a2], a1, a2, a3, n] + 
    S2[a1, SP[a1, a2], a3, a1, a2, n] - 4*S2[a1, SP[a1, a3], a1, a2, a2, n] - 
    2*S2[a1, SP[a1, a3], a2, a1, a2, n] - S2[a1, SP[a2, a3], a1, a1, a2, n] + 
    S2[a1, n]*S2[a2, a1, a1, a3, a2, n] + S2[a2, a1, a1, a3, SP[a1, a2], n] + 
    S2[a2, a1, a1, SP[a1, a3], a2, n] + S2[a2, a1, SP[a1, a1], a3, a2, n] + 
    S2[a2, SP[a1, a1], a1, a3, a2, n] + 2*S2[a1, n]*
     S2[a3, a1, a1, a2, a2, n] + 2*S2[a3, a1, a1, a2, SP[a1, a2], n] + 
    2*S2[a3, a1, a1, SP[a1, a2], a2, n] + 
    S2[a1, n]*S2[a3, a1, a2, a1, a2, n] + S2[a3, a1, a2, a1, SP[a1, a2], n] + 
    S2[a3, a1, a2, SP[a1, a1], a2, n] + 2*S2[a3, a1, SP[a1, a1], a2, a2, n] + 
    S2[a3, a1, SP[a1, a2], a1, a2, n] + S2[a1, n]*S2[a3, a2, a1, a1, a2, n] + 
    S2[a3, a2, a1, a1, SP[a1, a2], n] + S2[a3, a2, a1, SP[a1, a1], a2, n] + 
    S2[a3, a2, SP[a1, a1], a1, a2, n] + 2*S2[a3, SP[a1, a1], a1, a2, a2, n] + 
    S2[a3, SP[a1, a1], a2, a1, a2, n] + S2[a3, SP[a1, a2], a1, a1, a2, n] + 
    2*S2[SP[a1, a1], a1, a2, a2, a3, n] + 
    3*S2[SP[a1, a1], a1, a2, a3, a2, n] + 
    4*S2[SP[a1, a1], a1, a3, a2, a2, n] + S2[SP[a1, a1], a2, a1, a2, a3, n] + 
    3*S2[SP[a1, a1], a2, a1, a3, a2, n] + 
    2*S2[SP[a1, a1], a2, a3, a1, a2, n] + 
    2*S2[SP[a1, a1], a3, a1, a2, a2, n] + S2[SP[a1, a1], a3, a2, a1, a2, n] - 
    2*S2[SP[a1, a2], a1, a1, a3, a2, n] - S2[SP[a1, a2], a1, a3, a1, a2, n] - 
    4*S2[SP[a1, a3], a1, a1, a2, a2, n] - 
    2*S2[SP[a1, a3], a1, a2, a1, a2, n] - S2[a3, a1, a1, a2, a1, a2, n] - 
    2*S2[a3, a1, a1, a2, a2, a1, n] - 2*S2[a3, a1, a2, a1, a1, a2, n] - 
    S2[a3, a1, a2, a1, a2, a1, n] - 3*S2[a3, a2, a1, a1, a1, a2, n] - 
    S2[a3, a2, a1, a1, a2, a1, n] /; a1 != a2 != a3, 
 S2[a2_, a1_, a2_, a1_, a1_, a3_, n_] :> 
  -2*S2[a1, a1, a3, n]*S2[a1, a2, a2, n] - 
    2*S2[SP[a1, a1], SP[a1, a2], SP[a2, a3], n] + 
    2*S2[a1, a3, n]*S2[a1, a1, a2, a2, n] + 
    2*S2[a1, a1, SP[a1, a2], SP[a2, a3], n] + 
    (S2[a1, a2, n]*S2[a1, a2, a1, a3, n])/2 - 
    S2[a1, a2, SP[a1, a1], SP[a2, a3], n]/2 - 
    (S2[a1, a2, n]*S2[a1, a3, a1, a2, n])/2 + 
    S2[a1, a3, SP[a1, a1], SP[a2, a2], n]/2 + 
    (3*S2[a1, SP[a1, a2], a1, SP[a2, a3], n])/2 + 
    (3*S2[a1, SP[a1, a2], SP[a1, a2], a3, n])/2 + 
    S2[a1, SP[a1, a3], a1, SP[a2, a2], n]/2 + 
    S2[a1, SP[a1, a3], SP[a1, a2], a2, n]/2 + 
    (3*S2[SP[a1, a1], a2, a1, SP[a2, a3], n])/2 + 
    (3*S2[SP[a1, a1], a2, SP[a1, a2], a3, n])/2 + 
    S2[SP[a1, a1], a3, a1, SP[a2, a2], n]/2 + 
    S2[SP[a1, a1], a3, SP[a1, a2], a2, n]/2 + 
    2*S2[SP[a1, a1], SP[a1, a2], a2, a3, n] + 
    2*S2[SP[a1, a1], SP[a1, a2], a3, a2, n] - 
    2*S2[SP[a1, a1], SP[a1, a3], a2, a2, n] - 
    S2[SP[a1, a1], SP[a2, a2], a1, a3, n]/2 + 
    S2[SP[a1, a1], SP[a2, a3], a1, a2, n]/2 + 
    S2[a3, n]*S2[a1, a1, a2, a1, a2, n] - S2[a1, a1, a2, SP[a1, a2], a3, n] + 
    S2[a1, a1, a2, SP[a1, a3], a2, n] - S2[a1, a1, a3, a1, SP[a2, a2], n] - 
    S2[a1, a1, a3, SP[a1, a2], a2, n] - 2*S2[a1, a1, SP[a1, a2], a2, a3, n] - 
    2*S2[a1, a1, SP[a1, a2], a3, a2, n] + 
    2*S2[a1, a1, SP[a1, a3], a2, a2, n] + S2[a1, a1, SP[a2, a2], a1, a3, n] + 
    S2[a2, n]*S2[a1, a2, a1, a1, a3, n] - S2[a1, a2, a1, SP[a1, a2], a3, n]/
     2 + S2[a1, a2, a1, SP[a1, a3], a2, n]/2 + 
    S2[a1, a2, SP[a1, a1], a2, a3, n]/2 + S2[a1, a2, SP[a1, a1], a3, a2, n]/
     2 - S2[a1, a2, SP[a1, a2], a1, a3, n] - S2[a1, a3, a1, a1, SP[a2, a2], 
     n] - S2[a1, a3, a1, SP[a1, a2], a2, n] - S2[a1, a3, SP[a1, a1], a2, a2, 
     n] - (3*S2[a1, SP[a1, a2], a1, a2, a3, n])/2 - 
    (3*S2[a1, SP[a1, a2], a1, a3, a2, n])/2 - S2[a1, SP[a1, a2], a2, a1, a3, 
     n] - S2[a1, SP[a1, a2], a3, a1, a2, n]/2 + S2[a1, SP[a1, a3], a1, a2, 
     a2, n] + S2[a1, SP[a1, a3], a2, a1, a2, n]/2 + 
    S2[a1, SP[a2, a2], a1, a1, a3, n] - (3*S2[SP[a1, a1], a2, a1, a2, a3, n])/
     2 - (3*S2[SP[a1, a1], a2, a1, a3, a2, n])/2 - 
    S2[SP[a1, a1], a2, a2, a1, a3, n] - S2[SP[a1, a1], a2, a3, a1, a2, n]/2 + 
    S2[SP[a1, a1], a3, a1, a2, a2, n] - S2[SP[a1, a1], a3, a2, a1, a2, n]/2 + 
    S2[SP[a1, a2], a2, a1, a1, a3, n] + S2[SP[a1, a3], a1, a2, a1, a2, n] - 
    S2[a3, a1, a1, a2, a1, a2, n] /; a1 != a2 != a3, 
 S2[a2_, a1_, a2_, a1_, a3_, a1_, n_] :> 
  4*S2[a1, a1, a3, n]*S2[a1, a2, a2, n] + 
    4*S2[SP[a1, a1], SP[a1, a2], SP[a2, a3], n] - 
    2*S2[a1, a3, n]*S2[a1, a1, a2, a2, n] - S2[a1, a2, n]*
     S2[a1, a1, a2, a3, n] - S2[a1, a2, n]*S2[a1, a1, a3, a2, n] - 
    5*S2[a1, a1, SP[a1, a2], SP[a2, a3], n] + S2[a1, a1, SP[a1, a3], 
     SP[a2, a2], n] - (S2[a1, a2, n]*S2[a1, a2, a1, a3, n])/2 + 
    S2[a1, a2, SP[a1, a1], SP[a2, a3], n]/2 + 
    (S2[a1, a2, n]*S2[a1, a3, a1, a2, n])/2 - 
    S2[a1, a3, SP[a1, a1], SP[a2, a2], n]/2 - S2[a1, SP[a1, a1], a2, 
     SP[a2, a3], n] + S2[a1, SP[a1, a1], a3, SP[a2, a2], n] + 
    S2[a1, SP[a1, a1], SP[a2, a2], a3, n] - S2[a1, SP[a1, a1], SP[a2, a3], 
     a2, n] - (7*S2[a1, SP[a1, a2], a1, SP[a2, a3], n])/2 - 
    (7*S2[a1, SP[a1, a2], SP[a1, a2], a3, n])/2 - 
    S2[a1, SP[a1, a3], a1, SP[a2, a2], n]/2 - 
    S2[a1, SP[a1, a3], SP[a1, a2], a2, n]/2 - S2[SP[a1, a1], a1, a2, 
     SP[a2, a3], n] + S2[SP[a1, a1], a1, a3, SP[a2, a2], n] + 
    S2[SP[a1, a1], a1, SP[a2, a2], a3, n] - S2[SP[a1, a1], a1, SP[a2, a3], 
     a2, n] - (7*S2[SP[a1, a1], a2, a1, SP[a2, a3], n])/2 - 
    (7*S2[SP[a1, a1], a2, SP[a1, a2], a3, n])/2 - 
    S2[SP[a1, a1], a3, a1, SP[a2, a2], n]/2 - 
    S2[SP[a1, a1], a3, SP[a1, a2], a2, n]/2 - 
    3*S2[SP[a1, a1], SP[a1, a2], a2, a3, n] - 
    3*S2[SP[a1, a1], SP[a1, a2], a3, a2, n] + 
    2*S2[SP[a1, a1], SP[a1, a3], a2, a2, n] + 
    S2[SP[a1, a1], SP[a2, a2], a1, a3, n]/2 - 
    S2[SP[a1, a1], SP[a2, a3], a1, a2, n]/2 + 
    3*S2[a1, a1, a1, a2, SP[a2, a3], n] - 
    3*S2[a1, a1, a1, a3, SP[a2, a2], n] - 
    3*S2[a1, a1, a1, SP[a2, a2], a3, n] + 
    3*S2[a1, a1, a1, SP[a2, a3], a2, n] - 
    2*S2[a2, n]*S2[a1, a1, a2, a1, a3, n] + 
    2*S2[a1, a1, a2, a1, SP[a2, a3], n] + 
    3*S2[a1, a1, a2, SP[a1, a2], a3, n] - S2[a1, a1, a2, SP[a1, a3], a2, n] + 
    3*S2[a1, a1, SP[a1, a2], a2, a3, n] + 
    3*S2[a1, a1, SP[a1, a2], a3, a2, n] - 
    2*S2[a1, a1, SP[a1, a3], a2, a2, n] - 
    3*S2[a1, a1, SP[a2, a2], a1, a3, n] + S2[a1, a1, SP[a2, a3], a1, a2, n] - 
    2*S2[a2, n]*S2[a1, a2, a1, a1, a3, n] + S2[a1, a2, a1, a1, SP[a2, a3], 
     n] + (3*S2[a1, a2, a1, SP[a1, a2], a3, n])/2 - 
    S2[a1, a2, a1, SP[a1, a3], a2, n]/2 - S2[a1, a2, SP[a1, a1], a2, a3, n]/
     2 - S2[a1, a2, SP[a1, a1], a3, a2, n]/2 + 
    2*S2[a1, a2, SP[a1, a2], a1, a3, n] + S2[a1, a3, a1, a1, SP[a2, a2], n] + 
    S2[a1, a3, a1, SP[a1, a2], a2, n] + S2[a1, a3, SP[a1, a1], a2, a2, n] + 
    (5*S2[a1, SP[a1, a2], a1, a2, a3, n])/2 + 
    (5*S2[a1, SP[a1, a2], a1, a3, a2, n])/2 + S2[a1, SP[a1, a2], a2, a1, a3, 
     n] + S2[a1, SP[a1, a2], a3, a1, a2, n]/2 - S2[a1, SP[a1, a3], a1, a2, 
     a2, n] + S2[a1, SP[a1, a3], a2, a1, a2, n]/2 - 
    2*S2[a1, SP[a2, a2], a1, a1, a3, n] + 
    S2[a1, n]*S2[a2, a1, a2, a1, a3, n] + S2[a2, a1, a2, a1, SP[a1, a3], n] + 
    S2[a2, a1, a2, SP[a1, a1], a3, n] + S2[a2, a1, SP[a1, a2], a1, a3, n] + 
    S2[a2, SP[a1, a1], a2, a1, a3, n] - S2[a1, n]*S2[a3, a1, a2, a1, a2, n] - 
    S2[a3, a1, a2, a1, SP[a1, a2], n] - S2[a3, a1, a2, SP[a1, a1], a2, n] - 
    S2[a3, a1, SP[a1, a2], a1, a2, n] - S2[a3, SP[a1, a1], a2, a1, a2, n] + 
    (5*S2[SP[a1, a1], a2, a1, a2, a3, n])/2 + 
    (5*S2[SP[a1, a1], a2, a1, a3, a2, n])/2 + 
    3*S2[SP[a1, a1], a2, a2, a1, a3, n] + S2[SP[a1, a1], a2, a3, a1, a2, n]/
     2 - S2[SP[a1, a1], a3, a1, a2, a2, n] + 
    S2[SP[a1, a1], a3, a2, a1, a2, n]/2 - S2[SP[a1, a2], a1, a2, a1, a3, n] - 
    2*S2[SP[a1, a2], a2, a1, a1, a3, n] - S2[SP[a1, a3], a1, a2, a1, a2, n] + 
    2*S2[a3, a1, a1, a2, a1, a2, n] + 2*S2[a3, a1, a2, a1, a1, a2, n] + 
    S2[a3, a1, a2, a1, a2, a1, n] /; a1 != a2 != a3, 
 S2[a2_, a1_, a2_, a3_, a1_, a1_, n_] :> 
  -2*S2[a1, a1, a3, n]*S2[a1, a2, a2, n] - 
    2*S2[SP[a1, a1], SP[a1, a2], SP[a2, a3], n] + 
    S2[a1, a2, n]*S2[a1, a1, a3, a2, n] + 
    4*S2[a1, a1, SP[a1, a2], SP[a2, a3], n] - S2[a1, a1, SP[a1, a3], 
     SP[a2, a2], n] + 2*S2[a1, SP[a1, a1], a2, SP[a2, a3], n] - 
    S2[a1, SP[a1, a1], a3, SP[a2, a2], n] + S2[a1, SP[a1, a1], SP[a2, a3], 
     a2, n] + 2*S2[a1, SP[a1, a2], a1, SP[a2, a3], n] + 
    2*S2[a1, SP[a1, a2], SP[a1, a2], a3, n] + 
    2*S2[SP[a1, a1], a1, a2, SP[a2, a3], n] - S2[SP[a1, a1], a1, a3, 
     SP[a2, a2], n] + S2[SP[a1, a1], a1, SP[a2, a3], a2, n] + 
    2*S2[SP[a1, a1], a2, a1, SP[a2, a3], n] + 
    2*S2[SP[a1, a1], a2, SP[a1, a2], a3, n] + 
    2*S2[SP[a1, a1], SP[a1, a2], a2, a3, n] + S2[SP[a1, a1], SP[a1, a2], a3, 
     a2, n] + 3*S2[a2, n]*S2[a1, a1, a1, a2, a3, n] - 
    3*S2[a1, a1, a1, a2, SP[a2, a3], n] + 
    3*S2[a1, a1, a1, a3, SP[a2, a2], n] + 
    3*S2[a1, a1, a1, SP[a2, a2], a3, n] - 
    3*S2[a1, a1, a1, SP[a2, a3], a2, n] + 
    2*S2[a2, n]*S2[a1, a1, a2, a1, a3, n] - 
    2*S2[a1, a1, a2, a1, SP[a2, a3], n] - 
    2*S2[a1, a1, a2, SP[a1, a2], a3, n] + S2[a1, a1, a3, a1, SP[a2, a2], n] + 
    S2[a1, a1, a3, SP[a1, a2], a2, n] - S2[a1, a1, SP[a1, a2], a2, a3, n] - 
    2*S2[a1, a1, SP[a1, a2], a3, a2, n] + 
    2*S2[a1, a1, SP[a2, a2], a1, a3, n] + 
    S2[a2, n]*S2[a1, a2, a1, a1, a3, n] - S2[a1, a2, a1, a1, SP[a2, a3], n] - 
    (S2[a1, n]*S2[a1, a2, a1, a2, a3, n])/2 - 
    S2[a1, a2, a1, a2, SP[a1, a3], n]/2 - 
    (3*S2[a1, a2, a1, SP[a1, a2], a3, n])/2 - 
    S2[a1, a2, SP[a1, a1], a2, a3, n]/2 - S2[a1, a2, SP[a1, a2], a1, a3, n] - 
    (S2[a1, n]*S2[a1, a3, a2, a1, a2, n])/2 - 
    S2[a1, a3, a2, a1, SP[a1, a2], n]/2 - S2[a1, a3, a2, SP[a1, a1], a2, n]/
     2 - S2[a1, a3, SP[a1, a2], a1, a2, n]/2 - 
    2*S2[a1, SP[a1, a1], a2, a2, a3, n] - S2[a1, SP[a1, a1], a2, a3, a2, n] + 
    S2[a1, SP[a1, a2], a1, a2, a3, n]/2 - S2[a1, SP[a1, a2], a1, a3, a2, n] - 
    S2[a1, SP[a1, a3], a2, a1, a2, n]/2 + S2[a1, SP[a2, a2], a1, a1, a3, n] - 
    S2[a1, n]*S2[a2, a1, a1, a2, a3, n] - S2[a2, a1, a1, a2, SP[a1, a3], n] - 
    S2[a2, a1, a1, SP[a1, a2], a3, n] - (S2[a1, n]*S2[a2, a1, a2, a1, a3, n])/
     2 - S2[a2, a1, a2, a1, SP[a1, a3], n]/2 + 
    (S2[a1, n]*S2[a2, a1, a2, a3, a1, n])/2 + 
    S2[a2, a1, a2, a3, SP[a1, a1], n]/2 - S2[a2, a1, a2, SP[a1, a1], a3, n]/
     2 + S2[a2, a1, a2, SP[a1, a3], a1, n]/2 - S2[a2, a1, SP[a1, a1], a2, a3, 
     n] - S2[a2, a1, SP[a1, a2], a1, a3, n]/2 + 
    S2[a2, a1, SP[a1, a2], a3, a1, n]/2 - S2[a2, SP[a1, a1], a1, a2, a3, n] - 
    S2[a2, SP[a1, a1], a2, a1, a3, n]/2 + S2[a2, SP[a1, a1], a2, a3, a1, n]/
     2 + (S2[a1, n]*S2[a3, a1, a2, a1, a2, n])/2 + 
    S2[a3, a1, a2, a1, SP[a1, a2], n]/2 + S2[a3, a1, a2, SP[a1, a1], a2, n]/
     2 + S2[a3, a1, SP[a1, a2], a1, a2, n]/2 + 
    S2[a1, n]*S2[a3, a2, a1, a1, a2, n] + S2[a3, a2, a1, a1, SP[a1, a2], n] + 
    (S2[a1, n]*S2[a3, a2, a1, a2, a1, n])/2 + 
    S2[a3, a2, a1, a2, SP[a1, a1], n]/2 + S2[a3, a2, a1, SP[a1, a1], a2, n] + 
    S2[a3, a2, a1, SP[a1, a2], a1, n]/2 + S2[a3, a2, SP[a1, a1], a1, a2, n] + 
    S2[a3, a2, SP[a1, a1], a2, a1, n]/2 + S2[a3, SP[a1, a1], a2, a1, a2, n]/
     2 + S2[a3, SP[a1, a2], a1, a1, a2, n] + 
    S2[a3, SP[a1, a2], a1, a2, a1, n]/2 - 
    2*S2[SP[a1, a1], a1, a2, a2, a3, n] - S2[SP[a1, a1], a1, a2, a3, a2, n] - 
    (5*S2[SP[a1, a1], a2, a1, a2, a3, n])/2 - S2[SP[a1, a1], a2, a1, a3, a2, 
     n] - 2*S2[SP[a1, a1], a2, a2, a1, a3, n] - 
    S2[SP[a1, a1], a3, a2, a1, a2, n]/2 + 
    2*S2[SP[a1, a2], a1, a1, a2, a3, n] + 
    (3*S2[SP[a1, a2], a1, a2, a1, a3, n])/2 + 
    S2[SP[a1, a2], a1, a2, a3, a1, n]/2 + S2[SP[a1, a2], a2, a1, a1, a3, n] + 
    S2[SP[a1, a3], a1, a2, a1, a2, n]/2 + S2[SP[a1, a3], a2, a1, a1, a2, n] + 
    S2[SP[a1, a3], a2, a1, a2, a1, n]/2 - S2[a3, a1, a1, a2, a1, a2, n] - 
    2*S2[a3, a1, a2, a1, a1, a2, n] - S2[a3, a1, a2, a1, a2, a1, n] - 
    3*S2[a3, a2, a1, a1, a1, a2, n] - 2*S2[a3, a2, a1, a1, a2, a1, n] - 
    S2[a3, a2, a1, a2, a1, a1, n] /; a1 != a2 != a3, 
 S2[a2_, a1_, a3_, a1_, a1_, a2_, n_] :> 
  S2[a1, a2, n]*S2[a1, a1, a2, a3, n] + S2[a1, a2, n]*S2[a1, a1, a3, a2, n] - 
    S2[a1, a1, SP[a1, a2], SP[a2, a3], n] - S2[a1, a1, SP[a1, a3], 
     SP[a2, a2], n] + S2[a1, a2, n]*S2[a1, a3, a1, a2, n] - 
    S2[a1, a3, SP[a1, a1], SP[a2, a2], n] - S2[a1, SP[a1, a1], a2, 
     SP[a2, a3], n] - S2[a1, SP[a1, a1], a3, SP[a2, a2], n] - 
    S2[a1, SP[a1, a1], SP[a2, a2], a3, n] - S2[a1, SP[a1, a1], SP[a2, a3], 
     a2, n] - S2[a1, SP[a1, a3], a1, SP[a2, a2], n] - 
    S2[a1, SP[a1, a3], SP[a1, a2], a2, n] - S2[SP[a1, a1], a1, a2, 
     SP[a2, a3], n] - S2[SP[a1, a1], a1, a3, SP[a2, a2], n] - 
    S2[SP[a1, a1], a1, SP[a2, a2], a3, n] - S2[SP[a1, a1], a1, SP[a2, a3], 
     a2, n] - S2[SP[a1, a1], a3, a1, SP[a2, a2], n] - 
    S2[SP[a1, a1], a3, SP[a1, a2], a2, n] - S2[SP[a1, a1], SP[a1, a2], a2, 
     a3, n] - S2[SP[a1, a1], SP[a1, a2], a3, a2, n] - 
    S2[SP[a1, a1], SP[a2, a3], a1, a2, n] - 
    6*S2[a3, n]*S2[a1, a1, a1, a2, a2, n] - 
    3*S2[a1, a1, a1, a2, SP[a2, a3], n] + 
    3*S2[a1, a1, a1, a3, SP[a2, a2], n] + 
    3*S2[a1, a1, a1, SP[a2, a2], a3, n] - 
    3*S2[a1, a1, a1, SP[a2, a3], a2, n] - 
    3*S2[a3, n]*S2[a1, a1, a2, a1, a2, n] - 
    2*S2[a1, a1, a2, a1, SP[a2, a3], n] - 
    2*S2[a1, a1, a2, SP[a1, a3], a2, n] + 
    3*S2[a1, a1, a3, a1, SP[a2, a2], n] + 
    3*S2[a1, a1, a3, SP[a1, a2], a2, n] + 
    3*S2[a1, a1, SP[a1, a2], a2, a3, n] + 
    3*S2[a1, a1, SP[a1, a2], a3, a2, n] - 
    4*S2[a1, a1, SP[a1, a3], a2, a2, n] - S2[a1, a1, SP[a2, a3], a1, a2, n] - 
    S2[a3, n]*S2[a1, a2, a1, a1, a2, n] - S2[a1, a2, a1, a1, SP[a2, a3], n] - 
    S2[a1, a2, a1, SP[a1, a3], a2, n] - S2[a1, a2, SP[a1, a3], a1, a2, n] + 
    S2[a2, n]*S2[a1, a3, a1, a1, a2, n] + 
    3*S2[a1, a3, a1, a1, SP[a2, a2], n] + 
    3*S2[a1, a3, a1, SP[a1, a2], a2, n] + 
    2*S2[a1, a3, SP[a1, a1], a2, a2, n] + S2[a1, a3, SP[a1, a2], a1, a2, n] + 
    2*S2[a1, SP[a1, a1], a2, a2, a3, n] + 
    2*S2[a1, SP[a1, a1], a2, a3, a2, n] + 
    2*S2[a1, SP[a1, a1], a3, a2, a2, n] + S2[a1, SP[a1, a2], a1, a2, a3, n] + 
    S2[a1, SP[a1, a2], a1, a3, a2, n] + S2[a1, SP[a1, a2], a3, a1, a2, n] - 
    4*S2[a1, SP[a1, a3], a1, a2, a2, n] - 
    2*S2[a1, SP[a1, a3], a2, a1, a2, n] + 
    2*S2[SP[a1, a1], a1, a2, a2, a3, n] + 
    2*S2[SP[a1, a1], a1, a2, a3, a2, n] + 
    2*S2[SP[a1, a1], a1, a3, a2, a2, n] + S2[SP[a1, a1], a2, a1, a2, a3, n] + 
    S2[SP[a1, a1], a2, a1, a3, a2, n] + S2[SP[a1, a1], a2, a3, a1, a2, n] + 
    2*S2[SP[a1, a1], a3, a1, a2, a2, n] + S2[SP[a1, a1], a3, a2, a1, a2, n] + 
    S2[SP[a1, a2], a3, a1, a1, a2, n] - 6*S2[SP[a1, a3], a1, a1, a2, a2, n] - 
    3*S2[SP[a1, a3], a1, a2, a1, a2, n] - S2[SP[a1, a3], a2, a1, a1, a2, n] + 
    6*S2[a3, a1, a1, a1, a2, a2, n] + 3*S2[a3, a1, a1, a2, a1, a2, n] + 
    S2[a3, a1, a2, a1, a1, a2, n] /; a1 != a2 != a3, 
 S2[a2_, a1_, a3_, a1_, a2_, a1_, n_] :> 
  -2*S2[a1, a2, n]*S2[a1, a1, a2, a3, n] - 2*S2[a1, a2, n]*
     S2[a1, a1, a3, a2, n] + 2*S2[a1, a1, SP[a1, a2], SP[a2, a3], n] + 
    2*S2[a1, a1, SP[a1, a3], SP[a2, a2], n] - 
    S2[a1, a2, n]*S2[a1, a3, a1, a2, n] + S2[a1, a3, SP[a1, a1], SP[a2, a2], 
     n] + 2*S2[a1, SP[a1, a1], a2, SP[a2, a3], n] + 
    2*S2[a1, SP[a1, a1], a3, SP[a2, a2], n] + 
    2*S2[a1, SP[a1, a1], SP[a2, a2], a3, n] + 
    2*S2[a1, SP[a1, a1], SP[a2, a3], a2, n] + S2[a1, SP[a1, a3], a1, 
     SP[a2, a2], n] + S2[a1, SP[a1, a3], SP[a1, a2], a2, n] + 
    2*S2[SP[a1, a1], a1, a2, SP[a2, a3], n] + 
    2*S2[SP[a1, a1], a1, a3, SP[a2, a2], n] + 
    2*S2[SP[a1, a1], a1, SP[a2, a2], a3, n] + 
    2*S2[SP[a1, a1], a1, SP[a2, a3], a2, n] + S2[SP[a1, a1], a3, a1, 
     SP[a2, a2], n] + S2[SP[a1, a1], a3, SP[a1, a2], a2, n] + 
    2*S2[SP[a1, a1], SP[a1, a2], a2, a3, n] + 
    2*S2[SP[a1, a1], SP[a1, a2], a3, a2, n] + S2[SP[a1, a1], SP[a2, a3], a1, 
     a2, n] + 12*S2[a3, n]*S2[a1, a1, a1, a2, a2, n] + 
    6*S2[a1, a1, a1, a2, SP[a2, a3], n] - 
    6*S2[a1, a1, a1, a3, SP[a2, a2], n] - 
    6*S2[a1, a1, a1, SP[a2, a2], a3, n] + 
    6*S2[a1, a1, a1, SP[a2, a3], a2, n] + 
    6*S2[a3, n]*S2[a1, a1, a2, a1, a2, n] + 
    4*S2[a1, a1, a2, a1, SP[a2, a3], n] + 
    4*S2[a1, a1, a2, SP[a1, a3], a2, n] - 
    2*S2[a2, n]*S2[a1, a1, a3, a1, a2, n] - 
    6*S2[a1, a1, a3, a1, SP[a2, a2], n] - 
    6*S2[a1, a1, a3, SP[a1, a2], a2, n] - 
    6*S2[a1, a1, SP[a1, a2], a2, a3, n] - 
    6*S2[a1, a1, SP[a1, a2], a3, a2, n] + 
    8*S2[a1, a1, SP[a1, a3], a2, a2, n] + 
    2*S2[a1, a1, SP[a2, a3], a1, a2, n] + 
    2*S2[a3, n]*S2[a1, a2, a1, a1, a2, n] + 
    2*S2[a1, a2, a1, a1, SP[a2, a3], n] + 
    2*S2[a1, a2, a1, SP[a1, a3], a2, n] + 
    2*S2[a1, a2, SP[a1, a3], a1, a2, n] - 
    2*S2[a2, n]*S2[a1, a3, a1, a1, a2, n] - 
    4*S2[a1, a3, a1, a1, SP[a2, a2], n] - 
    4*S2[a1, a3, a1, SP[a1, a2], a2, n] - 
    2*S2[a1, a3, SP[a1, a1], a2, a2, n] - 
    2*S2[a1, a3, SP[a1, a2], a1, a2, n] - 
    4*S2[a1, SP[a1, a1], a2, a2, a3, n] - 
    4*S2[a1, SP[a1, a1], a2, a3, a2, n] - 
    4*S2[a1, SP[a1, a1], a3, a2, a2, n] - 
    2*S2[a1, SP[a1, a2], a1, a2, a3, n] - 
    2*S2[a1, SP[a1, a2], a1, a3, a2, n] - 
    3*S2[a1, SP[a1, a2], a3, a1, a2, n] + 
    10*S2[a1, SP[a1, a3], a1, a2, a2, n] + 
    5*S2[a1, SP[a1, a3], a2, a1, a2, n] + 
    S2[a1, n]*S2[a2, a1, a3, a1, a2, n] + S2[a2, a1, a3, a1, SP[a1, a2], n] + 
    S2[a2, a1, a3, SP[a1, a1], a2, n] + S2[a2, a1, SP[a1, a3], a1, a2, n] + 
    S2[a2, SP[a1, a1], a3, a1, a2, n] - 4*S2[a1, n]*
     S2[a3, a1, a1, a2, a2, n] - 4*S2[a3, a1, a1, a2, SP[a1, a2], n] - 
    4*S2[a3, a1, a1, SP[a1, a2], a2, n] - 
    2*S2[a1, n]*S2[a3, a1, a2, a1, a2, n] - 
    2*S2[a3, a1, a2, a1, SP[a1, a2], n] - 
    2*S2[a3, a1, a2, SP[a1, a1], a2, n] - 
    4*S2[a3, a1, SP[a1, a1], a2, a2, n] - 
    2*S2[a3, a1, SP[a1, a2], a1, a2, n] - 
    4*S2[a3, SP[a1, a1], a1, a2, a2, n] - 
    2*S2[a3, SP[a1, a1], a2, a1, a2, n] - 
    4*S2[SP[a1, a1], a1, a2, a2, a3, n] - 
    4*S2[SP[a1, a1], a1, a2, a3, a2, n] - 
    4*S2[SP[a1, a1], a1, a3, a2, a2, n] - 
    2*S2[SP[a1, a1], a2, a1, a2, a3, n] - 
    2*S2[SP[a1, a1], a2, a1, a3, a2, n] - S2[SP[a1, a1], a2, a3, a1, a2, n] - 
    2*S2[SP[a1, a1], a3, a1, a2, a2, n] - S2[SP[a1, a1], a3, a2, a1, a2, n] - 
    S2[SP[a1, a2], a1, a3, a1, a2, n] - 2*S2[SP[a1, a2], a3, a1, a1, a2, n] + 
    8*S2[SP[a1, a3], a1, a1, a2, a2, n] + 
    4*S2[SP[a1, a3], a1, a2, a1, a2, n] + 
    2*S2[SP[a1, a3], a2, a1, a1, a2, n] + 2*S2[a3, a1, a1, a2, a1, a2, n] + 
    4*S2[a3, a1, a1, a2, a2, a1, n] + 2*S2[a3, a1, a2, a1, a1, a2, n] + 
    2*S2[a3, a1, a2, a1, a2, a1, n] /; a1 != a2 != a3, 
 S2[a2_, a1_, a3_, a2_, a1_, a1_, n_] :> 
  S2[a1, a2, n]*S2[a1, a1, a2, a3, n] - S2[a1, a1, SP[a1, a2], SP[a2, a3], 
     n] - S2[a1, SP[a1, a1], a2, SP[a2, a3], n] - 
    S2[a1, SP[a1, a1], SP[a2, a2], a3, n] - S2[SP[a1, a1], a1, a2, 
     SP[a2, a3], n] - S2[SP[a1, a1], a1, SP[a2, a2], a3, n] - 
    S2[SP[a1, a1], SP[a1, a2], a2, a3, n] - 
    6*S2[a3, n]*S2[a1, a1, a1, a2, a2, n] - 
    3*S2[a1, a1, a1, a2, SP[a2, a3], n] + 
    3*S2[a2, n]*S2[a1, a1, a1, a3, a2, n] + 
    3*S2[a1, a1, a1, a3, SP[a2, a2], n] + 
    3*S2[a1, a1, a1, SP[a2, a2], a3, n] - 
    3*S2[a1, a1, a1, SP[a2, a3], a2, n] - 
    3*S2[a3, n]*S2[a1, a1, a2, a1, a2, n] - 
    2*S2[a1, a1, a2, a1, SP[a2, a3], n] - 
    2*S2[a1, a1, a2, SP[a1, a3], a2, n] + 
    2*S2[a2, n]*S2[a1, a1, a3, a1, a2, n] + 
    2*S2[a1, a1, a3, a1, SP[a2, a2], n] + 
    2*S2[a1, a1, a3, SP[a1, a2], a2, n] + 
    3*S2[a1, a1, SP[a1, a2], a2, a3, n] + 
    4*S2[a1, a1, SP[a1, a2], a3, a2, n] - 
    6*S2[a1, a1, SP[a1, a3], a2, a2, n] - S2[a1, a1, SP[a2, a3], a1, a2, n] - 
    S2[a3, n]*S2[a1, a2, a1, a1, a2, n] - S2[a1, a2, a1, a1, SP[a2, a3], n] - 
    (S2[a1, n]*S2[a1, a2, a1, a3, a2, n])/2 - 
    S2[a1, a2, a1, a3, SP[a1, a2], n]/2 - 
    (3*S2[a1, a2, a1, SP[a1, a3], a2, n])/2 - 
    S2[a1, a2, SP[a1, a1], a3, a2, n]/2 - S2[a1, a2, SP[a1, a3], a1, a2, n] + 
    S2[a2, n]*S2[a1, a3, a1, a1, a2, n] + S2[a1, a3, a1, a1, SP[a2, a2], n] + 
    S2[a1, n]*S2[a1, a3, a1, a2, a2, n] + S2[a1, a3, a1, a2, SP[a1, a2], n] + 
    2*S2[a1, a3, a1, SP[a1, a2], a2, n] + 
    (S2[a1, n]*S2[a1, a3, a2, a1, a2, n])/2 + 
    S2[a1, a3, a2, a1, SP[a1, a2], n]/2 + S2[a1, a3, a2, SP[a1, a1], a2, n]/
     2 + S2[a1, a3, SP[a1, a1], a2, a2, n] + 
    (3*S2[a1, a3, SP[a1, a2], a1, a2, n])/2 + 
    2*S2[a1, SP[a1, a1], a2, a2, a3, n] + S2[a1, SP[a1, a1], a2, a3, a2, n] + 
    S2[a1, SP[a1, a2], a1, a2, a3, n] + (5*S2[a1, SP[a1, a2], a1, a3, a2, n])/
     2 + 2*S2[a1, SP[a1, a2], a3, a1, a2, n] - 
    5*S2[a1, SP[a1, a3], a1, a2, a2, n] - 
    (5*S2[a1, SP[a1, a3], a2, a1, a2, n])/2 - 
    S2[a1, n]*S2[a2, a1, a1, a3, a2, n] - S2[a2, a1, a1, a3, SP[a1, a2], n] - 
    S2[a2, a1, a1, SP[a1, a3], a2, n] - (S2[a1, n]*S2[a2, a1, a3, a1, a2, n])/
     2 - S2[a2, a1, a3, a1, SP[a1, a2], n]/2 + 
    (S2[a1, n]*S2[a2, a1, a3, a2, a1, n])/2 + 
    S2[a2, a1, a3, a2, SP[a1, a1], n]/2 - S2[a2, a1, a3, SP[a1, a1], a2, n]/
     2 + S2[a2, a1, a3, SP[a1, a2], a1, n]/2 - S2[a2, a1, SP[a1, a1], a3, a2, 
     n] - S2[a2, a1, SP[a1, a3], a1, a2, n]/2 + 
    S2[a2, a1, SP[a1, a3], a2, a1, n]/2 - S2[a2, SP[a1, a1], a1, a3, a2, n] - 
    S2[a2, SP[a1, a1], a3, a1, a2, n]/2 + S2[a2, SP[a1, a1], a3, a2, a1, n]/
     2 + 2*S2[a1, n]*S2[a3, a1, a1, a2, a2, n] + 
    2*S2[a3, a1, a1, a2, SP[a1, a2], n] + 
    2*S2[a3, a1, a1, SP[a1, a2], a2, n] + 
    (S2[a1, n]*S2[a3, a1, a2, a1, a2, n])/2 + 
    S2[a3, a1, a2, a1, SP[a1, a2], n]/2 - 
    S2[a1, n]*S2[a3, a1, a2, a2, a1, n] - S2[a3, a1, a2, a2, SP[a1, a1], n] + 
    S2[a3, a1, a2, SP[a1, a1], a2, n]/2 - S2[a3, a1, a2, SP[a1, a2], a1, n] + 
    2*S2[a3, a1, SP[a1, a1], a2, a2, n] + S2[a3, a1, SP[a1, a2], a1, a2, n]/
     2 - S2[a3, a1, SP[a1, a2], a2, a1, n] - 
    S2[a1, n]*S2[a3, a2, a1, a1, a2, n] - S2[a3, a2, a1, a1, SP[a1, a2], n] - 
    (S2[a1, n]*S2[a3, a2, a1, a2, a1, n])/2 - 
    S2[a3, a2, a1, a2, SP[a1, a1], n]/2 - S2[a3, a2, a1, SP[a1, a1], a2, n] - 
    S2[a3, a2, a1, SP[a1, a2], a1, n]/2 - S2[a3, a2, SP[a1, a1], a1, a2, n] - 
    S2[a3, a2, SP[a1, a1], a2, a1, n]/2 + 
    2*S2[a3, SP[a1, a1], a1, a2, a2, n] + S2[a3, SP[a1, a1], a2, a1, a2, n]/
     2 - S2[a3, SP[a1, a1], a2, a2, a1, n] - S2[a3, SP[a1, a2], a1, a1, a2, 
     n] - S2[a3, SP[a1, a2], a1, a2, a1, n]/2 + 
    2*S2[SP[a1, a1], a1, a2, a2, a3, n] + S2[SP[a1, a1], a1, a2, a3, a2, n] + 
    S2[SP[a1, a1], a2, a1, a2, a3, n] - S2[SP[a1, a1], a2, a1, a3, a2, n]/2 + 
    S2[SP[a1, a1], a3, a1, a2, a2, n] + S2[SP[a1, a1], a3, a2, a1, a2, n]/2 + 
    2*S2[SP[a1, a2], a1, a1, a3, a2, n] + 
    (3*S2[SP[a1, a2], a1, a3, a1, a2, n])/2 + 
    S2[SP[a1, a2], a1, a3, a2, a1, n]/2 + S2[SP[a1, a2], a3, a1, a1, a2, n] - 
    4*S2[SP[a1, a3], a1, a1, a2, a2, n] - 
    (5*S2[SP[a1, a3], a1, a2, a1, a2, n])/2 - S2[SP[a1, a3], a1, a2, a2, a1, 
     n] - 2*S2[SP[a1, a3], a2, a1, a1, a2, n] - 
    S2[SP[a1, a3], a2, a1, a2, a1, n]/2 + S2[a3, a1, a2, a1, a1, a2, n] + 
    S2[a3, a1, a2, a1, a2, a1, n] + 2*S2[a3, a1, a2, a2, a1, a1, n] + 
    3*S2[a3, a2, a1, a1, a1, a2, n] + 2*S2[a3, a2, a1, a1, a2, a1, n] + 
    S2[a3, a2, a1, a2, a1, a1, n] /; a1 != a2 != a3, 
 S2[a2_, a2_, a1_, a1_, a1_, a3_, n_] :> 
  S2[a1, a1, a3, n]*S2[a1, a2, a2, n] + S2[SP[a1, a1], SP[a1, a2], 
     SP[a2, a3], n] - S2[a1, a3, n]*S2[a1, a1, a2, a2, n] - 
    S2[a1, a1, SP[a1, a2], SP[a2, a3], n] - S2[a1, SP[a1, a2], a1, 
     SP[a2, a3], n] - S2[a1, SP[a1, a2], SP[a1, a2], a3, n] - 
    S2[SP[a1, a1], a2, a1, SP[a2, a3], n] - S2[SP[a1, a1], a2, SP[a1, a2], 
     a3, n] - S2[SP[a1, a1], SP[a1, a2], a2, a3, n] - 
    S2[SP[a1, a1], SP[a1, a2], a3, a2, n] + S2[SP[a1, a1], SP[a1, a3], a2, 
     a2, n] + S2[a3, n]*S2[a1, a1, a1, a2, a2, n] - 
    (S2[a2, n]*S2[a1, a1, a1, a2, a3, n])/2 + 
    S2[a1, a1, a1, a2, SP[a2, a3], n]/2 - 
    (S2[a2, n]*S2[a1, a1, a1, a3, a2, n])/2 - 
    S2[a1, a1, a1, a3, SP[a2, a2], n]/2 - S2[a1, a1, a1, SP[a2, a2], a3, n]/
     2 + S2[a1, a1, a1, SP[a2, a3], a2, n]/2 - 
    (S2[a2, n]*S2[a1, a1, a2, a1, a3, n])/2 + 
    S2[a1, a1, a2, a1, SP[a2, a3], n]/2 + S2[a1, a1, a2, SP[a1, a2], a3, n]/
     2 + S2[a1, a1, SP[a1, a2], a2, a3, n]/2 + 
    S2[a1, a1, SP[a1, a2], a3, a2, n]/2 - S2[a1, a1, SP[a2, a2], a1, a3, n]/
     2 - (S2[a2, n]*S2[a1, a2, a1, a1, a3, n])/2 + 
    S2[a1, a2, a1, a1, SP[a2, a3], n]/2 + S2[a1, a2, a1, SP[a1, a2], a3, n]/
     2 + S2[a1, a2, SP[a1, a2], a1, a3, n]/2 + 
    S2[a1, SP[a1, a2], a1, a2, a3, n]/2 + S2[a1, SP[a1, a2], a1, a3, a2, n]/
     2 + S2[a1, SP[a1, a2], a2, a1, a3, n]/2 - 
    S2[a1, SP[a2, a2], a1, a1, a3, n]/2 + 
    (S2[a2, n]*S2[a2, a1, a1, a1, a3, n])/2 + 
    S2[a2, a1, a1, a1, SP[a2, a3], n]/2 + S2[a2, a1, a1, SP[a1, a2], a3, n]/
     2 + S2[a2, a1, SP[a1, a2], a1, a3, n]/2 + 
    S2[a2, SP[a1, a2], a1, a1, a3, n]/2 + S2[SP[a1, a1], a2, a1, a2, a3, n] + 
    S2[SP[a1, a1], a2, a1, a3, a2, n] + S2[SP[a1, a1], a2, a2, a1, a3, n] - 
    S2[SP[a1, a1], a3, a1, a2, a2, n] - S2[SP[a1, a2], a1, a1, a2, a3, n]/2 - 
    S2[SP[a1, a2], a1, a1, a3, a2, n]/2 - S2[SP[a1, a2], a1, a2, a1, a3, n]/
     2 - S2[SP[a1, a2], a2, a1, a1, a3, n]/2 + S2[SP[a1, a3], a1, a1, a2, a2, 
     n] + S2[SP[a2, a2], a1, a1, a1, a3, n]/2 - S2[a3, a1, a1, a1, a2, a2, 
     n] /; a1 != a2 != a3, S2[a2_, a2_, a1_, a1_, a3_, a1_, n_] :> 
  -2*S2[a1, a1, a3, n]*S2[a1, a2, a2, n] - 
    2*S2[SP[a1, a1], SP[a1, a2], SP[a2, a3], n] + 
    S2[a1, a3, n]*S2[a1, a1, a2, a2, n] + 
    3*S2[a1, a1, SP[a1, a2], SP[a2, a3], n] + S2[a1, SP[a1, a1], a2, 
     SP[a2, a3], n] + S2[a1, SP[a1, a1], SP[a2, a3], a2, n] + 
    2*S2[a1, SP[a1, a2], a1, SP[a2, a3], n] + 
    2*S2[a1, SP[a1, a2], SP[a1, a2], a3, n] + S2[SP[a1, a1], a1, a2, 
     SP[a2, a3], n] + S2[SP[a1, a1], a1, SP[a2, a3], a2, n] + 
    2*S2[SP[a1, a1], a2, a1, SP[a2, a3], n] + 
    2*S2[SP[a1, a1], a2, SP[a1, a2], a3, n] + 
    2*S2[SP[a1, a1], SP[a1, a2], a2, a3, n] + 
    2*S2[SP[a1, a1], SP[a1, a2], a3, a2, n] - S2[SP[a1, a1], SP[a1, a3], a2, 
     a2, n] + (3*S2[a2, n]*S2[a1, a1, a1, a2, a3, n])/2 - 
    (3*S2[a1, a1, a1, a2, SP[a2, a3], n])/2 + 
    (3*S2[a2, n]*S2[a1, a1, a1, a3, a2, n])/2 + 
    (3*S2[a1, a1, a1, a3, SP[a2, a2], n])/2 + 
    (3*S2[a1, a1, a1, SP[a2, a2], a3, n])/2 - 
    (3*S2[a1, a1, a1, SP[a2, a3], a2, n])/2 + 
    (3*S2[a2, n]*S2[a1, a1, a2, a1, a3, n])/2 - 
    (3*S2[a1, a1, a2, a1, SP[a2, a3], n])/2 - 
    (3*S2[a1, a1, a2, SP[a1, a2], a3, n])/2 - 
    (3*S2[a1, a1, SP[a1, a2], a2, a3, n])/2 - 
    (3*S2[a1, a1, SP[a1, a2], a3, a2, n])/2 + 
    (3*S2[a1, a1, SP[a2, a2], a1, a3, n])/2 + 
    (S2[a2, n]*S2[a1, a2, a1, a1, a3, n])/2 - 
    (3*S2[a1, a2, a1, a1, SP[a2, a3], n])/2 - 
    (3*S2[a1, a2, a1, SP[a1, a2], a3, n])/2 - 
    (3*S2[a1, a2, SP[a1, a2], a1, a3, n])/2 - S2[a1, SP[a1, a1], a2, a2, a3, 
     n] - S2[a1, SP[a1, a1], a2, a3, a2, n] - S2[a1, SP[a1, a1], a3, a2, a2, 
     n] - S2[a1, SP[a1, a2], a1, a2, a3, n]/2 - 
    S2[a1, SP[a1, a2], a1, a3, a2, n]/2 - S2[a1, SP[a1, a2], a2, a1, a3, n]/
     2 + S2[a1, SP[a1, a3], a1, a2, a2, n] + 
    S2[a1, SP[a2, a2], a1, a1, a3, n]/2 - 
    (3*S2[a2, n]*S2[a2, a1, a1, a1, a3, n])/2 - 
    (3*S2[a2, a1, a1, a1, SP[a2, a3], n])/2 - 
    (3*S2[a2, a1, a1, SP[a1, a2], a3, n])/2 - 
    (3*S2[a2, a1, SP[a1, a2], a1, a3, n])/2 + 
    S2[a1, n]*S2[a2, a2, a1, a1, a3, n] + S2[a2, a2, a1, a1, SP[a1, a3], n] + 
    S2[a2, a2, a1, SP[a1, a1], a3, n] + S2[a2, a2, SP[a1, a1], a1, a3, n] - 
    S2[a2, SP[a1, a2], a1, a1, a3, n]/2 - 
    S2[a1, n]*S2[a3, a1, a1, a2, a2, n] - S2[a3, a1, a1, a2, SP[a1, a2], n] - 
    S2[a3, a1, a1, SP[a1, a2], a2, n] - S2[a3, a1, SP[a1, a1], a2, a2, n] - 
    S2[a3, SP[a1, a1], a1, a2, a2, n] - S2[SP[a1, a1], a1, a2, a2, a3, n] - 
    S2[SP[a1, a1], a1, a2, a3, a2, n] - S2[SP[a1, a1], a1, a3, a2, a2, n] - 
    2*S2[SP[a1, a1], a2, a1, a2, a3, n] - 
    2*S2[SP[a1, a1], a2, a1, a3, a2, n] - 
    2*S2[SP[a1, a1], a2, a2, a1, a3, n] + S2[SP[a1, a1], a3, a1, a2, a2, n] + 
    (3*S2[SP[a1, a2], a1, a1, a2, a3, n])/2 + 
    (3*S2[SP[a1, a2], a1, a1, a3, a2, n])/2 + 
    (3*S2[SP[a1, a2], a1, a2, a1, a3, n])/2 + 
    (3*S2[SP[a1, a2], a2, a1, a1, a3, n])/2 - S2[SP[a1, a3], a1, a1, a2, a2, 
     n] - (3*S2[SP[a2, a2], a1, a1, a1, a3, n])/2 + 
    3*S2[a3, a1, a1, a1, a2, a2, n] + S2[a3, a1, a1, a2, a1, a2, n] + 
    S2[a3, a1, a1, a2, a2, a1, n] /; a1 != a2 != a3, 
 S2[a2_, a2_, a1_, a3_, a1_, a1_, n_] :> 
  S2[a1, a1, a3, n]*S2[a1, a2, a2, n] + S2[SP[a1, a1], SP[a1, a2], 
     SP[a2, a3], n] - 2*S2[a1, a1, SP[a1, a2], SP[a2, a3], n] - 
    S2[a1, SP[a1, a1], a2, SP[a2, a3], n] - S2[a1, SP[a1, a1], SP[a2, a3], 
     a2, n] - S2[a1, SP[a1, a2], a1, SP[a2, a3], n] - 
    S2[a1, SP[a1, a2], SP[a1, a2], a3, n] - S2[SP[a1, a1], a1, a2, 
     SP[a2, a3], n] - S2[SP[a1, a1], a1, SP[a2, a3], a2, n] - 
    S2[SP[a1, a1], a2, a1, SP[a2, a3], n] - S2[SP[a1, a1], a2, SP[a1, a2], 
     a3, n] - S2[SP[a1, a1], SP[a1, a2], a2, a3, n] - 
    S2[SP[a1, a1], SP[a1, a2], a3, a2, n] - 
    (3*S2[a2, n]*S2[a1, a1, a1, a2, a3, n])/2 + 
    (3*S2[a1, a1, a1, a2, SP[a2, a3], n])/2 - 
    (3*S2[a2, n]*S2[a1, a1, a1, a3, a2, n])/2 - 
    (3*S2[a1, a1, a1, a3, SP[a2, a2], n])/2 - 
    (3*S2[a1, a1, a1, SP[a2, a2], a3, n])/2 + 
    (3*S2[a1, a1, a1, SP[a2, a3], a2, n])/2 - 
    (S2[a2, n]*S2[a1, a1, a2, a1, a3, n])/2 + 
    (3*S2[a1, a1, a2, a1, SP[a2, a3], n])/2 + 
    (3*S2[a1, a1, a2, SP[a1, a2], a3, n])/2 + 
    S2[a1, a1, SP[a1, a2], a2, a3, n]/2 + S2[a1, a1, SP[a1, a2], a3, a2, n]/
     2 + S2[a1, a1, SP[a1, a3], a2, a2, n] - 
    S2[a1, a1, SP[a2, a2], a1, a3, n]/2 + 
    (S2[a2, n]*S2[a1, a2, a1, a1, a3, n])/2 + 
    (3*S2[a1, a2, a1, a1, SP[a2, a3], n])/2 + 
    (3*S2[a1, a2, a1, SP[a1, a2], a3, n])/2 - 
    (S2[a1, n]*S2[a1, a2, a2, a1, a3, n])/2 - 
    S2[a1, a2, a2, a1, SP[a1, a3], n]/2 - S2[a1, a2, a2, SP[a1, a1], a3, n]/
     2 + S2[a1, a2, SP[a1, a2], a1, a3, n] - 
    (S2[a1, n]*S2[a1, a3, a1, a2, a2, n])/2 - 
    S2[a1, a3, a1, a2, SP[a1, a2], n]/2 - S2[a1, a3, a1, SP[a1, a2], a2, n]/
     2 - S2[a1, a3, SP[a1, a1], a2, a2, n]/2 + S2[a1, SP[a1, a1], a2, a2, a3, 
     n] + S2[a1, SP[a1, a1], a2, a3, a2, n] + S2[a1, SP[a1, a1], a3, a2, a2, 
     n] - S2[a1, SP[a1, a2], a1, a2, a3, n]/2 - 
    S2[a1, SP[a1, a2], a1, a3, a2, n]/2 - S2[a1, SP[a1, a3], a1, a2, a2, n]/
     2 + S2[a1, SP[a2, a2], a1, a1, a3, n]/2 + 
    (3*S2[a2, n]*S2[a2, a1, a1, a1, a3, n])/2 + 
    (3*S2[a2, a1, a1, a1, SP[a2, a3], n])/2 + 
    (3*S2[a2, a1, a1, SP[a1, a2], a3, n])/2 - 
    (S2[a1, n]*S2[a2, a1, a2, a1, a3, n])/2 - 
    S2[a2, a1, a2, a1, SP[a1, a3], n]/2 - S2[a2, a1, a2, SP[a1, a1], a3, n]/
     2 + S2[a2, a1, SP[a1, a2], a1, a3, n] - 
    S2[a1, n]*S2[a2, a2, a1, a1, a3, n] - S2[a2, a2, a1, a1, SP[a1, a3], n] + 
    (S2[a1, n]*S2[a2, a2, a1, a3, a1, n])/2 + 
    S2[a2, a2, a1, a3, SP[a1, a1], n]/2 - S2[a2, a2, a1, SP[a1, a1], a3, n] + 
    S2[a2, a2, a1, SP[a1, a3], a1, n]/2 - S2[a2, a2, SP[a1, a1], a1, a3, n] + 
    S2[a2, a2, SP[a1, a1], a3, a1, n]/2 - S2[a2, SP[a1, a1], a2, a1, a3, n]/
     2 + S2[a2, SP[a1, a2], a1, a1, a3, n]/2 + 
    S2[a2, SP[a1, a2], a1, a3, a1, n]/2 + 
    S2[a1, n]*S2[a3, a1, a1, a2, a2, n] + S2[a3, a1, a1, a2, SP[a1, a2], n] + 
    S2[a3, a1, a1, SP[a1, a2], a2, n] + (S2[a1, n]*S2[a3, a1, a2, a1, a2, n])/
     2 + S2[a3, a1, a2, a1, SP[a1, a2], n]/2 + 
    (S2[a1, n]*S2[a3, a1, a2, a2, a1, n])/2 + 
    S2[a3, a1, a2, a2, SP[a1, a1], n]/2 + S2[a3, a1, a2, SP[a1, a1], a2, n]/
     2 + S2[a3, a1, a2, SP[a1, a2], a1, n]/2 + S2[a3, a1, SP[a1, a1], a2, a2, 
     n] + S2[a3, a1, SP[a1, a2], a1, a2, n]/2 + 
    S2[a3, a1, SP[a1, a2], a2, a1, n]/2 + S2[a3, SP[a1, a1], a1, a2, a2, n] + 
    S2[a3, SP[a1, a1], a2, a1, a2, n]/2 + S2[a3, SP[a1, a1], a2, a2, a1, n]/
     2 + S2[SP[a1, a1], a1, a2, a2, a3, n] + S2[SP[a1, a1], a1, a2, a3, a2, 
     n] + S2[SP[a1, a1], a1, a3, a2, a2, n] + S2[SP[a1, a1], a2, a1, a2, a3, 
     n] + S2[SP[a1, a1], a2, a1, a3, a2, n] + 
    S2[SP[a1, a1], a2, a2, a1, a3, n]/2 - S2[SP[a1, a1], a3, a1, a2, a2, n]/
     2 - (3*S2[SP[a1, a2], a1, a1, a2, a3, n])/2 - 
    (3*S2[SP[a1, a2], a1, a1, a3, a2, n])/2 - S2[SP[a1, a2], a1, a2, a1, a3, 
     n] - S2[SP[a1, a2], a2, a1, a1, a3, n]/2 + 
    S2[SP[a1, a2], a2, a1, a3, a1, n]/2 + S2[SP[a1, a3], a1, a1, a2, a2, n] + 
    S2[SP[a1, a3], a1, a2, a1, a2, n]/2 + S2[SP[a1, a3], a1, a2, a2, a1, n]/
     2 + (3*S2[SP[a2, a2], a1, a1, a1, a3, n])/2 - 
    3*S2[a3, a1, a1, a1, a2, a2, n] - 2*S2[a3, a1, a1, a2, a1, a2, n] - 
    2*S2[a3, a1, a1, a2, a2, a1, n] - S2[a3, a1, a2, a1, a1, a2, n] - 
    S2[a3, a1, a2, a1, a2, a1, n] - S2[a3, a1, a2, a2, a1, a1, n] /; 
   a1 != a2 != a3, S2[a2_, a2_, a3_, a1_, a1_, a1_, n_] :> 
  -((S2[a2, n]*S2[a1, a1, a1, a2, a3, n])/2) - 
    S2[a1, a1, a1, a2, SP[a2, a3], n]/2 + 
    (S2[a2, n]*S2[a1, a1, a1, a3, a2, n])/2 + 
    S2[a1, a1, a1, a3, SP[a2, a2], n]/2 - S2[a1, a1, a1, SP[a2, a2], a3, n]/
     2 + S2[a1, a1, a1, SP[a2, a3], a2, n]/2 - 
    (S2[a2, n]*S2[a1, a1, a2, a1, a3, n])/2 - 
    S2[a1, a1, a2, a1, SP[a2, a3], n]/2 + 
    (S2[a1, n]*S2[a1, a1, a2, a2, a3, n])/3 + 
    S2[a1, a1, a2, a2, SP[a1, a3], n]/3 - S2[a1, a1, a2, SP[a1, a2], a3, n]/
     6 - (S2[a1, n]*S2[a1, a1, a3, a2, a2, n])/3 - 
    S2[a1, a1, a3, a2, SP[a1, a2], n]/3 - S2[a1, a1, a3, SP[a1, a2], a2, n]/
     3 - S2[a1, a1, SP[a1, a2], a2, a3, n]/6 + 
    S2[a1, a1, SP[a1, a2], a3, a2, n]/2 - S2[a1, a1, SP[a1, a3], a2, a2, n]/
     3 - S2[a1, a1, SP[a2, a2], a1, a3, n]/2 - 
    (S2[a2, n]*S2[a1, a2, a1, a1, a3, n])/2 - 
    S2[a1, a2, a1, a1, SP[a2, a3], n]/2 + 
    (S2[a1, n]*S2[a1, a2, a1, a2, a3, n])/3 + 
    S2[a1, a2, a1, a2, SP[a1, a3], n]/3 - S2[a1, a2, a1, SP[a1, a2], a3, n]/
     6 + (S2[a1, n]*S2[a1, a2, a2, a1, a3, n])/3 + 
    S2[a1, a2, a2, a1, SP[a1, a3], n]/3 - 
    (S2[a1, n]*S2[a1, a2, a2, a3, a1, n])/6 - 
    S2[a1, a2, a2, a3, SP[a1, a1], n]/6 + S2[a1, a2, a2, SP[a1, a1], a3, n]/
     3 - S2[a1, a2, a2, SP[a1, a3], a1, n]/6 + 
    S2[a1, a2, SP[a1, a1], a2, a3, n]/3 - S2[a1, a2, SP[a1, a2], a1, a3, n]/
     6 - S2[a1, a2, SP[a1, a2], a3, a1, n]/6 + 
    (S2[a1, n]*S2[a1, a3, a1, a2, a2, n])/6 + 
    S2[a1, a3, a1, a2, SP[a1, a2], n]/6 + S2[a1, a3, a1, SP[a1, a2], a2, n]/
     6 + (S2[a1, n]*S2[a1, a3, a2, a1, a2, n])/6 + 
    S2[a1, a3, a2, a1, SP[a1, a2], n]/6 + 
    (S2[a1, n]*S2[a1, a3, a2, a2, a1, n])/6 + 
    S2[a1, a3, a2, a2, SP[a1, a1], n]/6 + S2[a1, a3, a2, SP[a1, a1], a2, n]/
     6 + S2[a1, a3, a2, SP[a1, a2], a1, n]/6 + 
    S2[a1, a3, SP[a1, a1], a2, a2, n]/6 + S2[a1, a3, SP[a1, a2], a1, a2, n]/
     6 + S2[a1, a3, SP[a1, a2], a2, a1, n]/6 + 
    S2[a1, SP[a1, a1], a2, a2, a3, n]/3 - S2[a1, SP[a1, a1], a3, a2, a2, n]/
     3 - S2[a1, SP[a1, a2], a1, a2, a3, n]/6 + 
    S2[a1, SP[a1, a2], a1, a3, a2, n]/2 - S2[a1, SP[a1, a2], a2, a1, a3, n]/
     6 - S2[a1, SP[a1, a2], a2, a3, a1, n]/6 + 
    S2[a1, SP[a1, a3], a1, a2, a2, n]/6 + S2[a1, SP[a1, a3], a2, a1, a2, n]/
     6 + S2[a1, SP[a1, a3], a2, a2, a1, n]/6 - 
    S2[a1, SP[a2, a2], a1, a1, a3, n]/2 - 
    (S2[a2, n]*S2[a2, a1, a1, a1, a3, n])/2 - 
    S2[a2, a1, a1, a1, SP[a2, a3], n]/2 + 
    (S2[a1, n]*S2[a2, a1, a1, a2, a3, n])/3 + 
    S2[a2, a1, a1, a2, SP[a1, a3], n]/3 - S2[a2, a1, a1, SP[a1, a2], a3, n]/
     6 + (S2[a1, n]*S2[a2, a1, a2, a1, a3, n])/3 + 
    S2[a2, a1, a2, a1, SP[a1, a3], n]/3 - 
    (S2[a1, n]*S2[a2, a1, a2, a3, a1, n])/6 - 
    S2[a2, a1, a2, a3, SP[a1, a1], n]/6 + S2[a2, a1, a2, SP[a1, a1], a3, n]/
     3 - S2[a2, a1, a2, SP[a1, a3], a1, n]/6 + 
    S2[a2, a1, SP[a1, a1], a2, a3, n]/3 - S2[a2, a1, SP[a1, a2], a1, a3, n]/
     6 - S2[a2, a1, SP[a1, a2], a3, a1, n]/6 + 
    (S2[a1, n]*S2[a2, a2, a1, a1, a3, n])/3 + 
    S2[a2, a2, a1, a1, SP[a1, a3], n]/3 - 
    (S2[a1, n]*S2[a2, a2, a1, a3, a1, n])/6 - 
    S2[a2, a2, a1, a3, SP[a1, a1], n]/6 + S2[a2, a2, a1, SP[a1, a1], a3, n]/
     3 - S2[a2, a2, a1, SP[a1, a3], a1, n]/6 + 
    (S2[a1, n]*S2[a2, a2, a3, a1, a1, n])/3 + 
    S2[a2, a2, a3, a1, SP[a1, a1], n]/3 + S2[a2, a2, a3, SP[a1, a1], a1, n]/
     3 + S2[a2, a2, SP[a1, a1], a1, a3, n]/3 - 
    S2[a2, a2, SP[a1, a1], a3, a1, n]/6 + S2[a2, a2, SP[a1, a3], a1, a1, n]/
     3 + S2[a2, SP[a1, a1], a1, a2, a3, n]/3 + 
    S2[a2, SP[a1, a1], a2, a1, a3, n]/3 - S2[a2, SP[a1, a1], a2, a3, a1, n]/
     6 - S2[a2, SP[a1, a2], a1, a1, a3, n]/6 - 
    S2[a2, SP[a1, a2], a1, a3, a1, n]/6 + S2[a2, SP[a1, a2], a3, a1, a1, n]/
     3 - (S2[a1, n]*S2[a3, a1, a1, a2, a2, n])/3 - 
    S2[a3, a1, a1, a2, SP[a1, a2], n]/3 - S2[a3, a1, a1, SP[a1, a2], a2, n]/
     3 - (S2[a1, n]*S2[a3, a1, a2, a1, a2, n])/3 - 
    S2[a3, a1, a2, a1, SP[a1, a2], n]/3 - 
    (S2[a1, n]*S2[a3, a1, a2, a2, a1, n])/3 - 
    S2[a3, a1, a2, a2, SP[a1, a1], n]/3 - S2[a3, a1, a2, SP[a1, a1], a2, n]/
     3 - S2[a3, a1, a2, SP[a1, a2], a1, n]/3 - 
    S2[a3, a1, SP[a1, a1], a2, a2, n]/3 - S2[a3, a1, SP[a1, a2], a1, a2, n]/
     3 - S2[a3, a1, SP[a1, a2], a2, a1, n]/3 - 
    (S2[a1, n]*S2[a3, a2, a1, a1, a2, n])/3 - 
    S2[a3, a2, a1, a1, SP[a1, a2], n]/3 - 
    (S2[a1, n]*S2[a3, a2, a1, a2, a1, n])/3 - 
    S2[a3, a2, a1, a2, SP[a1, a1], n]/3 - S2[a3, a2, a1, SP[a1, a1], a2, n]/
     3 - S2[a3, a2, a1, SP[a1, a2], a1, n]/3 - 
    (S2[a1, n]*S2[a3, a2, a2, a1, a1, n])/3 - 
    S2[a3, a2, a2, a1, SP[a1, a1], n]/3 - S2[a3, a2, a2, SP[a1, a1], a1, n]/
     3 - S2[a3, a2, SP[a1, a1], a1, a2, n]/3 - 
    S2[a3, a2, SP[a1, a1], a2, a1, n]/3 - S2[a3, a2, SP[a1, a2], a1, a1, n]/
     3 - S2[a3, SP[a1, a1], a1, a2, a2, n]/3 - 
    S2[a3, SP[a1, a1], a2, a1, a2, n]/3 - S2[a3, SP[a1, a1], a2, a2, a1, n]/
     3 - S2[a3, SP[a1, a2], a1, a1, a2, n]/3 - 
    S2[a3, SP[a1, a2], a1, a2, a1, n]/3 - S2[a3, SP[a1, a2], a2, a1, a1, n]/
     3 + S2[SP[a1, a1], a1, a2, a2, a3, n]/3 - 
    S2[SP[a1, a1], a1, a3, a2, a2, n]/3 + S2[SP[a1, a1], a2, a1, a2, a3, n]/
     3 + S2[SP[a1, a1], a2, a2, a1, a3, n]/3 - 
    S2[SP[a1, a1], a2, a2, a3, a1, n]/6 + S2[SP[a1, a1], a3, a1, a2, a2, n]/
     6 + S2[SP[a1, a1], a3, a2, a1, a2, n]/6 + 
    S2[SP[a1, a1], a3, a2, a2, a1, n]/6 - S2[SP[a1, a2], a1, a1, a2, a3, n]/
     6 + S2[SP[a1, a2], a1, a1, a3, a2, n]/2 - 
    S2[SP[a1, a2], a1, a2, a1, a3, n]/6 - S2[SP[a1, a2], a1, a2, a3, a1, n]/
     6 - S2[SP[a1, a2], a2, a1, a1, a3, n]/6 - 
    S2[SP[a1, a2], a2, a1, a3, a1, n]/6 + S2[SP[a1, a2], a2, a3, a1, a1, n]/
     3 - S2[SP[a1, a3], a1, a1, a2, a2, n]/3 - 
    S2[SP[a1, a3], a1, a2, a1, a2, n]/3 - S2[SP[a1, a3], a1, a2, a2, a1, n]/
     3 - S2[SP[a1, a3], a2, a1, a1, a2, n]/3 - 
    S2[SP[a1, a3], a2, a1, a2, a1, n]/3 - S2[SP[a1, a3], a2, a2, a1, a1, n]/
     3 - S2[SP[a2, a2], a1, a1, a1, a3, n]/2 + S2[a3, a1, a1, a1, a2, a2, 
     n] + S2[a3, a1, a1, a2, a1, a2, n] + S2[a3, a1, a1, a2, a2, a1, n] + 
    S2[a3, a1, a2, a1, a1, a2, n] + S2[a3, a1, a2, a1, a2, a1, n] + 
    S2[a3, a1, a2, a2, a1, a1, n] + S2[a3, a2, a1, a1, a1, a2, n] + 
    S2[a3, a2, a1, a1, a2, a1, n] + S2[a3, a2, a1, a2, a1, a1, n] + 
    S2[a3, a2, a2, a1, a1, a1, n] /; a1 != a2 != a3, 
 S2[a2_, a3_, a1_, a1_, a1_, a2_, n_] :> 
  S2[a2, n]*S2[a3, a1, a1, a1, a2, n] + S2[a3, a1, a1, a1, SP[a2, a2], n] + 
    S2[a3, a1, a1, SP[a1, a2], a2, n] + S2[a3, a1, SP[a1, a2], a1, a2, n] + 
    S2[a3, SP[a1, a2], a1, a1, a2, n] + S2[SP[a2, a3], a1, a1, a1, a2, n] - 
    2*S2[a3, a1, a1, a1, a2, a2, n] - S2[a3, a1, a1, a2, a1, a2, n] - 
    S2[a3, a1, a2, a1, a1, a2, n] - S2[a3, a2, a1, a1, a1, a2, n] /; 
   a1 != a2 != a3, S2[a2_, a3_, a1_, a1_, a2_, a1_, n_] :> 
  -(S2[a2, n]*S2[a1, a3, a1, a1, a2, n]) - S2[a1, a3, a1, a1, SP[a2, a2], 
     n] - S2[a1, a3, a1, SP[a1, a2], a2, n] - S2[a1, a3, SP[a1, a2], a1, a2, 
     n] - S2[a1, SP[a2, a3], a1, a1, a2, n] + 
    S2[a1, n]*S2[a2, a3, a1, a1, a2, n] + S2[a2, a3, a1, a1, SP[a1, a2], n] + 
    S2[a2, a3, a1, SP[a1, a1], a2, n] + S2[a2, a3, SP[a1, a1], a1, a2, n] + 
    S2[a2, SP[a1, a3], a1, a1, a2, n] - 3*S2[a2, n]*
     S2[a3, a1, a1, a1, a2, n] - 3*S2[a3, a1, a1, a1, SP[a2, a2], n] + 
    2*S2[a1, n]*S2[a3, a1, a1, a2, a2, n] + 
    2*S2[a3, a1, a1, a2, SP[a1, a2], n] - S2[a3, a1, a1, SP[a1, a2], a2, n] + 
    S2[a1, n]*S2[a3, a1, a2, a1, a2, n] + S2[a3, a1, a2, a1, SP[a1, a2], n] + 
    S2[a3, a1, a2, SP[a1, a1], a2, n] + 2*S2[a3, a1, SP[a1, a1], a2, a2, n] - 
    2*S2[a3, a1, SP[a1, a2], a1, a2, n] + 
    S2[a1, n]*S2[a3, a2, a1, a1, a2, n] + S2[a3, a2, a1, a1, SP[a1, a2], n] + 
    S2[a3, a2, a1, SP[a1, a1], a2, n] + S2[a3, a2, SP[a1, a1], a1, a2, n] + 
    2*S2[a3, SP[a1, a1], a1, a2, a2, n] + S2[a3, SP[a1, a1], a2, a1, a2, n] - 
    2*S2[a3, SP[a1, a2], a1, a1, a2, n] + 
    2*S2[SP[a1, a3], a1, a1, a2, a2, n] + S2[SP[a1, a3], a1, a2, a1, a2, n] + 
    S2[SP[a1, a3], a2, a1, a1, a2, n] - 3*S2[SP[a2, a3], a1, a1, a1, a2, n] - 
    S2[a3, a1, a1, a2, a1, a2, n] - 2*S2[a3, a1, a1, a2, a2, a1, n] - 
    S2[a3, a1, a2, a1, a2, a1, n] - S2[a3, a2, a1, a1, a2, a1, n] /; 
   a1 != a2 != a3, S2[a2_, a3_, a1_, a2_, a1_, a1_, n_] :> 
  S2[a2, n]*S2[a1, a1, a3, a1, a2, n] + S2[a1, a1, a3, a1, SP[a2, a2], n] + 
    S2[a1, a1, a3, SP[a1, a2], a2, n] + S2[a1, a1, SP[a2, a3], a1, a2, n] - 
    (S2[a1, n]*S2[a1, a2, a3, a1, a2, n])/2 - 
    S2[a1, a2, a3, a1, SP[a1, a2], n]/2 - S2[a1, a2, a3, SP[a1, a1], a2, n]/
     2 - S2[a1, a2, SP[a1, a3], a1, a2, n]/2 + 
    2*S2[a2, n]*S2[a1, a3, a1, a1, a2, n] + 
    2*S2[a1, a3, a1, a1, SP[a2, a2], n] - 
    S2[a1, n]*S2[a1, a3, a1, a2, a2, n] - S2[a1, a3, a1, a2, SP[a1, a2], n] + 
    S2[a1, a3, a1, SP[a1, a2], a2, n] - (S2[a1, n]*S2[a1, a3, a2, a1, a2, n])/
     2 - S2[a1, a3, a2, a1, SP[a1, a2], n]/2 - 
    S2[a1, a3, a2, SP[a1, a1], a2, n]/2 - S2[a1, a3, SP[a1, a1], a2, a2, n] + 
    (3*S2[a1, a3, SP[a1, a2], a1, a2, n])/2 + 
    S2[a1, SP[a1, a2], a3, a1, a2, n]/2 - S2[a1, SP[a1, a3], a1, a2, a2, n] - 
    S2[a1, SP[a1, a3], a2, a1, a2, n]/2 + 
    2*S2[a1, SP[a2, a3], a1, a1, a2, n] - 
    (S2[a1, n]*S2[a2, a1, a3, a1, a2, n])/2 - 
    S2[a2, a1, a3, a1, SP[a1, a2], n]/2 - S2[a2, a1, a3, SP[a1, a1], a2, n]/
     2 - S2[a2, a1, SP[a1, a3], a1, a2, n]/2 - 
    S2[a1, n]*S2[a2, a3, a1, a1, a2, n] - S2[a2, a3, a1, a1, SP[a1, a2], n] + 
    (S2[a1, n]*S2[a2, a3, a1, a2, a1, n])/2 + 
    S2[a2, a3, a1, a2, SP[a1, a1], n]/2 - S2[a2, a3, a1, SP[a1, a1], a2, n] + 
    S2[a2, a3, a1, SP[a1, a2], a1, n]/2 - S2[a2, a3, SP[a1, a1], a1, a2, n] + 
    S2[a2, a3, SP[a1, a1], a2, a1, n]/2 - S2[a2, SP[a1, a1], a3, a1, a2, n]/
     2 - S2[a2, SP[a1, a3], a1, a1, a2, n] + 
    S2[a2, SP[a1, a3], a1, a2, a1, n]/2 + 
    3*S2[a2, n]*S2[a3, a1, a1, a1, a2, n] + 
    3*S2[a3, a1, a1, a1, SP[a2, a2], n] - 
    2*S2[a1, n]*S2[a3, a1, a1, a2, a2, n] - 
    2*S2[a3, a1, a1, a2, SP[a1, a2], n] + S2[a3, a1, a1, SP[a1, a2], a2, n] - 
    (S2[a1, n]*S2[a3, a1, a2, a1, a2, n])/2 - 
    S2[a3, a1, a2, a1, SP[a1, a2], n]/2 + 
    S2[a1, n]*S2[a3, a1, a2, a2, a1, n] + S2[a3, a1, a2, a2, SP[a1, a1], n] - 
    S2[a3, a1, a2, SP[a1, a1], a2, n]/2 + S2[a3, a1, a2, SP[a1, a2], a1, n] - 
    2*S2[a3, a1, SP[a1, a1], a2, a2, n] + 
    (5*S2[a3, a1, SP[a1, a2], a1, a2, n])/2 + S2[a3, a1, SP[a1, a2], a2, a1, 
     n] - S2[a1, n]*S2[a3, a2, a1, a1, a2, n] - S2[a3, a2, a1, a1, 
     SP[a1, a2], n] + (S2[a1, n]*S2[a3, a2, a1, a2, a1, n])/2 + 
    S2[a3, a2, a1, a2, SP[a1, a1], n]/2 - S2[a3, a2, a1, SP[a1, a1], a2, n] + 
    S2[a3, a2, a1, SP[a1, a2], a1, n]/2 - S2[a3, a2, SP[a1, a1], a1, a2, n] + 
    S2[a3, a2, SP[a1, a1], a2, a1, n]/2 - 
    2*S2[a3, SP[a1, a1], a1, a2, a2, n] - S2[a3, SP[a1, a1], a2, a1, a2, n]/
     2 + S2[a3, SP[a1, a1], a2, a2, a1, n] + 
    2*S2[a3, SP[a1, a2], a1, a1, a2, n] + S2[a3, SP[a1, a2], a1, a2, a1, n]/
     2 - S2[SP[a1, a1], a2, a3, a1, a2, n]/2 - S2[SP[a1, a1], a3, a1, a2, a2, 
     n] - S2[SP[a1, a1], a3, a2, a1, a2, n]/2 + 
    S2[SP[a1, a2], a1, a3, a1, a2, n]/2 + S2[SP[a1, a2], a3, a1, a1, a2, n] + 
    S2[SP[a1, a2], a3, a1, a2, a1, n]/2 - 
    2*S2[SP[a1, a3], a1, a1, a2, a2, n] - S2[SP[a1, a3], a1, a2, a1, a2, n]/
     2 + S2[SP[a1, a3], a1, a2, a2, a1, n] - S2[SP[a1, a3], a2, a1, a1, a2, 
     n] + S2[SP[a1, a3], a2, a1, a2, a1, n]/2 + 
    3*S2[SP[a2, a3], a1, a1, a1, a2, n] - S2[a3, a1, a2, a1, a1, a2, n] - 
    S2[a3, a1, a2, a1, a2, a1, n] - 2*S2[a3, a1, a2, a2, a1, a1, n] - 
    S2[a3, a2, a1, a2, a1, a1, n] /; a1 != a2 != a3, 
 S2[a2_, a3_, a2_, a1_, a1_, a1_, n_] :> 
  -(S2[a2, n]*S2[a1, a1, a1, a3, a2, n]) - S2[a1, a1, a1, a3, SP[a2, a2], 
     n] - S2[a1, a1, a1, SP[a2, a3], a2, n] + 
    (S2[a1, n]*S2[a1, a1, a2, a3, a2, n])/3 + 
    S2[a1, a1, a2, a3, SP[a1, a2], n]/3 + S2[a1, a1, a2, SP[a1, a3], a2, n]/
     3 - S2[a2, n]*S2[a1, a1, a3, a1, a2, n] - S2[a1, a1, a3, a1, SP[a2, a2], 
     n] + (2*S2[a1, n]*S2[a1, a1, a3, a2, a2, n])/3 + 
    (2*S2[a1, a1, a3, a2, SP[a1, a2], n])/3 - 
    S2[a1, a1, a3, SP[a1, a2], a2, n]/3 - 
    (2*S2[a1, a1, SP[a1, a2], a3, a2, n])/3 + 
    (2*S2[a1, a1, SP[a1, a3], a2, a2, n])/3 - S2[a1, a1, SP[a2, a3], a1, a2, 
     n] + (S2[a1, n]*S2[a1, a2, a1, a3, a2, n])/3 + 
    S2[a1, a2, a1, a3, SP[a1, a2], n]/3 + S2[a1, a2, a1, SP[a1, a3], a2, n]/
     3 + (S2[a1, n]*S2[a1, a2, a3, a1, a2, n])/3 + 
    S2[a1, a2, a3, a1, SP[a1, a2], n]/3 - 
    (S2[a1, n]*S2[a1, a2, a3, a2, a1, n])/6 - 
    S2[a1, a2, a3, a2, SP[a1, a1], n]/6 + S2[a1, a2, a3, SP[a1, a1], a2, n]/
     3 - S2[a1, a2, a3, SP[a1, a2], a1, n]/6 + 
    S2[a1, a2, SP[a1, a1], a3, a2, n]/3 + S2[a1, a2, SP[a1, a3], a1, a2, n]/
     3 - S2[a1, a2, SP[a1, a3], a2, a1, n]/6 - 
    S2[a2, n]*S2[a1, a3, a1, a1, a2, n] - S2[a1, a3, a1, a1, SP[a2, a2], n] + 
    (2*S2[a1, n]*S2[a1, a3, a1, a2, a2, n])/3 + 
    (2*S2[a1, a3, a1, a2, SP[a1, a2], n])/3 - 
    S2[a1, a3, a1, SP[a1, a2], a2, n]/3 + 
    (S2[a1, n]*S2[a1, a3, a2, a1, a2, n])/6 + 
    S2[a1, a3, a2, a1, SP[a1, a2], n]/6 - 
    (S2[a1, n]*S2[a1, a3, a2, a2, a1, n])/3 - 
    S2[a1, a3, a2, a2, SP[a1, a1], n]/3 + S2[a1, a3, a2, SP[a1, a1], a2, n]/
     6 - S2[a1, a3, a2, SP[a1, a2], a1, n]/3 + 
    (2*S2[a1, a3, SP[a1, a1], a2, a2, n])/3 - 
    (5*S2[a1, a3, SP[a1, a2], a1, a2, n])/6 - 
    S2[a1, a3, SP[a1, a2], a2, a1, n]/3 + S2[a1, SP[a1, a1], a2, a3, a2, n]/
     3 + (2*S2[a1, SP[a1, a1], a3, a2, a2, n])/3 - 
    (2*S2[a1, SP[a1, a2], a1, a3, a2, n])/3 - 
    (2*S2[a1, SP[a1, a2], a3, a1, a2, n])/3 - 
    S2[a1, SP[a1, a2], a3, a2, a1, n]/6 + 
    (2*S2[a1, SP[a1, a3], a1, a2, a2, n])/3 + 
    S2[a1, SP[a1, a3], a2, a1, a2, n]/6 - S2[a1, SP[a1, a3], a2, a2, a1, n]/
     3 - S2[a1, SP[a2, a3], a1, a1, a2, n] + 
    (S2[a1, n]*S2[a2, a1, a1, a3, a2, n])/3 + 
    S2[a2, a1, a1, a3, SP[a1, a2], n]/3 + S2[a2, a1, a1, SP[a1, a3], a2, n]/
     3 + (S2[a1, n]*S2[a2, a1, a3, a1, a2, n])/3 + 
    S2[a2, a1, a3, a1, SP[a1, a2], n]/3 - 
    (S2[a1, n]*S2[a2, a1, a3, a2, a1, n])/6 - 
    S2[a2, a1, a3, a2, SP[a1, a1], n]/6 + S2[a2, a1, a3, SP[a1, a1], a2, n]/
     3 - S2[a2, a1, a3, SP[a1, a2], a1, n]/6 + 
    S2[a2, a1, SP[a1, a1], a3, a2, n]/3 + S2[a2, a1, SP[a1, a3], a1, a2, n]/
     3 - S2[a2, a1, SP[a1, a3], a2, a1, n]/6 + 
    (S2[a1, n]*S2[a2, a3, a1, a1, a2, n])/3 + 
    S2[a2, a3, a1, a1, SP[a1, a2], n]/3 - 
    (S2[a1, n]*S2[a2, a3, a1, a2, a1, n])/6 - 
    S2[a2, a3, a1, a2, SP[a1, a1], n]/6 + S2[a2, a3, a1, SP[a1, a1], a2, n]/
     3 - S2[a2, a3, a1, SP[a1, a2], a1, n]/6 + 
    (S2[a1, n]*S2[a2, a3, a2, a1, a1, n])/3 + 
    S2[a2, a3, a2, a1, SP[a1, a1], n]/3 + S2[a2, a3, a2, SP[a1, a1], a1, n]/
     3 + S2[a2, a3, SP[a1, a1], a1, a2, n]/3 - 
    S2[a2, a3, SP[a1, a1], a2, a1, n]/6 + S2[a2, a3, SP[a1, a2], a1, a1, n]/
     3 + S2[a2, SP[a1, a1], a1, a3, a2, n]/3 + 
    S2[a2, SP[a1, a1], a3, a1, a2, n]/3 - S2[a2, SP[a1, a1], a3, a2, a1, n]/
     6 + S2[a2, SP[a1, a3], a1, a1, a2, n]/3 - 
    S2[a2, SP[a1, a3], a1, a2, a1, n]/6 + S2[a2, SP[a1, a3], a2, a1, a1, n]/
     3 - S2[a2, n]*S2[a3, a1, a1, a1, a2, n] - S2[a3, a1, a1, a1, SP[a2, a2], 
     n] + (2*S2[a1, n]*S2[a3, a1, a1, a2, a2, n])/3 + 
    (2*S2[a3, a1, a1, a2, SP[a1, a2], n])/3 - 
    S2[a3, a1, a1, SP[a1, a2], a2, n]/3 + 
    (S2[a1, n]*S2[a3, a1, a2, a1, a2, n])/6 + 
    S2[a3, a1, a2, a1, SP[a1, a2], n]/6 - 
    (S2[a1, n]*S2[a3, a1, a2, a2, a1, n])/3 - 
    S2[a3, a1, a2, a2, SP[a1, a1], n]/3 + S2[a3, a1, a2, SP[a1, a1], a2, n]/
     6 - S2[a3, a1, a2, SP[a1, a2], a1, n]/3 + 
    (2*S2[a3, a1, SP[a1, a1], a2, a2, n])/3 - 
    (5*S2[a3, a1, SP[a1, a2], a1, a2, n])/6 - 
    S2[a3, a1, SP[a1, a2], a2, a1, n]/3 + 
    (2*S2[a1, n]*S2[a3, a2, a1, a1, a2, n])/3 + 
    (2*S2[a3, a2, a1, a1, SP[a1, a2], n])/3 + 
    (S2[a1, n]*S2[a3, a2, a1, a2, a1, n])/6 + 
    S2[a3, a2, a1, a2, SP[a1, a1], n]/6 + 
    (2*S2[a3, a2, a1, SP[a1, a1], a2, n])/3 + 
    S2[a3, a2, a1, SP[a1, a2], a1, n]/6 + 
    (2*S2[a1, n]*S2[a3, a2, a2, a1, a1, n])/3 + 
    (2*S2[a3, a2, a2, a1, SP[a1, a1], n])/3 + 
    (2*S2[a3, a2, a2, SP[a1, a1], a1, n])/3 + 
    (2*S2[a3, a2, SP[a1, a1], a1, a2, n])/3 + 
    S2[a3, a2, SP[a1, a1], a2, a1, n]/6 + 
    (2*S2[a3, a2, SP[a1, a2], a1, a1, n])/3 + 
    (2*S2[a3, SP[a1, a1], a1, a2, a2, n])/3 + 
    S2[a3, SP[a1, a1], a2, a1, a2, n]/6 - S2[a3, SP[a1, a1], a2, a2, a1, n]/
     3 - S2[a3, SP[a1, a2], a1, a1, a2, n]/3 + 
    S2[a3, SP[a1, a2], a1, a2, a1, n]/6 + 
    (2*S2[a3, SP[a1, a2], a2, a1, a1, n])/3 + 
    S2[SP[a1, a1], a1, a2, a3, a2, n]/3 + 
    (2*S2[SP[a1, a1], a1, a3, a2, a2, n])/3 + 
    S2[SP[a1, a1], a2, a1, a3, a2, n]/3 + S2[SP[a1, a1], a2, a3, a1, a2, n]/
     3 - S2[SP[a1, a1], a2, a3, a2, a1, n]/6 + 
    (2*S2[SP[a1, a1], a3, a1, a2, a2, n])/3 + 
    S2[SP[a1, a1], a3, a2, a1, a2, n]/6 - S2[SP[a1, a1], a3, a2, a2, a1, n]/
     3 - (2*S2[SP[a1, a2], a1, a1, a3, a2, n])/3 - 
    (2*S2[SP[a1, a2], a1, a3, a1, a2, n])/3 - 
    S2[SP[a1, a2], a1, a3, a2, a1, n]/6 - 
    (2*S2[SP[a1, a2], a3, a1, a1, a2, n])/3 - 
    S2[SP[a1, a2], a3, a1, a2, a1, n]/6 + S2[SP[a1, a2], a3, a2, a1, a1, n]/
     3 + (2*S2[SP[a1, a3], a1, a1, a2, a2, n])/3 + 
    S2[SP[a1, a3], a1, a2, a1, a2, n]/6 - S2[SP[a1, a3], a1, a2, a2, a1, n]/
     3 + (2*S2[SP[a1, a3], a2, a1, a1, a2, n])/3 + 
    S2[SP[a1, a3], a2, a1, a2, a1, n]/6 + 
    (2*S2[SP[a1, a3], a2, a2, a1, a1, n])/3 - S2[SP[a2, a3], a1, a1, a1, a2, 
     n] - S2[a3, a2, a1, a1, a1, a2, n] - S2[a3, a2, a1, a1, a2, a1, n] - 
    S2[a3, a2, a1, a2, a1, a1, n] - 2*S2[a3, a2, a2, a1, a1, a1, n] /; 
   a1 != a2 != a3, S2[a1_, a1_, a1_, a2_, a2_, a2_, n_] :> 
  -((S2[a2, n]*S2[a1, a1, a2, a1, a2, n])/2) - 
    S2[a1, a1, a2, a1, SP[a2, a2], n]/2 + 
    (S2[a1, n]*S2[a1, a1, a2, a2, a2, n])/3 + 
    S2[a1, a1, a2, a2, SP[a1, a2], n]/3 - S2[a1, a1, a2, SP[a1, a2], a2, n]/
     6 + S2[a1, a1, SP[a1, a2], a2, a2, n]/3 - 
    S2[a1, a1, SP[a2, a2], a1, a2, n]/2 - 
    (S2[a2, n]*S2[a1, a2, a1, a1, a2, n])/2 - 
    S2[a1, a2, a1, a1, SP[a2, a2], n]/2 + 
    (S2[a1, n]*S2[a1, a2, a1, a2, a2, n])/3 + 
    S2[a1, a2, a1, a2, SP[a1, a2], n]/3 - S2[a1, a2, a1, SP[a1, a2], a2, n]/
     6 + (S2[a1, n]*S2[a1, a2, a2, a1, a2, n])/3 + 
    S2[a1, a2, a2, a1, SP[a1, a2], n]/3 - 
    (S2[a1, n]*S2[a1, a2, a2, a2, a1, n])/6 - 
    S2[a1, a2, a2, a2, SP[a1, a1], n]/6 + S2[a1, a2, a2, SP[a1, a1], a2, n]/
     3 - S2[a1, a2, a2, SP[a1, a2], a1, n]/6 + 
    S2[a1, a2, SP[a1, a1], a2, a2, n]/3 - S2[a1, a2, SP[a1, a2], a1, a2, n]/
     6 - S2[a1, a2, SP[a1, a2], a2, a1, n]/6 + 
    S2[a1, SP[a1, a1], a2, a2, a2, n]/3 + S2[a1, SP[a1, a2], a1, a2, a2, n]/
     3 - S2[a1, SP[a1, a2], a2, a1, a2, n]/6 - 
    S2[a1, SP[a1, a2], a2, a2, a1, n]/6 - S2[a1, SP[a2, a2], a1, a1, a2, n]/
     2 - (S2[a2, n]*S2[a2, a1, a1, a1, a2, n])/2 - 
    S2[a2, a1, a1, a1, SP[a2, a2], n]/2 + 
    (S2[a1, n]*S2[a2, a1, a1, a2, a2, n])/3 + 
    S2[a2, a1, a1, a2, SP[a1, a2], n]/3 - S2[a2, a1, a1, SP[a1, a2], a2, n]/
     6 + (S2[a1, n]*S2[a2, a1, a2, a1, a2, n])/3 + 
    S2[a2, a1, a2, a1, SP[a1, a2], n]/3 - 
    (S2[a1, n]*S2[a2, a1, a2, a2, a1, n])/6 - 
    S2[a2, a1, a2, a2, SP[a1, a1], n]/6 + S2[a2, a1, a2, SP[a1, a1], a2, n]/
     3 - S2[a2, a1, a2, SP[a1, a2], a1, n]/6 + 
    S2[a2, a1, SP[a1, a1], a2, a2, n]/3 - S2[a2, a1, SP[a1, a2], a1, a2, n]/
     6 - S2[a2, a1, SP[a1, a2], a2, a1, n]/6 + 
    (S2[a1, n]*S2[a2, a2, a1, a1, a2, n])/3 + 
    S2[a2, a2, a1, a1, SP[a1, a2], n]/3 - 
    (S2[a1, n]*S2[a2, a2, a1, a2, a1, n])/6 - 
    S2[a2, a2, a1, a2, SP[a1, a1], n]/6 + S2[a2, a2, a1, SP[a1, a1], a2, n]/
     3 - S2[a2, a2, a1, SP[a1, a2], a1, n]/6 + 
    (S2[a1, n]*S2[a2, a2, a2, a1, a1, n])/3 + 
    S2[a2, a2, a2, a1, SP[a1, a1], n]/3 + S2[a2, a2, a2, SP[a1, a1], a1, n]/
     3 + S2[a2, a2, SP[a1, a1], a1, a2, n]/3 - 
    S2[a2, a2, SP[a1, a1], a2, a1, n]/6 + S2[a2, a2, SP[a1, a2], a1, a1, n]/
     3 + S2[a2, SP[a1, a1], a1, a2, a2, n]/3 + 
    S2[a2, SP[a1, a1], a2, a1, a2, n]/3 - S2[a2, SP[a1, a1], a2, a2, a1, n]/
     6 - S2[a2, SP[a1, a2], a1, a1, a2, n]/6 - 
    S2[a2, SP[a1, a2], a1, a2, a1, n]/6 + S2[a2, SP[a1, a2], a2, a1, a1, n]/
     3 + S2[SP[a1, a1], a1, a2, a2, a2, n]/3 + 
    S2[SP[a1, a1], a2, a1, a2, a2, n]/3 + S2[SP[a1, a1], a2, a2, a1, a2, n]/
     3 - S2[SP[a1, a1], a2, a2, a2, a1, n]/6 + 
    S2[SP[a1, a2], a1, a1, a2, a2, n]/3 - S2[SP[a1, a2], a1, a2, a1, a2, n]/
     6 - S2[SP[a1, a2], a1, a2, a2, a1, n]/6 - 
    S2[SP[a1, a2], a2, a1, a1, a2, n]/6 - S2[SP[a1, a2], a2, a1, a2, a1, n]/
     6 + S2[SP[a1, a2], a2, a2, a1, a1, n]/3 - 
    S2[SP[a2, a2], a1, a1, a1, a2, n]/2 - S2[a2, a2, a2, a1, a1, a1, n] /; 
   MyMemberQ[{{a1, a2}}, {a1, a1, a1, a2, a2, a2}] && a1 != a2, 
 S2[a1_, a1_, a2_, a1_, a2_, a2_, n_] :> 
  S2[a1, a1, a2, n]*S2[a1, a2, a2, n] + S2[SP[a1, a1], SP[a1, a2], 
     SP[a2, a2], n] - 2*S2[a1, a1, SP[a1, a2], SP[a2, a2], n] - 
    S2[a1, SP[a1, a1], a2, SP[a2, a2], n] - S2[a1, SP[a1, a1], SP[a2, a2], 
     a2, n] - S2[a1, SP[a1, a2], a1, SP[a2, a2], n] - 
    S2[a1, SP[a1, a2], SP[a1, a2], a2, n] - S2[SP[a1, a1], a1, a2, 
     SP[a2, a2], n] - S2[SP[a1, a1], a1, SP[a2, a2], a2, n] - 
    S2[SP[a1, a1], a2, a1, SP[a2, a2], n] - S2[SP[a1, a1], a2, SP[a1, a2], 
     a2, n] - 2*S2[SP[a1, a1], SP[a1, a2], a2, a2, n] - 
    3*S2[a2, n]*S2[a1, a1, a1, a2, a2, n] - 
    (S2[a2, n]*S2[a1, a1, a2, a1, a2, n])/2 + 
    (3*S2[a1, a1, a2, a1, SP[a2, a2], n])/2 + 
    (3*S2[a1, a1, a2, SP[a1, a2], a2, n])/2 + 
    2*S2[a1, a1, SP[a1, a2], a2, a2, n] - S2[a1, a1, SP[a2, a2], a1, a2, n]/
     2 + (S2[a2, n]*S2[a1, a2, a1, a1, a2, n])/2 + 
    (3*S2[a1, a2, a1, a1, SP[a2, a2], n])/2 + 
    (3*S2[a1, a2, a1, SP[a1, a2], a2, n])/2 - 
    (S2[a1, n]*S2[a1, a2, a2, a1, a2, n])/2 - 
    S2[a1, a2, a2, a1, SP[a1, a2], n]/2 - S2[a1, a2, a2, SP[a1, a1], a2, n]/
     2 + S2[a1, a2, SP[a1, a2], a1, a2, n] + 
    3*S2[a1, SP[a1, a1], a2, a2, a2, n] - S2[a1, SP[a1, a2], a1, a2, a2, n] + 
    S2[a1, SP[a2, a2], a1, a1, a2, n]/2 + 
    (3*S2[a2, n]*S2[a2, a1, a1, a1, a2, n])/2 + 
    (3*S2[a2, a1, a1, a1, SP[a2, a2], n])/2 + 
    (3*S2[a2, a1, a1, SP[a1, a2], a2, n])/2 - 
    (S2[a1, n]*S2[a2, a1, a2, a1, a2, n])/2 - 
    S2[a2, a1, a2, a1, SP[a1, a2], n]/2 - S2[a2, a1, a2, SP[a1, a1], a2, n]/
     2 + S2[a2, a1, SP[a1, a2], a1, a2, n] - 
    S2[a1, n]*S2[a2, a2, a1, a1, a2, n] - S2[a2, a2, a1, a1, SP[a1, a2], n] + 
    (S2[a1, n]*S2[a2, a2, a1, a2, a1, n])/2 + 
    S2[a2, a2, a1, a2, SP[a1, a1], n]/2 - S2[a2, a2, a1, SP[a1, a1], a2, n] + 
    S2[a2, a2, a1, SP[a1, a2], a1, n]/2 - S2[a2, a2, SP[a1, a1], a1, a2, n] + 
    S2[a2, a2, SP[a1, a1], a2, a1, n]/2 - S2[a2, SP[a1, a1], a2, a1, a2, n]/
     2 + S2[a2, SP[a1, a2], a1, a1, a2, n]/2 + 
    S2[a2, SP[a1, a2], a1, a2, a1, n]/2 + 
    3*S2[SP[a1, a1], a1, a2, a2, a2, n] + 
    2*S2[SP[a1, a1], a2, a1, a2, a2, n] + S2[SP[a1, a1], a2, a2, a1, a2, n]/
     2 - 3*S2[SP[a1, a2], a1, a1, a2, a2, n] - S2[SP[a1, a2], a1, a2, a1, a2, 
     n] - S2[SP[a1, a2], a2, a1, a1, a2, n]/2 + 
    S2[SP[a1, a2], a2, a1, a2, a1, n]/2 + 
    (3*S2[SP[a2, a2], a1, a1, a1, a2, n])/2 - S2[a2, a2, a1, a2, a1, a1, 
     n] /; MyMemberQ[{{a1, a2}}, {a1, a1, a1, a2, a2, a2}] && a1 != a2, 
 S2[a1_, a1_, a2_, a2_, a1_, a2_, n_] :> 
  -2*S2[a1, a1, a2, n]*S2[a1, a2, a2, n] - 
    2*S2[SP[a1, a1], SP[a1, a2], SP[a2, a2], n] + 
    4*S2[a1, a1, SP[a1, a2], SP[a2, a2], n] + 
    2*S2[a1, SP[a1, a1], a2, SP[a2, a2], n] + 
    2*S2[a1, SP[a1, a1], SP[a2, a2], a2, n] + 
    2*S2[a1, SP[a1, a2], a1, SP[a2, a2], n] + 
    2*S2[a1, SP[a1, a2], SP[a1, a2], a2, n] + 
    2*S2[SP[a1, a1], a1, a2, SP[a2, a2], n] + 
    2*S2[SP[a1, a1], a1, SP[a2, a2], a2, n] + 
    2*S2[SP[a1, a1], a2, a1, SP[a2, a2], n] + 
    2*S2[SP[a1, a1], a2, SP[a1, a2], a2, n] + 
    4*S2[SP[a1, a1], SP[a1, a2], a2, a2, n] + 
    9*S2[a2, n]*S2[a1, a1, a1, a2, a2, n] + 
    3*S2[a1, a1, a1, a2, SP[a2, a2], n] + 
    3*S2[a1, a1, a1, SP[a2, a2], a2, n] + 
    5*S2[a2, n]*S2[a1, a1, a2, a1, a2, n] + S2[a1, a1, a2, a1, SP[a2, a2], 
     n] - 3*S2[a1, n]*S2[a1, a1, a2, a2, a2, n] - 
    3*S2[a1, a1, a2, a2, SP[a1, a2], n] - 
    2*S2[a1, a1, a2, SP[a1, a2], a2, n] - 
    4*S2[a1, a1, SP[a1, a2], a2, a2, n] + 
    5*S2[a1, a1, SP[a2, a2], a1, a2, n] + 
    2*S2[a2, n]*S2[a1, a2, a1, a1, a2, n] - 
    3*S2[a1, n]*S2[a1, a2, a1, a2, a2, n] - 
    3*S2[a1, a2, a1, a2, SP[a1, a2], n] - 
    3*S2[a1, a2, a1, SP[a1, a2], a2, n] - 
    S2[a1, n]*S2[a1, a2, a2, a1, a2, n] - S2[a1, a2, a2, a1, SP[a1, a2], n] + 
    (3*S2[a1, n]*S2[a1, a2, a2, a2, a1, n])/2 + 
    (3*S2[a1, a2, a2, a2, SP[a1, a1], n])/2 - S2[a1, a2, a2, SP[a1, a1], a2, 
     n] + (3*S2[a1, a2, a2, SP[a1, a2], a1, n])/2 - 
    3*S2[a1, a2, SP[a1, a1], a2, a2, n] - S2[a1, a2, SP[a1, a2], a1, a2, n] + 
    (3*S2[a1, a2, SP[a1, a2], a2, a1, n])/2 - 
    9*S2[a1, SP[a1, a1], a2, a2, a2, n] + 
    2*S2[a1, SP[a1, a2], a1, a2, a2, n] + 
    2*S2[a1, SP[a1, a2], a2, a1, a2, n] + 
    (3*S2[a1, SP[a1, a2], a2, a2, a1, n])/2 + 
    2*S2[a1, SP[a2, a2], a1, a1, a2, n] - 
    3*S2[a1, n]*S2[a2, a1, a1, a2, a2, n] - 
    3*S2[a2, a1, a1, a2, SP[a1, a2], n] - 
    3*S2[a2, a1, a1, SP[a1, a2], a2, n] - 
    S2[a1, n]*S2[a2, a1, a2, a1, a2, n] - S2[a2, a1, a2, a1, SP[a1, a2], n] + 
    (3*S2[a1, n]*S2[a2, a1, a2, a2, a1, n])/2 + 
    (3*S2[a2, a1, a2, a2, SP[a1, a1], n])/2 - S2[a2, a1, a2, SP[a1, a1], a2, 
     n] + (3*S2[a2, a1, a2, SP[a1, a2], a1, n])/2 - 
    3*S2[a2, a1, SP[a1, a1], a2, a2, n] - S2[a2, a1, SP[a1, a2], a1, a2, n] + 
    (3*S2[a2, a1, SP[a1, a2], a2, a1, n])/2 - 
    (S2[a1, n]*S2[a2, a2, a1, a2, a1, n])/2 - 
    S2[a2, a2, a1, a2, SP[a1, a1], n]/2 - S2[a2, a2, a1, SP[a1, a2], a1, n]/
     2 - 3*S2[a1, n]*S2[a2, a2, a2, a1, a1, n] - 
    3*S2[a2, a2, a2, a1, SP[a1, a1], n] - 
    3*S2[a2, a2, a2, SP[a1, a1], a1, n] - S2[a2, a2, SP[a1, a1], a2, a1, n]/
     2 - 3*S2[a2, a2, SP[a1, a2], a1, a1, n] - 
    3*S2[a2, SP[a1, a1], a1, a2, a2, n] - S2[a2, SP[a1, a1], a2, a1, a2, n] + 
    (3*S2[a2, SP[a1, a1], a2, a2, a1, n])/2 - 
    S2[a2, SP[a1, a2], a1, a2, a1, n]/2 - 
    3*S2[a2, SP[a1, a2], a2, a1, a1, n] - 
    9*S2[SP[a1, a1], a1, a2, a2, a2, n] - 
    7*S2[SP[a1, a1], a2, a1, a2, a2, n] - 
    3*S2[SP[a1, a1], a2, a2, a1, a2, n] + 
    (3*S2[SP[a1, a1], a2, a2, a2, a1, n])/2 + 
    6*S2[SP[a1, a2], a1, a1, a2, a2, n] + 
    4*S2[SP[a1, a2], a1, a2, a1, a2, n] + 
    (3*S2[SP[a1, a2], a1, a2, a2, a1, n])/2 + 
    2*S2[SP[a1, a2], a2, a1, a1, a2, n] - S2[SP[a1, a2], a2, a1, a2, a1, n]/
     2 - 3*S2[SP[a1, a2], a2, a2, a1, a1, n] + S2[a2, a2, a1, a1, a2, a1, 
     n] + 4*S2[a2, a2, a1, a2, a1, a1, n] + 
    9*S2[a2, a2, a2, a1, a1, a1, n] /; 
   MyMemberQ[{{a1, a2}}, {a1, a1, a1, a2, a2, a2}] && a1 != a2, 
 S2[a1_, a1_, a2_, a2_, a2_, a1_, n_] :> 
  S2[a1, a1, a2, n]*S2[a1, a2, a2, n] + S2[SP[a1, a1], SP[a1, a2], 
     SP[a2, a2], n] - 2*S2[a1, a1, SP[a1, a2], SP[a2, a2], n] - 
    S2[a1, SP[a1, a1], a2, SP[a2, a2], n] - S2[a1, SP[a1, a1], SP[a2, a2], 
     a2, n] - S2[a1, SP[a1, a2], a1, SP[a2, a2], n] - 
    S2[a1, SP[a1, a2], SP[a1, a2], a2, n] - S2[SP[a1, a1], a1, a2, 
     SP[a2, a2], n] - S2[SP[a1, a1], a1, SP[a2, a2], a2, n] - 
    S2[SP[a1, a1], a2, a1, SP[a2, a2], n] - S2[SP[a1, a1], a2, SP[a1, a2], 
     a2, n] - 2*S2[SP[a1, a1], SP[a1, a2], a2, a2, n] - 
    6*S2[a2, n]*S2[a1, a1, a1, a2, a2, n] - 
    3*S2[a1, a1, a1, a2, SP[a2, a2], n] - 
    3*S2[a1, a1, a1, SP[a2, a2], a2, n] - 
    3*S2[a2, n]*S2[a1, a1, a2, a1, a2, n] - S2[a1, a1, a2, a1, SP[a2, a2], 
     n] + 3*S2[a1, n]*S2[a1, a1, a2, a2, a2, n] + 
    3*S2[a1, a1, a2, a2, SP[a1, a2], n] + 
    2*S2[a1, a1, a2, SP[a1, a2], a2, n] + 
    2*S2[a1, a1, SP[a1, a2], a2, a2, n] - 
    3*S2[a1, a1, SP[a2, a2], a1, a2, n] - 
    S2[a2, n]*S2[a1, a2, a1, a1, a2, n] + 
    2*S2[a1, n]*S2[a1, a2, a1, a2, a2, n] + 
    2*S2[a1, a2, a1, a2, SP[a1, a2], n] + 
    2*S2[a1, a2, a1, SP[a1, a2], a2, n] + 
    (S2[a1, n]*S2[a1, a2, a2, a1, a2, n])/2 + 
    S2[a1, a2, a2, a1, SP[a1, a2], n]/2 - 
    S2[a1, n]*S2[a1, a2, a2, a2, a1, n] - S2[a1, a2, a2, a2, SP[a1, a1], n] + 
    S2[a1, a2, a2, SP[a1, a1], a2, n]/2 - S2[a1, a2, a2, SP[a1, a2], a1, n] + 
    2*S2[a1, a2, SP[a1, a1], a2, a2, n] + S2[a1, a2, SP[a1, a2], a1, a2, n]/
     2 - S2[a1, a2, SP[a1, a2], a2, a1, n] + 
    6*S2[a1, SP[a1, a1], a2, a2, a2, n] - 
    2*S2[a1, SP[a1, a2], a1, a2, a2, n] - 
    (3*S2[a1, SP[a1, a2], a2, a1, a2, n])/2 - S2[a1, SP[a1, a2], a2, a2, a1, 
     n] - S2[a1, SP[a2, a2], a1, a1, a2, n] + 
    2*S2[a1, n]*S2[a2, a1, a1, a2, a2, n] + 
    2*S2[a2, a1, a1, a2, SP[a1, a2], n] + 
    2*S2[a2, a1, a1, SP[a1, a2], a2, n] + 
    (S2[a1, n]*S2[a2, a1, a2, a1, a2, n])/2 + 
    S2[a2, a1, a2, a1, SP[a1, a2], n]/2 - 
    S2[a1, n]*S2[a2, a1, a2, a2, a1, n] - S2[a2, a1, a2, a2, SP[a1, a1], n] + 
    S2[a2, a1, a2, SP[a1, a1], a2, n]/2 - S2[a2, a1, a2, SP[a1, a2], a1, n] + 
    2*S2[a2, a1, SP[a1, a1], a2, a2, n] + S2[a2, a1, SP[a1, a2], a1, a2, n]/
     2 - S2[a2, a1, SP[a1, a2], a2, a1, n] + 
    (S2[a1, n]*S2[a2, a2, a1, a2, a1, n])/2 + 
    S2[a2, a2, a1, a2, SP[a1, a1], n]/2 + S2[a2, a2, a1, SP[a1, a2], a1, n]/
     2 + 2*S2[a1, n]*S2[a2, a2, a2, a1, a1, n] + 
    2*S2[a2, a2, a2, a1, SP[a1, a1], n] + 
    2*S2[a2, a2, a2, SP[a1, a1], a1, n] + S2[a2, a2, SP[a1, a1], a2, a1, n]/
     2 + 2*S2[a2, a2, SP[a1, a2], a1, a1, n] + 
    2*S2[a2, SP[a1, a1], a1, a2, a2, n] + S2[a2, SP[a1, a1], a2, a1, a2, n]/
     2 - S2[a2, SP[a1, a1], a2, a2, a1, n] + 
    S2[a2, SP[a1, a2], a1, a2, a1, n]/2 + 
    2*S2[a2, SP[a1, a2], a2, a1, a1, n] + 
    6*S2[SP[a1, a1], a1, a2, a2, a2, n] + 
    4*S2[SP[a1, a1], a2, a1, a2, a2, n] + 
    (3*S2[SP[a1, a1], a2, a2, a1, a2, n])/2 - S2[SP[a1, a1], a2, a2, a2, a1, 
     n] - 4*S2[SP[a1, a2], a1, a1, a2, a2, n] - 
    (5*S2[SP[a1, a2], a1, a2, a1, a2, n])/2 - S2[SP[a1, a2], a1, a2, a2, a1, 
     n] - S2[SP[a1, a2], a2, a1, a1, a2, n] + 
    S2[SP[a1, a2], a2, a1, a2, a1, n]/2 + 
    2*S2[SP[a1, a2], a2, a2, a1, a1, n] - S2[a2, a2, a1, a1, a2, a1, n] - 
    3*S2[a2, a2, a1, a2, a1, a1, n] - 6*S2[a2, a2, a2, a1, a1, a1, n] /; 
   MyMemberQ[{{a1, a2}}, {a1, a1, a1, a2, a2, a2}] && a1 != a2, 
 S2[a1_, a2_, a1_, a1_, a2_, a2_, n_] :> 
  -2*S2[a1, a1, a2, n]*S2[a1, a2, a2, n] - 
    2*S2[SP[a1, a1], SP[a1, a2], SP[a2, a2], n] + 
    S2[a1, a2, n]*S2[a1, a1, a2, a2, n] + 
    3*S2[a1, a1, SP[a1, a2], SP[a2, a2], n] + S2[a1, SP[a1, a1], a2, 
     SP[a2, a2], n] + S2[a1, SP[a1, a1], SP[a2, a2], a2, n] + 
    2*S2[a1, SP[a1, a2], a1, SP[a2, a2], n] + 
    2*S2[a1, SP[a1, a2], SP[a1, a2], a2, n] + S2[SP[a1, a1], a1, a2, 
     SP[a2, a2], n] + S2[SP[a1, a1], a1, SP[a2, a2], a2, n] + 
    2*S2[SP[a1, a1], a2, a1, SP[a2, a2], n] + 
    2*S2[SP[a1, a1], a2, SP[a1, a2], a2, n] + 
    3*S2[SP[a1, a1], SP[a1, a2], a2, a2, n] + 
    3*S2[a2, n]*S2[a1, a1, a1, a2, a2, n] + 
    (3*S2[a2, n]*S2[a1, a1, a2, a1, a2, n])/2 - 
    (3*S2[a1, a1, a2, a1, SP[a2, a2], n])/2 - 
    (3*S2[a1, a1, a2, SP[a1, a2], a2, n])/2 - 
    3*S2[a1, a1, SP[a1, a2], a2, a2, n] + 
    (3*S2[a1, a1, SP[a2, a2], a1, a2, n])/2 + 
    (S2[a2, n]*S2[a1, a2, a1, a1, a2, n])/2 - 
    (3*S2[a1, a2, a1, a1, SP[a2, a2], n])/2 - 
    (3*S2[a1, a2, a1, SP[a1, a2], a2, n])/2 - 
    (3*S2[a1, a2, SP[a1, a2], a1, a2, n])/2 - 
    3*S2[a1, SP[a1, a1], a2, a2, a2, n] - S2[a1, SP[a1, a2], a2, a1, a2, n]/
     2 + S2[a1, SP[a2, a2], a1, a1, a2, n]/2 - 
    (3*S2[a2, n]*S2[a2, a1, a1, a1, a2, n])/2 - 
    (3*S2[a2, a1, a1, a1, SP[a2, a2], n])/2 - 
    (3*S2[a2, a1, a1, SP[a1, a2], a2, n])/2 - 
    (3*S2[a2, a1, SP[a1, a2], a1, a2, n])/2 + 
    S2[a1, n]*S2[a2, a2, a1, a1, a2, n] + S2[a2, a2, a1, a1, SP[a1, a2], n] + 
    S2[a2, a2, a1, SP[a1, a1], a2, n] + S2[a2, a2, SP[a1, a1], a1, a2, n] - 
    S2[a2, SP[a1, a2], a1, a1, a2, n]/2 - 
    3*S2[SP[a1, a1], a1, a2, a2, a2, n] - 
    3*S2[SP[a1, a1], a2, a1, a2, a2, n] - 
    2*S2[SP[a1, a1], a2, a2, a1, a2, n] + 
    3*S2[SP[a1, a2], a1, a1, a2, a2, n] + 
    (3*S2[SP[a1, a2], a1, a2, a1, a2, n])/2 + 
    (3*S2[SP[a1, a2], a2, a1, a1, a2, n])/2 - 
    (3*S2[SP[a2, a2], a1, a1, a1, a2, n])/2 - S2[a2, a2, a1, a1, a2, a1, 
     n] /; MyMemberQ[{{a1, a2}}, {a1, a1, a1, a2, a2, a2}] && a1 != a2, 
 S2[a1_, a2_, a1_, a2_, a1_, a2_, n_] :> 
  4*S2[a1, a1, a2, n]*S2[a1, a2, a2, n] + 
    4*S2[SP[a1, a1], SP[a1, a2], SP[a2, a2], n] - 
    (4*S2[a1, a2, n]*S2[a1, a1, a2, a2, n])/3 - 
    (20*S2[a1, a1, SP[a1, a2], SP[a2, a2], n])/3 + 
    (S2[a1, a2, n]*S2[a1, a2, a1, a2, n])/3 - 
    S2[a1, a2, SP[a1, a1], SP[a2, a2], n]/3 - 
    (8*S2[a1, SP[a1, a1], a2, SP[a2, a2], n])/3 - 
    (8*S2[a1, SP[a1, a1], SP[a2, a2], a2, n])/3 - 
    (13*S2[a1, SP[a1, a2], a1, SP[a2, a2], n])/3 - 
    (13*S2[a1, SP[a1, a2], SP[a1, a2], a2, n])/3 - 
    (8*S2[SP[a1, a1], a1, a2, SP[a2, a2], n])/3 - 
    (8*S2[SP[a1, a1], a1, SP[a2, a2], a2, n])/3 - 
    (13*S2[SP[a1, a1], a2, a1, SP[a2, a2], n])/3 - 
    (13*S2[SP[a1, a1], a2, SP[a1, a2], a2, n])/3 - 
    (20*S2[SP[a1, a1], SP[a1, a2], a2, a2, n])/3 - 
    S2[SP[a1, a1], SP[a2, a2], a1, a2, n]/3 - 
    12*S2[a2, n]*S2[a1, a1, a1, a2, a2, n] - 
    4*S2[a1, a1, a1, a2, SP[a2, a2], n] - 
    4*S2[a1, a1, a1, SP[a2, a2], a2, n] - 
    8*S2[a2, n]*S2[a1, a1, a2, a1, a2, n] - 
    (2*S2[a1, a1, a2, a1, SP[a2, a2], n])/3 + 
    4*S2[a1, n]*S2[a1, a1, a2, a2, a2, n] + 
    4*S2[a1, a1, a2, a2, SP[a1, a2], n] + 
    (10*S2[a1, a1, a2, SP[a1, a2], a2, n])/3 + 
    (20*S2[a1, a1, SP[a1, a2], a2, a2, n])/3 - 
    (22*S2[a1, a1, SP[a2, a2], a1, a2, n])/3 - 
    4*S2[a2, n]*S2[a1, a2, a1, a1, a2, n] + 
    (2*S2[a1, a2, a1, a1, SP[a2, a2], n])/3 + 
    4*S2[a1, n]*S2[a1, a2, a1, a2, a2, n] + 
    4*S2[a1, a2, a1, a2, SP[a1, a2], n] + 
    (14*S2[a1, a2, a1, SP[a1, a2], a2, n])/3 + 
    2*S2[a1, n]*S2[a1, a2, a2, a1, a2, n] + 
    2*S2[a1, a2, a2, a1, SP[a1, a2], n] - 
    2*S2[a1, n]*S2[a1, a2, a2, a2, a1, n] - 
    2*S2[a1, a2, a2, a2, SP[a1, a1], n] + 
    2*S2[a1, a2, a2, SP[a1, a1], a2, n] - 
    2*S2[a1, a2, a2, SP[a1, a2], a1, n] + 
    (14*S2[a1, a2, SP[a1, a1], a2, a2, n])/3 + 
    2*S2[a1, a2, SP[a1, a2], a1, a2, n] - 
    2*S2[a1, a2, SP[a1, a2], a2, a1, n] + 
    12*S2[a1, SP[a1, a1], a2, a2, a2, n] - 
    (2*S2[a1, SP[a1, a2], a1, a2, a2, n])/3 - 
    (4*S2[a1, SP[a1, a2], a2, a1, a2, n])/3 - 
    2*S2[a1, SP[a1, a2], a2, a2, a1, n] - 
    4*S2[a1, SP[a2, a2], a1, a1, a2, n] + 
    4*S2[a1, n]*S2[a2, a1, a1, a2, a2, n] + 
    4*S2[a2, a1, a1, a2, SP[a1, a2], n] + 
    4*S2[a2, a1, a1, SP[a1, a2], a2, n] + 
    2*S2[a1, n]*S2[a2, a1, a2, a1, a2, n] + 
    2*S2[a2, a1, a2, a1, SP[a1, a2], n] - 
    2*S2[a1, n]*S2[a2, a1, a2, a2, a1, n] - 
    2*S2[a2, a1, a2, a2, SP[a1, a1], n] + 
    2*S2[a2, a1, a2, SP[a1, a1], a2, n] - 
    2*S2[a2, a1, a2, SP[a1, a2], a1, n] + 
    4*S2[a2, a1, SP[a1, a1], a2, a2, n] + 
    2*S2[a2, a1, SP[a1, a2], a1, a2, n] - 
    2*S2[a2, a1, SP[a1, a2], a2, a1, n] + 
    4*S2[a1, n]*S2[a2, a2, a2, a1, a1, n] + 
    4*S2[a2, a2, a2, a1, SP[a1, a1], n] + 
    4*S2[a2, a2, a2, SP[a1, a1], a1, n] + 
    4*S2[a2, a2, SP[a1, a2], a1, a1, n] + 
    4*S2[a2, SP[a1, a1], a1, a2, a2, n] + 
    2*S2[a2, SP[a1, a1], a2, a1, a2, n] - 
    2*S2[a2, SP[a1, a1], a2, a2, a1, n] + 
    4*S2[a2, SP[a1, a2], a2, a1, a1, n] + 
    12*S2[SP[a1, a1], a1, a2, a2, a2, n] + 
    (34*S2[SP[a1, a1], a2, a1, a2, a2, n])/3 + 
    (20*S2[SP[a1, a1], a2, a2, a1, a2, n])/3 - 
    2*S2[SP[a1, a1], a2, a2, a2, a1, n] - 
    8*S2[SP[a1, a2], a1, a1, a2, a2, n] - 
    6*S2[SP[a1, a2], a1, a2, a1, a2, n] - 
    2*S2[SP[a1, a2], a1, a2, a2, a1, n] - 
    4*S2[SP[a1, a2], a2, a1, a1, a2, n] + 
    4*S2[SP[a1, a2], a2, a2, a1, a1, n] - 4*S2[a2, a2, a1, a2, a1, a1, n] - 
    12*S2[a2, a2, a2, a1, a1, a1, n] /; 
   MyMemberQ[{{a1, a2}}, {a1, a1, a1, a2, a2, a2}] && a1 != a2, 
 S2[a1_, a2_, a1_, a2_, a2_, a1_, n_] :> 
  -2*S2[a1, a1, a2, n]*S2[a1, a2, a2, n] - 
    2*S2[SP[a1, a1], SP[a1, a2], SP[a2, a2], n] - 
    (2*S2[a1, a2, n]*S2[a1, a1, a2, a2, n])/3 + 
    (14*S2[a1, a1, SP[a1, a2], SP[a2, a2], n])/3 - 
    (S2[a1, a2, n]*S2[a1, a2, a1, a2, n])/3 + 
    S2[a1, a2, SP[a1, a1], SP[a2, a2], n]/3 + 
    (8*S2[a1, SP[a1, a1], a2, SP[a2, a2], n])/3 + 
    (8*S2[a1, SP[a1, a1], SP[a2, a2], a2, n])/3 + 
    (7*S2[a1, SP[a1, a2], a1, SP[a2, a2], n])/3 + 
    (7*S2[a1, SP[a1, a2], SP[a1, a2], a2, n])/3 + 
    (8*S2[SP[a1, a1], a1, a2, SP[a2, a2], n])/3 + 
    (8*S2[SP[a1, a1], a1, SP[a2, a2], a2, n])/3 + 
    (7*S2[SP[a1, a1], a2, a1, SP[a2, a2], n])/3 + 
    (7*S2[SP[a1, a1], a2, SP[a1, a2], a2, n])/3 + 
    (14*S2[SP[a1, a1], SP[a1, a2], a2, a2, n])/3 + 
    S2[SP[a1, a1], SP[a2, a2], a1, a2, n]/3 + 
    12*S2[a2, n]*S2[a1, a1, a1, a2, a2, n] + 
    4*S2[a1, a1, a1, a2, SP[a2, a2], n] + 
    4*S2[a1, a1, a1, SP[a2, a2], a2, n] + 
    6*S2[a2, n]*S2[a1, a1, a2, a1, a2, n] + 
    (2*S2[a1, a1, a2, a1, SP[a2, a2], n])/3 - 
    4*S2[a1, n]*S2[a1, a1, a2, a2, a2, n] - 
    4*S2[a1, a1, a2, a2, SP[a1, a2], n] - 
    (10*S2[a1, a1, a2, SP[a1, a2], a2, n])/3 - 
    (14*S2[a1, a1, SP[a1, a2], a2, a2, n])/3 + 
    (16*S2[a1, a1, SP[a2, a2], a1, a2, n])/3 + 
    2*S2[a2, n]*S2[a1, a2, a1, a1, a2, n] - 
    (2*S2[a1, a2, a1, a1, SP[a2, a2], n])/3 - 
    3*S2[a1, n]*S2[a1, a2, a1, a2, a2, n] - 
    3*S2[a1, a2, a1, a2, SP[a1, a2], n] - 
    (11*S2[a1, a2, a1, SP[a1, a2], a2, n])/3 - 
    S2[a1, n]*S2[a1, a2, a2, a1, a2, n] - S2[a1, a2, a2, a1, SP[a1, a2], n] + 
    2*S2[a1, n]*S2[a1, a2, a2, a2, a1, n] + 
    2*S2[a1, a2, a2, a2, SP[a1, a1], n] - S2[a1, a2, a2, SP[a1, a1], a2, n] + 
    2*S2[a1, a2, a2, SP[a1, a2], a1, n] - 
    (11*S2[a1, a2, SP[a1, a1], a2, a2, n])/3 - S2[a1, a2, SP[a1, a2], a1, a2, 
     n] + 2*S2[a1, a2, SP[a1, a2], a2, a1, n] - 
    12*S2[a1, SP[a1, a1], a2, a2, a2, n] + 
    (11*S2[a1, SP[a1, a2], a1, a2, a2, n])/3 + 
    (7*S2[a1, SP[a1, a2], a2, a1, a2, n])/3 + 
    2*S2[a1, SP[a1, a2], a2, a2, a1, n] + 
    2*S2[a1, SP[a2, a2], a1, a1, a2, n] - 
    4*S2[a1, n]*S2[a2, a1, a1, a2, a2, n] - 
    4*S2[a2, a1, a1, a2, SP[a1, a2], n] - 
    4*S2[a2, a1, a1, SP[a1, a2], a2, n] - 
    S2[a1, n]*S2[a2, a1, a2, a1, a2, n] - S2[a2, a1, a2, a1, SP[a1, a2], n] + 
    2*S2[a1, n]*S2[a2, a1, a2, a2, a1, n] + 
    2*S2[a2, a1, a2, a2, SP[a1, a1], n] - S2[a2, a1, a2, SP[a1, a1], a2, n] + 
    2*S2[a2, a1, a2, SP[a1, a2], a1, n] - 
    4*S2[a2, a1, SP[a1, a1], a2, a2, n] - S2[a2, a1, SP[a1, a2], a1, a2, n] + 
    2*S2[a2, a1, SP[a1, a2], a2, a1, n] - 
    S2[a1, n]*S2[a2, a2, a1, a2, a1, n] - S2[a2, a2, a1, a2, SP[a1, a1], n] - 
    S2[a2, a2, a1, SP[a1, a2], a1, n] - 4*S2[a1, n]*
     S2[a2, a2, a2, a1, a1, n] - 4*S2[a2, a2, a2, a1, SP[a1, a1], n] - 
    4*S2[a2, a2, a2, SP[a1, a1], a1, n] - S2[a2, a2, SP[a1, a1], a2, a1, n] - 
    4*S2[a2, a2, SP[a1, a2], a1, a1, n] - 
    4*S2[a2, SP[a1, a1], a1, a2, a2, n] - S2[a2, SP[a1, a1], a2, a1, a2, n] + 
    2*S2[a2, SP[a1, a1], a2, a2, a1, n] - S2[a2, SP[a1, a2], a1, a2, a1, n] - 
    4*S2[a2, SP[a1, a2], a2, a1, a1, n] - 
    12*S2[SP[a1, a1], a1, a2, a2, a2, n] - 
    (25*S2[SP[a1, a1], a2, a1, a2, a2, n])/3 - 
    (11*S2[SP[a1, a1], a2, a2, a1, a2, n])/3 + 
    2*S2[SP[a1, a1], a2, a2, a2, a1, n] + 
    8*S2[SP[a1, a2], a1, a1, a2, a2, n] + 
    5*S2[SP[a1, a2], a1, a2, a1, a2, n] + 
    2*S2[SP[a1, a2], a1, a2, a2, a1, n] + 
    2*S2[SP[a1, a2], a2, a1, a1, a2, n] - S2[SP[a1, a2], a2, a1, a2, a1, n] - 
    4*S2[SP[a1, a2], a2, a2, a1, a1, n] + 2*S2[a2, a2, a1, a1, a2, a1, n] + 
    6*S2[a2, a2, a1, a2, a1, a1, n] + 12*S2[a2, a2, a2, a1, a1, a1, n] /; 
   MyMemberQ[{{a1, a2}}, {a1, a1, a1, a2, a2, a2}] && a1 != a2, 
 S2[a1_, a2_, a2_, a1_, a1_, a2_, n_] :> 
  (-2*S2[a1, a2, n]*S2[a1, a1, a2, a2, n])/3 + 
    (2*S2[a1, a1, SP[a1, a2], SP[a2, a2], n])/3 - 
    (S2[a1, a2, n]*S2[a1, a2, a1, a2, n])/3 + 
    S2[a1, a2, SP[a1, a1], SP[a2, a2], n]/3 + 
    (2*S2[a1, SP[a1, a1], a2, SP[a2, a2], n])/3 + 
    (2*S2[a1, SP[a1, a1], SP[a2, a2], a2, n])/3 + 
    S2[a1, SP[a1, a2], a1, SP[a2, a2], n]/3 + 
    S2[a1, SP[a1, a2], SP[a1, a2], a2, n]/3 + 
    (2*S2[SP[a1, a1], a1, a2, SP[a2, a2], n])/3 + 
    (2*S2[SP[a1, a1], a1, SP[a2, a2], a2, n])/3 + 
    S2[SP[a1, a1], a2, a1, SP[a2, a2], n]/3 + 
    S2[SP[a1, a1], a2, SP[a1, a2], a2, n]/3 + 
    (2*S2[SP[a1, a1], SP[a1, a2], a2, a2, n])/3 + 
    S2[SP[a1, a1], SP[a2, a2], a1, a2, n]/3 + 
    3*S2[a2, n]*S2[a1, a1, a1, a2, a2, n] + S2[a1, a1, a1, a2, SP[a2, a2], 
     n] + S2[a1, a1, a1, SP[a2, a2], a2, n] + 
    2*S2[a2, n]*S2[a1, a1, a2, a1, a2, n] + 
    (2*S2[a1, a1, a2, a1, SP[a2, a2], n])/3 - 
    S2[a1, n]*S2[a1, a1, a2, a2, a2, n] - S2[a1, a1, a2, a2, SP[a1, a2], n] - 
    S2[a1, a1, a2, SP[a1, a2], a2, n]/3 - 
    (2*S2[a1, a1, SP[a1, a2], a2, a2, n])/3 + 
    (4*S2[a1, a1, SP[a2, a2], a1, a2, n])/3 + 
    S2[a2, n]*S2[a1, a2, a1, a1, a2, n] + S2[a1, a2, a1, a1, SP[a2, a2], n]/
     3 - S2[a1, n]*S2[a1, a2, a1, a2, a2, n] - S2[a1, a2, a1, a2, SP[a1, a2], 
     n] - (2*S2[a1, a2, a1, SP[a1, a2], a2, n])/3 - 
    (S2[a1, n]*S2[a1, a2, a2, a1, a2, n])/2 - 
    S2[a1, a2, a2, a1, SP[a1, a2], n]/2 + 
    (S2[a1, n]*S2[a1, a2, a2, a2, a1, n])/2 + 
    S2[a1, a2, a2, a2, SP[a1, a1], n]/2 - S2[a1, a2, a2, SP[a1, a1], a2, n]/
     2 + S2[a1, a2, a2, SP[a1, a2], a1, n]/2 - 
    (5*S2[a1, a2, SP[a1, a1], a2, a2, n])/3 + 
    S2[a1, a2, SP[a1, a2], a1, a2, n]/2 + S2[a1, a2, SP[a1, a2], a2, a1, n]/
     2 - 3*S2[a1, SP[a1, a1], a2, a2, a2, n] + 
    (2*S2[a1, SP[a1, a2], a1, a2, a2, n])/3 + 
    (5*S2[a1, SP[a1, a2], a2, a1, a2, n])/6 + 
    S2[a1, SP[a1, a2], a2, a2, a1, n]/2 + S2[a1, SP[a2, a2], a1, a1, a2, n] - 
    S2[a1, n]*S2[a2, a1, a1, a2, a2, n] - S2[a2, a1, a1, a2, SP[a1, a2], n] - 
    S2[a2, a1, a1, SP[a1, a2], a2, n] - (S2[a1, n]*S2[a2, a1, a2, a1, a2, n])/
     2 - S2[a2, a1, a2, a1, SP[a1, a2], n]/2 + 
    (S2[a1, n]*S2[a2, a1, a2, a2, a1, n])/2 + 
    S2[a2, a1, a2, a2, SP[a1, a1], n]/2 - S2[a2, a1, a2, SP[a1, a1], a2, n]/
     2 + S2[a2, a1, a2, SP[a1, a2], a1, n]/2 - S2[a2, a1, SP[a1, a1], a2, a2, 
     n] - S2[a2, a1, SP[a1, a2], a1, a2, n]/2 + 
    S2[a2, a1, SP[a1, a2], a2, a1, n]/2 - 
    S2[a1, n]*S2[a2, a2, a2, a1, a1, n] - S2[a2, a2, a2, a1, SP[a1, a1], n] - 
    S2[a2, a2, a2, SP[a1, a1], a1, n] - S2[a2, a2, SP[a1, a2], a1, a1, n] - 
    S2[a2, SP[a1, a1], a1, a2, a2, n] - S2[a2, SP[a1, a1], a2, a1, a2, n]/2 + 
    S2[a2, SP[a1, a1], a2, a2, a1, n]/2 - S2[a2, SP[a1, a2], a2, a1, a1, n] - 
    3*S2[SP[a1, a1], a1, a2, a2, a2, n] - 
    (7*S2[SP[a1, a1], a2, a1, a2, a2, n])/3 - 
    (7*S2[SP[a1, a1], a2, a2, a1, a2, n])/6 + 
    S2[SP[a1, a1], a2, a2, a2, a1, n]/2 + 
    2*S2[SP[a1, a2], a1, a1, a2, a2, n] + 
    (3*S2[SP[a1, a2], a1, a2, a1, a2, n])/2 + 
    S2[SP[a1, a2], a1, a2, a2, a1, n]/2 + S2[SP[a1, a2], a2, a1, a1, a2, n] - 
    S2[SP[a1, a2], a2, a2, a1, a1, n] + S2[a2, a2, a1, a2, a1, a1, n] + 
    3*S2[a2, a2, a2, a1, a1, a1, n] /; 
   MyMemberQ[{{a1, a2}}, {a1, a1, a1, a2, a2, a2}] && a1 != a2, 
 S2[a1_, a2_, a2_, a1_, a2_, a1_, n_] :> 
  (8*S2[a1, a2, n]*S2[a1, a1, a2, a2, n])/3 - 
    (8*S2[a1, a1, SP[a1, a2], SP[a2, a2], n])/3 + 
    (S2[a1, a2, n]*S2[a1, a2, a1, a2, n])/3 - 
    S2[a1, a2, SP[a1, a1], SP[a2, a2], n]/3 - 
    (8*S2[a1, SP[a1, a1], a2, SP[a2, a2], n])/3 - 
    (8*S2[a1, SP[a1, a1], SP[a2, a2], a2, n])/3 - 
    S2[a1, SP[a1, a2], a1, SP[a2, a2], n]/3 - 
    S2[a1, SP[a1, a2], SP[a1, a2], a2, n]/3 - 
    (8*S2[SP[a1, a1], a1, a2, SP[a2, a2], n])/3 - 
    (8*S2[SP[a1, a1], a1, SP[a2, a2], a2, n])/3 - 
    S2[SP[a1, a1], a2, a1, SP[a2, a2], n]/3 - 
    S2[SP[a1, a1], a2, SP[a1, a2], a2, n]/3 - 
    (8*S2[SP[a1, a1], SP[a1, a2], a2, a2, n])/3 - 
    S2[SP[a1, a1], SP[a2, a2], a1, a2, n]/3 - 
    12*S2[a2, n]*S2[a1, a1, a1, a2, a2, n] - 
    4*S2[a1, a1, a1, a2, SP[a2, a2], n] - 
    4*S2[a1, a1, a1, SP[a2, a2], a2, n] - 
    6*S2[a2, n]*S2[a1, a1, a2, a1, a2, n] - 
    (8*S2[a1, a1, a2, a1, SP[a2, a2], n])/3 + 
    4*S2[a1, n]*S2[a1, a1, a2, a2, a2, n] + 
    4*S2[a1, a1, a2, a2, SP[a1, a2], n] + 
    (4*S2[a1, a1, a2, SP[a1, a2], a2, n])/3 + 
    (8*S2[a1, a1, SP[a1, a2], a2, a2, n])/3 - 
    (16*S2[a1, a1, SP[a2, a2], a1, a2, n])/3 - 
    2*S2[a2, n]*S2[a1, a2, a1, a1, a2, n] - 
    (4*S2[a1, a2, a1, a1, SP[a2, a2], n])/3 + 
    4*S2[a1, n]*S2[a1, a2, a1, a2, a2, n] + 
    4*S2[a1, a2, a1, a2, SP[a1, a2], n] + 
    (8*S2[a1, a2, a1, SP[a1, a2], a2, n])/3 + 
    2*S2[a1, n]*S2[a1, a2, a2, a1, a2, n] + 
    2*S2[a1, a2, a2, a1, SP[a1, a2], n] - 
    2*S2[a1, n]*S2[a1, a2, a2, a2, a1, n] - 
    2*S2[a1, a2, a2, a2, SP[a1, a1], n] + 
    2*S2[a1, a2, a2, SP[a1, a1], a2, n] - 
    2*S2[a1, a2, a2, SP[a1, a2], a1, n] + 
    (14*S2[a1, a2, SP[a1, a1], a2, a2, n])/3 - 
    2*S2[a1, a2, SP[a1, a2], a2, a1, n] + 
    12*S2[a1, SP[a1, a1], a2, a2, a2, n] - 
    (14*S2[a1, SP[a1, a2], a1, a2, a2, n])/3 - 
    (10*S2[a1, SP[a1, a2], a2, a1, a2, n])/3 - 
    2*S2[a1, SP[a1, a2], a2, a2, a1, n] - 
    2*S2[a1, SP[a2, a2], a1, a1, a2, n] + 
    4*S2[a1, n]*S2[a2, a1, a1, a2, a2, n] + 
    4*S2[a2, a1, a1, a2, SP[a1, a2], n] + 
    4*S2[a2, a1, a1, SP[a1, a2], a2, n] + 
    S2[a1, n]*S2[a2, a1, a2, a1, a2, n] + S2[a2, a1, a2, a1, SP[a1, a2], n] - 
    2*S2[a1, n]*S2[a2, a1, a2, a2, a1, n] - 
    2*S2[a2, a1, a2, a2, SP[a1, a1], n] + S2[a2, a1, a2, SP[a1, a1], a2, n] - 
    2*S2[a2, a1, a2, SP[a1, a2], a1, n] + 
    4*S2[a2, a1, SP[a1, a1], a2, a2, n] + S2[a2, a1, SP[a1, a2], a1, a2, n] - 
    2*S2[a2, a1, SP[a1, a2], a2, a1, n] + 
    S2[a1, n]*S2[a2, a2, a1, a2, a1, n] + S2[a2, a2, a1, a2, SP[a1, a1], n] + 
    S2[a2, a2, a1, SP[a1, a2], a1, n] + 4*S2[a1, n]*
     S2[a2, a2, a2, a1, a1, n] + 4*S2[a2, a2, a2, a1, SP[a1, a1], n] + 
    4*S2[a2, a2, a2, SP[a1, a1], a1, n] + S2[a2, a2, SP[a1, a1], a2, a1, n] + 
    4*S2[a2, a2, SP[a1, a2], a1, a1, n] + 
    4*S2[a2, SP[a1, a1], a1, a2, a2, n] + S2[a2, SP[a1, a1], a2, a1, a2, n] - 
    2*S2[a2, SP[a1, a1], a2, a2, a1, n] + S2[a2, SP[a1, a2], a1, a2, a1, n] + 
    4*S2[a2, SP[a1, a2], a2, a1, a1, n] + 
    12*S2[SP[a1, a1], a1, a2, a2, a2, n] + 
    (22*S2[SP[a1, a1], a2, a1, a2, a2, n])/3 + 
    (8*S2[SP[a1, a1], a2, a2, a1, a2, n])/3 - 
    2*S2[SP[a1, a1], a2, a2, a2, a1, n] - 
    8*S2[SP[a1, a2], a1, a1, a2, a2, n] - 
    5*S2[SP[a1, a2], a1, a2, a1, a2, n] - 
    2*S2[SP[a1, a2], a1, a2, a2, a1, n] - 
    2*S2[SP[a1, a2], a2, a1, a1, a2, n] + S2[SP[a1, a2], a2, a1, a2, a1, n] + 
    4*S2[SP[a1, a2], a2, a2, a1, a1, n] - 2*S2[a2, a2, a1, a1, a2, a1, n] - 
    6*S2[a2, a2, a1, a2, a1, a1, n] - 12*S2[a2, a2, a2, a1, a1, a1, n] /; 
   MyMemberQ[{{a1, a2}}, {a1, a1, a1, a2, a2, a2}] && a1 != a2, 
 S2[a1_, a2_, a2_, a2_, a1_, a1_, n_] :> 
  -(S2[a1, a2, n]*S2[a1, a1, a2, a2, n]) + S2[a1, a1, SP[a1, a2], SP[a2, a2], 
     n] + S2[a1, SP[a1, a1], a2, SP[a2, a2], n] + 
    S2[a1, SP[a1, a1], SP[a2, a2], a2, n] + S2[SP[a1, a1], a1, a2, 
     SP[a2, a2], n] + S2[SP[a1, a1], a1, SP[a2, a2], a2, n] + 
    S2[SP[a1, a1], SP[a1, a2], a2, a2, n] + 
    6*S2[a2, n]*S2[a1, a1, a1, a2, a2, n] + 
    3*S2[a1, a1, a1, a2, SP[a2, a2], n] + 
    3*S2[a1, a1, a1, SP[a2, a2], a2, n] + 
    3*S2[a2, n]*S2[a1, a1, a2, a1, a2, n] + 
    2*S2[a1, a1, a2, a1, SP[a2, a2], n] - 
    3*S2[a1, n]*S2[a1, a1, a2, a2, a2, n] - 
    3*S2[a1, a1, a2, a2, SP[a1, a2], n] - S2[a1, a1, a2, SP[a1, a2], a2, n] - 
    S2[a1, a1, SP[a1, a2], a2, a2, n] + 3*S2[a1, a1, SP[a2, a2], a1, a2, n] + 
    S2[a2, n]*S2[a1, a2, a1, a1, a2, n] + S2[a1, a2, a1, a1, SP[a2, a2], n] - 
    (5*S2[a1, n]*S2[a1, a2, a1, a2, a2, n])/2 - 
    (5*S2[a1, a2, a1, a2, SP[a1, a2], n])/2 - 
    (3*S2[a1, a2, a1, SP[a1, a2], a2, n])/2 - 
    S2[a1, n]*S2[a1, a2, a2, a1, a2, n] - S2[a1, a2, a2, a1, SP[a1, a2], n] + 
    (3*S2[a1, n]*S2[a1, a2, a2, a2, a1, n])/2 + 
    (3*S2[a1, a2, a2, a2, SP[a1, a1], n])/2 - S2[a1, a2, a2, SP[a1, a1], a2, 
     n] + (3*S2[a1, a2, a2, SP[a1, a2], a1, n])/2 - 
    (5*S2[a1, a2, SP[a1, a1], a2, a2, n])/2 + 
    (3*S2[a1, a2, SP[a1, a2], a2, a1, n])/2 - 
    6*S2[a1, SP[a1, a1], a2, a2, a2, n] + 
    (5*S2[a1, SP[a1, a2], a1, a2, a2, n])/2 + 
    2*S2[a1, SP[a1, a2], a2, a1, a2, n] + 
    (3*S2[a1, SP[a1, a2], a2, a2, a1, n])/2 + S2[a1, SP[a2, a2], a1, a1, a2, 
     n] - 2*S2[a1, n]*S2[a2, a1, a1, a2, a2, n] - 
    2*S2[a2, a1, a1, a2, SP[a1, a2], n] - 
    2*S2[a2, a1, a1, SP[a1, a2], a2, n] - 
    (S2[a1, n]*S2[a2, a1, a2, a1, a2, n])/2 - 
    S2[a2, a1, a2, a1, SP[a1, a2], n]/2 + 
    S2[a1, n]*S2[a2, a1, a2, a2, a1, n] + S2[a2, a1, a2, a2, SP[a1, a1], n] - 
    S2[a2, a1, a2, SP[a1, a1], a2, n]/2 + S2[a2, a1, a2, SP[a1, a2], a1, n] - 
    2*S2[a2, a1, SP[a1, a1], a2, a2, n] - S2[a2, a1, SP[a1, a2], a1, a2, n]/
     2 + S2[a2, a1, SP[a1, a2], a2, a1, n] - 
    (S2[a1, n]*S2[a2, a2, a1, a2, a1, n])/2 - 
    S2[a2, a2, a1, a2, SP[a1, a1], n]/2 - S2[a2, a2, a1, SP[a1, a2], a1, n]/
     2 - 2*S2[a1, n]*S2[a2, a2, a2, a1, a1, n] - 
    2*S2[a2, a2, a2, a1, SP[a1, a1], n] - 
    2*S2[a2, a2, a2, SP[a1, a1], a1, n] - S2[a2, a2, SP[a1, a1], a2, a1, n]/
     2 - 2*S2[a2, a2, SP[a1, a2], a1, a1, n] - 
    2*S2[a2, SP[a1, a1], a1, a2, a2, n] - S2[a2, SP[a1, a1], a2, a1, a2, n]/
     2 + S2[a2, SP[a1, a1], a2, a2, a1, n] - 
    S2[a2, SP[a1, a2], a1, a2, a1, n]/2 - 
    2*S2[a2, SP[a1, a2], a2, a1, a1, n] - 
    6*S2[SP[a1, a1], a1, a2, a2, a2, n] - 
    (7*S2[SP[a1, a1], a2, a1, a2, a2, n])/2 - S2[SP[a1, a1], a2, a2, a1, a2, 
     n] + (3*S2[SP[a1, a1], a2, a2, a2, a1, n])/2 + 
    4*S2[SP[a1, a2], a1, a1, a2, a2, n] + 
    (5*S2[SP[a1, a2], a1, a2, a1, a2, n])/2 + S2[SP[a1, a2], a1, a2, a2, a1, 
     n] + S2[SP[a1, a2], a2, a1, a1, a2, n] - 
    S2[SP[a1, a2], a2, a1, a2, a1, n]/2 - 
    2*S2[SP[a1, a2], a2, a2, a1, a1, n] + S2[a2, a2, a1, a1, a2, a1, n] + 
    3*S2[a2, a2, a1, a2, a1, a1, n] + 6*S2[a2, a2, a2, a1, a1, a1, n] /; 
   MyMemberQ[{{a1, a2}}, {a1, a1, a1, a2, a2, a2}] && a1 != a2, 
 S2[a2_, a1_, a1_, a1_, a2_, a2_, n_] :> 
  S2[a1, a1, a2, n]*S2[a1, a2, a2, n] + S2[SP[a1, a1], SP[a1, a2], 
     SP[a2, a2], n] - S2[a1, a2, n]*S2[a1, a1, a2, a2, n] - 
    S2[a1, a1, SP[a1, a2], SP[a2, a2], n] - S2[a1, SP[a1, a2], a1, 
     SP[a2, a2], n] - S2[a1, SP[a1, a2], SP[a1, a2], a2, n] - 
    S2[SP[a1, a1], a2, a1, SP[a2, a2], n] - S2[SP[a1, a1], a2, SP[a1, a2], 
     a2, n] - S2[SP[a1, a1], SP[a1, a2], a2, a2, n] + 
    S2[a2, n]*S2[a1, a1, a1, a2, a2, n] + S2[a1, a1, a1, a2, SP[a2, a2], n] + 
    S2[a1, a1, a1, SP[a2, a2], a2, n] + (S2[a2, n]*S2[a1, a1, a2, a1, a2, n])/
     2 + (3*S2[a1, a1, a2, a1, SP[a2, a2], n])/2 - 
    S2[a1, n]*S2[a1, a1, a2, a2, a2, n] - S2[a1, a1, a2, a2, SP[a1, a2], n] + 
    S2[a1, a1, a2, SP[a1, a2], a2, n]/2 + S2[a1, a1, SP[a1, a2], a2, a2, n] + 
    S2[a1, a1, SP[a2, a2], a1, a2, n]/2 + 
    (S2[a2, n]*S2[a1, a2, a1, a1, a2, n])/2 + 
    (3*S2[a1, a2, a1, a1, SP[a2, a2], n])/2 - 
    S2[a1, n]*S2[a1, a2, a1, a2, a2, n] - S2[a1, a2, a1, a2, SP[a1, a2], n] + 
    S2[a1, a2, a1, SP[a1, a2], a2, n]/2 - 
    (S2[a1, n]*S2[a1, a2, a2, a1, a2, n])/2 - 
    S2[a1, a2, a2, a1, SP[a1, a2], n]/2 + 
    (S2[a1, n]*S2[a1, a2, a2, a2, a1, n])/2 + 
    S2[a1, a2, a2, a2, SP[a1, a1], n]/2 - S2[a1, a2, a2, SP[a1, a1], a2, n]/
     2 + S2[a1, a2, a2, SP[a1, a2], a1, n]/2 - S2[a1, a2, SP[a1, a1], a2, a2, 
     n] + S2[a1, a2, SP[a1, a2], a1, a2, n] + 
    S2[a1, a2, SP[a1, a2], a2, a1, n]/2 - S2[a1, SP[a1, a1], a2, a2, a2, n] + 
    S2[a1, SP[a1, a2], a1, a2, a2, n] + S2[a1, SP[a1, a2], a2, a1, a2, n] + 
    S2[a1, SP[a1, a2], a2, a2, a1, n]/2 + S2[a1, SP[a2, a2], a1, a1, a2, n]/
     2 + (3*S2[a2, n]*S2[a2, a1, a1, a1, a2, n])/2 + 
    (3*S2[a2, a1, a1, a1, SP[a2, a2], n])/2 - 
    S2[a1, n]*S2[a2, a1, a1, a2, a2, n] - S2[a2, a1, a1, a2, SP[a1, a2], n] + 
    S2[a2, a1, a1, SP[a1, a2], a2, n]/2 - 
    (S2[a1, n]*S2[a2, a1, a2, a1, a2, n])/2 - 
    S2[a2, a1, a2, a1, SP[a1, a2], n]/2 + 
    (S2[a1, n]*S2[a2, a1, a2, a2, a1, n])/2 + 
    S2[a2, a1, a2, a2, SP[a1, a1], n]/2 - S2[a2, a1, a2, SP[a1, a1], a2, n]/
     2 + S2[a2, a1, a2, SP[a1, a2], a1, n]/2 - S2[a2, a1, SP[a1, a1], a2, a2, 
     n] + S2[a2, a1, SP[a1, a2], a1, a2, n] + 
    S2[a2, a1, SP[a1, a2], a2, a1, n]/2 - 
    S2[a1, n]*S2[a2, a2, a1, a1, a2, n] - S2[a2, a2, a1, a1, SP[a1, a2], n] - 
    S2[a2, a2, a1, SP[a1, a1], a2, n] - S2[a1, n]*S2[a2, a2, a2, a1, a1, n] - 
    S2[a2, a2, a2, a1, SP[a1, a1], n] - S2[a2, a2, a2, SP[a1, a1], a1, n] - 
    S2[a2, a2, SP[a1, a1], a1, a2, n] - S2[a2, a2, SP[a1, a2], a1, a1, n] - 
    S2[a2, SP[a1, a1], a1, a2, a2, n] - S2[a2, SP[a1, a1], a2, a1, a2, n]/2 + 
    S2[a2, SP[a1, a1], a2, a2, a1, n]/2 + S2[a2, SP[a1, a2], a1, a1, a2, n]/
     2 - S2[a2, SP[a1, a2], a2, a1, a1, n] - S2[SP[a1, a1], a1, a2, a2, a2, 
     n] + S2[SP[a1, a1], a2, a2, a1, a2, n]/2 + 
    S2[SP[a1, a1], a2, a2, a2, a1, n]/2 + S2[SP[a1, a2], a1, a2, a2, a1, n]/
     2 - S2[SP[a1, a2], a2, a1, a1, a2, n]/2 - S2[SP[a1, a2], a2, a2, a1, a1, 
     n] + (3*S2[SP[a2, a2], a1, a1, a1, a2, n])/2 + 
    S2[a2, a2, a1, a1, a2, a1, n] + S2[a2, a2, a1, a2, a1, a1, n] + 
    3*S2[a2, a2, a2, a1, a1, a1, n] /; 
   MyMemberQ[{{a1, a2}}, {a1, a1, a1, a2, a2, a2}] && a1 != a2, 
 S2[a2_, a1_, a1_, a2_, a1_, a2_, n_] :> 
  -2*S2[a1, a1, a2, n]*S2[a1, a2, a2, n] - 
    2*S2[SP[a1, a1], SP[a1, a2], SP[a2, a2], n] + 
    (4*S2[a1, a2, n]*S2[a1, a1, a2, a2, n])/3 + 
    (8*S2[a1, a1, SP[a1, a2], SP[a2, a2], n])/3 - 
    (S2[a1, a2, n]*S2[a1, a2, a1, a2, n])/3 + 
    S2[a1, a2, SP[a1, a1], SP[a2, a2], n]/3 + 
    (2*S2[a1, SP[a1, a1], a2, SP[a2, a2], n])/3 + 
    (2*S2[a1, SP[a1, a1], SP[a2, a2], a2, n])/3 + 
    (7*S2[a1, SP[a1, a2], a1, SP[a2, a2], n])/3 + 
    (7*S2[a1, SP[a1, a2], SP[a1, a2], a2, n])/3 + 
    (2*S2[SP[a1, a1], a1, a2, SP[a2, a2], n])/3 + 
    (2*S2[SP[a1, a1], a1, SP[a2, a2], a2, n])/3 + 
    (7*S2[SP[a1, a1], a2, a1, SP[a2, a2], n])/3 + 
    (7*S2[SP[a1, a1], a2, SP[a1, a2], a2, n])/3 + 
    (8*S2[SP[a1, a1], SP[a1, a2], a2, a2, n])/3 + 
    S2[SP[a1, a1], SP[a2, a2], a1, a2, n]/3 - 
    2*S2[a1, a1, a1, a2, SP[a2, a2], n] - 
    2*S2[a1, a1, a1, SP[a2, a2], a2, n] - 
    (10*S2[a1, a1, a2, a1, SP[a2, a2], n])/3 + 
    2*S2[a1, n]*S2[a1, a1, a2, a2, a2, n] + 
    2*S2[a1, a1, a2, a2, SP[a1, a2], n] - 
    (4*S2[a1, a1, a2, SP[a1, a2], a2, n])/3 - 
    (8*S2[a1, a1, SP[a1, a2], a2, a2, n])/3 - 
    (2*S2[a1, a1, SP[a2, a2], a1, a2, n])/3 - 
    S2[a2, n]*S2[a1, a2, a1, a1, a2, n] - 
    (11*S2[a1, a2, a1, a1, SP[a2, a2], n])/3 + 
    2*S2[a1, n]*S2[a1, a2, a1, a2, a2, n] + 
    2*S2[a1, a2, a1, a2, SP[a1, a2], n] - 
    (5*S2[a1, a2, a1, SP[a1, a2], a2, n])/3 + 
    S2[a1, n]*S2[a1, a2, a2, a1, a2, n] + S2[a1, a2, a2, a1, SP[a1, a2], n] - 
    S2[a1, n]*S2[a1, a2, a2, a2, a1, n] - S2[a1, a2, a2, a2, SP[a1, a1], n] + 
    S2[a1, a2, a2, SP[a1, a1], a2, n] - S2[a1, a2, a2, SP[a1, a2], a1, n] + 
    (4*S2[a1, a2, SP[a1, a1], a2, a2, n])/3 - 
    2*S2[a1, a2, SP[a1, a2], a1, a2, n] - S2[a1, a2, SP[a1, a2], a2, a1, n] - 
    (4*S2[a1, SP[a1, a2], a1, a2, a2, n])/3 - 
    (5*S2[a1, SP[a1, a2], a2, a1, a2, n])/3 - S2[a1, SP[a1, a2], a2, a2, a1, 
     n] - S2[a1, SP[a2, a2], a1, a1, a2, n] - 
    3*S2[a2, n]*S2[a2, a1, a1, a1, a2, n] - 
    3*S2[a2, a1, a1, a1, SP[a2, a2], n] + 
    2*S2[a1, n]*S2[a2, a1, a1, a2, a2, n] + 
    2*S2[a2, a1, a1, a2, SP[a1, a2], n] - S2[a2, a1, a1, SP[a1, a2], a2, n] + 
    S2[a1, n]*S2[a2, a1, a2, a1, a2, n] + S2[a2, a1, a2, a1, SP[a1, a2], n] - 
    S2[a1, n]*S2[a2, a1, a2, a2, a1, n] - S2[a2, a1, a2, a2, SP[a1, a1], n] + 
    S2[a2, a1, a2, SP[a1, a1], a2, n] - S2[a2, a1, a2, SP[a1, a2], a1, n] + 
    2*S2[a2, a1, SP[a1, a1], a2, a2, n] - 
    2*S2[a2, a1, SP[a1, a2], a1, a2, n] - S2[a2, a1, SP[a1, a2], a2, a1, n] + 
    2*S2[a1, n]*S2[a2, a2, a1, a1, a2, n] + 
    2*S2[a2, a2, a1, a1, SP[a1, a2], n] + 
    2*S2[a2, a2, a1, SP[a1, a1], a2, n] + 
    2*S2[a1, n]*S2[a2, a2, a2, a1, a1, n] + 
    2*S2[a2, a2, a2, a1, SP[a1, a1], n] + 
    2*S2[a2, a2, a2, SP[a1, a1], a1, n] + 
    2*S2[a2, a2, SP[a1, a1], a1, a2, n] + 
    2*S2[a2, a2, SP[a1, a2], a1, a1, n] + 
    2*S2[a2, SP[a1, a1], a1, a2, a2, n] + S2[a2, SP[a1, a1], a2, a1, a2, n] - 
    S2[a2, SP[a1, a1], a2, a2, a1, n] - S2[a2, SP[a1, a2], a1, a1, a2, n] + 
    2*S2[a2, SP[a1, a2], a2, a1, a1, n] - 
    (4*S2[SP[a1, a1], a2, a1, a2, a2, n])/3 - 
    (5*S2[SP[a1, a1], a2, a2, a1, a2, n])/3 - S2[SP[a1, a1], a2, a2, a2, a1, 
     n] + 2*S2[SP[a1, a2], a1, a1, a2, a2, n] + S2[SP[a1, a2], a1, a2, a1, 
     a2, n] - S2[SP[a1, a2], a1, a2, a2, a1, n] + S2[SP[a1, a2], a2, a1, a1, 
     a2, n] + 2*S2[SP[a1, a2], a2, a2, a1, a1, n] - 
    3*S2[SP[a2, a2], a1, a1, a1, a2, n] - 2*S2[a2, a2, a1, a1, a2, a1, n] - 
    2*S2[a2, a2, a1, a2, a1, a1, n] - 6*S2[a2, a2, a2, a1, a1, a1, n] /; 
   MyMemberQ[{{a1, a2}}, {a1, a1, a1, a2, a2, a2}] && a1 != a2, 
 S2[a2_, a1_, a1_, a2_, a2_, a1_, n_] :> 
  S2[a1, a1, a2, n]*S2[a1, a2, a2, n] + S2[SP[a1, a1], SP[a1, a2], 
     SP[a2, a2], n] + (2*S2[a1, a2, n]*S2[a1, a1, a2, a2, n])/3 - 
    (8*S2[a1, a1, SP[a1, a2], SP[a2, a2], n])/3 + 
    (S2[a1, a2, n]*S2[a1, a2, a1, a2, n])/3 - 
    S2[a1, a2, SP[a1, a1], SP[a2, a2], n]/3 - 
    (5*S2[a1, SP[a1, a1], a2, SP[a2, a2], n])/3 - 
    (5*S2[a1, SP[a1, a1], SP[a2, a2], a2, n])/3 - 
    (4*S2[a1, SP[a1, a2], a1, SP[a2, a2], n])/3 - 
    (4*S2[a1, SP[a1, a2], SP[a1, a2], a2, n])/3 - 
    (5*S2[SP[a1, a1], a1, a2, SP[a2, a2], n])/3 - 
    (5*S2[SP[a1, a1], a1, SP[a2, a2], a2, n])/3 - 
    (4*S2[SP[a1, a1], a2, a1, SP[a2, a2], n])/3 - 
    (4*S2[SP[a1, a1], a2, SP[a1, a2], a2, n])/3 - 
    (8*S2[SP[a1, a1], SP[a1, a2], a2, a2, n])/3 - 
    S2[SP[a1, a1], SP[a2, a2], a1, a2, n]/3 - 
    6*S2[a2, n]*S2[a1, a1, a1, a2, a2, n] - S2[a1, a1, a1, a2, SP[a2, a2], 
     n] - S2[a1, a1, a1, SP[a2, a2], a2, n] - 
    3*S2[a2, n]*S2[a1, a1, a2, a1, a2, n] + S2[a1, a1, a2, a1, SP[a2, a2], n]/
     3 + S2[a1, n]*S2[a1, a1, a2, a2, a2, n] + S2[a1, a1, a2, a2, SP[a1, a2], 
     n] + (4*S2[a1, a1, a2, SP[a1, a2], a2, n])/3 + 
    (8*S2[a1, a1, SP[a1, a2], a2, a2, n])/3 - 
    (7*S2[a1, a1, SP[a2, a2], a1, a2, n])/3 - 
    S2[a2, n]*S2[a1, a2, a1, a1, a2, n] + 
    (2*S2[a1, a2, a1, a1, SP[a2, a2], n])/3 + 
    S2[a1, n]*S2[a1, a2, a1, a2, a2, n] + S2[a1, a2, a1, a2, SP[a1, a2], n] + 
    (5*S2[a1, a2, a1, SP[a1, a2], a2, n])/3 + 
    (S2[a1, n]*S2[a1, a2, a2, a1, a2, n])/2 + 
    S2[a1, a2, a2, a1, SP[a1, a2], n]/2 - 
    (S2[a1, n]*S2[a1, a2, a2, a2, a1, n])/2 - 
    S2[a1, a2, a2, a2, SP[a1, a1], n]/2 + S2[a1, a2, a2, SP[a1, a1], a2, n]/
     2 - S2[a1, a2, a2, SP[a1, a2], a1, n]/2 + 
    (5*S2[a1, a2, SP[a1, a1], a2, a2, n])/3 + 
    S2[a1, a2, SP[a1, a2], a1, a2, n]/2 - S2[a1, a2, SP[a1, a2], a2, a1, n]/
     2 + 6*S2[a1, SP[a1, a1], a2, a2, a2, n] - 
    (5*S2[a1, SP[a1, a2], a1, a2, a2, n])/3 - 
    (5*S2[a1, SP[a1, a2], a2, a1, a2, n])/6 - 
    S2[a1, SP[a1, a2], a2, a2, a1, n]/2 - S2[a1, SP[a2, a2], a1, a1, a2, n] + 
    2*S2[a1, n]*S2[a2, a1, a1, a2, a2, n] + 
    2*S2[a2, a1, a1, a2, SP[a1, a2], n] + 
    2*S2[a2, a1, a1, SP[a1, a2], a2, n] + 
    (S2[a1, n]*S2[a2, a1, a2, a1, a2, n])/2 + 
    S2[a2, a1, a2, a1, SP[a1, a2], n]/2 - 
    (S2[a1, n]*S2[a2, a1, a2, a2, a1, n])/2 - 
    S2[a2, a1, a2, a2, SP[a1, a1], n]/2 + S2[a2, a1, a2, SP[a1, a1], a2, n]/
     2 - S2[a2, a1, a2, SP[a1, a2], a1, n]/2 + 
    2*S2[a2, a1, SP[a1, a1], a2, a2, n] + S2[a2, a1, SP[a1, a2], a1, a2, n]/
     2 - S2[a2, a1, SP[a1, a2], a2, a1, n]/2 + 
    S2[a1, n]*S2[a2, a2, a2, a1, a1, n] + S2[a2, a2, a2, a1, SP[a1, a1], n] + 
    S2[a2, a2, a2, SP[a1, a1], a1, n] + S2[a2, a2, SP[a1, a2], a1, a1, n] + 
    2*S2[a2, SP[a1, a1], a1, a2, a2, n] + S2[a2, SP[a1, a1], a2, a1, a2, n]/
     2 - S2[a2, SP[a1, a1], a2, a2, a1, n]/2 + S2[a2, SP[a1, a2], a2, a1, a1, 
     n] + 6*S2[SP[a1, a1], a1, a2, a2, a2, n] + 
    (13*S2[SP[a1, a1], a2, a1, a2, a2, n])/3 + 
    (13*S2[SP[a1, a1], a2, a2, a1, a2, n])/6 - 
    S2[SP[a1, a1], a2, a2, a2, a1, n]/2 - 
    4*S2[SP[a1, a2], a1, a1, a2, a2, n] - 
    (5*S2[SP[a1, a2], a1, a2, a1, a2, n])/2 - 
    S2[SP[a1, a2], a1, a2, a2, a1, n]/2 - S2[SP[a1, a2], a2, a1, a1, a2, n] + 
    S2[SP[a1, a2], a2, a2, a1, a1, n] - S2[a2, a2, a1, a2, a1, a1, n] - 
    3*S2[a2, a2, a2, a1, a1, a1, n] /; 
   MyMemberQ[{{a1, a2}}, {a1, a1, a1, a2, a2, a2}] && a1 != a2, 
 S2[a2_, a1_, a2_, a1_, a1_, a2_, n_] :> 
  (2*S2[a1, a2, n]*S2[a1, a1, a2, a2, n])/3 - 
    (2*S2[a1, a1, SP[a1, a2], SP[a2, a2], n])/3 + 
    (S2[a1, a2, n]*S2[a1, a2, a1, a2, n])/3 - 
    S2[a1, a2, SP[a1, a1], SP[a2, a2], n]/3 - 
    (2*S2[a1, SP[a1, a1], a2, SP[a2, a2], n])/3 - 
    (2*S2[a1, SP[a1, a1], SP[a2, a2], a2, n])/3 - 
    S2[a1, SP[a1, a2], a1, SP[a2, a2], n]/3 - 
    S2[a1, SP[a1, a2], SP[a1, a2], a2, n]/3 - 
    (2*S2[SP[a1, a1], a1, a2, SP[a2, a2], n])/3 - 
    (2*S2[SP[a1, a1], a1, SP[a2, a2], a2, n])/3 - 
    S2[SP[a1, a1], a2, a1, SP[a2, a2], n]/3 - 
    S2[SP[a1, a1], a2, SP[a1, a2], a2, n]/3 - 
    (2*S2[SP[a1, a1], SP[a1, a2], a2, a2, n])/3 - 
    S2[SP[a1, a1], SP[a2, a2], a1, a2, n]/3 + 
    2*S2[a1, a1, a1, a2, SP[a2, a2], n] + 
    2*S2[a1, a1, a1, SP[a2, a2], a2, n] + 
    S2[a2, n]*S2[a1, a1, a2, a1, a2, n] + 
    (7*S2[a1, a1, a2, a1, SP[a2, a2], n])/3 - 
    2*S2[a1, n]*S2[a1, a1, a2, a2, a2, n] - 
    2*S2[a1, a1, a2, a2, SP[a1, a2], n] + S2[a1, a1, a2, SP[a1, a2], a2, n]/
     3 + (2*S2[a1, a1, SP[a1, a2], a2, a2, n])/3 + 
    (5*S2[a1, a1, SP[a2, a2], a1, a2, n])/3 + 
    2*S2[a2, n]*S2[a1, a2, a1, a1, a2, n] + 
    (8*S2[a1, a2, a1, a1, SP[a2, a2], n])/3 - 
    2*S2[a1, n]*S2[a1, a2, a1, a2, a2, n] - 
    2*S2[a1, a2, a1, a2, SP[a1, a2], n] + 
    (2*S2[a1, a2, a1, SP[a1, a2], a2, n])/3 - 
    S2[a1, n]*S2[a1, a2, a2, a1, a2, n] - S2[a1, a2, a2, a1, SP[a1, a2], n] + 
    S2[a1, n]*S2[a1, a2, a2, a2, a1, n] + S2[a1, a2, a2, a2, SP[a1, a1], n] - 
    S2[a1, a2, a2, SP[a1, a1], a2, n] + S2[a1, a2, a2, SP[a1, a2], a1, n] - 
    (4*S2[a1, a2, SP[a1, a1], a2, a2, n])/3 + S2[a1, a2, SP[a1, a2], a1, a2, 
     n] + S2[a1, a2, SP[a1, a2], a2, a1, n] - 
    (2*S2[a1, SP[a1, a2], a1, a2, a2, n])/3 + 
    (2*S2[a1, SP[a1, a2], a2, a1, a2, n])/3 + S2[a1, SP[a1, a2], a2, a2, a1, 
     n] + 2*S2[a1, SP[a2, a2], a1, a1, a2, n] + 
    3*S2[a2, n]*S2[a2, a1, a1, a1, a2, n] + 
    3*S2[a2, a1, a1, a1, SP[a2, a2], n] - 
    2*S2[a1, n]*S2[a2, a1, a1, a2, a2, n] - 
    2*S2[a2, a1, a1, a2, SP[a1, a2], n] + S2[a2, a1, a1, SP[a1, a2], a2, n] - 
    S2[a1, n]*S2[a2, a1, a2, a1, a2, n] - S2[a2, a1, a2, a1, SP[a1, a2], n] + 
    S2[a1, n]*S2[a2, a1, a2, a2, a1, n] + S2[a2, a1, a2, a2, SP[a1, a1], n] - 
    S2[a2, a1, a2, SP[a1, a1], a2, n] + S2[a2, a1, a2, SP[a1, a2], a1, n] - 
    2*S2[a2, a1, SP[a1, a1], a2, a2, n] + 
    2*S2[a2, a1, SP[a1, a2], a1, a2, n] + S2[a2, a1, SP[a1, a2], a2, a1, n] - 
    2*S2[a1, n]*S2[a2, a2, a1, a1, a2, n] - 
    2*S2[a2, a2, a1, a1, SP[a1, a2], n] - 
    2*S2[a2, a2, a1, SP[a1, a1], a2, n] - 
    2*S2[a1, n]*S2[a2, a2, a2, a1, a1, n] - 
    2*S2[a2, a2, a2, a1, SP[a1, a1], n] - 
    2*S2[a2, a2, a2, SP[a1, a1], a1, n] - 
    2*S2[a2, a2, SP[a1, a1], a1, a2, n] - 
    2*S2[a2, a2, SP[a1, a2], a1, a1, n] - 
    2*S2[a2, SP[a1, a1], a1, a2, a2, n] - S2[a2, SP[a1, a1], a2, a1, a2, n] + 
    S2[a2, SP[a1, a1], a2, a2, a1, n] + S2[a2, SP[a1, a2], a1, a1, a2, n] - 
    2*S2[a2, SP[a1, a2], a2, a1, a1, n] - 
    (2*S2[SP[a1, a1], a2, a1, a2, a2, n])/3 - 
    S2[SP[a1, a1], a2, a2, a1, a2, n]/3 + S2[SP[a1, a1], a2, a2, a2, a1, n] - 
    2*S2[SP[a1, a2], a1, a1, a2, a2, n] + S2[SP[a1, a2], a1, a2, a2, a1, n] - 
    2*S2[SP[a1, a2], a2, a2, a1, a1, n] + 
    3*S2[SP[a2, a2], a1, a1, a1, a2, n] + 2*S2[a2, a2, a1, a1, a2, a1, n] + 
    2*S2[a2, a2, a1, a2, a1, a1, n] + 6*S2[a2, a2, a2, a1, a1, a1, n] /; 
   MyMemberQ[{{a1, a2}}, {a1, a1, a1, a2, a2, a2}] && a1 != a2, 
 S2[a2_, a1_, a2_, a1_, a2_, a1_, n_] :> 
  (-8*S2[a1, a2, n]*S2[a1, a1, a2, a2, n])/3 + 
    (8*S2[a1, a1, SP[a1, a2], SP[a2, a2], n])/3 - 
    (S2[a1, a2, n]*S2[a1, a2, a1, a2, n])/3 + 
    S2[a1, a2, SP[a1, a1], SP[a2, a2], n]/3 + 
    (8*S2[a1, SP[a1, a1], a2, SP[a2, a2], n])/3 + 
    (8*S2[a1, SP[a1, a1], SP[a2, a2], a2, n])/3 + 
    S2[a1, SP[a1, a2], a1, SP[a2, a2], n]/3 + 
    S2[a1, SP[a1, a2], SP[a1, a2], a2, n]/3 + 
    (8*S2[SP[a1, a1], a1, a2, SP[a2, a2], n])/3 + 
    (8*S2[SP[a1, a1], a1, SP[a2, a2], a2, n])/3 + 
    S2[SP[a1, a1], a2, a1, SP[a2, a2], n]/3 + 
    S2[SP[a1, a1], a2, SP[a1, a2], a2, n]/3 + 
    (8*S2[SP[a1, a1], SP[a1, a2], a2, a2, n])/3 + 
    S2[SP[a1, a1], SP[a2, a2], a1, a2, n]/3 + 
    12*S2[a2, n]*S2[a1, a1, a1, a2, a2, n] + 
    4*S2[a1, a1, a1, a2, SP[a2, a2], n] + 
    4*S2[a1, a1, a1, SP[a2, a2], a2, n] + 
    6*S2[a2, n]*S2[a1, a1, a2, a1, a2, n] + 
    (8*S2[a1, a1, a2, a1, SP[a2, a2], n])/3 - 
    4*S2[a1, n]*S2[a1, a1, a2, a2, a2, n] - 
    4*S2[a1, a1, a2, a2, SP[a1, a2], n] - 
    (4*S2[a1, a1, a2, SP[a1, a2], a2, n])/3 - 
    (8*S2[a1, a1, SP[a1, a2], a2, a2, n])/3 + 
    (16*S2[a1, a1, SP[a2, a2], a1, a2, n])/3 + 
    2*S2[a2, n]*S2[a1, a2, a1, a1, a2, n] + 
    (4*S2[a1, a2, a1, a1, SP[a2, a2], n])/3 - 
    4*S2[a1, n]*S2[a1, a2, a1, a2, a2, n] - 
    4*S2[a1, a2, a1, a2, SP[a1, a2], n] - 
    (8*S2[a1, a2, a1, SP[a1, a2], a2, n])/3 - 
    2*S2[a1, n]*S2[a1, a2, a2, a1, a2, n] - 
    2*S2[a1, a2, a2, a1, SP[a1, a2], n] + 
    2*S2[a1, n]*S2[a1, a2, a2, a2, a1, n] + 
    2*S2[a1, a2, a2, a2, SP[a1, a1], n] - 
    2*S2[a1, a2, a2, SP[a1, a1], a2, n] + 
    2*S2[a1, a2, a2, SP[a1, a2], a1, n] - 
    (14*S2[a1, a2, SP[a1, a1], a2, a2, n])/3 + 
    2*S2[a1, a2, SP[a1, a2], a2, a1, n] - 
    12*S2[a1, SP[a1, a1], a2, a2, a2, n] + 
    (14*S2[a1, SP[a1, a2], a1, a2, a2, n])/3 + 
    (10*S2[a1, SP[a1, a2], a2, a1, a2, n])/3 + 
    2*S2[a1, SP[a1, a2], a2, a2, a1, n] + 
    2*S2[a1, SP[a2, a2], a1, a1, a2, n] - 
    4*S2[a1, n]*S2[a2, a1, a1, a2, a2, n] - 
    4*S2[a2, a1, a1, a2, SP[a1, a2], n] - 
    4*S2[a2, a1, a1, SP[a1, a2], a2, n] - 
    S2[a1, n]*S2[a2, a1, a2, a1, a2, n] - S2[a2, a1, a2, a1, SP[a1, a2], n] + 
    2*S2[a1, n]*S2[a2, a1, a2, a2, a1, n] + 
    2*S2[a2, a1, a2, a2, SP[a1, a1], n] - S2[a2, a1, a2, SP[a1, a1], a2, n] + 
    2*S2[a2, a1, a2, SP[a1, a2], a1, n] - 
    4*S2[a2, a1, SP[a1, a1], a2, a2, n] - S2[a2, a1, SP[a1, a2], a1, a2, n] + 
    2*S2[a2, a1, SP[a1, a2], a2, a1, n] - 
    4*S2[a1, n]*S2[a2, a2, a2, a1, a1, n] - 
    4*S2[a2, a2, a2, a1, SP[a1, a1], n] - 
    4*S2[a2, a2, a2, SP[a1, a1], a1, n] - 
    4*S2[a2, a2, SP[a1, a2], a1, a1, n] - 
    4*S2[a2, SP[a1, a1], a1, a2, a2, n] - S2[a2, SP[a1, a1], a2, a1, a2, n] + 
    2*S2[a2, SP[a1, a1], a2, a2, a1, n] - 
    4*S2[a2, SP[a1, a2], a2, a1, a1, n] - 
    12*S2[SP[a1, a1], a1, a2, a2, a2, n] - 
    (22*S2[SP[a1, a1], a2, a1, a2, a2, n])/3 - 
    (8*S2[SP[a1, a1], a2, a2, a1, a2, n])/3 + 
    2*S2[SP[a1, a1], a2, a2, a2, a1, n] + 
    8*S2[SP[a1, a2], a1, a1, a2, a2, n] + 
    5*S2[SP[a1, a2], a1, a2, a1, a2, n] + 
    2*S2[SP[a1, a2], a1, a2, a2, a1, n] + 
    2*S2[SP[a1, a2], a2, a1, a1, a2, n] - 
    4*S2[SP[a1, a2], a2, a2, a1, a1, n] + 4*S2[a2, a2, a1, a2, a1, a1, n] + 
    12*S2[a2, a2, a2, a1, a1, a1, n] /; 
   MyMemberQ[{{a1, a2}}, {a1, a1, a1, a2, a2, a2}] && a1 != a2, 
 S2[a2_, a1_, a2_, a2_, a1_, a1_, n_] :> 
  S2[a1, a2, n]*S2[a1, a1, a2, a2, n] - S2[a1, a1, SP[a1, a2], SP[a2, a2], 
     n] - S2[a1, SP[a1, a1], a2, SP[a2, a2], n] - 
    S2[a1, SP[a1, a1], SP[a2, a2], a2, n] - S2[SP[a1, a1], a1, a2, 
     SP[a2, a2], n] - S2[SP[a1, a1], a1, SP[a2, a2], a2, n] - 
    S2[SP[a1, a1], SP[a1, a2], a2, a2, n] - 
    6*S2[a2, n]*S2[a1, a1, a1, a2, a2, n] - 
    3*S2[a1, a1, a1, a2, SP[a2, a2], n] - 
    3*S2[a1, a1, a1, SP[a2, a2], a2, n] - 
    3*S2[a2, n]*S2[a1, a1, a2, a1, a2, n] - 
    2*S2[a1, a1, a2, a1, SP[a2, a2], n] + 
    3*S2[a1, n]*S2[a1, a1, a2, a2, a2, n] + 
    3*S2[a1, a1, a2, a2, SP[a1, a2], n] + S2[a1, a1, a2, SP[a1, a2], a2, n] + 
    S2[a1, a1, SP[a1, a2], a2, a2, n] - 3*S2[a1, a1, SP[a2, a2], a1, a2, n] - 
    S2[a2, n]*S2[a1, a2, a1, a1, a2, n] - S2[a1, a2, a1, a1, SP[a2, a2], n] + 
    (5*S2[a1, n]*S2[a1, a2, a1, a2, a2, n])/2 + 
    (5*S2[a1, a2, a1, a2, SP[a1, a2], n])/2 + 
    (3*S2[a1, a2, a1, SP[a1, a2], a2, n])/2 + 
    S2[a1, n]*S2[a1, a2, a2, a1, a2, n] + S2[a1, a2, a2, a1, SP[a1, a2], n] - 
    (3*S2[a1, n]*S2[a1, a2, a2, a2, a1, n])/2 - 
    (3*S2[a1, a2, a2, a2, SP[a1, a1], n])/2 + S2[a1, a2, a2, SP[a1, a1], a2, 
     n] - (3*S2[a1, a2, a2, SP[a1, a2], a1, n])/2 + 
    (5*S2[a1, a2, SP[a1, a1], a2, a2, n])/2 - 
    (3*S2[a1, a2, SP[a1, a2], a2, a1, n])/2 + 
    6*S2[a1, SP[a1, a1], a2, a2, a2, n] - 
    (5*S2[a1, SP[a1, a2], a1, a2, a2, n])/2 - 
    2*S2[a1, SP[a1, a2], a2, a1, a2, n] - 
    (3*S2[a1, SP[a1, a2], a2, a2, a1, n])/2 - S2[a1, SP[a2, a2], a1, a1, a2, 
     n] + 2*S2[a1, n]*S2[a2, a1, a1, a2, a2, n] + 
    2*S2[a2, a1, a1, a2, SP[a1, a2], n] + 
    2*S2[a2, a1, a1, SP[a1, a2], a2, n] + 
    (S2[a1, n]*S2[a2, a1, a2, a1, a2, n])/2 + 
    S2[a2, a1, a2, a1, SP[a1, a2], n]/2 - 
    S2[a1, n]*S2[a2, a1, a2, a2, a1, n] - S2[a2, a1, a2, a2, SP[a1, a1], n] + 
    S2[a2, a1, a2, SP[a1, a1], a2, n]/2 - S2[a2, a1, a2, SP[a1, a2], a1, n] + 
    2*S2[a2, a1, SP[a1, a1], a2, a2, n] + S2[a2, a1, SP[a1, a2], a1, a2, n]/
     2 - S2[a2, a1, SP[a1, a2], a2, a1, n] + 
    (S2[a1, n]*S2[a2, a2, a1, a2, a1, n])/2 + 
    S2[a2, a2, a1, a2, SP[a1, a1], n]/2 + S2[a2, a2, a1, SP[a1, a2], a1, n]/
     2 + 3*S2[a1, n]*S2[a2, a2, a2, a1, a1, n] + 
    3*S2[a2, a2, a2, a1, SP[a1, a1], n] + 
    3*S2[a2, a2, a2, SP[a1, a1], a1, n] + S2[a2, a2, SP[a1, a1], a2, a1, n]/
     2 + 3*S2[a2, a2, SP[a1, a2], a1, a1, n] + 
    2*S2[a2, SP[a1, a1], a1, a2, a2, n] + S2[a2, SP[a1, a1], a2, a1, a2, n]/
     2 - S2[a2, SP[a1, a1], a2, a2, a1, n] + 
    S2[a2, SP[a1, a2], a1, a2, a1, n]/2 + 
    3*S2[a2, SP[a1, a2], a2, a1, a1, n] + 
    6*S2[SP[a1, a1], a1, a2, a2, a2, n] + 
    (7*S2[SP[a1, a1], a2, a1, a2, a2, n])/2 + S2[SP[a1, a1], a2, a2, a1, a2, 
     n] - (3*S2[SP[a1, a1], a2, a2, a2, a1, n])/2 - 
    4*S2[SP[a1, a2], a1, a1, a2, a2, n] - 
    (5*S2[SP[a1, a2], a1, a2, a1, a2, n])/2 - S2[SP[a1, a2], a1, a2, a2, a1, 
     n] - S2[SP[a1, a2], a2, a1, a1, a2, n] + 
    S2[SP[a1, a2], a2, a1, a2, a1, n]/2 + 
    3*S2[SP[a1, a2], a2, a2, a1, a1, n] - S2[a2, a2, a1, a1, a2, a1, n] - 
    4*S2[a2, a2, a1, a2, a1, a1, n] - 9*S2[a2, a2, a2, a1, a1, a1, n] /; 
   MyMemberQ[{{a1, a2}}, {a1, a1, a1, a2, a2, a2}] && a1 != a2, 
 S2[a2_, a2_, a1_, a1_, a1_, a2_, n_] :> 
  -(S2[a2, n]*S2[a1, a1, a1, a2, a2, n]) - S2[a1, a1, a1, a2, SP[a2, a2], 
     n] - S2[a1, a1, a1, SP[a2, a2], a2, n] - 
    S2[a2, n]*S2[a1, a1, a2, a1, a2, n] - S2[a1, a1, a2, a1, SP[a2, a2], n] + 
    S2[a1, n]*S2[a1, a1, a2, a2, a2, n] + S2[a1, a1, a2, a2, SP[a1, a2], n] - 
    S2[a1, a1, SP[a2, a2], a1, a2, n] - S2[a2, n]*S2[a1, a2, a1, a1, a2, n] - 
    S2[a1, a2, a1, a1, SP[a2, a2], n] + S2[a1, n]*S2[a1, a2, a1, a2, a2, n] + 
    S2[a1, a2, a1, a2, SP[a1, a2], n] + (S2[a1, n]*S2[a1, a2, a2, a1, a2, n])/
     2 + S2[a1, a2, a2, a1, SP[a1, a2], n]/2 - 
    (S2[a1, n]*S2[a1, a2, a2, a2, a1, n])/2 - 
    S2[a1, a2, a2, a2, SP[a1, a1], n]/2 + S2[a1, a2, a2, SP[a1, a1], a2, n]/
     2 - S2[a1, a2, a2, SP[a1, a2], a1, n]/2 + S2[a1, a2, SP[a1, a1], a2, a2, 
     n] - S2[a1, a2, SP[a1, a2], a1, a2, n]/2 - 
    S2[a1, a2, SP[a1, a2], a2, a1, n]/2 + S2[a1, SP[a1, a1], a2, a2, a2, n] - 
    S2[a1, SP[a1, a2], a2, a1, a2, n]/2 - S2[a1, SP[a1, a2], a2, a2, a1, n]/
     2 - S2[a1, SP[a2, a2], a1, a1, a2, n] - 
    S2[a2, n]*S2[a2, a1, a1, a1, a2, n] - S2[a2, a1, a1, a1, SP[a2, a2], n] + 
    S2[a1, n]*S2[a2, a1, a1, a2, a2, n] + S2[a2, a1, a1, a2, SP[a1, a2], n] + 
    (S2[a1, n]*S2[a2, a1, a2, a1, a2, n])/2 + 
    S2[a2, a1, a2, a1, SP[a1, a2], n]/2 - 
    (S2[a1, n]*S2[a2, a1, a2, a2, a1, n])/2 - 
    S2[a2, a1, a2, a2, SP[a1, a1], n]/2 + S2[a2, a1, a2, SP[a1, a1], a2, n]/
     2 - S2[a2, a1, a2, SP[a1, a2], a1, n]/2 + S2[a2, a1, SP[a1, a1], a2, a2, 
     n] - S2[a2, a1, SP[a1, a2], a1, a2, n]/2 - 
    S2[a2, a1, SP[a1, a2], a2, a1, n]/2 + 
    S2[a1, n]*S2[a2, a2, a1, a1, a2, n] + S2[a2, a2, a1, a1, SP[a1, a2], n] + 
    S2[a2, a2, a1, SP[a1, a1], a2, n] + S2[a1, n]*S2[a2, a2, a2, a1, a1, n] + 
    S2[a2, a2, a2, a1, SP[a1, a1], n] + S2[a2, a2, a2, SP[a1, a1], a1, n] + 
    S2[a2, a2, SP[a1, a1], a1, a2, n] + S2[a2, a2, SP[a1, a2], a1, a1, n] + 
    S2[a2, SP[a1, a1], a1, a2, a2, n] + S2[a2, SP[a1, a1], a2, a1, a2, n]/2 - 
    S2[a2, SP[a1, a1], a2, a2, a1, n]/2 + S2[a2, SP[a1, a2], a2, a1, a1, n] + 
    S2[SP[a1, a1], a1, a2, a2, a2, n] + S2[SP[a1, a1], a2, a1, a2, a2, n] + 
    S2[SP[a1, a1], a2, a2, a1, a2, n]/2 - S2[SP[a1, a1], a2, a2, a2, a1, n]/
     2 - S2[SP[a1, a2], a1, a2, a1, a2, n]/2 - 
    S2[SP[a1, a2], a1, a2, a2, a1, n]/2 + S2[SP[a1, a2], a2, a2, a1, a1, n] - 
    S2[SP[a2, a2], a1, a1, a1, a2, n] - S2[a2, a2, a1, a1, a2, a1, n] - 
    S2[a2, a2, a1, a2, a1, a1, n] - 3*S2[a2, a2, a2, a1, a1, a1, n] /; 
   MyMemberQ[{{a1, a2}}, {a1, a1, a1, a2, a2, a2}] && a1 != a2, 
 S2[a1_, a1_, a1_, a1_, a2_, a3_, n_] :> 
  S2[a3, n]*S2[a1, a1, a1, a1, a2, n] + S2[a1, a1, a1, a1, SP[a2, a3], n] - 
    (S2[a1, n]*S2[a1, a1, a1, a3, a2, n])/4 - 
    S2[a1, a1, a1, a3, SP[a1, a2], n]/4 + 
    (3*S2[a1, a1, a1, SP[a1, a3], a2, n])/4 - 
    (S2[a1, n]*S2[a1, a1, a3, a1, a2, n])/4 - 
    S2[a1, a1, a3, a1, SP[a1, a2], n]/4 + 
    (S2[a1, n]*S2[a1, a1, a3, a2, a1, n])/12 + 
    S2[a1, a1, a3, a2, SP[a1, a1], n]/12 - S2[a1, a1, a3, SP[a1, a1], a2, n]/
     4 + S2[a1, a1, a3, SP[a1, a2], a1, n]/12 - 
    S2[a1, a1, SP[a1, a1], a3, a2, n]/4 + 
    (3*S2[a1, a1, SP[a1, a3], a1, a2, n])/4 + 
    S2[a1, a1, SP[a1, a3], a2, a1, n]/12 - 
    (S2[a1, n]*S2[a1, a3, a1, a1, a2, n])/4 - 
    S2[a1, a3, a1, a1, SP[a1, a2], n]/4 + 
    (S2[a1, n]*S2[a1, a3, a1, a2, a1, n])/12 + 
    S2[a1, a3, a1, a2, SP[a1, a1], n]/12 - S2[a1, a3, a1, SP[a1, a1], a2, n]/
     4 + S2[a1, a3, a1, SP[a1, a2], a1, n]/12 - 
    (S2[a1, n]*S2[a1, a3, a2, a1, a1, n])/12 - 
    S2[a1, a3, a2, a1, SP[a1, a1], n]/12 - S2[a1, a3, a2, SP[a1, a1], a1, n]/
     12 - S2[a1, a3, SP[a1, a1], a1, a2, n]/4 + 
    S2[a1, a3, SP[a1, a1], a2, a1, n]/12 - S2[a1, a3, SP[a1, a2], a1, a1, n]/
     12 - S2[a1, SP[a1, a1], a1, a3, a2, n]/4 - 
    S2[a1, SP[a1, a1], a3, a1, a2, n]/4 + S2[a1, SP[a1, a1], a3, a2, a1, n]/
     12 + (3*S2[a1, SP[a1, a3], a1, a1, a2, n])/4 + 
    S2[a1, SP[a1, a3], a1, a2, a1, n]/12 - S2[a1, SP[a1, a3], a2, a1, a1, n]/
     12 - (S2[a1, n]*S2[a3, a1, a1, a1, a2, n])/4 - 
    S2[a3, a1, a1, a1, SP[a1, a2], n]/4 + 
    (S2[a1, n]*S2[a3, a1, a1, a2, a1, n])/12 + 
    S2[a3, a1, a1, a2, SP[a1, a1], n]/12 - S2[a3, a1, a1, SP[a1, a1], a2, n]/
     4 + S2[a3, a1, a1, SP[a1, a2], a1, n]/12 - 
    (S2[a1, n]*S2[a3, a1, a2, a1, a1, n])/12 - 
    S2[a3, a1, a2, a1, SP[a1, a1], n]/12 - S2[a3, a1, a2, SP[a1, a1], a1, n]/
     12 - S2[a3, a1, SP[a1, a1], a1, a2, n]/4 + 
    S2[a3, a1, SP[a1, a1], a2, a1, n]/12 - S2[a3, a1, SP[a1, a2], a1, a1, n]/
     12 + (S2[a1, n]*S2[a3, a2, a1, a1, a1, n])/4 + 
    S2[a3, a2, a1, a1, SP[a1, a1], n]/4 + S2[a3, a2, a1, SP[a1, a1], a1, n]/
     4 + S2[a3, a2, SP[a1, a1], a1, a1, n]/4 - 
    S2[a3, SP[a1, a1], a1, a1, a2, n]/4 + S2[a3, SP[a1, a1], a1, a2, a1, n]/
     12 - S2[a3, SP[a1, a1], a2, a1, a1, n]/12 + 
    S2[a3, SP[a1, a2], a1, a1, a1, n]/4 - S2[SP[a1, a1], a1, a1, a3, a2, n]/
     4 - S2[SP[a1, a1], a1, a3, a1, a2, n]/4 + 
    S2[SP[a1, a1], a1, a3, a2, a1, n]/12 - S2[SP[a1, a1], a3, a1, a1, a2, n]/
     4 + S2[SP[a1, a1], a3, a1, a2, a1, n]/12 - 
    S2[SP[a1, a1], a3, a2, a1, a1, n]/12 + 
    (3*S2[SP[a1, a3], a1, a1, a1, a2, n])/4 + 
    S2[SP[a1, a3], a1, a1, a2, a1, n]/12 - S2[SP[a1, a3], a1, a2, a1, a1, n]/
     12 + S2[SP[a1, a3], a2, a1, a1, a1, n]/4 - S2[a3, a2, a1, a1, a1, a1, 
     n] /; MyMemberQ[{{a2, a3}}, {a1, a1, a1, a1, a2, a3}] && a1 != a2 != a3, 
 S2[a1_, a1_, a1_, a1_, a3_, a2_, n_] :> 
  (S2[a1, n]*S2[a1, a1, a1, a3, a2, n])/4 + S2[a1, a1, a1, a3, SP[a1, a2], n]/
     4 + S2[a1, a1, a1, SP[a1, a3], a2, n]/4 - 
    (S2[a1, n]*S2[a1, a1, a3, a1, a2, n])/12 - 
    S2[a1, a1, a3, a1, SP[a1, a2], n]/12 - 
    (S2[a1, n]*S2[a1, a1, a3, a2, a1, n])/12 - 
    S2[a1, a1, a3, a2, SP[a1, a1], n]/12 - S2[a1, a1, a3, SP[a1, a1], a2, n]/
     12 - S2[a1, a1, a3, SP[a1, a2], a1, n]/12 + 
    S2[a1, a1, SP[a1, a1], a3, a2, n]/4 - S2[a1, a1, SP[a1, a3], a1, a2, n]/
     12 - S2[a1, a1, SP[a1, a3], a2, a1, n]/12 + 
    (S2[a1, n]*S2[a1, a3, a1, a1, a2, n])/12 + 
    S2[a1, a3, a1, a1, SP[a1, a2], n]/12 + 
    (S2[a1, n]*S2[a1, a3, a1, a2, a1, n])/12 + 
    S2[a1, a3, a1, a2, SP[a1, a1], n]/12 + S2[a1, a3, a1, SP[a1, a1], a2, n]/
     12 + S2[a1, a3, a1, SP[a1, a2], a1, n]/12 + 
    (S2[a1, n]*S2[a1, a3, a2, a1, a1, n])/12 + 
    S2[a1, a3, a2, a1, SP[a1, a1], n]/12 + S2[a1, a3, a2, SP[a1, a1], a1, n]/
     12 + S2[a1, a3, SP[a1, a1], a1, a2, n]/12 + 
    S2[a1, a3, SP[a1, a1], a2, a1, n]/12 + S2[a1, a3, SP[a1, a2], a1, a1, n]/
     12 + S2[a1, SP[a1, a1], a1, a3, a2, n]/4 - 
    S2[a1, SP[a1, a1], a3, a1, a2, n]/12 - S2[a1, SP[a1, a1], a3, a2, a1, n]/
     12 + S2[a1, SP[a1, a3], a1, a1, a2, n]/12 + 
    S2[a1, SP[a1, a3], a1, a2, a1, n]/12 + S2[a1, SP[a1, a3], a2, a1, a1, n]/
     12 - (S2[a1, n]*S2[a3, a1, a1, a1, a2, n])/4 - 
    S2[a3, a1, a1, a1, SP[a1, a2], n]/4 - 
    (S2[a1, n]*S2[a3, a1, a1, a2, a1, n])/4 - 
    S2[a3, a1, a1, a2, SP[a1, a1], n]/4 - S2[a3, a1, a1, SP[a1, a1], a2, n]/
     4 - S2[a3, a1, a1, SP[a1, a2], a1, n]/4 - 
    (S2[a1, n]*S2[a3, a1, a2, a1, a1, n])/4 - 
    S2[a3, a1, a2, a1, SP[a1, a1], n]/4 - S2[a3, a1, a2, SP[a1, a1], a1, n]/
     4 - S2[a3, a1, SP[a1, a1], a1, a2, n]/4 - 
    S2[a3, a1, SP[a1, a1], a2, a1, n]/4 - S2[a3, a1, SP[a1, a2], a1, a1, n]/
     4 - (S2[a1, n]*S2[a3, a2, a1, a1, a1, n])/4 - 
    S2[a3, a2, a1, a1, SP[a1, a1], n]/4 - S2[a3, a2, a1, SP[a1, a1], a1, n]/
     4 - S2[a3, a2, SP[a1, a1], a1, a1, n]/4 - 
    S2[a3, SP[a1, a1], a1, a1, a2, n]/4 - S2[a3, SP[a1, a1], a1, a2, a1, n]/
     4 - S2[a3, SP[a1, a1], a2, a1, a1, n]/4 - 
    S2[a3, SP[a1, a2], a1, a1, a1, n]/4 + S2[SP[a1, a1], a1, a1, a3, a2, n]/
     4 - S2[SP[a1, a1], a1, a3, a1, a2, n]/12 - 
    S2[SP[a1, a1], a1, a3, a2, a1, n]/12 + S2[SP[a1, a1], a3, a1, a1, a2, n]/
     12 + S2[SP[a1, a1], a3, a1, a2, a1, n]/12 + 
    S2[SP[a1, a1], a3, a2, a1, a1, n]/12 - S2[SP[a1, a3], a1, a1, a1, a2, n]/
     4 - S2[SP[a1, a3], a1, a1, a2, a1, n]/4 - 
    S2[SP[a1, a3], a1, a2, a1, a1, n]/4 - S2[SP[a1, a3], a2, a1, a1, a1, n]/
     4 + S2[a3, a1, a1, a1, a1, a2, n] + S2[a3, a1, a1, a1, a2, a1, n] + 
    S2[a3, a1, a1, a2, a1, a1, n] + S2[a3, a1, a2, a1, a1, a1, n] + 
    S2[a3, a2, a1, a1, a1, a1, n] /; 
   MyMemberQ[{{a2, a3}}, {a1, a1, a1, a1, a2, a3}] && a1 != a2 != a3, 
 S2[a1_, a1_, a1_, a2_, a1_, a3_, n_] :> 
  S2[a1, a3, n]*S2[a1, a1, a1, a2, n] - S2[a1, a1, SP[a1, a1], SP[a2, a3], 
     n] - S2[a1, SP[a1, a1], a1, SP[a2, a3], n] - 
    S2[a1, SP[a1, a1], SP[a1, a3], a2, n] - S2[SP[a1, a1], a1, a1, 
     SP[a2, a3], n] - S2[SP[a1, a1], a1, SP[a1, a3], a2, n] - 
    S2[SP[a1, a1], SP[a1, a3], a1, a2, n] - 
    4*S2[a3, n]*S2[a1, a1, a1, a1, a2, n] + S2[a1, a1, a1, SP[a1, a2], a3, 
     n] - S2[a1, a1, a1, SP[a1, a3], a2, n] + 
    (S2[a1, n]*S2[a1, a1, a3, a1, a2, n])/3 + 
    S2[a1, a1, a3, a1, SP[a1, a2], n]/3 + S2[a1, a1, a3, SP[a1, a1], a2, n]/
     3 + S2[a1, a1, SP[a1, a1], a2, a3, n] + S2[a1, a1, SP[a1, a1], a3, a2, 
     n] - (5*S2[a1, a1, SP[a1, a3], a1, a2, n])/3 + 
    (2*S2[a1, n]*S2[a1, a3, a1, a1, a2, n])/3 + 
    (2*S2[a1, a3, a1, a1, SP[a1, a2], n])/3 - 
    (S2[a1, n]*S2[a1, a3, a1, a2, a1, n])/6 - 
    S2[a1, a3, a1, a2, SP[a1, a1], n]/6 + 
    (2*S2[a1, a3, a1, SP[a1, a1], a2, n])/3 - 
    S2[a1, a3, a1, SP[a1, a2], a1, n]/6 + 
    (2*S2[a1, a3, SP[a1, a1], a1, a2, n])/3 - 
    S2[a1, a3, SP[a1, a1], a2, a1, n]/6 + S2[a1, SP[a1, a1], a1, a2, a3, n] + 
    S2[a1, SP[a1, a1], a1, a3, a2, n] + (4*S2[a1, SP[a1, a1], a3, a1, a2, n])/
     3 - (7*S2[a1, SP[a1, a3], a1, a1, a2, n])/3 - 
    S2[a1, SP[a1, a3], a1, a2, a1, n]/6 + 
    S2[a1, n]*S2[a3, a1, a1, a1, a2, n] + S2[a3, a1, a1, a1, SP[a1, a2], n] - 
    (S2[a1, n]*S2[a3, a1, a1, a2, a1, n])/3 - 
    S2[a3, a1, a1, a2, SP[a1, a1], n]/3 + S2[a3, a1, a1, SP[a1, a1], a2, n] - 
    S2[a3, a1, a1, SP[a1, a2], a1, n]/3 + 
    (S2[a1, n]*S2[a3, a1, a2, a1, a1, n])/3 + 
    S2[a3, a1, a2, a1, SP[a1, a1], n]/3 + S2[a3, a1, a2, SP[a1, a1], a1, n]/
     3 + S2[a3, a1, SP[a1, a1], a1, a2, n] - 
    S2[a3, a1, SP[a1, a1], a2, a1, n]/3 + S2[a3, a1, SP[a1, a2], a1, a1, n]/
     3 + S2[a3, SP[a1, a1], a1, a1, a2, n] - 
    S2[a3, SP[a1, a1], a1, a2, a1, n]/3 + S2[a3, SP[a1, a1], a2, a1, a1, n]/
     3 + S2[SP[a1, a1], a1, a1, a2, a3, n] + S2[SP[a1, a1], a1, a1, a3, a2, 
     n] + (4*S2[SP[a1, a1], a1, a3, a1, a2, n])/3 + 
    (5*S2[SP[a1, a1], a3, a1, a1, a2, n])/3 - 
    S2[SP[a1, a1], a3, a1, a2, a1, n]/6 - 
    3*S2[SP[a1, a3], a1, a1, a1, a2, n] - S2[SP[a1, a3], a1, a1, a2, a1, n]/
     3 + S2[SP[a1, a3], a1, a2, a1, a1, n]/3 - S2[a3, a1, a2, a1, a1, a1, 
     n] /; MyMemberQ[{{a2, a3}}, {a1, a1, a1, a1, a2, a3}] && a1 != a2 != a3, 
 S2[a1_, a1_, a1_, a2_, a3_, a1_, n_] :> 
  -(S2[a1, a3, n]*S2[a1, a1, a1, a2, n]) + S2[a1, a1, SP[a1, a1], SP[a2, a3], 
     n] + S2[a1, SP[a1, a1], a1, SP[a2, a3], n] + 
    S2[a1, SP[a1, a1], SP[a1, a3], a2, n] + S2[SP[a1, a1], a1, a1, 
     SP[a2, a3], n] + S2[SP[a1, a1], a1, SP[a1, a3], a2, n] + 
    S2[SP[a1, a1], SP[a1, a3], a1, a2, n] - 
    4*S2[a1, a1, a1, a1, SP[a2, a3], n] + 
    S2[a1, n]*S2[a1, a1, a1, a2, a3, n] + S2[a1, a1, a1, a2, SP[a1, a3], n] + 
    S2[a1, n]*S2[a1, a1, a1, a3, a2, n] + S2[a1, a1, a1, a3, SP[a1, a2], n] - 
    2*S2[a1, a1, a1, SP[a1, a3], a2, n] + 
    (2*S2[a1, n]*S2[a1, a1, a3, a1, a2, n])/3 + 
    (2*S2[a1, a1, a3, a1, SP[a1, a2], n])/3 - 
    (S2[a1, n]*S2[a1, a1, a3, a2, a1, n])/3 - 
    S2[a1, a1, a3, a2, SP[a1, a1], n]/3 + 
    (2*S2[a1, a1, a3, SP[a1, a1], a2, n])/3 - 
    S2[a1, a1, a3, SP[a1, a2], a1, n]/3 - 
    (4*S2[a1, a1, SP[a1, a3], a1, a2, n])/3 - 
    S2[a1, a1, SP[a1, a3], a2, a1, n]/3 + 
    (S2[a1, n]*S2[a1, a3, a1, a1, a2, n])/3 + 
    S2[a1, a3, a1, a1, SP[a1, a2], n]/3 - 
    (S2[a1, n]*S2[a1, a3, a1, a2, a1, n])/6 - 
    S2[a1, a3, a1, a2, SP[a1, a1], n]/6 + S2[a1, a3, a1, SP[a1, a1], a2, n]/
     3 - S2[a1, a3, a1, SP[a1, a2], a1, n]/6 + 
    (S2[a1, n]*S2[a1, a3, a2, a1, a1, n])/3 + 
    S2[a1, a3, a2, a1, SP[a1, a1], n]/3 + S2[a1, a3, a2, SP[a1, a1], a1, n]/
     3 + S2[a1, a3, SP[a1, a1], a1, a2, n]/3 - 
    S2[a1, a3, SP[a1, a1], a2, a1, n]/6 + S2[a1, a3, SP[a1, a2], a1, a1, n]/
     3 - S2[a1, SP[a1, a1], a3, a1, a2, n]/3 - 
    S2[a1, SP[a1, a1], a3, a2, a1, n]/3 - 
    (2*S2[a1, SP[a1, a3], a1, a1, a2, n])/3 - 
    S2[a1, SP[a1, a3], a1, a2, a1, n]/6 + S2[a1, SP[a1, a3], a2, a1, a1, n]/
     3 - S2[a1, n]*S2[a3, a2, a1, a1, a1, n] - S2[a3, a2, a1, a1, SP[a1, a1], 
     n] - S2[a3, a2, a1, SP[a1, a1], a1, n] - S2[a3, a2, SP[a1, a1], a1, a1, 
     n] - S2[a3, SP[a1, a2], a1, a1, a1, n] - 
    S2[SP[a1, a1], a1, a3, a1, a2, n]/3 - S2[SP[a1, a1], a1, a3, a2, a1, n]/
     3 - (2*S2[SP[a1, a1], a3, a1, a1, a2, n])/3 - 
    S2[SP[a1, a1], a3, a1, a2, a1, n]/6 + S2[SP[a1, a1], a3, a2, a1, a1, n]/
     3 - S2[SP[a1, a3], a2, a1, a1, a1, n] + S2[a3, a1, a2, a1, a1, a1, n] + 
    4*S2[a3, a2, a1, a1, a1, a1, n] /; 
   MyMemberQ[{{a2, a3}}, {a1, a1, a1, a1, a2, a3}] && a1 != a2 != a3, 
 S2[a1_, a1_, a1_, a3_, a1_, a2_, n_] :> 
  (S2[a1, n]*S2[a1, a1, a3, a1, a2, n])/3 + S2[a1, a1, a3, a1, SP[a1, a2], n]/
     3 + S2[a1, a1, a3, SP[a1, a1], a2, n]/3 + 
    S2[a1, a1, SP[a1, a3], a1, a2, n]/3 - 
    (S2[a1, n]*S2[a1, a3, a1, a1, a2, n])/3 - 
    S2[a1, a3, a1, a1, SP[a1, a2], n]/3 - 
    (S2[a1, n]*S2[a1, a3, a1, a2, a1, n])/6 - 
    S2[a1, a3, a1, a2, SP[a1, a1], n]/6 - S2[a1, a3, a1, SP[a1, a1], a2, n]/
     3 - S2[a1, a3, a1, SP[a1, a2], a1, n]/6 - 
    S2[a1, a3, SP[a1, a1], a1, a2, n]/3 - S2[a1, a3, SP[a1, a1], a2, a1, n]/
     6 + S2[a1, SP[a1, a1], a3, a1, a2, n]/3 - 
    S2[a1, SP[a1, a3], a1, a1, a2, n]/3 - S2[a1, SP[a1, a3], a1, a2, a1, n]/
     6 + S2[a1, n]*S2[a3, a1, a1, a1, a2, n] + S2[a3, a1, a1, a1, SP[a1, a2], 
     n] + (2*S2[a1, n]*S2[a3, a1, a1, a2, a1, n])/3 + 
    (2*S2[a3, a1, a1, a2, SP[a1, a1], n])/3 + S2[a3, a1, a1, SP[a1, a1], a2, 
     n] + (2*S2[a3, a1, a1, SP[a1, a2], a1, n])/3 + 
    (S2[a1, n]*S2[a3, a1, a2, a1, a1, n])/3 + 
    S2[a3, a1, a2, a1, SP[a1, a1], n]/3 + S2[a3, a1, a2, SP[a1, a1], a1, n]/
     3 + S2[a3, a1, SP[a1, a1], a1, a2, n] + 
    (2*S2[a3, a1, SP[a1, a1], a2, a1, n])/3 + 
    S2[a3, a1, SP[a1, a2], a1, a1, n]/3 + S2[a3, SP[a1, a1], a1, a1, a2, n] + 
    (2*S2[a3, SP[a1, a1], a1, a2, a1, n])/3 + 
    S2[a3, SP[a1, a1], a2, a1, a1, n]/3 + S2[SP[a1, a1], a1, a3, a1, a2, n]/
     3 - S2[SP[a1, a1], a3, a1, a1, a2, n]/3 - 
    S2[SP[a1, a1], a3, a1, a2, a1, n]/6 + S2[SP[a1, a3], a1, a1, a1, a2, n] + 
    (2*S2[SP[a1, a3], a1, a1, a2, a1, n])/3 + 
    S2[SP[a1, a3], a1, a2, a1, a1, n]/3 - 4*S2[a3, a1, a1, a1, a1, a2, n] - 
    3*S2[a3, a1, a1, a1, a2, a1, n] - 2*S2[a3, a1, a1, a2, a1, a1, n] - 
    S2[a3, a1, a2, a1, a1, a1, n] /; 
   MyMemberQ[{{a2, a3}}, {a1, a1, a1, a1, a2, a3}] && a1 != a2 != a3, 
 S2[a1_, a1_, a1_, a3_, a2_, a1_, n_] :> 
  (S2[a1, n]*S2[a1, a1, a3, a2, a1, n])/3 + S2[a1, a1, a3, a2, SP[a1, a1], n]/
     3 + S2[a1, a1, a3, SP[a1, a2], a1, n]/3 + 
    S2[a1, a1, SP[a1, a3], a2, a1, n]/3 - 
    (S2[a1, n]*S2[a1, a3, a1, a2, a1, n])/6 - 
    S2[a1, a3, a1, a2, SP[a1, a1], n]/6 - S2[a1, a3, a1, SP[a1, a2], a1, n]/
     6 - (S2[a1, n]*S2[a1, a3, a2, a1, a1, n])/3 - 
    S2[a1, a3, a2, a1, SP[a1, a1], n]/3 - S2[a1, a3, a2, SP[a1, a1], a1, n]/
     3 - S2[a1, a3, SP[a1, a1], a2, a1, n]/6 - 
    S2[a1, a3, SP[a1, a2], a1, a1, n]/3 + S2[a1, SP[a1, a1], a3, a2, a1, n]/
     3 - S2[a1, SP[a1, a3], a1, a2, a1, n]/6 - 
    S2[a1, SP[a1, a3], a2, a1, a1, n]/3 + 
    (S2[a1, n]*S2[a3, a1, a1, a2, a1, n])/3 + 
    S2[a3, a1, a1, a2, SP[a1, a1], n]/3 + S2[a3, a1, a1, SP[a1, a2], a1, n]/
     3 + (2*S2[a1, n]*S2[a3, a1, a2, a1, a1, n])/3 + 
    (2*S2[a3, a1, a2, a1, SP[a1, a1], n])/3 + 
    (2*S2[a3, a1, a2, SP[a1, a1], a1, n])/3 + 
    S2[a3, a1, SP[a1, a1], a2, a1, n]/3 + 
    (2*S2[a3, a1, SP[a1, a2], a1, a1, n])/3 + 
    S2[a1, n]*S2[a3, a2, a1, a1, a1, n] + S2[a3, a2, a1, a1, SP[a1, a1], n] + 
    S2[a3, a2, a1, SP[a1, a1], a1, n] + S2[a3, a2, SP[a1, a1], a1, a1, n] + 
    S2[a3, SP[a1, a1], a1, a2, a1, n]/3 + 
    (2*S2[a3, SP[a1, a1], a2, a1, a1, n])/3 + S2[a3, SP[a1, a2], a1, a1, a1, 
     n] + S2[SP[a1, a1], a1, a3, a2, a1, n]/3 - 
    S2[SP[a1, a1], a3, a1, a2, a1, n]/6 - S2[SP[a1, a1], a3, a2, a1, a1, n]/
     3 + S2[SP[a1, a3], a1, a1, a2, a1, n]/3 + 
    (2*S2[SP[a1, a3], a1, a2, a1, a1, n])/3 + S2[SP[a1, a3], a2, a1, a1, a1, 
     n] - S2[a3, a1, a1, a1, a2, a1, n] - 2*S2[a3, a1, a1, a2, a1, a1, n] - 
    3*S2[a3, a1, a2, a1, a1, a1, n] - 4*S2[a3, a2, a1, a1, a1, a1, n] /; 
   MyMemberQ[{{a2, a3}}, {a1, a1, a1, a1, a2, a3}] && a1 != a2 != a3, 
 S2[a1_, a1_, a2_, a1_, a1_, a3_, n_] :> 
  S2[a1, a1, a2, n]*S2[a1, a1, a3, n] + S2[SP[a1, a1], SP[a1, a1], 
     SP[a2, a3], n] - 3*S2[a1, a3, n]*S2[a1, a1, a1, a2, n] + 
    S2[a1, a1, SP[a1, a1], SP[a2, a3], n] + S2[a1, SP[a1, a1], a1, 
     SP[a2, a3], n] - S2[a1, SP[a1, a1], SP[a1, a2], a3, n] + 
    2*S2[a1, SP[a1, a1], SP[a1, a3], a2, n] + S2[SP[a1, a1], a1, a1, 
     SP[a2, a3], n] - S2[SP[a1, a1], a1, SP[a1, a2], a3, n] + 
    2*S2[SP[a1, a1], a1, SP[a1, a3], a2, n] - S2[SP[a1, a1], SP[a1, a1], a2, 
     a3, n] - S2[SP[a1, a1], SP[a1, a1], a3, a2, n] + 
    3*S2[SP[a1, a1], SP[a1, a3], a1, a2, n] + 
    6*S2[a3, n]*S2[a1, a1, a1, a1, a2, n] - S2[a1, a1, SP[a1, a1], a2, a3, 
     n] - S2[a1, a1, SP[a1, a1], a3, a2, n] + S2[a1, a1, SP[a1, a2], a1, a3, 
     n] + S2[a1, a1, SP[a1, a3], a1, a2, n] - 
    (S2[a1, n]*S2[a1, a3, a1, a1, a2, n])/2 - 
    S2[a1, a3, a1, a1, SP[a1, a2], n]/2 - S2[a1, a3, a1, SP[a1, a1], a2, n]/
     2 - S2[a1, a3, SP[a1, a1], a1, a2, n]/2 - S2[a1, SP[a1, a1], a1, a2, a3, 
     n] - S2[a1, SP[a1, a1], a1, a3, a2, n] + S2[a1, SP[a1, a1], a2, a1, a3, 
     n] - 2*S2[a1, SP[a1, a1], a3, a1, a2, n] + 
    (5*S2[a1, SP[a1, a3], a1, a1, a2, n])/2 - 
    (3*S2[a1, n]*S2[a3, a1, a1, a1, a2, n])/2 - 
    (3*S2[a3, a1, a1, a1, SP[a1, a2], n])/2 + 
    (S2[a1, n]*S2[a3, a1, a1, a2, a1, n])/2 + 
    S2[a3, a1, a1, a2, SP[a1, a1], n]/2 - 
    (3*S2[a3, a1, a1, SP[a1, a1], a2, n])/2 + 
    S2[a3, a1, a1, SP[a1, a2], a1, n]/2 - 
    (3*S2[a3, a1, SP[a1, a1], a1, a2, n])/2 + 
    S2[a3, a1, SP[a1, a1], a2, a1, n]/2 - 
    (3*S2[a3, SP[a1, a1], a1, a1, a2, n])/2 + 
    S2[a3, SP[a1, a1], a1, a2, a1, n]/2 - S2[SP[a1, a1], a1, a1, a2, a3, n] - 
    S2[SP[a1, a1], a1, a1, a3, a2, n] + S2[SP[a1, a1], a1, a2, a1, a3, n] - 
    2*S2[SP[a1, a1], a1, a3, a1, a2, n] - 
    (7*S2[SP[a1, a1], a3, a1, a1, a2, n])/2 + 
    (9*S2[SP[a1, a3], a1, a1, a1, a2, n])/2 + 
    S2[SP[a1, a3], a1, a1, a2, a1, n]/2 - S2[a3, a1, a1, a2, a1, a1, n] /; 
   MyMemberQ[{{a2, a3}}, {a1, a1, a1, a1, a2, a3}] && a1 != a2 != a3, 
 S2[a1_, a1_, a2_, a1_, a3_, a1_, n_] :> 
  -2*S2[a1, a1, a2, n]*S2[a1, a1, a3, n] - 
    2*S2[SP[a1, a1], SP[a1, a1], SP[a2, a3], n] + 
    3*S2[a1, a3, n]*S2[a1, a1, a1, a2, n] + S2[a1, a1, SP[a1, a1], 
     SP[a2, a3], n] + S2[a1, SP[a1, a1], a1, SP[a2, a3], n] + 
    2*S2[a1, SP[a1, a1], SP[a1, a2], a3, n] - S2[a1, SP[a1, a1], SP[a1, a3], 
     a2, n] + S2[SP[a1, a1], a1, a1, SP[a2, a3], n] + 
    2*S2[SP[a1, a1], a1, SP[a1, a2], a3, n] - S2[SP[a1, a1], a1, SP[a1, a3], 
     a2, n] + 2*S2[SP[a1, a1], SP[a1, a1], a2, a3, n] + 
    2*S2[SP[a1, a1], SP[a1, a1], a3, a2, n] - 
    3*S2[SP[a1, a1], SP[a1, a3], a1, a2, n] - 
    3*S2[a1, a1, a1, SP[a1, a2], a3, n] + 
    3*S2[a1, a1, a1, SP[a1, a3], a2, n] + 
    S2[a1, n]*S2[a1, a1, a2, a1, a3, n] + S2[a1, a1, a2, a1, SP[a1, a3], n] + 
    S2[a1, a1, a2, SP[a1, a1], a3, n] - S2[a1, n]*S2[a1, a1, a3, a1, a2, n] - 
    S2[a1, a1, a3, a1, SP[a1, a2], n] - S2[a1, a1, a3, SP[a1, a1], a2, n] - 
    S2[a1, a1, SP[a1, a1], a2, a3, n] - S2[a1, a1, SP[a1, a1], a3, a2, n] - 
    S2[a1, a1, SP[a1, a2], a1, a3, n] + 3*S2[a1, a1, SP[a1, a3], a1, a2, n] - 
    S2[a1, n]*S2[a1, a3, a1, a1, a2, n] - S2[a1, a3, a1, a1, SP[a1, a2], n] + 
    (S2[a1, n]*S2[a1, a3, a1, a2, a1, n])/2 + 
    S2[a1, a3, a1, a2, SP[a1, a1], n]/2 - S2[a1, a3, a1, SP[a1, a1], a2, n] + 
    S2[a1, a3, a1, SP[a1, a2], a1, n]/2 - S2[a1, a3, SP[a1, a1], a1, a2, n] + 
    S2[a1, a3, SP[a1, a1], a2, a1, n]/2 - S2[a1, SP[a1, a1], a1, a2, a3, n] - 
    S2[a1, SP[a1, a1], a1, a3, a2, n] - S2[a1, SP[a1, a1], a2, a1, a3, n] + 
    2*S2[a1, SP[a1, a3], a1, a1, a2, n] + S2[a1, SP[a1, a3], a1, a2, a1, n]/
     2 - S2[a1, n]*S2[a3, a1, a2, a1, a1, n] - S2[a3, a1, a2, a1, SP[a1, a1], 
     n] - S2[a3, a1, a2, SP[a1, a1], a1, n] - S2[a3, a1, SP[a1, a2], a1, a1, 
     n] - S2[a3, SP[a1, a1], a2, a1, a1, n] - S2[SP[a1, a1], a1, a1, a2, a3, 
     n] - S2[SP[a1, a1], a1, a1, a3, a2, n] - S2[SP[a1, a1], a1, a2, a1, a3, 
     n] + 2*S2[SP[a1, a1], a3, a1, a1, a2, n] + 
    S2[SP[a1, a1], a3, a1, a2, a1, n]/2 - S2[SP[a1, a3], a1, a2, a1, a1, n] + 
    2*S2[a3, a1, a1, a2, a1, a1, n] + 3*S2[a3, a1, a2, a1, a1, a1, n] /; 
   MyMemberQ[{{a2, a3}}, {a1, a1, a1, a1, a2, a3}] && a1 != a2 != a3, 
 S2[a1_, a1_, a2_, a3_, a1_, a1_, n_] :> 
  S2[a1, a1, a2, n]*S2[a1, a1, a3, n] + S2[SP[a1, a1], SP[a1, a1], 
     SP[a2, a3], n] - 2*S2[a1, a1, SP[a1, a1], SP[a2, a3], n] - 
    2*S2[a1, SP[a1, a1], a1, SP[a2, a3], n] - S2[a1, SP[a1, a1], SP[a1, a2], 
     a3, n] - S2[a1, SP[a1, a1], SP[a1, a3], a2, n] - 
    2*S2[SP[a1, a1], a1, a1, SP[a2, a3], n] - S2[SP[a1, a1], a1, SP[a1, a2], 
     a3, n] - S2[SP[a1, a1], a1, SP[a1, a3], a2, n] - 
    S2[SP[a1, a1], SP[a1, a1], a2, a3, n] - S2[SP[a1, a1], SP[a1, a1], a3, 
     a2, n] + 6*S2[a1, a1, a1, a1, SP[a2, a3], n] - 
    (3*S2[a1, n]*S2[a1, a1, a1, a2, a3, n])/2 - 
    (3*S2[a1, a1, a1, a2, SP[a1, a3], n])/2 - 
    (3*S2[a1, n]*S2[a1, a1, a1, a3, a2, n])/2 - 
    (3*S2[a1, a1, a1, a3, SP[a1, a2], n])/2 + 
    (3*S2[a1, a1, a1, SP[a1, a2], a3, n])/2 + 
    (3*S2[a1, a1, a1, SP[a1, a3], a2, n])/2 - 
    (S2[a1, n]*S2[a1, a1, a2, a1, a3, n])/2 - 
    S2[a1, a1, a2, a1, SP[a1, a3], n]/2 + 
    (S2[a1, n]*S2[a1, a1, a2, a3, a1, n])/2 + 
    S2[a1, a1, a2, a3, SP[a1, a1], n]/2 - S2[a1, a1, a2, SP[a1, a1], a3, n]/
     2 + S2[a1, a1, a2, SP[a1, a3], a1, n]/2 - 
    (S2[a1, n]*S2[a1, a1, a3, a1, a2, n])/2 - 
    S2[a1, a1, a3, a1, SP[a1, a2], n]/2 + 
    (S2[a1, n]*S2[a1, a1, a3, a2, a1, n])/2 + 
    S2[a1, a1, a3, a2, SP[a1, a1], n]/2 - S2[a1, a1, a3, SP[a1, a1], a2, n]/
     2 + S2[a1, a1, a3, SP[a1, a2], a1, n]/2 + 
    S2[a1, a1, SP[a1, a1], a2, a3, n]/2 + S2[a1, a1, SP[a1, a1], a3, a2, n]/
     2 + S2[a1, a1, SP[a1, a2], a1, a3, n]/2 + 
    S2[a1, a1, SP[a1, a2], a3, a1, n]/2 + S2[a1, a1, SP[a1, a3], a1, a2, n]/
     2 + S2[a1, a1, SP[a1, a3], a2, a1, n]/2 - 
    (S2[a1, n]*S2[a1, a3, a2, a1, a1, n])/2 - 
    S2[a1, a3, a2, a1, SP[a1, a1], n]/2 - S2[a1, a3, a2, SP[a1, a1], a1, n]/
     2 - S2[a1, a3, SP[a1, a2], a1, a1, n]/2 + 
    S2[a1, SP[a1, a1], a1, a2, a3, n]/2 + S2[a1, SP[a1, a1], a1, a3, a2, n]/
     2 + S2[a1, SP[a1, a1], a2, a1, a3, n]/2 + 
    S2[a1, SP[a1, a1], a2, a3, a1, n]/2 + S2[a1, SP[a1, a1], a3, a1, a2, n]/
     2 + S2[a1, SP[a1, a1], a3, a2, a1, n]/2 - 
    S2[a1, SP[a1, a3], a2, a1, a1, n]/2 + 
    (S2[a1, n]*S2[a3, a1, a2, a1, a1, n])/2 + 
    S2[a3, a1, a2, a1, SP[a1, a1], n]/2 + S2[a3, a1, a2, SP[a1, a1], a1, n]/
     2 + S2[a3, a1, SP[a1, a2], a1, a1, n]/2 + 
    (3*S2[a1, n]*S2[a3, a2, a1, a1, a1, n])/2 + 
    (3*S2[a3, a2, a1, a1, SP[a1, a1], n])/2 + 
    (3*S2[a3, a2, a1, SP[a1, a1], a1, n])/2 + 
    (3*S2[a3, a2, SP[a1, a1], a1, a1, n])/2 + 
    S2[a3, SP[a1, a1], a2, a1, a1, n]/2 + 
    (3*S2[a3, SP[a1, a2], a1, a1, a1, n])/2 + 
    S2[SP[a1, a1], a1, a1, a2, a3, n]/2 + S2[SP[a1, a1], a1, a1, a3, a2, n]/
     2 + S2[SP[a1, a1], a1, a2, a1, a3, n]/2 + 
    S2[SP[a1, a1], a1, a2, a3, a1, n]/2 + S2[SP[a1, a1], a1, a3, a1, a2, n]/
     2 + S2[SP[a1, a1], a1, a3, a2, a1, n]/2 - 
    S2[SP[a1, a1], a3, a2, a1, a1, n]/2 + S2[SP[a1, a3], a1, a2, a1, a1, n]/
     2 + (3*S2[SP[a1, a3], a2, a1, a1, a1, n])/2 - 
    S2[a3, a1, a1, a2, a1, a1, n] - 3*S2[a3, a1, a2, a1, a1, a1, n] - 
    6*S2[a3, a2, a1, a1, a1, a1, n] /; 
   MyMemberQ[{{a2, a3}}, {a1, a1, a1, a1, a2, a3}] && a1 != a2 != a3, 
 S2[a1_, a1_, a3_, a1_, a1_, a2_, n_] :> 
  (S2[a1, n]*S2[a1, a3, a1, a1, a2, n])/2 + S2[a1, a3, a1, a1, SP[a1, a2], n]/
     2 + S2[a1, a3, a1, SP[a1, a1], a2, n]/2 + 
    S2[a1, a3, SP[a1, a1], a1, a2, n]/2 + S2[a1, SP[a1, a3], a1, a1, a2, n]/
     2 - (3*S2[a1, n]*S2[a3, a1, a1, a1, a2, n])/2 - 
    (3*S2[a3, a1, a1, a1, SP[a1, a2], n])/2 - 
    (S2[a1, n]*S2[a3, a1, a1, a2, a1, n])/2 - 
    S2[a3, a1, a1, a2, SP[a1, a1], n]/2 - 
    (3*S2[a3, a1, a1, SP[a1, a1], a2, n])/2 - 
    S2[a3, a1, a1, SP[a1, a2], a1, n]/2 - 
    (3*S2[a3, a1, SP[a1, a1], a1, a2, n])/2 - 
    S2[a3, a1, SP[a1, a1], a2, a1, n]/2 - 
    (3*S2[a3, SP[a1, a1], a1, a1, a2, n])/2 - 
    S2[a3, SP[a1, a1], a1, a2, a1, n]/2 + S2[SP[a1, a1], a3, a1, a1, a2, n]/
     2 - (3*S2[SP[a1, a3], a1, a1, a1, a2, n])/2 - 
    S2[SP[a1, a3], a1, a1, a2, a1, n]/2 + 6*S2[a3, a1, a1, a1, a1, a2, n] + 
    3*S2[a3, a1, a1, a1, a2, a1, n] + S2[a3, a1, a1, a2, a1, a1, n] /; 
   MyMemberQ[{{a2, a3}}, {a1, a1, a1, a1, a2, a3}] && a1 != a2 != a3, 
 S2[a1_, a1_, a3_, a1_, a2_, a1_, n_] :> 
  (S2[a1, n]*S2[a1, a3, a1, a2, a1, n])/2 + S2[a1, a3, a1, a2, SP[a1, a1], n]/
     2 + S2[a1, a3, a1, SP[a1, a2], a1, n]/2 + 
    S2[a1, a3, SP[a1, a1], a2, a1, n]/2 + S2[a1, SP[a1, a3], a1, a2, a1, n]/
     2 - S2[a1, n]*S2[a3, a1, a1, a2, a1, n] - S2[a3, a1, a1, a2, SP[a1, a1], 
     n] - S2[a3, a1, a1, SP[a1, a2], a1, n] - 
    S2[a1, n]*S2[a3, a1, a2, a1, a1, n] - S2[a3, a1, a2, a1, SP[a1, a1], n] - 
    S2[a3, a1, a2, SP[a1, a1], a1, n] - S2[a3, a1, SP[a1, a1], a2, a1, n] - 
    S2[a3, a1, SP[a1, a2], a1, a1, n] - S2[a3, SP[a1, a1], a1, a2, a1, n] - 
    S2[a3, SP[a1, a1], a2, a1, a1, n] + S2[SP[a1, a1], a3, a1, a2, a1, n]/2 - 
    S2[SP[a1, a3], a1, a1, a2, a1, n] - S2[SP[a1, a3], a1, a2, a1, a1, n] + 
    3*S2[a3, a1, a1, a1, a2, a1, n] + 4*S2[a3, a1, a1, a2, a1, a1, n] + 
    3*S2[a3, a1, a2, a1, a1, a1, n] /; 
   MyMemberQ[{{a2, a3}}, {a1, a1, a1, a1, a2, a3}] && a1 != a2 != a3, 
 S2[a1_, a1_, a3_, a2_, a1_, a1_, n_] :> 
  (S2[a1, n]*S2[a1, a3, a2, a1, a1, n])/2 + S2[a1, a3, a2, a1, SP[a1, a1], n]/
     2 + S2[a1, a3, a2, SP[a1, a1], a1, n]/2 + 
    S2[a1, a3, SP[a1, a2], a1, a1, n]/2 + S2[a1, SP[a1, a3], a2, a1, a1, n]/
     2 - (S2[a1, n]*S2[a3, a1, a2, a1, a1, n])/2 - 
    S2[a3, a1, a2, a1, SP[a1, a1], n]/2 - S2[a3, a1, a2, SP[a1, a1], a1, n]/
     2 - S2[a3, a1, SP[a1, a2], a1, a1, n]/2 - 
    (3*S2[a1, n]*S2[a3, a2, a1, a1, a1, n])/2 - 
    (3*S2[a3, a2, a1, a1, SP[a1, a1], n])/2 - 
    (3*S2[a3, a2, a1, SP[a1, a1], a1, n])/2 - 
    (3*S2[a3, a2, SP[a1, a1], a1, a1, n])/2 - 
    S2[a3, SP[a1, a1], a2, a1, a1, n]/2 - 
    (3*S2[a3, SP[a1, a2], a1, a1, a1, n])/2 + 
    S2[SP[a1, a1], a3, a2, a1, a1, n]/2 - S2[SP[a1, a3], a1, a2, a1, a1, n]/
     2 - (3*S2[SP[a1, a3], a2, a1, a1, a1, n])/2 + 
    S2[a3, a1, a1, a2, a1, a1, n] + 3*S2[a3, a1, a2, a1, a1, a1, n] + 
    6*S2[a3, a2, a1, a1, a1, a1, n] /; 
   MyMemberQ[{{a2, a3}}, {a1, a1, a1, a1, a2, a3}] && a1 != a2 != a3, 
 S2[a1_, a2_, a1_, a1_, a1_, a3_, n_] :> 
  -2*S2[a1, a1, a2, n]*S2[a1, a1, a3, n] - 
    2*S2[SP[a1, a1], SP[a1, a1], SP[a2, a3], n] + 
    3*S2[a1, a3, n]*S2[a1, a1, a1, a2, n] + S2[a1, a2, n]*
     S2[a1, a1, a1, a3, n] + S2[a1, SP[a1, a1], SP[a1, a2], a3, n] - 
    S2[a1, SP[a1, a1], SP[a1, a3], a2, n] + S2[SP[a1, a1], a1, SP[a1, a2], 
     a3, n] - S2[SP[a1, a1], a1, SP[a1, a3], a2, n] + 
    2*S2[SP[a1, a1], SP[a1, a1], a2, a3, n] + 
    2*S2[SP[a1, a1], SP[a1, a1], a3, a2, n] - S2[SP[a1, a1], SP[a1, a2], a1, 
     a3, n] - 3*S2[SP[a1, a1], SP[a1, a3], a1, a2, n] - 
    4*S2[a3, n]*S2[a1, a1, a1, a1, a2, n] - S2[a1, SP[a1, a1], a2, a1, a3, 
     n] + S2[a1, SP[a1, a1], a3, a1, a2, n] + S2[a1, SP[a1, a2], a1, a1, a3, 
     n] - S2[a1, SP[a1, a3], a1, a1, a2, n] + 
    S2[a1, n]*S2[a3, a1, a1, a1, a2, n] + S2[a3, a1, a1, a1, SP[a1, a2], n] + 
    S2[a3, a1, a1, SP[a1, a1], a2, n] + S2[a3, a1, SP[a1, a1], a1, a2, n] + 
    S2[a3, SP[a1, a1], a1, a1, a2, n] - S2[SP[a1, a1], a1, a2, a1, a3, n] + 
    S2[SP[a1, a1], a1, a3, a1, a2, n] + S2[SP[a1, a1], a2, a1, a1, a3, n] + 
    3*S2[SP[a1, a1], a3, a1, a1, a2, n] - 
    3*S2[SP[a1, a3], a1, a1, a1, a2, n] - S2[a3, a1, a1, a1, a2, a1, n] /; 
   MyMemberQ[{{a2, a3}}, {a1, a1, a1, a1, a2, a3}] && a1 != a2 != a3, 
 S2[a1_, a2_, a1_, a1_, a3_, a1_, n_] :> 
  4*S2[a1, a1, a2, n]*S2[a1, a1, a3, n] + 
    4*S2[SP[a1, a1], SP[a1, a1], SP[a2, a3], n] - 
    3*S2[a1, a3, n]*S2[a1, a1, a1, a2, n] - 3*S2[a1, a2, n]*
     S2[a1, a1, a1, a3, n] - 2*S2[a1, a1, SP[a1, a1], SP[a2, a3], n] - 
    2*S2[a1, SP[a1, a1], a1, SP[a2, a3], n] - S2[a1, SP[a1, a1], SP[a1, a2], 
     a3, n] - S2[a1, SP[a1, a1], SP[a1, a3], a2, n] - 
    2*S2[SP[a1, a1], a1, a1, SP[a2, a3], n] - S2[SP[a1, a1], a1, SP[a1, a2], 
     a3, n] - S2[SP[a1, a1], a1, SP[a1, a3], a2, n] - 
    4*S2[SP[a1, a1], SP[a1, a1], a2, a3, n] - 
    4*S2[SP[a1, a1], SP[a1, a1], a3, a2, n] + 
    3*S2[SP[a1, a1], SP[a1, a2], a1, a3, n] + 
    3*S2[SP[a1, a1], SP[a1, a3], a1, a2, n] + 
    2*S2[a1, a1, SP[a1, a1], a2, a3, n] + 
    2*S2[a1, a1, SP[a1, a1], a3, a2, n] - 
    2*S2[a1, a1, SP[a1, a2], a1, a3, n] - 
    2*S2[a1, a1, SP[a1, a3], a1, a2, n] + 
    S2[a1, n]*S2[a1, a2, a1, a1, a3, n] + S2[a1, a2, a1, a1, SP[a1, a3], n] + 
    S2[a1, a2, a1, SP[a1, a1], a3, n] + S2[a1, a2, SP[a1, a1], a1, a3, n] + 
    S2[a1, n]*S2[a1, a3, a1, a1, a2, n] + S2[a1, a3, a1, a1, SP[a1, a2], n] + 
    S2[a1, a3, a1, SP[a1, a1], a2, n] + S2[a1, a3, SP[a1, a1], a1, a2, n] + 
    2*S2[a1, SP[a1, a1], a1, a2, a3, n] + 
    2*S2[a1, SP[a1, a1], a1, a3, a2, n] + S2[a1, SP[a1, a1], a2, a1, a3, n] + 
    S2[a1, SP[a1, a1], a3, a1, a2, n] - 2*S2[a1, SP[a1, a2], a1, a1, a3, n] - 
    2*S2[a1, SP[a1, a3], a1, a1, a2, n] - 
    S2[a1, n]*S2[a3, a1, a1, a2, a1, n] - S2[a3, a1, a1, a2, SP[a1, a1], n] - 
    S2[a3, a1, a1, SP[a1, a2], a1, n] - S2[a3, a1, SP[a1, a1], a2, a1, n] - 
    S2[a3, SP[a1, a1], a1, a2, a1, n] + 2*S2[SP[a1, a1], a1, a1, a2, a3, n] + 
    2*S2[SP[a1, a1], a1, a1, a3, a2, n] + S2[SP[a1, a1], a1, a2, a1, a3, n] + 
    S2[SP[a1, a1], a1, a3, a1, a2, n] - 2*S2[SP[a1, a1], a2, a1, a1, a3, n] - 
    2*S2[SP[a1, a1], a3, a1, a1, a2, n] - S2[SP[a1, a3], a1, a1, a2, a1, n] + 
    3*S2[a3, a1, a1, a1, a2, a1, n] + 2*S2[a3, a1, a1, a2, a1, a1, n] /; 
   MyMemberQ[{{a2, a3}}, {a1, a1, a1, a1, a2, a3}] && a1 != a2 != a3, 
 S2[a1_, a2_, a1_, a3_, a1_, a1_, n_] :> 
  -2*S2[a1, a1, a2, n]*S2[a1, a1, a3, n] - 
    2*S2[SP[a1, a1], SP[a1, a1], SP[a2, a3], n] + 
    3*S2[a1, a2, n]*S2[a1, a1, a1, a3, n] + S2[a1, a1, SP[a1, a1], 
     SP[a2, a3], n] + S2[a1, SP[a1, a1], a1, SP[a2, a3], n] - 
    S2[a1, SP[a1, a1], SP[a1, a2], a3, n] + 
    2*S2[a1, SP[a1, a1], SP[a1, a3], a2, n] + S2[SP[a1, a1], a1, a1, 
     SP[a2, a3], n] - S2[SP[a1, a1], a1, SP[a1, a2], a3, n] + 
    2*S2[SP[a1, a1], a1, SP[a1, a3], a2, n] + 
    2*S2[SP[a1, a1], SP[a1, a1], a2, a3, n] + 
    2*S2[SP[a1, a1], SP[a1, a1], a3, a2, n] - 
    3*S2[SP[a1, a1], SP[a1, a2], a1, a3, n] + 
    3*S2[a1, a1, a1, SP[a1, a2], a3, n] - 
    3*S2[a1, a1, a1, SP[a1, a3], a2, n] - 
    S2[a1, n]*S2[a1, a1, a2, a1, a3, n] - S2[a1, a1, a2, a1, SP[a1, a3], n] - 
    S2[a1, a1, a2, SP[a1, a1], a3, n] + S2[a1, n]*S2[a1, a1, a3, a1, a2, n] + 
    S2[a1, a1, a3, a1, SP[a1, a2], n] + S2[a1, a1, a3, SP[a1, a1], a2, n] - 
    S2[a1, a1, SP[a1, a1], a2, a3, n] - S2[a1, a1, SP[a1, a1], a3, a2, n] + 
    3*S2[a1, a1, SP[a1, a2], a1, a3, n] - S2[a1, a1, SP[a1, a3], a1, a2, n] - 
    S2[a1, n]*S2[a1, a2, a1, a1, a3, n] - S2[a1, a2, a1, a1, SP[a1, a3], n] + 
    (S2[a1, n]*S2[a1, a2, a1, a3, a1, n])/2 + 
    S2[a1, a2, a1, a3, SP[a1, a1], n]/2 - S2[a1, a2, a1, SP[a1, a1], a3, n] + 
    S2[a1, a2, a1, SP[a1, a3], a1, n]/2 - S2[a1, a2, SP[a1, a1], a1, a3, n] + 
    S2[a1, a2, SP[a1, a1], a3, a1, n]/2 - 
    (S2[a1, n]*S2[a1, a3, a1, a2, a1, n])/2 - 
    S2[a1, a3, a1, a2, SP[a1, a1], n]/2 - S2[a1, a3, a1, SP[a1, a2], a1, n]/
     2 - S2[a1, a3, SP[a1, a1], a2, a1, n]/2 - S2[a1, SP[a1, a1], a1, a2, a3, 
     n] - S2[a1, SP[a1, a1], a1, a3, a2, n] - S2[a1, SP[a1, a1], a3, a1, a2, 
     n] + 2*S2[a1, SP[a1, a2], a1, a1, a3, n] + 
    S2[a1, SP[a1, a2], a1, a3, a1, n]/2 - S2[a1, SP[a1, a3], a1, a2, a1, n]/
     2 + S2[a1, n]*S2[a3, a1, a1, a2, a1, n] + S2[a3, a1, a1, a2, SP[a1, a1], 
     n] + S2[a3, a1, a1, SP[a1, a2], a1, n] + 
    S2[a1, n]*S2[a3, a1, a2, a1, a1, n] + S2[a3, a1, a2, a1, SP[a1, a1], n] + 
    S2[a3, a1, a2, SP[a1, a1], a1, n] + S2[a3, a1, SP[a1, a1], a2, a1, n] + 
    S2[a3, a1, SP[a1, a2], a1, a1, n] + S2[a3, SP[a1, a1], a1, a2, a1, n] + 
    S2[a3, SP[a1, a1], a2, a1, a1, n] - S2[SP[a1, a1], a1, a1, a2, a3, n] - 
    S2[SP[a1, a1], a1, a1, a3, a2, n] - S2[SP[a1, a1], a1, a3, a1, a2, n] + 
    2*S2[SP[a1, a1], a2, a1, a1, a3, n] + S2[SP[a1, a1], a2, a1, a3, a1, n]/
     2 - S2[SP[a1, a1], a3, a1, a2, a1, n]/2 + S2[SP[a1, a3], a1, a1, a2, a1, 
     n] + S2[SP[a1, a3], a1, a2, a1, a1, n] - 
    3*S2[a3, a1, a1, a1, a2, a1, n] - 4*S2[a3, a1, a1, a2, a1, a1, n] - 
    3*S2[a3, a1, a2, a1, a1, a1, n] /; 
   MyMemberQ[{{a2, a3}}, {a1, a1, a1, a1, a2, a3}] && a1 != a2 != a3, 
 S2[a1_, a2_, a3_, a1_, a1_, a1_, n_] :> 
  -(S2[a1, a2, n]*S2[a1, a1, a1, a3, n]) + S2[a1, a1, SP[a1, a1], SP[a2, a3], 
     n] + S2[a1, SP[a1, a1], a1, SP[a2, a3], n] + 
    S2[a1, SP[a1, a1], SP[a1, a2], a3, n] + S2[SP[a1, a1], a1, a1, 
     SP[a2, a3], n] + S2[SP[a1, a1], a1, SP[a1, a2], a3, n] + 
    S2[SP[a1, a1], SP[a1, a2], a1, a3, n] - 
    4*S2[a1, a1, a1, a1, SP[a2, a3], n] + 
    S2[a1, n]*S2[a1, a1, a1, a2, a3, n] + S2[a1, a1, a1, a2, SP[a1, a3], n] + 
    S2[a1, n]*S2[a1, a1, a1, a3, a2, n] + S2[a1, a1, a1, a3, SP[a1, a2], n] - 
    2*S2[a1, a1, a1, SP[a1, a2], a3, n] + 
    (2*S2[a1, n]*S2[a1, a1, a2, a1, a3, n])/3 + 
    (2*S2[a1, a1, a2, a1, SP[a1, a3], n])/3 - 
    (S2[a1, n]*S2[a1, a1, a2, a3, a1, n])/3 - 
    S2[a1, a1, a2, a3, SP[a1, a1], n]/3 + 
    (2*S2[a1, a1, a2, SP[a1, a1], a3, n])/3 - 
    S2[a1, a1, a2, SP[a1, a3], a1, n]/3 - 
    (S2[a1, n]*S2[a1, a1, a3, a2, a1, n])/3 - 
    S2[a1, a1, a3, a2, SP[a1, a1], n]/3 - S2[a1, a1, a3, SP[a1, a2], a1, n]/
     3 - (4*S2[a1, a1, SP[a1, a2], a1, a3, n])/3 - 
    S2[a1, a1, SP[a1, a2], a3, a1, n]/3 - S2[a1, a1, SP[a1, a3], a2, a1, n]/
     3 + (S2[a1, n]*S2[a1, a2, a1, a1, a3, n])/3 + 
    S2[a1, a2, a1, a1, SP[a1, a3], n]/3 - 
    (S2[a1, n]*S2[a1, a2, a1, a3, a1, n])/6 - 
    S2[a1, a2, a1, a3, SP[a1, a1], n]/6 + S2[a1, a2, a1, SP[a1, a1], a3, n]/
     3 - S2[a1, a2, a1, SP[a1, a3], a1, n]/6 + 
    (S2[a1, n]*S2[a1, a2, a3, a1, a1, n])/3 + 
    S2[a1, a2, a3, a1, SP[a1, a1], n]/3 + S2[a1, a2, a3, SP[a1, a1], a1, n]/
     3 + S2[a1, a2, SP[a1, a1], a1, a3, n]/3 - 
    S2[a1, a2, SP[a1, a1], a3, a1, n]/6 + S2[a1, a2, SP[a1, a3], a1, a1, n]/
     3 + (S2[a1, n]*S2[a1, a3, a1, a2, a1, n])/6 + 
    S2[a1, a3, a1, a2, SP[a1, a1], n]/6 + S2[a1, a3, a1, SP[a1, a2], a1, n]/
     6 + (S2[a1, n]*S2[a1, a3, a2, a1, a1, n])/3 + 
    S2[a1, a3, a2, a1, SP[a1, a1], n]/3 + S2[a1, a3, a2, SP[a1, a1], a1, n]/
     3 + S2[a1, a3, SP[a1, a1], a2, a1, n]/6 + 
    S2[a1, a3, SP[a1, a2], a1, a1, n]/3 - S2[a1, SP[a1, a1], a2, a1, a3, n]/
     3 - S2[a1, SP[a1, a1], a2, a3, a1, n]/3 - 
    S2[a1, SP[a1, a1], a3, a2, a1, n]/3 - 
    (2*S2[a1, SP[a1, a2], a1, a1, a3, n])/3 - 
    S2[a1, SP[a1, a2], a1, a3, a1, n]/6 + S2[a1, SP[a1, a2], a3, a1, a1, n]/
     3 + S2[a1, SP[a1, a3], a1, a2, a1, n]/6 + 
    S2[a1, SP[a1, a3], a2, a1, a1, n]/3 - 
    (S2[a1, n]*S2[a3, a1, a1, a2, a1, n])/3 - 
    S2[a3, a1, a1, a2, SP[a1, a1], n]/3 - S2[a3, a1, a1, SP[a1, a2], a1, n]/
     3 - (2*S2[a1, n]*S2[a3, a1, a2, a1, a1, n])/3 - 
    (2*S2[a3, a1, a2, a1, SP[a1, a1], n])/3 - 
    (2*S2[a3, a1, a2, SP[a1, a1], a1, n])/3 - 
    S2[a3, a1, SP[a1, a1], a2, a1, n]/3 - 
    (2*S2[a3, a1, SP[a1, a2], a1, a1, n])/3 - 
    S2[a1, n]*S2[a3, a2, a1, a1, a1, n] - S2[a3, a2, a1, a1, SP[a1, a1], n] - 
    S2[a3, a2, a1, SP[a1, a1], a1, n] - S2[a3, a2, SP[a1, a1], a1, a1, n] - 
    S2[a3, SP[a1, a1], a1, a2, a1, n]/3 - 
    (2*S2[a3, SP[a1, a1], a2, a1, a1, n])/3 - S2[a3, SP[a1, a2], a1, a1, a1, 
     n] - S2[SP[a1, a1], a1, a2, a1, a3, n]/3 - 
    S2[SP[a1, a1], a1, a2, a3, a1, n]/3 - S2[SP[a1, a1], a1, a3, a2, a1, n]/
     3 - (2*S2[SP[a1, a1], a2, a1, a1, a3, n])/3 - 
    S2[SP[a1, a1], a2, a1, a3, a1, n]/6 + S2[SP[a1, a1], a2, a3, a1, a1, n]/
     3 + S2[SP[a1, a1], a3, a1, a2, a1, n]/6 + 
    S2[SP[a1, a1], a3, a2, a1, a1, n]/3 - S2[SP[a1, a3], a1, a1, a2, a1, n]/
     3 - (2*S2[SP[a1, a3], a1, a2, a1, a1, n])/3 - 
    S2[SP[a1, a3], a2, a1, a1, a1, n] + S2[a3, a1, a1, a1, a2, a1, n] + 
    2*S2[a3, a1, a1, a2, a1, a1, n] + 3*S2[a3, a1, a2, a1, a1, a1, n] + 
    4*S2[a3, a2, a1, a1, a1, a1, n] /; 
   MyMemberQ[{{a2, a3}}, {a1, a1, a1, a1, a2, a3}] && a1 != a2 != a3, 
 S2[a1_, a3_, a1_, a1_, a1_, a2_, n_] :> 
  S2[a1, n]*S2[a3, a1, a1, a1, a2, n] + S2[a3, a1, a1, a1, SP[a1, a2], n] + 
    S2[a3, a1, a1, SP[a1, a1], a2, n] + S2[a3, a1, SP[a1, a1], a1, a2, n] + 
    S2[a3, SP[a1, a1], a1, a1, a2, n] + S2[SP[a1, a3], a1, a1, a1, a2, n] - 
    4*S2[a3, a1, a1, a1, a1, a2, n] - S2[a3, a1, a1, a1, a2, a1, n] /; 
   MyMemberQ[{{a2, a3}}, {a1, a1, a1, a1, a2, a3}] && a1 != a2 != a3, 
 S2[a1_, a3_, a1_, a1_, a2_, a1_, n_] :> 
  S2[a1, n]*S2[a3, a1, a1, a2, a1, n] + S2[a3, a1, a1, a2, SP[a1, a1], n] + 
    S2[a3, a1, a1, SP[a1, a2], a1, n] + S2[a3, a1, SP[a1, a1], a2, a1, n] + 
    S2[a3, SP[a1, a1], a1, a2, a1, n] + S2[SP[a1, a3], a1, a1, a2, a1, n] - 
    3*S2[a3, a1, a1, a1, a2, a1, n] - 2*S2[a3, a1, a1, a2, a1, a1, n] /; 
   MyMemberQ[{{a2, a3}}, {a1, a1, a1, a1, a2, a3}] && a1 != a2 != a3, 
 S2[a1_, a3_, a1_, a2_, a1_, a1_, n_] :> 
  S2[a1, n]*S2[a3, a1, a2, a1, a1, n] + S2[a3, a1, a2, a1, SP[a1, a1], n] + 
    S2[a3, a1, a2, SP[a1, a1], a1, n] + S2[a3, a1, SP[a1, a2], a1, a1, n] + 
    S2[a3, SP[a1, a1], a2, a1, a1, n] + S2[SP[a1, a3], a1, a2, a1, a1, n] - 
    2*S2[a3, a1, a1, a2, a1, a1, n] - 3*S2[a3, a1, a2, a1, a1, a1, n] /; 
   MyMemberQ[{{a2, a3}}, {a1, a1, a1, a1, a2, a3}] && a1 != a2 != a3, 
 S2[a1_, a3_, a2_, a1_, a1_, a1_, n_] :> 
  S2[a1, n]*S2[a3, a2, a1, a1, a1, n] + S2[a3, a2, a1, a1, SP[a1, a1], n] + 
    S2[a3, a2, a1, SP[a1, a1], a1, n] + S2[a3, a2, SP[a1, a1], a1, a1, n] + 
    S2[a3, SP[a1, a2], a1, a1, a1, n] + S2[SP[a1, a3], a2, a1, a1, a1, n] - 
    S2[a3, a1, a2, a1, a1, a1, n] - 4*S2[a3, a2, a1, a1, a1, a1, n] /; 
   MyMemberQ[{{a2, a3}}, {a1, a1, a1, a1, a2, a3}] && a1 != a2 != a3, 
 S2[a2_, a1_, a1_, a1_, a1_, a3_, n_] :> 
  S2[a1, a1, a2, n]*S2[a1, a1, a3, n] + S2[SP[a1, a1], SP[a1, a1], 
     SP[a2, a3], n] - S2[a1, a3, n]*S2[a1, a1, a1, a2, n] - 
    S2[a1, a2, n]*S2[a1, a1, a1, a3, n] - S2[SP[a1, a1], SP[a1, a1], a2, a3, 
     n] - S2[SP[a1, a1], SP[a1, a1], a3, a2, n] + S2[SP[a1, a1], SP[a1, a2], 
     a1, a3, n] + S2[SP[a1, a1], SP[a1, a3], a1, a2, n] + 
    S2[a3, n]*S2[a1, a1, a1, a1, a2, n] + 
    S2[a2, n]*S2[a1, a1, a1, a1, a3, n] - S2[SP[a1, a1], a2, a1, a1, a3, n] - 
    S2[SP[a1, a1], a3, a1, a1, a2, n] + S2[SP[a1, a2], a1, a1, a1, a3, n] + 
    S2[SP[a1, a3], a1, a1, a1, a2, n] - S2[a3, a1, a1, a1, a1, a2, n] /; 
   MyMemberQ[{{a2, a3}}, {a1, a1, a1, a1, a2, a3}] && a1 != a2 != a3, 
 S2[a2_, a1_, a1_, a1_, a3_, a1_, n_] :> 
  -2*S2[a1, a1, a2, n]*S2[a1, a1, a3, n] - 
    2*S2[SP[a1, a1], SP[a1, a1], SP[a2, a3], n] + 
    S2[a1, a3, n]*S2[a1, a1, a1, a2, n] + 3*S2[a1, a2, n]*
     S2[a1, a1, a1, a3, n] - S2[a1, SP[a1, a1], SP[a1, a2], a3, n] + 
    S2[a1, SP[a1, a1], SP[a1, a3], a2, n] - S2[SP[a1, a1], a1, SP[a1, a2], 
     a3, n] + S2[SP[a1, a1], a1, SP[a1, a3], a2, n] + 
    2*S2[SP[a1, a1], SP[a1, a1], a2, a3, n] + 
    2*S2[SP[a1, a1], SP[a1, a1], a3, a2, n] - 
    3*S2[SP[a1, a1], SP[a1, a2], a1, a3, n] - S2[SP[a1, a1], SP[a1, a3], a1, 
     a2, n] - 4*S2[a2, n]*S2[a1, a1, a1, a1, a3, n] + 
    S2[a1, SP[a1, a1], a2, a1, a3, n] - S2[a1, SP[a1, a1], a3, a1, a2, n] - 
    S2[a1, SP[a1, a2], a1, a1, a3, n] + S2[a1, SP[a1, a3], a1, a1, a2, n] + 
    S2[a1, n]*S2[a2, a1, a1, a1, a3, n] + S2[a2, a1, a1, a1, SP[a1, a3], n] + 
    S2[a2, a1, a1, SP[a1, a1], a3, n] + S2[a2, a1, SP[a1, a1], a1, a3, n] + 
    S2[a2, SP[a1, a1], a1, a1, a3, n] - S2[a1, n]*S2[a3, a1, a1, a1, a2, n] - 
    S2[a3, a1, a1, a1, SP[a1, a2], n] - S2[a3, a1, a1, SP[a1, a1], a2, n] - 
    S2[a3, a1, SP[a1, a1], a1, a2, n] - S2[a3, SP[a1, a1], a1, a1, a2, n] + 
    S2[SP[a1, a1], a1, a2, a1, a3, n] - S2[SP[a1, a1], a1, a3, a1, a2, n] + 
    3*S2[SP[a1, a1], a2, a1, a1, a3, n] + S2[SP[a1, a1], a3, a1, a1, a2, n] - 
    3*S2[SP[a1, a2], a1, a1, a1, a3, n] - S2[SP[a1, a3], a1, a1, a1, a2, n] + 
    4*S2[a3, a1, a1, a1, a1, a2, n] + S2[a3, a1, a1, a1, a2, a1, n] /; 
   MyMemberQ[{{a2, a3}}, {a1, a1, a1, a1, a2, a3}] && a1 != a2 != a3, 
 S2[a2_, a1_, a1_, a3_, a1_, a1_, n_] :> 
  S2[a1, a1, a2, n]*S2[a1, a1, a3, n] + S2[SP[a1, a1], SP[a1, a1], 
     SP[a2, a3], n] - 3*S2[a1, a2, n]*S2[a1, a1, a1, a3, n] + 
    S2[a1, a1, SP[a1, a1], SP[a2, a3], n] + S2[a1, SP[a1, a1], a1, 
     SP[a2, a3], n] + 2*S2[a1, SP[a1, a1], SP[a1, a2], a3, n] - 
    S2[a1, SP[a1, a1], SP[a1, a3], a2, n] + S2[SP[a1, a1], a1, a1, 
     SP[a2, a3], n] + 2*S2[SP[a1, a1], a1, SP[a1, a2], a3, n] - 
    S2[SP[a1, a1], a1, SP[a1, a3], a2, n] - S2[SP[a1, a1], SP[a1, a1], a2, 
     a3, n] - S2[SP[a1, a1], SP[a1, a1], a3, a2, n] + 
    3*S2[SP[a1, a1], SP[a1, a2], a1, a3, n] + 
    6*S2[a2, n]*S2[a1, a1, a1, a1, a3, n] - S2[a1, a1, SP[a1, a1], a2, a3, 
     n] - S2[a1, a1, SP[a1, a1], a3, a2, n] + S2[a1, a1, SP[a1, a2], a1, a3, 
     n] + S2[a1, a1, SP[a1, a3], a1, a2, n] - 
    (S2[a1, n]*S2[a1, a2, a1, a1, a3, n])/2 - 
    S2[a1, a2, a1, a1, SP[a1, a3], n]/2 - S2[a1, a2, a1, SP[a1, a1], a3, n]/
     2 - S2[a1, a2, SP[a1, a1], a1, a3, n]/2 - 
    (S2[a1, n]*S2[a1, a3, a1, a1, a2, n])/2 - 
    S2[a1, a3, a1, a1, SP[a1, a2], n]/2 - S2[a1, a3, a1, SP[a1, a1], a2, n]/
     2 - S2[a1, a3, SP[a1, a1], a1, a2, n]/2 - S2[a1, SP[a1, a1], a1, a2, a3, 
     n] - S2[a1, SP[a1, a1], a1, a3, a2, n] - 
    2*S2[a1, SP[a1, a1], a2, a1, a3, n] + S2[a1, SP[a1, a1], a3, a1, a2, n] + 
    (5*S2[a1, SP[a1, a2], a1, a1, a3, n])/2 - 
    S2[a1, SP[a1, a3], a1, a1, a2, n]/2 - 
    (3*S2[a1, n]*S2[a2, a1, a1, a1, a3, n])/2 - 
    (3*S2[a2, a1, a1, a1, SP[a1, a3], n])/2 + 
    (S2[a1, n]*S2[a2, a1, a1, a3, a1, n])/2 + 
    S2[a2, a1, a1, a3, SP[a1, a1], n]/2 - 
    (3*S2[a2, a1, a1, SP[a1, a1], a3, n])/2 + 
    S2[a2, a1, a1, SP[a1, a3], a1, n]/2 - 
    (3*S2[a2, a1, SP[a1, a1], a1, a3, n])/2 + 
    S2[a2, a1, SP[a1, a1], a3, a1, n]/2 - 
    (3*S2[a2, SP[a1, a1], a1, a1, a3, n])/2 + 
    S2[a2, SP[a1, a1], a1, a3, a1, n]/2 + 
    (3*S2[a1, n]*S2[a3, a1, a1, a1, a2, n])/2 + 
    (3*S2[a3, a1, a1, a1, SP[a1, a2], n])/2 + 
    (S2[a1, n]*S2[a3, a1, a1, a2, a1, n])/2 + 
    S2[a3, a1, a1, a2, SP[a1, a1], n]/2 + 
    (3*S2[a3, a1, a1, SP[a1, a1], a2, n])/2 + 
    S2[a3, a1, a1, SP[a1, a2], a1, n]/2 + 
    (3*S2[a3, a1, SP[a1, a1], a1, a2, n])/2 + 
    S2[a3, a1, SP[a1, a1], a2, a1, n]/2 + 
    (3*S2[a3, SP[a1, a1], a1, a1, a2, n])/2 + 
    S2[a3, SP[a1, a1], a1, a2, a1, n]/2 - S2[SP[a1, a1], a1, a1, a2, a3, n] - 
    S2[SP[a1, a1], a1, a1, a3, a2, n] - 2*S2[SP[a1, a1], a1, a2, a1, a3, n] + 
    S2[SP[a1, a1], a1, a3, a1, a2, n] - (7*S2[SP[a1, a1], a2, a1, a1, a3, n])/
     2 - S2[SP[a1, a1], a3, a1, a1, a2, n]/2 + 
    (9*S2[SP[a1, a2], a1, a1, a1, a3, n])/2 + 
    S2[SP[a1, a2], a1, a1, a3, a1, n]/2 + 
    (3*S2[SP[a1, a3], a1, a1, a1, a2, n])/2 + 
    S2[SP[a1, a3], a1, a1, a2, a1, n]/2 - 6*S2[a3, a1, a1, a1, a1, a2, n] - 
    3*S2[a3, a1, a1, a1, a2, a1, n] - S2[a3, a1, a1, a2, a1, a1, n] /; 
   MyMemberQ[{{a2, a3}}, {a1, a1, a1, a1, a2, a3}] && a1 != a2 != a3, 
 S2[a2_, a1_, a3_, a1_, a1_, a1_, n_] :> 
  S2[a1, a2, n]*S2[a1, a1, a1, a3, n] - S2[a1, a1, SP[a1, a1], SP[a2, a3], 
     n] - S2[a1, SP[a1, a1], a1, SP[a2, a3], n] - 
    S2[a1, SP[a1, a1], SP[a1, a2], a3, n] - S2[SP[a1, a1], a1, a1, 
     SP[a2, a3], n] - S2[SP[a1, a1], a1, SP[a1, a2], a3, n] - 
    S2[SP[a1, a1], SP[a1, a2], a1, a3, n] - 
    4*S2[a2, n]*S2[a1, a1, a1, a1, a3, n] - S2[a1, a1, a1, SP[a1, a2], a3, 
     n] + S2[a1, a1, a1, SP[a1, a3], a2, n] + 
    (S2[a1, n]*S2[a1, a1, a2, a1, a3, n])/3 + 
    S2[a1, a1, a2, a1, SP[a1, a3], n]/3 + S2[a1, a1, a2, SP[a1, a1], a3, n]/
     3 - (S2[a1, n]*S2[a1, a1, a3, a1, a2, n])/3 - 
    S2[a1, a1, a3, a1, SP[a1, a2], n]/3 - S2[a1, a1, a3, SP[a1, a1], a2, n]/
     3 + S2[a1, a1, SP[a1, a1], a2, a3, n] + S2[a1, a1, SP[a1, a1], a3, a2, 
     n] - (5*S2[a1, a1, SP[a1, a2], a1, a3, n])/3 - 
    S2[a1, a1, SP[a1, a3], a1, a2, n]/3 + 
    (2*S2[a1, n]*S2[a1, a2, a1, a1, a3, n])/3 + 
    (2*S2[a1, a2, a1, a1, SP[a1, a3], n])/3 - 
    (S2[a1, n]*S2[a1, a2, a1, a3, a1, n])/6 - 
    S2[a1, a2, a1, a3, SP[a1, a1], n]/6 + 
    (2*S2[a1, a2, a1, SP[a1, a1], a3, n])/3 - 
    S2[a1, a2, a1, SP[a1, a3], a1, n]/6 + 
    (2*S2[a1, a2, SP[a1, a1], a1, a3, n])/3 - 
    S2[a1, a2, SP[a1, a1], a3, a1, n]/6 + 
    (S2[a1, n]*S2[a1, a3, a1, a1, a2, n])/3 + 
    S2[a1, a3, a1, a1, SP[a1, a2], n]/3 + 
    (S2[a1, n]*S2[a1, a3, a1, a2, a1, n])/6 + 
    S2[a1, a3, a1, a2, SP[a1, a1], n]/6 + S2[a1, a3, a1, SP[a1, a1], a2, n]/
     3 + S2[a1, a3, a1, SP[a1, a2], a1, n]/6 + 
    S2[a1, a3, SP[a1, a1], a1, a2, n]/3 + S2[a1, a3, SP[a1, a1], a2, a1, n]/
     6 + S2[a1, SP[a1, a1], a1, a2, a3, n] + S2[a1, SP[a1, a1], a1, a3, a2, 
     n] + (4*S2[a1, SP[a1, a1], a2, a1, a3, n])/3 - 
    S2[a1, SP[a1, a1], a3, a1, a2, n]/3 - 
    (7*S2[a1, SP[a1, a2], a1, a1, a3, n])/3 - 
    S2[a1, SP[a1, a2], a1, a3, a1, n]/6 + S2[a1, SP[a1, a3], a1, a1, a2, n]/
     3 + S2[a1, SP[a1, a3], a1, a2, a1, n]/6 + 
    S2[a1, n]*S2[a2, a1, a1, a1, a3, n] + S2[a2, a1, a1, a1, SP[a1, a3], n] - 
    (S2[a1, n]*S2[a2, a1, a1, a3, a1, n])/3 - 
    S2[a2, a1, a1, a3, SP[a1, a1], n]/3 + S2[a2, a1, a1, SP[a1, a1], a3, n] - 
    S2[a2, a1, a1, SP[a1, a3], a1, n]/3 + 
    (S2[a1, n]*S2[a2, a1, a3, a1, a1, n])/3 + 
    S2[a2, a1, a3, a1, SP[a1, a1], n]/3 + S2[a2, a1, a3, SP[a1, a1], a1, n]/
     3 + S2[a2, a1, SP[a1, a1], a1, a3, n] - 
    S2[a2, a1, SP[a1, a1], a3, a1, n]/3 + S2[a2, a1, SP[a1, a3], a1, a1, n]/
     3 + S2[a2, SP[a1, a1], a1, a1, a3, n] - 
    S2[a2, SP[a1, a1], a1, a3, a1, n]/3 + S2[a2, SP[a1, a1], a3, a1, a1, n]/
     3 - S2[a1, n]*S2[a3, a1, a1, a1, a2, n] - S2[a3, a1, a1, a1, SP[a1, a2], 
     n] - (2*S2[a1, n]*S2[a3, a1, a1, a2, a1, n])/3 - 
    (2*S2[a3, a1, a1, a2, SP[a1, a1], n])/3 - S2[a3, a1, a1, SP[a1, a1], a2, 
     n] - (2*S2[a3, a1, a1, SP[a1, a2], a1, n])/3 - 
    (S2[a1, n]*S2[a3, a1, a2, a1, a1, n])/3 - 
    S2[a3, a1, a2, a1, SP[a1, a1], n]/3 - S2[a3, a1, a2, SP[a1, a1], a1, n]/
     3 - S2[a3, a1, SP[a1, a1], a1, a2, n] - 
    (2*S2[a3, a1, SP[a1, a1], a2, a1, n])/3 - 
    S2[a3, a1, SP[a1, a2], a1, a1, n]/3 - S2[a3, SP[a1, a1], a1, a1, a2, n] - 
    (2*S2[a3, SP[a1, a1], a1, a2, a1, n])/3 - 
    S2[a3, SP[a1, a1], a2, a1, a1, n]/3 + S2[SP[a1, a1], a1, a1, a2, a3, n] + 
    S2[SP[a1, a1], a1, a1, a3, a2, n] + (4*S2[SP[a1, a1], a1, a2, a1, a3, n])/
     3 - S2[SP[a1, a1], a1, a3, a1, a2, n]/3 + 
    (5*S2[SP[a1, a1], a2, a1, a1, a3, n])/3 - 
    S2[SP[a1, a1], a2, a1, a3, a1, n]/6 + S2[SP[a1, a1], a3, a1, a1, a2, n]/
     3 + S2[SP[a1, a1], a3, a1, a2, a1, n]/6 - 
    3*S2[SP[a1, a2], a1, a1, a1, a3, n] - S2[SP[a1, a2], a1, a1, a3, a1, n]/
     3 + S2[SP[a1, a2], a1, a3, a1, a1, n]/3 - S2[SP[a1, a3], a1, a1, a1, a2, 
     n] - (2*S2[SP[a1, a3], a1, a1, a2, a1, n])/3 - 
    S2[SP[a1, a3], a1, a2, a1, a1, n]/3 + 4*S2[a3, a1, a1, a1, a1, a2, n] + 
    3*S2[a3, a1, a1, a1, a2, a1, n] + 2*S2[a3, a1, a1, a2, a1, a1, n] + 
    S2[a3, a1, a2, a1, a1, a1, n] /; 
   MyMemberQ[{{a2, a3}}, {a1, a1, a1, a1, a2, a3}] && a1 != a2 != a3, 
 S2[a2_, a3_, a1_, a1_, a1_, a1_, n_] :> 
  S2[a2, n]*S2[a1, a1, a1, a1, a3, n] + S2[a1, a1, a1, a1, SP[a2, a3], n] - 
    (S2[a1, n]*S2[a1, a1, a1, a2, a3, n])/4 - 
    S2[a1, a1, a1, a2, SP[a1, a3], n]/4 - 
    (S2[a1, n]*S2[a1, a1, a1, a3, a2, n])/4 - 
    S2[a1, a1, a1, a3, SP[a1, a2], n]/4 + 
    (3*S2[a1, a1, a1, SP[a1, a2], a3, n])/4 - 
    S2[a1, a1, a1, SP[a1, a3], a2, n]/4 - 
    (S2[a1, n]*S2[a1, a1, a2, a1, a3, n])/4 - 
    S2[a1, a1, a2, a1, SP[a1, a3], n]/4 + 
    (S2[a1, n]*S2[a1, a1, a2, a3, a1, n])/12 + 
    S2[a1, a1, a2, a3, SP[a1, a1], n]/12 - S2[a1, a1, a2, SP[a1, a1], a3, n]/
     4 + S2[a1, a1, a2, SP[a1, a3], a1, n]/12 + 
    (S2[a1, n]*S2[a1, a1, a3, a1, a2, n])/12 + 
    S2[a1, a1, a3, a1, SP[a1, a2], n]/12 + 
    (S2[a1, n]*S2[a1, a1, a3, a2, a1, n])/12 + 
    S2[a1, a1, a3, a2, SP[a1, a1], n]/12 + S2[a1, a1, a3, SP[a1, a1], a2, n]/
     12 + S2[a1, a1, a3, SP[a1, a2], a1, n]/12 - 
    S2[a1, a1, SP[a1, a1], a2, a3, n]/4 - S2[a1, a1, SP[a1, a1], a3, a2, n]/
     4 + (3*S2[a1, a1, SP[a1, a2], a1, a3, n])/4 + 
    S2[a1, a1, SP[a1, a2], a3, a1, n]/12 + S2[a1, a1, SP[a1, a3], a1, a2, n]/
     12 + S2[a1, a1, SP[a1, a3], a2, a1, n]/12 - 
    (S2[a1, n]*S2[a1, a2, a1, a1, a3, n])/4 - 
    S2[a1, a2, a1, a1, SP[a1, a3], n]/4 + 
    (S2[a1, n]*S2[a1, a2, a1, a3, a1, n])/12 + 
    S2[a1, a2, a1, a3, SP[a1, a1], n]/12 - S2[a1, a2, a1, SP[a1, a1], a3, n]/
     4 + S2[a1, a2, a1, SP[a1, a3], a1, n]/12 - 
    (S2[a1, n]*S2[a1, a2, a3, a1, a1, n])/12 - 
    S2[a1, a2, a3, a1, SP[a1, a1], n]/12 - S2[a1, a2, a3, SP[a1, a1], a1, n]/
     12 - S2[a1, a2, SP[a1, a1], a1, a3, n]/4 + 
    S2[a1, a2, SP[a1, a1], a3, a1, n]/12 - S2[a1, a2, SP[a1, a3], a1, a1, n]/
     12 - (S2[a1, n]*S2[a1, a3, a1, a1, a2, n])/12 - 
    S2[a1, a3, a1, a1, SP[a1, a2], n]/12 - 
    (S2[a1, n]*S2[a1, a3, a1, a2, a1, n])/12 - 
    S2[a1, a3, a1, a2, SP[a1, a1], n]/12 - S2[a1, a3, a1, SP[a1, a1], a2, n]/
     12 - S2[a1, a3, a1, SP[a1, a2], a1, n]/12 - 
    (S2[a1, n]*S2[a1, a3, a2, a1, a1, n])/12 - 
    S2[a1, a3, a2, a1, SP[a1, a1], n]/12 - S2[a1, a3, a2, SP[a1, a1], a1, n]/
     12 - S2[a1, a3, SP[a1, a1], a1, a2, n]/12 - 
    S2[a1, a3, SP[a1, a1], a2, a1, n]/12 - S2[a1, a3, SP[a1, a2], a1, a1, n]/
     12 - S2[a1, SP[a1, a1], a1, a2, a3, n]/4 - 
    S2[a1, SP[a1, a1], a1, a3, a2, n]/4 - S2[a1, SP[a1, a1], a2, a1, a3, n]/
     4 + S2[a1, SP[a1, a1], a2, a3, a1, n]/12 + 
    S2[a1, SP[a1, a1], a3, a1, a2, n]/12 + S2[a1, SP[a1, a1], a3, a2, a1, n]/
     12 + (3*S2[a1, SP[a1, a2], a1, a1, a3, n])/4 + 
    S2[a1, SP[a1, a2], a1, a3, a1, n]/12 - S2[a1, SP[a1, a2], a3, a1, a1, n]/
     12 - S2[a1, SP[a1, a3], a1, a1, a2, n]/12 - 
    S2[a1, SP[a1, a3], a1, a2, a1, n]/12 - S2[a1, SP[a1, a3], a2, a1, a1, n]/
     12 - (S2[a1, n]*S2[a2, a1, a1, a1, a3, n])/4 - 
    S2[a2, a1, a1, a1, SP[a1, a3], n]/4 + 
    (S2[a1, n]*S2[a2, a1, a1, a3, a1, n])/12 + 
    S2[a2, a1, a1, a3, SP[a1, a1], n]/12 - S2[a2, a1, a1, SP[a1, a1], a3, n]/
     4 + S2[a2, a1, a1, SP[a1, a3], a1, n]/12 - 
    (S2[a1, n]*S2[a2, a1, a3, a1, a1, n])/12 - 
    S2[a2, a1, a3, a1, SP[a1, a1], n]/12 - S2[a2, a1, a3, SP[a1, a1], a1, n]/
     12 - S2[a2, a1, SP[a1, a1], a1, a3, n]/4 + 
    S2[a2, a1, SP[a1, a1], a3, a1, n]/12 - S2[a2, a1, SP[a1, a3], a1, a1, n]/
     12 + (S2[a1, n]*S2[a2, a3, a1, a1, a1, n])/4 + 
    S2[a2, a3, a1, a1, SP[a1, a1], n]/4 + S2[a2, a3, a1, SP[a1, a1], a1, n]/
     4 + S2[a2, a3, SP[a1, a1], a1, a1, n]/4 - 
    S2[a2, SP[a1, a1], a1, a1, a3, n]/4 + S2[a2, SP[a1, a1], a1, a3, a1, n]/
     12 - S2[a2, SP[a1, a1], a3, a1, a1, n]/12 + 
    S2[a2, SP[a1, a3], a1, a1, a1, n]/4 + 
    (S2[a1, n]*S2[a3, a1, a1, a1, a2, n])/4 + 
    S2[a3, a1, a1, a1, SP[a1, a2], n]/4 + 
    (S2[a1, n]*S2[a3, a1, a1, a2, a1, n])/4 + 
    S2[a3, a1, a1, a2, SP[a1, a1], n]/4 + S2[a3, a1, a1, SP[a1, a1], a2, n]/
     4 + S2[a3, a1, a1, SP[a1, a2], a1, n]/4 + 
    (S2[a1, n]*S2[a3, a1, a2, a1, a1, n])/4 + 
    S2[a3, a1, a2, a1, SP[a1, a1], n]/4 + S2[a3, a1, a2, SP[a1, a1], a1, n]/
     4 + S2[a3, a1, SP[a1, a1], a1, a2, n]/4 + 
    S2[a3, a1, SP[a1, a1], a2, a1, n]/4 + S2[a3, a1, SP[a1, a2], a1, a1, n]/
     4 + (S2[a1, n]*S2[a3, a2, a1, a1, a1, n])/4 + 
    S2[a3, a2, a1, a1, SP[a1, a1], n]/4 + S2[a3, a2, a1, SP[a1, a1], a1, n]/
     4 + S2[a3, a2, SP[a1, a1], a1, a1, n]/4 + 
    S2[a3, SP[a1, a1], a1, a1, a2, n]/4 + S2[a3, SP[a1, a1], a1, a2, a1, n]/
     4 + S2[a3, SP[a1, a1], a2, a1, a1, n]/4 + 
    S2[a3, SP[a1, a2], a1, a1, a1, n]/4 - S2[SP[a1, a1], a1, a1, a2, a3, n]/
     4 - S2[SP[a1, a1], a1, a1, a3, a2, n]/4 - 
    S2[SP[a1, a1], a1, a2, a1, a3, n]/4 + S2[SP[a1, a1], a1, a2, a3, a1, n]/
     12 + S2[SP[a1, a1], a1, a3, a1, a2, n]/12 + 
    S2[SP[a1, a1], a1, a3, a2, a1, n]/12 - S2[SP[a1, a1], a2, a1, a1, a3, n]/
     4 + S2[SP[a1, a1], a2, a1, a3, a1, n]/12 - 
    S2[SP[a1, a1], a2, a3, a1, a1, n]/12 - S2[SP[a1, a1], a3, a1, a1, a2, n]/
     12 - S2[SP[a1, a1], a3, a1, a2, a1, n]/12 - 
    S2[SP[a1, a1], a3, a2, a1, a1, n]/12 + 
    (3*S2[SP[a1, a2], a1, a1, a1, a3, n])/4 + 
    S2[SP[a1, a2], a1, a1, a3, a1, n]/12 - S2[SP[a1, a2], a1, a3, a1, a1, n]/
     12 + S2[SP[a1, a2], a3, a1, a1, a1, n]/4 + 
    S2[SP[a1, a3], a1, a1, a1, a2, n]/4 + S2[SP[a1, a3], a1, a1, a2, a1, n]/
     4 + S2[SP[a1, a3], a1, a2, a1, a1, n]/4 + 
    S2[SP[a1, a3], a2, a1, a1, a1, n]/4 - S2[a3, a1, a1, a1, a1, a2, n] - 
    S2[a3, a1, a1, a1, a2, a1, n] - S2[a3, a1, a1, a2, a1, a1, n] - 
    S2[a3, a1, a2, a1, a1, a1, n] - S2[a3, a2, a1, a1, a1, a1, n] /; 
   MyMemberQ[{{a2, a3}}, {a1, a1, a1, a1, a2, a3}] && a1 != a2 != a3, 
 S2[a1_, a1_, a1_, a1_, a2_, a2_, n_] :> 
  S2[a2, n]*S2[a1, a1, a1, a1, a2, n] + S2[a1, a1, a1, a1, SP[a2, a2], n] - 
    (S2[a1, n]*S2[a1, a1, a1, a2, a2, n])/4 - 
    S2[a1, a1, a1, a2, SP[a1, a2], n]/4 + 
    (3*S2[a1, a1, a1, SP[a1, a2], a2, n])/4 - 
    (S2[a1, n]*S2[a1, a1, a2, a1, a2, n])/4 - 
    S2[a1, a1, a2, a1, SP[a1, a2], n]/4 + 
    (S2[a1, n]*S2[a1, a1, a2, a2, a1, n])/12 + 
    S2[a1, a1, a2, a2, SP[a1, a1], n]/12 - S2[a1, a1, a2, SP[a1, a1], a2, n]/
     4 + S2[a1, a1, a2, SP[a1, a2], a1, n]/12 - 
    S2[a1, a1, SP[a1, a1], a2, a2, n]/4 + 
    (3*S2[a1, a1, SP[a1, a2], a1, a2, n])/4 + 
    S2[a1, a1, SP[a1, a2], a2, a1, n]/12 - 
    (S2[a1, n]*S2[a1, a2, a1, a1, a2, n])/4 - 
    S2[a1, a2, a1, a1, SP[a1, a2], n]/4 + 
    (S2[a1, n]*S2[a1, a2, a1, a2, a1, n])/12 + 
    S2[a1, a2, a1, a2, SP[a1, a1], n]/12 - S2[a1, a2, a1, SP[a1, a1], a2, n]/
     4 + S2[a1, a2, a1, SP[a1, a2], a1, n]/12 - 
    (S2[a1, n]*S2[a1, a2, a2, a1, a1, n])/12 - 
    S2[a1, a2, a2, a1, SP[a1, a1], n]/12 - S2[a1, a2, a2, SP[a1, a1], a1, n]/
     12 - S2[a1, a2, SP[a1, a1], a1, a2, n]/4 + 
    S2[a1, a2, SP[a1, a1], a2, a1, n]/12 - S2[a1, a2, SP[a1, a2], a1, a1, n]/
     12 - S2[a1, SP[a1, a1], a1, a2, a2, n]/4 - 
    S2[a1, SP[a1, a1], a2, a1, a2, n]/4 + S2[a1, SP[a1, a1], a2, a2, a1, n]/
     12 + (3*S2[a1, SP[a1, a2], a1, a1, a2, n])/4 + 
    S2[a1, SP[a1, a2], a1, a2, a1, n]/12 - S2[a1, SP[a1, a2], a2, a1, a1, n]/
     12 - (S2[a1, n]*S2[a2, a1, a1, a1, a2, n])/4 - 
    S2[a2, a1, a1, a1, SP[a1, a2], n]/4 + 
    (S2[a1, n]*S2[a2, a1, a1, a2, a1, n])/12 + 
    S2[a2, a1, a1, a2, SP[a1, a1], n]/12 - S2[a2, a1, a1, SP[a1, a1], a2, n]/
     4 + S2[a2, a1, a1, SP[a1, a2], a1, n]/12 - 
    (S2[a1, n]*S2[a2, a1, a2, a1, a1, n])/12 - 
    S2[a2, a1, a2, a1, SP[a1, a1], n]/12 - S2[a2, a1, a2, SP[a1, a1], a1, n]/
     12 - S2[a2, a1, SP[a1, a1], a1, a2, n]/4 + 
    S2[a2, a1, SP[a1, a1], a2, a1, n]/12 - S2[a2, a1, SP[a1, a2], a1, a1, n]/
     12 + (S2[a1, n]*S2[a2, a2, a1, a1, a1, n])/4 + 
    S2[a2, a2, a1, a1, SP[a1, a1], n]/4 + S2[a2, a2, a1, SP[a1, a1], a1, n]/
     4 + S2[a2, a2, SP[a1, a1], a1, a1, n]/4 - 
    S2[a2, SP[a1, a1], a1, a1, a2, n]/4 + S2[a2, SP[a1, a1], a1, a2, a1, n]/
     12 - S2[a2, SP[a1, a1], a2, a1, a1, n]/12 + 
    S2[a2, SP[a1, a2], a1, a1, a1, n]/4 - S2[SP[a1, a1], a1, a1, a2, a2, n]/
     4 - S2[SP[a1, a1], a1, a2, a1, a2, n]/4 + 
    S2[SP[a1, a1], a1, a2, a2, a1, n]/12 - S2[SP[a1, a1], a2, a1, a1, a2, n]/
     4 + S2[SP[a1, a1], a2, a1, a2, a1, n]/12 - 
    S2[SP[a1, a1], a2, a2, a1, a1, n]/12 + 
    (3*S2[SP[a1, a2], a1, a1, a1, a2, n])/4 + 
    S2[SP[a1, a2], a1, a1, a2, a1, n]/12 - S2[SP[a1, a2], a1, a2, a1, a1, n]/
     12 + S2[SP[a1, a2], a2, a1, a1, a1, n]/4 - S2[a2, a2, a1, a1, a1, a1, 
     n] /; a1 != a2, S2[a1_, a1_, a1_, a2_, a1_, a2_, n_] :> 
  S2[a1, a2, n]*S2[a1, a1, a1, a2, n] - S2[a1, a1, SP[a1, a1], SP[a2, a2], 
     n] - S2[a1, SP[a1, a1], a1, SP[a2, a2], n] - 
    S2[a1, SP[a1, a1], SP[a1, a2], a2, n] - S2[SP[a1, a1], a1, a1, 
     SP[a2, a2], n] - S2[SP[a1, a1], a1, SP[a1, a2], a2, n] - 
    S2[SP[a1, a1], SP[a1, a2], a1, a2, n] - 
    4*S2[a2, n]*S2[a1, a1, a1, a1, a2, n] + 
    (S2[a1, n]*S2[a1, a1, a2, a1, a2, n])/3 + 
    S2[a1, a1, a2, a1, SP[a1, a2], n]/3 + S2[a1, a1, a2, SP[a1, a1], a2, n]/
     3 + 2*S2[a1, a1, SP[a1, a1], a2, a2, n] - 
    (5*S2[a1, a1, SP[a1, a2], a1, a2, n])/3 + 
    (2*S2[a1, n]*S2[a1, a2, a1, a1, a2, n])/3 + 
    (2*S2[a1, a2, a1, a1, SP[a1, a2], n])/3 - 
    (S2[a1, n]*S2[a1, a2, a1, a2, a1, n])/6 - 
    S2[a1, a2, a1, a2, SP[a1, a1], n]/6 + 
    (2*S2[a1, a2, a1, SP[a1, a1], a2, n])/3 - 
    S2[a1, a2, a1, SP[a1, a2], a1, n]/6 + 
    (2*S2[a1, a2, SP[a1, a1], a1, a2, n])/3 - 
    S2[a1, a2, SP[a1, a1], a2, a1, n]/6 + 
    2*S2[a1, SP[a1, a1], a1, a2, a2, n] + 
    (4*S2[a1, SP[a1, a1], a2, a1, a2, n])/3 - 
    (7*S2[a1, SP[a1, a2], a1, a1, a2, n])/3 - 
    S2[a1, SP[a1, a2], a1, a2, a1, n]/6 + 
    S2[a1, n]*S2[a2, a1, a1, a1, a2, n] + S2[a2, a1, a1, a1, SP[a1, a2], n] - 
    (S2[a1, n]*S2[a2, a1, a1, a2, a1, n])/3 - 
    S2[a2, a1, a1, a2, SP[a1, a1], n]/3 + S2[a2, a1, a1, SP[a1, a1], a2, n] - 
    S2[a2, a1, a1, SP[a1, a2], a1, n]/3 + 
    (S2[a1, n]*S2[a2, a1, a2, a1, a1, n])/3 + 
    S2[a2, a1, a2, a1, SP[a1, a1], n]/3 + S2[a2, a1, a2, SP[a1, a1], a1, n]/
     3 + S2[a2, a1, SP[a1, a1], a1, a2, n] - 
    S2[a2, a1, SP[a1, a1], a2, a1, n]/3 + S2[a2, a1, SP[a1, a2], a1, a1, n]/
     3 + S2[a2, SP[a1, a1], a1, a1, a2, n] - 
    S2[a2, SP[a1, a1], a1, a2, a1, n]/3 + S2[a2, SP[a1, a1], a2, a1, a1, n]/
     3 + 2*S2[SP[a1, a1], a1, a1, a2, a2, n] + 
    (4*S2[SP[a1, a1], a1, a2, a1, a2, n])/3 + 
    (5*S2[SP[a1, a1], a2, a1, a1, a2, n])/3 - 
    S2[SP[a1, a1], a2, a1, a2, a1, n]/6 - 
    3*S2[SP[a1, a2], a1, a1, a1, a2, n] - S2[SP[a1, a2], a1, a1, a2, a1, n]/
     3 + S2[SP[a1, a2], a1, a2, a1, a1, n]/3 - S2[a2, a1, a2, a1, a1, a1, 
     n] /; a1 != a2, S2[a1_, a1_, a1_, a2_, a2_, a1_, n_] :> 
  -(S2[a1, a2, n]*S2[a1, a1, a1, a2, n]) + S2[a1, a1, SP[a1, a1], SP[a2, a2], 
     n] + S2[a1, SP[a1, a1], a1, SP[a2, a2], n] + 
    S2[a1, SP[a1, a1], SP[a1, a2], a2, n] + S2[SP[a1, a1], a1, a1, 
     SP[a2, a2], n] + S2[SP[a1, a1], a1, SP[a1, a2], a2, n] + 
    S2[SP[a1, a1], SP[a1, a2], a1, a2, n] - 
    4*S2[a1, a1, a1, a1, SP[a2, a2], n] + 
    2*S2[a1, n]*S2[a1, a1, a1, a2, a2, n] + 
    2*S2[a1, a1, a1, a2, SP[a1, a2], n] - 
    2*S2[a1, a1, a1, SP[a1, a2], a2, n] + 
    (2*S2[a1, n]*S2[a1, a1, a2, a1, a2, n])/3 + 
    (2*S2[a1, a1, a2, a1, SP[a1, a2], n])/3 - 
    (S2[a1, n]*S2[a1, a1, a2, a2, a1, n])/3 - 
    S2[a1, a1, a2, a2, SP[a1, a1], n]/3 + 
    (2*S2[a1, a1, a2, SP[a1, a1], a2, n])/3 - 
    S2[a1, a1, a2, SP[a1, a2], a1, n]/3 - 
    (4*S2[a1, a1, SP[a1, a2], a1, a2, n])/3 - 
    S2[a1, a1, SP[a1, a2], a2, a1, n]/3 + 
    (S2[a1, n]*S2[a1, a2, a1, a1, a2, n])/3 + 
    S2[a1, a2, a1, a1, SP[a1, a2], n]/3 - 
    (S2[a1, n]*S2[a1, a2, a1, a2, a1, n])/6 - 
    S2[a1, a2, a1, a2, SP[a1, a1], n]/6 + S2[a1, a2, a1, SP[a1, a1], a2, n]/
     3 - S2[a1, a2, a1, SP[a1, a2], a1, n]/6 + 
    (S2[a1, n]*S2[a1, a2, a2, a1, a1, n])/3 + 
    S2[a1, a2, a2, a1, SP[a1, a1], n]/3 + S2[a1, a2, a2, SP[a1, a1], a1, n]/
     3 + S2[a1, a2, SP[a1, a1], a1, a2, n]/3 - 
    S2[a1, a2, SP[a1, a1], a2, a1, n]/6 + S2[a1, a2, SP[a1, a2], a1, a1, n]/
     3 - S2[a1, SP[a1, a1], a2, a1, a2, n]/3 - 
    S2[a1, SP[a1, a1], a2, a2, a1, n]/3 - 
    (2*S2[a1, SP[a1, a2], a1, a1, a2, n])/3 - 
    S2[a1, SP[a1, a2], a1, a2, a1, n]/6 + S2[a1, SP[a1, a2], a2, a1, a1, n]/
     3 - S2[a1, n]*S2[a2, a2, a1, a1, a1, n] - S2[a2, a2, a1, a1, SP[a1, a1], 
     n] - S2[a2, a2, a1, SP[a1, a1], a1, n] - S2[a2, a2, SP[a1, a1], a1, a1, 
     n] - S2[a2, SP[a1, a2], a1, a1, a1, n] - 
    S2[SP[a1, a1], a1, a2, a1, a2, n]/3 - S2[SP[a1, a1], a1, a2, a2, a1, n]/
     3 - (2*S2[SP[a1, a1], a2, a1, a1, a2, n])/3 - 
    S2[SP[a1, a1], a2, a1, a2, a1, n]/6 + S2[SP[a1, a1], a2, a2, a1, a1, n]/
     3 - S2[SP[a1, a2], a2, a1, a1, a1, n] + S2[a2, a1, a2, a1, a1, a1, n] + 
    4*S2[a2, a2, a1, a1, a1, a1, n] /; a1 != a2, 
 S2[a1_, a1_, a2_, a1_, a1_, a2_, n_] :> 
  S2[a1, a1, a2, n]^2/2 + S2[SP[a1, a1], SP[a1, a1], SP[a2, a2], n]/2 - 
    3*S2[a1, a2, n]*S2[a1, a1, a1, a2, n] + 
    2*S2[a1, a1, SP[a1, a1], SP[a2, a2], n] + 
    2*S2[a1, SP[a1, a1], a1, SP[a2, a2], n] + 
    2*S2[a1, SP[a1, a1], SP[a1, a2], a2, n] + 
    2*S2[SP[a1, a1], a1, a1, SP[a2, a2], n] + 
    2*S2[SP[a1, a1], a1, SP[a1, a2], a2, n] - S2[SP[a1, a1], SP[a1, a1], a2, 
     a2, n] + 3*S2[SP[a1, a1], SP[a1, a2], a1, a2, n] + 
    6*S2[a2, n]*S2[a1, a1, a1, a1, a2, n] - 
    3*S2[a1, a1, a1, a1, SP[a2, a2], n] + 
    (3*S2[a1, n]*S2[a1, a1, a1, a2, a2, n])/2 + 
    (3*S2[a1, a1, a1, a2, SP[a1, a2], n])/2 - 
    (3*S2[a1, a1, a1, SP[a1, a2], a2, n])/2 + 
    (S2[a1, n]*S2[a1, a1, a2, a1, a2, n])/2 + 
    S2[a1, a1, a2, a1, SP[a1, a2], n]/2 - 
    (S2[a1, n]*S2[a1, a1, a2, a2, a1, n])/2 - 
    S2[a1, a1, a2, a2, SP[a1, a1], n]/2 + S2[a1, a1, a2, SP[a1, a1], a2, n]/
     2 - S2[a1, a1, a2, SP[a1, a2], a1, n]/2 - 
    (5*S2[a1, a1, SP[a1, a1], a2, a2, n])/2 + 
    (3*S2[a1, a1, SP[a1, a2], a1, a2, n])/2 - 
    S2[a1, a1, SP[a1, a2], a2, a1, n]/2 - 
    (S2[a1, n]*S2[a1, a2, a1, a1, a2, n])/2 - 
    S2[a1, a2, a1, a1, SP[a1, a2], n]/2 - S2[a1, a2, a1, SP[a1, a1], a2, n]/
     2 + (S2[a1, n]*S2[a1, a2, a2, a1, a1, n])/2 + 
    S2[a1, a2, a2, a1, SP[a1, a1], n]/2 + S2[a1, a2, a2, SP[a1, a1], a1, n]/
     2 - S2[a1, a2, SP[a1, a1], a1, a2, n]/2 + 
    S2[a1, a2, SP[a1, a2], a1, a1, n]/2 - 
    (5*S2[a1, SP[a1, a1], a1, a2, a2, n])/2 - 
    (3*S2[a1, SP[a1, a1], a2, a1, a2, n])/2 - 
    S2[a1, SP[a1, a1], a2, a2, a1, n]/2 + 
    (5*S2[a1, SP[a1, a2], a1, a1, a2, n])/2 + 
    S2[a1, SP[a1, a2], a2, a1, a1, n]/2 - 
    (3*S2[a1, n]*S2[a2, a1, a1, a1, a2, n])/2 - 
    (3*S2[a2, a1, a1, a1, SP[a1, a2], n])/2 + 
    (S2[a1, n]*S2[a2, a1, a1, a2, a1, n])/2 + 
    S2[a2, a1, a1, a2, SP[a1, a1], n]/2 - 
    (3*S2[a2, a1, a1, SP[a1, a1], a2, n])/2 + 
    S2[a2, a1, a1, SP[a1, a2], a1, n]/2 - 
    (S2[a1, n]*S2[a2, a1, a2, a1, a1, n])/2 - 
    S2[a2, a1, a2, a1, SP[a1, a1], n]/2 - S2[a2, a1, a2, SP[a1, a1], a1, n]/
     2 - (3*S2[a2, a1, SP[a1, a1], a1, a2, n])/2 + 
    S2[a2, a1, SP[a1, a1], a2, a1, n]/2 - S2[a2, a1, SP[a1, a2], a1, a1, n]/
     2 - (3*S2[a1, n]*S2[a2, a2, a1, a1, a1, n])/2 - 
    (3*S2[a2, a2, a1, a1, SP[a1, a1], n])/2 - 
    (3*S2[a2, a2, a1, SP[a1, a1], a1, n])/2 - 
    (3*S2[a2, a2, SP[a1, a1], a1, a1, n])/2 - 
    (3*S2[a2, SP[a1, a1], a1, a1, a2, n])/2 + 
    S2[a2, SP[a1, a1], a1, a2, a1, n]/2 - S2[a2, SP[a1, a1], a2, a1, a1, n]/
     2 - (3*S2[a2, SP[a1, a2], a1, a1, a1, n])/2 - 
    (5*S2[SP[a1, a1], a1, a1, a2, a2, n])/2 - 
    (3*S2[SP[a1, a1], a1, a2, a1, a2, n])/2 - 
    S2[SP[a1, a1], a1, a2, a2, a1, n]/2 - 
    (7*S2[SP[a1, a1], a2, a1, a1, a2, n])/2 + 
    S2[SP[a1, a1], a2, a2, a1, a1, n]/2 + 
    (9*S2[SP[a1, a2], a1, a1, a1, a2, n])/2 + 
    S2[SP[a1, a2], a1, a1, a2, a1, n]/2 - S2[SP[a1, a2], a1, a2, a1, a1, n]/
     2 - (3*S2[SP[a1, a2], a2, a1, a1, a1, n])/2 + 
    3*S2[a2, a1, a2, a1, a1, a1, n] + 6*S2[a2, a2, a1, a1, a1, a1, n] /; 
   a1 != a2, S2[a1_, a1_, a2_, a1_, a2_, a1_, n_] :> 
  -S2[a1, a1, a2, n]^2 - S2[SP[a1, a1], SP[a1, a1], SP[a2, a2], n] + 
    3*S2[a1, a2, n]*S2[a1, a1, a1, a2, n] - S2[a1, a1, SP[a1, a1], 
     SP[a2, a2], n] - S2[a1, SP[a1, a1], a1, SP[a2, a2], n] - 
    S2[a1, SP[a1, a1], SP[a1, a2], a2, n] - S2[SP[a1, a1], a1, a1, 
     SP[a2, a2], n] - S2[SP[a1, a1], a1, SP[a1, a2], a2, n] + 
    2*S2[SP[a1, a1], SP[a1, a1], a2, a2, n] - 
    3*S2[SP[a1, a1], SP[a1, a2], a1, a2, n] + 
    6*S2[a1, a1, a1, a1, SP[a2, a2], n] - 
    3*S2[a1, n]*S2[a1, a1, a1, a2, a2, n] - 
    3*S2[a1, a1, a1, a2, SP[a1, a2], n] + 
    3*S2[a1, a1, a1, SP[a1, a2], a2, n] - 
    S2[a1, n]*S2[a1, a1, a2, a1, a2, n] - S2[a1, a1, a2, a1, SP[a1, a2], n] + 
    S2[a1, n]*S2[a1, a1, a2, a2, a1, n] + S2[a1, a1, a2, a2, SP[a1, a1], n] - 
    S2[a1, a1, a2, SP[a1, a1], a2, n] + S2[a1, a1, a2, SP[a1, a2], a1, n] - 
    S2[a1, a1, SP[a1, a1], a2, a2, n] + 3*S2[a1, a1, SP[a1, a2], a1, a2, n] + 
    S2[a1, a1, SP[a1, a2], a2, a1, n] - S2[a1, n]*S2[a1, a2, a1, a1, a2, n] - 
    S2[a1, a2, a1, a1, SP[a1, a2], n] + (S2[a1, n]*S2[a1, a2, a1, a2, a1, n])/
     2 + S2[a1, a2, a1, a2, SP[a1, a1], n]/2 - S2[a1, a2, a1, SP[a1, a1], a2, 
     n] + S2[a1, a2, a1, SP[a1, a2], a1, n]/2 - 
    S2[a1, n]*S2[a1, a2, a2, a1, a1, n] - S2[a1, a2, a2, a1, SP[a1, a1], n] - 
    S2[a1, a2, a2, SP[a1, a1], a1, n] - S2[a1, a2, SP[a1, a1], a1, a2, n] + 
    S2[a1, a2, SP[a1, a1], a2, a1, n]/2 - S2[a1, a2, SP[a1, a2], a1, a1, n] - 
    S2[a1, SP[a1, a1], a1, a2, a2, n] + S2[a1, SP[a1, a1], a2, a2, a1, n] + 
    2*S2[a1, SP[a1, a2], a1, a1, a2, n] + S2[a1, SP[a1, a2], a1, a2, a1, n]/
     2 - S2[a1, SP[a1, a2], a2, a1, a1, n] + 
    3*S2[a1, n]*S2[a2, a2, a1, a1, a1, n] + 
    3*S2[a2, a2, a1, a1, SP[a1, a1], n] + 
    3*S2[a2, a2, a1, SP[a1, a1], a1, n] + 
    3*S2[a2, a2, SP[a1, a1], a1, a1, n] + 
    3*S2[a2, SP[a1, a2], a1, a1, a1, n] - S2[SP[a1, a1], a1, a1, a2, a2, n] + 
    S2[SP[a1, a1], a1, a2, a2, a1, n] + 2*S2[SP[a1, a1], a2, a1, a1, a2, n] + 
    S2[SP[a1, a1], a2, a1, a2, a1, n]/2 - S2[SP[a1, a1], a2, a2, a1, a1, n] + 
    3*S2[SP[a1, a2], a2, a1, a1, a1, n] - 3*S2[a2, a1, a2, a1, a1, a1, n] - 
    12*S2[a2, a2, a1, a1, a1, a1, n] /; a1 != a2, 
 S2[a1_, a1_, a2_, a2_, a1_, a1_, n_] :> 
  S2[a1, a1, a2, n]^2/2 + S2[SP[a1, a1], SP[a1, a1], SP[a2, a2], n]/2 - 
    S2[a1, a1, SP[a1, a1], SP[a2, a2], n] - S2[a1, SP[a1, a1], a1, 
     SP[a2, a2], n] - S2[a1, SP[a1, a1], SP[a1, a2], a2, n] - 
    S2[SP[a1, a1], a1, a1, SP[a2, a2], n] - S2[SP[a1, a1], a1, SP[a1, a2], 
     a2, n] - S2[SP[a1, a1], SP[a1, a1], a2, a2, n] + 
    3*S2[a1, a1, a1, a1, SP[a2, a2], n] - 
    (3*S2[a1, n]*S2[a1, a1, a1, a2, a2, n])/2 - 
    (3*S2[a1, a1, a1, a2, SP[a1, a2], n])/2 + 
    (3*S2[a1, a1, a1, SP[a1, a2], a2, n])/2 - 
    (S2[a1, n]*S2[a1, a1, a2, a1, a2, n])/2 - 
    S2[a1, a1, a2, a1, SP[a1, a2], n]/2 + 
    (S2[a1, n]*S2[a1, a1, a2, a2, a1, n])/2 + 
    S2[a1, a1, a2, a2, SP[a1, a1], n]/2 - S2[a1, a1, a2, SP[a1, a1], a2, n]/
     2 + S2[a1, a1, a2, SP[a1, a2], a1, n]/2 + 
    S2[a1, a1, SP[a1, a1], a2, a2, n]/2 + S2[a1, a1, SP[a1, a2], a1, a2, n]/
     2 + S2[a1, a1, SP[a1, a2], a2, a1, n]/2 + 
    S2[a1, SP[a1, a1], a1, a2, a2, n]/2 + S2[a1, SP[a1, a1], a2, a1, a2, n]/
     2 + S2[a1, SP[a1, a1], a2, a2, a1, n]/2 + 
    S2[SP[a1, a1], a1, a1, a2, a2, n]/2 + S2[SP[a1, a1], a1, a2, a1, a2, n]/
     2 + S2[SP[a1, a1], a1, a2, a2, a1, n]/2 /; a1 != a2, 
 S2[a1_, a2_, a1_, a1_, a1_, a2_, n_] :> 
  -S2[a1, a1, a2, n]^2 - S2[SP[a1, a1], SP[a1, a1], SP[a2, a2], n] + 
    3*S2[a1, a2, n]*S2[a1, a1, a1, a2, n] - S2[a1, a1, SP[a1, a1], 
     SP[a2, a2], n] - S2[a1, SP[a1, a1], a1, SP[a2, a2], n] - 
    S2[a1, SP[a1, a1], SP[a1, a2], a2, n] - S2[SP[a1, a1], a1, a1, 
     SP[a2, a2], n] - S2[SP[a1, a1], a1, SP[a1, a2], a2, n] + 
    2*S2[SP[a1, a1], SP[a1, a1], a2, a2, n] - 
    3*S2[SP[a1, a1], SP[a1, a2], a1, a2, n] - 
    4*S2[a2, n]*S2[a1, a1, a1, a1, a2, n] + 
    2*S2[a1, a1, a1, a1, SP[a2, a2], n] - 
    S2[a1, n]*S2[a1, a1, a1, a2, a2, n] - S2[a1, a1, a1, a2, SP[a1, a2], n] + 
    S2[a1, a1, a1, SP[a1, a2], a2, n] - (S2[a1, n]*S2[a1, a1, a2, a1, a2, n])/
     3 - S2[a1, a1, a2, a1, SP[a1, a2], n]/3 + 
    (S2[a1, n]*S2[a1, a1, a2, a2, a1, n])/3 + 
    S2[a1, a1, a2, a2, SP[a1, a1], n]/3 - S2[a1, a1, a2, SP[a1, a1], a2, n]/
     3 + S2[a1, a1, a2, SP[a1, a2], a1, n]/3 + S2[a1, a1, SP[a1, a1], a2, a2, 
     n] - S2[a1, a1, SP[a1, a2], a1, a2, n]/3 + 
    S2[a1, a1, SP[a1, a2], a2, a1, n]/3 + 
    (S2[a1, n]*S2[a1, a2, a1, a1, a2, n])/3 + 
    S2[a1, a2, a1, a1, SP[a1, a2], n]/3 + S2[a1, a2, a1, SP[a1, a1], a2, n]/
     3 - (S2[a1, n]*S2[a1, a2, a2, a1, a1, n])/3 - 
    S2[a1, a2, a2, a1, SP[a1, a1], n]/3 - S2[a1, a2, a2, SP[a1, a1], a1, n]/
     3 + S2[a1, a2, SP[a1, a1], a1, a2, n]/3 - 
    S2[a1, a2, SP[a1, a2], a1, a1, n]/3 + S2[a1, SP[a1, a1], a1, a2, a2, n] + 
    (2*S2[a1, SP[a1, a1], a2, a1, a2, n])/3 + 
    S2[a1, SP[a1, a1], a2, a2, a1, n]/3 - 
    (2*S2[a1, SP[a1, a2], a1, a1, a2, n])/3 - 
    S2[a1, SP[a1, a2], a2, a1, a1, n]/3 + 
    S2[a1, n]*S2[a2, a1, a1, a1, a2, n] + S2[a2, a1, a1, a1, SP[a1, a2], n] - 
    (S2[a1, n]*S2[a2, a1, a1, a2, a1, n])/3 - 
    S2[a2, a1, a1, a2, SP[a1, a1], n]/3 + S2[a2, a1, a1, SP[a1, a1], a2, n] - 
    S2[a2, a1, a1, SP[a1, a2], a1, n]/3 + 
    (S2[a1, n]*S2[a2, a1, a2, a1, a1, n])/3 + 
    S2[a2, a1, a2, a1, SP[a1, a1], n]/3 + S2[a2, a1, a2, SP[a1, a1], a1, n]/
     3 + S2[a2, a1, SP[a1, a1], a1, a2, n] - 
    S2[a2, a1, SP[a1, a1], a2, a1, n]/3 + S2[a2, a1, SP[a1, a2], a1, a1, n]/
     3 + S2[a1, n]*S2[a2, a2, a1, a1, a1, n] + S2[a2, a2, a1, a1, SP[a1, a1], 
     n] + S2[a2, a2, a1, SP[a1, a1], a1, n] + S2[a2, a2, SP[a1, a1], a1, a1, 
     n] + S2[a2, SP[a1, a1], a1, a1, a2, n] - 
    S2[a2, SP[a1, a1], a1, a2, a1, n]/3 + S2[a2, SP[a1, a1], a2, a1, a1, n]/
     3 + S2[a2, SP[a1, a2], a1, a1, a1, n] + S2[SP[a1, a1], a1, a1, a2, a2, 
     n] + (2*S2[SP[a1, a1], a1, a2, a1, a2, n])/3 + 
    S2[SP[a1, a1], a1, a2, a2, a1, n]/3 + 
    (10*S2[SP[a1, a1], a2, a1, a1, a2, n])/3 - 
    S2[SP[a1, a1], a2, a2, a1, a1, n]/3 - 
    3*S2[SP[a1, a2], a1, a1, a1, a2, n] - S2[SP[a1, a2], a1, a1, a2, a1, n]/
     3 + S2[SP[a1, a2], a1, a2, a1, a1, n]/3 + S2[SP[a1, a2], a2, a1, a1, a1, 
     n] - 2*S2[a2, a1, a2, a1, a1, a1, n] - 
    4*S2[a2, a2, a1, a1, a1, a1, n] /; a1 != a2, 
 S2[a1_, a2_, a1_, a1_, a2_, a1_, n_] :> 
  2*S2[a1, a1, a2, n]^2 + 2*S2[SP[a1, a1], SP[a1, a1], SP[a2, a2], n] - 
    3*S2[a1, a2, n]*S2[a1, a1, a1, a2, n] - S2[a1, a1, SP[a1, a1], 
     SP[a2, a2], n] - S2[a1, SP[a1, a1], a1, SP[a2, a2], n] - 
    S2[a1, SP[a1, a1], SP[a1, a2], a2, n] - S2[SP[a1, a1], a1, a1, 
     SP[a2, a2], n] - S2[SP[a1, a1], a1, SP[a1, a2], a2, n] - 
    4*S2[SP[a1, a1], SP[a1, a1], a2, a2, n] + 
    3*S2[SP[a1, a1], SP[a1, a2], a1, a2, n] + 
    2*S2[a1, a1, SP[a1, a1], a2, a2, n] - 
    2*S2[a1, a1, SP[a1, a2], a1, a2, n] + 
    S2[a1, n]*S2[a1, a2, a1, a1, a2, n] + S2[a1, a2, a1, a1, SP[a1, a2], n] + 
    S2[a1, a2, a1, SP[a1, a1], a2, n] + S2[a1, a2, SP[a1, a1], a1, a2, n] + 
    2*S2[a1, SP[a1, a1], a1, a2, a2, n] + S2[a1, SP[a1, a1], a2, a1, a2, n] - 
    2*S2[a1, SP[a1, a2], a1, a1, a2, n] + 
    2*S2[SP[a1, a1], a1, a1, a2, a2, n] + S2[SP[a1, a1], a1, a2, a1, a2, n] - 
    2*S2[SP[a1, a1], a2, a1, a1, a2, n] /; a1 != a2, 
 S2[a1_, a2_, a1_, a2_, a1_, a1_, n_] :> 
  -S2[a1, a1, a2, n]^2 - S2[SP[a1, a1], SP[a1, a1], SP[a2, a2], n] + 
    2*S2[a1, a1, SP[a1, a1], SP[a2, a2], n] + 
    2*S2[a1, SP[a1, a1], a1, SP[a2, a2], n] + 
    2*S2[a1, SP[a1, a1], SP[a1, a2], a2, n] + 
    2*S2[SP[a1, a1], a1, a1, SP[a2, a2], n] + 
    2*S2[SP[a1, a1], a1, SP[a1, a2], a2, n] + 
    2*S2[SP[a1, a1], SP[a1, a1], a2, a2, n] - 
    6*S2[a1, a1, a1, a1, SP[a2, a2], n] + 
    3*S2[a1, n]*S2[a1, a1, a1, a2, a2, n] + 
    3*S2[a1, a1, a1, a2, SP[a1, a2], n] - 
    3*S2[a1, a1, a1, SP[a1, a2], a2, n] + 
    S2[a1, n]*S2[a1, a1, a2, a1, a2, n] + S2[a1, a1, a2, a1, SP[a1, a2], n] - 
    S2[a1, n]*S2[a1, a1, a2, a2, a1, n] - S2[a1, a1, a2, a2, SP[a1, a1], n] + 
    S2[a1, a1, a2, SP[a1, a1], a2, n] - S2[a1, a1, a2, SP[a1, a2], a1, n] - 
    S2[a1, a1, SP[a1, a1], a2, a2, n] - S2[a1, a1, SP[a1, a2], a1, a2, n] - 
    S2[a1, a1, SP[a1, a2], a2, a1, n] + S2[a1, n]*S2[a1, a2, a2, a1, a1, n] + 
    S2[a1, a2, a2, a1, SP[a1, a1], n] + S2[a1, a2, a2, SP[a1, a1], a1, n] + 
    S2[a1, a2, SP[a1, a2], a1, a1, n] - S2[a1, SP[a1, a1], a1, a2, a2, n] - 
    S2[a1, SP[a1, a1], a2, a1, a2, n] - S2[a1, SP[a1, a1], a2, a2, a1, n] + 
    S2[a1, SP[a1, a2], a2, a1, a1, n] - 3*S2[a1, n]*
     S2[a2, a2, a1, a1, a1, n] - 3*S2[a2, a2, a1, a1, SP[a1, a1], n] - 
    3*S2[a2, a2, a1, SP[a1, a1], a1, n] - 
    3*S2[a2, a2, SP[a1, a1], a1, a1, n] - 
    3*S2[a2, SP[a1, a2], a1, a1, a1, n] - S2[SP[a1, a1], a1, a1, a2, a2, n] - 
    S2[SP[a1, a1], a1, a2, a1, a2, n] - S2[SP[a1, a1], a1, a2, a2, a1, n] + 
    S2[SP[a1, a1], a2, a2, a1, a1, n] - 3*S2[SP[a1, a2], a2, a1, a1, a1, n] + 
    3*S2[a2, a1, a2, a1, a1, a1, n] + 12*S2[a2, a2, a1, a1, a1, a1, n] /; 
   a1 != a2, S2[a1_, a2_, a2_, a1_, a1_, a1_, n_] :> 
  S2[a1, n]*S2[a2, a2, a1, a1, a1, n] + S2[a2, a2, a1, a1, SP[a1, a1], n] + 
    S2[a2, a2, a1, SP[a1, a1], a1, n] + S2[a2, a2, SP[a1, a1], a1, a1, n] + 
    S2[a2, SP[a1, a2], a1, a1, a1, n] + S2[SP[a1, a2], a2, a1, a1, a1, n] - 
    S2[a2, a1, a2, a1, a1, a1, n] - 4*S2[a2, a2, a1, a1, a1, a1, n] /; 
   a1 != a2, S2[a2_, a1_, a1_, a1_, a1_, a2_, n_] :> 
  S2[a1, a1, a2, n]^2/2 + S2[SP[a1, a1], SP[a1, a1], SP[a2, a2], n]/2 - 
    S2[a1, a2, n]*S2[a1, a1, a1, a2, n] - S2[SP[a1, a1], SP[a1, a1], a2, a2, 
     n] + S2[SP[a1, a1], SP[a1, a2], a1, a2, n] + 
    S2[a2, n]*S2[a1, a1, a1, a1, a2, n] - S2[SP[a1, a1], a2, a1, a1, a2, n] + 
    S2[SP[a1, a2], a1, a1, a1, a2, n] /; a1 != a2, 
 S2[a2_, a1_, a1_, a1_, a2_, a1_, n_] :> 
  -S2[a1, a1, a2, n]^2 - S2[SP[a1, a1], SP[a1, a1], SP[a2, a2], n] + 
    S2[a1, a2, n]*S2[a1, a1, a1, a2, n] + S2[a1, a1, SP[a1, a1], SP[a2, a2], 
     n] + S2[a1, SP[a1, a1], a1, SP[a2, a2], n] + 
    S2[a1, SP[a1, a1], SP[a1, a2], a2, n] + S2[SP[a1, a1], a1, a1, 
     SP[a2, a2], n] + S2[SP[a1, a1], a1, SP[a1, a2], a2, n] + 
    2*S2[SP[a1, a1], SP[a1, a1], a2, a2, n] - S2[SP[a1, a1], SP[a1, a2], a1, 
     a2, n] - 2*S2[a1, a1, a1, a1, SP[a2, a2], n] + 
    S2[a1, n]*S2[a1, a1, a1, a2, a2, n] + S2[a1, a1, a1, a2, SP[a1, a2], n] - 
    S2[a1, a1, a1, SP[a1, a2], a2, n] + (S2[a1, n]*S2[a1, a1, a2, a1, a2, n])/
     3 + S2[a1, a1, a2, a1, SP[a1, a2], n]/3 - 
    (S2[a1, n]*S2[a1, a1, a2, a2, a1, n])/3 - 
    S2[a1, a1, a2, a2, SP[a1, a1], n]/3 + S2[a1, a1, a2, SP[a1, a1], a2, n]/
     3 - S2[a1, a1, a2, SP[a1, a2], a1, n]/3 - S2[a1, a1, SP[a1, a1], a2, a2, 
     n] + S2[a1, a1, SP[a1, a2], a1, a2, n]/3 - 
    S2[a1, a1, SP[a1, a2], a2, a1, n]/3 - 
    (S2[a1, n]*S2[a1, a2, a1, a1, a2, n])/3 - 
    S2[a1, a2, a1, a1, SP[a1, a2], n]/3 - S2[a1, a2, a1, SP[a1, a1], a2, n]/
     3 + (S2[a1, n]*S2[a1, a2, a2, a1, a1, n])/3 + 
    S2[a1, a2, a2, a1, SP[a1, a1], n]/3 + S2[a1, a2, a2, SP[a1, a1], a1, n]/
     3 - S2[a1, a2, SP[a1, a1], a1, a2, n]/3 + 
    S2[a1, a2, SP[a1, a2], a1, a1, n]/3 - S2[a1, SP[a1, a1], a1, a2, a2, n] - 
    (2*S2[a1, SP[a1, a1], a2, a1, a2, n])/3 - 
    S2[a1, SP[a1, a1], a2, a2, a1, n]/3 + 
    (2*S2[a1, SP[a1, a2], a1, a1, a2, n])/3 + 
    S2[a1, SP[a1, a2], a2, a1, a1, n]/3 + 
    (S2[a1, n]*S2[a2, a1, a1, a2, a1, n])/3 + 
    S2[a2, a1, a1, a2, SP[a1, a1], n]/3 + S2[a2, a1, a1, SP[a1, a2], a1, n]/
     3 - (S2[a1, n]*S2[a2, a1, a2, a1, a1, n])/3 - 
    S2[a2, a1, a2, a1, SP[a1, a1], n]/3 - S2[a2, a1, a2, SP[a1, a1], a1, n]/
     3 + S2[a2, a1, SP[a1, a1], a2, a1, n]/3 - 
    S2[a2, a1, SP[a1, a2], a1, a1, n]/3 - 
    S2[a1, n]*S2[a2, a2, a1, a1, a1, n] - S2[a2, a2, a1, a1, SP[a1, a1], n] - 
    S2[a2, a2, a1, SP[a1, a1], a1, n] - S2[a2, a2, SP[a1, a1], a1, a1, n] + 
    S2[a2, SP[a1, a1], a1, a2, a1, n]/3 - S2[a2, SP[a1, a1], a2, a1, a1, n]/
     3 - S2[a2, SP[a1, a2], a1, a1, a1, n] - S2[SP[a1, a1], a1, a1, a2, a2, 
     n] - (2*S2[SP[a1, a1], a1, a2, a1, a2, n])/3 - 
    S2[SP[a1, a1], a1, a2, a2, a1, n]/3 + 
    (2*S2[SP[a1, a1], a2, a1, a1, a2, n])/3 + 
    S2[SP[a1, a1], a2, a2, a1, a1, n]/3 + S2[SP[a1, a2], a1, a1, a2, a1, n]/
     3 - S2[SP[a1, a2], a1, a2, a1, a1, n]/3 - S2[SP[a1, a2], a2, a1, a1, a1, 
     n] + 2*S2[a2, a1, a2, a1, a1, a1, n] + 
    4*S2[a2, a2, a1, a1, a1, a1, n] /; a1 != a2, 
 S2[a2_, a1_, a1_, a2_, a1_, a1_, n_] :> 
  S2[a1, a1, a2, n]^2/2 + S2[SP[a1, a1], SP[a1, a1], SP[a2, a2], n]/2 - 
    S2[a1, a1, SP[a1, a1], SP[a2, a2], n] - S2[a1, SP[a1, a1], a1, 
     SP[a2, a2], n] - S2[a1, SP[a1, a1], SP[a1, a2], a2, n] - 
    S2[SP[a1, a1], a1, a1, SP[a2, a2], n] - S2[SP[a1, a1], a1, SP[a1, a2], 
     a2, n] - S2[SP[a1, a1], SP[a1, a1], a2, a2, n] + 
    3*S2[a1, a1, a1, a1, SP[a2, a2], n] - 
    (3*S2[a1, n]*S2[a1, a1, a1, a2, a2, n])/2 - 
    (3*S2[a1, a1, a1, a2, SP[a1, a2], n])/2 + 
    (3*S2[a1, a1, a1, SP[a1, a2], a2, n])/2 - 
    (S2[a1, n]*S2[a1, a1, a2, a1, a2, n])/2 - 
    S2[a1, a1, a2, a1, SP[a1, a2], n]/2 + 
    (S2[a1, n]*S2[a1, a1, a2, a2, a1, n])/2 + 
    S2[a1, a1, a2, a2, SP[a1, a1], n]/2 - S2[a1, a1, a2, SP[a1, a1], a2, n]/
     2 + S2[a1, a1, a2, SP[a1, a2], a1, n]/2 + 
    S2[a1, a1, SP[a1, a1], a2, a2, n]/2 + S2[a1, a1, SP[a1, a2], a1, a2, n]/
     2 + S2[a1, a1, SP[a1, a2], a2, a1, n]/2 - 
    (S2[a1, n]*S2[a1, a2, a2, a1, a1, n])/2 - 
    S2[a1, a2, a2, a1, SP[a1, a1], n]/2 - S2[a1, a2, a2, SP[a1, a1], a1, n]/
     2 - S2[a1, a2, SP[a1, a2], a1, a1, n]/2 + 
    S2[a1, SP[a1, a1], a1, a2, a2, n]/2 + S2[a1, SP[a1, a1], a2, a1, a2, n]/
     2 + S2[a1, SP[a1, a1], a2, a2, a1, n]/2 - 
    S2[a1, SP[a1, a2], a2, a1, a1, n]/2 + 
    (S2[a1, n]*S2[a2, a1, a2, a1, a1, n])/2 + 
    S2[a2, a1, a2, a1, SP[a1, a1], n]/2 + S2[a2, a1, a2, SP[a1, a1], a1, n]/
     2 + S2[a2, a1, SP[a1, a2], a1, a1, n]/2 + 
    (3*S2[a1, n]*S2[a2, a2, a1, a1, a1, n])/2 + 
    (3*S2[a2, a2, a1, a1, SP[a1, a1], n])/2 + 
    (3*S2[a2, a2, a1, SP[a1, a1], a1, n])/2 + 
    (3*S2[a2, a2, SP[a1, a1], a1, a1, n])/2 + 
    S2[a2, SP[a1, a1], a2, a1, a1, n]/2 + 
    (3*S2[a2, SP[a1, a2], a1, a1, a1, n])/2 + 
    S2[SP[a1, a1], a1, a1, a2, a2, n]/2 + S2[SP[a1, a1], a1, a2, a1, a2, n]/
     2 + S2[SP[a1, a1], a1, a2, a2, a1, n]/2 - 
    S2[SP[a1, a1], a2, a2, a1, a1, n]/2 + S2[SP[a1, a2], a1, a2, a1, a1, n]/
     2 + (3*S2[SP[a1, a2], a2, a1, a1, a1, n])/2 - 
    3*S2[a2, a1, a2, a1, a1, a1, n] - 6*S2[a2, a2, a1, a1, a1, a1, n] /; 
   a1 != a2, S2[a1_, a1_, a1_, a1_, a1_, a2_, n_] :> 
  (S2[a1, n]*S2[a1, a1, a1, a1, a2, n])/5 + S2[a1, a1, a1, a1, SP[a1, a2], n]/
     5 - (S2[a1, n]*S2[a1, a1, a1, a2, a1, n])/20 - 
    S2[a1, a1, a1, a2, SP[a1, a1], n]/20 + S2[a1, a1, a1, SP[a1, a1], a2, n]/
     5 - S2[a1, a1, a1, SP[a1, a2], a1, n]/20 + 
    (S2[a1, n]*S2[a1, a1, a2, a1, a1, n])/30 + 
    S2[a1, a1, a2, a1, SP[a1, a1], n]/30 + S2[a1, a1, a2, SP[a1, a1], a1, n]/
     30 + S2[a1, a1, SP[a1, a1], a1, a2, n]/5 - 
    S2[a1, a1, SP[a1, a1], a2, a1, n]/20 + S2[a1, a1, SP[a1, a2], a1, a1, n]/
     30 - (S2[a1, n]*S2[a1, a2, a1, a1, a1, n])/20 - 
    S2[a1, a2, a1, a1, SP[a1, a1], n]/20 - S2[a1, a2, a1, SP[a1, a1], a1, n]/
     20 - S2[a1, a2, SP[a1, a1], a1, a1, n]/20 + 
    S2[a1, SP[a1, a1], a1, a1, a2, n]/5 - S2[a1, SP[a1, a1], a1, a2, a1, n]/
     20 + S2[a1, SP[a1, a1], a2, a1, a1, n]/30 - 
    S2[a1, SP[a1, a2], a1, a1, a1, n]/20 + 
    (S2[a1, n]*S2[a2, a1, a1, a1, a1, n])/5 + 
    S2[a2, a1, a1, a1, SP[a1, a1], n]/5 + S2[a2, a1, a1, SP[a1, a1], a1, n]/
     5 + S2[a2, a1, SP[a1, a1], a1, a1, n]/5 + 
    S2[a2, SP[a1, a1], a1, a1, a1, n]/5 + S2[SP[a1, a1], a1, a1, a1, a2, n]/
     5 - S2[SP[a1, a1], a1, a1, a2, a1, n]/20 + 
    S2[SP[a1, a1], a1, a2, a1, a1, n]/30 - S2[SP[a1, a1], a2, a1, a1, a1, n]/
     20 + S2[SP[a1, a2], a1, a1, a1, a1, n]/5 - S2[a2, a1, a1, a1, a1, a1, 
     n] /; a1 != a2, S2[a1_, a1_, a1_, a1_, a2_, a1_, n_] :> 
  (S2[a1, n]*S2[a1, a1, a1, a2, a1, n])/4 + S2[a1, a1, a1, a2, SP[a1, a1], n]/
     4 + S2[a1, a1, a1, SP[a1, a2], a1, n]/4 - 
    (S2[a1, n]*S2[a1, a1, a2, a1, a1, n])/6 - 
    S2[a1, a1, a2, a1, SP[a1, a1], n]/6 - S2[a1, a1, a2, SP[a1, a1], a1, n]/
     6 + S2[a1, a1, SP[a1, a1], a2, a1, n]/4 - 
    S2[a1, a1, SP[a1, a2], a1, a1, n]/6 + 
    (S2[a1, n]*S2[a1, a2, a1, a1, a1, n])/4 + 
    S2[a1, a2, a1, a1, SP[a1, a1], n]/4 + S2[a1, a2, a1, SP[a1, a1], a1, n]/
     4 + S2[a1, a2, SP[a1, a1], a1, a1, n]/4 + 
    S2[a1, SP[a1, a1], a1, a2, a1, n]/4 - S2[a1, SP[a1, a1], a2, a1, a1, n]/
     6 + S2[a1, SP[a1, a2], a1, a1, a1, n]/4 - 
    S2[a1, n]*S2[a2, a1, a1, a1, a1, n] - S2[a2, a1, a1, a1, SP[a1, a1], n] - 
    S2[a2, a1, a1, SP[a1, a1], a1, n] - S2[a2, a1, SP[a1, a1], a1, a1, n] - 
    S2[a2, SP[a1, a1], a1, a1, a1, n] + S2[SP[a1, a1], a1, a1, a2, a1, n]/4 - 
    S2[SP[a1, a1], a1, a2, a1, a1, n]/6 + S2[SP[a1, a1], a2, a1, a1, a1, n]/
     4 - S2[SP[a1, a2], a1, a1, a1, a1, n] + 
    5*S2[a2, a1, a1, a1, a1, a1, n] /; a1 != a2, 
 S2[a1_, a1_, a1_, a2_, a1_, a1_, n_] :> 
  (S2[a1, n]*S2[a1, a1, a2, a1, a1, n])/3 + S2[a1, a1, a2, a1, SP[a1, a1], n]/
     3 + S2[a1, a1, a2, SP[a1, a1], a1, n]/3 + 
    S2[a1, a1, SP[a1, a2], a1, a1, n]/3 - 
    (S2[a1, n]*S2[a1, a2, a1, a1, a1, n])/2 - 
    S2[a1, a2, a1, a1, SP[a1, a1], n]/2 - S2[a1, a2, a1, SP[a1, a1], a1, n]/
     2 - S2[a1, a2, SP[a1, a1], a1, a1, n]/2 + 
    S2[a1, SP[a1, a1], a2, a1, a1, n]/3 - S2[a1, SP[a1, a2], a1, a1, a1, n]/
     2 + 2*S2[a1, n]*S2[a2, a1, a1, a1, a1, n] + 
    2*S2[a2, a1, a1, a1, SP[a1, a1], n] + 
    2*S2[a2, a1, a1, SP[a1, a1], a1, n] + 
    2*S2[a2, a1, SP[a1, a1], a1, a1, n] + 
    2*S2[a2, SP[a1, a1], a1, a1, a1, n] + S2[SP[a1, a1], a1, a2, a1, a1, n]/
     3 - S2[SP[a1, a1], a2, a1, a1, a1, n]/2 + 
    2*S2[SP[a1, a2], a1, a1, a1, a1, n] - 10*S2[a2, a1, a1, a1, a1, a1, n] /; 
   a1 != a2, S2[a1_, a1_, a2_, a1_, a1_, a1_, n_] :> 
  (S2[a1, n]*S2[a1, a2, a1, a1, a1, n])/2 + S2[a1, a2, a1, a1, SP[a1, a1], n]/
     2 + S2[a1, a2, a1, SP[a1, a1], a1, n]/2 + 
    S2[a1, a2, SP[a1, a1], a1, a1, n]/2 + S2[a1, SP[a1, a2], a1, a1, a1, n]/
     2 - 2*S2[a1, n]*S2[a2, a1, a1, a1, a1, n] - 
    2*S2[a2, a1, a1, a1, SP[a1, a1], n] - 
    2*S2[a2, a1, a1, SP[a1, a1], a1, n] - 
    2*S2[a2, a1, SP[a1, a1], a1, a1, n] - 
    2*S2[a2, SP[a1, a1], a1, a1, a1, n] + S2[SP[a1, a1], a2, a1, a1, a1, n]/
     2 - 2*S2[SP[a1, a2], a1, a1, a1, a1, n] + 
    10*S2[a2, a1, a1, a1, a1, a1, n] /; a1 != a2, 
 S2[a1_, a2_, a1_, a1_, a1_, a1_, n_] :> 
  S2[a1, n]*S2[a2, a1, a1, a1, a1, n] + S2[a2, a1, a1, a1, SP[a1, a1], n] + 
    S2[a2, a1, a1, SP[a1, a1], a1, n] + S2[a2, a1, SP[a1, a1], a1, a1, n] + 
    S2[a2, SP[a1, a1], a1, a1, a1, n] + S2[SP[a1, a2], a1, a1, a1, a1, n] - 
    5*S2[a2, a1, a1, a1, a1, a1, n] /; a1 != a2, 
 S2[a1_, a1_, a1_, a1_, a1_, a1_, n_] :> 
  (1*(S2[a1, n]^6 + 15*S2[SP[a1, a1], n]*S2[a1, n]^4 + 
      40*S2[SP[a1, a1, a1], n]*S2[a1, n]^3 + 90*S2[SP[a1, a1, a1, a1], n]*
       S2[a1, n]^2 + 144*S2[SP[a1, a1, a1, a1, a1], n]*S2[a1, n] + 
      45*S2[SP[a1, a1], n]^2*S2[a1, n]^2 + 120*S2[SP[a1, a1, a1], n]*
       S2[SP[a1, a1], n]*S2[a1, n] + 15*S2[SP[a1, a1], n]^3 + 
      90*S2[SP[a1, a1, a1, a1], n]*S2[SP[a1, a1], n] + 
      40*S2[SP[a1, a1, a1], n]^2 + 120*S2[SP[a1, a1, a1, a1, a1, a1], n]))/
    720 /; True, S2[a1_, a1_, a1_, a1_, a1_, n_] :> 
  (S2[a1, n]^5 + 10*S2[SP[a1, a1], n]*S2[a1, n]^3 + 
      20*S2[SP[a1, a1, a1], n]*S2[a1, n]^2 + 30*S2[SP[a1, a1, a1, a1], n]*
       S2[a1, n] + 15*S2[SP[a1, a1], n]^2*S2[a1, n] + 
      +20*S2[SP[a1, a1, a1], n]*S2[SP[a1, a1], n] + 
      24*S2[SP[a1, a1, a1, a1, a1], n])/120 /; True,S2[a1_, a2_, a3_, a4_, a5_, n_] :> 
  S2[a4, a5, n]*S2[a1, a2, a3, n] - S2[a1, SP[a2, a4], SP[a3, a5], n] + 
    S2[a1, a2, n]*S2[a3, a4, a5, n] - S2[a3, SP[a1, a4], SP[a2, a5], n] - 
    S2[SP[a1, a3], a4, SP[a2, a5], n] - S2[SP[a1, a3], SP[a2, a4], a5, n] - 
    S2[SP[a1, a4], a2, SP[a3, a5], n] - S2[SP[a1, a4], SP[a2, a5], a3, n] + 
    S2[a5, n]*S2[a1, a2, a3, a4, n] - S2[a4, n]*S2[a1, a2, a3, a5, n] + 
    S2[a5, n]*S2[a1, a2, a4, a3, n] - S2[a3, n]*S2[a1, a2, a4, a5, n] + 
    S2[a1, a2, a4, SP[a3, a5], n] - S2[a4, n]*S2[a1, a2, a5, a3, n] - 
    S2[a1, a2, a5, SP[a3, a4], n] - S2[a1, a2, SP[a3, a4], a5, n] + 
    S2[a1, a2, SP[a3, a5], a4, n] + S2[a1, a3, a4, SP[a2, a5], n] + 
    S2[a1, a3, SP[a2, a4], a5, n] + S2[a5, n]*S2[a1, a4, a2, a3, n] - 
    S2[a3, n]*S2[a1, a4, a2, a5, n] + S2[a1, a4, a2, SP[a3, a5], n] + 
    S2[a5, n]*S2[a1, a4, a3, a2, n] + S2[a1, a4, a3, SP[a2, a5], n] - 
    S2[a3, n]*S2[a1, a4, a5, a2, n] - S2[a1, a4, a5, SP[a2, a3], n] - 
    S2[a1, a4, SP[a2, a3], a5, n] + 2*S2[a1, a4, SP[a2, a5], a3, n] - 
    S2[a4, n]*S2[a1, a5, a2, a3, n] - S2[a1, a5, a2, SP[a3, a4], n] - 
    S2[a1, a5, SP[a2, a4], a3, n] + S2[a1, SP[a2, a5], a3, a4, n] + 
    S2[a1, SP[a2, a5], a4, a3, n] - S2[a1, SP[a3, a4], a2, a5, n] - 
    S2[a1, SP[a3, a4], a5, a2, n] + S2[a1, SP[a4, a5], a3, a2, n] + 
    S2[a3, a1, a4, SP[a2, a5], n] + S2[a3, a1, SP[a2, a4], a5, n] - 
    S2[a5, n]*S2[a3, a4, a1, a2, n] + S2[a3, SP[a1, a4], a2, a5, n] + 
    S2[a3, SP[a1, a4], a5, a2, n] - S2[a3, SP[a4, a5], a1, a2, n] + 
    S2[a4, a1, a2, SP[a3, a5], n] + S2[a4, a1, SP[a2, a5], a3, n] + 
    S2[a4, SP[a1, a5], a2, a3, n] - S2[a4, n]*S2[a5, a1, a2, a3, n] - 
    S2[a5, a1, a2, SP[a3, a4], n] - S2[a5, a1, SP[a2, a4], a3, n] + 
    S2[a3, n]*S2[a5, a4, a1, a2, n] + S2[a5, a4, a1, SP[a2, a3], n] - 
    S2[a1, n]*S2[a5, a4, a3, a2, n] - S2[a5, a4, a3, SP[a1, a2], n] - 
    S2[a5, SP[a1, a4], a2, a3, n] - S2[a5, SP[a1, a4], a3, a2, n] + 
    S2[a5, SP[a3, a4], a1, a2, n] + S2[SP[a1, a5], a2, a3, a4, n] + 
    S2[SP[a1, a5], a2, a4, a3, n] + S2[SP[a1, a5], a4, a2, a3, n] - 
    S2[SP[a4, a5], a1, a2, a3, n] + S2[a5, a4, a3, a2, a1, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5}}, {a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a1_, a2_, a3_, a5_, a4_, n_] :> 
  -(S2[a4, a5, n]*S2[a1, a2, a3, n]) + S2[a1, SP[a2, a4], SP[a3, a5], n] + 
    S2[a1, a2, n]*S2[a3, a5, a4, n] - S2[a3, SP[a1, a5], SP[a2, a4], n] - 
    S2[SP[a1, a3], a5, SP[a2, a4], n] - S2[SP[a1, a3], SP[a2, a5], a4, n] + 
    S2[SP[a1, a4], a2, SP[a3, a5], n] + S2[SP[a1, a4], SP[a2, a5], a3, n] + 
    S2[a4, n]*S2[a1, a2, a3, a5, n] + S2[a1, a2, a3, SP[a4, a5], n] - 
    S2[a1, a2, a4, SP[a3, a5], n] + S2[a4, n]*S2[a1, a2, a5, a3, n] - 
    S2[a3, n]*S2[a1, a2, a5, a4, n] - S2[a1, a2, SP[a3, a5], a4, n] + 
    S2[a1, a2, SP[a4, a5], a3, n] + S2[a1, a3, a5, SP[a2, a4], n] + 
    S2[a1, a3, SP[a2, a5], a4, n] - S2[a1, a4, a2, SP[a3, a5], n] - 
    S2[a1, a4, SP[a2, a5], a3, n] + S2[a4, n]*S2[a1, a5, a2, a3, n] - 
    S2[a3, n]*S2[a1, a5, a2, a4, n] - S2[a3, n]*S2[a1, a5, a4, a2, n] - 
    S2[a1, a5, a4, SP[a2, a3], n] - S2[a1, a5, SP[a2, a3], a4, n] + 
    S2[a1, a5, SP[a2, a4], a3, n] - S2[a1, a5, SP[a3, a4], a2, n] - 
    S2[a1, SP[a3, a5], a2, a4, n] - S2[a1, SP[a3, a5], a4, a2, n] + 
    S2[a1, SP[a4, a5], a2, a3, n] + S2[a3, a1, a5, SP[a2, a4], n] + 
    S2[a3, a1, SP[a2, a5], a4, n] + S2[a3, a5, a1, SP[a2, a4], n] + 
    S2[a3, a5, SP[a1, a4], a2, n] + S2[a3, SP[a1, a5], a2, a4, n] + 
    S2[a3, SP[a1, a5], a4, a2, n] - S2[a4, a1, a2, SP[a3, a5], n] - 
    S2[a4, a1, SP[a2, a5], a3, n] - S2[a4, SP[a1, a5], a2, a3, n] + 
    S2[a4, n]*S2[a5, a1, a2, a3, n] - S2[a3, n]*S2[a5, a1, a2, a4, n] - 
    S2[a3, n]*S2[a5, a1, a4, a2, n] - S2[a5, a1, a4, SP[a2, a3], n] - 
    S2[a5, a1, SP[a2, a3], a4, n] + S2[a5, a1, SP[a2, a4], a3, n] - 
    S2[a5, a1, SP[a3, a4], a2, n] + S2[a1, n]*S2[a5, a3, a2, a4, n] + 
    S2[a5, a3, a2, SP[a1, a4], n] + S2[a1, n]*S2[a5, a3, a4, a2, n] + 
    S2[a5, a3, a4, SP[a1, a2], n] + S2[a5, a3, SP[a1, a2], a4, n] + 
    S2[a5, a3, SP[a1, a4], a2, n] - S2[a3, n]*S2[a5, a4, a1, a2, n] - 
    S2[a5, a4, a1, SP[a2, a3], n] + S2[a1, n]*S2[a5, a4, a3, a2, n] + 
    S2[a5, a4, a3, SP[a1, a2], n] + S2[a5, SP[a1, a4], a2, a3, n] + 
    S2[a5, SP[a1, a4], a3, a2, n] - S2[a5, SP[a3, a4], a1, a2, n] + 
    S2[SP[a1, a5], a3, a2, a4, n] + S2[SP[a1, a5], a3, a4, a2, n] + 
    S2[SP[a1, a5], a4, a3, a2, n] - S2[SP[a3, a5], a1, a2, a4, n] - 
    S2[SP[a3, a5], a1, a4, a2, n] - S2[SP[a3, a5], a4, a1, a2, n] + 
    S2[SP[a4, a5], a1, a2, a3, n] - S2[a5, a3, a2, a1, a4, n] - 
    S2[a5, a3, a2, a4, a1, n] - S2[a5, a3, a4, a2, a1, n] - 
    S2[a5, a4, a3, a2, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5}}, 
     {a1, a2, a3, a4, a5}] && a1 != a2 != a3 != a4 != a5, 
 S2[a1_, a2_, a4_, a3_, a5_, n_] :> 
  S2[a3, a5, n]*S2[a1, a2, a4, n] - S2[a1, SP[a2, a3], SP[a4, a5], n] - 
    S2[a1, a2, n]*S2[a3, a4, a5, n] - S2[a1, a2, n]*S2[a3, a5, a4, n] + 
    S2[a3, SP[a1, a4], SP[a2, a5], n] + S2[a3, SP[a1, a5], SP[a2, a4], n] - 
    S2[SP[a1, a3], a2, SP[a4, a5], n] + S2[SP[a1, a3], a4, SP[a2, a5], n] + 
    S2[SP[a1, a3], a5, SP[a2, a4], n] + S2[SP[a1, a3], SP[a2, a4], a5, n] + 
    S2[a1, a2, a3, SP[a4, a5], n] + S2[a1, a2, SP[a3, a4], a5, n] + 
    S2[a1, a3, a2, SP[a4, a5], n] - S2[a1, a3, a4, SP[a2, a5], n] - 
    S2[a1, a3, a5, SP[a2, a4], n] - S2[a1, a3, SP[a2, a4], a5, n] - 
    S2[a5, n]*S2[a1, a4, a2, a3, n] + S2[a3, n]*S2[a1, a4, a2, a5, n] - 
    S2[a5, n]*S2[a1, a4, a3, a2, n] - S2[a1, a4, a3, SP[a2, a5], n] + 
    S2[a3, n]*S2[a1, a4, a5, a2, n] + S2[a1, a4, a5, SP[a2, a3], n] + 
    S2[a1, a4, SP[a2, a3], a5, n] - S2[a1, a4, SP[a2, a5], a3, n] + 
    S2[a3, n]*S2[a1, a5, a4, a2, n] + S2[a1, a5, a4, SP[a2, a3], n] + 
    S2[a1, a5, SP[a3, a4], a2, n] + S2[a1, SP[a3, a4], a2, a5, n] + 
    S2[a1, SP[a3, a4], a5, a2, n] + S2[a1, SP[a3, a5], a4, a2, n] - 
    S2[a1, SP[a4, a5], a2, a3, n] - S2[a1, SP[a4, a5], a3, a2, n] + 
    S2[a3, a1, a2, SP[a4, a5], n] - S2[a3, a1, a4, SP[a2, a5], n] - 
    S2[a3, a1, a5, SP[a2, a4], n] - S2[a3, a1, SP[a2, a4], a5, n] + 
    S2[a5, n]*S2[a3, a4, a1, a2, n] - S2[a3, a5, a1, SP[a2, a4], n] - 
    S2[a3, a5, SP[a1, a4], a2, n] - S2[a3, SP[a1, a4], a2, a5, n] - 
    S2[a3, SP[a1, a4], a5, a2, n] - S2[a3, SP[a1, a5], a4, a2, n] + 
    S2[a3, SP[a4, a5], a1, a2, n] + S2[a3, n]*S2[a5, a1, a4, a2, n] + 
    S2[a5, a1, a4, SP[a2, a3], n] + S2[a5, a1, SP[a3, a4], a2, n] - 
    S2[a1, n]*S2[a5, a3, a4, a2, n] - S2[a5, a3, a4, SP[a1, a2], n] - 
    S2[a5, a3, SP[a1, a4], a2, n] - S2[SP[a1, a5], a3, a4, a2, n] - 
    S2[SP[a1, a5], a4, a2, a3, n] - S2[SP[a1, a5], a4, a3, a2, n] + 
    S2[SP[a3, a5], a1, a4, a2, n] + S2[SP[a3, a5], a4, a1, a2, n] + 
    S2[a5, a3, a4, a2, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5}}, 
     {a1, a2, a3, a4, a5}] && a1 != a2 != a3 != a4 != a5, 
 S2[a1_, a2_, a4_, a5_, a3_, n_] :> 
  -(S2[a3, a5, n]*S2[a1, a2, a4, n]) + S2[a1, SP[a2, a3], SP[a4, a5], n] + 
    S2[a1, a2, n]*S2[a3, a5, a4, n] - S2[a3, SP[a1, a5], SP[a2, a4], n] + 
    S2[SP[a1, a3], a2, SP[a4, a5], n] - S2[SP[a1, a3], a5, SP[a2, a4], n] - 
    S2[a1, a2, a3, SP[a4, a5], n] + S2[a3, n]*S2[a1, a2, a4, a5, n] + 
    S2[a1, a2, a4, SP[a3, a5], n] - S2[a1, a3, a2, SP[a4, a5], n] + 
    S2[a1, a3, a5, SP[a2, a4], n] - S2[a3, n]*S2[a1, a5, a4, a2, n] - 
    S2[a1, a5, a4, SP[a2, a3], n] - S2[a1, a5, SP[a3, a4], a2, n] - 
    S2[a1, SP[a3, a5], a4, a2, n] - S2[a3, a1, a2, SP[a4, a5], n] + 
    S2[a3, a1, a5, SP[a2, a4], n] + S2[a3, a5, a1, SP[a2, a4], n] + 
    S2[a3, a5, SP[a1, a4], a2, n] + S2[a3, SP[a1, a5], a4, a2, n] - 
    S2[a3, n]*S2[a5, a1, a4, a2, n] - S2[a5, a1, a4, SP[a2, a3], n] - 
    S2[a5, a1, SP[a3, a4], a2, n] + S2[a1, n]*S2[a5, a3, a4, a2, n] + 
    S2[a5, a3, a4, SP[a1, a2], n] + S2[a5, a3, SP[a1, a4], a2, n] - 
    S2[a3, n]*S2[a5, a4, a1, a2, n] - S2[a5, a4, a1, SP[a2, a3], n] + 
    S2[a1, n]*S2[a5, a4, a2, a3, n] + S2[a5, a4, a2, SP[a1, a3], n] + 
    S2[a1, n]*S2[a5, a4, a3, a2, n] + S2[a5, a4, a3, SP[a1, a2], n] + 
    S2[a5, a4, SP[a1, a2], a3, n] + S2[a5, SP[a1, a4], a2, a3, n] + 
    S2[a5, SP[a1, a4], a3, a2, n] - S2[a5, SP[a3, a4], a1, a2, n] + 
    S2[SP[a1, a5], a3, a4, a2, n] + S2[SP[a1, a5], a4, a2, a3, n] + 
    S2[SP[a1, a5], a4, a3, a2, n] - S2[SP[a3, a5], a1, a4, a2, n] - 
    S2[SP[a3, a5], a4, a1, a2, n] - S2[a5, a3, a4, a2, a1, n] - 
    S2[a5, a4, a2, a1, a3, n] - S2[a5, a4, a2, a3, a1, n] - 
    S2[a5, a4, a3, a2, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5}}, 
     {a1, a2, a3, a4, a5}] && a1 != a2 != a3 != a4 != a5, 
 S2[a1_, a2_, a5_, a3_, a4_, n_] :> 
  -(S2[a1, a2, n]*S2[a3, a4, a5, n]) - S2[a1, a2, n]*S2[a3, a5, a4, n] + 
    S2[a3, SP[a1, a4], SP[a2, a5], n] + S2[a3, SP[a1, a5], SP[a2, a4], n] + 
    S2[SP[a1, a3], a4, SP[a2, a5], n] + S2[SP[a1, a3], a5, SP[a2, a4], n] + 
    S2[SP[a1, a3], SP[a2, a4], a5, n] + S2[SP[a1, a3], SP[a2, a5], a4, n] - 
    S2[a5, n]*S2[a1, a2, a4, a3, n] + S2[a3, n]*S2[a1, a2, a4, a5, n] + 
    S2[a3, n]*S2[a1, a2, a5, a4, n] + S2[a1, a2, a5, SP[a3, a4], n] + 
    S2[a1, a2, SP[a3, a4], a5, n] + S2[a1, a2, SP[a3, a5], a4, n] - 
    S2[a1, a2, SP[a4, a5], a3, n] - S2[a1, a3, a4, SP[a2, a5], n] - 
    S2[a1, a3, a5, SP[a2, a4], n] - S2[a1, a3, SP[a2, a4], a5, n] - 
    S2[a1, a3, SP[a2, a5], a4, n] - S2[a5, n]*S2[a1, a4, a2, a3, n] + 
    S2[a3, n]*S2[a1, a4, a2, a5, n] - S2[a5, n]*S2[a1, a4, a3, a2, n] - 
    S2[a1, a4, a3, SP[a2, a5], n] + S2[a3, n]*S2[a1, a4, a5, a2, n] + 
    S2[a1, a4, a5, SP[a2, a3], n] + S2[a1, a4, SP[a2, a3], a5, n] - 
    S2[a1, a4, SP[a2, a5], a3, n] + S2[a3, n]*S2[a1, a5, a2, a4, n] + 
    S2[a1, a5, a2, SP[a3, a4], n] + S2[a3, n]*S2[a1, a5, a4, a2, n] + 
    S2[a1, a5, a4, SP[a2, a3], n] + S2[a1, a5, SP[a2, a3], a4, n] + 
    S2[a1, a5, SP[a3, a4], a2, n] - S2[a1, SP[a2, a5], a4, a3, n] + 
    S2[a1, SP[a3, a4], a2, a5, n] + S2[a1, SP[a3, a4], a5, a2, n] + 
    S2[a1, SP[a3, a5], a2, a4, n] + S2[a1, SP[a3, a5], a4, a2, n] - 
    S2[a1, SP[a4, a5], a2, a3, n] - S2[a1, SP[a4, a5], a3, a2, n] - 
    S2[a3, a1, a4, SP[a2, a5], n] - S2[a3, a1, a5, SP[a2, a4], n] - 
    S2[a3, a1, SP[a2, a4], a5, n] - S2[a3, a1, SP[a2, a5], a4, n] + 
    S2[a5, n]*S2[a3, a4, a1, a2, n] - S2[a3, a5, a1, SP[a2, a4], n] - 
    S2[a3, a5, SP[a1, a4], a2, n] - S2[a3, SP[a1, a4], a2, a5, n] - 
    S2[a3, SP[a1, a4], a5, a2, n] - S2[a3, SP[a1, a5], a2, a4, n] - 
    S2[a3, SP[a1, a5], a4, a2, n] + S2[a3, SP[a4, a5], a1, a2, n] + 
    S2[a3, n]*S2[a5, a1, a2, a4, n] + S2[a5, a1, a2, SP[a3, a4], n] + 
    S2[a3, n]*S2[a5, a1, a4, a2, n] + S2[a5, a1, a4, SP[a2, a3], n] + 
    S2[a5, a1, SP[a2, a3], a4, n] + S2[a5, a1, SP[a3, a4], a2, n] - 
    S2[a1, n]*S2[a5, a2, a3, a4, n] - S2[a5, a2, a3, SP[a1, a4], n] - 
    S2[a5, a2, SP[a1, a3], a4, n] - S2[a1, n]*S2[a5, a3, a2, a4, n] - 
    S2[a5, a3, a2, SP[a1, a4], n] - S2[a1, n]*S2[a5, a3, a4, a2, n] - 
    S2[a5, a3, a4, SP[a1, a2], n] - S2[a5, a3, SP[a1, a2], a4, n] - 
    S2[a5, a3, SP[a1, a4], a2, n] - S2[a5, SP[a1, a2], a3, a4, n] - 
    S2[SP[a1, a5], a2, a3, a4, n] - S2[SP[a1, a5], a2, a4, a3, n] - 
    S2[SP[a1, a5], a3, a2, a4, n] - S2[SP[a1, a5], a3, a4, a2, n] - 
    S2[SP[a1, a5], a4, a2, a3, n] - S2[SP[a1, a5], a4, a3, a2, n] + 
    S2[SP[a3, a5], a1, a2, a4, n] + S2[SP[a3, a5], a1, a4, a2, n] + 
    S2[SP[a3, a5], a4, a1, a2, n] + S2[a5, a2, a1, a3, a4, n] + 
    S2[a5, a2, a3, a1, a4, n] + S2[a5, a2, a3, a4, a1, n] + 
    S2[a5, a3, a2, a1, a4, n] + S2[a5, a3, a2, a4, a1, n] + 
    S2[a5, a3, a4, a2, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5}}, 
     {a1, a2, a3, a4, a5}] && a1 != a2 != a3 != a4 != a5, 
 S2[a1_, a2_, a5_, a4_, a3_, n_] :> 
  S2[a1, a2, n]*S2[a3, a4, a5, n] - S2[a3, SP[a1, a4], SP[a2, a5], n] - 
    S2[SP[a1, a3], a4, SP[a2, a5], n] - S2[SP[a1, a3], SP[a2, a4], a5, n] + 
    S2[a5, n]*S2[a1, a2, a4, a3, n] - S2[a3, n]*S2[a1, a2, a4, a5, n] - 
    S2[a1, a2, SP[a3, a4], a5, n] + S2[a1, a2, SP[a4, a5], a3, n] + 
    S2[a1, a3, a4, SP[a2, a5], n] + S2[a1, a3, SP[a2, a4], a5, n] + 
    S2[a5, n]*S2[a1, a4, a2, a3, n] - S2[a3, n]*S2[a1, a4, a2, a5, n] + 
    S2[a5, n]*S2[a1, a4, a3, a2, n] + S2[a1, a4, a3, SP[a2, a5], n] - 
    S2[a3, n]*S2[a1, a4, a5, a2, n] - S2[a1, a4, a5, SP[a2, a3], n] - 
    S2[a1, a4, SP[a2, a3], a5, n] + S2[a1, a4, SP[a2, a5], a3, n] + 
    S2[a1, SP[a2, a5], a4, a3, n] - S2[a1, SP[a3, a4], a2, a5, n] - 
    S2[a1, SP[a3, a4], a5, a2, n] + S2[a1, SP[a4, a5], a2, a3, n] + 
    S2[a1, SP[a4, a5], a3, a2, n] + S2[a3, a1, a4, SP[a2, a5], n] + 
    S2[a3, a1, SP[a2, a4], a5, n] - S2[a5, n]*S2[a3, a4, a1, a2, n] + 
    S2[a3, SP[a1, a4], a2, a5, n] + S2[a3, SP[a1, a4], a5, a2, n] - 
    S2[a3, SP[a4, a5], a1, a2, n] - S2[a1, n]*S2[a5, a2, a4, a3, n] - 
    S2[a5, a2, a4, SP[a1, a3], n] - S2[a5, a2, SP[a1, a4], a3, n] + 
    S2[a3, n]*S2[a5, a4, a1, a2, n] + S2[a5, a4, a1, SP[a2, a3], n] - 
    S2[a1, n]*S2[a5, a4, a2, a3, n] - S2[a5, a4, a2, SP[a1, a3], n] - 
    S2[a1, n]*S2[a5, a4, a3, a2, n] - S2[a5, a4, a3, SP[a1, a2], n] - 
    S2[a5, a4, SP[a1, a2], a3, n] - S2[a5, SP[a1, a2], a4, a3, n] - 
    S2[a5, SP[a1, a4], a2, a3, n] - S2[a5, SP[a1, a4], a3, a2, n] + 
    S2[a5, SP[a3, a4], a1, a2, n] + S2[a5, a2, a1, a4, a3, n] + 
    S2[a5, a2, a4, a1, a3, n] + S2[a5, a2, a4, a3, a1, n] + 
    S2[a5, a4, a2, a1, a3, n] + S2[a5, a4, a2, a3, a1, n] + 
    S2[a5, a4, a3, a2, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5}}, 
     {a1, a2, a3, a4, a5}] && a1 != a2 != a3 != a4 != a5, 
 S2[a1_, a3_, a2_, a4_, a5_, n_] :> 
  S2[a4, a5, n]*S2[a1, a3, a2, n] - S2[a1, SP[a3, a4], SP[a2, a5], n] + 
    S2[a1, a3, n]*S2[a2, a4, a5, n] - S2[a2, SP[a1, a4], SP[a3, a5], n] - 
    S2[SP[a1, a2], a4, SP[a3, a5], n] - S2[SP[a1, a2], SP[a3, a4], a5, n] - 
    S2[SP[a1, a4], a3, SP[a2, a5], n] - S2[SP[a1, a4], SP[a3, a5], a2, n] + 
    S2[a1, a2, a4, SP[a3, a5], n] + S2[a1, a2, SP[a3, a4], a5, n] + 
    S2[a5, n]*S2[a1, a3, a2, a4, n] - S2[a4, n]*S2[a1, a3, a2, a5, n] + 
    S2[a5, n]*S2[a1, a3, a4, a2, n] - S2[a2, n]*S2[a1, a3, a4, a5, n] + 
    S2[a1, a3, a4, SP[a2, a5], n] - S2[a4, n]*S2[a1, a3, a5, a2, n] - 
    S2[a1, a3, a5, SP[a2, a4], n] - S2[a1, a3, SP[a2, a4], a5, n] + 
    S2[a1, a3, SP[a2, a5], a4, n] + S2[a5, n]*S2[a1, a4, a2, a3, n] + 
    S2[a1, a4, a2, SP[a3, a5], n] + S2[a5, n]*S2[a1, a4, a3, a2, n] - 
    S2[a2, n]*S2[a1, a4, a3, a5, n] + S2[a1, a4, a3, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a4, a5, a3, n] - S2[a1, a4, a5, SP[a2, a3], n] - 
    S2[a1, a4, SP[a2, a3], a5, n] + 2*S2[a1, a4, SP[a3, a5], a2, n] - 
    S2[a4, n]*S2[a1, a5, a3, a2, n] - S2[a1, a5, a3, SP[a2, a4], n] - 
    S2[a1, a5, SP[a3, a4], a2, n] - S2[a1, SP[a2, a4], a3, a5, n] - 
    S2[a1, SP[a2, a4], a5, a3, n] + S2[a1, SP[a3, a5], a2, a4, n] + 
    S2[a1, SP[a3, a5], a4, a2, n] + S2[a1, SP[a4, a5], a2, a3, n] + 
    S2[a2, a1, a4, SP[a3, a5], n] + S2[a2, a1, SP[a3, a4], a5, n] - 
    S2[a5, n]*S2[a2, a4, a1, a3, n] + S2[a2, SP[a1, a4], a3, a5, n] + 
    S2[a2, SP[a1, a4], a5, a3, n] - S2[a2, SP[a4, a5], a1, a3, n] + 
    S2[a4, a1, a3, SP[a2, a5], n] + S2[a4, a1, SP[a3, a5], a2, n] + 
    S2[a4, SP[a1, a5], a3, a2, n] - S2[a4, n]*S2[a5, a1, a3, a2, n] - 
    S2[a5, a1, a3, SP[a2, a4], n] - S2[a5, a1, SP[a3, a4], a2, n] + 
    S2[a2, n]*S2[a5, a4, a1, a3, n] + S2[a5, a4, a1, SP[a2, a3], n] - 
    S2[a1, n]*S2[a5, a4, a2, a3, n] - S2[a5, a4, a2, SP[a1, a3], n] - 
    S2[a5, SP[a1, a4], a2, a3, n] - S2[a5, SP[a1, a4], a3, a2, n] + 
    S2[a5, SP[a2, a4], a1, a3, n] + S2[SP[a1, a5], a3, a2, a4, n] + 
    S2[SP[a1, a5], a3, a4, a2, n] + S2[SP[a1, a5], a4, a3, a2, n] - 
    S2[SP[a4, a5], a1, a3, a2, n] + S2[a5, a4, a2, a3, a1, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5}}, {a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a1_, a3_, a2_, a5_, a4_, n_] :> 
  -(S2[a4, a5, n]*S2[a1, a3, a2, n]) + S2[a1, SP[a3, a4], SP[a2, a5], n] + 
    S2[a1, a3, n]*S2[a2, a5, a4, n] - S2[a2, SP[a1, a5], SP[a3, a4], n] - 
    S2[SP[a1, a2], a5, SP[a3, a4], n] - S2[SP[a1, a2], SP[a3, a5], a4, n] + 
    S2[SP[a1, a4], a3, SP[a2, a5], n] + S2[SP[a1, a4], SP[a3, a5], a2, n] + 
    S2[a1, a2, a5, SP[a3, a4], n] + S2[a1, a2, SP[a3, a5], a4, n] + 
    S2[a4, n]*S2[a1, a3, a2, a5, n] + S2[a1, a3, a2, SP[a4, a5], n] - 
    S2[a1, a3, a4, SP[a2, a5], n] + S2[a4, n]*S2[a1, a3, a5, a2, n] - 
    S2[a2, n]*S2[a1, a3, a5, a4, n] - S2[a1, a3, SP[a2, a5], a4, n] + 
    S2[a1, a3, SP[a4, a5], a2, n] - S2[a1, a4, a3, SP[a2, a5], n] - 
    S2[a1, a4, SP[a3, a5], a2, n] + S2[a4, n]*S2[a1, a5, a3, a2, n] - 
    S2[a2, n]*S2[a1, a5, a3, a4, n] - S2[a2, n]*S2[a1, a5, a4, a3, n] - 
    S2[a1, a5, a4, SP[a2, a3], n] - S2[a1, a5, SP[a2, a3], a4, n] - 
    S2[a1, a5, SP[a2, a4], a3, n] + S2[a1, a5, SP[a3, a4], a2, n] - 
    S2[a1, SP[a2, a5], a3, a4, n] - S2[a1, SP[a2, a5], a4, a3, n] + 
    S2[a1, SP[a4, a5], a3, a2, n] + S2[a2, a1, a5, SP[a3, a4], n] + 
    S2[a2, a1, SP[a3, a5], a4, n] + S2[a2, a5, a1, SP[a3, a4], n] + 
    S2[a2, a5, SP[a1, a4], a3, n] + S2[a2, SP[a1, a5], a3, a4, n] + 
    S2[a2, SP[a1, a5], a4, a3, n] - S2[a4, a1, a3, SP[a2, a5], n] - 
    S2[a4, a1, SP[a3, a5], a2, n] - S2[a4, SP[a1, a5], a3, a2, n] + 
    S2[a4, n]*S2[a5, a1, a3, a2, n] - S2[a2, n]*S2[a5, a1, a3, a4, n] - 
    S2[a2, n]*S2[a5, a1, a4, a3, n] - S2[a5, a1, a4, SP[a2, a3], n] - 
    S2[a5, a1, SP[a2, a3], a4, n] - S2[a5, a1, SP[a2, a4], a3, n] + 
    S2[a5, a1, SP[a3, a4], a2, n] + S2[a1, n]*S2[a5, a2, a3, a4, n] + 
    S2[a5, a2, a3, SP[a1, a4], n] + S2[a1, n]*S2[a5, a2, a4, a3, n] + 
    S2[a5, a2, a4, SP[a1, a3], n] + S2[a5, a2, SP[a1, a3], a4, n] + 
    S2[a5, a2, SP[a1, a4], a3, n] - S2[a2, n]*S2[a5, a4, a1, a3, n] - 
    S2[a5, a4, a1, SP[a2, a3], n] + S2[a1, n]*S2[a5, a4, a2, a3, n] + 
    S2[a5, a4, a2, SP[a1, a3], n] + S2[a5, SP[a1, a4], a2, a3, n] + 
    S2[a5, SP[a1, a4], a3, a2, n] - S2[a5, SP[a2, a4], a1, a3, n] + 
    S2[SP[a1, a5], a2, a3, a4, n] + S2[SP[a1, a5], a2, a4, a3, n] + 
    S2[SP[a1, a5], a4, a2, a3, n] - S2[SP[a2, a5], a1, a3, a4, n] - 
    S2[SP[a2, a5], a1, a4, a3, n] - S2[SP[a2, a5], a4, a1, a3, n] + 
    S2[SP[a4, a5], a1, a3, a2, n] - S2[a5, a2, a3, a1, a4, n] - 
    S2[a5, a2, a3, a4, a1, n] - S2[a5, a2, a4, a3, a1, n] - 
    S2[a5, a4, a2, a3, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5}}, 
     {a1, a2, a3, a4, a5}] && a1 != a2 != a3 != a4 != a5, 
 S2[a1_, a3_, a4_, a2_, a5_, n_] :> 
  S2[a2, a5, n]*S2[a1, a3, a4, n] - S2[a1, SP[a2, a3], SP[a4, a5], n] - 
    S2[a1, a3, n]*S2[a2, a4, a5, n] - S2[a1, a3, n]*S2[a2, a5, a4, n] + 
    S2[a2, SP[a1, a4], SP[a3, a5], n] + S2[a2, SP[a1, a5], SP[a3, a4], n] - 
    S2[SP[a1, a2], a3, SP[a4, a5], n] + S2[SP[a1, a2], a4, SP[a3, a5], n] + 
    S2[SP[a1, a2], a5, SP[a3, a4], n] + S2[SP[a1, a2], SP[a3, a4], a5, n] + 
    S2[a1, a2, a3, SP[a4, a5], n] - S2[a1, a2, a4, SP[a3, a5], n] - 
    S2[a1, a2, a5, SP[a3, a4], n] - S2[a1, a2, SP[a3, a4], a5, n] + 
    S2[a1, a3, a2, SP[a4, a5], n] + S2[a1, a3, SP[a2, a4], a5, n] - 
    S2[a5, n]*S2[a1, a4, a2, a3, n] - S2[a1, a4, a2, SP[a3, a5], n] - 
    S2[a5, n]*S2[a1, a4, a3, a2, n] + S2[a2, n]*S2[a1, a4, a3, a5, n] + 
    S2[a2, n]*S2[a1, a4, a5, a3, n] + S2[a1, a4, a5, SP[a2, a3], n] + 
    S2[a1, a4, SP[a2, a3], a5, n] - S2[a1, a4, SP[a3, a5], a2, n] + 
    S2[a2, n]*S2[a1, a5, a4, a3, n] + S2[a1, a5, a4, SP[a2, a3], n] + 
    S2[a1, a5, SP[a2, a4], a3, n] + S2[a1, SP[a2, a4], a3, a5, n] + 
    S2[a1, SP[a2, a4], a5, a3, n] + S2[a1, SP[a2, a5], a4, a3, n] - 
    S2[a1, SP[a4, a5], a2, a3, n] - S2[a1, SP[a4, a5], a3, a2, n] + 
    S2[a2, a1, a3, SP[a4, a5], n] - S2[a2, a1, a4, SP[a3, a5], n] - 
    S2[a2, a1, a5, SP[a3, a4], n] - S2[a2, a1, SP[a3, a4], a5, n] + 
    S2[a5, n]*S2[a2, a4, a1, a3, n] - S2[a2, a5, a1, SP[a3, a4], n] - 
    S2[a2, a5, SP[a1, a4], a3, n] - S2[a2, SP[a1, a4], a3, a5, n] - 
    S2[a2, SP[a1, a4], a5, a3, n] - S2[a2, SP[a1, a5], a4, a3, n] + 
    S2[a2, SP[a4, a5], a1, a3, n] + S2[a2, n]*S2[a5, a1, a4, a3, n] + 
    S2[a5, a1, a4, SP[a2, a3], n] + S2[a5, a1, SP[a2, a4], a3, n] - 
    S2[a1, n]*S2[a5, a2, a4, a3, n] - S2[a5, a2, a4, SP[a1, a3], n] - 
    S2[a5, a2, SP[a1, a4], a3, n] - S2[SP[a1, a5], a2, a4, a3, n] - 
    S2[SP[a1, a5], a4, a2, a3, n] - S2[SP[a1, a5], a4, a3, a2, n] + 
    S2[SP[a2, a5], a1, a4, a3, n] + S2[SP[a2, a5], a4, a1, a3, n] + 
    S2[a5, a2, a4, a3, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5}}, 
     {a1, a2, a3, a4, a5}] && a1 != a2 != a3 != a4 != a5, 
 S2[a1_, a3_, a4_, a5_, a2_, n_] :> 
  -(S2[a2, a5, n]*S2[a1, a3, a4, n]) + S2[a1, SP[a2, a3], SP[a4, a5], n] + 
    S2[a1, a3, n]*S2[a2, a5, a4, n] - S2[a2, SP[a1, a5], SP[a3, a4], n] + 
    S2[SP[a1, a2], a3, SP[a4, a5], n] - S2[SP[a1, a2], a5, SP[a3, a4], n] - 
    S2[a1, a2, a3, SP[a4, a5], n] + S2[a1, a2, a5, SP[a3, a4], n] - 
    S2[a1, a3, a2, SP[a4, a5], n] + S2[a2, n]*S2[a1, a3, a4, a5, n] + 
    S2[a1, a3, a4, SP[a2, a5], n] - S2[a2, n]*S2[a1, a5, a4, a3, n] - 
    S2[a1, a5, a4, SP[a2, a3], n] - S2[a1, a5, SP[a2, a4], a3, n] - 
    S2[a1, SP[a2, a5], a4, a3, n] - S2[a2, a1, a3, SP[a4, a5], n] + 
    S2[a2, a1, a5, SP[a3, a4], n] + S2[a2, a5, a1, SP[a3, a4], n] + 
    S2[a2, a5, SP[a1, a4], a3, n] + S2[a2, SP[a1, a5], a4, a3, n] - 
    S2[a2, n]*S2[a5, a1, a4, a3, n] - S2[a5, a1, a4, SP[a2, a3], n] - 
    S2[a5, a1, SP[a2, a4], a3, n] + S2[a1, n]*S2[a5, a2, a4, a3, n] + 
    S2[a5, a2, a4, SP[a1, a3], n] + S2[a5, a2, SP[a1, a4], a3, n] - 
    S2[a2, n]*S2[a5, a4, a1, a3, n] - S2[a5, a4, a1, SP[a2, a3], n] + 
    S2[a1, n]*S2[a5, a4, a2, a3, n] + S2[a5, a4, a2, SP[a1, a3], n] + 
    S2[a1, n]*S2[a5, a4, a3, a2, n] + S2[a5, a4, a3, SP[a1, a2], n] + 
    S2[a5, a4, SP[a1, a3], a2, n] + S2[a5, SP[a1, a4], a2, a3, n] + 
    S2[a5, SP[a1, a4], a3, a2, n] - S2[a5, SP[a2, a4], a1, a3, n] + 
    S2[SP[a1, a5], a2, a4, a3, n] + S2[SP[a1, a5], a4, a2, a3, n] + 
    S2[SP[a1, a5], a4, a3, a2, n] - S2[SP[a2, a5], a1, a4, a3, n] - 
    S2[SP[a2, a5], a4, a1, a3, n] - S2[a5, a2, a4, a3, a1, n] - 
    S2[a5, a4, a2, a3, a1, n] - S2[a5, a4, a3, a1, a2, n] - 
    S2[a5, a4, a3, a2, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5}}, 
     {a1, a2, a3, a4, a5}] && a1 != a2 != a3 != a4 != a5, 
 S2[a1_, a3_, a5_, a2_, a4_, n_] :> 
  -(S2[a1, a3, n]*S2[a2, a4, a5, n]) - S2[a1, a3, n]*S2[a2, a5, a4, n] + 
    S2[a2, SP[a1, a4], SP[a3, a5], n] + S2[a2, SP[a1, a5], SP[a3, a4], n] + 
    S2[SP[a1, a2], a4, SP[a3, a5], n] + S2[SP[a1, a2], a5, SP[a3, a4], n] + 
    S2[SP[a1, a2], SP[a3, a4], a5, n] + S2[SP[a1, a2], SP[a3, a5], a4, n] - 
    S2[a1, a2, a4, SP[a3, a5], n] - S2[a1, a2, a5, SP[a3, a4], n] - 
    S2[a1, a2, SP[a3, a4], a5, n] - S2[a1, a2, SP[a3, a5], a4, n] - 
    S2[a5, n]*S2[a1, a3, a4, a2, n] + S2[a2, n]*S2[a1, a3, a4, a5, n] + 
    S2[a2, n]*S2[a1, a3, a5, a4, n] + S2[a1, a3, a5, SP[a2, a4], n] + 
    S2[a1, a3, SP[a2, a4], a5, n] + S2[a1, a3, SP[a2, a5], a4, n] - 
    S2[a1, a3, SP[a4, a5], a2, n] - S2[a5, n]*S2[a1, a4, a2, a3, n] - 
    S2[a1, a4, a2, SP[a3, a5], n] - S2[a5, n]*S2[a1, a4, a3, a2, n] + 
    S2[a2, n]*S2[a1, a4, a3, a5, n] + S2[a2, n]*S2[a1, a4, a5, a3, n] + 
    S2[a1, a4, a5, SP[a2, a3], n] + S2[a1, a4, SP[a2, a3], a5, n] - 
    S2[a1, a4, SP[a3, a5], a2, n] + S2[a2, n]*S2[a1, a5, a3, a4, n] + 
    S2[a1, a5, a3, SP[a2, a4], n] + S2[a2, n]*S2[a1, a5, a4, a3, n] + 
    S2[a1, a5, a4, SP[a2, a3], n] + S2[a1, a5, SP[a2, a3], a4, n] + 
    S2[a1, a5, SP[a2, a4], a3, n] + S2[a1, SP[a2, a4], a3, a5, n] + 
    S2[a1, SP[a2, a4], a5, a3, n] + S2[a1, SP[a2, a5], a3, a4, n] + 
    S2[a1, SP[a2, a5], a4, a3, n] - S2[a1, SP[a3, a5], a4, a2, n] - 
    S2[a1, SP[a4, a5], a2, a3, n] - S2[a1, SP[a4, a5], a3, a2, n] - 
    S2[a2, a1, a4, SP[a3, a5], n] - S2[a2, a1, a5, SP[a3, a4], n] - 
    S2[a2, a1, SP[a3, a4], a5, n] - S2[a2, a1, SP[a3, a5], a4, n] + 
    S2[a5, n]*S2[a2, a4, a1, a3, n] - S2[a2, a5, a1, SP[a3, a4], n] - 
    S2[a2, a5, SP[a1, a4], a3, n] - S2[a2, SP[a1, a4], a3, a5, n] - 
    S2[a2, SP[a1, a4], a5, a3, n] - S2[a2, SP[a1, a5], a3, a4, n] - 
    S2[a2, SP[a1, a5], a4, a3, n] + S2[a2, SP[a4, a5], a1, a3, n] + 
    S2[a2, n]*S2[a5, a1, a3, a4, n] + S2[a5, a1, a3, SP[a2, a4], n] + 
    S2[a2, n]*S2[a5, a1, a4, a3, n] + S2[a5, a1, a4, SP[a2, a3], n] + 
    S2[a5, a1, SP[a2, a3], a4, n] + S2[a5, a1, SP[a2, a4], a3, n] - 
    S2[a1, n]*S2[a5, a2, a3, a4, n] - S2[a5, a2, a3, SP[a1, a4], n] - 
    S2[a1, n]*S2[a5, a2, a4, a3, n] - S2[a5, a2, a4, SP[a1, a3], n] - 
    S2[a5, a2, SP[a1, a3], a4, n] - S2[a5, a2, SP[a1, a4], a3, n] - 
    S2[a1, n]*S2[a5, a3, a2, a4, n] - S2[a5, a3, a2, SP[a1, a4], n] - 
    S2[a5, a3, SP[a1, a2], a4, n] - S2[a5, SP[a1, a3], a2, a4, n] - 
    S2[SP[a1, a5], a2, a3, a4, n] - S2[SP[a1, a5], a2, a4, a3, n] - 
    S2[SP[a1, a5], a3, a2, a4, n] - S2[SP[a1, a5], a3, a4, a2, n] - 
    S2[SP[a1, a5], a4, a2, a3, n] - S2[SP[a1, a5], a4, a3, a2, n] + 
    S2[SP[a2, a5], a1, a3, a4, n] + S2[SP[a2, a5], a1, a4, a3, n] + 
    S2[SP[a2, a5], a4, a1, a3, n] + S2[a5, a2, a3, a1, a4, n] + 
    S2[a5, a2, a3, a4, a1, n] + S2[a5, a2, a4, a3, a1, n] + 
    S2[a5, a3, a1, a2, a4, n] + S2[a5, a3, a2, a1, a4, n] + 
    S2[a5, a3, a2, a4, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5}}, 
     {a1, a2, a3, a4, a5}] && a1 != a2 != a3 != a4 != a5, 
 S2[a1_, a3_, a5_, a4_, a2_, n_] :> 
  S2[a1, a3, n]*S2[a2, a4, a5, n] - S2[a2, SP[a1, a4], SP[a3, a5], n] - 
    S2[SP[a1, a2], a4, SP[a3, a5], n] - S2[SP[a1, a2], SP[a3, a4], a5, n] + 
    S2[a1, a2, a4, SP[a3, a5], n] + S2[a1, a2, SP[a3, a4], a5, n] + 
    S2[a5, n]*S2[a1, a3, a4, a2, n] - S2[a2, n]*S2[a1, a3, a4, a5, n] - 
    S2[a1, a3, SP[a2, a4], a5, n] + S2[a1, a3, SP[a4, a5], a2, n] + 
    S2[a5, n]*S2[a1, a4, a2, a3, n] + S2[a1, a4, a2, SP[a3, a5], n] + 
    S2[a5, n]*S2[a1, a4, a3, a2, n] - S2[a2, n]*S2[a1, a4, a3, a5, n] - 
    S2[a2, n]*S2[a1, a4, a5, a3, n] - S2[a1, a4, a5, SP[a2, a3], n] - 
    S2[a1, a4, SP[a2, a3], a5, n] + S2[a1, a4, SP[a3, a5], a2, n] - 
    S2[a1, SP[a2, a4], a3, a5, n] - S2[a1, SP[a2, a4], a5, a3, n] + 
    S2[a1, SP[a3, a5], a4, a2, n] + S2[a1, SP[a4, a5], a2, a3, n] + 
    S2[a1, SP[a4, a5], a3, a2, n] + S2[a2, a1, a4, SP[a3, a5], n] + 
    S2[a2, a1, SP[a3, a4], a5, n] - S2[a5, n]*S2[a2, a4, a1, a3, n] + 
    S2[a2, SP[a1, a4], a3, a5, n] + S2[a2, SP[a1, a4], a5, a3, n] - 
    S2[a2, SP[a4, a5], a1, a3, n] - S2[a1, n]*S2[a5, a3, a4, a2, n] - 
    S2[a5, a3, a4, SP[a1, a2], n] - S2[a5, a3, SP[a1, a4], a2, n] + 
    S2[a2, n]*S2[a5, a4, a1, a3, n] + S2[a5, a4, a1, SP[a2, a3], n] - 
    S2[a1, n]*S2[a5, a4, a2, a3, n] - S2[a5, a4, a2, SP[a1, a3], n] - 
    S2[a1, n]*S2[a5, a4, a3, a2, n] - S2[a5, a4, a3, SP[a1, a2], n] - 
    S2[a5, a4, SP[a1, a3], a2, n] - S2[a5, SP[a1, a3], a4, a2, n] - 
    S2[a5, SP[a1, a4], a2, a3, n] - S2[a5, SP[a1, a4], a3, a2, n] + 
    S2[a5, SP[a2, a4], a1, a3, n] + S2[a5, a3, a1, a4, a2, n] + 
    S2[a5, a3, a4, a1, a2, n] + S2[a5, a3, a4, a2, a1, n] + 
    S2[a5, a4, a2, a3, a1, n] + S2[a5, a4, a3, a1, a2, n] + 
    S2[a5, a4, a3, a2, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5}}, 
     {a1, a2, a3, a4, a5}] && a1 != a2 != a3 != a4 != a5, 
 S2[a1_, a4_, a2_, a3_, a5_, n_] :> 
  S2[a3, a5, n]*S2[a1, a4, a2, n] - S2[a1, SP[a3, a4], SP[a2, a5], n] + 
    S2[a1, a4, n]*S2[a2, a3, a5, n] - S2[a2, SP[a1, a3], SP[a4, a5], n] - 
    S2[SP[a1, a2], a3, SP[a4, a5], n] - S2[SP[a1, a2], SP[a3, a4], a5, n] - 
    S2[SP[a1, a3], a4, SP[a2, a5], n] - S2[SP[a1, a3], SP[a4, a5], a2, n] + 
    S2[a1, a2, a3, SP[a4, a5], n] + S2[a1, a2, SP[a3, a4], a5, n] + 
    S2[a5, n]*S2[a1, a3, a2, a4, n] + S2[a1, a3, a2, SP[a4, a5], n] + 
    S2[a5, n]*S2[a1, a3, a4, a2, n] - S2[a2, n]*S2[a1, a3, a4, a5, n] + 
    S2[a1, a3, a4, SP[a2, a5], n] - S2[a2, n]*S2[a1, a3, a5, a4, n] - 
    S2[a1, a3, a5, SP[a2, a4], n] - S2[a1, a3, SP[a2, a4], a5, n] + 
    2*S2[a1, a3, SP[a4, a5], a2, n] + S2[a5, n]*S2[a1, a4, a2, a3, n] - 
    S2[a3, n]*S2[a1, a4, a2, a5, n] + S2[a5, n]*S2[a1, a4, a3, a2, n] - 
    S2[a2, n]*S2[a1, a4, a3, a5, n] + S2[a1, a4, a3, SP[a2, a5], n] - 
    S2[a3, n]*S2[a1, a4, a5, a2, n] - S2[a1, a4, a5, SP[a2, a3], n] - 
    S2[a1, a4, SP[a2, a3], a5, n] + S2[a1, a4, SP[a2, a5], a3, n] - 
    S2[a3, n]*S2[a1, a5, a4, a2, n] - S2[a1, a5, a4, SP[a2, a3], n] - 
    S2[a1, a5, SP[a3, a4], a2, n] - S2[a1, SP[a2, a3], a4, a5, n] - 
    S2[a1, SP[a2, a3], a5, a4, n] + S2[a1, SP[a3, a5], a2, a4, n] + 
    S2[a1, SP[a4, a5], a2, a3, n] + S2[a1, SP[a4, a5], a3, a2, n] + 
    S2[a2, a1, a3, SP[a4, a5], n] + S2[a2, a1, SP[a3, a4], a5, n] - 
    S2[a5, n]*S2[a2, a3, a1, a4, n] + S2[a2, SP[a1, a3], a4, a5, n] + 
    S2[a2, SP[a1, a3], a5, a4, n] - S2[a2, SP[a3, a5], a1, a4, n] + 
    S2[a3, a1, a4, SP[a2, a5], n] + S2[a3, a1, SP[a4, a5], a2, n] + 
    S2[a3, SP[a1, a5], a4, a2, n] - S2[a3, n]*S2[a5, a1, a4, a2, n] - 
    S2[a5, a1, a4, SP[a2, a3], n] - S2[a5, a1, SP[a3, a4], a2, n] + 
    S2[a2, n]*S2[a5, a3, a1, a4, n] + S2[a5, a3, a1, SP[a2, a4], n] - 
    S2[a1, n]*S2[a5, a3, a2, a4, n] - S2[a5, a3, a2, SP[a1, a4], n] - 
    S2[a5, SP[a1, a3], a2, a4, n] - S2[a5, SP[a1, a3], a4, a2, n] + 
    S2[a5, SP[a2, a3], a1, a4, n] + S2[SP[a1, a5], a3, a4, a2, n] + 
    S2[SP[a1, a5], a4, a2, a3, n] + S2[SP[a1, a5], a4, a3, a2, n] - 
    S2[SP[a3, a5], a1, a4, a2, n] + S2[a5, a3, a2, a4, a1, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5}}, {a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a1_, a4_, a2_, a5_, a3_, n_] :> 
  -(S2[a3, a5, n]*S2[a1, a4, a2, n]) + S2[a1, SP[a3, a4], SP[a2, a5], n] + 
    S2[a1, a4, n]*S2[a2, a5, a3, n] - S2[a2, SP[a1, a5], SP[a3, a4], n] - 
    S2[SP[a1, a2], a5, SP[a3, a4], n] - S2[SP[a1, a2], SP[a4, a5], a3, n] + 
    S2[SP[a1, a3], a4, SP[a2, a5], n] + S2[SP[a1, a3], SP[a4, a5], a2, n] + 
    S2[a1, a2, a5, SP[a3, a4], n] + S2[a1, a2, SP[a4, a5], a3, n] - 
    S2[a1, a3, a4, SP[a2, a5], n] - S2[a1, a3, SP[a4, a5], a2, n] + 
    S2[a3, n]*S2[a1, a4, a2, a5, n] + S2[a1, a4, a2, SP[a3, a5], n] - 
    S2[a1, a4, a3, SP[a2, a5], n] + S2[a3, n]*S2[a1, a4, a5, a2, n] - 
    S2[a2, n]*S2[a1, a4, a5, a3, n] - S2[a1, a4, SP[a2, a5], a3, n] + 
    S2[a1, a4, SP[a3, a5], a2, n] - S2[a2, n]*S2[a1, a5, a3, a4, n] - 
    S2[a1, a5, a3, SP[a2, a4], n] + S2[a3, n]*S2[a1, a5, a4, a2, n] - 
    S2[a2, n]*S2[a1, a5, a4, a3, n] - S2[a1, a5, SP[a2, a3], a4, n] - 
    S2[a1, a5, SP[a2, a4], a3, n] + S2[a1, a5, SP[a3, a4], a2, n] - 
    S2[a1, SP[a2, a5], a3, a4, n] - S2[a1, SP[a2, a5], a4, a3, n] + 
    S2[a1, SP[a3, a5], a4, a2, n] + S2[a2, a1, a5, SP[a3, a4], n] + 
    S2[a2, a1, SP[a4, a5], a3, n] + S2[a2, a5, a1, SP[a3, a4], n] + 
    S2[a2, a5, SP[a1, a3], a4, n] + S2[a2, SP[a1, a5], a3, a4, n] + 
    S2[a2, SP[a1, a5], a4, a3, n] - S2[a3, a1, a4, SP[a2, a5], n] - 
    S2[a3, a1, SP[a4, a5], a2, n] - S2[a3, SP[a1, a5], a4, a2, n] - 
    S2[a2, n]*S2[a5, a1, a3, a4, n] - S2[a5, a1, a3, SP[a2, a4], n] + 
    S2[a3, n]*S2[a5, a1, a4, a2, n] - S2[a2, n]*S2[a5, a1, a4, a3, n] - 
    S2[a5, a1, SP[a2, a3], a4, n] - S2[a5, a1, SP[a2, a4], a3, n] + 
    S2[a5, a1, SP[a3, a4], a2, n] + S2[a1, n]*S2[a5, a2, a3, a4, n] + 
    S2[a5, a2, a3, SP[a1, a4], n] + S2[a1, n]*S2[a5, a2, a4, a3, n] + 
    S2[a5, a2, a4, SP[a1, a3], n] + S2[a5, a2, SP[a1, a3], a4, n] + 
    S2[a5, a2, SP[a1, a4], a3, n] - S2[a2, n]*S2[a5, a3, a1, a4, n] - 
    S2[a5, a3, a1, SP[a2, a4], n] + S2[a1, n]*S2[a5, a3, a2, a4, n] + 
    S2[a5, a3, a2, SP[a1, a4], n] + S2[a5, SP[a1, a3], a2, a4, n] + 
    S2[a5, SP[a1, a3], a4, a2, n] - S2[a5, SP[a2, a3], a1, a4, n] + 
    S2[SP[a1, a5], a2, a3, a4, n] + S2[SP[a1, a5], a2, a4, a3, n] + 
    S2[SP[a1, a5], a3, a2, a4, n] - S2[SP[a2, a5], a1, a3, a4, n] - 
    S2[SP[a2, a5], a1, a4, a3, n] - S2[SP[a2, a5], a3, a1, a4, n] + 
    S2[SP[a3, a5], a1, a4, a2, n] - S2[a5, a2, a3, a4, a1, n] - 
    S2[a5, a2, a4, a1, a3, n] - S2[a5, a2, a4, a3, a1, n] - 
    S2[a5, a3, a2, a4, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5}}, 
     {a1, a2, a3, a4, a5}] && a1 != a2 != a3 != a4 != a5, 
 S2[a1_, a4_, a3_, a2_, a5_, n_] :> 
  S2[a2, a5, n]*S2[a1, a4, a3, n] - S2[a1, SP[a2, a4], SP[a3, a5], n] - 
    S2[a1, a4, n]*S2[a2, a3, a5, n] - S2[a1, a4, n]*S2[a2, a5, a3, n] + 
    S2[a2, SP[a1, a3], SP[a4, a5], n] + S2[a2, SP[a1, a5], SP[a3, a4], n] + 
    S2[SP[a1, a2], a3, SP[a4, a5], n] - S2[SP[a1, a2], a4, SP[a3, a5], n] + 
    S2[SP[a1, a2], a5, SP[a3, a4], n] + S2[SP[a1, a2], SP[a3, a4], a5, n] - 
    S2[a1, a2, a3, SP[a4, a5], n] + S2[a1, a2, a4, SP[a3, a5], n] - 
    S2[a1, a2, a5, SP[a3, a4], n] - S2[a1, a2, SP[a3, a4], a5, n] - 
    S2[a5, n]*S2[a1, a3, a2, a4, n] - S2[a1, a3, a2, SP[a4, a5], n] - 
    S2[a5, n]*S2[a1, a3, a4, a2, n] + S2[a2, n]*S2[a1, a3, a4, a5, n] + 
    S2[a2, n]*S2[a1, a3, a5, a4, n] + S2[a1, a3, a5, SP[a2, a4], n] + 
    S2[a1, a3, SP[a2, a4], a5, n] - S2[a1, a3, SP[a4, a5], a2, n] + 
    S2[a1, a4, a2, SP[a3, a5], n] + S2[a1, a4, SP[a2, a3], a5, n] + 
    S2[a2, n]*S2[a1, a5, a3, a4, n] + S2[a1, a5, a3, SP[a2, a4], n] + 
    S2[a1, a5, SP[a2, a3], a4, n] + S2[a1, SP[a2, a3], a4, a5, n] + 
    S2[a1, SP[a2, a3], a5, a4, n] + S2[a1, SP[a2, a5], a3, a4, n] - 
    S2[a1, SP[a3, a5], a2, a4, n] - S2[a1, SP[a3, a5], a4, a2, n] - 
    S2[a2, a1, a3, SP[a4, a5], n] + S2[a2, a1, a4, SP[a3, a5], n] - 
    S2[a2, a1, a5, SP[a3, a4], n] - S2[a2, a1, SP[a3, a4], a5, n] + 
    S2[a5, n]*S2[a2, a3, a1, a4, n] - S2[a2, a5, a1, SP[a3, a4], n] - 
    S2[a2, a5, SP[a1, a3], a4, n] - S2[a2, SP[a1, a3], a4, a5, n] - 
    S2[a2, SP[a1, a3], a5, a4, n] - S2[a2, SP[a1, a5], a3, a4, n] + 
    S2[a2, SP[a3, a5], a1, a4, n] + S2[a2, n]*S2[a5, a1, a3, a4, n] + 
    S2[a5, a1, a3, SP[a2, a4], n] + S2[a5, a1, SP[a2, a3], a4, n] - 
    S2[a1, n]*S2[a5, a2, a3, a4, n] - S2[a5, a2, a3, SP[a1, a4], n] - 
    S2[a5, a2, SP[a1, a3], a4, n] - S2[SP[a1, a5], a2, a3, a4, n] - 
    S2[SP[a1, a5], a3, a2, a4, n] - S2[SP[a1, a5], a3, a4, a2, n] + 
    S2[SP[a2, a5], a1, a3, a4, n] + S2[SP[a2, a5], a3, a1, a4, n] + 
    S2[a5, a2, a3, a4, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5}}, 
     {a1, a2, a3, a4, a5}] && a1 != a2 != a3 != a4 != a5, 
 S2[a1_, a4_, a3_, a5_, a2_, n_] :> 
  -(S2[a2, a5, n]*S2[a1, a4, a3, n]) + S2[a1, SP[a2, a4], SP[a3, a5], n] + 
    S2[a1, a4, n]*S2[a2, a5, a3, n] - S2[a2, SP[a1, a5], SP[a3, a4], n] + 
    S2[SP[a1, a2], a4, SP[a3, a5], n] - S2[SP[a1, a2], a5, SP[a3, a4], n] - 
    S2[a1, a2, a4, SP[a3, a5], n] + S2[a1, a2, a5, SP[a3, a4], n] - 
    S2[a1, a4, a2, SP[a3, a5], n] + S2[a2, n]*S2[a1, a4, a3, a5, n] + 
    S2[a1, a4, a3, SP[a2, a5], n] - S2[a2, n]*S2[a1, a5, a3, a4, n] - 
    S2[a1, a5, a3, SP[a2, a4], n] - S2[a1, a5, SP[a2, a3], a4, n] - 
    S2[a1, SP[a2, a5], a3, a4, n] - S2[a2, a1, a4, SP[a3, a5], n] + 
    S2[a2, a1, a5, SP[a3, a4], n] + S2[a2, a5, a1, SP[a3, a4], n] + 
    S2[a2, a5, SP[a1, a3], a4, n] + S2[a2, SP[a1, a5], a3, a4, n] - 
    S2[a2, n]*S2[a5, a1, a3, a4, n] - S2[a5, a1, a3, SP[a2, a4], n] - 
    S2[a5, a1, SP[a2, a3], a4, n] + S2[a1, n]*S2[a5, a2, a3, a4, n] + 
    S2[a5, a2, a3, SP[a1, a4], n] + S2[a5, a2, SP[a1, a3], a4, n] - 
    S2[a2, n]*S2[a5, a3, a1, a4, n] - S2[a5, a3, a1, SP[a2, a4], n] + 
    S2[a1, n]*S2[a5, a3, a2, a4, n] + S2[a5, a3, a2, SP[a1, a4], n] + 
    S2[a1, n]*S2[a5, a3, a4, a2, n] + S2[a5, a3, a4, SP[a1, a2], n] + 
    S2[a5, a3, SP[a1, a4], a2, n] + S2[a5, SP[a1, a3], a2, a4, n] + 
    S2[a5, SP[a1, a3], a4, a2, n] - S2[a5, SP[a2, a3], a1, a4, n] + 
    S2[SP[a1, a5], a2, a3, a4, n] + S2[SP[a1, a5], a3, a2, a4, n] + 
    S2[SP[a1, a5], a3, a4, a2, n] - S2[SP[a2, a5], a1, a3, a4, n] - 
    S2[SP[a2, a5], a3, a1, a4, n] - S2[a5, a2, a3, a4, a1, n] - 
    S2[a5, a3, a2, a4, a1, n] - S2[a5, a3, a4, a1, a2, n] - 
    S2[a5, a3, a4, a2, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5}}, 
     {a1, a2, a3, a4, a5}] && a1 != a2 != a3 != a4 != a5, 
 S2[a1_, a4_, a5_, a2_, a3_, n_] :> 
  -(S2[a1, a4, n]*S2[a2, a3, a5, n]) - S2[a1, a4, n]*S2[a2, a5, a3, n] + 
    S2[a2, SP[a1, a3], SP[a4, a5], n] + S2[a2, SP[a1, a5], SP[a3, a4], n] + 
    S2[SP[a1, a2], a3, SP[a4, a5], n] + S2[SP[a1, a2], a5, SP[a3, a4], n] + 
    S2[SP[a1, a2], SP[a3, a4], a5, n] + S2[SP[a1, a2], SP[a4, a5], a3, n] - 
    S2[a1, a2, a3, SP[a4, a5], n] - S2[a1, a2, a5, SP[a3, a4], n] - 
    S2[a1, a2, SP[a3, a4], a5, n] - S2[a1, a2, SP[a4, a5], a3, n] - 
    S2[a5, n]*S2[a1, a3, a2, a4, n] - S2[a1, a3, a2, SP[a4, a5], n] - 
    S2[a5, n]*S2[a1, a3, a4, a2, n] + S2[a2, n]*S2[a1, a3, a4, a5, n] + 
    S2[a2, n]*S2[a1, a3, a5, a4, n] + S2[a1, a3, a5, SP[a2, a4], n] + 
    S2[a1, a3, SP[a2, a4], a5, n] - S2[a1, a3, SP[a4, a5], a2, n] - 
    S2[a5, n]*S2[a1, a4, a3, a2, n] + S2[a2, n]*S2[a1, a4, a3, a5, n] + 
    S2[a2, n]*S2[a1, a4, a5, a3, n] + S2[a1, a4, a5, SP[a2, a3], n] + 
    S2[a1, a4, SP[a2, a3], a5, n] + S2[a1, a4, SP[a2, a5], a3, n] - 
    S2[a1, a4, SP[a3, a5], a2, n] + S2[a2, n]*S2[a1, a5, a3, a4, n] + 
    S2[a1, a5, a3, SP[a2, a4], n] + S2[a2, n]*S2[a1, a5, a4, a3, n] + 
    S2[a1, a5, a4, SP[a2, a3], n] + S2[a1, a5, SP[a2, a3], a4, n] + 
    S2[a1, a5, SP[a2, a4], a3, n] + S2[a1, SP[a2, a3], a4, a5, n] + 
    S2[a1, SP[a2, a3], a5, a4, n] + S2[a1, SP[a2, a5], a3, a4, n] + 
    S2[a1, SP[a2, a5], a4, a3, n] - S2[a1, SP[a3, a5], a2, a4, n] - 
    S2[a1, SP[a3, a5], a4, a2, n] - S2[a1, SP[a4, a5], a3, a2, n] - 
    S2[a2, a1, a3, SP[a4, a5], n] - S2[a2, a1, a5, SP[a3, a4], n] - 
    S2[a2, a1, SP[a3, a4], a5, n] - S2[a2, a1, SP[a4, a5], a3, n] + 
    S2[a5, n]*S2[a2, a3, a1, a4, n] - S2[a2, a5, a1, SP[a3, a4], n] - 
    S2[a2, a5, SP[a1, a3], a4, n] - S2[a2, SP[a1, a3], a4, a5, n] - 
    S2[a2, SP[a1, a3], a5, a4, n] - S2[a2, SP[a1, a5], a3, a4, n] - 
    S2[a2, SP[a1, a5], a4, a3, n] + S2[a2, SP[a3, a5], a1, a4, n] + 
    S2[a2, n]*S2[a5, a1, a3, a4, n] + S2[a5, a1, a3, SP[a2, a4], n] + 
    S2[a2, n]*S2[a5, a1, a4, a3, n] + S2[a5, a1, a4, SP[a2, a3], n] + 
    S2[a5, a1, SP[a2, a3], a4, n] + S2[a5, a1, SP[a2, a4], a3, n] - 
    S2[a1, n]*S2[a5, a2, a3, a4, n] - S2[a5, a2, a3, SP[a1, a4], n] - 
    S2[a1, n]*S2[a5, a2, a4, a3, n] - S2[a5, a2, a4, SP[a1, a3], n] - 
    S2[a5, a2, SP[a1, a3], a4, n] - S2[a5, a2, SP[a1, a4], a3, n] - 
    S2[a1, n]*S2[a5, a4, a2, a3, n] - S2[a5, a4, a2, SP[a1, a3], n] - 
    S2[a5, a4, SP[a1, a2], a3, n] - S2[a5, SP[a1, a4], a2, a3, n] - 
    S2[SP[a1, a5], a2, a3, a4, n] - S2[SP[a1, a5], a2, a4, a3, n] - 
    S2[SP[a1, a5], a3, a2, a4, n] - S2[SP[a1, a5], a3, a4, a2, n] - 
    S2[SP[a1, a5], a4, a2, a3, n] - S2[SP[a1, a5], a4, a3, a2, n] + 
    S2[SP[a2, a5], a1, a3, a4, n] + S2[SP[a2, a5], a1, a4, a3, n] + 
    S2[SP[a2, a5], a3, a1, a4, n] + S2[a5, a2, a3, a4, a1, n] + 
    S2[a5, a2, a4, a1, a3, n] + S2[a5, a2, a4, a3, a1, n] + 
    S2[a5, a4, a1, a2, a3, n] + S2[a5, a4, a2, a1, a3, n] + 
    S2[a5, a4, a2, a3, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5}}, 
     {a1, a2, a3, a4, a5}] && a1 != a2 != a3 != a4 != a5, 
 S2[a1_, a4_, a5_, a3_, a2_, n_] :> 
  S2[a1, a4, n]*S2[a2, a3, a5, n] - S2[a2, SP[a1, a3], SP[a4, a5], n] - 
    S2[SP[a1, a2], a3, SP[a4, a5], n] - S2[SP[a1, a2], SP[a3, a4], a5, n] + 
    S2[a1, a2, a3, SP[a4, a5], n] + S2[a1, a2, SP[a3, a4], a5, n] + 
    S2[a5, n]*S2[a1, a3, a2, a4, n] + S2[a1, a3, a2, SP[a4, a5], n] + 
    S2[a5, n]*S2[a1, a3, a4, a2, n] - S2[a2, n]*S2[a1, a3, a4, a5, n] - 
    S2[a2, n]*S2[a1, a3, a5, a4, n] - S2[a1, a3, a5, SP[a2, a4], n] - 
    S2[a1, a3, SP[a2, a4], a5, n] + S2[a1, a3, SP[a4, a5], a2, n] + 
    S2[a5, n]*S2[a1, a4, a3, a2, n] - S2[a2, n]*S2[a1, a4, a3, a5, n] - 
    S2[a1, a4, SP[a2, a3], a5, n] + S2[a1, a4, SP[a3, a5], a2, n] - 
    S2[a1, SP[a2, a3], a4, a5, n] - S2[a1, SP[a2, a3], a5, a4, n] + 
    S2[a1, SP[a3, a5], a2, a4, n] + S2[a1, SP[a3, a5], a4, a2, n] + 
    S2[a1, SP[a4, a5], a3, a2, n] + S2[a2, a1, a3, SP[a4, a5], n] + 
    S2[a2, a1, SP[a3, a4], a5, n] - S2[a5, n]*S2[a2, a3, a1, a4, n] + 
    S2[a2, SP[a1, a3], a4, a5, n] + S2[a2, SP[a1, a3], a5, a4, n] - 
    S2[a2, SP[a3, a5], a1, a4, n] + S2[a2, n]*S2[a5, a3, a1, a4, n] + 
    S2[a5, a3, a1, SP[a2, a4], n] - S2[a1, n]*S2[a5, a3, a2, a4, n] - 
    S2[a5, a3, a2, SP[a1, a4], n] - S2[a1, n]*S2[a5, a3, a4, a2, n] - 
    S2[a5, a3, a4, SP[a1, a2], n] - S2[a5, a3, SP[a1, a4], a2, n] - 
    S2[a1, n]*S2[a5, a4, a3, a2, n] - S2[a5, a4, a3, SP[a1, a2], n] - 
    S2[a5, a4, SP[a1, a3], a2, n] - S2[a5, SP[a1, a3], a2, a4, n] - 
    S2[a5, SP[a1, a3], a4, a2, n] - S2[a5, SP[a1, a4], a3, a2, n] + 
    S2[a5, SP[a2, a3], a1, a4, n] + S2[a5, a3, a2, a4, a1, n] + 
    S2[a5, a3, a4, a1, a2, n] + S2[a5, a3, a4, a2, a1, n] + 
    S2[a5, a4, a1, a3, a2, n] + S2[a5, a4, a3, a1, a2, n] + 
    S2[a5, a4, a3, a2, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5}}, 
     {a1, a2, a3, a4, a5}] && a1 != a2 != a3 != a4 != a5, 
 S2[a1_, a5_, a2_, a3_, a4_, n_] :> 
  S2[a1, n]*S2[a5, a2, a3, a4, n] + S2[a5, a2, a3, SP[a1, a4], n] + 
    S2[a5, a2, SP[a1, a3], a4, n] + S2[a5, SP[a1, a2], a3, a4, n] + 
    S2[SP[a1, a5], a2, a3, a4, n] - S2[a5, a1, a2, a3, a4, n] - 
    S2[a5, a2, a1, a3, a4, n] - S2[a5, a2, a3, a1, a4, n] - 
    S2[a5, a2, a3, a4, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5}}, 
     {a1, a2, a3, a4, a5}] && a1 != a2 != a3 != a4 != a5, 
 S2[a1_, a5_, a2_, a4_, a3_, n_] :> 
  S2[a1, n]*S2[a5, a2, a4, a3, n] + S2[a5, a2, a4, SP[a1, a3], n] + 
    S2[a5, a2, SP[a1, a4], a3, n] + S2[a5, SP[a1, a2], a4, a3, n] + 
    S2[SP[a1, a5], a2, a4, a3, n] - S2[a5, a1, a2, a4, a3, n] - 
    S2[a5, a2, a1, a4, a3, n] - S2[a5, a2, a4, a1, a3, n] - 
    S2[a5, a2, a4, a3, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5}}, 
     {a1, a2, a3, a4, a5}] && a1 != a2 != a3 != a4 != a5, 
 S2[a1_, a5_, a3_, a2_, a4_, n_] :> 
  S2[a1, n]*S2[a5, a3, a2, a4, n] + S2[a5, a3, a2, SP[a1, a4], n] + 
    S2[a5, a3, SP[a1, a2], a4, n] + S2[a5, SP[a1, a3], a2, a4, n] + 
    S2[SP[a1, a5], a3, a2, a4, n] - S2[a5, a1, a3, a2, a4, n] - 
    S2[a5, a3, a1, a2, a4, n] - S2[a5, a3, a2, a1, a4, n] - 
    S2[a5, a3, a2, a4, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5}}, 
     {a1, a2, a3, a4, a5}] && a1 != a2 != a3 != a4 != a5, 
 S2[a1_, a5_, a3_, a4_, a2_, n_] :> 
  S2[a1, n]*S2[a5, a3, a4, a2, n] + S2[a5, a3, a4, SP[a1, a2], n] + 
    S2[a5, a3, SP[a1, a4], a2, n] + S2[a5, SP[a1, a3], a4, a2, n] + 
    S2[SP[a1, a5], a3, a4, a2, n] - S2[a5, a1, a3, a4, a2, n] - 
    S2[a5, a3, a1, a4, a2, n] - S2[a5, a3, a4, a1, a2, n] - 
    S2[a5, a3, a4, a2, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5}}, 
     {a1, a2, a3, a4, a5}] && a1 != a2 != a3 != a4 != a5, 
 S2[a1_, a5_, a4_, a2_, a3_, n_] :> 
  S2[a1, n]*S2[a5, a4, a2, a3, n] + S2[a5, a4, a2, SP[a1, a3], n] + 
    S2[a5, a4, SP[a1, a2], a3, n] + S2[a5, SP[a1, a4], a2, a3, n] + 
    S2[SP[a1, a5], a4, a2, a3, n] - S2[a5, a1, a4, a2, a3, n] - 
    S2[a5, a4, a1, a2, a3, n] - S2[a5, a4, a2, a1, a3, n] - 
    S2[a5, a4, a2, a3, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5}}, 
     {a1, a2, a3, a4, a5}] && a1 != a2 != a3 != a4 != a5, 
 S2[a1_, a5_, a4_, a3_, a2_, n_] :> 
  S2[a1, n]*S2[a5, a4, a3, a2, n] + S2[a5, a4, a3, SP[a1, a2], n] + 
    S2[a5, a4, SP[a1, a3], a2, n] + S2[a5, SP[a1, a4], a3, a2, n] + 
    S2[SP[a1, a5], a4, a3, a2, n] - S2[a5, a1, a4, a3, a2, n] - 
    S2[a5, a4, a1, a3, a2, n] - S2[a5, a4, a3, a1, a2, n] - 
    S2[a5, a4, a3, a2, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5}}, 
     {a1, a2, a3, a4, a5}] && a1 != a2 != a3 != a4 != a5, 
 S2[a2_, a1_, a3_, a4_, a5_, n_] :> 
  -(S2[a4, a5, n]*S2[a1, a2, a3, n]) - S2[a4, a5, n]*S2[a1, a3, a2, n] + 
    S2[a1, SP[a2, a4], SP[a3, a5], n] + S2[a1, SP[a3, a4], SP[a2, a5], n] - 
    S2[a1, a2, n]*S2[a3, a4, a5, n] + S2[a3, SP[a1, a4], SP[a2, a5], n] + 
    S2[SP[a1, a3], a4, SP[a2, a5], n] + S2[SP[a1, a3], SP[a2, a4], a5, n] + 
    S2[SP[a1, a4], a2, SP[a3, a5], n] + S2[SP[a1, a4], a3, SP[a2, a5], n] + 
    S2[SP[a1, a4], SP[a2, a5], a3, n] + S2[SP[a1, a4], SP[a3, a5], a2, n] - 
    S2[a5, n]*S2[a1, a2, a3, a4, n] + S2[a4, n]*S2[a1, a2, a3, a5, n] - 
    S2[a5, n]*S2[a1, a2, a4, a3, n] + S2[a3, n]*S2[a1, a2, a4, a5, n] - 
    S2[a1, a2, a4, SP[a3, a5], n] + S2[a4, n]*S2[a1, a2, a5, a3, n] + 
    S2[a1, a2, a5, SP[a3, a4], n] + S2[a1, a2, SP[a3, a4], a5, n] - 
    S2[a1, a2, SP[a3, a5], a4, n] - S2[a5, n]*S2[a1, a3, a2, a4, n] + 
    S2[a4, n]*S2[a1, a3, a2, a5, n] - S2[a5, n]*S2[a1, a3, a4, a2, n] + 
    S2[a2, n]*S2[a1, a3, a4, a5, n] - 2*S2[a1, a3, a4, SP[a2, a5], n] + 
    S2[a4, n]*S2[a1, a3, a5, a2, n] + S2[a1, a3, a5, SP[a2, a4], n] - 
    S2[a1, a3, SP[a2, a5], a4, n] - S2[a5, n]*S2[a1, a4, a2, a3, n] + 
    S2[a3, n]*S2[a1, a4, a2, a5, n] - S2[a1, a4, a2, SP[a3, a5], n] - 
    S2[a5, n]*S2[a1, a4, a3, a2, n] - 2*S2[a1, a4, a3, SP[a2, a5], n] + 
    S2[a3, n]*S2[a1, a4, a5, a2, n] + S2[a1, a4, a5, SP[a2, a3], n] + 
    S2[a1, a4, SP[a2, a3], a5, n] - 2*S2[a1, a4, SP[a2, a5], a3, n] - 
    S2[a1, a4, SP[a3, a5], a2, n] + S2[a4, n]*S2[a1, a5, a2, a3, n] + 
    S2[a1, a5, a2, SP[a3, a4], n] + S2[a4, n]*S2[a1, a5, a3, a2, n] + 
    S2[a1, a5, a3, SP[a2, a4], n] + S2[a1, a5, SP[a2, a4], a3, n] + 
    S2[a1, a5, SP[a3, a4], a2, n] + S2[a1, SP[a2, a3], a4, a5, n] - 
    S2[a1, SP[a2, a5], a3, a4, n] - S2[a1, SP[a2, a5], a4, a3, n] + 
    S2[a1, SP[a3, a4], a2, a5, n] + S2[a1, SP[a3, a4], a5, a2, n] - 
    S2[a1, SP[a3, a5], a2, a4, n] - S2[a1, SP[a3, a5], a4, a2, n] - 
    S2[a3, a1, a4, SP[a2, a5], n] - S2[a3, a1, SP[a2, a4], a5, n] + 
    S2[a5, n]*S2[a3, a4, a1, a2, n] - S2[a3, SP[a1, a4], a2, a5, n] - 
    S2[a3, SP[a1, a4], a5, a2, n] + S2[a3, SP[a4, a5], a1, a2, n] - 
    S2[a4, a1, a2, SP[a3, a5], n] - S2[a4, a1, a3, SP[a2, a5], n] - 
    S2[a4, a1, SP[a2, a5], a3, n] - S2[a4, a1, SP[a3, a5], a2, n] - 
    S2[a4, SP[a1, a5], a2, a3, n] - S2[a4, SP[a1, a5], a3, a2, n] + 
    S2[a4, n]*S2[a5, a1, a2, a3, n] + S2[a5, a1, a2, SP[a3, a4], n] + 
    S2[a4, n]*S2[a5, a1, a3, a2, n] + S2[a5, a1, a3, SP[a2, a4], n] + 
    S2[a5, a1, SP[a2, a4], a3, n] + S2[a5, a1, SP[a3, a4], a2, n] - 
    S2[a3, n]*S2[a5, a4, a1, a2, n] - S2[a5, a4, a1, SP[a2, a3], n] - 
    S2[a5, a4, SP[a1, a3], a2, n] + S2[a5, SP[a1, a4], a2, a3, n] + 
    S2[a5, SP[a1, a4], a3, a2, n] - S2[a5, SP[a3, a4], a1, a2, n] + 
    S2[SP[a1, a2], a3, a4, a5, n] - S2[SP[a1, a5], a2, a3, a4, n] - 
    S2[SP[a1, a5], a2, a4, a3, n] - S2[SP[a1, a5], a3, a2, a4, n] - 
    S2[SP[a1, a5], a3, a4, a2, n] - S2[SP[a1, a5], a4, a2, a3, n] - 
    S2[SP[a1, a5], a4, a3, a2, n] + S2[SP[a4, a5], a1, a2, a3, n] + 
    S2[SP[a4, a5], a1, a3, a2, n] + S2[a5, a4, a3, a1, a2, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5}}, {a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a2_, a1_, a3_, a5_, a4_, n_] :> 
  S2[a4, a5, n]*S2[a1, a2, a3, n] + S2[a4, a5, n]*S2[a1, a3, a2, n] - 
    S2[a1, SP[a2, a4], SP[a3, a5], n] - S2[a1, SP[a3, a4], SP[a2, a5], n] - 
    S2[a1, a2, n]*S2[a3, a5, a4, n] + S2[a3, SP[a1, a5], SP[a2, a4], n] + 
    S2[SP[a1, a3], a5, SP[a2, a4], n] + S2[SP[a1, a3], SP[a2, a5], a4, n] - 
    S2[SP[a1, a4], a2, SP[a3, a5], n] - S2[SP[a1, a4], a3, SP[a2, a5], n] - 
    S2[SP[a1, a4], SP[a2, a5], a3, n] - S2[SP[a1, a4], SP[a3, a5], a2, n] - 
    S2[a4, n]*S2[a1, a2, a3, a5, n] - S2[a1, a2, a3, SP[a4, a5], n] + 
    S2[a1, a2, a4, SP[a3, a5], n] - S2[a4, n]*S2[a1, a2, a5, a3, n] + 
    S2[a3, n]*S2[a1, a2, a5, a4, n] + S2[a1, a2, SP[a3, a5], a4, n] - 
    S2[a1, a2, SP[a4, a5], a3, n] - S2[a4, n]*S2[a1, a3, a2, a5, n] - 
    S2[a1, a3, a2, SP[a4, a5], n] + S2[a1, a3, a4, SP[a2, a5], n] - 
    S2[a4, n]*S2[a1, a3, a5, a2, n] + S2[a2, n]*S2[a1, a3, a5, a4, n] - 
    S2[a1, a3, a5, SP[a2, a4], n] - S2[a1, a3, SP[a4, a5], a2, n] + 
    S2[a1, a4, a2, SP[a3, a5], n] + S2[a1, a4, a3, SP[a2, a5], n] + 
    S2[a1, a4, SP[a2, a5], a3, n] + S2[a1, a4, SP[a3, a5], a2, n] - 
    S2[a4, n]*S2[a1, a5, a2, a3, n] + S2[a3, n]*S2[a1, a5, a2, a4, n] - 
    S2[a4, n]*S2[a1, a5, a3, a2, n] - S2[a1, a5, a3, SP[a2, a4], n] + 
    S2[a3, n]*S2[a1, a5, a4, a2, n] + S2[a1, a5, a4, SP[a2, a3], n] + 
    S2[a1, a5, SP[a2, a3], a4, n] - S2[a1, a5, SP[a2, a4], a3, n] + 
    S2[a1, SP[a2, a3], a5, a4, n] + S2[a1, SP[a3, a5], a2, a4, n] + 
    S2[a1, SP[a3, a5], a4, a2, n] - S2[a1, SP[a4, a5], a2, a3, n] - 
    S2[a1, SP[a4, a5], a3, a2, n] - S2[a3, a1, a5, SP[a2, a4], n] - 
    S2[a3, a1, SP[a2, a5], a4, n] - S2[a3, a5, a1, SP[a2, a4], n] - 
    S2[a3, a5, SP[a1, a4], a2, n] - S2[a3, SP[a1, a5], a2, a4, n] - 
    S2[a3, SP[a1, a5], a4, a2, n] + S2[a4, a1, a2, SP[a3, a5], n] + 
    S2[a4, a1, a3, SP[a2, a5], n] + S2[a4, a1, SP[a2, a5], a3, n] + 
    S2[a4, a1, SP[a3, a5], a2, n] + S2[a4, SP[a1, a5], a2, a3, n] + 
    S2[a4, SP[a1, a5], a3, a2, n] - S2[a4, n]*S2[a5, a1, a2, a3, n] + 
    S2[a3, n]*S2[a5, a1, a2, a4, n] - S2[a4, n]*S2[a5, a1, a3, a2, n] - 
    S2[a5, a1, a3, SP[a2, a4], n] + S2[a3, n]*S2[a5, a1, a4, a2, n] + 
    S2[a5, a1, a4, SP[a2, a3], n] + S2[a5, a1, SP[a2, a3], a4, n] - 
    S2[a5, a1, SP[a2, a4], a3, n] + S2[a3, n]*S2[a5, a4, a1, a2, n] + 
    S2[a5, a4, a1, SP[a2, a3], n] + S2[a5, a4, SP[a1, a3], a2, n] + 
    S2[a5, SP[a1, a3], a2, a4, n] + S2[a5, SP[a1, a3], a4, a2, n] - 
    S2[a5, SP[a1, a4], a2, a3, n] - S2[a5, SP[a1, a4], a3, a2, n] + 
    S2[a5, SP[a3, a4], a1, a2, n] + S2[SP[a1, a2], a3, a5, a4, n] + 
    S2[SP[a3, a5], a1, a2, a4, n] + S2[SP[a3, a5], a1, a4, a2, n] + 
    S2[SP[a3, a5], a4, a1, a2, n] - S2[SP[a4, a5], a1, a2, a3, n] - 
    S2[SP[a4, a5], a1, a3, a2, n] - S2[a5, a3, a1, a2, a4, n] - 
    S2[a5, a3, a1, a4, a2, n] - S2[a5, a3, a4, a1, a2, n] - 
    S2[a5, a4, a3, a1, a2, n] /; MyMemberQ[{{a1, a2, a3, a4, a5}}, 
     {a1, a2, a3, a4, a5}] && a1 != a2 != a3 != a4 != a5, 
 S2[a2_, a1_, a4_, a3_, a5_, n_] :> 
  -(S2[a3, a5, n]*S2[a1, a2, a4, n]) - S2[a3, a5, n]*S2[a1, a4, a2, n] + 
    S2[a1, SP[a2, a3], SP[a4, a5], n] + S2[a1, SP[a3, a4], SP[a2, a5], n] + 
    S2[a1, a2, n]*S2[a3, a4, a5, n] + S2[a1, a2, n]*S2[a3, a5, a4, n] - 
    S2[a3, SP[a1, a4], SP[a2, a5], n] - S2[a3, SP[a1, a5], SP[a2, a4], n] + 
    S2[SP[a1, a3], a2, SP[a4, a5], n] - S2[SP[a1, a3], a5, SP[a2, a4], n] - 
    S2[SP[a1, a3], SP[a2, a4], a5, n] + S2[SP[a1, a3], SP[a4, a5], a2, n] - 
    S2[a1, a2, a3, SP[a4, a5], n] - S2[a1, a2, SP[a3, a4], a5, n] - 
    S2[a1, a3, a2, SP[a4, a5], n] + S2[a1, a3, a5, SP[a2, a4], n] + 
    S2[a1, a3, SP[a2, a4], a5, n] - S2[a1, a3, SP[a4, a5], a2, n] + 
    S2[a2, n]*S2[a1, a4, a3, a5, n] + S2[a1, SP[a2, a4], a3, a5, n] - 
    S2[a1, SP[a3, a4], a2, a5, n] - S2[a1, SP[a3, a4], a5, a2, n] - 
    S2[a3, a1, a2, SP[a4, a5], n] + S2[a3, a1, a5, SP[a2, a4], n] + 
    S2[a3, a1, SP[a2, a4], a5, n] - S2[a3, a1, SP[a4, a5], a2, n] - 
    S2[a5, n]*S2[a3, a4, a1, a2, n] + S2[a3, a5, a1, SP[a2, a4], n] + 
    S2[a3, a5, SP[a1, a4], a2, n] + S2[a3, SP[a1, a4], a2, a5, n] + 
    S2[a3, SP[a1, a4], a5, a2, n] - S2[a3, SP[a4, a5], a1, a2, n] + 
    S2[SP[a1, a2], a4, a3, a5, n] - S2[SP[a3, a5], a4, a1, a2, n] + 
    S2[a5, a3, a4, a1, a2, n] /; MyMemberQ[{{a1, a2, a3, a4, a5}}, 
     {a1, a2, a3, a4, a5}] && a1 != a2 != a3 != a4 != a5, 
 S2[a2_, a1_, a4_, a5_, a3_, n_] :> 
  S2[a3, a5, n]*S2[a1, a2, a4, n] + S2[a3, a5, n]*S2[a1, a4, a2, n] - 
    S2[a1, SP[a2, a3], SP[a4, a5], n] - S2[a1, SP[a3, a4], SP[a2, a5], n] - 
    S2[a1, a2, n]*S2[a3, a5, a4, n] + S2[a3, SP[a1, a5], SP[a2, a4], n] - 
    S2[SP[a1, a3], a2, SP[a4, a5], n] - S2[SP[a1, a3], a4, SP[a2, a5], n] + 
    S2[SP[a1, a3], a5, SP[a2, a4], n] - S2[SP[a1, a3], SP[a4, a5], a2, n] + 
    S2[a1, a2, a3, SP[a4, a5], n] - S2[a3, n]*S2[a1, a2, a4, a5, n] - 
    S2[a1, a2, a4, SP[a3, a5], n] + S2[a1, a3, a2, SP[a4, a5], n] + 
    S2[a1, a3, a4, SP[a2, a5], n] - S2[a1, a3, a5, SP[a2, a4], n] + 
    S2[a1, a3, SP[a4, a5], a2, n] - S2[a3, n]*S2[a1, a4, a2, a5, n] - 
    S2[a1, a4, a2, SP[a3, a5], n] + S2[a1, a4, a3, SP[a2, a5], n] - 
    S2[a3, n]*S2[a1, a4, a5, a2, n] + S2[a2, n]*S2[a1, a4, a5, a3, n] + 
    S2[a1, a4, SP[a2, a5], a3, n] - S2[a1, a4, SP[a3, a5], a2, n] + 
    S2[a1, SP[a2, a4], a5, a3, n] + S2[a3, a1, a2, SP[a4, a5], n] + 
    S2[a3, a1, a4, SP[a2, a5], n] - S2[a3, a1, a5, SP[a2, a4], n] + 
    S2[a3, a1, SP[a4, a5], a2, n] - S2[a3, a5, a1, SP[a2, a4], n] - 
    S2[a3, a5, SP[a1, a4], a2, n] + S2[a3, n]*S2[a5, a4, a1, a2, n] + 
    S2[a5, a4, a1, SP[a2, a3], n] + S2[a5, a4, SP[a1, a3], a2, n] + 
    S2[a5, SP[a3, a4], a1, a2, n] + S2[SP[a1, a2], a4, a5, a3, n] + 
    S2[SP[a3, a5], a4, a1, a2, n] - S2[a5, a3, a4, a1, a2, n] - 
    S2[a5, a4, a1, a2, a3, n] - S2[a5, a4, a1, a3, a2, n] - 
    S2[a5, a4, a3, a1, a2, n] /; MyMemberQ[{{a1, a2, a3, a4, a5}}, 
     {a1, a2, a3, a4, a5}] && a1 != a2 != a3 != a4 != a5, 
 S2[a2_, a1_, a5_, a3_, a4_, n_] :> 
  S2[a1, a2, n]*S2[a3, a4, a5, n] + S2[a1, a2, n]*S2[a3, a5, a4, n] - 
    S2[a3, SP[a1, a4], SP[a2, a5], n] - S2[a3, SP[a1, a5], SP[a2, a4], n] - 
    S2[SP[a1, a3], a4, SP[a2, a5], n] - S2[SP[a1, a3], a5, SP[a2, a4], n] - 
    S2[SP[a1, a3], SP[a2, a4], a5, n] - S2[SP[a1, a3], SP[a2, a5], a4, n] + 
    S2[a5, n]*S2[a1, a2, a4, a3, n] - S2[a3, n]*S2[a1, a2, a4, a5, n] - 
    S2[a3, n]*S2[a1, a2, a5, a4, n] - S2[a1, a2, a5, SP[a3, a4], n] - 
    S2[a1, a2, SP[a3, a4], a5, n] - S2[a1, a2, SP[a3, a5], a4, n] + 
    S2[a1, a2, SP[a4, a5], a3, n] + S2[a1, a3, a4, SP[a2, a5], n] + 
    S2[a1, a3, a5, SP[a2, a4], n] + S2[a1, a3, SP[a2, a4], a5, n] + 
    S2[a1, a3, SP[a2, a5], a4, n] + S2[a5, n]*S2[a1, a4, a2, a3, n] - 
    S2[a3, n]*S2[a1, a4, a2, a5, n] + S2[a5, n]*S2[a1, a4, a3, a2, n] + 
    S2[a1, a4, a3, SP[a2, a5], n] - S2[a3, n]*S2[a1, a4, a5, a2, n] - 
    S2[a1, a4, a5, SP[a2, a3], n] - S2[a1, a4, SP[a2, a3], a5, n] + 
    S2[a1, a4, SP[a2, a5], a3, n] - S2[a3, n]*S2[a1, a5, a2, a4, n] - 
    S2[a1, a5, a2, SP[a3, a4], n] + S2[a2, n]*S2[a1, a5, a3, a4, n] + 
    S2[a1, a5, a3, SP[a2, a4], n] - S2[a3, n]*S2[a1, a5, a4, a2, n] - 
    S2[a1, a5, a4, SP[a2, a3], n] - S2[a1, a5, SP[a3, a4], a2, n] + 
    S2[a1, SP[a2, a5], a3, a4, n] + S2[a1, SP[a2, a5], a4, a3, n] - 
    S2[a1, SP[a3, a4], a2, a5, n] - S2[a1, SP[a3, a4], a5, a2, n] - 
    S2[a1, SP[a3, a5], a2, a4, n] - S2[a1, SP[a3, a5], a4, a2, n] + 
    S2[a1, SP[a4, a5], a2, a3, n] + S2[a1, SP[a4, a5], a3, a2, n] + 
    S2[a3, a1, a4, SP[a2, a5], n] + S2[a3, a1, a5, SP[a2, a4], n] + 
    S2[a3, a1, SP[a2, a4], a5, n] + S2[a3, a1, SP[a2, a5], a4, n] - 
    S2[a5, n]*S2[a3, a4, a1, a2, n] + S2[a3, a5, a1, SP[a2, a4], n] + 
    S2[a3, a5, SP[a1, a4], a2, n] + S2[a3, SP[a1, a4], a2, a5, n] + 
    S2[a3, SP[a1, a4], a5, a2, n] + S2[a3, SP[a1, a5], a2, a4, n] + 
    S2[a3, SP[a1, a5], a4, a2, n] - S2[a3, SP[a4, a5], a1, a2, n] - 
    S2[a3, n]*S2[a5, a1, a2, a4, n] - S2[a5, a1, a2, SP[a3, a4], n] - 
    S2[a3, n]*S2[a5, a1, a4, a2, n] - S2[a5, a1, a4, SP[a2, a3], n] - 
    S2[a5, a1, SP[a2, a3], a4, n] - S2[a5, a1, SP[a3, a4], a2, n] - 
    S2[a5, SP[a1, a3], a2, a4, n] - S2[a5, SP[a1, a3], a4, a2, n] + 
    S2[SP[a1, a2], a5, a3, a4, n] + S2[SP[a1, a5], a2, a4, a3, n] + 
    S2[SP[a1, a5], a4, a2, a3, n] + S2[SP[a1, a5], a4, a3, a2, n] - 
    S2[SP[a3, a5], a1, a2, a4, n] - S2[SP[a3, a5], a1, a4, a2, n] - 
    S2[SP[a3, a5], a4, a1, a2, n] + S2[a5, a1, a2, a3, a4, n] + 
    S2[a5, a1, a3, a2, a4, n] + S2[a5, a1, a3, a4, a2, n] + 
    S2[a5, a3, a1, a2, a4, n] + S2[a5, a3, a1, a4, a2, n] + 
    S2[a5, a3, a4, a1, a2, n] /; MyMemberQ[{{a1, a2, a3, a4, a5}}, 
     {a1, a2, a3, a4, a5}] && a1 != a2 != a3 != a4 != a5, 
 S2[a2_, a1_, a5_, a4_, a3_, n_] :> 
  -(S2[a1, a2, n]*S2[a3, a4, a5, n]) + S2[a3, SP[a1, a4], SP[a2, a5], n] + 
    S2[SP[a1, a3], a4, SP[a2, a5], n] + S2[SP[a1, a3], SP[a2, a4], a5, n] - 
    S2[a5, n]*S2[a1, a2, a4, a3, n] + S2[a3, n]*S2[a1, a2, a4, a5, n] + 
    S2[a1, a2, SP[a3, a4], a5, n] - S2[a1, a2, SP[a4, a5], a3, n] - 
    S2[a1, a3, a4, SP[a2, a5], n] - S2[a1, a3, SP[a2, a4], a5, n] - 
    S2[a5, n]*S2[a1, a4, a2, a3, n] + S2[a3, n]*S2[a1, a4, a2, a5, n] - 
    S2[a5, n]*S2[a1, a4, a3, a2, n] - S2[a1, a4, a3, SP[a2, a5], n] + 
    S2[a3, n]*S2[a1, a4, a5, a2, n] + S2[a1, a4, a5, SP[a2, a3], n] + 
    S2[a1, a4, SP[a2, a3], a5, n] - S2[a1, a4, SP[a2, a5], a3, n] + 
    S2[a2, n]*S2[a1, a5, a4, a3, n] + S2[a1, a5, a4, SP[a2, a3], n] + 
    S2[a1, a5, SP[a2, a4], a3, n] + S2[a1, SP[a3, a4], a2, a5, n] + 
    S2[a1, SP[a3, a4], a5, a2, n] - S2[a1, SP[a4, a5], a2, a3, n] - 
    S2[a1, SP[a4, a5], a3, a2, n] - S2[a3, a1, a4, SP[a2, a5], n] - 
    S2[a3, a1, SP[a2, a4], a5, n] + S2[a5, n]*S2[a3, a4, a1, a2, n] - 
    S2[a3, SP[a1, a4], a2, a5, n] - S2[a3, SP[a1, a4], a5, a2, n] + 
    S2[a3, SP[a4, a5], a1, a2, n] - S2[a3, n]*S2[a5, a4, a1, a2, n] - 
    S2[a5, a4, a1, SP[a2, a3], n] - S2[a5, a4, SP[a1, a3], a2, n] - 
    S2[a5, SP[a3, a4], a1, a2, n] + S2[SP[a1, a2], a5, a4, a3, n] - 
    S2[SP[a1, a5], a2, a4, a3, n] - S2[SP[a1, a5], a4, a2, a3, n] - 
    S2[SP[a1, a5], a4, a3, a2, n] + S2[a5, a1, a2, a4, a3, n] + 
    S2[a5, a1, a4, a2, a3, n] + S2[a5, a1, a4, a3, a2, n] + 
    S2[a5, a4, a1, a2, a3, n] + S2[a5, a4, a1, a3, a2, n] + 
    S2[a5, a4, a3, a1, a2, n] /; MyMemberQ[{{a1, a2, a3, a4, a5}}, 
     {a1, a2, a3, a4, a5}] && a1 != a2 != a3 != a4 != a5, 
 S2[a2_, a3_, a1_, a4_, a5_, n_] :> 
  S2[a4, a5, n]*S2[a1, a3, a2, n] + S2[a2, a3, n]*S2[a1, a4, a5, n] - 
    S2[a1, SP[a2, a4], SP[a3, a5], n] - S2[a1, SP[a3, a4], SP[a2, a5], n] - 
    S2[SP[a1, a2], a4, SP[a3, a5], n] - S2[SP[a1, a2], SP[a3, a4], a5, n] - 
    S2[SP[a1, a4], a3, SP[a2, a5], n] - S2[SP[a1, a4], SP[a3, a5], a2, n] + 
    S2[a1, a2, a4, SP[a3, a5], n] + S2[a1, a2, SP[a3, a4], a5, n] + 
    S2[a5, n]*S2[a1, a3, a2, a4, n] - S2[a4, n]*S2[a1, a3, a2, a5, n] + 
    S2[a5, n]*S2[a1, a3, a4, a2, n] - S2[a2, n]*S2[a1, a3, a4, a5, n] + 
    S2[a1, a3, a4, SP[a2, a5], n] - S2[a4, n]*S2[a1, a3, a5, a2, n] - 
    S2[a1, a3, a5, SP[a2, a4], n] - S2[a1, a3, SP[a2, a4], a5, n] + 
    S2[a1, a3, SP[a2, a5], a4, n] + S2[a1, a4, a2, SP[a3, a5], n] + 
    S2[a5, n]*S2[a1, a4, a3, a2, n] - S2[a2, n]*S2[a1, a4, a3, a5, n] + 
    S2[a1, a4, a3, SP[a2, a5], n] - S2[a2, n]*S2[a1, a4, a5, a3, n] - 
    S2[a1, a4, a5, SP[a2, a3], n] - S2[a1, a4, SP[a2, a3], a5, n] + 
    2*S2[a1, a4, SP[a3, a5], a2, n] - S2[a4, n]*S2[a1, a5, a3, a2, n] - 
    S2[a1, a5, a3, SP[a2, a4], n] - S2[a1, a5, SP[a3, a4], a2, n] - 
    S2[a1, SP[a2, a3], a4, a5, n] + S2[a1, SP[a3, a5], a2, a4, n] + 
    S2[a1, SP[a3, a5], a4, a2, n] + S2[a2, a1, a4, SP[a3, a5], n] + 
    S2[a2, a1, SP[a3, a4], a5, n] + S2[a2, SP[a1, a3], a4, a5, n] + 
    S2[a4, a1, a3, SP[a2, a5], n] + S2[a4, a1, SP[a3, a5], a2, n] + 
    S2[a4, SP[a1, a5], a3, a2, n] - S2[a4, n]*S2[a5, a1, a3, a2, n] - 
    S2[a5, a1, a3, SP[a2, a4], n] - S2[a5, a1, SP[a3, a4], a2, n] - 
    S2[a5, SP[a1, a4], a3, a2, n] + S2[SP[a1, a5], a3, a2, a4, n] + 
    S2[SP[a1, a5], a3, a4, a2, n] + S2[SP[a1, a5], a4, a3, a2, n] - 
    S2[SP[a4, a5], a1, a3, a2, n] + S2[a5, a4, a1, a3, a2, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5}}, {a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a2_, a3_, a1_, a5_, a4_, n_] :> 
  -(S2[a4, a5, n]*S2[a1, a3, a2, n]) + S2[a2, a3, n]*S2[a1, a5, a4, n] - 
    S2[a1, SP[a2, a5], SP[a3, a4], n] + S2[a1, SP[a3, a4], SP[a2, a5], n] - 
    S2[SP[a1, a2], a5, SP[a3, a4], n] - S2[SP[a1, a2], SP[a3, a5], a4, n] + 
    S2[SP[a1, a4], a3, SP[a2, a5], n] + S2[SP[a1, a4], SP[a3, a5], a2, n] + 
    S2[a1, a2, a5, SP[a3, a4], n] + S2[a1, a2, SP[a3, a5], a4, n] + 
    S2[a4, n]*S2[a1, a3, a2, a5, n] + S2[a1, a3, a2, SP[a4, a5], n] - 
    S2[a1, a3, a4, SP[a2, a5], n] + S2[a4, n]*S2[a1, a3, a5, a2, n] - 
    S2[a2, n]*S2[a1, a3, a5, a4, n] - S2[a1, a3, SP[a2, a5], a4, n] + 
    S2[a1, a3, SP[a4, a5], a2, n] - S2[a1, a4, a3, SP[a2, a5], n] - 
    S2[a1, a4, SP[a3, a5], a2, n] + S2[a1, a5, a2, SP[a3, a4], n] + 
    S2[a4, n]*S2[a1, a5, a3, a2, n] - S2[a2, n]*S2[a1, a5, a3, a4, n] - 
    S2[a2, n]*S2[a1, a5, a4, a3, n] - S2[a1, a5, a4, SP[a2, a3], n] - 
    S2[a1, a5, SP[a2, a3], a4, n] + S2[a1, a5, SP[a3, a4], a2, n] - 
    S2[a1, SP[a2, a3], a5, a4, n] + S2[a1, SP[a4, a5], a3, a2, n] + 
    S2[a2, a1, a5, SP[a3, a4], n] + S2[a2, a1, SP[a3, a5], a4, n] + 
    S2[a2, SP[a1, a3], a5, a4, n] - S2[a4, a1, a3, SP[a2, a5], n] - 
    S2[a4, a1, SP[a3, a5], a2, n] - S2[a4, SP[a1, a5], a3, a2, n] + 
    S2[a4, n]*S2[a5, a1, a3, a2, n] + S2[a5, a1, a3, SP[a2, a4], n] + 
    S2[a5, a1, SP[a3, a4], a2, n] + S2[a5, SP[a1, a4], a3, a2, n] + 
    S2[SP[a4, a5], a1, a3, a2, n] - S2[a5, a1, a3, a2, a4, n] - 
    S2[a5, a1, a3, a4, a2, n] - S2[a5, a1, a4, a3, a2, n] - 
    S2[a5, a4, a1, a3, a2, n] /; MyMemberQ[{{a1, a2, a3, a4, a5}}, 
     {a1, a2, a3, a4, a5}] && a1 != a2 != a3 != a4 != a5, 
 S2[a2_, a3_, a4_, a1_, a5_, n_] :> 
  -(S2[a2, a3, n]*S2[a1, a4, a5, n]) - S2[a2, a3, n]*S2[a1, a5, a4, n] + 
    S2[a1, SP[a2, a4], SP[a3, a5], n] + S2[a1, SP[a2, a5], SP[a3, a4], n] + 
    S2[a1, a5, n]*S2[a2, a3, a4, n] - S2[a2, SP[a1, a3], SP[a4, a5], n] - 
    S2[SP[a1, a2], a3, SP[a4, a5], n] + S2[SP[a1, a2], a4, SP[a3, a5], n] + 
    S2[SP[a1, a2], a5, SP[a3, a4], n] + S2[SP[a1, a2], SP[a3, a4], a5, n] + 
    S2[a1, a2, a3, SP[a4, a5], n] - S2[a1, a2, a4, SP[a3, a5], n] - 
    S2[a1, a2, a5, SP[a3, a4], n] - S2[a1, a2, SP[a3, a4], a5, n] - 
    S2[a1, a4, a2, SP[a3, a5], n] - S2[a5, n]*S2[a1, a4, a3, a2, n] + 
    S2[a2, n]*S2[a1, a4, a3, a5, n] + S2[a2, n]*S2[a1, a4, a5, a3, n] + 
    S2[a1, a4, a5, SP[a2, a3], n] + S2[a1, a4, SP[a2, a3], a5, n] - 
    S2[a1, a4, SP[a3, a5], a2, n] - S2[a1, a5, a2, SP[a3, a4], n] + 
    S2[a2, n]*S2[a1, a5, a4, a3, n] + S2[a1, a5, a4, SP[a2, a3], n] - 
    S2[a1, SP[a4, a5], a3, a2, n] + S2[a2, a1, a3, SP[a4, a5], n] - 
    S2[a2, a1, a4, SP[a3, a5], n] - S2[a2, a1, a5, SP[a3, a4], n] - 
    S2[a2, a1, SP[a3, a4], a5, n] + S2[a2, a3, a1, SP[a4, a5], n] + 
    S2[a2, a3, SP[a1, a4], a5, n] - S2[SP[a1, a5], a4, a3, a2, n] + 
    S2[a5, a1, a4, a3, a2, n] /; MyMemberQ[{{a1, a2, a3, a4, a5}}, 
     {a1, a2, a3, a4, a5}] && a1 != a2 != a3 != a4 != a5, 
 S2[a2_, a3_, a4_, a5_, a1_, n_] :> 
  S2[a2, a3, n]*S2[a1, a5, a4, n] - S2[a1, SP[a2, a5], SP[a3, a4], n] - 
    S2[a1, a5, n]*S2[a2, a3, a4, n] + S2[a2, SP[a1, a3], SP[a4, a5], n] + 
    S2[SP[a1, a2], a3, SP[a4, a5], n] - S2[SP[a1, a2], a5, SP[a3, a4], n] - 
    S2[a1, a2, a3, SP[a4, a5], n] + S2[a1, a2, a5, SP[a3, a4], n] + 
    S2[a1, a5, a2, SP[a3, a4], n] - S2[a2, n]*S2[a1, a5, a4, a3, n] - 
    S2[a1, a5, a4, SP[a2, a3], n] - S2[a2, a1, a3, SP[a4, a5], n] + 
    S2[a2, a1, a5, SP[a3, a4], n] - S2[a2, a3, a1, SP[a4, a5], n] + 
    S2[a1, n]*S2[a2, a3, a4, a5, n] + S2[a2, a3, a4, SP[a1, a5], n] + 
    S2[a1, n]*S2[a5, a4, a3, a2, n] + S2[a5, a4, a3, SP[a1, a2], n] + 
    S2[a5, a4, SP[a1, a3], a2, n] + S2[a5, SP[a1, a4], a3, a2, n] + 
    S2[SP[a1, a5], a4, a3, a2, n] - S2[a5, a1, a4, a3, a2, n] - 
    S2[a5, a4, a1, a3, a2, n] - S2[a5, a4, a3, a1, a2, n] - 
    S2[a5, a4, a3, a2, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5}}, 
     {a1, a2, a3, a4, a5}] && a1 != a2 != a3 != a4 != a5, 
 S2[a2_, a3_, a5_, a1_, a4_, n_] :> 
  -(S2[a2, a3, n]*S2[a1, a4, a5, n]) - S2[a2, a3, n]*S2[a1, a5, a4, n] + 
    S2[a1, SP[a2, a4], SP[a3, a5], n] + S2[a1, SP[a2, a5], SP[a3, a4], n] + 
    S2[SP[a1, a2], a4, SP[a3, a5], n] + S2[SP[a1, a2], a5, SP[a3, a4], n] + 
    S2[SP[a1, a2], SP[a3, a4], a5, n] + S2[SP[a1, a2], SP[a3, a5], a4, n] - 
    S2[a1, a2, a4, SP[a3, a5], n] - S2[a1, a2, a5, SP[a3, a4], n] - 
    S2[a1, a2, SP[a3, a4], a5, n] - S2[a1, a2, SP[a3, a5], a4, n] - 
    S2[a5, n]*S2[a1, a3, a2, a4, n] - S2[a1, a3, a2, SP[a4, a5], n] - 
    S2[a5, n]*S2[a1, a3, a4, a2, n] + S2[a2, n]*S2[a1, a3, a4, a5, n] + 
    S2[a2, n]*S2[a1, a3, a5, a4, n] + S2[a1, a3, a5, SP[a2, a4], n] + 
    S2[a1, a3, SP[a2, a4], a5, n] - S2[a1, a3, SP[a4, a5], a2, n] - 
    S2[a1, a4, a2, SP[a3, a5], n] - S2[a5, n]*S2[a1, a4, a3, a2, n] + 
    S2[a2, n]*S2[a1, a4, a3, a5, n] + S2[a2, n]*S2[a1, a4, a5, a3, n] + 
    S2[a1, a4, a5, SP[a2, a3], n] + S2[a1, a4, SP[a2, a3], a5, n] - 
    S2[a1, a4, SP[a3, a5], a2, n] - S2[a1, a5, a2, SP[a3, a4], n] + 
    S2[a2, n]*S2[a1, a5, a3, a4, n] + S2[a1, a5, a3, SP[a2, a4], n] + 
    S2[a2, n]*S2[a1, a5, a4, a3, n] + S2[a1, a5, a4, SP[a2, a3], n] + 
    S2[a1, a5, SP[a2, a3], a4, n] + S2[a1, SP[a2, a3], a4, a5, n] + 
    S2[a1, SP[a2, a3], a5, a4, n] - S2[a1, SP[a3, a5], a2, a4, n] - 
    S2[a1, SP[a3, a5], a4, a2, n] - S2[a1, SP[a4, a5], a3, a2, n] - 
    S2[a2, a1, a4, SP[a3, a5], n] - S2[a2, a1, a5, SP[a3, a4], n] - 
    S2[a2, a1, SP[a3, a4], a5, n] - S2[a2, a1, SP[a3, a5], a4, n] + 
    S2[a5, n]*S2[a2, a3, a1, a4, n] + S2[a2, a3, a1, SP[a4, a5], n] + 
    S2[a2, a3, SP[a1, a5], a4, n] - S2[a2, SP[a1, a3], a4, a5, n] - 
    S2[a2, SP[a1, a3], a5, a4, n] + S2[a2, SP[a3, a5], a1, a4, n] - 
    S2[a2, n]*S2[a5, a3, a1, a4, n] - S2[a5, a3, a1, SP[a2, a4], n] - 
    S2[a5, a3, SP[a1, a2], a4, n] - S2[a5, SP[a2, a3], a1, a4, n] - 
    S2[SP[a1, a5], a3, a2, a4, n] - S2[SP[a1, a5], a3, a4, a2, n] - 
    S2[SP[a1, a5], a4, a3, a2, n] + S2[a5, a1, a3, a2, a4, n] + 
    S2[a5, a1, a3, a4, a2, n] + S2[a5, a1, a4, a3, a2, n] + 
    S2[a5, a3, a1, a2, a4, n] + S2[a5, a3, a1, a4, a2, n] + 
    S2[a5, a3, a2, a1, a4, n] /; MyMemberQ[{{a1, a2, a3, a4, a5}}, 
     {a1, a2, a3, a4, a5}] && a1 != a2 != a3 != a4 != a5, 
 S2[a2_, a3_, a5_, a4_, a1_, n_] :> 
  S2[a2, a3, n]*S2[a1, a4, a5, n] - S2[a1, SP[a2, a4], SP[a3, a5], n] - 
    S2[SP[a1, a2], a4, SP[a3, a5], n] - S2[SP[a1, a2], SP[a3, a4], a5, n] + 
    S2[a1, a2, a4, SP[a3, a5], n] + S2[a1, a2, SP[a3, a4], a5, n] + 
    S2[a5, n]*S2[a1, a3, a2, a4, n] + S2[a1, a3, a2, SP[a4, a5], n] + 
    S2[a5, n]*S2[a1, a3, a4, a2, n] - S2[a2, n]*S2[a1, a3, a4, a5, n] - 
    S2[a2, n]*S2[a1, a3, a5, a4, n] - S2[a1, a3, a5, SP[a2, a4], n] - 
    S2[a1, a3, SP[a2, a4], a5, n] + S2[a1, a3, SP[a4, a5], a2, n] + 
    S2[a1, a4, a2, SP[a3, a5], n] + S2[a5, n]*S2[a1, a4, a3, a2, n] - 
    S2[a2, n]*S2[a1, a4, a3, a5, n] - S2[a2, n]*S2[a1, a4, a5, a3, n] - 
    S2[a1, a4, a5, SP[a2, a3], n] - S2[a1, a4, SP[a2, a3], a5, n] + 
    S2[a1, a4, SP[a3, a5], a2, n] - S2[a1, SP[a2, a3], a4, a5, n] - 
    S2[a1, SP[a2, a3], a5, a4, n] + S2[a1, SP[a3, a5], a2, a4, n] + 
    S2[a1, SP[a3, a5], a4, a2, n] + S2[a1, SP[a4, a5], a3, a2, n] + 
    S2[a2, a1, a4, SP[a3, a5], n] + S2[a2, a1, SP[a3, a4], a5, n] - 
    S2[a5, n]*S2[a2, a3, a1, a4, n] - S2[a2, a3, a1, SP[a4, a5], n] + 
    S2[a1, n]*S2[a2, a3, a5, a4, n] + S2[a2, a3, a5, SP[a1, a4], n] + 
    S2[a2, SP[a1, a3], a4, a5, n] + S2[a2, SP[a1, a3], a5, a4, n] - 
    S2[a2, SP[a3, a5], a1, a4, n] + S2[a2, n]*S2[a5, a3, a1, a4, n] + 
    S2[a5, a3, a1, SP[a2, a4], n] - S2[a1, n]*S2[a5, a3, a2, a4, n] - 
    S2[a5, a3, a2, SP[a1, a4], n] - S2[a1, n]*S2[a5, a3, a4, a2, n] - 
    S2[a5, a3, a4, SP[a1, a2], n] - S2[a5, a3, SP[a1, a4], a2, n] - 
    S2[a1, n]*S2[a5, a4, a3, a2, n] - S2[a5, a4, a3, SP[a1, a2], n] - 
    S2[a5, a4, SP[a1, a3], a2, n] - S2[a5, SP[a1, a3], a2, a4, n] - 
    S2[a5, SP[a1, a3], a4, a2, n] - S2[a5, SP[a1, a4], a3, a2, n] + 
    S2[a5, SP[a2, a3], a1, a4, n] + S2[a5, a3, a2, a4, a1, n] + 
    S2[a5, a3, a4, a1, a2, n] + S2[a5, a3, a4, a2, a1, n] + 
    S2[a5, a4, a1, a3, a2, n] + S2[a5, a4, a3, a1, a2, n] + 
    S2[a5, a4, a3, a2, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5}}, 
     {a1, a2, a3, a4, a5}] && a1 != a2 != a3 != a4 != a5, 
 S2[a2_, a4_, a1_, a3_, a5_, n_] :> 
  S2[a2, a4, n]*S2[a1, a3, a5, n] + S2[a3, a5, n]*S2[a1, a4, a2, n] - 
    S2[a1, SP[a2, a3], SP[a4, a5], n] - S2[a1, SP[a3, a4], SP[a2, a5], n] - 
    S2[SP[a1, a2], a3, SP[a4, a5], n] - S2[SP[a1, a2], SP[a3, a4], a5, n] - 
    S2[SP[a1, a3], a4, SP[a2, a5], n] - S2[SP[a1, a3], SP[a4, a5], a2, n] + 
    S2[a1, a2, a3, SP[a4, a5], n] + S2[a1, a2, SP[a3, a4], a5, n] + 
    S2[a1, a3, a2, SP[a4, a5], n] + S2[a5, n]*S2[a1, a3, a4, a2, n] - 
    S2[a2, n]*S2[a1, a3, a4, a5, n] + S2[a1, a3, a4, SP[a2, a5], n] - 
    S2[a2, n]*S2[a1, a3, a5, a4, n] - S2[a1, a3, a5, SP[a2, a4], n] - 
    S2[a1, a3, SP[a2, a4], a5, n] + 2*S2[a1, a3, SP[a4, a5], a2, n] + 
    S2[a5, n]*S2[a1, a4, a2, a3, n] - S2[a3, n]*S2[a1, a4, a2, a5, n] + 
    S2[a5, n]*S2[a1, a4, a3, a2, n] - S2[a2, n]*S2[a1, a4, a3, a5, n] + 
    S2[a1, a4, a3, SP[a2, a5], n] - S2[a3, n]*S2[a1, a4, a5, a2, n] - 
    S2[a1, a4, a5, SP[a2, a3], n] - S2[a1, a4, SP[a2, a3], a5, n] + 
    S2[a1, a4, SP[a2, a5], a3, n] - S2[a3, n]*S2[a1, a5, a4, a2, n] - 
    S2[a1, a5, a4, SP[a2, a3], n] - S2[a1, a5, SP[a3, a4], a2, n] - 
    S2[a1, SP[a2, a4], a3, a5, n] + S2[a1, SP[a4, a5], a2, a3, n] + 
    S2[a1, SP[a4, a5], a3, a2, n] + S2[a2, a1, a3, SP[a4, a5], n] + 
    S2[a2, a1, SP[a3, a4], a5, n] + S2[a2, SP[a1, a4], a3, a5, n] + 
    S2[a3, a1, a4, SP[a2, a5], n] + S2[a3, a1, SP[a4, a5], a2, n] + 
    S2[a3, SP[a1, a5], a4, a2, n] - S2[a3, n]*S2[a5, a1, a4, a2, n] - 
    S2[a5, a1, a4, SP[a2, a3], n] - S2[a5, a1, SP[a3, a4], a2, n] - 
    S2[a5, SP[a1, a3], a4, a2, n] + S2[SP[a1, a5], a3, a4, a2, n] + 
    S2[SP[a1, a5], a4, a2, a3, n] + S2[SP[a1, a5], a4, a3, a2, n] - 
    S2[SP[a3, a5], a1, a4, a2, n] + S2[a5, a3, a1, a4, a2, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5}}, {a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a2_, a4_, a1_, a5_, a3_, n_] :> 
  -(S2[a3, a5, n]*S2[a1, a4, a2, n]) + S2[a2, a4, n]*S2[a1, a5, a3, n] - 
    S2[a1, SP[a2, a5], SP[a3, a4], n] + S2[a1, SP[a3, a4], SP[a2, a5], n] - 
    S2[SP[a1, a2], a5, SP[a3, a4], n] - S2[SP[a1, a2], SP[a4, a5], a3, n] + 
    S2[SP[a1, a3], a4, SP[a2, a5], n] + S2[SP[a1, a3], SP[a4, a5], a2, n] + 
    S2[a1, a2, a5, SP[a3, a4], n] + S2[a1, a2, SP[a4, a5], a3, n] - 
    S2[a1, a3, a4, SP[a2, a5], n] - S2[a1, a3, SP[a4, a5], a2, n] + 
    S2[a3, n]*S2[a1, a4, a2, a5, n] + S2[a1, a4, a2, SP[a3, a5], n] - 
    S2[a1, a4, a3, SP[a2, a5], n] + S2[a3, n]*S2[a1, a4, a5, a2, n] - 
    S2[a2, n]*S2[a1, a4, a5, a3, n] - S2[a1, a4, SP[a2, a5], a3, n] + 
    S2[a1, a4, SP[a3, a5], a2, n] + S2[a1, a5, a2, SP[a3, a4], n] - 
    S2[a2, n]*S2[a1, a5, a3, a4, n] - S2[a1, a5, a3, SP[a2, a4], n] + 
    S2[a3, n]*S2[a1, a5, a4, a2, n] - S2[a2, n]*S2[a1, a5, a4, a3, n] - 
    S2[a1, a5, SP[a2, a4], a3, n] + S2[a1, a5, SP[a3, a4], a2, n] - 
    S2[a1, SP[a2, a4], a5, a3, n] + S2[a1, SP[a3, a5], a4, a2, n] + 
    S2[a2, a1, a5, SP[a3, a4], n] + S2[a2, a1, SP[a4, a5], a3, n] + 
    S2[a2, SP[a1, a4], a5, a3, n] - S2[a3, a1, a4, SP[a2, a5], n] - 
    S2[a3, a1, SP[a4, a5], a2, n] - S2[a3, SP[a1, a5], a4, a2, n] + 
    S2[a3, n]*S2[a5, a1, a4, a2, n] + S2[a5, a1, a4, SP[a2, a3], n] + 
    S2[a5, a1, SP[a3, a4], a2, n] + S2[a5, SP[a1, a3], a4, a2, n] + 
    S2[SP[a3, a5], a1, a4, a2, n] - S2[a5, a1, a3, a4, a2, n] - 
    S2[a5, a1, a4, a2, a3, n] - S2[a5, a1, a4, a3, a2, n] - 
    S2[a5, a3, a1, a4, a2, n] /; MyMemberQ[{{a1, a2, a3, a4, a5}}, 
     {a1, a2, a3, a4, a5}] && a1 != a2 != a3 != a4 != a5, 
 S2[a2_, a4_, a3_, a1_, a5_, n_] :> 
  -(S2[a2, a4, n]*S2[a1, a3, a5, n]) - S2[a2, a4, n]*S2[a1, a5, a3, n] + 
    S2[a1, SP[a2, a3], SP[a4, a5], n] + S2[a1, SP[a2, a5], SP[a3, a4], n] + 
    S2[a1, a5, n]*S2[a2, a4, a3, n] - S2[a2, SP[a1, a4], SP[a3, a5], n] + 
    S2[SP[a1, a2], a3, SP[a4, a5], n] - S2[SP[a1, a2], a4, SP[a3, a5], n] + 
    S2[SP[a1, a2], a5, SP[a3, a4], n] + S2[SP[a1, a2], SP[a3, a4], a5, n] - 
    S2[a1, a2, a3, SP[a4, a5], n] + S2[a1, a2, a4, SP[a3, a5], n] - 
    S2[a1, a2, a5, SP[a3, a4], n] - S2[a1, a2, SP[a3, a4], a5, n] - 
    S2[a1, a3, a2, SP[a4, a5], n] - S2[a5, n]*S2[a1, a3, a4, a2, n] + 
    S2[a2, n]*S2[a1, a3, a4, a5, n] + S2[a2, n]*S2[a1, a3, a5, a4, n] + 
    S2[a1, a3, a5, SP[a2, a4], n] + S2[a1, a3, SP[a2, a4], a5, n] - 
    S2[a1, a3, SP[a4, a5], a2, n] - S2[a1, a5, a2, SP[a3, a4], n] + 
    S2[a2, n]*S2[a1, a5, a3, a4, n] + S2[a1, a5, a3, SP[a2, a4], n] - 
    S2[a1, SP[a3, a5], a4, a2, n] - S2[a2, a1, a3, SP[a4, a5], n] + 
    S2[a2, a1, a4, SP[a3, a5], n] - S2[a2, a1, a5, SP[a3, a4], n] - 
    S2[a2, a1, SP[a3, a4], a5, n] + S2[a2, a4, a1, SP[a3, a5], n] + 
    S2[a2, a4, SP[a1, a3], a5, n] - S2[SP[a1, a5], a3, a4, a2, n] + 
    S2[a5, a1, a3, a4, a2, n] /; MyMemberQ[{{a1, a2, a3, a4, a5}}, 
     {a1, a2, a3, a4, a5}] && a1 != a2 != a3 != a4 != a5, 
 S2[a2_, a4_, a3_, a5_, a1_, n_] :> 
  S2[a2, a4, n]*S2[a1, a5, a3, n] - S2[a1, SP[a2, a5], SP[a3, a4], n] - 
    S2[a1, a5, n]*S2[a2, a4, a3, n] + S2[a2, SP[a1, a4], SP[a3, a5], n] + 
    S2[SP[a1, a2], a4, SP[a3, a5], n] - S2[SP[a1, a2], a5, SP[a3, a4], n] - 
    S2[a1, a2, a4, SP[a3, a5], n] + S2[a1, a2, a5, SP[a3, a4], n] + 
    S2[a1, a5, a2, SP[a3, a4], n] - S2[a2, n]*S2[a1, a5, a3, a4, n] - 
    S2[a1, a5, a3, SP[a2, a4], n] - S2[a2, a1, a4, SP[a3, a5], n] + 
    S2[a2, a1, a5, SP[a3, a4], n] - S2[a2, a4, a1, SP[a3, a5], n] + 
    S2[a1, n]*S2[a2, a4, a3, a5, n] + S2[a2, a4, a3, SP[a1, a5], n] + 
    S2[a1, n]*S2[a5, a3, a4, a2, n] + S2[a5, a3, a4, SP[a1, a2], n] + 
    S2[a5, a3, SP[a1, a4], a2, n] + S2[a5, SP[a1, a3], a4, a2, n] + 
    S2[SP[a1, a5], a3, a4, a2, n] - S2[a5, a1, a3, a4, a2, n] - 
    S2[a5, a3, a1, a4, a2, n] - S2[a5, a3, a4, a1, a2, n] - 
    S2[a5, a3, a4, a2, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5}}, 
     {a1, a2, a3, a4, a5}] && a1 != a2 != a3 != a4 != a5, 
 S2[a2_, a4_, a5_, a1_, a3_, n_] :> 
  -(S2[a2, a4, n]*S2[a1, a3, a5, n]) - S2[a2, a4, n]*S2[a1, a5, a3, n] + 
    S2[a1, SP[a2, a3], SP[a4, a5], n] + S2[a1, SP[a2, a5], SP[a3, a4], n] + 
    S2[SP[a1, a2], a3, SP[a4, a5], n] + S2[SP[a1, a2], a5, SP[a3, a4], n] + 
    S2[SP[a1, a2], SP[a3, a4], a5, n] + S2[SP[a1, a2], SP[a4, a5], a3, n] - 
    S2[a1, a2, a3, SP[a4, a5], n] - S2[a1, a2, a5, SP[a3, a4], n] - 
    S2[a1, a2, SP[a3, a4], a5, n] - S2[a1, a2, SP[a4, a5], a3, n] - 
    S2[a1, a3, a2, SP[a4, a5], n] - S2[a5, n]*S2[a1, a3, a4, a2, n] + 
    S2[a2, n]*S2[a1, a3, a4, a5, n] + S2[a2, n]*S2[a1, a3, a5, a4, n] + 
    S2[a1, a3, a5, SP[a2, a4], n] + S2[a1, a3, SP[a2, a4], a5, n] - 
    S2[a1, a3, SP[a4, a5], a2, n] - S2[a5, n]*S2[a1, a4, a2, a3, n] - 
    S2[a1, a4, a2, SP[a3, a5], n] - S2[a5, n]*S2[a1, a4, a3, a2, n] + 
    S2[a2, n]*S2[a1, a4, a3, a5, n] + S2[a2, n]*S2[a1, a4, a5, a3, n] + 
    S2[a1, a4, a5, SP[a2, a3], n] + S2[a1, a4, SP[a2, a3], a5, n] - 
    S2[a1, a4, SP[a3, a5], a2, n] - S2[a1, a5, a2, SP[a3, a4], n] + 
    S2[a2, n]*S2[a1, a5, a3, a4, n] + S2[a1, a5, a3, SP[a2, a4], n] + 
    S2[a2, n]*S2[a1, a5, a4, a3, n] + S2[a1, a5, a4, SP[a2, a3], n] + 
    S2[a1, a5, SP[a2, a4], a3, n] + S2[a1, SP[a2, a4], a3, a5, n] + 
    S2[a1, SP[a2, a4], a5, a3, n] - S2[a1, SP[a3, a5], a4, a2, n] - 
    S2[a1, SP[a4, a5], a2, a3, n] - S2[a1, SP[a4, a5], a3, a2, n] - 
    S2[a2, a1, a3, SP[a4, a5], n] - S2[a2, a1, a5, SP[a3, a4], n] - 
    S2[a2, a1, SP[a3, a4], a5, n] - S2[a2, a1, SP[a4, a5], a3, n] + 
    S2[a5, n]*S2[a2, a4, a1, a3, n] + S2[a2, a4, a1, SP[a3, a5], n] + 
    S2[a2, a4, SP[a1, a5], a3, n] - S2[a2, SP[a1, a4], a3, a5, n] - 
    S2[a2, SP[a1, a4], a5, a3, n] + S2[a2, SP[a4, a5], a1, a3, n] - 
    S2[a2, n]*S2[a5, a4, a1, a3, n] - S2[a5, a4, a1, SP[a2, a3], n] - 
    S2[a5, a4, SP[a1, a2], a3, n] - S2[a5, SP[a2, a4], a1, a3, n] - 
    S2[SP[a1, a5], a3, a4, a2, n] - S2[SP[a1, a5], a4, a2, a3, n] - 
    S2[SP[a1, a5], a4, a3, a2, n] + S2[a5, a1, a3, a4, a2, n] + 
    S2[a5, a1, a4, a2, a3, n] + S2[a5, a1, a4, a3, a2, n] + 
    S2[a5, a4, a1, a2, a3, n] + S2[a5, a4, a1, a3, a2, n] + 
    S2[a5, a4, a2, a1, a3, n] /; MyMemberQ[{{a1, a2, a3, a4, a5}}, 
     {a1, a2, a3, a4, a5}] && a1 != a2 != a3 != a4 != a5, 
 S2[a2_, a4_, a5_, a3_, a1_, n_] :> 
  S2[a2, a4, n]*S2[a1, a3, a5, n] - S2[a1, SP[a2, a3], SP[a4, a5], n] - 
    S2[SP[a1, a2], a3, SP[a4, a5], n] - S2[SP[a1, a2], SP[a3, a4], a5, n] + 
    S2[a1, a2, a3, SP[a4, a5], n] + S2[a1, a2, SP[a3, a4], a5, n] + 
    S2[a1, a3, a2, SP[a4, a5], n] + S2[a5, n]*S2[a1, a3, a4, a2, n] - 
    S2[a2, n]*S2[a1, a3, a4, a5, n] - S2[a2, n]*S2[a1, a3, a5, a4, n] - 
    S2[a1, a3, a5, SP[a2, a4], n] - S2[a1, a3, SP[a2, a4], a5, n] + 
    S2[a1, a3, SP[a4, a5], a2, n] + S2[a5, n]*S2[a1, a4, a2, a3, n] + 
    S2[a1, a4, a2, SP[a3, a5], n] + S2[a5, n]*S2[a1, a4, a3, a2, n] - 
    S2[a2, n]*S2[a1, a4, a3, a5, n] - S2[a2, n]*S2[a1, a4, a5, a3, n] - 
    S2[a1, a4, a5, SP[a2, a3], n] - S2[a1, a4, SP[a2, a3], a5, n] + 
    S2[a1, a4, SP[a3, a5], a2, n] - S2[a1, SP[a2, a4], a3, a5, n] - 
    S2[a1, SP[a2, a4], a5, a3, n] + S2[a1, SP[a3, a5], a4, a2, n] + 
    S2[a1, SP[a4, a5], a2, a3, n] + S2[a1, SP[a4, a5], a3, a2, n] + 
    S2[a2, a1, a3, SP[a4, a5], n] + S2[a2, a1, SP[a3, a4], a5, n] - 
    S2[a5, n]*S2[a2, a4, a1, a3, n] - S2[a2, a4, a1, SP[a3, a5], n] + 
    S2[a1, n]*S2[a2, a4, a5, a3, n] + S2[a2, a4, a5, SP[a1, a3], n] + 
    S2[a2, SP[a1, a4], a3, a5, n] + S2[a2, SP[a1, a4], a5, a3, n] - 
    S2[a2, SP[a4, a5], a1, a3, n] - S2[a1, n]*S2[a5, a3, a4, a2, n] - 
    S2[a5, a3, a4, SP[a1, a2], n] - S2[a5, a3, SP[a1, a4], a2, n] + 
    S2[a2, n]*S2[a5, a4, a1, a3, n] + S2[a5, a4, a1, SP[a2, a3], n] - 
    S2[a1, n]*S2[a5, a4, a2, a3, n] - S2[a5, a4, a2, SP[a1, a3], n] - 
    S2[a1, n]*S2[a5, a4, a3, a2, n] - S2[a5, a4, a3, SP[a1, a2], n] - 
    S2[a5, a4, SP[a1, a3], a2, n] - S2[a5, SP[a1, a3], a4, a2, n] - 
    S2[a5, SP[a1, a4], a2, a3, n] - S2[a5, SP[a1, a4], a3, a2, n] + 
    S2[a5, SP[a2, a4], a1, a3, n] + S2[a5, a3, a1, a4, a2, n] + 
    S2[a5, a3, a4, a1, a2, n] + S2[a5, a3, a4, a2, a1, n] + 
    S2[a5, a4, a2, a3, a1, n] + S2[a5, a4, a3, a1, a2, n] + 
    S2[a5, a4, a3, a2, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5}}, 
     {a1, a2, a3, a4, a5}] && a1 != a2 != a3 != a4 != a5, 
 S2[a2_, a5_, a1_, a3_, a4_, n_] :> 
  S2[a2, n]*S2[a5, a1, a3, a4, n] + S2[a5, a1, a3, SP[a2, a4], n] + 
    S2[a5, a1, SP[a2, a3], a4, n] + S2[a5, SP[a1, a2], a3, a4, n] + 
    S2[SP[a2, a5], a1, a3, a4, n] - S2[a5, a1, a2, a3, a4, n] - 
    S2[a5, a1, a3, a2, a4, n] - S2[a5, a1, a3, a4, a2, n] - 
    S2[a5, a2, a1, a3, a4, n] /; MyMemberQ[{{a1, a2, a3, a4, a5}}, 
     {a1, a2, a3, a4, a5}] && a1 != a2 != a3 != a4 != a5, 
 S2[a2_, a5_, a1_, a4_, a3_, n_] :> 
  S2[a2, n]*S2[a5, a1, a4, a3, n] + S2[a5, a1, a4, SP[a2, a3], n] + 
    S2[a5, a1, SP[a2, a4], a3, n] + S2[a5, SP[a1, a2], a4, a3, n] + 
    S2[SP[a2, a5], a1, a4, a3, n] - S2[a5, a1, a2, a4, a3, n] - 
    S2[a5, a1, a4, a2, a3, n] - S2[a5, a1, a4, a3, a2, n] - 
    S2[a5, a2, a1, a4, a3, n] /; MyMemberQ[{{a1, a2, a3, a4, a5}}, 
     {a1, a2, a3, a4, a5}] && a1 != a2 != a3 != a4 != a5, 
 S2[a2_, a5_, a3_, a1_, a4_, n_] :> 
  S2[a2, n]*S2[a5, a3, a1, a4, n] + S2[a5, a3, a1, SP[a2, a4], n] + 
    S2[a5, a3, SP[a1, a2], a4, n] + S2[a5, SP[a2, a3], a1, a4, n] + 
    S2[SP[a2, a5], a3, a1, a4, n] - S2[a5, a2, a3, a1, a4, n] - 
    S2[a5, a3, a1, a2, a4, n] - S2[a5, a3, a1, a4, a2, n] - 
    S2[a5, a3, a2, a1, a4, n] /; MyMemberQ[{{a1, a2, a3, a4, a5}}, 
     {a1, a2, a3, a4, a5}] && a1 != a2 != a3 != a4 != a5, 
 S2[a2_, a5_, a3_, a4_, a1_, n_] :> 
  -(S2[a2, n]*S2[a1, a5, a3, a4, n]) - S2[a1, a5, a3, SP[a2, a4], n] - 
    S2[a1, a5, SP[a2, a3], a4, n] - S2[a1, SP[a2, a5], a3, a4, n] + 
    S2[a1, n]*S2[a2, a5, a3, a4, n] + S2[a2, a5, a3, SP[a1, a4], n] + 
    S2[a2, a5, SP[a1, a3], a4, n] + S2[a2, SP[a1, a5], a3, a4, n] - 
    S2[a2, n]*S2[a5, a1, a3, a4, n] - S2[a5, a1, a3, SP[a2, a4], n] - 
    S2[a5, a1, SP[a2, a3], a4, n] + S2[a1, n]*S2[a5, a2, a3, a4, n] + 
    S2[a5, a2, a3, SP[a1, a4], n] + S2[a5, a2, SP[a1, a3], a4, n] - 
    S2[a2, n]*S2[a5, a3, a1, a4, n] - S2[a5, a3, a1, SP[a2, a4], n] + 
    S2[a1, n]*S2[a5, a3, a2, a4, n] + S2[a5, a3, a2, SP[a1, a4], n] + 
    S2[a1, n]*S2[a5, a3, a4, a2, n] + S2[a5, a3, a4, SP[a1, a2], n] + 
    S2[a5, a3, SP[a1, a4], a2, n] + S2[a5, SP[a1, a3], a2, a4, n] + 
    S2[a5, SP[a1, a3], a4, a2, n] - S2[a5, SP[a2, a3], a1, a4, n] + 
    S2[SP[a1, a5], a2, a3, a4, n] + S2[SP[a1, a5], a3, a2, a4, n] + 
    S2[SP[a1, a5], a3, a4, a2, n] - S2[SP[a2, a5], a1, a3, a4, n] - 
    S2[SP[a2, a5], a3, a1, a4, n] - S2[a5, a2, a3, a4, a1, n] - 
    S2[a5, a3, a2, a4, a1, n] - S2[a5, a3, a4, a1, a2, n] - 
    S2[a5, a3, a4, a2, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5}}, 
     {a1, a2, a3, a4, a5}] && a1 != a2 != a3 != a4 != a5, 
 S2[a2_, a5_, a4_, a1_, a3_, n_] :> 
  S2[a2, n]*S2[a5, a4, a1, a3, n] + S2[a5, a4, a1, SP[a2, a3], n] + 
    S2[a5, a4, SP[a1, a2], a3, n] + S2[a5, SP[a2, a4], a1, a3, n] + 
    S2[SP[a2, a5], a4, a1, a3, n] - S2[a5, a2, a4, a1, a3, n] - 
    S2[a5, a4, a1, a2, a3, n] - S2[a5, a4, a1, a3, a2, n] - 
    S2[a5, a4, a2, a1, a3, n] /; MyMemberQ[{{a1, a2, a3, a4, a5}}, 
     {a1, a2, a3, a4, a5}] && a1 != a2 != a3 != a4 != a5, 
 S2[a2_, a5_, a4_, a3_, a1_, n_] :> 
  -(S2[a2, n]*S2[a1, a5, a4, a3, n]) - S2[a1, a5, a4, SP[a2, a3], n] - 
    S2[a1, a5, SP[a2, a4], a3, n] - S2[a1, SP[a2, a5], a4, a3, n] + 
    S2[a1, n]*S2[a2, a5, a4, a3, n] + S2[a2, a5, a4, SP[a1, a3], n] + 
    S2[a2, a5, SP[a1, a4], a3, n] + S2[a2, SP[a1, a5], a4, a3, n] - 
    S2[a2, n]*S2[a5, a1, a4, a3, n] - S2[a5, a1, a4, SP[a2, a3], n] - 
    S2[a5, a1, SP[a2, a4], a3, n] + S2[a1, n]*S2[a5, a2, a4, a3, n] + 
    S2[a5, a2, a4, SP[a1, a3], n] + S2[a5, a2, SP[a1, a4], a3, n] - 
    S2[a2, n]*S2[a5, a4, a1, a3, n] - S2[a5, a4, a1, SP[a2, a3], n] + 
    S2[a1, n]*S2[a5, a4, a2, a3, n] + S2[a5, a4, a2, SP[a1, a3], n] + 
    S2[a1, n]*S2[a5, a4, a3, a2, n] + S2[a5, a4, a3, SP[a1, a2], n] + 
    S2[a5, a4, SP[a1, a3], a2, n] + S2[a5, SP[a1, a4], a2, a3, n] + 
    S2[a5, SP[a1, a4], a3, a2, n] - S2[a5, SP[a2, a4], a1, a3, n] + 
    S2[SP[a1, a5], a2, a4, a3, n] + S2[SP[a1, a5], a4, a2, a3, n] + 
    S2[SP[a1, a5], a4, a3, a2, n] - S2[SP[a2, a5], a1, a4, a3, n] - 
    S2[SP[a2, a5], a4, a1, a3, n] - S2[a5, a2, a4, a3, a1, n] - 
    S2[a5, a4, a2, a3, a1, n] - S2[a5, a4, a3, a1, a2, n] - 
    S2[a5, a4, a3, a2, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5}}, 
     {a1, a2, a3, a4, a5}] && a1 != a2 != a3 != a4 != a5, 
 S2[a3_, a1_, a2_, a4_, a5_, n_] :> 
  -(S2[a4, a5, n]*S2[a1, a2, a3, n]) - S2[a4, a5, n]*S2[a1, a3, a2, n] + 
    S2[a1, SP[a2, a4], SP[a3, a5], n] + S2[a1, SP[a3, a4], SP[a2, a5], n] - 
    S2[a1, a3, n]*S2[a2, a4, a5, n] + S2[a2, SP[a1, a4], SP[a3, a5], n] + 
    S2[SP[a1, a2], a4, SP[a3, a5], n] + S2[SP[a1, a2], SP[a3, a4], a5, n] + 
    S2[SP[a1, a4], a2, SP[a3, a5], n] + S2[SP[a1, a4], a3, SP[a2, a5], n] + 
    S2[SP[a1, a4], SP[a2, a5], a3, n] + S2[SP[a1, a4], SP[a3, a5], a2, n] - 
    S2[a5, n]*S2[a1, a2, a3, a4, n] + S2[a4, n]*S2[a1, a2, a3, a5, n] - 
    S2[a5, n]*S2[a1, a2, a4, a3, n] + S2[a3, n]*S2[a1, a2, a4, a5, n] - 
    2*S2[a1, a2, a4, SP[a3, a5], n] + S2[a4, n]*S2[a1, a2, a5, a3, n] + 
    S2[a1, a2, a5, SP[a3, a4], n] - S2[a1, a2, SP[a3, a5], a4, n] - 
    S2[a5, n]*S2[a1, a3, a2, a4, n] + S2[a4, n]*S2[a1, a3, a2, a5, n] - 
    S2[a5, n]*S2[a1, a3, a4, a2, n] + S2[a2, n]*S2[a1, a3, a4, a5, n] - 
    S2[a1, a3, a4, SP[a2, a5], n] + S2[a4, n]*S2[a1, a3, a5, a2, n] + 
    S2[a1, a3, a5, SP[a2, a4], n] + S2[a1, a3, SP[a2, a4], a5, n] - 
    S2[a1, a3, SP[a2, a5], a4, n] - S2[a5, n]*S2[a1, a4, a2, a3, n] - 
    2*S2[a1, a4, a2, SP[a3, a5], n] - S2[a5, n]*S2[a1, a4, a3, a2, n] + 
    S2[a2, n]*S2[a1, a4, a3, a5, n] - S2[a1, a4, a3, SP[a2, a5], n] + 
    S2[a2, n]*S2[a1, a4, a5, a3, n] + S2[a1, a4, a5, SP[a2, a3], n] + 
    S2[a1, a4, SP[a2, a3], a5, n] - S2[a1, a4, SP[a2, a5], a3, n] - 
    2*S2[a1, a4, SP[a3, a5], a2, n] + S2[a4, n]*S2[a1, a5, a2, a3, n] + 
    S2[a1, a5, a2, SP[a3, a4], n] + S2[a4, n]*S2[a1, a5, a3, a2, n] + 
    S2[a1, a5, a3, SP[a2, a4], n] + S2[a1, a5, SP[a2, a4], a3, n] + 
    S2[a1, a5, SP[a3, a4], a2, n] + S2[a1, SP[a2, a3], a4, a5, n] + 
    S2[a1, SP[a2, a4], a3, a5, n] + S2[a1, SP[a2, a4], a5, a3, n] - 
    S2[a1, SP[a2, a5], a3, a4, n] - S2[a1, SP[a2, a5], a4, a3, n] - 
    S2[a1, SP[a3, a5], a2, a4, n] - S2[a1, SP[a3, a5], a4, a2, n] - 
    S2[a2, a1, a4, SP[a3, a5], n] - S2[a2, a1, SP[a3, a4], a5, n] + 
    S2[a5, n]*S2[a2, a4, a1, a3, n] - S2[a2, SP[a1, a4], a3, a5, n] - 
    S2[a2, SP[a1, a4], a5, a3, n] + S2[a2, SP[a4, a5], a1, a3, n] - 
    S2[a4, a1, a2, SP[a3, a5], n] - S2[a4, a1, a3, SP[a2, a5], n] - 
    S2[a4, a1, SP[a2, a5], a3, n] - S2[a4, a1, SP[a3, a5], a2, n] - 
    S2[a4, SP[a1, a5], a2, a3, n] - S2[a4, SP[a1, a5], a3, a2, n] + 
    S2[a4, n]*S2[a5, a1, a2, a3, n] + S2[a5, a1, a2, SP[a3, a4], n] + 
    S2[a4, n]*S2[a5, a1, a3, a2, n] + S2[a5, a1, a3, SP[a2, a4], n] + 
    S2[a5, a1, SP[a2, a4], a3, n] + S2[a5, a1, SP[a3, a4], a2, n] - 
    S2[a2, n]*S2[a5, a4, a1, a3, n] - S2[a5, a4, a1, SP[a2, a3], n] - 
    S2[a5, a4, SP[a1, a2], a3, n] + S2[a5, SP[a1, a4], a2, a3, n] + 
    S2[a5, SP[a1, a4], a3, a2, n] - S2[a5, SP[a2, a4], a1, a3, n] + 
    S2[SP[a1, a3], a2, a4, a5, n] - S2[SP[a1, a5], a2, a3, a4, n] - 
    S2[SP[a1, a5], a2, a4, a3, n] - S2[SP[a1, a5], a3, a2, a4, n] - 
    S2[SP[a1, a5], a3, a4, a2, n] - S2[SP[a1, a5], a4, a2, a3, n] - 
    S2[SP[a1, a5], a4, a3, a2, n] + S2[SP[a4, a5], a1, a2, a3, n] + 
    S2[SP[a4, a5], a1, a3, a2, n] + S2[a5, a4, a2, a1, a3, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5}}, {a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a3_, a1_, a2_, a5_, a4_, n_] :> 
  S2[a4, a5, n]*S2[a1, a2, a3, n] + S2[a4, a5, n]*S2[a1, a3, a2, n] - 
    S2[a1, SP[a2, a4], SP[a3, a5], n] - S2[a1, SP[a3, a4], SP[a2, a5], n] - 
    S2[a1, a3, n]*S2[a2, a5, a4, n] + S2[a2, SP[a1, a5], SP[a3, a4], n] + 
    S2[SP[a1, a2], a5, SP[a3, a4], n] + S2[SP[a1, a2], SP[a3, a5], a4, n] - 
    S2[SP[a1, a4], a2, SP[a3, a5], n] - S2[SP[a1, a4], a3, SP[a2, a5], n] - 
    S2[SP[a1, a4], SP[a2, a5], a3, n] - S2[SP[a1, a4], SP[a3, a5], a2, n] - 
    S2[a4, n]*S2[a1, a2, a3, a5, n] - S2[a1, a2, a3, SP[a4, a5], n] + 
    S2[a1, a2, a4, SP[a3, a5], n] - S2[a4, n]*S2[a1, a2, a5, a3, n] + 
    S2[a3, n]*S2[a1, a2, a5, a4, n] - S2[a1, a2, a5, SP[a3, a4], n] - 
    S2[a1, a2, SP[a4, a5], a3, n] - S2[a4, n]*S2[a1, a3, a2, a5, n] - 
    S2[a1, a3, a2, SP[a4, a5], n] + S2[a1, a3, a4, SP[a2, a5], n] - 
    S2[a4, n]*S2[a1, a3, a5, a2, n] + S2[a2, n]*S2[a1, a3, a5, a4, n] + 
    S2[a1, a3, SP[a2, a5], a4, n] - S2[a1, a3, SP[a4, a5], a2, n] + 
    S2[a1, a4, a2, SP[a3, a5], n] + S2[a1, a4, a3, SP[a2, a5], n] + 
    S2[a1, a4, SP[a2, a5], a3, n] + S2[a1, a4, SP[a3, a5], a2, n] - 
    S2[a4, n]*S2[a1, a5, a2, a3, n] - S2[a1, a5, a2, SP[a3, a4], n] - 
    S2[a4, n]*S2[a1, a5, a3, a2, n] + S2[a2, n]*S2[a1, a5, a3, a4, n] + 
    S2[a2, n]*S2[a1, a5, a4, a3, n] + S2[a1, a5, a4, SP[a2, a3], n] + 
    S2[a1, a5, SP[a2, a3], a4, n] - S2[a1, a5, SP[a3, a4], a2, n] + 
    S2[a1, SP[a2, a3], a5, a4, n] + S2[a1, SP[a2, a5], a3, a4, n] + 
    S2[a1, SP[a2, a5], a4, a3, n] - S2[a1, SP[a4, a5], a2, a3, n] - 
    S2[a1, SP[a4, a5], a3, a2, n] - S2[a2, a1, a5, SP[a3, a4], n] - 
    S2[a2, a1, SP[a3, a5], a4, n] - S2[a2, a5, a1, SP[a3, a4], n] - 
    S2[a2, a5, SP[a1, a4], a3, n] - S2[a2, SP[a1, a5], a3, a4, n] - 
    S2[a2, SP[a1, a5], a4, a3, n] + S2[a4, a1, a2, SP[a3, a5], n] + 
    S2[a4, a1, a3, SP[a2, a5], n] + S2[a4, a1, SP[a2, a5], a3, n] + 
    S2[a4, a1, SP[a3, a5], a2, n] + S2[a4, SP[a1, a5], a2, a3, n] + 
    S2[a4, SP[a1, a5], a3, a2, n] - S2[a4, n]*S2[a5, a1, a2, a3, n] - 
    S2[a5, a1, a2, SP[a3, a4], n] - S2[a4, n]*S2[a5, a1, a3, a2, n] + 
    S2[a2, n]*S2[a5, a1, a3, a4, n] + S2[a2, n]*S2[a5, a1, a4, a3, n] + 
    S2[a5, a1, a4, SP[a2, a3], n] + S2[a5, a1, SP[a2, a3], a4, n] - 
    S2[a5, a1, SP[a3, a4], a2, n] + S2[a2, n]*S2[a5, a4, a1, a3, n] + 
    S2[a5, a4, a1, SP[a2, a3], n] + S2[a5, a4, SP[a1, a2], a3, n] + 
    S2[a5, SP[a1, a2], a3, a4, n] + S2[a5, SP[a1, a2], a4, a3, n] - 
    S2[a5, SP[a1, a4], a2, a3, n] - S2[a5, SP[a1, a4], a3, a2, n] + 
    S2[a5, SP[a2, a4], a1, a3, n] + S2[SP[a1, a3], a2, a5, a4, n] + 
    S2[SP[a2, a5], a1, a3, a4, n] + S2[SP[a2, a5], a1, a4, a3, n] + 
    S2[SP[a2, a5], a4, a1, a3, n] - S2[SP[a4, a5], a1, a2, a3, n] - 
    S2[SP[a4, a5], a1, a3, a2, n] - S2[a5, a2, a1, a3, a4, n] - 
    S2[a5, a2, a1, a4, a3, n] - S2[a5, a2, a4, a1, a3, n] - 
    S2[a5, a4, a2, a1, a3, n] /; MyMemberQ[{{a1, a2, a3, a4, a5}}, 
     {a1, a2, a3, a4, a5}] && a1 != a2 != a3 != a4 != a5, 
 S2[a3_, a1_, a4_, a2_, a5_, n_] :> 
  -(S2[a2, a5, n]*S2[a1, a3, a4, n]) - S2[a2, a5, n]*S2[a1, a4, a3, n] + 
    S2[a1, SP[a2, a3], SP[a4, a5], n] + S2[a1, SP[a2, a4], SP[a3, a5], n] + 
    S2[a1, a3, n]*S2[a2, a4, a5, n] + S2[a1, a3, n]*S2[a2, a5, a4, n] - 
    S2[a2, SP[a1, a4], SP[a3, a5], n] - S2[a2, SP[a1, a5], SP[a3, a4], n] + 
    S2[SP[a1, a2], a3, SP[a4, a5], n] - S2[SP[a1, a2], a5, SP[a3, a4], n] - 
    S2[SP[a1, a2], SP[a3, a4], a5, n] + S2[SP[a1, a2], SP[a4, a5], a3, n] - 
    S2[a1, a2, a3, SP[a4, a5], n] + S2[a1, a2, a5, SP[a3, a4], n] + 
    S2[a1, a2, SP[a3, a4], a5, n] - S2[a1, a2, SP[a4, a5], a3, n] - 
    S2[a1, a3, a2, SP[a4, a5], n] - S2[a1, a3, SP[a2, a4], a5, n] + 
    S2[a3, n]*S2[a1, a4, a2, a5, n] - S2[a1, SP[a2, a4], a3, a5, n] - 
    S2[a1, SP[a2, a4], a5, a3, n] + S2[a1, SP[a3, a4], a2, a5, n] - 
    S2[a2, a1, a3, SP[a4, a5], n] + S2[a2, a1, a5, SP[a3, a4], n] + 
    S2[a2, a1, SP[a3, a4], a5, n] - S2[a2, a1, SP[a4, a5], a3, n] - 
    S2[a5, n]*S2[a2, a4, a1, a3, n] + S2[a2, a5, a1, SP[a3, a4], n] + 
    S2[a2, a5, SP[a1, a4], a3, n] + S2[a2, SP[a1, a4], a3, a5, n] + 
    S2[a2, SP[a1, a4], a5, a3, n] - S2[a2, SP[a4, a5], a1, a3, n] + 
    S2[SP[a1, a3], a4, a2, a5, n] - S2[SP[a2, a5], a4, a1, a3, n] + 
    S2[a5, a2, a4, a1, a3, n] /; MyMemberQ[{{a1, a2, a3, a4, a5}}, 
     {a1, a2, a3, a4, a5}] && a1 != a2 != a3 != a4 != a5, 
 S2[a3_, a1_, a4_, a5_, a2_, n_] :> 
  S2[a2, a5, n]*S2[a1, a3, a4, n] + S2[a2, a5, n]*S2[a1, a4, a3, n] - 
    S2[a1, SP[a2, a3], SP[a4, a5], n] - S2[a1, SP[a2, a4], SP[a3, a5], n] - 
    S2[a1, a3, n]*S2[a2, a5, a4, n] + S2[a2, SP[a1, a5], SP[a3, a4], n] - 
    S2[SP[a1, a2], a3, SP[a4, a5], n] - S2[SP[a1, a2], a4, SP[a3, a5], n] + 
    S2[SP[a1, a2], a5, SP[a3, a4], n] - S2[SP[a1, a2], SP[a4, a5], a3, n] + 
    S2[a1, a2, a3, SP[a4, a5], n] + S2[a1, a2, a4, SP[a3, a5], n] - 
    S2[a1, a2, a5, SP[a3, a4], n] + S2[a1, a2, SP[a4, a5], a3, n] + 
    S2[a1, a3, a2, SP[a4, a5], n] - S2[a2, n]*S2[a1, a3, a4, a5, n] - 
    S2[a1, a3, a4, SP[a2, a5], n] + S2[a1, a4, a2, SP[a3, a5], n] - 
    S2[a2, n]*S2[a1, a4, a3, a5, n] - S2[a1, a4, a3, SP[a2, a5], n] + 
    S2[a3, n]*S2[a1, a4, a5, a2, n] - S2[a2, n]*S2[a1, a4, a5, a3, n] - 
    S2[a1, a4, SP[a2, a5], a3, n] + S2[a1, a4, SP[a3, a5], a2, n] + 
    S2[a1, SP[a3, a4], a5, a2, n] + S2[a2, a1, a3, SP[a4, a5], n] + 
    S2[a2, a1, a4, SP[a3, a5], n] - S2[a2, a1, a5, SP[a3, a4], n] + 
    S2[a2, a1, SP[a4, a5], a3, n] - S2[a2, a5, a1, SP[a3, a4], n] - 
    S2[a2, a5, SP[a1, a4], a3, n] + S2[a2, n]*S2[a5, a4, a1, a3, n] + 
    S2[a5, a4, a1, SP[a2, a3], n] + S2[a5, a4, SP[a1, a2], a3, n] + 
    S2[a5, SP[a2, a4], a1, a3, n] + S2[SP[a1, a3], a4, a5, a2, n] + 
    S2[SP[a2, a5], a4, a1, a3, n] - S2[a5, a2, a4, a1, a3, n] - 
    S2[a5, a4, a1, a2, a3, n] - S2[a5, a4, a1, a3, a2, n] - 
    S2[a5, a4, a2, a1, a3, n] /; MyMemberQ[{{a1, a2, a3, a4, a5}}, 
     {a1, a2, a3, a4, a5}] && a1 != a2 != a3 != a4 != a5, 
 S2[a3_, a1_, a5_, a2_, a4_, n_] :> 
  S2[a1, a3, n]*S2[a2, a4, a5, n] + S2[a1, a3, n]*S2[a2, a5, a4, n] - 
    S2[a2, SP[a1, a4], SP[a3, a5], n] - S2[a2, SP[a1, a5], SP[a3, a4], n] - 
    S2[SP[a1, a2], a4, SP[a3, a5], n] - S2[SP[a1, a2], a5, SP[a3, a4], n] - 
    S2[SP[a1, a2], SP[a3, a4], a5, n] - S2[SP[a1, a2], SP[a3, a5], a4, n] + 
    S2[a1, a2, a4, SP[a3, a5], n] + S2[a1, a2, a5, SP[a3, a4], n] + 
    S2[a1, a2, SP[a3, a4], a5, n] + S2[a1, a2, SP[a3, a5], a4, n] + 
    S2[a5, n]*S2[a1, a3, a4, a2, n] - S2[a2, n]*S2[a1, a3, a4, a5, n] - 
    S2[a2, n]*S2[a1, a3, a5, a4, n] - S2[a1, a3, a5, SP[a2, a4], n] - 
    S2[a1, a3, SP[a2, a4], a5, n] - S2[a1, a3, SP[a2, a5], a4, n] + 
    S2[a1, a3, SP[a4, a5], a2, n] + S2[a5, n]*S2[a1, a4, a2, a3, n] + 
    S2[a1, a4, a2, SP[a3, a5], n] + S2[a5, n]*S2[a1, a4, a3, a2, n] - 
    S2[a2, n]*S2[a1, a4, a3, a5, n] - S2[a2, n]*S2[a1, a4, a5, a3, n] - 
    S2[a1, a4, a5, SP[a2, a3], n] - S2[a1, a4, SP[a2, a3], a5, n] + 
    S2[a1, a4, SP[a3, a5], a2, n] + S2[a3, n]*S2[a1, a5, a2, a4, n] + 
    S2[a1, a5, a2, SP[a3, a4], n] - S2[a2, n]*S2[a1, a5, a3, a4, n] - 
    S2[a1, a5, a3, SP[a2, a4], n] - S2[a2, n]*S2[a1, a5, a4, a3, n] - 
    S2[a1, a5, a4, SP[a2, a3], n] - S2[a1, a5, SP[a2, a4], a3, n] - 
    S2[a1, SP[a2, a4], a3, a5, n] - S2[a1, SP[a2, a4], a5, a3, n] - 
    S2[a1, SP[a2, a5], a3, a4, n] - S2[a1, SP[a2, a5], a4, a3, n] + 
    S2[a1, SP[a3, a5], a2, a4, n] + S2[a1, SP[a3, a5], a4, a2, n] + 
    S2[a1, SP[a4, a5], a2, a3, n] + S2[a1, SP[a4, a5], a3, a2, n] + 
    S2[a2, a1, a4, SP[a3, a5], n] + S2[a2, a1, a5, SP[a3, a4], n] + 
    S2[a2, a1, SP[a3, a4], a5, n] + S2[a2, a1, SP[a3, a5], a4, n] - 
    S2[a5, n]*S2[a2, a4, a1, a3, n] + S2[a2, a5, a1, SP[a3, a4], n] + 
    S2[a2, a5, SP[a1, a4], a3, n] + S2[a2, SP[a1, a4], a3, a5, n] + 
    S2[a2, SP[a1, a4], a5, a3, n] + S2[a2, SP[a1, a5], a3, a4, n] + 
    S2[a2, SP[a1, a5], a4, a3, n] - S2[a2, SP[a4, a5], a1, a3, n] - 
    S2[a2, n]*S2[a5, a1, a3, a4, n] - S2[a5, a1, a3, SP[a2, a4], n] - 
    S2[a2, n]*S2[a5, a1, a4, a3, n] - S2[a5, a1, a4, SP[a2, a3], n] - 
    S2[a5, a1, SP[a2, a3], a4, n] - S2[a5, a1, SP[a2, a4], a3, n] - 
    S2[a5, SP[a1, a2], a3, a4, n] - S2[a5, SP[a1, a2], a4, a3, n] + 
    S2[SP[a1, a3], a5, a2, a4, n] + S2[SP[a1, a5], a3, a4, a2, n] + 
    S2[SP[a1, a5], a4, a2, a3, n] + S2[SP[a1, a5], a4, a3, a2, n] - 
    S2[SP[a2, a5], a1, a3, a4, n] - S2[SP[a2, a5], a1, a4, a3, n] - 
    S2[SP[a2, a5], a4, a1, a3, n] + S2[a5, a1, a2, a3, a4, n] + 
    S2[a5, a1, a2, a4, a3, n] + S2[a5, a1, a3, a2, a4, n] + 
    S2[a5, a2, a1, a3, a4, n] + S2[a5, a2, a1, a4, a3, n] + 
    S2[a5, a2, a4, a1, a3, n] /; MyMemberQ[{{a1, a2, a3, a4, a5}}, 
     {a1, a2, a3, a4, a5}] && a1 != a2 != a3 != a4 != a5, 
 S2[a3_, a1_, a5_, a4_, a2_, n_] :> 
  -(S2[a1, a3, n]*S2[a2, a4, a5, n]) + S2[a2, SP[a1, a4], SP[a3, a5], n] + 
    S2[SP[a1, a2], a4, SP[a3, a5], n] + S2[SP[a1, a2], SP[a3, a4], a5, n] - 
    S2[a1, a2, a4, SP[a3, a5], n] - S2[a1, a2, SP[a3, a4], a5, n] - 
    S2[a5, n]*S2[a1, a3, a4, a2, n] + S2[a2, n]*S2[a1, a3, a4, a5, n] + 
    S2[a1, a3, SP[a2, a4], a5, n] - S2[a1, a3, SP[a4, a5], a2, n] - 
    S2[a5, n]*S2[a1, a4, a2, a3, n] - S2[a1, a4, a2, SP[a3, a5], n] - 
    S2[a5, n]*S2[a1, a4, a3, a2, n] + S2[a2, n]*S2[a1, a4, a3, a5, n] + 
    S2[a2, n]*S2[a1, a4, a5, a3, n] + S2[a1, a4, a5, SP[a2, a3], n] + 
    S2[a1, a4, SP[a2, a3], a5, n] - S2[a1, a4, SP[a3, a5], a2, n] + 
    S2[a3, n]*S2[a1, a5, a4, a2, n] + S2[a1, a5, a4, SP[a2, a3], n] + 
    S2[a1, a5, SP[a3, a4], a2, n] + S2[a1, SP[a2, a4], a3, a5, n] + 
    S2[a1, SP[a2, a4], a5, a3, n] - S2[a1, SP[a4, a5], a2, a3, n] - 
    S2[a1, SP[a4, a5], a3, a2, n] - S2[a2, a1, a4, SP[a3, a5], n] - 
    S2[a2, a1, SP[a3, a4], a5, n] + S2[a5, n]*S2[a2, a4, a1, a3, n] - 
    S2[a2, SP[a1, a4], a3, a5, n] - S2[a2, SP[a1, a4], a5, a3, n] + 
    S2[a2, SP[a4, a5], a1, a3, n] - S2[a2, n]*S2[a5, a4, a1, a3, n] - 
    S2[a5, a4, a1, SP[a2, a3], n] - S2[a5, a4, SP[a1, a2], a3, n] - 
    S2[a5, SP[a2, a4], a1, a3, n] + S2[SP[a1, a3], a5, a4, a2, n] - 
    S2[SP[a1, a5], a3, a4, a2, n] - S2[SP[a1, a5], a4, a2, a3, n] - 
    S2[SP[a1, a5], a4, a3, a2, n] + S2[a5, a1, a3, a4, a2, n] + 
    S2[a5, a1, a4, a2, a3, n] + S2[a5, a1, a4, a3, a2, n] + 
    S2[a5, a4, a1, a2, a3, n] + S2[a5, a4, a1, a3, a2, n] + 
    S2[a5, a4, a2, a1, a3, n] /; MyMemberQ[{{a1, a2, a3, a4, a5}}, 
     {a1, a2, a3, a4, a5}] && a1 != a2 != a3 != a4 != a5, 
 S2[a3_, a2_, a1_, a4_, a5_, n_] :> 
  S2[a4, a5, n]*S2[a1, a2, a3, n] - S2[a2, a3, n]*S2[a1, a4, a5, n] + 
    S2[SP[a1, a2], a4, SP[a3, a5], n] + S2[SP[a1, a2], SP[a3, a4], a5, n] - 
    S2[SP[a1, a4], a2, SP[a3, a5], n] - S2[SP[a1, a4], SP[a2, a5], a3, n] + 
    S2[a5, n]*S2[a1, a2, a3, a4, n] - S2[a4, n]*S2[a1, a2, a3, a5, n] + 
    S2[a5, n]*S2[a1, a2, a4, a3, n] - S2[a3, n]*S2[a1, a2, a4, a5, n] - 
    S2[a4, n]*S2[a1, a2, a5, a3, n] - S2[a1, a2, a5, SP[a3, a4], n] - 
    2*S2[a1, a2, SP[a3, a4], a5, n] + S2[a1, a2, SP[a3, a5], a4, n] + 
    S2[a2, n]*S2[a1, a3, a4, a5, n] + S2[a1, a3, a4, SP[a2, a5], n] + 
    S2[a1, a3, SP[a2, a4], a5, n] + S2[a5, n]*S2[a1, a4, a2, a3, n] - 
    S2[a3, n]*S2[a1, a4, a2, a5, n] + S2[a2, n]*S2[a1, a4, a3, a5, n] + 
    S2[a1, a4, a3, SP[a2, a5], n] - S2[a3, n]*S2[a1, a4, a5, a2, n] + 
    S2[a2, n]*S2[a1, a4, a5, a3, n] + 2*S2[a1, a4, SP[a2, a5], a3, n] - 
    S2[a1, a4, SP[a3, a5], a2, n] - S2[a4, n]*S2[a1, a5, a2, a3, n] - 
    S2[a1, a5, a2, SP[a3, a4], n] - S2[a1, a5, SP[a2, a4], a3, n] + 
    S2[a1, SP[a2, a5], a3, a4, n] + S2[a1, SP[a2, a5], a4, a3, n] - 
    S2[a1, SP[a3, a4], a2, a5, n] - S2[a1, SP[a3, a4], a5, a2, n] - 
    S2[a2, a1, a4, SP[a3, a5], n] - S2[a2, a1, SP[a3, a4], a5, n] - 
    S2[a2, SP[a1, a3], a4, a5, n] + S2[a2, n]*S2[a3, a1, a4, a5, n] + 
    S2[a3, a1, a4, SP[a2, a5], n] + S2[a3, a1, SP[a2, a4], a5, n] + 
    S2[a3, SP[a1, a2], a4, a5, n] + S2[a4, a1, a2, SP[a3, a5], n] + 
    S2[a4, a1, SP[a2, a5], a3, n] + S2[a4, SP[a1, a5], a2, a3, n] - 
    S2[a4, n]*S2[a5, a1, a2, a3, n] - S2[a5, a1, a2, SP[a3, a4], n] - 
    S2[a5, a1, SP[a2, a4], a3, n] - S2[a5, SP[a1, a4], a2, a3, n] - 
    S2[SP[a1, a3], a2, a4, a5, n] - S2[SP[a1, a3], a4, a2, a5, n] - 
    S2[SP[a1, a3], a4, a5, a2, n] + S2[SP[a1, a5], a2, a3, a4, n] + 
    S2[SP[a1, a5], a2, a4, a3, n] + S2[SP[a1, a5], a4, a2, a3, n] + 
    S2[SP[a2, a3], a1, a4, a5, n] - S2[SP[a4, a5], a1, a2, a3, n] + 
    S2[a5, a4, a1, a2, a3, n] /; MyMemberQ[{{a1, a2, a3, a4, a5}}, 
     {a1, a2, a3, a4, a5}] && a1 != a2 != a3 != a4 != a5, 
 S2[a3_, a2_, a1_, a5_, a4_, n_] :> 
  -(S2[a4, a5, n]*S2[a1, a2, a3, n]) - S2[a2, a3, n]*S2[a1, a5, a4, n] + 
    S2[a1, SP[a2, a4], SP[a3, a5], n] + S2[a1, SP[a2, a5], SP[a3, a4], n] + 
    S2[SP[a1, a2], a5, SP[a3, a4], n] + S2[SP[a1, a2], SP[a3, a5], a4, n] + 
    S2[SP[a1, a4], a2, SP[a3, a5], n] + S2[SP[a1, a4], SP[a2, a5], a3, n] + 
    S2[a4, n]*S2[a1, a2, a3, a5, n] + S2[a1, a2, a3, SP[a4, a5], n] - 
    S2[a1, a2, a4, SP[a3, a5], n] + S2[a4, n]*S2[a1, a2, a5, a3, n] - 
    S2[a3, n]*S2[a1, a2, a5, a4, n] - S2[a1, a2, a5, SP[a3, a4], n] - 
    2*S2[a1, a2, SP[a3, a5], a4, n] + S2[a1, a2, SP[a4, a5], a3, n] + 
    S2[a2, n]*S2[a1, a3, a5, a4, n] + S2[a1, a3, a5, SP[a2, a4], n] + 
    S2[a1, a3, SP[a2, a5], a4, n] - S2[a1, a4, a2, SP[a3, a5], n] - 
    S2[a1, a4, SP[a2, a5], a3, n] + S2[a4, n]*S2[a1, a5, a2, a3, n] - 
    S2[a3, n]*S2[a1, a5, a2, a4, n] - S2[a1, a5, a2, SP[a3, a4], n] + 
    S2[a2, n]*S2[a1, a5, a3, a4, n] + S2[a1, a5, a3, SP[a2, a4], n] - 
    S2[a3, n]*S2[a1, a5, a4, a2, n] + S2[a2, n]*S2[a1, a5, a4, a3, n] + 
    S2[a1, a5, SP[a2, a4], a3, n] - S2[a1, a5, SP[a3, a4], a2, n] - 
    S2[a1, SP[a3, a5], a2, a4, n] - S2[a1, SP[a3, a5], a4, a2, n] + 
    S2[a1, SP[a4, a5], a2, a3, n] - S2[a2, a1, a5, SP[a3, a4], n] - 
    S2[a2, a1, SP[a3, a5], a4, n] - S2[a2, SP[a1, a3], a5, a4, n] + 
    S2[a2, n]*S2[a3, a1, a5, a4, n] + S2[a3, a1, a5, SP[a2, a4], n] + 
    S2[a3, a1, SP[a2, a5], a4, n] + S2[a3, SP[a1, a2], a5, a4, n] - 
    S2[a4, a1, a2, SP[a3, a5], n] - S2[a4, a1, SP[a2, a5], a3, n] - 
    S2[a4, SP[a1, a5], a2, a3, n] + S2[a4, n]*S2[a5, a1, a2, a3, n] + 
    S2[a5, a1, a2, SP[a3, a4], n] + S2[a5, a1, SP[a2, a4], a3, n] + 
    S2[a5, SP[a1, a4], a2, a3, n] - S2[SP[a1, a3], a2, a5, a4, n] - 
    S2[SP[a1, a3], a5, a2, a4, n] - S2[SP[a1, a3], a5, a4, a2, n] + 
    S2[SP[a2, a3], a1, a5, a4, n] + S2[SP[a4, a5], a1, a2, a3, n] - 
    S2[a5, a1, a2, a3, a4, n] - S2[a5, a1, a2, a4, a3, n] - 
    S2[a5, a1, a4, a2, a3, n] - S2[a5, a4, a1, a2, a3, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5}}, {a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a3_, a2_, a4_, a1_, a5_, n_] :> 
  S2[a2, a3, n]*S2[a1, a4, a5, n] + S2[a2, a3, n]*S2[a1, a5, a4, n] - 
    S2[a1, SP[a2, a4], SP[a3, a5], n] - S2[a1, SP[a2, a5], SP[a3, a4], n] - 
    S2[a1, a5, n]*S2[a2, a3, a4, n] - S2[a1, a5, n]*S2[a2, a4, a3, n] + 
    S2[a2, SP[a1, a3], SP[a4, a5], n] + S2[a2, SP[a1, a4], SP[a3, a5], n] + 
    S2[SP[a1, a2], a3, SP[a4, a5], n] - S2[SP[a1, a2], a5, SP[a3, a4], n] - 
    S2[SP[a1, a2], SP[a3, a4], a5, n] + S2[SP[a1, a2], SP[a4, a5], a3, n] - 
    S2[a1, a2, a3, SP[a4, a5], n] + S2[a1, a2, a5, SP[a3, a4], n] + 
    S2[a1, a2, SP[a3, a4], a5, n] - S2[a1, a2, SP[a4, a5], a3, n] - 
    S2[a5, n]*S2[a1, a4, a2, a3, n] + S2[a1, a5, a2, SP[a3, a4], n] + 
    S2[a1, a5, SP[a2, a4], a3, n] + S2[a1, SP[a2, a4], a3, a5, n] + 
    S2[a1, SP[a2, a4], a5, a3, n] - S2[a1, SP[a4, a5], a2, a3, n] - 
    S2[a2, a1, a3, SP[a4, a5], n] + S2[a2, a1, a5, SP[a3, a4], n] + 
    S2[a2, a1, SP[a3, a4], a5, n] - S2[a2, a1, SP[a4, a5], a3, n] - 
    S2[a2, a3, a1, SP[a4, a5], n] - S2[a2, a3, SP[a1, a4], a5, n] + 
    S2[a3, n]*S2[a2, a4, a1, a5, n] - S2[a2, SP[a1, a4], a3, a5, n] - 
    S2[a2, SP[a1, a4], a5, a3, n] + S2[a2, SP[a3, a4], a1, a5, n] - 
    S2[SP[a1, a5], a4, a2, a3, n] + S2[SP[a2, a3], a4, a1, a5, n] + 
    S2[a5, a1, a4, a2, a3, n] /; MyMemberQ[{{a1, a2, a3, a4, a5}}, 
     {a1, a2, a3, a4, a5}] && a1 != a2 != a3 != a4 != a5, 
 S2[a3_, a2_, a4_, a5_, a1_, n_] :> 
  -(S2[a2, a3, n]*S2[a1, a5, a4, n]) + S2[a1, SP[a2, a5], SP[a3, a4], n] + 
    S2[a1, a5, n]*S2[a2, a3, a4, n] + S2[a1, a5, n]*S2[a2, a4, a3, n] - 
    S2[a2, SP[a1, a3], SP[a4, a5], n] - S2[a2, SP[a1, a4], SP[a3, a5], n] - 
    S2[SP[a1, a2], a3, SP[a4, a5], n] - S2[SP[a1, a2], a4, SP[a3, a5], n] + 
    S2[SP[a1, a2], a5, SP[a3, a4], n] - S2[SP[a1, a2], SP[a4, a5], a3, n] + 
    S2[a1, a2, a3, SP[a4, a5], n] + S2[a1, a2, a4, SP[a3, a5], n] - 
    S2[a1, a2, a5, SP[a3, a4], n] + S2[a1, a2, SP[a4, a5], a3, n] - 
    S2[a2, n]*S2[a1, a3, a4, a5, n] - S2[a1, a3, a4, SP[a2, a5], n] - 
    S2[a1, a3, SP[a2, a4], a5, n] + S2[a3, n]*S2[a1, a4, a2, a5, n] + 
    S2[a1, a4, a2, SP[a3, a5], n] - S2[a2, n]*S2[a1, a4, a3, a5, n] - 
    S2[a1, a4, a3, SP[a2, a5], n] + S2[a3, n]*S2[a1, a4, a5, a2, n] - 
    S2[a2, n]*S2[a1, a4, a5, a3, n] - S2[a1, a4, SP[a2, a5], a3, n] + 
    S2[a1, a4, SP[a3, a5], a2, n] - S2[a1, a5, a2, SP[a3, a4], n] - 
    S2[a1, a5, SP[a2, a4], a3, n] - S2[a1, SP[a2, a3], a4, a5, n] - 
    S2[a1, SP[a2, a4], a3, a5, n] - S2[a1, SP[a2, a4], a5, a3, n] + 
    S2[a1, SP[a3, a4], a2, a5, n] + S2[a1, SP[a3, a4], a5, a2, n] + 
    S2[a2, a1, a3, SP[a4, a5], n] + S2[a2, a1, a4, SP[a3, a5], n] - 
    S2[a2, a1, a5, SP[a3, a4], n] + S2[a2, a1, SP[a4, a5], a3, n] + 
    S2[a2, a3, a1, SP[a4, a5], n] + S2[a2, a3, SP[a1, a4], a5, n] - 
    S2[a3, n]*S2[a2, a4, a1, a5, n] + S2[a2, SP[a1, a3], a4, a5, n] + 
    S2[a2, SP[a1, a4], a3, a5, n] + S2[a2, SP[a1, a4], a5, a3, n] - 
    S2[a2, SP[a3, a4], a1, a5, n] - S2[a2, n]*S2[a3, a1, a4, a5, n] - 
    S2[a3, a1, a4, SP[a2, a5], n] - S2[a3, a1, SP[a2, a4], a5, n] + 
    S2[a1, n]*S2[a3, a2, a4, a5, n] + S2[a3, a2, a4, SP[a1, a5], n] + 
    S2[a3, a2, SP[a1, a4], a5, n] + S2[a1, n]*S2[a5, a4, a2, a3, n] + 
    S2[a5, a4, a2, SP[a1, a3], n] + S2[a5, a4, SP[a1, a2], a3, n] + 
    S2[a5, SP[a1, a4], a2, a3, n] + S2[SP[a1, a3], a2, a4, a5, n] + 
    S2[SP[a1, a3], a4, a2, a5, n] + S2[SP[a1, a3], a4, a5, a2, n] + 
    S2[SP[a1, a5], a4, a2, a3, n] - S2[SP[a2, a3], a1, a4, a5, n] - 
    S2[SP[a2, a3], a4, a1, a5, n] - S2[a5, a1, a4, a2, a3, n] - 
    S2[a5, a4, a1, a2, a3, n] - S2[a5, a4, a2, a1, a3, n] - 
    S2[a5, a4, a2, a3, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5}}, 
     {a1, a2, a3, a4, a5}] && a1 != a2 != a3 != a4 != a5, 
 S2[a3_, a2_, a5_, a1_, a4_, n_] :> 
  S2[a2, a3, n]*S2[a1, a4, a5, n] + S2[a2, a3, n]*S2[a1, a5, a4, n] - 
    S2[a1, SP[a2, a4], SP[a3, a5], n] - S2[a1, SP[a2, a5], SP[a3, a4], n] - 
    S2[SP[a1, a2], a4, SP[a3, a5], n] - S2[SP[a1, a2], a5, SP[a3, a4], n] - 
    S2[SP[a1, a2], SP[a3, a4], a5, n] - S2[SP[a1, a2], SP[a3, a5], a4, n] + 
    S2[a1, a2, a4, SP[a3, a5], n] + S2[a1, a2, a5, SP[a3, a4], n] + 
    S2[a1, a2, SP[a3, a4], a5, n] + S2[a1, a2, SP[a3, a5], a4, n] + 
    S2[a5, n]*S2[a1, a3, a2, a4, n] + S2[a1, a3, a2, SP[a4, a5], n] + 
    S2[a5, n]*S2[a1, a3, a4, a2, n] - S2[a2, n]*S2[a1, a3, a4, a5, n] - 
    S2[a2, n]*S2[a1, a3, a5, a4, n] - S2[a1, a3, a5, SP[a2, a4], n] - 
    S2[a1, a3, SP[a2, a4], a5, n] + S2[a1, a3, SP[a4, a5], a2, n] + 
    S2[a1, a4, a2, SP[a3, a5], n] + S2[a5, n]*S2[a1, a4, a3, a2, n] - 
    S2[a2, n]*S2[a1, a4, a3, a5, n] - S2[a2, n]*S2[a1, a4, a5, a3, n] - 
    S2[a1, a4, a5, SP[a2, a3], n] - S2[a1, a4, SP[a2, a3], a5, n] + 
    S2[a1, a4, SP[a3, a5], a2, n] + S2[a1, a5, a2, SP[a3, a4], n] - 
    S2[a2, n]*S2[a1, a5, a3, a4, n] - S2[a1, a5, a3, SP[a2, a4], n] - 
    S2[a2, n]*S2[a1, a5, a4, a3, n] - S2[a1, a5, a4, SP[a2, a3], n] - 
    S2[a1, a5, SP[a2, a3], a4, n] - S2[a1, SP[a2, a3], a4, a5, n] - 
    S2[a1, SP[a2, a3], a5, a4, n] + S2[a1, SP[a3, a5], a2, a4, n] + 
    S2[a1, SP[a3, a5], a4, a2, n] + S2[a1, SP[a4, a5], a3, a2, n] + 
    S2[a2, a1, a4, SP[a3, a5], n] + S2[a2, a1, a5, SP[a3, a4], n] + 
    S2[a2, a1, SP[a3, a4], a5, n] + S2[a2, a1, SP[a3, a5], a4, n] - 
    S2[a5, n]*S2[a2, a3, a1, a4, n] - S2[a2, a3, a1, SP[a4, a5], n] - 
    S2[a2, a3, SP[a1, a5], a4, n] + S2[a3, n]*S2[a2, a5, a1, a4, n] + 
    S2[a2, a5, a1, SP[a3, a4], n] + S2[a2, a5, SP[a1, a3], a4, n] + 
    S2[a2, SP[a1, a3], a4, a5, n] + S2[a2, SP[a1, a3], a5, a4, n] - 
    S2[a2, n]*S2[a5, a1, a3, a4, n] - S2[a5, a1, a3, SP[a2, a4], n] - 
    S2[a2, n]*S2[a5, a1, a4, a3, n] - S2[a5, a1, a4, SP[a2, a3], n] - 
    S2[a5, a1, SP[a2, a3], a4, n] - S2[a5, a1, SP[a2, a4], a3, n] - 
    S2[a5, SP[a1, a2], a3, a4, n] - S2[a5, SP[a1, a2], a4, a3, n] + 
    S2[SP[a1, a5], a3, a2, a4, n] + S2[SP[a1, a5], a3, a4, a2, n] + 
    S2[SP[a1, a5], a4, a3, a2, n] + S2[SP[a2, a3], a5, a1, a4, n] - 
    S2[SP[a2, a5], a1, a3, a4, n] - S2[SP[a2, a5], a1, a4, a3, n] - 
    S2[SP[a2, a5], a3, a1, a4, n] + S2[a5, a1, a2, a3, a4, n] + 
    S2[a5, a1, a2, a4, a3, n] + S2[a5, a1, a4, a2, a3, n] + 
    S2[a5, a2, a1, a3, a4, n] + S2[a5, a2, a1, a4, a3, n] + 
    S2[a5, a2, a3, a1, a4, n] /; MyMemberQ[{{a1, a2, a3, a4, a5}}, 
     {a1, a2, a3, a4, a5}] && a1 != a2 != a3 != a4 != a5, 
 S2[a3_, a2_, a5_, a4_, a1_, n_] :> 
  -(S2[a2, a3, n]*S2[a1, a4, a5, n]) + S2[a1, SP[a2, a4], SP[a3, a5], n] + 
    S2[SP[a1, a2], a4, SP[a3, a5], n] + S2[SP[a1, a2], SP[a3, a4], a5, n] - 
    S2[a1, a2, a4, SP[a3, a5], n] - S2[a1, a2, SP[a3, a4], a5, n] - 
    S2[a5, n]*S2[a1, a3, a2, a4, n] - S2[a1, a3, a2, SP[a4, a5], n] - 
    S2[a5, n]*S2[a1, a3, a4, a2, n] + S2[a2, n]*S2[a1, a3, a4, a5, n] + 
    S2[a1, a3, SP[a2, a4], a5, n] - S2[a1, a3, SP[a2, a5], a4, n] - 
    S2[a1, a3, SP[a4, a5], a2, n] - S2[a1, a4, a2, SP[a3, a5], n] - 
    S2[a5, n]*S2[a1, a4, a3, a2, n] + S2[a2, n]*S2[a1, a4, a3, a5, n] + 
    S2[a2, n]*S2[a1, a4, a5, a3, n] + S2[a1, a4, a5, SP[a2, a3], n] + 
    S2[a1, a4, SP[a2, a3], a5, n] - S2[a1, a4, SP[a3, a5], a2, n] + 
    S2[a3, n]*S2[a1, a5, a2, a4, n] + S2[a1, a5, a2, SP[a3, a4], n] + 
    S2[a3, n]*S2[a1, a5, a4, a2, n] + S2[a1, a5, a4, SP[a2, a3], n] + 
    S2[a1, a5, SP[a2, a3], a4, n] + S2[a1, a5, SP[a3, a4], a2, n] + 
    S2[a1, SP[a2, a3], a4, a5, n] - S2[a1, SP[a4, a5], a3, a2, n] - 
    S2[a2, a1, a4, SP[a3, a5], n] - S2[a2, a1, SP[a3, a4], a5, n] + 
    S2[a5, n]*S2[a2, a3, a1, a4, n] + S2[a2, a3, a1, SP[a4, a5], n] + 
    S2[a2, a3, SP[a1, a5], a4, n] - S2[a3, n]*S2[a2, a5, a1, a4, n] - 
    S2[a2, a5, a1, SP[a3, a4], n] - S2[a2, a5, SP[a1, a3], a4, n] - 
    S2[a2, SP[a1, a3], a4, a5, n] - S2[a2, n]*S2[a3, a1, a5, a4, n] - 
    S2[a3, a1, a5, SP[a2, a4], n] - S2[a3, a1, SP[a2, a5], a4, n] + 
    S2[a1, n]*S2[a3, a2, a5, a4, n] + S2[a3, a2, a5, SP[a1, a4], n] + 
    S2[a3, a2, SP[a1, a5], a4, n] + S2[a2, n]*S2[a5, a1, a3, a4, n] + 
    S2[a5, a1, a3, SP[a2, a4], n] + S2[a2, n]*S2[a5, a1, a4, a3, n] + 
    S2[a5, a1, a4, SP[a2, a3], n] + S2[a5, a1, SP[a2, a3], a4, n] + 
    S2[a5, a1, SP[a2, a4], a3, n] - S2[a1, n]*S2[a5, a2, a3, a4, n] - 
    S2[a5, a2, a3, SP[a1, a4], n] - S2[a1, n]*S2[a5, a2, a4, a3, n] - 
    S2[a5, a2, a4, SP[a1, a3], n] - S2[a5, a2, SP[a1, a3], a4, n] - 
    S2[a5, a2, SP[a1, a4], a3, n] - S2[a1, n]*S2[a5, a4, a2, a3, n] - 
    S2[a5, a4, a2, SP[a1, a3], n] - S2[a5, a4, SP[a1, a2], a3, n] - 
    S2[a5, SP[a1, a4], a2, a3, n] + S2[SP[a1, a3], a2, a5, a4, n] + 
    S2[SP[a1, a3], a5, a2, a4, n] + S2[SP[a1, a3], a5, a4, a2, n] - 
    S2[SP[a1, a5], a2, a3, a4, n] - S2[SP[a1, a5], a2, a4, a3, n] - 
    S2[SP[a1, a5], a3, a2, a4, n] - S2[SP[a1, a5], a3, a4, a2, n] - 
    S2[SP[a1, a5], a4, a2, a3, n] - S2[SP[a1, a5], a4, a3, a2, n] - 
    S2[SP[a2, a3], a1, a5, a4, n] - S2[SP[a2, a3], a5, a1, a4, n] + 
    S2[SP[a2, a5], a1, a3, a4, n] + S2[SP[a2, a5], a1, a4, a3, n] + 
    S2[SP[a2, a5], a3, a1, a4, n] + S2[a5, a2, a3, a4, a1, n] + 
    S2[a5, a2, a4, a1, a3, n] + S2[a5, a2, a4, a3, a1, n] + 
    S2[a5, a4, a1, a2, a3, n] + S2[a5, a4, a2, a1, a3, n] + 
    S2[a5, a4, a2, a3, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5}}, 
     {a1, a2, a3, a4, a5}] && a1 != a2 != a3 != a4 != a5, 
 S2[a3_, a4_, a1_, a2_, a5_, n_] :> 
  S2[a3, a4, n]*S2[a1, a2, a5, n] + S2[a2, a5, n]*S2[a1, a4, a3, n] - 
    S2[a1, SP[a2, a3], SP[a4, a5], n] - S2[a1, SP[a2, a4], SP[a3, a5], n] - 
    S2[SP[a1, a2], a4, SP[a3, a5], n] - S2[SP[a1, a2], SP[a4, a5], a3, n] - 
    S2[SP[a1, a3], a2, SP[a4, a5], n] - S2[SP[a1, a3], SP[a2, a4], a5, n] + 
    S2[a1, a2, a3, SP[a4, a5], n] + S2[a5, n]*S2[a1, a2, a4, a3, n] - 
    S2[a3, n]*S2[a1, a2, a4, a5, n] + S2[a1, a2, a4, SP[a3, a5], n] - 
    S2[a3, n]*S2[a1, a2, a5, a4, n] - S2[a1, a2, a5, SP[a3, a4], n] - 
    S2[a1, a2, SP[a3, a4], a5, n] + 2*S2[a1, a2, SP[a4, a5], a3, n] + 
    S2[a1, a3, a2, SP[a4, a5], n] + S2[a1, a3, SP[a2, a4], a5, n] + 
    S2[a5, n]*S2[a1, a4, a2, a3, n] - S2[a3, n]*S2[a1, a4, a2, a5, n] + 
    S2[a1, a4, a2, SP[a3, a5], n] + S2[a5, n]*S2[a1, a4, a3, a2, n] - 
    S2[a2, n]*S2[a1, a4, a3, a5, n] - S2[a2, n]*S2[a1, a4, a5, a3, n] - 
    S2[a1, a4, a5, SP[a2, a3], n] - S2[a1, a4, SP[a2, a3], a5, n] + 
    S2[a1, a4, SP[a3, a5], a2, n] - S2[a2, n]*S2[a1, a5, a4, a3, n] - 
    S2[a1, a5, a4, SP[a2, a3], n] - S2[a1, a5, SP[a2, a4], a3, n] - 
    S2[a1, SP[a3, a4], a2, a5, n] + S2[a1, SP[a4, a5], a2, a3, n] + 
    S2[a1, SP[a4, a5], a3, a2, n] + S2[a2, a1, a4, SP[a3, a5], n] + 
    S2[a2, a1, SP[a4, a5], a3, n] + S2[a2, SP[a1, a5], a4, a3, n] + 
    S2[a3, a1, a2, SP[a4, a5], n] + S2[a3, a1, SP[a2, a4], a5, n] + 
    S2[a3, SP[a1, a4], a2, a5, n] - S2[a2, n]*S2[a5, a1, a4, a3, n] - 
    S2[a5, a1, a4, SP[a2, a3], n] - S2[a5, a1, SP[a2, a4], a3, n] - 
    S2[a5, SP[a1, a2], a4, a3, n] + S2[SP[a1, a5], a2, a4, a3, n] + 
    S2[SP[a1, a5], a4, a2, a3, n] + S2[SP[a1, a5], a4, a3, a2, n] - 
    S2[SP[a2, a5], a1, a4, a3, n] + S2[a5, a2, a1, a4, a3, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5}}, {a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a3_, a4_, a1_, a5_, a2_, n_] :> 
  -(S2[a2, a5, n]*S2[a1, a4, a3, n]) + S2[a3, a4, n]*S2[a1, a5, a2, n] + 
    S2[a1, SP[a2, a4], SP[a3, a5], n] - S2[a1, SP[a3, a5], SP[a2, a4], n] + 
    S2[SP[a1, a2], a4, SP[a3, a5], n] + S2[SP[a1, a2], SP[a4, a5], a3, n] - 
    S2[SP[a1, a3], a5, SP[a2, a4], n] - S2[SP[a1, a3], SP[a4, a5], a2, n] - 
    S2[a1, a2, a4, SP[a3, a5], n] - S2[a1, a2, SP[a4, a5], a3, n] + 
    S2[a1, a3, a5, SP[a2, a4], n] + S2[a1, a3, SP[a4, a5], a2, n] - 
    S2[a1, a4, a2, SP[a3, a5], n] + S2[a2, n]*S2[a1, a4, a3, a5, n] + 
    S2[a1, a4, a3, SP[a2, a5], n] - S2[a3, n]*S2[a1, a4, a5, a2, n] + 
    S2[a2, n]*S2[a1, a4, a5, a3, n] + S2[a1, a4, SP[a2, a5], a3, n] - 
    S2[a1, a4, SP[a3, a5], a2, n] - S2[a3, n]*S2[a1, a5, a2, a4, n] - 
    S2[a1, a5, a2, SP[a3, a4], n] + S2[a1, a5, a3, SP[a2, a4], n] - 
    S2[a3, n]*S2[a1, a5, a4, a2, n] + S2[a2, n]*S2[a1, a5, a4, a3, n] + 
    S2[a1, a5, SP[a2, a4], a3, n] - S2[a1, a5, SP[a3, a4], a2, n] + 
    S2[a1, SP[a2, a5], a4, a3, n] - S2[a1, SP[a3, a4], a5, a2, n] - 
    S2[a2, a1, a4, SP[a3, a5], n] - S2[a2, a1, SP[a4, a5], a3, n] - 
    S2[a2, SP[a1, a5], a4, a3, n] + S2[a3, a1, a5, SP[a2, a4], n] + 
    S2[a3, a1, SP[a4, a5], a2, n] + S2[a3, SP[a1, a4], a5, a2, n] + 
    S2[a2, n]*S2[a5, a1, a4, a3, n] + S2[a5, a1, a4, SP[a2, a3], n] + 
    S2[a5, a1, SP[a2, a4], a3, n] + S2[a5, SP[a1, a2], a4, a3, n] + 
    S2[SP[a2, a5], a1, a4, a3, n] - S2[a5, a1, a2, a4, a3, n] - 
    S2[a5, a1, a4, a2, a3, n] - S2[a5, a1, a4, a3, a2, n] - 
    S2[a5, a2, a1, a4, a3, n] /; MyMemberQ[{{a1, a2, a3, a4, a5}}, 
     {a1, a2, a3, a4, a5}] && a1 != a2 != a3 != a4 != a5, 
 S2[a3_, a4_, a2_, a1_, a5_, n_] :> 
  -(S2[a3, a4, n]*S2[a1, a2, a5, n]) - S2[a3, a4, n]*S2[a1, a5, a2, n] + 
    S2[a1, SP[a2, a3], SP[a4, a5], n] + S2[a1, SP[a3, a5], SP[a2, a4], n] + 
    S2[a1, a5, n]*S2[a2, a4, a3, n] - S2[a2, SP[a1, a4], SP[a3, a5], n] - 
    S2[SP[a1, a2], a4, SP[a3, a5], n] - S2[SP[a1, a2], SP[a4, a5], a3, n] + 
    S2[SP[a1, a3], a2, SP[a4, a5], n] + S2[SP[a1, a3], a5, SP[a2, a4], n] + 
    S2[SP[a1, a3], SP[a2, a4], a5, n] + S2[SP[a1, a3], SP[a4, a5], a2, n] - 
    S2[a1, a2, a3, SP[a4, a5], n] - S2[a5, n]*S2[a1, a2, a4, a3, n] + 
    S2[a3, n]*S2[a1, a2, a4, a5, n] + S2[a1, a2, a4, SP[a3, a5], n] + 
    S2[a3, n]*S2[a1, a2, a5, a4, n] + S2[a1, a2, a5, SP[a3, a4], n] + 
    S2[a1, a2, SP[a3, a4], a5, n] - S2[a1, a3, a2, SP[a4, a5], n] - 
    S2[a1, a3, a5, SP[a2, a4], n] - S2[a1, a3, SP[a2, a4], a5, n] - 
    S2[a1, a3, SP[a4, a5], a2, n] + S2[a3, n]*S2[a1, a4, a2, a5, n] + 
    S2[a1, a4, a2, SP[a3, a5], n] - S2[a2, n]*S2[a1, a4, a3, a5, n] - 
    S2[a1, a4, a3, SP[a2, a5], n] + S2[a3, n]*S2[a1, a4, a5, a2, n] - 
    S2[a2, n]*S2[a1, a4, a5, a3, n] - S2[a1, a4, SP[a2, a5], a3, n] + 
    S2[a1, a4, SP[a3, a5], a2, n] + S2[a3, n]*S2[a1, a5, a2, a4, n] + 
    S2[a1, a5, a2, SP[a3, a4], n] - S2[a1, a5, a3, SP[a2, a4], n] + 
    S2[a3, n]*S2[a1, a5, a4, a2, n] - S2[a2, n]*S2[a1, a5, a4, a3, n] - 
    S2[a1, a5, SP[a2, a4], a3, n] + S2[a1, a5, SP[a3, a4], a2, n] - 
    S2[a1, SP[a2, a4], a3, a5, n] - S2[a1, SP[a2, a4], a5, a3, n] - 
    S2[a1, SP[a2, a5], a4, a3, n] + S2[a1, SP[a3, a4], a2, a5, n] + 
    S2[a1, SP[a3, a4], a5, a2, n] + S2[a2, a1, a4, SP[a3, a5], n] + 
    S2[a2, a1, SP[a4, a5], a3, n] - S2[a3, n]*S2[a2, a4, a1, a5, n] + 
    S2[a2, SP[a1, a4], a3, a5, n] + S2[a2, SP[a1, a4], a5, a3, n] - 
    S2[a2, SP[a3, a4], a1, a5, n] - S2[a3, a1, a2, SP[a4, a5], n] - 
    S2[a3, a1, a5, SP[a2, a4], n] - S2[a3, a1, SP[a2, a4], a5, n] - 
    S2[a3, a1, SP[a4, a5], a2, n] + S2[a2, n]*S2[a3, a4, a1, a5, n] + 
    S2[a3, a4, a1, SP[a2, a5], n] + S2[a3, a4, SP[a1, a2], a5, n] - 
    S2[a3, SP[a1, a4], a2, a5, n] - S2[a3, SP[a1, a4], a5, a2, n] + 
    S2[a3, SP[a2, a4], a1, a5, n] - S2[SP[a1, a5], a2, a4, a3, n] + 
    S2[a5, a1, a2, a4, a3, n] /; MyMemberQ[{{a1, a2, a3, a4, a5}}, 
     {a1, a2, a3, a4, a5}] && a1 != a2 != a3 != a4 != a5, 
 S2[a3_, a4_, a2_, a5_, a1_, n_] :> 
  S2[a3, a4, n]*S2[a1, a5, a2, n] - S2[a1, SP[a3, a5], SP[a2, a4], n] - 
    S2[a1, a5, n]*S2[a2, a4, a3, n] + S2[a2, SP[a1, a4], SP[a3, a5], n] + 
    S2[SP[a1, a2], a4, SP[a3, a5], n] + S2[SP[a1, a2], SP[a4, a5], a3, n] - 
    S2[SP[a1, a3], a5, SP[a2, a4], n] - S2[SP[a1, a3], SP[a4, a5], a2, n] - 
    S2[a1, a2, a4, SP[a3, a5], n] - S2[a1, a2, SP[a4, a5], a3, n] + 
    S2[a1, a3, a5, SP[a2, a4], n] + S2[a1, a3, SP[a4, a5], a2, n] - 
    S2[a3, n]*S2[a1, a4, a2, a5, n] - S2[a1, a4, a2, SP[a3, a5], n] + 
    S2[a2, n]*S2[a1, a4, a3, a5, n] + S2[a1, a4, a3, SP[a2, a5], n] - 
    S2[a3, n]*S2[a1, a4, a5, a2, n] + S2[a2, n]*S2[a1, a4, a5, a3, n] + 
    S2[a1, a4, SP[a2, a5], a3, n] - S2[a1, a4, SP[a3, a5], a2, n] - 
    S2[a3, n]*S2[a1, a5, a2, a4, n] - S2[a1, a5, a2, SP[a3, a4], n] + 
    S2[a1, a5, a3, SP[a2, a4], n] - S2[a3, n]*S2[a1, a5, a4, a2, n] + 
    S2[a2, n]*S2[a1, a5, a4, a3, n] + S2[a1, a5, SP[a2, a4], a3, n] - 
    S2[a1, a5, SP[a3, a4], a2, n] + S2[a1, SP[a2, a4], a3, a5, n] + 
    S2[a1, SP[a2, a4], a5, a3, n] - S2[a1, SP[a3, a4], a2, a5, n] - 
    S2[a1, SP[a3, a4], a5, a2, n] - S2[a2, a1, a4, SP[a3, a5], n] - 
    S2[a2, a1, SP[a4, a5], a3, n] + S2[a3, n]*S2[a2, a4, a1, a5, n] - 
    S2[a2, SP[a1, a4], a3, a5, n] - S2[a2, SP[a1, a4], a5, a3, n] + 
    S2[a2, SP[a3, a4], a1, a5, n] + S2[a3, a1, a5, SP[a2, a4], n] + 
    S2[a3, a1, SP[a4, a5], a2, n] - S2[a2, n]*S2[a3, a4, a1, a5, n] - 
    S2[a3, a4, a1, SP[a2, a5], n] + S2[a1, n]*S2[a3, a4, a2, a5, n] + 
    S2[a3, a4, a2, SP[a1, a5], n] + S2[a3, SP[a1, a4], a2, a5, n] + 
    S2[a3, SP[a1, a4], a5, a2, n] - S2[a3, SP[a2, a4], a1, a5, n] + 
    S2[a1, n]*S2[a5, a2, a4, a3, n] + S2[a5, a2, a4, SP[a1, a3], n] + 
    S2[a5, a2, SP[a1, a4], a3, n] + S2[a5, SP[a1, a2], a4, a3, n] + 
    S2[SP[a1, a5], a2, a4, a3, n] - S2[a5, a1, a2, a4, a3, n] - 
    S2[a5, a2, a1, a4, a3, n] - S2[a5, a2, a4, a1, a3, n] - 
    S2[a5, a2, a4, a3, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5}}, 
     {a1, a2, a3, a4, a5}] && a1 != a2 != a3 != a4 != a5, 
 S2[a3_, a4_, a5_, a1_, a2_, n_] :> 
  -(S2[a3, a4, n]*S2[a1, a2, a5, n]) - S2[a3, a4, n]*S2[a1, a5, a2, n] + 
    S2[a1, SP[a2, a3], SP[a4, a5], n] + S2[a1, SP[a3, a5], SP[a2, a4], n] + 
    S2[SP[a1, a3], a2, SP[a4, a5], n] + S2[SP[a1, a3], a5, SP[a2, a4], n] + 
    S2[SP[a1, a3], SP[a2, a4], a5, n] + S2[SP[a1, a3], SP[a4, a5], a2, n] - 
    S2[a1, a2, a3, SP[a4, a5], n] - S2[a5, n]*S2[a1, a2, a4, a3, n] + 
    S2[a3, n]*S2[a1, a2, a4, a5, n] + S2[a3, n]*S2[a1, a2, a5, a4, n] + 
    S2[a1, a2, a5, SP[a3, a4], n] + S2[a1, a2, SP[a3, a4], a5, n] - 
    S2[a1, a2, SP[a4, a5], a3, n] - S2[a1, a3, a2, SP[a4, a5], n] - 
    S2[a1, a3, a5, SP[a2, a4], n] - S2[a1, a3, SP[a2, a4], a5, n] - 
    S2[a1, a3, SP[a4, a5], a2, n] - S2[a5, n]*S2[a1, a4, a2, a3, n] + 
    S2[a3, n]*S2[a1, a4, a2, a5, n] - S2[a5, n]*S2[a1, a4, a3, a2, n] - 
    S2[a1, a4, a3, SP[a2, a5], n] + S2[a3, n]*S2[a1, a4, a5, a2, n] + 
    S2[a1, a4, a5, SP[a2, a3], n] + S2[a1, a4, SP[a2, a3], a5, n] - 
    S2[a1, a4, SP[a2, a5], a3, n] + S2[a3, n]*S2[a1, a5, a2, a4, n] + 
    S2[a1, a5, a2, SP[a3, a4], n] - S2[a1, a5, a3, SP[a2, a4], n] + 
    S2[a3, n]*S2[a1, a5, a4, a2, n] + S2[a1, a5, a4, SP[a2, a3], n] + 
    S2[a1, a5, SP[a3, a4], a2, n] - S2[a1, SP[a2, a5], a4, a3, n] + 
    S2[a1, SP[a3, a4], a2, a5, n] + S2[a1, SP[a3, a4], a5, a2, n] - 
    S2[a1, SP[a4, a5], a2, a3, n] - S2[a1, SP[a4, a5], a3, a2, n] - 
    S2[a3, a1, a2, SP[a4, a5], n] - S2[a3, a1, a5, SP[a2, a4], n] - 
    S2[a3, a1, SP[a2, a4], a5, n] - S2[a3, a1, SP[a4, a5], a2, n] + 
    S2[a5, n]*S2[a3, a4, a1, a2, n] + S2[a3, a4, a1, SP[a2, a5], n] + 
    S2[a3, a4, SP[a1, a5], a2, n] - S2[a3, SP[a1, a4], a2, a5, n] - 
    S2[a3, SP[a1, a4], a5, a2, n] + S2[a3, SP[a4, a5], a1, a2, n] - 
    S2[a3, n]*S2[a5, a4, a1, a2, n] - S2[a5, a4, a1, SP[a2, a3], n] - 
    S2[a5, a4, SP[a1, a3], a2, n] - S2[a5, SP[a3, a4], a1, a2, n] - 
    S2[SP[a1, a5], a2, a4, a3, n] - S2[SP[a1, a5], a4, a2, a3, n] - 
    S2[SP[a1, a5], a4, a3, a2, n] + S2[a5, a1, a2, a4, a3, n] + 
    S2[a5, a1, a4, a2, a3, n] + S2[a5, a1, a4, a3, a2, n] + 
    S2[a5, a4, a1, a2, a3, n] + S2[a5, a4, a1, a3, a2, n] + 
    S2[a5, a4, a3, a1, a2, n] /; MyMemberQ[{{a1, a2, a3, a4, a5}}, 
     {a1, a2, a3, a4, a5}] && a1 != a2 != a3 != a4 != a5, 
 S2[a3_, a4_, a5_, a2_, a1_, n_] :> 
  S2[a3, a4, n]*S2[a1, a2, a5, n] - S2[a1, SP[a2, a3], SP[a4, a5], n] - 
    S2[SP[a1, a3], a2, SP[a4, a5], n] - S2[SP[a1, a3], SP[a2, a4], a5, n] + 
    S2[a1, a2, a3, SP[a4, a5], n] + S2[a5, n]*S2[a1, a2, a4, a3, n] - 
    S2[a3, n]*S2[a1, a2, a4, a5, n] - S2[a3, n]*S2[a1, a2, a5, a4, n] - 
    S2[a1, a2, a5, SP[a3, a4], n] - S2[a1, a2, SP[a3, a4], a5, n] + 
    S2[a1, a2, SP[a4, a5], a3, n] + S2[a1, a3, a2, SP[a4, a5], n] + 
    S2[a1, a3, SP[a2, a4], a5, n] + S2[a5, n]*S2[a1, a4, a2, a3, n] - 
    S2[a3, n]*S2[a1, a4, a2, a5, n] + S2[a5, n]*S2[a1, a4, a3, a2, n] + 
    S2[a1, a4, a3, SP[a2, a5], n] - S2[a3, n]*S2[a1, a4, a5, a2, n] - 
    S2[a1, a4, a5, SP[a2, a3], n] - S2[a1, a4, SP[a2, a3], a5, n] + 
    S2[a1, a4, SP[a2, a5], a3, n] + S2[a1, SP[a2, a5], a4, a3, n] - 
    S2[a1, SP[a3, a4], a2, a5, n] - S2[a1, SP[a3, a4], a5, a2, n] + 
    S2[a1, SP[a4, a5], a2, a3, n] + S2[a1, SP[a4, a5], a3, a2, n] + 
    S2[a3, a1, a2, SP[a4, a5], n] + S2[a3, a1, SP[a2, a4], a5, n] - 
    S2[a5, n]*S2[a3, a4, a1, a2, n] - S2[a3, a4, a1, SP[a2, a5], n] + 
    S2[a1, n]*S2[a3, a4, a5, a2, n] + S2[a3, a4, a5, SP[a1, a2], n] + 
    S2[a3, SP[a1, a4], a2, a5, n] + S2[a3, SP[a1, a4], a5, a2, n] - 
    S2[a3, SP[a4, a5], a1, a2, n] - S2[a1, n]*S2[a5, a2, a4, a3, n] - 
    S2[a5, a2, a4, SP[a1, a3], n] - S2[a5, a2, SP[a1, a4], a3, n] + 
    S2[a3, n]*S2[a5, a4, a1, a2, n] + S2[a5, a4, a1, SP[a2, a3], n] - 
    S2[a1, n]*S2[a5, a4, a2, a3, n] - S2[a5, a4, a2, SP[a1, a3], n] - 
    S2[a1, n]*S2[a5, a4, a3, a2, n] - S2[a5, a4, a3, SP[a1, a2], n] - 
    S2[a5, a4, SP[a1, a2], a3, n] - S2[a5, SP[a1, a2], a4, a3, n] - 
    S2[a5, SP[a1, a4], a2, a3, n] - S2[a5, SP[a1, a4], a3, a2, n] + 
    S2[a5, SP[a3, a4], a1, a2, n] + S2[a5, a2, a1, a4, a3, n] + 
    S2[a5, a2, a4, a1, a3, n] + S2[a5, a2, a4, a3, a1, n] + 
    S2[a5, a4, a2, a1, a3, n] + S2[a5, a4, a2, a3, a1, n] + 
    S2[a5, a4, a3, a2, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5}}, 
     {a1, a2, a3, a4, a5}] && a1 != a2 != a3 != a4 != a5, 
 S2[a3_, a5_, a1_, a2_, a4_, n_] :> 
  S2[a3, n]*S2[a5, a1, a2, a4, n] + S2[a5, a1, a2, SP[a3, a4], n] + 
    S2[a5, a1, SP[a2, a3], a4, n] + S2[a5, SP[a1, a3], a2, a4, n] + 
    S2[SP[a3, a5], a1, a2, a4, n] - S2[a5, a1, a2, a3, a4, n] - 
    S2[a5, a1, a2, a4, a3, n] - S2[a5, a1, a3, a2, a4, n] - 
    S2[a5, a3, a1, a2, a4, n] /; MyMemberQ[{{a1, a2, a3, a4, a5}}, 
     {a1, a2, a3, a4, a5}] && a1 != a2 != a3 != a4 != a5, 
 S2[a3_, a5_, a1_, a4_, a2_, n_] :> 
  S2[a3, n]*S2[a5, a1, a4, a2, n] + S2[a5, a1, a4, SP[a2, a3], n] + 
    S2[a5, a1, SP[a3, a4], a2, n] + S2[a5, SP[a1, a3], a4, a2, n] + 
    S2[SP[a3, a5], a1, a4, a2, n] - S2[a5, a1, a3, a4, a2, n] - 
    S2[a5, a1, a4, a2, a3, n] - S2[a5, a1, a4, a3, a2, n] - 
    S2[a5, a3, a1, a4, a2, n] /; MyMemberQ[{{a1, a2, a3, a4, a5}}, 
     {a1, a2, a3, a4, a5}] && a1 != a2 != a3 != a4 != a5, 
 S2[a3_, a5_, a2_, a1_, a4_, n_] :> 
  -(S2[a3, n]*S2[a2, a5, a1, a4, n]) - S2[a2, a5, a1, SP[a3, a4], n] - 
    S2[a2, a5, SP[a1, a3], a4, n] - S2[a2, SP[a3, a5], a1, a4, n] + 
    S2[a2, n]*S2[a3, a5, a1, a4, n] + S2[a3, a5, a1, SP[a2, a4], n] + 
    S2[a3, a5, SP[a1, a2], a4, n] + S2[a3, SP[a2, a5], a1, a4, n] - 
    S2[a3, n]*S2[a5, a1, a2, a4, n] - S2[a5, a1, a2, SP[a3, a4], n] + 
    S2[a2, n]*S2[a5, a1, a3, a4, n] + S2[a5, a1, a3, SP[a2, a4], n] - 
    S2[a3, n]*S2[a5, a1, a4, a2, n] + S2[a2, n]*S2[a5, a1, a4, a3, n] + 
    S2[a5, a1, SP[a2, a4], a3, n] - S2[a5, a1, SP[a3, a4], a2, n] + 
    S2[a2, n]*S2[a5, a3, a1, a4, n] + S2[a5, a3, a1, SP[a2, a4], n] + 
    S2[a5, a3, SP[a1, a2], a4, n] + S2[a5, SP[a1, a2], a3, a4, n] + 
    S2[a5, SP[a1, a2], a4, a3, n] - S2[a5, SP[a1, a3], a2, a4, n] - 
    S2[a5, SP[a1, a3], a4, a2, n] + S2[a5, SP[a2, a3], a1, a4, n] + 
    S2[SP[a2, a5], a1, a3, a4, n] + S2[SP[a2, a5], a1, a4, a3, n] + 
    S2[SP[a2, a5], a3, a1, a4, n] - S2[SP[a3, a5], a1, a2, a4, n] - 
    S2[SP[a3, a5], a1, a4, a2, n] - S2[a5, a2, a1, a3, a4, n] - 
    S2[a5, a2, a1, a4, a3, n] - S2[a5, a2, a3, a1, a4, n] - 
    S2[a5, a3, a2, a1, a4, n] /; MyMemberQ[{{a1, a2, a3, a4, a5}}, 
     {a1, a2, a3, a4, a5}] && a1 != a2 != a3 != a4 != a5, 
 S2[a3_, a5_, a2_, a4_, a1_, n_] :> 
  -(S2[a3, n]*S2[a1, a5, a2, a4, n]) - S2[a1, a5, a2, SP[a3, a4], n] - 
    S2[a1, a5, SP[a2, a3], a4, n] - S2[a1, SP[a3, a5], a2, a4, n] + 
    S2[a3, n]*S2[a2, a5, a1, a4, n] + S2[a2, a5, a1, SP[a3, a4], n] + 
    S2[a2, a5, SP[a1, a3], a4, n] + S2[a2, SP[a3, a5], a1, a4, n] - 
    S2[a2, n]*S2[a3, a5, a1, a4, n] - S2[a3, a5, a1, SP[a2, a4], n] + 
    S2[a1, n]*S2[a3, a5, a2, a4, n] + S2[a3, a5, a2, SP[a1, a4], n] + 
    S2[a3, SP[a1, a5], a2, a4, n] - S2[a3, SP[a2, a5], a1, a4, n] - 
    S2[a2, n]*S2[a5, a1, a3, a4, n] - S2[a5, a1, a3, SP[a2, a4], n] + 
    S2[a3, n]*S2[a5, a1, a4, a2, n] - S2[a2, n]*S2[a5, a1, a4, a3, n] - 
    S2[a5, a1, SP[a2, a3], a4, n] - S2[a5, a1, SP[a2, a4], a3, n] + 
    S2[a5, a1, SP[a3, a4], a2, n] + S2[a1, n]*S2[a5, a2, a3, a4, n] + 
    S2[a5, a2, a3, SP[a1, a4], n] + S2[a1, n]*S2[a5, a2, a4, a3, n] + 
    S2[a5, a2, a4, SP[a1, a3], n] + S2[a5, a2, SP[a1, a3], a4, n] + 
    S2[a5, a2, SP[a1, a4], a3, n] - S2[a2, n]*S2[a5, a3, a1, a4, n] - 
    S2[a5, a3, a1, SP[a2, a4], n] + S2[a1, n]*S2[a5, a3, a2, a4, n] + 
    S2[a5, a3, a2, SP[a1, a4], n] + S2[a5, SP[a1, a3], a2, a4, n] + 
    S2[a5, SP[a1, a3], a4, a2, n] - S2[a5, SP[a2, a3], a1, a4, n] + 
    S2[SP[a1, a5], a2, a3, a4, n] + S2[SP[a1, a5], a2, a4, a3, n] + 
    S2[SP[a1, a5], a3, a2, a4, n] - S2[SP[a2, a5], a1, a3, a4, n] - 
    S2[SP[a2, a5], a1, a4, a3, n] - S2[SP[a2, a5], a3, a1, a4, n] + 
    S2[SP[a3, a5], a1, a4, a2, n] - S2[a5, a2, a3, a4, a1, n] - 
    S2[a5, a2, a4, a1, a3, n] - S2[a5, a2, a4, a3, a1, n] - 
    S2[a5, a3, a2, a4, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5}}, 
     {a1, a2, a3, a4, a5}] && a1 != a2 != a3 != a4 != a5, 
 S2[a3_, a5_, a4_, a1_, a2_, n_] :> 
  S2[a3, n]*S2[a5, a4, a1, a2, n] + S2[a5, a4, a1, SP[a2, a3], n] + 
    S2[a5, a4, SP[a1, a3], a2, n] + S2[a5, SP[a3, a4], a1, a2, n] + 
    S2[SP[a3, a5], a4, a1, a2, n] - S2[a5, a3, a4, a1, a2, n] - 
    S2[a5, a4, a1, a2, a3, n] - S2[a5, a4, a1, a3, a2, n] - 
    S2[a5, a4, a3, a1, a2, n] /; MyMemberQ[{{a1, a2, a3, a4, a5}}, 
     {a1, a2, a3, a4, a5}] && a1 != a2 != a3 != a4 != a5, 
 S2[a3_, a5_, a4_, a2_, a1_, n_] :> 
  -(S2[a3, n]*S2[a1, a5, a4, a2, n]) - S2[a1, a5, a4, SP[a2, a3], n] - 
    S2[a1, a5, SP[a3, a4], a2, n] - S2[a1, SP[a3, a5], a4, a2, n] + 
    S2[a1, n]*S2[a3, a5, a4, a2, n] + S2[a3, a5, a4, SP[a1, a2], n] + 
    S2[a3, a5, SP[a1, a4], a2, n] + S2[a3, SP[a1, a5], a4, a2, n] - 
    S2[a3, n]*S2[a5, a1, a4, a2, n] - S2[a5, a1, a4, SP[a2, a3], n] - 
    S2[a5, a1, SP[a3, a4], a2, n] + S2[a1, n]*S2[a5, a3, a4, a2, n] + 
    S2[a5, a3, a4, SP[a1, a2], n] + S2[a5, a3, SP[a1, a4], a2, n] - 
    S2[a3, n]*S2[a5, a4, a1, a2, n] - S2[a5, a4, a1, SP[a2, a3], n] + 
    S2[a1, n]*S2[a5, a4, a2, a3, n] + S2[a5, a4, a2, SP[a1, a3], n] + 
    S2[a1, n]*S2[a5, a4, a3, a2, n] + S2[a5, a4, a3, SP[a1, a2], n] + 
    S2[a5, a4, SP[a1, a2], a3, n] + S2[a5, SP[a1, a4], a2, a3, n] + 
    S2[a5, SP[a1, a4], a3, a2, n] - S2[a5, SP[a3, a4], a1, a2, n] + 
    S2[SP[a1, a5], a3, a4, a2, n] + S2[SP[a1, a5], a4, a2, a3, n] + 
    S2[SP[a1, a5], a4, a3, a2, n] - S2[SP[a3, a5], a1, a4, a2, n] - 
    S2[SP[a3, a5], a4, a1, a2, n] - S2[a5, a3, a4, a2, a1, n] - 
    S2[a5, a4, a2, a1, a3, n] - S2[a5, a4, a2, a3, a1, n] - 
    S2[a5, a4, a3, a2, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5}}, 
     {a1, a2, a3, a4, a5}] && a1 != a2 != a3 != a4 != a5, 
 S2[a4_, a1_, a2_, a3_, a5_, n_] :> 
  -(S2[a3, a5, n]*S2[a1, a2, a4, n]) - S2[a3, a5, n]*S2[a1, a4, a2, n] + 
    S2[a1, SP[a2, a3], SP[a4, a5], n] + S2[a1, SP[a3, a4], SP[a2, a5], n] - 
    S2[a1, a4, n]*S2[a2, a3, a5, n] + S2[a2, SP[a1, a3], SP[a4, a5], n] + 
    S2[SP[a1, a2], a3, SP[a4, a5], n] + S2[SP[a1, a2], SP[a3, a4], a5, n] + 
    S2[SP[a1, a3], a2, SP[a4, a5], n] + S2[SP[a1, a3], a4, SP[a2, a5], n] + 
    S2[SP[a1, a3], SP[a2, a5], a4, n] + S2[SP[a1, a3], SP[a4, a5], a2, n] - 
    S2[a5, n]*S2[a1, a2, a3, a4, n] + S2[a4, n]*S2[a1, a2, a3, a5, n] - 
    2*S2[a1, a2, a3, SP[a4, a5], n] - S2[a5, n]*S2[a1, a2, a4, a3, n] + 
    S2[a3, n]*S2[a1, a2, a4, a5, n] + S2[a3, n]*S2[a1, a2, a5, a4, n] + 
    S2[a1, a2, a5, SP[a3, a4], n] - S2[a1, a2, SP[a4, a5], a3, n] - 
    S2[a5, n]*S2[a1, a3, a2, a4, n] - 2*S2[a1, a3, a2, SP[a4, a5], n] - 
    S2[a5, n]*S2[a1, a3, a4, a2, n] + S2[a2, n]*S2[a1, a3, a4, a5, n] - 
    S2[a1, a3, a4, SP[a2, a5], n] + S2[a2, n]*S2[a1, a3, a5, a4, n] + 
    S2[a1, a3, a5, SP[a2, a4], n] + S2[a1, a3, SP[a2, a4], a5, n] - 
    S2[a1, a3, SP[a2, a5], a4, n] - 2*S2[a1, a3, SP[a4, a5], a2, n] - 
    S2[a5, n]*S2[a1, a4, a2, a3, n] + S2[a3, n]*S2[a1, a4, a2, a5, n] - 
    S2[a5, n]*S2[a1, a4, a3, a2, n] + S2[a2, n]*S2[a1, a4, a3, a5, n] - 
    S2[a1, a4, a3, SP[a2, a5], n] + S2[a3, n]*S2[a1, a4, a5, a2, n] + 
    S2[a1, a4, a5, SP[a2, a3], n] + S2[a1, a4, SP[a2, a3], a5, n] - 
    S2[a1, a4, SP[a2, a5], a3, n] + S2[a3, n]*S2[a1, a5, a2, a4, n] + 
    S2[a1, a5, a2, SP[a3, a4], n] + S2[a3, n]*S2[a1, a5, a4, a2, n] + 
    S2[a1, a5, a4, SP[a2, a3], n] + S2[a1, a5, SP[a2, a3], a4, n] + 
    S2[a1, a5, SP[a3, a4], a2, n] + S2[a1, SP[a2, a3], a4, a5, n] + 
    S2[a1, SP[a2, a3], a5, a4, n] + S2[a1, SP[a2, a4], a3, a5, n] - 
    S2[a1, SP[a2, a5], a3, a4, n] - S2[a1, SP[a2, a5], a4, a3, n] - 
    S2[a1, SP[a4, a5], a2, a3, n] - S2[a1, SP[a4, a5], a3, a2, n] - 
    S2[a2, a1, a3, SP[a4, a5], n] - S2[a2, a1, SP[a3, a4], a5, n] + 
    S2[a5, n]*S2[a2, a3, a1, a4, n] - S2[a2, SP[a1, a3], a4, a5, n] - 
    S2[a2, SP[a1, a3], a5, a4, n] + S2[a2, SP[a3, a5], a1, a4, n] - 
    S2[a3, a1, a2, SP[a4, a5], n] - S2[a3, a1, a4, SP[a2, a5], n] - 
    S2[a3, a1, SP[a2, a5], a4, n] - S2[a3, a1, SP[a4, a5], a2, n] - 
    S2[a3, SP[a1, a5], a2, a4, n] - S2[a3, SP[a1, a5], a4, a2, n] + 
    S2[a3, n]*S2[a5, a1, a2, a4, n] + S2[a5, a1, a2, SP[a3, a4], n] + 
    S2[a3, n]*S2[a5, a1, a4, a2, n] + S2[a5, a1, a4, SP[a2, a3], n] + 
    S2[a5, a1, SP[a2, a3], a4, n] + S2[a5, a1, SP[a3, a4], a2, n] - 
    S2[a2, n]*S2[a5, a3, a1, a4, n] - S2[a5, a3, a1, SP[a2, a4], n] - 
    S2[a5, a3, SP[a1, a2], a4, n] + S2[a5, SP[a1, a3], a2, a4, n] + 
    S2[a5, SP[a1, a3], a4, a2, n] - S2[a5, SP[a2, a3], a1, a4, n] + 
    S2[SP[a1, a4], a2, a3, a5, n] - S2[SP[a1, a5], a2, a3, a4, n] - 
    S2[SP[a1, a5], a2, a4, a3, n] - S2[SP[a1, a5], a3, a2, a4, n] - 
    S2[SP[a1, a5], a3, a4, a2, n] - S2[SP[a1, a5], a4, a2, a3, n] - 
    S2[SP[a1, a5], a4, a3, a2, n] + S2[SP[a3, a5], a1, a2, a4, n] + 
    S2[SP[a3, a5], a1, a4, a2, n] + S2[a5, a3, a2, a1, a4, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5}}, {a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a4_, a1_, a2_, a5_, a3_, n_] :> 
  S2[a3, a5, n]*S2[a1, a2, a4, n] + S2[a3, a5, n]*S2[a1, a4, a2, n] - 
    S2[a1, SP[a2, a3], SP[a4, a5], n] - S2[a1, SP[a3, a4], SP[a2, a5], n] - 
    S2[a1, a4, n]*S2[a2, a5, a3, n] + S2[a2, SP[a1, a5], SP[a3, a4], n] + 
    S2[SP[a1, a2], a5, SP[a3, a4], n] + S2[SP[a1, a2], SP[a4, a5], a3, n] - 
    S2[SP[a1, a3], a2, SP[a4, a5], n] - S2[SP[a1, a3], a4, SP[a2, a5], n] - 
    S2[SP[a1, a3], SP[a2, a5], a4, n] - S2[SP[a1, a3], SP[a4, a5], a2, n] + 
    S2[a1, a2, a3, SP[a4, a5], n] - S2[a3, n]*S2[a1, a2, a4, a5, n] - 
    S2[a1, a2, a4, SP[a3, a5], n] + S2[a4, n]*S2[a1, a2, a5, a3, n] - 
    S2[a3, n]*S2[a1, a2, a5, a4, n] - S2[a1, a2, a5, SP[a3, a4], n] - 
    S2[a1, a2, SP[a3, a5], a4, n] + S2[a1, a3, a2, SP[a4, a5], n] + 
    S2[a1, a3, a4, SP[a2, a5], n] + S2[a1, a3, SP[a2, a5], a4, n] + 
    S2[a1, a3, SP[a4, a5], a2, n] - S2[a3, n]*S2[a1, a4, a2, a5, n] - 
    S2[a1, a4, a2, SP[a3, a5], n] + S2[a1, a4, a3, SP[a2, a5], n] - 
    S2[a3, n]*S2[a1, a4, a5, a2, n] + S2[a2, n]*S2[a1, a4, a5, a3, n] + 
    S2[a1, a4, SP[a2, a5], a3, n] - S2[a1, a4, SP[a3, a5], a2, n] - 
    S2[a3, n]*S2[a1, a5, a2, a4, n] - S2[a1, a5, a2, SP[a3, a4], n] + 
    S2[a2, n]*S2[a1, a5, a3, a4, n] + S2[a1, a5, a3, SP[a2, a4], n] - 
    S2[a3, n]*S2[a1, a5, a4, a2, n] + S2[a2, n]*S2[a1, a5, a4, a3, n] + 
    S2[a1, a5, SP[a2, a4], a3, n] - S2[a1, a5, SP[a3, a4], a2, n] + 
    S2[a1, SP[a2, a4], a5, a3, n] + S2[a1, SP[a2, a5], a3, a4, n] + 
    S2[a1, SP[a2, a5], a4, a3, n] - S2[a1, SP[a3, a5], a2, a4, n] - 
    S2[a1, SP[a3, a5], a4, a2, n] - S2[a2, a1, a5, SP[a3, a4], n] - 
    S2[a2, a1, SP[a4, a5], a3, n] - S2[a2, a5, a1, SP[a3, a4], n] - 
    S2[a2, a5, SP[a1, a3], a4, n] - S2[a2, SP[a1, a5], a3, a4, n] - 
    S2[a2, SP[a1, a5], a4, a3, n] + S2[a3, a1, a2, SP[a4, a5], n] + 
    S2[a3, a1, a4, SP[a2, a5], n] + S2[a3, a1, SP[a2, a5], a4, n] + 
    S2[a3, a1, SP[a4, a5], a2, n] + S2[a3, SP[a1, a5], a2, a4, n] + 
    S2[a3, SP[a1, a5], a4, a2, n] - S2[a3, n]*S2[a5, a1, a2, a4, n] - 
    S2[a5, a1, a2, SP[a3, a4], n] + S2[a2, n]*S2[a5, a1, a3, a4, n] + 
    S2[a5, a1, a3, SP[a2, a4], n] - S2[a3, n]*S2[a5, a1, a4, a2, n] + 
    S2[a2, n]*S2[a5, a1, a4, a3, n] + S2[a5, a1, SP[a2, a4], a3, n] - 
    S2[a5, a1, SP[a3, a4], a2, n] + S2[a2, n]*S2[a5, a3, a1, a4, n] + 
    S2[a5, a3, a1, SP[a2, a4], n] + S2[a5, a3, SP[a1, a2], a4, n] + 
    S2[a5, SP[a1, a2], a3, a4, n] + S2[a5, SP[a1, a2], a4, a3, n] - 
    S2[a5, SP[a1, a3], a2, a4, n] - S2[a5, SP[a1, a3], a4, a2, n] + 
    S2[a5, SP[a2, a3], a1, a4, n] + S2[SP[a1, a4], a2, a5, a3, n] + 
    S2[SP[a2, a5], a1, a3, a4, n] + S2[SP[a2, a5], a1, a4, a3, n] + 
    S2[SP[a2, a5], a3, a1, a4, n] - S2[SP[a3, a5], a1, a2, a4, n] - 
    S2[SP[a3, a5], a1, a4, a2, n] - S2[a5, a2, a1, a3, a4, n] - 
    S2[a5, a2, a1, a4, a3, n] - S2[a5, a2, a3, a1, a4, n] - 
    S2[a5, a3, a2, a1, a4, n] /; MyMemberQ[{{a1, a2, a3, a4, a5}}, 
     {a1, a2, a3, a4, a5}] && a1 != a2 != a3 != a4 != a5, 
 S2[a4_, a1_, a3_, a2_, a5_, n_] :> 
  -(S2[a2, a5, n]*S2[a1, a3, a4, n]) - S2[a2, a5, n]*S2[a1, a4, a3, n] + 
    S2[a1, SP[a2, a3], SP[a4, a5], n] + S2[a1, SP[a2, a4], SP[a3, a5], n] + 
    S2[a1, a4, n]*S2[a2, a3, a5, n] + S2[a1, a4, n]*S2[a2, a5, a3, n] - 
    S2[a2, SP[a1, a3], SP[a4, a5], n] - S2[a2, SP[a1, a5], SP[a3, a4], n] + 
    S2[SP[a1, a2], a4, SP[a3, a5], n] - S2[SP[a1, a2], a5, SP[a3, a4], n] - 
    S2[SP[a1, a2], SP[a3, a4], a5, n] + S2[SP[a1, a2], SP[a3, a5], a4, n] - 
    S2[a1, a2, a4, SP[a3, a5], n] + S2[a1, a2, a5, SP[a3, a4], n] + 
    S2[a1, a2, SP[a3, a4], a5, n] - S2[a1, a2, SP[a3, a5], a4, n] + 
    S2[a4, n]*S2[a1, a3, a2, a5, n] - S2[a1, a4, a2, SP[a3, a5], n] - 
    S2[a1, a4, SP[a2, a3], a5, n] - S2[a1, SP[a2, a3], a4, a5, n] - 
    S2[a1, SP[a2, a3], a5, a4, n] + S2[a1, SP[a3, a4], a2, a5, n] - 
    S2[a2, a1, a4, SP[a3, a5], n] + S2[a2, a1, a5, SP[a3, a4], n] + 
    S2[a2, a1, SP[a3, a4], a5, n] - S2[a2, a1, SP[a3, a5], a4, n] - 
    S2[a5, n]*S2[a2, a3, a1, a4, n] + S2[a2, a5, a1, SP[a3, a4], n] + 
    S2[a2, a5, SP[a1, a3], a4, n] + S2[a2, SP[a1, a3], a4, a5, n] + 
    S2[a2, SP[a1, a3], a5, a4, n] - S2[a2, SP[a3, a5], a1, a4, n] + 
    S2[SP[a1, a4], a3, a2, a5, n] - S2[SP[a2, a5], a3, a1, a4, n] + 
    S2[a5, a2, a3, a1, a4, n] /; MyMemberQ[{{a1, a2, a3, a4, a5}}, 
     {a1, a2, a3, a4, a5}] && a1 != a2 != a3 != a4 != a5, 
 S2[a4_, a1_, a3_, a5_, a2_, n_] :> 
  S2[a2, a5, n]*S2[a1, a3, a4, n] + S2[a2, a5, n]*S2[a1, a4, a3, n] - 
    S2[a1, SP[a2, a3], SP[a4, a5], n] - S2[a1, SP[a2, a4], SP[a3, a5], n] - 
    S2[a1, a4, n]*S2[a2, a5, a3, n] + S2[a2, SP[a1, a5], SP[a3, a4], n] - 
    S2[SP[a1, a2], a3, SP[a4, a5], n] - S2[SP[a1, a2], a4, SP[a3, a5], n] + 
    S2[SP[a1, a2], a5, SP[a3, a4], n] - S2[SP[a1, a2], SP[a3, a5], a4, n] + 
    S2[a1, a2, a3, SP[a4, a5], n] + S2[a1, a2, a4, SP[a3, a5], n] - 
    S2[a1, a2, a5, SP[a3, a4], n] + S2[a1, a2, SP[a3, a5], a4, n] + 
    S2[a1, a3, a2, SP[a4, a5], n] - S2[a2, n]*S2[a1, a3, a4, a5, n] - 
    S2[a1, a3, a4, SP[a2, a5], n] + S2[a4, n]*S2[a1, a3, a5, a2, n] - 
    S2[a2, n]*S2[a1, a3, a5, a4, n] - S2[a1, a3, SP[a2, a5], a4, n] + 
    S2[a1, a3, SP[a4, a5], a2, n] + S2[a1, a4, a2, SP[a3, a5], n] - 
    S2[a2, n]*S2[a1, a4, a3, a5, n] - S2[a1, a4, a3, SP[a2, a5], n] + 
    S2[a1, SP[a3, a4], a5, a2, n] + S2[a2, a1, a3, SP[a4, a5], n] + 
    S2[a2, a1, a4, SP[a3, a5], n] - S2[a2, a1, a5, SP[a3, a4], n] + 
    S2[a2, a1, SP[a3, a5], a4, n] - S2[a2, a5, a1, SP[a3, a4], n] - 
    S2[a2, a5, SP[a1, a3], a4, n] + S2[a2, n]*S2[a5, a3, a1, a4, n] + 
    S2[a5, a3, a1, SP[a2, a4], n] + S2[a5, a3, SP[a1, a2], a4, n] + 
    S2[a5, SP[a2, a3], a1, a4, n] + S2[SP[a1, a4], a3, a5, a2, n] + 
    S2[SP[a2, a5], a3, a1, a4, n] - S2[a5, a2, a3, a1, a4, n] - 
    S2[a5, a3, a1, a2, a4, n] - S2[a5, a3, a1, a4, a2, n] - 
    S2[a5, a3, a2, a1, a4, n] /; MyMemberQ[{{a1, a2, a3, a4, a5}}, 
     {a1, a2, a3, a4, a5}] && a1 != a2 != a3 != a4 != a5, 
 S2[a4_, a1_, a5_, a2_, a3_, n_] :> 
  S2[a1, a4, n]*S2[a2, a3, a5, n] + S2[a1, a4, n]*S2[a2, a5, a3, n] - 
    S2[a2, SP[a1, a3], SP[a4, a5], n] - S2[a2, SP[a1, a5], SP[a3, a4], n] - 
    S2[SP[a1, a2], a3, SP[a4, a5], n] - S2[SP[a1, a2], a5, SP[a3, a4], n] - 
    S2[SP[a1, a2], SP[a3, a4], a5, n] - S2[SP[a1, a2], SP[a4, a5], a3, n] + 
    S2[a1, a2, a3, SP[a4, a5], n] + S2[a1, a2, a5, SP[a3, a4], n] + 
    S2[a1, a2, SP[a3, a4], a5, n] + S2[a1, a2, SP[a4, a5], a3, n] + 
    S2[a5, n]*S2[a1, a3, a2, a4, n] + S2[a1, a3, a2, SP[a4, a5], n] + 
    S2[a5, n]*S2[a1, a3, a4, a2, n] - S2[a2, n]*S2[a1, a3, a4, a5, n] - 
    S2[a2, n]*S2[a1, a3, a5, a4, n] - S2[a1, a3, a5, SP[a2, a4], n] - 
    S2[a1, a3, SP[a2, a4], a5, n] + S2[a1, a3, SP[a4, a5], a2, n] + 
    S2[a5, n]*S2[a1, a4, a3, a2, n] - S2[a2, n]*S2[a1, a4, a3, a5, n] - 
    S2[a2, n]*S2[a1, a4, a5, a3, n] - S2[a1, a4, a5, SP[a2, a3], n] - 
    S2[a1, a4, SP[a2, a3], a5, n] - S2[a1, a4, SP[a2, a5], a3, n] + 
    S2[a1, a4, SP[a3, a5], a2, n] + S2[a4, n]*S2[a1, a5, a2, a3, n] + 
    S2[a1, a5, a2, SP[a3, a4], n] - S2[a2, n]*S2[a1, a5, a3, a4, n] - 
    S2[a1, a5, a3, SP[a2, a4], n] - S2[a2, n]*S2[a1, a5, a4, a3, n] - 
    S2[a1, a5, a4, SP[a2, a3], n] - S2[a1, a5, SP[a2, a3], a4, n] - 
    S2[a1, SP[a2, a3], a4, a5, n] - S2[a1, SP[a2, a3], a5, a4, n] - 
    S2[a1, SP[a2, a5], a3, a4, n] - S2[a1, SP[a2, a5], a4, a3, n] + 
    S2[a1, SP[a3, a5], a2, a4, n] + S2[a1, SP[a3, a5], a4, a2, n] + 
    S2[a1, SP[a4, a5], a2, a3, n] + S2[a1, SP[a4, a5], a3, a2, n] + 
    S2[a2, a1, a3, SP[a4, a5], n] + S2[a2, a1, a5, SP[a3, a4], n] + 
    S2[a2, a1, SP[a3, a4], a5, n] + S2[a2, a1, SP[a4, a5], a3, n] - 
    S2[a5, n]*S2[a2, a3, a1, a4, n] + S2[a2, a5, a1, SP[a3, a4], n] + 
    S2[a2, a5, SP[a1, a3], a4, n] + S2[a2, SP[a1, a3], a4, a5, n] + 
    S2[a2, SP[a1, a3], a5, a4, n] + S2[a2, SP[a1, a5], a3, a4, n] + 
    S2[a2, SP[a1, a5], a4, a3, n] - S2[a2, SP[a3, a5], a1, a4, n] - 
    S2[a2, n]*S2[a5, a1, a3, a4, n] - S2[a5, a1, a3, SP[a2, a4], n] - 
    S2[a2, n]*S2[a5, a1, a4, a3, n] - S2[a5, a1, a4, SP[a2, a3], n] - 
    S2[a5, a1, SP[a2, a3], a4, n] - S2[a5, a1, SP[a2, a4], a3, n] - 
    S2[a5, SP[a1, a2], a3, a4, n] - S2[a5, SP[a1, a2], a4, a3, n] + 
    S2[SP[a1, a4], a5, a2, a3, n] + S2[SP[a1, a5], a3, a2, a4, n] + 
    S2[SP[a1, a5], a3, a4, a2, n] + S2[SP[a1, a5], a4, a3, a2, n] - 
    S2[SP[a2, a5], a1, a3, a4, n] - S2[SP[a2, a5], a1, a4, a3, n] - 
    S2[SP[a2, a5], a3, a1, a4, n] + S2[a5, a1, a2, a3, a4, n] + 
    S2[a5, a1, a2, a4, a3, n] + S2[a5, a1, a4, a2, a3, n] + 
    S2[a5, a2, a1, a3, a4, n] + S2[a5, a2, a1, a4, a3, n] + 
    S2[a5, a2, a3, a1, a4, n] /; MyMemberQ[{{a1, a2, a3, a4, a5}}, 
     {a1, a2, a3, a4, a5}] && a1 != a2 != a3 != a4 != a5, 
 S2[a4_, a1_, a5_, a3_, a2_, n_] :> 
  -(S2[a1, a4, n]*S2[a2, a3, a5, n]) + S2[a2, SP[a1, a3], SP[a4, a5], n] + 
    S2[SP[a1, a2], a3, SP[a4, a5], n] + S2[SP[a1, a2], SP[a3, a4], a5, n] - 
    S2[a1, a2, a3, SP[a4, a5], n] - S2[a1, a2, SP[a3, a4], a5, n] - 
    S2[a5, n]*S2[a1, a3, a2, a4, n] - S2[a1, a3, a2, SP[a4, a5], n] - 
    S2[a5, n]*S2[a1, a3, a4, a2, n] + S2[a2, n]*S2[a1, a3, a4, a5, n] + 
    S2[a2, n]*S2[a1, a3, a5, a4, n] + S2[a1, a3, a5, SP[a2, a4], n] + 
    S2[a1, a3, SP[a2, a4], a5, n] - S2[a1, a3, SP[a4, a5], a2, n] - 
    S2[a5, n]*S2[a1, a4, a3, a2, n] + S2[a2, n]*S2[a1, a4, a3, a5, n] + 
    S2[a1, a4, SP[a2, a3], a5, n] - S2[a1, a4, SP[a3, a5], a2, n] + 
    S2[a4, n]*S2[a1, a5, a3, a2, n] + S2[a1, a5, a3, SP[a2, a4], n] + 
    S2[a1, a5, SP[a3, a4], a2, n] + S2[a1, SP[a2, a3], a4, a5, n] + 
    S2[a1, SP[a2, a3], a5, a4, n] - S2[a1, SP[a3, a5], a2, a4, n] - 
    S2[a1, SP[a3, a5], a4, a2, n] - S2[a2, a1, a3, SP[a4, a5], n] - 
    S2[a2, a1, SP[a3, a4], a5, n] + S2[a5, n]*S2[a2, a3, a1, a4, n] - 
    S2[a2, SP[a1, a3], a4, a5, n] - S2[a2, SP[a1, a3], a5, a4, n] + 
    S2[a2, SP[a3, a5], a1, a4, n] - S2[a2, n]*S2[a5, a3, a1, a4, n] - 
    S2[a5, a3, a1, SP[a2, a4], n] - S2[a5, a3, SP[a1, a2], a4, n] - 
    S2[a5, SP[a2, a3], a1, a4, n] + S2[SP[a1, a4], a5, a3, a2, n] - 
    S2[SP[a1, a5], a3, a2, a4, n] - S2[SP[a1, a5], a3, a4, a2, n] - 
    S2[SP[a1, a5], a4, a3, a2, n] + S2[a5, a1, a3, a2, a4, n] + 
    S2[a5, a1, a3, a4, a2, n] + S2[a5, a1, a4, a3, a2, n] + 
    S2[a5, a3, a1, a2, a4, n] + S2[a5, a3, a1, a4, a2, n] + 
    S2[a5, a3, a2, a1, a4, n] /; MyMemberQ[{{a1, a2, a3, a4, a5}}, 
     {a1, a2, a3, a4, a5}] && a1 != a2 != a3 != a4 != a5, 
 S2[a4_, a2_, a1_, a3_, a5_, n_] :> 
  S2[a3, a5, n]*S2[a1, a2, a4, n] - S2[a2, a4, n]*S2[a1, a3, a5, n] + 
    S2[SP[a1, a2], a3, SP[a4, a5], n] + S2[SP[a1, a2], SP[a3, a4], a5, n] - 
    S2[SP[a1, a3], a2, SP[a4, a5], n] - S2[SP[a1, a3], SP[a2, a5], a4, n] + 
    S2[a5, n]*S2[a1, a2, a3, a4, n] - S2[a4, n]*S2[a1, a2, a3, a5, n] + 
    S2[a5, n]*S2[a1, a2, a4, a3, n] - S2[a3, n]*S2[a1, a2, a4, a5, n] - 
    S2[a3, n]*S2[a1, a2, a5, a4, n] - S2[a1, a2, a5, SP[a3, a4], n] - 
    2*S2[a1, a2, SP[a3, a4], a5, n] + S2[a1, a2, SP[a4, a5], a3, n] + 
    S2[a5, n]*S2[a1, a3, a2, a4, n] - S2[a4, n]*S2[a1, a3, a2, a5, n] + 
    S2[a2, n]*S2[a1, a3, a4, a5, n] + S2[a1, a3, a4, SP[a2, a5], n] - 
    S2[a4, n]*S2[a1, a3, a5, a2, n] + S2[a2, n]*S2[a1, a3, a5, a4, n] + 
    2*S2[a1, a3, SP[a2, a5], a4, n] - S2[a1, a3, SP[a4, a5], a2, n] + 
    S2[a2, n]*S2[a1, a4, a3, a5, n] + S2[a1, a4, a3, SP[a2, a5], n] + 
    S2[a1, a4, SP[a2, a3], a5, n] - S2[a3, n]*S2[a1, a5, a2, a4, n] - 
    S2[a1, a5, a2, SP[a3, a4], n] - S2[a1, a5, SP[a2, a3], a4, n] + 
    S2[a1, SP[a2, a5], a3, a4, n] + S2[a1, SP[a2, a5], a4, a3, n] - 
    S2[a1, SP[a3, a4], a2, a5, n] - S2[a1, SP[a3, a4], a5, a2, n] - 
    S2[a2, a1, a3, SP[a4, a5], n] - S2[a2, a1, SP[a3, a4], a5, n] - 
    S2[a2, SP[a1, a4], a3, a5, n] + S2[a3, a1, a2, SP[a4, a5], n] + 
    S2[a3, a1, SP[a2, a5], a4, n] + S2[a3, SP[a1, a5], a2, a4, n] + 
    S2[a2, n]*S2[a4, a1, a3, a5, n] + S2[a4, a1, a3, SP[a2, a5], n] + 
    S2[a4, a1, SP[a2, a3], a5, n] + S2[a4, SP[a1, a2], a3, a5, n] - 
    S2[a3, n]*S2[a5, a1, a2, a4, n] - S2[a5, a1, a2, SP[a3, a4], n] - 
    S2[a5, a1, SP[a2, a3], a4, n] - S2[a5, SP[a1, a3], a2, a4, n] - 
    S2[SP[a1, a4], a2, a3, a5, n] - S2[SP[a1, a4], a3, a2, a5, n] - 
    S2[SP[a1, a4], a3, a5, a2, n] + S2[SP[a1, a5], a2, a3, a4, n] + 
    S2[SP[a1, a5], a2, a4, a3, n] + S2[SP[a1, a5], a3, a2, a4, n] + 
    S2[SP[a2, a4], a1, a3, a5, n] - S2[SP[a3, a5], a1, a2, a4, n] + 
    S2[a5, a3, a1, a2, a4, n] /; MyMemberQ[{{a1, a2, a3, a4, a5}}, 
     {a1, a2, a3, a4, a5}] && a1 != a2 != a3 != a4 != a5, 
 S2[a4_, a2_, a1_, a5_, a3_, n_] :> 
  -(S2[a3, a5, n]*S2[a1, a2, a4, n]) - S2[a2, a4, n]*S2[a1, a5, a3, n] + 
    S2[a1, SP[a2, a3], SP[a4, a5], n] + S2[a1, SP[a2, a5], SP[a3, a4], n] + 
    S2[SP[a1, a2], a5, SP[a3, a4], n] + S2[SP[a1, a2], SP[a4, a5], a3, n] + 
    S2[SP[a1, a3], a2, SP[a4, a5], n] + S2[SP[a1, a3], SP[a2, a5], a4, n] - 
    S2[a1, a2, a3, SP[a4, a5], n] + S2[a3, n]*S2[a1, a2, a4, a5, n] + 
    S2[a1, a2, a4, SP[a3, a5], n] - S2[a4, n]*S2[a1, a2, a5, a3, n] + 
    S2[a3, n]*S2[a1, a2, a5, a4, n] - S2[a1, a2, a5, SP[a3, a4], n] + 
    S2[a1, a2, SP[a3, a5], a4, n] - 2*S2[a1, a2, SP[a4, a5], a3, n] - 
    S2[a1, a3, a2, SP[a4, a5], n] - S2[a1, a3, SP[a2, a5], a4, n] + 
    S2[a2, n]*S2[a1, a4, a5, a3, n] + S2[a1, a4, a5, SP[a2, a3], n] + 
    S2[a1, a4, SP[a2, a5], a3, n] - S2[a4, n]*S2[a1, a5, a2, a3, n] + 
    S2[a3, n]*S2[a1, a5, a2, a4, n] - S2[a1, a5, a2, SP[a3, a4], n] - 
    S2[a4, n]*S2[a1, a5, a3, a2, n] + S2[a2, n]*S2[a1, a5, a3, a4, n] + 
    S2[a2, n]*S2[a1, a5, a4, a3, n] + S2[a1, a5, a4, SP[a2, a3], n] + 
    S2[a1, a5, SP[a2, a3], a4, n] - S2[a1, a5, SP[a3, a4], a2, n] + 
    S2[a1, SP[a3, a5], a2, a4, n] - S2[a1, SP[a4, a5], a2, a3, n] - 
    S2[a1, SP[a4, a5], a3, a2, n] - S2[a2, a1, a5, SP[a3, a4], n] - 
    S2[a2, a1, SP[a4, a5], a3, n] - S2[a2, SP[a1, a4], a5, a3, n] - 
    S2[a3, a1, a2, SP[a4, a5], n] - S2[a3, a1, SP[a2, a5], a4, n] - 
    S2[a3, SP[a1, a5], a2, a4, n] + S2[a2, n]*S2[a4, a1, a5, a3, n] + 
    S2[a4, a1, a5, SP[a2, a3], n] + S2[a4, a1, SP[a2, a5], a3, n] + 
    S2[a4, SP[a1, a2], a5, a3, n] + S2[a3, n]*S2[a5, a1, a2, a4, n] + 
    S2[a5, a1, a2, SP[a3, a4], n] + S2[a5, a1, SP[a2, a3], a4, n] + 
    S2[a5, SP[a1, a3], a2, a4, n] - S2[SP[a1, a4], a2, a5, a3, n] - 
    S2[SP[a1, a4], a5, a2, a3, n] - S2[SP[a1, a4], a5, a3, a2, n] + 
    S2[SP[a2, a4], a1, a5, a3, n] + S2[SP[a3, a5], a1, a2, a4, n] - 
    S2[a5, a1, a2, a3, a4, n] - S2[a5, a1, a2, a4, a3, n] - 
    S2[a5, a1, a3, a2, a4, n] - S2[a5, a3, a1, a2, a4, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5}}, {a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a4_, a2_, a3_, a1_, a5_, n_] :> 
  S2[a2, a4, n]*S2[a1, a3, a5, n] + S2[a2, a4, n]*S2[a1, a5, a3, n] - 
    S2[a1, SP[a2, a3], SP[a4, a5], n] - S2[a1, SP[a2, a5], SP[a3, a4], n] - 
    S2[a1, a5, n]*S2[a2, a3, a4, n] - S2[a1, a5, n]*S2[a2, a4, a3, n] + 
    S2[a2, SP[a1, a3], SP[a4, a5], n] + S2[a2, SP[a1, a4], SP[a3, a5], n] + 
    S2[SP[a1, a2], a4, SP[a3, a5], n] - S2[SP[a1, a2], a5, SP[a3, a4], n] - 
    S2[SP[a1, a2], SP[a3, a4], a5, n] + S2[SP[a1, a2], SP[a3, a5], a4, n] - 
    S2[a1, a2, a4, SP[a3, a5], n] + S2[a1, a2, a5, SP[a3, a4], n] + 
    S2[a1, a2, SP[a3, a4], a5, n] - S2[a1, a2, SP[a3, a5], a4, n] - 
    S2[a5, n]*S2[a1, a3, a2, a4, n] + S2[a1, a5, a2, SP[a3, a4], n] + 
    S2[a1, a5, SP[a2, a3], a4, n] + S2[a1, SP[a2, a3], a4, a5, n] + 
    S2[a1, SP[a2, a3], a5, a4, n] - S2[a1, SP[a3, a5], a2, a4, n] - 
    S2[a2, a1, a4, SP[a3, a5], n] + S2[a2, a1, a5, SP[a3, a4], n] + 
    S2[a2, a1, SP[a3, a4], a5, n] - S2[a2, a1, SP[a3, a5], a4, n] + 
    S2[a4, n]*S2[a2, a3, a1, a5, n] - S2[a2, a4, a1, SP[a3, a5], n] - 
    S2[a2, a4, SP[a1, a3], a5, n] - S2[a2, SP[a1, a3], a4, a5, n] - 
    S2[a2, SP[a1, a3], a5, a4, n] + S2[a2, SP[a3, a4], a1, a5, n] - 
    S2[SP[a1, a5], a3, a2, a4, n] + S2[SP[a2, a4], a3, a1, a5, n] + 
    S2[a5, a1, a3, a2, a4, n] /; MyMemberQ[{{a1, a2, a3, a4, a5}}, 
     {a1, a2, a3, a4, a5}] && a1 != a2 != a3 != a4 != a5, 
 S2[a4_, a2_, a3_, a5_, a1_, n_] :> 
  -(S2[a2, a4, n]*S2[a1, a5, a3, n]) + S2[a1, SP[a2, a5], SP[a3, a4], n] + 
    S2[a1, a5, n]*S2[a2, a3, a4, n] + S2[a1, a5, n]*S2[a2, a4, a3, n] - 
    S2[a2, SP[a1, a3], SP[a4, a5], n] - S2[a2, SP[a1, a4], SP[a3, a5], n] - 
    S2[SP[a1, a2], a3, SP[a4, a5], n] - S2[SP[a1, a2], a4, SP[a3, a5], n] + 
    S2[SP[a1, a2], a5, SP[a3, a4], n] - S2[SP[a1, a2], SP[a3, a5], a4, n] + 
    S2[a1, a2, a3, SP[a4, a5], n] + S2[a1, a2, a4, SP[a3, a5], n] - 
    S2[a1, a2, a5, SP[a3, a4], n] + S2[a1, a2, SP[a3, a5], a4, n] + 
    S2[a4, n]*S2[a1, a3, a2, a5, n] + S2[a1, a3, a2, SP[a4, a5], n] - 
    S2[a2, n]*S2[a1, a3, a4, a5, n] - S2[a1, a3, a4, SP[a2, a5], n] + 
    S2[a4, n]*S2[a1, a3, a5, a2, n] - S2[a2, n]*S2[a1, a3, a5, a4, n] - 
    S2[a1, a3, SP[a2, a5], a4, n] + S2[a1, a3, SP[a4, a5], a2, n] - 
    S2[a2, n]*S2[a1, a4, a3, a5, n] - S2[a1, a4, a3, SP[a2, a5], n] - 
    S2[a1, a4, SP[a2, a3], a5, n] - S2[a1, a5, a2, SP[a3, a4], n] - 
    S2[a1, a5, SP[a2, a3], a4, n] - S2[a1, SP[a2, a3], a4, a5, n] - 
    S2[a1, SP[a2, a3], a5, a4, n] - S2[a1, SP[a2, a4], a3, a5, n] + 
    S2[a1, SP[a3, a4], a2, a5, n] + S2[a1, SP[a3, a4], a5, a2, n] + 
    S2[a2, a1, a3, SP[a4, a5], n] + S2[a2, a1, a4, SP[a3, a5], n] - 
    S2[a2, a1, a5, SP[a3, a4], n] + S2[a2, a1, SP[a3, a5], a4, n] - 
    S2[a4, n]*S2[a2, a3, a1, a5, n] + S2[a2, a4, a1, SP[a3, a5], n] + 
    S2[a2, a4, SP[a1, a3], a5, n] + S2[a2, SP[a1, a3], a4, a5, n] + 
    S2[a2, SP[a1, a3], a5, a4, n] + S2[a2, SP[a1, a4], a3, a5, n] - 
    S2[a2, SP[a3, a4], a1, a5, n] - S2[a2, n]*S2[a4, a1, a3, a5, n] - 
    S2[a4, a1, a3, SP[a2, a5], n] - S2[a4, a1, SP[a2, a3], a5, n] + 
    S2[a1, n]*S2[a4, a2, a3, a5, n] + S2[a4, a2, a3, SP[a1, a5], n] + 
    S2[a4, a2, SP[a1, a3], a5, n] + S2[a1, n]*S2[a5, a3, a2, a4, n] + 
    S2[a5, a3, a2, SP[a1, a4], n] + S2[a5, a3, SP[a1, a2], a4, n] + 
    S2[a5, SP[a1, a3], a2, a4, n] + S2[SP[a1, a4], a2, a3, a5, n] + 
    S2[SP[a1, a4], a3, a2, a5, n] + S2[SP[a1, a4], a3, a5, a2, n] + 
    S2[SP[a1, a5], a3, a2, a4, n] - S2[SP[a2, a4], a1, a3, a5, n] - 
    S2[SP[a2, a4], a3, a1, a5, n] - S2[a5, a1, a3, a2, a4, n] - 
    S2[a5, a3, a1, a2, a4, n] - S2[a5, a3, a2, a1, a4, n] - 
    S2[a5, a3, a2, a4, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5}}, 
     {a1, a2, a3, a4, a5}] && a1 != a2 != a3 != a4 != a5, 
 S2[a4_, a2_, a5_, a1_, a3_, n_] :> 
  S2[a2, a4, n]*S2[a1, a3, a5, n] + S2[a2, a4, n]*S2[a1, a5, a3, n] - 
    S2[a1, SP[a2, a3], SP[a4, a5], n] - S2[a1, SP[a2, a5], SP[a3, a4], n] - 
    S2[SP[a1, a2], a3, SP[a4, a5], n] - S2[SP[a1, a2], a5, SP[a3, a4], n] - 
    S2[SP[a1, a2], SP[a3, a4], a5, n] - S2[SP[a1, a2], SP[a4, a5], a3, n] + 
    S2[a1, a2, a3, SP[a4, a5], n] + S2[a1, a2, a5, SP[a3, a4], n] + 
    S2[a1, a2, SP[a3, a4], a5, n] + S2[a1, a2, SP[a4, a5], a3, n] + 
    S2[a1, a3, a2, SP[a4, a5], n] + S2[a5, n]*S2[a1, a3, a4, a2, n] - 
    S2[a2, n]*S2[a1, a3, a4, a5, n] - S2[a2, n]*S2[a1, a3, a5, a4, n] - 
    S2[a1, a3, a5, SP[a2, a4], n] - S2[a1, a3, SP[a2, a4], a5, n] + 
    S2[a1, a3, SP[a4, a5], a2, n] + S2[a5, n]*S2[a1, a4, a2, a3, n] + 
    S2[a1, a4, a2, SP[a3, a5], n] + S2[a5, n]*S2[a1, a4, a3, a2, n] - 
    S2[a2, n]*S2[a1, a4, a3, a5, n] - S2[a2, n]*S2[a1, a4, a5, a3, n] - 
    S2[a1, a4, a5, SP[a2, a3], n] - S2[a1, a4, SP[a2, a3], a5, n] + 
    S2[a1, a4, SP[a3, a5], a2, n] + S2[a1, a5, a2, SP[a3, a4], n] - 
    S2[a2, n]*S2[a1, a5, a3, a4, n] - S2[a1, a5, a3, SP[a2, a4], n] - 
    S2[a2, n]*S2[a1, a5, a4, a3, n] - S2[a1, a5, a4, SP[a2, a3], n] - 
    S2[a1, a5, SP[a2, a4], a3, n] - S2[a1, SP[a2, a4], a3, a5, n] - 
    S2[a1, SP[a2, a4], a5, a3, n] + S2[a1, SP[a3, a5], a4, a2, n] + 
    S2[a1, SP[a4, a5], a2, a3, n] + S2[a1, SP[a4, a5], a3, a2, n] + 
    S2[a2, a1, a3, SP[a4, a5], n] + S2[a2, a1, a5, SP[a3, a4], n] + 
    S2[a2, a1, SP[a3, a4], a5, n] + S2[a2, a1, SP[a4, a5], a3, n] - 
    S2[a5, n]*S2[a2, a4, a1, a3, n] - S2[a2, a4, a1, SP[a3, a5], n] - 
    S2[a2, a4, SP[a1, a5], a3, n] + S2[a4, n]*S2[a2, a5, a1, a3, n] + 
    S2[a2, a5, a1, SP[a3, a4], n] + S2[a2, a5, SP[a1, a4], a3, n] + 
    S2[a2, SP[a1, a4], a3, a5, n] + S2[a2, SP[a1, a4], a5, a3, n] - 
    S2[a2, n]*S2[a5, a1, a3, a4, n] - S2[a5, a1, a3, SP[a2, a4], n] - 
    S2[a2, n]*S2[a5, a1, a4, a3, n] - S2[a5, a1, a4, SP[a2, a3], n] - 
    S2[a5, a1, SP[a2, a3], a4, n] - S2[a5, a1, SP[a2, a4], a3, n] - 
    S2[a5, SP[a1, a2], a3, a4, n] - S2[a5, SP[a1, a2], a4, a3, n] + 
    S2[SP[a1, a5], a3, a4, a2, n] + S2[SP[a1, a5], a4, a2, a3, n] + 
    S2[SP[a1, a5], a4, a3, a2, n] + S2[SP[a2, a4], a5, a1, a3, n] - 
    S2[SP[a2, a5], a1, a3, a4, n] - S2[SP[a2, a5], a1, a4, a3, n] - 
    S2[SP[a2, a5], a4, a1, a3, n] + S2[a5, a1, a2, a3, a4, n] + 
    S2[a5, a1, a2, a4, a3, n] + S2[a5, a1, a3, a2, a4, n] + 
    S2[a5, a2, a1, a3, a4, n] + S2[a5, a2, a1, a4, a3, n] + 
    S2[a5, a2, a4, a1, a3, n] /; MyMemberQ[{{a1, a2, a3, a4, a5}}, 
     {a1, a2, a3, a4, a5}] && a1 != a2 != a3 != a4 != a5, 
 S2[a4_, a2_, a5_, a3_, a1_, n_] :> 
  -(S2[a2, a4, n]*S2[a1, a3, a5, n]) + S2[a1, SP[a2, a3], SP[a4, a5], n] + 
    S2[SP[a1, a2], a3, SP[a4, a5], n] + S2[SP[a1, a2], SP[a3, a4], a5, n] - 
    S2[a1, a2, a3, SP[a4, a5], n] - S2[a1, a2, SP[a3, a4], a5, n] - 
    S2[a1, a3, a2, SP[a4, a5], n] - S2[a5, n]*S2[a1, a3, a4, a2, n] + 
    S2[a2, n]*S2[a1, a3, a4, a5, n] + S2[a2, n]*S2[a1, a3, a5, a4, n] + 
    S2[a1, a3, a5, SP[a2, a4], n] + S2[a1, a3, SP[a2, a4], a5, n] - 
    S2[a1, a3, SP[a4, a5], a2, n] - S2[a5, n]*S2[a1, a4, a2, a3, n] - 
    S2[a1, a4, a2, SP[a3, a5], n] - S2[a5, n]*S2[a1, a4, a3, a2, n] + 
    S2[a2, n]*S2[a1, a4, a3, a5, n] + S2[a1, a4, SP[a2, a3], a5, n] - 
    S2[a1, a4, SP[a2, a5], a3, n] - S2[a1, a4, SP[a3, a5], a2, n] + 
    S2[a4, n]*S2[a1, a5, a2, a3, n] + S2[a1, a5, a2, SP[a3, a4], n] + 
    S2[a4, n]*S2[a1, a5, a3, a2, n] + S2[a1, a5, a3, SP[a2, a4], n] + 
    S2[a1, a5, SP[a2, a4], a3, n] + S2[a1, a5, SP[a3, a4], a2, n] + 
    S2[a1, SP[a2, a4], a3, a5, n] - S2[a1, SP[a3, a5], a4, a2, n] - 
    S2[a2, a1, a3, SP[a4, a5], n] - S2[a2, a1, SP[a3, a4], a5, n] + 
    S2[a5, n]*S2[a2, a4, a1, a3, n] + S2[a2, a4, a1, SP[a3, a5], n] + 
    S2[a2, a4, SP[a1, a5], a3, n] - S2[a4, n]*S2[a2, a5, a1, a3, n] - 
    S2[a2, a5, a1, SP[a3, a4], n] - S2[a2, a5, SP[a1, a4], a3, n] - 
    S2[a2, SP[a1, a4], a3, a5, n] - S2[a2, n]*S2[a4, a1, a5, a3, n] - 
    S2[a4, a1, a5, SP[a2, a3], n] - S2[a4, a1, SP[a2, a5], a3, n] + 
    S2[a1, n]*S2[a4, a2, a5, a3, n] + S2[a4, a2, a5, SP[a1, a3], n] + 
    S2[a4, a2, SP[a1, a5], a3, n] + S2[a2, n]*S2[a5, a1, a3, a4, n] + 
    S2[a5, a1, a3, SP[a2, a4], n] + S2[a2, n]*S2[a5, a1, a4, a3, n] + 
    S2[a5, a1, a4, SP[a2, a3], n] + S2[a5, a1, SP[a2, a3], a4, n] + 
    S2[a5, a1, SP[a2, a4], a3, n] - S2[a1, n]*S2[a5, a2, a3, a4, n] - 
    S2[a5, a2, a3, SP[a1, a4], n] - S2[a1, n]*S2[a5, a2, a4, a3, n] - 
    S2[a5, a2, a4, SP[a1, a3], n] - S2[a5, a2, SP[a1, a3], a4, n] - 
    S2[a5, a2, SP[a1, a4], a3, n] - S2[a1, n]*S2[a5, a3, a2, a4, n] - 
    S2[a5, a3, a2, SP[a1, a4], n] - S2[a5, a3, SP[a1, a2], a4, n] - 
    S2[a5, SP[a1, a3], a2, a4, n] + S2[SP[a1, a4], a2, a5, a3, n] + 
    S2[SP[a1, a4], a5, a2, a3, n] + S2[SP[a1, a4], a5, a3, a2, n] - 
    S2[SP[a1, a5], a2, a3, a4, n] - S2[SP[a1, a5], a2, a4, a3, n] - 
    S2[SP[a1, a5], a3, a2, a4, n] - S2[SP[a1, a5], a3, a4, a2, n] - 
    S2[SP[a1, a5], a4, a2, a3, n] - S2[SP[a1, a5], a4, a3, a2, n] - 
    S2[SP[a2, a4], a1, a5, a3, n] - S2[SP[a2, a4], a5, a1, a3, n] + 
    S2[SP[a2, a5], a1, a3, a4, n] + S2[SP[a2, a5], a1, a4, a3, n] + 
    S2[SP[a2, a5], a4, a1, a3, n] + S2[a5, a2, a3, a1, a4, n] + 
    S2[a5, a2, a3, a4, a1, n] + S2[a5, a2, a4, a3, a1, n] + 
    S2[a5, a3, a1, a2, a4, n] + S2[a5, a3, a2, a1, a4, n] + 
    S2[a5, a3, a2, a4, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5}}, 
     {a1, a2, a3, a4, a5}] && a1 != a2 != a3 != a4 != a5, 
 S2[a4_, a3_, a1_, a2_, a5_, n_] :> 
  -(S2[a3, a4, n]*S2[a1, a2, a5, n]) + S2[a2, a5, n]*S2[a1, a3, a4, n] - 
    S2[SP[a1, a2], a3, SP[a4, a5], n] - S2[SP[a1, a2], SP[a3, a5], a4, n] + 
    S2[SP[a1, a3], a2, SP[a4, a5], n] + S2[SP[a1, a3], SP[a2, a4], a5, n] + 
    S2[a5, n]*S2[a1, a2, a3, a4, n] - S2[a4, n]*S2[a1, a2, a3, a5, n] + 
    S2[a3, n]*S2[a1, a2, a4, a5, n] + S2[a1, a2, a4, SP[a3, a5], n] - 
    S2[a4, n]*S2[a1, a2, a5, a3, n] + S2[a3, n]*S2[a1, a2, a5, a4, n] + 
    2*S2[a1, a2, SP[a3, a5], a4, n] - S2[a1, a2, SP[a4, a5], a3, n] + 
    S2[a5, n]*S2[a1, a3, a2, a4, n] - S2[a4, n]*S2[a1, a3, a2, a5, n] + 
    S2[a5, n]*S2[a1, a3, a4, a2, n] - S2[a2, n]*S2[a1, a3, a4, a5, n] - 
    S2[a2, n]*S2[a1, a3, a5, a4, n] - S2[a1, a3, a5, SP[a2, a4], n] - 
    2*S2[a1, a3, SP[a2, a4], a5, n] + S2[a1, a3, SP[a4, a5], a2, n] + 
    S2[a3, n]*S2[a1, a4, a2, a5, n] + S2[a1, a4, a2, SP[a3, a5], n] + 
    S2[a1, a4, SP[a2, a3], a5, n] - S2[a2, n]*S2[a1, a5, a3, a4, n] - 
    S2[a1, a5, a3, SP[a2, a4], n] - S2[a1, a5, SP[a2, a3], a4, n] - 
    S2[a1, SP[a2, a4], a3, a5, n] - S2[a1, SP[a2, a4], a5, a3, n] + 
    S2[a1, SP[a3, a5], a2, a4, n] + S2[a1, SP[a3, a5], a4, a2, n] + 
    S2[a2, a1, a3, SP[a4, a5], n] + S2[a2, a1, SP[a3, a5], a4, n] + 
    S2[a2, SP[a1, a5], a3, a4, n] - S2[a3, a1, a2, SP[a4, a5], n] - 
    S2[a3, a1, SP[a2, a4], a5, n] - S2[a3, SP[a1, a4], a2, a5, n] + 
    S2[a3, n]*S2[a4, a1, a2, a5, n] + S2[a4, a1, a2, SP[a3, a5], n] + 
    S2[a4, a1, SP[a2, a3], a5, n] + S2[a4, SP[a1, a3], a2, a5, n] - 
    S2[a2, n]*S2[a5, a1, a3, a4, n] - S2[a5, a1, a3, SP[a2, a4], n] - 
    S2[a5, a1, SP[a2, a3], a4, n] - S2[a5, SP[a1, a2], a3, a4, n] - 
    S2[SP[a1, a4], a2, a3, a5, n] - S2[SP[a1, a4], a2, a5, a3, n] - 
    S2[SP[a1, a4], a3, a2, a5, n] + S2[SP[a1, a5], a2, a3, a4, n] + 
    S2[SP[a1, a5], a3, a2, a4, n] + S2[SP[a1, a5], a3, a4, a2, n] - 
    S2[SP[a2, a5], a1, a3, a4, n] + S2[SP[a3, a4], a1, a2, a5, n] + 
    S2[a5, a2, a1, a3, a4, n] /; MyMemberQ[{{a1, a2, a3, a4, a5}}, 
     {a1, a2, a3, a4, a5}] && a1 != a2 != a3 != a4 != a5, 
 S2[a4_, a3_, a1_, a5_, a2_, n_] :> 
  -(S2[a2, a5, n]*S2[a1, a3, a4, n]) - S2[a3, a4, n]*S2[a1, a5, a2, n] + 
    S2[a1, SP[a2, a3], SP[a4, a5], n] + S2[a1, SP[a3, a5], SP[a2, a4], n] + 
    S2[SP[a1, a2], a3, SP[a4, a5], n] + S2[SP[a1, a2], SP[a3, a5], a4, n] + 
    S2[SP[a1, a3], a5, SP[a2, a4], n] + S2[SP[a1, a3], SP[a4, a5], a2, n] - 
    S2[a1, a2, a3, SP[a4, a5], n] - S2[a1, a2, SP[a3, a5], a4, n] - 
    S2[a1, a3, a2, SP[a4, a5], n] + S2[a2, n]*S2[a1, a3, a4, a5, n] + 
    S2[a1, a3, a4, SP[a2, a5], n] - S2[a4, n]*S2[a1, a3, a5, a2, n] + 
    S2[a2, n]*S2[a1, a3, a5, a4, n] - S2[a1, a3, a5, SP[a2, a4], n] + 
    S2[a1, a3, SP[a2, a5], a4, n] - 2*S2[a1, a3, SP[a4, a5], a2, n] + 
    S2[a3, n]*S2[a1, a4, a5, a2, n] + S2[a1, a4, a5, SP[a2, a3], n] + 
    S2[a1, a4, SP[a3, a5], a2, n] - S2[a4, n]*S2[a1, a5, a2, a3, n] + 
    S2[a3, n]*S2[a1, a5, a2, a4, n] - S2[a4, n]*S2[a1, a5, a3, a2, n] + 
    S2[a2, n]*S2[a1, a5, a3, a4, n] - S2[a1, a5, a3, SP[a2, a4], n] + 
    S2[a3, n]*S2[a1, a5, a4, a2, n] + S2[a1, a5, a4, SP[a2, a3], n] + 
    S2[a1, a5, SP[a2, a3], a4, n] - S2[a1, a5, SP[a2, a4], a3, n] + 
    S2[a1, SP[a2, a5], a3, a4, n] - S2[a1, SP[a4, a5], a2, a3, n] - 
    S2[a1, SP[a4, a5], a3, a2, n] - S2[a2, a1, a3, SP[a4, a5], n] - 
    S2[a2, a1, SP[a3, a5], a4, n] - S2[a2, SP[a1, a5], a3, a4, n] - 
    S2[a3, a1, a5, SP[a2, a4], n] - S2[a3, a1, SP[a4, a5], a2, n] - 
    S2[a3, SP[a1, a4], a5, a2, n] + S2[a3, n]*S2[a4, a1, a5, a2, n] + 
    S2[a4, a1, a5, SP[a2, a3], n] + S2[a4, a1, SP[a3, a5], a2, n] + 
    S2[a4, SP[a1, a3], a5, a2, n] + S2[a2, n]*S2[a5, a1, a3, a4, n] + 
    S2[a5, a1, a3, SP[a2, a4], n] + S2[a5, a1, SP[a2, a3], a4, n] + 
    S2[a5, SP[a1, a2], a3, a4, n] - S2[SP[a1, a4], a3, a5, a2, n] - 
    S2[SP[a1, a4], a5, a2, a3, n] - S2[SP[a1, a4], a5, a3, a2, n] + 
    S2[SP[a2, a5], a1, a3, a4, n] + S2[SP[a3, a4], a1, a5, a2, n] - 
    S2[a5, a1, a2, a3, a4, n] - S2[a5, a1, a3, a2, a4, n] - 
    S2[a5, a1, a3, a4, a2, n] - S2[a5, a2, a1, a3, a4, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5}}, {a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a4_, a3_, a2_, a1_, a5_, n_] :> 
  S2[a3, a4, n]*S2[a1, a2, a5, n] + S2[a3, a4, n]*S2[a1, a5, a2, n] - 
    S2[a1, SP[a2, a3], SP[a4, a5], n] - S2[a1, SP[a3, a5], SP[a2, a4], n] + 
    S2[a1, a5, n]*S2[a2, a3, a4, n] - S2[a2, SP[a1, a3], SP[a4, a5], n] - 
    S2[SP[a1, a2], a3, SP[a4, a5], n] - S2[SP[a1, a2], SP[a3, a5], a4, n] - 
    S2[SP[a1, a3], a2, SP[a4, a5], n] - S2[SP[a1, a3], a5, SP[a2, a4], n] - 
    S2[SP[a1, a3], SP[a2, a4], a5, n] - S2[SP[a1, a3], SP[a4, a5], a2, n] - 
    S2[a5, n]*S2[a1, a2, a3, a4, n] + S2[a4, n]*S2[a1, a2, a3, a5, n] + 
    2*S2[a1, a2, a3, SP[a4, a5], n] - S2[a3, n]*S2[a1, a2, a4, a5, n] - 
    S2[a1, a2, a4, SP[a3, a5], n] + S2[a4, n]*S2[a1, a2, a5, a3, n] - 
    S2[a3, n]*S2[a1, a2, a5, a4, n] + S2[a1, a2, SP[a4, a5], a3, n] + 
    S2[a4, n]*S2[a1, a3, a2, a5, n] + 2*S2[a1, a3, a2, SP[a4, a5], n] - 
    S2[a2, n]*S2[a1, a3, a4, a5, n] - S2[a1, a3, a4, SP[a2, a5], n] + 
    S2[a4, n]*S2[a1, a3, a5, a2, n] - S2[a2, n]*S2[a1, a3, a5, a4, n] + 
    S2[a1, a3, a5, SP[a2, a4], n] + S2[a1, a3, SP[a2, a4], a5, n] - 
    S2[a1, a3, SP[a2, a5], a4, n] + 2*S2[a1, a3, SP[a4, a5], a2, n] - 
    S2[a3, n]*S2[a1, a4, a2, a5, n] - S2[a1, a4, a2, SP[a3, a5], n] - 
    S2[a3, n]*S2[a1, a4, a5, a2, n] - S2[a1, a4, a5, SP[a2, a3], n] - 
    S2[a1, a4, SP[a2, a3], a5, n] - S2[a1, a4, SP[a3, a5], a2, n] + 
    S2[a4, n]*S2[a1, a5, a2, a3, n] - S2[a3, n]*S2[a1, a5, a2, a4, n] + 
    S2[a4, n]*S2[a1, a5, a3, a2, n] - S2[a2, n]*S2[a1, a5, a3, a4, n] + 
    S2[a1, a5, a3, SP[a2, a4], n] - S2[a3, n]*S2[a1, a5, a4, a2, n] - 
    S2[a1, a5, a4, SP[a2, a3], n] - S2[a1, a5, SP[a2, a3], a4, n] + 
    S2[a1, a5, SP[a2, a4], a3, n] - S2[a1, SP[a2, a3], a4, a5, n] - 
    S2[a1, SP[a2, a3], a5, a4, n] + S2[a1, SP[a2, a4], a3, a5, n] + 
    S2[a1, SP[a2, a4], a5, a3, n] - S2[a1, SP[a2, a5], a3, a4, n] + 
    S2[a1, SP[a4, a5], a2, a3, n] + S2[a1, SP[a4, a5], a3, a2, n] + 
    S2[a2, a1, a3, SP[a4, a5], n] + S2[a2, a1, SP[a3, a5], a4, n] - 
    S2[a4, n]*S2[a2, a3, a1, a5, n] + S2[a2, SP[a1, a3], a4, a5, n] + 
    S2[a2, SP[a1, a3], a5, a4, n] - S2[a2, SP[a3, a4], a1, a5, n] + 
    S2[a3, a1, a2, SP[a4, a5], n] + S2[a3, a1, a5, SP[a2, a4], n] + 
    S2[a3, a1, SP[a2, a4], a5, n] + S2[a3, a1, SP[a4, a5], a2, n] + 
    S2[a3, SP[a1, a4], a2, a5, n] + S2[a3, SP[a1, a4], a5, a2, n] - 
    S2[a3, n]*S2[a4, a1, a2, a5, n] - S2[a4, a1, a2, SP[a3, a5], n] - 
    S2[a3, n]*S2[a4, a1, a5, a2, n] - S2[a4, a1, a5, SP[a2, a3], n] - 
    S2[a4, a1, SP[a2, a3], a5, n] - S2[a4, a1, SP[a3, a5], a2, n] + 
    S2[a2, n]*S2[a4, a3, a1, a5, n] + S2[a4, a3, a1, SP[a2, a5], n] + 
    S2[a4, a3, SP[a1, a2], a5, n] - S2[a4, SP[a1, a3], a2, a5, n] - 
    S2[a4, SP[a1, a3], a5, a2, n] + S2[a4, SP[a2, a3], a1, a5, n] + 
    S2[SP[a1, a4], a2, a3, a5, n] + S2[SP[a1, a4], a2, a5, a3, n] + 
    S2[SP[a1, a4], a3, a2, a5, n] + S2[SP[a1, a4], a3, a5, a2, n] + 
    S2[SP[a1, a4], a5, a2, a3, n] + S2[SP[a1, a4], a5, a3, a2, n] - 
    S2[SP[a1, a5], a2, a3, a4, n] - S2[SP[a3, a4], a1, a2, a5, n] - 
    S2[SP[a3, a4], a1, a5, a2, n] + S2[a5, a1, a2, a3, a4, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5}}, {a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a4_, a3_, a2_, a5_, a1_, n_] :> 
  -(S2[a3, a4, n]*S2[a1, a5, a2, n]) + S2[a1, SP[a3, a5], SP[a2, a4], n] - 
    S2[a1, a5, n]*S2[a2, a3, a4, n] + S2[a2, SP[a1, a3], SP[a4, a5], n] + 
    S2[SP[a1, a2], a3, SP[a4, a5], n] + S2[SP[a1, a2], SP[a3, a5], a4, n] + 
    S2[SP[a1, a3], a5, SP[a2, a4], n] + S2[SP[a1, a3], SP[a4, a5], a2, n] - 
    S2[a1, a2, a3, SP[a4, a5], n] - S2[a1, a2, SP[a3, a5], a4, n] - 
    S2[a4, n]*S2[a1, a3, a2, a5, n] - S2[a1, a3, a2, SP[a4, a5], n] + 
    S2[a2, n]*S2[a1, a3, a4, a5, n] + S2[a1, a3, a4, SP[a2, a5], n] - 
    S2[a4, n]*S2[a1, a3, a5, a2, n] + S2[a2, n]*S2[a1, a3, a5, a4, n] - 
    S2[a1, a3, a5, SP[a2, a4], n] + S2[a1, a3, SP[a2, a5], a4, n] - 
    2*S2[a1, a3, SP[a4, a5], a2, n] + S2[a3, n]*S2[a1, a4, a5, a2, n] + 
    S2[a1, a4, a5, SP[a2, a3], n] + S2[a1, a4, SP[a3, a5], a2, n] - 
    S2[a4, n]*S2[a1, a5, a2, a3, n] + S2[a3, n]*S2[a1, a5, a2, a4, n] - 
    S2[a4, n]*S2[a1, a5, a3, a2, n] + S2[a2, n]*S2[a1, a5, a3, a4, n] - 
    S2[a1, a5, a3, SP[a2, a4], n] + S2[a3, n]*S2[a1, a5, a4, a2, n] + 
    S2[a1, a5, a4, SP[a2, a3], n] + S2[a1, a5, SP[a2, a3], a4, n] - 
    S2[a1, a5, SP[a2, a4], a3, n] + S2[a1, SP[a2, a3], a4, a5, n] + 
    S2[a1, SP[a2, a3], a5, a4, n] - S2[a1, SP[a3, a4], a2, a5, n] - 
    S2[a1, SP[a4, a5], a2, a3, n] - S2[a1, SP[a4, a5], a3, a2, n] - 
    S2[a2, a1, a3, SP[a4, a5], n] - S2[a2, a1, SP[a3, a5], a4, n] + 
    S2[a4, n]*S2[a2, a3, a1, a5, n] - S2[a2, SP[a1, a3], a4, a5, n] - 
    S2[a2, SP[a1, a3], a5, a4, n] + S2[a2, SP[a3, a4], a1, a5, n] - 
    S2[a3, a1, a5, SP[a2, a4], n] - S2[a3, a1, SP[a4, a5], a2, n] - 
    S2[a3, SP[a1, a4], a5, a2, n] + S2[a3, n]*S2[a4, a1, a5, a2, n] + 
    S2[a4, a1, a5, SP[a2, a3], n] + S2[a4, a1, SP[a3, a5], a2, n] - 
    S2[a2, n]*S2[a4, a3, a1, a5, n] - S2[a4, a3, a1, SP[a2, a5], n] + 
    S2[a1, n]*S2[a4, a3, a2, a5, n] + S2[a4, a3, a2, SP[a1, a5], n] + 
    S2[a4, SP[a1, a3], a2, a5, n] + S2[a4, SP[a1, a3], a5, a2, n] - 
    S2[a4, SP[a2, a3], a1, a5, n] + S2[a1, n]*S2[a5, a2, a3, a4, n] + 
    S2[a5, a2, a3, SP[a1, a4], n] + S2[a5, a2, SP[a1, a3], a4, n] + 
    S2[a5, SP[a1, a2], a3, a4, n] - S2[SP[a1, a4], a3, a5, a2, n] - 
    S2[SP[a1, a4], a5, a2, a3, n] - S2[SP[a1, a4], a5, a3, a2, n] + 
    S2[SP[a1, a5], a2, a3, a4, n] + S2[SP[a3, a4], a1, a5, a2, n] - 
    S2[a5, a1, a2, a3, a4, n] - S2[a5, a2, a1, a3, a4, n] - 
    S2[a5, a2, a3, a1, a4, n] - S2[a5, a2, a3, a4, a1, n] /; 
   MyMemberQ[{{a1, a2, a3, a4, a5}}, {a1, a2, a3, a4, a5}] && 
    a1 != a2 != a3 != a4 != a5, S2[a4_, a3_, a5_, a1_, a2_, n_] :> 
  S2[a3, a4, n]*S2[a1, a2, a5, n] + S2[a3, a4, n]*S2[a1, a5, a2, n] - 
    S2[a1, SP[a2, a3], SP[a4, a5], n] - S2[a1, SP[a3, a5], SP[a2, a4], n] - 
    S2[SP[a1, a3], a2, SP[a4, a5], n] - S2[SP[a1, a3], a5, SP[a2, a4], n] - 
    S2[SP[a1, a3], SP[a2, a4], a5, n] - S2[SP[a1, a3], SP[a4, a5], a2, n] + 
    S2[a1, a2, a3, SP[a4, a5], n] + S2[a5, n]*S2[a1, a2, a4, a3, n] - 
    S2[a3, n]*S2[a1, a2, a4, a5, n] - S2[a3, n]*S2[a1, a2, a5, a4, n] - 
    S2[a1, a2, a5, SP[a3, a4], n] - S2[a1, a2, SP[a3, a4], a5, n] + 
    S2[a1, a2, SP[a4, a5], a3, n] + S2[a1, a3, a2, SP[a4, a5], n] + 
    S2[a1, a3, a5, SP[a2, a4], n] + S2[a1, a3, SP[a2, a4], a5, n] + 
    S2[a1, a3, SP[a4, a5], a2, n] + S2[a5, n]*S2[a1, a4, a2, a3, n] - 
    S2[a3, n]*S2[a1, a4, a2, a5, n] + S2[a5, n]*S2[a1, a4, a3, a2, n] + 
    S2[a1, a4, a3, SP[a2, a5], n] - S2[a3, n]*S2[a1, a4, a5, a2, n] - 
    S2[a1, a4, a5, SP[a2, a3], n] - S2[a1, a4, SP[a2, a3], a5, n] + 
    S2[a1, a4, SP[a2, a5], a3, n] - S2[a3, n]*S2[a1, a5, a2, a4, n] - 
    S2[a1, a5, a2, SP[a3, a4], n] + S2[a1, a5, a3, SP[a2, a4], n] - 
    S2[a3, n]*S2[a1, a5, a4, a2, n] - S2[a1, a5, a4, SP[a2, a3], n] - 
    S2[a1, a5, SP[a3, a4], a2, n] + S2[a1, SP[a2, a5], a4, a3, n] - 
    S2[a1, SP[a3, a4], a2, a5, n] - S2[a1, SP[a3, a4], a5, a2, n] + 
    S2[a1, SP[a4, a5], a2, a3, n] + S2[a1, SP[a4, a5], a3, a2, n] + 
    S2[a3, a1, a2, SP[a4, a5], n] + S2[a3, a1, a5, SP[a2, a4], n] + 
    S2[a3, a1, SP[a2, a4], a5, n] + S2[a3, a1, SP[a4, a5], a2, n] - 
    S2[a5, n]*S2[a3, a4, a1, a2, n] - S2[a3, a4, a1, SP[a2, a5], n] - 
    S2[a3, a4, SP[a1, a5], a2, n] + S2[a4, n]*S2[a3, a5, a1, a2, n] + 
    S2[a3, a5, a1, SP[a2, a4], n] + S2[a3, a5, SP[a1, a4], a2, n] + 
    S2[a3, SP[a1, a4], a2, a5, n] + S2[a3, SP[a1, a4], a5, a2, n] - 
    S2[a3, n]*S2[a5, a1, a2, a4, n] - S2[a5, a1, a2, SP[a3, a4], n] - 
    S2[a3, n]*S2[a5, a1, a4, a2, n] - S2[a5, a1, a4, SP[a2, a3], n] - 
    S2[a5, a1, SP[a2, a3], a4, n] - S2[a5, a1, SP[a3, a4], a2, n] - 
    S2[a5, SP[a1, a3], a2, a4, n] - S2[a5, SP[a1, a3], a4, a2, n] + 
    S2[SP[a1, a5], a2, a4, a3, n] + S2[SP[a1, a5], a4, a2, a3, n] + 
    S2[SP[a1, a5], a4, a3, a2, n] + S2[SP[a3, a4], a5, a1, a2, n] - 
    S2[SP[a3, a5], a1, a2, a4, n] - S2[SP[a3, a5], a1, a4, a2, n] - 
    S2[SP[a3, a5], a4, a1, a2, n] + S2[a5, a1, a2, a3, a4, n] + 
    S2[a5, a1, a3, a2, a4, n] + S2[a5, a1, a3, a4, a2, n] + 
    S2[a5, a3, a1, a2, a4, n] + S2[a5, a3, a1, a4, a2, n] + 
    S2[a5, a3, a4, a1, a2, n] /; MyMemberQ[{{a1, a2, a3, a4, a5}}, 
     {a1, a2, a3, a4, a5}] && a1 != a2 != a3 != a4 != a5, 
 S2[a4_, a3_, a5_, a2_, a1_, n_] :> 
  -(S2[a3, a4, n]*S2[a1, a2, a5, n]) + S2[a1, SP[a2, a3], SP[a4, a5], n] + 
    S2[SP[a1, a3], a2, SP[a4, a5], n] + S2[SP[a1, a3], SP[a2, a4], a5, n] - 
    S2[a1, a2, a3, SP[a4, a5], n] - S2[a5, n]*S2[a1, a2, a4, a3, n] + 
    S2[a3, n]*S2[a1, a2, a4, a5, n] + S2[a3, n]*S2[a1, a2, a5, a4, n] + 
    S2[a1, a2, a5, SP[a3, a4], n] + S2[a1, a2, SP[a3, a4], a5, n] - 
    S2[a1, a2, SP[a4, a5], a3, n] - S2[a1, a3, a2, SP[a4, a5], n] - 
    S2[a1, a3, SP[a2, a4], a5, n] - S2[a5, n]*S2[a1, a4, a2, a3, n] + 
    S2[a3, n]*S2[a1, a4, a2, a5, n] - S2[a5, n]*S2[a1, a4, a3, a2, n] - 
    S2[a1, a4, a3, SP[a2, a5], n] + S2[a1, a4, SP[a2, a3], a5, n] - 
    S2[a1, a4, SP[a2, a5], a3, n] - S2[a1, a4, SP[a3, a5], a2, n] + 
    S2[a4, n]*S2[a1, a5, a2, a3, n] + S2[a1, a5, a2, SP[a3, a4], n] + 
    S2[a4, n]*S2[a1, a5, a3, a2, n] + S2[a1, a5, a3, SP[a2, a4], n] + 
    S2[a1, a5, SP[a2, a4], a3, n] + S2[a1, a5, SP[a3, a4], a2, n] - 
    S2[a1, SP[a2, a5], a4, a3, n] + S2[a1, SP[a3, a4], a2, a5, n] - 
    S2[a3, a1, a2, SP[a4, a5], n] - S2[a3, a1, SP[a2, a4], a5, n] + 
    S2[a5, n]*S2[a3, a4, a1, a2, n] + S2[a3, a4, a1, SP[a2, a5], n] + 
    S2[a3, a4, SP[a1, a5], a2, n] - S2[a4, n]*S2[a3, a5, a1, a2, n] - 
    S2[a3, a5, a1, SP[a2, a4], n] - S2[a3, a5, SP[a1, a4], a2, n] - 
    S2[a3, SP[a1, a4], a2, a5, n] - S2[a3, n]*S2[a4, a1, a5, a2, n] - 
    S2[a4, a1, a5, SP[a2, a3], n] - S2[a4, a1, SP[a3, a5], a2, n] + 
    S2[a1, n]*S2[a4, a3, a5, a2, n] + S2[a4, a3, a5, SP[a1, a2], n] + 
    S2[a4, a3, SP[a1, a5], a2, n] + S2[a3, n]*S2[a5, a1, a2, a4, n] + 
    S2[a5, a1, a2, SP[a3, a4], n] + S2[a3, n]*S2[a5, a1, a4, a2, n] + 
    S2[a5, a1, a4, SP[a2, a3], n] + S2[a5, a1, SP[a2, a3], a4, n] + 
    S2[a5, a1, SP[a3, a4], a2, n] - S2[a1, n]*S2[a5, a2, a3, a4, n] - 
    S2[a5, a2, a3, SP[a1, a4], n] - S2[a5, a2, SP[a1, a3], a4, n] - 
    S2[a1, n]*S2[a5, a3, a2, a4, n] - S2[a5, a3, a2, SP[a1, a4], n] - 
    S2[a1, n]*S2[a5, a3, a4, a2, n] - S2[a5, a3, a4, SP[a1, a2], n] - 
    S2[a5, a3, SP[a1, a2], a4, n] - S2[a5, a3, SP[a1, a4], a2, n] - 
    S2[a5, SP[a1, a2], a3, a4, n] + S2[SP[a1, a4], a3, a5, a2, n] + 
    S2[SP[a1, a4], a5, a2, a3, n] + S2[SP[a1, a4], a5, a3, a2, n] - 
    S2[SP[a1, a5], a2, a3, a4, n] - S2[SP[a1, a5], a2, a4, a3, n] - 
    S2[SP[a1, a5], a3, a2, a4, n] - S2[SP[a1, a5], a3, a4, a2, n] - 
    S2[SP[a1, a5], a4, a2, a3, n] - S2[SP[a1, a5], a4, a3, a2, n] - 
    S2[SP[a3, a4], a1, a5, a2, n] - S2[SP[a3, a4], a5, a1, a2, n] + 
    S2[SP[a3, a5], a1, a2, a4, n] + S2[SP[a3, a5], a1, a4, a2, n] + 
    S2[SP[a3, a5], a4, a1, a2, n] + S2[a5, a2, a1, a3, a4, n] + 
    S2[a5, a2, a3, a1, a4, n] + S2[a5, a2, a3, a4, a1, n] + 
    S2[a5, a3, a2, a1, a4, n] + S2[a5, a3, a2, a4, a1, n] + 
    S2[a5, a3, a4, a2, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5}}, 
     {a1, a2, a3, a4, a5}] && a1 != a2 != a3 != a4 != a5, 
 S2[a4_, a5_, a1_, a2_, a3_, n_] :> 
  S2[a4, n]*S2[a5, a1, a2, a3, n] + S2[a5, a1, a2, SP[a3, a4], n] + 
    S2[a5, a1, SP[a2, a4], a3, n] + S2[a5, SP[a1, a4], a2, a3, n] + 
    S2[SP[a4, a5], a1, a2, a3, n] - S2[a5, a1, a2, a3, a4, n] - 
    S2[a5, a1, a2, a4, a3, n] - S2[a5, a1, a4, a2, a3, n] - 
    S2[a5, a4, a1, a2, a3, n] /; MyMemberQ[{{a1, a2, a3, a4, a5}}, 
     {a1, a2, a3, a4, a5}] && a1 != a2 != a3 != a4 != a5, 
 S2[a4_, a5_, a1_, a3_, a2_, n_] :> 
  S2[a4, n]*S2[a5, a1, a3, a2, n] + S2[a5, a1, a3, SP[a2, a4], n] + 
    S2[a5, a1, SP[a3, a4], a2, n] + S2[a5, SP[a1, a4], a3, a2, n] + 
    S2[SP[a4, a5], a1, a3, a2, n] - S2[a5, a1, a3, a2, a4, n] - 
    S2[a5, a1, a3, a4, a2, n] - S2[a5, a1, a4, a3, a2, n] - 
    S2[a5, a4, a1, a3, a2, n] /; MyMemberQ[{{a1, a2, a3, a4, a5}}, 
     {a1, a2, a3, a4, a5}] && a1 != a2 != a3 != a4 != a5, 
 S2[a4_, a5_, a2_, a1_, a3_, n_] :> 
  -(S2[a4, n]*S2[a2, a5, a1, a3, n]) - S2[a2, a5, a1, SP[a3, a4], n] - 
    S2[a2, a5, SP[a1, a4], a3, n] - S2[a2, SP[a4, a5], a1, a3, n] + 
    S2[a2, n]*S2[a4, a5, a1, a3, n] + S2[a4, a5, a1, SP[a2, a3], n] + 
    S2[a4, a5, SP[a1, a2], a3, n] + S2[a4, SP[a2, a5], a1, a3, n] - 
    S2[a4, n]*S2[a5, a1, a2, a3, n] - S2[a5, a1, a2, SP[a3, a4], n] - 
    S2[a4, n]*S2[a5, a1, a3, a2, n] + S2[a2, n]*S2[a5, a1, a3, a4, n] + 
    S2[a2, n]*S2[a5, a1, a4, a3, n] + S2[a5, a1, a4, SP[a2, a3], n] + 
    S2[a5, a1, SP[a2, a3], a4, n] - S2[a5, a1, SP[a3, a4], a2, n] + 
    S2[a2, n]*S2[a5, a4, a1, a3, n] + S2[a5, a4, a1, SP[a2, a3], n] + 
    S2[a5, a4, SP[a1, a2], a3, n] + S2[a5, SP[a1, a2], a3, a4, n] + 
    S2[a5, SP[a1, a2], a4, a3, n] - S2[a5, SP[a1, a4], a2, a3, n] - 
    S2[a5, SP[a1, a4], a3, a2, n] + S2[a5, SP[a2, a4], a1, a3, n] + 
    S2[SP[a2, a5], a1, a3, a4, n] + S2[SP[a2, a5], a1, a4, a3, n] + 
    S2[SP[a2, a5], a4, a1, a3, n] - S2[SP[a4, a5], a1, a2, a3, n] - 
    S2[SP[a4, a5], a1, a3, a2, n] - S2[a5, a2, a1, a3, a4, n] - 
    S2[a5, a2, a1, a4, a3, n] - S2[a5, a2, a4, a1, a3, n] - 
    S2[a5, a4, a2, a1, a3, n] /; MyMemberQ[{{a1, a2, a3, a4, a5}}, 
     {a1, a2, a3, a4, a5}] && a1 != a2 != a3 != a4 != a5, 
 S2[a4_, a5_, a2_, a3_, a1_, n_] :> 
  -(S2[a4, n]*S2[a1, a5, a2, a3, n]) - S2[a1, a5, a2, SP[a3, a4], n] - 
    S2[a1, a5, SP[a2, a4], a3, n] - S2[a1, SP[a4, a5], a2, a3, n] + 
    S2[a4, n]*S2[a2, a5, a1, a3, n] + S2[a2, a5, a1, SP[a3, a4], n] + 
    S2[a2, a5, SP[a1, a4], a3, n] + S2[a2, SP[a4, a5], a1, a3, n] - 
    S2[a2, n]*S2[a4, a5, a1, a3, n] - S2[a4, a5, a1, SP[a2, a3], n] + 
    S2[a1, n]*S2[a4, a5, a2, a3, n] + S2[a4, a5, a2, SP[a1, a3], n] + 
    S2[a4, SP[a1, a5], a2, a3, n] - S2[a4, SP[a2, a5], a1, a3, n] + 
    S2[a4, n]*S2[a5, a1, a3, a2, n] - S2[a2, n]*S2[a5, a1, a3, a4, n] - 
    S2[a2, n]*S2[a5, a1, a4, a3, n] - S2[a5, a1, a4, SP[a2, a3], n] - 
    S2[a5, a1, SP[a2, a3], a4, n] - S2[a5, a1, SP[a2, a4], a3, n] + 
    S2[a5, a1, SP[a3, a4], a2, n] + S2[a1, n]*S2[a5, a2, a3, a4, n] + 
    S2[a5, a2, a3, SP[a1, a4], n] + S2[a1, n]*S2[a5, a2, a4, a3, n] + 
    S2[a5, a2, a4, SP[a1, a3], n] + S2[a5, a2, SP[a1, a3], a4, n] + 
    S2[a5, a2, SP[a1, a4], a3, n] - S2[a2, n]*S2[a5, a4, a1, a3, n] - 
    S2[a5, a4, a1, SP[a2, a3], n] + S2[a1, n]*S2[a5, a4, a2, a3, n] + 
    S2[a5, a4, a2, SP[a1, a3], n] + S2[a5, SP[a1, a4], a2, a3, n] + 
    S2[a5, SP[a1, a4], a3, a2, n] - S2[a5, SP[a2, a4], a1, a3, n] + 
    S2[SP[a1, a5], a2, a3, a4, n] + S2[SP[a1, a5], a2, a4, a3, n] + 
    S2[SP[a1, a5], a4, a2, a3, n] - S2[SP[a2, a5], a1, a3, a4, n] - 
    S2[SP[a2, a5], a1, a4, a3, n] - S2[SP[a2, a5], a4, a1, a3, n] + 
    S2[SP[a4, a5], a1, a3, a2, n] - S2[a5, a2, a3, a1, a4, n] - 
    S2[a5, a2, a3, a4, a1, n] - S2[a5, a2, a4, a3, a1, n] - 
    S2[a5, a4, a2, a3, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5}}, 
     {a1, a2, a3, a4, a5}] && a1 != a2 != a3 != a4 != a5, 
 S2[a4_, a5_, a3_, a1_, a2_, n_] :> 
  -(S2[a4, n]*S2[a3, a5, a1, a2, n]) - S2[a3, a5, a1, SP[a2, a4], n] - 
    S2[a3, a5, SP[a1, a4], a2, n] - S2[a3, SP[a4, a5], a1, a2, n] + 
    S2[a3, n]*S2[a4, a5, a1, a2, n] + S2[a4, a5, a1, SP[a2, a3], n] + 
    S2[a4, a5, SP[a1, a3], a2, n] + S2[a4, SP[a3, a5], a1, a2, n] - 
    S2[a4, n]*S2[a5, a1, a2, a3, n] + S2[a3, n]*S2[a5, a1, a2, a4, n] - 
    S2[a4, n]*S2[a5, a1, a3, a2, n] - S2[a5, a1, a3, SP[a2, a4], n] + 
    S2[a3, n]*S2[a5, a1, a4, a2, n] + S2[a5, a1, a4, SP[a2, a3], n] + 
    S2[a5, a1, SP[a2, a3], a4, n] - S2[a5, a1, SP[a2, a4], a3, n] + 
    S2[a3, n]*S2[a5, a4, a1, a2, n] + S2[a5, a4, a1, SP[a2, a3], n] + 
    S2[a5, a4, SP[a1, a3], a2, n] + S2[a5, SP[a1, a3], a2, a4, n] + 
    S2[a5, SP[a1, a3], a4, a2, n] - S2[a5, SP[a1, a4], a2, a3, n] - 
    S2[a5, SP[a1, a4], a3, a2, n] + S2[a5, SP[a3, a4], a1, a2, n] + 
    S2[SP[a3, a5], a1, a2, a4, n] + S2[SP[a3, a5], a1, a4, a2, n] + 
    S2[SP[a3, a5], a4, a1, a2, n] - S2[SP[a4, a5], a1, a2, a3, n] - 
    S2[SP[a4, a5], a1, a3, a2, n] - S2[a5, a3, a1, a2, a4, n] - 
    S2[a5, a3, a1, a4, a2, n] - S2[a5, a3, a4, a1, a2, n] - 
    S2[a5, a4, a3, a1, a2, n] /; MyMemberQ[{{a1, a2, a3, a4, a5}}, 
     {a1, a2, a3, a4, a5}] && a1 != a2 != a3 != a4 != a5, 
 S2[a4_, a5_, a3_, a2_, a1_, n_] :> 
  -(S2[a4, n]*S2[a1, a5, a3, a2, n]) - S2[a1, a5, a3, SP[a2, a4], n] - 
    S2[a1, a5, SP[a3, a4], a2, n] - S2[a1, SP[a4, a5], a3, a2, n] + 
    S2[a4, n]*S2[a3, a5, a1, a2, n] + S2[a3, a5, a1, SP[a2, a4], n] + 
    S2[a3, a5, SP[a1, a4], a2, n] + S2[a3, SP[a4, a5], a1, a2, n] - 
    S2[a3, n]*S2[a4, a5, a1, a2, n] - S2[a4, a5, a1, SP[a2, a3], n] + 
    S2[a1, n]*S2[a4, a5, a3, a2, n] + S2[a4, a5, a3, SP[a1, a2], n] + 
    S2[a4, SP[a1, a5], a3, a2, n] - S2[a4, SP[a3, a5], a1, a2, n] + 
    S2[a4, n]*S2[a5, a1, a2, a3, n] - S2[a3, n]*S2[a5, a1, a2, a4, n] - 
    S2[a3, n]*S2[a5, a1, a4, a2, n] - S2[a5, a1, a4, SP[a2, a3], n] - 
    S2[a5, a1, SP[a2, a3], a4, n] + S2[a5, a1, SP[a2, a4], a3, n] - 
    S2[a5, a1, SP[a3, a4], a2, n] + S2[a1, n]*S2[a5, a3, a2, a4, n] + 
    S2[a5, a3, a2, SP[a1, a4], n] + S2[a1, n]*S2[a5, a3, a4, a2, n] + 
    S2[a5, a3, a4, SP[a1, a2], n] + S2[a5, a3, SP[a1, a2], a4, n] + 
    S2[a5, a3, SP[a1, a4], a2, n] - S2[a3, n]*S2[a5, a4, a1, a2, n] - 
    S2[a5, a4, a1, SP[a2, a3], n] + S2[a1, n]*S2[a5, a4, a3, a2, n] + 
    S2[a5, a4, a3, SP[a1, a2], n] + S2[a5, SP[a1, a4], a2, a3, n] + 
    S2[a5, SP[a1, a4], a3, a2, n] - S2[a5, SP[a3, a4], a1, a2, n] + 
    S2[SP[a1, a5], a3, a2, a4, n] + S2[SP[a1, a5], a3, a4, a2, n] + 
    S2[SP[a1, a5], a4, a3, a2, n] - S2[SP[a3, a5], a1, a2, a4, n] - 
    S2[SP[a3, a5], a1, a4, a2, n] - S2[SP[a3, a5], a4, a1, a2, n] + 
    S2[SP[a4, a5], a1, a2, a3, n] - S2[a5, a3, a2, a1, a4, n] - 
    S2[a5, a3, a2, a4, a1, n] - S2[a5, a3, a4, a2, a1, n] - 
    S2[a5, a4, a3, a2, a1, n] /; MyMemberQ[{{a1, a2, a3, a4, a5}}, 
     {a1, a2, a3, a4, a5}] && a1 != a2 != a3 != a4 != a5,
S2[a1_, a1_, a2_, a3_, a4_, n_] :> 
  S2[a3, a4, n]*S2[a1, a1, a2, n] - S2[a1, SP[a1, a3], SP[a2, a4], n] - 
    S2[SP[a1, a3], a1, SP[a2, a4], n] - S2[SP[a1, a3], SP[a1, a4], a2, n] + 
    S2[a4, n]*S2[a1, a1, a2, a3, n] - S2[a3, n]*S2[a1, a1, a2, a4, n] + 
    S2[a1, a1, a3, SP[a2, a4], n] - S2[a3, n]*S2[a1, a1, a4, a2, n] - 
    S2[a1, a1, a4, SP[a2, a3], n] + S2[a1, a1, SP[a2, a4], a3, n] - 
    S2[a1, a1, SP[a3, a4], a2, n] + S2[a1, a3, a1, SP[a2, a4], n] + 
    S2[a1, a3, SP[a1, a4], a2, n] - S2[a3, n]*S2[a1, a4, a1, a2, n] - 
    S2[a1, a4, a1, SP[a2, a3], n] + (S2[a1, n]*S2[a1, a4, a3, a2, n])/2 + 
    S2[a1, a4, a3, SP[a1, a2], n]/2 - S2[a1, a4, SP[a1, a3], a2, n]/2 + 
    S2[a1, SP[a1, a4], a2, a3, n] + S2[a1, SP[a1, a4], a3, a2, n]/2 - 
    S2[a1, SP[a3, a4], a1, a2, n] + S2[a3, a1, a1, SP[a2, a4], n] + 
    S2[a3, a1, SP[a1, a4], a2, n] + S2[a3, SP[a1, a4], a1, a2, n] - 
    S2[a3, n]*S2[a4, a1, a1, a2, n] - S2[a4, a1, a1, SP[a2, a3], n] + 
    (S2[a1, n]*S2[a4, a1, a3, a2, n])/2 + S2[a4, a1, a3, SP[a1, a2], n]/2 - 
    S2[a4, a1, SP[a1, a3], a2, n]/2 + (S2[a1, n]*S2[a4, a3, a1, a2, n])/2 + 
    S2[a4, a3, a1, SP[a1, a2], n]/2 - (S2[a1, n]*S2[a4, a3, a2, a1, n])/2 - 
    S2[a4, a3, a2, SP[a1, a1], n]/2 + S2[a4, a3, SP[a1, a1], a2, n]/2 - 
    S2[a4, a3, SP[a1, a2], a1, n]/2 + S2[a4, SP[a1, a1], a3, a2, n]/2 - 
    S2[a4, SP[a1, a3], a1, a2, n]/2 - S2[a4, SP[a1, a3], a2, a1, n]/2 + 
    S2[SP[a1, a1], a4, a3, a2, n]/2 + S2[SP[a1, a4], a1, a2, a3, n] + 
    S2[SP[a1, a4], a1, a3, a2, n]/2 + S2[SP[a1, a4], a3, a1, a2, n]/2 - 
    S2[SP[a1, a4], a3, a2, a1, n]/2 - S2[SP[a3, a4], a1, a1, a2, n] + 
    S2[a4, a3, a2, a1, a1, n] /; MyMemberQ[{{a2, a3, a4}}, 
     {a1, a1, a2, a3, a4}] && a1 != a2 != a3 != a4, 
 S2[a1_, a1_, a2_, a4_, a3_, n_] :> 
  -(S2[a3, a4, n]*S2[a1, a1, a2, n]) + S2[a1, SP[a1, a3], SP[a2, a4], n] + 
    S2[SP[a1, a3], a1, SP[a2, a4], n] + S2[SP[a1, a3], SP[a1, a4], a2, n] + 
    S2[a3, n]*S2[a1, a1, a2, a4, n] + S2[a1, a1, a2, SP[a3, a4], n] - 
    S2[a1, a1, a3, SP[a2, a4], n] + S2[a3, n]*S2[a1, a1, a4, a2, n] + 
    S2[a1, a1, a4, SP[a2, a3], n] + S2[a1, a1, SP[a3, a4], a2, n] - 
    S2[a1, a3, a1, SP[a2, a4], n] - S2[a1, a3, SP[a1, a4], a2, n] + 
    S2[a3, n]*S2[a1, a4, a1, a2, n] + S2[a1, a4, a1, SP[a2, a3], n] - 
    (S2[a1, n]*S2[a1, a4, a2, a3, n])/2 - S2[a1, a4, a2, SP[a1, a3], n]/2 - 
    (S2[a1, n]*S2[a1, a4, a3, a2, n])/2 - S2[a1, a4, a3, SP[a1, a2], n]/2 - 
    S2[a1, a4, SP[a1, a2], a3, n]/2 + S2[a1, a4, SP[a1, a3], a2, n]/2 - 
    S2[a1, SP[a1, a4], a2, a3, n]/2 - S2[a1, SP[a1, a4], a3, a2, n]/2 + 
    S2[a1, SP[a3, a4], a1, a2, n] - S2[a3, a1, a1, SP[a2, a4], n] - 
    S2[a3, a1, SP[a1, a4], a2, n] - S2[a3, SP[a1, a4], a1, a2, n] + 
    S2[a3, n]*S2[a4, a1, a1, a2, n] + S2[a4, a1, a1, SP[a2, a3], n] - 
    (S2[a1, n]*S2[a4, a1, a2, a3, n])/2 - S2[a4, a1, a2, SP[a1, a3], n]/2 - 
    (S2[a1, n]*S2[a4, a1, a3, a2, n])/2 - S2[a4, a1, a3, SP[a1, a2], n]/2 - 
    S2[a4, a1, SP[a1, a2], a3, n]/2 + S2[a4, a1, SP[a1, a3], a2, n]/2 + 
    (S2[a1, n]*S2[a4, a2, a1, a3, n])/2 + S2[a4, a2, a1, SP[a1, a3], n]/2 + 
    (S2[a1, n]*S2[a4, a2, a3, a1, n])/2 + S2[a4, a2, a3, SP[a1, a1], n]/2 + 
    S2[a4, a2, SP[a1, a1], a3, n]/2 + S2[a4, a2, SP[a1, a3], a1, n]/2 - 
    (S2[a1, n]*S2[a4, a3, a1, a2, n])/2 - S2[a4, a3, a1, SP[a1, a2], n]/2 + 
    (S2[a1, n]*S2[a4, a3, a2, a1, n])/2 + S2[a4, a3, a2, SP[a1, a1], n]/2 - 
    S2[a4, a3, SP[a1, a1], a2, n]/2 + S2[a4, a3, SP[a1, a2], a1, n]/2 - 
    S2[a4, SP[a1, a1], a2, a3, n]/2 - S2[a4, SP[a1, a1], a3, a2, n]/2 + 
    S2[a4, SP[a1, a2], a1, a3, n]/2 + S2[a4, SP[a1, a2], a3, a1, n]/2 + 
    S2[a4, SP[a1, a3], a1, a2, n]/2 + S2[a4, SP[a1, a3], a2, a1, n]/2 - 
    S2[SP[a1, a1], a4, a2, a3, n]/2 - S2[SP[a1, a1], a4, a3, a2, n]/2 - 
    S2[SP[a1, a4], a1, a2, a3, n]/2 - S2[SP[a1, a4], a1, a3, a2, n]/2 + 
    S2[SP[a1, a4], a2, a1, a3, n]/2 + S2[SP[a1, a4], a2, a3, a1, n]/2 - 
    S2[SP[a1, a4], a3, a1, a2, n]/2 + S2[SP[a1, a4], a3, a2, a1, n]/2 + 
    S2[SP[a3, a4], a1, a1, a2, n] - S2[a4, a2, a1, a1, a3, n] - 
    S2[a4, a2, a1, a3, a1, n] - S2[a4, a2, a3, a1, a1, n] - 
    S2[a4, a3, a2, a1, a1, n] /; MyMemberQ[{{a2, a3, a4}}, 
     {a1, a1, a2, a3, a4}] && a1 != a2 != a3 != a4, 
 S2[a1_, a1_, a3_, a2_, a4_, n_] :> 
  S2[a2, a4, n]*S2[a1, a1, a3, n] - S2[a1, SP[a1, a2], SP[a3, a4], n] - 
    S2[SP[a1, a2], a1, SP[a3, a4], n] - S2[SP[a1, a2], SP[a1, a4], a3, n] + 
    S2[a1, a1, a2, SP[a3, a4], n] + S2[a4, n]*S2[a1, a1, a3, a2, n] - 
    S2[a2, n]*S2[a1, a1, a3, a4, n] - S2[a2, n]*S2[a1, a1, a4, a3, n] - 
    S2[a1, a1, a4, SP[a2, a3], n] - S2[a1, a1, SP[a2, a4], a3, n] + 
    S2[a1, a1, SP[a3, a4], a2, n] + S2[a1, a2, a1, SP[a3, a4], n] + 
    S2[a1, a2, SP[a1, a4], a3, n] - S2[a2, n]*S2[a1, a4, a1, a3, n] - 
    S2[a1, a4, a1, SP[a2, a3], n] + (S2[a1, n]*S2[a1, a4, a2, a3, n])/2 + 
    S2[a1, a4, a2, SP[a1, a3], n]/2 - S2[a1, a4, SP[a1, a2], a3, n]/2 + 
    S2[a1, SP[a1, a4], a2, a3, n]/2 + S2[a1, SP[a1, a4], a3, a2, n] - 
    S2[a1, SP[a2, a4], a1, a3, n] + S2[a2, a1, a1, SP[a3, a4], n] + 
    S2[a2, a1, SP[a1, a4], a3, n] + S2[a2, SP[a1, a4], a1, a3, n] - 
    S2[a2, n]*S2[a4, a1, a1, a3, n] - S2[a4, a1, a1, SP[a2, a3], n] + 
    (S2[a1, n]*S2[a4, a1, a2, a3, n])/2 + S2[a4, a1, a2, SP[a1, a3], n]/2 - 
    S2[a4, a1, SP[a1, a2], a3, n]/2 + (S2[a1, n]*S2[a4, a2, a1, a3, n])/2 + 
    S2[a4, a2, a1, SP[a1, a3], n]/2 - (S2[a1, n]*S2[a4, a2, a3, a1, n])/2 - 
    S2[a4, a2, a3, SP[a1, a1], n]/2 + S2[a4, a2, SP[a1, a1], a3, n]/2 - 
    S2[a4, a2, SP[a1, a3], a1, n]/2 + S2[a4, SP[a1, a1], a2, a3, n]/2 - 
    S2[a4, SP[a1, a2], a1, a3, n]/2 - S2[a4, SP[a1, a2], a3, a1, n]/2 + 
    S2[SP[a1, a1], a4, a2, a3, n]/2 + S2[SP[a1, a4], a1, a2, a3, n]/2 + 
    S2[SP[a1, a4], a1, a3, a2, n] + S2[SP[a1, a4], a2, a1, a3, n]/2 - 
    S2[SP[a1, a4], a2, a3, a1, n]/2 - S2[SP[a2, a4], a1, a1, a3, n] + 
    S2[a4, a2, a3, a1, a1, n] /; MyMemberQ[{{a2, a3, a4}}, 
     {a1, a1, a2, a3, a4}] && a1 != a2 != a3 != a4, 
 S2[a1_, a1_, a3_, a4_, a2_, n_] :> 
  -(S2[a2, a4, n]*S2[a1, a1, a3, n]) + S2[a1, SP[a1, a2], SP[a3, a4], n] + 
    S2[SP[a1, a2], a1, SP[a3, a4], n] + S2[SP[a1, a2], SP[a1, a4], a3, n] - 
    S2[a1, a1, a2, SP[a3, a4], n] + S2[a2, n]*S2[a1, a1, a3, a4, n] + 
    S2[a1, a1, a3, SP[a2, a4], n] + S2[a2, n]*S2[a1, a1, a4, a3, n] + 
    S2[a1, a1, a4, SP[a2, a3], n] + S2[a1, a1, SP[a2, a4], a3, n] - 
    S2[a1, a2, a1, SP[a3, a4], n] - S2[a1, a2, SP[a1, a4], a3, n] + 
    S2[a2, n]*S2[a1, a4, a1, a3, n] + S2[a1, a4, a1, SP[a2, a3], n] - 
    (S2[a1, n]*S2[a1, a4, a2, a3, n])/2 - S2[a1, a4, a2, SP[a1, a3], n]/2 - 
    (S2[a1, n]*S2[a1, a4, a3, a2, n])/2 - S2[a1, a4, a3, SP[a1, a2], n]/2 + 
    S2[a1, a4, SP[a1, a2], a3, n]/2 - S2[a1, a4, SP[a1, a3], a2, n]/2 - 
    S2[a1, SP[a1, a4], a2, a3, n]/2 - S2[a1, SP[a1, a4], a3, a2, n]/2 + 
    S2[a1, SP[a2, a4], a1, a3, n] - S2[a2, a1, a1, SP[a3, a4], n] - 
    S2[a2, a1, SP[a1, a4], a3, n] - S2[a2, SP[a1, a4], a1, a3, n] + 
    S2[a2, n]*S2[a4, a1, a1, a3, n] + S2[a4, a1, a1, SP[a2, a3], n] - 
    (S2[a1, n]*S2[a4, a1, a2, a3, n])/2 - S2[a4, a1, a2, SP[a1, a3], n]/2 - 
    (S2[a1, n]*S2[a4, a1, a3, a2, n])/2 - S2[a4, a1, a3, SP[a1, a2], n]/2 + 
    S2[a4, a1, SP[a1, a2], a3, n]/2 - S2[a4, a1, SP[a1, a3], a2, n]/2 - 
    (S2[a1, n]*S2[a4, a2, a1, a3, n])/2 - S2[a4, a2, a1, SP[a1, a3], n]/2 + 
    (S2[a1, n]*S2[a4, a2, a3, a1, n])/2 + S2[a4, a2, a3, SP[a1, a1], n]/2 - 
    S2[a4, a2, SP[a1, a1], a3, n]/2 + S2[a4, a2, SP[a1, a3], a1, n]/2 + 
    (S2[a1, n]*S2[a4, a3, a1, a2, n])/2 + S2[a4, a3, a1, SP[a1, a2], n]/2 + 
    (S2[a1, n]*S2[a4, a3, a2, a1, n])/2 + S2[a4, a3, a2, SP[a1, a1], n]/2 + 
    S2[a4, a3, SP[a1, a1], a2, n]/2 + S2[a4, a3, SP[a1, a2], a1, n]/2 - 
    S2[a4, SP[a1, a1], a2, a3, n]/2 - S2[a4, SP[a1, a1], a3, a2, n]/2 + 
    S2[a4, SP[a1, a2], a1, a3, n]/2 + S2[a4, SP[a1, a2], a3, a1, n]/2 + 
    S2[a4, SP[a1, a3], a1, a2, n]/2 + S2[a4, SP[a1, a3], a2, a1, n]/2 - 
    S2[SP[a1, a1], a4, a2, a3, n]/2 - S2[SP[a1, a1], a4, a3, a2, n]/2 - 
    S2[SP[a1, a4], a1, a2, a3, n]/2 - S2[SP[a1, a4], a1, a3, a2, n]/2 - 
    S2[SP[a1, a4], a2, a1, a3, n]/2 + S2[SP[a1, a4], a2, a3, a1, n]/2 + 
    S2[SP[a1, a4], a3, a1, a2, n]/2 + S2[SP[a1, a4], a3, a2, a1, n]/2 + 
    S2[SP[a2, a4], a1, a1, a3, n] - S2[a4, a2, a3, a1, a1, n] - 
    S2[a4, a3, a1, a1, a2, n] - S2[a4, a3, a1, a2, a1, n] - 
    S2[a4, a3, a2, a1, a1, n] /; MyMemberQ[{{a2, a3, a4}}, 
     {a1, a1, a2, a3, a4}] && a1 != a2 != a3 != a4, 
 S2[a1_, a1_, a4_, a2_, a3_, n_] :> (S2[a1, n]*S2[a1, a4, a2, a3, n])/2 + 
    S2[a1, a4, a2, SP[a1, a3], n]/2 + S2[a1, a4, SP[a1, a2], a3, n]/2 + 
    S2[a1, SP[a1, a4], a2, a3, n]/2 - (S2[a1, n]*S2[a4, a1, a2, a3, n])/2 - 
    S2[a4, a1, a2, SP[a1, a3], n]/2 - S2[a4, a1, SP[a1, a2], a3, n]/2 - 
    (S2[a1, n]*S2[a4, a2, a1, a3, n])/2 - S2[a4, a2, a1, SP[a1, a3], n]/2 - 
    (S2[a1, n]*S2[a4, a2, a3, a1, n])/2 - S2[a4, a2, a3, SP[a1, a1], n]/2 - 
    S2[a4, a2, SP[a1, a1], a3, n]/2 - S2[a4, a2, SP[a1, a3], a1, n]/2 - 
    S2[a4, SP[a1, a1], a2, a3, n]/2 - S2[a4, SP[a1, a2], a1, a3, n]/2 - 
    S2[a4, SP[a1, a2], a3, a1, n]/2 + S2[SP[a1, a1], a4, a2, a3, n]/2 - 
    S2[SP[a1, a4], a1, a2, a3, n]/2 - S2[SP[a1, a4], a2, a1, a3, n]/2 - 
    S2[SP[a1, a4], a2, a3, a1, n]/2 + S2[a4, a1, a1, a2, a3, n] + 
    S2[a4, a1, a2, a1, a3, n] + S2[a4, a1, a2, a3, a1, n] + 
    S2[a4, a2, a1, a1, a3, n] + S2[a4, a2, a1, a3, a1, n] + 
    S2[a4, a2, a3, a1, a1, n] /; MyMemberQ[{{a2, a3, a4}}, 
     {a1, a1, a2, a3, a4}] && a1 != a2 != a3 != a4, 
 S2[a1_, a1_, a4_, a3_, a2_, n_] :> (S2[a1, n]*S2[a1, a4, a3, a2, n])/2 + 
    S2[a1, a4, a3, SP[a1, a2], n]/2 + S2[a1, a4, SP[a1, a3], a2, n]/2 + 
    S2[a1, SP[a1, a4], a3, a2, n]/2 - (S2[a1, n]*S2[a4, a1, a3, a2, n])/2 - 
    S2[a4, a1, a3, SP[a1, a2], n]/2 - S2[a4, a1, SP[a1, a3], a2, n]/2 - 
    (S2[a1, n]*S2[a4, a3, a1, a2, n])/2 - S2[a4, a3, a1, SP[a1, a2], n]/2 - 
    (S2[a1, n]*S2[a4, a3, a2, a1, n])/2 - S2[a4, a3, a2, SP[a1, a1], n]/2 - 
    S2[a4, a3, SP[a1, a1], a2, n]/2 - S2[a4, a3, SP[a1, a2], a1, n]/2 - 
    S2[a4, SP[a1, a1], a3, a2, n]/2 - S2[a4, SP[a1, a3], a1, a2, n]/2 - 
    S2[a4, SP[a1, a3], a2, a1, n]/2 + S2[SP[a1, a1], a4, a3, a2, n]/2 - 
    S2[SP[a1, a4], a1, a3, a2, n]/2 - S2[SP[a1, a4], a3, a1, a2, n]/2 - 
    S2[SP[a1, a4], a3, a2, a1, n]/2 + S2[a4, a1, a1, a3, a2, n] + 
    S2[a4, a1, a3, a1, a2, n] + S2[a4, a1, a3, a2, a1, n] + 
    S2[a4, a3, a1, a1, a2, n] + S2[a4, a3, a1, a2, a1, n] + 
    S2[a4, a3, a2, a1, a1, n] /; MyMemberQ[{{a2, a3, a4}}, 
     {a1, a1, a2, a3, a4}] && a1 != a2 != a3 != a4, 
 S2[a1_, a2_, a1_, a3_, a4_, n_] :> 
  -2*S2[a3, a4, n]*S2[a1, a1, a2, n] + S2[a1, a2, n]*S2[a1, a3, a4, n] + 
    S2[a1, SP[a1, a3], SP[a2, a4], n] - S2[SP[a1, a1], a3, SP[a2, a4], n] - 
    S2[SP[a1, a1], SP[a2, a3], a4, n] + 2*S2[SP[a1, a3], a1, SP[a2, a4], n] + 
    2*S2[SP[a1, a3], SP[a1, a4], a2, n] - 2*S2[a4, n]*S2[a1, a1, a2, a3, n] + 
    2*S2[a3, n]*S2[a1, a1, a2, a4, n] - 2*S2[a4, n]*S2[a1, a1, a3, a2, n] - 
    2*S2[a1, a1, a3, SP[a2, a4], n] + 2*S2[a3, n]*S2[a1, a1, a4, a2, n] + 
    2*S2[a1, a1, a4, SP[a2, a3], n] + 2*S2[a1, a1, SP[a2, a3], a4, n] - 
    2*S2[a1, a1, SP[a2, a4], a3, n] - S2[a4, n]*S2[a1, a3, a1, a2, n] - 
    2*S2[a1, a3, a1, SP[a2, a4], n] - 2*S2[a1, a3, SP[a1, a4], a2, n] + 
    2*S2[a3, n]*S2[a1, a4, a1, a2, n] + 2*S2[a1, a4, a1, SP[a2, a3], n] + 
    2*S2[a1, a4, SP[a1, a3], a2, n] + S2[a1, SP[a1, a2], a3, a4, n] + 
    S2[a1, SP[a1, a3], a2, a4, n] + S2[a1, SP[a1, a3], a4, a2, n] - 
    2*S2[a1, SP[a1, a4], a2, a3, n] - 2*S2[a1, SP[a1, a4], a3, a2, n] + 
    S2[a1, SP[a3, a4], a1, a2, n] - 2*S2[a3, a1, a1, SP[a2, a4], n] - 
    2*S2[a3, a1, SP[a1, a4], a2, n] - 2*S2[a3, SP[a1, a4], a1, a2, n] + 
    2*S2[a3, n]*S2[a4, a1, a1, a2, n] + 2*S2[a4, a1, a1, SP[a2, a3], n] + 
    2*S2[a4, a1, SP[a1, a3], a2, n] - S2[a1, n]*S2[a4, a3, a1, a2, n] - 
    S2[a4, a3, a1, SP[a1, a2], n] - S2[a4, a3, SP[a1, a1], a2, n] + 
    S2[a4, SP[a1, a3], a1, a2, n] + S2[SP[a1, a1], a2, a3, a4, n] + 
    S2[SP[a1, a1], a3, a2, a4, n] + S2[SP[a1, a1], a3, a4, a2, n] - 
    2*S2[SP[a1, a4], a1, a2, a3, n] - 2*S2[SP[a1, a4], a1, a3, a2, n] - 
    2*S2[SP[a1, a4], a3, a1, a2, n] + 2*S2[SP[a3, a4], a1, a1, a2, n] + 
    S2[a4, a3, a1, a2, a1, n] /; MyMemberQ[{{a2, a3, a4}}, 
     {a1, a1, a2, a3, a4}] && a1 != a2 != a3 != a4, 
 S2[a1_, a2_, a1_, a4_, a3_, n_] :> 
  2*S2[a3, a4, n]*S2[a1, a1, a2, n] + S2[a1, a2, n]*S2[a1, a4, a3, n] - 
    2*S2[a1, SP[a1, a3], SP[a2, a4], n] - S2[a1, SP[a1, a4], SP[a2, a3], n] - 
    S2[SP[a1, a1], a4, SP[a2, a3], n] - S2[SP[a1, a1], SP[a2, a4], a3, n] - 
    2*S2[SP[a1, a3], a1, SP[a2, a4], n] - 
    2*S2[SP[a1, a3], SP[a1, a4], a2, n] - 2*S2[a3, n]*S2[a1, a1, a2, a4, n] - 
    2*S2[a1, a1, a2, SP[a3, a4], n] + 2*S2[a1, a1, a3, SP[a2, a4], n] - 
    2*S2[a3, n]*S2[a1, a1, a4, a2, n] + 2*S2[a1, a1, SP[a2, a4], a3, n] - 
    2*S2[a1, a1, SP[a3, a4], a2, n] + 2*S2[a1, a3, a1, SP[a2, a4], n] + 
    2*S2[a1, a3, SP[a1, a4], a2, n] - 2*S2[a3, n]*S2[a1, a4, a1, a2, n] - 
    S2[a1, a4, a1, SP[a2, a3], n] - S2[a1, a4, SP[a1, a3], a2, n] + 
    S2[a1, SP[a1, a2], a4, a3, n] + S2[a1, SP[a1, a4], a2, a3, n] + 
    S2[a1, SP[a1, a4], a3, a2, n] - 2*S2[a1, SP[a3, a4], a1, a2, n] + 
    2*S2[a3, a1, a1, SP[a2, a4], n] + 2*S2[a3, a1, SP[a1, a4], a2, n] + 
    2*S2[a3, SP[a1, a4], a1, a2, n] - 2*S2[a3, n]*S2[a4, a1, a1, a2, n] - 
    2*S2[a4, a1, a1, SP[a2, a3], n] + S2[a1, n]*S2[a4, a1, a2, a3, n] + 
    S2[a4, a1, a2, SP[a1, a3], n] + S2[a1, n]*S2[a4, a1, a3, a2, n] + 
    S2[a4, a1, a3, SP[a1, a2], n] + S2[a4, a1, SP[a1, a2], a3, n] - 
    S2[a4, a1, SP[a1, a3], a2, n] + S2[a1, n]*S2[a4, a3, a1, a2, n] + 
    S2[a4, a3, a1, SP[a1, a2], n] + S2[a4, a3, SP[a1, a1], a2, n] + 
    S2[a4, SP[a1, a1], a2, a3, n] + S2[a4, SP[a1, a1], a3, a2, n] - 
    S2[a4, SP[a1, a3], a1, a2, n] + S2[SP[a1, a1], a2, a4, a3, n] + 
    S2[SP[a1, a1], a4, a2, a3, n] + S2[SP[a1, a1], a4, a3, a2, n] + 
    S2[SP[a1, a4], a1, a2, a3, n] + S2[SP[a1, a4], a1, a3, a2, n] + 
    S2[SP[a1, a4], a3, a1, a2, n] - 2*S2[SP[a3, a4], a1, a1, a2, n] - 
    S2[a4, a1, a2, a1, a3, n] - S2[a4, a1, a2, a3, a1, n] - 
    S2[a4, a1, a3, a2, a1, n] - S2[a4, a3, a1, a2, a1, n] /; 
   MyMemberQ[{{a2, a3, a4}}, {a1, a1, a2, a3, a4}] && a1 != a2 != a3 != a4, 
 S2[a1_, a2_, a3_, a1_, a4_, n_] :> 
  S2[a1, a4, n]*S2[a1, a2, a3, n] - S2[a1, a2, n]*S2[a1, a3, a4, n] - 
    S2[a1, a2, n]*S2[a1, a4, a3, n] - S2[a1, SP[a1, a2], SP[a3, a4], n] + 
    S2[a1, SP[a1, a3], SP[a2, a4], n] + S2[a1, SP[a1, a4], SP[a2, a3], n] - 
    S2[SP[a1, a1], a2, SP[a3, a4], n] + S2[SP[a1, a1], a3, SP[a2, a4], n] + 
    S2[SP[a1, a1], a4, SP[a2, a3], n] + S2[SP[a1, a1], SP[a2, a3], a4, n] + 
    2*S2[a1, a1, a2, SP[a3, a4], n] + 2*S2[a4, n]*S2[a1, a1, a3, a2, n] - 
    2*S2[a1, a1, a4, SP[a2, a3], n] - 2*S2[a1, a1, SP[a2, a3], a4, n] + 
    2*S2[a1, a1, SP[a3, a4], a2, n] + S2[a1, a2, a1, SP[a3, a4], n] + 
    S2[a1, a2, SP[a1, a3], a4, n] + S2[a4, n]*S2[a1, a3, a1, a2, n] - 
    S2[a1, a4, a1, SP[a2, a3], n] - S2[a1, a4, SP[a1, a3], a2, n] - 
    S2[a1, SP[a1, a3], a2, a4, n] - S2[a1, SP[a1, a3], a4, a2, n] + 
    S2[a1, SP[a1, a4], a3, a2, n] + S2[a1, SP[a3, a4], a1, a2, n] - 
    S2[a1, n]*S2[a4, a1, a3, a2, n] - S2[a4, a1, a3, SP[a1, a2], n] - 
    S2[a4, a1, SP[a1, a3], a2, n] - S2[a4, SP[a1, a1], a3, a2, n] - 
    S2[SP[a1, a1], a3, a2, a4, n] - S2[SP[a1, a1], a3, a4, a2, n] - 
    S2[SP[a1, a1], a4, a3, a2, n] + S2[SP[a1, a4], a1, a3, a2, n] + 
    S2[SP[a1, a4], a3, a1, a2, n] + S2[a4, a1, a3, a2, a1, n] /; 
   MyMemberQ[{{a2, a3, a4}}, {a1, a1, a2, a3, a4}] && a1 != a2 != a3 != a4, 
 S2[a1_, a2_, a3_, a4_, a1_, n_] :> 
  -(S2[a1, a4, n]*S2[a1, a2, a3, n]) + S2[a1, a2, n]*S2[a1, a4, a3, n] + 
    S2[a1, SP[a1, a2], SP[a3, a4], n] - S2[a1, SP[a1, a4], SP[a2, a3], n] + 
    S2[SP[a1, a1], a2, SP[a3, a4], n] - S2[SP[a1, a1], a4, SP[a2, a3], n] - 
    2*S2[a1, a1, a2, SP[a3, a4], n] + 2*S2[a1, a1, a4, SP[a2, a3], n] - 
    S2[a1, a2, a1, SP[a3, a4], n] + S2[a1, n]*S2[a1, a2, a3, a4, n] + 
    S2[a1, a2, a3, SP[a1, a4], n] + S2[a1, a4, a1, SP[a2, a3], n] - 
    S2[a1, n]*S2[a1, a4, a3, a2, n] - S2[a1, a4, a3, SP[a1, a2], n] + 
    S2[a1, n]*S2[a4, a3, a2, a1, n] + S2[a4, a3, a2, SP[a1, a1], n] + 
    S2[a4, a3, SP[a1, a2], a1, n] + S2[a4, SP[a1, a3], a2, a1, n] + 
    S2[SP[a1, a4], a3, a2, a1, n] - S2[a4, a1, a3, a2, a1, n] - 
    S2[a4, a3, a1, a2, a1, n] - 2*S2[a4, a3, a2, a1, a1, n] /; 
   MyMemberQ[{{a2, a3, a4}}, {a1, a1, a2, a3, a4}] && a1 != a2 != a3 != a4, 
 S2[a1_, a2_, a4_, a1_, a3_, n_] :> 
  -(S2[a1, a2, n]*S2[a1, a3, a4, n]) - S2[a1, a2, n]*S2[a1, a4, a3, n] + 
    S2[a1, SP[a1, a3], SP[a2, a4], n] + S2[a1, SP[a1, a4], SP[a2, a3], n] + 
    S2[SP[a1, a1], a3, SP[a2, a4], n] + S2[SP[a1, a1], a4, SP[a2, a3], n] + 
    S2[SP[a1, a1], SP[a2, a3], a4, n] + S2[SP[a1, a1], SP[a2, a4], a3, n] + 
    2*S2[a4, n]*S2[a1, a1, a2, a3, n] + 2*S2[a1, a1, a2, SP[a3, a4], n] + 
    2*S2[a4, n]*S2[a1, a1, a3, a2, n] - 2*S2[a1, a1, a4, SP[a2, a3], n] - 
    2*S2[a1, a1, SP[a2, a3], a4, n] + 2*S2[a1, a1, SP[a3, a4], a2, n] + 
    S2[a4, n]*S2[a1, a2, a1, a3, n] + S2[a1, a2, a1, SP[a3, a4], n] + 
    S2[a1, a2, SP[a1, a4], a3, n] + S2[a4, n]*S2[a1, a3, a1, a2, n] - 
    S2[a1, a4, a1, SP[a2, a3], n] - S2[a1, a4, SP[a1, a3], a2, n] - 
    S2[a1, SP[a1, a2], a3, a4, n] - S2[a1, SP[a1, a2], a4, a3, n] - 
    S2[a1, SP[a1, a3], a2, a4, n] - S2[a1, SP[a1, a3], a4, a2, n] + 
    S2[a1, SP[a1, a4], a2, a3, n] + S2[a1, SP[a1, a4], a3, a2, n] + 
    S2[a1, SP[a2, a4], a1, a3, n] + S2[a1, SP[a3, a4], a1, a2, n] - 
    S2[a1, n]*S2[a4, a1, a2, a3, n] - S2[a4, a1, a2, SP[a1, a3], n] - 
    S2[a1, n]*S2[a4, a1, a3, a2, n] - S2[a4, a1, a3, SP[a1, a2], n] - 
    S2[a4, a1, SP[a1, a2], a3, n] - S2[a4, a1, SP[a1, a3], a2, n] - 
    S2[a1, n]*S2[a4, a2, a1, a3, n] - S2[a4, a2, a1, SP[a1, a3], n] - 
    S2[a4, a2, SP[a1, a1], a3, n] - S2[a4, SP[a1, a1], a2, a3, n] - 
    S2[a4, SP[a1, a1], a3, a2, n] - S2[a4, SP[a1, a2], a1, a3, n] - 
    S2[SP[a1, a1], a2, a3, a4, n] - S2[SP[a1, a1], a2, a4, a3, n] - 
    S2[SP[a1, a1], a3, a2, a4, n] - S2[SP[a1, a1], a3, a4, a2, n] - 
    S2[SP[a1, a1], a4, a2, a3, n] - S2[SP[a1, a1], a4, a3, a2, n] + 
    S2[SP[a1, a4], a1, a2, a3, n] + S2[SP[a1, a4], a1, a3, a2, n] + 
    S2[SP[a1, a4], a3, a1, a2, n] + S2[a4, a1, a2, a1, a3, n] + 
    S2[a4, a1, a2, a3, a1, n] + S2[a4, a1, a3, a2, a1, n] + 
    2*S2[a4, a2, a1, a1, a3, n] + S2[a4, a2, a1, a3, a1, n] /; 
   MyMemberQ[{{a2, a3, a4}}, {a1, a1, a2, a3, a4}] && a1 != a2 != a3 != a4, 
 S2[a1_, a2_, a4_, a3_, a1_, n_] :> 
  S2[a1, a2, n]*S2[a1, a3, a4, n] - S2[a1, SP[a1, a3], SP[a2, a4], n] - 
    S2[SP[a1, a1], a3, SP[a2, a4], n] - S2[SP[a1, a1], SP[a2, a3], a4, n] - 
    2*S2[a4, n]*S2[a1, a1, a2, a3, n] - 2*S2[a1, a1, a2, SP[a3, a4], n] - 
    2*S2[a4, n]*S2[a1, a1, a3, a2, n] + 2*S2[a1, a1, SP[a2, a3], a4, n] - 
    2*S2[a1, a1, SP[a2, a4], a3, n] - 2*S2[a1, a1, SP[a3, a4], a2, n] - 
    S2[a4, n]*S2[a1, a2, a1, a3, n] - S2[a1, a2, a1, SP[a3, a4], n] + 
    S2[a1, n]*S2[a1, a2, a4, a3, n] + S2[a1, a2, a4, SP[a1, a3], n] - 
    S2[a4, n]*S2[a1, a3, a1, a2, n] + S2[a1, n]*S2[a1, a4, a2, a3, n] + 
    S2[a1, a4, a2, SP[a1, a3], n] + S2[a1, n]*S2[a1, a4, a3, a2, n] + 
    S2[a1, a4, a3, SP[a1, a2], n] + S2[a1, a4, SP[a1, a2], a3, n] + 
    S2[a1, a4, SP[a1, a3], a2, n] + S2[a1, SP[a1, a2], a3, a4, n] + 
    S2[a1, SP[a1, a2], a4, a3, n] + S2[a1, SP[a1, a3], a2, a4, n] + 
    S2[a1, SP[a1, a3], a4, a2, n] - S2[a1, SP[a1, a4], a2, a3, n] - 
    S2[a1, SP[a1, a4], a3, a2, n] - S2[a1, SP[a2, a4], a1, a3, n] - 
    S2[a1, SP[a3, a4], a1, a2, n] + S2[a1, n]*S2[a4, a1, a2, a3, n] + 
    S2[a4, a1, a2, SP[a1, a3], n] + S2[a1, n]*S2[a4, a1, a3, a2, n] + 
    S2[a4, a1, a3, SP[a1, a2], n] + S2[a4, a1, SP[a1, a2], a3, n] + 
    S2[a4, a1, SP[a1, a3], a2, n] - S2[a1, n]*S2[a4, a2, a3, a1, n] - 
    S2[a4, a2, a3, SP[a1, a1], n] - S2[a4, a2, SP[a1, a3], a1, n] - 
    S2[a1, n]*S2[a4, a3, a2, a1, n] - S2[a4, a3, a2, SP[a1, a1], n] - 
    S2[a4, a3, SP[a1, a2], a1, n] + S2[a4, SP[a1, a1], a2, a3, n] + 
    S2[a4, SP[a1, a1], a3, a2, n] - S2[a4, SP[a1, a2], a3, a1, n] - 
    S2[a4, SP[a1, a3], a2, a1, n] + S2[SP[a1, a1], a2, a3, a4, n] + 
    S2[SP[a1, a1], a2, a4, a3, n] + S2[SP[a1, a1], a3, a2, a4, n] + 
    S2[SP[a1, a1], a3, a4, a2, n] + S2[SP[a1, a1], a4, a2, a3, n] + 
    S2[SP[a1, a1], a4, a3, a2, n] - S2[SP[a1, a4], a1, a2, a3, n] - 
    S2[SP[a1, a4], a1, a3, a2, n] - S2[SP[a1, a4], a2, a1, a3, n] - 
    S2[SP[a1, a4], a2, a3, a1, n] - S2[SP[a1, a4], a3, a1, a2, n] - 
    S2[SP[a1, a4], a3, a2, a1, n] + S2[a4, a2, a1, a3, a1, n] + 
    2*S2[a4, a2, a3, a1, a1, n] + S2[a4, a3, a1, a2, a1, n] + 
    2*S2[a4, a3, a2, a1, a1, n] /; 
   MyMemberQ[{{a2, a3, a4}}, {a1, a1, a2, a3, a4}] && a1 != a2 != a3 != a4, 
 S2[a1_, a3_, a1_, a2_, a4_, n_] :> 
  -2*S2[a2, a4, n]*S2[a1, a1, a3, n] + S2[a1, a3, n]*S2[a1, a2, a4, n] + 
    S2[a1, SP[a1, a2], SP[a3, a4], n] - S2[SP[a1, a1], a2, SP[a3, a4], n] - 
    S2[SP[a1, a1], SP[a2, a3], a4, n] + 2*S2[SP[a1, a2], a1, SP[a3, a4], n] + 
    2*S2[SP[a1, a2], SP[a1, a4], a3, n] - 2*S2[a4, n]*S2[a1, a1, a2, a3, n] - 
    2*S2[a1, a1, a2, SP[a3, a4], n] - 2*S2[a4, n]*S2[a1, a1, a3, a2, n] + 
    2*S2[a2, n]*S2[a1, a1, a3, a4, n] + 2*S2[a2, n]*S2[a1, a1, a4, a3, n] + 
    2*S2[a1, a1, a4, SP[a2, a3], n] + 2*S2[a1, a1, SP[a2, a3], a4, n] - 
    2*S2[a1, a1, SP[a3, a4], a2, n] - S2[a4, n]*S2[a1, a2, a1, a3, n] - 
    2*S2[a1, a2, a1, SP[a3, a4], n] - 2*S2[a1, a2, SP[a1, a4], a3, n] + 
    2*S2[a2, n]*S2[a1, a4, a1, a3, n] + 2*S2[a1, a4, a1, SP[a2, a3], n] + 
    2*S2[a1, a4, SP[a1, a2], a3, n] + S2[a1, SP[a1, a2], a3, a4, n] + 
    S2[a1, SP[a1, a2], a4, a3, n] + S2[a1, SP[a1, a3], a2, a4, n] - 
    2*S2[a1, SP[a1, a4], a2, a3, n] - 2*S2[a1, SP[a1, a4], a3, a2, n] + 
    S2[a1, SP[a2, a4], a1, a3, n] - 2*S2[a2, a1, a1, SP[a3, a4], n] - 
    2*S2[a2, a1, SP[a1, a4], a3, n] - 2*S2[a2, SP[a1, a4], a1, a3, n] + 
    2*S2[a2, n]*S2[a4, a1, a1, a3, n] + 2*S2[a4, a1, a1, SP[a2, a3], n] + 
    2*S2[a4, a1, SP[a1, a2], a3, n] - S2[a1, n]*S2[a4, a2, a1, a3, n] - 
    S2[a4, a2, a1, SP[a1, a3], n] - S2[a4, a2, SP[a1, a1], a3, n] + 
    S2[a4, SP[a1, a2], a1, a3, n] + S2[SP[a1, a1], a2, a3, a4, n] + 
    S2[SP[a1, a1], a2, a4, a3, n] + S2[SP[a1, a1], a3, a2, a4, n] - 
    2*S2[SP[a1, a4], a1, a2, a3, n] - 2*S2[SP[a1, a4], a1, a3, a2, n] - 
    2*S2[SP[a1, a4], a2, a1, a3, n] + 2*S2[SP[a2, a4], a1, a1, a3, n] + 
    S2[a4, a2, a1, a3, a1, n] /; MyMemberQ[{{a2, a3, a4}}, 
     {a1, a1, a2, a3, a4}] && a1 != a2 != a3 != a4, 
 S2[a1_, a3_, a1_, a4_, a2_, n_] :> 
  2*S2[a2, a4, n]*S2[a1, a1, a3, n] + S2[a1, a3, n]*S2[a1, a4, a2, n] - 
    2*S2[a1, SP[a1, a2], SP[a3, a4], n] - S2[a1, SP[a1, a4], SP[a2, a3], n] - 
    S2[SP[a1, a1], a4, SP[a2, a3], n] - S2[SP[a1, a1], SP[a3, a4], a2, n] - 
    2*S2[SP[a1, a2], a1, SP[a3, a4], n] - 
    2*S2[SP[a1, a2], SP[a1, a4], a3, n] + 2*S2[a1, a1, a2, SP[a3, a4], n] - 
    2*S2[a2, n]*S2[a1, a1, a3, a4, n] - 2*S2[a1, a1, a3, SP[a2, a4], n] - 
    2*S2[a2, n]*S2[a1, a1, a4, a3, n] - 2*S2[a1, a1, SP[a2, a4], a3, n] + 
    2*S2[a1, a1, SP[a3, a4], a2, n] + 2*S2[a1, a2, a1, SP[a3, a4], n] + 
    2*S2[a1, a2, SP[a1, a4], a3, n] - 2*S2[a2, n]*S2[a1, a4, a1, a3, n] - 
    S2[a1, a4, a1, SP[a2, a3], n] - S2[a1, a4, SP[a1, a2], a3, n] + 
    S2[a1, SP[a1, a3], a4, a2, n] + S2[a1, SP[a1, a4], a2, a3, n] + 
    S2[a1, SP[a1, a4], a3, a2, n] - 2*S2[a1, SP[a2, a4], a1, a3, n] + 
    2*S2[a2, a1, a1, SP[a3, a4], n] + 2*S2[a2, a1, SP[a1, a4], a3, n] + 
    2*S2[a2, SP[a1, a4], a1, a3, n] - 2*S2[a2, n]*S2[a4, a1, a1, a3, n] - 
    2*S2[a4, a1, a1, SP[a2, a3], n] + S2[a1, n]*S2[a4, a1, a2, a3, n] + 
    S2[a4, a1, a2, SP[a1, a3], n] + S2[a1, n]*S2[a4, a1, a3, a2, n] + 
    S2[a4, a1, a3, SP[a1, a2], n] - S2[a4, a1, SP[a1, a2], a3, n] + 
    S2[a4, a1, SP[a1, a3], a2, n] + S2[a1, n]*S2[a4, a2, a1, a3, n] + 
    S2[a4, a2, a1, SP[a1, a3], n] + S2[a4, a2, SP[a1, a1], a3, n] + 
    S2[a4, SP[a1, a1], a2, a3, n] + S2[a4, SP[a1, a1], a3, a2, n] - 
    S2[a4, SP[a1, a2], a1, a3, n] + S2[SP[a1, a1], a3, a4, a2, n] + 
    S2[SP[a1, a1], a4, a2, a3, n] + S2[SP[a1, a1], a4, a3, a2, n] + 
    S2[SP[a1, a4], a1, a2, a3, n] + S2[SP[a1, a4], a1, a3, a2, n] + 
    S2[SP[a1, a4], a2, a1, a3, n] - 2*S2[SP[a2, a4], a1, a1, a3, n] - 
    S2[a4, a1, a2, a3, a1, n] - S2[a4, a1, a3, a1, a2, n] - 
    S2[a4, a1, a3, a2, a1, n] - S2[a4, a2, a1, a3, a1, n] /; 
   MyMemberQ[{{a2, a3, a4}}, {a1, a1, a2, a3, a4}] && a1 != a2 != a3 != a4, 
 S2[a1_, a3_, a2_, a1_, a4_, n_] :> 
  -(S2[a1, a3, n]*S2[a1, a2, a4, n]) + S2[a1, a4, n]*S2[a1, a3, a2, n] - 
    S2[a1, a3, n]*S2[a1, a4, a2, n] + S2[a1, SP[a1, a2], SP[a3, a4], n] - 
    S2[a1, SP[a1, a3], SP[a2, a4], n] + S2[a1, SP[a1, a4], SP[a2, a3], n] + 
    S2[SP[a1, a1], a2, SP[a3, a4], n] - S2[SP[a1, a1], a3, SP[a2, a4], n] + 
    S2[SP[a1, a1], a4, SP[a2, a3], n] + S2[SP[a1, a1], SP[a2, a3], a4, n] + 
    2*S2[a4, n]*S2[a1, a1, a2, a3, n] + 2*S2[a1, a1, a3, SP[a2, a4], n] - 
    2*S2[a1, a1, a4, SP[a2, a3], n] - 2*S2[a1, a1, SP[a2, a3], a4, n] + 
    2*S2[a1, a1, SP[a2, a4], a3, n] + S2[a4, n]*S2[a1, a2, a1, a3, n] + 
    S2[a1, a3, a1, SP[a2, a4], n] + S2[a1, a3, SP[a1, a2], a4, n] - 
    S2[a1, a4, a1, SP[a2, a3], n] - S2[a1, a4, SP[a1, a2], a3, n] - 
    S2[a1, SP[a1, a2], a3, a4, n] - S2[a1, SP[a1, a2], a4, a3, n] + 
    S2[a1, SP[a1, a4], a2, a3, n] + S2[a1, SP[a2, a4], a1, a3, n] - 
    S2[a1, n]*S2[a4, a1, a2, a3, n] - S2[a4, a1, a2, SP[a1, a3], n] - 
    S2[a4, a1, SP[a1, a2], a3, n] - S2[a4, SP[a1, a1], a2, a3, n] - 
    S2[SP[a1, a1], a2, a3, a4, n] - S2[SP[a1, a1], a2, a4, a3, n] - 
    S2[SP[a1, a1], a4, a2, a3, n] + S2[SP[a1, a4], a1, a2, a3, n] + 
    S2[SP[a1, a4], a2, a1, a3, n] + S2[a4, a1, a2, a3, a1, n] /; 
   MyMemberQ[{{a2, a3, a4}}, {a1, a1, a2, a3, a4}] && a1 != a2 != a3 != a4, 
 S2[a1_, a3_, a2_, a4_, a1_, n_] :> 
  -(S2[a1, a4, n]*S2[a1, a3, a2, n]) + S2[a1, a3, n]*S2[a1, a4, a2, n] + 
    S2[a1, SP[a1, a3], SP[a2, a4], n] - S2[a1, SP[a1, a4], SP[a2, a3], n] + 
    S2[SP[a1, a1], a3, SP[a2, a4], n] - S2[SP[a1, a1], a4, SP[a2, a3], n] - 
    2*S2[a1, a1, a3, SP[a2, a4], n] + 2*S2[a1, a1, a4, SP[a2, a3], n] - 
    S2[a1, a3, a1, SP[a2, a4], n] + S2[a1, n]*S2[a1, a3, a2, a4, n] + 
    S2[a1, a3, a2, SP[a1, a4], n] + S2[a1, a4, a1, SP[a2, a3], n] - 
    S2[a1, n]*S2[a1, a4, a2, a3, n] - S2[a1, a4, a2, SP[a1, a3], n] + 
    S2[a1, n]*S2[a4, a2, a3, a1, n] + S2[a4, a2, a3, SP[a1, a1], n] + 
    S2[a4, a2, SP[a1, a3], a1, n] + S2[a4, SP[a1, a2], a3, a1, n] + 
    S2[SP[a1, a4], a2, a3, a1, n] - S2[a4, a1, a2, a3, a1, n] - 
    S2[a4, a2, a1, a3, a1, n] - 2*S2[a4, a2, a3, a1, a1, n] /; 
   MyMemberQ[{{a2, a3, a4}}, {a1, a1, a2, a3, a4}] && a1 != a2 != a3 != a4, 
 S2[a1_, a3_, a4_, a1_, a2_, n_] :> 
  -(S2[a1, a3, n]*S2[a1, a2, a4, n]) - S2[a1, a3, n]*S2[a1, a4, a2, n] + 
    S2[a1, SP[a1, a2], SP[a3, a4], n] + S2[a1, SP[a1, a4], SP[a2, a3], n] + 
    S2[SP[a1, a1], a2, SP[a3, a4], n] + S2[SP[a1, a1], a4, SP[a2, a3], n] + 
    S2[SP[a1, a1], SP[a2, a3], a4, n] + S2[SP[a1, a1], SP[a3, a4], a2, n] + 
    2*S2[a4, n]*S2[a1, a1, a2, a3, n] + 2*S2[a4, n]*S2[a1, a1, a3, a2, n] + 
    2*S2[a1, a1, a3, SP[a2, a4], n] - 2*S2[a1, a1, a4, SP[a2, a3], n] - 
    2*S2[a1, a1, SP[a2, a3], a4, n] + 2*S2[a1, a1, SP[a2, a4], a3, n] + 
    S2[a4, n]*S2[a1, a2, a1, a3, n] + S2[a4, n]*S2[a1, a3, a1, a2, n] + 
    S2[a1, a3, a1, SP[a2, a4], n] + S2[a1, a3, SP[a1, a4], a2, n] - 
    S2[a1, a4, a1, SP[a2, a3], n] - S2[a1, a4, SP[a1, a2], a3, n] - 
    S2[a1, SP[a1, a2], a3, a4, n] - S2[a1, SP[a1, a2], a4, a3, n] - 
    S2[a1, SP[a1, a3], a2, a4, n] - S2[a1, SP[a1, a3], a4, a2, n] + 
    S2[a1, SP[a1, a4], a2, a3, n] + S2[a1, SP[a1, a4], a3, a2, n] + 
    S2[a1, SP[a2, a4], a1, a3, n] + S2[a1, SP[a3, a4], a1, a2, n] - 
    S2[a1, n]*S2[a4, a1, a2, a3, n] - S2[a4, a1, a2, SP[a1, a3], n] - 
    S2[a1, n]*S2[a4, a1, a3, a2, n] - S2[a4, a1, a3, SP[a1, a2], n] - 
    S2[a4, a1, SP[a1, a2], a3, n] - S2[a4, a1, SP[a1, a3], a2, n] - 
    S2[a1, n]*S2[a4, a3, a1, a2, n] - S2[a4, a3, a1, SP[a1, a2], n] - 
    S2[a4, a3, SP[a1, a1], a2, n] - S2[a4, SP[a1, a1], a2, a3, n] - 
    S2[a4, SP[a1, a1], a3, a2, n] - S2[a4, SP[a1, a3], a1, a2, n] - 
    S2[SP[a1, a1], a2, a3, a4, n] - S2[SP[a1, a1], a2, a4, a3, n] - 
    S2[SP[a1, a1], a3, a2, a4, n] - S2[SP[a1, a1], a3, a4, a2, n] - 
    S2[SP[a1, a1], a4, a2, a3, n] - S2[SP[a1, a1], a4, a3, a2, n] + 
    S2[SP[a1, a4], a1, a2, a3, n] + S2[SP[a1, a4], a1, a3, a2, n] + 
    S2[SP[a1, a4], a2, a1, a3, n] + S2[a4, a1, a2, a3, a1, n] + 
    S2[a4, a1, a3, a1, a2, n] + S2[a4, a1, a3, a2, a1, n] + 
    2*S2[a4, a3, a1, a1, a2, n] + S2[a4, a3, a1, a2, a1, n] /; 
   MyMemberQ[{{a2, a3, a4}}, {a1, a1, a2, a3, a4}] && a1 != a2 != a3 != a4, 
 S2[a1_, a3_, a4_, a2_, a1_, n_] :> 
  S2[a1, a3, n]*S2[a1, a2, a4, n] - S2[a1, SP[a1, a2], SP[a3, a4], n] - 
    S2[SP[a1, a1], a2, SP[a3, a4], n] - S2[SP[a1, a1], SP[a2, a3], a4, n] - 
    2*S2[a4, n]*S2[a1, a1, a2, a3, n] - 2*S2[a4, n]*S2[a1, a1, a3, a2, n] - 
    2*S2[a1, a1, a3, SP[a2, a4], n] + 2*S2[a1, a1, SP[a2, a3], a4, n] - 
    2*S2[a1, a1, SP[a2, a4], a3, n] - 2*S2[a1, a1, SP[a3, a4], a2, n] - 
    S2[a4, n]*S2[a1, a2, a1, a3, n] - S2[a4, n]*S2[a1, a3, a1, a2, n] - 
    S2[a1, a3, a1, SP[a2, a4], n] + S2[a1, n]*S2[a1, a3, a4, a2, n] + 
    S2[a1, a3, a4, SP[a1, a2], n] + S2[a1, n]*S2[a1, a4, a2, a3, n] + 
    S2[a1, a4, a2, SP[a1, a3], n] + S2[a1, n]*S2[a1, a4, a3, a2, n] + 
    S2[a1, a4, a3, SP[a1, a2], n] + S2[a1, a4, SP[a1, a2], a3, n] + 
    S2[a1, a4, SP[a1, a3], a2, n] + S2[a1, SP[a1, a2], a3, a4, n] + 
    S2[a1, SP[a1, a2], a4, a3, n] + S2[a1, SP[a1, a3], a2, a4, n] + 
    S2[a1, SP[a1, a3], a4, a2, n] - S2[a1, SP[a1, a4], a2, a3, n] - 
    S2[a1, SP[a1, a4], a3, a2, n] - S2[a1, SP[a2, a4], a1, a3, n] - 
    S2[a1, SP[a3, a4], a1, a2, n] + S2[a1, n]*S2[a4, a1, a2, a3, n] + 
    S2[a4, a1, a2, SP[a1, a3], n] + S2[a1, n]*S2[a4, a1, a3, a2, n] + 
    S2[a4, a1, a3, SP[a1, a2], n] + S2[a4, a1, SP[a1, a2], a3, n] + 
    S2[a4, a1, SP[a1, a3], a2, n] - S2[a1, n]*S2[a4, a2, a3, a1, n] - 
    S2[a4, a2, a3, SP[a1, a1], n] - S2[a4, a2, SP[a1, a3], a1, n] - 
    S2[a1, n]*S2[a4, a3, a2, a1, n] - S2[a4, a3, a2, SP[a1, a1], n] - 
    S2[a4, a3, SP[a1, a2], a1, n] + S2[a4, SP[a1, a1], a2, a3, n] + 
    S2[a4, SP[a1, a1], a3, a2, n] - S2[a4, SP[a1, a2], a3, a1, n] - 
    S2[a4, SP[a1, a3], a2, a1, n] + S2[SP[a1, a1], a2, a3, a4, n] + 
    S2[SP[a1, a1], a2, a4, a3, n] + S2[SP[a1, a1], a3, a2, a4, n] + 
    S2[SP[a1, a1], a3, a4, a2, n] + S2[SP[a1, a1], a4, a2, a3, n] + 
    S2[SP[a1, a1], a4, a3, a2, n] - S2[SP[a1, a4], a1, a2, a3, n] - 
    S2[SP[a1, a4], a1, a3, a2, n] - S2[SP[a1, a4], a2, a1, a3, n] - 
    S2[SP[a1, a4], a2, a3, a1, n] - S2[SP[a1, a4], a3, a1, a2, n] - 
    S2[SP[a1, a4], a3, a2, a1, n] + S2[a4, a2, a1, a3, a1, n] + 
    2*S2[a4, a2, a3, a1, a1, n] + S2[a4, a3, a1, a2, a1, n] + 
    2*S2[a4, a3, a2, a1, a1, n] /; 
   MyMemberQ[{{a2, a3, a4}}, {a1, a1, a2, a3, a4}] && a1 != a2 != a3 != a4, 
 S2[a1_, a4_, a1_, a2_, a3_, n_] :> 
  S2[a1, n]*S2[a4, a1, a2, a3, n] + S2[a4, a1, a2, SP[a1, a3], n] + 
    S2[a4, a1, SP[a1, a2], a3, n] + S2[a4, SP[a1, a1], a2, a3, n] + 
    S2[SP[a1, a4], a1, a2, a3, n] - 2*S2[a4, a1, a1, a2, a3, n] - 
    S2[a4, a1, a2, a1, a3, n] - S2[a4, a1, a2, a3, a1, n] /; 
   MyMemberQ[{{a2, a3, a4}}, {a1, a1, a2, a3, a4}] && a1 != a2 != a3 != a4, 
 S2[a1_, a4_, a1_, a3_, a2_, n_] :> 
  S2[a1, n]*S2[a4, a1, a3, a2, n] + S2[a4, a1, a3, SP[a1, a2], n] + 
    S2[a4, a1, SP[a1, a3], a2, n] + S2[a4, SP[a1, a1], a3, a2, n] + 
    S2[SP[a1, a4], a1, a3, a2, n] - 2*S2[a4, a1, a1, a3, a2, n] - 
    S2[a4, a1, a3, a1, a2, n] - S2[a4, a1, a3, a2, a1, n] /; 
   MyMemberQ[{{a2, a3, a4}}, {a1, a1, a2, a3, a4}] && a1 != a2 != a3 != a4, 
 S2[a1_, a4_, a2_, a1_, a3_, n_] :> 
  S2[a1, n]*S2[a4, a2, a1, a3, n] + S2[a4, a2, a1, SP[a1, a3], n] + 
    S2[a4, a2, SP[a1, a1], a3, n] + S2[a4, SP[a1, a2], a1, a3, n] + 
    S2[SP[a1, a4], a2, a1, a3, n] - S2[a4, a1, a2, a1, a3, n] - 
    2*S2[a4, a2, a1, a1, a3, n] - S2[a4, a2, a1, a3, a1, n] /; 
   MyMemberQ[{{a2, a3, a4}}, {a1, a1, a2, a3, a4}] && a1 != a2 != a3 != a4, 
 S2[a1_, a4_, a2_, a3_, a1_, n_] :> 
  S2[a1, n]*S2[a4, a2, a3, a1, n] + S2[a4, a2, a3, SP[a1, a1], n] + 
    S2[a4, a2, SP[a1, a3], a1, n] + S2[a4, SP[a1, a2], a3, a1, n] + 
    S2[SP[a1, a4], a2, a3, a1, n] - S2[a4, a1, a2, a3, a1, n] - 
    S2[a4, a2, a1, a3, a1, n] - 2*S2[a4, a2, a3, a1, a1, n] /; 
   MyMemberQ[{{a2, a3, a4}}, {a1, a1, a2, a3, a4}] && a1 != a2 != a3 != a4, 
 S2[a1_, a4_, a3_, a1_, a2_, n_] :> 
  S2[a1, n]*S2[a4, a3, a1, a2, n] + S2[a4, a3, a1, SP[a1, a2], n] + 
    S2[a4, a3, SP[a1, a1], a2, n] + S2[a4, SP[a1, a3], a1, a2, n] + 
    S2[SP[a1, a4], a3, a1, a2, n] - S2[a4, a1, a3, a1, a2, n] - 
    2*S2[a4, a3, a1, a1, a2, n] - S2[a4, a3, a1, a2, a1, n] /; 
   MyMemberQ[{{a2, a3, a4}}, {a1, a1, a2, a3, a4}] && a1 != a2 != a3 != a4, 
 S2[a1_, a4_, a3_, a2_, a1_, n_] :> 
  S2[a1, n]*S2[a4, a3, a2, a1, n] + S2[a4, a3, a2, SP[a1, a1], n] + 
    S2[a4, a3, SP[a1, a2], a1, n] + S2[a4, SP[a1, a3], a2, a1, n] + 
    S2[SP[a1, a4], a3, a2, a1, n] - S2[a4, a1, a3, a2, a1, n] - 
    S2[a4, a3, a1, a2, a1, n] - 2*S2[a4, a3, a2, a1, a1, n] /; 
   MyMemberQ[{{a2, a3, a4}}, {a1, a1, a2, a3, a4}] && a1 != a2 != a3 != a4, 
 S2[a2_, a1_, a1_, a3_, a4_, n_] :> 
  S2[a3, a4, n]*S2[a1, a1, a2, n] - S2[a1, a2, n]*S2[a1, a3, a4, n] + 
    S2[SP[a1, a1], a3, SP[a2, a4], n] + S2[SP[a1, a1], SP[a2, a3], a4, n] - 
    S2[SP[a1, a3], a1, SP[a2, a4], n] - S2[SP[a1, a3], SP[a1, a4], a2, n] + 
    S2[a4, n]*S2[a1, a1, a2, a3, n] - S2[a3, n]*S2[a1, a1, a2, a4, n] + 
    S2[a4, n]*S2[a1, a1, a3, a2, n] + S2[a2, n]*S2[a1, a1, a3, a4, n] + 
    S2[a1, a1, a3, SP[a2, a4], n] - S2[a3, n]*S2[a1, a1, a4, a2, n] - 
    S2[a1, a1, a4, SP[a2, a3], n] - S2[a1, a1, SP[a2, a3], a4, n] + 
    S2[a1, a1, SP[a2, a4], a3, n] + S2[a4, n]*S2[a1, a3, a1, a2, n] + 
    S2[a1, a3, a1, SP[a2, a4], n] + S2[a1, a3, SP[a1, a4], a2, n] - 
    S2[a3, n]*S2[a1, a4, a1, a2, n] - S2[a1, a4, a1, SP[a2, a3], n] - 
    S2[a1, a4, SP[a1, a3], a2, n] - S2[a1, SP[a1, a3], a2, a4, n] - 
    S2[a1, SP[a1, a3], a4, a2, n] + S2[a1, SP[a1, a4], a2, a3, n] + 
    S2[a1, SP[a1, a4], a3, a2, n] + S2[a3, a1, a1, SP[a2, a4], n] + 
    S2[a3, a1, SP[a1, a4], a2, n] + S2[a3, SP[a1, a4], a1, a2, n] - 
    S2[a3, n]*S2[a4, a1, a1, a2, n] - S2[a4, a1, a1, SP[a2, a3], n] - 
    S2[a4, a1, SP[a1, a3], a2, n] - S2[a4, SP[a1, a3], a1, a2, n] - 
    S2[SP[a1, a1], a2, a3, a4, n] - S2[SP[a1, a1], a3, a2, a4, n] - 
    S2[SP[a1, a1], a3, a4, a2, n] + S2[SP[a1, a2], a1, a3, a4, n] + 
    S2[SP[a1, a4], a1, a2, a3, n] + S2[SP[a1, a4], a1, a3, a2, n] + 
    S2[SP[a1, a4], a3, a1, a2, n] - S2[SP[a3, a4], a1, a1, a2, n] + 
    S2[a4, a3, a1, a1, a2, n] /; MyMemberQ[{{a2, a3, a4}}, 
     {a1, a1, a2, a3, a4}] && a1 != a2 != a3 != a4, 
 S2[a2_, a1_, a1_, a4_, a3_, n_] :> 
  -(S2[a3, a4, n]*S2[a1, a1, a2, n]) - S2[a1, a2, n]*S2[a1, a4, a3, n] + 
    S2[a1, SP[a1, a3], SP[a2, a4], n] + S2[a1, SP[a1, a4], SP[a2, a3], n] + 
    S2[SP[a1, a1], a4, SP[a2, a3], n] + S2[SP[a1, a1], SP[a2, a4], a3, n] + 
    S2[SP[a1, a3], a1, SP[a2, a4], n] + S2[SP[a1, a3], SP[a1, a4], a2, n] + 
    S2[a3, n]*S2[a1, a1, a2, a4, n] + S2[a1, a1, a2, SP[a3, a4], n] - 
    S2[a1, a1, a3, SP[a2, a4], n] + S2[a3, n]*S2[a1, a1, a4, a2, n] + 
    S2[a2, n]*S2[a1, a1, a4, a3, n] - S2[a1, a1, SP[a2, a4], a3, n] + 
    S2[a1, a1, SP[a3, a4], a2, n] - S2[a1, a3, a1, SP[a2, a4], n] - 
    S2[a1, a3, SP[a1, a4], a2, n] + S2[a3, n]*S2[a1, a4, a1, a2, n] - 
    S2[a1, SP[a1, a4], a2, a3, n] - S2[a1, SP[a1, a4], a3, a2, n] + 
    S2[a1, SP[a3, a4], a1, a2, n] - S2[a3, a1, a1, SP[a2, a4], n] - 
    S2[a3, a1, SP[a1, a4], a2, n] - S2[a3, SP[a1, a4], a1, a2, n] + 
    S2[a3, n]*S2[a4, a1, a1, a2, n] + S2[a4, a1, a1, SP[a2, a3], n] + 
    S2[a4, a1, SP[a1, a3], a2, n] + S2[a4, SP[a1, a3], a1, a2, n] - 
    S2[SP[a1, a1], a2, a4, a3, n] - S2[SP[a1, a1], a4, a2, a3, n] - 
    S2[SP[a1, a1], a4, a3, a2, n] + S2[SP[a1, a2], a1, a4, a3, n] + 
    S2[SP[a3, a4], a1, a1, a2, n] - S2[a4, a1, a1, a2, a3, n] - 
    S2[a4, a1, a1, a3, a2, n] - S2[a4, a1, a3, a1, a2, n] - 
    S2[a4, a3, a1, a1, a2, n] /; MyMemberQ[{{a2, a3, a4}}, 
     {a1, a1, a2, a3, a4}] && a1 != a2 != a3 != a4, 
 S2[a2_, a1_, a3_, a1_, a4_, n_] :> 
  -(S2[a1, a4, n]*S2[a1, a2, a3, n]) - S2[a1, a4, n]*S2[a1, a3, a2, n] + 
    S2[a1, a2, n]*S2[a1, a3, a4, n] + S2[a1, a2, n]*S2[a1, a4, a3, n] + 
    S2[a1, SP[a1, a2], SP[a3, a4], n] - S2[a1, SP[a1, a4], SP[a2, a3], n] + 
    S2[SP[a1, a1], a2, SP[a3, a4], n] - S2[SP[a1, a1], a4, SP[a2, a3], n] - 
    S2[SP[a1, a1], SP[a2, a3], a4, n] + S2[SP[a1, a1], SP[a3, a4], a2, n] - 
    2*S2[a1, a1, a2, SP[a3, a4], n] + 2*S2[a1, a1, a4, SP[a2, a3], n] + 
    2*S2[a1, a1, SP[a2, a3], a4, n] - 2*S2[a1, a1, SP[a3, a4], a2, n] - 
    S2[a1, a2, a1, SP[a3, a4], n] - S2[a1, a2, SP[a1, a3], a4, n] - 
    S2[a4, n]*S2[a1, a3, a1, a2, n] + S2[a2, n]*S2[a1, a3, a1, a4, n] + 
    S2[a1, a4, a1, SP[a2, a3], n] + S2[a1, a4, SP[a1, a3], a2, n] + 
    S2[a1, SP[a2, a3], a1, a4, n] - S2[a1, SP[a3, a4], a1, a2, n] + 
    S2[SP[a1, a2], a3, a1, a4, n] - S2[SP[a1, a4], a3, a1, a2, n] + 
    S2[a4, a1, a3, a1, a2, n] /; MyMemberQ[{{a2, a3, a4}}, 
     {a1, a1, a2, a3, a4}] && a1 != a2 != a3 != a4, 
 S2[a2_, a1_, a3_, a4_, a1_, n_] :> 
  S2[a1, a4, n]*S2[a1, a2, a3, n] + S2[a1, a4, n]*S2[a1, a3, a2, n] - 
    S2[a1, a2, n]*S2[a1, a4, a3, n] - S2[a1, SP[a1, a2], SP[a3, a4], n] - 
    S2[a1, SP[a1, a3], SP[a2, a4], n] + S2[a1, SP[a1, a4], SP[a2, a3], n] - 
    S2[SP[a1, a1], a2, SP[a3, a4], n] - S2[SP[a1, a1], a3, SP[a2, a4], n] + 
    S2[SP[a1, a1], a4, SP[a2, a3], n] - S2[SP[a1, a1], SP[a3, a4], a2, n] + 
    2*S2[a1, a1, a2, SP[a3, a4], n] - 2*S2[a2, n]*S2[a1, a1, a3, a4, n] - 
    2*S2[a1, a1, a4, SP[a2, a3], n] - 2*S2[a1, a1, SP[a2, a3], a4, n] + 
    2*S2[a1, a1, SP[a3, a4], a2, n] + S2[a1, a2, a1, SP[a3, a4], n] + 
    S2[a1, a2, SP[a1, a3], a4, n] - S2[a2, n]*S2[a1, a3, a1, a4, n] - 
    S2[a1, a4, a1, SP[a2, a3], n] - S2[a1, a4, SP[a1, a3], a2, n] - 
    S2[a1, SP[a1, a2], a3, a4, n] + S2[a1, SP[a1, a3], a2, a4, n] + 
    S2[a1, SP[a1, a3], a4, a2, n] - S2[a1, SP[a2, a3], a1, a4, n] + 
    S2[a1, n]*S2[a2, a1, a3, a4, n] + S2[a2, a1, a3, SP[a1, a4], n] + 
    S2[a2, a1, SP[a1, a3], a4, n] + S2[a2, SP[a1, a1], a3, a4, n] + 
    S2[a1, n]*S2[a4, a3, a1, a2, n] + S2[a4, a3, a1, SP[a1, a2], n] + 
    S2[a4, a3, SP[a1, a1], a2, n] + S2[a4, SP[a1, a3], a1, a2, n] + 
    S2[SP[a1, a1], a2, a3, a4, n] + S2[SP[a1, a1], a3, a2, a4, n] + 
    S2[SP[a1, a1], a3, a4, a2, n] - S2[SP[a1, a2], a1, a3, a4, n] - 
    S2[SP[a1, a2], a3, a1, a4, n] + S2[SP[a1, a4], a3, a1, a2, n] - 
    S2[a4, a1, a3, a1, a2, n] - 2*S2[a4, a3, a1, a1, a2, n] - 
    S2[a4, a3, a1, a2, a1, n] /; MyMemberQ[{{a2, a3, a4}}, 
     {a1, a1, a2, a3, a4}] && a1 != a2 != a3 != a4, 
 S2[a2_, a1_, a4_, a1_, a3_, n_] :> 
  S2[a1, a2, n]*S2[a1, a3, a4, n] + S2[a1, a2, n]*S2[a1, a4, a3, n] - 
    S2[a1, SP[a1, a3], SP[a2, a4], n] - S2[a1, SP[a1, a4], SP[a2, a3], n] - 
    S2[SP[a1, a1], a3, SP[a2, a4], n] - S2[SP[a1, a1], a4, SP[a2, a3], n] - 
    S2[SP[a1, a1], SP[a2, a3], a4, n] - S2[SP[a1, a1], SP[a2, a4], a3, n] - 
    2*S2[a4, n]*S2[a1, a1, a2, a3, n] - 2*S2[a1, a1, a2, SP[a3, a4], n] - 
    2*S2[a4, n]*S2[a1, a1, a3, a2, n] + 2*S2[a1, a1, a4, SP[a2, a3], n] + 
    2*S2[a1, a1, SP[a2, a3], a4, n] - 2*S2[a1, a1, SP[a3, a4], a2, n] - 
    S2[a4, n]*S2[a1, a2, a1, a3, n] - S2[a1, a2, a1, SP[a3, a4], n] - 
    S2[a1, a2, SP[a1, a4], a3, n] - S2[a4, n]*S2[a1, a3, a1, a2, n] + 
    S2[a2, n]*S2[a1, a4, a1, a3, n] + 2*S2[a1, a4, a1, SP[a2, a3], n] + 
    S2[a1, a4, SP[a1, a2], a3, n] + S2[a1, a4, SP[a1, a3], a2, n] + 
    S2[a1, SP[a1, a2], a3, a4, n] + S2[a1, SP[a1, a2], a4, a3, n] + 
    S2[a1, SP[a1, a3], a2, a4, n] + S2[a1, SP[a1, a3], a4, a2, n] - 
    S2[a1, SP[a1, a4], a2, a3, n] - S2[a1, SP[a1, a4], a3, a2, n] - 
    S2[a1, SP[a3, a4], a1, a2, n] + S2[SP[a1, a1], a2, a3, a4, n] + 
    S2[SP[a1, a1], a2, a4, a3, n] + S2[SP[a1, a1], a3, a2, a4, n] + 
    S2[SP[a1, a1], a3, a4, a2, n] + S2[SP[a1, a1], a4, a2, a3, n] + 
    S2[SP[a1, a1], a4, a3, a2, n] + S2[SP[a1, a2], a4, a1, a3, n] - 
    2*S2[SP[a1, a4], a1, a2, a3, n] - 2*S2[SP[a1, a4], a1, a3, a2, n] - 
    S2[SP[a1, a4], a2, a1, a3, n] - S2[SP[a1, a4], a3, a1, a2, n] + 
    2*S2[a4, a1, a1, a2, a3, n] + 2*S2[a4, a1, a1, a3, a2, n] + 
    S2[a4, a1, a2, a1, a3, n] + S2[a4, a1, a3, a1, a2, n] /; 
   MyMemberQ[{{a2, a3, a4}}, {a1, a1, a2, a3, a4}] && a1 != a2 != a3 != a4, 
 S2[a2_, a1_, a4_, a3_, a1_, n_] :> 
  -(S2[a1, a2, n]*S2[a1, a3, a4, n]) + S2[a1, SP[a1, a3], SP[a2, a4], n] + 
    S2[SP[a1, a1], a3, SP[a2, a4], n] + S2[SP[a1, a1], SP[a2, a3], a4, n] + 
    2*S2[a4, n]*S2[a1, a1, a2, a3, n] + 2*S2[a1, a1, a2, SP[a3, a4], n] + 
    2*S2[a4, n]*S2[a1, a1, a3, a2, n] - 2*S2[a2, n]*S2[a1, a1, a4, a3, n] - 
    2*S2[a1, a1, a4, SP[a2, a3], n] - 2*S2[a1, a1, SP[a2, a3], a4, n] + 
    2*S2[a1, a1, SP[a3, a4], a2, n] + S2[a4, n]*S2[a1, a2, a1, a3, n] + 
    S2[a1, a2, a1, SP[a3, a4], n] + S2[a1, a2, SP[a1, a4], a3, n] + 
    S2[a4, n]*S2[a1, a3, a1, a2, n] - S2[a2, n]*S2[a1, a4, a1, a3, n] - 
    S2[a1, a4, a1, SP[a2, a3], n] - S2[a1, a4, SP[a1, a2], a3, n] - 
    S2[a1, SP[a1, a2], a3, a4, n] - 2*S2[a1, SP[a1, a2], a4, a3, n] - 
    S2[a1, SP[a1, a3], a2, a4, n] - S2[a1, SP[a1, a3], a4, a2, n] + 
    2*S2[a1, SP[a1, a4], a2, a3, n] + 2*S2[a1, SP[a1, a4], a3, a2, n] + 
    S2[a1, SP[a3, a4], a1, a2, n] + S2[a1, n]*S2[a2, a1, a4, a3, n] + 
    S2[a2, a1, a4, SP[a1, a3], n] + S2[a2, a1, SP[a1, a4], a3, n] + 
    S2[a2, SP[a1, a1], a4, a3, n] - S2[a1, n]*S2[a4, a1, a2, a3, n] - 
    S2[a4, a1, a2, SP[a1, a3], n] - S2[a1, n]*S2[a4, a1, a3, a2, n] - 
    S2[a4, a1, a3, SP[a1, a2], n] - S2[a4, a1, SP[a1, a2], a3, n] - 
    S2[a4, a1, SP[a1, a3], a2, n] - S2[a1, n]*S2[a4, a3, a1, a2, n] - 
    S2[a4, a3, a1, SP[a1, a2], n] - S2[a4, a3, SP[a1, a1], a2, n] - 
    S2[a4, SP[a1, a1], a2, a3, n] - S2[a4, SP[a1, a1], a3, a2, n] - 
    S2[a4, SP[a1, a3], a1, a2, n] - S2[SP[a1, a1], a2, a3, a4, n] - 
    S2[SP[a1, a1], a3, a2, a4, n] - S2[SP[a1, a1], a3, a4, a2, n] - 
    S2[SP[a1, a2], a1, a4, a3, n] - S2[SP[a1, a2], a4, a1, a3, n] + 
    S2[SP[a1, a4], a1, a2, a3, n] + S2[SP[a1, a4], a1, a3, a2, n] + 
    S2[SP[a1, a4], a2, a1, a3, n] + S2[a4, a1, a2, a3, a1, n] + 
    S2[a4, a1, a3, a1, a2, n] + S2[a4, a1, a3, a2, a1, n] + 
    2*S2[a4, a3, a1, a1, a2, n] + S2[a4, a3, a1, a2, a1, n] /; 
   MyMemberQ[{{a2, a3, a4}}, {a1, a1, a2, a3, a4}] && a1 != a2 != a3 != a4, 
 S2[a2_, a3_, a1_, a1_, a4_, n_] :> 
  S2[a2, a3, n]*S2[a1, a1, a4, n] + S2[a1, a4, n]*S2[a1, a3, a2, n] - 
    S2[a1, SP[a1, a2], SP[a3, a4], n] - S2[a1, SP[a1, a3], SP[a2, a4], n] - 
    S2[SP[a1, a1], a3, SP[a2, a4], n] - S2[SP[a1, a1], SP[a3, a4], a2, n] - 
    S2[SP[a1, a2], a1, SP[a3, a4], n] - S2[SP[a1, a2], SP[a1, a3], a4, n] + 
    S2[a1, a1, a2, SP[a3, a4], n] - S2[a4, n]*S2[a1, a1, a3, a2, n] - 
    S2[a2, n]*S2[a1, a1, a3, a4, n] - S2[a2, n]*S2[a1, a1, a4, a3, n] - 
    S2[a1, a1, a4, SP[a2, a3], n] - S2[a1, a1, SP[a2, a3], a4, n] + 
    S2[a1, a1, SP[a3, a4], a2, n] + S2[a1, a2, a1, SP[a3, a4], n] + 
    S2[a1, a2, SP[a1, a3], a4, n] - S2[a2, n]*S2[a1, a3, a1, a4, n] + 
    S2[a1, SP[a1, a3], a2, a4, n] + S2[a1, SP[a1, a3], a4, a2, n] - 
    S2[a1, SP[a2, a3], a1, a4, n] + S2[a2, a1, a1, SP[a3, a4], n] + 
    S2[a2, a1, SP[a1, a3], a4, n] + S2[a2, SP[a1, a3], a1, a4, n] + 
    S2[SP[a1, a1], a3, a2, a4, n] + S2[SP[a1, a1], a3, a4, a2, n] + 
    S2[SP[a1, a1], a4, a3, a2, n] - S2[SP[a1, a4], a1, a3, a2, n] + 
    S2[a4, a1, a1, a3, a2, n] /; MyMemberQ[{{a2, a3, a4}}, 
     {a1, a1, a2, a3, a4}] && a1 != a2 != a3 != a4, 
 S2[a2_, a3_, a1_, a4_, a1_, n_] :> 
  -2*S2[a2, a3, n]*S2[a1, a1, a4, n] - S2[a1, a4, n]*S2[a1, a3, a2, n] + 
    2*S2[a1, SP[a1, a2], SP[a3, a4], n] + S2[a1, SP[a1, a3], SP[a2, a4], n] + 
    S2[SP[a1, a1], a3, SP[a2, a4], n] + S2[SP[a1, a1], SP[a3, a4], a2, n] + 
    2*S2[SP[a1, a2], a1, SP[a3, a4], n] + 
    2*S2[SP[a1, a2], SP[a1, a3], a4, n] - 2*S2[a1, a1, a2, SP[a3, a4], n] + 
    2*S2[a2, n]*S2[a1, a1, a3, a4, n] + 2*S2[a2, n]*S2[a1, a1, a4, a3, n] + 
    2*S2[a1, a1, a4, SP[a2, a3], n] + 2*S2[a1, a1, SP[a2, a3], a4, n] - 
    2*S2[a1, a1, SP[a3, a4], a2, n] - 2*S2[a1, a2, a1, SP[a3, a4], n] - 
    2*S2[a1, a2, SP[a1, a3], a4, n] + S2[a2, n]*S2[a1, a3, a1, a4, n] - 
    S2[a1, SP[a1, a3], a2, a4, n] - S2[a1, SP[a1, a3], a4, a2, n] - 
    S2[a1, SP[a1, a4], a3, a2, n] + S2[a1, SP[a2, a3], a1, a4, n] - 
    2*S2[a2, a1, a1, SP[a3, a4], n] - 2*S2[a2, a1, SP[a1, a3], a4, n] + 
    S2[a1, n]*S2[a2, a3, a1, a4, n] + S2[a2, a3, a1, SP[a1, a4], n] + 
    S2[a2, a3, SP[a1, a1], a4, n] - S2[a2, SP[a1, a3], a1, a4, n] + 
    S2[a1, n]*S2[a4, a1, a3, a2, n] + S2[a4, a1, a3, SP[a1, a2], n] + 
    S2[a4, a1, SP[a1, a3], a2, n] + S2[a4, SP[a1, a1], a3, a2, n] - 
    S2[SP[a1, a1], a3, a2, a4, n] - S2[SP[a1, a1], a3, a4, a2, n] - 
    S2[SP[a1, a1], a4, a3, a2, n] + S2[SP[a1, a4], a1, a3, a2, n] - 
    2*S2[a4, a1, a1, a3, a2, n] - S2[a4, a1, a3, a1, a2, n] - 
    S2[a4, a1, a3, a2, a1, n] /; MyMemberQ[{{a2, a3, a4}}, 
     {a1, a1, a2, a3, a4}] && a1 != a2 != a3 != a4, 
 S2[a2_, a3_, a4_, a1_, a1_, n_] :> 
  S2[a2, a3, n]*S2[a1, a1, a4, n] - S2[a1, SP[a1, a2], SP[a3, a4], n] - 
    S2[SP[a1, a2], a1, SP[a3, a4], n] - S2[SP[a1, a2], SP[a1, a3], a4, n] + 
    S2[a1, a1, a2, SP[a3, a4], n] - S2[a2, n]*S2[a1, a1, a4, a3, n] - 
    S2[a1, a1, a4, SP[a2, a3], n] + S2[a1, a2, a1, SP[a3, a4], n] - 
    (S2[a1, n]*S2[a1, a2, a3, a4, n])/2 - S2[a1, a2, a3, SP[a1, a4], n]/2 + 
    S2[a1, a2, SP[a1, a3], a4, n]/2 + (S2[a1, n]*S2[a1, a4, a3, a2, n])/2 + 
    S2[a1, a4, a3, SP[a1, a2], n]/2 + S2[a1, a4, SP[a1, a3], a2, n]/2 + 
    S2[a1, SP[a1, a2], a3, a4, n]/2 + S2[a1, SP[a1, a4], a3, a2, n]/2 + 
    S2[a2, a1, a1, SP[a3, a4], n] - (S2[a1, n]*S2[a2, a1, a3, a4, n])/2 - 
    S2[a2, a1, a3, SP[a1, a4], n]/2 + S2[a2, a1, SP[a1, a3], a4, n]/2 - 
    (S2[a1, n]*S2[a2, a3, a1, a4, n])/2 - S2[a2, a3, a1, SP[a1, a4], n]/2 + 
    (S2[a1, n]*S2[a2, a3, a4, a1, n])/2 + S2[a2, a3, a4, SP[a1, a1], n]/2 - 
    S2[a2, a3, SP[a1, a1], a4, n]/2 + S2[a2, a3, SP[a1, a4], a1, n]/2 - 
    S2[a2, SP[a1, a1], a3, a4, n]/2 + S2[a2, SP[a1, a3], a1, a4, n]/2 + 
    S2[a2, SP[a1, a3], a4, a1, n]/2 - (S2[a1, n]*S2[a4, a1, a3, a2, n])/2 - 
    S2[a4, a1, a3, SP[a1, a2], n]/2 - S2[a4, a1, SP[a1, a3], a2, n]/2 - 
    (S2[a1, n]*S2[a4, a3, a1, a2, n])/2 - S2[a4, a3, a1, SP[a1, a2], n]/2 - 
    (S2[a1, n]*S2[a4, a3, a2, a1, n])/2 - S2[a4, a3, a2, SP[a1, a1], n]/2 - 
    S2[a4, a3, SP[a1, a1], a2, n]/2 - S2[a4, a3, SP[a1, a2], a1, n]/2 - 
    S2[a4, SP[a1, a1], a3, a2, n]/2 - S2[a4, SP[a1, a3], a1, a2, n]/2 - 
    S2[a4, SP[a1, a3], a2, a1, n]/2 - S2[SP[a1, a1], a2, a3, a4, n]/2 + 
    S2[SP[a1, a1], a4, a3, a2, n]/2 + S2[SP[a1, a2], a1, a3, a4, n]/2 + 
    S2[SP[a1, a2], a3, a1, a4, n]/2 + S2[SP[a1, a2], a3, a4, a1, n]/2 - 
    S2[SP[a1, a4], a1, a3, a2, n]/2 - S2[SP[a1, a4], a3, a1, a2, n]/2 - 
    S2[SP[a1, a4], a3, a2, a1, n]/2 + S2[a4, a1, a1, a3, a2, n] + 
    S2[a4, a1, a3, a1, a2, n] + S2[a4, a1, a3, a2, a1, n] + 
    S2[a4, a3, a1, a1, a2, n] + S2[a4, a3, a1, a2, a1, n] + 
    S2[a4, a3, a2, a1, a1, n] /; MyMemberQ[{{a2, a3, a4}}, 
     {a1, a1, a2, a3, a4}] && a1 != a2 != a3 != a4, 
 S2[a2_, a4_, a1_, a1_, a3_, n_] :> 
  S2[a2, n]*S2[a4, a1, a1, a3, n] + S2[a4, a1, a1, SP[a2, a3], n] + 
    S2[a4, a1, SP[a1, a2], a3, n] + S2[a4, SP[a1, a2], a1, a3, n] + 
    S2[SP[a2, a4], a1, a1, a3, n] - S2[a4, a1, a1, a2, a3, n] - 
    S2[a4, a1, a1, a3, a2, n] - S2[a4, a1, a2, a1, a3, n] - 
    S2[a4, a2, a1, a1, a3, n] /; MyMemberQ[{{a2, a3, a4}}, 
     {a1, a1, a2, a3, a4}] && a1 != a2 != a3 != a4, 
 S2[a2_, a4_, a1_, a3_, a1_, n_] :> 
  -(S2[a2, n]*S2[a1, a4, a1, a3, n]) - S2[a1, a4, a1, SP[a2, a3], n] - 
    S2[a1, a4, SP[a1, a2], a3, n] - S2[a1, SP[a2, a4], a1, a3, n] + 
    S2[a1, n]*S2[a2, a4, a1, a3, n] + S2[a2, a4, a1, SP[a1, a3], n] + 
    S2[a2, a4, SP[a1, a1], a3, n] + S2[a2, SP[a1, a4], a1, a3, n] - 
    2*S2[a2, n]*S2[a4, a1, a1, a3, n] - 2*S2[a4, a1, a1, SP[a2, a3], n] + 
    S2[a1, n]*S2[a4, a1, a2, a3, n] + S2[a4, a1, a2, SP[a1, a3], n] + 
    S2[a1, n]*S2[a4, a1, a3, a2, n] + S2[a4, a1, a3, SP[a1, a2], n] - 
    S2[a4, a1, SP[a1, a2], a3, n] + S2[a4, a1, SP[a1, a3], a2, n] + 
    S2[a1, n]*S2[a4, a2, a1, a3, n] + S2[a4, a2, a1, SP[a1, a3], n] + 
    S2[a4, a2, SP[a1, a1], a3, n] + S2[a4, SP[a1, a1], a2, a3, n] + 
    S2[a4, SP[a1, a1], a3, a2, n] - S2[a4, SP[a1, a2], a1, a3, n] + 
    S2[SP[a1, a4], a1, a2, a3, n] + S2[SP[a1, a4], a1, a3, a2, n] + 
    S2[SP[a1, a4], a2, a1, a3, n] - 2*S2[SP[a2, a4], a1, a1, a3, n] - 
    S2[a4, a1, a2, a3, a1, n] - S2[a4, a1, a3, a1, a2, n] - 
    S2[a4, a1, a3, a2, a1, n] - S2[a4, a2, a1, a3, a1, n] /; 
   MyMemberQ[{{a2, a3, a4}}, {a1, a1, a2, a3, a4}] && a1 != a2 != a3 != a4, 
 S2[a2_, a4_, a3_, a1_, a1_, n_] :> 
  S2[a2, n]*S2[a1, a1, a4, a3, n] + S2[a1, a1, a4, SP[a2, a3], n] + 
    S2[a1, a1, SP[a2, a4], a3, n] - (S2[a1, n]*S2[a1, a2, a4, a3, n])/2 - 
    S2[a1, a2, a4, SP[a1, a3], n]/2 - S2[a1, a2, SP[a1, a4], a3, n]/2 + 
    S2[a2, n]*S2[a1, a4, a1, a3, n] + S2[a1, a4, a1, SP[a2, a3], n] - 
    (S2[a1, n]*S2[a1, a4, a2, a3, n])/2 - S2[a1, a4, a2, SP[a1, a3], n]/2 - 
    (S2[a1, n]*S2[a1, a4, a3, a2, n])/2 - S2[a1, a4, a3, SP[a1, a2], n]/2 + 
    S2[a1, a4, SP[a1, a2], a3, n]/2 - S2[a1, a4, SP[a1, a3], a2, n]/2 + 
    S2[a1, SP[a1, a2], a4, a3, n]/2 - S2[a1, SP[a1, a4], a2, a3, n]/2 - 
    S2[a1, SP[a1, a4], a3, a2, n]/2 + S2[a1, SP[a2, a4], a1, a3, n] - 
    (S2[a1, n]*S2[a2, a1, a4, a3, n])/2 - S2[a2, a1, a4, SP[a1, a3], n]/2 - 
    S2[a2, a1, SP[a1, a4], a3, n]/2 - (S2[a1, n]*S2[a2, a4, a1, a3, n])/2 - 
    S2[a2, a4, a1, SP[a1, a3], n]/2 + (S2[a1, n]*S2[a2, a4, a3, a1, n])/2 + 
    S2[a2, a4, a3, SP[a1, a1], n]/2 - S2[a2, a4, SP[a1, a1], a3, n]/2 + 
    S2[a2, a4, SP[a1, a3], a1, n]/2 - S2[a2, SP[a1, a1], a4, a3, n]/2 - 
    S2[a2, SP[a1, a4], a1, a3, n]/2 + S2[a2, SP[a1, a4], a3, a1, n]/2 + 
    S2[a2, n]*S2[a4, a1, a1, a3, n] + S2[a4, a1, a1, SP[a2, a3], n] - 
    (S2[a1, n]*S2[a4, a1, a2, a3, n])/2 - S2[a4, a1, a2, SP[a1, a3], n]/2 - 
    (S2[a1, n]*S2[a4, a1, a3, a2, n])/2 - S2[a4, a1, a3, SP[a1, a2], n]/2 + 
    S2[a4, a1, SP[a1, a2], a3, n]/2 - S2[a4, a1, SP[a1, a3], a2, n]/2 - 
    (S2[a1, n]*S2[a4, a2, a1, a3, n])/2 - S2[a4, a2, a1, SP[a1, a3], n]/2 + 
    (S2[a1, n]*S2[a4, a2, a3, a1, n])/2 + S2[a4, a2, a3, SP[a1, a1], n]/2 - 
    S2[a4, a2, SP[a1, a1], a3, n]/2 + S2[a4, a2, SP[a1, a3], a1, n]/2 + 
    (S2[a1, n]*S2[a4, a3, a1, a2, n])/2 + S2[a4, a3, a1, SP[a1, a2], n]/2 + 
    (S2[a1, n]*S2[a4, a3, a2, a1, n])/2 + S2[a4, a3, a2, SP[a1, a1], n]/2 + 
    S2[a4, a3, SP[a1, a1], a2, n]/2 + S2[a4, a3, SP[a1, a2], a1, n]/2 - 
    S2[a4, SP[a1, a1], a2, a3, n]/2 - S2[a4, SP[a1, a1], a3, a2, n]/2 + 
    S2[a4, SP[a1, a2], a1, a3, n]/2 + S2[a4, SP[a1, a2], a3, a1, n]/2 + 
    S2[a4, SP[a1, a3], a1, a2, n]/2 + S2[a4, SP[a1, a3], a2, a1, n]/2 - 
    S2[SP[a1, a1], a2, a4, a3, n]/2 - S2[SP[a1, a1], a4, a2, a3, n]/2 - 
    S2[SP[a1, a1], a4, a3, a2, n]/2 + S2[SP[a1, a2], a1, a4, a3, n]/2 + 
    S2[SP[a1, a2], a4, a1, a3, n]/2 + S2[SP[a1, a2], a4, a3, a1, n]/2 - 
    S2[SP[a1, a4], a1, a2, a3, n]/2 - S2[SP[a1, a4], a1, a3, a2, n]/2 - 
    S2[SP[a1, a4], a2, a1, a3, n]/2 + S2[SP[a1, a4], a2, a3, a1, n]/2 + 
    S2[SP[a1, a4], a3, a1, a2, n]/2 + S2[SP[a1, a4], a3, a2, a1, n]/2 + 
    S2[SP[a2, a4], a1, a1, a3, n] - S2[a4, a2, a3, a1, a1, n] - 
    S2[a4, a3, a1, a1, a2, n] - S2[a4, a3, a1, a2, a1, n] - 
    S2[a4, a3, a2, a1, a1, n] /; MyMemberQ[{{a2, a3, a4}}, 
     {a1, a1, a2, a3, a4}] && a1 != a2 != a3 != a4, 
 S2[a3_, a1_, a1_, a2_, a4_, n_] :> 
  S2[a2, a4, n]*S2[a1, a1, a3, n] - S2[a1, a3, n]*S2[a1, a2, a4, n] + 
    S2[SP[a1, a1], a2, SP[a3, a4], n] + S2[SP[a1, a1], SP[a2, a3], a4, n] - 
    S2[SP[a1, a2], a1, SP[a3, a4], n] - S2[SP[a1, a2], SP[a1, a4], a3, n] + 
    S2[a4, n]*S2[a1, a1, a2, a3, n] + S2[a3, n]*S2[a1, a1, a2, a4, n] + 
    S2[a1, a1, a2, SP[a3, a4], n] + S2[a4, n]*S2[a1, a1, a3, a2, n] - 
    S2[a2, n]*S2[a1, a1, a3, a4, n] - S2[a2, n]*S2[a1, a1, a4, a3, n] - 
    S2[a1, a1, a4, SP[a2, a3], n] - S2[a1, a1, SP[a2, a3], a4, n] + 
    S2[a1, a1, SP[a3, a4], a2, n] + S2[a4, n]*S2[a1, a2, a1, a3, n] + 
    S2[a1, a2, a1, SP[a3, a4], n] + S2[a1, a2, SP[a1, a4], a3, n] - 
    S2[a2, n]*S2[a1, a4, a1, a3, n] - S2[a1, a4, a1, SP[a2, a3], n] - 
    S2[a1, a4, SP[a1, a2], a3, n] - S2[a1, SP[a1, a2], a3, a4, n] - 
    S2[a1, SP[a1, a2], a4, a3, n] + S2[a1, SP[a1, a4], a2, a3, n] + 
    S2[a1, SP[a1, a4], a3, a2, n] + S2[a2, a1, a1, SP[a3, a4], n] + 
    S2[a2, a1, SP[a1, a4], a3, n] + S2[a2, SP[a1, a4], a1, a3, n] - 
    S2[a2, n]*S2[a4, a1, a1, a3, n] - S2[a4, a1, a1, SP[a2, a3], n] - 
    S2[a4, a1, SP[a1, a2], a3, n] - S2[a4, SP[a1, a2], a1, a3, n] - 
    S2[SP[a1, a1], a2, a3, a4, n] - S2[SP[a1, a1], a2, a4, a3, n] - 
    S2[SP[a1, a1], a3, a2, a4, n] + S2[SP[a1, a3], a1, a2, a4, n] + 
    S2[SP[a1, a4], a1, a2, a3, n] + S2[SP[a1, a4], a1, a3, a2, n] + 
    S2[SP[a1, a4], a2, a1, a3, n] - S2[SP[a2, a4], a1, a1, a3, n] + 
    S2[a4, a2, a1, a1, a3, n] /; MyMemberQ[{{a2, a3, a4}}, 
     {a1, a1, a2, a3, a4}] && a1 != a2 != a3 != a4, 
 S2[a3_, a1_, a1_, a4_, a2_, n_] :> 
  -(S2[a2, a4, n]*S2[a1, a1, a3, n]) - S2[a1, a3, n]*S2[a1, a4, a2, n] + 
    S2[a1, SP[a1, a2], SP[a3, a4], n] + S2[a1, SP[a1, a4], SP[a2, a3], n] + 
    S2[SP[a1, a1], a4, SP[a2, a3], n] + S2[SP[a1, a1], SP[a3, a4], a2, n] + 
    S2[SP[a1, a2], a1, SP[a3, a4], n] + S2[SP[a1, a2], SP[a1, a4], a3, n] - 
    S2[a1, a1, a2, SP[a3, a4], n] + S2[a2, n]*S2[a1, a1, a3, a4, n] + 
    S2[a1, a1, a3, SP[a2, a4], n] + S2[a3, n]*S2[a1, a1, a4, a2, n] + 
    S2[a2, n]*S2[a1, a1, a4, a3, n] + S2[a1, a1, SP[a2, a4], a3, n] - 
    S2[a1, a1, SP[a3, a4], a2, n] - S2[a1, a2, a1, SP[a3, a4], n] - 
    S2[a1, a2, SP[a1, a4], a3, n] + S2[a2, n]*S2[a1, a4, a1, a3, n] - 
    S2[a1, SP[a1, a4], a2, a3, n] - S2[a1, SP[a1, a4], a3, a2, n] + 
    S2[a1, SP[a2, a4], a1, a3, n] - S2[a2, a1, a1, SP[a3, a4], n] - 
    S2[a2, a1, SP[a1, a4], a3, n] - S2[a2, SP[a1, a4], a1, a3, n] + 
    S2[a2, n]*S2[a4, a1, a1, a3, n] + S2[a4, a1, a1, SP[a2, a3], n] + 
    S2[a4, a1, SP[a1, a2], a3, n] + S2[a4, SP[a1, a2], a1, a3, n] - 
    S2[SP[a1, a1], a3, a4, a2, n] - S2[SP[a1, a1], a4, a2, a3, n] - 
    S2[SP[a1, a1], a4, a3, a2, n] + S2[SP[a1, a3], a1, a4, a2, n] + 
    S2[SP[a2, a4], a1, a1, a3, n] - S2[a4, a1, a1, a2, a3, n] - 
    S2[a4, a1, a1, a3, a2, n] - S2[a4, a1, a2, a1, a3, n] - 
    S2[a4, a2, a1, a1, a3, n] /; MyMemberQ[{{a2, a3, a4}}, 
     {a1, a1, a2, a3, a4}] && a1 != a2 != a3 != a4, 
 S2[a3_, a1_, a2_, a1_, a4_, n_] :> 
  -(S2[a1, a4, n]*S2[a1, a2, a3, n]) + S2[a1, a3, n]*S2[a1, a2, a4, n] - 
    S2[a1, a4, n]*S2[a1, a3, a2, n] + S2[a1, a3, n]*S2[a1, a4, a2, n] + 
    S2[a1, SP[a1, a3], SP[a2, a4], n] - S2[a1, SP[a1, a4], SP[a2, a3], n] + 
    S2[SP[a1, a1], a3, SP[a2, a4], n] - S2[SP[a1, a1], a4, SP[a2, a3], n] - 
    S2[SP[a1, a1], SP[a2, a3], a4, n] + S2[SP[a1, a1], SP[a2, a4], a3, n] - 
    2*S2[a1, a1, a3, SP[a2, a4], n] + 2*S2[a1, a1, a4, SP[a2, a3], n] + 
    2*S2[a1, a1, SP[a2, a3], a4, n] - 2*S2[a1, a1, SP[a2, a4], a3, n] - 
    S2[a4, n]*S2[a1, a2, a1, a3, n] + S2[a3, n]*S2[a1, a2, a1, a4, n] - 
    S2[a1, a3, a1, SP[a2, a4], n] - S2[a1, a3, SP[a1, a2], a4, n] + 
    S2[a1, a4, a1, SP[a2, a3], n] + S2[a1, a4, SP[a1, a2], a3, n] + 
    S2[a1, SP[a2, a3], a1, a4, n] - S2[a1, SP[a2, a4], a1, a3, n] + 
    S2[SP[a1, a3], a2, a1, a4, n] - S2[SP[a1, a4], a2, a1, a3, n] + 
    S2[a4, a1, a2, a1, a3, n] /; MyMemberQ[{{a2, a3, a4}}, 
     {a1, a1, a2, a3, a4}] && a1 != a2 != a3 != a4, 
 S2[a3_, a1_, a2_, a4_, a1_, n_] :> 
  S2[a1, a4, n]*S2[a1, a2, a3, n] + S2[a1, a4, n]*S2[a1, a3, a2, n] - 
    S2[a1, a3, n]*S2[a1, a4, a2, n] - S2[a1, SP[a1, a2], SP[a3, a4], n] - 
    S2[a1, SP[a1, a3], SP[a2, a4], n] + S2[a1, SP[a1, a4], SP[a2, a3], n] - 
    S2[SP[a1, a1], a2, SP[a3, a4], n] - S2[SP[a1, a1], a3, SP[a2, a4], n] + 
    S2[SP[a1, a1], a4, SP[a2, a3], n] - S2[SP[a1, a1], SP[a2, a4], a3, n] - 
    2*S2[a3, n]*S2[a1, a1, a2, a4, n] + 2*S2[a1, a1, a3, SP[a2, a4], n] - 
    2*S2[a1, a1, a4, SP[a2, a3], n] - 2*S2[a1, a1, SP[a2, a3], a4, n] + 
    2*S2[a1, a1, SP[a2, a4], a3, n] - S2[a3, n]*S2[a1, a2, a1, a4, n] + 
    S2[a1, a3, a1, SP[a2, a4], n] + S2[a1, a3, SP[a1, a2], a4, n] - 
    S2[a1, a4, a1, SP[a2, a3], n] - S2[a1, a4, SP[a1, a2], a3, n] + 
    S2[a1, SP[a1, a2], a3, a4, n] + S2[a1, SP[a1, a2], a4, a3, n] - 
    S2[a1, SP[a1, a3], a2, a4, n] - S2[a1, SP[a2, a3], a1, a4, n] + 
    S2[a1, n]*S2[a3, a1, a2, a4, n] + S2[a3, a1, a2, SP[a1, a4], n] + 
    S2[a3, a1, SP[a1, a2], a4, n] + S2[a3, SP[a1, a1], a2, a4, n] + 
    S2[a1, n]*S2[a4, a2, a1, a3, n] + S2[a4, a2, a1, SP[a1, a3], n] + 
    S2[a4, a2, SP[a1, a1], a3, n] + S2[a4, SP[a1, a2], a1, a3, n] + 
    S2[SP[a1, a1], a2, a3, a4, n] + S2[SP[a1, a1], a2, a4, a3, n] + 
    S2[SP[a1, a1], a3, a2, a4, n] - S2[SP[a1, a3], a1, a2, a4, n] - 
    S2[SP[a1, a3], a2, a1, a4, n] + S2[SP[a1, a4], a2, a1, a3, n] - 
    S2[a4, a1, a2, a1, a3, n] - 2*S2[a4, a2, a1, a1, a3, n] - 
    S2[a4, a2, a1, a3, a1, n] /; MyMemberQ[{{a2, a3, a4}}, 
     {a1, a1, a2, a3, a4}] && a1 != a2 != a3 != a4, 
 S2[a3_, a1_, a4_, a1_, a2_, n_] :> 
  S2[a1, a3, n]*S2[a1, a2, a4, n] + S2[a1, a3, n]*S2[a1, a4, a2, n] - 
    S2[a1, SP[a1, a2], SP[a3, a4], n] - S2[a1, SP[a1, a4], SP[a2, a3], n] - 
    S2[SP[a1, a1], a2, SP[a3, a4], n] - S2[SP[a1, a1], a4, SP[a2, a3], n] - 
    S2[SP[a1, a1], SP[a2, a3], a4, n] - S2[SP[a1, a1], SP[a3, a4], a2, n] - 
    2*S2[a4, n]*S2[a1, a1, a2, a3, n] - 2*S2[a4, n]*S2[a1, a1, a3, a2, n] - 
    2*S2[a1, a1, a3, SP[a2, a4], n] + 2*S2[a1, a1, a4, SP[a2, a3], n] + 
    2*S2[a1, a1, SP[a2, a3], a4, n] - 2*S2[a1, a1, SP[a2, a4], a3, n] - 
    S2[a4, n]*S2[a1, a2, a1, a3, n] - S2[a4, n]*S2[a1, a3, a1, a2, n] - 
    S2[a1, a3, a1, SP[a2, a4], n] - S2[a1, a3, SP[a1, a4], a2, n] + 
    S2[a3, n]*S2[a1, a4, a1, a2, n] + 2*S2[a1, a4, a1, SP[a2, a3], n] + 
    S2[a1, a4, SP[a1, a2], a3, n] + S2[a1, a4, SP[a1, a3], a2, n] + 
    S2[a1, SP[a1, a2], a3, a4, n] + S2[a1, SP[a1, a2], a4, a3, n] + 
    S2[a1, SP[a1, a3], a2, a4, n] + S2[a1, SP[a1, a3], a4, a2, n] - 
    S2[a1, SP[a1, a4], a2, a3, n] - S2[a1, SP[a1, a4], a3, a2, n] - 
    S2[a1, SP[a2, a4], a1, a3, n] + S2[SP[a1, a1], a2, a3, a4, n] + 
    S2[SP[a1, a1], a2, a4, a3, n] + S2[SP[a1, a1], a3, a2, a4, n] + 
    S2[SP[a1, a1], a3, a4, a2, n] + S2[SP[a1, a1], a4, a2, a3, n] + 
    S2[SP[a1, a1], a4, a3, a2, n] + S2[SP[a1, a3], a4, a1, a2, n] - 
    2*S2[SP[a1, a4], a1, a2, a3, n] - 2*S2[SP[a1, a4], a1, a3, a2, n] - 
    S2[SP[a1, a4], a2, a1, a3, n] - S2[SP[a1, a4], a3, a1, a2, n] + 
    2*S2[a4, a1, a1, a2, a3, n] + 2*S2[a4, a1, a1, a3, a2, n] + 
    S2[a4, a1, a2, a1, a3, n] + S2[a4, a1, a3, a1, a2, n] /; 
   MyMemberQ[{{a2, a3, a4}}, {a1, a1, a2, a3, a4}] && a1 != a2 != a3 != a4, 
 S2[a3_, a1_, a4_, a2_, a1_, n_] :> 
  -(S2[a1, a3, n]*S2[a1, a2, a4, n]) + S2[a1, SP[a1, a2], SP[a3, a4], n] + 
    S2[SP[a1, a1], a2, SP[a3, a4], n] + S2[SP[a1, a1], SP[a2, a3], a4, n] + 
    2*S2[a4, n]*S2[a1, a1, a2, a3, n] + 2*S2[a4, n]*S2[a1, a1, a3, a2, n] + 
    2*S2[a1, a1, a3, SP[a2, a4], n] - 2*S2[a3, n]*S2[a1, a1, a4, a2, n] - 
    2*S2[a1, a1, a4, SP[a2, a3], n] - 2*S2[a1, a1, SP[a2, a3], a4, n] + 
    2*S2[a1, a1, SP[a2, a4], a3, n] + S2[a4, n]*S2[a1, a2, a1, a3, n] + 
    S2[a4, n]*S2[a1, a3, a1, a2, n] + S2[a1, a3, a1, SP[a2, a4], n] + 
    S2[a1, a3, SP[a1, a4], a2, n] - S2[a3, n]*S2[a1, a4, a1, a2, n] - 
    S2[a1, a4, a1, SP[a2, a3], n] - S2[a1, a4, SP[a1, a3], a2, n] - 
    S2[a1, SP[a1, a2], a3, a4, n] - S2[a1, SP[a1, a2], a4, a3, n] - 
    S2[a1, SP[a1, a3], a2, a4, n] - 2*S2[a1, SP[a1, a3], a4, a2, n] + 
    2*S2[a1, SP[a1, a4], a2, a3, n] + 2*S2[a1, SP[a1, a4], a3, a2, n] + 
    S2[a1, SP[a2, a4], a1, a3, n] + S2[a1, n]*S2[a3, a1, a4, a2, n] + 
    S2[a3, a1, a4, SP[a1, a2], n] + S2[a3, a1, SP[a1, a4], a2, n] + 
    S2[a3, SP[a1, a1], a4, a2, n] - S2[a1, n]*S2[a4, a1, a2, a3, n] - 
    S2[a4, a1, a2, SP[a1, a3], n] - S2[a1, n]*S2[a4, a1, a3, a2, n] - 
    S2[a4, a1, a3, SP[a1, a2], n] - S2[a4, a1, SP[a1, a2], a3, n] - 
    S2[a4, a1, SP[a1, a3], a2, n] - S2[a1, n]*S2[a4, a2, a1, a3, n] - 
    S2[a4, a2, a1, SP[a1, a3], n] - S2[a4, a2, SP[a1, a1], a3, n] - 
    S2[a4, SP[a1, a1], a2, a3, n] - S2[a4, SP[a1, a1], a3, a2, n] - 
    S2[a4, SP[a1, a2], a1, a3, n] - S2[SP[a1, a1], a2, a3, a4, n] - 
    S2[SP[a1, a1], a2, a4, a3, n] - S2[SP[a1, a1], a3, a2, a4, n] - 
    S2[SP[a1, a3], a1, a4, a2, n] - S2[SP[a1, a3], a4, a1, a2, n] + 
    S2[SP[a1, a4], a1, a2, a3, n] + S2[SP[a1, a4], a1, a3, a2, n] + 
    S2[SP[a1, a4], a3, a1, a2, n] + S2[a4, a1, a2, a1, a3, n] + 
    S2[a4, a1, a2, a3, a1, n] + S2[a4, a1, a3, a2, a1, n] + 
    2*S2[a4, a2, a1, a1, a3, n] + S2[a4, a2, a1, a3, a1, n] /; 
   MyMemberQ[{{a2, a3, a4}}, {a1, a1, a2, a3, a4}] && a1 != a2 != a3 != a4, 
 S2[a3_, a2_, a1_, a1_, a4_, n_] :> 
  -(S2[a2, a3, n]*S2[a1, a1, a4, n]) + S2[a1, a4, n]*S2[a1, a2, a3, n] - 
    S2[SP[a1, a1], a2, SP[a3, a4], n] - S2[SP[a1, a1], SP[a2, a4], a3, n] + 
    S2[SP[a1, a2], a1, SP[a3, a4], n] + S2[SP[a1, a2], SP[a1, a3], a4, n] - 
    S2[a4, n]*S2[a1, a1, a2, a3, n] - S2[a3, n]*S2[a1, a1, a2, a4, n] - 
    S2[a1, a1, a2, SP[a3, a4], n] + S2[a2, n]*S2[a1, a1, a3, a4, n] + 
    S2[a1, a1, a3, SP[a2, a4], n] - S2[a3, n]*S2[a1, a1, a4, a2, n] + 
    S2[a2, n]*S2[a1, a1, a4, a3, n] + S2[a1, a1, SP[a2, a4], a3, n] - 
    S2[a1, a1, SP[a3, a4], a2, n] - S2[a3, n]*S2[a1, a2, a1, a4, n] - 
    S2[a1, a2, a1, SP[a3, a4], n] - S2[a1, a2, SP[a1, a3], a4, n] + 
    S2[a2, n]*S2[a1, a3, a1, a4, n] + S2[a1, a3, a1, SP[a2, a4], n] + 
    S2[a1, a3, SP[a1, a2], a4, n] + S2[a1, SP[a1, a2], a3, a4, n] + 
    S2[a1, SP[a1, a2], a4, a3, n] - S2[a1, SP[a1, a3], a2, a4, n] - 
    S2[a1, SP[a1, a3], a4, a2, n] - S2[a2, a1, a1, SP[a3, a4], n] - 
    S2[a2, a1, SP[a1, a3], a4, n] - S2[a2, SP[a1, a3], a1, a4, n] + 
    S2[a2, n]*S2[a3, a1, a1, a4, n] + S2[a3, a1, a1, SP[a2, a4], n] + 
    S2[a3, a1, SP[a1, a2], a4, n] + S2[a3, SP[a1, a2], a1, a4, n] + 
    S2[SP[a1, a1], a2, a3, a4, n] + S2[SP[a1, a1], a2, a4, a3, n] + 
    S2[SP[a1, a1], a4, a2, a3, n] - S2[SP[a1, a3], a1, a2, a4, n] - 
    S2[SP[a1, a3], a1, a4, a2, n] - S2[SP[a1, a3], a2, a1, a4, n] - 
    S2[SP[a1, a4], a1, a2, a3, n] + S2[SP[a2, a3], a1, a1, a4, n] + 
    S2[a4, a1, a1, a2, a3, n] /; MyMemberQ[{{a2, a3, a4}}, 
     {a1, a1, a2, a3, a4}] && a1 != a2 != a3 != a4, 
 S2[a3_, a2_, a1_, a4_, a1_, n_] :> 
  2*S2[a2, a3, n]*S2[a1, a1, a4, n] - S2[a1, a4, n]*S2[a1, a2, a3, n] - 
    S2[a1, SP[a1, a2], SP[a3, a4], n] + S2[SP[a1, a1], a2, SP[a3, a4], n] + 
    S2[SP[a1, a1], SP[a2, a4], a3, n] - 2*S2[SP[a1, a2], a1, SP[a3, a4], n] - 
    2*S2[SP[a1, a2], SP[a1, a3], a4, n] + 2*S2[a3, n]*S2[a1, a1, a2, a4, n] + 
    2*S2[a1, a1, a2, SP[a3, a4], n] - 2*S2[a2, n]*S2[a1, a1, a3, a4, n] - 
    2*S2[a1, a1, a3, SP[a2, a4], n] + 2*S2[a3, n]*S2[a1, a1, a4, a2, n] - 
    2*S2[a2, n]*S2[a1, a1, a4, a3, n] - 2*S2[a1, a1, SP[a2, a4], a3, n] + 
    2*S2[a1, a1, SP[a3, a4], a2, n] + S2[a3, n]*S2[a1, a2, a1, a4, n] + 
    2*S2[a1, a2, a1, SP[a3, a4], n] + 2*S2[a1, a2, SP[a1, a3], a4, n] - 
    2*S2[a2, n]*S2[a1, a3, a1, a4, n] - 2*S2[a1, a3, a1, SP[a2, a4], n] - 
    2*S2[a1, a3, SP[a1, a2], a4, n] - S2[a1, SP[a1, a2], a3, a4, n] - 
    S2[a1, SP[a1, a2], a4, a3, n] + 2*S2[a1, SP[a1, a3], a2, a4, n] + 
    2*S2[a1, SP[a1, a3], a4, a2, n] - S2[a1, SP[a1, a4], a2, a3, n] - 
    S2[a1, SP[a2, a3], a1, a4, n] + 2*S2[a2, a1, a1, SP[a3, a4], n] + 
    2*S2[a2, a1, SP[a1, a3], a4, n] + 2*S2[a2, SP[a1, a3], a1, a4, n] - 
    2*S2[a2, n]*S2[a3, a1, a1, a4, n] - 2*S2[a3, a1, a1, SP[a2, a4], n] - 
    2*S2[a3, a1, SP[a1, a2], a4, n] + S2[a1, n]*S2[a3, a2, a1, a4, n] + 
    S2[a3, a2, a1, SP[a1, a4], n] + S2[a3, a2, SP[a1, a1], a4, n] - 
    S2[a3, SP[a1, a2], a1, a4, n] + S2[a1, n]*S2[a4, a1, a2, a3, n] + 
    S2[a4, a1, a2, SP[a1, a3], n] + S2[a4, a1, SP[a1, a2], a3, n] + 
    S2[a4, SP[a1, a1], a2, a3, n] - S2[SP[a1, a1], a2, a3, a4, n] - 
    S2[SP[a1, a1], a2, a4, a3, n] - S2[SP[a1, a1], a4, a2, a3, n] + 
    2*S2[SP[a1, a3], a1, a2, a4, n] + 2*S2[SP[a1, a3], a1, a4, a2, n] + 
    2*S2[SP[a1, a3], a2, a1, a4, n] + S2[SP[a1, a4], a1, a2, a3, n] - 
    2*S2[SP[a2, a3], a1, a1, a4, n] - 2*S2[a4, a1, a1, a2, a3, n] - 
    S2[a4, a1, a2, a1, a3, n] - S2[a4, a1, a2, a3, a1, n] /; 
   MyMemberQ[{{a2, a3, a4}}, {a1, a1, a2, a3, a4}] && a1 != a2 != a3 != a4, 
 S2[a3_, a2_, a4_, a1_, a1_, n_] :> 
  -(S2[a2, a3, n]*S2[a1, a1, a4, n]) + S2[a1, SP[a1, a2], SP[a3, a4], n] + 
    S2[SP[a1, a2], a1, SP[a3, a4], n] + S2[SP[a1, a2], SP[a1, a3], a4, n] - 
    S2[a1, a1, a2, SP[a3, a4], n] + S2[a2, n]*S2[a1, a1, a3, a4, n] + 
    S2[a1, a1, a3, SP[a2, a4], n] - S2[a3, n]*S2[a1, a1, a4, a2, n] + 
    S2[a2, n]*S2[a1, a1, a4, a3, n] + S2[a1, a1, SP[a2, a3], a4, n] - 
    S2[a1, a1, SP[a3, a4], a2, n] - S2[a1, a2, a1, SP[a3, a4], n] - 
    S2[a1, a2, SP[a1, a3], a4, n] + S2[a2, n]*S2[a1, a3, a1, a4, n] + 
    S2[a1, a3, a1, SP[a2, a4], n] - (S2[a1, n]*S2[a1, a3, a2, a4, n])/2 - 
    S2[a1, a3, a2, SP[a1, a4], n]/2 + S2[a1, a3, SP[a1, a2], a4, n]/2 + 
    (S2[a1, n]*S2[a1, a4, a2, a3, n])/2 + S2[a1, a4, a2, SP[a1, a3], n]/2 + 
    S2[a1, a4, SP[a1, a2], a3, n]/2 - S2[a1, SP[a1, a3], a2, a4, n]/2 - 
    S2[a1, SP[a1, a3], a4, a2, n] + S2[a1, SP[a1, a4], a2, a3, n]/2 + 
    S2[a1, SP[a2, a3], a1, a4, n] - S2[a2, a1, a1, SP[a3, a4], n] - 
    S2[a2, a1, SP[a1, a3], a4, n] - S2[a2, SP[a1, a3], a1, a4, n] + 
    S2[a2, n]*S2[a3, a1, a1, a4, n] + S2[a3, a1, a1, SP[a2, a4], n] - 
    (S2[a1, n]*S2[a3, a1, a2, a4, n])/2 - S2[a3, a1, a2, SP[a1, a4], n]/2 + 
    S2[a3, a1, SP[a1, a2], a4, n]/2 - (S2[a1, n]*S2[a3, a2, a1, a4, n])/2 - 
    S2[a3, a2, a1, SP[a1, a4], n]/2 + (S2[a1, n]*S2[a3, a2, a4, a1, n])/2 + 
    S2[a3, a2, a4, SP[a1, a1], n]/2 - S2[a3, a2, SP[a1, a1], a4, n]/2 + 
    S2[a3, a2, SP[a1, a4], a1, n]/2 - S2[a3, SP[a1, a1], a2, a4, n]/2 + 
    S2[a3, SP[a1, a2], a1, a4, n]/2 + S2[a3, SP[a1, a2], a4, a1, n]/2 - 
    (S2[a1, n]*S2[a4, a1, a2, a3, n])/2 - S2[a4, a1, a2, SP[a1, a3], n]/2 - 
    S2[a4, a1, SP[a1, a2], a3, n]/2 - (S2[a1, n]*S2[a4, a2, a1, a3, n])/2 - 
    S2[a4, a2, a1, SP[a1, a3], n]/2 - (S2[a1, n]*S2[a4, a2, a3, a1, n])/2 - 
    S2[a4, a2, a3, SP[a1, a1], n]/2 - S2[a4, a2, SP[a1, a1], a3, n]/2 - 
    S2[a4, a2, SP[a1, a3], a1, n]/2 - S2[a4, SP[a1, a1], a2, a3, n]/2 - 
    S2[a4, SP[a1, a2], a1, a3, n]/2 - S2[a4, SP[a1, a2], a3, a1, n]/2 - 
    S2[SP[a1, a1], a3, a2, a4, n]/2 + S2[SP[a1, a1], a4, a2, a3, n]/2 - 
    S2[SP[a1, a3], a1, a2, a4, n]/2 - S2[SP[a1, a3], a1, a4, a2, n] - 
    S2[SP[a1, a3], a2, a1, a4, n]/2 + S2[SP[a1, a3], a2, a4, a1, n]/2 - 
    S2[SP[a1, a4], a1, a2, a3, n]/2 - S2[SP[a1, a4], a2, a1, a3, n]/2 - 
    S2[SP[a1, a4], a2, a3, a1, n]/2 + S2[SP[a2, a3], a1, a1, a4, n] + 
    S2[a4, a1, a1, a2, a3, n] + S2[a4, a1, a2, a1, a3, n] + 
    S2[a4, a1, a2, a3, a1, n] + S2[a4, a2, a1, a1, a3, n] + 
    S2[a4, a2, a1, a3, a1, n] + S2[a4, a2, a3, a1, a1, n] /; 
   MyMemberQ[{{a2, a3, a4}}, {a1, a1, a2, a3, a4}] && a1 != a2 != a3 != a4, 
 S2[a3_, a4_, a1_, a1_, a2_, n_] :> 
  S2[a3, n]*S2[a4, a1, a1, a2, n] + S2[a4, a1, a1, SP[a2, a3], n] + 
    S2[a4, a1, SP[a1, a3], a2, n] + S2[a4, SP[a1, a3], a1, a2, n] + 
    S2[SP[a3, a4], a1, a1, a2, n] - S2[a4, a1, a1, a2, a3, n] - 
    S2[a4, a1, a1, a3, a2, n] - S2[a4, a1, a3, a1, a2, n] - 
    S2[a4, a3, a1, a1, a2, n] /; MyMemberQ[{{a2, a3, a4}}, 
     {a1, a1, a2, a3, a4}] && a1 != a2 != a3 != a4, 
 S2[a3_, a4_, a1_, a2_, a1_, n_] :> 
  -(S2[a3, n]*S2[a1, a4, a1, a2, n]) - S2[a1, a4, a1, SP[a2, a3], n] - 
    S2[a1, a4, SP[a1, a3], a2, n] - S2[a1, SP[a3, a4], a1, a2, n] + 
    S2[a1, n]*S2[a3, a4, a1, a2, n] + S2[a3, a4, a1, SP[a1, a2], n] + 
    S2[a3, a4, SP[a1, a1], a2, n] + S2[a3, SP[a1, a4], a1, a2, n] - 
    2*S2[a3, n]*S2[a4, a1, a1, a2, n] - 2*S2[a4, a1, a1, SP[a2, a3], n] + 
    S2[a1, n]*S2[a4, a1, a2, a3, n] + S2[a4, a1, a2, SP[a1, a3], n] + 
    S2[a1, n]*S2[a4, a1, a3, a2, n] + S2[a4, a1, a3, SP[a1, a2], n] + 
    S2[a4, a1, SP[a1, a2], a3, n] - S2[a4, a1, SP[a1, a3], a2, n] + 
    S2[a1, n]*S2[a4, a3, a1, a2, n] + S2[a4, a3, a1, SP[a1, a2], n] + 
    S2[a4, a3, SP[a1, a1], a2, n] + S2[a4, SP[a1, a1], a2, a3, n] + 
    S2[a4, SP[a1, a1], a3, a2, n] - S2[a4, SP[a1, a3], a1, a2, n] + 
    S2[SP[a1, a4], a1, a2, a3, n] + S2[SP[a1, a4], a1, a3, a2, n] + 
    S2[SP[a1, a4], a3, a1, a2, n] - 2*S2[SP[a3, a4], a1, a1, a2, n] - 
    S2[a4, a1, a2, a1, a3, n] - S2[a4, a1, a2, a3, a1, n] - 
    S2[a4, a1, a3, a2, a1, n] - S2[a4, a3, a1, a2, a1, n] /; 
   MyMemberQ[{{a2, a3, a4}}, {a1, a1, a2, a3, a4}] && a1 != a2 != a3 != a4, 
 S2[a3_, a4_, a2_, a1_, a1_, n_] :> 
  S2[a3, n]*S2[a1, a1, a4, a2, n] + S2[a1, a1, a4, SP[a2, a3], n] + 
    S2[a1, a1, SP[a3, a4], a2, n] - (S2[a1, n]*S2[a1, a3, a4, a2, n])/2 - 
    S2[a1, a3, a4, SP[a1, a2], n]/2 - S2[a1, a3, SP[a1, a4], a2, n]/2 + 
    S2[a3, n]*S2[a1, a4, a1, a2, n] + S2[a1, a4, a1, SP[a2, a3], n] - 
    (S2[a1, n]*S2[a1, a4, a2, a3, n])/2 - S2[a1, a4, a2, SP[a1, a3], n]/2 - 
    (S2[a1, n]*S2[a1, a4, a3, a2, n])/2 - S2[a1, a4, a3, SP[a1, a2], n]/2 - 
    S2[a1, a4, SP[a1, a2], a3, n]/2 + S2[a1, a4, SP[a1, a3], a2, n]/2 + 
    S2[a1, SP[a1, a3], a4, a2, n]/2 - S2[a1, SP[a1, a4], a2, a3, n]/2 - 
    S2[a1, SP[a1, a4], a3, a2, n]/2 + S2[a1, SP[a3, a4], a1, a2, n] - 
    (S2[a1, n]*S2[a3, a1, a4, a2, n])/2 - S2[a3, a1, a4, SP[a1, a2], n]/2 - 
    S2[a3, a1, SP[a1, a4], a2, n]/2 - (S2[a1, n]*S2[a3, a4, a1, a2, n])/2 - 
    S2[a3, a4, a1, SP[a1, a2], n]/2 + (S2[a1, n]*S2[a3, a4, a2, a1, n])/2 + 
    S2[a3, a4, a2, SP[a1, a1], n]/2 - S2[a3, a4, SP[a1, a1], a2, n]/2 + 
    S2[a3, a4, SP[a1, a2], a1, n]/2 - S2[a3, SP[a1, a1], a4, a2, n]/2 - 
    S2[a3, SP[a1, a4], a1, a2, n]/2 + S2[a3, SP[a1, a4], a2, a1, n]/2 + 
    S2[a3, n]*S2[a4, a1, a1, a2, n] + S2[a4, a1, a1, SP[a2, a3], n] - 
    (S2[a1, n]*S2[a4, a1, a2, a3, n])/2 - S2[a4, a1, a2, SP[a1, a3], n]/2 - 
    (S2[a1, n]*S2[a4, a1, a3, a2, n])/2 - S2[a4, a1, a3, SP[a1, a2], n]/2 - 
    S2[a4, a1, SP[a1, a2], a3, n]/2 + S2[a4, a1, SP[a1, a3], a2, n]/2 + 
    (S2[a1, n]*S2[a4, a2, a1, a3, n])/2 + S2[a4, a2, a1, SP[a1, a3], n]/2 + 
    (S2[a1, n]*S2[a4, a2, a3, a1, n])/2 + S2[a4, a2, a3, SP[a1, a1], n]/2 + 
    S2[a4, a2, SP[a1, a1], a3, n]/2 + S2[a4, a2, SP[a1, a3], a1, n]/2 - 
    (S2[a1, n]*S2[a4, a3, a1, a2, n])/2 - S2[a4, a3, a1, SP[a1, a2], n]/2 + 
    (S2[a1, n]*S2[a4, a3, a2, a1, n])/2 + S2[a4, a3, a2, SP[a1, a1], n]/2 - 
    S2[a4, a3, SP[a1, a1], a2, n]/2 + S2[a4, a3, SP[a1, a2], a1, n]/2 - 
    S2[a4, SP[a1, a1], a2, a3, n]/2 - S2[a4, SP[a1, a1], a3, a2, n]/2 + 
    S2[a4, SP[a1, a2], a1, a3, n]/2 + S2[a4, SP[a1, a2], a3, a1, n]/2 + 
    S2[a4, SP[a1, a3], a1, a2, n]/2 + S2[a4, SP[a1, a3], a2, a1, n]/2 - 
    S2[SP[a1, a1], a3, a4, a2, n]/2 - S2[SP[a1, a1], a4, a2, a3, n]/2 - 
    S2[SP[a1, a1], a4, a3, a2, n]/2 + S2[SP[a1, a3], a1, a4, a2, n]/2 + 
    S2[SP[a1, a3], a4, a1, a2, n]/2 + S2[SP[a1, a3], a4, a2, a1, n]/2 - 
    S2[SP[a1, a4], a1, a2, a3, n]/2 - S2[SP[a1, a4], a1, a3, a2, n]/2 + 
    S2[SP[a1, a4], a2, a1, a3, n]/2 + S2[SP[a1, a4], a2, a3, a1, n]/2 - 
    S2[SP[a1, a4], a3, a1, a2, n]/2 + S2[SP[a1, a4], a3, a2, a1, n]/2 + 
    S2[SP[a3, a4], a1, a1, a2, n] - S2[a4, a2, a1, a1, a3, n] - 
    S2[a4, a2, a1, a3, a1, n] - S2[a4, a2, a3, a1, a1, n] - 
    S2[a4, a3, a2, a1, a1, n] /; MyMemberQ[{{a2, a3, a4}}, 
     {a1, a1, a2, a3, a4}] && a1 != a2 != a3 != a4,S2[a1_, a1_, a2_, a2_, a3_, n_] :> 
  S2[a2, a3, n]*S2[a1, a1, a2, n] - S2[a1, SP[a1, a2], SP[a2, a3], n] - 
    S2[SP[a1, a2], a1, SP[a2, a3], n] - S2[SP[a1, a2], SP[a1, a3], a2, n] + 
    S2[a3, n]*S2[a1, a1, a2, a2, n] - S2[a2, n]*S2[a1, a1, a2, a3, n] + 
    S2[a1, a1, a2, SP[a2, a3], n] - S2[a2, n]*S2[a1, a1, a3, a2, n] - 
    S2[a1, a1, a3, SP[a2, a2], n] + S2[a1, a2, a1, SP[a2, a3], n] + 
    S2[a1, a2, SP[a1, a3], a2, n] - S2[a2, n]*S2[a1, a3, a1, a2, n] - 
    S2[a1, a3, a1, SP[a2, a2], n] + (S2[a1, n]*S2[a1, a3, a2, a2, n])/2 + 
    S2[a1, a3, a2, SP[a1, a2], n]/2 - S2[a1, a3, SP[a1, a2], a2, n]/2 + 
    (3*S2[a1, SP[a1, a3], a2, a2, n])/2 - S2[a1, SP[a2, a3], a1, a2, n] + 
    S2[a2, a1, a1, SP[a2, a3], n] + S2[a2, a1, SP[a1, a3], a2, n] + 
    S2[a2, SP[a1, a3], a1, a2, n] - S2[a2, n]*S2[a3, a1, a1, a2, n] - 
    S2[a3, a1, a1, SP[a2, a2], n] + (S2[a1, n]*S2[a3, a1, a2, a2, n])/2 + 
    S2[a3, a1, a2, SP[a1, a2], n]/2 - S2[a3, a1, SP[a1, a2], a2, n]/2 + 
    (S2[a1, n]*S2[a3, a2, a1, a2, n])/2 + S2[a3, a2, a1, SP[a1, a2], n]/2 - 
    (S2[a1, n]*S2[a3, a2, a2, a1, n])/2 - S2[a3, a2, a2, SP[a1, a1], n]/2 + 
    S2[a3, a2, SP[a1, a1], a2, n]/2 - S2[a3, a2, SP[a1, a2], a1, n]/2 + 
    S2[a3, SP[a1, a1], a2, a2, n]/2 - S2[a3, SP[a1, a2], a1, a2, n]/2 - 
    S2[a3, SP[a1, a2], a2, a1, n]/2 + S2[SP[a1, a1], a3, a2, a2, n]/2 + 
    (3*S2[SP[a1, a3], a1, a2, a2, n])/2 + S2[SP[a1, a3], a2, a1, a2, n]/2 - 
    S2[SP[a1, a3], a2, a2, a1, n]/2 - S2[SP[a2, a3], a1, a1, a2, n] + 
    S2[a3, a2, a2, a1, a1, n] /; 
   MyMemberQ[{{a1, a2}}, {a1, a1, a2, a2, a3}] && a1 != a2 != a3, 
 S2[a1_, a1_, a2_, a3_, a2_, n_] :> 
  -(S2[a2, a3, n]*S2[a1, a1, a2, n]) + S2[a1, SP[a1, a2], SP[a2, a3], n] + 
    S2[SP[a1, a2], a1, SP[a2, a3], n] + S2[SP[a1, a2], SP[a1, a3], a2, n] + 
    S2[a2, n]*S2[a1, a1, a2, a3, n] + S2[a2, n]*S2[a1, a1, a3, a2, n] + 
    S2[a1, a1, a3, SP[a2, a2], n] + S2[a1, a1, SP[a2, a3], a2, n] - 
    S2[a1, a2, a1, SP[a2, a3], n] - S2[a1, a2, SP[a1, a3], a2, n] + 
    S2[a2, n]*S2[a1, a3, a1, a2, n] + S2[a1, a3, a1, SP[a2, a2], n] - 
    S2[a1, n]*S2[a1, a3, a2, a2, n] - S2[a1, a3, a2, SP[a1, a2], n] - 
    S2[a1, SP[a1, a3], a2, a2, n] + S2[a1, SP[a2, a3], a1, a2, n] - 
    S2[a2, a1, a1, SP[a2, a3], n] - S2[a2, a1, SP[a1, a3], a2, n] - 
    S2[a2, SP[a1, a3], a1, a2, n] + S2[a2, n]*S2[a3, a1, a1, a2, n] + 
    S2[a3, a1, a1, SP[a2, a2], n] - S2[a1, n]*S2[a3, a1, a2, a2, n] - 
    S2[a3, a1, a2, SP[a1, a2], n] + S2[a1, n]*S2[a3, a2, a2, a1, n] + 
    S2[a3, a2, a2, SP[a1, a1], n] + S2[a3, a2, SP[a1, a2], a1, n] - 
    S2[a3, SP[a1, a1], a2, a2, n] + S2[a3, SP[a1, a2], a1, a2, n] + 
    S2[a3, SP[a1, a2], a2, a1, n] - S2[SP[a1, a1], a3, a2, a2, n] - 
    S2[SP[a1, a3], a1, a2, a2, n] + S2[SP[a1, a3], a2, a2, a1, n] + 
    S2[SP[a2, a3], a1, a1, a2, n] - S2[a3, a2, a1, a1, a2, n] - 
    S2[a3, a2, a1, a2, a1, n] - 2*S2[a3, a2, a2, a1, a1, n] /; 
   MyMemberQ[{{a1, a2}}, {a1, a1, a2, a2, a3}] && a1 != a2 != a3, 
 S2[a1_, a1_, a3_, a2_, a2_, n_] :> (S2[a1, n]*S2[a1, a3, a2, a2, n])/2 + 
    S2[a1, a3, a2, SP[a1, a2], n]/2 + S2[a1, a3, SP[a1, a2], a2, n]/2 + 
    S2[a1, SP[a1, a3], a2, a2, n]/2 - (S2[a1, n]*S2[a3, a1, a2, a2, n])/2 - 
    S2[a3, a1, a2, SP[a1, a2], n]/2 - S2[a3, a1, SP[a1, a2], a2, n]/2 - 
    (S2[a1, n]*S2[a3, a2, a1, a2, n])/2 - S2[a3, a2, a1, SP[a1, a2], n]/2 - 
    (S2[a1, n]*S2[a3, a2, a2, a1, n])/2 - S2[a3, a2, a2, SP[a1, a1], n]/2 - 
    S2[a3, a2, SP[a1, a1], a2, n]/2 - S2[a3, a2, SP[a1, a2], a1, n]/2 - 
    S2[a3, SP[a1, a1], a2, a2, n]/2 - S2[a3, SP[a1, a2], a1, a2, n]/2 - 
    S2[a3, SP[a1, a2], a2, a1, n]/2 + S2[SP[a1, a1], a3, a2, a2, n]/2 - 
    S2[SP[a1, a3], a1, a2, a2, n]/2 - S2[SP[a1, a3], a2, a1, a2, n]/2 - 
    S2[SP[a1, a3], a2, a2, a1, n]/2 + S2[a3, a1, a1, a2, a2, n] + 
    S2[a3, a1, a2, a1, a2, n] + S2[a3, a1, a2, a2, a1, n] + 
    S2[a3, a2, a1, a1, a2, n] + S2[a3, a2, a1, a2, a1, n] + 
    S2[a3, a2, a2, a1, a1, n] /; 
   MyMemberQ[{{a1, a2}}, {a1, a1, a2, a2, a3}] && a1 != a2 != a3, 
 S2[a1_, a2_, a1_, a2_, a3_, n_] :> 
  -2*S2[a2, a3, n]*S2[a1, a1, a2, n] + S2[a1, a2, n]*S2[a1, a2, a3, n] + 
    S2[a1, SP[a1, a2], SP[a2, a3], n] - S2[SP[a1, a1], a2, SP[a2, a3], n] - 
    S2[SP[a1, a1], SP[a2, a2], a3, n] + 2*S2[SP[a1, a2], a1, SP[a2, a3], n] + 
    2*S2[SP[a1, a2], SP[a1, a3], a2, n] - 4*S2[a3, n]*S2[a1, a1, a2, a2, n] + 
    2*S2[a2, n]*S2[a1, a1, a2, a3, n] - 2*S2[a1, a1, a2, SP[a2, a3], n] + 
    2*S2[a2, n]*S2[a1, a1, a3, a2, n] + 2*S2[a1, a1, a3, SP[a2, a2], n] + 
    2*S2[a1, a1, SP[a2, a2], a3, n] - 2*S2[a1, a1, SP[a2, a3], a2, n] - 
    S2[a3, n]*S2[a1, a2, a1, a2, n] - 2*S2[a1, a2, a1, SP[a2, a3], n] - 
    2*S2[a1, a2, SP[a1, a3], a2, n] + 2*S2[a2, n]*S2[a1, a3, a1, a2, n] + 
    2*S2[a1, a3, a1, SP[a2, a2], n] + 2*S2[a1, a3, SP[a1, a2], a2, n] + 
    2*S2[a1, SP[a1, a2], a2, a3, n] + S2[a1, SP[a1, a2], a3, a2, n] - 
    4*S2[a1, SP[a1, a3], a2, a2, n] + S2[a1, SP[a2, a3], a1, a2, n] - 
    2*S2[a2, a1, a1, SP[a2, a3], n] - 2*S2[a2, a1, SP[a1, a3], a2, n] - 
    2*S2[a2, SP[a1, a3], a1, a2, n] + 2*S2[a2, n]*S2[a3, a1, a1, a2, n] + 
    2*S2[a3, a1, a1, SP[a2, a2], n] + 2*S2[a3, a1, SP[a1, a2], a2, n] - 
    S2[a1, n]*S2[a3, a2, a1, a2, n] - S2[a3, a2, a1, SP[a1, a2], n] - 
    S2[a3, a2, SP[a1, a1], a2, n] + S2[a3, SP[a1, a2], a1, a2, n] + 
    2*S2[SP[a1, a1], a2, a2, a3, n] + S2[SP[a1, a1], a2, a3, a2, n] - 
    4*S2[SP[a1, a3], a1, a2, a2, n] - 2*S2[SP[a1, a3], a2, a1, a2, n] + 
    2*S2[SP[a2, a3], a1, a1, a2, n] + S2[a3, a2, a1, a2, a1, n] /; 
   MyMemberQ[{{a1, a2}}, {a1, a1, a2, a2, a3}] && a1 != a2 != a3, 
 S2[a1_, a2_, a1_, a3_, a2_, n_] :> 
  2*S2[a2, a3, n]*S2[a1, a1, a2, n] + S2[a1, a2, n]*S2[a1, a3, a2, n] - 
    2*S2[a1, SP[a1, a2], SP[a2, a3], n] - S2[a1, SP[a1, a3], SP[a2, a2], n] - 
    S2[SP[a1, a1], a3, SP[a2, a2], n] - S2[SP[a1, a1], SP[a2, a3], a2, n] - 
    2*S2[SP[a1, a2], a1, SP[a2, a3], n] - 
    2*S2[SP[a1, a2], SP[a1, a3], a2, n] - 2*S2[a2, n]*S2[a1, a1, a2, a3, n] - 
    2*S2[a2, n]*S2[a1, a1, a3, a2, n] + 2*S2[a1, a2, a1, SP[a2, a3], n] + 
    2*S2[a1, a2, SP[a1, a3], a2, n] - 2*S2[a2, n]*S2[a1, a3, a1, a2, n] - 
    S2[a1, a3, a1, SP[a2, a2], n] - S2[a1, a3, SP[a1, a2], a2, n] + 
    S2[a1, SP[a1, a2], a3, a2, n] + 2*S2[a1, SP[a1, a3], a2, a2, n] - 
    2*S2[a1, SP[a2, a3], a1, a2, n] + 2*S2[a2, a1, a1, SP[a2, a3], n] + 
    2*S2[a2, a1, SP[a1, a3], a2, n] + 2*S2[a2, SP[a1, a3], a1, a2, n] - 
    2*S2[a2, n]*S2[a3, a1, a1, a2, n] - 2*S2[a3, a1, a1, SP[a2, a2], n] + 
    2*S2[a1, n]*S2[a3, a1, a2, a2, n] + 2*S2[a3, a1, a2, SP[a1, a2], n] + 
    S2[a1, n]*S2[a3, a2, a1, a2, n] + S2[a3, a2, a1, SP[a1, a2], n] + 
    S2[a3, a2, SP[a1, a1], a2, n] + 2*S2[a3, SP[a1, a1], a2, a2, n] - 
    S2[a3, SP[a1, a2], a1, a2, n] + S2[SP[a1, a1], a2, a3, a2, n] + 
    2*S2[SP[a1, a1], a3, a2, a2, n] + 2*S2[SP[a1, a3], a1, a2, a2, n] + 
    S2[SP[a1, a3], a2, a1, a2, n] - 2*S2[SP[a2, a3], a1, a1, a2, n] - 
    S2[a3, a1, a2, a1, a2, n] - 2*S2[a3, a1, a2, a2, a1, n] - 
    S2[a3, a2, a1, a2, a1, n] /; 
   MyMemberQ[{{a1, a2}}, {a1, a1, a2, a2, a3}] && a1 != a2 != a3, 
 S2[a1_, a2_, a2_, a1_, a3_, n_] :> 
  S2[a1, a3, n]*S2[a1, a2, a2, n] - S2[a1, a2, n]*S2[a1, a2, a3, n] - 
    S2[a1, a2, n]*S2[a1, a3, a2, n] + S2[a1, SP[a1, a3], SP[a2, a2], n] + 
    S2[SP[a1, a1], a3, SP[a2, a2], n] + S2[SP[a1, a1], SP[a2, a2], a3, n] + 
    2*S2[a3, n]*S2[a1, a1, a2, a2, n] + 2*S2[a1, a1, a2, SP[a2, a3], n] - 
    2*S2[a1, a1, a3, SP[a2, a2], n] - 2*S2[a1, a1, SP[a2, a2], a3, n] + 
    2*S2[a1, a1, SP[a2, a3], a2, n] + S2[a3, n]*S2[a1, a2, a1, a2, n] + 
    S2[a1, a2, a1, SP[a2, a3], n] + S2[a1, a2, SP[a1, a2], a3, n] - 
    S2[a1, a3, a1, SP[a2, a2], n] - S2[a1, a3, SP[a1, a2], a2, n] - 
    S2[a1, SP[a1, a2], a2, a3, n] - S2[a1, SP[a1, a2], a3, a2, n] + 
    S2[a1, SP[a1, a3], a2, a2, n] + S2[a1, SP[a2, a3], a1, a2, n] - 
    S2[a1, n]*S2[a3, a1, a2, a2, n] - S2[a3, a1, a2, SP[a1, a2], n] - 
    S2[a3, a1, SP[a1, a2], a2, n] - S2[a3, SP[a1, a1], a2, a2, n] - 
    S2[SP[a1, a1], a2, a2, a3, n] - S2[SP[a1, a1], a2, a3, a2, n] - 
    S2[SP[a1, a1], a3, a2, a2, n] + S2[SP[a1, a3], a1, a2, a2, n] + 
    S2[SP[a1, a3], a2, a1, a2, n] + S2[a3, a1, a2, a2, a1, n] /; 
   MyMemberQ[{{a1, a2}}, {a1, a1, a2, a2, a3}] && a1 != a2 != a3, 
 S2[a1_, a2_, a2_, a3_, a1_, n_] :> 
  -(S2[a1, a3, n]*S2[a1, a2, a2, n]) + S2[a1, a2, n]*S2[a1, a3, a2, n] + 
    S2[a1, SP[a1, a2], SP[a2, a3], n] - S2[a1, SP[a1, a3], SP[a2, a2], n] + 
    S2[SP[a1, a1], a2, SP[a2, a3], n] - S2[SP[a1, a1], a3, SP[a2, a2], n] - 
    2*S2[a1, a1, a2, SP[a2, a3], n] + 2*S2[a1, a1, a3, SP[a2, a2], n] - 
    S2[a1, a2, a1, SP[a2, a3], n] + S2[a1, n]*S2[a1, a2, a2, a3, n] + 
    S2[a1, a2, a2, SP[a1, a3], n] + S2[a1, a3, a1, SP[a2, a2], n] - 
    S2[a1, n]*S2[a1, a3, a2, a2, n] - S2[a1, a3, a2, SP[a1, a2], n] + 
    S2[a1, n]*S2[a3, a2, a2, a1, n] + S2[a3, a2, a2, SP[a1, a1], n] + 
    S2[a3, a2, SP[a1, a2], a1, n] + S2[a3, SP[a1, a2], a2, a1, n] + 
    S2[SP[a1, a3], a2, a2, a1, n] - S2[a3, a1, a2, a2, a1, n] - 
    S2[a3, a2, a1, a2, a1, n] - 2*S2[a3, a2, a2, a1, a1, n] /; 
   MyMemberQ[{{a1, a2}}, {a1, a1, a2, a2, a3}] && a1 != a2 != a3, 
 S2[a1_, a2_, a3_, a1_, a2_, n_] :> 
  -(S2[a1, a2, n]*S2[a1, a2, a3, n]) - S2[a1, a2, n]*S2[a1, a3, a2, n] + 
    S2[a1, SP[a1, a2], SP[a2, a3], n] + S2[a1, SP[a1, a3], SP[a2, a2], n] + 
    S2[SP[a1, a1], a2, SP[a2, a3], n] + S2[SP[a1, a1], a3, SP[a2, a2], n] + 
    S2[SP[a1, a1], SP[a2, a2], a3, n] + S2[SP[a1, a1], SP[a2, a3], a2, n] + 
    4*S2[a3, n]*S2[a1, a1, a2, a2, n] + 2*S2[a1, a1, a2, SP[a2, a3], n] - 
    2*S2[a1, a1, a3, SP[a2, a2], n] - 2*S2[a1, a1, SP[a2, a2], a3, n] + 
    2*S2[a1, a1, SP[a2, a3], a2, n] + 2*S2[a3, n]*S2[a1, a2, a1, a2, n] + 
    S2[a1, a2, a1, SP[a2, a3], n] + S2[a1, a2, SP[a1, a3], a2, n] - 
    S2[a1, a3, a1, SP[a2, a2], n] - S2[a1, a3, SP[a1, a2], a2, n] - 
    2*S2[a1, SP[a1, a2], a2, a3, n] - 2*S2[a1, SP[a1, a2], a3, a2, n] + 
    2*S2[a1, SP[a1, a3], a2, a2, n] + 2*S2[a1, SP[a2, a3], a1, a2, n] - 
    2*S2[a1, n]*S2[a3, a1, a2, a2, n] - 2*S2[a3, a1, a2, SP[a1, a2], n] - 
    2*S2[a3, a1, SP[a1, a2], a2, n] - S2[a1, n]*S2[a3, a2, a1, a2, n] - 
    S2[a3, a2, a1, SP[a1, a2], n] - S2[a3, a2, SP[a1, a1], a2, n] - 
    2*S2[a3, SP[a1, a1], a2, a2, n] - S2[a3, SP[a1, a2], a1, a2, n] - 
    2*S2[SP[a1, a1], a2, a2, a3, n] - 2*S2[SP[a1, a1], a2, a3, a2, n] - 
    2*S2[SP[a1, a1], a3, a2, a2, n] + 2*S2[SP[a1, a3], a1, a2, a2, n] + 
    S2[SP[a1, a3], a2, a1, a2, n] + S2[a3, a1, a2, a1, a2, n] + 
    2*S2[a3, a1, a2, a2, a1, n] + 2*S2[a3, a2, a1, a1, a2, n] + 
    S2[a3, a2, a1, a2, a1, n] /; 
   MyMemberQ[{{a1, a2}}, {a1, a1, a2, a2, a3}] && a1 != a2 != a3, 
 S2[a1_, a2_, a3_, a2_, a1_, n_] :> 
  S2[a1, a2, n]*S2[a1, a2, a3, n] - S2[a1, SP[a1, a2], SP[a2, a3], n] - 
    S2[SP[a1, a1], a2, SP[a2, a3], n] - S2[SP[a1, a1], SP[a2, a2], a3, n] - 
    4*S2[a3, n]*S2[a1, a1, a2, a2, n] - 2*S2[a1, a1, a2, SP[a2, a3], n] + 
    2*S2[a1, a1, SP[a2, a2], a3, n] - 4*S2[a1, a1, SP[a2, a3], a2, n] - 
    2*S2[a3, n]*S2[a1, a2, a1, a2, n] - S2[a1, a2, a1, SP[a2, a3], n] + 
    S2[a1, n]*S2[a1, a2, a3, a2, n] + S2[a1, a2, a3, SP[a1, a2], n] + 
    2*S2[a1, n]*S2[a1, a3, a2, a2, n] + 2*S2[a1, a3, a2, SP[a1, a2], n] + 
    2*S2[a1, a3, SP[a1, a2], a2, n] + 2*S2[a1, SP[a1, a2], a2, a3, n] + 
    2*S2[a1, SP[a1, a2], a3, a2, n] - 2*S2[a1, SP[a1, a3], a2, a2, n] - 
    2*S2[a1, SP[a2, a3], a1, a2, n] + 2*S2[a1, n]*S2[a3, a1, a2, a2, n] + 
    2*S2[a3, a1, a2, SP[a1, a2], n] + 2*S2[a3, a1, SP[a1, a2], a2, n] - 
    2*S2[a1, n]*S2[a3, a2, a2, a1, n] - 2*S2[a3, a2, a2, SP[a1, a1], n] - 
    2*S2[a3, a2, SP[a1, a2], a1, n] + 2*S2[a3, SP[a1, a1], a2, a2, n] - 
    2*S2[a3, SP[a1, a2], a2, a1, n] + 2*S2[SP[a1, a1], a2, a2, a3, n] + 
    2*S2[SP[a1, a1], a2, a3, a2, n] + 2*S2[SP[a1, a1], a3, a2, a2, n] - 
    2*S2[SP[a1, a3], a1, a2, a2, n] - 2*S2[SP[a1, a3], a2, a1, a2, n] - 
    2*S2[SP[a1, a3], a2, a2, a1, n] + 2*S2[a3, a2, a1, a2, a1, n] + 
    4*S2[a3, a2, a2, a1, a1, n] /; 
   MyMemberQ[{{a1, a2}}, {a1, a1, a2, a2, a3}] && a1 != a2 != a3, 
 S2[a1_, a3_, a1_, a2_, a2_, n_] :> 
  S2[a1, n]*S2[a3, a1, a2, a2, n] + S2[a3, a1, a2, SP[a1, a2], n] + 
    S2[a3, a1, SP[a1, a2], a2, n] + S2[a3, SP[a1, a1], a2, a2, n] + 
    S2[SP[a1, a3], a1, a2, a2, n] - 2*S2[a3, a1, a1, a2, a2, n] - 
    S2[a3, a1, a2, a1, a2, n] - S2[a3, a1, a2, a2, a1, n] /; 
   MyMemberQ[{{a1, a2}}, {a1, a1, a2, a2, a3}] && a1 != a2 != a3, 
 S2[a1_, a3_, a2_, a1_, a2_, n_] :> 
  S2[a1, n]*S2[a3, a2, a1, a2, n] + S2[a3, a2, a1, SP[a1, a2], n] + 
    S2[a3, a2, SP[a1, a1], a2, n] + S2[a3, SP[a1, a2], a1, a2, n] + 
    S2[SP[a1, a3], a2, a1, a2, n] - S2[a3, a1, a2, a1, a2, n] - 
    2*S2[a3, a2, a1, a1, a2, n] - S2[a3, a2, a1, a2, a1, n] /; 
   MyMemberQ[{{a1, a2}}, {a1, a1, a2, a2, a3}] && a1 != a2 != a3, 
 S2[a1_, a3_, a2_, a2_, a1_, n_] :> 
  S2[a1, n]*S2[a3, a2, a2, a1, n] + S2[a3, a2, a2, SP[a1, a1], n] + 
    S2[a3, a2, SP[a1, a2], a1, n] + S2[a3, SP[a1, a2], a2, a1, n] + 
    S2[SP[a1, a3], a2, a2, a1, n] - S2[a3, a1, a2, a2, a1, n] - 
    S2[a3, a2, a1, a2, a1, n] - 2*S2[a3, a2, a2, a1, a1, n] /; 
   MyMemberQ[{{a1, a2}}, {a1, a1, a2, a2, a3}] && a1 != a2 != a3, 
 S2[a2_, a1_, a1_, a2_, a3_, n_] :> 
  S2[a2, a3, n]*S2[a1, a1, a2, n] - S2[a1, a2, n]*S2[a1, a2, a3, n] + 
    S2[SP[a1, a1], a2, SP[a2, a3], n] + S2[SP[a1, a1], SP[a2, a2], a3, n] - 
    S2[SP[a1, a2], a1, SP[a2, a3], n] - S2[SP[a1, a2], SP[a1, a3], a2, n] + 
    2*S2[a3, n]*S2[a1, a1, a2, a2, n] + S2[a1, a1, a2, SP[a2, a3], n] - 
    S2[a2, n]*S2[a1, a1, a3, a2, n] - S2[a1, a1, a3, SP[a2, a2], n] - 
    S2[a1, a1, SP[a2, a2], a3, n] + S2[a1, a1, SP[a2, a3], a2, n] + 
    S2[a3, n]*S2[a1, a2, a1, a2, n] + S2[a1, a2, a1, SP[a2, a3], n] + 
    S2[a1, a2, SP[a1, a3], a2, n] - S2[a2, n]*S2[a1, a3, a1, a2, n] - 
    S2[a1, a3, a1, SP[a2, a2], n] - S2[a1, a3, SP[a1, a2], a2, n] - 
    S2[a1, SP[a1, a2], a2, a3, n] - S2[a1, SP[a1, a2], a3, a2, n] + 
    2*S2[a1, SP[a1, a3], a2, a2, n] + S2[a2, a1, a1, SP[a2, a3], n] + 
    S2[a2, a1, SP[a1, a3], a2, n] + S2[a2, SP[a1, a3], a1, a2, n] - 
    S2[a2, n]*S2[a3, a1, a1, a2, n] - S2[a3, a1, a1, SP[a2, a2], n] - 
    S2[a3, a1, SP[a1, a2], a2, n] - S2[a3, SP[a1, a2], a1, a2, n] - 
    2*S2[SP[a1, a1], a2, a2, a3, n] - S2[SP[a1, a1], a2, a3, a2, n] + 
    S2[SP[a1, a2], a1, a2, a3, n] + 2*S2[SP[a1, a3], a1, a2, a2, n] + 
    S2[SP[a1, a3], a2, a1, a2, n] - S2[SP[a2, a3], a1, a1, a2, n] + 
    S2[a3, a2, a1, a1, a2, n] /; 
   MyMemberQ[{{a1, a2}}, {a1, a1, a2, a2, a3}] && a1 != a2 != a3, 
 S2[a2_, a1_, a1_, a3_, a2_, n_] :> 
  -(S2[a2, a3, n]*S2[a1, a1, a2, n]) - S2[a1, a2, n]*S2[a1, a3, a2, n] + 
    S2[a1, SP[a1, a2], SP[a2, a3], n] + S2[a1, SP[a1, a3], SP[a2, a2], n] + 
    S2[SP[a1, a1], a3, SP[a2, a2], n] + S2[SP[a1, a1], SP[a2, a3], a2, n] + 
    S2[SP[a1, a2], a1, SP[a2, a3], n] + S2[SP[a1, a2], SP[a1, a3], a2, n] + 
    S2[a2, n]*S2[a1, a1, a2, a3, n] + 2*S2[a2, n]*S2[a1, a1, a3, a2, n] - 
    S2[a1, a2, a1, SP[a2, a3], n] - S2[a1, a2, SP[a1, a3], a2, n] + 
    S2[a2, n]*S2[a1, a3, a1, a2, n] - 2*S2[a1, SP[a1, a3], a2, a2, n] + 
    S2[a1, SP[a2, a3], a1, a2, n] - S2[a2, a1, a1, SP[a2, a3], n] - 
    S2[a2, a1, SP[a1, a3], a2, n] - S2[a2, SP[a1, a3], a1, a2, n] + 
    S2[a2, n]*S2[a3, a1, a1, a2, n] + S2[a3, a1, a1, SP[a2, a2], n] + 
    S2[a3, a1, SP[a1, a2], a2, n] + S2[a3, SP[a1, a2], a1, a2, n] - 
    S2[SP[a1, a1], a2, a3, a2, n] - 2*S2[SP[a1, a1], a3, a2, a2, n] + 
    S2[SP[a1, a2], a1, a3, a2, n] + S2[SP[a2, a3], a1, a1, a2, n] - 
    2*S2[a3, a1, a1, a2, a2, n] - S2[a3, a1, a2, a1, a2, n] - 
    S2[a3, a2, a1, a1, a2, n] /; 
   MyMemberQ[{{a1, a2}}, {a1, a1, a2, a2, a3}] && a1 != a2 != a3, 
 S2[a2_, a1_, a2_, a1_, a3_, n_] :> 
  -2*S2[a1, a3, n]*S2[a1, a2, a2, n] + S2[a1, a2, n]*S2[a1, a2, a3, n] + 
    S2[a1, a2, n]*S2[a1, a3, a2, n] + S2[a1, SP[a1, a2], SP[a2, a3], n] - 
    S2[a1, SP[a1, a3], SP[a2, a2], n] + S2[SP[a1, a1], a2, SP[a2, a3], n] - 
    S2[SP[a1, a1], a3, SP[a2, a2], n] - S2[SP[a1, a1], SP[a2, a2], a3, n] + 
    S2[SP[a1, a1], SP[a2, a3], a2, n] - 2*S2[a1, a1, a2, SP[a2, a3], n] + 
    2*S2[a1, a1, a3, SP[a2, a2], n] + 2*S2[a1, a1, SP[a2, a2], a3, n] - 
    2*S2[a1, a1, SP[a2, a3], a2, n] - S2[a3, n]*S2[a1, a2, a1, a2, n] + 
    S2[a2, n]*S2[a1, a2, a1, a3, n] - S2[a1, a2, a1, SP[a2, a3], n] - 
    S2[a1, a2, SP[a1, a2], a3, n] + S2[a1, a3, a1, SP[a2, a2], n] + 
    S2[a1, a3, SP[a1, a2], a2, n] + S2[a1, SP[a2, a2], a1, a3, n] - 
    S2[a1, SP[a2, a3], a1, a2, n] + S2[SP[a1, a2], a2, a1, a3, n] - 
    S2[SP[a1, a3], a2, a1, a2, n] + S2[a3, a1, a2, a1, a2, n] /; 
   MyMemberQ[{{a1, a2}}, {a1, a1, a2, a2, a3}] && a1 != a2 != a3, 
 S2[a2_, a1_, a2_, a3_, a1_, n_] :> 
  2*S2[a1, a3, n]*S2[a1, a2, a2, n] - S2[a1, a2, n]*S2[a1, a3, a2, n] - 
    2*S2[a1, SP[a1, a2], SP[a2, a3], n] + S2[a1, SP[a1, a3], SP[a2, a2], n] - 
    2*S2[SP[a1, a1], a2, SP[a2, a3], n] + S2[SP[a1, a1], a3, SP[a2, a2], n] - 
    S2[SP[a1, a1], SP[a2, a3], a2, n] - 2*S2[a2, n]*S2[a1, a1, a2, a3, n] + 
    2*S2[a1, a1, a2, SP[a2, a3], n] - 2*S2[a1, a1, a3, SP[a2, a2], n] - 
    2*S2[a1, a1, SP[a2, a2], a3, n] + 2*S2[a1, a1, SP[a2, a3], a2, n] - 
    S2[a2, n]*S2[a1, a2, a1, a3, n] + S2[a1, a2, a1, SP[a2, a3], n] + 
    S2[a1, a2, SP[a1, a2], a3, n] - S2[a1, a3, a1, SP[a2, a2], n] - 
    S2[a1, a3, SP[a1, a2], a2, n] + S2[a1, SP[a1, a2], a3, a2, n] - 
    S2[a1, SP[a2, a2], a1, a3, n] + S2[a1, n]*S2[a2, a1, a2, a3, n] + 
    S2[a2, a1, a2, SP[a1, a3], n] + S2[a2, a1, SP[a1, a2], a3, n] + 
    S2[a2, SP[a1, a1], a2, a3, n] + S2[a1, n]*S2[a3, a2, a1, a2, n] + 
    S2[a3, a2, a1, SP[a1, a2], n] + S2[a3, a2, SP[a1, a1], a2, n] + 
    S2[a3, SP[a1, a2], a1, a2, n] + 2*S2[SP[a1, a1], a2, a2, a3, n] + 
    S2[SP[a1, a1], a2, a3, a2, n] - S2[SP[a1, a2], a1, a2, a3, n] - 
    S2[SP[a1, a2], a2, a1, a3, n] + S2[SP[a1, a3], a2, a1, a2, n] - 
    S2[a3, a1, a2, a1, a2, n] - 2*S2[a3, a2, a1, a1, a2, n] - 
    S2[a3, a2, a1, a2, a1, n] /; 
   MyMemberQ[{{a1, a2}}, {a1, a1, a2, a2, a3}] && a1 != a2 != a3, 
 S2[a2_, a1_, a3_, a1_, a2_, n_] :> 
  S2[a1, a2, n]*S2[a1, a2, a3, n] + S2[a1, a2, n]*S2[a1, a3, a2, n] - 
    S2[a1, SP[a1, a2], SP[a2, a3], n] - S2[a1, SP[a1, a3], SP[a2, a2], n] - 
    S2[SP[a1, a1], a2, SP[a2, a3], n] - S2[SP[a1, a1], a3, SP[a2, a2], n] - 
    S2[SP[a1, a1], SP[a2, a2], a3, n] - S2[SP[a1, a1], SP[a2, a3], a2, n] - 
    4*S2[a3, n]*S2[a1, a1, a2, a2, n] - 2*S2[a1, a1, a2, SP[a2, a3], n] + 
    2*S2[a1, a1, a3, SP[a2, a2], n] + 2*S2[a1, a1, SP[a2, a2], a3, n] - 
    2*S2[a1, a1, SP[a2, a3], a2, n] - 2*S2[a3, n]*S2[a1, a2, a1, a2, n] - 
    S2[a1, a2, a1, SP[a2, a3], n] - S2[a1, a2, SP[a1, a3], a2, n] + 
    S2[a2, n]*S2[a1, a3, a1, a2, n] + 2*S2[a1, a3, a1, SP[a2, a2], n] + 
    2*S2[a1, a3, SP[a1, a2], a2, n] + 2*S2[a1, SP[a1, a2], a2, a3, n] + 
    2*S2[a1, SP[a1, a2], a3, a2, n] - 2*S2[a1, SP[a1, a3], a2, a2, n] - 
    S2[a1, SP[a2, a3], a1, a2, n] + 2*S2[SP[a1, a1], a2, a2, a3, n] + 
    2*S2[SP[a1, a1], a2, a3, a2, n] + 2*S2[SP[a1, a1], a3, a2, a2, n] + 
    S2[SP[a1, a2], a3, a1, a2, n] - 4*S2[SP[a1, a3], a1, a2, a2, n] - 
    2*S2[SP[a1, a3], a2, a1, a2, n] + 4*S2[a3, a1, a1, a2, a2, n] + 
    2*S2[a3, a1, a2, a1, a2, n] /; 
   MyMemberQ[{{a1, a2}}, {a1, a1, a2, a2, a3}] && a1 != a2 != a3, 
 S2[a2_, a1_, a3_, a2_, a1_, n_] :> 
  -(S2[a1, a2, n]*S2[a1, a2, a3, n]) + S2[a1, SP[a1, a2], SP[a2, a3], n] + 
    S2[SP[a1, a1], a2, SP[a2, a3], n] + S2[SP[a1, a1], SP[a2, a2], a3, n] + 
    4*S2[a3, n]*S2[a1, a1, a2, a2, n] + 2*S2[a1, a1, a2, SP[a2, a3], n] - 
    2*S2[a2, n]*S2[a1, a1, a3, a2, n] - 2*S2[a1, a1, a3, SP[a2, a2], n] - 
    2*S2[a1, a1, SP[a2, a2], a3, n] + 2*S2[a1, a1, SP[a2, a3], a2, n] + 
    2*S2[a3, n]*S2[a1, a2, a1, a2, n] + S2[a1, a2, a1, SP[a2, a3], n] + 
    S2[a1, a2, SP[a1, a3], a2, n] - S2[a2, n]*S2[a1, a3, a1, a2, n] - 
    S2[a1, a3, a1, SP[a2, a2], n] - S2[a1, a3, SP[a1, a2], a2, n] - 
    2*S2[a1, SP[a1, a2], a2, a3, n] - 3*S2[a1, SP[a1, a2], a3, a2, n] + 
    4*S2[a1, SP[a1, a3], a2, a2, n] + S2[a1, SP[a2, a3], a1, a2, n] + 
    S2[a1, n]*S2[a2, a1, a3, a2, n] + S2[a2, a1, a3, SP[a1, a2], n] + 
    S2[a2, a1, SP[a1, a3], a2, n] + S2[a2, SP[a1, a1], a3, a2, n] - 
    2*S2[a1, n]*S2[a3, a1, a2, a2, n] - 2*S2[a3, a1, a2, SP[a1, a2], n] - 
    2*S2[a3, a1, SP[a1, a2], a2, n] - S2[a1, n]*S2[a3, a2, a1, a2, n] - 
    S2[a3, a2, a1, SP[a1, a2], n] - S2[a3, a2, SP[a1, a1], a2, n] - 
    2*S2[a3, SP[a1, a1], a2, a2, n] - S2[a3, SP[a1, a2], a1, a2, n] - 
    2*S2[SP[a1, a1], a2, a2, a3, n] - S2[SP[a1, a1], a2, a3, a2, n] - 
    S2[SP[a1, a2], a1, a3, a2, n] - S2[SP[a1, a2], a3, a1, a2, n] + 
    2*S2[SP[a1, a3], a1, a2, a2, n] + S2[SP[a1, a3], a2, a1, a2, n] + 
    S2[a3, a1, a2, a1, a2, n] + 2*S2[a3, a1, a2, a2, a1, n] + 
    2*S2[a3, a2, a1, a1, a2, n] + S2[a3, a2, a1, a2, a1, n] /; 
   MyMemberQ[{{a1, a2}}, {a1, a1, a2, a2, a3}] && a1 != a2 != a3, 
 S2[a2_, a2_, a1_, a1_, a3_, n_] :> 
  S2[a1, a3, n]*S2[a1, a2, a2, n] - S2[a1, SP[a1, a2], SP[a2, a3], n] - 
    S2[SP[a1, a1], a2, SP[a2, a3], n] - S2[SP[a1, a1], SP[a2, a3], a2, n] - 
    S2[a3, n]*S2[a1, a1, a2, a2, n] - (S2[a2, n]*S2[a1, a1, a2, a3, n])/2 + 
    S2[a1, a1, a2, SP[a2, a3], n]/2 - (S2[a2, n]*S2[a1, a1, a3, a2, n])/2 - 
    S2[a1, a1, a3, SP[a2, a2], n]/2 - S2[a1, a1, SP[a2, a2], a3, n]/2 + 
    S2[a1, a1, SP[a2, a3], a2, n]/2 - (S2[a2, n]*S2[a1, a2, a1, a3, n])/2 + 
    S2[a1, a2, a1, SP[a2, a3], n]/2 + S2[a1, a2, SP[a1, a2], a3, n]/2 + 
    S2[a1, SP[a1, a2], a2, a3, n]/2 + S2[a1, SP[a1, a2], a3, a2, n]/2 - 
    S2[a1, SP[a2, a2], a1, a3, n]/2 + (S2[a2, n]*S2[a2, a1, a1, a3, n])/2 + 
    S2[a2, a1, a1, SP[a2, a3], n]/2 + S2[a2, a1, SP[a1, a2], a3, n]/2 + 
    S2[a2, SP[a1, a2], a1, a3, n]/2 + S2[SP[a1, a1], a2, a2, a3, n] + 
    S2[SP[a1, a1], a2, a3, a2, n] + S2[SP[a1, a1], a3, a2, a2, n] - 
    S2[SP[a1, a2], a1, a2, a3, n]/2 - S2[SP[a1, a2], a1, a3, a2, n]/2 - 
    S2[SP[a1, a2], a2, a1, a3, n]/2 - S2[SP[a1, a3], a1, a2, a2, n] + 
    S2[SP[a2, a2], a1, a1, a3, n]/2 + S2[a3, a1, a1, a2, a2, n] /; 
   MyMemberQ[{{a1, a2}}, {a1, a1, a2, a2, a3}] && a1 != a2 != a3, 
 S2[a2_, a2_, a1_, a3_, a1_, n_] :> 
  -(S2[a1, a3, n]*S2[a1, a2, a2, n]) + S2[a1, SP[a1, a2], SP[a2, a3], n] + 
    S2[SP[a1, a1], a2, SP[a2, a3], n] + S2[SP[a1, a1], SP[a2, a3], a2, n] + 
    S2[a2, n]*S2[a1, a1, a2, a3, n] - S2[a1, a1, a2, SP[a2, a3], n] + 
    S2[a2, n]*S2[a1, a1, a3, a2, n] + S2[a1, a1, a3, SP[a2, a2], n] + 
    S2[a1, a1, SP[a2, a2], a3, n] - S2[a1, a1, SP[a2, a3], a2, n] - 
    S2[a1, a2, a1, SP[a2, a3], n] - S2[a1, a2, SP[a1, a2], a3, n] - 
    S2[a1, SP[a1, a3], a2, a2, n] - S2[a2, n]*S2[a2, a1, a1, a3, n] - 
    S2[a2, a1, a1, SP[a2, a3], n] - S2[a2, a1, SP[a1, a2], a3, n] + 
    S2[a1, n]*S2[a2, a2, a1, a3, n] + S2[a2, a2, a1, SP[a1, a3], n] + 
    S2[a2, a2, SP[a1, a1], a3, n] + S2[a1, n]*S2[a3, a1, a2, a2, n] + 
    S2[a3, a1, a2, SP[a1, a2], n] + S2[a3, a1, SP[a1, a2], a2, n] + 
    S2[a3, SP[a1, a1], a2, a2, n] - S2[SP[a1, a1], a2, a2, a3, n] - 
    S2[SP[a1, a1], a2, a3, a2, n] - S2[SP[a1, a1], a3, a2, a2, n] + 
    S2[SP[a1, a2], a1, a2, a3, n] + S2[SP[a1, a2], a1, a3, a2, n] + 
    S2[SP[a1, a2], a2, a1, a3, n] + S2[SP[a1, a3], a1, a2, a2, n] - 
    S2[SP[a2, a2], a1, a1, a3, n] - 2*S2[a3, a1, a1, a2, a2, n] - 
    S2[a3, a1, a2, a1, a2, n] - S2[a3, a1, a2, a2, a1, n] /; 
   MyMemberQ[{{a1, a2}}, {a1, a1, a2, a2, a3}] && a1 != a2 != a3, 
 S2[a2_, a2_, a3_, a1_, a1_, n_] :> (S2[a2, n]*S2[a1, a1, a2, a3, n])/2 + 
    S2[a1, a1, a2, SP[a2, a3], n]/2 - (S2[a2, n]*S2[a1, a1, a3, a2, n])/2 - 
    S2[a1, a1, a3, SP[a2, a2], n]/2 + S2[a1, a1, SP[a2, a2], a3, n]/2 - 
    S2[a1, a1, SP[a2, a3], a2, n]/2 + (S2[a2, n]*S2[a1, a2, a1, a3, n])/2 + 
    S2[a1, a2, a1, SP[a2, a3], n]/2 - (S2[a1, n]*S2[a1, a2, a2, a3, n])/2 - 
    S2[a1, a2, a2, SP[a1, a3], n]/2 + (S2[a1, n]*S2[a1, a3, a2, a2, n])/2 + 
    S2[a1, a3, a2, SP[a1, a2], n]/2 + S2[a1, a3, SP[a1, a2], a2, n]/2 - 
    S2[a1, SP[a1, a2], a3, a2, n]/2 + S2[a1, SP[a1, a3], a2, a2, n]/2 + 
    S2[a1, SP[a2, a2], a1, a3, n]/2 + (S2[a2, n]*S2[a2, a1, a1, a3, n])/2 + 
    S2[a2, a1, a1, SP[a2, a3], n]/2 - (S2[a1, n]*S2[a2, a1, a2, a3, n])/2 - 
    S2[a2, a1, a2, SP[a1, a3], n]/2 - (S2[a1, n]*S2[a2, a2, a1, a3, n])/2 - 
    S2[a2, a2, a1, SP[a1, a3], n]/2 + (S2[a1, n]*S2[a2, a2, a3, a1, n])/2 + 
    S2[a2, a2, a3, SP[a1, a1], n]/2 - S2[a2, a2, SP[a1, a1], a3, n]/2 + 
    S2[a2, a2, SP[a1, a3], a1, n]/2 - S2[a2, SP[a1, a1], a2, a3, n]/2 + 
    S2[a2, SP[a1, a2], a3, a1, n]/2 - (S2[a1, n]*S2[a3, a1, a2, a2, n])/2 - 
    S2[a3, a1, a2, SP[a1, a2], n]/2 - S2[a3, a1, SP[a1, a2], a2, n]/2 - 
    (S2[a1, n]*S2[a3, a2, a1, a2, n])/2 - S2[a3, a2, a1, SP[a1, a2], n]/2 - 
    (S2[a1, n]*S2[a3, a2, a2, a1, n])/2 - S2[a3, a2, a2, SP[a1, a1], n]/2 - 
    S2[a3, a2, SP[a1, a1], a2, n]/2 - S2[a3, a2, SP[a1, a2], a1, n]/2 - 
    S2[a3, SP[a1, a1], a2, a2, n]/2 - S2[a3, SP[a1, a2], a1, a2, n]/2 - 
    S2[a3, SP[a1, a2], a2, a1, n]/2 - S2[SP[a1, a1], a2, a2, a3, n]/2 + 
    S2[SP[a1, a1], a3, a2, a2, n]/2 - S2[SP[a1, a2], a1, a3, a2, n]/2 + 
    S2[SP[a1, a2], a2, a3, a1, n]/2 - S2[SP[a1, a3], a1, a2, a2, n]/2 - 
    S2[SP[a1, a3], a2, a1, a2, n]/2 - S2[SP[a1, a3], a2, a2, a1, n]/2 + 
    S2[SP[a2, a2], a1, a1, a3, n]/2 + S2[a3, a1, a1, a2, a2, n] + 
    S2[a3, a1, a2, a1, a2, n] + S2[a3, a1, a2, a2, a1, n] + 
    S2[a3, a2, a1, a1, a2, n] + S2[a3, a2, a1, a2, a1, n] + 
    S2[a3, a2, a2, a1, a1, n] /; 
   MyMemberQ[{{a1, a2}}, {a1, a1, a2, a2, a3}] && a1 != a2 != a3, 
 S2[a2_, a3_, a1_, a1_, a2_, n_] :> 
  S2[a2, n]*S2[a3, a1, a1, a2, n] + S2[a3, a1, a1, SP[a2, a2], n] + 
    S2[a3, a1, SP[a1, a2], a2, n] + S2[a3, SP[a1, a2], a1, a2, n] + 
    S2[SP[a2, a3], a1, a1, a2, n] - 2*S2[a3, a1, a1, a2, a2, n] - 
    S2[a3, a1, a2, a1, a2, n] - S2[a3, a2, a1, a1, a2, n] /; 
   MyMemberQ[{{a1, a2}}, {a1, a1, a2, a2, a3}] && a1 != a2 != a3, 
 S2[a2_, a3_, a1_, a2_, a1_, n_] :> 
  -(S2[a2, n]*S2[a1, a3, a1, a2, n]) - S2[a1, a3, a1, SP[a2, a2], n] - 
    S2[a1, a3, SP[a1, a2], a2, n] - S2[a1, SP[a2, a3], a1, a2, n] + 
    S2[a1, n]*S2[a2, a3, a1, a2, n] + S2[a2, a3, a1, SP[a1, a2], n] + 
    S2[a2, a3, SP[a1, a1], a2, n] + S2[a2, SP[a1, a3], a1, a2, n] - 
    2*S2[a2, n]*S2[a3, a1, a1, a2, n] - 2*S2[a3, a1, a1, SP[a2, a2], n] + 
    2*S2[a1, n]*S2[a3, a1, a2, a2, n] + 2*S2[a3, a1, a2, SP[a1, a2], n] + 
    S2[a1, n]*S2[a3, a2, a1, a2, n] + S2[a3, a2, a1, SP[a1, a2], n] + 
    S2[a3, a2, SP[a1, a1], a2, n] + 2*S2[a3, SP[a1, a1], a2, a2, n] - 
    S2[a3, SP[a1, a2], a1, a2, n] + 2*S2[SP[a1, a3], a1, a2, a2, n] + 
    S2[SP[a1, a3], a2, a1, a2, n] - 2*S2[SP[a2, a3], a1, a1, a2, n] - 
    S2[a3, a1, a2, a1, a2, n] - 2*S2[a3, a1, a2, a2, a1, n] - 
    S2[a3, a2, a1, a2, a1, n] /; 
   MyMemberQ[{{a1, a2}}, {a1, a1, a2, a2, a3}] && a1 != a2 != a3, 
 S2[a2_, a3_, a2_, a1_, a1_, n_] :> 
  S2[a2, n]*S2[a1, a1, a3, a2, n] + S2[a1, a1, a3, SP[a2, a2], n] + 
    S2[a1, a1, SP[a2, a3], a2, n] - (S2[a1, n]*S2[a1, a2, a3, a2, n])/2 - 
    S2[a1, a2, a3, SP[a1, a2], n]/2 - S2[a1, a2, SP[a1, a3], a2, n]/2 + 
    S2[a2, n]*S2[a1, a3, a1, a2, n] + S2[a1, a3, a1, SP[a2, a2], n] - 
    S2[a1, n]*S2[a1, a3, a2, a2, n] - S2[a1, a3, a2, SP[a1, a2], n] + 
    S2[a1, SP[a1, a2], a3, a2, n]/2 - S2[a1, SP[a1, a3], a2, a2, n] + 
    S2[a1, SP[a2, a3], a1, a2, n] - (S2[a1, n]*S2[a2, a1, a3, a2, n])/2 - 
    S2[a2, a1, a3, SP[a1, a2], n]/2 - S2[a2, a1, SP[a1, a3], a2, n]/2 - 
    (S2[a1, n]*S2[a2, a3, a1, a2, n])/2 - S2[a2, a3, a1, SP[a1, a2], n]/2 + 
    (S2[a1, n]*S2[a2, a3, a2, a1, n])/2 + S2[a2, a3, a2, SP[a1, a1], n]/2 - 
    S2[a2, a3, SP[a1, a1], a2, n]/2 + S2[a2, a3, SP[a1, a2], a1, n]/2 - 
    S2[a2, SP[a1, a1], a3, a2, n]/2 - S2[a2, SP[a1, a3], a1, a2, n]/2 + 
    S2[a2, SP[a1, a3], a2, a1, n]/2 + S2[a2, n]*S2[a3, a1, a1, a2, n] + 
    S2[a3, a1, a1, SP[a2, a2], n] - S2[a1, n]*S2[a3, a1, a2, a2, n] - 
    S2[a3, a1, a2, SP[a1, a2], n] + S2[a1, n]*S2[a3, a2, a2, a1, n] + 
    S2[a3, a2, a2, SP[a1, a1], n] + S2[a3, a2, SP[a1, a2], a1, n] - 
    S2[a3, SP[a1, a1], a2, a2, n] + S2[a3, SP[a1, a2], a1, a2, n] + 
    S2[a3, SP[a1, a2], a2, a1, n] - S2[SP[a1, a1], a2, a3, a2, n]/2 - 
    S2[SP[a1, a1], a3, a2, a2, n] + S2[SP[a1, a2], a1, a3, a2, n]/2 + 
    S2[SP[a1, a2], a3, a1, a2, n]/2 + S2[SP[a1, a2], a3, a2, a1, n]/2 - 
    S2[SP[a1, a3], a1, a2, a2, n] + S2[SP[a1, a3], a2, a2, a1, n] + 
    S2[SP[a2, a3], a1, a1, a2, n] - S2[a3, a2, a1, a1, a2, n] - 
    S2[a3, a2, a1, a2, a1, n] - 2*S2[a3, a2, a2, a1, a1, n] /; 
   MyMemberQ[{{a1, a2}}, {a1, a1, a2, a2, a3}] && a1 != a2 != a3,S2[a1_, a1_, a1_, a2_, a3_, n_] :> 
  S2[a3, n]*S2[a1, a1, a1, a2, n] + S2[a1, a1, a1, SP[a2, a3], n] - 
    (S2[a1, n]*S2[a1, a1, a3, a2, n])/3 - S2[a1, a1, a3, SP[a1, a2], n]/3 + 
    (2*S2[a1, a1, SP[a1, a3], a2, n])/3 - (S2[a1, n]*S2[a1, a3, a1, a2, n])/
     3 - S2[a1, a3, a1, SP[a1, a2], n]/3 + (S2[a1, n]*S2[a1, a3, a2, a1, n])/
     6 + S2[a1, a3, a2, SP[a1, a1], n]/6 - S2[a1, a3, SP[a1, a1], a2, n]/3 + 
    S2[a1, a3, SP[a1, a2], a1, n]/6 - S2[a1, SP[a1, a1], a3, a2, n]/3 + 
    (2*S2[a1, SP[a1, a3], a1, a2, n])/3 + S2[a1, SP[a1, a3], a2, a1, n]/6 - 
    (S2[a1, n]*S2[a3, a1, a1, a2, n])/3 - S2[a3, a1, a1, SP[a1, a2], n]/3 + 
    (S2[a1, n]*S2[a3, a1, a2, a1, n])/6 + S2[a3, a1, a2, SP[a1, a1], n]/6 - 
    S2[a3, a1, SP[a1, a1], a2, n]/3 + S2[a3, a1, SP[a1, a2], a1, n]/6 - 
    (S2[a1, n]*S2[a3, a2, a1, a1, n])/3 - S2[a3, a2, a1, SP[a1, a1], n]/3 - 
    S2[a3, a2, SP[a1, a1], a1, n]/3 - S2[a3, SP[a1, a1], a1, a2, n]/3 + 
    S2[a3, SP[a1, a1], a2, a1, n]/6 - S2[a3, SP[a1, a2], a1, a1, n]/3 - 
    S2[SP[a1, a1], a1, a3, a2, n]/3 - S2[SP[a1, a1], a3, a1, a2, n]/3 + 
    S2[SP[a1, a1], a3, a2, a1, n]/6 + (2*S2[SP[a1, a3], a1, a1, a2, n])/3 + 
    S2[SP[a1, a3], a1, a2, a1, n]/6 - S2[SP[a1, a3], a2, a1, a1, n]/3 + 
    S2[a3, a2, a1, a1, a1, n] /; 
   MyMemberQ[{{a2, a3}}, {a1, a1, a1, a2, a3}] && a1 != a2 != a3, 
 S2[a1_, a1_, a1_, a3_, a2_, n_] :> (S2[a1, n]*S2[a1, a1, a3, a2, n])/3 + 
    S2[a1, a1, a3, SP[a1, a2], n]/3 + S2[a1, a1, SP[a1, a3], a2, n]/3 - 
    (S2[a1, n]*S2[a1, a3, a1, a2, n])/6 - S2[a1, a3, a1, SP[a1, a2], n]/6 - 
    (S2[a1, n]*S2[a1, a3, a2, a1, n])/6 - S2[a1, a3, a2, SP[a1, a1], n]/6 - 
    S2[a1, a3, SP[a1, a1], a2, n]/6 - S2[a1, a3, SP[a1, a2], a1, n]/6 + 
    S2[a1, SP[a1, a1], a3, a2, n]/3 - S2[a1, SP[a1, a3], a1, a2, n]/6 - 
    S2[a1, SP[a1, a3], a2, a1, n]/6 + (S2[a1, n]*S2[a3, a1, a1, a2, n])/3 + 
    S2[a3, a1, a1, SP[a1, a2], n]/3 + (S2[a1, n]*S2[a3, a1, a2, a1, n])/3 + 
    S2[a3, a1, a2, SP[a1, a1], n]/3 + S2[a3, a1, SP[a1, a1], a2, n]/3 + 
    S2[a3, a1, SP[a1, a2], a1, n]/3 + (S2[a1, n]*S2[a3, a2, a1, a1, n])/3 + 
    S2[a3, a2, a1, SP[a1, a1], n]/3 + S2[a3, a2, SP[a1, a1], a1, n]/3 + 
    S2[a3, SP[a1, a1], a1, a2, n]/3 + S2[a3, SP[a1, a1], a2, a1, n]/3 + 
    S2[a3, SP[a1, a2], a1, a1, n]/3 + S2[SP[a1, a1], a1, a3, a2, n]/3 - 
    S2[SP[a1, a1], a3, a1, a2, n]/6 - S2[SP[a1, a1], a3, a2, a1, n]/6 + 
    S2[SP[a1, a3], a1, a1, a2, n]/3 + S2[SP[a1, a3], a1, a2, a1, n]/3 + 
    S2[SP[a1, a3], a2, a1, a1, n]/3 - S2[a3, a1, a1, a1, a2, n] - 
    S2[a3, a1, a1, a2, a1, n] - S2[a3, a1, a2, a1, a1, n] - 
    S2[a3, a2, a1, a1, a1, n] /; 
   MyMemberQ[{{a2, a3}}, {a1, a1, a1, a2, a3}] && a1 != a2 != a3, 
 S2[a1_, a1_, a2_, a1_, a3_, n_] :> 
  S2[a1, a3, n]*S2[a1, a1, a2, n] - S2[a1, SP[a1, a1], SP[a2, a3], n] - 
    S2[SP[a1, a1], a1, SP[a2, a3], n] - S2[SP[a1, a1], SP[a1, a3], a2, n] - 
    3*S2[a3, n]*S2[a1, a1, a1, a2, n] + S2[a1, a1, SP[a1, a2], a3, n] - 
    S2[a1, a1, SP[a1, a3], a2, n] + (S2[a1, n]*S2[a1, a3, a1, a2, n])/2 + 
    S2[a1, a3, a1, SP[a1, a2], n]/2 + S2[a1, a3, SP[a1, a1], a2, n]/2 + 
    S2[a1, SP[a1, a1], a2, a3, n] + S2[a1, SP[a1, a1], a3, a2, n] - 
    (3*S2[a1, SP[a1, a3], a1, a2, n])/2 + S2[a1, n]*S2[a3, a1, a1, a2, n] + 
    S2[a3, a1, a1, SP[a1, a2], n] - (S2[a1, n]*S2[a3, a1, a2, a1, n])/2 - 
    S2[a3, a1, a2, SP[a1, a1], n]/2 + S2[a3, a1, SP[a1, a1], a2, n] - 
    S2[a3, a1, SP[a1, a2], a1, n]/2 + S2[a3, SP[a1, a1], a1, a2, n] - 
    S2[a3, SP[a1, a1], a2, a1, n]/2 + S2[SP[a1, a1], a1, a2, a3, n] + 
    S2[SP[a1, a1], a1, a3, a2, n] + (3*S2[SP[a1, a1], a3, a1, a2, n])/2 - 
    2*S2[SP[a1, a3], a1, a1, a2, n] - S2[SP[a1, a3], a1, a2, a1, n]/2 + 
    S2[a3, a1, a2, a1, a1, n] /; 
   MyMemberQ[{{a2, a3}}, {a1, a1, a1, a2, a3}] && a1 != a2 != a3, 
 S2[a1_, a1_, a2_, a3_, a1_, n_] :> 
  -(S2[a1, a3, n]*S2[a1, a1, a2, n]) + S2[a1, SP[a1, a1], SP[a2, a3], n] + 
    S2[SP[a1, a1], a1, SP[a2, a3], n] + S2[SP[a1, a1], SP[a1, a3], a2, n] - 
    3*S2[a1, a1, a1, SP[a2, a3], n] + S2[a1, n]*S2[a1, a1, a2, a3, n] + 
    S2[a1, a1, a2, SP[a1, a3], n] + S2[a1, n]*S2[a1, a1, a3, a2, n] + 
    S2[a1, a1, a3, SP[a1, a2], n] - S2[a1, a1, SP[a1, a3], a2, n] + 
    (S2[a1, n]*S2[a1, a3, a1, a2, n])/2 + S2[a1, a3, a1, SP[a1, a2], n]/2 - 
    (S2[a1, n]*S2[a1, a3, a2, a1, n])/2 - S2[a1, a3, a2, SP[a1, a1], n]/2 + 
    S2[a1, a3, SP[a1, a1], a2, n]/2 - S2[a1, a3, SP[a1, a2], a1, n]/2 - 
    S2[a1, SP[a1, a3], a1, a2, n]/2 - S2[a1, SP[a1, a3], a2, a1, n]/2 + 
    S2[a1, n]*S2[a3, a2, a1, a1, n] + S2[a3, a2, a1, SP[a1, a1], n] + 
    S2[a3, a2, SP[a1, a1], a1, n] + S2[a3, SP[a1, a2], a1, a1, n] - 
    S2[SP[a1, a1], a3, a1, a2, n]/2 - S2[SP[a1, a1], a3, a2, a1, n]/2 + 
    S2[SP[a1, a3], a2, a1, a1, n] - S2[a3, a1, a2, a1, a1, n] - 
    3*S2[a3, a2, a1, a1, a1, n] /; 
   MyMemberQ[{{a2, a3}}, {a1, a1, a1, a2, a3}] && a1 != a2 != a3, 
 S2[a1_, a1_, a3_, a1_, a2_, n_] :> (S2[a1, n]*S2[a1, a3, a1, a2, n])/2 + 
    S2[a1, a3, a1, SP[a1, a2], n]/2 + S2[a1, a3, SP[a1, a1], a2, n]/2 + 
    S2[a1, SP[a1, a3], a1, a2, n]/2 - S2[a1, n]*S2[a3, a1, a1, a2, n] - 
    S2[a3, a1, a1, SP[a1, a2], n] - (S2[a1, n]*S2[a3, a1, a2, a1, n])/2 - 
    S2[a3, a1, a2, SP[a1, a1], n]/2 - S2[a3, a1, SP[a1, a1], a2, n] - 
    S2[a3, a1, SP[a1, a2], a1, n]/2 - S2[a3, SP[a1, a1], a1, a2, n] - 
    S2[a3, SP[a1, a1], a2, a1, n]/2 + S2[SP[a1, a1], a3, a1, a2, n]/2 - 
    S2[SP[a1, a3], a1, a1, a2, n] - S2[SP[a1, a3], a1, a2, a1, n]/2 + 
    3*S2[a3, a1, a1, a1, a2, n] + 2*S2[a3, a1, a1, a2, a1, n] + 
    S2[a3, a1, a2, a1, a1, n] /; 
   MyMemberQ[{{a2, a3}}, {a1, a1, a1, a2, a3}] && a1 != a2 != a3, 
 S2[a1_, a1_, a3_, a2_, a1_, n_] :> (S2[a1, n]*S2[a1, a3, a2, a1, n])/2 + 
    S2[a1, a3, a2, SP[a1, a1], n]/2 + S2[a1, a3, SP[a1, a2], a1, n]/2 + 
    S2[a1, SP[a1, a3], a2, a1, n]/2 - (S2[a1, n]*S2[a3, a1, a2, a1, n])/2 - 
    S2[a3, a1, a2, SP[a1, a1], n]/2 - S2[a3, a1, SP[a1, a2], a1, n]/2 - 
    S2[a1, n]*S2[a3, a2, a1, a1, n] - S2[a3, a2, a1, SP[a1, a1], n] - 
    S2[a3, a2, SP[a1, a1], a1, n] - S2[a3, SP[a1, a1], a2, a1, n]/2 - 
    S2[a3, SP[a1, a2], a1, a1, n] + S2[SP[a1, a1], a3, a2, a1, n]/2 - 
    S2[SP[a1, a3], a1, a2, a1, n]/2 - S2[SP[a1, a3], a2, a1, a1, n] + 
    S2[a3, a1, a1, a2, a1, n] + 2*S2[a3, a1, a2, a1, a1, n] + 
    3*S2[a3, a2, a1, a1, a1, n] /; 
   MyMemberQ[{{a2, a3}}, {a1, a1, a1, a2, a3}] && a1 != a2 != a3, 
 S2[a1_, a2_, a1_, a1_, a3_, n_] :> 
  -2*S2[a1, a3, n]*S2[a1, a1, a2, n] + S2[a1, a2, n]*S2[a1, a1, a3, n] + 
    S2[a1, SP[a1, a1], SP[a2, a3], n] + S2[SP[a1, a1], a1, SP[a2, a3], n] - 
    S2[SP[a1, a1], SP[a1, a2], a3, n] + 2*S2[SP[a1, a1], SP[a1, a3], a2, n] + 
    3*S2[a3, n]*S2[a1, a1, a1, a2, n] - S2[a1, SP[a1, a1], a2, a3, n] - 
    S2[a1, SP[a1, a1], a3, a2, n] + S2[a1, SP[a1, a2], a1, a3, n] + 
    S2[a1, SP[a1, a3], a1, a2, n] - S2[a1, n]*S2[a3, a1, a1, a2, n] - 
    S2[a3, a1, a1, SP[a1, a2], n] - S2[a3, a1, SP[a1, a1], a2, n] - 
    S2[a3, SP[a1, a1], a1, a2, n] - S2[SP[a1, a1], a1, a2, a3, n] - 
    S2[SP[a1, a1], a1, a3, a2, n] + S2[SP[a1, a1], a2, a1, a3, n] - 
    2*S2[SP[a1, a1], a3, a1, a2, n] + 2*S2[SP[a1, a3], a1, a1, a2, n] + 
    S2[a3, a1, a1, a2, a1, n] /; 
   MyMemberQ[{{a2, a3}}, {a1, a1, a1, a2, a3}] && a1 != a2 != a3, 
 S2[a1_, a2_, a1_, a3_, a1_, n_] :> 
  2*S2[a1, a3, n]*S2[a1, a1, a2, n] - 2*S2[a1, a2, n]*S2[a1, a1, a3, n] + 
    2*S2[SP[a1, a1], SP[a1, a2], a3, n] - 
    2*S2[SP[a1, a1], SP[a1, a3], a2, n] - 2*S2[a1, a1, SP[a1, a2], a3, n] + 
    2*S2[a1, a1, SP[a1, a3], a2, n] + S2[a1, n]*S2[a1, a2, a1, a3, n] + 
    S2[a1, a2, a1, SP[a1, a3], n] + S2[a1, a2, SP[a1, a1], a3, n] - 
    S2[a1, n]*S2[a1, a3, a1, a2, n] - S2[a1, a3, a1, SP[a1, a2], n] - 
    S2[a1, a3, SP[a1, a1], a2, n] - S2[a1, SP[a1, a2], a1, a3, n] + 
    S2[a1, SP[a1, a3], a1, a2, n] + S2[a1, n]*S2[a3, a1, a2, a1, n] + 
    S2[a3, a1, a2, SP[a1, a1], n] + S2[a3, a1, SP[a1, a2], a1, n] + 
    S2[a3, SP[a1, a1], a2, a1, n] - S2[SP[a1, a1], a2, a1, a3, n] + 
    S2[SP[a1, a1], a3, a1, a2, n] + S2[SP[a1, a3], a1, a2, a1, n] - 
    2*S2[a3, a1, a1, a2, a1, n] - 2*S2[a3, a1, a2, a1, a1, n] /; 
   MyMemberQ[{{a2, a3}}, {a1, a1, a1, a2, a3}] && a1 != a2 != a3, 
 S2[a1_, a2_, a3_, a1_, a1_, n_] :> 
  S2[a1, a2, n]*S2[a1, a1, a3, n] - S2[a1, SP[a1, a1], SP[a2, a3], n] - 
    S2[SP[a1, a1], a1, SP[a2, a3], n] - S2[SP[a1, a1], SP[a1, a2], a3, n] + 
    3*S2[a1, a1, a1, SP[a2, a3], n] - S2[a1, n]*S2[a1, a1, a2, a3, n] - 
    S2[a1, a1, a2, SP[a1, a3], n] - S2[a1, n]*S2[a1, a1, a3, a2, n] - 
    S2[a1, a1, a3, SP[a1, a2], n] + S2[a1, a1, SP[a1, a2], a3, n] - 
    (S2[a1, n]*S2[a1, a2, a1, a3, n])/2 - S2[a1, a2, a1, SP[a1, a3], n]/2 + 
    (S2[a1, n]*S2[a1, a2, a3, a1, n])/2 + S2[a1, a2, a3, SP[a1, a1], n]/2 - 
    S2[a1, a2, SP[a1, a1], a3, n]/2 + S2[a1, a2, SP[a1, a3], a1, n]/2 + 
    (S2[a1, n]*S2[a1, a3, a2, a1, n])/2 + S2[a1, a3, a2, SP[a1, a1], n]/2 + 
    S2[a1, a3, SP[a1, a2], a1, n]/2 + S2[a1, SP[a1, a2], a1, a3, n]/2 + 
    S2[a1, SP[a1, a2], a3, a1, n]/2 + S2[a1, SP[a1, a3], a2, a1, n]/2 - 
    (S2[a1, n]*S2[a3, a1, a2, a1, n])/2 - S2[a3, a1, a2, SP[a1, a1], n]/2 - 
    S2[a3, a1, SP[a1, a2], a1, n]/2 - S2[a1, n]*S2[a3, a2, a1, a1, n] - 
    S2[a3, a2, a1, SP[a1, a1], n] - S2[a3, a2, SP[a1, a1], a1, n] - 
    S2[a3, SP[a1, a1], a2, a1, n]/2 - S2[a3, SP[a1, a2], a1, a1, n] + 
    S2[SP[a1, a1], a2, a1, a3, n]/2 + S2[SP[a1, a1], a2, a3, a1, n]/2 + 
    S2[SP[a1, a1], a3, a2, a1, n]/2 - S2[SP[a1, a3], a1, a2, a1, n]/2 - 
    S2[SP[a1, a3], a2, a1, a1, n] + S2[a3, a1, a1, a2, a1, n] + 
    2*S2[a3, a1, a2, a1, a1, n] + 3*S2[a3, a2, a1, a1, a1, n] /; 
   MyMemberQ[{{a2, a3}}, {a1, a1, a1, a2, a3}] && a1 != a2 != a3, 
 S2[a1_, a3_, a1_, a1_, a2_, n_] :> 
  S2[a1, n]*S2[a3, a1, a1, a2, n] + S2[a3, a1, a1, SP[a1, a2], n] + 
    S2[a3, a1, SP[a1, a1], a2, n] + S2[a3, SP[a1, a1], a1, a2, n] + 
    S2[SP[a1, a3], a1, a1, a2, n] - 3*S2[a3, a1, a1, a1, a2, n] - 
    S2[a3, a1, a1, a2, a1, n] /; 
   MyMemberQ[{{a2, a3}}, {a1, a1, a1, a2, a3}] && a1 != a2 != a3, 
 S2[a1_, a3_, a1_, a2_, a1_, n_] :> 
  S2[a1, n]*S2[a3, a1, a2, a1, n] + S2[a3, a1, a2, SP[a1, a1], n] + 
    S2[a3, a1, SP[a1, a2], a1, n] + S2[a3, SP[a1, a1], a2, a1, n] + 
    S2[SP[a1, a3], a1, a2, a1, n] - 2*S2[a3, a1, a1, a2, a1, n] - 
    2*S2[a3, a1, a2, a1, a1, n] /; 
   MyMemberQ[{{a2, a3}}, {a1, a1, a1, a2, a3}] && a1 != a2 != a3, 
 S2[a1_, a3_, a2_, a1_, a1_, n_] :> 
  S2[a1, n]*S2[a3, a2, a1, a1, n] + S2[a3, a2, a1, SP[a1, a1], n] + 
    S2[a3, a2, SP[a1, a1], a1, n] + S2[a3, SP[a1, a2], a1, a1, n] + 
    S2[SP[a1, a3], a2, a1, a1, n] - S2[a3, a1, a2, a1, a1, n] - 
    3*S2[a3, a2, a1, a1, a1, n] /; 
   MyMemberQ[{{a2, a3}}, {a1, a1, a1, a2, a3}] && a1 != a2 != a3, 
 S2[a2_, a1_, a1_, a1_, a3_, n_] :> 
  S2[a1, a3, n]*S2[a1, a1, a2, n] - S2[a1, a2, n]*S2[a1, a1, a3, n] + 
    S2[SP[a1, a1], SP[a1, a2], a3, n] - S2[SP[a1, a1], SP[a1, a3], a2, n] - 
    S2[a3, n]*S2[a1, a1, a1, a2, n] + S2[a2, n]*S2[a1, a1, a1, a3, n] - 
    S2[SP[a1, a1], a2, a1, a3, n] + S2[SP[a1, a1], a3, a1, a2, n] + 
    S2[SP[a1, a2], a1, a1, a3, n] - S2[SP[a1, a3], a1, a1, a2, n] + 
    S2[a3, a1, a1, a1, a2, n] /; 
   MyMemberQ[{{a2, a3}}, {a1, a1, a1, a2, a3}] && a1 != a2 != a3, 
 S2[a2_, a1_, a1_, a3_, a1_, n_] :> 
  -(S2[a1, a3, n]*S2[a1, a1, a2, n]) + 2*S2[a1, a2, n]*S2[a1, a1, a3, n] - 
    S2[a1, SP[a1, a1], SP[a2, a3], n] - S2[SP[a1, a1], a1, SP[a2, a3], n] - 

    2*S2[SP[a1, a1], SP[a1, a2], a3, n] + S2[SP[a1, a1], SP[a1, a3], a2, n] - 
    3*S2[a2, n]*S2[a1, a1, a1, a3, n] + S2[a1, SP[a1, a1], a2, a3, n] + 
    S2[a1, SP[a1, a1], a3, a2, n] - S2[a1, SP[a1, a2], a1, a3, n] - 
    S2[a1, SP[a1, a3], a1, a2, n] + S2[a1, n]*S2[a2, a1, a1, a3, n] + 
    S2[a2, a1, a1, SP[a1, a3], n] + S2[a2, a1, SP[a1, a1], a3, n] + 
    S2[a2, SP[a1, a1], a1, a3, n] + S2[a1, n]*S2[a3, a1, a1, a2, n] + 
    S2[a3, a1, a1, SP[a1, a2], n] + S2[a3, a1, SP[a1, a1], a2, n] + 
    S2[a3, SP[a1, a1], a1, a2, n] + S2[SP[a1, a1], a1, a2, a3, n] + 
    S2[SP[a1, a1], a1, a3, a2, n] + 2*S2[SP[a1, a1], a2, a1, a3, n] - 
    S2[SP[a1, a1], a3, a1, a2, n] - 2*S2[SP[a1, a2], a1, a1, a3, n] + 
    S2[SP[a1, a3], a1, a1, a2, n] - 3*S2[a3, a1, a1, a1, a2, n] - 
    S2[a3, a1, a1, a2, a1, n] /; 
   MyMemberQ[{{a2, a3}}, {a1, a1, a1, a2, a3}] && a1 != a2 != a3, 
 S2[a2_, a1_, a3_, a1_, a1_, n_] :> 
  -(S2[a1, a2, n]*S2[a1, a1, a3, n]) + S2[a1, SP[a1, a1], SP[a2, a3], n] + 
    S2[SP[a1, a1], a1, SP[a2, a3], n] + S2[SP[a1, a1], SP[a1, a2], a3, n] + 
    3*S2[a2, n]*S2[a1, a1, a1, a3, n] + S2[a1, a1, SP[a1, a2], a3, n] - 
    S2[a1, a1, SP[a1, a3], a2, n] - (S2[a1, n]*S2[a1, a2, a1, a3, n])/2 - 
    S2[a1, a2, a1, SP[a1, a3], n]/2 - S2[a1, a2, SP[a1, a1], a3, n]/2 + 
    (S2[a1, n]*S2[a1, a3, a1, a2, n])/2 + S2[a1, a3, a1, SP[a1, a2], n]/2 + 
    S2[a1, a3, SP[a1, a1], a2, n]/2 - S2[a1, SP[a1, a1], a2, a3, n] - 
    S2[a1, SP[a1, a1], a3, a2, n] + (3*S2[a1, SP[a1, a2], a1, a3, n])/2 + 
    S2[a1, SP[a1, a3], a1, a2, n]/2 - S2[a1, n]*S2[a2, a1, a1, a3, n] - 
    S2[a2, a1, a1, SP[a1, a3], n] + (S2[a1, n]*S2[a2, a1, a3, a1, n])/2 + 
    S2[a2, a1, a3, SP[a1, a1], n]/2 - S2[a2, a1, SP[a1, a1], a3, n] + 
    S2[a2, a1, SP[a1, a3], a1, n]/2 - S2[a2, SP[a1, a1], a1, a3, n] + 
    S2[a2, SP[a1, a1], a3, a1, n]/2 - S2[a1, n]*S2[a3, a1, a1, a2, n] - 
    S2[a3, a1, a1, SP[a1, a2], n] - (S2[a1, n]*S2[a3, a1, a2, a1, n])/2 - 
    S2[a3, a1, a2, SP[a1, a1], n]/2 - S2[a3, a1, SP[a1, a1], a2, n] - 
    S2[a3, a1, SP[a1, a2], a1, n]/2 - S2[a3, SP[a1, a1], a1, a2, n] - 
    S2[a3, SP[a1, a1], a2, a1, n]/2 - S2[SP[a1, a1], a1, a2, a3, n] - 
    S2[SP[a1, a1], a1, a3, a2, n] - (3*S2[SP[a1, a1], a2, a1, a3, n])/2 + 
    S2[SP[a1, a1], a3, a1, a2, n]/2 + 2*S2[SP[a1, a2], a1, a1, a3, n] + 
    S2[SP[a1, a2], a1, a3, a1, n]/2 - S2[SP[a1, a3], a1, a1, a2, n] - 
    S2[SP[a1, a3], a1, a2, a1, n]/2 + 3*S2[a3, a1, a1, a1, a2, n] + 
    2*S2[a3, a1, a1, a2, a1, n] + S2[a3, a1, a2, a1, a1, n] /; 
   MyMemberQ[{{a2, a3}}, {a1, a1, a1, a2, a3}] && a1 != a2 != a3, 
 S2[a2_, a3_, a1_, a1_, a1_, n_] :> 
  -(S2[a2, n]*S2[a1, a1, a1, a3, n]) - S2[a1, a1, a1, SP[a2, a3], n] + 
    (S2[a1, n]*S2[a1, a1, a2, a3, n])/3 + S2[a1, a1, a2, SP[a1, a3], n]/3 + 
    (S2[a1, n]*S2[a1, a1, a3, a2, n])/3 + S2[a1, a1, a3, SP[a1, a2], n]/3 - 
    (2*S2[a1, a1, SP[a1, a2], a3, n])/3 + S2[a1, a1, SP[a1, a3], a2, n]/3 + 
    (S2[a1, n]*S2[a1, a2, a1, a3, n])/3 + S2[a1, a2, a1, SP[a1, a3], n]/3 - 
    (S2[a1, n]*S2[a1, a2, a3, a1, n])/6 - S2[a1, a2, a3, SP[a1, a1], n]/6 + 
    S2[a1, a2, SP[a1, a1], a3, n]/3 - S2[a1, a2, SP[a1, a3], a1, n]/6 - 
    (S2[a1, n]*S2[a1, a3, a1, a2, n])/6 - S2[a1, a3, a1, SP[a1, a2], n]/6 - 
    (S2[a1, n]*S2[a1, a3, a2, a1, n])/6 - S2[a1, a3, a2, SP[a1, a1], n]/6 - 
    S2[a1, a3, SP[a1, a1], a2, n]/6 - S2[a1, a3, SP[a1, a2], a1, n]/6 + 
    S2[a1, SP[a1, a1], a2, a3, n]/3 + S2[a1, SP[a1, a1], a3, a2, n]/3 - 
    (2*S2[a1, SP[a1, a2], a1, a3, n])/3 - S2[a1, SP[a1, a2], a3, a1, n]/6 - 
    S2[a1, SP[a1, a3], a1, a2, n]/6 - S2[a1, SP[a1, a3], a2, a1, n]/6 + 
    (S2[a1, n]*S2[a2, a1, a1, a3, n])/3 + S2[a2, a1, a1, SP[a1, a3], n]/3 - 
    (S2[a1, n]*S2[a2, a1, a3, a1, n])/6 - S2[a2, a1, a3, SP[a1, a1], n]/6 + 
    S2[a2, a1, SP[a1, a1], a3, n]/3 - S2[a2, a1, SP[a1, a3], a1, n]/6 + 
    (S2[a1, n]*S2[a2, a3, a1, a1, n])/3 + S2[a2, a3, a1, SP[a1, a1], n]/3 + 
    S2[a2, a3, SP[a1, a1], a1, n]/3 + S2[a2, SP[a1, a1], a1, a3, n]/3 - 
    S2[a2, SP[a1, a1], a3, a1, n]/6 + S2[a2, SP[a1, a3], a1, a1, n]/3 + 
    (S2[a1, n]*S2[a3, a1, a1, a2, n])/3 + S2[a3, a1, a1, SP[a1, a2], n]/3 + 
    (S2[a1, n]*S2[a3, a1, a2, a1, n])/3 + S2[a3, a1, a2, SP[a1, a1], n]/3 + 
    S2[a3, a1, SP[a1, a1], a2, n]/3 + S2[a3, a1, SP[a1, a2], a1, n]/3 + 
    (S2[a1, n]*S2[a3, a2, a1, a1, n])/3 + S2[a3, a2, a1, SP[a1, a1], n]/3 + 
    S2[a3, a2, SP[a1, a1], a1, n]/3 + S2[a3, SP[a1, a1], a1, a2, n]/3 + 
    S2[a3, SP[a1, a1], a2, a1, n]/3 + S2[a3, SP[a1, a2], a1, a1, n]/3 + 
    S2[SP[a1, a1], a1, a2, a3, n]/3 + S2[SP[a1, a1], a1, a3, a2, n]/3 + 
    S2[SP[a1, a1], a2, a1, a3, n]/3 - S2[SP[a1, a1], a2, a3, a1, n]/6 - 
    S2[SP[a1, a1], a3, a1, a2, n]/6 - S2[SP[a1, a1], a3, a2, a1, n]/6 - 
    (2*S2[SP[a1, a2], a1, a1, a3, n])/3 - S2[SP[a1, a2], a1, a3, a1, n]/6 + 
    S2[SP[a1, a2], a3, a1, a1, n]/3 + S2[SP[a1, a3], a1, a1, a2, n]/3 + 
    S2[SP[a1, a3], a1, a2, a1, n]/3 + S2[SP[a1, a3], a2, a1, a1, n]/3 - 
    S2[a3, a1, a1, a1, a2, n] - S2[a3, a1, a1, a2, a1, n] - 
    S2[a3, a1, a2, a1, a1, n] - S2[a3, a2, a1, a1, a1, n] /; 
   MyMemberQ[{{a2, a3}}, {a1, a1, a1, a2, a3}] && a1 != a2 != a3,S2[a1_, a1_, a1_, a2_, a2_, n_] :> 
  S2[a2, n]*S2[a1, a1, a1, a2, n] + S2[a1, a1, a1, SP[a2, a2], n] - 
    (S2[a1, n]*S2[a1, a1, a2, a2, n])/3 - S2[a1, a1, a2, SP[a1, a2], n]/3 + 
    (2*S2[a1, a1, SP[a1, a2], a2, n])/3 - (S2[a1, n]*S2[a1, a2, a1, a2, n])/
     3 - S2[a1, a2, a1, SP[a1, a2], n]/3 + (S2[a1, n]*S2[a1, a2, a2, a1, n])/
     6 + S2[a1, a2, a2, SP[a1, a1], n]/6 - S2[a1, a2, SP[a1, a1], a2, n]/3 + 
    S2[a1, a2, SP[a1, a2], a1, n]/6 - S2[a1, SP[a1, a1], a2, a2, n]/3 + 
    (2*S2[a1, SP[a1, a2], a1, a2, n])/3 + S2[a1, SP[a1, a2], a2, a1, n]/6 - 
    (S2[a1, n]*S2[a2, a1, a1, a2, n])/3 - S2[a2, a1, a1, SP[a1, a2], n]/3 + 
    (S2[a1, n]*S2[a2, a1, a2, a1, n])/6 + S2[a2, a1, a2, SP[a1, a1], n]/6 - 
    S2[a2, a1, SP[a1, a1], a2, n]/3 + S2[a2, a1, SP[a1, a2], a1, n]/6 - 
    (S2[a1, n]*S2[a2, a2, a1, a1, n])/3 - S2[a2, a2, a1, SP[a1, a1], n]/3 - 
    S2[a2, a2, SP[a1, a1], a1, n]/3 - S2[a2, SP[a1, a1], a1, a2, n]/3 + 
    S2[a2, SP[a1, a1], a2, a1, n]/6 - S2[a2, SP[a1, a2], a1, a1, n]/3 - 
    S2[SP[a1, a1], a1, a2, a2, n]/3 - S2[SP[a1, a1], a2, a1, a2, n]/3 + 
    S2[SP[a1, a1], a2, a2, a1, n]/6 + (2*S2[SP[a1, a2], a1, a1, a2, n])/3 + 
    S2[SP[a1, a2], a1, a2, a1, n]/6 - S2[SP[a1, a2], a2, a1, a1, n]/3 + 
    S2[a2, a2, a1, a1, a1, n] /; a1 != a2, S2[a1_, a1_, a2_, a1_, a2_, n_] :> 
  S2[a1, a2, n]*S2[a1, a1, a2, n] - S2[a1, SP[a1, a1], SP[a2, a2], n] - 
    S2[SP[a1, a1], a1, SP[a2, a2], n] - S2[SP[a1, a1], SP[a1, a2], a2, n] - 
    3*S2[a2, n]*S2[a1, a1, a1, a2, n] + (S2[a1, n]*S2[a1, a2, a1, a2, n])/2 + 
    S2[a1, a2, a1, SP[a1, a2], n]/2 + S2[a1, a2, SP[a1, a1], a2, n]/2 + 
    2*S2[a1, SP[a1, a1], a2, a2, n] - (3*S2[a1, SP[a1, a2], a1, a2, n])/2 + 
    S2[a1, n]*S2[a2, a1, a1, a2, n] + S2[a2, a1, a1, SP[a1, a2], n] - 
    (S2[a1, n]*S2[a2, a1, a2, a1, n])/2 - S2[a2, a1, a2, SP[a1, a1], n]/2 + 
    S2[a2, a1, SP[a1, a1], a2, n] - S2[a2, a1, SP[a1, a2], a1, n]/2 + 
    S2[a2, SP[a1, a1], a1, a2, n] - S2[a2, SP[a1, a1], a2, a1, n]/2 + 
    2*S2[SP[a1, a1], a1, a2, a2, n] + (3*S2[SP[a1, a1], a2, a1, a2, n])/2 - 
    2*S2[SP[a1, a2], a1, a1, a2, n] - S2[SP[a1, a2], a1, a2, a1, n]/2 + 
    S2[a2, a1, a2, a1, a1, n] /; a1 != a2, S2[a1_, a1_, a2_, a2_, a1_, n_] :> 
  -(S2[a1, a2, n]*S2[a1, a1, a2, n]) + S2[a1, SP[a1, a1], SP[a2, a2], n] + 
    S2[SP[a1, a1], a1, SP[a2, a2], n] + S2[SP[a1, a1], SP[a1, a2], a2, n] - 
    3*S2[a1, a1, a1, SP[a2, a2], n] + 2*S2[a1, n]*S2[a1, a1, a2, a2, n] + 
    2*S2[a1, a1, a2, SP[a1, a2], n] - S2[a1, a1, SP[a1, a2], a2, n] + 
    (S2[a1, n]*S2[a1, a2, a1, a2, n])/2 + S2[a1, a2, a1, SP[a1, a2], n]/2 - 
    (S2[a1, n]*S2[a1, a2, a2, a1, n])/2 - S2[a1, a2, a2, SP[a1, a1], n]/2 + 
    S2[a1, a2, SP[a1, a1], a2, n]/2 - S2[a1, a2, SP[a1, a2], a1, n]/2 - 
    S2[a1, SP[a1, a2], a1, a2, n]/2 - S2[a1, SP[a1, a2], a2, a1, n]/2 + 
    S2[a1, n]*S2[a2, a2, a1, a1, n] + S2[a2, a2, a1, SP[a1, a1], n] + 
    S2[a2, a2, SP[a1, a1], a1, n] + S2[a2, SP[a1, a2], a1, a1, n] - 
    S2[SP[a1, a1], a2, a1, a2, n]/2 - S2[SP[a1, a1], a2, a2, a1, n]/2 + 
    S2[SP[a1, a2], a2, a1, a1, n] - S2[a2, a1, a2, a1, a1, n] - 
    3*S2[a2, a2, a1, a1, a1, n] /; a1 != a2, 
 S2[a1_, a2_, a1_, a1_, a2_, n_] :> 
  -2*S2[a1, a2, n]*S2[a1, a1, a2, n] + 2*S2[a1, SP[a1, a1], SP[a2, a2], n] + 
    2*S2[SP[a1, a1], a1, SP[a2, a2], n] + 
    2*S2[SP[a1, a1], SP[a1, a2], a2, n] + 3*S2[a2, n]*S2[a1, a1, a1, a2, n] - 
    3*S2[a1, a1, a1, SP[a2, a2], n] + 2*S2[a1, n]*S2[a1, a1, a2, a2, n] + 
    2*S2[a1, a1, a2, SP[a1, a2], n] - S2[a1, a1, SP[a1, a2], a2, n] + 
    (S2[a1, n]*S2[a1, a2, a1, a2, n])/2 + S2[a1, a2, a1, SP[a1, a2], n]/2 - 
    S2[a1, n]*S2[a1, a2, a2, a1, n] - S2[a1, a2, a2, SP[a1, a1], n] + 
    S2[a1, a2, SP[a1, a1], a2, n]/2 - S2[a1, a2, SP[a1, a2], a1, n] - 
    2*S2[a1, SP[a1, a1], a2, a2, n] + (3*S2[a1, SP[a1, a2], a1, a2, n])/2 - 
    S2[a1, SP[a1, a2], a2, a1, n] - S2[a1, n]*S2[a2, a1, a1, a2, n] - 
    S2[a2, a1, a1, SP[a1, a2], n] + (S2[a1, n]*S2[a2, a1, a2, a1, n])/2 + 
    S2[a2, a1, a2, SP[a1, a1], n]/2 - S2[a2, a1, SP[a1, a1], a2, n] + 
    S2[a2, a1, SP[a1, a2], a1, n]/2 + 2*S2[a1, n]*S2[a2, a2, a1, a1, n] + 
    2*S2[a2, a2, a1, SP[a1, a1], n] + 2*S2[a2, a2, SP[a1, a1], a1, n] - 
    S2[a2, SP[a1, a1], a1, a2, n] + S2[a2, SP[a1, a1], a2, a1, n]/2 + 
    2*S2[a2, SP[a1, a2], a1, a1, n] - 2*S2[SP[a1, a1], a1, a2, a2, n] - 
    (3*S2[SP[a1, a1], a2, a1, a2, n])/2 - S2[SP[a1, a1], a2, a2, a1, n] + 
    2*S2[SP[a1, a2], a1, a1, a2, n] + S2[SP[a1, a2], a1, a2, a1, n]/2 + 
    2*S2[SP[a1, a2], a2, a1, a1, n] - 3*S2[a2, a1, a2, a1, a1, n] - 
    6*S2[a2, a2, a1, a1, a1, n] /; a1 != a2, 
 S2[a1_, a2_, a1_, a2_, a1_, n_] :> 
  2*S2[a1, a2, n]*S2[a1, a1, a2, n] - 2*S2[a1, SP[a1, a1], SP[a2, a2], n] - 
    2*S2[SP[a1, a1], a1, SP[a2, a2], n] - 
    2*S2[SP[a1, a1], SP[a1, a2], a2, n] + 6*S2[a1, a1, a1, SP[a2, a2], n] - 
    4*S2[a1, n]*S2[a1, a1, a2, a2, n] - 4*S2[a1, a1, a2, SP[a1, a2], n] + 
    2*S2[a1, a1, SP[a1, a2], a2, n] - S2[a1, n]*S2[a1, a2, a1, a2, n] - 
    S2[a1, a2, a1, SP[a1, a2], n] + 2*S2[a1, n]*S2[a1, a2, a2, a1, n] + 
    2*S2[a1, a2, a2, SP[a1, a1], n] - S2[a1, a2, SP[a1, a1], a2, n] + 
    2*S2[a1, a2, SP[a1, a2], a1, n] + S2[a1, SP[a1, a2], a1, a2, n] + 
    2*S2[a1, SP[a1, a2], a2, a1, n] - 4*S2[a1, n]*S2[a2, a2, a1, a1, n] - 
    4*S2[a2, a2, a1, SP[a1, a1], n] - 4*S2[a2, a2, SP[a1, a1], a1, n] - 
    4*S2[a2, SP[a1, a2], a1, a1, n] + S2[SP[a1, a1], a2, a1, a2, n] + 
    2*S2[SP[a1, a1], a2, a2, a1, n] - 4*S2[SP[a1, a2], a2, a1, a1, n] + 
    4*S2[a2, a1, a2, a1, a1, n] + 12*S2[a2, a2, a1, a1, a1, n] /; a1 != a2, 
 S2[a1_, a2_, a2_, a1_, a1_, n_] :> 
  S2[a1, n]*S2[a2, a2, a1, a1, n] + S2[a2, a2, a1, SP[a1, a1], n] + 
    S2[a2, a2, SP[a1, a1], a1, n] + S2[a2, SP[a1, a2], a1, a1, n] + 
    S2[SP[a1, a2], a2, a1, a1, n] - S2[a2, a1, a2, a1, a1, n] - 
    3*S2[a2, a2, a1, a1, a1, n] /; a1 != a2, 
 S2[a2_, a1_, a1_, a1_, a2_, n_] :> 
  S2[a1, a2, n]*S2[a1, a1, a2, n] - S2[a1, SP[a1, a1], SP[a2, a2], n] - 
    S2[SP[a1, a1], a1, SP[a2, a2], n] - S2[SP[a1, a1], SP[a1, a2], a2, n] - 
    S2[a2, n]*S2[a1, a1, a1, a2, n] + 2*S2[a1, a1, a1, SP[a2, a2], n] - 
    (4*S2[a1, n]*S2[a1, a1, a2, a2, n])/3 - (4*S2[a1, a1, a2, SP[a1, a2], n])/
     3 + (2*S2[a1, a1, SP[a1, a2], a2, n])/3 - 
    (S2[a1, n]*S2[a1, a2, a1, a2, n])/3 - S2[a1, a2, a1, SP[a1, a2], n]/3 + 
    (2*S2[a1, n]*S2[a1, a2, a2, a1, n])/3 + (2*S2[a1, a2, a2, SP[a1, a1], n])/
     3 - S2[a1, a2, SP[a1, a1], a2, n]/3 + (2*S2[a1, a2, SP[a1, a2], a1, n])/
     3 + (2*S2[a1, SP[a1, a1], a2, a2, n])/3 - S2[a1, SP[a1, a2], a1, a2, n]/
     3 + (2*S2[a1, SP[a1, a2], a2, a1, n])/3 + 
    (2*S2[a1, n]*S2[a2, a1, a1, a2, n])/3 + (2*S2[a2, a1, a1, SP[a1, a2], n])/
     3 - (S2[a1, n]*S2[a2, a1, a2, a1, n])/3 - S2[a2, a1, a2, SP[a1, a1], n]/
     3 + (2*S2[a2, a1, SP[a1, a1], a2, n])/3 - S2[a2, a1, SP[a1, a2], a1, n]/
     3 - (4*S2[a1, n]*S2[a2, a2, a1, a1, n])/3 - 
    (4*S2[a2, a2, a1, SP[a1, a1], n])/3 - (4*S2[a2, a2, SP[a1, a1], a1, n])/
     3 + (2*S2[a2, SP[a1, a1], a1, a2, n])/3 - S2[a2, SP[a1, a1], a2, a1, n]/
     3 - (4*S2[a2, SP[a1, a2], a1, a1, n])/3 + 
    (2*S2[SP[a1, a1], a1, a2, a2, n])/3 + (2*S2[SP[a1, a1], a2, a1, a2, n])/
     3 + (2*S2[SP[a1, a1], a2, a2, a1, n])/3 - S2[SP[a1, a2], a1, a1, a2, n]/
     3 - S2[SP[a1, a2], a1, a2, a1, n]/3 - (4*S2[SP[a1, a2], a2, a1, a1, n])/
     3 + 2*S2[a2, a1, a2, a1, a1, n] + 4*S2[a2, a2, a1, a1, a1, n] /; 
   a1 != a2, S2[a2_, a1_, a1_, a2_, a1_, n_] :> 
  -(S2[a1, a2, n]*S2[a1, a1, a2, n]) + S2[a1, SP[a1, a1], SP[a2, a2], n] + 
    S2[SP[a1, a1], a1, SP[a2, a2], n] + S2[SP[a1, a1], SP[a1, a2], a2, n] - 
    3*S2[a1, a1, a1, SP[a2, a2], n] + 2*S2[a1, n]*S2[a1, a1, a2, a2, n] + 
    2*S2[a1, a1, a2, SP[a1, a2], n] - S2[a1, a1, SP[a1, a2], a2, n] + 
    (S2[a1, n]*S2[a1, a2, a1, a2, n])/2 + S2[a1, a2, a1, SP[a1, a2], n]/2 - 
    S2[a1, n]*S2[a1, a2, a2, a1, n] - S2[a1, a2, a2, SP[a1, a1], n] + 
    S2[a1, a2, SP[a1, a1], a2, n]/2 - S2[a1, a2, SP[a1, a2], a1, n] - 
    S2[a1, SP[a1, a2], a1, a2, n]/2 - S2[a1, SP[a1, a2], a2, a1, n] + 
    (S2[a1, n]*S2[a2, a1, a2, a1, n])/2 + S2[a2, a1, a2, SP[a1, a1], n]/2 + 
    S2[a2, a1, SP[a1, a2], a1, n]/2 + 2*S2[a1, n]*S2[a2, a2, a1, a1, n] + 
    2*S2[a2, a2, a1, SP[a1, a1], n] + 2*S2[a2, a2, SP[a1, a1], a1, n] + 
    S2[a2, SP[a1, a1], a2, a1, n]/2 + 2*S2[a2, SP[a1, a2], a1, a1, n] - 
    S2[SP[a1, a1], a2, a1, a2, n]/2 - S2[SP[a1, a1], a2, a2, a1, n] + 
    S2[SP[a1, a2], a1, a2, a1, n]/2 + 2*S2[SP[a1, a2], a2, a1, a1, n] - 
    3*S2[a2, a1, a2, a1, a1, n] - 6*S2[a2, a2, a1, a1, a1, n] /; a1 != a2,
S2[a1_, a1_, a1_, a1_, a2_, n_] :> (S2[a1, n]*S2[a1, a1, a1, a2, n])/4 + 
    S2[a1, a1, a1, SP[a1, a2], n]/4 - (S2[a1, n]*S2[a1, a1, a2, a1, n])/12 - 
    S2[a1, a1, a2, SP[a1, a1], n]/12 + S2[a1, a1, SP[a1, a1], a2, n]/4 - 
    S2[a1, a1, SP[a1, a2], a1, n]/12 + (S2[a1, n]*S2[a1, a2, a1, a1, n])/12 + 
    S2[a1, a2, a1, SP[a1, a1], n]/12 + S2[a1, a2, SP[a1, a1], a1, n]/12 + 
    S2[a1, SP[a1, a1], a1, a2, n]/4 - S2[a1, SP[a1, a1], a2, a1, n]/12 + 
    S2[a1, SP[a1, a2], a1, a1, n]/12 - (S2[a1, n]*S2[a2, a1, a1, a1, n])/4 - 
    S2[a2, a1, a1, SP[a1, a1], n]/4 - S2[a2, a1, SP[a1, a1], a1, n]/4 - 
    S2[a2, SP[a1, a1], a1, a1, n]/4 + S2[SP[a1, a1], a1, a1, a2, n]/4 - 
    S2[SP[a1, a1], a1, a2, a1, n]/12 + S2[SP[a1, a1], a2, a1, a1, n]/12 - 
    S2[SP[a1, a2], a1, a1, a1, n]/4 + S2[a2, a1, a1, a1, a1, n] /; a1 != a2, 
 S2[a1_, a1_, a1_, a2_, a1_, n_] :> (S2[a1, n]*S2[a1, a1, a2, a1, n])/3 + 
    S2[a1, a1, a2, SP[a1, a1], n]/3 + S2[a1, a1, SP[a1, a2], a1, n]/3 - 
    (S2[a1, n]*S2[a1, a2, a1, a1, n])/3 - S2[a1, a2, a1, SP[a1, a1], n]/3 - 
    S2[a1, a2, SP[a1, a1], a1, n]/3 + S2[a1, SP[a1, a1], a2, a1, n]/3 - 
    S2[a1, SP[a1, a2], a1, a1, n]/3 + S2[a1, n]*S2[a2, a1, a1, a1, n] + 
    S2[a2, a1, a1, SP[a1, a1], n] + S2[a2, a1, SP[a1, a1], a1, n] + 
    S2[a2, SP[a1, a1], a1, a1, n] + S2[SP[a1, a1], a1, a2, a1, n]/3 - 
    S2[SP[a1, a1], a2, a1, a1, n]/3 + S2[SP[a1, a2], a1, a1, a1, n] - 
    4*S2[a2, a1, a1, a1, a1, n] /; a1 != a2, 
 S2[a1_, a1_, a2_, a1_, a1_, n_] :> (S2[a1, n]*S2[a1, a2, a1, a1, n])/2 + 
    S2[a1, a2, a1, SP[a1, a1], n]/2 + S2[a1, a2, SP[a1, a1], a1, n]/2 + 
    S2[a1, SP[a1, a2], a1, a1, n]/2 - (3*S2[a1, n]*S2[a2, a1, a1, a1, n])/2 - 
    (3*S2[a2, a1, a1, SP[a1, a1], n])/2 - (3*S2[a2, a1, SP[a1, a1], a1, n])/
     2 - (3*S2[a2, SP[a1, a1], a1, a1, n])/2 + S2[SP[a1, a1], a2, a1, a1, n]/
     2 - (3*S2[SP[a1, a2], a1, a1, a1, n])/2 + 6*S2[a2, a1, a1, a1, a1, n] /; 
   a1 != a2, S2[a1_, a2_, a1_, a1_, a1_, n_] :> 
  S2[a1, n]*S2[a2, a1, a1, a1, n] + S2[a2, a1, a1, SP[a1, a1], n] + 
    S2[a2, a1, SP[a1, a1], a1, n] + S2[a2, SP[a1, a1], a1, a1, n] + 
    S2[SP[a1, a2], a1, a1, a1, n] - 4*S2[a2, a1, a1, a1, a1, n] /; a1 != a2,  
 S2[a1_, a1_, n_] :> S2[a1, n]^2/2 + S2[SP[a1, a1], n]/2 /; True, 
 S2[a1_, a2_, n_] :> S2[a1, n]*S2[a2, n] + S2[SP[a1, a2], n] - 
    S2[a2, a1, n] /; MyMemberQ[{{a1, a2}}, {a1, a2}] && a1 != a2, 
 S2[a1_, a1_, a1_, n_] :> 
  (1*(S2[a1, n]^3 + 3*S2[a1, n]*S2[SP[a1, a1], n] + 2*S2[SP[a1, a1, a1], n]))/
    6 /; True, 
S2[a1_, a1_, a2_, n_] :> 
      1/2*S2[a1, n]*S2[a1, a2, n] + 1/2*S2[a1, SP[a1, a2], n] - 
          1/2*S2[a1, n]*S2[a2, a1, n] - 1/2*S2[a2, SP[a1, a1], n] + 
          1/2*S2[SP[a1, a1], a2, n] - 1/2*S2[SP[a1, a2], a1, n] + 
          S2[a2, a1, a1, n] /; a1 != a2, 
  S2[a1_, a2_, a1_, n_] :> S2[a1, n] S2[a2, a1, n] + S2[a2, SP[a1, a1], n] + 
          S2[SP[a1, a2], a1, n] - 2 S2[a2, a1, a1, n] /; a1 != a2, 
 S2[a1_, a2_, a3_, n_] :> 
  S2[a3, n]*S2[a1, a2, n] + S2[a1, SP[a2, a3], n] - S2[a1, n]*S2[a3, a2, n] - 
    S2[a3, SP[a1, a2], n] + S2[a3, a2, a1, n] /; 
   MyMemberQ[{{a1, a2, a3}}, {a1, a2, a3}] && a1 != a2 != a3, 
 S2[a1_, a3_, a2_, n_] :> S2[a1, n]*S2[a3, a2, n] + S2[a3, SP[a1, a2], n] + 
    S2[SP[a1, a3], a2, n] - S2[a3, a1, a2, n] - S2[a3, a2, a1, n] /; 
   MyMemberQ[{{a1, a2, a3}}, {a1, a2, a3}] && a1 != a2 != a3, 
 S2[a2_, a1_, a3_, n_] :> -(S2[a3, n]*S2[a1, a2, n]) + 
    S2[a2, n]*S2[a1, a3, n] + S2[SP[a1, a2], a3, n] - S2[SP[a1, a3], a2, n] + 
    S2[a3, a1, a2, n] /; MyMemberQ[{{a1, a2, a3}}, {a1, a2, a3}] && 
    a1 != a2 != a3, 
 S2[a2_, a3_, a1_, n_] :> 
  -(S2[a2, n]*S2[a1, a3, n]) - S2[a1, SP[a2, a3], n] + 
    S2[a1, n]*S2[a2, a3, n] + S2[a2, SP[a1, a3], n] + 
    S2[a1, n]*S2[a3, a2, n] + S2[a3, SP[a1, a2], n] + S2[SP[a1, a3], a2, n] - 
    S2[a3, a1, a2, n] - S2[a3, a2, a1, n] /; 
   MyMemberQ[{{a1, a2, a3}}, {a1, a2, a3}] && a1 != a2 != a3, 
 S2[a1_, a1_, a1_, a1_, n_] :> 
  (1*(S2[a1, n]^4 + 6*S2[a1, n]^2*S2[SP[a1, a1], n] + 3*S2[SP[a1, a1], n]^2 + 
      8*S2[a1, n]*S2[SP[a1, a1, a1], n] + 6*S2[SP[a1, a1, a1, a1], n]))/24 /; 
   True, S2[a1_, a1_, a1_, a2_, n_] :> 
  (S2[a1, n]*S2[a1, a1, a2, n])/3 + S2[a1, a1, SP[a1, a2], n]/3 - 
    (S2[a1, n]*S2[a1, a2, a1, n])/6 - S2[a1, a2, SP[a1, a1], n]/6 + 
    S2[a1, SP[a1, a1], a2, n]/3 - S2[a1, SP[a1, a2], a1, n]/6 + 
    (S2[a1, n]*S2[a2, a1, a1, n])/3 + S2[a2, a1, SP[a1, a1], n]/3 + 
    S2[a2, SP[a1, a1], a1, n]/3 + S2[SP[a1, a1], a1, a2, n]/3 - 
    S2[SP[a1, a1], a2, a1, n]/6 + S2[SP[a1, a2], a1, a1, n]/3 - 
    S2[a2, a1, a1, a1, n] /; a1 != a2, S2[a1_, a1_, a2_, a1_, n_] :> 
  (S2[a1, n]*S2[a1, a2, a1, n])/2 + S2[a1, a2, SP[a1, a1], n]/2 + 
    S2[a1, SP[a1, a2], a1, n]/2 - S2[a1, n]*S2[a2, a1, a1, n] - 
    S2[a2, a1, SP[a1, a1], n] - S2[a2, SP[a1, a1], a1, n] + 
    S2[SP[a1, a1], a2, a1, n]/2 - S2[SP[a1, a2], a1, a1, n] + 
    3*S2[a2, a1, a1, a1, n] /; a1 != a2, S2[a1_, a2_, a1_, a1_, n_] :> 
  S2[a1, n]*S2[a2, a1, a1, n] + S2[a2, a1, SP[a1, a1], n] + 
    S2[a2, SP[a1, a1], a1, n] + S2[SP[a1, a2], a1, a1, n] - 
    3*S2[a2, a1, a1, a1, n] /; a1 != a2, S2[a1_, a1_, a2_, a2_, n_] :> 
  S2[a2, n]*S2[a1, a1, a2, n] + S2[a1, a1, SP[a2, a2], n] - 
    (S2[a1, n]*S2[a1, a2, a2, n])/2 - S2[a1, a2, SP[a1, a2], n]/2 + 
    S2[a1, SP[a1, a2], a2, n]/2 - (S2[a1, n]*S2[a2, a1, a2, n])/2 - 
    S2[a2, a1, SP[a1, a2], n]/2 + (S2[a1, n]*S2[a2, a2, a1, n])/2 + 
    S2[a2, a2, SP[a1, a1], n]/2 - S2[a2, SP[a1, a1], a2, n]/2 + 
    S2[a2, SP[a1, a2], a1, n]/2 - S2[SP[a1, a1], a2, a2, n]/2 + 
    S2[SP[a1, a2], a1, a2, n]/2 + S2[SP[a1, a2], a2, a1, n]/2 - 
    S2[a2, a2, a1, a1, n] /; MyMemberQ[{{a1, a2}}, {a1, a1, a2, a2}] && 
    a1 != a2, S2[a1_, a2_, a1_, a2_, n_] :> 
  S2[a1, a2, n]^2/2 - S2[SP[a1, a1], SP[a2, a2], n]/2 - 
    2*S2[a2, n]*S2[a1, a1, a2, n] - S2[a1, a1, SP[a2, a2], n] + 
    S2[a1, n]*S2[a1, a2, a2, n] + S2[a1, a2, SP[a1, a2], n] + 
    S2[a1, n]*S2[a2, a1, a2, n] + S2[a2, a1, SP[a1, a2], n] - 
    S2[a1, n]*S2[a2, a2, a1, n] - S2[a2, a2, SP[a1, a1], n] + 
    S2[a2, SP[a1, a1], a2, n] - S2[a2, SP[a1, a2], a1, n] + 
    2*S2[SP[a1, a1], a2, a2, n] - S2[SP[a1, a2], a1, a2, n] - 
    S2[SP[a1, a2], a2, a1, n] + 2*S2[a2, a2, a1, a1, n] /; 
   MyMemberQ[{{a1, a2}}, {a1, a1, a2, a2}] && a1 != a2, 
 S2[a1_, a2_, a2_, a1_, n_] :> 
  -(S2[a1, a2, n]^2/2) + S2[SP[a1, a1], SP[a2, a2], n]/2 - 
    S2[a1, a1, SP[a2, a2], n] + S2[a1, n]*S2[a1, a2, a2, n] + 
    S2[a1, a2, SP[a1, a2], n] /; MyMemberQ[{{a1, a2}}, {a1, a1, a2, a2}] && 
    a1 != a2, S2[a2_, a1_, a1_, a2_, n_] :> 
  -(S2[a1, a2, n]^2/2) + S2[SP[a1, a1], SP[a2, a2], n]/2 + 
    S2[a2, n]*S2[a1, a1, a2, n] - S2[SP[a1, a1], a2, a2, n] + 
    S2[SP[a1, a2], a1, a2, n] /; MyMemberQ[{{a1, a2}}, {a1, a1, a2, a2}] && 
    a1 != a2, S2[a2_, a1_, a2_, a1_, n_] :> 
  S2[a1, a2, n]^2/2 - S2[SP[a1, a1], SP[a2, a2], n]/2 + 
    S2[a1, a1, SP[a2, a2], n] - S2[a1, n]*S2[a1, a2, a2, n] - 
    S2[a1, a2, SP[a1, a2], n] + S2[a1, n]*S2[a2, a2, a1, n] + 
    S2[a2, a2, SP[a1, a1], n] + S2[a2, SP[a1, a2], a1, n] + 
    S2[SP[a1, a2], a2, a1, n] - 2*S2[a2, a2, a1, a1, n] /; 
   MyMemberQ[{{a1, a2}}, {a1, a1, a2, a2}] && a1 != a2, 
 S2[a1_, a1_, a2_, a3_, n_] :> S2[a3, n]*S2[a1, a1, a2, n] + 
    S2[a1, a1, SP[a2, a3], n] - (S2[a1, n]*S2[a1, a3, a2, n])/2 - 
    S2[a1, a3, SP[a1, a2], n]/2 + S2[a1, SP[a1, a3], a2, n]/2 - 
    (S2[a1, n]*S2[a3, a1, a2, n])/2 - S2[a3, a1, SP[a1, a2], n]/2 + 
    (S2[a1, n]*S2[a3, a2, a1, n])/2 + S2[a3, a2, SP[a1, a1], n]/2 - 
    S2[a3, SP[a1, a1], a2, n]/2 + S2[a3, SP[a1, a2], a1, n]/2 - 
    S2[SP[a1, a1], a3, a2, n]/2 + S2[SP[a1, a3], a1, a2, n]/2 + 
    S2[SP[a1, a3], a2, a1, n]/2 - S2[a3, a2, a1, a1, n] /; 
   MyMemberQ[{{a2, a3}}, {a1, a1, a2, a3}] && a1 != a2 != a3, 
 S2[a1_, a1_, a3_, a2_, n_] :> (S2[a1, n]*S2[a1, a3, a2, n])/2 + 
    S2[a1, a3, SP[a1, a2], n]/2 + S2[a1, SP[a1, a3], a2, n]/2 - 
    (S2[a1, n]*S2[a3, a1, a2, n])/2 - S2[a3, a1, SP[a1, a2], n]/2 - 
    (S2[a1, n]*S2[a3, a2, a1, n])/2 - S2[a3, a2, SP[a1, a1], n]/2 - 
    S2[a3, SP[a1, a1], a2, n]/2 - S2[a3, SP[a1, a2], a1, n]/2 + 
    S2[SP[a1, a1], a3, a2, n]/2 - S2[SP[a1, a3], a1, a2, n]/2 - 
    S2[SP[a1, a3], a2, a1, n]/2 + S2[a3, a1, a1, a2, n] + 
    S2[a3, a1, a2, a1, n] + S2[a3, a2, a1, a1, n] /; 
   MyMemberQ[{{a2, a3}}, {a1, a1, a2, a3}] && a1 != a2 != a3, 
 S2[a1_, a2_, a1_, a3_, n_] :> S2[a1, a2, n]*S2[a1, a3, n] - 
    S2[SP[a1, a1], SP[a2, a3], n] - 2*S2[a3, n]*S2[a1, a1, a2, n] + 
    S2[a1, SP[a1, a2], a3, n] - S2[a1, SP[a1, a3], a2, n] + 
    S2[a1, n]*S2[a3, a1, a2, n] + S2[a3, a1, SP[a1, a2], n] + 
    S2[a3, SP[a1, a1], a2, n] + S2[SP[a1, a1], a2, a3, n] + 
    S2[SP[a1, a1], a3, a2, n] - S2[SP[a1, a3], a1, a2, n] - 
    S2[a3, a1, a2, a1, n] /; MyMemberQ[{{a2, a3}}, {a1, a1, a2, a3}] && 
    a1 != a2 != a3, S2[a1_, a2_, a3_, a1_, n_] :> 
  -(S2[a1, a2, n]*S2[a1, a3, n]) + S2[SP[a1, a1], SP[a2, a3], n] - 
    2*S2[a1, a1, SP[a2, a3], n] + S2[a1, n]*S2[a1, a2, a3, n] + 
    S2[a1, a2, SP[a1, a3], n] + S2[a1, n]*S2[a1, a3, a2, n] + 
    S2[a1, a3, SP[a1, a2], n] - S2[a1, n]*S2[a3, a2, a1, n] - 
    S2[a3, a2, SP[a1, a1], n] - S2[a3, SP[a1, a2], a1, n] - 
    S2[SP[a1, a3], a2, a1, n] + S2[a3, a1, a2, a1, n] + 
    2*S2[a3, a2, a1, a1, n] /; MyMemberQ[{{a2, a3}}, {a1, a1, a2, a3}] && 
    a1 != a2 != a3, S2[a1_, a3_, a1_, a2_, n_] :> 
  S2[a1, n]*S2[a3, a1, a2, n] + S2[a3, a1, SP[a1, a2], n] + 
    S2[a3, SP[a1, a1], a2, n] + S2[SP[a1, a3], a1, a2, n] - 
    2*S2[a3, a1, a1, a2, n] - S2[a3, a1, a2, a1, n] /; 
   MyMemberQ[{{a2, a3}}, {a1, a1, a2, a3}] && a1 != a2 != a3, 
 S2[a1_, a3_, a2_, a1_, n_] :> S2[a1, n]*S2[a3, a2, a1, n] + 
    S2[a3, a2, SP[a1, a1], n] + S2[a3, SP[a1, a2], a1, n] + 
    S2[SP[a1, a3], a2, a1, n] - S2[a3, a1, a2, a1, n] - 
    2*S2[a3, a2, a1, a1, n] /; MyMemberQ[{{a2, a3}}, {a1, a1, a2, a3}] && 
    a1 != a2 != a3, S2[a2_, a1_, a1_, a3_, n_] :> 
  -(S2[a1, a2, n]*S2[a1, a3, n]) + S2[SP[a1, a1], SP[a2, a3], n] + 
    S2[a3, n]*S2[a1, a1, a2, n] + S2[a2, n]*S2[a1, a1, a3, n] - 
    S2[SP[a1, a1], a2, a3, n] - S2[SP[a1, a1], a3, a2, n] + 
    S2[SP[a1, a2], a1, a3, n] + S2[SP[a1, a3], a1, a2, n] - 
    S2[a3, a1, a1, a2, n] /; MyMemberQ[{{a2, a3}}, {a1, a1, a2, a3}] && 
    a1 != a2 != a3, S2[a2_, a1_, a3_, a1_, n_] :> 
  S2[a1, a2, n]*S2[a1, a3, n] - S2[SP[a1, a1], SP[a2, a3], n] - 
    2*S2[a2, n]*S2[a1, a1, a3, n] - S2[a1, SP[a1, a2], a3, n] + 
    S2[a1, SP[a1, a3], a2, n] + S2[a1, n]*S2[a2, a1, a3, n] + 
    S2[a2, a1, SP[a1, a3], n] + S2[a2, SP[a1, a1], a3, n] - 
    S2[a1, n]*S2[a3, a1, a2, n] - S2[a3, a1, SP[a1, a2], n] - 
    S2[a3, SP[a1, a1], a2, n] + S2[SP[a1, a1], a2, a3, n] + 
    S2[SP[a1, a1], a3, a2, n] - S2[SP[a1, a2], a1, a3, n] - 
    S2[SP[a1, a3], a1, a2, n] + 2*S2[a3, a1, a1, a2, n] + 
    S2[a3, a1, a2, a1, n] /; MyMemberQ[{{a2, a3}}, {a1, a1, a2, a3}] && 
    a1 != a2 != a3, S2[a2_, a3_, a1_, a1_, n_] :> 
  S2[a2, n]*S2[a1, a1, a3, n] + S2[a1, a1, SP[a2, a3], n] - 
    (S2[a1, n]*S2[a1, a2, a3, n])/2 - S2[a1, a2, SP[a1, a3], n]/2 - 
    (S2[a1, n]*S2[a1, a3, a2, n])/2 - S2[a1, a3, SP[a1, a2], n]/2 + 
    S2[a1, SP[a1, a2], a3, n]/2 - S2[a1, SP[a1, a3], a2, n]/2 - 
    (S2[a1, n]*S2[a2, a1, a3, n])/2 - S2[a2, a1, SP[a1, a3], n]/2 + 
    (S2[a1, n]*S2[a2, a3, a1, n])/2 + S2[a2, a3, SP[a1, a1], n]/2 - 
    S2[a2, SP[a1, a1], a3, n]/2 + S2[a2, SP[a1, a3], a1, n]/2 + 
    (S2[a1, n]*S2[a3, a1, a2, n])/2 + S2[a3, a1, SP[a1, a2], n]/2 + 
    (S2[a1, n]*S2[a3, a2, a1, n])/2 + S2[a3, a2, SP[a1, a1], n]/2 + 
    S2[a3, SP[a1, a1], a2, n]/2 + S2[a3, SP[a1, a2], a1, n]/2 - 
    S2[SP[a1, a1], a2, a3, n]/2 - S2[SP[a1, a1], a3, a2, n]/2 + 
    S2[SP[a1, a2], a1, a3, n]/2 + S2[SP[a1, a2], a3, a1, n]/2 + 
    S2[SP[a1, a3], a1, a2, n]/2 + S2[SP[a1, a3], a2, a1, n]/2 - 
    S2[a3, a1, a1, a2, n] - S2[a3, a1, a2, a1, n] - S2[a3, a2, a1, a1, n] /; 
   MyMemberQ[{{a2, a3}}, {a1, a1, a2, a3}] && a1 != a2 != a3, 
 S2[a1_, a2_, a3_, a4_, n_] :> S2[a1, a2, n]*S2[a3, a4, n] - 
    S2[SP[a1, a3], SP[a2, a4], n] + S2[a4, n]*S2[a1, a2, a3, n] - 
    S2[a3, n]*S2[a1, a2, a4, n] + S2[a1, a3, SP[a2, a4], n] - 
    S2[a3, n]*S2[a1, a4, a2, n] - S2[a1, a4, SP[a2, a3], n] + 
    S2[a1, SP[a2, a4], a3, n] - S2[a1, SP[a3, a4], a2, n] + 
    S2[a3, a1, SP[a2, a4], n] + S2[a3, SP[a1, a4], a2, n] - 
    S2[a3, n]*S2[a4, a1, a2, n] - S2[a4, a1, SP[a2, a3], n] + 
    S2[a1, n]*S2[a4, a3, a2, n] + S2[a4, a3, SP[a1, a2], n] + 
    S2[SP[a1, a4], a2, a3, n] + S2[SP[a1, a4], a3, a2, n] - 
    S2[SP[a3, a4], a1, a2, n] - S2[a4, a3, a2, a1, n] /; 
   MyMemberQ[{{a1, a2, a3, a4}}, {a1, a2, a3, a4}] && a1 != a2 != a3 != a4, 
 S2[a1_, a2_, a4_, a3_, n_] :> -(S2[a1, a2, n]*S2[a3, a4, n]) + 
    S2[SP[a1, a3], SP[a2, a4], n] + S2[a3, n]*S2[a1, a2, a4, n] + 
    S2[a1, a2, SP[a3, a4], n] - S2[a1, a3, SP[a2, a4], n] + 
    S2[a3, n]*S2[a1, a4, a2, n] + S2[a1, a4, SP[a2, a3], n] + 
    S2[a1, SP[a3, a4], a2, n] - S2[a3, a1, SP[a2, a4], n] - 
    S2[a3, SP[a1, a4], a2, n] + S2[a3, n]*S2[a4, a1, a2, n] + 
    S2[a4, a1, SP[a2, a3], n] - S2[a1, n]*S2[a4, a2, a3, n] - 
    S2[a4, a2, SP[a1, a3], n] - S2[a1, n]*S2[a4, a3, a2, n] - 
    S2[a4, a3, SP[a1, a2], n] - S2[a4, SP[a1, a2], a3, n] - 
    S2[SP[a1, a4], a2, a3, n] - S2[SP[a1, a4], a3, a2, n] + 
    S2[SP[a3, a4], a1, a2, n] + S2[a4, a2, a1, a3, n] + 
    S2[a4, a2, a3, a1, n] + S2[a4, a3, a2, a1, n] /; 
   MyMemberQ[{{a1, a2, a3, a4}}, {a1, a2, a3, a4}] && a1 != a2 != a3 != a4, 
 S2[a1_, a3_, a2_, a4_, n_] :> S2[a1, a3, n]*S2[a2, a4, n] - 
    S2[SP[a1, a2], SP[a3, a4], n] + S2[a1, a2, SP[a3, a4], n] + 
    S2[a4, n]*S2[a1, a3, a2, n] - S2[a2, n]*S2[a1, a3, a4, n] - 
    S2[a2, n]*S2[a1, a4, a3, n] - S2[a1, a4, SP[a2, a3], n] - 
    S2[a1, SP[a2, a4], a3, n] + S2[a1, SP[a3, a4], a2, n] + 
    S2[a2, a1, SP[a3, a4], n] + S2[a2, SP[a1, a4], a3, n] - 
    S2[a2, n]*S2[a4, a1, a3, n] - S2[a4, a1, SP[a2, a3], n] + 
    S2[a1, n]*S2[a4, a2, a3, n] + S2[a4, a2, SP[a1, a3], n] + 
    S2[SP[a1, a4], a2, a3, n] + S2[SP[a1, a4], a3, a2, n] - 
    S2[SP[a2, a4], a1, a3, n] - S2[a4, a2, a3, a1, n] /; 
   MyMemberQ[{{a1, a2, a3, a4}}, {a1, a2, a3, a4}] && a1 != a2 != a3 != a4, 
 S2[a1_, a3_, a4_, a2_, n_] :> -(S2[a1, a3, n]*S2[a2, a4, n]) + 
    S2[SP[a1, a2], SP[a3, a4], n] - S2[a1, a2, SP[a3, a4], n] + 
    S2[a2, n]*S2[a1, a3, a4, n] + S2[a1, a3, SP[a2, a4], n] + 
    S2[a2, n]*S2[a1, a4, a3, n] + S2[a1, a4, SP[a2, a3], n] + 
    S2[a1, SP[a2, a4], a3, n] - S2[a2, a1, SP[a3, a4], n] - 
    S2[a2, SP[a1, a4], a3, n] + S2[a2, n]*S2[a4, a1, a3, n] + 
    S2[a4, a1, SP[a2, a3], n] - S2[a1, n]*S2[a4, a2, a3, n] - 
    S2[a4, a2, SP[a1, a3], n] - S2[a1, n]*S2[a4, a3, a2, n] - 
    S2[a4, a3, SP[a1, a2], n] - S2[a4, SP[a1, a3], a2, n] - 
    S2[SP[a1, a4], a2, a3, n] - S2[SP[a1, a4], a3, a2, n] + 
    S2[SP[a2, a4], a1, a3, n] + S2[a4, a2, a3, a1, n] + 
    S2[a4, a3, a1, a2, n] + S2[a4, a3, a2, a1, n] /; 
   MyMemberQ[{{a1, a2, a3, a4}}, {a1, a2, a3, a4}] && a1 != a2 != a3 != a4, 
 S2[a1_, a4_, a2_, a3_, n_] :> S2[a1, n]*S2[a4, a2, a3, n] + 
    S2[a4, a2, SP[a1, a3], n] + S2[a4, SP[a1, a2], a3, n] + 
    S2[SP[a1, a4], a2, a3, n] - S2[a4, a1, a2, a3, n] - 
    S2[a4, a2, a1, a3, n] - S2[a4, a2, a3, a1, n] /; 
   MyMemberQ[{{a1, a2, a3, a4}}, {a1, a2, a3, a4}] && a1 != a2 != a3 != a4, 
 S2[a1_, a4_, a3_, a2_, n_] :> S2[a1, n]*S2[a4, a3, a2, n] + 
    S2[a4, a3, SP[a1, a2], n] + S2[a4, SP[a1, a3], a2, n] + 
    S2[SP[a1, a4], a3, a2, n] - S2[a4, a1, a3, a2, n] - 
    S2[a4, a3, a1, a2, n] - S2[a4, a3, a2, a1, n] /; 
   MyMemberQ[{{a1, a2, a3, a4}}, {a1, a2, a3, a4}] && a1 != a2 != a3 != a4, 
 S2[a2_, a1_, a3_, a4_, n_] :> -(S2[a1, a2, n]*S2[a3, a4, n]) + 
    S2[SP[a1, a3], SP[a2, a4], n] - S2[a4, n]*S2[a1, a2, a3, n] + 
    S2[a3, n]*S2[a1, a2, a4, n] - S2[a4, n]*S2[a1, a3, a2, n] + 
    S2[a2, n]*S2[a1, a3, a4, n] - S2[a1, a3, SP[a2, a4], n] + 
    S2[a3, n]*S2[a1, a4, a2, n] + S2[a1, a4, SP[a2, a3], n] + 
    S2[a1, SP[a2, a3], a4, n] - S2[a1, SP[a2, a4], a3, n] - 
    S2[a3, a1, SP[a2, a4], n] - S2[a3, SP[a1, a4], a2, n] + 
    S2[a3, n]*S2[a4, a1, a2, n] + S2[a4, a1, SP[a2, a3], n] + 
    S2[a4, SP[a1, a3], a2, n] + S2[SP[a1, a2], a3, a4, n] - 
    S2[SP[a1, a4], a2, a3, n] - S2[SP[a1, a4], a3, a2, n] + 
    S2[SP[a3, a4], a1, a2, n] - S2[a4, a3, a1, a2, n] /; 
   MyMemberQ[{{a1, a2, a3, a4}}, {a1, a2, a3, a4}] && a1 != a2 != a3 != a4, 
 S2[a2_, a1_, a4_, a3_, n_] :> S2[a1, a2, n]*S2[a3, a4, n] - 
    S2[SP[a1, a3], SP[a2, a4], n] - S2[a3, n]*S2[a1, a2, a4, n] - 
    S2[a1, a2, SP[a3, a4], n] + S2[a1, a3, SP[a2, a4], n] - 
    S2[a3, n]*S2[a1, a4, a2, n] + S2[a2, n]*S2[a1, a4, a3, n] + 
    S2[a1, SP[a2, a4], a3, n] - S2[a1, SP[a3, a4], a2, n] + 
    S2[a3, a1, SP[a2, a4], n] + S2[a3, SP[a1, a4], a2, n] - 
    S2[a3, n]*S2[a4, a1, a2, n] - S2[a4, a1, SP[a2, a3], n] - 
    S2[a4, SP[a1, a3], a2, n] + S2[SP[a1, a2], a4, a3, n] - 
    S2[SP[a3, a4], a1, a2, n] + S2[a4, a1, a2, a3, n] + 
    S2[a4, a1, a3, a2, n] + S2[a4, a3, a1, a2, n] /; 
   MyMemberQ[{{a1, a2, a3, a4}}, {a1, a2, a3, a4}] && a1 != a2 != a3 != a4, 
 S2[a2_, a3_, a1_, a4_, n_] :> S2[a1, a4, n]*S2[a2, a3, n] - 
    S2[SP[a1, a2], SP[a3, a4], n] + S2[a1, a2, SP[a3, a4], n] + 
    S2[a4, n]*S2[a1, a3, a2, n] - S2[a2, n]*S2[a1, a3, a4, n] - 
    S2[a2, n]*S2[a1, a4, a3, n] - S2[a1, a4, SP[a2, a3], n] - 
    S2[a1, SP[a2, a3], a4, n] + S2[a1, SP[a3, a4], a2, n] + 
    S2[a2, a1, SP[a3, a4], n] + S2[a2, SP[a1, a3], a4, n] + 
    S2[SP[a1, a4], a3, a2, n] - S2[a4, a1, a3, a2, n] /; 
   MyMemberQ[{{a1, a2, a3, a4}}, {a1, a2, a3, a4}] && a1 != a2 != a3 != a4, 
 S2[a2_, a3_, a4_, a1_, n_] :> -(S2[a1, a4, n]*S2[a2, a3, n]) + 
    S2[SP[a1, a2], SP[a3, a4], n] - S2[a1, a2, SP[a3, a4], n] + 
    S2[a2, n]*S2[a1, a4, a3, n] + S2[a1, a4, SP[a2, a3], n] - 
    S2[a2, a1, SP[a3, a4], n] + S2[a1, n]*S2[a2, a3, a4, n] + 
    S2[a2, a3, SP[a1, a4], n] - S2[a1, n]*S2[a4, a3, a2, n] - 
    S2[a4, a3, SP[a1, a2], n] - S2[a4, SP[a1, a3], a2, n] - 
    S2[SP[a1, a4], a3, a2, n] + S2[a4, a1, a3, a2, n] + 
    S2[a4, a3, a1, a2, n] + S2[a4, a3, a2, a1, n] /; 
   MyMemberQ[{{a1, a2, a3, a4}}, {a1, a2, a3, a4}] && a1 != a2 != a3 != a4, 
 S2[a2_, a4_, a1_, a3_, n_] :> S2[a2, n]*S2[a4, a1, a3, n] + 
    S2[a4, a1, SP[a2, a3], n] + S2[a4, SP[a1, a2], a3, n] + 
    S2[SP[a2, a4], a1, a3, n] - S2[a4, a1, a2, a3, n] - 
    S2[a4, a1, a3, a2, n] - S2[a4, a2, a1, a3, n] /; 
   MyMemberQ[{{a1, a2, a3, a4}}, {a1, a2, a3, a4}] && a1 != a2 != a3 != a4, 
 S2[a2_, a4_, a3_, a1_, n_] :> -(S2[a2, n]*S2[a1, a4, a3, n]) - 
    S2[a1, a4, SP[a2, a3], n] - S2[a1, SP[a2, a4], a3, n] + 
    S2[a1, n]*S2[a2, a4, a3, n] + S2[a2, a4, SP[a1, a3], n] + 
    S2[a2, SP[a1, a4], a3, n] - S2[a2, n]*S2[a4, a1, a3, n] - 
    S2[a4, a1, SP[a2, a3], n] + S2[a1, n]*S2[a4, a2, a3, n] + 
    S2[a4, a2, SP[a1, a3], n] + S2[a1, n]*S2[a4, a3, a2, n] + 
    S2[a4, a3, SP[a1, a2], n] + S2[a4, SP[a1, a3], a2, n] + 
    S2[SP[a1, a4], a2, a3, n] + S2[SP[a1, a4], a3, a2, n] - 
    S2[SP[a2, a4], a1, a3, n] - S2[a4, a2, a3, a1, n] - 
    S2[a4, a3, a1, a2, n] - S2[a4, a3, a2, a1, n] /; 
   MyMemberQ[{{a1, a2, a3, a4}}, {a1, a2, a3, a4}] && a1 != a2 != a3 != a4, 
 S2[a3_, a1_, a2_, a4_, n_] :> -(S2[a1, a3, n]*S2[a2, a4, n]) + 
    S2[SP[a1, a2], SP[a3, a4], n] - S2[a4, n]*S2[a1, a2, a3, n] + 
    S2[a3, n]*S2[a1, a2, a4, n] - S2[a1, a2, SP[a3, a4], n] - 
    S2[a4, n]*S2[a1, a3, a2, n] + S2[a2, n]*S2[a1, a3, a4, n] + 
    S2[a2, n]*S2[a1, a4, a3, n] + S2[a1, a4, SP[a2, a3], n] + 
    S2[a1, SP[a2, a3], a4, n] - S2[a1, SP[a3, a4], a2, n] - 
    S2[a2, a1, SP[a3, a4], n] - S2[a2, SP[a1, a4], a3, n] + 
    S2[a2, n]*S2[a4, a1, a3, n] + S2[a4, a1, SP[a2, a3], n] + 
    S2[a4, SP[a1, a2], a3, n] + S2[SP[a1, a3], a2, a4, n] - 
    S2[SP[a1, a4], a2, a3, n] - S2[SP[a1, a4], a3, a2, n] + 
    S2[SP[a2, a4], a1, a3, n] - S2[a4, a2, a1, a3, n] /; 
   MyMemberQ[{{a1, a2, a3, a4}}, {a1, a2, a3, a4}] && a1 != a2 != a3 != a4, 
 S2[a3_, a1_, a4_, a2_, n_] :> S2[a1, a3, n]*S2[a2, a4, n] - 
    S2[SP[a1, a2], SP[a3, a4], n] + S2[a1, a2, SP[a3, a4], n] - 
    S2[a2, n]*S2[a1, a3, a4, n] - S2[a1, a3, SP[a2, a4], n] + 
    S2[a3, n]*S2[a1, a4, a2, n] - S2[a2, n]*S2[a1, a4, a3, n] - 
    S2[a1, SP[a2, a4], a3, n] + S2[a1, SP[a3, a4], a2, n] + 
    S2[a2, a1, SP[a3, a4], n] + S2[a2, SP[a1, a4], a3, n] - 
    S2[a2, n]*S2[a4, a1, a3, n] - S2[a4, a1, SP[a2, a3], n] - 
    S2[a4, SP[a1, a2], a3, n] + S2[SP[a1, a3], a4, a2, n] - 
    S2[SP[a2, a4], a1, a3, n] + S2[a4, a1, a2, a3, n] + 
    S2[a4, a1, a3, a2, n] + S2[a4, a2, a1, a3, n] /; 
   MyMemberQ[{{a1, a2, a3, a4}}, {a1, a2, a3, a4}] && a1 != a2 != a3 != a4, 
 S2[a3_, a2_, a1_, a4_, n_] :> -(S2[a1, a4, n]*S2[a2, a3, n]) + 
    S2[SP[a1, a2], SP[a3, a4], n] + S2[a4, n]*S2[a1, a2, a3, n] - 
    S2[a3, n]*S2[a1, a2, a4, n] - S2[a1, a2, SP[a3, a4], n] + 
    S2[a2, n]*S2[a1, a3, a4, n] + S2[a1, a3, SP[a2, a4], n] - 
    S2[a3, n]*S2[a1, a4, a2, n] + S2[a2, n]*S2[a1, a4, a3, n] + 
    S2[a1, SP[a2, a4], a3, n] - S2[a1, SP[a3, a4], a2, n] - 
    S2[a2, a1, SP[a3, a4], n] - S2[a2, SP[a1, a3], a4, n] + 
    S2[a2, n]*S2[a3, a1, a4, n] + S2[a3, a1, SP[a2, a4], n] + 
    S2[a3, SP[a1, a2], a4, n] - S2[SP[a1, a3], a2, a4, n] - 
    S2[SP[a1, a3], a4, a2, n] + S2[SP[a1, a4], a2, a3, n] + 
    S2[SP[a2, a3], a1, a4, n] - S2[a4, a1, a2, a3, n] /; 
   MyMemberQ[{{a1, a2, a3, a4}}, {a1, a2, a3, a4}] && a1 != a2 != a3 != a4, 
 S2[a3_, a2_, a4_, a1_, n_] :> S2[a1, a4, n]*S2[a2, a3, n] - 
    S2[SP[a1, a2], SP[a3, a4], n] + S2[a1, a2, SP[a3, a4], n] - 
    S2[a2, n]*S2[a1, a3, a4, n] - S2[a1, a3, SP[a2, a4], n] + 
    S2[a3, n]*S2[a1, a4, a2, n] - S2[a2, n]*S2[a1, a4, a3, n] - 
    S2[a1, SP[a2, a3], a4, n] + S2[a1, SP[a3, a4], a2, n] + 
    S2[a2, a1, SP[a3, a4], n] + S2[a2, SP[a1, a3], a4, n] - 
    S2[a2, n]*S2[a3, a1, a4, n] - S2[a3, a1, SP[a2, a4], n] + 
    S2[a1, n]*S2[a3, a2, a4, n] + S2[a3, a2, SP[a1, a4], n] - 
    S2[a1, n]*S2[a4, a2, a3, n] - S2[a4, a2, SP[a1, a3], n] - 
    S2[a4, SP[a1, a2], a3, n] + S2[SP[a1, a3], a2, a4, n] + 
    S2[SP[a1, a3], a4, a2, n] - S2[SP[a1, a4], a2, a3, n] - 
    S2[SP[a2, a3], a1, a4, n] + S2[a4, a1, a2, a3, n] + 
    S2[a4, a2, a1, a3, n] + S2[a4, a2, a3, a1, n] /; 
   MyMemberQ[{{a1, a2, a3, a4}}, {a1, a2, a3, a4}] && a1 != a2 != a3 != a4, 
 S2[a3_, a4_, a1_, a2_, n_] :> S2[a3, n]*S2[a4, a1, a2, n] + 
    S2[a4, a1, SP[a2, a3], n] + S2[a4, SP[a1, a3], a2, n] + 
    S2[SP[a3, a4], a1, a2, n] - S2[a4, a1, a2, a3, n] - 
    S2[a4, a1, a3, a2, n] - S2[a4, a3, a1, a2, n] /; 
   MyMemberQ[{{a1, a2, a3, a4}}, {a1, a2, a3, a4}] && a1 != a2 != a3 != a4, 
 S2[a3_, a4_, a2_, a1_, n_] :> -(S2[a3, n]*S2[a1, a4, a2, n]) - 
    S2[a1, a4, SP[a2, a3], n] - S2[a1, SP[a3, a4], a2, n] + 
    S2[a1, n]*S2[a3, a4, a2, n] + S2[a3, a4, SP[a1, a2], n] + 
    S2[a3, SP[a1, a4], a2, n] - S2[a3, n]*S2[a4, a1, a2, n] - 
    S2[a4, a1, SP[a2, a3], n] + S2[a1, n]*S2[a4, a2, a3, n] + 
    S2[a4, a2, SP[a1, a3], n] + S2[a1, n]*S2[a4, a3, a2, n] + 
    S2[a4, a3, SP[a1, a2], n] + S2[a4, SP[a1, a2], a3, n] + 
    S2[SP[a1, a4], a2, a3, n] + S2[SP[a1, a4], a3, a2, n] - 
    S2[SP[a3, a4], a1, a2, n] - S2[a4, a2, a1, a3, n] - 
    S2[a4, a2, a3, a1, n] - S2[a4, a3, a2, a1, n] /; 
   MyMemberQ[{{a1, a2, a3, a4}}, {a1, a2, a3, a4}] && a1 != a2 != a3 != a4}
