| ⊦ rmdup(x + a ') = rmdup(x -l a) + a ' |
∀ a. rmdup(x0 + a ') = rmdup(x0 -l a) + a ' ⊦ rmdup((a0 + x0) + a ') = rmdup((a0 + x0) -l a) + a '
Used simplifier rules: del-e: ⊦ [] -l a = [];%list freely generated by [], +;;%Nil: ⊦ [] + x = x; from specification list%a: ⊦ (x + y) + z = x + y + z; from specification list%rm-one: ⊦ rmdup(a ') = a '; from specification list-dup%rmdup-e: ⊦ rmdup([]) = []; from specification list-dup%c-04: ⊦ a ' = b ' ↔ a = b; from specification list