funext ⟨a, f⟩
case some.e_fγ
α : Type u_1
β : α → Type u_2
inst✝⁴ : Primcodable α
inst✝³ : (a : α) → Fintype (β a)
inst✝² : (a : α) → DecidableEq (β a)
inst✝¹ : (a : α) → Primcodable (β a)
inst✝ : PrimrecCard β
s e : ℕ
val✝ : SubWType β s
⊢ encode = fun x => (encode x.fst).pair (encode (List.ofFn (fintypeArrowEquivFinArrow x.snd)))
case some.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 β
s e : ℕ
val✝ : SubWType β s
a : α
f : β a → ℕ
⊢ encode ⟨a, f⟩ = (encode ⟨a, f⟩.fst).pair (encode (List.ofFn (fintypeArrowEquivFinArrow ⟨a, f⟩.snd)))