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