| # lpt = # avol, # buf1 = EB_PAGE_SIZE, avol[m4] = mapped(buf2), m4 < # avol, ebm-vol-inv(avol), wbuf-cons(mkwbuf(buf1, m1, m2), mapped(buf2), false), EB_PAGE_SIZE ≤ m2 + n3, m2 ≤ align↓(m2 + n3, EB_PAGE_SIZE), m2 ≤ EB_PAGE_SIZE, align↓(m2 + n3, EB_PAGE_SIZE) ≤ # buf3 + m2, m1 + m2 + n3 ≤ LEB_SIZE, n3 ≤ # buf3 ⊦ ebm-vol-inv(avol) ∧ # lpt = # avol ∧ buffered(m4).leb < # avol ∧ avol[buffered(m4).leb].mapped? ∧ # avol[buffered(m4).leb].data ≤ m1 ∧ is-aligned(m1, EB_PAGE_SIZE) ∧ is-aligned(align↓(m2 + n3, EB_PAGE_SIZE), EB_PAGE_SIZE) ∧ m1 + align↓(m2 + n3, EB_PAGE_SIZE) ≤ LEB_SIZE ∧ 0 + align↓(m2 + n3, EB_PAGE_SIZE) ≤ # copy(buf3, 0, copy(buf1, 0, mkbuf(align↓(m2 + n3, EB_PAGE_SIZE)), 0, m2), m2, align↓(m2 + n3, EB_PAGE_SIZE) - m2) |
# lpt = # avol, # buf1 = EB_PAGE_SIZE, avol[m4] = mapped(buf2), m4 < # avol, ebm-vol-inv(avol), wbuf-cons(mkwbuf(buf1, m1, m2), mapped(buf2), false), EB_PAGE_SIZE ≤ m2 + n3, m2 ≤ align↓(m2 + n3, EB_PAGE_SIZE), m2 ≤ EB_PAGE_SIZE, align↓(m2 + n3, EB_PAGE_SIZE) ≤ # buf3 + m2, m1 + m2 + n3 ≤ LEB_SIZE, n3 ≤ # buf3 ⊦ # buf2 ≤ m1 ∧ is-aligned(m1, EB_PAGE_SIZE) ∧ m1 + align↓(m2 + n3, EB_PAGE_SIZE) ≤ LEB_SIZE
Used simplifier rules: ⊦ mapped(buf).data = buf; (s)% ⊦ mapped(buf).mapped?; (s)% ⊦ m ≤ m; (s)% ⊦ # mkbuf(n) = n; (s)% ⊦ # copy(buf, m, buf0, m0, n) = # 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)%m ≠ 0 ⊦ is-aligned(align↓(n, m), m); (s)% ⊦ EB_PAGE_SIZE ≠ 0; (s)% ⊦ buffered(m).leb = m; (s)