• 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
            • Definition
            • Constraint
              • Constraint-fix
              • Constraint-case
              • Constraintp
              • Constraint-equiv
              • Constraint-relation
              • Constraint-equal
              • Constraint-kind
              • 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
    • Constraint

    Constraint-kind

    Get the kind (tag) of a constraint structure.

    Signature
    (constraint-kind x) → kind
    Arguments
    x — Guard (constraintp x).

    Definitions and Theorems

    Function: constraint-kind$inline

    (defun constraint-kind$inline (x)
      (declare (xargs :guard (constraintp x)))
      (let ((__function__ 'constraint-kind))
        (declare (ignorable __function__))
        (mbe :logic (cond ((or (atom x) (eq (car x) :equal))
                           :equal)
                          (t :relation))
             :exec (car x))))

    Theorem: constraint-kind-possibilities

    (defthm constraint-kind-possibilities
      (or (equal (constraint-kind x) :equal)
          (equal (constraint-kind x) :relation))
      :rule-classes
      ((:forward-chaining :trigger-terms ((constraint-kind x)))))