exact this.of_eq <| by intro a as; induction as <;> simp[*]; symm; simp[decide_eq_iff]
σ : Type u_1
α : Type u_2
β : α → Type u_3
γ : Type u_4
inst✝⁸ : Primcodable σ
inst✝⁷ : Primcodable α
inst✝⁶ : (a : α) → Fintype (β a)
inst✝⁵ : (a : α) → DecidableEq (β a)
inst✝⁴ : (a : α) → Primcodable (β a)
inst✝³ : PrimrecCard β
inst✝² : Primcodable γ
inst✝¹ : BEq α
inst✝ : LawfulBEq α
this : Primrec₂ fun a l => List.foldr (fun a' ih => a == a' || ih) false l
⊢ PrimrecRel fun x x_1 => x ∈ x_1
no goals