Pretty-print a formal parameter.
Function:
(defun print-jparam (param) (declare (xargs :guard (jparamp param))) (let ((__function__ 'print-jparam)) (declare (ignorable __function__)) (b* (((jparam param) param)) (msg "~@0~@1 ~@2" (if param.final? "final " "") (print-jtype param.type) param.name))))
Theorem:
(defthm msgp-of-print-jparam (b* ((part (print-jparam param))) (msgp part)) :rule-classes :rewrite)