| lpt[n] = mklp(m0, m1, lpf, m2), freelist-cons(lpt, freelist) ⊦ freelist-cons(lpt[n, mklp(n0, n1, lpf, n2)], freelist) |
lpt[n] = mklp(m0, m1, lpf, m2), ∀ n. n < # lpt ∧ lpt[n].flags = LP_FREE ↔ n ∈ freelist ⊦ n3 < # lpt ∧ lpt[n, mklp(n0, n1, lpf, n2)][n3].flags = LP_FREE ↔ n3 ∈ freelist, dups(freelist)
Used simplifier rules: freelist-cons: ⊦ freelist-cons(lpt, freelist) ↔ ¬ dups(freelist) ∧ (∀ n. n < # lpt ∧ lpt[n].flags = LP_FREE ↔ n ∈ freelist);% ⊦ # lpt[n, lp] = # lpt; (s)