| # lpt = # avol, # buf1 = EB_PAGE_SIZE, avol[m3] = mapped(buf2), buf0 = buf, buffered(m3) = bleb, err = err0, err = ESUCCESS, avol[m3].mapped?, m3 < # avol, ebm-vol-inv(avol), m0 + n ≤ #(avol[m3].data + mkempbuf(LEB_SIZE - # avol[m3].data)), 0 + n ≤ # buf0, n ≤ # buf, m0 + n ≤ LEB_SIZE, m5 ≤ m0 + n, m0 ≤ m5 + m4, LEB_SIZE ≥ # avol[m3].data, bleb ≠ nobuffer → bleb.leb < # avol ∧ wbuf-cons(mkwbuf(buf1, m5, m4), avol[bleb.leb], rofs), ⌊err0⌋ ∨ err0 = ESUCCESS ⊦ (m0 ≤ m5 ⊃ m5 ≥ m0;true) ∧ (m0 ≤ m5 ⊃ true;m0 ≥ m5) |
Used simplifier rules: ⊦ m < n → m ≤ n; (s)% ⊦ m ≤ n ↔ ¬ n < m; (ss)% ⊦ buffered(m).leb = m; (s)% ⊦ nobuffer ≠ buffered(m); (s)% ⊦ ¬ ⌊ESUCCESS⌋ ; (s)% ⊦ aleb.mapped? ↔ (∃ buf. aleb = mapped(buf)); (as)%append-a: ⊦ (buf + buf0) + buf1 = buf + buf0 + buf1; from specification array-splice[buffer]% ⊦ # mkempbuf(n) = n; (s)% ⊦ #(buf + buf0) = # buf + # buf0; (s)%c: ⊦ m + n = n + m; from specification nat-basic%a: ⊦ (m + n0) + n1 = m + n0 + n1; from specification nat-basic% ⊦ n + 0 = n; (s)% ⊦ n ≥ m ↔ m ≤ n; (s)