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