-- | Takes a list, and returns True if its elements are pairwise
-- equal. Returns False otherwise.
+--
+-- Only used in tests.
+--
all_equal :: (Eq a) => [a] -> Bool
all_equal xs =
all (== first_element) other_elements
-- >>> disjoint xs ys
-- False
--
+-- Only used in tests.
+--
disjoint :: (Eq a) => V.Vector a -> V.Vector a -> Bool
disjoint xs ys =
intersect xs ys == V.empty