| syn ↔ false, syn0 ↔ syn1, adr = adr1, adr0 = adr3, adr1 = adr2, adr2 = adr3, ginval = ginval2, ginval0 = ginval4, ginval1 = ginval3, gstore = gstore1, gstore0 = gstore2, istore = istore1, istore0 = istore2, maxino1 = maxino, pstate = unbuffered, remove-refsize0(gstore1) = gstore1, remove-refsize0(istore1) = istore1, syn1, dom remove-refsize0(gstore2) ∩ ginval4 = ∅, elems nx ∩ ginval4 = ∅, dom gstore1 ∪ elems nx = dom gstore2 ∪ ginval4, btree-inv(rp, adr3, istore2, istore1, zh, ri, fi), inv(gstore2 \ ginval4), inv(gstore1), inv(istore2), inv(istore1), istore1 ⊑ istore2 ⊦ ⟪err := ESUCCESS; if rp ≠ null ∧ zh[rp].dirty then {apersistence_allocate_ind#(adr0, istore, ginval0, gstore0, gstore, nx, maxino0, ginval, syn0; istore0, pstate; err); if err = ESUCCESS then btree_commit_rec#(rp, adr0, istore, ginval0, gstore0, gstore, nx, maxino0, ginval; adr, err, zh, istore0, pstate, syn0); if err = ESUCCESS then {syn := true; apersistence_sync#(adr0, istore0, istore, ginval0, gstore0, gstore, nx, maxino0, ginval; pstate, syn0; err)}}; if err = ESUCCESS then apersistence_commit#(adr, maxino1, syn0; ginval1, adr0, istore0, istore, ginval0, gstore0, gstore, nx, maxino0, ginval, pstate; err); if err = ESUCCESS then adr1 := adr else if syn then {zh[rp].dirty := true; let maxino = 0 in {apersistence_get_iblock_refsize# (adr.lnum, adr0, istore0, istore, ginval0, gstore0, gstore, nx, maxino0, ginval, pstate, syn0; ; maxino); apersistence_set_iblock_refsize# (adr.lnum, maxino - adr.size, adr0, istore, ginval0, gstore0, gstore, nx, maxino0, ginval, pstate, syn0; istore0)}}⟫ ( (∃ ri, fi. btree-inv(rp, adr0, istore0, istore, zh, ri, fi)) ∧ inv(gstore0 \ ginval0) ∧ inv(gstore) ∧ elems nx ∩ ginval0 = ∅ ∧ ¬ dups(nx) ∧ dom gstore ∪ elems nx = dom gstore0 ∪ ginval0 ∧ remove-refsize0(gstore) = gstore ∧ inv(istore0) ∧ inv(istore) ∧ istore ⊑ istore0 ∧ remove-refsize0(istore) = istore ∧ (pstate.journal? → nx ≠ [] ∧ pstate.lnum = nx.last ∧ pstate.lnum ∈ gstore0) ∧ (pstate.index? → pstate.lnum ∈ istore0) ∧ (pstate = unbuffered → syn0)), dups(nx) |
syn0 ↔ syn1, syn ↔ false, adr = adr1, adr0 = adr3, adr1 = adr2, adr2 = adr3, err = ESUCCESS, ginval = ginval2, ginval0 = ginval4, ginval1 = ginval3, gstore = gstore1, gstore0 = gstore2, istore = istore1, istore0 = istore2, maxino1 = maxino, pstate = unbuffered, remove-refsize0(istore1) = istore1, remove-refsize0(gstore1) = gstore1, syn1, elems nx ∩ ginval4 = ∅, dom remove-refsize0(gstore2) ∩ ginval4 = ∅, dom gstore1 ∪ elems nx = dom gstore2 ∪ ginval4, btree-inv(rp, adr3, istore2, istore1, zh, ri, fi), inv(istore1), inv(istore2), inv(gstore1), inv(gstore2 \ ginval4), istore1 ⊑ istore2 ⊦ ⟪if rp ≠ null ∧ zh[rp].dirty then {apersistence_allocate_ind#(adr0, istore, ginval0, gstore0, gstore, nx, maxino0, ginval, syn0; istore0, pstate; err); if err = ESUCCESS then btree_commit_rec#(rp, adr0, istore, ginval0, gstore0, gstore, nx, maxino0, ginval; adr, err, zh, istore0, pstate, syn0); if err = ESUCCESS then {syn := true; apersistence_sync#(adr0, istore0, istore, ginval0, gstore0, gstore, nx, maxino0, ginval; pstate, syn0; err)}}; if err = ESUCCESS then apersistence_commit#(adr, maxino1, syn0; ginval1, adr0, istore0, istore, ginval0, gstore0, gstore, nx, maxino0, ginval, pstate; err); if err = ESUCCESS then adr1 := adr else if syn then {zh[rp].dirty := true; let maxino = 0 in {apersistence_get_iblock_refsize# (adr.lnum, adr0, istore0, istore, ginval0, gstore0, gstore, nx, maxino0, ginval, pstate, syn0; ; maxino); apersistence_set_iblock_refsize# (adr.lnum, maxino - adr.size, adr0, istore, ginval0, gstore0, gstore, nx, maxino0, ginval, pstate, syn0; istore0)}}⟫ ( (∃ ri, fi. btree-inv(rp, adr0, istore0, istore, zh, ri, fi)) ∧ inv(gstore0 \ ginval0) ∧ inv(gstore) ∧ elems nx ∩ ginval0 = ∅ ∧ ¬ dups(nx) ∧ dom gstore ∪ elems nx = dom gstore0 ∪ ginval0 ∧ remove-refsize0(gstore) = gstore ∧ inv(istore0) ∧ inv(istore) ∧ istore ⊑ istore0 ∧ remove-refsize0(istore) = istore ∧ (pstate.journal? → nx ≠ [] ∧ pstate.lnum = nx.last ∧ pstate.lnum ∈ gstore0) ∧ (pstate.index? → pstate.lnum ∈ istore0) ∧ (pstate = unbuffered → syn0)), dups(nx)