Join_semilattice.For
module L : Preface_specs.JOIN_SEMILATTICE
val join_semilattice_1 : unit -> (L.t, L.t -> L.t -> L.t) Law.t
val join_semilattice_2 : unit -> (L.t, L.t -> L.t) Law.t
val join_semilattice_3 : unit -> (L.t, L.t) Law.t