Relaciones simétricas
Usando el tipo de las relaciones binarias, definir las funciones
simetrica :: Eq a => Rel a -> Bool
tal que simetrica r
se verifica si la relación r
es simétrica. Por ejemplo,
simetrica (R ([1,3],[(1,1),(1,3),(3,1)])) == True simetrica (R ([1,3],[(1,1),(1,3),(3,2)])) == False simetrica (R ([1,3],[])) == True