| # buf2 = EB_PAGE_SIZE, # lpt0 = # avol1, # avol0 = # avol1, avol1[m] = mapped(buf1), adr = adr0, avol = avol0, buf = buf0, lpt = lpt0, m1 = m5, m2 = m0, m3 = m, ns = ns0, plog = plog0, wbuf = mkwbuf(buf2, m6, m4), m < # avol1, abs(avol1, bleb, mkwbuf(buf2, m6, m4), avol0, rofs), awbuf-inv(avol1, bleb), ebm-vol-inv(avol0), m0 + n ≤ LEB_SIZE, n ≤ # buf0, bleb ≠ nobuffer → bleb.leb < # avol1 ∧ avol0[bleb.leb].mapped? ∧ m4 < EB_PAGE_SIZE ∧ (¬ rofs → # avol0[bleb.leb].data = m6) ∧ (rofs → m6 ≤ # avol0[bleb.leb].data) ∧ is-aligned(m6, EB_PAGE_SIZE) ⊦ ⟪apersistence_io_read#(m3, m2, 0, n, adr, m1, plog, avol, lpt, ns; buf; err); if err = ESUCCESS ∧ buffered(m3) = bleb ∧ m2 ≤ wbuf.offset + wbuf.nbytes ∧ wbuf.offset ≤ m2 + n then let m0 = (m2 ≤ wbuf.offset ⊃ 0;m2 - wbuf.offset), m = (m2 ≤ wbuf.offset ⊃ wbuf.offset - m2;0) in buf := copy(wbuf.content, m0, buf, m, min(n - m, wbuf.nbytes - m0))⟫ ⟨awbuf_read_buf#(m, m0, n, adr0, m5, plog0, avol1, lpt0, ns0, bleb, rofs; buf0; err0)⟩ (buf = buf0 ∧ err = err0) |
# buf2 = EB_PAGE_SIZE, # lpt0 = # avol1, # avol0 = # avol1, avol1[m] = mapped(buf1), buf = buf0, m < # avol1, abs(avol1, bleb, mkwbuf(buf2, m6, m4), avol0, rofs), awbuf-inv(avol1, bleb), ebm-vol-inv(avol0), m0 + n ≤ LEB_SIZE, n ≤ # buf0, bleb ≠ nobuffer → bleb.leb < # avol1 ∧ avol0[bleb.leb].mapped? ∧ m4 < EB_PAGE_SIZE ∧ (¬ rofs → # avol0[bleb.leb].data = m6) ∧ (rofs → m6 ≤ # avol0[bleb.leb].data) ∧ is-aligned(m6, EB_PAGE_SIZE) ⊦ ⟪apersistence_io_read#(m, m0, 0, n, adr0, m5, plog0, avol0, lpt0, ns0; buf; err); if err = ESUCCESS ∧ buffered(m) = bleb ∧ m0 ≤ m6 + m4 ∧ m6 ≤ m0 + n then let m1 = (m0 ≤ m6 ⊃ 0;m0 - m6), m = (m0 ≤ m6 ⊃ m6 - m0;0) in buf := copy(buf2, m1, buf, m, min(n - m, m4 - m1))⟫ ⟨awbuf_read_buf#(m, m0, n, adr0, m5, plog0, avol1, lpt0, ns0, bleb, rofs; buf0; err0)⟩ (buf = buf0 ∧ err = err0)
Used simplifier rules: ⊦ m < n → n ≠ 0; (s)%f: ⊦ m < n → n ≠ 0; (forward) from specification nat-basic% ⊦ mkwbuf(buf, m, m0).nbytes = m0; (s)% ⊦ mkwbuf(buf, m, m0).content = buf; (s)% ⊦ mkwbuf(buf, m, m0).offset = m; (s)