| ⊦ ⟪ebm_format#(; ; avols, err); if err = ESUCCESS then {v := default-volid; ebm_create_volume#(v, m; avols; err)}⟫ (err = ESUCCESS → default-volid ∈ avols ∧ v = default-volid ∧ ebm-cons(avols)) |
⊦ ⟪fail_or_success#(; ; err); if err = ESUCCESS then avols := ∅ else avols := ?; if err = ESUCCESS then {v := default-volid; ebm_create_volume#(v, m; avols; err)}⟫ (err = ESUCCESS → default-volid ∈ avols ∧ v = default-volid ∧ ebm-cons(avols))
Used simplifier rules: ebm_format#(; ; AVOLS, ERR) {fail_or_success#(; ; ERR); if ERR = ESUCCESS then AVOLS := ∅ else AVOLS := ? };