| valid-eraseq(q + q1), m ∈ q1, m ∈ eqent ' + q, ∀ q0, m0. ¬ valid-eraseq(q + q0) ∨ ¬ m0 ∈ q0 ∨ ¬ m0 ∈ q ⊦ eqent.pnum ∈ q, eqent.pnum ∈ q1 |
eqent = eq-entry(m1, lref), valid-eraseq(q + q1), m ∈ eqent ' + q, m ∈ q1, ∀ q0, m0. ¬ valid-eraseq(q + q0) ∨ ¬ m0 ∈ q0 ∨ ¬ m0 ∈ q ⊦ m1 ∈ q1, m1 ∈ q
Used simplifier rules: ⊦ m = eqent.pnum ∧ lref = eqent.lebref ↔ eqent = eq-entry(m, lref); (elim) Used terms: eqent, m1, lref