Approximately the wires driven by a gate instance.
(vl-maybe-driven-by-gateinst x) → driven-names
This should be sound if argresolve treats gate instances correctly.
Function:
(defun vl-maybe-driven-by-gateinst (x) (declare (xargs :guard (vl-gateinst-p x))) (let ((__function__ 'vl-maybe-driven-by-gateinst)) (declare (ignorable __function__)) (vl-maybe-driven-by-args (vl-gateinst->args x))))
Theorem:
(defthm string-listp-of-vl-maybe-driven-by-gateinst (implies (and (force (vl-gateinst-p x))) (b* ((driven-names (vl-maybe-driven-by-gateinst x))) (string-listp driven-names))) :rule-classes :rewrite)