| # lpt0 = # avol, # lpt = # avol, # gndx = # lax, LEB_SIZE = n0 + # buf1, avol[m5] = mapped(buf1), m5 < # avol, abs-nodes(buf1, gndx, lax, true), awbuf-inv(avol, bleb), buf-ro-rw-mode(isbuf, bleb, lpt0, avol), bufs-log-only(bleb, log0, lpt0), lpt-free-unref(lpt), lpt-leb-size(lpt), lpt-ram-flash(lpt0, lpt, log0), # buf1 ≤ LEB_SIZE ⊦ ∃ gndx1, gndx2, lax1, lax2, buf0, buf2. ax = ax + lax1.to-adr(m5) ∧ gndx0 = gndx0 + gndx1 ∧ buf1 = buf0 + buf2 ∧ # buf0 = 0 ∧ abs-nodes(buf0, gndx1, lax1, false) ∧ abs-nodes(buf2, # buf0, gndx2, lax2, true) ∧ (false → gndx2 = [] ∧ lax2 = []) |
# gndx = # lax, # lpt = # avol, # lpt0 = # avol, LEB_SIZE = n0 + # buf1, avol[m5] = mapped(buf1), m5 < # avol, abs-nodes(buf1, gndx, lax, true), awbuf-inv(avol, bleb), buf-ro-rw-mode(isbuf, bleb, lpt0, avol), bufs-log-only(bleb, log0, lpt0), lpt-free-unref(lpt), lpt-leb-size(lpt), lpt-ram-flash(lpt0, lpt, log0), # buf1 ≤ LEB_SIZE ⊦ ∃ gndx2, lax1. abs-nodes(buf1, 0, gndx2, lax1, true)
Used simplifier rules: ⊦ # mkbuf(n) = n; (s)% ⊦ abs-nodes(mkbuf(0), gndx, lax, weak) ↔ gndx = [] ∧ lax = []; (s)% ⊦ # buf = 0 ↔ buf = mkbuf(0); (s)%append-a: ⊦ (buf + buf0) + buf1 = buf + buf0 + buf1; from specification array-splice[buffer]% ⊦ # buf = 0 → buf + buf0 = buf0; (s)%a: ⊦ (gndx + gndx0) + gndx1 = gndx + gndx0 + gndx1; from specification list[group-store]% ⊦ gndx = gndx + gndx0 ↔ gndx0 = []; (s)%a: ⊦ (ax + ax0) + ax1 = ax + ax0 + ax1; from specification list[address-list-set]% ⊦ lax.to-adr(n) = [] ↔ lax = []; (s)% ⊦ ax = ax + ax0 ↔ ax0 = []; (s)