| n ≤ # kar, m < n ⊦ heap-order(kar, n) ∧ (m ≠ 0 → ¬ ki.key < kar[(m - 1) / 2].key) ∧ (2 * m + 1 < n → ¬ kar[2 * m + 1].key < ki.key) ∧ (2 * m + 2 < n → ¬ kar[2 * m + 2].key < ki.key) → (¬ heap-order(kar[m, ki], n) ↔ false) |
m < n, heap-order(kar, n), n ≤ # kar, m ≠ 0 → ¬ ki.key < kar[(m - 1) / 2].key, 2 * m + 1 < n → ¬ kar[2 * m + 1].key < ki.key, 2 * m + 2 < n → ¬ kar[2 * m + 2].key < ki.key ⊦ ¬ heap-order(kar[m, ki], n) ↔ false