liquidhaskell-0.4.0.0: tests/pos/polyfun.hs

module Poly4 () where

import Language.Haskell.Liquid.Prelude

foo :: a -> [Int]
foo f = [0]

prop  = all (\z -> liquidAssertB (z >= 0)) zs
          where zs = foo id