| gc-heap(lpt, log, n) = keyset(gch), gch0 = bin-heap(mkkeyarray(1), 0), log = nx, lpt = lpt1, lpt0 = lpt2, n = n0, n1 = 0, n < # lpt, bin-heap-inv(gch, lpt), id-idx(lpt2, lpt), n ≤ # lpt ⊦ lpt[n].flags = LP_GROUP_NODES ∧ ¬ n ∈ log, (n + 1 ≤ # lpt ∧ bin-heap-inv(gch, lpt) ∧ gc-heap(lpt, log, n + 1) = keyset(gch) ∧ id-idx(lpt2, lpt)) ∧ # lpt - n + 1 < # lpt1 - n0 |
gc-heap(lpt2, log, n0) = keyset(gch), n0 < # lpt1, bin-heap-inv(gch, lpt1), id-idx(lpt2, lpt1) ⊦ gc-heap(lpt2, log, n0 + 1) = gc-heap(lpt2, log, n0), lpt1[n0].flags = LP_GROUP_NODES ∧ ¬ n0 ∈ log
Used simplifier rules: ⊦ m < n → n ≠ 0; (s)%f: ⊦ m < n → n ≠ 0; (forward) from specification nat-basic% ⊦ ¬ n < n; (s)% ⊦ m < n + 1 ↔ ¬ n < m; (s)% ⊦ n < m → (m - n) + n = m; (s)%n0 ≤ n ⊦ n - n0 < m ↔ n < m + n0; (s)% ⊦ m < n → (n ≤ m ↔ false); (s)% ⊦ m < n ↔ ¬ n ≤ m; (ss)%c: ⊦ m + n = n + m; from specification nat-basic%a: ⊦ (m + n0) + n1 = m + n0 + n1; from specification nat-basic% ⊦ m + 1 ≤ n ↔ m < n; (s)%m ≤ # lpt1 ⊦ id-idx(lpt0, lpt1) → gc-heap(lpt1, nx, m) = gc-heap(lpt0, nx, m); (s)% ⊦ m < n → m ≤ n; (s)