[step:Show the equivalence problem for type 0 grammars is unsolvable]Define the register-machine analogue of $\operatorname{EqGram}$:
\begin{align*}
\operatorname{Eq} &:= \{(w, v) \in \mathbb{W}^2 : W_w = W_v\}.
\end{align*}
We show $\operatorname{Eq}$ is not computable, then transfer the result to $\operatorname{EqGram}$ via $\delta$ (as in Step 3).
[claim:$\operatorname{Emp} \leq_m \operatorname{Eq}$]
Recall the empty-domain witness $e \in \mathbb{W}$ from Step 2, so $W_e = \varnothing$. Define
\begin{align*}
\alpha : \mathbb{W} &\to \mathbb{W}^2, \\
w &\mapsto (w, e).
\end{align*}
*$\alpha$ is total computable.* A register machine $M_\alpha$ takes $w$ in register $0$, copies it to register $0$ (identity, total computable by projection L0 of Step 3 of the proof of [Recursive Implies Computable](/theorems/1817)), and writes the constant $e$ to register $1$ (constant-function computability by L0). Halt. The result is the pair $(w, e)$; pairing is a total computable primitive (L2 of Step 4 of the proof of [Recursive Implies Computable](/theorems/1817)). Hence $\alpha$ is total computable.
*Reduction.* For every $w \in \mathbb{W}$,
\begin{align*}
w \in \operatorname{Emp} &\iff W_w = \varnothing \iff W_w = W_e \iff (w, e) \in \operatorname{Eq} \iff \alpha(w) \in \operatorname{Eq}.
\end{align*}
Hence $\alpha$ reduces $\operatorname{Emp}$ to $\operatorname{Eq}$.
[/claim]
Equivalently, writing $\mathbb{1}$ for indicators of the respective sets,
\begin{align*}
\mathbb{1}_{\operatorname{Emp}}(w) &= \mathbb{1}_{\operatorname{Eq}}(\alpha(w)) = \mathbb{1}_{\operatorname{Eq}}(w, e).
\end{align*}
By Step 2, $\operatorname{Emp}$ is not computable. If $\operatorname{Eq}$ were computable, then $\operatorname{Emp} \leq_m \operatorname{Eq}$ together with [Computable Sets Are Downward-Closed Under $\leq_m$](/theorems/???) would force $\operatorname{Emp}$ to be computable — a contradiction. Hence $\operatorname{Eq}$ is not computable.
*Transfer to grammars.* The same function $\delta$ from Step 3 converts $\operatorname{Eq}$ into $\operatorname{EqGram}$ coordinate-wise. Define
\begin{align*}
\beta : \mathbb{W}^2 &\to \mathbb{W}^2, \\
(w, v) &\mapsto (\delta(w), \delta(v)).
\end{align*}
$\beta$ is total computable (coordinate application of the total computable $\delta$, combined by pairing — L1, L2). For every $(w, v) \in \mathbb{W}^2$,
\begin{align*}
(w, v) \in \operatorname{Eq} &\iff W_w = W_v \iff \mathcal{L}(G_{\delta(w)}) = \mathcal{L}(G_{\delta(v)}) \iff \beta(w, v) \in \operatorname{EqGram}.
\end{align*}
Hence $\operatorname{Eq} \leq_m \operatorname{EqGram}$. By the same downward-closure argument, $\operatorname{EqGram}$ is not computable: the equivalence problem for type 0 grammars is unsolvable.[/step]