• Top
  • Documentation
  • Books
  • Recursion-and-induction
  • Boolean-reasoning
  • Debugging
  • Projects
  • Std
  • Proof-automation
  • Macro-libraries
  • ACL2
  • Interfacing-tools
  • Hardware-verification
    • Gl
    • Esim
    • Vl2014
    • Sv
    • Fgl
    • Vl
      • Syntax
      • Loader
      • Warnings
        • Lint-warning-suppression
        • Warning-basics
        • Vl-warning
        • Vl-warninglist-add-ctx
        • Vl-warninglist->types
        • Propagating-errors
        • Vl-reportcard
        • Vl-some-warning-fatalp
        • Clean-warnings
        • Lint-whole-file-suppression
        • Vl-keep-warnings
        • Warn
        • Vl-warninglist
        • Vl-remove-warnings
        • Flat-warnings
        • Vl-some-warning-of-type-p
        • Vl-msg
          • Vl-msg-p
          • Vl-msg-fix
          • Vl-msg-equiv
          • Make-vl-msg
          • Vl-msg->msg
          • Vl-msg->args
          • Change-vl-msg
        • Vl-warning-add-ctx
        • Vl-print-warning
        • Vmsg-binary-concat
        • Ok
        • Vl-trace-warnings
        • Fatal
        • Vmsg
      • Getting-started
      • Utilities
      • Printer
      • Kit
      • Mlib
      • Transforms
    • X86isa
    • Svl
    • Rtl
  • Software-verification
  • Testing-utilities
  • Math

• Vl-msg

Vl-msg->args

Get the args field from a vl-msg.

Signature

(vl-msg->args x) → args

Arguments

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

Returns

args — Type (true-listp args).

This is an ordinary field accessor created by defprod.

Definitions and Theorems

Function: vl-msg->args$inline

(defun vl-msg->args$inline (x)
       (declare (xargs :guard (vl-msg-p x)))
       (declare (xargs :guard t))
       (let ((__function__ 'vl-msg->args))
            (declare (ignorable __function__))
            (mbe :logic (b* ((x (and t x)))
                            (list-fix (and (consp x) (cdr x))))
                 :exec (and (consp x) (cdr x)))))

Theorem: true-listp-of-vl-msg->args

(defthm true-listp-of-vl-msg->args
        (b* ((args (vl-msg->args$inline x)))
            (true-listp args))
        :rule-classes :type-prescription)

Theorem: vl-msg->args$inline-of-vl-msg-fix-x

(defthm vl-msg->args$inline-of-vl-msg-fix-x
        (equal (vl-msg->args$inline (vl-msg-fix x))
               (vl-msg->args$inline x)))

Theorem: vl-msg->args$inline-vl-msg-equiv-congruence-on-x

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