The total order used by bst-p.
(bst< x y) → *
This is just a wrapper around <<. It is provided so that we may easily switch the total order to experiment with performance.
Function:
(defun bst<$inline (x y) (declare (xargs :type-prescription (booleanp (bst< x y)))) (declare (xargs :guard t)) (<< x y))