| # zbrar0 = BRANCH_SIZE, # asar = m + 1, # asar0 = m + 1, # zbrar = BRANCH_SIZE, # asar1 = m + 1, # asar2 = m + 1, asar1[n] = asar2[n], m = n0 + n, union(asar, 0, m + 1) = alladrs0 -- adr, union(asar0, 0, m + 1) = alladrs0 -- adr, union(asar1, 0, m + 1) = alladrs1 -- adr, union(asar2, 0, m + 1) = alladrs1 -- adr, (( ( ( btree(r, zbrar[n].child, zbrar[n].adr, height0, false, key-range(zbrar, n, m + 1, ri1), iast1, asar2[n], asar2[n], ok) * (λ n. ⌜zbrar[n].branch?⌝ ∧ btree(r, zbrar[n].child, zbrar[n].adr, height0, false, key-range(zbrar, n, m + 1, ri1), iast1, asar1[n], asar2[n], ok) )⊗_ (0, n )) * (λ n. ⌜zbrar[n].branch?⌝ ∧ btree(r, zbrar[n].child, zbrar[n].adr, height0, false, key-range(zbrar, n, m + 1, ri1), iast1, asar1[n], asar2[n], ok) )⊗_ (1 + n, n0 )) * P1) )(zh3), (( (λ n. ⌜zbrar0[n].branch?⌝ ∧ btree(r2, zbrar0[n].child, zbrar0[n].adr, height, false, key-range(zbrar0, n, m + 1, ri0), iast0, asar[n], asar0[n], ok) )⊗_ (0, m + 1 ) * P0) )(zh), zbrar[n].branch?, n < BRANCH_SIZE, m < BRANCH_SIZE, ((r2 => mkznode(rp0, zbrar0, false, false, m + 1)))(zh5), ((r => mkznode(rp1, zbrar, false, false, m + 1)))(zh4), disj(asar, 0, m + 1), disj(asar0, 0, m + 1), disj(asar1, 0, m + 1), disj(asar2, 0, m + 1), nsize(m + 1, nstat), sorted(zbrar, 0, m), sorted(zbrar0, 0, m), unmodified(adr, mkznode(rp1, zbrar, false, false, m + 1), iast1), unmodified(adr, mkznode(rp0, zbrar0, false, false, m + 1), iast0), adr ∈ iast1, adr ∈ alladrs1, adr ∈ iast0, adr ∈ alladrs0, n ≤ m, alladrs1 ⊆ dom iast1, alladrs0 ⊆ dom iast0, iast0 ⊆ iast1, asar2[n] ⊆ dom iast1, zh5 ⊥ zh, zh4 ⊥ zh3, (r0 = null ⊃ P0(zh0);r2 = r0 ∧ zh5 ∪ zh = zh0), (r1 = null ⊃ P1(zh1);r = r1 ∧ zh4 ∪ zh3 = zh1), ∀ rp1, r1, adr, height1, ri1, iast1, alladrs1, nstat, P1, zh1, rp0, r0, ri0, iast0, alladrs0, P0, zh0. ((btree(rp1, r1, adr, height1, false, ri1, iast1, alladrs1, alladrs1, nstat) * P1))(zh1) ∧ ((btree(rp0, r0, adr, height, false, ri0, iast0, alladrs0, alladrs0, nstat) * P0))(zh0) ∧ alladrs1 ⊆ dom iast1 ∧ alladrs0 ⊆ dom iast0 ∧ iast0 ⊆ iast1 → height = height1 ∧ ri0 = ri1 ∧ alladrs0 = alladrs1 ⊦ # alladrs1 = 0, # alladrs0 = 0, alladrs0 = ∅, alladrs1 = ∅, key-range(zbrar0, n, m + 1, ri0) = key-range(zbrar0, n, m + 1, ri1) |
# zbrar0 = BRANCH_SIZE, # asar = (n0 + n) + 1, # asar0 = # asar, # zbrar = BRANCH_SIZE, # asar1 = # asar, # asar2 = # asar, asar1[n] = asar2[n], union(asar, 0, # asar) = alladrs0 -- adr, union(asar0, 0, # asar) = alladrs0 -- adr, union(asar1, 0, # asar) = alladrs1 -- adr, union(asar2, 0, # asar) = alladrs1 -- adr, (( ( ( btree(r, zbrar[n].child, zbrar[n].adr, height0, false, key-range(zbrar, n, # asar, ri1), iast1, asar2[n], asar2[n], ok) * (λ n1. ⌜zbrar[n1].branch?⌝ ∧ btree(r, zbrar[n1].child, zbrar[n1].adr, height0, false, key-range(zbrar, n1, # asar, ri1), iast1, asar1[n1], asar2[n1], ok) )⊗_ (0, n )) * (λ n1. ⌜zbrar[n1].branch?⌝ ∧ btree(r, zbrar[n1].child, zbrar[n1].adr, height0, false, key-range(zbrar, n1, # asar, ri1), iast1, asar1[n1], asar2[n1], ok) )⊗_ (1 + n, n0 )) * P1) )(zh3), (( (λ n1. ⌜zbrar0[n1].branch?⌝ ∧ btree(r2, zbrar0[n1].child, zbrar0[n1].adr, height, false, key-range(zbrar0, n1, # asar, ri0), iast0, asar[n1], asar0[n1], ok) )⊗_ (0, # asar ) * P0) )(zh), zbrar[n].branch?, n < BRANCH_SIZE, n0 + n < BRANCH_SIZE, ((r2 => mkznode(rp0, zbrar0, false, false, # asar)))(zh5), ((r => mkznode(rp1, zbrar, false, false, # asar)))(zh4), disj(asar, 0, # asar), disj(asar0, 0, # asar), disj(asar1, 0, # asar), disj(asar2, 0, # asar), nsize(# asar, nstat), sorted(zbrar, 0, n0 + n), sorted(zbrar0, 0, n0 + n), unmodified(adr, mkznode(rp1, zbrar, false, false, # asar), iast1), unmodified(adr, mkznode(rp0, zbrar0, false, false, # asar), iast0), adr ∈ iast1, adr ∈ alladrs1, adr ∈ iast0, adr ∈ alladrs0, alladrs1 ⊆ dom iast1, alladrs0 ⊆ dom iast0, iast0 ⊆ iast1, asar2[n] ⊆ dom iast1, zh5 ⊥ zh, zh4 ⊥ zh3, (r0 = null ⊃ P0(zh0);r2 = r0 ∧ zh5 ∪ zh = zh0), (r1 = null ⊃ P1(zh1);r = r1 ∧ zh4 ∪ zh3 = zh1), ∀ rp1, r1, adr, height1, ri1, iast1, alladrs1, nstat, P1, zh1, rp0, r0, ri0, iast0, alladrs0, P0, zh0. ((btree(rp1, r1, adr, height1, false, ri1, iast1, alladrs1, alladrs1, nstat) * P1))(zh1) ∧ ((btree(rp0, r0, adr, height, false, ri0, iast0, alladrs0, alladrs0, nstat) * P0))(zh0) ∧ alladrs1 ⊆ dom iast1 ∧ alladrs0 ⊆ dom iast0 ∧ iast0 ⊆ iast1 → height = height1 ∧ ri0 = ri1 ∧ alladrs0 = alladrs1 ⊦ # alladrs1 = 0, # alladrs0 = 0, alladrs0 = ∅, alladrs1 = ∅, key-range(zbrar0, n, # asar, ri0) = key-range(zbrar0, n, # asar, ri1)
Used simplifier rules: lf-01: ⊦ m < n ∧ n = n0 → m < n0; (forward) from specification nat-basic%c: ⊦ m + n = n + m; from specification nat-basic%a: ⊦ (m + n0) + n1 = m + n0 + n1; from specification nat-basic% ⊦ m ≤ m + n; (s)