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

We start by computing the following initial DP problem:

  P1. (1) f#(true, x) => f#(1000 >= x, x + 1)

***** No progress could be made on DP problem P1.