| n + m0 + 1 < # avol, n + m0 < # avol, ebm-vol-inv(avol), ∀ n, avol. n + m0 < # avol ∧ ebm-vol-inv(avol) → # lebs(avol, n, m0) = m0 * LEB_SIZE ⊦ #(lebs(avol, n, m0) + (avol[n + m0].mapped? ⊃ avol[n + m0].data + mkempbuf(LEB_SIZE - # avol[n + m0].data);mkempbuf(LEB_SIZE))) = LEB_SIZE * m0 + LEB_SIZE |
n + m0 < # avol, n + m0 + 1 < # avol, ebm-vol-inv(avol), ∀ n, avol. n + m0 < # avol ∧ ebm-vol-inv(avol) → # lebs(avol, n, m0) = m0 * LEB_SIZE ⊦ # lebs(avol, n, m0) + # (avol[n + m0].mapped? ⊃ avol[n + m0].data + mkempbuf(LEB_SIZE - # avol[n + m0].data);mkempbuf(LEB_SIZE)) = LEB_SIZE * m0 + LEB_SIZE
Used simplifier rules: append-a: ⊦ (buf + buf0) + buf1 = buf + buf0 + buf1; from specification array-splice[buffer]% ⊦ #(buf + buf0) = # buf + # buf0; (s)