Recognizer for cuts4-config structures.
(cuts4-config-p x) → *
Function: cuts4-config-p
(defun cuts4-config-p (x) (declare (xargs :guard t)) (let ((__function__ 'cuts4-config-p)) (declare (ignorable __function__)) (and (b* ((max-cuts x)) (posp max-cuts)))))