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