• Top
  • Documentation
  • Books
  • Boolean-reasoning
  • Projects
  • Debugging
  • Std
    • Std/lists
    • Std/alists
    • Obags
    • Std/util
    • Std/strings
    • Std/io
    • Std/osets
    • Std/basic
    • Std/system
      • Fresh-logical-name-with-$s-suffix
      • Irrelevant-formals-info
      • Std/system/function-queries
        • Defun-sk-queries
        • Tail-recursive-p
        • Termination-theorem$
        • Unwrapped-nonexec-body+
        • Measure
        • Arity+
        • Ubody
        • Ruler-extenders+
        • Recursive-calls
        • Guard-theorem-no-simplify$
        • Well-founded-relation+
        • Unwrapped-nonexec-body
        • Measured-subset+
        • Ruler-extenders
        • Measure+
        • Number-of-results+
        • Induction-machine+
        • Non-executablep+
        • Pure-raw-p
        • Irecursivep+
        • Formals+
        • Stobjs-out+
        • Definedp+
        • Number-of-results
        • Induction-machine
        • Ubody+
        • Guard-theorem-no-simplify
        • Uguard
        • Rawp
        • Defchoose-queries
        • Uguard+
        • Stobjs-in+
        • No-stobjs-p+
        • Irecursivep
        • Well-founded-relation
        • Definedp
        • Guard-verified-p+
        • Primitivep+
        • No-stobjs-p
        • Measured-subset
        • Guard-verified-p
        • Primitivep
        • Non-executablep
        • Fundef-disabledp
        • Ibody
        • Fundef-enabledp
        • Std/system/arity
      • Std/system/term-queries
      • Std/system/term-transformations
      • Std/system/enhanced-utilities
      • Install-not-normalized-event
      • Install-not-normalized-event-lst
      • Std/system/term-function-recognizers
      • Genvar$
      • Std/system/event-name-queries
      • Pseudo-tests-and-call-listp
      • Maybe-pseudo-event-formp
      • Add-suffix-to-fn-or-const
      • Chk-irrelevant-formals-ok
      • Table-alist+
      • Pseudo-tests-and-callp
      • Add-suffix-to-fn-or-const-lst
      • Known-packages+
      • Add-suffix-to-fn-lst
      • Unquote-term
      • Event-landmark-names
      • Add-suffix-lst
      • Std/system/theorem-queries
      • Unquote-term-list
      • Std/system/macro-queries
      • Pseudo-command-landmark-listp
      • Install-not-normalized$
      • Pseudo-event-landmark-listp
      • Known-packages
      • Std/system/partition-rest-and-keyword-args
      • Rune-enabledp
      • Rune-disabledp
      • Included-books
      • Std/system/pseudo-event-formp
      • Std/system/plist-worldp-with-formals
      • Std/system/w
      • Std/system/geprops
      • Std/system/arglistp
      • Std/system/constant-queries
    • Std/typed-lists
    • Std/bitsets
    • Std/testing
    • Std/typed-alists
    • Std/stobjs
    • Std-extensions
  • Proof-automation
  • Macro-libraries
  • ACL2
  • Interfacing-tools
  • Hardware-verification
  • Software-verification
  • Math
  • Testing-utilities

• Std/system/function-queries
• Std/system/theorem-queries

Guard-verified-p+

Enhanced variant of guard-verified-p.

Signature

(guard-verified-p+ fn/thm wrld) → yes/no

Arguments

fn/thm — Guard (symbolp fn/thm).

wrld — Guard (plist-worldp wrld).

Returns

yes/no — Type (booleanp yes/no).

This returns the same result as guard-verified-p, but it causes an error if called on a symbol that does not name a function or theorem.

Definitions and Theorems

Function: guard-verified-p+

(defun guard-verified-p+ (fn/thm wrld)
  (declare (xargs :guard (and (symbolp fn/thm)
                              (plist-worldp wrld))))
  (let ((__function__ 'guard-verified-p+))
    (declare (ignorable __function__))
    (if (and (not (function-symbolp fn/thm wrld))
             (not (theorem-symbolp fn/thm wrld)))
        (raise "The symbol ~x0 does not name a function or theorem."
               fn/thm)
      (guard-verified-p fn/thm wrld))))

Theorem: booleanp-of-guard-verified-p+

(defthm booleanp-of-guard-verified-p+
  (b* ((yes/no (guard-verified-p+ fn/thm wrld)))
    (booleanp yes/no))
  :rule-classes :rewrite)

Theorem: function/theorem-symbolp-when-guard-verified-p+

(defthm function/theorem-symbolp-when-guard-verified-p+
  (implies (guard-verified-p+ fn/thm wrld)
           (or (function-symbolp fn/thm wrld)
               (theorem-symbolp fn/thm wrld))))