| 2exp-size(# kar), heap-order(kar, m), no-dups-idx(kar, m), m ≤ # kar, ∀ m0. m0 < m → kar[m0].idx < # lpt ∧ lpt.map(λ lp. (lp.ref-size = 0 ∧ lp.flags ≠ LP_FREE ⊃ mklp(0, 0, LP_FREE, lp.gcheapidx);lp))[kar[m0].idx].gcheapidx = m0 ⊦ ∀ m0. m0 < m → kar[m0].idx < # lpt ∧ lpt[kar[m0].idx].gcheapidx = m0 |
2exp-size(# kar), m0 < m, m0 < # kar, heap-order(kar, m), no-dups-idx(kar, m), m ≤ # kar, ∀ m0. m0 < m → kar[m0].idx < # lpt ∧ lpt.map(λ lp. (lp.ref-size = 0 ∧ lp.flags ≠ LP_FREE ⊃ mklp(0, 0, LP_FREE, lp.gcheapidx);lp))[kar[m0].idx].gcheapidx = m0 ⊦ kar[m0].idx < # lpt ∧ lpt[kar[m0].idx].gcheapidx = m0
Used simplifier rules: ⊦ m < n → n ≠ 0; (s)%fle: ⊦ m < n ∧ n ≤ n0 → m < n0; (forward) from specification nat%f: ⊦ m < n → n ≠ 0; (forward) from specification nat-basic