| unique_al(ax0), # ay ≤ # ax0, (∃ ay. # ay < # ax0 ∧ unique_al(ax0.rest) ∧ (∀ a. a ∈ ax0 → a ∈ ay)) → ax0 = [] ∨ ax0.first.1 ∈ ax0.rest, ∀ a0. a0 ∈ (a × d)' ∨ a0 ∈ ax0 → a0 ∈ ay ⊦ (a × d).1 ∈ ax0 |
unique_al(ax0), # ay ≤ # ax0, (∃ ay. # ay < # ax0 ∧ unique_al(ax0.rest) ∧ (∀ a. a ∈ ax0 → a ∈ ay)) → ax0 = [] ∨ ax0.first.1 ∈ ax0.rest, ∀ a0. a0 = a ∨ a0 ∈ ax0 → a0 ∈ ay ⊦ a ∈ ax0
Used simplifier rules: inone: ⊦ a ∈ (b × d0)' ↔ a = b;%sel-02: ⊦ (a × d).1 = a; from specification pair