| 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) ⊦ (buf[n0 + n] = empty ⊃ datasize(buf, n0 + n);(n0 + n) + 1) = datasize(buf, n0) |
buf[n0 + n] = empty, 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) ⊦ datasize(buf, n0 + n) = datasize(buf, n0)
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