| z1 = [], a ' + mklist(a, n) = z1 + b ' + z, mklist(a, n + 1) = z1 + a0 ' + z0, a ∈ z1 ∨ a = b ∨ a ∈ z ⊦ a0 = b, mklist(a, n + 1) = a ' + mklist(a, n) |
mklist(b, n + 1) = a0 ' + z0 ⊦ a0 ' + z0 = b ' + mklist(b, n), a0 = b
Used simplifier rules: in-rec: ⊦ a ∈ b ' + x ↔ ¬ ¬(a = b ∨ a ∈ x); from specification list%in-14: ⊦ a ' + x = y → a ∈ y; (forward) from specification list%in-empty: ⊦ ¬ a ∈ []; from specification list%c-06: ⊦ a ' + x = b ' + y ↔ a = b ∧ x = y; from specification list%a: ⊦ (x + y) + z = x + y + z; from specification list%Nil: ⊦ [] + x = x; from specification list