| n = m, n < # avols0[default-volid], m < # avols0[default-volid], ebm-cons(avols0), ebm-vol-inv(abs(avols0[default-volid])), default-volid ∈ avols0 ⊦ abs(avols0[default-volid])[m, mapped(mkbuf(0))][n] = abs(avols0[default-volid][m, mapped(emptyleb, 0)])[n] |
m < # avols0[default-volid], ebm-cons(avols0), ebm-vol-inv(abs(avols0[default-volid])), default-volid ∈ avols0 ⊦ mapped(mkbuf(0)) = abs(avols0[default-volid][m, mapped(emptyleb, 0)])[m]
Used simplifier rules: m < # avol ⊦ avol[m, aleb][m] = aleb; (s)% ⊦ m < n → (n ≤ m ↔ false); (s)% ⊦ m < n ↔ ¬ n ≤ m; (ss)% ⊦ # abs(evol) = # evol; (s)