| a ∈ x0, n ≤ # x0, ∀ n0, a1. n0 < # x0 → (a1 ∈ x0 -p n0 ↔ a1 ≠ x0[n0] ∧ a1 ∈ x0) ⊦ a = x0[n - # a0 '], x0 = [], n < # a0 ', dups(x0), a0 ∈ x0, a ∈ (a0 ' + x0) -p n |
a ∈ x0, n ≤ # x0, ∀ n0, a1. n0 < # x0 → (a1 ∈ x0 -p n0 ↔ a1 ≠ x0[n0] ∧ a1 ∈ x0) ⊦ a = x0[n - 1], n = 0, x0 = [], dups(x0), a ∈ (a0 ' + x0) -p n, a0 ∈ x0
Used simplifier rules: ⊦ m < 1 ↔ m = 0; (s)% ⊦ # a ' = 0 +1; (s)