| m < # avols[v], ebm-cons(avols), v ∈ avols ⊦ ⟪ebm_erase#(v, m; avols; err)⟫ ebm-cons(avols) |
m < # avols[v], ebm-cons(avols), v ∈ avols ⊦ ⟪if v ∈ avols ∧ m < # avols[v] then {fail_or_success#(; ; err); if err = ESUCCESS then avols[v][m] := erased else {skip or avols[v][m] := unmapped}} else abort⟫ ebm-cons(avols)
Used simplifier rules: erase: ⊦ ;