| # avol0 = # lpt + m5, avol0[m1] = mapped(buf1), avol0[m2] = mapped(buf0), avol0[0] = mapped(buf), avol = subarray(avol0, m5, # lpt), err = err1, m6 < # lpt, m6 < # avol, disk-layout(mksb(adr, m7, m1, m2, m3, m4, m5), # lpt), ebm-vol-inv(avol0), ebm-vol-inv(subarray(avol0, m5, # lpt)), is-encoded(log, buf1), is-encoded(lpt, lebs(avol0, m4, lptlebs(# lpt, LEB_SIZE))), is-encoded(mksb(adr, m7, m1, m2, m3, m4, m5), buf), is-encoded-pad(orphans, m3, buf0), mapped-full?(avol0, m4, lptlebs(# lpt, LEB_SIZE)), m5 + # lpt ≤ # avol0, ⌊err1⌋ , logoff ≠ LEB_SIZE → # buf1 = logoff ⊦ avol[m6, unmapped] = subarray(avol0, m5, # lpt)[m6, unmapped] ∧ is-encoded(log, avol0[m5 + m6, unmapped][m1].data) ∧ is-encoded-pad(orphans, m3, avol0[m2].data) ∧ err1 = err, avol = subarray(avol0, m5, # lpt)[m6, unmapped] ∧ is-encoded(log, avol0[m5 + m6, unmapped][m1].data) ∧ is-encoded-pad(orphans, m3, avol0[m2].data) ∧ err1 = err |
# avol0 = # lpt + m5, avol0[m1] = mapped(buf1), avol0[m2] = mapped(buf0), avol0[0] = mapped(buf), m6 < # lpt, disk-layout(mksb(adr, m7, m1, m2, m3, m4, m5), # lpt), ebm-vol-inv(avol0), ebm-vol-inv(subarray(avol0, m5, # lpt)), is-encoded(log, buf1), is-encoded(lpt, lebs(avol0, m4, lptlebs(# lpt, LEB_SIZE))), is-encoded(mksb(adr, m7, m1, m2, m3, m4, m5), buf), is-encoded-pad(orphans, m3, buf0), mapped-full?(avol0, m4, lptlebs(# lpt, LEB_SIZE)), ⌊err1⌋ , logoff ≠ LEB_SIZE → # buf1 = logoff ⊦ is-encoded(log, avol0[m5 + m6, unmapped][m1].data)
Used simplifier rules: ⊦ is-encoded-pad(ns0, n, buf) → (is-encoded-pad(ns1, n, buf) ↔ ns0 = ns1); (s)% ⊦ mapped(buf).data = buf; (s)% ⊦ m ≤ m; (s)%c: ⊦ m + n = n + m; from specification nat-basic% ⊦ # subarray(avol, m, n) = n; (s)