• Top
    • Documentation
    • Books
    • Boolean-reasoning
    • Projects
    • Debugging
    • Community
    • 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
          • Expand-functions
          • Delayredux
          • Unparameterization
            • Scopesubst
            • Vl-scopeinfo-resolve-params
            • Vl-make-paramdecloverrides
            • Vl-unparam-inst
            • Vl-scope-finalize-params
            • Vl-override-parameter-value
            • Vl-unparam-instlist
            • Vl-create-unparameterized-module
            • Vl-module-default-signature
            • Vl-modulelist-default-signatures
            • Vl-gencase-some-match
            • Vl-gencase-match
            • Vl-make-paramdecloverrides-named
            • Vl-unparam-newname
            • Vl-paramdecl-set-default
              • Vl-unparam-signature
              • Vl-genblob-collect-modinst-paramsigs
              • Vl-design-unparameterize
              • Vl-paramdecllist-remove-defaults
              • Vl-unparam-newname-exprstring
              • Vl-paramdecl-remove-default
              • Vl-unparam-sigalist
              • Vl-unparam-signaturelist
            • 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
    • Unparameterization

    Vl-paramdecl-set-default

    Signature
    (vl-paramdecl-set-default x val) → (mv ok new-x)
    Arguments
    x — Guard (vl-paramdecl-p x).
    val — Guard (vl-maybe-paramvalue-p val).
    Returns
    new-x — Type (vl-paramdecl-p new-x).

    Definitions and Theorems

    Function: vl-paramdecl-set-default

    (defun vl-paramdecl-set-default (x val)
     (declare (xargs :guard (and (vl-paramdecl-p x)
                                 (vl-maybe-paramvalue-p val))))
     (let ((__function__ 'vl-paramdecl-set-default))
       (declare (ignorable __function__))
       (b* (((vl-paramdecl x))
            (val (vl-maybe-paramvalue-fix val))
            ((mv ok type)
             (vl-paramtype-case
                  x.type :vl-typeparam
                  (if (or (not val)
                          (vl-paramvalue-datatype-p val))
                      (mv t
                          (change-vl-typeparam x.type
                                               :default val))
                    (mv nil
                        (change-vl-typeparam x.type
                                             :default nil)))
                  :vl-implicitvalueparam
                  (if (or (not val)
                          (vl-paramvalue-expr-p val))
                      (mv t
                          (change-vl-implicitvalueparam x.type
                                                        :default val))
                    (mv nil
                        (change-vl-implicitvalueparam x.type
                                                      :default nil)))
                  :vl-explicitvalueparam
                  (if (or (not val)
                          (vl-paramvalue-expr-p val))
                      (mv t
                          (change-vl-explicitvalueparam x.type
                                                        :default val))
                    (mv nil
                        (change-vl-explicitvalueparam x.type
                                                      :default nil))))))
         (mv ok
             (change-vl-paramdecl x :type type)))))

    Theorem: vl-paramdecl-p-of-vl-paramdecl-set-default.new-x

    (defthm vl-paramdecl-p-of-vl-paramdecl-set-default.new-x
      (b* (((mv ?ok ?new-x)
            (vl-paramdecl-set-default x val)))
        (vl-paramdecl-p new-x))
      :rule-classes :rewrite)

    Theorem: vl-paramdecl-set-default-of-vl-paramdecl-fix-x

    (defthm vl-paramdecl-set-default-of-vl-paramdecl-fix-x
      (equal (vl-paramdecl-set-default (vl-paramdecl-fix x)
                                       val)
             (vl-paramdecl-set-default x val)))

    Theorem: vl-paramdecl-set-default-vl-paramdecl-equiv-congruence-on-x

    (defthm vl-paramdecl-set-default-vl-paramdecl-equiv-congruence-on-x
      (implies (vl-paramdecl-equiv x x-equiv)
               (equal (vl-paramdecl-set-default x val)
                      (vl-paramdecl-set-default x-equiv val)))
      :rule-classes :congruence)

    Theorem: vl-paramdecl-set-default-of-vl-maybe-paramvalue-fix-val

    (defthm vl-paramdecl-set-default-of-vl-maybe-paramvalue-fix-val
      (equal (vl-paramdecl-set-default x (vl-maybe-paramvalue-fix val))
             (vl-paramdecl-set-default x val)))

    Theorem: vl-paramdecl-set-default-vl-maybe-paramvalue-equiv-congruence-on-val

    (defthm
     vl-paramdecl-set-default-vl-maybe-paramvalue-equiv-congruence-on-val
     (implies (vl-maybe-paramvalue-equiv val val-equiv)
              (equal (vl-paramdecl-set-default x val)
                     (vl-paramdecl-set-default x val-equiv)))
     :rule-classes :congruence)