| n0 < # lpt, n0 < m, m < # lpt, n0 + 1 < # lpt, ∀ lpt, m, nx. n0 < # lpt ∧ m < # lpt ∧ n0 ≤ m → replay-lpt(lpt, nx, n0)[m] = lpt[m] ⊦ (lpt[n0].flags = LP_FREE ∨ n0 ∈ nx ⊃ replay-lpt(lpt, nx, n0) ;(lpt[n0].flags = LP_INDEX_NODES ∧ lpt[n0].ref-size ≠ 0 ⊃ replay-lpt(lpt, nx, n0)[n0, lpt[n0].size:= LEB_SIZE] ;(lpt[n0].ref-size = 0 ⊃ replay-lpt(lpt, nx, n0)[n0, mklp(0, 0, LP_FREE, lpt[n0].gcheapidx)];replay-lpt(lpt, nx, n0)) ) ) [m ] = lpt[m] |
lpt[n0] = mklp(m0, m1, lpf, m2), n0 + 1 < # lpt, m < # lpt, n0 < m, n0 < # lpt, ∀ lpt, m, nx. n0 < # lpt ∧ m < # lpt ∧ n0 ≤ m → replay-lpt(lpt, nx, n0)[m] = lpt[m] ⊦ (lpf = LP_FREE ∨ n0 ∈ nx ⊃ replay-lpt(lpt, nx, n0) ;(lpf = LP_INDEX_NODES ∧ m0 ≠ 0 ⊃ replay-lpt(lpt, nx, n0)[n0, lpt[n0].size:= LEB_SIZE] ;(m0 = 0 ⊃ replay-lpt(lpt, nx, n0)[n0, mklp(0, 0, LP_FREE, m2)];replay-lpt(lpt, nx, n0)) ) ) [m ] = lpt[m]
Used simplifier rules: ⊦ ((m = lp.ref-size ∧ m0 = lp.size) ∧ lpf = lp.flags) ∧ m1 = lp.gcheapidx ↔ lp = mklp(m, m0, lpf, m1); (elim) Used terms: lpt[n0], m0, m1, lpf