-- |Check whether something is part of a list using approximately equals.
aElem :: AEq a => a -> [a] -> Bool
aElem = any . (~==)
aElem :: AEq a => a -> [a] -> Bool
aElem = any . (~==)
aElem = any . (~==)