| ∀ a. rev(x0) -l a = rev(x0 -l a) ⊦ a = a0, (rev(x0) + a0 ') -l a = rev((a0 ' + x0) -l a) |
∀ a. rev(x0) -l a = rev(x0 -l a) ⊦ a = a0, (rev(x0) + a0 ') -l a = rev(x0 -l a) + a0 '
Used simplifier rules: del-n: ⊦ a ≠ b → (b ' + x) -l a = b ' + (x -l a);%Last: ⊦ x + a = x + a '; from specification list%rev-r: ⊦ rev(a ' + x) = rev(x) + a; from specification list-last%a: ⊦ (x + y) + z = x + y + z; from specification list