• Top
    • Documentation
    • Books
    • Boolean-reasoning
    • Projects
    • Debugging
    • Std
    • Community
    • Proof-automation
    • Macro-libraries
    • ACL2
    • Interfacing-tools
    • Hardware-verification
      • Gl
      • Esim
      • Vl2014
        • Warnings
        • Primitives
        • Use-set
        • Syntax
        • Getting-started
        • Utilities
        • Loader
        • Transforms
        • Lint
        • Mlib
        • Server
        • Kit
        • Printer
          • Ps
            • Ps-macros
              • Vl-ps->rchars
              • Vl-ps->base
              • Vl-ps->tabsize
              • Vl-ps->package
              • Vl-ps->autowrap-ind
              • Vl-ps->autowrap-col
              • 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-base
                • Vl-ps-update-autowrap-ind
                • Vl-ps-update-autowrap-col
                • Vl-ps-update-col
            • Basic-printing
            • Verilog-printing
            • Printing-locally
            • Formatted-printing
            • Accessing-printed-output
            • Vl-printedlist
            • Json-printing
          • Esim-vl
          • Well-formedness
        • Sv
        • Fgl
        • Vwsim
        • Vl
        • X86isa
        • Svl
        • Rtl
      • Software-verification
      • Math
      • Testing-utilities
    • Ps-macros

    Vl-ps->col

    (vl-ps->col) --> col

    Macro: vl-ps->col

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

    Definitions and Theorems

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

    (defun vl-ps->col-fn$inline (ps)
      (declare (xargs :stobjs (ps)))
      (declare (xargs :guard t))
      (let ((__function__ 'vl-ps->col-fn))
        (declare (ignorable __function__))
        (mbe :logic (nfix (vl-ps->col-raw ps))
             :exec (vl-ps->col-raw ps))))

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

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