| # buf1 = # buf, subarray(buf1, 0, n) = subarray(buf, 0, n), subarray(buf1, n + ENCODED_ELEM_SIZE, # buf - n + ENCODED_ELEM_SIZE) = subarray(buf, n + ENCODED_ELEM_SIZE, # buf - n + ENCODED_ELEM_SIZE), n + ENCODED_ELEM_SIZE ≤ # buf, err = ESUCCESS → is-encoded(a, subarray(buf1, n, ENCODED_ELEM_SIZE)) ∧ m = ENCODED_ELEM_SIZE, err = ESUCCESS ∨ ⌊err⌋ ⊦ err = ESUCCESS ∧ isempty(buf1, n, m), (err = ESUCCESS ∨ ⌊err⌋ ) ∧ (err = ESUCCESS → is-encoded-nonempty(a, subarray(buf1, n, ENCODED_ELEM_SIZE))) |
⊦ is-encoded-nonempty(a, buf) ↔ is-encoded(a, buf) ∧ ¬ isempty(buf)
# buf1 = # buf, subarray(buf1, n, ENCODED_ELEM_SIZE) = mkempbuf(ENCODED_ELEM_SIZE), subarray(buf1, 0, n) = subarray(buf, 0, n), subarray(buf1, n + ENCODED_ELEM_SIZE, # buf - n + ENCODED_ELEM_SIZE) = subarray(buf, n + ENCODED_ELEM_SIZE, # buf - n + ENCODED_ELEM_SIZE), is-encoded(a, subarray(buf1, n, ENCODED_ELEM_SIZE)), n + ENCODED_ELEM_SIZE ≤ # buf ⊦ isempty(buf1, n, ENCODED_ELEM_SIZE)
Used simplifier rules: is-encoded-nonempty: ⊦ is-encoded-nonempty(a, buf) ↔ is-encoded(a, buf) ∧ ¬ isempty(buf);%is-encoded-size: ⊦ is-encoded(a, buf) → # buf = ENCODED_ELEM_SIZE; (forward) from specification encoding-fixed-size% ⊦ # subarray(buf, m, n) = n; (s)% ⊦ isempty(buf) ↔ buf = mkempbuf(# buf); (s)