Recognizer for label structures.
(labelp x) → *
Theorem: consp-when-labelp
(defthm consp-when-labelp (implies (labelp x) (consp x)) :rule-classes :compound-recognizer)