• Top
    • Documentation
    • Books
    • Boolean-reasoning
    • Projects
    • Debugging
    • Std
    • Community
    • Proof-automation
    • Macro-libraries
    • ACL2
    • Interfacing-tools
    • Hardware-verification
      • Gl
      • Esim
      • Vl2014
      • Sv
      • Fgl
      • Vwsim
      • Vl
        • Syntax
        • Loader
        • Warnings
        • Getting-started
        • Utilities
        • Printer
        • Kit
        • Mlib
        • Transforms
          • Unparameterization
          • Elaborate
          • Addnames
          • Annotate
            • Increment-elim
            • Make-implicit-wires
            • Basic-bind-elim
            • Argresolve
            • Basicsanity
            • Portdecl-sign
            • Enum-names
            • Port-resolve
            • Udp-elim
              • Vl-udp-vardecls-from-portdecls
              • Vl-udps-to-modules
              • Vl-udpline-match-expr
              • Vl-combinational-udptable-synth
              • Vl-udptable-assignrhs
              • Vl-udp-to-module
              • Vl-udp-vardecl-from-portdecl
                • Vl-design-udp-elim
              • Vl-annotate-design
              • Vl-annotate-module
            • Clean-warnings
            • Eliminitial
            • Custom-transform-hooks
            • Problem-modules
        • X86isa
        • Svl
        • Rtl
      • Software-verification
      • Math
      • Testing-utilities
    • Udp-elim

    Vl-udp-vardecl-from-portdecl

    Signature
    (vl-udp-vardecl-from-portdecl x) → vardecl
    Arguments
    x — Guard (vl-portdecl-p x).
    Returns
    vardecl — Type (vl-vardecl-p vardecl).

    Definitions and Theorems

    Function: vl-udp-vardecl-from-portdecl

    (defun vl-udp-vardecl-from-portdecl (x)
      (declare (xargs :guard (vl-portdecl-p x)))
      (let ((__function__ 'vl-udp-vardecl-from-portdecl))
        (declare (ignorable __function__))
        (b* (((vl-portdecl x)))
          (make-vl-vardecl :name x.name
                           :type x.type
                           :nettype :vl-wire
                           :atts (cons (cons "VL_PORT_IMPLICIT" nil)
                                       x.atts)
                           :loc x.loc))))

    Theorem: vl-vardecl-p-of-vl-udp-vardecl-from-portdecl

    (defthm vl-vardecl-p-of-vl-udp-vardecl-from-portdecl
      (b* ((vardecl (vl-udp-vardecl-from-portdecl x)))
        (vl-vardecl-p vardecl))
      :rule-classes :rewrite)