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