| # 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) |
# buf = n0 + 2 * NODE_HEADER_SIZE, buf0 = buf, buf ≠ mkbuf(0), is-aligned(# buf, 2 * NODE_HEADER_SIZE), NODE_HEADER_SIZE ≤ # buf ⊦ [encode_header#(nodeheader(n0, true), 0; buf; err)] ( (err = ESUCCESS ∨ ⌊err⌋ ) ∧ # buf = # buf0 ∧ subarray(buf, NODE_HEADER_SIZE, # buf - NODE_HEADER_SIZE) = subarray(buf0, NODE_HEADER_SIZE, # buf - NODE_HEADER_SIZE) ∧ (err = ESUCCESS → is-encoded(nodeheader(n0, true), subarray(buf, 0, 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))))
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)