funext
case mk
α : 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 β
⊢ (fintypeArrowEquivFinArrow.symm fun i => f (fintypeEquivFin.symm i)) = f
case mk.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 β
x✝ : β a
⊢ fintypeArrowEquivFinArrow.symm (fun i => f (fintypeEquivFin.symm i)) x✝ = f x✝