| ⊦ m ≠ 0 → (mklist(a, m) + x = a ' ↔ m = 1 ∧ x = []) |
Used simplifier rules: mklist-one: ⊦ mklist(a, 1) = a ';%mk-empty: ⊦ mklist(a, m) = [] ↔ m = 0;%mk-one-01: ⊦ mklist(a, n) = a ' ↔ n = 1;%one-01: ⊦ y ≠ [] → (a ' = x + y ↔ x = [] ∧ a ' = y); from specification list%c-04: ⊦ a ' = b ' ↔ a = b; from specification list%a: ⊦ (x + y) + z = x + y + z; from specification list%app: ⊦ x + [] = x; from specification list