Semantics of alternations.
(tree-list-list-match-alternation-p treess alternation rules) → yes/no
A list of lists of trees matches an alternation iff it matches one of its concatenations.
Function:
(defun tree-list-list-match-alternation-p (treess alternation rules) (declare (xargs :guard (and (tree-list-listp treess) (alternationp alternation) (rulelistp rules)))) (and (consp alternation) (or (tree-list-list-match-concatenation-p treess (car alternation) rules) (tree-list-list-match-alternation-p treess (cdr alternation) rules))))