| lpt[n] = mklp(m, m0, lpf, m1), n < # lpt ⊦ (m = 0 ∧ lpf ≠ LP_FREE ⊃ mklp(0, 0, LP_FREE, m1);mklp(m, m0, lpf, m1)) = lpt.map(λ lp. (lp.ref-size = 0 ∧ lp.flags ≠ LP_FREE ⊃ mklp(0, 0, LP_FREE, lp.gcheapidx);lp))[n] |
⊦ lpt.map(lptfun)[n] = (n < # lpt ⊃ lptfun(lpt[n]);lpt[n])
Used simplifier rules: ⊦ mklp(n2, n3, lpf, m).ref-size = n2; (s)% ⊦ mklp(n2, n3, lpf, m).flags = lpf; (s)% ⊦ mklp(n2, n3, lpf, m).gcheapidx = m; (s) Used terms: n, λ lp. (lp.ref-size = 0 ∧ lp.flags ≠ LP_FREE ⊃ mklp(0, 0, LP_FREE, lp.gcheapidx) ;lp ), lpt