intro n x IH k hk
case refine_2
α : Type u
lt : α → α → Bool
inst✝ : LawfulLTBRel lt
⊢ ∀ (n : Nat) (x : Subarray α),
    (∀ (k : Nat), n + 1 ≤ k → IsHeap lt x k) → ∀ (k : Nat), n ≤ k → IsHeap lt (heapifyDown lt x n) k
case refine_2
α : Type u
lt : α → α → Bool
inst✝ : LawfulLTBRel lt
n : Nat
x : Subarray α
IH : ∀ (k : Nat), n + 1 ≤ k → IsHeap lt x k
k : Nat
hk : n ≤ k
⊢ IsHeap lt (heapifyDown lt x n) k