| m < # avols[default-volid], ebm-cons(avols), default-volid ∈ avols ⊦ ⟪ebm_vol_unmap#(m, default-volid; avols); ebm_map#(default-volid, m; avols; err)⟫ (default-volid ∈ avols ∧ ebm-cons(avols)) |
v = default-volid, m < # avols[default-volid], ebm-cons(avols), default-volid ∈ avols ⊦ ⟪if m < # avols[v] then ebm_unmap#(v, m; avols) else abort; ebm_map#(default-volid, m; avols; err)⟫ (default-volid ∈ avols ∧ ebm-cons(avols))
Used simplifier rules: unmap: ⊦ ;