• Top
  • Documentation
  • Books
  • Boolean-reasoning
  • Projects
  • Debugging
  • Std
  • Proof-automation
  • Macro-libraries
  • ACL2
  • Interfacing-tools
  • Hardware-verification
  • Software-verification
    • Kestrel-books
      • Crypto-hdwallet
      • Apt
      • Error-checking
        • Def-error-checker
        • Ensure-function/macro/lambda
        • Ensure-symbol-is-fresh-event-name
        • Ensure-function/lambda/term-number-of-results
        • Ensure-function/lambda-arity
        • Ensure-function/lambda-no-stobjs
        • Ensure-function/lambda-guard-verified-fns
        • Ensure-function-name-or-numbered-wildcard
        • Ensure-function/lambda-logic-mode
        • Ensure-function/lambda-closed
        • Ensure-value-is-untranslated-term
        • Ensure-function-number-of-results
        • Ensure-boolean-or-auto-and-return-boolean
        • Ensure-is-hints-specifier
        • Ensure-term-if-call
          • Ensure-term-if-call$
        • Ensure-value-is-not-in-list
        • Ensure-term-free-vars-subset
        • Ensure-symbol-new-event-name
        • Ensure-symbol-different
        • Ensure-function/lambda-guard-verified-exec-fns
        • Ensure-value-is-in-list
        • Ensure-list-subset
        • Ensure-function-no-stobjs
        • Ensure-function-known-measure
        • Ensure-term-not-call-of
        • Ensure-lambda-guard-verified-fns
        • Ensure-term-guard-verified-fns
        • Ensure-term-does-not-call
        • Ensure-lambda-logic-mode
        • Ensure-lambda-arity
        • Ensure-function-singly-recursive
        • Ensure-function-is-pure-if-raw
        • Ensure-function-arity
        • Ensure-term-no-stobjs
        • Ensure-term-logic-mode
        • Ensure-list-functions
        • Ensure-keyword-value-list
        • Ensure-function-program-mode
        • Ensure-function-non-recursive
        • Ensure-function-is-logic-mode
        • Ensure-function-is-guard-verified
        • Ensure-function-is-defined
        • Ensure-value-is-legal-variable-name
        • Ensure-value-is-function-name
        • Ensure-value-is-constant-name
        • Ensure-term-ground
        • Ensure-symbol-truelist-alist
        • Ensure-symbol-not-stobj
        • Ensure-symbol-function
        • Ensure-list-has-no-duplicates
        • Ensure-lambda-closed
        • Ensure-function-recursive
        • Ensure-function-name-list
        • Ensure-function-has-args
        • Ensure-value-is-true-list
        • Ensure-value-is-symbol-list
        • Ensure-tuple
        • Ensure-symbol-not-keyword
        • Ensure-defun-mode-or-auto
        • Ensure-value-is-symbol
        • Ensure-value-is-string
        • Ensure-value-is-boolean
        • Ensure-symbol-alist
        • Ensure-string-or-nil
        • Ensure-doublet-list
        • Ensure-defun-mode
        • Ensure-constant-name
        • Ensure-boolean-or-auto
        • Ensure-value-is-nil
        • Ensure-function-not-in-termination-thm
        • Ensure-lambda-guard-verified-exec-fns
        • Ensure-term-guard-verified-exec-fns
      • Fty-extensions
      • Isar
      • Kestrel-utilities
      • Soft
      • Bv
      • Imp-language
      • C
      • Event-macros
      • Java
      • Bitcoin
      • Ethereum
      • Yul
      • Zcash
      • ACL2-programming-language
      • Prime-fields
      • Json
      • Syntheto
      • File-io-light
      • Number-theory
      • Cryptography
      • Lists-light
      • Builtins
      • Axe
      • Solidity
      • Helpers
      • Htclient
      • Typed-lists-light
      • Arithmetic-light
    • X86isa
    • Axe
    • Execloader
  • Math
  • Testing-utilities

• Error-checking

Ensure-term-if-call

Cause an error if a term is not a call of if.

Signature

(ensure-term-if-call term description error-erp error-val ctx state) 
  → 
(mv erp val state)

Arguments

term — Term to check.
    Guard (pseudo-termp term).

description — Guard (msgp description).

error-erp — Flag to return in case of error.

error-val — Value to return in case of error.

ctx — Context for errors.

Returns

erp — Type (implies erp (equal erp error-erp)).

val — Type (and (implies erp (equal val error-val)) (implies (and (not erp) error-erp (pseudo-termp term)) (and (pseudo-term-listp val) (equal (len val) 3)))) .

If the term is a call to if, return its test, `then' branch, and `else' branch.

Definitions and Theorems

Function: ensure-term-if-call

(defun ensure-term-if-call (term description
                                 error-erp error-val ctx state)
  (declare (xargs :stobjs (state)))
  (declare (xargs :guard (and (pseudo-termp term)
                              (msgp description))))
  (b* (((unless (and (nvariablep term)
                     (not (fquotep term))
                     (eq (ffn-symb term) 'if)))
        (er-soft+ ctx error-erp
                  error-val "~@0 must be a call of IF."
                  description)))
    (value (list (fargn term 1)
                 (fargn term 2)
                 (fargn term 3)))))

Theorem: return-type-of-ensure-term-if-call.erp

(defthm return-type-of-ensure-term-if-call.erp
  (b* (((mv ?erp ?val ?state)
        (ensure-term-if-call term description
                             error-erp error-val ctx state)))
    (implies erp (equal erp error-erp)))
  :rule-classes :rewrite)

Theorem: return-type-of-ensure-term-if-call.val

(defthm return-type-of-ensure-term-if-call.val
  (b* (((mv ?erp ?val ?state)
        (ensure-term-if-call term description
                             error-erp error-val ctx state)))
    (and (implies erp (equal val error-val))
         (implies (and (not erp)
                       error-erp (pseudo-termp term))
                  (and (pseudo-term-listp val)
                       (equal (len val) 3)))))
  :rule-classes :rewrite)

Subtopics

Ensure-term-if-call$

Calls ensure-term-if-call with ctx and state as the last two arguments.