| ∀ a. a ∈ [] ↔ a ∈ ay, unique_al([]), unique_al(ay) ⊦ # [] = # ay |
unique_al(ay.rest), ∀ a. ¬ a ∈ ay ⊦ ay = [], ay.first.1 ∈ ay.rest
Used simplifier rules: unique-e: ⊦ unique_al([]);%k-unique-r: ⊦ unique_al(ay) ↔ ay = [] ∨ ¬ ay.first.1 ∈ ay.rest ∧ unique_al(ay.rest);%empty: ⊦ ¬ a ∈ [];%l: ⊦ # ax = 0 ↔ ax = []; from specification list-data[assoclista]%size-01: ⊦ # [] = 0; from specification list-data[assoclista]