exact (cons_subset.mp hsub).1
case cons.true
α : Type u
β : Type v
inst✝ : DecidableEq α
p : α → Bool
a : α
l l' : List α
hsub : a :: l ⊆ l'
nodup : Nodup (a :: l)
nodup_head : ∀ (a' : α), a' ∈ l → a ≠ a'
nodup_tail : Nodup l
hpa : p a = true
l'' : List α := List.erase l' a
this : l ⊆ l''
IH : countP p l ≤ countP p l''
⊢ a ∈ l'
no goals