| adr = adr0, ginval0 = ginval, ginval1 = ginval2, gstore1 = crash(gstore, gstore0, ginval, nx), gstore2 = gstore0, istore1 = remove-refsize0(crash(istore, istore0)), istore2 = istore0, maxino = maxino0, nx0 = nx, syn, inv-index(istore, istore0), inv-journal(nx, gstore, gstore0, ginval), inv-state(pstate, nx, gstore, istore, syn), n ∈ gstore ⊦ ⟨apersistence_deallocate_gnd#(n, adr0, istore, istore0, gstore0, nx, maxino0, ginval2, pstate, syn; ginval, gstore; err)⟩ ( syn ∧ adr = adr0 ∧ istore1 = remove-refsize0(crash(istore, istore0)) ∧ istore2 = istore0 ∧ ginval0 = ginval ∧ gstore1 = crash(gstore, gstore0, ginval, nx) ∧ gstore2 = gstore0 ∧ nx0 = nx ∧ maxino = maxino0 ∧ ginval1 = ginval2), n ∈ nx |
ginval0 = ginval, gstore1 = crash(gstore, gstore0, ginval, nx), remove-refsize0(gstore0) = gstore0, remove-refsize0(istore0) = istore0, elems nx ∩ ginval = ∅, dom gstore0 ∪ elems nx = dom gstore ∪ ginval, inv(gstore \ ginval), inv(gstore0), inv(istore), inv(istore0), n ∈ gstore, n ∈ gstore0, istore0 ⊑ istore, ¬ dups(nx), ¬ n ∈ nx, pstate.journal? → nx ≠ [] ∧ pstate.lnum = nx.last ∧ pstate.lnum ∈ gstore, pstate.index? → pstate.lnum ∈ istore ⊦ ⟨apersistence_deallocate_gnd#(n, adr0, istore, istore0, gstore0, nx, maxino0, ginval2, pstate, true; ginval, gstore; err)⟩ (ginval0 = ginval ∧ gstore1 = crash(gstore, gstore0, ginval, nx))
Used simplifier rules: fwd-in-gstore0: ⊦ n ∈ gstore ∧ ¬ n ∈ nx ∧ dom gstore0 ∪ elems nx = dom gstore ∪ ginval → n ∈ gstore0; (forward) from specification apersistence-base%unc: ⊦ ns ∪ ns0 = ns0 ∪ ns; from specification set-union[nat-set]%una: ⊦ (ns ∪ ns0) ∪ ns1 = ns ∪ ns0 ∪ ns1; from specification set-union[nat-set]%⊦ inv-index(istore, istore0) ↔ inv(istore) ∧ inv(istore0) ∧ istore0 ⊑ istore ∧ remove-refsize0(istore0) = istore0; (s)%⊦ inv-journal(nx, gstore, gstore0, ginval) ↔ inv(gstore \ ginval) ∧ inv(gstore0) ∧ elems nx ∩ ginval = ∅ ∧ ¬ dups(nx) ∧ dom gstore0 ∪ elems nx = dom gstore ∪ ginval ∧ remove-refsize0(gstore0) = gstore0; (s)%⊦ inv-state(pstate, nx, gstore, istore, syn) ↔ ( pstate.journal? → nx ≠ [] ∧ pstate.lnum = nx.last ∧ pstate.lnum ∈ gstore) ∧ (pstate.index? → pstate.lnum ∈ istore) ∧ (pstate = unbuffered → syn); (s)