| # asar0 = m + 1, # asar = m + 1, # zbrar = BRANCH_SIZE, adr0 ∈ as ↔ ¬ dirty0, union(asar0, 0, m + 1) = alladrs -- adr0, union(asar, 0, m + 1) = as -- adr0, (( (λ n. ⌜zbrar[n].branch?⌝ ∧ btree(r, zbrar[n].child, zbrar[n].adr, height0, dirty0, key-range(zbrar, n, m + 1, fi), iast, asar[n], asar0[n], ok) )⊗_ (0, m + 1 ) * P) )(zh1), m < BRANCH_SIZE, ((r => mkznode(rp, zbrar, false, dirty0, m + 1)))(zh2), disj(asar0, 0, m + 1), disj(asar, 0, m + 1), nsize(m + 1, nstat), sorted(zbrar, 0, m), unmodified(adr0, mkznode(rp, zbrar, false, dirty0, m + 1), iast), adr0 ∈ alladrs, as ⊆ alladrs, zh2 ⊥ zh1, dirty0 → dirty, (rp0 = null ⊃ adr0 ∈ as ∧ P(zh);r = rp0 ∧ zh2 ∪ zh1 = zh), ∀ rp, rp0, adr0, dirty, fi, iast, as, alladrs, nstat, P, zh. ((btree(rp, rp0, adr0, height0, dirty, fi, iast, as, alladrs, nstat) * P))(zh) → as ⊆ dom iast ⊦ # alladrs = 0, alladrs = ∅, adr0 ∈ as, as ⊆ dom iast, alladrs ⊆ dom iast |
# asar0 = m + 1, # asar = m + 1, # zbrar = BRANCH_SIZE, union(asar0, 0, m + 1) = alladrs -- adr0, (( (λ n. ⌜zbrar[n].branch?⌝ ∧ btree(rp0, zbrar[n].child, zbrar[n].adr, height0, true, key-range(zbrar, n, m + 1, fi), iast, asar[n], asar0[n], ok) )⊗_ (0, m + 1 ) * P) )(zh1), m < BRANCH_SIZE, n < BRANCH_SIZE, ((rp0 => mkznode(rp, zbrar, false, true, m + 1)))(zh2), disj(asar0, 0, m + 1), disj(asar, 0, m + 1), nsize(m + 1, nstat), sorted(zbrar, 0, m), adr0 ∈ alladrs, n ≤ m, zh2 ⊥ zh1, ∀ rp, rp0, adr0, dirty, fi, iast, as, alladrs, nstat, P, zh. ((btree(rp, rp0, adr0, height0, dirty, fi, iast, as, alladrs, nstat) * P))(zh) → as ⊆ dom iast, ∀ n. ¬ m < n → asar[n] ⊆ alladrs ⊦ # alladrs = 0, alladrs = ∅, rp0 = null, adr0 ∈ union(asar, 0, m + 1), alladrs ⊆ dom iast, asar[n] ⊆ dom iast
Used simplifier rules: lf-01: ⊦ m < n ∧ n = n0 → m < n0; (forward) from specification nat-basic%fle-01: ⊦ m ≤ n ∧ n < n0 → m < n0; (forward) from specification nat% ⊦ m < n ↔ ¬ n ≤ m; (ss)% ⊦ m < n + 1 ↔ ¬ n < m; (s)%c: ⊦ m + n = n + m; from specification nat-basic%a: ⊦ (m + n0) + n1 = m + n0 + n1; from specification nat-basic% ⊦ 0 ≤ m; (s)%⊦ union(asar, n, m) ⊆ as ↔ (∀ n0. n ≤ n0 ∧ n0 < n + m → asar[n0] ⊆ as); (s)% ⊦ unmodified(adr, mkznode(rp, zbrar, bv, true, nused), iast); (s)% ⊦ ¬ adr ∈ as → as -- adr = as; (s)