Finally. Typset document at http://www.jjj.de/lambert-paper/ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%% \section{Gosper's matrix form of Clausen's identity} % \jjfile{gosper-path-invariant.gp} % Gosper defines \cite{Gosper-mathfun} matrices $K(k,n)$ and $N(k,n)$ as % \[ %% rwg: % {k, {{q^(1 + 2*k + n), -((q*(-1 + q^(2*k + n)))/((-1 + q^k)*(-1 + q^(k +n))))}, {0, 1}}}, %% jj: % Km(k,n)={ [ q^(n+2*k+1), q*(1-q^(2*k+n))/( (1-q^(k)) * (1-q^(k+n)) ) ; 0, 1 ]; } K(k,n)= \begin{bmatrix} q^{n+2k+1} & {q\,(1-q^{2k+n})}/{\left((1-q^k) \, (1-q^{k+n})\right)} \\ 0 & 1 \end{bmatrix} \] % \[ %% rwg: % {n, {{q^k, q/(1 - q^(k + n))}, {0, 1}}} %% jj: % Nm(k,n)={ [ q^(k), q/(1-q^(k+n)); 0, 1 ]; } N(k,m)= \begin{bmatrix} q^{k} & {q}/{(1-q^{k+n})} \\ 0 & 1 \end{bmatrix} \] % These matrices satisfy \[ %% rwg: % handy invariance checker % Nm(k,n) Km(k,n+1) = Km(k,n) Nm(k+1,n), %% jj: % Nm(k,n)*Km(k,n+1) - Km(k,n)*Nm(k+1,n) \\ == zero, OK N(k,n) \cdot K(k,n+1) = K(k,n) \cdot N(k+1,n) \] % Writing $K(\infty,n)$ for $\lim_{k\to\infty}{K(k,n)}$ and $K(k,\infty)$ for $\lim_{n\to\infty}{K(k,n)}$ we obtain \eqref{rel:clausen-lambert} as upper right entries on both sides of \[ %% rwg: % MProd[[N] /. k -> 1, {n, 0, oo}] . MProd[Limit[[K], n -> oo], {k, 1, oo}] %% jj: % Ln = prod(n=0,N, Nm(1,n) ) \\ == [0, Lam; 0, 1] % Lk = prod(k=1,N, Km(k,oo) ) \\ == [0, 1; 0, 1]] % L = Ln * Lk \\ == [0, Lam; 0, 1] \\ OK \prod_{n\geq{}0}{N(1,n)} \cdot \prod_{k\geq{}1}{K(k,\infty)} = % == %% rwg: % MProd[[K] /. n -> 0, {k, 1, oo}] . MProd[Limit[[N], k -> oo], {n, 0, oo}]] %% jj: % Rk = prod(k=1,N, Km(k,0) ) \\ == [0, Lam; 0, 1] % Rn = prod(n=0,N, Nm(oo,n) ) \\ == [0, q; 0, 1] % R = Rk * Rn \\ [0, Lam; 0, 1] \\ OK \prod_{k\geq{}1}{K(k,0)} \cdot \prod_{n\geq{}0}{N(\infty,n)} % % d = L - R \\ == zero \] %%%%%%%%%%%%%%%%%%%%%