• Top
  • Documentation
  • Books
  • Boolean-reasoning
  • Projects
  • Debugging
  • Std
    • Std/lists
    • Std/alists
    • Obags
    • Std/util
    • Std/strings
    • Std/osets
    • Std/io
    • Std/basic
    • Std/system
      • Fresh-logical-name-with-$s-suffix
      • Irrelevant-formals-info
      • Std/system/function-queries
      • Std/system/term-queries
        • Check-mv-let-call
        • Term-possible-numbers-of-results
        • Check-user-term
        • Check-nary-lambda-call
        • Check-lambda-call
        • All-vars-open
        • Dumb-occur-var-open
        • Check-user-lambda
        • Check-if-call
        • One-way-unify$
        • Check-unary-lambda-call
        • Guard-verified-fnsp
          • Guard-verified-fnsp-lst
        • All-non-gv-ffn-symbs
        • All-non-gv-exec-ffn-symbs
        • Check-fn-call
        • Guard-verified-exec-fnsp
        • Check-list-call
        • Check-or-call
        • Check-and-call
        • All-program-ffn-symbs
        • Lambda-guard-verified-fnsp
        • All-free/bound-vars
        • Check-mbt$-call
        • If-tree-leaf-terms
        • Check-not-call
        • Check-mbt-call
        • Term-guard-obligation
        • All-pkg-names
        • All-vars-in-untranslated-term
        • Std/system/all-fnnames
        • Lambda-logic-fnsp
        • Lambda-guard-verified-exec-fnsp
        • All-lambdas
        • Lambda-closedp
        • Std/system/all-vars
      • 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
  • Community
  • Proof-automation
  • Macro-libraries
  • ACL2
  • Interfacing-tools
  • Hardware-verification
  • Software-verification
  • Math
  • Testing-utilities

• Std/system/term-queries

Guard-verified-fnsp

Check if a term calls only guard-verified functions.

Signature

(guard-verified-fnsp term wrld) → yes/no

Arguments

term — Guard (pseudo-termp term).

wrld — Guard (plist-worldp wrld).

Returns

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

Note that if any function inside the :logic component of an mbe or called via ec-call is not guard-verified, we return nil, even when term could otherwise be fully guard-verified. See guard-verified-exec-fnsp for a similar utility that ignores the guard verification status of functions in the :logic components of mbes or called via ec-call.

The name of this function is consistent with the name of logic-fnsp in the ACL2 source code.

Function: guard-verified-fnsp

(defun guard-verified-fnsp (term wrld)
  (declare (xargs :guard (and (pseudo-termp term)
                              (plist-worldp wrld))))
  (let ((__function__ 'guard-verified-fnsp))
    (declare (ignorable __function__))
    (or (variablep term)
        (fquotep term)
        (and (guard-verified-fnsp-lst (fargs term)
                                      wrld)
             (let ((fn (ffn-symb term)))
               (if (symbolp fn)
                   (guard-verified-p fn wrld)
                 (guard-verified-fnsp (lambda-body fn)
                                      wrld)))))))

Function: guard-verified-fnsp-lst

(defun guard-verified-fnsp-lst (terms wrld)
  (declare (xargs :guard (and (pseudo-term-listp terms)
                              (plist-worldp wrld))))
  (let ((__function__ 'guard-verified-fnsp-lst))
    (declare (ignorable __function__))
    (or (endp terms)
        (and (guard-verified-fnsp (car terms) wrld)
             (guard-verified-fnsp-lst (cdr terms)
                                      wrld)))))

Theorem: return-type-of-guard-verified-fnsp.yes/no

(defthm return-type-of-guard-verified-fnsp.yes/no
  (b* ((?yes/no (guard-verified-fnsp term wrld)))
    (booleanp yes/no))
  :rule-classes :rewrite)

Theorem: return-type-of-guard-verified-fnsp-lst.yes/no

(defthm return-type-of-guard-verified-fnsp-lst.yes/no
  (b* ((?yes/no (guard-verified-fnsp-lst terms wrld)))
    (booleanp yes/no))
  :rule-classes :rewrite)

Subtopics

Guard-verified-fnsp-lst