| buf0 = buf, n + encoding-size(a) ≤ # buf, n + size-aligned(a, ENCODED_ELEM_ALIGNMENT) ≤ # buf ⊦ [encode#(a, n; buf, n0; err)] ( (err = ESUCCESS ∨ ⌊err⌋ ) ∧ # buf = # buf0 ∧ subarray(buf, 0, n) = subarray(buf0, 0, n) ∧ subarray(buf, n + encoding-size(a), # buf - n + encoding-size(a)) = subarray(buf0, n + encoding-size(a), # buf - n + encoding-size(a)) ∧ (err = ESUCCESS → is-encoded(a, subarray(buf, n, encoding-size(a))) ∧ n0 = encoding-size(a)) → ⟪if err = ESUCCESS then n0 := align↑(n0, ENCODED_ELEM_ALIGNMENT)⟫ ( (err = ESUCCESS ∨ ⌊err⌋ ) ∧ ( err = ESUCCESS → is-encoded-aligned(a, subarray(buf, n, size-aligned(a, ENCODED_ELEM_ALIGNMENT))) ∧ n0 = size-aligned(a, ENCODED_ELEM_ALIGNMENT)))) |
buf0 = buf, n + size-aligned(a, ENCODED_ELEM_ALIGNMENT) ≤ # buf, n + encoding-size(a) ≤ # buf ⊦ ∀ buf, n0, err. (err = ESUCCESS ∨ ⌊err⌋ ) ∧ # buf = # buf0 ∧ subarray(buf, 0, n) = subarray(buf0, 0, n) ∧ subarray(buf, n + encoding-size(a), # buf - n + encoding-size(a)) = subarray(buf0, n + encoding-size(a), # buf - n + encoding-size(a)) ∧ (err = ESUCCESS → is-encoded(a, subarray(buf, n, encoding-size(a))) ∧ n0 = encoding-size(a)) → ⟪if err = ESUCCESS then n0 := align↑(n0, ENCODED_ELEM_ALIGNMENT)⟫ ( (err = ESUCCESS ∨ ⌊err⌋ ) ∧ ( err = ESUCCESS → is-encoded-aligned(a, subarray(buf, n, size-aligned(a, ENCODED_ELEM_ALIGNMENT))) ∧ n0 = size-aligned(a, ENCODED_ELEM_ALIGNMENT)))