complement : Rel ts -> Rel tsThe logical complement of a relation.
notToComplement : (p : Rel ts) -> (elems : HVect ts) -> Not (uncurry p elems) = uncurry (complement p) elemsThe negation of a relation for some elements
is equal to the complement of the relation.