. intro h _ ha hcntr; cases hcntr
  exact h ha
case cons.h.mp
α : Type u
inst✝ : DecidableEq α
a : α
x : Array α
IH : Nodup x ↔ List.Nodup x.data
⊢ ¬a ∈ x → ∀ (a' : α), a' ∈ x → ¬a = a'

case cons.h.mpr
α : Type u
inst✝ : DecidableEq α
a : α
x : Array α
IH : Nodup x ↔ List.Nodup x.data
⊢ (∀ (a' : α), a' ∈ x → ¬a = a') → ¬a ∈ x
case cons.h.mpr
α : Type u
inst✝ : DecidableEq α
a : α
x : Array α
IH : Nodup x ↔ List.Nodup x.data
⊢ (∀ (a' : α), a' ∈ x → ¬a = a') → ¬a ∈ x