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