Function: Return T if all of its arguments are numerically equal, NIL otherwise.
Example:
(defunatomic-number-element (atomic-number)
"Get an element from its atomic number"
(find-element-if
(lambda (element)
(= (element-atomic-number element)
atomic-number))))