| unique_al(ax0), unique_al(ay0 + (a × d)' + az), (∀ a. a ∈ ax0 ↔ a ∈ ay0 + az) ∧ unique_al(ay0 + az) → # ax0 = #(ay0 + az), ∀ ay0. (∀ a. a ∈ ax0 ↔ a ∈ ay0) ∧ unique_al(ay0) → # ax0 = # ay0, ∀ a0. a0 ≠ a → (a0 ∈ ax0 ↔ a0 ∈ ay0 ∨ a0 ∈ az) ⊦ # ax0 = # ay0 + # az, a ∈ ax0, a ∈ ay0, a ∈ az |
unique_al(ax0), unique_al(ay0 + (a × d)' + az), ∀ ay0. (∀ a. a ∈ ax0 ↔ a ∈ ay0) ∧ unique_al(ay0) → # ax0 = # ay0, ∀ a0. a0 ≠ a → (a0 ∈ ax0 ↔ a0 ∈ ay0 ∨ a0 ∈ az) ⊦ # ax0 = # ay0 + # az, a0 ∈ ax0 ↔ a0 ∈ ay0 ∨ a0 ∈ az, a ∈ ax0, a ∈ ay0, a ∈ az
Used simplifier rules: inapp: ⊦ a ∈ ax + ay ↔ ¬ ¬(a ∈ ax ∨ a ∈ ay);%app: ⊦ unique_al(ax + p ' + ay) → unique_al(ax + ay);%len: ⊦ #(ax + ax0) = # ax + # ax0; from specification list[assoclista]%a: ⊦ (ax + ax0) + ax1 = ax + ax0 + ax1; from specification list[assoclista]