| n < # lpt ⊦ (lpt[n].ref-size = 0 ∧ lpt[n].flags ≠ LP_FREE ⊃ mklp(0, 0, LP_FREE, lpt[n].gcheapidx);lpt[n]) = lpt.map(λ lp. (lp.ref-size = 0 ∧ lp.flags ≠ LP_FREE ⊃ mklp(0, 0, LP_FREE, lp.gcheapidx);lp))[n] |
lpt[n] = mklp(m, m0, lpf, m1), n < # lpt ⊦ (m = 0 ∧ lpf ≠ LP_FREE ⊃ mklp(0, 0, LP_FREE, m1);lpt[n]) = lpt.map(λ lp. (lp.ref-size = 0 ∧ lp.flags ≠ LP_FREE ⊃ mklp(0, 0, LP_FREE, lp.gcheapidx);lp))[n]
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[n], m, m0, lpf