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