(.require
 [library
  [lux (.except)
   ["$" documentation (.only documentation:)]
   [data
    [text (.only \n)
     ["%" \\format (.only format)]]]
   [macro
    ["[0]" template]]]]
 [\\library
  ["[0]" /]])

(documentation: /.complement
  (format "Generates the complement of a predicate."
          \n "That is a predicate that returns the oposite of the original predicate."))

(.def .public documentation
  (.List $.Module)
  ($.module /._
            ""
            [..complement
             ($.default /.no)
             ($.default /.yes)
             ($.default /.off)
             ($.default /.on)
             ($.default /.equivalence)
             ($.default /.hash)
             ($.default /.disjunction)
             ($.default /.conjunction)
             ($.default /.codec)]
            []))