wlar[n] = wl-entry(m, used), n < # wlar, valid-eraseq(wlar, q), n ∈ q ⊦
Used simplifier rules: ⊦ m < n → n ≠ 0; (s)%f: ⊦ m < n → n ≠ 0; (forward) from specification nat-basic