| buf[n0 + n] = empty, subarray(buf, n0, n + 1) = mkempbuf(n + 1), n0 + n < # buf ⊦ datasize(buf, n0 + n) = datasize(buf, n0), subarray(buf, n0, n) = mkempbuf(n) |
⊦ buf = buf0 ↔ # buf = # buf0 ∧ (∀ n. n < # buf → buf[n] = buf0[n])
# subarray(buf, n0, n + 1) = # mkempbuf(n + 1), buf[n0 + n] = empty, n0 + n < # buf, ∀ n1. n1 < # subarray(buf, n0, n + 1) → subarray(buf, n0, n + 1)[n1] = mkempbuf(n + 1)[n1] ⊦ datasize(buf, n0 + n) = datasize(buf, n0), subarray(buf, n0, n) = mkempbuf(n)
Used terms: mkempbuf(n + 1), subarray(buf, n0, n + 1)