| # ay0 + # az < # ax0, unique_al(ax0.rest), ∀ a0. a0 ∈ ax0 → a0 ∈ ay0 ∨ a0 ∈ az ⊦ ax0 = [], ax0.first.1 ∈ ax0.rest, a ∈ ax0, #(ay0 + az) < # ax0 ∧ (∀ a. a ∈ ax0 → a ∈ ay0 + az) |
# ay0 + # az < # ax0, unique_al(ax0.rest), a0 ∈ ax0, ∀ a0. a0 ∈ ax0 → a0 ∈ ay0 ∨ a0 ∈ az ⊦ ax0 = [], ax0.first.1 ∈ ax0.rest, a ∈ ax0, a0 ∈ ay0, a0 ∈ az
Used simplifier rules: inapp: ⊦ a ∈ ax + ay ↔ ¬ ¬(a ∈ ax ∨ a ∈ ay);%a: ⊦ (ax + ax0) + ax1 = ax + ax0 + ax1; from specification list[assoclista]%len: ⊦ #(ax + ax0) = # ax + # ax0; from specification list[assoclista]