| ∃ buf2, buf1. buf0 = buf2 + buf1 ∧ ( abs-padding(buf2) ∧ abs-nodes(buf1, m + # buf2, nd ' + x, lax0, false) ∨ lax0 ≠ [] ∧ lax0.head.off = m ∧ lax0.head.size = # buf2 ∧ abs-node(buf2, nd) ∧ abs-nodes(buf1, m + # buf2, x, lax0.tail, false)), ∀ buf, m, x0, lax0, buf1, x1, lax1, weak. # buf < # buf0 → abs-nodes(buf, m, x0, lax0, false) → (abs-nodes(buf + buf1, m, x0 + x1, lax0 + lax1, weak) ↔ abs-nodes(buf1, m + # buf, x1, lax1, weak)) ⊦ abs-nodes(buf0 + buf1, m, (nd ' + x) + x1, lax0 + lax1, weak) ↔ abs-nodes(buf1, m + # buf0, x1, lax1, weak) |
abs-padding(buf2) ∧ abs-nodes(buf, m + # buf2, nd ' + x, lax0, false) ∨ lax0 ≠ [] ∧ lax0.head.off = m ∧ lax0.head.size = # buf2 ∧ abs-node(buf2, nd) ∧ abs-nodes(buf, lax0.head.off + # buf2, x, lax0.tail, false), ∀ buf3, m, x0, lax0, buf1, x1, lax1, weak. # buf3 < #(buf2 + buf) → abs-nodes(buf3, m, x0, lax0, false) → (abs-nodes(buf3 + buf1, m, x0 + x1, lax0 + lax1, weak) ↔ abs-nodes(buf1, m + # buf3, x1, lax1, weak)) ⊦ abs-nodes((buf2 + buf) + buf1, m, (nd ' + x) + x1, lax0 + lax1, weak) ↔ abs-nodes(buf1, m + # buf2 + # buf, x1, lax1, weak)
Used simplifier rules: a: ⊦ (m + n0) + n1 = m + n0 + n1; from specification nat-basic%append-a: ⊦ (buf + buf0) + buf1 = buf + buf0 + buf1; from specification array-splice[buffer]% ⊦ #(buf + buf0) = # buf + # buf0; (s)