refine .leaf lt x _ (Nat.le_trans hr ?_)
α : Type u
lt : α → α → Bool
x : Subarray α
i : Nat
hl : 2 * i + 1 < Subarray.size x
hr : 2 * i + 2 ≥ Subarray.size x
hx : lt x[i] x[2 * i + 1] = false
⊢ IsHeap lt x (2 * i + 1)
α : Type u
lt : α → α → Bool
x : Subarray α
i : Nat
hl : 2 * i + 1 < Subarray.size x
hr : 2 * i + 2 ≥ Subarray.size x
hx : lt x[i] x[2 * i + 1] = false
⊢ 2 * i + 2 ≤ 2 * (2 * i + 1) + 1