| dups(restn(n, x)), n ≤ # x ⊦ dups(x) |
dups(restn(n, a + x0)), n ≤ #(a + x0), ∀ n. dups(restn(n, x0)) ∧ n ≤ # x0 → dups(x0) ⊦ dups(a + x0)
Used simplifier rules: restN-zero: ⊦ restn(0, x) = x;%list freely generated by [], +;;% ⊦ # [] = 0; (s)% ⊦ m ≤ 0 ↔ m = 0; (s)% ⊦ ¬ dups([]); (s)