have : Primrec₂ (fun a l => (a, l.map (fun p => (mkL p.1 p.2).get!)) : α → List (α × List (WType β)) → α × List (WType β)) :=
  Primrec₂.pair.comp₂ Primrec₂.left
    (to₂' <| list_map snd (option_get!.comp₂ $ w_mkL.comp₂ (fst.comp₂ $ Primrec₂.right) (snd.comp₂ $ Primrec₂.right)))
τ : Type u_1
σ : Type u_2
α : Type u_3
γ : Type u_4
β : α → Type u_5
inst✝⁸ : Primcodable τ
inst✝⁷ : Primcodable σ
inst✝⁶ : Primcodable α
inst✝⁵ : (a : α) → Fintype (β a)
inst✝⁴ : (a : α) → DecidableEq (β a)
inst✝³ : (a : α) → Primcodable (β a)
inst✝² : PrimrecCard β
inst✝¹ : Primcodable γ
inst✝ : Inhabited (WType β)
⊢ Primrec inversion
τ : Type u_1
σ : Type u_2
α : Type u_3
γ : Type u_4
β : α → Type u_5
inst✝⁸ : Primcodable τ
inst✝⁷ : Primcodable σ
inst✝⁶ : Primcodable α
inst✝⁵ : (a : α) → Fintype (β a)
inst✝⁴ : (a : α) → DecidableEq (β a)
inst✝³ : (a : α) → Primcodable (β a)
inst✝² : PrimrecCard β
inst✝¹ : Primcodable γ
inst✝ : Inhabited (WType β)
this : Primrec₂ fun a l => (a, List.map (fun p => (mkL p.1 p.2).get!) l)
⊢ Primrec inversion