| # buf = 2 * NODE_HEADER_SIZE + a.alignedsize, # buf = a '.flashsize, lax + ladr ' = @(m, # buf) ', abs-node(buf, a), ∀ buf0, x, a, m, lax, ladr. # buf0 < # buf → # buf0 = (x + a ').flashsize ∧ abs-nodes(buf0, m, x + a ', lax + ladr ', false) → (∃ buf2, buf1. buf0 = buf2 + buf1 ∧ abs-nodes(buf2, m, x, lax, false) ∧ abs-node(buf1, a) ∧ ladr = @(# buf2 + m, 2 * NODE_HEADER_SIZE + a.alignedsize)) ⊦ ∃ buf0, buf1. buf = buf0 + buf1 ∧ abs-nodes(buf0, m, [], lax, false) ∧ abs-node(buf1, a) ∧ ladr = @(# buf0 + m, # buf0 + # buf1) |
# buf = 2 * NODE_HEADER_SIZE + a.alignedsize, abs-node(buf, a), ∀ buf0, x, a, m, lax, ladr. # buf0 < # buf → # buf0 = (x + a ').flashsize ∧ abs-nodes(buf0, m, x + a ', lax + ladr ', false) → (∃ buf2, buf1. buf0 = buf2 + buf1 ∧ abs-nodes(buf2, m, x, lax, false) ∧ abs-node(buf1, a) ∧ ladr = @(# buf2 + m, 2 * NODE_HEADER_SIZE + a.alignedsize)) ⊦ ∃ buf0, buf1. buf = buf0 + buf1 ∧ abs-nodes(buf0, m, [], [], false) ∧ abs-node(buf1, a) ∧ @(m, # buf0 + # buf1) = @(# buf0 + m, # buf0 + # buf1)
Used simplifier rules: flashsize-one: ⊦ a '.flashsize = a.flashsize;%ls-abs-node-buf-size: ⊦ abs-node(buf, nd) → # buf = nd.alignedsize + 2 * NODE_HEADER_SIZE;%append-a: ⊦ (buf + buf0) + buf1 = buf + buf0 + buf1; from specification array-splice[buffer]% ⊦ #(buf + buf0) = # buf + # buf0; (s)%c: ⊦ m + n = n + m; from specification nat-basic% ⊦ nd.flashsize = 2 * NODE_HEADER_SIZE + nd.alignedsize; (s)%a: ⊦ (lax + lax0) + lax1 = lax + lax0 + lax1; from specification list[laddress-list]% ⊦ ladr ' = lax + ladr0 ' ↔ ladr = ladr0 ∧ lax = []; (ws)