| unique_al((p + ax0) + (a × d)'), ∀ a, d. unique_al(ax0 + (a × d)') → ax0 = [] ∨ ¬ ax0.head.1 ∈ ax0.tail ∧ unique_al(ax0.tail) ⊦ p + ax0 = [], ¬ (p + ax0).head.1 ∈ (p + ax0).tail ∧ unique_al((p + ax0).tail) |
unique_al((p ' + ax0) + (a × d)'), (∃ a, d. unique_al(ax0 + (a × d)')) → ax0 = [] ∨ ¬ ax0.head.1 ∈ ax0.tail ∧ unique_al(ax0.tail) ⊦ ¬ p.1 ∈ ax0 ∧ unique_al(ax0)
Used simplifier rules: ⊦ (p ' + ax).tail = ax; (s)% ⊦ (p ' + ax).head = p; (s)%a: ⊦ (ax + ax0) + ax1 = ax + ax0 + ax1; from specification list[assoclist]% ⊦ p ' + ax ≠ []; (s)% ⊦ p + ax = p ' + ax; (s)