| 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) |
ki = (2 * m + 2 < n ∧ kar[2 * m + 2].key < kar[2 * m + 1].key ⊃ kar[2 * m + 2];kar[2 * m + 1]), 2 * m + 1 < n, m < n, heap-order(kar, n), n ≤ # kar ⊦ ¬ heap-order(kar[m, ki], n) ↔ false