| wlar[n0] = wl-entry(m0, stat), n0 < # wlar, m ∈ ecs(wlar, n0), n0 ≤ # wlar → (m ∈ ecs(wlar, n0) ↔ (∃ n1. n1 < n0 ∧ wlar[n1].ec = m)) ⊦ ∃ n. ¬ n0 < n ∧ wlar[n].ec = m |
wlar[n0] = wl-entry(m0, stat), n < # wlar, n < n0, n0 < # wlar, n + 1 < # wlar, wlar[n].ec ∈ ecs(wlar, n0) ⊦ ∃ n1. ¬ n0 < n1 ∧ wlar[n1].ec = wlar[n].ec
Used simplifier rules: ⊦ m +1 = m + 1; (s)% ⊦ m < n → n ≠ 0; (s)%transitivity: ⊦ n < n0 ∧ n0 < n1 → n < n1; (forward) from specification oelem[nat-set]%lf: ⊦ m < n ∧ n < n0 → m +1 < n0; (forward) from specification nat-basic%f: ⊦ m < n → n ≠ 0; (forward) from specification nat-basic% ⊦ m < n → m ≤ n; (s)