• 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-bindlist

Signature

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

Arguments

x — List of binds to process.
    Guard (vl-bindlist-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 inside 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. Essentially this contains any unsupported binds.
    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-bindlist

(defun vl-bindelim-bindlist (x ss ctx itbl delta genp warnings)
  (declare (xargs :guard (and (vl-bindlist-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-bindlist))
    (declare (ignorable __function__))
    (b* (((when (atom x))
          (mv (ok) nil (vl-binddelta-fix delta)))
         ((mv warnings x1 delta)
          (vl-bindelim-main (car x)
                            ss ctx itbl delta genp warnings))
         ((mv warnings xrest delta)
          (vl-bindelim-bindlist (cdr x)
                                ss ctx itbl delta genp warnings)))
      (mv warnings (append-without-guard x1 xrest)
          delta))))

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

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

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

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

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

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

Theorem: vl-bindelim-bindlist-of-vl-bindlist-fix-x

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

Theorem: vl-bindelim-bindlist-vl-bindlist-equiv-congruence-on-x

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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