Check if all the concatenations in a list of concatenations are well-formed.
(concatenation-list-wfp concatenations) → yes/no
Function:
(defun concatenation-list-wfp (concatenations) (declare (xargs :guard (alternationp concatenations))) (or (endp concatenations) (and (concatenation-wfp (car concatenations)) (concatenation-list-wfp (cdr concatenations)))))