test00.hs

module Test0 () where

import Language.Haskell.Liquid.Prelude

{-@ qualif Zog(v:FooBar, x:FooBar): v = x + 29 @-}

data FooBar = Foo Int

x = choose 0

prop_abs ::  Bool
prop_abs = if x > 0 then baz x else False

baz gooberding = liquidAssertB (gooberding >= 0)