apply And.intro
α : Type u
β : Type v
inst✝ : DecidableEq α
a b : α
l : List α
IH : Nodup l → ¬a ∈ List.erase l a
hnodup : Nodup (b :: l)
hhead : ∀ (a' : α), a' ∈ l → b ≠ a'
htail : Nodup l
hba : (b == a) = false
⊢ ¬a = b ∧ ¬a ∈ List.erase l a
case left
α : Type u
β : Type v
inst✝ : DecidableEq α
a b : α
l : List α
IH : Nodup l → ¬a ∈ List.erase l a
hnodup : Nodup (b :: l)
hhead : ∀ (a' : α), a' ∈ l → b ≠ a'
htail : Nodup l
hba : (b == a) = false
⊢ ¬a = b

case right
α : Type u
β : Type v
inst✝ : DecidableEq α
a b : α
l : List α
IH : Nodup l → ¬a ∈ List.erase l a
hnodup : Nodup (b :: l)
hhead : ∀ (a' : α), a' ∈ l → b ≠ a'
htail : Nodup l
hba : (b == a) = false
⊢ ¬a ∈ List.erase l a