		Search-engine friendly clone of the ACL2 documentation.

Wrap-fn-event-generation

Wrap-fn-fn

Event expansion of wrap-fn.

Signature
(wrap-fn-fn const-old const-new targets ctx state) → (mv erp event state)
Arguments: ctx — Guard (ctxp ctx).
Returns: erp — Type (booleanp erp).; event — Type (pseudo-event-formp event).

Definitions and Theorems

Function: wrap-fn-fn

(defun wrap-fn-fn (const-old const-new targets ctx state)
  (declare (xargs :stobjs (state)))
  (declare (xargs :guard (ctxp ctx)))
  (b* (((mv erp event)
        (wrap-fn-process-inputs-and-gen-everything
             const-old const-new targets (w state)))
       ((when erp)
        (er-soft+ ctx t '(_) "~@0" erp)))
    (value event)))

Theorem: booleanp-of-wrap-fn-fn.erp

(defthm booleanp-of-wrap-fn-fn.erp
  (b* (((mv acl2::?erp acl2::?event acl2::?state)
        (wrap-fn-fn const-old const-new targets ctx state)))
    (booleanp erp))
  :rule-classes :type-prescription)

Theorem: pseudo-event-formp-of-wrap-fn-fn.event

(defthm pseudo-event-formp-of-wrap-fn-fn.event
  (b* (((mv acl2::?erp acl2::?event acl2::?state)
        (wrap-fn-fn const-old const-new targets ctx state)))
    (pseudo-event-formp event))
  :rule-classes :rewrite)