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