Source file arrow_alt.ml

1
2
3
4
module Suite
    (R : Model.PROFUNCTORIAL)
    (P : Preface_specs.ARROW_ALT with type ('a, 'b) t = ('a, 'b) R.t) =
  Arrow.Suite (R) (P)