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