		Search-engine friendly clone of the ACL2 documentation.

Vl-always-scary-regs

Vl-always-scary-regs-aux

Returns a list where reg names are repeated N times if they are repeated in N different always blocks.

Signature
(vl-always-scary-regs-aux x) → names
Arguments: x — Guard (vl-alwayslist-p x).
Returns: names — Type (string-listp names).

Definitions and Theorems

Function: vl-always-scary-regs-aux

(defun vl-always-scary-regs-aux (x)
 (declare (xargs :guard (vl-alwayslist-p x)))
 (let ((__function__ 'vl-always-scary-regs-aux))
  (declare (ignorable __function__))
  (if (atom x)
      nil
   (append
       (mergesort (vl-exprlist-names (vl-always-lvalexprs (car x))))
       (vl-always-scary-regs-aux (cdr x))))))

Theorem: string-listp-of-vl-always-scary-regs-aux

(defthm string-listp-of-vl-always-scary-regs-aux
  (b* ((names (vl-always-scary-regs-aux x)))
    (string-listp names))
  :rule-classes :rewrite)

Theorem: vl-always-scary-regs-aux-of-vl-alwayslist-fix-x

(defthm vl-always-scary-regs-aux-of-vl-alwayslist-fix-x
  (equal (vl-always-scary-regs-aux (vl-alwayslist-fix x))
         (vl-always-scary-regs-aux x)))

Theorem: vl-always-scary-regs-aux-vl-alwayslist-equiv-congruence-on-x

(defthm vl-always-scary-regs-aux-vl-alwayslist-equiv-congruence-on-x
  (implies (vl-alwayslist-equiv x x-equiv)
           (equal (vl-always-scary-regs-aux x)
                  (vl-always-scary-regs-aux x-equiv)))
  :rule-classes :congruence)