We consider universal computability of the LCTRS with only rule scheme Calc:

  Signature: cd :: Bool -> Int -> o

  Rules: cd(true, x) -> cd(x > 0, x - 1) | x = x

The system is accessible function passing by a sort ordering that equates all sorts.

We start by computing the initial DP problem D1 = (P1, R UNION R_?, i, c), where:

  P1. (1) cd#(true, x) => cd#(x > 0, x - 1) | x = x

***** No progress could be made on DP problem D1 = (P1, R UNION R_?, i, c).