		Search-engine friendly clone of the ACL2 documentation.

Atc-premise-compustate

Make-atc-premise-compustate

Basic constructor macro for atc-premise-compustate structures.

Syntax

(make-atc-premise-compustate [:var <var>] 
                             [:term <term>])

This is the usual way to construct atc-premise-compustate structures. It simply conses together a structure with the specified fields.

This macro generates a new atc-premise-compustate structure from scratch. See also change-atc-premise-compustate, which can "change" an existing structure, instead.

Definition

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

Macro: make-atc-premise-compustate

(defmacro make-atc-premise-compustate (&rest args)
  (std::make-aggregate 'atc-premise-compustate
                       args '((:var) (:term))
                       'make-atc-premise-compustate
                       nil))

Function: atc-premise-compustate

(defun atc-premise-compustate (var term)
  (declare (xargs :guard (and (symbolp var) (acl2::any-p term))))
  (declare (xargs :guard t))
  (let ((__function__ 'atc-premise-compustate))
    (declare (ignorable __function__))
    (b* ((var (mbe :logic (symbol-fix var) :exec var))
         (term (mbe :logic (identity term)
                    :exec term)))
      (cons :compustate (list var term)))))