exact .succ <| IH (popMax lt x)
case succ
α : Type u
lt : α → α → Bool
n : Nat
IH : ∀ (x : Subarray α), loop.OpSpec lt x n (loop lt x n)
x : Subarray α
⊢ loop.OpSpec lt x (Nat.succ n) (loop lt x (Nat.succ n))
no goals