Preface_laws.Indexed_comonad
module type LAWS = sig ... end
module For (C : Preface_specs.INDEXED_COMONAD) : LAWS with type ('a, 'index) t := ('a, 'index) C.t