Preface_laws.Monad
module type LAWS = sig ... end
module For (M : Preface_specs.MONAD) : LAWS with type 'a t := 'a M.t