module Relation.Symmetric (Symmetric, inv) where
import Relation.Base
import Data.Kind (Constraint)
type Symmetric :: Relation k -> Constraint
class Symmetric r where
inv :: r x y -> r y x