i1 : marginMap(1,markovRing(3,2))
o1 = map(QQ[p , p , p , p , p , p ],QQ[p , p , p , p , p , p ],{p - p - p , p - p - p , p , p , p , p })
1,1 1,2 2,1 2,2 3,1 3,2 1,1 1,2 2,1 2,2 3,1 3,2 1,1 2,1 3,1 1,2 2,2 3,2 2,1 2,2 3,1 3,2
o1 : RingMap QQ[p , p , p , p , p , p ] <--- QQ[p , p , p , p , p , p ]
1,1 1,2 2,1 2,2 3,1 3,2 1,1 1,2 2,1 2,2 3,1 3,2
|