specialize IH nodup
case cons.cons
α : Type u
β : Type v
a : α
l : List α
IH : Nodup l → ∀ (i j : Nat) {hi : i < length l} {hj : j < length l}, l[i] = l[j] → i = j
i j : Nat
hi : i < length (a :: l)
hj : j < length (a :: l)
h : (a :: l)[i] = (a :: l)[j]
nodup : Pairwise (fun x x_1 => x ≠ x_1) l
ha : ∀ (a' : α), a' ∈ l → a ≠ a'
⊢ i = j
case cons.cons
α : Type u
β : Type v
a : α
l : List α
i j : Nat
hi : i < length (a :: l)
hj : j < length (a :: l)
h : (a :: l)[i] = (a :: l)[j]
nodup : Pairwise (fun x x_1 => x ≠ x_1) l
ha : ∀ (a' : α), a' ∈ l → a ≠ a'
IH : ∀ (i j : Nat) {hi : i < length l} {hj : j < length l}, l[i] = l[j] → i = j
⊢ i = j