• Top
    • Documentation
    • Books
    • Boolean-reasoning
    • Projects
    • Debugging
    • Std
    • Proof-automation
    • Macro-libraries
    • ACL2
    • Interfacing-tools
    • Hardware-verification
    • Software-verification
      • Kestrel-books
        • Crypto-hdwallet
        • Apt
        • Error-checking
        • Fty-extensions
        • Isar
        • Kestrel-utilities
        • Set
        • Soft
        • C
        • Bv
        • Imp-language
        • Event-macros
        • Java
          • Atj
          • Aij
          • Language
            • Syntax
            • Semantics
              • Primitive-function-macros
              • Primitive-values
              • Floating-point-placeholders
              • Pointers
              • Floating-point-value-set-parameters
              • Values
              • Primitive-operations
                • Integer-operations
                • Floating-point-operations
                  • Float-greateq
                  • Double-lesseq
                  • Double-greateq
                  • Double-great
                  • Float-lesseq
                  • Float-less
                  • Float-great
                  • Double-less
                  • Float-sub
                  • Float-rem
                  • Float-neq
                  • Float-mul
                  • Double-sub
                  • Double-rem
                  • Double-neq
                  • Double-mul
                    • Double-eq
                    • Double-div
                    • Double-add
                    • Float-eq
                    • Float-div
                    • Float-add
                    • Double-plus
                    • Double-minus
                    • Float-plus
                    • Float-minus
                  • Boolean-operations
                • Primitive-conversions
                • Reference-values
          • Bitcoin
          • Ethereum
          • Yul
          • Zcash
          • ACL2-programming-language
          • Prime-fields
          • Json
          • Syntheto
          • File-io-light
          • Cryptography
          • Number-theory
          • Lists-light
          • Axe
          • Builtins
          • Solidity
          • Helpers
          • Htclient
          • Typed-lists-light
          • Arithmetic-light
        • X86isa
        • Axe
        • Execloader
      • Math
      • Testing-utilities
    • Floating-point-operations

    Double-mul

    Multiplication * on doubles [JLS14:4.2.4] [JLS14:15.17.1].

    Signature
    (double-mul operand-left operand-right) → result
    Arguments
    operand-left — Guard (double-valuep operand-left).
    operand-right — Guard (double-valuep operand-right).
    Returns
    result — Type (double-valuep result).

    Definitions and Theorems

    Function: double-mul

    (defun double-mul (operand-left operand-right)
      (declare (xargs :guard (and (double-valuep operand-left)
                                  (double-valuep operand-right))))
      (b* ((x (double-value->double operand-left))
           (y (double-value->double operand-right)))
        (double-value (double-mul-abs x y))))

    Theorem: double-valuep-of-double-mul

    (defthm double-valuep-of-double-mul
      (b* ((result (double-mul operand-left operand-right)))
        (double-valuep result))
      :rule-classes :rewrite)

    Theorem: double-mul-of-double-value-fix-operand-left

    (defthm double-mul-of-double-value-fix-operand-left
      (equal (double-mul (double-value-fix operand-left)
                         operand-right)
             (double-mul operand-left operand-right)))

    Theorem: double-mul-double-value-equiv-congruence-on-operand-left

    (defthm double-mul-double-value-equiv-congruence-on-operand-left
      (implies (double-value-equiv operand-left operand-left-equiv)
               (equal (double-mul operand-left operand-right)
                      (double-mul operand-left-equiv operand-right)))
      :rule-classes :congruence)

    Theorem: double-mul-of-double-value-fix-operand-right

    (defthm double-mul-of-double-value-fix-operand-right
      (equal (double-mul operand-left
                         (double-value-fix operand-right))
             (double-mul operand-left operand-right)))

    Theorem: double-mul-double-value-equiv-congruence-on-operand-right

    (defthm double-mul-double-value-equiv-congruence-on-operand-right
      (implies (double-value-equiv operand-right operand-right-equiv)
               (equal (double-mul operand-left operand-right)
                      (double-mul operand-left operand-right-equiv)))
      :rule-classes :congruence)