funext b
α : Type u_1
β : α → Type u_2
inst✝⁴ : Primcodable α
inst✝³ : (a : α) → Fintype (β a)
inst✝² : (a : α) → DecidableEq (β a)
inst✝¹ : (a : α) → Primcodable (β a)
inst✝ : PrimrecCard β
a : α
f : β a → WType β
⊢ (fun b => encode (SubWType.ofWType (f b) (Finset.univ.sup fun n => (f n).depth) ⋯)) = fun b =>
    encode (SubWType.ofWType (f b) (f b).depth ⋯)
case h
α : Type u_1
β : α → Type u_2
inst✝⁴ : Primcodable α
inst✝³ : (a : α) → Fintype (β a)
inst✝² : (a : α) → DecidableEq (β a)
inst✝¹ : (a : α) → Primcodable (β a)
inst✝ : PrimrecCard β
a : α
f : β a → WType β
b : β a
⊢ encode (SubWType.ofWType (f b) (Finset.univ.sup fun n => (f n).depth) ⋯) =
    encode (SubWType.ofWType (f b) (f b).depth ⋯)