| LEB_SIZE = n1 + m1 + n, m2 < # avols[v], ebm-cons(avols), is-aligned(n, EB_PAGE_SIZE), is-aligned(m1, EB_PAGE_SIZE), v ∈ avols, n + n2 ≤ # buf, m1 + n ≤ LEB_SIZE, n2 + n ≤ # buf, m1 ≤ LEB_SIZE, n + m1 ≤ LEB_SIZE ⊦ avols[v][m2].mapped?, (m1 + n) + n1 ≤ #(mkempbuf(m1) + subarray(buf, n2, n) + mkempbuf(n1)) ∧ 0 + n1 ≤ # emptyleb ∧ (∀ n3. n3 < n1 → (mkempbuf(m1) + subarray(buf, n2, n) + mkempbuf(n1))[(m1 + n) + n3] = (emptyleb)[0 + n3]) |
LEB_SIZE = n1 + m1 + n, m2 < # avols[v], n0 < n1, n0 < LEB_SIZE, ebm-cons(avols), is-aligned(n, EB_PAGE_SIZE), is-aligned(m1, EB_PAGE_SIZE), v ∈ avols, n + n2 ≤ # buf, m1 + n ≤ LEB_SIZE, n2 + n ≤ # buf, m1 ≤ LEB_SIZE, n + m1 ≤ LEB_SIZE, n1 ≤ LEB_SIZE ⊦ (mkempbuf(m1) + subarray(buf, n2, n) + mkempbuf(n1))[(m1 + n) + n0] = empty, avols[v][m2].mapped?
Used simplifier rules: ⊦ LEB_SIZE ≠ 0; (s)%lf-01: ⊦ m < n ∧ n = n0 → m < n0; (forward) from specification nat-basic% ⊦ ¬ m + n < m; (s)%lf-02: ⊦ m < n ∧ m = n0 → n0 < n; (forward) from specification nat-basic% ⊦ m ≤ n ↔ ¬ n < m; (ss)%n < # emptyleb ⊦ (emptyleb)[n] = empty; (s)% ⊦ m < n → (n ≤ m ↔ false); (s)% ⊦ m < n → n ≠ 0; (s)%fle-01: ⊦ m ≤ n ∧ n < n0 → m < n0; (forward) from specification nat%fle: ⊦ m < n ∧ n ≤ n0 → m < n0; (forward) from specification nat%f: ⊦ m < n → n ≠ 0; (forward) from specification nat-basic%let: ⊦ n ≤ n0 ∧ n0 ≤ n1 → n ≤ n1; (forward) from specification nat% ⊦ m < n ↔ ¬ n ≤ m; (ss)% ⊦ # emptyleb = LEB_SIZE; (s)% ⊦ n + 0 = n; (s)%c: ⊦ m + n = n + m; from specification nat-basic%a: ⊦ (m + n0) + n1 = m + n0 + n1; from specification nat-basic% ⊦ m ≤ m; (s)% ⊦ m + n ≤ m + n0 ↔ n ≤ n0; (s)%append-a: ⊦ (buf + buf0) + buf1 = buf + buf0 + buf1; from specification array-splice[buffer]% ⊦ # subarray(buf, m, n) = n; (s)% ⊦ # mkempbuf(n) = n; (s)% ⊦ #(buf + buf0) = # buf + # buf0; (s)