| # buf3 = n5 + n1, # buf2 = EB_PAGE_SIZE, # lpt0 = # avol1, # avol0 = # avol1, n1 + n5 = n4 + min(n1, n2), (n0 + # buf4) + n3 + n2 = LEB_SIZE, avol1[m2] = mapped(buf4 + subarray(buf2, 0, n2 + n0)), avol0[m2] = mapped(buf4), n2 + n0 < EB_PAGE_SIZE, m2 < # avol1, n0 < EB_PAGE_SIZE, awbuf-inv(avol1, buffered(m2)), ebm-vol-inv(avol0), is-aligned(# buf4, EB_PAGE_SIZE), min(n1, n2) ≤ n1 + n5, # buf4 ≤ LEB_SIZE, n0 + min(n1, n2) ≤ EB_PAGE_SIZE, n1 ≤ n2 + n3, n0 ≤ # buf2 → (∃ buf0, buf1. buf2 = buf0 + buf1 ∧ # buf0 = n0) ⊦ subarray(buf2, n0, min(n1, n2)) + subarray(mkempbuf(n1) + subarray(buf3, n1, n5), min(n1, n2), n4) = subarray(subarray(buf2, 0, n2 + n0) + mkempbuf(n3), n0, n1) + subarray(buf3, n1, n5), EB_PAGE_SIZE = 1, n0 = 0 |
# buf3 = n5 + n1, # avol0 = # avol1, # lpt0 = # avol1, (# buf + # buf4) + n3 + n2 = LEB_SIZE, n1 + n5 = n4 + min(n1, n2), # buf + # buf0 = EB_PAGE_SIZE, avol0[m2] = mapped(buf4), avol1[m2] = mapped(buf4 + buf + subarray(buf0, 0, n2)), n2 < # buf0, m2 < # avol1, # buf < EB_PAGE_SIZE, awbuf-inv(avol1, buffered(m2)), ebm-vol-inv(avol0), is-aligned(# buf4, EB_PAGE_SIZE), # buf4 ≤ LEB_SIZE, min(n1, n2) ≤ n1 + n5, n1 ≤ n2 + n3, min(n1, n2) ≤ # buf0 ⊦ # buf = 0, subarray(buf0, 0, min(n1, n2)) + subarray(mkempbuf(n1) + subarray(buf3, n1, n5), min(n1, n2), n4) = subarray(subarray(buf0, 0, n2) + mkempbuf(n3), 0, n1) + subarray(buf3, n1, n5), EB_PAGE_SIZE = 1
Used simplifier rules: nat0: ⊦ n0 = n1 + n → (n1 + m ≤ n0 ↔ m ≤ n);% ⊦ m = m0 + n0 ∧ n < n0 → m0 + n < m; (s)% ⊦ m ≤ n → (n < m ↔ false); (s)% ⊦ # mkempbuf(n) = n; (s)% ⊦ # subarray(buf, m, n) = n; (s)% ⊦ m < n → (n ≤ m ↔ false); (s)%m ≤ # buf ⊦ subarray(buf0 + buf, 0, # buf0 + m) = buf0 + subarray(buf, 0, m); (s)% ⊦ m < n → ¬ n < m; (s)% ⊦ m + n < m + n0 ↔ n < n0; (s)% ⊦ m < m + n ↔ n ≠ 0; (s)% ⊦ m + n = m + n0 ↔ n = n0; (s)%min-comm: ⊦ min(n0, n1) = min(n1, n0); from specification min-max% ⊦ n1 < n0 → min(n0, n1) = n1; (s)% ⊦ min(n, m) < n ↔ min(n, m) = m ∧ m < n; (ws)% ⊦ m < n → n ≠ 0; (s)%f: ⊦ m < n → n ≠ 0; (forward) from specification nat-basic%lf-01: ⊦ m < n ∧ n = n0 → m < n0; (forward) from specification nat-basic%fle-01: ⊦ m ≤ n ∧ n < n0 → m < n0; (forward) from specification nat%m ≤ # buf ⊦ subarray(buf0 + buf, # buf0, m) = subarray(buf, 0, m); (s)%c: ⊦ m + n = n + m; from specification nat-basic%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)% ⊦ m ≤ n ↔ ¬ n < m; (ss)%lf-02: ⊦ m < n ∧ m = n0 → n0 < n; (forward) from specification nat-basic% ⊦ m < n → m ≤ n; (s)