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