| ⊦ bin-heap-inv(gch, cleanup-lpt(lpt)) ↔ bin-heap-inv(gch, lpt) |
⊦ bin-heap-inv(gch, lpt.map(λ lp. (lp.ref-size = 0 ∧ lp.flags ≠ LP_FREE ⊃ mklp(0, 0, LP_FREE, lp.gcheapidx);lp))) ↔ bin-heap-inv(gch, lpt)
Used simplifier rules: cleanup-lpt: ⊦ cleanup-lpt(lpt) = lpt .map (λ lp. (lp.ref-size = 0 ∧ lp.flags ≠ LP_FREE ⊃ mklp(0, 0, LP_FREE, lp.gcheapidx) ;lp ) );