• Top
  • Documentation
  • Books
  • Recursion-and-induction
  • Boolean-reasoning
  • Projects
  • Debugging
  • Std
  • Proof-automation
  • Macro-libraries
  • ACL2
  • Interfacing-tools
  • Hardware-verification
    • Gl
    • Esim
    • Vl2014
    • Sv
    • Vwsim
    • Fgl
    • Vl
      • Syntax
      • Loader
      • Warnings
      • Getting-started
      • Utilities
      • Printer
        • Ps
          • Ps-macros
            • Vl-ps->rchars
            • Vl-ps->eviscconfig
            • Vl-ps->package
            • Vl-ps->base
            • Vl-ps->autowrap-ind
            • Vl-ps->autowrap-col
            • Vl-ps->tabsize
            • Vl-ps->misc
            • Vl-ps->htmlp
            • Vl-ps->col
            • Vl-ps-update-tabsize
            • Vl-ps-update-rchars
            • Vl-ps-update-package
            • Vl-ps-update-misc
            • Vl-ps-update-htmlp
            • Vl-ps-update-eviscconfig
            • Vl-ps-update-col
            • Vl-ps-update-base
            • Vl-ps-update-autowrap-ind
            • Vl-ps-update-autowrap-col
        • Verilog-printing
        • Basic-printing
        • Printing-locally
        • Formatted-printing
        • Accessing-printed-output
        • Json-printing
        • Vl-printedlist
      • Kit
      • Mlib
      • Transforms
    • X86isa
    • Svl
    • Rtl
  • Software-verification
  • Testing-utilities
  • Math

• Ps-macros

Vl-ps->base

(vl-ps->base) --> base

Macro: vl-ps->base

(defmacro vl-ps->base nil '(vl-ps->base-fn ps))

Definitions and Theorems

Function: vl-ps->base-fn$inline

(defun vl-ps->base-fn$inline (ps)
       (declare (xargs :stobjs (ps)))
       (declare (xargs :guard t))
       (let ((__function__ 'vl-ps->base-fn))
            (declare (ignorable __function__))
            (mbe :logic (if (print-base-p (vl-ps->base-raw ps))
                            (vl-ps->base-raw ps)
                            10)
                 :exec (vl-ps->base-raw ps))))

Theorem: natp-of-vl-ps->base-fn

(defthm natp-of-vl-ps->base-fn
        (b* ((base (vl-ps->base-fn$inline ps)))
            (natp base))
        :rule-classes :type-prescription)

Theorem: print-base-p-of-vl-ps->base-fn

(defthm print-base-p-of-vl-ps->base-fn
        (print-base-p (vl-ps->base-fn ps)))