| ∀ a. x0 = mklist(a, #oc(a, x0)) ↔ x0 -l a = [] ⊦ a0 ' + x0 = mklist(a, #oc(a, a0 ') + #oc(a, x0)) ↔ (a0 ' + x0) -l a = [] |
a = a0, ∀ a. x0 = mklist(a, #oc(a, x0)) ↔ x0 -l a = [] ⊦ a0 ' + x0 = mklist(a, #oc(a, a0 ') + #oc(a, x0)) ↔ (a0 ' + x0) -l a = []
Used simplifier rules: one-01: ⊦ a ≠ b → #oc(a, b ') = 0;% ⊦ n + 0 = n; (s)%a: ⊦ (m + n0) + n1 = m + n0 + n1; from specification nat-basic%c: ⊦ m + n = n + m; from specification nat-basic% ⊦ a ≠ b → (b ' + x) -l a = b ' + (x -l a); (s)%a: ⊦ (x + y) + z = x + y + z; from specification list% ⊦ a ' + x ≠ []; (s)%in-14: ⊦ a ' + x = y → a ∈ y; (forward) from specification list%mk-elem: ⊦ a ∈ mklist(b, n) → a = b; (forward) from specification list-last Used formulas: a = a0