Module Bool.Infix
module Conjunctive : sig ... endmodule Disjunctive : sig ... endinclude sig ... end
val (<||>) : Join_Semilattice.t -> Join_Semilattice.t -> Join_Semilattice.t
include sig ... end
val (<&&>) : Meet_Semilattice.t -> Meet_Semilattice.t -> Meet_Semilattice.t
include sig ... end
val (-->) : Heyting_Algebra.t -> Heyting_Algebra.t -> Heyting_Algebra.t