• Top
  • Documentation
  • Books
  • 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
      • Kit
      • Mlib
      • Transforms
        • Unparameterization
        • Elaborate
        • Addnames
        • Annotate
          • Increment-elim
          • Make-implicit-wires
          • Basic-bind-elim
            • Vl-modulelist-apply-binddelta
            • Vl-interfacelist-apply-binddelta
            • Vl-bindelim-main
            • Vl-bindelim-bindlist
            • Vl-bindelim-find-global-target
            • Vl-interfacelist-bindelim
            • Vl-modulelist-bindelim
            • Vl-interface-bindelim
            • Vl-module-bindelim
            • Vl-bindelim-institem
            • Vl-warn-bindintentlist-undefined
            • Vl-warn-bindintent-undefined
            • Vl-interfacelist-bindelim-insttable
            • Vl-modulelist-bindelim-insttable
            • Vl-warn-binddelta-undefined
            • Vl-interface-bindelim-insttable
            • Vl-interface-apply-binddelta
            • Vl-design-bindelim-pass2
            • Vl-bindelim-modinstlist-add-atts
            • Vl-module-bindelim-insttable
            • Vl-module-apply-binddelta
            • Vl-bindelim-modinst-add-atts
            • Vl-design-bindelim-pass1
            • Vl-bindcontext
            • Vl-bindintent->modinsts
            • Vl-bindelim-insttable
            • Vl-bindintentlist->modinsts
            • Vl-binddelta
            • Vl-design-bindelim
            • Vl-bindelim-institemlist
          • 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

• Basic-bind-elim

Vl-bindelim-main

Signature

(vl-bindelim-main x ss ctx itbl delta genp warnings) 
  → 
(mv warnings new-x delta)

Arguments

x — A single bind to process.
    Guard (vl-bind-p x).

ss — Scopestack where x occurs.
    Guard (vl-scopestack-p ss).

ctx — Where x occurs, for error messages.
    Guard (vl-bindcontext-p ctx).

itbl — For identifying local binds that we can handle.
    Guard (vl-bindelim-insttable-p itbl).

delta — The changes we're building.
    Guard (vl-binddelta-p delta).

genp — Are we in a generate?.
    Guard (booleanp genp).

warnings — For collecting warnings about unsupported binds.
    Guard (vl-warninglist-p warnings).

Returns

warnings — Type (vl-warninglist-p warnings).

new-x — A list of binds to replace X. This will be NIL when x is a supported bind that has been converted into an intent and added to the delta. It will be (list x) if it isn't supported.
    Type (vl-bindlist-p new-x).

delta — Extended delta to apply in Pass 2.
    Type (vl-binddelta-p delta).

Definitions and Theorems

Function: vl-bindelim-main

(defun vl-bindelim-main (x ss ctx itbl delta genp warnings)
 (declare (xargs :guard (and (vl-bind-p x)
                             (vl-scopestack-p ss)
                             (vl-bindcontext-p ctx)
                             (vl-bindelim-insttable-p itbl)
                             (vl-binddelta-p delta)
                             (booleanp genp)
                             (vl-warninglist-p warnings))))
 (let ((__function__ 'vl-bindelim-main))
  (declare (ignorable __function__))
  (b*
   ((x (vl-bind-fix x))
    (delta (vl-binddelta-fix delta))
    ((mv modname warnings)
     (vl-bindelim-find-global-target x itbl ss warnings))
    ((unless modname)
     (mv warnings (list x) delta))
    ((when genp)
     (mv
      (fatal
       :type :vl-bindelim-fail
       :msg
       "~a0: bind statements within generates are not yet supported."
       :args (list x))
      (list x)
      delta))
    (intent (make-vl-bindintent :source x :ctx ctx))
    (old-intents (cdr (hons-get modname delta)))
    (new-intents (cons intent old-intents))
    (delta (hons-acons modname new-intents delta)))
   (mv warnings nil delta))))

Theorem: vl-warninglist-p-of-vl-bindelim-main.warnings

(defthm vl-warninglist-p-of-vl-bindelim-main.warnings
  (b* (((mv ?warnings ?new-x ?delta)
        (vl-bindelim-main x ss ctx itbl delta genp warnings)))
    (vl-warninglist-p warnings))
  :rule-classes :rewrite)

Theorem: vl-bindlist-p-of-vl-bindelim-main.new-x

(defthm vl-bindlist-p-of-vl-bindelim-main.new-x
  (b* (((mv ?warnings ?new-x ?delta)
        (vl-bindelim-main x ss ctx itbl delta genp warnings)))
    (vl-bindlist-p new-x))
  :rule-classes :rewrite)

Theorem: vl-binddelta-p-of-vl-bindelim-main.delta

(defthm vl-binddelta-p-of-vl-bindelim-main.delta
  (b* (((mv ?warnings ?new-x ?delta)
        (vl-bindelim-main x ss ctx itbl delta genp warnings)))
    (vl-binddelta-p delta))
  :rule-classes :rewrite)

Theorem: vl-bindelim-main-of-vl-bind-fix-x

(defthm vl-bindelim-main-of-vl-bind-fix-x
  (equal (vl-bindelim-main (vl-bind-fix x)
                           ss ctx itbl delta genp warnings)
         (vl-bindelim-main x ss ctx itbl delta genp warnings)))

Theorem: vl-bindelim-main-vl-bind-equiv-congruence-on-x

(defthm vl-bindelim-main-vl-bind-equiv-congruence-on-x
  (implies
       (vl-bind-equiv x x-equiv)
       (equal (vl-bindelim-main x ss ctx itbl delta genp warnings)
              (vl-bindelim-main x-equiv
                                ss ctx itbl delta genp warnings)))
  :rule-classes :congruence)

Theorem: vl-bindelim-main-of-vl-scopestack-fix-ss

(defthm vl-bindelim-main-of-vl-scopestack-fix-ss
  (equal (vl-bindelim-main x (vl-scopestack-fix ss)
                           ctx itbl delta genp warnings)
         (vl-bindelim-main x ss ctx itbl delta genp warnings)))

Theorem: vl-bindelim-main-vl-scopestack-equiv-congruence-on-ss

(defthm vl-bindelim-main-vl-scopestack-equiv-congruence-on-ss
 (implies
   (vl-scopestack-equiv ss ss-equiv)
   (equal (vl-bindelim-main x ss ctx itbl delta genp warnings)
          (vl-bindelim-main x
                            ss-equiv ctx itbl delta genp warnings)))
 :rule-classes :congruence)

Theorem: vl-bindelim-main-of-vl-bindcontext-fix-ctx

(defthm vl-bindelim-main-of-vl-bindcontext-fix-ctx
  (equal (vl-bindelim-main x ss (vl-bindcontext-fix ctx)
                           itbl delta genp warnings)
         (vl-bindelim-main x ss ctx itbl delta genp warnings)))

Theorem: vl-bindelim-main-vl-bindcontext-equiv-congruence-on-ctx

(defthm vl-bindelim-main-vl-bindcontext-equiv-congruence-on-ctx
 (implies
   (vl-bindcontext-equiv ctx ctx-equiv)
   (equal (vl-bindelim-main x ss ctx itbl delta genp warnings)
          (vl-bindelim-main x
                            ss ctx-equiv itbl delta genp warnings)))
 :rule-classes :congruence)

Theorem: vl-bindelim-main-of-vl-bindelim-insttable-fix-itbl

(defthm vl-bindelim-main-of-vl-bindelim-insttable-fix-itbl
  (equal (vl-bindelim-main x
                           ss ctx (vl-bindelim-insttable-fix itbl)
                           delta genp warnings)
         (vl-bindelim-main x ss ctx itbl delta genp warnings)))

Theorem: vl-bindelim-main-vl-bindelim-insttable-equiv-congruence-on-itbl

(defthm
    vl-bindelim-main-vl-bindelim-insttable-equiv-congruence-on-itbl
 (implies
   (vl-bindelim-insttable-equiv itbl itbl-equiv)
   (equal (vl-bindelim-main x ss ctx itbl delta genp warnings)
          (vl-bindelim-main x
                            ss ctx itbl-equiv delta genp warnings)))
 :rule-classes :congruence)

Theorem: vl-bindelim-main-of-vl-binddelta-fix-delta

(defthm vl-bindelim-main-of-vl-binddelta-fix-delta
  (equal (vl-bindelim-main x ss ctx itbl (vl-binddelta-fix delta)
                           genp warnings)
         (vl-bindelim-main x ss ctx itbl delta genp warnings)))

Theorem: vl-bindelim-main-vl-binddelta-equiv-congruence-on-delta

(defthm vl-bindelim-main-vl-binddelta-equiv-congruence-on-delta
 (implies
   (vl-binddelta-equiv delta delta-equiv)
   (equal (vl-bindelim-main x ss ctx itbl delta genp warnings)
          (vl-bindelim-main x
                            ss ctx itbl delta-equiv genp warnings)))
 :rule-classes :congruence)

Theorem: vl-bindelim-main-of-bool-fix-genp

(defthm vl-bindelim-main-of-bool-fix-genp
  (equal (vl-bindelim-main x
                           ss ctx itbl delta (acl2::bool-fix genp)
                           warnings)
         (vl-bindelim-main x ss ctx itbl delta genp warnings)))

Theorem: vl-bindelim-main-iff-congruence-on-genp

(defthm vl-bindelim-main-iff-congruence-on-genp
 (implies
   (iff genp genp-equiv)
   (equal (vl-bindelim-main x ss ctx itbl delta genp warnings)
          (vl-bindelim-main x
                            ss ctx itbl delta genp-equiv warnings)))
 :rule-classes :congruence)

Theorem: vl-bindelim-main-of-vl-warninglist-fix-warnings

(defthm vl-bindelim-main-of-vl-warninglist-fix-warnings
  (equal (vl-bindelim-main x ss ctx itbl delta
                           genp (vl-warninglist-fix warnings))
         (vl-bindelim-main x ss ctx itbl delta genp warnings)))

Theorem: vl-bindelim-main-vl-warninglist-equiv-congruence-on-warnings

(defthm vl-bindelim-main-vl-warninglist-equiv-congruence-on-warnings
 (implies
   (vl-warninglist-equiv warnings warnings-equiv)
   (equal (vl-bindelim-main x ss ctx itbl delta genp warnings)
          (vl-bindelim-main x
                            ss ctx itbl delta genp warnings-equiv)))
 :rule-classes :congruence)