| # ay < # ax, unique_al(ax.tail), ∀ a. a ∈ ax → a ∈ ay ⊦ ax = [], ax.head.1 ∈ ax.tail |
# ay < #(p + ax0), unique_al((p + ax0).tail), ∀ a. a ∈ p + ax0 → a ∈ ay, ∀ ay. # ay < # ax0 ∧ unique_al(ax0.tail) ∧ (∀ a. a ∈ ax0 → a ∈ ay) → ax0 = [] ∨ ax0.head.1 ∈ ax0.tail ⊦ p + ax0 = [], (p + ax0).head.1 ∈ (p + ax0).tail
Used simplifier rules: assoclist freely generated by [], +;;