notTheEmptySet :: EmptySet -> EmptySet notTheEmptySet = notTheEmptySet
'()
F(()) -> {} F((1 . x)) -> {{1}, F(x)}