(vl-defines->names x) → names
Function:
(defun vl-defines->names (x) (declare (xargs :guard (vl-defines-p x))) (let ((__function__ 'vl-defines->names)) (declare (ignorable __function__)) (strip-cars (vl-defines-fix x))))
Theorem:
(defthm string-listp-of-vl-defines->names (b* ((names (vl-defines->names x))) (string-listp names)) :rule-classes :rewrite)
Theorem:
(defthm vl-defines->names-of-vl-defines-fix-x (equal (vl-defines->names (vl-defines-fix x)) (vl-defines->names x)))
Theorem:
(defthm vl-defines->names-vl-defines-equiv-congruence-on-x (implies (vl-defines-equiv x x-equiv) (equal (vl-defines->names x) (vl-defines->names x-equiv))) :rule-classes :congruence)