| # asar2 = m + 1, # asar1 = m + 1, # asar0 = m + 1, # zbrar0 = BRANCH_SIZE, # asar = m + 1, adr ∈ as0 ↔ adr ∈ as1, adr ∈ as1 ↔ ¬ dirty1, m = n0 + n, union(asar2, 0, m + 1) = alladrs0 -- adr, union(asar1, 0, m + 1) = as0 -- adr, union(asar, 0, m + 1) = as1 -- adr, union(asar0, 0, m + 1) = alladrs1 -- adr, (( ( ( ( btree(rp0, zbrar0[n].child, zbrar0[n].adr, height0, dirty1, key-range(zbrar0, n, m + 1, ri1), iast, asar[n], asar0[n], ok) * (λ n. ⌜zbrar0[n].branch?⌝ ∧ btree(rp0, zbrar0[n].child, zbrar0[n].adr, height0, dirty1, key-range(zbrar0, n, m + 1, ri1), iast, asar[n], asar0[n], ok) )⊗_ (0, n )) * (λ n. ⌜zbrar0[n].branch?⌝ ∧ btree(rp0, zbrar0[n].child, zbrar0[n].adr, height0, dirty1, key-range(zbrar0, n, m + 1, ri1), iast, asar[n], asar0[n], ok) )⊗_ (1 + n, n0 )) * rp0 => mkznode(rp, zbrar0, false, dirty1, m + 1)) * P1) )(zh), (( ( (λ n. ⌜zbrar0[n].branch?⌝ ∧ btree(rp0, zbrar0[n].child, zbrar0[n].adr, height0, dirty1, key-range(zbrar0, n, m + 1, ri0), iast, asar1[n], asar2[n], ok) )⊗_ (0, m + 1 ) * rp0 => mkznode(rp, zbrar0, false, dirty1, m + 1)) * P0) )(zh), zbrar0[n].branch?, n < BRANCH_SIZE, m < BRANCH_SIZE, m + 1 < BRANCH_SIZE, disj(asar2, 0, m + 1), disj(asar1, 0, m + 1), disj(asar, 0, m + 1), disj(asar0, 0, m + 1), sorted(zbrar0, 0, m), unmodified(adr, mkznode(rp, zbrar0, false, dirty1, m + 1), iast), adr ∈ alladrs1, adr ∈ alladrs0, n ≤ m, asar[n] ⊆ asar0[n], asar[n] ⊆ dom iast, as1 ⊆ dom iast, as1 ⊆ alladrs1, as0 ⊆ dom iast, as0 ⊆ alladrs0, dirty1 → dirty, ∀ rp, rp0, adr, dirty, ri0, iast, as0, alladrs0, P0, zh, ri1, as1, alladrs1, P1. ((btree(rp, rp0, adr, height0, dirty, ri0, iast, as0, alladrs0, ok) * P0))(zh) ∧ ((btree(rp, rp0, adr, height0, dirty, ri1, iast, as1, alladrs1, ok) * P1))(zh) ∧ as0 ⊆ alladrs0 ∧ as0 ⊆ dom iast ∧ as1 ⊆ alladrs1 ∧ as1 ⊆ dom iast → ri0 = ri1 ∨ rp0 = null ⊦ # alladrs0 = 0, # alladrs1 = 0, alladrs0 = ∅, alladrs1 = ∅, key-range(zbrar0, n, m + 1, ri0) = key-range(zbrar0, n, m + 1, ri1) |
# asar2 = (n0 + n) + 1, # asar1 = # asar2, # asar0 = # asar2, # zbrar0 = BRANCH_SIZE, # asar = # asar2, adr ∈ as0 ↔ adr ∈ as1, adr ∈ as1 ↔ ¬ dirty1, union(asar2, 0, # asar2) = alladrs0 -- adr, union(asar1, 0, # asar2) = as0 -- adr, union(asar, 0, # asar2) = as1 -- adr, union(asar0, 0, # asar2) = alladrs1 -- adr, (( ( ( ( btree(rp0, zbrar0[n].child, zbrar0[n].adr, height0, dirty1, key-range(zbrar0, n, # asar2, ri1), iast, asar[n], asar0[n], ok) * (λ n1. ⌜zbrar0[n1].branch?⌝ ∧ btree (rp0, zbrar0[n1].child, zbrar0[n1].adr, height0, dirty1, key-range(zbrar0, n1, # asar2, ri1), iast, asar[n1], asar0[n1], ok) )⊗_ (0, n )) * (λ n1. ⌜zbrar0[n1].branch?⌝ ∧ btree(rp0, zbrar0[n1].child, zbrar0[n1].adr, height0, dirty1, key-range(zbrar0, n1, # asar2, ri1), iast, asar[n1], asar0[n1], ok) )⊗_ (1 + n, n0 )) * rp0 => mkznode(rp, zbrar0, false, dirty1, # asar2)) * P1) )(zh), (( ( (λ n1. ⌜zbrar0[n1].branch?⌝ ∧ btree(rp0, zbrar0[n1].child, zbrar0[n1].adr, height0, dirty1, key-range(zbrar0, n1, # asar2, ri0), iast, asar1[n1], asar2[n1], ok) )⊗_ (0, # asar2 ) * rp0 => mkznode(rp, zbrar0, false, dirty1, # asar2)) * P0) )(zh), zbrar0[n].branch?, n < BRANCH_SIZE, n0 + n < BRANCH_SIZE, # asar2 < BRANCH_SIZE, disj(asar2, 0, # asar2), disj(asar1, 0, # asar2), disj(asar, 0, # asar2), disj(asar0, 0, # asar2), sorted(zbrar0, 0, n0 + n), unmodified(adr, mkznode(rp, zbrar0, false, dirty1, # asar2), iast), adr ∈ alladrs1, adr ∈ alladrs0, asar[n] ⊆ asar0[n], asar[n] ⊆ dom iast, as1 ⊆ dom iast, as1 ⊆ alladrs1, as0 ⊆ dom iast, as0 ⊆ alladrs0, dirty1 → dirty, ∀ rp, rp0, adr, dirty, ri0, iast, as0, alladrs0, P0, zh, ri1, as1, alladrs1, P1. ((btree(rp, rp0, adr, height0, dirty, ri0, iast, as0, alladrs0, ok) * P0))(zh) ∧ ((btree(rp, rp0, adr, height0, dirty, ri1, iast, as1, alladrs1, ok) * P1))(zh) ∧ as0 ⊆ alladrs0 ∧ as0 ⊆ dom iast ∧ as1 ⊆ alladrs1 ∧ as1 ⊆ dom iast → ri0 = ri1 ∨ rp0 = null ⊦ # alladrs0 = 0, # alladrs1 = 0, alladrs0 = ∅, alladrs1 = ∅, key-range(zbrar0, n, # asar2, ri0) = key-range(zbrar0, n, # asar2, ri1)
Used simplifier rules: lf-02: ⊦ m < n ∧ m = n0 → n0 < n; (forward) from specification nat-basic%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)