| gstore0[maxino2] = groupblock(gndx1, lax, m), ax = ax0, err = ESUCCESS, gndx = gndx0, 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), inv(groupblock(gndx1, lax, m)), ri-inj(fi2), ri-inj(fi1), maxino2 ∈ gstore0, istore1 ⊑ istore2, pstate.journal? → nx0 ≠ [] ∧ pstate.lnum = nx0.last ∧ pstate.lnum ∈ gstore0, pstate.index? → pstate.lnum ∈ istore2, pstate = unbuffered → syn0 ⊦ ⟨ax := ax + gstore0[maxino2].ladrlist.to-adr(maxino2), gndx := gndx + gstore0[maxino2].gndlist⟩ (ax0 + lax.to-adr(maxino2) = ax ∧ gndx0 + gndx1 = gndx ∧ ESUCCESS = err), dups(nx0), maxino2 ∈ ginval0 |
Used simplifier rules: ⊦ ax + ax0 = ax + ax1 ↔ ax0 = ax1; (s)% ⊦ lax0.to-adr(n) = lax1.to-adr(n) ↔ lax0 = lax1; (s)%a: ⊦ (ax + ax0) + ax1 = ax + ax0 + ax1; from specification list[address-list-set]% ⊦ gndx + gndx0 = gndx + gndx1 ↔ gndx0 = gndx1; (s)%a: ⊦ (gndx + gndx0) + gndx1 = gndx + gndx0 + gndx1; from specification list[group-store]% ⊦ groupblock(gndx, lax, m).ladrlist = lax; (s)% ⊦ groupblock(gndx, lax, m).gndlist = gndx; (s)