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