| # rmdup(a0 ' + x0) = m + 1, ∀ a. a ∈ x0 → # rmdup(x0 -l a) = # rmdup(x0) - 1, a = a0 ∨ a ∈ x0 ⊦ a = a0, # rmdup((a0 ' + x0) -l a) = m |
# rmdup(a0 ' + x0) = m + 1, a ∈ x0, ∀ a. a ∈ x0 → # rmdup(x0 -l a) = # rmdup(x0) - 1 ⊦ a = a0, # rmdup(a0 ' + (x0 -l a)) = m
Used simplifier rules: del-n: ⊦ a ≠ b → (b ' + x) -l a = b ' + (x -l a);%a: ⊦ (x + y) + z = x + y + z; from specification list