| a0 = a, buf = buf, buf0 = buf, buf1 = buf, n0 = 0, ENCODED_ELEM_SIZE ≤ # buf, ENCODED_ELEM_SIZE ≤ EB_PAGE_SIZE, EB_PAGE_SIZE ≤ # buf, 0 + ENCODED_ELEM_SIZE ≤ # buf ⊦ [encode_nonempty#(a, 0; buf; err)] ( (err = ESUCCESS ∨ ⌊err⌋ ) ∧ # buf = # buf1 ∧ subarray(buf, 0, n0) = subarray(buf1, 0, n0) ∧ subarray(buf, n0 + ENCODED_ELEM_SIZE, # buf - n0 + ENCODED_ELEM_SIZE) = subarray(buf1, n0 + ENCODED_ELEM_SIZE, # buf - n0 + ENCODED_ELEM_SIZE) ∧ (err = ESUCCESS → is-encoded-nonempty(a0, subarray(buf, n0, ENCODED_ELEM_SIZE))) → (err = ESUCCESS ∨ ⌊err⌋ ) ∧ # buf = # buf0 ∧ (err = ESUCCESS → is-encoded-pagesize(a, subarray(buf, 0, EB_PAGE_SIZE)))) |
buf0 = buf, EB_PAGE_SIZE ≤ # buf, ENCODED_ELEM_SIZE ≤ EB_PAGE_SIZE, ENCODED_ELEM_SIZE ≤ # buf ⊦ [encode_nonempty#(a, 0; buf; err)] ( # buf = # buf0 ∧ subarray(buf, ENCODED_ELEM_SIZE, # buf - ENCODED_ELEM_SIZE) = subarray(buf0, ENCODED_ELEM_SIZE, # buf - ENCODED_ELEM_SIZE) ∧ is-encoded-nonempty(a, subarray(buf, 0, ENCODED_ELEM_SIZE)) → err = ESUCCESS → is-encoded-pagesize(a, subarray(buf, 0, EB_PAGE_SIZE)))
Used simplifier rules: ⊦ subarray(buf, n, 0) = mkbuf(0); (s)%c: ⊦ m + n = n + m; from specification nat-basic%a: ⊦ (m + n0) + n1 = m + n0 + n1; from specification nat-basic% ⊦ n + 0 = n; (s)