rintro ⟨k, r, v⟩
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 ⋯
⊢ ∀ (n_1 : (k : ℕ) × L.Rel k × (Fin k → Semiterm L μ n)),
    encode n_1 = encode ⟨n_1.fst, (n_1.snd.1, fun i => ↑(subtEquiv (n_1.snd.2 i)))⟩
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 ⋯
k : ℕ
r : L.Rel k
v : Fin k → Semiterm L μ n
⊢ encode ⟨k, (r, v)⟩ = encode ⟨⟨k, (r, v)⟩.fst, (⟨k, (r, v)⟩.snd.1, fun i => ↑(subtEquiv (⟨k, (r, v)⟩.snd.2 i)))⟩