| # buf = n0 + 2 * NODE_HEADER_SIZE, buf0 = buf, buf ≠ mkbuf(0), is-aligned(# buf, 2 * NODE_HEADER_SIZE) ⊦ ⟪encode_header#(nodeheader(n0, true), 0; buf; err); buf := copy(validtrailer, 0, buf, # buf - NODE_HEADER_SIZE, NODE_HEADER_SIZE)⟫ ((err = ESUCCESS ∨ ⌊err⌋ ) ∧ # buf = # buf0 ∧ (err = ESUCCESS → abs-padding(buf))) |
n + NODE_HEADER_SIZE ≤ # buf, buf0 = buf ⊦ ⟪encode_header#(ndhd, n; buf; err)⟫ ( (err = ESUCCESS ∨ ⌊err⌋ ) ∧ # buf = # buf0 ∧ subarray(buf, 0, n) = subarray(buf0, 0, n) ∧ subarray(buf, n + NODE_HEADER_SIZE, # buf - n + NODE_HEADER_SIZE) = subarray(buf0, n + NODE_HEADER_SIZE, # buf - n + NODE_HEADER_SIZE) ∧ (err = ESUCCESS → is-encoded(ndhd, subarray(buf, n, NODE_HEADER_SIZE))))
# buf = n0 + 2 * NODE_HEADER_SIZE, buf = buf, buf0 = buf, buf1 = buf, n1 = 0, ndhd0 = nodeheader(n0, true), is-aligned(# buf, 2 * NODE_HEADER_SIZE), 0 + NODE_HEADER_SIZE ≤ # buf ⊦ [encode_header#(nodeheader(n0, true), 0; buf; err)] ( (err = ESUCCESS ∨ ⌊err⌋ ) ∧ # buf = # buf1 ∧ subarray(buf, 0, n1) = subarray(buf1, 0, n1) ∧ subarray(buf, n1 + NODE_HEADER_SIZE, # buf - n1 + NODE_HEADER_SIZE) = subarray(buf1, n1 + NODE_HEADER_SIZE, # buf - n1 + NODE_HEADER_SIZE) ∧ (err = ESUCCESS → is-encoded(ndhd0, subarray(buf, n1, NODE_HEADER_SIZE))) → ⟪buf := copy(validtrailer, 0, buf, # buf - NODE_HEADER_SIZE, NODE_HEADER_SIZE)⟫ ((err = ESUCCESS ∨ ⌊err⌋ ) ∧ # buf = # buf0 ∧ (err = ESUCCESS → abs-padding(buf)))), buf = mkbuf(0)
Used simplifier rules: ⊦ n + 0 = n; (s)%a: ⊦ (m + n0) + n1 = m + n0 + n1; from specification nat-basic%c: ⊦ m + n = n + m; from specification nat-basic% ⊦ m ≤ n ↔ ¬ n < m; (ss)%f: ⊦ m < n → n ≠ 0; (forward) from specification nat-basic%lf-02: ⊦ m < n ∧ m = n0 → n0 < n; (forward) from specification nat-basic% ⊦ NODE_HEADER_SIZE ≠ 0; (s)% ⊦ m * n + n0 < n ↔ m = 0 ∧ n0 < n; (ws)%mult-a: ⊦ m0 * m * n = (m0 * m) * n; from specification nat-mult%mult-c: ⊦ m * n = n * m; from specification nat-mult