| ∀ n, x. ¬(n ∈ ix0 ∧ ascsubseq(ix0, x) ∧ # x ≤ n), n ∈ m + ix0, ascsubseq(m + ix0, x), # x ≤ n ⊦ |
# x ≤ n, ascsubseq(m ' + ix0, x), ∀ n0, x0. ¬ n0 ∈ ix0 ∨ ¬ ascsubseq(ix0, x0) ∨ ¬ # x0 ≤ n0 ⊦ n ≠ m ∧ ¬ n ∈ ix0
[Concretesimprules((Csimpnamedseq(list,indexseq,a, ⊦ (ix + ix0) + ix1 = ix + ix0 + ix1) Csimpnamedseq(list,indexseq,in-17, ⊦ n ∈ n0 ' ↔ n = n0) Csimpnamedseq(list,indexseq,in-append, ⊦ n ∈ ix + ix0 ↔ ¬ ¬(n ∈ ix ∨ n ∈ ix0)) Csimpnamedseq(list,indexseq,c, ⊦ n + ix = n ' + ix)))]