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