Theorem: true-listp-of-car-of-tree-nonleaf->branches
(defthm true-listp-of-car-of-tree-nonleaf->branches (true-listp (car (tree-nonleaf->branches x))) :rule-classes :type-prescription)