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