| m4 + # lpt = # avol, LEB_SIZE = n0 + # buf, avol[m5] = mapped(buf1), avol[m1] = mapped(buf), avol[0] = mapped(buf2), m1 < # avol, disk-layout(mksb(adr, m6, m5, m1, m2, m3, m4), # lpt), ebm-vol-inv(avol), is-encoded(mksb(adr, m6, m5, m1, m2, m3, m4), buf2), is-encoded(lpt, lebs(avol, m3, lptlebs(# lpt, LEB_SIZE))), is-encoded(log, buf1), is-encoded-pad(orphans0, m2, buf), mapped-full?(avol, m3, lptlebs(# lpt, LEB_SIZE)), m2 * ENCODED_NAT_SIZE ≤ LEB_SIZE, # buf ≤ LEB_SIZE, logoff ≠ LEB_SIZE → # buf1 = logoff ⊦ is-encoded (orphans0, subarray(mkbuf(m2 * ENCODED_NAT_SIZE), 0, 0) + subarray(avol[m1].data + mkempbuf(n0), 0, m2 * ENCODED_NAT_SIZE) + subarray(mkbuf(m2 * ENCODED_NAT_SIZE), m2 * ENCODED_NAT_SIZE, m2 * ENCODED_NAT_SIZE - 0 - m2 * ENCODED_NAT_SIZE)) ∧ m2 = # orphans0 ∧ # ( subarray(mkbuf(m2 * ENCODED_NAT_SIZE), 0, 0) + subarray(avol[m1].data + mkempbuf(n0), 0, m2 * ENCODED_NAT_SIZE) + subarray(mkbuf(m2 * ENCODED_NAT_SIZE), m2 * ENCODED_NAT_SIZE, m2 * ENCODED_NAT_SIZE - 0 - m2 * ENCODED_NAT_SIZE)) = # orphans0 * ENCODED_NAT_SIZE |
m4 + # lpt = # avol, LEB_SIZE = n0 + # buf, avol[m5] = mapped(buf1), avol[m1] = mapped(buf), avol[0] = mapped(buf2), m1 < # avol, disk-layout(mksb(adr, m6, m5, m1, m2, m3, m4), # lpt), ebm-vol-inv(avol), is-encoded(mksb(adr, m6, m5, m1, m2, m3, m4), buf2), is-encoded(lpt, lebs(avol, m3, lptlebs(# lpt, LEB_SIZE))), is-encoded(log, buf1), is-encoded-pad(orphans0, m2, buf), mapped-full?(avol, m3, lptlebs(# lpt, LEB_SIZE)), m2 * ENCODED_NAT_SIZE ≤ LEB_SIZE, # buf ≤ LEB_SIZE, logoff ≠ LEB_SIZE → # buf1 = logoff ⊦ is-encoded(orphans0, subarray(buf + mkempbuf(n0), 0, # orphans0 * ENCODED_NAT_SIZE)) ∧ m2 = # orphans0
Used simplifier rules: ⊦ mapped(buf).data = buf; (s)% ⊦ # subarray(buf, m, n) = n; (s)%append-a: ⊦ (buf + buf0) + buf1 = buf + buf0 + buf1; from specification array-splice[buffer]% ⊦ buf + mkbuf(0) = buf; (s)% ⊦ mkbuf(0) + buf = buf; (s)% ⊦ m - m = 0; (s)% ⊦ m - 0 = m; (s)% ⊦ subarray(buf, n, 0) = mkbuf(0); (s)