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