| lpt[n0] = mklp(m, m0, lpf, m1), keyset(gch0) = gc-heap(lpt1, nx), keyset(gch) = gc-heap(lpt1, n0 ' + nx0), n0 < # lpt, bin-heap-inv(gch0, lpt1), bin-heap-inv(gch, lpt), id-idx(lpt1, lpt), ¬ dups(nx0), ¬ dups(nx), ¬ n0 ∈ nx0, ∀ n. n ∈ nx → n < # lpt1 ∧ lpt1[n].flags = LP_GROUP_NODES, ∀ n. n = n0 ∨ n ∈ nx0 → n < # lpt ∧ lpt[n].flags = LP_GROUP_NODES ⊦ ⟪gc_heap_insert#(key-index(m, n0); gch, lpt); log := nx0⟫ ( bin-heap-inv(gch, lpt) ∧ keyset(gch) = gc-heap(lpt1, log) ∧ id-idx(lpt1, lpt) ∧ ¬ dups(log) ∧ (∀ n. n ∈ log → n < # lpt ∧ lpt[n].flags = LP_GROUP_NODES) ∧ ¬ # nx0 < # log) |
bin-heap-inv(bh, lpt), lpt0 = lpt, bh0 = bh, ki.idx < # lpt, ∀ ki0. ki0 ∈ keyset(bh0) → ki0.idx ≠ ki.idx ⊦ ⟪gc_heap_insert#(ki; bh, lpt)⟫ (bin-heap-inv(bh, lpt) ∧ id-idx(lpt0, lpt) ∧ keyset(bh) = keyset(bh0) ++ ki)
lpt[n0] = mklp(m, m0, lpf, m1), keyset(gch) = gc-heap(lpt1, n0 ' + nx0), keyset(gch0) = gc-heap(lpt1, nx), n0 < # lpt, bin-heap-inv(gch, lpt), bin-heap-inv(gch0, lpt1), id-idx(lpt1, lpt), ∀ n. n = n0 ∨ n ∈ nx0 → n < # lpt ∧ lpt[n].flags = LP_GROUP_NODES, ∀ n. n ∈ nx → n < # lpt1 ∧ lpt1[n].flags = LP_GROUP_NODES ⊦ dups(nx0), dups(nx), n0 ∈ nx0, bin-heap-inv(gch, lpt) ∧ lpt = lpt ∧ gch = gch ∧ key-index(m, n0).idx < # lpt ∧ (∀ ki0. ki0 ∈ keyset(gch) → ki0.idx ≠ key-index(m, n0).idx)
lpt[n0] = mklp(m, m0, lpf, m1), bh1 = gch, gch = gch, keyset(gch) = gc-heap(lpt1, n0 ' + nx0), keyset(gch0) = gc-heap(lpt1, nx), ki0 = key-index(m, n0), lpt = lpt, lpt2 = lpt, n0 < # lpt, key-index(m, n0).idx < # lpt, bin-heap-inv(gch0, lpt1), bin-heap-inv(gch, lpt), id-idx(lpt1, lpt), ∀ n. n = n0 ∨ n ∈ nx0 → n < # lpt ∧ lpt[n].flags = LP_GROUP_NODES, ∀ n. n ∈ nx → n < # lpt1 ∧ lpt1[n].flags = LP_GROUP_NODES, ∀ ki0. ki0 ∈ keyset(gch) → ki0.idx ≠ key-index(m, n0).idx ⊦ [gc_heap_insert#(key-index(m, n0); gch, lpt)] ( bin-heap-inv(gch, lpt) ∧ id-idx(lpt2, lpt) ∧ keyset(gch) = keyset(bh1) ++ ki0 → ⟪log := nx0⟫ ( bin-heap-inv(gch, lpt) ∧ keyset(gch) = gc-heap(lpt1, log) ∧ id-idx(lpt1, lpt) ∧ ¬ dups(log) ∧ (∀ n. n ∈ log → n < # lpt ∧ lpt[n].flags = LP_GROUP_NODES) ∧ ¬ # nx0 < # log)), dups(nx0), dups(nx), n0 ∈ nx0