| ∀ a, d, ax0, d0. (ax1 + (a × d)' + ax0)[a, d0] = ax1 + (a × d0)' + ax0 ∨ a ∈ ax1 ⊦ (((a0 × d1)' + ax1) + (a × d)' + ax0)[a, d0] = ((a0 × d1)' + ax1) + (a × d0)' + ax0, a ∈ ax1, a ∈ (a0 × d1)' |
∀ a, d, ax0, d0. (ax1 + (a × d)' + ax0)[a, d0] = ax1 + (a × d0)' + ax0 ∨ a ∈ ax1 ⊦ (ax1 + (a × d)' + ax0)[a, d0] = ax1 + (a × d0)' + ax0, a = a0, a ∈ ax1
Used simplifier rules: inone: ⊦ a ∈ (b × d0)' ↔ a = b;%put-no: ⊦ a ≠ b → ((b × d0)' + ax)[a, d] = (b × d0)' + ax[a, d];% ⊦ ax + ax0 = ax + ax1 ↔ ax0 = ax1; (s)%a: ⊦ (ax + ax0) + ax1 = ax + ax0 + ax1; from specification list[assoclist]