| unique_al(p + ax0), unique_al(ay), ∀ a. a ∈ p + ax0 ↔ a ∈ ay, ∀ ay. unique_al(ay) ∧ unique_al(ax0) ∧ (∀ a. a ∈ ax0 ↔ a ∈ ay) → # ax0 = # ay ⊦ #(p + ax0) = # ay |
unique_al(ay), unique_al(p ' + ax0), ∀ ay. unique_al(ay) ∧ unique_al(ax0) ∧ (∀ a. a ∈ ax0 ↔ a ∈ ay) → # ax0 = # ay, ∀ a. a ∈ p ' ∨ a ∈ ax0 ↔ a ∈ ay ⊦ 1 + # ax0 = # ay
Used simplifier rules: inapp: ⊦ a ∈ ax + ay ↔ a ∈ ax ∨ a ∈ ay;%a: ⊦ (ax + ax0) + ax1 = ax + ax0 + ax1; from specification list[assoclist]% ⊦ # p ' = 0 +1; (s)% ⊦ #(ax + ax0) = # ax + # ax0; (s)% ⊦ p + ax = p ' + ax; (s)