• Top
    • Documentation
    • Books
    • Boolean-reasoning
    • Projects
    • Debugging
    • Std
    • Proof-automation
    • Macro-libraries
    • ACL2
    • Interfacing-tools
    • Hardware-verification
      • Gl
      • Esim
      • Vl2014
        • Warnings
        • Primitives
        • Use-set
          • Typo-detection
          • Vl-wireinfo-alistp
          • Vl-annotate-vardecllist-with-wireinfo
          • Vl-useset-report-entry-p
          • Vl-print-useset-report-entry
          • Vl-mark-wires-for-module
          • Vl-split-useset-report
          • Vl-annotate-vardecl-with-wireinfo
          • Vl-mark-wires-for-modinstlist
          • Vl-mark-wires-for-modinst
          • Vl-mark-wires-for-gateinstlist
          • Vl-mark-wires-for-gateinst
          • Vl-mark-wires-for-plainarg
          • Vl-wireinfo-p
          • Vl-mark-wires-for-modulelist
          • Vl-vardecllist-impexp-names
          • Vl-report-totals
            • Vl-mark-wires-for-plainarglist
            • Vl-collect-unused-or-unset-wires
            • Vl-clean-up-warning-wires
            • Vl-print-useset-report-top
            • Vl-mark-wires-for-arguments
            • Vl-useset-report-p
            • Vl-star-names-of-warning-wires
            • Vl-design-use-set-report
            • Vl-module-impexp-names
            • Vl-make-initial-wireinfo-alist
            • Vl-mark-wire-used
            • Vl-mark-wire-set
            • Vl-mark-wires-used
            • Vl-mark-wires-for-assignment
            • Vl-mark-wires-for-assignlist
            • Vl-mark-wires-set
            • Vl-print-useset-report-full-aux
            • Vl-print-typo-alist
            • Vl-print-typo-possibilities
          • Syntax
          • Getting-started
          • Utilities
          • Loader
          • Transforms
          • Lint
          • Mlib
          • Server
          • Kit
          • Printer
          • Esim-vl
          • Well-formedness
        • Sv
        • Fgl
        • Vwsim
        • Vl
        • X86isa
        • Svl
        • Rtl
      • Software-verification
      • Math
      • Testing-utilities
    • Use-set

    Vl-report-totals

    Signature
    (vl-report-totals report) 
      → 
    (mv num-spurious num-unused num-unset num-linputs)
    Arguments
    report — Guard (vl-useset-report-p report).
    Returns
    num-spurious — Type (natp num-spurious).
    num-unused — Type (natp num-unused).
    num-unset — Type (natp num-unset).
    num-linputs — Type (natp num-linputs).

    Definitions and Theorems

    Function: vl-report-totals

    (defun vl-report-totals (report)
     (declare (xargs :guard (vl-useset-report-p report)))
     (let ((__function__ 'vl-report-totals))
      (declare (ignorable __function__))
      (if (atom report)
          (mv 0 0 0 0)
       (b*
        ((spurious1
              (len (vl-useset-report-entry->spurious (car report))))
         (unused1 (len (vl-useset-report-entry->unused (car report))))
         (unset1 (len (vl-useset-report-entry->unset (car report))))
         (linputs1
             (len (vl-useset-report-entry->lvalue-inputs (car report))))
         ((mv spurious2 unused2 unset2 linputs2)
          (vl-report-totals (cdr report))))
        (mv (+ spurious1 spurious2)
            (+ unused1 unused2)
            (+ unset1 unset2)
            (+ linputs1 linputs2))))))

    Theorem: natp-of-vl-report-totals.num-spurious

    (defthm natp-of-vl-report-totals.num-spurious
      (b* (((mv ?num-spurious
                ?num-unused ?num-unset ?num-linputs)
            (vl-report-totals report)))
        (natp num-spurious))
      :rule-classes :type-prescription)

    Theorem: natp-of-vl-report-totals.num-unused

    (defthm natp-of-vl-report-totals.num-unused
      (b* (((mv ?num-spurious
                ?num-unused ?num-unset ?num-linputs)
            (vl-report-totals report)))
        (natp num-unused))
      :rule-classes :type-prescription)

    Theorem: natp-of-vl-report-totals.num-unset

    (defthm natp-of-vl-report-totals.num-unset
      (b* (((mv ?num-spurious
                ?num-unused ?num-unset ?num-linputs)
            (vl-report-totals report)))
        (natp num-unset))
      :rule-classes :type-prescription)

    Theorem: natp-of-vl-report-totals.num-linputs

    (defthm natp-of-vl-report-totals.num-linputs
      (b* (((mv ?num-spurious
                ?num-unused ?num-unset ?num-linputs)
            (vl-report-totals report)))
        (natp num-linputs))
      :rule-classes :type-prescription)