have ⟨hhead, (htail : l.Nodup)⟩ := pairwise_cons.mp hnodup
case cons
α : Type u
β : Type v
inst✝ : DecidableEq α
a b : α
l : List α
IH : Nodup l → Nodup (List.erase l a)
hnodup : Nodup (b :: l)
⊢ Nodup (List.erase (b :: l) a)
case cons
α : Type u
β : Type v
inst✝ : DecidableEq α
a b : α
l : List α
IH : Nodup l → Nodup (List.erase l a)
hnodup : Nodup (b :: l)
hhead : ∀ (a' : α), a' ∈ l → b ≠ a'
htail : Nodup l
⊢ Nodup (List.erase (b :: l) a)