| ¬(x.first = a ∧ x ≠ []), x -1l a = mklist(a, n0), a ∈ x ⊦ x = a ' + (x -1l a) |
x -1l a = mklist(a, n0), a ∈ x ⊦ x = a ' + mklist(a, n0), x.first = a, x = []
Used simplifier rules: in-empty: ⊦ ¬ a ∈ []; from specification list%a: ⊦ (x + y) + z = x + y + z; from specification list%e-01: ⊦ a ' + x ≠ []; from specification list%mk-empty: ⊦ mklist(a, m) = [] ↔ m = 0; from specification list-last%del1-e: ⊦ [] -1l a = []; from specification list-del