| 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(0, m0, lpf, m1), n0 < # lpt, ∀ lpt. n0 ≤ # lpt → # cleanup-lpt(lpt, n0) = # lpt ⊦ # cleanup-lpt(lpt, n0) = # lpt, lpf = LP_FREE
Used simplifier rules: ⊦ # lpt[n, lp] = # lpt; (s)