Theorems about the built-in symbol-alistp.
Theorem:
(defthm symbol-alistp-of-append (equal (symbol-alistp (append x y)) (and (symbol-alistp (true-list-fix x)) (symbol-alistp y))))
Theorem:
(defthm alistp-when-symbol-alistp (implies (symbol-alistp x) (alistp x)))