| # asar1 = (n0 + 1) + n, # asar0 = # asar1, # zbrar0 = BRANCH_SIZE, # asar = # asar1, # asar2 = # asar1, adr ∈ as0 ↔ adr ∈ as1, adr ∈ as1 ↔ ¬ dirty1, zbrar0[n] = mkzbranch(key, adr0, null), asar[n] = asar0[n], union(asar2, 0, # asar1) = alladrs0 -- adr, union(asar1, 0, # asar1) = as0 -- adr, union(asar, 0, # asar1) = as1 -- adr, union(asar0, 0, # asar1) = alladrs1 -- adr, ((btree(rp0, null, adr0, height0, false, key-range(zbrar0, n, # asar1, ri1), iast, asar0[n], asar0[n], ok) * P2))(zh), ((btree(rp0, null, adr0, height0, dirty1, key-range(zbrar0, n, # asar1, ri0), iast, asar1[n], asar2[n], ok) * P))(zh), n < BRANCH_SIZE, n0 + n < BRANCH_SIZE, n + 1 < BRANCH_SIZE, # asar1 < BRANCH_SIZE, disj(asar2, 0, # asar1), disj(asar1, 0, # asar1), disj(asar, 0, # asar1), disj(asar0, 0, # asar1), sorted(zbrar0, 0, n0 + n), unmodified(adr, mkznode(rp, zbrar0, false, dirty1, # asar1), iast), adr ∈ alladrs1, adr ∈ alladrs0, asar0[n] ⊆ dom iast, as1 ⊆ dom iast, as1 ⊆ alladrs1, as0 ⊆ dom iast, as0 ⊆ alladrs0, asar1[n] ⊆ asar2[n], asar1[n] ⊆ dom iast, dirty1 → dirty ⊦ # alladrs0 = 0, # alladrs1 = 0, alladrs0 = ∅, alladrs1 = ∅, key-range(zbrar0, n, # asar1, ri0) = key-range(zbrar0, n, # asar1, ri1) |
⊦ r = null ∨ ¬ zh0[r].dirty → ( ((btree(rp, r, adr, height, dirty, ri, iast, as, alladrs, nstat) * P))(zh0) ↔ ((btree(rp, r, adr, height, false, ri, iast, as, alladrs, nstat) * P))(zh0))
Used simplifier rules: btree-clean-alladrs: ⊦ (( btree(rp, r, adr, height, false, ri, iast, as, alladrs, nstat) * P) )(zh) → as = alladrs;%btree-clean-fwd: ⊦ (( btree (rp0, r0, adr, height0, false, ri0, iast, as0, alladrs0, nstat) * P0) )(zh0) ∧ (( btree (rp1, r1, adr, height1, false, ri1, iast, as1, alladrs1, nstat) * P1) )(zh1) → height0 = height1 ∧ as0 = as1 ∧ ri0 = ri1 ∧ alladrs0 = alladrs1;%sep-ass: ⊦ (P * P3) * P4 = P * P3 * P4; from specification heap-sep[zheap]%sep-com: ⊦ P * P2 = P2 * P; from specification heap-sep[zheap] Used terms: zh, P, ok, asar2[n], asar1[n], iast, key-range(zbrar0, n, # asar1, ri0), dirty1, height0, adr0, null, rp0