| ⊦ mklist(a, m) + x = a ' ↔ m = 1 ∧ x = [], m = 0 |
mklist(a, m) + x = a ' ⊦ m = 0, m = 1 ∧ x = []
Used simplifier rules: mklist-one: ⊦ mklist(a, 1) = a ';% ⊦ a ' = b ' ↔ a = b; (s)%a: ⊦ (x + y) + z = x + y + z; from specification list% ⊦ x + [] = x; (s)