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