| lpt[n] = mklp(n0, n1, LP_FREE, n2), n < # lpt, lpt-free-unref(lpt) ⊦ n0 = 0 |
lpt[n] = mklp(n0, n1, LP_FREE, n2), n < # lpt, ∀ n. n < # lpt ∧ lpt[n].flags = LP_FREE → lpt[n].ref-size = 0 ⊦ n0 = 0
Used simplifier rules: lpt-free-unref: ⊦ lpt-free-unref(lpt) ↔ (∀ n. n < # lpt ∧ lpt[n].flags = LP_FREE → lpt[n].ref-size = 0);% ⊦ m < n → n ≠ 0; (s)%f: ⊦ m < n → n ≠ 0; (forward) from specification nat-basic