unfold mkHeap
α : Type u
lt : α → α → Bool
x : Subarray α
⊢ mkHeap lt x = Nat.foldRev (fun n x => heapifyDown lt x n) (Subarray.size x / 2) x
α : Type u
lt : α → α → Bool
x : Subarray α
⊢ mkHeap.loop lt x (Subarray.size x / 2) = Nat.foldRev (fun n x => heapifyDown lt x n) (Subarray.size x / 2) x