| # buf1 = # buf, err = ESUCCESS, subarray(buf1, n + ENCODED_ELEM_SIZE, # buf - n + ENCODED_ELEM_SIZE) = subarray(buf, n + ENCODED_ELEM_SIZE, # buf - n + ENCODED_ELEM_SIZE), subarray(buf1, 0, n) = subarray(buf, 0, n), isempty(buf1, n, m), n + ENCODED_ELEM_SIZE ≤ # buf, err = ESUCCESS → is-encoded(a, subarray(buf1, n, ENCODED_ELEM_SIZE)) ∧ m = ENCODED_ELEM_SIZE, err = ESUCCESS ∨ ⌊err⌋ ⊦ ⟪debug#("encoding_nonempty: encoding is empty"); err := EINVAL⟫ ((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, # buf - n + ENCODED_ELEM_SIZE) = subarray(buf, n + ENCODED_ELEM_SIZE, # buf - n + ENCODED_ELEM_SIZE), subarray(buf1, 0, n) = subarray(buf, 0, n), is-encoded(a, subarray(buf1, n, ENCODED_ELEM_SIZE)), isempty(buf1, n, ENCODED_ELEM_SIZE), n + ENCODED_ELEM_SIZE ≤ # buf ⊦ ⟪debug#("encoding_nonempty: encoding is empty"); err := EINVAL⟫ ((err = ESUCCESS ∨ ⌊err⌋ ) ∧ (err = ESUCCESS → subarray(buf1, n, ENCODED_ELEM_SIZE) ≠ mkempbuf(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)