We consider the system Applicative_05__Ex5Folding.

  Alphabet:

    0 : [] --> c 
    add : [] --> a -> c -> c 
    cons : [a * b] --> b 
    fold : [a -> c -> c * c] --> b -> c 
    mul : [] --> a -> c -> c 
    nil : [] --> b 
    plus : [c * c] --> c 
    prod : [] --> b -> c 
    s : [c] --> c 
    sum : [] --> b -> c 
    times : [c * c] --> c 

  Rules:

    fold(f, x) nil => x 
    fold(f, x) cons(y, z) => f y (fold(f, x) z) 
    plus(0, x) => x 
    plus(s(x), y) => s(plus(x, y)) 
    times(0, x) => 0 
    times(s(x), y) => plus(times(x, y), y) 
    sum => fold(add, 0) 
    prod => fold(mul, s(0)) 

This AFS is converted to an AFSM simply by replacing all free variables by meta-variables (with arity 0).

We use rule removal, following [Kop12, Theorem 2.23].

This gives the following requirements (possibly using Theorems 2.25 and 2.26 in [Kop12]):

  fold(F, X) nil >? X 
  fold(F, X) cons(Y, Z) >? F Y (fold(F, X) Z) 
  plus(0, X) >? X 
  plus(s(X), Y) >? s(plus(X, Y)) 
  times(0, X) >? 0 
  times(s(X), Y) >? plus(times(X, Y), Y) 
  sum >? fold(add, 0) 
  prod >? fold(mul, s(0)) 

We use a recursive path ordering as defined in [Kop12, Chapter 5].

Argument functions:

  [[0]] = _|_ 
  [[add]] = _|_ 
  [[mul]] = _|_ 

We choose Lex = {} and Mul = {@_{o -> o -> o}, @_{o -> o}, cons, fold, nil, plus, prod, s, sum, times}, and the following precedence: times > prod > sum > plus > nil > s > cons > fold > @_{o -> o -> o} > @_{o -> o}

Taking the argument function into account, and fixing the greater / greater equal choices, the constraints can be denoted as follows:

  @_{o -> o}(fold(F, X), nil) > X 
  @_{o -> o}(fold(F, X), cons(Y, Z)) >= @_{o -> o}(@_{o -> o -> o}(F, Y), @_{o -> o}(fold(F, X), Z)) 
  plus(_|_, X) >= X 
  plus(s(X), Y) >= s(plus(X, Y)) 
  times(_|_, X) >= _|_ 
  times(s(X), Y) >= plus(times(X, Y), Y) 
  sum >= fold(_|_, _|_) 
  prod >= fold(_|_, s(_|_)) 

With these choices, we have:

  1] @_{o -> o}(fold(F, X), nil) > X  because [2], by definition 
  2] @_{o -> o}*(fold(F, X), nil) >= X  because [3], by (Select) 
  3] fold(F, X) @_{o -> o}*(fold(F, X), nil) >= X  because [4] 
  4] fold*(F, X, @_{o -> o}*(fold(F, X), nil)) >= X  because [5], by (Select) 
  5] X >= X  by (Meta) 

  6] @_{o -> o}(fold(F, X), cons(Y, Z)) >= @_{o -> o}(@_{o -> o -> o}(F, Y), @_{o -> o}(fold(F, X), Z))  because [7], by (Star) 
  7] @_{o -> o}*(fold(F, X), cons(Y, Z)) >= @_{o -> o}(@_{o -> o -> o}(F, Y), @_{o -> o}(fold(F, X), Z))  because [8], by (Select) 
  8] fold(F, X) @_{o -> o}*(fold(F, X), cons(Y, Z)) >= @_{o -> o}(@_{o -> o -> o}(F, Y), @_{o -> o}(fold(F, X), Z))  because [9] 
  9] fold*(F, X, @_{o -> o}*(fold(F, X), cons(Y, Z))) >= @_{o -> o}(@_{o -> o -> o}(F, Y), @_{o -> o}(fold(F, X), Z))  because fold > @_{o -> o}, [10] and [18], by (Copy) 
  10] fold*(F, X, @_{o -> o}*(fold(F, X), cons(Y, Z))) >= @_{o -> o -> o}(F, Y)  because fold > @_{o -> o -> o}, [11] and [13], by (Copy) 
  11] fold*(F, X, @_{o -> o}*(fold(F, X), cons(Y, Z))) >= F  because [12], by (Select) 
  12] F >= F  by (Meta) 
  13] fold*(F, X, @_{o -> o}*(fold(F, X), cons(Y, Z))) >= Y  because [14], by (Select) 
  14] @_{o -> o}*(fold(F, X), cons(Y, Z)) >= Y  because [15], by (Select) 
  15] cons(Y, Z) >= Y  because [16], by (Star) 
  16] cons*(Y, Z) >= Y  because [17], by (Select) 
  17] Y >= Y  by (Meta) 
  18] fold*(F, X, @_{o -> o}*(fold(F, X), cons(Y, Z))) >= @_{o -> o}(fold(F, X), Z)  because [19], by (Select) 
  19] @_{o -> o}*(fold(F, X), cons(Y, Z)) >= @_{o -> o}(fold(F, X), Z)  because @_{o -> o} in Mul, [20] and [23], by (Stat) 
  20] fold(F, X) >= fold(F, X)  because fold in Mul, [21] and [22], by (Fun) 
  21] F >= F  by (Meta) 
  22] X >= X  by (Meta) 
  23] cons(Y, Z) > Z  because [24], by definition 
  24] cons*(Y, Z) >= Z  because [25], by (Select) 
  25] Z >= Z  by (Meta) 

  26] plus(_|_, X) >= X  because [27], by (Star) 
  27] plus*(_|_, X) >= X  because [28], by (Select) 
  28] X >= X  by (Meta) 

  29] plus(s(X), Y) >= s(plus(X, Y))  because [30], by (Star) 
  30] plus*(s(X), Y) >= s(plus(X, Y))  because plus > s and [31], by (Copy) 
  31] plus*(s(X), Y) >= plus(X, Y)  because plus in Mul, [32] and [35], by (Stat) 
  32] s(X) > X  because [33], by definition 
  33] s*(X) >= X  because [34], by (Select) 
  34] X >= X  by (Meta) 
  35] Y >= Y  by (Meta) 

  36] times(_|_, X) >= _|_  by (Bot) 

  37] times(s(X), Y) >= plus(times(X, Y), Y)  because [38], by (Star) 
  38] times*(s(X), Y) >= plus(times(X, Y), Y)  because times > plus, [39] and [44], by (Copy) 
  39] times*(s(X), Y) >= times(X, Y)  because times in Mul, [40] and [43], by (Stat) 
  40] s(X) > X  because [41], by definition 
  41] s*(X) >= X  because [42], by (Select) 
  42] X >= X  by (Meta) 
  43] Y >= Y  by (Meta) 
  44] times*(s(X), Y) >= Y  because [43], by (Select) 

  45] sum >= fold(_|_, _|_)  because [46], by (Star) 
  46] sum* >= fold(_|_, _|_)  because sum > fold, [47] and [48], by (Copy) 
  47] sum* >= _|_  by (Bot) 
  48] sum* >= _|_  by (Bot) 

  49] prod >= fold(_|_, s(_|_))  because [50], by (Star) 
  50] prod* >= fold(_|_, s(_|_))  because prod > fold, [51] and [52], by (Copy) 
  51] prod* >= _|_  by (Bot) 
  52] prod* >= s(_|_)  because prod > s and [53], by (Copy) 
  53] prod* >= _|_  by (Bot) 

We can thus remove the following rules:

  fold(F, X) nil => X 

We use rule removal, following [Kop12, Theorem 2.23].

This gives the following requirements (possibly using Theorems 2.25 and 2.26 in [Kop12]):

  fold(F, X) cons(Y, Z) >? F Y (fold(F, X) Z) 
  plus(0, X) >? X 
  plus(s(X), Y) >? s(plus(X, Y)) 
  times(0, X) >? 0 
  times(s(X), Y) >? plus(times(X, Y), Y) 
  sum >? fold(add, 0) 
  prod >? fold(mul, s(0)) 

We use a recursive path ordering as defined in [Kop12, Chapter 5].

Argument functions:

  [[0]] = _|_ 
  [[add]] = _|_ 
  [[mul]] = _|_ 

We choose Lex = {} and Mul = {@_{o -> o -> o}, @_{o -> o}, cons, fold, plus, prod, s, sum, times}, and the following precedence: times > sum > prod > fold > @_{o -> o} > @_{o -> o -> o} > cons > plus > s

Taking the argument function into account, and fixing the greater / greater equal choices, the constraints can be denoted as follows:

  @_{o -> o}(fold(F, X), cons(Y, Z)) >= @_{o -> o}(@_{o -> o -> o}(F, Y), @_{o -> o}(fold(F, X), Z)) 
  plus(_|_, X) > X 
  plus(s(X), Y) >= s(plus(X, Y)) 
  times(_|_, X) >= _|_ 
  times(s(X), Y) > plus(times(X, Y), Y) 
  sum >= fold(_|_, _|_) 
  prod > fold(_|_, s(_|_)) 

With these choices, we have:

  1] @_{o -> o}(fold(F, X), cons(Y, Z)) >= @_{o -> o}(@_{o -> o -> o}(F, Y), @_{o -> o}(fold(F, X), Z))  because [2], by (Star) 
  2] @_{o -> o}*(fold(F, X), cons(Y, Z)) >= @_{o -> o}(@_{o -> o -> o}(F, Y), @_{o -> o}(fold(F, X), Z))  because [3], by (Select) 
  3] fold(F, X) @_{o -> o}*(fold(F, X), cons(Y, Z)) >= @_{o -> o}(@_{o -> o -> o}(F, Y), @_{o -> o}(fold(F, X), Z))  because [4] 
  4] fold*(F, X, @_{o -> o}*(fold(F, X), cons(Y, Z))) >= @_{o -> o}(@_{o -> o -> o}(F, Y), @_{o -> o}(fold(F, X), Z))  because fold > @_{o -> o}, [5] and [16], by (Copy) 
  5] fold*(F, X, @_{o -> o}*(fold(F, X), cons(Y, Z))) >= @_{o -> o -> o}(F, Y)  because fold > @_{o -> o -> o}, [6] and [8], by (Copy) 
  6] fold*(F, X, @_{o -> o}*(fold(F, X), cons(Y, Z))) >= F  because [7], by (Select) 
  7] F >= F  by (Meta) 
  8] fold*(F, X, @_{o -> o}*(fold(F, X), cons(Y, Z))) >= Y  because [9], by (Select) 
  9] @_{o -> o}*(fold(F, X), cons(Y, Z)) >= Y  because [10], by (Select) 
  10] fold(F, X) @_{o -> o}*(fold(F, X), cons(Y, Z)) >= Y  because [11] 
  11] fold*(F, X, @_{o -> o}*(fold(F, X), cons(Y, Z))) >= Y  because [12], by (Select) 
  12] @_{o -> o}*(fold(F, X), cons(Y, Z)) >= Y  because [13], by (Select) 
  13] cons(Y, Z) >= Y  because [14], by (Star) 
  14] cons*(Y, Z) >= Y  because [15], by (Select) 
  15] Y >= Y  by (Meta) 
  16] fold*(F, X, @_{o -> o}*(fold(F, X), cons(Y, Z))) >= @_{o -> o}(fold(F, X), Z)  because [17], by (Select) 
  17] @_{o -> o}*(fold(F, X), cons(Y, Z)) >= @_{o -> o}(fold(F, X), Z)  because @_{o -> o} in Mul, [18] and [21], by (Stat) 
  18] fold(F, X) >= fold(F, X)  because fold in Mul, [19] and [20], by (Fun) 
  19] F >= F  by (Meta) 
  20] X >= X  by (Meta) 
  21] cons(Y, Z) > Z  because [22], by definition 
  22] cons*(Y, Z) >= Z  because [23], by (Select) 
  23] Z >= Z  by (Meta) 

  24] plus(_|_, X) > X  because [25], by definition 
  25] plus*(_|_, X) >= X  because [26], by (Select) 
  26] X >= X  by (Meta) 

  27] plus(s(X), Y) >= s(plus(X, Y))  because [28], by (Star) 
  28] plus*(s(X), Y) >= s(plus(X, Y))  because plus > s and [29], by (Copy) 
  29] plus*(s(X), Y) >= plus(X, Y)  because plus in Mul, [30] and [33], by (Stat) 
  30] s(X) > X  because [31], by definition 
  31] s*(X) >= X  because [32], by (Select) 
  32] X >= X  by (Meta) 
  33] Y >= Y  by (Meta) 

  34] times(_|_, X) >= _|_  by (Bot) 

  35] times(s(X), Y) > plus(times(X, Y), Y)  because [36], by definition 
  36] times*(s(X), Y) >= plus(times(X, Y), Y)  because times > plus, [37] and [42], by (Copy) 
  37] times*(s(X), Y) >= times(X, Y)  because times in Mul, [38] and [41], by (Stat) 
  38] s(X) > X  because [39], by definition 
  39] s*(X) >= X  because [40], by (Select) 
  40] X >= X  by (Meta) 
  41] Y >= Y  by (Meta) 
  42] times*(s(X), Y) >= Y  because [41], by (Select) 

  43] sum >= fold(_|_, _|_)  because [44], by (Star) 
  44] sum* >= fold(_|_, _|_)  because sum > fold, [45] and [46], by (Copy) 
  45] sum* >= _|_  by (Bot) 
  46] sum* >= _|_  by (Bot) 

  47] prod > fold(_|_, s(_|_))  because [48], by definition 
  48] prod* >= fold(_|_, s(_|_))  because prod > fold, [49] and [50], by (Copy) 
  49] prod* >= _|_  by (Bot) 
  50] prod* >= s(_|_)  because prod > s and [51], by (Copy) 
  51] prod* >= _|_  by (Bot) 

We can thus remove the following rules:

  plus(0, X) => X 
  times(s(X), Y) => plus(times(X, Y), Y) 
  prod => fold(mul, s(0)) 

We use rule removal, following [Kop12, Theorem 2.23].

This gives the following requirements (possibly using Theorems 2.25 and 2.26 in [Kop12]):

  fold(F, X) cons(Y, Z) >? F Y (fold(F, X) Z) 
  plus(s(X), Y) >? s(plus(X, Y)) 
  times(0, X) >? 0 
  sum >? fold(add, 0) 

We use a recursive path ordering as defined in [Kop12, Chapter 5].

Argument functions:

  [[add]] = _|_ 
  [[s(x_1)]] = x_1 

We choose Lex = {} and Mul = {0, @_{o -> o -> o}, @_{o -> o}, cons, fold, plus, sum, times}, and the following precedence: sum > fold > times > 0 > @_{o -> o -> o} > cons > plus > @_{o -> o}

Taking the argument function into account, and fixing the greater / greater equal choices, the constraints can be denoted as follows:

  @_{o -> o}(fold(F, X), cons(Y, Z)) >= @_{o -> o}(@_{o -> o -> o}(F, Y), @_{o -> o}(fold(F, X), Z)) 
  plus(X, Y) >= plus(X, Y) 
  times(0, X) > 0 
  sum >= fold(_|_, 0) 

With these choices, we have:

  1] @_{o -> o}(fold(F, X), cons(Y, Z)) >= @_{o -> o}(@_{o -> o -> o}(F, Y), @_{o -> o}(fold(F, X), Z))  because [2], by (Star) 
  2] @_{o -> o}*(fold(F, X), cons(Y, Z)) >= @_{o -> o}(@_{o -> o -> o}(F, Y), @_{o -> o}(fold(F, X), Z))  because [3], by (Select) 
  3] fold(F, X) @_{o -> o}*(fold(F, X), cons(Y, Z)) >= @_{o -> o}(@_{o -> o -> o}(F, Y), @_{o -> o}(fold(F, X), Z))  because [4] 
  4] fold*(F, X, @_{o -> o}*(fold(F, X), cons(Y, Z))) >= @_{o -> o}(@_{o -> o -> o}(F, Y), @_{o -> o}(fold(F, X), Z))  because fold > @_{o -> o}, [5] and [13], by (Copy) 
  5] fold*(F, X, @_{o -> o}*(fold(F, X), cons(Y, Z))) >= @_{o -> o -> o}(F, Y)  because fold > @_{o -> o -> o}, [6] and [8], by (Copy) 
  6] fold*(F, X, @_{o -> o}*(fold(F, X), cons(Y, Z))) >= F  because [7], by (Select) 
  7] F >= F  by (Meta) 
  8] fold*(F, X, @_{o -> o}*(fold(F, X), cons(Y, Z))) >= Y  because [9], by (Select) 
  9] @_{o -> o}*(fold(F, X), cons(Y, Z)) >= Y  because [10], by (Select) 
  10] cons(Y, Z) >= Y  because [11], by (Star) 
  11] cons*(Y, Z) >= Y  because [12], by (Select) 
  12] Y >= Y  by (Meta) 
  13] fold*(F, X, @_{o -> o}*(fold(F, X), cons(Y, Z))) >= @_{o -> o}(fold(F, X), Z)  because [14], by (Select) 
  14] @_{o -> o}*(fold(F, X), cons(Y, Z)) >= @_{o -> o}(fold(F, X), Z)  because @_{o -> o} in Mul, [15] and [18], by (Stat) 
  15] fold(F, X) >= fold(F, X)  because fold in Mul, [16] and [17], by (Fun) 
  16] F >= F  by (Meta) 
  17] X >= X  by (Meta) 
  18] cons(Y, Z) > Z  because [19], by definition 
  19] cons*(Y, Z) >= Z  because [20], by (Select) 
  20] Z >= Z  by (Meta) 

  21] plus(X, Y) >= plus(X, Y)  because plus in Mul, [22] and [23], by (Fun) 
  22] X >= X  by (Meta) 
  23] Y >= Y  by (Meta) 

  24] times(0, X) > 0  because [25], by definition 
  25] times*(0, X) >= 0  because times > 0, by (Copy) 

  26] sum >= fold(_|_, 0)  because [27], by (Star) 
  27] sum* >= fold(_|_, 0)  because sum > fold, [28] and [29], by (Copy) 
  28] sum* >= _|_  by (Bot) 
  29] sum* >= 0  because sum > 0, by (Copy) 

We can thus remove the following rules:

  times(0, X) => 0 

We use rule removal, following [Kop12, Theorem 2.23].

This gives the following requirements (possibly using Theorems 2.25 and 2.26 in [Kop12]):

  fold(F, X) cons(Y, Z) >? F Y (fold(F, X) Z) 
  plus(s(X), Y) >? s(plus(X, Y)) 
  sum >? fold(add, 0) 

We use a recursive path ordering as defined in [Kop12, Chapter 5].

Argument functions:

  [[0]] = _|_ 
  [[add]] = _|_ 
  [[s(x_1)]] = x_1 

We choose Lex = {} and Mul = {@_{o -> o -> o}, @_{o -> o}, cons, fold, plus, sum}, and the following precedence: sum > plus > fold > cons > @_{o -> o} > @_{o -> o -> o}

Taking the argument function into account, and fixing the greater / greater equal choices, the constraints can be denoted as follows:

  @_{o -> o}(fold(F, X), cons(Y, Z)) >= @_{o -> o}(@_{o -> o -> o}(F, Y), @_{o -> o}(fold(F, X), Z)) 
  plus(X, Y) >= plus(X, Y) 
  sum > fold(_|_, _|_) 

With these choices, we have:

  1] @_{o -> o}(fold(F, X), cons(Y, Z)) >= @_{o -> o}(@_{o -> o -> o}(F, Y), @_{o -> o}(fold(F, X), Z))  because [2], by (Star) 
  2] @_{o -> o}*(fold(F, X), cons(Y, Z)) >= @_{o -> o}(@_{o -> o -> o}(F, Y), @_{o -> o}(fold(F, X), Z))  because [3], by (Select) 
  3] fold(F, X) @_{o -> o}*(fold(F, X), cons(Y, Z)) >= @_{o -> o}(@_{o -> o -> o}(F, Y), @_{o -> o}(fold(F, X), Z))  because [4] 
  4] fold*(F, X, @_{o -> o}*(fold(F, X), cons(Y, Z))) >= @_{o -> o}(@_{o -> o -> o}(F, Y), @_{o -> o}(fold(F, X), Z))  because fold > @_{o -> o}, [5] and [22], by (Copy) 
  5] fold*(F, X, @_{o -> o}*(fold(F, X), cons(Y, Z))) >= @_{o -> o -> o}(F, Y)  because fold > @_{o -> o -> o}, [6] and [8], by (Copy) 
  6] fold*(F, X, @_{o -> o}*(fold(F, X), cons(Y, Z))) >= F  because [7], by (Select) 
  7] F >= F  by (Meta) 
  8] fold*(F, X, @_{o -> o}*(fold(F, X), cons(Y, Z))) >= Y  because [9], by (Select) 
  9] @_{o -> o}*(fold(F, X), cons(Y, Z)) >= Y  because [10], by (Select) 
  10] fold(F, X) @_{o -> o}*(fold(F, X), cons(Y, Z)) >= Y  because [11] 
  11] fold*(F, X, @_{o -> o}*(fold(F, X), cons(Y, Z))) >= Y  because [12], by (Select) 
  12] @_{o -> o}*(fold(F, X), cons(Y, Z)) >= Y  because [13], by (Select) 
  13] fold(F, X) @_{o -> o}*(fold(F, X), cons(Y, Z)) >= Y  because [14] 
  14] fold*(F, X, @_{o -> o}*(fold(F, X), cons(Y, Z))) >= Y  because [15], by (Select) 
  15] @_{o -> o}*(fold(F, X), cons(Y, Z)) >= Y  because [16], by (Select) 
  16] fold(F, X) @_{o -> o}*(fold(F, X), cons(Y, Z)) >= Y  because [17] 
  17] fold*(F, X, @_{o -> o}*(fold(F, X), cons(Y, Z))) >= Y  because [18], by (Select) 
  18] @_{o -> o}*(fold(F, X), cons(Y, Z)) >= Y  because [19], by (Select) 
  19] cons(Y, Z) >= Y  because [20], by (Star) 
  20] cons*(Y, Z) >= Y  because [21], by (Select) 
  21] Y >= Y  by (Meta) 
  22] fold*(F, X, @_{o -> o}*(fold(F, X), cons(Y, Z))) >= @_{o -> o}(fold(F, X), Z)  because [23], by (Select) 
  23] @_{o -> o}*(fold(F, X), cons(Y, Z)) >= @_{o -> o}(fold(F, X), Z)  because @_{o -> o} in Mul, [24] and [27], by (Stat) 
  24] fold(F, X) >= fold(F, X)  because fold in Mul, [25] and [26], by (Fun) 
  25] F >= F  by (Meta) 
  26] X >= X  by (Meta) 
  27] cons(Y, Z) > Z  because [28], by definition 
  28] cons*(Y, Z) >= Z  because [29], by (Select) 
  29] Z >= Z  by (Meta) 

  30] plus(X, Y) >= plus(X, Y)  because plus in Mul, [31] and [32], by (Fun) 
  31] X >= X  by (Meta) 
  32] Y >= Y  by (Meta) 

  33] sum > fold(_|_, _|_)  because [34], by definition 
  34] sum* >= fold(_|_, _|_)  because sum > fold, [35] and [36], by (Copy) 
  35] sum* >= _|_  by (Bot) 
  36] sum* >= _|_  by (Bot) 

We can thus remove the following rules:

  sum => fold(add, 0) 

We use rule removal, following [Kop12, Theorem 2.23].

This gives the following requirements (possibly using Theorems 2.25 and 2.26 in [Kop12]):

  fold(F, X, cons(Y, Z)) >? F Y fold(F, X, Z) 
  plus(s(X), Y) >? s(plus(X, Y)) 

We use a recursive path ordering as defined in [Kop12, Chapter 5].

Argument functions:

  [[s(x_1)]] = x_1 

We choose Lex = {} and Mul = {@_{o -> o -> o}, @_{o -> o}, cons, fold, plus}, and the following precedence: plus > fold > @_{o -> o -> o} > cons > @_{o -> o}

Taking the argument function into account, and fixing the greater / greater equal choices, the constraints can be denoted as follows:

  fold(F, X, cons(Y, Z)) > @_{o -> o}(@_{o -> o -> o}(F, Y), fold(F, X, Z)) 
  plus(X, Y) >= plus(X, Y) 

With these choices, we have:

  1] fold(F, X, cons(Y, Z)) > @_{o -> o}(@_{o -> o -> o}(F, Y), fold(F, X, Z))  because [2], by definition 
  2] fold*(F, X, cons(Y, Z)) >= @_{o -> o}(@_{o -> o -> o}(F, Y), fold(F, X, Z))  because fold > @_{o -> o}, [3] and [10], by (Copy) 
  3] fold*(F, X, cons(Y, Z)) >= @_{o -> o -> o}(F, Y)  because fold > @_{o -> o -> o}, [4] and [6], by (Copy) 
  4] fold*(F, X, cons(Y, Z)) >= F  because [5], by (Select) 
  5] F >= F  by (Meta) 
  6] fold*(F, X, cons(Y, Z)) >= Y  because [7], by (Select) 
  7] cons(Y, Z) >= Y  because [8], by (Star) 
  8] cons*(Y, Z) >= Y  because [9], by (Select) 
  9] Y >= Y  by (Meta) 
  10] fold*(F, X, cons(Y, Z)) >= fold(F, X, Z)  because fold in Mul, [11], [12] and [13], by (Stat) 
  11] F >= F  by (Meta) 
  12] X >= X  by (Meta) 
  13] cons(Y, Z) > Z  because [14], by definition 
  14] cons*(Y, Z) >= Z  because [15], by (Select) 
  15] Z >= Z  by (Meta) 

  16] plus(X, Y) >= plus(X, Y)  because plus in Mul, [17] and [18], by (Fun) 
  17] X >= X  by (Meta) 
  18] Y >= Y  by (Meta) 

We can thus remove the following rules:

  fold(F, X, cons(Y, Z)) => F Y fold(F, X, Z) 

We use rule removal, following [Kop12, Theorem 2.23].

This gives the following requirements (possibly using Theorems 2.25 and 2.26 in [Kop12]):

  plus(s(X), Y) >? s(plus(X, Y)) 

We use a recursive path ordering as defined in [Kop12, Chapter 5].

We choose Lex = {} and Mul = {plus, s}, and the following precedence: plus > s

With these choices, we have:

  1] plus(s(X), Y) > s(plus(X, Y))  because [2], by definition 
  2] plus*(s(X), Y) >= s(plus(X, Y))  because plus > s and [3], by (Copy) 
  3] plus*(s(X), Y) >= plus(X, Y)  because plus in Mul, [4] and [7], by (Stat) 
  4] s(X) > X  because [5], by definition 
  5] s*(X) >= X  because [6], by (Select) 
  6] X >= X  by (Meta) 
  7] Y >= Y  by (Meta) 

We can thus remove the following rules:

  plus(s(X), Y) => s(plus(X, Y)) 

All rules were succesfully removed.  Thus, termination of the original system has been reduced to termination of the beta-rule, which is well-known to hold.


+++ Citations +++

[Kop12]  C. Kop.  Higher Order Termination.  PhD Thesis, 2012.