| ∀ 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 ∈ (a0 × d1)', a ∈ ax1 |
∀ a, d, ax0, d0. (ax1 + (a × d)' + ax0)[a, d0] = ax1 + (a × d0)' + ax0 ∨ a ∈ ax1 ⊦ a = a0, (ax1 + (a × d)' + ax0)[a, d0] = ax1 + (a × d0)' + ax0, 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];%app-08: ⊦ p ' + ax = p ' + ax0 ↔ ax = ax0; from specification list[assoclista]%a: ⊦ (ax + ax0) + ax1 = ax + ax0 + ax1; from specification list[assoclista]