| lpt[n0] = mklp(m, m0, lpf, m1), n0 < # lpt, freelist-cons(subarray(lpt, 0, n0), freelist) ⊦ lpf = LP_FREE, ¬ dups(freelist) ∧ (¬ n0 < n ∧ subarray(lpt, 0, n0 + 1)[n].flags = LP_FREE ↔ n ∈ freelist) |
lpt[n0] = mklp(m, m0, lpf, m1), subarray(lpt, 0, n0 + 1)[n] = mklp(m2, m3, lpf0, m4), n0 < # lpt, freelist-cons(subarray(lpt, 0, n0), freelist) ⊦ lpf = LP_FREE, ¬ dups(freelist) ∧ (¬ n0 < n ∧ lpf0 = LP_FREE ↔ n ∈ freelist)
Used simplifier rules: ⊦ ((m = lp.ref-size ∧ m0 = lp.size) ∧ lpf = lp.flags) ∧ m1 = lp.gcheapidx ↔ lp = mklp(m, m0, lpf, m1); (elim) Used terms: subarray(lpt, 0, n0 + 1)[n], m2, m3, lpf0, m4