Ring maps are still not working correctly for ring maps between Weyl algebras and polynomial rings:
needsPackage "WeylAlgebras"
D = QQ[x,y,dx,dy, WeylAlgebra => {x => dx, y => dy}]
-- the associated graded ring is commutative
R = (extractVarsAlgebra D) (monoid[D.dpairVars#1])
x_D * dx_D
sub(x_D * dx_D, R) -- good
x_R * dx_R
sub(x_R * dx_R, D) -- bad: x*dx + 1
cc: @mikestillman @antonleykin
(this doesn't have anything to do with non-associative algebras, but also cc @moorewf just in case you have any ideas)