-- -*- M2-comint -*- {* hash: -1368977685 *} i1 : R = QQ[x_1,x_2,D_1,D_2,WeylAlgebra=>{x_1=>D_1,x_2=>D_2}] o1 = R o1 : PolynomialRing i2 : I = ideal(x_1, D_2-1) o2 = ideal (x , D - 1) 1 2 o2 : Ideal of R i3 : Drestriction(I,{1,0}) o3 = HashTable{0 => 0 } 1 => cokernel | D_2-1 | o3 : HashTable i4 :