Preface_laws.Arrow_choice
module type LAWS = sig ... end
module For (A : Preface_specs.ARROW_CHOICE) : LAWS with type ('a, 'b) t := ('a, 'b) A.t