• Top
    • Documentation
    • Books
    • Boolean-reasoning
    • Projects
      • Apt
      • Zfc
      • Acre
      • Milawa
      • Smtlink
      • Abnf
      • Vwsim
      • Isar
      • Pfcs
        • Proof-support
        • Semantics
        • Lifting
        • R1cs-subset
        • Indexed-names
        • Well-formedness
        • Abstract-syntax
          • Syntax-abstraction
          • Abstract-syntax-trees
            • Expression
              • Expression-fix
              • Expression-case
              • Expressionp
              • Expression-count
              • Expression-equiv
              • Expression-mul
              • Expression-add
              • Expression-var
              • Expression-const
              • Expression-kind
              • Definition
              • Constraint
              • Definition-option
              • System
              • System-result
              • Expression-result
              • Expression-list-result
              • Definition-result
              • Definition-list-result
              • Constraint-result
              • Constraint-list-result
              • Expression-list
              • Definition-list
              • Constraint-list
            • Abstract-syntax-operations
            • Convenience-constructors
          • Concrete-syntax
          • R1cs-bridge
          • Parser-interface
        • Wp-gen
        • Dimacs-reader
        • Legacy-defrstobj
        • Proof-checker-array
        • Soft
        • C
        • Farray
        • Rp-rewriter
        • Riscv
        • Instant-runoff-voting
        • Imp-language
        • Sidekick
        • Leftist-trees
        • Java
        • Taspi
        • Bitcoin
        • Des
        • Ethereum
        • X86isa
        • Sha-2
        • Yul
        • Zcash
        • Proof-checker-itp13
        • Regex
        • ACL2-programming-language
        • Json
        • Jfkr
        • Equational
        • Cryptography
        • Poseidon
        • Where-do-i-place-my-book
        • Axe
        • Aleo
        • Bigmems
        • Builtins
        • Execloader
        • Solidity
        • Paco
        • Concurrent-programs
        • Bls12-377-curves
      • Debugging
      • Std
      • Community
      • Proof-automation
      • Macro-libraries
      • ACL2
      • Interfacing-tools
      • Hardware-verification
      • Software-verification
      • Math
      • Testing-utilities
    • Expression

    Expression-kind

    Get the kind (tag) of a expression structure.

    Signature
    (expression-kind x) → kind
    Arguments
    x — Guard (expressionp x).

    Definitions and Theorems

    Function: expression-kind$inline

    (defun expression-kind$inline (x)
      (declare (xargs :guard (expressionp x)))
      (let ((__function__ 'expression-kind))
        (declare (ignorable __function__))
        (mbe :logic (cond ((or (atom x) (eq (car x) :const))
                           :const)
                          ((eq (car x) :var) :var)
                          ((eq (car x) :add) :add)
                          (t :mul))
             :exec (car x))))

    Theorem: expression-kind-possibilities

    (defthm expression-kind-possibilities
      (or (equal (expression-kind x) :const)
          (equal (expression-kind x) :var)
          (equal (expression-kind x) :add)
          (equal (expression-kind x) :mul))
      :rule-classes
      ((:forward-chaining :trigger-terms ((expression-kind x)))))