| avols[default-volid][m] = mapped(buf0, n1), avol = abs(avols[default-volid]), m < # avols[default-volid], ebm-cons(avols), ebm-vol-inv(abs(avols[default-volid])), is-aligned(n, EB_PAGE_SIZE), is-aligned(m0, EB_PAGE_SIZE), default-volid ∈ avols, n0 + n ≤ # buf, m0 + n ≤ LEB_SIZE, n1 ≤ m0 ⊦ ⟪ebm_vol_write#(m, m0, n0, n, buf, default-volid; avols; err)⟫ ⟨ebm_avol_write#(m, m0, n0, n, buf; avol; err0)⟩ (avol = abs(avols[default-volid]) ∧ err = err0) |
avols[default-volid][m2] = mapped(buf0, n1), avol = abs(avols[default-volid]), m = m1, m0 = m2, v = default-volid, m2 < # avols[default-volid], ebm-cons(avols), ebm-vol-inv(abs(avols[default-volid])), is-aligned(m1, EB_PAGE_SIZE), is-aligned(n, EB_PAGE_SIZE), default-volid ∈ avols, n1 ≤ m1, m1 + n ≤ LEB_SIZE, n0 + n ≤ # buf ⊦ ⟪if m0 < # avols[v] ∧ m + n ≤ LEB_SIZE ∧ is-aligned(m, EB_PAGE_SIZE) ∧ is-aligned(n, EB_PAGE_SIZE) ∧ n + n0 ≤ # buf ∧ (avols[v][m0].mapped? → m ≥ avols[v][m0].fill) then ebm_write#(v, m0, m, n0, n, buf; avols; err) else abort⟫ ⟨ebm_avol_write#(m2, m1, n0, n, buf; avol; err0)⟩ (avol = abs(avols[default-volid]) ∧ err = err0)
Used simplifier rules: ebm_vol_write#(LNUM, OFFSET, N0, N, BUF, VOLID; AVOLS; ERR) {if LNUM < # AVOLS[VOLID] ∧ OFFSET + N ≤ LEB_SIZE ∧ is-aligned(OFFSET, EB_PAGE_SIZE) ∧ is-aligned(N, EB_PAGE_SIZE) ∧ N + N0 ≤ # BUF ∧ (AVOLS[VOLID][LNUM].mapped? → OFFSET ≥ AVOLS[VOLID][LNUM].fill) then ebm_write#(VOLID, LNUM, OFFSET, N0, N, BUF; AVOLS; ERR) else abort };