| buf0 = buf, n + ENCODED_ELEM_SIZE ≤ # buf ⊦ [encode#(a, n; 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))))) |
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))))