| avol = abs(avols[v]), buf = buf0, v = default-volid, avol[m].mapped?, m < # avol, ebm-cons(avols), ebm-vol-inv(avol), v ∈ avols, m0 + n0 ≤ LEB_SIZE, n + n0 ≤ # buf ⊦ ⟪ebm_vol_read#(m, m0, n, n0, v, avols; buf; err)⟫ ⟨ebm_avol_read#(m, m0, n, n0, avol; buf0; err0)⟩ (avol = abs(avols[v]) ∧ buf = buf0 ∧ err = err0) |
avols[default-volid][m] = mapped(buf1, n1), buf = buf0, m < # avols[default-volid], ebm-cons(avols), ebm-vol-inv(abs(avols[default-volid])), default-volid ∈ avols, m0 + n0 ≤ LEB_SIZE, n + n0 ≤ # buf0 ⊦ ⟪ebm_vol_read#(m, m0, n, n0, default-volid, avols; buf; err)⟫ ⟨ebm_avol_read#(m, m0, n, n0, abs(avols[default-volid]); buf0; err0)⟩ (buf = buf0 ∧ err = err0)
Used simplifier rules: ⊦ m < n → n ≠ 0; (s)%f: ⊦ m < n → n ≠ 0; (forward) from specification nat-basic% ⊦ abs(leb).mapped? ↔ (∃ buf, n. leb = mapped(buf, n)); (s)% ⊦ n < # evol → abs(evol)[n] = abs(evol[n]); (s)% ⊦ # abs(evol) = # evol; (s)