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