| wlar[n] = wl-entry(m3, stat), m1 < # wlar, m1 < m, m < # wlar, m1 + 1 < # wlar, n ∈ q, ∀ n. n ∈ q ↔ n < m ∧ wlar[n].status = erasing ⊦ n = m1, n = m, m < n, ¬ m < n ∧ stat = erasing |
wlar[n] = wl-entry(m3, stat), n < # wlar, n < m, m1 < # wlar, m1 < m, m < # wlar, m1 + 1 < # wlar, n + 1 < # wlar, n ∈ q, ∀ n. n ∈ q ↔ n < m ∧ wlar[n].status = erasing ⊦ n = m1, n = m, stat = erasing
Used simplifier rules: ⊦ m +1 = m + 1; (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% ⊦ m < n → ¬ n < m; (s)% ⊦ n ≠ n0 → (n < n0 ↔ ¬ n0 < n); (ss)