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