Preface_laws.Divisible
module type LAWS = sig ... end
module For (D : Preface_specs.DIVISIBLE) : LAWS with type 'a t := 'a D.t