Look up the controlling define for this file, if one is known.
(vl-includeskips-controller-lookup realfile iskips) → controller
Function:
(defun vl-includeskips-controller-lookup (realfile iskips) (declare (xargs :guard (and (stringp realfile) (vl-includeskips-p iskips)))) (let ((__function__ 'vl-includeskips-controller-lookup)) (declare (ignorable __function__)) (b* ((iskipinfo (cdr (hons-get realfile iskips)))) (and iskipinfo (vl-iskipinfo->controller iskipinfo)))))
Theorem:
(defthm maybe-stringp-of-vl-includeskips-controller-lookup (b* ((controller (vl-includeskips-controller-lookup realfile iskips))) (maybe-stringp controller)) :rule-classes :type-prescription)