| ∀ a, d. ax0[a, d] = ax0 + (a × d)' ∨ a ∈ ax0 ⊦ ((a0 × d0)' + ax0)[a, d] = ((a0 × d0)' + ax0) + (a × d)', a ∈ (a0 × d0)', a ∈ ax0 |
∀ a, d. ax0[a, d] = ax0 + (a × d)' ∨ a ∈ ax0 ⊦ a = a0, ax0[a, d] = ax0 + (a × d)', a ∈ ax0
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]