| avol = abs(avols0[default-volid]), m < # avols0[default-volid], ebm-cons(avols0), ebm-vol-inv(abs(avols0[default-volid])), default-volid ∈ avols0 ⊦ ⟨ebm_avol_remap#(m; avol; err1)⟩ (avol = abs(avols0[default-volid][m, mapped(emptyleb, 0)]) ∧ ESUCCESS = err1) |
avol = abs(avols0[default-volid]), m < # avols0[default-volid], ebm-cons(avols0), ebm-vol-inv(abs(avols0[default-volid])), default-volid ∈ avols0 ⊦ ⟨if m < # avol then {fail_or_success#(; ; err); if err = ESUCCESS then avol[m] := mapped(mkbuf(0)) else {skip or avol[m] := unmapped}} else abort⟩ (avol = abs(avols0[default-volid][m, mapped(emptyleb, 0)]) ∧ ESUCCESS = err)
Used simplifier rules: ebm_avol_remap#(LNUM; AVOL; ERR) {if LNUM < # AVOL then {fail_or_success#(; ; ERR); if ERR = ESUCCESS then AVOL[LNUM] := mapped(mkbuf(0)) else {skip or AVOL[LNUM] := unmapped}} else abort };