Ejercicio ADD Kernell

add: (Set a)->a->(Set a)
add Empty x = Sx Empty
add (S y s) x
X == y = (S y s)
otherwise = S y (add sx)



union:: (Set a)->(Set a)->(Set a)

union Empty s = s
union (S x s)s' = add(union s s')x

interseccion Empty s = Empty
interseccion (S x s) s'=add