• Top
    • Documentation
    • Books
    • Boolean-reasoning
    • Projects
    • Debugging
    • Community
    • Std
    • 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
              • Shadowcheck
              • Implicit-wires-minutia
              • Implicit-wires-generate-scoping
              • Vl-genbase-make-implicit-wires
              • Vl-expr-names-for-implicit
              • Vl-make-implicit-wires-main
              • Vl-implicitst
              • Vl-make-port-implicit-wires
              • Vl-import-update-implicit
              • Vl-blockitemlist-update-implicit
              • Vl-blockitem-update-implicit
                • Vl-make-ordinary-implicit-wires
                • Vl-remove-declared-wires
                • Vl-implicitsts-restore-fast-alists
                • Vl-genblock-under-cond-make-implicit-wires
                • Vl-collect-exprs-for-implicit-wires-from-namedargs
                • Vl-genblock-make-implicit-wires
                • Vl-collect-exprs-for-implicit-wires-from-portargs
                • Vl-collect-exprs-for-implicit-wires-from-namedarg
                • Vl-gateinst-exprs-for-implicit-wires
                • Vl-modinst-exprs-for-implicit-wires
                • Vl-genelementlist-make-implicit-wires
                • Vl-packagemap-find-name
              • Basic-bind-elim
              • Argresolve
              • Basicsanity
              • Portdecl-sign
              • Enum-names
              • Port-resolve
              • Udp-elim
              • Vl-annotate-design
              • Vl-annotate-module
            • Clean-warnings
            • Eliminitial
            • Custom-transform-hooks
            • Problem-modules
        • X86isa
        • Svl
        • Rtl
      • Software-verification
      • Math
      • Testing-utilities
    • Make-implicit-wires

    Vl-blockitem-update-implicit

    Signature
    (vl-blockitem-update-implicit x st warnings) 
      → 
    (mv new-warnings new-st)
    Arguments
    x — Guard (vl-blockitem-p x).
    st — Guard (vl-implicitst-p st).
    warnings — Guard (vl-warninglist-p warnings).
    Returns
    new-warnings — Type (vl-warninglist-p new-warnings).
    new-st — Type (vl-implicitst-p new-st).

    Definitions and Theorems

    Function: vl-blockitem-update-implicit

    (defun vl-blockitem-update-implicit (x st warnings)
      (declare (xargs :guard (and (vl-blockitem-p x)
                                  (vl-implicitst-p st)
                                  (vl-warninglist-p warnings))))
      (let ((__function__ 'vl-blockitem-update-implicit))
        (declare (ignorable __function__))
        (b* ((x (vl-blockitem-fix x))
             ((when (eq (tag x) :vl-import))
              (vl-import-update-implicit x st warnings))
             (name (case (tag x)
                         (:vl-vardecl (vl-vardecl->name x))
                         (:vl-paramdecl (vl-paramdecl->name x))
                         (:vl-typedef (vl-typedef->name x))
                         (t (vl-letdecl->name x))))
             (decls (hons-acons name nil (vl-implicitst->decls st)))
             (st (change-vl-implicitst st :decls decls)))
          (mv (ok) st))))

    Theorem: vl-warninglist-p-of-vl-blockitem-update-implicit.new-warnings

    (defthm
          vl-warninglist-p-of-vl-blockitem-update-implicit.new-warnings
      (b* (((mv ?new-warnings ?new-st)
            (vl-blockitem-update-implicit x st warnings)))
        (vl-warninglist-p new-warnings))
      :rule-classes :rewrite)

    Theorem: vl-implicitst-p-of-vl-blockitem-update-implicit.new-st

    (defthm vl-implicitst-p-of-vl-blockitem-update-implicit.new-st
      (b* (((mv ?new-warnings ?new-st)
            (vl-blockitem-update-implicit x st warnings)))
        (vl-implicitst-p new-st))
      :rule-classes :rewrite)

    Theorem: vl-blockitem-update-implicit-of-vl-blockitem-fix-x

    (defthm vl-blockitem-update-implicit-of-vl-blockitem-fix-x
      (equal (vl-blockitem-update-implicit (vl-blockitem-fix x)
                                           st warnings)
             (vl-blockitem-update-implicit x st warnings)))

    Theorem: vl-blockitem-update-implicit-vl-blockitem-equiv-congruence-on-x

    (defthm
        vl-blockitem-update-implicit-vl-blockitem-equiv-congruence-on-x
      (implies
           (vl-blockitem-equiv x x-equiv)
           (equal (vl-blockitem-update-implicit x st warnings)
                  (vl-blockitem-update-implicit x-equiv st warnings)))
      :rule-classes :congruence)

    Theorem: vl-blockitem-update-implicit-of-vl-implicitst-fix-st

    (defthm vl-blockitem-update-implicit-of-vl-implicitst-fix-st
      (equal (vl-blockitem-update-implicit x (vl-implicitst-fix st)
                                           warnings)
             (vl-blockitem-update-implicit x st warnings)))

    Theorem: vl-blockitem-update-implicit-vl-implicitst-equiv-congruence-on-st

    (defthm
      vl-blockitem-update-implicit-vl-implicitst-equiv-congruence-on-st
      (implies
           (vl-implicitst-equiv st st-equiv)
           (equal (vl-blockitem-update-implicit x st warnings)
                  (vl-blockitem-update-implicit x st-equiv warnings)))
      :rule-classes :congruence)

    Theorem: vl-blockitem-update-implicit-of-vl-warninglist-fix-warnings

    (defthm vl-blockitem-update-implicit-of-vl-warninglist-fix-warnings
     (equal
       (vl-blockitem-update-implicit x st (vl-warninglist-fix warnings))
       (vl-blockitem-update-implicit x st warnings)))

    Theorem: vl-blockitem-update-implicit-vl-warninglist-equiv-congruence-on-warnings

    (defthm
     vl-blockitem-update-implicit-vl-warninglist-equiv-congruence-on-warnings
     (implies
          (vl-warninglist-equiv warnings warnings-equiv)
          (equal (vl-blockitem-update-implicit x st warnings)
                 (vl-blockitem-update-implicit x st warnings-equiv)))
     :rule-classes :congruence)