Preface_laws.Invariant
module type LAWS = sig ... end
module For (I : Preface_specs.INVARIANT) : LAWS with type 'a t := 'a I.t