(q-sat-any a) finds an assignment that satisfies at least one
UBDD in the list of UBDDs
BOZO naming. This shouldn't start with
Function:
(defun q-sat-any (a) (declare (xargs :guard t)) (if (atom a) nil (if (eq (car a) nil) (q-sat-any (cdr a)) (q-sat (car a)))))