[step:Factor diagonal inverse blocks into elementary block matrices]
Let $A\in GL_n(R)$, and write $I_n$ for the identity matrix in $GL_n(R)$. Regard $R^n\oplus R^n$ as the ambient module for the corresponding block automorphisms, and define
\begin{align*}
U_A: R^n\oplus R^n \to R^n\oplus R^n, \qquad (x,y)\mapsto (x+Ay,y).
\end{align*}
\begin{align*}
L_A: R^n\oplus R^n \to R^n\oplus R^n, \qquad (x,y)\mapsto (x,y-A^{-1}x).
\end{align*}
\begin{align*}
W: R^n\oplus R^n \to R^n\oplus R^n, \qquad (x,y)\mapsto (-y,x).
\end{align*}
These maps are the usual upper block transvection, lower block transvection, and block rotation. Their composite acts by
\begin{align*}
U_A L_A U_A W(x,y)=U_A L_A U_A(-y,x)=U_A L_A(-y+Ax,x)=U_A(-y+Ax,A^{-1}y)=(Ax,A^{-1}y).
\end{align*}
Therefore this composite is exactly $\operatorname{diag}(A,A^{-1})$ on $R^n\oplus R^n$:
\begin{align*}
U_A L_A U_A W=\operatorname{diag}(A,A^{-1}).
\end{align*}
Write $A=(a_{pq})_{1\le p,q\le n}$ and $-A^{-1}=(b_{pq})_{1\le p,q\le n}$. The upper map $U_A$ factors as the product, over all entries $a_{pq}$ of $A$, of elementary transvections adding $a_{pq}$ times the $(n+q)$-th coordinate to the $p$-th coordinate. These transvections commute with each other because they all go from the second block to the first block. Similarly, $L_A$ factors as the product, over all entries $b_{pq}$ of $-A^{-1}$, of elementary transvections adding $b_{pq}$ times the $p$-th coordinate to the $(n+q)$-th coordinate. Hence $U_A,L_A\in E(R)$.
It remains only to see that $W\in E(R)$. Applying the displayed identity with $A=I_n$ gives $U_{I_n}L_{I_n}U_{I_n}W=I_{2n}$. Since $U_{I_n}$ and $L_{I_n}$ lie in $E(R)$, their product is in $E(R)$, and so
\begin{align*}
W=(U_{I_n}L_{I_n}U_{I_n})^{-1}\in E(R).
\end{align*}
Thus $U_A L_A U_A W$ is a product of elements of $E(R)$, and hence
\begin{align*}
\operatorname{diag}(A,A^{-1})\in E(R).
\end{align*}
[/step]