• 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
          • Abstract-syntax-operations
            • Expression-var-list
            • Lookup-definition
            • Constrel
              • Constrel-fix
              • Constrel-equiv
              • Make-constrel
              • Change-constrel
              • Constrel->name
              • Constrel->args
              • Constrelp
              • Constraint-constrels
              • Constraint-list-constrels
              • Constraint-rels
              • Constraint-list-rels
              • Expression-sub
              • Expression-const/var-listp
              • Expression-var-listp
              • Expression-neg
              • Expression-list-vars
              • Expression-vars
              • Definition-free-vars
              • Constraint-vars
              • Constraint-list-vars
              • Constrel-set
            • 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
    • Constrel

    Constrelp

    Recognizer for constrel structures.

    Signature
    (constrelp x) → *

    Definitions and Theorems

    Function: constrelp

    (defun constrelp (x)
      (declare (xargs :guard t))
      (let ((__function__ 'constrelp))
        (declare (ignorable __function__))
        (and (mbe :logic (and (alistp x)
                              (equal (strip-cars x) '(name args)))
                  :exec (fty::alist-with-carsp x '(name args)))
             (b* ((name (cdr (std::da-nth 0 x)))
                  (args (cdr (std::da-nth 1 x))))
               (and (stringp name)
                    (expression-listp args))))))

    Theorem: consp-when-constrelp

    (defthm consp-when-constrelp
      (implies (constrelp x) (consp x))
      :rule-classes :compound-recognizer)