| zh0[r0] = mkznode(r1, zbrar0, boolvar0, boolvar1, m5), istore[adr1] = istore2[adr1], zh[r0] = mkznode(r, zbrar, boolvar, true, m0), istore2[m1] = indexblock(indx, lax, m4), err = ESUCCESS, remove-refsize0(istore0) = istore0, remove-refsize0(gstore0) = gstore0, elems nx ∩ ginval = ∅, dom gstore0 ∪ elems nx = dom gstore ∪ ginval, ((btree(null, null, adr1, height0, false, fi, nodes(istore0), alladrs0, alladrs0, ok) * true))(zh), ((btree(null, r0, (err = ESUCCESS ⊃ @(m1, m2, m3);adr1), height, err ≠ ESUCCESS, ri, nodes(istore2) | as0, as0, alladrs1, ok) * true))(zh0), ((btree(null, r0, adr1, height, dirty, ri, nodes(istore), as, alladrs, ok) * true))(zh), inv(istore0), inv(istore), inv(gstore0), inv(gstore \ ginval), inv(istore2), refsize-cons(istore0, alladrs0), refsize-cons(istore, as), refsize-cons(istore2, as0), m ∈ istore2, r0 ∈ zh, adr1 ∈ istore, m ∈ istore, r0 ∈ zh0, adr1 ∈ istore2, as0 ∩ dom nodes(istore) ⊆ alladrs, alladrs ⊆ dom nodes(istore), alladrs0 ⊆ dom nodes(istore0), alladrs0 ⊆ dom nodes(istore), as ⊆ dom nodes(istore), as ⊆ alladrs, alladrs1 ⊆ alladrs ∪ as0, as0 ∩ dom nodes(istore) ⊆ as, as0 ⊆ alladrs1, as0 ⊆ dom nodes(istore2), istore0 ⊑ istore, istore0 ⊑ istore2, istore ⊑ istore2, height = 0 → as = ∅, err = ESUCCESS → ¬ boolvar1 ∧ pstate0.index?, pstate0 = unbuffered → bv, pstate0.index? → pstate0.lnum ∈ istore2, pstate0.journal? → nx ≠ [] ∧ pstate0.lnum = nx.last ∧ pstate0.lnum ∈ gstore ⊦ dups(nx), adr1 ∈ as, (err ≠ ESUCCESS → btree-inv(r0, adr1, istore2, istore0, zh0, ri, fi)) ∧ ( err = ESUCCESS → btree-inv(r0, @(m1, m2, m3), istore2, istore2, zh0, ri, ri) ∧ btree-inv(r0, adr1, istore2[m1, indexblock(indx, lax, m4 - m3)], istore0, zh0[r0, mkznode(r1, zbrar0, boolvar0, true, m5)], ri, fi) ∧ ¬ boolvar1) |
zh0[r0] = mkznode(r1, zbrar0, boolvar0, false, m5), istore[adr1] = istore2[adr1], zh[r0] = mkznode(r, zbrar, boolvar, true, m0), istore2[m1] = indexblock(indx, lax, m4), remove-refsize0(istore0) = istore0, remove-refsize0(gstore0) = gstore0, elems nx ∩ ginval = ∅, dom gstore0 ∪ elems nx = dom gstore ∪ ginval, ((btree(null, r0, @(m1, m2, m3), height, false, ri, nodes(istore2) | alladrs1, alladrs1, alladrs1, ok) * true))(zh0), ((btree(null, r0, adr1, height, dirty, ri, nodes(istore), as, alladrs, ok) * true))(zh), ((btree(null, null, adr1, height0, false, fi, nodes(istore0), alladrs0, alladrs0, ok) * true))(zh), pstate0.index?, inv(istore0), inv(istore), inv(gstore0), inv(gstore \ ginval), inv(istore2), refsize-cons(istore0, alladrs0), refsize-cons(istore, as), refsize-cons(istore2, alladrs1), pstate0.lnum ∈ istore2, m ∈ istore2, r0 ∈ zh, adr1 ∈ istore, m ∈ istore, r0 ∈ zh0, adr1 ∈ istore2, @(m1, m2, m3) ∈ alladrs1, @(m1, m2, m3) ∈ istore2, alladrs ⊆ dom nodes(istore), alladrs0 ⊆ dom nodes(istore0), alladrs0 ⊆ dom nodes(istore), as ⊆ dom nodes(istore), as ⊆ alladrs, alladrs1 ∩ dom nodes(istore) ⊆ as, alladrs1 ⊆ dom nodes(istore2), alladrs1 ∩ dom nodes(istore) ⊆ alladrs, istore0 ⊑ istore, istore0 ⊑ istore2, istore ⊑ istore2, pstate0.journal? → nx ≠ [] ∧ pstate0.lnum = nx.last ∧ pstate0.lnum ∈ gstore, height = 0 → as = ∅, height = 0 → alladrs1 = ∅ ++ @(m1, m2, m3) ⊦ # alladrs1 = 0, alladrs1 = ∅, pstate0 = unbuffered, dups(nx), adr1 ∈ as, btree-inv(r0, @(m1, m2, m3), istore2, istore2, zh0, ri, ri) ∧ btree-inv(r0, adr1, istore2[m1, indexblock(indx, lax, m4 - m3)], istore0, zh0[r0, mkznode(r1, zbrar0, boolvar0, true, m5)], ri, fi)
Used simplifier rules: size-zero-01: ⊦ as ≠ ∅ → # as ≠ 0; (forward) from specification set-basic[node-store]% ⊦ adr ∈ nodes(istore) ↔ adr ∈ istore; (s)% ⊦ adr ∈ dom iast ↔ adr ∈ iast; (s)%ne-01: ⊦ adr ∈ as → as ≠ ∅; (forward) from specification set-basic[node-store]%sub-in: ⊦ adr ∈ as ∧ as ⊆ as0 → adr ∈ as0; (forward) from specification set-basic[node-store]% ⊦ as ⊆ dom iast → dom(iast | as) = as; (s)%int-c: ⊦ as ∩ as0 = as0 ∩ as; from specification set-union[node-store]%int-a: ⊦ (as ∩ as0) ∩ as1 = as ∩ as0 ∩ as1; from specification set-union[node-store]% ⊦ as ∩ as0 ⊆ as; (s)%btree-adrs: ⊦ (( btree (rp, rp0, adr0, height, dirty, fi, iast, as, alladrs, nstat) * P) )(zh) → as ⊆ dom iast; (forward) from specification btree-inv%btree-refed-subseteq-alladrs: ⊦ (( btree(rp, r, adr, height, dirty, fi, iast, as, alladrs, nstat) * P) )(zh) → as ⊆ alladrs; (forward) from specification btree-inv%btree-clean-adr-in: ⊦ r ∈ zh ∧ zh[r] = mkznode(rp0, zbrar, boolvar, false, height0) ∧ (( btree (rp, r, adr, height, dirty, ri, iast, as, alladrs, nstat) * P) )(zh) → adr ∈ as ∧ (height = 0 → as = ∅ ++ adr); (forward) from specification btree-inv%sub-trans: ⊦ as ⊆ as0 ∧ as0 ⊆ as1 → as ⊆ as1; (forward) from specification set-basic[node-store]% ⊦ ¬ unbuffered.index?; (s)% ⊦ as ⊆ as; (s)%unc: ⊦ as ∪ as0 = as0 ∪ as; from specification set-union[node-store]%una: ⊦ (as ∪ as0) ∪ as1 = as ∪ as0 ∪ as1; from specification set-union[node-store]% ⊦ as ⊆ as0 → as ⊆ as0 ∪ as1; (s)%sep-com: ⊦ P * P2 = P2 * P; from specification heap-sep[zheap]%sep-ass: ⊦ (P * P3) * P4 = P * P3 * P4; from specification heap-sep[zheap]%btree-clean-alladrs: ⊦ (( btree(rp, r, adr, height, false, ri, iast, as, alladrs, nstat) * P) )(zh) → as = alladrs; (forward) from specification btree-inv