| # zbrar = BRANCH_SIZE, # asar = m + 1, # asar0 = m + 1, (( ( (λ n. ⌜zbrar[n].branch?⌝ ∧ btree(r0, zbrar[n].child, zbrar[n].adr, height0, false, key-range(zbrar, n, m + 1, fi), iast, asar[n], asar0[n], ok) )⊗_ (0, m + 1 ) * r0 => mkznode(rp, zbrar, false, false, m + 1)) * P) )(zh0), m < BRANCH_SIZE, n < BRANCH_SIZE, disj(asar, 0, m + 1), disj(asar0, 0, m + 1), nsize(m + 1, nstat), sorted(zbrar, 0, m), unmodified(adr, mkznode(rp, zbrar, false, false, m + 1), iast), n ≤ m, (r = null ⊃ P(zh);r0 = r ∧ zh0 = zh), ∀ rp, r, adr, dirty, fi, iast, as, alladrs, nstat, P, zh. ((btree(rp, r, adr, height0, dirty, fi, iast, as, alladrs, nstat) * P))(zh) → as ⊆ alladrs ⊦ adr ∈ union(asar, 0, m + 1), adr ∈ union(asar0, 0, m + 1), union(asar, 0, m + 1) ++ adr ⊆ union(asar0, 0, m + 1), asar[n] ⊆ union(asar0, 0, m + 1) ++ adr |
⊦ as ⊆ as0 → as ⊆ as0 ++ adr
# asar0 = m + 1, # asar = m + 1, # zbrar = BRANCH_SIZE, (( ( (λ n. ⌜zbrar[n].branch?⌝ ∧ btree(r0, zbrar[n].child, zbrar[n].adr, height0, false, key-range(zbrar, n, m + 1, fi), iast, asar[n], asar0[n], ok) )⊗_ (0, m + 1 ) * r0 => mkznode(rp, zbrar, false, false, m + 1)) * P) )(zh0), n < BRANCH_SIZE, m < BRANCH_SIZE, disj(asar0, 0, m + 1), disj(asar, 0, m + 1), nsize(m + 1, nstat), sorted(zbrar, 0, m), unmodified(adr, mkznode(rp, zbrar, false, false, m + 1), iast), n ≤ m, (r = null ⊃ P(zh);r0 = r ∧ zh0 = zh), ∀ rp, r, adr, dirty, fi, iast, as, alladrs, nstat, P, zh. ((btree(rp, r, adr, height0, dirty, fi, iast, as, alladrs, nstat) * P))(zh) → as ⊆ alladrs ⊦ adr ∈ union(asar0, 0, m + 1), adr ∈ union(asar, 0, m + 1), asar[n] ⊆ union(asar0, 0, m + 1) ++ adr, union(asar, 0, m + 1) ++ adr ⊆ union(asar0, 0, m + 1), asar[n] ⊆ union(asar0, 0, m + 1)
Used terms: adr, union(asar0, 0, m + 1), asar[n]