| unique_al(p + ax0), a × d ∈ p + ax0, a × d0 ∈ p + ax0, ∀ a, d0, d. unique_al(ax0) ∧ a × d0 ∈ ax0 ∧ a × d ∈ ax0 → d = d0 ⊦ d = d0 |
unique_al(p ' + ax0), ∀ a, d0, d. unique_al(ax0) ∧ a × d0 ∈ ax0 ∧ a × d ∈ ax0 → d = d0, a × d0 = p ∨ a × d0 ∈ ax0, a × d = p ∨ a × d ∈ ax0 ⊦ d = d0
Used simplifier rules: a: ⊦ (ax + ax0) + ax1 = ax + ax0 + ax1; from specification list[assoclist]% ⊦ p ∈ p0 ' ↔ p = p0; (s)% ⊦ p ∈ ax + ax0 ↔ p ∈ ax ∨ p ∈ ax0; (s)% ⊦ p + ax = p ' + ax; (s)