		Search-engine friendly clone of the ACL2 documentation.

Outcome-proof-obligation-failure

Make-outcome-proof-obligation-failure

Basic constructor macro for outcome-proof-obligation-failure structures.

Syntax

(make-outcome-proof-obligation-failure [:message <message>] 
                                       [:obligation-expr <obligation-expr>])

This is the usual way to construct outcome-proof-obligation-failure structures. It simply conses together a structure with the specified fields.

This macro generates a new outcome-proof-obligation-failure structure from scratch. See also change-outcome-proof-obligation-failure, which can "change" an existing structure, instead.

Definition

This is an ordinary make- macro introduced by fty::defprod.

Macro: make-outcome-proof-obligation-failure

(defmacro make-outcome-proof-obligation-failure (&rest args)
  (std::make-aggregate 'outcome-proof-obligation-failure
                       args '((:message) (:obligation-expr))
                       'make-outcome-proof-obligation-failure
                       nil))

Function: outcome-proof-obligation-failure

(defun outcome-proof-obligation-failure (message obligation-expr)
 (declare (xargs :guard (and (stringp message)
                             (expressionp obligation-expr))))
 (declare (xargs :guard t))
 (let ((__function__ 'outcome-proof-obligation-failure))
  (declare (ignorable __function__))
  (b* ((message (mbe :logic (str-fix message)
                     :exec message))
       (obligation-expr (mbe :logic (expression-fix obligation-expr)
                             :exec obligation-expr)))
   (cons
        :proof-obligation-failure (list message obligation-expr)))))