| m0 < # x0, ∀ m, a. x0[m] ≠ a ∧ m < # x0 → (a ∈ x0[m, a] -1l a ↔ a ∈ x0) ⊦ a = a0, x0[m0] = a, a ∈ (a0 ' + x0[m0, a]) -1l a ↔ a = a0 ∨ a ∈ x0, x0 = [] |
m0 < # x0, ∀ m, a. x0[m] ≠ a ∧ m < # x0 → (a ∈ x0[m, a] -1l a ↔ a ∈ x0) ⊦ x0 = [], a = a0, x0[m0] = a, a ∈ x0[m0, a] -1l a ↔ a ∈ x0
Used simplifier rules: del1-n: ⊦ a ≠ b → (b ' + x) -1l a = b ' + (x -1l a);%in-01: ⊦ a ≠ b → (a ∈ b ' + x ↔ a ∈ x); from specification list%a: ⊦ (x + y) + z = x + y + z; from specification list