• 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
          • Vl-module
          • Vl-vardecl
          • Expressions
          • Vl-fundecl
          • Vl-assign
          • Vl-gateinst
          • Vl-modinst
          • Vl-commentmap
          • Vl-portdecl
          • Vl-taskdecl
          • Vl-design
          • Vl-interface
          • Vl-plainarglist->exprs
          • Vl-taskdecllist->names
          • Vl-fundecllist->names
          • Vl-package
          • Vl-port
          • Vl-udp
          • Vl-paramdecl
          • Vl-genelement
          • Vl-cycledelayrange
          • Vl-namedarg
          • Vl-sort-blockitems-aux
          • Vl-distitem
          • Vl-gatedelay
          • Vl-repetition
          • Vl-typedef
          • Vl-range
          • Vl-gatestrength
          • Vl-program
          • Vl-config
          • Vl-always
          • Vl-datatype-update-dims
            • Vl-import
            • Vl-enumbasetype
            • Vl-repeateventcontrol
            • Vl-paramargs
            • Vl-initial
            • Vl-eventcontrol
            • Vl-udpsymbol-p
            • Vl-maybe-range
            • Vl-maybe-nettypename
            • Vl-maybe-gatestrength
            • Vl-maybe-gatedelay
            • Vl-maybe-delayoreventcontrol
            • Vl-alias
            • Maybe-string-fix
            • Vl-maybe-packeddimension
            • Vl-fwdtypedef
            • Vl-evatom
            • Vl-packeddimension-p
            • Vl-maybe-udpsymbol
            • Vl-maybe-module
            • Vl-maybe-direction
            • Vl-maybe-datatype
            • Vl-maybe-cstrength
            • Vl-direction-p
            • Vl-arguments
            • Vl-maybe-design
            • Vl-udpline
            • Vl-exprdist
            • Vl-context1
            • Vl-genvar
            • Vl-enumitem
            • Vl-datatype-update-udims
            • Vl-datatype-update-pdims
            • Vl-modelement
            • Vl-udpedge
            • Vl-delaycontrol
            • Vl-context
            • Vl-sort-blockitems
            • Vl-distweighttype-p
            • Vl-ctxelement->loc
            • Vl-blockitem
            • Vl-vardecllist
            • Vl-module->ifports
            • Vl-modelement->loc
            • Vl-ctxelement
            • Vl-coretypename-p
            • Vl-packeddimensionlist
            • Vl-modelementlist->genelements
            • Vl-gatetype-p
            • Vl-paramdecllist
            • Vl-lifetime-p
            • Vl-datatype->udims
            • Vl-datatype->pdims
            • Vl-timeunit-p
            • Vl-repetitiontype-p
            • Vl-port->name
            • Vl-importlist
            • Vl-genelement->loc
            • Vl-delayoreventcontrol
            • Vl-cstrength-p
            • Statements
            • Vl-udpentry-p
            • Vl-packeddimension-fix
            • Vl-nettypename-p
            • Vl-portdecllist
            • Vl-port->loc
            • Vl-enumbasekind-fix
            • Vl-arguments->args
            • Vl-taskdecllist
            • Vl-portlist
            • Vl-importpart-p
            • Vl-importpart-fix
            • Vl-fundecllist
            • Vl-blockstmt-p
            • Vl-assignlist
            • Vl-alwaystype-p
            • Vl-typedeflist
            • Vl-syntaxversion-p
            • Vl-randomqualifier-p
            • Vl-modinstlist
            • Vl-gateinstlist
            • Vl-blockitemlist
            • Vl-udptable
            • Vl-udplist
            • Vl-udpentrylist
            • Vl-programlist
            • Vl-paramvaluelist
            • Vl-packagelist
            • Vl-namedparamvaluelist
            • Vl-namedarglist
            • Vl-modulelist
            • Vl-modportlist
            • Vl-modport-portlist
            • Vl-interfacelist
            • Vl-initiallist
            • Vl-genvarlist
            • Vl-fwdtypedeflist
            • Vl-evatomlist
            • Vl-enumitemlist
            • Vl-distlist
            • Vl-configlist
            • Vl-alwayslist
            • Vl-aliaslist
            • Vl-regularportlist
            • Vl-rangelist-list
            • Vl-rangelist
            • Vl-paramdecllist-list
            • Vl-modelementlist
            • Vl-maybe-range-list
            • Vl-interfaceportlist
            • Vl-argumentlist
            • Data-types
          • Getting-started
          • Utilities
          • Loader
          • Transforms
          • Lint
          • Mlib
          • Server
          • Kit
          • Printer
          • Esim-vl
          • Well-formedness
        • Sv
        • Fgl
        • Vwsim
        • Vl
        • X86isa
        • Svl
        • Rtl
      • Software-verification
      • Math
      • Testing-utilities
    • Syntax

    Vl-datatype-update-dims

    Signature
    (vl-datatype-update-dims pdims udims x) → newx
    Arguments
    pdims — Guard (vl-packeddimensionlist-p pdims).
    udims — Guard (vl-packeddimensionlist-p udims).
    x — Guard (vl-datatype-p x).
    Returns
    newx — Type (and (vl-datatype-p newx) (eq (vl-datatype-kind newx) (vl-datatype-kind x))) .

    Definitions and Theorems

    Function: vl-datatype-update-dims

    (defun vl-datatype-update-dims (pdims udims x)
      (declare (xargs :guard (and (vl-packeddimensionlist-p pdims)
                                  (vl-packeddimensionlist-p udims)
                                  (vl-datatype-p x))))
      (let ((__function__ 'vl-datatype-update-dims))
        (declare (ignorable __function__))
        (vl-datatype-case
             x
             :vl-coretype (change-vl-coretype x
                                              :pdims pdims
                                              :udims udims)
             :vl-struct (change-vl-struct x
                                          :pdims pdims
                                          :udims udims)
             :vl-union (change-vl-union x
                                        :pdims pdims
                                        :udims udims)
             :vl-enum (change-vl-enum x
                                      :pdims pdims
                                      :udims udims)
             :vl-usertype (change-vl-usertype x
                                              :pdims pdims
                                              :udims udims))))

    Theorem: return-type-of-vl-datatype-update-dims

    (defthm return-type-of-vl-datatype-update-dims
      (b* ((newx (vl-datatype-update-dims pdims udims x)))
        (and (vl-datatype-p newx)
             (eq (vl-datatype-kind newx)
                 (vl-datatype-kind x))))
      :rule-classes :rewrite)

    Theorem: vl-datatype-update-dims-of-own

    (defthm vl-datatype-update-dims-of-own
      (equal (vl-datatype-update-dims (vl-datatype->pdims x)
                                      (vl-datatype->udims x)
                                      x)
             (vl-datatype-fix x)))

    Theorem: vl-datatype->pdims-of-vl-datatype-update-dims

    (defthm vl-datatype->pdims-of-vl-datatype-update-dims
     (equal (vl-datatype->pdims (vl-datatype-update-dims pdims udims x))
            (vl-packeddimensionlist-fix pdims)))

    Theorem: vl-datatype->udims-of-vl-datatype-update-dims

    (defthm vl-datatype->udims-of-vl-datatype-update-dims
     (equal (vl-datatype->udims (vl-datatype-update-dims pdims udims x))
            (vl-packeddimensionlist-fix udims)))

    Theorem: vl-datatype-update-dims-of-vl-packeddimensionlist-fix-pdims

    (defthm vl-datatype-update-dims-of-vl-packeddimensionlist-fix-pdims
      (equal (vl-datatype-update-dims (vl-packeddimensionlist-fix pdims)
                                      udims x)
             (vl-datatype-update-dims pdims udims x)))

    Theorem: vl-datatype-update-dims-vl-packeddimensionlist-equiv-congruence-on-pdims

    (defthm
     vl-datatype-update-dims-vl-packeddimensionlist-equiv-congruence-on-pdims
     (implies (vl-packeddimensionlist-equiv pdims pdims-equiv)
              (equal (vl-datatype-update-dims pdims udims x)
                     (vl-datatype-update-dims pdims-equiv udims x)))
     :rule-classes :congruence)

    Theorem: vl-datatype-update-dims-of-vl-packeddimensionlist-fix-udims

    (defthm vl-datatype-update-dims-of-vl-packeddimensionlist-fix-udims
     (equal
       (vl-datatype-update-dims pdims (vl-packeddimensionlist-fix udims)
                                x)
       (vl-datatype-update-dims pdims udims x)))

    Theorem: vl-datatype-update-dims-vl-packeddimensionlist-equiv-congruence-on-udims

    (defthm
     vl-datatype-update-dims-vl-packeddimensionlist-equiv-congruence-on-udims
     (implies (vl-packeddimensionlist-equiv udims udims-equiv)
              (equal (vl-datatype-update-dims pdims udims x)
                     (vl-datatype-update-dims pdims udims-equiv x)))
     :rule-classes :congruence)

    Theorem: vl-datatype-update-dims-of-vl-datatype-fix-x

    (defthm vl-datatype-update-dims-of-vl-datatype-fix-x
      (equal (vl-datatype-update-dims pdims udims (vl-datatype-fix x))
             (vl-datatype-update-dims pdims udims x)))

    Theorem: vl-datatype-update-dims-vl-datatype-equiv-congruence-on-x

    (defthm vl-datatype-update-dims-vl-datatype-equiv-congruence-on-x
      (implies (vl-datatype-equiv x x-equiv)
               (equal (vl-datatype-update-dims pdims udims x)
                      (vl-datatype-update-dims pdims udims x-equiv)))
      :rule-classes :congruence)