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