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