Although not included in appendix $B$, the standard prelude defines
data Ordering $=$ LT $\mid$ EQ $\mid$ GT
together with a function
compare :: ord a $\Rightarrow$ a $\rightarrow$ a $->$ ordering
that decides if one value in an ordered type is less than ( $\mathrm{LT})$, equal to $(\mathrm{EQ})$, or greater than (GT) another value. Using this function, redefine the function occurs :: ord $a \Rightarrow a \rightarrow$ Tree a $\rightarrow$ Bool for search trees. Why is this new definition more efficient than the original version?