• 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-pointx-value
                • Doublex-value-fns
                • Primitivex-value
                  • Primitivex-valuep
                  • Primitivex-value-fix
                  • Floatx-value-fns
                  • Primitive-value
                  • Numericx-value
                  • Numeric-value
                  • Integral-value
                  • Int-value
                  • Char-value
                  • Byte-value
                  • Short-value
                  • Long-value
                  • Float-value
                  • Double-value
                  • Boolean-value
                  • Floating-point-value
                  • Disjoint-primitive-values
                  • Short-value-list
                  • Long-value-list
                  • Int-value-list
                  • Float-value-list
                  • Double-value-list
                  • Char-value-list
                  • Byte-value-list
                  • Boolean-value-list
                • Floating-point-placeholders
                • Pointers
                • Floating-point-value-set-parameters
                • Values
                • Primitive-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
    • Primitivex-value

    Primitivex-value-fix

    Fixer for primitivex-value.

    Signature
    (primitivex-value-fix x) → fixed-x
    Arguments
    x — Guard (primitivex-valuep x).
    Returns
    fixed-x — Type (primitivex-valuep fixed-x).

    Definitions and Theorems

    Function: primitivex-value-fix

    (defun primitivex-value-fix (x)
      (declare (xargs :guard (primitivex-valuep x)))
      (mbe :logic
           (if (primitivex-valuep x)
               x
             (char-value 0))
           :exec x))

    Theorem: primitivex-valuep-of-primitivex-value-fix

    (defthm primitivex-valuep-of-primitivex-value-fix
      (b* ((fixed-x (primitivex-value-fix x)))
        (primitivex-valuep fixed-x))
      :rule-classes :rewrite)

    Theorem: primitivex-value-fix-when-primitivex-valuep

    (defthm primitivex-value-fix-when-primitivex-valuep
      (implies (primitivex-valuep x)
               (equal (primitivex-value-fix x) x)))