| ∀ lref. lref ∈ q.lebrefs ↔ (∃ n. eq-entry(n, lref) ∈ q) ∧ lref ≠ none ⊦ lref ∈ (eqent + q).lebrefs ↔ (∃ n. eq-entry(n, lref) ∈ eqent + q) ∧ lref ≠ none |
∀ lref. lref ∈ q.lebrefs ↔ (∃ n. eq-entry(n, lref) ∈ q) ∧ lref ≠ none ⊦ lref ∈ q.lebrefs ∪ (eqent.lebref ≠ none ⊃ ∅ ++ eqent.lebref;∅) ↔ (∃ n. eq-entry(n, lref) = eqent ∨ eq-entry(n, lref) ∈ q) ∧ lref ≠ none
Used simplifier rules: lebrefs-rec: ⊦ (eqent ' + q).lebrefs = q.lebrefs ∪ (eqent.lebref ≠ none ⊃ {eqent.lebref} ;∅);% ⊦ eqent ∈ eqent0 ' + q ↔ eqent = eqent0 ∨ eqent ∈ q; (s)%a: ⊦ (q + q0) + q1 = q + q0 + q1; from specification list[erasequeue-base]% ⊦ {lref} = ∅ ++ lref; (s)% ⊦ eqent + q = eqent ' + q; (s)