Pensieve Header: U(I2D) Results.

SetDirectory["C:\\drorbn\\AcademicPensieve\\2011-08\\w-Computations"];
<< "U(I2D)-Program.m"

r=T[{1,0,0,0},{0,0,1,0}] + T[{0,1,0,0},{0,0,0,1}];
ModDegree[3, TExp[r]]

ModDegree[2,
R=TExp[r];
PutOn[3, {1,2}, R]**PutOn[3, {1,3}, R]**PutOn[3, {2,3}, R]
]

ModDegree[6,
R=TExp[r];
PutOn[3, {1,2}, R]**PutOn[3, {1,3}, R]**PutOn[3, {2,3}, R] - PutOn[3, {2,3}, R]**PutOn[3, {1,3}, R]**PutOn[3, {1,2}, R]
]

ModDegree[6,
R=TExp[r];
PutOn[3, {1,2}, R]**PutOn[3, {1,3}, R] - PutOn[3, {1,3}, R]**PutOn[3, {1,2}, R]
]