Build a block consisting of a single Java
Function:
(defun jblock-throw (expr) (declare (xargs :guard (jexprp expr))) (let ((__function__ 'jblock-throw)) (declare (ignorable __function__)) (list (jstatem-throw expr))))
Theorem:
(defthm jblockp-of-jblock-throw (b* ((block (jblock-throw expr))) (jblockp block)) :rule-classes :rewrite)