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