have : Primrec (fun t => WType.mk (i t) Empty.elim) :=
  w_mk₀ (β := Edge L μ) i (by intros; exact instIsEmptyEmpty) this
L : Language
μ : Type v
inst✝⁴ : (k : ℕ) → Primcodable (L.Func k)
inst✝³ : (k : ℕ) → Primcodable (L.Rel k)
inst✝² : UniformlyPrimcodable L.Func
inst✝¹ : UniformlyPrimcodable L.Rel
inst✝ : Primcodable μ
i : (k : ℕ) × L.Rel k × (Fin k → UTerm L μ) → Node L μ := fun t => (false, Sum.inl t)
this : Primrec i
⊢ Primrec fun p => nrel p.snd.1 p.snd.2
L : Language
μ : Type v
inst✝⁴ : (k : ℕ) → Primcodable (L.Func k)
inst✝³ : (k : ℕ) → Primcodable (L.Rel k)
inst✝² : UniformlyPrimcodable L.Func
inst✝¹ : UniformlyPrimcodable L.Rel
inst✝ : Primcodable μ
i : (k : ℕ) × L.Rel k × (Fin k → UTerm L μ) → Node L μ := fun t => (false, Sum.inl t)
this✝ : Primrec i
this : Primrec fun t => WType.mk (i t) Empty.elim
⊢ Primrec fun p => nrel p.snd.1 p.snd.2