$\operatorname{LMOpGCRD}(S, x, M, b)$
libname := libname, FileTools:-JoinPath(["maple","lib","dcfun.mla"],base=homedir):
with(dcfun):
We compute the greatest common right divisor of two linear Mahler operators.
L1 := LMOpLCLM([ 1- x*M, x^2 - M], x, M, 3);
$$x^{3} M^{2}+\left(-x^{9}-x^{6}-x^{3}-1\right) M +x^{8}+x^{5}+x^{2}$$
L2 := LMOpLCLM([1 - x*M, x^3 - M^2], x, M, 3);
$$x^{9} M^{3}+\left(-x^{14}-x^{7}-1\right) M^{2}-x^{18} M +x^{17}+x^{10}+x^{3}$$
LMOpGCRD([L1, L2], x, M, 3);
$$-M x +1$$