Simply get, e.g.,
(vl-classic-control->exprs x) → exprs
Function:
(defun vl-classic-control->exprs$inline (x) (declare (xargs :guard (and (vl-delayoreventcontrol-p x) (vl-classic-control-p x)))) (let ((__function__ 'vl-classic-control->exprs)) (declare (ignorable __function__)) (vl-evatomlist->exprs (vl-eventcontrol->atoms x))))
Theorem:
(defthm return-type-of-vl-classic-control->exprs (implies (and (force (vl-delayoreventcontrol-p x)) (force (vl-classic-control-p x))) (b* ((exprs (vl-classic-control->exprs$inline x))) (and (vl-exprlist-p exprs) (vl-idexprlist-p exprs)))) :rule-classes :rewrite)