$\operatorname{LMOpNormalization}(L, x, M, b)$
libname := libname, FileTools:-JoinPath(["maple","lib","dcfun.mla"],base=homedir):
with(dcfun):
We define a linear Mahler operator $L$ with positive valuation.
b := 2;
$$2$$
L := (9*x^40+9*x^39-3*x^38-3*x^37+9*x^34+9*x^33+3*x^32-6*x^31-11*x^30-11*x^29+12*x^27+6*x^26+6*x^25+7*x^24-2*x^23+x^22+x^21-3*x^20-4*x^19-3*x^18-3*x^17-3*x^16+x^15+x^14+x^13+x^12)*M^3+(-9*x^38-9*x^37+3*x^36+3*x^35+3*x^34+3*x^33-10*x^32-10*x^31-6*x^30-6*x^29+6*x^28+6*x^27-7*x^26-7*x^25-7*x^24-7*x^23-3*x^22-3*x^21-4*x^20-4*x^19-4*x^18-4*x^17-4*x^16-4*x^15-4*x^14-4*x^13-4*x^12+5*x^11+5*x^10+5*x^9+5*x^8+2*x^7+2*x^6+2*x^5+2*x^4-x^3-x^2-x-1)*M^2+(9*x^28+9*x^27+6*x^26+6*x^25-6*x^24-6*x^23-2*x^22-2*x^21+10*x^20+10*x^19+6*x^18+6*x^17+3*x^16+3*x^15+4*x^14+4*x^13+4*x^12+4*x^11-5*x^10-5*x^9-2*x^8-2*x^7-2*x^6-2*x^5-2*x^4-2*x^3+x^2+x)*M;
$$\left(9 x^{40}+9 x^{39}-3 x^{38}-3 x^{37}+9 x^{34}+9 x^{33}+3 x^{32}-6 x^{31}-11 x^{30}-11 x^{29}+12 x^{27}+6 x^{26}+6 x^{25}+7 x^{24}-2 x^{23}+x^{22}+x^{21}-3 x^{20}-4 x^{19}-3 x^{18}-3 x^{17}-3 x^{16}+x^{15}+x^{14}+x^{13}+x^{12}\right) M^{3}+\left(-9 x^{38}-9 x^{37}+3 x^{36}+3 x^{35}+3 x^{34}+3 x^{33}-10 x^{32}-10 x^{31}-6 x^{30}-6 x^{29}+6 x^{28}+6 x^{27}-7 x^{26}-7 x^{25}-7 x^{24}-7 x^{23}-3 x^{22}-3 x^{21}-4 x^{20}-4 x^{19}-4 x^{18}-4 x^{17}-4 x^{16}-4 x^{15}-4 x^{14}-4 x^{13}-4 x^{12}+5 x^{11}+5 x^{10}+5 x^{9}+5 x^{8}+2 x^{7}+2 x^{6}+2 x^{5}+2 x^{4}-x^{3}-x^{2}-x -1\right) M^{2}+\left(9 x^{28}+9 x^{27}+6 x^{26}+6 x^{25}-6 x^{24}-6 x^{23}-2 x^{22}-2 x^{21}+10 x^{20}+10 x^{19}+6 x^{18}+6 x^{17}+3 x^{16}+3 x^{15}+4 x^{14}+4 x^{13}+4 x^{12}+4 x^{11}-5 x^{10}-5 x^{9}-2 x^{8}-2 x^{7}-2 x^{6}-2 x^{5}-2 x^{4}-2 x^{3}+x^{2}+x \right) M$$
r, d := degree(L, M), degree(L, x);
$$3, 40$$
ldegree(L, M);
$$1$$
We compute its nullspace in the space of formal Laurent series.
LMOpSolve(L, x, M, b, output = 'laurentseries', free = K);
$$K_{1} x^{-3}-K_{1} x^{-2}+K_{1}-K_{1} x +K_{1} x^{3}-K_{1} x^{4}+K_{1} x^{6}+\mathrm{O}\! \left(x^{7}\right)$$
We `normalize' it into a new operator with valuation $0$.
newL := LMOpNormalization(L, x, M, b);
$$-M \,x^{5}+x^{4} M -M \,x^{3}+1$$
We compute the nullspace of ${\mathit newL}$ for comparison.
LMOpSolve(newL, x, M, b, output = 'laurentseries', free = K);
$$K_{1} x^{-3}-K_{1} x^{-2}+K_{1}-K_{1} x +K_{1} x^{3}-K_{1} x^{4}+K_{1} x^{6}+\mathrm{O}\! \left(x^{7}\right)$$