exact absurd hr <| Nat.not_lt_of_le <| trans hl' (2*i+1).le_succ
α : Type u
lt : α → α → Bool
inst✝ : LawfulLTBRel lt
x✝ : Subarray α
i✝ : Nat
y x : Subarray α
i : Nat
hl' : 2 * i + 1 ≥ Subarray.size x
hr : 2 * i + 2 < Subarray.size x
heap_right : IsHeap lt x (2 * i + 2)
⊢ lt x[i] x[2 * i + 2] = false
no goals