| inv([], # x) ⊦ inv(pushx(# x, [], x + a '), # x + 1) |
[Concretesimprules((Csimpnamedseq(inv-base,,, ⊦ inv([], n)) Csimpnamedseq(pushx-base,,, ⊦ pushx(n, [], x) = (n + []) + []) Csimpnamedseq(list,indexseq-stackseq,a, ⊦ (ixs + ixs0) + ixs1 = ixs + ixs0 + ixs1) Csimpnamedseq(list,indexseq-stackseq,app, ⊦ ixs + [] = ixs) Csimpnamedseq(list,indexseq-stackseq,c, ⊦ ix + ixs = ix ' + ixs) Csimpnamedseq(list,indexseq,a, ⊦ (ix + ix0) + ix1 = ix + ix0 + ix1) Csimpnamedseq(list,indexseq,app, ⊦ ix + [] = ix) Csimpnamedseq(list,indexseq,c, ⊦ n + ix = n ' + ix)))]