| avol = abs(avols[v]), v = default-volid, m < # avol, ebm-cons(avols), ebm-vol-inv(avol), v ∈ avols ⊦ ⟪ebm_vol_remap#(m, v; avols; err)⟫ ⟨ebm_avol_remap#(m; avol; err0)⟩ (avol = abs(avols[v]) ∧ err = err0) |
avol = abs(avols[default-volid]), m < # avols[default-volid], ebm-cons(avols), ebm-vol-inv(abs(avols[default-volid])), default-volid ∈ avols ⊦ ⟪ebm_vol_remap#(m, default-volid; avols; err)⟫ ⟨ebm_avol_remap#(m; avol; err0)⟩ (avol = abs(avols[default-volid]) ∧ err = err0)
Used simplifier rules: ⊦ m < n → n ≠ 0; (s)%f: ⊦ m < n → n ≠ 0; (forward) from specification nat-basic% ⊦ # abs(evol) = # evol; (s)