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