| ⊦ bin-heap-inv(gch, lpt.map(λ lp. (lp.ref-size = 0 ∧ lp.flags ≠ LP_FREE ⊃ mklp(0, 0, LP_FREE, lp.gcheapidx);lp))) ↔ gch.size ≤ # gch.ar ∧ no-dups-idx(gch.ar, gch.size) ∧ valid-idx(gch.ar, lpt, gch.size) ∧ 2exp-size(# gch.ar) ∧ heap-order(gch.ar, gch.size) |
gch = bin-heap(kar, m) ⊦ bin-heap-inv(gch, lpt.map(λ lp. (lp.ref-size = 0 ∧ lp.flags ≠ LP_FREE ⊃ mklp(0, 0, LP_FREE, lp.gcheapidx);lp))) ↔ m ≤ # kar ∧ no-dups-idx(kar, m) ∧ valid-idx(kar, lpt, m) ∧ 2exp-size(# kar) ∧ heap-order(kar, m)
Used simplifier rules: ⊦ kar = bh.ar ∧ m = bh.size ↔ bh = bin-heap(kar, m); (elim) Used terms: gch, kar, n