V.I
val (<:>) : Bool.Disjunctive.Semigroup.t -> Bool.Disjunctive.Semigroup.t -> Bool.Disjunctive.Semigroup.t