Recognizer for vl-bindintent structures.
(vl-bindintent-p x) → *
Function:
(defun vl-bindintent-p (x) (declare (xargs :guard t)) (let ((__function__ 'vl-bindintent-p)) (declare (ignorable __function__)) (and (std::prod-consp x) (b* ((source (std::prod-car x)) (ctx (std::prod-cdr x))) (and (vl-bind-p source) (vl-bindcontext-p ctx))))))