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