Choice.Over_profunctor_via_right
module P : Preface_specs.Profunctor.CORE
module R : Preface_specs.Choice.WITH_RIGHT with type ('a, 'b) t = ('a, 'b) P.t
type ('a, 'b) t = ('a, 'b) R.t
The type held by the Choice
.
Act on the left parameter of the sum.