| avol[m2] = mapped(buf1), err0 = ESUCCESS, m2 < # avol, ebm-vol-inv(avol), n2 + n1 ≤ # buf, m1 + n1 ≤ LEB_SIZE, ⌊err0⌋ ∨ err0 = ESUCCESS ⊦ ⟪buf := copy(avol[m2].data + mkempbuf(LEB_SIZE - # avol[m2].data), m1, buf, n2, n1)⟫ true |
Used simplifier rules: ⊦ ¬ ⌊ESUCCESS⌋ ; (s)% ⊦ #(buf + buf0) = # buf + # buf0; (s)% ⊦ # mkempbuf(n) = n; (s)%append-a: ⊦ (buf + buf0) + buf1 = buf + buf0 + buf1; from specification array-splice[buffer]% ⊦ n ≥ m ↔ m ≤ n; (s)% ⊦ mapped(buf).data = buf; (s)% ⊦ mapped(buf).mapped?; (s)% ⊦ m ≤ n ↔ ¬ n < m; (ss)%f: ⊦ m < n → n ≠ 0; (forward) from specification nat-basic%fle: ⊦ m < n ∧ n ≤ n0 → m < n0; (forward) from specification nat% ⊦ m < n → n ≠ 0; (s)% ⊦ ¬ n + (m - n) < m; (s)%a: ⊦ (m + n0) + n1 = m + n0 + n1; from specification nat-basic%c: ⊦ m + n = n + m; from specification nat-basic%⊦ n < # avol ∧ avol[n] = mapped(buf) ∧ ebm-vol-inv(avol) → ¬ LEB_SIZE < # buf; (s)