A paragraph is made up of lists of words. Notice a single word is also counted as a paragraphp.
(paragraphp par) → paragraph?
Function:
(defun paragraphp (par) (declare (xargs :guard t)) (let ((acl2::__function__ 'paragraphp)) (declare (ignorable acl2::__function__)) (if (atom par) (wordp par) (and (paragraphp (car par)) (paragraphp (cdr par))))))
Theorem:
(defthm booleanp-of-paragraphp (b* ((paragraph? (paragraphp par))) (booleanp paragraph?)) :rule-classes :rewrite)