rcases w₁ with ⟨w₁, h₁⟩
α : Type u_1
β : α → Type u_2
inst✝⁴ : Primcodable α
inst✝³ : (a : α) → Fintype (β a)
inst✝² : (a : α) → DecidableEq (β a)
inst✝¹ : (a : α) → Primcodable (β a)
inst✝ : PrimrecCard β
s : ℕ
w₁ w₂ : SubWType β s
⊢ ↑w₁ = ↑w₂ → w₁ = w₂
case mk
α : Type u_1
β : α → Type u_2
inst✝⁴ : Primcodable α
inst✝³ : (a : α) → Fintype (β a)
inst✝² : (a : α) → DecidableEq (β a)
inst✝¹ : (a : α) → Primcodable (β a)
inst✝ : PrimrecCard β
s : ℕ
w₂ : SubWType β s
w₁ : WType β
h₁ : w₁.depth ≤ s
⊢ ↑⟨w₁, h₁⟩ = ↑w₂ → ⟨w₁, h₁⟩ = w₂