| kar[n1] = key-index(key, m0), kar[(n1 - 1) / 2] = key-index(key0, m1), ar0 = ar1, bh0 = bin-heap(kar, m2), ki = bh.ar[n], ki0 = bh.ar[(n - 1) / 2], n = n0, n1 < m2, n1 < # kar, bh.ar[n].key < bh.ar[(n - 1) / 2].key, n < # bh.ar, (n - 1) / 2 < # bh.ar, bubble-up-inv(n, bh, ar, bin-heap(kar, m2), ar0), no-dups-idx(kar, m2), valid-idx(kar, ar1, m2), m2 ≤ # kar, n ≥ 1, n1 = 0 ∨ ¬ key < key0 → heap-order(kar, m2), n1 ≠ 0 ∧ key < key0 → heap-order(kar[n1, key-index(key0, m1)], m2), n ≠ 0 → n < # bh.ar ∧ (n - 1) / 2 < # bh.ar ∧ 2 ≠ 0 ∧ n ≥ 1 ⊦ ⟪ar[ki0.idx].idx := n; n1 := (n - 1) / 2; bh := bh.ar:= bh.ar[n, ki0].ar:= (bh.ar:= bh.ar[n, ki0]).ar[n1, ki]; ar[ki.idx].idx := n1⟫ ( ( (n1 ≠ 0 → n1 < # bh.ar ∧ (n1 - 1) / 2 < # bh.ar ∧ 2 ≠ 0 ∧ n1 ≥ 1) ∧ (n1 ≠ 0 → n1 < # bh.ar ∧ (n1 - 1) / 2 < # bh.ar ∧ 2 ≠ 0 ∧ n1 ≥ 1) ∧ (n1 ≠ 0 → n1 < # bh.ar ∧ (n1 - 1) / 2 < # bh.ar ∧ 2 ≠ 0 ∧ n1 ≥ 1) ∧ (n1 ≠ 0 → n1 < # bh.ar ∧ (n1 - 1) / 2 < # bh.ar ∧ 2 ≠ 0 ∧ n1 ≥ 1) ∧ (n1 ≠ 0 → n1 < # bh.ar ∧ (n1 - 1) / 2 < # bh.ar ∧ 2 ≠ 0 ∧ n1 ≥ 1) ∧ bubble-up-inv(n1, bh, ar, bin-heap(kar, m2), ar0)) ∧ n1 < n0), 2 = 0, n = 0 |
kar[(n1 - 1) / 2] = key-index(key0, m1), kar[n1] = key-index(key, m0), ar0 = ar1, bh0 = bin-heap(kar, m2), ki = bh.ar[n], ki0 = bh.ar[(n - 1) / 2], n = n0, ki0.idx < # ar, (n - 1) / 2 < # bh.ar, n < # bh.ar, bh.ar[n].key < bh.ar[(n - 1) / 2].key, n1 < # kar, n1 < m2, bubble-up-inv(n, bh, ar, bin-heap(kar, m2), ar0), no-dups-idx(kar, m2), valid-idx(kar, ar1, m2), m2 ≤ # kar, n ≥ 1, n ≠ 0 → n < # bh.ar ∧ (n - 1) / 2 < # bh.ar ∧ 2 ≠ 0 ∧ n ≥ 1, n1 ≠ 0 ∧ key < key0 → heap-order(kar[n1, key-index(key0, m1)], m2), n1 = 0 ∨ ¬ key < key0 → heap-order(kar, m2) ⊦ ⟪n1 := (n - 1) / 2; bh := bh.ar:= bh.ar[n, ki0].ar:= (bh.ar:= bh.ar[n, ki0]).ar[n1, ki]; ar := ar[ki0.idx, ar[ki0.idx].idx:= n][ki.idx, ar[ki0.idx, ar[ki0.idx].idx:= n][ki.idx].idx:= n1]⟫ ( ( (n1 ≠ 0 → n1 < # bh.ar ∧ (n1 - 1) / 2 < # bh.ar ∧ 2 ≠ 0 ∧ n1 ≥ 1) ∧ (n1 ≠ 0 → n1 < # bh.ar ∧ (n1 - 1) / 2 < # bh.ar ∧ 2 ≠ 0 ∧ n1 ≥ 1) ∧ (n1 ≠ 0 → n1 < # bh.ar ∧ (n1 - 1) / 2 < # bh.ar ∧ 2 ≠ 0 ∧ n1 ≥ 1) ∧ (n1 ≠ 0 → n1 < # bh.ar ∧ (n1 - 1) / 2 < # bh.ar ∧ 2 ≠ 0 ∧ n1 ≥ 1) ∧ (n1 ≠ 0 → n1 < # bh.ar ∧ (n1 - 1) / 2 < # bh.ar ∧ 2 ≠ 0 ∧ n1 ≥ 1) ∧ bubble-up-inv(n1, bh, ar, bin-heap(kar, m2), ar0)) ∧ n1 < n0), 2 = 0, n = 0
kar[(n1 - 1) / 2] = key-index(key0, m1), kar[n1] = key-index(key, m0), ar0 = ar1, bh0 = bin-heap(kar, m2), ki = bh.ar[n], ki0 = bh.ar[(n - 1) / 2], n = n0, (n - 1) / 2 < # bh.ar, n < # bh.ar, bh.ar[n].key < bh.ar[(n - 1) / 2].key, n1 < # kar, n1 < m2, bubble-up-inv(n, bh, ar, bin-heap(kar, m2), ar0), no-dups-idx(kar, m2), valid-idx(kar, ar1, m2), m2 ≤ # kar, n ≥ 1, n ≠ 0 → n < # bh.ar ∧ (n - 1) / 2 < # bh.ar ∧ 2 ≠ 0 ∧ n ≥ 1, n1 ≠ 0 ∧ key < key0 → heap-order(kar[n1, key-index(key0, m1)], m2), n1 = 0 ∨ ¬ key < key0 → heap-order(kar, m2) ⊦ 2 = 0, n = 0, ki0.idx < # ar ∧ ki0.idx < # ar