| wlar[m] = wl-entry(m1, erasing), m < # wlar, m < # wlar[m, wle], indices-erasing(wlar, nx0), ∀ wlar, m, n. indices-erasing(wlar, nx0) → indices-erasing(wlar[m, wl-entry(n, erasing)], nx0) ⊦ indices-erasing(wlar[m, wl-entry(n, erasing)], nx0) |
wlar[m] = wl-entry(m1, erasing), m < # wlar, indices-erasing(wlar, nx0), ∀ wlar, m, n. indices-erasing(wlar, nx0) → indices-erasing(wlar[m, wl-entry(n, erasing)], nx0) ⊦ indices-erasing(wlar[m, wl-entry(n, erasing)], nx0)
Used simplifier rules: ⊦ # wlar[n, wle] = # wlar; (s)