Module Bool.Disjunctive
module Magma : Interface.MAGMA with type t = boolmodule Medial_Magma : Interface.MEDIAL_MAGMA with type t = boolmodule Semigroup : Interface.SEMIGROUP with type t = boolmodule Monoid : Interface.MONOID with type t = bool