type Test (c :: Constraint) = c => ()
testTheObvious :: Test ((2 + 2) ~ 5) testTheObvious = ()
type Test (c :: Constraint) = forall a. (c => a) -> a testTheObvious :: Test ((2 + 2) ~ 5) testTheObvious = id