| n0 < # wlar, ∀ wlar, m. n0 ≤ # wlar → (m ∈ ecs(wlar, n0) ↔ (∃ n1. n1 < n0 ∧ wlar[n1].ec = m)) ⊦ m ∈ ecs(wlar, n0) ++ wlar[n0].ec ↔ (∃ n. ¬ n0 < n ∧ wlar[n].ec = m) |
wlar[n0] = wl-entry(m0, stat), n0 < # wlar, ∀ wlar, m. n0 ≤ # wlar → (m ∈ ecs(wlar, n0) ↔ (∃ n1. n1 < n0 ∧ wlar[n1].ec = m)) ⊦ m ∈ ecs(wlar, n0) ++ m0 ↔ (∃ n. ¬ n0 < n ∧ wlar[n].ec = m)
Used simplifier rules: ⊦ m = wle.ec ∧ stat = wle.status ↔ wle = wl-entry(m, stat); (elim) Used terms: wlar[n0], m0, stat