| err0 = ESUCCESS, 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, avols[v][m2].mapped? → avols[v][m2].fill ≤ m1, ⌊err0⌋ ∨ err0 = ESUCCESS ⊦ ⟪avols[v][m2] := mapped(mkempbuf(m1) + subarray(buf, n2, n) + mkempbuf(LEB_SIZE - m1 - n), m1 + n)⟫ ebm-cons(avols), avols[v][m2].mapped? |
err0 = ESUCCESS, m2 < # avols[v], ebm-cons(avols), is-aligned(m1, EB_PAGE_SIZE), is-aligned(n, EB_PAGE_SIZE), v ∈ avols, n2 + n ≤ # buf, m1 + n ≤ LEB_SIZE, n + n2 ≤ # buf, LEB_SIZE - m1 ≥ n, LEB_SIZE ≥ m1, avols[v][m2].mapped? → avols[v][m2].fill ≤ m1, ⌊err0⌋ ∨ err0 = ESUCCESS ⊦ avols[v][m2].mapped?, ebm-cons(avols[v, avols[v][m2, mapped(mkempbuf(m1) + subarray(buf, n2, n) + mkempbuf(LEB_SIZE - m1 - n), m1 + n)]])
Used simplifier rules: ⊦ ¬ ⌊ESUCCESS⌋ ; (s)%c: ⊦ m + n = n + m; from specification nat-basic% ⊦ 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)%f: ⊦ m < n → n ≠ 0; (forward) from specification nat-basic%fle-01: ⊦ m ≤ n ∧ n < n0 → m < n0; (forward) from specification nat% ⊦ m < n → n ≠ 0; (s)% ⊦ ¬ m + n < m; (s)%a: ⊦ (m + n0) + n1 = m + n0 + n1; from specification nat-basic