		Search-engine friendly clone of the ACL2 documentation.

Deffold-map-implementation

Deffold-map-fn

Event expansion of deffold-map.

Signature
(deffold-map-fn args ctx state) → (mv erp event state)
Arguments: args — Guard (true-listp args).; ctx — Guard (ctxp ctx).
Returns: event — Type (acl2::pseudo-event-formp event).

Definitions and Theorems

Function: deffold-map-fn

(defun deffold-map-fn (args ctx state)
 (declare (xargs :stobjs (state)))
 (declare (xargs :guard (and (true-listp args) (ctxp ctx))))
 (let ((__function__ 'deffold-map-fn))
  (declare (ignorable __function__))
  (b*
   (((mv erp event)
     (deffold-map-process-inputs-and-gen-everything args (w state)))
    ((when erp)
     (acl2::er-soft+ ctx t '(_) "~@0" erp)))
   (value event))))

Theorem: pseudo-event-formp-of-deffold-map-fn.event

(defthm pseudo-event-formp-of-deffold-map-fn.event
  (b* (((mv ?erp acl2::?event acl2::?state)
        (deffold-map-fn args ctx state)))
    (acl2::pseudo-event-formp event))
  :rule-classes :rewrite)