type FunctionTySyn = Bool -> Int
foo :: FunctionTySyn
foo True = new_def [True]

foo False = 1