TensorMat(M:Mat, N:Mat):MAT
Use R ::= Q[x,y,z,w]; TensorMat(Mat([[1,-1],[2,-2],[3,-3]]),Mat([[x,y],[z,w]])); Mat[ [x, y, -x, -y], [z, w, -z, -w], [2x, 2y, -2x, -2y], [2z, 2w, -2z, -2w], [3x, 3y, -3x, -3y], [3z, 3w, -3z, -3w] ] -------------------------------