{-# htermination (minBoundTup0 :: Tup0) #-} import qualified Prelude data MyBool = MyTrue | MyFalse data List a = Cons a (List a) | Nil data Tup0 = Tup0 ; minBoundTup0 :: Tup0 minBoundTup0 = Tup0;