liquidhaskell-0.4.0.0: tests/neg/ListElem.hs

module ListElem () where

import Data.Set

{-@ listElem :: (Eq a) 
             => y:a 
             -> xs:[a]
             -> {v:Bool | (Prop(v) <=> Set_mem(y, (listElts(xs))))} 
  @-}

listElem :: (Eq a) => a -> [a] -> Bool
listElem _ []     = False
listElem y (x:xs) | x == y    = True
                  | otherwise = True -- listElem y xs