| ⊦ a0 × d0 ∈ ax[a, d] ↔ a0 × d0 = a × d, a0 × d0 ∈ ax |
∀ a0, d0, a, d. (a0 × d0 ∈ ax0[a, d] ↔ a0 × d0 = a × d) ∨ a0 × d0 ∈ ax0 ⊦ a0 × d0 ∈ (p + ax0)[a, d] ↔ a0 × d0 = a × d, a0 × d0 ∈ p + ax0
Used simplifier rules: put-empty: ⊦ ([])[a, d] = (a × d)';%assoclist freely generated by [], +;;% ⊦ p ∈ p0 ' ↔ p = p0;% ⊦ a × d = a0 × d0 ↔ a = a0 ∧ d = d0;