| avol = abs(avols[default-volid]), m < # avols[default-volid], ebm-cons(avols), ebm-vol-inv(abs(avols[default-volid])), default-volid ∈ avols ⊦ ⟪ebm_vol_unmap#(m, default-volid; avols)⟫ ⟨ebm_avol_unmap#(m; avol)⟩ (avol = abs(avols[default-volid])) |
avol = abs(avols[default-volid]), v = default-volid, m < # avols[default-volid], ebm-cons(avols), ebm-vol-inv(abs(avols[default-volid])), default-volid ∈ avols ⊦ ⟪if m < # avols[v] then ebm_unmap#(v, m; avols) else abort⟫ ⟨ebm_avol_unmap#(m; avol)⟩ (avol = abs(avols[default-volid]))
Used simplifier rules: ebm_vol_unmap#(LNUM, VOLID; AVOLS) {if LNUM < # AVOLS[VOLID] then ebm_unmap#(VOLID, LNUM; AVOLS) else abort };