| lpt[n0] = mklp(m, m0, lpf, m1), n0 < # lpt, ∀ lpt. n0 ≤ # lpt → # cleanup-lpt(lpt, n0) = # lpt ⊦ # (m = 0 ∧ lpf ≠ LP_FREE ⊃ cleanup-lpt(lpt, n0)[n0, mklp(0, 0, LP_FREE, m1)];cleanup-lpt(lpt, n0)) = # lpt |
lpt[n0] = mklp(m, m0, lpf, m1), m = 0, n0 < # lpt, ∀ lpt. n0 ≤ # lpt → # cleanup-lpt(lpt, n0) = # lpt ⊦ # cleanup-lpt(lpt, n0)[n0, mklp(0, 0, LP_FREE, m1)] = # lpt, lpf = LP_FREE
lpt[n0] = mklp(m, m0, lpf, m1), n0 < # lpt, ∀ lpt. n0 ≤ # lpt → # cleanup-lpt(lpt, n0) = # lpt, m ≠ 0 ∨ lpf = LP_FREE ⊦ # cleanup-lpt(lpt, n0) = # lpt