(vl-vardecl-hiddenp x) → *
Function:
(defun vl-vardecl-hiddenp (x) (declare (xargs :guard (vl-vardecl-p x))) (let ((__function__ 'vl-vardecl-hiddenp)) (declare (ignorable __function__)) (b* (((vl-vardecl x) x)) (or (assoc-equal "VL_PORT_IMPLICIT" x.atts) (assoc-equal "VL_HIDDEN_DECL_FOR_TASKPORT" x.atts) (assoc-equal "VL_ANSI_PORT_VARDECL" x.atts)))))
Theorem:
(defthm vl-vardecl-hiddenp-of-vl-vardecl-fix-x (equal (vl-vardecl-hiddenp (vl-vardecl-fix x)) (vl-vardecl-hiddenp x)))
Theorem:
(defthm vl-vardecl-hiddenp-vl-vardecl-equiv-congruence-on-x (implies (vl-vardecl-equiv x x-equiv) (equal (vl-vardecl-hiddenp x) (vl-vardecl-hiddenp x-equiv))) :rule-classes :congruence)