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