• Top
    • Documentation
    • Books
    • Boolean-reasoning
    • Projects
      • Apt
      • Zfc
      • Acre
      • Milawa
      • Smtlink
      • Abnf
      • Vwsim
      • Isar
      • Pfcs
        • Proof-support
        • Semantics
          • Exec-proof-tree
          • Assertion-list->constr-list
          • Assertion-list->asg-list
          • Eval-expr
          • Eval-expr-list
          • Assignment-wfp
          • Assertion
          • Proof-outcome
            • Proof-outcome-fix
            • Proof-outcome-case
            • Proof-outcome-equiv
            • Proof-outcomep
              • Proof-outcome-assertion
              • Proof-outcome-kind
              • Proof-outcome-fail
              • Proof-outcome-error
            • Proof-list-outcome
            • Assertion-list-from
            • Definition-satp
            • Constraint-satp
            • Assignment
            • System-satp
            • Constraint-list-satp
            • Assertion-list
            • Assignment-list
            • Proof-trees
          • Lifting
          • R1cs-subset
          • Indexed-names
          • Well-formedness
          • Abstract-syntax
          • 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
    • Proof-outcome

    Proof-outcomep

    Recognizer for proof-outcome structures.

    Signature
    (proof-outcomep x) → *

    Definitions and Theorems

    Function: proof-outcomep

    (defun proof-outcomep (x)
      (declare (xargs :guard t))
      (let ((__function__ 'proof-outcomep))
        (declare (ignorable __function__))
        (and (consp x)
             (cond ((or (atom x) (eq (car x) :assertion))
                    (and (true-listp (cdr x))
                         (eql (len (cdr x)) 1)
                         (b* ((get (std::da-nth 0 (cdr x))))
                           (assertionp get))))
                   ((eq (car x) :fail)
                    (and (true-listp (cdr x))
                         (eql (len (cdr x)) 0)
                         (b* nil t)))
                   (t (and (eq (car x) :error)
                           (and (true-listp (cdr x))
                                (eql (len (cdr x)) 0))
                           (b* nil t)))))))

    Theorem: consp-when-proof-outcomep

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