| ar0 = ar, bh0 = bh, bubble-up-inv(n, bh, ar, bh0, ar0) ⊦ ⟪bin_min_heap_bubble_up#(n; bh, ar)⟫ ( bh.size = bh0.size ∧ # bh.ar = # bh0.ar ∧ id-idx(ar0, ar) ∧ no-dups-idx(bh.ar, bh.size) ∧ valid-idx(bh.ar, ar, bh.size) ∧ heap-order(bh.ar, bh.size) ∧ keyset(bh0) = keyset(bh)) |
ar0 = ar, bh0 = bh, n < bh.size, n < # bh.ar, no-dups-idx(bh.ar, bh.size), valid-idx(bh.ar, ar, bh.size), bh.size ≤ # bh.ar, n = 0 ∨ ¬ bh.ar[n].key < bh.ar[(n - 1) / 2].key → heap-order(bh.ar, bh.size), n ≠ 0 ∧ bh.ar[n].key < bh.ar[(n - 1) / 2].key → heap-order(bh.ar[n, bh.ar[(n - 1) / 2]], bh.size) ⊦ ⟪bin_min_heap_bubble_up#(n; bh, ar)⟫ ( bh.size = bh0.size ∧ # bh.ar = # bh0.ar ∧ id-idx(ar0, ar) ∧ no-dups-idx(bh.ar, bh.size) ∧ valid-idx(bh.ar, ar, bh.size) ∧ heap-order(bh.ar, bh.size) ∧ keyset(bh0.ar, bh0.size) = keyset(bh.ar, bh.size))
Used simplifier rules: bubble-up-inv: ⊦ bubble-up-inv(n, bh, ar, bh0, ar0) ↔ n < bh.size ∧ bh.size ≤ # bh.ar ∧ # bh.ar = # bh0.ar ∧ bh.size = bh0.size ∧ id-idx(ar0, ar) ∧ no-dups-idx(bh.ar, bh.size) ∧ valid-idx(bh.ar, ar, bh.size) ∧ ( n = 0 ∨ ¬ bh.ar[n].key < bh.ar[(n - 1) / 2].key → heap-order(bh.ar, bh.size)) ∧ ( n ≠ 0 ∧ bh.ar[n].key < bh.ar[(n - 1) / 2].key → heap-order(bh.ar[n, bh.ar[(n - 1) / 2]], bh.size)) ∧ keyset(bh.ar, bh.size) = keyset(bh0.ar, bh0.size);%keyset: ⊦ keyset(bh) = keyset(bh.ar, bh.size);% ⊦ m < n → n ≠ 0; (s)%fle: ⊦ m < n ∧ n ≤ n0 → m < n0; (forward) from specification nat%f: ⊦ m < n → n ≠ 0; (forward) from specification nat-basic% ⊦ id-idx(ar, ar); (s)