Event expansion of specialize.
(specialize-fn const-old const-new target param const ctx state) → (mv erp event state)
Function:
(defun specialize-fn (const-old const-new target param const ctx state) (declare (xargs :stobjs (state))) (declare (xargs :guard (ctxp ctx))) (b* (((mv erp event) (specialize-process-inputs-and-gen-everything const-old const-new target param const (w state))) ((when erp) (er-soft+ ctx t '(_) "~@0" erp))) (value event)))
Theorem:
(defthm booleanp-of-specialize-fn.erp (b* (((mv acl2::?erp acl2::?event acl2::?state) (specialize-fn const-old const-new target param const ctx state))) (booleanp erp)) :rule-classes :type-prescription)
Theorem:
(defthm pseudo-event-formp-of-specialize-fn.event (b* (((mv acl2::?erp acl2::?event acl2::?state) (specialize-fn const-old const-new target param const ctx state))) (pseudo-event-formp event)) :rule-classes :rewrite)