| m < # avols[v], ebm-cons(avols), v ∈ avols ⊦ ⟪fail_or_success#(; ; err); if err = ESUCCESS then avols[v][m] := erased else {skip or avols[v][m] := unmapped}⟫ ebm-cons(avols) |
m < # avols[v], ebm-cons(avols), v ∈ avols ⊦ ⟪choose err0 with ⌊err0⌋ ∨ err0 = ESUCCESS in err := err0; if err = ESUCCESS then avols[v][m] := erased else {skip or avols[v][m] := unmapped}⟫ ebm-cons(avols)
Used simplifier rules: fail_or_success#(; ; ERR) {choose ERR0 with ⌊ERR0⌋ ∨ ERR0 = ESUCCESS in ERR := ERR0};