rintro ⟨⟨k, f⟩, l⟩
L : Language
μ : Type v
α : Type u_1
inst✝⁵ : Primcodable α
inst✝⁴ : Primcodable μ
inst✝³ : (k : ℕ) → Primcodable (L.Func k)
inst✝² : UniformlyPrimcodable L.Func
inst✝¹ : (k : ℕ) → Primcodable (L.Rel k)
inst✝ : UniformlyPrimcodable L.Rel
n : ℕ
this✝ : (n : ℕ) → Primcodable { t // t.bv ≤ n } := fun n => Primcodable.subtype ⋯
this : Primrec₂ fun f v => UFormula.relL f (List.map (fun x => ↑(subtEquiv x)) v)
⊢ ∀ (n_1 : ((k : ℕ) × L.Rel k) × List (Semiterm L μ n)),
    encode ((fun f v => UFormula.relL f (List.map (fun x => ↑(subtEquiv x)) v)) n_1.1 n_1.2) = encode (relL n_1.1 n_1.2)
case mk.mk
L : Language
μ : Type v
α : Type u_1
inst✝⁵ : Primcodable α
inst✝⁴ : Primcodable μ
inst✝³ : (k : ℕ) → Primcodable (L.Func k)
inst✝² : UniformlyPrimcodable L.Func
inst✝¹ : (k : ℕ) → Primcodable (L.Rel k)
inst✝ : UniformlyPrimcodable L.Rel
n : ℕ
this✝ : (n : ℕ) → Primcodable { t // t.bv ≤ n } := fun n => Primcodable.subtype ⋯
this : Primrec₂ fun f v => UFormula.relL f (List.map (fun x => ↑(subtEquiv x)) v)
l : List (Semiterm L μ n)
k : ℕ
f : L.Rel k
⊢ encode ((fun f v => UFormula.relL f (List.map (fun x => ↑(subtEquiv x)) v)) (⟨k, f⟩, l).1 (⟨k, f⟩, l).2) =
    encode (relL (⟨k, f⟩, l).1 (⟨k, f⟩, l).2)