| ⊦ # rmdup(x + y) ≤ # rmdup(y) → # rmdup(x + y) = # rmdup(y) |
# rmdup(x + y) < # rmdup(y) ⊦ # rmdup(x + y) = # rmdup(y), y = []
Used simplifier rules: rm-empty: ⊦ rmdup(x) = [] ↔ x = [];%l: ⊦ # x = 0 ↔ x = []; from specification list-data%f: ⊦ m < n → n ≠ 0; (forward) from specification nat-basic1%lels-02: ⊦ m ≠ n → (m ≤ n ↔ m < n); from specification nat