| ⊦ dups(x) ↔ # x > 1 ∧ (x.first ∈ x.rest ∨ dups(x.rest)) |
dups(x) ⊦ x = [], (x.first ∈ x.rest ∨ dups(x.rest)) ∧ # x ≠ 1
Used simplifier rules: dups-in: ⊦ ¬ dups(x) ∧ x ≠ [] → ¬ x.first ∈ x.rest;%dups-rest: ⊦ ¬ dups(x) ∧ x ≠ [] → ¬ dups(x.rest);%e-01: ⊦ ¬ dups([]);%l: ⊦ # x = 0 ↔ x = []; from specification list-data%one: ⊦ 1 < m ↔ ¬(m = 0 ∨ m = 1); from specification nat-basic1%gr-def: ⊦ m > n ↔ n < m; from specification nat