(defun real-listp (x)
  (cond
    ((atom x) (equal x nil))
    ((consp x) (real-listp (cdr x)))))

(defthm real=true
  (iff (real-listp x)
       (true-listp x)))