| # avol0 = # avol1, # lpt0 = # avol1, # buf2 = EB_PAGE_SIZE, LEB_SIZE = n0 + # buf4, avol1[m2] = mapped(buf1), avol0[m2] = mapped(buf4), buf = copy(buf4 + mkempbuf(n0), m0, buf3, 0, n1 + (m0 ≤ m6 ⊃ m6 - m0;0)), err = ESUCCESS, avol1[m2].mapped?, (m0 ≤ m6 ⊃ 0;m0 - m6) < EB_PAGE_SIZE, m2 < # avol1, n2 + (m0 ≤ m6 ⊃ 0;m0 - m6) < EB_PAGE_SIZE, abs(avol1, buffered(m2), mkwbuf(buf2, m6, n2 + (m0 ≤ m6 ⊃ 0;m0 - m6)), avol0, rofs), awbuf-inv(avol1, buffered(m2)), ebm-vol-inv(avol0), is-aligned(m6, EB_PAGE_SIZE), m0 + n1 + (m0 ≤ m6 ⊃ m6 - m0;0) ≤ #(avol1[m2].data + mkempbuf(LEB_SIZE - # avol1[m2].data)), # buf4 ≤ LEB_SIZE, m0 + n1 + (m0 ≤ m6 ⊃ m6 - m0;0) ≤ LEB_SIZE, n1 + (m0 ≤ m6 ⊃ m6 - m0;0) ≤ # buf3, m6 ≤ m0 + n1 + (m0 ≤ m6 ⊃ m6 - m0;0), m0 ≤ m6 + n2 + (m0 ≤ m6 ⊃ 0;m0 - m6), (m0 ≤ m6 ⊃ m6 - m0;0) + min(n1, n2) ≤ # buf3, (m0 ≤ m6 ⊃ 0;m0 - m6) + min(n1, n2) ≤ EB_PAGE_SIZE, (m0 ≤ m6 ⊃ m6 - m0;0) ≤ # buf3, m6 ≤ LEB_SIZE, m0 + n1 + (m0 ≤ m6 ⊃ m6 - m0;0) ≤ #(buf4 + mkempbuf(n0)), 0 + n1 + (m0 ≤ m6 ⊃ m6 - m0;0) ≤ # buf3, LEB_SIZE ≥ # avol1[m2].data, ¬ rofs → # buf4 = m6, rofs → m6 ≤ # buf4, ¬ m0 ≤ m6 → m6 ≤ m0, (m0 ≤ m6 ⊃ m6 ≥ m0;true) ⊦ copy(buf2, (m0 ≤ m6 ⊃ 0;m0 - m6), buf, (m0 ≤ m6 ⊃ m6 - m0;0), min(n1, n2)) = copy(avol1[m2].data + mkempbuf(LEB_SIZE - # avol1[m2].data), m0, buf3, 0, n1 + (m0 ≤ m6 ⊃ m6 - m0;0)) ∧ ESUCCESS = err |
# buf2 = EB_PAGE_SIZE, # lpt0 = # avol1, # avol0 = # avol1, LEB_SIZE = n0 + # buf4, avol1[m2] = mapped(buf1), avol0[m2] = mapped(buf4), n2 + (m0 ≤ m6 ⊃ 0;m0 - m6) < EB_PAGE_SIZE, m2 < # avol1, (m0 ≤ m6 ⊃ 0;m0 - m6) < EB_PAGE_SIZE, abs(avol1, buffered(m2), mkwbuf(buf2, m6, n2 + (m0 ≤ m6 ⊃ 0;m0 - m6)), avol0, rofs), awbuf-inv(avol1, buffered(m2)), ebm-vol-inv(avol0), is-aligned(m6, EB_PAGE_SIZE), m6 ≤ # buf1 + (LEB_SIZE - # buf1), # buf1 ≤ LEB_SIZE, m6 ≤ LEB_SIZE, (m0 ≤ m6 ⊃ m6 - m0;0) ≤ # buf3, (m0 ≤ m6 ⊃ 0;m0 - m6) + min(n1, n2) ≤ EB_PAGE_SIZE, (m0 ≤ m6 ⊃ m6 - m0;0) + min(n1, n2) ≤ # buf3, m0 ≤ m6 + n2 + (m0 ≤ m6 ⊃ 0;m0 - m6), m6 ≤ m0 + n1 + (m0 ≤ m6 ⊃ m6 - m0;0), n1 + (m0 ≤ m6 ⊃ m6 - m0;0) ≤ # buf3, m0 + n1 + (m0 ≤ m6 ⊃ m6 - m0;0) ≤ LEB_SIZE, # buf4 ≤ LEB_SIZE, m0 + n1 + (m0 ≤ m6 ⊃ m6 - m0;0) ≤ # buf1 + (LEB_SIZE - # buf1), ¬ m0 ≤ m6 → m6 ≤ m0, rofs → m6 ≤ # buf4, ¬ rofs → # buf4 = m6 ⊦ copy(buf2, (m0 ≤ m6 ⊃ 0;m0 - m6), copy(buf4 + mkempbuf(n0), m0, buf3, 0, n1 + (m0 ≤ m6 ⊃ m6 - m0;0)), (m0 ≤ m6 ⊃ m6 - m0;0), min(n1, n2)) = copy(buf1 + mkempbuf(LEB_SIZE - # buf1), m0, buf3, 0, n1 + (m0 ≤ m6 ⊃ m6 - m0;0))
Used simplifier rules: ⊦ mapped(buf).data = buf; (s)% ⊦ mapped(buf) = mapped(buf0) ↔ buf = buf0; (s)%let: ⊦ n ≤ n0 ∧ n0 ≤ n1 → n ≤ n1; (forward) from specification nat% ⊦ 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)