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