Theorem: disjoint-nat/rulename
(defthm disjoint-nat/rulename (not (and (natp x) (rulenamep x))) :rule-classes nil)