| lpt[m] = mklp(m0, m1, lpf, m2), m < # lpt, m < n, n ≤ # lpt ⊦ cleanup-lpt(lpt, n)[m] = (m0 = 0 ∧ lpf ≠ LP_FREE ⊃ mklp(0, 0, LP_FREE, m2);lpt[m]) |
lpt[m] = mklp(m0, m1, lpf, m2), m < n, m < # lpt, n ≤ # lpt ⊦ cleanup-lpt(lpt, n)[m] = (m0 = 0 ∧ lpf ≠ LP_FREE ⊃ mklp(0, 0, LP_FREE, m2);mklp(m0, m1, lpf, m2))