| syn ↔ syn0, ax = ax0, fi = fi1, fi0 = fi2, ginval = ginval2, gndx = gndx0, gstore = gstore2, maxino = maxino1, maxino0 = maxino2, nx = nx0, remove-refsize0(istore1) = istore1, remove-refsize0(gstore2) = gstore2, elems nx0 ∩ ginval0 = ∅, dom gstore2 ∪ elems nx0 = dom gstore0 ∪ ginval0, btree-inv(rp, adr, istore2, istore1, zh, fi2, fi1), inv(istore1), inv(istore2), inv(gstore2), inv(gstore0 \ ginval0), ri-inj(fi1), ri-inj(fi2), maxino2 ∈ gstore0, istore1 ⊑ istore2, ⌊err0⌋ , pstate = unbuffered → syn0, pstate.index? → pstate.lnum ∈ istore2, pstate.journal? → nx0 ≠ [] ∧ pstate.lnum = nx0.last ∧ pstate.lnum ∈ gstore0 ⊦ ⟨if maxino0 ∈ gstore0 ∧ ¬ maxino0 ∈ ginval0 then {fail_or_success#(; ; err); if err = ESUCCESS then ax := ax + gstore0[maxino0].ladrlist.to-adr(maxino0), gndx := gndx + gstore0[maxino0].gndlist else ax := ?, gndx := ?} else abort⟩ (ax1 = ax ∧ gndx1 = gndx ∧ err0 = err), dups(nx0), maxino2 ∈ ginval0 |
syn ↔ syn0, ax = ax0, fi = fi1, fi0 = fi2, ginval = ginval2, gndx = gndx0, gstore = gstore2, maxino = maxino1, maxino0 = maxino2, nx = nx0, remove-refsize0(gstore2) = gstore2, remove-refsize0(istore1) = istore1, elems nx0 ∩ ginval0 = ∅, dom gstore2 ∪ elems nx0 = dom gstore0 ∪ ginval0, btree-inv(rp, adr, istore2, istore1, zh, fi2, fi1), inv(gstore0 \ ginval0), inv(gstore2), inv(istore2), inv(istore1), ri-inj(fi2), ri-inj(fi1), maxino2 ∈ gstore0, istore1 ⊑ istore2, ⌊err0⌋ , pstate.journal? → nx0 ≠ [] ∧ pstate.lnum = nx0.last ∧ pstate.lnum ∈ gstore0, pstate.index? → pstate.lnum ∈ istore2, pstate = unbuffered → syn0 ⊦ ⟨fail_or_success#(; ; err); if err = ESUCCESS then ax := ax + gstore0[maxino0].ladrlist.to-adr(maxino0), gndx := gndx + gstore0[maxino0].gndlist else ax := ?, gndx := ?⟩ (ax1 = ax ∧ gndx1 = gndx ∧ err0 = err), dups(nx0), maxino2 ∈ ginval0