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