• Top
    • Documentation
    • Books
    • Boolean-reasoning
    • Projects
    • Debugging
    • Std
    • Proof-automation
    • Macro-libraries
    • ACL2
      • Theories
      • Rule-classes
      • Proof-builder
      • Recursion-and-induction
      • Hons-and-memoization
      • Events
      • Parallelism
      • History
      • Programming
        • Defun
        • Declare
        • System-utilities
        • Stobj
        • State
        • Mutual-recursion
        • Memoize
        • Mbe
        • Io
        • Defpkg
        • Apply$
        • Loop$
        • Programming-with-state
        • Arrays
        • Characters
        • Time$
        • Defmacro
        • Loop$-primer
        • Fast-alists
        • Defconst
        • Evaluation
        • Guard
        • Equality-variants
        • Compilation
        • Hons
        • ACL2-built-ins
        • Developers-guide
        • System-attachments
        • Advanced-features
        • Set-check-invariant-risk
        • Numbers
          • Df
          • Unsigned-byte-p
            • Defbyte
              • Defbytelist
              • Defbyte-standard-instances
                • Ubyte5
                • Ubyte8
                • Ubyte32
                • Ubyte12
                • Ubyte64
                • Ubyte16
                • Ubyte128
                • Sbyte8
                • Sbyte64
                • Sbyte32
                • Sbyte16
                • Sbyte128
                • Ubyte20
                • Ubyte11
                • Ubyte4
                • Ubyte256
                • Sbyte256
                  • Sbyte256p
                  • Sbyte256-fix
                  • Ubyte7
                  • Ubyte6
                  • Ubyte3
                  • Ubyte2
                  • Ubyte1
                  • Sbyte4
                  • Sbyte3
                  • Sbyte2
                  • Sbyte1
                  • Defbyte-standard-instances-ihs-theorems
                  • Defubyte
                  • Defsbyte
                • Defbyte-ihs-theorems
                • Defbyte-implementation
              • Unsigned-byte-p-discussion
              • Unsigned-byte-listp
              • Bitops/signed-byte-p
              • Unsigned-byte-fix
              • Bytep
              • Nibblep
              • Ihs/unsigned-byte-p-lemmas
              • Unsigned-byte-p*
              • Unsigned-byte-p-basics
            • Posp
            • Natp
            • <
            • +
            • Bitp
            • Zero-test-idioms
            • Nat-listp
            • Integerp
            • *
            • -
            • Zp
            • Signed-byte-p
            • Logbitp
            • Sharp-f-reader
            • Expt
            • <=
            • Ash
            • Rationalp
            • =
            • Nfix
            • Logand
            • Floor
            • Random$
            • Integer-listp
            • Complex
            • Numbers-introduction
            • Truncate
            • Code-char
            • Char-code
            • Integer-length
            • Zip
            • Logior
            • Sharp-u-reader
            • Mod
            • Unary--
            • Boole$
            • /
            • Logxor
            • Ifix
            • Lognot
            • Integer-range-p
            • Allocate-fixnum-range
            • ACL2-numberp
            • Sharp-d-reader
            • Mod-expt
            • Ceiling
            • Round
            • Logeqv
            • Fix
            • Explode-nonnegative-integer
            • Max
            • Evenp
            • Zerop
            • Abs
            • Nonnegative-integer-quotient
            • Rfix
            • 1+
            • Pos-listp
            • Signum
            • Rem
            • Real/rationalp
            • Rational-listp
            • >=
            • >
            • Logcount
            • ACL2-number-listp
            • /=
            • Unary-/
            • Realfix
            • Complex/complex-rationalp
            • Logtest
            • Logandc1
            • Logorc1
            • Logandc2
            • Denominator
            • 1-
            • Numerator
            • Logorc2
            • The-number
            • Int=
            • Complex-rationalp
            • Min
            • Lognor
            • Zpf
            • Oddp
            • Minusp
            • Lognand
            • Imagpart
            • Conjugate
            • Realpart
            • Plusp
          • Efficiency
          • Irrelevant-formals
          • Introduction-to-programming-in-ACL2-for-those-who-know-lisp
          • Redefining-programs
          • Lists
          • Invariant-risk
          • Errors
          • Defabbrev
          • Conses
          • Alists
          • Set-register-invariant-risk
          • Strings
          • Program-wrapper
          • Get-internal-time
          • Basics
          • Packages
          • Oracle-eval
          • Defmacro-untouchable
          • <<
          • Primitive
          • Revert-world
          • Unmemoize
          • Set-duplicate-keys-action
          • Symbols
          • Def-list-constructor
          • Easy-simplify-term
          • Defiteration
          • Fake-oracle-eval
          • Defopen
          • Sleep
        • Operational-semantics
        • Real
        • Start-here
        • Debugging
        • Miscellaneous
        • Output-controls
        • Macros
        • Interfacing-tools
      • Interfacing-tools
      • Hardware-verification
      • Software-verification
      • Math
      • Testing-utilities
    • Sbyte256

    Sbyte256-fix

    Fixer for sbyte256.

    Signature
    (sbyte256-fix x) → fixed-x
    Arguments
    x — Guard (sbyte256p x).
    Returns
    fixed-x — Type (sbyte256p fixed-x).

    Definitions and Theorems

    Function: sbyte256-fix

    (defun sbyte256-fix (x)
      (declare (xargs :guard (sbyte256p x)))
      (mbe :logic (if (sbyte256p x) x 0)
           :exec x))

    Theorem: sbyte256p-of-sbyte256-fix

    (defthm sbyte256p-of-sbyte256-fix
      (b* ((fixed-x (sbyte256-fix x)))
        (sbyte256p fixed-x))
      :rule-classes :rewrite)

    Theorem: sbyte256-fix-when-sbyte256p

    (defthm sbyte256-fix-when-sbyte256p
      (implies (sbyte256p x)
               (equal (sbyte256-fix x) x)))