simp
case e_fγ.h
α : Type u_1
β : α → Type u_2
inst✝⁵ : Primcodable α
inst✝⁴ : (a : α) → Fintype (β a)
inst✝³ : (a : α) → DecidableEq (β a)
inst✝² : (a : α) → Primcodable (β a)
inst✝¹ : PrimrecCard β
γ : Type u_3
w : WType fun a => β a
inst✝ : Inhabited γ
f : (a : α) × (β a → γ) → γ
a : α
j : β a → γ
⊢ f ⟨a, j⟩ = f ⟨⟨a, j⟩.fst, fintypeArrowEquivFinArrow.symm fun i => ⟨a, j⟩.snd (fintypeEquivFin.symm i)⟩
case e_fγ.h
α : Type u_1
β : α → Type u_2
inst✝⁵ : Primcodable α
inst✝⁴ : (a : α) → Fintype (β a)
inst✝³ : (a : α) → DecidableEq (β a)
inst✝² : (a : α) → Primcodable (β a)
inst✝¹ : PrimrecCard β
γ : Type u_3
w : WType fun a => β a
inst✝ : Inhabited γ
f : (a : α) × (β a → γ) → γ
a : α
j : β a → γ
⊢ f ⟨a, j⟩ = f ⟨a, fintypeArrowEquivFinArrow.symm fun i => j (fintypeEquivFin.symm i)⟩