| n < # x, inv(ixs, n), precedes∃(ixs, x) ⊦ x = [], precedes∃(pushx(n, ixs, x), x) |
[Concretesimprules((Csimpnamedseq(inv-base,,, ⊦ inv([], n)) Csimpnamedseq(precedesex-base,,, ⊦ precedes∃([], x)) Csimpnamedseq(pushx-base,,, ⊦ pushx(n, [], x) = (n + []) + []) Csimpnamedseq(precedesex-rec0,,, ⊦ precedes∃(ix ', x)) Csimpgen(illist freely generated by [], +;) Csimpnamedseq(list,indexseq,c, ⊦ n + ix = n ' + ix) Csimpnamedseq(list,indexseq,app, ⊦ ix + [] = ix) Csimpnamedseq(list,indexseq,a, ⊦ (ix + ix0) + ix1 = ix + ix0 + ix1) Csimpnamedseq(list,indexseq-stackseq,c, ⊦ ix + ixs = ix ' + ixs) Csimpnamedseq(list,indexseq-stackseq,app, ⊦ ixs + [] = ixs) Csimpnamedseq(list,indexseq-stackseq,a, ⊦ (ixs + ixs0) + ixs1 = ixs + ixs0 + ixs1)))]