| ginval = ginval0, gstore = gstore0, nx = nx0, remove-refsize0(gstore2) = gstore2, remove-refsize0(istore0) = istore0, elems nx0 ∩ ginval0 = ∅, dom gstore2 ∪ elems nx0 = dom gstore0 ∪ ginval0, btree-inv(rp, adr, istore, istore0, zh, fi, fi0), inv(gstore0 \ ginval0), inv(gstore2), inv(istore), inv(istore0), ri-inj(fi), ri-inj(fi0), istore0 ⊑ istore, ¬ dups(nx0), pstate.journal? → nx0 ≠ [] ∧ pstate.lnum = nx0.last ∧ pstate.lnum ∈ gstore0, pstate.index? → pstate.lnum ∈ istore ⊦ ⟪btree_allocate_gnd#(adr, istore, istore0, gstore2, maxino0, ginval2, true; ginval0, gstore0, nx0, pstate; err)⟫ ⟨index_allocate_gnd#(fi, fi0, gstore2, maxino0, ginval2, true; ginval, gstore, nx; err0)⟩ (ginval = ginval0 ∧ gstore = gstore0 ∧ nx = nx0 ∧ err = err0) |
syn ↔ true, ginval = ginval3, ginval0 = ginval2, ginval1 = ginval3, gstore = gstore3, gstore0 = gstore2, gstore1 = gstore3, istore = istore1, istore0 = istore2, maxino = maxino0, nx = nx0, nx1 = nx0, remove-refsize0(istore1) = istore1, remove-refsize0(gstore2) = gstore2, elems nx0 ∩ ginval3 = ∅, dom gstore2 ∪ elems nx0 = dom gstore3 ∪ ginval3, btree-inv(rp, adr, istore2, istore1, zh, fi, fi0), inv(istore1), inv(istore2), inv(gstore2), inv(gstore3 \ ginval3), ri-inj(fi0), ri-inj(fi), istore1 ⊑ istore2, pstate.index? → pstate.lnum ∈ istore2, pstate.journal? → nx0 ≠ [] ∧ pstate.lnum = nx0.last ∧ pstate.lnum ∈ gstore3 ⊦ ⟪if syn then apersistence_allocate_gnd#(adr, istore0, istore, gstore0, maxino, ginval0, syn; ginval, gstore, nx, pstate; err) else abort⟫ ⟨index_allocate_gnd#(fi, fi0, gstore2, maxino0, ginval2, true; ginval1, gstore1, nx1; err0)⟩ (ginval1 = ginval ∧ gstore1 = gstore ∧ nx1 = nx ∧ err = err0), dups(nx0)
Used simplifier rules: btree_allocate_gnd# (ROOTADR, ISTORE, ISTORE0, GSTORE0, MAXINO, OS, PSYNCED ; GINVAL, GSTORE, NL, PSTATE ; ERR ) {if PSYNCED then apersistence_allocate_gnd# (ROOTADR, ISTORE, ISTORE0, GSTORE0, MAXINO, OS, PSYNCED ; GINVAL, GSTORE, NL, PSTATE ; ERR) else abort };