use Int# -> Int# -> IO Bool instead of Value -> Value -> IO Bool for comparison functions in ToySolver.Internal.Data.IndexedPriorityQueue