Get the root element of the nonempty binary-tree.
(tree-head tree) → *
For empty trees, returns nil.
Function: tree-head$inline
(defun tree-head$inline (tree) (declare (xargs :guard (binary-tree-p tree))) (car (tree-fix tree)))
