| # lpt = # avol, # buf1 = EB_PAGE_SIZE, avol[m4] = mapped(buf2), bleb = buffered(m4), buf0 = buf, m = m3, m0 = EB_PAGE_SIZE, n2 = n, ¬ rofs, wbuf = mkwbuf(buf1, m1, m2), m4 < # avol, ebm-vol-inv(avol), wbuf-cons(mkwbuf(buf1, m1, m2), mapped(buf2), rofs), 0 + n2 ≤ # buf0, wbuf.nbytes + n2 ≤ # wbuf.content, ¬ rofs → m1 + m2 + n ≤ LEB_SIZE ∧ n ≤ # buf ⊦ ⟪wbuf := (wbuf.content:= copy(buf0, 0, wbuf.content, wbuf.nbytes, n2)) .nbytes:= ((wbuf.content:= copy(buf0, 0, wbuf.content, wbuf.nbytes, n2)).nbytes + n2); err := ESUCCESS⟫ (# wbuf.content = EB_PAGE_SIZE ∧ m4 < # avol ∧ wbuf-cons(wbuf, avol[m4], rofs) ∧ ebm-vol-inv(avol) ∧ # lpt = # avol), wbuf.nbytes + n2 ≥ m0 |
# buf1 = EB_PAGE_SIZE, # lpt = # avol, avol[m4] = mapped(buf2), bleb = buffered(m4), buf0 = buf, m = m3, m0 = EB_PAGE_SIZE, n2 = n, ¬ rofs, wbuf = mkwbuf(buf1, m1, m2), m4 < # avol, ebm-vol-inv(avol), wbuf-cons(mkwbuf(buf1, m1, m2), mapped(buf2), rofs), wbuf.nbytes + n2 ≤ # wbuf.content, 0 + n2 ≤ # buf0, ¬ rofs → m1 + m2 + n ≤ LEB_SIZE ∧ n ≤ # buf ⊦ ⟪err := ESUCCESS⟫ ( # ( (wbuf.content:= copy(buf0, 0, wbuf.content, wbuf.nbytes, n2)) .nbytes:= ((wbuf.content:= copy(buf0, 0, wbuf.content, wbuf.nbytes, n2)).nbytes + n2) ).content = EB_PAGE_SIZE ∧ m4 < # avol ∧ wbuf-cons ( (wbuf.content:= copy(buf0, 0, wbuf.content, wbuf.nbytes, n2)) .nbytes:= ((wbuf.content:= copy(buf0, 0, wbuf.content, wbuf.nbytes, n2)).nbytes + n2), avol[m4], rofs) ∧ ebm-vol-inv(avol) ∧ # lpt = # avol), wbuf.nbytes + n2 ≥ m0
Used simplifier rules: ⊦ n + 0 = n; (s)%a: ⊦ (m + n0) + n1 = m + n0 + n1; from specification nat-basic%c: ⊦ m + n = n + m; from specification nat-basic% ⊦ mkwbuf(buf, m, m0).nbytes = m0; (s)% ⊦ mkwbuf(buf, m, m0).content = buf; (s)% ⊦ n ≥ m ↔ m ≤ n; (s)% ⊦ m ≤ n ↔ ¬ n < m; (ss)