Basic constructor macro for constraint-instance structures.
(make-constraint-instance [:thmname <thmname>] [:subst <subst>])
This is the usual way to construct constraint-instance structures. It simply conses together a structure with the specified fields.
This macro generates a new constraint-instance structure from scratch. See also change-constraint-instance, which can "change" an existing structure, instead.
This is an ordinary
Macro:
(defmacro make-constraint-instance (&rest args) (std::make-aggregate 'constraint-instance args '((:thmname) (:subst)) 'make-constraint-instance nil))
Function:
(defun constraint-instance (thmname subst) (declare (xargs :guard (and (symbolp thmname) (fgl-object-bindings-p subst)))) (declare (xargs :guard t)) (let ((__function__ 'constraint-instance)) (declare (ignorable __function__)) (b* ((thmname (mbe :logic (acl2::symbol-fix thmname) :exec thmname)) (subst (mbe :logic (fgl-object-bindings-fix subst) :exec subst))) (std::prod-cons thmname subst))))