exact node_next_left x i _ hi hl hr hx' hx IH
α : Type u
lt : α → α → Bool
x : Subarray α
i : Nat
lhs : Nat := 2 * i + 1
rhs : Nat := lhs + 1
hr : rhs < Subarray.size x
hi : i < Subarray.size x
hl : lhs < Subarray.size x
j : Nat := if lt x[rhs] x[lhs] = true then lhs else rhs
hj : i < j ∧ j < Subarray.size x
this _hdecreasing : Subarray.size x - j < Subarray.size x - i
hx' : lt x[rhs] x[lhs] = true
hjl : j = lhs
IH :
  heapifyDown.OpSpec lt (Subarray.swap x { val := i, isLt := hi } { val := lhs, isLt := (_ : lhs < Subarray.size x) })
    lhs
    (heapifyDown lt (Subarray.swap x { val := i, isLt := hi } { val := lhs, isLt := (_ : lhs < Subarray.size x) }) lhs)
hx : lt x[i] x[lhs] = true
⊢ heapifyDown.OpSpec lt x i
    (heapifyDownAux lt
      (Subarray.swap x { val := i, isLt := hi } { val := 2 * i + 1, isLt := (_ : lhs < Subarray.size x) }) (2 * i + 1))
no goals