| m0 < # buf + n, ∀ buf, n. m0 ≤ # buf + n → datasize(buf + mkempbuf(n), m0) = datasize(buf, min(# buf, m0)) ⊦ ((buf + mkempbuf(n))[m0] = empty ⊃ datasize(buf + mkempbuf(n), m0);m0 + 1) = datasize(buf, min(# buf, m0 + 1)) |
⊦ min(n, m) = (n < m ⊃ n;m)
m0 < # buf + n, ∀ buf, n. m0 ≤ # buf + n → datasize(buf + mkempbuf(n), m0) = datasize(buf, min(# buf, m0)) ⊦ ((buf + mkempbuf(n))[m0] = empty ⊃ datasize(buf + mkempbuf(n), m0);m0 + 1) = datasize(buf, (# buf < m0 + 1 ⊃ # buf;m0 + 1))
Used terms: m0 + 1, # buf