| # lpt = # avol0 - m6, m6 + # lpt0 = # avol0, avol0[m2] = mapped(buf4), avol0[m3] = mapped(buf3), avol0[0] = mapped(buf2), subarray(avol0, m6, # lpt)[m] = mapped(buf1), buf = buf0, sb = mksb(adr, m1, m2, m3, m4, m5, m6), m < # lpt0, disk-layout(sb, # lpt0), ebm-vol-inv(avol0), ebm-vol-inv(subarray(avol0, m6, # lpt)), is-encoded(lpt0, lebs(avol0, m5, lptlebs(# lpt0, LEB_SIZE))), is-encoded(sb, buf2), is-encoded(lpt, lebs(avol0, m5, lptlebs(# lpt, LEB_SIZE))), is-encoded(log, buf4), is-encoded-pad(orphans, m4, buf3), mapped-full?(avol0, m5, lptlebs(# lpt0, LEB_SIZE)), m0 + n0 ≤ LEB_SIZE, n + n0 ≤ # buf0, logoff ≠ LEB_SIZE → # buf4 = logoff ⊦ ⟪persistence_io_read#(m, m0, n, n0, sb, avol0; buf; err)⟫ ⟨apersistence_io_read#(m, m0, n, n0, adr, m1, log, subarray(avol0, m6, # avol0 - m6), lpt, orphans; buf0; err0)⟩ (buf = buf0 ∧ err = err0) |
# lpt = # avol0 - m6, m6 + # lpt0 = # avol0, subarray(avol0, m6, # lpt)[m] = mapped(buf1), avol0[0] = mapped(buf2), avol0[m3] = mapped(buf3), avol0[m2] = mapped(buf4), buf = buf0, m < # lpt0, disk-layout(mksb(adr, m1, m2, m3, m4, m5, m6), # lpt0), ebm-vol-inv(subarray(avol0, m6, # lpt)), ebm-vol-inv(avol0), is-encoded(log, buf4), is-encoded(lpt, lebs(avol0, m5, lptlebs(# lpt, LEB_SIZE))), is-encoded(mksb(adr, m1, m2, m3, m4, m5, m6), buf2), is-encoded(lpt0, lebs(avol0, m5, lptlebs(# lpt0, LEB_SIZE))), is-encoded-pad(orphans, m4, buf3), mapped-full?(avol0, m5, lptlebs(# lpt0, LEB_SIZE)), n + n0 ≤ # buf0, m0 + n0 ≤ LEB_SIZE, logoff ≠ LEB_SIZE → # buf4 = logoff ⊦ ⟪persistence_io_read#(m, m0, n, n0, mksb(adr, m1, m2, m3, m4, m5, m6), avol0; buf; err)⟫ ⟨apersistence_io_read#(m, m0, n, n0, adr, m1, log, subarray(avol0, m6, # avol0 - m6), lpt, orphans; buf0; err0)⟩ (buf = buf0 ∧ err = err0)