A rule is well-formed iff its name and definiens are well-formed.
This condition is structural.
Function:
(defun rule-wfp (rule) (declare (xargs :guard (rulep rule))) (and (rulename-wfp (rule->name rule)) (alternation-wfp (rule->definiens rule))))
Theorem:
(defthm booleanp-of-rule-wfp (b* ((yes/no (rule-wfp rule))) (booleanp yes/no)) :rule-classes :rewrite)