Process the inputs and generate the events.
(specialize-process-inputs-and-gen-everything
const-old
const-new target param const wrld)
→
(mv er? event)Function:
(defun specialize-process-inputs-and-gen-everything (const-old const-new target param const wrld) (declare (xargs :guard (plist-worldp wrld))) (b* (((reterr) '(_)) ((erp code const-new target param const) (specialize-process-inputs const-old const-new target param const wrld)) (event (specialize-gen-everything code const-new target param const))) (retok event)))
Theorem:
(defthm maybe-msgp-of-specialize-process-inputs-and-gen-everything.er? (b* (((mv ?er? acl2::?event) (specialize-process-inputs-and-gen-everything const-old const-new target param const wrld))) (maybe-msgp er?)) :rule-classes :rewrite)
Theorem:
(defthm pseudo-event-formp-of-specialize-process-inputs-and-gen-everything.event (b* (((mv ?er? acl2::?event) (specialize-process-inputs-and-gen-everything const-old const-new target param const wrld))) (pseudo-event-formp event)) :rule-classes :rewrite)