| # lpt1 = n1 + m2, lpt1[m2] = mklp(m, m0, LP_GROUP_NODES, m1), gc-heap(lpt2, log, m2) = keyset(bin-heap(kar, m3)), # lpt2 < m2, bin-heap-inv(bin-heap(kar, m3), lpt1), id-idx(lpt2, lpt1), key-index(natkey, m2) ∈ gc-heap(lpt2, log, m2) ⊦ # gc-heap(lpt2, log, m2) = 0, gc-heap(lpt2, log, m2) = ∅, m3 = 0, n1 = 0, m2 ∈ log |
⊦ id-idx(lpt1, lpt0) ↔ # lpt0 = # lpt1 ∧ (∀ n. n < # lpt0 → lpt1[n].ref-size = lpt0[n].ref-size ∧ lpt1[n].size = lpt0[n].size ∧ lpt1[n].flags = lpt0[n].flags)
Used simplifier rules: lf-02: ⊦ m < n ∧ m = n0 → n0 < n; (forward) from specification nat-basic% ⊦ ¬ m + n < m; (s)%a: ⊦ (m + n0) + n1 = m + n0 + n1; from specification nat-basic%c: ⊦ m + n = n + m; from specification nat-basic Used terms: lpt1, lpt2