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