• Top
    • Documentation
    • Books
    • Boolean-reasoning
    • Projects
    • Debugging
    • Std
    • Proof-automation
    • Macro-libraries
    • ACL2
    • Interfacing-tools
    • Hardware-verification
      • Gl
      • Esim
      • Vl2014
        • Warnings
        • Primitives
        • Use-set
        • Syntax
          • Vl-module
          • Vl-vardecl
          • Expressions
          • Vl-fundecl
          • Vl-assign
          • Vl-gateinst
          • Vl-modinst
          • Vl-commentmap
          • Vl-portdecl
          • Vl-taskdecl
          • Vl-design
          • Vl-interface
          • Vl-plainarglist->exprs
          • Vl-taskdecllist->names
          • Vl-fundecllist->names
          • Vl-package
          • Vl-port
          • Vl-udp
          • Vl-paramdecl
          • Vl-genelement
          • Vl-cycledelayrange
          • Vl-namedarg
          • Vl-sort-blockitems-aux
          • Vl-distitem
          • Vl-gatedelay
          • Vl-repetition
          • Vl-typedef
          • Vl-range
          • Vl-gatestrength
          • Vl-program
          • Vl-config
          • Vl-always
          • Vl-datatype-update-dims
          • Vl-import
          • Vl-enumbasetype
          • Vl-repeateventcontrol
          • Vl-paramargs
          • Vl-initial
          • Vl-eventcontrol
          • Vl-udpsymbol-p
          • Vl-maybe-range
          • Vl-maybe-nettypename
          • Vl-maybe-gatestrength
          • Vl-maybe-gatedelay
          • Vl-maybe-delayoreventcontrol
          • Vl-alias
          • Maybe-string-fix
          • Vl-maybe-packeddimension
          • Vl-fwdtypedef
          • Vl-evatom
          • Vl-packeddimension-p
          • Vl-maybe-udpsymbol
          • Vl-maybe-module
          • Vl-maybe-direction
          • Vl-maybe-datatype
          • Vl-maybe-cstrength
          • Vl-direction-p
          • Vl-arguments
          • Vl-maybe-design
          • Vl-udpline
          • Vl-exprdist
          • Vl-context1
          • Vl-genvar
          • Vl-enumitem
          • Vl-datatype-update-udims
          • Vl-datatype-update-pdims
          • Vl-modelement
          • Vl-udpedge
          • Vl-delaycontrol
          • Vl-context
          • Vl-sort-blockitems
          • Vl-distweighttype-p
          • Vl-ctxelement->loc
          • Vl-blockitem
          • Vl-vardecllist
          • Vl-module->ifports
          • Vl-modelement->loc
          • Vl-ctxelement
          • Vl-coretypename-p
          • Vl-packeddimensionlist
          • Vl-modelementlist->genelements
          • Vl-gatetype-p
          • Vl-paramdecllist
          • Vl-lifetime-p
          • Vl-datatype->udims
          • Vl-datatype->pdims
          • Vl-timeunit-p
          • Vl-repetitiontype-p
          • Vl-port->name
          • Vl-importlist
          • Vl-genelement->loc
          • Vl-delayoreventcontrol
            • Vl-delayoreventcontrol-p
              • Vl-delayoreventcontrol-fix
              • Vl-delayoreventcontrol-equiv
            • Vl-cstrength-p
            • Statements
            • Vl-udpentry-p
            • Vl-packeddimension-fix
            • Vl-nettypename-p
            • Vl-portdecllist
            • Vl-port->loc
            • Vl-enumbasekind-fix
            • Vl-arguments->args
            • Vl-taskdecllist
            • Vl-portlist
            • Vl-importpart-p
            • Vl-importpart-fix
            • Vl-fundecllist
            • Vl-blockstmt-p
            • Vl-assignlist
            • Vl-alwaystype-p
            • Vl-typedeflist
            • Vl-syntaxversion-p
            • Vl-randomqualifier-p
            • Vl-modinstlist
            • Vl-gateinstlist
            • Vl-blockitemlist
            • Vl-udptable
            • Vl-udplist
            • Vl-udpentrylist
            • Vl-programlist
            • Vl-paramvaluelist
            • Vl-packagelist
            • Vl-namedparamvaluelist
            • Vl-namedarglist
            • Vl-modulelist
            • Vl-modportlist
            • Vl-modport-portlist
            • Vl-interfacelist
            • Vl-initiallist
            • Vl-genvarlist
            • Vl-fwdtypedeflist
            • Vl-evatomlist
            • Vl-enumitemlist
            • Vl-distlist
            • Vl-configlist
            • Vl-alwayslist
            • Vl-aliaslist
            • Vl-regularportlist
            • Vl-rangelist-list
            • Vl-rangelist
            • Vl-paramdecllist-list
            • Vl-modelementlist
            • Vl-maybe-range-list
            • Vl-interfaceportlist
            • Vl-argumentlist
            • Data-types
          • Getting-started
          • Utilities
          • Loader
          • Transforms
          • Lint
          • Mlib
          • Server
          • Kit
          • Printer
          • Esim-vl
          • Well-formedness
        • Sv
        • Fgl
        • Vwsim
        • Vl
        • X86isa
        • Svl
        • Rtl
      • Software-verification
      • Math
      • Testing-utilities
    • Vl-delayoreventcontrol

    Vl-delayoreventcontrol-p

    Recognizer for vl-delayoreventcontrol.

    Signature
    (vl-delayoreventcontrol-p x) → *

    Definitions and Theorems

    Function: vl-delayoreventcontrol-p

    (defun vl-delayoreventcontrol-p (x)
      (declare (xargs :guard t))
      (let ((__function__ 'vl-delayoreventcontrol-p))
        (declare (ignorable __function__))
        (common-lisp::case (tag x)
          ((:vl-delaycontrol)
           (vl-delaycontrol-p x))
          ((:vl-eventcontrol)
           (vl-eventcontrol-p x))
          (otherwise (vl-repeateventcontrol-p x)))))

    Theorem: consp-when-vl-delayoreventcontrol-p

    (defthm consp-when-vl-delayoreventcontrol-p
      (implies (vl-delayoreventcontrol-p x)
               (consp x))
      :rule-classes :compound-recognizer)

    Theorem: vl-delayoreventcontrol-p-when-vl-delaycontrol-p

    (defthm vl-delayoreventcontrol-p-when-vl-delaycontrol-p
      (implies (vl-delaycontrol-p x)
               (vl-delayoreventcontrol-p x))
      :rule-classes ((:rewrite :backchain-limit-lst 1)))

    Theorem: vl-delayoreventcontrol-p-when-vl-eventcontrol-p

    (defthm vl-delayoreventcontrol-p-when-vl-eventcontrol-p
      (implies (vl-eventcontrol-p x)
               (vl-delayoreventcontrol-p x))
      :rule-classes ((:rewrite :backchain-limit-lst 1)))

    Theorem: vl-delayoreventcontrol-p-when-vl-repeateventcontrol-p

    (defthm vl-delayoreventcontrol-p-when-vl-repeateventcontrol-p
      (implies (vl-repeateventcontrol-p x)
               (vl-delayoreventcontrol-p x))
      :rule-classes ((:rewrite :backchain-limit-lst 1)))

    Theorem: vl-delaycontrol-p-by-tag-when-vl-delayoreventcontrol-p

    (defthm vl-delaycontrol-p-by-tag-when-vl-delayoreventcontrol-p
      (implies (and (or (equal (tag x) :vl-delaycontrol))
                    (vl-delayoreventcontrol-p x))
               (vl-delaycontrol-p x))
      :rule-classes ((:rewrite :backchain-limit-lst 1)))

    Theorem: vl-eventcontrol-p-by-tag-when-vl-delayoreventcontrol-p

    (defthm vl-eventcontrol-p-by-tag-when-vl-delayoreventcontrol-p
      (implies (and (or (equal (tag x) :vl-eventcontrol))
                    (vl-delayoreventcontrol-p x))
               (vl-eventcontrol-p x))
      :rule-classes ((:rewrite :backchain-limit-lst 1)))

    Theorem: vl-repeateventcontrol-p-by-tag-when-vl-delayoreventcontrol-p

    (defthm vl-repeateventcontrol-p-by-tag-when-vl-delayoreventcontrol-p
      (implies (and (or (equal (tag x) :vl-repeat-eventcontrol))
                    (vl-delayoreventcontrol-p x))
               (vl-repeateventcontrol-p x))
      :rule-classes ((:rewrite :backchain-limit-lst 1)))

    Theorem: vl-delayoreventcontrol-p-when-invalid-tag

    (defthm vl-delayoreventcontrol-p-when-invalid-tag
      (implies (and (not (equal (tag x) :vl-delaycontrol))
                    (not (equal (tag x) :vl-eventcontrol))
                    (not (equal (tag x)
                                :vl-repeat-eventcontrol)))
               (not (vl-delayoreventcontrol-p x)))
      :rule-classes ((:rewrite :backchain-limit-lst 0)))

    Theorem: tag-when-vl-delayoreventcontrol-p-forward

    (defthm tag-when-vl-delayoreventcontrol-p-forward
      (implies (vl-delayoreventcontrol-p x)
               (or (equal (tag x) :vl-delaycontrol)
                   (equal (tag x) :vl-eventcontrol)
                   (equal (tag x)
                          :vl-repeat-eventcontrol)))
      :rule-classes ((:forward-chaining)))