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, y, z) => f#(x > y /\ x > z, x, y + 1, z)
      (2) f#(true, x, y, z) => f#(x > y /\ x > z, x, y, z + 1)

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