Pretty-print a method result.
Function:
(defun print-jresult (result) (declare (xargs :guard (jresultp result))) (let ((__function__ 'print-jresult)) (declare (ignorable __function__)) (jresult-case result :type (print-jtype result.get) :void "void")))
Theorem:
(defthm msgp-of-print-jresult (b* ((part (print-jresult result))) (msgp part)) :rule-classes :rewrite)