• Top
  • Documentation
  • Books
  • Recursion-and-induction
  • Boolean-reasoning
  • Projects
  • Debugging
  • Std
  • Proof-automation
  • Macro-libraries
  • ACL2
  • Interfacing-tools
  • Hardware-verification
    • Gl
    • Esim
    • Vl2014
      • Warnings
        • Vl-warninglist->types
        • Vl-warning
          • Vl-warning-p
          • Vl-warning-fix
          • Vl-warning-equiv
          • Make-vl-warning
          • Vl-warning->type
          • Change-vl-warning
          • Vl-warning->msg
          • Vl-warning->fatalp
          • Vl-warning->args
          • Vl-warning->fn
        • Propagating-errors
        • Vl-reportcard
        • Vl-warning-sort
        • Lint-warning-suppression
        • Clean-warnings
        • Warn
        • Vl-some-warning-fatalp
        • Vl-print-warnings-with-header
        • Vl-print-warnings-with-named-header
        • Flat-warnings
        • Vl-keep-warnings
        • Vl-remove-warnings
        • Vl-print-warnings
        • Vl-some-warning-of-type-p
        • Vl-clean-warnings
        • Vl-warnings-to-string
        • Vl-warninglist
        • Vl-print-warning
        • Ok
        • Vl-trace-warnings
        • Fatal
      • Primitives
      • Use-set
      • Syntax
      • Getting-started
      • Utilities
      • Loader
      • Transforms
      • Lint
      • Mlib
      • Server
      • Kit
      • Printer
      • Esim-vl
      • Well-formedness
    • Sv
    • Vwsim
    • Fgl
    • Vl
    • X86isa
    • Svl
    • Rtl
  • Software-verification
  • Testing-utilities
  • Math

• Vl-warning

Vl-warning->type

Get the type field from a vl-warning.

Signature

(vl-warning->type x) → type

Arguments

x — Guard (vl-warning-p x).

Returns

type — Type (symbolp type).

This is an ordinary field accessor created by defprod.

Definitions and Theorems

Function: vl-warning->type$inline

(defun
 vl-warning->type$inline (x)
 (declare (xargs :guard (vl-warning-p x)))
 (declare (xargs :guard t))
 (let
   ((__function__ 'vl-warning->type))
   (declare (ignorable __function__))
   (mbe :logic (b* ((x (and t x)))
                   (acl2::symbol-fix (cdr (std::da-nth 0 (cdr x)))))
        :exec (cdr (std::da-nth 0 (cdr x))))))

Theorem: symbolp-of-vl-warning->type

(defthm symbolp-of-vl-warning->type
        (b* ((type (vl-warning->type$inline x)))
            (symbolp type))
        :rule-classes :type-prescription)

Theorem: vl-warning->type$inline-of-vl-warning-fix-x

(defthm vl-warning->type$inline-of-vl-warning-fix-x
        (equal (vl-warning->type$inline (vl-warning-fix x))
               (vl-warning->type$inline x)))

Theorem: vl-warning->type$inline-vl-warning-equiv-congruence-on-x

(defthm vl-warning->type$inline-vl-warning-equiv-congruence-on-x
        (implies (vl-warning-equiv x x-equiv)
                 (equal (vl-warning->type$inline x)
                        (vl-warning->type$inline x-equiv)))
        :rule-classes :congruence)