-- -*- M2-comint -*- {* hash: 404774985 *} i1 : W = QQ[x, D, WeylAlgebra=>{x=>D}] o1 = W o1 : PolynomialRing i2 : M = W^1/ideal(D-1) o2 = cokernel | D-1 | 1 o2 : W-module, quotient of W i3 : N = W^1/ideal((D-1)^2) o3 = cokernel | D2-2D+1 | 1 o3 : W-module, quotient of W i4 : DHom(M,N) o4 = {| -xD+x+1 |, | -D+1 |} o4 : List i5 :