| ascsubseq(n ' + ix, x) ⊦ ascsubseq(ix, x) |
[Concretesimprules((Csimpnamedseq(ascsubseq-single,,, ⊦ ascsubseq(n ', x) ↔ n < # x) Csimpnamedseq(ascsubseq-base,,, ⊦ ascsubseq([], x)) Csimpnamedseq(ascsubseq-rec,,, ⊦ ascsubseq (n ' + m ' + ix, x) ↔ precedes(n, m, x) ∧ ascsubseq(m + ix, x)) Csimpgen(ilist freely generated by [], +;) Csimpnamedseq(list,indexseq,c, ⊦ n + ix = n ' + ix) Csimpnamedseq(list,indexseq,a, ⊦ (ix + ix0) + ix1 = ix + ix0 + ix1) Csimpnamedseq(list,indexseq,app, ⊦ ix + [] = ix)))]