simp[depth]
α : Type u_1
β : α → Type u_2
inst✝⁴ : Primcodable α
inst✝³ : (a : α) → Fintype (β a)
inst✝² : (a : α) → DecidableEq (β a)
inst✝¹ : (a : α) → Primcodable (β a)
inst✝ : PrimrecCard β
s e : ℕ
x : (a : α) × (β a → SubWType β s)
⊢ (WType.mk x.fst fun b => ↑(x.snd b)).depth ≤ s + 1
no goals