| # buf = n0 + n + 2 * NODE_HEADER_SIZE + nd.alignedsize, buf = buf, buf1 = buf, buf2 = buf, n1 = n, ndhd0 = nodeheader(node-size-headerless(nd), false), n + 2 * NODE_HEADER_SIZE + nd.alignedsize ≤ # buf, n + NODE_HEADER_SIZE ≤ # buf ⊦ [encode_header#(nodeheader(node-size-headerless(nd), false), n; buf; err)] ( (err = ESUCCESS ∨ ⌊err⌋ ) ∧ # buf = # buf2 ∧ subarray(buf, 0, n1) = subarray(buf2, 0, n1) ∧ subarray(buf, n1 + NODE_HEADER_SIZE, # buf - n1 + NODE_HEADER_SIZE) = subarray(buf2, n1 + NODE_HEADER_SIZE, # buf - n1 + NODE_HEADER_SIZE) ∧ (err = ESUCCESS → is-encoded(ndhd0, subarray(buf, n1, NODE_HEADER_SIZE))) → ⟪m3 := n; if err = ESUCCESS then encode_node_headerless#(nd, m3 + NODE_HEADER_SIZE; buf, m; err); m0 := align↑(node-size-headerless(nd), 2 * NODE_HEADER_SIZE); if err = ESUCCESS then {buf := fill(buf, empty, m3 + NODE_HEADER_SIZE + node-size-headerless(nd), m0 - node-size-headerless(nd)); buf := copy(validtrailer, 0, buf, m3 + NODE_HEADER_SIZE + m0, NODE_HEADER_SIZE)}; m2 := 2 * NODE_HEADER_SIZE + m0⟫ ( (err = ESUCCESS ∨ ⌊err⌋ ) ∧ # buf = # buf1 ∧ subarray(buf, 0, n) = subarray(buf1, 0, n) ∧ subarray(buf, n + 2 * NODE_HEADER_SIZE + nd.alignedsize, n0) = subarray(buf1, n + 2 * NODE_HEADER_SIZE + nd.alignedsize, n0) ∧ ( err = ESUCCESS → (∃ buf0, buf1. subarray(buf, n, 2 * NODE_HEADER_SIZE + nd.alignedsize) = buf0 + buf1 + validtrailer ∧ is-encoded(nodeheader(node-size-headerless(nd), false), buf0) ∧ is-encoded(nd, subarray(buf1, 0, node-size-headerless(nd))) ∧ # buf1 = nd.alignedsize) ∧ m2 = 2 * NODE_HEADER_SIZE + nd.alignedsize))) |
# buf = n0 + n + 2 * NODE_HEADER_SIZE + nd.alignedsize, buf1 = buf, n + NODE_HEADER_SIZE ≤ # buf, n + 2 * NODE_HEADER_SIZE + nd.alignedsize ≤ # buf ⊦ [encode_header#(nodeheader(node-size-headerless(nd), false), n; buf; err)] ( (err = ESUCCESS ∨ ⌊err⌋ ) ∧ # buf = # buf1 ∧ subarray(buf, 0, n) = subarray(buf1, 0, n) ∧ subarray(buf, n + NODE_HEADER_SIZE, # buf - n + NODE_HEADER_SIZE) = subarray(buf1, n + NODE_HEADER_SIZE, # buf - n + NODE_HEADER_SIZE) ∧ (err = ESUCCESS → is-encoded(nodeheader(node-size-headerless(nd), false), subarray(buf, n, NODE_HEADER_SIZE))) → ⟪m3 := n; if err = ESUCCESS then encode_node_headerless#(nd, m3 + NODE_HEADER_SIZE; buf, m; err); m0 := align↑(node-size-headerless(nd), 2 * NODE_HEADER_SIZE); if err = ESUCCESS then {buf := fill(buf, empty, m3 + NODE_HEADER_SIZE + node-size-headerless(nd), m0 - node-size-headerless(nd)); buf := copy(validtrailer, 0, buf, m3 + NODE_HEADER_SIZE + m0, NODE_HEADER_SIZE)}; m2 := 2 * NODE_HEADER_SIZE + m0⟫ ( (err = ESUCCESS ∨ ⌊err⌋ ) ∧ # buf = # buf1 ∧ subarray(buf, 0, n) = subarray(buf1, 0, n) ∧ subarray(buf, n + 2 * NODE_HEADER_SIZE + nd.alignedsize, n0) = subarray(buf1, n + 2 * NODE_HEADER_SIZE + nd.alignedsize, n0) ∧ ( err = ESUCCESS → (∃ buf0, buf1. subarray(buf, n, 2 * NODE_HEADER_SIZE + nd.alignedsize) = buf0 + buf1 + validtrailer ∧ is-encoded(nodeheader(node-size-headerless(nd), false), buf0) ∧ is-encoded(nd, subarray(buf1, 0, node-size-headerless(nd))) ∧ # buf1 = nd.alignedsize) ∧ m2 = 2 * NODE_HEADER_SIZE + nd.alignedsize)))