• Top
    • Documentation
    • Books
    • Boolean-reasoning
    • Projects
    • Debugging
    • Community
    • 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
          • Syntax-for-tools
            • Disambiguator
            • Parser
            • Validator
            • Printer
            • Formalized-subset
            • Mapping-to-language-definition
            • Input-files
            • Defpred
            • Output-files
            • Abstract-syntax-operations
            • Validation-information
            • Concrete-syntax
            • Ascii-identifiers
            • Unambiguity
            • Preprocessing
            • Abstract-syntax
              • Abstract-syntax-trees
                • Expr
                • Exprs/decls/stmts
                • Type-spec
                • Binop
                  • Binopp
                  • Binop-case
                  • Binop-fix
                  • Binop-kind
                    • Binop-equiv
                    • Binop-add
                    • Binop-sub
                    • Binop-shr
                    • Binop-shl
                    • Binop-rem
                    • Binop-ne
                    • Binop-mul
                    • Binop-lt
                    • Binop-logor
                    • Binop-logand
                    • Binop-le
                    • Binop-gt
                    • Binop-ge
                    • Binop-eq
                    • Binop-div
                    • Binop-bitxor
                    • Binop-bitior
                    • Binop-bitand
                    • Binop-asg-xor
                    • Binop-asg-sub
                    • Binop-asg-shr
                    • Binop-asg-shl
                    • Binop-asg-rem
                    • Binop-asg-mul
                    • Binop-asg-ior
                    • Binop-asg-div
                    • Binop-asg-and
                    • Binop-asg-add
                    • Binop-asg
                  • Stmt
                  • Amb-expr/tyname
                  • Dirdeclor
                  • Unop
                  • Asm-stmt
                  • Dec/oct/hex-const
                  • Simple-escape
                  • Attrib
                  • Ident
                  • Amb-decl/stmt
                  • Dirabsdeclor
                  • Decl-spec
                  • Structdecl
                  • Fundef
                  • Transunit-ensemble
                  • Asm-name-spec
                  • Amb-declor/absdeclor
                  • Param-declor
                  • Declor
                  • Type-qual
                  • Tyname
                  • Absdeclor
                  • Struni-spec
                  • Stor-spec
                  • Keyword-uscores
                  • Align-spec
                  • Label
                  • Expr-option
                  • Spec/qual
                  • Lsuffix
                  • Hex-frac-const
                  • Desiniter
                  • Iconst
                  • Dirabsdeclor-option
                  • Dec-frac-const
                  • Dec-core-fconst
                  • Extdecl
                  • Amb?-declor/absdeclor
                  • Isuffix
                  • Initdeclor
                  • Hex-core-fconst
                  • Const-expr-option
                  • Attrib-spec
                  • Structdeclor
                  • Escape
                  • Decl
                  • Amb?-expr/tyname
                  • Ident-option
                  • Bin-expo
                  • Absdeclor-option
                  • Statassert
                  • Param-declon
                  • Member-designor
                  • Initer-option
                  • Initer
                  • Fsuffix
                  • Enumspec
                  • Declor-option
                  • Const
                  • Block-item
                  • Hex-quad
                  • Eprefix
                  • Const-expr
                  • Oct-escape
                  • Inc/dec-op
                  • Fun-spec
                  • Dec-expo
                  • Cprefix-option
                  • Asm-name-spec-option
                  • Amb?-decl/stmt
                  • S-char
                  • Isuffix-option
                  • Genassoc
                  • Fundef-option
                  • Fsuffix-option
                  • Fconst
                  • Eprefix-option
                  • Dec-expo-option
                  • Cprefix
                  • C-char
                  • Type-spec-option
                  • Sign-option
                  • Q-char
                  • Iconst-option
                  • H-char
                  • Asm-output
                  • Asm-input
                  • Const-option
                  • Usuffix
                  • Univ-char-name
                  • Transunit
                  • Hprefix
                  • Enumer
                  • Designor
                  • Attrib-name
                  • Sign
                  • Asm-qual
                  • Typequal/attribspec
                  • Dec-expo-prefix
                  • Bin-expo-prefix
                  • Stringlit
                  • Cconst
                  • Expr/tyname
                  • Decl/stmt
                  • Declor/absdeclor
                  • Asm-clobber
                  • Typequal/attribspec-list
                  • Decl-spec-list
                  • Stringlit-list
                  • Spec/qual-list
                  • Inc/dec-op-list
                  • Desiniter-list
                  • S-char-list
                  • Param-declon-list
                  • Decl-list
                  • C-char-list
                  • Block-item-list
                  • Typequal/attribspec-list-list
                  • Structdeclor-list
                  • Structdecl-list
                  • Q-char-list
                  • Initdeclor-list
                  • H-char-list
                  • Genassoc-list
                  • Filepath-transunit-map
                  • Extdecl-list
                  • Enumer-list
                  • Attrib-spec-list
                  • Type-spec-list
                  • Ident-list
                  • Expr-list
                  • Asm-qual-list
                  • Asm-output-list
                  • Asm-input-list
                  • Asm-clobber-list
                  • Stor-spec-list
                  • Ident-set
                  • Ident-option-set
                  • Eprefix-option-list
                  • Designor-list
                  • Attrib-list
                • Abstract-syntax-irrelevants
                • Abstraction-mapping
              • Implementation-environments
              • Standard
              • Gcc-builtins
              • Purity
            • Atc
            • Language
            • Transformation-tools
            • Representation
            • Insertion-sort
            • Pack
          • Bv
          • Imp-language
          • Event-macros
          • Java
          • Riscv
          • 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
    • Binop

    Binop-kind

    Get the kind (tag) of a binop structure.

    Signature
    (binop-kind x) → kind
    Arguments
    x — Guard (binopp x).

    Definitions and Theorems

    Function: binop-kind$inline

    (defun binop-kind$inline (x)
      (declare (xargs :guard (binopp x)))
      (let ((__function__ 'binop-kind))
        (declare (ignorable __function__))
        (mbe :logic (cond ((or (atom x) (eq (car x) :mul)) :mul)
                          ((eq (car x) :div) :div)
                          ((eq (car x) :rem) :rem)
                          ((eq (car x) :add) :add)
                          ((eq (car x) :sub) :sub)
                          ((eq (car x) :shl) :shl)
                          ((eq (car x) :shr) :shr)
                          ((eq (car x) :lt) :lt)
                          ((eq (car x) :gt) :gt)
                          ((eq (car x) :le) :le)
                          ((eq (car x) :ge) :ge)
                          ((eq (car x) :eq) :eq)
                          ((eq (car x) :ne) :ne)
                          ((eq (car x) :bitand) :bitand)
                          ((eq (car x) :bitxor) :bitxor)
                          ((eq (car x) :bitior) :bitior)
                          ((eq (car x) :logand) :logand)
                          ((eq (car x) :logor) :logor)
                          ((eq (car x) :asg) :asg)
                          ((eq (car x) :asg-mul) :asg-mul)
                          ((eq (car x) :asg-div) :asg-div)
                          ((eq (car x) :asg-rem) :asg-rem)
                          ((eq (car x) :asg-add) :asg-add)
                          ((eq (car x) :asg-sub) :asg-sub)
                          ((eq (car x) :asg-shl) :asg-shl)
                          ((eq (car x) :asg-shr) :asg-shr)
                          ((eq (car x) :asg-and) :asg-and)
                          ((eq (car x) :asg-xor) :asg-xor)
                          (t :asg-ior))
             :exec (car x))))

    Theorem: binop-kind-possibilities

    (defthm binop-kind-possibilities
      (or (equal (binop-kind x) :mul)
          (equal (binop-kind x) :div)
          (equal (binop-kind x) :rem)
          (equal (binop-kind x) :add)
          (equal (binop-kind x) :sub)
          (equal (binop-kind x) :shl)
          (equal (binop-kind x) :shr)
          (equal (binop-kind x) :lt)
          (equal (binop-kind x) :gt)
          (equal (binop-kind x) :le)
          (equal (binop-kind x) :ge)
          (equal (binop-kind x) :eq)
          (equal (binop-kind x) :ne)
          (equal (binop-kind x) :bitand)
          (equal (binop-kind x) :bitxor)
          (equal (binop-kind x) :bitior)
          (equal (binop-kind x) :logand)
          (equal (binop-kind x) :logor)
          (equal (binop-kind x) :asg)
          (equal (binop-kind x) :asg-mul)
          (equal (binop-kind x) :asg-div)
          (equal (binop-kind x) :asg-rem)
          (equal (binop-kind x) :asg-add)
          (equal (binop-kind x) :asg-sub)
          (equal (binop-kind x) :asg-shl)
          (equal (binop-kind x) :asg-shr)
          (equal (binop-kind x) :asg-and)
          (equal (binop-kind x) :asg-xor)
          (equal (binop-kind x) :asg-ior))
      :rule-classes
      ((:forward-chaining :trigger-terms ((binop-kind x)))))