| lpt[m] = mklp(m0, m1, lpf, m2), m < # lpt, m < n, n ≤ # lpt ⊦ replay-lpt(lpt, nx, n)[m] = (lpf = LP_FREE ∨ m ∈ nx ⊃ lpt[m];(lpf = LP_INDEX_NODES ∧ m0 ≠ 0 ⊃ lpt[m].size:= LEB_SIZE;(m0 = 0 ⊃ mklp(0, 0, LP_FREE, m2);lpt[m]))) |
lpt[m] = mklp(m0, m1, lpf, m2), m < # lpt, m < n, n ≤ # lpt ⊦ replay-lpt(lpt, nx, n)[m] = (lpf = LP_FREE ∨ m ∈ nx ⊃ mklp(m0, m1, lpf, m2) ;(lpf = LP_INDEX_NODES ∧ m0 ≠ 0 ⊃ mklp(m0, LEB_SIZE, LP_INDEX_NODES, m2);(m0 = 0 ⊃ mklp(0, 0, LP_FREE, m2);mklp(m0, m1, lpf, m2))) )
Used simplifier rules: ⊦ mklp(m, m0, lpf, m1).size:= m3 = mklp(m, m3, lpf, m1); (s)