| 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) |
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)
Used simplifier rules: ⊦ # wlar[n, wle] = # wlar; (s)% ⊦ m < n ↔ ¬ n ≤ m; (ss)% ⊦ m < n → (n ≤ m ↔ false); (s) Used formulas: m < # wlar[m, wle]