• 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
        • Getting-started
        • Utilities
        • Loader
        • Transforms
          • Expression-sizing
          • Occform
          • Oprewrite
            • Vl-op-oprewrite
            • Vl-modulelist-oprewrite
            • Vl-expr-oprewrite
            • Vl-maybe-delayoreventcontrol-oprewrite
            • Vl-repeateventcontrol-oprewrite
            • Vl-plainarglist-oprewrite
            • Vl-namedarglist-oprewrite
            • Vl-gateinstlist-oprewrite
            • Vl-delayoreventcontrol-oprewrite
            • Vl-modinstlist-oprewrite
            • Vl-initiallist-oprewrite
            • Vl-replicate-constint-value
            • Vl-evatomlist-oprewrite
            • Vl-assignlist-oprewrite
            • Vl-arguments-oprewrite
            • Vl-alwayslist-oprewrite
            • Vl-eventcontrol-oprewrite
            • Vl-delaycontrol-oprewrite
            • Vl-plainarg-oprewrite
            • Vl-namedarg-oprewrite
            • Vl-modinst-oprewrite
            • Vl-maybe-expr-oprewrite
            • Vl-initial-oprewrite
            • Vl-gateinst-oprewrite
            • Vl-assign-oprewrite
            • Vl-goofymux-p
            • Vl-evatom-oprewrite
              • Vl-always-oprewrite
              • Vl-replicate-weirdint-bits
              • Vl-maybe-consolidate-multiconcat
              • Vl-qmark-p
              • Vl-goofymux-rewrite
              • Vl-module-oprewrite
              • Vl-design-oprewrite
            • Expand-functions
            • Delayredux
            • Unparameterization
            • Caseelim
            • Split
            • Selresolve
            • Weirdint-elim
            • Vl-delta
            • Replicate-insts
            • Rangeresolve
            • Propagate
            • Clean-selects
            • Clean-params
            • Blankargs
            • Inline-mods
            • Expr-simp
            • Trunc
            • Always-top
            • Gatesplit
            • Gate-elim
            • Expression-optimization
            • Elim-supplies
            • Wildelim
            • Drop-blankports
            • Clean-warnings
            • Addinstnames
            • Custom-transform-hooks
            • Annotate
            • Latchcode
            • Elim-unused-vars
            • Problem-modules
          • Lint
          • Mlib
          • Server
          • Kit
          • Printer
          • Esim-vl
          • Well-formedness
        • Sv
        • Fgl
        • Vwsim
        • Vl
        • X86isa
        • Svl
        • Rtl
      • Software-verification
      • Math
      • Testing-utilities
    • Oprewrite

    Vl-evatom-oprewrite

    Rewrite operators throughout a vl-evatom-p

    Signature
    (vl-evatom-oprewrite x warnings) → (mv warnings new-x)
    Arguments
    x — Guard (vl-evatom-p x).
    warnings — Guard (vl-warninglist-p warnings).
    Returns
    warnings — Type (vl-warninglist-p warnings).
    new-x — Type (vl-evatom-p new-x).

    Definitions and Theorems

    Function: vl-evatom-oprewrite

    (defun vl-evatom-oprewrite (x warnings)
      (declare (xargs :guard (and (vl-evatom-p x)
                                  (vl-warninglist-p warnings))))
      (let ((__function__ 'vl-evatom-oprewrite))
        (declare (ignorable __function__))
        (b* ((x (vl-evatom-fix x)))
          (b* (((vl-evatom x) x)
               ((mv warnings expr-prime)
                (vl-expr-oprewrite x.expr warnings)))
            (mv warnings
                (change-vl-evatom x
                                  :expr expr-prime))))))

    Theorem: vl-warninglist-p-of-vl-evatom-oprewrite.warnings

    (defthm vl-warninglist-p-of-vl-evatom-oprewrite.warnings
      (b* (((mv ?warnings ?new-x)
            (vl-evatom-oprewrite x warnings)))
        (vl-warninglist-p warnings))
      :rule-classes :rewrite)

    Theorem: vl-evatom-p-of-vl-evatom-oprewrite.new-x

    (defthm vl-evatom-p-of-vl-evatom-oprewrite.new-x
      (b* (((mv ?warnings ?new-x)
            (vl-evatom-oprewrite x warnings)))
        (vl-evatom-p new-x))
      :rule-classes :rewrite)

    Theorem: vl-evatom-oprewrite-of-vl-evatom-fix-x

    (defthm vl-evatom-oprewrite-of-vl-evatom-fix-x
      (equal (vl-evatom-oprewrite (vl-evatom-fix x)
                                  warnings)
             (vl-evatom-oprewrite x warnings)))

    Theorem: vl-evatom-oprewrite-vl-evatom-equiv-congruence-on-x

    (defthm vl-evatom-oprewrite-vl-evatom-equiv-congruence-on-x
      (implies (vl-evatom-equiv x x-equiv)
               (equal (vl-evatom-oprewrite x warnings)
                      (vl-evatom-oprewrite x-equiv warnings)))
      :rule-classes :congruence)

    Theorem: vl-evatom-oprewrite-of-vl-warninglist-fix-warnings

    (defthm vl-evatom-oprewrite-of-vl-warninglist-fix-warnings
      (equal (vl-evatom-oprewrite x (vl-warninglist-fix warnings))
             (vl-evatom-oprewrite x warnings)))

    Theorem: vl-evatom-oprewrite-vl-warninglist-equiv-congruence-on-warnings

    (defthm
        vl-evatom-oprewrite-vl-warninglist-equiv-congruence-on-warnings
      (implies (vl-warninglist-equiv warnings warnings-equiv)
               (equal (vl-evatom-oprewrite x warnings)
                      (vl-evatom-oprewrite x warnings-equiv)))
      :rule-classes :congruence)