| n < # lpt, m < # lpt, n ≤ m ⊦ cleanup-lpt(lpt, n)[m] = lpt[m] |
m < # lpt, n0 +1 < # lpt, n0 +1 ≤ m, ∀ lpt, m. n0 < # lpt ∧ m < # lpt ∧ n0 ≤ m → cleanup-lpt(lpt, n0)[m] = lpt[m] ⊦ cleanup-lpt(lpt, n0 +1)[m] = lpt[m]
Used simplifier rules: cleanup-lpt-base: ⊦ cleanup-lpt(lpt, 0) = lpt;%nat freely generated by 0, +1;;