simp[Primcodable.SubWType, primcodable_succ, Primcodable.ofEquiv_toEncodable]
α : Type u_1
β : α → Type u_2
inst✝⁴ : Primcodable α
inst✝³ : (a : α) → Fintype (β a)
inst✝² : (a : α) → DecidableEq (β a)
inst✝¹ : (a : α) → Primcodable (β a)
inst✝ : PrimrecCard β
s e : ℕ
⊢ decode e = Option.map (fun x => ofWType (WType.mk x.fst fun b => ↑(x.snd b)) (s + 1) ⋯) (decode e)
α : Type u_1
β : α → Type u_2
inst✝⁴ : Primcodable α
inst✝³ : (a : α) → Fintype (β a)
inst✝² : (a : α) → DecidableEq (β a)
inst✝¹ : (a : α) → Primcodable (β a)
inst✝ : PrimrecCard β
s e : ℕ
⊢ decode e =
    Option.map (fun x => ofWType (WType.mk x.fst fun b => ↑(x.snd b)) (s + 1) ⋯)
      ((decode e.unpair.1).bind fun a => Option.map (Sigma.mk a) (decode e.unpair.2))