| avols = avols0, ebm-cons(avols1), ebm-cons(avols0), default-volid ∈ avols1, avols1 ⊆ avols0 ⊦ ⟪fail_or_success#(; ; err); if err ≠ ESUCCESS then avols := ?; v := default-volid⟫ (err = ESUCCESS → default-volid ∈ avols ∧ v = default-volid ∧ ebm-cons(avols)) |
avols = avols0, ebm-cons(avols0), ebm-cons(avols1), default-volid ∈ avols1, avols1 ⊆ avols0 ⊦ ⟪choose err0 with ⌊err0⌋ ∨ err0 = ESUCCESS in err := err0; if err ≠ ESUCCESS then avols := ?; v := default-volid⟫ (err = ESUCCESS → default-volid ∈ avols ∧ v = default-volid ∧ ebm-cons(avols))
Used simplifier rules: fail_or_success#(; ; ERR) {choose ERR0 with ⌊ERR0⌋ ∨ ERR0 = ESUCCESS in ERR := ERR0};