Theorems about arity.
Theorem: arity-iff
(defthm arity-iff (iff (arity fn wrld) (or (consp fn) (function-symbolp fn wrld))))