| adr0 = adr1, istore1 = istore, pstate = index(m), remove-refsize0(istore0) = istore0, remove-refsize0(gstore0) = gstore0, elems nx ∩ ginval = ∅, as ∩ as0 = ∅, dom gstore0 ∪ elems nx = dom gstore ∪ ginval, ((btree(rp, r0, adr1, height, dirty, ri, nodes(istore) | as, as, alladrs, ok) * P))(zh), zh[r0].dirty, inv(istore0), inv(istore), inv(gstore0), inv(gstore \ ginval), refsize-cons(istore, as0 ∪ as), m ∈ istore, r0 ∈ zh, as0 ⊆ dom nodes(istore), alladrs ⊆ dom nodes(istore), as ⊆ alladrs, as ⊆ dom nodes(istore), istore0 ⊑ istore, ¬ dups(nx) ⊦ ⟪btree_commit_rec#(r0, adr, istore0, ginval, gstore, gstore0, nx, ino, ns; adr1, err, zh, istore, pstate, bv)⟫ ( istore1 ⊑ istore ∧ (pstate.journal? → nx ≠ [] ∧ pstate.lnum = nx.last ∧ pstate.lnum ∈ gstore) ∧ (pstate.index? → pstate.lnum ∈ istore) ∧ (pstate = unbuffered → bv) ∧ inv(istore) ∧ istore0 ⊑ istore ∧ r0 ∈ zh ∧ (err = ESUCCESS → ¬ zh[r0].dirty ∧ pstate.index?) ∧ (∃ as1, alladrs1. refsize-cons(istore, as0 ∪ as1) ∧ as1 ∩ dom nodes(istore1) ⊆ as ∧ as1 ∩ as0 = ∅ ∧ alladrs1 ⊆ alladrs ∪ as1 ∧ ((btree(rp, r0, (err = ESUCCESS ⊃ adr1;adr0), height, err ≠ ESUCCESS, ri, nodes(istore) | as1, as1, alladrs1, ok) * P))(zh))) |
zh[r0] = mkznode(r, zbrar, boolvar, boolvar0, m0), adr0 = adr1, boolvar0, istore1 = istore, pstate = index(m), remove-refsize0(gstore0) = gstore0, remove-refsize0(istore0) = istore0, as ∩ as0 = ∅, elems nx ∩ ginval = ∅, dom gstore0 ∪ elems nx = dom gstore ∪ ginval, ((btree(rp, r0, adr1, height, dirty, ri, nodes(istore) | as, as, alladrs, ok) * P))(zh), inv(gstore \ ginval), inv(gstore0), inv(istore), inv(istore0), refsize-cons(istore, as0 ∪ as), r0 ∈ zh, m ∈ istore, as ⊆ dom nodes(istore), as ⊆ alladrs, alladrs ⊆ dom nodes(istore), as0 ⊆ dom nodes(istore), istore0 ⊑ istore ⊦ ⟪btree_commit_rec#(r0, adr, istore0, ginval, gstore, gstore0, nx, ino, ns; adr1, err, zh, istore, pstate, bv)⟫ ( istore1 ⊑ istore ∧ (pstate.journal? → nx ≠ [] ∧ pstate.lnum = nx.last ∧ pstate.lnum ∈ gstore) ∧ (pstate.index? → pstate.lnum ∈ istore) ∧ (pstate = unbuffered → bv) ∧ inv(istore) ∧ istore0 ⊑ istore ∧ r0 ∈ zh ∧ (err = ESUCCESS → ¬ zh[r0].dirty ∧ pstate.index?) ∧ (∃ as1, alladrs1. refsize-cons(istore, as0 ∪ as1) ∧ as1 ∩ dom nodes(istore1) ⊆ as ∧ as1 ∩ as0 = ∅ ∧ alladrs1 ⊆ alladrs ∪ as1 ∧ ((btree(rp, r0, (err = ESUCCESS ⊃ adr1;adr0), height, err ≠ ESUCCESS, ri, nodes(istore) | as1, as1, alladrs1, ok) * P))(zh))), dups(nx)
Used simplifier rules: ⊦ ( ( (r = znd.parent ∧ zbrar = znd.zbranches) ∧ (boolvar ↔ znd.leaf)) ∧ (boolvar0 ↔ znd.dirty)) ∧ m = znd.usedsize ↔ znd = mkznode(r, zbrar, boolvar, boolvar0, m); (elim) Used terms: zh[r0], r, zbrar, boolvar, boolvar0, m0