An alternation is well-formed iff it is not empty and all its concatenations are well-formed.
(alternation-wfp alternation) → yes/no
This non-emptiness condition
is required by the rule
Function:
(defun alternation-wfp (alternation) (declare (xargs :guard (alternationp alternation))) (and (consp alternation) (concatenation-list-wfp alternation)))