| adr0 = adr1, istore1 = istore, inv-journal(nx, gstore, gstore0, ginval), inv-index(istore, istore0), pstate.index?, inv-state(pstate, nx, gstore, istore, bv), ((btree(rp, r0, adr0, height, dirty, ri, nodes(istore) | as, as, alladrs, ok) * P))(zh), r0 ∈ zh, zh[r0].dirty, alladrs ⊆ dom nodes(istore), as0 ⊆ dom nodes(istore), as ∩ as0 = ∅, refsize-cons(istore, as0 ∪ as) ⊦ ⟪btree_commit_rec#(r0, adr, istore0, ginval, gstore, gstore0, nx, ino, ns; adr1, err, zh, istore, pstate, bv)⟫ ( istore1 ⊑ istore ∧ inv-state(pstate, nx, gstore, istore, bv) ∧ inv-journal(nx, gstore, gstore0, ginval) ∧ inv-index(istore, istore0) ∧ 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))) |