| v = default-volid, avols[default-volid][m2].mapped?, m2 < # avols[default-volid], n1 < n, ebm-cons(avols), is-aligned(m1, EB_PAGE_SIZE), is-aligned(n, EB_PAGE_SIZE), is-aligned(n1, EB_PAGE_SIZE), default-volid ∈ avols, m1 + n ≤ LEB_SIZE, n + n2 ≤ # buf, avols[default-volid][m2].mapped? → avols[default-volid][m2].fill ≤ m1, ⌊err0⌋ ∨ err0 = ESUCCESS ⊦ [avols[v][m2] := mapped(subarray(avols[v][m2].data, 0, m1) + subarray(buf, n2, n1) + mkempbuf(LEB_SIZE - m1 - n1), m1 + n1)] (ebm-cons(avols) → default-volid ∈ avols), err0 = ESUCCESS, n1 = 0 |
Used simplifier rules: ⊦ n ≥ m ↔ m ≤ n; (s)% ⊦ m ≤ n ↔ ¬ n < m; (ss)% ⊦ m ≤ n → (n < m ↔ false); (s)%n0 ≤ n ⊦ m ≤ n - n0 ↔ m + n0 ≤ n; (s)% ⊦ 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 → (m ≤ n ↔ m < n); (s)% ⊦ v ∈ avols[v0, evol] ↔ v = v0 ∨ v ∈ avols; (ws)%# buf = n ⊦ subarray(buf, 0, n) = buf; (s)%append-a: ⊦ (buf + buf0) + buf1 = buf + buf0 + buf1; from specification array-splice[buffer]