(vl-exprlist-has-ops ops x) → *
Function:
(defun vl-exprlist-has-ops (ops x) (declare (xargs :guard (and (vl-oplist-p ops) (vl-exprlist-p x)))) (let ((__function__ 'vl-exprlist-has-ops)) (declare (ignorable __function__)) (mbe :logic (intersectp-equal ops (vl-exprlist-ops x)) :exec (vl-exprlist-has-ops-aux (list-fix ops) x))))