| # gndx0 = # lax0, # buf0 = gndx0.flashsize, # lpt0 = # avol, # lpt1 = # avol, (elems nx ∪ dom gstore0) ++ n1 = dom gstore ∪ ginval, gstore[n1] = groupblock(gndx1, lax1, m), avol[n1] = mapped(buf1), lpt1[n1] = mklp(m, # buf1, LP_GROUP_NODES, m3), keyset(gch) = gc-heap(lpt1, nx + n1 '), pstate = journal(n1), remove-refsize0(gstore0) = gstore0, remove-refsize0(istore1) = istore1, ginval ∩ elems nx = ∅, mapped(buf1).mapped?, n1 < # avol, ginval < # avol, n < gndx0.flashsize, abs-gstore(avol, lpt1, gstore, ginval), abs-istore(avol, lpt1, istore2), abs-nodes(buf0, # buf1, gndx0, lax0, false), abs-nodes (mapped(buf1).data, groupblock(gndx1, lax1, m).gndlist, groupblock(gndx1, lax1, m).ladrlist, mklp(m, # buf1, LP_GROUP_NODES, m3).size = LEB_SIZE), awbuf-inv(avol, buffered(n1)), awbuf-inv(avol[n1, mapped(buf1 + subarray(buf0, 0, n))], buffered(n1)), bin-heap-inv(gch, lpt1), buf-ro-rw-mode(false, buffered(n1), lpt1, avol), bufs-log-only(buffered(n1), nx + n1 ', lpt1), flash-lpt-cons(lpt0, istore1, gstore0), freelist-cons(lpt1, freelist), inv(gstore \ ginval), inv(gstore0), inv(istore2), inv(istore1), inv(groupblock(gndx1, lax1, m)), is-aligned(# buf1 + n, EB_PAGE_SIZE), log-group-block(nx + n1 ', lpt1), lpt-free-unref(lpt0), lpt-free-unref(lpt1), lpt-leb-size(lpt0), lpt-leb-size(lpt1), lpt-ram-flash(lpt1, lpt0, nx + n1 '), n1 ∈ gstore, # buf1 + gndx0.flashsize ≤ LEB_SIZE, istore1 ⊑ istore2, ⌊err1⌋ , isbuf1 → synced(avol), is-aligned(n, NODE_HEADER_SIZE) → n0 < # lax0 ∧ abs-nodes(subarray(buf0, 0, n), # buf1, prefixn(n0, gndx0), prefixn(n0, lax0), true), mklp(m, # buf1, LP_GROUP_NODES, m3).size ≠ LEB_SIZE → mklp(m, # buf1, LP_GROUP_NODES, m3).size = # mapped(buf1).data ⊦ ¬ dups(lax1 + prefixn(n0, lax0)) ∧ # prefixn(n0, lax0) < # lax0 ∧ inv-flashsize(prefixn(# prefixn(n0, lax0), gndx0), prefixn(n0, lax0)) ∧ # prefixn(n0, lax0) ≠ # lax0 ∧ ⟨ax := prefixn(n0, lax0).to-adr(pstate.lnum), err0 := err1; gstore[pstate.lnum].gndlist := gstore[pstate.lnum].gndlist + prefixn(# prefixn(n0, lax0), gndx0); gstore[pstate.lnum].ladrlist := gstore[pstate.lnum].ladrlist + prefixn(n0, lax0); if err0 ≠ ESUCCESS then ax := ?, pstate := readonly; isbuf1 := ?⟩ ( abs-gstore(avol[n1, mapped(avol[n1].data + subarray(buf0, 0, n))], lpt1[n1, mklp(m, LEB_SIZE, LP_GROUP_NODES, m3)], gstore, ginval) ∧ pstate = readonly ∧ lax0.to-adr(n1) = ax ∧ err1 = err0), gndx0 = [], n = 0, dups(nx), n1 ∈ nx, n1 ∈ ginval |
# gndx1 = # lax1, # gndx0 = # lax0, # buf0 = gndx0.flashsize, # lpt0 = # avol, # lpt1 = # avol, (elems nx ∪ dom gstore0) ++ n1 = dom gstore ∪ ginval, gstore[n1] = groupblock(gndx1, lax1, m), avol[n1] = mapped(buf1), lpt1[n1] = mklp(m, # buf1, LP_GROUP_NODES, m3), keyset(gch) = gc-heap(lpt1, nx + n1 '), pstate = journal(n1), remove-refsize0(gstore0) = gstore0, remove-refsize0(istore1) = istore1, ginval ∩ elems nx = ∅, gndx0 ≠ [], lax0 ≠ [], n ≠ 0, n0 ≠ # lax0, n0 < # lax0, n1 < # avol, ginval < # avol, n < gndx0.flashsize, abs-gstore(avol, lpt1, gstore, ginval), abs-istore(avol, lpt1, istore2), abs-nodes(subarray(buf0, 0, n), # buf1, prefixn(n0, gndx0), prefixn(n0, lax0), true), abs-nodes(buf1, gndx1, lax1, # buf1 = LEB_SIZE), abs-nodes(buf0, # buf1, gndx0, lax0, false), awbuf-inv(avol, buffered(n1)), awbuf-inv(avol[n1, mapped(buf1 + subarray(buf0, 0, n))], buffered(n1)), bin-heap-inv(gch, lpt1), buf-ro-rw-mode(false, buffered(n1), lpt1, avol), bufs-log-only(buffered(n1), nx + n1 ', lpt1), flash-lpt-cons(lpt0, istore1, gstore0), freelist-cons(lpt1, freelist), inv(gstore \ ginval), inv(gstore0), inv(istore2), inv(istore1), inv(groupblock(gndx1, lax1, m)), is-aligned(# buf1 + n, EB_PAGE_SIZE), log-group-block(nx + n1 ', lpt1), lpt-free-unref(lpt0), lpt-free-unref(lpt1), lpt-leb-size(lpt0), lpt-leb-size(lpt1), lpt-ram-flash(lpt1, lpt0, nx + n1 '), n1 ∈ gstore, # buf1 + gndx0.flashsize ≤ LEB_SIZE, istore1 ⊑ istore2, ⌊err1⌋ , ¬ dups(nx), ¬ n1 ∈ nx, ¬ n1 ∈ ginval, isbuf1 → synced(avol) ⊦ ⟨ax := prefixn(n0, lax0).to-adr(pstate.lnum), err0 := err1; gstore[pstate.lnum].gndlist := gstore[pstate.lnum].gndlist + prefixn(# prefixn(n0, lax0), gndx0); gstore[pstate.lnum].ladrlist := gstore[pstate.lnum].ladrlist + prefixn(n0, lax0); if err0 ≠ ESUCCESS then ax := ?, pstate := readonly; isbuf1 := ?⟩ ( abs-gstore(avol[n1, mapped(avol[n1].data + subarray(buf0, 0, n))], lpt1[n1, mklp(m, LEB_SIZE, LP_GROUP_NODES, m3)], gstore, ginval) ∧ pstate = readonly ∧ lax0.to-adr(n1) = ax ∧ err1 = err0) ∧ ¬ dups(lax1 + prefixn(n0, lax0))
Used simplifier rules: ⊦ ¬ natkey < natkey; (s)% ⊦ # lax = 0 ↔ lax = []; (s)%n ≤ # gndx ⊦ # prefixn(n, gndx) = n; (s)%abs-nodes-elems-adr-length: ⊦ abs-nodes(buf, gndx, lax, weak) → # gndx = # lax; (forward) from specification abs-list[encoding-group-node]%lf-01: ⊦ m < n ∧ n = n0 → m < n0; (forward) from specification nat-basic%f: ⊦ m < n → n ≠ 0; (forward) from specification nat-basic%abs-nodes-elems-adr-length-h: ⊦ abs-nodes(buf, m, gndx, lax, weak) → # gndx = # lax; (forward) from specification abs-list[encoding-group-node]% ⊦ abs-nodes(buf, m, gndx, lax, weak) → inv-flashsize(gndx, lax); (s)%n ≤ # lax ⊦ # prefixn(n, lax) = n; (s)% ⊦ m < n → m ≤ n; (s)%⊦ abs-nodes(buf, gndx, lax, boolvar) ∧ is-aligned(# buf + n, EB_PAGE_SIZE) → is-aligned(n, NODE_HEADER_SIZE); (s)%c: ⊦ m + n = n + m; from specification nat-basic%a: ⊦ (m + n0) + n1 = m + n0 + n1; from specification nat-basic% ⊦ mapped(buf).mapped?; (s)% ⊦ mklp(n2, n3, lpf, m).size = n3; (s)% ⊦ groupblock(gndx, lax, m).ladrlist = lax; (s)% ⊦ groupblock(gndx, lax, m).gndlist = gndx; (s)% ⊦ mapped(buf).data = buf; (s)