| lpt[n, mklp(m0, m1, LP_GROUP_NODES, m2)][m3] = mklp(m6, m7, lpf0, m8), lpt[n] = mklp(n0, n1, LP_GROUP_NODES, n2), lpt[m3] = mklp(m, m4, lpf, m5), m3 = n, n < # lpt, m3 < # lpt, n ≤ m3, n < m3 → gc-heap(lpt[n, mklp(m0, m1, LP_GROUP_NODES, m2)], nx, m3) = (gc-heap(lpt, nx, m3) -- key-index(n0, n)) ++ key-index(m0, n) ⊦ gc-heap(lpt[n, mklp(m0, m1, LP_GROUP_NODES, m2)], nx, m3) ∪ (¬ m3 ∈ nx ∧ lpf0 = LP_GROUP_NODES ⊃ ∅ ++ key-index(m6, m3);∅) = ((gc-heap(lpt, nx, m3) -- key-index(n0, n)) ∪ ((¬ m3 ∈ nx ∧ lpf = LP_GROUP_NODES ⊃ ∅ ++ key-index(m, m3);∅) -- key-index(n0, n))) ++ key-index(m0, n), n ∈ nx |
lpt[n] = mklp(m, m4, LP_GROUP_NODES, m5), n < # lpt ⊦ gc-heap(lpt, nx, n) ++ key-index(m6, n) = (gc-heap(lpt, nx, n) -- key-index(m, n)) ++ key-index(m6, n), n ∈ nx
Used simplifier rules: gc-heap-write-above: ⊦ n < # lpt ∧ m ≤ n → gc-heap(lpt[n, lp], nx, m) = gc-heap(lpt, nx, m);% ⊦ ∅ -- ki = ∅; (s)% ⊦ (gchs ++ ki) -- ki = gchs -- ki; (s)% ⊦ ¬ n < n; (s)% ⊦ m ≤ m; (s)%unc: ⊦ gchs ∪ gchs0 = gchs0 ∪ gchs; from specification set-union[gc-heap-rename-gc-heap-base-keyindex-set]%una: ⊦ (gchs ∪ gchs0) ∪ gchs1 = gchs ∪ gchs0 ∪ gchs1; from specification set-union[gc-heap-rename-gc-heap-base-keyindex-set]% ⊦ gchs ∪ ∅ = gchs; (s)% ⊦ (gchs ++ ki) ∪ gchs0 = (gchs ∪ gchs0) ++ ki; (s)%⊦ mklp(m, m0, lpf, m1) = mklp(m2, m3, lpf0, m4) ↔ m = m2 ∧ m0 = m3 ∧ lpf = lpf0 ∧ m1 = m4; (ws)% ⊦ m < # lpt → lpt[m, lp][m] = lp; (s)