| m < # wlar, indices-erasing(wlar, nx) ⊦ indices-erasing(wlar[m, wle], m ' + nx) ↔ wle.status = erasing |
wle.status = erasing, m < # wlar, indices-erasing(wlar, nx) ⊦ indices-erasing(wlar[m, wle], nx)
Used simplifier rules: indices-erasing-rec: ⊦ indices-erasing(wlar, n ' + nx) ↔ n < # wlar ∧ wlar[n].status = erasing ∧ indices-erasing(wlar, nx);% ⊦ m < n → n ≠ 0; (s)%f: ⊦ m < n → n ≠ 0; (forward) from specification nat-basic%a: ⊦ (nx + nx0) + nx1 = nx + nx0 + nx1; from specification list[nat-list-set]% ⊦ m < # wlar → wlar[m, wle][m] = wle; (s)% ⊦ # wlar[n, wle] = # wlar; (s)