Proof step 38 from proof prepost-extract-min (previous step)
n ≤ # kar, m < n
⊦ heap-order(kar, n) ∧ 2 * m + 1 < n ∧ ki = (2 * m + 2 < n ∧ kar[2 * m + 2].key < kar[2 * m + 1].key ⊃ kar[2 * m + 2];kar[2 * m + 1])
→ (¬ heap-order(kar[m, ki], n) ↔ false)