| 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) |
avol = abs(avols0[default-volid]), m < # avols0[default-volid], ebm-cons(avols0), ebm-vol-inv(abs(avols0[default-volid])), default-volid ∈ avols0 ⊦ ⟨fail_or_success#(; ; err); if err = ESUCCESS then avol[m] := mapped(mkbuf(0)) else {skip or avol[m] := unmapped}⟩ (avol = abs(avols0[default-volid][m, mapped(emptyleb, 0)]) ∧ ESUCCESS = err)
Used simplifier rules: ⊦ # abs(evol) = # evol; (s)% ⊦ m < n ↔ ¬ n ≤ m; (ss)% ⊦ m < n → (n ≤ m ↔ false); (s)