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