Lift in to lists.
(list-in x set) → std::bool
This is an ordinary std::deflist. It is
"loose" in that it does not care whether
Function:
(defun list-in (x set) (declare (xargs :guard (and (true-listp x) (setp set)))) (let ((acl2::__function__ 'list-in)) (declare (ignorable acl2::__function__)) (if (consp x) (and (in (car x) set) (list-in (cdr x) set)) t)))
Theorem:
(defthm list-in-of-sfix-2 (equal (list-in list (sfix set)) (list-in list set)))