{ exact Or.inl (Nat.lt_succ_self _) }
case inl
n : ℕ
ns : List ℕ
ih : n ∈ ns → n < ns.upper
⊢ n < n + 1 ∨ n < ns.upper

case inr
n✝ n : ℕ
ns : List ℕ
ih : n✝ ∈ ns → n✝ < ns.upper
h : n✝ ∈ ns
⊢ n✝ < n + 1 ∨ n✝ < ns.upper
case inr
n✝ n : ℕ
ns : List ℕ
ih : n✝ ∈ ns → n✝ < ns.upper
h : n✝ ∈ ns
⊢ n✝ < n + 1 ∨ n✝ < ns.upper