| replay-lpt(lpt, nx, n0)[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))) ), lpt[m] = mklp(m0, m1, lpf, m2), lpt[n0] = mklp(m3, m4, lpf0, m5), m < # lpt, n0 < # lpt, m ≤ n0, lpf0 ≠ LP_INDEX_NODES ∨ m3 = 0 ⊦ (m3 = 0 ⊃ replay-lpt(lpt, nx, n0)[n0, mklp(0, 0, LP_FREE, m5)];replay-lpt(lpt, nx, n0))[m] = replay-lpt(lpt, nx, n0)[m], lpf0 = LP_FREE, n0 ∈ nx |
lpt[n0] = mklp(0, m4, lpf0, m5), lpt[m] = mklp(m0, m1, lpf, m2), mklp(m0, m1, lpf, m2) = (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))) ), n0 < # lpt, m < # lpt, m ≤ n0 ⊦ replay-lpt(lpt, nx, n0)[n0, mklp(0, 0, LP_FREE, m5)][m] = replay-lpt(lpt, nx, n0)[m], lpf0 = LP_FREE, n0 ∈ nx
Used simplifier rules: replay-lpt-at-above: n ≤ m, m < # lpt ⊦ replay-lpt(lpt, nx, n)[m] = lpt[m];% ⊦ m ≠ n → lpt[n, lp][m] = lpt[m]; (s)% ⊦ m ≤ n → (n ≤ m ↔ m = n); (s)