• Top
  • Documentation
  • Books
  • Boolean-reasoning
  • Projects
  • Debugging
  • Std
  • Proof-automation
  • Macro-libraries
  • ACL2
  • Interfacing-tools
  • Hardware-verification
    • Gl
    • Esim
    • Vl2014
    • Sv
    • Fgl
    • Vwsim
    • 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
        • Warn
        • Vl-warninglist
        • Vl-remove-warnings
        • Vl-keep-warnings
        • Flat-warnings
        • Vl-some-warning-of-type-p
        • 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
  • Math
  • Testing-utilities

• Warnings

Vmsg-binary-concat

Signature

(vmsg-binary-concat x1 x2) → msg

Arguments

x1 — Guard (or (not x1) (vl-msg-p x1)).

x2 — Guard (or (not x2) (vl-msg-p x2)).

Returns

msg — Type (and (iff (vl-msg-p msg) (or x1 x2)) (iff msg (or x1 x2))).

Definitions and Theorems

Function: vmsg-binary-concat

(defun vmsg-binary-concat (x1 x2)
  (declare (xargs :guard (and (or (not x1) (vl-msg-p x1))
                              (or (not x2) (vl-msg-p x2)))))
  (let ((__function__ 'vmsg-binary-concat))
    (declare (ignorable __function__))
    (if x1 (if x2 (vmsg "~@0~%~@1" x1 x2)
             (vl-msg-fix x1))
      (and x2 (vl-msg-fix x2)))))

Theorem: return-type-of-vmsg-binary-concat

(defthm return-type-of-vmsg-binary-concat
  (b* ((msg (vmsg-binary-concat x1 x2)))
    (and (iff (vl-msg-p msg) (or x1 x2))
         (iff msg (or x1 x2))))
  :rule-classes :rewrite)