emFold :: Eq a => a -> [a] -> Bool
myElemFold a = foldr (\x y -> x == a || y) False

my
myElemFold :: Eq a => a -> [a] -> Bool
myElemFold a = foldr (\x y -> x == a || y) False
myElemFold a = foldr (\x y -> x == a || y) False