| # avol = # lpt0 + m4, avol[0] = mapped(buf), avol[m1] = mapped(buf0), avol[m0] = mapped(buf1), sb = mksb(adr, m, m0, m1, m2, m3, m4), sb = mksb(adr0, m5, m6, m7, m8, m9, m10), disk-layout(mksb(adr, m, m0, m1, m2, m3, m4), # lpt0), ebm-vol-inv(subarray(avol, m4, # lpt0)), ebm-vol-inv(avol), is-encoded(log, buf1), is-encoded(lpt0, lebs(avol, m3, lptlebs(# lpt0, LEB_SIZE))), is-encoded(mksb(adr, m, m0, m1, m2, m3, m4), buf), is-encoded-pad(orphans, m2, buf0), mapped-full?(avol, m3, lptlebs(# lpt0, LEB_SIZE)), m4 ≤ # avol, logoff ≠ LEB_SIZE → # buf1 = logoff ⊦ ⟪ebm_avol_get_volume_size#(avol; ; n); n := n - m10⟫ ⟨apersistence_io_get_volume_size#(adr, m, log, subarray(avol, m4, # lpt0), lpt0, orphans; ; n0)⟩ (n = n0) |
# avol = # lpt0 + m4, avol[0] = mapped(buf), avol[m1] = mapped(buf0), avol[m0] = mapped(buf1), disk-layout(mksb(adr, m, m0, m1, m2, m3, m4), # lpt0), ebm-vol-inv(subarray(avol, m4, # lpt0)), ebm-vol-inv(avol), is-encoded(log, buf1), is-encoded(lpt0, lebs(avol, m3, lptlebs(# lpt0, LEB_SIZE))), is-encoded(mksb(adr, m, m0, m1, m2, m3, m4), buf), is-encoded-pad(orphans, m2, buf0), mapped-full?(avol, m3, lptlebs(# lpt0, LEB_SIZE)), m4 ≤ # avol, logoff ≠ LEB_SIZE → # buf1 = logoff ⊦ ⟪ebm_avol_get_volume_size#(avol; ; n); n := n - m4⟫ ⟨apersistence_io_get_volume_size#(adr, m, log, subarray(avol, m4, # lpt0), lpt0, orphans; ; n0)⟩ (n = n0)
Used simplifier rules: ⊦ mksb(adr, m, m0, m1, m2, m3, m4) = mksb(adr0, m5, m6, m7, m8, m9, m10) ↔ adr = adr0 ∧ m = m5 ∧ m0 = m6 ∧ m1 = m7 ∧ m2 = m8 ∧ m3 = m9 ∧ m4 = m10; (ws)