| ∀ a, d. unique_al(ax0) ∧ a × d ∈ ax0 → ax0[a] = d ⊦ unique_al(p + ax0) ∧ a × d ∈ p + ax0 → (p + ax0)[a] = d |
unique_al(p ' + ax0), a × d ∈ ax0, ∀ a, d. unique_al(ax0) ∧ a × d ∈ ax0 → ax0[a] = d ⊦ (p ' + ax0)[a] = d, a × d = p
Used simplifier rules: assoc-yes: ⊦ ((a × d)' + ax)[a] = d;% ⊦ (ax + ax0) + ax1 = ax + ax0 + ax1;% ⊦ p ∈ p0 ' ↔ p = p0;% ⊦ p ∈ ax + ax0 ↔ ¬ ¬(p ∈ ax ∨ p ∈ ax0);% ⊦ p + ax = p ' + ax;